矩阵的t检验没有足够的“ x”观察结果

问题描述

我正在尝试对矩阵进行t检验，并将结果输出到最后一列。我在df中创建了示例数据，并在脚本中复制了运行df的错误。我收到一个错误，即没有足够的“ x”观测值。关于代码中有什么错误的任何想法？

df <- data.frame(
   Sample_S_0_rep1 = c(0,2478.55,3.91,0.69,0.63,0),Sample_S_0_rep2 = c(0,789.63,2.98,0.15,Sample_S_0_rep3 = c(0,802.76,2.99,0.02),Sample_S_24_rep1 = c(0,993.88,3.71,0.35,Sample_S_24_rep2 = c(0,896.23,3.48,0.09,Sample_S_24_rep3 = c(0,947.83,4.02,0)
)
group1 <- df[i,grep('^Sample_S_0',names(df))]
group2 <- df[i,grep('^Sample_S_24',names(df))]
group1 <- log2(as.matrix(group1)+1)
group2 <- log2(as.matrix(group2)+1)
Result <- apply(df,1,function(df){t.test(df[group1],df[group2])$p.value})

Error

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）