有人在使用ExtDist Package时遇到过Weibull分布的问题吗?
从documentation:
具有未知形状参数的分布的参数估计示例来自:Rinne(2009)数据集第338页和示例第418 -419页给出的参数估计值为形状= 99.2079和尺度= 2.5957。该数据和Rinne参数估计值的对数似然为-1163.278。
data <- c(35,38,42,56,58,61,63,76,81,83,86,90,99,104,113,114,117,119,141,183)
est.par <- eWeibull(X=data, method="numerical.MLE"); est.par
plot(est.par)
但是,当我运行这个程序时,我得到了以下输出:
Parameters for the Weibull distribution.
(found using the numerical.MLE method.)
Parameter Type Estimate S.E.
shape shape 5.82976007 1.79326460
scale scale 0.06628166 0.02129258
这显然是错误的,但我不确定是我犯了错误还是包里有bug?
2条答案
按热度按时间qjp7pelc1#
在我看来,这是软件包中的一个bug,我做了自己独立的MLE,得到了和Rinne一样的答案:
然后我深入研究了
dWeibull
函数的源代码:看起来
out
应该被设置为dweibull(...)
的结果而不是dgamma(...)
...??看看weibull代码的其余部分,这个错误似乎是重复的--也许这只是一个草率的剪切和粘贴?我肯定会联系维护者(maintainer("ExtDist")
)。如果我用另一种方法拟合伽玛分布,我会得到与
ExtDist
包完全相同的答案:iih3973s2#
错误影响了eGamma和eWeibull的代码,但现在已经修复(v0.7-1,Jan 17,2023)。感谢Robert Dodier指出它们。
eWeibull的当前输出:
eGamma的当前输出: