//!
Names Default To Here( 1 );
dt =
Open(
	"$SAMPLE_DATA/car poll.jmp"
);
obj =
Multiple Correspondence Analysis(
	Y(
		:country,
		:size,
		:type
	),
	Cross Table(
		Cell Chi Square( 0 ),
		Show Total( 1 )
	),
	SendToReport(
		Dispatch(
			{},
			"Correspondence Analysis",
			OutlineBox,
			{Close( 1 )}
		),
		Dispatch(
			{},
			"Burt Table",
			OutlineBox,
			{Close( 0 )}
		)
	)
);