.packageName <- "clines"

clines <- function(x, y, z, nlevels=10,
                   levels = pretty(range(z, na.rm=TRUE), nlevels)) {
  warning("The clines package is no longer required.\nYou should use the function contourLines() in the graphics package instead.\n")
  invisible(.Call("clines", as.double(x), as.double(y),
                  z, as.double(levels), PACKAGE="clines"))
}



.First.lib <- function(lib, pkg) {
  library.dynam("clines", pkg, lib )
}
