R/print.morpca.R

In dfleis/morpca: Manifold Optimization for Robust PCA

print.morpca <- function(x, digits = 3, ...) {
  cat("\nCall: ", deparse(x$call), "\n\n")
  # to do...
  # think about what makes sense to display for default print behaviour
}