data/Problem8.10.R

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

Problem8.10 <- data.frame(
	"FurnaceTemp" = 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,
		-1,
		1,
		1,
		1,
		-1,
		1,
		-1,
		-1,
		1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1
	),
	"HeatingTime" = 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,
		-1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		-1,
		-1,
		1,
		-1,
		1,
		-1,
		-1
	),
	"TransferTime" = 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,
		1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		-1,
		1,
		1,
		-1,
		-1
	),
	"HoldTime" = 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,
		1,
		-1,
		1,
		1,
		-1,
		1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		1,
		-1,
		-1
	),
	"QuenchTemp" = 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,
		-1,
		-1,
		-1,
		-1,
		1,
		-1,
		1,
		1,
		-1,
		1,
		1,
		1,
		-1,
		1,
		-1,
		1
	),
	"FreeHeight" = c(
		7.81,
		7.56,
		7.88,
		7.5,
		7.5,
		7.56,
		7.56,
		7.88,
		7.25,
		7.5,
		7.56,
		8.06,
		7.5,
		7.81,
		7.62,
		7.5,
		7.56,
		7.88,
		7.25,
		7.69,
		7.56,
		7.44,
		7.44,
		7.59,
		7.63,
		7.54,
		7.52,
		7.18,
		7.78,
		7.88,
		7.5,
		7.81,
		8,
		7.75,
		8.15,
		8.18,
		7.18,
		7.56,
		7.32,
		7.44,
		7.69,
		7.44,
		7.69,
		7.75,
		8.09,
		7.59,
		7.78,
		7.12
	))