data/Problem14.26.R

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

Problem14.26 <- data.frame(
	"Pressure" = c(
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-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,
		-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,
		-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',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'Oxygen',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4',
		'SiCl4'
	),
	"PaperType" = c(
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E1',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2',
		'E2'
	),
	"ContactAngle" = c(
		48.6,
		41.2,
		55.8,
		53.5,
		37.6,
		47.2,
		47.2,
		48.7,
		5,
		56.8,
		25.6,
		41.8,
		13.3,
		47.5,
		11.3,
		49.5,
		57,
		38.2,
		62.9,
		51.3,
		43.5,
		44.8,
		54.6,
		44.4,
		18.1,
		56.2,
		33,
		37.8,
		23.7,
		43.2,
		23.9,
		48.2
	))