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.

1 | ```
vectorHammingDist(x, y, k, l)
``` |

`x` |
a matrix |

`y` |
a matrix with the same number of columns as x |

`k` |
row in x to test for differences |

`l` |
row in y to test for differences |

Returns a numeric value, the Hamming Distance (the number of non-equal values between x and y).

Levi Waldron, Markus Riester, Marcel Ramos

1 2 3 4 5 6 7 8 | ```
(mat <- matrix(c(paste0("A", 1:5), paste0("A", 5:1)), nrow = 2, byrow = TRUE))
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)
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.