57744_es-ES

liliconcom

Secuencias de comandos para un indicador de R & R

El siguiente script JMP es para Gauge R&R 5 sigma
pero en mi Tabla de Variabilidad, siempre tengo un primer elemento que puedo configurar con éxito en Gauge RR 5 sigma.

no entiendo, por qué no puedo obtener todos los elementos de "y list" en 5 sigma.

¿alguien puede ayudarme?

 

 

rezults <SPAN class="token operator">=</SPAN> <SPAN class="token function">Column Dialog</SPAN><SPAN class="token punctuation">(</SPAN>
title<SPAN class="token punctuation">(</SPAN> <SPAN class="token string">"Select Columns For Gauge R&R Analysis"</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
yycol <SPAN class="token operator">=</SPAN> ColList<SPAN class="token punctuation">(</SPAN> <SPAN class="token string">"Y, Response"</SPAN><SPAN class="token punctuation">,</SPAN> Mincol<SPAN class="token punctuation">(</SPAN> <SPAN class="token number">1</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN> DataType<SPAN class="token punctuation">(</SPAN> Numeric <SPAN class="token punctuation">)</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
xxcol <SPAN class="token operator">=</SPAN> ColList<SPAN class="token punctuation">(</SPAN> <SPAN class="token string">"X, Factor"</SPAN><SPAN class="token punctuation">,</SPAN> Mincol<SPAN class="token punctuation">(</SPAN> <SPAN class="token number">1</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN> Modeling <SPAN class="token function">Type</SPAN><SPAN class="token punctuation">(</SPAN> Nominal <SPAN class="token punctuation">)</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
bbycol <SPAN class="token operator">=</SPAN> ColList<SPAN class="token punctuation">(</SPAN> <SPAN class="token string">"By"</SPAN> <SPAN class="token punctuation">)</SPAN>
<SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">;</SPAN>
ylist <SPAN class="token operator">=</SPAN> rezults<SPAN class="token punctuation">[</SPAN><SPAN class="token string">"yycol"</SPAN><SPAN class="token punctuation">]</SPAN><SPAN class="token punctuation">;</SPAN>
xlist <SPAN class="token operator">=</SPAN> rezults<SPAN class="token punctuation">[</SPAN><SPAN class="token string">"xxcol"</SPAN><SPAN class="token punctuation">]</SPAN><SPAN class="token punctuation">;</SPAN>
bbylist <SPAN class="token operator">=</SPAN> rezults<SPAN class="token punctuation">[</SPAN><SPAN class="token string">"bbycol"</SPAN><SPAN class="token punctuation">]</SPAN><SPAN class="token punctuation">;</SPAN>
N <SPAN class="token operator">=</SPAN> <SPAN class="token function">N Items</SPAN><SPAN class="token punctuation">(</SPAN> ylist <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">;</SPAN>
<SPAN class="token function">For</SPAN><SPAN class="token punctuation">(</SPAN> i <SPAN class="token operator">=</SPAN> <SPAN class="token number">1</SPAN><SPAN class="token punctuation">,</SPAN> i <SPAN class="token operator"><=</SPAN> N<SPAN class="token punctuation">,</SPAN> i<SPAN class="token operator">++</SPAN><SPAN class="token punctuation">,</SPAN>
s <SPAN class="token operator">=</SPAN> dt <SPAN class="token operator"><</SPAN><SPAN class="token operator"><</SPAN><SPAN class="token messages"> Get Property</SPAN><SPAN class="token punctuation">(</SPAN> <SPAN class="token string">"Spec Limits"</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">;</SPAN>
usl <SPAN class="token operator">=</SPAN> s<SPAN class="token punctuation">[</SPAN><SPAN class="token string">"USL"</SPAN><SPAN class="token punctuation">]</SPAN><SPAN class="token punctuation">;</SPAN>
lsl <SPAN class="token operator">=</SPAN> s<SPAN class="token punctuation">[</SPAN><SPAN class="token string">"LSL"</SPAN><SPAN class="token punctuation">]</SPAN><SPAN class="token punctuation">;</SPAN>
<SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">;</SPAN>
obj <SPAN class="token operator">=</SPAN> Variability Chart<SPAN class="token punctuation">(</SPAN>
Y<SPAN class="token punctuation">(</SPAN> <SPAN class="token function">Eval</SPAN><SPAN class="token punctuation">(</SPAN> ylist <SPAN class="token punctuation">)</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
X<SPAN class="token punctuation">(</SPAN> <SPAN class="token function">Eval</SPAN><SPAN class="token punctuation">(</SPAN> xlist <SPAN class="token punctuation">)</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
By<SPAN class="token punctuation">(</SPAN> <SPAN class="token function">Eval</SPAN><SPAN class="token punctuation">(</SPAN> bbylist <SPAN class="token punctuation">)</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
Model<SPAN class="token punctuation">(</SPAN> <SPAN class="token string">"Main Effect"</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
Max Iter<SPAN class="token punctuation">(</SPAN> <SPAN class="token number">100</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
Conv Limit<SPAN class="token punctuation">(</SPAN> <SPAN class="token number">0.00000001</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
Number Integration Abscissas<SPAN class="token punctuation">(</SPAN> <SPAN class="token number">128</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
Number Function Evals<SPAN class="token punctuation">(</SPAN> <SPAN class="token number">65536</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
Analysis <SPAN class="token function">Type</SPAN><SPAN class="token punctuation">(</SPAN> <SPAN class="token string">"Choose best analysis (EMS REML)"</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
Historical <SPAN class="token function">Mean</SPAN><SPAN class="token punctuation">(</SPAN> <SPAN class="token number">0</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
Historical Sigma<SPAN class="token punctuation">(</SPAN> <SPAN class="token number">0</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
<SPAN class="token comment">//Process Variation( 0 ),</SPAN>
Std Dev Chart<SPAN class="token punctuation">(</SPAN> <SPAN class="token number">0</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN>
<SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">;</SPAN>
obj <SPAN class="token operator"><</SPAN><SPAN class="token operator"><</SPAN><SPAN class="token messages"> Gauge RR</SPAN><SPAN class="token punctuation">(</SPAN> <SPAN class="token number">5</SPAN><SPAN class="token punctuation">,</SPAN> usl <SPAN class="token operator">-</SPAN> lsl<SPAN class="token punctuation">,</SPAN> lsl<SPAN class="token punctuation">,</SPAN> usl <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">;</SPAN>

 

Re: Scripting a Gauge R & R problemaIncreíble y funciona.
gracias por compartir.
Re: Scripting a Gauge R & R problema

Ignora la versión original de esta respuesta. Voy a ir con el 'era antes de mi excusa de café de la mañana'.

 

Prueba esto.  Unas correcciones de pareja. El s, lsl, usl no se almacenaron en una lista en las publicaciones anteriores, por lo que los valores estaban obsoletos. arreglado aquí Utilicé inadvertidamente la "N" como parámetro de iteración en lugar de i. Arreglado aquí Definitivamente revisa esto haciendo lo que quieres.

 

//clear log();
namespace("here")<<REMOVE></REMOVE>

 

Re: Scripting a Gauge R & R problema

gracias por su respuesta,

 

pero todavía me encuentro con el problema aquí

después de que ejecuté el guión, entonces obtuve la variabilidad de la tabla Gauge luego

El primer elemento en Gauge R&R => puede mostrar 5K en el gráfico de VC. es correcto

pero el segundo elemento en el resultado de Gauge R&R => muestra "6K" en el gráfico de VC.

Quiero que todos los artículos de la lista sean 5K en Guage R&R

@mikedriscoll ¿Tienes alguna idea mejor aquí?

 

Re: Scripting a Gauge R & R problema

Aquí está la re-escritura. Si por ninguna otra razón, la función de recuperación hace que las cosas sean más fáciles de depurar.

Edición: No utilice esta versión. Hay problemas con las variables s, lsl y usl que son obsoletas y tampoco aborda el problema del OP.

 

//clear log();
namespace("here")<<remove(namespace("here")<<getkeys);
names default to here(1);
dt = current data table();

showErrorMsg = expr(New Window("Must select at least one column...",<<Modal, textBox("Must select at least one column in Y and X roles.               "),
ButtonBox("OK")));

//grrFunction = Function({ylist, xlist, bbylist}, // pass GUI variables to locals here, downside is can't hover to observe values
grrFunction = Function({x}, // x not used here, just using the variables from the GUI and re-assinging to existing vars

 ylist = yParamNames;
 xlist = xParamNames;
 bbylist = byParamNames;

 N = N Items( ylist );
 For( i = 1, i <= N, i++,
  s = column(dt, ylist[i]) << 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 ); 

);

nw = new window("Select Columns For Gauge R&R Analysis",
 hlistbox( // horizontal list box
  cflObj = filter col selector(data table(dt << get name()), nlines(20)), //first item in hlist box
  
  panelbox( "Cast selected columns into roles",      // second item
   lineupbox(ncol(2),
     bb_y = buttonbox("Y, Response",
      newParams = cflObj << get selected;
      yColObj << append(newParams);
     ),
     yColObj = col list box(data table(dt << get name()),numeric,nlines(5), min items(1)),
     
     bb_x = buttonbox("X, Factor",
      newParams = cflObj << get selected;
      xColObj << append(newParams);
     ),
     xColObj = col list box(data table(dt << get name()),nlines(3), min items(1), <<Set Analysis Type(Nominal)),
     
     bb_by = buttonbox("By",
      newParams = cflObj << get selected;
      byColObj << append(newParams);
     ),
     byColObj = col list box(data table(dt << get name()),nlines(3))
   )// end lineupbox 
  )// end roles panel box
  ,
  panelbox("Actions",             // final item
   vlistbox(
    button box("Ok",
      yParamNames = yColObj << get items;
      xParamNames = xColObj << get items;
      byParamNames = byColObj << get items;
      
      if ( nitems(yParamNames) == 0 | nitems(xParamNames) == 0  ,
       showErrorMsg
      ,
       //else
       new namespace("recall_grr");
       recall_grr:yParamNames_rcl = yColObj << get items;
       recall_grr:xParamNames_rcl = xColObj << get items;
       recall_grr:byParamNames_rcl = byColObj << get items;
       nw << close window; 
       //grrFunction(yParamNames, xParamNames, byParamNames)  //pass to local
       grrFunction(1)  // use these 3 (above) vars directly without passing
      );

    ),
    button box("Remove", yColObj << remove selected; xColObj << remove selected; byColObj << remove selected),
    button box("Cancel", nw << close window),
    spacerbox(Size(1,80)),
    button box("Recall",
     try(yColObj << append(recall_grr:yParamNames_rcl));
     try(xColObj << append(recall_grr:xParamNames_rcl));
     try(byColObj << append(recall_grr:byParamNames_rcl));
     
    )
   )
  )//end actions panel box
 ) // end hlistbox
);//end new window nw

 

 

Re: Scripting a Gauge R & R problema

No tenías dt definido, pero supongo que lo habías definido por separado. Pero aun así, estabas usando este comando en el bucle:

s <SPAN class="token operator">=</SPAN> dt <SPAN class="token operator"><</SPAN><SPAN class="token operator"><</SPAN><SPAN class="token messages"> Get Property</SPAN><SPAN class="token punctuation">(</SPAN> <SPAN class="token string">"Spec Limits"</SPAN> <SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">;</SPAN>

Esto no funciona (asumiendo que dt es una tabla de datos) porque los límites de las especificaciones son una propiedad de una columna, no la tabla de datos. Vea a continuación cómo hacer referencia a la columna y acceder a la propiedad de límites de especificaciones. He añadido una dt = línea de datos actual () línea.

 

Además, el comando column dialog () está en desuso (creo) y reemplazado por el nuevo comando window () que usa una gran cantidad de cuadros de visualización que incluyen "filtro col ()", "col list box ()", y " caja de botones () ". Si estás empezando, podrías considerar cambiarte. Depende de usted, pero solo considere cambiar entre crear muchos scripts con características obsoletas.

 

dt = current data table();

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 = column(dt, ylist[N]) << 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 );