data/Problem11.34.R

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

Problem11.34 <- 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,
		28,
		29,
		30
	),
	"RunOrd" = c(
		9,
		21,
		14,
		4,
		2,
		19,
		22,
		25,
		27,
		13,
		20,
		6,
		12,
		17,
		26,
		1,
		8,
		15,
		7,
		5,
		29,
		28,
		16,
		18,
		24,
		10,
		23,
		11,
		3,
		30
	),
	"WingArea" = 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,
		0,
		0,
		0
	),
	"WingRatio" = 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,
		0,
		0,
		0
	),
	"BaseWidth" = 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,
		0,
		0,
		0
	),
	"BaseLength" = 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,
		0,
		0,
		0
	),
	"AvgFlightTime" = c(
		3.67,
		3.69,
		3.74,
		3.7,
		3.72,
		3.55,
		3.97,
		3.77,
		3.5,
		3.73,
		3.58,
		3.63,
		3.44,
		3.55,
		3.7,
		3.62,
		3.61,
		3.64,
		3.55,
		3.73,
		3.61,
		3.6,
		3.8,
		3.6,
		3.77,
		3.75,
		3.7,
		3.68,
		3.69,
		3.66
	),
	"StDevFlightTime" = c(
		0.052,
		0.052,
		0.055,
		0.062,
		0.052,
		0.065,
		0.052,
		0.098,
		0.079,
		0.072,
		0.083,
		0.132,
		0.058,
		0.049,
		0.081,
		0.051,
		0.129,
		0.085,
		0.1,
		0.063,
		0.051,
		0.095,
		0.049,
		0.055,
		0.032,
		0.055,
		0.072,
		0.055,
		0.078,
		0.058
	))