search for: geninits1

Dear I am trying to find a 90% credible interval. I am using the following code. fit<-bugs( model.file=BUGScode, data=data, inits = list(geninits1,geninits2), parameters.to.save=keepers, n.chains=nchains, n.iter=runs, n.burnin=burn, n.thin=nthin, DIC= TRUE, bugs.directory="C:/Program Files/WINBUGS.14", \ ) But this is only giving 95% credible interval. How can I get 90%, 80% credible intervals using...

Dear, I am running the following R code using the R2WINBUGS package. fit<-bugs( model.file=BUGScode, data=data, inits = list(geninits1,geninits2), parameters.to.save=keepers, n.chains=nchains, n.iter=runs, n.burnin=burn, n.thin=nthin, bugs.directory="C:/Program Files/WinBUGS14" ) I put this code and the corresponding WINBUGS code "BUGScode" in the same folder and change the directory of R into that folde...