[Perl et R] rejet des arguments
Bonjour, j'ai un script dans lequel je fais une comparaison entre les éléments de deux tableaux, un à un, et stoque les indices des élements dans deux autres tableaux, jusque là tout va bien, puis je fais un appel à la fonction system() pour lancer le langage R http://www.r-project.org/avec comme arguments les deux tableaux avec les indices que j'utilise comme vecteurs avec la foncton R plot(). Le problème c'est que les arguments ne sont pas pris en compte j'obtiens ce message; puis R est lancé.
Code:
1
2
3
4
5
6
| C:\Documents and Settings\nom\Bureau>perl -w SIMR.pl
ARGUMENT 'abs <- c (0 1 2 3 4 5 6 7 8 9)' __ignored__
ARGUMENT 'ord <- c (0 1 2 3 4 5 6 7 8 9)' __ignored__
ARGUMENT 'plot(abs,ord)' __ignored__ |
Mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| my @tab_1=('un','deux','trois','quatre','cinq','six','sept','huit','neuf','dix');
my @tab_2=('un','deux','trois','quatre','cinq','six','sept','huit','neuf','dix');
my @vec_abs=();
my @vec_ord=();
for($i=0;$i<@tab_1;$i++){
if ($tab_1[$i] eq $tab_2[$i]){
push(@vec_abs,$i);
push(@vec_ord,$i);
}
}
system("R", "abs <- c (@vec_abs)","ord <- c (@vec_ord)","plot(abs,ord)"); |
