kmeans 0.0.1

data/spec/lib/kmeans/cluster_spec.rb

@@ -0,0 +1,64 @@
+# -*- coding: utf-8 -*-
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe Kmeans::Cluster do
+  before :all do
+    @testdata = {
+      "test01"=>
+        {"hoge"=>0,
+         "fuga"=>1,
+         "piyo"=>0
+        },
+      "test02"=>
+        {"hoge"=>2,
+         "fuga"=>1,
+         "piyo"=>3
+        },
+      "test03"=>
+        {"hoge"=>3,
+         "fuga"=>0,
+         "piyo"=>1
+        },
+      "test04"=>
+        {"hoge"=>0,
+         "fuga"=>2,
+         "piyo"=>0
+        },
+      "test05"=>
+        {"hoge"=>4,
+         "fuga"=>2,
+         "piyo"=>3
+        },
+      "test06"=>
+        {"hoge"=>3,
+         "fuga"=>1,
+         "piyo"=>1
+        }
+      }
+  end
+
+  context 'の Cluster クラスにおいて' do
+    describe '二次元ハッシュを渡すと' do
+      it "Kmeans::Cluster クラスが返却される" do
+        result = Kmeans::Cluster.new(@testdata, {
+          :centroids => 4,
+          :loop_max => 10
+          })
+        result.class.should be_equal Kmeans::Cluster
+      end
+    end
+
+    describe 'make_cluster メソッドを呼ぶと' do
+      it "ハッシュの配列が返却される (結果は実行ごとに異なる)" do
+        result = Kmeans::Cluster.new(@testdata, {
+          :centroids => 4,
+          :loop_max => 10
+          })
+        result.make_cluster
+        result.cluster.class.should be_equal Hash
+        result.cluster.values.class.should be_equal Array
+      end
+    end
+  end
+end

data/spec/lib/kmeans/pair_spec.rb

@@ -0,0 +1,46 @@
+# -*- coding: utf-8 -*-
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe Kmeans::Pair do
+  context 'の Pair クラスにおいて' do
+    describe '最小値と最大値を渡す場合' do
+      it "ペアが返却される" do
+        min = 0
+        max = 4
+        expect = [0, 4]
+        result = Kmeans::Pair.new([min, max])
+        result[0].should == expect[0]
+        result[1].should == expect[1]
+      end
+
+      it "ペアが返却される" do
+        min = 1
+        max = 3
+        expect = [1, 3]
+        result = Kmeans::Pair.new([min, max])
+        result[0].should == expect[0]
+        result[1].should == expect[1]
+      end
+
+      it "ペアが返却される" do
+        min = 2
+        max = 4
+        unexpected = 6
+        expect = [2, 4]
+        result = Kmeans::Pair.new([min, max, unexpected])
+        result[0].should == expect[0]
+        result[1].should == expect[1]
+      end
+
+      it "ペアが返却される" do
+        min = 5
+        max = 5
+        expect = [5, 5]
+        result = Kmeans::Pair.new([min, max])
+        result[0].should == expect[0]
+        result[1].should == expect[1]
+      end
+    end
+  end
+end

data/spec/lib/kmeans/pearson_spec.rb

@@ -0,0 +1,257 @@
+# -*- coding: utf-8 -*-
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe Kmeans::Pearson do
+  context 'の Pearson クラスにおいて' do
+    describe '二つの変数を渡す場合' do
+      it "ピアソン相関関数が返却される" do
+        expect = 0.0
+        v1 = [4,2,3]
+        v2 = [0,0,1]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.31622776601683794
+        v1 = [3, 0, 1]
+        v2 = [(2/1), (1/1), (3/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.4472135954999579
+        v1 = [3, 0, 1]
+        v2 = [(3/2), (3/2), (1/2)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.8944271909999159
+        v1 = [3, 0, 1]
+        v2 = [(3/2), (1/2), (1/2)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = -0.6666666666666666
+        v1 = [0, 2, 0]
+        v2 = [(3/1), (3/2), (3/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.0
+        v1 = [0, 2, 0]
+        v2 = [2, 1, 0]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.5773502691896258
+        v1 = [0, 2, 0]
+        v2 = [(3/2), (3/2), (1/2)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.0
+        v1 = [0, 2, 0]
+        v2 = [(3/2), (1/2), (1/2)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.8164965809277261
+        v1 = [4, 2, 3]
+        v2 = [(3/1), (3/2), (3/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.5
+        v1 = [4, 2, 3]
+        v2 = [2, 1, 0]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.0
+        v1 = [4, 2, 3]
+        v2 = [(3/2), (3/2), (1/2)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.7071067811865475
+        v1 = [4, 2, 3]
+        v2 = [(3/2), (1/2), (1/2)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.6666666666666666
+        v1 = [3, 1, 1]
+        v2 = [(3/1), (3/2), (3/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.8164965809277261
+        v1 = [3, 1, 1]
+        v2 = [2, 1, 0]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.5773502691896258
+        v1 = [3, 1, 1]
+        v2 = [(3/2), (3/2), (1/2)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 1.1547005383792517
+        v1 = [3, 1, 1]
+        v2 = [(3/2), (1/2), (1/2)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = -0.7071067811865475
+        v1 = [0, 1, 0]
+        v2 = [(2/1), (1/1), (3/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.0
+        v1 = [0, 1, 0]
+        v2 = [2, 1, 0]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 1.0
+        v1 = [0, 1, 0]
+        v2 = [(0/1), (3/2), (0/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.0
+        v1 = [0, 1, 0]
+        v2 = [(10/3), (1/1), (5/3)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 1.0
+        v1 = [2, 1, 3]
+        v2 = [(2/1), (1/1), (3/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = -0.5
+        v1 = [2, 1, 3]
+        v2 = [2, 1, 0]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = -0.7071067811865475
+        v1 = [2, 1, 3]
+        v2 = [(0/1), (3/2), (0/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.0
+        v1 = [2, 1, 3]
+        v2 = [(10/3), (1/1), (5/3)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.31622776601683794
+        v1 = [3, 0, 1]
+        v2 = [(2/1), (1/1), (3/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.6324555320336759
+        v1 = [3, 0, 1]
+        v2 = [2, 1, 0]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = -0.4472135954999579
+        v1 = [3, 0, 1]
+        v2 = [(0/1), (3/2), (0/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 1.0327955589886444
+        v1 = [3, 0, 1]
+        v2 = [(10/3), (1/1), (5/3)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = -0.8164965809277261
+        v1 = [0, 2, 0]
+        v2 = [(2/1), (1/1), (3/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 0.0
+        v1 = [0, 2, 0]
+        v2 = [2, 1, 0]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+
+      it "ピアソン相関関数が返却される" do
+        expect = 1.1547005383792517
+        v1 = [0, 2, 0]
+        v2 = [(0/1), (3/2), (0/1)]
+        result = Kmeans::Pearson.calc(v1,v2)
+        result.should == expect
+      end
+    end
+  end
+end

data/spec/lib/kmeans_spec.rb

@@ -0,0 +1,13 @@
+# -*- coding: utf-8 -*-
+
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe Kmeans, 'kmeans' do
+  context 'のバージョンを参照した場合' do
+    it "バージョンが正しく表示される" do
+      expect = '0.0.1'
+      Kmeans.const_get(:VERSION).should be_true
+      Kmeans.const_get(:VERSION).should == expect
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,26 @@
+# -*- coding: utf-8 -*-
+
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), ".."))
+$LOAD_PATH.unshift APP_ROOT
+$LOAD_PATH.unshift File.join(APP_ROOT)
+$LOAD_PATH.unshift File.join(APP_ROOT, 'lib')
+
+require 'kmeans'
+
+if ENV['COVERAGE'] == 'on'
+  require 'simplecov'
+  require 'simplecov-rcov'
+  SimpleCov.formatter = SimpleCov::Formatter::RcovFormatter
+
+  SimpleCov.start do
+    add_filter "spec"
+    add_filter "vendor"
+  end
+end
+
+unless /^1\.9\./ =~ RUBY_VERSION
+  require 'rspec'
+end
+
+RSpec.configure do |config|
+end

metadata

@@ -0,0 +1,116 @@
+--- !ruby/object:Gem::Specification
+name: kmeans
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- id774
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-10-07 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: cucumber
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: jeweler
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: K-means clustering
+email: idnanashi@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files:
+- README.md
+files:
+- Gemfile
+- README.md
+- Rakefile
+- VERSION
+- doc/AUTHORS
+- doc/COPYING
+- doc/COPYING.LESSER
+- doc/ChangeLog
+- doc/LICENSE
+- doc/README
+- kmeans.gemspec
+- lib/kmeans.rb
+- lib/kmeans/cluster.rb
+- lib/kmeans/pair.rb
+- lib/kmeans/pearson.rb
+- script/.gitkeep
+- spec/lib/kmeans/cluster_spec.rb
+- spec/lib/kmeans/pair_spec.rb
+- spec/lib/kmeans/pearson_spec.rb
+- spec/lib/kmeans_spec.rb
+- spec/spec_helper.rb
+- vendor/.gitkeep
+homepage: http://github.com/id774/kmeans
+licenses:
+- GPL
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: kmeans
+test_files: []