data/Problem8.30.R

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

Problem8.30 <- data.frame(
	"A" = c(
		'A1',
		'A2',
		'A1',
		'A2',
		'A1',
		'A2',
		'A1',
		'A2',
		'A1',
		'A2',
		'A1',
		'A2',
		'A1',
		'A2',
		'A1',
		'A2'
	),
	"B" = c(
		'B1',
		'B1',
		'B2',
		'B2',
		'B1',
		'B1',
		'B2',
		'B2',
		'B1',
		'B1',
		'B2',
		'B2',
		'B1',
		'B1',
		'B2',
		'B2'
	),
	"C" = c(
		'C1',
		'C1',
		'C1',
		'C1',
		'C2',
		'C2',
		'C2',
		'C2',
		'C1',
		'C1',
		'C1',
		'C1',
		'C2',
		'C2',
		'C2',
		'C2'
	),
	"D" = c(
		'D1',
		'D1',
		'D1',
		'D1',
		'D1',
		'D1',
		'D1',
		'D1',
		'D2',
		'D2',
		'D2',
		'D2',
		'D2',
		'D2',
		'D2',
		'D2'
	),
	"E" = c(
		'E1',
		'E1',
		'E2',
		'E2',
		'E2',
		'E2',
		'E1',
		'E1',
		'E2',
		'E2',
		'E1',
		'E1',
		'E1',
		'E1',
		'E2',
		'E2'
	),
	"F" = c(
		'F1',
		'F2',
		'F1',
		'F2',
		'F2',
		'F1',
		'F2',
		'F1',
		'F2',
		'F1',
		'F2',
		'F1',
		'F1',
		'F2',
		'F1',
		'F2'
	),
	"G" = c(
		'G1',
		'G2',
		'G2',
		'G1',
		'G2',
		'G1',
		'G1',
		'G2',
		'G1',
		'G2',
		'G2',
		'G1',
		'G2',
		'G1',
		'G1',
		'G2'
	),
	"H" = c(
		'H1',
		'H2',
		'H2',
		'H1',
		'H1',
		'H2',
		'H2',
		'H1',
		'H2',
		'H1',
		'H1',
		'H2',
		'H2',
		'H1',
		'H1',
		'H2'
	),
	"TasteAvg" = c(
		9.6,
		10.8,
		12.6,
		9.2,
		9,
		15,
		5,
		15.2,
		2.2,
		7,
		8.8,
		2.8,
		4.6,
		2.4,
		9.2,
		12.6
	),
	"TasteStdev" = c(
		3.05,
		3.11,
		2.07,
		1.79,
		1.41,
		1.73,
		1.22,
		0.84,
		0.84,
		2.55,
		3.96,
		1.79,
		3.29,
		1.52,
		4.02,
		1.14
	))