finding and removing constant columns
### for numeric columns names(df[, sapply(df, function(v) var(v, na.rm=TRUE)==0)]) ####