if (FALSE) {
# Basic usage with a transliterated string
result <- translate("lugal kur-ra-ke4")
# Full example with package data
x <- " ki a. jal2 (e2-kur) ra. gaba jal2. an ki a"
dict_file <- system.file("extdata", "sumer-dictionary.txt", package = "sumer")
text_file <- system.file("extdata", "enki_and_the_world_order.txt", package = "sumer")
result <- translate(x,
text = text_file,
dic = dict_file,
min_freq = c(6, 4, 2),
sentence_prob = 0.25)
print(result)
# Open in system browser (resizable, survives standby)
x <- 9
result <- translate(x,
text = text_file,
dic = dict_file,
min_freq = c(6, 4, 2),
sentence_prob = 0.25,
viewer = shiny::browserViewer())
print(result)
}
Run the code above in your browser using DataLab