perlquestion
msanchez78
seeking the wisdom of the perl monks ...
<p>
within R i submit this code:
</p>
<code>
> data <- c("2016-03-15 13","2016-03-16 23","2016-03-17 06","2016-03-18 15","2016-03-19 08","2016-03-20 21")
> datevec <- strptime(data,"%Y-%m-%d %H")
> difftime(datevec[-length(datevec)],datevec[-1],units="hours")
</code>
which correctly produces this output:
<br>
Time differences in hours<br>
[1] -34 -7 -33 -17 -37
<br><br>
notice the two lines. now, in perl i have this code:<br>
<code>
$R->set( 'data', "2016-03-15 13","2016-03-16 23","2016-03-17 06","2016-03-18 15","2016-03-19 08","2016-03-20 21" );
$R->run( q`datevec <- strptime(data,"%Y-%m-%d %H")` );
$R->run( q`xx <- difftime(datevec[-length(datevec)],datevec[-1],units="hours")` );
@Rres = $R->get('xx');
print Dumper(\@Rres);
</code>
which correctly produces this result:<br>
<code>
$VAR1 = [
[
'Time',
'difference',
'of',
'hours'
]
];
</code>
<p>the problem is that no matter what i do i cannot get to the second output line from R ... the line [1] -34 -7 -33 -17 -37</p>
any suggestion on how i can get to the second (and in many cases n-number) of subsequent output lines from R? thanks!