R/normalize.R

normalize <- function(text, distances) {
  min <- min(distances)
  max <- nchar(text) * MAX_DIFFERENCE - min
  1 - ((distances - min) / max)
}
MangoTheCat/franc documentation built on May 7, 2019, 2:10 p.m.