хеши нграмм: дактилоскопия документов

Question

Я пытаюсь реализовать алгоритм переворачивания для дактилоскопии документов в R.

Здесь ссылка http://www.ida.liu.se/~TDDC03/oldprojects/2005/final-projects/prj10.pdf

Мой вопрос:

как получить хэши n-граммы и как их выбрать

nGrams <- c("adoru", "dorun", "orunr", "runru", "unrun", "nrunr" ,"runru",
  "unrun","nruna", "runad", "unado", "nador", "adoru", "dorun", "orunr" ,"runru" ,
  "unrun")

Answer 1

Кажется, как будто

library(digest)
v <- sapply(nGrams,digest,algo="crc32")
uv <- unique(v)
(as.integer(as.hexmode(uv))-1) %% 4 == 0

было бы хорошим началом. (CRC32 всегда нечетный, поэтому необходимо вычесть 1.)