R/print.monitoringStat.R

In spc4sts: Statistical Process Control for Stochastic Textured Surfaces

Defines functions print.monitoringStat

Documented in print.monitoringStat

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

  if (!is.null(x$localStat))
    cat('Local defect monitoring statistic:', x$localStat,'\n')

  if (!is.null(x$globalStat))
    cat('Global change monitoring statistic:', x$globalStat,'\n')

  invisible(x)
}

Try the spc4sts package in your browser