"WoolData"<-
structure(.Data = list(Length = c(-1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 
	0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1), Amplitude = c(-1, -1, -1, 
	0, 0, 0, 1, 1, 1, -1, -1, -1, 0, 0, 0, 1, 1, 1, -1, -1, -1, 0, 0, 0, 1, 
	1, 1), Load = c(-1, 0, 1, -1, 0, 1, -1, 0, 1, -1, 0, 1, -1, 0, 1, -1, 0,
	1, -1, 0, 1, -1, 0, 1, -1, 0, 1), CyclesToFailure = c(674, 370, 292, 
	338, 266, 210, 170, 118, 90, 1414, 1198, 634, 1022, 620, 438, 442, 332, 
	220, 3636, 3184, 2000, 1568, 1070, 566, 1140, 884, 360)), row.names = 
	c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
	"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", 
	"26", "27"), class = "data.frame")