R/activity_frequency_activity.R

In edeaR: Exploratory and Descriptive Event-Based Data Analysis

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))

}

Try the edeaR package in your browser