data/Problem8.27.R

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

Problem8.27 <- data.frame(
	"Pitch/finesRatio" = c(
		0.45,
		0.55,
		0.45,
		0.55,
		0.45,
		0.55,
		0.45,
		0.55
	),
	"PackType" = c(
		'1',
		'1',
		'2',
		'2',
		'1',
		'1',
		'2',
		'2'
	),
	"PackTemp" = c(
		25,
		25,
		25,
		25,
		325,
		325,
		325,
		325
	),
	"FlueLocation" = c(
		'Outside',
		'Inside',
		'Inside',
		'Outside',
		'Outside',
		'Inside',
		'Inside',
		'Outside'
	),
	"PitTemp" = c(
		195,
		25,
		195,
		25,
		25,
		195,
		25,
		195
	),
	"DelayTime" = c(
		24,
		24,
		0,
		0,
		0,
		0,
		24,
		24
	),
	"Weight" = c(
		1129.6666666667,
		1393,
		1102.6666666667,
		915.33333333333,
		763.66666666667,
		1295.3333333333,
		1292.3333333333,
		1236
	),
	"Range" = c(
		407,
		377,
		327,
		158,
		116,
		84,
		72,
		481
	))