dat <- read.dta13(system.file("extdata/statacar.dta", package="readstata13"),
convert.factors=FALSE)
# compare vectors
set.label(dat, "type")
dat$type
# German label
set.label(dat, "type", "de")
Run the code above in your browser using DataLab