R Init();

dt = Open( "$SAMPLE_DATA/Big Class.jmp", invisible );

R Send( dt ); // dtという開いたデータテーブルをRに送る

R Submit( "print( dt )" );

R Term();

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 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 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 );