data/Problem5.42.R

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

Problem5.42 <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2'
	),
	"Hardwood" = c(
		2,
		2,
		4,
		4,
		8,
		8,
		2,
		2,
		4,
		4,
		8,
		8,
		2,
		2,
		4,
		4,
		8,
		8,
		2,
		2,
		4,
		4,
		8,
		8,
		2,
		2,
		4,
		4,
		8,
		8,
		2,
		2,
		4,
		4,
		8,
		8
	),
	"CookingTime" = c(
		3,
		3,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4,
		4,
		4,
		3,
		3,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4,
		4,
		4,
		3,
		3,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4,
		4,
		4
	),
	"Pressure" = c(
		400,
		400,
		400,
		400,
		400,
		400,
		400,
		400,
		400,
		400,
		400,
		400,
		500,
		500,
		500,
		500,
		500,
		500,
		500,
		500,
		500,
		500,
		500,
		500,
		650,
		650,
		650,
		650,
		650,
		650,
		650,
		650,
		650,
		650,
		650,
		650
	),
	"Strength" = c(
		196.6,
		196,
		198.5,
		197.2,
		197.5,
		196.6,
		198.4,
		198.6,
		197.5,
		198.1,
		197.6,
		198.4,
		197.7,
		196,
		196,
		196.9,
		195.6,
		196.2,
		199.6,
		200.4,
		198.7,
		198,
		197,
		197.8,
		199.8,
		199.4,
		198.4,
		197.6,
		197.4,
		198.1,
		200.6,
		200.9,
		199.6,
		199,
		198.5,
		199.8
	))