test/t7200-regression.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 regression tool.");
  12 my $file = "$samples/tool-tests.gnumeric";
  13
  14 &GnumericTest::test_tool ($file, 'regression',
  15                           ['x' => 'Data!A1:A30', 'y' => 'Data!B1:B30'],
  16                           'A1:G18',
  17                           sub { $_[0] eq $expected; });
  18
  19 __DATA__
  20 "SUMMARY OUTPUT",,"Response Variable","Column 2",,,
  21 ,,,,,,
  22 "Regression Statistics",,,,,,
  23 "Multiple R",0.7462523057935172,,,,,
  24 R^2,0.5568925039021411,,,,,
  25 "Standard Error",1.9266332107144821,,,,,
  26 "Adjusted R^2",0.5410672361843604,,,,,
  27 Observations,30,,,,,
  28 ,,,,,,
  29 ANOVA,,,,,,
  30 ,df,SS,MS,F,"Significance of F",
  31 Regression,1,130.62262009560348,130.62262009560348,35.19008422691248,2.197070097340739E-06,
  32 Residual,28,103.93363480158382,3.7119155286279937,,,
  33 Total,29,234.5562548971873,,,,
  34 ,,,,,,
  35 ,Coefficients,"Standard Error",t-Statistics,p-Value,0.95,0.95
  36 Intercept,0.4134235230780967,0.7214717512990694,0.5730280116077914,0.5711994028401975,-1.0644443648864401,1.8912914110426335
  37 "Column 1",0.24107897994182365,0.04063957822902626,5.9321230792113955,2.197070097340739E-06,0.15783257765793968,0.3243253822257076