#' Print summary for object of class PresenceAbsence
#' @author Bruno Vilela
#'
#' @description Print summary for objects of class PresenceAbsence.
#'
#' @usage
#' \method{print.summary}{PresenceAbsence}(x, \dots)
#'
#' @param x an object of class \code{\link{PresenceAbsence}}.
#' @param ... Other print parameters.
#'
#' @method print summary.PresenceAbsence
#' @export
print.summary.PresenceAbsence <- function(x, ...){
cat("\nClass:", x$class)
cat("\n_ _")
cat("\nNumber of species:", x$Numberofspecies,
"\nNumber of cells:", x$Numberofcells)
cat("\nCells with presence:", x$Cellswithpresence)
cat("\nCells without presence:", x$Cellswithoutanypresence)
cat("\nSpecies without presence:", x$Specieswithoutanypresence)
cat("\nSpecies with the largest range:", x$SpeciesLargestRange)
cat("\n_ _")
cat("\nGrid parameters")
cat("\nResolution: ", x$resolution[1], ", ", x$resolution[2],
" (x, y)", sep = "")
cat("\nExtention: ", xmin(x$ex), ", ", xmax(x$ex), ", ",
ymin(x$ex), ", ", ymax(x$ex), " (xmin, xmax, ymin, ymax)",
sep = "")
cat("\nCoord. Ref.: ", x$coordRef)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.