data/Problem8.7.R

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

Problem8.7 <- data.frame(
	"Block" = c(
		1,
		2,
		2,
		1,
		2,
		1,
		1,
		2,
		2,
		1,
		1,
		2,
		1,
		2,
		2,
		1
	),
	"AnnualFee" = c(
		'Current',
		'Lower',
		'Current',
		'Lower',
		'Current',
		'Lower',
		'Current',
		'Lower',
		'Current',
		'Lower',
		'Current',
		'Lower',
		'Current',
		'Lower',
		'Current',
		'Lower'
	),
	"Account-openingFee" = c(
		'No',
		'No',
		'Yes',
		'Yes',
		'No',
		'No',
		'Yes',
		'Yes',
		'No',
		'No',
		'Yes',
		'Yes',
		'No',
		'No',
		'Yes',
		'Yes'
	),
	"InitialInterest" = c(
		'Current',
		'Current',
		'Current',
		'Current',
		'Lower',
		'Lower',
		'Lower',
		'Lower',
		'Current',
		'Current',
		'Current',
		'Current',
		'Lower',
		'Lower',
		'Lower',
		'Lower'
	),
	"Long-termInterestRate" = c(
		'Low',
		'Low',
		'Low',
		'Low',
		'Low',
		'Low',
		'Low',
		'Low',
		'High',
		'High',
		'High',
		'High',
		'High',
		'High',
		'High',
		'High'
	),
	"ResponseRate" = c(
		2.45,
		3.36,
		2.16,
		2.29,
		2.49,
		3.39,
		2.32,
		2.44,
		1.84,
		2.24,
		1.69,
		1.87,
		2.29,
		2.92,
		2.04,
		2.03
	))