tail(data_corpus_inaugural) %>% pull(President)
tail(data_corpus_inaugural) %>% pull(-1)
tail(data_corpus_inaugural) %>% pull(1)
toks <- data_corpus_inaugural %>%
tail() %>%
tokens()
pull(toks, President)
dfmat <- data_corpus_inaugural %>%
tail() %>%
tokens() %>%
dfm()
pull(dfmat, President)
Run the code above in your browser using DataLab