data/Problem3.46.R

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

Problem3.46 <- data.frame(
	"Algorithm" = 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'
	),
	"CellAverage" = c(
		4.93,
		4.86,
		4.75,
		4.95,
		4.79,
		4.88,
		4.85,
		4.91,
		4.79,
		4.85,
		4.75,
		4.85,
		4.83,
		4.88,
		4.9,
		4.75,
		4.82,
		4.9,
		4.89,
		4.77,
		4.94,
		4.86,
		4.79,
		4.76
	))