data/Problem8.30d.R

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

Problem8.30d <- 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.5,
		10,
		13,
		9.25,
		9.25,
		14.75,
		5,
		15.25,
		2,
		7,
		8,
		3.25,
		4.75,
		2.5,
		10,
		12.5
	),
	"TasteStdev" = c(
		3.5118845842843,
		2.943920288776,
		2.1602468994693,
		2.0615528128088,
		1.5,
		1.8929694486001,
		1.4142135623731,
		0.95742710775634,
		0.81649658092773,
		2.943920288776,
		4.0824829046386,
		1.7078251276599,
		3.7749172176354,
		1.7320508075689,
		4.1633319989323,
		1.2909944487358
	))