data/Table3.12.R

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

Table3.12 <- data.frame(
	"Factor" = c(
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC',
		'DC', 'DC+MK', 'MC'
	),
	"Subject" = c(
		'1','1','1',
		'2','2','2',
		'3','3','3',
		'4','4','4',
		'5','5','5',
		'6','6','6',
		'7','7','7',
		'8','8','8',
		'9','9','9',
		'10','10','10',
		'11','11','11',
		'12','12','12'
	),
	"Observation" = c(
		118.8, 105.4, 102.1,
		122.6, 101.1, 105.8,
		115.6, 102.7, 99.6,
		113.6, 97.1, 102.7,
		119.5, 101.9, 98.8,
		115.9, 98.9, 100.9,
		115.8, 100.0, 102.8,
		115.1, 99.8, 98.7,
		116.9, 102.6, 94.7,
		115.4, 100.9, 97.8,
		115.6, 104.5, 99.7,
		107.9, 93.5, 98.6
	)
)