module Statistics ::R

Bonjour utilisant le module Statistics::R
j'ai créé une matrice que j'essaie d'imprimer dans un fichier.
Mais le fichier reste désespérément vide ...:cry:

Voici mon code :

Code:

---

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

#!/usr/bin/perl -w   use strict; use warnings; use Statistics::R;   open(OUT, ">resultats.txt");   my $log_dir = '/share/ExperimentsDB/Projet_Gilles/Test-haploview';   my $r_bin = '/usr/local/bin/Rscript';   my $R = Statistics::R->new( "r_bin" =>$r_bin, "log_dir" =>$log_dir, ) or die"Problem with R : $!\n";   $R->startR;   $R->send ( q` m<-c(1:100) mat<-matrix(m,nrow=2,ncol=50,byrow=T) \n print(mat) ` );     print OUT $mat;

---

J'ai essayé aussi de mettre la matrice dans un tableau et d'imprimer le tableau ligne par ligne, mais sans plus de résultats.

Quelqu'un a-t-il une idée ?

Merci d'avance.

tu ne t'y prends pas de la bonne manière tout simplement.

ce module se comporte comme si perl devenait ta console R
donc tu dois imprimer via R, comme ceci par exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/bin/perl -w   use strict; use warnings; use Statistics::R;   my $out = "resultats.txt"; my $log_dir = "."; my $R = Statistics::R->new( "log_dir"=>$log_dir ) or die"Problem with R : $!\n";     my $cmds = <<EOF; m<-c(1:100) mat<-matrix(m,nrow=2,ncol=50,byrow=T) write.table(mat,"$out") EOF $R->run($cmds);

---

Hope this helps !

Merci beaucoup
ta solution fonctionne très bien