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/
