R/bits.R

In mdsumner/tripEstimation: Metropolis Sampler and Supporting Functions for Estimating Animal Movement from Archival Tags and Satellite Fixes

"bits" <-
function(object,bit) {
  out <- (object %/% (2^bit)) %% 2
  if (!is.null(dim(object))) dim(out) <- dim(object)
  out
}

"bits<-" <-
function(object,bit,value) {
  mask <- 2^bit
  object <- object+(value - ((object %/% mask) %% 2))*mask
  object
}