如何使用R语言的sample函数随机抽取若干个奇数或偶数？

Python011

如何使用R语言的sample函数随机抽取若干个奇数或偶数？,第1张

#1.如果总体是自然数这样的等差数列，可以直接利用seq函数挑出奇数（或偶数）：n <- 1:100( ji <- seq(from=1,to=100,by=2) )( ou <- setdiff(n,ji) )rm(ji)rm(ou)#2.如果总体是杂乱无章的集合，可以写个小函数判断某个数的奇偶：jishu <- function(x){ifelse(x%%2 ==0,F,T)}( ji <- n[jishu(n)] )( ou <- n[!jishu(n)] )#通过上面的任一一种方法将总体的奇数偶数区分开，接下来就可以使用sample函数抽样了：sample(ji,5)

假设你的population是1到50000，那么抽取一个样本容量为10的样本：sample(1:50000,10)如果是可重复抽样（就是这个10个样本中的数字可以重复，也叫放回抽样）那么sample(1:50000,10,replace=T)做个循环抽200次就好了。