x <- 0:15
v <- bitrevorder(x)
dec2bin <- function(x, l)
substr(paste(as.integer(rev(intToBits(x))), collapse = ""),
32 - l + 1, 32)
x_bin <- sapply(x, dec2bin, 4)
v_bin <- sapply(v, dec2bin, 4)
data.frame(x, x_bin, v, v_bin)
Run the code above in your browser using DataLab