data/Problem6.39.R

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

Problem6.39 <- data.frame(
	"ToolAngle" = c(
		12,
		15,
		12,
		15,
		12,
		15,
		12,
		15,
		12,
		15,
		12,
		15,
		12,
		15,
		12,
		15
	),
	"Viscosity" = c(
		300,
		300,
		400,
		400,
		300,
		300,
		400,
		400,
		300,
		300,
		400,
		400,
		300,
		300,
		400,
		400
	),
	"FeetRate" = c(
		10,
		10,
		10,
		10,
		15,
		15,
		15,
		15,
		10,
		10,
		10,
		10,
		15,
		15,
		15,
		15
	),
	"CuttingFluid" = c(
		'no',
		'no',
		'no',
		'no',
		'no',
		'no',
		'no',
		'no',
		'yes',
		'yes',
		'yes',
		'yes',
		'yes',
		'yes',
		'yes',
		'yes'
	),
	"SurfaceRoughness" = c(
		0.0034,
		0.00362,
		0.00301,
		0.00182,
		0.0028,
		0.0029,
		0.00252,
		0.0016,
		0.00336,
		0.00344,
		0.00308,
		0.00184,
		0.00269,
		0.00284,
		0.00253,
		0.00163
	))