R/contour.R

In move: Visualizing and Analyzing Animal Track Data

setGeneric("contour", function(x, ...) standardGeneric("contour"))
setMethod(f = "contour", 
          signature = c(x = ".UD"), 
          definition = function(x, ...) {  
		  x<-getVolumeUD(x)
            callNextMethod()
          })


setMethod(f = "contour", 
          signature = c(x = ".UDStack"), 
          definition = function(x, ...){  
		  graphics::par(mfrow=rep(ceiling(sqrt(nlayers(x))), 2))
            lapply(split(x), contour, ...) 
          })