http://qs321.pair.com?node_id=1230285


in reply to Entire Results from R

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.

Replies are listed 'Best First'.
Re^2: Entire Results from R
by kevbot (Vicar) on Feb 22, 2019 at 06:36 UTC
    ++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;

    [download]
    Gives this output, 
    $VAR1 = [
          [
            '[1]',
            '-34',
            '-7',
            '-33',
            '-17',
            '-37'
          ]
        ];

    [download]
[reply]
[d/l]
[select]

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

[reply]
[d/l]

In Section Seekers of Perl Wisdom