EPGMr (version 1.0.0)

EPGMThreshold: Threshold Evaluation

Description

This function evaluates results of the EPGM model over a simulated period relative to ecological or regulatory thresholds.

Usage

EPGMThreshold(
  time.dat,
  WaterColumn.Thresholds = c(10, 15, 20),
  Soil.Thresholds = c(500, 600, 1000),
  cattail.Thresholds = c(5, 20, 90),
  plot.exceed = TRUE,
  raw.area.output = FALSE,
  results.area.table = TRUE
)

Arguments

time.dat

a data.frame, the raw output from EPGMTime (when raw.time.output=TRUE).

WaterColumn.Thresholds

a list of three water column total phosphorus thresholds to evaluate time output.

Soil.Thresholds

a list of three soil total phosphorus thresholds to evaluate time output.

cattail.Thresholds

a list of three cattail density thresholds to evaluate time output.

plot.exceed

If TRUE base plot will be generate with water column, soil and cattail area exceeded plots.

raw.area.output

If TRUE a data.frame will be printed with all area exceedances calculated for each time step.Default is set to FALSE.

results.area.table

If TRUE a summary results table will be printed in the console. Default is set to TRUE.

Value

This function computes and plots the distance profile along the gradient based on input values

Details

As described in the original documentation, the model is designed to simulate marsh enrichment (responses to increasing P load), not recovery (responses to decreasing in load).

Examples

# NOT RUN {
example<-EPGMTime(case.no=11,raw.time.output=TRUE)
EPGMThreshold(example)

#END
# }