data/Problem9.3.R

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

Problem9.3 <- data.frame(
	"BottleType" = c(
		'Plastic',
		'Plastic',
		'28mm glass',
		'28mm glass',
		'38mm glass',
		'38mm glass',
		'Plastic',
		'Plastic',
		'28mm glass',
		'28mm glass',
		'38mm glass',
		'38mm glass',
		'Plastic',
		'Plastic',
		'28mm glass',
		'28mm glass',
		'38mm glass',
		'38mm glass',
		'Plastic',
		'Plastic',
		'28mm glass',
		'28mm glass',
		'38mm glass',
		'38mm glass',
		'Plastic',
		'Plastic',
		'28mm glass',
		'28mm glass',
		'38mm glass',
		'38mm glass',
		'Plastic',
		'Plastic',
		'28mm glass',
		'28mm glass',
		'38mm glass',
		'38mm glass',
		'Plastic',
		'Plastic',
		'28mm glass',
		'28mm glass',
		'38mm glass',
		'38mm glass',
		'Plastic',
		'Plastic',
		'28mm glass',
		'28mm glass',
		'38mm glass',
		'38mm glass',
		'Plastic',
		'Plastic',
		'28mm glass',
		'28mm glass',
		'38mm glass',
		'38mm glass'
	),
	"ShelfType" = c(
		'Permanent',
		'Permanent',
		'Permanent',
		'Permanent',
		'Permanent',
		'Permanent',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'Cooler',
		'Cooler',
		'Cooler',
		'Cooler',
		'Cooler',
		'Cooler',
		'Permanent',
		'Permanent',
		'Permanent',
		'Permanent',
		'Permanent',
		'Permanent',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'Cooler',
		'Cooler',
		'Cooler',
		'Cooler',
		'Cooler',
		'Cooler',
		'Permanent',
		'Permanent',
		'Permanent',
		'Permanent',
		'Permanent',
		'Permanent',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'End Aisle',
		'Cooler',
		'Cooler',
		'Cooler',
		'Cooler',
		'Cooler',
		'Cooler'
	),
	"Worker" = c(
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3'
	),
	"Time" = c(
		3.45,
		3.36,
		4.07,
		3.52,
		4.2,
		3.68,
		4.14,
		4.19,
		4.38,
		4.26,
		4.26,
		4.37,
		5.8,
		5.23,
		5.48,
		4.85,
		5.67,
		5.58,
		4.8,
		4.4,
		4.52,
		4.44,
		4.96,
		4.39,
		5.22,
		4.7,
		5.15,
		4.65,
		5.17,
		4.75,
		6.21,
		5.88,
		6.25,
		6.2,
		6.03,
		6.38,
		4.08,
		3.65,
		4.3,
		4.04,
		4.17,
		3.88,
		3.94,
		4.08,
		4.53,
		4.08,
		4.86,
		4.48,
		5.14,
		4.49,
		4.99,
		4.59,
		4.85,
		4.9
	))