## Not run: library(MASS)
# data(Pima.tr)
# data(Pima.te)
# Pima.bas = bas.glm(type ~ ., data=Pima.tr, family=binomial(), a=1, s=0,
# b=nrow(Pima.tr)/2, modelprior=uniform(), n.models=2^7, method="BAS")
# YHPM = predict(Pima.bas, newdata=Pima.te, top=1) # Highest Probability model
# ## End(Not run)Run the code above in your browser using DataLab