#!/usr/bin/perl

use Statistics::Table::t;

($dolna, $gorna) = t_significance($t, $poziom, $ogon_rozkladu);, 
print "Prawdopodobienstwo przypadkowosci danych: \n";
print "ponad $dolna i mniej niz $gorna. \n"

# $srednia = srednia(\@tablica) oblicza srednia dla tablicy z wartosciami.
#
sub srednia {
    my ($element) = @_;
    my $wynik;
    foreach (@$element) { $wynik += $_ }
    return $wynik / @$arrayref;
}

sub wariancja_szacowana {
    my ($element) = @_;
    my ($srednia, $wynik) = (srednia($element), 0);
    foreach (@$element) { $wynik += ($_ - $srednia) ** 2 }
    return $wynik / $#{$element};
}

