# NOT RUN {
f <- kgram_freqs("a b b a b", 2)
query(f, c(BOS(), EOS(), UNK()))
probability(c("a", "b") %|% BOS(), f)
probability("a b b a" %+% EOS(), f)
# The actual values of BOS(), EOS() and UNK() are irrelevant
c(BOS(), EOS(), UNK())
# }
Run the code above in your browser using DataLab