# Packages
library(plyr)
library(dplyr)
# User data
################################################################################
# cMSY example data
cmsy_data <- read.csv("data-raw/O_ICES&BS_Catch_7.csv", as.is=T)
SOLIRIS <- cmsy_data %>%
filter(Stock=="sol-iris")
# OCOM example data
ocom_data <- read.csv("data-raw/ocom_data.csv", as.is=T)
TIGERFLAT <- ocom_data %>%
filter(stock=="Tiger Flathead")
# Example RAMLDB stock
load("data-raw/YELLSNEMATL.Rdata")
YELLSNEMATL_orig <- YELLSNEMATL
YELLSNEMATL <- YELLSNEMATL_orig %>%
select(stockid, year, tc, ssb, f, b_bmsy, f_fmsy) %>%
rename(catch=tc, biomass=ssb, bbmsy=b_bmsy, ffmsy=f_fmsy)
# Example COM estimates
load("data-raw/ramldb_preds_all.Rdata")
# Build data
usethis::use_data(SOLIRIS, overwrite=T)
usethis::use_data(TIGERFLAT, overwrite=T)
usethis::use_data(YELLSNEMATL, overwrite=T)
usethis::use_data(preds, overwrite=T)
# Internal data
################################################################################
# Load data
load("data-raw/BRTmodelP8.Rdata")
load("data-raw/BRTmodelP38.Rdata")
load("data-raw/refined_orcs_approach_bct_model.Rdata")
# Build data
usethis::use_data(BRTmodelP8, BRTmodelP38, rorcs_model, overwrite=T, internal=T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.