#!/usr/bin/perl

use strict;
use warnings;
use R::Writer;

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

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use R::Writer;

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