data/Table8.31.R

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

Table8.31 <- expand.grid(
	'A'=c(-1,1),
	'B'=c(-1,1),
	'C'=c(-1,1),
	'D'=c(-1,1)
)
Table8.31['E'] <- Table8.31[,'A'] * Table8.31[,'B'] * Table8.31[,'C']
Table8.31['F'] <- Table8.31[,'B'] * Table8.31[,'C'] * Table8.31[,'D']
Table8.31[,'Thickness'] = c(
	4524, 4657, 4293, 4516,
	4508, 4432, 4197, 4515,
	4521, 4610, 4295, 4560,
	4487, 4485, 4195, 4510
)