data/Problem7.13.R

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

Problem7.13 <- data.frame(
	"Block" = c(
		'Block 2',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 1',
		'Block 2'
	),
	"LaserPower" = c(
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1
	),
	"PulseFrequency" = c(
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1
	),
	"CellSize" = c(
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1
	),
	"WritingSpeed" = c(
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1
	),
	"Uec" = c(
		0.75,
		0.98,
		0.72,
		0.98,
		0.63,
		0.67,
		0.65,
		0.8,
		0.6,
		0.81,
		0.63,
		0.79,
		0.56,
		0.65,
		0.55,
		0.69
	))