Displaying 1 result from an estimated 1 matches for "format4bugs".
2005 Nov 09
2
About: Error in FUN(X[[1]], ...) : symbol print-name too long
...07:31:08 -0700 )
The progam in R is:
library(R2WinBUGS)
library(rbugs)
dat <-
list(x=c(49,48,50,44,54,56,48,48,51,51,50,53,51,50,51,54,50,53,50,49,51,47,53,50,49,55,53,48,54,46),
y=c(50,49,57,52,47,52,58,45,55,54,51,54,56,53,52,47,51,54,50,47,46,44,54,55,52,57,52,48,48,51))
dat <- format4Bugs(dat, digits = 0)
parm <- c("lbda")
bugs(dat, inits=list(NULL), parm, "d2.bug",
n.chains = 1, n.iter = 5000, n.burnin = floor(n.iter/2),
n.thin = max(1, floor(n.chains * (n.iter - n.burnin)/1000)),
bin = (n.iter - n.burnin) / n.thin,
debug = TRUE, DIC = TRUE, digits = 5...