data/Table4.9.R

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

Table4.9 <- 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'
	),
	'Operator' = 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'
	),
	'Formulation' = 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'
	),
	'BurnRate' = c(
		24, 17, 18, 26, 22,
		20, 24, 38, 31, 30,
		19, 30, 26, 26, 20,
		24, 27, 27, 23, 29,
		24, 36, 21, 22, 31
	)
)