如何获得所需的列表视图答案

【问题标题】：How to get needed view of list如何获得所需的列表视图
【发布时间】：2019-10-29 05:13:45
【问题描述】：

我必须检查 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)

我的答案是这样的 My wrong answer view

但正确答案只有这个 Correct data view

【问题讨论】：

标签： r list matrix

【解决方案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)

【讨论】：