R/reorder_biclust.R

In biclustermd: Biclustering with Missing Data

#' 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))
}