# Please try this example in interactive R sessions only.
if (interactive()) {
data(abstracts_stm)
oolong_test1 <- create_oolong(abstracts_stm)
oolong_test2 <- clone_oolong(oolong_test1)
oolong_test1$do_word_intrusion_test()
oolong_test2$do_word_intrusion_test()
oolong_test1$lock()
oolong_test2$lock()
summarize_oolong(oolong_test1, oolong_test2)
}
Run the code above in your browser using DataLab