my $command = q`a<-read.table("/usr/local/projects/file")`;
print "Running [$command]\n";
$R->send($command);