帮忙看看结果出了什么问题呗

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

fan <- function ()
{
    v.rates <- c(0.58,0.5,0.57,1,0.67,0.28,0.18,0.14,0.42,0.67,0.21,0.14,
   0.1,0.11,0.57,0.07,0.11,0,0.33,0.25,0.05,0,0,0,0.04,0.02,0.01,0,0,0,0.01,
    0.02,0,0,0,0.01,0.01,0.02,0,0)
    v.cases <- c(7,7,4,4,2,11,18,8,5,2,16,14,11,3,4,
     2,3,0,5,1,7,0,0,0,1,6,1,0,0,0,1,6,0,0,0,1,2,1,0,0)
    row.names <- c("15-20", "21-25", "26-30, "31-35", "36-40")
    col.names <- c("1946-1950", "1951-1955", "1956-1960", "1961-1965",
        "1966-1970","1971-1975","1976-1980","1981-1985")
    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))
    return(list(rates = rates, response = cases, dose = cases/rates,
        data.format = "AP", age1 = 15, per1 = 1946, coh1 = NULL,
        unit = 5, per.zero = NULL, per.max = NULL, time.adjust = 0))
}
运行结果：Error in source("C:\\Users\\Administrator\\Desktop\\fan.R") :
  C:\Users\Administrator\Desktop\fan.R:8:47: unexpected numeric constant
7: 2,3,0,5,1,7,0,0,0,1,6,1,0,0,0,1,6,0,0,0,1,2,1,0,0)
8:     row.names <- c("15-20", "21-25", "26-30, "31

为什么呢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Fan

26-30那里少了一个引号

xuxinpeng45 发表于 2015-5-30 15:51
26-30那里少了一个引号

你好，我用APC包里面的程序
apc.fit.table(data.list,"poisson.dose.response")
Error in glm.fit(design, v.response, family = poisson(link = "log"), offset = log(v.dose)) :
  NA/NaN/Inf in 'y'

出现如下错误，是什么意思 该怎么办

可能是你的数据里有missing的数据。