futurereserve: Future & reserve trees designation

In thomasgaquiere/Maria: Simulate Different Forms of Logging on a Forest

Description

Future & reserve trees designation

Usage

futurereserve(
  inventory,
  speciescriteria,
  advancedloggingparameters = loggingparameters()
)

Arguments

inventory	Input inventory (see the inputs formats and metadata in the vignette) (data.frame)
speciescriteria	Table of species exploitability criteria : species names, economic interest level, minimum and maximum felling diameter, in the same format as SpeciesCriteria (data.frame)
advancedloggingparameters	Other parameters of the logging simulator loggingparameters (list)

Details

Future trees are all trees satisfying the following conditions:

• species of 1st economic rank

• DBH between 35cm ('FutureTreesMinDiameter') and the species MinFD or UpMinFD if it has been raised for its species.

Reserve trees are randomly chosen among future trees so that the number of reserve trees is equal to the number of harvested trees.

Value

input inventory with selected future and reserve trees (LoggingStatus = "future"/"reserve"), for your logging criteria (SpeciesCriteria)

See Also

Paracou6_2016, SpeciesCriteria, loggingparameters

Examples

data(Paracou6_2016)
data(ParamCrownDiameterAllometry)
data(ForestZoneVolumeParametersTable) # The volume parameters data in the global environment
data(SpeciesCriteria)
data(DTMParacou)
data(PlotSlope)
data(MainTrails)
data(HarvestablePolygons)

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

inventory <- ONFGuyafortaxojoin(inventory, SpeciesCriteria)

harvestableOutputs <- harvestable(inventory, diversification = TRUE,
 specieslax = FALSE,
topography = DTMParacou, plotslope = PlotSlope,
harvestablepolygons = HarvestablePolygons,
maintrails = MainTrails,
advancedloggingparameters = loggingparameters())

inventory <- harvestableOutputs$inventory
HVinit <- harvestableOutputs$HVinit

inventory <- selected(inventory, scenario = "manual", fuel = "0",
diversification = TRUE, specieslax = FALSE, objectivelax = TRUE,
topography = DTMParacou,
advancedloggingparameters = loggingparameters(), VO = 125,
 HVinit = HVinit)$inventory

futurereserve(inventory, SpeciesCriteria)

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