data/Problem5.39.R

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

Problem5.39 <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3'
	),
	"FeedRate" = c(
		0.2,
		0.2,
		0.2,
		0.25,
		0.25,
		0.25,
		0.3,
		0.3,
		0.3,
		0.2,
		0.2,
		0.2,
		0.25,
		0.25,
		0.25,
		0.3,
		0.3,
		0.3,
		0.2,
		0.2,
		0.2,
		0.25,
		0.25,
		0.25,
		0.3,
		0.3,
		0.3,
		0.2,
		0.2,
		0.2,
		0.25,
		0.25,
		0.25,
		0.3,
		0.3,
		0.3
	),
	"DepthOfCut" = c(
		0.15,
		0.15,
		0.15,
		0.15,
		0.15,
		0.15,
		0.15,
		0.15,
		0.15,
		0.18,
		0.18,
		0.18,
		0.18,
		0.18,
		0.18,
		0.18,
		0.18,
		0.18,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.2,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25,
		0.25
	),
	"SurfaceFinish" = c(
		74,
		64,
		60,
		92,
		86,
		88,
		99,
		98,
		102,
		79,
		68,
		73,
		98,
		104,
		88,
		104,
		99,
		95,
		82,
		88,
		92,
		99,
		108,
		95,
		108,
		110,
		99,
		99,
		104,
		96,
		104,
		110,
		99,
		114,
		111,
		107
	))