Select Code to Download

#!/usr/bin/perl

...
my $R = R::Writer->new();
$R->var(y => $R->expression( 'a * x ^ 2' ));
print $R->as_string(), "\n";

#!/usr/bin/perl

...
$R->var(y => $R->expression( 'a * x ^ 2' ));
$R->call(c => \("x", "y"));
print $R->as_string(), "\n";