use Test;
use Statistics::Basic qw(:all ipres=2);

plan tests => 1;

my $mean = mean(1,3,7);
ok($mean, 3.67);