# NOT RUN {
## use infert data
data(infert)
## tabulate induced to check values
tab(infert, induced)
## recode induced: 1 and 2 into 1
infert.new <- recode(infert, induced, c(1, 2), 1)
## tabulate to check
tab(infert.new, induced)
# }
Run the code above in your browser using DataLab