## create an example GADSdat
example_df <- data.frame(ID = 1:4,
citizenship1 = c("German", "English", "missing by design", "Chinese"),
citizenship2 = c(NA, "German", "missing by design", "Polish"),
citizenship3 = c(NA, NA, NA, "German"),
stringsAsFactors = FALSE)
gads <- import_DF(example_df)
## shorten character variables
gads2 <- remove2NAchar(gads, vars = c("citizenship1", "citizenship2", "citizenship3"),
na_value = -99, na_label = "missing: too many answers")
Run the code above in your browser using DataLab