r - 在 R 中拟合负二项式分布时的警告

Question

我正在尝试使用以下代码在 R 中拟合负二项式分布：

negfit <- fitdistr(Probhist$DemandQuantity,"negative binomial")
coef(negfit)

数据如下：

Probhist <- data.frame(
  DemandQuantity=rep(
    c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 17),
    c(8632, 2242, 707, 272, 132, 65, 32, 22, 12, 10, 1, 2, 2, 2, 1)
  )
)

当我对上述数据运行 fitdistr 时，我收到以下警告：

> negfit <- fitdistr(Probhist$DemandQuantity,"negative binomial")
Warning messages:
1: In densfun(x, parm[1], parm[2], ...) : NaNs produced
2: In densfun(x, parm[1], parm[2], ...) : NaNs produced
3: In densfun(x, parm[1], parm[2], ...) : NaNs produced
4: In densfun(x, parm[1], parm[2], ...) : NaNs produced
5: In densfun(x, parm[1], parm[2], ...) : NaNs produced
> coef(negfit)
     size        mu 
0.4692958 0.4911798 

尽管有警告，但我确实得到了系数估计值。我无法理解输出系数值是否值得信赖并且可以进一步使用。另外，这些警告背后的原因是什么，我该如何消除它们？任何帮助将不胜感激。

谢谢。