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 June 29, 2021, 1:06 a.m.