data/Problem4.40.R

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

Problem4.40 <- data.frame(
	"Batch" = c(
		1,
		2,
		3,
		4,
		5,
		1,
		2,
		3,
		4,
		5,
		1,
		2,
		3,
		4,
		5,
		1,
		2,
		3,
		4,
		5,
		1,
		2,
		3,
		4,
		5
	),
	"Acid" = c(
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4,
		4,
		5,
		5,
		5,
		5,
		5
	),
	"Time" = c(
		'A',
		'B',
		'C',
		'D',
		'E',
		'B',
		'C',
		'D',
		'E',
		'A',
		'C',
		'D',
		'E',
		'A',
		'B',
		'D',
		'E',
		'A',
		'B',
		'C',
		'E',
		'A',
		'B',
		'C',
		'D'
	),
	"Catalyst" = c(
		'a',
		'c',
		'e',
		'b',
		'd',
		'b',
		'd',
		'a',
		'c',
		'e',
		'c',
		'e',
		'b',
		'd',
		'a',
		'd',
		'a',
		'c',
		'e',
		'b',
		'e',
		'b',
		'd',
		'a',
		'c'
	),
	"Yield" = c(
		26,
		18,
		20,
		15,
		10,
		16,
		21,
		12,
		15,
		24,
		19,
		18,
		16,
		22,
		17,
		16,
		11,
		25,
		14,
		17,
		13,
		21,
		13,
		17,
		14
	))