9632_zh-CN

liliconcom

编写量表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 )
    );
 
)
)