data(efc)
summary(efc$c12hour)
# split at median
table(dicho(efc$c12hour))
# split at mean
table(dicho(efc$c12hour, "mean"))
# split between value lowest to 30, and above 30
table(dicho(efc$c12hour, 30))
# sample data frame, values from 1-4
head(efc[, 6:10])
# dichtomized values (1 to 2 = 0, 3 to 4 = 1)
library(dplyr)
efc %>%
select(6:10) %>%
dicho(dich.by = 2) %>%
head()
# dichtomize several variables in a list
dummy <- list(efc$c12hour, efc$e17age, efc$c160age)
dicho(dummy)
# dichotomize and set labels
frq(dicho(efc$e42dep, var.label = "Dependency (dichotomized)",
val.labels = c("lower", "higher")))
Run the code above in your browser using DataLab