R/resource_involvement_case.R

In edeaR: Exploratory and Descriptive Event-Based Data Analysis

Defines functions resource_involvement_case

resource_involvement_case <- function(log) {

	absolute <- NULL
	relative <- NULL

	log %>%
		distinct(!!case_id_(log),  !!resource_id_(log)) %>%
		group_by(!!case_id_(log)) %>%
		summarize(absolute = n()) %>%
		mutate(relative = absolute/n_resources(log))
}

Try the edeaR package in your browser