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")
NWAFU 生物统计实验一 R语言版
于 2025-03-20 21:01:32 首次发布