data/Problem9.4.R

Problem9.4 <- data.frame(
	"Brand" = 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',
		'1',
		'1',
		'2',
		'2',
		'3',
		'3',
		'1',
		'1',
		'2',
		'2',
		'3',
		'3',
		'1',
		'1',
		'2',
		'2',
		'3',
		'3'
	),
	"Strength" = c(
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3'
	),
	"Dog" = c(
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'1',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'2',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3',
		'3'
	),
	"EnzymeLevel" = c(
		96,
		84,
		85,
		80,
		84,
		83,
		94,
		95,
		95,
		93,
		95,
		92,
		101,
		105,
		108,
		110,
		105,
		102,
		84,
		85,
		84,
		82,
		83,
		80,
		99,
		97,
		98,
		99,
		97,
		96,
		106,
		104,
		114,
		102,
		100,
		111,
		85,
		86,
		86,
		84,
		81,
		79,
		98,
		90,
		97,
		95,
		93,
		93,
		98,
		103,
		109,
		100,
		106,
		108
	))
ehassler/MontgomeryDAE documentation built on March 20, 2021, 7:08 p.m.