test/t7201-anova.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 my $expected;
   9 { local $/; $expected = <DATA>; }
  10
  11 &message ("Check anova tool.");
  12 my $file = "$samples/nist/gear.gnumeric";
  13
  14 &GnumericTest::test_tool ($file, 'anova',
  15                           ['data' => 'Data!A1:j10'],
  16                           undef,
  17                           sub { $_[0] eq $expected; });
  18
  19 # FIXME: We really ought to compare with tolerance
  20
  21 __DATA__
  22 "Anova: Single Factor",,,,,,
  23 ,,,,,,
  24 SUMMARY,,,,,,
  25 Groups,Count,Sum,Average,Variance,,
  26 "Column 1",10,9.98,0.998,1.8888888888888923E-05,,
  27 "Column 2",10,9.991,0.9991,2.7211111111111157E-05,,
  28 "Column 3",10,9.954,0.9954000000000001,1.582222222222225E-05,,
  29 "Column 4",10,9.982,0.9982,1.4844444444444303E-05,,
  30 "Column 5",10,9.919,0.9919,5.743333333333343E-05,,
  31 "Column 6",10,9.988,0.9987999999999999,9.773333333333265E-05,,
  32 "Column 7",10,10.015,1.0015,6.205555555555568E-05,,
  33 "Column 8",10,10.004,1.0004,1.3155555555555578E-05,,
  34 "Column 9",10,9.983,0.9983000000000001,1.7122222222222252E-05,,
  35 "Column 10",10,9.948,0.9948,2.8400000000000053E-05,,
  36 ,,,,,,
  37 ,,,,,,
  38 ANOVA,,,,,,
  39 "Source of Variation",SS,df,MS,F,P-value,"F critical"
  40 "Between Groups",0.0007290399999999998,9,8.100444444444442E-05,2.29691241335854,0.022660819278641282,1.985594963730501
  41 "Within Groups",0.0031739999999999963,90,3.5266666666666625E-05,,,
  42 Total,0.003903039999999996,99,,,,