data/Table5.24.R

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

Table5.24 <- data.frame(
	'Filter'=c(
		'1', '1', '1', '2', '2', '2',
		'1', '1', '2', '2', '1', '2',
		'1', '1', '2', '1', '2', '2',
		'2', '2', '1', '1', '2', '1',
		'2', '2', '2', '1', '1', '1',
		'2', '2', '1', '2', '1', '1'
	),
	'GroundClutter'=c(
		'1', '3', '2', '2', '3', '1',
		'2', '1', '2', '1', '3', '3',
		'3', '2', '3', '1', '1', '2',
		'1', '3', '1', '2', '2', '3',
		'3', '2', '1', '3', '1', '2',
		'2', '1', '3', '3', '2', '1'
	),
	'Day' = 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',
		'2', '2', '2', '2', '2', '2',
		'3', '3', '3', '3', '3', '3',
		'4', '4', '4', '4', '4', '4',
		'5', '5', '5', '5', '5', '5',
		'6', '6', '6', '6', '6', '6'
	),
	'Intensity' = c(
		90, 114, 102, 87, 93, 86, 106, 96, 90, 84, 112, 91, 108, 105, 95, 100, 92, 97, 81, 83, 92, 96, 80, 98, 90, 86, 85, 110, 90, 100, 88, 84, 104, 91, 98, 92
	)
)