data/Table5.16.R

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

Table5.16 <- data.frame(
	'TotalAngle' = c(
		15, 15, 20, 20, 25, 25,
		15, 15, 20, 20, 25, 25,
		15, 15, 20, 20, 25, 25
	),
	'CuttingSpeed' = c(
		125, 125, 125, 125, 125, 125,
		150, 150, 150, 150, 150, 150,
		175, 175, 175, 175, 175, 175
	),
	'ToolLife' = c(
		-2, -1, 0, 2, -1, 0, -3, 0, 1, 3, 5, 6, 2, 3, 4, 6, 0, -1
	)
)