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))

}

Try the fcaR package in your browser

Any scripts or data that you put into this service are public.

fcaR documentation built on April 28, 2023, 1:11 a.m.