File: unique.circular.R

package info (click to toggle)

r-cran-circular 0.5-1-1

file content (6 lines) | stat: -rw-r--r-- 137 bytes

unique.circular <- function (x, ...) {
  z <- unique.default(x, ...)
  circularp(z) <- circularp(x)
  class(z) <- class(x)
  return(z)
}