Run a custom distance function on an input data matrix
CustomDistance(my.mat, my.function, ...)
A matrix to calculate distance on
A function to calculate distance
Extra parameters to my.function
A distance matrix
data("pbmc_small")
# Define custom distance matrix
manhattan.distance <- function(x, y) return(sum(abs(x-y)))
input.data <- GetAssayData(pbmc_small, assay.type = "RNA", slot = "scale.data")
#> Warning: The following arguments are not used: assay.type
cell.manhattan.dist <- CustomDistance(input.data, manhattan.distance)