data/Problem6.14.R

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

Problem6.14 <- data.frame(
	"Worker" = c(
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2',
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2'
	),
	"BottleType" = c(
		'Glass',
		'Glass',
		'Glass',
		'Glass',
		'Glass',
		'Glass',
		'Glass',
		'Glass',
		'Plastic',
		'Plastic',
		'Plastic',
		'Plastic',
		'Plastic',
		'Plastic',
		'Plastic',
		'Plastic'
	),
	"Pulse" = c(
		39,
		58,
		45,
		35,
		20,
		16,
		13,
		11,
		44,
		42,
		35,
		21,
		13,
		16,
		10,
		15
	))