https://padlet.com/m_s_torrance/yeylttommhgl Made with ♥ en-us 2017-10-17 12:56:51 UTC 2023-03-02 06:21:36 UTC hello@padlet.com m_s_torrance https://padlet.com/m_s_torrance/yeylttommhgl/wish/197753661 library(tokenizers)

# put this script and your text file in the same folder then...
x = readLines('2_TEXT.TXT')
gsub("[^[:alpha:]]", " ",x) -> x
unlist(tokenize_ngrams(x, n = 2)) -> x1
data.frame(table(x1)) -> x2 
with(x2, x2[order(Freq, x1),]) -> x2
table(x2$Freq) -> t1
100*round(t1/sum(t1),2)]]> 2017-10-17 13:01:01 UTC https://padlet.com/m_s_torrance/yeylttommhgl/wish/197753661 m_s_torrance https://padlet.com/m_s_torrance/yeylttommhgl/wish/197764879 x = readLines('11_TEXT.TXT');x 
gsub("[^[:alpha:]]", " ",x) -> x;x
unlist(tokenize_character_shingles(x, n = 2)) -> c1
data.frame(table(c1)) -> c2 

#digraph list
with(c2, c2[order(Freq, c1),]) -> c2 ; c2
table(c2$Freq) -> t1

# percent of digraphs with with specified frequencies
100*round(t1/sum(t1),2)]]> 2017-10-17 13:19:19 UTC https://padlet.com/m_s_torrance/yeylttommhgl/wish/197764879 m_s_torrance https://padlet.com/m_s_torrance/yeylttommhgl/wish/710056236 2020-08-31 20:18:36 UTC https://padlet.com/m_s_torrance/yeylttommhgl/wish/710056236