data/Problem14.4.R

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

Problem14.4 <- data.frame(
	"Time" = c(
		158.3,
		154.6,
		162.5,
		160,
		156.3,
		163.7,
		159.4,
		154.9,
		162.6,
		158.7,
		158.1,
		161,
		159.2,
		157.7,
		161,
		157.5,
		158.3,
		162.3,
		159.6,
		156.8,
		158.9,
		158.9,
		156.9,
		160.3,
		158.9,
		154.8,
		160.5,
		161.1,
		157.7,
		162.6,
		157.8,
		156.3,
		159.5,
		158.5,
		156.9,
		161.8
	),
	"Job" = c(
		1,
		2,
		3,
		4,
		5,
		6,
		1,
		2,
		3,
		4,
		5,
		6,
		1,
		2,
		3,
		4,
		5,
		6,
		1,
		2,
		3,
		4,
		5,
		6,
		1,
		2,
		3,
		4,
		5,
		6,
		1,
		2,
		3,
		4,
		5,
		6
	),
	"Operator" = c(
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3
	))