# NOT RUN {
# Compile data
data(X)
data(land)
data(species.table)
# Species groups of interest
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 indicators
fishingPressure(X = X, land = land, FP.groups = FP.groups,
species.table = species.table, years = c(2014:2019))
# }
Run the code above in your browser using DataLab