Select Code to Download

my $data = 
"subj1    high    13
subj1    low     15
...
R->send(qq`names(data) <- c("Subj","Cond","Count")`);
R->send(qq`attach(data)`);
R->send(qq`$Cond <- as.factor($Cond)`);