Nothing
"tlmrgpa" <-
function(trim=NULL, leftrim=NULL, rightrim=NULL, xi=0, alpha=1,
kbeg=-.99, kend=10, by=.1) {
ks <- seq(kbeg, kend, by=by)
n <- length(ks)
T2 <- T3 <- T4 <- T5 <- T6 <- vector(mode="numeric", length=n)
i <- 0
for(k in ks) {
tmp.para <- vec2par(c(xi,alpha,k), type="gpa", paracheck=FALSE)
tmp.lmr <- theoTLmoms(tmp.para, nmom=6,
trim=trim, leftrim=leftrim, rightrim=rightrim)
i <- i + 1
T2[i] <- tmp.lmr$ratios[2]
T3[i] <- tmp.lmr$ratios[3]
T4[i] <- tmp.lmr$ratios[4]
T5[i] <- tmp.lmr$ratios[5]
T6[i] <- tmp.lmr$ratios[6]
}
z <- list(tau2=T2, tau3=T3, tau4=T4, tau5=T5, tau6=T6)
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.