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)
}
# }