base_out <- simulate_single_concept(
pine_thinning_from_above_1,
init_areas = c(50, 100, 10, 50, 150, 600),
time_span = 50,
risk_level = 3
)
co2_eval_moving(base_out, road_density = 35, mode = "standard")
co2_eval_moving(base_out, road_density = 35, mode = "nordic")
Run the code above in your browser using DataLab