Challenger Shuttle O-Ring Data

These data are from Table 1 of the article "Risk Analysis of the Space Shuttle: Pre-Challenger Predication of Failure" by Dalal, Fowlkes and Hoadley, Journal of the American Statistical Association, Vol. 84, No. 408 (Dec. 1989), pp. 945-957. The variables are as follows:

Flight = Flight number
Date = Date of launch
Field = Number of primary field-joint O-rings (out of 6) that experienced erosion or blowby
Temp = Joint temperature at time of launch
Pres = Field-joint leak-check pressure

The Challenger launched at a temperature of 31 degrees F.

Copy and paste the following into your R session. This will create an R object called "Orings" which contains the data.

Orings <- structure(list(
  Flight = structure(c(1L, 2L, 3L, 8L, 17L, 22L, 
    23L, 24L, 4L, 5L, 6L, 7L, 9L, 11L, 12L, 10L, 14L, 13L, 15L, 16L, 
    18L, 19L, 20L), .Label = c("1", "2", "3", "41-B", "41-C", "41-D", 
    "41-G", "5", "51-A", "51-B", "51-C", "51-D", "51-F", "51-G", 
    "51-I", "51-J", "6", "61-A", "61-B", "61-C", "61-I", "7", "8", 
    "9"), class = "factor"), 
  Date = structure(c(8L, 22L, 5L, 21L, 
    6L, 11L, 15L, 24L, 4L, 7L, 16L, 18L, 20L, 2L, 9L, 10L, 12L, 13L, 
    14L, 17L, 19L, 23L, 1L), .Label = c("01/12/86", "01/24/85", "01/28/86", 
    "02/03/84", "03/22/82", "04/04/83", "04/06/84", "04/12/81", "04/12/85", 
    "04/29/85", "06/16/83", "06/17/85", "07/29/85", "08/27/85", "08/30/83", 
    "08/30/84", "10/03/85", "10/05/84", "10/30/85", "11/08/84", "11/11/82", 
    "11/12/81", "11/26/85", "11/28/83"), class = "factor"), 
  Field = c(0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 3, 0, 0, 0, 0, 0, 0, 2, 0, 1), 
  Temp = c(66, 70, 69, 68, 67, 72, 73, 70, 57, 63, 70, 78, 
    67, 53, 67, 75, 70, 81, 76, 79, 75, 76, 58), 
  Pres = c(50, 50, 50, 50, 50, 50, 100, 100, 200, 200, 200, 
    200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200)), 
  .Names = c("Flight", "Date", "Field", "Temp", "Pres"), 
  row.names = c(NA, 23L), class = "data.frame")