DATA
x <- structure(list(id = structure(c(2, 4, 6, 8, 10), label = "id", format.spss = "F4.0", display_width = 0L), A