### Create a full template for three pressures, including all four components
# and a general uncertainty column:
press <- c("fishing", "temperature increase", "salinity decrease")
exp_tbl <- create_template_exposure(pressures = press)
# --> Export table and re-import after completion or fill in directly in R.
# Rename exposure components
names(exp_tbl)[2:5] <- c("magnitude", "frequency", "trend", "spatial")
# Assign individual scores between 1 (low) and 5 (high impact):
exp_tbl$magnitude <- c(1,5,4)
exp_tbl$frequency <- c(1,5,3)
exp_tbl$trend <- c(1,4,2)
exp_tbl$spatial <- c(1,5,5)
# Assign uncertainty scores from 1 (low) to 3 (high uncertainty):
exp_tbl$uncertainty <- c(1,1,3)
### Create a template for two more hazardous risks with only two components
# ('magnitude' and 'spatial'), including component-specific uncertainties,
# and a probability column:
hazard <- c("heat waves", "hurricanes")
exp_tbl <- create_template_exposure(
pressures = hazard,
n_components = 2,
mode_uncertainty = "component",
probability = TRUE
)
# Rename components and uncertainties
names(exp_tbl)[2:5] <- c("magnitude", "spatial", "uncertainty_magnitude",
"uncertainty_spatial")
exp_tbl$magnitude <- c(5,4)
exp_tbl$spatial <- c(5,3)
exp_tbl$uncertainty_magnitude <- c(1,1)
exp_tbl$uncertainty_spatial <- c(3,3)
# Assign probabilities of their occurrence within the assessed future period:
exp_tbl$probability <- c(0.8,0.3)
Run the code above in your browser using DataLab