data = data.frame(a = sample(c("red","yellow","blue",NA),100, replace = TRUE),
b = 1:100,
c = sample(c("YES","NO",NA),100,replace = TRUE),
d = runif(100),
e = sample(c("YES","NO"), 100, replace = TRUE),
f = sample(c("male","female","trans","other",NA), 100, replace = TRUE),
stringsAsFactors = FALSE)
bin <- c("c","e")
cat <- c("a","f")
convert(data, bin_cols = bin, cat_cols = cat)
Run the code above in your browser using DataLab