R/clean.R

Defines functions .clean

.clean <- function(LHS, RHS) {

  idx <- which(Matrix::colSums(RHS) == 0)

  if (length(idx) > 0) {

    LHS <- LHS[, -idx]
    RHS <- RHS[, -idx]

  }

  return(list(lhs = LHS, rhs = RHS))

}
Malaga-FCA-group/fcaR documentation built on May 6, 2023, 1:45 p.m.