File Coverage

blib/lib/Statistics/Descriptive/Smoother/Exponential.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition	1	2	50.0
subroutine	5	5	100.0
pod	1	1	100.0
total	27	28	96.4

package Statistics::Descriptive::Smoother::Exponential;
use strict;
use warnings;

use base 'Statistics::Descriptive::Smoother';

our $VERSION = '3.0702';

sub _new {
    my ($class, $args) = @_;

    return bless $args || {}, $class;
}

# The name of the variables used in the code refers to the explanation in the pod
sub get_smoothed_data {
    my ($self) = @_;

    my @smoothed_values;
    push @smoothed_values, @{$self->{data}}[0];
    my $C = $self->get_smoothing_coeff();

    foreach my $sample_idx (1 .. $self->{count} -1) {
        my $smoothed_value = $C * ($smoothed_values[-1]) + (1 - $C) * $self->{data}->[$sample_idx];
        push @smoothed_values, $smoothed_value;
    }
    return @smoothed_values;
}

1;

__END__