
```{R}
library(tidyverse)
library(HumanitiesDataAnalysis)
```

### Highly Optional: Working with TEI.

1.  Create a list of the 30 words that Shakespeare use most commonly,
    but never rhymes. (The last word of each line in a sonnet is the
    rhyming one.) What distinguishes them?

::: {.cell .class.source=‘answers’
hash=‘The_tidy_document_model_cache/json/unnamed-chunk-34_253e1f9c76745c02056d9eca1fa840e6’}

```{R}
last_words = lines %>%
  group_by(div2.id, milestone.n) %>%
  slice(n()) %>%
  group_by(.text) %>%
  summarize(last_positions = n())

lines %>% 
  count(.text) %>%
  arrange(-n) %>%
  anti_join(last_words) %>% arrange(-n)
```


```{R}
last_words = lines %>%
  group_by(div2.id, milestone.n) %>%
  slice(n()) %>%
  group_by(.text) %>%
  summarize(last_positions = n())

lines %>% 
  count(.text) %>%
  arrange(-n) %>%
  anti_join(last_words) %>% arrange(-n)
```
