R/print.R

In vincnardelli/robspdep: robspdep: Robust Spatial Dependence

#' @export
print.robspdep.gk <- function(x, ...){
  cat("Monte-Carlo simulation of GK \n")
  cat("Number of simulations: ", length(x$res), "\n")
  cat("statistic = ", x$statistic, "p-value =", x$p.value)
}
#' @export
print.robspdep.gk2 <- function(x, ...){
  cat("Monte-Carlo simulation of GK2 \n")
  cat("Number of simulations: ", length(x$res), "\n")
  cat("statistic = ", x$statistic, "p-value =", x$p.value)
}
#' @export
print.robspdep.moranhuber <- function(x, ...){
  cat("Monte-Carlo simulation of Moran-Huber I \n")
  cat("Number of simulations: ", length(x$res), "\n")
  cat("statistic = ", x$statistic, "p-value =", x$p.value)
}
#' @export
print.robspdep.robustmoran <- function(x, ...){
  cat("Monte-Carlo simulation of Robust Moran I \n")
  cat("Number of simulations: ", length(x$res), "\n")
  cat("statistic = ", x$statistic, "p-value =", x$p.value)
}
#' @export
print.robspdep.robustgeary <- function(x, ...){
  cat("Monte-Carlo simulation of Geary's C \n")
  cat("Number of simulations: ", length(x$res), "\n")
  cat("statistic = ", x$statistic, "p-value =", x$p.value)
}
#' @export
print.robspdep.robustaple <- function(x, ...){
  cat("Monte-Carlo simulation of APLE \n")
  cat("Number of simulations: ", length(x$res), "\n")
  cat("statistic = ", x$statistic, "p-value =", x$p.value)
}