2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
9 { local $/; $expected = <DATA
>; }
11 &message
("Check regression tool.");
12 my $file = "$samples/tool-tests.gnumeric";
14 &GnumericTest
::test_tool
($file, 'regression',
15 ['x' => 'Data!A1:A30', 'y' => 'Data!B1:B30'],
17 sub { $_[0] eq $expected; });
20 "SUMMARY OUTPUT",,"Response Variable","Column 2",,,
22 "Regression Statistics",,,,,,
23 "Multiple R",0.7462523057935172,,,,,
24 R
^2,0.5568925039021411,,,,,
25 "Standard Error",1.9266332107144821,,,,,
26 "Adjusted R^2",0.5410672361843604,,,,,
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,,,,
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