Nothing
findLogMargLik <-
function (model, tData, dimens, alpha) {
model <- na.omit(model)
logMargLik <- 0
.C("findLogMargLik", as.integer(tData[model,]), as.integer(dim(tData)[2]), as.integer(length(model)), as.integer(dimens[model]), as.double(alpha), logMargLik = as.double(logMargLik), package = "c_code")$logMargLik
}
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.