tagPOS <-? function(x, ...) {+? ? ?s <- as.String(x)+? ? ?word_token_annotator <- Maxent_Word_Token_Annotator()+? ? ?a2 <- Annotation(1L, "sentence", 1L, nchar(s))+? ? ?a2 <- annotate(s, word_token_annotator, a2)+? ? ?a3 <- annotate(s, Maxent_POS_Tag_Annotator(), a2)+? ? ?a3w <- a3[a3$type == "word"]+? ? ?POStags <- unlist(lapply(a3w$features, `[[`, "POS"))+? ? ?POStagged <- paste(sprintf("%s/%s", s[a3w], POStags), collapse = " ")+? ? ?list(POStagged = POStagged, POStags = POStags)+ }> count_verbs <-function(x) {+? ? ?pos_tags <- tagPOS(x)$POStags+? ? ?sum(grepl("VB", pos_tags))+ }> library(dplyr)> tar %>%?+? ? ?group_by(group) %>%+? ? ?summarise(num_verbs = count_verbs(Message))