レポート内のオブジェクトにメッセージを送信したい場合を考えてみましょう。たとえば、「モデルのあてはめ」で、プロファイルのオブジェクトにResponse Limits(応答変数の限界)メッセージを送りたい場合は、サブスクリプト演算子([ ])を使用して、プロファイルオブジェクトを参照します。
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
fm = dt << Fit Model(
Y( :Name("身長(インチ)")),
Effects( :年齢, :性別, :Name("体重(ポンド)"), :年齢 * :Name("体重(ポンド)"), :性別 * :Name("体重(ポンド)") ),
Personality( Standard Least Squares ),
Emphasis( Effect Screening ),
Run
);
obj = fm << Profiler(
1,
Confidence Intervals( 1 ),
Desirability Functions( 1 ),
Term Value( :年齢( 12 ), :性別( "F" ), :Name("体重(ポンド)") ( 105 ) )
);
Show( Profiler[1] << Get Desirability ); // 満足度の設定を事前に表示する
Profiler[1] << ( :Name("身長(インチ)") << 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 ); // 再度満足度の設定を表示する