for(i in row.names(data)){
          lncName=unlist(strsplit(i,"\\|",))[1]
          lncName=gsub("\\/", "_", lncName)
          rt=rbind(expression=data[i,],grade=grade)
          rt=as.matrix(t(rt))
          wilcoxTest<-wilcox.test(expression ~ grade, data=rt)
          conLncMeans=mean(data[i,1:conNum])
          treatLncMeans=mean(data[i,(conNum+1):ncol(data)])
          logFC=log2(treatLncMeans)-log2(conLncMeans)  
          pvalue=wilcoxTest$p.value
          conMed=median(data[i,1:conNum])
          treatMed=median(data[i,(conNum+1):ncol(data)])
          diffMed=treatMed-conMed
          if( ((logFC>0) & (diffMed>0)) | ((logFC<0) & (diffMed<0)) ){  
                        outTab=rbind(outTab,cbind(lnc=i,conMean=conLncMeans,treatMean=treatLncMeans,logFC=logFC,pValue=pvalue))
          }
}
Error in data[i, ] : 下标出界
下标出界怎么解决，需要各位大神的帮助，谢谢啦。