R/print.dbmssEnvelope.R

In dbmss: Distance-Based Measures of Spatial Structures

print.dbmssEnvelope <- function(x, ...) {

  einfo <- attr(x, "einfo")

  type <- ifelse(einfo$global, "Global", "Local")
  cat(
    paste(
      type,
      "critical envelopes obtained from",
      einfo$nsim,
      "simulations of",
      deparse(attr(x, "ylab"))
    )
  )
  cat(paste(" under the null hypothesis:", einfo$H0, "\n"))

  if (!is.null(attr(x, "simfuns"))) {
    cat(
      paste(
        "(All",
        einfo$nsim,
        "simulated function values are stored in attr(,",
        dQuote("simfuns"),
        ") )\n"
      )
    )
  }

  cat(paste("Significance level of Monte Carlo test:", einfo$Alpha, "\n"))
  cat(paste("Data:", einfo$Yname, "\n"))

  # Do not call NextMethod but print.fv directly (print.envelope is skipped)
  print.fv(x, ...)
}