问题描述
我使用WinBUGS进行贝叶斯分析。我决定使用R中的R2WinBUGS软件包将WinBUGS中的模型与r软件链接。 除bugs（）函数外，我设法使代码运行流畅。 我遇到的错误是：
Bug中的错误（数据，inits，parameters.to.save，model.file =“ model.bug” 、： model.bug不存在。
library(R2WinBUGS)
library(coda)
data<- read.csv("C:/Users/hp/Desktop/verysignificantfactors.csv",header=TRUE)
N<-nrow(data)
data1<-list(N=N,tcb=tcb,lc=lc,lbi=lbi,union=union,twin=twin,sex=sex,postnatal=postnatal,agegroup=agegroup,antenatal=antenatal,edu=edu,wealth=wealth,cont=cont,work=work,prenatal=prenatal)
#initial values
inits<-function(){list(alpha=rnorm(1),b.tcb=rnorm(1),b.lc=rnorm(1),b.lbi=rnorm(1),b.union=rnorm(1),b.twin=rnorm(1),b.sex=rnorm(1),b.postnatal=rnorm(1),b.agegroup=rnorm(1),b.antenatal=rnorm(1),b.edu=rnorm(1),b.wealth=rnorm(1),b.cont=rnorm(1),b.work=rnorm(1),b.prenatal=rnorm(1))}
inits()
parameters<c("alpha","b.tcb","b.lc","b.lbi","b.union","b.twin","b.sex","b.postnatal","b.agegroup","b.antenatal","b.edu","b.wealth","b.cont","b.work","b.prenatal")
#simulations
sim<-bugs(model.file="C:/Users/Administrator/Desktop/school project/correct project winbugs.bugs",data=data1,parameters=parameters,inits=inits,n.chains=2,n.iter=25000,n.burnin=20000,n.thin=5,bugs.directory="C:/Users/hp/Downloads/winbugs14 (1).exe")
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）