syphilis89a.R

##WORKING WITH DATA IN R
##Syphilis 1989 data
sdat <- c(2, 14, 31, 165, 7, 11,88, 253, 1412, 2257, 210, 158, 407, 
          475, 4059, 4503, 654, 307, 550, 433, 4121, 3590, 633, 
          283, 564, 316, 4453, 2628, 520, 167, 654, 243, 3858, 1505, 
          492, 149, 323, 55, 1619, 392, 202, 40, 216, 24, 823, 92, 
          108, 15)
sdat <- array(sdat,dim = c(2, 3, 8))
dimnames(sdat) <- list(Sex = c("Male", "Female"), 
                       Race = c("White", "Black", "Other"), 
                       Age = c("<=14", "15-19", "20-24", "25-29", 
                       "30-34", "35-44", "45-54", ">=55")) 
sdat