R：如何摆脱rexp（）函数

Question

我的代码从指定为以下定义的指数分布生成随机值，即速率为4874，并将其赋值给变量tau。

tau <- rexp(n=1,rate=4874) 

有时会产生NaN值。 rexp()没有na.rm选项，因此如果生成的值为NaN，我会使用此while循环重新分配随机偏差。

while (is.na(tau)) {
   tau <- rexp(n=1,rate=4874)
}

如果我运行它并生成NaN值并最初分配给tau，并且输入了while循环，则似乎无法停止生成更多NaN值，即我有一个无限循环（while循环中的重新赋值行每次只重新赋值NaN。

有什么想法吗？不幸的是，rexp()函数不允许您包含na.rm = TRUE参数。当NaN中的R值通过随机抽样分发产生时，我一直无法找到任何关于public boolean method1(String _str){ throw new UnsupportedOperationException("message..."); } 值的信息。