data/Problem10.18b.R

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

Problem10.18b <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 2'
	),
	"X1" = c(
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		1,
		-1,
		1,
		-1
	),
	"X2" = c(
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1
	),
	"X3" = c(
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1
	),
	"X4" = c(
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		-1,
		1,
		1,
		-1
	),
	"X5" = c(
		1,
		-1,
		1,
		-1,
		-1,
		1,
		-1,
		1,
		1,
		-1,
		-1,
		-1
	),
	"X6" = c(
		1,
		1,
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		-1,
		-1
	),
	"X7" = c(
		-1,
		1,
		1,
		-1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		-1
	))