2011-11-12 28 views

回答

1

它好像

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

將是一個好的開始。 (CRC32總是奇數,所以減去1是必要的。)

+0

謝謝!有用 – user1043144