data/Problem11.37.R

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

Problem11.37 <- data.frame(
	"StdOrd" = c(
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10,
		11,
		12,
		13,
		14,
		15,
		16,
		17,
		18,
		19,
		20,
		21,
		22,
		23,
		24,
		25,
		26,
		27
	),
	"X1" = c(
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-2,
		2,
		0,
		0,
		0,
		0,
		0,
		0,
		0,
		0,
		0
	),
	"X2" = c(
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		0,
		0,
		-2,
		2,
		0,
		0,
		0,
		0,
		0,
		0,
		0
	),
	"X3" = c(
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		0,
		0,
		0,
		0,
		-2,
		2,
		0,
		0,
		0,
		0,
		0
	),
	"X4" = c(
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		0,
		0,
		0,
		0,
		0,
		0,
		-2,
		2,
		0,
		0,
		0
	),
	"MtgaseActivity" = c(
		0.87,
		0.74,
		0.51,
		0.99,
		0.67,
		0.72,
		0.81,
		1.01,
		1.33,
		0.7,
		0.82,
		0.78,
		0.36,
		0.23,
		0.21,
		0.44,
		0.56,
		0.49,
		0.57,
		0.81,
		0.9,
		0.65,
		0.91,
		0.49,
		1.43,
		1.17,
		1.5
	))