R/summary.rbcusumcc.R

In rbcc: Risk-Based Control Charts

#-----------------------------------------------------------------------------#
#                                                                             #
#               RISK-BASED CONTROL CHARTS                                     #
#                                                                             #
#  Written by: Aamir Saghir, Attila I. Katona, Zsolt T. Kosztyan              #
#              Department of Quantitative Methods                             #
#              University of Pannonia, Hungary                                #
#              kzst@gtk.uni-pannon.hu                                         #
#                                                                             #
# Last modified: January 2025                                                 #
#-----------------------------------------------------------------------------#
#' @export
summary.rbcusumcc <- function(object, digits =  getOption("digits"), ...)
{
  if (methods::is(object,"rbcusumcc")){
    real <- object$cusumx
    Observed <- object$cusumy
    cost0 <- object$cost0 # calculation of total cost during the process
    cost1 <- object$cost1 # total cost related to decision 1 (c11)
    cost2 <- object$cost2 # total cost related to decision 2 (c10)
    cost3 <- object$cost3 # total cost related to decision 3 (c01)
    cost4 <- object$cost4 # total cost related to decision 4 (c00)
    UCLx <- object$UCLx
    UCLy <- object$UCLy
    Kopt <- object$par
    if (!is.null(Kopt)){
      results<-list(real = real, Observed = Observed, cost0 = cost0,
                    cost1 = cost1, cost2 = cost2, cost3 = cost3,
                    cost4 = cost4, UCLx = UCLx,
                    UCLy = UCLy, Kopt = Kopt)
    }else{
      results<-list(real = real, Observed = Observed, cost0 = cost0,
                    cost1 = cost1, cost2 = cost2, cost3 = cost3,
                    cost4 = cost4, UCLx = UCLx, UCLy = UCLy)
    }
    return(invisible(results))
    print.rbcusumcc(object)
  }
}