Nothing
TPGM <-
function(X, method="TPGM", stability="bootstrap", R, N=100, beta=0.05, lmin = 0.01, nlams=20, lambda.path=NULL ,parallel=TRUE, nCpus=4, sym=TRUE,th=0, sth=0.8){
if (R < 0){
cat("ERROR: Truncating threshold R should be positive. \n")
ghat = NULL
return(ghat)
}
# Should we check for other condition on R??
# Transform the matrix with values truncated at R
Xorig <- X
X[X > R] <- R
ghat <- LPGM(X, method="TPGM", stability="bootstrap", N=N, beta=beta,
lmin=lmin, nlams=nlams, lambda.path=lambda.path, parallel=parallel, nCpus=nCpus,sym=sym,th=th,sth=sth)
return(ghat)
}
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.