get.origin.codes {readstata13}

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)

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.

Value

Returns an integer with original codes

Author(s)

Jan Marvin Garbuszus [e-mail]

Sebastian Jeworutzki [e-mail]

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)