data/Problem8.18.R

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

Problem8.18 <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 1',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2',
		'Block 2'
	),
	"A" = c(
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1
	),
	"B" = c(
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1
	),
	"C" = c(
		-1,
		-1,
		-1,
		-1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		-1,
		-1,
		-1,
		-1
	),
	"D" = c(
		1,
		-1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		-1,
		1,
		1,
		-1,
		-1,
		1,
		1,
		-1
	),
	"E" = c(
		1,
		-1,
		1,
		-1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		-1,
		1,
		1,
		-1,
		1,
		-1
	))