sim_base_out <- simulate_single_concept(
pine_thinning_from_above_1,
init_areas = c(1000, 0, 0, 0, 0, 0),
time_span = 200,
risk_level = 3
)
# Make a plot
plot(sim_base_out, variable = "area")
# Also try the following options for the parameter "variable":
# "vol_standing", "vol_inc_ups", "vol_rmv_total", "vol_rmv_cont",
# "vol_rmv_damage", "vol_mort", "hrvst_det_reg", "hrvst_det_dam"
Run the code above in your browser using DataLab