data/Problem6.27.R

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

Problem6.27 <- data.frame(
	"LaserPower" = c(
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		0,
		0,
		0,
		0
	),
	"PulseFrequency" = c(
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		0,
		0,
		0,
		0
	),
	"CellSize" = c(
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		0,
		0,
		0,
		0
	),
	"WritingSpeed" = c(
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		0,
		0,
		0,
		0
	),
	"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,
		0.98,
		0.95,
		0.93,
		0.96
	))