R/tlmrgum.R

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

 tmp.para <- vec2par(c(xi,alpha), type="gum", 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 Aug. 30, 2023, 5:10 p.m.