R语言--编数据

Posted 2022-01-17 super-yb

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次，无放回