# NOT RUN {
# Load toy data set
require(data.table)
data(messy_adult)
# Check for included columns
whichAreIncluded(messy_adult)
# Return columns that are also constant, double and bijection
# Let's add a truly just included column
messy_adult$are50OrMore <- messy_adult$age > 50
whichAreIncluded(messy_adult)
# As one can, see this column that doesn't have additional info than age is spotted.
# But you should be carefull, if there is a column id, every column will be dropped:
messy_adult$id = 1:nrow(messy_adult) # build id
setcolorder(messy_adult, c("id", setdiff(names(messy_adult), "id"))) # Set id as first column
whichAreIncluded(messy_adult)
# }
Run the code above in your browser using DataLab