# NOT RUN {
prior.model.params<-c(0,3,0,3,-5,5,0,1,0,2)
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",
"tau.min","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")
ouqouprior(prior.model.params=prior.model.params,prior.reg.params=prior.reg.params)
# }
Run the code above in your browser using DataLab