diff --git a/progs/altree b/progs/altree index f1725b13046d8a8a5a7c9eded11efaf79a8e47a2..f9416b54412b733b82344a480388f50072b6ffab 100755 --- a/progs/altree +++ b/progs/altree @@ -705,7 +705,13 @@ sub RepeatAssociation $prolonge, $sign_util); push @{$ligne_stats}, @{$res}; } - + } + my $resamp=ALTree::CUtils::ResamplingChi2( + $leaf_refs, $leaf_depth, $leaf_parent, $nleaf_parent, + $max_depth, $prolonge, $nb_permutation + ); + $ligne_stats=$resamp->{"chi2s"}; + $corrected_values=ALTree::CUtils::DoublePermutation ($nb_permutation+1, $value_per_line, $ligne_stats);