timberharvestedvolume: Compute the timber harvested volume

In VincyaneBadouard/LoggingLab: An R Package to Simulate Forest Logging

Compute the timber harvested volume

Description

Computes the timber harvested volume in healthy trees exploited for timber, and in the hollow trees if they are also harvested for fuel wood.

Usage

timberharvestedvolume(
  inventory,
  scenario,
  fuel = NULL,
  advancedloggingparameters = loggingparameters()
)

Arguments

inventory	Input inventory (see the inputs formats and metadata in the vignette) (data.frame)
scenario	Logging scenario: "RIL1", "RIL2broken", "RIL2", "RIL3", "RIL3fuel", "RIL3fuelhollow" or "manual"(character) (see the vignette)
fuel	Fuel wood exploitation: no exploitation = "0", exploitation of damage and unused part of logged trees for fuel = "1", exploitation of hollow trees, damage and and unused part of the log for fuel = "2"
advancedloggingparameters	Other parameters of the logging simulator loggingparameters (list)

Details

When fuel is "2", by default, 2/3 of the log of a hollow tree will be usable as timber and 1/3 as fuel wood ('TreeHollowPartForFuel'). When fuel is not "2", hollow trees are not used for timber nor fuel wood. Dead trees from the operation (trails, secondary windfall) are never exploited as timber, but as fuel wood if chosen.

Value

A list with:

• TimberLoggedVolume: the timber logged volume (in m3)

• NoHollowTimberLoggedVolume: the timber logged volume from only healthy trees (in m3) and add in the inventory the 'TimberLoggedVolume' column to indicate the timber volume logged by tree

Examples

data(Paracou6_2016) # inventory
data(DTMParacou) # topography
data(MainTrails)  # MainTrails
data(HarvestableAreaOutputsCable)
data(SpeciesCriteria) # species exploitability criteria
data(ForestZoneVolumeParametersTable) # volume parameters

inventory <- addtreedim(cleaninventory(Paracou6_2016, PlotMask),
volumeparameters = ForestZoneVolumeParametersTable)

inventory <- suppressMessages(treeselection(inventory,
topography = DTMParacou,
speciescriteria = SpeciesCriteria,
scenario = "manual", objective = 10, fuel = "2", diversification = TRUE,
winching = "0", specieslax = FALSE, objectivelax = TRUE,
harvestablearea = HarvestableAreaOutputsCable$HarvestableArea,
plotslope = HarvestableAreaOutputsCable$PlotSlope,
maintrails = MainTrails,
harvestablepolygons = HarvestableAreaOutputsCable$HarvestablePolygons,
advancedloggingparameters = loggingparameters())$inventory)

timberharvestedvolume(inventory, scenario = "manual", fuel = "2",
advancedloggingparameters = loggingparameters())

VincyaneBadouard/LoggingLab documentation built on Oct. 16, 2024, 9:42 p.m.