data/Problem3.48.R

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

Problem3.48 <- data.frame(
	"FeedRate" = c(
		'10',
		'10',
		'10',
		'10',
		'10',
		'12',
		'12',
		'12',
		'12',
		'12',
		'14',
		'14',
		'14',
		'14',
		'14',
		'16',
		'16',
		'16',
		'16',
		'16'
	),
	"RunStdev" = c(
		0.09,
		0.1,
		0.13,
		0.08,
		0.07,
		0.06,
		0.09,
		0.12,
		0.07,
		0.12,
		0.11,
		0.08,
		0.08,
		0.05,
		0.06,
		0.19,
		0.13,
		0.15,
		0.2,
		0.11
	))