R/processing_time_activity.R

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

processing_time_activity <- function(eventlog,
									 units,
									 work_schedule) {

	relative_frequency <- NULL

	eventlog %>%
		processing_time_activity_instance(units = units, work_schedule = work_schedule) -> raw

	raw %>%
		group_by(!!activity_id_(eventlog)) %>%
		grouped_summary_statistics("processing_time", relative_frequency = n()) %>%
		mutate(relative_frequency = relative_frequency/sum(relative_frequency)) %>%
		arrange(desc(relative_frequency)) -> output

	attr(output, "raw") <- raw

	return(output)

}