# Run a simulation and store the aggregated outcome
state_vars <- setup_statevars(
pine_thinning_from_above_1, c(1000, 0, 0, 0, 0, 0)
)
time_span <- 200
parms <- setup_parms(pine_thinning_from_above_1)
parms$risk_mat <- setup_risk_events(
time_span, avg_event_strength = 1, parms$risk
)
sim_areas_agg <- sim_area_single_concept_with_risk(
state_vars,
parms = parms,
event_times = c(0:time_span),
time_span = time_span
) |>
aggregate_raw_sim_rslt(pine_thinning_from_above_1)
# Growth and yield evaluation
growth_and_yield_evaluation(sim_areas_agg, pine_thinning_from_above_1)
Run the code above in your browser using DataLab