data/Problem4.17.R

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

Problem4.17 <- data.frame(
	"Project" = c(
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10,
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10,
		1,
		2,
		3,
		4,
		5,
		6,
		7,
		8,
		9,
		10
	),
	"Treatment" = c(
		'MP Only',
		'MP Only',
		'MP Only',
		'MP Only',
		'MP Only',
		'MP Only',
		'MP Only',
		'MP Only',
		'MP Only',
		'MP Only',
		'MP + HDMTX',
		'MP + HDMTX',
		'MP + HDMTX',
		'MP + HDMTX',
		'MP + HDMTX',
		'MP + HDMTX',
		'MP + HDMTX',
		'MP + HDMTX',
		'MP + HDMTX',
		'MP + HDMTX',
		'MP + LDMTX',
		'MP + LDMTX',
		'MP + LDMTX',
		'MP + LDMTX',
		'MP + LDMTX',
		'MP + LDMTX',
		'MP + LDMTX',
		'MP + LDMTX',
		'MP + LDMTX',
		'MP + LDMTX'
	),
	"GeneExpression" = c(
		334.5,
		31.6,
		701,
		41.2,
		61.2,
		69.6,
		67.5,
		66.6,
		120.7,
		881.9,
		919.4,
		404.2,
		1024.8,
		54.1,
		62.8,
		671.6,
		882.1,
		354.2,
		321.9,
		91.1,
		108.4,
		26.1,
		240.8,
		191.1,
		69.7,
		242.8,
		62.7,
		396.9,
		23.6,
		290.4
	))