R/show.R

In gdistance: Distances and Routes on Geographical Grids

#' @aliases show,TransitionLayer-method
#' @aliases show,TransitionStack-method
#' @author Jacob van Etten
#' @exportMethod show
setMethod("show" , "TransitionLayer",
           function(object) {
             callNextMethod(object)
             cat("values      :", matrixValues(object), "\n")
             cat("matrix class:", class(transitionMatrix(object)), "\n")
           }
           )


#' @exportMethod show
setMethod("show" , "TransitionStack",
           function(object) {
             callNextMethod(object)
             cat("nlayers      :", nlayers(object), "\n")
             #show something about the layers if layers <=5
             #cat("values      :", matrixValues(x), "\n")
             #cat("matrix class:", class(transitionMatrix(x)), "\n")
           }
           )