# Using built-in method
x <- matrix(rnorm(100), ncol=2)
d1 <- distanceMetric(x, "euclidean")
# Using custom method
custom_dist <- function(x) as.dist(crossprod(t(x)))
d2 <- distanceMetric(x, method=custom_dist)
Run the code above in your browser using DataLab