View source: R/vol_assortment.R
vol_assortment | R Documentation |
The function estimates the share of different assortments. It is expressed in relation to the salable volume, i.e., the sum of pulp wood, saw log, and fuel wood assortments. The function is based on the assortment tables from Offer and Staupendahl (2018) and its derivation is similar to the approach described in Fuchs et al. (2023) for the salable and skidded volume. The underlying assortment tables are based on data from HessenForst, the public forest service of the Federal State of Hesse in Germany. For further details see the woodValuationDE README.
vol_assortment(
diameter.q,
species,
assortment,
value.level = 2,
logging.method = "combined",
species.code.type = "en",
method = "fuchs.orig"
)
diameter.q |
Quadratic mean of the diameter at breast height (dbh) of
the harvested trees |
species |
Tree species, using an available |
assortment |
wood assortment whose share is sought, currently
implemented: |
value.level |
Stand quality expressed as an integer of |
logging.method |
Logging method, with |
species.code.type |
Type of code in which |
method |
argument that is currently not used, but offers the possibility to implement alternative parameters and functions in the future. |
A vector with relative shares of the respective assortment's wood volume.
Fuchs, Jasper M.; Husmann, Kai; v. Bodelschwingh, Hilmar; Koster, Roman; Staupendahl, Kai; Offer, Armin; Moehring, Bernhard, Paul, Carola (2023): woodValuationDE: A consistent framework for calculating stumpage values in Germany (technical note). Allgemeine Forst- und Jagdzeitung 193 (1/2), p. 16-29. doi: 10.23765/afjz0002090
Offer, Armin; Staupendahl, Kai (2018): Holzwerbungskosten- und Bestandessortentafeln (Wood Harvest Cost and Assortment Tables). Kassel: HessenForst (publisher).
# saw log volume per cubic meter salable volume
share.saw.logs <- vol_assortment(40,
"beech",
"saw.logs")
share.saw.logs
# fuel wood per cubic meter salable volume
share.fuel.wood <- (vol_salable(40,
"beech") -
vol_skidded(40,
"beech")) /
vol_salable(40,
"beech")
share.fuel.wood
# pulp wood per cubic meter salable volume
share.pulp.wood <- 1 - share.saw.logs - share.fuel.wood
# saw log volume per cubic meter volume over bark
vol_assortment(40,
"beech",
"saw.logs") *
vol_salable(40,
"beech")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.