data/Table5.13.R

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

Table5.13 <- data.frame(
	'PctCarbonation' = c(
		10, 10, 12, 12, 14, 14,
		10, 10, 12, 12, 14, 14,
		10, 10, 12, 12, 14, 14,
		10, 10, 12, 12, 14, 14
	),
	'OperatingPressure' = c(
		25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
		30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30
	),
	'LineSpeed' = c(
		200, 200, 200, 200, 200, 200,
		250, 250, 250, 250, 250, 250,
		200, 200, 200, 200, 200, 200,
		250, 250, 250, 250, 250, 250
	),
	'FillHeightDeviation' = c(
		-3, -1, 0, 1, 5, 4,
		-1, 0, 2, 1, 7, 6,
		-1, 0, 2, 3, 7, 9,
		1, 1, 6, 5, 10, 11
	)
)