1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| L<-scan("fic.txt",character(0))
L
[1] "Let's" "begin" "our"
[4] "discussion" "of" "minimum"
[7] "edit" "distance" "by"
[10] "defining" "minimum" "edit"
[13] "distance." "Minimum" "at"
[16] "a" "distance" "is"
[19] "a" "way" "of"
[22] "solving" "the" "problem"
[25] "of" "string" "similarity,"
[28] "how" "similar" "are"
("...")
table(L)
a A A, able
28 4 1 1
about accuracy added advisor
1 1 1 2
afford again, algorithm align
1 1 1 2
align. alignment alignment. aligns
1 4 1 1
all All along Alright.
4 2 1 1
also amount an and
1 1 8 27
("...") |