R - rbinom;如何保证至少返回一个“成功”？

Question

有没有办法确保

rbinom()

至少返回一次成功？

我跑

rbinom()

的概率非常低：

rbinom(5015, size=2, prob= 1/5000))

由于是概率分布，所以有可能返回全0。有没有办法确保至少返回一次成功？

谢谢！