## Not run:
# #Analysis of Crime Data
# #load data
# data(UScrime)
# #Model selection among the following models: (note model1 is nested in all the others)
# model1<- as.formula("y~1+Prob")
# model2<- as.formula("y~1+Prob+Time")
# model3<- as.formula("y~1+Prob+Po1+Po2")
# model4<- as.formula("y~1+Prob+So")
# model5<- as.formula("y~.")
#
# #Equal prior probabilities for models:
# crime.BF<- BayesFactor(models=list(basemodel=model1,
# ProbTimemodel=model2, ProbPolmodel=model3,
# ProbSomodel=model4, fullmodel=model5), data=UScrime)
#
# #Another configuration of prior probabilities of models:
# crime.BF2<- BayesFactor(models=list(basemodel=model1, ProbTimemodel=model2,
# ProbPolmodel=model3, ProbSomodel=model4, fullmodel=model5),
# data=UScrime, prior.models = "User", priorprobs=list(basemodel=1/8,
# ProbTimemodel=1/8, ProbPolmodel=1/2, ProbSomodel=1/8, fullmodel=1/8))
# #same as:
# #crime.BF2<- BayesFactor(models=list(basemodel=model1, ProbTimemodel=model2,
# #ProbPolmodel=model3,ProbSomodel=model4, #fullmodel=model5), data=UScrime,
# #prior.models = "User", priorprobs=list(basemodel=1, ProbTimemodel=1,
# #ProbPolmodel=4, #ProbSomodel=1, fullmodel=1))
# ## End(Not run)
Run the code above in your browser using DataLab