# NOT RUN {
prior.model.params<-c(0,3,0,3,0,1)
names(prior.model.params)<-c("alpha.y.min","alpha.y.max",
"tau.min","tau.max","sigmasq.x.min","sigmasq.x.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")
ougbmprior(prior.model.params=prior.model.params,prior.reg.params=prior.reg.params)
# }
Run the code above in your browser using DataLab