data/Problem7.25.R

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

Problem7.25 <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 1'
	),
	"CuttingSpeed" = c(
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		-1
	),
	"ToolGeometry" = c(
		-1,
		-1,
		1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		1,
		-1,
		-1
	),
	"CuttingAngle" = c(
		-1,
		-1,
		1,
		-1,
		-1,
		-1,
		-1,
		1,
		-1,
		-1,
		1,
		1,
		1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		-1
	),
	"LifeHours" = c(
		22,
		43,
		47,
		32,
		47,
		50,
		35,
		50,
		29,
		55,
		37,
		38,
		44,
		31,
		36,
		40,
		34,
		46,
		60,
		41,
		54,
		39,
		45,
		25
	))