data/Problem14.16.R

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

Problem14.16 <- data.frame(
	"Vendor" = c(
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3
	),
	"Heat" = c(
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3
	),
	"BarSize" = c(
		1,
		1,
		1.5,
		1.5,
		2,
		2,
		1,
		1,
		1.5,
		1.5,
		2,
		2,
		1,
		1,
		1.5,
		1.5,
		2,
		2,
		1,
		1,
		1.5,
		1.5,
		2,
		2,
		1,
		1,
		1.5,
		1.5,
		2,
		2,
		1,
		1,
		1.5,
		1.5,
		2,
		2,
		1,
		1,
		1.5,
		1.5,
		2,
		2,
		1,
		1,
		1.5,
		1.5,
		2,
		2,
		1,
		1,
		1.5,
		1.5,
		2,
		2
	),
	"Strength" = c(
		1.23,
		1.259,
		1.316,
		1.3,
		1.287,
		1.292,
		1.301,
		1.263,
		1.274,
		1.268,
		1.247,
		1.215,
		1.247,
		1.296,
		1.273,
		1.264,
		1.301,
		1.262,
		1.346,
		1.4,
		1.329,
		1.362,
		1.346,
		1.382,
		1.346,
		1.392,
		1.384,
		1.375,
		1.362,
		1.328,
		1.275,
		1.268,
		1.26,
		1.265,
		1.28,
		1.271,
		1.235,
		1.206,
		1.25,
		1.239,
		1.273,
		1.215,
		1.315,
		1.32,
		1.346,
		1.357,
		1.336,
		1.342,
		1.324,
		1.315,
		1.392,
		1.364,
		1.319,
		1.323
	))