bces0(data,dist.c=c("gamma","logn","norm"),
dist.e=c("beta","gamma","bern","norm"),
w=1e-6,W=1e-6,n.iter=10000,n.burnin=5000,
n.chains=2,robust=TRUE,model.file="model.txt")
"bces0"(data,dist.c=c("gamma","logn","norm"),
dist.e=c("beta","gamma","bern","norm"),
w=1e-6,W=1e-6,n.iter=10000,n.burnin=5000,
n.chains=2,robust=TRUE,model.file="model.txt")
data(acupuncture)
m <- bces0(data,dist.c="gamma",dist.e="beta",n.iter=1000,n.burnin=500,n.chains=2)
print(m)
plot(m)
Run the code above in your browser using DataLab