sim_co2_out <- simulate_single_concept(
pine_thinning_from_above_1,
init_areas = c(1000, 0, 0, 0, 0, 0),
time_span = 200,
risk_level = 3
) |>
fuel_and_co2_evaluation(road_density_m_ha = 35, mode = "nordic")
# Make a plot
plot(sim_co2_out, plot_type = "em_by_type")
# Also try the plot types "fl_by_type", "em_by_phase", "fl_by_phase",
# "em_vs_inc", "em_vs_hrv", "em_inc_ratio"
Run the code above in your browser using DataLab