data-raw/swordfish.R

In Blue-Matter/SAMtool: Stock Assessment Methods Toolkit

library(SAMtool)

swo <- read.csv("data-raw/swordfish.csv")


swordfish <- new("Data")
swordfish@Name <- "North Atlantic Swordfish (Source: ASPIC software)"
swordfish@Year <- swo$Year
swordfish@Cat <- matrix(swo$Catch, nrow = 1)
swordfish@Ind <- matrix(swo$Index, nrow = 1)
swordfish@CV_Ind <- matrix(0.3, 1, length(swordfish@Year))

usethis::use_data(swordfish, overwrite = TRUE)