R/resource_specialisation_log.R

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

resource_specialisation_log <- function(log) {

	freq <- NULL

	log %>%
		distinct(!!resource_id_(log), !!activity_id_(log)) %>%
		group_by(!!resource_id_(log)) %>%
		summarize(freq = n()) -> raw

	raw %>%
		pull(freq) %>%
		summary_statistics() -> output

	attr(output, "raw") <- raw

	return(output)

}