## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----echo=TRUE,eval=FALSE-----------------------------------------------------
# tSNE_mat <- function(mat, ...) {
#   coord_red <- list()
#   coord_red$Y <- Rtsne::Rtsne(mat)$Y
#   coord_red
# }
# 
# tSNE_dist <- function(dist, ...) {
#   coord_red <- list()
#   coord_red$Y <- Rtsne::Rtsne(dist, is.dist = TRUE)$Y
#   coord_red
# }
# 
# pandemonium(df, dim_reduction = list(tSNE_mat = tSNE_mat, tSNE_dist = tSNE_dist))

## ----echo=TRUE,eval=FALSE-----------------------------------------------------
# umap <- function(dist, ...) {
#   ret <- list()
#   ret$Y <- uwot::umap(stats::as.dist(dist))
#   ret
# }
# 
# pandemonium(df, dim_reduction = list(umap = umap))