# Make a stand data.frame (or nicer, a tibble) that meets the minimum
# requirements for setting up a fe_Stand object
some_stand <- tibble::tibble(
tree_id = as.character(c(1:100)),
species_id = as_fe_species_tum_wwk_short(
as.character(c(rep(1, 40), rep(5, 60)))
),
time_yr = rep(2022, 100),
dbh_cm = c(rnorm(40, 40.1, 7.3), rnorm(60, 32.8, 8.4)),
)
# Make the object
some_fe_stand <- fe_stand(
some_stand,
tree_id_col = "tree_id",
species_id_col = "species_id",
time_yr_col = "time_yr",
dbh_cm_col = "dbh_cm",
area_ha = 0.25
)
# The summary with different language choices
options(fe_spec_lang = "code")
summary(some_fe_stand)
options(fe_spec_lang = "sci")
summary(some_fe_stand)
options(fe_spec_lang = "eng")
summary(some_fe_stand)
options(fe_spec_lang = "ger")
summary(some_fe_stand)
# Use example stands
options(fe_spec_lang = "eng")
norway_spruce_1_fe_stand |> summary()
summary(european_beech_1_fe_stand)
options(fe_spec_lang = "sci")
summary(selection_forest_1_fe_stand)
spruce_beech_1_fe_stand |> summary()
options(fe_spec_lang = "code")
summary(selection_forest_1_fe_stand)
spruce_beech_1_fe_stand |> summary()
Run the code above in your browser using DataLab