SKS_1984_Thinning_Guide_Sweden: Thinning Recommendations according to the Swedish Forest...

View source: R/SKS_1984_Thinning_Guide_Sweden.R

SKS_1984_Thinning_Guide_SwedenR Documentation

Thinning Recommendations according to the Swedish Forest Agency 1984.

Description

Thinning Recommendations according to the Swedish Forest Agency 1984.

Usage

SKS_1984_Thinning_Guide_Sweden(
  H100,
  dominantHeight,
  northernSweden = TRUE,
  species
)

Arguments

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".

Details

Based on a regression of the original diagrams used in Heureka StandWise v. 2.19. e.g. 2022-09-17.

Value

A list of the maximum reccomended basal area per hectare before and the lowest reccomended basal area after thinning.

Examples



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")

Silviculturalist/forester documentation built on April 20, 2024, 2:13 p.m.