Run a custom distance function on an input data matrix

CustomDistance(my.mat, my.function, ...)

Arguments

my.mat: A matrix to calculate distance on
my.function: A function to calculate distance
...: Extra parameters to my.function

Value

A distance matrix

Author

Jean Fan

Examples

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
#> Warning: The `slot` argument of `GetAssayData()` is deprecated as of SeuratObject 5.0.0.
#> ℹ Please use the `layer` argument instead.
cell.manhattan.dist <- CustomDistance(input.data, manhattan.distance)