data(energy, package = "ISwR")
require(sjlabelled, quietly = TRUE)
energy <- energy |>
var_labels(
expend = "Energy expenditure (MJ/day)",
stature = "Stature"
)
energy |>
strip_error(x = stature, y = expend)
Run the code above in your browser using DataLab