R/round.bnd.R

In BayesX: R Utilities Accompanying the Software Package BayesX

smooth.bnd <- function(map, digits = 2, scale = 1) {
  if (!inherits(map, "bnd")) 
    stop("Argument 'map' is not an object of class 'bnd'!")
  nrpolys <- length(map)
  for (i in 1:nrpolys) {
    temp <- unique(round(map[[i]] * scale, digits)/scale)
    if (nrow(temp) > 3) 
      map[[i]] <- temp
  }
  class(map) <- "bnd"
  return(map)
}