data/Problem7.3.R

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

Problem7.3 <- 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'
	),
	"PourTemperature" = 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,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1
	),
	"TitaniumContent" = 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,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1
	),
	"HeatTreatMethod" = 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,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1
	),
	"GrainRefiner" = 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,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1
	),
	"CrackLength" = c(
		7.037,
		6.376,
		14.707,
		15.219,
		11.635,
		12.089,
		17.273,
		17.815,
		10.403,
		10.151,
		4.368,
		4.098,
		9.36,
		9.253,
		13.44,
		12.923,
		8.561,
		8.951,
		16.867,
		17.052,
		13.876,
		13.658,
		19.824,
		19.639,
		11.846,
		12.337,
		6.125,
		5.904,
		11.19,
		10.935,
		15.653,
		15.053
	))