レポート内のオブジェクトにメッセージを送信したい場合を考えてみましょう。たとえば、「モデルのあてはめ」で、プロファイルのオブジェクトにResponse Limits(応答変数の限界)メッセージを送りたい場合は、添え字演算子([ ])を用いることで、プロファイルオブジェクトを参照します。
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
fm = dt << Fit Model(
Y( :"身長(インチ)"n),
Effects( :年齢, :性別, :"体重(ポンド)"n, :年齢 * :"体重(ポンド)"n, :性別 * :"体重(ポンド)"n ),
Personality( Standard Least Squares ),
Emphasis( Effect Screening ),
Run
);
obj = fm << Profiler(
1,
Confidence Intervals( 1 ),
Desirability Functions( 1 ),
Term Value( :年齢( 12 ), :性別( "F" ), :"体重(ポンド)"n ( 105 ) )
);
Show( Profiler[1] << Get Desirability ); // 満足度の設定を事前に表示する
Profiler[1] << ( "身長(インチ)"n << Response Limits(
{Lower( 50, 0.95 ), Middle( 58, 0.7 ), Upper( 70, 0.066 ),
Goal( "最小化" ), Importance( 1 )}
));
Wait( 0.1 ); // デモンストレーション用
Show( Profiler[1] << Get Desirability ); // 再度満足度の設定を表示する