data/Problem5.14.R

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

Problem5.14 <- data.frame(
	"DrillSpeed" = c(
		125,
		125,
		200,
		200,
		125,
		125,
		200,
		200,
		125,
		125,
		200,
		200,
		125,
		125,
		200,
		200
	),
	"FeedRate" = c(
		0.015,
		0.015,
		0.015,
		0.015,
		0.03,
		0.03,
		0.03,
		0.03,
		0.045,
		0.045,
		0.045,
		0.045,
		0.06,
		0.06,
		0.06,
		0.06
	),
	"Force" = c(
		2.7,
		2.78,
		2.83,
		2.86,
		2.45,
		2.49,
		2.85,
		2.8,
		2.6,
		2.72,
		2.86,
		2.87,
		2.75,
		2.86,
		2.94,
		2.88
	))