R/resource_specialisation_resource.R

Defines functions resource_specialisation_resource

resource_specialisation_resource <- function(log) {
	absolute <- NULL
	relative <- NULL

	log %>%
		distinct(!!resource_id_(log), !!activity_id_(log)) %>%
		group_by(!!resource_id_(log)) %>%
		summarize(absolute = n()) %>%
		mutate(relative = absolute/n_activities(log))
	}
bupaverse/edeaR documentation built on Dec. 3, 2024, 8:31 a.m.