# NOT RUN {
# Load the 1970-1999 version of the North Sea model supplied with the package, run, and
# generate a plot:
model <- e2e_read("North_Sea", "1970-1999")
results <- e2e_run(model, nyears=2,csv.output=FALSE)
e2e_plot_eco(model, selection="NUT_PHYT",results=results)
dev.new()
e2e_plot_eco(model, selection="ZOOPLANKTON",results=results)
# Direct the graphics output to a pdf file ...
# or jpeg("plot.jpg"), png("plot.png")
pdf(file.path(tempdir(), "plot.pdf"),width=8,height=4)
e2e_plot_eco(model, selection="FISH",results=results)
dev.off()
# Load the 1970-1999 version of the North Sea model supplied with the package and
# plot example credible interval data:
# This example requires the Strathe2E2examples supplementary data package.
if(require(StrathE2E2examples)){
e2e_plot_eco(model, selection="BENTHOS",ci.data=TRUE,use.example=TRUE)
}
# }
Run the code above in your browser using DataLab