croupier 1.6.0 → 2.0.0.rc1

data/test/minitest/distributions/test_triangular_distribution.rb

@@ -0,0 +1,26 @@
+require "minitest/autorun"
+require "croupier"
+class TestTriangularDistribution < MiniTest::Unit::TestCase
+
+  def triangular(opts={})
+    ::Croupier::Distributions.triangular(opts)
+  end
+
+  def test_change_lower_and_upper_values_if_they_are_not_in_the_right_order
+    t = triangular lower: 8, upper: 3, mode: 4
+    assert_equal 3, t.lower, "lower is not 3"
+    assert_equal 8, t.upper, "upper is not 8"
+    assert_equal 5, t.range, "range is not upper - limit"
+  end
+
+  def test_change_mode_if_lt_lower_value
+    t = triangular lower: 3, upper: 6, mode: 2
+    assert_in_delta 4.5, t.mode, 1e-10, "mode did not change to median"
+  end
+
+  def test_change_mode_if_gt_upper_value
+    t = triangular lower: 3, upper: 6, mode: 8
+    assert_in_delta 4.5, t.mode, 1e-10, "mode did not change to median"
+  end
+end
+

data/test/minitest/distributions/test_uniform_distribution.rb

@@ -0,0 +1,54 @@
+require "minitest/autorun"
+require "croupier"
+class TestUniformDistribution < MiniTest::Unit::TestCase
+
+  def uniform(opts={})
+    ::Croupier::Distributions.uniform(opts)
+  end
+
+  def test_inverted_for_default_uniform
+    u = uniform
+    assert !u.inverted?, "uniform should not be considered inverted"
+  end
+
+  def test_inverted_for_uniform_where_included_smaller_than_excluded
+    u = uniform included: 5, excluded: 7
+    assert !u.inverted?, "uniform should not be considered inverted"
+  end
+
+  def test_inverted_for_uniform_where_included_greater_than_excluded
+    u = uniform({included: 7, excluded: 5})
+    assert u.inverted?, "uniform should be considered inverted"
+  end
+
+  def test_minmax_and_range_in_default_uniform
+    u = uniform
+    assert_equal 0, u.min, "default minimum is not 0"
+    assert_equal 1, u.max, "default maximum is not 1"
+    assert_equal 1, u.range, "default range is not 1"
+  end
+
+  def test_minmax_and_range_in_non_inverted_uniform
+    u = uniform included: 5, excluded: 7
+    assert_equal 5, u.min, "minimum is not the included value"
+    assert_equal 7, u.max, "maximum is not the excluded value"
+    assert_equal 2, u.range, "range is not maximum - minimum"
+  end
+
+  def test_minmax_and_range_in_inverted_uniform
+    u = uniform included: 7, excluded: 5
+    assert_equal 5, u.min, "minimum is not the excluded value"
+    assert_equal 7, u.max, "maximum is not the included value"
+    assert_equal 2, u.range, "range is not maximum - minimum"
+  end
+
+  def test_exclude_value_for_non_inverted_distributions
+    u = uniform
+    assert_in_delta 0.3, u.exclude_value.(0.3), 1e-10, "exclude value function is not the identity"
+  end
+
+  def test_exclude_value_for_inverted_distributions
+    u = uniform included: 7, excluded: 5
+    assert_in_delta 0.7, u.exclude_value.(0.3), 1e-10, "exclude value function is not 1-n"
+  end
+end

data/test/minitest/test_distribution_generators_module.rb

@@ -0,0 +1,37 @@
+require "minitest/autorun"
+require "croupier"
+
+class TestDistributionGeneratorsModule < MiniTest::Unit::TestCase
+
+  def test_list_of_all_distribution_generators
+    all = Croupier::DistributionGenerators.all
+
+    assert_operator all.size, :>, 1, "#{all.size} is 1 or less"
+
+    all.each{|d|
+      assert_equal Croupier::DistributionGenerator, d.superclass, "#{d.name} is not a distribution generator"
+    }
+
+    Croupier::DistributionGenerators.constants(false).each do |distrib|
+      d = ::Croupier::DistributionGenerators.const_get(distrib)
+      if d.is_a?(Class) && d.kind_of?(Croupier::DistributionGenerator)
+        assert_includes all, d, "#{d.name} not included in array of all distributions"
+      end
+    end
+  end
+
+  def test_method_names_list
+    list = Croupier::DistributionGenerators.list
+    assert_operator list.size, :>, 1, "#{list.size} is 1 or less"
+    Croupier::DistributionGenerators.all.each{|d|
+      assert_includes list, d.method_name, "#{d.method_name} not included in list"
+    }
+  end
+  
+  def test_all_and_list_have_same_size
+    all = Croupier::DistributionGenerators.all
+    list = Croupier::DistributionGenerators.list
+    assert_operator list.size, :>, 1, "#{list.size} is 1 or less"
+    assert_equal list.size, all.size, "#{list.size} and #{all.size} are not equal"
+  end
+end

data/test/rtests.R

@@ -0,0 +1 @@
+source('./sample_test/testsuite.R', chdir = TRUE)

metadata

@@ -1,8 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: croupier
 version: !ruby/object:Gem::Version
-  version: 1.6.0
-  prerelease: 
+  version: 2.0.0.rc1
 platform: ruby
 authors:
 - Juanjo Bazán
@@ -10,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-07-24 00:00:00.000000000 Z
+date: 2013-09-24 00:00:00.000000000 Z
 dependencies: []
 description: Croupier is a Ruby gem to generate a random sample of numbers with a
   given probability distribution.
@@ -28,6 +27,12 @@ files:
 - lib/croupier/cli/application.rb
 - lib/croupier/cli/trollop.rb
 - lib/croupier/distribution.rb
+- lib/croupier/distribution_generator.rb
+- lib/croupier/distribution_generators/enumerator_block_generator.rb
+- lib/croupier/distribution_generators/enumerator_generator.rb
+- lib/croupier/distribution_generators/inverse_cdf_generator.rb
+- lib/croupier/distribution_generators/minimum_sample_generator.rb
+- lib/croupier/distribution_generators.rb
 - lib/croupier/distributions/bernoulli.rb
 - lib/croupier/distributions/binomial.rb
 - lib/croupier/distributions/cauchy.rb
@@ -45,26 +50,34 @@ files:
 - lib/croupier/exceptions.rb
 - lib/croupier/version.rb
 - lib/croupier.rb
-- test/distributions/R_tests/test_bernoulli.R
-- test/distributions/R_tests/test_binomial.R
-- test/distributions/R_tests/test_cauchy.R
-- test/distributions/R_tests/test_exponential.R
-- test/distributions/R_tests/test_gamma.R
-- test/distributions/R_tests/test_geometric.R
-- test/distributions/R_tests/test_nbinomial.R
-- test/distributions/R_tests/test_normal.R
-- test/distributions/R_tests/test_poisson.R
-- test/distributions/R_tests/test_triangular.R
-- test/distributions/R_tests/test_uniform.R
-- test/distributions/minitest/test_credit_card.rb
-- test/distributions/minitest/test_degenerate_distribution.rb
-- test/test_croupier_module.rb
-- test/test_distribution_class.rb
-- test/test_distributions_module.rb
-- test/testsuite.R
+- test/minitest/distribution_class/test_class_methods.rb
+- test/minitest/distribution_class/test_instance_methods.rb
+- test/minitest/distribution_generator_class/test_class_methods.rb
+- test/minitest/distribution_generator_class/test_instance_methods.rb
+- test/minitest/distribution_generators/test_enumerator_block_generator.rb
+- test/minitest/distribution_generators/test_enumerator_generator.rb
+- test/minitest/distribution_generators/test_inverse_cdf_generator.rb
+- test/minitest/distribution_generators/test_minimum_sample_generator.rb
+- test/minitest/distributions/test_bernoulli_distribution.rb
+- test/minitest/distributions/test_binomial_distribution.rb
+- test/minitest/distributions/test_cauchy_distribution.rb
+- test/minitest/distributions/test_credit_card_distribution.rb
+- test/minitest/distributions/test_degenerate_distribution.rb
+- test/minitest/distributions/test_exponential_distribution.rb
+- test/minitest/distributions/test_gamma_distribution.rb
+- test/minitest/distributions/test_geometric_distribution.rb
+- test/minitest/distributions/test_normal_distribution.rb
+- test/minitest/distributions/test_poisson_distribution.rb
+- test/minitest/distributions/test_triangular_distribution.rb
+- test/minitest/distributions/test_uniform_distribution.rb
+- test/minitest/test_croupier_module.rb
+- test/minitest/test_distribution_generators_module.rb
+- test/minitest/test_distributions_module.rb
+- test/rtests.R
 - bin/croupier
 homepage: https://github.com/xuanxu/croupier
 licenses: []
+metadata: {}
 post_install_message: 
 rdoc_options:
 - --main
@@ -73,38 +86,43 @@ 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'
+      version: 1.3.1
 requirements: []
 rubyforge_project: 
-rubygems_version: 1.8.25
+rubygems_version: 2.0.3
 signing_key: 
-specification_version: 3
+specification_version: 4
 summary: Samples of random numbers with specific probability distributions
 test_files:
-- test/distributions/R_tests/test_bernoulli.R
-- test/distributions/R_tests/test_binomial.R
-- test/distributions/R_tests/test_cauchy.R
-- test/distributions/R_tests/test_exponential.R
-- test/distributions/R_tests/test_gamma.R
-- test/distributions/R_tests/test_geometric.R
-- test/distributions/R_tests/test_nbinomial.R
-- test/distributions/R_tests/test_normal.R
-- test/distributions/R_tests/test_poisson.R
-- test/distributions/R_tests/test_triangular.R
-- test/distributions/R_tests/test_uniform.R
-- test/distributions/minitest/test_credit_card.rb
-- test/distributions/minitest/test_degenerate_distribution.rb
-- test/test_croupier_module.rb
-- test/test_distribution_class.rb
-- test/test_distributions_module.rb
-- test/testsuite.R
+- test/minitest/distribution_class/test_class_methods.rb
+- test/minitest/distribution_class/test_instance_methods.rb
+- test/minitest/distribution_generator_class/test_class_methods.rb
+- test/minitest/distribution_generator_class/test_instance_methods.rb
+- test/minitest/distribution_generators/test_enumerator_block_generator.rb
+- test/minitest/distribution_generators/test_enumerator_generator.rb
+- test/minitest/distribution_generators/test_inverse_cdf_generator.rb
+- test/minitest/distribution_generators/test_minimum_sample_generator.rb
+- test/minitest/distributions/test_bernoulli_distribution.rb
+- test/minitest/distributions/test_binomial_distribution.rb
+- test/minitest/distributions/test_cauchy_distribution.rb
+- test/minitest/distributions/test_credit_card_distribution.rb
+- test/minitest/distributions/test_degenerate_distribution.rb
+- test/minitest/distributions/test_exponential_distribution.rb
+- test/minitest/distributions/test_gamma_distribution.rb
+- test/minitest/distributions/test_geometric_distribution.rb
+- test/minitest/distributions/test_normal_distribution.rb
+- test/minitest/distributions/test_poisson_distribution.rb
+- test/minitest/distributions/test_triangular_distribution.rb
+- test/minitest/distributions/test_uniform_distribution.rb
+- test/minitest/test_croupier_module.rb
+- test/minitest/test_distribution_generators_module.rb
+- test/minitest/test_distributions_module.rb
+- test/rtests.R

data/test/distributions/R_tests/test_bernoulli.R

@@ -1,17 +0,0 @@
-context('** Bernoulli Distribution **')
-
-context('ChiSquare Goodness of Fit test for default success p = 0.5')
-  croupier_bernoulli <- read.table("../generated_samples/bernoulli_05.data")
-  cs_result<-summary(goodfit(croupier_bernoulli$V1, type="binomial", method="ML", par=list(size=1, prob=0.5)))
-
-  test_that("p-value > 0.05, bernoulli, p = 0.5", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })
-
-context('ChiSquare Goodness of Fit test for success p = 0.75')
-  croupier_bernoulli <- read.table("../generated_samples/bernoulli_075.data")
-  cs_result<-summary(goodfit(croupier_bernoulli$V1, type="binomial", method="ML", par=list(size=1, prob=0.75)))
-
-  test_that("p-value > 0.05, bernoulli, p = 0.75", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })

data/test/distributions/R_tests/test_binomial.R

@@ -1,17 +0,0 @@
-context('** Binomial Distribution **')
-
-context('ChiSquare Goodness of Fit test for p=0.5, size=5')
-  croupier_binomial <- read.table("../generated_samples/binomial_05_5.data")
-  cs_result<-summary(goodfit(croupier_binomial$V1, type="binomial", method="ML", par=list(size=5, prob=0.5)))
-
-  test_that("p-value > 0.05, binomial, p = 0.5, size=5", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })
-
-context('ChiSquare Goodness of Fit test for p = 0.35, size=17')
-  croupier_binomial <- read.table("../generated_samples/binomial_035_17.data")
-  cs_result<-summary(goodfit(croupier_binomial$V1, type="binomial", method="ML", par=list(size=17, prob=0.35)))
-
-  test_that("p-value > 0.05, binomial, p=0.35, size=17", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })

data/test/distributions/R_tests/test_cauchy.R

@@ -1,28 +0,0 @@
-context('** Cauchy Distribution **')
-# Run a K-S test on the Croupier sample against a Cauchy R-generated sample
-# Accept Croupier's sample as Cauchy if p-value > 0.05
-# Also check for a statistic near 0
-
-context('Kolmogorov-Smirnov test for default (location, scale) = (0,1)')
-  croupier_cauchy <- read.table("../generated_samples/cauchy_0_1.data")
-  ks_result<-ks.test(croupier_cauchy$V1, "pcauchy")
-
-  test_that("p-value > 0.05, cauchy, location=0, scale=1", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-
-context('Kolmogorov-Smirnov test for given (location, scale) = (12, 3)')
-  croupier_cauchy <- read.table("../generated_samples/cauchy_12_3.data")
-  ks_result<-ks.test(croupier_cauchy$V1, "pcauchy", location=12, scale=3)
-
-  test_that("p-value > 0.05, cauchy, location=12, scale=3", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })

data/test/distributions/R_tests/test_exponential.R

@@ -1,28 +0,0 @@
-context('** Exponential Distribution **')
-# Run a K-S test on the Croupier sample against a exponential R-generated sample
-# Accept Croupier's sample as exponential if p-value > 0.05
-# Also check for a statistic near 0
-
-context('Kolmogorov-Smirnov test for default lambda = 1')
-  croupier_exponential <- read.table("../generated_samples/exponential_1.data")
-  ks_result<-ks.test(croupier_exponential$V1, "pexp")
-
-  test_that("p-value > 0.05, exponential, lambda=1", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-
-context('Kolmogorov-Smirnov test for given lambda = 1.6')
-  croupier_exponential <- read.table("../generated_samples/exponential_1_6.data")
-  ks_result<-ks.test(croupier_exponential$V1, "pexp", rate = 1.6)
-
-  test_that("p-value > 0.05, exponential, lambda=1.6", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })

data/test/distributions/R_tests/test_gamma.R

@@ -1,27 +0,0 @@
-context('** Gamma Distribution **')
-
-context('Kolmogorov-Smirnov test for gamma, shape=1.0, scale=1.0')
-  croupier_gamma <- read.table("../generated_samples/gamma_1_1.data")
-  ks_result<-ks.test(croupier_gamma$V1, "pgamma", shape = 1.0, scale=1.0)
-
-  test_that("p-value > 0.05 gamma, shape=1.0, scale=1.0", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0 gamma, shape=1.0, scale=1.0", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-
-
-context('Kolmogorov-Smirnov test for gamma, shape=10.35, scale=2.5')
-  croupier_gamma <- read.table("../generated_samples/gamma_1035_25.data")
-  ks_result<-ks.test(croupier_gamma$V1, "pgamma", shape=10.35, scale=2.5)
-
-  test_that("p-value > 0.05 gamma, shape=10.35, scale=2.5", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0 gamma, shape=10.35, scale=2.5", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-

data/test/distributions/R_tests/test_geometric.R

@@ -1,23 +0,0 @@
-context('** Geometric Distribution **')
-
-# It uses the fact that it is equivalent to a negative binomial
-# distribution with parameters size=1 and prob = p (Wikipedia
-# set p_{nbinomial} to be the fail probability while R takes
-# it as the success one).
-# Besides, since for the equality to hold the support must start
-# at zero, it just substracts one from the vector of samples.
-context('ChiSquare Goodness of Fit test for p=0.5')
-  croupier_geometric <- read.table("../generated_samples/geometric_05.data")
-  cs_result<-summary(goodfit(croupier_geometric$V1 - 1, type="nbinomial", method="ML", par=list(size=1, prob=0.5)))
-
-  test_that("p-value > 0.05, geometric, p = 0.5", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })
-
-context('ChiSquare Goodness of Fit test for p = 0.05')
-  croupier_geometric <- read.table("../generated_samples/geometric_005.data")
-  cs_result<-summary(goodfit(croupier_geometric$V1 - 1, type="nbinomial", method="ML", par=list(size=1, prob=0.05)))
-
-  test_that("p-value > 0.05, geometric, p=0.05", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })

data/test/distributions/R_tests/test_nbinomial.R

@@ -1,17 +0,0 @@
-context('** Negative Binomial Distribution **')
-
-context('ChiSquare Goodness of Fit test for prob=0.5, size=5')
-  croupier_nbinomial <- read.table("../generated_samples/nbinomial_05_5.data")
-  cs_result<-summary(goodfit(croupier_nbinomial$V1, type="nbinomial", method="ML", par=list(size=5, prob=0.5)))
-
-  test_that("p-value > 0.05, nbinomial, prob = 0.5, size=5", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })
-
-context('ChiSquare Goodness of Fit test for prob = 0.25, size=15')
-  croupier_nbinomial <- read.table("../generated_samples/nbinomial_025_15.data")
-  cs_result<-summary(goodfit(croupier_nbinomial$V1, type="nbinomial", method="ML", par=list(size=15, prob=0.25)))
-
-  test_that("p-value > 0.05, nbinomial, prob=0.25, size=15", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })

data/test/distributions/R_tests/test_normal.R

@@ -1,52 +0,0 @@
-context('** Normal Distribution **')
-# Run a K-S test on the Croupier sample against a exponential R-generated sample
-# Accept Croupier's sample as normal if p-value > 0.05
-# Also check for a statistic near 0
-
-context('Kolmogorov-Smirnov test for default mean = 0 and std = 1')
-  croupier_normal <- read.table("../generated_samples/normal_0_1.data")
-  ks_result<-ks.test(croupier_normal$V1, "pnorm")
-
-  test_that("p-value > 0.05, normal (0,1)", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0, normal(0,1)", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-
-context('Shapiro test for default mean = 0 and std = 1')
-  croupier_normal <- read.table("../generated_samples/normal_0_1.data")
-  s_result<-shapiro.test(croupier_normal$V1[1:5000])
-
-  test_that("p-value > 0.05, normal (0,1)", {
-    expect_true(s_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0, normal(0,1)", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-
-context('Kolmogorov-Smirnov test for given mean = 5 and std = 6')
-  croupier_normal <- read.table("../generated_samples/normal_5_6.data")
-  ks_result<-ks.test((croupier_normal$V1 - 5)/6, "pnorm")
-
-  test_that("p-value > 0.05, normal(5,6)", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0, normal(5,6)", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-
-context('Shapiro test for default mean = 5 and std = 1')
-  croupier_normal <- read.table("../generated_samples/normal_0_1.data")
-  s_result<-shapiro.test((croupier_normal$V1[1:5000] - 5 ) / 6)
-
-  test_that("p-value > 0.05, normal(5,6)", {
-    expect_true(s_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0, normal(5,6)", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })

data/test/distributions/R_tests/test_poisson.R

@@ -1,17 +0,0 @@
-context('** Poisson Distribution **')
-
-context('ChiSquare Goodness of Fit test for mean = 5')
-  croupier_poisson <- read.table("../generated_samples/poisson_5.data")
-  cs_result<-summary(goodfit(croupier_poisson$V1, type="poisson", method="ML", par=list(lambda=5)))
-
-  test_that("p-value > 0.05, poisson mean = 5", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })
-
-context('ChiSquare Goodness of Fit test for mean = 50')
-  croupier_poisson <- read.table("../generated_samples/poisson_50.data")
-  cs_result<-summary(goodfit(croupier_poisson$V1, type="poisson", method="ML", par=list(lambda=50)))
-
-  test_that("err, poisson lambda = 50", {
-    expect_true(cs_result['Pearson',3] > 0.05)
-  })

data/test/distributions/R_tests/test_triangular.R

@@ -1,28 +0,0 @@
-context('** Triangular Distribution **')
-# Run a K-S test on the Croupier sample against a exponential R-generated sample
-# Accept Croupier's sample as exponential if p-value > 0.05
-# Also check for a statistic near 0
-
-context('Kolmogorov-Smirnov test for a = -1, b = 5, c=4')
-  croupier_exponential <- read.table("../generated_samples/triangular_-1_5_4.data")
-  ks_result<-ks.test(croupier_exponential$V1, "ptriangle", a=-1, b=5, c=4)
-
-  test_that("p-value > 0.05 triangular, not default parameters", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-
-context('Kolmogorov-Smirnov test for default values a=0, b=1, c=0.5')
-  croupier_exponential <- read.table("../generated_samples/triangular_0_1_05.data")
-  ks_result<-ks.test(croupier_exponential$V1, "ptriangle", a=0, b=1, c=0.5)
-
-  test_that("p-value > 0.05 triangular, default parameters", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })

data/test/distributions/R_tests/test_uniform.R

@@ -1,30 +0,0 @@
-context('** Uniform Distribution **')
-# Run a K-S test on the Croupier sample against a uniform R-generated sample
-# Accept Croupier's sample as uniform if p-value > 0.05
-# Also check for a statistic near 0
-
-context('Kolmogorov-Smirnov test for default sample in [0,1]')
-  croupier_uniform_0_1 <- read.table("../generated_samples/uniform_0_1.data")
-  ks_result<-ks.test(croupier_uniform_0_1$V1, "punif")
-
-  test_that("p-value > 0.05, uniform, [0,1]", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-
-
-context('Kolmogorov-Smirnov test for sample with custom interval')
-  croupier_uniform_5_33 <- read.table("../generated_samples/uniform_5_33.data")
-  ks_result<-ks.test(croupier_uniform_5_33$V1, "punif", min = 5, max = 33)
-
-  test_that("p-value > 0.05, uniform, [5,33]", {
-    expect_true(ks_result$p.value > 0.05)
-  })
-
-  test_that("statistic converging to 0", {
-    expect_true(as.numeric(ks_result$statistic) < 0.05)
-  })
-

data/test/testsuite.R

@@ -1,37 +0,0 @@
-#!/usr/bin/env Rscript
-#
-# This script runs all the R tests of the croupier gem for all the distributions.
-#
-# Running the script:
-#  Option 1, Via Rscript:
-#    $> Rscript testsuite.R
-#
-#  Option 2, from the R console:
-#    source('testsuite.R')
-#
-# Dependencies:
-# In order to run the tests you need to have installed the following packages:
-#
-#   - testthat
-#   - triangle
-#   - vcd
-#
-# Croupier will try to install them automatically if they are not included
-# in your R installation.
-
-if(require('testthat') == FALSE) {
-  install.packages('testthat', repos = "http://cran.r-project.org/", type="source")
-  require('testthat')
-}
-
-if(require('triangle') == FALSE) {
-  install.packages('triangle')
-  require('triangle')
-}
-if(require('vcd') == FALSE) {
-  install.packages('vcd')
-  require('vcd')
-}
-options(warn=-1)
-test_dir("./distributions/R_tests/")
-options(warn=0)