r - R - fitdistrplus による混合分布のフィッティング

Question

LogNormal と Generalized Pareto (actuar) の混合を次のように定義しました。

dlnormgenpar<-function(x,
               w_lnorm,
               meanlog=0,
               sdlog=1,
               par_shape1=1,
               par_shape2=1,
               par_scale=1) {
  w_par=1-w_lnorm
  dln=dlnorm(x,meanlog = meanlog,sdlog = sdlog)
  dpar=dgenpareto(x,shape1=par_shape1,shape2=par_shape2,scale=par_scale)
  return(w_lnorm*dln+w_par*dpar)
}

fistdistrplus を使用して、いくつかのデータに合わせようとしています。

dist<-fitdist(data,"lnormgenpar")

ただし、次のエラーが表示されます。

Unknown starting values for distribution lnormgenpar.

通常の fitdistrplus の方法でフィッティング関数を展開すると、エラーが残ります。

dist<-fitdist(data,"lnormgenpar",dparams=list(
  w_lnorm=0.5,
  meanlog=0,
  sdlog=1,
  par_shape1=1,
  par_shape2=1,
  par_scale=1
  ))

パラメータをフィッティング関数に渡すにはどうすればよいですか?

ありがとう

サイモン