data/Problem3.19.R

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

Problem3.19 <- data.frame(
	"Approach" = c(
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3
	),
	"Contribution" = c(
		1000,
		1500,
		1200,
		1800,
		1600,
		1100,
		1000,
		1250,
		1500,
		1800,
		2000,
		1200,
		2000,
		1700,
		1800,
		1900,
		900,
		1000,
		1200,
		1500,
		1200,
		1550,
		1000,
		1100
	),
	"Resi1" = c(
		-306.25,
		193.75,
		-106.25,
		493.75,
		293.75,
		-206.25,
		-306.25,
		-56.25,
		-237.5,
		62.5,
		262.5,
		-537.5,
		262.5,
		-37.5,
		62.5,
		162.5,
		-281.25,
		-181.25,
		18.75,
		318.75,
		18.75,
		368.75,
		-181.25,
		-81.25
	))