data/Problem5.15.R

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

Problem5.15 <- data.frame(
	"GlassType" = 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
	),
	"Temperature" = c(
		100,
		100,
		100,
		100,
		100,
		100,
		100,
		100,
		100,
		125,
		125,
		125,
		125,
		125,
		125,
		125,
		125,
		125,
		150,
		150,
		150,
		150,
		150,
		150,
		150,
		150,
		150
	),
	"LightOutput" = c(
		580,
		568,
		570,
		550,
		530,
		579,
		546,
		575,
		599,
		1090,
		1087,
		1085,
		1070,
		1035,
		1000,
		1045,
		1053,
		1066,
		1392,
		1380,
		1386,
		1328,
		1312,
		1299,
		867,
		904,
		889
	))