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