View source: R/SKS_1984_Thinning_Guide_Sweden.R
SKS_1984_Thinning_Guide_Sweden | R Documentation |
Thinning Recommendations according to the Swedish Forest Agency 1984.
SKS_1984_Thinning_Guide_Sweden(
H100,
dominantHeight,
northernSweden = TRUE,
species
)
H100 |
Site Index H100 according to Hägglund 1972, 1973. e.g. [forester::Hagglund_1972_northern_Sweden_Height_trajectories_Spruce], [forester::Hagglund_1973_southern_Sweden_Height_trajectories_Spruce], [forester::Hagglund_1974_Sweden_height_trajectories_Pine] |
dominantHeight |
dominant height of the stand. |
northernSweden |
boolean. TRUE if stand is located in northern Sweden (default). |
species |
One of "Pinus sylvestris","Picea abies","Pinus contorta", "Quercus robur,"Fagus sylvatica" or "Deciduous". |
Based on a regression of the original diagrams used in Heureka StandWise v. 2.19. e.g. 2022-09-17.
A list of the maximum reccomended basal area per hectare before and the lowest reccomended basal area after thinning.
data.frame(
"dominantHeight"=seq(10,32,0.1)
) %>% group_by_all() %>%
mutate(data=purrr::map(.x=dominantHeight,
.f = SKS_1984_Thinning_Guide_Sweden,H100=36,
northernSweden = FALSE,
species="Picea abies")) %>%
unnest_wider(data) %>%
ggplot() +
xlim(c(10, 32)) +
ylim(c(18, 44)) +
geom_line(aes(x=dominantHeight,y=Before))+
geom_line(aes(x=dominantHeight,y=After))+
ylab("Basal Area m^2/ha")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.