data/Problem12.11.R

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

Problem12.11 <- data.frame(
	"Speed" = c(
		-1,
		0,
		1,
		-1,
		0,
		1,
		-1,
		0,
		1,
		-1,
		0,
		1,
		-1,
		0,
		1,
		-1,
		0,
		1,
		-1,
		0,
		1,
		-1,
		0,
		1,
		-1,
		0,
		1
	),
	"Pressure" = c(
		-1,
		-1,
		-1,
		0,
		0,
		0,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		0,
		0,
		0,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		0,
		0,
		0,
		1,
		1,
		1
	),
	"Distance" = c(
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		0,
		0,
		0,
		0,
		0,
		0,
		0,
		0,
		0,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1
	),
	"Mean" = c(
		24,
		120.3,
		213.7,
		86,
		136.6,
		340.7,
		112.3,
		256.3,
		271.7,
		81,
		101.7,
		357,
		171.3,
		372,
		501.7,
		264,
		427,
		730.7,
		220.7,
		239.7,
		422,
		199,
		485.3,
		673.7,
		176.7,
		501,
		1010
	),
	"Std.Dev." = c(
		12.5,
		8.4,
		42.8,
		3.5,
		80.4,
		16.2,
		27.6,
		4.6,
		23.6,
		0,
		17.7,
		32.9,
		15,
		0,
		92.5,
		63.5,
		88.6,
		21.1,
		133.8,
		23.5,
		18.5,
		29.4,
		44.7,
		158.2,
		55.5,
		138.9,
		142.4
	))