PHP Rserve_Connection::evalString 예제들

예제 #1

파일: LoginTest.php 프로젝트: cturbelin/rserve-php

 public function testLogin()
 {
     $cnx = new Rserve_Connection(RSERVE_HOST, RSERVE_PORT, array('username' => RSERVE_USER, 'password' => RSERVE_PASS));
     // random id
     $random = '';
     for ($i = 0; $i < 10; ++$i) {
         $random .= dechex(mt_rand());
     }
     $random_id = uniqid($random, TRUE);
     $r = $cnx->evalString('x="' . $random_id . '"');
     $this->assertEquals($r, $random_id);
     $session = $cnx->detachSession();
 }

예제 #2

파일: SessionTest.php 프로젝트: cturbelin/rserve-php

 public function testSession()
 {
     $cnx = new Rserve_Connection(RSERVE_HOST);
     // random id
     $random = '';
     for ($i = 0; $i < 10; ++$i) {
         $random .= dechex(mt_rand());
     }
     $random_id = uniqid($random, TRUE);
     $r = $cnx->evalString('x="' . $random_id . '"');
     $this->assertEquals($r, $random_id);
     $session = $cnx->detachSession();
     $cnx = new Rserve_Connection($session);
     $x = $cnx->evalString('x');
     $this->assertEquals($x, $random_id);
 }

예제 #3

파일: exercicio.php 프로젝트: adalardo/notaR

     if ($teste === FALSE) {
         # Verifica se existe alguma palavra proibida na resposta
         try {
             $r = new Rserve_Connection(RSERVE_HOST);
         } catch (Exception $e) {
             echo 'Erro interno ao conectar no servidor. Notifique os administradores do sistema!<br>';
             if (error_reporting() & E_ERROR) {
                 echo $e;
             }
         }
         try {
             $text = 'source("' . $BASEDIR . '/corretor.R");';
             $text .= 'con <- connect("' . $DBUSER . '","' . $DBPASS . '","' . $DBNAME . '");';
             $text .= 'PATH <- "' . $BASEDIR . '";';
             $text .= 'notaR("' . $USER->getNome() . '", ' . $X->getId() . ', "' . $uploadfile . '")';
             $x = $r->evalString($text);
             if (is_null($x)) {
                 echo "<font color='#8c2618'>Aviso: seu c&oacute;digo cont&eacute;m alguma " . "funcionalidade do R n&atilde;o suportada pelo notaR. Remova as fun&ccedil;&otilde;es " . "gr&aacute;ficas (como <i>plot</i> ou <i>hist</i>) do seu c&oacute;digo e tente novamente.</font>";
             }
             echo $x;
             echo "<p>Seu c&oacute;digo:</p><p class='code'>" . nl2br($conts) . "</p>";
         } catch (Exception $e) {
             echo 'Erro interno ao executar o corretor. Verifique se as pre-condi&ccedil;&otilde;es executam.';
             if (error_reporting() & E_ERROR) {
                 echo $e;
             }
         }
     } else {
         echo "<font color='#8c2618'>AVISO! O arquivo enviado n&atilde;o pode conter a(s) palavra(s) \"{$teste}\". Corrija essa condi&ccedil;&atilde;o e tente novamente.</font>";
     }
 }

예제 #4

파일: index.php 프로젝트: vinod-co/centa

<?php

/**
* Rserve-php example
*/
require_once 'config.php';
require '../Connection.php';
try {
    echo 'Connecting to Rserve ' . RSERVE_HOST;
    $r = new Rserve_Connection(RSERVE_HOST);
    $x = $r->evalString('a=rpois(100,100); b=rpois(100,100)');
    var_dump($x);
    $x = $r->evalString('chisq.test(table(a,b))', Rserve_Connection::PARSER_REXP);
    echo '<style>' . file_get_contents('rexp.css') . '</style>';
    echo $x->toHTML();
    $r->close();
} catch (Exception $e) {
    echo $e;
}

예제 #5

파일: index.php 프로젝트: wuya6878/rserve-php

        echo '<h4>' . $title . '</h4>';
    }
    echo '<pre>';
    var_dump($x);
    echo '</pre>';
}
try {
    echo '<div id="tab_0" class="tab">';
    echo '<p>Connecting to Rserve ' . RSERVE_HOST;
    $r = new Rserve_Connection(RSERVE_HOST);
    echo ' OK</p>';
    echo '<p>Use the above menu to see results for various results using each kind of parser</p>';
    echo '</div>';
    echo '<div id="tab_1" class="tab">';
    echo '<h2>Chi2</h2>';
    $x = $r->evalString('a=rpois(100,100); b=rpois(100,100); list(a,b)');
    //mydump($x);
    $x = $r->evalString('chisq.test(table(a,b))', Rserve_Connection::PARSER_REXP);
    echo $x->toHTML();
    echo '</div>';
    $parsers = array(Rserve_Connection::PARSER_NATIVE => 'native ', Rserve_Connection::PARSER_NATIVE_WRAPPED => ' wrapped native (RNative)', Rserve_Connection::PARSER_DEBUG => 'Parser Debug', Rserve_Connection::PARSER_REXP => 'REXP');
    $i = 1;
    foreach ($parsers as $parser => $title) {
        ++$i;
        echo '<div id="tab_' . $i . '" class="tab">';
        echo '<h2>Test Cases / ' . $title . '</h2>';
        foreach ($test_cases as $test) {
            $cmd = $test[0];
            echo '<div class="rcmd">&gt; ' . $cmd . '</div>';
            $x = $r->evalString($cmd, $parser);
            echo '<div class="vardump">';