#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")
Run the code above in your browser using DataLab