data/Problem4.19.R

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

Problem4.19 <- data.frame(
	"StirringRate" = c(
		'5',
		'5',
		'5',
		'5',
		'10',
		'10',
		'10',
		'10',
		'15',
		'15',
		'15',
		'15',
		'20',
		'20',
		'20',
		'20'
	),
	"Furnace" = c(
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4,
		1,
		2,
		3,
		4
	),
	"GrainSize" = c(
		8,
		4,
		5,
		6,
		14,
		5,
		6,
		9,
		14,
		6,
		9,
		2,
		17,
		9,
		3,
		6
	))