Nothing
"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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.