m0_57988018的博客

#输入数据id<-seq(1,100,1)sex <-sample(c(0,1),100,replace=TRUE)math<-rnorm(100,70,20)chinese<- rnorm(100,65,10)#while循环i=1while(i<101){ if(math[i]>100){math[i]=100} if(chinese[i]>100){chinese[i]=100} i=i+1}#for循环for(i in 1...

id=1:100x<-c(0,1)xb<-sample(x,100,replace=TRUE)yw=rnorm(100,65,10)yw[which(yw=100)]=100sx=rnorm(100,70,20)sx[which(sx=100)]=100data<-data.frame(id,xb,yw,sx)cor(sx,yw)作业1、2、男女同学的语文成绩相关系数为0.63、程序发群里...