use strict;
use warnings;
use Statistics::R;

my $data = 
"Subj	Cond	Count
subj1    high    13
subj1    low     15
subj2    high    12
subj2    low     15
subj3    high    16
subj3    low     17
subj4    high    11
subj4    low     18
";

my $R = Statistics::R->new();
$R->startR;
#$R->send(qq`data = scan()\n$data\n\n`);

#my $r_output = $R->read;
#print $r_output . "\n";

$R->stopR();