# Load the Prostate cancer dataset
data(Churn)
# Estimate the model parameters with default prior
out <- bayesQR(churn~gender+recency, data=Churn, ndraw=2000)
# Return Bayes estimates and credible intervals
sum <- summary(out, burnin=1000)
# Inspect structure of bayesQR.summary object
str(sum)
# Print bayesQR.summary object
sum
Run the code above in your browser using DataLab