# NOT RUN {
# Load the 1970-1999 version of the North Sea model supplied with the package :
model <- e2e_read("North_Sea", "1970-1999", model.ident="70-99base")
# In this example csv output is directed to a temporary folder since results.path os not set.
# In this illustrative example the StrathE2E() model is run for only 3 years to enable quick
# return of results. In a real simulation nyear would be at least 50.
# This example illustrates that the vector of planktivorous fish harvest ratio multiplers
# does not have to be evenly spaced.
hr <- c(0,0.5,0.75,1.0,1.25,2.0,3.0)
pf_yield_data <- e2e_run_ycurve(model,selection="PLANKTIV", nyears=3, HRvector=hr,
HRfixed=1,csv.output=FALSE)
# View the column names of the results dataframe:
names(pf_yield_data)
# Plotting the results...
# The planktivorous fish yield curve can be plotted using the function:
e2e_plot_ycurve(model, selection="PLANKTIV", results=pf_yield_data,
title="Planktivorous yield with baseline demersal fishing")
# }
Run the code above in your browser using DataLab