if (FALSE) {
# Export model specification
spec <- model_builder(data = mtcars, response = "mpg")
export_model(spec, "my_model_spec.R", format = "R")
# Export fitted model
fit <- qbrms(mpg ~ hp + wt, data = mtcars, family = gaussian())
export_model(fit, "my_model.Rmd", format = "markdown",
include_diagnostics = TRUE)
# Export as JSON
export_model(spec, "my_model.json", format = "json")
}
Run the code above in your browser using DataLab