data/Problem7.10.R

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

Problem7.10 <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2',
		'Block 1',
		'Block 2'
	),
	"Carbonation" = c(
		10,
		10,
		12,
		12,
		10,
		10,
		12,
		12,
		10,
		10,
		12,
		12,
		10,
		10,
		12,
		12
	),
	"Pressure" = c(
		25,
		25,
		25,
		25,
		30,
		30,
		30,
		30,
		25,
		25,
		25,
		25,
		30,
		30,
		30,
		30
	),
	"Speed" = c(
		200,
		200,
		200,
		200,
		200,
		200,
		200,
		200,
		250,
		250,
		250,
		250,
		250,
		250,
		250,
		250
	),
	"FillHeightDeviation" = c(
		-3,
		-1,
		0,
		1,
		-1,
		0,
		2,
		3,
		-1,
		0,
		2,
		1,
		1,
		1,
		6,
		5
	))