# NOT RUN {
(x<-unbinary("10101010"))
(y<-binary(x))
bit(x,1:3)
bit(y,0:3)
maxBit(x)
maxBit(y)
whichBits(x)
whichBits(y)
binary2logical(y)
bit(x)
# }
# NOT RUN {
<!-- %*% 2^(0:maxBits(x)) -->
# }
# NOT RUN {
bit(y)
# }
# NOT RUN {
<!-- %*% 2^(0:maxBits(y)) -->
# }
# NOT RUN {
gsi.orSum(y,1)
bitCount(x)
bitCount(y)
bit(x,2)<-1
x
bit(y,2)<-1
y
# }
Run the code above in your browser using DataLab