![]() ![]() ![]() You might get a weird message starting by err:ole, just ignore it. Run the model schools.sim <- bugs(data, inits, model.file = model.file1,parameters=parameters,n.chains = 3, n.iter = 1000, OpenBUGS.pgm=OpenBUGS.pgm, WINE=WINE, WINEPATH=WINEPATH,useWINE=T) The are the parameters to save parameters = c("theta", "mu.theta", "sigma.theta") OpenBUGS.pgm="/Applications/OpenBUGS323/OpenBUGS.exe" WINEPATH="/usr/local/Cellar/wine/2.0.4/bin/winepath" Set the Wine working directory and the directory to OpenBUGS, and change the OpenBUGS.exe location as necessary: WINE="/usr/local/Cellar/wine/2.0.4/bin/wine" Load the OpenBUGS Package library(R2OpenBUGS)ĭefine the model, write it to a text file and have a look nummodel <- function()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
December 2022
Categories |