Select Code to Download

use Text::NSP::Measures::2D::Fisher2::twotailed;

  my $npp = 60; my $n1p = 20; my $np1 = 20;  my $n11 = 10;
...
  {
    print getStatisticName."value for bigram is ".$twotailed_value;
  }

#! usr/bin/perl
use warnings;
use strict;
...
Right  : p-value = 0.7893588188856397
2-Tail : p-value = 0.6809628247605259
------------------------------------------

 TEST:
  ## simplified test equation
  my $test = $a*$d - $b*$c;
...
    ($a, $b, $c, $d, ) = ($b, $a, $d, $c,);
    goto TEST;
  }

perl Desktop/perl/lib/Statistics/FET_test_complete.pl
1..40
# Running under perl version 5.010000 for linux
...
ok 38
ok 39
ok 40

=head1 NAME

Statistics::FET - Fisher's Exact Test statistic (2x2 case)
...
1;

__END__