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