data/Problem7.18.R

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

Problem7.18 <- data.frame(
	"Block" = c(
		'Block 2',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 1',
		'Block 2'
	),
	"Glucose" = c(
		20,
		60,
		20,
		60,
		20,
		60,
		20,
		60,
		20,
		60,
		20,
		60,
		20,
		60,
		20,
		60
	),
	"Nh4no3" = c(
		2,
		2,
		6,
		6,
		2,
		2,
		6,
		6,
		2,
		2,
		6,
		6,
		2,
		2,
		6,
		6
	),
	"Feso4" = c(
		6,
		6,
		6,
		6,
		30,
		30,
		30,
		30,
		6,
		6,
		6,
		6,
		30,
		30,
		30,
		30
	),
	"Mnso4" = c(
		4,
		4,
		4,
		4,
		4,
		4,
		4,
		4,
		20,
		20,
		20,
		20,
		20,
		20,
		20,
		20
	),
	"Y" = c(
		23,
		15,
		16,
		18,
		25,
		16,
		17,
		26,
		28,
		16,
		18,
		21,
		36,
		24,
		33,
		34
	))