Package org.rosuda.REngine.Rserve

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

551
552
553
554
555
556
557
558
559
560
561
      }
      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);

     
      //String script = "Clus <- kmeans(frame, "+numberOfClusters+","+iterations+")";
     
//    String clusteringScript = "Clustering <- function(dframe, clusternumber, iterations)\n" +
View Full Code Here
652
653
654
655
656
657
658
659
660
661
662
      agglomerationMethod[5] = "median";
      agglomerationMethod[6] = "mcquitty";
      String agglomerationMethodType = new String("ward");
     
      // Push the data to R
      rConnection.assign("x", dataX);
      rConnection.assign("y", dataY);

      // checking for user method match
      for (int j = 0; j < agglomerationMethod.length; j++)
      {
View Full Code Here
653
654
655
656
657
658
659
660
661
662
663
      agglomerationMethod[6] = "mcquitty";
      String agglomerationMethodType = new String("ward");
     
      // Push the data to R
      rConnection.assign("x", dataX);
      rConnection.assign("y", dataY);

      // checking for user method match
      for (int j = 0; j < agglomerationMethod.length; j++)
      {
        if (agglomerationMethod[j].equals(agglomerationMethodType))
View Full Code Here
660
661
662
663
664
665
666
667
668
669
670
      // checking for user method match
      for (int j = 0; j < agglomerationMethod.length; j++)
      {
        if (agglomerationMethod[j].equals(agglomerationMethodType))
        {
          rConnection.assign("method", agglomerationMethod[j]);
        }
      }

      // Performing the calculations
      rConnection.eval("dataframe1 <- data.frame(x,y)");
View Full Code Here
669
670
671
672
673
674
675
676
677
678
679
      // 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\")");
      rConnection.eval("dev.off()");

      // Get the data from R
View Full Code Here
719
720
721
722
723
724
725
726
727
728
729
          names = names + "," + name;}
        else{
          names = name;
        }
        double[] value = ListUtils.copyDoubleArray(inputValues[i], new double[inputValues[i].length]);
        rConnection.assign(name, value); 
      }
     
      evalValue = rConnection.eval("Bind <- cbind(" + names + ")"); // NOT SAFE - bindingInput was built with string concat using user-specified strings
     
      //Built in script
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.