data/Problem3.20.R

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

Problem3.20 <- data.frame(
	"Temp" = c(
		100,
		100,
		100,
		100,
		100,
		125,
		125,
		125,
		125,
		150,
		150,
		150,
		150,
		150,
		175,
		175,
		175,
		175
	),
	"Density" = c(
		21.8,
		21.9,
		21.7,
		21.6,
		21.7,
		21.7,
		21.4,
		21.5,
		21.4,
		21.9,
		21.8,
		21.8,
		21.6,
		21.5,
		21.9,
		21.7,
		21.8,
		21.4
	),
	"Resi1" = c(
		0.06,
		0.16,
		-0.04,
		-0.14,
		-0.04,
		0.2,
		-0.1,
		0,
		-0.1,
		0.18,
		0.08,
		0.08,
		-0.12,
		-0.22,
		0.2,
		0,
		0.1,
		-0.3
	))