From 9a4ec8878d824adbd2c808a4564c10307bab9842 Mon Sep 17 00:00:00 2001
From: gabrielodom <gabriel.odom@fiu.edu>
Date: Wed, 3 Jan 2024 12:36:05 -0600
Subject: [PATCH] Built site for gh-pages

---
 .nojekyll                                     |   2 +-
 lessons/lesson10_stringr.html                 | 115 ++++++++++--------
 .../figure-html/unnamed-chunk-9-1.png         | Bin 0 -> 40031 bytes
 search.json                                   |  20 +--
 sitemap.xml                                   |  36 +++---
 5 files changed, 90 insertions(+), 83 deletions(-)
 create mode 100644 lessons/lesson10_stringr_files/figure-html/unnamed-chunk-9-1.png

diff --git a/.nojekyll b/.nojekyll
index b2fd269..48194e2 100644
--- a/.nojekyll
+++ b/.nojekyll
@@ -1 +1 @@
-e8ad3335
\ No newline at end of file
+216c7ae6
\ No newline at end of file
diff --git a/lessons/lesson10_stringr.html b/lessons/lesson10_stringr.html
index 5ff7241..e0d2da3 100644
--- a/lessons/lesson10_stringr.html
+++ b/lessons/lesson10_stringr.html
@@ -283,8 +283,8 @@ <h2 id="toc-title">On this page</h2>
   <ul class="collapse">
   <li><a href="#functions-to-know-3" id="toc-functions-to-know-3" class="nav-link" data-scroll-target="#functions-to-know-3">Functions to Know</a></li>
   <li><a href="#string-lengths" id="toc-string-lengths" class="nav-link" data-scroll-target="#string-lengths">String Lengths</a></li>
-  <li><a href="#trimming-strings" id="toc-trimming-strings" class="nav-link" data-scroll-target="#trimming-strings">Trimming Strings</a></li>
-  <li><a href="#padding-strings" id="toc-padding-strings" class="nav-link" data-scroll-target="#padding-strings">Padding Strings</a></li>
+  <li><a href="#truncating-strings" id="toc-truncating-strings" class="nav-link" data-scroll-target="#truncating-strings">Truncating Strings</a></li>
+  <li><a href="#trimming-and-padding-strings" id="toc-trimming-and-padding-strings" class="nav-link" data-scroll-target="#trimming-and-padding-strings">Trimming and Padding Strings</a></li>
   </ul></li>
   <li><a href="#modifying-strings-in-tibbles" id="toc-modifying-strings-in-tibbles" class="nav-link" data-scroll-target="#modifying-strings-in-tibbles">Modifying Strings in Tibbles</a>
   <ul class="collapse">
@@ -520,7 +520,7 @@ <h1>Modifying Strings</h1>
 <h2 class="anchored" data-anchor-id="functions-to-know-1">Functions to Know</h2>
 <ul>
 <li><code>str_replace()</code> / <code>str_replace_all()</code>: replace the first/all matches of a pattern in a string with new text</li>
-<li><code>str_remove()</code> / <code>str_remove_all</code>: remove the first/all matches of a pattern in a string</li>
+<li><code>str_remove()</code> / <code>str_remove_all()</code>: remove the first/all matches of a pattern in a string</li>
 <li><code>str_to_lower()</code> / <code>str_to_upper()</code>: convert a string to lower case/UPPER CASE</li>
 </ul>
 </section>
@@ -783,8 +783,8 @@ <h1>Trim and Pad Strings</h1>
 <h2 class="anchored" data-anchor-id="functions-to-know-3">Functions to Know</h2>
 <ul>
 <li><code>str_length()</code>: compute the number of “letters” in a string</li>
-<li><code>str_trim()</code>: remove spaces from the start and end of string</li>
-<li><code>str_pad()</code>: add spaces (or some other “letter”) to the start or end of a string until the string is a specified length</li>
+<li><code>str_trunc()</code>: cut off excess “letters” from the right or left of a string</li>
+<li><code>str_trim()</code> / <code>str_pad()</code>: remove spaces from the start and end of string / add spaces (or some other “letter”) to the start or end of a string until the string is a specified length</li>
 </ul>
 <p>Overall, it’s often not immediately obvious when these functions would be useful to you, but know that from my experience that they are often unexpected lifesavers. I’m going to give three such examples from when these functions have helped me in the past.</p>
 </section>
@@ -804,8 +804,8 @@ <h2 class="anchored" data-anchor-id="string-lengths">String Lengths</h2>
 </div>
 </div>
 </section>
-<section id="trimming-strings" class="level2">
-<h2 class="anchored" data-anchor-id="trimming-strings">Trimming Strings</h2>
+<section id="truncating-strings" class="level2">
+<h2 class="anchored" data-anchor-id="truncating-strings">Truncating Strings</h2>
 <p>This comes up for me most often when dealing with very long labels in <code>ggplot</code> figures. Sometimes a factor label is really long, and <code>ggplot</code> tries to fit the whole label in the figure, which ends up making the whole figure look weird.</p>
 <p>Here’s an example. I’m going to create a simple data set with one very long factor label.</p>
 <div class="cell">
@@ -839,25 +839,32 @@ <h2 class="anchored" data-anchor-id="trimming-strings">Trimming Strings</h2>
 </div>
 </div>
 </section>
-<section id="padding-strings" class="level2">
-<h2 class="anchored" data-anchor-id="padding-strings">Padding Strings</h2>
-<p>This comes up when I’m trying to create file names in a computer. Here’s the issue:</p>
+<section id="trimming-and-padding-strings" class="level2">
+<h2 class="anchored" data-anchor-id="trimming-and-padding-strings">Trimming and Padding Strings</h2>
+<p>Trimming strings is relatively simple: you “trim” off the white space at the start and/or end of a string.</p>
 <div class="cell">
-<div class="sourceCode cell-code" id="cb33"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb33-1"><a href="#cb33-1" aria-hidden="true" tabindex="-1"></a><span class="dv">1</span><span class="sc">:</span><span class="dv">11</span> <span class="sc">%&gt;%</span> </span>
-<span id="cb33-2"><a href="#cb33-2" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.character</span>() <span class="sc">%&gt;%</span> </span>
-<span id="cb33-3"><a href="#cb33-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">sort</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<div class="sourceCode cell-code" id="cb33"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb33-1"><a href="#cb33-1" aria-hidden="true" tabindex="-1"></a><span class="fu">str_trim</span>(<span class="st">"      a        "</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 <div class="cell-output cell-output-stdout">
-<pre><code> [1] "1"  "10" "11" "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9" </code></pre>
+<pre><code>[1] "a"</code></pre>
 </div>
 </div>
-<p>When the computer turns numbers into characters, the ordering of the numbers gets destroyed. We all know that I <em>want</em> 10 and 11 to come last, but the computer doesn’t interpret these numbers the way that I do. The solution is to <strong>pad</strong> the numbers on the left with “0” so that the ordering is preserved:</p>
+<p>Padding strings comes up when I’m trying to create file names in a computer. Here’s the issue:</p>
 <div class="cell">
 <div class="sourceCode cell-code" id="cb35"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb35-1"><a href="#cb35-1" aria-hidden="true" tabindex="-1"></a><span class="dv">1</span><span class="sc">:</span><span class="dv">11</span> <span class="sc">%&gt;%</span> </span>
 <span id="cb35-2"><a href="#cb35-2" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.character</span>() <span class="sc">%&gt;%</span> </span>
-<span id="cb35-3"><a href="#cb35-3" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Set the width to 2 digits if 99 is enough, but increase to 3 digits in case</span></span>
-<span id="cb35-4"><a href="#cb35-4" aria-hidden="true" tabindex="-1"></a>  <span class="co">#   I need to go past 99 (up to 999)</span></span>
-<span id="cb35-5"><a href="#cb35-5" aria-hidden="true" tabindex="-1"></a>  <span class="fu">str_pad</span>(<span class="at">width =</span> <span class="dv">3</span>, <span class="at">side =</span> <span class="st">"left"</span>, <span class="at">pad =</span> <span class="st">"0"</span>) <span class="sc">%&gt;%</span> </span>
-<span id="cb35-6"><a href="#cb35-6" aria-hidden="true" tabindex="-1"></a>  <span class="fu">sort</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<span id="cb35-3"><a href="#cb35-3" aria-hidden="true" tabindex="-1"></a>  <span class="fu">sort</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<div class="cell-output cell-output-stdout">
+<pre><code> [1] "1"  "10" "11" "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9" </code></pre>
+</div>
+</div>
+<p>When the computer turns numbers into characters, the ordering of the numbers gets destroyed. We all know that I <em>want</em> 10 and 11 to come last, but the computer doesn’t interpret these numbers the way that I do. The solution is to <strong>pad</strong> the numbers on the left with “0” so that the ordering is preserved:</p>
+<div class="cell">
+<div class="sourceCode cell-code" id="cb37"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb37-1"><a href="#cb37-1" aria-hidden="true" tabindex="-1"></a><span class="dv">1</span><span class="sc">:</span><span class="dv">11</span> <span class="sc">%&gt;%</span> </span>
+<span id="cb37-2"><a href="#cb37-2" aria-hidden="true" tabindex="-1"></a>  <span class="fu">as.character</span>() <span class="sc">%&gt;%</span> </span>
+<span id="cb37-3"><a href="#cb37-3" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Set the width to 2 digits if 99 is enough, but increase to 3 digits in case</span></span>
+<span id="cb37-4"><a href="#cb37-4" aria-hidden="true" tabindex="-1"></a>  <span class="co">#   I need to go past 99 (up to 999)</span></span>
+<span id="cb37-5"><a href="#cb37-5" aria-hidden="true" tabindex="-1"></a>  <span class="fu">str_pad</span>(<span class="at">width =</span> <span class="dv">3</span>, <span class="at">side =</span> <span class="st">"left"</span>, <span class="at">pad =</span> <span class="st">"0"</span>) <span class="sc">%&gt;%</span> </span>
+<span id="cb37-6"><a href="#cb37-6" aria-hidden="true" tabindex="-1"></a>  <span class="fu">sort</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 <div class="cell-output cell-output-stdout">
 <pre><code> [1] "001" "002" "003" "004" "005" "006" "007" "008" "009" "010" "011"</code></pre>
 </div>
@@ -874,42 +881,42 @@ <h1>Modifying Strings in Tibbles</h1>
 <h2 class="anchored" data-anchor-id="example-plotting-participant-heights">Example: Plotting Participant Heights</h2>
 <p>Here I show an entire (simplified) workflow to take in the height data and plot it by biological sex.</p>
 <div class="cell">
-<div class="sourceCode cell-code" id="cb37"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb37-1"><a href="#cb37-1" aria-hidden="true" tabindex="-1"></a><span class="do">###  Create tidy data  </span><span class="al">###</span></span>
-<span id="cb37-2"><a href="#cb37-2" aria-hidden="true" tabindex="-1"></a>heights_df <span class="ot">&lt;-</span> <span class="fu">tibble</span>(</span>
-<span id="cb37-3"><a href="#cb37-3" aria-hidden="true" tabindex="-1"></a>  <span class="at">is_female =</span> <span class="fu">c</span>(</span>
-<span id="cb37-4"><a href="#cb37-4" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="cn">TRUE</span>, <span class="fu">length</span>(heightsF_char)),</span>
-<span id="cb37-5"><a href="#cb37-5" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="cn">FALSE</span>, <span class="fu">length</span>(heightsM_char))</span>
-<span id="cb37-6"><a href="#cb37-6" aria-hidden="true" tabindex="-1"></a>  ),</span>
-<span id="cb37-7"><a href="#cb37-7" aria-hidden="true" tabindex="-1"></a>  <span class="at">heights =</span> <span class="fu">c</span>(heightsF_char, heightsM_char)</span>
-<span id="cb37-8"><a href="#cb37-8" aria-hidden="true" tabindex="-1"></a>)</span>
-<span id="cb37-9"><a href="#cb37-9" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb37-10"><a href="#cb37-10" aria-hidden="true" tabindex="-1"></a><span class="do">###  Wrangle the Data  </span><span class="al">###</span></span>
-<span id="cb37-11"><a href="#cb37-11" aria-hidden="true" tabindex="-1"></a>heightsClean_df <span class="ot">&lt;-</span> </span>
-<span id="cb37-12"><a href="#cb37-12" aria-hidden="true" tabindex="-1"></a>  heights_df <span class="sc">%&gt;%</span> </span>
-<span id="cb37-13"><a href="#cb37-13" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 1: Split the Units into another column</span></span>
-<span id="cb37-14"><a href="#cb37-14" aria-hidden="true" tabindex="-1"></a>  <span class="fu">mutate</span>(</span>
-<span id="cb37-15"><a href="#cb37-15" aria-hidden="true" tabindex="-1"></a>    <span class="at">units =</span> <span class="fu">str_sub</span>(heights, <span class="at">start =</span> <span class="sc">-</span><span class="dv">2</span>, <span class="at">end =</span> <span class="sc">-</span><span class="dv">1</span>)</span>
-<span id="cb37-16"><a href="#cb37-16" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">%&gt;%</span> </span>
-<span id="cb37-17"><a href="#cb37-17" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 2: Extract the height values</span></span>
-<span id="cb37-18"><a href="#cb37-18" aria-hidden="true" tabindex="-1"></a>  <span class="fu">mutate</span>(</span>
-<span id="cb37-19"><a href="#cb37-19" aria-hidden="true" tabindex="-1"></a>    <span class="at">value =</span> <span class="fu">str_extract</span>(heights, <span class="at">pattern =</span> <span class="st">"</span><span class="sc">\\</span><span class="st">d{2}"</span>)</span>
-<span id="cb37-20"><a href="#cb37-20" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">%&gt;%</span> </span>
-<span id="cb37-21"><a href="#cb37-21" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 3: change heights from character to numeric</span></span>
-<span id="cb37-22"><a href="#cb37-22" aria-hidden="true" tabindex="-1"></a>  <span class="fu">mutate</span>(</span>
-<span id="cb37-23"><a href="#cb37-23" aria-hidden="true" tabindex="-1"></a>    <span class="at">value =</span> <span class="fu">as.numeric</span>(value)</span>
-<span id="cb37-24"><a href="#cb37-24" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">%&gt;%</span> </span>
-<span id="cb37-25"><a href="#cb37-25" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 4: remove the original column (check your work beforehand)</span></span>
-<span id="cb37-26"><a href="#cb37-26" aria-hidden="true" tabindex="-1"></a>  <span class="fu">select</span>(<span class="sc">-</span>heights) <span class="sc">%&gt;%</span> </span>
-<span id="cb37-27"><a href="#cb37-27" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 5: rename</span></span>
-<span id="cb37-28"><a href="#cb37-28" aria-hidden="true" tabindex="-1"></a>  <span class="fu">rename</span>(<span class="at">height =</span> value)</span>
-<span id="cb37-29"><a href="#cb37-29" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb37-30"><a href="#cb37-30" aria-hidden="true" tabindex="-1"></a><span class="do">###  Plot the Relationship  </span><span class="al">###</span></span>
-<span id="cb37-31"><a href="#cb37-31" aria-hidden="true" tabindex="-1"></a><span class="fu">ggplot</span>(<span class="at">data =</span> heightsClean_df) <span class="sc">+</span> </span>
-<span id="cb37-32"><a href="#cb37-32" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_classic</span>() <span class="sc">+</span> </span>
-<span id="cb37-33"><a href="#cb37-33" aria-hidden="true" tabindex="-1"></a>  <span class="fu">aes</span>(<span class="at">x =</span> is_female, <span class="at">y =</span> height) <span class="sc">+</span> </span>
-<span id="cb37-34"><a href="#cb37-34" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_boxplot</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<div class="sourceCode cell-code" id="cb39"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb39-1"><a href="#cb39-1" aria-hidden="true" tabindex="-1"></a><span class="do">###  Create tidy data  </span><span class="al">###</span></span>
+<span id="cb39-2"><a href="#cb39-2" aria-hidden="true" tabindex="-1"></a>heights_df <span class="ot">&lt;-</span> <span class="fu">tibble</span>(</span>
+<span id="cb39-3"><a href="#cb39-3" aria-hidden="true" tabindex="-1"></a>  <span class="at">is_female =</span> <span class="fu">c</span>(</span>
+<span id="cb39-4"><a href="#cb39-4" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="cn">TRUE</span>, <span class="fu">length</span>(heightsF_char)),</span>
+<span id="cb39-5"><a href="#cb39-5" aria-hidden="true" tabindex="-1"></a>    <span class="fu">rep</span>(<span class="cn">FALSE</span>, <span class="fu">length</span>(heightsM_char))</span>
+<span id="cb39-6"><a href="#cb39-6" aria-hidden="true" tabindex="-1"></a>  ),</span>
+<span id="cb39-7"><a href="#cb39-7" aria-hidden="true" tabindex="-1"></a>  <span class="at">heights =</span> <span class="fu">c</span>(heightsF_char, heightsM_char)</span>
+<span id="cb39-8"><a href="#cb39-8" aria-hidden="true" tabindex="-1"></a>)</span>
+<span id="cb39-9"><a href="#cb39-9" aria-hidden="true" tabindex="-1"></a></span>
+<span id="cb39-10"><a href="#cb39-10" aria-hidden="true" tabindex="-1"></a><span class="do">###  Wrangle the Data  </span><span class="al">###</span></span>
+<span id="cb39-11"><a href="#cb39-11" aria-hidden="true" tabindex="-1"></a>heightsClean_df <span class="ot">&lt;-</span> </span>
+<span id="cb39-12"><a href="#cb39-12" aria-hidden="true" tabindex="-1"></a>  heights_df <span class="sc">%&gt;%</span> </span>
+<span id="cb39-13"><a href="#cb39-13" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 1: Split the Units into another column</span></span>
+<span id="cb39-14"><a href="#cb39-14" aria-hidden="true" tabindex="-1"></a>  <span class="fu">mutate</span>(</span>
+<span id="cb39-15"><a href="#cb39-15" aria-hidden="true" tabindex="-1"></a>    <span class="at">units =</span> <span class="fu">str_sub</span>(heights, <span class="at">start =</span> <span class="sc">-</span><span class="dv">2</span>, <span class="at">end =</span> <span class="sc">-</span><span class="dv">1</span>)</span>
+<span id="cb39-16"><a href="#cb39-16" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">%&gt;%</span> </span>
+<span id="cb39-17"><a href="#cb39-17" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 2: Extract the height values</span></span>
+<span id="cb39-18"><a href="#cb39-18" aria-hidden="true" tabindex="-1"></a>  <span class="fu">mutate</span>(</span>
+<span id="cb39-19"><a href="#cb39-19" aria-hidden="true" tabindex="-1"></a>    <span class="at">value =</span> <span class="fu">str_extract</span>(heights, <span class="at">pattern =</span> <span class="st">"</span><span class="sc">\\</span><span class="st">d{2}"</span>)</span>
+<span id="cb39-20"><a href="#cb39-20" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">%&gt;%</span> </span>
+<span id="cb39-21"><a href="#cb39-21" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 3: change heights from character to numeric</span></span>
+<span id="cb39-22"><a href="#cb39-22" aria-hidden="true" tabindex="-1"></a>  <span class="fu">mutate</span>(</span>
+<span id="cb39-23"><a href="#cb39-23" aria-hidden="true" tabindex="-1"></a>    <span class="at">value =</span> <span class="fu">as.numeric</span>(value)</span>
+<span id="cb39-24"><a href="#cb39-24" aria-hidden="true" tabindex="-1"></a>  ) <span class="sc">%&gt;%</span> </span>
+<span id="cb39-25"><a href="#cb39-25" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 4: remove the original column (check your work beforehand)</span></span>
+<span id="cb39-26"><a href="#cb39-26" aria-hidden="true" tabindex="-1"></a>  <span class="fu">select</span>(<span class="sc">-</span>heights) <span class="sc">%&gt;%</span> </span>
+<span id="cb39-27"><a href="#cb39-27" aria-hidden="true" tabindex="-1"></a>  <span class="co"># Step 5: rename</span></span>
+<span id="cb39-28"><a href="#cb39-28" aria-hidden="true" tabindex="-1"></a>  <span class="fu">rename</span>(<span class="at">height =</span> value)</span>
+<span id="cb39-29"><a href="#cb39-29" aria-hidden="true" tabindex="-1"></a></span>
+<span id="cb39-30"><a href="#cb39-30" aria-hidden="true" tabindex="-1"></a><span class="do">###  Plot the Relationship  </span><span class="al">###</span></span>
+<span id="cb39-31"><a href="#cb39-31" aria-hidden="true" tabindex="-1"></a><span class="fu">ggplot</span>(<span class="at">data =</span> heightsClean_df) <span class="sc">+</span> </span>
+<span id="cb39-32"><a href="#cb39-32" aria-hidden="true" tabindex="-1"></a>  <span class="fu">theme_classic</span>() <span class="sc">+</span> </span>
+<span id="cb39-33"><a href="#cb39-33" aria-hidden="true" tabindex="-1"></a>  <span class="fu">aes</span>(<span class="at">x =</span> is_female, <span class="at">y =</span> height) <span class="sc">+</span> </span>
+<span id="cb39-34"><a href="#cb39-34" aria-hidden="true" tabindex="-1"></a>  <span class="fu">geom_boxplot</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 <div class="cell-output-display">
-<p><img src="lesson10_stringr_files/figure-html/unnamed-chunk-8-1.png" class="img-fluid" width="672"></p>
+<p><img src="lesson10_stringr_files/figure-html/unnamed-chunk-9-1.png" class="img-fluid" width="672"></p>
 </div>
 </div>
 <div class="callout-note callout callout-style-default callout-captioned">
diff --git a/lessons/lesson10_stringr_files/figure-html/unnamed-chunk-9-1.png b/lessons/lesson10_stringr_files/figure-html/unnamed-chunk-9-1.png
new file mode 100644
index 0000000000000000000000000000000000000000..593849e5d9adef1059f01434c8533ea909d47997
GIT binary patch
literal 40031
zcmeIbcT|&U_cj_3R62?jL7EK(DHe(#Bn~PfBQO>~x}pNor1z3RKt#Y%5tR}YJH0m{
z2naSh(u;sn1EF`4vmX_~d7t+?=bv-d@B0q3)~pp1^5ic2-uv3^x&t-URah8#88H|P
zi|X+sr!W|L90s$daQ#|%XX0{g69z-aYObuTX`!s5Y-4F-clzpilS?X>tS{M_o19Yl
z1A~zZ4nAvOw&m<5rHGs~vF#PUb<dvNW~E5qO}9K%eXY5Vaw*NKb<Z8k^uxE_liH%p
zckb_Acw)X=Y13i$H!r^2`9jruBO-hyZYW6nak}PXI^SJ0RdXtjYPcB&bM~j@-O0Ad
z|JXX)6G`^!ZMPq8XS$WWNAF(y4%$7uiQ?aCyVA;fN=oD%-gs8Acvgvvg@lQQ?WE!B
zE+RG$k%daz8>X_RsiuR8nkqEc+x!~i<vwifx`d%{zD+gop*uYPj-lbg3`2>6Wu#Eo
z#^MZ&HcvF$NNVMSfA(EBI=W}qtDBUPmh0<!w@vBNt+O9#2{|PFB4PK|k4N9j#648s
zR-5lT@11$H&7!2mS0gk{%5zi4n(V1?QM-Gc0qlgcUt1lnCrOy6y=A9f$}wjc-G(v9
zd+le(II2`)a@PIzmOh7<uVkwW#h%waFlF!Xb#Z)i=tJr7k%f%CMv;t;UZ*0Nd)Ndp
zU%EualijAb2_&C17rp*5SldjdZ0!0>b`RHOTF+r|Q*-%-s)J82-#ENyIH-GUgVuAU
z6784K;eRX|iDzvp-J$4j7|HDLPRem%a?VLR>cRT1+XuOscyI2I)XEtB<DIv5hR73k
zqf7_y(5}{ZCtL1(pdk<myx%nM2;LdeS1RGWAN(Ho=9(*sQ_7g*$Sol@a}Pb^*yoJA
zeP)mPo|-+H`TT{{QM7xOg2_5_h4OB&uUhJlXVh&YRj-Q3W@op(X7+M5i*u}ExO{b6
z-Ck8m)!V)^TejZ$Dz#ZSR_M0K`_mV1UaXcs!75#LZ>#;q@to>9SDJ072(m%1gZi8g
zmr_hG-v5$b`St`smc6mEvC`s0ScA2pyr;ExP~I^uLSDUnzr%J@-Yen`@0#nP>?)~6
zM!gNmM!mAS%#?LrYrF?rw6dfJ4}8*M^vt!<D^VF&RKKY7RQ#;v`Lx)_=cKjfXazrF
zJab&~)|;-?TlhNt9(&v3{q$|Yo!;H;UzIv5><M-R+YX<1245uXjO>hT1?>qcSL$5J
z2P}q@VpAA<%)|d`CH$e=D1K<yML)%&;-ZUc8hxDp*BH)Ax;e?laRhT4<gG1Bwz(MR
z8SlgW(w<};pH|<AJ#*~dS`m+D-Q@ji)UCU(ZBxZ=-s)$S=XPyq@|lyDnqqSjzSMry
z@(}$64<nBQN}I4nSA92k1Qq;68m+VIPyNW+b<;d5J>%iPjpFxTyDu;%?Gxo<{#F>X
zYcRJjZ%g$v){JnoZ<u8FeR4%Ms+2|U7T2ej><Me-7DN=Lbu$mLeTiRFHE;G&#>ccf
zpNxrDdgd~9%0;B)LI<tfXW!yC+8Vr-ae{-BdM?&G+A)nD`G(Z_MK{m!HFX`B>=^1A
z>JAsCw<h%;K|#n}(owy9@+3wSUa!Z{1ejy!;1v!0&kO%!FtjnWOYhL*V%99ZUQ>vC
zn7N_&FAN5UQ9W|_j0+8^jU}1?lIyw=ksMi?Keh|e?Pd7K_`=s(<Cu#=^uj(V&ZP{0
z&hjW|iHmQ|T)$Z*`K<4b*qPvz(}xRh6bCRKk78x8Qm(?#&~5wU5erRGz^1*zC7N4h
zzs9y%k%vyEzR#cjN;+SeM~uqpiJT@4&npp4P3x$ng9;bNsg~!r;e0SOv~=s)g;u=4
z{Y|UP5wEKHueX2v;X8V|7zw(6e+BvMHYdB!&K6z24J)7Z^XWnuN0#4y<LCRg;(ag&
zn(9Sw{`~ifQDA6jURa=v4uii4LwKL5bslYe>v0Ba(B9uJCWJYenZbxQVH{?F7iG*i
zp>s4eW~m8hdH!RCV6?QF4QOMgeb2ZacgHHB==UZ4@uz)9G(&LC&d&PIZH}|=r(0}@
zeFFocrdv&S{5J0&i))-mt1LsU%xu%}tV%9?bvEw8L|^snXzg>2(7fT?xK8_nw@?Ov
zFQxOKFW4)qg0>4)YiVh#WXx{w*oZRSs{1~e^wlq}F3zgt{2zTfqO6jSsci>^gMY|)
zX#CUulq;WKy`Fo2N2KiCKie!sA6fpU+s)1t^2Y>!I2eNHniJgFV;{u2*9gwwC|Q<G
zsWrX(X@1j<Peee=COsG3ilWcHQ0c&O(Es-Ip9{TeIS@Pdzp@<cKDlerEXr{$9Oj{=
z1?MpoL+OL5lSbJGA6zO}fs1-^QfOO27nAtgjxHJP)h$}xqMx|xe_#BydWw*<{XZHa
zuWr%m7A@JF|IxO{VXF`>CWm&gJ|SqHOeE%rILgpUbGmf;al45b<vN(h8{}n9=X2Ao
zKd@8kO5F>W>Aa4%#y26$$f(L6amFkk?$Fi~VzR7IoNm1$Su?Oc{ZXMdaqhE>e#Q=t
z7tw_qRJLru&b(oJl_e#%{9Vo4K1qe)bc5+=uI}qm+F^`mx4SVt1Jg}GtkUIA_y4)-
zcLMQz@lNbIL@!T$@5RZX<TDls3jAU1s~o`9tyPV>RY+y}^WlNr5(P6|RKbxO-#>m$
zLu*kVzrm+~X875!ue|VwA!x_4X&qjA#;=Frd~ggfw~d-nw|_o<#YY(Y70^I&)$8I=
zP&O`x4#vUoLR}T@q0#^#Klk~bU6PNLfJpOi@LuW8JpVPm6;F@hh0$D@cq6*<3rj=V
zbr^@yrG0f8%_Y`kfze3M8FQj7^Iah!j5y8b-3%zhfyKe3^Li#TqCu<^?Cd`Gd<O2K
zJ@kw+j3!t~haL@t?SO?-!#SQnd*~}+Axy$C!T7(?R(vBY+>RLe9cT~z45QIn-Nw~z
zTsjad56<doTs@7eN_ADKuFwffhWY;-+bFLl*UM-3Aucgj)X?=?m{+fWyn~tk)i?Bd
zq=vROe%THW`$IEdd`HJVN|rrQy>sEi-Q9cbdp`B`^)+5FvO&WXW`g*Ov{m#>TqPgE
z#OA{~<S_<mmrq7Ix4VwE+E;!nE0`^}34!RpB2_Q-qUxsy`$hcO1l!53Lnu1f2RBJ~
zn*mn|_|Ro2qk+*+*1DBP+sM-q0H#cCZf<5{Z;hH{d2wZIsFJ+Wd{brVi@##KW_t;t
z#Mua9;M*YXve&NTU3UlzU%AR$l$W+|#V_I9*Kg<WiMIQ&yM>cF>`aUZAOvi&JFX8{
zHh*4ms?lV0oIpL~)MAx&U%}a$lslL>Yid#!5}f3{IB45!{`{zuX}=0~uG*zGqP@;N
z5+Lt?BBJyF+!)(ox4uUKUG5$8hNRSw60;3W0W5s=Ee{BkiRZI}-J#e5*#*+9)V%0|
z;KCchlDWyjarSi6RwC;2LUA=Tef}(bT^2_3x|Z#)4=RoQ6I!CzF;_1xKi(G`+CxrD
zB63@u!#uQN!!BH{E-OVD75j^9<T2t|ts6D4iw-0rm15iTz|^|-1}RG^%?erbp0t8)
zMYiLjt?z}<&{G)a@g7-R7FUIU$3(FpMM_X<aiTUh&A#Q7k>}*+h4CT!7<W>N3dOb3
zORuteoYH6#+SWt!XOqEm8}Ip+?zh}Vq^5H88R{6foJoGmw96tF{0ppBqW<P>$8KJq
zE||`5`7_PD_E~$CojaQx??JnZUi!|?(=uh#{4U?Zv>%%hLPA0c@?1}%ZFLa+Z5AB0
zpFr9DJo2FZWr4q~hvXglsuudmMCu}$sraKMHCoetW~5V3u;A@{b*##?|4T)|i!_7C
za2KXk+)EeK(4K2Sf14SnouJD(-R^E9;X3g0xwW<f!E-8*G_9DXAQzMwJ=*5nk>A(d
zo}w_E9Xst<8Dz<FPU;F;I_^s_$MG@Y<Kw-Rp(I&c$KtSa8O^#a$p&qEFy)!iG4_M}
z4T%O3Y;YJ1^}N3-qHT+n(5;J@T(j!OkrYp|dk3ptGPz*Bhk%`|JMA|=c~j7#>aZVy
z57k#_rhQKzgLrk(U+ik0s4CPE_L>}{%oh1EWi?68vs6Y4If4Rc@vuf&1`K|HX*;(M
zrObOlh4SSQiGkEz7TR%s-LsPs_q>mK&5nIbF@E#6_*6b+Zm|1lxZ#bg{2?pbiE0&_
z(Fd}qVjh6AgJVOP?X{n^?Jj+re7@MJ(N9>}zr<+atx-v@(sa&D5qH5YtlaKAi-~_!
z1l}8&mU$1HCfu;Z@}VuvkjSl8{+K3%h$g2m_;su=_{#X5^*y@zI<7BHwMY)X9<P|G
za4xtLKxityQ!w{AskAddP$_1-F%ZqI7+~1$ysj?*yU_WLvNnz1wq%2C?Mc~hMy}q&
zIlWum<xX*3XXSsWuXKoqYaYeDGIPg&rLBtUf7k9#=5Hbdqy5AIy4J4y#{|!!I+=KI
zvM_Ji(dKCmu2OAZEV{=B9uHRx&$2hYtP6z@hmY6u466G@4_+kgCS|mJdIH|p$=J|W
zD0UJTg9De&=fZXL>CwfQPyB`IUv7daFljQQW#evvdwC#O=@qK8M+;M+xgm_^B-X&p
zpH-`%JJ5(bi`#nyMXYg%|9oKX1*$j82)-r#E`K!bdK{eDhpU_SFZo>Eyw#KUn-0-j
zJ$cI-_?P-wRhz3eZ>3RLRhz47b5(7A2a*4y&?dg(@4bMD52$__&Lf8)Uc9QQJ@0q)
zS#`e<JRe?#s=t;uZX-a@omEG6oY9WS%Tw?gkLWn#jMw^)@|ENI03BU?!&H9R1LTEG
zWZ_^EQGidz@*TI7$IJ+XU|hPnOfJK()txD{@u^QA{jhVTEy0h`CuVouxWDhx35xUl
zP*ynh(Pl)c81vE4^vP^TFR3|NsQu-1{}Xx9-BNa6-!*zu7sYa9f{@dPpIdL)n!Q)R
zdtr2LQ~arAi0ug=*i-8D_9{y}5{98r$kc+S=Z;F>|3YdPUfQDm$W(`_%<?xJH;r)4
z$U7O7FE7n6ZFglW<Z@JF!%&i7F(ClOSHHG0z_hv~|KVA#F3IYW{0v3>Z=y@8CNL8U
z9kc34*nJd&q%8MGAgUc~5^`{7!OUAp))^iJln4@3U|{jj*2Q3F-)nS5bSzws*GYLy
z%yGw3`!&3IArwiD`J=YoHy<r5<5TEFC!e*y{dQ+CpKR&aw~yUWc5zmz<NAhey8Dt;
ze<|Y?FJ1%`s?*097#P?>)XY+Na&9oGm#m>US;r&qP$ql-^1O9(`pfB=ZJ~!!r!!E)
z;Ovd(@KKC7;#5Y`TZpU)C_Xanc)KZha?xY3Awa;*?9)SOi^20`w2}fLXaay=CwufN
zbhmU+oDPi?uE}T8Nj5%wXr7cd3SnW%(on$;1;dF8jmhUz=7;mjt}$?Q-P~VsJ%6e>
z&P>(>#nP;2H#=_poVLocG_6uefjam=abDMh%g1Y>TQHQAffkViBYd||eO-*6<bto@
zg7FsnPkZ;ej(ttQjz#~+nL|vrIH#E##;yLGX+}Ec4q7Y=XY5XUk_|Vno^JQ;gHC~m
zYrJ8;e0`Ep$8>B_!#aKk&5PbE%;t(Y98iwAi*YD_C_Sqj%q5}E6CrCOFe2ak=>bQ$
zzTJDD>8x%43cUOP22R^S)(+&gjDNkO5%N?meAvv8fI6-i2Sl{Sd&&n{uxtmv-jeH$
zw7*bvjbSf<0<WO=Q)%emI)}_Ae9yVtN#gDs7rNdC#lnB*EF1-vZU2f%FrP5)i<ufW
z?L8SG^VV~^Eu1XvK4sZyiZxXF4aoeQN{l}K+1eOof9Al73TpmK2U26ox5U;aba@HI
z)vl=mVcbU;i*_IGH@zarfp!pnJhSOkUT*FfCv~O_8^XdTb2rb;RAeQRT3X9OR=S4*
zKGEKkStJMcPQd>Flm_W!S+}u1o8GYWN54tJ2M)8D-6N3uGToz_{^IH-j-7wLE3?TP
z%H)x?*5BeW@&=I~p8c2q?4&6AibT6yh`d_FplGv*mS@1=qc)n!VGLfo*nWyq$m)1+
z<Td;4ofn&f5Ru`bB2E?4Ecudu#fkkjU!E9TEs+*m=sNTtP!stZd<{Ks!J3K3K@vAK
zJi0he8hlC28*Z)}Ke!ofN|RhLhVr5l_)Gbc0-sS9^+hgH8<nqI|2usBvG2HIfN=i(
zTaNz*ZGV3DnVy%zxG=>Cc|0$!N-T9@N=af1xv%d!<l(j*3+Cmtas8;*HDu%M-s!a#
zb=#$Q5V19)jD?#}7G{0V70b+r@X1P0W<sfQJrz-Wd5{T_A@KcLnUyaJade`yoHIt$
zxdz+WZ{cNiFHd)W3pWxt&OarLDhx7+uzQc)Asm^Kb?Bo;yUk7X+ja-bmR5RG#%IcH
zyf{L!6qkiTBE<sE<c^fyX!jl_w=#wH4OwkYdaZ7Q343kYU$-X}O6q0qsW{jhX~kuQ
zvMeA^Yc_x$nS(Q1N}%);O2Mz_dT5at2%S)374n1easw}7$2z7X515~dbf{6?Yg!Sh
zlXBsxQncS=HpK}|(5qsUfh3BkfY(gt49IwN67`;*b>MS?mzz*VW590$yCgq)>klYm
z7Hh%_HWBCB$X$@R4aUx=VOuVwCUjhM_M!BtU~hC52b7s&=bK#mpN5Ya9J|T00Wy$T
zT~TBYQzR)#-0v`Gl8<_jaNfw;k@Kh9Ju3EB9!ewTj90SBeepqj6|XY0De2j0t9Q4A
z_nMU6Tu4yBxt~EzycHVLJ>>PVZcG+V?HKx$nPO7L>cS7Y-=+W(dh<jZ+fQHwqliWs
zS3Yxfx37fFzn0lpi1s84PC-Gz1oCz7dp#j9w056&L8YYEXwX6jNsR271rL<;&g<}+
zpX8r<h`Ls5Hkw_*JS>-U9H{f?s`MPTPq|$F(2ILCEXiYsAtaJLh|wl#vPt<<x)jV)
zlH-)LD{6X*Zmk%C1d5m>KQ-J^WTBLBXx#K;;^s;;|Mnrww)!adTO;bEQ7?fwolh<&
zY$W8nl2XdXM9Qd?X<{g(J&|_0Lji|TRW0dwjJ=AW%vckoJ~w*LhI?=Jo_6-;CN6xF
z>_%(>1INx1{5k=i?$Y3(&vDvi_LYj^R4p^EtCw3K>)%z%XG4k_252&r?|#7j{wb&U
zV4MP@gR^s4kYqt)h*}ong|Z(%ZambS!EiQq)AAU6IY4wDp2UKrFJ$2)^GK-+aU?OV
z`0J!3vj`*!dv6$0nX_e0QI8ajqL3VA_Xn}0J@TJ;@R{t{u=d^A-60l18M@p5t&D_@
z;!n|5A?ZL!=5}opoISorCs`;pV2ijx?g7eB2Spq*<o7y8A1IFWL256kzxKIJ=N!P6
zvMl1_kQ^zwxa+=2NFYi7zgXC<nkO*LX}3nZ%gT@he{@y~Bq0}M72Ve{8s6Nze<xD3
z`nLx21~WGNhHb}6(#>m|O;WT}W4dUY$f~9t%<nRN*_7m<f*|xpQsdbAGe*W;C4rxf
zo^UQ>IkU&Omo$C#gP#P<E^fP(TZm-vv!|LZPD`Hlq|@DcOK}$&4(j{fxlg7_9H*bF
zTfKk1^EX|Dcc9~C#c_-4*3Dm=CNT_`33_`Z-loTXyeDpP+^qEG=6@EOmQM5v!^<vI
z#f<k~Q-vrH1Y!1A@JL@dV}qHC6<plaQ%UHkYIbV6#7$$SY{!Zgc#Ao1Y*rn!cX^jr
zJo|}I)d+tKQr2KHMQX}9?9_X?(rLV0whVT|t(|qCqo8+l9o`Ae!296vxMG^Vk<Q|6
z^DS;ra?zG4@L!OX&2^j_k(N3TmsIM#*x;Qn?Dz04%Gt!vG2G?#Nz~8TrvxauhwV5o
znA)3L4({vu^x%$Il1|E2$_N`(DmCeo4WL)AF;TQ(0T%Kn(h_6CtU#$D)hngFSn8|}
z6t#3FB9#-Z09|G~)+vqPXWFL=xQqQ+#9AAK{w=QGRSxflUEf%%K1vb~NxU8@I<!C{
zk#24ak=wdcJu>_4T<W?VlXTIttyh&jNG5_UUG}K;HA2a0i1HM4{rb<lXm)}XK=M(<
zG}Js*8*lLBb{~5$(o48x<Xf3ZVy(LL@!n+HTMN{kBHcwWk_{xltJ~V5IwoBqfBkl5
zv^y)WaB;c=OPM8554JD#$d;7`^L2y0X&Nq2T4^wUt#_d@J-{NRi7Mq;-qbvtGwhsK
z!=0f!ZMz>@eGHc*J9{gjE8iGI`KIN`33^Ucdknuk{hZZ-1wmFG9i{|Nr^2$ve}4VO
z$`^|a2c$7WfD8WFrqW|ifvTNBo8k6K?L_?tL;=`f^8Nqne*l1Ny3jtE=={whw>v~(
z?dwdEGcIkYN|}v+WUmuiO@z-6TNSD_*XL0|Tx=l*15A5Nob48*bP8U0^Edshm+x$|
z2T>$*4ceAxa3d}NDDR_F4%6C(t~){wjlF}YoLCo>zqGEMdte$Jh^3BWL%;hVmI#D^
zsv@g20@}kM(kKch!U1Y?ZdxSe%lNbM^EQ!vyg*ulkP-&AKhlo2yL1Qdb(`n|Yr5t;
zN+^$zEd#%9OyO{viRFrey1XT3_i(!dyBS0x*{9o_jsA>~NpOy8YipYw<Ti8>)=JR*
zte^yj*k$C+IulS~`6h<TUtJ*&F`H?l%H>q64~EDOywHKtu2zrn@>wDXKqyHvuX~)I
z?4p8H*QdrzERwywt2;~ApV+d_Xo(8|?U~87v`^_{nm+h5Z{CQY6-rjEm?JH!Ff*Tu
zxtmnTX2;@$4mfrL?mVRvg{mY(*WaDvoCy=t?jg?SxJ?cqT>`{O0jQJtU#L&8JrLL|
z*=!oQfr(q<lc3vyD!&RSW|PSIdK*7%jYS<LNi(LO#>^?J_q_;Vi(0ruTW5(9y3jQt
zXS}yOqJhs#!0w%}E#SivaA_}mefQ5|{p}%BwAvvbTpHq^NSsUEZq%~3Yzs#aw<O?#
zkjn|5T~Vz71ZSTq(R<ZCJ89eDIsJ|4zM^~Ph`nY)@_sbwE9U~3BY*MTtv=F1N5qM;
z5dIcYhP)u!pVF<}fk2se+d@BaUj=Dpz9RfzG=3UAK)B06g98H}8fLl$sd6%wja8({
z|Mu8D$YU4AD?=abH$65b_2gXI<+r(xgKJ;^w-Ct#S{5ulr9y#x^JowkXW}LBVP|K+
zvTz|t2Qkn)HKMnGbnk8@nvNidi$h)RQE!4bs(X=qnwDi<46>>@_PtXIv!KYgG?DSF
zUu6%ct=q+bo8OUvssz?-GMm%>vQ93k4Rsqdb8*GaK86m}M@IuSJRZMfYISTdh;UO9
zLEGe*c4Q3abap4lPrr?ILlLvH+z?%V<@|0A?Z?b?aF}MPs5NNw1J4bUKER*)BXa*Q
zpNE%=-ACrnUL48~(!G*^n7vy-eCSFo{ZrN8{eiH8r52s9;T02f!?X(zqE7TY)bbQN
zu%exhm;pG>t5f_hyNEOW%x&hmLe-~heF2ail$e-UuYN^_HjokN&&o;#AueqoQYPD{
zL8C*ys$hPYPqy8~#AKbqt9!7(x|s&m%TLLaOoqbCnaL#Y{6&6`KYVb?v~k)=A*9M<
zK7|zwmJoOARsYi0%&;D3(O^fv92nq<#F;*)wn)kCbw}RBZKnOZa^IOjTXm}1GXYPn
z<-Q!eKOL*m%$MxRdObe*`orIUIpzT^*{vaO>-+;QKKvU-m-RKqZ%G=z+_&WyxE81w
zYk78->%{VVzoZcW3SEpZXBrkwS6OWn!dOLUo!f=>p)b(7uxfpxEHA_Ip-K;i<6@<I
z=@Ht8%+Q-Iud{c4c^#HbWt9vpZl-yd-?AsL{GpT%Wam~V`TxRB_H7~23?);+ZR42k
z@b=yVQ5OVQtP^lCj&!U)x7TZ7#_Ar?x-B<*;8k4aX0k%n=g*uRBI+cCuhM9;0d=-#
zFh3m1g2@C#Z0+a%iaqugkQo=iMYB%?ELLg!L1l@mNL2b!y=a%N!0g$ch%BC#x$?Wa
zPt(Qd#k!z~atsUIZHSUX)TO7hx34<Zq$2X5ZR7cXw>{+%-B5oX6qi&WUoi1h@|y_~
z4|CH?^Ozl5m_))=V82NG<oOFwy6f5DhFSw1ft0%!%nii3&K!i==j^Yy)w)KC*~nIJ
z0+c2m%^;DtbBzxc-Agx{PI%RG_+0Mno$sJh+HED51%DZ;nRz3%{@x2^-Z%Hql^2y4
zbed`eU9ODgZ)#}EDu~$6_c0T=HKs`eMrdYZ<A&oqF`fV`$M5|~P|8o1MzR1Gy*;xa
z23vAkLy<EoDr(mEc4}pPq5&U74%8?O&PGXSmdgx_jN@#a*0;H)+Gc`l&jTbkurQ!a
zyg_<%ys0h9G}^UCMgw0t^--xZn$^3QMfR)FBX5XXZJp=!l$m<N<|U<m@Y`LlJh!PP
z(=w>O&uWxZAZOclZ&g6A&6PbS^Z+vfkpwFN{Y3C1k)Bbc0v*XexEAIBKgdit#92H%
zzzNT<Q6y4lNokcmY^u%R*=%*^sj1b#Mo|si`k$sa^w%t8xBD_0B1sMK#PZ8UkXm;D
zmzMi~)LF0HdG(!ez*pxUQ+IMsZ}b|4cZR>KoS0DDMw&jrL0jhs!7W1S_mgsskZe+B
zR=zlK&G@Uh#2d5Yy=9le4eoi@k8hfZ?x1==$HFEfsGvrAIu4$k`Z}X$lP@hnTo}t9
z%51sNoNhiEJ^lJQTSPeWV^xfJ?Cc$EAfoPn=~d(fFX!>CnDPSaXe&Nh>zfdRE7dL-
z3tJejwA_;yH(pDiI9znTewoPO1|{pI&y^-$l49RQvl7}i$U|c=68ToTw^(*dSh*{`
zR{bNHw*2p^!Nff40Gd92=hhA9%$l9`^4%N-GLh^OIl1BYdH)zmx~8!iQ?IDit38EV
zlssI#C;$p4{Ry5TpJ>Z1-4{m7+yl}Sux#>uG2%s)?QGQEw{Rfu63Yv;h_OQUz$=vk
zQDN)RaQdWkLV1o-&C?5pXj)q{5f<6(*j@UNruu313Xd;T%C@}y2U?H_AC<44N{CMS
zV9F-vHu+h59$P4YHqtXEKxhu+t=Zp_x{im_N|9}wJnXqUwxIu61h|BWjl+8-3uZ19
zkOkaH8=Bf4qeiBh)!-rNz5T;Y98E!)NUVEy<a_{s{ro7D>32hXtJ0f0-8s232!h=T
z-r<UVjsM!Q?*|z-&j5;mQZ2an7YV|!qd`UsTMM8I!lpV<gy6ByYs6RZt41Ie!dLEC
zh0bdnV+}!E;x{Y_1$s`=B-Uz61<1S2d;J&1xb;@a=`Z^SNy5j|Oe;f>aJcQ~v)XSV
zsvxMs?|3F&H$&8#xH#1}JRAb?L%F&3a@V>3=ViBdsBO(tKw3$z{uw1NO?B@I6zKx!
z{z=cJ-L?1a*Y|f?o<!Y4DGc$!86oFC{sp-75{a+JK4e3WO&4?o1O^Ct$t5|0*ZPkl
ze?eSaoXyZI|0870#*^N3TrFmqZHsM+A~a=EDf4B}HY5nHP)ipNYTO0-nx4>B-Be^!
zNCN!{Ss#N#5Uu=2anTbZyUo@rPHm123u429b5#Ldh)2K8UFXzP%oB)FSWoi^F6+!?
zQ(q;3v|A{WkmIh*rkLJqMWi}8Ih8^TW}N8dj2=+162A3G`Bw8EEn86);Y+|IPg{4Q
z0_re;9a>i+f_^){Kh!$@9x%7*eX!bxrl)mx144S5nS*KpR)27HNmqsDcbf>61*^y6
z|G}|XaCUd5O}cdU3)_Ow@oc8`kF&R$F^cBk%`QC7k&b<^|DnviM}+wJbl&1ixGe#x
z57PBdyxp6&XVL8CgX?^Z*4=+3>RjWKxUO(xYfuq2`ZRf-SZUBWoFCv$n4b4gN}6t}
zv@htb@6E?nxU&8m!3#ZyHlpX5sc1^=ov09|{6hjNN0=QbO8YBfs7f>*6l{DeD$VBV
z&!H)a)y4c*lns%_RZ&?Ll@;~`zp7PG!1Mo~RkXwVbN5%;tv(%E#BH3JYaq6#2sGCs
zVMW|-dZ-K3`QY~QObZ0rTiSIPmOWDW_(Eu_7u<RBVcmH`hwqZN%Z#5^K+#7&ICBV}
zKDE;2MDr?uKiYYPwEi-)_!=;jYAxxaXx^uf>a7LV6}ws$UkDTn+=)cW+~v@pW3Xc&
zLFvbNsN>4Haaui)ZUQ6zm&q%}Uq7(o#Zkx<R2Ortc<0w#cWeZ{sTX_C`k^^JkHJ~$
zJCAD0H$og+t?vG-KTzg|`wN<yCz6k%eH4hWO<no(>~CcnKL-}G3%ZQm8c{1MjsSGn
zDE;i!ibeUg6`Gr%XIs${t>jX3D@;9*_w-pb7_$p@AV?q+^`n1a>PLcKivC)t6)!fy
zb{}QaTk+1XQQbWbQ-54~h7(Oi-+(zh4iHEC=)`uI`s()mTL@RTZ}s&3I_5uLte(DA
z<@vj1Syi5^w(nm?9KQ-(R-wx;REE63ts>9=50NJ>yzAL-KeynGhyD(UEzn{?^$w8!
zj)9YJ&~ZUc`i&D>mMYxrK28%{6AR0rx>?g0e49?F1hg#P*t*nNP?bsRUznAUl(*!R
ztvvY2jPw&21HYLY%Vo+{0`&Fz_T^I0doVR)79EHS;6QTvML@9iFxtH}+x9$lahiP9
zaioy0IRf`wJ*v57n`^Wa6l_`bvV0v~etJA39%_W#&u)tQllCb`Uvq{<hI(7BBNHX-
z?6+j_g7B6wFw<BqRK}?s@ECI5{;OgA$5e4L;GxJ|p-1yxZs|dzyPm%5@}ew{=OPEY
z&*jyhTV9awhkSK0e_xRA4%Mot{EipDFVX6``ya1Wa=%JQskkCF_egDh@kD>EGAQUj
zh+d0DP`j{Mro}RCXOIyTGG!0v4i-T(>qaPph>|ic^pSEI`Es?8X5F=lC<R&9;3%}I
zrhDU0(Z@j51|zrr)x+7qx_D;+dJegvzef-{2)TCtd7r&PuKOm!4#}l^398IG`8sBf
zA<cX>6ahuIYk?dh&nl6c4Jcva$aNah%`RPw7GmR9jya?JMG^{!HhE1Ad=^8vQ#(Vw
z7fg_nxMFA*=T@T3bYF!E_G@5Z5~}u5p|j*cQ6;o)UBfQ+Yji?)88bra+IS@{p$IDD
zil7q1NUj6@$5dht(Dbbn^te@2`B_U(JQ8ZX&O=8!v#lcQdFog=G15PytUczAh(=;&
z1r%BF3jptGaw)IHHKf6!L?G6-za`5?Zo1XJHY2OmP7Psoo#YimTR?{`_!_zxq#ftF
za39jJ?gUkM$HYh4$X>D@K&;8MW*uw1Kpym{)y_fBk}~uGznbqpv4xS?Vx8v)oqPT~
zf9s;CEA~DY+NTV-Zn|T(P0(i-Vd;0+cdZ{%0K)E5>g-#(gVo#SN+6AyK2kCGjI{-|
zk5++uSNZniHU+bn9}jmBz3)RS-9X0dOm}F2+};|H9F7pVuItCr3W;!MRsX}u1|#D8
z%dbdDf8MJ5s_Ljf?e(UJcmVgNU$LOq%=zo&t)9?~$vAKI8>IXht-7UwEIDw`M7Ph*
zLhXG36gfVfc1naQnBABtB~Le`UaW=!O>k!%yKl{ApZU9D0Ph_i58Y+v33i6X-C;vw
zNw4<-5{gMZx7d{LKF#i{$@H5f)jh*4<k{UhDWe)@WRZ|@h2wAnRJSDGpg*y}ry@dD
zvP2_tWLLr9epY8}|C2jKJrOnn?I6oiP_ij?zUbNr(znLn0`)w_&~vUFxoNk=V0@bT
zo$_R8rhC44(l6qqp|QwszsUYVgk9uYu;BM`#LMGP(Z$%_ch^TG^#I)ON}cu&Xq?|K
z!DpF#SPsg3lu5$89UOCUMvJ16z!m&5%PewHajMEv;!8Y<3|J{w+n$=!_c-WOj4pKs
z3a|K(CYUSlbgB0p(ZZo)>+f#G7}(@b{=vMv`{t1C<Jc23=LjRo#jI*HeI1mktbt*k
zkkV;)INn*gNt6?psHy(DJ?3f&iQeaQL&@6>>Z@jtaW|ooq{T7bz05VkbGh^q^deht
zd|}g3U`~aaQC&sDoM#&ywAdC*p6<i{<q`fIH6|V+qWKV$?o4i1rTTFjnx%3gt#VV-
zgAGY;ukFe~UbWk_y`QFfLz7nmu|@v(Mg39R#D4??#_W>QG*n+@tInwidL9^p{@J0p
zGO>nM&<CGA!@}fLp-A;kP0yD%zG8Wcs5Sm;81C-GDE7tp{!tmNSPb>8#bMfp=gj_w
z3Q8G$AQ(2kHv^5~v2K=qRgcaGiD$0gfBDmT<V-ty>*qiTZw>R9?ao=yGMhr0mW!^I
z!)-Ap>m77YWjWkbF_=27{$SsZoBRqgC;iilSrx7sIJZfcyuS{8dG{~72|{zE9FSl$
z$=+zVDWE7{E<}A$>9LcUM@s0>?AJS;&^UYi&hEvD=UA3eL$TZvJNL<fFo_met70fN
zPJ5hnRS9jG#5e6ai{TZA%G3wn1-PWCU98EPN?EKWjUXJ<cl2#t7N7*Rh}4u8S7uUK
zbw@+#APLGOKYNO$g7|C@??ovfH{*kT{us_@uH!v^a)EzEE_%9}+IkNrWEH7N=5Oly
zdfanvf*~#;a}0{ye6)0nG*IL-PCe%1E3sTFHADMy>Ef8fzFIGC&9GL_q@bw>O;&su
zxl1QxE)JDAb_ev0+{?B-i^8XYOMuLj#iA^35v7#vE;Op>c9ov};Yuy<8Ul4PkbaZN
z4$LG<ub1WpBqPG7{TW5`)*%fp_1<gh2>%YmBmOh^FgvXE&!Qx`GzTHGp-W}a^hQ~%
z)d~Key@L)f9euV;5)|E?c(7g`A&>8(Xx$hGTKAz0?Z(RyR$8wNqwdv-i#a|Gx+gjU
zmdf8S-%WgS%Q_SpXV=LrgpzEoV<B5|NE{Jz#q2XXHFZrI*78}hL*#&+6}vD}pB?26
z$1Y|kz1#FK|5|3ATT0-T$EmIf`xyj~&%}iaD8A}2tv7TZ3NhHM0X+qHR?(PsW_+@(
z<+2@Ho@o%;OP^*VT;U&fUj?|SO~p>!Qf6fUO|aYa=;t5z9I@|8C`2IUGxey41F{!N
zu2&JgsWtUy-@-Ynx<^Y`B$<BK1h3YUF$TLczY+Vs__DE%njnczJSX?{B#xI0+iH*-
zo16fpauNf@mJVQ?=9j;jBwnnIp(yG5u{<)PrMseA$UgJX+A9q0{942L&1umdTKf75
zXjYdF=l5BJ(KnQ}ybG}e-QlUT3MfZZTHKgx>GyE+TrR-SUIe{+k<eLrOZbud^zhI;
zUXlN&j*h_>0wo1UmxzS#IyP2VBlD~NCy|GmS-{BjnDS7&h~oZ)DV;r*WQ_9jbj`ZZ
zbXQ+AjMDAlQz#07j>LU#D>|l@ja5}WD4t9%r|){_okX(BXjk&p&LYw`(ciB>ZYJQu
zr>2ibf9KiO$|yt#>!r+Vo_uq=nUK{kk3g1_(F)M!h@kK%CIsq2Z}FRTf~{X&!=j)O
zk_lQg^#Lz#D*`L6-ITA7HS!pJd$nA;;hN6n*JWV9H_5a))FKig1&v-i$<xgiNq&H?
zJ#&VQ4#M5!5^?c!KkKp`gzz@NY<M0zqs1mlwyA_L0~~UP&Qd4vHTFNu&$REYI1f)|
z&Uc$+R2WJ>jc^Pieh*`B0}-jgCR9j9YTB68$Dcb7wfW|i^xXRF^*ScO>BD(yireF0
zBcMZyrjOD1U>ITwwz3oTH3&+cIj>q0^s+8j=0Pp}tLa$)=~<sJ4gg;I7qU9M@|xUb
z9KS$=8<T02qt<;{8$<am)Z;qv51`w4eM`x?)mFs?=roF;HDHq#TwgFC&LysU#<O5R
z{ikmL1r=S`+YsIh5Id9Q+~Fx3C8%<557{|Z&pKyEE6kx^@EjKUH_v>G^9}{#m+V~P
z%P^igtq(!l^hATm5}XWJ1kzrB4dooSlL2A7a>5wI4{Gbxb*@B-DQ@JA-bBnsa1tVs
zFGYGdG!AVLfX?`lml~e0I$w%6dqHnXF<fv_qZk6+=p#wgxui!bp#tU#O2tvm?VG(Q
z<AeY#Wi(WnQhgPg$feI2k^(m<pZ*E8HP!J*v3(sIhlzOi^>Bpe=6qVY3=`aDVRdGd
zMYc7$x&T_2GOL~aXZQg+wy!_^>`w;U?d5=l!rZK)-3DF;C)y<N7v!bidos^1q{)OB
zMYBte0Nx5uFqYt?ScQ!q?4Zz$Q0B?cg^j^GV&02E*#7ktG0<Y*UfT`SC<Kd5^`(Z~
z2)9*VTb{EV;HP4^9DyI{JqSpITRmRY0OiHzdL!?}WAj5lPr?V`sw5-gG0wmajjoNv
z{jloM8TGniB^t#$yh3@TjB$NUX{IypHN0-S;i3EaNwwyTe?tN(lPn=7)+-My{a4}k
z;~9+u1Al_9Vx|QWrsGdb44=4@^PP39GCrS5y3WbpUJ$PmtlZLFQzs}LX5rj)DLlFQ
z7~j+LHepx?(Xxdlgqr@W5PZGbArLH%uH&3P+y^(1$5%FMG!Ru-!|)oqt2)7fS0%S>
zfy-2Q*AmAo6ar=n;t*#yLAS#yvuS6WWV^FDxi%NNK8m2PL77=u{HLD7XKr)>`k}b2
zL@I05PwBg50CCbNeLVchE+Woj)?0rH2zdq+QdyyAC|$B3D6Mlos|FvoPzff0v+Glw
zZO=5q9*11DE?lv`<7(jkv{J(tTt9UaPLBbYr`8EmVlDK$ZjN})Pn{g3e7_tePODG>
zZn7ZOfT&g_(novE^^ZV1MskxWLUK_%GBqbsay4z=f?|PpT53tmz5+?H3Mp#g8n$Z)
z61RJC6q^OU?+DVz9cf#-dH2i$G?d*N<`xmZ&LQzO`guzHrIS}T4K~%~9UjECB3&y3
zWT^yi??Jlt(-q$$Fc|J+)gy<`d=GWbb0hJCS~`_U!UTvnL)zu?6Wfftj^9_0lJ_IS
z%@$U3p-BaKbv88cZFU`ib`JeYA%KWup3!%4&(4@z2kw83Pz?DM19i$tVbe&Aaf5+#
zf<TaRA#fG_bJ>L0>CdMtjtQnGWwuy%!VNcU$UPvn?#Dp*CMTGo^^bY97Fg0oY^YN<
zoj~Mb<+Sy0<i5kX`0@m1KAHF&<*A=xdg-m2vt{)?uks)!@pQx<*j8<Z?`k!X^VH&`
zav5l7r4d%sfBdx&LlS=zM>3e5t@JKvQtKwgvV=$26dW9C1{G3UH8EFa5?UokM*;23
zoZ@^W^8SmAdnaX@wgdBBhbjTO-u-z>DDYiYgxTrgLSHy>;nIEZ!I4g?>&2aX60s_w
z)^^^D<6WN;f9`ioCVjz(pX8Ijw%PhmgIn;FENy#DZ6To3zT%*WC2*0Q^YL(gUlh*{
zcU;3T#Z{GGA)%M%Ka4>Ou&&#3wa~7^ZMZe(<+{tSzdVbuX0*Mob6Rb|S9t9sqxt5B
zhw`mmo-hU1>jb%ro}l(Sfxw4Z+raVcb;TWB`=vPtO50yS^uR0Vqtlun5*X7;3x;9O
zYu#QTjAcZ)KC<D66eFYv2rmj^XO69(6ghIEL*w3*Tl9=X^@mf`+z$mawa(#ly!D74
zb)ZQ*yr-?~FXVwbG<c9YabQ^6RZbBQ*?A)^Rd%6d+NX3!MYBMq)%%SiN;f)t1Sul{
zmu)zxW^&-;7sL5{P!UKL%vf@1bk&3kuJmFl-Pj`VNtKx;RDf`-OW`n|#N?XFIU3XA
z@vbSD<pU?@!Fuuh56@rPlMqh<|Bbt9jl*n0<ahJ;k^Kd;H+DF?yXY?!{?A{Vz{A(N
zu3UyF3xsE23N+o$O1<bPTb@N|@~M?dZ#<px^3hP({F(M*&ZJ-NmF{UFN-??rIYFQR
z2%4Tx-zw|u?<IJ9b+&bnx}RV^+<pDQOlY=k`U(4w5Lvm+ItkoHIj2bon!<Ck!+7YE
zBfs}Smot63zjqr%PbM9p-^yaDMDAcs)g$HFQ9hg3DNW<|dJ7BjYfjJP0H!!VQ&W=|
zNTv<`2+er+oE|PQCgQ_3UO)d0p-gfZG6_}W>Ut8&60YGnaN4{<x<UVrVQuY*OKXVo
zfLO;r7m`kW*N5rAU)*e`?2Kq{ygXj+iK2u8`L%r?5KHOW3}Yd9cU689Rn7%&c8O51
zdNALupg{d*MA;GL46#RlWS?F(99?AUg+Qf5Zr|epsaaqeYrtAY{q)+ZuF#Gus4qxt
z3P%ju>(Np^KX*Y0^O?It(_&|QS_LEM3ehd0y+|XddFs2yxC0>%zb`KCBRw<TCg%~t
zM-$USe}U~2auL<RlBSOE3=*IN^JjH4Uh$2^olowli|TJ&^U-Lbi`&n0Qucymh1|z0
z`s#9>*A7IIZmUTEVb-6=380`PEmPid^)H?qWebw)KLwZb)K;Z`(43i@4jK%@9_Jml
z$zCK=Dda~RzsMZA9Px7o>_jnyJks2M27&~#i)*Zo?oiivDA}NLt#OS5v}5*jsFali
zihS2YfgO5UdR7?|i@UrC=GLQaPY-UMN7S<pj;*S6=M*Bpg^Y|~4;1@7wQP$XK{J}g
z1MRZ+w1{zVXfFxmP$oS+=N)LYz^5KvcQubP3wX|9uKPl`ffK`M=ye3k9D*YuT!6KJ
z7B&`82zmqbxs^)ub;S7O_7O_Cm89Y8?5j~MOXkB9U*I|KpX4<eXWjt%l@FrRiE{zP
zfg;g7NT?W;X<j<EKyVSx^PjOgUCuE)x1)gq@#8{SQ%^zMfmYCpcqF<jEn4+*m}(qe
zXV!N1`^uaUWnWVTI_}w{89uA@zf>(=>i)2bI2G>evFE#zr{(sZ^2pF2x98WsyBA_8
zS&8^MQ#&D<X(Qf+%5h>QO{4rpFSsTc#hqX`vjGS*RlhYFjROy_1;9L$_bDG*=CZ0C
z>O6-MjviwB={5Y8fk{9{Bz-~_wbC;mDob1Rf?QBJF?CPE(YbQh8uca`cVs|WT%(76
zEXwaOjP!@#8-3o@hI-Y`|IHHNB@&!OR*d%6VdM9=cbtdQbRIVJ5y0#75HVte$ZdsY
z>egQ?DgW3<AcjBX^PwfWn3!NXgk@3Qap11f^C%}>zOdA>EXDCp`<0Oh-c*Z?Agcl?
z8F3+`tXs3gi09Ykj)7S{Ig|=Ch7K{$r(XP=8UCzf%(^8=^<#yTx6mRsg-5~3GIswu
z7T!8DqX*6<0?A9D2GPXqJ`%*R{ct!y@zBsd<-VSe&2t>QH_-G{ZGP^R97KyJ^dS=J
zmJN~GBIN$4stk(;Bsp-mz~Ia;kIMKPeRD%rb68S<*wUlubPpRt|1v8QEEj8iIcYQ6
z6(spAB7|q})-Aw?o?zs&%+P!H6ksT|rg+h%`ruuJLd0;0W&oZHOR~H2Yj3MA)4KU&
zZcgA^%Js`f7ef5H7~JsN0v?F*jj&8rjXkkPKU)f+gfZuuf&_~A#9)J@B~VEA*EVxZ
zyoS!zPOuc}l_R5Ng3k$v#c_d~=4$5r`K)<lIy}aU_Ln+eEZy8C2m?K!=Mi59=B>6w
zwVWk9bUIqz@k*{nyc&sNzFI}l4`|IQ&yRh5k9Za50XnJguV|2rw`)THy1eu7mdrM%
zmJvX7GJ6ImX_8)#otPOkqCQlDCSO)P%ao%C65rQq?8`F1ol-Q2G*!QHkN4K^0GxMf
zQ5LdUoCV=bOVV?Rz3<F4eYIZQ$Ew={-}ejl-i#hE$Fu<IBx2YBoOGFo=NEyX#1Ubq
zyDx2_6<c$`3~2@SgFfHH>XfiHTPSV_K%i&SM~y?HCD8HCeI^tO0@tZ#G<OQgs>RKV
zih<m+0v{wbqMcv2NqhDn@MBiNd+7%+eYnf++kkLA?#9JOa(I^tNehG?Mld5EE0Erf
zfW$UncSMcnbu3DF0MX|jQYfD-4;8th`f6{Kvy42KbIEj42#^7KQ0F^rHa#vq_azC)
zy^`y7EuQvTxcJUwP(U%WAly|5Awh9*=Zn~o6J&J*0GNFIX}&*?u;yhNMcl{M+<~Q9
zd9$N<Kuk&=-^7d<Qo_xcnWmde33dDTO_kovXE8D3=_o&F)ttWRTIR9py=U4WgjADo
z!RC{W6G?cp`=6yxy^>1dUNW{$;5TFt^cXpO{m#K5Sk&`h3h|v#7;-}KJHj2&piXFX
z-aW0(0OY>vxdkt&`VhqG1j%MavW6+sW~9%vKq+wzIAOLOf=+PZwf`Vq<LQ~rzNJH1
z9ZIexRnpdF_K$1VupPP;9eWCSQviXQ*Le0NWj0^g-PmULQCyjHbPnKy_@RZ7Vx*d1
zcx~lqB)G2BSNgf12&4H4wx?dG-r4!o-lVb-NeLo0b<#38-wa|H9nY$!z??9F?3C{#
z_tPy|AalA4Y%5Yo_+2Bw^!c{>aQ|uU5>Cwlw*$`>9hKX|>-?hpOdOSS!|Pa%YLpGS
z?UH!OG{RV>XA&#Hd~#Y4ZV!xY`8-*qUjq{C-~se^2B&1V=U-KCn^z7eLDZn%CEmz@
zTwXK^*6X?39)Tn#m+(6J`=9MEc*32PhKkQ63iVHMC&E*Y#q}P^i*jmy>84(6`hw|V
zZOTmKWKvu!5^~Tx)i5s;#qlwT$xbYwrZQJknm?$3B^;;{v_2*<net_57=+gC7|qqm
z>N8$y8>qVtEfNC-^vn6fdlKv-LO00qH$P?p+sFatJPK#Z^RFNl{7MjYcrxv;)&Be(
zH8N9QP|?ldI(codq8QSruF0*%bt8_6zZl5FUMUI!jI(*({>1MNC1nG7LqIYczkIrz
z+|-faOLa!beH2gH31ObLItxh8{)fwmW8tVc1<yLvy$>{Ykz?2$pmF3vND!Zu=i+20
z856eXHCHwkXVk<_f*bf}C40d81|x*yt}ae`I7sm?8-QnX0SQYQ?u0lv7>?tww)`}k
zF^+Uy?uW%5HG_I<=*tgJxr<yO@d;9X^iNsVysLM;@r=AN;8rNy<j#MS#+Z3ygl<>K
zk-alF)wZZp>rQJ(JL<j|e7kw713ZSZuB&q&HWpXUC{_8ZEk63T-?SqBdz!Eqp^`v&
z*(R*32k>jfCX+&wHt9rvLpaavLVKfu{H5G*V~YrDaH!hrQmA$MKDZa0G-OOd*gdVK
z3<-{j4zl16+h-A?M8Die&BANls0)?UEv&$`rz!hHK7Y;r0_Xi+c9OOi9({O%g}WY2
zuIGzH=ylm^-;+D-5h<MCS#u_NbLC5{YZXAc&m*bn1`L7SrNG+|*IOd+0(bz969y{0
z<4Z8pkb65$W)4==5L1iv^K!kX6PjJZaCg8^Ik|3*jrYK=*MRaK*_DsAb{t%?nIVuB
z8R`@7n_aS659lO-HRV8{X5_>!R$1ydN$&?rQ3}rL#cxf7cum!l+}D{t6Pa`0YfJm+
z!^VK{vdXbN<$gYsz7;*g9Hw_|uAGa;%m5WMqa%6U$va0E;rk4>J#%yC%}-AoG#8v$
z?4~<WuBcr+2-LYvn$zt`XE*A|dT_NYjVF^!imo8RuWc#WqPY>zllXQ-qC(x!`-Kzf
z4UfAY<;yzk`o;O_qyme5+8GF+b(pAVfkN8L9aB#%gLYJG7Yt}1L*m~2#T?n2I?rxu
z8ro?}I>;M9E^~HF>`UD@8JbpFHl6$Hm}Ce++*>?7RemWmrmJd<1RD`FGFM`F4e{x-
z+TASf16T5kh>Syiu8wK9o-_Ctj0W4JpL(fAEZ-Snc}nrS3yZMPIJ%pQ+3I+o{x~+#
zWjT=hbSOx<wR@1(5Ymqh&A`&}kAHEQ@XRPjKwa7U@UFar-P_g0QcLE_*c~80%EAV8
zR(3|bB2KAGUgnj<5T#~Hh!0s>BpLSWj|?I+4taHr3?ihdogmaFcNl;o7S_hdL#fA=
zp{`GZwlY&wnaCBopGU?;u(PT&z<Js7bz1?DK7L+IF&!G)lR|-%H8s3_FbASf&z<oS
zm5vp^l*tVr;gO7*nt`7oT6Qx$E^+}9tE`NRbCXQAyPS)6u<{{U&PK$PJerBFnhANo
z<s+A#<zFm|)&;XYb@S;tb|zAMA}8d(-cl|C1KHAQo=|`-7~d~pyAPZt`P~V!lLVfN
zTKB$1(e=Z9yBBk}M`Iy1|KVG(mxSSKIgg(G1cu@OHnxu03TIyatY4;23xewB^tAGq
za6!VZWbh~ak*Mk+>caSWaA3>Zb2hpSgC=d-*%+u?CWdcE98s{^Mh9j+fa=+c2UH&8
zRfJYulYuqjP)?Y$*3N?up|azlU;fJ$YL6_DVQ);r9<XY!;w2_~-~F>q*^-c568&`a
zEZs@*a3e3*haTqOc0J1Jq@FY|U7|FMiG}>6f*X^Y*OJ{?i`Vd;tL;||OL@U(oh^)1
zx;*m2A$Ki2jSfblOd4sg$(@!7Dp-hh|Itz4Svz!r#|^kmw0#TVM&u_WGE>Hj2xh7X
zEFPC_H1@3*^?ES9dEdq3@*-;=jq<+&LzHO9A+qhpqalPw=Z~bO@201sMoXskYO$0P
zsnOvBT$x;Koj1gFfvxq!7{CiZK_IUGti7@1+%R!6!R9RM{L((}$_Jld;$-~aOVW0a
zsl@Q!-kJE<M*G*ALHL!;cP+~a#oZ?Br_%_FdpIXDl03yrG%9we_i>1@H9ORvRQ7Q0
zffV$qq<4)U_pgoGyYL#STx+)RLn+K|_D{1ONbCkUs#HYBfWBruL=|iqMPrS?KRYeA
znJ^BC0Vadog+=K_<e~^WEbzHR^Mqh2GY(#n=akkaro2Y76Z8$(nKx{wjQK@UZX_`@
zf~mhZ->$wCaCLA10a39zjJSH=_42#z?8Uh=As-OfW?nibSLX(Pim>{jP3|(K=iWgh
zWY<LCozbs`NQjhOxtNEpRJe0ADtxr5t7<yiGUwa9^9wVhoxo?y0J^YZ&c*iG6mV1p
zKzvg+jL(R31lX`dh&-YMAmV@Nd}T|863}Ehs53i=fz7BdF0Gn?yE#}89l|4b)%Xgb
z(boZdr2ZP64oS~`wN8N1EWiM)S3k66DY<p`M9k^7@K=Xyo=b8@eE6ja^n_SlLyHrT
zOiLZd0rfrU02(vI?uHw>?WVtJ`}Z?B*VD|xCK~l;^S=j_!P2u-OZkVT$X<qIiSA?y
z(1CFSkqz-0&>cOUFPqbLBWGSYY`p{_`!L|!vQ`}zK;zKGhjHjkQt1lpDu+aW%Jxqv
z`V)!oIsJufqhr)#uKqIw562U77q<Hz&+UJk)cDyOt5A?<clNc0!=>oY(m%zEhIZ&Q
z1SO`LB%*)j6oslf=_`Q9AMvr$`|KgX;^eZ9^VcJFGQa^!)b)P)3m%A7!3j9<UPDck
zM?~V6)&$2O5b%)h<6d2~(Kcs*ejCblJ+y=>esjjfH-OiCq%z~zAXmIdM^buu)&gv(
zHCAfi<BM0@i~qzbzddybN$Dj<log{!2R6cE)h6`Se*4Og-^JxYK}6<Y&*;?^<5&`k
z_3208u^SZ|mdw|ZRz&_50`d@Z_#ZV*Jaye)Tl3oYTfJ(+z<;Vo)sH0pVf^?11*x6D
A_W%F@

literal 0
HcmV?d00001

diff --git a/search.json b/search.json
index b1196ad..d65d111 100644
--- a/search.json
+++ b/search.json
@@ -158,7 +158,7 @@
     "href": "lessons/lesson10_stringr.html#functions-to-know-1",
     "title": "Lesson 10: Wrangling Character Strings with stringr",
     "section": "Functions to Know",
-    "text": "Functions to Know\n\nstr_replace() / str_replace_all(): replace the first/all matches of a pattern in a string with new text\nstr_remove() / str_remove_all: remove the first/all matches of a pattern in a string\nstr_to_lower() / str_to_upper(): convert a string to lower case/UPPER CASE"
+    "text": "Functions to Know\n\nstr_replace() / str_replace_all(): replace the first/all matches of a pattern in a string with new text\nstr_remove() / str_remove_all(): remove the first/all matches of a pattern in a string\nstr_to_lower() / str_to_upper(): convert a string to lower case/UPPER CASE"
   },
   {
     "objectID": "lessons/lesson10_stringr.html#replacing-one-pattern-with-another",
@@ -207,7 +207,7 @@
     "href": "lessons/lesson10_stringr.html#functions-to-know-3",
     "title": "Lesson 10: Wrangling Character Strings with stringr",
     "section": "Functions to Know",
-    "text": "Functions to Know\n\nstr_length(): compute the number of “letters” in a string\nstr_trim(): remove spaces from the start and end of string\nstr_pad(): add spaces (or some other “letter”) to the start or end of a string until the string is a specified length\n\nOverall, it’s often not immediately obvious when these functions would be useful to you, but know that from my experience that they are often unexpected lifesavers. I’m going to give three such examples from when these functions have helped me in the past."
+    "text": "Functions to Know\n\nstr_length(): compute the number of “letters” in a string\nstr_trunc(): cut off excess “letters” from the right or left of a string\nstr_trim() / str_pad(): remove spaces from the start and end of string / add spaces (or some other “letter”) to the start or end of a string until the string is a specified length\n\nOverall, it’s often not immediately obvious when these functions would be useful to you, but know that from my experience that they are often unexpected lifesavers. I’m going to give three such examples from when these functions have helped me in the past."
   },
   {
     "objectID": "lessons/lesson10_stringr.html#string-lengths",
@@ -217,18 +217,18 @@
     "text": "String Lengths\nThe str_length() functions is useful when dealing with \\(n\\)-ary words. These are sets of letters or numbers where each single symbol from a pre-defined set of \\(n\\) possible symbols represents a state in a system. Examples include the use pattern “words” in the outcome_df data set; DNA/RNA (“CCCCAACGTGTG” is a string of letters where each single letter represents a one of the four DNA nucleotides bases—Cytosine, Adenine, Thymine, and Guanine); or class attendance (“PPPPPAPP” represents a student’s attendance record over eight weeks as “Present” or “Absent”).\n\n# How many nucleotides in the strand?\nstr_length(\"CCCCAACGTGTG\")\n\n[1] 12\n\n# How many weeks of attendance data?\nstr_length(\"PPPPPAPP\")\n\n[1] 8"
   },
   {
-    "objectID": "lessons/lesson10_stringr.html#trimming-strings",
-    "href": "lessons/lesson10_stringr.html#trimming-strings",
+    "objectID": "lessons/lesson10_stringr.html#truncating-strings",
+    "href": "lessons/lesson10_stringr.html#truncating-strings",
     "title": "Lesson 10: Wrangling Character Strings with stringr",
-    "section": "Trimming Strings",
-    "text": "Trimming Strings\nThis comes up for me most often when dealing with very long labels in ggplot figures. Sometimes a factor label is really long, and ggplot tries to fit the whole label in the figure, which ends up making the whole figure look weird.\nHere’s an example. I’m going to create a simple data set with one very long factor label.\n\nbookPages_df <- tibble(\n  title = c(\"Germinal\", \"Frankenstein; or, The Modern Prometheus\"),\n  author = c(\"Emile Zola\", \"Mary Shelley\"),\n  pageCountOriginal = c(591L, 362L),\n  year = c(1885, 1818)\n)\n\n# Original\nggplot(data = bookPages_df) + \n  aes(x = year, y = pageCountOriginal, shape = title) + \n  geom_point()\n\n\n\n\nNow I’m going to truncate the very long title of Frankenstein.\n\n# Truncated text\nbookPages_df %>% \n  mutate(\n    title = str_trunc(title, width = 15)\n  ) %>% \n  ggplot() +\n    aes(x = year, y = pageCountOriginal, shape = title) + \n    geom_point()"
+    "section": "Truncating Strings",
+    "text": "Truncating Strings\nThis comes up for me most often when dealing with very long labels in ggplot figures. Sometimes a factor label is really long, and ggplot tries to fit the whole label in the figure, which ends up making the whole figure look weird.\nHere’s an example. I’m going to create a simple data set with one very long factor label.\n\nbookPages_df <- tibble(\n  title = c(\"Germinal\", \"Frankenstein; or, The Modern Prometheus\"),\n  author = c(\"Emile Zola\", \"Mary Shelley\"),\n  pageCountOriginal = c(591L, 362L),\n  year = c(1885, 1818)\n)\n\n# Original\nggplot(data = bookPages_df) + \n  aes(x = year, y = pageCountOriginal, shape = title) + \n  geom_point()\n\n\n\n\nNow I’m going to truncate the very long title of Frankenstein.\n\n# Truncated text\nbookPages_df %>% \n  mutate(\n    title = str_trunc(title, width = 15)\n  ) %>% \n  ggplot() +\n    aes(x = year, y = pageCountOriginal, shape = title) + \n    geom_point()"
   },
   {
-    "objectID": "lessons/lesson10_stringr.html#padding-strings",
-    "href": "lessons/lesson10_stringr.html#padding-strings",
+    "objectID": "lessons/lesson10_stringr.html#trimming-and-padding-strings",
+    "href": "lessons/lesson10_stringr.html#trimming-and-padding-strings",
     "title": "Lesson 10: Wrangling Character Strings with stringr",
-    "section": "Padding Strings",
-    "text": "Padding Strings\nThis comes up when I’m trying to create file names in a computer. Here’s the issue:\n\n1:11 %>% \n  as.character() %>% \n  sort()\n\n [1] \"1\"  \"10\" \"11\" \"2\"  \"3\"  \"4\"  \"5\"  \"6\"  \"7\"  \"8\"  \"9\" \n\n\nWhen the computer turns numbers into characters, the ordering of the numbers gets destroyed. We all know that I want 10 and 11 to come last, but the computer doesn’t interpret these numbers the way that I do. The solution is to pad the numbers on the left with “0” so that the ordering is preserved:\n\n1:11 %>% \n  as.character() %>% \n  # Set the width to 2 digits if 99 is enough, but increase to 3 digits in case\n  #   I need to go past 99 (up to 999)\n  str_pad(width = 3, side = \"left\", pad = \"0\") %>% \n  sort()\n\n [1] \"001\" \"002\" \"003\" \"004\" \"005\" \"006\" \"007\" \"008\" \"009\" \"010\" \"011\""
+    "section": "Trimming and Padding Strings",
+    "text": "Trimming and Padding Strings\nTrimming strings is relatively simple: you “trim” off the white space at the start and/or end of a string.\n\nstr_trim(\"      a        \")\n\n[1] \"a\"\n\n\nPadding strings comes up when I’m trying to create file names in a computer. Here’s the issue:\n\n1:11 %>% \n  as.character() %>% \n  sort()\n\n [1] \"1\"  \"10\" \"11\" \"2\"  \"3\"  \"4\"  \"5\"  \"6\"  \"7\"  \"8\"  \"9\" \n\n\nWhen the computer turns numbers into characters, the ordering of the numbers gets destroyed. We all know that I want 10 and 11 to come last, but the computer doesn’t interpret these numbers the way that I do. The solution is to pad the numbers on the left with “0” so that the ordering is preserved:\n\n1:11 %>% \n  as.character() %>% \n  # Set the width to 2 digits if 99 is enough, but increase to 3 digits in case\n  #   I need to go past 99 (up to 999)\n  str_pad(width = 3, side = \"left\", pad = \"0\") %>% \n  sort()\n\n [1] \"001\" \"002\" \"003\" \"004\" \"005\" \"006\" \"007\" \"008\" \"009\" \"010\" \"011\""
   },
   {
     "objectID": "lessons/lesson10_stringr.html#example-plotting-participant-heights",
diff --git a/sitemap.xml b/sitemap.xml
index 4e15ecc..703f586 100644
--- a/sitemap.xml
+++ b/sitemap.xml
@@ -2,74 +2,74 @@
 <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/index.html</loc>
-    <lastmod>2024-01-03T16:45:26.780Z</lastmod>
+    <lastmod>2024-01-03T18:34:53.421Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/about.html</loc>
-    <lastmod>2024-01-03T16:45:27.325Z</lastmod>
+    <lastmod>2024-01-03T18:34:53.828Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson01_greater_data_science.html</loc>
-    <lastmod>2024-01-03T16:45:29.790Z</lastmod>
+    <lastmod>2024-01-03T18:34:55.723Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson10_stringr.html</loc>
-    <lastmod>2024-01-03T16:45:34.994Z</lastmod>
+    <lastmod>2024-01-03T18:34:59.757Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson07_lists_and_tibbles.html</loc>
-    <lastmod>2024-01-03T16:45:39.961Z</lastmod>
+    <lastmod>2024-01-03T18:35:03.595Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson06_atomic_vectors.html</loc>
-    <lastmod>2024-01-03T16:45:43.306Z</lastmod>
+    <lastmod>2024-01-03T18:35:06.165Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson04s_examples.html</loc>
-    <lastmod>2024-01-03T16:45:59.699Z</lastmod>
+    <lastmod>2024-01-03T18:35:18.889Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson11_functions.html</loc>
-    <lastmod>2024-01-03T16:46:02.402Z</lastmod>
+    <lastmod>2024-01-03T18:35:21.001Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson09s_dplyr_v_base.html</loc>
-    <lastmod>2024-01-03T16:46:06.810Z</lastmod>
+    <lastmod>2024-01-03T18:35:24.523Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson04_ggplot.html</loc>
-    <lastmod>2024-01-03T16:46:17.637Z</lastmod>
+    <lastmod>2024-01-03T18:35:32.863Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson12_purrr.html</loc>
-    <lastmod>2024-01-03T16:46:23.995Z</lastmod>
+    <lastmod>2024-01-03T18:35:37.868Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson05_RStudio_projects.html</loc>
-    <lastmod>2024-01-03T16:46:26.624Z</lastmod>
+    <lastmod>2024-01-03T18:35:39.825Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson02s_scripts.html</loc>
-    <lastmod>2024-01-03T16:46:28.002Z</lastmod>
+    <lastmod>2024-01-03T18:35:40.888Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson08_Data_Read_Write.html</loc>
-    <lastmod>2024-01-03T16:46:32.454Z</lastmod>
+    <lastmod>2024-01-03T18:35:44.491Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson13_eda_w_tidyverse.html</loc>
-    <lastmod>2024-01-03T16:46:40.431Z</lastmod>
+    <lastmod>2024-01-03T18:35:50.755Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson02_introduction_to_R.html</loc>
-    <lastmod>2024-01-03T16:46:42.968Z</lastmod>
+    <lastmod>2024-01-03T18:35:52.704Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson03_introduction_to_Quarto.html</loc>
-    <lastmod>2024-01-03T16:46:43.647Z</lastmod>
+    <lastmod>2024-01-03T18:35:53.229Z</lastmod>
   </url>
   <url>
     <loc>https://gabrielodom.github.io/PHC6701_r4ds/lessons/lesson09_dplyr.html</loc>
-    <lastmod>2024-01-03T16:46:57.965Z</lastmod>
+    <lastmod>2024-01-03T18:36:03.487Z</lastmod>
   </url>
 </urlset>