# This is a stub function to take two strings
# and calculate the hamming distance
hamming <- function(strand1, strand2) {
}