if (FALSE) {
#Analysis of Crime Data
#load data
data(UScrime)
#Model selection among the following models: (note model1 is nested in all the others)
model1<- y ~ 1 + Prob
model2<- y ~ 1 + Prob + Time
model3<- y ~ 1 + Prob + Po1 + Po2
model4<- y ~ 1 + Prob + So
model5<- y ~ .
#Equal prior probabilities for models:
crime.BF<- Btest(models=list(basemodel=model1,
ProbTimemodel=model2, ProbPolmodel=model3,
ProbSomodel=model4, fullmodel=model5), data=UScrime)
#Another configuration of prior probabilities of models:
crime.BF2<- Btest(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<- Btest(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))
}
Run the code above in your browser using DataLab