R/persp.asc.r

In adehabitat: Analysis of Habitat Selection by Animals

"persp.asc" <- function(x, ...)
  {
      ## Verifications
      if (!inherits(x, "asc")) stop("not an \"asc\" object")
      if (attr(x, "type")=="factor")
          stop("function persp cannot be used with factors")

      ## The plot
      z<-x
      xy<-getXYcoords(z)
      x<-xy$x
      y<-xy$y
      persp(x=x, y=y, z, ...)
  }