data/Problem12.18.R

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

Problem12.18 <- data.frame(
	"A" = c(
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1
	),
	"B" = c(
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1
	),
	"C" = c(
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1
	),
	"D" = c(
		-1,
		1,
		-1,
		1,
		1,
		-1,
		1,
		-1
	),
	"E" = c(
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1
	),
	"SolderDefectsMean" = c(
		214.75,
		135,
		243.5,
		85.25,
		252,
		195.25,
		305.75,
		145.5
	),
	"SolderDefectsVariance" = c(
		1616.25,
		4,
		1523,
		2218.9166666667,
		2376.6666666667,
		1852.25,
		1540.25,
		2241.6666666667
	))