# NOT RUN {
x <- as.bit(c(FALSE, FALSE, FALSE, NA, NA, NA, TRUE, TRUE, TRUE))
yl <- c(FALSE, NA, TRUE, FALSE, NA, TRUE, FALSE, NA, TRUE)
y <- as.bit(yl)
!x
x & y
x | y
xor(x, y)
x != y
x == y
x & yl
x | yl
xor(x, yl)
x != yl
x == yl
x <- as.bitwhich(c(FALSE, FALSE, FALSE, NA, NA, NA, TRUE, TRUE, TRUE))
yl <- c(FALSE, NA, TRUE, FALSE, NA, TRUE, FALSE, NA, TRUE)
y <- as.bitwhich(yl)
!x
x & y
x | y
xor(x, y)
x != y
x == y
x & yl
x | yl
xor(x, yl)
x != yl
x == yl
# }
Run the code above in your browser using DataLab