#Generate a padding value based on the geometric mean of the known times between events
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)
padding_val <- padding_value(sessions, "geometric mean")
padding_val
#41.07547
Run the code above in your browser using DataLab