Calculate Hamming Distance between two vectors, using pairwise complete observations.
Source:R/vectorHammingDist.R
vectorHammingDist.Rd
Simple function to count the fraction of different elements (in the same position) between two vectors of the same length, after removing elements from both vectors corresponding to positions that are NA in either vector.
Value
Returns a numeric value, the Hamming Distance (the number of non-equal values between x and y).
Examples
(mat <- matrix(c(paste0("A", 1:5), paste0("A", 5:1)),
nrow = 2, byrow = TRUE))
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] "A1" "A2" "A3" "A4" "A5"
#> [2,] "A5" "A4" "A3" "A2" "A1"
stopifnot(vectorHammingDist(mat, mat, 1, 2) == 0.8)
stopifnot(vectorHammingDist(mat, mat, 1, 1) == 0)
mat[1, 1] <- NA
stopifnot(vectorHammingDist(mat, mat, 1, 2) == 0.75)
stopifnot(vectorHammingDist(mat, mat, 1, 1) == 0)
mat[1, 3] <- NA
stopifnot(vectorHammingDist(mat, mat, 1, 2) == 1)