Skip to contents

Create data.table to compare scfm predictions with historical observations

Source: R/comparePredictions.R
comparePredictions.Rd

Create data.table to compare scfm predictions with historical observations

Usage

comparePredictions_summaryDT(
  scfmDriverPars = NULL,
  scfmRegimePars = NULL,
  landscapeAttr = NULL,
  fireRegimePoints = NULL,
  burnSummary = NULL,
  times = NULL
)

comparePredictions_meanFireSize(dt)

comparePredictions_fireReturnInterval(dt, times)

comparePredictions_annualIgnitions(dt)

comparePredictions_annualEscapes(dt)

comparePredictions_fireDistribution(dt)

Arguments

scfmDriverPars

list of burn parameters for each polygon, produced by scfmDriverPars module

scfmRegimePars

list of fire regime parameters, produced by scfmRegime module

landscapeAttr

list of landscape attributes for each polygon, produced by scfmLandcoverInit module

fireRegimePoints

SpatialPointsDataFrame, produced by scfmRegime module

burnSummary

data.table, produced by scfmSpread module

times

list of simulation start and end times (i.e., output from times(sim))

dt

scfm summary data.table produced by comparePredictions_summaryDT()

Value

comparePredictions_summaryDT returns a data.table object; other functions return ggplot objects.

Author

Ian Eddy

Examples

if (FALSE) {
## assumes user has run scfm to produce the simList `mySimOut`
dt <- comparePredictions_summaryDT(scfmDriverPars = mySimOut$scfmDriverPars,
                                   scfmRegimePars = mySimOut$scfmRegimePars,
                                   landscapeAttr = mySimOut$landscapeAttr,
                                   fireRegimePoints = mySimOut$fireRegimePoints,
                                   burnSummary = mySimOut$burnSummary)

gg_mfs <- comparePredictions_meanFireSize(dt)
gg_fri <- comparePredictions_fireReturnInterval(dt)
gg_ign <- comparePredictions_annualIgnitions(dt)
gg_frp <- plot_fireRegimePolys(mySimOut$fireRegimePolys)

grid.extra::grid.arrange(fps,  gg_mfs,  gg_fri,  gg_ign, nrow = 2, ncol = 2)
}