262302_es-ES

liliconcom

Informe GRR

Hola,

 

Tengo un script para generar un gráfico GRR y luego hacer una tabla resumen.  El problema es que cuando tengo una combinación de especificaciones de un lado y dos lados y utilizo el comando "crear tabla de datos combinada", mostrará solo una especificación de un lado o una especificación de dos lados según el primer parámetro.

 

¿Cómo puedo obtener la tabla de resumen de ambos en el 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;

 

Re: Informe GRR

Daría salida a la tabla en cuestión después de cada gráfico de Variabilidad, y luego la concatenaría en una tabla maestra, y luego pasaría al siguiente Gráfico de Variabilidad.  Algo como:

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;

Re: Informe GRR

Probé tu guión. El bucle for no funciona. solo informa el primer parámetro.

Re: Informe GRR

He revisado el código y lo probé con una tabla de datos que tenía disponible, y parece funcionar.  Ve si funciona para ti

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

Re: Informe GRR

Hola,

 

El gráfico GRR es correcto, sin embargo, no hay datos en el resumen GR&R. De todos modos, esta tarde lo intento de una manera diferente. Dividí la trama en 2 pestañas. primera pestaña para especificaciones de un lado y otra para especificaciones de dos lados. Ahora parece estar funcionando.

 

 

mi siguiente problema es que quiero guardar tramas en .ppt. Quiero un gráfico variable por página. 

Cuando intento usar guardar presentación en .ppt. Muestra un pequeño gráfico (dentro del gráfico variable) por página. ¿Hay alguna forma de combinarlos?

 

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;

Re: Informe GRR

El método que utilizo para hacer esto es crear un objeto de visualización, con los gráficos que quiero que estén en la diapositiva ppt, y luego crear un objeto de imagen a partir del objeto de visualización, y colocarlo en un diario.  Guardar la presentación de la entrada del diario;

Re: Informe GRR¿Me puede mostrar un ejemplo de crear el objeto de visualización?Re: Informe GRR

Lo que quiero decir con un objeto de visualización es cualquiera de los objetos que se pueden colocar en una nueva ventana () y se mostrarán.  Puede usar esos objetos sin estar en una nueva ventana, y puede colocar la salida en esos objetos, y no se mostrarán, hasta que se agreguen a una nueva ventana.  A continuación se muestra un ejemplo muy simple del uso de una << obtener imagen, para crear la diapositiva pptx de la manera que desea.

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>