line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
|
2
|
|
|
|
|
|
|
package Statistics::Basic::Mean; |
3
|
|
|
|
|
|
|
|
4
|
33
|
|
|
33
|
|
136
|
use strict; |
|
33
|
|
|
|
|
43
|
|
|
33
|
|
|
|
|
1136
|
|
5
|
33
|
|
|
33
|
|
141
|
use warnings; |
|
33
|
|
|
|
|
35
|
|
|
33
|
|
|
|
|
749
|
|
6
|
33
|
|
|
33
|
|
120
|
use Carp; |
|
33
|
|
|
|
|
33
|
|
|
33
|
|
|
|
|
1893
|
|
7
|
|
|
|
|
|
|
|
8
|
33
|
|
|
33
|
|
133
|
use base 'Statistics::Basic::_OneVectorBase'; |
|
33
|
|
|
|
|
36
|
|
|
33
|
|
|
|
|
12350
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub new { |
11
|
115
|
|
|
115
|
1
|
1320
|
my $class = shift; |
12
|
|
|
|
|
|
|
|
13
|
115
|
50
|
|
|
|
259
|
warn "[new $class]\n" if $Statistics::Basic::DEBUG >= 2; |
14
|
|
|
|
|
|
|
|
15
|
115
|
|
|
|
|
252
|
my $this = bless {}, $class; |
16
|
115
|
50
|
|
|
|
115
|
my $vector = eval { Statistics::Basic::Vector->new(@_) } or croak $@; |
|
115
|
|
|
|
|
463
|
|
17
|
115
|
100
|
|
|
|
296
|
my $c = $vector->_get_computer("mean"); return $c if defined $c; |
|
115
|
|
|
|
|
447
|
|
18
|
|
|
|
|
|
|
|
19
|
76
|
|
|
|
|
1487
|
$this->{v} = $vector; |
20
|
|
|
|
|
|
|
|
21
|
76
|
|
|
|
|
217
|
$vector->_set_computer( mean => $this ); |
22
|
|
|
|
|
|
|
|
23
|
76
|
|
|
|
|
315
|
return $this; |
24
|
|
|
|
|
|
|
} |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
sub _recalc { |
27
|
107
|
|
|
107
|
|
122
|
my $this = shift; |
28
|
107
|
|
|
|
|
106
|
my $sum = 0; |
29
|
107
|
|
|
|
|
128
|
my $v = $this->{v}; |
30
|
107
|
|
|
|
|
255
|
my $cardinality = $v->query_size; |
31
|
|
|
|
|
|
|
|
32
|
107
|
|
|
|
|
191
|
delete $this->{recalc_needed}; |
33
|
107
|
|
|
|
|
127
|
delete $this->{_value}; |
34
|
|
|
|
|
|
|
|
35
|
107
|
100
|
|
|
|
204
|
return unless $cardinality > 0; |
36
|
106
|
100
|
|
|
|
295
|
return unless $v->query_filled; # only applicable in certain circumstances |
37
|
|
|
|
|
|
|
|
38
|
33
|
|
|
33
|
|
178
|
{ no warnings 'uninitialized'; ## no critic |
|
33
|
|
|
|
|
50
|
|
|
33
|
|
|
|
|
3535
|
|
|
104
|
|
|
|
|
109
|
|
39
|
104
|
|
|
|
|
224
|
$sum += $_ for $v->query; |
40
|
|
|
|
|
|
|
} |
41
|
|
|
|
|
|
|
|
42
|
104
|
|
|
|
|
5894
|
$this->{_value} = ($sum / $cardinality); |
43
|
|
|
|
|
|
|
|
44
|
104
|
50
|
|
|
|
2220
|
warn "[recalc " . ref($this) . "] ($sum/$cardinality) = $this->{_value}\n" if $Statistics::Basic::DEBUG; |
45
|
|
|
|
|
|
|
|
46
|
104
|
|
|
|
|
191
|
return; |
47
|
|
|
|
|
|
|
} |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
1; |