## ----message = F--------------------------------------------------------------
library(bupaR)
library(edeaR)
library(eventdataR)


## -----------------------------------------------------------------------------
patients %>%
	idle_time("resource", units = "days")

## -----------------------------------------------------------------------------
patients %>%
	idle_time("resource", units = "days") %>%
	plot()

## -----------------------------------------------------------------------------
patients %>% 
	processing_time("activity") %>%
	plot

## -----------------------------------------------------------------------------
patients %>%
	throughput_time("log") %>%
	plot()

## -----------------------------------------------------------------------------
patients %>%
	resource_frequency("resource")

## -----------------------------------------------------------------------------
patients %>%
	resource_involvement("resource") %>% plot

## -----------------------------------------------------------------------------
patients %>%
	resource_specialisation("resource")

## -----------------------------------------------------------------------------
patients %>% activity_presence() %>%
	plot

## -----------------------------------------------------------------------------
patients %>%
	activity_frequency("activity")

## -----------------------------------------------------------------------------
patients %>%
	start_activities("resource-activity")

## -----------------------------------------------------------------------------
patients %>%
	end_activities("resource-activity")

## -----------------------------------------------------------------------------
patients %>%
	trace_coverage("trace") %>%
	plot()

## -----------------------------------------------------------------------------
patients %>%
	trace_length("log") %>%
	plot