In iantaylor-NOAA/Lingcod_2021: Estimate the Status of Lingcod off the US West Coast in 2021

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"),
  colors = c(noaablue = "#00467F")
)

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[

STAR requests 05-09

• WA recreational catch time series
• time-varying selectivity
• DM
• Fixed gear ages in North
• Tune South without early lengths

---

Lingcod STAT

July 13-14, 2021
]

---

05 Request

Request: Update the northern model to reflect the error in the WA recreational mortality estimates. Provide a figure of WA dead discard catch and retained recreational catch.

Short response: Small changes in base model. Thank you to Theresa at WDFW for checking this and requesting that we look into it.

---

05 Corrected landings

.center[]

---

05 Landed (black), dead discard (red), total (green)

.center[]

---

05 Compare SSB

.center[]

---

05 Compare unfished

.center[]

06 Request

Request: Add time varying selectivity for the CA rec fishery in the South model. Add a block that would encompass from 1959 to 1972. Provide the model results (biomass, recruitments, and recdevs) and the estimated selectivity curves. Provide information on how the fit to the data improved.

---

06 Compare time series

.center[]

---

06 Compare recruitment

.center[]

06 Compare recruitment devs

.center[]

---

06 Compare selectivity

.center[]

---

06 Change in likelihoods

Likelihood | Base | Block CA rec 1972 ---------- | ---- | ----------------- TOTAL | 0 | 0.12 Survey | 0 | 0.56 Length_comp | 0 | 0.81 Age_comp | 0 | -0.06 Discard | 0 | -0.07 Parm_priors | 0 | 0.13

---

07 Request

Request: Perform a model run, for the status quo Base model only, for the North without the fishery age data and rerun with Dirichlet weighting. Provide initial results and comparison of Francis vs Dirichlet weights.

---

07 Compare time series

.pull-left-40[ - No fishery ages + Dirichlet-multinomial likelihood - New model shown in red in right-hand plots ]

.pull-right-60[ ]

---

07 Compare recruitment

.pull-left[ Recruitment ]

.pull-right[ Recruitment deviations ]

---

07 Likelihoods

r table_sens("../tables/sens_table_n_comp_STAR_day2_request3.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12)

---

08 Request

A) Remove all fixed gear age composition data. B) Remove fixed gear age composition data for the years 1999-2011. C) Do A and B with and without offsets for sex-based selectivity for all fleets. Requests are for North only model. Provide the model comparisons slides and table(s) with likelihoods and key parameter outputs, selectivity outputs, etc. The STAT will include the updated results from Day 2, Request 5.

---

08 Compare time series

.pull-left[ ]

.pull-right[ ]

---

08 Compare recruitment

.pull-left[ ]

.pull-right[ ]

---

08 Compare likelihoods

`r table_sens("../tables/sens_table_n_star08.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- ### STAR Request 8 extras .pull-left-40[ Request 8 showed little impact of removing the fixed-gear ages from 1999-2011 but large impact from removing all fixed-gear ages. This suggests that there may be some conflict in the model related to either the recent ages from 2012-onward or prior to 1999. We tested the impact of removing early ages from all fisheries either prior to 1990 or prior to 2000. ] .pull-right-60[ ] --- ### STAR Request 8 extras .pull-left[ ] .pull-right[ ] --- ### STAR Request 8 .pull-left[ ] .pull-right[ ] --- ### STAR Request 8 extras

`r table_sens("../tables/sens_table_n_star08_extras.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` --- # 09 Request ### Conduct additional tuning and exploration of the southern model without the 1959- 1972 length composition data to see if a reasonable new base model can be developed. Provide the model comparisons slides and table(s) with likelihoods and key parameter outputs, selectivity outputs, etc. --- ### 09 Compare time series .pull-left[ ] .pull-right[ ] --- ### 09 Compare recruitment .pull-left[ ] .pull-right[ ] --- ### 09 Compare Triennial & WCGBTS .pull-left[ ] .pull-right[ ] --- ### 08 Compare likelihoods

`r table_sens("../figures/STAR_request9/sens_table_s_star.csv", caption = "", format = "html") %>% kableExtra::kable_styling(font_size = 12) ` ---

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