#Load, convert timestamps to seconds, split
data("session_dataset")
session_dataset$timestamp <- to_seconds(x = session_dataset$timestamp, format = "%Y%m%d%H%M%S")
events_by_user <- split(session_dataset$timestamp, session_dataset$UUID)
sessions <- reconstruct_sessions(events_by_user)
#Extract the time between events, separating out the results for each session
list_event_time <- event_time(sessions, as_vector = FALSE)
#Extract the arithmetic mean time between events
mean_event_time <- event_time(sessions, as.vector = TRUE, fun = mean, trim = 0.5)
Run the code above in your browser using DataLab