a <- rnorm(50,30,2) #生成50个样本，均数30，标准差2 a <- round(a,2) #保留两位小数 write.popsv(nor,"3.popsv",row.names = F) #输出成Expopel可以打开的格式 #目的：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次，无放回