# NOT RUN {
data("FoodExpenditure", package = "bayesbr")
bbr <- bayesbr(proportion ~ income + persons, data = FoodExpenditure,
iter=100)
residuals(bbr, type="quantile")
# }
# NOT RUN {
pmse <-pmse(proportion ~ income + persons, test.set=0.4,
data = FoodExpenditure, iter=100)$PMSE
# }
Run the code above in your browser using DataLab