--- a
+++ b/R/print.R
@@ -0,0 +1,150 @@
+#' Print method for 'corr' objects
+#'
+#' @param x 'corr' object
+#' @param ... additional arguments
+#'
+#' @exportS3Method
+#' @method print corr
+#' @return No value
+print.corr <- function(x, ...) {
+  if (is.null(x$r)) {
+    cat("NULL corr object.\n")
+    return(invisible())
+  }
+  if (attributes(x)$method %in% c("spearman", "pearson", "sparcc")) {
+    cat("Correlation table:\n")
+  } else {
+    cat("Similarity (1-Distance) table:\n")
+  }
+  cat("Table dimensions:", nrow(x$r), "rows,", ncol(x$r), "columns\n")
+  cat("Use method: ", attributes(x)$method, "\n")
+}
+
+#' Summary method for 'corr' objects
+#'
+#' @param object 'corr' object
+#' @param ... Additional arguments
+#'
+#' @return No value
+#' @exportS3Method
+#' @method summary corr
+#'
+summary.corr <- function(object, ...) {
+  if (is.null(object$r)) {
+    cat("NULL corr object.\n")
+    return(invisible())
+  }
+  if (attributes(object)$method %in% c("spearman", "pearson", "sparcc")) {
+    cat("Correlation table:\n")
+  } else {
+    cat("Similarity (1-Distance) table:\n")
+  }
+
+  cat("Distribution of r:\n")
+  if (t_flag(object$r)) {
+    print(summary(object$r[upper.tri(object$r)]))
+  } else {
+    print(summary(as.vector(object$r)))
+  }
+
+  if (!attributes(object)$method %in% c("spearman", "pearson", "sparcc")) {
+    return(invisible())
+  }
+  cat("Distribution of p:\n")
+  if (t_flag(object$p)) {
+    print(summary(object$p[upper.tri(object$p)]))
+  } else {
+    print(summary(as.vector(object$p)))
+  }
+  if ("p.adjust" %in% names(object)) {
+    cat("Distribution of p.adjust:\n")
+    if (t_flag(object$p.adjust)) {
+      print(summary(object$p.adjust[upper.tri(object$p.adjust)]))
+    } else {
+      print(summary(as.vector(object$p.adjust)))
+    }
+  }
+}
+
+#' Print method for 'coors' objects
+#'
+#' @param x 'coors' object
+#' @param ... additional arguments
+#' @return No value
+#' @exportS3Method
+#' @method print coors
+print.coors <- function(x, ...) {
+  cat("Coordinates:\n")
+  cat("Table dimensions:", nrow(x), "rows,", ncol(x), "columns\n")
+  if (!is.null(attributes(x)$curved)) cat("\nWith curved information")
+}
+
+
+#' Print method for 'metanet' objects
+#'
+#' @param x 'metanet' object
+#' @param ... Additional arguments
+#' @exportS3Method
+#' @method print metanet
+#' @return No value
+print.metanet <- function(x, ...) {
+  pcutils::dabiao(" metanet ", print = TRUE)
+  print.igraph(x)
+}
+
+#' Print method for 'ggig' objects
+#'
+#' @param x 'ggig' object
+#' @param ... Additional arguments
+#'
+#' @return No value
+#' @exportS3Method
+#' @method print ggig
+print.ggig <- function(x, ...) {
+  pcutils::dabiao(" ggig ", print = TRUE)
+  pcutils::dabiao("use `plot()` to visualize ggig object.", char = " ", print = TRUE)
+}
+
+#' Print method for 'robust' objects
+#' @param x 'robust' object
+#' @param ... Additional arguments
+#' @return No value
+#' @exportS3Method
+#' @method print robust
+print.robust <- function(x, ...) {
+  pcutils::dabiao(" robust ", print = TRUE)
+  pcutils::dabiao("use `plot()` to visualize robust object.", char = " ", print = TRUE)
+}
+
+#' Print method for 'robustness' objects
+#' @param x 'robustness' object
+#' @param ... Additional arguments
+#' @return No value
+#' @exportS3Method
+#' @method print robustness
+print.robustness <- function(x, ...) {
+  pcutils::dabiao(" robustness ", print = TRUE)
+  pcutils::dabiao("use `plot()` to visualize robustness object.", char = " ", print = TRUE)
+}
+
+#' Print method for 'vulnerability' objects
+#' @param x 'vulnerability' object
+#' @param ... Additional arguments
+#' @return No value
+#' @exportS3Method
+#' @method print vulnerability
+print.vulnerability <- function(x, ...) {
+  pcutils::dabiao(" vulnerability ", print = TRUE)
+  pcutils::dabiao("use `plot()` to visualize vulnerability object.", char = " ", print = TRUE)
+}
+
+#' Print method for 'cohesion' objects
+#' @param x 'cohesion' object
+#' @param ... Additional arguments
+#' @return No value
+#' @exportS3Method
+#' @method print cohesion
+print.cohesion <- function(x, ...) {
+  pcutils::dabiao(" cohesion ", print = TRUE)
+  pcutils::dabiao("use `plot()` to visualize cohesion object.", char = " ", print = TRUE)
+}