class StatsampleCrosstabTestCase

# File pkg/statsample-1.4.0/test/test_crosstab.rb, line 4
def initialize(*args)
  @v1=%w{black blonde black black red black brown black blonde black red black blonde}.to_vector
  @v2=%w{woman man man woman man man man woman man woman woman man man}.to_vector
  @ct=Statsample::Crosstab.new(@v1,@v2)
  super
end

# File pkg/statsample-1.4.0/test/test_crosstab.rb, line 24
def test_crosstab_basic
  assert_equal(%w{black blonde brown red}, @ct.rows_names)
  assert_equal(%w{man woman}, @ct.cols_names)
  assert_equal({'black'=>7,'blonde'=>3,'red'=>2,'brown'=>1}, @ct.rows_total)
  assert_equal({'man'=>8,'woman'=>5}, @ct.cols_total)
end

# File pkg/statsample-1.4.0/test/test_crosstab.rb, line 10
def test_crosstab_errors
  e1=%w{black blonde black black red black brown black blonde black}
  assert_raise ArgumentError do
    Statsample::Crosstab.new(e1,@v2)
  end
  e2=%w{black blonde black black red black brown black blonde black black}.to_vector

  assert_raise ArgumentError do
    Statsample::Crosstab.new(e2,@v2)
  end
  assert_nothing_raised do
    Statsample::Crosstab.new(@v1,@v2)
  end
end

# File pkg/statsample-1.4.0/test/test_crosstab.rb, line 30
def test_crosstab_frequencies
  fq=@ct.frequencies
  assert_equal(8,fq.size)
  sum=fq.inject(0) {|s,x| s+x[1]}
  assert_equal(13,sum)
  fr=@ct.frequencies_by_row
  assert_equal(4,fr.size)
  assert_equal(%w{black blonde brown red},fr.keys.sort)
  fc=@ct.frequencies_by_col
  assert_equal(2,fc.size)
  assert_equal(%w{man woman},fc.keys.sort)
  assert_equal(Matrix.rows([[3,4],[3,0],[1,0],[1,1]]),@ct.to_matrix)
end

# File pkg/statsample-1.4.0/test/test_crosstab.rb, line 49
def test_expected
  v1=%w{1 1 1 1 1 0 0 0 0 0}.to_vector
  v2=%w{0 0 0 0 0 1 1 1 1 1}.to_vector
  ct=Statsample::Crosstab.new(v1,v2)
  assert_equal(Matrix[[2.5,2.5],[2.5,2.5]],ct.matrix_expected)
end

# File pkg/statsample-1.4.0/test/test_crosstab.rb, line 43
def test_summary
  @ct.percentage_row=true
  @ct.percentage_column=true
  @ct.percentage_total=true
  assert(@ct.summary.size>0)
end