# 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)
# predict the edges by imputation the weights
imputed_beatAML <- predictEdge(beatAML_incidence_matrix)
# validate the edge prediction
validateEdgePrediction(imputation = imputed_beatAML,
refer_community = cls$fast_greedy,
clustering_args = cls$clustering_args
)
# }
Run the code above in your browser using DataLab