#============================================================================ #. Nome : gerar_dados_inf: funcão geradora de dados para fins de avaliação #. Autor : José Cláudio Faria/DCET/UESC # Data : 18/10/2022 07:44:22 # Objetivo: Gerar dados para as avaliações práticas de # inferência dos cursos introdutórios de estatística # email : <<>> #============================================================================ #.. Observações: # 1- Muito cuidado ao informar as matrículas: a geração dos dados para # análise (e subsequente correção) dependem dessa informação correta. # As matrículas informadas devem ser obrigatoriamente as do grupo. # # 2- Grupos com menos que 3 alunos: repetir a(s) última(s) matrícula(s) # para a(s) matrícula(s) restante(s). # # 3- Se encontrar algum problema com as matrículas informadas, tente alterar # alguma das matrículas. Nesse caso não esquecer de comunicar ao professor # (por escrito) no corpo da prova. # # 4- A função está intencionalmente não documentada. #============================================================================ #. Função gerar_dados_inf <- function(m1=NULL, m2=NULL, m3=NULL) { stopifnot(is.numeric(m1) & is.numeric(m2) & is.numeric(m3)) set.seed(m1 + m2 + m3) n1 <- sample(10:20, 1) n2 <- sample(10:20, 1) m1 <- runif(1, min=20, max=40) m2 <- runif(1, min=20, max=40) s1 <- runif(1, min=3, max=9) s2 <- runif(1, min=3, 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_inf(m1=202210000, # m2=202210000, # m3=202210000) # 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)