data/Problem8.29.R

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

Problem8.29 <- data.frame(
	"Volume" = c(
		3,
		3,
		3,
		3,
		5,
		5,
		3,
		5,
		5,
		5,
		3,
		3,
		5,
		3,
		3,
		3,
		3,
		3,
		3,
		5,
		5,
		5,
		5,
		3,
		5,
		5,
		5,
		3,
		5,
		5,
		5,
		3
	),
	"Batch" = c(
		'Batch 2',
		'Batch 2',
		'Batch 2',
		'Batch 1',
		'Batch 2',
		'Batch 1',
		'Batch 2',
		'Batch 2',
		'Batch 1',
		'Batch 2',
		'Batch 1',
		'Batch 1',
		'Batch 1',
		'Batch 2',
		'Batch 2',
		'Batch 2',
		'Batch 1',
		'Batch 1',
		'Batch 1',
		'Batch 2',
		'Batch 1',
		'Batch 1',
		'Batch 1',
		'Batch 2',
		'Batch 2',
		'Batch 2',
		'Batch 1',
		'Batch 1',
		'Batch 2',
		'Batch 2',
		'Batch 1',
		'Batch 1'
	),
	"Time" = c(
		14,
		14,
		14,
		14,
		14,
		6,
		6,
		14,
		14,
		6,
		6,
		6,
		14,
		6,
		6,
		14,
		14,
		6,
		14,
		14,
		14,
		14,
		6,
		6,
		6,
		14,
		6,
		6,
		6,
		6,
		6,
		14
	),
	"Speed" = c(
		6650,
		7350,
		7350,
		6650,
		7350,
		6650,
		6650,
		7350,
		7350,
		7350,
		7350,
		7350,
		6650,
		7350,
		7350,
		6650,
		7350,
		6650,
		6650,
		6650,
		6650,
		7350,
		7350,
		6650,
		7350,
		6650,
		6650,
		6650,
		6650,
		6650,
		7350,
		7350
	),
	"Acc" = c(
		5,
		20,
		5,
		5,
		20,
		20,
		20,
		5,
		5,
		20,
		5,
		20,
		20,
		20,
		5,
		20,
		20,
		20,
		20,
		20,
		5,
		20,
		20,
		5,
		5,
		5,
		5,
		5,
		20,
		5,
		5,
		5
	),
	"Cover" = c(
		'Off',
		'Off',
		'On',
		'On',
		'On',
		'Off',
		'Off',
		'Off',
		'On',
		'Off',
		'On',
		'Off',
		'On',
		'On',
		'Off',
		'On',
		'On',
		'On',
		'Off',
		'Off',
		'Off',
		'Off',
		'On',
		'On',
		'On',
		'On',
		'On',
		'Off',
		'On',
		'Off',
		'Off',
		'Off'
	),
	"ThickAvg" = c(
		4690.7,
		4317.3,
		4535,
		4656,
		4262,
		4485.7,
		4521.7,
		4525.7,
		4382.7,
		4300.3,
		4493.3,
		4223.7,
		4451,
		4220.3,
		4530.3,
		4478.7,
		4198.7,
		4467,
		4497.7,
		4542.3,
		4625.7,
		4235,
		4196.7,
		4664.7,
		4515.7,
		4667.7,
		4626.7,
		4464.7,
		4474.7,
		4677.7,
		4446,
		4297
	),
	"Range" = c(
		35,
		20,
		37,
		25,
		45,
		25,
		22,
		16,
		15,
		13,
		20,
		16,
		24,
		20,
		33,
		16,
		58,
		25,
		9,
		9,
		30,
		14,
		33,
		38,
		44,
		32,
		22,
		38,
		33,
		29,
		36,
		18
	))