#!/usr/bin/perl

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

my(@data) = <DATA>;

my $R = Statistics::R->new();
$R->start_sharedR;
$R->send(qq`x = @data \n print(x)`);

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

$R->stopR;

__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"