wave1 <- coding(
code("Yes", 1),
code("No", 2),
code("Refused", -88, missing = TRUE)
)
wave2 <- coding(
code("Yes", "y"),
code("No", "n"),
code("Missing", ".", missing = TRUE)
)
link_codings(
to = coding(
code("Yes", 1),
code("No", 0),
code("Missing", NA, links_from = c("Refused", "Missing"))
),
wave1,
wave2
)
Run the code above in your browser using DataLab