data/Problem7.19.R

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

Problem7.19 <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2'
	),
	"Apatite" = c(
		30,
		30,
		60,
		60,
		30,
		30,
		60,
		60,
		30,
		30,
		60,
		60,
		30,
		30,
		60,
		60
	),
	"Ph" = c(
		5,
		5,
		5,
		5,
		7,
		7,
		7,
		7,
		5,
		5,
		5,
		5,
		7,
		7,
		7,
		7
	),
	"Pb" = c(
		0.48,
		0.48,
		0.48,
		0.48,
		0.48,
		0.48,
		0.48,
		0.48,
		2.41,
		2.41,
		2.41,
		2.41,
		2.41,
		2.41,
		2.41,
		2.41
	),
	"FishbonePb" = c(
		1.82,
		1.81,
		0.01,
		0,
		1.11,
		1.04,
		0,
		0.01,
		2.11,
		2.18,
		0.03,
		0.05,
		1.7,
		1.69,
		0.05,
		0.05
	),
	"FishbonePh" = c(
		5.22,
		5.12,
		6.84,
		6.61,
		3.35,
		3.34,
		5.77,
		6.25,
		5.29,
		5.06,
		5.93,
		6.02,
		3.39,
		3.34,
		4.5,
		4.74
	),
	"HydroxyapatitePb" = c(
		0.11,
		0.12,
		0,
		0,
		0.8,
		0.76,
		0.03,
		0.05,
		1.03,
		1.05,
		0,
		0,
		1.34,
		1.26,
		0.06,
		0.07
	),
	"HydroxyapatitePh" = c(
		3.49,
		3.46,
		5.84,
		5.9,
		2.7,
		2.74,
		3.36,
		3.24,
		3.22,
		3.22,
		5.53,
		5.43,
		2.82,
		2.79,
		3.28,
		3.28
	))