if (FALSE) {
#####################
# Simulated example #
#####################
# Simulate data
set.seed(1)
n <- 100
w <- runif(n)
y <- 3 + 2*w + rnorm(n, sd = 0.8)
# Fit the model with default priors and mcmc parameters
fout <- blr(y ~ w)
# Predict
new <- rnorm(n)
predict(fout, newdata = new)
}
Run the code above in your browser using DataLab