次のプログラム例は、R接続を開始し、データテーブルをRに送り、それをログに印刷し、最後にR接続を閉じます。
R Init();
dt = Open( "$SAMPLE_DATA/Big Class.jmp", invisible );
R Send( dt ); // dtという開いたデータテーブルをRに送る
R Submit( "print( dt )" );
R Term();
次のプログラム例は、R接続を開始し、Rオブジェクトを作成し、そのオブジェクトをJMPで取得し、最後にR接続を閉じます。
R Init();
R Submit(
"
L3 <- LETTERS[1:3]
d <- data.frame(cbind(x=1, y=1:15), Group=sample(L3, 15, repl=TRUE))
"
);
R Get( d ) << NewDataView;
R Term();
次のプログラム例は、R接続を開始し、Rにおいて正規密度関数のグラフを描きます。次に、そのグラフのイメージをRから取得して、JMPで表示します。最後に、R接続を閉じます。
R Init();
R Submit( "\[plot(function(x) dnorm(x), -5, 5, main = "Normal(0,1) Density") ]\" );
picture = R Get Graphics( "png" );
New Window( "Picture", picture );
Wait( 10 );
R Term();
次のプログラム例は、R接続を開始し、まず、1つの行列をJMPからRに送ります。次に、Rで、もう1つの行列を作成します。そして、この2つの行列を足し合わせた行列をJMPに送り、最後にR接続を閉じます。
R Init();
X = J( 2, 2, 1 );
R Send( X );
R Submit(
"
X #Xをログに印刷する
Y <- matrix(1:4, nrow=2, byrow=TRUE) #2x2の行列オブジェクトYを作成する
Y #Yをログに印刷する
Z <- X + Y #行列オブジェクトZはXとYを1つにしたもの
"
);
Z = R Get( Z );
R Term();
Show( Z );
Rを用いたブートストラップの例として、サンプルスクリプトフォルダにあるJMPtoR_bootstrap.jslをご覧ください。
このスクリプトは、Rのライブラリを利用して、JMPにおいてブートストラップを実行します。
このスクリプトは、まずユーザに対し、分析対象の変数を指定するためのウィンドウを、JMPにおいて表示します。このウィンドウで、信頼区間を求めたい統計量も選択します。その後、JSLのRインターフェースを使って、データがRに送られます。
そして、Rのbootパッケージにおけるboot()関数およびboot.ci()関数によって、各ブートストラップ標本の統計量とブートストラップ信頼区間が計算されます。
結果はJMPに戻され、JMPの「一変量の分布」プラットフォームを使って表示されます。