262302_it-IT

liliconcom

Rapporto GRR

Ciao,

 

Ho uno script per generare la trama GRR e quindi fare una tabella riassuntiva.  Il problema è che quando ho una combinazione di una specifica laterale e due laterale e utilizzo il comando "crea tabella dati combinati", mostrerà solo una specifica laterale o due specifica laterale in base al primo parametro.

 

Come posso ottenere la tabella riassuntiva di entrambi nello script?

 

 

 

new window ("GRR",
for (i = 1, i <= N items (ColList), i++,
  
 variability chart (
  Y ((ColList [i])),
  X (:Operators, :Parts),
  Model ("Crossed"),
  Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
  Show group means (1),
  Points Jittered( 1 ),
  AIAG Labels( 0 ),
  Show Box Plots( 1 ),
  Mean Diamonds( 1 ),
  Mean Plots( 1 ),
  Historical Sigma(0),
  Name( "Gauge R&R" )(5.15),
  Name( "Gauge R&R Report" )(1),
  Automatic Recalc( 1 ),
  )
);
);


temp = report (variability chart[1])["GaugeR&R"][table box(1)] << make combined data table; 


temp = report (variability chart[1])["GaugeR&R"][table box(1)] << make combined data table; 
temp << set name("GR&R summary");

data table ("GR&R summary") << select where (:Measurement Source != "Gauge R&R");
data table ("GR&R summary") << delete rows;

 

Ri: Rapporto GRR

Vorrei generare la tabella in questione dopo ogni grafico di variabilità, quindi concatenarlo a una tabella principale, quindi passare al grafico di variabilità successivo.  Qualcosa di simile a:

dtOut = New Data Table( "Guage R&R Summary" );

New Window( "GRR",
 For( i = 1, i <= N Items( ColList ), i++, 
  
  variability chart(
   Y( (ColList[i]) ),
   X( :Operators, :Parts ),
   Model( "Crossed" ),
   Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
   Show group means( 1 ),
   Points Jittered( 1 ),
   AIAG Labels( 0 ),
   Show Box Plots( 1 ),
   Mean Diamonds( 1 ),
   Mean Plots( 1 ),
   Historical Sigma( 0 ),
   Name( "Gauge R&R" )(5.15),
   Name( "Gauge R&R Report" )(1),
   Automatic Recalc( 1 ),

  );
  temp = Report( variability chart[1] )["GaugeR&R"][Table Box( 1 )] << make combined data table;
  dtOut << concatenate( temp, append to first table( 1 ) );
  Close( temp, nosave );
 )
);

data table ("GR&R summary") << select where (:Measurement Source != "Gauge R&R");
data table ("GR&R summary") << delete rows;

Ri: Rapporto GRR

ho provato la tua sceneggiatura. Il ciclo for non funziona. riporta solo il primo parametro.

Ri: Rapporto GRR

Ho rielaborato il codice e l'ho testato su una tabella di dati che avevo a disposizione, e sembra funzionare.  Guarda se va bene per te

Names Default To Here( 1 );
dt = Current Data Table();
dtOut = New Table( "Guage R&R Summary" );
colList = dt << get column names( continuous, string );
New Window( "GRR",
 For( i = 1, i <= N Items( ColList ), i++,
  theChart = dt << variability chart(
   Y( (ColList[i]) ),
   X( :Operators, :Parts ),
   Model( "Crossed" ),
   Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
   Show group means( 1 ),
   Points Jittered( 1 ),
   AIAG Labels( 0 ),
   Show Box Plots( 1 ),
   Mean Diamonds( 1 ),
   Mean Plots( 1 ),
   Historical Sigma( 0 ),
   Name( "Gauge R&R" )(5.15, 0, 0, 0),
   Name( "Gauge R&R Report" )(1),
   Automatic Recalc( 1 ), 

  );
  temp = Report( theChart )["GaugeR&R"][Table Box( 1 )] << make combined data table;
  dtOut << concatenate( temp, append to first table( 1 ) );
  Close( temp, nosave );
 )
);

Ri: Rapporto GRR

Ciao,

 

Il diagramma GRR è corretto, tuttavia non vi sono dati nel riepilogo GR&R. Comunque, questo pomeriggio provo un modo diverso. Ho diviso la trama in 2 schede. prima scheda per una specifica laterale e un'altra per la specifica laterale. Ora sembra funzionare.

 

 

il mio prossimo problema è che voglio salvare i grafici in .ppt. Voglio un grafico variabile per pagina. 

Quando provo a usare Salva presentazione in .ppt. Mostra un piccolo grafico (all'interno del grafico variabile) per pagina. C'è un modo per combinarli?

 

data table("split_spec") << select where (:spec type == "one side") ;
rows = data table("split_spec")<< get selected rows;
ColList1 = :Label[rows];
 
data table("split_spec") << select where (:spec type == "two side") ;
rows = data table("split_spec")<< get selected rows;
ColList2 = :Label[rows];
 
 


dtOut = New Table( "GRR_Summary");

current data table(dt_raw);

nw = new window ("GRR",tb = tab box(),vlb = vlist box());
tb << add ("OneSideSpec", vlb = v list box());

 for (i = 1, i <= N items (ColList1), i++,
 vlb << append(
 v1 = variability chart (
  Y ((ColList1 [i])),
  X (:Operators, :Parts),
  Model ("Crossed"),
  Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
  Show group means (1),
  Points Jittered( 1 ),
  AIAG Labels( 0 ),
  Show Box Plots( 1 ),
  Mean Diamonds( 1 ),
  Mean Plots( 1 ),
  Historical Sigma(0),
  Name( "Gauge R&R" )(5.15),
  Name( "Gauge R&R Report" )(1),
  Automatic Recalc( 1 ),
  );
  
  );


);
 
temp = report (v1)["GaugeR&R"][table box(1)] << make combined data table; 
dtOut << concatenate( temp, append to first table( 1 ) );
close(temp, nosave);

tb << Add( "TwoSideSpec", vlb2 = V List Box() ) ;
current data table(dt_raw);
 For( i = 1, i <= N Items( ColList2 ), i++,
 vlb2 << append(
  v2 = variability chart(
   Y( (ColList2[i]) ),
   X( :Operators, :Parts ),
   Model( "Crossed" ),
   Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
   Show group means( 1 ),
   Points Jittered( 1 ),
   AIAG Labels( 0 ),
   Show Box Plots( 1 ),
   Mean Diamonds( 1 ),
   Mean Plots( 1 ),
   Historical Sigma( 0 ),
   Name( "Gauge R&R" )(5.15),
   Name( "Gauge R&R Report" )(1),
   Automatic Recalc( 1 ),
  );
  
 
 );
 

);

temp = report(v2)["GaugeR&R"][table box(1)] << make combined data table; 
dtOut << concatenate( temp, append to first table( 1 ) );
close(temp, nosave);

data table ("GRR_Summary") << select where (:Measurement Source != "Gauge R&R");
data table ("GRR_Summary") << delete rows;

Ri: Rapporto GRR

Il metodo che uso per fare questo, è creare un oggetto di visualizzazione, con i grafici che voglio essere sulla diapositiva ppt, quindi creare un oggetto immagine dall'oggetto di visualizzazione e inserirlo in un diario.  Salva la presentazione dalla voce del diario;

Ri: Rapporto GRRPotete mostrarmi un esempio di come creare l'oggetto di visualizzazione?Ri: Rapporto GRR

Quello che intendo per oggetto di visualizzazione è uno qualsiasi degli oggetti che possono essere inseriti in una nuova finestra () e verrà visualizzato.  È possibile utilizzare tali oggetti senza trovarsi in una nuova finestra e posizionare l'output in tali oggetti e questi non verranno visualizzati fino a quando non vengono aggiunti in una nuova finestra.  Di seguito è riportato un esempio molto semplice dell'uso di << get picture, per creare la diapositiva pptx nel modo desiderato.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );

vlb = V List Box(
 Graph Builder(
  Size( 1000, 1000 ),
  Show Control Panel( 0 ),
  Variables( X( :weight ), Y( :height ) ),
  Elements( Points( X, Y, Legend( 3 ) ), Smoother( X, Y, Legend( 4 ) ) )
 ),
 Graph Builder(
  Size( 1000, 1000 ),
  Show Control Panel( 0 ),
  Variables( X( :age ), Y( :height ) ),
  Elements( Box Plot( X, Y, Legend( 9 ) ) )
 )
);

nw = New Window( "pptslide", <<JOURNAL></JOURNAL>