# NOT RUN {
t1_t2 <- paired_times(data = clr, first = "_1",
second = "_25", common = "_0_")
klist_t1_t2 <- iterative_clustering(data = t1_t2, parallel = FALSE)
result_t1_t2 <- stabilitas(klist_t1_t2, common = "_0_")
cv_klist_t1_t2_k2 <- CV_iterative_clustering(data = t1_t2, results = result_t1_t2,
common = "_0_", k = 2L, parallel = FALSE)
# }
Run the code above in your browser using DataLab