## Not run:
# #Analysis of Crime Data
# #load data
#
# data(UScrime)
#
# #Default arguments are Robust prior for the regression parameters
# #and constant prior over the model space
# #Here we keep the 1000 most probable models a posteriori:
# #The computation over the model space is distributed over two
# #cores:
# crime.Bvs<- PBvs(formula="y~.", data=UScrime, n.keep=1000,
# n.nodes=2)
#
# #A look at the results:
# crime.Bvs
#
# summary(crime.Bvs)
#
# #An image plot with the joint inlcusion
# #probabilities:
# plotBvs(crime.Bvs, option="joint")## End(Not run)
Run the code above in your browser using DataLab