data/Table5.1.R

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

Table5.1 <- data.frame(
	'MaterialType' = c(
		'1', '1', '2', '2', '3', '3',
		'1', '1', '2', '2', '3', '3',
		'1', '1', '2', '2', '3', '3',
		'1', '1', '2', '2', '3', '3',
		'1', '1', '2', '2', '3', '3',
		'1', '1', '2', '2', '3', '3'
	),
	'Temperature' = c(
		15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
		70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70,
		125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125
	),
	'BatteryLife' = c(
		130,
		74,
		150,
		159,
		138,
		168,
		155,
		180,
		188,
		126,
		110,
		160,
		34,
		80,
		136,
		106,
		174,
		150,
		40,
		75,
		122,
		115,
		120,
		139,
		20,
		82,
		25,
		58,
		96,
		82,
		70,
		58,
		70,
		45,
		104,
		60
	)
)