data/Table8.16.R

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

Table8.16 <- expand.grid(
	'A'=c(-1, 1),
	'B'=c(-1, 1),
	'C'=c(-1, 1),
	'D'=c(-1, 1),
	'E'=c(-1, 1)
)
Table8.16[,'F'] = Table8.16[,'A'] * Table8.16[,'B'] * Table8.16[,'C']
Table8.16[,'G'] = Table8.16[,'A'] * Table8.16[,'B'] * Table8.16[,'D']
Table8.16[,'H'] = Table8.16[,'B'] * Table8.16[,'C'] * Table8.16[,'D'] * Table8.16[,'E']
Table8.16[,'Block'] = factor(c(3, 2, 4, 1, 1, 4, 2, 3, 1, 4, 2, 3, 3, 2, 4, 1, 2, 3, 1, 4, 4, 1, 3, 2, 4, 1, 3, 2, 2, 3, 1, 4))
Table8.16[,'Deviation'] = c(
	2.76, 6.18, 2.43, 4.01, 2.48, 5.91, 2.39, 3.35, 4.40, 4.10, 3.22, 3.78, 5.32, 3.87, 3.03, 2.95,
	2.64, 5.50, 2.24, 4.28, 2.57, 5.37, 2.11, 4.18, 3.96, 3.27, 3.41, 4.30, 4.44, 3.65, 4.41, 3.40
)