Shuttle O-Ring data

"Orings" <- 
structure(.Data = list(
"temp" = c(81., 80., 79., 78., 76., 76., 75., 75., 
                  73., 72., 70., 70., 70., 70., 69.,
	68., 67., 67., 67., 66., 63., 58., 57., 53.), 
"Y" = c(0., 0., 0., 0., 0., 0., 0., 2., 0., 0., 
                0., 0., 1., 1., 0., 0., 0., 0., 0.,
	        0., 1., 1., 1., 3.), 
"N" = c(6., 6., 6., 6., 6., 6., 6., 6., 6., 6., 6., 
6., 6., 6., 6., 6., 6., 6., 6.,
	6., 6., 6., 6., 6.)), 
names = c("temp", "Y", "N"), 
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"), 
class = "data.frame")