# NOT RUN {
# Compile data
data(X)
data(land)
data(species.table)
data(species.info)
# Species groups of interest
landings.groups <- c("ALL", "CLUPEIDS.L", "FLATFISH.L", "GROUNDFISH.L")
FP.groups <- data.frame(rbind(c("ALL", "ALL"),
c("CLUPEIDS", "CLUPEIDS.L"),
c("FLATFISH", "FLATFISH.L"),
c("GROUNDFISH", "GROUNDFISH.L")))
names(FP.groups) <- c("group.X", "group.land")
# Calculate standardized indicators
allPressure(X = X, land = land, species.table = species.table,
speciesinfo.table = species.info, landings.groups = landings.groups,
FP.groups = FP.groups, minTL = c(0, 3.25), years = c(2014:2019), raw = FALSE, std = TRUE)
# }
Run the code above in your browser using DataLab