R/NANNO_test.R

In jjvenky/NANNO: Nitrogen Isotope Biogeochemical Model For Freshwaters

#' Test the NANNO Function
#'
#' This function takes model results from the default NANNO_model() and creates a default figure
#' @keywords NANNO
#' @export
#' @examples
#' NANNO_test()

NANNO_test <- function() {
  cat('Running basic NANNO model.\n')
  NANNO.out <- simecol::out(simecol::sim(NANNO_model()))
  NANNO.out <- calcDeltas(NANNO.out)
  NANNO.out.melt <- reshape2::melt(subset(NANNO.out, select = -c(isoTAN, isoNO2, isoNO3, isoN2O)), id.vars = "time")
  cat('Creating basic plot of NANNO model results.')
  two_part_figure_all(NANNO.out)
}