if (interactive()) {
tc = tc_sotu_udpipe$copy()
tc2 = transform_rsyntax(tc, udpipe_simplify)
browse_texts(tc2)
rsyntax::plot_tree(tc_sotu_udpipe$tokens, token, lemma, POS, sentence_i=20)
rsyntax::plot_tree(tc2$tokens, token, lemma, POS, sentence_i=20)
}
Run the code above in your browser using DataLab