data/Problem4.18.R

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

Problem4.18 <- 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'
	),
	"TimePeriod" = c(
		1,
		2,
		3,
		4,
		5,
		6,
		1,
		2,
		3,
		4,
		5,
		6,
		1,
		2,
		3,
		4,
		5,
		6,
		1,
		2,
		3,
		4,
		5,
		6
	),
	"Average" = 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
	),
	"Stdev" = c(
		0.05,
		0.04,
		0.05,
		0.06,
		0.03,
		0.05,
		0.04,
		0.02,
		0.03,
		0.05,
		0.03,
		0.02,
		0.09,
		0.13,
		0.11,
		0.15,
		0.08,
		0.12,
		0.03,
		0.04,
		0.05,
		0.05,
		0.03,
		0.02
	))