data/Problem14.20.R

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

Problem14.20 <- data.frame(
	"Mix" = c(
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		1,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		2,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		3,
		4,
		4,
		4,
		4,
		4,
		4,
		4,
		4,
		4
	),
	"Method" = c(
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3,
		1,
		2,
		3
	),
	"Day" = c(
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3,
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3,
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3,
		1,
		1,
		1,
		2,
		2,
		2,
		3,
		3,
		3
	),
	"Reflectance" = c(
		64.5,
		68.3,
		70.3,
		65.2,
		69.2,
		71.2,
		66.2,
		69,
		70.8,
		66.3,
		69.5,
		73.1,
		65,
		70.3,
		72.8,
		66.5,
		69,
		74.2,
		74.1,
		73.8,
		78,
		73.8,
		74.5,
		79.1,
		72.3,
		75.4,
		80.1,
		66.5,
		70,
		72.3,
		64.8,
		68.3,
		71.5,
		67.7,
		68.6,
		72.4
	))