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;
$Statistics::Descriptive::Smoother::Exponential::VERSION = '3.0801';
use strict;
use warnings;

use parent 'Statistics::Descriptive::Smoother';

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__