The package provides the functionality to conduct model diagnostics for Stock Synthesis (SS3) models. The standard diagnostic included in this package are standard required analysis for U.S. West Coast Groundfish stock assessments managed by the Pacific Fisheries Management Council. The package was designed to perform model diagnostics and create plots and tables in a standardized format. The standardized approach will facilitate the use of these outputs in the assessment template approach.
The diagnostics created by the package are: - jitter runs to ensure
model convergence at the Maximum Likelihood Estimate (MLE), -
retrospective runs to examine model sensitivity to recent data,
and
- likelihood profiles across parameters.
This package does not maintain backward compatibility with previous versions of Stock Synthesis. However, if needed user can download older package versions that may work with older versions (3.30.+) of Stock Synthesis.
nwfscDiag can be installed via github:
install.packages("remotes")
remotes::install_github("pfmc-assessments/nwfscDiag")
or by:
install.packages("pak")
pak::pak("pfmc-assessments/nwfscDiag")
This package was designed to run the standard suite of diagnostics
performed on assessments of U.S. West Coast groundfish stocks: jitters,
parameter profiles, and retrospective runs. This package allows users to
run all standard diagnostics with a single function call and have a
default suite of diagnostic plots and tables automatically created in a
standardized formate. The package calls r4ss::jitter
,
r4ss::retro
, and r4ss::profile
for each of the
diagnostics and then creates plot via various r4ss
plotting
functions and unique plotting code only available within
nwfscDiag
.
An additional diagnostic function that does MCMC draws via
adnuts
was added in April 2025 to the package. This
function does not perform a full MCMC run, but rather does a limited
number of draws designed to run within a one to two hours (depending
upon your machine) that can allow users to diagnose poorly behaved
parameters. The run_mcmc_diagnostic
function will run a
limited number of MCMC draws, multiple chains, and thinning and provide
diagnostic plots for slow and fast mixing parameters.
First, you should specify the directory where the base model is located and where the diagnostics will be run and the name of the base model folder:
library(nwfscDiag)
directory <- "C:/your directory"
base_model_name <- "base model"
Another way to do handle directory management is by using a project
file and the here
package:
directory <- here::here("models")
base_model_name <- "base model"
The get_settings_profile()
specifies which parameters to
run a profile for and the parameter ranges for each profile. The low and
high values can be specified in 3 ways:
Specify the parameters to profile over along with the parameter range and step size:
profile_info <- get_settings_profile(
parameters = c("NatM_uniform_Fem_GP_1", "SR_BH_steep", "SR_LN(R0)"),
low = c(0.40, 0.25, -2),
high = c(0.40, 1.0, 2),
step_size = c(0.005, 0.05, 0.25),
param_space = c('multiplier', 'real', 'relative')
)
The parameters
function argument specifies the
parameters to profile over where the string provided should match the
string label in the SS3 control file. The low
,
high
, step_size
, and param_space
inputs should be vectors of equal length to the parameters
input. The above example will profile over female natural mortality,
steepness, and
.
The female natural mortality parameter profile will range from (base
parameter - base parameter* x) to (base parameter + base parameter * x)
in steps of 0.005, the steepness parameter profile will range from 0.25
to 1.0 in step size of 0.05, and the
parameter profile will range from
(
- 0.25) to
(
+ 0.25) in step size of 0.25.
Next the settings for running the profiles, jitter, and
retrospectives within r4ss
needs to be specified using
get_settings()
:
model_settings <- get_settings(
settings = list(
base_name = base_model_name,
run = c("jitter", "profile", "retro"),
profile_details = profile_info )
)
where the above example requests jitters, profiles, and retrospective
models to be run for the model file specified above as the
base_model_name
with the profile setting set using
get_settings_profile()
above. Calling
model_settings
in the R terminal will show all default
settings.
If profile
is included in the run requested and
verbose = TRUE
in the model_settings()
the
values for each parameter profiled across will be printed to the screen.
Reviewing this information prior to running all diagnostics can be
useful to ensure the parameter range and step size was set
correctly.
Run all diagnostics:
run_diagnostics(mydir = directory, model_settings = model_settings)
path <- C:/user.name/model_directory
run_mcmc_diagnostics(
dir_wd = path,
model = "ss3",
extension = ".exe",
iter = 200,
chains = 2,
interactive = FALSE,
verbose = FALSE
)
If you are estimating discarding and retention within your model, you should be comparing the model catch estimates to those within the GEMM. While the model catches estimates are unlikely to be identical to those within the GEMM, they should be comparable by year. It is up to the assessment scientist to determine how closely they should align. The `compare_model_gemm_catch() function creates figures and rda files with comparisons between the model estimates and the GEMMj.
replist <- r4ss::SS_output("C:/your model directory)
compare_catch <- compare_model_gemm_catch(
replist = replist,
common_name = "sablefish"
)
library(nwfscDiag)
directory <- here::here("models")
base_model_name <- "base model"
profile_settings <- get_settings_profile(
parameters = c("SR_BH_steep"),
low = c(0.25),
high = c(1.0),
step_size = c(0.05),
param_space = c('real')
)
model_settings <- get_settings(
settings = list(
base_name = base_model_name,
run = "profile",
profile_details = profile_settings)
)
run_diagnostics(mydir = directory, model_settings = model_settings)
library(nwfscDiag)
directory <- here::here("models")
base_model_name <- "base model"
model_settings <- get_settings(
settings = list(
base_name = base_model_name,
run = "jitter",
Njitter = 100,
jitter_fraction = 0.10)
)
run_diagnostics(mydir = directory, model_settings = model_settings)
library(nwfscDiag)
directory <- here::here("models")
base_model_name <- "base model"
model_settings <- get_settings(
settings = list(
base_name = base_model_name,
run = "retro",
retro_yrs = -1:-10)
)
run_diagnostics(mydir = directory, model_settings = model_settings)
There are instances where not all models runs within a parameter
profile converge. In this case one needs to rerun only select models
that failed to converge in the profile. The
rerun_profile_vals()
function allows users to do this.
library(nwfscDiag)
directory <- here::here("models")
base_model_name <- "base model"
rerun_profile_vals(
mydir = file.path(model_dir, base_name),
model_settings = model_settings,
para_name = "SR_LN(R0)",
run_num = c(6, 4,3,2),
data_file_nm = "base_model_data_file.dat")
where the run_num
is the number reported in the
profile_SR_LN(RO))_results.csv file under the run column. Profiles are
run out from the base model parameter value to lower or higher values to
improve model convergence and hence, the run number reported in the csv
is not sequential from the lower to upper bounds.
r4ss
v1.49.3+ supports running models in parallel. This
can be particularly helpful when running jitters. In order to run
jitters in parallel, additional specifications are needed outside the
nwfscDiag
package and some additional R packages
(parallelly
, future
) need to be installed:
ncores <- parallelly::availableCores(omit = 1)
future::plan(future::multisession, workers = ncores)
model_settings <- get_settings(settings = list(
exe = "ss3",
base_name = base_model,
run = "jitter",
Njitter = 100,
jitter_fraction = 0.10))
run_diagnostics(mydir = dir, model_settings = model_settings)
future::plan(future::sequential)
This same approach could be done with profiles, but is not recommended for models with convergence issues.