sapor 0.1b1 → 0.2a1

data/lib/sapor/regional_data/latvia_kpv_par.rb

@@ -0,0 +1,112 @@
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+module Sapor
+  #
+  # The regional data for Latvia, extended for KPV and PAR.
+  #
+  class LatviaKpvPar < Area
+    include Singleton
+    def area_code
+      'LV∪{KPV,PAR}'
+    end
+
+    def coalitions
+      [['KPV LV', 'Sociāldemokrātiskā Partija “Saskaņa”'],
+       ['KPV LV', 'Sociāldemokrātiskā Partija “Saskaņa”',
+        'Zaļo un Zemnieku savienība'],
+       ['Kustība Par!',
+        'Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un Brīvībai/LNNK”',
+        'Vienotība', 'Zaļo un Zemnieku savienība'],
+       ['Kustība Par!',
+        'Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un Brīvībai/LNNK”',
+        'Zaļo un Zemnieku savienība'],
+       ['Kustība Par!', 'Jaunā konservatīvā partija',
+        'Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un Brīvībai/LNNK”',
+        'Vienotība'],
+       ['Kustība Par!', 'Jaunā konservatīvā partija',
+        'Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un Brīvībai/LNNK”',
+        'Vienotība', 'Zaļo un Zemnieku savienība'],
+       ['Kustība Par!', 'Jaunā konservatīvā partija',
+        'Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un Brīvībai/LNNK”',
+        'Zaļo un Zemnieku savienība'],
+       ['Kustība Par!', 'Jaunā konservatīvā partija',
+        'Sociāldemokrātiskā Partija “Saskaņa”'],
+       ['Kustība Par!', 'Sociāldemokrātiskā Partija “Saskaņa”'],
+       ['Jaunā konservatīvā partija',
+        'Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un Brīvībai/LNNK”',
+        'Vienotība', 'Zaļo un Zemnieku savienība'],
+       ['Jaunā konservatīvā partija',
+        'Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un Brīvībai/LNNK”',
+        'Zaļo un Zemnieku savienība'],
+       ['Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un Brīvībai/LNNK”',
+        'Vienotība', 'Zaļo un Zemnieku savienība']]
+    end
+
+    def no_of_seats
+      SEAT_DISTRIBUTION.values.inject(:+)
+    end
+
+    def overall_election_results_of_2014
+      if @overall_election_results_of_2014.nil?
+        @overall_election_results_of_2014 = \
+          summarize_election_results(election_results_of_2014)
+      end
+      @overall_election_results_of_2014
+    end
+
+    def population_size
+      # Voter turnout on 4 October 2014
+      913_491
+    end
+
+    def seats(simulation)
+      electoral_system.project(simulation)
+    end
+
+    def threshold
+      THRESHOLD
+    end
+
+    private
+
+    SEAT_DISTRIBUTION = { 'Kurzeme' => 13, 'Latgale' => 15, 'Rīga' => 32,
+                          'Vidzeme' => 26, 'Zemgale' => 14 }.freeze
+
+    THRESHOLD = 0.05
+
+    def election_results_of_2014
+      if @election_results_of_2014.nil?
+        @election_results_of_2014 = load_election_results(
+          'latvia-20141004-kpv-par.psv'
+        )
+      end
+      @election_results_of_2014
+    end
+
+    def electoral_system
+      if @electoral_system.nil?
+        @electoral_system = MultiDistrictProportional.new( \
+          overall_election_results_of_2014, election_results_of_2014,
+          SEAT_DISTRIBUTION, SainteLagueDenominators, 0, THRESHOLD
+        )
+      end
+      @electoral_system
+    end
+  end
+end

data/lib/sapor/regional_data/luxembourg-20131020.psv

@@ -0,0 +1,76 @@
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+# Source: "Résultats officieux — Site officiel des élections // Grand-Duché de
+#          Luxembourg". Retrieved on 20 September 2018.
+# URL: https://elections.public.lu/fr/elections-legislatives/2013/resultats.html
+
+Centre | Chrëschtlech-Sozial Vollekspartei           | 385,390
+Centre | Demokratesch Partei                         | 273,069
+Centre | Lëtzebuerger Sozialistesch Aarbechterpartei | 159,905
+Centre | déi gréng                                   | 114,145
+Centre | Alternativ Demokratesch Reformpartei        |  54,709
+Centre | Déi Lénk                                    |  51,851
+Centre | Piratepartei Lëtzebuerg                     |  29,633
+Centre | Partei fir Integral Demokratie              |  13,318
+Centre | Kommunistesch Partei Lëtzebuerg             |   9,425
+
+Est | Chrëschtlech-Sozial Vollekspartei           | 71,786
+Est | Demokratesch Partei                         | 36,237
+Est | Lëtzebuerger Sozialistesch Aarbechterpartei | 28,386
+Est | déi gréng                                   | 25,486
+Est | Alternativ Demokratesch Reformpartei        | 16,901
+Est | Déi Lénk                                    |  5,941
+Est | Piratepartei Lëtzebuerg                     |  5,226
+Est | Partei fir Integral Demokratie              |  3,018
+Est | Kommunistesch Partei Lëtzebuerg             |  1,537
+
+Nord | Chrëschtlech-Sozial Vollekspartei           | 107,163
+Nord | Demokratesch Partei                         |  75,426
+Nord | Lëtzebuerger Sozialistesch Aarbechterpartei |  54,788
+Nord | déi gréng                                   |  28,646
+Nord | Alternativ Demokratesch Reformpartei        |  20,246
+Nord | Piratepartei Lëtzebuerg                     |  10,733
+Nord | Partei fir Integral Demokratie              |  10,384
+Nord | Déi Lénk                                    |   8,138
+Nord | Kommunistesch Partei Lëtzebuerg             |   2,575
+
+Sud | Chrëschtlech-Sozial Vollekspartei           | 539,297
+Sud | Lëtzebuerger Sozialistesch Aarbechterpartei | 421,507
+Sud | Demokratesch Partei                         | 213,147
+Sud | déi gréng                                   | 163,643
+Sud | Alternativ Demokratesch Reformpartei        | 125,827
+Sud | Déi Lénk                                    |  95,829
+Sud | Piratepartei Lëtzebuerg                     |  50,678
+Sud | Kommunistesch Partei Lëtzebuerg             |  40,132
+Sud | Partei fir Integral Demokratie              |  22,570
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

data/lib/sapor/regional_data/luxembourg.rb

@@ -0,0 +1,82 @@
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+module Sapor
+  #
+  # The regional data for Luxembourg.
+  #
+  class Luxembourg < Area
+    include Singleton
+    def area_code
+      'LU'
+    end
+
+    def coalitions
+      [['Chrëschtlech-Sozial Vollekspartei'],
+       ['Chrëschtlech-Sozial Vollekspartei',
+        'Lëtzebuerger Sozialistesch Aarbechterpartei'],
+       ['Chrëschtlech-Sozial Vollekspartei', 'Demokratesch Partei'],
+       ['déi gréng', 'Demokratesch Partei',
+        'Lëtzebuerger Sozialistesch Aarbechterpartei']]
+    end
+
+    def no_of_seats
+      SEAT_DISTRIBUTION.values.inject(:+)
+    end
+
+    def overall_election_results_of_2013
+      if @overall_election_results_of_2013.nil?
+        @overall_election_results_of_2013 = \
+          summarize_election_results(election_results_of_2013)
+      end
+      @overall_election_results_of_2013
+    end
+
+    def population_size
+      # Voter turnout on 20 October 2013 (note: multiple votes per voter)
+      3_276_692
+    end
+
+    def seats(simulation)
+      electoral_system.project(simulation)
+    end
+
+    private
+
+    SEAT_DISTRIBUTION = { 'Centre' => 21, 'Est' => 7, 'Nord' => 9, 'Sud' => 23 }.freeze
+
+    def election_results_of_2013
+      if @election_results_of_2013.nil?
+        @election_results_of_2013 = load_election_results(
+          'luxembourg-20131020.psv'
+        )
+      end
+      @election_results_of_2013
+    end
+
+    def electoral_system
+      if @electoral_system.nil?
+        @electoral_system = MultiDistrictProportional.new( \
+          overall_election_results_of_2013, election_results_of_2013,
+          SEAT_DISTRIBUTION, DhondtDenominators
+        )
+      end
+      @electoral_system
+    end
+  end
+end

data/lib/sapor/regional_data/netherlands.rb

@@ -0,0 +1,108 @@
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+module Sapor
+  #
+  # The regional data for Netherlands.
+  #
+  class Netherlands < Area
+    include Singleton
+
+    def area_code
+      'NL'
+    end
+
+    def coalitions
+      COALITIONS
+    end
+
+    def no_of_seats
+      NO_OF_SEATS
+    end
+
+    def population_size
+      POPULATION_SIZE
+    end
+
+    def seats(simulation)
+      electoral_system.project(simulation)
+    end
+
+    def threshold
+      THRESHOLD
+    end
+
+    private
+    
+    CDA_PARTY = 'Christen-Democratisch Appèl'.freeze
+    CU_PARTY = 'ChristenUnie'.freeze
+    D66_PARTY = 'Democraten 66'.freeze
+    FIFTY_PARTY = '50Plus'.freeze
+    FVD_PARTY = 'Forum voor Democratie'.freeze
+    GL_PARTY = 'GroenLinks'.freeze
+    PVDA_PARTY = 'Partij van de Arbeid'.freeze
+    PVV_PARTY = 'Partij voor de Vrijheid'.freeze
+    SGP_PARTY = 'Staatkundig Gereformeerde Partij'.freeze
+    SP_PARTY = 'Socialistische Partij'.freeze
+    VVD_PARTY = 'Volkspartij voor Vrijheid en Democratie'.freeze
+
+    COALITIONS = [[CDA_PARTY, CU_PARTY, D66_PARTY, GL_PARTY, PVDA_PARTY],
+                  [CDA_PARTY, CU_PARTY, D66_PARTY, GL_PARTY, PVDA_PARTY,
+                   SP_PARTY],
+                  [CDA_PARTY, CU_PARTY, D66_PARTY, GL_PARTY, VVD_PARTY],
+                  [CDA_PARTY, CU_PARTY, D66_PARTY, PVDA_PARTY, VVD_PARTY],
+                  [CDA_PARTY, CU_PARTY, D66_PARTY, VVD_PARTY],
+                  [CDA_PARTY, CU_PARTY, PVDA_PARTY],
+                  [CDA_PARTY, D66_PARTY],
+                  [CDA_PARTY, D66_PARTY, PVDA_PARTY],
+                  [CDA_PARTY, D66_PARTY, VVD_PARTY],
+                  [CDA_PARTY, FIFTY_PARTY, FVD_PARTY, VVD_PARTY],
+                  [CDA_PARTY, FIFTY_PARTY, FVD_PARTY, VVD_PARTY, SGP_PARTY],
+                  [CDA_PARTY, FVD_PARTY, PVV_PARTY, SGP_PARTY, VVD_PARTY],
+                  [CDA_PARTY, FVD_PARTY, PVV_PARTY, VVD_PARTY],
+                  [CDA_PARTY, FVD_PARTY, SGP_PARTY, VVD_PARTY],
+                  [CDA_PARTY, FVD_PARTY, VVD_PARTY],
+                  [CDA_PARTY, PVDA_PARTY],
+                  [CDA_PARTY, PVDA_PARTY, VVD_PARTY],
+                  [CDA_PARTY, PVV_PARTY, VVD_PARTY],
+                  [CDA_PARTY, VVD_PARTY],
+                  [D66_PARTY, PVDA_PARTY, VVD_PARTY],
+                  [PVDA_PARTY, VVD_PARTY]].freeze
+
+    NO_OF_SEATS = 150
+
+    # Voter turnout on 21 March 2017
+    # Source: Web page with the official results of the elections of 21 March
+    # 2017, downloaded on 10 August 2019,
+    # https://nl.wikipedia.org/wiki/Tweede_Kamerverkiezingen_2017
+    POPULATION_SIZE = 10_516_041
+
+    THRESHOLD = 1 / NO_OF_SEATS.to_f
+
+    def electoral_system
+      if @electoral_system.nil?
+        @electoral_system = SingleDistrictProportional.new(
+          NO_OF_SEATS,
+          DhondtDenominators,
+          THRESHOLD
+        )
+      end
+      @electoral_system
+    end
+  end
+end

data/lib/sapor/regional_data/norway.rb

@@ -1,7 +1,7 @@
 # encoding: utf-8
 #
 # Statistical Analysis of Polling Results (SAPoR)
-# Copyright (C) 2014 Filip van Laenen <f.a.vanlaenen@ieee.org>
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
 #
 # This file is part of SAPoR.
 #
@@ -21,35 +21,9 @@ module Sapor
   #
   # The regional data for Norway.
   #
-  class Norway
+  class Norway < Area
     include Singleton
 
-    # Source: NSD European Election Database, Parliamentary election of 2013,\
-    # retrieved on 14 April 2015.
-    # URL: http://eed.nsd.uib.no/webview/index.jsp?stubs=nuts_id&study=http%3A%2F%2F129.177.90.166%3A80%2Fobj%2FfStudy%2Fnopa2013&virtualslice=pv_p_value&measuretype=4&headers=party_name_org&mode=cube&v=2&party_name_orgsubset=1+-+9&cube=http%3A%2F%2F129.177.90.166%3A80%2Fobj%2FfCube%2Fnopa2013_C1&nuts_idsubset=NO%2CNO011+-+NO073&virtualsubset=pv_p_value&layers=virtual&measure=common&top=yes
-    LAST_ELECTION_RESULT = { 'Arbeiderpartiet' => 874_769,
-                             'Høyre' => 760_232,
-                             'Fremskrittspartiet' => 463_560,
-                             'Kristelig Folkeparti' => 158_475,
-                             'Senterpartiet' => 155_357,
-                             'Venstre' => 148_275,
-                             'Sosialistisk Venstreparti' => 116_021,
-                             'Miljøpartiet de Grønne' => 79_152,
-                             'Rødt' => 30_751,
-                             'De Kristne' => 17_731,
-                             'Pensjonistpartiet' => 11_865,
-                             'Piratpartiet' => 9_869,
-                             'Kystpartiet' => 3_311,
-                             'Demokratene i Norge' => 2_214,
-                             'Kristent Samlingsparti' => 1_722,
-                             'Det Liberale Folkepartiet' => 909,
-                             'Norges Kommunistiske Parti' => 611,
-                             'Sykehus til Alta' => 467,
-                             'Samfunnspartiet' => 295,
-                             'Folkeliste mot oljeboring i Lofoten, Vesterålen' \
-                             ' og Senja' => 268,
-                             'Folkemakten' => 175 }
-
     # Source: NSD European Election Database, Parliamentary election of 2013,
     # retrieved on 14 April 2015.
     # URL: http://eed.nsd.uib.no/webview/index.jsp?stubs=nuts_id&study=http%3A%2F%2F129.177.90.166%3A80%2Fobj%2FfStudy%2Fnopa2013&virtualslice=pv_p_value&measuretype=4&headers=party_name_org&mode=cube&v=2&party_name_orgsubset=1+-+9&cube=http%3A%2F%2F129.177.90.166%3A80%2Fobj%2FfCube%2Fnopa2013_C1&nuts_idsubset=NO%2CNO011+-+NO073&virtualsubset=pv_p_value&layers=virtual&measure=common&top=yes
@@ -345,45 +319,27 @@ module Sapor
                      'Piratpartiet' => 516,
                      'Kystpartiet' => 68,
                      'Demokratene i Norge' => 99,
-                     'Kristent Samlingsparti' => 145 } }
+                     'Kristent Samlingsparti' => 145 }
+    }.freeze
 
-    # Source: Valg i Norge, Valgkretser, Wikipedia, retrieved on 1 May 2015.
-    # URL: http://no.wikipedia.org/wiki/Valg_i_Norge#Valgkretser
-    DIRECT_SEAT_DISTRIBUTION = { 'Akershus' => 16,
-                                 'Aust-Agder' => 3,
-                                 'Buskerud' => 8,
-                                 'Finnmark' => 4,
-                                 'Hedmark' => 6,
-                                 'Hordaland' => 15,
-                                 'Møre og Romsdal' => 8,
-                                 'Nord-Trøndelag' => 4,
-                                 'Nordland' => 8,
-                                 'Oppland' => 6,
-                                 'Oslo' => 18,
-                                 'Rogaland' => 13,
-                                 'Sogn og Fjordane' => 3,
-                                 'Sør-Trøndelag' => 9,
-                                 'Telemark' => 5,
-                                 'Troms' => 5,
-                                 'Vest-Agder' => 5,
-                                 'Vestfold' => 6,
-                                 'Østfold' => 8 }
-
-    # Source: Valg i Norge, Valgkretser, Wikipedia, retrieved on 16 April 2015.
-    # URL: http://no.wikipedia.org/wiki/Valg_i_Norge#Valgkretser
-    NO_OF_LEVELING_SEATS = 19
+    def area_code
+      'NO'
+    end
 
-    LEVELING_THRESHOLD = 0.04
+    def coalitions
+      COALITIONS
+    end
 
-    ELECTORAL_SYSTEM = LeveledProportional.new(LAST_ELECTION_RESULT,
-                                               LAST_DETAILED_ELECTION_RESULT,
-                                               DIRECT_SEAT_DISTRIBUTION,
-                                               NO_OF_LEVELING_SEATS,
-                                               LEVELING_THRESHOLD,
-                                               SainteLague14Denominators)
+    def no_of_seats
+      NO_OF_SEATS
+    end
 
-    def area_code
-      'NO'
+    def overall_election_results_of_2015
+      if @overall_election_results_of_2015.nil?
+        @overall_election_results_of_2015 = \
+          summarize_election_results(election_results_of_2015)
+      end
+      @overall_election_results_of_2015
     end
 
     def population_size
@@ -393,16 +349,77 @@ module Sapor
       2_836_029
     end
 
-    def no_of_seats
-      169
+    def seats(simulation)
+      electoral_system.project(simulation)
     end
 
     def threshold
-      0.04
+      LEVELING_THRESHOLD
     end
 
-    def seats(simulation)
-      ELECTORAL_SYSTEM.project(simulation)
+    private
+
+    COALITIONS = [['Arbeiderpartiet', 'Kristelig Folkeparti', 'Senterpartiet'],
+                  ['Arbeiderpartiet', 'Kristelig Folkeparti',
+                   'Miljøpartiet de Grønne', 'Senterpartiet',
+                   'Sosialistisk Venstreparti'],
+                  ['Arbeiderpartiet', 'Miljøpartiet de Grønne', 'Rødt',
+                   'Senterpartiet', 'Sosialistisk Venstreparti'],
+                  ['Arbeiderpartiet', 'Miljøpartiet de Grønne', 'Senterpartiet',
+                   'Sosialistisk Venstreparti'],
+                  ['Arbeiderpartiet', 'Rødt', 'Senterpartiet',
+                   'Sosialistisk Venstreparti'],
+                  ['Arbeiderpartiet', 'Senterpartiet',
+                   'Sosialistisk Venstreparti'],
+                  %w(Arbeiderpartiet Senterpartiet),
+                  ['Arbeiderpartiet', 'Sosialistisk Venstreparti'],
+                  %w(Fremskrittspartiet Høyre),
+                  ['Fremskrittspartiet', 'Høyre', 'Kristelig Folkeparti',
+                   'Miljøpartiet de Grønne', 'Venstre'],
+                  ['Fremskrittspartiet', 'Høyre', 'Kristelig Folkeparti',
+                   'Senterpartiet', 'Venstre'],
+                  ['Fremskrittspartiet', 'Høyre', 'Kristelig Folkeparti',
+                   'Venstre'],
+                  ['Høyre', 'Kristelig Folkeparti', 'Venstre'],
+                  ['Kristelig Folkeparti', 'Senterpartiet', 'Venstre']].freeze
+
+    # Source: Valg i Norge, Valgkretser, Wikipedia, retrieved on 1 May 2015.
+    # URL: http://no.wikipedia.org/wiki/Valg_i_Norge#Valgkretser
+    DIRECT_SEAT_DISTRIBUTION = { 'Akershus' => 16, 'Aust-Agder' => 3,
+                                 'Buskerud' => 8, 'Finnmark' => 4,
+                                 'Hedmark' => 6, 'Hordaland' => 15,
+                                 'Møre og Romsdal' => 8, 'Nord-Trøndelag' => 4,
+                                 'Nordland' => 8, 'Oppland' => 6, 'Oslo' => 18,
+                                 'Rogaland' => 13, 'Sogn og Fjordane' => 3,
+                                 'Sør-Trøndelag' => 9, 'Telemark' => 5,
+                                 'Troms' => 5, 'Vest-Agder' => 5,
+                                 'Vestfold' => 6, 'Østfold' => 8 }.freeze
+
+    LEVELING_THRESHOLD = 0.04
+
+    # Source: Valg i Norge, Valgkretser, Wikipedia, retrieved on 16 April 2015.
+    # URL: http://no.wikipedia.org/wiki/Valg_i_Norge#Valgkretser
+    NO_OF_LEVELING_SEATS = 19
+
+    NO_OF_SEATS = NO_OF_LEVELING_SEATS + \
+                  DIRECT_SEAT_DISTRIBUTION.values.inject(:+)
+
+    def election_results_of_2015
+      if @election_results_of_2015.nil?
+        @election_results_of_2015 = LAST_DETAILED_ELECTION_RESULT
+      end
+      @election_results_of_2015
+    end
+
+    def electoral_system
+      if @electoral_system.nil?
+        @electoral_system = MultiDistrictLeveledProportional.new(
+          overall_election_results_of_2015, election_results_of_2015,
+          DIRECT_SEAT_DISTRIBUTION, NO_OF_LEVELING_SEATS, LEVELING_THRESHOLD,
+          SainteLague14Denominators
+        )
+      end
+      @electoral_system
     end
   end
 end

data/lib/sapor/regional_data/norwegian_municipality.rb

@@ -0,0 +1,68 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+module Sapor
+  #
+  # The regional data for Oslo.
+  #
+  class NorwegianMunicipality < Area
+    attr_reader :area_code, :no_of_seats, :population_size
+
+    def initialize(municipality_key, population_size, no_of_seats)
+      @area_code = 'NO-' + municipality_key
+      @population_size = population_size
+      @no_of_seats = no_of_seats
+      @electoral_system  = SingleDistrictProportional.new( \
+        no_of_seats, SainteLague14Denominators)
+    end
+
+    # Population sizes are equal to the electorate of 2013.
+    # Source: https://www.regjeringen.no/html/kmd/valgresultat/2013/bss.html
+    # Exception: Oslo, for which there is a projection for 2015.
+    # Source:
+    # https://www.ssb.no/valg/statistikker/stemmerettkomm/hvert-4-aar-forelopige/2015-04-13?fane=tabell&sort=nummer&tabell=223755
+    BERGEN = NorwegianMunicipality.new('1201', 193_348, 67)
+    OSLO = NorwegianMunicipality.new('0301', 511_400, 59)
+    TRONDHEIM = NorwegianMunicipality.new('1601', 131_524, 67)
+
+    def coalitions
+      [['Høyre', 'Kristelig Folkeparti', 'Venstre'],
+       %w(Fremskrittspartiet Høyre),
+       ['Fremskrittspartiet', 'Høyre', 'Kristelig Folkeparti', 'Venstre'],
+       ['Fremskrittspartiet', 'Høyre', 'Kristelig Folkeparti',
+        'Miljøpartiet de Grønne', 'Venstre'],
+       ['Fremskrittspartiet', 'Høyre', 'Kristelig Folkeparti', 'Senterpartiet',
+        'Venstre'],
+       ['Arbeiderpartiet', 'Senterpartiet', 'Sosialistisk Venstreparti'],
+       ['Arbeiderpartiet', 'Miljøpartiet de Grønne', 'Rødt', 'Senterpartiet',
+        'Sosialistisk Venstreparti'],
+       ['Arbeiderpartiet', 'Kristelig Folkeparti', 'Miljøpartiet de Grønne',
+        'Senterpartiet', 'Sosialistisk Venstreparti'],
+       ['Arbeiderpartiet', 'Miljøpartiet de Grønne', 'Senterpartiet',
+        'Sosialistisk Venstreparti'],
+       ['Arbeiderpartiet', 'Rødt', 'Senterpartiet',
+        'Sosialistisk Venstreparti'],
+       ['Kristelig Folkeparti', 'Senterpartiet', 'Venstre']]
+    end
+
+    def seats(simulation)
+      @electoral_system.project(simulation)
+    end
+  end
+end