Select Code to Download

#!/usr/bin/perl -wl

...
my @cmd = qw(R --no-save --no-init-file --no-restore-data --slave);
exec @cmd;
die "couldn't exec @cmd : $1";  # should never get here

Read 99 items
Read 99 items
...
Residual standard error: 0.04027 on 96 degrees of freedom
Multiple R-Squared: 0.9975,    Adjusted R-squared: 0.9974 
F-statistic: 1.889e+04 on 2 and 96 DF,  p-value: < 2.2e-16

sub estimate_count_from_xp($) {
    my $xp = shift;
    10 ** ( 4.442 - 4.194e-2 * $xp + 1.467e-4 * $xp**2 );
}