# NOT RUN {
## use infert data
data(infert)
codebook(infert)
summ(infert, age)
## transform continuous to category
infert.new <- egen(infert, age, c(20, 30, 40, 50))
tab(infert.new, age.cat)
## specifiy labels and name
infert.new <- egen(infert, age, c(20, 30, 40), "age_cat", c("<30", "30-39", "40+"))
tab(infert.new, age_cat)
# }
Run the code above in your browser using DataLab