society 1.0.0 → 1.1.0

data/lib/society/version.rb

@@ -1,3 +1,3 @@
 module Society
-  VERSION = "1.0.0"
+  VERSION = "1.1.0"
 end

data/spec/clusterer_spec.rb

@@ -0,0 +1,37 @@
+require 'spec_helper'
+require_relative 'fixtures/clustering/clusterer_fixtures.rb'
+
+describe Society::Clusterer do
+
+  describe "#cluster" do
+    let(:clusterer) { Society::Clusterer.new }
+
+    it "detects clusters" do
+      clusters = clusterer.cluster(MCL::GRAPH_1).map(&:sort)
+      expected = MCL::CLUSTERS_1.map(&:sort)
+      expect(clusters).to match_array(expected)
+    end
+
+    context "with inflation parameter set to 1.7" do
+      let(:clusterer) { Society::Clusterer.new(inflation: 1.7) }
+
+      it "detects clusters at coarser granularity" do
+        clusters = clusterer.cluster(MCL::GRAPH_1).map(&:sort)
+        expected = MCL::CLUSTERS_1_I17.map(&:sort)
+        expect(clusters).to match_array(expected)
+      end
+    end
+
+    context "with inflation parameter set to 4.0" do
+      let(:clusterer) { Society::Clusterer.new(inflation: 4.0) }
+
+      it "detects clusters at finer granularity" do
+        clusters = clusterer.cluster(MCL::GRAPH_1).map(&:sort)
+        expected = MCL::CLUSTERS_1_I40.map(&:sort)
+        expect(clusters).to match_array(expected)
+      end
+    end
+  end
+
+end
+

data/spec/fixtures/clustering/clusterer_fixtures.rb

@@ -0,0 +1,144 @@
+# Reference results were calculated using the `minimcl` perl script from
+# release 14-137 of the MCL-edge library. http://micans.org/mcl
+
+require 'set'
+
+module MCL
+
+  def self.graph_from_edges(path)
+    full_path = File.join(File.dirname(__FILE__), path)
+    nodes = Set.new
+    edges = []
+    edges_with_weights = /(\S+)\s+(\S+)\s+(\S+)/
+    edges_only = /(\S+)\s+(\S+)/
+    File.readlines(full_path).each do |line|
+      if data = line.match(edges_with_weights)
+        a,b,weight = data[1..-1]
+        # FIXME: disregarding weight for now -- include it once we have
+        #        weights in Edges
+        edges << Society::Edge.new(from: a.to_i, to: b.to_i)
+        nodes << a << b
+      elsif data = line.match(edges_only)
+        a,b = data[1..-1]
+        edges << Society::Edge.new(from: a.to_i, to: b.to_i)
+        nodes << a << b
+      end
+    end
+    Society::ObjectGraph.new(nodes: nodes.to_a, edges: edges)
+  end
+
+  GRAPH_1 = graph_from_edges('edges_1.txt')
+
+  CLUSTERS_1 = [
+    [9, 10, 19, 24, 25, 26, 28, 29, 30, 39, 58, 68, 102, 189, 198, 200],
+    [46, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139],
+    [0, 1, 4, 11, 38, 49, 52, 59, 60, 61, 71, 125],
+    [109, 110, 144, 145, 146, 147, 148, 149],
+    [81, 121, 122, 184, 185, 188],
+    [12, 31, 32, 79, 91, 124],
+    [7, 47, 53, 54, 78, 82],
+    [33, 83, 96, 113, 119],
+    [17, 55, 56, 57, 65],
+    [13, 42, 115, 120],
+    [14, 15, 27, 190],
+    [43, 90, 99, 118],
+    [173, 175, 193],
+    [88, 116, 117],
+    [73, 143, 176],
+    [77, 114, 116],
+    [20, 69, 103],
+    [41, 44, 112],
+    [16, 97, 98],
+    [3, 23, 126],
+    [183, 186],
+    [100, 101],
+    [107, 108],
+    [70, 104],
+    [87, 106],
+    [86, 105],
+    [50, 140],
+    [67, 95],
+    [85, 94],
+    [8, 111],
+    [66, 92],
+    [2, 84],
+    [182],
+    [93]]
+
+  CLUSTERS_1_I17 = [
+    [8, 9, 10, 13, 14, 15, 17, 19, 20, 24, 25, 26, 27, 28, 29, 30, 39, 41, 42, 43, 44, 55, 56, 57, 58, 65, 68, 69, 93, 102, 103, 111, 112, 115, 120, 189, 190, 198, 200],
+    [46, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139],
+    [0, 1, 4, 11, 38, 49, 52, 59, 60, 61, 71, 125],
+    [33, 83, 90, 96, 99, 113, 118, 119],
+    [109, 110, 144, 145, 146, 147, 148, 149],
+    [2, 7, 47, 53, 54, 78, 82, 84],
+    [70, 86, 87, 104, 105, 106],
+    [81, 121, 122, 184, 185, 188],
+    [12, 31, 32, 79, 91, 124],
+    [73, 143, 173, 176],
+    [88, 116, 117],
+    [77, 114, 116],
+    [16, 97, 98],
+    [3, 23, 126],
+    [183, 186],
+    [100, 101],
+    [50, 140],
+    [175, 193],
+    [107, 108],
+    [66, 92],
+    [67, 95],
+    [85, 94],
+    [182]]
+
+  CLUSTERS_1_I40 = [
+    [46, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139],
+    [10, 28, 29, 30, 39, 58, 146, 198, 200],
+    [109, 110, 144, 145, 147, 148, 149],
+    [81, 121, 122, 184, 185, 188],
+    [7, 47, 53, 54, 78, 82],
+    [14, 15, 24, 27, 190],
+    [0, 4, 38, 60, 125],
+    [13, 42, 115, 120],
+    [31, 32, 91, 124],
+    [17, 55, 56, 65],
+    [73, 143, 176],
+    [20, 69, 103],
+    [41, 44, 112],
+    [33, 83, 113],
+    [3, 23, 126],
+    [16, 97, 98],
+    [175, 193],
+    [107, 108],
+    [183, 186],
+    [100, 101],
+    [70, 104],
+    [43, 118],
+    [68, 102],
+    [88, 117],
+    [19, 189],
+    [50, 140],
+    [86, 105],
+    [77, 114],
+    [87, 106],
+    [8, 111],
+    [67, 95],
+    [25, 26],
+    [85, 94],
+    [12, 79],
+    [11, 49],
+    [52, 71],
+    [66, 92],
+    [2, 84],
+    [1, 61],
+    [119],
+    [173],
+    [116],
+    [182],
+    [57],
+    [93],
+    [90],
+    [99],
+    [59],
+    [96],
+    [9]]
+end

data/spec/fixtures/clustering/edges_1.txt

@@ -0,0 +1,322 @@
+0 38 1
+2 53 1
+3 53 1
+3 53 1
+3 13 1
+3 47 1
+7 53 1
+8 58 1
+8 44 1
+8 16 1
+8 53 1
+9 19 1
+9 50 1
+10 58 1
+13 8 1
+13 58 1
+13 3 1
+13 3 1
+13 14 1
+14 13 1
+15 31 1
+15 16 1
+15 27 1
+15 14 1
+15 50 1
+15 43 1
+16 15 1
+16 8 1
+17 58 1
+17 57 1
+17 55 1
+17 56 1
+19 58 1
+19 9 1
+24 58 1
+24 25 1
+24 28 1
+24 27 1
+25 58 1
+25 24 1
+25 26 1
+25 29 1
+26 25 1
+27 24 1
+27 15 1
+28 24 1
+28 29 1
+29 58 1
+29 28 1
+29 25 1
+30 58 1
+30 58 1
+31 15 1
+31 58 1
+38 0 1
+41 44 1
+41 42 1
+41 43 1
+41 14 1
+42 41 1
+42 58 1
+43 41 1
+43 15 1
+44 41 1
+44 8 1
+47 3 1
+47 53 1
+49 58 1
+49 11 1
+50 15 1
+50 9 1
+52 58 1
+53 8 1
+53 47 1
+53 2 1
+53 7 1
+55 56 1
+55 17 1
+55 9 1
+56 57 1
+56 55 1
+56 17 1
+57 56 1
+57 17 1
+57 58 1
+58 13 1
+58 8 1
+58 42 1
+58 25 1
+58 29 1
+58 24 1
+58 52 1
+58 31 1
+58 19 1
+58 30 1
+58 30 1
+58 10 1
+58 49 1
+14 15 1
+14 41 1
+8 41 1
+8 15 1
+9 58 1
+13 53 1
+13 15 1
+13 41 1
+15 8 1
+15 24 1
+15 13 1
+15 58 1
+15 41 1
+24 58 1
+25 15 1
+25 28 1
+28 58 1
+28 25 1
+41 8 1
+41 58 1
+41 15 1
+41 13 1
+57 55 1
+58 8 1
+58 24 1
+58 15 1
+58 9 1
+58 58 1
+58 58 1
+0 0 1
+0 4 1
+0 125 1
+0 38 1
+0 11 1
+3 126 1
+3 23 1
+3 47 1
+8 58 1
+8 53 1
+12 31 1
+12 31 1
+12 91 1
+12 96 1
+13 53 1
+13 58 1
+13 120 1
+13 115 1
+15 8 1
+15 15 1
+15 58 1
+17 58 1
+32 31 1
+32 31 1
+32 31 1
+39 58 1
+39 39 1
+41 112 1
+41 58 1
+41 8 1
+42 13 1
+42 3 1
+46 46 1
+46 46 1
+46 132 1
+46 46 1
+46 46 1
+46 46 1
+46 46 1
+47 46 1
+50 140 1
+52 52 1
+52 52 1
+52 58 1
+53 54 1
+53 82 1
+55 9 1
+56 57 1
+57 58 1
+58 49 1
+58 58 1
+59 0 1
+59 52 1
+59 0 1
+59 11 1
+59 0 1
+60 0 1
+61 1 1
+61 1 1
+61 11 1
+61 11 1
+61 58 1
+61 58 1
+61 0 1
+61 58 1
+61 11 1
+61 0 1
+61 0 1
+65 17 1
+66 93 1
+67 31 1
+68 58 1
+68 58 1
+68 9 1
+68 19 1
+69 57 1
+70 105 1
+71 52 1
+71 0 1
+71 52 1
+73 143 1
+77 116 1
+78 53 1
+79 12 1
+79 12 1
+81 188 1
+81 184 1
+81 121 1
+81 185 1
+83 33 1
+83 33 1
+84 2 1
+85 94 1
+85 93 1
+86 105 1
+87 106 1
+88 117 1
+88 116 1
+90 118 1
+90 99 1
+91 31 1
+92 66 1
+93 8 1
+93 33 1
+93 15 1
+93 41 1
+93 58 1
+93 13 1
+93 33 1
+95 67 1
+96 15 1
+96 83 1
+96 119 1
+96 108 1
+97 98 1
+98 16 1
+99 15 1
+99 83 1
+100 101 1
+102 17 1
+102 68 1
+103 17 1
+103 20 1
+103 69 1
+103 58 1
+104 70 1
+105 15 1
+105 58 1
+106 105 1
+107 108 1
+109 58 1
+110 109 1
+110 109 1
+110 58 1
+110 58 1
+110 109 1
+110 109 1
+110 109 1
+110 109 1
+110 148 1
+111 8 1
+112 41 1
+113 41 1
+113 83 1
+114 77 1
+115 13 1
+118 43 1
+118 119 1
+119 83 1
+120 13 1
+121 121 1
+122 8 1
+122 81 1
+124 31 1
+124 12 1
+124 12 1
+130 46 1
+131 46 1
+130 46 1
+133 46 1
+130 132 1
+134 46 1
+135 46 1
+134 46 1
+136 46 1
+137 46 1
+138 46 1
+137 46 1
+139 46 1
+143 143 1
+144 109 1
+145 109 1
+146 58 1
+146 58 1
+146 109 1
+147 109 1
+148 109 1
+149 109 1
+173 193 1
+175 193 1
+173 143 1
+176 143 1
+182 182 1
+182 182 1
+183 183 1
+183 183 1
+186 183 1
+186 183 1
+189 19 1
+190 15 1
+190 190 1
+198 58 1
+198 39 1
+200 58 1
+200 39 1