knitr::opts_chunk$set(
  echo = FALSE,
  message = FALSE,
  warning = FALSE,
  message = FALSE,
#   dev = "svg",
  fig.width = 12,
  fig.height = 12
  # fig.retina = 3
  )
xaringanthemer::style_mono_accent(
  # base_color = nmfspalette::nmfs_cols("darkblue"),
  base_color = "#00467F",
  header_font_google = xaringanthemer::google_font("Josefin Sans"),
  text_font_google   = xaringanthemer::google_font("Montserrat", "300", "300i"),
  code_font_google   = xaringanthemer::google_font("Fira Mono")
)

class: title-slide, inverse

<style>
.center2 {
  margin: 0;
  position: absolute;
  top: 50%;
  left: 50%;
  -ms-transform: translate(-50%, -50%);
  transform: translate(-50%, -50%);
}
</style>
.code-bg-white .remark-code, .code-bg-white .remark-code * {
 background-color:white!important;
}

.bg-text[

Lingcod modeling and results


Lingcod STAT

July 12, 2021
]


class: top

Outline

This presentation will focus on three things:

More detailed model results and fits to data can be explored as needed using the materials posted to https://iantaylor-noaa.github.io/Lingcod_2021/

??? Comments that are hidden.


class: top

2017 STAR panel recommendations

--

  1. Cross-validate age-readings among labs and year

  2. Acquire information from Canadian and Mexican authorities

  3. Investigate stock structure

  4. Concern for ages of unsexed fish being assigned equally to the sexes without regard for length

  5. Perform a spatially-explicit stock assessment model

  6. Fixed length at age 14 in North model

  7. Estimate other key parameters, namely $M$ and $h$

  8. Estimate area of habitat per area


class: top

2017 STAR panel recommendations

  1. Cross-validate age-readings among labs and year

  2. Acquire information from Canadian and Mexican authorities

  3. Investigate stock structure

  4. Concern for ages of unsexed fish being assigned equally to the sexes without regard for length

  5. Perform a spatially-explicit stock assessment model

  6. Fixed length at age 14 in North model: .noaablue[estimated and performed likelihood profiles]

  7. Estimate other key parameters, namely $M$ and $h$: .noaablue[estimated]

  8. Estimate area of habitat per area


layout: true class: shuriken-300

.blade1.bg-blue[.content.center.vmiddle[

.white[

Likelihood
profiles ] ]] .blade2.bg-light-green[.content.vertical-rl.center[

.blue[100 jitter iterations]

]] .blade3.bg-light-blue[.content.center[

.pink[Correlation of
Bayesian posteriors]

]] .blade4.bg-green[.content.sideways-center.vmiddle[

.yellow[Fits to the data]

]] .hole.bg-white[.content.center.vmiddle[ {{content}} ]]


class: hide-blade1 hide-blade2 hide-blade3 hide-blade4

Diagnostics


class: hide-blade2 hide-blade3 hide-blade4 count: false

Diagnostics


class: hide-blade3 hide-blade4 count: false

Diagnostics


class: hide-blade4 count: false

Diagnostics


count: false

Diagnostics


layout: false

.blue[.large[Likelihood profiles
steepness for southern model]]
.pull-left[] .pull-right[]

??? Profiles before and after removing age data provided insight into what parts of the data were informative.


.large[.pink[Correlation of
Bayesian posteriors]]
- Estimate posteriors using MCMC

???


Sensitivity analyses


North sensitivity to biology and recruitment

.pull-left-30[ - North model was not sensitive to most of these changes - Largest change came from fixing female M = 0.3 and h = 0.7 - Base model estimates were M = 0.41 and h = 0.80 ]

.pull-right-70[ fig ]


North sensitivity to biology and recruitment

`r table_sens("../tables/sens_table_n_bio_rec.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- ### South sensitivity to biology and recruitment .pull-left-30[ - South model was not sensitive to most of these changes - Largest change came from fixing female M = 0.3 and h = 0.7 - Base model estimates were M = 0.26 and h = 0.54 ] .pull-right-70[ ![fig](../docs/South/sens_timeseries_s_bio_rec.png) ] --- ### South sensitivity to biology and recruitment

`r table_sens("../tables/sens_table_s_bio_rec.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- ### North sensitivity to composition data .pull-left-40[ - Dirichlet-multinomial likelihood: - increased weight on all comps - reduced fit to survey - reduced differentiation in weights among fleets ![fig](../figures/comp_weights_DM_vs_Francis_north.png) ] .pull-right-60[ ![fig](../docs/North/sens_timeseries_n_comp.png) ] --- ### North sensitivity to composition data

`r table_sens("../tables/sens_table_n_comp.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- ### South sensitivity to composition data .pull-left-40[ - South model was sensitive to most changes in comp data - D-M likelihood again increased comp weights - Adding more age data pushed scale to implausibly high levels ![fig](../figures/comp_weights_DM_vs_Francis_south.png) ] .pull-right-60[ ![fig](../docs/South/sens_timeseries_s_comp.png) ] --- ### South sensitivity to composition data

`r table_sens("../tables/sens_table_s_comp.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- ### North sensitivity to index changes .pull-left-40[ - fishery indices had biggest influence - WA rec index has the longest time series - OR CPFV sensitivity (not included in report) is using alternative OR Rec index - sensitivity to index removals is less than for the south model ] .pull-right-60[ ![fig](../docs/North/sens_timeseries_n_index.png) ] --- ### North sensitivity to index changes

`r table_sens("../tables/sens_table_n_index.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- ### South sensitivity to index changes .pull-left-40[ - Larger impact from removing the CPFV DebWV index - "no fishery indices" accidentally included the CPFV DebWV index - "no fishery indices v2" (not included in report) excludes CPFV DebWV index - CA CRFSPR sensitivity (not included in report) is using alternative CA Rec index - Larger impact from removing the Triennial survey ] .pull-right-60[ ![fig](../models/2021.s.014.001_esth/custom_plots/sens_timeseries_s_index.png) ] --- ### South sensitivity to index changes

`r table_sens("../tables/sens_table_s_index.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- ### Additional sensitivities: selectivity & retention An additional set of senstivities not included in the assessment reports: 1. make commercial fixed-gear fleet have asympotic selectivity
(south only as north already had FG estimated asymptotic) 2. add an offset parameter to estimate sex-specific selectivity 3. sex-specific selectivity + fix female _M_ at 0.3 4. model retention prior to 1998 as equal to the current era (2011-onward) rather than retaining almost 100% of all fish --- ### North sensitivity to selectivity & retention .pull-left-30[ - little sensitivity to retention assumption - bigger impact of sex-specific selectivity (more details to follow) ] .pull-right-70[ ![fig](../models/2021.n.022.001_new_INIT/custom_plots/sens_timeseries_n_sel.png) ] --- ### North sensitivity to selectivity & retention

`r table_sens("../tables/sens_table_n_sel.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- ### South sensitivity to selectivity & retention .pull-left-30[ - small impact of making one fleet asymptotic - big impact of retention assumption - big impact of sex-specific selectivity ] .pull-right-70[ ![fig](../models/2021.s.014.001_esth/custom_plots/sens_timeseries_s_sel.png) ] --- ### South sensitivity to selectivity & retention

`r table_sens("../tables/sens_table_s_sel.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- ### North & South sensitivity to retention .pull-left-40[ - Assuming early and late retention are equal has bigger impact on south model where discard rates are higher - Estimated selectivity for the south in the early period is less plausible with higher retention ![fig](../models/2021.s.014.406_less_early_retention/custom_plots/selectivity_comm.png) ] .pull-right-60[ ![fig](../figures/discard_rates_sensitivity.png) ] --- ### North & South sex-specific selectivity .pull-left[

#### North

![fig](../models/2021.n.022.404_female_sel_offset/custom_plots/sel01_comm_fleets.png) ![fig](../models/2021.n.022.404_female_sel_offset/custom_plots/sel01_noncomm_fleets.png) ] .pull-right[

#### South

![fig](../models/2021.s.014.404_female_sel_offset/custom_plots/sel01_comm_fleets.png) ![fig](../models/2021.s.014.404_female_sel_offset/custom_plots/sel01_noncomm_fleets.png) ] --- ### South sex-specific selectivity .pull-left[

#### Base fit to aggregated length comps

![fig](../docs/South/comp_lenfit__aggregated_across_time.png) ] .pull-right[

#### ... with sex-specific selectivity

![fig](../models/2021.s.014.404_female_sel_offset/plots/comp_lenfit__aggregated_across_time.png) ] --- ### Conclusions on selectivity & retention - They provide useful information about tensions within the base models - They show confounding between ratio of female to male _M_ and female to male selectivity - Some parameter estimates seem less plausible in each case - None of these additional models appears as reasonable as the base models --- ### Castillo-Jordán et al. (in prep): key parameters ![](../figures/castillojordan_inprep_mvh.png) --- ### Comparison of areas: key parameters .pull-left-40[ - Sex-specific natural mortality $M$ estimated with separate priors in both models - Stock-recruit steepness $h$ estimated with informative prior for both models - North model estimates associated with a more productive stock: - greater length-at-age (also more precisely estimated), - higher $M$, and - higher $h$ ] .pull-right-60[![fig](../figures/compare_north_vs_south_pars.png)] --- ### Comparison of areas: quantities of interest .pull-left-40[ - Unfished biomass more similar than would be expected given relative area of the two regions - Rough estimate is ~2.3x larger area in the north - Fishing intensity in 2020 is similar in both regions - Fraction unfished in 2021 is greater in the north than the south and more precisely estimated - MSY significantly larger in the north than the south ] .pull-right-60[ ![fig](../figures/compare_north_vs_south_quants.png) ] --- ### Concluding comments - Both lingcod models are complex and challenging to understand individually and in comparison with each other - The base models resolve many of the issues raised in previous STAR panel but raise new questions for future research - Model scale is sensitive to a variety of assumptions - Models fit indices well, indicating that we will be able to track changes in abundance - Data suggest that the south is less productive than the north - Assuming equal values for mortality and steepness results in less plausible relative scale of the two models - On the whole, both models should provide useful tools for managing these stocks

iantaylor-NOAA/Lingcod_2021 documentation built on Oct. 30, 2024, 6:42 p.m.