# \donttest{
if (requireNamespace("uwot", quietly = TRUE) &&
requireNamespace("GGally", quietly = TRUE)) {
datamat <- matrix(rnorm(40), nrow = 5)
dataset <- list(
data = datamat,
metadata = data.frame(
class = factor(rep(c("A", "B"), length.out = 8))
)
)
result <- umap_analysis_dataset(
dataset,
n_components = 3,
n_neighbors = 3
)
umap_pairs_plot(
dataset,
result,
column.class = "class",
dims = 1:3
)
}
# }
Run the code above in your browser using DataLab