data/Problem5.33.R

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

Problem5.33 <- data.frame(
	"Formulation" = c(
		'New',
		'New',
		'Original',
		'Original',
		'New',
		'New',
		'Original',
		'Original',
		'New',
		'New',
		'Original',
		'Original',
		'New',
		'New',
		'Original',
		'Original'
	),
	"Washings" = c(
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2',
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2'
	),
	"Booster" = c(
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'No',
		'No',
		'No',
		'No',
		'No',
		'No',
		'No',
		'No'
	),
	"StainShade" = c(
		6,
		5,
		10,
		9,
		3,
		2,
		10,
		9,
		6,
		5,
		11,
		11,
		4,
		1,
		9,
		10
	))