library(MSEtool)
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.