vol_skidded | R Documentation |
The function estimates the skidded share of the wood volume. It is expressed in relation to the volume over bark (German unit: Vfm m.R.) as usually provided by yield tables and forest simulators. This includes all pulp wood and sawlog assortments. It is assumed that the fuel wood assortments are processed by buyers themselves and that they are thus not commercially delivered to the forest road. The share of salable wood is required to derive the costs for harvesting and skidding per cubic meter volume over bark. The function is based on the assortment tables from Offer and Staupendahl (2018) and its derivation is described in Fuchs et al. (2023). 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_skidded(
diameter.q,
species,
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 |
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 skidded 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).
vol_skidded(40,
"beech")
# species codes Lower Saxony (Germany)
vol_skidded(40,
211,
species.code.type = "nds")
# vector input
vol_skidded(seq(20, 50, 5),
"spruce")
vol_skidded(rep(seq(20, 50, 10),
2),
rep(c("beech", "spruce"),
each = 4))
vol_skidded(rep(seq(20, 50, 10),
2),
rep(c("beech", "spruce"),
each = 4),
logging.method = rep(c("manually", "harvester"),
each = 4))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.