R/manhattan.thinning.r

Defines functions manhattan.thinning

manhattan.thinning <- function(x, y, mx, my ) {
  if( is.unsorted(x) ) {
    o <- order(x);
    x1 <- x[o]
    y1 <- y[o]
    w <- .Call('gg_manhattan_thinning', PACKAGE = "gaston", x1, y1, mx, my)
    return(o[w]);
  } 
  return(.Call('gg_manhattan_thinning', PACKAGE = "gaston", x, y, mx, my))
}

Try the gaston package in your browser

Any scripts or data that you put into this service are public.

gaston documentation built on May 29, 2024, 7:33 a.m.