R/raster2contour.R

In move: Visualizing and Analyzing Animal Track Data

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

setMethod(f = "raster2contour", 
          signature = c(x = ".UDStack"),
          definition = function(x, ...) {
            xx<-split(x)
            tmp<-lapply(xx, raster2contour, ...=...)
      	    x<-mapply(spChFIDs, tmp, mapply(paste,lapply(tmp,row.names), names(tmp), SIMPLIFY=F))
      	    tmp<-do.call('rbind',mapply('[[<-',MoreArgs=list(i='individual.local.identifier'),x=x, value=names(tmp)))
      	    return(tmp)
          })