perl进行z检验

use Statistics::Zed;
my $zed = Statistics::Zed->new();
my $p_value = $zed->p_value(tails => 1, observed => 30, expected => 0, variance => 100);
my $z_score = $zed->p2z(value => $p_value, tails => 1);
print "$p_value\t$z_score\n";

其中variance指方差，tails=>1表明单尾检验