rt<-read.csv("genes.csv",header = T,check.names = F) row.names(rt)<-make.names(rt[,1],TRUE)rt<-rt[,-1]