#Load example plot plant data
data(exampleforest)
#Default species parameterization
data(SpParamsMED)
#Calculate fuel properties according to FCCS
fccs <- fuel_FCCS(exampleforest, SpParamsMED)
# Estimate wind adjustment factor
fuel_windAdjustmentFactor(fccs$htc[2], fccs$hbc[1], fccs$htc[1], fccs$cover[1])
Run the code above in your browser using DataLab