data/Problem14.27.R

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

Problem14.27 <- data.frame(
	"Pressure" = c(
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1
	),
	"Power" = c(
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1
	),
	"GasFlow" = c(
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1
	),
	"GasType" = c(
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4'
	),
	"PaperType" = c(
		'E2',
		'E1',
		'E1',
		'E2',
		'E1',
		'E2',
		'E2',
		'E1',
		'E1',
		'E2',
		'E2',
		'E1',
		'E2',
		'E1',
		'E1',
		'E2'
	),
	"ContactAngle" = c(
		57,
		41.2,
		55.8,
		51.3,
		37.6,
		44.8,
		54.6,
		48.7,
		5,
		56.2,
		33,
		41.8,
		23.7,
		47.5,
		11.3,
		48.2
	))