r - 如何获得所需的列表视图

Question

我必须检查 t 检验假设。输出应该是向量列表（统计量、参数、p 值）。

确实我找到了解决方案，但我的答案表示失败了。

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)

我的答案看起来像这样 我的错误答案视图

但是正确的答案只有这个 正确的数据视图

标签： rlistmatrix

Answer 1

我找到了解决方案：

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)