data/Table4.3.R

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

Table4.3 <- data.frame(
	'ExtrusionPressure' = c(
		'8500', '8700', '8900', '9100',
		'8500', '8700', '8900', '9100',
		'8500', '8700', '8900', '9100',
		'8500', '8700', '8900', '9100',
		'8500', '8700', '8900', '9100',
		'8500', '8700', '8900', '9100'
	),
	'BatchOfResin' = c(
		'1', '1', '1', '1',
		'2', '2', '2', '2',
		'3', '3', '3', '3',
		'4', '4', '4', '4',
		'5', '5', '5', '5',
		'6', '6', '6', '6'
	),
	'Flicks' = c(
		90.3,
		92.5,
		85.5,
		82.5,
		89.2,
		89.5,
		90.8,
		89.5,
		98.2,
		90.6,
		89.6,
		85.6,
		93.9,
		94.7,
		86.2,
		87.4,
		87.4,
		87.0,
		88.0,
		78.9,
		97.9,
		95.8,
		93.4,
		90.7
	)
)