~
import org.rosuda.JRI.REXP;
import org.rosuda.JRI.Rengine;
~
public static void main(String[] args) {
Rengine engine = new Rengine(new String[] { "--no-save" }, false, null);
// dataframe作成
engine.eval("dataframe <- data.frame(\"group1\"=c(100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,136,127,128,160,158,158,159,159,158,157,156,155))");
// ここでは7が返ってくる。
engine.eval("getOption(\"digits\")");
engine.eval("options(digits=5)");
// ここでは5が返ってくる。
engine.eval("getOption(\"digits\")");
// ★取得結果の桁数がRGUIを実行した際と異なる。
REXP result = engine.eval("t.test(dataframe$group1, mu=150, alternative=\"less\", data=dataframe)");
}
~
import org.rosuda.JRI.REXP;
import org.rosuda.JRI.Rengine;
~
public static void main(String[] args) {
Rengine engine = new Rengine(new String[] { "--no-save" }, false, null);
// dataframe作成
engine.eval("dataframe <- data.frame(\"group1\"=c(100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,136,127,128,160,158,158,159,159,158,157,156,155))");
// ここでは7が返ってくる。
engine.eval("getOption(\"digits\")");
engine.eval("options(digits=5)");
// ここでは5が返ってくる。
engine.eval("getOption(\"digits\")");
// ★取得結果の桁数がRGUIを実行した際と異なる。
REXP result = engine.eval("t.test(dataframe$group1, mu=150, alternative=\"less\", data=dataframe)");
}