# NOT RUN {
# Use the pewee dataset as an example:
q <- BCT(pewee, 5) # maximum depth of 5
draw_models(q)
r <- kBCT(pewee, 5, 3)
# maximum depth of 5, and k = 3 (top 3 a posteriori most likely models)
draw_models(r)
# }
Run the code above in your browser using DataLab