

setwd("C:/Users/zhang/Desktop")
length<-read.csv("fishlenth.csv",header=F,col.names="体长")
length=as.data.frame(t(length))
length<-as.matrix(read.csv("fishlenth.csv",header=F))
length<-matrix(length,nrow=4,ncol=5,byrow=T)
length<-as.list(read.csv("fishlenth.csv",header=F))
length<-as.data.frame(read.csv("fishlenth.csv",header=F))
fishlength200 <- length >= 200
F200<-list(length,fishlength200)
F200<-as.data.frame(F200)
write.table(F200,file="F200.xls",row.names = F,sep="\t")
429

被折叠的 条评论
为什么被折叠?



