-
Notifications
You must be signed in to change notification settings - Fork 2
/
selectivity.R
42 lines (28 loc) · 1.52 KB
/
selectivity.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
## ----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)