data/Problem3.18.R

In ehassler/MontgomeryDAE: MontgomeryDAE - Data and examples from Montgomery's "Design and Analysis of Experiments"

Problem3.18 <- data.frame(
	"Season" = c(
		'Summer',
		'Summer',
		'Summer',
		'Summer',
		'Summer',
		'Summer',
		'Summer',
		'Summer',
		'Summer',
		'Summer',
		'Shoulder',
		'Shoulder',
		'Shoulder',
		'Shoulder',
		'Shoulder',
		'Shoulder',
		'Shoulder',
		'Winter',
		'Winter',
		'Winter',
		'Winter',
		'Winter',
		'Winter',
		'Winter',
		'Winter'
	),
	"Score" = c(
		83,
		85,
		85,
		87,
		90,
		88,
		88,
		84,
		91,
		90,
		91,
		87,
		84,
		87,
		85,
		86,
		83,
		94,
		91,
		87,
		85,
		87,
		91,
		92,
		86
	),
	"Resi1" = c(
		-4.1,
		-2.1,
		-2.1,
		-0.1,
		2.9,
		0.9,
		0.9,
		-3.1,
		3.9,
		2.9,
		4.85714,
		0.85714,
		-2.14286,
		0.85714,
		-1.14286,
		-0.14286,
		-3.14286,
		4.875,
		1.875,
		-2.125,
		-4.125,
		-2.125,
		1.875,
		2.875,
		-3.125
	))