1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| package info.Rcaller;
import rcaller.RCaller;
import rcaller.RCode;
public class Essai_fichierR {
public static void main(String[] args)
{
RCaller caller = new RCaller();
RCode code = new RCode();
caller.setRscriptExecutable("C:\\Program Files\\R\\R-3.1.2\\bin\\Rscript.exe");
code.addRCode("library(Rcpp)");
String path="C:\\Users\\monia_pc\\workspace_memoire\\logabs2.cpp";
code.addRCode("sourceCpp("+path+")");
code.addRCode("lg<- logabs2(seq(-5, 5 , by=2))");
caller.setRCode(code);
caller.runAndReturnResult("lg");
double mad = caller.getParser().getAsDoubleArray("lg")[0];
System.out.println("mad: " + mad);
}
} |
Partager