//!
Names Default To Here( 1 );
dt =
Open(
	"$SAMPLE_DATA/Variability Data/2 Factors Crossed.jmp"
);
dt <<
EMP Measurement Systems Analysis(
	Y( :Measurement ),
	X( :Operator ),
	Part( :part# ),
	Model( Crossed ),
	Dispersion Chart Type(
		Range
	),
	Average Chart( 1 ),
	Dispersion Chart( 1 )
);
dt <<
Variability Chart(
	Y( :Measurement ),
	X( :Operator, :part# ),
	Analysis Type(
		Name(
			"Choose best analysis (EMS REML Bayesian)"
		)
	),
	Standard( :Standard ),
	Process Variation( 0 ),
	Std Dev Chart( 1 )
);