inst/mcdsupportshinyApp/Setup_INOLA_neu.R

In JulianBo/mcdsupportshiny: Customisable graphical application to support for multi-criteria decision problems using shiny

#Daten aufbauen --------------

library (data.table)
#library(bit64)

dtAlternativen <- fread(file="alternativen.csv",
                        na.strings="",
                        dec=",",
                        stringsAsFactors=FALSE,
                        integer64="double",
                        encoding="Latin-1")
dtAlternativen[,
               `:=`(Rahmen=factor(Rahmen, levels=c("Krise",
                                                      "Wachstum",
                                                      "Nachhaltigkeit")),
                    Pfad=factor(Pfad, levels=c("Weiter wie bisher bei Krise",
                                                  "Weiter wie bisher bei Wachstum",
                                                  "Kleine Lösungen",
                                                  "Große Lösungen")),
                    Kombination=factor(Kombination))

]


AlternativenLevels <- c("Weiter wie bisher",
                               "Kleine Lösungen",
                               "Große Lösungen")

 pfadcolors=c("Weiter wie bisher bei Krise"="#003366",
              "Weiter wie bisher bei Wachstum"="#0037ae",
              "Kleine Lösungen"= "#2abb1c",
              "Große Lösungen"="#fe6201",
              "mehrere"="#999999",
              "Bitte Auswählen"="#222222")

# Konfiguration aufbauen -----------------

configList <- list (
  class = "elements",
  open.maxdepth = 2,
  #Attribute, zum Weiterreichen
  minweight = 0,
  maxweight = 100,
  standardweight = 30,
  util_func = "prop",
  sliderlabel="returnLabelsNormal",
  ####Standardeinstellungen der utilityfunction, zum weiterreichen

  ##Fals alle gleich berechtig sind, alle (kleinsten) Unterschiede den gleichen Punktunterscheid uasmachen
  # util_fit_x1 = "min", #"mean", #mean, min_max, interquartil
  # y1=150  ,
  # negative_util_fit_x1="min",
  # negative_y1=0,
  # util_fit_x2 = "max", #mean, min_max, interquartil
  # y2 = 0 ,
  # negative_util_fit_x2="max",
  # negative_y2=150,


  ##Grundsätzlich absolute Werte
  util_fit_x1 = NA, #"mean", #mean, min_max, interquartil
  y1=NA,
  util_fit_x2 = "mean", #mean, min_max, interquartil
  y2 = 100,


  #Kindelemente
  Energiewendeziel = list (
    class = "elements",
    description = tagList("Energiewendeziel: Wie wichtig ist es Ihnen, wie sehr sich die Region durch ",em("regionale erneuerbare Energien versorgt?"),""),
    color = "darkred",
    util_func = "prop",
    include_parent = TRUE,
    Energieverbrauch = list(
      class = "elements",
      description = tagList(
        "Wie wichtig ist Ihnen ein ein generell ", em("niedriger Energieverbrauch")," in der Region Oberland?"
      ),
      'Energieverbrauch (Strom)' = list(
        class = "mapping",
        Attribname = "Energieverbrauch_Strom",
        util_func = "negprop",
        include_parent = TRUE,
        description = tagList(
          "Wie wichtig ist Ihnen ein ",em("niedriger Stromverbrauch"),"  in der Region Oberland?"
        )
      ),
      'Energieverbrauch (Wärme)' = list(
        class = "mapping",
        Attribname = "Energieverbrauch_Wärme",
        util_func = "negprop",
        include_parent = TRUE,
        description = tagList(
          "Wie wichtig ist Ihnen ein ",em("niedriger Wärmeverbrauch")," in der Region Oberland?"
        )
      )
      # ,
      # 'Energieverbrauch (Gas)' = list(
      #   class = "mapping",
      #   Attribname = "Energieverbrauch_Gas",
      #   util_func = "antiprop",
      #   include_parent = TRUE,
      #   description = tagList(
      #     "Wie wichtig ist Ihnen ein ",em("niedriger Gasverbrauch")," in der Region Oberland?"
      #   )
      # )
    ),
    'Gesamtanteil erneuerbarer Energien' = list(
      class = "elements",
      description = tagList(
        "Wie wichtig ist es Ihnen, dass  ",em("bilanziell ein hoher Anteil des regionalen Energieverbrauchs durch regionale erneuerbare Energien")," erzeugt wird?"
      ),
      'Gesamtanteil erneuerbarer Wärme' = list(
        class = "mapping",
        Attribname = "Anteil_Erneuerbar_Strom",
        util_fit_x1=0.30, #30% Wird als Standard gesetzt
        include_parent=TRUE,
        description = tagList(
          "Wie wichtig ist es Ihnen, dass bilanziell ein hoher Anteil des regionalen  ",em("Stromverbrauchs")," durch regionale erneuerbare Energien erzeugt wird?"
        )
        ),
        'Gesamtanteil erneuerbarer Strom' = list(
          class = "mapping",
          util_fit_x1=0.30, #20% Wird als Standard gesetzt
          include_parent=TRUE,
          Attribname = "Anteil_Erneuerbar_Wärme",
          description = tagList(
            "Wie wichtig ist es Ihnen, dass bilanziell ein hoher Anteil des regionalen ",em("Wärmeverbrauchs")," durch regionale erneuerbare Energien erzeugt wird?"
          )
        )
    ),
    'Stromüberschuss' = list(
      class = "mapping",
      Attribname = "Überschuss",
      y1=80, # Verringere Einfluss - Annahme: Etwas Überschuss ist immer da.
      include_parent=TRUE,
      description = tagList(
        "Wie wichtig ist es Ihnen, dass in der Region so viele ",em(" Stromerzeugungsanlagen gebaut werden, dass überschüssiger Strom erzeugt und potentiell exportiert werden könnte?")," (z.B. um Städte wie München mitzuversorgen)"
      )
    )
  ),

  'Struktur des Energiesystems' = list (
    class = "elements",
    description = tagList(
      "Struktur des Energiesystems: Wie wichtig ist Ihnen, wie das ",em("regionale Energiesystem technisch ausgestaltet "),"ist? (z.B. Technologien, Anlagengröße, Speicher)"
    ),
    color = "orange",
    'Diversität des Energieerzeugungssystems' = list(
      class = "mapping",
      y1=20,
      include_parent=TRUE,
      Attribname="Diversität",
      description = tagList(
        "Wie wichtig ist es Ihnen, dass das ",em("regionale Energieerzeugungssystem")," aus einem ",em("breiten Mix unterschiedlicher erneuerbarer Energieerzeugungsanlagen")," besteht? (d.h. eine Mischung aus PV, Windkraft, Biomasse, Wasserkraft, Geothermie)"
        )

      ),
    'Anlagengröße und Zentralisierung' = list(
      class = "elements",
      description = tagList(
        "Wie wichtig ist Ihnen, ob das ",em("Energiesystem in der Region")," vor allem aus ",em("vielen (kleineren) Anlage oder aus wenigen (großen) Anlagen"),
        " besteht? ",em(" (Bitte ggf. genauer einstellen).")
      )
      #,explanation_for_childs="Dies ist eine Erläuterung, die nach 'Anlagengröße und Zentralisierung' kommen sollte"
      ,

      'Anlagengröße Stromerzeugung' = list(
        class = "mapping",
        Attribname = "Anlagenzahl_Strom",
        description = tagList(
          "Ich präferiere ",em("wenige (große) Anlagen")," zur ",em("Stromerzeugung,"),
          " es ist mir ",em("egal,")," oder ich präferiere ",em("viele (kleine) Anlagen")," (z.B.: Mehr Verbundkraftwerke anstatt Einzelhausanlagen)."
        ),
        minweight=-100,
        standardweight = 0,
        util_func="negprop",
        negative_util_func="prop",
        sliderlabel="returnLabelsAnlagengroesse"
      ),
      'Anlagengröße Wärmeerzeugung' = list(
        class = "mapping",
        Attribname = "Anlagenzahl_Wärme",
        #negative_Attribname = "Anlagengröße_Wärme_negative",
        description = tagList(
          "Ich präferiere ",em("wenige (große) Anlagen")," zur ",em("Wärmeerzeugung,")," es ist mir ",
          em("egal,")," oder ich präferiere ",em("viele (kleine) Anlagen")," (z.B.: Nahwärmenetze mit großem BHKW vs. Wärmespeicher, Solarthermieanlagen, Wärmepumpe)."
        ),
        minweight=-100,
        standardweight = 0,
        util_func="negprop",
        negative_util_func="prop",
        sliderlabel="returnLabelsAnlagengroesse"
      )
      )
    ,
  'Regionale Ausgleichsmechanismen' = list(
    class = "mapping",
    Attribname = "Stromdelta_Summe",
    util_func = "antiprop",
    y1=400,
    include_parent = TRUE,
    description = tagList(
      "Die Erzeugung von Strom mit Erneuerbare-Energien-Anlagen unterliegt zeitlichen Schwankungen, die von den Witterungsverhältnissen und vom Technologiemix abhängen.",
      tags$br(),"Wie wichtig ist es Ihnen, dass  ",
      em("innerhalb der Region Schwankungen zwischen Stromproduktion und Stromverbrauch ausgeglichen ")," werden?"
      )
    )
  ),

  'Ökonomische Effekte' = list (
    class = "elements",
    description = tagList(
      "Wirtschaftliche Effekte: Wie wichtig ist Ihnen, wie sich das ",em("regionale Energiesystem sich in der Region ökonomisch "),"auswirkt? (z.B. Wirkungen auf Arbeitsplätze und Wertschöpfung, Kosten)"
    ),
    color = "blue",
    'Wirtschaftsentwicklung' =
      list(
        class = "elements",
        y1=20,
        description = tagList(
          "Wie wichtig ist es Ihnen, dass sich der ",em("Ausbau erneuerbarer Energien")," langfristig ",em("positiv auf die gesamte regionale Wirtschaft")," auswirkt?"
        ),
        'Wertschöpfung' =
          list(
            class = "mapping",
            Attribname="Wertschöpfung",
            description = tagList(
              "Wie wichtig ist es Ihnen, dass sich der ",em(" Ausbau erneuerbarer Energien")," langfristig ",
              em(" positiv auf die gesamte regionale Wertschöpfung")," auswirkt?")
          ),
        'Arbeitsplätze' =
          list(
            class = "mapping",
            Attribname = "Arbeitsplätze",
            description =tagList(
              "Wie wichtig ist es Ihnen, dass der ",em(" Ausbau erneuerbarer Energien")," langfristig für ",
              em("mehr Arbeitsplätze in der gesamten regionalen Wirtschaft "),"sorgt?")
            )
        ),
      'Energieerzeugungskosten' = list(
        class = "mapping",
        Attribname = "Stromerzeugungskosten",
        y1=130,
        util_func = "antiprop",
        include_parent=TRUE,
        description = tagList(
          "Wie wichtig ist es Ihnen, dass die  ",em("durchschnittlichen Erzeugungskosten für regional und erneuerbar erzeugten Strom gering ")," sind?"
        )
      ),
    'Förderkosten' = list(
      class = "mapping",
      Attribname = "Förderkosten",
      y1=150,
      util_func = "antiprop",
      include_parent=TRUE,
      description = tagList(
        "Wie wichtig ist es Ihnen, dass nur ",em("wenig  zusätzliche Finanzmittel")," benötigt werden? (Zusätzliche Förderungen auf Bundes-, Landes-, regionaler, Firmen- oder Haushaltsebene)"
      )
    ),
    'Gewinnbeteiligung' = list(
      class = "mapping",
      Attribname = NA,
      description = tagList(
        "Wie wichtig ist es Ihnen, dass ",em("BürgerInnen finanziell an den Gewinnen beteiligt"),
        " werden? (z.B. über Genossenschaften oder andere Beteiligungsmodelle)"
      )

    ),
    'Planungsbeteiligung' = list(
      class = "mapping",
      Attribname = NA,
      description = tagList(
        "Wie wichtig ist es Ihnen, dass ",em("BürgerInnen an planerischen Entscheidungen"),
        "  beim Bau von Erneuerbare-Energien-Anlagen beteiligt werden?"
      )
    )
  ),
  'Umwelteffekte' = list (
    class = "elements",

    description = tagList(
      "Umweltauswirkungen: Wie wichtig ist Ihnen, wie sich das",em("regionale Energiesystem auf die Umwelt")," auswirkt? (z.B. Flächenbeanspruchung; Nutzung von Biomasse)"
    ),
    color = "green",
    'Nicht erneuerbarer Energieverbrauch' = list(
      class = "mapping",
      util_func = "negprop",
      include_parent = TRUE,
      Attribname = "Energie_nicht_gedeckt",
      description = tagList(
        "Wie wichtig ist es Ihnen, dass die ",em("Energieerzeugung möglichst regional und CO2-frei "),
        " ist?")
    ),
    'Flächenbeanspruchung' = list(
      class = "mapping",
      Attribname = "Flächenbeanspruchung",
      util_func = "negprop",
      include_parent = TRUE,
      description = tagList(
        "Wie wichtig ist es Ihnen, dass bei der Energieerzeugung möglichst ",em("wenig Freiflächen versiegelt, überbaut oder zur Produktion von Biomasse"),
        " verwendet werden? (Es werden Windkraft-, Solar-Freiflächenanlagen, Biogasanlagen sowie Biomasseheizkraftwerke berücksichtigt)"
      )
    ),
    'Biomassenverwendung' = list(
      class = "elements",
      y1=150,
      util_func="antiprop",
      description = tagList(
        "Wie wichtig ist es Ihnen, dass von ",em("Nahrungs- und Futtermitteln (v. a. Mais) und Holz nur ein geringer Anteil zur Energieproduktion"),
        " verwendet wird? (im Modell wird von der aktuellen Flächennutzung ausgegangen, keine Flächen für die Nutzung zur Energieerzeugung umgewandelt)"
      ),
      'Maisverwendung' = list(
        class = "mapping",
        Attribname = "Maisanteil",
        description = tagList(
          "Wie wichtig ist es Ihnen, dass vom ",em("gesamten Aufkommen an Mais")," nur ein geringer Anteil zur Energieproduktion verwendet wird?"
        )
      ),
      'Holzverwendung' = list(
        class = "mapping",
        Attribname = "Holzanteil",
        description = tagList(
          "Wie wichtig ist es Ihnen, dass vom ",em("gesamten Holzzuwachs")," nur ein geringer Anteil zur Energieproduktion verwendet wird?"
        )
      )

    ),
    'Regionale Auswirkungen' = list (
      class = "elements",
      util_func="antiprop",
      description = tagList(
        "Wie wichtig ist es Ihnen, dass ",em("sonstige regionale und lokale Auswirkungen durch Energieerzeugungsanlagen"),
        " möglichst gering sind? (z.B. Landschafts- und Ortsbild, Emissionen, ...) ")
      ,explanation_for_childs= tagList(
        p("Die negativen Auswirkungen welcher Anlagen bewerten  Sie im Verhältnis zueinander als wie wichtig? ",
          "Da diese schwer zu quantifizieren und oftmals ortsabhängig sind, können hier nur grundsätzliche Einschätzungen pro Technologie angegeben werden:",
          em("von 0 = keine wichtigen Auswirkungen, bis 100 = stark beeinträchtigende Auswirkungen")
          )
      )
      ,
      'PV-Dachflächenanlagen' = list(
        class = "mapping",
        Attribname = "Solar_Dach_Anzahl",
        description = tagList("Auf der Skala von 0 bis 100 bewerte ich ",em("Auswirkungen von Dach- und Fassadenanlagen für PV und Solarthermie")," mit:"
        )
      ),
      'PV-Freiflächenanlagen' = list(
        class = "mapping",
        y1=150, # Verringere Einfluss .
        include_parent=TRUE,
        Attribname = "Solar_Frei_Fläche",
        description = tagList(
          "Auf der Skala von 0 bis 100 bewerte ich ",em("Auswirkungen von Freiflächenanlagen für PV und Solarthermie")," mit:"
        )
      ),
      'Windkraft' = list(
        class = "mapping",
        Attribname = "Windkraft_Anzahl",
        y1=150, # Verringere Einfluss .
        include_parent=TRUE,
        description = tagList(
          "Auf der Skala von 0 bis 100 bewerte ich ",em("Auswirkungen von Windkraftanlagen")," mit:"
        )
      ),

      'Wasserkraftanlagen' = list(
        class = "mapping",
        Attribname = "Wasserkraft_Anzahl",
        description = tagList(
          "Auf der Skala von 0 bis 100 bewerte ich ",em("Auswirkungen von Wasserkraftanlagen")," mit:"
        )
      ),
      'Biogasanlagen' = list(
        class = "mapping",
        Attribname = "Biogas_Anzahl",
        description = tagList(
          "Auf der Skala von 0 bis 100 bewerte ich ",em("Auswirkungen von Biogasanlagen")," mit:"
        )
      ),
      'Biomasseheiz(kraft)werke' = list(
        class = "mapping",
        Attribname = "BiomasseWerke_Anzahl",
        description = tagList(
          "Auf der Skala von 0 bis 100 bewerte ich ",em("Auswirkungen von größeren Biomasseheiz(kraft)werken")," mit:"
        )
      ),
      'Einzelhausholzheizungen' = list(
        class = "mapping",
        Attribname ="Einzelhausbiomasse_Anzahl",
        description = tagList(
          "Auf der Skala von 0 bis 100 bewerte ich ",em("Auswirkungen von holzbefeuerten Heizungen (Einzelhäuser)")," mit:"
        )
      ),
      'Tiefengeothermieanlagen' = list(
        class = "mapping",
        Attribname = "Tiefengeothermie_Anzahl",
        description = tagList(
          "Auf der Skala von 0 bis 100 bewerte ich ",em("Auswirkungen von Tiefengeothermieanlagen")," mit:"
        )
      )
      ,
      'Wärmepumpen' = list(
        class = "mapping",
        Attribname = "Wärmepumpen_Oberflächengeothermie_Anzahl",
        description = tagList(
          "Auf der Skala von 0 bis 100 bewerte ich ",em("Auswirkungen von oberflächennahen Geothermieanlagen und Wärmepumpen")," mit:"
        )
      )
    )

  )

)

# pfadbeschreibungen & Titel  ------------------------------------------------------
title_text<-"Energiekompass für das Oberland"
pfadbeschreibungen<-tagList(p("Es werden drei verschiedene Ausbauoptionen modelliert:"),
  p(
    strong("1) Weiter wie bisher:"),"Wir machen weiter wie bisher und es werden keine bestimmten Technologien erneuerbarer Energien bevorzugt (Referenzpfad).",br(),
    strong("2) Kleine Lösungen:"),"Wir strengen uns an und regionale Aktivitäten fördern kleine Energieerzeugungsanlagen, insbesondere gebäudegebundene Anlagen (Solaranlagen, Haushaltsspeicher, Wärmepumpen) und Energieeinsparung. Investoren sind vor allem Haushalte und Firmen.",br(),
    strong("3) Große Lösungen:"),"Wir strengen uns an und regionale Aktivitäten fördern größere, nicht-gebäudegebundene Energieerzeugungsanlagen (Windkraft, PV, Quartiersspeicher, Biomasseheizkraftwerke und Nahwärmenetze). Mögliche Investoren sind auch Kommunen, Stadtwerke sowie Energiegenossenschaften."
  ),
  p("Diese Ausbauoptionen werden dann unter mehren möglichen Rahmenbedingungen bzw. Zukünften getestet.")
)

rahmenbeschreibungen<-tagList(

  h4("Informationen zu den Rahmenbedingungen"),
  p(
  strong("A) Krise:"),"In globalen Krisenzeiten verlieren Deutschland und das Oberland ihre wirtschaftliche Stärke. Obwohl die Bevölkerung im Oberland wächst, ist die Neubaurate niedrig. Umwelt-, Natur- und Flächenschutz geraten unter die Räder. Für erneuerbare Energien stehen etwas mehr Flächen und Rohstoffe als heute zur Verfügung. Die finanzielle Förderung von erneuerbaren Energien wird hingegen im Vergleich zu heute wesentlich verringert.",br(),
  strong("B) Wachstum:"),"Gesellschaft und Wirtschaft setzen auf Wachstum. Das Oberland boomt, die Bevölkerung wächst, die Neubaurate ist hoch. Umwelt- und Naturschutz werden der Wachstumslogik untergeordnet. Es erfolgt eine bundesweite Förderung von erneuerbaren Energien, wie es der aktuelle Stand des EEG sowie seine Fortschreibungen inklusive seiner langsamen Senkung vorsehen.",br(),
  strong("C) Nachhaltigkeit:"),"Nachhaltigkeit setzt sich als Ziel in Wirtschaft und Gesellschaft im Oberland und weltweit durch. Das Oberland prosperiert, die Bevölkerung wächst, die Neubaurate ist trotzdem niedrig. Umwelt-, Natur- und Flächenschutz sind wichtig, deshalb stehen weniger Flächen und Rohstoffe für erneuerbare Energien als heute zur Verfügung. Bundesweite Förderung von erneuerbaren Energien, die über den aktuellen Stand der Förderungen hinausgeht.")
)

# Texte --------------------------------------------------------

texte <- list (


  begruessungstext="Dieses Programm ist eine Entscheidungshilfe. Die von INOLA simulierten Ausbaupfade erneuerbarer Energien setzen sich aus vielen Faktoren zusammen, die teils nicht auf den ersten Blick ersichtlich werden. Deshalb können Sie auf den nächsten Seiten angeben, wie wichtig Ihnen verschiedene Aspekte des regionalen Energiesystems im Oberland sind. Auf was legen Sie wie viel Wert? Das Programm ermittelt dann, welcher Ausbaupfad am meisten Ihren Präferenzen entspricht.",
  alternativentitel="Informationen zu den Ausbauoptionen",
  auswahlaufforderungstext="Bitte wählen Sie zuerst aus, welcher Ausbaupfad Ihnen spontan am besten gefällt. Die einzelnen Ausbaupfade sind nachfolgend kurz beschrieben.",

  begruessungstext2= "Bitte stellen Sie ein, wie wichtig Ihnen die einzelnen Indikatoren im Verhältnis zu den anderen Indikatoren sind.",

  choiceSlctText="Welcher Pfad gefällt Ihnen spontan am Besten?",

  ortstext="Wohnen Sie im bayerischen Oberland?",
  ortslist=list("Ja, Landkreis Bad Tölz-Wolfratshausen",
                "Ja, Landkreis Garmisch-Partenkirchen",
                "Ja, Landkreis Miesbach",
                "Ja, Landkreis Weilheim-Schongau",
                "Nein, aber in Oberbayern",
                "Nein, woanders")
)

#Speicherkonfiguration --------------------------------------------------------
speichersettings= list( method="GoogleSheets",
                        #method="CSV",
                        place="Energiekompass_INOLA")
# Speichertemplate --------------------------------------------------------

# library(mcdsupportshiny)
# dtBisherige <- loadData("CSV", "inst/mcdsupportshinyApp/MCDA_Beispiel_INOLA_neu")

# dput(dtBisherige[1,])

speicher_template = structure(list(Zeitpunkt = "Wed Jun 19 14:36:27 2019", Sessionstart = "Wed Jun 19 14:36:19 2019",
                                   session_id = 88603L, gruppe = NA, url_search = NA, addBtn = 0L,
                                   PlaceSlct = "Nicht angegeben", FirsttimeSlct = "Nicht angegeben",
                                   GenderSlct = "Nicht angegeben", AgeSl = 0L, ChoiceSlct = "Bitte Auswählen",
                                   ChoiceSlctCount = 0L, ChoiceFinalSlct = "Bitte Auswählen",
                                   ChoiceFinalSlctCount = 0L, BestesErgebnis = NA, slGui2.Energiewendeziel.sl.originalweights = 30L,
                                   slGui2.Energieverbrauch.sl.originalweights = 30L, slGui2.EnergieverbrauchStrom.sl.originalweights = 30L,
                                   slGui2.EnergieverbrauchWrme.sl.originalweights = 30L, slGui2.GesamtanteilerneuerbarerEnergien.sl.originalweights = 30L,
                                   slGui2.GesamtanteilerneuerbarerWrme.sl.originalweights = 30L,
                                   slGui2.GesamtanteilerneuerbarerStrom.sl.originalweights = 30L,
                                   slGui2.Stromberschuss.sl.originalweights = 30L, slGui2.StrukturdesEnergiesystems.sl.originalweights = 30L,
                                   slGui2.DiversittdesEnergieerzeugungssystems.sl.originalweights = 30L,
                                   slGui2.AnlagengreundZentralisierung.sl.originalweights = 30L,
                                   slGui2.AnlagengreStromerzeugung.sl.originalweights = 0L,
                                   slGui2.AnlagengreWrmeerzeugung.sl.originalweights = 0L, slGui2.RegionaleAusgleichsmechanismen.sl.originalweights = 30L,
                                   slGui2.konomischeEffekte.sl.originalweights = 30L, slGui2.Wirtschaftsentwicklung.sl.originalweights = 30L,
                                   slGui2.Wertschpfung.sl.originalweights = 30L, slGui2.Arbeitspltze.sl.originalweights = 30L,
                                   slGui2.Energieerzeugungskosten.sl.originalweights = 30L,
                                   slGui2.Frderkosten.sl.originalweights = 30L, slGui2.Gewinnbeteiligung.sl.originalweights = 30L,
                                   slGui2.Planungsbeteiligung.sl.originalweights = 30L, slGui2.Umwelteffekte.sl.originalweights = 30L,
                                   slGui2.NichterneuerbarerEnergieverbrauch.sl.originalweights = 30L,
                                   slGui2.Flchenbeanspruchung.sl.originalweights = 30L, slGui2.Biomassenverwendung.sl.originalweights = 30L,
                                   slGui2.Maisverwendung.sl.originalweights = 30L, slGui2.Holzverwendung.sl.originalweights = 30L,
                                   slGui2.RegionaleAuswirkungen.sl.originalweights = 30L, slGui2.PV.Dachflchenanlagen.sl.originalweights = 30L,
                                   slGui2.PV.Freiflchenanlagen.sl.originalweights = 30L, slGui2.Windkraft.sl.originalweights = 30L,
                                   slGui2.Wasserkraftanlagen.sl.originalweights = 30L, slGui2.Biogasanlagen.sl.originalweights = 30L,
                                   slGui2.Biomasseheizkraftwerke.sl.originalweights = 30L, slGui2.Einzelhausholzheizungen.sl.originalweights = 30L,
                                   slGui2.Tiefengeothermieanlagen.sl.originalweights = 30L,
                                   slGui2.Wrmepumpen.sl.originalweights = 30L, slGui2.Energiewendeziel.sl.finalweight_in_level = 0.25,
                                   slGui2.Energieverbrauch.sl.finalweight_in_level = 0.333333333333333,
                                   slGui2.EnergieverbrauchStrom.sl.finalweight_in_level = 0.5,
                                   slGui2.EnergieverbrauchWrme.sl.finalweight_in_level = 0.5,
                                   slGui2.GesamtanteilerneuerbarerEnergien.sl.finalweight_in_level = 0.333333333333333,
                                   slGui2.GesamtanteilerneuerbarerWrme.sl.finalweight_in_level = 0.5,
                                   slGui2.GesamtanteilerneuerbarerStrom.sl.finalweight_in_level = 0.5,
                                   slGui2.Stromberschuss.sl.finalweight_in_level = 0.333333333333333,
                                   slGui2.StrukturdesEnergiesystems.sl.finalweight_in_level = 0.25,
                                   slGui2.DiversittdesEnergieerzeugungssystems.sl.finalweight_in_level = 0.333333333333333,
                                   slGui2.AnlagengreundZentralisierung.sl.finalweight_in_level = 0.333333333333333,
                                   slGui2.AnlagengreStromerzeugung.sl.finalweight_in_level = 0L,
                                   slGui2.AnlagengreWrmeerzeugung.sl.finalweight_in_level = 0L,
                                   slGui2.RegionaleAusgleichsmechanismen.sl.finalweight_in_level = 0.333333333333333,
                                   slGui2.konomischeEffekte.sl.finalweight_in_level = 0.25,
                                   slGui2.Wirtschaftsentwicklung.sl.finalweight_in_level = 0.2,
                                   slGui2.Wertschpfung.sl.finalweight_in_level = 0.5, slGui2.Arbeitspltze.sl.finalweight_in_level = 0.5,
                                   slGui2.Energieerzeugungskosten.sl.finalweight_in_level = 0.2,
                                   slGui2.Frderkosten.sl.finalweight_in_level = 0.2, slGui2.Gewinnbeteiligung.sl.finalweight_in_level = 0.2,
                                   slGui2.Planungsbeteiligung.sl.finalweight_in_level = 0.2,
                                   slGui2.Umwelteffekte.sl.finalweight_in_level = 0.25, slGui2.NichterneuerbarerEnergieverbrauch.sl.finalweight_in_level = 0.25,
                                   slGui2.Flchenbeanspruchung.sl.finalweight_in_level = 0.25,
                                   slGui2.Biomassenverwendung.sl.finalweight_in_level = 0.25,
                                   slGui2.Maisverwendung.sl.finalweight_in_level = 0.5, slGui2.Holzverwendung.sl.finalweight_in_level = 0.5,
                                   slGui2.RegionaleAuswirkungen.sl.finalweight_in_level = 0.25,
                                   slGui2.PV.Dachflchenanlagen.sl.finalweight_in_level = 0.111111111111111,
                                   slGui2.PV.Freiflchenanlagen.sl.finalweight_in_level = 0.111111111111111,
                                   slGui2.Windkraft.sl.finalweight_in_level = 0.111111111111111,
                                   slGui2.Wasserkraftanlagen.sl.finalweight_in_level = 0.111111111111111,
                                   slGui2.Biogasanlagen.sl.finalweight_in_level = 0.111111111111111,
                                   slGui2.Biomasseheizkraftwerke.sl.finalweight_in_level = 0.111111111111111,
                                   slGui2.Einzelhausholzheizungen.sl.finalweight_in_level = 0.111111111111111,
                                   slGui2.Tiefengeothermieanlagen.sl.finalweight_in_level = 0.111111111111111,
                                   slGui2.Wrmepumpen.sl.finalweight_in_level = 0.111111111111111,
                                   slGui2.Energiewendeziel.sl.finalweight_in_level_corrected = 0.333333333333333,
                                   slGui2.Energieverbrauch.sl.finalweight_in_level_corrected = 0.5,
                                   slGui2.EnergieverbrauchStrom.sl.finalweight_in_level_corrected = 0.5,
                                   slGui2.EnergieverbrauchWrme.sl.finalweight_in_level_corrected = 0.5,
                                   slGui2.GesamtanteilerneuerbarerEnergien.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.GesamtanteilerneuerbarerWrme.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.GesamtanteilerneuerbarerStrom.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Stromberschuss.sl.finalweight_in_level_corrected = 0.5,
                                   slGui2.StrukturdesEnergiesystems.sl.finalweight_in_level_corrected = 0.333333333333333,
                                   slGui2.DiversittdesEnergieerzeugungssystems.sl.finalweight_in_level_corrected = 0.333333333333333,
                                   slGui2.AnlagengreundZentralisierung.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.AnlagengreStromerzeugung.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.AnlagengreWrmeerzeugung.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.RegionaleAusgleichsmechanismen.sl.finalweight_in_level_corrected = 0.333333333333333,
                                   slGui2.konomischeEffekte.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Wirtschaftsentwicklung.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Wertschpfung.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Arbeitspltze.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Energieerzeugungskosten.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Frderkosten.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Gewinnbeteiligung.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Planungsbeteiligung.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Umwelteffekte.sl.finalweight_in_level_corrected = 0.333333333333333,
                                   slGui2.NichterneuerbarerEnergieverbrauch.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Flchenbeanspruchung.sl.finalweight_in_level_corrected = 0L,
                                   slGui2.Biomassenverwendung.sl.finalweight_in_level_corrected = 0.5,
                                   slGui2.Maisverwendung.sl.finalweight_in_level_corrected = 0.5,
                                   slGui2.Holzverwendung.sl.finalweight_in_level_corrected = 0.5,
                                   slGui2.RegionaleAuswirkungen.sl.finalweight_in_level_corrected = 0.5,
                                   slGui2.PV.Dachflchenanlagen.sl.finalweight_in_level_corrected = 0.111111111111111,
                                   slGui2.PV.Freiflchenanlagen.sl.finalweight_in_level_corrected = 0.111111111111111,
                                   slGui2.Windkraft.sl.finalweight_in_level_corrected = 0.111111111111111,
                                   slGui2.Wasserkraftanlagen.sl.finalweight_in_level_corrected = 0.111111111111111,
                                   slGui2.Biogasanlagen.sl.finalweight_in_level_corrected = 0.111111111111111,
                                   slGui2.Biomasseheizkraftwerke.sl.finalweight_in_level_corrected = 0.111111111111111,
                                   slGui2.Einzelhausholzheizungen.sl.finalweight_in_level_corrected = 0.111111111111111,
                                   slGui2.Tiefengeothermieanlagen.sl.finalweight_in_level_corrected = 0.111111111111111,
                                   slGui2.Wrmepumpen.sl.finalweight_in_level_corrected = 0.111111111111111,
                                   Anlagengröße.und.Zentralisierung.bsc.timesClicked = 0L, Biomassenverwendung.bsc.timesClicked = 0L,
                                   Energieverbrauch.bsc.timesClicked = 0L, Gesamtanteil.erneuerbarer.Energien.bsc.timesClicked = 0L,
                                   Regionale.Auswirkungen.bsc.timesClicked = 0L, Wirtschaftsentwicklung.bsc.timesClicked = 0L,
                                   Anlagengröße.und.Zentralisierung.bsc.visible = FALSE, Biomassenverwendung.bsc.visible = FALSE,
                                   Energieverbrauch.bsc.visible = FALSE, Gesamtanteil.erneuerbarer.Energien.bsc.visible = FALSE,
                                   Regionale.Auswirkungen.bsc.visible = FALSE, Wirtschaftsentwicklung.bsc.visible = FALSE),
                              .Names = c("Zeitpunkt",
                                         "Sessionstart", "session_id", "gruppe", "url_search", "addBtn",
                                         "PlaceSlct", "FirsttimeSlct", "GenderSlct", "AgeSl", "ChoiceSlct",
                                         "ChoiceSlctCount", "ChoiceFinalSlct", "ChoiceFinalSlctCount",
                                         "BestesErgebnis", "slGui2.Energiewendeziel.sl.originalweights",
                                         "slGui2.Energieverbrauch.sl.originalweights", "slGui2.EnergieverbrauchStrom.sl.originalweights",
                                         "slGui2.EnergieverbrauchWrme.sl.originalweights", "slGui2.GesamtanteilerneuerbarerEnergien.sl.originalweights",
                                         "slGui2.GesamtanteilerneuerbarerWrme.sl.originalweights", "slGui2.GesamtanteilerneuerbarerStrom.sl.originalweights",
                                         "slGui2.Stromberschuss.sl.originalweights", "slGui2.StrukturdesEnergiesystems.sl.originalweights",
                                         "slGui2.DiversittdesEnergieerzeugungssystems.sl.originalweights",
                                         "slGui2.AnlagengreundZentralisierung.sl.originalweights", "slGui2.AnlagengreStromerzeugung.sl.originalweights",
                                         "slGui2.AnlagengreWrmeerzeugung.sl.originalweights", "slGui2.RegionaleAusgleichsmechanismen.sl.originalweights",
                                         "slGui2.konomischeEffekte.sl.originalweights", "slGui2.Wirtschaftsentwicklung.sl.originalweights",
                                         "slGui2.Wertschpfung.sl.originalweights", "slGui2.Arbeitspltze.sl.originalweights",
                                         "slGui2.Energieerzeugungskosten.sl.originalweights", "slGui2.Frderkosten.sl.originalweights",
                                         "slGui2.Gewinnbeteiligung.sl.originalweights", "slGui2.Planungsbeteiligung.sl.originalweights",
                                         "slGui2.Umwelteffekte.sl.originalweights", "slGui2.NichterneuerbarerEnergieverbrauch.sl.originalweights",
                                         "slGui2.Flchenbeanspruchung.sl.originalweights", "slGui2.Biomassenverwendung.sl.originalweights",
                                         "slGui2.Maisverwendung.sl.originalweights", "slGui2.Holzverwendung.sl.originalweights",
                                         "slGui2.RegionaleAuswirkungen.sl.originalweights", "slGui2.PV.Dachflchenanlagen.sl.originalweights",
                                         "slGui2.PV.Freiflchenanlagen.sl.originalweights", "slGui2.Windkraft.sl.originalweights",
                                         "slGui2.Wasserkraftanlagen.sl.originalweights", "slGui2.Biogasanlagen.sl.originalweights",
                                         "slGui2.Biomasseheizkraftwerke.sl.originalweights", "slGui2.Einzelhausholzheizungen.sl.originalweights",
                                         "slGui2.Tiefengeothermieanlagen.sl.originalweights", "slGui2.Wrmepumpen.sl.originalweights",
                                         "slGui2.Energiewendeziel.sl.finalweight_in_level", "slGui2.Energieverbrauch.sl.finalweight_in_level",
                                         "slGui2.EnergieverbrauchStrom.sl.finalweight_in_level", "slGui2.EnergieverbrauchWrme.sl.finalweight_in_level",
                                         "slGui2.GesamtanteilerneuerbarerEnergien.sl.finalweight_in_level",
                                         "slGui2.GesamtanteilerneuerbarerWrme.sl.finalweight_in_level",
                                         "slGui2.GesamtanteilerneuerbarerStrom.sl.finalweight_in_level",
                                         "slGui2.Stromberschuss.sl.finalweight_in_level", "slGui2.StrukturdesEnergiesystems.sl.finalweight_in_level",
                                         "slGui2.DiversittdesEnergieerzeugungssystems.sl.finalweight_in_level",
                                         "slGui2.AnlagengreundZentralisierung.sl.finalweight_in_level",
                                         "slGui2.AnlagengreStromerzeugung.sl.finalweight_in_level", "slGui2.AnlagengreWrmeerzeugung.sl.finalweight_in_level",
                                         "slGui2.RegionaleAusgleichsmechanismen.sl.finalweight_in_level",
                                         "slGui2.konomischeEffekte.sl.finalweight_in_level", "slGui2.Wirtschaftsentwicklung.sl.finalweight_in_level",
                                         "slGui2.Wertschpfung.sl.finalweight_in_level", "slGui2.Arbeitspltze.sl.finalweight_in_level",
                                         "slGui2.Energieerzeugungskosten.sl.finalweight_in_level", "slGui2.Frderkosten.sl.finalweight_in_level",
                                         "slGui2.Gewinnbeteiligung.sl.finalweight_in_level", "slGui2.Planungsbeteiligung.sl.finalweight_in_level",
                                         "slGui2.Umwelteffekte.sl.finalweight_in_level", "slGui2.NichterneuerbarerEnergieverbrauch.sl.finalweight_in_level",
                                         "slGui2.Flchenbeanspruchung.sl.finalweight_in_level", "slGui2.Biomassenverwendung.sl.finalweight_in_level",
                                         "slGui2.Maisverwendung.sl.finalweight_in_level", "slGui2.Holzverwendung.sl.finalweight_in_level",
                                         "slGui2.RegionaleAuswirkungen.sl.finalweight_in_level", "slGui2.PV.Dachflchenanlagen.sl.finalweight_in_level",
                                         "slGui2.PV.Freiflchenanlagen.sl.finalweight_in_level", "slGui2.Windkraft.sl.finalweight_in_level",
                                         "slGui2.Wasserkraftanlagen.sl.finalweight_in_level", "slGui2.Biogasanlagen.sl.finalweight_in_level",
                                         "slGui2.Biomasseheizkraftwerke.sl.finalweight_in_level", "slGui2.Einzelhausholzheizungen.sl.finalweight_in_level",
                                         "slGui2.Tiefengeothermieanlagen.sl.finalweight_in_level", "slGui2.Wrmepumpen.sl.finalweight_in_level",
                                         "slGui2.Energiewendeziel.sl.finalweight_in_level_corrected",
                                         "slGui2.Energieverbrauch.sl.finalweight_in_level_corrected",
                                         "slGui2.EnergieverbrauchStrom.sl.finalweight_in_level_corrected",
                                         "slGui2.EnergieverbrauchWrme.sl.finalweight_in_level_corrected",
                                         "slGui2.GesamtanteilerneuerbarerEnergien.sl.finalweight_in_level_corrected",
                                         "slGui2.GesamtanteilerneuerbarerWrme.sl.finalweight_in_level_corrected",
                                         "slGui2.GesamtanteilerneuerbarerStrom.sl.finalweight_in_level_corrected",
                                         "slGui2.Stromberschuss.sl.finalweight_in_level_corrected", "slGui2.StrukturdesEnergiesystems.sl.finalweight_in_level_corrected",
                                         "slGui2.DiversittdesEnergieerzeugungssystems.sl.finalweight_in_level_corrected",
                                         "slGui2.AnlagengreundZentralisierung.sl.finalweight_in_level_corrected",
                                         "slGui2.AnlagengreStromerzeugung.sl.finalweight_in_level_corrected",
                                         "slGui2.AnlagengreWrmeerzeugung.sl.finalweight_in_level_corrected",
                                         "slGui2.RegionaleAusgleichsmechanismen.sl.finalweight_in_level_corrected",
                                         "slGui2.konomischeEffekte.sl.finalweight_in_level_corrected",
                                         "slGui2.Wirtschaftsentwicklung.sl.finalweight_in_level_corrected",
                                         "slGui2.Wertschpfung.sl.finalweight_in_level_corrected", "slGui2.Arbeitspltze.sl.finalweight_in_level_corrected",
                                         "slGui2.Energieerzeugungskosten.sl.finalweight_in_level_corrected",
                                         "slGui2.Frderkosten.sl.finalweight_in_level_corrected", "slGui2.Gewinnbeteiligung.sl.finalweight_in_level_corrected",
                                         "slGui2.Planungsbeteiligung.sl.finalweight_in_level_corrected",
                                         "slGui2.Umwelteffekte.sl.finalweight_in_level_corrected", "slGui2.NichterneuerbarerEnergieverbrauch.sl.finalweight_in_level_corrected",
                                         "slGui2.Flchenbeanspruchung.sl.finalweight_in_level_corrected",
                                         "slGui2.Biomassenverwendung.sl.finalweight_in_level_corrected",
                                         "slGui2.Maisverwendung.sl.finalweight_in_level_corrected", "slGui2.Holzverwendung.sl.finalweight_in_level_corrected",
                                         "slGui2.RegionaleAuswirkungen.sl.finalweight_in_level_corrected",
                                         "slGui2.PV.Dachflchenanlagen.sl.finalweight_in_level_corrected",
                                         "slGui2.PV.Freiflchenanlagen.sl.finalweight_in_level_corrected",
                                         "slGui2.Windkraft.sl.finalweight_in_level_corrected", "slGui2.Wasserkraftanlagen.sl.finalweight_in_level_corrected",
                                         "slGui2.Biogasanlagen.sl.finalweight_in_level_corrected", "slGui2.Biomasseheizkraftwerke.sl.finalweight_in_level_corrected",
                                         "slGui2.Einzelhausholzheizungen.sl.finalweight_in_level_corrected",
                                         "slGui2.Tiefengeothermieanlagen.sl.finalweight_in_level_corrected",
                                         "slGui2.Wrmepumpen.sl.finalweight_in_level_corrected", "Anlagengröße.und.Zentralisierung.bsc.timesClicked",
                                         "Biomassenverwendung.bsc.timesClicked", "Energieverbrauch.bsc.timesClicked",
                                         "Gesamtanteil.erneuerbarer.Energien.bsc.timesClicked", "Regionale.Auswirkungen.bsc.timesClicked",
                                         "Wirtschaftsentwicklung.bsc.timesClicked", "Anlagengröße.und.Zentralisierung.bsc.visible",
                                         "Biomassenverwendung.bsc.visible", "Energieverbrauch.bsc.visible",
                                         "Gesamtanteil.erneuerbarer.Energien.bsc.visible", "Regionale.Auswirkungen.bsc.visible",
                                         "Wirtschaftsentwicklung.bsc.visible"), row.names = 1L, class = "data.frame")