data/Problem14.19.R

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

Problem14.19 <- data.frame(
	"Temperature" = c(
		1500,
		1500,
		1500,
		1500,
		1500,
		1500,
		1500,
		1500,
		1500,
		1500,
		1500,
		1500,
		1600,
		1600,
		1600,
		1600,
		1600,
		1600,
		1600,
		1600,
		1600,
		1600,
		1600,
		1600
	),
	"Shift" = c(
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3,
		4,
		4,
		4,
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3,
		4,
		4,
		4
	),
	"Time" = c(
		10,
		20,
		30,
		10,
		20,
		30,
		10,
		20,
		30,
		10,
		20,
		30,
		10,
		20,
		30,
		10,
		20,
		30,
		10,
		20,
		30,
		10,
		20,
		30
	),
	"Strength" = c(
		63,
		54,
		61,
		50,
		52,
		59,
		48,
		74,
		71,
		54,
		48,
		59,
		89,
		91,
		62,
		80,
		72,
		69,
		73,
		81,
		69,
		88,
		92,
		64
	))