Assmann1965: Dominant height trajectory for Norway Spruce in Bavaria,...

In Silviculturalist/forester: Forest Science and Forestry

Dominant height trajectory for Norway Spruce in Bavaria, Germany.

Description

Dominant height trajectory for Norway Spruce in Bavaria, Germany.

Height trajectory for Lorey's Mean Height from Assmann & Franz 1965.

Natural Basal Area for Norway Spruce stands in Bavaria

Optimal Basal Area to maximize stem growth for Spruce stands in Bavaria

Diameter - Age curve for Norway Spruce stands in Bavaria, Germany.

Current Annual Increment

Usage

Franz_Assmann_1965_height_trajectory_Germany_Bavaria_Spruce(
  dominant_height,
  age,
  age2
)

Franz_Assmann_1965_Lorey_height_trajectory_Germany_Bavaria_Spruce(
  SIH100,
  age,
  YieldLevel = 3
)

Franz_Assmann_1965_maximumBasalArea_Germany_Bavaria_Spruce(
  SIH100,
  age,
  YieldLevel
)

Franz_Assmann_1965_optimal_BA_Germany_Bavaria_Spruce(SIH100, age, YieldLevel)

Franz_Assmann_1965_diameter_age_Germany_Bavaria_Spruce(
  age,
  SIH100,
  nBG = 1,
  YieldLevel = 1
)

Franz_Assmann_1965_CAI_optimal_BA_Germany_Bavaria_Spruce(
  age,
  SIH100,
  YieldLevel = 1
)

Arguments

dominant_height	Dominant height of the stand, m.
age	Total Age of the stand.
age2	Desired total age of the stand.
SIH100	Site Index at reference age 100 acccording to [forester::Franz_Assmann_1965_height_trajectory_Germany_Bavaria_Spruce]
YieldLevel	Integer 1-3. 1: 'Lower','Medium','Higher'
nBG	0-1. Percent of 'natural basal area', e.g. [forester::Franz_Assmann_1965_maximumBasalArea_Germany_Bavaria_Spruce]

Value

Height of the stand in metres at the desired age.

Lorey's Mean Height, m.

m^2 / ha

Quotient of Optimal Basal Area

Diameter at breast height, cm.

Current Annual Increment, stem volume in m3 per ha, year.

Source

Assmann, E. & Franz, F. 1965. Vorläufige Fichten-Ertragstafel für Bayern. Forstwissenschaftliches Centralblatt 84(1/2):13-43. Available online (2022-04-06): https://www.waldwachstum.wzw.tum.de/fileadmin/publications/Assmann_1965_Vorlaeufige_Fichten-Ertragstafel.pdf

Examples

ggplot()+
xlim(c(0,150))+
geom_function(fun=(\(x) Franz_Assmann_1965_height_trajectory_Germany_Bavaria_Spruce(dominant_height = 40,age = 100,age2 = x)))+
geom_function(fun=(\(x) Franz_Assmann_1965_Lorey_height_trajectory_Germany_Bavaria_Spruce(SIH100 = 40,age = x,YieldLevel = 1)))+
geom_function(fun=(\(x) Franz_Assmann_1965_Lorey_height_trajectory_Germany_Bavaria_Spruce(SIH100 = 40,age = x,YieldLevel = 2)))+
geom_function(fun=(\(x) Franz_Assmann_1965_Lorey_height_trajectory_Germany_Bavaria_Spruce(SIH100 = 40,age = x,YieldLevel = 3)))

ggplot()+
scale_x_continuous(limits=c(0,120))+
  ylim(c(0.7,1))+
  coord_fixed(ratio=500)+
  geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_optimal_BA_Germany_Bavaria_Spruce(SIH100 = 40,age = x,YieldLevel = 3)),linetype=3)+
  geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_optimal_BA_Germany_Bavaria_Spruce(SIH100 = 30,age = x,YieldLevel = 3)),linetype=3)+
  geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_optimal_BA_Germany_Bavaria_Spruce(SIH100 = 40,age = x,YieldLevel = 2)),linetype=2)+
  geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_optimal_BA_Germany_Bavaria_Spruce(SIH100 = 30,age = x,YieldLevel = 2)),linetype=2)+
  geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_optimal_BA_Germany_Bavaria_Spruce(SIH100 = 40,age = x,YieldLevel = 1)),linetype=1)+
  geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_optimal_BA_Germany_Bavaria_Spruce(SIH100 = 30,age = x,YieldLevel = 1)),linetype=1)

ggplot()+
xlim(c(0,120))+
geom_function(fun=(\(x) Franz_Assmann_1965_diameter_age_Germany_Bavaria_Spruce(x,40,YieldLevel = 2)))+
geom_function(fun=(\(x) Franz_Assmann_1965_diameter_age_Germany_Bavaria_Spruce(x,40,YieldLevel = 2,nBG = 0.79)))+
geom_function(fun=(\(x) Franz_Assmann_1965_diameter_age_Germany_Bavaria_Spruce(x,40,YieldLevel = 2,nBG = 0.94)))+
geom_function(fun=(\(x) Franz_Assmann_1965_diameter_age_Germany_Bavaria_Spruce(x,30,YieldLevel = 2)))+
geom_function(fun=(\(x) Franz_Assmann_1965_diameter_age_Germany_Bavaria_Spruce(x,30,YieldLevel = 2,nBG = 0.92)))+
geom_function(fun=(\(x) Franz_Assmann_1965_diameter_age_Germany_Bavaria_Spruce(x,30,YieldLevel = 2,nBG = 0.98)))

ggplot()+
 xlim(c(0,120))+
 ylim(c(10,30))+
 geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_CAI_optimal_BA_Germany_Bavaria_Spruce(x,40,YieldLevel = 1)))+
 geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_CAI_optimal_BA_Germany_Bavaria_Spruce(x,40,YieldLevel = 2)))+
 geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_CAI_optimal_BA_Germany_Bavaria_Spruce(x,40,YieldLevel = 3)))

ggplot()+
 xlim(c(0,120))+
 ylim(c(6,18))+
 geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_CAI_optimal_BA_Germany_Bavaria_Spruce(x,30,YieldLevel = 1)))+
 geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_CAI_optimal_BA_Germany_Bavaria_Spruce(x,30,YieldLevel = 2)))+
 geom_function(fun=\(x) ifelse(x<20,NA,Franz_Assmann_1965_CAI_optimal_BA_Germany_Bavaria_Spruce(x,30,YieldLevel = 3)))

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