PHP RCaller示例

示例#1

文件： RCodeTest.php 项目： Jaccobi/rcaller

function TestRCaller1()
{
    $rcaller = new RCaller();
    $rcaller->setRscriptExecutable("/usr/bin/Rscript");
    $rcode = new RCode("");
    $rcode->clear();
    $rcode->addRCode("mylist <- list(x=1:3, y=c(7,8,9))");
    $rcaller->setRCode($rcode);
    $rcaller->runAndReturnResult("mylist");
    $x = $rcaller->getParser()->getAsStringArray("x");
    $y = $rcaller->getParser()->getAsStringArray("y");
    test("getting x", $x, array(1, 2, 3));
    test("getting y", $y, array(7, 8, 9));
}

示例#2

文件： PlotTest.php 项目： Jaccobi/rcaller

<?php

require_once "../RCode.php";
require_once "../RCaller.php";
require_once "simpletest.php";
$caller = new RCaller();
$code = new RCode("");
$plot = $code->startPlot();
$code->addRCode("plot.ts(rnorm(10))");
$code->endPlot();
$caller->setRscriptExecutable("/usr/bin/Rscript");
$caller->setRCode($code);
$caller->runOnly();
print $caller->getPlot($plot);