data/Problem8.38.R

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

Problem8.38 <- data.frame(
	"EnvelopeTeaser" = c(
		'Product-specific offer',
		'General offer',
		'Product-specific offer',
		'Product-specific offer',
		'General offer',
		'General offer',
		'General offer',
		'General offer',
		'Product-specific offer',
		'General offer',
		'Product-specific offer',
		'General offer',
		'Product-specific offer',
		'Product-specific offer',
		'Product-specific offer',
		'Product-specific offer',
		'General offer',
		'General offer',
		'Product-specific offer',
		'General offer'
	),
	"ReturnAddress" = c(
		'Add company name',
		'Add company name',
		'Blind',
		'Add company name',
		'Add company name',
		'Blind',
		'Blind',
		'Blind',
		'Blind',
		'Add company name',
		'Blind',
		'Add company name',
		'Blind',
		'Add company name',
		'Add company name',
		'Add company name',
		'Add company name',
		'Blind',
		'Blind',
		'Blind'
	),
	"OfficialInk-stamp" = c(
		'Yes',
		'No',
		'No',
		'Yes',
		'No',
		'No',
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'No',
		'Yes',
		'No',
		'Yes',
		'No',
		'No',
		'No',
		'No',
		'Yes',
		'Yes'
	),
	"Postage" = c(
		'Pre-printed',
		'Pre-printed',
		'Stamp',
		'Stamp',
		'Pre-printed',
		'Stamp',
		'Stamp',
		'Pre-printed',
		'Pre-printed',
		'Pre-printed',
		'Pre-printed',
		'Stamp',
		'Pre-printed',
		'Stamp',
		'Pre-printed',
		'Stamp',
		'Stamp',
		'Stamp',
		'Stamp',
		'Pre-printed'
	),
	"AdditionalGraphics" = c(
		'No',
		'Yes',
		'Yes',
		'No',
		'No',
		'Yes',
		'No',
		'No',
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'No',
		'Yes',
		'No',
		'Yes',
		'No',
		'No',
		'No',
		'Yes'
	),
	"PriceGraphic" = c(
		'Large',
		'Large',
		'Small',
		'Small',
		'Large',
		'Large',
		'Small',
		'Large',
		'Large',
		'Small',
		'Small',
		'Small',
		'Small',
		'Large',
		'Small',
		'Large',
		'Small',
		'Large',
		'Large',
		'Small'
	),
	"Sticker" = c(
		'No',
		'No',
		'No',
		'Yes',
		'Yes',
		'No',
		'No',
		'Yes',
		'No',
		'No',
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'No',
		'Yes',
		'No',
		'Yes',
		'No',
		'Yes'
	),
	"Personalizeletter" = c(
		'Yes',
		'Yes',
		'Yes',
		'Yes',
		'No',
		'No',
		'Yes',
		'Yes',
		'No',
		'Yes',
		'Yes',
		'No',
		'No',
		'No',
		'No',
		'Yes',
		'No',
		'Yes',
		'No',
		'No'
	),
	"CopyMessage" = c(
		'Targeted',
		'Generic',
		'Generic',
		'Generic',
		'Generic',
		'Targeted',
		'Targeted',
		'Generic',
		'Generic',
		'Targeted',
		'Generic',
		'Generic',
		'Targeted',
		'Targeted',
		'Targeted',
		'Targeted',
		'Generic',
		'Targeted',
		'Generic',
		'Targeted'
	),
	"LetterHeadline" = c(
		'Headline 2',
		'Headline 1',
		'Headline 2',
		'Headline 2',
		'Headline 2',
		'Headline 2',
		'Headline 1',
		'Headline 1',
		'Headline 2',
		'Headline 2',
		'Headline 1',
		'Headline 2',
		'Headline 2',
		'Headline 1',
		'Headline 1',
		'Headline 1',
		'Headline 1',
		'Headline 2',
		'Headline 1',
		'Headline 1'
	),
	"ListOfBenefits" = c(
		'Standard layout',
		'Creative layout',
		'Standard layout',
		'Creative layout',
		'Creative layout',
		'Creative layout',
		'Creative layout',
		'Standard layout',
		'Standard layout',
		'Creative layout',
		'Creative layout',
		'Standard layout',
		'Creative layout',
		'Creative layout',
		'Standard layout',
		'Standard layout',
		'Standard layout',
		'Standard layout',
		'Creative layout',
		'Standard layout'
	),
	"PostscriptOnLetter" = c(
		'New P.S.',
		'Control version',
		'New P.S.',
		'Control version',
		'New P.S.',
		'New P.S.',
		'New P.S.',
		'New P.S.',
		'Control version',
		'Control version',
		'New P.S.',
		'New P.S.',
		'Control version',
		'New P.S.',
		'New P.S.',
		'Control version',
		'Control version',
		'Control version',
		'Control version',
		'Control version'
	),
	"Signature" = c(
		'Manager',
		'Senior Executive',
		'Manager',
		'Senior Executive',
		'Manager',
		'Senior Executive',
		'Senior Executive',
		'Senior Executive',
		'Senior Executive',
		'Manager',
		'Manager',
		'Senior Executive',
		'Senior Executive',
		'Manager',
		'Senior Executive',
		'Senior Executive',
		'Manager',
		'Manager',
		'Manager',
		'Manager'
	),
	"ProductSelection" = c(
		'Many',
		'Many',
		'Few',
		'Many',
		'Few',
		'Many',
		'Few',
		'Few',
		'Few',
		'Few',
		'Many',
		'Many',
		'Few',
		'Few',
		'Many',
		'Few',
		'Few',
		'Many',
		'Many',
		'Many'
	),
	"ValueOfFreeGift" = c(
		'High',
		'High',
		'High',
		'Low',
		'High',
		'Low',
		'High',
		'Low',
		'Low',
		'Low',
		'Low',
		'High',
		'High',
		'Low',
		'Low',
		'High',
		'Low',
		'Low',
		'High',
		'High'
	),
	"ReplyEnvelope" = c(
		'Control',
		'Control',
		'Control',
		'Control',
		'New Style',
		'Control',
		'New Style',
		'Control',
		'New Style',
		'New Style',
		'New Style',
		'New Style',
		'Control',
		'Control',
		'New Style',
		'New Style',
		'Control',
		'New Style',
		'New Style',
		'Control'
	),
	"InformationOnBuckslip" = c(
		'Free gift info',
		'Product info',
		'Product info',
		'Product info',
		'Product info',
		'Free gift info',
		'Product info',
		'Free gift info',
		'Product info',
		'Free gift info',
		'Free gift info',
		'Free gift info',
		'Free gift info',
		'Product info',
		'Product info',
		'Free gift info',
		'Free gift info',
		'Product info',
		'Free gift info',
		'Product info'
	),
	"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
	))