# 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