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之间 #患者53个,指标在5:到20之间 #且正常人和患者随机来就诊,请模拟数据 nor <- runif(10,1,3) #生成10个,在1 :3 的数字 pat <- runif(53,5,20) pop <- c(nor,pat) pop <- round(pop) pop <- sample(pop,53,replace = F);pop #在pop中随抽取53次,无放回