R/tools.R

Defines functions check_neg check_pos

check_neg <- function(x){
  if (intToBits(x)[5] == 1){
    return(T)
  } else {
    return(F)
  }
}

check_pos <- function(x){
  if (intToBits(x)[3] == 1){
    return(F)
  } else if (intToBits(x)[5] != 1){
    return(T)
  } else {
    return(F)
  }
}
mi2-warsaw/sequencingExplainer documentation built on May 17, 2019, 4:33 p.m.