Euclidean Distance Function Factory — euclidean • CoOccurR

Returns a function that checks whether the Euclidean distance between two numeric vectors is less than or equal to a given threshold.

euclidean(dist = 1)

Arguments

dist: threshold above which the function will return FALSE

Value

function that checks if Euclidean distance between two vectors exceeds dist

Examples

# test data: Euclidean distance equals sqrt(2) ~ 1.414
x <- rep(0, 5)
y <- c(0, 1, 0, 0, 1)

# should return TRUE when checking Manhattan distance <= 2
dist_2 <- euclidean(2)
dist_2(x, y)
#> [1] TRUE

# should return FALSE when checking Manhattan distance <= 1
dist_1 <- euclidean(1)
dist_1(x, y)
#> [1] FALSE