摘要： #1.1#### rm(list=ls()) age 75]=55]75]=55&age3]30,];newdata #or attach(leadership) newdata30,] detach(leadership) leadership$date=startdate&leadership$date30&gender=="M", select = c(q... 阅读全文

摘要： a <- rnorm(50,30,2) #生成50个样本，均数30，标准差2 a <- round(a,2) #保留两位小数 write.csv(nor,"3.csv",row.names = F) #输出成Excel可以打开的格式 #目的：63个病人，一组正常人10个，某指标在1到3之间 #患者5 阅读全文

摘要： myfun<-function(a){ x<-1:100 #先生成一个1到100的序列，后面可以更改这些值，相当于覆盖掉原来的值 x<-data.frame(x) a<-data.frame(a) for(i in 1:100){ #设置循环，循环抽取100个样本，并将计算出来的均值赋值给数据框中的x变量 c<-a[sample... 阅读全文