powered by
shiftRight(x, n)
x <- as.binary(c(1,0,0,1,1,1,0,1), logic=TRUE); x shiftRight(x,1) shiftRight(x,2)
Run the code above in your browser using DataLab