File Coverage

lib/App/Sandy/Role/Statistic.pm

Criterion	Covered	Total	%
statement	6	21	28.5
branch	0	6	0.0
condition			n/a
subroutine	2	5	40.0
pod	0	3	0.0
total	8	35	22.8

package App::Sandy::Role::Statistic;
# ABSTRACT: Basic statistics

use App::Sandy::Base 'role';
use List::Util 'sum';

our $VERSION = '0.24'; # VERSION

sub with_mean {
	my ($self, $vet) = @_;

	if (ref $vet ne 'ARRAY') {
		croak "vet is not an array ref";
	}

	return sum(@$vet) / scalar(@$vet);
}

sub with_variance {
	my ($self, $vet) = @_;

	if (ref $vet ne 'ARRAY') {
		croak "vet is not an array ref";
	}

	my $mean = $self->with_mean($vet);
	my @diff = map { ($_ - $mean) ** 2 } @$vet;

	return $self->with_mean(\@diff);
}

sub with_stdd {
	my ($self, $vet) = @_;

	if (ref $vet ne 'ARRAY') {
		croak "vet is not an array ref";
	}

	return sqrt $self->with_variance($vet);
}

__END__

=pod

=encoding UTF-8

=head1 NAME

App::Sandy::Role::Statistic - Basic statistics

=head1 VERSION

version 0.24

=head1 AUTHORS

=over 4

=item *

Thiago L. A. Miller <[e-mail]>

=item *

J. Leonel Buzzo <[e-mail]>

=item *

Felipe R. C. dos Santos <[e-mail]>

=item *

Helena B. Conceição <[e-mail]>

=item *

Rodrigo Barreiro <[e-mail]>

=item *

Gabriela Guardia <[e-mail]>

=item *

Fernanda Orpinelli <[e-mail]>

=item *

Rafael Mercuri <[e-mail]>

=item *

Rodrigo Barreiro <[e-mail]>

=item *

Pedro A. F. Galante <[e-mail]>

=back

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2023 by Teaching and Research Institute from Sírio-Libanês Hospital.

This is free software, licensed under:

  The GNU General Public License, Version 3, June 2007

=cut