data/Table14.3.R

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

Table14.3 <- data.frame(
	'Supplier'=factor(c(rep(1,12), rep(2,12), rep(3,12))),
	'Batches'=factor(rep(c(1,1,1,2,2,2,3,3,3,4,4,4), 3)),
	'Purity'=c(
		1, -1, 0, -2, -3, -4, -2, 0, 1, 1, 4, 0,
		1, -2, -3, 0, 4, 2, -1, 0, -2, 0, 3, 2,
		2, 4, 0, -2, 0, 2, 1, -1, 2, 3, 2, 1
	)
)