R/resource_specialisation_case.R

Defines functions resource_specialisation_case

resource_specialisation_case <- function(eventlog) {

	freq <- NULL
	nr_of_activity_types <- NULL

	eventlog %>%
		group_by(!!resource_id_(eventlog), !!activity_id_(eventlog), !!case_id_(eventlog)) %>%
		summarize() %>%
		group_by(!!case_id_(eventlog)) %>%
		mutate(nr_of_activity_types = n_distinct(!!activity_id_(eventlog))) %>%
		group_by(!!case_id_(eventlog), nr_of_activity_types, !!resource_id_(eventlog)) %>%
		summarize(freq = n()) %>%
		grouped_summary_statistics("freq")
}
gertjanssenswillen/edeaR documentation built on July 22, 2019, 7:08 p.m.