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;参数（列表）
我该如何纠正？
感谢您的帮助