R/fbgpd.R

Defines functions fbgpd

Documented in fbgpd

fbgpd <-
function(initpar,dat,model="log",fixed=FALSE,control=list(maxit=50000),psi=3,...)
{
est         = optim(initpar,bgpd_maxlik,dat=dat,model=model,control=control,fixed=fixed,psi=psi)
if(fixed==TRUE) est$par[1]=0
est
}

Try the mgpd package in your browser

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

mgpd documentation built on May 2, 2019, 9:39 a.m.