data/Problem6.13.R

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

Problem6.13 <- 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'
	),
	"Times" = c(
		5.12,
		4.89,
		4.98,
		5,
		6.65,
		6.24,
		5.49,
		5.55,
		4.95,
		4.43,
		4.27,
		4.25,
		5.28,
		4.91,
		4.75,
		4.71
	))