data/Table13.1.R

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

Table13.1 <- data.frame(
	'PartNumber'=factor(c(1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 16.0, 17.0, 18.0, 19.0, 20.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 16.0, 17.0, 18.0, 19.0, 20.0)),
	'Operator1'=c(21.0, 24.0, 20.0, 27.0, 19.0, 23.0, 22.0, 19.0, 24.0, 25.0, 21.0, 18.0, 23.0, 24.0, 29.0, 26.0, 20.0, 19.0, 25.0, 19.0, 20.0, 23.0, 21.0, 27.0, 18.0, 21.0, 21.0, 17.0, 23.0, 23.0, 20.0, 19.0, 25.0, 24.0, 30.0, 26.0, 20.0, 21.0, 26.0, 19.0),
	'Operator2'=c(20.0, 24.0, 19.0, 28.0, 19.0, 24.0, 22.0, 18.0, 25.0, 26.0, 20.0, 17.0, 25.0, 23.0, 30.0, 25.0, 19.0, 19.0, 25.0, 18.0, 20.0, 24.0, 21.0, 26.0, 18.0, 21.0, 24.0, 20.0, 23.0, 25.0, 20.0, 19.0, 25.0, 25.0, 28.0, 26.0, 20.0, 19.0, 24.0, 17.0),
	'Operator3'=c(19.0, 23.0, 20.0, 27.0, 18.0, 23.0, 22.0, 19.0, 24.0, 24.0, 21.0, 18.0, 25.0, 24.0, 31.0, 25.0, 20.0, 21.0, 25.0, 19.0, 21.0, 24.0, 22.0, 28.0, 21.0, 22.0, 20.0, 18.0, 24.0, 25.0, 20.0, 19.0, 25.0, 25.0, 30.0, 27.0, 20.0, 23.0, 25.0, 17.0)
)