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

Python0255

如何使用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)

大致相当于排列组合中的组和,

官方的函数解释:sample(x,size[,replace=T/F]):随机在向量x中抽取size个元素,选项replace=T允许放回抽取,replace=F则为一次性抽取。

这里有个函数参考的帖子:

http://www.douban.com/note/294226439/