# NOT RUN {
## use infert data
data(infert)
## label education
infert.new <- labelVar(infert, education, "patient's education")
codebook(infert.new)
## label multiple variables
infert.new <- labelVar(infert, c(education, age, case),
c("patient's education", "age in years", "case status"))
codebook(infert.new)
## label dataset
infert.new <- labelData(infert.new,
"Infertility after Spontaneous and Induced Abortion")
codebook(infert.new)
# }
Run the code above in your browser using DataLab