p <- 3
n.post.samp <- 10
X.new <- matrix(rep(1,p), nrow=1)
beta.samp <- matrix(rnorm(n.post.samp*p, mean=2, sd=0.1), ncol=n.post.samp)
thvar.samp <- runif(n.post.samp, 0.1, 1)
th.preds <- hb_theta_new_pred(X.new, beta.samp, thvar.samp)
Run the code above in your browser using DataLab