-
Notifications
You must be signed in to change notification settings - Fork 40
Expand file tree
/
Copy pathMultipleCalls.java
More file actions
49 lines (35 loc) · 1.45 KB
/
MultipleCalls.java
File metadata and controls
49 lines (35 loc) · 1.45 KB
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
// Fixes the bug reported in
// http://stackoverflow.com/questions/24167677/rcaller-2-2-and-2-3-do-not-stop-in-sequential-command-mode-with-runandreturnresu/24170648#24170648
// by the RCaller version 2.4
package examples;
import com.github.rcaller.rstuff.RCaller;
import com.github.rcaller.rstuff.RCode;
/**
* This example shows how RCaller run multiple sequential commands
* using a single R instance.
*/
public class MultipleCalls {
public static void main(String[] args) {
RCaller rcaller = RCaller.create();
RCode code = RCode.create();
code.addDoubleArray("x", new double[]{1.0, 2.0, 3.0, 4.0, 50.0});
code.addRCode("result <- mean(x)");
rcaller.setRCode(code);
System.out.println("Running R");
rcaller.runAndReturnResultOnline("result");
double mean = rcaller.getParser().getAsDoubleArray("result")[0];
System.out.println("mean: " + mean);
code.clear();
code.addRCode("result <- sd(x)");
rcaller.runAndReturnResultOnline("result");
double sd = rcaller.getParser().getAsDoubleArray("result")[0];
System.out.println("sd: " + sd);
code.clear();
code.addRCode("result <- mad(x)");
rcaller.runAndReturnResultOnline("result");
double mad = rcaller.getParser().getAsDoubleArray("result")[0];
System.out.println("mad: " + mad);
rcaller.stopStreamConsumers();
rcaller.stopRCallerOnline();
}
}