compareSimSimPlots: This function produces a wealth of raw graphics for...

In frabas/displaceplot: A suite of R routines to treat DISPLACE simulation output files

Description

This function produces a wealth of raw graphics in a output hierarchy of folders to compare scenarios vs. baseline sce

Usage

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)

Arguments

fname	First name
lname	Last name

Examples

## 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)

frabas/displaceplot documentation built on May 3, 2019, 4:06 p.m.