ゲージR&RスタディのスクリプティングJMP 9
Chart-> Variabliity / Gauge Chartプラットフォームから赤い三角ドロップダウンメニューを複数回使用する代わりに、複数の変数を含むGauge R&Rスタディをスクリプト化したいと思います。
解析を手動で実行し、赤い三角形のドロップダウンメニュー項目[ゲージスタディ/ゲージRR]を選択すると、2つのダイアログボックスが表示されます。1つは、デザインが交差しているかネストしているかを示します。Gauge R&Rの仕様を要求します。
すべてのY変数に対してこのタスクを実行するスクリプトを作成すると、最初のダイアログボックスは表示されませんが、2番目のダイアログボックスが表示されないようにする方法がわかりません。2番目のダイアログボックスが表示されなくなるようにスクリプトを変更する方法がわかっている場合は、教えてください。
これが私のスクリプトです：
rezults = Column Dialog(
title( "Select Columns For Gauge R&R Analysis" ),
yycol = ColList( "Y, Response", Mincol( 1 ), DataType( Numeric ) ),
xxcol = ColList( "X, Factor", Mincol( 1 ), Modeling Type( Nominal ) ),
bbycol = ColList( "By" ));
ylist = rezults["yycol"];
xlist = rezults["xxcol"];
bbylist = rezults["bbycol"];
Variability Chart(
Y( eval(ylist) ),
X( eval(xlist) ),
By ( eval(bbylist) ),
Model( "Crossed" ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( Name( "Choose best analysis (EMS REML Bayesian)" ) ),
Historical Mean( 0 ),
Historical Sigma( 1 ),
Process Variation( 0 ),
Std Dev Chart( 0 ),
Gauge RR( 6, 0, 0, 0 ),
Gauge RR Report( 1 )
);
再：ゲージR&Rスタディのスクリプティング変動チャートは、5キログラムの最初の項目のみを表示します。
5シグマで全てのアイテムを手に入れたいです。誰が私に提案を与えることができますか？
rezults = Column Dialog(
title( "Select Columns For Gauge R&R Analysis" ),
yycol = ColList( "Y, Response", Mincol( 1 ), DataType( Numeric ) ),
xxcol = ColList( "X, Factor", Mincol( 1 ), Modeling Type( Nominal ) ),
bbycol = ColList( "By" )
);
ylist = rezults["yycol"];
xlist = rezults["xxcol"];
bbylist = rezults["bbycol"];
N = N Items( ylist );
For( i = 1, i <= N, i++,
s = dt << Get Property( "Spec Limits" );
usl = s["USL"];
lsl = s["LSL"];
);
obj = Variability Chart(
Y( Eval( ylist ) ),
X( Eval( xlist ) ),
By( Eval( bbylist ) ),
Model( "Main Effect" ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML)" ),
Historical Mean( 0 ),
Historical Sigma( 0 ),
//Process Variation( 0 ),
Std Dev Chart( 0 ),
);
obj << Gauge RR( 5, usl - lsl, lsl, usl );
再：ゲージR&Rスタディのスクリプティング次のようなものが役に立つかもしれません。サンプルデータセット "2 factor crossed"をプルアップし、MyYという名前の列に正規乱数正規平均0 var 1を追加しました。以下のコードは、選択されたすべてのY列について1つのウィンドウに出力を積み重ねます。New Windowラッパーを省略すると、Y列ごとに独自のウィンドウがあります。想定される各列には、「仕様制限」プロパティに入力された値があります。
nw = new window("Test Window",
rezults = Column Dialog(
title( "Select Columns For Gauge R&R Analysis" ),
yycol = ColList( "Y, Response", Mincol( 1 ), DataType( Numeric ) ),
xxcol = ColList( "X, Factor", Mincol( 1 ), Modeling Type( Nominal ) ),
bbycol = ColList( "By" ));
ylist = rezults["yycol"];
xlist = rezults["xxcol"];
bbylist = rezults["bbycol"];
N = NItems(ylist);
//show(ylist,xlist,bbylist);
//show(ylist[1],xlist[1]);
for(i=1,i<=N,i++,
specs = ylist << get property("Spec Limits");
usl = specs["USL"];
lsl = specs["LSL"];
//show(specs);
//show(usl);
//show(lsl);
//)
vc = Variability Chart(
Y( ylist),
X( :Operator, :part# ),
Model( "Crossed" ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( Name( "Choose best analysis (EMS REML Bayesian)" ) ),
Historical Sigma( 0 ),
Std Dev Chart( 1 ),
Gauge RR( 6, usl-lsl, lsl, usl ),
Gauge RR Report( 1 )
);
)
)
