if (requireNamespace("fastICA", quietly = TRUE)) {
datamat <- matrix(
rnorm(240),
nrow = 8,
dimnames = list(
paste0("feature", 1:8),
paste0("sample", 1:30)
)
)
dataset <- list(data = datamat)
ica.result <- ica_analysis_dataset(
dataset,
n_components = 2,
maxit = 100,
seed = 42
)
ica_loadingsplot(
ica.result,
dims = c(1, 2),
labels = TRUE
)
}
Run the code above in your browser using DataLab