R/dimred_ica.R

In dynverse/dyndimred: Dimensionality Reduction Methods in a Common Format

Defines functions dimred_ica

Documented in dimred_ica

#' @rdname dimred
#' @export
dimred_ica <- function(x, ndim = 3) {
  requireNamespace("fastICA")

  if (is_sparse(x)) {
    x <- as.matrix(x)
  }

  space <- fastICA::fastICA(t(scale(t(x))), n.comp = ndim)$S

  .process_dimred(space)
}