r_type 0.0.3

data/spec/type/matrix_spec.rb

@@ -0,0 +1,157 @@
+require 'spec_helper'
+
+describe RType::Matrix do
+  let(:matrix)  { RType::R.matrix [1, 2, 3, 4], ncol: 2 }
+  let(:vector)  { RType::R.c [10, 100] }
+
+  subject { matrix }
+
+  its(:to_ruby) { should == Matrix[[1, 3], [2, 4]] }
+
+  it 'should auto-convert between R and Ruby' do
+    matrix = subject
+    matrix.to_ruby.should == Matrix[[1, 3], [2, 4]]
+    matrix = matrix * 2
+    matrix.to_ruby.should == Matrix[[2, 6], [4, 8]]
+    matrix = matrix + 10
+    matrix.to_ruby.should == Matrix[[12, 16], [14, 18]]
+  end
+
+  describe '#multiplication' do
+    context 'robj * robj-matrix' do
+      subject { matrix * matrix }
+      it      { should == Matrix.rows([[7, 15], [10, 22]]) }
+    end
+
+    context 'robj * robj-vector' do
+      subject { matrix * vector }
+      it      { should == Matrix.rows([[310], [420]]) }
+    end
+
+    context 'robj * ruby-array' do
+      subject { matrix * [100, 10] }
+      it      { should == Matrix.rows([[130], [240]]) }
+    end
+
+    context 'ruby-array * robj' do
+      subject { [100, 10] * matrix }
+      it      { should == Matrix.rows([[120, 340]]) }
+    end
+
+    context 'robj * ruby-number' do
+      subject { matrix * 10 }
+      it      { should == Matrix.rows([[10, 30], [20, 40]]) }
+    end
+
+    context 'ruby-number * robj' do
+      subject { 10 * matrix }
+      it      { should == Matrix.rows([[10, 30], [20, 40]]) }
+    end
+
+    context 'robj + ruby-number' do
+      subject { matrix + 10 }
+      it      { should == Matrix.rows([[11, 13], [12, 14]]) }
+    end
+
+    context 'ruby-number + robj' do
+      subject { 10 + matrix }
+      it      { should == Matrix.rows([[11, 13], [12, 14]]) }
+    end
+  end
+
+  describe '#method_missing' do
+    before do
+      matrix.should_receive(:to_ruby).and_return { double('matrix', hoge: 789) }
+    end
+
+    subject { matrix.hoge }
+
+    it 'delegate to ruby Matrix' do
+      should == 789
+    end
+  end
+
+  describe '#=~' do
+    subject { matrix =~ 3 }
+
+    it 'Matrix[[false, true], [false, false]]' do
+      subject[1, 1].should be_false
+      subject[1, 2].should be_true
+      subject[2, 1].should be_false
+      subject[2, 2].should be_false
+    end
+  end
+
+  describe '#<' do
+    subject { matrix < 4 }
+
+    it 'Matrix[[true, true], [true, false]]' do
+      subject[1, 1].should be_true
+      subject[1, 2].should be_true
+      subject[2, 1].should be_true
+      subject[2, 2].should be_false
+    end
+  end
+
+  describe 'ClassMethods' do
+    describe '.I' do
+      subject { RType::Matrix.I 3 }
+      it      { should == RType::Matrix[[1,0,0], [0,1,0], [0,0,1]] }
+    end
+
+    describe '.zero' do
+      subject { RType::Matrix.zero 3 }
+      it      { should == RType::Matrix[[0,0,0], [0,0,0], [0,0,0]] }
+    end
+
+    describe '.rows' do
+      subject { RType::Matrix.rows [[1,2], [3,4]] }
+      it      { should == RType::Matrix[[1,2], [3,4]] }
+    end
+
+    describe '.columns' do
+      subject { RType::Matrix.columns [[1,2], [3,4]] }
+      it      { should == RType::Matrix[[1,3], [2,4]] }
+    end
+  end
+
+  describe '#[] accessor' do
+    context '[1, 2]' do
+      subject { matrix[1, 2] }
+      it      { should == 3  }
+    end
+
+    context '[2, 1]' do
+      subject { matrix[2, 1] }
+      it      { should == 2  }
+    end
+
+    context '[nil, 1]' do
+      subject { matrix[nil, 1]   }
+      it      { should == [1, 2] }
+    end
+
+    context '[2, nil]' do
+      subject { matrix[2, nil]   }
+      it      { should == [2, 4] }
+    end
+
+    context '[ Matrix[[true, false], [false, true]] ]' do
+      subject { matrix[ RType::Matrix[[true, false], [false, true]] ] }
+      it      { should ==  [1, 4] }
+    end
+
+    context '[ Matrix[[true, false], [false, true]] ] = 10' do
+      before  { matrix[ RType::Matrix[[true, false], [false, true]] ] = 10 }
+      subject { matrix }
+      it      { should ==  RType::Matrix[[10, 3], [2, 10]] }
+    end
+  end
+end
+
+describe ::Matrix do
+  subject { ::Matrix.rows [[1,3], [2,4]] }
+
+  its(:as_r) { should == RType::R.matrix([1,2,3,4], ncol: 2) }
+  its('as_r.to_ruby') { should == subject }
+end

metadata

@@ -0,0 +1,196 @@
+--- !ruby/object:Gem::Specification
+name: r_type
+version: !ruby/object:Gem::Version
+  version: 0.0.3
+platform: ruby
+authors:
+- Tatsuya Takamura
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-06-08 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rsruby
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0.5'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0.5'
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.13.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.13.0
+- !ruby/object:Gem::Dependency
+  name: rspec-mocks
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.13.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 2.13.0
+- !ruby/object:Gem::Dependency
+  name: guard
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.8.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.8.0
+- !ruby/object:Gem::Dependency
+  name: guard-rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 3.0.1
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 3.0.1
+description: RType is a wrapper library for RSRuby.
+email:
+- tkmr2000@gmail.com
+executables:
+- r_console
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .travis.yml
+- Gemfile
+- Guardfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/r_console
+- lib/r_type.rb
+- lib/r_type/convert.rb
+- lib/r_type/core_ext.rb
+- lib/r_type/core_ext/boolean_delegate_r.rb
+- lib/r_type/core_ext/delegate_checker.rb
+- lib/r_type/core_ext/numeric_delegate_r.rb
+- lib/r_type/helper.rb
+- lib/r_type/helper/matrix_multiply.rb
+- lib/r_type/helper/robj_delegatable.rb
+- lib/r_type/helper/robj_delegatable_class_methods.rb
+- lib/r_type/helper/ruby_compareable.rb
+- lib/r_type/r.rb
+- lib/r_type/type/array.rb
+- lib/r_type/type/base.rb
+- lib/r_type/type/data_frame.rb
+- lib/r_type/type/function.rb
+- lib/r_type/type/integer.rb
+- lib/r_type/type/list.rb
+- lib/r_type/type/matrix.rb
+- lib/r_type/type/numeric.rb
+- lib/r_type/type/string.rb
+- lib/r_type/type/vector.rb
+- lib/r_type/version.rb
+- r_type.gemspec
+- sample/sample1.rb
+- sample/sample2.rb
+- sample/sample3.rb
+- sample/sample4.rb
+- sample/sample5.rb
+- spec/convert_spec.rb
+- spec/core_ext/boolean_delegate_r_spec.rb
+- spec/core_ext/numeric_delegate_r_spec.rb
+- spec/helper/robj_delegatable_spec.rb
+- spec/r_spec.rb
+- spec/spec_helper.rb
+- spec/type/base_spec.rb
+- spec/type/matrix_spec.rb
+homepage: https://github.com/ttakamura
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.0.3
+signing_key: 
+specification_version: 4
+summary: RType is a wrapper library for RSRuby.
+test_files:
+- spec/convert_spec.rb
+- spec/core_ext/boolean_delegate_r_spec.rb
+- spec/core_ext/numeric_delegate_r_spec.rb
+- spec/helper/robj_delegatable_spec.rb
+- spec/r_spec.rb
+- spec/spec_helper.rb
+- spec/type/base_spec.rb
+- spec/type/matrix_spec.rb