R/print.oSCR.ma.coef.R

In jaroyle/oSCR: Multi-Session Sex-Structured Spatial Capture-Recapture Models

print.oSCR.ma.coef <- function(ma){
  class(ma) <- "data.frame"
  nums <- vapply(ma, is.numeric, FUN.VALUE = logical(1))
  ma[,nums] <- round(ma[,nums], digits = 2)
  print(ma)
  cat("", fill=TRUE)
  cat("* Denotes 'shrinkage' values.", fill=TRUE)
}