data/Problem4.43.R

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

Problem4.43 <- data.frame(
	"Order" = c(
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4
	),
	"Operator" = c(
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4
	),
	"Method" = c(
		'C',
		'B',
		'A',
		'D',
		'D',
		'C',
		'B',
		'A',
		'A',
		'D',
		'C',
		'B',
		'B',
		'A',
		'D',
		'C',
		'C',
		'B',
		'A',
		'D',
		'B',
		'C',
		'D',
		'A',
		'D',
		'A',
		'B',
		'C',
		'A',
		'D',
		'C',
		'B'
	),
	"Time" = c(
		10,
		7,
		5,
		10,
		14,
		18,
		10,
		10,
		7,
		11,
		11,
		12,
		8,
		8,
		9,
		14,
		11,
		8,
		9,
		9,
		10,
		12,
		11,
		8,
		14,
		10,
		7,
		18,
		8,
		12,
		15,
		6
	),
	"Square" = c(
		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
	))