# NOT RUN {
# Load the 1970-1999 version of the internal North Sea model and run for 1 year
m1 <- e2e_read("North_Sea", "1970-1999")
r1 <-e2e_run(m1,nyears=1)
# Load the 2003-2013 version of the internal North Sea model and run for 1 year
m2 <- e2e_read("North_Sea", "2003-2013")
r2 <-e2e_run(m2,nyears=1)
# Compare annual results from 1970-1999 as baseline with 2003-2013 as scenario:
e2e_compare_runs_box(selection="ANNUAL", model1=m1, ci.data1=FALSE, results1=r1,
model2=m2, ci.data2=FALSE, results2=r2)
# Compare monthly results from 1970-1999 as baseline with 2003-2013 as scenario:
dev.new()
e2e_compare_runs_box(selection="MONTHLY", model1=m1, ci.data1=FALSE, results1=r1,
model2=m2, ci.data2=FALSE, results2=r2)
# This example requires the StrathE2E2examples supplementrary data package.
# Compare 1970-1999 as baseline (from single model run), with 2003-2013
# as scenario (from example data with credible interval results):
if(require(StrathE2E2examples)){
e2e_compare_runs_box(selection="ANNUAL", model1=m1, ci.data1=FALSE, results1=r1,
model2=m2, ci.data2=TRUE, use.example2=TRUE)
dev.new()
e2e_compare_runs_box(selection="MONTHLY", model1=m1, ci.data1=FALSE, results1=r1,
model2=m2, ci.data2=TRUE, use.example2=TRUE)
}
# This example requires the StrathE2E2examples supplementrary data package.
# Compare 1970-1999 as baseline (from example data with cred.int.), with 2003-2013
# as scenario (from example data with credible interval results):
if(require(StrathE2E2examples)){
e2e_compare_runs_box(selection="ANNUAL", model1=m1, ci.data1=TRUE, use.example1=TRUE,
model2=m2, ci.data2=TRUE, use.example2=TRUE)
dev.new()
e2e_compare_runs_box(selection="MONTHLY", model1=m1, ci.data1=TRUE, use.example1=TRUE,
model2=m2, ci.data2=TRUE, use.example2=TRUE)
}
# }
Run the code above in your browser using DataLab