18 lines
498 B
R
18 lines
498 B
R
require("ggplot2")
|
|
require("tictoc")
|
|
require("colSBM")
|
|
|
|
result_clustering <- readRDS("./Rcodes/simulation/data/simulated")
|
|
|
|
list_clustering <- lapply(
|
|
seq_along(result_clustering), function(s) result_clustering[[s]]$list_of_clusterings
|
|
)
|
|
|
|
list_best_partition <- lapply(
|
|
seq_along(list_clustering), function(s) {
|
|
list(
|
|
epsilon = result_clustering[[s]]$epsilon,
|
|
best_partition = unlist(extract_best_bipartite_partition(list_clustering[[s]]))
|
|
)
|
|
}
|
|
)
|