x <- freqlist("The man and the mouse.",
re_token_splitter = "(?xi) [:\\s.;,?!\"]+",
as_text = TRUE)
x
tot_n_tokens(x)
y <- keep_types(x, c("man", "and"))
tot_n_tokens(y)
y
tot_n_tokens(y) <- sum(y)
y
tot_n_tokens(y)
Run the code above in your browser using DataLab