I was trying to filter data that is not correct in logical, so I wrote something like this,
#correcting library(deducorrect) u <- correctionRules( expres