data/Table14.10.R

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

Table14.10 <- data.frame(
	'Layout'=factor(c(rep(1, 24), rep(2, 24))),
	'Operator'=factor(rep(c(rep(1,6), rep(2, 6), rep(3, 6), rep(4, 6)), 2)),
	'Fixture'=factor(rep(c(1,1,2,2,3,3), 8)),
	'AssemblyTime'=c(
		22, 24, 30, 27, 25, 21, 23, 24, 29, 28, 24, 22, 28, 29, 30, 32, 27, 25, 25, 23, 27, 25, 26, 23,
		26, 28, 29, 28, 27, 25, 27, 25, 30, 27, 26, 24, 28, 25, 24, 23, 24, 27, 24, 23, 28, 30, 28, 27
	)
)