R/lossdw3.R

In DiscreteWeibull: Discrete Weibull Distributions (Type 1 and 3)

Defines functions lossdw3

Documented in lossdw3

lossdw3<-function(par,x,eps=1e-04)
{
(mean(x)-Edweibull3(par[1],par[2],eps=eps))^2+(mean(x^2)-E2dweibull3(par[1],par[2],eps=eps))^2
}

Try the DiscreteWeibull package in your browser