data/Problem9.23d.R

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

Problem9.23d <- data.frame(
	"Time" = c(
		'8am',
		'11am',
		'3pm',
		'8am',
		'11am',
		'3pm',
		'8am',
		'11am',
		'3pm',
		'8am',
		'11am',
		'3pm',
		'8am',
		'11am',
		'3pm',
		'8am',
		'11am',
		'3pm',
		'8am',
		'11am',
		'3pm',
		'8am',
		'11am',
		'3pm'
	),
	"Process" = c(
		'P1',
		'P1',
		'P1',
		'P2',
		'P2',
		'P2',
		'P1',
		'P1',
		'P1',
		'P2',
		'P2',
		'P2',
		'P1',
		'P1',
		'P1',
		'P2',
		'P2',
		'P2',
		'P1',
		'P1',
		'P1',
		'P2',
		'P2',
		'P2'
	),
	"Machine" = c(
		'M1',
		'M1',
		'M1',
		'M1',
		'M1',
		'M1',
		'M2',
		'M2',
		'M2',
		'M2',
		'M2',
		'M2',
		'M3',
		'M3',
		'M3',
		'M3',
		'M3',
		'M3',
		'M4',
		'M4',
		'M4',
		'M4',
		'M4',
		'M4'
	),
	"Avg" = c(
		4.75,
		2.25,
		6,
		2.75,
		0.75,
		4,
		6.5,
		6.75,
		7.75,
		4.5,
		3.5,
		6.25,
		1.75,
		1.5,
		2,
		0,
		0.5,
		-0.5,
		5.5,
		8.25,
		6.75,
		4.5,
		5.5,
		3.5
	),
	"Log(var)" = c(
		12.25,
		8.9166666666667,
		4.6666666666667,
		7.5833333333333,
		4.25,
		10,
		3.6666666666667,
		3.5833333333333,
		10.916666666667,
		1.6666666666667,
		4.3333333333333,
		18.916666666667,
		2.9166666666667,
		1.6666666666667,
		8.6666666666667,
		0.66666666666667,
		1.6666666666667,
		11.666666666667,
		3,
		4.9166666666667,
		7.5833333333333,
		0.33333333333333,
		7,
		8.3333333333333
	))