Package org.rosuda.REngine.Rserve

Examples of org.rosuda.REngine.Rserve.RConnection.eval()

412
413
414
415
416
417
418
419
420
421
422
            "pvalue <- cdoutput$p.value}";
      }
     
      rConnection.eval(script);
      result.pvalue = rConnection.eval("pvalue").asDouble();
      result.statistic = rConnection.eval("statistic").asDouble();
     
    }
   
    catch (Exception e)
    {
View Full Code Here
470
471
472
473
474
475
476
477
478
479
480
      rConnection.assign("x", dataX);
      rConnection.assign("y", dataY);
      rConnection.assign("deg", new int[]{polynomialDegree});

      // Perform the calculation
      rConnection.eval(script);

      // option to draw the plot, regression line and store the image
      /*
      rConnection.assign(".tmp.", docrootPath + rFolderName + "/Linear_Regression.jpg");
      rConnection.eval("jpeg(.tmp.)");
View Full Code Here
482
483
484
485
486
487
488
489
490
491
492
      rConnection.eval("abline(fit)");
      rConnection.eval("dev.off()");
       */

      // Get the data from R
      result.coefficients = rConnection.eval("coef").asDoubles();
      result.rSquared = rConnection.eval("rSquared").asDouble();
    }
    catch (Exception e)
    {
      e.printStackTrace();
View Full Code Here
483
484
485
486
487
488
489
490
491
492
493
      rConnection.eval("dev.off()");
       */

      // Get the data from R
      result.coefficients = rConnection.eval("coef").asDoubles();
      result.rSquared = rConnection.eval("rSquared").asDouble();
    }
    catch (Exception e)
    {
      e.printStackTrace();
      throw new RemoteException("Unable to run R regression script", e);
View Full Code Here
547
548
549
550
551
552
553
554
555
556
557
        }
        double[] value = ListUtils.copyDoubleArray(inputValues[i], new double[inputValues[i].length]);
        rConnection.assign(name, value); 
   
      }
      evalValue = rConnection.eval("data.frame(" + names + ")"); // NOT SAFE - script was built using user-specified strings
   
      rConnection.assign("frame",evalValue);
      rConnection.assign("clusternumber", noOfClusters);
      rConnection.assign("iterations",iterationNumber);
View Full Code Here
665
666
667
668
669
670
671
672
673
674
675
          rConnection.assign("method", agglomerationMethod[j]);
        }
      }

      // Performing the calculations
      rConnection.eval("dataframe1 <- data.frame(x,y)");
      rConnection.eval("HCluster <- hclust(d = dist(dataframe1), method)");

      // option for drawing the hierarchical tree and storing the image
      rConnection.assign(".tmp.", docrootPath + rFolderName + "/Hierarchical_Clustering.jpg");
      rConnection.eval("jpeg(.tmp.)");
View Full Code Here
666
667
668
669
670
671
672
673
674
675
676
        }
      }

      // Performing the calculations
      rConnection.eval("dataframe1 <- data.frame(x,y)");
      rConnection.eval("HCluster <- hclust(d = dist(dataframe1), method)");

      // option for drawing the hierarchical tree and storing the image
      rConnection.assign(".tmp.", docrootPath + rFolderName + "/Hierarchical_Clustering.jpg");
      rConnection.eval("jpeg(.tmp.)");
      rConnection.eval("plot(HCluster, main = \"Hierarchical Clustering\")");
View Full Code Here
670
671
672
673
674
675
676
677
678
679
680
      rConnection.eval("dataframe1 <- data.frame(x,y)");
      rConnection.eval("HCluster <- hclust(d = dist(dataframe1), method)");

      // option for drawing the hierarchical tree and storing the image
      rConnection.assign(".tmp.", docrootPath + rFolderName + "/Hierarchical_Clustering.jpg");
      rConnection.eval("jpeg(.tmp.)");
      rConnection.eval("plot(HCluster, main = \"Hierarchical Clustering\")");
      rConnection.eval("dev.off()");

      // Get the data from R
      hclresult.setClusterSequence(rConnection.eval("HCluster$merge").asDoubleMatrix());
View Full Code Here
671
672
673
674
675
676
677
678
679
680
681
      rConnection.eval("HCluster <- hclust(d = dist(dataframe1), method)");

      // option for drawing the hierarchical tree and storing the image
      rConnection.assign(".tmp.", docrootPath + rFolderName + "/Hierarchical_Clustering.jpg");
      rConnection.eval("jpeg(.tmp.)");
      rConnection.eval("plot(HCluster, main = \"Hierarchical Clustering\")");
      rConnection.eval("dev.off()");

      // Get the data from R
      hclresult.setClusterSequence(rConnection.eval("HCluster$merge").asDoubleMatrix());
      hclresult.setClusterMethod(rConnection.eval("HCluster$method").asStrings());
View Full Code Here
672
673
674
675
676
677
678
679
680
681
682
      // option for drawing the hierarchical tree and storing the image
      rConnection.assign(".tmp.", docrootPath + rFolderName + "/Hierarchical_Clustering.jpg");
      rConnection.eval("jpeg(.tmp.)");
      rConnection.eval("plot(HCluster, main = \"Hierarchical Clustering\")");
      rConnection.eval("dev.off()");

      // Get the data from R
      hclresult.setClusterSequence(rConnection.eval("HCluster$merge").asDoubleMatrix());
      hclresult.setClusterMethod(rConnection.eval("HCluster$method").asStrings());
      // hclresult.setClusterLabels(rConnection.eval("HCluster$labels").asStrings());
View Full Code Here
TOP
Copyright © 2018 www.massapi.com. All rights reserved.
All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.