Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
P:\test>MP-FET.pl
8.070604647867604097576877668E-7030
  1 trial  of _default ( 25.852ms total), 25.852ms/trial
  2. or download this
    #! perl -slw
use strict;
...
$T->stop( '' );

$T->report;
  3. or download this
    sub FishersExactTest2 {
    my @data = @_;
...
    my $divisor  = product( map{ ( $_ ) x $divisors { $_ } } keys %div
+isors  );
    return $dividend / $divisor;
}