R/scrc_confusion_CalculateConfusion.R

In sysbiosig/SCRC: Fractional response analysis

#' CalculateConfuison
#'
#' @description This function calculates confusiuon waves from confusion matrix.
#' model need to have confusion matrix attribute
#'
CalculateConfusion <-
  function(model,
           signal.max = NULL,
           confusion.signal.max = signal.max,
           ...){
    signal_ <- as.name(model$signal)
    class_ <- as.name(model$class)
    signal.list <-
      (model$confusion.table %>%
         dplyr::distinct(!!signal_) %>%
         dplyr::arrange(!!signal_))[[model$signal]]
    if(!is.null(confusion.signal.max) & length(signal.list) > 1){
      signal.list <- signal.list[signal.list <= confusion.signal.max]
    }
    if(length(signal.list) <= 1){
      stop("There must be at last two sigals to plot SCRC waves")
    }
    if(is.null(confusion.signal.max)){
      confusion.signal.max <- max(signal.list)
    }

    model$confusion.waves <-
      CalculateConfusionWaves(
        model = model,
        signal.list = signal.list,
        signal.max  = confusion.signal.max)
    model$confusion.waves.polygon <-
      CalculateConfusionWavesPolygons(
        model = model,
        confusion.waves = model$confusion.waves,
        signal.list = signal.list)
    return(model)
  }