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
cell.manhattan.dist <- CustomDistance(input.data, manhattan.distance)