data/Problem3.17.R

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

Problem3.17 <- data.frame(
	"TypeOfCar" = c(
		'Sub-compact',
		'Sub-compact',
		'Sub-compact',
		'Sub-compact',
		'Sub-compact',
		'Sub-compact',
		'Sub-compact',
		'Sub-compact',
		'Sub-compact',
		'Sub-compact',
		'Compact',
		'Compact',
		'Compact',
		'Compact',
		'Compact',
		'Compact',
		'Compact',
		'Compact',
		'Compact',
		'Compact',
		'Midsize',
		'Midsize',
		'Midsize',
		'Midsize',
		'Midsize',
		'Midsize',
		'Midsize',
		'Midsize',
		'Midsize',
		'Midsize',
		'Full Size',
		'Full Size',
		'Full Size',
		'Full Size',
		'Full Size',
		'Full Size',
		'Full Size',
		'Full Size',
		'Full Size',
		'Full Size'
	),
	"Days" = c(
		3,
		5,
		3,
		7,
		6,
		5,
		3,
		2,
		1,
		6,
		1,
		3,
		4,
		7,
		5,
		6,
		3,
		2,
		1,
		7,
		4,
		1,
		3,
		5,
		7,
		1,
		2,
		4,
		2,
		7,
		3,
		5,
		7,
		5,
		10,
		3,
		4,
		7,
		2,
		7
	),
	"SqrtDays" = c(
		1.73205,
		2.23607,
		1.73205,
		2.64575,
		2.44949,
		2.23607,
		1.73205,
		1.41421,
		1,
		2.44949,
		1,
		1.73205,
		2,
		2.64575,
		2.23607,
		2.44949,
		1.73205,
		1.41421,
		1,
		2.64575,
		2,
		1,
		1.73205,
		2.23607,
		2.64575,
		1,
		1.41421,
		2,
		1.41421,
		2.64575,
		1.73205,
		2.23607,
		2.64575,
		2.23607,
		3.16228,
		1.73205,
		2,
		2.64575,
		1.41421,
		2.64575
	),
	"Resi1" = c(
		-0.230672,
		0.273345,
		-0.230672,
		0.683028,
		0.486766,
		0.273345,
		-0.230672,
		-0.54851,
		-0.962723,
		0.486766,
		-0.885538,
		-0.153487,
		0.114462,
		0.760214,
		0.35053,
		0.563952,
		-0.153487,
		-0.471324,
		-0.885538,
		0.760214,
		0.191195,
		-0.808805,
		-0.076754,
		0.427263,
		0.836946,
		-0.808805,
		-0.394591,
		0.191195,
		-0.394591,
		0.836946,
		-0.512947,
		-0.00893,
		0.400753,
		-0.00893,
		0.917279,
		-0.512947,
		-0.244998,
		0.400753,
		-0.830785,
		0.400753
	))