# NOT RUN {
x <- c("r", "re", "od", "right", "l", "le", "os", "left")
recodeye(x)
## chose the resulting codes
recodeye(x, to = c("right", "left"))
x <- 1:2
recodeye(x)
## or, if right is coded with 2)
recodeye(x, numcode = 2:1)
# }
Run the code above in your browser using DataLab