data(efc)
test <- to_label(efc$e42dep)
table(test)
table(to_value(test))
hist(to_value(test, 0))
# set lowest value of new variable to "5".
table(to_value(test, 5))
# numeric factor keeps values
dummy <- factor(c("3", "4", "6"))
table(to_value(dummy))
# do not drop unused factor levels
dummy <- ordered(c(rep("No", 5), rep("Maybe", 3)),
levels = c("Yes", "No", "Maybe"))
to_value(dummy)
# non-numeric factor is converted to numeric
# starting at 1
dummy <- factor(c("D", "F", "H"))
table(to_value(dummy))
# for numeric factor levels, value labels will be used, if present
dummy1 <- factor(c("3", "4", "6"))
set_labels(dummy1) <- c("first", "2nd", "3rd")
dummy1
to_value(dummy1)
# for non-numeric factor levels, these will be used.
# value labels will be ignored
dummy2 <- factor(c("D", "F", "H"))
set_labels(dummy2) <- c("first", "2nd", "3rd")
dummy2
to_value(dummy2)
Run the code above in your browser using DataLab