data/Table5.21.R

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

Table5.21 <- data.frame(
	'Operator' = c(
		'1', '1', '1', '1', '1', '1',
		'2', '2', '2', '2', '2', '2',
		'3', '3', '3', '3', '3', '3',
		'4', '4', '4', '4', '4', '4'
	),
	'FilterType' = c(
		'1', '1', '1', '2', '2', '2',
		'1', '1', '1', '2', '2', '2',
		'1', '1', '1', '2', '2', '2',
		'1', '1', '1', '2', '2', '2'
	),
	'GroundClutter' = c(
		'Low', 'Medium', 'High',
		'Low', 'Medium', 'High',
		'Low', 'Medium', 'High',
		'Low', 'Medium', 'High',
		'Low', 'Medium', 'High',
		'Low', 'Medium', 'High',
		'Low', 'Medium', 'High',
		'Low', 'Medium', 'High'
	),
	'Intensity' = c(
		90, 102, 114, 86, 87, 93, 96, 106, 112, 84, 90, 91, 100, 105, 108, 92, 97, 95, 92, 96, 98, 81, 80, 83
	)
)