function (unbalanced = FALSE)
{
    v.rates <- c(0.19, 0.13, 0.5, 0.19, 0.7, 0.66, 0.98, 0.72,
        0.71, 0.57, 0.78, 1.32, 1.47, 1.64, 1.32, 2.67, 3.16,
        2.53, 3.38, 3.93, 4.84, 5.6, 4.93, 6.05, 6.83, 6.6, 8.5,
        7.65, 10.59, 10.42, 10.36, 12, 12.68, 14.34, 17.95, 14.76,
        16.37, 18, 17.6, 23.91, 20.53, 22.6, 24.9, 24.33, 32.7,
        26.24, 27.7, 30.47, 36.94, 38.47, 33.47, 33.61, 36.77,
        43.69, 45.2)
    v.cases <- c(3, 2, 7, 3, 10, 11, 16, 11, 10, 7, 11, 22, 24,
        25, 15, 36, 44, 42, 53, 48, 77, 74, 68, 99, 88, 106,
        131, 99, 142, 134, 157, 184, 189, 180, 177, 193, 232,
        262, 249, 239, 219, 267, 323, 325, 343, 223, 250, 308,
        412, 358, 198, 214, 253, 338, 312)
    row.names <- c("25-29", "30-34", "35-39", "40-44", "45-49",
        "50-54", "55-59", "60-64", "65-69", "70-74", "75-79")
    col.names <- c("1955-1959", "1960-1964", "1965-1969", "1970-1974",
        "1975-1978")
    rates <- matrix(data = v.rates, nrow = 11, ncol = 5, byrow = TRUE,
        dimnames = list(row.names, col.names))
    cases <- matrix(data = v.cases, nrow = 11, ncol = 5, byrow = TRUE,
        dimnames = list(row.names, col.names))
    index.col <- seq(1, 4)
    if (unbalanced)
        index.col <- seq(1:5)
    return(list(rates = rates[, index.col], response = cases[,
        index.col], dose = cases[, index.col]/rates[, index.col],
        data.format = "AP", age1 = 25, per1 = 1955, coh1 = NULL,
        unit = 5, per.zero = NULL, per.max = NULL, time.adjust = 0))