9632_de-DE

liliconcom

Skripterstellung für eine Gauge R&R-Studie

JMP 9

 

Ich möchte eine Gauge R&R-Studie mit mehreren Variablen erstellen, anstatt die Dropdown-Menüs mit dem roten Dreieck auf der Plattform Chart->Variabliity/Gauge Chart mehrmals zu verwenden.

 

Wenn Sie die Analyse manuell durchführen und aus dem Dropdown-Menü mit dem roten Dreieck den Eintrag Pegelstudien/Pegel RR auswählen, erhalten Sie zwei Dialogfelder, eines, das Sie fragt, ob der Entwurf gekreuzt oder verschachtelt ist (meins ist gekreuzt), und ein zweites Dialogfeld, was fragt nach den Gauge R&R-Spezifikationen.

 

Wenn ich ein Skript erstelle, um diese Aufgabe für alle Y-Variablen auszuführen, wird das erste Dialogfeld nicht angezeigt, aber ich kann nicht herausfinden, wie das zweite Dialogfeld nicht angezeigt wird. Es wird immer angezeigt, egal was ich tue. Wenn Sie wissen, wie Sie das Skript so ändern können, dass das 2. Dialogfeld nicht mehr angezeigt wird, lassen Sie es mich bitte wissen.

 

Hier ist mein Skript:

 

 

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 )
);

 

Betreff: Skripterstellung für eine Messgerät-R&R-Studie

Die Variabilitätstabelle zeigt nur das 1. Element auf 5 Kigma.
Ich möchte alle Artikel auf 5 Sigma bekommen. Wer kann mir einen Vorschlag machen?

 

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 );

 

---

Betreff: Skripterstellung für eine Messgerät-R&R-Studie

Etwas wie das Folgende könnte hilfreich sein. Ich habe den Beispieldatensatz "2 Faktoren gekreuzt" aufgerufen und eine Spalte hinzugefügt, die ich MyY mit der Formel random normal mean 0 var 1 genannt habe. Der folgende Code stapelt die Ausgabe in einem Fenster für alle ausgewählten Y-Spalten. Wenn Sie den New Window-Wrapper weglassen, hätte jede Y-Spalte ihr eigenes Fenster. Es wird davon ausgegangen, dass in jede zulässige Spalte Werte für die Eigenschaft "Spezifikationsgrenzen" eingegeben wurden.

 

 

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 )
    );
 
)
)