# 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 %>%
qq_plot(~ dl.milk) %>%
axis_labs()
qq_plot(~ dl.milk|sex, data = kfm) %>%
axis_labs()
# }
Run the code above in your browser using DataLab