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_cutting(base_out, "standard")
co2_eval_cutting(base_out, "nordic")
Run the code above in your browser using DataLab