data/Problem14.13.R

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

Problem14.13 <- data.frame(
	"Machine" = 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
	),
	"Power" = c(
		1,
		1,
		1,
		2,
		2,
		2,
		1,
		1,
		1,
		2,
		2,
		2,
		1,
		1,
		1,
		2,
		2,
		2,
		1,
		1,
		1,
		2,
		2,
		2,
		1,
		1,
		1,
		2,
		2,
		2,
		1,
		1,
		1,
		2,
		2,
		2,
		1,
		1,
		1,
		2,
		2,
		2,
		1,
		1,
		1,
		2,
		2,
		2,
		1,
		1,
		1,
		2,
		2,
		2
	),
	"Station" = 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
	),
	"Yield" = c(
		34.1,
		30.3,
		31.6,
		24.3,
		26.3,
		27.1,
		31.1,
		33.5,
		34,
		24.1,
		25,
		26.3,
		32.9,
		33,
		33.1,
		24.2,
		26.1,
		25.3,
		33.7,
		34.9,
		35,
		28.1,
		29.3,
		28.6,
		33.1,
		34.7,
		33.9,
		24.1,
		25.1,
		27.9,
		33.8,
		33.4,
		32.8,
		23.2,
		27.4,
		28,
		36.2,
		36.8,
		37.1,
		25.7,
		26.1,
		24.9,
		32.8,
		35.1,
		34.3,
		26,
		27.1,
		23.9,
		33.6,
		32.8,
		31.7,
		24.7,
		22,
		24.8
	))