帮看看R语言呗

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

function (unbalanced = FALSE)
{
    v.rates <- c(0.58,0.28,0.21,0.07,0.05,0.02,0.01,0.01,
0.5,0.18,0.14,0.11,0,0.01,0.02,0.01,
0.57,0.14,0.1,0,0,0.01,0,0.02,
1,0.42,0.11,0.33,0,0,0,0,
0.67,0.67,0.57,0.25,0.04,0,0,0)
    v.cases <- c(7,11,16,2,7,6,1,1,
7,18,14,3,0,1,6,2,
4,8,11,0,0,0,0,1,
4,5,3,5,0,0,0,0,
2,2,4,1,1,0,0,0)
    row.names <- c("25-29", "30-34", "35-39", "40-44", "45-49")
    col.names <- c("1955-1959", "1960-1964", "1965-1969", "1970-1974",
        "1975-1978","1979-1983","1984-1988","1989-1993")
    rates <- matrix(data = v.rates, nrow = 5, ncol = 8, byrow = TRUE,
        dimnames = list(row.names, col.names))
    cases <- matrix(data = v.cases, nrow = 5, ncol = 8, 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))
}

请问这个balanced 说的是什么？seq(1,4).不平衡就seq(1,5)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 unbalanced unbalance function Balanced function

unbalanced表示逻辑判断值，这里rates和cases分别是5行8列的矩阵，当条件成立时dose = cases[, index.col]/rates[, index.col]表示两个矩阵的5行5列的对应值相除，否则为5行4列的对应值相除。