246166_es-ES

liliconcom

Re: Fit Group Automatizar

actualización: reparó la parte de salida, ahora sale de 1-23, mi problema es ¿cómo lo agrego a ppt organizado en 2 o 3 parcelas por diapositiva?

Re: Fit Group Automatizar

Con respecto a su error en el parámetro 9 ... ¿cuál es el error que se muestra en el registro?

A continuación se muestra una modificación a su código que mostrará todas las salidas en 2 columnas.  También tiene el código para guardar la salida en PowerPoint.

Current Data Table( subs );

nw = New Window( "Oneways",
 Lineup Box( N Col( 2 ),
  For( i = 1, i <= N Items( parameters_1 ), i++,
   Print( i );
   Oneway(
    X( :Recipe ),
    Y( Column( subs, parameters_1[i] ) ),
    With Control( 1 ),
    Quantiles( 1 ),
    Means and Std Dev( 1 ),
    CDF Plot( 1 ),
    Mean Error Bars( 1 ),
    Std Dev Lines( 1 ),
    SendToReport(
     Dispatch(
      {},
      "Fit Group",
      OutlineBox,
      {Set Title( "TYPE=" || Char( type ) || "" )}
     )
    )
 
   );, 
 
  )
 )
);
nw << save presentation("$TEMP\reportppnw.pptx");

Sin embargo, esto no mostrará 2 gráficos por página.  Por convención, JMP colocará cada gráfico en una diapositiva separada.  Para manejar esto, normalmente creo un diario donde se han copiado pares de salidas como imágenes, y luego, al final, el diario se guarda en un pptx.  Para eso, algo como a continuación podría funcionar.

Names Default To Here( 1 );
Current Data Table( subs );

For( i = 1, i <= N Items( parameters_1 ), i = i + 2,
 hlb = H List Box(
  Oneway(
   X( :Recipe ),
   Y( Column( subs, parameters_1[i] ) ),
   With Control( 1 ),
   Quantiles( 1 ),
   Means and Std Dev( 1 ),
   CDF Plot( 1 ),
   Mean Error Bars( 1 ),
   Std Dev Lines( 1 ),
   SendToReport(
    Dispatch(
     {},
     "Fit Group",
     OutlineBox,
     {Set Title( "TYPE=" || Char( type ) || "" )}
    )
   )
 
  ),
  Try(
   Oneway(
    X( :Recipe ),
    Y( Column( subs, parameters_1[i + 1] ) ),
    With Control( 1 ),
    Quantiles( 1 ),
    Means and Std Dev( 1 ),
    CDF Plot( 1 ),
    Mean Error Bars( 1 ),
    Std Dev Lines( 1 ),
    SendToReport(
     Dispatch(
      {},
      "Fit Group",
      OutlineBox,
      {Set Title( "TYPE=" || Char( type ) || "" )}
     )
    )
 
   )
  );
  zippy = hlb << get picture;
  zippy << save presentation( "$TEMP\report.pptx", append );
 )
);

Por cierto ..... No probé completamente el código.  Por lo tanto, puede haber un pequeño problema o dos, pero los conceptos son correctos.

Fit Group Automate

Estoy trabajando con este código, pero de alguna manera en la novena salida, aparece un error. Parámetros_1 contiene 23 elementos en él.

 

 

current data table(subs);
for (i = 1, i <= nitems(parameters_1), i++,
&nbsp;&nbsp;&nbsp; print(i);
&nbsp; Oneway(
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X( :Recipe ),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y( column(subs, parameters_1[i]) ),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With Control(1),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Quantiles(1),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Means and Std Dev(1),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CDF Plot(1),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Mean Error Bars(1),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Std Dev Lines(1),
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SendToReport( Dispatch(&nbsp; {}, "Fit Group", OutlineBox, {Set Title( "TYPE="||char(type)||"" )} ) )

&nbsp;&nbsp;&nbsp; );

);

 

Las salidas de 1-8 se muestran individualmente. ¿Cómo codifico de modo que mi salida esté organizada por 2 y la guarde en un ppt?

Re: Fit Group Automatizar¡gracias por esto!Re: Fit Group Automatizar

 

Fit Group(
 For( i = 1, i <= N Items( parameters_1 ), i = i + 2,
  hlb = H List Box(
   Oneway(
    X( :Recipe ),
    Y( Try( Column( subs, parameters_1[i] ) ) ),
    With Control( 1 ),
    Quantiles( 1 ),
    Means and Std Dev( 1 ),
    CDF Plot( 1 ),
    Mean Error Bars( 1 ),
    Std Dev Lines( 1 )

   ),
   Try(
    Oneway(
     X( :Recipe ),
     Y( Column( subs, parameters_1[i + 1] ) ),
     With Control( 1 ),
     Quantiles( 1 ),
     Means and Std Dev( 1 ),
     CDF Plot( 1 ),
     Mean Error Bars( 1 ),
     Std Dev Lines( 1 )
    )
   );
   zippy = hlb << get picture;
  )
 )
);

 

Probé el código que le diste, pero de alguna manera esto me da un error:

No se encuentra en el acceso o evaluación de 'Oneway', Argumento incorrecto (
{Pruebe (Columna (subs_top, parámetros_1 [i])), el rol requiere al menos 1 columnas.}
), Oneway (/ * ### * / X (: Receta),
Y (Try (Columna (subs_top, parámetros_1 [i]))),
Con control (1),
Cuantiles (1),
Medios y desarrollo estándar (1),
Parcela CDF (1),
Barras de error medio (1),
Líneas de desarrollo estándar (1)
)

Grupo apto []

Re: Fit Group Automatizar

pero cuando probé el código, vine antes,

Current Data Table( subs );
t0p = Fit Group(
 For( i = 1, i <= N Items( parameters_1 ), i++,
  Oneway(
   X( Column( subs, "Recipe" ) ),
   Y( Try( Column( subs, parameters_1[i] ) ) ),
   With Control( 1 ),
   Quantiles( 1 ),
   Means and Std Dev( 1 ),
   CDF Plot( 1 ),
   Mean Error Bars( 1 ),
   Std Dev Lines( 1 )
  )
 ),
 SendToReport( Dispatch( {}, "Fit Group", OutlineBox, {Set Title( "TYPE=" || Char( type ) || "" )} ) )
) << {Arrange in Rows( 2 )};

funciona pero lo hace individualmente.