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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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)");