dic <- read_dictionary()
sg <- sign_grammar("a-ma-ru ba-ur3 ra", dic)
# Plot raw frequencies
file <- file.path(tempdir(), "test.png")
plot_sign_grammar(sg, file)
# Plot probabilities
prior <- prior_probs(dic, sentence_prob = 0.25)
gp <- grammar_probs(sg, prior, dic, alpha0 = 1)
file <- file.path(tempdir(), "test2.png")
plot_sign_grammar(gp, file)
Run the code above in your browser using DataLab