data/Problem6.40.R

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

Problem6.40 <- data.frame(
	"A" = c(
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		0,
		0,
		0,
		0
	),
	"B" = c(
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		0,
		0,
		0,
		0
	),
	"C" = c(
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		0,
		0,
		0,
		0
	),
	"D" = c(
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		0,
		0,
		0,
		0
	),
	"Resistivity" = c(
		1.92,
		11.28,
		1.09,
		5.75,
		2.13,
		9.53,
		1.03,
		5.35,
		1.6,
		11.73,
		1.16,
		4.68,
		2.16,
		9.11,
		1.07,
		5.3,
		8.15,
		7.63,
		8.95,
		6.48
	))