//!
Names Default To Here( 1 );
dt =
Open(
	"$SAMPLE_DATA/big class.jmp"
);
obj =
Fit Model(
	Y( :height ),
	Effects( :sex ),
	Personality(
		Standard Least Squares
	),
	Emphasis(
		Effect Leverage
	),
	Run(
		:height <<
		{Lack of Fit( 0 ),
		Plot Actual by Predicted(
			0
		),
		Plot Regression( 0 ),
		Plot Residual by Predicted(
			0
		),
		Plot Effect Leverage(
			0
		),
		Multiple Comparisons(
			Effect( sex ),
			Tukey HSD(
				1,
				Equivalence Tests(
					6
				)
			)
		)},
		Effect Summary( 0 )
	),
	SendToReport(
		Dispatch(
			{
			"Response height",
			"Whole Model"},
			"Summary of Fit",
			OutlineBox,
			{Close( 1 )}
		),
		Dispatch(
			{
			"Response height",
			"Whole Model"},
			"Analysis of Variance",
			OutlineBox,
			{Close( 1 )}
		),
		Dispatch(
			{
			"Response height",
			"Whole Model"},
			"Parameter Estimates",
			OutlineBox,
			{Close( 1 )}
		)
	)
);