Nothing
#' @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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.