data/Problem5.40.R

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

Problem5.40 <- data.frame(
	"Block" = c(
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3',
		'Block 1',
		'Block 2',
		'Block 3'
	),
	"PhosphorType" = c(
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3,
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3
	),
	"GlassType" = c(
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2
	),
	"Current" = c(
		280,
		290,
		285,
		300,
		310,
		295,
		290,
		285,
		290,
		230,
		235,
		240,
		260,
		240,
		235,
		220,
		225,
		230
	))