nirvdrum-ai4r 1.9.1

data/site/src/documentation/translations/menu_sk.xml

@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+  Licensed to the Apache Software Foundation (ASF) under one or more
+  contributor license agreements.  See the NOTICE file distributed with
+  this work for additional information regarding copyright ownership.
+  The ASF licenses this file to You under the Apache License, Version 2.0
+  (the "License"); you may not use this file except in compliance with
+  the License.  You may obtain a copy of the License at
+
+      http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+-->
+<catalogue xml:lang="sk">
+  <message key="About">O programe</message>
+  <message key="Index">Zoznám</message>
+  <message key="Changes">Zmeny</message>
+  <message key="Todo">Úlohy</message>
+  <message key="Samples">Príklady</message>
+  <message key="Apache document">Apache Document</message>
+  <message key="Static content">Statický Obsah</message>
+  <message key="Linking">Linking</message>
+  <message key="Wiki page">Wiki stránka</message>
+  <message key="ihtml page">ihtml stránka</message>
+  <message key="ehtml page">ehtml stránka</message>
+  <message key="FAQ">Casté Otázky</message>
+  <message key="Simplifed Docbook">Simplifed Docbook stránka</message>
+  <message key="XSP page">XSP stránka</message>
+</catalogue>

data/site/src/documentation/translations/tabs.xml

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+  Licensed to the Apache Software Foundation (ASF) under one or more
+  contributor license agreements.  See the NOTICE file distributed with
+  this work for additional information regarding copyright ownership.
+  The ASF licenses this file to You under the Apache License, Version 2.0
+  (the "License"); you may not use this file except in compliance with
+  the License.  You may obtain a copy of the License at
+
+      http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+-->
+<catalogue xml:lang="en">
+  <message key="Home">Home</message>
+  <message key="Samples">Samples</message>
+  <message key="Apache XML Projects">Apache XML Projects</message>
+</catalogue>

data/site/src/documentation/translations/tabs_de.xml

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+  Licensed to the Apache Software Foundation (ASF) under one or more
+  contributor license agreements.  See the NOTICE file distributed with
+  this work for additional information regarding copyright ownership.
+  The ASF licenses this file to You under the Apache License, Version 2.0
+  (the "License"); you may not use this file except in compliance with
+  the License.  You may obtain a copy of the License at
+
+      http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+-->
+<catalogue xml:lang="de">
+  <message key="Home">Home</message>
+  <message key="Samples">Beispiele</message>
+  <message key="Apache XML Projects">Apache XML Projekte</message>
+</catalogue>

data/site/src/documentation/translations/tabs_es.xml

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+  Licensed to the Apache Software Foundation (ASF) under one or more
+  contributor license agreements.  See the NOTICE file distributed with
+  this work for additional information regarding copyright ownership.
+  The ASF licenses this file to You under the Apache License, Version 2.0
+  (the "License"); you may not use this file except in compliance with
+  the License.  You may obtain a copy of the License at
+
+      http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+-->
+<catalogue xml:lang="es">
+  <message key="Home">Inicio</message>
+  <message key="Samples">Ejemplos</message>
+  <message key="Apache XML Projects">Projectos XML Apache</message>
+</catalogue>

data/site/src/documentation/translations/tabs_fr.xml

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+  Licensed to the Apache Software Foundation (ASF) under one or more
+  contributor license agreements.  See the NOTICE file distributed with
+  this work for additional information regarding copyright ownership.
+  The ASF licenses this file to You under the Apache License, Version 2.0
+  (the "License"); you may not use this file except in compliance with
+  the License.  You may obtain a copy of the License at
+
+      http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+-->
+<catalogue xml:lang="fr">
+  <message key="Home">Accueil</message>
+  <message key="Samples">Exemples</message>
+  <message key="Apache XML Projects">Projets Apache XML</message>
+</catalogue>

data/site/src/documentation/translations/tabs_nl.xml

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+  Licensed to the Apache Software Foundation (ASF) under one or more
+  contributor license agreements.  See the NOTICE file distributed with
+  this work for additional information regarding copyright ownership.
+  The ASF licenses this file to You under the Apache License, Version 2.0
+  (the "License"); you may not use this file except in compliance with
+  the License.  You may obtain a copy of the License at
+
+      http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+  See the License for the specific language governing permissions and
+  limitations under the License.
+-->
+<catalogue xml:lang="nl">
+  <message key="Home">Home</message>
+  <message key="Samples">Voorbeelden</message>
+  <message key="Apache XML Projects">Apache XML Projecten</message>
+</catalogue>

data/test/classifiers/hyperpipes_test.rb

@@ -0,0 +1,84 @@
+# Author::    Sergio Fierens
+# License::   MPL 1.1
+# Project::   ai4r
+# Url::       http://ai4r.rubyforge.org/
+#
+# You can redistribute it and/or modify it under the terms of 
+# the Mozilla Public License version 1.1  as published by the 
+# Mozilla Foundation at http://www.mozilla.org/MPL/MPL-1.1.txt
+
+require File.dirname(__FILE__) + '/../../lib/ai4r/classifiers/hyperpipes'
+require 'test/unit'
+
+class Ai4r::Classifiers::Hyperpipes
+  attr_accessor :data_set, :pipes
+end
+
+include Ai4r::Classifiers
+include Ai4r::Data
+
+class HyperpipesTest < Test::Unit::TestCase
+
+  @@data_labels = [ 'city', 'age', 'gender', 'marketing_target'  ]
+
+  @@data_items = [['New York',  25, 'M', 'Y'],
+              ['New York',  23, 'M', 'Y'],
+              ['New York',  18, 'M', 'Y'],
+              ['Chicago',   43, 'M', 'Y'],
+              ['New York',  34, 'F', 'N'],
+              ['Chicago',   33, 'F', 'Y'],
+              ['New York',  31, 'F', 'N'],
+              ['Chicago',   55, 'M', 'N'],
+              ['New York',  58, 'F', 'N'],
+              ['New York',  59, 'M', 'N'],
+              ['Chicago',   71, 'M', 'N'],
+              ['New York',  60, 'F', 'N'],
+              ['Chicago',   85, 'F', 'Y']
+            ]
+  
+  
+  def setup
+    Hyperpipes.send(:public, *Hyperpipes.protected_instance_methods)
+    @data_set = DataSet.new(:data_items => @@data_items, :data_labels => @@data_labels)
+  end
+  
+  def test_build_pipe
+    classifier = Hyperpipes.new
+    assert_equal [{}, {:max=>-1.0/0, :min=>1.0/0}, {}], classifier.build_pipe(@data_set)
+  end
+  
+  def test_get_rules
+    
+  end
+  
+  def test_build
+    assert_raise(ArgumentError) { Hyperpipes.new.build(DataSet.new) }
+    classifier = Hyperpipes.new.build(@data_set)
+    assert classifier.pipes.include?("Y")
+    assert classifier.pipes.include?("N")
+  end
+
+  def test_eval
+    classifier = Hyperpipes.new.build(@data_set)
+    assert classifier
+    assert_equal('N', classifier.eval(['Chicago',  55, 'M']))
+    assert_equal('N', classifier.eval(['New York', 35, 'F']))
+    assert_equal('Y', classifier.eval(['New York', 25, 'M']))
+    assert_equal('Y', classifier.eval(['Chicago',  85, 'F'])) 
+  end
+
+  def test_get_rules
+    classifier = Hyperpipes.new.build(@data_set)
+    age = 28
+    gender = "M"
+    marketing_target = nil
+    eval classifier.get_rules
+    assert_equal 'Y', marketing_target
+    age = 44 
+    city='New York'
+    eval classifier.get_rules
+    assert_equal 'N', marketing_target
+  end
+end
+
+  

data/test/classifiers/id3_test.rb

@@ -0,0 +1,208 @@
+# id3_test.rb
+# 
+# This is a unit test file for the ID3 algorithm (Quinlan) implemented
+# in ai4r  
+# 
+# Author::    Sergio Fierens
+# License::   MPL 1.1
+# Project::   ai4r
+# Url::       http://ai4r.rubyforge.org/
+#
+# You can redistribute it and/or modify it under the terms of 
+# the Mozilla Public License version 1.1  as published by the 
+# Mozilla Foundation at http://www.mozilla.org/MPL/MPL-1.1.txt
+
+require File.dirname(__FILE__) + '/../../lib/ai4r/classifiers/id3'
+require 'test/unit'
+
+DATA_LABELS = [ 'city', 'age_range', 'gender', 'marketing_target'  ]
+
+DATA_ITEMS = [  ['New York',  '<30',      'M', 'Y'],
+              ['Chicago',     '<30',      'M', 'Y'],
+              ['Chicago',     '<30',      'F', 'Y'],
+              ['New York',  '<30',      'M', 'Y'],
+              ['New York',  '<30',      'M', 'Y'],
+              ['Chicago',     '[30-50)',  'M', 'Y'],
+              ['New York',  '[30-50)',  'F', 'N'],
+              ['Chicago',     '[30-50)',  'F', 'Y'],
+              ['New York',  '[30-50)',  'F', 'N'],
+              ['Chicago',     '[50-80]', 'M', 'N'],
+              ['New York',  '[50-80]', 'F', 'N'],
+              ['New York',  '[50-80]', 'M', 'N'],
+              ['Chicago',     '[50-80]', 'M', 'N'],
+              ['New York',  '[50-80]', 'F', 'N'],
+              ['Chicago',     '>80',      'F', 'Y']
+            ]
+
+SPLIT_DATA_ITEMS_BY_CITY = [  [
+                              ["New York", "<30", "M", "Y"], 
+                              ["New York", "<30", "M", "Y"], 
+                              ["New York", "<30", "M", "Y"], 
+                              ["New York", "[30-50)", "F", "N"], 
+                              ["New York", "[30-50)", "F", "N"], 
+                              ["New York", "[50-80]", "F", "N"], 
+                              ["New York", "[50-80]", "M", "N"], 
+                              ["New York", "[50-80]", "F", "N"]], 
+                            [
+                              ["Chicago", "<30", "M", "Y"], 
+                              ["Chicago", "<30", "F", "Y"], 
+                              ["Chicago", "[30-50)", "M", "Y"], 
+                              ["Chicago", "[30-50)", "F", "Y"], 
+                              ["Chicago", "[50-80]", "M", "N"], 
+                              ["Chicago", "[50-80]", "M", "N"], 
+                              ["Chicago", ">80", "F", "Y"]]
+                          ]
+                          
+SPLIT_DATA_ITEMS_BY_AGE = [   [
+                              ["New York", "<30", "M", "Y"], 
+                              ["Chicago", "<30", "M", "Y"], 
+                              ["Chicago", "<30", "F", "Y"], 
+                              ["New York", "<30", "M", "Y"], 
+                              ["New York", "<30", "M", "Y"]], 
+                            [
+                              ["Chicago", "[30-50)", "M", "Y"], 
+                              ["New York", "[30-50)", "F", "N"], 
+                              ["Chicago", "[30-50)", "F", "Y"], 
+                              ["New York", "[30-50)", "F", "N"]], 
+                            [
+                              ["Chicago", "[50-80]", "M", "N"], 
+                              ["New York", "[50-80]", "F", "N"], 
+                              ["New York", "[50-80]", "M", "N"], 
+                              ["Chicago", "[50-80]", "M", "N"], 
+                              ["New York", "[50-80]", "F", "N"]], 
+                            [
+                              ["Chicago", ">80", "F", "Y"]]
+                         ]
+
+  EXPECTED_RULES_STRING =  
+    "if age_range=='<30' then marketing_target='Y'\n"+
+    "elsif age_range=='[30-50)' and city=='Chicago' then marketing_target='Y'\n"+
+    "elsif age_range=='[30-50)' and city=='New York' then marketing_target='N'\n"+
+    "elsif age_range=='[50-80]' then marketing_target='N'\n"+
+    "elsif age_range=='>80' then marketing_target='Y'\n"+
+    "else raise 'There was not enough information during training to do a proper induction for this data element' end"
+    
+include Ai4r::Classifiers
+include Ai4r::Data
+
+class ID3Test < Test::Unit::TestCase
+
+  def test_build
+    Ai4r::Classifiers::ID3.send(:public, *Ai4r::Classifiers::ID3.protected_instance_methods)
+    Ai4r::Classifiers::ID3.send(:public, *Ai4r::Classifiers::ID3.private_instance_methods)
+  end
+
+  def test_log2
+    assert_equal 1.0, ID3.log2(2)
+    assert_equal 0.0, ID3.log2(0)
+    assert 1.585 - ID3.log2(3) < 0.001
+  end
+
+  def test_sum
+    assert_equal 28, ID3.sum([5, 0, 22, 1])
+    assert_equal 0, ID3.sum([])
+  end
+
+  def test_data_labels
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS))
+    expected_default = [ 'attribute_1', 'attribute_2', 'attribute_3', 'class_value' ]
+    assert_equal(expected_default, id3.data_set.data_labels)
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    assert_equal(DATA_LABELS, id3.data_set.data_labels)
+  end
+
+  def test_domain
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    expected_domain = [["New York", "Chicago"], ["<30", "[30-50)", "[50-80]", ">80"], ["M", "F"], ["Y", "N"]]
+    assert_equal expected_domain, id3.domain(DATA_ITEMS)
+  end
+
+  def test_grid
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    expected_grid = [[3, 5], [5, 2]]
+    domain = id3.domain(DATA_ITEMS)
+    assert_equal expected_grid, id3.freq_grid(0, DATA_ITEMS, domain)
+    expected_grid = [[5, 0], [2, 2], [0, 5], [1, 0]]
+    assert_equal expected_grid, id3.freq_grid(1, DATA_ITEMS, domain)
+  end
+
+  def test_entropy
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    expected_entropy = 0.9118
+    domain = id3.domain(DATA_ITEMS)
+    freq_grid = id3.freq_grid(0, DATA_ITEMS, domain)
+    assert expected_entropy - id3.entropy(freq_grid, DATA_ITEMS.length) < 0.0001
+    expected_entropy = 0.2667
+    freq_grid = id3.freq_grid(1, DATA_ITEMS, domain)
+    assert expected_entropy - id3.entropy(freq_grid, DATA_ITEMS.length) < 0.0001
+    expected_entropy = 0.9688
+    freq_grid = id3.freq_grid(2, DATA_ITEMS, domain)
+    assert expected_entropy - id3.entropy(freq_grid, DATA_ITEMS.length) < 0.0001
+  end
+
+  def test_min_entropy_index
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    domain = id3.domain(DATA_ITEMS)
+    assert_equal 1, id3.min_entropy_index(DATA_ITEMS, domain)
+    assert_equal 0, id3.min_entropy_index(DATA_ITEMS, domain, [1])
+    assert_equal 2, id3.min_entropy_index(DATA_ITEMS, domain, [1, 0])
+  end
+
+  def test_split_data_examples
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    domain = id3.domain(DATA_ITEMS)
+    res = id3.split_data_examples(DATA_ITEMS, domain, 0)
+    assert_equal(SPLIT_DATA_ITEMS_BY_CITY, res)
+    res = id3.split_data_examples(DATA_ITEMS, domain, 1)
+    assert_equal(SPLIT_DATA_ITEMS_BY_AGE, res)
+  end
+
+  def test_most_freq
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    domain = id3.domain(DATA_ITEMS)
+    assert_equal 'Y', id3.most_freq(DATA_ITEMS, domain)
+    assert_equal 'Y', id3.most_freq(SPLIT_DATA_ITEMS_BY_AGE[3], domain)
+    assert_equal 'N', id3.most_freq(SPLIT_DATA_ITEMS_BY_AGE[2], domain)
+  end
+
+  def test_get_rules
+    assert_equal [["marketing_target='N'"]], CategoryNode.new('marketing_target', 'N').get_rules
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    assert_equal EXPECTED_RULES_STRING, id3.get_rules
+  end
+
+  def test_eval
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    #if age_range='<30' then marketing_target='Y'
+    assert_equal 'Y', id3.eval(['New York', '<30', 'F'])
+    assert_equal 'Y', id3.eval(['Chicago', '<30', 'M'])
+    #if age_range='[30-50)' and city='Chicago' then marketing_target='Y'
+    assert_equal 'Y', id3.eval(['Chicago', '[30-50)', 'F'])
+    assert_equal 'Y', id3.eval(['Chicago', '[30-50)', 'M'])
+    #if age_range='[30-50)' and city='New York' then marketing_target='N'
+    assert_equal 'N', id3.eval(['New York', '[30-50)', 'F'])
+    assert_equal 'N', id3.eval(['New York', '[30-50)', 'M'])      
+    #if age_range='[50-80]' then marketing_target='N'
+    assert_equal 'N', id3.eval(['New York', '[50-80]', 'F'])
+    assert_equal 'N', id3.eval(['Chicago', '[50-80]', 'M'])      
+    #if age_range='>80' then marketing_target='Y'
+    assert_equal 'Y', id3.eval(['New York', '>80', 'M'])      
+    assert_equal 'Y', id3.eval(['Chicago', '>80', 'F'])      
+  end
+
+  def test_rules_eval
+    id3 = ID3.new.build(DataSet.new(:data_items =>DATA_ITEMS, :data_labels => DATA_LABELS))
+    #if age_range='<30' then marketing_target='Y'
+    age_range = '<30'
+    marketing_target = nil
+    eval id3.get_rules
+    assert_equal 'Y', marketing_target
+    #if age_range='[30-50)' and city='New York' then marketing_target='N'
+    age_range='[30-50)' 
+    city='New York'
+    eval id3.get_rules
+    assert_equal 'N', marketing_target
+  end
+end
+
+  

data/test/classifiers/multilayer_perceptron_test.rb

@@ -0,0 +1,79 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../../lib/ai4r/classifiers/multilayer_perceptron'
+require File.dirname(__FILE__) + '/../../lib/ai4r/data/data_set'
+
+# Make all accessors and methods public
+class Ai4r::Classifiers::MultilayerPerceptron
+  attr_accessor :data_set, :class_value, :network, :domains, :outputs
+  public :get_max_index
+  public :data_to_output
+end
+
+class MultilayerPerceptronTest < Test::Unit::TestCase
+  
+  include Ai4r::Classifiers
+  include Ai4r::Data
+  
+  @@data_set = DataSet.new(:data_items =>[   ['New York',  '<30',      'M', 'Y'],
+                ['Chicago',     '<30',      'M', 'Y'],
+                ['New York',  '<30',      'M', 'Y'],
+                ['New York',  '[30-50)',  'F', 'N'],
+                ['Chicago',     '[30-50)',  'F', 'Y'],
+                ['New York',  '[30-50)',  'F', 'N'],
+                ['Chicago',     '[50-80]', 'M', 'N'],
+              ])
+
+   def test_initialize
+    classifier = MultilayerPerceptron.new
+    assert_equal 1, classifier.active_node_value
+    assert_equal 0, classifier.inactive_node_value
+    assert_equal Ai4r::NeuralNetwork::Backpropagation, classifier.network_class
+    assert_equal [], classifier.hidden_layers
+    assert classifier.network_parameters
+    assert classifier.network_parameters.empty?
+    assert classifier.training_iterations > 1
+  end
+  
+  def test_build
+    assert_raise(ArgumentError) { MultilayerPerceptron.new.build(DataSet.new) }
+    classifier = MultilayerPerceptron.new
+    classifier.training_iterations = 1
+    classifier.build(@@data_set)
+    assert_equal [7,2], classifier.network.structure
+    classifier.hidden_layers = [6, 4]
+    classifier.build(@@data_set)  
+    assert_equal [7,6,4,2], classifier.network.structure    
+  end
+  
+  def test_eval
+    classifier = MultilayerPerceptron.new.build(@@data_set)
+    assert classifier
+    assert_equal('N', classifier.eval(['Chicago', '[50-80]', 'M']))
+    assert_equal('N', classifier.eval(['New York', '[30-50)', 'F']))
+    assert_equal('Y', classifier.eval(['New York', '<30', 'M']))
+    assert_equal('Y', classifier.eval(['Chicago',  '[30-50)', 'F']))    
+  end
+  
+  def test_get_rules
+    assert_match(/raise/, MultilayerPerceptron.new.get_rules)
+  end
+  
+  def test_get_max_index
+    classifier = MultilayerPerceptron.new
+    assert_equal(0, classifier.get_max_index([3, 1, 0.2, -9, 0, 2.99]))
+    assert_equal(2, classifier.get_max_index([3, 1, 5, -9, 0, 2.99]))
+    assert_equal(5, classifier.get_max_index([3, 1, 5, -9, 0, 6]))
+  end
+  
+  def test_data_to_output
+    classifier = MultilayerPerceptron.new
+    classifier.outputs = 4
+    classifier.outputs = 4
+    classifier.domains = [nil, nil, nil, ["A", "B", "C", "D"]]
+    assert_equal([1,0,0,0], classifier.data_to_output("A"))
+    assert_equal([0,0,1,0], classifier.data_to_output("C"))
+    assert_equal([0,0,0,1], classifier.data_to_output("D"))
+  end
+  
+end
+