R/select_numeric.R

select_numeric <- function(df){
  for (i in names(df)){
    if (is.numeric(df[,i]) == FALSE){
      df[,i] = NULL
    }
  }
return(df)
}
neuropsychology/neuropsychology.R documentation built on May 23, 2019, 4:27 p.m.