# Load the Prostate cancer dataset
data(Prostate)
# Create informative prior object
prior <- prior(lpsa~., data=Prostate, beta0=rep(5,9), V0=diag(9))
# Investigate structure of bayesQR.prior object
str(prior)
# Estimate the model parameters with informative prior
out <- bayesQR(lpsa~., data=Prostate, prior=prior, ndraw=5000)
# Print results
summary(out)
Run the code above in your browser using DataLab