Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
# binary vars
binVars <- which(sapply(X, function(x){all(x %in% 0:1)}))
missingVars <- which(apply(X, 2, function(k){any(is.na(k))}))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment