data/Table8.32.R

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

Table8.32 <- rbind(
	expand.grid(
		'A'=c(-1,1),
		'B'=c(-1,1),
		'C'=c(-1,1),
		'D'=c(-1,1)
	),
	expand.grid(
		'A'=c(-1,1),
		'B'=c(-1,1),
		'C'=c(-1,1),
		'D'=c(-1,1)
	)
)
Table8.32['E'] <- Table8.32[,'A'] * Table8.32[,'B'] * Table8.32[,'C']
Table8.32['F'] <- Table8.32[,'B'] * Table8.32[,'C'] * Table8.32[,'D']
Table8.32[,'Blocks'] <- factor(c(rep(1, 16), rep(2, 16)))
Table8.32[17:32,'A'] <- -Table8.32[1:16,'A']
Table8.32[,'Thickness'] = c(
	4524, 4657, 4293, 4516,
	4508, 4432, 4197, 4515,
	4521, 4610, 4295, 4560,
	4487, 4485, 4195, 4510,
	4615, 4445, 4475, 4285,
	4610, 4325, 4330, 4425,
	4655, 4525, 4485, 4310,
	4620, 4335, 4345, 4305
)