# Create a temporary folder for the output and set the working directory:
temp_path <- file.path(tempdir(), "ss3sim-example")
dir.create(temp_path, showWarnings = FALSE)
wd <- getwd()
setwd(temp_path)
# Find the data in the ss3sim package:
d <- system.file("extdata", package = "ss3sim")
om <- paste0(d, "/models/cod-om")
em <- paste0(d, "/models/cod-em")
case_folder <- paste0(d, "/eg-cases")
# Without bias adjustment:
run_ss3sim(iterations = 1, scenarios = "D0-F0-cod",
case_folder = case_folder, om_dir = om, em_dir = em)
unlink("D0-F0-cod", recursive = TRUE) # clean up
# An example specifying the case files:
run_ss3sim(iterations = 1, scenarios = "D0-F0-E0-cod",
case_folder = case_folder, om_dir = om, em_dir = em,
case_files = list(F = "F", D = c("index", "lcomp",
"agecomp"), E = "E"))
unlink("D0-F0-cod", recursive = TRUE) # clean up
# With bias adjustment:
# (Note that bias_nsim should be bigger, say 5 or 10, but it is set
# to 2 here so the example runs faster.)
run_ss3sim(iterations = 1, scenarios = "D1-F0-cod",
case_folder = case_folder, om_dir = om, em_dir = em,
bias_adjust = TRUE, bias_nsim = 2)
# Restarting the previous run using the existing bias-adjustment
# output
run_ss3sim(iterations = 2:3, scenarios = "D1-F0-cod",
case_folder = case_folder, om_dir = om, em_dir = em,
bias_adjust = FALSE, bias_already_run = TRUE)
unlink("D1-F0-cod", recursive = TRUE)
# A run with deterministic process error for model checking:
recdevs_det <- matrix(0, nrow = 100, ncol = 20)
run_ss3sim(iterations = 1:20, scenarios = "D0-E100-F0-cod",
case_folder = case_folder, om_dir = om, em_dir = em,
bias_adjust = TRUE, bias_nsim = 2, user_recdevs = recdevs_det)
unlink("D0-E100-F0-cod", recursive = TRUE)
# An example of a run using parallel processing across 2 cores:
require(doParallel)
registerDoParallel(cores = 2)
require(foreach)
getDoParWorkers() # check how many cores are registered
# parallel scenarios:
run_ss3sim(iterations = 1, scenarios = c("D0-F0-cod",
"D1-F0-cod"), case_folder = case_folder,
om_dir = om, em_dir = em, parallel = TRUE)
unlink("D0-F0-cod", recursive = TRUE)
unlink("D1-F0-cod", recursive = TRUE)
# parallel iterations:
run_ss3sim(iterations = 1:2, scenarios = c("D0-F0-cod"),
case_folder = case_folder, om_dir = om, em_dir = em,
parallel = TRUE, parallel_iterations = TRUE)
unlink("D0-F0-cod", recursive = TRUE)
# parallel iterations with bias adjustment:
run_ss3sim(iterations = 1:2, scenarios = c("D0-F0-cod"),
case_folder = case_folder, om_dir = om, em_dir = em, parallel = TRUE,
parallel_iterations = TRUE, bias_adjust = TRUE, bias_nsim = 2)
unlink("D0-F0-cod", recursive = TRUE)
# Return to original working directory:
setwd(wd)
Run the code above in your browser using DataLab