編寫量表R＆R研究的腳本JMP 9
我想編寫一個涉及多個變量的Gauge R＆R研究，而不是使用Chart-> Variabliity / Gauge Chart平台多次使用紅色三角形下拉菜單。
如果手動執行分析，並從紅色三角形下拉菜單項Gauge Studies / Gauge RR中選擇，則會出現兩個對話框，一個用於詢問設計是否已交叉或嵌套（我的是否已交叉），另一個對話框為要求Gauge R＆R規格。
當我創建一個腳本來對所有Y變量執行此任務時，第一個對話框沒有出現，但我無法弄清楚如何不顯示第二個對話框，無論我做什麼，它總是出現。如果您知道如何更改腳本以便不再顯示第二個對話框，請告訴我。
這是我的腳本：
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 kigma上的第1項。
我想獲得5 sigma上的所有項目。誰可以給我建議？
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個因素交叉”並添加了一個名為MyY的列，其公式為隨機正態均值0 var 1。下面的代碼將輸出堆疊在一個窗口中，用於所選的所有Y列。如果省略New Window包裝器，則每個Y列都有自己的窗口。假設每個允許列都具有為“Spec Limits”屬性輸入的值。
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 )
);
)
)
