data/Problem13.19.R

Problem13.19 <- data.frame(
	"CycleTime" = c(
		'40',
		'40',
		'40',
		'50',
		'50',
		'50',
		'60',
		'60',
		'60',
		'40',
		'40',
		'40',
		'50',
		'50',
		'50',
		'60',
		'60',
		'60',
		'40',
		'40',
		'40',
		'50',
		'50',
		'50',
		'60',
		'60',
		'60',
		'40',
		'40',
		'40',
		'50',
		'50',
		'50',
		'60',
		'60',
		'60',
		'40',
		'40',
		'40',
		'50',
		'50',
		'50',
		'60',
		'60',
		'60',
		'40',
		'40',
		'40',
		'50',
		'50',
		'50',
		'60',
		'60',
		'60'
	),
	"Operator" = 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',
		'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'
	),
	"Temperature" = c(
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'300',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350',
		'350'
	),
	"Score" = c(
		23,
		24,
		25,
		36,
		35,
		36,
		28,
		24,
		27,
		27,
		28,
		26,
		34,
		38,
		39,
		35,
		35,
		34,
		31,
		32,
		29,
		33,
		34,
		35,
		26,
		27,
		25,
		24,
		23,
		28,
		37,
		39,
		35,
		26,
		29,
		25,
		38,
		36,
		35,
		34,
		38,
		36,
		36,
		37,
		34,
		34,
		36,
		39,
		34,
		36,
		31,
		28,
		26,
		24
	))
ehassler/MontgomeryDAE documentation built on March 20, 2021, 7:08 p.m.