Pour la comparaison de chaînes :

small_str_distance <- function(left, right) {
  stringdist(left, right) <= 5
}

Pour la comparaison de nombres :

close_to_each_other <- function(left, right) {
  abs(left - right) <= 3
}