R/print.R

In jens-klenke/bayerhanck: A Joint Test-Statistic for the Null of Non-Cointegration

#' @export
print.bhtest <- function(x, ...) {
  cat(c("----------------------------------------------------------",
        "Bayer Hanck Test for Non-Cointegration",
        "----------------------------------------------------------",
        paste(c("Test statistic:", round(x$bh.test, 4)),
              collapse = " "),
        paste(c("p-Value:", x$bh.pval),
              collapse = " ")),
      sep = "\n")
}