R/precedence_matrix_lifecycle.R

In heuristicsmineR: Discovery of Process Models with the Heuristics Miner

#' Precedence Matrix with Lifecycle
#'
#' @param eventlog The event log object to be used.
#'
#' @examples
#' precedence_matrix_lifecycle(L_heur_1)
#'
#' @export
precedence_matrix_lifecycle <- function(eventlog) {
  stopifnot("eventlog" %in% class(eventlog))

  activitylog <- reduce_activitylog(eventlog)
  precedence_matrix_lifecycle_impl(activitylog)
}

precedence_matrix_lifecycle_impl <- function(activitylog) {
  mat <- as_tibble(count_precedence_lifecycle(activitylog$case_id,
                                              activitylog$activity_id,
                                              activitylog$lifecycle))

  class(mat) <- c("process_matrix", class(mat))
  type <- "absolute"
  attr(type, "perspective") <- "frequency_lifecycle"
  attr(mat, "matrix_type") <- type
  return(mat)
}