x <- freqlist("The man and the mouse.",
as_text = TRUE)
x
orig_ranks(x)
orig_ranks(x, with_names = TRUE)
y <- keep_types(x, c("man", "and"))
orig_ranks(y)
y
orig_ranks(y) <- NULL
y
orig_ranks(y)
tot_n_tokens(y) <- sum(y)
y
Run the code above in your browser using DataLab