# NOT RUN {
theta <- seq(from=-5,to=5,by=1)
exdata <- data.frame(val=c(c(2,3,4),c(2,1),c(6,7,2,3)),
site_id=c(rep("a",3),rep("b",2),rep("c",4)),
x = c(c(2,3,4),c(2,3),c(2,2,3,3)),
y = c(c(2,2,3),c(3,2),c(2,3,2,3)))
genExPrior(exdata=exdata,theta=theta)
# }
Run the code above in your browser using DataLab