t-test using CPAN TTest module

Labels: Informatics
이메일로 전송BlogThis!X에 공유Facebook에서 공유

sub do_t_test_using_CPAN {
    #
    # faster !!
    # perl -MCPAN -e 'install Statistics::TTest'
    #
    my ($refData1, $refData2) = @_ ;
    my @Data1 = @$refData1 ;
    my @Data2 = @$refData2 ;
    
    use Statistics::TTest;
    use Statistics::Basic qw(:all);

    my $mean1 = mean( @Data1 ) ;
    my $mean2 = mean( @Data2 ) ;

    my $ttest = new Statistics::TTest;
    $ttest->set_significance(95);
    $ttest->load_data(\@Data1,\@Data2);
    #$ttest->output_t_test();
    my $t = $ttest->t_statistic;
    #my $df   = $ttest->df;
    my $p_value = $ttest->{t_prob};
    #my $test = $ttest->null_hypothesis();

    return $mean1 . "\t" . $mean2 . "\t" . $p_value ;
}

이메일로 전송BlogThis!X에 공유Facebook에서 공유

Labels: Informatics