Description Usage Arguments Examples
This function produces a wealth of raw graphics in a output hierarchy of folders to compare scenarios vs. baseline sce
1 2 3 4 5 6 | compareSimSimPlots(lst_loglike_agg_1, lst_loglike_agg_2,
years_span = 2015:2019, ..., explicit_pops = explicit_pops,
plot_obs = TRUE, idx.sim = list(sce1 = c(1), sce2 = c(1)),
combined_name = c("baseline_vs_implicit"), a.comment = "",
what = "per_vessel", what2 = "weight", count = 0, a.xlab = "",
a.ylab = "", a.unit = 1, do_mtext = FALSE)
|
fname |
First name |
lname |
Last name |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | ## Not run:
general <- setGeneralOverallVariable (pathToRawInputs =file.path("C:", "Users", "fbas",
"Documents", "GitHub", paste0("DISPLACE_input_gis_",
"DanishFleet")),
pathToDisplaceInputs = file.path("C:", "Users", "fbas",
"Documents", "GitHub", paste0("DISPLACE_input_", "DanishFleet")),
pathToOutputs =file.path("C:","DISPLACE_outputs"),
caseStudy="DanishFleet",
iGraph=41,
iYear="2015",
iCountry="DEN",
nbPops=39,
nbSzgroup=14,
theScenarios= c("svana_baseline",
"svana_sub1mx20",
"svana_sub4mx20",
"svana_sub4mx5ns20bt",
"svana_sub4mx20ns5bt",
"svana_sub4mx5ns5bt" ),
nbSimus=20,
useSQLite=FALSE
)
load( file=file.path(general$main.path, general$namefolderinput,
paste("selected_vessels.RData", sep='')) )
if(FALSE){
aggregratLoglikeFiles(general=general, what="weight",
explicit_pops=c(0, 1, 2, 3, 11, 23, 24, 26, 30, 31, 32),
implicit_pops=c (4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 25, 27, 28, 29, 33, 34, 35, 36, 37, 38),
selected_vessels_set1=selected_vessels_set_1,
selected_vessels_set2=selected_vessels_set_2,
selected_vessels_set3=selected_vessels_set_3)
} else{
loadLoglikeFiles (general, use_port_info=FALSE)
}
callCompareSimSimPlots (general,
the_baseline="svana_baseline",
explicit_pops=explicit_pops,
selected= "_selected_set1_",
selected_vessels=selected_set1,
years_span=2015:2019,
per_pop=FALSE,
per_vessel=TRUE)
require(plotrix)
stressBarplot (general=general,
the_baseline="svana_baseline",
selected_vessels=selected_vessels_set_1,
by_class=NULL,
a_width=1500, a_height=3500)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.