Bonjour,
J'ai intégré quelques fonctions R dans un script perl.
Les fichiers voulus sont bien créés en revanche j'ai un petit problème avec le fichier de sortie R. Dans ce fichier je doit retrouver le résultat des fonctions R et non le script lui même.
Quelqu'un pourrait il m'aider SVP Merci.
Voici le code utilisé
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49 #!/usr/bin/perl use strict; use warnings; use Getopt::Long; my ($sample1,$sample2); GetOptions( "sample1:s" => \$sample1, "sample2:s" => \$sample2 ); if (!defined $sample1) { die "Error : samlpe1 missing\n"; } if (!defined $sample2) { die "Error : samlpe2 missing\n"; } #create R file instructions file my $routfile = "$sample1\_$sample2.R"; open (ROUT,">$routfile")or die "\nError : $routfile file could not be created: $!\n"; print ROUT qq( m <- read.table ("$sample1\") p <- read.table ("$sample2\") res <- numeric(ncol(m)) for(i in 1:ncol(m)) res[i] <- var.test(m[,i] , p[,i])\$p.value res ); close ROUT; #create qsub file my $qsuboutfile = "$sample1\_$sample2.qsub"; open (QSUB,">$qsuboutfile")or die "\nError : $qsuboutfile file could not be created: $!\n"; print QSUB qq(#!/bin/bash #\$ -S /bin/bash #\$ -V #\$ -m ea #\$ -o $qsuboutfile.out #\$ -e $qsuboutfile.err #\$ -cwd #\$ -q short.q #\$ -pe thread 3 # command(s): R CMD BATCH $routfile ); close QSUB;
Partager