data/Problem3.40.R

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

Problem3.40 <- data.frame(
	"Brand" = c(
		'1',
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2',
		'2',
		'3',
		'3',
		'3',
		'3',
		'3'
	),
	"Deviation" = c(
		4,
		0,
		4,
		0,
		4,
		4,
		0,
		5,
		4,
		2,
		8,
		0,
		4,
		2,
		0
	))