selectivity.R

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

## ----selectivity-setupnotes, echo = FALSE, include = FALSE, eval = FALSE------
## # get the block_breaks vector from this file:
## knitr::purl("doc/selectivity.Rmd")
## source("selectivity.R")
## usethis::use_data(block_breaks, overwrite = TRUE)


## -----------------------------------------------------------------------------
# create empty list
block_breaks <- list()

# first additions of blocks break points
block_breaks[["Comm_Trawl_sel"]] <- c(1993, 1998, 2011)
block_breaks[["Comm_Trawl_ret_infl"]] <- c(1998, 2007, 2010, 2011)
block_breaks[["Comm_Trawl_ret_width"]] <- c(1998, 2011)


## -----------------------------------------------------------------------------
# add block break points to list created above
block_breaks[["Comm_Fix_ret_infl"]] <- c(1998, 2011)
block_breaks[["Comm_Fix_ret_width"]] <- c(1998, 2011)


## -----------------------------------------------------------------------------
# add block break points to list created above
block_breaks[["Rec_WA_sel"]] <- c(1987, 1995, 1998, 2007, 2011, 2017)


## -----------------------------------------------------------------------------
# add block break points to list created above
block_breaks[["Rec_OR_sel"]] <- c(1995, 1998, 2007)


## -----------------------------------------------------------------------------
# add block break points to list created above
block_breaks[["Rec_CA_sel"]] <- c(1999)


## -----------------------------------------------------------------------------
# add block break points to list created above
# block_breaks[["Surv_TRI_sel"]] <- c(1995)