R/grid.internal.r

In AtlanticR/bio.spacetime: Package that interacts with bio and associated projects to provide some spatial and time interpolation methods.

  grid.internal = function(x, gx) {
      # planar
      nx = length(gx)
      zx = c( gx, gx[nx]+(gx[2]-gx[1]) )
      X = as.numeric(as.character(cut( x, zx, include.lowest=T, right=F, labels=gx )))
      names(X) = names(x)
      return(X)
  }