Select Code to Download

    # OK, now lets use linear regression to fit
    my $reg = Statistics::Regression->new( $data->{Name}, [ "Const", "
+Theta1", "Theta2" ] );
...
    }
    print "Results are ...\n";
    $reg->print();

# This is printed by the lines above, this one works fine...

...
        Statistics::Regression::standarderrors(Statistics::Regression=
+HASH(0x44dfe90)) called at C:/Perl64/site/lib/Statistics/Regression.p
+m line 430
        Statistics::Regression::print(Statistics::Regression=HASH(0x44
+dfe90)) called at Report.pl line 125
        main::predict(HASH(0x4340ec8), 10) called at Report.pl line 85