### Create a table for two state indicators and two pressures to evaluate direct
# effects (default). Return a general sensitivity and adaptive capacity
# column as well as uncertainty columns for both components:
ind <- c("seabirds", "seals")
press <- c("plastic pollution", "temperature increase")
sens_ac_tbl <- create_template_sensitivity(
indicators = ind,
pressures = press
)
# --> Export table and re-import after completion or fill in directly in R.
# Assign sensitivity scores from -5 (strong negative response to pressure)
# to +5 (strong positive response) (0 = no sensitivity):
sens_ac_tbl$sens_general <- c(-5,3,-4,4)
# Assign adaptive capacity scores from -1 (none) to +1 (good adaptive capacity):
sens_ac_tbl$ac_general <- c(-1,1,-1,1)
# Assign uncertainty scores from 1 (low) to 3 (high uncertainty):
sens_ac_tbl$uncertainty_sens <- c(1,2,1,1)
sens_ac_tbl$uncertainty_ac <- c(3,2,3,2)
### Create a table for four indicators and three pressures to evaluate both direct
# and indirect effects. Return columns for five trait-specific sensitivities
# and their respective uncertainties, but no adaptive capacity:
ind <- c("cod", "herring", "seabirds", "seals")
press <- c("fishing", "temperature increase", "salinity decrease")
sens_ac_tbl <- create_template_sensitivity(
indicators = ind,
pressures = press,
type = c("direct", "direct_indirect"),
n_sensitivity_traits = 5,
adaptive_capacity = FALSE,
uncertainty = TRUE,
mode_uncertainty = "trait"
)
sens_ac_tbl
# --> You might want to rename the generic trait columns with specific traits.
# --> Export table as e.g. CSV-file and re-import again after completion.
### Create a mixed table for two indicators and two pressures, where for one
# indicator sensitivity is scored overall and for one sensitivity is scored
# by individual traits:
ind <- c("phytoplankton", "herring")
press <- c("temperature", "salinity")
sens_ac_tbl <- create_template_sensitivity(
indicators = ind,
pressures = press,
n_sensitivity_traits = 4,
adaptive_capacity = FALSE,
uncertainty = TRUE,
mode_uncertainty = "general"
)
# Rename trait columns:
names(sens_ac_tbl)[4:7] <- paste0("sens_",
c("feeding", "behaviour", "reproduction", "general"))
# Give overall sensitivity score for phytoplankton
# (keep NAs for herring):
sens_ac_tbl$sens_general[1:2] <- c(-3,0)
# Give trait-specific sensitivity scores for herring
# (keep NAs for phytoplankton):
sens_ac_tbl$sens_feeding[3:4] <- c(0,0)
sens_ac_tbl$sens_behaviour[3:4] <- c(-1,0)
sens_ac_tbl$sens_reproduction[3:4] <- c(-2,-2)
# Give overall uncertainty score:
sens_ac_tbl$uncertainty_sens <- c(1,2,1,1)
Run the code above in your browser using DataLab