examples.Main Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of RCaller Show documentation
http://www.mhsatman.com
There is a newer version: 4.0.2
/*
 *
RCaller, A solution for calling R from Java
Copyright (C) 2010,2011  Mehmet Hakan Satman

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
the Free Software Foundation, either version 3 of the License, or
any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU Lesser General Public License
along with this program.  If not, see .
 *
 *
 * Mehmet Hakan Satman - [email protected]
 * http://www.mhsatman.com
 * Google code projec: https://github.com/jbytecode/rcaller
 *
 */
package examples;

import com.github.rcaller.rstuff.RCaller;
import com.github.rcaller.rstuff.RCode;

import java.io.File;
import java.util.logging.Level;
import java.util.logging.Logger;

/**
 *
 * @author Mehmet Hakan Satman
 */
public class Main {

  public Main() {
    try {
      RCaller rCaller = RCaller.create();
      RCode code = RCode.create();

      double[] x = new double[]{1, 2, 3, 4, 5};
      double[] y = new double[]{5, 7, 6, 10, 20};
      code.addDoubleArray("x", x);
      code.addDoubleArray("y", y);
      code.addRCode("ols<-lm(y~x)");
      code.addRCode("a<-ols$residuals");

      double[] tt = new double[100];
      for (int i = 0; i < tt.length; i++) {
        tt[i] = Math.random();
      }
      code.addDoubleArray("tt", tt);
      File f = code.startPlot();
      code.addRCode("pie(tt)");
      code.endPlot();

      rCaller.setRCode(code);
      rCaller.runAndReturnResult("ols");

      System.out.println("Names : " + rCaller.getParser().getNames());
      code.showPlot(f);
      double[] v = rCaller.getParser().getAsDoubleArray("fitted_values");
      for (double aV : v) {
        System.out.println(aV);
      }
    } catch (Exception e) {
      Logger.getLogger(Main.class.getName()).log(Level.SEVERE, e.getMessage());
    }
  }

  public static void main(String[] args) {
    new Main();
  }
}