R/which.tile.R

In deldir: Delaunay Triangulation and Dirichlet (Voronoi) Tessellation

Defines functions which.tile

Documented in which.tile

which.tile <- function(x,y,tl){
  u  <- c(x,y)
  nt <- length(tl)
  d2 <- numeric(nt)
  for(i in 1:nt) {
    d2[i] <- sum((u-tl[[i]]$pt)^2)
  }
  which.min(d2)
}

Try the deldir package in your browser