readstata13 (version 0.10.1)

get.origin.codes: Get Origin Code Numbers for Factors

Description

Recreates the code numbers of a factor as stored in the Stata dataset.

Usage

get.origin.codes(x, label.table)

Value

Returns an integer with original codes

Arguments

x

factor. Factor to obtain code for

label.table

table. Table with factor levels obtained by get.label.

Author

Jan Marvin Garbuszus

Sebastian Jeworutzki

Details

While converting numeric variables into factors, the original code numbers are lost. This function reconstructs the codes from the attribute label.table.

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)
as.integer(dat$type)