Fit Group Automate

skyzvoir0001

Im working with this code but somehow on the 9th output, it gets an error. Parameters_1 contains 23 items on it.

 

 

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

);

 

The outputs from 1-8 are shown individually. How do I code such that my output is arranged by 2 and save it into a ppt.

txnelson

Concerning your error on parameter 9....what is the error that is displayed in the log?

Below is a modification to your code that will display all of the outputs in 2 columns.  It also has the code to save the output to 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");

However, this will not display 2 graphs per page.  By convention, JMP will place each graph on a separate slide.  To handle this, I typically create a journal where pairs of outputs have been copied over as pictures, and then at the end, the journal is saved to a pptx.  For that, something like below might work.

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

BTW.....I did not completely test the code.  Therefore, there might be a slight issue or two, but the concepts are correct.