if (requireNamespace("fastICA", quietly = TRUE)) {
datamat <- matrix(rnorm(240), nrow = 8)
dataset <- list(
data = datamat,
metadata = data.frame(
class = factor(rep(c("A", "B"), each = 15))
)
)
ica.result <- ica_analysis_dataset(
dataset,
n_components = 2,
maxit = 100,
seed = 42
)
kmeans.result <- list(
cluster = rep(1:2, each = 15)
)
ica_kmeans_plot2D(
dataset,
ica.result,
num.clusters = 2,
kmeans.result = kmeans.result
)
}
Run the code above in your browser using DataLab