data/Problem13.15.R

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

Problem13.15 <- data.frame(
	"Temp" = c(
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		60,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		75,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90,
		90
	),
	"Operator" = c(
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4,
		4,
		4,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4,
		4,
		4,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4,
		4,
		4
	),
	"Gauge" = c(
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3,
		1,
		1,
		2,
		2,
		3,
		3
	),
	"Drop" = c(
		-2,
		-3,
		-6,
		4,
		-1,
		-2,
		0,
		-9,
		-5,
		-1,
		-4,
		-8,
		-1,
		-8,
		-8,
		-2,
		0,
		-7,
		4,
		4,
		-3,
		-7,
		-2,
		4,
		14,
		14,
		22,
		24,
		20,
		16,
		6,
		0,
		8,
		6,
		2,
		0,
		1,
		2,
		6,
		2,
		3,
		0,
		-7,
		6,
		-5,
		2,
		-5,
		-1,
		-8,
		-8,
		-8,
		3,
		-2,
		-1,
		-2,
		20,
		1,
		-7,
		-1,
		-2,
		-1,
		-2,
		-9,
		-8,
		-4,
		-7,
		-2,
		1,
		-8,
		3,
		1,
		3
	))