# NOT RUN {
data("synthetic")
bc <- biclustermd(synthetic, col_clusters = 3, row_clusters = 2)
bc2 <- biclustermd(synthetic, col_clusters = 3, row_clusters = 2)
# compare the two biclusterings
compare_biclusters(bc, bc2)
# determine the similarity between initial and final row clusterings
compare_biclusters(bc$Q0, bc$Q)
# }
Run the code above in your browser using DataLab