cdng_old <- coding(code("Yes", 1), code("No", 2))
cdng_new <- coding(code("Yes", 1), code("No", 0))
recode_func <- make_recode_query(link_codings(cdng_new, cdng_old))
vec <- sample(1:2, 20, replace = TRUE)
recode_func(vec)
Run the code above in your browser using DataLab