Select Code to Download

Select or download this

my %raw_data = (
    1    =>    100,
    2    =>    160,
...

$mean_x = $regr->get_mean_x;
print '$mean_x= ', Dumper($mean_x);

Select or download this

$regr= $VAR1 = bless( {
                 'mean_y' => '166.75',
                 'raw_data' => {
...
                 'mean_x' => '2.125',
                 'y_intercept' => '37.9142857142857'
               }, 'regression' );

Select or download this

        $raw_dataPtr = \%{$element_stats_hash{$element_name}{'raw_data
+'}};
        $$raw_dataPtr{$time} = {$var};

Select or download this

    #$regr = regression->new(\%{$element_stats_hash{$element_name}{'ra
+w_data'}});
    $regr = regression->new(\%{$element_stats_hash{$element_name}});
    print TEST '$regr= ', Dumper($regr);

Select or download this

    $regr = regression->new(\%{$element_stats_hash{$element_name}});
    print TEST '$regr= ', Dumper($regr);

Select or download this

'raw_data' => {
                                                 '1229265435' => {
                                                                   '0.
+12205589' => undef
...
                                                 '1229317107' => {
                                                                   '1.
+22392523' => undef
                                                                 },

Select or download this

'raw_data' => {
                                                 '1229265435' => '0.12
+205589',
                                                 '1229299036' => '0.71
+940041',
                                            '1229317107' => '1.2239252
+3'
                                                                 },