# NOT RUN {
dat <- data.frame(item1 = c(5, 2, 3, 4, 1, 2, 4, 2),
item2 = c(1, 5, 3, 1, 4, 4, 1, 5),
item3 = c(4, 2, 4, 5, 1, 3, 5, -99))
# Reverse code item2
reverse.item(dat$item2, min = 1, max = 5)
# Reverse code item3 while keeping the value -99
reverse.item(dat$item3, min = 1, max = 5, keep = -99)
# Reverse code item3 while keeping the value -99 and check recoding
dat$item3r <- reverse.item(dat$item3, min = 1, max = 5, keep = -99, table = TRUE)
# }
Run the code above in your browser using DataLab