R/reorder.R

In fcaR: Formal Concept Analysis

reorder <- function(LHS, RHS, attributes) {

  # Sizes of the LHS + size of the RHS
  # Remember: attributes are in rows, implications are
  # in columns.
  sizes <- Matrix::colSums(LHS) + Matrix::colSums(RHS)

  # Reorder the sizes:
  o <- order(sizes)

  # Return the reordered implications
  return(list(lhs = LHS[, o],
              rhs = RHS[, o]))

}