Help for this page
#!/usr/bin/perl -w use strict; ... my $R2 = 1 - $ss_resid / $ss_total; print "R^2 = $R2\n";
SS residual = 1.9 SS total = 46 R^2 = 0.958695652173913