R/print.summary.spqtest.R

In rominsal/spqdata: Testing for spatial structure of qualitative data in cross section

#' @name print.summary.spqtest
#' @rdname print.summary.spqtest
#'
#' @title Print method for objects of class summary.spqtest.
#'
#' @param x object of class \emph{summary.spqtest}.
#' @param digits number of digits to show in printed tables.
#'   Default: max(3L, getOption("digits") - 3L).
#' @param ... further arguments passed to or from other methods.
#'
#' @author
#'   \tabular{ll}{
#'   Fernando López  \tab \email{fernando.lopez@@upct.es} \cr
#'   Román Mínguez  \tab \email{roman.minguez@@uclm.es} \cr
#'   }
#'
#' @seealso
#' \code{\link{summary.spqtest}}.
#' @export
print.summary.spqtest <- function(x, digits = max(3L, getOption("digits") - 3L),
                                  ...) {
  class(x) <- c("gt_tbl") # prevent recursion...
  print(x)
  invisible(x)
}