pacman::p_load(tidyverse)
mini_hrs <- data.frame(
id = c("R1", "R2", "R3", "R4", "R5"),
age_yr = c(55, 62, 71, 48, 67),
sex = c("Female", "Male", "Male", "Female", "Male"),
cesd = c(2, 4, 6, 0, NA)
)
mini_hrs id age_yr sex cesd
1 R1 55 Female 2
2 R2 62 Male 4
3 R3 71 Male 6
4 R4 48 Female 0
5 R5 67 Male NA