sapor 0.3.3

data/lib/sapor/regional_data/latvia_kpv.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.
+  #
+  class LatviaKpv < Area
+    include Singleton
+    def area_code
+      'LV∪{KPV}'
+    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.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/latvia_kpv_p_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, P and PAR.
+  #
+  class LatviaKpvPPar < Area
+    include Singleton
+    def area_code
+      'LV∪{KPV,P,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-p-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/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