#' Reorder a bicluster object for making a heat map
#'
#' @param x A bicluster object.
#'
#' @return A list containing the two partition matrices used by gg_bicluster.
reorder_biclust <- function(x) {
bc <- x
bc_p <- bc$P[, order(-colMeans(bc$A))]
bc_q <- bc$Q[, order(rowMeans(bc$A))]
return(list(P = bc_p, Q = bc_q))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.