## Not run: library(MASS)
# data(UScrime)
# UScrime[,-2] = log(UScrime[,-2])
# crime.bic = bas.lm(y ~ ., data=UScrime, n.models=2^15, prior="BIC",
# initprobs= "eplogp")
# coef = list2matrix.bma(crime.bic, "ols") # extract all ols coefficients
# se = list2matrix.bma(crime.bic, "ols.se")
# models = list2matrix.which(crime.bic) #matrix of model indicators
# models = which.matrix(crime.bic$which, crime.bic$n.vars) #matrix of model indicators## End(Not run)
Run the code above in your browser using DataLab