Nothing
.onLoad <- function(libname, pkgname) {
op <- options()
op.utiml <- list(
utiml.base.algorithm = "SVM",
utiml.cores = 1,
utiml.seed = NA,
utiml.use.probs = TRUE,
utiml.empty.prediction = FALSE,
utiml.random = sample(1:10) #Random value
)
toset <- !(names(op.utiml) %in% names(op))
if (any(toset)) options(op.utiml[toset])
invisible()
}
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.