楼主: llkknnllyytt
1073 1

[问答] R求助 循环语句 [推广有奖]

  • 2关注
  • 4粉丝

讲师

25%

还不是VIP/贵宾

-

威望
0
论坛币
142 个
通用积分
2.0205
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
5071 点
帖子
324
精华
0
在线时间
229 小时
注册时间
2015-1-12
最后登录
2023-7-3

楼主
llkknnllyytt 发表于 2015-5-26 19:05:35 |AI写论文

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

请问这里有NAN的出现,怎么利用循环语句把NAN替换成0呢

二维码

扫码加我 拉你入群

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

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

关键词:循环语句 R求助 unbalanced unbalance function function

沙发
victorchan0633 发表于 2015-6-10 12:11:53
没有NAN,是NULL吧,不用替换成0了

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-2-13 11:04