data/Problem8.34.R

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

Problem8.34 <- 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
	),
	"Type" = c(
		'Fishbone',
		'Fishbone',
		'Hydroxyapatite',
		'Hydroxyapatite',
		'Hydroxyapatite',
		'Hydroxyapatite',
		'Fishbone',
		'Fishbone',
		'Hydroxyapatite',
		'Hydroxyapatite',
		'Fishbone',
		'Fishbone',
		'Fishbone',
		'Fishbone',
		'Hydroxyapatite',
		'Hydroxyapatite'
	),
	"PbResponseMm" = c(
		0.05,
		0.05,
		0.03,
		0.05,
		0,
		0,
		0.01,
		0,
		1.34,
		1.26,
		1.11,
		1.04,
		2.11,
		2.18,
		0.11,
		0.12
	),
	"PhResponse" = c(
		4.5,
		4.74,
		3.36,
		3.24,
		5.53,
		5.43,
		6.84,
		6.61,
		2.82,
		2.79,
		3.35,
		3.34,
		5.29,
		5.06,
		3.49,
		3.46
	))