# NOT RUN {
# load part of the beatAML data
beatAML_data <- NIMAA::beatAML[1:10000,]
# convert to incidence matrix
beatAML_incidence_matrix <- nominalAsBinet(beatAML_data)
# do clustering
cls <- findCluster(beatAML_incidence_matrix,
part = 1, method = "infomap", normalization = FALSE,
rm_weak_edges = TRUE, comparison = FALSE)
# get the scoring result
scoreCluster(community = cls$infomap, graph = cls$graph,
dist_mat = cls$distance_matrix)
# }
Run the code above in your browser using DataLab