>test<-c(21,22,22,23,22,23,24)
>duplicated(test)
[1] FALSE FALSE TRUE FALSE TRUE TRUE FALSE
看得出duplicated()给出的是判断坐标:首次出现的22,函数给的值是F,但再次出现就成T了。
>indicator<-duplicated(test)
>table(test[indicator])
22 23
2 1
这是重复出现了几次(不包括首次)
所以你要的加1就行了。
>table(test[indicator])+1
22 23
3 2
假设你的population是1到50000,那么抽取一个样本容量为10的样本:sample(1:50000,10)如果是可重复抽样(就是这个10个样本中的数字可以重复,也叫放回抽样)那么sample(1:50000,10,replace=T)做个循环抽200次就好了。