data/Problem6.46.R

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

Problem6.46 <- data.frame(
	"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(
		0.05,
		0.05,
		0,
		0.01,
		0.03,
		0.05,
		0.01,
		0,
		1.7,
		1.69,
		1.11,
		1.04,
		2.11,
		2.18,
		1.82,
		1.81
	),
	"FishbonePh" = c(
		4.5,
		4.74,
		5.77,
		6.25,
		5.93,
		6.02,
		6.84,
		6.61,
		3.39,
		3.34,
		3.35,
		3.34,
		5.29,
		5.06,
		5.22,
		5.12
	),
	"HydroxyapatitePb" = c(
		0.06,
		0.07,
		0.03,
		0.05,
		0,
		0,
		0,
		0,
		1.34,
		1.26,
		0.8,
		0.76,
		1.03,
		1.05,
		0.11,
		0.12
	),
	"HydroxyapatitePh" = c(
		3.28,
		3.28,
		3.36,
		3.24,
		5.53,
		5.43,
		5.84,
		5.9,
		2.82,
		2.79,
		2.7,
		2.74,
		3.22,
		3.22,
		3.49,
		3.46
	))