如何计算从列表中采样所有样本的概率？

Question

我有一定数量的样品。我想估计在替换样本时，我需要多大的样本量（缺乏术语？），以便以特定的概率至少一次选择所有样本。

我对R还是很陌生。但是我认为我需要做的是使用样本函数，但是我也试图通过蒙特卡洛模拟来做到这一点，但是无法解决这个问题。

我尝试过这样的事情：

sampling_prob = function(idnumber, probability_de){
sample(1:idnumber, sampling_number, replace = TRUE) 
MISSING CODE
}
sampling_prob(2200,0.99)
> 200000 ##This is not the correct number, but a very far-fetched guess

因此，我想根据模拟估算所需的样本大小/ sampling_number。