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