# NOT RUN {
dat <- read.dta13(system.file("extdata/statacar.dta", package="readstata13"))
get.lang(dat)
varlabel(dat)
# set German label
datDE <- set.lang(dat, "de")
get.lang(datDE)
varlabel(datDE)
# }
Run the code above in your browser using DataLab