1 > x<-seq(1,to=20,by=2)
2 > sample(x,8,replace = FALSE)# 不放回抽样
3 [1]  5 15  7 13  1  3 11 19
4 > x<-seq(1,to=20,by=2)
5 > sample(x,8,replace = TRUE)# 可放回抽样
6 [1]  7 19 17  1 17  5  7 19