Subject: | Bug report |
Date: | Tue, 28 Feb 2012 16:46:25 -0800 |
To: | bug-Statistics-R [...] rt.cpan.org |
From: | Julien Tremblay <jtremblay [...] lbl.gov> |
Dear Statistics::R maintainer(s),
I just want to report a bug I've been experiencing. Here is a code snippet.
foreach (@infile){
next if(!-e $_);
$R->send("data_".$counter." <- read.table('".$_."', sep='\t', header=F,
skip=1)");
$R->send("mySum_".$counter." <- NULL");
$R->send("mySum_".$counter."\$stats <- t(data_".$counter."[,11])");
$R->send("mySum_".$counter."\$stats <-
(rbind(mySum_".$counter."\$stats, data_".$counter."[,7]))");
$R->send("mySum_".$counter."\$stats <-
(rbind(mySum_".$counter."\$stats, data_".$counter."[,8]))");
$R->send("mySum_".$counter."\$stats <-
(rbind(mySum_".$counter."\$stats, data_".$counter."[,9]))");
$R->send("mySum_".$counter."\$stats <-
(rbind(mySum_".$counter."\$stats, data_".$counter."[,12]))");
$counter++;
#and then generate plot string.
}
Really often the script will just hang and I have to ctrl-C to exit. To fix
it I placed sleep(1); commands between each $R->send commands...
Thanks!
Julien
Julien Tremblay, PhD
Postdoctoral research fellow
Computational biology
DOE-Joint Genome Institute
2800 Mitchell Drive
Walnut Creek, CA 94598
Office: (925) 296-5732
Fax: (925) 296-5620
jtremblay@lbl.gov