如何从r中的多个t.test创建矩阵

# 创建一个包含多个向量的数据框
data <- data.frame(
  group1 = c(1, 2, 3),
  group2 = c(4, 5, 6),
  group3 = c(7, 8, 9)
)

# 使用apply函数进行多个t.test，并创建矩阵
result <- apply(data, 2, function(x) {
  t.test(x, mu = 0)  # 对每一列进行t.test
})

# 从结果中提取所需的统计量，例如p值
p_values <- sapply(result, function(x) {
  x$p.value
})

# 创建矩阵
matrix_result <- matrix(p_values, nrow = length(p_values), ncol = 1)

# 打印矩阵
print(matrix_result)