view release on metacpan or  search on metacpan

t/statistics_continuous.t  view on Meta::CPAN

            lengw => {
                count    => 4,
                mean     => 16.4,
                integral => 164,
                interval => 10,
                change   => -2,
            },
        },
    },
    {
        time    => 1014,
        val     => 24,
        methods => {
            timew => {
                count    => 3,
                mean     => 15.5,
                integral => 124,
                interval => 8,
                change   => 8,
            },
            lengw => {
                count    => 4,
                mean     => num( 15.555555555, 0.000001 ),
                integral => 140,
                interval => 9,
                change   => 8,
            },
        },
    },
    {
        time    => 1020,
        methods => {
            timew => {
                count    => 1,
                mean     => 22.5,
                integral => 180,
                interval => 8,
                change   => 6,
            },
        },
    },
    {
        time    => 1024,
        methods => {
            timew => {
                count    => 0,
                mean     => 24,
                integral => 192,
                interval => 8,
                change   => 0,
            },
        },
    },
);

TestStream->new(
    aggregator_class  => 'Data::EventStream::Statistics::Continuous',
    new_params        => { value_sub => sub { $_[0]->{val} }, time_sub => sub { $_[0]->{time} }, },
    aggregator_params => \%params,
    events            => \@events,
    no_callbacks      => 1,
    time_sub => sub { $_[0]->{time} },
)->run;

done_testing;