data/Problem7.2.R

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

Problem7.2 <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 4',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 4',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 4',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 4'
	),
	"BitSize" = c(
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1
	),
	"CuttingSpeed" = c(
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1
	),
	"Vibration" = c(
		18.2,
		18.9,
		12.9,
		14.4,
		27.2,
		24,
		22.4,
		22.5,
		15.9,
		14.5,
		15.1,
		14.2,
		41,
		43.9,
		36.3,
		39.9
	))