vignettes/SARA.R

In afsc-assessments/sara: This is a package for the AFSC Groundfish stock assessment results

## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(tidyverse)
library(scales)

## ----echo=FALSE,warning=FALSE,fig.width=11,fig.height=18----------------------
library(SARA)
SARA()
df<-tibble(left_join(mod_stats,sara_stock));
names(df) <- tolower(names(df))
df |> filter(assessyear==2021) |> ggplot(aes(x=spawnbiomass,y=recruitment,label=fisheryyear)) + 
  geom_point(size=.2) + geom_smooth() + theme_minimal() + facet_wrap(stock~region,scale="free")