R/ident_cont.R

ident_cont <-
function(test){
  cols <- 1:ncol(test)
  cont_var <- sapply(cols,  function(i) is.numeric(test[, i]))
  cont_var_test <- test[, cont_var]
  return(cont_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.