# \donttest{
library(magrittr)
data_prepared <- bdsm::economic_growth[, 1:6] %>%
bdsm::feature_standardization(
excluded_cols = c(country, year, gdp)
) %>%
bdsm::feature_standardization(
group_by_col = year,
excluded_cols = country,
scale = FALSE
)
bma_results <- bma(
model_space = bdsm::small_model_space,
df = data_prepared,
round = 3,
dilution = 0
)
size_graphs <- model_sizes(bma_results)
# }
Run the code above in your browser using DataLab