if (requireNamespace("uwot", quietly = TRUE) &&
requireNamespace("plotly", quietly = TRUE)) {
datamat <- matrix(
rnorm(40),
nrow = 5,
dimnames = list(
paste0("x", 1:5),
paste0("s", 1:8)
)
)
dataset <- list(
data = datamat,
metadata = data.frame(
class = factor(rep(c("A", "B"), length.out = 8))
)
)
umap.result <- umap_analysis_dataset(
dataset,
n_components = 3,
n_neighbors = 3,
seed = 42
)
umap_kmeans_plot3D(
dataset,
umap.result,
num.clusters = 2,
dims = c(1, 2, 3)
)
}
Run the code above in your browser using DataLab