Code R"><span><span class="co"># taken from library(babynames)</span></span>
<span><span class="co"># head(unique(babynames[order(-babynames$prop),]$name),60)</span></span>
<span><span class="va">firstnames</span><span class="op">=</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span></span>
<span> <span class="st">"John"</span>,        <span class="st">"William"</span>,     <span class="st">"Mary"</span>,        <span class="st">"Robert"<