data/Problem4.15.R

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

Problem4.15 <- data.frame(
	"NozzleDesign" = c(
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'4',
		'4',
		'4',
		'4',
		'4',
		'4',
		'5',
		'5',
		'5',
		'5',
		'5',
		'5'
	),
	"JetVelocity" = c(
		11.73,
		14.37,
		16.59,
		20.43,
		23.46,
		28.74,
		11.73,
		14.37,
		16.59,
		20.43,
		23.46,
		28.74,
		11.73,
		14.37,
		16.59,
		20.43,
		23.46,
		28.74,
		11.73,
		14.37,
		16.59,
		20.43,
		23.46,
		28.74,
		11.73,
		14.37,
		16.59,
		20.43,
		23.46,
		28.74
	),
	"Shape" = c(
		0.78,
		0.8,
		0.81,
		0.75,
		0.77,
		0.78,
		0.85,
		0.85,
		0.92,
		0.86,
		0.81,
		0.83,
		0.93,
		0.92,
		0.95,
		0.89,
		0.89,
		0.83,
		1.14,
		0.97,
		0.98,
		0.88,
		0.86,
		0.83,
		0.97,
		0.86,
		0.78,
		0.76,
		0.76,
		0.75
	))