OK, I figured it out. For anyone interested, the solution is to change:
$R->send(qq`x <- c(1,2,3) \n shapiro.test (x)`);
to
$R->send(qq`x <- c(1,2,3) \n out <- shapiro.test (x) \n print (out)`);
Which then gives you the result as it should.
--
Robin <[EMAIL PROTECTED]> JabberID: <[EMAIL PROTECTED
Hi, I have the following test script:
-
#!/usr/bin/perl
use warnings;
use strict;
use Statistics::R;
my $R = Statistics::R->new();
$R->startR;
$R->send(qq`x <- c(1,2,3) \n print (x)`);
my $ret = $R->read;
print "Result: $ret\n";
$R->send(qq`x <- c(1,2,3) \
On Sun, 27 Mar 2005 16:35:20 -0600, Luis N <[EMAIL PROTECTED]> wrote:
> What do you suppose this could be about?
>
> This is perl, v5.8.5 built for i386-freebsd-64int
>
> main::(-e:1): 42
> DB<1> use Statistics::R ;
>
> DB<2> $R->startR ;
>
What do you suppose this could be about?
This is perl, v5.8.5 built for i386-freebsd-64int
main::(-e:1): 42
DB<1> use Statistics::R ;
DB<2> $R->startR ;
Can't call method "startR" on an undefined value at (eval
10)[/usr/local/lib/perl5/5.8.5/perl5db.pl:620]
