Framingham Longitudinal Study

There are two versions of the Framingham dataset below. Source: Framingham Longitudinal study, via `Analysis of cross-classified categorical data', Fienberg.

As a table of counts for use with the xtabs function: 
"Fram" <- structure(list(
N = c(2, 3, 3, 4, 3, 2, 0, 3, 8, 11, 6, 6, 7, 12, 11, 11, 
      117, 121, 47, 22, 85, 98, 43, 20, 119, 209, 68, 43, 
      67, 99, 46, 33), 
CHD = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
      1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
      2, 2), .Label = c("present", "absent"), class = "factor"), 
SC = structure(c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 
      4, 4, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), 
      .Label = c("<200", "200-219", "220-259", "260+"), 
      class = "factor"), 
BP = structure(c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 
      1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), 
      .Label = c("<127", "127-146", "147-166", "167+"), 
      class = "factor")), 
.Names = c("N", "CHD", "SC", "BP"), 
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", "28", "29", "30", "31", "32"), 
class = "data.frame")

As a binomial response for use with the glm function: 
"Framingham" <- structure(.Data = list(
"present" = c(2., 3., 3., 4., 3., 2., 0., 3., 8., 11., 
              6., 6., 7., 12., 11., 11.), 
"absent" = c(117., 121., 47., 22., 85., 98., 43., 20., 
            119., 209., 68., 43., 67., 99.,  46., 33.), 
"SC" = structure(.Data = c(1, 1, 1, 1, 2, 2, 2, 2, 
                          3, 3, 3, 3, 4, 4, 4, 4), 
        levels = c("<200", "200-219", "220-259", "260+"), 
        class = "factor"), 
"BP" = structure(.Data = c(1, 2, 3, 4, 1, 2, 3, 4, 
                           1, 2, 3, 4, 1, 2, 3, 4), 
        levels = c("<127", "127-146", "147-166", "167+"), 
        class = "factor")), 
names = c("present", "absent", "SC", "BP"), 
row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", 
          "10", "11", "12", "13", "14",	"15", "16"), 
class = "data.frame"
)