R/activity_frequency_activity.R

Defines functions activity_frequency_activity

activity_frequency_activity <- function(log) {
	absolute <- NULL
	log %>%
		group_by(!!as.symbol(activity_id(log))) %>%
		summarize(absolute = n_distinct(!!as.symbol(activity_instance_id(log)))) %>%
		mutate(relative = absolute/sum(absolute))

}
bupaverse/edeaR documentation built on Dec. 3, 2024, 8:31 a.m.