# NOT RUN {
data(kfm, package = "ISwR")
require(sjlabelled)
kfm = kfm %>%
var_labels(
dl.milk = 'Breast-milk intake (dl/day)',
sex = 'Sex',
weight = 'Child weight (kg)',
ml.suppl = 'Milk substitute (ml/day)',
mat.weight = 'Maternal weight (kg)',
mat.height = 'Maternal height (cm)'
)
kfm %>%
box_plot(dl.milk ~ sex, fill = 'thistle', alpha = 0.8) %>%
axis_labs()
t.test(dl.milk ~ sex, data = kfm)
kfm %>%
box_plot(dl.milk ~ sex, fill = 'thistle', alpha = 0.8) %>%
axis_labs() %>%
gf_star(1, 10.9, 2, 11, 11.4, legend = 'p = 0.035', size = 2.5)
# }
Run the code above in your browser using DataLab