R/ident_cat.R

ident_cat <-
function(test){
  cols <- 1:ncol(test)
categ_var <- sapply(cols,  function(i) is.character(test[, i]))
categ_var_test <- test[, categ_var]
return(categ_var_test)
}

Try the RDIDQ package in your browser

Any scripts or data that you put into this service are public.

RDIDQ documentation built on May 2, 2019, 9:11 a.m.