data/Problem11.33.R

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

Problem11.33 <- data.frame(
	"Run" = c(
		'Center',
		'Axial',
		'Factorial',
		'Factorial',
		'Center',
		'Axial',
		'Axial',
		'Axial',
		'Center',
		'Factorial',
		'Factorial',
		'Axial',
		'Factorial',
		'Center',
		'Axial',
		'Factorial',
		'Factorial',
		'Factorial',
		'Center'
	),
	"Viscosity" = c(
		350,
		350,
		319,
		380,
		350,
		300,
		400,
		350,
		350,
		319,
		380,
		350,
		380,
		350,
		350,
		319,
		319,
		380,
		350
	),
	"Pressure" = c(
		180,
		170,
		186,
		174,
		180,
		180,
		180,
		190,
		180,
		186,
		186,
		180,
		174,
		180,
		180,
		174,
		174,
		186,
		180
	),
	"PlateGap" = c(
		0,
		0,
		1.8,
		1.8,
		0,
		0,
		0,
		0,
		0,
		-1.8,
		-1.8,
		3,
		-1.8,
		0,
		-3,
		-1.8,
		1.8,
		1.8,
		0
	),
	"Tear" = c(
		0,
		0,
		0.45,
		0.85,
		0.35,
		0.3,
		0.7,
		1.9,
		0.25,
		0.1,
		0.15,
		3.9,
		0,
		0.55,
		0,
		0.05,
		0.4,
		4.3,
		0
	),
	"Leakage" = c(
		0.15,
		0.5,
		0.15,
		0.05,
		0.15,
		0.45,
		0.25,
		0,
		0.05,
		0.35,
		0.4,
		0,
		0.45,
		0.2,
		1,
		0.2,
		0.25,
		0.05,
		0
	))