and0(c(0,1,0), c(1,1,0))
if (FALSE) {
set.seed(1234)
x = rbinom(5000, 1, 0.5)
y = rbinom(5000, 1, 0.5)
# 3 to 4 times improvement over `&`
system.time(for (i in 1:5000) and0(x,y))
system.time(for (i in 1:5000) x & y)
}
Run the code above in your browser using DataLab