dat <- data.frame(ID = 1:5, grade = c(1, 1, 2, 3, 1))
varLabels <- data.frame(varName = c("ID", "grade"),
varLabel = c("Person Identifier", "School grade Math"),
stringsAsFactors = FALSE)
valLabels <- data.frame(varName = c("grade", "grade", "grade"),
value = c(1, 2, 3),
valLabel = c("very good", "good", "sufficient"),
missings = c("valid", "valid", "valid"),
stringsAsFactors = FALSE)
gads <- import_raw(df = dat, varLabels = varLabels, valLabels = valLabels, checkVarNames = FALSE)
# Inspect Meta data
extractMeta(gads)
# Extract Data
dat <- extractData(gads, convertLabels = "character")
Run the code above in your browser using DataLab