data/Problem3.16.R

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

Problem3.16 <- data.frame(
	"Dosage" = c(
		'20g',
		'20g',
		'20g',
		'20g',
		'30g',
		'30g',
		'30g',
		'30g',
		'40g',
		'40g',
		'40g',
		'40g'
	),
	"Activity" = c(
		24,
		28,
		37,
		30,
		37,
		44,
		31,
		35,
		42,
		47,
		52,
		38
	),
	"Resi1" = c(
		-5.75,
		-1.75,
		7.25,
		0.25,
		0.25,
		7.25,
		-5.75,
		-1.75,
		-2.75,
		2.25,
		7.25,
		-6.75
	))