Nothing
blca <-
function(X, G, method=c("em", "gibbs", "boot", "vb"),...){
# if(length(method)>1){
# method<- method[1]
# warning(paste("More than one method specified", method, "method used only."))
# }
method<- match.arg(method)
if(method == "em") return(blca.em(X, G, ...))
if(method == "vb") return(blca.vb(X, G, ...))
if(method == "gibbs") return(blca.gibbs(X, G, ...))
if(method == "boot") return(blca.boot(X, G, ...))
}
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.