# NOT RUN {
if (interactive()) {
# Combine global and user options:
options1 <- bru_options(bru_options_get(), bru_verbose = TRUE)
# Create a proto-options object in two equivalent ways:
options2 <- as.bru_options(bru_verbose = TRUE)
options2 <- as.bru_options(list(bru_verbose = TRUE))
# Combine options objects:
options3 <- bru_options(options1, options2)
}
# }
# NOT RUN {
if (interactive()) {
# EXAMPLE1
}
# }
# NOT RUN {
if (interactive()) {
bru_options_check(bru_options(bru_max_iter = "text"))
}
# }
# NOT RUN {
if (interactive()) {
# EXAMPLE1
}
# }
# NOT RUN {
if (interactive()) {
bru_options_set(
bru_verbose = TRUE,
verbose = TRUE
)
}
# }
Run the code above in your browser using DataLab