# \donttest{
# Pre-calculate Flexibility Index
fi_output <- flex_index(em_data, return = "data")
# Examples of how to test the plotting options individually
# Sample of 10 work patterns
plot_flex_index(fi_output, method = "sample")
# 10 most common work patterns
plot_flex_index(fi_output, method = "common")
# Plot Flexibility Index over time
plot_flex_index(fi_output, method = "time")
# }
Run the code above in your browser using DataLab