sapor 0.3.4

data/lib/sapor/regional_data/hungary.rb

@@ -0,0 +1,116 @@
+# 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 Hungary.
+  #
+  class Hungary < Area
+    include Singleton
+
+    def area_code
+      'HU'
+    end
+
+    def coalitions
+      COALITIONS
+    end
+
+    def individual_constituencies_seats(simulation)
+      individual_constituencies_electoral_system.project(simulation)
+    end
+
+    def no_of_seats
+      NO_OF_PROPORTIONAL_SEATS + \
+        individual_constituencies_election_results_of_2014.size
+    end
+
+    def overall_individual_constituencies_election_results_of_2014
+      if @overall_individual_constituencies_election_results_of_2014.nil?
+        @overall_individual_constituencies_election_results_of_2014 = \
+          summarize_election_results( \
+            individual_constituencies_election_results_of_2014
+          )
+      end
+      @overall_individual_constituencies_election_results_of_2014
+    end
+
+    def party_list_seats(simulation)
+      PARTY_LIST_ELECTORAL_SYSTEM.project(simulation)
+    end
+
+    def population_size
+      # Voter turnout on 6 April 2014
+      # Source: Wikipedia, Hungarian parliamentary election, 2014, downloaded
+      # on 10 November 2017,
+      # https://en.wikipedia.org/wiki/Hungarian_parliamentary_election,_2014
+      5_047_363
+    end
+
+    def seats(simulation)
+      individual_seats = individual_constituencies_seats(simulation)
+      party_seats = party_list_seats(simulation)
+      join_seats(individual_seats, party_seats)
+    end
+
+    def threshold
+      THRESHOLD
+    end
+
+    private
+
+    NO_OF_PROPORTIONAL_SEATS = 93
+    THRESHOLD = 0.05
+    PARTY_LIST_ELECTORAL_SYSTEM = SingleDistrictProportional.new(\
+      NO_OF_PROPORTIONAL_SEATS, DhondtDenominators, THRESHOLD
+    )
+
+    COALITIONS = [%w(DK Együtt MLP MSZP Párbeszéd), ['Fidesz–KDNP']].freeze
+
+    def individual_constituencies_election_results_of_2014
+      if @individual_constituencies_election_results_of_2014.nil?
+        @individual_constituencies_election_results_of_2014 = \
+          load_election_results('hungary-2014.psv')
+      end
+      @individual_constituencies_election_results_of_2014
+    end
+
+    def individual_constituencies_electoral_system
+      if @individual_constituencies_electoral_system.nil?
+        @individual_constituencies_electoral_system = FirstPastThePost.new(
+          overall_individual_constituencies_election_results_of_2014,
+          individual_constituencies_election_results_of_2014
+        )
+      end
+      @individual_constituencies_electoral_system
+    end
+
+    def join_seats(seats1, seats2)
+      results = seats1.dup
+      seats2.each_pair do |party, result|
+        if results.key?(party)
+          results[party] += result
+        else
+          results[party] = result
+        end
+      end
+      results
+    end
+  end
+end

data/lib/sapor/regional_data/iceland-20161029-midflokkurinn.psv

@@ -0,0 +1,94 @@
+# 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: Web page with the official results of the elections of 29 October
+#         2016, downloaded on 17 September 2017,
+# URL: http://icelandmonitor.mbl.is/elections2016/
+
+Norðaustur | Sjálfstæðisflokkurinn              | 6,014
+Norðaustur | Framsóknarflokkurinn               | 2,271
+Norðaustur | Miðflokkurinn                      | 2,271
+Norðaustur | Vinstrihreyfingin – grænt framboð  | 4,539
+Norðaustur | Píratar                            | 2,265
+Norðaustur | Samfylkingin                       | 1,816
+Norðaustur | Viðreisn                           | 1,482
+Norðaustur | Björt framtíð                      |   774
+Norðaustur | Flokkur fólksins                   |   645
+Norðaustur | Dögun                              |   415
+Norðaustur | Alþýðufylkingin                    |   211
+
+Norðvestur | Sjálfstæðisflokkurinn              | 4,951
+Norðvestur | Framsóknarflokkurinn               | 1,741
+Norðvestur | Miðflokkurinn                      | 1,741
+Norðvestur | Vinstrihreyfingin – grænt framboð  | 3,032
+Norðvestur | Píratar                            | 1,823
+Norðvestur | Samfylkingin                       | 1,054
+Norðvestur | Viðreisn                           | 1,044
+Norðvestur | Björt framtíð                      |   590
+Norðvestur | Flokkur fólksins                   |   412
+Norðvestur | Dögun                              |   282
+Norðvestur | Íslenska þjóðfylkingin             |    90
+
+Reykjavík norður | Sjálfstæðisflokkurinn              | 8,538
+Reykjavík norður | Vinstrihreyfingin – grænt framboð  | 7,318
+Reykjavík norður | Píratar                            | 6,655
+Reykjavík norður | Viðreisn                           | 4,064
+Reykjavík norður | Björt framtíð                      | 2,673
+Reykjavík norður | Framsóknarflokkurinn               |   994
+Reykjavík norður | Miðflokkurinn                      |   993
+Reykjavík norður | Samfylkingin                       | 1,822
+Reykjavík norður | Flokkur fólksins                   | 1,321
+Reykjavík norður | Dögun                              |   496
+Reykjavík norður | Alþýðufylkingin                    |   104
+
+Reykjavík suður | Sjálfstæðisflokkurinn              | 8,929
+Reykjavík suður | Vinstrihreyfingin – grænt framboð  | 6,148
+Reykjavík suður | Píratar                            | 6,021
+Reykjavík suður | Viðreisn                           | 4,440
+Reykjavík suður | Framsóknarflokkurinn               | 1,282
+Reykjavík suður | Miðflokkurinn                      | 1,282
+Reykjavík suður | Björt framtíð                      | 2,518
+Reykjavík suður | Samfylkingin                       | 1,944
+Reykjavík suður | Flokkur fólksins                   | 1,614
+Reykjavík suður | Dögun                              |   578
+Reykjavík suður | Alþýðufylkingin                    |    79
+Reykjavík suður | Húmanistaflokkurinn                |    33
+
+Suðvestur | Sjálfstæðisflokkurinn              | 18,049
+Suðvestur | Píratar                            |  7,227
+Suðvestur | Viðreisn                           |  6,857
+Suðvestur | Vinstrihreyfingin – grænt framboð  |  6,378
+Suðvestur | Björt framtíð                      |  5,458
+Suðvestur | Framsóknarflokkurinn               |  2,031
+Suðvestur | Miðflokkurinn                      |  2,031
+Suðvestur | Samfylkingin                       |  2,532
+Suðvestur | Flokkur fólksins                   |  1,742
+Suðvestur | Dögun                              |    893
+Suðvestur | Alþýðufylkingin                    |    103
+
+Suður | Sjálfstæðisflokkurinn              | 8,509
+Suður | Framsóknarflokkurinn               | 2,577
+Suður | Miðflokkurinn                      | 2,577
+Suður | Píratar                            | 3,458
+Suður | Vinstrihreyfingin – grænt framboð  | 2,751
+Suður | Viðreisn                           | 1,983
+Suður | Samfylkingin                       | 1,725
+Suður | Björt framtíð                      | 1,565
+Suður | Flokkur fólksins                   |   973
+Suður | Dögun                              |   611
+Suður | Íslenska þjóðfylkingin             |   213
+Suður | Alþýðufylkingin                    |    78

data/lib/sapor/regional_data/iceland-20161029.psv

@@ -0,0 +1,88 @@
+# 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: Web page with the official results of the elections of 29 October
+#         2016, downloaded on 17 September 2017,
+# URL: http://icelandmonitor.mbl.is/elections2016/
+
+Norðaustur | Sjálfstæðisflokkurinn              | 6,014
+Norðaustur | Framsóknarflokkurinn               | 4,542
+Norðaustur | Vinstrihreyfingin – grænt framboð  | 4,539
+Norðaustur | Píratar                            | 2,265
+Norðaustur | Samfylkingin                       | 1,816
+Norðaustur | Viðreisn                           | 1,482
+Norðaustur | Björt framtíð                      |   774
+Norðaustur | Flokkur fólksins                   |   645
+Norðaustur | Dögun                              |   415
+Norðaustur | Alþýðufylkingin                    |   211
+
+Norðvestur | Sjálfstæðisflokkurinn              | 4,951
+Norðvestur | Framsóknarflokkurinn               | 3,482
+Norðvestur | Vinstrihreyfingin – grænt framboð  | 3,032
+Norðvestur | Píratar                            | 1,823
+Norðvestur | Samfylkingin                       | 1,054
+Norðvestur | Viðreisn                           | 1,044
+Norðvestur | Björt framtíð                      |   590
+Norðvestur | Flokkur fólksins                   |   412
+Norðvestur | Dögun                              |   282
+Norðvestur | Íslenska þjóðfylkingin             |    90
+
+Reykjavík norður | Sjálfstæðisflokkurinn              | 8,538
+Reykjavík norður | Vinstrihreyfingin – grænt framboð  | 7,318
+Reykjavík norður | Píratar                            | 6,655
+Reykjavík norður | Viðreisn                           | 4,064
+Reykjavík norður | Björt framtíð                      | 2,673
+Reykjavík norður | Framsóknarflokkurinn               | 1,987
+Reykjavík norður | Samfylkingin                       | 1,822
+Reykjavík norður | Flokkur fólksins                   | 1,321
+Reykjavík norður | Dögun                              |   496
+Reykjavík norður | Alþýðufylkingin                    |   104
+
+Reykjavík suður | Sjálfstæðisflokkurinn              | 8,929
+Reykjavík suður | Vinstrihreyfingin – grænt framboð  | 6,148
+Reykjavík suður | Píratar                            | 6,021
+Reykjavík suður | Viðreisn                           | 4,440
+Reykjavík suður | Framsóknarflokkurinn               | 2,564
+Reykjavík suður | Björt framtíð                      | 2,518
+Reykjavík suður | Samfylkingin                       | 1,944
+Reykjavík suður | Flokkur fólksins                   | 1,614
+Reykjavík suður | Dögun                              |   578
+Reykjavík suður | Alþýðufylkingin                    |    79
+Reykjavík suður | Húmanistaflokkurinn                |    33
+
+Suðvestur | Sjálfstæðisflokkurinn              | 18,049
+Suðvestur | Píratar                            |  7,227
+Suðvestur | Viðreisn                           |  6,857
+Suðvestur | Vinstrihreyfingin – grænt framboð  |  6,378
+Suðvestur | Björt framtíð                      |  5,458
+Suðvestur | Framsóknarflokkurinn               |  4,062
+Suðvestur | Samfylkingin                       |  2,532
+Suðvestur | Flokkur fólksins                   |  1,742
+Suðvestur | Dögun                              |    893
+Suðvestur | Alþýðufylkingin                    |    103
+
+Suður | Sjálfstæðisflokkurinn              | 8,509
+Suður | Framsóknarflokkurinn               | 5,154
+Suður | Píratar                            | 3,458
+Suður | Vinstrihreyfingin – grænt framboð  | 2,751
+Suður | Viðreisn                           | 1,983
+Suður | Samfylkingin                       | 1,725
+Suður | Björt framtíð                      | 1,565
+Suður | Flokkur fólksins                   |   973
+Suður | Dögun                              |   611
+Suður | Íslenska þjóðfylkingin             |   213
+Suður | Alþýðufylkingin                    |    78

data/lib/sapor/regional_data/iceland-20171028.psv

@@ -0,0 +1,85 @@
+# 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: Web page with the official results of the elections of 28 October
+#         2017, downloaded on 20 November 2017,
+# URL: http://icelandmonitor.mbl.is/elections2017/
+
+Norðaustur | Sjálfstæðisflokkurinn              | 4,787
+Norðaustur | Vinstrihreyfingin – grænt framboð  | 4,699
+Norðaustur | Miðflokkurinn                      | 4,388
+Norðaustur | Framsóknarflokkurinn               | 3,386
+Norðaustur | Samfylkingin                       | 3,275
+Norðaustur | Píratar                            | 1,295
+Norðaustur | Flokkur fólksins                   | 1,005
+Norðaustur | Viðreisn                           |   495
+Norðaustur | Björt framtíð                      |   169
+Norðaustur | Alþýðufylkingin                    |   110
+
+Norðvestur | Sjálfstæðisflokkurinn              | 4,233
+Norðvestur | Framsóknarflokkurinn               | 3,177
+Norðvestur | Vinstrihreyfingin – grænt framboð  | 3,067
+Norðvestur | Miðflokkurinn                      | 2,456
+Norðvestur | Samfylkingin                       | 1,681
+Norðvestur | Píratar                            | 1,169
+Norðvestur | Flokkur fólksins                   |   911
+Norðvestur | Viðreisn                           |   423
+Norðvestur | Björt framtíð                      |   135
+
+Reykjavík norður | Sjálfstæðisflokkurinn              | 8,108
+Reykjavík norður | Vinstrihreyfingin – grænt framboð  | 7,727
+Reykjavík norður | Píratar                            | 4,885
+Reykjavík norður | Samfylkingin                       | 4,575
+Reykjavík norður | Viðreisn                           | 3,013
+Reykjavík norður | Flokkur fólksins                   | 2,547
+Reykjavík norður | Miðflokkurinn                      | 2,509
+Reykjavík norður | Framsóknarflokkurinn               | 1,901
+Reykjavík norður | Björt framtíð                      |   506
+Reykjavík norður | Alþýðufylkingin                    |   105
+
+Reykjavík suður | Sjálfstæðisflokkurinn              | 8,143
+Reykjavík suður | Vinstrihreyfingin – grænt framboð  | 6,750
+Reykjavík suður | Samfylkingin                       | 4,661
+Reykjavík suður | Píratar                            | 4,076
+Reykjavík suður | Viðreisn                           | 3,043
+Reykjavík suður | Flokkur fólksins                   | 2,914
+Reykjavík suður | Framsóknarflokkurinn               | 2,897
+Reykjavík suður | Miðflokkurinn                      | 2,701
+Reykjavík suður | Björt framtíð                      |   449
+Reykjavík suður | Alþýðufylkingin                    |    85
+
+Suður | Sjálfstæðisflokkurinn              | 7,056
+Suður | Framsóknarflokkurinn               | 5,230
+Suður | Miðflokkurinn                      | 3,999
+Suður | Vinstrihreyfingin – grænt framboð  | 3,321
+Suður | Samfylkingin                       | 2,689
+Suður | Flokkur fólksins                   | 2,509
+Suður | Píratar                            | 1,985
+Suður | Viðreisn                           |   871
+Suður | Björt framtíð                      |   289
+Suður | Dögun                              |   101
+
+Suðvestur | Sjálfstæðisflokkurinn              | 17,216
+Suðvestur | Vinstrihreyfingin – grænt framboð  |  7,591
+Suðvestur | Samfylkingin                       |  6,771
+Suðvestur | Miðflokkurinn                      |  5,282
+Suðvestur | Viðreisn                           |  5,277
+Suðvestur | Píratar                            |  4,641
+Suðvestur | Framsóknarflokkurinn               |  4,425
+Suðvestur | Flokkur fólksins                   |  3,616
+Suðvestur | Björt framtíð                      |    846
+Suðvestur | Alþýðufylkingin                    |     75

data/lib/sapor/regional_data/iceland.rb

@@ -0,0 +1,133 @@
+# 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 Iceland.
+  #
+  class Iceland < Area
+    include Singleton
+
+    def area_code
+      'IS'
+    end
+
+    def coalitions
+      COALITIONS
+    end
+
+    def no_of_seats
+      NO_OF_SEATS
+    end
+
+    def overall_election_results_of_2017
+      if @overall_election_results_of_2017.nil?
+        @overall_election_results_of_2017 = \
+          summarize_election_results(election_results_of_2017)
+      end
+      @overall_election_results_of_2017
+    end
+
+    def population_size
+      # Voter turnout on 28 October 2017
+      # Source: Wikipedia, Icelandic parliamentary election, 2017, downloaded
+      # on 20 November 2017,
+      # https://en.wikipedia.org/wiki/Icelandic_parliamentary_election,_2017
+      196_246
+    end
+
+    def seat_distribution
+      SEAT_DISTRIBUTION
+    end
+
+    def seats(simulation)
+      electoral_system.project(simulation)
+    end
+
+    def threshold
+      LEVELING_THRESHOLD
+    end
+
+    private
+
+    COALITIONS = [['Björt framtíð', 'Píratar', 'Samfylkingin', 'Viðreisn',
+                   'Vinstrihreyfingin – grænt framboð'],
+                  ['Björt framtíð', 'Píratar', 'Samfylkingin',
+                   'Vinstrihreyfingin – grænt framboð'],
+                  ['Björt framtíð', 'Sjálfstæðisflokkurinn'],
+                  ['Björt framtíð', 'Sjálfstæðisflokkurinn', 'Viðreisn'],
+                  ['Framsóknarflokkurinn', 'Miðflokkurinn', 'Samfylkingin',
+                   'Vinstrihreyfingin – grænt framboð'],
+                  %w(Framsóknarflokkurinn Miðflokkurinn Sjálfstæðisflokkurinn),
+                  ['Framsóknarflokkurinn', 'Miðflokkurinn',
+                   'Vinstrihreyfingin – grænt framboð'],
+                  ['Framsóknarflokkurinn', 'Samfylkingin',
+                   'Vinstrihreyfingin – grænt framboð'],
+                  %w(Framsóknarflokkurinn Sjálfstæðisflokkurinn),
+                  ['Framsóknarflokkurinn', 'Sjálfstæðisflokkurinn',
+                   'Vinstrihreyfingin – grænt framboð'],
+                  ['Framsóknarflokkurinn', 'Vinstrihreyfingin – grænt framboð'],
+                  ['Miðflokkurinn', 'Samfylkingin',
+                   'Vinstrihreyfingin – grænt framboð'],
+                  %w(Miðflokkurinn Sjálfstæðisflokkurinn),
+                  ['Miðflokkurinn', 'Vinstrihreyfingin – grænt framboð'],
+                  %w(Samfylkingin Sjálfstæðisflokkurinn),
+                  ['Píratar', 'Samfylkingin', 'Viðreisn',
+                   'Vinstrihreyfingin – grænt framboð'],
+                  ['Píratar', 'Samfylkingin',
+                   'Vinstrihreyfingin – grænt framboð'],
+                  ['Píratar', 'Vinstrihreyfingin – grænt framboð'],
+                  ['Samfylkingin', 'Vinstrihreyfingin – grænt framboð'],
+                  %w(Sjálfstæðisflokkurinn Viðreisn),
+                  ['Sjálfstæðisflokkurinn',
+                   'Vinstrihreyfingin – grænt framboð']].freeze
+
+    DIRECT_SEAT_DISTRIBUTION = { 'Norðaustur' => 9, 'Norðvestur' => 9,
+                                 'Reykjavík norður' => 9,
+                                 'Reykjavík suður' => 9, 'Suðvestur' => 9,
+                                 'Suður' => 9 }.freeze
+
+    NO_OF_LEVELING_SEATS = 9
+
+    LEVELING_THRESHOLD = 0.05
+
+    NO_OF_SEATS = NO_OF_LEVELING_SEATS + \
+                  DIRECT_SEAT_DISTRIBUTION.values.inject(:+)
+
+    def election_results_of_2017
+      if @election_results_of_2017.nil?
+        @election_results_of_2017 = load_election_results(
+          'iceland-20171028.psv'
+        )
+      end
+      @election_results_of_2017
+    end
+
+    def electoral_system
+      if @electoral_system.nil?
+        @electoral_system = MultiDistrictLeveledProportional.new(
+          overall_election_results_of_2017, election_results_of_2017,
+          DIRECT_SEAT_DISTRIBUTION, NO_OF_LEVELING_SEATS, LEVELING_THRESHOLD,
+          DhondtDenominators
+        )
+      end
+      @electoral_system
+    end
+  end
+end