Nothing
# R/zzz.R
.onLoad <- function(libname, pkgname) {
op <- options()
op.exdqlm <- list(
exdqlm.use_cpp_kf = TRUE, # KF bridge is proven & fast
exdqlm.compute_elbo = TRUE,
exdqlm.tol_elbo = 1e-6,
exdqlm.use_cpp_samplers = FALSE, # keep OFF by default (OpenMP/RNG)
exdqlm.use_cpp_postpred = FALSE # keep OFF by default
)
toset <- !(names(op.exdqlm) %in% names(op))
if (any(toset)) options(op.exdqlm[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.