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

}
neuroimaginador/fcaR documentation built on May 3, 2024, 12:25 a.m.