/usr/lib/perl5/ALTree/Chi2.pm is in altree 1.3.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | package ALTree::Chi2;
use strict;
use ALTree::CUtils;
BEGIN {
use Exporter ();
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
# set the version for version checking
$VERSION = 1.00;
# if using RCS/CVS, this may be preferred
#$VERSION = do { my @r = (q$Revision$ =~ /\d+/g);
# sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
@ISA = qw(Exporter);
@EXPORT = qw(NON_SIGNIFICATIF SIGNIFICATIF &chi2_significatif &definition_p_chi2 &reech_chi2);
#%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here,
# as well as any optionally exported functions
@EXPORT_OK = qw();
}
#our @EXPORT_OK;
INIT {
}
# exported package globals go here
#our $Var1;
#our %Hashit;
# non-exported package globals go here
#our @more;
#our $stuff;
# initialize package globals, first exported ones
#$Var1 = '';
#%Hashit = ();
# then the others (which are still accessible as $Some::Module::stuff)
#$stuff = '';
#@more = ();
# all file-scoped lexicals must be created before
# the functions below that use them.
# file-private lexicals go here
#my $priv_var = '';
#my %secret_hash = ();
# here's a file-private function as a closure,
# callable as &$priv_func; it cannot be prototyped.
#my $priv_func = sub {
# # stuff goes here.
#};
# make all your functions, whether exported or not;
# remember to put something interesting in the {} stubs
#sub func1 {} # no prototype
#sub func2() {} # proto'd void
#sub func3($$) {} # proto'd to 2 scalars
# this one isn't exported, but could be called!
#sub func4(\%) {} # proto'd to 1 hash ref
END { } # module clean-up code here (global destructor)
use constant NON_SIGNIFICATIF => 0;
use constant SIGNIFICATIF => 1;
##################################################################
# Fonctions de seuil du chi2 (pré-calcul puis stockage dans un tableau)
# test de significativité. Doit retourner vrai ou faux.
sub chi2_significatif {
my ($ddl) = shift;
my ($chi2) = shift;
return ALTree::CUtils::Chi2Significatif($ddl, $chi2);
}
sub definition_p_chi2
#Utilisé aussi pour le test F
{
my($p)=shift;
my($pprop)=shift;
ALTree::CUtils::DefinitionPChi2($p, $pprop);
}
sub chi2_fisher_significatif
{
my($pvalue)=shift;
return ALTree::CUtils::Chi2FisherSignificatif($pvalue);
}
##################################################################
# Rééchantillonnage
sub reech_chi2
{
my $sum_malade=shift;
my $sum_controle=shift;
my $nb_fils=shift;
my($chi2_reel)=shift;
my $clades=shift;
return ALTree::CUtils::ReechChi2($sum_malade, $sum_controle, $nb_fils,
$chi2_reel, $clades);
}
sub reech_significatif
{
my($p_val)=shift;
return ALTree::CUtils::ReechSignificatif($p_val)
}
1;
|