R/print.R

In gof: Model-diagnostics based on cumulative residuals

##' @S3method print cumres
print.cumres <- function(x,...) {
  cat("\n");
  for (i in 1:length(x$variable)) {
    cat("Kolmogorov-Smirnov-test: p-value=", x$KS[i], "\n", sep="")
    cat("Cramer von Mises-test: p-value=", x$CvM[i], "\n", sep="")
    cat("Based on ", x$R, " realizations. Cumulated residuals ordered by ", x$variable[i], "-variable.\n", sep="")
    cat("---\n");
  }
  invisible(x)
}

##' @S3method summary cumres
summary.cumres <- function(object,...) print(object,...)