## Not run:
# #Analysis of Crime Data
# #load data
#
# data(UScrime)
#
# crime.Bvs<- Bvs(formula="y~.", data=UScrime, n.keep=1000)
#
# #A look at the jointness measurements:
# Jointness(crime.Bvs, covariates="All")
#
# Jointness(crime.Bvs, covariates=c("Ineq","Prob"))
# #---------
# #The joint inclusion probability for Ineq and Prob is: 0.65
# #---------
# #The ratio between the probability of including both
# #covariates and the probability of including at least one of then is: 0.66
# #---------
# #The probability of including both covariates at the same times is 1.95 times
# #the probability of including one of them alone
#
# ## End(Not run)
Run the code above in your browser using DataLab