R中的样本抛出的阳性probs太少

Question

示例函数存在问题。使用附加的数据集我试过

加载后（第9列是事情发生的频率，第11列是关联的var，重量是第8列

which(kfg[,9]==1)->aj
sample(kfg[aj,11],prob=kfg[aj,8])

Error in sample.int(length(x), size, replace, prob) : 
  too few positive probabilities

这很令人困惑，因为

mean(kfg[aj,8])
#[1] 0.0009090909

并非所有概率都是相同的值，有人可能会告诉为什么会发生这种情况吗？

数据集可以在这里找到：
https://www.dropbox.com/s/gyimxbz5f3v0uq3/kfg.RData?dl=0

Answer 1

您需要.then()或replace=TRUE个选项之一，因为有一堆0概率。否则，size尝试返回与输入长度相同数量的元素，但由于缺乏正概率而无法这样做。