Select Code to Download

use R;

...
&R::initR("--silent");
$x = &R::sum(1,2,3);
print "Sum = $x\n";

# Calculate HWE goodness-of-fit p-value
# Simply for readability of code passed to R
...
    #&R::call("print", $hwe);
}
return ( $hwe );

sub DESTROY {
     my $obj = $_[0];
...
     R::deleteRReference($_[0]);
     1;
 }