R：基于超几何分布计算样本大小

Question

假设一顶帽子有1000个弹珠，100个是红色。为了拥有至少40个红色大理石，我需要画多少个大理石（没有替换）？我在这里看this formula，但我想知道R是否有内置函数来计算这些样本大小。我查看过dhyper，phyper等函数，但似乎这些函数不会计算样本量。