Hi @cheklapkok, what do you mean by 'didn't work'? It would help to provide the code you tried and any output you got.
Also, my hunch is that it might help to split your word_list strings to contain a single word. For example, this might get you started:
library(tidyverse)
word_list = c("guest lists", "movie liat", "show lixt", "movie tixket", "airlines tickek", "passenger tickat lixt")
correct_spelling = c("list", "ticket")
split_words <- stringi::stri_split_regex(word_list[1], pattern = ' ', simplify = TRUE)
adist(split_words, correct_spelling)
#> [,1] [,2]
#> [1,] 3 5
#> [2,] 1 5
Created on 2019-02-01 by the reprex package (v0.2.1)