data-raw/example.small.R

In mnel/dsrTest: Tests and Confidence Intervals on Directly Standardized Rates for Several Methods

#' Fleiss table 14.4 (p 249)
#' 
#' 
#' From Stark CR and Mantel N (1966) 'Effects of maternal age and 
#' birth order on the risk of mongolism and leukemia' 
#' *J Natl Cancer Inst* **37** (5) 687--698. \doi{doi:10.1093/jnci/37.5.687}


downs.mi <- structure(
  list(
    Age = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 
     3L, 3L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 6L, 7L, 7L, 7L, 
     7L), .Label = c("<20", "20-24", "25-29", "30-34", "35-39", "40-50", 
     "40+"), class = "factor"), 
    BirthOrder = c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 
      4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L), 
    Cases = c(107, 25, 3, 1, 0, 141, 150, 71, 26, 8, 60, 
      110, 114, 64,  63, 40, 84, 103, 89, 112, 39, 82, 108, 
      137, 262, 25,39, 75, 96, 295), 
    Births = c(230061, 72202, 15050, 2293,  327, 329449, 326701, 
      175702, 68800, 30666, 114920, 208667, 207081, 132424, 
      123419, 39487, 83228, 117300, 98301, 149919, 14208, 
      28466, 45026, 46075, 104088, 3052, 5375, 8660, 9834, 34392), 
    Standard = c(319933, 319933, 319933, 319933, 
  319933, 931318, 931318, 931318, 931318, 931318, 786511, 
  786511, 786511, 786511, 786511, 488235, 488235, 488235, 
  488235, 488235, 237863, 237863, 237863, 237863, 237863, 
  61313, 61313, 61313, 61313, 61313)), 
  .Names = c("Age", "BirthOrder",  "Cases", "Births", "Standard"), 
  class = "data.frame", row.names = c(NA, -30L))