# NOT RUN {
prior.model.params<-c(0,3,0,3,-2,2,0,1,0,3,0,2,0,1.5,0,1)
names(prior.model.params)<-c(
"alpha.y.min","alpha.y.max","alpha.x.min","alpha.x.max",
"theta.x.min","theta.x.max","sigmasq.x.min","sigmasq.x.max",
"alpha.tau.min","alpha.tau.max","theta.tau.min","theta.tau.max",
"sigmasq.tau.min","sigmasq.tau.max")
prior.reg.params<-c(-3, 3, -3, 3, -3, 3)
names(prior.reg.params)<-c("b0.min", "b0.max", "b1.min", "b1.max", "b2.min", "b2.max")
ououcirprior(prior.model.params=prior.model.params,prior.reg.params=prior.reg.params)
# }
Run the code above in your browser using DataLab