timberharvestedvolume: Compute the timber harvested volume

Description Usage Arguments Details Value Examples

View source: R/timberharvestedvolume.R

Description

Compute the timber harvested volume

Usage

1
2
3
4
5
6
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 the logged volume (TimberLoggedVolume) and when fuel = "2", the logged volume without the hollow trees (NoHollowTimberLoggedVolume). NoHollowTimberLoggedVolume is the logged volume (TimberLoggedVolume) when fuel = "0" or "1".

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
data(Paracou6_2016)
data(MainTrails)
data(HarvestablePolygons)

inventory <- addtreedim(inventorycheckformat(Paracou6_2016),
volumeparameters = ForestZoneVolumeParametersTable)

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

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

thomasgaquiere/Maria documentation built on Dec. 24, 2021, 1:20 a.m.