data/Problem15.5.R

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

Problem15.5 <- 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
	),
	"Variance" = c(
		350.33333333209,
		101.33333333209,
		361,
		163,
		543,
		186.33333333209,
		121.33333333209,
		85.333333332091,
		58.333333332091,
		44.333333332091,
		105.33333333209,
		69.333333332091,
		171,
		116.33333333209,
		282.33333333209,
		65.333333332091,
		857.33333333209,
		157,
		22.333333332091,
		20.333333332091,
		241.33333333209,
		61,
		272.33333333209,
		417.33333333209,
		524.33333333209,
		261.33333333209,
		154.33333333209,
		481.33333333209,
		342.33333333209,
		234.33333333209,
		324,
		84
	))