有放回的随机抽样怎么做用R语言怎么实现?—R？

Python017

有放回的随机抽样怎么做用R语言怎么实现?—R？,第1张

即随机抽样.sample(x,size,replace = FALSE,prob = NULL)replace=F,表示不重复抽样replace=T 表示可以重复抽样x=1:5sample(x,6,replace=T) #重复抽样[1] 1 2 1 4 4 3sample(x,2,replace=F) #不重复[1] 4 5,9,

#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/