if (FALSE) {
register_umap()
## distances
get_seriation_method("dist", "umap")
data(SupremeCourt)
d <- as.dist(SupremeCourt)
o <- seriate(d, method = "umap", verbose = TRUE)
pimage(d, o)
# look at the returned embedding and plot it
attr(o[[1]], "configuration")
plot_config(o)
## matrix
get_seriation_method("matrix", "umap")
data("Zoo")
Zoo[,"legs"] <- (Zoo[,"legs"] > 0)
x <- as.matrix(Zoo[,-17])
label <- rownames(Zoo)
class <- Zoo$class
o <- seriate(x, method = "umap", verbose = TRUE)
pimage(x, o)
plot_config(o[[1]], col = class)
}
Run the code above in your browser using DataLab