LumA<-data1[data1$id%in%First50,allgenes=='LumA']
Basal<-data1[data1$id%in%First50,allgenes=='Basal']
LumAgroups<-split(colnames(LumA),sample(1:3,ncol(LumA),replace=T))
Basalgroups<-split(colnames(LumA),sample(1:3,ncol(Basal),replace=T))
testA<-LumA[,colnames(LumA)%in%unlist(LumAgroups[])]
testB<-Basal[,colnames(Basal)%in%unlist(Basalgroups[])]
trainingA<-LumA[,!(colnames(LumA)%in%unlist(LumAgroups[]))]
trainingB<-Basal[,!(colnames(Basal)%in%unlist(Basalgroups[]))]
centroidA <- rowMeans(trainingA)
centroidB <- rowMeans(trainingB)
misclassifiedA <- sum(sapply(testA,function(x){sqrt(sum((x-centroidA)^2))-
sqrt(sum((x-centroidB)^2))>0 }))
总和错误(sapply(testA,function(x){: 无效&#39;类型&#39;参数(列表)
我该如何纠正?
感谢您的帮助