R bayes

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

posterior0=function (n, init, prior, lh=c("gev"),...,psd,burn = 0,thin = 1)
   {
       ar <- list(...)
       if (lh == "gev") {
        nas <- !is.na(ar$data)      ##判断空值
        ar$data <- ar$data[nas]
        if (!is.null(ar$trend))
            ar$trend <- ar$trend[nas]
    }
    initar <- c(list(par = init, prior = prior, lh = lh), ar)
    inittest <- do.call("dpost", initar)
    if (is.infinite(inittest))
        stop("density is zero at initial parameter values")
    ar <- c(list(n = n, init = init, prior = prior, lh = lh),
        ar, list(psd = psd, thin = thin, burn = burn))
    do.call("gibbs", ar)
}

哪们大神给理解下，那个...  ar <- list(...)  (ar$trend)  (ar$data) 分别是 什么么

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：Bayes baye bay Yes function function

你确定你的程序完整？

是完整的，这是被定义的一个函数。现在我前面的知道什么意思了，但是我想编一个关于极值参数的贝叶斯的后验密度分布，还是不会。。求教。。。