Sha256: 74522c6376ce4d3934fa408de12cec66459ce2959e932cb5a908092ddc618755
Contents?: true
Size: 1.14 KB
Versions: 10
Compression:
Stored size: 1.14 KB
Contents
require File.expand_path(File.dirname(__FILE__) + '/../../test_helper')
require 'rbbt/statistics/fdr'
require 'test/unit'
require 'rsruby'
class TestFDR < Test::Unit::TestCase
def clean(values)
if Array === values
values.collect{|v| (v * 10000).to_i.to_f / 10000}
else
(values * 10000).to_i.to_f / 10000
end
end
def copy(values)
values.collect{|v| v + 0.0}
end
def setup
@r = RSRuby.instance
@values = [0.001, 0.002, 0.003, 0.003, 0.003, 0.004, 0.006, 0.07, 0.09]
@threshold = 0.01
@r_adj = @r.p_adjust(@values,'BH')
end
def test_step_up
assert_equal(0.006, clean(FDR.step_up(@values, @threshold)))
assert_equal(clean(FDR.step_up_native(@values, @threshold)), clean(FDR.step_up_fast(@values,@threshold)))
assert_equal(@r_adj.select{|v| v <= @threshold}.length, @values.select{|v| v <= FDR.step_up(@values, @threshold)}.length)
end
def test_adjust
assert_equal(clean(@r_adj), clean(FDR.adjust_native(@values)))
assert_equal(clean(FDR.adjust_fast(@values)), clean(FDR.adjust_native(@values)))
assert_equal(clean(@r_adj), clean(FDR.adjust_fast_self(copy(@values))))
end
end
Version data entries
10 entries across 10 versions & 1 rubygems