R/matching_function.R

In hiraethus/Needleman-Wunsch: An implementation of the Needleman-Wulsch sequence alignment algorithm, unit tested with testthat

create.mm.function <- function(match.score, mismatch.score) {
  return(function(first.letter, second.letter) {
    if (nchar(first.letter) != 1)
      stop('first.letter arg wrong length - should be single character')
    if (nchar(second.letter) != 1)
      stop('second.letter arg wrong length - should be single character')

    if (first.letter == second.letter) match.score else mismatch.score
  })
}