Reply to thread

Message: [QUOTE="xhoster, post: 4815424"] It probably will not slow down (until you run low on disk) but try it and see. $ perl -l use Time::HiRes qw(time); use Statistics::Regression; my $r=new Statistics::Regression(2,'',[qw/constant slope/]); unlink "fooo"; foreach (1..1000) { my $t=time; open my $fh, ">>fooo" or die $!; print $fh "x"x1_000_000; close $fh or die $!; $r->include(time()-$t,[1,$_]); }; $r->print __END__ **************************************************************** Regression 'with no name' **************************************************************** Theta[0='constant']= 0.0336 Theta[1='slope']= 0.0000 R^2= 0.000, N= 1000 **************************************************************** So it takes 0.0336 seconds, regardless of how big the file is. [/QUOTE]