temperature_scenario <- list(data = data.frame(Tmin = c(-5, -2, 0, 4, 9, 12,
15, 13, 12, 9, 4, 0),
Tmax = c(0, 4, 8, 12, 15, 18,
21, 19, 17, 14, 11, 5)),
reference_year = 1975,
scenario_type = "absolute",
labels = list(GCM = "none",
RCM = "none",
Time = "1950-2000"))
checked_temperature_scenario <-
check_temperature_scenario(temperature_scenario,
n_intervals = 12,
check_scenario_type = FALSE,
scenario_check_thresholds = c(-5, 10),
update_scenario_type = FALSE)
checked_temperature_scenario <-
check_temperature_scenario(temperature_scenario,
n_intervals = 12,
check_scenario_type = TRUE,
scenario_check_thresholds = c(-5, 10),
update_scenario_type = FALSE)
checked_temperature_scenario <-
check_temperature_scenario(temperature_scenario,
n_intervals = 12,
check_scenario_type = TRUE,
scenario_check_thresholds = c(-5, 10),
update_scenario_type = TRUE)
Run the code above in your browser using DataLab