R/test_cof.R

############
# test_cof #
############

test_cof <- function(x, map, window) {

  t1 <- map$chr == as.numeric(x[1])
  t2 <- abs(map$pos.cM - as.numeric(x[2])) < window
  !(t1 & t2)

}
vincentgarin/GWASToolBox documentation built on May 6, 2019, 8:59 p.m.