age <- 100
mai_var <- "mai_m3_ha_yr" # mai in volume over bark before harvest
si_to_mai_age(2.3, mai_var, age, fe_ytable_larch_schober_moderate_1946)
si_to_mai_age(0.7, mai_var, age, fe_ytable_larch_schober_moderate_1946)
si_to_mai_age(2.3, mai_var, age, fe_ytable_beech_wiedemann_moderate_1931)
si_to_mai_age(0.7, mai_var, age, fe_ytable_beech_wiedemann_moderate_1931)
mai_var <- "red_mai_m3_ha_yr" # mai in vol. under bark minus harvest losses
si_to_mai_age(2.3, mai_var, age, fe_ytable_larch_schober_moderate_1946)
si_to_mai_age(0.7, mai_var, age, fe_ytable_larch_schober_moderate_1946)
si_to_mai_age(2.3, mai_var, age, fe_ytable_beech_wiedemann_moderate_1931)
si_to_mai_age(0.7, mai_var, age, fe_ytable_beech_wiedemann_moderate_1931)
Run the code above in your browser using DataLab