Question

https://filebin.net/3et86d1gh8cer9mu这是我数据的示例子集

我尝试应用已经在处理类似数据的代码，现在我可以解决它的错误。代码如下：

var username = getTopUserViaXHRSynchronouslySomehow('/userstats.php');
sleep(10000, function () {document.querySelector("#ticker").textContent = username;});

我得到的错误是：

url <- 'https://filebin.net/3et86d1gh8cer9mu/TCA_subset_GnoG_melt.csv'
TCA_subset_GnoG_melt  <- read.csv(url)
L <- data.frame()
IDs <- unique(TCA_subset_GnoG_melt$X1)
for (i in 1 : length(IDs)){

temp<-TCA_subset_GnoG_melt[(TCA_subset_GnoG_melt$X1)==IDs[i],]
temp<- na.omit(temp)
t_test_CTROL_ABC.7<- t.test(temp$value[temp$X1.1=="CTROL"],   temp$value[temp$X1.1=="ABC.7"])
t_test_CTROL_ABC.8<- t.test(temp$value[temp$X1.1=="CTROL"], temp$value[temp$X1.1=="ABC.8"])
t_test_CTROL_ABC.7.8<- t.test(temp$value[temp$X1.1=="CTROL"], temp$value[temp$X1.1=="ABC7.8"])

t_test_ABC.7_ABC.8<- t.test(temp$value[temp$X1.1=="ABC.7"], temp$value[temp$X1.1=="ABC.8"])
t_test_ABC.7_ABC.7.8<- t.test(temp$value[temp$X1.1=="ABC.7"], temp$value[temp$X1.1=="ABC7.8"])
t_test_ABC.8_ABC.7.8<- t.test(temp$value[temp$X1.1=="ABC.8"], temp$value[temp$X1.1=="ABC7.8"])

LLc <- cbind(as.character(unique(IDs[i])),   t_test_CTROL_ABC.7,t_test_CTROL_ABC.8,t_test_CTROL_ABC.7.8, t_test_ABC.7_ABC.8,t_test_ABC.7_ABC.7.8, t_test_ABC.8_ABC.7.8)
L<-rbind(L,LLc)
}

AA<-rownames(L)
L$names <- AA
p_value_TCA <-L[grep("p.value",L$names),  ]

df <- apply(p_value_TCA ,2,as.character)
df = as.matrix(df)

我不明白，当我逐行检查代码时，它一直持续到LLc创建，而不是df＆＃34; L＆＃34;是空的。对我来说完全是无稽之谈。帮助！

R：t测试中的错误

0 个答案: