R/lossdiw.R

Defines functions lossdiw

Documented in lossdiw

lossdiw <-
function(x, par, eps=0.0001, nmax=1000)
{
E<-Ediweibull(par[1],par[2],eps=eps, nmax=nmax)

EX<-E[[1]]
EX2<-E[[2]]

(mean(x)-EX)^2+(mean(x^2)-EX2)^2
}

Try the DiscreteInverseWeibull package in your browser

Any scripts or data that you put into this service are public.

DiscreteInverseWeibull documentation built on May 2, 2019, 4:20 a.m.