.onAttach <- function(libname, pkgname) {
vtreat_default_options <- list(
vtreat.use_data.table_binding = TRUE,
vtreat.use_clean_suffix = FALSE,
vtreat.allow_parallel = TRUE,
vtreat.check_for_nested_model_bias = TRUE
)
op <- options()
toset <- setdiff(names(vtreat_default_options), names(op))
if(length(toset)>0) {
options(vtreat_default_options[toset])
}
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.