smoothtrails: smoothtrails

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

Description

smoothtrails

Usage

smoothtrails(
  paths,
  pts,
  plots,
  partmaintrails,
  smthfact = 5,
  advancedloggingparameters = loggingparameters()
)

Arguments

paths	Raw secondary trails polygons (sp polylines).
pts	Harvested tree locations (sf points).
plots	Studied plots (sf data.frame)
partmaintrails	Intersections between accessible area and Maintrails (sf polygon)
smthfact	A positive number controlling the smoothness and level of generalization (numeric).
advancedloggingparameters	Advanced parameters of the logging simulator.

Value

Smoothed secondary trails polygons.

Examples

## Not run: 
data(DTMParacou)
data(Paracou6_2016)
data(HarvestablePolygons)
data(MainTrails)
data(Plots)
data(PlotSlope)
data("SpeciesCriteria")

scenarios <- scenariosparameters(scenario = "RIL3", objective = 15)

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

AccessPolygons <- FilterAccesExplArea(harvestablepolygons = HarvestablePolygons,
maintrails = MainTrails,
winching = scenarios$winching,
advancedloggingparameters = loggingparameters())

treeselectionoutputs <- treeselection(inventory,
topography = DTMParacou, accesspolygons= AccessPolygons, plotslope = PlotSlope,
speciescriteria = SpeciesCriteria, objective = scenarios$objective,
scenario ="manual", fuel = "2", diversification = TRUE, specieslax = FALSE,
objectivelax = TRUE,
advancedloggingparameters = loggingparameters())

SecondTrailsRaw <- secondtrailsopening(DTM = DTMParacou, plotslope =  PlotSlope,plots = Plots,
  harvestablepolygons = HarvestablePolygons, maintrails = MainTrails, treeselectionoutputs,
  CostMatrix = list(list(list(Slope = 3, Cost = 3),
                           list(Slope = 5, Cost = 5),
                           list(Slope = 12, Cost = 20),
                           list(Slope = 22, Cost = 60),
                           list(Slope = 27, Cost = 600),
                           list(Slope = Inf, Cost = 1000)),
                      list(list(CostType = "Initial", CostValue = 1000),
                           list(CostType = "Access", CostValue = 1000),
                           list(CostType = "BigTrees", CostValue = 500),
                           list(CostType = "Reserves", CostValue = 500),
                           list(CostType = "Futures", CostValue = 50),
                           list(CostType = "maintrails", CostValue = 1E-4),
                           list(CostType = "SecondTrails", CostValue = 0.1))),
 scenarios = scenarios,
 fact = 3,
 advancedloggingparameters = loggingparameters())

 SecondTrailsSmth <- smoothtrails(paths = SecondTrailsRaw[[1]],
                                 plots = Plots,
                                   )

## End(Not run)

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