probe=as.matrix(read.table("/pancancer/probeID.txt",header=FALSE,sep="\t"))
probe450k=as.matrix(read.table("/pancancer/probe450k.txt",header=TRUE,sep="\t"))
proSign=matrix(0,nrow(probe),1)
for(i in 1:nrow(probe)){
row<-which(probe[i,1]==probe450k[,"probeID"])
if(length(row==0))
proSign[i,1]=-1;
if(length(row)>0){
probeall<-probe450k[row,]
write.table(probeall,"probeall.txt")
}
}
#本意是想从probe450k中取出probe中含有的数据,并写出,其中probe只有一列,probe450k有6列,共同拥有的是probeID列
运行后,这个错误Error in which(probe[, 1] == probe450k[i, "probeID"]) :
在为'which'函数选择方法时评估'x'参数出了错: Error in probe450k[j, "probeID"] : subscript out of bounds