if (FALSE) {
x <- as_data(-1:12)
# arithmetic
a <- x + 1
b <- 2 * x + 3
c <- x %% 2
d <- x %/% 5
# logical
e <- (x > 1) | (x < 1)
f <- e & (x < 2)
g <- !f
# relational
h <- x < 1
i <- (-x) >= x
j <- h == x
}
Run the code above in your browser using DataLab