data/Problem8.6.R

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

Problem8.6 <- data.frame(
	"AnnualFee" = c(
		'Current',
		'Lower',
		'Lower',
		'Current',
		'Lower',
		'Current',
		'Current',
		'Lower'
	),
	"Account-openingFee" = c(
		'No',
		'Yes',
		'No',
		'Yes',
		'No',
		'Yes',
		'No',
		'Yes'
	),
	"InitialInterest" = c(
		'Current',
		'Current',
		'Lower',
		'Lower',
		'Current',
		'Current',
		'Lower',
		'Lower'
	),
	"Long-termInterestRate" = c(
		'Low',
		'Low',
		'Low',
		'Low',
		'High',
		'High',
		'High',
		'High'
	),
	"ResponseRate" = c(
		2.45,
		2.29,
		3.39,
		2.32,
		2.24,
		1.69,
		2.29,
		2.03
	))