#============================================================================
#. Nome   : gerar_dados_final: funcão geradora de dados para prova final
#. Autor  : José Cláudio Faria/DCET/UESC
# Data    : 21/12/2021 12:08:26
# Objetivo: Gerar dados para as avaliações práticas de
#           inferência dos cursos introdutórios de estatística
# email   : <<<joseclaudio.faria@gmail.com>>>
#============================================================================
#.. Observações:
# 1- Cuidado ao informar a matrícula: a geração dos dados para
# análise (e subsequente correção) depende dessa informação correta!
# A matrícula informada deve ser obrigatoriamente a do aluno.
#
# 2- A função está intencionalmente não documentada.
#============================================================================

#. Função
gerar_dados_final <- function(m1=NULL)
{
  stopifnot(is.numeric(m1))

  set.seed(m1)

  n1 <- sample(10:20,
               1)

  n2 <- sample(10:20,
               1)

  m1 <- runif(1,
              min=10,
              max=20)

  m2 <- runif(1,
              min=10,
              max=20)

  s1 <- runif(1,
              min=2,
              max=3)

  s2 <- runif(1,
              min=6,
              max=9)

  y1 <- rnorm(n1,
              m1,
              s1)

  y1[sample(1:length(y1), 1)] <- NA

  y2 <- rnorm(n2,
              m2,
              s2)

  res <- list(A=round(y1,
                      2),
              B=round(y2,
                      2))
  invisible(res)
}

#.. Exemplo de uso
# dad <- gerar_dados_final(m1=202120000)
# str(dad)
# #n
# lapply(dad,
#        length)
#
# length(dad$A[!is.na(dad$A)])
#
# # média
# lapply(dad,
#        mean,
#        na.rm=TRUE)
#
# # desvio padrão
# lapply(dad,
#        sd,
#        na.rm=TRUE)