Re: Entire Results from R

[haukex]

Your use of $R->set() is incorrect: to set multiple values, you have to pass an arrayref: $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"] ); Then the code works for me.

[kevbot]

++haukex I put together a short script to confirm that your solution works (I was curious about Statistics::R since I had not used it before). This code,

#!/usr/bin/env perl

use Statistics::R;
use Data::Dumper;

# Create a communication bridge with R and start R
my $R = Statistics::R->new();

$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);

exit;

Gives this output,

$VAR1 = [
          [
            '[1]',
            '-34',
            '-7',
            '-33',
            '-17',
            '-37'
          ]
        ];

[haukex]

Thanks for the example! I also submitted a pull request that adds a "too many arguments" error to ->set.