# \donttest{
# Create multiple scenarios
base <- run_builtin_analysis(year = 2016, include_wwtp = FALSE,
scale = "county", nutrients = "nitrogen")
wwtp <- run_builtin_analysis(year = 2016, include_wwtp = TRUE,
scale = "county", nutrients = "nitrogen")
# Compare scenarios
comparison <- compare_scenarios(list(
"Base (Agricultural Only)" = base,
"With WWTP" = wwtp
))
# View comparison data
print(comparison$comparison_data)
# View plots
print(comparison$plots$bar_chart)
# }
Run the code above in your browser using DataLab