OTHER is better for others than UNKNOWN.
This commit is contained in:
parent
aebdd114be
commit
0dbd91fbbf
2
top_n
2
top_n
|
@ -23,7 +23,7 @@ for my $i (0 .. $#data) {
|
||||||
unless ($top_n{$data[$i][$f]}) {
|
unless ($top_n{$data[$i][$f]}) {
|
||||||
my $val = $data[$i][$v];
|
my $val = $data[$i][$v];
|
||||||
$data[$i][$v] = 0;
|
$data[$i][$v] = 0;
|
||||||
$data[$i][$f] = 'UNKNOWN';
|
$data[$i][$f] = 'OTHER';
|
||||||
my $k = join("\t", @{$data[$i]});
|
my $k = join("\t", @{$data[$i]});
|
||||||
if (defined($index{$k})) {
|
if (defined($index{$k})) {
|
||||||
$data[$index{$k}][$v] += $val;
|
$data[$index{$k}][$v] += $val;
|
||||||
|
|
Loading…
Reference in New Issue