# NOT RUN {
library(magrittr)
ds <- swiss %>%
design('glm') %>%
add_settings() %>%
add_variables('yvar', c('Fertility', 'Education')) %>%
add_variables('xvar', c('Agriculture', 'Catholic')) %>%
add_variables('covariates', 'Examination') %>%
construct() %>%
scrub()
polish_renaming(ds, function(x) gsub('Education', 'Schooling', x))
polish_filter(ds, 'Xterm', 'term')
polish_adjust_pvalue(ds)[c('p.value', 'adj.p.value')]
polish_transform_estimates(ds, function(x) exp(x))
# }
Run the code above in your browser using DataLab