data/Table3.16.R

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

Table3.16 <- data.frame(
	'RatioControlAlgorithm' = 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'
	),
	'AvgVoltage' = 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.90, 4.75, 4.82, 4.90,
		4.89, 4.77, 4.94, 4.86, 4.79, 4.76
	),
	'StDevVoltage' = 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
	)
)