data/Problem6.31.R

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

Problem6.31 <- data.frame(
	"Aperture" = c(
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large',
		'small',
		'large'
	),
	"ExposureTime" = c(
		-20,
		-20,
		20,
		20,
		-20,
		-20,
		20,
		20,
		-20,
		-20,
		20,
		20,
		-20,
		-20,
		20,
		20,
		-20,
		-20,
		20,
		20,
		-20,
		-20,
		20,
		20,
		-20,
		-20,
		20,
		20,
		-20,
		-20,
		20,
		20,
		0,
		0,
		0,
		0
	),
	"DevelopTime" = c(
		30,
		30,
		30,
		30,
		45,
		45,
		45,
		45,
		30,
		30,
		30,
		30,
		45,
		45,
		45,
		45,
		30,
		30,
		30,
		30,
		45,
		45,
		45,
		45,
		30,
		30,
		30,
		30,
		45,
		45,
		45,
		45,
		37.5,
		37.5,
		37.5,
		37.5
	),
	"MaskDimension" = c(
		'Small',
		'Small',
		'Small',
		'Small',
		'Small',
		'Small',
		'Small',
		'Small',
		'Large',
		'Large',
		'Large',
		'Large',
		'Large',
		'Large',
		'Large',
		'Large',
		'Small',
		'Small',
		'Small',
		'Small',
		'Small',
		'Small',
		'Small',
		'Small',
		'Large',
		'Large',
		'Large',
		'Large',
		'Large',
		'Large',
		'Large',
		'Large',
		'Small',
		'Small',
		'Large',
		'Large'
	),
	"EtchTime" = c(
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		14.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15.5,
		15,
		15,
		15,
		15
	),
	"Yield" = c(
		7,
		9,
		34,
		55,
		16,
		20,
		40,
		60,
		8,
		10,
		32,
		50,
		18,
		21,
		44,
		61,
		8,
		12,
		35,
		52,
		15,
		22,
		45,
		65,
		6,
		10,
		30,
		53,
		15,
		20,
		41,
		63,
		68,
		74,
		76,
		70
	))