R/print.caperpyGridData.R

In ClementCalenge/caperpyogm: Estimation of the Number of Male Capercaillie in the Pyrenees Mountains

print.caperpyGridData <-
function(x, ...)
{
    if (!inherits(x,"caperpyGridData"))
        stop("x is not of class caperpyGridData")
    cat("*******************************\n")
    cat("** Object of class caperpyGridData\n\n")
    cat("Structure of the object:\n\n")
    print(str(x))
}