Я пытаюсь оценить 3-параметрическое распределение Вейбулла (3W), используя метод моментов, используя пакет «fitdistrplus», я определил 3W из пакета «FAdist» и функции необработанных моментов, но каждый раз, когда я запускаю код, я получаюсообщение об ошибке, что мне делать?ps: memp - функция моментов строки.
library(fitdistrplus)
FAdist::dweibull3
memp <- function(x, order) sum(x^order)/length(x)
fitdist(x, "weibull3", method="mme",order=1:3, memp="memp",start=list(shape=1,scale=1,thres=1))
Error in mmedist(data, distname, start = arg_startfix$start.arg, fix.arg = arg_startfix$fix.arg, :
The moment mweibull3 function must be defined.
In addition: Warning messages:
1: In fitdist(x, "weibull3", method = "mme", order = 1:3, memp = "memp", :
The dweibull3 function should have its first argument named: x as in base R
2: In fitdist(x, "weibull3", method = "mme", order = 1:3, memp = "memp", :
The pweibull3 function should have its first argument named: q as in base R