Using nlme::ergoStool, then applying labeling variables with labelled::var_label based on ?nlme::ergoStool
data(dat_ergoStool_e)tibble
data(dat_ergoStool_e)
str(dat_ergoStool_e)
#> tibble [36 × 3] (S3: tbl_df/tbl/data.frame)
#> $ Effort : num [1:36] 12 15 12 10 10 14 13 12 7 14 ...
#> ..- attr(*, "label")= chr "Effort (Borg scale) required to arise from a stool"
#> $ Type : Factor w/ 4 levels "T1","T2","T3",..: 1 2 3 4 1 2 3 4 1 2 ...
#> ..- attr(*, "label")= chr "Stool type"
#> $ Subject: Ord.factor w/ 9 levels "8"<"5"<"4"<"9"<..: 8 8 8 8 9 9 9 9 6 6 ...
#> ..- attr(*, "label")= chr "Unique identifier for the subject"