andor.R
##
## a n d o r . R Logical AND, OR
##
and <- function(l, k) {
return((l & k) + 0)
}
or <- function(l, k) {
return((l | k) + 0)
}
# and <- function(...) {
# all(sapply(as.list(...), as.logical))
# }
#
# or <- function(...) {
# any(sapply(as.list(...), as.logical))
# }