R/processing_time_trace.R

In gertjanssenswillen/edeaR: Exploratory and Descriptive Event-Based Data Analysis

processing_time_trace <- function(eventlog,
								  units,
								  work_schedule) {
	relative_frequency <- NULL
	traces <- case_list(eventlog)
	eventlog %>%
		processing_time_case(units = units, work_schedule = work_schedule) %>%
		merge(traces) -> raw
	raw %>%
		group_by(trace) %>%
		grouped_summary_statistics("processing_time", relative_frequency = n()) %>%
		mutate(relative_frequency = relative_frequency/sum(relative_frequency)) %>%
		select(trace, relative_frequency, everything()) %>%
		arrange(desc(relative_frequency)) -> output

	attr(output, "raw") <- raw

	return(output)
}