# NOT RUN {
data("CarTask", package = "bayesbr")
bbr = bayesbr(probability~task + NFCCscale, iter = 100,
data=CarTask, mean_betas = c(1, 0.5,1.2),variance_betas=10)
envelope(bbr,sim = 100, conf=0.9, resid.type="quantile")
# }
# NOT RUN {
envelope(bbr,sim = 1000, conf=0.99, resid.type="ordinary")
# }
Run the code above in your browser using DataLab