data/Problem13.10.R

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

Problem13.10 <- data.frame(
	"Part" = c(
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10,
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10,
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10,
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10,
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10,
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10
	),
	"Operator" = c(
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		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,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2
	),
	"Measurement" = c(
		50,
		52,
		53,
		49,
		48,
		52,
		51,
		52,
		50,
		47,
		49,
		52,
		50,
		51,
		49,
		50,
		51,
		50,
		51,
		46,
		50,
		51,
		50,
		50,
		48,
		50,
		51,
		49,
		50,
		49,
		50,
		51,
		54,
		48,
		48,
		52,
		51,
		53,
		51,
		46,
		48,
		51,
		52,
		50,
		49,
		50,
		50,
		48,
		48,
		47,
		51,
		51,
		51,
		51,
		48,
		50,
		50,
		50,
		49,
		48
	))