246166_de-DE

liliconcom

Betreff: Fit Group Automate

Update: Ausgabe-Teil behoben - Ausgabe von 1-23. Mein Problem ist, wie ich es an ppt anhänge, das in 2 oder 3 Plots pro Folie angeordnet ist.

Betreff: Fit Group Automate

In Bezug auf Ihren Fehler in Parameter 9 ... Was ist der Fehler, der im Protokoll angezeigt wird?

Im Folgenden finden Sie eine Änderung an Ihrem Code, mit der alle Ausgaben in 2 Spalten angezeigt werden.  Es enthält auch den Code zum Speichern der Ausgabe in 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");

Es werden jedoch nicht 2 Diagramme pro Seite angezeigt.  Gemäß der Konvention platziert JMP jedes Diagramm auf einer separaten Folie.  Um dies zu handhaben, erstelle ich normalerweise ein Journal, in das Ausgabepaare als Bilder kopiert wurden, und am Ende wird das Journal in einer PPTX-Datei gespeichert.  Dafür könnte etwas wie das Folgende funktionieren.

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

Übrigens ... Ich habe den Code nicht vollständig getestet.  Daher könnte es ein oder zwei kleine Probleme geben, aber die Konzepte sind korrekt.

Fit Group Automate

Ich arbeite mit diesem Code, aber irgendwie wird bei der 9. Ausgabe ein Fehler ausgegeben. Parameter_1 enthält 23 Elemente.

 

 

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

);

 

Die Ausgänge von 1-8 werden einzeln angezeigt. Wie codiere ich so, dass meine Ausgabe nach 2 geordnet ist und speichere sie in einem PPT.

Betreff: Fit Group AutomateDanke dafür!Betreff: Fit Group Automate

 

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

 

Ich habe den Code ausprobiert, den Sie mir gegeben haben, aber irgendwie gibt mir das einen Fehler:

Nicht gefunden in Zugriff oder Bewertung von 'Oneway', Bad Argument (
{Try (Column (subs_top, parameters_1 [i])), Rolle erfordert mindestens 1 Spalten.}
), Oneway (/ * ### * / X (: Rezept),
Y (Try (Column (subs_top, parameters_1 [i])))
Mit Steuerung (1),
Quantile (1),
Mittel und Std Dev (1),
CDF-Diagramm (1),
Mittlere Fehlerbalken (1),
Standardentwicklungslinien (1)
)

Fit Gruppe []

Betreff: Fit Group Automate

Aber als ich den Code ausprobierte, kam ich früher

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

funktioniert aber es macht es individuell.