# \donttest{
# Run clusters, returning plot
workpatterns_hclust(em_data, k = 5, return = "plot")
# Run clusters, return raw data
workpatterns_hclust(em_data, k = 4, return = "data") %>% head()
# Run clusters for instant messages only, return hclust object
workpatterns_hclust(em_data, k = 4, return = "hclust", signals = c("IM"))
# }
Run the code above in your browser using DataLab