if (FALSE) {
set.seed(42)
m1 <- matrix(runif(25), 5, 5)
m2 <- matrix(runif(25), 5, 5)
rownames(m1) <- colnames(m1) <- LETTERS[1:5]
rownames(m2) <- colnames(m2) <- LETTERS[1:5]
# Difference heatmap
plot_comparison_heatmap(m1, m2)
# Show just one network
plot_comparison_heatmap(m1, type = "x")
}
Run the code above in your browser using DataLab