命令求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

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))
}
<environment: namespace:apc>
>

谁能帮看看这是怎么建立的数据库，seq(1,4这类的说的什么

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：unbalanced unbalance function Balanced balance function

ryoeng 发表于 2015-5-22 21:59

你好，能不能加下我的QQ，我现在非常需要帮助，怕这是说不明白，这个例子是5行，11列的。但是我的数据时5行，8列的，所以我不知道下面的语句应该怎么更改，能帮帮忙不

ryoeng 发表于 2015-5-22 21:59

如果我的行和列有变化，index.col <- if(unbalanced){seq(1:5)}else{seq(1:4)}，这句话是不也发生改变呢？

ryoeng 发表于 2015-5-25 18:14
咱没有使用QQ，无论几行几列都是一样的操作法，就像1+1=2, 数目加大的 10+20 就一定会是 30 而不可能是20， ...

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))

你能不能告诉我下这个什么seq(1,4),然后又（1,5)啥意思。毕竟我的数据行和列和例子是同的，数据和这个seq(1,5)肯定有关的呀

ryoeng 发表于 2015-5-22 21:59

而且我想知道为什么，bal的时候就出来4列，bal(true)的时候就出来5列