data/Problem5.11.R

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

Problem5.11 <- data.frame(
	"PhosphorousType" = c(
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3,
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3
	),
	"GlassType" = c(
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2
	),
	"Current" = c(
		280,
		290,
		285,
		300,
		310,
		295,
		290,
		285,
		290,
		230,
		235,
		240,
		260,
		240,
		235,
		220,
		225,
		230
	))