knitr::opts_chunk$set(echo = TRUE)

library(RDBEScore)
dat <- MadeUpData_for_SL_SA_tests_v1

ss <- dat[["SS"]]
ss
sl <- dat[["SL"]]
sl <- subset(sl, SLspeclistName %in% ss$SSspecListName)
sl
sa <- dat["SA"]
sa
dat_after <- generateZerosUsingSL(dat)

ss_after <- dat_after[["SS"]]
ss_after
sl_after <- dat_after[["SL"]]
sl_after <- subset(sl_after, SLspeclistName %in% ss_after$SSspecListName)
sl_after
sa_after <- dat_after["SA"]
sa_after


ices-tools-dev/icesRDBES documentation built on April 17, 2025, 1:58 p.m.