R/tlmrexp.R

"tlmrexp" <-
function(trim=NULL, leftrim=NULL, rightrim=NULL, xi=0, alpha=1) {

 tmp.para <- vec2par(c(xi,alpha), type="exp", paracheck=FALSE)
 tmp.lmr  <- theoTLmoms(tmp.para, nmom=6,
                  trim=trim, leftrim=leftrim, rightrim=rightrim)
  z <- list(tau2=tmp.lmr$ratios[2],
            tau3=tmp.lmr$ratios[3],
            tau4=tmp.lmr$ratios[4],
            tau5=tmp.lmr$ratios[5],
            tau6=tmp.lmr$ratios[6])
  return(z)
}

Try the lmomco package in your browser

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

lmomco documentation built on May 29, 2024, 10:06 a.m.