Function to call the distreg.vis Shiny App which represents the core of this package.
1 | vis()
|
1 2 3 4 5 6 7 8 9 10 11 12 | library("gamlss")
library("bamlss")
# A gamlss model
normal_gamlss <- gamlss(NO ~ binomial1 + ps(norm2),
sigma.formula = ~ binomial1 + ps(norm2),
data = model_fam_data(),
trace = FALSE)
# Start the App - only in interactive modes
if (interactive()) {
distreg.vis::vis()
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.