R/obis.R

qcflag <- function(qc, number) {
  mask <- 2^(number-1)
  return(sapply(qc, function(x) {
    return(sum(bitwAnd(x, mask) > 0))
  }))
}
pieterprovoost/pieter documentation built on May 25, 2019, 7:11 a.m.