# NOT RUN {
## use infert data
data(infert)
codebook(infert)
## add labels
infert.new <- labelVar(infert,
c(education, age, parity, induced, case, spontaneous,
stratum, pooled.stratum),
c("Education", "Age in years of case", "Count",
"# of prior induced abortions", "case status",
"# of prior spon. abortions",
"Matched set number", "Stratum Number"))
infert.new <- labelData(infert.new,
"Infertility after Spontaneous and Induced Abortion")
codebook(infert.new)
# }
Run the code above in your browser using DataLab