Package org.rosuda.REngine.Rserve

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

675
676
677
678
679
680
681
682
683
684
685
      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());
      hclresult.setClusterDistanceMeasure(rConnection.eval("HCluster$dist.method").asStrings());

    }
View Full Code Here
676
677
678
679
680
681
682
683
684
685
686
      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());
      hclresult.setClusterDistanceMeasure(rConnection.eval("HCluster$dist.method").asStrings());

    }
    catch (Exception e)
View Full Code Here
678
679
680
681
682
683
684
685
686
687
688
      // 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());
      hclresult.setClusterDistanceMeasure(rConnection.eval("HCluster$dist.method").asStrings());

    }
    catch (Exception e)
    {
      e.printStackTrace();
View Full Code Here
722
723
724
725
726
727
728
729
730
731
732
        }
        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
      if(completeProcess = false)
      {
        script = "library(norm) \n pre <- prelim.norm(Bind)";
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.