Tengo que comprobar las suposiciones de la prueba t. La salida debe ser la lista de vectores (estadística, parámetro, valor p).

De hecho, encontré la solución, pero fallé con la representación de respuestas.

one_sample_t <- function(test_data, general_mean){
  b <- names(which(sapply(test_data, is.numeric)))
  a <- sapply(test_data[b], function(x) (t.test(x,mu = general_mean)))
  as.list(as.data.frame(a[1:3,]))
}

one_sample_t(iris[, 1:4], 4)

Mi respuesta se parece a esto Mi vista de respuesta incorrecta

Pero la respuesta correcta es la única esta Vista de datos correcta

0
Lisbeth 29 oct. 2019 a las 08:13

1 respuesta

La mejor respuesta

Encontré la solución:

one_sample_t <- function(test_data, general_mean){
  b <- names(which(sapply(test_data, is.numeric)))
  a <- lapply(test_data[b], function(x) c(t.test(x,mu=general_mean)$statistic,t.test(x,mu=general_mean)$parameter,t.test(x,mu=general_mean)$p.value))
  a
}
one_sample_t(iris[, 1:4], 4)
0
Lisbeth 29 oct. 2019 a las 15:28