View source: R/getOutputTables.R
getOutputTables | R Documentation |
Produces summary tables for Bayesian caribou population model results. Optionally calculates Kolmogorov–Smirnov distances between Bayesian model results and national model results.
getOutputTables(
caribouBayesDemogMod,
startYear = min(caribouBayesDemogMod$inData$disturbanceIn$Year),
endYear = max(caribouBayesDemogMod$inData$disturbanceIn$Year),
paramTable = data.frame(param = "observed"),
exData = NULL,
simNational = NULL,
getKSDists = FALSE
)
caribouBayesDemogMod |
caribou Bayesian demographic model results
produced by calling |
startYear , endYear |
year defining the beginning of the observation period and the end of the projection period. |
paramTable |
data.frame. Optional. Scenario parameters see
|
exData |
data.frame. Optional. Output of |
simNational |
National simulation results, produced by calling
|
getKSDists |
logical. Should Kolmogorov–Smirnov distances be calculated? |
a list of tables:
rr.summary.all: Mean parameter values for each year and standard deviation, upper and lower credible intervals projected by the Bayesian model, as well as scenario input parameters.
sim.all: Mean parameter values and upper and lower credible intervals from the National model for each year, as well as scenario input parameters.
obs.all: Observed parameter values with column "type" identifying if it is the "true" value of the simulated population or the "observed" value simulated based on the collaring program parameters.
kdDists: Kolmogorov–Smirnov distances and p-values, NA if getKSDists is false
Caribou demography functions:
caribouBayesianPM()
,
caribouPopGrowth()
,
compositionBiasCorrection()
,
demographicCoefficients()
,
demographicProjectionApp()
,
demographicRates()
,
getPriors()
,
getScenarioDefaults()
,
getSimsNational()
,
plotRes()
,
popGrowthTableJohnsonECCC
,
runScnSet()
,
simulateObservations()
scns <- getScenarioDefaults(projYears = 10, obsYears = 10,
obsAnthroSlope = 1, projAnthroSlope = 5,
collarCount = 20, cowMult = 5)
simO <- simulateObservations(scns)
out <- caribouBayesianPM(survData = simO$simSurvObs, ageRatio = simO$ageRatioOut,
disturbance = simO$simDisturbance,
Nchains = 1, Niter = 100, Nburn = 10,
Nthin = 2)
getOutputTables(out, exData = simO$exData, paramTable = simO$paramTable,
simNational = getSimsNational(), getKSDists = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.