Bonjour a tous,

J'ai un probleme (d'ou on poste ) avec perl . J'essai d'utiliser le module Statistics::RankCorrelation. Mais je suis bloquer, voici un exemple pour illustrer mon probleme.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
use Statistics::RankCorrelation;
 
my $x = [ 0, 7, 6, 5, 4, 3, 2, 1 ];
my $y = [ 2, 0, 5, 3, 4, 7, 8, 6 ];
 
$c = Statistics::RankCorrelation->new( $ru, $ru2); # edition remplacement de $r par $ru et $ru2
 
print $c->spearman."\n";
print $c->kendall."\n";
print $c->csim."\n";
La tous va bien. mais tous ce complique dans l'exemple suivant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use Statistics::RankCorrelation;
my @ru=();
my @ru2=();
 
$ru[++$#ru]=18.2;
$ru[++$#ru]=1.2;
$ru[++$#ru]=15.2;
$ru[++$#ru]=10.2;
$ru[++$#ru]=1.2;
$ru[++$#ru]=100.2;
 
$ru2[++$#ru2]=128.2;
$ru2[++$#ru2]=14.2;
$ru2[++$#ru2]=153.2;
$ru2[++$#ru2]=10.2;
$ru2[++$#ru2]=19.2;
$ru2[++$#ru2]=10.2;
 
$c = Statistics::RankCorrelation->new( $ru, $ru2);
 
print $c->spearman."\n";
print $c->kendall."\n";
print $c->csim."\n";
J'obtiens ceux-ci comme erreur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Use of uninitialized value in division (/) at /opt/local/lib/perl5/site_perl/5.8.9/Statistics/RankCorrelation.pm line 110.
Illegal division by zero at /opt/local/lib/perl5/site_perl/5.8.9/Statistics/RankCorrelation.pm line 110.

La je comprend pas, est-ce un probleme d'initialisation de mes tableaux, ou la facon dont j'ajoute les données dans les tableaux?