LS.txt
下面是前面运行的代码:
Abu=read.table('ES.txt',header=T)Abu<-as.matrix(Abu)table<-Abutable[table>0]<-1table.generalist<-Abu[which(rowSums(table)>=1),] Abu<-table.generalist