data/Problem8.38e.R

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

Problem8.38e <- data.frame(
	"Sticker" = c(
		'No',
		'No',
		'No',
		'Yes',
		'Yes',
		'No',
		'No',
		'Yes',
		'No',
		'No',
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'No',
		'Yes',
		'No',
		'Yes',
		'No',
		'Yes'
	),
	"SecondBuckslip" = c(
		'Yes',
		'Yes',
		'No',
		'No',
		'No',
		'No',
		'Yes',
		'No',
		'Yes',
		'No',
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'No',
		'No',
		'Yes',
		'Yes',
		'No',
		'No'
	),
	"InterestRate" = c(
		'Low',
		'High',
		'High',
		'Low',
		'Low',
		'Low',
		'Low',
		'High',
		'Low',
		'High',
		'Low',
		'High',
		'High',
		'High',
		'High',
		'Low',
		'Low',
		'High',
		'High',
		'Low'
	),
	"Orders" = c(
		52,
		38,
		42,
		134,
		104,
		60,
		61,
		68,
		57,
		30,
		108,
		39,
		40,
		49,
		37,
		99,
		86,
		43,
		47,
		104
	),
	"ResponseRate" = c(
		1.04,
		0.76,
		0.84,
		2.68,
		2.08,
		1.2,
		1.22,
		1.36,
		1.14,
		0.6,
		2.16,
		0.78,
		0.8,
		0.98,
		0.74,
		1.98,
		1.72,
		0.86,
		0.94,
		2.08
	))