Time series analysis
time_by_cm(otu_time, n_cluster = 6, min.std = 0)time_cm
# \donttest{
if (interactive()) {
  data(otutab, package = "pcutils")
  otu_time <- pcutils::hebing(otutab, metadata$Group)
  time_by_cm(otu_time, n_cluster = 4) -> time_cm_res
  plot(time_cm_res)
}
# }