Recreates the code numbers of a factor as stored in the Stata dataset.
Arguments
- x
factor. Factor to obtain code for
- label.table
table. Table with factor levels obtained by
get.label
.
Details
While converting numeric variables into factors, the original code
numbers are lost. This function reconstructs the codes from the attribute
label.table
.
Author
Jan Marvin Garbuszus jan.garbuszus@ruhr-uni-bochum.de
Sebastian Jeworutzki sebastian.jeworutzki@ruhr-uni-bochum.de
Examples
dat <- read.dta13(system.file("extdata/statacar.dta", package="readstata13"))
labname <- get.label.name(dat,"type")
labtab <- get.label(dat, labname)
# comparsion
get.origin.codes(dat$type, labtab)
#> [1] 2 4 3 4 1 3
#> [7] 2147483620 -2147483647
as.integer(dat$type)
#> [1] 3 5 4 5 2 4 6 1