From 37a66e64475e4373baefce3db1cdc79e3617c1f3 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Wed, 17 May 2023 20:20:27 +0000
Subject: [PATCH] Built site for AMR: 2.0.0.9018@3018fb8

---
 404.html                                  |   2 +-
 LICENSE-text.html                         |   2 +-
 articles/AMR.html                         |  17 ++--
 articles/EUCAST.html                      |   2 +-
 articles/MDR.html                         |  54 ++++++------
 articles/PCA.html                         |   2 +-
 articles/SPSS.html                        |   6 +-
 articles/WHONET.html                      |   2 +-
 articles/datasets.html                    |   4 +-
 articles/index.html                       |   2 +-
 articles/resistance_predict.html          |   2 +-
 articles/welcome_to_AMR.html              |   2 +-
 authors.html                              |   2 +-
 index.html                                |   2 +-
 news/index.html                           |  18 ++--
 pkgdown.yml                               |   2 +-
 reference/AMR-deprecated.html             |   2 +-
 reference/AMR-options.html                |   2 +-
 reference/AMR.html                        |   2 +-
 reference/Rplot005.png                    | Bin 13189 -> 13031 bytes
 reference/Rplot006.png                    | Bin 13198 -> 13044 bytes
 reference/Rplot007.png                    | Bin 13156 -> 14377 bytes
 reference/Rplot008.png                    | Bin 18978 -> 19732 bytes
 reference/Rplot009.png                    | Bin 8407 -> 9296 bytes
 reference/WHOCC.html                      |   2 +-
 reference/WHONET.html                     |   2 +-
 reference/ab_from_text.html               |   2 +-
 reference/ab_property.html                |   2 +-
 reference/add_custom_antimicrobials.html  |   2 +-
 reference/add_custom_microorganisms.html  |   2 +-
 reference/age.html                        |  22 ++---
 reference/age_groups.html                 |   2 +-
 reference/antibiogram.html                |   2 +-
 reference/antibiotic_class_selectors.html |   6 +-
 reference/antibiotics.html                |   2 +-
 reference/as.ab.html                      |   2 +-
 reference/as.av.html                      |   2 +-
 reference/as.disk.html                    |   2 +-
 reference/as.mic.html                     |   2 +-
 reference/as.mo.html                      |   2 +-
 reference/as.sir.html                     |  22 ++---
 reference/atc_online.html                 |   2 +-
 reference/av_from_text.html               |   2 +-
 reference/av_property.html                |   2 +-
 reference/availability.html               |   2 +-
 reference/bug_drug_combinations.html      |   2 +-
 reference/clinical_breakpoints.html       |   2 +-
 reference/count.html                      |   2 +-
 reference/custom_eucast_rules.html        |   2 +-
 reference/dosage.html                     |   2 +-
 reference/eucast_rules.html               |   2 +-
 reference/example_isolates.html           |   2 +-
 reference/example_isolates_unclean.html   |   2 +-
 reference/first_isolate.html              |  35 ++++----
 reference/g.test.html                     |   2 +-
 reference/get_episode.html                | 100 +++++++++++-----------
 reference/ggplot_pca.html                 |   2 +-
 reference/ggplot_sir.html                 |   2 +-
 reference/guess_ab_col.html               |   2 +-
 reference/index.html                      |   2 +-
 reference/intrinsic_resistant.html        |   2 +-
 reference/italicise_taxonomy.html         |   2 +-
 reference/join.html                       |   2 +-
 reference/key_antimicrobials.html         |   2 +-
 reference/kurtosis.html                   |   6 +-
 reference/like.html                       |   2 +-
 reference/mdro.html                       |   2 +-
 reference/mean_amr_distance.html          |  72 ++++++++--------
 reference/microorganisms.codes.html       |   2 +-
 reference/microorganisms.html             |   2 +-
 reference/mo_matching_score.html          |   2 +-
 reference/mo_property.html                |   2 +-
 reference/mo_source.html                  |   2 +-
 reference/pca.html                        |   2 +-
 reference/plot-1.png                      | Bin 26597 -> 25805 bytes
 reference/plot-2.png                      | Bin 26510 -> 26417 bytes
 reference/plot-3.png                      | Bin 28211 -> 28174 bytes
 reference/plot-4.png                      | Bin 39755 -> 38728 bytes
 reference/plot-5.png                      | Bin 39065 -> 38865 bytes
 reference/plot-6.png                      | Bin 38220 -> 38119 bytes
 reference/plot-7.png                      | Bin 37056 -> 38361 bytes
 reference/plot-8.png                      | Bin 56401 -> 58554 bytes
 reference/plot-9.png                      | Bin 26152 -> 27619 bytes
 reference/plot.html                       |   2 +-
 reference/proportion.html                 |   2 +-
 reference/random.html                     |  35 ++++----
 reference/resistance_predict.html         |   2 +-
 reference/skewness.html                   |   4 +-
 reference/translate.html                  |   2 +-
 search.json                               |   2 +-
 90 files changed, 261 insertions(+), 264 deletions(-)

diff --git a/404.html b/404.html
index bfb4abfe..957cc5a8 100644
--- a/404.html
+++ b/404.html
@@ -36,7 +36,7 @@
     
     <a class="navbar-brand me-2" href="https://msberends.github.io/AMR/index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/LICENSE-text.html b/LICENSE-text.html
index 93a06b30..8a702d2d 100644
--- a/LICENSE-text.html
+++ b/LICENSE-text.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/AMR.html b/articles/AMR.html
index fc7e4994..8c1e2e3b 100644
--- a/articles/AMR.html
+++ b/articles/AMR.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -187,7 +187,7 @@
 website update since they are based on randomly created values and the
 page was written in <a href="https://rmarkdown.rstudio.com/" class="external-link">R
 Markdown</a>. However, the methodology remains unchanged. This page was
-generated on 12 May 2023.</p>
+generated on 17 May 2023.</p>
 <div class="section level2">
 <h2 id="introduction">Introduction<a class="anchor" aria-label="anchor" href="#introduction"></a>
 </h2>
@@ -243,21 +243,21 @@ make the structure of your data generally look like this:</p>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="center">2023-05-12</td>
+<td align="center">2023-05-17</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">S</td>
 </tr>
 <tr class="even">
-<td align="center">2023-05-12</td>
+<td align="center">2023-05-17</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">R</td>
 </tr>
 <tr class="odd">
-<td align="center">2023-05-12</td>
+<td align="center">2023-05-17</td>
 <td align="center">efgh</td>
 <td align="center">Escherichia coli</td>
 <td align="center">R</td>
@@ -492,13 +492,12 @@ the methods on the <code><a href="../reference/first_isolate.html">first_isolate
 <div class="sourceCode" id="cb8"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="va">our_data</span> <span class="op">&lt;-</span> <span class="va">our_data</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span>
 <span>  <span class="fu"><a href="https://dplyr.tidyverse.org/reference/mutate.html" class="external-link">mutate</a></span><span class="op">(</span>first <span class="op">=</span> <span class="fu"><a href="../reference/first_isolate.html">first_isolate</a></span><span class="op">(</span>info <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span><span class="op">)</span></span>
-<span><span class="co">#&gt; Determining first isolates using an episode length of 365 days</span></span>
+<span><span class="co">#&gt; ℹ Determining first isolates using an episode length of 365 days</span></span>
 <span><span class="co">#&gt; ℹ Using column 'bacteria' as input for col_mo.</span></span>
 <span><span class="co">#&gt; ℹ Using column 'date' as input for col_date.</span></span>
 <span><span class="co">#&gt; ℹ Using column 'patient_id' as input for col_patient_id.</span></span>
-<span><span class="co">#&gt; Basing inclusion on all antimicrobial results, using a points threshold of</span></span>
-<span><span class="co">#&gt; 2</span></span>
-<span><span class="co">#&gt; Including isolates from ICU.</span></span>
+<span><span class="co">#&gt; ℹ Basing inclusion on all antimicrobial results, using a points threshold</span></span>
+<span><span class="co">#&gt;   of 2</span></span>
 <span><span class="co">#&gt; =&gt; Found 2,626 'phenotype-based' first isolates (87.6% within scope and</span></span>
 <span><span class="co">#&gt;    87.5% of total where a microbial ID was available)</span></span></code></pre></div>
 <p>So only 88% is suitable for resistance analysis! We can now filter on
diff --git a/articles/EUCAST.html b/articles/EUCAST.html
index 78daeee0..b9c35a54 100644
--- a/articles/EUCAST.html
+++ b/articles/EUCAST.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/MDR.html b/articles/MDR.html
index 72a44ee3..99733534 100644
--- a/articles/MDR.html
+++ b/articles/MDR.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -385,18 +385,18 @@ names or codes, this would have worked exactly the same way:</p>
 <div class="sourceCode" id="cb8"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/utils/head.html" class="external-link">head</a></span><span class="op">(</span><span class="va">my_TB_data</span><span class="op">)</span></span>
 <span><span class="co">#&gt;   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin</span></span>
-<span><span class="co">#&gt; 1          S         I            I          I            S            S</span></span>
-<span><span class="co">#&gt; 2          R         R            I          I            S            R</span></span>
-<span><span class="co">#&gt; 3          R         I            S          S            R            R</span></span>
-<span><span class="co">#&gt; 4          I         S            R          I            I            S</span></span>
-<span><span class="co">#&gt; 5          S         R            R          I            R            R</span></span>
-<span><span class="co">#&gt; 6          S         R            S          I            I            I</span></span>
+<span><span class="co">#&gt; 1          R         R            S          I            I            R</span></span>
+<span><span class="co">#&gt; 2          S         I            R          I            R            S</span></span>
+<span><span class="co">#&gt; 3          R         S            S          S            R            I</span></span>
+<span><span class="co">#&gt; 4          S         R            S          R            R            I</span></span>
+<span><span class="co">#&gt; 5          R         I            S          R            R            R</span></span>
+<span><span class="co">#&gt; 6          R         R            I          S            I            I</span></span>
 <span><span class="co">#&gt;   kanamycin</span></span>
-<span><span class="co">#&gt; 1         S</span></span>
+<span><span class="co">#&gt; 1         I</span></span>
 <span><span class="co">#&gt; 2         R</span></span>
 <span><span class="co">#&gt; 3         S</span></span>
 <span><span class="co">#&gt; 4         S</span></span>
-<span><span class="co">#&gt; 5         I</span></span>
+<span><span class="co">#&gt; 5         S</span></span>
 <span><span class="co">#&gt; 6         R</span></span></code></pre></div>
 <p>We can now add the interpretation of MDR-TB to our data set. You can
 use:</p>
@@ -438,40 +438,40 @@ Unique: 5</p>
 <tr class="odd">
 <td align="left">1</td>
 <td align="left">Mono-resistant</td>
-<td align="right">3190</td>
-<td align="right">63.80%</td>
-<td align="right">3190</td>
-<td align="right">63.80%</td>
+<td align="right">3221</td>
+<td align="right">64.42%</td>
+<td align="right">3221</td>
+<td align="right">64.42%</td>
 </tr>
 <tr class="even">
 <td align="left">2</td>
 <td align="left">Negative</td>
-<td align="right">1008</td>
-<td align="right">20.16%</td>
-<td align="right">4198</td>
-<td align="right">83.96%</td>
+<td align="right">942</td>
+<td align="right">18.84%</td>
+<td align="right">4163</td>
+<td align="right">83.26%</td>
 </tr>
 <tr class="odd">
 <td align="left">3</td>
 <td align="left">Multi-drug-resistant</td>
-<td align="right">477</td>
-<td align="right">9.54%</td>
-<td align="right">4675</td>
-<td align="right">93.50%</td>
+<td align="right">465</td>
+<td align="right">9.30%</td>
+<td align="right">4628</td>
+<td align="right">92.56%</td>
 </tr>
 <tr class="even">
 <td align="left">4</td>
 <td align="left">Poly-resistant</td>
-<td align="right">224</td>
-<td align="right">4.48%</td>
-<td align="right">4899</td>
-<td align="right">97.98%</td>
+<td align="right">255</td>
+<td align="right">5.10%</td>
+<td align="right">4883</td>
+<td align="right">97.66%</td>
 </tr>
 <tr class="odd">
 <td align="left">5</td>
 <td align="left">Extensively drug-resistant</td>
-<td align="right">101</td>
-<td align="right">2.02%</td>
+<td align="right">117</td>
+<td align="right">2.34%</td>
 <td align="right">5000</td>
 <td align="right">100.00%</td>
 </tr>
diff --git a/articles/PCA.html b/articles/PCA.html
index 2cae86f8..35d2da82 100644
--- a/articles/PCA.html
+++ b/articles/PCA.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/SPSS.html b/articles/SPSS.html
index e4f54990..22ee3d16 100644
--- a/articles/SPSS.html
+++ b/articles/SPSS.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -178,7 +178,7 @@
                         <h4 data-toc-skip class="author">Dr. Matthijs
 Berends</h4>
             
-            <h4 data-toc-skip class="date">12 May 2023</h4>
+            <h4 data-toc-skip class="date">17 May 2023</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/HEAD/vignettes/SPSS.Rmd" class="external-link"><code>vignettes/SPSS.Rmd</code></a></small>
       <div class="d-none name"><code>SPSS.Rmd</code></div>
@@ -257,7 +257,7 @@ data using a custom made website. The webdesign knowledge needed
 <li>
 <p><strong>R has a huge community.</strong></p>
 <p>Many R users just ask questions on websites like <a href="https://stackoverflow.com" class="external-link">StackOverflow.com</a>, the largest
-online community for programmers. At the time of writing, <a href="https://stackoverflow.com/questions/tagged/r?sort=votes" class="external-link">489 114
+online community for programmers. At the time of writing, <a href="https://stackoverflow.com/questions/tagged/r?sort=votes" class="external-link">489 583
 R-related questions</a> have already been asked on this platform (that
 covers questions and answers for any programming language). In my own
 experience, most questions are answered within a couple of
diff --git a/articles/WHONET.html b/articles/WHONET.html
index aa2d39e9..666e0abb 100644
--- a/articles/WHONET.html
+++ b/articles/WHONET.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/datasets.html b/articles/datasets.html
index 260d7439..a1b08d87 100644
--- a/articles/datasets.html
+++ b/articles/datasets.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -176,7 +176,7 @@
   <main id="main" class="col-md-9"><div class="page-header">
       <img src="../logo.svg" class="logo" alt=""><h1>Data sets for download / own use</h1>
             
-            <h4 data-toc-skip class="date">12 May 2023</h4>
+            <h4 data-toc-skip class="date">17 May 2023</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/HEAD/vignettes/datasets.Rmd" class="external-link"><code>vignettes/datasets.Rmd</code></a></small>
       <div class="d-none name"><code>datasets.Rmd</code></div>
diff --git a/articles/index.html b/articles/index.html
index 411a4ef3..87af83c1 100644
--- a/articles/index.html
+++ b/articles/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/resistance_predict.html b/articles/resistance_predict.html
index 0e6d8357..dc04e13a 100644
--- a/articles/resistance_predict.html
+++ b/articles/resistance_predict.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/welcome_to_AMR.html b/articles/welcome_to_AMR.html
index 78299f1e..69540c6d 100644
--- a/articles/welcome_to_AMR.html
+++ b/articles/welcome_to_AMR.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/authors.html b/authors.html
index a508bf87..b9405b70 100644
--- a/authors.html
+++ b/authors.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/index.html b/index.html
index 831ee504..c1b5d5ad 100644
--- a/index.html
+++ b/index.html
@@ -42,7 +42,7 @@
     
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/news/index.html b/news/index.html
index 43711561..6a090c47 100644
--- a/news/index.html
+++ b/news/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -142,24 +142,26 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.0.0.9015" id="amr-2009015">AMR 2.0.0.9015<a class="anchor" aria-label="anchor" href="#amr-2009015"></a></h2>
+<h2 class="pkg-version" data-toc-text="2.0.0.9018" id="amr-2009018">AMR 2.0.0.9018<a class="anchor" aria-label="anchor" href="#amr-2009018"></a></h2>
 <div class="section level3">
-<h3 id="changed-2-0-0-9015">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9015"></a></h3>
+<h3 id="changed-2-0-0-9018">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9018"></a></h3>
 <ul><li>Added oxygen tolerance to over 25,000 bacteria in the <code>microorganisms</code> data set
 <ul><li>Added <code><a href="../reference/mo_property.html">mo_oxygen_tolerance()</a></code> to retrieve the values</li>
 <li>Added <code><a href="../reference/mo_property.html">mo_is_anaerobic()</a></code> to determine which species are obligate anaerobic bacteria</li>
 </ul></li>
 <li>Added LPSN and GBIF identifiers, and oxygen tolerance to <code><a href="../reference/mo_property.html">mo_info()</a></code>
 </li>
-<li>formatting fix for <code><a href="../reference/as.sir.html">sir_interpretation_history()</a></code>
-</li>
-<li>Fixed some WHONET codes for microorganisms and consequently a couple of entries in <code>clinical_breakpoints</code>
-</li>
+<li>Added SAS Transport files (file extension <code>.xpt</code>) to <a href="https://msberends.github.io/AMR/articles/datasets.html">our download page</a> to use in SAS software</li>
 <li>Added microbial codes for Gram-negative/positive anaerobic bacteria</li>
 <li>
 <code><a href="../reference/mo_property.html">mo_rank()</a></code> now returns <code>NA</code> for ‘unknown’ microorganisms (<code>B_ANAER</code>, <code>B_ANAER-NEG</code>, <code>B_ANAER-POS</code>, <code>B_GRAMN</code>, <code>B_GRAMP</code>, <code>F_FUNGUS</code>, <code>F_YEAST</code>, and <code>UNKNOWN</code>)</li>
+<li>Fixed formatting for <code><a href="../reference/as.sir.html">sir_interpretation_history()</a></code>
+</li>
+<li>Fixed some WHONET codes for microorganisms and consequently a couple of entries in <code>clinical_breakpoints</code>
+</li>
 <li>Fixed a bug for <code><a href="../reference/as.mo.html">as.mo()</a></code> that led to coercion of <code>NA</code> values when using custom microorganism codes</li>
-<li>Added SAS Transport files (file extension <code>.xpt</code>) to <a href="https://msberends.github.io/AMR/articles/datasets.html">our download page</a> to use in SAS software</li>
+<li>Fixed usage of <code>icu_exclude</code> in <code>first_isolates()</code>
+</li>
 </ul></div>
 </div>
     <div class="section level2">
diff --git a/pkgdown.yml b/pkgdown.yml
index a98c6945..937c0d3e 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -11,7 +11,7 @@ articles:
   datasets: datasets.html
   resistance_predict: resistance_predict.html
   welcome_to_AMR: welcome_to_AMR.html
-last_built: 2023-05-12T08:39Z
+last_built: 2023-05-17T20:16Z
 urls:
   reference: https://msberends.github.io/AMR/reference
   article: https://msberends.github.io/AMR/articles
diff --git a/reference/AMR-deprecated.html b/reference/AMR-deprecated.html
index 654b143e..9ba6f1ec 100644
--- a/reference/AMR-deprecated.html
+++ b/reference/AMR-deprecated.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/AMR-options.html b/reference/AMR-options.html
index 57578fbc..bbbad539 100644
--- a/reference/AMR-options.html
+++ b/reference/AMR-options.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/AMR.html b/reference/AMR.html
index 3c31ce03..d8de7485 100644
--- a/reference/AMR.html
+++ b/reference/AMR.html
@@ -24,7 +24,7 @@ The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish,
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/Rplot005.png b/reference/Rplot005.png
index 964a8e116a16671c18259916e429b4cd16214a96..2e237c9663c7d7ee3da4f04db7a42ea9391e29d8 100644
GIT binary patch
literal 13031
zcmc(G2UJsAw{8l(1x4wCNE4(;@1Q7PsM3{=h;#zdTM~{4M-Wh|5{gKZ4oWW}!VyGz
z?<9!y7NnQJ+noQucf9-F9e3O@{#O_zdyuuW_F8j(^PAsXYw_x#z7{<VI}Hc~qK7}Y
zZv+B?2^TLa3gDBlVQeyRp?IRBbsx9_KS%c(QNV@T>%n6m5Qz5j#S1(*gFFR+u7lwB
z@0tXrZ_ETGS^AOAx0l>A#EcvI$t`YT(0Px-jU2y-e02YOv-swx4@eTtpCuMx@LOo~
zAIvo0^U>(f)Q~^^{DTyB_i=8`ofy09k~~@umx8Jc(H1pTx$cZNPbG)=<fL{&(-Wl<
zLlCM5VTqWg-}MKJHgEXg3IFPEVW>WN8d}St?TnND#D-;Rb#q=jZ*cW(beZA`gwM}X
z<{`_>;NU^y@$BZmx5xr5S4V8%EY}NfBO6T+wO74pEBG3$X?4H9d&W(;^x@JYkQMZG
z=etG2R)K*mh?B-pGj%%nHMu8b7P<(Daw>EXZ+$j$6*q<RwR_5vl0zX+`G~HGB0Y0{
zdqQ@G`8VfNb~0t|YCqA3Bb~eWSNUN#9S-vbh;AQG#_k_r(ABsY+)G?=Mip$X-UEW=
z;_$bTUf+D}LK}o_+-Z7{K+_*j<iS(X@r2HCLajh_arsB8Zy=lGtKmI49aW(DCmtkQ
z=@|<<2RqU-lID@-p%-3RR^)8l_@n*UeHjl;s#sG)rI&|}!|gMM8B>2P?x8AI&Y0;j
zlP{O9?|75K-w%+~TUqR0JW{#$(Y_kD>O9Wyn9G<pRFqv!&O!Bk7nt~5dYz-vp5=bq
z87qg`_Z{oyog47gNbd;P&k-DRXkd&1bR&CvdmNaNeM>yO4kfXt(q8AIy;?lITXf_#
z)*0?An2zyr-&(CUqzUf%UsL0%vZqKz7@;@wMR$iax$>oxmN!Jb5ar-$!vRu8&PmKp
z6_ahvVQNY!I5gD#(K8UsaVX1i(*yo_?Sff%a7AQ)&WU)xHr1;fs_+U&_er@Y=W0wO
zm76*k@%A&6cvpqVZmqyEM^=Yh6#}V;$j=;}P-lePu*@*HN*o6ss*Artwv>fN3}KaD
z*2y2A%q(w>IkXLJxN9t%w%iTmn$4N%hb$$Q=c{LJm8psw4Y1)>d(x;+cFXwJY01XP
z>*&Yh<G8B|InSM3yMCkG+#fAQ1)QE8N9bjdKF*oqz(I@2df9&Ye*2tHEx1TCl&tt~
zlUxGIf>~s$kWhYhq|R;tmA&!K81<Zu!CW>63rb%K#wWUaw7I%-<7x)DWOnl^0TTf`
z=fS;pKJ1OqOLO7qI5R*jHn&jioFmrHJsKw3Z&jYlMUz?_Sh%v*6u$3D5v<f<XD)V$
zV#D>!bz;ZoXP;sP(E%UrEeFot?=a5M{zYN!tVYssvU4B*>$OY6@6dpSptsSzATz}1
z9eMUZvh0H$)$Apxz0bUMt6>$$i3u5?nBrykkmH*I^<O_ed7xdY4h|zBT1>&#87_Rg
z!yx3H<-M?ob<B6Ei+Q^8uA4VUGWwoVXtLbSs=AfaVyT4^kBbcv+CTS?Sg5O@^-$v^
zsk|djRMS_W+NEEr;;qAMaz9F;M=&y%k<q_>>@LmS9CvM{^gdpaRJ%boK{2rV1&s$|
z1}m59#l-mBN39r|G{(1rXn903MJi$uS{v&e)!rg=f~pxpzZAYFLC#p};u)=^ghGwC
z-6unuN~@v-A{J&78CT<(7^;r-!Z*~ZMlon>>XU#2Ue22-g>RM`mHJ}-K{*ZGZ5w$%
z-faE3s2!MP794iLM8hZ79vohCVw(GqHtUSAEAUkH=T^*ADSlI<6rvljp?A1qQnNos
zi8c8nX#Yy}6@N2nxbXOcR-tR=AXEV<An%3CIdy+SV8s3x{bWh>SoJJo0BM#lK=>u5
zyzkqvA2MBb({XBIF?kJgh2^q-x1mADQsJwLS0U2ZP@jk6_wg=E79E576v%6hwi@!^
z7M`>YjIXRnElu6;5GOZ{h|w1z=gOTAYC7Pv+MVnCG-@@p=r%8H7r4m83!gF6Iow!c
zh{y^oq2x6F74(-uieaZ3cl}k?(VmXkyN5HbLP?)DbXx>Z47iIwDqbfeZhg^}N{ed|
z+SCecR<i6Uq7u9kg!Y<*Q?+oP`3<*UZ{5Pq=QAO>(_NSd#si`I`6RhM5|!Er`vdu_
zi_Jm#Ju;kx99-&`Zu91(7O0t!2W%RotRw%mjb>8(*_%y62Eo&m9iG+&QvUt<C??f(
zuIs0>drw=x!Orwg@*rCR=@u2#tZyW?x>w}L#Nyla1a=>s3?LsjH7*B6<~g{ir4seo
z_H6VI--KbjCcmk#Kd5sx%13B!NP|Nd%RcQon+)v@NH<<qEn#8Q7kgVnPwaD67+O-q
zrg~L>$Q$@QbNA$~(aV}^sBUsY4_b8JvqCjX3=?(vk@}>#Hh9k6*n@53-eK%E>dC=;
z!O6NV){m~0`tBxgdiL7TKt**#zrHPx(5zA<@npeWritRT#d*4gx`jW|%P5J1N^mFe
zJ<)M4mUC#)71|p7@O%AN{zBs@Mt#n=J$9{8Ctj`J=qN4)Klwt1Ns40X<xu{!U#c#>
ze`+FPU$4jX=@xh??d&#zPaSrP3uGF>WpXSTz|9i@4~q+S((t1faEEMl-)S}cYo#X*
zq1hG%k{iTQhpDu(MD9+!|I_u622}z(L44pj{i~E59(JVCoUY9+w1<n@!S;-`dt)5T
z)>2Mo!&WlV(alGG?ubkG5JHrmi$SW)$-El7zb?V@*CG?D?3qTJ&mMZG)Zu>o5v%=L
z8~#aK0Dt=Pov4VetL=Kc=lKNJ*7u!*sn*lU6`pxBcS8_LK9g1+cLIC!vsK%;DzsNT
z)LDHO{nZ(zF9&<A=vCKhw5e&!Lyc&&Dc{Z_Qf`D8@Q>}HKuF#3)OR;R|HNy{-y1Zp
zw5TO76WC4qJ<^yE$MOX2l^rgih?HQZOxHMh2_9VXvAKKrdz(Yu0EwCm*<8sY<%VpY
zzgkSjnr$O-OVlS4=1jpjUTRDF%y_OA)j6wf-|P*Z%8p?s*$%N+DKb0ty`zg*T;ag3
zUZpq3<ub{u<w70`8wF(%#MAt&;$6oZmdmVWBr0>MAGL8KjAGXEQ5AdkVUuH}9pO9F
zUr}MhHatbteG~Onww*3)*ZN$VCG01@=wXWKol$YaTC6zXy!R1$B}`N*S>d?1kMmC;
zb8T2PqQa!yNPb_>iP3JIYioU)`BT|9JY&0f!E~)dNNd!N7|tOgb6U`O>st@cI!kxc
zpuUCjpOPr<kZW^or#_YTQ<^)SNf5E<ML(`=a}`;KG|})D&GRuvS<!przs}fNebTU#
zeb0Q?-y-yu!}ANob2knhu<D2ERXo`RM_%poU#cJ9JN&~?V?0+?(4to~=X`#npc-60
z$o0nr)<l$_b6Hy1_2gmeUEQP6%Fc+{BUkn7`h4mBzRLE-h~Q)TmAY!)RNwNwf(U{E
zhLV$|x{{jcDXlzJRX>R)E-ZY7tiH+p!yPnz?~pO{kBUA<MbE+J@CqRxo(gkmr2IAU
zcGYCYT!X>wn`3G~GQQcjs{|3$oUh^Ajo_fNuXx>`7=t)Fd1hh|%I(!K8)*HK^Kg$z
z9VXTMSSIW}mNMsLhZ;O~XFPODec9gpQrzpA+i6IqNf@i^^>uE<tI2Uei^$!o`v+Pb
z`F~HmU90b_8nxQn&L-`LHL{eKuw*4ScH7rJx)|{8_Rnv0#PV@^r`J<AyxR9lf3VC`
zCcr88hGE@mZ9LYuDfj2YR_ssqR_0d+R7)qSvN<VMm=A)_hMCn?k=(65dm?i>@G=)4
z`mNQMLVPY6judHpd(@tPr2Lm6byccJF)R1rL7oxi5OTv5o{(Z<YTEPQNqfCm?WpC5
z9Y`l(l0Svo=Jnl#TryT%0v|sPl)@(jrl{b9Q{P56+Ans$f6=mET^=TkmyV5%m1*3<
zp1fTsf-j_cs4TxKKPh?qg?)d*DeHw)R3AnTf#V8U_YS-)v&WYa##N_(GZpK9#n)`i
zI$)+wBZis2TXu8YAwJA6Csx*igL^+?D|E>Rb=bzeN%rXTQ~1pCKn?=JD(^)|n2%H1
zY_~o8o!TcYEnOumE#0K%Hd+!Hk2;-?UFld%!}eP&^<d-(hx760(+=?}{#pSkru7S!
zFzo4qc#ERvbY0Wh*CZihtc+7{de@icO;BlRsp-i^EuKf}S@+@e8=iZ!*ttlK{A*q~
zaEwmv{d&hTtwIywwbbpJni{b%_!j-zQbP%4z0EwfN&luClvVzG*SPQORI_bOGD_{l
z(_zmN(d@UdyE2re3v=`EC=Fi92$1EJcyiw-c%0eNeS26(yxDhRt-QsirAKzkDtP-F
zi<*)h4qcNIuX;Rj(RjjvXxcviHq|2&##8NC`Hi{QC#<gd@MjFvKzaMGFz%pVZyRZC
zkNr^Yi0vGoKKYXhQhS)Q%Hf!gP7ywEKK535!)j5}+Fds{H<>$SW2D*^(#Ci#9vRX`
zPRo4S_aph1TfTlqLl>BmljtmzDkOHszGN9cs!=#8S}@eBy0$*oi2QwT?dy-!rIDty
z<27@eu)UFUU09bD?0Iv0SWw18Ph=uEa=#p*fWX93IL@ldJ#+T3wCu1-mvZXG(aVk#
zHV!L_ii%{>;ZVvNQ*-m$;o;$2kbpsElW%Xj0>-IVd~DbD=!bbe9lP}M>fV^`c|q-L
z@ER-H+%~NGyqyCPs;{TlQ(9eJE!QCjc8pW{_2wS-Y^>#M?^9Y@+LUMW-l#-ZifD0Z
zVPSn~e*WU9XwCS~Dmi@U7vyNkWBNn^Jw?x*9yv810xrDe_^1zs<-fD&5Oc<N0BVce
zMbs0AU%ik-P;N9ES_>zydJU$zuidpM8*9$a&JOB+CqWxY&oL?qV5Pct`gvCl01Q_D
zar>w+0hOM7jOTIKA<+%Pg<7xd*qrU}_i_Y=>XB;oyfcM3xA*Mg`BR7%l3aT%N5JTZ
zyD!SHgg<E8?{$nFM&BwM7r_d7&$YhHkt~Sss_}frWUJ;=>Nb(WTXeLB@oZQbHbDMP
zwCx=Ae@1`tR9Tn7+<A~#<N9aO!9Itw1#y#>$jFpfZ0KJfx~D2K{7W|6Rle`D-^1Go
zCSg<vVy<p(#em(lzeP3g4(c?TnVWB=Yv&d9DQz|Fob0WoLOvB1b~e-tOzj>_`}8fF
z+XOjwx4xt`c+?c=J(C%-8T4a7i#u#!#N4)d?=I!F-6fZyd{SM0zJLs3wh6o<E7hR_
zeDQ_8;z}<0Hlh*;9b0z*;sD%=WmPt+hWt;y!jQyY#pPJVGyM74!9-6_&&UNctQ2JU
zPm%{rdw1-;k2m$47=2M?Req8k#nnK}OSMV+GG-HUjUiWG_2?H{TO_@k{y}<<zZ;>g
zTojiPFkAn%`@K}{do|Qq=L(m3&EDc{$X4@dvboKBA~1`vasVc-gSl{)bmZ|0KBlF8
zXR(LF3kYe{ZT!*BQhZ;!s*2cH!~3QBqYpFgYZf&N?_}J}+AaoZzrQ|#@0<P$QydB0
zX)7J{`<Fr#=kxDKpT+K@<>`7K)Z0wesoyLO$%VHh$6mOXZ-1raZu(SS&h(=fwE1y+
zzN6ft!tQPqBE-_OenHJ9cqOlEvtg}lz$r6mQDO<OC@si9jkMcO%_Pv2FritqauK}V
z7h(MMUKE4M?PP7!+Un|&5}W3R<JVHX?|g{B10?KQBQo}ZNutu9{}AdcnCj#V`1wi@
z`_S5&^fl`1XU8trfZ3oWro|pitpgC`Gr91@Gdkt^HU_0rUJ_60X6)F=NZ!wQQ{+GF
ztb`jbG(MN|TOB^Hs;M!H<&fKqx?o=4Cj}9DTLE369_4jEqYJo0)+=M<l{V|5<}uA*
zO6A<f%1UQF8#hz~W7YO6<5hNAX~pSWot>R~_Sl^;$ngq$(fY;8;JwvVb%^LxLyCvO
zM;GosX6%t`-TLRQOm@kq-^&XOvd-FkZ!TD5UIU!(=(Oi=TC;b3M<!F!@yE+DrXTHk
z{no?fwk^Zo-}17ETGp(;5Eoy8rQCz5_|A=2I^gSedX?lrb$g?hwMyH6F*!Y}dFydJ
z<3F|0GZTO(^)7U!a!*Z89)B|t_WKJBhE8g}W*s;MxF7!;7_8M9kW=)KXGcqv7dAZj
z-6amQz=j^Z**yes?V;lR^Dh>&QVYNJD&Wt2xq=S7m#OJon2oJ1o*7m0yQ_vPcOiHN
zfjwHROtnQGEnZ{_MDw0mi)pbL{k7Y6ccuV@)Oub70N`p(IayhT7qFHZ1C_nu;Kq%b
zDU95V?@%U?9J$jK#ixRefqrE}_SX$W9)HgD1W3TIPwo7afk{C3QSz2duWT4L=*sb3
zjE8ks4JQb|bZPx$r)gU_C0F40$4(i0Los3v%il+e%~8al6hu(8kk3Wvi(5BT_4=t#
zu;OqhLZj=d^WOrb5aunP4@qx%wUEoPCo#6CKe5IJDt=4u9@faC1z396{)CpStn8?W
zWsUo?pz8Lkt4E6&nP;DJ;w)|l?=I)%XvJsR08ncLdaxlQ#v(!;QZHEd_+SfV92Q1O
z17MHxy5hK4M>@cxI)QXDrnA+dvOn&yq;kBRljZ5`TsJot#ogP;?f#`l){+V3Zr^9M
z_1V?Wbx#l$@@uAhYC*2Ksi=SNI(`ia@TzFt!E8t^$89?tLO}N&apwht;&SFie=DC1
zb7l+6%UfKIcUKyLgfDVoUx3{$f`$#XM8}_Zi7v&nO8i{iJ;Pe9^#Fi5R|1^+MQ-A0
z;w=ODxd;p;9cw=`DwaEx_?7-=wIk+&36w#RbZozA8*WZL&+VuN0)n1f^)$gfzO%%B
zvdYDhj!XHF<kP2e@G?dmd$`z#-2bBW%QDl-!>P#C)kfu@n;VM>vh>Ag;kkjN?y$JK
zy?1@eO&PFUKDJ8#lULY=>jPU{jKrr@%mvM`Ii+vEkK#ri!t&DlfF9+Er#pS;zdUMZ
z%xZG{X${L3w&0=qzb%YRO_RSXy2BnB)rRioaEG-FwwkZP*TFgo$C4p{{@UaJr}W~7
zYooy;a3jd^<ogPnju(I++xVSXeE07~$<ku&<7-4`0+k($9a+VdKu8_*d+>xDJR!J9
zTY<{W$xiGxV;%E58Y}u?@Rx9*&SU|&(bk^wZLy9z`tZ~rkAP){u=dLzY~#FT0+Z7C
z3R4S{vVPG~V5yX;ODK#YNJBa3EJ!>wp3f|U58iA-PYhExkRvaNJ(GnjJyfv0!Uq?Q
z)>foZ^tj!h#n|c@oWi%Koy>|``+1$vsL)PNfrRRcTgoIm^nX9|LzNeoaXl)bz)Vf1
zh}jG^SyoOa=3?^;(xZPrARLhE25@_!;=H4nkhaq-^z1FOxXJ*%3I7*QWa_5cr0|cM
z^6MY<z>Ttug<7DS-96;`sgTL%(?$cOeMM!$v!%5jif?nD7bkHMYrmsDm|EA<yyYw8
z6waemrvD@u%Jbbnk+0CaFxRV5y01>>huKR$xZ^`16+&;E?wQ5oqBneny2AWugO#VJ
zqK<{?3AvJmNr3(>G>}05yZ!0x;0c#6gmMxH`shDZ$^Y7|=*e8#KOe*7sm94!!A;Op
z@<2vsc!d}|A-c>c7&iqf2Teg^aZc!OI76IHgcmTnu}{Es{cwU*Jaj}I0y_aj@WDCa
zw#locs8}%$(~);vXMUJ)t!dRh38sH!`Ae3czg+Eh*>?{ya0+vMPeM@=Xf}mtkJ*>4
zFxWlMLR$)npaURr-4dQYgu+ecPp6u&Pb~o*bM%%YrsmaGbDEE0-6)i6OSXTR9qLI;
zCYmS|t*ymzOM6bgBx%JxGJd^3nT9Fmuzjx<veBq>Af_3zU?c=S4Iw<5RCA99as7G5
z4eA!F$Y{~5b&tEgZfQon3#gYY)u67oFV<Y62WPhy#eXUpv{(r>KH$4*?B~%l{$l@{
z<dd<C$SXPZiw9=6*Fu&?SaM3A10z?39&&j3`JVgPY44tA;^yF2_~Ax{CfXozN`H{%
zWd=G+R*nGFjjQkk6ZPcFIG312u{#O5&%L-Ye-||Wnyda503=_*DS`12*;kv~bkpE;
zs$l`sBtCfFL%>opgt0qNFBnk`w~b52T_KeG(gsj_D4ge{aP^R^g0qgsnJ;2nm_TjE
z<%I-q=z>+V9Hz~1-F{_NWRZL2q+vqZ<hjr@O!3s@=HsS@mEI>cLdjnb&vG=c9MA^n
z?7WuI!8hiA@>n#K@+E%tBdx;3pJ7C|%ImZ9Dz_2e+>JYnlR#YbC9ls=YR8QN$5Uh_
zwsuNi95$XF>kgZJThZD>3VO;c>LhBFm?!PeT2)7WdDf!HdK*15q|2`0IF>Vp4|;AY
z!LB1Cv-2}=sFwT(GtO_1)Kaw~p>=H*)i$8vQog-l9ys3{!dxr;1au$?c%~Lw0FeVn
zF$EV<LJlBV<Y!iPN?n~ZT{D+iD?J@kdY{ol-^u$vG@N8NF%}A8&MhnEmbo!fF(IHq
zO{mF#iuHj_JJUfsJWP^mEX+%VwUvsLlYhg**ef`QG!+sRw8VQK=nqA`f}iIBPzX&P
zgxcJdUsdp=v~!j&D_#FLeAJ5=G=Sg<+Sx|3cXbkm3;y>K`2PiB01$+7R@e_}JV-DR
z18ids6^ERYF@TQ+E#m-;m<oaEDpb8Bz2y6;tYGUP6aL44LkHsvmJr1y;!@EF2qmL>
zATL1>*GJ<#f1NPQIj;$Um4v+4{%*s2GB%^oROabd$!;||t&AE-TeOZDu_0$wdg?Xf
z!x6{+uxe>J<C~jBYPmDJdC9)X70WSM>C+s1KaWO81_p0gSroMJqcnOXlg1bh=B%Zu
zQ)%!Z<1{ABpRvw-R)DZpZsrN`(4RMsygL&_G!Ilfk&)j%b7GGfF?+e((xJ~GJF_1n
z<PbeV@TZ(T82x=!@0+XsHwmx5^p$Fmzot4^HvG=UsGXWdo1QyXrWuC|yD<5RAs{UL
z))9R0Zze)ut1Mq|0$;Lm9+{UgusH@7F3_e1IQjU>zd*-FkVAR9z`v7)cqa?)1)2rj
z0zR4Nhw{UP(|~;*h1(Q|VqVuPAaxYu*@+$Sgj{`J=3F5=Sz-%r6gP`&LG$AZ$8P~-
zY^g{~u&{#>YzPvB8+NP}S8uZheu}6D*6ZCCXbIfVEr=~BAA$joLAt0_2s_ksBJhNU
zPqKY=f@oTF^-O3JAN&W8E&8kw-BHV2%m~aYAr$kWmI9j~v3}ETYA~4>ZiIhRPI;<i
zm-^a10NVG2N++R8|MwnR?q?h3-4xn8@0M0VE|$j@gx5VJAxz!J$EZ~t;0aX>zsZS@
zaoIQ}90}MAtc+mtx?*{CLuE~vKt=ev?0@rG3)zE&;rWFr$|m-A5O>gP2s4yc+oWS9
zf+?&?f7uTOmXG%mDEksVfJ^32s|7M=syMnBeJy+=yy3O?P>fXv44tKQZb04+jU6EM
zLC^ClK(p-QLLGGmAcWr+Y#6mIB$}Umn!H5#3C1FT(rEe?x*A-YcwW1kaQrD0e0q-{
zg)2up@|Vq%x8AiaX9}L}sq`+ra}Jp*ym9bs&lAzkrBrd&uw}q1SJN2Zx7&CW!_IAc
zIvayC{^n}D=Gna*K6XybjgJ>G3mGGA=3VVmKHrqWO+Tp?Dm?hkg2R)`l8q*1$8BBS
zmqJ~YPxKne<7NtuHV)UJabNnjoYEs~cRwI{&D?Y(bT>bzVW+?3nV6f^$>Gm~=+Vq*
zhko3oOa~Gf^RfD%7KQz?_<jj5Y7vqUoEi#NE_XM@N#P_Sdb(HeT->xxaH^kff6FR<
zz((Sr{7Vdx7Vjm*c90U?5P$x41lOH$#3EJ-Zd9HGw8yq@B|1(E<OxwyouDvE8QKZC
zTq3q07KGC~KKSZ&{404rxX~+LW}GE-2{fj85I}L9Ty+D0209enB<{saB=fS8cE388
z%a*|Ba_tu_p^J*rj+DG#d_#pY{o(3Ippy;2`OcFD$?u}iMw4ndf$v5Fu;!iXHeu{_
zvDB!O9H8ef17K|<j_-Sue_0<E!~iT<p9`d;=cOD!=>QF)wxDwGzJOJ<7nES#fRf>X
zCtOJsN5l9J1Xh)_A6`gEO>7vj-rbDf-EfGAxuGj|&l(W0u1CQ*b0;=`l{v+)7sK=2
zGf653YbAgD2ewrR-QF@0UmSWwtQCN}>48WLYpo6%vItj$+KRYn0H1-6AmcG&02kh{
ziF*hru3u|lZugSS3J~aW$i-OzxIH+`@~tZ%^!mQDRB%H*DfU5;(8f!>ux6Fp@_^!l
zTPKxMDpQPu-(BO_*CB)wx{a6tnSe+wrwnB!hPGFvhKnba{nIF?Fm<Yq4cO@y-vuBX
z<bF+&g-H`{dP&Uv;+O*W;5Pr=8ZETCe1J8sRIomJ821r<38#AJD)Dy3C*7T7zCsbj
zllKFoI5~78)m)=gp2FRZrt$MB2m+*ZsjO+2ow$9u+c+WjFTht})M`q>5P3278k)nq
z)T`t2`{#Y=X6kH|WW_CF;y-T#2Emria?CZS+z;vlqsV)2+3Pi4VgTu2;BzM#Fo=GS
zgeM;nr#Q@C$nuFp@)!4rUv(S6>Xte>#yh_c{CPvow8^_za5>Z}HfUh~IX|LWSAdK}
z^FdU$DTTOGpnfXR;OIkUkN=#jTH@Ipspo&V@Qs7HxLH9B`zs@_uh$a?GGhS<j3c}p
zGIj}4Nh5!yE}P8HO6TO+W{6aK7~7#I^`a2m=m~%`69SUJ`9Y0{u;VAbzdY=%p6T7f
ze|ma>E?xjcJe+hg(M03ifbiNMh9(qk<_W`VfE`l9MX6i9?gi8(@Le^;X7Myr(utV!
z0Pg1pAn}A?j?2dd2U4p8I#>WNu$*;&{yg*VnE9LREI}~J6o_R~Ju`sp*Y21P_|7^M
zO5sBMi?6Idp#x=!23-aEl6Xl56i&jQttjn13{J>dT_rc6-C~Z0K$HIj<j|Y&dz^%N
zIvwTp4G6Dcy$MKQ-)D0kxDoff>i-ehpUj1${ab+=efL*r<+Gv~e#)jw^Nyhkf){cF
zu%7%dkBlgRdx5iNYcl|Gkz3HXJKd~siSx!l^kzQk38&cO1T;K%{OnxbP9>R80NP+4
zodr$|=LWmw%$4FYteu^15MOf6*N{E)uf5}99m^&|?BM2BTVH;=2D`aS>u95sQdUSh
zn9d8pHWNvRD>*9g1wc=nsuDfa(Y>Hva;{ZPC8>{=vRWYC2Ga}^vTDDPYA2-6RCd<1
z=TpPUko}hd3dc!oei|;iMiZu!cOQKTw?=Q{c+uQqfPV{t62-eT;>BlAezHoSRMh9E
z@S0RV1$e12wWvz3AFwm^|60)g-!7>BCzbvo0TL)(!E&3gp#|#2T%lz|4v0Zvz=~Or
zMX)Wo4Tu4Rgo==rff)3PZePei;PlN67Vs2ghgxMW08LK?2KI%Nyv)HH>*Sno9j2La
zLu(eFhEqpi+(^ah>PF`BZzirAAHS)AY(#7@7UrZ#m`XuW4W2>6?e@rIjsJFI!6nuC
zt3XkiN!7$mYGHJSGJo6LGO<%K03()IYq|R;XCVAwQ%<$H^&wRYQ`7WCX4PX<4`Mb9
zU&@NRnpf0tTs)QOGr9Q9b!&t2?6d3Fd-10<(7G4e)C4t<1G@I(37*_&;M@<F4w-V{
zJKzYqar<K<xi$?&+zexM5{?wf0QXZ({!v!c;DH;L&~PjBZ2sz@;a0*@m=uP?L$REV
zsG#+8UbOL#e@aaiLI67J7i)l0zg4>h5IXhRE8r!EL+ym%j7-Lh1q#LgKmIf^0>MBv
zl#$QaYPEuNfH<!L3il4^7T6q&02e%cjjH>1QLhG8C0{3_qZEJ)p^Nxp04$ogCW>AE
zOzHJt_uPUYPq+*e%@}LvrGFF3zF$-Unkg~@2%!~=&l@0J@ly2SA#!}k$NB$L<PMN7
z1JW>4dxDIlqS}OKA&A&<B^wv;!8HtpzRGgQt98_IgXtYhG!k+XfNF}uxl_v1bmC%x
zflgQmSWH-z`hN)f|FDM#6fk!Ts0qA()6kPupw#dgBnOhKZZ({R@re0hqEo1K_=YY>
zHQ8aBk5FCq&w?5j$o|maQ2ot@*(Vv?Z_ZlNJ8s+BfZja;)>i1eTr#~=uZ*`hEvM*l
z-2SL@QBK_eYOKuJ&cpKLJQ{eyk6gf-N&4-0qZDBPMT!5qWdB!T_wb@z$_eL1TLY=v
zh(JwXAZ(DW0pM5$X4E8gn}wCiidL7rjA9i%flK<g5}YzrwBi~uxSgmKZi#MzS|&H%
z1b8CP2oeY-WN^+iYs}MnGkUqkdAFhQ0hMAPvzn^1@s(^R{Ccm$m&cRCRxs)OEx7_C
zT7#o86bt>QLQi4Mlb%8oJ)K*KZxp4ZgU{`&PsG|<tM#tcWLD))&K~aaerY!`A255p
z&tW-v4DE7wG23{YS8G1AzxpvCW<d3hPEl!FS!`a{XxYT3&%xCV1&bzMJryGI_$;kj
zlolJ@K2N*0=9U&SfHXFCv-U9-#?lp^pZ#iGy&--t%I~x2$bNeZcBlF4og&ta+NPEU
zHKL7s|8F^Dz`<bcCTS?`NtHo#k%>+h$M#*fR57=sF}M@+hJvfjnT-nZZgXi*52B}j
zc`%^J)y*<`09jODZ|mmccDhsP-I>^zJBvBV`Y3v@tH?BV`@}<3H0I22@I5JJ6ggjX
zhKt@M6`8oM6w94?Zo9QKhIkl0>z_0mO4(K{_F@5zG3`SO)W(a^hQKO_!R4Y05n4)d
zs5-}CMDvJ)<U!W^svW4&-Awqc?=ZgzKZ{_r8R)F~ZywTA88QgZU-maj+17jPi5Ic-
zd)Zk_cMolQsZ4Xvz;5byidlt6_zAV&EX<vWV{F3Bg!=agZ0>lxMZl`!%-b&hIkWkP
z-jq2>MJ!Bs`{PQ6=skl#wI$2QOd@jA-Fl09%PDyRj_b_OHHL~n+f%UVo}D#x1`u1p
zVXROE8LP$YXGK$}6;%n$1ezGmY-iW*`?5(Belz!MC_I)bm3}6II47Oo<hW@1T~Zh7
zFN|^_zvZhEZD8xNwbYxEE!dPrYdv;rk5odIerM@c+f%}O$>Blk_g%NsiHoIi^o^{C
z778(|`E0m2wl<oeSYeHt<M}d5Rm*&fhFd;t`Ily)Dsb#r_8`8`WyNv1aBInGE!ZGf
zEug4j2VND2)q6A-61}VVHk#gz+#miSrEHnfow6yxmuF`9F)4?N`+-4n>Bq9JYPthR
zEY24FYC)_hMls}CaO;TzmQH1xG|e>XXNvB{#?oIuUo6pn<H2S_7AN4&Fv<9cX4-hM
zq2XgRG4|-S$b4|C++ye+Dux*T9>O5zWN4j)V7pHCRUZeOv~%ZQb!WTia!PVH>A;5v
z7-66qOE;I7%LZ&3(v;=PV_l`>#X8rvIEL#BCx2y@gxA1X5S-vFgL+4+E$pB8BSwQv
zHW#ORZC=Q>g727vPg06MiT#I84IYohw1dP-x1i>H*7xN^$gp?hogHimytpi;(wnv1
zm*PGshsR+if}_<}4Ztzswjj!+!m_gEA8!4ckIIGhc)A|00LJU;Pn_*b#+I=pgRK-D
z(4uG*zx4yTbr{`^67Ca72n5DwVd!s6-M78H+fD2-M~QmT0Y`ng$<wvv>+%zPYv^nR
z*Aq)1stl*%#D@yBB6oP!4D(vDc0}(1?;$@L%4od#<_??-mq*D$g&fkPs1VWG$p|)0
zCbKh50!8Z<)vX?o`b??sY1m>x&h`b8R!fj*A>5Y;y=W;k?++^nCz{8RD(J@%VJ#@I
z|4qcJ4B@A2A3o#z{sG*8nlkg_lgIzf*!hpQ6<+QkkM!NCv;||69Hy@mZ0tlUV7Eba
zybUO4xg~S`qm)uPdCu{2-JJ&VM=iQLM&b`Me8EP7XLQmUwYAi9HBRl)22fr_mjeH5
zuAj2!L-<u&#3At@QjSFnsQdLMzM5f2<mvlp9{lIzp_0qpwG?%rz`E}ni_b3+n<aa6
zn$h4AZF9<Xnq6o+cnQP;QH#@)VtZuNp7wL+<R(%4`qdeH8sn2fk@&Su<sU+YM`c|s
zxmNqvceO2b`u%0aLAC;+M?k^7g}^bewNWrZJfHfi&AKVE2fk&zVeE3Aa3r~b`Ji<<
z*b1}oZpn*q*N)tamuEfxRjffDBG^Rh)<*O0A?XrMxHUDZsvN4-zPVH+_eD^Vtd7n3
zb-P|%EQU5zmHmv1$os+dS}HwZ(^<g`j3U!?s**{qcy+*L$L3{WvSe+TF+|<`5FJby
zbXKq>WB9Y$hi5Lx?bTwfmf%pw5=ok95$D)UGhT?<^LGkHcTwB2@)ve=G2>R|PVS%g
z@kO*#wMOmPslU;qkd4iUQxY{JGJlLK@1(=WtE}kVb*NrCNVXT;Ta~n{9j~Kx@VlfU
z%Z0<gp3F}Sp5FllG9R+fK~X;H*WDQ{YdEM*vQD7!gA#!ajqWZZ5f9Tb5~q%YW9Q5l
z;c{rU2-1h@h}osHfhrjIoQd8R7RWg+Fgj|bND=BZ)Iv8+L)TrIPMjO7zxDS}5g>f8
zapEpm?rw2Ga59WigC>ys5wz-3u-1;ld;#PB&?ZAua?Xrl1lMm5LykUZ%MW8Mj%#w>
z&u04yz61}+UMK4;&#AEmBO#oem_;i)zu{3CT&~E5uiwPrB)Wr2WiFd-zBgvE{_>$p
zHszsMwp<9bLW-wCK+~_9F&OUz)^hCTB{f}@RKZO|EQzPaeoSk$*lN&idA%<xWn@E9
z5nQBqNW}gK2nSBe<=~kh!dRhwnpR3@Y*=~@RdY|>(rDq}v|_QGN0@q_^k$Hvr@HN>
z6O_!vL7~6j#J<4pp&3)~k3_2Gfx7M^vA7w;jrBJC?S^IpdBrB`!&`GQ-TD11sf&fz
z2zsj1_r!8%{oW&QcCOzuhdl)q3$l}iroo~v<J725HsS=<V`30C8JB1Jrn6XUSq}r-
zE4F9KuB5HhWqG}Ly?wN*XPK6l9}g)Hs7xsnnF_|~;p`)p8oB3=daDr%Spn3TNy^Ln
z8~eP<g0`LS%8Fu!0{lNronH$6x*&b&o%Lc+QIsTlB+-OvA9ePsg4*A({ZN$pMA(gr
zyH_tFEWo8JyqQYNXzQLoEj8tMZb**hXU~(}GxZZ>Yi#(IfA(xu09E$xw@>-8;oOW!
z)bv&B$2G_ZaagROM+kT-z#Hj8OVvfxQ15G^Ib^*CGfOiFfz`fQq4f?i2~Y^j^y*I;
z7J@!f`8pKgWpQ6#av#!qsqOvZB_zeJru2p#Ve+-h=w<b-jtCoH*${{z(>}@ifqZ{a
zqyC?h78>%3M`>cCv^<~!5alJ=E>%WSmYbTt>PxYy%Y@77;vtvjK$YiXu}66uT2uq%
z5t)I<%Rj4psI-C#;{VumKUP=P9RK*Rtgqe!twfC}0`&J#TyCgSYeVu={U<=F|6d-O
g`%hYftIlCVjal3b($&Ei|E~hq(7#`%ZuiIk06=ZM!T<mO

literal 13189
zcmch82UL?=v}Ovu2!e=o5fEucKzb9sfT2ngqy`b`5DdM9pomIU5Rk6YM5;)yxuD>c
z-a82*MOr{g0wH96?z=N@)|<Cx&3iNRvPiO4a{lx0v-h{Z{q2*(i#x`8tW3O2AP|TZ
ze)|tI5D1JveKODipG1tdr2=ns_YL&^0N#Pe;jQLK;EfS^`yL7eV&*t~f`{kO#~{!}
z5d05qi{R|dxu9&jfL7|xM4i|7m~$M-HyDgmqdDH!@Il^Rm(b^;r5WnsVt4nT(fI@Y
z_Bt!gB_lAn<nh~crq_s%hZ)5#UI=B7D0n8?tk&GF)#f_+xwCg;<Ke^pjji>=;9lpT
zewAH~JbBc^`CW~bUX_dRWYPcIKeNMZy6cdnt{9DTtYmHRnYFb={lek3SFshUzaXLk
z_Z04M&kYX~)yVT(|Kl4);2W+nK{)rtl56N@3zK?Ar2I9lCVQw?hHRe$Rs<`DP(&(J
z1$JFe;!u2X!l5jcxfOvoL<rz@5whEoNVhcAgNt5w?IGbHLvT#ceH9Ok5Ofz4gpq%w
zt~paQb2ImeArzCIUsnPCsQTuld8mf%AxrypUUYyzb!`<bQpFU^sw`xk|Kvbey*>fE
z^T|moA!aT|)?0WW$SRi`ZU#PL*Zi3de!}3WJVDnFrPCcbW_P3AqFsw(&F{Vrb-wRS
zalAe!iLgiXt)iu>UT!b6IeA$he=64PtVr~j#<27D<OeeCtba&o&R4B}-nUM@KSI&q
zRV?8g&|Y3Vf(+;pnHe21uRev+>2!KTaSc^%epW9!udK*R_2>$hONZhU+$QVqclO7{
zP$U$~Uam9`uIMC>(mFE;eUZW>koL~!(M{iU&YIjV&3CH*8dC@*6-`zh4pkZ4@8r#Q
zBI^<9zbt<;_G+5RchZtVsQmEu;^sqZ3D6_;P7SDl<UXf3-X;}k2x@FSUp+A%qJ)G@
zzkt~u8yK{KP9Az$KLl|fg>xUZ+!kBZFV6K+tV$ltC$qi06#eCF^o>bn#m%r!)Vvob
zf-ejEChk*V{c>drN4A`lgn>nYX~p&;CG(_pH(>_wtMdM0reH7NrbV0#e;#t<)oNr+
zgs;Y*pkYU0;a<T_IYtbvYea^D&im6WSCN{B9+G>9TN}HVxN^W{xn(b^ObEOkZ8tDE
zQMOSLZdC1=%tfl9%)JwnuQ4v@;BG=Cd~$C}oY#SNBi+?u>YR<M&FQUlhH$NzKDB!@
zozW{lQCL@u^ZNxQy-51AiV8v|48%|-wz&opDl_Dw`@4Z4*F5f$RTjj)zb^!LIh@1>
zDbnc-y5u!%XsdJ(87fbp=)9pu-lzHweN~)~r)a4jP|xH9hgYmz9Qle>i55H_!G`91
zKye|x_ox(8J`<3TZl~hAP5Bk=4({i#a@@2iI>nJ*laul8s=MJq%OS5~`$2b2#&0O|
z248qb+?9Q|0(C+ynsu1gfLuAzK}}~Cuy4=DqBx!xn$Cby+}C$l=@LcvnpCUf2hE|R
zv+pK|Jk`FJ21bWaFH4?QIqrMh9Bc)}UqNWPTj@qBC7d{1;3I}^P`w#@{LtdlXyv1@
ziwmDUnGv{ncczFoHFC>s9am7PxUDWp;=35uuEVryESl}d-hc~Qm!bOA(B4Rt7HEB>
zZKYAQU)*clj;8n02C*fB{k+Nf$*!RHfd`4x%9-1od5PzK^FQ#QJ)v(%Vz(PGCl&qR
z25c>IV>V*wX;l**6%yxn+i!-<JY_Faf;6)q5Vme9-;p-|C%^t?oq)_|GX|-`xU+q!
z+nVKjN2g3wvNDsmt=6yGp{<}Xl#5NY58rU8(F(gO>>afCreZo}d!)o`vyw5qoMw09
zs)xiznOm|&)k3tn>Q(TG_6$Lve)xd%?br^3w`-213#ihkReUh;ZjmnjwXymEiz+c}
zw*QLD%+zw~I^^66r*W^T33;XDRn?0yn$5`S(Pwoy_Z6G&VPi0wuh~&Y`RkH;$I#@j
zU-Bz6x5+SC%jh^`X^`MsN=QqPxZU2uUmwQpMwUGn{Sj`<oFZ_0Qv=fG%0YBqa2c52
z@@L2wlQh%6w1gUIFARU}p4TSLc}Tpj-ZZR#MJZ0QG!<Znkm{sI;@?tyW6A6egv9Yr
zk{ygXCx*(KqR}`us-lN8XdwvaXU@>h)?XvI?Kl*EP_U^q5W%1|wq~NtwcHv~)Th9Y
zkjJmzTP_v+jsuszu7g(4=Za+Gofy5j<!=+OJmWz399~@bjpls6bBj^PIP&uG{QkL)
zuWW#;3L%8c*)~;YSJPz)y}$Ip>3WM@oS_8~Zq3s3_BC3a!$UPW2EpC&p)m3AZ|ED!
zoA-qSFWM<cjMV1`@<zRgmXg%q9rL%p-gh;cZG9>_#h}0&d@N<tzt@;Z5VMnU)2;~*
z8Vr1C@y@$j2<2cg<AsmAw>B`oY~A6h`K&I^?1u7;g@G=a9qoKfn52+?X{sgr3OqsH
zd`V_-T|ElF?!_fsGh%f+mY67fj8?H_C4i`W31Ly&w)YvtbsBS#a!E=Ij_2olWW6gC
zFP70i&E~U9R`q9J_;PlNMKrvDP0X$r0eUB{m{SE0xw6pmCzL_sNe^Rd&c55ssGZJ%
zAhO~Y8`${rUeyoq9i3I}LKuq3bMwvU%7>s(i-{W@m$wu5#QAly=gSV!*TdP7Q17h4
ziHqS*xASsde27_!zE}c2;gy+q>!!l{exaVT|7R`DWNaNu2sigv-8yNnHeh7rM8Vm*
zPVpH>E+Hx!1~TDnTb<x^NC`IjB8YPE(%f0`2)(Xu#ioo?)!lnj&S)!iBFNXqyzn|p
zOW3aBnvdL}60H?yzhPS2#*eGf0aBZ1rbA~kMwUIG9VkVfecl6%rM?h*$6Jwl&c_Iz
zcl7D=7Ga*(!{s}8US=|CJl{iqzFSSScw|J?!>>d~yeN-m+p%SEy&Wofcl|Eb;--m&
zW2=FCq%a)=H?La(h5Lyt_Fj$sg^LlID`L?wp>~nIpTxrQmE4mllctpuf}6uHPc8y9
zJflhoMf;9kJ-ccQzqGpJ$<hDSP<&eOT$rJT6Kdnw?Vfzzx|jDBYxa2~+yy?RSY&ER
zu#tP5n_7Ta^okP2t`NpKWk{}CyVa0s+7?h2gZ$OO6J5^cIb7$XaVFb<;bi^&0h6gw
zaDV^1O?_i#_ekUQ0LGqN?`b>l8#AZ^hYrwP2@R9UFHK_aRz`%B)qDIMg~KO_v~7RP
z6ix3nhBzh(S{W%@?I!oq$^Fbcc^19Pkf%pN&hrGv52lc%y;~c2qA8Cvtft{{^rp)M
z=Ss2gH<1#GUZrlD88%VO??WiB2TL8qoih`n+I6TC?20nCCV!sLcAzrbrU&S12(Ntg
zSEGuGVFjBc=S1OfVP2h8cg^e_l9%^5dmF;ytYXQ)^EA}rDm9qwE`znLd5WlmSu!)w
ztFk6cYra9Uo3{mcslN+qd(8ganXy=4F1xBkNrQ4_+IRDt*qkRtOqewC5YnyVT}B^%
zj&(rs6x-n;A#X9Nq9qqaqQV%29-FWq@Z2ODHBE3Ty7Yq&o_DboQoc@#pMAUspB7p=
zDxRdWEoY$V@da+PUD3Hns4&ZUj?hOteUZ4twHE}a@dRIG=}TxkT6@*0NU5|4HbT7N
zPxZcuRbW@dDRPERT1JaF>*<VC>dk;}u|`uC`%L-5bb4OqrmdblpWJ&|BM{lUJcQbY
zb(lPmtK@iH-Up6`fq}%@X>yw$Vbs_QCi`_V>hZh!JoYJ&;qT@MeJ;h&%~}9en@|me
zZo*2G-&9pL#8m0rmt6?Q>A8+3dvfkg#!vsyn<MB1SLBL>OZ=taU9phUdhMxbd0p>~
zlmdr8jRybsDz#PDvO8suzr4JhemHQ`5}v$lWoc<-aKEeZYW=wR7y@LFJT02W=n$`+
zTtIUHn=C4Z1*M5ffa$74;f&WX&G^HWJfYx?Pu(Y0ZSH9@ws$|z_%sVRRAgG9r^cUb
zk(x~MG+Ui2TMtyPp-8<M@?@iI<()xMk2Pb}BXwlXovW>zS60g^S`VgWQ7iqMdET=_
zdP0=()uDW=ug@Zg%{a=i5S7%e23{V>b5y$j<vAbth)B?)HY_GKFHE$b?8~#VvX;ce
z#3U7)<jq(0Db7e6XemzYJsnp?E%%~v$ID9Xdy~#db3>^vmOh8$PbwoR>%Iv*@|Ovr
z*PJ?{IUn}E@e8S&5V)ACZ@Kw-K$G4mOL5cS2_5SZ{%E~2uLXxD_esrhETuIH*4EWM
zq{z(=4-c2XerY&S>~i)mPI%5{O)xG!1VLAF{idfJ1vP4}qDUwqnbKSZ&+%0ABEt|l
z4QXKR2-3o{{1{fg@z;WNL%Mt#`@rmu2V2dAao<m0&!;;CFFYOCU!SO4`X-VTzBOzB
zo7;-v^C97an;VN@1>*^d({4HyZ1ockVdYe~cuoybBuV{I(1JnxQPQRaI<P;(Rj7L4
zjY&EEK-=~9qgLX4^Y4$P72lf$3(QJ9Fm{z>LL`+Oph?0%G5zd1a6%|FNFO)Myzah2
zIhY{~nO!xvJ67ng7c5UStF<*Q&WjkIx)pRdTRi@x(6_fNgg6&enXMYI);`=RH}S--
z($CjH{B;)Y0p`z$^{mLIudCpUdRVzeLtSBE#MS;cvia0+uSB$-vz31Q=mB2EwMQBR
z1O%XrjEtnPq@6|X-Z!$&oxO)knI~_Y6Em(Mu$U6hipFJ_Z{t#0EqFe3y}WI`qIoOH
z)5F83q`bUUqK)wiYF3+G!2cL`a!@bg0es%Nlx92b(13LEHZtlfS5Q!>_o^AvEpDft
zkoQN5O?)pX`ONz9`7|sL$wUG*%iwC`17}Qc_jw9@i!O#`Z6^H0-I@Nu{FzCVzrClY
zXLHK<16#J?N3B}`po}~L#BK=Rin*S|BmZ!$PYHLtTH`(v!~f`;u;Xo$&nHLgRCZ0u
zbWyiZ#NJS|!u9KR_sq>v>pI-_HL~HMtr?mTp`C#<-o$cQ=dNsp)Ag<71kEoGo+z~a
zh?P=&?yH|I@7iyZG1Bc~tMvIrWnSZWtyj<4vG8L67FxehdE{Bysp<YQr|BB^TU`l!
zLHt;kbo)BfqmbU(<ELvQgM;cv>(5xfwXjb4J)2G(f8tdsySEi^vvCT#RgjjJ_7QlD
zld2{hBO}t+*4A=tY;8*;k4ExxXMi-hi^<H)EX(q&Hi{h3AjSvp_9;!|0_MEfUG6KL
zi6G9IX#D;r0(%3*yNI42iM^E~ZgLU=1aJK`feUAP`H28NS(Oiernq*ue=RaAsRW(?
z+L}BlBPLoA6GD_#J(ITmaoeo+?G9#FB?SdbLfwpyYc~4m*UFq<x4?vp=G{h@e{nax
zQ22KCsi9qhVH<u|21CC~6dUr%J-BV&w8CF&3(Z4&gST3C`(F)cQIF62wo?uyehFID
z?Jv)V5n7Ld(9HfWOm{famQ4M~3xqtxHQTR??MLO#sjYKp@@8HyakCybuZ}v}Yp`2?
zn7gu^68O2?b1KdGXzv%RZ|nYe8mx`<gH2v(XZhm-FtiPEOxlq@qq_Pw0w9M^Q>B${
zN2PmvQ)%sk<%T)08U-JOC9tV)V;fr|a_$7uA;rDh4wrje2Xg1OX6C#2e2)i!)ljON
zx0*b^5ZkGg{C<^{Y%5SMu=qc1eHxdtGQ1yToxIW$<k|hgX~M4@yp5;W0`al6vGKTD
zW^Ed=oZ;H9yp4sj%{=On37SO>Xi!7eN{ZXEeZ*0-K<@A92L$Yk3(+xiUoD$+FU~Q}
zRzWSFDY5wIGuz<D1~%~ld_*;j{8kvY2xMLPPPb&c*SfY%#e@K2xByPgz3x8TZeC(B
z1|%W+(Pr(0v2dXN<Q}@dcj6#csv`L4Q@5Zk5g^zw<+drcnb6N3V;|SN>*o$qCW6<?
z>(R@pRt`LagM%->@AJB5p})Np?rU8BbpLDY+D(YeOjDY-%6oUAf%9#L9t|7SJ-NKs
z-3EP&4KseH_+MGF$rT8kbaL0*54>Bqe{okK7vSK-3eN9cMuRz{05r!JI-d>LHy{_p
z9UX>+r2oc7!1%qDRy9HkN)#(oKU=+d>Vfcwd{afZfC+mX4zO&?uEuR>sKjEe6sTj*
zPFd7tvdYOQN$Z5vSK0FW`%;p|!6Yf&5gmeP%IWp<ZQ1F<=)|38)lbS(5BXi>+?^QV
za`<~m&m>np#4HpQddzBN$u+;SzrQc@ug;?sW%<~w{O*C_t^su3m#I)X@O!C;o_NaH
zV^)rH*MU#xfLMtDRZx)zAP3F;QFG6Yru7N}E_gAa8D?9zkz&5$V(YuMzHaLfzVmgU
zKToUOr$1XI0M>r|``{ECzr!p2>VEC^<qxt=d#&5lErC9imm4j4h+DCe3GGyE*PMWH
z7_0&RxYMf4dgrf|du>Y+MZNnMXFOXFe?C^7V03W?L51q8AJw~8M!XKmI$CZ?dd4Pn
zQlhj~iQX?I8>?;B<W$!N94@6(4>y2v7d}<(q5uGi|9ENu9SCm=DK6If@m%C#(goT3
ze?C7eQe<IeMRg)=FK~mx*KKjrjYUPv<82Y-d22_<_D2A7P=8+e-s?vO3fVDGQYv1}
zCxz_|=?#PfFIu?4K_sP<O)EP{Ym$!7t4i)<vLm-K*X1yFoGVZ5=c^<+-*g<Q>-Wux
zC*hT3;b;7EWFV>M>KxnA?Wfp>so*ittqf(qACGItZPq)Fj*j>MBvqqs-Rita+VfNc
z0AHxb@AqXRL1~_}>C_oxWJDnJ)XtZE?pLMqs0D6J0f3!P70(U+VMICF_k7Xbb(*=~
zg1x7TOp<yO*f82p=qRzq-|P5)`2h*!u{!vU+a=8KAuB+6^KN)-lu#b3U!~FxsLo0e
zJ8_Qc(zxG0J=DxCokwD=+NmkP3Q&Zw)kWaeGCkRvZKvFz7k^=BGHaZXtD@eX^_Ntz
zEZsixv>++(_R6<!Z+Eg$KfT@!0rKuBFKnwZuNmOUp1@Hb;qSG_b1w$q4!c0n<hb{2
z6Kt@S4CtASMSW(+617kC((tvu4X{D-Xx6{gVXNM*9iiN89m%4#e}z@h{k<zWYRjMN
z4^9@{*G&Mn3gKq5mfy9l#a~kKADSL<U4ombSbQINc^SGN4WpUz0X7e4RHwgeTy}$-
zC7DUIzYt(jf9-mlg*9;bsB<bHM>+Rvdd>=h!eQMFQCI>-!lhK#>}v_1`s$~(%*@)@
zF$V+5+V}25KjwDg_16lv9$`inu->$WK|;vLM89W{&e*%J3Vcc`-Z`agMn?Sk;eIXg
z`yqE^!*(M#{e4hrisaIj)x=o~ynp!(gG5_T|CG@zOR%M-PV;_E-*d@4{a;|R8Uk)s
zX(pk8h&=U#rKH5{)js*H_tloda5EkYeYS>tk(4AE1FmGzRCpoHc8NfId!w}F?PQC~
zsT_cA-Ix4FvWmg=F<@!98H5D^Pv$rkxUWG_>wj0>{yRf4(*?}WdBFU18!Rl)^B@yY
z5J*VWI$ad5V<n-1&%szlonRHPq6o=5^eqgAw=1s0lVdB*La`H|83^GaOXRr*9uj>O
zyfF@NxrJmQy*dZ!T6aU^P%u0>G+v((U;2KAVcO#(WE^resSEJCvxPp0dM;R`sSsm%
zgL(V%H9nH*{Zx3e1thhaO_|p2!W<nWf>F4oAZ61cB`m{(vDE{fS{jSoc9AW7pT%Uw
zITu^<>Dy*N7~ljygM3@74f^bC=UE2)yQ_6lCF*CkJ}(b?l38q=b!2%xz1>SZ>}p6j
zqqy^gyYUC1aZTFLyh=w@-@;c9-!VPrBPAJ!YOQPK*4_s+sTZ(Q{AXtGV*QCa^<HO0
zj@zuwme$mkw_$AjjVoWYzq*wbetP9<a-v-URZqPYkavWhaR_%9I)jcNvIW5+hzD8+
zGIzr?bP6}1Ti=ZS!KgkPiRL%K_sW5$Fc2I|z@>lP&{$yBuFDdIYv_wTohc0IvbU&{
z6opGZ0YG8$3vv9(rQ~LEfn3RJkY??Z9i{X_CV2Aq0y78@QireqbFcF6MDsro`2S^S
zEu5SEGaV9CC4Y^D#7>gh1`TE-?2|>g><jlW^`Lp0I%pc$5wr}}166W%+)FMH%s<5e
zBu^~*8n!a3G>U?Ofz!b_>9;wuSVfht1gNG>t6X!r2LcvL4u#R5ID9z}EwKXDHO~|*
z9!Q1WM1YQI8=iJRg0ED;6aDfT-VO1w^2xtFN%Qqmt~U9^+wyy#EpxfjgV(MMxUwF&
zvW-=lmt^lxy@nqcqEay2%w8)`SJV2Oq9b}*hmW8~73waZhjf^GXK)$Bg=0&juO7z9
zp*a8y<r%Z&i*<=O+RJ}X31|2-|1bs8N*_q8ONcOpvQy+z_GAN@v*dPi0msMJAmgm`
zQ>sb5Rd~z-|Nrdvf1AaU5||(wW6*fqmJq`%IGbklvgK=0c;OuhaJclg?OSjIJ;@iJ
zg-ylM;LCpMr-+u2Bnw?t7)jDq3=K@yx(tg;SWc`Veikx4C7>+Y-7o+e@GopIrI3$X
z5<eO>|DN<RD=+W+eD^w<?TvYvV(pP``4}NtGeE%^AU$)`$DJoCQpTcX6Y>0a+Z`h!
z=9FT`G_l_;Wt93ds5^PFQ$-e!0s<D-pRt^vWwXjWj5Qh_{rPx3cIsh?r9LPLl%`9K
z<fqv4P`qizrK@sWqZ(DZHfal*%<Q}^_f6}!nnH#&-@tNr=HF|zDMf0q;A72j#ml8Z
zMj6T<tv8LDNQbmSy%`FzS1{z!2?1n(P`%27tiG6Yg%qoK>)xq!je7oTn6Yw;iSezP
z1I;i&xd&wL*kOl};ldW#!?jl!@GNaTv>2=ec?KDPlA%P1BaNVBRgM@|N~O!2k!4-q
zuXeC{ikH&-d$25KbRyta97eyiqM|8ecYx)pP1qCqefNI;x<6OxVil6OO6?LxBgWYH
z^r-<868g4Aap~s@a~_qxj=&Z}n<2iCb%+{N3v7eIL0v_yGDYEEPdQU8IzM-@j-F0$
z(dN6uD^a+Zg#<Xe=Y0Y5OVN^Zk}jMzqVU$(|2$#;FM0cK0ranB022-l=f75C7{E^-
zFFDd83fH%50||m!Ajble+#g_00_IT@m`E@^IKn^~2GCPF3<IMdr)#6%V3P({(A5#}
ze)hGOkxa-dRV)oxGp#Hcm&M>_?>*Em;Fww%j@h=EZ~BsKu{ZH6*mDTWS03(kxioEb
z;e3-x>>c^}A&z!8_~=2!OBa;*NxN(568jDj<NTpk0rr~*UymGSrzfrJJ^t(viE`I*
zzq6*R%7nK;Sm7-YeE4vDq8sT2_6c@N?1QHYGR&WkmERJ-cyey8T7~68-BBUD)r!mO
zQ|IfriQ<pS;Nw3jYzl256vBk0zO$K9im&<afv6-*B`5{Mit)tgV8iiti2E<rp}|58
zZ&`L<iI#Z%-pAyD`bDUhmlHz=pGq!)9g;;Yv%|qh=@7v@Ni%_R9S^<a0v}=A<yE67
zXSo;wu$N`iBT@L80B|K0w2>{l;e%IUae^n`HE0vucGGNq0qpIY|1*Sk+b9}G?TYk8
zs=srU2FBcKGa7USvw^iBxtFt3*Szs@g)oEUf?OF#P$lRxNF=Hj6N24%bPn*Y2@r%*
zi~wd6(-iM#u74K*Q0oogXE?@fTD(#;N(;E`(qG(IoQPe1kV}RKu$YN&LFe{*|CSA~
z6c}azdYQ9=QT^KD<$rFRuDeM5F6Yxa{8|KVMtBLsC`sA^qGDg}P*EG0jpNr9j1n!H
z#g20h$GB=f91E<H_BZYJJeCz862GCUrD$_={p5l%;7XVXKW1NPx*~Ru19`vXwB#4}
zaAQRnG#oJFtG-6=J%Bku-?*_#Al&m4U*T-NBLx14V?q=VVd(_d+bI|_BfZl;tpg~H
zqn}OYZ~H(Fj2rNVa|^feB8a;xvHwg-pAyEoFQ8MA&t%OVtaL=ZgP(Mpt;NpOY(7g9
zEt%=5XA4$-N6c#TX0>CDhiMDAvY$DEkc99v*hB0<)MCC9u)Yh2p;+_JEX|3?9Q=Lq
zStNXqDvCfM?)g)Du#p%kW;a*R0!Qpryj>0?wZR5Kxm4fC@W%0{qFBkrLx^%#5Jm*!
zd%iKz3NsXKG$@5Bngp!8Saoybj}NdcR!nh|&0CIo;$=_Zm%fKkGS}wOC^fVF!ThYH
zku7(r27E0(9GtCE5rYgYTQRuPO=Qrsi-eLioy>^?jN}M$FgMp^zsQhGRwu@()Uq(y
zBI3(YCpo+N*Q)kc599`AK>F%kVJx>C2*k;AdKSPodGy{Pgyj78YM>UaI!$;jO@KO-
zUuUwn1$BMH4Igon-O>JWh<@_xH{oErt+=a(^nt?BXf1@LKTsjMe{E>uAGy7!XaWi`
z6o7fS@>6>lY5dX{pqndS!4UOyK9I|hTT%9mE6?W7T)5B-6g}hb6Ho`fNx@)Q#f=GU
zW3)&rfKKkEb+8bm1%N**UaC+E$dP$rM-VlIy~B?Tp-S4T0DeCM;7W*5oyqRD@?lq9
zbbd;Z)Ga_p?7IQ>iy)*I_`iFCcQI2-R{&7uR^;dLcr%4FD`&8`shOT|`rl3-UHr+6
zZ)Ma{3xz0O<*my`E?t5r*YE<6biq1caSSU_bis_upGI{6H94}xj6WMK2#YS|&~CT{
z2zwhN;4X9>OJIPNCGr0g`mU_PqdoUdF03-QfTU^L?!+_!I3EHg)km0gn7q{GK&M?V
z<^S(<Dq#|$8i$Mk@dIy*z{W+LEJ^+WtX0$z<j8PLXDwt6g=t@bn+^S(p`paN9cxv`
z+g4s*0&G`%z>I%~g&^|fCjR!VH|O3n9wGszCk%MtvVeU&7#}BA3FteA%Q#KED62^J
zvnHnC3z2kU@HMAL`<QwWJLX{Nh2w!8vNHgi-bt!0m;hFTEJg)ky!Ee{04$wSPJgV7
z4B0r*lHY=E*!)x-PoPA~F0j}o=@ES|^1o^g0&jY;8h(@Y3Bzw*9T$hwmaI<@K3jY?
zke%`J(AT)>ylC*%%lxmN^VsI}*4TqUv1s)4F4l)uGf<^b$qGi7c{l$meC<vjFRN?(
zwClhvU|&v3KTN2dtcf}~NpdXDY{!qjzy2ZC6i&u;b5^LeL?ibLYiv5)Wtn##`u7yY
zR{7pb*7x{U=lo0Sp}*<0O^YrRb&|X3&$6~9DTb*8C&rz$D>=_jL=jT!`Qgd>rDhP)
z7xhJSQdXiET*FYf9crApAO&CZYq|w=Goy?DwmrOt`F|{Z|1O~)_CUEQf6Km`-ovzi
zT!ng6vp6!pffQf}X|(_Z^*;b+UcrO$74Zw=kR(W-OXWXuQ4ng!5>Jn&D~pXO#;B<c
z^`o(jDqZEQ$K|E8`pFiCK&v7I#eusZBN!BhzIm|!$<X5GL#DyO!ZkqmSL>@Wtm`0L
z5h(oGw-qT#CSU{9>|Ic~PN@aJx_1CY0T9pIGFt|1pvg-ze*w-`q>qdN(ECo(`)@Jv
z_`gI<{EP0eFatE+0f<hASWn*%xqR93C7?~sB*4dxfac`GN@3AJGp&N<!u|>8x(qjy
z7`<$N<0k|mh4;Q`Lb`<z6~+*tKJ;7qAC-YVvfK<3EWK^KN9BJ@`-ZQ%-8pKLAC#Tu
zJd4B+*vnMCjv1TCovJT7dIt6IwBpKd?MfS;PVJM4%xrx$w)54klHGHEb2nXK&7-ce
z<fDg#ZkR!4Cb`dkh=eQIUNU%k&ov<`09N^V9K!{0>cMQ1d0d)eg)Pua)B>%<iAa^=
zHK``5##@D>_A_rx5o(dKK2!X3EbAUog%;+P8b7Q3_}J#0f8yWQD4~8aojGi`is3H&
z1R1lkVvGE_I}?Aw+RFU(!O8Z4T^o6ik5$LLjJVoNPRzeMcT~!lA3KJxBjc1jhlacE
zD~L-JnH_+sAX4bY$<ik(8`N0F7vRd&yFhEDMT36jJiB?roW~O=pFe>fIy>pV9{qpk
z)D1COq!vOAflTw`?6C!uK%u1sxJ9MvLIcwq+U!i(lZ9$4pqMj`oko=#8woan>|-qu
za!97Z=@)^zXFJrh$}wW4ruo43fw=@&{jBnpqew0!Kk_V6VSCfK=JVAm&qTj0uzZts
z9xw!${8-ruM|cbzn?lkdHMiB?7GVQ({|Q6r3xIx2fNuH(oHtKkMxMWx^1Z}7x#0bW
z*NCvQ%1Yf0d0<wTGM(gt<kHt5I=6m#pOC4KfXHS6S}1@{75-HS{|7Yle{Sg8W}5AV
ze`)yx(m`z!z>zk%WYOu?N;YWpCy%2QLaiA@|MNmU&-Q)S*yIAH>ow@rmsBfDbMu-3
zLfUdsJumlF&35a}l4}52q(lipO2)ia6yB-;{To!u>T?8Ke>xPZXh+=+U{gUNKk*(D
z#jJWEEO@!or8it3XozF-TFeJp;ZSUqv85=S>%#zEyAP@~^}%h^a%_Bgt>Htoq>Iq@
z>oZ+KwrP@pbtynsY_4`85_Rv?XNCYV13t6-uk;yk@bA7Z=owfI+KHhBw59--o^c!y
z8AF!(Y{BAq%ePuc)@zJ!m`1@c2xqdCQF6hL($|993fMYqGf$@wtq<J^*vo9|J+PQm
zU@@<-&s4hl61up5fbcc^i!q@3fa<HDG{xey4H6zj2wM6yCGF<*kv^@Epj2Deud+Wy
z?cKC8pR<lX$g;8Z%rx(fWwqJw=x`bPY8RtY$~)t&;qK!dLfB0*bZl;lO}k&yUe;I$
ztGc4-wlg}RWsP39MQKUul0kjtGMj<k($)<gOLdM-m2Lw=EwobWQAs02s|t@?N`kyl
zp1Gsrh(-JXAD?-EQ9}8Si}g;D_=*L02+wqRicGl-L4!Oe#6n{eH-z5pmO6sOIX^ky
zN_^JL-P=TjNyQCmmRr;+Dz$S9)c_6CGO!1Q9?H!x(urG-GFdZHQ0U9_`?FB!?%22@
zcRppjs7SM<$l`d{Z|Yb)&)xobtv#-erLQL)7Kih7_sJ!1{DmXf)*PhE5SXRmxJnOi
z`|WYo$T!4(p)Ci?*E|I_9yW3gu3TH{c-0OxevdwktLi*bY&$M`4G`ygrC{`JQp_k*
zS?tMGD4IVZ9gvqF^qVl!|7_bmaTohPJ4D)4><CF1+WaZK$oF}+&Ax7pDaDtE4%{wm
zm$2rDy}Kk+j<5w2IoDc*CNC*g<WGFy_*p8{vHvO3paDTy#C~~n-s){)+JfA4JDcRr
z`(FYww}OJTR%~Oow$WQ|_JlJ8*VL)Muo41>=1^&xaft{O`($sPT$)7j(KgL%LKp1j
zt5q$a*=%Ku7SP40hi@ah{GYby!mkvZ$OD4EC#C{8Dq_>z;<9Y{P0o-mP&(3`R?1%^
z*2K}Bu#%YePOT-6*?vN5pHfDXeY;z#GZ>#CH#%&Y(R1zf_Hub5YcsoYUA9iZ&~?PK
zcqd@u)JwJ$zX`CTw7HCZY9mVuBOz)_6t{lo7h$DlPtJdWh^h!^Rcp;tvzXfvwK2j8
zmu=7Kgyy&<uo{5X#P1lm?t$xQ=M9@)US0ceQp+H8+a$I8eSc3a3lY+TX@@xX*jtDP
z?5X-cBcj52nik28YGvymK>`tc>v|`B_fjv;$hFY%!zcN#Gg*UX&6k^0^JBLY4tu2+
zn>v-2!}s%Ukg#5~XQW+Cb6)%MT%`Fk5zEv;?<Kb8#?#bER+*9WPbZ>;*FympbN31&
z-8Y$MS;DjZg>!27kPHi*%k@|>?8YBb-w6-|7t(L|slRF4Q8A=8dhkdhwOOS;f8y;^
zBxukQJHI6PF-6tpG)Vn*EOSegS^M$*_p%s+^=DWvIQI}O3RB5`W_ps3#Ik+oJ=fBK
ze8<_>;=^cp+aS~1lya;(-U^F$`B*Biy31R`K3=MC{!Px}h^#Up=U+@j6;`h6xPa38
zr?I-&&v5QxS~3L6u--k7-NNQ^mS1UxN3W2w{0FxCtRiKQ=YXTgj?BslNTiY2FE^e<
z@r{%+NFDfuKDa8I_WawI`yYmJ1BYqvfY&(}d#k6)+1p_?<E!Hg;WEyd@{GQ*`l-G=
zy6ksPT(JAmxU+XN(a}xjHPndZmHeGkB&~fwV;HfhXrtH>Oy_qyXFaBSF)y(G9c{RF
z$V__umor?|EO(~<JDAjLCZs47V6WgmaRl4qg##^Jz|N;`kYkUm4+sgXVwz-LrJp@J
zr_~U*D^(ocGtSA+v|(NpGRIPOuPCI1{)2H7s07Le2J#Pjvtct=wr>Pmb!NK6K7rT6
zjq31XfKZARxq<sIUI_vYClhQELe5tketqdX_1!&`aoHA{O|NeEGZ57XB57wV7YbrQ
zcMD6Qf#4&MGjQ~J1*(-~Bro{Ju`Bb(?hH%tdAEcuUwwv8<I+j%YwF)6N)9XfxeM$r
zbA%R_aMa}VNns}#9ovAeo~%|C(Nz@{jo}lVOCnAu(m04je-oW<d(fsmb9r?kT5y6+
zWm)B1FvuD*dxL?Te}8dgH;ZHJ)%)^v!FDYcYh%*ymx1cY;0<&|sC?M_CzvdZ%TUA4
zC%;OFV`2=94ozoKzFZBS6_DwEgg3!HkFRqO^ZF4%XU&i;I2K}Mv2yMv?A%+yhU+%{
z6Bx?<&1{q4`ON%7qYcCnsU?qY{;yAER$#TjPxBRqY)F*_=6unBuqlYLMtJ2ab%pVr
zZ2Y#9#!L1Gi&6Xe?!#d9%t7;e;sfe=;$AkuUfQMT4pW}R5#a!yDo?N3!%t1m1^L+U
zzIxsx+O0bwAa#0v0}>YZlAS@sxhGJ=iHdT>n@-c4Sf$I9XR^mu0>89Cfi1X|8+Z)_
zualOW%sXPE@Ab_m*hsz336LOt-SgUg$xUcm{x2NJ2Yj>wIAd>pHY2oIP6JzyA^a?X
zA4O-q9kXx!TKwca7wLjEV-0(#o^N-T$;FN0Io3C+`E#`l8b59G6&>i%DaDEBr+t6)
zw&a=U?H478(){I{Ux%YXgZVFHE%PIEM#smn4bq$bfm6dam~IA*g+F-~(Y$>q2_)Y;
zdf-^HQkX^+r*Ku5Zh!)3D9#nE_n=pV(!vFpG8Mf7OCK`r%P9{EC~~|#lg1+fgIdpx
zg@%VZF6m)kMCT59M`L1rV_P3@gEM`FR&1i@AI=(-TDtoPjAhkbe&@<dl-pE#2YW$j
zf4o7qP;2%I;|L9xV$fLfi=KD0TMl3Ox~0T%u#gn%BgC0_#+T+qH<<Oag#Qt3hzEUe
zo(b_Ka|v*3AwxOx;20|pb}f+(l(#bSj%M4W1KljbNdEC7%S!wYqC8Q&s}EZD*M+)}
zbg8G8rwQWx8M2y=t?ta#qcuF+KH{FgdaKL9vkd$<gWJgLxdc0M+V0`=s*+YMC!CK^
z2kMbwm%n9Bc3VDl?j&iD`D*beY@ADOagzkFT)2W0b;Xe(3$gMr9tWI(tB%=Tn7ut2
zlwQX$`2;Dt@9;qB84_dEq|_u^T5m$Atl1Q|<0d(XuNjeFvg<o0c-U~0&MpwUbA~cp
z)^Cx1S4n^LW<xX^_rtsuop{>xS2L`@wj(Eq!g}}hh4XR|!ahlBSBqhsXQq=?AAm~L
zf-~8TQH*+Bxq8a?l}8La1~Bt+MFI?VDYAW%H&-dygK_;2gYf4%+S+#+>1_hWUYOeU
zFzSgr&ixfCOoOMvgE}5gY3Wf{rjv3^-t{O7H9Q~e$u&^Eu@TvPt-U6KL0C0wkkdrS
zKKsDA!*u>v{#&)oHuj{mbyr@mqkNe0#vMf-z&=!Mrvxse%11aO<<0H?FzpriY*L~A
Y#<jU3kvi{A|C<J`WBf<OO~m8>1_sCwOaK4?

diff --git a/reference/Rplot006.png b/reference/Rplot006.png
index 3c448326899e6b3e575a08942d9eb34fccb9175d..960f86894c6e4804ca6c0c238b0ad7c7ecfb0236 100644
GIT binary patch
literal 13044
zcmc(G2UL??w`M}90wP6Fs!IEis`QQ^V5mx$j*8UKJ0SsyqDWDy)JT^O(p!k2pdtjM
z_aM?+kP>?4<@^7+Gi%nr?yQ-+?!BxO)|)q{?EUO#Kl_}MSN9FH=`XNf0D(aC(0g}{
zKp-&w{7Fp-TnQV(Bm-}hk94)~0`I`zp+*Z5c%$*U_s|yvqGdXNf`3jUPC%e*An4sY
zCPA4S)4`cm{%xdf^QW+tq)iq}nTO){$7@e+_J0(jHoa6=rY>G8a`VCsGB%ce;g>Ie
zh1_}GA!?$QFJg}Rco{q{sy-L(C8VqCvZ7v8o8=<Vu8I-tOMCO=_Mo1@)5Sfw(w}#~
zGZQ^kmh=o}4zu~G_@D{@;YUfPWCSbz(^!?Nc4yzpBdh5!Tf^e|ko=FO&}I;H+6*$J
z-B7kZUr{mnzdq3gK5?w`{7G@|X6&rk@F)zTN5!h$;1<s1Qz#F5M<E5F4KIzjB|oTi
zZ;bCq1ApS&+z?(9QH|Zh`r!HPb+Q%q`Q6RJc-}FbkX;#me)xex48#iF3HM|TLSXb8
z3Pd8UBg5Hp>np%US$d>8=ZR3C7bH1$g#Yfr>asU&6=l%X1C=U-;D&}py(soowZm-e
zi|G_em{3oPVvlBm$ur81D7d5qityZ*&WlDuE`4!Qjq)9h6q(gs+(TM-cDFV00YA5J
z{cy&CdAh13!W>4^-QuKa_T>v3uHjuqb?35}3862Bc`_caSEp3=Es?MEiE2{oQ(_{K
zQ%m%q?AP3>Oc)SH*XmU!`cjCQW@kX}PNo9B(fLGIzA{mf2UK~t(;%9@g^xWz+uZ^f
z)zHEX=;{l78lKOk;i88GR<yu`#^a(fLTR2udpvy)C4s)$;dP#a`R5mPcRN)$l(|_#
zW2>uIJmOy1Sa-lbPmb}+oQNqf;QLbUZ0;Z^lvrErbPk>>vny}CT;3MU?S36y%ZzR~
zNKJVJhO4_<cz{xyTXk*3jN-TTi!koss`UQ6W5G89sLzZjwJ`;mjg0DJLv18O-{4|T
z^>NP*UC&*lTVDJ2=sWG>#nJVrtMUFa%&73M=1YnEN)0uRZ`N4Uz0MfC*f(~JqjmGz
z?c&d}uW)3;oH*1gkMuiyEDTz5_%R06={hzuHbA%ISFx)-mNdt^71!5k$;Y@FY2@C-
z@zkb~5q;|xn$U6dJ*R{?Rqi`uyW^MW4Z(@8Tg_AoM$(4IZ-1>5ISK_;*|52_q*m#j
z@l;)wkY-m=K2k(g6(8PJZ<I9(S?>Ch>arP;Um&(sA;wm`PG`U8UkMguRym0R)#S~g
zuetyHF~Jw0+LA`BxZQfD`k2_T^^~LX%cdu13u#+SslEU9*F9dmB8vOO82i-bgD*WH
zWBJVH0Y^M|>uzU#&Z*=QcL&=``j&pg{_DPwY6rzdy}{&#>EwkQ$ywksOxY_hDZ)MV
zttE&$j;dp^>oO|O8GIJ$HM3&T5pf5Ww4{B_>@Eyqtr;5c`Ii?<&ggL3Q*}dnypnpQ
zr|=)o8@Tgn4r`57hDcvuKBJ5goAdvOxOzG*a}?_0KBfAI7%1?go7mF7-!?F-L5;SV
zgitN$8L$4?T=jYTy$@t&H=-wZdEo-yrsF}CG>YNZ`pRuK=4bAm&PVcCI(uJ*eWlSa
zM4AlgRIn%WeyD*U>I*Y}y|?91Us0Y+9DnAo!8D_kI~8<ZH@yU}H)iMU>VLrv&dlo%
za;INf4CPV(psFL+zuL?+`TSDZC?xdK{ucK=x%(pK|BS7_`Nn2(Zr{lNuYkM0(q%=%
zw&?SVd&+`8x7p%$9nj<gemhN6{oAAUIxa0WOMat*G)0yRZb))3KZe$)o)5HL+H(tU
zE<WgAjn+~)W8p>Ry$~*baaR3phh+l!rI<o4j}|wbM$k2!-gfGEfV25WBYmj6terZf
zfS2%`@_2%;E~7zKH2T+&TK7(~HY37yHw^Efki7+`^n$H>M-vj?y{6XobSml%n`Tu&
z2;E~8GpZ&(VCF&+LwPzhZ)Cr86_tYJ%(>BM2Qp|IwfEmUD0tt<CT!jL&F|z^G-g%H
z-a-}~N;{`Cn%$oWTRKucRHP~XaFKfJ+w4->Qz<Uo9gp{?ySWM-^50stHYyo7nca?s
z@E#pF6Lq=SgNYBZcThW@=Mi`0&~l?sv7eWvRiMZ6Kj~58ENhGi1>dJ{U1;g44rKAV
z!M5gYC}sQP9<K>x<0FoV&>NkHUg9}2>}SFqQNOIP`4(1Am&E)C5_1=%h44<;HPnv1
z_>EnyU#eFd!}{D<T!n3yQhjZS786L-AhNm0+o9vFs+UwG=5bU9HtvWEy-3W8;*NKR
zX^Kyl-m-ihD3rMZyK8SU@0sVae+_OSe(mIn=Ey$Qj;4nf@$GXON|;Xc)uLp}^PHi2
z&sWMz2_NbyuxG)mxY5NpYz<a@Li`bUZnSv9XClhW;18*byBo<}%hGb`i~*;G3q$XV
zDo!%>A<yWm?4;c3uUFNWn?w`iu4is#R=x<v@(wh%GxjOJAn@L7=RG;-7DkEFda}N&
zzt3@LhN|Esr7>USy#+&%oP(rIG$D_Q*w3xD)Lqyfv5yT&>(6t(;r_jXA6`njnv?qR
zs>9BF9IA(Mgi)oIA=>p&c*CKd*2~#XwWau$omD4IyMR9@7X)7VVWUfFC+o&;ia~U*
z)5u=+p^y~muu%M|a>s-2adBo(&CV#$;3J$Jn(*buv75o&y-GfEsHm5n6iI_x`Aebm
zLGJ*8<$8D*Bj(NQ$d~%HLqc6p&EQO`q=;QcCk-j}6G~jkP}5(E=`65VX@fzKJZ#_p
zSI^BB-Fyp%17DQ5&!P1Ncv98gT*MebnOb!q`1;(R7vAO%;Kp9`bE!W*rn*c)4j#Fm
zh}IJ8eTzhgC{d09msji7!KG6d!D4xjw?t<YU!wbbB<CP)Y5lYuTGYL3G{=pLjQhbb
z=oqOkr3$wmtX}zqb%W;~M?d0v#QNHT8?Acffv;aH6HX34`k>_@Jxc$RFts^1`{>Hl
z5}HKHSH2eaE$!^Ha}b>LyAUNVI!;UTM7F8j@ZhHp*IX_c)xb<APHZ%m`qN%JD*NI7
zL>Cnk=Do-b>t~)9uHV(ZB;$rrqkh|+8=wOVy|*qOi|Va@P17UNVE(SM*N}OCsp4gd
zM!=L7s?;d<WgWUMW*^;*BB*>9D_wWwAN_f&jGfwC^;y5~4`O>6zxAq@*c?gr+5R*r
zo~gdoTKyn*<jvCI;n1a&@jz!}yJ*3@r@g28J0g6L)fF<4`Zh!eVzE$5?@%+n!*4(e
z?ugn4;U!TFg-B2o^GwELnw%X4hZ-mPoT6h-)Xbz{-gX_Tx4Uw&7F{Vyttx#e-+>do
z82zG`e>ZyGd~}>E=w-j}WNaV9*-a@D=}xHHNnl^&?A=aPW)2y#kZJ3yc&Z0kv$3u?
z<r{D}{Mj->)S>1!Rt;~An(^OXRdb`hBO{#t)JmN}N-<0b){T}-CTP0ycKm6R1?DhO
z#t;8=k5Q%=7rW@Ywv1>!EtA2MoEbjBGmxp5F8Z-^*PT*yq{>kr+ZhU2(+g=@2t+~V
zY1(#7QEF3f36ceqj52#qi>6<mSn2pUhL)@Hp%5db*zE@#8Q?9=&K-TL5A@V_wr8k(
z#PvX5yZv7~OZ}Ki+2f2)vJc?Q>s}p*swkS{v;A0oU$N^V=xcDb;k$!k*LGQom_x|M
z_50ZRy;aw^s*jssU)HX2)@AtnnCJ%Zcrnj)B8766Ql^Kl*il|pudFQHvHRhO;(od>
z{V{d#*m(EAUmYvWC^K8Z?+(2Oc48!Z=8UMJqLXI4C}PP`=dC7n5;L~z)Q^~ZZZsLE
z>ZI85=U8}-C2gwo!h)Ocr8!!xj=Ev1O8UM?$J_7Q`}10iadLgc>>n?Hfad;nvtyfb
z+ji{*c4MHioBFu0XkeQuMuX<~l^cx}UkWpV=VUC?@&fGH%&nq&)$T4XH48Hw6DElz
zy}qANVf$6xh-c_tces$LheUD-d;Bv@{tlF{m{<0Wn@#z3ch(J@*gZhJ{(G`nXK;Mj
z<|s)|z?ZtfhR!BoNL9q3z^EoMXs)?WaK+g5RyaR&gQ<sHyz3g&h>Xr2n!sca(oIML
zK`avT$**8nO|wHcn?7}O1x|fFs9IcHoM_vhSR>@SCX{Gm_IUgJ3z~Nu^4^;|Zeor%
zANVf*xcb&}>ijESKl7ow^PQOey2`M{c;v}^Ip{T;cm-O@<)@JEQs3!AW8*<8;C`10
zm!hon`9WN^a_HD|Hrs=5QQRTRtl{4h1(A!t6Acl6-e_D5ZYWwT7OrUg6<yvP&(nS&
zjy&vHe#I<^k@Wuc*-`m0q!M$qie)yCo0A-07~rU_t<9I2h40XcH!tU|ZMKun%Afvt
z=Z*X+?XMj$J{!8#){t^rRa8{8Sh%v)C&N$SG-ptAZEbDPDLZ&k)y>UKa(ixkk2lMp
z=%Nw<i|fr+K9<yYL6=5qnLXVs0Y)b7>guYqWMy6wrX2CTQaITjB>Z4jo)lxOT5mJY
z8c8|qe{e0B*k&qCJX;wl;tBaZj&_VH7+e`r+-j{E`1+RD>T#zlC{AJZgA-sGo~_%k
ziCS$RJD^9>np9+ceZ7f5VsZM;Y>`3M(b0&NXV}V{>l&<R-#+=&{oOTK(?UvVi17iL
zl$6wyMI0K*h=mGfNr|t7Gz(+ab<@y_n~jfmk!L3*o(!`ak9pV|ma7Ggm<0`#9(SN<
zdTKg<t##MB49aAyBG0sFSw#;1L|+yLNP##tEohj1a*f5-yd?M^6T=HQ^WQYp*a$9y
zwa*Z7Q{MMa0=kA^lq31Kxn|ISA8kB4>18v~m08>K-QsDAft##No!xO<Ek|h5$<jr@
z#9S(Rg$7v)-bcGDkFW1a)sH=TT@wiSTzqt7WG1O?czAgFO%`IJ)`g?HyEjd;XeAtS
zQI6ccE9NT4@cA7EMaJhS`EDTj=<`dSJ^&>a)h_WWN6V2ZVm2Wo1*x_nHX0h8v4<gw
z=U3kxxQW}gHge<fkqjyys;jpf9(TnwEq|io;Y>Mh4H6xnoNDr=+Gr!r7)RGl4+np}
z*uFPnC9AZOpBO;Zc=D&G0kfR@I^d<~7BrHQ{%G$dBQGLoK2|pFl`4b%RHJuMg=Jky
zVL!a>XtfkF@6YBct2jGeU!<4zr&w34>4{?a<9OwO%EH1zyAfdYeuoRGo>`uUEG2Vi
z$6GwMR#u_Lz+h_u=yInWD?Cqu!e@T%+;>L!l(!GFy2+mXbcpovT=V=0)m6yalz_oc
zodKkANk0AY%%Sr|`Ly4l{-_>W<@D3K-{DBI`Wm!0M%UKdXEd=d#kgrSd8P|wRyi;-
zlA=>!lm?%7b#rrZb35)o4(<_cu$K0iYILHy$Qkq)2HVglPWj?)fl{q~z9p(2ely&s
zI#@A8HV-EW8E<AuI`ts|u=2_RA>?FfX&GnP60mV=Jix5N`XTbWP?2?-K~enFlSKVR
z(39I~>3#}XN1K7|ijM1J)#6Wzrk&7X9?+seZNTe$#Pc@Hz7&c|DS7Oz4%bm}2jP)L
zK-=dKcnBISGUPelpY-%Rm<ip=g7->~o}7#U78ITJt*OfgZflqhnC#A7urMy$*!-cf
zPf9$!A4AOcXg}Q_s04`U-E&&D?6ciLL%X1v;3fT7Rq+rHnA1-3F-dgDBVZygUL^$G
z3k+eKg3X%nv%F!ZdCnK7+;F;9*^bas$Wr;UUV}pv^#A#0-ibKgXyD5-;Asll{xxrh
zJl!i#&&Y7oeJHRU+>;dr-x~F2v{S_po{Ni20TW!@Y}vvX?@tHLiuYy8`$qoLA2fb2
zn{N%-Pg1q{NB-fBYG4B8)>ZbO-ofXyLspA(6xXXd-445eZ-ya%AikcH(;!#|@T@cp
z1}g^UGh!FIQAcI%^@(EpvO;2uCv2uQcrBh&-iKdJU%$7#E6cm<Dv#<~S<TanoN@%a
z<H7SLcmbF^JvmuYC4FZD28m?Ns2?MgwV!Ty^2*Ev%@aXJ#U>os`FK^8MP0k2pPl;p
z`YY!=X4w|9hlk^0M=!vadvr1NEs_jhexysg4R&*fuD{9Ah_Y=THnXx(^qgt687X^c
z>^mDq<VxEBx9$GaO>Dkx_k5yv-<~J<_uEKr<jM9nuXfxC2%i(hJ@NZsKE7QRbDZ1%
zN64g8ekrqN5TGy*b^yw2K<A`YM1WJ;E^2CT9suI$>^Uw{jsc@G6lDcW6zisnl}C20
z>0tKAo9ioBEDhh^Ueob>3@ROUc6R<6!!Er#y-o$4ij|#d+%d=eNnTQL%PTBgw7c#*
z^3Z8|=MaZPeDC7$JP9~~NRO77mbyOe%WN7&(J-@iMd8q@$h>YI<VjxB@iu_H_N##5
zwXFe<FNK}1*`bZxC)7KA7h%6{b#v|*!N(4^=h=R|yY-lul9DoXN}N?~&B<{vb=t9Y
zowUh{>RWGG%J$r-8?|i^v#MVo^HT_WB9JIwR$W~U15ldr_7pqo(Xzq4vI<{t3&dk1
zU?85;Wo@3&g=BLvv<z(G%(Hb{YaYm$ha-EVcI}4sOO|>$>|!nJALWJ3%H({$L|@iG
z!~cBS8+8Qib#UYj@NLZLI1W*-sgPyRcDg@FFKk}H+5F^NLdah*n^%>B_a~Z-oB{eS
z7jBECau9l;ufNu=c$lxPH9F)sRXa8DvHocftXs4%>r4;`{jBqxCs+Xl6Ov2q=hT#S
zi{Hx6oR*FH$zz+~jl4Jo*Rz!(^x3v5=@2(7Dl`52TOz}>drj{mR}emeYc+VKAXVV(
zbPK6^EAVL9>eK;XO-uN=W2()Ab34|YbN}|Z6Z&*FADXB_;o!RnM7lEJJkc-gt_)^S
z(X;zaS2=XfVD=~6Dn-2O6=9)3su&G)<j&1rcSzGK6iED*U#Oq4pS&(G<{7qTrOoaA
znUVI~p-*;~2ih&_T!;G^d9_Yv%O2KX(3M1a|J9)eovcduhL~mTvUNB>oT8=W<-JqE
zOIhvm%kLxOkaN%35dM>}hBg(S-(T$->g#1}LRJdc&I5_|f=DXEu-AYl+lJTn7dDbM
z0FEBO8$Kk!i~DCltfwnj35+i^0|8RjypUq$A##X@#9X=csP_+>?f2H*a@yG*u7;;8
z$923~G0weQ**2<(!yY@8Bfw?*zD`;GBZ2H39Oj%M%Q+41e<yMu8==~4HAjFjK8$XC
z-i+20*a>dE5_tp2%+6x~*BFEWSp=ExC;D73OTqu=WpnH8Ao$=4ptp{{oX5?Gs|N?Z
zUxPsz4?w<Ed{TG=C!nA1cd$NQgGBprO%HR7B>Pv%CF>}U9X?rb0+re|1E|q9OuM}h
zHEI($9jwh0wmS(O<uxruR8?HT0%}G#!H16(%Z=jy7n*RlVJCbR8(GB%-DvhRsQr5h
zWwpdrfgwoB>q?cP1d|1s66F-x?>6!*K4_b19Vcp!23RIl#<SzC@uO<W1SJWfrk{M!
z)fQWjjHrYMFP`UenPx&h;_<Ei`}WqN+yw&A)yE|ZNtvIpZ?VkSn;iw;jIfkgh6wG5
zhp$Wpp+-EWwD64n!CsJCZhJ45!UV@g0ZsUxn;!S9kDZS08mcNIn;#lxBuz<Zmb-Eg
z65$;gu@-J;QkK4Y%XujLC~D2kbwt=avK$7}Wi9uZuCd;L8X*U*5Yd0U@I-#SKtV6_
z2ybKRB{rgVWW5!#ts41G%A?aqx^bxu*H+`~@79!_n2#v3?1OCnpyxM81y5X<x;;=n
zTLMkq8X1+zx@S~is>^V|63ydmYFDhz2Q5Llu7K?*q?j<5ez!mqhKfv#8&4a*Hueac
zJ?Dd7zAvhb?~Bt@skmW!FTv#cFcWrm`N_#{w8?d-(Q^}Bz#BuASFj0u{8&&5pAeW5
zFg=X~pxbrA!6N^{LI2TP)ogxJd@f_)q+7ojLp}rEgq)F==~syXCa$my!A?Rd!7ZR(
zY*Dx-mJzE;JqHW{{Q#K3EU1N1{R+MaJB)pTm&7JxY4~d;sjpbsPid(=o&IjZ$eU{=
z-wPQ@YSM>(;{dr^F3PY$biYqMjW0<7acdt`^`<j$UYaKH;I(vU@if>uiY^#fX?&W@
zbZR*wR#H`^)g|L7-NZ_MBD5`d58EydQ{kl_P0mw>4(AnCpP}w#cpROA^Rz0&v_oO#
z<<h;CZD%Lx#1!~P&J9zYI&#8R#A6pyl`>tUVzcU{Ak620&3KPPPOY(qGVcC2I?`v4
zPDb)5M@Lf%+OAf%_l#zT6j%nly?3)Hy?LUV3K{bCtFi!{khX7m&#Y6Q{47jF+bY>a
z6bzRkfCy{L+Z@>Z<ues*5?^!zUvUxOHE~D)g%;yQI;$%jf#x?Z18$Ej;SaB2<+lmv
zgC^ruWd6@m>%Yvw|A0-2P`Dtd2$Z22&j9uSW5|a1O_TVb$~l%~2Xc7J_cV=M2e-Y*
z2)g!6UI?E8Xo3l1_-Bn0+ZeqC<;ewS0o1k*{ubU8pUX6nM$TzzKP7|pU9)y!xFYl3
z;}?FSSv<9-*Axb85Vsumag(1+x@q46=7<s5V%w}MuQ3;Yi12?nDUutojMrG@U@uCl
z>8;}_JDZ+ZT%`IwUYKAm3RYsbV4NmhJ8Drlnk0+)t2%4x@y72XlOeNVm-ma<N_WY{
z<!#<kaoteQa_inh9BI}b3o`TEseX{SFX#GMu&e0%fJI?Jaw_uVwYS<AvPO(Ib|8bt
z_j3}MBUVf|w70UgE2Cis;|!Ce^x`oF94YA~;H50_yx;g#M1pyY=fL;XhDe^5c%Ym8
z@8;xjUzMLyZ@8i^-qf{<bS-tnJsa|m<%szq751d&Be|EA?(Ny8(a9jXHCVIv!wH>A
z>xU@;CSfHDiAN&#hInavX8S<A`g{5VPkhF=WC5tr;W<Nu0Sm(3Eo2&b-muG+_Y(5C
z0X$iM{g_YthOb!Aq({IRns9XapN05;H9Gji<EdnHnyH})HwyqrjADDRb`dx*BtcX=
zAwSzx6ig>UCI@*(CIxAy2%s>6vI4on@Plr1_`5oQv<I-?uus&fJ?X3|Pd=bzE>iZ1
zNO-V#5t~zsQR|AXYNzF$Yis7orJoAQ%PZSkn*HN_>dYy+E?%`J5o2YpSkyc2_T>(*
zIBqq#TUP9wuuhIhODoSv_}v>n!vO(kH{Sf{i_C(nVL@>rD9(yzigQ|qGEQhaIPh)*
z{31lFBGg6a-eB=$%vG<hdJYDF>=kGB{Ct}xN|+$~*;NmE^i|WO3a#lkPsSBzZTAtn
zP3gwLWwJgU-Gf$H0qQ^}xJ<-;>&Ru{@57loCi)rgX@hAG?)=mQ_}Kv9=U6Bkuw24#
zsta;T5K~LY*8wOjg|FD|d^P1ijg@Hz%NXb=jjA0y_w?j}EeeJ&WI+&nGe1%u_BHk*
zb{@N_Y@Nyn4YRBUVb~882%vtl7>EkRx<y1YkZlK}Hy~#$g!_J~T>6T%2WAYTd;oEq
zi-fO5)Gwb&VyW%bq^uM8$|E0Tyx)qQZod)~S0!|m%UurO67k*wq{`HS6rTf?fw3Lj
zA9yL;$yynw(PW%#vB&gY9B)=4Mw9u37{AEeu}jzql2>NNfM&_Hw26ik29y{EID_0R
zb^!F~f$?Ch(9OXeC5FZu%}B8-u6|Bs6_x`*LJ!l#IP1In_ER3%$?3AK!CK^<zoO^}
zRQ8TnCx@DkMI>5dHtN8#5V!ARh50JEH6RaR2_;kepuje2cfB$4whPX&vAWDMVW~GX
z=WN3o+_+n8=RGlPorRBEj!&#5ZIKO!1DZW{l-VNY8J2;MwJM2|wC&A<AAIVF8COX`
zq!qTAQ1+l=YnaZeq5>^m;pQOZOu>tdu!S1TtPpTV^j!-1oSHh;*E1lBPR4%SWEp*<
zQ^#F*NI4zsYKs$v+3qaoE;zawF5Gf%YaZ_AZgw1>2*p=!l_8Fv6TgpS=VJ<LKnCXd
z7lPR3UR0&Y9}8P`Ga>%`2}P*^xWWC!iX}a)zWGcZ&|Et)R80FBO<Q^iLxPuS@mppk
zFFDKorl`*I?BKY-GJSYtL@zbfy=e-O<&|8(vun{=RIS2<3v;^}PSjKqy%Z`B{^{|(
za3lph^HK+>0U}El2vXehvH@`8@+AbT2&!D53x$joE`5K?SBwPu4+Lp1&>cVeHw+k(
zr|;5&Kuj;s&jLWWDG?wg+I97V;IGQU_y379Tgr91nCsTG2g>#;w#fia{LS2%cjZx4
zVH`m!M{Wl?2_}>_O`JJ=(3^>mz;p}kt8e+BxglcOe?g7fjYLy<lYo#ZPU&IP0R#@q
zB$f5b-~W2D(Bd<~i{(4xKwW#*|3JFT9ULeCcQt@x&b*q=0h%y!r<$A41rOr!;;3@L
zCG$d!NcTm;JwXNq^FrE!Od(wfd@fupljLD41Sh-_UdY}Y?{81a7S~P4$CO)uD#--E
z9Aq4z*Wnb&f9U|%Dr$DZ!85NsfZVO8LxbOo_~bXmc4CH0`e)0spr@Kd)eEiE>ma4R
zC__VF$<+qvu#ysUQ3+IgsqgfZrRp)oDmx9Q+Oq#FZL3wpC@{H4(OEBch44Ac2!-?j
zRzf-Vhxy^LQ*UermfT)Rf?=$f%GNj`|1--PcytgU-{BO_sOBrxIwkXJn#4$e;s=(u
zrSP}$gUW<vfc<kVK(ibz$Xf(X2jg8$WlP3&=ol_@kF(1B6;AnzTn)DI0d{)rek!o*
zg!uZV+ii92MQUkVeVv<?Wvb{bvxRMi%&;n8THNQ&SzS4h8>p%(%Jr(@*wCrUhO#HM
zG{)!=$KUkHyKa>-6hB-!TRUE%+UA$%QzuIdO>M9FJ-(D75k9PWNG6x;bOmJ(S7k>F
z`Eredy0wW;i!sMcbM_KI!is@|TVM1McUUj1Y$~*UZ6r}z_MC(O6S!#yivJqiD#bpM
z;xwTn0S7d?0S09IcBhe^2m^@K>`NcyMOATAJ=61h2}9`LYhWh^TqPBTTFJV}2f#Vc
z9|}SSiU6ZHqmuiWdoHLLe$(RbT&`3H7^<))3{c3$RR2-&`+t?x!`xWf#B<KizMtv`
zek&X?q0}i0LV)ulDotx|Kodgl15)!A79Fnon@*K0=#quiBSnpfUfP&RPUjUZm{AiQ
zL`K**!xIEZ-@^P0A5uUwEC-Ad+>KW(nCT564FNe>ToE|7D-F^F>p<G1k>PjrBgZoa
zlk|$NLoXu=5IG{Q+X=(|$WWJW<vVN$FC+PhM3aX=PT~O-F_QVo5V-K!9<`E+%?rL)
zBtBXVLmls%+Zhwf6T9h8k&5v*bwhEO18(iG#{ppv*%M8?hXXE+>|i&s0ay_%0~^3G
zCV-Z2l$v{A#zAxEoO6t0!I^cJ3^f4ecraW~V+k1h6Oiow^Xrg*?FtiPP(0;6#f!V~
zffRjI`vxV~0Gpr7`@4V`osD3N_=fezs^gciYza5@{->9CK=a|FG|F><;q)|MxS*FL
zAqq%1Y;tATM$w3(k-GcEs&1SrCmBP-8xJt7l4;Ug!1<J*COFL1Mw*T%<W5P2!{|rp
zchH9Nhr2TmQMe#YK*|S_FKQCm$Y9u(>TYHo_a&%3BEp-BY-N-6FPeMa9T!R7Bkcu7
z3oagWkw}-YwR%O*&!CE%#p&rtp1@BJt&&RH4g+T!d_F1HoY6uWBVB3ms$`GD8}hpC
zsBRCOhS+<&+K@61(wt$u0u({~6l<~5)Zde^^cqo56wo@CQ%hVp<O1}@(@X7;URLAm
zYZ@hvJOp`c>Z5ohYYXxUA@+L;Kwh|#6mEhd){&xXny%KYiWM-Hb=_|G>sx<^pC>i2
z;d8|K-y|`G!l}qwKpHzSlPw<$fRL{NjM@N6fwYs&P-5Onp3Ov?0~&<^&{i0_chq{I
z7Z61<b8s==>+=e0h~Gx-i6`E7;8YsBja>k$&Tlr(OZNC5Wb<0!z`z<6pk6HjgzJM2
z%q%}}Fp8j$KgRm2!Cq}lF;4%Hr@JzK%ES-7iFO?)54*@SvqkHrLby3>T*L=;d?5O1
zU&-r1gf|;R|L>&<ZlD~YtE&Inn0&buAe##x3eVNv?0;en{;#qBzmZ!Te>j8T`QG36
z;s$a8{oi_2ei*RHZ<hD<Uk{F$Cda|=EbOPc!-H*vfDD&y1cY^IxK;<-GkAkhIc3V_
z#&YtX3&IZ*@;6IUxFxXhuVY$TKg-z0dK}h*d0R|?RIQv3)cftgQiS*A;`3=2r-071
z1m}wY83R-W`IcnB79rxxe<K&1W8jA~Ucx@mp0A2Lh^~?19oim{ILS5u#8ttq<YiRW
zkWAVW_77CqR090w>3q-ybHEO6;aL%~J}*?M^{BWh>x=y!0Nj=Y#2<Y`;Dwk_S$4bV
z$OuW=7!Jx4%xiye)g#!^DGgES*eozR1DB98qV-<>xKTRs;X$m^+2JO3B0a^Yb~gRn
zP=)?ZfO~&>yC|$eXh})Ldhn;i+P4Y4$&BOPbjd;iO<?K5({@q@WWmZ&dooIT*Z!xF
z6iRIKsb#2=860sK?Mf(cGut{zQ|zgaVHJHiO$~n&)*8|~K|w<7=h1R-xLNfKAar$`
zF?IaR=qOVL)#|FkA3OcP38EC2(4Dl(EXgZhlk!f1LYf^U5>IcrzZf%_(yF|JG)v73
zyPbdAZ4`5rr}pW$pLIC+o|U7OR(Vf~EE%apc6#Dye~RbiAj`yNdcvm`?E-_{YbcyY
z$M?QQ2PxE?6p%zGmC9_IKFXgp!Zs!X(TA%Ilu6~Mi^-61Vokhp+K&WMhRoxE)~gNW
zLOrzkldh9KXSkcw{8&$#<A@rbbs>8QJ{9XoGYk}oXft5-jzBL2DSLG$17W*6&ktRd
zG=j3d>9)5AT}RDsJ+b_EceMZQjA;JMN|c(e-?3}<wrH@2pm|yIPnL|R>sTaXh1Q<A
zy|tsR@VFdaOg$?QJlWmlzpq+C`DHcAD{S43hOG?AGS-stCHX^5aAQK;+8t?IskWNn
zW%@PW>c3x|w)SSKR7yKA7cvLFN!4ME?A>vxgQACvb2Rw7>Khr5*AY3%qNT=lSYiaD
z8odO!1#MZXq>T_Mk1xrHBpVS+lS)4wLzt5){OHJP`d!JILhl3Ig<p6tj0KIE7+LCD
z%#kg_6<|h7{lm=242pJSJA?2m7lwY?H0?-aR{a_I{KDn}r}?+sW)~U4cBVtYNj$LM
zel(AuUAN1zY!(jWuDDSKX@gdiH0mmG566R-%h!B!h#{VqXhqY(Lq1FGBE}g)o94dq
z+gJ3ukQTxFy5>?KMMx#T%{^IvGZH0=Azx6~?7`^e^r$p7NiUwN#|5ufbNkL1+8n~-
za2lT0=+Mqk8`JkSo{u3y82M86-x*P<5qZ=Zkuqc{pa%2Cii&%Tm|N&9Cu`4xF6**0
zV``pvSMhIjScf&gEP~Z9>4D4`RqRV2IPLUvj4Z)-`mIKmjAqt==Ec&K@!9^DB)AT)
zt*AFUi{oFT7&6=<gu^LbnVC#6giB-N6U6c}qK8Rt@8d36&K88oE(PqXI`eXZc7^eS
z$u~=0D`Z3g?pXp}KdKN@h#})wu*z$bSX`o5E(a?aT9C7L+r?fOj{_PU`-0;A%dlwv
zY5h!Y(vc+g23`>R`@-<>Wt&5uTE-dk;liZg5Bqyf{YtxqdrcFwYmSZ}V&*Mu3RV)z
z_LH6p97(+uZwNUC1qxa|KrAt(Y}4%a5k$?9TwZkdd6Z{Ba*1AE`qC@z+y;E>iF#l~
za1j~N<Rg|T>5obY(C(O$$??&Y)y!H6QxtQbcF)}gR{V0NOP@d)%W%n<Qj9?BVMfF(
zV;^ss41~tNXe9`-h!{99I@5-(mLbBS*cz06bWKF(P3y-_I%!dD5%Q?8b|SdNtp2k>
z@@<Cu(`&x}uyEhZ+Au~%7br~rKOV#O7rg8lY8APz3_vz?jD{zf&yPLFlWBvB?+P2$
z6;s&8ouy35;iHuMEBH+7BCx^O5L7?cMI}nkgeMP56pq1cyZ0xB>{TS*M@^*W+s@y^
zhgNrMgmX|U|1JvOuJ#t!oUf^;La>FxIr_=U$TvY+Y{Anu5li9Eu?)^zu*+`qC(hQJ
z8z&ZFQJNcK6nzD4fg~mgxn?^^E46i+q-Xr%P>}AB0X*HEBLjl#<_;V|R6MFv-zIgc
z;V;-TN<<Nm;lFy8K=_ZD>;_<iKI6&CaGKy%QO83+8G0-(T=`FH1>YV=WOzn+?BmXC
zia1{KU#utw9DSa5W&f@4Ku`s4(1X58b`H|?#y4C`-OyPeXVlb{Lt0JXh=X{+OV$BH
z2@Ygb7gH4Dc%!YgVVk@&CFpF&+L_zkD?dml02ex-lDLg)RNq*-X(r4<QdI(FQb=9u
zIB3kQ-w{Pq+RFo2F#vlm{LmPAjU7|kOZf;_$e_gY;cJyDg`r_H$!h6@>tUjE8k`+e
zCmoqC?euW@W;<7qlQKQsMt+I{Udz5ltoH4Vq3o8eqvQ{TWgFp9kLM|w$w)j{!9y<)
z5`18=d*Fw^ufi$8!|$#>eFNvl=B8?1ZTb3?M+U@d3~vw1S@7kr^7KP;O0-~iQg`MY
zZCC%SxU+|gcNM;E<|j@z3|YY=FTvNCRX!k@=y~pp@v#%h2ye&ciO#dNhw#2yG#~s!
zWpo!(BqUaShTJl5^2DS5t=paTGq}2aR~7_**&<=7iGlH=jvKiF|E`p;vYLg~bD11g
zxAvj)VQ4X8lAh=|tBxYUPFlovI%`||<_79+n%^NW`%(>s2I=_WuiiBG0;{+wU^9>^
znF=Gl71?@{<a9gO^E0=n+F0f|Xq|}zqmm<gqS+xZOsW2oWvv*-q)()DKt2ha_$sZi
zbT*Y4EPtu70qZ+T)_!e0G|S+C?9JK^%63{4B@we$c537%x{tKbJ23j0#XD*zuv@FD
zK1K|+i&!~R@1ACQSRjHnDja{yfDBH|SAoenke&pn+B45xEAhM=Z;Z+wc{^~bPwnt#
zn#TfI>bPgmy`gQfrAvJX&q#@aki^p~xEqtIcxr}ZqG8X@AUVY0dvc)V<*`OK8Zi0X
zwW=xoehuoJ^jC{v*A9tbje|eiYGp6_CUB-@BLMXx!5H<i=m!j($%6qo3lJ|Q0y`H&
zc26CTLt>yu8!)oI!icJc$Jc%;R8f`9Jf$Ik3Di|D`i(O*j|G<LBxvO1(l<Ak&nEe6
z+ul_{cj(U#Rky^mybBPjlAQZ%CU{_NrvHn~g*2Lz*s5Z{f_I)i#N9u^O5~;+q2Bzp
z*tG0_aqH1>!O+AwX%5tpism2Kv0LtNJB#RtoSD9L;U<f_PI9sq>M0tNnuIhk1>Cxq
zaP)GDJ49NyWMmE%S*Eb2#%X{%VH%13t@_6@Vd(W$Y?dOAoFcF`_`O7Ig^aKGt~AOR
o#|_>$Yy=9C{|BZr#geEJx6;)_4eH3xf4l<KG`L%#ZvX6m0RBA9LI3~&

literal 13198
zcmch;2UJt<*Cv`GT|l}>m)=FHbWy}ml_I@~3P_h;6EuPXf>Nb-5D*9g(jkI?(vdDD
zp?4B`=yUk}*MHV`@12=-XU%+{i<}%e?cIAn``ORC-^2Syx*C+^H^@OC5GCy4eSHuJ
zjJ^Dj5(B>p9&SzmzKEY{Y1{|CfqzH$8sNYenfpUiPY{TL_VNS%GaYgY0&#+1_wO3|
zrEO08r&;cv5w^!R-fJIxR2QkPCcWFO_sK*Hrj=l#rTI9&v{ay2wD~MCC*G{NidRaY
z_^G34h5F;t{Ksk~h9B?06N!EJ;<oS7VdwHx-*4}l<f*#lzMl0Xzp2itz`i=%iL(9H
z9o)%L8YK@b_W$@tDAOSH1-4=wMUrc4?{n*kJ!Z^ENR*>!p*T)gRlm>(>OIIUdRCvi
z?(^S|yu3UD+f4L=#74}QYwdfbf(#HxgYyA4yHSn@kOHt)XdT)c{Uyqgo!jgE`Bgdo
zlr2lFmyHXS&qe|-bW1{uy@96QNCmP4G6p;O*eJh5c!p9VOwot08dc24TqL?V4OFm;
z0;Bt?Mxm=MEIKEu9r#R*w(>|TYo;bw;uORfA`=89{~3;QP7Sqt+7`k}*&uB9_i3W9
zePSd}5$Qhi!>PUv=Pb#x02Y!3m+CzXm9Y^T06AZ4DkL(IWnAwc^wL4gqX$;JSx_HQ
z9vDs;k@FdY9NRJVJHZi;q!QIVBDNz1IxHV&q_!)s_gAd4e+Ww-34Q+Ys96~uIk^5b
zLLB|hL>ZcETaDgv7?&}fF`!^&_yCul_q@Ff#qK+dS5(+C-EZ4^PbvJupQ*uu2bPW!
zv%S~II{s1bfFSk9N~)tH%$kYv#M0TM9)w|Kkx{wf<LGSSDYel(xE@l`Z=xVGy*Y^5
zjr<(r7gcK4hRbyai&b5{jq#<#du{kjw99T5tptbPFIVAcI_K0&BQ&<ds}_XOn0J)j
zBItH8+|#7U;peA+iuhA0zH(NroKxnJs?S|hyE`r?v#C(A+^-Hl?4{kU9^Y*@4Xaj%
zJLR-&_kUIoJanp0J+6HF;`JlWZ;MA`H)qTpn4igKJd(R0O;bHNrJrwI!Tlb@08StB
zkm0H-#&C&*w^y+kE-Wu}7mY7Y4=&zJNFy>)n$T=jZdxZhfq;ELu0#hfMkrm(qnDG-
zDi!tG!=Ae~&X<SN)+?{)&KjYSikS&I75)VbX2i*iz_1`Pn>Mc0G>N}2pfV6X^|r$M
za1z@3lo&4hL*fYWdXMerDgK;}72OTF-ReSjC{O|QvZ3>&EEl2ZJqN-vnPrOO`p=BQ
z27jFJkL3%6gP=;?4nN6*Ag_(1WqJI$MK|XVFFJ-)l+XfR_vY;9!x|6np5$EDgW}ZN
zWU_-(cR{lxKi^UP)Vmlk<(6^oj&hX$)~N8!A}_WQRKoAX!%C?bHE?|Nd0;1WV7eCR
zPA`h4CS6W1(~-ONCE<_7m8URz7A*N+^Po3~Hqz2EwM1I8mmqsOvtX7_O_7QQ+0Q=~
zC7`VL<<+uJ6mB)X>xVVSAD^tQ;NDhvTtp~gB5rZ0tg3E==d_&Ae78&mpFGnx*x1=x
zdG$%N5Arp`S#Z`cUMuvFOykEBI+>rVL(lv8>A%qo?nxph5&Ndqi*@oLYAd4_S9<t1
z4%5^G82cHS=aB+^Ou5%JXmz&*^F9O5rz9}Ci)XtxJ>0fz7ayFN(;2jq;_5jpL*|^*
z&#IQNL`G3$qh_vbJREOnkeyYn&~6vO^@%Y3i*39=hfiuHaA9bA6HpmX0zxh+Xn2>k
zt=L%Z5C10E8T0#atG(EGQi#td`_OBY9cfVdt(}9Mb%rQ&!g5%D%4pc|ha$Nd+aS6)
z=_%5E*!_;tkV3s;OyQZ3ZZ8_f=7)QN6jt)?c!SK%P@ruX2$XjcZXN8Kn9C%ef)R9O
z>=lbi3w7J|Jc{i{cI(G@EMD$$W67Q<VUBpPVdLvUt-KN{oUBdh88W+`siylHcNu2+
z7$^`b6>HutzPwXBa}xq%7DG!nX4K^B14&~8-V(Payq>cX^rY&nSZfyuC^kp@NDsoX
zA$Khr)Qmg&_7uL!(iZ0^at86klb)x{ehr{{rL<YdG(y`4o8gO40m<EDJaI#xA-fIL
z<S>LVfd?wB{&OD2G=2PiRqVIKj-!+uR5a={@Nb?{w&qI~E+xy1xg+{P*4;aGYkbb&
z62q{8kl6?w2e<cEXX8qdDGmf_<cGNiG{NL+9I33l-)r~q6d|l8R<zY0wM=8iy{$#;
znz+qe_q2WY^hL)qJM3itO%1=Zz)(%^iIVLbX1EI4?dfiu(|M(i^{-`8U(+rx*6hXM
zs~c*y&>_3W(Jj#h6Q58O8Ctd1)&IUgTa$KkhjjleLMmJpeYYez-S)_NL*Xf|j<d@}
z3}v5qTG>8D>j(a<aiSx_X^~zm&8>{|jJ;qEWNT4$koeAb%3<|x=7eTbNg<Oj?c!9}
z=Fq`}F59LM_l4e#?VcRwjyY8&f<M;-&Yu=|b@rxE3zx;|ymxENTi;jOslvoa++B$=
z+N5FVf)kjU%WKGpMl1ji+9X;@8{d;1vO-yLR|(u8vz(AdTJIavnhCDc)N|DEOv#`U
zQG+x5U5nyXOqHdfXSvI(WgX5HVb{v|yy;6A@gH)=DNUCeA_mOlWn?lPW!snd$4>22
zl{2MDHP{N_+Knuf9HiROO>od`xcc!+-TO!4-1M<Gu(J;5B(!D`9|rN005u^YQepTv
zr)5+fW%F@|b2@q_?j0y+iSTRZ;%8(ke&>vfgQ^6K(ew8z$VV$fnRM1qRxNKHnW3$@
zPCs@pso7Ad;o5R5W)*0~29NHwZc@&dal(z=rDru?tWHX8k+NQAfs<^OZuU5Owj)qI
zWvbJOqBaSCL(uA9{{}?XP|X!qPU((kiSt&q64OO2=^%qGDoIZoWq39&UUF?n2EHE<
zN`7!c>?r!zjpyTeqjLpkRYXf`vF{u+)Pkj5r-a{&NStfR-$DCFUBB|hg;rpw+)cY<
zyPVnWv$%EIkg7c3vaMGa@9?>c4_bAI4zioxW?GeTlf7NfL?)UZ&vXRRg=7V())Hav
ztI@D&u8amHKf0e0Jx9+HXtSY2iQF1LLOxHN5b9yvjYOW+Y2_?_WS5O~H!jYuAUH-k
zv<&kiagPH`^WB6eT8rC@Gu#ikNku!IFS>8EmQvZ%p2P1sVkq(S*~^QNR_f|w5nO*k
z3aTgM{>h;WSBVugkgc`RK2^r}s)O}|wE_{eP`(c7w2wH$oik%HmQ7`J5-Cdo985yj
zoa#gu(Pxfy?SHAJbts7(on#**+)z8*W?|m0Y=7-u^t=3;Sk1Wj4VkzBp=gYyJqgxB
zt=mO`oZ~dX=^U;a7)o&IsI^vaYoTY6;X9tvc0udqD#BS8GyLxpI?&vMyEoKoZmU{j
zDUhSy$6Km8NHrPJl%*jgqeH;))2E#n$@lnsFL`W_l;gM0oh6(|Rc;lNTCPdv9!<#w
zu*YPMlAnej-27a6;tQTtE#!K<0VP$L<J^ENMZ3%93ANt7bA3E<K;Bwc;GH?Gm_fZ@
zc8RRg=EHA?@y|4C%-|0Mjvd`V8X6L#Q01twfBZqJVs(zpv*N035D(rxl61t3r8d97
zmoDI5v#E_!A6&7;U|cI4`)<;A+mo?;S#$VXhfJKKSJUF0UJMc|*|KlqKTwo>qL_L9
zc&chX$KuZkf`yFb;w>`KyuL)D`RZTN(&p$sxH1!s+2_^%hnP{E-r#x-DN)&{f#6BC
z71$SuE;l`C&XEqst>K4qs4u(`6~<DhdE<NhgCX;8pW1a|Dg|wi&fdC5XfIj5{noyr
zK>(wo258G83zR;%=e<%4nMy%&M^^^(54C$}sZn^`ne}_)SK@ue-B)VMv9)>i_tyZ5
zj=RXSpVCP7_wC5_Hyp{Iw93R*L?vGZ-jZ<@Z~Yb!iqGX4tEvn0-Fv_o8<0i(MD$jB
zmxy+I@z2~WaRJ5mJf&S?4y9#$YBdgSKCXYr9{#U{vSFH<ukY&PzkmN8<kqHUYsChH
z9~l`L4aE_#e_P}B1f)$6ys%B$60(`7yRms!F8`;AATs$6yVG5f;?3h1Uvi^wFmZhM
zTK$uf?mKgY&3hFqr2c)MyU#oS+urxwEF;^kmWy*~`<~AdQj@jmK7So&2;1{a9pS-;
z4Vbe(9Ow9O1@KaTrnPLyDPi8eFU|kCo!xw=<cl5$Rt2ApKZL!ZLOqVtHjZ=mm`)D(
zDHVc@jxT7nc0T%KJ>+EbFvPgmK*J(nHJ`<;Ve|X$#p$vNHHWP0RN#Ea2lL^C%)<^A
zx4p9t+2-y1y`2@Rl+@IcQET`aM~3f=zpV1kFK(7;pGlV(o^%8Iyri>x)Jk6V61ziF
zQx@J6&y!qYHS?7{>K!aCE!Tz(^v-;Bbac#v`~uD%=Ia{;;+hVP3-mJ2^FyH|eMh}+
zA)f6>GCE}kXJ_r_=Eg$7N})UD!izTGCpjTreK5@NMgb+u-nwx^SJ=WCb&|2lUZFx}
z;OTFsGHq%t;C{gEW`5bWg_TB8mJrKrpxUemNB!{T{e|CgnLVdbhC=(8p{r)*<|RPT
zgqBVZVR3v-)!Q8`)^hGx^pSmr|I%B_Gk+G>+S#2g!yxe5`ugNjPqHUFx}uX^L3lMt
zUbuN9GC4DFtInQqalR9Qqn_BR%)Ea1W2pbh2Nv0_yv-U+h(~})(Aj52|DBaPo=Z__
z3cg#iNg}5Do};Gro40IRk)51}_4>cp$>QObf+P)D315m|zU))Bt&|RVwU&4`7Zb<l
z@~5W0*d+nC+><Ohc3tA>&opO`?|_eqB<=gAI6Vn}oywc$Fc;^COTE3lCC=J>Iw?}F
zUGaiW_Z%FZQ9p<aW7rf9Ql+J(YYI53tE*)T3o|c=L#Snzd?B?}J!W+Ro&qAq?ey}c
zs}A6{OQdM)NqVgeWa?xp2fH^rQmdTegBisv{QkaWvhuSF4n7l|FjLS|+8;&}?E5oS
zTBvL=!H3g@+1ayWxeq?b;{XS-q#ZT;iLG`5gFe~()-6W2+rG7;m=})mUry(aRyr7G
z1Bo>g=05Z*;2L}Fx&wn+Le9$A<h@q<UF#MTA8#LmqnIU^%)67s%lo9Q-5R$aVEkt4
z<_eY-*aGK%zPGN$zNU~Nk^}JO>+0;>SYJ@EGz#R8-@J1-zcE#e;?A#+DJd!D>+9?M
zF+eN^disA?YtQX6W`<kr#yO%NuvA5z|Gj&5n*%y(T6iZxv-Gx0&>4U<i#soeztp`U
zp>{R(o%T*G&`#bl38;5o*DTxTG3!t-7fxP>WiJ}8dFMA&fJ!DETwF?vi;G`&%aj!q
zgpH1l>IG%WPPw-&+I2+vXS-pVYler1r;gE3YF4oO4<e@1{he-c3>}uKh0y+hj$b#(
zp(Bd<B1to!$`XFIpXui6s{A!SfAO7H+Vk$j5jObgc2d56(Y-NK`*dcIi;K%hkzw&#
zr^@;E&&$9q?o~Bx)vvP^8LkZg=snvym~_JkU;s|*EH$afc>!d=xr<POyw}Ef#SjRv
z<=er=M5RU$VK%(;@_8+Qo4ECU9n5%%UEV?uemtb7(On^Lz0ucm@Ax8aMxeu7&liX-
zUKSJNIo#;Ks~facw;bYkFk!D3(IOt;rjvctb$YQBk(zOUZ==R|pY4xj!huto1D4Z$
zqy4tqnPdakOKWsB^Yz0sLXKC<m(7$XUX252VafySTJFz;@0q(bRS*8j*K&$5<=gh}
zP78O&jE&G(t5C^d5&oC<^;|N_oNL3T4|cf7U`$gl$;I+_b%tu^XoB-PEWkhB&T`dN
z1idCBGwn6>+;h2)Ex~09bAC{BH`T5AD0QMk=@j1vf9Uq?aLTh^5VT&_;A-IH<TL`<
zvj${$SW}<U;S_;<I<d~pW%R2lG>nqv`_-)a`s0>)UHR3#{!5ZII62rn!JIi>B8zKe
zWTfV7C#mK108GM)#{~^7v1A+^wp;|StPJL=T=@b3g2-<v+5SQBrjvDGPDO=;G?41l
zPrjNAs!RsX*FiD~+p(fP_Dfuujza~dCwoJBI9Z2*tW=r54!JBZdQ+;s4GawS+o)B7
z9O{Yo)=J8wale8VBT`*|C?74voha`1NKR6*$ZXgl016LE&y7(&&L(U{T3llPlDNhJ
z2Az=ykX&<vh2>)Mbff3?DtYpHCjg`UehrS`z36a`5W*pUntN*vkk}>^bz^`l$-JEZ
z@vHx6!d3_5t7~p^bF)jY^jMHe6W9BO#YFS(#|JenXHT=Q0}i+ly<G@625Nn_X3QVW
zt`y)C^d`meXlHT6pip<(|75c!lZitas6U_jf#EVHpKSX8K$-;jmbz}WAhqw(5dNi9
znK68nKa1~A8jZ#q9N#y;Pxdtd8y^Q(*Rp_xPa0vvV`JjtQn>aGfIaBH4e2U0HSG2&
zVCozObGQwPhO>d3Ad!}ms@iHk*{aExC8WC6ug0;Zmpgj^0h=U8wKJM4o*l23TLYZ8
zpo9S`To^Fw)oI{7$1$&N=}e0|7G8tul8GXwuU2AtwTRF5%i(M&`R+X7pJOoqe*8Cu
z%Nt+4F%&YA4m{X62GWw!3}thdjlQPr=NO%U>pvbly7br^RQ#8Y4lqtn?%?<A$ViEg
zXt}d%(F}gbZpmI3ezcf`30x~G3^@;DaV6luJX%R&rKYv+vsr+>Te;Ce2e#pCGRr^d
z^iHSVP%9JWgNAfI-?F{fA2oLyodIg2rgC}n@mekXbe^O0nJ&j!vC0?gmXKZX`js55
zU7b`XzrT5~xQ-@#D}^<yO2{b_r<eT}K)k`$AxDcPg+T6C0jJASu`Bu=Py!TX`l-_L
z)<L|Wf$Q2Y#rvWYZ-6RTJPCaG^fFF2y_hzb?bAF~xWZX)`>qWaQG`)*gpBMgc9T%D
z$?vHQ73iG6zK<>gPn;3;Y5vxJhJ8cb2f423htC0M_xnGk{A8oDe^9*TbVnLs(lPV4
zFv<p>#jb=8Kn<CtzD&isJBi)=ujFuzyD};lr@Qb+1_ncofW0c;fP@d00w}aYt(&LG
z!gtD}bMbN`s(#^#$i5dYBN}ov^4+)};IZWS6vhz4%W9R7+%~k{Ibv*mHVkCuVtE>n
zwJI+i98A7loS$GSX2V#-a9!TKV*!vwQ{(zv*A}`4ZouZ|2wA&F&$g!O_AjZX#wu{L
z+L|X_ODv90=LUQ=KS`MmCqL~{Gffq=H>iR8x-bqp!L?ji)l9wWZd-lg=q3ZmtT%;#
zYH7&ZUHQ6&D*GCCDg0s>GQREsoRn}0%vpfxPbWUe&iEb7hI1$@tOn(2j!=v;P`KZ@
z6oSmO!f19RFH9dIf{x|kMMFgXy_;2&PI4-9dF<s_wr39SW%op1&)fY{j1IF%^QR+t
zVEKlEB(`jN=WlY?x)R>;z!o0~7IImFrLKisdlvXGHc#x)m&ge*2bg}0zTomtDlmJG
z<hc%(<9V0*KV28P{i;ctEsC@>I}14W0k-(tbMB(KVagi>KX090v;2s$6ird<I*08t
zKXqR3N4|H^t2S6)b!}g9ck5^mx=>r*?uYs{hGXNkzhznotH1Qy0~h&|8f)-xlaB4c
zPe_cq9uK^ovRLqPQFV&eFyH$)oN5F%GU5%~t8%@cpqF2TP@*=89WF7{q!`}?e9@%I
z%TSZK%<Sti@$Dl|(N&>*B8!z@3%OmfZ+T$P^#zFt@sRn#cwP!vY*(H>If@6?6!HI%
z(f>hF|8MRN^QEiyxMMkONNld7Kz=uBp`YVytYUc*EPzp}P&bl)1zS+35m`_SgT=w~
zaauaDd4Edc8S(q*C+JD$HV$Y3NDq`6uOJAEt=9xD(E#BVuOEg;S;gkD=jxN=r3dZg
zHt!gLoxsKq=6PUi5<>Z)i|c+$0eJ|%ECxTi&lG9tCNE-nyhAl7NYWr;QS4`-%E+6i
zk4feY;{r2Yl9j%MC6q+C<DU!W=Y&TX(<x~d)&1PAZ_*S*duZio*lUBD<Lsu~u|IS>
z5)9c%hN;<hN{&OJiAgt2%$=N!c5~V<EPzP%<-Z#<AEw;6c-l6Q?UX2FH55)UYEnnY
z6^9OKF;wz@`3Xtu{ei|seBPQ_`P6$Cxf{uARHnSn-Uz>-3Ea4iqW@u*n(BY9V80}f
zHn?LrCc8Ji7E7V&gI}MlnXX>goV*w)G~5n|0L-xX)eGb2gy{<!X;KjUc5rS2`^sFf
zSXv`NQLHe6xRv^~Gc_zWAYN0*Ri$5YYwp`~E|@+u00u%aWIjenixF@?ET0~0KpvH;
zpD4lu6N&?@jpf-FVzdEnV*^g)5d{C=-+h$o1(ARvf<xI5w&*}~8#)t_cx5-1r)UAd
zV<R)34<(JFCqVFEcT&8#nnxl}QRf!`3FU}QQuXUtCSc*>3RVmK94#C1u2SrlOlNIB
zgrm$VW%`LUiYfmLE)HcEwN-?z837200l#Rs>gS@rico>nJhA|@L!4vnrXH#du6zh9
zoh+YCEO)z=(`*PXKOaj=*iC&xC1eC#>2ir3DmmI(iGbj1?(n@valHN~k8^gVZ+G6I
z-0F<YTC6h}_=8_~{U%@9tW@@M3mNLte;b!)RR{oa6}i>plso1IozGovfY8M~)Qrt5
z15(S621SYDvxP4<j@O>h{=Vc6LqQ_B%{O^;Kq|5dElL4x+5iR$AnC|ZAg$PV(0~3e
zLQ@Dm3GIZgtCt@_w?NI5!+Z(xJTS{_z>ddgN>y%mS-cLG1wDfH!=^3h$MF>H3FSZc
zXGF1~NNb5rGzB`k5rv_$h+QBO!tOTF9xUK~Z@#)uPQw>^Y(|+|J%N=lU{=&)H4}9E
zR=J@>_3?wUk;6a7^(o$33~tZ0iv9Z<7x`(M$D*!}-pbC--dfL(pho2s?JxQ7sx%kI
zOXQ0g8`rqBVei_<-+pGKwHC@i!FXC9FVSEIz;+fLyK>Yyh+!DSys&Zj<dH!#(=XvF
z&N-62@Uo;hrq;VqN9((7^Rp#|$a8$(={^c%93OU^at{t45#!ckz<t%SvbbeGv+?OZ
zQEhX!D~2Q3cO%qJMY5J>+uA=^LZx=&?Q@`uFs<qBvbn6W+0+^OriR%()=xM|WOiS;
zj0J3hP?+_>8Ul-EH}N;|&uxTI{CJyB9?B4_-x98#HYWD5C2vRjubSjay7j(vzh_w(
zLi)vNWW=b(xqdJ!ww*-^)y(TTUid&(zqsFIW?}5%v~e4X>uW{dU*7lCueLRK-y66l
ze4{2v+3;g^Y}jl_u;Hr0cynyv?|eR({_17cbGJV3_m~8|$?+(C-v4h*C8_^I3&vmK
zfy(q>h^a5}kRYjBw^w-pCP@OAWDHUchJ%|SdoUR`fVQ9H)7v1j(J=IV8$rC24NI2L
z?>vC1$*W=f*M=a96s%ONB-)(xvx8`LG_U&4aV9zG&RXfv6Jr&fqQhbi`Gvy~@9N3;
zHD3>NPfyFC*KfnYLt3<t)*c8IfjUK@t}*Pnq1+Kc7^Ok()Hev*lFXFhK%*ZoG8@)n
z_ltydz!{#HH@$A>OEpdjJfDYq4fUD4#BdN59eFZXtY*<?Mm#7>rR3mFllh$D4NX?P
z*u03ua!@&uc4USdxDnz^r3l@4G^hCYzaO$DNxP~@E(Ntih=a@%xx@iiR|TCQT0n~I
zN_y%;y3oFrxirAQ?HvZJe3o>;x#FziwDO=kEVk;#j`v*^`oIun{LO6P<3_PwAaquo
z*5Hua2d7-EV3S~kzh%lNp!}*fi>*-Hwi54{6Nc%-=<BbAkJ$o*NCE6=I7QDgzJSF(
zxt9&Gh-CT=u*d>A1J=;=va~1tuAwHtyAy%B-lW|OIh}vS3vj=i!54}E(N>+UG3X5O
z7IewSTOVM1FQ6el2`Y!SktOA@68BtDwhn6qhCR4bjVK2zYY4Q0e4#a<Ly%pA+`nuT
z#rB5EN`^I2I{)!r1+<a^u&j9q3V(i8;noeY%K-s{rbF-}G9iFtpjx5nT_2NpU`l4q
zkVevR^6TogO!#m#Yvb)i9$1N}HPc=)@~HxgpWw06b^=e)75P^RYOq+tn+dNJT7_(;
z$9LZ#RMcajU7y1Njq+HqhWnHqFE=Yy=mxgtwIHvgB!Fk1avCQQB!Q-%cK%c}-WmI6
z<;WCWfaER%ACR2uco5Zc+`8RaOH&e;MQc37dG-SYqPuzdE&#<>>$%U7h$G%;L6~|`
z{3J~?B#N&JkpvZ%e6?cmEUh0JzHt3e5L=$E^XUD_93OO)uxWpMX!*Dp0Z+adB*Dp+
zPURSG^AvFdA$~OzjepkqfxVe34QxSjN}atQ%;@g%$)i9$#+mA-MZej!!9Le|xhecl
zp$4^x5n2=%=;~4Q6sE7Ss6e{@#74gZbq^t7`LWXzO@mHAb0D}w;ouk=vr?7y*ZuK4
zf)YTOYQPH5t~Nxv8+|PkXq7~;h014%56~+C(eeOBFc|cT!(Di@kit75;cGph{PNiO
z0r&PI4PMU`va;QCVAhJw8~IpH6hwvRoTblh0Z)S5z=1x&W&jGDkI3<_Y!qitC#n(D
zh`Pngx|LBj;Ex93)BzP?c(a`z3s!|cnPxh59n0f}>Ek{E*`a=-F8ZC*qV%OFmRZ?9
z01&-vh#(?@d@DmSJ5dVR@_7h&{M%K3U;#3BQGs%m0;xcMSB|4LW#FcAZlotr^E<nZ
z5$g^uY_q%QN3A+EYxVMg!V9PmvK*jp&&Z^1e7F*!T&^VvoXPad7|}u>cz$gb^i>)C
z@0>9Qmv!B~ip^bltX`{=1w1~_nW*-C>xsW7gCj6%q%)D9L&y5tLDZ<o5MYt+uP2D4
zXN|5zj7eO;a%sSaphB*@D=*6gHEsev;F~Z*-^*$7Mu(#57PT~D^Jcir!6D&~f{Y>X
zD^#LR4}fzZ6XfnK-|T^G5;t(*0IKyG<R6Lj5vLyyyFt96E=PXCg*|&V^ogga3J^4>
z4>pdjw}#qGLMI`Whzb}FFcmQ_0`!c0#c~oT5TvJG&JSe*TZ`Q6V?+~J=f8tz)}DpL
z8phW*2iN4LuxT-SE_Mw|rKDaw?)t201=PLTbcFrWa_cKTVmnRUzosplKD)n6;PFmQ
z0e`@-)E%<Zv4l|y!y02SAxZu*${zkhr$mMEJXt~ycp0!Rq4cxSTHEWo05>x+&-bo;
z(qXX0eB<#h`eE+!`^I{-80>31^hWaGm$7?m?*ScTP0h-tl$j#2<%Isdr~|m9%m|n!
z{8XF|iL~ql09K$M{kpFcV5c>Y`g?$2Eb6TIFB31~=-pUdRbWV$it<x8B1NQa3{nQs
zNBeePlBeYtK*rDj>JnprRfWdys)Jx45J2y2pfasPl0cJ?WvI>|p5EP_WKJ6t4M+!i
z{6l-Xc%Gtoz;5`}G>|iyHc7}8#ew&7)c0}yOC_pyh2H=T^iyb)^J@}<4WSe2sA@@q
z$%G^>_=%AG)l4h`2rXOR4DBJ<de^k(8hHi4db+%f*eZX&8vugCi>v-A$VC77%I-gi
z$4imd7CMax9b9)ocp@xgHGyLDk0NEo6XU(H3^ovV?pxFZUUyaf_dudD0B;X*?ikoy
z#WQB}p0eM1{Rn|0awQ4LG<*fj7cPaDXsGGnu0J3}LN@jf)H^2rU8ogOZH#Y>J_-!T
zOj*MnmXx{(sW&c-e*eoLT6)-HIq0P=ILBaDs=N<pePmpzqhn;`Bsdpb^(`NF(w*9p
zOs>*wm{v`)S03oUS$!-jZiKGG!PCsD^8C~F+vA4IfM9YU9-}u__J6CI?=@0=Hhq>B
zn4=*>0&bHB9$Z{h%pNphFU$UI^4(qD_lF&^i>!oY<53Y9>ZY`zarqsW!-}?(v5|P5
z85g&ve&36O06W<0efD6V>5ykbrAaXyro{;J;G>y|$V90mp|rfuzzi#h4_`gLE^OCN
z4bc^JlLydKs_6)BA+d<Jo7zNo-Cnv0(@z4XsqV^*)<6$ni0yLDtQ7r!Y0msVSjYMw
z%(_*9v~EU^qO(NieFWWv{u!enIu#Nb>V%j;3o_4h2>lE9fAi?xSzL*NW)R&#IE4x$
z;t=1delo)ZmL{UW%4Q!}d0|4yKyEaEtlwwIf;FH_&@phQH)o$bTK7&zF!AS!-=~1E
zD*{f@qd7PeduLSx#y~?LQ>4T6%**Bf5?$$fkAaDMQG77ke&_dDGiVv)_UMkkW~?D?
zg8sM_q_10ID=4cXst!;Mi$In^s}`7RzB-#ej5Q=qFa$ajYtsMkF3o>v*!(B#)@y;4
z<yNl%cI9vBBiwZ5!IxT4X7$R=PN=kh#~1^%y@m~jbzT|TIQ%J(rwBsnc>Oj3Uh?v#
z=JzvK7t^E6rMHoA{bD~MT_7=p5jbekNYw6)0brK7g^n1B5{JRe%Q3|39F2XUCzL`)
zXt>pJ_XL8dw&&9NQ^o$;$jGQ|+r3{elx$4GZ^!158>%?iXkF;Yh?q7O|NU!0$pjD<
z07RqEZH<I~H)imHL>+p9|DL}CbM^n~dE+INn5kH=Y=Evp89{nbUyvtl4<IgLFIzUt
zp~j)oi1pA)0A=!6UYnp-ML;DENcaP3W*;Z_Q?Mi0q3N+?HgT``|5XbiiV#2X&f3G=
z?e>3(exN@h|CtG-Wv0*Ja)GA6`7AX}h&WhHfJAg!tR_ZfaPi9*XCauBwI%(Z))S*o
zhGL)kI6oS~Fo~6lEh_dny|l_d%*!v`PoFOAy>4Ww4)Bb)i{mC#B!bc`XtQNWq+wqL
z2RDfzfJ9wNOE&(RpiqwOPps=}o^`LhAriiUh#4w3ma6VKJ6_f6b#nM(Y8pZ4?JcTL
z=ylolH#z@Vxm&EINL>=dZ$4>;@jq{{KLFUDre$${F&NQaaW`_NZnKQ2vhdtPU2tyb
zfswgZx5D;a9SX+piWljUn%|?Ih?z}+PGvE}T?v);=X=XIqmj|?@i#*zyAt+`5{d{1
z9;>JJnNH@XYbshY)S}&qq90mZT^#){j&Ny%h0nH=#MYrf@gbJLRalicw-cLD7hmaw
z1*m?hbSd+NJp&Gc9Yda>S1AJ-P>k-<?vK^}QD7q=4F9RxOK3_?i&m&-?lz!it{cJl
zKdQsCsIy7ohBjvZ|6W(k+gi0(_1q)qCT{ndvUetkHq0%ghKHgrXto~gGudeS8wmfs
zj#XC6I0UD*cQ71t7`+ZUx>u`mK#61-RUz8Y?^}p4bYK^=8`;mIbxW~wV6SgGPIJ55
zTC6n8u#MU$O!y+=$h8fiB3DMYj=ki0Cl!JD;k{qM!8XdbzBD>A7(!34TqidKG?gg&
z2J;ZZu8O9b#1WkOx=yXjN&xc1(3hQpWMhe4cOq2qk%6#T1tyoUm+)PgDJ6UhrOb3<
zSw6gPN+$QI)jG^2bh+!Jmi_a-wrj0j=4>oJT<(T<;@0w3(aX2PfEyRnPwd2;NTckN
zU#))a@vnW2qVnQDI;T!(RxZq6&Tc5{uWMePb_^E#Qjg~`)8W6?jGtCNRv2VtNrd=3
z<V=eGLh>Clqb>hQS1A6%3`zONx;yc4=VD5D5n3N>Yt#LTf8_4lbLwf^;OPE)z80Ac
zZN8QaSp(%2%?r4`;wuwNv(ngGYQ6&xZNTon$-8Usgj&UyhAN}hsaihoF2WUU-%Jp1
z829DL3t$vg1+Gj&yUAF_H39!#I@N`}zWdms$G1u0YrlFW(Ny&TxB$e#pZ<_!^D67Z
z@$o5;1$mE-RPJdAxfD2wC;cJ+V)unvR^p?o5bZ^uWyWKUDq1Q~Ju%^FUF=$x+U@|`
z=(6+ffaU1&){dn(Gll!uu`<3pFKz|tk2WSFaS5UsC-u8E81+ga)BVcg`>%g{M=j~&
z;4DBh@6N4kZGZ3k8s{XXNSsl=;0t!4;NU)KYQS}6d$<6YDWaiIz~&zID35Lx8H@-)
z;yRf^EkjS}dIcIPNxKOwUj1{a;umIE(k!unCPsImS!{}?z5{zS*GAk|NCyN1VHdD}
ztuC+>Xt=uW+3f#iZ@;b~Xv~O<iZ3l@lu;=qv`w<$PC828usCS<RvLcMn*21(o!vHn
zRqK~Rd-1aU7W)VBC3t+E+7UF0#ER2PP?v;C$TRvay(D!5NRsp<goF6Ipj!kHgCzB%
ziFMCx{}n1=iwnpv@Bd%Dyz)PP0bHN=GwH@Okw+ouUIS+tk5OYf!V$oPAog08&|s9I
z<4eR?PD{QFF~OASXF^`YD3ctE$(u)B;Q-;D@FvF#^=+Z+Ea@A_KSTFca|p4+F0ACI
zdK>$y*cWOPM{elv6&~de=7(gUA#{PkOaoU%pj+Uu<)bMV1XHL#TF=qVWiir2S4wQx
zLsz8bO-?OEXr+VObPM@jOolPE9F+9DXVQTA&J0cad%d{m3T3?hhIck0d1sOQ=z=;p
zR10_^oEdomU9eUT1T#Hfa94D<NSrDIfA5cVljtrSkOCP)6kZ%z044nxTm#9qYqJ7H
z-=zOZNy^esGgv!jS`Bienu_Ojl}1t6zDes&R)uEsN+k@e3CTQ=9$-BC5Xe@WdCU3?
zaYCvtrX*&`N&R8Y>eKd&y`webo7^!i$%0iq!ehL+jY*<M-JE?_lJLTXiXwR$@i1M)
z_G9LXO3};!8;M6uO=Xao-p}Dx#)#_51@oRAK`Baf1)9uM**G?!u^T~e%N-20<)*TQ
zs)*bD#X&Jq8BFGgp$sT7!>@eCS|XEjs6;Voo&8orh*FoJivjlic<njz^@X?%wX!LK
z8Wcj`q)aoOsmJ(Pl+^MI%d?}6pl!*;ZfVSgt*DLi(cvVpCZ7auQ19;q4S6=gB{D6R
z+Ql-}hCr;>Qy;9w_gG`}eLcvt@sym-U&Ld=sCm8KcQjoM5;{1(_qRdDy6dwKb?bv*
zf2s4zLHmUrD%9<Op4Dej+Mag(%h$+XOeLdz5k#glCvvk{Rm50xWa5hg4YF<lW2TqQ
zg!ZKr+y#nnRs&{Evn_eX;r?>(G!@-`rywxNJx#TsQ?M~8BKgI&Sq<c{BcqMCy$hNa
zON-qdL=mCKqgDaM!xq@Yn5|IBJ}xg41j?2U;>^~n&Ukcxr+RqweL-L<O68lR#BIuc
zKV?Zfs{>;8uI(8{tWaz7m>`k^l-#W8Fp{nz5a#iAjw#it`JyeTH72%?weI{zcK(@Q
zYcnR?Q~S{V$+YOFCqPhMq=+6Z#K;0&r?6`WdIg728Ct3wdENj^bq7bb8%oyUkFNeX
zf$n<WrG~y33_<R@B5!7vI{B00FLGAb5ENu55|JN1l~WuaB1es(v!JXtyLl@vdQMW3
z(C0pPsd?x}zB|mE#0GQRLUM4#bi5LvS21X|pg7|=zZ#S}5c!ydHIYVPYzHiN!!OQ=
zI-|QvA-h{a67w`sFWZrGFKAEQjPg5TWLgBIOq_8gg;ccKvC8*u4R}5@ICpg`CZk{M
z=0T8J($XaQ1exoT*(0&3W+UACxUn*)zp3tx#H(cT)ARwObMjfv%BtnxaGUFob&ZfW
zKlMirF0)SkAha)-tz4j(W;^>|ubhedVkO~v4q)pz`;^X5?qAIxgkKyjq`r{E>b8mz
z!}O^?O{kSWgDuJ<-9H*-6aW0-1-$0%%60N-EH=-z2VyY}EFzKxl^N;-ZB<T~dNE&G
rzyS}+z7>$%|8pk#{~Rj1dajZUuI!hG$(UXKSq)5G_kNk0&FlXLm%ceG

diff --git a/reference/Rplot007.png b/reference/Rplot007.png
index 48f4a5f3deb8d005ddac6b4b8deef910efb98b6d..48d122f82cf54331a5ea96110543774830ef58d0 100644
GIT binary patch
literal 14377
zcmdsec{tSj-}jWtNuiT=LM5V*owB6Oz7ttHNp=!rpOI8f$r4F+vXfC{8yR&RBr#dW
zWF3-qVu&%!81DDC^E>x)J<okz_w&2%KYrKa(nVutzVrPo@Aqr_JTx}c;^sQUg+igY
zb+j*<qEMSgkbl2ygGVqughcqU?Yf@UMfeF{s~76R;K%k`+E;y1s2#hJf1A37uxluk
zFiPj5rg>o6>`=(lJ>%&c3q}@b#*&lN&c>!)yY9Z&EV?CUVYg3b&2JT{TOJ%2E`KO$
zU+$BTlVKO&#HW;Ep#P$-b?&m`jhwICvW2#fMOzBB+8<`QKaKm{<+Py5x82vSJ)ce{
zXf$Z7pq;nf48}(m2VDzn=omdcWI-=2$OvYx>RU4W&Nd%7hC-b#v>o6^p+>AOqBv03
zHf?$=xbKuz)_(iI_x^IIYafo?i51p5zcPMXWuXd%`o;c(KgYbYq@-k3DhhQ#M3rM3
z>fPNOsXLj0U$>_RO(g4z>`sw$j`9Eg#l-rVVF8*=C%Z3Abp}&d!v$fi>M%3KR7uH=
zo&xo}IvT;oce2C6)3dZgV<U8Su-2?$ZCn~XQ&ix#GC#_E&x`%+7`7T}zrm(#ls@DW
zD}MdjWMiIpBkP82pZ8hL^0EkN&HW5D*DeumA$3~{doIA@#Ga3Hj6UZ~Qh_?XNRWZ{
z_m|igRa8-7Mz#+rJ^JK#_|7*>FCK48N-9<I?3b@!>^Pe@FzsjkMEl}uDB<h6ct8h?
z1loM-t&otqiBHKni6<?Kb8;?dthO30^_UqYK9jb3buK+Uy}#TkYJH_eW2T-l-0hTP
zcf~rRZQO6bvwFJYEX~};CiP}}N?vP%n0t4=fpr76zRIKTg%Ep6E0|8Q)EfvLKk3k!
z>P;x3Y^*c->qDvyHQ0XbDGDW&DxMn-oDJ*2<B66t<4F#^deZf|Lv;bvyE~*l!watZ
zH%w-P;4*?H4pvrGJ(~+zTWCRdUfM4%7)#~USP7R+e%v+vCL?4{g*_jsaf*fa^)A~U
zu#uPFus%&o+w@MRP2kd*GiUTMn0i-t_p>+p*4eCRkpz8FJ;v-%9a&ozZms!%BYb$L
zjKHrCyM6>vFyz1t=O3$~(}YwneCr^ZY?sH@ku5SWZXv{+ol{;c&|nvN*pv(<$uxgT
zKTCdTS69`t@TR&tX~@VM2Y2E-nI7=WD{Q4vNKv|B?RFVeo!(<MA+)g|6yg~n)2yE?
z+w_*bJdig~Wd2cGw$>K+;vci%Z?48+D6-qS+AAGLV7j$usM%Bx2fI%v+q=7$?0$If
z>q4L_`?tmiI`PZ11D1I2KY#x<FSBv<)eMz7jt`rA5U7f?l@ilIhF7Erhr{{xDeivg
z(h_r6E#tT4ycEn~4`PPeqn5Ga($d)g4bHl?A8qKxcBQrhIdIdK167{gOVi!Qb*SVr
z^7p<9(&x`v+9EHELcj9C-0P88aT3(b+mky{F-}@Tby)@a$uC0YYPI5*y7Z){za<#;
zcBG#refd&&1BOZ>&qZEB$Iab6K}11bey58=baeC&RioA$rlYsMWO5XKo*!)__4O6O
zb1xn>AytW`-MV}I^>h0$HoDZd)^vkewjt5t^AxsIhsxwsqNROju1>-puKP=HotYMm
zb)U@2^VxB-$@<g&406E9*-S#mRffZ5SjoQT?RRXdJUUYp+;ziuJ-pZhS2>@Z#bgG<
zYSU914$LX<dkKqXpS1l;B6hh#En}}`4uN35-y!t1SIy`)*g?AS%QQ-vcNl9Re52IE
zheEdXjfN$3<8kK$ZvG{>`s)|74a=2f)6Z<YIwh+IUqne0th&O<zH-Tr4;?xLAM=en
zSxVCWZH-6z)ry<b!yz<_Y-8gy>Alf#eQo|Wx>2p~HdIS_j>Mf<jrG7hQ*nb-MT6H?
z`Ws6|8@ZF2VfNXd!^M7-Tq!k$7ZsZ1_zn8B6jfDSVNk+0ew$sKtE2U@C>z*x|9;m;
zP1l(N4Qw0CkA%#pW6D?o)2n((Qlvj0@}awQ#9Y6;`pvpNxKdRAxp8Ne@5HCht~@<-
zziWZ(w+~O^d2D&STwObBCo@Ve9?fo(s?&E^`?|law|4Xa|C^x2n@!hc($T$F@$-M|
z2suS73uB&jM%{XOTmQ4sI12UdNKCQwI}~c?-YxT}ylz*Om~LtVEp+ni1+NAaD$Hm5
zA*lX=+jgSvY~6Aih1$0Zo@;duskrY==&rxKb=Zlz^=6tHks6bN>bO~vNA$;CKKdk1
zCV$D~A=cf)!#pG;B-5ezma;9`!qG8j`Fr13h^Nk@%Q;+;jc(rFyt!CAyL6aK(;{<W
zdTL6_n*iGIIrU!IJzTK#4MP}n^!h5lktk(>mZGV;JkA%{*_w8Cc53P^1JW^Lg+)b0
zOHKmVsEbEo06Bu+TE2kch0+U83Gd;(Z8)!L#Ldkej>*>f?0X(+2h^CZX+L4Q*5d=&
zy}iBXChpx*etGd|=U5v?VsC6q2wVGxl;+QF@_)JEO`HCS2UqsJOV+>K-rnx!<)!|u
z?to>PeQA^wUYju-QubIT(qn*f8-;psh_YE3_Bg57;^!<4HaHUnXZtJl+MY?8sS1+M
z(%zbpkmtRKqinUScFy-6!du8WcRZ!yQ)C<;D0=qiE{wHUz8O4_14~dR-p$Rer>93g
zYx#iV9<EhvVZ2C-&*l=l?`^`=I$TIkZxYW^`+G~<wPOCITJCbfnDP%*={RQ0m^PP}
zZE!|_xd!eLM(AEvi@|4%(6^dXTyBQSX#{cgn>_n$rPsoSq{Yw1_<lG(al0*A#`<mG
zYmw;-Ld-a?w+qe142PW~FxT{|#NODJv2eRH0RmcRG&-EbQ%<1bp>`-JD1`UGgAXqr
zebtYnZX0H3KF~k4&rJRhcP=6Kn3pXM3WrU#S7{+OFP1EBmM?JIqD%uvm3X2pVCMS=
z2d`=tOx&Xx%YJF+G@l0@>a6d@{YS(<tNfOQp^&Awgmcb+dF@F5;ut&qC!bMIf2F$u
zhPm`8sSa17;NGhp4@+%%Zpend9>sgFqobqoY@E8hqGEA<y<M$s2LnD4bZeh;Ep`uG
z<YCdiTwY#2H$x_o#8cZP5_PwlHWU@<czSw<t8w5;N_M=YjV;s&w3x^y@65$sxDbKI
z<Da(P2rZjcj!8*L*-TA^!fSOZzpARLxN4xrCubdc+e-gF;^NYi*wEZ!&%0@SszkF3
z7aD(65?foYZXiMJ#dx+sRYiXkFEFoc|NYlvn^XDz7<~n818ElYs)fL}WU+7pVF$jp
z_G-gQleB!moNYb5*Cw9FPa7b~1TnL$xA#i4kcNGcxh~X@Szi?t>Oy)M@s4GwHHpez
zoM`WU8?>lfozqz;Rln4wp2UGV-Lnwz@B8|nTIT;z7XGzge$PWG%QR-}#1n1vdOKx-
zXEHa>4P5yHZ3i`SFV|Lz``H+|kuluG6MN#R_;51guWfNcFt+Uglr1uvgO(~xES(Jc
ztA2&|B<*n-P$QP$vAf1j3Gi4B#W?yH-m=@sY`b*y$)>}TPn5-$NE%uOD1OJM`l2Pn
zQctu$9LRxXhq6Xri}ORH#gp1r?FZ0yq@JFgQ#B_|(y}6oX?Wb<^$@1$%-ORX$y3lJ
z&u1H7!|=tnj4K;nqhH95Gc9@w{f}08xW(kuz8x=TpJ?AWM_*ihOY>~KSz%Fq?1Ret
zMOFA1$Gi-G`6~0g^+vIm7Ch0z@R!KOAFAHxFhWr8>NE8||6R}j6(;V;0QZ4H&w;9<
zl9Cb%{Y7WtV;S9oZZ^)w#-^k*M~l^|Dv;wpH&_%C6N4p}6cs%gQ`XHhW#jmxn&fYO
zI-t`v;N4Ifs!pLPKD>Ay;4z>w3L3hKyvLVUSTe^*S&rfzA<U9V{c^uMp;wi?)J<O{
zh7FTbl&e%1{^Vn}dt=Ak+X4Pk+Z@)*MO<6skMG?YsxZ-!UXm>5%(Uh^w^6f&`~U2P
z|NPkPT48Kz02qmfPo!79F&Vb5HP#$`a>y{x)Vk(YwutzlXt&iL<C;p_Q7GzW-jVHm
zqDY&F&#jxo>p8Z>sNG1{ld8Q4m|#0z9EB2)f#<vc;Fg~+sscs2{Moa8rB<)c17RT{
zyPmP1YpdFi569wje?4}2>akqM3CTrOB117aqrgSpnxqIlH9!AycHD;D)$b*41Lj4y
zlvT4Fapt=wr>;TimTg|KCoih1#F(KeThydNLe>Ou#wW~4KHJo!U`^VROYsCMbK_C}
zxygIlBD+7Njo|0*G&|*OJ0m8reXRV%2bJH1$4qBJJb0{8Wp;H}!WQ<2`FvnEwRPM-
zuL<O=zsfVU`SC$BYXX)XtkZ?SA3%;z=Xk%~g8~kX1^I+eMRzu+#2jn!DfTkUd&D78
z$kbfY31}j0|N8z)+EnpuYF4wR@uc>d(>&WuH9q*r#W|{XP23Z1c3L<P`$px+?*xrB
zpCFO;?c+OjVPh_(Qr0f-x4osANnKJ*#^Xv5wi5re{U!;@sP(h9@lbDP#Z(J`F%|>R
zDI}8hw{;1U(EyRH(5Vu8qc88}iR378u(T}jP%JT**sINkq8}5(^Rt{po<Bk&kt~Lk
z`aF6WRo`ycnx4J;+zKFwMa$K<GkiTY&;|jySdfX6i-c;YEZ_6a&d$QVcPE3~TwIjD
z!lxFDAjRlSzpJ2R{R6AWWD%gV)(>l(pxwm+Me!RBnoRU6Fcp`y!<)w=cuzq|$$j*X
z`>=7;GT56@r_H%P%8dX%a9>+l$Q$T%F;B7&E)sF=%GJqJa@_<_aD;Ye6YA9+6j0*L
zn-2iq`{f!6bxQdEy9a;i^E#IY?fU4G6GO|e>M{4uXA80l?@{qE2NHX@2-Ph<X%}J!
zjIxcj0h-ur{O)`F@Kk1?s+1!XT08P#W6Hhr>l(SL#FLecJ^~b~7F7A@@T}(O$so0u
z+LYO~eLRuLd=ex0b&VwcsTx&Sc3-RNRopgzIgoQh_9{M|IEkTXNhMKV$Ld}@`YQk<
zqyY@Wa<VWpGy6}=>A&v*Bn;o5${!{d^Zd8SyuKluTpZKwBhYmH^}A*Rk=+N4*}@a|
zJQPDNwr|gv6yN<&z{mIeuGsf(EqNlybC4x;inzF~hk?KdR_*_|l)X1u)D*bTid5HU
z&z@n)z5-eqlNM{7Y=_m4mYZ4k(%#4Gi=shAuz2HjVvnhMX4zDuI3mYDxe~ZZeNd&r
zo;JdR0w7_nw1>+=RSIF$P*0|t_B-@c5Y-20fIdH<haRb0<pAurv_o55npGA+M3e=g
z4U<lM#$*xH8F?v<#blz(k8iD!1F8afzg*h^fF5|68il%TVOlz()cC}fE~RO|en!d#
z1I1MCTv|onOOc}b`XL6h@d5W@rM-&gl7VsN?#LXDq^$qxnm@t+E-^HI2MSea--pVO
zb$SHEO&#Wr`$`B3r7ZfCdxV=`u@FQapnQb&afkKeak1AqfW(?B-Z}Q<cXhaR>izxp
zpOXkn$L)f~6M@q{vkx4-|K3dqkeO+N_aCy&E^H>9*{no3qJsz4_LCofJXyB$tq(9W
z3#SI|X<Xf0S84Td@%<h9XL@bCNj@!y#dMfoTGU0!=*k<d@tUq8@MZ>mC_$Cmx!4UB
z<)i=)qlV%mfcEp-(htn-L3w#nmYDwYTiPq@a{&zrxjE}m6c~ac4^$?WIlXs?6NM@^
zQ@qnSI)6l{c~sdji+eNNgR$ZrjrE0CYIOtKb9y=7AayAzY&9udi3@cn8}~i+6&Cc7
znWb(ca+-?oH$3hN&bA0RxX-J8C?;_hig#LKh010Js@<Wf!4AVir`yYwIJ5<YGS8yO
zbKgIo0_5e|o2{rjj+gt$cN{`y6$~=f?SMpAR#xVL3OO?W6thh=Y&}$M>GOpY)u12O
zDmmfF=lh)Bv6g4MTg5U}tvolOMxL7}-tn%RRYaOw<eDVhu(GO?w5GK68*Pw=;(Nx9
ziOVJHzbf5~y7v1?{&%f6Zolf^gnB2F_kzaZ<?hb^7(~KbpJ1v}mAre43Nng8ph=wL
zSMstQiH6q{!fRkvCT74;36^cl4c5xdU)}`3Igxt=P3?6BsW5M#`9M&{{=gj27iT_h
zoBxz7N9yml#@GMWxD84&=kN)b1bjK|E@3R@Y|r4}OXwE}S$FS!*?F?;t*n(N5YG=1
z{O@3>y5)$fInn$|5=m{-AXXWR>@ITS1U$cEztmHaOF1Tz4urKh^cCQend?gh%x_{E
zMZ~c6#oGb}#TdAcH{$&7a<pQvD5k1?Tc1nHJL%JUJjtaaO{HFHpu#!Uf3`o*sqNYH
z6D`3`pq4oZceD^f-N}LFGyK|7YkCr-mc1vh?3^;Nf~IW!`ucqY0R=5i(5<S_)GO_2
zDrPvU8#L<vH?C&lcXr&rOIU69){RH>iC|Gl@i^LXp2)^x0C8^oWOSmoi1~><62qc`
zv6cgG9`!(9C1Ht+-|$|f7Fz%qP?3V)MiDeLG2dNP1ua1j0ALGxKm&F1wn}AnwdG(2
z=sr5dGgc?}a^2URJn?(U1*jeH_B%XmMR#w94qKF;-^}O-XuuTxUFr9IllMZ^X(67|
z?=0TC35LatEh*n@;Px}THH6hLec{&RbG5X;zyI9CuVnOiP(~TXL9q$1@kNc;eQCd4
zu8d=|%lg{tURqXQU#;<p!o0joh@|#h#!<JeE&#NdNWVcHv2+ogL$J|q*V>j1tmYY?
zSo)%M9B3N+-(r(MPlQTRo5j%jSAR_qAV8ljW@=XEeTjjMVFD6ebs2#6&iLbcB1OeM
z#^R3p*VsqdL4%wMQc)P8ixllJK{?G&+nWfy#ooo~zP4n^b`{MN9jl~X4bzFSl$1l`
zw`<S!j|F9@68ViO40_vd7DmSczJJNKI(3EKk;fsXD8M7sB?H)y<QS`#&u64+;!ehq
zKoit!vn7+D;-1p^c(X!H{mIGSIWMYbTEdsbz{MPsyzc2@L)|m!xGLAZI(eoRY8+9Q
zbK=eEGM2D&fdF4wdR$SMf-ZStSO7!5_sit-{jAedJ_rB&Gak?qJTg`DeP(8cKK`=N
z>9IK7VArP1w(%Z#+zRCkjY=>Kia5a1S1m7PE|1=-nPF<iw7H4w-kxV#bguclvcQ!S
zdk(=3q0vR((GiFQ4G1Mg-Zfs-Fs(2ayOa|=|DLm?e_^6Ml?1y73ZX>0q5G%jGQa?=
z@qU14Ku85ml(e?G2pjJswc#IiqG5wg3&E-0A=`-=q~uzZT%p%UABvs<y;E{1L&<yi
zNEtU!;HQZOJ;K9NP??z9N1B_P%gYA*{QOpig;A)Otxg;(VH=FFO2-x+%(R|Eya)oe
z76NUf_DLRk+6;BT9O{5OuJ$r$mg4pInLpa3$sqV4IEu%tFF;dCLBSPPQQp8=|L>m>
zQt!P7s<j;yG0*}V)R~>JZk;bK-L|tt{wo;r{q=h{et5!_KGgc>NcCJvn<^Km3bM^p
z6fhMyR+WL$$0)GZ(@m5GdI2PZ#(Vm}EK&uHmla0ZQ<bP7`IBD#)~L&XA|mzgm8t}X
z*EIsgK9;zDxYpPC-zyunx3qhzGe@sFS|&Vnd_M}+l2X1&)ptT4(dxatzr4}}0qZ|%
z{#?x%4^*_1sqHi6ZBpIP&z6v8b!7l5UpZ7h#Q2y_cFyQ*j^<AUccJBQz=_=t|NguE
zT>^8aWL!B$eJPuF`c1dtvCvJZc^$abbw)!OQqN$yMUVvH7PrH=?{HYTyHC<ugt)lp
z;YHmIP%KBqS%+@PCJVguhf=3MO+PqKCM;KW5zBzpWhrcfS-(`aDU@1T{S1o;E~+lk
zFfvvq%L*_XyB@1MAoV_hiifM@Wk$h*-In*W%hqq3hcQ5e7w!1VF#=bawJy+M-dBU@
zcjP4*g=Gu{aMm3Lie(na{ZD}8sl~PfF=%PR$_s&(>416=`GKXK&;Crq^NAVuz?xWd
z5kv{_0iaRz_+s3NhyJH4njqV}R5$mnHK8=@^{!2Wkx;cQ{C1Zt1cWgHK#ny(lB_=y
z&M7!wKS#23@Kn3=|A^>*3L#IuLNX><>Yy*gVpd9l{Q-6Ebdir^0!A!e1_o1$<NqSF
zpK9rg12;w3^Wo(jFw2UIinixsU-Mo#vLR%eF_}1H`D5CH^yuPI_#2>U0{K}kC|{sQ
zYm0mhnVnlazsncd;zytS;$aK*Sr;Lvwo?V+9ouo#4d2?YHTrp`@S=59G4qe;p-sdj
z44r7g_pbTC@r2f{Sz*ClK;>K1*T9-f)EDL8H-@HeVE~`geDs#`D@T7j%RY~);<4H9
z-*@IpLZbwWV%qOa9J5LN)A(%yxdQ+*6B~9WRm4g5;PC_<KyRz|Ht~pFr!Sg_NOnUQ
z`(Lgbez;iygC4&1mXBfKQ;>Ns9t~H!$$3W1{D;X~l0-~f7JTyijlTtDDE)(l5s$n4
z3sI%JakJarg-O>h#oJ@(BrGs>BT!CL+n4L+KvPr*S@zKBg5BB!-H)a?ddmt(H*_Zo
z+DMIVp6=6pkd5O+VS~q_mEHhE0F-ZM2}~$iKc9jIa<9&)CDI%0FG>Ds;smt}F$c>O
z5FapU^9r5pKn|hRPr9>58zWiPyeNsz{{9(O=s}*ylU&#SmnHQr>zJP?O=DwGqXgD#
zg)_1DkNe<l80DGfu|PC>ChZ{Tmw-aOlA1?lKm)l_Y7ILr>+D?31uzuAhH#8UOVxhc
z-JUEbHkA)W<j-GJ??iz?0TM1aKRj1^ySiQg{&4}Am!jltKfMmG-nwI-c06Lj@_W@}
zzX7$6HQcN%a{GfcCl;2x8#o<cItbIF*!<C#F=ews_C?;R#Kn57{2|2muvL0)c?oJw
z4>)VU{IuEEDe!~h9@#i*$`)pdf!hlNVs>^G**Ji96hLX%7lmkpL#7DnG;#*SgIq*C
zlTlx_G^vt(XehSN8%UE+S}~PVMr==ulQG62jqmG14Xu)Qu8|P)n=wK=GdI>I5$oZ`
zW^sFesXbh7;1pGP4*XQhIC;KO9X5hp>p@QI^4CmzYAZ!{6vFD|na)g283Qa3rYE!l
z+cgtSSg7~UHa<Z&$Tps@$BJ@utEiz+`|FV`K!S;uR%Co@F0Jx7sCIgX4<Ckp9Nr_n
zY#^1iSnsc%DNRxW)u`bM1GX%3cO4yu2q#gOig?ZkLMK>qn|FkNO*0k;7Hng~|3!80
z!;4_P6$|dr?AWdu-S#yt&aePe=J|NqCx*#vQk_S^Znh?b)&eHASytk1@!7)@8KQqW
zX3PcPXgrVVE?C~WZFiMNVR<9E3;q)D$UYCnI34RVr&paT`pz+%517rQ3ZKvV!q8+G
z81uQl_P#5aq`Abt7TuP`Qvcv{(0m{Y;~);eRCOPFA}9k9wy<$yvW1R^U;2pCF-?l|
z0h$f#Oe%tnp*!VHOx*OO5bXYv+!Osq46LDJA_5+0J=1;C(95rm5bqSg^3ekQF^&a$
z)Kn)7o3Iah?e2A+f1;oK_wtPJJPpzfPpe(KMTanqp}nP4<(S7ZdrMiMZkhqJLI_7$
z7~9=}DipT1z?`vcur@JRiUIkj?Wf!tP9h>TlXydx(0g{@Uk>2EfFgvbHwqxVu)izE
z(CCL-reE_m)Z$JeMB@G0@J~Fv<E{7ImqO+n``tPF7^d@MvLBe5v28i^w20GIzURTr
zx_6zjr84&Y6zc_{dBSAxyX?=Isr)?=r7ZO|m}O{zSx5M|?r%P5Jj4?Hoe*HB^qH_7
zCLYsR^L+r;hOk>e85m+ai`fw*hGsPT{h_3$fqIqV&C2P9Nm$rj1hVuVF16*+YT$N$
zXG%R3`L)^lqB-y@LP%!kFnkv&lZ!#%vqB%Dxa+-VVB#>{^|WXi81M1h5wcRgwQ01<
zXc_n|B2Zrk{(dI?8CVf-8bT<XDpC<C2~lt(Afd8!H<fMrUv(;Xz57>k0)Cp!AkdcC
z*IVzm^LsK^&#*t}SZvROdS}cRh@$mXXw~`8c9lD|?TKxnBiWTo0gxn4%%g_!=#rZq
zX;4lS9GiC{*4SQYrRG8i(?9_NQ4~mWOM~#v%d<JJXSG7uIkmJ1uMh@i%hgnZbVIDL
zdp83^=G8qu%e%FTu~Ei4?$qMLQ~Rf_SFOxtkXtiEra?9Td^ljx#M*y-b<+LgQ*lBS
z`umsHV7kVO0QM%5`{U)&Gv-jR5sj7k-C2Vg!UoQ72x!GQBPjm?uh5+P?1KjnOevvY
z_amX3GCD#{fE*p){qP)f0-Q^8GqVKfHiwW-0UYOo(8@c`&{8$Go<dW0Uxo9@gw_@7
zjR>K&EHE0s1=$N@<h%xzNo2A+b7>l23!yir>3SYv6_P$U*Y5mP>o5?1kxwWi8b?T$
zb<)l9{R7Z0XxESoa7JPTgkCQXk5hCuWv!i32#Oh*DV7;p4)4Avs%i6dDw1OY?^9@P
zgcBfrXz488tH@gfSm820!*MgV6U~?#3jY4O#Sc*$=rg1gbqxMzT;aB(ev#wt+O+uA
z8zh#I$nHGnE=`x8xqv#FnDLogyZQO~E5YuD-Czp6QdwY`9d2g+pX78H6^Qs)-ar4I
z(GPG0pj&@kKpC_f$PTsnq-~0x)|Ho+FDxl(W4wCCv-V=Jrw2(Mu>jveYzpEiw1#hc
zLClxPB!VDuGL8vt1(+xV2}(;#p&{MP<b&i*A^=On0*)e$>wo?NtY@37*uBQzj_=+M
z+Ev+%C)m7S7gmliII-J<{|n132JPfzqOR+7R~|-6`nG@;pep#zHXbqR-Gn+I9}({c
zhAY)aN9ixd`Ij4eIE?e3h!Xtw8+7D=<Kx-O=0{W8A@h|pGYh!(n{v#HP8U>ZeE-0}
z-l!&s0c?;yLPKORXk;LUp=FXfkW1+ExB?DD9P?+Q$Lfi;NE{P5j~OH-Y{?sxV^EC1
zf3$FL05L@e+PZA>iG5LEf`eQB6M27O^fw=X5i$aCHDOHoXAOg=0SQM^8`r=JwS-*|
z-sA1<ZK*1lG#T_0i6h_wkQOq7>4qnh+GNC*j>6o)28Fq`@CN)86819n$Q<NyWCDhR
zoUhR*JJQ{O746cV1#d9<pxn(ZrUM5YL2GmcSrq?n#vxz`eRKR{VmK)i;t+jRo;Jdj
zN*-UXrKF~E6nQ>I-ld>+{F%+>l8yV)q3_qA<#FZu%O=YUt$xtbM}*?_ZX*p(+}j@?
z&$;nCenP}fU!odg%ax7p%=I^YpmGUUR(teaR|hGS6S=mvwe=^2b;7lM+Z869HCR`#
z(TQiMrz!wpo^xw}OxDf!cefIHzwMTX)Jz~GhQ^|+_<u#vPxL{#%Pm4-p~Ccm{(gDS
z{x|2OEcS72g`1!LUO`+&@-DZ{z{(dj$`H_IgO!9C;Sl-^g71E9c6|tA=93(8=eP0u
zkP&lytp4Lk?25h3nOg__U|pUWy~nq?s3B|vYmlLOwK0+xu%gUm$Sa&-4El1^Zb@&w
z0VH|}NhmV<yTaSDXki;H1+T%Hb2BuU#qI(l-fz2uK@x(z67ctFL_*U$MyJ!ytbR-2
zD57+BX7d>;Yl5`Mle<1#AA;15t+yYZO>NhWH#|ElPjM4eK)TZDr?-CQhGIUV>>;)!
zg`YY)1oU8rx;@mJy5#R5nqcDVTLH5J!AFT=3i-$I9OZ2g@&J+vbOpbY(2IciDrwuA
z&q>&sQVpK!o8B1VqMmiAeeMt<vdAPtG|~VOWy%11%~Bc~i0gC1M#yHXU}Fx4geh=#
zF*u6)l5VpOxwI3Ol+<~&9LE0i2IHZeKri*)YRV$8=DP20-QmZYt!Ah^E9tZhV<;|j
zUZ)T+0GNB>FK@0lap|mQMBbhi_z+Y$AtPZCre2J(6<iLQr%T#JT!WH#6C7gEOkygq
zh3C~2Y~2eqb6~D&z)KF{RdlBHFvWj0ba>Ezz;hxtY%Rx|UWdnjDz+#Ioh^u9H4;;r
z)LlG16`BuplSod2fg|CYNFbrfTH5;DclGwB(O2qdC0~pZ-!zmt(n@Z6OAJANhSfzO
zY%{IcjiEmg;t>?Xe!L+&0nt$fB}!-otukP?-wE+2%uek2loPA&HXKZqq__ppXzR`E
z=k{=I^(ET{&;vOaMv>c69b7bSbzHjDp>;e~PotyJgt0Raw4f9f-+WLCA0L!k0;|E|
zjbYfp-VLvp4RAm9I_w7zw!v^y$V`xi@he}W=<|)dtS%!?MkGan|Ine}HSRIEaB)E<
z*7~F+?q%@=;u@*=PAsinPKscVfLb9k6pW7ti*;t1;KuWYR#MuRq`Pe4*{-`~A>i4N
zyO65k+K)kB;`H0aj>USM--x$bR3_&xuKUpIF(pIw4J>{Z2Uup^W9@p8A%Y((7jF?S
z9FOg6R1r#4m0~ONYT2Puy^?+frG;L8-kWM(Zg-r{vbOg+>-bnOY|RJ6D@Gx@h7S1(
z;EFg-!N7A+34zp>tSC#^74*~FDjU9VHgOusA0mBiib8iAC_$&2F$!avH7P*G0uj&=
z*F9>#^c66MW9dJqiR=(o4~-7k)s@Z#!NCW^f8E+uoZa}cLR^X>UD0r@Jb-4O4guBh
zx4t&<5b8m~46vks`a>WXZtgRxeXX$z@gN|&336kM>GKsIL8hCt@#N@;BJWbDIkRSI
zOjQ8AN!9<mmD<MIB6vrT6iZR|xqj*I`y3{-f${LFuVf(sWoTj)svf84@Ga#*#~+7X
zG`4m!I2rHXQ_F0s4WXfyz5StUF)5cxbcZH}P?lbt-GF<TknJQygw3*z3#S63K9U4n
zD3&%A(uo<3Zf^aiIHR?BWPVcIamY^YEw!->Zts>(RrKrvv8wWB`yn>nVWScr2T1_1
z_WC)46nPzlc!(FIy?~6`sy}j5yC$=%6?wmfnlJu+Q_y{(Rl9)z@8;=AT3Hx7emF2Y
z6zQ(GZnA$oVw)i0#+0)GI7oLoRAC*^O#B8SKRnud@{LR9(Z6&_!E*aBPa1XoEC05A
zQnrPFzd_a)@YgszC^RJP%JXL8J?0gL<*&nuT_k*cbaDyeVy=DVP9G;1_mVwaTs{Ld
zs=W4ov)cSSjx&>KzQMCJ=yFNS=@JKau`02<l59WV4oda+@xNE^@G=Rb0p%u>(A+XQ
z<DRzS1a1ow*+jGlFgR@%Cy9*8b<k?*K)J1vIK~BDwQmCy8KFT6CYl`%?Li5-yVb=>
zYCr=k-B5MmBBkSk!_PfB?dT^wnUm6zCo~z}@K<tu?jTrP7ye7`<PNU{d!CU+;N0tv
zS#5Jr|E|G#sIb;|5=^A4eM&sMn|3;+-TGrYAhY0DRz}!*(50ils<FOT#OH$C{b+q>
zeiwaP<94yMEXb>2$tSU9y54vpqdck(*LS_nI=SYl(MX}*gU)GSG~`46oc3ztWs`U0
z057LEjj_^Cz|?`7d52I~uYn|w)fj`vifFG_63arH$h=qIj~ux(8f7b0U}mUt3CUFJ
zGBA^8DV^XN>Q+M?wdoY1SmKAT&5tEFor|rrwPKCiP?*mIgQt$L*CsVAot+Dijav`(
zMyp4zxN$ZzqM8vBitt<JANvU-HuZB?URq^CPFH6p<WvU$<_l{!PLZcJA0X7u;i*fF
zLhHuyNS+t;a6>pq;N}{{a2AC0yaua}C=XjHJ$R-F$+)v@y&+z6=&b)s@H+F6Ks8d<
zK@TokBx*D)Jr>R+3jG+uLl8PI^JJ-+VXdNG@l>G5G%_~e5&1zVcN&%l6<zOMR(}Pm
z3hXer3?MJ>w+j!XYDP8#NT)tJiJS6imD~Mr3i04-e8&8c^9ImM@|@r$31UX--`e;<
zRPn-3iw?nuK)fahE`T+L1ChH+YlU7-9FAFqKarqLfWZcB{SB7Q>{5j2B*|HQ@gVG?
znLl<&pJM;fYgszX932_+1my=dC#Wlk2vt%>um)w1I9tb9JQqW|2F3i$bZ$cMpyhNR
zYlwy|0M_6N#3T6I6RluX8>Qwcuv)(}ysIIo4jP%np+@CDc24o-hDQj1h#;D*p8{i_
z4CuzUO|tqq?C@kHb+5YkNe*K9Q0T<>aKSGk$#8@rHB{Xj;1IVQdZx#;G=gjc8cOTr
z;sm&^vI~KO2s)ERnkFEI2?*!p%QQc?m2!^JSYHwJ1gQ-f_wE571ejA4Eqzt>o}H3`
z?B-h_dN+FtO+-`M1<NyJngcT|@#*b14S+}W0k%Lcu+E|>fh?o897e$~lHpT;&zLOl
zYU(-waBL7cArL7r0O9aYV(JSI?PKe@FoL0<;H@7YQuz25^6_dhP0u+dryPY?&-*If
zli-$aLMngashOb+(#|%}w8-HY#t7z=P1UDUSIcvWvr%l-xUsW92TsQadpd-TNhY*D
zH_5r242BMJPuR6Fp;SmU6)#MrdZ*B^jJmvmp_Z@j36SedL5_Zqos@6?`fk2yp+(3W
zka#=T!j4`IY=7V7K4*SM{XW#3x+^$uiC&CKd(i7*<AxwWm8|5QA(LN@!sQxzw~*BC
zu-tqVTFiFZIzC?gk<{R!=rtJlA-MUuV8Q}&uW(qy9&dMIk3OVgNbx<#9wX=|86rZh
z2OK}COr|-;w|+a)QUxZq9Mtc>M}=R}<1{?SwTuo*v&FI2dyS)A8anx4TKpV_7ZI@x
z@Fh;06&NbOQ2{uJfvfrYsH;4pT6!5-ZX;Qe``@vnt06e?9Bi|Ezc9tr+0NdLHR6Um
z?32sW{<SCqVCd~5IlGdwMoR$lPeI+p<7y{Tu;khGGqwxy&b4&t?+fk6aMb0Rmnp<a
zJq^aPU1ehLL6_7LwT!RC{6Cbo(3i7UhN@=?Yp~-!Bl!s!`Kgx`9W(UQYlyE1rJ(q`
z`%Cuh;)tVS^U~@l(m69(gOiZs)!le3lb6ILG20L^PzBurPQhq&;n7q$&p@9kDO*0U
zBeAD&X@zG(IR?>%A=YW1w0DE%`SzeA&%qr-a3%c&QG?<sWf<{7Mm-I)w>0V)Csg5}
zi~{h$DH_hz@$3iZk3gFZ$qQH(ED{Wz*F5O>1{`*^wfV-#w^%EA=!ale=pbE{{^3}x
z3k1TU;RDsdkKEmX=$=FVu;zht;b)3Vm}^djkbeh+mkv}$cNR2~c<^8IkoY**Co>q`
zuBYN=Kbsx6iIJyLRfEd0>x-FGSOd5jyAMOGYzWU-gG315P=_e19RU*kSm73ODssjm
z7!H|~^yk-Xz#eu7N(Of1drqNKk^{BA1t7Rw?M!U~_=8|0$WB-cZToTw<@mu0HaGMN
zRS-;kv_91phK%8HNHuL>mNaxphpo1$i>)E&M7r*6=Yt~lEhqyy1SAQu4X{^Z)tQBJ
z4IAs_tg8?+2UaT&Tt%H+yE>7I9=*SR1`Zb)8yG|*@1O41rNedqJe(@9pvmpw`WY+&
z=%z=Jwh86C0yZg=PNlPHVGi)NP>+Ga%oS7zFJJJslmM9`tD@tK9-I__-pD*6^oT-U
z=1?IF+hSM8@vONz2<}3q?$i<@L8e3D_BU-O+2pR&S8&j1yQI~tkvLC8B|*%|AFFSX
zzKR*+rxXTnyo!}}L_H98d`y7Jp9Z)@f+HI4bt)Hz;oMa|qNEg;l?i=bhTg!dwiNgC
z@DsAcRwpyd5bfoK-U4#e18{;lT`u5@7K-D7zNKXnDEvr$m=S}sUB6-!Myvv$cThtp
ztPGGlz#K0S+E{4`56$9?(f=u;%^w1!@So0Y{Dm1dc#B;=ljG{`FQec~=aS(?-1%#F
F{|zG4X`cW9

literal 13156
zcmd6O2UJu0)@M*bMG>zRsa{1vKoA9i(CmUJND(eID$)g{1f&E|o_bY^f`F7z1f-cn
zsZx?)fruzAkkF&j2?6OP1ZE%K%=f){^Q~F4?t3$9T(DRi!zuf}|9k(+J`XP&o);1n
z6-1#>Li&1VOi(DkZ^-us0XTwdrNqGxf$Ik6&%jUkw|KfT6n<>HrDy4bLT%cHeDk&R
zge;>_dr|slPMY0L;q(MNGn>V)t}@9bz7|(VuLSt^Z2la-_v4wqyUu1un`Pa%UOq^B
zxXC!yr`0RwZE&Qzy^WKK#`rm*@iqH?$Q~0AI@%|C{<ob^P6~bG7kQm=hd55;Omo9A
zOyAR3Y#XOy_Rip<`h(LJJwdt?jYA%!eCuTU2<0^>l*2&hINTg}{~8gvuMOYqT$g4>
z0;j*Kx%;n0HSw=$UmtXOA=~88<dhC-jC{9Lvq|hLUX$s!8-)teNab6Lx_YMs6*5_~
z8~gFM^Rl}hyL^6jsPnCty`Pn}bu#ho4?!Vu^~)G;Cv%34S+%OWaa5DnYHHMWT39>l
zScCfMD_5?dR~Gt8T<8aRlhL8A?QiVca*U*ULbx3KXg1x2H||fR|NQ>p3I;<;<Bd7F
zdU%YNrrEi2LN->A=l=X{e=G87U;3rbH;x9dDN~>2(X*|lnmxOtX*(aD*%3{{b~q#)
z65k>(zQyg!bLGIPI+^KGHIHs}-YhBfYp;i!o2k0EIU28co7dmvhzk4h$Hs3Gntsmk
z6oG?@PQ^Y$hT1=?*9MMcClu0ijM9j=wTQE9COg(hr+GIfIAgj&Q%O@h?!rie=0q!Q
zz9;A9%Y&CvwJbBwMYfE#6_f-odJ`~IJAW3gOlSG$hq0r&tBZ}ZlQb!IxUf!B{9$X~
zh3^mCruyr8=GqJhJ(y6us#|<-z>ox)H`mo!=<wK3{rfuH@+2*QE$Q<`*{Z@fPgG2-
zXrBD@{iY;k`};4Nb3Ld$zXRJgmXwsZbQC&N^hIe-QN~l)s^6o8T`R10d)$wqPCSj^
z*YqD(QB_ranV07h?b21|sTOn5$H!-mLa;6q)jud1EoL8)s1;Bc083d!*X52K+rDAl
zMKr#l*S`nLOk6J&e8k!)#>L&8W5y0!yXD9#m%5r<Myg>Pt$hv)`JrlMiH)x<vZqB=
zVZF<LJd*zc(MTZU+OIuG^zRLj8LCnu&%~53Pu2U(y%VuN7cJ?|AXq1mdpbK^r4!BM
zt~4#xm3>8_YKo>dtM7U|5~<ePbRfaz1>H#3wyZbMZ7$Ky-ahmCo98c@o&8oSD$x2Z
zrS4sY^RO67Tz}aeCYLTn+RU%s-yV4`?n1V-zIEx%r_xs}ES!|O?ti%E-u?Cs{n!`c
z4pTRO3~n|K!j_+(UqL9UoNm;`sCC~8k5FD3D{7n>NWi!*FHFW{4b&&FXXr*2?(T&5
z-(MT*EZ%^1qzsFiTw}|yj;}@SXzZ*^KOZeg&|Us69FtYX3bB458JK(Ay)$cRDNt2S
zt)QgjN?crAOcrE>z6qQr$7*(VR&d=KNMUo?9dch$f=KSx^m)OD<##>aSu*x+z0@l`
z=@-#DOL~o3(-FjqQ8|sM%+k{164+Mb!1*43)$1QO@Q0r~Y*~0_zBkA-!5w}%u<hX(
zCyF$&t0JVL(@{by0)-N^ANW!p!V5fXRV*vE;rp#WCU4s$UOWe@p9CxH*qBPVaWwDD
zz6^O%m5EbofMbqRO-*iIUUP?28o`ZNehxk!Q;g&K@dnkXlf0rrP6@1?38%Z<v{r=h
z$D31W!BhGt>miP96$A0szV(O8h9P$G#q8N`IBRF872KA4Z<VEmU4TQc-$A3)R}Z8@
z{(w7hcXv<H4w{q1eJKl>Lh^F*)w-We8K>JiJM+EzY7cFDI4rd~DK*>aMmi+YJ^Q!d
z@9*!qy1CKA_}2PX^R0(9y8yv)j&{|VX*!LDeW`lw{kpUJe&Y?F*KJ{~a9E$cQcN}<
zB5C*xIxqbEj_!YQ+RVZt$0-eG{^7omymQAP)0fT-DH=&fuH9XlpHOmP4ty*385(_V
zA7!ktiykn9&+%#0R`b+k+W15=h_(f=8vCQQOk`4TU(XroA*79$?m?xiM@@1M?M0#5
z*DCe$p{~9Qk*bCV^A?vGqKbJ|y<xWTqsAoOt`kCq@pE~{uA)#k_lEJIUWcIsP}OUG
zmDyLpkJn6a*PzCfDwf{o6t2H@H1SJFna`V38BZWBi?M9Rw)y;`Tk4PvKg!eY<-dAm
zCcC30N<uT30Qo&oLG&B%9&y9}p>WXt;v8FnXJTuMEGdIwj$yYl82ONTa7PqIUO|B=
zZ1SA62Q#PBba1V$t<QKu&eRz;(<m}Bk`i($uTOmxYQfxtGt1jHtTVH=W^;w3Z+T2R
zVl>LmW;Ul_vcDW~Mxhk``2jY-Q~g^G?scwQOa7X+y6lAe`EEV`SFsK2`YVVrbvI5<
z&rh&0Ie0%Sql)#Yc7v_e2THyA&O!RUPbht`MPk&T5*0Spw@n3w+O@SBh5F+J3VIPA
z-)4yVx+8z_;GH<uT4HYQ&tjXsTc7l)rzR+w9T9oPu1FnSw}wwDu=p|a&H6QbjeUno
zqm*AVTfJ;8-leZT_>)~Bc<+?AZK#y6W>hAu+Qox?ZW8)}4?Y~NU0_i9)MKjB3<L)%
zJS-bDxbMpe?dUrv(iPYQo1x=%+!aRK8}|cY^pWD60dd+><=W|~d)~H89|>I}bW9o6
zDZ=<*>?Dr7$NqC6?r7pg%h6{(<k^?#79y`$oX;i-YaWG0&MCqXjtQ#Q>7n~rTL||P
z*4>hen<}>9o*cq1o+_EhvKw7k9D5;ygEP<1G9)8Hm@c|oKO4)$*3BeM>QzSJz4>3K
z(N2{&@N-W7@W<o6cbi9CJ@QAqy%QwDy$|10=BGvfYEb{hHTnPH&kt<+289haw=rM<
z=JMjSL7M^!MK-Bhv%s5YF^$hlWap#?UdXtthY4A9$V(DHr876i=VvI}*A7E1Ys35Z
z=9wC5oDE&9$EY|rrH{=NHR@Q$_zq`07#%Gj&6$1h5-%qfR8&;FNa%s4fBa_q<y#Uo
zuV-~P1e0`k2)gutdK#1U=+UDWT=U!$d%wAi5i8kV@d*y(){PH7P#7E6t$_@LGBHCo
zR1v)*y={_gc;!l5gffKzISO^3!hD*QlqAY>(_5LKYikURHDYa;aee9znnPopp;BUD
z)(t-Khi8ydt{2lA$UdA+A2Fn_ewSMLT@&NuQ<Nk6?&@XeW~uR^oDyd7)pu)*u$2%C
zDWpX_l|B%wk8#zjJpLl#jfI)nC#-Eraq&V^!Rq#hXW$W_A`QCXomKM9<g(A~`;OGD
zm++H)JT5CgU#_IIR4(qqq7@(~XgpQl*2mkmF&J`^(Ol7)sJ`5nFKegEvn~_aP#8bY
zqdCHJ%f#)1_jYV~fFo_+@?hs?ft}Gb9Kn?6W6cfcK?O9b_uttK3+DIm%qgFthBj5E
z4Si(ggRrhm3o*>q)pgWZNJ-{nkJQ#@RzYdYTIGA}wIa252<lJGzq?cHCNtehyME*7
z9)O-Kwut>_bD6jcafB!q?XEO{U`#YW%}aWbYP5dMox(AC%zR&^NK~Kf4#7AFaygM5
zgvSkZGkP0);uONRKm6NEfQu0HuSu!~(D}1nMNwgPIS}V94@z!*e{Z6?9(96LJM>Sj
z;onwS|DoOd<#XOm=WIcdjUfRdl=;81D~LZP-<sr^ot(BXH<uGpU}YrN-2jZeDODHX
zH7!blKU#O&L)onxZgYC=<l`>n0VYik2!EG;G%*4?mgOxjz<s;Q`{Z?en-{Lmjdeh8
zpU&na9&;M~bAQy&Y>rJ*Qj#wu*b-v}fEY1+3;I*poO=KupV@Z%=*1SlBO<NtWj%ui
zU9wV&C;#<&|If8$tAhVYn%9oUHCl(^VTT4je1DyjbZ@vl=dx_SwFDEZ9jPs{dCr-<
zTW*J7ok(90{^}7~CU)nBb<mfgeHt5QTz$Rp;iH#0^a=xY@wwtC37WC=wx`N3a|b#*
zJ0B6RMCeJI%-rr|l33g%XfV<EM~?)5H5MKIHGKS#RT7y4xsc4s{k*q+J>8Aiddccq
z5kQDRR>yY;9unCcXr=R1?{>cBpHcP~4#ra2fKjE^O8x=`L$h|d2qcJrRU*OuzH&6t
z%+0NUguVMN9j>m$fBDVt77?)XT&&H_%yP4{&yM(3<PI$NrXD_g_-r)IOZ<wt`4R<^
zoA2I-Yev}R;BP->wM1c)Jv<YP@r3OUMTWxcuxM~^c2*hU+1&jPK=YR~?C*H!KmQ!T
z11B^P`qx>3bvrqYj@s|Sj85DAqd(S&p-dC+EBCDKy;&D?V2QN4M7le8c&>eqit`i2
zs-LGCaa|U_RkxFFvM9D)rS6be2p;O>pA#Su2owp;wzf7(ab?-R88ZBH3jLQb<cV5X
zr1HS%df?e{ReV~3GtSympZ2@DxE!(oWuRTDU+CLTdGlNf#f~NwS`{)|fEjtLM3J?i
zqEN$aQv$ct#Tmk(3#ZA8gUL%HMxptZMUF1O84;RZ-=>Q~1!jA&{^k(TJT*{{h3#`8
zhFCr*im-$t$FEal5FKXB-vw`%3jTSrCy-4*vtJeYvI%9Qz~i1sOW<ajy=^V#S)rkp
z=#8iop0R3S-1!NTu+GAXjLW%nUR0m+Py?Rg2gs^dVdB8>wGa0>zfmTrs}$)&yB;qx
z<>C6}ReZrfWOw^wDz6lnkG$WcWOn*=c&R6=cN!palfeLaorK`M8xc?Y)H}H7l^$cr
z%MflCYqYe>!xV~wOAuUH39d|?Cr^x!=X>c3lYIyD3oJ+seHr{SpI(5(h_YaN-;<lo
z{`~oZkjRm0Q>V3es)>f{r~Nc#n6vZNYF*rZC+M15(LL<K8isQ1f*s^E>?<Q|MIg#j
zkjP%rnM-AC6bL^{T1%z%J6M-SXNYr)nf5un;DOyF+!R_;HyYm?;=y+98F1%BX^uC2
ze;`E!(f}<@d-}^U2ws_YL$YB`Nx-xt-lsuB6mk!tX$aBG!2nZ^@xxUz#yX0$h2MLn
z7;<*yzj*Q9^y{g&#AFT#4T=VM5DknA%n5S0EookYE3VBD&Ag0^cc!Zm%0X40>06Do
zXP+VMzp1Jw;%p3Mmf-2~<Kx2)ou%v-FZNa9mbENllLn#%V0){G9u6!&v(I?uXw9EB
z*Hdfv*U`P%3<CZAy-k}^sqH+DlP)(A$g7;Z{Nr(JW!%)!Iox+~tBASDXZynr1fa|G
zE2oqbs>nLS>EXrKJ_rzO%1wZz!Bbcytd-EZ{TcxRUlWg=hs3#K7s|teu%V%edv}*V
zCJWdG2nT_pXMlMF(#RR$Eu+6)JQ&L{g_ZThwv70eHguM_&5l=2EScn#l(f;&Q8m|(
z*2+po?<S9Zj*~C(=mD@Je+GvmQzj!l^+uOY$li;Oj~@%1o(^j5n|zzYLGXn;i$Wg8
zHnp~z`4X<f&L$5}sz+r~aNIyEVX@;ke{$NNX4Tf7y8`vByu71Kv{uB(UiiU>M`!k>
zmb#QTxYzu7E)xO0Mgueb-3K|NPDB}}9-W&T1j0qtJZ#GNp#!Pj`gY<{nvN|nL^^<l
zzPwBnYD{=a;Aj4o0u`UZi?Bb=<Lw%UN1JO8<)pj-9G6|Jy$+SW`?FXz{pBS(z(G~l
z)?Dw|^{6o3sb2rAn_Z=sKnrj#Us{8z4%zRCVga$VdVTc{$x{~iV(7E^Z8KjIj}=WU
zjV{c&QFY@{u<H`k!g#@A+E5{i?uH1rPc-taLA|EdiB-EXiEW^YL53xeJwHA9o#HPD
z8&S~{g$bUl30xdV&?K)^f_%o(<p29=ShxFxKy*72)Fsl#-5s$O^;-9nSas~dOD6XA
z_H%QOcFJqv^r2`BD@;_TPm~Wys;a2SCSDw^nr@)KIQux5w+#x$-0pz2x8Z7t;ABp;
z$ph#XG+s_)rgcHr4SlK>wtkCv?v116G@gW#!CKJG286yvim5rSHrzOxq~<B<`F;&5
zechD6YuNDAwRgfCzdX-487|<`S?ogbM=HsyF3<O)&V99!uv8(l{1Ccxy-w92o0-VP
z#YhAE0!;ZeS&gJ1u@;rCRxehKRIj1L@Bk;MqWqtebJr=NP%EF3Ujww#(7oU40X6Et
z#8!x3cop9=m$hmqrsmOV6uM-p-;$!?vm^4Hs?Xq;Lf<WLZ8-=YD0)`Z5Zqi5bto;A
zBCuHmDcnt`1K?C;o){d&wWABpU`7q$1yAe%ux|^u2jW96Wg0)>JoqIMY9{h)YUs+M
z_bhOIJ9$r3=yWoxb!nDe;yrL-kNr&J>T+X#Zmz5a3!+_8!Amg)7LSOT*4EZhD=5@!
z%qOnsPuM1^eq(<?dvcf%J9^{K2|R?Z44xQD#Tz@|6ZcMKjNy`xyHAl#p_2OrtX)9F
zvFbZ(i^?LEm&Jcap$<TUk-3xvJE3-rgLD$8DD#F;c)JF0+Zo#P-I@3A3qU}DhXhy^
zJ3s9OZSFsA8U)EuMoYE<a?^ludq4pJ>N+qg7N*rQQXH>fY4UUVsooiAqDO0YsI2~N
z<93y+)hJTW>BQv$rO@UiRX4#TwXGXuMK<TdXVMqt<>ggfTCyZ(wk$$lGf*r)BP1lW
z1U$i#xPp>>qI~Z0ZlyT_@AuR9w^nn*ps+8NO0_bX+pBdxLo@*1y+pWF;>DLXJlHK%
zc(l-|*fb>MAfCaUb%df&=}uF2cRf5j6fGc;+e!Vw0>QIw7EY^nC9YRG&}&iEEBl;K
zEGX9<RAJ4r*M(RCNU*cLOaR+qx)s4fZ}al>iEO#px*Mw=7Phvw@eL3x>w(SR?yOz!
z`ipF>@VHK^9%WD#SAztgH^m<d15vcddmfUVCrIM^--FM9(1>?RcTQB(y*U_x9}bIA
z80jAm=5#co`mBX$UWM3YaU&YK#(DL}E>ag$NrKilH0NboreN<W6|G#$M05HkgD%>+
z7JJgjvo>2dto!WOFycN`dOcyf;-)eXH|1I%JduHqLv0Zt#|f=l<1J33PlZfmad2`L
z5>#OUC3ZVPDA@s))Y}|-ua(TN<yn%f=3qbnR$W6Zo8#5gFU<vMy}Q~3dcdT}Ece~*
z@<#WXTW}LJ+n}Z(LXidkEl}`t20)XNlatdroOU5wt4+ZyC=HUrQ#C@_ArGRbMd+Km
z{Il>?+O-(NoFd#*ks;^~Rh~h4ee*i_iwA+oAxzH=k94U(AMx|h>Qfp1M-vqS6R#J~
z*EOOgqL1m$hkN6Fs#4WDN$VDI-Lp`qvApzXWUc;DGy6}B_?MW?t7XX}a}sPOiP?bH
z+>}&SSXh|L`tquvfPQDaWP9v*#%>oEm*$+b5UZvtpq&*JR-lV1z2*J3|D3G&mLQJg
zW$$%Irk0{t7lfftwj`8BtN+;WHARD-Q2J&9boa;5>2z3~Y1%=hV4(C_b5Feay9D@`
z#i;)yWcgph&HwX*mkUw7rS8e1qM|CeC10f8ntfe^YLW*6%N`vqzV-c-HrOeh<vux-
zrO^TtRUx3P+h;PHfwh1tWH`@TVp8L!C48GsE>%*wnns)oqC69O#nzUSXB6TkF4L9M
zL$keb=fqxXnH_?Q<}xCi9og%`DP#MBKs;Nu69V<ZA<xv<_$i@JJ<1acNCo~Dq|6a(
zA$@2J4tXGVB1fE6Mt{i$qob}M_hQ&)SFYq07Pc_a5{(*UPPh4(w*+@MVQ%{B-mS9k
zmDx9Maym;Yz-z#Ed(rYhIiMFCXP(oKfzq5~CO44BJFzz%kx>>wsmpWB=tOX%{Y6C7
zvuK+%Js5i^NJ5usjmDcpHsdZ15MvE<a0I%}E-L$(kCw@VX4y^<Y+y5Ubvjq7$ub>r
z2KsAnfBf?|q_*x-vU}B5VBt11+}z>fgvZ89A4<HKpO;r>$_0H0z7Vpd#2(7L4OcV@
z8Q%bvPT?0|ib|7t8iiffdTW|zW;rSyt8c`8$wY^w`EGmoH!CZv*3M1{0=NMnuH-_c
zRlve=5*GdkG?rijeKLjK1%T(4_;~=jA>HM~E*IM!1qB6~Acm;AF@_(>6E6dQhWhQ>
zqAwGd?*h0TAH)AM<AG%Uy-mC0^EKdrs?Pd<NkRR8k+fTjd+vb!VPvGs^ZmsT|A$Z}
zve^|x1?^!8RC>xTMVnmcb~)(*611n%d+Y_1LScc>Ln%Je`q8>8Z_P<|90UA^Et(fi
za|}6tI&8iaJ!!=Bz;tc_Nv(Jj>gRa_gU6nUTcc^3JdOpP!C>4S{5O-wlO3VLP^oLK
zzZv6zx>wjbHC=W`ld%zKb{o<Uuxsv|C^g)>^(Vpbh{zYv@>V4`-9MF4h^T%YXpZhT
zjuZaxn+3556n2?H#U^3*J^d4WvVBkWEJw|N&|ArfM&=h5#`swO7C2pgX>_T|bPjdA
z7Vxr0P*-Dkr9A<vb38gEb;mJ8U(TYB+{F8$Io5bHxi|vU_~3%riwEmXWS;8X07WdA
z6nh~%xZrorlJVr=;Gm)I_3;Ps@w*ViD?2+|0V~LR<4XboqGd#7sC3`Vpigo!`=q7f
z{|&9+FZF?cv5owdKTpr%TLyp3wKif;AdqB-h(iu^0CIA$FG-Z83(0Cb!!5v1*|vbp
z0(dgE8);>LSV~=)CH;qHxV$)&=GKy>51^AK8T3krH$yk114)8FgR;}FZkQ7qBIhqb
zjkDJpuyT@co4t=FyOU>2?Tg9g8m=?7K8EF^Go?P(6svb8JK4AEI=oV}6;B$as2j(q
zfQ8l*y2|U|(jxX`9&6MpGV2+Z-nt>zlSPTiLN>^|t9AFg^rg4eF%}#ADVbnzVn$m5
zt+K^|8i@j8Rl*8v5r0nbdB0J{8Ok1|br0ItxwN59ChZlF#3d6a*m)gj#3*g+?jAG1
zgDif7o#Iuy2k<6*Skv#-(j2D%a<1#mejY3E@tJ)T#-8IhpF<<fgfi`hUn{J2`OO~}
z_n(XSS<(Pz;Ev4#IPJ1>Vsa0&Hd+b;4`yqNSHk+~mI+B}wI`t03T*zwNK|o&ITs~9
zVt@yzd4sKI0w$YAn*D{D>m2aiXO^cM*(p8^&7i~=O!m>-+FxG_^4%MEAwY-k{;A&q
zs4V)u@YwxJ`~u&s-wh9{!@X0#bK2j0V4|Cy&4_GQL>6H@{O`1uYn20_q3(tWqBb$|
z2!t!Zgkf=l38r8{!d6ifZZR35=R||X`RrFeAz^e?j~@pRx?m3NWR}xq0jBjN;XZ7b
zVDO8<=f@E~lz&YIQF&M7xt)>c=HF6pB&2hpiGgl@Df##%F!9hp-qDwY@0~)lIc*bw
zr5KYIl@v5K|D_?`>hnQ9)NtH__`lV=xdW3U0}9VCWEb1hwlvn4LOTNI;v>1U$PgYG
zx@|BaR!{obg=`>Q&^9|e<?JJ%CjDwv{pwNB<l$&{_p7T%asfxM*k)#CvLXs2jgAx7
zKtq0XE)#G*h2i4rYND`f8mDDl<^gUd!G=kt&DV;!1GxsuM`?SK<%=fZHU0BTOBqZw
zd9pkH;=!GdYoHM_7@&bp45g%|cEPoL(n7!L^!NC)RKe<gIe|qO)iF1Q0*kHi$Ls3l
zQ48u6xnUx7HOL3lG_KuHytRii2+nB}SYp-Gg=3z*S}eAWZ}VA45FIJZM3}i)oLF7)
zWU*6%r|Je_4rG$tP)6ms)7#sJ-6Fy4pC)+X>Y1QK6oCalO`gCt&Z8&D^QnojCKK3|
znH=53O^R=;=h2&XDIB2!hr*Gjzl94YfxXl`k6xWpTD?9F3Rp~8{V(hF=e(8KLzr?f
zl1U3LoWO3;`guaazuSw#Tui1eieZ%KC1R?s&ytdpaU>rYwpa{Fw2q0=n$kmd!aN$P
z#ZAl66zKS)EGl&ZYp6YI*4Em(VCOX2nn$5(ZQb%f6+3E%annO&979cx3X46%=_<3p
zcik73QlxnWla6`!e<~Eu1gbvmkfz9W1G6>E9}(Yc?4+t2b-1q(ZjTuJ<*BdyRkfKs
zVXdEG$eDh*@=(pbmlHsV1(gA4=}80;4N-=Ykap4qV!;9TAi!#_&dyB{dydV3%Ii2(
zuPRAm<J$7CRKSo+TT@dy+|O>CqRPN>hJkY5AwP+^Vs|CgpiVyv!JeGJ`~vJ?0(AQG
zOiU=5q$(NE{~My_{8F)KiMwsxV|$|0Qak@Alxq|d+Lc#8nfKM)=`&`qa<k}q<9dEi
zS`3vS9}O2v&NfI$+HH3`BYm;#X2<n$>S_oez^_#S(_bpEY{8^d_Da+|G6mHQgGcz@
zJj;vL0O}lJSV4O<$bY&U<er0gLvD*78h;$_%*k)LGMdH?^mK7i-feU1PRAR2nk28z
zqUgzFzqL|Nq)fsow?LOJx38(iwtoh5%?@!W4a-mTq`$y?#&wUk-vwB%H+!o(v_LXG
z7+d#zC^e`dcxfc(0IAt4xnDCR5Gu%Xn9pgt*->~P2y>{+)B>k8;3wDL-dOe(AYwrO
z)AL`r6I9Qbx~v?X9o{;!j+#p=o7+V)Eikw%h~CI}WtoYLIp{9D6E37%TUixG@9kXW
zO(jsDN#j-)hmxR@+A!PR&?E~0a}}F**<NbIhSInP4O4Q><l07xa5cpT^bxZSnIHiU
zg&ula$%aVu2l<#E>Ld~f9F>)*zR8MSCc!!f<kbG<h-;K2Bdy6ZWqoyJb`@eqiuYcf
zCb|1(KS{FdQaq#4`;%$sG><iRt&cxU|M+k_&JEK!+wpa-@#6aMlNcQm>(`TC$awMM
z)c0F&O*tm+Im9Kq&m6N)Z_+%Ip-l4@Xu6DV@4{zubb0#IgJ0>OvJ}y$9gHnzv$Uf-
zu9w<d_VVLlP>5s2S4sK^a~=SJ2W=XB-v)nEZ;(vbUh!*{>2?7FJ1;#yl3|K@<Wf*r
zXkw(Zm<4XuU<1BDiMnhOE+8bAKXI=i*1)Lqc&+o~j~dA2Pf?-sldu?PPe0hgDdZ75
z4Rh$7RRKi}8bjhjqAGe8w%EA*f`UrIVkL`bn5^c>fH}5DR>Jq9a%8$_23?CwNhC+3
z&R*+&E2r#IEZZE%V`Judwx!SlK?Z6W$w?zZ$6|xXMIp^rphE&(|AFo}oX%+NI%L5z
z&3i`bI>Zza>~Oqu0+f8cS`jdH$9Ri{xdnmcQ4oU63E_tlwB{`RSQY!)%|c?wFCx+Y
zQS%rAr9CPF0<c{WM-_CeB{s<o#%b`K<F0{3?s{R#S4ieWYtKE0tjIOa)GBN9y2%mq
z_V1Y`HwAc4c0%Ga`l5A-@U1hX)><6x^sV|%Dl-TUgBIt@uyh)kWnz?a9a$6{A`$N*
zOA1OvCvfPorIjYbb8{_oz3G)$b2;RGvJ>p`LA@eR){1p7j~lqpj<$(H!P|A%Dobkl
z+xo!1NVVWRx*~JZR1ok%6DXJ}-u-$6J91|N=UKr-h(`{w_K9aQs9)Mk!<kD9ebHDD
zblm`3h-!G>@C&3U$PETx{^F;=PJRt)Fc!EGwqjk+N^WK!)!L){YzwiGXATYpD3`7`
zZ?>LXFCp#1+{6Mgal{*<fplY-30#~WV#8D)(;>n3CE``UkWql!Kn0b@zgX0OHh^gy
zjkIiE=6vw9ii*lGYn8{s*6wlYuevx=!a?S}kQ4<?7^!x!5PB_=eS3~Mevz!-)iMF|
zRLBe^GI?Mht^G1H3Z0*x1WUSh{gyA9sW$BFrpenKI@&Ik^5w36;`T<J<A(lFM0`sc
zF1Ukb5;)i41b*`=+<Yagt=NSgoOdjE;T9R_Ji0I9m`dnMFs@IGCF{bi^o+Hk85t2Q
zi_U>ymvr1csW)^L_bc}tGzUh5ps-}nLMZNxkd1-w|F#jYSW{M?aJD8z_)$kx@D^lx
zbZ#m7chJ$qe*4FHoE@@EF}1*>QgerQ+xk8oVjZ2xgL%RITra~J$#q8r{b20J4JPjJ
z<3ZqDfvrFLS)Qa9Gs<RfT3Wc6F&*~-nTmV)@}<X+!NFKtL$-SAsiD|@u5i3Tr4Drg
zM)cTStd&y07f_A<D2#sl?1B;V!+3o{;A-dVYvFg_UDek~sH{ZB`M^R8&mzv(z_ig2
zC0JwA*uF61*C1>^-G6>GbY&>CaK7huUu4ozhYNFaFq^n(=^GBNfBI0W<!uRn%4@|q
zHi>FCJ=DmAEdoOav*2<K6Uur!3sQ||eYM9Z!Flr}(Easv7we2JFzn7FYuaBIdjLyT
zk_;Mq1Cwv1O0(C5`66B{|JY4!f-e5MK2jI%Z{G6)T7qMafAHXM5CG5BIZsj8eYH^%
z1;V<^uj>~PGW#xky<7KNFJwy5muc&t7rMHFOwJZHZU8}Ui_XF~LtY+<)VN~nthw0F
zF3P%FyI&uv)&fGJSsS+>bcTMaF;qELSpN)g5=>2Oc@S53quBAQDE`*_ji667^Y6B4
z8i{cNukkMbCY2kXw%U5t?5tQ_;TF-MbDWD5EulppR#8)9SFnk6XcsR)BCYol2V;U=
zSg%+g;(+m2^@&^rJWWR`6byO5C=|rqDPa+?Hn!6x2b7o#$SB<$pS6YifR%7%wEuW_
zIkKC<rGgd5)*VQYeX8eM9!#4Za|o_X*7PTC(dd6-IKQ)kN`^ZD&n5+V9{x?cd;?28
zBAR0k7*z1SAmg8~!%lLK%>CXIVy*IXRSfN$>*C>YJXXf&_~h;GZtwcTj!-xT;nt5C
zBq*xZifn&e19p{it;qg5t;POW=-0_0k~~MKNmnP15->fO=!<r@3miEB64X~DJ(A#e
z$&iI>(?+W^MztdLCV9^go|B`4(0A6o(pWbeu$|eZjWrQNE8GdSJhRV8n|7=Y<Lgig
zols9xu3fk0&KT#$Q5T>)ZZKZx1}hf;#pu%M)2DNmqP3>})X$+Ge5&^xM8_KmxbOFN
ze}O6Cx3qTiSASfC5!C*aKE>j}aeKpT6XdLeoHEw9$}W39_sq;_olXQJz~o91OvwRc
z(*wjZO{7M#e`ntICry6bZuA^50JVOgi&>N~$x)206Vcb;GJ96y0cZfF`U2Y6CAqkx
zAgqu;f9N=_v$A0CL%*cv;OXDJ+uwh@d?*R5-GP+*xb1uqcZDR-tsncmihM^*d>|VW
zCqm{cYem4o)l4mh-d0prnM49T!1PlHI4O>RHEW;0U-R~fpLb+|J<7jr=z1-El4-73
zF}$zHd*HM7;IUd?^d1rn_oaZJ($ST8vG(KjH#e<g(D$05Q+W1<aNU7*oR`2pgJtct
zzbSA2>If`ugU0wNw{e|8@I0PVVI;Y+qZg2<vvlHR*=IbNI+f$c2W>+on5QdyXk3^e
z0rXz`{IcwgHFv_wzunzbNcY1~aN0q8SmP&?mBK2!SV*81$uliuyt*5OrkK@P%xc>!
z%c6rpniy0X+}XNYN*@k5@8H0>+E%%tt40ZSfi7j!e!&t%UW^lEQJgk1BfpQx_N#c+
zIayEl;gz~)aBg#a-t@VwcI{ZWpKgPRV0m>!(UsnQTZ4G<;6afAt$#|PGJciinHGZp
zj6H`4t9-oHcaeW(#Mer9WimQWPr48+;*JDCLEF&Ed3P`?E4bs8v$bNLpaou%g1pSZ
zWjr}9D8U*Rr!_+!!(5J!q1&o1bHy>D!yYp{{7@#f34n&6C=Kk_*%A_tkRI^Hb8nb&
zF{q*7p|U99YM34%WlEHVecXm#avQX7Mf(Vy)ny-T5FCQ4LfVNKY6#3P$4f_ws$Ky8
z(gaxpa|fUrWNtT9Kbdh^cBl}@_hsOLij;*Pic*__NRRBMF5Gkcnv{*G9W6v9JavM?
z1$y|1ct}6<d^7__ut{<97URn9t+~clRkz>3{5$?d@4ap>?fw>U5CELP7dXzybZz<o
zIYKD`E@&zhy6k0KU(5`JnSSK`0RSq{+?{gVJB#(f?UWn-dOgn!)D=&2FnF4A)xD2V
zwK@*HRRKxrUN5$&e+wfI+P0RzB^E#(`-P=e05kdpykF&bh8BP=kGwUob%Qf#`$-x;
zFJWRlHE3J|!4Ls#n}C5hnBHi9^84wEl%e}#9!(J3TqFWJckcXkdX4_AFa!<G-3vE?
z@RQ_OhIIwJn@~hm?pitc>ay&w@p5GL0jBk!;DVP|X=#mTo+irgL~Q7%=Oy!??MF)K
zhD0m9op23M>Z>1sBFco<Cd_8MVWPWHdp_kLIDT;N^1!56f1CaBSP6M`BS?V`{w0X>
zV^rYBOuL{<@a^6_`^LYICK85wrhHC~6<idhF(@Jd?-P_((%Fb9SOISvTroB6Llp5$
zz%p*gn*@+wSa|cm4Tvwl?W44#4vz*K(=ao~{KtAWT)isQ+S2j@bSkh5Er9V=+u>BN
zhWgj+v=|;t_B4lwYRxmn0`Fa#x+mE_|7%3I8sU!r%b@OZ=mCcg4az;qdKCQAKWlh~
Jc<Soi{{~{x%vt~d

diff --git a/reference/Rplot008.png b/reference/Rplot008.png
index feb54c480dc22527f37c3937cfa4b50a69df8b19..3cd3232a7c6050ecb0a51d5f39ad67d0ab6aa567 100644
GIT binary patch
literal 19732
zcmdtK2UHbnw=Gx%$skCSD4>9XWXV~AC_zMW7LlBDMn!T^QBZ;;MFh!`qabhqK}nLc
zfMk%IdzI(h?t905@4o+z(cP~{J5*q^ckS9=t#7Tl=A5g-Z>uR06VMVM2turUL;ene
zU`(R_@NnP}|Gv7H@CE1IEhTyQ3V-&mR|moue5V_Ft_VVS4*iGGGZt`!AQup2dD**O
z$;)HjeiYls((40XSHC)VxITBn!}u8F!a+e9NkBoVpz!npi&gz2N}erCTLb&<d-l0n
zOWg&YT3ehMhF2~;x$-06U4OxF221-p-HTHWH!ifk5fD$EU~+!1_gwP%&`<NmrG2mU
z?_W1g{G>`s4u?}xQZ#}|G3Dju`||G&F<f9_5u@b`3J(jrXo{4_SqTyt4VWc9h#aW>
zl@VEJ))XT2OUov~$m6`!(R!1IV?x+3s|LhDDa7pJQHpiL>n!~9CjA{Y=);roV-GWj
zdfwf#@O%hIn_@R*VPU}+GeioEs;MRp$9E@p5Ba=*-(Q}npLjzZF25dWa)dcn?b*uL
zO8;1Vtwvy~a7}^QD0n_KkWn*BMb^QAyGv||i(bSDaje~@Qj^$_cU$N=6S&vJbZ$7Z
z`JUI$XG%_^&aLU$*?7X^UaXi8WrhPnn#>G+S4#it>}+mhPmL;{2&iu3k3K8=o>s?P
z4sX<B#J*yGF3C(!yJu%0&mc6CyNbh1pO;2nO^xKy=L^VWyn(~R{H5>i4A(=5K2JAC
zYQ|U(7Mf*eXBVEv$g{xXMY=>X2lg))Xu`u{a2T!xEiEqc!iVBAsiWWC-hL$=7$8?@
z<S}G{hx3?&ho`mvWSeJss03HX#J^N>LQqxWWN*gnVBx)nrsm^~nO5`fX|jV=?wmq)
zgF(N4yGZQ+j2rx99ar0>Dm)fkP<KF(8h9c~!YC1@sV+%5(;BNjGGN`Cm2NwbpPirI
zGI4t1`88F#zKwrlO}96ivx}GL#mkrJzPqblTir_OIc-dJ8kveyDW2o9?(U_M_MM5>
zUP<|j`AIP$lV=0>urj(iSf1gX?3C9}6}2+n+D~zFoxm3kcpPVAU?HZ+l93tmOJ;Ft
zNg*JhF8jj=YyN_=GHrzPp-jUYk6+)JF=VhG%Q6R(!f8>%36;*T4VT`kFytnSY+km8
z&t1^$`c2ZZ99Jf|X)3tPXX_X9$?;ks`-)`^&$Am}-e?;eb0c_7yvx>bvB}ozPXpSW
zn-7nFcko1Ns);ImG_2&eu2wo|<_Tba6L4UCxV9FsTRlA!E3H;_G~!r)HQ=B(RcOIv
zbn^4#=B^a+mHMWsLga!<uS#`ZPxLd0$KG@)jKkvqzxB_!d)=`C!I3<5G-oB&gO2eF
zs;X!M>L*UzaFHiZo*+R@p=U>WZ{EDQd^#XVyuZJXpL)?>D)m@1{W0!YOyu|P-^<ra
ztMbiHPmb|Zxnl1c8AUTn`p68p`|9tmju~9buP{0Jo$yyjN7I*Z@;Jvd)~|0Q>FN*1
z)-D7$<Qr8NdafB0F-eWSsW)rFG4$JL=HTE6%3l&$tJ%D5Z2ZRgxTVKFSEc2Kyqn;H
zlcnrgMhTkJP3coCM7KUbQcYwE8{Gj43JQ4Gn0TR0>przeP+}r2A|op+n>&2v%9TeQ
zvvL<mgR-oz>N~<I@)9)}7Zexs&x*CRPzJgddTreMs9#FZ`(C{j;(5xYvS%mLq(0!U
zwzkh@_9KOU`!1sahby-!&d4<FmRlw}<4EoQBqyTbMI6fM0{1&i)?1}d_^c(%N209+
zZBEDb4#!l=w5s^dkuj)>^>Lbbdy5(e9=nTUyBR6*(ga)R{q^lz>)ytU^MH}(XI>)t
zOpUK8;?xPoKGu!zr{mFI&L)_|cyG=Pv2*wT_%Z#)cU5`+aPa8JFWGb4yJD^G&@_>)
zaf&zKWHYtg#?U!2YYLw7IgE^z*Q_y^t^TswT#Wc?!&=~}@6pL_J$f_;bzxQVZYzp2
zXU;fPk7a-S_+_-xRr3d}bbtgEmoCy#Od2ll1gCQ;O0>VM{eG0ZyiyzqWrP30maGVU
z3*@+`adD4RkC!d?>Q4`)E5?YKe(HSGeR$*IBZsl7bfs8EG@CR&A!I1sKid43sZ(Gq
z0{iqCyyzBpB{sF8)5BwB{@1e|3Fe18E9-~HBC{_vc`e#sXvgLj893HbCK$TlqnQl$
z!KdR?32%O5uc<T1e!ts(4VUIhj;-yQFZ8^lxn@Ig6d;{ncVKh09xAP(XFFcwJy_>2
z?&9LY>+<tP6rC`)SwN0`|8sQdi7B2fX3~?9k(Gv%Y~#NQ3(GEn?0x6rxrZ4XohQ}1
z<G!(pQlw-WOY5Y9WMt2<kFZtb<u77j!831Q;_#vm5&cQeG!0M)&hZBI4%P=sD@M_n
zO&FR&!Yi)c%Db1ycCfuPU!ivK+-Jz8ql;zydeU?%y<Zw0V)d4JHxUb`<>%*j9`>GB
zea+uo$4sDM`C|%G7w;kDI!ac>C>hA9Em7wm?@k0V$utpT6d&j2oSv+mwvek!JhT#w
zsHzgX%tJK9I51x8OTMc6cF8BM<K_dKi8_CD0qJ+!W;Q0{)TON54PJjtC5EMK`qiDO
zSyt&dAyqNv@N;%{s29#};C|9TfB)xVu3uH-KNAP5@<#?b)k?o%5jzsVpTyevEqIdi
z4?Rm}VPR^>G(~G3?)OcmPZO)@7ts6}MZ<@A>C&aWHuZq#PWXMp!}^9UZI{q1{>i%c
zwuwn<x6g;UF}Ge-ukC)FI0;Po6s1tY$?CN_x`LYD1Sd!H(yTN@_aL+G!9Kz06?Fdf
zJ^j;wmBWWTgYt~P(-Y+B_VDZWor*Gtv53^uqxmq!%$<6)ENPY2?M+8|?Ef4Zw|}?T
z^w%?1P3}#IubG_O{F|>HB(m+SO{5lf&R~p<Mqi^<zlDA#Ga=g_Txi&<du37);h-OD
zYREEG!N`c=jrZJnF8xn<$g<S(ST%L6?{3*?z{&nR`2iUocA@i(;zxsWlEd9KrGNmb
z)ruJs-xK(JyzYy4`+oe$`1p}X$JpCqc)O>cUed>{F<L52?5b!vvqQ?kfe)mN#L+Fu
z{KCT9y78BSN#%M4H`+N1!pvht6(O$~+Ktx?8LPpAi@606Jw11d?zf$TvM^F+Pi~pw
z9uIkuyu|VwRcUGIG<>vkNN~sOIdV1?(q}j1i5MjY^Lt0d<nW*#vWAc_TzT|4jZ`iS
z_EIFI2z=&X8WE?o?}DlnR8$d3j&*wSEM(Qj3JOnN30gm2-}ggL1wvC$JYOqUJKVU|
zC!G0uNZ2>&)0*ay4M-bgOF!~#J;tFtkRPnCR<98-2ZuG^n}%XXetft~otPC4i4x9r
zcg!=@>u963xpcso6Y~9+*uW$6>UitK>2cpR%37c8bMM~0n}$?VHh<Ny;`S&MwtMX_
zE@!}!)WAi&w=!Is=U_Y4_+;mR$$#q^oUj#ap4~N`alg&Z2d#-88JL54iLM|0PN=6C
zt8ypD!X=?ttKEGw7776@Y+X_mrzWP{*WZ6hWvTaltcc&9Q;9!v;a-t$qZ`6<F8uA-
z{1eh?hz)8e?Uce}Zht_6r2pD@?Y+JADdhojxv-p^E8X>hr!P7L%gkFzoX5TAVf6rn
zG|q1h9cEeR!Pjde11(Dy{A-_j)oeX{$=ulhz6d*vzS>ge3MPem7{G^IK*Pu^F>A2M
zJoML(yd)?lZ+536d4_p>Ld?RZr|%W{A9_H6{{rc7g?a{`oGq-q{U&qp4ZO*_OL)v*
zq)+$N`5>r@T<6s`YS;YLUuC`iuG1^noS_i;Mc|u+`RQ1mfpAg4v5zlNTT3a_CiGy`
zCVtEzMCW^^SG>AJ=kc_(R-X2_kBw7Z4<(_5kag?{9V)Sm#AWg;Y>Qli8r!_J(5s-T
z8V!4C`fZ%rIV~+MIXvdMudi994t}x1=|i2IPIm1g3ngJFUQ$gIYzugnBI#QOFwV-|
zAbKFSgzFZBeMDnp<Ad_+#U9i4wMV}@8U<A~w6rcoL`EtI(o&MMtEr5z1+k43sHaLb
z&bkbZjLvW3Gxy*+Rr%ND<lIaSI9Px;l{!6g<+JQc4&K)>a(`JdmuUNi&asBsV{LqF
z`QR%4BpS3e8!dElVIjg%nM$#0uL9>@TMCV+&200(-fdz!xotO8d}$_t%w3*=JE%35
zDb?-dnJnd5L+0R$sSvtl_0LLmllG$(8h|NAPDYBkrgjgXn9<<#R77Km^ou#y?{_-N
z1B%$&tv|I__g#3G@Z~A<_24XPIOTBL{7OZ*D3+=IY!5mUUv^i})>q8W&R+8_GO6_`
zJ(fG&8F6I)3X9=YJI>~aH;qF=&w=KKB8v{H>eT_0z^h%-r$=x7ZI6^^qXfDD`N=E~
z7F|aQ57Vs^kqbM^L#)B18J|A&k(e{nVzvu*YM1tV`7;OWmOO~25qJ;<SOrew8XfP4
z;eEh$XhuDk6-_6sc2`R){Q2{9zSV*b0^C|i>uzQXKmO$1!y_mS%qX0wUXk)Y5cIx|
zUJ%%VlFpl*!jS;rMA98$QI#0I<wyN@$95)WXJ=J0y|#XJt77i`1uH7-yJLsL>+Zv_
zC_Xt8BTnL2f9%mBoauN}`yqn^e<JpS&Gh%!BRZL3^3*$dticVfOo34V(K5=)sAQVj
zMAfDCFG}rAVnLd*8~%h}r2EyluF_|rrGNC;ja}uHY2bTL2+)gPa{*&qexHn)(9v(V
z@=fZH2$oog(QjQgiuM`-vc5l`D(ovg1GVHue0)Y)8iJVWQ2|n$+}tm;?qx$$2L6OM
z0rU3~OZ8wmW(o?5w8BDCgp}aPci0^jhWY3^9;+q^O;ygnY0A;cB_+Zs0`Q0;B-O=B
zwzx={-OwXQLIWowf~x45awiZrg%Cf6&uA}{#X$g@>5(b#;9CdR5koC4xVpi!tk3Z7
zYCXxazP#(rj15S7A{~-`ResaVMp{M&Cg68f-TYe#+#;J_1vdU-jh+0SejOSU+macz
z*}B8k>;C@!jh>}wq5K)Ap18aT-(4Q)xIaGEndJPHuk}+!syu^oD8c0DsNty3QeMT*
zuq|A>Gig)JhYRmh9d?#~CYS`Am&02gucd>&=1Pq8$=-t{5?VpLg4!M0_Kptb;D+C`
z9nL#Lme+efz4ccv?<)Bw71^DsGy{;orJ33!%1I;&AX#!U{m-928+fCF#i@t^D(C7H
zw7^NE*kybII2%&ZCC0hnr`qcT2bvMC-zUz=&BZ{_F4MN4Hsr>|=Y`8q4fxC&u@BcI
zeRn1ysp29KKUkad-yDU)JXS};33+OGr`GoL2J@_QHx8179b4d1KYH{ClU~A$6e?NE
zYs)u7Z_l<3V+28vPO1kUkl!n!K_M%2B-7>f$5-LwtO%shm3zOv#ZyaR;=ip`vYF`G
zd2L`aoc&FZbt2RtXcVOa)*my;XuNoFc+?V2=L}6DD^=u>qYDIz(>KXo#A*+J3=sQ@
zK-BK?&|`J!V+v>j&hHW<t2LWyNW)6`#2enR`OPUv=S}S|Ibi|ee?E_8T`!3@FP7dV
zSthbw;pAKqwvtbYfAMXM1d6w@&%z}>w_mr@m#Rdz`!t(TI7Yyn$e3eP;grt7%}oVe
zFIj59!3U$vN;AjdPs+*ObFUkhwj($TYI>ylUN4in<+wxavA_vi?#>?XPL!Xu9(QhK
zfa((d`7v&!^vOo-bg1-Ey3yKFK|K{DQHrX3_T*sqpB1#6SFYH&R0zEMlgHDi=HK|L
zL2`nefMzRr57^$i%fqD|<8x^9sNn2e<Wy;RZ?fSbq*>#DeTyQO*_+iniPvnuz^dLa
zaD@UI0T`s^WK|%5zYkrhrmT&6ojm>i#WLCg6CEA)E{RQ*XQ`<?0o%DI;cz}uQ(xXz
z++PuVlK>CaZKkY+LFMUQZCdQlP5R{h7NR5)^0lbh@UsaF+r$S<ImA!orrD+U!#S>8
zIR~BMbXJl>vHE1>?)ysrlY^xK$DR9CQ%#|f@Iu0l;xDjKm$%iVkKKyyHAe(n^fElk
z&&erPmyg=@1yHzi1m!FoDkh$4?-wXyP{34Cz-3tOkfK}RWY!}^=1!He;}NXH=)z{B
z4j}s42{Zy1q@_(fbi|U|;@D?i>KH3~V@G5Qm?Gq4WXj*u>#!W~LwLx@{FB^=5jGZ<
z10nN2ziB{!cpilDpFqDV&&8vwl=WPuY=WxSxu|Si;x^+WOsa(gYUh63p*Z7EE<R(c
z`#!^(R;AbNNPx3^gqS&arszWsK|;sNmqiOzBu%_^TIQNsr9&ObWiRrVpaRD%0UFnh
zfBDkiK!c*yT$AEVVwQ!4-H_jS*?l`e6&k+sdHrUXgT-9Ia_Ld=+g=iQPvl~*e+FDa
zJ?`1K;sGgWP}stWg`FMuv+4H@LQ4k+hsZK({=}@$YrEq4Sb}zI&?>a@G<bV^^QsEW
z2-~%JNicfV8vl8-fO;lCmN65CkVP-hMhp28FU3RM`7YSGF?d%?0eTP{8yot5jN-!@
zEv;)aMa`-6@+;AyX@3)5=raCK7wbQENdLkM^av-RuK`F2EX=jalu>j)`X9J)=@zC9
zjTF60QU}g$=>F9pccaz_N={yf(Td;&z%FRV3it@B!)*<X?u>ot$Woq(kDSrE#@Fk)
zHXdDM-YTc16~!n?Yf$c>0R53bqN5%aW5AvnA_EYR&${Pr)Zyf|5A5p9BCA9k1bR^G
z1WH9gi@+DJ@Kf_I87XRLHM~5Tf+k;7R5Zp>f6b$sIruLtyARnp1X@}Q0~oX|bDR70
zOlO>{$8Kv;awl|XFeG%G`E$`Rh=l_@+h<)q&ulcTc<l5=JF>n<uX04jeG58^CGRDV
z>XIMq8D%fF5ve;f)S3z!i8U2jNvWx+XAvM7th)(INE<f@D@ikkq^`05j$@MPW4tLQ
z{px}LZbjtO$>-?vyPO80i}lg&#TuLjv8Uzs29~+%8{74&<{cha15y+wJnR`80DtS&
z`dkA{9gFspz}S5A0vLwY84M)EEG;XGEmO$dNC`S%Gn$x#)y@4h4uVIY-8S&ENm7@y
ztXUFe#f=N7r<`cAti^29wX`5&y9e)d3lhVJb!JGLQq|_5a5-8ShY!k26x?K{<SxN@
z_O6z@MA;tu;cbqeA{4M=1Zfp6o^!t2y0i_QN2_^cpiO7XOu>>^<CK&3oARsPqtL9=
zmn!w?>q!z;L49?s*}%zCdHsk%+yg;?V0xOA6p8Y8z(4sP?kE8J0LA91n-m$DhGjy(
zdIP8SM=Otmz7LuxhCXyG7>Lv>d2lJ^Puy&H{?n@e3xW9Gj@<uuUr=G;8FcP)<eT8%
z;|9v}Oeb^o$`hiLFB_^X1Inruw(^QH>!_s1*6T89H`OF4*{NUN|DYtF*QEa6T>!DK
zPedpb9!{)%v(nSjn)-W(2whXf3W^#g<|GJyTsG<;ELhK^QBKE)>&`!>29%dvSX8++
ze@+hUxK{U|kh()ZDZHusw}hfpwX}fTRB|`urZ(i((Qd&(q*A{*6T>!%ZN(}d8PXK4
zi%yPF)p$WADXiJH<()(>Kwmz)?NhQ-ajsN56yKB?8yITE4x7XfClR71rycq2eZSij
zmoh!HLetF>*)kp?6urUIX=+&`mw~E?w_v6r60^!PGpIJqk77!?TVu=v3^iAW%UvZc
zEt-&rP9n?MF|9LgdmHKs8WezuF3=D?nC*lBmHqcIs;NcE7|YHX8<_QN1j4u?&q>5?
zcW7x_EMKXQRsvh~zov!$H^*A}GRY0CI)=q2&x<Jx8Wc#-75N^Ek96}Gt*I}z^EFz3
zC#f=-xvIMN>_=qCyd8{H<NEc;oBd5<>B-%Y>lF(#o|-$jGVM~w^)u>?+4-&a^VH>E
z{Q5;=dJ9n$Tv-0eqpH-Gmigu~m;BY-{w2E0j|#70Pi9Laq#Z7)VH{*<W&iIj4}Wj6
z;UkY=anIE+SIbB5ogV+njLm=?zcT@uN#Ma(1cAE7Wn5E{R}EF*qEQm=I*=8Sl$_cK
z0(^!j^b<mQ51`Y1CE@L2;Q1sh?3Y1iCzc2|JxOLo1x-YT;Ola?g*#jZWkkSreTGc3
zvJh`E1<f0RpiEb+<c@C33MB=_TcZ|<EyunGhJ4=Q`pWnuxmS`$Pezxv8+GnH3L1zE
zdn}fdlW|K~xupX(0B+u~k}~12$~$Nf^ghgNctIXZda3_9O0`!|$=)h4enY5FkQmDI
z<pjRR7)r+&K{YisQHL+`TBYOW?Mp}Yg)M<q_egz08nZ-Js#twy{cx>57AV|9)vVUD
z;s)_g;K=u&l>HhiVMk;%D312O1>$^PzxW|PzbiWrpf@%q1~3UepY`8w5CTtv(cd35
zdoh4+JS{jk_hDGvp1oJ^^EQv)hsT9ngz2~c((p~pVg@`>sy7%9pc%xAhqF!wb8~Zz
zz(~_O+%g)N+VG-foDqb5*cWd`b6(N`&OS_@1@O$}1aW$goeE4DXnBUEKIBB8$Y0Fu
zFK1u)3;<oM%Ps8vJ>Hb}>o*NXL`2XJu-Zg>pt~F89+LfchLjUDPz-dbhE9v3`9%Ic
z4Gtg>eg}2DXD3fai|JFJJkZnDUi@NvSuSmX?~(S_<>;t#jSzd$yxxj8z4}A627V@A
ze+>4teM(VjiI0{lzfV^-KQl3I&T7NC;zH%7pl}9QRr6B@lF*GtLLLMubDW3)%<=UV
z9~S5;CtJ4wWxOu!V4tk>Kg@8PsN0!<!dLR36B7Yezd=el5`xC+^908KBf&lE5q$CU
z5A}4Z)7w2mpB+z<78zdcZH$rD9%Sjtk$C>p^jb7l6*IYe*$E#bFoO1TMyhNDLCHj=
z+OL>zCl8H2AH3b9RCq|rvT#IZR5f+V5O~MHEjs(UIpTRIf)WeUy(>buXxWWzBp6@!
z;m;BQ&gXgKZa%WT@+oGYe2$%#4XT*Plv}QU|C`kQ-<-YvGtUl%?}BDTM#IwfgHIoG
zazIYxPT-t%X`FdDRcKO`e|_7>j04J&7_{?M1BAV^k7m=<{KWMVae8GL(#-5`CfcvM
zRHo(Fw8W}jfy2yf$b|J7+zGdi8Tsuc5hU)OI_BWn0`S~&&BCB3Cd(Si%d89I)O{YC
zG;7)#<ARx@N+>3+@ok&hu^|lGxO?9Q!|pHgVsHh^2-0?14MB5F6N1sJLM|K9yQgrS
zuAAd2n_y3P^Sv;I%%IujC%xlp3oUOjns{kj;vZ#Me;2$u)5=E4j7`)O^zs2+g$j99
zQyF|;*t0t{>tZ2T=H}mZ|5#;s!%G5y`%1B5{LYG%VB!w3hS=+vPDnO_ouB;G4{N$)
zX6%3M9x|X?iG;jCW{$^24iAsHhsRMbCib%d^cG?p`Vpizj)$_27x9=c^w>4+33<@U
zL@&L|eJ4f~>?JOzJf<e$ReY_?O}{wsy@3#&e@yv|V32?hcK~Z#t8|h%>+|scM#Q^i
zPhhlOcDx$;yIh(*#iSso@XoQ2POsV6_Wh)-Jb`x6Jp+!*0Rpx;SNtvqXj=dDV+wJ!
zquYuK%br<$g+Wh(8A`&IlDad$UB#Yzys&&%153B)?WO|J2c84wWD~KcAlFPWTcPqe
zO+yOjDF45C0shxv`{)J6@|NN#Jh89l1%`yzx+%&gL0VerXJP@xR<0cxuW)9C#N>pE
z1M||SqCnI28Xv=(E%x2PDa>DbCF0BiV*YhQ&oOrtKl23~dHL;4g|75V!x7XjuPE!v
z;n@uqV$>h>7a+*yTxS#Lo7AYRZa*#xPwBcc+ew2~BZ>6}tXF*IIE-GC7$}E=I03f_
zz)1o~q?I0JmJG*SU~B@HCmyF+f2wMEEqU|V{H|q@P9ND@qDi3LrZ>Myhh|yh_fjgz
zLbgrvfCbF-+UZao)H4}b+%{SBP@(d@&Y;kK{d+5;uU*{w@p8#G1PQ1!U}a&kDSd(A
zxA@`x1HtI9urPf#3&b|@$IpB85zl}BSc3I=@eqCwY~5t9x^(I3IEd_BlDnfqYZPQ;
z*L2Gr7<N`h65IlKX})yu)Q`qUx@7%LgW2=@e|sZ|GMK@PZE^fTOuox}f0Rj}cAduD
z2h1SPqU!oct|RD(wV+hYyfUX%>)}@=2L_lDBs@2xR-jIaQ@@4UkCZV}MPB+iFj`zJ
zNTS0mUy>lICR8hM>wE*i|7OU~PQ9waQ@|v&qThp;p;TugEG)(bnnD^ex9sCx(3v8g
zXIj$h>KMDNC?@v1JQ2jaHKrNJwAY0W#TFyCX1=fV=Tft&y!xKM;)!j|^JU7Tn$K>K
z7nB)#2hVnstI%6e!SRL$OpqXQH4zL{wgOo~^{$T2NN=^rN(3k&>>rcthIs1sFo9EH
zL`;tlws&|8JXVIE$UerA9dL&R7Rj=n4xw|90aFGJF)eo5l;(D_s4LpffQunBKc9q>
zlJb?fCpU;~p+HPhe>NpWoI0+SoA$g_{sjVGTvG?=-D+{OGl{mDB{$DE7?jz4UY}}0
zRaD>%51By9tmQVU0=frlX9AeHFV8RCx_$R<Fe;!f4HV!aDEkIPi@L7xP;nc{c6>sD
z`RZsT+B<)JEdUI=Bg*9|ff5Ev8v)`4gz-k7raChz-eg|+cq1IfVqh5L)KxGV{L#tQ
zCm)}^xBq)q#A#9{PDo43zSz&u)!t3}GM3lyCu`kLR%CMNq~Ly7353121I-(VXf46k
zP)k{rV!pT!7=?OH_*2U?h3f-}>=(D4Wbk8YdpftE?hz>_li&Ko+U0DG%-h=9AwYOf
zPlYmtSm=Fsmz+xA0X()nU=nJfM=Ce@{1!LH_w~s03L0rkVq6`V2#~*TJ$q~&_TB8=
z6fa|ey3-^w6-+*y%OfxE7OWh{HWZpLkZ(k2G?2a|<^b&W*Tidpc<|sNI{v0KbM3&C
zNtN<nAGR$>M|Eni^|acfqy0?{L&GSPi+qej-1vmrIPB7`c&HwOp=mrd>vA9UN^mMG
zE1?>}MZrM&1_m-g^LQm-Ny1%!<bue6$-(*bcvpD;{u{gfiu>q^)%W>>T($vkW474$
z;pmtL1m&5Q=#taGqrD9PQL6EkzuP&JRBn|)nS;jNJ#GPIPQeL7o^=(XiI9q`@YJJv
z47I{+Z1t*-^a5v!idIvwQfj&bD<0;+XYWiv+mFzyt@=ZHO5!rn*SFzuy-$~-)sECn
zM{q9l{6%N-ytoqgB_sg;1pXkbhcdp~kHf;m(*A)y#ns)+7H-m$iHV6jzX-|5x;0p5
z*(X;<%FTcOY#S`Li1a7$2H05y^tZ<XJ(-4*lfyTu?3iGK+PYiHhk9XR>5yYByXcR$
z3j!5jU6-w+1LG9s-97>Tk+8Kun6{mu;Z|uhv_$Go0~hP@S*aT$PYm%e5+cP3$TX5k
zF&9q`G0fF-ZFT(_v7W}&s%eBi{aw)t>KZw>Ss943KopgFzlYNotA3Fhl<Kp186E)w
z!q9&k6oBmkRNefP4ZU8}d4UIrRRv}T@SI6pB|wF8=@p~i1C0Ed-#1U@K-d?neStAr
z?de#v*(E+$<1GM6J-CL>7!4SV{smhEtXDrD%tIzfFD^b8Np-amCB!2l2;TIl0pDcY
zj;xN?iW4<i@z-vcEvRrARZ(=rUu}AESrbI!zF_Za&$Sjf@ARB2im{B*AZ`z1*y&N7
zY`vGpu&UtLhd9MR_!0=iJ?rd53kC?MHqsV;=_?MnXB+bnDL6Y3C^orkx))Gqb)4Zm
zo>smbfeBB#)oUu2jU^bRy5Ym1ZC$|<!}(b353G4x%btC%_fFTh;MN(8(GQ0|J*wf2
zYtC;OX{Dqz4?p*q9_UtWW=&pJAQn`8Jh0?0Ap~62#-N*#y6>BCM*HKT7Uzv3cWjV<
zoAB9_O()1{5NMvY!PUW;Um<tz8^4Z*#zXiJ_aI#Hd;j6rx3X)s%-RtLKVQy{;zH2n
zs8WL|rI+Dj#&a7*fTEsZ`R&clQ43EQ^jY2;(Gx<sV5Hd_->t(%!o-Ls_Y@k;9m;2r
zA3!P@c^a~xOtaGC@O~#vF5<#21Tf}4wvmL=YS)@r*{ky36PuDbTUyY4PN`DQ$r(Pp
zDW+C06kfjhV>QKVA@}D%o&Bn)%Uesu)PWpUEhU%gF;(uC3EB;RaRvnq+BfRf#^$sp
zFAGWqRXf^+Y|eHh@U&*eN)e<@>2Lsx)BqVK_Mh@&#{;ee5Fbp3iY<7FuuS|m6sjk1
zD~h}t-gr%icdnMVt$ux>+}TAsd>N}^gZ$g9i`l`}0@{jYsV4oH4w+WZXBGCaw!W-g
zU>tpNd^m&B{?fCU#OkBCj9#E^(S-QRlJ-x%<9$M!otJk8^Wl~bi!v)I9#UF*+n|D+
zp$(cY8{2gGOsC&2)J#d|h{STxi{AI6ajg){B@Z<Wk~}IwTZYE&TBUgVv(YJ136evo
zPq<Sz{R3@*UMUzDDJ*zP7AfkRbS|>_wt+!p&Vkr6zDV_quDw0OBGG(8BvAG6<`4)?
zy!^u<K-Pm@s*};(mWxj37a`7Lk5tfg83t@Q|1Paoji2^rP_4voe>Pz!`W!Mj<~h+^
z;XJbrMdX%f!rWg@%TQK*wilm(9pGarS;5fxPaJ_@$%su(j!(H#4>CCHR5R$rpld|e
z3iKb;)`Jk2kF@_|9x*cNTnh{js{<kI2^hu%#S0+M;459mm<%RYYXC{*k?@3{z*KG{
zRNh9Z#0pTw{Xn)tf{dy?%)l532^sPv=tZa!45ii<x7s=pP0KE>t|(}O^-2fO;yT}@
zP#<vYv|2eoyh~Iu8*jjC-E;A9KG%0=`7_8R2=aecUe?!Mov`J<CJCQ~q9p+;4sNgD
zioQ||dK}MDXIxN#!$6+PQSO`@o~ZWZVf6k<rW^l+>G+q@jwI>x=-O*{aMsggAM=_v
zpxq?W%HT<_CcYwA1N!+@8`Fj$4Beu8XX3f^9>G3qJc;2Cu;oHtiMd}f_MW9glbQrp
zV%RS_qbfILpN&kg*9lejn*iQIJtGv9lv6(p9Gd|`U|f{$GcY!esdSysfNUjT*@dd=
z4*@PRxx2fghDl_yQ+NW+Z%<?{1eK5b5Q0TC-pCeQLKUYchecN1EJy>SW7J79;_omD
zLX2vBtZjbu{po8@NMRR%I|U3(qd}cX!dNmT=A?2LC<x2|>i(Lj4~$FfES&&pmWWP>
z2+go)nLXr;yl?Ip{i1ae6#vaHPsTo+9Rg&v^Wwz|Qz(3$T|mt<fH2p^)>~`LqZmVv
zucfsCj+1*|!pK05*aL42uT38ZYDT0H_uxWI`?57?gzVt&U{I{o0Ukgu+uybI7J6vb
z=X0Kx_x17iuJq?m%U{|VP=tOk{dV@yiBP#;ju1bY^g~a;Njo|O@fO#7R~tbjPTD$p
zbbm$X?%lLcpD3Q)xHwbvNxogZ0rZ?H6j>DjaJVMgM-KusctqF=Iv^0A{IR*BP9*=g
zMNsd(R!RrH=j!kP&iZZ~aB{Q{dSJ`D1mg(6fKxy;pnz<0!)v*zoZ8rn`Nu~+6u14V
zin(e)t9I^VL4gv~M_#Cvh5`Gt2yK9<>;DBA=7xCz9h>;ON0#fjnj<H!YMK{F8|=%+
z;>(U>rB7&pdqMS32)1Xzu4iNDZ@FF*NDrfUp9Y}vodk16-S|)&%hhL2=YHfQ1PPni
z`}2)qE!8Jrngrr+Ka6+$)bcSY5Q~VOV0*qKsH!QCN6-WFqxFD{-qytzyU&>dlykGO
ze@Jeo+nvy~lh@n(Ga&a?n@DS8AJ_l346-^77tuKNqB+^@<<<d|1R|XUyphs+U)gf*
zQ`R$)Yr#&G?+n=j&S|rGVpVT$22O7_T|M+RHfN`#nh|D?Zb+=1eRW!pmzR%)M1B*Y
zE>)x$$U9BS6qA-R<EWd+V|Up9d0Hs&^hmtYt&3yfp#iSH@QTapH^HTUv)lo>hgirz
zJU3!BxR&g<O&Kn4s&&-f{f<K+wRN)Ns@?X%N?uJ3J;Ye^{`~tu<MJP<uQc#9064vj
z&S9%)yBNvY)?siVP=Q~j6~HMj;x+Yz8YCsLua4iq9%#NeRxRwayLz>n&i;x8atdxW
zMKr)h{h&Prrw<)i1AlS+D0iI5+@a<iqW5iI3yO@4ECTQ9;TnL;%(rhZauNe&#L#&s
z0Mod_i5cDYhR)5DpcfHRbAJI1^-oL0@aTJ$SoJz_puhKBfcdbT3SbcxavUcD+ri<;
zgplF&gs?Eg&(*`eoQ~dzaC~9A?1TBu!x0t`?NK*(T3VXq!FBn*bUbEK|G8b#mxuaB
z*XvgT(jJe}KPqOoK!DO>h+|i8iN9*FoEx~cIz|Uwj7>rp8JRnF#<U4(b-jZ>1}?R0
zS`6o`bF8TA++;!Ev2Ej+(sLs!v{girqV(S6<6zE2JZ61AaXDy>ZD37e8N`LAVrc1v
z9pv@&^pZRy!oq0(nC5ogodk%|5S8sIie5BnM*^Vf1YD2P#Onl>K=aWGXVkSi{O|k0
z7y$K@uyxnHBv2pBF-F_`rWvFh)zz_NyM2{wbtxAt;7BLXo`-{{0~g-&OSJHK7>Y4q
zE3WhlLo2VZr9}yrxJ2HS^iW1Q(29UDepG)n%d@iuir_S~t#)@<hkn2Q^-uq|T=OGD
z;QFyNWa!v{Emn?*N9or?r@^jKwibFrUf#YSCx<}NXY0l*59p1WRy=0%t5+L;w#BV1
zK)tbd8F+iYL)a7R;6D@}WIeUe&S4yVXGkHavm9EA3t;sH7h%9oN$QY2<Q!9Qs)~TG
zozG!Z1X$X_@osJlL>k5gbc^qYXC5+~10O0l_usYgs5AO+X@GX|$96vshJhsF(z$rY
zRh%s_@}TV_7#8?k=TwkFN56^D8gL4bqQK@M7A|BS)CCJAZwgkUc&(E&ILM4<u*{y$
zp<)ULEQq3JwV6iH7cA!FIyF=3G=O7k_tnq$rYspd8h7qIf+mbj1+<WyoO{qUdi_cd
zU0y)Z;YKUd#9Kwzj#ft*&{Ts-D}Fw|g(hmWxI<p|g2sc~Mo<_)5i<n=1~MLSXpcIN
zpn^a@qc~GN8p9w?1qX$E3}!q0C5DwdI8GNx3nwrXGBy5mwXtaK^|cZOO((<*G#VBP
zf^_hOI#tJ+7<}0H-8mNY?~-kz6RR)M*|h{v9BowH*2Wn!6{8!qbc|kh>%5E}5FfsF
zXf+0giwdw$APCw-ga3V`R1<nsQ;5W!QxFpvU>YLxco+4~o}PkdVCeqX-45yFtzNX-
zTB*l9%NPZII`)syPoaKI#ESphzx7+E2LttqpC<Nx_=6Lq=)JJ<n$?eG_DR5b4JW6l
z0e|Jkd6Z^4<M>$?^a<G>9wH#O({iqGbrhdUbMx>N7>Oytx#(S^Yd}pm(9L5A9+h#O
zoH{RXM=Am>^8tQSGj@SY;{hmh0VBtxN`^Samkh^~xpu<DB3|rbv9V<Ixfz9yXTD!{
zxQ+WIt`N2?jHdhxZ1tYFsg1DD@s)~<k>_2pKdPppo6oIY8h$mq7<1$E*Rn-MGL7nc
zh-S6Mz5d&sKNI*$Rb*tF>gP6sh{@a;{S<&x`X5;){<Adti?<$2o8k;O4-iuu+9<BR
zViy-u=RqFmXc8u33p3L8JCyFXtax1CJS20kCUd>r%9u2;<Yfoi`|YEEv>rVM=-v;H
zWg3XtQ|@S$nlX_wS~6flu0{Y>^Fyr%NqT&(=jxJt4Lp;fAJq8=v|XvgjIp@zo;i!l
z{#7F@T~>6kp9=<(Jm`LYNtQUI1D99SfqY-Qm<mD&tOquN<V-E&TMZCAp=Uw|2V^cF
z*V_7%_$~gC8daQ`Betf^H5)<dMgaZDVq-cT@KZ)BnqgzEzskyF=mN(ECPoD-nMm}c
zDKFmCO`~QYoHZzX>u+76a{XQQ!R#2YmzCgRHpzG1vb3oh!1A&%h+v@?vj}OR8`XqB
z)ly8H_XKIZk11`+n{F)*nl;1N>}y_liT^Vz`u`_bdk2_|dVc9%v(vogQe2k~#hIKO
z7NGKs9^6?d5-EABWZ+iNyWep#=H+|3`gYTZo0_ZR5jY(7b1+B6?d}`6$7YZ51ubM-
z;6LP9A`#DV7NKps<0w}D_}SCUl@)F8h8QvG)$ac_-TOcE>i<^@^hl_lVG5{C=MnpI
zaBNIYNAf_AB5-alw8_jjabT$#_=Axukci}aO1+V@0O6rqgiGcHMa>C@dH{r9;u3%q
ztnx;pGOt=rUVbaDdk%yCea;oI)8D>*`}_TI81X8y8{$`a&3{Joy;|ve(C=OgSYjeT
z3<i%lR1+hl8(xz?g?>e3pti=M8VPLrK8zqhixq@~8o;H~_jS87j5o>!yD@~IIwMPc
zA!*h`Y}#Wn<Y__zZfPN@;=2+tAlgnE<-W*?ap9g#?wFM`Gh_a!&vdV}>)-`gOH|uD
zwXx9&0|G+ADGzbqE0tpoU=nAU|6b3q`vEMMVPf7Pf?yHn;Nk+qIf&*1?(q9Y--e|M
zb?6TN(hQyvgWUw*#w?MFc5{OU(g6N^OGx~(TIBT}F-#t1T!bKaHUoRv4c!1jEbBcJ
zEsSa9#fOJYJAH>njU^{t`k@TMLg8{3*GeQf9~+ajaVYYUbt1H$g(|%o3?0R^EmUyz
zu@GSB@UYXwKbq6vG(JQ|vlf26eY`i=cjL=O3?0D}(yxuHOyTmdX-OlS>H9%%fg^;;
zC*xYeWZGY0V)^7uNfx5sw)?66BTjoYXM$udd@nQ+qaX=g8HhXbn|J&YrjM$?RFP&I
z)6K8=EeQOiOnPP^!2-E13w}_vA4!{1sL9I0LDIzhWWxp?H_0Hh#)hUew;6B>E%XYB
zup%sEod?;Qc+<Yzi&=V=g%36w^oT%4WyjB2`4Tdl(%_61y_#Vd;3cAoiMb{SQfr8r
zNB|ZUQ&MjsR^536sz&aU3Q-0FKRQwWI84E)PPaWa%0Cj5&1OkjIk+<|I^w4yIP+!n
z^v*+!h61exy#$6#ld`^rg$1f4usjPpUI2WUEnvH;-hj^FfvGN0CH0yuRnTejTLmCN
z1*g{jnO6K4O2WU5xBORI=D)qi{x`nBsbf{<7HaV#%^~0<EDau6sfZa_3CXZ7q&U+k
z%K#>q9zoq4$jIxRgNFGZqlhQ$T-m{~l4gAyM8VxZ5pkP1VMfY25r?>|H7n-|@Mjqu
zF^hxdt`*TidxOcV3dFGnLM>DiirhLLjKbw3`yJYTcJlo0*+@)1sYsypepY-Fb-WkD
zd!F0TwibD6@gP!*dE{~Rw<%r)8hdhNchAz^ZXyFDyP=#-dpbG|TlBSxnF!MFaxk=-
zq#rW1M^j@)BO^$lCE{xU*66QR6cHApF;8Ilv{{g0fR6}^h1UH@ln<gWOmV7+OKHRa
z4<?2P%B>q0EI)w7jw6F4S1{@-ZM2+--_eXY41>lTQba3~T}zJb6zu#M)mi-UV@xM6
zQLFp(e^dG6{r_2Pedorg0kT*nRq79yM4HjO341{-N$Bh(OpM&s*1p%Bp#W(T9gXPr
zL&d%9PAo5A{85(Tu2wUQTtTxD6E#oBTnJMEK#HD$ZtD@m92#~UF^97r)i5ALKj2(x
zsJ9T8!2uI^x3%WaDwnm+y~xSYI}h2w!rX4dzwN``V4ZzzpioPEp1-(3tn|}ke{s5z
z@a$5G?v_?RfTx;!#{np(giAu-fZED|3bPcPDCUBU3>H5UhKTCbs$8>!)dI2+%{QMq
z_Xrhx(m!xpu_|8g>u(q>PTzJ%DsV_1>)*!SjN4_7vg$#(<l>J%-K%yV`79$}>Q2u6
zsNZEXQq$7HV}8D)+%4&JR+`~Q`jszrM-tXxwwROJpx`)>&~<0RxY1*b<4#e_PNB{d
zwqAcBYVmEyhnz$gy35?s6ceU+GZ*CdmVS0vd}r^MCSn`it3URo?_WqT3F{e^u={u*
zOrpfnHgZd#OfD9;DWclU)1To)%Xd&CRgpoHpebUC33o>{N1(8fu<Gz=FWW^LGvt|D
zrJMOu;!M+I#=Yf_xw76y_PK{|IT~J>`($>7O~<ukq4WZ~`(;^b$C$BGyP6N|HXq;`
z0)uvMd$IqOs4JUxzF|0+k!J?YV>`V9lFewq_0pEz+1Mxt<{6sH#)AA)e@u~>4}&tr
zz~}~~i-_B=r<r2N_jk9bVH^hLUzFT|S~Sz6f+?&_u|NLXnf0lk>CZj@I}08dj@d|W
zHsC{{5;RT~W{LqIH7*dIIpzla>NapE5K*o3BB&9Uo`m%|%d!A!xwEESTwJ8@*U*AV
zc7^Pm94MB5t!`>-X@SmU`N_}OnGfsLTdU3M-(jTS-^T7>!WI-97J8By5UXy8rK0nV
zwh25kS!yW}A2i<&2m00;gYX4Te>7ra>Y-`)7qR=l)JXhYH8>g<7#c^y!5uVVS`7-P
zRO(sO7@Gu`Rt^vRb|N|Ck<Bof@hl->KAQwVR}lQlj0PMOk8*OL^G8u|IFvX5K7g<%
zK_P+Z*U%g>UlSTU>`9MmhFHi@Flo|iPA-T37RG|x&4vUKgeV!kFTh{zAZLI&9<vC~
zfqGm&v6dZUp$8<lf|*%*rkG6ArVv=19Lh_o-<EB88|dodDQM7_D)(K<Ag@|3?)U->
z?{Y;KP^6a_eSR^w{_*XzsU`oah#{3TbozYe9+0ImOQWD--UGHTW(nmcr|VCa>gfl_
z<ibETH-f?A2ImwYVI!b$i{_Vjtmr!f1Ohxl650$y5iC%yXY^g?zLEi-=x%5UJwDo9
z$1K4MWs;p+&c~oLVP^x@u{J=~6U*NO`91=yU($q<EH(yzn-3qBm`hIFfo_%?Bv$%?
z^AcV#bLM3D9)|kS$=Vq)1m=FRf6mW~=L`7lt$(B!S_QTWbbb0(cf=Hi@M6yHVl}|@
zq=vr!Vuc#W6rfK*Rm{l&+Bs*Y=^MiP;42NVL?g~AAYL?~&c`?qoxw2$2bhE@G1+p5
zF?eG^D^l=hQu)aDm5F`*<F!q}|JwoheF{s2HX0q01e8+9)$yhdrrUgd0K|Yq-k&3e
ztOLrPF7DuNLMK~QNN5CgIBBEN(ZObm1fvj`th|(2WDl$r3UXlno{Gmfnb&c){pFt@
zxOAVEskbe@rFFe!^KQ}d)}h<px*6oWDfEEF79ILV?5pSq3<wlsi&9Sj#?y7a;%n+2
zL}!3tsDTlV3PEA-o)W)0^1-ImZNed6&30$yZmjFAot69U`X!F!rQ)wGgDiUCFx)Uy
zSh6|yEtQ9>!$vCwhW9q$<O%+sUiboJhJOG1?WKW8_oW~B@F3XKzr2z3<<Eyu|AM|8
z#%Z3A$^l1w8#Q@AOB4>F5uPIMS(c;bdTeK(dZ*t}HI=L5989nz16O34y96WPMGj+P
z8`TrX+%qTidYlvl;b3U|WOaPsJ->2}RzpW;KD+Cgez7ByUPoKqSVc^n|KVS)m8FLs
z#mDci9SUjqF07{p%{)(;JVz1=N_O(b+EL8MnQfnyiAz;u4tsue+S}HDJ!J;d1~Euh
zAz%)lfrW9<NCE2}WFrKDalC)$q8ImAw$e(OI~W?4dY3biD1{N!Is-R-$jje^;T>Z0
zmZ-K0o;I7Spn!tSLev;k3+;iSN>_F^^^?<;G2a`Sr*ydMyKdrTd7sRzo3CgRCdkp~
zKEHcWmU^?8ql)@9fvgT@n{*>y`{LOpCi0`}S2VkezZbGZ@!ny5{`A2E9Lkrp+H7N^
zv&;L(-JXY{DX#Octbf<YSdGj}q|TT456_6c*%ZB8tma3zEcsll{IHdFb=2d_`L0nM
zLut!O*XqFJI&Xd<?dZcHJrk2yP&hiqjdS~_;XVvE)YMvF$nbvZyARsA&O6I`hP6JF
zIFCOs@u;%Mxw~JBQq0`!2tJ^X*W{ouW)O3uR?7eE@|-rX(0+J$_-S%-R9BZ;0YQAV
z$k^Bz-r2JWH4Sp7x-hFN1KTR!uo5%3KVoOcL(f@WLtaOR8a0S~{K(~ZxTC6_T=%wX
z<)r8*{OA0$%ic4!B)RgcdmXQkcGME4ioDnFpZIQKDa$lhuU_S)Awpdn!=<*}-@o&I
zOy;5@Y;SKj<)sO+<BVVdnGVKh2ofkGw|pd_a>&SMgSKF0mHkn~r6TeYd)<5cxvrE*
z2wdo4)84&P&`yRqJ19<gikW1@#KgwOl0%wm1Wz!pyll^XG|3%fToB3;QQ@`0g6@}t
zg9Ec!R(FT$$V-+EzU|8Gqd231U3cbpOr2>CsiPu0o<=FM%4-D2#-4>rm~v_j(-x62
zF(hAFTH0fJM@Axncy7GU&&<U|G&D41eD(5>bi8pvD@5Jo+FEQ>6w#OFX5#aim6hj#
zLhiC)=P|4ZTIhX`g#ce40x9RCaV_nK4<8tJ#Uz@~FW1JMTLOObaZ5s?rmZb!45K8$
zyF1}e2&tzbpD~`j?n|3=9a`Mt;$n$80o{*l6ZNbD0^|V!0XI}szWjjOmy9;ialKz$
zv@xu5!)In@7V%gfe7gBp@8Daw0!6UiKPy+b)l5y(;Ol~GJb$@l^E0vX^M@lX3K$Qf
z_*zb`%^Z*lnn&>oX*>UUKoNu5w1vjpj=~9palWQDri@43lHb$AgN2O^=h20R2PIRh
zW7TNZ60#o_Ocqr7>h$e^k#lEtY-#)5Etfo#dPbond-+4tsADGTNxmzvO7N<0-_GJZ
z#(?$MJK8U~MVF!`{L_NZWp%F4GwH-XSvrsrkVv5}*X=7W2TLr^8rKIz!$P$kS45t^
z_onT*aS->UJ~I>R=DVKUlC@BCxFFA|>CB?qTF-bz6%X0{T3(iSbmXC>qeDf%;E<4v
z>gti9tm<lm-*V)4w%0P>y*o2CHH8FFmxq(HlPr~a1ez0Nb`PXhM8CTZoC2hV<JM{7
z2T;320*>~=cAIDpqY2k(=9ZQSpU7cED`I7KhkgC30(nHl#B;fuj4XypI%aax6z@^c
zt5-DT8xSYXV93V!ChfaJ)ZN{Uwy`k6XK1`sJ@6_qF#<pl_L(!Xq}bX0HZ@)wn2#=`
zL2WZLGs7x7Gs#z9w_#vlK*q#$HZU;o?fduD^e&Xx7{ZR@!NvtjckfcDu*Hq=`G`|J
z{*1_yru8m3txwA8a#1DJ!SE19t#RxbLaIq1TG5-2fY}?}Ia^y>A|rKyr;N(V%Ba;3
z#f1qxCewg03ib0~l}WKbdkY|*_6)~bz}>^CJH%c@>26^0xxaZQWxgoNzIz258@ocH
zm4;51wRTW2&JyIlt?eb9gn35k0G06Y@UB+<y!d4g@zS!g9+;<WvneGB!wQnucneaI
zrm}Kd(7;tHLbxACH;hmI^`Jxp<bn@(b1?ixE?&HN8&U@u+4j!P9eH_dGO{5%ArPtK
zZ`tK(-;)2yC#~d{+kf-n!-s&U6f-#PXlRg~k5)`@2Iu>8jtICv!_8;Uo;5K>vaZ1Z
z@f8jZr-j^_nq+uqxF<@FmEhLoXRLDy&%jA0&#sp2<UmJF4W2Ng`{g4aN=o8D>A69n
z@OyjPeW63s0CC&@ZBZ^vTsX3VZ7MT9KKILBJhZRxt`ESWAPE}tKt>2+n?lUwr%xyS
zmN_^iB_#zx;B5c)?fu-`g9IL11k_*o-L(nN5p_*Xat1(4`-3*6K3w{+LR<TrmMkp%
zNu7d$Cw?ry4TB_S=ffuY`sA&xt-Iz|JjAU_^)0(sO@i5AK0S>?`FzJqP8|+@{^xhE
zQ0^Zb-0|_L>hPVj+FcspNpLPLFYgT@rV9)E>pnjja_7U{E+%Aawu3q$Ak=1Q?@}9s
z`kBEb`da(>r}6PEXI>T62cMNay$*YI-s8121lB7RHuRn}sK-4#+*x$U3T{FGIoQn?
z^BkFI0wq1S21Uy0s_)q!>Azi_Jjp}rRt`>%e>hX8p4iu(zon#v%ME!fBn0PG=L0xY
z!sy}7yW1RwRC~J{8_qGR6bdjEjztyOynkKZVZf3xXT?;w@HPiUSX9)PZ>iE_bwYPz
z?hIqpCnVC_oY!a>O#OUjkI7Uh$@y@{K3UA2;QaaX4kK2AwEy_f_O=${I;cH-d{Cei
z1%EJ1Dj<P0H#dVD4l4`~f;s+WW<deZi<|ER)J{vRVP*fy1Oo#IgJ;O5z&;Qb8ykA_
z-ET2m$JTp7N$J|T@Yk$VAH0UF{tc(wo=ZQj3JM94>^(tm;sE!m3DvO=Ee1DMjnDQ?
z?U*}*c0z9M?q*;SV;!e9k0M-uMMXn{Crb(?>NecAsjN&08wZEPYIl9=I^H7$GIn-0
zN3xW^PlE+7guCL+n*?CVUo9?Y$HN3P{1|RcftuvjH#g%_96<{O-7*A*z$%yXeBx4X
zzLT@JzY3GfIMIraAyokXs=PQcQWP8<d_hQv3IhWpEGDJ}r1!UHcj}WtVvm4!0@ez$
z59A=Eo@amnAK&>+@a%_`+dVx!w{>+nIF&9#-F%voA~}7`+Y&I7#K*gH7EP_NQE>wU
zPsx^8FI_qV?!cFBeGmEAnEpxm>&#aFq<*wC{JTo<AAUSKTV>n1EYieG2{$!EloizE
J^W{t*{U3q9Xv_cr

literal 18978
zcmdUXby!t>*XBkLQ5q4DQa}Vnx*HKhL_k!!LAs@pQt32lL{UIV0qK-fx)0JJAl+TF
zw$Jlk^Sv|QJ2T&0^Zqejguppx@BQ2BcdxbX`(7vbu96(#8R|0#f)L8zlDUT<SYzlX
z9xnXGtEch}e8V+TkduM$@Nf4<nGbwBZGTJC5kc_D&`+$cVebP3xroTiTz}w}urTZ%
zL*82<u~L*?>XGPgh#QdjiB%itx&t-=YY3?(?zy{;!%|FjNe!1SUpMBvY5c%w;%UhB
z9ACVkJU8Z$IJRJ1zE435Mt<iD8Mp}YH#hDL&uljiW#8eg=(%&wQDdZiy#-shc{@Qw
zci7I=+4T*hAIU{V#$>gWrX_@wwDU(0)*Ts{OIX;&v5YV9hHM21YR$Jw)%Dz&`?9oM
z$vxiutP4K7`hz9ut4EoP%xik=;*-gp=3O=!SY}kX4?TZzWau(7-fm|u!)AFZ8%ptG
z=>#b$o!JgiOi<9R6BbzIkEU)XxQ@8v;hdlnw54roZf<oSx2LK)nBr8?(Fu#76P>_R
z9XWRyj<V&HlW|rZ@H9kTh)hVJCAc6#yT85M_;|S@aM^pi%zUtr{b;9A@^S%XX#Gmh
zedTfZl)Zi(%X{O)h4<On99EJy-jmptEeibl^~+$a`pM4NGvc^w-8&>ssf(6(@SY?c
zAIuc5w~3NQHg*?QS@vGlai4l4-~II4MNf$f@D&+bDq9X1T!fFCqm^E{2H&2B4fa&|
z_`H7eCbp<{oD0^*D3{82!Pvx^COC*y{0f%N{rk@xCL0WYyk!2Al~up+Gym07n~Az$
zJltoj?CkYbN1L4RyHl@Nlm%vJ0-l&9c~Rt>wo0q2p1T=A8$43+*tj{0U8BgB?zV!$
z>X2i*;bcSjw214F!>P*MX&USPFIcCD>Fb1N5}v(ak~3YL_d9*IBU@LLR>TR<=XigV
z`|;Mo<>pHg#;t|Ar#sEbnVFecIXD`+l_d#P6@3H=&hy}0@ZMn{q7!+jq@8PY^0Hza
zPSq$evNL(%IOx`;r}jc&RfmgqZqu=5Jl>ZR=Xl2(IPH1D-}KsCVobi~hf`2cz{ts|
z{6JNeKUQ5=mmLWzEfsOpGBHU(E<XMCjzl^LPAlXMn|j>3>*4@2pW@kEjh2M1_|b!#
z<r`fJrjHRBR`T1H88-rnCPt5sTnD@_?~xG&wpyg5q@3^#y7^)H>*{1<Xm5tP*-*Aj
z)l7R5XPd;nb*}Z#yswM&v(Z%tDKY$3QSSSh`E6uLK1c2YQ<6Jl*sI-1M_=WS$@Vs8
znOv5JEJld@rBC>B5irebm<--zWX!wSBswN_(U;$<Z!EiPsir^Ic(v}Va?J7ytc0J`
zMT5#RY+nJJ0R$nsAYrY<cJ(UHan8KR+S=O75&6AC@AWikSauxb*YtE;pyjZwAO!8J
z5l#Bpj`ufycf7|QvMmzMDlRUT9elHrp?`R$q@;vO+{0-POQh!YmHR7YqlZM&cnbps
z_>Z@j>V2`WTXyIBvTEThUL++E7Y&9tbCeOl3PjBdM%iR$S~HQ7ny@TtcX;h>eDgWp
z_Q6K_vUNk>ia$0wK00J&WtGy^rIUV7Qm)5|yh~3%gFH`48ci-dbLPxD3+lPKxp(s(
z`F(7hoN|2B{1{RDF{uXUE*tfU`fpE9;;-~++ZlF!l-KxTfW@cSJP_HfBuXfeM66w8
zTmO<-!G5`7TUv!2Axs+8a~t>HnF!^y-<wUVoq9BWxINm4&sqMw@NM&y^d&NGJHaDQ
zOw(WM+oaUQYieO}C5ltuHozBl3m27)7`>dH9z7b>r!IJsKrFtvh0~p;+{lm7d9{&U
zEDVclKkSSdKiXdwtSWw>s~avy?|x}=*?1lP@Y5uEe7ovcoS;^UmAr=2do`58M*V5_
zyxXrAa$M#e7sIIe(|_27beAkw?yu}jMoz9aUTAd2=$a`B5@5rDc6WE}OLT<n$B<Oz
zq_??!-(N6so3+u_O*;718j1l9$PXr1{9~n=eaoEZ1Maf=9Ubo1&a97{N$#INT8;Fn
zp0aeiQRy^$51#YYZj_!*#7Rm?iD<et-YlavTHpJ8qNr;_^%Lyz^<Dd3RrT@x(c{Wp
zC7wiPg(!pltwq2$q5Xw?ZtsH~3OjY<?IB0v?9#cbD2lzm%W8Gp7)}!ipn4Mf6p>7s
z%VNvy6DcH=g1zQB!wnKV94_~@heMB=+0R=I`y3zkS9*y8CbdZ(dxlYQGg^43=32H1
zkddl*gnZwicpelK6miDeTn<qCoBV}pK+}-qj|Y!8I^~q(BuGeA<|i1;85tQ*EA6>f
z%gD&^aQOxY1zj>g&XSVKS0k4h8DIMTf&6dsXRD{Crl|PLpSwFef#qmk>f)~FB1mu<
zuqd2|Wgwsx`ciMBsX2N&!0?@Vj-KXVf{61~OH0cL4<99&$;L=Q&LC+SMR|M!2AmPM
zNkRf@K0JsnN?j*XwH!UdcjHeHrDKsfWuLvXrfmtqfH-k+)K`=Vl<Y8oeXp`Lez}yz
zC#ZF$d+l$HFXXou4zolyKI5$1N&f4ou&lMP=XeWC>_#PubvV!s2@$;b^|G-ZAg`Mk
zQPJS=uY`WvqCqh`msBr$b2k;(9Z73(-By_F`jzq87q4DD1Bi)NFB8e*46b^R#&ihx
zE#mq!-1nb8;YsfPP=2ZOL<^!ZBfIpBu&{6pm*ELZD=YS_Xp0d#*P$nZBW_Hs;!-kQ
zCw9gIFEmWlhpqxDo&07%!lss4otET%rk3ljre^FWZEI_RNi)U9?@nxlHpk{o_aOS?
z!31TM6zra32?#=p-ho0J?Tqqu>%~Hz&GCcv_V(hIX3naxc)Lnri#S6nR=`^7bs4F&
z(l0kBEn>Ia-!Zh<md;)lJKC9)=j?$L6+nC;Lh^XG{nO{q-$FSngD`rJ36U0wh2b(v
z-7*(`yQ+h=X8FTU85y;EoAbGl;$BBbGjVbfZx6dB3H#Leoi5&+%TR&Kefg4X$i9|P
z6Vt5b2#_XExpy&{>3cDrgN;pA2Vd3?+0nBDUoDs>R*Olb@pLiuaN)9z5p*b;)uk%N
zw@f+dQreZT2K??y3DqdJe-Ei3OS>p!yf!d&Xh?_Kq=_7k!fso+Yl<ah9(Va>I5l(4
z_?O?^X_1;Ny&}?hDypi?aEdH{Wf9myLHo;9`gja7IeHa-+4ISY@d6WVqRZst_Whaa
zYHF7o!p<`tcvp2e>w2!%Q(h^W&ng-rgAGXmk#mklz}kFENMh|flTmNF>Xn(rp%UKD
z#236aUchN-T)X_%efoUo2RY*R^QEj;u8>OOtwIdwiNS82C>*ps3-CSBD0!5t*~~?-
z`ujs<NL!+4D2Hxo(C+$7{5tG^7JBzzq_DBwI#U&CxLucYavx1KQ55mpjfgoOwoB~a
z`CZBZ>mly3K>`3}+hn7Ni6D`d`Jl22+2J-|iQdLsuY%{nYNP1|fcC+UtqpBr>vvS{
z-+#pit7ba^fqG>hk*YJw{Wy!r2+_8cw&OF@O-1W-Y%LA5Efr4^<vL8>blihYgWiFz
zY!*L~bLY+_%SF<kkG5DCw5vK7t?LpCS8Kq<3d>Yt*D&cYzP*2ct6<ebZ94JsQpuIZ
z&>+9(WYzPS9OeCs6w*PE1|`lTB<N=2BDmqXzgUzEYsp9*9=AT-mS`n0EBir3MMHzN
z&~B8&C^sfX(C+Q-Lov%9R)?`_EC#<@XU6W#<1y4hG%7o6_Ns@%%?N?wN|`F)MUQ$d
zSDjT(#brIuRoQhH*v0h&1y-##w~BP}DXx*^YTU6NEL7ZB94z`d>Gp#;8c$WV_4%W+
z;c1PHd5kiItl(@dB+|OD^Sp6lB@y)ET6g03<e>@y1Y!KMaw;keek4W^p%eM-5@!Pp
zgYL3k;wbq=rlP57(MQ8;8n$~$6pcYOwZ4f$>YOB!$VORb=K}NYRK+HTTNtI}EV#G$
zwOlf?vi_{su0gVr38NPmv5H6H!t{%5hy7A5repRGy%}V-kha2h^#>1v@HvX5;CcfH
zY3jaObibS)^;~bAfb@E9xqLmMzv8iL(`NkHYAAHm+-4G8{YVHosRD`U;`n@4#=cz{
zv?zc3#=U6hQD}d;d;XL+Y2uxaCs!a%b+<|Kd?I_o=0|crO^JW><b_?oBJV>FbOWus
zh|yC%k&=@6(D{*Nr~xa%BGE69-s2X4U<g|LO@CF__fmybREO|`(yM61BLgBJr*iN1
zkW;r}RAI*ItH-vswy#+Bi$=W%J(G{29)3Ap50SCy5nq1s*6-eo=wb-iItcOBQc;%$
z63BAy1C{*VX^+PJDMO&vTU{&~J%gA^LUbc_P?7kNNIT7T)e{&qP@ibx3Zp3Kb@O8I
z)5taQFaDhz>W7&>7nhns5OZhI^KcVm1b8FgeKU-T;p)|^GAb%BggL?o?|dh(4nF+E
z%?8(#lqBq!s!{1#^3w&@Jg)rRr%#_qF8CbeqE&i5)Jw1S`VtWDxzA~JwZxLvBOL7P
zHe}UMOu|>WY%`M)2okDl8H-!H1Ut|R)I;TAuxqptE-9!=&OE!$t*SWU$7F~7eXl+Z
zjn$RinWPT@lb^D)aXVI~5@y~$CbH_wye>rB&=5{T8d~2nb-%Z{Q1^3onkdBiI&Xyn
zN696Nktf)v?6-cJ-RS=Mx}a)rj!g$3D2Ce@H-O;$38epv;f<#G^XlsA9~7cFzPGoZ
zLZIw`j^W$#wlP%mF`}-vU1o2k@to#*PH%2*!XxD31#A!m{%<~7DbA;8rJ@~<87+2T
z(({;QF5m3ahUNin2{_6Y@-A<76<{Orf_4ol(R!960tDDJg0>KxzelSi$z|m&^SNbJ
zI*RP{ah`p<?0i4GBt3n_qe8wpu-5QX`Wame@6x(7-ocV<)eU+1)6l($(Gxc{HGKi}
z`Zxu-DD>O2Q<I<5-b$O8Fc(_?eEF!1clU7FCvsq5;A6XGXh_IPJ*7V1&l&h154zj{
z{2jT*ji%eLem}g(?CbdGk$t=P_84I34O!Wfz5y)Dn)#+F2QF&|yXy>o)l0)=s|_@E
zV`02)w=|1fmq*;zTLo3Lw9YW#L|xN-3i*qwG&^lkq0ss0U`Emy($Eg%L~fS_4L@lH
zs6KW)CEx=Me>RHE+3r(zRfhslwLdfq${Q$kW`kV#)}=Cgz8K2Z)s7p)<4`Fez7rEh
z<-61Ic!9O@%}YZiXFuEw=doLc9t>hz7<mW56C?iErRm~8i6cvP@kGeS!C*VXqK{b(
z^L7JYPeX$yu(rPLurhZ2PAt#KXQzm5y8@jS5h;kz70Kgu$)I{8Jb&q(S!JJ)(W9**
zX!7{0u!f6UnRFdn`FEz{?e4WHOaUs?x5V-qQsF|oXxjcZ{KCQ5sk`LNlM+?1w{`5l
zorIT}4o%3*;}L_Tg;0A-7a4pzu};$f{oFS=(cq^~Pc(aB`|2O>VGv(vfCVi|N0%E*
zX5NOHG)G;>djek#A@Ww-#Li=y1=_iwP_wW0d~#Dp?)h4!HXp6&V}N8?IGW$!BE?LC
zW5mwr@u5D0O!tifNN8vM{r!{eMk^<v_~5hpICli$UqANknLq4b!6Ex+?w@#v8GhfH
zw;n0ig!;2)p?R)1qxD7{T1BkvA0{g&Nlf@t>XD#$rfCOdff1BFHH$7RUZ>~3FIr~4
zd-v|gc-tM*mYB|89V-f)6_)_40Su%u&Hz2=#;(uSEo<REZng7fI)jhzpK6f|)ul8Z
z!!&e&QS92LeR=>XZg35)&h%azDxJB;a_jl+b<yuBu4x$13n&hGLjj;Qq&B%}WocOl
zr!K3f_ttIf$*DR3thXEWAN`yb`QAoHN3$piPm!Z3JD(WB$K{nk<k!dBwhn;MmlZ|V
zcnx$htv3o_D^9RT?gm4zMPf7Xl@$8#z}=ITGCubf*8w^oH*t0oQgKNwj8tgD-d=^<
z8#}KHchP9JD@DH9R1`;7Ma9sYl)H1;`*1IIosEsH{*%fFC}YrdNls6{I`8q*GFz+Q
zc1ye<r%h6jl1t;k6kep*uRA?)mzCd!NkaSa9a_xcH<N9}4wGNpRwu&b-UTU{5*VOm
ze8ld36&}yvpx-i1EvLAEu?hYMWAle%!G&MF!1?Q;fQB+MWPIXSt13}K?C;K{r%QM9
zHP3{#rLNX@E_ON7<!WU9IN7hw=wLfuxBGGNt|~kvRV>BK@k+=ET?`!^Z!H(?u0?F~
z)Kik07u?-^gdxd70;U|%&7EEX)ZromrmJoTF+*l15^dN|e3=%>_|-E`*+cK=<yDbl
z;;buok>pFcrvS7zy}i8=VzKUG^gS4i=-Nk8Je-Su_76qH>50qra+nGpsQS0h+)!10
zv#5oPt?!Z$;L@Egh02jCz;L%-=dxZ7Wofo34;&a@F9%a@AE@hHb%CFsKf=${+gpP1
z#jU1w)1r_1!J(S{Q@<v4R9>4(ww)c6?ip~yi$iIr|9MURRS$%P{Vx{rUp?W8g3GBO
zCAAa2q>*Mim&rmIs3V!)8VW0_yjy#^CeuiV%k|<?!A)|(%-xJdk;pB{3l(bvLLE$u
zmWpCHihp>v|Kb7vkIt}T4uh>meo`W-y(=#+^}4ERbF((=HM-9q(ys#Q>u~Jfi1{>L
z=TfS}(b#YY)@xW_Z4U0v?^4^cs8kEn<ApBg;au+fs=aG5vLE6Ww~*?|RSipJRn_8Q
z+fV6-nBn04j$m%ls0%YPa`!V%eIYsV{_gj#ywdC&80Y3@v$J?OBt(G>eqVH(Cs!|$
z1z)5NAIMIz(8_OMepPoi^K1c`a)?rR72NYnWKRsK3av_XIH&@~HAZzfqL~VGI4H&F
zBU7~Ao7cHKM&O0m3uau(NP}fag8S_RSEXx%xx3-?R@KQ<envW0joOvzCP$fXBDe;-
zPZ<2TjuWg0KYJ+kif9eaJ_vthctCUfIJ3u6zD$WTKC2;DEyJO;uaY<@E;I@2e{6yO
zj~4eo_RRmu6F%xhJpb+H%tc$%P<zf|#wre1{|zxvXXob$*p?QYFcF&jbI<zKbYopA
zQ!N0pA-`Khck&ZH3l*UaUm}&SMJ`(g*jZ()^k8VLF~YGY-0t@>v<y{ts)g%Bw;`!#
ziHNWNJI?zru=rPT{-0dvf8hxcC+#nheftn85fXfs#b|Y+Ug-@pBclj|Fh#Y#*XB8n
z@)hZ8I>jWV*~ZHw6-sY_lMop%PPp0wwT#$GHMSenTij5CE%fJNCyF@p%=kbqKoB4Y
zfWgz4PiQ_VtMYEX^!_k_EQxe~_6OE8Ivi#J%BnPar-XA8<5GnMOqI6S7#xxYQqr&T
zDLPuWJWwro(ENE{2jg69;3J7+;7&^}>)_OqxnvfX`qQ@EQajiS{v7<<{E;>1=B}q3
zbZb~hlK0*fqg;)y11P-lkd8Fv3+UNJSzZk}A*=HI)vL(|f`Dw-*eMfs@npUT9D2$=
zAvqD7T*sS-lkGiYYQskAq$Fk`ByOtIcTe@4ch%?%N~vJPrEIv+ir=iIyg+Yo5ep@m
zj9z?UDuBi<r7|P^Ob!M=veCG#wNAo{Strpvr)2;AtM>CUa-ox)XPI8$QLt<IL9;Ar
zu}5Q9j)ee=`YAK>>jMRhGtLPtS_#ko7nRT(jzdowbwX-)?JR3SZ{a}bmIQwC{H$g)
zKF$de>5EhZ1D3?*Zh7k-6`#`6^K=zdRmsW8H7cv}EP!QC&&V*O3Ru*F#u#25>YYL>
z_X@q=r4ey)ahc71eW^YweY9`hy!phP9MO~h`SbOZm*RNq>+7Uv{7HxgiQzJdWmWE~
zt4BL)vTV(}iP>66J|I5{MF*e<a#uscyy&qE`-BD}$4Gi7L5S4d-Mx6RaPaQkyJHV5
zK$tiiVT`rlQkDx;Tv`(;DQRNIj_996_+N;>|CkQ{JrVxDK0-Bf!KNE+P-9oSIzrVM
zP<2PA^uw@-JD$`-Dxdc!YRq?<WjYbopV10EO<#4ADOAp&`6MkdhxJVIst|nmkyu1K
ze!jZR^HRwcId(kPQ=*)fNQZql{F+_&Ay%DPi)*nl%PD@XGx}5a&qtqLJas~I4rfrD
z;5`nBkiBxlRLv=bnEI%zFxm&-=q+#l*IO(Z;@`9ms@f$Bb!SQ(Ii%&1MxW4=7SR4X
zq2=q|rtdk~C+#!XNZpX_!xFzT=3oysw+cOlX8&{h(er)IbaDQbB|3zzHyjI@?z5|^
zX7%3V)s4l7z!vzlwNHfD7SVj^a8>Mn$9jf5aET?uc-p1Rrsx#k5T^6f^euMSCZCtn
z)1madp}JVL1h3~?;3bfoNf$grXg3sW78c;u7u-nmf-Z}`S{l!<c07P4fS34kz8(cs
zD8L&_<H-%QHgFM8QS7B!Xss3ZU-a`$Pmi+v+{u~{G-fYE@JS@WO@x;Kn;YK?<4hM|
zD8yqLl3YFYNHg6;sJK1g1F4*)EF-CcmuuND?35sxg`$k~tK_m4o7|4c%hku>v3)BW
zGu!)gpXGaW;2aR(A<iB<{Guw>Y@f(eJE1{(!evzZG{ePf8;W>X3^MuXDpXIz2zBTs
zE3yq*$coVy^=#L<33HnUd)3@#XBn^>N<ABwzx=(wJ)vKTW!bKJ&-<nm-zx9FV}Cq(
z-AqbWkV;q3%ZlHZng|LBpW+SBbIR^iE;VSLl$HDNSjOq45z>8n`2+TpM(Mt`HowPo
zp&@ei#fN`?9rnM;Pv5DkrGxtBPC>aW&uolrL;vVF(<bZX<z=-Q7!>sT<8y9bOpbme
zbXq7yU$s-u`NgdLZQmRvJmWOGF;X^c3zQIblIPlK@15EUC{tJqgv}ozRP7ijc%@sK
zResEV)uqn!kQ0azWU1=dyZrcQ9|f}rj~VnK4?u<0hqhh}^rzyj0V`C7LVHle7g}#9
zf6JkF&FYe8Og2^p79wrxF$rHXdp39R4a#4*Cy2H}B2JyhE(Xd1dOd6>UFEoJ)-%9P
zM_M+50zm0=<iX_9r&i>4IJGD$(oZ9z_fQPyFmc&4O@7B4&6mE2eiq<ofkp!&0ZrgF
zMFn7=cx|B%dj0zKyVBCB99$3vl$_2JU!N}}V!$Dn<xb;2@-cpY7td#}J89+DD`iF&
zmd2lYWB|ejJh&^&(K=5-p(Vq{B|s1m=}t!Lc~~@=xGoI^g9@5LI7&z(fFMwB4iwoD
zBP4OSENul-k4%QbE;nll*Q$%P;)hQ|%Ms#V`8oZ}pKv#h4>9^2b#<ZW6cU$;mF`%O
z85Wz&+QHX4;F7-8UK~etU$NU7bAo#7hGHGvXA@^g+E3Ecv#OGWg^rXq=)OppHa=C&
zP<s!z?sq@;=1d(h^T5N@Z({UEo5ZbRp~XhelSwY(PF$r~JH6-bR5TU8<?D}c3o64N
zkMXvPJ#%amJ_SV0v-EV0yoaYH4mY}AH#Zn@Lr0CE?7xWfoF8=Hl#mRk59-=u_O=#7
zQHcv7S@kg7rqvEfzEtokyw`Q6H^gYa{t0H@e^7dqO!=;y_sHAZ8~Kr>hl8RPGmTh&
z<R`TPD9_)%PU=}SL`b^!VQO^n0CaBu8SEGT@B+}XYH=_U^{nlB-gV3jN4v1W#kSJS
zHzs+Ve1vcUE4`{evri&uUY4tg=vmu8jH1T|{F_<-HorMw%bVM-b())HKtZhS(0*E0
z;UbAtw*TRR#+Qdb$i(2f5TusN9vbHfSRGIc>kDlL?VGNo8Gt$ogoHdNNjE#&jY<1+
z(jPs~zP8;9zBc(G4J6F|BD)K~yZE_@Ma1%&rFvC6&vu<eD<eJksdK1CouQti<l&zW
zM?s|csAWw|Ols>&MF!QMkw_n;=~2ka$_jbzd`S`23~n^s7PkkrFwwvA<OwW12I%|p
zx2+moSd+Z0bBq^786Rk#=GP)js<@2+5MRZs_dToMoRO6!do9kZ<&mQ!Y4}YjGV(aA
zOk%A;ECeCic=RYIGgBr!JSmG$4K$(K%=@D22M3;iD5R}tqs!YjRLFaJdrfrvn!FPg
zp;ZO4EB#qpn2)nF|J4t;$h$9JI$p%dp$rxX5@sVupa5_g)!~(+Qp$x>L^J{f`aXyJ
z9@|Ta&OiIQgq%cOm%>0HDDt=v;jFpdKK1Cm&+!ozmw{A+dKn0jr~r=|Cgw77CTj3G
zoxXmMkzt7s2|2TVfRA+Kn<-z@E2je1mE(^pZ->dIL)GOz#i9kc9V@Gigq#zYY+b9P
zJQMi#d$>#xc)RJASnOIZF6X%iU~P!`W=n+&R9pafB*JKg$)GJ}Wn-(|nC*5Lut*#4
zQsCs*w;%S}9;V_oB?t)(&4sYf)X1$_s13Z}-T!dc?}1IiC)muu`f?joBS5jCFX}T3
zBI}u)sv{A4pMzCXI*QAT$*Cwuc(}hEUnB~fz#pG7`Q1AN6*fV{z(<7KRxZNJqo;0N
zdZPja?HCEK(p{Aa(dF`Iz%0?iiS_51;3H$huA}wq?UIo|D3@=KJaz-sxkYQR$ga^i
zQas>~gvDjtKyXbn4+s1nc3r9I>55Uxw|X0buNouDF<e+V6<gGE^Ybd&+Ezz^&YeKV
z`)$r+SQMdr6*@jxU#-1xL;`XTsc!(MWuimFdBr~Ef=tYOz2K-PHUmyyrlv86=)><M
zfO-apdz)@+KUly6GVW6Lib%h4(&3tZCGDyktu&sFbFV5wU0IdPdIlDKVl|+BmS0if
zF>}R(W;3fvnb+LD#1|yOfCevA(}xs-XWS6RP0X32Q$hxH3Vgt|aiV%1P#zyZno*Qs
zyi;%uahmTVw5!~`ECO)@gkoHC`&)4uD29ut<E%Q$T<vrm>d%3M#sD3#JKkOhTXuEG
zIX37mu)!(N8ZU@#zO!@_=tnM_0X`kqVdp;-r`T4%vEoQ<nzjUkE)7d^n0}21bWE$j
zKTbg0MXfPNfUn24E{JscSPmrlTOVha32lqV11@)Wu|tJ2;=R9kxjXGn?9(gvQ!gpT
z^O_Msh#8N#l<0upg2J>l&P0g~{3|BWx&bUno;()1(arwO^L?>JWlpmv-i<d`C`;@<
zd^H6>8F4s1q+v-9!$KMV_zTYkkAm-{i@t&6m)T5Jt>$ec1>v6qRPYBtlDskpojfP;
zvGl8EN)qq~8A6^)>=6*Vfq)EzYmL`uSRN=~b6Fhdy_(3xC_=9@@R^3lU)#HeQZd)3
zR7vFMA;FkMcj|bK&mkM+T~j5igLpp1<X4Hwti|ctuGI}ctoWmOXQ<L96&et|d{f0P
z_3!>95s6`MfjxubPV0z@WVm~RdeycaiAbP|ieNb(`Ivx4;My#?DJWxd^721amdR0y
zjbl=DY$nNv9xOFb*~N&t^MKnS0#(Zj_HN3^IMp;!RYPK~hdmVpV&yk30x^ih2%Uj&
zh>VBPt0Ybi4&0!61sc`{7{ZM}eIu})2DQB4x@NPq3eJEmrVvL#fXnT3<S8$1SqZ5s
zQ>P^F#|Bf*OQ*aaRH!r$f`}9V6A`VDFF-F!x|(NILNeY!33RYdoiN`y*90~Vq-r!0
zlte~~P-b>3DqK`|g=P?_8)%?!+>BNX_EmH}nd;P?)gwmwkibAzrA1P)o6Dl>(h#^P
zvU&w!3AO$Lz-T^p($d-h!di^JPa@wkbnrDnq)d0UwL?L@zpo^m(z|ztkFXH{(75N5
zN<^UppJh{5roInwt+g|g>Qli%S}2r?IQ@S9NDuWnWL#q2SonE1l#;WdY`HRi13$`U
zuyA}bQW6)*)Gebx*#N}gUqPL^6b}J5h;}!iM@GFRU>^W!#Sn}?LW^I!?PpV><1hrp
z`%7iqrY%(KGa2F7yQor>=P8{o&?Vn<4R8^RERnozLfA|<!+Z^?OtYAZ-e+bK0F`~g
zV{^_QHfE}P>x0E*P|%gdH_0bfg_cU^Io7H1W(zBrd2sE4o^Sw5%;ZM5awAA3A&#JU
z6z>f^3Ht5U2e<Ppi=>F#ioq*|Lub%;@F_WDz>v07GDDAEo7CPvU{M6UgV3&%f>=nz
zQFZXBr>DmNtY3()>!=rHyX3JL7<pDk9xsnqY>)6-*^E}wMT&1x={;WLN2);vMKgGQ
zd-$NLYQc}S)1L=!v8dd~dt%NP0yo`guIF?ASBtaA$01w>9Kgw3i|)%nJbys1%N5QF
z5WErGHC{td#!OQ_@3wiY@bG|Q1C-2{lrAPZ2|+=$5B@^bw1gt?3>@rXs%&|N=Qk%n
zjtNXp-$64XxNx9x1I<&AisvC7K<YCHY%Bycu%}=gF&-{;-T?!LJ!GJ7AOz@o3(!Xz
z@2*XOFY2ps#n-RoKoqKwLqGz7j`*fpe9FmD{y7S`YFQfsF9d`oNaXlH8lyJ|3*o5P
z==#d?@;1g>Q}cYO(=0gEtlhQam?lLHqMP4rfb%8GswIY7k%%AjH`cz5R?pTsT{K7t
zsEL+qg2PT{k#``jqoPx1iK7{<m|KUA_twHs(0l8^mGlh6^hp$LYy9!YSKV4_i_~=-
zPO4>UJb}ClCko=nc?6An+u>3}P@0P&E)c$hN7K2D^j2$aV#DZt;3B{VZ=da!Tgm_~
zV)~`8w|9I-^4Ps^OY-=@5rkSJIG!8mmoKx4+<p~)Ot<i7<ncV21!=U?oNuuSNWxZI
zF6!{3nYr6Z2b|F43zpp^^Fdb6_Ys9so;&wGIk~2*Xz6v*D3Ve*poXd2?7oPrALU#k
zbrE6kOKB&2O&oPyb1fvx`@NT3-33p2OD7i3H_AUVPG0O^GQ?x{t*%-w)Mb197YV=-
z9UmVGF>{x7|Mbet(hjwPtB+NNzPRJy*tS_>q>tJ{<A->Ri9SPU$_-AraMF50t0T*@
zz7L1(ayjJ!n$gW5U9yr}u31(xA9#cOnCtYTi@3?vczP?maG=?FHs<j+=6<@&`s4ir
zW9<TD>@S+(0?PRGXS(Xjoe8WBiWWDRfABhakauO~VHI)YIj9=Y8UeP%+K0XdP=)U5
z>7ni%x&i^MnjbdpJB3^AK1aMzBK=A7$VwAiPWAHk<lcNv(J%-fDk1>FvH%|@u9Ket
zl2IuIBt}bm!6Y7&Gth>#gWpLc*m-$`Zn(@fdYJG^!q8S&5*8%|g%ND+>BY6RN95<u
z33s8o%8zRR`tIw~<KV<ZI|yP`Rc`Qjlpk&l{=vw}ryYaur;-@4x71Q6RU42cOwI)`
zZle1Q)aAj^BMSP+G&DUpwcIB^X)bxLRrI|PkE%_d@QdF#FE)#0OS30Y&#Je#x79{q
z(C=bKKdE2!jSNH!&6W1lOG%QrZWVtweQuB)P`j*v-H7#(QyRFL`U|YoGn^s-cP=&^
zoy;9<@F%uTXn7K$4;k!Eya1uk;k-T=T!h(&Ejl6lelHEfDu+b=kv9&Hq3dl^=-(L`
zpk1LfxdBRDm3#Ld^@z&Kv{Ig}+0rkM#h9jiumk^0e-Y>UO!GH`=afytL?#CWJ0P1w
zVmzJP$%=|qQ_aznAl;&QNQHN3cek-$JL$0JdF+teZRN1}u2RhNlom8Qr6t)4nJfb~
zbi#?VhCBsHpBNDD#$cfhI8$<+=haZV%ZJyqQAL(e5$&usb1KKoFVkB=NpJ+4D41CC
zfCO@KW2E;66KZe*h_U*U{CdDn(2=8G_0hry8gr5}{`P?8lYsMrX~ch3>&~yJ;boJd
z;kT$QS}pL7|By1D7z8!1uIn%`$M9rHP)s|@=^4SQ>;-HoWak@QU!ib43yKr5#Lh)1
zNX)>cmaY3L<8q3&MDNMpU~u&Z$f#X(F>Xr`Mvl%#eV+agRW>Ra18V%5nnDeQu|Hh^
zxKKhM0m@M-ZX+Cm+FM%752Lw#fl!bK>bs+FlPEaolL=ZA{EB8#mOSKx1<o#CYx?L8
z=F>apEk8#oJ7ev2b=|v@BtdtIh_*Uha0CyT_Fujag}X5>y2gO)wUeu30Ml}ciiAfi
zfs!$p>2uN`z8FDI7Xw~B=-Xa@9r?jwjG%s%;-kI!_ZD&P;qsOEml-YTpfl5`^7iWD
zQ&oMReigiv5t0Yv#M2wlQICUaZ+?%dcP$vd18QVE2GsLt`29HpIH<ls^sE9oaJlyu
zzj8Mpl)Kmn7~HVM4pwT>Vu{D(b{DgLAR!H|s%mG3Iw!ajK5i<x0F{xQ-R60cJXoeh
zk`WFM^|QRYxiAaMDe#Lz;|@A3q^(mr*&Cx7Hszk__#OYDRDQ|vkoe+MIq3Un@r!m@
z;GDDvaM#}Zl(*`^Qucbg51O7pu$AH<U)<MCp&?3Bh4_{s1PhAcQB`p<mE>M$WXm9A
z@PyrC8r$OcKT2bxlKw7uN0z$Nh*R&xzWnMP&7s?oqCkn5^FViJ2yr*Pi0&@M0Xxsx
z%1W>OxNe#pS0063qMcxtw_L|QeVS$kT4pHULs5<cjMEDo3rQ~E)t{!P2Q^MkAD@NJ
zRXfEI>Rp!f*H}8>de^J)z%t*l(VRFw{ZlCv>PeZ{6aoW1+vh>wsby8hj&_Z~B^7FA
zu9x&oJb6;K!4U)?6;o(2mWUD`x;~4zaX?1#KdQc8_spt+oSd=Rskz>=7%(o?DkIJY
zVr$A&O-NVQQjC*spy_+N;O<7vpAj+HgY>-X5_iP~*!aOQ;yc$8eG6J114CLq#b?Q^
zcdrd8$11g(y#YVTu4hCd{_xB?19fj6r}>k{N#Jwy`6zyZa%dsh^WPa)uRa>riSr)}
zlWf}7aXULZ=CH2$NeR)~78?q!8}Q7VfKEaZEb~%{+?(%w09LK^D4(JNeRPYg%{E(S
z6m@t_Fdk80t#5j5a2jaPB>7xKrP;My1PaC!`KyaPeswYDiI(!mKk?3}M#?aPyCY%&
zqt*zPFxC(w3r&{Bmd}ozASd`01f)q;jV|9(OrCzZ#%{j87O+~()L0$wSW;KlE19R_
z=R3T8RvHfv-%CMfrKZV6sFQQ-xS{2J^Bt{WB{r}-ra0URi|#d9v{ZVmrZG&M^`&%K
zNRzE|d(!>DJy!K)_`gR&{QpSV_{%!{PwZ>NNf4U?A)h=2u@5DeT+^?iEb5P3#I`$?
zFp5Jr1SJm&3n>6<{~`88+*FBdgdR7M&jt#71cAB@`aUegFZH@m$J=HTFJ4fE{l1S_
z>ZmL@od)OoRdRf<`>N-p@e~Fb9`tU-fMX%L`J}3l<2ER+pW1r!P;OqTn@_<wHGNCp
z>~h1MZoa_+-+;rrXC34$nH#P<m?ss8qy}^6=4I*z7sjn?wAam5-f-d*E<I%n1-Ink
ztnzBbvKKMffaTY{H#79H5R~j2J(w0me1kBd9`QC;L!N?3p^lA>WN%s0RHsl)<(=ti
z{pE01X?E*KOW9mHCvYw-4e9uedJyK?38d+A?D;4sXa!VSc;Qw%?yBNF7Q_3w5S^a>
z{YR@m-Y#i@CO-1$(W7_fB|$=Wn`hRqxBie_7^5K>_nM{5v?%8Ef;3Qq{eGIzcFpJu
z%vap7wdL@1RxPx`GVeEIGL*C2J@ke$Q-sWkKJpaMf|}6^Urm_nVAn5tGt<v_3#}(J
zli*zxWZ8Eiqf?B)U71Zwia;|sr_U}vSiYW0c<sfk!wov~w~lBXqoHoLPgP8k{C?!g
z;a!aP!+dIzO3xGT=I%~7^m|E?65y(+Yo2yqkFMTRw&@MA6nQ$MOOR4I;!*`(r>ksi
z?{8-C;>M`LKa!9qzSspoSCfXS)o53o)^ZBW(i(S@V9b@k^IxcZi1mlSV}=LVU{3fp
zHQnx^QYt^d0(be{&*s2K7FzXUFvl~iu}?;q1Cv?7)ZAQZ%|-QfI0uMGc=&@;iRX{!
z<}4rFBt)bP4c{~I2gfz%A|r)1G~T<-`ZWOEFa%T#b0~>d!Fb_R<8aLv{8bi}&7edl
zxBUO7DgGxr?|&^q{$D=fNk#z;=(S+vM@SsY42AA?Ltwg9pb<L1DZRQ&qDDSg0NG@E
z{aXiLopoOqA0d4bF}H4!xaqXlI}d9$%dt%ltlpVh?9h(wc-~E4s1k50(dqC63;&j@
zqpB)QP*Cs9AW7|k<_{b{M*T@C&n7w~;@vz=wTYziqY9XE+dU?g#EkhC^40c~ocIbn
z5PSykh0xeiwTZ>ljB}AVFnT|^b?L;VJ+oJaR9rQN7fl7dpJ-eQ&=6Yq9>ctZ%}?!r
zmXww#5KA@itg=~v;YA9fS|*%@2Kj3gH~468wmex?4vQThlc0$ZDQXX>HN<1E#_$kK
zN=CL5fHx_bH7d&aQ41rHL|d&^ZFkb>vg^moDvod(*ivHj$_I@vjK@~phE}ygu(5zv
zvj3znbz?N)w|X)K+4eKV;6*2CAezPKT`%47BZ<I-h!!U*ZQ$=Hk80(sB`>#X_62(j
z3m+-<GFo2o#{Fyf?*FYR==mdIX-1Jko1D)zM|Zsjc5RD9=Qn-v#pyTN*o3HunM4>s
z6#o?Ly8UL{XL~tUb#kc2Xk!VCD7OOx-~H#qBL9T=|CYG>zdeE+w%gA<lNde=GL$E0
z@Ozbls#>gILHV0HLn&tPkAW`nkK~hZ6}15Z@kfxJZUn_Y+Jlz5F59+^f<T5^pFkBL
zK`!zUDwQh(DH_rDwAsHnxj!4sB;?Wf(kj;5iYl)I79XfKT7IsHEz|GjlXA|Ens@{`
z=0KN&@<H#>d`n%7MVx6FMaP#U3&y2e?26rEA_0vpKeRZa9rt7J7X)eDCMBX{JA%Fk
zN+Wda${5DIP$Gw;a>vN=2waj_$mrpcE9z~<LMBdaF>EasZY1tkvAhn`?a}FIKYxNW
zJuvsEJIw2W>bX_7X%=zys_S<>v8ePj1A=Z^Zz}G$oxd9@%CNP0vyP2;AU&mU9$D<s
z3tD8q;fX0Kw7jAxsdL!wAJi+2Q}j`n=!<}<Wg8;pz@V2eV8zZLGhMmsA?0vR3a3b_
z&a#`+%tUmU?!8;7ft=#GCd+i2-X_P#T<<=K69vrW&fcBgzo+s#(|D^wNtZOd@k^<v
zUBgsn*s-SU;)~_2v83aXK#$t*{el<QUEaQoj<gka?|0cDX?o^dXnAhe^SAb0Kd*0E
zo?gXWYV6VJM)rYipLmmZ7DlHmqOmi>f4<wI8*`nVUQ;S}W3c3CJh20YPd6A?aF`4i
zG=f_X;tNu_p191X$w3_se#@qNin<tdQFm4hSxSSFlNo{E5?b4J0^>E<QUcBSEX&j`
zlK7IG_-4@I0xkmV9E_EF7_W-zxsxYP0_XY#<PB)dLLs|QotLgjhnx@793UwT7Qhsq
zlP+{y;fru1@xi(x1WYHG7=h#n0&jKZ6C-HvC16|+#$6V*AnHPr-(_=n-O~Q!QzR#+
zpb(gM(9_WPj$FP%yH8LIQ%HZ09f2P7+G!^i+K89Jdko)u)%C+Oaw-RYyhQtkOGkgr
z)BZm;Hon7S$yORA2r$&BTyY0v1ZmFJHha;<p9B;;E?~VTzt<O8Sy_RVaQxBFs$^p?
zFL6*{G4lnwFf0QeZD5%P3xG5Q%MdyoGgyFtu1pQ?3NTe=tE#J?f)WiiGpPyD1{hLB
zglWP-V4M-A0YTOEtqmkbr<2kxj|(2bZ=nNm(k;?uBR_K;4=btNtSriq3W!424TrZ$
zNp|in2_8xpEd?A1U~s3s?xXxG+Rx{LW$J#KC9%U85!2?;eASUcre=P_3oTyL781_#
zm8VPvBR<Do+#sCESuT!N>FdChV?+;`bP&uM-?JVr?R}wznwmAfn!jKw0Atl9=z*7R
zWdTDStn%Te@I3`Q23%tLYg^0EQe=Vf5Dc@fBKKfuKyw0GKl_h;ppGzluROaTbT6Z_
zQZK=4>n9^Ek?6h1-{ybM;C%(Hc;))f#9NJAFwOlG3maGH-ZGTSRAO#lm;$9TVBNq~
z2Ii~&>~jRTsL|PJd1Tln3vwG&#Gp@iyJSJV1JW6K?ojv<PD;XzCrEbv*{Z-!qRI-4
zjucw?*BS!(fC}M-R%nC8g;KWY{m9EB1H1EEroaKXk-$cny#vbZPjU4Df-mi@NBW``
z^xx^}6EI~9Rxmse*sl`Mi}k;#-9o*dK4^xLIiTQ!hLgPU0qWX9?E@b_;(%y|d~uvn
za?}EP2o-H6v`z!(QV;Scx8w934PoSYw%R}20HgK_y!KK1fx%x>sn@&8Q7=3E5W{O0
zk>Z__5p6LTug!MfCte%hT!=vTzc&>{s%+z+A~vD~e})~nPigaE#;8w?9r<Th!+=^=
zlo&2gxTfRwu~UIo-ZA#<_LHcE<Ik1_PRA^k&SX_cR3D5Dv4OGg)oi|5I|XENwJey+
z3@UM)32_tS81a~AM<-tji~B&qsZUqUfbmvJuoawx`Y~6BjUqG{1_jh$3i}pJ1c8&I
z9tbg37?N@W4Xhrd5q8XNRZdl(#h%;zSt$j6B#iWtp<tDeM>%LUxV4OGSz636(mu+c
zp)c2$k&}bIxQ$DA-5?{pufXYa^nC%G3T!Jj)nG=<xUBC*+&-01UR2`Y@pmnkEgy!L
z+gN4$KIw;_Q}!iQtb|iXuvk9st--9dw4tG4zE6(p!>op?VdoMZaO<;Y_kyVs1mF{A
zFW;$#J`E-~B20UmfXoG;LJYQ-hN%RssUE1-0|$m)wO00<biMSWfh^}=U!(eNgJIPk
z{EC(^C+<@#OR3wFDUp&<WZub$iji)Bz}CI!ECmo|m<i7K6q<Zk{D@2w*JC@K=C-4x
z=l!P^mX5=%_?I|4a~Fz#-T<S2__EjX<HC8sj)l>x3vfF1u#KK>!8}-TRQpUVXhRY8
zp_CtBVk9bw%AW+ri%#CYeY=I_bm#Bq@lcu(e@n^0+?(C&d$~8;H;BrI5p<zI<Tf+B
zNmm1T-vhPXzhb4;Y@gpWf-z`xkN}(mx$uG%n2>rSbWqr~eDx*}Yr|{7W?eRB(vBCf
z|HOx~Y6h%nhtq{G`Nu^MeHcY3XeoinsD}GJ{ax7`ZJB@sM3oJg9bx-o+Dbjh|F<U-
zes88LKoM$qbg)Y$;px^D8;vR#J_nN*NTdxm=X#@jMqXs=DSS-t?b?g&69q#?uIKI}
zRQJ#>w6<`_LPzm;U=TSBhBHwZTQh5l-AiRX1DHsQe6~bg7r7b)Ipu3-vMaW<GW9A3
zT&f^2ZmDN5@B0*by%XN|sd=$4rLcYcpaASajXFs5>(^t6t|Q-eRwr9)??U~<F47W{
z-iPW~k&;JLFu>aggPrWhdIG9hb<yHzz@Zv=)LU8*oI^kXq=Qd!So<$9e~U<|sE|Ul
z%4JxC1EK$Y&F*P;uR`x=RL^bos+2>>mo)H5^sk<<-azEZg<6Hv2oeG5TicbQ;PCAv
zr2!0qurFy(gx-Xbj2$xM)F@?I`kSPrNTBslD<}-FrB98jm{HG9OW=0(TK+gn%2rd@
z^0~Mv(b07%IegUf@-XRB!Rnv6W-?mGWpuJx3HP7NQDvlcm)%A>)s7EDN#l-p*CBpE
zr~%gjy@<;~5O5R&v(qY*b<UoVCjmNb`jn%zj1G2Ixd<jd6<(L=<ML$|0d;ZAr3`c-
zRG~)+SYR&Xn*pXD9?IY0qqcDw495uPg`=E7jIiTnc;gIUD^PlzPSnMqGg-FPmPOSo
z&14|zcyy$~PayZE19IH>!!u4^@lC&4N?-cL@GG|{CEl@W;Jg^<dirz>J5yd=!hTZC
zVchtvdO?Tmx0`Hg$r{&nAIPZSyuZb*YOKpDp%tW6b~pac<;MC7UZ*&|*k1yv_U*(c
zT3dd&wqazIOnG8+o}1>cMn*)`*cP=nC2z#i3O~A(Lle%`V0uAtjPdp*GAbIH+F!pe
z;hs8$4wOO&QBO`z-fY>~anlow`(D363$(g`cN>tw=uL+=z|f?rdVXY@4U<?cAIr*U
z(22%^Rnt5eZEhJqckBGV{y47A!<U!7ndV<tA^%!fIPvSptKV~TJX`Z}PBMP*1^^$D
zlTSzooyWuz;+!b9AD3?0issZ$&dw%kj^+e4iDxn1qo=>GFW~6N8wNjb;9&*UJ`uDV
zk-~doz!d~<;PA1WLaJdeHR3|BOh-ot0_6nQ|3#**`c=cgDNJ4m4-9C5vGc3rR}o4m
z<QQ-$IQ7CHu$ky1;~xQaiw{0!;JC#lybppRB8X7+7!-(@m>4c2Nv}P>>1k6m8G+gY
ziVM3^f)JLfs$tO}3>Db!C2^>=Q=akvVpJdU)r>4#zbc}@3KLhTnZ+Gl@;xsMnE7sj
z28|cwM=ssgmx1uum~15OE`&F+xDSK9t3$I+_jqDI-nxXom&7Gi)%y)tQgNxBuq{3p
z6$zU7h|#A3WO*DPi8GU(o?BSBq#1Sp(Qj%Rnk&@dWTc&NmwJ18V3?or1-$9Q)$V?!
zv{yl_#$J0n>FF;A7gJxnAnoD{fBNlWL1AIsw8P>6Kl}(`=w2~$EJj(eG%}(Gk}}T}
z=)p{i-R1@czT~p+8zV2gO0{s>T{97JoDN$Z*xU06x%uJsoy!*1)?q-r-0J3gdFjV%
zw)@wRx!GCyG9f9R*h|P2XYH&`%Y^K#tZ?A1-`qQ8ys$iht0Tk9Ki1H2bFyUQ?&Zsu
z%|SWp`T0}6wzf7^&<g1p8oC2!nLF`j=H@|QR4^4&SLHYEhGU?EXQ10%qxb-Z5>l0E
z+=R~(UI*{rGl1)@Ve27}yi!`X`9ODk2k5f*<L+@dmOPp|1NQTmCb5^~8R6#dCCxfi
z`5X(h&O->HZ5$&bD2q704>bkok>B7TN-h6sv`H*K`_Qsl&GIXC+WM~Nknj0;>>ctA
z+V!z-*q~RWS-Y0#0E?_q@`zbPMC6NMEpB)HO|UD}KoaWK^Occ#e#t^@uA8rQ=kc6Y
z#?QI#6zvv6%b}iSyG_-{sf}8(&A)%M!i=~d)LRS`p$xP{@s>$(&8GRWwiA+|85-Nh
zrH;d!MF9Wb@GPin#D!aX;SRoLzqJ6U=m&e7Y>SoF{L^Ho5LhpbLTk+dEh=LlV!<(C
zuyBk+CJ}nPb!}j9u)6_jMhJ9961*|c!cqmT!RP^YllK)B;!}he(0*VtZ|7i_HwaH$
zT-?2vRh|r-^W1G485X>~X&CUzL8*C)gw%GVJUAc#_j{go32ugCaJ`Ye5G{Ow7jvd9
zvDvHUc)INIHV44MeTloM4@=VL=qq`AD_EUYpujA*Y>{Pr0oK0yWZBR&Z$r7G&I6n{
zmJO3gL#u3HV1O_&F#*V4aZr9M1_KZ-Wptoy3xThtsoel3*h8bDC?M01I(=pFs|L*q
zDv&=L5fY_4W)Oo3L|qIpOPBgVm2LA!UKn_%4B-uU?vkH8JUoPH8R4lSk!a|}P)QyH
zV_*XF%P-bA<z1VEG6CLq10E=i2Q415Gc%(F9)bp0jaZ}nRcI`imfA8Jbi};&$kUV(
zue#AUXt<P9VH-QvK^^3<Iw4!Ell^qc+`{4;B&tUu^VL*r1h&;-+zlF}D_6`LsEjl5
xim`a%yKFUK40i(++ljybYL9ISj|v$h=5Y7^<gM+#hQ8I4ysVN;wzR?1{{{?=%mV-b

diff --git a/reference/Rplot009.png b/reference/Rplot009.png
index 25008cc51fb9984b2c9089b338d7e46b7283e1c2..042ffc541fdfe0be53cece3bf452cd9a20623797 100644
GIT binary patch
literal 9296
zcmdUVc{o)4-~SnVgmzM)P)e3mWKSs#g;L2nN=Ycnz6@IAmP%Q2+sVFXH<lSKC}J!j
zyRr<%l69CFGr#wA-_Q5Dp5OQP&+}a0>-RigmpQ|nb3W&s&*#0omI*d8(B<b9;YARH
zAAL^e5`v(HSuY+g_yqe69|><<H}rLN;2nO}PFMNE+Xm-zrY;D=w}tgWwGa5w5kwq8
z>u6v0jGGzoa_;kpXU=z1az2)gesYUVd17H4bD_gsq+ho6@y3I$Xf^Y5qv?D1vdgA!
z<I%l-qRceiVoz_ht-q0NdGn>Rz)eb~K6m2Y(0dOy)E0H@uYDD!q-#oa{jB|xOU-2F
z+MA_yI%9%prsh5>fti%mCpMh7oh}%iqvSc=)LLKHd!tT@+lnC42Zy}jR<k#wxR6=|
zm9HSSTFYI6rMZ)jAjn7Y+B4QW-#aSFh<0%YEC`i~CT%G#DY+I3=eg`gu_M+=xoq@)
z7vkieInSW5FR5=1o4%FMeK{(xpV3iC8T2{sHg&mX@`6*l34wa$mSQx0tbEWrC&BaQ
zhU3c0Ie5I4@}OtROHqyN#P#Xhl?#nBZa)HrrqqVkS^{Rq9;jd`RYRRpQ5J9O>(64R
zj1w=Jm~?v)dzsso^2!IZ8^ruA$_LzIr^w{xc76GHmv{nWxxkH_S1xd^YhWO+vQpK}
z!$UtzletEe5e<c3@-vzI*7OUpye%sJ4Bwd{f)>+DHU6r)sEJ(Et~O0+S2YwudLJ2V
zoMC|L?KSiGHLNYf@lefu`p>?1*H1GR>OzF7h`!@TXTL@t&Ckhc!Y-wVxrtF*gBGIX
z%}PEWKYkq7ZROK^tJst>{8+FO?wa!JqhQtGpq0new}T#&X;GC?7(W%}@x;|n2l_L#
z*6&cL<bo<kB{FMDJU;R($5C>do113?g{(dkk9*8ocuchJ72?o-zig|xGwPhAg|4oy
zpQ(dGPSs+I8n<P+Q&qR6M|@w|-M&|S?k%_`c|!mC8qvSSf3TxtL=xwyq&BT7JnPPe
z)aN_0(OK6D-g=-i{D7fA<@C2KV}mgA)KsIqnjgI)e6+HvD&EEE$t;eP(1h_Du0;t2
z>sZJ|HObTJmGM7B{ps`c6-it|LISF<a`k7(fI~rz(zt2-uHD1UvC2Xg7=Kvr0@@%2
zAH}5SIbm~XAH^8XEoA0TA%Zhz^@GsU{xX+9cJ=;$+>n9xfpGNQzOoCHewWZ4@>aQ}
z4&B+s#l~UZdU~>MDrV{Idre?)3R#GwRqy}Q@#{%NhcAdV+&FR}?!-krlc0R$^*QO-
zX1y>5wVR+9w*UN}ue8#3g*Ld2etu1NZ%`x~*|x-~v=1az%~t9Qs{aazb5V634iMO*
znwp-TP9KxUufAnn_32Ztx{>=el$yCtJeGF0n!$M5$DL9Wj|9Ay$+@kK@mm|Cz8CZp
zM^o45{0nd{q^XIv6njU<%O)mK-rnAq&CO-ds$L7Jl3B^g*U$H{_DF8I2s>{SUb8D+
z5%d!yE}pF(EUzAu&Cbc`kSVBs3ll~bW6p~$ViFB9+}4-79U5Nli8*@v<=eJQKgMDr
z8N*!05OH|BW7&g)gLKlm*wCIYn!?R99LRHv9{RR{a;L-u@2M=`!$0RMVBNNJJlt;(
zmw6^+$0VFusTlp-+sCKWwpnDrk2b^p@|mv9&riYBVQ#HV+H93PlOqEHeA0Y~+V##~
z*W9j4!FNms({@@=BQ;3W`<xhkn0v9QxF;9J=xl9Gf}5~uczLHe<~V0}sa@N?JPg4~
zdy{m$0U564%_#b@qFv~80J&UTwBZ-zMQ2Ax%Gx3+CqLf+L;oqXOkX6*h+s#=Yx43g
zOuCvGr=M@D6T;+Dsor<Lzxz>Lw)SbO;Y72OUvWO3YTwz}Ia$_suS2%HUvYXf*||8O
zKuZ73M35FenYH^ug1QPpJ^FlhTH2X8Uy@qn`TeE#orhRyC|i*a&t^C?GsBwX(r&Aq
z*n5?CYR3ZqzPqDDevb-n1UY4*q+5$1m$$O1KXFx+B`!XtvvT##OeG2#;m$}xAqusd
z6`-2){O3*M)b{P3n!-p@dmOng{uH0Hk53gIf+#0F{cMPkeAlz>GLmQw4UM%>2L}h@
z8lyDBF!8EtynsVo_VMc<IBqHKTwYqb7WznWjD{E4wX3tO?YahU<2A+T2p2h~VySSI
z&b}j~P5Xm(46C?|XTn@*Z?YSxbW?@Ygu|uK9{u-&pt^49N=Fc3$|)_*85l=IgsWQr
zqP~8JnYnpqe}8V8e$;rBn7XHt4`nt|($ae}jeXEylg-v(ozXbs3m0B2OG_JL<>?==
z9DzFfHlu&~ZF%HU<71I2|LI3u$5EnsN+6%mq3H7h6^D7)pw3TN&Ur^cx!jMY&M_Ht
z^n;Uv{;MCUeT4PCcW1NAu&D7pA<l9Mq=O<a4uyYVJzSU2u!Y=h^)IWWIAe8Du@dzX
z3HTu6Lab624(IjRWdIJ|5yJ2Jw(}7uUy1d5HnfvES3gCRAgm_JUhhm5Wgn;U2mTUv
z_S_Qu=@m*~hWN_LYixUIS(*J<W29c%B~{<mcd5z=aqxG^jXK`6j!Al(Jc4xQI$H6?
z+|~|yEMdJd=(e_v<OwzbA})cmneRS=SO*}`s{ZR6@se_h!^%D4txT_58Oy>_LLqhA
zIJ7%!f=Ej`HCI~_Y&5u#=hy1Et|gSzjASlvlYZT#Skone)Mh&KiXaF(hw%TW%|$Yb
z`sv1zGbuk_gl~9|oX0mtq+q4O(c~lboW#XZFHssFXWfk>Xs3RRv!Ad3gv~(F2Iu|Z
z7a>0HVoimfl*vU9#Cg7TcHYvcuNbD`?d|QqW2B{{&o`=M%+B5;U#zcTh35kU?f=$1
z{?}*zUwDRi2~u8OE)%JDXKi7ux8zPoKvS7x&)c!4D2H|G@`IMZQZ$0p=e4q_-)`Am
zT3UK%r2fU!^z^s+kp?OBo;`b1q5CV{>(A8Lm%L7+1pRfi-FKNKEQX(--`>vdmE<1C
zI6fh{h&h_sJL`ulvjaJ%#kS}$=*sC(>Gi|j$eO1^Neoib-Tyg|HP`1P-$EZY3q2y|
znQ(x(_#KlnY^8Qsh@;CUB4VgR3Y}e0)Hicx-@<;3McCay5o=Ohg4g)Yv`Yuq@QIkN
zhQ(@BB7udf04N!tFWK0nK&d_*8;F=hiSwMQVO~}wE^Z5{gJD}~rJe1Q;axUK9MyaW
zWL6A!owB@rOx4x?G@r9vR0rhtHz*s>Xfc{ts_Wf>$}3S;-dR?jKR5x)jLFAp_>|ca
z6J*h<SZWFMx(_0{rY4qz(kp5ti%d$Q-Z%}vC76TeuuYvbYAX0JOuC*J#<(yoU(yhO
z`KPp%ywjcvPgc-fbgKzEe6-g3M&#siz8RiX7Aos7)Y2Her5`2N*`B8Vv3DDSjEMSk
zZ$tu6Z2vBshndR=R-G6=7et{22vxLp1<vpNN;8xq_ZdzXT>Pa@-e7bpjXEeDi|Fp#
z-1+U>lQK=M-|?U|L^=J}s<BelVOx6_d(usHqOtnu+zS`Z8b`LcX4^=EAP;3?rFe;3
zGM!U9>FDj2YY;xG_yRz=E8WtbEx|U!Q^Rq5>pl{%&uzrTxfns85Qk3pZ?yU2Y3W<Q
z%GhCcu~(8BYop-{>&m@=WK*`wTs;?N@8D2+rz8EH(gviqV!K(u$b3a_Z|~A)iO`Le
z(=XL#Tf?OExnu<&oz&hms>OvQnLXJttclgduR|xxEG@kPxZ14J^^V^fq~lU8yWqL7
zSpw5<;6amYa`WrIs;0ci3wsFCE}Q2v(*>{9W@!()PA5tF4s{3a^>@0d7`-<tNOZV(
zIo@61(MefZSyk7GSHIh%H<LD05bK0D4T~_yfY!db*S+|q#FTwlv+eJN9iq6s=M>5;
zF7EJ-n3v!gH6;dw@jMb=N|bVQb9+{I<MA6IjampD<HI|`U6?eVo5w`19HZ9r;4BO#
zT~$kFmWKqg*_kAXj`GCs7zth99Q`c3@+s^N*F%x*#YD}V@p0Q4>Qqix>dJ~cREfN6
zg{R;=|0O<Ff-Un@<mKIMEdpGz5w{x&u&*CtF}HtBiA}N&h<8bgVMhY8FDcXlxxx7X
z7@Gtfm=?ng9~vpts(H*_h7xtJdj9PCM=kne#zGV!!d?zR4w=128UT6EVdpwlX8M-r
zL;Wp0hOp&3WX)1%`pTp1HQ|`{cZMGxv`hkI{ML<MIgW0}QU)>-nRHSmz`YR7-3StS
z$ZX;Riwin*=XU}OD{-GOv-F*>3rpQ~uR<F?M=op-mHF}tFkj3gRD!x!k(J-tt-2e9
zs3r|!2f2V?_3b@^WZvX7)Fviq_!#+OyeFm5mlUH94_=0IDjuQm<1r3rOEx0Na|5{H
z8-?2P^*_9<E^@OWNg~@e{_+`I6kUgV|LTwTn6p|R7+SY%3xa*^+kLlmX)zbI$T1H2
zZ4jKJG`y12VD1oOr93T$9|?GNMWMFXwz>Vs$DmRl%00+xT~RNcHoN!oC<KvEaJ-Px
zmN`yL#5^;F`xD_5V;?NO9U2o81H>bPN~O}Z5X9M!R}>|0UUr_jmdMQVS{#qG7X>nZ
z>b=D9)&mB1v;DZV7*1G*iwd>O1$pM%1Bt#5T8G$RxfYFoZCh%Ll<6E8kVUgwg%v@Q
ztT09)Mn8DDDspmiE`xAkbmi&#QAtvqLA+|()2B~=3T%1NND0FF{M_8cfrIk4K%(KN
zrlxWmgoU8&k-VVFom<>eeI-SBXcx)e{5`AjI(!L}>Mg!)$hbee^Qi4a?L+otfdgoq
zh1@seK8}h?4(%jY)w_T?S}9GuG(O?4Dne9BJ?@c}LT!#oL6^M$ntpSf%2C2JaIR#5
zt_GD1=x~-|+4_G{676dlA}U0c`x`AZJ}?GPn1u2sEDn_2jZKI9wU&B)PV)D{p5<h(
zcK&h7&E0)mYY69(aVhKa-^-)US#xhd74ikZd7fFRo}tEag!}aOi`hLe-`6<V)otoG
zu1}c|+Ghu<BAabX;o!QF`Af}Q$jQ1x!oyj{8Gw2>nhi2bjzO8Nd4$q@FnW$L0zj&_
zw=w)3g79d+M|{>9tLj^V?ErklDBX>L+H-a3cf6%|PiBEs@@q;3L7pTHZ~j&7wHVQC
zD^)YEcP0A#*}S|wsh!aI^sXw@$`j}dwKBRv*hxDCQDEZ?(Q`&2(k~wc-gR``y+C|L
zt!7Zk$$}h^?b5=-bN)=4>VwfgG#T@u`eA;nAH@#6K4%B;S!$;Mj0ZuNNb4t+I1S<H
zLySSUZp#?OTfCtD46ARaA59IBt2`GZu&2@AZ}ju#3o*yCCQd_8OhTABeSfFz<WK7>
zeK4lChA-gXrDR9$%KJwon^?L<LKbHXRCzS1WYFda7=RFe?L9s{v=iW`<%2I$fS07}
z)FH0|ABCbIJjjhQ1>b<<zrrZl)IWbK$cdaxlMx>7%rPNH5$I_^q5XQ=QglN!0T4vy
zTL+W_rh<td*YaqYcYnf~IqLu+Ig8AemKHjRRcQ`I9->0)yIlFm@Pk?Tz4%L65kQBp
z=9#5sBzWtAlq22g2)lD1p%?>mei;~8;NBXa@}i#Ht~~P$Pj#!mSKm;3$c3n}pl--|
zE*AIv3B~jrFV||{5TlGSqQy9^y(!}FWJCN%CB)hwnYIV(Yzu8zWFkoI+QC&}XA={X
ztZ@WM%HHV3L60o(m153AiP2MnTGDyrGg4q#rNo?P@$fKycI0HK^s2A|C~GfWG`V~i
zM$s_I;yeptlxT(Pr_fK?k)%ufJ6TaTRn#OGF3IA;%=?KSg9L^A6`@dme}&R?9zK~x
zVqNbSYalLQsZLG>Fawvez9pHo^cLL;c_WX>UnX}qsR(uLM<K%Ha0sYh=H@__C(}_)
zYO1QP)8CKW?XS2PtaFM+nG<vfhq`CZiP_+An5t!N7A7F7o(U|mk%E=I_U<I`%+6fX
zVo5X{+MRD%C5d(+wRA=tH2x4P@fWlqE?zb^wqel<7PN^_Ot`JVrk4r@;<iVj;RH(4
zoN3&WK;mDe55Irx4ce0=TFBD%we8nGp@(j8cALj0COv;eVcL9Ph~RQb!Q8}bUFdz!
zM29CkG8`cODwo>zmp|~yXJ%y`^zT{j#uTthdYCJ9=}x?=+o6&f+dXr`moGfP{RdzL
zHr)ewoAcobu6%(OTq{ADMKzsnZksAjGR}%fz^<5rHc9R@!9+?z{G*qbm(9u?qgB<^
z7Bdo2NTzMFD5|`)lpp6i*`CG%6o1CDA=VZna{(Y7oc#CNYyv^o@bC`fV<LkmqQ!-J
zD~%YwLneyRC89PKztjyANQH#6Kc16JLj$%PtfxGk6U644E1_C$D(Yo)B<IPKAF-MM
zD5RB@m8>QJ=U%wL|C<izJj!|OBDXa6;(vfQirZ@-)?bKw!lSUw-p|7zhjAUt&r%J|
zLoYqhcC3sWvew`d4@OcN&v?5Z8eI0zYmml$-H_Gg&BH$VR4p<u+KIK_xD`SE{BHti
zX=?0|rKKgix@X(NQb9<*+gp<LJ(dGWnvNVDcr{xwA|Pv8l)CMA;7Fqb%+1W8Wn=@2
zleMfoMxcZGYXlmv<Q+I4s5tN4*uNKN-|Ig>=Q}Y~;DR&bv^*osb1MsEHmmiCxdWDX
zd6OqzMt<tVT^+=*LTT>+nt>X(cG8<SJNBr$o&%}}B_mPO62O*^6gqtWg-a~*U-i2M
zE2Psx6Pp)w{x}r&<>qL;v)28W^sC_t=91{bYmT4Cq*U1646f$w1L3AZf*7Y_4CEt1
zGF}s_`fXRdo3<VK)S64ni%G`TCfn`uAJnA{dmOL!9O*X%Qn>xPXhdQm<M2VrEx{Xc
z)e{8z-&`D?3}R?41p{csv@JA%^ffxAtgP&Y6BiP2KQM>@eeT~Umsn{OO7dD*|K%t4
ziw)99LG$?-W9v9pV9e>O)@^lp`gNnS4-DLJ{0PHX3H4HEUv^g3hPzn5SA2IZrTy`9
zp_7b}Wu0dV{Eb&28(lY2!d*ApYI{NC&TlgRR^E~vaUlQ%+4jj_v*Z7eYh1^_Mql)|
zJRE+pnrAUdeR*Z&5cvhe@2ARvmk%NN?w!}t=S53yIW0$`@A_vw^Z$}J|2O@sw`Ew?
zyo`mI%m{upaV}}!B@yIS-UMoPVxqOsrlI8i$XTf^8^FFH{FPK^LTVm9<`%U7@gZ;l
zi{aaGxOK3`=eR@HVe}=X*egy>P7E93;;Fv;j9);>uOFr)D$KbEi>+!kIP1BI9fV9t
ze6XVKR7*0{S}zgx97dtr*C|5<=J#+?B{So39ob%sr_IG0`ywiz$W>0fg*i9sPEE>B
z=h>RPyVIchyj3&gpGKBo)AGu;>-!>h706}v9-%|b13IjcH5ui;#RP}Kp4F^IUaFPc
zYT5zF=+4S?PgtrrPejw0Bzj<AfV6vygz|p~#lJqXonFLZUc7iQH8Jr{l=If%|18BN
zLshl&Y7=8mICdut?5|SC9z_<wHPq5~qKp4gcLO-(0yg0lKaweWMvF}}t0TiuCf>k2
z^vLXej^{s|Ii9~B<~gBm%TmIv75*gx%flist>OH9IS510wPwM1lL1v&G}IhaVX!Ay
z6oOB#qSkv`L?M)q&x`7vU0r6OinH*Rou7ZNb)jg3!iPezEG%7`k5|r=_2uenM|;nd
zc1P%?ErEx?8fOK}G;r}8mZv(qQZ66<twyqn{fFh39@VFTN)?H+-^zuGn02|)dt(GH
zC%;m!O*&Y5|6jT#tD=J%vVC7v(`41qdj37aI*Tpu(eVD}Eg6voglVGZc48@vG4&~U
zD~QeZ_wIGY9Cu)03G(YhI}WVMd;<7(46H-!N^xQ&$*XH5=_{wUwFX<`_v|Y<OB8=5
zr5BH_Vyrf3*}s3p*(GsB@@0U`r`RF7tp=06*js4BO(<kLAs?!-@+ZqG1zmiy*P)<P
zG~>qRVcz>J?^7Q`Wv%G)V=?+kFf+O&P{J9rc-p<YJw<1neERxae}39PzJF*3Dqnow
z(}IPznw5ug0d$*(vRlVN#YiAcuJk!|1JTHB$hxM^Ww94HO)?9Qhq;bLnoKoe7)A3s
zNPQLbB`_+}I_`iJbuHBR{;HZaf^7U}<yzY2dUb&dFnG^wZX-V)g+qFfRHsirX3PvR
z?q0@3o!`&xtJ!52xTos;ewV>M)o#_ng*W9BqhG=$Vn(LdZLS|Xy3x(jZ?iUTZ*8VD
zVXfK8l@#wWl^i50(ka+iEa669oj+2OO1eh4ceusFyvNb~Q@89=$jPkdwojAu%^R7!
ztR>;9jlHD~ZgVvh`?j}dfKU<xn!x+=qjn_PQ<o-L)-kw;a_DvvSh~RH&ZJxfQ;$<y
zVc71VXlM@jDUbr)^tDAdFg7(7K1;-a5CD=yJxcfWI$;)QsadsWAvoADs1=9@bZUa{
z0=oInBd0;<fr~IwJqWacm=pKkYOWN9@_Qd_OQeq;U@<!222-f=EN0nwb1d+Od@y|n
zfH_Rf%<Ngl?`meKc>YQnWHKnf-R=R`a0bbraeG!Y+aA1uQPy_>YQ3pLcu#e|mOked
zHz|JHY_jc%?itN)H`-i*%gmz7411FFZlk@bs;d1!)<|(Kvtv;hcVNe&&N#{PJ01I@
zn#TGQ8A}H|>b9GV%7^IeljC_rCw;l8$izu@_x4Ubz{Sz(<o$kZ34THYqiqEKH;2MX
z8&@W%Opt;3#46r;MgwzG%en?jrnQCojlv;KHx*~!hR8jDAOsT_2XwFE@}c9ym8{rp
zvMrtkfb0fl-u>wFwyn>xFiKy={S=?+!iJ~Svg^RvJK|5=zwwQBAhx*@beQ*h)Z8Ie
zhF|Vh`6*X5tqAwbHGuzd?_*E5Y{_gfGn98=HaWkqT#R>S@e~c=*@Ze==Q;XXx8K-M
zV=T@^j)zUzW&C`1M@KlpqCG&YaqIr`pZ!Hc>bP>r(+CCYJN|Vi9PpLC4EFBm8#znW
z39=RFI35sb0xB7)zRvEm{gbnm<b3)q?M)Ro6;;HIuwrVY{sUTT=yG5&+DBPQ>uzFk
zKQN^3hTN9micsvd&FR56jHkT6&aDuE+r&wN|Fgi9!~xgTE_bS6Ef-%NZJL>Ks@x}&
zyfPDXidNmKiF~L(Xm^=|6vyf$P+lMmA;IjJjCB^h;j$=T+61&se8vQq&XGa!!(y?1
zxH;Nsd}*SK0p5Ssselp1@21f`H&139^+`~kD4YR`M{d&<>jXam<V9APk3GO`?$3UI
zw#XkAN^>b$Fsr;=nMqX1sIRYg8B9M_p3HR9Et=INxm5AZEEW#x2DI&~&E%<apJ|5>
z$^ciN`M$=V>4zno4~evO8v@O-w6siac3B&XVv(wk_=EKzM=Xto8`=-yu@74AERHvO
z!<RAgt{r|uXdy6Z1mO74a;ISaf*IpZ4BJ}O_Q?_ugIMC!`TZ%}V!jF`eQg;`Mzpe1
z0?WNv{~_ovJim3|X%#<~_wQ+|YGsnnt*99BatLq#!FojaO2j0p3D{pUj6nc<^`qbV
zM?tOJp5ohrp6xAbf1FLB&N%t!Ky%MbPq(cNe@BJoq82cz@_81xOTbxKJzUB0yTY(4
ze$HWG^h@R1c<gd<;<}@eG&mV~@TG;TEZfH3z8$!t|KMU`9+MHQv(J0JPG}iMHisdg
zu7W=<ySn^w;HhTewdpvrCXJcdIwQBlR0+chM6fy4BT1Q0RqqM}NI=OvzsVXoQ`aW1
gaP0rlNFOq}Kc~Ij@cqJ-Is|^uXAE@mPgy_uKkp2nZvX%Q

literal 8407
zcmeHN2UL^kn*I?*MbHroiV_^fK}Cx6UTlCg=@6Pyq)Cy`ArMq#RFEbxN)wUZq(gv!
zGJ?X;B?uUb)DR%_(AhW6J+tTD*>iXI?(W%p_ADp){}cX}@2$`Cym@?6Ly47{gBd{(
zRu$!|+6clhNPq8Pg8yJY6QW_qWTC2b754DAdZjV|c6(ivjW7tZkB$Cj=pgxTAjm01
z<*K5tSNt@|*F|?}b9=5^vWLW78TiBAThYcxo|;@|v83dxwOh2CJKolcXk6)h5*yQt
zZZLcEESK-hZy)_~HL{C~&BBj9zp&HVt*VQ-dfreeyfWr^y2*%z@<>d0vzc6t{94l%
z8=KhPyUW!*GF-wTJ*q8))=xiaw)Vu0$76ONh~%j80R&NSzKUZ&1Ql@mep~7`&o6Q4
zMu#yV69~f$Q_Mj%Znkf?vB<{&1_}dnJEm3EMs^2ss<mJ@3xW%*VxG;;CuHptsJa=U
zd{rl1ql<uD?}+_iaf#$ht>zH14JXV72~5P+Y@~jh^IDsSlhK-Tt8dcO<I)NXg-ktq
ztb1z$YRr76MMF8I_0tnPUiz>14V2=mt%Nd_xUjl53GOi$E?iiAz_p>Uw6v5i<Ir@a
z&A=R6lIZnquPLTk^a3w$XMN}i&GO#@Hio(IYm?c=3EgdNuR1!kMMXrEBWDQfPC=J{
zgjeWs;p<H?d`%ML<@bh*G2<<ZWW$STH_yGX66(ox47ZbIK+<bRAJ+vRsEmwcEAyo}
z#okCYQCAN&F0@ivn?J9UR?f9G8$9!+z%q|O=qI^0@y*nqa8@&y^Paad(9;{0Tb~k+
zRp$P>vASS-?OKrUNQ9D!j!u-c-^$w)mn<Ik72D~o`4VW=)Cy^8RVSyc&*!sjdubz4
zns`-#>c!_a31W^feQ6}mPE6=Y$&TrsqJ~uM%#fzghGG7b`zw2Udl$W%Vg)?K2mCN`
z6tRJs5A5bs#2ll}8As{yuM_Plq=2o3q(yRl{dJyCXW1U_FH=;a>_sHJy$=nhD23s{
zGx#gP`%5aOW{2uDBD3@JHIrzo<4MvgdCAG|BxwU})nGkxljn5r=#wW;OoU#jCDAD6
z+r6@LzaAp@MU8NrIAKg8lGBrBV5LP-iCq<?3}yuu*Xl=0+^E$wy!_T&7`byiDS)s(
z_~3ws*QR*CR~-o=X1c!=^MdhfyV!&+7@0@FdB394>4UjOMb|w^?y+fVFJAB3cQhj}
zPa{&-z#v_j`?ZTiJi))lf0J8f_W_hzl7W%Yi!G^RELqM2g!#?wnkPdphL5jaj&vKW
zWl+&hlEZccyIn~RU!LxZC6J<Cl*qy|r>E|;<(Bnlc`uB8l1w+P^ssA9l+DV@x?xW6
z-}F&`A#`nYbd)*h@>;z(A(>O!!_8-v&%Kxxk55E!Elt@rieV^Ow5IIRb8hk`ZJ_&O
z#F>(SZGSyo-3$W3EHpIq!uj(N+?-Nw%8|NeX8zh`dRkh^uV0_;>h9(}#&XAz81v3~
z%-bwI)_1wb1`<`53%eMhpJSM8zVVHnObz>Bfgg!fEp{SFC16@4nRo8+*<9*g3YOm(
zdf2pY=MH;&`x{A4t1C`6rHTf`Lr9yq_kw|2!!u5FiM^iG(d3)TtgNgzQne@h%JP5G
zOw8Gh@=}=df?!pDDQxpBuW|;j@B6{Dz0BF1<Wk3q-`-m9)O3-8Kt%b?zT0oE6lX`g
zTTUgcFScDdKu!)ub+C$m4VROTP|nEARG}MY=Z>t*%=UOmj1a%W{KzMCl~;jw=5vdJ
zUr=6yfs59hjt^$cG?9ts`JZaR*m{<hDUgKekaU|PJo4=j-zf@%HPU2WgFM}fM>}f+
z8Qs^&>Df6sYN|08B~$zS=0EYckG-(5-&mQuz{l4m+HI1Oorlk=lO;a8BdbR*B%PY_
zxpTt}4z)N2^1_*jpA&s&B(Y1`=6c+0?Kwt8ZcTh;RwhL7P5yLW8QsF{rfv~GslWU@
zIj`3Ds<QhK;v?MZUR=2wK??bum!ZH-sPA!+h9$_fI?x6nNf$hN5M1JeD{TmJ?AC!}
z2*SAYuQ%RH&zNPnSdg2x8jE8ZkVa>eo}D}T)F`Zdc!}Jp1O|sdAf}wsTqWc`dBWU9
zB%;Ia%N%`tbtGQ3Mx9T?OyZ;y%`r-HCo6(u*g>zCIlEQ{-#vJ8Jq5qDMk(=Io!5`m
zGca(d4>=ANz7)2w19^3ksocEAA6?;^nuuLCf+``hxuWgpm<u6M>_*lOs=Gb?wL;if
zd@rI9*2Sm!{sKS0{<*`E+|&Kl#)o(`o>SLf3f{h7>e!cdyY7)nq?ps!49LSPk!~N3
z7});$^Fh)jjeNE}J4e<DkmNZ^ii!6A)H!8t3t8rQL&0Ou-M-n(zFzRF*~F4^n7r1P
zr}5*7zKbRKSaoY_>qvA>@yCTK{dC4a+znOLPDWQRDd~93T~)WA*Y^n75dvJ~$#O>9
zf=uJ_X8x<z*tw_XpP?|hL!RcERinj8Zc$m;*?M|<sY7+aWvg;#kDhZ@vFzm>vR0m8
zfe*5zEulAI@>_=Owz{3^n%xjnoxxGOyu5n)`f23O^z6Jme(cI|1lNDjS?*c5?BEpm
zjq~<_V+rq2F3YpmPa??3LAs&8Tl?>C0-aVx-uQ(pr!LBKIle`m8NdJT6@+-?r#DOI
zBt<1m(q7cH7N8grsoYzP7d6qwl><J^BOfc~exe*iUa3m_;nTnWl>ehg193}8GZ<_~
z;8f@#&9g<N7f0j=Xh$Aj&1sl8DAO7>?tNFl>M#q_*-hHkeVyU;X)0w*9XC8zZc$)J
zjEQy0%;DR&DiD1m6B?;c2<jaTdxV|6s5)GWn=JyP0kw^ovgkGBQcha<*W~#>YRdnS
zWkI2#=PneQmzOLb#qb#uCkrPh?VEqObmb|#Kn#Ze_xcfCf+Ruvp%<GNe$y;GUJARl
zIv)9^w-?>@`Liv#Bb7P0uD1eXQ|iQq;848b)4SFP`SbIx(Xp|rksj3k+{cG_8fjSd
zUj!BVN*z1j-mc?TfwBm%$mh!3Bi?4jvDxR<*2y*>$2QZ$MV)y{*`>aDqi9i1&$|%m
z@x}Qj0bY*KM%w10cQce__qEhmvyLk71#T6<XI***rqLxv-!iR;F+m&bdv<=V2?(HE
z@;MAQNhvP=?DG(n@2#}pWwg&l=*8zk>n0J$UXh@>p~ck)yAKd2yRt<se%({OK2!O<
z?Tfij>eAbOq}$?z7N>;EDdXXDL)u2hN9WB?M|_-wulMIFu5;zegQat_P{;KJkKM)i
z6H$y?6DeWEeygs{@sc`FrF>~K(cDm-vY@p=#WFB8HC>x6S{#tydF|RY0IoNvml%<@
z6JGq9i7|d79}j-8D9GUx7}CbiY*)pUjQ&`Y&{uYOp~2Kv_Ig+?N>J(n)U>_9b-B-2
z#4XDX{kbLmO^5oY`v@cfIW^$DZOHe*f@nFSdm1{Ex4L?L)JP2P`Dns&jjO9Md}%3&
zA#bGv#+ng2bK5lYR<|c#7cN|gZq&m4O}+<)FnF|#+V4jYpXd+<l&nv2qW9Qwz-t!`
z77(P3*NSEK5$g$E0AEe~m1^?atF21_P{-`~5ri3Cj|5--5lb;1=;$qRaBtxBoLKI2
z?jHFRRpK$-Ytp<MQBa(mRWWRl%r&nut6A&H=T@N&02>L|bSL?*Pm|=Jp9EbPK5<V5
z5HR}ftw6#;0@e22{asR<i=AgxV$FOq{RX;UUwi5*#0_WuWQp6&a_p6QoY?teETvKd
z3o_8Xi;Z_PBCo=&Wp>K?t;~wek;?C-aGz&;>^7i_AcxCC7zl&+_er^<5M<(I2*ZA+
z2af$AbqhXy#u!E<9DAH`V<|ttl*@nR_Sz!!bb1qaTfYfc;zKmwuaT(!>HGN06#y?q
zQ`gZ27D4?$yG)vy5QTS*#|8la*irkddkd|fLT5wyPF>oy!|$OWf~05Fy=2<K5PCwK
zpS=jo=wRi?;zc3mLZWEf*=061Hg;?yNNwh)^4&7nHMh-a=YY-(trS;LAdA(P>tzQa
z!R$vqMpV4qh2YH2SmFY<*9Ry;>}IwL=vxTlVlRZcpD2k*<KW=n&g?SQ784b9r~YNV
zdHMORU0~S73khp7g8&{!EslbBLqmLP`^ucVKWFNcxKoIW!?jl)v9#xzR^qLHxl3p*
z=IJlOmknVXrPIBo3#xI;qm!QST$|R!T;M}Ga2xfcvViTand96)+|<(2BF3=)(U$bk
zXnRPnLGMJFR!d)Z#WUMQ9S&ZJ>5&(=o#Hbbk26-?Y35+%5IKkKm5l9DE``c<`00nj
zGMU)M-oo&0?M&UZy$?SAM#DxwfBv=_UyFHWX<z*i!%wL>@x4U}%Q4B^`*yXft1DI0
z`O90yc3Y9`2Mmz))?XRT%3YFQw`Y8tE5FnHGF2~I-;RWLuXqW7@P72A?@Kgxu1@7M
zE<G2aY&-Nm2pGv9M;|b;YRjOUG5$?;9SHJ@BE;l1K){mobuypF2$=UfYQ6`!DE{f#
zU`&1xl$wr^<HBzB$8Bua7Re+zK(awOb)N6-?cka!j~@`+#gE`k`_JcqbgF0zz0j3G
zb<dABVT9;sUbMuCJNABFYYYrA0KlB^ydYyIJA#{uD0qA1$dPFROJ+}dic*o>58!{r
zdSsid8PEZI(hYJ-IWp0I%?@BGR77E(ItJush7i+AgZx&3$JCby|7j|ng#|M1W`n@c
z(5jF9afv!$?z=ptlGI=3oCNf}5_=Ak)fA%YtZK{zuleeeJ1z0&2WTZ$pV$C3N*NTv
zJ>SATs}@>1pK(eTTQ?n*92fDNF#*glZZ8HG>j&oxGc!GqqU00-8%uoZ4cT-=NRFur
zyY4~P6*kwFRFlN5K88DSF(bIkv6pI#Y+8wN&V<Zcg1^W)Z*Ogq<PL)w_$_hWIYudp
z513LlrN>t!E(3QsWr^d_h|j>|@rz{E6JqB$LOuRSK=j}B?)F-D%_7m**$z~P8{BO4
zlP@RV%)0~i;1<*aY`3ZBrv;e=&wg(Xd4HL?UC1d_SmjVK7qO^SE?f6PboTG-U|Ojh
z*vtc?WCFnqx}3Zy|2@Uzm`u#gld>gYt$MvAMgq{e4s&M`Ueu-zQrfuq#2~QhH#KtG
z8w(gQ7I56P`UYS@3N(o!%i7@moRQRZV36eeIN&lozdNp%b@r9w1Gkxq@f(p$EXTsP
z@IC$2zLfz&U}M8dhW-)<gS>GFMT4PB;7yhv{)skLe6_%S0r0>JmX*s7T!9D~QS3Em
zAvs>?9t9Q05Rk&T!yS#$yrOm;Z}i8ziNvh5wCk#|{CW~6i7g4zMZcdGcvql}W-N}S
z&5&M7+<Of*{^8z3#g2Vq;D5Eq;(No_H#eyPvE1q}MO18(upY#*pVK4hNFs^4{^aUu
zqUGYA#Bp$KsR8@R1sTf0@H3>j%6oq7an`c64G!KPd*~GE>60ginS*+(oy45ks~P1N
z@^1SwOgD8=ub1uinjL(HuJ$Rp9&#+%a{vq4k{-DUIAY2r%X;O=XD20JKYH{ihvf7=
zRf@pId>#7cU*HSqR`5)(mdDt^{&$kGO9P=U5?^Oljj%`EL^!&5^Q&Ilb*7P{H02`x
zgjs|kK#cThID<Tso|)BdGvD02>gC?M{g4*29Qlk)NG-zf|C|4m4HRm9aChF_x*4dj
zT>tpr50Ih%C`*D4q`_V8>C$4o>3Qbl{xV;=;8)+}+ka>iF3wet816y&8ox`)Hwuf;
zNgO|~KYTuZ63b=CMp@@P`?SF@j6wNy?ZmXU`n-w2y6!0+$xH)(d|3L!r9BE9|CMJe
z{4P8HL*M&<>)P-r#NZFfrXU_uQLcg@^XRhO<)x+iqN1W`yj$k`p|>70UwcS&k*0s2
z8;y19-xg=s9zT5f@@0p)Z(?jo-_m!YB=KThQ;dq4IKJ{C<xB-W%*_{PjB;I;$?qbw
zoBL@kj5SAbHz!CN7?`^25uL=z@pnQwV(CPJ^&)FF03g#Xg05Y(cIpR`;K6w<l>yA?
z5zkHkj$@kxuIi!m|AiWGXnj)I;QPdl3M&gR&Wq!EF6%Og)6X}{jdQ}Q0Ez(=*Z~sp
zS(QxP8=tJSBR{vbxxD|e-5a~Ms3n6kusjoRu}yA(Mprz6C{nb-8%{_39FMWLwS9|9
zZP*uF2c*%lg}U5;`&;G4XpPEs|CV6JEx~gG<9k7U>rd&U;iM^`u0Emjg+;F^hLkh#
z7XHH6f+~`Q{?c~zzoqOb^!uS)u-IxaH%Jt7089_>*$MTRE`UM1pi84`OB5Rr!9d<`
z81YWLapOjg5_t}Gx@dIo*hbY}!9vTHcu73Kb+=~GZbMM|mU?WG&U1uLLJKcI?ed<A
zP(o=zf0^nj%2hgVc=A5fOQ->eRW~5x3;^RsVSzIGXmpmXh`lV+{8#VsgmeYmRX3jf
zij2rD+;<)FRPC<QFVrU6mAJaxyG_$=MY1;6X~tm>W!z^66|3hPd5M;%G&yCwZqgO9
zH1$qUXx)HTQX-g-?q1pVD>2tt)ak3l=7f@b<hVC+_*84E_IYSP4RrMB?7t9)uJp*2
z+nBuqjQyR@oBO|_TmmH)eiL45k*3-LGTq?f#px8<wx3o{kkSL#(s_;D)Jj(4-Rat0
z--<gmIyD2<bfTl9$(iYi9U!;oD(z^yLZ?bu&}?DIV-4S|%_si;HQYXBFa)^OeKgv@
z9&SV&MkbQK3q$xBJVn>k)DiCb?b6_m0+7Jz@f<1QF=e<pWg{<~xJN<LKwJCu)zir^
zpZWI9f^v^}|L+~>PqijcCMLAiJuf5U2hAm9{s6;uMHOzg3jzY&N!uIa{8)2tHaqt<
ztCZ;JFCT{IbO^bJ_=cy7T8YV5f~7<o=K2~g8{Dy_;y1$f%(KF^-s{t4?hDQ06i~z`
zJGlCW&n&@wB<ZuUPvR6UAw;J-_v-0(GUd)1SD*>Gk!9LcJXZe1E8#tY%#HVV?W4~?
z>_IE<#k)IXH(gE+H}fH%WktytS~fiE8f%U_s{*~e44A-<KpY$eT9I9y3gf3}UITk*
z_#EO+@jy#c8&JM#j7%(T*0H8Udx64H+H`M;s!p03NMrQif++25@*N6d7qR;IgDmYU
zW^H9S%zbq<HXDW``03KV-m2({g;x1|;TDN2!wq51B^rFr4xcl$fLUZ^WVD%jl2X&s
z()gV#^X?{*Dm^KE16!p)_(beFxHs1aww+4iV<_y*K^o=z8_W%~E1R60A05i2J<jWM
z^-ZviOR_zIklr)wdR<ydH1(VN&>}f5=GZ%Or!|o@>8j$?Q)tcqLJbcR?iU!h{e(5r
z(uz<8kl7ib%#B4y8Wa2~RDX(^2^H^m8FKkjy}8^+KmEf~_R4{cF>yzNK!kERa0NV_
zhIhHf#nOHgZY{SGB7@Z^12r{$1Z*W-@AN71EI&tRDSigHx5?=Umn6UW$0sCQUOjCX
zcD!>p24-*_sj4J6*lQXa^JqWk<bIUQm(l4cH~<3EBuMEd7ouH3Aj5#Tod<VxB<82M
zOKjm^#9%jC&vp8gd6LGa!|md1dYKeT58gT)0$%wo7hTdQIZnS4=%zbJ|Kz5#C2J{P
z(=}o0c1!S!y-~yN@>L4By8;3%Ex*jB73Dcy(p|br0H%!xx=}%rJe&HU=yn~GCndKm
zO#n>8&-S>OS$CnkMUn=Xa=@{tFts@(V71Bo>o1oqO$3j*fsQm&+UMlpX^OTNs7>gR
zixYSDh=e0*+fgHvlaswU=1LTo4R>L_^_3*8v?V7hzPazmPO;WvR@~j;A4Hh%V>F;^
z=!kIWoja_3?_L3PrcC+-wQC72$8>Cu+g5^MTutkO4CHlcD-Byi3R}jse4=S?P`c&|
zm-EKaGX5mjJFN@7GNsj?R5RJFm0@(zolqF0h&lJ?!0_~OiG8+k9}ko*7>DZW=;*8^
zVKjg?@|dKnQQGG52}T}8I!08rz6~qt83h9{=fmbWamu%+0{Spx+#c$$z@*dXQX1F*
zYwOfW3Z+P_6{ZFyK1-AP<qumz?D{~w7h5*$mmDv)_`q!Hzd8zRk4&L!BheU*N>3`0
z9`OQLvTAP3!KWXfVrRi9>cjB8<|KJ}2TFU+=<;z<`{&<h60`4iC-}cMR-&|B>?{o1
zK5mVss>!#u+{K(?heUoq944O!<Ex@BZ_pp0-F2rY`S%Xd<mW%0;gIw5%I2Alf1+^e
z6|LV_6EpUk*1dc8vUzTofYiOz8nC4!Y}29(RN|=sAp^*4G5#5KokQ>zF0X3-2B2vN
z$IF-eR$NTo+OI*40$3l-&qT^}L=eP*{#$^Gkw~4yZ7;quO~@KzzIlEym%ky5I$_!e
zQb6O%CTH%IqFaJq@2$DEg&T|eU-%~`^o%L+&)#N1@Or+%%?xkpL;1ZsSY8<y(DoIF
iA@sKL*PFrZ9e6KSyC}sY@LL1~QMsmZHShAR`~LzGnNS7*

diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index 9495926d..974bab2a 100644
--- a/reference/WHOCC.html
+++ b/reference/WHOCC.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/WHONET.html b/reference/WHONET.html
index b89c7d8b..652925aa 100644
--- a/reference/WHONET.html
+++ b/reference/WHONET.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ab_from_text.html b/reference/ab_from_text.html
index 03a07557..78694d71 100644
--- a/reference/ab_from_text.html
+++ b/reference/ab_from_text.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ab_property.html b/reference/ab_property.html
index f889ef7d..5e91f078 100644
--- a/reference/ab_property.html
+++ b/reference/ab_property.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/add_custom_antimicrobials.html b/reference/add_custom_antimicrobials.html
index ae8ca2dd..5034d06b 100644
--- a/reference/add_custom_antimicrobials.html
+++ b/reference/add_custom_antimicrobials.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/add_custom_microorganisms.html b/reference/add_custom_microorganisms.html
index 34de2fac..f6bf20fc 100644
--- a/reference/add_custom_microorganisms.html
+++ b/reference/add_custom_microorganisms.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/age.html b/reference/age.html
index 56aa3060..9c697f14 100644
--- a/reference/age.html
+++ b/reference/age.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -205,16 +205,16 @@
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">df</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    birth_date age age_exact age_at_y2k</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1935-04-26  88  88.04384         64</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1939-12-20  83  83.39178         60</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1940-09-26  82  82.62466         59</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1981-04-16  42  42.07123         18</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1946-10-07  76  76.59452         53</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1974-10-27  48  48.53973         25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1938-08-21  84  84.72329         61</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1941-05-13  81  81.99726         58</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1933-07-19  89  89.81370         66</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1977-01-31  46  46.27671         22</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1973-10-03  49  49.61918         26</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1982-04-23  41  41.06575         17</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1977-12-04  45  45.44932         22</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1982-03-29  41  41.13425         17</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1970-07-24  52  52.81370         29</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1982-04-15  41  41.08767         17</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1990-06-30  32  32.87945          9</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1932-03-06  91  91.19726         67</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1966-09-16  56  56.66575         33</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1932-01-09  91  91.35068         67</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/age_groups.html b/reference/age_groups.html
index f7e4486c..c2cddae0 100644
--- a/reference/age_groups.html
+++ b/reference/age_groups.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/antibiogram.html b/reference/antibiogram.html
index 83d591a4..1297e232 100644
--- a/reference/antibiogram.html
+++ b/reference/antibiogram.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/antibiotic_class_selectors.html b/reference/antibiotic_class_selectors.html
index be83351d..96708845 100644
--- a/reference/antibiotic_class_selectors.html
+++ b/reference/antibiotic_class_selectors.html
@@ -12,7 +12,7 @@ In short, if you have a column name that resembles an antimicrobial drug, it wil
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -609,8 +609,8 @@ In short, if you have a column name that resembles an antimicrobial drug, it wil
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 5 × 1</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   kefzol</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> I     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> R     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> S     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> I     </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> R     </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> I     </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> R     </span>
diff --git a/reference/antibiotics.html b/reference/antibiotics.html
index e1b7aba4..3b616779 100644
--- a/reference/antibiotics.html
+++ b/reference/antibiotics.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.ab.html b/reference/as.ab.html
index 3ec4a048..2b38e504 100644
--- a/reference/as.ab.html
+++ b/reference/as.ab.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.av.html b/reference/as.av.html
index acd8afe0..8e9a2bce 100644
--- a/reference/as.av.html
+++ b/reference/as.av.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.disk.html b/reference/as.disk.html
index 8bf9e1e2..c70bd55f 100644
--- a/reference/as.disk.html
+++ b/reference/as.disk.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.mic.html b/reference/as.mic.html
index 667d0c06..94e95cd4 100644
--- a/reference/as.mic.html
+++ b/reference/as.mic.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.mo.html b/reference/as.mo.html
index 60c324f6..8dd0fc4e 100644
--- a/reference/as.mo.html
+++ b/reference/as.mo.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.sir.html b/reference/as.sir.html
index 1f053c6b..6ea52a59 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -12,7 +12,7 @@ All breakpoints used for interpretation are publicly available in the clinical_b
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -534,16 +534,16 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 50 × 12</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    datetime            index ab_input ab_guideline mo_input     mo_guideline    </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;dttm&gt;</span>              <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;ab&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>        <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>            </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-05-12 <span style="color: #949494;">08:40:42</span>     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-05-12 <span style="color: #949494;">08:40:42</span>     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-05-12 <span style="color: #949494;">08:40:42</span>     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-05-12 <span style="color: #949494;">08:40:41</span>     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-05-12 <span style="color: #949494;">08:40:37</span>     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-05-12 <span style="color: #949494;">08:40:37</span>     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-05-12 <span style="color: #949494;">08:40:37</span>     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-05-12 <span style="color: #949494;">08:40:37</span>     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-05-12 <span style="color: #949494;">08:40:37</span>     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-05-12 <span style="color: #949494;">08:40:37</span>     6 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-05-17 <span style="color: #949494;">20:17:18</span>     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-05-17 <span style="color: #949494;">20:17:18</span>     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-05-17 <span style="color: #949494;">20:17:17</span>     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-05-17 <span style="color: #949494;">20:17:17</span>     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-05-17 <span style="color: #949494;">20:17:11</span>     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-05-17 <span style="color: #949494;">20:17:11</span>     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-05-17 <span style="color: #949494;">20:17:11</span>     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-05-17 <span style="color: #949494;">20:17:11</span>     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-05-17 <span style="color: #949494;">20:17:11</span>     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-05-17 <span style="color: #949494;">20:17:11</span>     6 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 40 more rows</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 6 more variables: guideline &lt;chr&gt;, ref_table &lt;chr&gt;, method &lt;chr&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   input &lt;dbl&gt;, outcome &lt;sir&gt;, breakpoint_S_R &lt;chr&gt;</span></span>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index 5f918d56..cae48296 100644
--- a/reference/atc_online.html
+++ b/reference/atc_online.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/av_from_text.html b/reference/av_from_text.html
index 9d35fa74..9a1de4fb 100644
--- a/reference/av_from_text.html
+++ b/reference/av_from_text.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/av_property.html b/reference/av_property.html
index 28f93cf1..3b18fc34 100644
--- a/reference/av_property.html
+++ b/reference/av_property.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/availability.html b/reference/availability.html
index b2dadb69..ce08c49a 100644
--- a/reference/availability.html
+++ b/reference/availability.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/bug_drug_combinations.html b/reference/bug_drug_combinations.html
index ebabe115..1b7e88fb 100644
--- a/reference/bug_drug_combinations.html
+++ b/reference/bug_drug_combinations.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/clinical_breakpoints.html b/reference/clinical_breakpoints.html
index e4ab9a65..283db4ca 100644
--- a/reference/clinical_breakpoints.html
+++ b/reference/clinical_breakpoints.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/count.html b/reference/count.html
index d732b501..6655cc77 100644
--- a/reference/count.html
+++ b/reference/count.html
@@ -12,7 +12,7 @@ count_resistant() should be used to count resistant isolates, count_susceptible(
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/custom_eucast_rules.html b/reference/custom_eucast_rules.html
index cc1c042a..4b09a216 100644
--- a/reference/custom_eucast_rules.html
+++ b/reference/custom_eucast_rules.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/dosage.html b/reference/dosage.html
index bc1fa264..9c6621d4 100644
--- a/reference/dosage.html
+++ b/reference/dosage.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/eucast_rules.html b/reference/eucast_rules.html
index 900bcab5..0799d27b 100644
--- a/reference/eucast_rules.html
+++ b/reference/eucast_rules.html
@@ -12,7 +12,7 @@ To improve the interpretation of the antibiogram before EUCAST rules are applied
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/example_isolates.html b/reference/example_isolates.html
index 6ad502e7..29b5e931 100644
--- a/reference/example_isolates.html
+++ b/reference/example_isolates.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/example_isolates_unclean.html b/reference/example_isolates_unclean.html
index c86b1ecd..117cfafc 100644
--- a/reference/example_isolates_unclean.html
+++ b/reference/example_isolates_unclean.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/first_isolate.html b/reference/first_isolate.html
index 5fbe150a..1275439c 100644
--- a/reference/first_isolate.html
+++ b/reference/first_isolate.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -338,13 +338,12 @@
 <span class="r-in"><span><span class="co"># See ?example_isolates.</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">example_isolates</span><span class="op">[</span><span class="fu">first_isolate</span><span class="op">(</span>info <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span>, <span class="op">]</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Determining first isolates using an episode length of 365 days</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Determining first isolates using an episode length of 365 days</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'date' as input for col_date.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Using column 'patient' as input for col_patient_id.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Basing inclusion on all antimicrobial results, using a points threshold of</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 2</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Including isolates from ICU.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Basing inclusion on all antimicrobial results, using a points threshold</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   of 2</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> =&gt; Found 1,379 'phenotype-based' first isolates (69.0% of total where a</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>    microbial ID was available)</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 1,379 × 46</span></span>
@@ -397,11 +396,10 @@
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="fu">first_isolate</span><span class="op">(</span>info <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Determining first isolates using an episode length of 365 days</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Basing inclusion on all antimicrobial results, using a points threshold of</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 2</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Including isolates from ICU.</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Determining first isolates using an episode length of 365 days</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Basing inclusion on all antimicrobial results, using a points threshold</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   of 2</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> =&gt; Found 1,379 'phenotype-based' first isolates (69.0% of total where a</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>    microbial ID was available)</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 1,379 × 46</span></span>
@@ -456,25 +454,22 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/mutate.html" class="external-link">mutate</a></span><span class="op">(</span>first <span class="op">=</span> <span class="fu">first_isolate</span><span class="op">(</span>info <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span><span class="op">)</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select</a></span><span class="op">(</span><span class="va">ward</span>, <span class="va">date</span>, <span class="va">patient</span>, <span class="va">mo</span>, <span class="va">first</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Determining first isolates using an episode length of 365 days</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Basing inclusion on all antimicrobial results, using a points threshold of</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> 2</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Including isolates from ICU.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Determining first isolates using an episode length of 365 days</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Basing inclusion on all antimicrobial results, using a points threshold</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   of 2</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Group: ward = "Clinical"</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluded 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluding 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> =&gt; Found 861 'phenotype-based' first isolates (69.8% of total where a</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>    microbial ID was available)</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Including isolates from ICU.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Group: ward = "ICU"</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluded 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> =&gt; Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5%</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>    of total where a microbial ID was available)</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> Including isolates from ICU.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Group: ward = "Outpatient"</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluded 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo')</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> =&gt; Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7%</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>    of total where a microbial ID was available)</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 2,000 × 5</span></span>
diff --git a/reference/g.test.html b/reference/g.test.html
index 2d0d6e0d..476bdc34 100644
--- a/reference/g.test.html
+++ b/reference/g.test.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/get_episode.html b/reference/get_episode.html
index 07dbe722..93b37640 100644
--- a/reference/get_episode.html
+++ b/reference/get_episode.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -246,27 +246,27 @@
 <span class="r-in"><span><span class="va">df</span> <span class="op">&lt;-</span> <span class="va">example_isolates</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/sample.html" class="external-link">sample</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/seq.html" class="external-link">seq_len</a></span><span class="op">(</span><span class="fl">2000</span><span class="op">)</span>, size <span class="op">=</span> <span class="fl">100</span><span class="op">)</span>, <span class="op">]</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># indices</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   [1] 45 13 42 35 36 17 26 23 21 32 27 48 22 10 19  4 37  5 18 11  7 15  3 38 28</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 47 51 35  6 41 16 25 24 26  4 38 24 35  2 26 10 44 43  1 46 19 12 15 49 41</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 29  5 31 11 33 18  9 48 12 20 25 47 36 46 16 52  8 30 34 51  7 27 50 40 47</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 39 34 35 15 32 27 10 26 36 26 11 34 44 37 50 48 14 22  2 45  5 26 30 51  5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1] 12 21  4  9 13 34 31 14 43 33 40 37 45  5 41 35 34 30  8  5 25  7 26 39 22</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 30 17 36  5 42  9 17  4 13 17 24 43  5 16 16 19  8 10 14 38 13 14 35 23  9</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 35 37 39  1  6 33 29 31  2 11 18 33 29  3 40  7 30 40 14 20 33 32 26 44 44</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 43 13 14  6 40 14 10 21 27 42 39  7  7 32 18 25  8 14 28 38 35  9 24 15  5</span>
 <span class="r-in"><span><span class="fu">is_new_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># TRUE/FALSE</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [37] FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [49]  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [73]  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [37] FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [49]  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [61]  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE FALSE  TRUE FALSE</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># filter on results from the third 60-day episode only, using base R</span></span></span>
 <span class="r-in"><span><span class="va">df</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/which.html" class="external-link">which</a></span><span class="op">(</span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, <span class="fl">60</span><span class="op">)</span> <span class="op">==</span> <span class="fl">3</span><span class="op">)</span>, <span class="op">]</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 1 × 46</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX  </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA   </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 36 more variables: AMC &lt;sir&gt;, AMP &lt;sir&gt;, TZP &lt;sir&gt;, CZO &lt;sir&gt;, FEP &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CXM &lt;sir&gt;, FOX &lt;sir&gt;, CTX &lt;sir&gt;, CAZ &lt;sir&gt;, CRO &lt;sir&gt;, GEN &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   TOB &lt;sir&gt;, AMK &lt;sir&gt;, KAN &lt;sir&gt;, TMP &lt;sir&gt;, SXT &lt;sir&gt;, NIT &lt;sir&gt;,</span></span>
@@ -300,19 +300,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">patient</span>, <span class="va">condition</span>, <span class="va">date</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [99]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [94]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    patient date       condition new_episode</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 023456  2009-11-02 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 036063  2010-01-28 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 0DBB93  2003-10-02 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 0DBF93  2015-10-12 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 0E2483  2007-06-21 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 114570  2003-04-08 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 14D826  2006-09-14 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 156730  2012-04-12 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 1710B8  2008-01-22 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 180928  2008-06-13 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 010257  2004-04-03 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 022060  2004-05-04 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 023456  2009-11-02 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 067927  2002-01-07 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 0E2483  2007-05-29 A         FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 0E2483  2007-06-21 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 0E2483  2007-06-21 A         FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 0E2483  2007-11-10 A         FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 114570  2003-04-08 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 141061  2014-10-22 C         TRUE       </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
@@ -326,19 +326,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">patient</span>, <span class="va">ward</span>, <span class="va">date</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 5</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [94]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [93]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    ward     date       patient new_index new_logical</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Clinical 2009-11-02 023456          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Clinical 2010-01-28 036063          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> ICU      2003-10-02 0DBB93          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2015-10-12 0DBF93          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> ICU      2007-06-21 0E2483          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> ICU      2003-04-08 114570          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical 2006-09-14 14D826          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical 2012-04-12 156730          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2008-01-22 1710B8          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2008-06-14 180928          1 FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Clinical 2004-04-03 010257          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> ICU      2004-05-04 022060          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical 2009-11-02 023456          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> ICU      2002-01-07 067927          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2007-05-29 0E2483          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Clinical 2007-11-10 0E2483          2 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> ICU      2007-06-21 0E2483          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> ICU      2007-06-21 0E2483          1 FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> ICU      2003-04-08 114570          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2014-10-22 141061          1 TRUE       </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
@@ -354,9 +354,9 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 3 × 5</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>           <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           64             14            40            49</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                23              9            20            21</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          7              5             6             7</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           53             13            35            42</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                34             10            24            29</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          6              4             6             6</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># grouping on patients and microorganisms leads to the same</span></span></span>
 <span class="r-in"><span><span class="co"># results as first_isolate() when using 'episode-based':</span></span></span>
@@ -385,19 +385,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select</a></span><span class="op">(</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_data.html" class="external-link">group_vars</a></span><span class="op">(</span><span class="va">.</span><span class="op">)</span>, <span class="va">flag_episode</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [98]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [95]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    patient mo           ward     flag_episode</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> A76045  B_ENTRC_FACM ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 452212  B_ENTRC_FACM ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 419568  B_STRPT_PNMN Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> BC9909  B_ESCHR_COLI Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 443847  B_KLBSL_PNMN Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> F32657  B_STPHY_EPDR ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 180928  B_STRPT_AGLC Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> B82692  B_STPHY_CONS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 89F578  B_STPHY_CONS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 597301  B_ESCHR_COLI ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 964998  B_STRPT_PNMN Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> DF0749  B_ESCHR_COLI Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 496896  B_STPHY_CONS ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> E48302  B_STRPT_PNMN ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> E19440  B_ESCHR_COLI ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 545388  B_STPHY_CPTS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 824233  B_STPHY_AURS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 54890C  B_ESCHR_COLI Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> CD8C33  B_STPHY_HMNS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 966513  B_STPHY_HMNS Clinical TRUE        </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
diff --git a/reference/ggplot_pca.html b/reference/ggplot_pca.html
index d51b4b45..3997263d 100644
--- a/reference/ggplot_pca.html
+++ b/reference/ggplot_pca.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ggplot_sir.html b/reference/ggplot_sir.html
index 9bd3c981..ebca49e4 100644
--- a/reference/ggplot_sir.html
+++ b/reference/ggplot_sir.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/guess_ab_col.html b/reference/guess_ab_col.html
index 7232508c..401c2968 100644
--- a/reference/guess_ab_col.html
+++ b/reference/guess_ab_col.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/index.html b/reference/index.html
index 8052fcb2..7ba38169 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/intrinsic_resistant.html b/reference/intrinsic_resistant.html
index 5502cbf2..620c610f 100644
--- a/reference/intrinsic_resistant.html
+++ b/reference/intrinsic_resistant.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/italicise_taxonomy.html b/reference/italicise_taxonomy.html
index ace3d969..8d82d32f 100644
--- a/reference/italicise_taxonomy.html
+++ b/reference/italicise_taxonomy.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/join.html b/reference/join.html
index 60ee3e24..2629e3a3 100644
--- a/reference/join.html
+++ b/reference/join.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/key_antimicrobials.html b/reference/key_antimicrobials.html
index 24f50a9e..5daf261e 100644
--- a/reference/key_antimicrobials.html
+++ b/reference/key_antimicrobials.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/kurtosis.html b/reference/kurtosis.html
index 5c1f95b2..6bce831b 100644
--- a/reference/kurtosis.html
+++ b/reference/kurtosis.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -182,9 +182,9 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">kurtosis</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Normal.html" class="external-link">rnorm</a></span><span class="op">(</span><span class="fl">10000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 3.027601</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 2.983447</span>
 <span class="r-in"><span><span class="fu">kurtosis</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Normal.html" class="external-link">rnorm</a></span><span class="op">(</span><span class="fl">10000</span><span class="op">)</span>, excess <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.04687044</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.05816737</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/like.html b/reference/like.html
index e0238bd6..564bc1ec 100644
--- a/reference/like.html
+++ b/reference/like.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mdro.html b/reference/mdro.html
index 6726cdac..090208bb 100644
--- a/reference/mdro.html
+++ b/reference/mdro.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mean_amr_distance.html b/reference/mean_amr_distance.html
index 547ad707..bb7977e1 100644
--- a/reference/mean_amr_distance.html
+++ b/reference/mean_amr_distance.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -201,30 +201,30 @@
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">sir</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_sir</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">sir</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] R R R I S R S I S R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] I R R I R I R R R S</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">sir</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.9486833  0.9486833  0.9486833 -0.9486833 -0.9486833  0.9486833</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.9486833 -0.9486833 -0.9486833  0.9486833</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.1618950  0.7745967  0.7745967 -1.1618950  0.7745967 -1.1618950</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.7745967  0.7745967  0.7745967 -1.1618950</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">mic</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_mic</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">mic</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 4     128   0.5   0.025 0.002 32    128   16    0.5   128  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.0625 4      128    0.0625 0.002  0.001  8      0.001  4      4     </span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">mic</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.07714511  0.97675198 -0.46261901 -1.24022626 -1.89583387  0.61690923</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.97675198  0.43698786 -0.46261901  0.97675198</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.3120147  0.6680004  1.4846796 -0.3120147 -1.1231053 -1.2864411</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.8313362 -1.2864411  0.6680004  0.6680004</span>
 <span class="r-in"><span><span class="co"># equal to the Z-score of their log2:</span></span></span>
 <span class="r-in"><span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span> <span class="op">-</span> <span class="fu"><a href="https://rdrr.io/r/base/mean.html" class="external-link">mean</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span><span class="op">)</span> <span class="op">/</span> <span class="fu"><a href="https://rdrr.io/r/stats/sd.html" class="external-link">sd</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.07714511  0.97675198 -0.46261901 -1.24022626 -1.89583387  0.61690923</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.97675198  0.43698786 -0.46261901  0.97675198</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.3120147  0.6680004  1.4846796 -0.3120147 -1.1231053 -1.2864411</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.8313362 -1.2864411  0.6680004  0.6680004</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">disk</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_disk</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">disk</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  9 46 37 23 13 47 10 23  6 38</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 10 15 33 50 37  6 50  7 27 42</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">disk</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.0287932  1.3209197  0.7493679 -0.1397127 -0.7747702  1.3844254</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.9652875 -0.1397127 -1.2193105  0.8128737</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.02416943 -0.73485604  0.30667220  1.29033776  0.53812292 -1.25562015</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  1.29033776 -1.19775747 -0.04050388  0.82743632</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">y</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a></span><span class="op">(</span></span></span>
 <span class="r-in"><span>  id <span class="op">=</span> <span class="va">LETTERS</span><span class="op">[</span><span class="fl">1</span><span class="op">:</span><span class="fl">10</span><span class="op">]</span>,</span></span>
@@ -234,22 +234,22 @@
 <span class="r-in"><span>  tobr <span class="op">=</span> <span class="fu"><a href="random.html">random_mic</a></span><span class="op">(</span><span class="fl">10</span>, ab <span class="op">=</span> <span class="st">"tobr"</span>, mo <span class="op">=</span> <span class="st">"Escherichia coli"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">y</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr  gent tobr</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1   A    I   18     4    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    I   23    16 0.25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    R   20     2    1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    I   20     8    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    S   25 &lt;=0.5    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    R   22     1    1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    I   26     1 0.25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    R   22     2    2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    I   31     2 0.25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    R   19     8 0.25</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent tobr</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1   A    R   22    1  &gt;=4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    R   27  0.5    1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    I   27    8    2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    R   30    8  &gt;=4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    S   18  0.5  &gt;=4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    I   19    8  &gt;=4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    S   27    2  &gt;=4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    R   21    8    2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    S   30    4    1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    S   19    4    2</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">y</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "amox", "cipr", "gent",</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   and "tobr"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.14918777 -0.03570087  0.13005928  0.13771386 -0.17506383  0.10002806</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.47691376  0.43333913  0.00264067  0.03308522</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.16915536 -0.32319888  0.10243586  1.05012543 -0.67969116 -0.02029945</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  0.10305622  0.26675770 -0.19285261 -0.47548846</span>
 <span class="r-in"><span><span class="va">y</span><span class="op">$</span><span class="va">amr_distance</span> <span class="op">&lt;-</span> <span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">y</span>, <span class="fu"><a href="https://tidyselect.r-lib.org/reference/where.html" class="external-link">where</a></span><span class="op">(</span><span class="va">is.mic</span><span class="op">)</span><span class="op">)</span></span></span>
 <span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .subset(x, j):</span> invalid subscript type 'list'</span>
 <span class="r-in"><span><span class="va">y</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/order.html" class="external-link">order</a></span><span class="op">(</span><span class="va">y</span><span class="op">$</span><span class="va">amr_distance</span><span class="op">)</span>, <span class="op">]</span></span></span>
@@ -265,17 +265,17 @@
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "amox", "cipr", "gent",</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   and "tobr"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr  gent tobr amr_distance  check_id_C</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1   C    R   20     2    1   0.13005928 0.000000000</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   D    I   20     8    2   0.13771386 0.007654579</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   F    R   22     1    1   0.10002806 0.030031221</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   J    R   19     8 0.25   0.03308522 0.096974059</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   I    I   31     2 0.25   0.00264067 0.127418609</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   B    I   23    16 0.25  -0.03570087 0.165760150</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   A    I   18     4    2  -0.14918777 0.279247046</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    R   22     2    2   0.43333913 0.303279854</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   E    S   25 &lt;=0.5    2  -0.17506383 0.305123107</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  G    I   26     1 0.25  -0.47691376 0.606973037</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent tobr amr_distance   check_id_C</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1   C    I   27    8    2   0.10243586 0.0000000000</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   G    S   27    2  &gt;=4   0.10305622 0.0006203605</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   A    R   22    1  &gt;=4   0.16915536 0.0667195016</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   F    I   19    8  &gt;=4  -0.02029945 0.1227353089</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   H    R   21    8    2   0.26675770 0.1643218437</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   I    S   30    4    1  -0.19285261 0.2952884682</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   B    R   27  0.5    1  -0.32319888 0.4256347323</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   J    S   19    4    2  -0.47548846 0.5779243144</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   E    S   18  0.5  &gt;=4  -0.67969116 0.7821270147</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  D    R   30    8  &gt;=4   1.05012543 0.9476895794</span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="co"># support for groups</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
diff --git a/reference/microorganisms.codes.html b/reference/microorganisms.codes.html
index fc8ded3a..86fa2d27 100644
--- a/reference/microorganisms.codes.html
+++ b/reference/microorganisms.codes.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/microorganisms.html b/reference/microorganisms.html
index caad9e5b..261e44ab 100644
--- a/reference/microorganisms.html
+++ b/reference/microorganisms.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_matching_score.html b/reference/mo_matching_score.html
index 17efb87b..c3f706f5 100644
--- a/reference/mo_matching_score.html
+++ b/reference/mo_matching_score.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_property.html b/reference/mo_property.html
index 96e585f4..d508e187 100644
--- a/reference/mo_property.html
+++ b/reference/mo_property.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_source.html b/reference/mo_source.html
index 2baaba48..36fe3463 100644
--- a/reference/mo_source.html
+++ b/reference/mo_source.html
@@ -12,7 +12,7 @@ This is the fastest way to have your organisation (or analysis) specific codes p
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/pca.html b/reference/pca.html
index 1bad63b1..12dea150 100644
--- a/reference/pca.html
+++ b/reference/pca.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/plot-1.png b/reference/plot-1.png
index d02549e910ec93682219185f4e9dc7edde0c3cc4..270879564f583409da15f8bdd4c618f11f0ab7e8 100644
GIT binary patch
literal 25805
zcmeFY2~^W(yDy4$u0^WWQW@(<04)M40s;am6^IBZ^9+iB8XyRU03n1rU{!`1kU=I#
zh6EA@84@y}C^Sq_F$4$+AVVY!Q6LErlH7k{zx{QebMM)AowfE|_w2R*YuT{g@p+%|
z_dM_0J7--Sl)qK`R!K=o8SMD0o08JT1SO^Q7q)ByT3ES{KLbCTE;u>-3j6}!id_o|
z_}Loc=o_b`q<LHZZ(Y{pmoO!zpOwJBp72O0nq?=FE_w&@C9dTr_cu6hasPEg0r>U3
zZ-3vpY2%63)P33eg6`j2-FN-tF~pm7WXJD|$WJPMZhQLVPp2&|$A8{%f8V3;*5w@f
z?(m;K9TqHh;8KY1i!dfjHs!tZiz(C~F#{_MLd*p-rZGjy2*%Jx1zG?7pZ^>V9E?H*
z1~#?}(VjoP;eL+$MoDjGz*802%b_+DJKjG)?YHsjpl?;muL|`F{7Qnq&Zt5r`TN!x
z%UfE1-I}mY{)b+tbH9>Oh&Xu;vrS29^phSiuIwTTR?Z7z6l488Bf5ns(&}+RBhQeb
zjy3PmLM3N236}-1dI-C6b?wSX<QfVS<WIh2CjCt(!3Hwu&8}YU<&`jK45}9$SK^C|
zeQ5#5Yq=vmVSWN3kB=F_2cb3yhAW6D!DRj1HnkwW$dl`huLwGeoY;b^WyiB1#NEv3
zWrXYjBhM??qu34kA_)cy667&-tpb?wEbqYbF>*>_8W&lZCYn&jx?>I0q*8M27&kTu
zc0w?{`$J21<06^hUfLi(sn$YG+M|!HKQ<yFKdZqp9O9j;wrAP!UGy<+OjrLv&|#~T
zg(~`!8Dtr8=6q-nK8bA!v!Pm^-v#qx<A|4vuX3BXrZ@kvifW>kp~x=C8N$^zTfN97
z?q{yD?09Wp@1;3zoUh&Y%{y#~qieD&TfXNa5&j6ec14L#VCW4~a>C1>P}D~<%0~KF
z9WR1O=#Nt^5_Kx~6WRQp;^iv2T!i_hmuB|T?N8ng#YSknTsFQOdgA@cwqBW-_d3n@
zxjKQP88IG+Kfj4<-<z1I-XeQ-h=Gs#0$cWg<tYb*o@tSovLj;>-cooS<~|)`tgxAM
z<g*~cD3LzgN)W4EA8zQCRhq79gIf`gl3d&9*R1`wCa4B3-kAxQq5oI}AG74ny+*{f
z*g^oMNVWcCrs+Fc6Z9$OOxuAj9di2&W}KO5bnn%l-VFrbhcd?J1_3;>t{op-PC+Wy
zZ_8S0SYCkPOv>2OhtZ~^l49rnL)0jED}uU_Nv_-L5j=HIwFvR(JngqO&C7BM;>I_B
zvC{lJ|F<o9O@3C6%j`7#6K&@ADYMWmpD4|%^El~lG2*};nbnW!)CY5UUx}!W^k4Z_
zV8yKD-*@Vj+~#$s4fb|;m_zel61_%bI2S*zU+CZ*e%k9B4)oY7ZY_Hq{|h5RH9(v)
zQ-qkmz8FM)Bzu`EvQsvB$R9YUBN`P;^LY=IyCO+RF9$Ybph4xhL+d%Efm}a;N$`(k
z0{bsT5|r4O$0P*Xy{#!R!DwSB7hZnpQw!HL`qm}r?f1C=%`VX%5)N9r8B=Ij89_d{
zur?^jyzDa~_%gF(`!?oACB9T(TehmLytns>)ZFJRt06qJ8rFNy53y;Y)-VVw9M;9R
z<;O2V{0ddJyI#JUkQ5`n!_(9JcG#sNdhjz`;vR)+^%qQRY%uiqUmp0;wh8Ya)64V}
zMUQvgBVBvBtcs7D&tJ!P#m80mY$90+IK#bkKR~@gviyE{LP~u0g^GB&ycrYGaCBgK
zQkQF;NE77Vy02=!A^x_wNtdfpF;8i?Q1O2+i{5s{-z+<EP^}Ce5YuZ<!P%y<*B<sy
z-DnGQ+PMa|t7+*5GmNYIBED<7bhY?i^d}f|qr?~@nRGVeb?d@1_PjRUmVmlYtY)tM
z@1z|0E}hDc%AZRBN#g)st5L3#{=B37_=6u8+4!bjIq%keQD97Oc5cxkaU*v)hGvlk
zY|m0%LVdX|-8?t)Do(90I>i~X_;T!x6E2Rf%k;fv-Vk3rQujz!ueu~-?0{IFe`&hi
zBf{7M+MO!u=&!t5zmD%hHg8(2|50hcUVR0#OR4o2a_mcKxo7F6Ew<9;RcRVNcBCRh
zk{NgMUW6S5bKbiDlu>mFb#&khV_LmgIu=9;k)aM)aLrX`WuMV;E`gyVTMdK!KH_uJ
zJ=-E%;f6=!^I*N~Xl$}`)5qnsf?7x-YGx!qs$4RBU1CdWr$9VLUObXPv)o-g^NcNo
zw{(Ic3b6JX5dD!tmcVzLQlyFO#3rTq7FkR0mqOF-pOR0vt(NjDZTezD9~lS6a+LEl
zSdM=*?mJdBmiBAmmv?Cm?##LaKBP-8r3QIL_5FNQSJ1t3^KP%8M&!%uanxj5Gb@S#
z7(h|&#K59jxcj^wiVz~3Q+q{C6#2as^;A=BqLuMq=G1dN6TRA$88&Y}2idOi$Nyo@
zX@#{P3~z18=J(940<NjCAXQaqV6KGO{>`Jr4)3f=DPeDwbz+9iz5cD$dz*dex=xvf
z{+#oMT_q!RtvtJJLZ}c<3d6rSq&zcV#QM=UzKt-~$YWkJ$dzbtUaV)1RJnSiYDNd_
zR1j;+8zn#Xd}H$|pJ%0ha^)Uoq(bZ6_h*Bs=LtD0)O+H*bXW!q*PuQ(0eB`G$hy=h
zd2otvF~C?gEYGyftYFd#($opN*1``IIuiyV$Rt{ASp7QNmJnI=iYEWr?jZ3cq%*v*
z+;Bj)UNcF%Xy~KhhHB3@xG_`IiME~FLk(}#?#jK@-Eb^{y&pn0htEV9D%EVKR(zx6
z{<$_y9mK9(C8wFjn2(nz2dkHgzUWF+WJxQ2xya&_!BsNESK!T;A>J@YwqsMAn=TB}
z$NH_j-b}4Q1RPW0NClBmB}v`LwRt*uVol`1jU>N#V3AThZa(tb$4bH(&IBwoq!5V0
zsrwV71e(hA^yq=_e?3M_y3*!X(v{3UpEW{##<w;*+coHvNse33<?8`bhF;3Q-}E5L
zcS|qVPZ*cr*b)~$@f%N7RYTl3SZdomy8L92YPyE%#2>JbK2?SUYMaj>KJ$lboq7lN
zmm6Bd2f(KE+Wi=axbA;#Zwa`j=iX-B->gY_jmnT%O6W_ACfnIB&kchhBAlV@^zv3l
z+m9M8q&G9o^IoM<SND-WP5Gqr>kXx1#8Y0hl}}gr+VpkF2<zZIc=euQesvJ_Vz;_!
z6}}}`8<#>D<InC6L^cYa#I?si8Y5G3SqCimT7{%u%t&Eqa{o6<tTV0Klr)@eK71@R
ztKPkKpm6VUj&4Uv-J9SxX+|#o3(?;&$xy3r3R-k6R<P*c)mtKXrrRNXBFIy*z^&f@
z(mD7?mX~orsEo!4Ha^O|V;F2dzNFg`M4T81%+*k5Q4I%B{QjVE;p?<86*GuA#oSyh
zH#;2w3)Qf!ajOr_QbM2j9~hAJn+mNFw4+&9@(U8iw<D`pHZl6tzu}xpfvh*3x2H$X
zg{(FY)(WCEJYlEXyt%f1NKwM`x&8ENTtLk1i?qQa*9sfF9kolF_5GR+Cdu0_f!HUd
zUzaom)W`@k=^~nL2L<pw5HA#|w>dP4ab41J<mTJWZOalyo`=kheQ_Ieuu?P?p8{}2
zNeM9kHSJz%sah@OQ5dR6x_`B5)|;mAk{IybRa^r*;^lHyU~F%AQydT%xyDEN{Jf$?
zm=g|uV<T6CI#JYNOz3}_S0pM+`^<f)nZ(Y5Y-y!7?)53;QwP<1q8QOA=U~#URV~Vd
zpZcJY|6yVL;7E*JO~wZiSN$jca@r%ryG1dPr&dqVKXSl3hGxkO{4p6i$zAePPo}7|
zjRIn;ixZ&HBEV{tlxiF_zthaT*z)X6{cvVw(BW66oPqC;7}m4e{zNK|v3@%LAQfKo
zU^FIJ(5=h#hx(ra0@=8F74+SA!)?VaFTYGR1^dKC&Zfdq0*Z6Lh-oM#`TqECu_HC=
z!ktY@qnF^mc8^|sg7CdfH>BK){-I%qF`hyiOLKIOf0X1Xn86xd%(8l0GyLk8T)(3`
z>BGlMv%K(}(FEK6kLr7IldjlO_OCJ>SlB&iV{`5zW^+UG%AHeXpE&`1d34bGCJ5L<
z_$1BLSQc8GlINXusrf`-5|WE-P6~l#@!b6@pytH7RSvI;XX<}cCQuF@33?&?MLo__
z(8uV(P+6}NjVmda{D1KqL14G_PcJ$}t?Av&^J;=DZ_W`E`CHc&tEdLQi*avoVor+?
z42il8r16S5)!cklu8ucCy#ch|YN^Hg+%UuHZe*F>3^Kp$vu$A_4Zi{PjM#j>@+P%9
z$O{>g%}ioM&K8<(Xo5%P7l>DsgYQd^+tn-#rQ!Xkwdcdx?>>#Fmxu-G{U6ru^13iA
zGtyL^*-Z;*)Rs)6O9_ECq`McgF38^1P-bCj*I(l!mo1XdwPn=X41H!usZq<{%B;NI
zr(}Gt`YXyQGsLbJS)OocLhpzhyWX<?eB)XnM%4@T;c>{--Mf5(hCcf)z2&K^rP!By
zK=IPLB>QnrLSzf4&}s!Z)&Jtts1{Zefqvo5^*Wi8@PVE$L+h0^-emg16q$)qWCjp>
zfG_092Gajxng8>;S~)MEjEw+Tf6aS#1qBNeO!MCJTECr<+q}}~K{3Y4%QjE~vHQK{
z5&|ixXXJTzR6X)ioHM+)lEYp&3x6l1@Lm?cl;w>zPlcYSw+l+5amMCwl+lc6xO+;G
z><t{Eeqh)QIbrlYB0Tj)g!))fkFeC&nsQz^zqaB!cpsx+w6IwnCWsM6s704G?&<Kb
zjUPB_zNgk+v0wk^KFx2#P>WkSk~)WdY*9Bu6;o<5z2W<EBqSY;nWVT-^8A(#1??f4
zrL$-ES+)1P+nxy<-12qoE;IYlKVuh9%!V^L*28P`nfE#x3cbibx{fbItOSUwfMpuv
z=Dan=d=#5jjk8)-iG&X5)uM6CHg5ZB?>WqRc~8jWU0C|Hefi`HVvk-&v!}o{5Gi42
z+gI(7_vSxBVvRzwnjHixx97xJJYNO`Bl6b98sRgmU8<vffPA%#_v7tiaRbAt5g#C*
zqBO<E6Q9`C$28Ri`dTNHZ`&+yeB^>n!L3FXZi_d@rc@H=d-J}NH_v+IUh>HpSL<h3
zw^(9{iLmiBL6UJb$3HNDOt3@=xnTyCKgb6TG;AP6zMjK6cy**7?58oDu@2sRt@FnK
z67M2BMZvHgIxA;k(QV4l&*PiHf<Wc$`m*^2o=8nEZ(YsiV@*2#RteQ}aQM<5z#Z_&
z^<Pl<ph@AQtHD|Wf|P0omES&GVlm&fzN)hpYm^FJ9^*Y=NO!cauJWQ+yiWoKRg#U-
z5>z<AG9Uq=jE2ZTr{LB1MwI1`53RKa>|8KJF`LivjVNy5`8Cc)K@tAkVt7!ZO4~WR
z)-HQeebSI)DDs3|E8>mg_&TN5XGL+n7R5=tN~}?67iS^2N#nbO^RC1;&H1+yzAc;K
z6(p?7)BG;sx2HE#;Ystuj~lX$eZuz28PR%WYeG49l5w@Zv2a4JIIUXo-SRpE@P$DB
zvg%#B|13>FK1Wkc?6q9?smKR-e8VaJ+`FCqgF?wej)dP(=-8Q@JtV7{9)_pG(e{GS
zAHKGgrozQ!0+C%MdCrK)j3IT^O(+!R4_&qRSGK(kP!i@J@-<VRW&tAuk1{E9ofvt8
zQl{lMoH<b%L8$5Fr7)V94?6%dWJQpXD9=-hAr9K+zN{2&yp|;-_|U5a{mg^%Dx6Zx
z58r>DPv>SG?f2BlR7^dSudAk*p?4YpG{AT891v1~FZIsO&wmmBKe)7i9sYl;%lx0Z
zM1?$xWyhR`#gDJuXjSc%4x7JHm~~D0)`Y>|M{tzHi9=BH1)!b@xGwG%pv|@t7dWSV
zzKZ2#Ud^%i`)E~q<DnvdWUydFCqrSHh}^;|g$Fv5^Ix8m|5K^%KSw3zqxHSYJ;Yvt
zTNDxzZ%KgnPcv>{_;@X^KzN3Y7~A0iB%|)gC&VX7S7A-X`*+C)=3fT{4HVaI^1PV?
zvSr@odf^uakeX@sbMtvN^>bNRC>A%A`-@y!skDPP;1S7i$n6$Ss+V<0zcj<feAs$e
z2P?C7Q&cEhZ*EO!8rje2<7!dslL7=}1}j`#;>)gD4X*FN1J#e3fHo;_iZRlY@g-Zi
z%UVu>5+WZkX6qU|{GvL>-*f|o8dU5X=u_-R4#CmA&2Lh@dm7<K4$wc-<Hl`%mQM(A
z-38e8=H3Qv|3EX*@<Lhx$+M|YveKMZh|!$yBv5W=DeQLkM08!FgmMvwe5cki5;HK4
z@;ltWwh~-d!xa8B!|(hcJ$D|}0A-v?zgUersubcUG+k?&z7!J%3t2D8%pLJoNihKy
zvWLA`dqpZlN(02%5Dn^5O-E_a;r`?i^(exV9&y2-S@_$;z8xJyMk1`V%JM4XR{H31
zfjh&viuk=!<E$lv8ZQ_zESr762=v!lu&H0|FWw))LcSPVk+Lw`)&a%Ze~hwI^5FY^
z9%gc-uH9pgr~Q!qJjCSvyvFl+rpK}lg@32n_xV`a!5fn}#vQS64l+WScKK)>GkSdU
zc8vjVw!u2%)*N=DZ!@C%kh}O~HzN?n@brXNx?pS?p3RW4Wzvz4gNxSHL_4`3v)2Q*
zgH}@_`)$apZ_jt&kptrmt5pn9k3-N<n&f??dK-Zu^5m;sCPj%pIoJ{%j(yxA4;s?R
zVCi%HV`E#fM(b1W7s2{{ttHd0!LU6J6BH2{S}K{1FdvpB(h))Br75dsUN6WcOV9LS
zoJ4Ll5s18*Zha-vL&~b%4g8k&F9<E+@;aw>qAWmc>W@?C?9pGg0LoL^(}2QSLgv3z
zV<NhTsMg}e%hhDcymB~Kdx;ymTQTxXwmeXflK53fH$gj3lktY(kAawWw<Axs`8DbH
zWXc?29fQL443rnMC}Xjf2ZcXNQfLmdZWCYFf*}UO&fWe-U|eLC5+<nOnJ}6>>9|aM
z$%~8Kx6Ox_6gXj^t$UQc2M=vt6xiZxWk7k7;ED2+jH0g^L40nDbaj{tS9azPAdqpZ
z8JZY(?2Lyj5SfsXLiMvQPr3+;hs6rYc-mN1v+gBDWcmIxuC*hab(kNuvQrTbm2xl1
z$x_Py<-bbY`2Wb;{Rd(Auju6>SZ-h0{F{Hb^cd`BtwI3+*HO1arE=b4A>Ujp5x{Z)
z&Wn@dJh%rnSRTFjI7)5O_*c-|TB0`^rejncWcJ>N3oLT*{nv08L7*uR!oRLx{&Rf#
ze{jnGiPu-EQbmJ|VtWk*@=ArJ@BY)KnOH-71|++dIvEP5*!oQ<y_uXMc)@F9Y{TFO
z(jamkD7{S>n=!=ddzF^3M6Ene#%64XcX`$|c}+k`NzHf^838264OoO1$_hTa#H(bW
zJW+wg)*rtndBUpN8~p|tDxOkyo{*-0WJAklHZ|!@<cNv~Q+;Jsu?V6)zW12~0L-u(
zJQqf3uclRXQf%9TvN3KxXl|t4PcbOd(yG?ul_$g2GphpUiS!p_62?W9(%Mx=feu3%
z{zy+gDwW2XZiulxXI)P`W%t&K@5ji-IAIpCEuP}|x}%B_`v<2}Ma|oL1|)5|l6g0B
zRg#_H7At7Cyt8$~oJT979<b-qNS`=SbX-S}FT2I^u_ZRCeYmzBa}R40Uv@^Z%=AES
zsz{B|hB5boLVbco%Y(J9-m;d}HQp@mIU|fg_0GaYyOC4+;j${lg`84c`}PEpXK;Wd
zs4bGsJ<|Qk`jaPv>BYpQG$!${U*&jOhs=MuVUJS;-;jk&&C5mZ>ftlei)~fIiFsbG
zxRj<OkzRW;GeAsq@X%Dyd+rh-*Bi>_XA9xy+unbR@(-lkI;5g;`JB90$)UdX8_o?Q
zNPe~0DiFD8-plu)0$PRq2DGCvDYcgP>Yo0<iH(23+Zc~M2BYLI$8p8%niCyWM8#i9
zjp0>$NB~Ue9n!{@5MC})2*mj+i8^Dq4nu*$V?L-Gj7r|~D(i)=(H}|b9#l&RwJ~YZ
zQJ|QwA!zq|GFC(ojzoSW<#jh`A9VYwJ&0F6CJFpQ%oLVhuQ-d)sNN9BZcq<D%Exko
zC88@`3TopEYr{Wtl5mnr=OR%7L0F)}I2<O%K&v>Mn%pn`7<2j%6gS^Qd@tWCl^qUn
z<O4zIS$LG+8Xz9hVbrmT&XN-vt&w1=gc0l^gTm@fGe?L?=h~EK+gAySJ$9LSon3xO
z5N-u#H4}s#4w$f}mAi73li{=~aTBz*2_*;t6v#UJc@Fm2?eeYis{k%;n;L2wew`S6
zl$j!MY?w7$?D~Zid7@O^)AopH*&LgVt;ZN+Tree;@HJIzpTj@%SYT#eZv*Pmc|2XP
zK5lN&9@vi{4iE=!TRoPHlf2>~Fs}4D@fm@HvB(u#C*<%Hhoh+hY_2B=byx#EtrX&F
zCZPjm>1No{Q*HmUM*E*{0j7pZecy5++#%b>i&drh5R@d>K;bVkzwO98((8cH_p&ub
ztUcj@8QEAB?S7FZV;oajz!G5@V)?-ff+G@wy{WasCxQ<%DG4+mem-Pm%<=BfGk=ef
zfupjYV>$*)JF*V`s8K0<*DgJA<y)KgF}vEGyaTrwz{ETX*60FAJ9^nlGU%!Ljn${6
zG}=z44{Wba^OL0Ld(@X+ZT$AE3QCB>FGDGKob){7)a+p<mh${7K3d>eFc5O6su5k4
z+LV?mvSAd5XQ8e&2D(WgFi*Su*r#p1Vs0+oub9~69efN@8ic%*VY5j696-5PWxyRO
z*E}Cs_+=Zz&OvLj`+mob>gA`~$+lUWwE3STW*gKOt1@wPW>&ml^3Lcb(M?{5ci`*a
zql1x)mL0N-x33ItEydy3-$$D)zvSIkba_kYo~rAVZmXM&l1W5}z@O1XpR)~Zte#ZC
z$jT=lPkkW2uv_;Y=_k$`*oHy$40SXmG`?Sp9Cfm<j1En~oe%#4r0&FswgVjV3^~sr
zp2hNfJGOH_78lkPwD^#@By6IR!|AuJ=lncXl1JBDO+U-_3hc@aOc=XG9@pgWLzNFA
zaGrv&U||@W=hftg=i>w%5v3`Qx;EJ$MJ)SyGFvzTB9lDd;KF3jS<n+*0Q`5fa!eGq
zj=z_QQRMQ5P(lIXD&L5oB5JXctu1z;@{|Uiw||#_HNtAKYmT(RdxrG2`?>B6zWIii
zP_32KmUqF|K843}y^Jet5`9V|;`fbOW0Tm|Yoo2199rRfiN7FQCj%C3*E(a+G^?h9
zT5hu%Pd_Ew-XKPP+*Nw?r_U!nN0yvNJ_ztAiDzDIn6`MJWBVpjjXrYHJ0(md>Fo`#
z!1mn0n3o$jujeRRjHjC<b%$!zXY7uma&2WRfmd$@!0*@7ZCW-T8(k*{n!UENwHp8+
znmrxLzBm^H#b^Z=A7<G=8#R;HmWB4s{sPSQYU_A5@CpH<)z2kp`gKhYrwRVt-h|(K
z)b>wrFS)gcWU+9ma89{e?ylyG{T#@44{o<L#k~#kWtsP3kkX|d{ZJ_7MKcyL>fOb0
z<TTiBz6oNjBtCwV!jac(oBOrZiA-7TCv@n0yGAu9b{ArTFK>aOD0^p-F?Ivug0!=1
zHyGwUy@0|vwK>lyY}Yz+)-=I)HcLI6LwSTX?nM<2Hs<aEF3C#L3UkPi42pbIt5)bH
ze(&mS-YR1kMg{tj1V7Tv1KdG1>#U+udhi6x^oA&%m&@P+)xNWNiS5FidTesznEe&k
z>gXUgg%}092Nd+j^N!pks(Pz>YWsqpD;CC?#kYzX4E~Xu5BzIYfv~XM16mj*?@}r>
zo7$;t>mdpBSAi?M;lNF~$HlBZAarO~rBITh1b5N~zgAPy<pBpVHKghV#~P_$j#Mnr
zf3Sb2vZw%pLcCJsdZ|(7Uag31g3#YVO%csfb=$v97%^v3VxJvS?BH_&SOz~eRGxlB
z5x13`(szHhf#8r$_uDtf*9^G>xJafK>L^4u!h3eVT>+96aSJ2!lqAC1creDCy@tAc
zY-*c^)%&CL;tbfr?3ZdR(_6bb$Q^m*#(47hzXH&=3ECc-P3_V?j5z(;SA;#4PWV+3
zzLcyk0r8EgaalvYoRXRRjP*JhioVuOzE2b+|67rImnm@C+g9~SjxZ4~o?#j;b}g8R
z%jPZnilZ36MPU@Aj#eCrZ$%^tW_cX-Pl!C8Z@q9mMm00wE6_R@)vc?B8#%ZOZZj+y
zKuhUZn`01L@{sw3uW`|V44fXRY!c&IY@GrYBr+~DCb#txo+N#&LT2+^bQlVEUZW2%
zjYF_oH+PC5!8)16a7KXGdgNcRbsfJ+kqHA4n`6ziK|K44q=Ywt)e+qd#+I`Kzv*(3
z;W(uD{*|wi-vtN?YRRNryBAt?^rQl0C?VQ?*75bZLt^u*oUL(l@Jx@drzklHNcm-e
zc&RNjuwjB!NN)%>{rl#LadYCRkED+7hTwlkR2+B6wbG>kLAtbwUjQVRf*oILXOXXf
zeQsld^BY{NgS^@CCq_cCx4rSDEWl0g`umx^B$2oK-;u)ve8y%>_SEWH6zsB~T$8wm
zW$Q(?x$qa&uYiXVyBXG)a{640^gMEY@Nq~J&m4>J_RjQC<Y%oVz(u$}EK$(R3uhR6
zX$L-~m#bfAv%E%3tP}%Moh{=F+a*~%{czSD<(UPozM5WKL%f1h_BDa)_#`K+h~ElR
zXpJzZHt%c77IJ&bUr(>DROzZwo(-A5I*M06uSgwJt<M9>^@`WLqkWGKNKs}S*mdBY
zVugd}LVHG$7uC1jbFHE@CtZW}3{qt7fk)glBeO!WEYn`wEdi*Thm;<rL8ZfGmY3z_
zguA>9#sjPoU^Dr-fK<8Bbutxi*GesaYs~5-uT6*XYB{BRRd~PSSlq-Hr2zz`WmVv*
zdgw_oo&sl_0=Dft?A6-h3tWX^qdnOzNzSmDv_XSe8?Gsk;@ZCQDIGa@PqbbqePb&p
z{vKu~NJK1-AG$0LTsDGAR{@aS<HP9yvqDU~c7OKLtVns3WCyF~y=26B`Ka8pZt9`G
z51JU}i4TXWr`|ud^jKx?rAo?YOxHjilQd;2`III7gy{mv(7VDg_eFFCi1!*`70MlQ
z-AnUxkPVZ<{Hu<e|HyMQsiUXCHON<i)s=R=;H8Rs<L2)DRo89ZP<?omd|5yOKoRAM
zrGlk;(*yV0S8!Kkn^xzrIQbK`EP^D@lWOvJJ?$f|CJ_s-hQa7Ooqtoas@OYeS)Nok
z_9IKwt*;V3^BzE}^hlqS^EyUY8$aX|%Y*L)3S|%$0laU@IHJIXO6o5<|0)w7{pSC%
zJlsyC4HaXNIvEXrZe$&^kyG3H46tVk$ujy`?T>@=O2FL!z*o0_ryP!L-?8u&DGAXs
z1K@^^kJ;`Ke3p%0#Sm;<3j_*(6(YA_Ssn4JzyYYMRcU#V;TaTHTyI4Q<NKu)Z-F|)
z%Kod13UU1jawlyU<{k#(1--N-n)xkU1;_^<@=CGU7*wT;R^^X!3chOWdB$|TFci~e
z9@G1vo?^P8ZRGIZS!mwfAPd{YC7;JhfNbn<-YE))9MtP=xqw45|L$VA(Ei4PhHI`x
z5N-3nuY;W$5&>`;UJ9XJ_`A1?pf|{Bh`pP73Gsp|LI-`%-)Xa8Y>t?7$2NI#UkK~A
zb$E%21s2Fg{!>P2`aeBY%<O8Q*+d=Bh(R^KNi6q7c?Nn0`jDSno@En>ao#Gq_^Mu<
zk>=l4ZA#liXsQbGC^lum&j@zcM;WSmiwcXsdOp4MhF{xG@T;P|k)CZtk~i)hx09F1
zU>@oIw0mB0`pB30CJ8E*XC>p2;#}SY?;(T2+r`k2K+0LFbo3k6j?cYTZ@>SP5?hE@
z$gPH(PX1>!y4Vu_xy0A{84=O;ki^WNvkk-1oiXDPb4_7`3YU@UyvJ(PnmjgjMZ`Hi
z(&9mX*r0uu95eA(rhFyT=v|B?t)O{vY`!CR2^Az5^A%4ko1g!xAvXXG5t(+kTEm3P
zx(u#oIq+!dDEBV!PQB0>W0mnwp2@vCcl*W{s-7ae(O_#L%7mHn*0DixfZ45~8%ZOU
z%#=vj<R&^o6d<1cyLf?=j`FD{baSpEVViUKr@|eLe|9zcU(v;(Q06;V+E7~Cc~ZV=
zDmw!3joF&tUJ{uPACJ;;$%jzmp7~|!QN1<IA=?x_H5I!DP+B1CD%Xym#prU`K(>VW
z*VYeTB7$JORY)pN#VmmnDy0hNkGbSxaq6;&`P^HxTQA<K**KV<`hD2F-+sOudE(;c
zuyem}+hN}C@Y~Nn|30zKBW26=Kb?Nm*|J=-LFbXmqdzGdzS*(m=Bzk2F1v7|cd=u7
z1=e#hsj!mA<0Vpq@hQ%NrRg{q7!peqv&vmOb8X$+gTs4X&Ll*eu0vglE;&Gr(S#|u
zuIcT4U4#U4KKQ2~(eCbLQI4CkM#&H~*R!)5a$QukRPO7Owdl1na#C5K&>&4u<`2rM
z`iWuCL@FrQB{pweSQ9Am0vhiv6^X$(T;<oQg8IooorLU(FtAq6L<%_b^g=aARd=x7
zZE6YB@jT%7C|Y^;T3Ci8-_smqfqKOqE~{G`|E`q&lbqoLA-pr6Ir(Uk<Q|AVC*gY;
zbZSsPN`uSK^u@RXb4>H}EI?ro(`;RRxmR~JSoM{1#`*<t1$z2aXSs_6-t#=k4egFz
zOG1yFsgvD3%+y<H$+1Ats|XU`YvP<|B4}CFVtsbe9~0uJ_$w#%byu=Km^|-z|NDH~
zm5O^wa|MT=NHYyZPmN>+6Fa~^vgUyz?(xl<ITP;S?a&q-(-lW_c>{avrIYNf99>(-
z1vDp0l#`ff{=B=s<=xZ}`~E}|nq*DeoV|7t&3_I$17rgWiT#=-6Ri(thM!KY`cPXy
z1XosZ#XDnNi=V@Oum(<@y)q4gLtA#4CS3s~6u8556GUg~-uiPWA8TjO0cYK<0)=lt
zO-`|~XjP%qMu+w^JNfCGl#KC>`)Qvn?LSiv)9&mCM~A<igQCPmKo%DT4-G6?$SI$A
z2*F)$kt5P#cot$<#~8KJ#hPz_XlP_Kb#s@?r55$K6~vt+?`O8&v#)Bds}C!KgK{PU
z_diX{I=vtO;awL#f|yOrhWogR%95EYnA>TQ9FhfsPlmJDK6$q`-rftCh-Ktp-SfVY
z9jdB8qPd0*{WbjXh$<NJs>#jeHtIZI%GbBBq9Iwl@8$A+YYiNZjys@kX<kx@Ch3I%
z&qn}>(zs}n4$aVSR*_P?-2n`;_44JEmsy(Mt#{WmvOPq@fm~f<gV49jD02$!?S4$$
z`Mb==H|4A|EE?2;Ch5|4fNcuVAX`J)l$n(R@^&`@r;|OH2u|vP-aAKvz*5kg^%75a
zZXA@;qO=JU_ibv2o`p5-xBaR+5HV;&(|+o?1A2+@&LWZuc33eex6)vpm=YA&k|a`b
zU4ZUa-6>8&YYTE65+j`@1)KA9R}xsoijm>ofm=Bpph04%%v_%k!B_aj;~Bi7uV_7W
zKL)aa&oTX4pK8tLo&FpY>@F9-l2ZC*!>ye1XSNM(Emvk04qa)NkJELL=5+AcsI%9-
zcPfnI(RrBjyPEe$!6AxC{pb5W{X_9r_dm9Nz4OgPf4$fKwC_J`s4$#KmTG3t`c29T
zJNDH-<m2mY6^p62C+#9dFg(I(ul%eOc3<-@|LYMRJ?%eyT?Bz7Ybi#W`Z+xj+BAq1
zgHrDl{BscKE7r6;eO)2WM^FEM+tB!ez0Pusi$10=So=AK&KV(Jso0j^J(s<P2O%2S
z_tl1TCh+LwXvYF)u=Ge6nfnq@)Y>^002yf@uAm)Wu<tw!$e%a`#znR09C5v#ceN;g
z;*KdZ@%F=+_4WuabObO$Z7y$O%uY*InWJ)K@#7b;)Ql!<lyf$YrwrbH2{3z0YZ~<h
zd+S5}mt99wtZ19jk+{dWVCRJz&`8B&qmaWa^u+Rb79Gh)j5Lbt!bfCM(c(OuYBgO=
z{~qY8Y1`gqQo7RJE@nJqQiKhIggEX=5_G-N@$5!j+G43}Es|x%n`xi56nt=BEaoTc
z?~xSWu^7AekMZUMv`SNkz-0ecPM|4c^O;YXa8jt&+UVvcb_M`5Mv!?sNuh%grASLM
z1-!7zq}o`)=Og7VrDm@NVzzcLjy~TTDdNkde5b8JW?NK!6~_7hLjV3_4gK#Caw|*y
zH=C|7jDn}$VLz!OksB1|u2gMu9ZsA_Pe8K+iY^|aG0~)bw3J;Rt|p=(N#^p&A?ve8
zi%V?fA((z9_ADRepr7c8zK1?m`#eRFCTQxuw9<4vy)d*l3+lX30)l2mDXcjie7H8T
zMK=*LDJ6hY_J;ky9|NbD(w>t$O72gPYXcRO9dZPj@gGkI|1|d`Co#eHKKg^TF|7qX
zY)NxS3e(Cv{E*qG*d%S}ef(y#)L`6!()<aYXXmWr!k-|#(}EbRRXWiQa&@Z1PH)c~
z8wII2S%bMP0%<hvu@P``-`YPW_U>PwF!fRuogDgW!Bh0Hm~W8<Y1^`s57d9r)Cl><
zPEt>cYuHM*U8kYm$_<eD^MF6*XkeV{LKP=8D#;G5{~>_OhTv3y_f^gg<weyN#zw9M
zelb3;7N3IWj~36Ld1HrO^9THQe$EEyVzjp}<x2X3v16SBdIVgMEm{RpAH-*qppJVI
z13D^Lp>FnHq^`>HTcqy0H_#KQ>$m@Ts6(SKKDd8!Tw9iao-IB6OJY9IBe&N6YX8D{
zuTaV=13z_rn~`JE%=)*ca)K|vTDS*xIb8?s{6Se?k6;wWOKU`vWP>e?v7DR@eBnbL
zU_<$P9JCTImdMt)fF;5#=3eyGH6N8S>Dexp`{e=nhV_+xntmxMXLREykm|yfAVJ`T
z;nE|j*~hGDw-KV!ya`WJ;a0hr^49~KioL=TN4AzU8PGzrlZkNIEpU(;OOgJ6x_=;&
zllMzkc96569YoEaFd&PKovar}6?zbN{CZPjaK(X<P-QyRhPFPt$kP?B5Pss`mn;(A
zGZ%F}0~YBTTMDubLjBcK`+RPDq>?HqF&3K0wd4^F)2y@C#)t?-8LfNcR?d{6UZSfr
zED#-AYbsw%$^D4p=h}k}3J7`J0sOW8axLe-8vxGyZ}B7Qa?AQ_uTG-d+~_LbAed(r
z^`q~%2DL9zvx_|9iX9jM!2OJpQsmK{r1bH0knNc|LK;!%ROgMxLMjv>#Ow$#{EIo+
zU(*G=Kmw_L@c25z$EZ#LZr+~TNm2+7a3hKd|K0Gv&yNPcYW}zdYSAAwp-q9zbqQuP
z82Cs3uaNlQI4GeUx|c@IK6U^wVGZkNv*zgJpJ^TF<h?XpJ3=AcYiS$!*Q^iIg7qyf
zbT8Nrwvdm|Rsc`4ApL1jA)eP7q`ta8CN#k|MK5V=Y<9p0amz!y?4pN&OJ~aknd<n1
zOBWV>j2tVw4nqAgF%K4=9^5VlSu~5_?tB^CX@QjUuEhy(+pr9g0+Z$^0^Y^y7;T$@
zC^+}<U6BCX>sV)PUK)G8RwRS!CfecG?ipmsg3vmJ(|}J0GJxH{1cX=EN)I@wWTI^A
z%)o;Q2H2%?jc?vRsIdM=z*!4LP7fw+10w?QT4xoFHR}vtuzyn?eF$p$WC(THlhLB(
z)MqjL$3>Rqj2aWKmw1A=a$?jAyxkG(MNRm1u#s#@+a_YeM`m02lqgYH53XgN7;x>~
zDe%HHNJY(UsXROR>P&yN#nM~5@^=mG@&~8B0Rd;wH_!o=&pxT3hlOwLRC)j>UjDvG
zFCc09`5*;}Km+j3(C)4@5p6pRrAq4PHsUkSq0R%fp$_u5t{@<lpsVa(H33T@y%&<G
zAn)x44<~+a+irEhzcI4l^vJ^)nr`025Crdx4t8B=vb$S?o=A-Qp-<a&p=R$Xe(8h>
zt1+r;?`@644=ARS4z{cB-hT|*-{+<rn}W8R+E-RuGEr=Im$IJ*$hizp77hi((saQK
zDD<&d$9JVp3)8^=$!fS+JNdK6YJbk@GyIZ?)xD>TU1Hyk-PSJYDKt0d;LAKNtX6`h
z=N;df>swrvNknuGf^Q9M_jqTY_L+tJy{EEVV^@pbEaiS@yI!yW5^G+4y<_l2Wy^Sn
z{D`vywL0LE{0SsLhA9mXw=Qdfj+8hVlaGL<`)T88KS*wYwE0PAjDZvr;HfXs>KB!G
z7@7<akJ6=y{pYv4zh%32vTIEQx(Qf^yqW%U^k?&V6F2}gNA(Cy$5`Ol$p_w3od&lj
z-7UviI$E-GXb7}<EX~?L`x9}N1oF<<w>SrCvIg!89e$X(`35wy=iC%9>&<TOiMs~4
zOB9D5_1%3D`h!>7l+9-k=^sM6r0KsxFFe$^3cT)eer%PotIu3?1H|MH6XKdI?o8L4
ztS)vpWosPPKSVa5!5wl2FCCIdKvsCFbTuk&XWxj^o|}h&0mnWM$I**V!qv><&jhEe
zOcK@>x(fN{7VY0GiO|C_5&;uhoSiR?wnw2P@o2Ghxx=;u7!7wv*W2gp=wq8*LFRQ1
zN34HyB<|G~&J^+>?J1&5bY_78`v7YKjm#RNj?mhe=a?WfT|(&T>%{H%z`a$KxH7h$
zWCJqKP;<aL=q>cQB>Nh|$7dw#u;m^A+@Ev*)O94_{^9pgIXc<1gE7HnC(hubOD?P~
zfK=1ZMF(A2Z3oG+-yK38N6&A6>^pyZkK_iwKZpMFV#shlB?@i*aIVuMUA=E}S<#rO
zO0P>D0J9SBPIsXLj@lDg&(kC4iRy0Xzza!)DDeE-Wbd+%??I{==c1p!SvmoZ9!!Rp
zecZf9GQMD+emUej`WcH5BfXW_ew*r7{h(6(2SJfvlEO0?M|!>b=Uaf*<1OWDJVH*s
z<TTpK)u*Evo&4CXqqn=`lCIo8glL|5cTlrKcjd!fndIlm>l<Xnu|&@9{pF64V8ZXc
zd%>CDg=fQSM{vPsV*TRSiah@jFVAi2AN~Oyb7eUOKP!OC!7#DDg#}GeaG<uugobt3
zGglDec;RkZW2AF|w`d)BJ~#GOyMK8%6A_4xbH{B*g`??9()q~e<#Iayi+#tp#k($~
zgS5}Yg3%CkvJK5CdzctH*YC--0cW}_<ba@#3k@JEgQhm-fNi*we{FCC>jEq^KfbDe
zkM}n4cJRVBu=Hq{CZ%wq6U53cx<642)_PD^GQQlfTe1fx{;)w(tlF2phZQO`t<{bn
zj0X31Ei@l{!O&tvxTDA2GTDH<Jkgrq-qQ<N;F5<I`Hhwxm_|K<f9D}F)Gd>ts!y<?
z-2&Sb0NM1srG21KF#S+KcXHBDRWeHrb>BXJ&n_AdPHZa>#Lr+BZ|;B{(6hL3J>^j0
z&|Qfo>qo45+l$bK`R1hIp9F^N#`0va+GN454}|;)lU+-2tut2Pky(Sx*C_*G(C!{4
zLTe`p?iA}{4;?Q=A2aVsZa*JeN?#UpxoC}J&y2*YOV`F0-99!0S?;kT<J3DO1A*pj
z;iaZtOWmHSV1PMrfH~5J9oVRp^S(rK!mq_U@7`$GVba(!3%OuBi$Of2W?C6^1-gFb
z?A1MCLNiM_VPGBh9K4fs4{YQbJDN(Io$2elMR&^Frlj7Q;wybDgn;KC#NK^dmZL&2
za4;`A_;jv6kgJou=76?!UibuppRRMja~ep#CjP*I^@e`LE>>6jR9oS+iepztOb`-k
z7&?j!^KrBwf4K?bMywErqa2GFH$PhIf9fJZ4E}liQ~ud&2gBGY=95bkiQvy(**C4+
zTtrmQRaOEXr1IxN=*orD2j1e`vq^_(bbW$zCu06R5L0O9z%IQDb3*Al*dVjKd|PRr
zLN2y0G9{@XM@0pj2!1}CxF5QyzJLBj|D=I0tI)LmdG$bPIKU{I7kjYS%a%CdY1=P#
z`G@JlKLd2VQ(k(G9l8rBOv;%$?f7?Y=-G5op^5EQ4zli;g-N9C@WTnjgSspz3H~8$
za*x`L%rE2lA|%<lej$-|bzR8%0rX_tqOzC)bw_J^cS^g{8?1U@_m9j_8ZV%RqV6%~
zAtqj%3+w}|o8Pxj+I52WaRLetg(AB1u8P`l1ozb$SUE>FrTY?badqZu?@yDiRXMV!
zo5ZIiMy@E9W@9gL3Kk4yRV4?-2Bh9Cvu{1l$~-OWEVMnn=gq-CaUgv4Flsryfz?lZ
z>m1d7&nIlBx@iz4z?Xw>2)fp1pRtE$o+Tce0%`LMsmCTemlh{FI~Q<=I*q+@=~#mC
zk(u_+1=E=-h?Yo@aiJ)R+pGitqi(F&J9os|e#O-zSKBIduCc-BntS1we|QzVw$I38
z8+46asa9pbI2W3>+B2TAOaj4OR=$isFcdxC>J3_PgRYo?=MO)d%>_}t2{ODh?CucT
zgm!{FDRYTsSk4r7AdydhieOn79ly1~c#(&DFiFokCv`9=Y3VnJHh&lGKXcN&VUO{J
z2jIvL35hXbE67kA?(3ZUiFu&GlEbkAO|aJe*xKxj3tku6g`X%5v$yMK&A>rS|CDQJ
zb-!7s?2<nw$~X($>|;hW=`^3!qECQ#o_d_}L`1bc6Z`H5@t+fB<!7`PW<fHBctjao
z;$z2NY{WxB<Iz?f8&fSrkI$I#IVYd5T|iq$RIo4O?j<_6-~la)XI*Fz52Z6sJj}$h
zvjc{)vUbqs@Amr_FTw_*5a{x<maTm7i#>q-t>s^|oxSc1rsUVzKm#VfBo^F&)9&vF
zx1JM!d;r$!bJN~4zaJbgjK)T_(4UovMiW`g2-*Q;&}j|TpYQA-b>rI%y1diRrA$uD
zHRV5!XZfiTD|-@lV9#85`ljn7T2zMOP4{I7c-fH=dWqg%uCv{RMz6c=hqMAed`KB6
zi_lw{&e<_ZhZ2nYKDU8XPA}xybr#(}e1TtD{$59~VLz>(6ZPC&Kk-uMsl&`rh4c+s
zy?{bzB26U0ylC60IE*(dXlBc8y`kbM;!nE=kx_4?F8~k6W`<X7e}6H6T;?VkiCEe~
z2ZCfDr~_niFl@g07H7oH&Hi|CaAn*f+S4oZi&d9R0GnSqIGu8IX1j}pY2qQ;`pr27
zO*=@gj&(ZY85Jl5nmshFXLro7t%=o}qixh5$`J~DO`J;eb^^j62q%|RKH467GK+Tl
zg-)3K?*GobF8_j)R=M#vyG^NAwKamYu^*5rQ{vew-}C}ZMx!;ctWr{AxD9OcAZ6#p
zKN3%WF3FJ+f$EPsIQl_dso}Hq_qJv<<}Z_!`~|!3>M!q|ytZZ)wqirfpST67ijz}w
z1fT}+G*iR3`)pISP3%`5EG|_Gj`S*c<M<E;_+s0+#y3|)4STRRK4=1w%BAu{;uW6k
z2_XVKV-S^IxIFs=pyq+ud*P?MmuGKBB_wyQ20XZk-#aO{{Y$GewI;Oc+d1r_iR=dp
z`eqy}UhK8ir|(tkldqJV16)Aqsjm*_m-Jskf+VhCiA5^)E%;{C+;@Ms{Y5R~LN}N7
z$w7RnZTQNAl9|}3+$>HDq(?wU|D_%Wt0gf*LZ^Zmi~Tck&i9Z7x%%F@!MPJfd&8io
z7pgiXd1mkSs(k^jU8;srukz`IOe9jrhu#<$koxV`peaU^LDzWt0>L?K#cDs5*K@ih
zs(KsyLpbSoPrXC*FLk;!+vfp4f%f0Y*Vi3noJEXO9-uFJzG~TNq8^6mCSK;>?z_g%
z*?$5(5$tA<Qzo)&7f5lx$Yg@cutq%*{s0Q7d_{QYs(|+dx|%0f)g_l6>ZC7HZ20{x
za~i6TPF~MT6c9QW+}rob79UKa9@hTdG=j!~o4``Xg?x^rNq42;i1^fEMd!i;<;K27
z9AF%STJ=>KfF=}XM{35Zdo)5u)??kPswO+s7Ng=jrq*>~2OY($q{>jhH7P|Z`PV0J
zCt0cNZ`n^%F$m+Eht9dg1$IM*{+%JzahiurXsW-!Nc($&2?)^vYV6W6*R2Qd9jbp1
zSYtgV17NondUDYTKPjB86eS@!`6(kEgysJGz7$HJ(<SIdyc4R0e94iJQG=&rd{;;l
zK)gRe`iJC(C@*gD+;>jW3b*-JRkGtFzqa)Gse<cQ-g?ct)<@M^Y6Gr_QKgR)f@8xc
zSMbh@!AF{&1%xG4_H-SVspb?k<W~;;&I;{+QLEic<cHaCjJ30+Ndcu}i!spCv3}3j
z^ws&AFak7Je>5fOxP>^WC46!bJ^oGWrmM%%>V3AqqxRC+eX=@OSB`lO@AmKd+bj96
zm$-&v?EXfUM=|#PkwTTIHz~WKRQ}<`wJWS8K5S@b{N`)px3n8_sfG6rEImNG3I?n`
z<LY!5y)1`0cM~*1UtmswXCj-n4gJ1{^;Dh5QQ^Mvou=xI2NcD4RcmOXJkjO4gSHaM
zRT0QGdt%X-Vr+A1s5q>kL)XG0jPk+%dABzCMbD3JF7>iX5R?X>fj3np%k}sssF#hg
zTyQ^U^)9SmsbPst)|hQ0xE$o-53Hysy|=1T_GVtuG{-G0uW$dPU;nsz0N(;|Q8x5D
zgE-FH9eND@Hj3}bLky(~sFz!1s_wYs<Z}wd7F~g`EmB=Xk2<4ohp!<~)53YLq|=Og
zla)hDAHSnGK1U*x!X*l%CbNypJjl1niM{_o-9885-ihzJXEGekhPlM<&3s<yUP^pg
zJpg?I>^m}am!UU)<-@70O$`>ES4vrp<pIc5-(CHTuqdq&41g2+KcqM!Z0@7G3CZ0H
z_|q%Dr41h0r}_m4f;$#Wg=+`};XSKd-Hwf)t}>3BUGK}D&6}tM(D1}Sj=O2E<HG$M
zgZL8m{l6K=Nzwt43Rr3owxN4{wnp(n7`!yceFxof;W<cFG-2yDRm{3n286H8-I*xo
zf?p<=LDZsHo}k!m=W(vy$`!Oq`P%o_z)r}E1i-wmb*>RR%2402&BHEE`GP6;C!X$S
ziJo{Rf%5<<{P*`CaG<Z=n$`;nE?hJ#ux7b^42eLieDLAdEMIx*95Oyw(Q)$@NLEre
zZwzTNh`US$G0RC5TSjcKl4X=TOH(Oi9%&}o@Szu!r#pD;<szT@am6b8Sd!yPHJO#$
za4kM#=u-AOOf9@)f5YIf2huV18D^^QQBk)3p)KlfDBzMJ`F)};?EyF*1YC>XMw37^
z<l(_u^z_Wfl$w4U=m!zuwys5E(;Cst>irYv{T&s>;GnZBC{2E?Hz*NyI+AR@06btl
zSZ`B$@#>qolwHSUA3RG?ul`uDLWK4DI7KikGR*c=t05emACsdV2yFsF$!#C88D`mN
zklz*2qG_WQe|tBt<Hd<4C-j<EXMDKu+ErU0NU8Zp@$eLgTV5qH@SArk%yh90pLbh9
z1@db*d+-upTk_Toyj?rF>9~3dygL@5zw$uO>YIbQS>V|7dRAqc`G-42&+L;nd>3~T
zZI{%AVuU;RHD2o`TGHTZ6|y=If8J0QHnC5s|MkmVsh3yFIU^nVgOK!vEX;vY%W!p;
zoBcj^)b*5VZ}q6UtG`drBiuSQXpH@;oRSI3e(<p2{?e`{;rxgRZPDFc<<)_KOC2|z
z<u6yHc_7sn19@hKpp_oZ0t-ERrJ~qdB-JXIc&yw2+|yLq34Wk#_Q)+g+8#&$^g!a+
zSut|8>{6=k;^9+mRSgB#7C$UC4qJAW2QK^ZQR4$S6V2&x(#2I`v-Y)GdQ?KlD!z~2
zIGkt3Hj*&M@^@!3BwAv2P+%}{FAH2M0gp75n$9fHma;Y4h8q`1<0dKB;U6AQnx3Q1
z{h{I^Md3l^APa-Z3l1aB3+*5PO_k1EUR(#3T28(?ZG}!Yq1{8z)}PkA4ZK2;zo>CW
z$D!Ap(N<ZXSaZKb*}^9tg0iY}sPy#eu4nehl`5+rH|hE_clpykFZ)&Z+{$@2>W^Nl
z5dpW=iI>s-)%898OHx#5uD+pn(3YzaXpwRSLS8c_J@%Ffa|q$KxjUb3&U{Bb!J3ai
zubt}5va?Fc8u<r}>fNb*&|U(L{dLk}yyQg9LwcFavbf-)2=<}jp<Xau&_0irWFIr2
z*_O@nndN7^zi97|E7Z#VVzdt)f*x@pe9yi`wka;yIU}Nfs^2x^M{k(loZTM9=m&{D
zRm%|QWUI+n-YoabCMcNj)4(HU2w6N|AtGP|?HBvL9L-cIm#u!+QZrmd(x1<rV4{<c
z(L8}XdC;}wzVr}x>;c6lq&q3k2EoqXdBYQ?pHS*w$^TPLeoc18L-I|`S#)sKu(sLV
zxiIo!W_fbuPv$SJcqb1U?7C2hUW>{_jRhtm-n}&~BJ~)8IkwNpbH37B0t=m0_{Tpe
zY>HcS5g|+4d%x|zmq0Ri=1S29XmRb^Un6z1120BFI#t)sN7+PaMsY6u%4V>{-j$+9
zpi=d50yPf}QoGo2bPY)6g`ErIz0izWDHz;*z?w@5wTXEC)N5%H2dRqqqb!I{ya0FV
zRM|HEx=TB=f*Th4;maG)X4mu9OrrJ~wI)w(t+UaSb2Iz5wh>oJ7l-dvF?M7-zZq}F
z;2Bm9ImNd`uS*@lk5n+@bvZYub$*c{Mt>6MNzOH(sGXqzH?XDNDb%!8pn9)Xedcqt
z6Kcb|dz+6%#C2}Td6RR_8EmqZ)8}sgOUB|Y5f>7<Xczhd?%P>WSe`LREmeCPpS_iH
z8Q=9x5B#}*$2RBJUWZezi?a6=4+j#hLo=dq`rvEWoO5C0HnM8F)uvdot=Y2@vOC&{
zg%HuZK3|M*%RIqc>I_CV1UG%$ZLsQF{`I{6?M_RE>`l4}P0!MoG@D8c+<Sk#9Bci5
zm3QWEO`Y2w*Xn7nrM5+?h)B7W03wJI6lE4#fdoRXiA(~C2*@O%%wvef3CiTjz!VHt
z1Z0eYj3GoShzU>%VNf6m1p<-)fefSxkep4=pK<rk?|z=W-o4(n*ZQu{dbZGQqd=?O
zYr!Z*8##ZAR|eP%?02BW$MIJQ0RvuwjM?nwXofM@{E|M2KD|~(OvMzh7ZT>|I}oZL
z>g`a;S;<Ic?AF?UU;b-wFPW%OY=&j}osErSu;Pn6uiZJ-OG}`gXBr?qp9Hu;PS08o
z612jmW|uw!JX**IicB+3^;JTu`lXC<E^+ZW@p*qWaglw^RC(!i>Uc<2^0W|K3kWrd
zea>31NO=`=fn95E;zcNV24OxeLz}V=>#kfrQ+>%xpcB^9_rMIjtV^)74eh!w5H^Ez
zWVr_f{?YVv?&1<+-(=*WSpty2T0CP6c(GL6PZPSI$fPtE!(WXo@~7hIueO(t%65Om
zR}xl7>tm4A_4MkU4|3rFfg%^GS6t&E``L}^s6kg|S{Z&_pVJo6u>5?x_r`n@Qy0JE
z#1gjRSmC=>Q?U#Xg9u0^X}kbrMRA^u(YOu)rsqE31-s7;`st$;PfL4@;oXZcvp*9m
zl{>RuAC~_i#s;rgd1kej-Q~uU2FNALJxT*UD*_7m(6Pp%xm_kp?d^Wb9J{FqQleAH
zK;cH}MW1S`4(QLUUH$7~YpM%Nn>ullOvY*ICQOJqEjt<uk;2i0tmLx2-P7t8=07mH
zWm;<1OAB@jBqPmzJFah?jk;r5y5kI+(2vFp&4s*i#!vaMC>0a9gEu<4%gaj!$9!y_
zAyj$>EN@ru0?S8hk##w*`^RnJ;cV)1TCm*HRFJ;-;^>LF_fS3Fpg>Y={*lPv#LB%`
z<8%sP{fnra8OR;?Qc0380@JANr<>^U!qSLrQ&b={B`IBoOF2vF^Rc9XbDoeL>g{+u
z+xxYxXO`TO-mI^`k)m~oD;U3AnVAg)mFn=;gCb{E#8_^pVkarxi{)4&R#zYCuI#x|
z?rV}B0E<>FKHfSuRzbOC!8CQ1ibl?aikevqFyoY(PIE%pg<cxhH~dr^o_VBu<izOG
zep2(L+Z+ABB<V&E9id8gA#(8G8!^70h49lH6Y?BDyZ8H_-iIKLbh(GBMoMH&w|Pgg
zvoU&!jpI^bC-*~RK^K;j-Sx1xpbK?2h=!06#g2je%`U)&4sl}_l8(r!<G9r`g_lTk
zjsLZ{QmMS7UztG`<%sI+R2!O!oVcrwt^iipMAS>za@sRC?6L90b>lY=Urs9e_T98U
zhV1D8F{#z%w`k98#)K6o)(5<Fuva(Ec@;eh{0@V+VpuN%QA-`z$(VistLyRg`#y<<
z)mn-U6y!ayx@Bro$$QjkwrffUdUFxhhbPVnD(C0kfv9z}xIeSSG<-(nP-c06U#9df
z7~W*2{&*L>;9F|P>n!N<jugup43g^EXS;9z6!_L`_kD82L;a|tfD&+6Tyt7nOI;&2
zfeDJW&9O8cOe{E|UsYRDzLiv`+K}8kRAIX&?;DV-)}i7Y&BVa+USx5@((;)>wN<ZV
zQkcaON7sBXzp@PA1b-IEy^HGOH|Wphaw+kg45mb|w3~vOYRyCzFR#<1y{ERjHAATl
zW`#DS*BIUCK%*SMF5!Tw;N)U3iEj`Uo=mi7^C-*JASV|^Axk`Jzyes9hZfsnCTMD_
zNS#6&01n#U3r9^PH=8E%P1j@mT?4&f42m$HV?R~_{R>a*8@sVu6gS%RJg<(+rLBG9
zG*M@hyfN-!zvgxM2J3EzPk>@+AwPuDQRRzhLOFp<RX-q!E0+oz-3b=fYirkG8>sUy
z#|702N=mM@&;&h{@=7{t!7}sf`gYj|nR&dtNMNIH)1S282A-vTw=ICU*h1$6%;@)}
zs@gK4bz^eC0_d#^)-USWa3G0Kf;=M$)_EYS=`N2k24L*a=v9E9tTTfzXh^vvek?UF
z^IB-?cy@QZ(Wk+D2x`W^Cmxe|W0Q_BpCb|3HOZlCO{iG4cYRS=z&~fS-3GqyGw>qn
zF)5zCUYdC-R!&@;9E*<Pw}o7PM$N~*j>LDsShLM&_f#0V6o7jqP-=jBn6%tr^+k+U
zSspVYrbh67TWFNAeu1YYuQS6X=Oq#N1FE1Tckv*d@1!k^g32z|Zo3}6+iBFRafMvu
ziE}VA9F<1Vw=X>}MfwC$^2vD(Mu(4mUKHt~h3$^`-J!d&d8hnnq1SRP%G&Yo=ShYN
zZ@%hfr}Y&3-R0@orKkx~X4Brr!|^fCOOMz2PX#xZ-7McK1;KQaXHFvhC?Vr9dUc1k
z^pF_cr)+>_3}-W{)ejch2|G?P3bi|3;)TeQ^f-PJ@P>M93;ouuNPGy~36(2&(MBs!
zlncVAAg(qAaTsOIBgad->~c9&{F*C{@Y^2$%uBz)titz4EOV7kG4+Cv=wH<9J3k@Y
zVE~FH1d|BMvCu$04pDQ(-w<}7tjum7RyGH=LY4n=RvI%I9Cu_wqh1gE^7?iiRneh+
znKu0C6htX`tnNrAR}0?nN@`}UuGH)~f3=XU50m4i@HMQvEvM9dB31GA@yeYS^(0Fg
zhQOD&el7l!C4R20d1Ls+2w{e;?p?|@b9|Ei7|5L&Jw=}R8^3aS(Iz!r#>_*c0dyeJ
zb|Uw*JxCTXjyZ-Nsnc6APK_b88lP;haUAa7ZOKqR@Ec#0*Hz_C1{MPp0k;DG9fu+|
zh)BG!s?tFRVkxqc^1fCQf2MUZceDwn-raTRR9w~bk>pn9hQ#A*<VET<F{aV~Vr^!U
z#@c~|B7g&m_E-FCe%8#fu~gRC-MllW8QN~7$p3uXS(2IBx3FE6r*enh`qXf-4GBA)
zZwbF8d-f~*__d^Xr6kUnSu?Q8201)YxzVdMY*i4E$P40tMA`yrIghlh?`Ch{9=0Y6
zsI@u#PDHJwBuiBosQB;1aW)Ymzt{SqTopbw5+b#u!oS~4LGC^M$*CskazPWy4l`+1
z4N?-CadzQ9DGq>9S#rz@RpLl(j1nU3wL)i8`TMhhhhN)HD?;DlkBqJNw=E5CNvYFV
z##cRcN@rGo&6du_WzNPD=!<Vs?jZ5)HEM-OWXUB>ePP`$m;a%&TiRT<0SFqW8BQol
zoKr2R6U5Ys5^#RLWRwbvQDmA(aOa*Z?Fc*^sG|SP^`oqI`Lp^B2k0FfXM6?B(S#8)
zi5el*g#~qA9(2uz&!00L6b+@s|B3NT9gbnVvogNO%zSx_HdZ(g49);a><Q&|E>B?6
z)II;I@hbWzs!_Yr3oS{$z43mfDp-B_`>E}8FTAMX6<Qd}V2N+w?jHQ`c<)%u+=4ns
zMyTE}PNK>Wovj{<=w6J66u=xIFE1LdNJl{<WXx3fo3r?gbIjneil(4=R(DB-U>C<!
z-w5-sXdG9QbsSD?SgsU?aP0ZH+XOb;?G6<3o_=muvlSxF%fkgdg?JGRa6W#Su7boQ
ze3<t-&z6}A;g&3-On|Tz7!vtgvbqV9X&maW3d7Gdy@=m)PLYv<%-Ut+yDu94)^Q;#
z^@q^=i-Ck46doN|MQOqBh`8b<qW(eNhjh=xo(+4%5vg(2km)YhBj#%^Wb0n5uZQ^G
zT(JYh6J9!#vU0q~n%PL`He(hKG_>S6jHG#Z&TEnQ>3fdsKw8A54L;f`!a3|}cK9Qz
zrGF>jT??=AoR#qp7-!k)SJ)qzn{<8)IPEns4R-!&1zdrDS+e*vaa=+prFkAlV8W<F
zPc@xp&d4%S@{&XWChAp_Rs{vBxQ6c5N0<Pk>w~+d*po>#(5~iqu8BlB48-ndC(`Q!
z?^mz?lXLvF=@l(O0)5ocnN$n@vxjf<eq8~j_TBAD-ol9duc`hdUJF`~##k_EWAKcx
z{Y9}Tp_4=Fvtc$s9-M|lb#koNl|C`J4k$LdhqBPO-UdSZF54IxLK2k+Wo8_2+NYaZ
zLTkWdCOhoYuISctPzb-w;KNuH_z#QUno8~nd~KTOXJqtXfWhHuiHMs8rnW$>$yXil
zt`%;P27K1$BYOAkI|$kPM?kt7U90>)9jV;36l^u`mvPz<JpKGphkZv~Ha>f^L$hO!
zRN*wsCw9*B-NnV#V+LhECqj?RsS8fa%RxA=AJg?=I+{IWKud*x754`m@){SL*M%+t
zNB=&bW^?(WPeX^A_4!O19QxU+LFJd;0VFVxRfbs&%?tfnE%^z;siqc+F0wl1vdKce
zbmtnY@Gjeio-ww2^K1`g(Jz>oe*N7{J6RxU7+CCRf~4l-!C$7v=VEpEG!t!C`YpH8
zdSvybT8u=mo|qmY5&>-|aFC-_mA+#o<{oMUy(ex2ZST{i00H36SL#ym(RUiio(vul
zZ>PM%(*971aM>7(wk4b_7GG6}5S~5^6aMcHsL)cmIOcP^WCRUwciylzA(B;iu=2>y
z+SNk_$`%vJzbZZoc@rj;7t{bAfuQPCHrZS!{N-b;D110WI~^)r{Kdql4j0ABejkNI
zJ&Gq}*o791ZOd3s@QYphWy90L&M{!l<MHBSqRCB%GJN(lN&J=_M%YP(o}>r4+0zh9
ziGZ}2$w@X;WU{(2a7X~%iisu6nlm4P>3x6Q0FFdTI;*>l>XB1gwU%*%Rk){toYRS+
zlUM)QsiLJ%+#+xz%WT_)70^542~16h4gl4^p>ee%_U*q(%K=2PzfH>m$HcM0V<tWw
z$0!50?v3!gaZ3g|3^V)j;BN&x#NfA&03|B04*6uYbN<ym(?a_Y7Ql?qu217qfNuh@
zUQf0pC4Bj)eOCKs+YVGY@aUfZ`e2$KUe(oLRVZeIFDq;hi&k5)p5>u?tZUxN<cjeH
z2VNZd?#CAE-D};(?X$(Q4`txpp|Q>N&U&K4L-eW;{tE5B<<5vHjQkA?-1Ic~7y?g2
zdpg$s96;9l?DphaWPzqFVfGonr{Q)XNL?~E@*{HTD^FG|hDWq!;7U}lFk#a=zu6Ay
z*GSifj??$ZyRSC00f}g0rqqP_?OoC_g!%lX`pOjfd%-}fQ@d*$d-#_v_s;*}-NL80
z&T0eeZ@vSnFuDa(Z+i8+H#T|XISwVsoU+GU{vSCqOO6M{<ZIOL=OhEONFc>Fi01)W
u;u7O}o8_QXXXvSaz&v2>|AQ<15A^{KeqBI*(fZS#xsa=#KQ%eu%=!<PC!^K?

literal 26597
zcmeFZcT|(x);9_^bSt3SSCQ`42pef4y+%dBNK@$@L_lgNh8}_q_TDrN2uM{C5JGPe
zLKOu=i=v^EpahVF5LyT%gxn|Lob&Gcz2ko4{&BxQ?inXzK*D-fnQN{&fAcrjTIA20
z=Ej1*i2cIH$0rE6e)TpV-~I?bzP)!29so)vGF~kMZwKy}7+(e6f!CHH1_8Vs3c79|
z%Eu>}!2RJ*on7(d<2%g<xq8_uB6o2rGRxoAnZ{vYu~&aRee~|r$X|XtbwK$H|J|b}
zAp0)wm$-E7gZ<HW<|4`>`}ZH)f0^{!NiF2XiCd&!RDQp>?-u{L>sePX7svJAoxZEp
z4i1~m{PEd(3O-m_S-CVqi6k#rM_09Opv#)i%NDpagz@v_`p>WbGa4vwY%kxa2#%&+
zO#Fe0$m5H94%@6f%*PiexwuUJL%p%8A$fL1ho4WLQtc_i6QQH?*zz9kr}E$VmAUU7
zfBpK;0ulSYd~qMQHn>$g24$xA^VwhtWFb7-D!kmhyi#>+=LxxmycZvh3b&p&UqZO2
z%{SemOQwZRy=r!8@V>YMw&7T{MqS+5F^tgj8?&5hVAhcH@iq8%E9J7mw{2=OSs3fo
zw@bI2E0}0949_VgL>{C&p><lB-B{`YK^&u}Ow$@#?qUz0J33f%Z-T0=f66vsv$frl
zPREZ}_gEKH?6m3BG1tg5j!q-5sil>KWfySi_uztW%lR!~uoxJmi$=tVxn!!M&{iS}
zuLu?OpBQsC@L}$hF`piZJ^YI;5R73Rzy&9e;W?)mEo4GY#1Vue)p2HH9J}Ko3-`*S
zy(i}gom%rNLswbO_n`_kZh7P7@VdjI;mnQN_@g1H0LJ{f@<=IEe+0Ve@!rTa!B%bi
z!JS)`U&m9uT@8=EJJzl>v&r#2c(g>n{82QHR+Vq(?DI&y)vNmyLbZ^SFPiG^N`DL+
zqz{Sqv_?K^P-3<=ohWGFE{4+DJ0Szo*!7=55%g`tQ=EnXh3ipYlV&)@I?e7j3r2$s
z!L*gOV)p~{Mk$eo;+UQH?s%F6X)P!gHZPd#VLHLqp7IZhXwt`XM%^R@2pbiu8?U0)
zlGgHT9(XX+_BHuQa=;@$5x?`(cF1Q1s}`b!WTx|AgR+&OmEgSKNyicGKzTw=;!gQ~
zK%B5wX*%^C?yaA{SI66DBt)g4ZH+6}?7W^l^F}w>XLIn&4Rqna+HO{bB{4sK>`4OC
zDP~4zUi51i!dzHm8one$$!b&7nbr^Jj#Lgfh@WqwCwVY56|{q18VW`*Y-v8*r(;oj
z2^A4gC1%}8V8qd){IBDe-_tZ>PO$%oU-p0+UJ9p>Wm&ydqeS@NCRoQ~`%x3STPM}i
z=2YYb^rNj`=n2E6wBJHg*b`(@{McZEwPrw8XR{3vXWLUAT3O={td-jy0?pt<PtDIb
z#wT*0>L7evr^f)^9gF}Ma%TByC1PG`2*a+V$vz?@!P+*^&TEF|oz&XSd;lYhsZPV+
z>&)w9#fAS(Ev2dJ_y=7*Vh`i#P9@AH@;6ad)$j#MkWJ8PZ+!J#s9{jZ6j^v~o#;As
z*Ib|S<QX(OmsTB5cb0B2=dcAuvYLr+IPUlWu`9Xu>?-xbMwDr{10~BAy>aAIS5B)9
z_3ONzu*diy&L_Y?ORsY5`@$@`$69mouMX;4@|<8hWgfj5hbH@|`sSb;m%k6h`V&=V
zvS@GHDw36zS4UL45geVK6wzga*u2mHjp?Z}#@rdO9{|O1&b~H(tmZ%K=3qr<XjLww
zi*7TTa}tbt?fD!Lqqg?ns&zlN4{CcMU}*J}$j`Yu;d!?vT3+<84PRi#i}v`FC`^yh
zU9ob}pw4;mhf|R$rTH!91uB!}W3a*Imm``3KijM5nVMs7)8@aadmRNUPs1m5)B^!A
z{$k9%{)ZU;!%6K0K3UX=-*-H^M_J-+5B2)K2)_E}&;xH8s}r1m@{Exm+;2H2v9=-F
z;}kupBK#t_zkT2*CtH-QjAopc`kK|a7V3~AEJOs)>oIae^F6iD4V0MWq#fn#FC4T{
z`NCV#`BB#?&%t1i11;_K=E*sN5omI2(<ht*pW6eCRcl$kI8VScsJQaB(W9{~FQe{v
z*)~;8bnhgGTGe?Q=1)~iQ4~b1l?!TUpU95|b2*owSv73pyu@0xY9k_QP^G7;hWge^
zS#d=qw7bk*V>-cm5woV#qcnc8;OnE{yIuXG4Kc6j%KeS_SXlQ)fvd;F^D<h_7Y-uT
z(%f1EHx@o~45y0oJe$(+oHlTci&2N?z@PX!!Wb>E4dNU3?rErIIcMt``F;H1y>NE!
zOr^dz(dc2l{dadk5zu%NPNO`pIU}<3hpv}@`~5)`KQ;?W2wf?UAM0HU)XWNA)EpEI
z|B}JZl}e)Yk1=ZF$I>UT1-Q}J8-|;jR7bCMxCNyu)v+ryW+L9x+GRB8a>JS!fg-SD
zFc`uX%=JD3D9&+<;PlN~k+0fqj|-n0CfZ*7a9pvZz5eScM?<^lMKQQn#c>D2pql(t
z+?XabGNGYAI%aJT%3@%&Z45Cp5UnKSXV()(2*`*O$#tyv1eXYS5GX-QCvy>XN^f_9
zy4wV#f;hKSnFHDTW170kr2P)g5^w2am^<-ttJ#8mMW!63r99Q)=fm0~VfFt~6E`$9
zVob_()mW4+N|SMyX;-q-p;*<qf#S)<CZ()8D8au&88_PIyptT>|0}N5vfwLq?uBY2
zxKW-U(4!g6p0=-x^NSdC9jkuaW!LBC|0MFa&;el=bgu(#fXcK#%vat8w&IVoUT%s%
z41ycd1qA)31H1Lb+cXTQheMgtoAlL&ewGfqg&sXpyI4g)#A4@NAOCZHiHfK@p*uy)
zpJEeLj(J)>#PIGK95nVQ#}W@0YO62O4#{I{PJOU*WD}e|{7bvfw=L;~f_1pcsiRl*
zTB3})9P-y<diWV&l@i*N=FL9mxkc9J11UuFIeif#{=!+BTj1K2ptkXrk?;HgxEIe@
zC|AH%U!@gr;N3g+bqK#rPI}4U7$;HC&skb!A$p58`8_mc?7VGG9qkV?$t<a%oH3UL
z#GQ_Zha!Nv*0+D(V*(A#+Q0deoFV8J5*yU5g4Unjxi;Y9$H>X%JYOy>6Brl`53U;t
zo~mq{T)Y`I{ITW~F*AqFik>1@I@<MlwL}1x?vwQqGn_P-YD3Faor8%Fk2v??Y}>yq
z>qbLdwH>2}RXiq$%Py{ckkAwiO9ofB$e26zFER2+mIH0~zB+W`T0|eV0~W8W$?_Y;
z1@4GdP2kJte;f<gc@OEavCydx39Bdp?Ap7cJ?7IfymFH5V0=tt6kcp1wPGivTgAeE
z=c1S_P+=r=V=8j6t%glWq7sM4{U)WRsuw%G0(uy8UH}}$?dKApiK(+FXuyn!O!HV0
zmFDO%kvNyM)+MNVyoz|j)vwKlULGG8o-yzLvYYzzT7{&kw8|Ko@T9OT#cz|m?Tsps
zsH%6KEy5S6Za7!CYs`C;RZ;&!^hpzrZtn!qzsE1%N3rLUsG0>e>>^4Mqez>zq~^hT
zjuI(XUCJ8FuVGimA7!pyh=sy1<N}nq)Q8B%e_$0KpPNXud6#KB93P5`w$;3s^=H^t
z_M7Oks?u2hq40`{R<9(^S72QisS6an49x+pB`5%!lA(j)6{0;7+Vfe)1KJ~9^Ah2K
zhMS?Yl@Wy0dj~t(TYt05S!y3UJRn(4-N|j6J56R0wCBe^1rT#<L_DEg`#Uvm6Xi87
z5S|HMW|a3ZB=OH>;HkcLmD4kn+;Ep=_=T#k`Wl-Nno-e|+|YoJ(V<`d!C+vKKZAZp
zr)oxLOt|CyjJ0|&Vh@WW8>3G(mHZYXezyGAWg#IMtx3x~mH8OTRK~Go8+NMTu%_RE
zr3d+Koh!xAb`5XhC_jxr_Q)xxDd(^wRh9o0JL2}&T;0o8{gvu>Fx?AIW!J`cK!=~a
z*7zZa*VJ%2>hqjhC3Ta%RC{=Ac0*GEU7b{PQs|?o_|LU5GEGy9psdci@`qn!F#WOF
zI@l^xgLNm-PrI%ev6fko<#~dTL*b$D8310wYHc;kBe!Ujb<8^ejSj0-jD(MuplIbw
zE_sNf^Z?^b8?fb688hLL)=r+FD>1)e<GgsNJ$;ibgQsW&Px_&%9Is!au<p?_U`)NH
zWY@>bugU50;Fsm|3wXnEX3$Eqpolf*US2HXW*%YLKD4@VEjqN2>jrxy+7<!6I=u2#
z&=q6g6QW!6+j_Hmm&4N@jhJ(rs(6-o#tkhL6GLt>%cm@2M>Ty82DZO)_gbQhwVi>x
z7*?-Z2)Z`J+IICf=lz@#Ol4;a`uXNNu+e~5<F>8|x(~9%9u}h2^pp!+jB0d8+cnFT
zqv`RdSIh;gx<=HUv?z6gu2eAUyZpAagZT?iyR7<Sc%A>onR^AOrQzi)X{V_=ohJ9j
z?It{`47~K0Td?SHyPf9mbw3~A!_`}idaOA%>`3}{ckA-#YeJ6W767OJo7bXMbcQqV
z9P@tXSkEeSbYNw2FW;hDf+A+Okx)t;FLiOd2B6gcrl0>j`nv|+ZYW^*Y~BZ;608!E
zFAUe<lgkopIoj_ds((k9OW8=aEnYDSyG&msd-N&o0~*FvtPJ^bKB0-kA!EKAMr}8z
zm8gVv6<>+urcN36N(M|lRASqrLL0&#*DTpiHAHa^dUT$Vw1kcOl)wtbr|w~kl4c4x
zTLrqT#X7&$QEs1j*=f(S23Go^Z)yTRA6<62I22KRGrVmrPnZ79GSj*Ho(wMstu{=m
zDL&7W-sCjkd%(-?7Qi=vSKNtn|NkxE=Hf5)@n7&NcmjEd{E+<Gm-8!ymwh*C^V5bW
zET`I<!|7A_iurZ@lBjERTRhk%Q?W&dJ99VBgAwRqco`8@iSFDfF%9IPm=W|(WDC_g
zo;!RJYjO0npeNv6)pRG>cj#CwuED7!Dw2+D3FNlF^zePfDg|#?vV?dY<xhv<g8}ch
zF7q>smC_iCMUlP5y=X2=5Aa`4x~OpLS5pr~h|rqx%H~suD_sf%V&zVQPJ5M0h&$&l
z3xguQSm#JvvZS4-f>dUCQ$Stmz(fca_<~EA&&fk(DZ%!15_!RLLMr$V7|&1T&4CIf
zW(@`R|M1X{?0&}`r9%lc?c7q8<BRxlw1@dEDVSR`&iOh}lT|z(EgW3FFhY54D8WMv
zyWl;9kI`LLESm(aVa1YhsNRPfZYOakWPwiFvwXqrI;*F9wC{v$JIwH8!aR)&Uvc?%
zqEBwJGRhA&B-5i+ql0PgBJF&{A2uo#;<mQ4Pf*6hIZwYP6YxayC1Rrvn#mwP!GqPD
zVyK~loz(C66?}vEo+%nCFsvhsQL1Ej|2wx~$A--Glvq`jIn>VP`|9C}sdvm-vlIaH
zUy>UNt+^X=eB}xzYW{f~TeunhgD+7gwe?-p4Oj))!l-h0Lbtq@11oSgsnCOw7UfH~
zr^=drU~KZw_;Zp54z2A`7W85)ZXo_WZ!{rbk|~KOMBXI#Pd=f);xdyXOzG`n-jLKn
z8E}>EdpmA<HR@2r*dNEsP)T}ow<zH}&CeZMu058Difs+{S~e(RV#$xrCh^<~lN}dM
zpR5^I^=bD!jEmm6KJ(5_g4;{d)ecM);ijaD5ADUsF>cA|SodbHKKB#f|8z=ELBdDO
z;HQ~Gv%K}Y(SbQ(@a=@iwY}Wxr;^8Ba^Lyndyfz*==tPYLx~xZ$}c?8YzlxCB3R~K
z^g+O3-+xO%E1MYbD%-zymv4zJgR?zP@G36qaTlLr#mX>2@z!=Ucwb9m_@EVQ<L?Cw
zX-g_b33ZU$hueJcvxbkXEA$Qs3wf+tH|jCZvg0H#bzsz841U;UCTnpw8ThK-D}3R;
z^Hsmz*TVZCf1`u9LjPU`Lat%_<&ROe4F6p4!CbAah1A0nL=`;R+E@|u^cfX3SU%_)
z_8V6L2{$_WjJ5;m@Uy9ry`N@O+FUDRea5aSeEN#&QNVDu8)tY90P}p^ttKD<1WsH?
zWB^9>@s2Z!d=mZc+DOwNEW^3)_d#7+%b-4EGFwlB+s2w30CoaH#Jj$V?;$9ss7W0T
zD_~8Qd^Oh%81qc}QC>ILtj7cR(PQP0xVzl{?o0CjjlE4we8C6f^F2j)p5YJPL#TjV
zfpN%R@Q=#;%D;F+>3@*V;-BC}P$p#~R^e0G7kPea9Rx(A(Q8tc>|wD9X>0w^A%of|
z4_Lxpri9IuUr6+2`e$<O6RShqbtpfg8iDS%XbgMjNY}-~WvSi_{P(2?Qn%T?*Z+a<
zrT}X9SmUyrIj_ji@Hi{!EPvg?W(fUk8Vgz;NT_z|B9M#ml;ZBq+4xy0Zl`h1+&09q
z6Sy^P{GWmkXfzvHTWCc}m5VlhK1cjLu}=mqtf7EgZY&L^iE~?U;Z205TQUxIrsgyw
zg1bx!WtK8v>9L?&4SSt+@QjYXg%EU(Z@Wh_dtM@lBR!v_4&SDFZSXV{_M|J*xkD+a
zwR9tMcogx4pP`(kI((l<k-C2^C)}Z{|A)%X>7Ya`ZpQf3VZKu%`D7pGm4VlJBuTuo
z0_Kl^rCvc1cI!s%Vf#2RD!*>=%;<2SCEFKP<SBBoHW5{#<}|-QP7;8@2oYOji}C0(
zw!k8>uA9A=RgPy287c>KwN<$bPOCU0NGpIRg%^@l`jqZmZfjuXaS7O6af~tjsi#QI
zX^tYl@|u22UUXjC+VSN*i}$!7=-LJT9cBL30M@aCk_tjp82HiQxL28t?qD1CEiNC6
zZD~f(E01;W;p=WdlOG>9|0xpdK5rVvZg6Ea7;v_5nFv;;Hx!SREtoWvW_~`Gc`+qX
zsrhXWcxPp{!5bcpS_*Gx!Af+ee8w7*e&mJ@F6>v1xV*&{7+s0^tW0ohJ~Q1KPVW&|
zY@g?6&>YzXq8@n$_?-mq%#_}`Xb#yi^0#x<O+@+ZY70|z$|i_A8+}S1YQ~bVZ?z_N
za<=VEe0V<vv9mR=jM-<?FBll~NOFyZ`2Ivh3A2x{@sGrEMM8mjLxJU#FL~!r{F*G4
zqrbJ)KkVYlaDdN_^t!0nJm8u`hwrb;N(Aw;RP*s3H3hTfPBI%fjzFpPcf(B^phNSI
z1V#9_;<3~kJVMQB^EEjXZ|``U7saXrfC#gqgfjPg7qT|{fSFvf;p(9Owz)d$9{n}>
zQ@niM;A*R&2$UDX!c@4%uZwcDfjWAyu!41=C>JL-Lwjb?&n|({aCSt1D@^%mpw=L(
zY{It3*0##P6&{rw+iu<ZCh9sYlRQeEB-8OIF)t?10uM%HPKTyV=t&3c{3^(83~*}R
zo1OK)0n_~-BwgL6gY}v$bT);js1BX(U+%V-METKI$lhhBR5c~u)K!!8XEw6&swfNF
zs&aGZ4sBlPy_RMA9R4`!aB(Bt8x}^#l5gP;oz3Hg=eX{}5nwC*wq{=#j$B>}m$kyZ
z-9a(?$VzAPcay{sG2MHuZ<sk`NAV252vfuA=%%kIP4h<mMrQUioG^EUYCnY#8EQ#c
ziS0<)(#_TgUn0J&L|uWnoJ|hI6ZZ4YiukH${6F44lxfYegCk(i$*=GNB^yLk6rBEo
zEK=qNy==ylRUV2OdC$HBGlJE{zYHI@E-SH;t|C}XHH_Ci|Hz{;<;V)5h}55diDD3H
zCB!^bJ8G~ruw}W7*WBjwcgOqrIaXi?{brrjI5@O2w&=Idt@d3XM*xx@jslFEF7CBa
zD-m5r(HNB8SE={@6kqjq<3`oYB<6kCPHiGzT);gGdIPn^Z?E%bTbE6#(N`x$mt9Jm
zp>(kL!*L%Gt9E<#W%`#=Dy>qAaCEb+tQpoNuvn$G?}I`Q%?hl#nkAc}C&icK4y9KK
zBJLA>+HOv%aS8?a1fq=Sp8!bWW1(oJE;Wl+;y#M$PET3p4IMpTP+pb45*bEE;VES%
zz&_dc_@GU&41)%6yBC8#5sKZLese2=brE1Nz)>$WdgMIDjI_+DXFByp7_7a(-N&BG
zbSiRRkO#8An4$@5NyPSwWF+Z<tB#AAD|0BbdHUhu4K>r;<IC@bG;KPfV*rMoiK0kW
z(_WK(@HAUa)1N9}J$zgDZ`M7pn2)dlM=Yvh8+D*>R`}fR_eg}ADo0{XGJy0l_J?fj
zYepNRwNGg;Ut@!;-uFXO%we=km}sHaOp>Y&@RQ+up!!<(FA?CeApQm)Xn>u=_j2-&
zN2fwLuTJtPb9GvB>(#Ed__1ajRo;7As+^U2fyebbQq%w=PsLZ+dWQwo!Mr19|M1`~
z`Qq;$`&+`Le0ao~Pvhr*AH9nD9RRkqN@S@xYw=dA8DXoDtoj0H=Zm`t#ivWK<EM?-
z;<D-yk;i+SQOpVmtDsCX)rx1f9Vwc_zX~#5_;T<vDbZ9bR@+%T4_d0_lTIuX;AQLw
zW)cjVWq^n;55q<u*X$uUnl|8wAA&{98!V(s0q(1$WS{=ey8zs9>|P$n*eu=f%+U(u
zSh33f-eYV?8T^|}ite2<_LFD6yqS%j05nCsh;Q4HNx`gGv1rC+JRP~&o|2ztQ%W~*
z0YBdLm^a`gxMTgZe~XfF;ZpO74i%yk`{y^dNU9ajmpdvi0Q!4D{?n4->a5?S<DT4R
zTa|yaHPCkgYF%*ZpFMnEKGqX;2UbNEN@KNaHNjh$ndDls1|BA?wG@C?PPW@cn92*o
zM+jw!C}>$eqGN+%MI==FcRl#NByAI(zne{V$Rvp_+fY$bE_qJ+bvlS-gL#XMsoE$z
z`s_15o;w25b9(JQ-h?ldL3^N3rj3YK4Ti3~M;bo2_-XZP$H_d6Cj~B^6WeWa=6|4f
zqQfJG4t@Ydu{MVOcsH+H%(H{IJnzLgMh<G;MpO6G%>Lc1LtJg{S3$6CYvm*1-NX%8
zGq2@*JAD{=M;0Y(&9Q>ljDv?Fc|&D!bzEAy;fTW6u#Cib>?lq>so`o@Yw@_S$-CYB
zB?z!R&0ODh=o=N@l4W@SE9_xOH8B=D&g~{n8(2cloih03br0TLF7yCKcerFcT++vs
zH_jY)oDy=X40YbRC+S~MeFE60y-xp&JdU40SsF>~4!>8zU`R_jFA26t+EFYEw*k)Q
zU+Ewo&BQRS(--&IR#aM3OAT(pW1D7qT~7=EW3f?Zheu-@$S!B|JTylw;kNW|WEp|Q
zXed34%n5+q;@0fg;A*BEIPFwVo2Z*xpKxT`(`DhXcaB}<KW%NjNid#?i$M?2o*RpK
z%jz`9d#P~7a$_wj+t%U&Xq6kb=<M;0NBC$NHdhUC&i>^uUb;#xG#<~>!0%v0;gyc;
z$!~0;pB-+~hI_TZ3YRs`p#Xtqn3qbHpLV6YwqVQ}z<Px^hIxalHQNf-`K|FV%Gg%9
zV0=Tr&}x?gDDcyM<Z0pCf{Y5F1-_i2+!`rOd>iqyEq7CmZ}Ff<MQ8NOG?ai^zl(lR
z^Uz&Zuq8auPEy+k@zT9wEbr$Zr5pLfvAJC4iWsz$&h;hk-27|&O<I|NIso|QdE0uv
zk89#SHd%LR?hhN6-qU`Q-AR(Io2p>Walu&{m2d0Zym*DL@zo4U+GpO`b+(pVBsikN
zA1CPp7~Es>H9R`tB`psnVm{6Yu*-In1+HEUr)?a<mkj?5UAJQW(DpFn2ruA;YAOdd
zpOYT|31Hu|p1s}la<UYcqbil<w=SM(Yyy{7)-0YmNtz@J_9^Xg69@bzhx>fVZYp~0
z8ehk2z`I=PqM%)_vC535y-OC+_VoVv&ujL0*G5(El^vMvz7|H=4owVBxDD@n1HW6R
ztfi?hzByB9g;q(e8Z6yNxiE~@+}=x>0yZlY27|3j3Sy&1-gOUt+9GT;qUn|4t*9_U
z|C?)CmE=z0*q~@e%F37a81FoojWqkGaUVtaLSL{ox{Y3enW6@wU5L+v2$A#j?2(q@
zn2o*FUCAewmwd7wL`P<^#>oldS3bevo);pUOv+?!aQEygzYF0Vjmx}sx9Z3>X&YZr
zwl=OhFL9#I$Ce3YQLLnzKoz_}X!#z^=~jH2kr-tYI1VCSpW#1zpSe&HJ_M0f#3bEX
zoIul7<1z)A52QCAr0Dp1m%m-hXSB?(#)-sf2ZrWMtQ&&Y4FO{OU-JORo(00+;ysUw
ziin>0xJI%hej&g=e!<nOfd;;<I59AWPmrbhSyfR`oQK;(<g<WK;(ONiQcLqSV4T^1
z+UZLG<N>SU+!t?;z#_~WXcxI{cgO~o4BF?TvEVX!FFn`EpfB|nR^b75Z9g0=dt%JG
zqCPURCpp(0bszCq(`Y;Z3N!<JY!5$ct^yVP-HO$C7GEpbT32<XGZnC!A9aEv(UHD}
z5v(`y)r@Gd_k_c!HI#)7QB!;4NBrS$&W$IY@H}#2#LjP-aIXyh<#I~!`azh#xAMKL
zNLDZTyyb*N_T+HLbm;0ca=vp7iC4WkF<JdlIP<l8PSfPZ`g2DEH9-0?qRmLTlqEds
zcn`eV-G-KoVko}kF-EujKy`+qbIsu5A$+7IYfkZ8(AUz9F+kQSc+>YQzPNi4+vtiw
z`>Ark)i^!kSEhj5CXp*IimZ5h3;uopI(mm)>xg!sCy47U9kZm`rdsutjk?0!LUw~@
zeND!_hy^Pa8Z}eAgv;)X4x!gs!owVQw}*nRbE$$gd;ASNhQ1N+DKH!oL2t$DmNe=Y
zGk;v?Uf}_p{uf{rYm1+M!R|v{S~2d51dn27uC=pO>pOX+?hPh6+_;=K7!Wp9r(54N
zN7Kto14i^-;`A|RMk|=D<cTtqzgMYfeiwBYmPQ^y;VQq(Ka6){WZ*5#Qh508mL}x-
z`5nhaKQKhM+1;7YB{n?PFwE0d$H9{)md!D5nIBH(^1#Z?Ry6ug9(MsUu74h?Bm)72
zTBd(CX>H?JH&6cEDDNPt@?Oj1@dsWJ=HWl$oy|8p)d=aK?)N_mQI594Rh4>U8##Dg
zqq5xzjR3I&z97Tm#Ly@37Pep~wh?{dU*sVJ80sVbEJ_vSXT|v(;jYT<yQ8wYUmds$
zl$uu$y$#3x%DtunY|?7?wS5|o2AG4L!wGHypZvWse%eP%D%Ae(1;7e=WZLjZNXIV@
zVI9#ur5m~#|0?k6h%O|10tBPx4R2GO&t~ZR+2pkuJV9`M!qU05*%-zsrLxNAQ~u6L
z`rAVErv~2DH+$1x{I~E;SG(rRN^C~T2=yQS*%_b=i$J?r_p=+o)wDJ{s`SD(Pgu+#
z5a<Mq#CU3t6LbKA8LwPo&;Ph|_s;?`${D}#@{J_5VFjrD@+PmkyeAO61@XtuCad?o
z-g}o@7We$l?h?kGPzM+f5Lc@88<<<ARN&g2HT>PU>(on~isl}x0%HF9?wTCu2K<)h
zSb7hzEmJ9F1;3x%W`U}-Y_0z7CwqlFh8Os67U%b8d|_F*m2Kr9aHcr&OSm#)h3tqz
z1L2Y5B&mB_ktY@AJ=X@T@-Fy*UpGhW?QzmsU~R;^ZFb^Ajmr{(*%9=2-CK`3tYyJf
z`rJKg51mGxy5=uPirwQ8Yw)|pGjRcw2Y5@z?T=s4<Ja&OYB7y_7wrI_A*$nd=FKFy
zd%UrSBG9O`GD@=E+;d|oVZP~`Q;p4EYZL9BCRl;TkB0F{0Edl&na&>`PJ;QBdEicf
zm9;_v+I$heQ~b==Jtnm>wvfC3{fhaF%;xTYUuZsVp;sfTzX0KGO%OS3A`!?#YGaMv
zMxxgXrKd_u@|zbg8U@e2@ZM;d*N2XI^7;P>!0SSAN<~|J=S)hzFRi}n;Ub77K5Qn{
zWrWZKlK3BgoK5*D285~FzEcDF`oK}<p6WA|A<t2ZS-AF@6y3nFbA0|UYLsfjHmq3r
zIa*7BmQ>CEo3*_z-H^7nC3dLTR=8-vIOqP(!Q0+2NnEITKsKmoU3~u?-zp0?&+=#a
z(-D7LG(iF!pN9(9eB5k{+Iihv4&>Q{c$gFP)>KW^kqqUEC8YfBCWL>l9Y0i1H3WdA
z=4Sj|;C#L`ZNh=znx~<?%h%0L0T$2)f2&i}Y~0n{k_o`g5ZM!t*69CvVu?o=B_6AI
zFS`UH=u9lN6S&&>9HkHJGAf%fd8QF`@Z_;&^9kb7pRqoj^E^);g>}2U=6#A&tbHrm
zB5N!Bc4@d;hW1=$A~lB`+C}~ZVePeV+(k3XZlMT^d+*+j|2Ju=a8VE0H9Xz%EE6@S
zI(M0+`|nsy+H6-Fc+^m=P1m(i-r%F$Sg0?k8kAZvi3p%K;PGXN-V&h@`UeOr9xrM1
zw_K&w!**Xi?X7v0LED3w9p5rI=U;xl1KwEDGtWR(igUb|kore6o-SXCi#x6RFiwI0
z(U~*4XMVpNX20(;|JJeZw>0df?}}Vii+o&g`la4ck(1BNE<LM$td0~ocl6gQ8?zy4
zeXZg7U~?SGPv+}ayuP)wvp$VMv92n8p$#KjjVye{6Lnzbmi&Yst6_vJwk>-C-d-E)
zWazo8xnHw?S(b9O=d5OP6rt5qOTA2-n$_+?DZVP@qa~lG*qXlRxh$Bz>*;;>&UZvd
zdcs-zCM50b!F8`{d3y0bWVSzoQ&AgRq0X6T?+nu{Ek{)T{TbN7zMZ&lLcg?jCspwI
zZboMU^u@~WW%{K_*lfYAgb9u^Tdg<5_;*ib52>A))>p>%9iSM4wr(RGldfaVVxgcd
z-&rWmJjDL*6Oh3sUX(Cq6hqoxkS0M1Rzoog*b@*!-uJuy1*WTW2l{w(tv;tFIz5#`
z+5|z%wy8RPL)&-aA54KFO^__m*ofQi&QRlHnY}HL)ie;!G-L*(Y!UKB$0s)T*U{E%
z$P(dy7|<16hh9c|T8mq?MEXS~T4Q=}SaJg|HToP^yr(4rWG_}ub69JaM{ZZYV)OKK
z;j>j7;|EArfMOzkjz`;Hikc;N`XSZ0kK;uB08LEwHcRd1Y^vPahR^9J^>kTYb8)Vw
z2))c!vEJPbOAt^Fn*l<A?Kp`)Kkkm*42%s~tp-V(gj9ftrmKe`VQN`mUi%Yf``w7D
zpZqw}49dB!Ob`nhqmE@9pv>r%zgp$hP-p>K3!Bx3=CwmDLRg*eNm4nhVlr5W^GTk#
zS>X7aSx_kMLXgrfO(`D&WL%D4<*D{%G0@spBOP}}$M^Vzjcg|-Fy2F=N-O+$B+qR0
zHO=A}w?q#}5y#x@PvRMMJDVTUbfWXx71f{eZis)j{JJl~V(@~S_W2I^gGaa`eXebk
zu}2->NAQhBl5!8Bn=X5@%bj3<@W_SRVL$nfzR&w1DdvYFI8`7hgnfyce`N1$kD6=!
zxR6<hlTGR&y$W%`STUD9S>7Y2tD(*!ulLW(YO7;IM)vb(8Ja+ra#uyGuV<ufM<Ww4
zN(cEq3-J>+rnImHpe-s0dSjIY5{9h0I-m5t0yPm0D}<nZw7_vPY(pd_%=wRuNlmPA
zv(ml}iKt6R%VwpkCI-(*o0W(8`RWbh&~Qweo+1_kF?jmx=(af$d}H-5P&7u~A%KHG
zo<;gYPgmuXtpCujd(gr+9?}YG0+NZ$y~29clv=ePy2LGWrFYX0?*{qvIenxfNuSQ9
z_Sf`CO~CBMYN8oSF;qWSlX^B^_2+#N-t*r;Ju;CH<Z%J8bOEUo(l+egMBZF>^LbA}
zZo42&#CnBas>|j_+)2?PzpYIC@&|X9d}}!&$G4aN<cRZ9NTwde9!G9Im8?Z6uUpOP
z(JQ9h;p0>EyJKoiW<ikP>mewR_nUn&?b#O}cip*vjJKR#Msa9yqG?ECdOl!riy-2_
zj}!(kr>(yfht_2wTh14W&}@+sd8AN?xp~OFgx%x(s5^BY%R5#`Hf0+govcRLsxr$c
zNo~s^d8g^gVI7frO4ury$cTN@T%(E;^w;Q!HZt_FQ806Snm<uM3V@hHR@*?~7OT(9
zO?Xz>udjb~zE2yn^o(>%?szTF7L(M>gb81ZCsU#_(pu!P32Bo}GrJ%a>YsgynkS~b
zpVD;U+^5~W3?)OJ2lB0_^YIMvlEtCje^vNT!T+L<Zz+|BFDXyTW1%H4#P^`ZxAj^8
z^95dRCda3XQe@9XMs!6I-hJn>Q@6fjKv~JTNLM6PkVJn6Vpyy;99ZRs_c%qfxJ(@-
z^HqdcFJ<Xb0ZY7>xA)knkXFuH!2f9ef6@H^vuRR)HuIS-e(q&f4&LDD?!LJ&VXXNY
zvfVVq1vv{UIk)u)WNiAh=Nd#wT7kP*9VcZvbaioNs{<g5>mk%mVqgww7809I($qQ6
z%hNww?rEu8`2?yWOmlS8T6D3HU~_K6xa@t$C&Jy3XxmuMWu&Y5!pG=VP%0#(a~hFq
zv8oxo8??pt{W=j|a75OKb*opaMcV8TIX{n-2T6gfran>=wpbXTOmaKp6CeKq<8O>}
zttbbpV?8Nv#_~uHATDX7F^JT&yHKRD>=-eO->=yr`;d<G=q0JT``3|s0g&z5@MK2;
zK+`dNpAIqs5Z&GONJenR?G(h9Me`8Pktc2%`ywX7OM00-n%B{}ByG7)^t_DrZ?nmp
zA38bB>%AbHpB64hE!S0CDx1`5-_O9BAX};_R{)VdH?^C-I2sFd1VqjqxM{N`Qtu`E
zNB^WJWGRa@;VklaL-EeEFG0f5zP;XvIe$)D3rl;GgpKw@mK05#rU|DxW!;V58!4GS
zl!zX5uCJWZ#-`-yhR?<AJz031Mre%=oqcXAgPp=CaiJ&l`#X^K=JcbwfQdUvCnJGJ
zUO*iI*(SqofrwNSq@j>D$iyV^%b#0+$ya`AgR_JzLUIl+2OiqfLY>fbXU+l)B~owt
zi(HqE)3b~B4Q($IMuanDT9mM~B2$f#!>RB^kI?srWbZpC8O5w5y7q?xmm(??0W0aq
z-Kqn#>Lfz@Rh&f%k5wVql+a$e64Uwt43WJg5xe<a@%g<*m(BMgbFLh^D@N&nYW*p+
z*W84#JVn<pur8MrESGu+bnY~B^*|pFh86gL$O*5jHNd`{Vx{RRU}Xi`3$iYHm4)(x
zHRzZ^?h|F3VOjXFI~2*1*;<`uh!njD4&s_@-2T%Y6K%=>IraLBT4frN3i4L7lmH&^
zx!pRr+(@hMWhz^|=&1yS-v}9=OXS5Lg})@7McfW=x+9MtphRmt!<~Z!7LXX4&S!Y-
zegoP;wXqoSUdnblc9>hncVzc6&S%>_Jj~+LKetO`xaQ8Q@SlQR7WprIG!#<yd_Jss
zWA(FIsNuA?061LZDGwq1efG3`TPXvj-qXT4s^>~`)#tCxEn5Y7%Zw2&x%2>5jQlFT
z8)6&P_+7|a0o7{XVRHNgd4Q2{8~g|D|6kJ#Uf|6@N~DvXf+o@yO;%?>wjleZYA3E9
zJ93Xt=d~7r!cAA@AyOHnM)5an2P8vw>n2heG)9bC;8uzw9G%Xq5Rd^<9m<F)BByip
zJ!l>j>4j`h%x~pZxRlhXD{sQ3YB!7o!j(-{3p;UiCrvC1xowsUY(W6Wd3&DJt*(Mn
zQQJFRARHuw0!k>#O+cN~_FWF0n5Lm`tVYYVhTH0$!TLEU^RC2QU~r+h6(nmDi@0?|
znJ^-=WrTEYB0oLc_oyAAiWNVwP~f`7sY6ay=l$Rk13vg~020XB3=^|SA0ZoNSv@<T
zs_U!Gy~O-_YzQyB>B|B&Sk}Xwh_uMoJ6GGdtvXKD1D5K~kFG4|1f@mhX`UfA>dRo)
zhWZ5`P>#e(ja_n4T>;K#mAO0k7$u{#mG6H1^(R_;;Z52qfzgJ3GSp9~bjHXK=3rIP
z&fH^whMU=AnDrqOS;E{$<=9{$z2%ORH&mlVobP}6FrhcEjl-r$Ca&Cy1a6vGv<#%>
zufOr1XgtMuhyZqY%+g~SOH+}PGg2ew?m9t(+Ve>kR>4b6^Ge@VEF3sE;7s_5&Q8HL
zN%nXV7`UM<GPlW~5y2}O(wxnnP~e_3ckrC`Nm;A_c(XHxY+2y@O07<Fpn;}KSV@VQ
z-Yb3YAAjc%x94(WR<VldUK>gn|8Lu~g{|AO%DBq{lHacQc+q|&D(6S!0NYV2y5URy
zK%?-^{UW9<178bv)}J(O=+j!(x@GUYQs_nxZ#BwdUp=Bz<+>D2QR73Vu?-hnG3S~*
zyCQc0J~zHx0cs*4O+tVp_502l#c)($_F?6g3nDHN?tLF$G&T1iI6e>W=-*^)((VH@
zZFJ61%5^zAfJRPEFV^7#F$#5!xg@aP8<q`nq5w8*uPEX@w;{9D?lH8jg=J)9W<r-+
zX>jO)YuTk!kU@#Gxdez30SzS{I~=h+FPxFQ9gdV|ERKav?~&plikvb7Nl73UcNM8X
z1(*SAM-{sYtYAj*p`?MP@sZd}m#76R%_s9t)S33pABiQuaEp5o-07b<l@kg}<w&Iw
zjxPP#Jkq9_vmPHLY#Kt19@*crF_pPGHh8l78<(00gCdvR*c*_x+CN(YpOYw$=!hF3
z95a&op8=5A^XD#2J)Zr>dip{@^V5Y(?Z4ZIZ8fB^D(1T(Ckt6~pYzj|n`TlFazzB?
z@#Jc0@0d7QIT|a+YbAcQNdb~4kCv3{X}_m*qqPJgWE#m)&R)A{(2<!Q#yOyvS#%g|
zTDo_}NzoHIdM(uEhWLd+^)v~5h<$UA7kSDJd=cB=sAMA2mbSvb1ZoOIo^?>_D_8VB
z+EVpwBMX$!;F$YjA~Phk%G@|d{G9eXJYe1yx5<b+KVlBZK4~e((Duz_i+ITbu>L<*
zLBy(OfziDUwAUa1P%^(Q>kGehgYBv&0<!;vIr;gC?3<V@CE2apH@Z}k^B@MUSc+V7
zx)9gv;+_fJhy;b4yTF<SX%<{a%{jMq<y@*hM98N)iTnJLu%ZKl73uK1EpUjv`@I0L
z7^Fq{)&xR!ivr?2>x>AOOT{f-k5pLv2?{q~{giHet!ycWbe4L87iHqgSVg8wwJm>o
zx*}b3V4Xbwzh3!_bPiJ4fA_(ZKE&nO$J|{I%|iYr)?B0N=`=NioILN@*zIw<o6>p)
zD}39lSzjOPeE>}9XY#@uSG0el*M%pKka`AK0c36gX%$pp0pNPix<4^z04j(50*Tee
zN(-%Sg&|Fli#Jx2L5Sz1%a7n+QVd408syI&X^Su1wyqAu%;U>(96WMT16zn}`3>u1
z&yI3|K5WV5Y^hS1q!@apUtF?e7HP4(vVDYFf0a6xLE22mJ+@49%Dx+pR7JLEVxcnH
zEvWZqrC3~ZLk4nE5sONT(Jsns{k^CH4nsy4eUqLu%$fI-Z#eFF*|o~A0n(9iAD4c3
zcvdjOwnz=R)<%<Ajo!?nqWUV+6Ypl@89HM|l2PyXMFPfW+S-+8QfI&s7OktA1&tJ(
z2G1kf?tjVGa%Inoxp_eQtz8qY9hsawk7cN~2?60TsXkPHsJ<9XDFgf#qrS@7{8m%~
z2`H$l7&7-i0dJ|q%kVo6!Ed*_!@aXx;{u|HX0w{ugwfvB?L#R!$%<F<{0oHwp2yu1
znQ!mot6C#gR*oN^N3}ccP1;Zum0AOKEMM;r3`G9=F7J(yUR4^>ytsmoc1V5I*?ym8
z^T@{5_<8CFn;|sCA>h~QbCS>S(k&(D078@}ms;ekY1_J&^;CN*JZ(!~YxWC9_Q<N%
zMJ)fLn2g&}(CF*P&|y+I3gW^y-0(ZBHd)82^=LEueu5UGS%)KRy1D>D<c2H-W{{?V
zf7jR=qHN<5lqPm%D~Ea`RV`EK;g<1ocHcS%=2i6?r{uaYPO@D(L3YTQTBhn9?V`&5
zIzTbV)yG%q>RMoIp`}aW^AXBZ5IB#7g%Fy@9=TbL8@M`_=8fK9-gics?eUr`LAI!2
zotu?Dbx3=SZo<_IdtOFfJ~uTcmps!##Uy%YD|97h&8F8RjOJb|OM{u-PAC((f}Z+d
zFmInZkI;9mT=X9AvC;gojYjnW=A_tG5hl2dOrO~{LQ?G~I|lHzI$G6VSmEACn$?iO
zYx+=w$2hKe@9pk7r?HK1>rm4l6?ae0`=RQOi$|LFRx28ZJ3ke=59bQ!5S|CJ=p(DR
zrO>MN<iqaLvmT32xld$}%5RJp<kZ2#BNf_jVkxi9<{I#dxAStZPU+PD<S$ghb^ab8
z5OI9IUD0_&cHYl#^!x~)X5X?FRAY1E^?|^^tnb0_b|Yqq%@7#<F{Hr<kjLAqaUzdI
z9uP@B&;W01yscaFjEGy#YJVCsGhc0PqUPxAGUA&S^|r!A=kpswZVoh$%*`QLSSp>e
zb^3Dc)$lu?_&TRp<ymve?<`BNY^Pw3_C$DQ&uURG^H@&5AIkBKj`ktg+n=iv_pw{h
z9-9h_{$ZO4PN2nVXD2h!(#zcSZl={RW8`|flRX&oy|%xu2!ycOVk5lhemyZhteAj?
zusdfl@)Upx=7TcNMIr#dTi<rQ>kL=&O^Y+4USD04oB66xRTm@Y*+GkJN?Ugn&7hu8
zA0oCOV+)mgofk2E9@@>FEsf2<I;OpKOgPzU?3Ow2mTtd34cnRc0)vONHO5y22`=ZR
z&*-Y6_8w21RHc18l1e=({$}DCY5m4HrQWsP#&pd-+}|??@KxWEdunf}YYitR{!9kg
zq^f299y{^lqiGj+I00W5uYOs3jRKtHw#7ncpPu~<fKyhP)yiXKExlei1$!Zh5TBn*
zPf5<A2-$@(IYESF-^$sI(7s;gd{4TZoc_zQiNLwNr3<^OY>&Xnth(2bNuc6VLkqJ7
zx!~9v6KlyJS=q=-y^rPK-)6OcBG-s1k!2QxBR?G0{o=$ykpph*PDt#KyS>-KNZO)!
zIl^Fed`C>Q@vuPAdOz!a?^S(Bqyo!WRl#E<(AJ*Q4pI79cKX}U+}3y*^@GtM<j@bo
zY0r0miO4qHUvAHnGdz@=G31r2bzL*r{-dDG7d)&&<51Q(-BO7(IABfdb<Vn2)0bS*
zkI@OVIL@8STIY>yof$!;3M}I(M7aDTJRGJVa84Wgw1)s1$-OB37uTW80EY^1)^rFv
zw>7Y?JUuqMC0#_7Y8gaCH&=4!;t0$oKy>3Sd`5@kx}G1YX}U@i<w&)Gu!g$lJuHj2
z%2|(kHL4`H1H6&O=eDjR`z#--b8=Uw=Ar~MGO-P?w#F!36@b+Q7F@hPlke1^2=MeC
zuUdCOuM?VYQGHw(yYLJp8+pIibka{eUp}oxX+Y0c1r^`S+#It=y<Ru`<at0!?$5X5
zQ{f^#wdth2&-G$M|I)Jyct*Y}nKt~YS>%d*UrzDwmYL0ZoWgoht~KGg)^u{h=G_51
z(K%Afk)FEB@n0U~JhCL@6cW&`7NRr^4G=v#+A~M?P5ldRubHr=2DvVW3(*02%G3|{
z!-`{!5f;M;Dn}d3MoMVO6h!{A9L7Th-)Pfe=zkGjkd_v_yO!xkQVRp2Gh~ICoUNyU
zQAB5nKGgY%_Ons0>hAxLFF|%|2B09Kw!S@XIg)Z+9eU?ypH=&c(_hN<;-4$wIKKxR
zh{)rF!JG?nt3EdV9N{xAI&!Nzmn3y|NFi!^Zp2c?r0jTvmfXx<l{NotTywZ}W28~<
zzEGG83i0Vjt1I(m@>)^ez3$)S3OEIytX(;9xz<?LOA1%DHz&q19?}+~i6~rK`uCM@
z)T#Tio;d^Sfxc11I)e;bn?^XIx4*`pa0ZVJ9xpQ#0BzkoM++S)sG(rE+C0J4re-SL
zM{yoiaFQ+NCf9YTOIPDM`qP6PZ?6b{;3PuMb5BEnTovvWWa-7l__-U+mS1r~(%Ab2
zFj?D1`^d>{RXLC2(pjrIl20!dM>g0JLy*R5c41^6W{i*Qc<>sqzfT_FYzp;Rj_5f7
zC>J+gRu^omyh(U^@nyJl`_nw+_nOHjBWA<QaVZ^R7VvF63Pndg*3?e1Y9m}1o9nN`
zLJFzlm4*p#j)<%J1fl$#^EtP&g_d<Vb*g~i`h&Iz|L1;j#&0BuMG&Eh(^CKjSLWa^
zKlISJj?pjr+H-?h(&*A01^^4=ukt`uVnK4daO*4N2Ih-L;BYn&uUhl&4fO^I(gv(&
z1p6RM-|Vs7IVHP>>sPcd3MFkN-**k-l0_=fk)I;D<hXB1JDp{B+Qa*EeD>uK7z!z#
zjy6Qm7z?K8Xn}X4mF$RWpN^GeLYZ<}`~AorW1ov1K&&0s8!ow(TeXF@uH;Yow4AtJ
zl?1`OeULMMH^K>5^=t=-nV}8}wmDq8y={YjF+=Vc*9b%Y`DV052A3IjXRWblT><Vl
zTo6R9lN;F^V0wBoJrcvEBbK@vSn1+@VIvx!h!(4u7qMR5-X&`5W{N$jqZSRvV(gPc
z*!Rz|7miC?V_1PKyRbKt`<=$-B<=f^!<>Q0(KK96xe2p-A=~(_KnBJY_&ir&!aoFV
zd|t`Fl=nS&X`p)~v+wNC&TzlUR5`h+%`bV~FPei3z2uedV?ar%@~`v$i#-`qd!`oB
zQ_=+3Y}VlI-lIp9O%}FVG~$<CA^Avb{2$rYlWrA}EtUEP<8NFXz8yZ#oCQup)rxFs
zIGL@w^vj>qLfqGx=~#!hd{PahQu{Jt;<gn2p0DU^=ySR;{`V1OAcJo-VkWD#(lk<M
zJ3!I{%Yolr-{gK}t8aAOJy~jQ1G|+_Ru|<u^dmO=+w2xJZH<_0fCoZ#Y{0Bv9JLey
zw>O($(0uXV?K4V7+p1=k&B^kX{;C5Mi0ZhGt7Ai6)(64cd(ypSw`_XT_!ES8!hMh;
zC3^c~W<XGr5W>Dl-1)$p>Qy5R<Di$f1m474-cE3$r%Z+*ElSiL&verrbze<*WzHBc
zdVAZXdWWtF_SP$6Up%i57Y{u$1Bl(2GW!(d`t}XnG70y!7=UT{=C_6dp7eeqyy@%|
z0MVXx`T%4s^?Se_QrFbm8-J)@YVao1_oaEekiA+}x;(UNjF{qH^c99mkUG_SYT-FG
zMJ#ROWqE9#o{)aD85iUtjEnUkR`3Da47i-3(4<@rR2hI|I~5vF>=U*oAy;g0m5$DH
zp4ID_UUtRGp6hv-d7GiU94{r8976clEoVg(803=ok#k2=7*K22t%PBNi!gVl`k|X#
zZkBTh@WH7ZG_yVfkP+awj674K!C+m2SA>(T*G#Yk8i*I?*gcNQ&br0y^5`H>48v=N
z@d+jGgUhPS^1m%I?{^D`?Rwf21cwuZWEHQ+Q40-t7%}Xu>=~0AdYiK}TJEIksrTl2
z2>dr}g{r?+YCpLf*q(*@KP6hKN_5Rzc(>4G)-X0UjJc?VERR>(iMM5QDh-9rS9{YN
zXWphKc0Etb2zXQr26=8*`ff=zVcCNYT=BogF2Hu?4Q=VzEwbhaA6<b=g7`%zI%ku<
zKq{YoXKlU&fip>K_H3!Pk@CY6Pkq3Yus8h%?X^^}Y?E2M=GVp&y{MffK;=^3uD*I<
z_mA0FMdM@ji`YM-X`kD8Q+Z*3Bl69(I%J6uY+nY%;%-GmW-{%uek&6A>MH`k<Xi8X
zjRzk;XqDMDf=$IL00~61kbcxv(T#wcZE3y|G(GZ<ZDr3|>}8vb86(pCHZE0(oVJFC
zR`QeWNgV?~Dl%nfPrySUvR~J|osp9uR6>_1dK=c&^Wm-+yzOLD-l^F?<tz?JeuZ5Y
z`^E#d>e(q>+tv<8OpD5lv}2xH)-b6pryoj97zOp&FhfR)+eWa(l+SMuzoKXKS<2}C
zT$}j-BvF3em#Z+79#>-rIWaG|A(%O!en~%3>fKgRdd~w&E+ex@x(lVownzWSDqm99
z^o_jC)HYgq{bF{@VLj{)>gNQP(~PbPK}1!5O5c_;o=98$G%PLKbZbDb_)xKW1F({7
zvw;TdP39WT35`Ylr&*inx}zmBO~22YGiK#d|7<%qd)UXdXT!lSV;(`++v2#gtr?K<
z&n5JK(lIcYuA<7(^K?m`lG7g<G+pgX&yN~eD!-ow9Qo&@htUk=(v0EYS(pwOn{YcG
zz3`P%f1;lp6YwPLj{MIVu6+MS8UFv7sg#AC8%rbA?<dNx&BvujRm);o;{D-;O#DZK
z2Nm9^#zQ6$gXbZO%H+o14=?-yvMp|DLsQ-<@U=Ep0N*W8y=;)<&gW}^Je=lV;KssK
zjm26Z1)xu3=iSCs%-l=9eKZiQa$v;z8nOHfm6H1E65&doo8z&Ko$SC9wiY2*kYKab
zSx_bjIQ7Fo46;c3Axr7l@f%)MskBEveJ$4D`Pg$<eE~|<LhWhE@r)rODrB{#mzcAe
z)T)J*zfB${UX1~EjOT{u(-f-gmoz#zXpY{j1plY8xYGlg#d3@3&7-n2))a!7cXj*T
z^DNz>&KS)ySLa1lxy!Ggvt!#j*-FiRo@|YPZy~Y3>0Pe(oP{(|;A=*teC%L=MTmKC
zaC`ks?fr#D(cu@4Ry%}m-izw;TY7HCxA^>hmY(u|enPBxv9t_oANIP;=S6x2863D9
zFy3%GYRjPR`LF!qk=K!h0u;o!=VhJ7Aus0)64>z*=RJrfR^G0C=fC(YzeMc0V1m%y
z-1-BQfWOXp*~?`4F3rTHOWi<czjVq0mSIfi+rm!t-QH7J{BI)WH$q0zPcNmUQ&#gH
z5upVnj>&@l!8JEj!=VXei%<0q0}?yxZr@y=PC^62KD&!BVMTtNo)=7;EGdEmCX{m%
z{+RZzmkIqgx*`6ko|831K@T1ktiE$A{$3UuF2jydYnAW0ORqj$BDiDI(+KJ*af!w*
z(pTW0doG55mlAC=4_|nv;H;z3HS&GXZ)arPdl4-V34g`C0T35&-OeZRf;1y~KwBfE
zus5tdi^)$2R)tGH{r=`Ot!kSs1aZkEC8c9i+VV)rkk}|wZOuB|46@~%=bfS{2*47A
zkxl`5dOOD4n=(b9%>S#pGYxC%TK71pm19L|<=Pq%XlqPNQ7Iq<nWC)+45J1C5lBD?
zGa^vt1guo3tw_xPGD!3=k3nXE5I7tO2?B~FQHBIf07*>1KnNiux!d-BydUn@yFc&!
z?7jB8p0(Ed{(t|qpvo))!Ygsj0&Cyd3ha~TNDzjQ*HcT{LW`%m%_$z-+m{A8V^d9G
zf~^joQxWRcEnre#3|5&#(?ba2*hEU+eoa5TA*V0~`r|B7=y+6yc1>h};|~ex0Pgz6
zpla%64Es30Hc63$)PNTjUq}bF1|G6H*R2@N2m;xRc~dPl+$C1V=2BlRBll0AM~kD@
z<g>AJK?(U_FLxP_q)?GzLq0e=Z0sxh8s4voTvypT>CXFcW76_EsV7TuH{0$>ouF(3
z|3eh5X}VY#v74clg88n+o6&x*nW|0_bHJIlyA;22PgT}19s4l0*NKzhnoFH<HXI!r
zjd=G9(xg;4ggoVuc!{MFegt)%QBX<p?h<8lV5Y>QF2~11FO71Exstn22=KqBYqvg|
zpGHapl=upCtoh-}r<MzD|D4lV>An-p+5Ml+W6IG+&A)q7lsWqfZpiS`3$j$B5AlA!
z*&%q=1DRuTPU~DZp?Ul@!+=_8dT?GMx&rY5l$Nld$cpR7h#sw-RttMI&MMqGWF!6k
zgT97QeiLz}gNSP$?woMlb0EJJ?YKSgTi^asQOZ)3^*sbkw}>1ky_!_oalNPdL|2(5
z<<fM9V`+V_J?i?2sXB8y0z&zkJtCL_yNu1-*5FOuuf{icg6?0J$k?QtA>LT@rBp%(
zL=+Yvf6^?9k^6;Cjt@n=^QzhP!et>L#C2d@mrS3laPDWe_(|+JO3W)=o=DDWGa3Q3
z#mE=aIxD)Mjc+nEzr}Udte^GwTxOHn4d>NYT)nF7FlpI!gZQkLVa+M`<>a;ZB@4ZC
zzu~(;^AF`u+@lFP@rKEd^Lxls2CG>Pf}CEnQ9;e@QuwX&T;#HkZ>p**{$hUzL;ZN4
z?2N;)_pLFjsyA<JUl)^X-pkHyty!u24w?sfk3%}-88$wt1{Y{&`7F!t2YQcI)x^)?
zP9f8;R*nf`zZ(ds;rX)nt)8lx`lA7UdGTQKjy?}IvvYc~=N?t4T(yYm)wny@_({k#
zUSc}Sw#$sp-Lq=qgUnt@*6@G6nHrEQ{}AwZ>?7lD!eNF*jX0*i`HjRbmW^4#@y;*j
zgZ#%mWCJ7@Xc211=kN*9{C`r7cuT270O0vH2X8_W`dR9Ke==gTDg{G`sNQw5vuYOw
zh!(EmmJ5*WM&M5nOTYs&=l|*g@|}HVqf#*R@&-^$sSMKgL*|?vjTwNMgp3p2E$Sw*
z89))3=$-3U+kYx1=ZeDkK0kwj4<Y1L@9O02o$s$CY(xx`6q~No5&4L|`~7HUMBt;y
z18r%J@PJf)4}?zlOq>Dh8OUaAMpPRxxGF2=yi+!cDfk!ZvB^CXQbg3B{2-Jl#QKHJ
zAA+)V{0|<qppUtL4w+7CzCRg|y^stDk7@$0hOiP~^!?iJ32{FXlUtiQ+nb}mS%-v9
zrYMWMNpAx`GfQ4R2cyx8P`Pp4p}usuZ=szoFIs2oPvEZ(+bY<lq?kMypfuREqi-r~
z$n>VK&j%{sC57i=(q=wiEx-Q~^Ib~y^J{d%M#etLnh^}s$4Qz9l>hO%)_>H1B{IJ&
zHg=iO<@uY8RzmizUhh2BeyNMV+|kzyABo9i{d(Ihif^;vL}Wsv0mA=H>C3^JRbXmU
zr6W|#-*q)}c1c+8_!YM&>zJAuI_aC~%K;6gII_=9CzcpP+a=tjwq!+kj4X4$d*|V|
zxnzfaqMTtK^yFlNSkc5qzFJT4+;VzQ&GUSBlVlMO|D5Gv&z$bIdCatX;~Q|5TV$rp
zH?ry-o%oNyOp7o-wn{ITAe~yn=|JD3fGX9iziGR^oNwBnZzXj;qNDS}PvXzgicls*
z^tcbB%f6AIfsyH52j`6ypS`Oiw=>}F6Em?b^eX+lnk$~NR*Qv9>@mqnjxzgyYrof#
zwuu<uN$J>oW)6_}mtRI|?L#M}7nYm4F6o3x68JUFAVSE%waWuwnC=|;wDzJEUml3}
z02RDGkB;e3XI$@;`ex4chr6SV>Na}N=E1$b^7}FbdP(bHx)i>%FIg-BOVLbixp<r2
zq!a&l@b8JlZ4J&_rx1pGf2CH<5GD&t67TI@H9;foMawxhJNno$f4bO^paX?JNYbw9
zw17rom_UNi0#@+4xprfHYo>5CA!>NyADU;ZEob7tJz6KI@vGVeu=bJ?PrKt$@7dHC
zzdnLD`bu)8q;YT1R8!@87JuY6Xneijv8ra_#ASMIL4#f<v9C|2q77H_DMCZ*(T@by
zR*p;Mna8af)|XMDD@G3dwmW^C=rwulzofo-0cq?9eKxI$#FbmIvz$g-IQF?POg$g&
z<G1qiAaQC2S%&tHZ{=><#<7|Hlp0Y!MO%Jj#y=b4bZs>$n^16%Dek*#(i7&00I2Sw
zJ)JX+roNo`(?jYV>*WCA7^Ey^WhCqOf32UDbz;E{U)ujbc01;1ksrsvq`3YK-nT&Y
z!6M4MuCXAK)E*TexdN&C)UY;=@C+;OdoesVm@YU%c&pq#=lVrhnU^0Y-X0=>6SgbE
z{hi8%j2t;4a7pV1^3<dyuxuZ^n(kdx?6kS>=QBfH3KvTULHnz2WVr@M9oDOMpC*&g
z?B3m@(!oS5_Kml{Z~1?L;Qpasue_{BiX^{Rkpvl8gltclI#9kj(Nt*)&x-Y)ZX~uj
zd9ig?3|y+O@=qWP4aQnL&REMulL+>Owrkk$#;KLFhswwz3ruRR>a+Kb08HK^s{m7s
z8!5J%=|lRa?Ahm`v}E?4+<a9lXV^*M$Kme2!-?*}5no3$ERo8d+JKq@F9KMJ#^S%i
zJTjm*avy@!E@XLvqpTls&VK`vE)P~OJ{5&NOTAD$U<NDjTA5fs6|kmC=6F~??Zixs
zappv}Pce1(xyNG|)sEnyv+vHq2Ajy(2&})wsTbU5neEYpj8f7Qte0E52c}TSg9%)z
zjv5I$j$@S5wJ(nIDX`HKDl^DzN+IP=o)3o}6iR1`I<t@JL6q#lty<>RGz#xg(qFgZ
z69ugMev&1aNcG%v+A(ES<uy58(a<s?+I_U)Tu#;fy6KnBAce=3TzYLI0z0Oy7hI+q
zo8nL^BCbuQat=+p9&VcabNYA<yC~5!hLDlj0miu5C)Y;dsYJGpppgQO3YbeuT4HU1
zX<4Ng_qD8)f9%)I@Br+Fr_@Qg7~Ar4;Ta(8Zfyb|)Rc18)LI2!TUoSzHTS61Y5C~L
ztJ;m|UhG(0JuL_-S+*TFu*5lRgFsG;xGMw~0}g_)ocC4j)>*8&ZlAE|IbZzLSN?H3
zVdz|JWk#8{<iM`7u&C$@chgt<z}!QPlwu(l#be}Et-qcte4Bu2$dQd@0=iD}wT=px
zY7ts)O|>6<vu_xRv^<ix-8g9J#x7SaJx}B7&>#bQ&lWX5Z-LM4wZye6;^zJ<0<iWk
z^oHlJ3&PDJvgW>NU=$o#a3af*&@Zn}bc>lmAYRMUEMLU9BP)R{r+RwVTA=MVff=wu
zij@7y(qdk|$f_qEpR*rxkA@deBiK^?oIWmdU6&CA+Mkr5Xf(+RG3ij!qOp@bW`tQg
zCckReKU1q_!A%>vG-pvv{qr?66#7xX+IsSke67zkVpEw_6PS!*$Y)b=gjg?G_uy6l
z#GF&@lOy6wg0(s{fLS}s<z)S`dCnKXdA=BU*<X9xA}SS<j`{=p7*Drb)VfrzYusFe
z-`|BPy!RbvgP>3B>fTWckiCvW2~UYaqV?$MJ6_?hz2mXh7>L8$fU*~HczU9Xxb3o_
zP}CHcSFLSiH2WCu7Q87PSrQIT#34<d+`&y-E~|nM&scqsY!%-%U6TK5p^b0&^!4It
z%G=j3*-XLWSfcAA1Z<@sGas2fHnn$^_x(_)2Jz}(oOiv~zov}+Om6-o$2I^sN<c5<
z(-{G)J6_PJ;qovus(TkP?qo?2XnY#qb+_CH55vmp8uB+0>QxTdC4ZCO35H_R)QWpk
zrRjK*seTsEK|qBy=+fa;>oTK-XD~z8V@xHo-@<3vrW4L=*ey<V18FlCESCJjWC?f|
z|8Y?;w+RI)YP5ekha&Wb9U@^Y;;Bnl*)>0uQ`od&=*LCY7N&}KsC~v8y=LU~bOPxi
zb9ykW(H9FIwk3Ei&Op<V`3^J3*MQg}ah0tagq_*5G&XmeYT2{2?mB~E4Cx`vJ!BN`
z!Wb*5uRmpDH+Y~B{3%q0-aAlc0=@opfzUnj4Axz6km8m&p`WwM-usrPmLyb!2b{io
zBa*NJPLIqTvX1oveZ6LwL#J+1N@uwdW=d^}jdb5;v3_Q&2}$-${j2`Y12d={i7U(&
zmpDN8mqT}#T(-8A(aprr8h^fr>{r%Gs(WGz0S<Zk6U&24MphT@rt>WUOtow@+byxe
zI(=Lq_Lob**=VKuD3Vux;9}tNU>|AnCs`q~oGi2u3zM7)Tmw#5&FmLAL2#)k?X6zT
zuJ@E;%jR`{SW4)s=ciwjNXS0Yh&jn*poVSGQA1tOGk^hyfU65Hk0Yh?#6qwWVD|Yb
zqUz9!AyTsvtnSH?V^}SEK>qrzqf@bP&{`J2y3x2wANdg9X?{%kY;X$%;s+S(=sb8l
zQG-KX@l2F>2-kYaIFr_MJ&rl2D>8N&Ut}(k4y$PC$JE4#_K8%#$pY0o{EF-Jr2-7P
z0yUgpxMua?9Iec<ncrtT3a(F%ry(Otn)k;2l_dJiEkOx52f@TzBC9gj2;^5o6zU$8
z@vN@!+92v=?~L1Q7$AD2h9BCTecvta<5b|TjX5DY@AM6)hq-z^?_pqqva%m;_uw4G
zQ*%2BxDX=a0qGky12O`P>G6|;HusVUiotgIM(5FuCp_6L)|Qdc@wMOW;(ql0dl@?P
zz4D<0B#ukD19zjPU{eW*y6vo4yY#tknO5$k<<@5nOGjHYcLUI;zoQ%Z$TF|zt9M>}
ztY@xsqW=%VHZGSq-?;RgWX{BtA@4*EVPWTPW*ZZwFr=pa7q!~kwP3X)Wq)A@QBy`d
z5Q*q;=0U6VOI!MicW_oGt?6_?TBO+@)7dBx9PkY+vCNfZc-cG$x<UtZAwldHZ%LuS
zesXZIl4oQ93N>WD(ZrkrEVA<fGsd<2pAB4Tij)9sxx&t$y8xqJLS=j#ztVC-fV0OY
zPW=JDkmS!=g|L(QGavqJaAbS7NH}U(7z!jP5wn&ec^?L=#v4jagGUYLKfBrVmXFH)
zx2?s(sG^@V|5D}MKfpU(rDv`N0JM)V3`v{H5{OhN$SGVptGg)M>DmlZ;+0rHdNip*
zT|aPl@4&-S%X{yGP{Vtj@E7|>Q5jKAQ0$L&e(aHkJ?!93EYfLCrpY2rX3DO@tk`tN
zDi>jaH#*N0th~WGRF!H}nHfYda~8rs4FCwBrUZ7W(brw`g8fpfhQZ67N`=`~Qx)*o
zKPNP#gdl3UWxv#(xb4S!B6ZypNV8)G5s#D#bBcrJZ<HtoPkXw8xEokla`=KnHh2Lt
za3860lHcncvz*9$*cgMoE8U68^(l_PxPi<znMlpCg`{9V*8tg+eqMZc2)5L8q29Or
zLz*8epX{GGJip|J%Kgh<c1RrVua2}oi?aLiA#u_M*CJ>=U1c}L{5D3DdU+um*t7mA
zLHHF}&8O$6Khe;Ra*lq^=UkvXH-J-i=+ER;*qs^;H-7l`NhAE8tisA}(|&KZ^=pMf
z01E|fe^ec6sUL~!2Rt!r5t+HPG|XgzzfEWaYt_n3GH1m>t`!ezog9V|n{2-uYIUsr
zpO>_e4$P`ix#w;RdQW`uLzk2?>HGni7|Fo;PYfb?rKoXn^<7XIDMc!Rg=SHTLjt;>
zbL%hWMog<olJ)nrPw-Xjye?27svlj34SsR6qYwr8Sjt8B=|!kh;-+K+*MC1V`6Z0F
zdJ<rV8Go4*7iTkcc{JqpN$g`Co5$C0ruy|1JACpuKe7N8fJ!9K#IQkEo%%DNYNxvp
zs5QHi6jkn5Hl$#B`GLRAt^scS|9Q=8JM{AYBI|Ey=qb1V_I3YXn{w03NdL{i@w}X>
QPfsBK>3P2S$KYH44a4&tVE_OC

diff --git a/reference/plot-2.png b/reference/plot-2.png
index bd18561b4d2bb0ff9f2dc4208e64f04b0327e7f5..222cd5883454ab4b74e53f6e1ba354cfacba62e5 100644
GIT binary patch
literal 26417
zcmeFZc~q0xwl9ihUsPnP+cqF&8K5krQ|UV`6pRX}K<GP>MnVFDp$h@j63UWB1JZ~P
z5d=vfp^+wm5D+DXR)x?62q2w?CekE<gpm6s?tS(i=iWEoAMd^K&bi}$V`L<*wZ66H
znrqJA>=r(_Vq*pR@$ipwa&jQ(g>%>B<hDl2$!)&AV;j&il#%}p_}X^;lGQoj8+g_%
z>f?Z~ogo*T!{p?Y5~ZI_sZ)!-a&kY*LC>AFk9;;a5|!l};Xbn%5#etef98?Wn?}gq
z)<4gk{Q2RpzwSU@eY;y(;C^Ly@5kMiR}O98diBa}x062}{QLRGR?ha2AMQT=_4$dj
z=_;02e*W?IFNHnJbh3EG+D-s-5R_0*6c5r2*;cY(I3q9~bwwc~c*U`T2r2RZ=lTDN
z17lyrPStVEKH26@A7=Ks!oI%d3?gF0o8pz`|8O_}tm=Bh6ZQG(im~@uTEQXsPsU|=
zBdz_)aswavM9O!fQc~ij1LeG4Y-y0S>{S`tD*ci5tG@GQxp=T}T{aU~+8q7@!`#Z8
zfe8o;9wX5;VspHLJr~cuO0A9_np=wtS~7_!Z43z~%HxL|(0&sVU!Ehg-G4&aB%wd7
z(3H8E5L|M^CD%iY;Jx8|=J?19O<oC$I7gY*gt%85b;2o5C;dt{f?x&1>7s}8$Km2`
zCeASvrd4JZ^V7`1_B_r8(}$oHP^U@6d$@}Oc?Xh3R95LcCHxTaevWQTGS^w0If$zz
zARTg@-TOmE8mq@mm)bZWCf)H0H=NZbcnwzsw&ujq0p+(e7etyw-kYg=9zCPlDn4V8
zRku6NW!`gQ@vp&+9)J1?qkc7fx7qa$TY{!*aqB4FhV7M{_{`D0v8!%5^?;-P;G|*e
zZ9+m*fO9fwJ|wx@DRlT`+=nIZ_%E)g`Hhcv&EhHxyGuZ{=T5VzIZ|Ft7u@i0tw(61
z2oaK`?DRo0diaO8QJ$k8F=YyR4I6g)PCb6K4fOto1ToXD->_drUPwjWt48wB(Z(CG
zQk7SoOEeNT`5oKzW+#)R*s@9r5MTMyePBhL#z{}erhpCmG5!-67v5tKKMDb^r@vuy
z{8N_T-*BK)0kuP>elzR~$z1r3vJ|~B)2C-p>ZFm*zOcY{i$-O)P@)fyvUR2*ax+G7
zdJ7rOli=WraVIu$n>k_-m&8-FZmR$CY<BCcmh%U0^6bh`ieLpM5&r~Gb$Qs-xaOM|
zRn9xOrK7{gl<v!fUh1m)bqs@P2~_}_cGGlY*4IaJO1Td+dtnx<w;4M;6T4kzOnfM}
zcwC^l6Ld-M1dG<;x0zbj7_M*EU7~@T7b{)zT&qC8y}NuQV0A0~q`>2Yz^etj*~+Ld
zUf{*!_eoy9w^4|!oiL>``wiqme$qSHvRTf{*u=Y;?}=aN{TqG(k#!#p<9UML;M?^L
zHuUvMp;4t>+%IPASZ|Bf>Z|^`rLIxM)_F7jeS;Dv)A7WB;3;RA^EM&1WwhG6tgE`A
z(g=}OtyG2!+!3We(ZGSzwS28zG4sgY<DgN}@_{+YQx5qUZutTU>2z)E0-Dh6T+Hp)
z7}#j#w5f<U%DltBZe?m1t@GG`B$|}J+w|4+a9<c(b9;?f$9$wMH(e%+1I_Hw;;vQU
zOv2#JSu%=OnD950hCX5kY=7qo^i5P|g4~VZmY`-&m(cZQPM3UFb-*@mJ{{NHRbA`d
zIjmM1w%(ioK95<PTcv`=8I_01YTd33CHwo7F=wXA#O;#3E+)rToaMVt6%A<`2=eKd
z4kI%ne*I97ws>F1?!TSg*)=fS29GG<J^K{m({!FB_y~UGd!pOzN=v0~lI<%q^7GLH
znqQXhGh0}zl@OAP_Qt;16{WCk+|<%AVrSRb2oaD3&j~;fn%-*sc#duMX?3*GYyBQm
z-bL}+I#)%UM}FR2887%NA^WzKuwDhT3#Q;w(Cw3<C~4YSjakN;wfFr(<=!;|uMLPR
zgn3(M%m%(ytW-Bfpk2);-ThA8VZ%J@!6h@38Hx3?ozIkp+%tPCza)6zsAH>Q4bMHk
zr@EZ4^}q1^tG8|wSE0;q!f!JhU~e#8cNajE;`aTWY!Q)@<fACU?N7p#d*=?Fx4F3^
ztB)gK^yMklo){C~-8$nOeyY5E{|cFjHA{8<Fr&O*QDP;ZVt!-vYC};)1BOA)ydN6j
z`YE_0zP5(Xawp}bf#1;1dyj+@pO|nF@_|CmRyr-DdC^?=y0w~?0lk^C>5?${&^Kbl
zz532=4MV&<HU~IvgKd3M6#YvoCC@koptG$c{f;j&PAygf{iUi726IrJPi+)_!#4KY
z)2h8jp&+<5vK4+HNJ3Y^<kfnK5;Il|!;%qdwUN#bMm<l$KxfC%2j=P}MwrxhJ3;V5
z;*<t+d&Ua&#gu1(4uV--pXcfr*H_M;d(77_eOEs>?dJN`>OfH3(%~T+#G+9hP20xM
z!M*;*s9!(D%%wlopf9|!*b$Yy8DQPsB?k@MEpovAc`X>O;>K`Q=E~^%&QFcLP>G0m
zYyHKchW5LY4>O)kn8^$0+&}r3fq&5u87T(r*pg|wpNC;$`%$IHiphrV!84Lkmrrpr
zQNzO{sL}gP&HA+OMLn^B-@??Iejc#WFjzo<P5RlK9&pC>sI$BSpmB*BWn8x*pp12o
zDRDZvk##B(_qq!{*zps4KE^hf2OO^AW}1VPnFne&I#W_^U*lObJ@x<4C??(Nc%f?!
zue<djn&?s)Jh-&W%7xG3YYhrW@-@NynL1z3L@EfrSqpulGGN>I!3@lb2m}5?d+gI%
z?$E#RkurL<_f$=)BaPxU>ZrIFQ|5W0_p@_T;v8aiYeyo!oiL-f<uQ)=t^JOjl*C|$
zQ!z1&m>Xa`+G9L_c)Q&6j>t{%xt}QssZX_pzkZ88a!u?3t|y56PUOs!v%@ekj7DGO
zp^eGA^Tty%bv-cmraiNry-Mvi_2IaWOWI-eC!YF>-|nLIogyS^8Y~DhlBl)OH(U1X
zf@?r4?aBlg=lu=H%xd;OR+~$g9F&u@cOMC<DiFbFz2(~${7haOasNa}DkfKtng7<9
z;i@%Q8#H+T7{YO&?mdmPx^6Y$bBRCVw^<x)4m%1i-v{hE`UWqjY{OqnD<iu3h!BMO
zZdNLQxsEOymmYHioLJt0HZJ}WcRiiHa9VN1CxHJQ&O8N-oE&_Oz{vsoVMp*s?N<{x
zgUq4+ucG@_CX!4Qx>@ArY7;L;qaf(H#HM0y_S;L)so9k2iW73?u=XETq>`~c+2Orv
zQq(+ghU-7$+J2t-t}MKDvYA6aFehRS;znz|B$c`u0+>1ZhD5<WA}9+~U)$2p*?CDA
zl$oPB7;zodrP}Jk1dJr<79g}^2E3b~2!!WstC^O^#Hv8UfbZ3A&c=kc?AZzD4UMvB
zCp>SbRiD?tfj_$9WIw8LV8!qz6n7r}bff3)1g^fY#-aYjJJRy>CE-XEl*aS33+5NO
z<Wvkw<<<tigSnsD<r!FglxuyUmsgSC+yI|P$F;*7#dl+8N8Zk@sE9L0LKXvviRblo
zL@g>9vtTF&K60Zhd>SnbAl{N2JDAlhFL(JPt!8!G<>Jx`#9$B&=TXT`bX|YUnW>4H
zAI=T<*gu}bS_eI{A?3veO$EJQ&YTmO%hzyAV#DPF54HG_MtCs|<3-ou8uzd8l9}DF
zDUSrlnC*Q7vC+KkfKOF6b#&eN5}z8#XcTD;>etX*%f;Sh)YkdqAn$d*`L}|V0l;LI
z@7km#S8iw0=)G;oGWg`}{;fl!<kp%4nulg)@dtD}el%IxJ>{ym<qz|Q!qM*F=dHQZ
z_sf(n;tYmrAA`ekKYrW2nrc64=5bTrz4FFrKTJaMHf39k)>na%jl4fKNOR?74dMEq
zM+u_SrH?5Y+`zg;7XHMKpSd+&qDpR*hG)(iO=BRofYaZ9DB?27vm6s_u>%tz=3<y@
z%+b?s^*Pn<+^-JbP0N<`n8Zx8$XMQ1rqW@*CrVE-b;aWow9!wWQ%{=5G_Q`53%mW4
zyIq!y!k6}dbW5L*UyTkO{{0ykwF-~DZm}v}18o{yU(6vhhAZkKp`BJDC%-CX#wbT-
z`P?zr8LPJLGpOJv7|_ub%SJ6))tyBf{H_yUXtZ(hZO+_48lk(4=rYsbqxJFIBTyqd
z*=)bY$16k2-*H_|&S00~kAF*<y5;cDzjVILL+6bloAtND8kIep*`}bQtb_SI;aeO0
z^*UI?ml45SyB5M4{iGH68xnx%?C7pCqHAa#*K?*i_=%*VuxO3`;!vGcbl*05PTcwc
z7UQ$ML4=QE-@wFu_)IIv*xE3(_)mM15g;d*azF%rlfPM>?>YLn!p1KLyB1jqJR9?<
zpL|ML&75`u&J}euCj^C}C2$ulW6Hg$%=5FK7EaH)*XJxoF#WX#B}oY?;F_U#V1wyn
zOwXW@2IZi-LqnF-SM#~eG0&qrR8!)7c`6#7vDY6TZz!fWv~G$&CIz{P=60}I-bU)I
zVg!Qc02&{Srgw?1@Xj;u5hNym3B#Xm1|1zGGjmd2NOHht3Df`(v+P?Rr;BOaXSmP_
zBF$R3dVDm{i=Icef?XQ7EruO7>!alogI>Y2aRC$hnhixpr14D6*(eyVuEyN0;q`b?
zV1H@Yu$Dt=(5mQb!2BfOd$>)=H9gx4a|axdjtIS&KZJQz^eE6B_8@51D3ASZk*(n9
zczR1LiMUZJY*Ov!2?qxvkUNmvA?;IwaFBAu#u<wXOO7DroLKm5Txr~28;#?r(HGu`
z4tX%L4@F8K33NgE9me1vp6j2Ev4-u-^DrdLpJn=hfA4VBk695pFy-;)h>4@)PBqJ{
zkyqwHJ9H0>IL%35%G?3J*TH=~;5Uuu_0W4?6Trm#B70AF)7M7D-U;F%e5UU3AKWYD
zb$>B5NP%_R8ea%MB{-M*+e@y9J$UNL=!uH5Xj|@EnVSee+yD9*c)%}}hH@$3?N*BI
z-6gKw0(k%h%OjYwC{8Zq_J4}&{@2s|H*5_rHYI4r^X-f6iycJx%}hE0j=!f~Dlgqi
z{IR)`1y}I}UM=Y8!V7v1p%{j9n0G&0CfjF+2|n7h-D2c?Y8+9strRYM15sTpWM*uy
zlU&7k@n<S0G#No2-#eD~j%XKB@j^Bb9;}$5U<-MJ{4l)Q=?-=-SJE?dO;<XsNi$*y
zd9cgu<+xv9PDQP-`B<wV`t9LO(mtn_)Y}H>7`9FduP4mMRD6*BgS6R8DemL=6}}$b
zps%<y88xVrB0I7sBeTBoE8$5w1xknEk{v#>Dfa4Fj=c|EK0D{v&o=$EE|`7lqbS>H
zmcb@&A9~(RH0+}|>k&48DfQL~>Ev>Ki@cGLk>RwI&}VxI`d!I9jRO1a(vGIzi|uh=
zLbTCQsBY_&TLO+&{kX8cIN9l#v{(Bq8t_Oo7soiZsRR5}K)CfCB-h;C-Cc99<T{Vw
zDbJ&WQ2ob*v9Y|r%G714gZQY_SH#(GCx#266klnw7T(Axew70=cfnM4Zmky)aIcV!
zVil=VDQEmd<uGjGZ2}6Vd?nX)<Rt~u5>4&5cZ50G2a`5p_%j<%>}5%#Ij0{y^gj0x
z=niPBgR?7~6sEpC7wl~^z(B%G^C^pX`9VJt(W8;`i*(w9Zl5a3lp6Xb4%G7YH3gb9
zE{+=8MaJAn(mDe4mN!ZPBJJBG2gPjM-75UdxdXa%rD<{DHGa9<oF=c;5W=huB5&Tl
zYh``LoaRRY11}9kO9?P#hFKn--38jjMIB4tZp=32Ms;gazPxbAte7HF`78^-iUJE*
zZ)xZWqwON)t|vI`mz{2DMtnrHhik3@ydEm0L2m9k+7Uo0>0@QpBs)Cqt3P~~u?Lmg
zxPA4!_Y*s(q|A%I*i^5??itT{A!B7yYtR+xYw-_G-its}sg#X_bOZmS-(_uI_kKfC
zYaM4gS-7j1&j;y4I2C1C$BB>SN*<^B8^!p)r2m#nG5>*GCTJz|sW6yK&_afHOJD7%
zHV^Z4kPV?L0m39ICi6EtI&6`)gsk66t1c5LGaWlv{mI(w<HwR@6e(`s(l9hpYpFOZ
z-2GjcRXg^8WOMv0e<b6KT+_Lok+OGGFaGCE@A)R<)aCU5%M{dqvnhIa0*C}PD2P5Y
zvHts*O_jMINqfIGruLOt81sBkRjLDtu&b2vH$b*j7Osu>NZS<bGaa@&y6<qcZECk%
z|D88#b!55WF@1B<S6wC*=Kl7_7&s5ezyTbrZ%W43!iq~NkM^wwGr=(TE#Kd<M5P6e
z?(i8QP<(iKyIX%K;_5jF$lVxLZEzCpdU%aGsi9K(kxBJHs6VXuS>)#jxp5n71fs8N
z!*VWnjzb`6O1J~MTN;AiDt8|7iG=Y+n6%W>M?w@M+wAf_9rAxx!8uto{O*9K^wYpO
z37}WM;c~|*bnB@+Y1ccuyrpza>dGgF%x1mNG#MnuKltD7fd7AzRCexsIwvWx8!s=@
zr0^q~xO^jm5X(X1>Gt}b6ImFhz5|zJb`|rQLKGHo?hM(fN|jN2t6C`~-hC2Hz`6K{
z_TpzcSZWTLumg&>I@p}?Dmuy0)771(;viGQH1BO({wlw3R|FxpD0-z-JZz>rZ2D;e
zFVVdw!>y)2c1G5+4>7yDOyg{MtDJg#L}!h=+Xz|MI=Fm^P_KKUznnz5#G{A#tcL)(
zKPd%GnyO<X(Vo5Iq-9rpz5bR)bH`jeYK2i%^w(h>T+iP&Jj~Gz_1;klv^=ojqilEe
zPvawIF(2JT#sqO#Hwlr&a7D4_y6O7E_VX9EPp6oMx=CmDIuHs#Q^bawXi1k(oBDGm
zj(nqZZDU5uBoLm2DqDT|X3^KS<>W8*jQnh#oLu5ujl@wYC@cO=Bwu$uh?-NXTd^~~
zpnNFyZ_f9JI;+iVS~uV+ksFIDKAp<wp#oySa^6XF(%NRal9l2^=2}a_ltp-2Dh%gI
zjb+{k?AROFdTB$C(yPXL??J<q5rKVoP=s}Yp_BLuZ!bY}%UI;kz{dMw#T_j4;f<p?
z5t9mc;Yw9~6+>&_Wig24la&1w4faSp^oX9A=r})ERcwk*kw|*n;>0`$ef&ZufQbiV
zkk$UR>n69qjWzE&Vp2yMZ#?<~`<BUTR((4$-xS1E+N9OAV@rc8H<yX=o3FyhnO>Jz
zr$jdP>A;mld><`DOYDoqjd2XDC0I0S{3&uyjuguyM7&cd=ti@bh4Z5u^A4Gt<mS$F
z$MUO;xed#G<{_V@S_~*N05nMxpL%c`E1C`8-bl@zX8l}cBUjWI%=DF0bPVsYIs=;m
zh0SX@`A95MBR9UN_?U(g#YF|g9n$kL(A)t?%cW_Sxo57iV10o}>R{2dMaza|)W!u3
zf3d<^ZpDu>BU1!zs^@vQx*NiAFrbnUfjZAi;k1IPZqaJJ%Z7UVL^K+OJGc0jgFD=}
zQA(ji^J?s6!ZqjAC*`qY>MKod$n)4@vUoe754cy2HPPOvYrG^CpIF}(>uxDE@$S;h
z(c(16gXu}C5I;*8Bs*x~Gs^U6G;bxgW0IT9W@?}H`-a3tz;Moht5Yfza4g`80y}0f
zER}HNO0EaBEZUk^nULKmol))w_P)AkzSDGDhSo<}gVzITmR>Ht<p03lzZ{$Y7kFXh
z&D^TJGZmlr!GQL+y4ktzQ&tD%$08$gIEKtlnEQJ@Q4i-PLG!Nrgbq{R5pZAM>j`i0
zdO6AJ#LZsE_^|G>g$mB^HG?AX28QAXD6cUtJ~MfBiIaaUHA)27T7x4PZ=Nqf^ZHgG
zS9il=$5z+*?RZ;H)Nb_<-yb}@4lg)kX7LZ59(y8I-|079le&dD1WzJAS-Y=R|Brpa
zO5P{pCq^3afFD`@P?Hh>_>vFR%-0x71|iSG`-3jR;GWFAxYf7Fu$-Y%N`{7@NS|7A
zNt0aIx<=mRWjsfqFw2n4w7iu<hyF^9*zp6g`Rc^F7whhzphp0ubw$Fe$F0%5bKUm<
z7c^wJeyuZ@y*7iRN$oD1idNX#P+qoxBB4<;#-mY8-ypI=%-Cjv=BBY%&!Rac_0u!?
z;E^wuKtt9+X-yA!vVQ%q<yj@~`_@=a@p`)`B~H$X?sRAFJQGYH;JJ9D-lsZQ>j`as
z(vYitcZr!j^))3#zDs5;&P?1VMG*2}m>A^H0S6Mv%*iz02woT_>--S8iHpW7mmsg1
zzK-S%H&)^O9VIaFSzi3^ZkYpK4o_Bk?cpef@}fZPx-r2P<>>dv2$%ea@|-ZN_cOA1
zX+XCoRCS&P>&7FU-LFsskfYWFf4vi<->jJT@EBJo*+fmZ{Eag%)-?*-IRrcyFsoEF
zQqn@`w^t@M(kM*5UK!G9M-5T;FIW*C66*D~P?wQzrUewdaG7(5nKyqzTCR}ux>#d8
zW?Ip5Dm)IsxFsNMlty1d6>E@WA(7YJ8uc-1Sj*gSs%|M+)I`RR2uEPKZn>`Fw&BJw
zf;!$c*fv|nte%P|o46%RAHZXjd?;^RfL39Yk9OsH{_`#XX~Pj!&)LKz;Kj^Q$I&af
z?$oI8xyHc?+1nk5jK@aoM(Twx69y@?L2Y@#qkc!6=SX36AZqIFEw-y^^uk(ZlAD@z
zbkk(6_9p`%x78;ePjDtL6HD@(#n*X_)=6t@GQTsm#7H_Se&U1EChm4H^0^*28FWd#
zfkNT`+G-M6dR}%?iruY0Mk)-BYP$;7MnbkNe5^bz6V#?3e6}{kIg2BCZ7Il_g<rIk
zzK6H*6K%kBVk;ouE}b02s^`d@7&!wYpU$xnN6btq28CMOCK3xc(^dR1!mK4;Hgv2`
zAJ!x~#H{k4S7x81xx&nK;SvWP<uOM_hrvQ}^|_XUX;xg_gIH1)+&sF_MY@7q`27mM
zZ)TB1G0}QOL?_pPt4BUqANDigmTbHf3YZx(YUfS^i&N=tB6IzZ+`VD*VU~E`Hom<l
zOl;BO(#n0sHiOfs(Qi2yWuwENR{X#|HN)x;elgli=34`Uiw()bg24&@OvPG~aD-D!
zFeX(<jxgK7NH6_9fh@qvDzCWvMxm?P7NCCb3`?SOO~beoD9`z))@m9qsNuDYt`Chm
z#znlXA(b@7z2-=Xk7pcKAH%e`iI6#8B7pGDGs(W)<`k{;4Nk*gx`vrHoo7xmq8il-
zwU{@VRWp1^B&zRET^U37o(9;3C-c+xAK{hc8T7|aU8tTrt?(31i)hyIH0+Oc<|#4h
zGc}kO!aPpxbdCGzizw-mO*f=EeS;{j(*tU2-6f4t3u_OhJ0y$TM0@2^*4D{<1<gaV
ziPJ34nBILd=F{)*wLCo2!tB9I4AC1)oI}i01O=sAbDem)qiyyO-;PQ9PI%Y1JY=K~
z*`f;v_pG>48qr;CzU=fDtFRvC*(bFT+_~;F%Y$%2?qK=!;#Y#^jT~yFa2AN7%Fp6F
zFwOXf1AfY+*aBPeAwYQt?gOF+-w~<o;jWF|*jz<-V2;B29VOM?)WN8@ktJt>oj`#}
z^_Tir?h{#d)2x1g?j|=;5#6cZZ{3Nv4=^KL?<WxVgW*ox$lA4pge%HkKgLqMslt)z
zQjQf6sR0>+XrFBj{V<%nIEKdy8wxf>mrgl?e}C<pKix~kw`}6Jfc=IQzk--EU4V~{
zbJOly4;mv_mLPp%Uwiv40$GdbfR+>NTEOPO>TfZrTnx9%R4@z}j42{{`YCYLCaxBU
z@VtIOy79hPnNxaf%{R<L7E>Y`3feX6O95LVC)bg5=o@T4I7=+(;JEtFACuJba7-=z
zEzQBoYwN}zx#6pRq1|{77tGwBKAH<5O=u))@NUI|PCvUV=abl-*K#bGSDFwXarIB?
zgj-1SRt(b-!^F1_ggSa+c=_=Myh4wN2I%4KuIx~$70PUwR7sR3IN}2va!QrHBA9#e
zr~FcfI*ugfndgt}UVu>>qq(J+WlkyqtaPhGg(>o%2g>qHbfGDzdF?1o_j<BSl(rxo
znvA*T;EcU>fqiVmE?DYQbnMxd{?9u>`ipq)2Y+=3)qNb^OgP}U-1Eq+Ec$HA9tGV$
znuiSU$?{VJcWRD}y=1##I)|5g2>y=BH?!u~(?H|%Kx&r#@bDY9?dd;0E0-QIo<$>2
zl7yT-nK0H548Xrt4gdw(2Fy+U2Awuj|J3Sdp>LN3`oo2DRQUJw+uTXOV<efEA+KVB
zdHL2W=!lk5wy^_u_^#}JP5e$4{!l|LaRD|$w9UOw=^zDJ8ydH%fsuv$IgTc?*inFA
zaLF|qigU1dg+7mp;*I|^{S^RY{c(1tw4<dahwG1ynNE7~h=VfR@ak!Gdod1WDo3o0
zYf2d;m!sYH6T9Bg+)w}%-g^i%yctW|b)U2+em9_ou>c|^1GjI)$C70b(sa1h<;D1T
z*gVO$?z<VB0#u+o4^9g!)RAr8>3V6r05`+hZh3gGY#J3{KwKOV(|W;21`FkH0r-`l
zW+^D%yeu6cmvK;iOibYP`^`&SbN^+sVNI?;iHd7qi`OJ{fo}!L#-@b4xiH~&5<I&y
zxQw<BCYoKNmI%8+Da*dcn6e#)41<B$u$;HLHKVViS1-)SUi0e8x^!Cht30{&X*0Uu
zajT42uX_M-=7ygPWPL%8R1V92{43w&qwz7MFbuCnI%1#e2rxUgby&yWQLU53#qUC1
z)sT&*zpU8IuEHOHDGW7L2uL2<aC1uZ;QMM>r((a9<NHCUZq2le5Hb}dpE(v){B9W9
zvQ(BylNpuzV()DW*;O;7S4g{&*Oc(HxLJI0C(GaQK$87;AAzV1YeLg@ZGWBVm|99?
zouQdOgU2y0d|zYkN5Il~p6cJ|;xug&QG<!%_{V{={SE8`_NQ#p-?;uKW_#v}=&hTm
z#|kf7*vk=MJD`lBrv-`=>APiMFE^ko<%eEByY@k>T6gv6scYZ2SpNn%Gw?LaU#WsC
zR1q(n?2i@y`{JZ$aP#YX#f>+K;-!CIS}Pkaxs7TaUOs;+5&&}a!ohzykE%)gzHPvH
zK2`i|rZ1DaUlIK~?+G&pFb2WAkN-XcA&)hVy3K`&F}ypR*JK|LcXvDLs}_A9v^6j6
z*mr#^R|n9^!_l-(I7mj+8hp-53^y1ki}v7^bDI8?nG`vIMcW!2`eCW01vkJWc&wYU
z772K4B#yBkP>2Sefx^8t0mE^nu>pL8m)`DdDrk1j1^)eh+ZNY--@59Hgqa9~@0khW
zN&Y`lmO*>}=?zPb{~8m>qLG9C(2-3E*!>^a`Y^Q=?XH7IWlc@Qe+GIF4#T%`Cs<BS
zF&9x>4j2#atP$flOOH8T@Ml+Y`=yrX-3}jMnx0#;96cbu$f44NP56g$UJ=q`yOBmW
zCkwxFj0q&dMg%YaaiDihH>ojpQm6Y+lnLMq&X6&@g;o)5#(s{}McnWOLYI(rSEhNT
zj0GO1rO|e%R1Reyvn7-il+|1x{6__{U;ANyaMdQcvDJuh)EkBxZdhp{BvBeyutjVE
zpJ5xjRG1Lr+9cnU;W`z3RRLyO%Dy&2ro0k%?(1v0p80ysnf1_wAYAAe*ak$+6Uc~q
z*Y2pUFqnI5&1y}ssD=&Llv2u1a^a61MsFZCJgHiq&N8Tx+xwamFJO`RGsIGvyBfdK
z1=WQ9>?T@y;vf@b?X!ekkzD=$#+ZNPn=gO(Z8O^#rj>`@FjmKZ2RE$E!JE&5%lL?~
zI#XsRKG9wwZ>W(Lz47mo+Wj?Q_A9dW4kw?P_#c|!G_?oh=xFXdQYl>C_g$v6p@2VT
zTI{`cKY73tQz#5Tg%mE!mYFjGw2gcCrt~_XoSa_3lYbyf$WQ;NT=uU>DH)YkEpk9x
z9)>^G4_aK6y_j|q@QzrVw~t$0ZV)!#khaA`E6&N5XgZgydr!~~_8ahUGL1rtUNYP9
z0@!wfv3=^RBPSy|Y`asw?|82iTS*iQPvY0@>1bL+2~GCFIge1H&suyCl`+Ez5vl(H
zAbop4YL1zX`gr!IzYP=jEgT7T;6*V#9g7{}>~hWiUD18;Retlqc;d(z+~z7D_>KhH
zzqztMu(fjGl1^12)t4xKcZ~TR)71feHVYwA<MxV)Iq*3Czq5Q<A3oIKLMiU3wpA?I
zFWacQH((@qVe^T|7o+#4S(z#SK_$SHH)KA^L4W8BF2`Og3%!x^?`v%M@tU1Q9UOON
zfeU)@{$9LRmQq+>(2x~=^x!||9{+=<F!)H!6ccE{J5a$c;#d@h*UC|1Hgk?J#T4&y
zpfG&~)%ouv>UO-Ry7HDd!-F+c=KU(V3-Q$vo!RfutC|F8_EBz07vadKa!u|X-4w$s
z)H-29!XfG#S#mSJKzsTpw#6<ODciJ>Vnn4}1?qtTyo$l^Frav^Y)9mbQqYdu<~8qT
zzQZ!A)#H18CLU4gAcMw+=qoKx8;ZMXa5@nkgG^`@zrHf)yD$_bDSgXhhJ;loBE|+p
zj#^pO%I?&l$?w5M3fxEYW5~mV?7HRg1?HucxLdq@XOTY``9_veYT5=E@r9dNchJ*w
zYwGwRd;Kz^`-d3{=Vldukh%5WS<5E1Y?_~99wQL+K5!LgSe_>VnOKkGFPPY5R1ptI
z{JSzN_>Ufe-t77L%$xmx{QAgC?(C-Be}A*<$6xO{*1ca!oBHL?69?jU9M~;B-gZ6q
zZqwGSXZP>Evg!N}7k>WRpI*Q7F{Thh!<i28#8<N2sq8%BS0ZPD6HD_X#ai<^>}*YW
zWluT9H1UcZAR<j}0lzhilG>JnRR`U}sA1~uYI?ojWrzI1{;puMZAl*{M%>Ef5lJUT
z>+@@*VkOscUjxJp6SXaYEcz;_cfvcKdfHTyYuAZTJy{T)WoE4sNoo(h8y?mM>g5a&
zDr0Oc5ZNl+%azr&CxF{Ez*G96_wOKyi?dlIbCh3N#a2>p_e8$>ZU)2hOLjNlpi5ua
zOUKe0>ZhY=Fz1bPzzlkc$>m7hO>yUtc_(O*e^8{S9G?OQwr~d$%+;W&FcPm7Aub40
z$4vDY^6I{Ry3J^0MzQn3cU$4>$oxCe-(Ls}{43#7T0>)Pj2D)qMs~$jx?)X^Grm3<
zrT)sO233DI+?uC#@9IN6(k7dsM;=XfK^xO1u@JOlTZ|rqaa{kp>(YHlT(6gL5z`u~
zIXq@mTXq7M$(uPPlZWZcX*=2O#~DNB7nau9++FSt)A@uv$*s22pn7l+{WaNyF@C(~
z^g8Xh$W8xh{i*gIV?}06kCZX-n(&j&Iq6sNS{Ii3Ahf5GQP5p34%2ifJME-DHyacj
zcUUPGyAtcsW@fI&@JU+_!6vhwAAqdoo<8-G{^`$!W8hcva!#Z3X)(X)OFm%w#OSu<
zIE-kgTzq!_?Yj|-IF%@0ZiT6@2iyAi@?6)DTYbOUS~7%taj6!%@OX0j@tr;TMM*Jv
z;k7oQAuTBOi*cb`d=B~yw*E3@_ug++P~?-z&rp5fq*;CTcO$qEdFqrBVI$lE`|vQ!
zCNno<au?JiXVRC7>%P2{1sQ$nRnJ+SPrq?{@3BZv+$8xp6e;KRla0~WLLmCk%D#Q7
z_4A?bNK0a)kOS2RRI#<FWDD29IZr*@n|e2Fp$MX78yeUaz&2JhG-bGA8-8IVr@>ig
z9ChuxK_I{z?R|}!?VGC|jZH(gI-NN2<*y&)v^}35e4O3ExBkTXmJ5lvbcm4y(YhEK
zjuqMB&q|qmMsWJcm?@z81LsWZ(;ANZvJxa0LL;$SYEcnbjOu{QX@7p~>BVocm6Z)~
z7O1X=RcY(z+8SP?vFjJH@>mm-P9<4F+H0HclQZjHzH7}OrlBn#vepBsg)Y5JhpZK+
z1?Al+kR9n)fKh@`?7DmKTDQ;Nx#gOdL$6_ri-sS`oc-q{)nd6wH*B}6p}~~ubp>eU
z%Vy!syX#oN%MOO<&$jP2=zh_ja^)|~>SDoqA9O=!%JO=#+S=9Ns7G|&-aO}!^H^JJ
z%5LduO)G(bLOg`l5En(A&=jtzv{5eLN}Anw*Ie7uI(ck_lpif?e^ml-J6Xy{;5lR6
z0*S;uohnhXL6m>j#h@nbo$LtzwS++No(61_>>Uj_pg>Fx<c<tw4>lJypO>{~S?+0&
z{ZLZ*uH+xC{@*vaTDnPWp!`yRSlzbLsl;P7vMi7nGU@4<DIx#lrTqyAS-GOALFfE;
zDy=}L?h0}&h_Zoa?j=Bb*`!67Y~^zABH+Fi@O=4o=l8;W3ikV7OZ?Yuc%_ksl*|3r
z1C2H9jQKevhC9;;>fI`LroKik$^v^#ZRC-T@iE3M_Jj@PsGRPwI^$tlP|j_O)&N^<
zgv#1nA^3-$Gj}tM@^U7jp#CU&!t7?b=TT}ZYh_UV>%ZGrhw=--o36CTr<q_rC1=GC
zS=~K=z3}Z?cig3=$B-QGtJy=)BabIt|FNVBBX{9;vB_7cbsXC~SL#YmwyBdYPs1UK
z9}q*>$%<4=&_b-B-j<?KRzG%Eeu)@CRlk*+Ah`sPK)kS&pTH3^(zkH)5;y=EzT1^!
zLXIpwO1w-t<g=J3Xz)MYEdSv+{Rn!_&5b}4P`Mf^k#~;#Bj^2J_lW-c2-E*WsZ6@S
zHMYJ{^tUcDg}wZ2cf$m#783V(@)P7Cv@v^f3c73fjFO`&nJADc&ve!n?rOtnMg-PG
zopF>pI&z8u#=2oAp?d>mp_){$Cl)6mG+Nhat!h*pHsam)tVAI8a?q#;l<gc98;iwR
zA9{zLg>+vCjp7CawxIu(tSlUV7_w(b@a@Ft!Fg<YRHS(twwL-dqXe3Aap{3aw%s+$
zWg|T)6-|_y%al!FW0}9TcUy<fAND2ME`5On+bq3+*j}hqXY{1a-K@W(tC%sl`=;vG
z7&q?B^fp<FIi9TAJk%(1$S|+9A-{uY*;E=&B?Q?*Lw&IRf(<=r@TH}<39}987M_$H
zO~a4J5Ti=JwfFb_Dj9+zA5ZGrO;1vF7{NCxq3qh1NhZkaz4JSd7eq>`?#NO`UPS1(
znqa}Ub}iMYv)IkoiUJ~$Sn#zXWR^Wv;E7IEZO~O|t}n<JN_XLfBtLc(Y2r@=myx@!
zV?Ciu73}2$s!<mA5HgqEFMdm~sL{^Z%xm-PJanlJ;`zli&Kc`S*O6geG(>(#P~En4
z73>z_h{au6N@g$j7iLF=NJ)=B^fRzg5-fvj`c|l~YIvOC+<96Cidp;iG|Y?qeAoOF
zOMR@cA{E2nm1!wCa#h#c3&GmkH7_ouvzNMdbI3-FMX1Ng(1+5__-yHf?;zaZSH$*f
z$Qqe1<Mo&9E1vjY9!UQu+5a!w@E!8YA5FeLy?m!B7St<K%yV}$qc<F}2Tr@q<bsK^
z9LRLa7A@4X$CJ-wNZkYxsgi5{C56}MINlNKNI3R@D*4ra$Q$FZ^eoR<LBC(#x}Cm7
z>;E+TKjTMl22?-(1Y|Jp1{ac(HfOUm0nvvzKl7@WGB*CWTC;JiJai#vayRry=49S%
zx)_E{g{<Acl2iwKqGx4;x*m-wk*w6#CLpyX&KpOlbV8b2*5p>Gnc^|DOqsLpMY!$9
zHW)MLpUlZ<1ol$2d4K3Rtb)qgtN~JXfRG>QQy^&U%cb=f0IG!wAfh70L~)v8pNL!{
z5KUkkw0&0=uxgN~uvrb6&KBhX;DXGZ^nEfzf*yJ&%7FMo1|R3xlFJ7~;s|U*nd8R3
zCo~BRJ5=2x!{+DekjNpyT-y>3vNi&#*LR}lL4q$Y^|f(h5pTm~LaL+&K!g=6!&Cpd
zd+?l{OtiEU_p6S?8-}=JG12Wgc9s(<*KZmn=3s-s6+}wj<H_2dj_p4rs*-&#RtooR
zZnI&5(;DXDH}87CX}hBK*P7Qz!NQ24WPLep@>BYRJ^eaX5!HLu*(poh&UoVJkqswN
z^^S)H&|bFwrgdqlRm>mK+OBl_3IUO`4b7ipM9t)8LX6Yq9KxyzSjCW>p<&e=z0M8)
z6i0WIgS7Mli9%o<`<<qupc|1m44=`wU3oZgsOVj4>`KAQcdig}e(P^D5c2$Et0UPO
zt~Iawh&OL_>h@3K3B-$Sf49*pt!T5ut~1$aZmz{H!$M|_^~11kQ~iezA3}kc;UT;<
zG#ZOmj9ncctU<WB6By(L%53PneU1<Y8f#M3`djM7rN#N7+L;d)v*8Mq`MdI(?}_g9
z*hx)jqo>c4IB4kS{KO+qff2Q=nw#Z5^c1()wJGS5J~XzZ^*1%uwM@iN&D6IRh2UyL
z&*wMtS{>H<Bk2$|$XZ~sgIV6>)kMY63w(e&*pMCwSvQ{G7Rpe8E|DP$Wfg6v*k_Ht
z?HP(ulaI@45H4;pi|@#bt>CmtZ>X88&l4J82kt4D8Hnbpx|`m(M@%H^Pk(->WrHQD
zkb{#Q0GnK3oufCUSNk<$R5Td+^=0O?aF%3?rK_!d`y;32V8@1WK4U0*dQSs$&MH@*
zY8`b3>jNe((?R|H30zeM)6p}RKx&Nsgg8{pMV8NvNK0ZhtdnJ3!xzZFxrQItG11bC
z-X*rz(lN2+w0=QD_eabPR7km?H*^XSo3$i#rbna=^8u~}R2bToEEukcA?Vok3FTls
zq<g0M{Bh-<nTsP3LEV=Z4_$(~?D6PbVt=f={%}Z3hM{pHv8xTNM4G9G+RUkxPD4k+
zzR<A4bzw7I)af}zirJLKd!xpj$*Y;};m!{`voE5$^Ov!1weWr-W(Md#&QJ)<5F@eD
z6S<_^)bWrq^T8LYIaKA}eKah5*St+=Um>_TvSZ^>Jwr4EN&Tv!jGHvKd^KAK8C}qj
zVA}rt>()T}q|Nc29Muy=v3G+$A#<j-h#OYB)4R?o4W$j|zpJ@i0LMO~-2uYyO3zD(
zY?%4wP@m4qmhp3E|9KZ+2s>OM9XE>&nzVa-468VB&9#VWSRy$)mH~-CR%rBmp_kxJ
zU%<9pYcxG&+hx7xN$?44Gdyi8{tUJwGEqv{Nti~puS+g&>8Ynx4`xc!>7q$lqw{U^
z+RNnqooNrTZq8M6zf0fPT%NJV7U05WJK?!yAmf3ms+NbQbgec{8H4zR&n!^eKh9?^
zv4is5@<NYn0!6~w9`;?wlKfZY7y2NcCB3}a<kzx`67h{S#WAM-$8|)>kcbg4C3<1U
z$ZLCg7o^JEP*$=kCq@Z>V?lDCO)e8+1)j(E=1b5SGY{&IPr(hh7Y!er`~zZZvqrID
zcB`!2Mt91xGS4}Wq2az!e_zl}9XTFxMwV{!>ezL0iIom^4T4nE1D>iKQsy1WJ$n0h
zP+Fy~ugA#VG{wx&?P~?sre~=~flJ~3Du$;R2hipbHia*x$ojw8W9RGr2^4>*Iu1Le
zMz+H4#XfsBiF`sEJ<3?qouznUwLpU@jw(?-k7jGi7zZ^5(<jeDV|5st(-hNgz_H8N
zm}3k&Hs&;=x<wxy#QM_~8)UQ81I>Fjxe1zLQ+aGkQ51<4@bYY{?n4q)$c`6-Vt-*&
zP)89^Aj8swjWJ;OV~5L|g|)?RXLJCyGc`ZP7*&gM#D-ao+{vgugsbUlzXdn4MBviW
zKD3%4tjU_VN0S>=N~(<^iFk3%T$GqTyApADC@nlml*N5ANy92$TN|0jx*1%jA_9+D
z(w<G`f&*GIu_lq5r|35oXFmMiCSm!cnVewcrVXc0il7_E8ER=UhK%GEt|j4V%EwY(
z$&gv1U%uyvUy@(GZSHFcYnT^{`ec*j_tF-m-E$=8#;v9aJ@6}TtS)C(5IOxG-IG$}
zlMbQ3y#2Rr%z9(S@~IK!km}vI!rPWzhpupmkW}TewK8KBo@9GCB#N_*6MF?ayS;a<
z=(1p~2NuIJ(o)O+daydm#^xdzD6fEe*QV0-$9e*X>FWypuLOVYo(*yZ>i~a2#&Ns6
z^sbd(6otT9&|gAG+n8eV$M6CNYkEMRuosbMQT2(0RJW}9RBXe-AoA`5RL3Owl}M>B
zI^K*P`%dX?dit(u%j?TSpgAj7R^&(Xe9K%WJvfQ7SA%uIAM<tbufsgEn9aQ0r(frj
zYWCrrIZ1j-1vS^rpoqC1OZLwis^pW5X3&CNT5D7X*S*BY-#02_PXo&5G-)S0InTm&
z@JwzMcC2h~f%B|gEoxWiH5w)PVCOZQ(M@i36imp3F6%sfX{OtB8GRcYXR|~}C%sTi
zo7@jXmwc@ObLYX<L|2yO-lr*7dFKVf^sD<5i(;ySjxrjLd+x;d(Xu9C1>B43PgA<t
zP$IDu?SZvY9n?}W%R%#~X6h4R9bf7{{Y8hYd9{JXqC!PF!r6>1D!%<pv!hLHh|D!o
z=xBS(&_|<!=b7kpNVB^O6`cz(A3$_Z4#Hh~fK^>}aD{sOuNKGqvjLGsw5?Uyk9r*U
zRF0d+3yXNwL2mRIc!t#ju>j)lz<J8w5)9VCt45{<6UKc$^%<@_cbEb^j};H`B@{Oo
zu-kcQleUM4i;Jw6SgiYIDA&d8m$9fGou}1is83z+<r6$Y+O*H<OPIiT@=EgSxaQb6
zU$7wfCKz#8)l%d?_3*1{|M7ZVhQe>YIPKe))O-fQUI`Oc8z7=myBgtxCA9?jbnk$^
zI?YVLMzuBKuPv;kcd=YNoR3GGy*NW8=<UJrk|tPs$F1MJDiao+1&dxs_uA4Vbj^dh
zW|x8wc3*%h-ag*!+HZN?9%Jgt<;7+MLCl7(S*B<_G1X96JUz>*+l8Xqx>rA5?XaU!
z@W`a;YTMkPx$3ARA|~UDIMaE-ZgWR^jn=?+dk*cyNX#8YRm)mJshvM|V+PhnyZxu0
z&8PC255>RDnnvFn`WpSi_)%wern)G75c_2LUYUNSuieGO*pfM0y}nP3S9@`1{ivr{
z=aN{Z!G~X0*fJr^$3VLDcuVU{R$KI?0-B#rb53vSM-$b^G~r@Y?8{-^aZF3p$4OMc
zeqk?xncQu{BRCTF7DO%Bsqs8=X2_noNquqIJTqO5ocjmVpGRKzT}y`YFXNB;grj`P
zU1nOa4B&qu(dfamoQ=vX*Jx!YB)3}-hiXZV8KO>H#7w%eP?eE-&9aSGrN-bo=9ves
z7FpjnTFj0B^lrZoyVYzSf5Nl>N^aW8%Q1Sz!^y_bSbc^7jQF^c{Z8^wmHD9ickF11
ziA33X(CR758c@@LVj>t9wcyzQ;G>D4BrTfMxjam=@gqonr(gK?Cdg@|#2j@ElpRmN
z#+22@3_&7Xi{~;RG>51S1%z&3TM*l8EikdM>&qWEYp9j$xn{mcoSb7lla0*noMVR*
zTu-}m-ukn3l?t4bqIyKPW3U#{?UKC7r`tHs3cWuszkx(pM}@5mTU}3M{1zoIps3Gb
zq7#x)zz1aocBBV#6rVE9P$R1yVKj<O(lpuDT~HmBCt_Ch#pU}zBE9t#ag%-2skqCb
zj4eYaciLVi4+URC{&edi_FiR-e&0M0-JHx8yGPT|&}lWB(N`x%36^V~z*q5jP12CX
zZ|%xo?4}3WmK+0n*9shFZI<2RwwLV1MfKlK^3$2Np6i)T2d;jqF=)Kl2s^A=@(1G0
zijS+qdW;-&dn)unODT9-F&f$S>r6X#?!qAz{sP1t7h3hy`I?#;vtJ;&92$iNyfbTe
zSO02TDj>CR**3~-O*`Pr4LpKBS@OdfWkgrWvf~qqGAm?c;`GHNWaiQfiow_|6xK87
z6?H-{D8|FhnVaZr_`7#?qOWg5c$r-|3t=02Gea<ufoa2>2Iq+2N7a2^3*KwwCQ%j-
z-N=}chyP}YVCsVsMv8%iy?1?d<~(QOVRrKJ&4R_j^rh<2cj?ASB)x}W-;fYXreS11
zdhWu~>)Tpa%QGm8QBfHJi3VU90f$U<yUp>w)}=$fYuFQNI{s(V`um)}+Bt#%9({3i
zWF~(s6_n&eBJu#Ul=C0@r#Zl^A6dAtMzMEHK3w1mi9+|qR=8hYnop0)rvwhHDn2{8
z$LHoq6=30~cH789cUdo0o`^U@xHV)H-9twn^<`JR#6+@;d~FHo_3cJec;c(lFv56_
zp$_;#_s><VLx_`>h+ch=<zR7fv7}m<dP*GpjdM`djK)$&-|Vwd>~OgoQJ{m*8FP<r
zpgw`6c3Xa4?z%|!f7zgyo5q`1&bVDanspkD$bD(X!(RP-YF5lq0YCUpdzlBY<XMg8
z01Z|ms0Q^J?<{!x<$-e)y^nW<d$H2-l=Tt9)z8bXdmnaw0=ICMHCs8>&Pa);pZKcV
zC^6lX;wNSrZ-nbGDj%=@bdr$!QPro{64T?Aj&b3FK3#8npXIMRIIwddAZAy4=;yIQ
zGhaWA=K7BZbFq^ssLciF>!7b?RVqNi?HB>D7hzuy^p%!?0SFa10421k1V@y|vbouF
z_RapuYE*`>_fi4?H!Fn9pwpIB!^OzY)lq#SCW7zjR}I+QFjk$H){QCo&j>I+;#xxT
zNBQ4o-Ep7JnxCE`5apqK=+bk@Xlc5!#t1lDhhw<%7NYMbwqf*KL+-jFcJKeZVqP`O
zPrdOCq|*qPpNPU{-zTUdOkr~%I2kyPfkOx*OY44p(9_}K`{^I?^iq6;j_=>?4<JsP
z$wSR>Q(G*|tJ231vy$tsSX&sUQG29;``&V5dEw&POVX}59baNE^;%a2;&_-F%t~ET
zHR|`}PUVM1B#WxvVw;52?uHdY+PKeY1q{dAGiRp6bL6(fcfY7t?o>&#Jb%%7u!2MJ
zzJB|hZ*DF$#ie*|8iFIF$1QvSv_Z8iA7f|qOu0MMpEI0p!<diuU2queLLGY@F$`oa
zblVY<D;!j>Im~(HkEcT=;bZ(mMHPFsgJQO2zw8R=(Fs(aPCK1~q4>jMx7J(=yT1#J
zQ(I~CObg9j@ZS$)lMNF2U2T(>Mj$Px59*l(ceM2vrQQ&~<q!Sl+ig>8xma@x@HueN
z>8l-=Xp{$G0U4rRc!`K*q9x{3C$ZwPWxfY|;w~oeWtV2$)>{m19Xxw(Y@cr1X#Ta0
zH%D0p(23}eaW=ljxZqpH)~xg=1({}#gvV;w*POXJz^Gr;jbFG&+L>GgD1IWN_|$aT
z$u3MZ!q-?U@Fv(AtY@~}&+yRNpPPK^^Tw2B4DEB%YSi`b99A)7e%;D>rcCf`-=+A1
zn)ad3@U%LHb9LgBf|zs5Bat#t>|vYRKMm+P$v=Igy>z8ylb=V=fjRMSy!p13?yvTA
zZ5`nS-&|4uucOt*)v)B*^Aeo;P?Yb(p_^?Pr6vj+z)ieYj-!94HCnFK+qdD!`588?
zuK;}7Z&YASe>I<F`=(Ctb>j(wN_#hd+Bbc5{jx9B-MP_N;F9{z%r~w&UmVa=*PWkf
zU&EW*U)z&@bs{X(cO+N0zr=%<I?`05`m!u604D6Ue(Mhi`$Xd|6o9N30Gge-jtVC)
z0zx9}l?%)ND$lP{=TWQg2#cBll5hLw;_z2vQC7Dl$@*c}TNhu%*~40AkQ#{M<7nTh
z{>`J=$#F|@Zoc9wc)FzX;#xl<#C4+YT+Ftw(f+T$9!x$qJ)!piV^mQ|Rj6qwyPA9$
z7kD>ffF5>uAXU%$v!bx4jelfxsm79dE@oG0si%IkYp!}2Yj1<pEB;W7{LQRtm~=#d
zdIiUDj5rN?-Jvu}%2lD3I~M?)WL2#Jd1zNjZ$!tRJnM(v*H;pspg5QP;_6H1f>1Z@
zM+`hx%&!c#I%hAu?PWt7pHA@`O<SrX;IJ-cWIw76+14hZZvUx*dh6zIX7_HBPqA(%
zweDNK^|aTFO0Mk8O!Y>$1pZ=Hl{c3A*6_9I)bthi3m$rhaHrIHih9rI_@yR^MNxkx
z=ym5if3ed)gma#EwEb+<`_c^Mj`GOyul98B|5co+DJa=AeKGC89On;l)i;L>m6o?(
z4yex#XYpp94W&Ohw%1G_@DB?*4~Xxlr^HmJZ9Gq?{a7fjT1uYd`oB(D<~neM(HCcK
zYiO0F*BkVREQ`LbmKFmTS>$uND=W3VkY6I?wZ4Ox>m(p{`RrL-J4@k7^d1~6+xU^c
zFPohM)>FdK?K#4+cuFko8ozXR&0tMUcRmrYMJe4U_yjseiQ|H!5R(D!y3i=Zt0FCT
zDV*m5+~t<_@_KjAK2>db8^HTD7mhVCWt??hXh7I5r9m69PqZisNc_0Z$u`54Q&5j5
zOO}44rAeKb%F26<S(6yh>spQN{!_(bTK}2c+RNDy!6jWJRWdpw?T6a7HvN`|(7fKJ
z@SzWuF?~Jnr22R`qJy6Q6=S3_)p|_fa%cb+;oP`Oqi|SP<l($lEqs?=KWOXoBIX*s
z;gY^H5MHK2$;M*F@d7(R+Y-6r_>|Gc0K^=?|1XSV$XX4=GYi*ijeDr}Gv*MoRYsb6
zPTKHsUyt{JNkzP(>l3Tyv!OUj@@faLX<3{@DFc*&<Ct0{`Sea2=D5CZMJ83Q7*zO)
zMMOLtw{6Hw)0+NeoX}UcoHgAA1J8W$u`}1hU5rXID8m>0Abj^?)Q5)Rl%>QRURez(
zI`uXE^#NQB2{F-oJBjtz8bp_B+s$A}F4c?Hfmr<I@!&nh9}82WGWRq9(|#RXHC!RW
z_@##sxfT%}Z6qs&=yivxdgiMdNjHUEj8r$P>LnqMSpqnZT$Tl7h_?ZNF}wVjsBkCo
zW;H6=iaD*j;UPFbpWe2F#?BplnZLL9Mv__Dr$f}r>6+0;OP05uR!8lU`oj;?On!N3
z_i-OwO0%i5^-?)RAM~q$pDt;6H=bhxv;H65omp5@XSaayr<Gc3dDOOuSop0QFan~W
zATdDE7T63y5|l;+6o@EODhL=x6^B|G?9RX>Pzwo@fQBIk2*D8(CJ_ijAh9JO5`<_X
zV90c~{?Bu+&&9bpXW!&%?`N(3t$b^G*SDWq@8_SL>D+exKc4u{hD_O*iR*sLz~rZU
z^2#paP_zDKQkRw;+@`82RJ~2f?}Nq|&$)7JWT}3~u*jk=W_4Q$1r8YK|2W=+1BRLQ
zW2tadS9Jq^#S6jqru#jcC#z3iro$}7t6A8&v@106q?qU5tX?NK#kuX{+S4+U-xQHe
z9xF*2FQ|Za-f4H~5i{$#NH9NO?u;8sQvZ{>I^&T>MQ$Q#<>&SN{WWf-iIv6Gv<&=`
z2O^vWx6`d54N*3|amz1rgQSe@_^fs#OI9?`>`z0CC+#*x90KaxBxzaPpN@0)sp|nf
z)#377m2Jgg__;JqE)ebuS7&uD_;2Prk<Q#9M7X89C3ldP`=M)>r2eIaKe4}}NB3e=
zrfg|0c*WT_Q`Qz<8ht0cLI0`e_y4Ti^uMdlo((C$M6tNkZj{pytRDa@&Ym@^Oben4
zE<{u~nB5pY1#cx{5p*K7R$U)UW_v+QD;G8+uM7;sb}W&GmWjhh{VRO?nyvzRa>5DY
zXA9kcGyTbI*ye=w2Dwpi^V7hfWziR09Fr290hTS7NxEGuj)fPKd(~{}8DCi0-}RI)
z96Y<gv5jKot<U6*<PCE{H<6T3KbDDy#+DEr#O@TU_-#^ull{cq=aSYVZm_E|PAa<B
zwb9}Wyx{=Q*^;QdB5;Ur^iezmn$U_dFyEIE{g>UpE^d!6IS(J%$&cqII-FUG<N&GO
za8KLbpGZpgfD3OZ7s!irZ$H;MhRQy?YMpvXH@n@V%Y_^Mo+=`X+t;<>k84lKrJ*EL
zBD7)6#XxVk!xzg+hE^<9VLqGwc*hEc*y+9cl0;jl>RjXr@5Bt+o55hJ9^iT)v>h}?
zQ%uMG?vb=O=y7_lyeR50ef(QQQ!=RVdZ&X=D7%PQq5wD9J)to1w;lhP;34A1W0(nO
z!DQ`~)c1K6)ZfpH>rG5|bNajOy;6xwm;rZ;C_nhP8e1G$F0jGFKh(uDvJ(;U>v8$=
zV5=!=Tbz%|>Dj(;$Lgok%^7Z*sVjni861AM&eEW-a8$W|x77qitN=vbidDc1AcoQU
z+Q>vAGq3WJM#KsxiFs@AD|NQ=Gk5HMbave%IS#j?V40Dx1mJ+oPA>$^KK_}sL0)f#
zM8kR4eKuYS9W$A?=*`-!ayA+v)&rbkF&0tTo8SjVWbNRllTdcO;ElSx+*htYa9!BT
zZ~PPw)=1{Zsp2`%tyo+VR_b0NE(Y6Hcq69C6ZU9kLkn}Oa+)G)TB@N=x5@~k@l$sc
zYU$XxsOKnerNcu6ohmqs(RYHpnqIXPF{DY8Pd583%K=~Ubz@*po2`7zYZr$T05RzR
z5r!AEWR^>C!3Dx0ffO^!2UgH3QD!zIw_>$37nvl@S>A>RvaeQOn{;f(dO{Utn>q;A
zL?WaetC@KYa7f~Lgz_QG_zYrZ-KT%c!7k5Lg1Z;vSNeoH)URdQiRv+3C{D#`=Ii-J
z$H#S0)_n~Z$i5}c4J$jC9&i4vhtWyMnKdmJ-!G#oWh$JTMFR8E68r{F+FtX2YbEhl
zylgkA1}69navUnMtUauR0#cUDjqV<2CR|=AB3Dgd65orHdHm$_(E72n^WP%YT|$Da
ztaI(t$R%TSO~TA;o?M@vm+3~sWU)V!@9f!En<@mj+rh3Ak!Bo<PI@L$sXT+_`PcC4
zl@i0rwv96f3hSs)Mvi%PHNfRJBU3`4j0<JR)F}LA&6rWk-z>wn3ZYXtHZmLSn>fC8
zUXG2NruAG8fwgOmP%$%Qlc{BCtF?>L^jLBQtk*T=E*vp0Be4JDFv7_=Pw=fdg+hP}
zK2HzsoCxyY!Y6)3dd1GBdd-Gbh|T90ajsspT<`Bkg!546eMN@(rp`+9;i@o5@q!%K
zn9NiTB+Kf`y<m)mhN~X9-hhn`ok14X$*eAzU?V#Ddyg}aDHaWZ(r*!!P(@hthLz*d
z>JSY5_u3Bk;OgAnO<OG=3Z5(%21Tk^<e@38Y=Tf$^d648wb+<X;=U)gMq#P?>aLJV
z6fAJ==+1S*D!<fwExH}6WK(k7@%D+q2;Nvi0hoA`JVafOAn*xg;vvwjD9`$W1y-e|
zA+YATG212c^3f~(_H^LHcbHj@>#3u~R#0L<!-x`VIQe1GXJQFTiU%%uxzf3>F4#s%
zo==B<tY1=bT^_GOlaxQ5=9pQ=_x2ZzK4m*Ca_R<TDT9mH@K6%6P)HR&MK~Wp?Zor0
zT_s2HFM;O8Vk1htmWxbo__m{&ggU?#;@oBnyg`gT1?TgZ9Id!au9DJ$Qf#Bw=z;8n
zvIV^dZHfYxmnB9%v}4DMevs%T^_0Yl1?(8zr?{!HxxcNAbIi8M+r|3p=c|=3=4-Nk
z{IzGR#F`jqof&pCvyL%v4;u-;ogZyH{oj@!$LTFId3OurCc|)g?BO_foclwy8HJ<$
z_tI=c!%USAJDBdb`5x5{?f}?q{-zR;l%J@LexYH)85-Yg4(4B(HzG^E%I`7UC76Is
zQho?x2Jym*TBRPLWqwE-?Piyd=0xPxkS31Je8~tasHg3&pRJsYX2o<2Jm-~aj=G*X
zI`I_ffxUpM&F0kD?+XM+b-J9puEz6_Kj;>S$X?mcvklVe;9MgnR$U)SJjK^vJYCrp
zSevfC$cSx?zTJ}o3BndqcS+=-@VfiuA)SK^3}ywXyLz?sGrtTj@)X&5<J7vVKvRGs
zU#J|0rX0DF4Ws&ciX@sg^&-};147l_iBI`Cr00CAZ106rRQY+%WCWzQ=326)*I}MH
zZ#4ic9!|1zwp2~?l&9Rb;T-y<F9*oRAa#m4n-<_xoETxJhs2XSrE^vG53ARJ>>y$n
z|Ft?gm})_C7))_b$3&cnm)1-Qb@tV{vV=#6s3ej*`i9&yPdSbrZmY*Sj<B)}x<_uo
zY~|WotL}uoFo0yKIz&*h5YD$IkrAcTg#4x7g~|Zh6uT>&k+5a-NuTvvGJ6kKYBsgp
z5<64WDB)5hoNY%^f_)xEb90Qy94ow7mezF)=N9wh#FC$ybspxIc4zw9by#tkV=8q7
zl--1~IR6G+Z`+id#0ZybJ2Sdd3QydY0INAMWQ(f)1v%K<(}Bb!7a4~?%Z#hW3&6xc
zylQzr&#-%B++hx8BCt&*dmdyxN5W8o8WCQq?I2e@vxYLP@B=&oE!U}j<~L!xukvn}
zHU7$U`F24YH51c?yiEok4s4yzK;@8rZ?57-wo}>7nk9v@Sy#ig)Stk0NiV{kTX0K*
zw4JBeW03%m+zY?MM7*mBD@*lfoeNDaACvuAfJ|!R-v~_xw4WRDj(IgTmSavfk(aIT
zs}!2?Ij4rz;=5DTG~;cusgtp;@dSM?+1RfH!ww4{VFqQ-pxTC87DgonHG$>^^lLEC
zv*-DJip1h;Tn`J(_fyotz7En{I4{31c0`2V&?_#s*M)EApd|DVf2&kdl!&KTiET_m
zKaMX-@i!lC4U&G-m>#V5-PN1pIThyoO3r;1h5ep{DuiJX61aH(Qu1p5!;quaDWiIB
zs3EV>L^_%@%s(4GdhdqnT)cj21K-(uNjtq~*fIB$K?ILE%ZP>sk$9LDJ9$gyU+&4e
zGfV-)$PSO*gduKB7~_dQ%{(S$AS8>g=a&M}y^8k+M%Jo%^1*5*EkW^M4oEWDm+WU$
zYbJ;}6n%$K%Qcm<TC#aNWpM8p&Vvdf1p<-lgXh<RNaSSC2FBfzZ5D88$Y9S#7%=Wm
z%lBdBXdwCiBT|159iSM10YTG^sfVc2V;P4aX+yK_DjdpWzj4*m01I?8D3p0KB4Zkp
z)N7d{I#SEYO1&?S9)Xutw)a3Ap_cM>gRQfxL*g&+7MOLA>%o>JK`1wgCss|@G{yOV
zVY{m`jyN>by;B$3GFgj}A)bzN3xuF#bH(GH&V|PMe16xj5e)_xw|@-J=7~S!RgAAv
zhs!-us{1BZU)c`+tSVVE54R~dBCrO4WMDa)G)u3T3_RPLiIuO7aCd(2{7I1XLnl5@
zv0{EM{qeTp(X1~q1o%q=4IjS|kP<}%-o`T$dDpVgcWo=W9xk-vG18Y!%UQx(;zfkT
z<=cYT!ScJ?7BY^|$MS)(WvWHdEMeC9wf2ZWKscT(oImJy_uJ_p|KBQHYdsCR_W<xY
zky++sF^eMQl%Adi7NkA6uAJ5FrYOY%oowcnS+}BroleOt)M+8p!g5C&kzH-^LGN1H
z84S&>HF&0#s`Xl1$53SZWOy*O;=rG9-O#=srGK=RIZ8iQ;al2_DpB1uMKR~Fu(1h*
z(`pt1zwbj$-PnC(QiBs)>jZ<37Ho+u?@QA+jTDKaHUCS4Etg><zc)Dxz|G!@U7UmN
z+=>l2Q3DBOljGI3P%18GOI%Ge49nj0P)M$I+Mq?Tc;>7XS3U4CyWKWkJv9qtPjoL&
zw(RIlt;qfnI=GBr-V(21X9=MJr9CaOL7QGefGJlnC|{nWkcVa~`%I==U}4i4DCYb+
zoc_S~72?(nan1hOLAWe}tly^7MRNF3rCOua2nRb(zfJ$ksZB%=2&NX??p}t^X`o1&
zt^QkV1b*>hB&qWNzH4A5NSB3$Dh3o|66Y9Sh~o|J=|XX*84C1!HErtof(@?RYlVQ-
zdty6ako3bZa@C-fD#}y8YsuYGg(j$80q%aq-$k5#BBGMbZf3d+yQVoKc6_Jj@Rab@
z{37i4AwJM!sZs;>cLT!(J?FV5&8PzTGP$Z3%Rq%brjtLLG=e%A458!o@nfaWGI!gZ
zRvj+Tk}{kuhq}&pI#>5KX-j}`!pZdbgEm~f%#MIA&YCgCHsVHAe-ZwG=U&2YiT@&R
ze5Liw%dW+UlnkA>@T2O3K~%ZprG?a?L(uhQ>LBk`pd5D7dya*J;0IfJu1tU<+J1fE
zcA2iywVo<F9y=mlh>5FS9WRD5>L!n=)IE&0e$WkrSeeKz7rP=YFQIDs$E=A-5*3&!
z3$aK0!k$~2WjMKFLSf|0*0}Cm%2(k*o%Ev9zH@%0w08%7;O;jY=hq^*C9NYa1@MqI
zLVtU!WXy3fX|8;KTkHD^c)ZG3J;EFsXLB%FFZO-mjztIvy1(rZ`e8E{`FG8V*p;L1
zqH4{{)^~<>3E7qRr)n~7mN*@rD$ra2Rs{Pdgd@~1w=Tfv1x3Kd*jMO}00(Ja?k1MR
zG~SsOi`)nO7PMR+O;{eogqC~YVCruRZ_tT8kbXK{_k#RKTqQuvE=tU)>m5Th?~vFC
z!nd3{IP)uhZNU>aYs>9Rt!t9==8LQ(3CpSI#N&Akd*9-)sB_QbThC5OU(SK$p_Nni
z0MW}(5G!aTCoO(n>x@);f##(;>1$DSZc$kL+~k9_l0rJXhs|S_?GZbK&P`bAKYvgp
z#!Gge8(@7do4{ek25`Wa6*v(>LhZ+w5AT39dIY>_$L!_0S7qes-4K<B_3Yr40YKza
zEL!=S9iN@P5EC;|<{+0Cr4I(66$PdXu`i?PeG98^$Qv`9tAKyp$`qrEk0Fipi=~2L
z4!vas4^IqDBPt`^A?S<tB;FT7k7q<blK3AoD=K>zx1wqrX&P+wcd@cZvuejn9YV2=
zcb(ux3Prrj&g6NEXhoSw?oDWF7gvNwZvH2Bg5+SLT!YX{tLeZ%YW0(My@(`lkvsQ$
zOhWrOL9|?zo3Fb{z9Mun%~;&W(zdZ{SCT>?HM(X)C_HO5sP|UQej0A=eiG+ns_iO*
z&d@m>cw*W$FaHPsnP~x`o@keI#Bn%B?-!PCs!W<OYlLmrpqo5?TN2pWRQ4-OS6#xP
zFY6zD%vj;;-lIwkR0uPMj(@`#Rxs^}v~LUh(;S;$@l|pu2L|1fU}WjvguRl}e|)^*
y|Niwhdossx(?>l#^x@1MM?S%y|8unteDUDW(AV@U4HX~n0e?pS)OhIR<^KZS3j{*|

literal 26510
zcmeFZcT|&E+c%13M8^RvGa_Aw0HZXK5{ke$jAEpzGywq-=_LXN2qAzC$C09;N{fn8
z5+L-N5EKPN6(NLB5|9!JCA1JAgq%C^dEVza?|0T&-#_Q9^}Xx4*Mem2``XvO_HSSN
zYJ0<zE7s;>KT7{7A|fINx%B5X5s@DvMMU=8+P@EI8A*S&1bpnfWnum&@CiJdW=*lc
z$ALSSoWevz<Q@xtb|p_Qdx?mg5P|%8-Yzm{ehi*-JHnO4r*z$xI`Zj{xRxLOtS$d=
zhx$n26Q<<v`}^Pj@aJLn$^E+>4=+cZe|F*O&lfab{}#Gym*mg&9R;6`+&-Lo!sU=x
zirj9{Ny|@NtYlmGo8yg`CLe1U%*qs<Y;L^e!pLE9qA}coH>-<Kq|Gj&X#e^3{|y4N
zjqauE-H~0Z9a2a)LiuG!Y+h~~M?qw0Fv&R_fWG_$0+TQCihfmlORnR(=TI<vUZ<Ha
z(o$QCp#C5f>5lJSyzq<a<(7kjFXgZQ+0bD%C?YbRJ?14KZMk?La#!4fuMKRK*@Shm
zE3|ja3glmAzhJhKMX?+Q7Wy2&L%DZ#fy}Y)0ccK>%SaonBAOGy|Lo4a)<|Q~5&N-%
zEfO<{yi6uKXkzl*bB*$QgRqYs>TuR&JA^1C+nkIL&(BkJjKDRAt!&iBv)Hlr&@!4G
z0l)RtBga#%3FBhV!7dKpagD}Axw6~Irn-y0{#CWiVXyjQ8Y4@_&B1KB6r5vm+4WpI
zWd1}W655KG(j~iKS2M1#9Gs^R!@A<Y6uV&b_|Fq9C(i}fy$c(~Z+%v7<5`+z)*t3y
zS#X(LW|DR$Roc4@DHIIL(6_78k>y<2mSNu>T;BFH_bLIA8&asCS!z8xWzcr_V|<IR
zTOxEGC5_f&)WhAV+vo|kr;XwK;EQM?x}R}PEcWH~IoLcluev9|;Ah9Iux6LQI|=TY
zef(9iU0<se<~}!5M5W#MZ}qPCdlUIh-uQSV`RJel#lm|H(YY_cbqx`vx`Pz#c!!}$
zqqP=q#a-{Ol2^q&w;k(Zep{Q7Lh_r3N6y$rC^8zUxAC2h?!!0H;Mxj=+I(3I_YhH(
zq1*Lx%%Aci2cf7NgFjhqI1tCVvYULtttq>dajjcoQy$E?@pw*MyJvG-Y;BBuXsV3N
zk1Y+^p4f{Q#n|ZJiGyLk?P8ULl}VQHKPJRLT?*+A_(Dk@OIx5WU&}@&9*NHVu)j&h
z+gpCofMzeJ%{W)Jo2D(3ju`p|H=!>ruO<gpHY;S>x`<8mTU^{QiDnowr1}q#Gr&%C
zgmijfW=(8f_r9p7&Ea6%-nUt%BV3O#_sxl>k%U#ZfhEx-c<`Bg*1dQoQStElU95Y|
zJ*9l}=L_;n!5<M(eH49>JID3Tw(b$Rsd_H7ZJpuZ2;FZV0q%Nl{C0~a=0R=(>+d9k
zOCa$2;DJ|2JTF~rf^sqUOL_1#84S;(yZP|<V7OgFoOtFM^ILp!t2@@Cw5JANU>KZI
zBZr~;?uUaX6PWKNGb#%%xHrkv)J-s8`BGd3J7dIDnEX6U%;HDczzEo5*w)Usgas(p
z#GsJQknzr-;T!+Rh$eD$Zh-6j!hes-jc4c7bzC@jJWQ3=KQb*X3cy!eVY61M-MoYK
z2p^6rv*X<``>QcMMdp5*lXj<@n`_lc5$f0(m!*cVB-1Odo^1`@-Q$Ff<rz{#IJo2m
z_Y*A1^z)tkB85y@V$;cUFTnZi0jZkYGg1MiCOH2E(;Wr!ywt1SoRB;%S9n{4X3X}5
z*6tMz@ips!{ZbTeUQZQOD*Guu9PHdni<jBc6Gh+*{jTl_Z%dG#DfNi9W3#1r%@G&T
ztkT7SwhSfsLc(&dTOlh`J2DoY8x|D4kL5rpltd=(0cN5a>~Lb`-t#v8tkk4Jk=xMx
zv#+yZTgILj(ePa?s+jhy_&PLfOSUMu=^~ojW3Z#A?azH;fSf745LG3G)LW_Gwz7+)
z7$%>WD%NUZ!kb)7r*eI?@6lf4#u5j@0#{qd*xo%!3(jHwFJNXkR#wP%^Ni+`N+}B3
zmQrH+_W+<6la%6+s$DEVIqSX((M=Mm@@DZYVY98WTvML}<V%m-5vO&%y_NxNZd5>T
zQnut04b}#q8T)D8ReS43h&5WY=i4evJBi;U)$ShHdlFwz5q-0#f$=DmlGhLIimN+@
zSSWMstq_}_my`#qQZDDM??~wy-)vjf1O$R6T<@>Y?g@F>$j*uJ+=rhV8xI!9^AC(3
zzmvv`w1h9GOO2rIku@hjMV@a>=rPibz8kAZ?38tJ4QgxF#%lJ=BF?ibrMO9c*8@Ve
zY5Jbr*sj@Cgm!JLhc!B7a40;mDkE(p+rX22=;xTgwq}>oe$E|Pa`{E3a}UNuyO2fg
z=F2DgU8O7v6w0%8xJq<{Qhtnu&kj@ng6kUESq%tmva6!J<C#vT+L9lItp|md&Y9K3
zeyFHjF(#A*$O5Z*{UisvlhEl@<;#EBxSSJ$(<|g(3{GE93EQFvCQkZvkLOB)=!hPJ
z;IsL?iw4NS#*<(0tkw%+_r~$<CC#|p)kbm3FEcqDCz)^jN&_B)I-k&e!L@0QtUVVJ
z-1^gumth%|?YjBWlL&1KVbRAM!X3eZ*Z-b=1Q_*)eD}F*+=NpAS-vPHq-VpkXPnmn
zbL;f>UJ9Q6=Z@dD|3zd-!)<sAY-Bj3MK;662Jd%Ca-Ym}3WyoJGx?Go?cdW3?=+GP
zqy>zCedrADK>9o@WVKnMNoH_g9w*al@Td1$UEFV+cJSv|#r6ab0I^q%A5RWw*REns
z^D0;-qQ>rX5=V3q$Cf^ZgSU6h93(ekeZYI4)2U1C_Xx;UUA#}v^$cgmjgdZw=EAxW
zz`0l+UfL}(@)0a;;%_pS-!j*LWK)9X%NDb>ptTI|9@tI}a@C}k$CetY>tuzrt2f0N
z3}zP_r7wgpn3QgM%s9Nz?cCCGU2(R-Eb33z6Z5p!7n##y7WySMAX0b@t=G$KsnLEg
z$_82otW##C>rT6f$V+BUe74+JNmOvFbbWS6J2T-yEz+xJSv1xzTHP_L3QDUyC^~{E
z4@uY5+}wWrb<}{nGqP{X9ai#(-p#{;StHm!>ih^^Y^g~@+q$Y_q17-avyTJs=I4KE
zl}-=8uG?Nx#m~w<9)P9ykIVvlt3ZvLVImS&gRk0p693}1W8nT@<gf7@*!N&tF|6~w
zrpAn+k)W69F1=JvpV%5*V+N_PNIp}wctw77_fo5_=I_MTeOvT!Kmd=ffCyt&b`DgX
zQ<g^$^|6#M$~)^xf1u*dXC&}e2d~pydBZt8;uR#KHE?LmHMCS-x3Jg20N&G_kDY_w
zD)Ax|)~$Ts?pHFP^#NRG@H%`}x;-|!twJ=5zr5%vlYZ$smfk$L<GERqUDDln(pKzM
zd&!n{ZXYAl0O?)ow}sYDie1kcPG6Y!CiZl8&qgE~@CLK32-Ix<pf+#Z7@KKOcG51J
zZHOKTHKV2Y48Ve0)o3;A$k&^??y!qQcJQt6?VOm^;QGklD6J*gnY@J@6S{U`b4_ri
z!^o;J@;9NE>Kgw+#G#Loh1^p>2nfsukFdaudG1^9*f(3$Zg-;yqbxQu(l?v9>&r4Z
zMFN*22Jgv15=}h0Wz2|US2~aD0oI4H9iRPoY0b}nkdqyWV=I5qH0^QMJ-N$dRi8EZ
zwN<kX+nIU9LJqPHSoc7_o+mfg8Id?b5cAmf4r=GD4FQ6bi|^7DDR({h+GF3yMd;bP
zrBWlN)orzs-BJv5tR%SWNBo9jN1@){heVx1It%);ZDHm@soZ4+V`|-VnK0MJ3B@IM
zOiUF1i+2<$2PsjuQ|)0)dm0<=7*M}CICjj9s&ov#5d0wno2^swyfGc^SHC=5+4bXB
zoUtbtkA`=<XK(VeD|lzg2M47hEPZ;0nww5OY>woyjLC_ZSikykZ~&Ip-`U&-M6hwc
zEOA{c*WQI;njGkZXRz~MsgIkaO?J2`-8;Xn=K3V?mkf}4+{l?6N=0slZ;?l7mlKah
zKlJrRfkiXJ9Q=?T;kW-&K{CC|YDT<$l`#-qlnmG7KHnC&@=}IBnKF~We+YBqyq@>l
z{|dYkw%I9`5Mc@HOW5H`(`+)bWD$YvF>>Lc0c*%YXEf#kE+RkK$wFsf5D0<3dp`5H
zr+Xf@!lN-%?ZI$Iocx3=D`<bBH+69rt1SLdP{L<F>~30$w0BT&L9N7E=>&PrGtW#c
zQWCZhT#(m~g?1VAdQ#vEPgkCX`Dev+W!*!R`vl*?&$i=wsNnFHrot_p)gY(Cn=hlQ
zIX?C`XYDmEL}dKT_1C*Z^smha?0>A0RS_F&_H65GtA4wT%%Bl(%Ojy8P!ywpiHV>-
z3Vd%sR+o-xlUb(5vmJa&Et<wkA{K(%i1u_{AAUa&ehvBe(p$9LF*|+_CXLG`yaQ#}
zUu(nntzIA_!6DlL7=&Kz<`XA}31j0Kz{JV^2_y=#2i(X@%WM4WjQWFEF8E>WoSf0Z
zK{Cg&4%=h&aH}@^sq`Ps{n$E%KlmJ-=${aS(wL`9G^R9Jlwz=GEQXsqco63+D?<ne
zPnLGOKiF^*Q<$S)Mh6xJ<Q3K~%SgIi$?aP*&tRXcin{5dpwV1BQQ$9G5;hu!Z31s|
z?-tdrBBBlhs(fa;$V*a0<jnF?eDW3dh!y?(lb@TMTN{(w!O?imQ!-WT9(@iITVhg0
z3d=Q+;!2CXTj-Ydo^g9SG1-Im+Yg~pmnvpCwL9%wj(uEdH_k88gKc=P*6zkK$`Y^n
z<;m2|D`p~VgYhg<<@<gcYyYMo7%~3P>SZwnUQ7`CJyT&g@{)dfDG)<3p)!ATJAsdJ
zTbbM9(2HDe<A#&-*<MxP^G1ae&h-#>9FY64WxR)o#Hb6cRvQ}P$1=1Urfb9~El3PP
zx9b++E}KPmckB%ql}T1-8WZGzW&VG8ZW;~O%<mQv(Z3~oJVcFHsF8=36lpnplT#_o
z<3z?k?~fE_-wvs907U<J{<jc_^QTlEys0!=9(A(@@vtHZ*G!1I#9lt!2E@3vI9IYF
z7OUR$Onse2uEOr=)YuC+UnMbOX2Ryi19hYzPd+<Zzsz^PWiMZtyu{lR2a^L9>G}av
zcf#9Y?f2JBuZ$HK0(=3(wy;o-QFUAXdu+~);~cK;^3_Wd;e_UnGW=JDcirsUix2!@
zj`c~@8LZRYi>Dv=J0~J?GrMVYT7yDhAz5A-6-sXWEsDGB((ab@<DORb!s(^|{@=6s
z|0S*eKc|5S?Csy1Fa&Z4Igk08xy`)KY&kLqs64O~2D?~;Kt-XtF@XJmEH)#HaA0SU
z=?<)-bxpjXfa0dt{>ZvPjy=)Q)$2h!S_{6-V%m}wF~m<@Zi4qG0+xc)T*(TKvHkOR
zI9RfeiaRCrEz^sPo@NNLZ4uCKqo-|(<<GIV`^ladR*}ZoQkecLL)Z$8bDKL$?$zs}
z5r&W$A2s|f0r}05qe~jJG^~4O)Xu|rCp^)K=K^!1H%`63M_LEOFgDncEL=CmG!EbD
z5SCsX9>qm0%bz9h@R(1?7qVqNW7z}D7q%nvQJFB|zE!nuX^M=<_BY);(;mf42oW^K
z$z1{(>00ESHIF2AgVdxD4WnlOt97dyj_l0!epB2*@h~-^NFNVGO0p7d7y2c_O6II;
z=yx+c|HV00n;hc?>pGbfw)Tea{BMlh29!EajTS|@z{aeSLY!gVuvOCPL9ArLH8}y-
z@=8H%$*AQAvMV+=^BmEGy~8xcNIF2F^_#;6fPKA6hLC@e**(U!rvT*>7PiOz?u4LY
z%ewOTm^8F#kyc*v{v+7ADT-~8E$b5tqch3*_Cm}{)GTxYbNP<0%~98Cpeabrl01i8
zXWr(ge<0HF6Rni}mYE^*2dy9D;#lZNDJgSa2)h1dB85yPi(<ew&B1y<3t1)I*-e|S
zFW;&o39?g>@n`!ZsehR}@|!}^*Yv|z*d2-qz%q2|&9FMKU*E@5cq$fUdybFdw#Jy5
zUXqoM*1>9Cn*&~wyGQQDWhCmqHT0O$N_OQR5)m0%U!-mjRdM$bpz%iwUlG_&ji$ep
zHs0;UUpWv-&1`qH@yl^KV1tcm-1@X10KBDkX|2$d&~Iakq<X21zVOMT+UBjKdS&b?
znb1mxTh<YI3mL9$?{kssRAc7VWan_H^3wg0j=ky_*OYaax+Od#Q70+;<1UdqAE-?c
z&~~|q(aO&2^`6P>^XG=jl8o1f<d#{VX#_-u>+V3K-8AxQ8}l0kLBa14s*K`@b>m?H
z27q_C@ZZfthcy0a#M|fXM>~WtrNu?4Mps(||1HGujC9p`p~5(%O5t7R_K<g4Whb{h
ze-<iTiODY3SL91W&o9j(?3z|tsC#;}aFohFTOA@>?YNlE(?UZ1mHmJk2H7smsh0|B
z*&^eADUQ41s|tp}uFk&*8d?sU16s{DAUAhc{w-(_Njeu?SsUqIyr}IL>-lhbJ?V^4
zpgVgHEd?h6%Q3ifxLwHHAyY|O*yEpG?&bxcP$_8nAJs5$wNoQ5?GBZhl(;H-uV2}n
z7jiFmyoiaw98GuqbPQq6e(ohHn6{BXTQ|m-F^b9XwojAq!q-}u@J@|e2Ta_MBb849
zin!e0TRJbE^I3uQ?)Mxk_c(^5BIoxOI=Heijtf~7{7hwlQ$3H%;k1F9E0l3EK$q+1
zc4^8iC#SR@&!Zk%ih;dZzB$swE`^SnDQtZPJkcFVx5$Z)KvDr%hYKYSgp2&II`aQH
z4(I=ONk>L#%rE3Jz{&v7i3FPNrj^1j!+M!l$w+KxX-HQd^A%YIgR^%pZNAELg=LqX
zIw~N%{)0JCIgp#`BST9nc+bgI$_t(tuszuHTjm%!S0!1}PNHmG^UY-e?M<)DcTKu6
zjWw-f7<$>FmY-=8R4hVby@mNikt}pXC1-$*?Ao}MTg*@>mA}ffWKWQ48IF{qnCO*l
zD{_rYdccsaYgH6);5c!hd{k&B${z?^3%6;C8|?sdHXG+Qk=fWfdlh?4wBd}n*aT~b
zG^r@oslB~AP|w*fkYfmlXr6L-whNCPxdnOdLuXRzm<c3`xz4EF!c9plImA-EfUHFv
z1lR@{z*!O6cB;gqc9IM{tvJNKu6)7UIJpTRCMe%?!wZ94l;&#cf7{#)Ys)fO?|6Kp
zZ)U92!+ZI7?4kOesX2&ZLX9t_IL|?jIR8iOkOkKCM)+Y7nYEY9UBGU5noBR2=Oe&(
z=1F1}X09HuehD&#LO0}hiOl<N#By`>t}bemTQNAbrbEYU0MjJtfKXX*CEt6n&T^jI
zeAiwAo4@ebeK>v$=OH$(<qDfxJ~nZWETJaw14(=FEzHP2U~DhRioFVDJB)ovO}1>)
zV>dd(*Nn+fd$fD_Ns*Q>uEkrM00k)4jmNHhdUIKT&MT&J%K9lXLwq>)>-k=ap?9gL
z>79+YK|?kUvDX%)JW9}*MQWS3occ%}Mi2>(O^8Qa4_7}JvDm;^S0%2fPSbz5Su<Z8
zH99FzA*rD8^UlW>t)Nl1xX6#H{*!zMR&nEm7<7ooise5d*W{jCequ9^U+uw$#6Wk6
zIMDMjM{Ukkw43fMcb0isY|o;1{D4ps(aEQ?j>mj{${Ex+5Xo}p&7SA7B0sMp>|%91
zOPXwI=rIBrH_3D6(sN}gxGL{cP$S2N4*SMgD`?~V*<*`2VLeXa2Sgsv?*rGLFU*T#
z3fxz6%v%2A0aj%OVLoXC>O}4{S0KzE5s3@>mg$*9)gnq*Deo<RP){2E%KK=?<zV{@
z^Uw~)&@VftDY#z$1vbnkca1pYo@9SQpc&;^0sz~XDJknAVirfE-xxM+-Gu$o8aQh1
z$W?BSeiIc4t0GNmkz*Y)UL=HBvm4cm<pmvwYSsG6Be~cnd)6ZAcjT7$8A*FiX|scI
zebiN$WviUL&*nsYcAe0r7-a%(aMGB}#>BdLa)Dfq;XtV0jQBvKl#8>l=4BEBhS$#n
zWy)L$dvK{WM#BZ!u=QTLop+J#L*9dRacp;F;b>O~uRRI`#!@6MF5*DXi*qxZw^uWK
z1q~wQe+u_k3+4z=NCcje--KpWq~-7b0S!eJyJ?d4V1*DMmjRwZEr$~b7Bh%kh(Q-?
z7<~~M0FkaU>j@*OcD<P9D+GMw^zI%Z^uJF&!cofd>~c+O7Pwe#Y_CIdiM7=14Iv{P
zw-#<6GXr}RYvh2-9*(%ob|Evcjt+J5%XlGy(csYeIWUHZYcBL?h&KoCZIWz4unS1F
z?RFUoo7>-M+J5!<5>poC4f6-iFF)FHt;_QI%A;H9_I0J}YURfSL~)8e4r*!T#3*wZ
zpZSpaj%;4APH%`ZV}E2;kbkLrsVpQ)t0M<Y#MDH^z)Is^MhqVy_hW2;gUn#th2f5`
z!m%7k4x)JT2vWkB>5H(@QlLQ5gDGoX!hC=E`Krs^yZ}4XtHv0^nU_dtao*6OZ*JI$
znE+EgYD5$)97c|RK~QTiV|EClfzAX$aOA>x$b17Bl#eEk$RO$kz?*#dbq~$Lo>R2r
zXm-VDVVg<$OZhPn2Y$Z`fMqzKbB1@CnJ2~Wu~acKI-}7GPsDa<buN#PdlSyh_$elf
zinMH$k(Y`a37s0ZpCZdVP#q0|jQ6IorzpM&qb>cuMPbgxCpyoGcbUD#lnHCwyl$qy
zjZR^3EL)l^eRQ|g))USQLd2>fiRa#57ZFh#gkcEg3dp-E=;)Qo0O}Dmf15EvjO9;b
z`3^{5DjQIDpOQGv8)h?E)85g*m;M7;8)I5z()>irRFB*|>S5nL5w$p_74PF<>Vous
zvkdIEavAzYn=!lC#x-2Z<?DHgs4M7=4=U-d`$Sse6MtEXsh!y8-%lGXuYNy=IVj=L
zwdb+R&jOfRo(Ik=Nw4d64I-`S=k{=}jD<ba65^k9$@2$1t0?app};J=)Tp!5Tvk|7
z8UO37Lkj}?Tu_z-{OW^n%_bqeh<NvP?MRND1iHGnIFI-)hM(U!`i3{plu;xLH}jnj
zGOFW*5VlLox@OR8dNCPlIm{}doxNr(>~D^*NcY`nE?%bxzougghdIZKzbl)Z2LML6
z?ScgKH9gj{W~@j|IPlT7A0u(vWE1F7UNeBo&ZQb5oB92K*eXC02vFZEUI)Cp(14UH
zCIBdeW03R8TXM$aosNGehvxdbBaZUQOvpQh&;5n-8afQHcQ+#MG+3=6y6m{R|ITLz
zu*CPsV|t$%;$$03<JjeYXXaj#r^DX1C);9e2ldx0$wx61n;>o?v;V(1$m)K*4jgRU
z7y|+eN#$f4d%p7mZU+IIez3(0W7i*^6HWw>AnTnA%!BO;9CHuHyk%;Lb?V8=F7AZD
zun>1432<r<SLg4}e#YD)S7BBM^=I&;<~e&)2PAUpdpZ#QP%FbXbA5;TJf(e^d?01P
z-EZNuunZPw<!sktw19uuC}fo{gLop$EktVn`d%mdR|YZgdT^X@4YmN>W}pFR&~9}I
zA<|z-kXxd?in4~4n$2qhHGSY2dI^lT(ZFQOMb!(nrA0YG_W`GxNh!#St&Iw0_b{>K
zd(V5mTlWvwcd=RvhM`!%Cdl{&3I!QFGk8QSBF~?H{k^N8A?}etYliK(W{Qai1Pv{+
zzykAi$<4lRw1jeGdII_ZEf~&__p=lbh|C;U9Y;>sarOSa2diY~_LrSjX8rRvp`<tC
z0V|AA!0l8v-eQ+A6Arfvr$2teJW;2|LfKQ!6dseyG$v<Y>KqwCcXAYDi}MuUJs}s9
z%b5M-j0_jS6$+8^F+i<oRfbWC3o4Eg^0Tr=@5-2NWSl)k-<K|m1rlv2_Nh<-YYPEn
zZU(hG#Dd}5Jvo!>cCq$6I9+;i@Qmt~J$ZFCOo)jzbRWy>qBP^u-A;`cAGaODk`VrE
zo@fxl9rn@?=|A!SBVm~&I5HOrFR$>vAA@|;{`?yNUu;fDR~i<b9kqiHo0CGjA<bbo
z*e<qQ^tIfxw-N>PEkCYY<$r8iu;Y4aCv8p?ud8An+cN;wbY>SZy=+GojW5H5bR9>4
z3XY%c0<K$sM#FZYy<2K-*>*uee@d8>#wotP9<U@ozeSeN?Q%2DZydPIeOs8+;0)_}
z!<&e&@lO8J+@>a?W_=FdXUCm4@I>CmAp2WS`KOe*jMatgoVe3TqIjAgKRA9V;s*OO
z5CZ{Ll~6M=^9C5a#B)B5lghk6&egj!Uy6~m9_IL7&l<n9#v+R;FW6#wfn<PIy#6Sx
zt<e{QT=5vJk+LaS)LzM?$iUCVDfUUMcL$WSewMUT(cu%H01S14TM&<!56BSPksgC@
zo7EW(z5e@+V+*6a%xBbSlyFE3g2CjMg><=KS$WmTe(Pe40-rsx{;5p8nG9?d##k`{
zmccwm=3W#EJd5eKHY#<Yt)$P%A^wbfchK$g4v-`2ZG+7P6@~I7K&M>AwC`w&hq=4*
ze9iVZ;Gp8ln(K*7h?sUtnZp=9YUC0-P$kyh*!xS2H+zLS`XC7&ld%_H=*Y^_8iW-L
z<D{@HVjDNvQ_tHBi%*V^fxkqGnB(VeFbsL0lD9uqb`BlUjOu$j4ET%6PGE-Dr98)O
zFB}uw6$Bj1Hq})~6~r2mn;DmC0>M5G3fa|~j)dmMuJi5qH(MXx@Veq#wr@6Jd;p_G
z{YzJ<n5w?O_BjtEB%JPmk3Fl)#p|W!7_TOSD@gjlYBq3klsu1;>Xp<R)mi8#2T7;n
z^kJCZX_-OQ=GCc9mEmD2VQkT&rvrF}rsDM`iD59*bqr@!1J%E#KGKKSnmM$+5&!m7
zvmJrBRTICoP7?EA5oF%eaP|y)bm<~^7U9t<#*B^;)<DARD+b4T>&5FoJl1cc9cB*o
zxP3mex;`xyv5z<eQ%SCo-8SC*6V|TbwDR3fzXPnK5wgGBIQv_~yd5`RkzAR}GlM;1
z_K_v^`dEr$RZ%!Mr0=eOl+Juhr0~!M6wKSE*hISqO1rk3lH-py03;ow$OOMxcM-$!
z<AKOFz&;~uo^NMXga~g%NxI*-{8qR(YV{mixLJbu-+{Nhk86Av!^1rHclt#XBVi+q
zqeZgy0Q;r+!k_OAn=NKkc`vyUx2VOQ;m+SnPIs;Ye#O+0$9#jl#x9HZ5*-Y+W4DqK
z1+~VFTg-p=Blb4mP_Vl=R|3vMoi<sJ1b2m<XMfdbkQ$M}(B&$G<|j@L@Bkbc@&bnb
zVmSQKgQNz}jJ-`jv3IPv(f5O}04xHyfIT$KL9DqQ1#sp_zeLX-=>Bk=qjBIDp&f~{
zGW0(`xns`WAbCPt8}Y!s0BX&khH$$3kNvV_-Sl#6?O2YG_NKYi|LP_ZYyNCa#JDOZ
ztd<>a6Lb?1I#0TTobh{o&xap`O-A?sS)dvKq6CGZw)bBNWHHQRyNnlsTsCt|kt|%!
za!<gXHs4NZ=SQ=%$*ow0(mXe$#~WuMkMM_H>V0=S*ncr~$<vrRu-nj2g7$JnwJ<T-
z9<rzMLVz8|?UuTbSk;FLcH)lPaUZ8U2n~MAkIvyO2*52gW&C@?njLrJt^N1G@23L}
z?G}c&_^$@3r5FVJOEDw1;mvnA9ll&uOkA}k=ZVSIVH*QsTxPiK2*<ux>ffUkC**2W
zV|K_@SUdCSf4P0NuqW|h7<a67DGmRRwQ=|YfPtfzZ@<4dk8QR?))=1ovMH1$JO?l(
z63IHkWfqaC?)nFO`akU!*6rhdQTpz2uV4LVgYKZ!VDQxiX}=ODTI2Y#kc~qJ;9_O4
z`R39A=@&#leMjcw5n%)+qUsN92GfBvt?TLJUYnp;TlU{fPx3wH2&T!t4k%!NRocJf
zascqSv97K)Tm7WfIy;WwdPGHUQJEc~{Ny)YF_TI*zliznRLzeEJc;+jMmS~^_xSG*
zru-P8xn2yE=VHr}usd%JWBzL;E4-Izb%tJFVtio}`?hZA7_7UBy<6IYVI<f|Ol}o3
zmjxmHQ5AQbz93{4!7lD1<Me2JH17UWjEX~S_52?qNqaqcqEl{w@1y=n1j?wUK>5F^
zF&LKiydB^5X%Y~<<h4R@y?eKH7$3OInGZw-gl;<oU3m-XiQ%~_lHYI0+Zz)?yq8Q~
zZ7nnB54QpKQ2*C+>lMih%HRf)AUm(>F~q7E&q6vi_6Xx%BjcWBa)Zo#T?7WXcB$q}
z^B%D|<z$b13J^TBB!#>`pmMjN(=}L7;C`Z#SHE*!B(UQ;*vTjigKW226F6V1|I!D6
zru$-eDr7J4XT}HSBimkn;J@(MO*6%s82O>?ko8;5gKpsyMa;4kPitVeTw}+Y{|jz0
z8j@U!;pjeWRB?<2oHoq?S?(c6nX{|=mi=J*DR4X>nPB%l6iYhe(BjgXFdE>9!&svO
zM_k83SFU$b$z#e$;W`gJ1S0VIA#<!YW&~W)iRhDVzhOtH-pY%YBK#v5GdnZ$6YZ&7
z5$z28+)KmeM#~!PmOpH9>bOv|#9M#eP4g3#-aQs387(x2adJLDdLeu{^y|~CcL*Ny
zF=j-sgoG$2ty|d0h1D=KA>3A{TA=_pZQH~nZT#vRhX3XNi`=wAzwc=CY9NBD|D)A%
zboLG>$Do~9z4iVL&qxgHA&i_h_|&FVeW#vAw{5h6i#XNn554{OPIx>i`Qzs!w+`*v
zb@<TzlG7)S<KJI+)~S5|)2};+%3enjetUZ3{P_JN=Z`(VaQOW0=f9sg^56i~Y<=q4
z)Krc(C%KRT)@@z83yZLiaO~ysqSyf#AE0nk3?<(+<t-HEy)Gy?f<Jgl@s7m2G5<D7
zF-10YD&1sm{_;u_VLCrWmVU)WIC;H?0G;Xc>Aee55c#wzl=K`DU%6c$Km0v8IjNI2
z&imN0f>WWoh7k^)?o`nm_@4ZTy(-?zBBf1hJMe-+a@oNpYV@X8wL+eO`>m8BSy!Bz
z{XQ7hf<J$E2x9pFy;$0Gw^>P@qu1v4|7`?H$I3hGPOVQad(qBm=ayN}_hmnnb$KZU
zQ@Q==<RBv4YtvJ#=KE$g^F95JyVJ3foigtNr$P6!#!~PvuU)(^%pYzFMkk`DV1(&C
zDbebrv8~iG)D#5LQ?kAI2vP<u`o3r~f7l+Nf#9%oMjs&z1yyQLBhk{%qOC)1Q5>&L
z??AN0O1oICZ~<?c`JR2(q)H+|XwI8sudp5GK%Gy<KyVk-V<qa?O{0GRseBX<3AI2m
zR1B0!b163n7hfp60fn>Dr-<yq?^<-p#TmmPqVTUdLwRR4Sp})^@a`Jn7Wf<oECWKt
z>6<$1I=e0#bz}H*xRC8Pztis!R;W_K^dt6<!ZrDvP%twNOVJU$jyn(lyms@V?*DFk
z4+wx+?pWCoBY#gx3<U_jtlS=tXYLhrxG5(9Cv}Py)fp?F|NS7wnPPVz43S4q^+Uw1
zS4u&qX}2vNu!S?f(r34OokwU~U(2KGkxZ4Txl>&r`kcDN%0~RKkm3vn7{Nq?G^iUx
zG$0|PB;q+1r?f0l5thK+Sm0@y*Lw6m5P?WP$~f{p9{UlHfD=&kJt*<_2jmYkV|V4Z
zwq37_I*M1UJlDRA>TD|#oNI`DtG{{#Z_^$6b=g>~*2~THSq(!)e(+<!cJQlvQ36ck
zlBAX1aeLHM)VNBKO80~?I}ZZ>h6%a{&T>KBI6Gxnhf{OURLBFa;{eZ4%kbr;%J~k^
z<3bRgPXs|Ncz-Sc{X3HVoBe7QQl>tX<Q$E(i}=RVAqWvmfZVS`wu3ewfO@S~20^`$
zl_3y4*E>Ic&F55qu+FT!7)2O?$RzEBa)T{b0wA>KQ&8I@*$m~)1rYR7Wk8e_c7YEv
zI76D*$7~Gf_>HzIQzTq;J)HwIl7TTvE(NblvOt)kpHFE)nzcTLlb4^+@((~EEB8SZ
zJv#+~+=17vx{5C&>p*ZP)Fdh=1+`?X?e*hhLcx$QAbR-#6j?aw0$EHyivmO3GN<q$
ziA;wFf}U}U&&PA~#vruJvww5wDYAJ}Pa(7yx6!9+g+hG$D}*u5dk#VjZt!NLy#`mt
zv_|?bFqAecK)u#0wIE{76eA_)$bm=!ubXm{%8|W(MO~;zS7pA0AW+**sD4!R8PWlW
zi2?bT5Mk}!{e9F>2uf55?%yFs6?7BXlJ?rmqL|-Ejyjft2a{A#vZmADZH0DV>Yocd
z8R!oI4X2ezLW#<iZH3A$ayNCaunPOTIplk>^*;^&4Ud6zKX9CN<Q){F;DzSiMKZU+
zeGg0vNz9sh)gS!fp=-)i9qNYRLVVYgLKS#dwTzYr7zDRRtrm_QIssYv1nRw1d1fKr
z@^d$!9aCL?;JqSo%aEmO?Nuo`U+(0#>)cT2UmgUx6psCMY9p$nS-TmmVsLvnG4np(
za%I>Ly!#SrI~c{aZaQpRu1E?i7z0j{+Em_I$Pv@09zgWKS16h)a61%K=Za*1oi4-;
zIKi}Pk~_LgvWYqCzV#&omH1*HxN{H$Ct0|m7Dno9n$$~y3pOShy|Fv1Pr~+llLkQs
z>;c=bA&<vaz&oSK1ntmazd|Lq$3QV9ey=9%M#>aa8Z-Bh)@v+AZvRPt_DxD<`5C@r
zZ60jUsXzGrsNuxJqm`^?Kt`!jBNl!&{RqA#p@Gg@%<xQl!9SP~j9+ehD^Rnr_kusC
z0UpE4-~GtTe9(9M_@4%$U;Tf;qt>!%*H1y{j+Lb18li8>G*paKnG1&O{7T}as3~to
zp)!;V?)+s~W*utA5?Y7An@8{|t6xF%%PU==$7?YWy&#-TC>*6?RV=Kk3HG{mTT06I
zj$tf4YYGXW9c~xe;UdV{3M4`aj+oxO0FloFY*{TNMvIh2AQ~%@+}nk>Z$$i`T?(YP
zRz`bPciPTO@a!&M<9r3NAfa}sWOhdm>TDLJLMX*xjn}Z)kVs5(WwbwPj`CZWC(2v}
zZi|vshTlTDLh|x%+l+{n`0;g8?$WULg!xt6r6ue4Jk?ILQ{m_>l%x_hH`J`Q5Y%8m
zs)~xuE}&bipyKE7wykWz04?!~??#%99MW;vt2;`N;It`<?aUOxfQ0jEgwQNfZlv7~
z+XD--k@|?R-6Jdjw8Sd|J;uz^-7QzPL85Og`|kK(KD+klg&T?!yDo1PX@Qb_Ga4w2
zrH((4f!DCUbgT?!%>f`!g9_Ps#1o`BnLy#`^BGZ4<Orv<V`Uc*YN?PWQ=-c_+ixLm
zzqAXp(r?ez0_l#bo#tW<i)A3wl&J*Ts$<~`_#J`ZaRw&<F>rS2EaUfEU={ckR9Kdu
zaL_ZF0<P?il~(f-PjeJkrQy!@j9|ZrtlsLZmMPzLBWvmuVLI1yAS?*Q1#Na$xCqy+
z>xTohb#-O9yBW;&d1#fcu**LUeA<5uJb=glj(-b!5x(c!Ln9FUM%LyZ<LyzVb$V9>
z+j5oF2T95eS5%&V4^p^PslN~}Qe|^L!w|6NPsAwj8$x|N6B~@4s`dlly4+(Gx>YT+
ztIOno8#5A#T1^QIep!~1G72V9#Rh=jx+U7^1Z15a%Rje0A%PBeQU1D$=0|G~w^u+0
zcZP#@HJ%4}H`5S06Y8f9(6Xg55(1rxSb8VQXy`>QR%dG+X5=9juick?c?|3%j1a&5
zcHnz(nuPjZ82C@af5W3ly+2sQ=~AUJi3ZVA0b*=XNbu!K{f~mb5ET*8w!R;+att-9
zNm4|eGa(sMPH_`K3f3#jAa_V*;XhJ~+>`H&oRS6cS{>GDN1o7*McqJ6Z9+_bRzwK*
zb>@SJYsXM{ZIa(CdX!*7nkJwF41OhvrfkDx!Gd8<9C?(ovIQdEfXDa&=54bN#4V70
z%uA6S<Tey@xRWUS39q$9l!`Lkc1~S*BH^7Uh<LN7-lj2d)>0q2Gaw%&>T`v>P>%`@
z7pk<`>b9BTxU(YzNeV7(5Df9V<E5oqmQ&iasnv=RBwWI&Jr4+wSJFFJdB)ztv%0vX
zl<^?CqG~5juBr^YRxETpLvhCn#^S`r<3ZfDbZ}upn_T;syW({qs-CwijCTu_@dk)}
z#H~W-Qg5?6MN@NYff#3Ym#FNsJ>vQ|hlBja7RQ>x`YuQ+kvO(VwsKD)p#xXVy*xa2
z+^x%+x0p9#d2GlFGj6x81KbY<p0A_F7<_yAz&U6{ZK%q}Mgza}9z=a{8<&Lz!l}5C
zvBhv|wcidg3_p_<5IP2<D3JnCcud=AAU&uBZV0M~Dn#GG24(+3=h8Uo$DnCb1=83Y
z^whe!Jp6WTAoYuLllMm$#Wf?KtU>vdtv=yp+i4rfiX(zWh!8iJdgd^qr>apueqT*P
zLzy%I(ZE)8ynrl*Y)m}%8L5T9N(&hAGQpqh9bMBvtjjA2(%5sSN#=D>dY+j?>4@>S
z+NYY$`c2^rmr+fiP3uJa9Rt#n$MR9WwNN_Ef5iJ;lAKZKbef|wi4NM_1O&^RLe~Y2
zq_;|#;>oq$e_LoYfa*qpELIjhrK;<&>5DR#3;lGG3P|Sy08&3&kR7@?ouNYVL7jWk
zcA9f3bS7QhC3Nb!dF^nmQwY^7V|peVYK?lVym=QG{4~i{++<^XzN*(`&%ubXZZJIu
zxQwX=Y0jF8(RDC5P2%VU4X2KbmC=zbMkj~J=Z!{ACPG#of)uhs!!qMG`5+ynQU8tm
zby>Wk)mL?=BrHQY@pIefTiG=eBaqOA8p_OY04^6WRI?*y>4cFVByW6naPcNnTT`2M
zw&pU9w90%eXMDC<1HM4Uj`Pe>ALWd~)#isP^1Ii&vRDQ9*umumP#tmO>r<D&9!m^D
z9H~OeQ`jCC%|1<9O&tG{s`-q$5spIKh?;$?uIHmnHh#RLO)AR{ZuINiXY{zNyF*3}
z#~6WF&nuPap&A*VW0e}<jGkOXP<hz5wp7iNb3ku%*N~6D{G+#qWoT=eYt#DJO~z++
zNKdKLIxrDnNi>kVs;&+gKQ6lz`Z3Q~9&ZE`0KVS^K!{TT+C>n<vgxp8+qOhQb~Djx
zC6l&-L~V1A!{joivI)~f8>y>W2eMJymoDFLJn*y_eImPd#K+(~@#?nEWuMnc3y{U3
zTQ1&xFo=fq>+J>9JmngIQ$)(>jjH)tP=tSldeyghP;0bm=%1)PF8-Y*hNf)d{!!Fa
zk9w`wG2RJw%05Ww^$xPO4C#kc`~X;>wZUV(Ys8J2R0^|E91@zHK71CdaT(r=%b#ry
zl~hy8bD*m=qFoB{$AUl^$_<U))JLgdzKUWk&X>;tAc|Yg9tB>g6la&ZUJA8Tj!0vv
z4W)#NljZ)bbMNq}N}TFQUES~7qHRm7J_gir@`>ZYRx8t&U5Ue&<^<M6<XZruW7@#t
z2~`_43j1W3Wc8xSuQ(|eG7}rBEO>v@Rc7{DwV$B@$;XkmNW7-}2ft3O_h^JghnIn9
z!RYa+4Umm>!;M0w4=TEnFe40LudqLXnkvuz7?Ik(m}+!F*mlMPNM)@$64m1&^NW@%
z@u@O51nfmXS{GWY1Fc>-az23C-;SQ&DN5apf?jS2U>QJqtXCe<dUI|4P6<i>NBwHC
zbjl3hbJKbOJtYoVd=9{<qSD|p&5E!Lz1rQlh@Nu47}&0wf)Dus8yUQvkREtB^ct#N
z$>1cZ0#d8oaE2rWv9?%w4x%K}=AZZ}nm{TINH)swP?V@LP&rFV4V%x0&_)m@oySnJ
z=~Hf}Du7Z%1dA7Jfm%i7<V~4DOaPmDa*m#N1l<lYsNigufMU^8auAK<5u(n6-qFK`
znkuEU$7_(*)@Cx?YTaqr<_1XO8yRWY0f$+2@TsP6@Yb=|3S+<aH_4lBkR4Uh$uzoL
z?i5OEF346!YwIlts_<HjkD7XCmWqA@$uT<!D15Tj%4bl7HDDT9pv`DhvdZQyRJJ)i
z(Lq-(A3kSWhZOHNBQ|y)?>0jl`tb=3bHGVj?(uF5wDip~V?EN>xb}tkBG!&BbB+_)
zHiYO;D)3AN)aLG?edH!1((2g}_d7L*(Qocv>`}PFDg)UZ$8DAxDY5yY;UGBk5Dc9<
z)wT=PtW|~Fss06B+tcaiYj`mzFQxxWn+X#Bmmx88WmmL=)mA3IPns>S<((T8pm?!Y
z_I1xkkh^anG>fusaQDXL75^(^XelVznS3{4rqpI^#z04t$E>}jqlsj`8RN{rzd5RO
zxBKR84TyvV0jaWR5&^sb3>0yB_NMsJ><pc9g&@C4EB=Nw%t3*uw`g7Mo7uDVWpY}V
zi5xn_Ca6@6NCl~ytPV&80n&Yp&Ke#n^e{Q0uH0ZqdMCDMo1zTwV!0N3`gp<fj^JUQ
z)mM+=Tl36pq+a*HAxnc#`ta=H5yQtb#qMJl6K0BSa;rJCbAW_zHjj7P3XwD<nJU49
zI^O=)uH0ac!WHr)=M`{)lV<8c`3J1pi?#|7o*lnEHM7-Fcezvv?NB;T-jYli_1<>%
zyU@Q(H6qod!89#_$_MxD2cIxpGsVj*I!P|p(Rn!&2%k4!#?n(K>(x8k5&YDoekG>{
z)AmwZ#yzJO`kPU>#Zp34@+XPpmx#csCUU0U*Az=mO{pI+YH6m8tqgbVT`J|pW90^9
z$7Yos-R)FHGSS-}S+(V+SM1rW+nN7i2Z0JZ4eO4&Uzd2?{wSW~hn+b3WzgX67tD$y
z2p)yodE3ab4$TnM7z+Wg`U^IPhaZ{1T$W!H#=!cuvg%A=UwRO$=h)bk8BZM>q<@^)
zY(h2vKCih$PyX{4y<wfp3G2Nb;C@7zZFm4GOw|jmA8JtuWMoBK_cq>xxFxo=TZt>}
z7XxOxhQO+tXavX5%iZZzg!g5iAaz_(YLoukFp7Qa2Or~<$e`@>f?ER)$f}o#NM~ba
zA)W6jnIMCHE0N&y79`%7I$j!(dEB1fJBT2nRe&xo9iJ-RRu&e5@@8CRaAvM7TSu{@
z=)?hB8Ac{Qak$Vr9s#BO#be&y-swEYDc&`6c|>za)Q(B~bu9XUtkOku$H8K42){UO
zMN|G&V!sa4VC_jqRI+@ik*m##ZM$^NG}FYZ_V)Dl&AG%tYU-C)?x(qvi8Xf(nIC+f
z!C47<hx7I3vVRDgx7CHfZkxfZJByYLYAb19zTx1OOUi7|>cc>Np0{xhcWtpPwRz%V
z-_+dab8E$pSQ&woZl%@<dZB2;Vh#=eoJ%G}@-pBo+x|*;WYzA!-HX(SCrNpJy0_n#
zm8wyw4B$lMqgb7ngT0YOA>}uIUD`A{uwFf7y{03SxVgHR6KW2GS8g4b8e-N#o4k%y
z^F&(piz_N7GOoZfwrAE=*fgE)1nbx_suPZ&yH7<-TBGQYmE4OiI*6HN{%Z*AYt^%<
zI@R7-RaNe#)iP3;uRM1EHdzHo2D?@LoI3y^aAp!man>_f{vYj^mflBSA1jXSt(HFf
z0|m6{58YgcEY@06)gdwYE87ag{sRfrbGJABA2;`Wd+1b4sN60!@v;UcRd+ELjZrg=
z`F5;3-Ef)uEi0+-TpNBC*=U0@i|XX3Pc`mi<`i80x_TcJVYPW@yRq$G5{5li<I_Q;
zreXiC1b?P%7R3ZMwh=fL1Is-gGzEMY3Yb^7b5Kt4-NDrf6G-rg%T7Be!=^&Lf9c?<
z2rl4KPg+AlucWiu8jVT3Ysytb3swa2MdHyy?bDqc%+(zR@DU`y)i!OK!#Nek=~&4K
z7}zA(&-JXh#)=jL`c*c2yxX%Yd#JGcR0hsOg_IFRY*HenwE0p>j_aA!*{l@MRy?nL
zJ;S<a@Yvc)YC8G?O72wt2il7%AKPFDZ5!r?!mXVhG^8vLXP{kNOc{hP*h&C=hjC>`
z^AiUP<);bod^VQRz~BA5LQqffs$*KC!k0T^DLU2(N!D;%SJ|a{J<_DKKkH4RG+NSr
zkQ?lfbmjWOD<>(O>s)FsY$PSxw38b$XEJSqnwZ&f{?u`N!8qKaFh4kY-wVd(`>emO
zy0E+NU**gepNbeNqj@!LZTvAa87-}6l6_5s>uTB1y5Ya7FUmTjh3R?ML<4Fsg>Mm0
z?$-<?_I6g{`OrmPa6kutSjAT3m*!u+Qm3Kb22TtmvZ8}>GfZIQ-<GNSc}z^BRu;zu
zc9hk<O2Y+L@z3@G#-riO;K6WqaGlXLjSMCx#Pco|1nnM%);@(azc{OD=LpQ_f$hax
zYNZHkR7%yk_kJfyuOMz&)8f9m!7lC4tq<yNx)8P15;iV{^RsE85l)3S$o6TlVC^XF
zLhsCtpU&cP`;<KgE+VUL<{+b@wulZy^(y`@ToRy9s)R~<@9>icaEm2znf%5Bw72ap
zE`IE(pN^vI96OA)rwOy$B?@S8;Rvto4HZ}wrmd!wiU}aS+gZzm8G_B&2gE9#gB_VC
zb_D>AVX>NhpErM*fb%P-`5jleNPLzS5$MWVP68ox`=_2rtC-kW5Qfx{XG%<1w@PT4
z)9ZY%L4}X(?#on9|3P=cBvdj*4X|R*fd8SQCzY?q%>H3=zCTLg*)iLTZRe^;ZPxF~
zmkrc9pF9v{pVEdNpm})Sy^NwL8<;5dRlcq3Ne9l85=t6Ds=aT~E>#7=$CXW3rKw1_
z4lx`P&xpPIJE5wK^p9!in#jCzC)^%7-W`T+d;&OKmSY_?_65a6w`J6C@(098Rr(<)
z{R*M~tbanDyA!J|RebB!sf<Pq5LJZ)fi%0Fiim0ipY<FK`zDDR&0!lU*;q6f{LYSW
zecI3RYFJR{8JD>gU3#r~@zMj;({o*0mmZMg6MIjr4hg)n6$N}SYqaoDY9FS(3=^T{
z^|PI%m<;+62;Cie{}md3d8w8iTcJ*BSB1Hwf@u-Ahc@t4*J5VBOlZF8N^5lNFsN1c
zO6p|#e*6fs32fdx+P4PSQFd`k-(=O*Ei&nw*6@BL^C~?Xe2v&R3)uQ~z}8=r(H!EC
zI+E-uiAVAkPtVO;h7K5dfmJpw-)<Kx*4;JC(to^eHG3yUr!%+s;59=fb56%7wlY_y
z&6o8?9R#;XAK7^~Fjs_jaAIs^jTDEEuS>nHus!1s?4iOQ-+nEB)tP>sC&)%02e;iL
zZyWwFPwYL4n8sPaa~FN&fr>N0zNcf#Vhq%(c3js4`l*9cAmPLNu&&_Hk(Uvi_%&!!
zHmlHtt-nnDjmK2(c?Dmz#l2lbtX`aT#CeSZvtR?Wa0X_<DjuLtTO7(rIFiro7I$;Y
z-<DII)|3)>tYR>aVOP6KJyzHM#>&YcYL-`QdTXvbjV*7Rzg=2csW|*d;^U-1$7U1s
z<nr}AP1I9H3n@UC_vy8L)mJCOZl<R^Pd<L7cJ2TTl4nLX@M{V^S`_ltHrMTC&t}CI
zVZP<?u#s3$uG#9BLV2)2jf_c@R~qZZ6k7%XuDFJ!Xj}8W+yv1ZZdP)hcbdJ>G2c6D
z*Z!N<)*Y{0(ShISHAXcKR!l2C`t%6=!qXAIj`Wgq5<6#GVFOr&zug`4w_Q(9_sV15
z_G=03(_<mFMl=0qW|2|9d%3UzLX50{eQ4_H1a(Yj^$-R<D{QFle!ix|I<sNlz^Wrr
z4g#k2%LWaVi#=I$cJ4%$$%op4x20jefLvA|d}v&9N{k%S86EY^P-u?iZ|4B`t`+YB
zt|GXXqwR}X>S6=ngBPFlsi@9v|CzXgHG0jJpm!C&_>jGG)kzB7R8yT>FrSu|A=+%*
z8oL^M!;81-pUP)n-lT{(ltKc2HF<ECpgnvyLHY11B)iQd_d1m(>P#D~Z%ee%eP_g+
zG!UCN&n^fN=Q(*HY<%G^lm5S&h&l}7vd2q%(hLCb^?F~yzuAI+LBkgvZMI-V0Z67H
z6A$hUBQ_?5Y-s|q&7Q#HR?RmxK?cNY^a{^Guqq&~f;|wyyx{dYQK`%?MU4>rERk55
z7<P8#NiiWMTB&mZ8E`RxHCU2^T`rqT9ZOB)BP3)!5Gh~mqW8^)`c%&zw>mwOqEm{D
zvh~W=%x+n~Nd7Z=#`v94Vwf+Yqx)6kGkoA#6CX#WLE!Jy1t++8_sY*=L3w7Yp9_P}
znye1v^4jLEWNZz<$Z%*LB?jg?x#r$DTDWiMN>=o{GV38ziHu4$DW!|a*pjfYL3CKK
ztwWOKM%O3x+$25vn&dUZ6|(gfL=2h_;rdLAQt7>satwOu0J|o&XV%&6#;FJ=Z_WeD
z{$(c{N27eJc3+ehI@NE%mc7#U5oD@&FDU7j^s)hXY%4bVVuFMFeWblNXC~gNouQT1
zXmaLd86B5u?2`~wTe=WdG>2psOll|dm=K~ktklMpat2U^L0nnD=#GUWcR)nOItAEj
zWdrO1t+_0v{13kD-*V?r=Zs0`ofh#yHY<~m=A1NWqeL)f;^^5PgSCE$+l!U+-t>}$
zZe&&EgXYXBf>?E(x~R`|9gjHjdv2ZeiwJ0O4-T~1r>62la7vm&ykyF`;(H6VuM#&(
z3ZLfo6?p2*X4?GG&%JxOBhlRYQm8K~$SFq7`BFo`I-zo<a_eJi6Seo&>uBe8yam`P
z!0=)+q``<sI+bq=L?sOsr>0@s6_DoaG{)zY_R(OMVg1LoZ*CkR*fC5&4d&@7s@W;q
zmpbsz$j7^xRv(p@V+W^AU^2@u>SACrT7c<+xc~?Z;PP(s-#!)i=Gtcy!3mXX`W4<h
zZW$&3y>G<ilvVpT5A0y+YUXs0gAC)dr>&_T`qJhzeJmz__twYPbWb9TS(+3ry|!`1
zTYEOOS`uCBKB8O<q{6?f`uRtp^HOT~8R48wpk~S{jJ}j}q2F-E_3{#6iwb=<!oJCs
z&O2!j8~$J2o%vT&=eoyHTe-GYPVKRZ1Jq*z=71m|AhXsM*kL*ZfkwuP5g9@*AjAM6
zRvfA_x!D03qX$A56A1{0Db@)ShNuh?62O*(XdtA7AqE0D8_&A;FSvKDyKa8SZ#(OK
z-zWQ-zMp6B8*>n~$ipB_8`#`2T+^x(v`;V+HflOn!XfvCAx6SN7b$#Y82@aeOzg{N
z8vJqt`!FTPV|dzjJzVXhfcUBoaCQ&le!$SVY**?V!>;z})(D#FWMbh%(vGEOQ{HXR
z`ET@q*Sq32*6d;oz=d_&_QUECNcZ&l>r!WbpXa8wBQaB*Wmo^5KHO_0%Z0nie&~P7
z>-_gReZFw1uhb6Ci9NswUk)iK_}DI5a)A4XiioIEE_GCC5NHb*<6g8hAYi_@Cvyn|
zx`K!g{kp0)Vyz<B($L<0VT^J9)_IKx@$Lp3T>_;VW8eCNHt&rw7NZ%SAkB|+arP}_
z|MWJfO$P@tj{AbWYjXxKo&i^@E*>*3OhUb0M@=53*h!Pvy3#qyBSRr0AmP|T3*;5#
zhvrD;8W6@_Dp@VjBQlci=BMI7nh(C{Bmrb_Lcb~-?O@8Y2eoAWj7Ay|gKVB<ff*>=
zXM<Vnj2#ME5}?6uv_}b`Hh_P4Bu9P)(Nh(Q&P0PWz;K@I!>7M721tU*U)Sy<SB7Q=
zS#t!~40x`+;1u_a?h_vM|Ek&aKfRgAZ)ZK(HauZS9VLXdUJkg5-`Krasxfbyf98t2
zesl0=*po=S0A}OR8r7CRaflZJmSIO<3?Nv{@s$r3Ry#k`RSS@IOgLZivkx~gQ9MT2
zGoDR{2PAx{myLskP(8htxd>3q6-*|elYRsVCJs)#-~w#`=yhHEVq~JSzx(;fgaE7H
znxEt3d`adH<qYxwSCNcRFC_m63YSqGq{pe%_?<GJ-L@o)`KRAvcBTWGCz7kERysb<
z6K<u2fSoaXe6g(%K{^EnBQ-OK9^|MEOy4~I)y}75lirD$)^iSqEh|kCppyydBDkB8
z@v`eU?;23CpH~_4wnP$T+dE;kR?u;RvhU!@ZU<h(V&UXn$#qmKE@;hPDGMubPAd6o
z)8#}@n7WDM;6b&CCJ#dVtst3&NLLr?Y^6WN`x>S^%9prO*=`}&^+AL_eNkD+?`A7r
zY_^$c0(K~m=y=EWSwCf>Nh~kWEmzP3+p(|4(iA)EGRKw^U@-CR4qsq@H_Qo`Np}ZW
z;9SpRauiV^g`#9w4|pRGoaf{i?5(UYJuN4_z04-mLoOL7u<ez#$u}P!Ip@$FQIQlf
z#zskFv$2`|WxL!;qzk`CSBt;Z+jEm}cvEB))`k0SL&;})C%J<{B&>A7-H=v#UvCF~
z=T{OPE!`Gi8vP@c1)~e!j%~g;xDCaU0;-i5yQ(eS#geiKmD2YUzxK*6<uhgZjh~bU
zu@0b`+Zd4Q!7qQwb-gzrLTHu{G*82@)MWI|g=~b<SJh%}imbbC_*?o9;6l1$v{*8~
zg)f9t>A`{wXI@H|9R<O&0ppd_S{pe#qAVdIhG0A0VaAP^@jucLH#}J<dK4v93+kJ=
zc`Qgt%<4u~8Vy#hlL{dJBDI(5MwiM7lkk_1^AOqbk^2D=yEDR=sa@{|CO}ZavEmUi
z)6=0Ye{^lb)4T#h3dBxQikb{`mrKSb+9$nL(J1?ObvExSBW8WQ4S~#X^entl9IzZw
znR}=}n+me%efsGqL0!4E?!(a?zN3sh1gD{Gyg7X}`HACdvma}%gRP=OH|iSIZ4cIv
zYiBi6!1{MQY?mW(dCd9NAiI;0HEmci-BeCpkdv^k#<@mkH|FQ={tEZ_08M^p%Nz~`
zv_3RP?h~A0Fn34eFu1OsO>jIbedl6_jA@1TyO7G+DF+H9V9HopAo}}zz8GdiS#CIE
z-QRc^zdt~;MqxDx7^nHHqIU;mcTJWCN)ZkS-tM^gDf>6N{XUr=oyVZ0Z|auh8Kak5
zzlz!^!wh3U!mFu12r-%#)B`t=4d8BGZi9EePJY?0%rSEH1AbxHc3HNFxY5|O?rJ*{
zmX=X-O<{>OE2M}ROtP?+L6c{8cera}j6~SuERf2&W7)vj;32&Gj&GZ&WUHPgaXFXt
zk)?Ipo;v2iu%f|B)yvL(1>&f2mwH(Z^mT34So$f@{&WT5>SxMFJ;!Q`s+^DEptx~G
zC%L@6PWGA+;2twlyKsMI2rH}_px42*@N;MnD<!+IA$Qy(c8C<nuaPi>@lU%(M%N3W
z+OzUG!9!GKZ~Y74PrIfy<nT|KCb(lnZrXB)smWSdC{_pUl`=^2408C9QAnz*B?u40
zBE8->w!T;FQG*A}8+E_B;<h473lo-`?<S2ZnqWM|dMxRn^yvz|z}b<fZ=G>PZAIl$
z+;IG?#3NOq>)}3coh^{Rv-7QWiuro}u{%(DEWLuZ=hX{h5T9987I)}3r#UO1tvyi(
z%{=Dj(5f;-+kon;&B_vE-*d|y{%=~fe>Sx@2w$uP4`avYNMw0^+!@&$V-u1;|Es?m
zpo`f*A4C?XM1meB4sGm4w=f3t;aOrhsBb#z)Z3%|8U@Jd)?UEkI8Z?Y7sb%IWd4l5
z?EnoMy-N89ikJdM)5Smirx!ughSpFtXu6oOI`ps>Gi^2#-`uER?dq+^4BXtpUO&9(
zSQqgZaqTB_#?XQTX*CTt@}Uhx{MD_*Z#tE=4Z2b?zo968EF7!*=1{yF*6p{|I4ZZi
zG%dMlWd0tyE12Q^&4a=tfGdr<?N%a~<i{Mcxv(yhFK(X6S&Vc1P4sNz9HxGuDrV8T
z1>!+osTt0aH@0w(>1$G6uzs_w5$jO?1TUPVrufW+)<uN`nG~wS8KDouqH$86^*Y}(
zfvHx!L^3}?z<)M=rf2Fse^Sstw(!7W6p}<yRc`I>#n<?g+)m#xJf4zbZpmATc(r{d
z8$B-4hr;Sz3Y=R9#mlkWFcd|(SGp<k{1E5<X1xbZ<a)N4aO?WgEYn;kyo;|r<Ed&#
zP~N0xrh(}u9QOSc3Z1R(gZ8C0;(|d_+m?Rjg_*m|AeXI{FIDAp!6Du%H!yS}J@XO>
z=Y%>4a&QsCO2}lbv$3@I4zfAJLgB3e&+*n`nd&MCWjdk~08ExMg}h?=PXb!iLzTtl
zbW?(G8Y|R7yt>&G`C>RVw_c&pVfZz3Cg$fH95h+b#~pECPikRnSb53)ff;?hzU?qL
z5}6;nc{b=!1H}szEEW3saDEvYu@bdhOl~MrS5W>Yom*N1Qz~mr&b!*(n?=Hb^j&Lo
z*uI{NNBrQON-wiJFgsnnjGXUjQ&5M3g$u)cmH!q#GkQcoZ#L^Ceh7&jO#!+&1CzT8
zv>{UXai_#I9I3IiU@cZDqi$*Kkg&~7U;EYhXXe|raZUS;lyc8u|L%<9McB>ZO?h;x
z)M*I5y=<aBMgG3d*eCB^d_D8=Ibssv#4jr`;9fWrtc4uRxOc3_8gdV%%~<p|uP~vn
zQ`6n!MQ4@)&c)*>;7Ymeh~~mp(_J#40A6}}v__@6&0eqJA$6y*-LlK<2p?ciqwG3g
zbvPmcG3ZwGE#~ZeO?Wxchm#nVQX!Pz%X3U_9l05nf>?XLg&*X>Vpd=xS<tcxZiPy>
zOtfoUDQ*xm=$8BC;>b7`JVDn0S$daX$X(qngxYlzQhaobsJ_?OztZ`?PQ4?zkn42z
zz;1+tHP5U-n}$|Rz3%D({pg`Pb<a1Y1X>>CT1%@#d`yT1=O+0oVk|Q`^C|vrijUFY
z!_%_AGSh=sd(C>Y+{F_|-zj<T&IKG8bS{Enkttx#>Y3x(^t;BoZ#v{U33C%pczZ$4
ziJ56(#ST5wR<%-o%U}8mvzB4cU)&D=ots+}!%I2o6MBz-D25U4JymH1jKqZZ7gNC9
z)!9cog3)J}v#>_5KR!U{z$D`0(#l~*G%4+J77VuV%Lhdmdy@Df$oaCwu{vug2XA}7
z`BmG{qPHq^%nkR~rK7xY>@mgE+vR1VfrT{`3$h1l0t*8RrYgf5H|qr){OwD<2H1-`
zy|mQiZIyQ-dBwm)h2$pc&>y)1mH3vQw@REc!bKnxKjwAG+-Q<hF?PI=13+qgf6Cme
zcgv#F44qJEvAmX@?k&W)Y$Yl~V(F*MdVTV;_Yb!W(2EcbHEkK0plOx(LhK}@qxztD
zz1JX1^!Y&BOkJ7OPDqaLy;S{ig$0kq>wmHFj)1PUp95tF-7=nt=Gx^K6kgRMU+C@m
z1;*$eR1^glvR+=WR~Vin^2-_x22`OC%jm(t5y0q<_2(xrbMZR+n1q$u1JqWr<x;|T
z%QjiJy?s)01tG%26s1+0J>Mz}?@{QndD6m+5&vHHjISy_mB2bO=vb6VS1(i}+)7l)
zm!Een&+_=M2lR2N3eO}mL38yO#fE#5c4KTJbFgk9d@?b%@qKmd_u9@Fc#6|~;{+Fz
zF<=0!WtjH&0b>FKc831aDeFrT(Giq=?#d5JO=Up_q8~|ed%Ma(@t*2KF6Ow?^9}9o
zY;C|6KCJoAUT<}pwF*<P%zC*;@6AplEE}D5;(Sr;V3mO0k2UJoUfW(FT0})9u<**+
zH8EtpHzRad*yNbpXxFu7rvOySE~z}{3&U9^Rocw>?*ki~M!=I03)IOlNJ7c`X%dcp
zHd!9sic(2Mm(;~DV@vrWAC8ATX#(S7No9-)Z*_U2wB7%fA)ZE1MjtPawH)dt(kPLj
z(-NvJU!o3}CWQHw_O!?aX1xR-L!L;WTpXi9ucxQ_c8|9JG_Q2FbKA^3R(E{dloz-6
z?fKI6M{MofP-*a`WPZ`+o<+^-k6kok|2x4C_;{`lt-;*b;hKUtyv3|n=H0kU@95?Y
zhZw*YXA%8W|AaJ-lYyF5SmUwoE$TIh^8&e^z|n4V-Z)$3ySPdhzf|;MD?HSM0G)e4
z2d4VM@kX`wcfhq`-jcqa0TPx94SZGOP|U$XcP$>^G`-zzBdR18Sf8Dz1XfV2a95Wx
z*{voH7Q9JQ(#f2aF<1D3t@%<?MjHbWRsl*s?6spKUQN&>yQoVQR!>?t8h|lYy%A}%
z@E{55<}!V%%K?|E2sYK6*&>P)IRNX?1X418aUTUzl?0Yst^@&dWiX*;;bXXIf-v-v
zds?2JFk;LTy;v44*78+k#)CBrI85bFs2mKP<p<y(Z6fbQZKFMh{K-ycdCxcHExe($
zL=R)a;&Muy+h3&C<&~p&j5<7(ODlYc_f`Fl=J-Wx5lSo6HpxkRw-vAS?*ii?M)%Sm
zEfO9zZO-i;nc|Ofx{y1Tg;Cy(xFb<-ZMlCls$}SP&({ER-`Nl)0E{%y2S}$=glLUy
z=rFeewxPPAsgd4e_V->2{8K+isk_mdlY`%BFVf?=nj39ZT0ev2i6iHwICY?#h@pKG
zH?<lfUVqTEf25nbGKsC!9?Mg-2<nl<8i<^jldAXF+X}|b?FxNRfPn7dR%Aj-<6me=
z?h#L`G49B9j~sSUb@uU&$g7H3-y}4s6Q!@`LwDk*5F~DCQdXUr5Y>E03MvFSP36EN
z$1IPtG#Z${BEQ^jlHy&EWWVZU>d@srT2$?A$v*zaCnJ66LkQ~p=VYK3*f0zeN}kiy
z+B>eM14gCmviFmW?7QLk4-XTUj#>H;xIXq(vk@5gPC_`t{5cHf8PA4%p?7{`Fe5(R
z9?3Z>b;rSTDnk&-H_uZ=!Bj`@5uODpo}6r5H>&cKt}$3WfSB|wo>c$bg{LGdVq-_k
zt(8*!G=ZP5D$h`9{h>KvI+Yy6|Bvoc%+5rbH>YJ4_T&!kYXyrel!6?CesYn>fB)8i
zfw(ePW_^X24;T$1IOaHuQJSZUf$BL&1ZM(rdABhMe_wvlH!`%n-e)B=%>%8CD6)P-
zM4hL3tDYd*02Q&g|LVsx%T;~PGfwbznsm%gSx3MhAD=@GRmS;}T$Fv-Y#SjR<L;pg
zMSri<Zg(Y?h%-eKuunR|TdN+rZb1rH%D9YB&cBf$+fs}>*RmQ>@<Ew^t*H3jf200~
zKPN!RHmq-`k)5=)k4<Dedw=E8lTYL0cfT%ecD|*y4M>2=s-wNYpS04Xkc}(!f-ap#
ztCFHYa<#Y+yU2$=mK~@hequHaoAZ+v>?<!(-u{BJe;MM<!6H6g@qh8_u`bSFhv&x1
kK3k)V=brfA>_qL@oD*AWbs)^<)8G~Gqwf#Q?<24L3n1nedjJ3c

diff --git a/reference/plot-3.png b/reference/plot-3.png
index ad0f482010eaaba509e5383e4e3f0db644f52710..33753da30e5735918d7c5d9fbc8d42adef7fb12b 100644
GIT binary patch
literal 28174
zcmeFZcUV)|_ct0F3?s;>GYX<G>H#K#B3-0J#SsowL7Md5K|p#PaX`m{o`hbaB1DRW
z-XUTE6PnUn5|sc_1EItKA@?NAe1CJ_a-Zk^@!tFX@t)_A#B=u9Wv#v1XRV!kSB-Rp
zemwFc0)Y?$buXJB5PQN9h+R%U@WFRRQ=TotAAC;wI+x*3_+n`{#KIo}H+8Lo5Qt-m
z+<!ZgCYD?gh+h%l<%`$DvgXK<X)b2ba-06$d-(Vs3j`kAb5dk~a_)hvZ-0M&W&b_B
zyGJyi-y7Vm%qMrv*-4{C1g+Yp)|wl>XV1g^yYAh4etG|+^;0K~JpXjz!qU!*l0W?Q
z>kkhEqqi*k{pm=r!MsQdGx|*TRQQ@=(OUhSeenEDI;+31>Hu$g|L4#D8VbZE)1ATU
zm2+L0Zdb!>5pn&F<jP$LL|lq>s!Mdza#NSQn%!Z9gPEn`{PqMaj|kXtzs03MpZ9RT
zcp(3|QBFL9K*)B>_wIuq_v_z2j7T%{MjuU~1%Tq|w8PLGSuHjQnuVeiiGygH3>u?r
zJX5E!D;j-tux`K+T*!7QQQRT`bpWw0dub|lDXP9xQtcG+K3YSC*b3Mi2D(8^$-2D!
z?p$=^S)!cuFotFgZW%*NfHk7<by%8+hBTfB&1Etwwql^Y=%_QqMD(VI=%B}&7Yq0E
zk3zIMFh+91u0e&^Zn99IlBv%KLZUdk&>FSNQ%&f(WS2o8G=EGkHGeD<YryyuKxJQQ
zL@RYMO-2{EqT!GnaYc{e93#;7N!xC`6rhSYj?F?E0Uydx*)IA?<Bdk_R-?>%Z*mIl
zLy3H-F=Jwf{8ltHpZFl4MH`B8eO=o>J_j&GmW~*T4n{APt;9B^^tj`Islj)Q8At5m
z4{Ig&-1YTN+!VpTnvT`h+gUafZZ$G{7E8kb>Vo^brM=c;3yraL8B?W_L@|CFdT~Y!
zR^r5f%O*V!+_c*bPtme^(0%$|uHymGStzUd!BThoXIkH%%F(D~7j2RO*|8+p!@ZG=
z9y{lP?RKk;J~9A=j~<BStC3QRy6dgvnZ<l>a^N0&eeUslQEJnp03Zwv-JJ_=VhVi<
zJtO&Kw1^|I>OsibO^<@;`D24@S>+b%&`wi68@jeKyZPKxDnQX6-)i~+p2^3%yDA!i
z)~A<SGcf6??M<zzXrIBU^T7g?`zFm9sJUQ2UDlD!8l4C9f@mjwy#sT_d@=iyL~ds1
zKiFvYP-uy~#z%F=i>{|9O%7$u`Wmtvo?+uR-ZdB}t+g92c1hQrV51&*Xx|P!K+g-H
zauBaELW=6U5Km9r*#&J?0w^qW-4?B|H?#)eoF?j<G#}D@aQH>>!#W$`_RlWY<dXEj
zH$vVum{rBtn0K>{z8BaPXpN@)1w~LC;}T68WC-h8DORQ$OAQCS8%l8+WB!g7Pi|oj
zjir@DUnD_0$uQ+Q;+hF&L0k91=0O})2w9;otY5Bk$o_s67y??k*Ppq#9tU(E{mBAd
z{m8KcY)l=w#epRYQ8X4B#7uXmcHa~zYcg$K-+Gy`Zip1fsTcK=Fe;DLJK<(XDt_O)
zUWqjhBxHE^cYd}#cV^DU+mMt|CnxbSM$7eWAuePD4}xFE`f%(V<+Ax6(IN|MP;cbU
zmij(Cr=f20yy20l=qF0*@ih^Rr-?CEjX0IO#)NM16AO9k?HQKqucRB#5RWOd9~Dgp
z*+6aX-zP5244iB(Hzwq}FE%?~$ja^doZT1cImSf6Grn+g=76GwlF}BaJl-wMx-f&5
zjHTeH_5&-^sh^t^T(8*Iw6CwE8#BI%N9TOPv9BqYHN7;(#&|y$ztQWShUdt&)za^~
zXb4d3{m(XEJNi*Nzh0>6QL!gMlAU@&^!>%?uZ0_DpHJ_m&+@-J=f&eGIL3iTMm#LY
z{QY}5pnf`NuE?u3$JlDBx+?*5*#aLE`hqFj6eB>99<Z4@9lah^m)~s{y`E*+J7ujr
zkGj?y(=sBdfy;le+^m~nytoy;Oa8PDna@91F|oVYlY<g_;JK0E-65^^Jm0uifHEj_
zH=u7f{RO;#n>jn;kQID#h_m`y_CZ^CXcLfp#@GU+aZ#F4SV1QJ*}Q4<DQf%gU`!v5
zK3`xw<eOSPIq{p8b<mc2^m=2(<fib(%5YU%-MlHG_?=pGs~&0Y4X3z3J?a8=;>cjM
z{26^KY#kVD612sP%o;tuI{SHx(0K<9u&l84*9Oz<3LB0b^@iwq)nqOWUY}Yk?(6m`
zQeV&w^nwzZqM-yWb|To?RBO!9j;zFIwv5U>*_@3o3D7mfDo3xcjHDG%yB)nr1`{zl
zw$$Yf4ZPHY*=Ea+D}t2ZT#Y*UA^Fv^`QH9D3-1wIEm{@4lRZcWev{A*41jg>Sc)$_
zyS~b63cY!;bI7p!bM$K5lmbbR0yd|%M#CG}bP{caa7f9@-pV|)T5by+mSPQJ-gUQ%
z`_2rA8<P00#M_MGN~nx|<aN!O)6p{}cs0}vVb2Ep=)j9&p)vYPQ&n^sa=c!y^~(&#
zWm1W)L=;sHHl|06&Bn*Qh&i-)TNx=4wRx6k0X3eK+|RlTM81&qHE9YRSQGV5+%b6L
zo)pW@tCuZ|ko{vfmq`l-ftE7_NaKT?G)p&O)Hdel<>;9!bpys5eXASm-;XIzS&#^O
zLXR$gmsxH8=9(rfDD?&J)kRRak4m&fYgFfxb=Ds=Nf8rGQ*M5%`uT%izZ@}Z#kkQ(
z56?8ogf+i|fH?^@vjdUA7{?f<?lTO$K{`^K8|DKg-pX#MGu~Lh7c<L4vGp<SXKu}=
z{+4qmGe3$wA<`BtzmM(aWZYwcj>5OGqM^-8xJ_C{GY-c|+%E@OjXd+M7Q0H|{NQZ3
z-qe?}A%U>m30qPJb6be^J5q6EO%L?bKoL25f$!s*+k!Q>@LIk};wMs0uJ_q$Ugjh}
zr*?lCG;#ZWdg5Cu!v6-E`Cc~Dm@%1APo3Lj6=tm04--HZr_Fw)Al4V!$nQw7MZb@9
z8JRsGP0ZH{o<$#3dSlreAy>!Q0bA?zvPjaxQj?0v`39X0Z?BOq9A~hj#@On_GYi7$
zY4#tHWGQd9O5*tv<EY4imEjU&Y<-m(zR;8NNUN-h_>%d1&m7!f-C!ht<<U|K#;UPt
zra5!Veu7|ZNVu4p<~!Gm_se~oxAkCFMSdd;t3~LMZnn!TmXuj;s>HxcPg76~+Y#44
zv)<>wyXsk6T};J3>IiN@*p$=15c+~MQYUkb-2LTG(dd);4?#+0<IN+gGtu(xeg=$B
z;!~<pEK5VIX-_Qj33<IQn~Gal)Cx9iD4yIL?~QyoDuiqof8ZtAoC>RykCzTKB3{d~
z$e8q7Z~a1UUFc-_ubc~Y!v@625cy5rq|Zc|MRWuH#^B-rYxcO4jc1nu{l&_<5&7xE
zmyin%ga1lRqrI5CRHWRs;WWTTDNoU1B~iR%oZN$3NcHNXXVKWZT77$dSDqSt0X#cA
zK(@=IIf7fT7S^xrg7pi}m3XSWb^gA-M57GxAbKuSp~3fy_jnM}UOOgWhG4?Jld)t!
zg6n?SHmTL^EGhTtF-BQ^cHK4yG8j?2k6K<u66ww+2ZH<8a(xtPu8%j%xdq=#cmas|
zlWsCsQ2XR5Az<~u3Ka^Jpnvpih=$rE>q1@!XWBjglA0LR{8l_zUkN~m%RSuK;)nH%
zN5`cT&T4H{1z5EjDPp*g&3F%nW|p0t^Eq1|oK$|Ync;Ff)CS&N(qU+tu)<jPOFurp
znojLU7Mfd?#<sBXtOA=+PEiv2Y<dE$kYP)=tti~?@gd@Vw>E*UTYJyY^}rV~H$?}(
z`#?G`d>RMLm%*GATCB19V*$}y_8s-Gi!s>>92Qoi%$le;iw*Fj8w2jFwO1(<6|Z=3
zh(H^T!#Ef`vS@c>9=1uvVK5sJ@9U7W9x?708nBY#=A?Y%_z`pVS)wU)G@CXc`L3qN
z$B<DD2<tKOBv&{$NP{i21A(^4geEz+VI~yicp($jz9_~=$)O!bN`wfOs}b*|M+Ghg
zAu|ifT2INIU=D^6=~!USh$O<w=5(pw2rMW{-|~?56I!J~8UT@Pa^U9%T(Mf6%0y9z
zMZRqE&5IC6ju?E>ZuWWC5K|u<6VFgkWKxj!4b5jHt%5+(V2zw%`YToMt&<bs^e5$4
zrg9<JEBynBqK}$F+EiWea`f>Dcg9<R)^o%SC-Wwx<gkT%pW(-tEZQd|lLWgcD#VLO
z#Zft9#wQ>a{r=roC8_)@Y+$U0CJ~?4;Y3CfYoI8AIPDoSUKY^A-SGbp*K1mbp*sBh
zWt#uZVyms166`?)0)&*g?mK+N<vsboJNUf2|L4#D9u&y;hWF#gABBw>S%CKu5pNu@
zAsKE56^V%mb0-+5)upFET?`nxjD>eC0@3j_xOZQid6*g0EoC+O+Okbr?L1NSh{#@E
zV}X$@g?J{-lYb}ozrKU-G77n05C&We3tt!X!A0JqO3XhuUS)<L#yV}FU696EVm^Q}
z3j7_CL60fFujRfF_sf;rp{{Bw!~$?_`dX+qlnSUtKHtxqicE^+kyd&mfSozYZd4}L
zO=pi8LXlExGDJ^gMHH`zNX2PzQe7w8-F&1YbUo_{tqL?U4%D$=-*bKtI;MitNJQg~
zaia{x>tEv!G>SoEH#~!4pog};A-aqwdYRUc59*PF^aVHqg|8z{_Y$TfeV}9N6B2;h
z8Obl!!Pd}0$c7x=C{KKH@E&iwTb2P~IQktumKm~LekITyvM?8yKvm!6b`WR&_;Yr%
z&UMmZL641eJ=Wt%ZQe9TF5eDaU$92nqn^$`OlDl{Oxz~Yz1{Q`vN_WK*vGY!t|w#B
zCsnw;I3z!Td%1sVqH5Pjm+O*pL%7Bl?tO%B8O+LJ1^%gpid*;sOeo06)nX4?kf@%g
ze&arWnhk_W&lc^P5!PkoX{}~n+2&eWK#GT@)g!U1u?~5gbpd?5v5TYJ79UYTQLQIi
z=pCzV@RZM-KFaOH!CV)9&>(hn76Q8I7{c&p9-}Vo1sAK^6Z3D85280?GOT)>@m<&k
z)w74V?-Y9-XcQd33kds#b&!vU^EQ_GF#)@TC3R3mn!AngVEX>3-*-84$?>{Ss-+>Y
zSYIKPRsvY#j_TJm^w?ZlOB8y@jd~D8IlJk%=F({|fi@{MfcOVEU@;S$RsL*b54eRS
zCWDjGM^AFwA%5WpSh{-UA(-*MfJEctlz^cuMwU@d$gkXoA49zJkG(#{c#cW0HMYA%
z<p=7{5~=Tsy}1vc!r`DoP6o|3xh+*P+!Qi}Hm#?|27qp3tL86{0XdNIz9hiNAbp31
zYL^3#gTI9s1iBwewGO+Hq+(p$$GKubjsdkWzNtRn$pL%Rccgf5`$gOs-(zLa(VS=8
zfO=U8hoI|&7Be;Zz@t&!?H%UvP#72cHKZjcIV5%<H|7kHm8>GIA~yL>mnSwCw2NER
zW8nQmrS~rICo?J{`nsjVZ6}uG+XcAr9Kr)7Kv^2KL{j^4<fyzxf5S|DnTa-8wG-Tj
z4pLms)yPadta=3rB{Lo>`}*NAq4t41;O@1-<Il$k_hlwddRa>*6=Mijd)-P*n!}0P
z!lrofcIc*-C6XXRe55(zgQfM6#tB8DMdx>Yr>2VX#N%V&fyQxWI=~r5(lcqZU{0D#
zHxLQ1k}*}mbgE~CBoWpBAef-XYRuoo1AInYVTj0b&w>G?53pa*Xby#97kam9pfM9u
zW>GSuEmZ=BfnZj-9cV-^B?F1ltjkdLMrEWOq`1*%57DNx85WrWLfkfSjy?vAH^5<_
zPMLTN)WXt~!4RyI4Z2c|7zO<!<CWQ>jp$%+sP{bAT|vAqA9CTn{4@^;<8ko@>41=+
zcem2=AFo^aTDffy4!Zt^!y>PU<JkwJxp*hyY<$OOR}l+1c7Upc9#jR9WGUAF6ZPkg
zR_4C(KLEJ?JH+e%=Nkn)rC#d}wc*l*cki3qoPNvWP@KSb2Z)uB#57_EaF_C0Rv|vs
zvGF7^1@IOVnSBiV=Tt8TS?(i*lt&O8-TfD>gRgGWRBwB0{}++}x4SU_doMS>Tm$VM
zyJ`J&u6TJ0W<E~|I>Zt5VdJ+%0kwE*N&DSxQQ<+VG;4~t{B#%vB<2Y{;F0R}ZeOGH
zmPkhBE^gDf>IyD~`9HLH!!EuP>H2{eAbu$rcx(epbOT+XhI|p85S6~sT`ZA>HJdU~
zOLN9gmjMCp#!B1r`@a10+wa+_G}G){ER3|NHlZ89z;3`@Qth;B3eUbGoU0{?QByCM
zJM=PHMp#9tQH3}SE_^FQ1w2@KG&+fyy7~765h5;EZ^QP~TE@4_xV)^Wb04T>;u)k5
z&A08J+x?Hak^OWwI?1ry8Mhe^wB-R&MSl8$m!Kl`BvmQ3z!RT%M3G5>tyK0^B;k~+
zT7n%c%p}tIc-x`<+|_^l@jzoQ^R6E2_6}c^DN>>*if4!}Wa=&&QKMxhX89|d%1pFg
zvaWJl$Ek1)+vur@SGz_i{c2Ey|2v+@6)V8KgkH;Q47o5`C)@0%nk3CLMNdz|oQpG?
z{5%$&vY?#IIKu@}IO}>Wb;CV8o>ZcD(_Ny2FR*uj&3(9--XD1O1)<n=KuD%N0Jek0
z7?f()1>V@n-GY=Qb>v&=o>+yaTWNZ%H+g^Z>`ljyuuhE(jdzB_X;wBvRqQB_Q69$y
zC?TwmT#OsO%=dAv*>eDItmv&mA7KUIx3^H7nc?kJM~&Zz%|c0aL2t*o6nkB$s5+1E
z__Gd(<k>#hcs*K_fqeWNG`L+^R&~IN*aBc(go2<kjS0&XFD)Wd?8vP2KL*h5pm$*p
z)f#F<5e-4DG}_1Sb-Y;!J@&{droy%z7?cbTha!zsx5?BAdnDsI;Fbk6i;g-${N(8t
zZOt9Y;TM?R#c$D@+Jkk{0P7YchHgAg)I#s$*^)R)^$Q;p6??TBZwL+9SQiwDAC?X`
zf##)-OuP6Pg+G!uR{x3HP29x@$*{v6c|P?aAraCMH2|v};5Ptzh>y43{u{aWw`;rx
z0Ydh=Ra0u7Pfzvu(1~opZLt5Ta)ROFnKXUIeRw65dlVLclT@o+(v{Z!$0A-k*l5Po
zWjqI{#`MenV%rYn1?>R?b;No-lIs|Pfx4vP?OXzIpwU+zOKS&nlHXf3Q8T@^ZCfAg
zoOE|0y%#C&BY$w`jOdkY8MX7Zjo;?w-G6(dMX#@clljNEFgW6DBoNj{|LVyz7>Euj
zeI@Q)#DBT3|M6#)!$ezcAa-vD|IW-KB0PS?9cKq~wP&c|iYWK3*MeN_86{8r1P-X2
z9asQE3>mrqsG8d<xQ@@7;oH-@FgpC-nx_A`)*N`~ITjCToF?X?;b3xK_OiO!$Xu#R
zgApqeoNW7<=b67Y@H*epU=1mvHDc~o!<O^{3?Ts$zUO%U86u%l2NE-N`+DXmIjLws
zvhG>XRv{3C{t;6!lEuitYRq5Y&j0Cr#*O&UGp>9KCE0CLl64l4AsA!cJJki?Zjm-5
z)ry~4a+@K{|I9zonAG8Pdrbz8eQ6`d*P|Ovw3`3@w7URfpW!n5m|aqUN%HuOH;Xv4
zX9c_IpOP6C^)vN@lvnkyOkzB=%XnQD|7a)~Mz=;%o8QT+DE+i;zY9NIzs*e13!ndi
zU5&@!{r=s};Zqaj`k959UVn}r>v@6`PgPm|lA*U4Q*NRaawkTv7}M>${RZMnX(Y+b
zYZ>%2C^yYp7|^rrznHvijh@rkI%~B<1=l$F&sO(n$ah<`!_th^Cv4GCYQ$aMBPIF_
zF|gTOjrkXV^8Ba2$}_~NigPldTEt-6Bstwc_rW@2_sWOE9;z@p1uy97al_8fhI(Ju
zz5)LDtkK+}PUi|=1!guVjxE2utx--|4lahF^cfAv3MKo;v{1-r#%sA3pc{g_?LRH9
ziY7%vM^m}>s&?7EmnqJr(pf$+XfBy%SN7zFHQTn@);#y#c=UhV7Ag7rj5UCx{KxEB
zt=M#0f>MP!LoTo5D?4J_?M9rvsA9z(J1#+~ZrgYv4)*mO5K1yosCn1CjBGz=gQe+!
ze%`-HaYu_wAAreU0S>4t4Gcms0wwxnj;D2BRvk$7ICqYy4sD(zmYF`{-E?^G<;6$u
zHA(RZyADzDSsVi>2)*e(wFEB%O$$g?$wb3~(F{J)54=9L8Is+c1Tv-*zVd|dX<{^b
zEUP?!VGp=A(;LDBBxWm{l!@$9!Av~{%ZMBW!Eu_1cB4VtBxZ2+pXl>vIGTG5)ouhr
zRoW|7XxbYiY$h~kSulErsBC4x(0WC5NI$i$ggkUjy%)7k68*9n_t8Gbo_E`VF*s9-
zB(XvUj_|UshevG&?&3`)O&Q*Yv9C<FMt)$Q!DFyJX3RQ0)`ur2dHzCL0Q|H_VCeM8
zm4*tFm|GTP!(>L&l}A5t>E+O>oc!6=0_lJBnSJnb<*IG)ax!E7q|UaU8RzcIXC_(^
zcVZGPNLYH|DC~TDy@M0&@a1M_DnO|?HNljsYx^lWM2}IE+!i}%MzGG?#Ov?n3AjTD
z+&lXMB&I$=hN4aq50=mO2<;t^3O69}c}E6!kzqK|c3#{ZiKSl6;&rN+Yq2u~xu6?(
z8N%lQH(?cf53oktWYI_%<zP5M)X!Ei(~+!uH9Hn0GqLx`UofTvGyTX0u7i>-!T25m
z@ee$xDhoWT4hzWIzXSvhCKq1;a0j(;KQ(I}K^9P~ZlD3_0j1r$wZ1A4QP;BotHbSD
z0B)Zj^9m%76i%Wyv0Y2W7|~jF>2!St8mPH7!hMP;6&%-HH1EU#xBNwygL${iv-4B8
z11g70t(x(v!;5JE0lh5@Q(gZ!WC-_s*_uzZfY$#&7Xh80$&YDYz<macWiaGuIaQ|Z
zXW{lB6Q}}R?CVfWH3+nU^u@NLVvmn!KuS(t_l(P$uTl6b<Nw5shFzb@>O@yiMfn_0
z4iL&2LrUI`S;j8%b&*z(j`Z+J;(%U*CZzEzk@GTZ<1Nq-ybXj&&3%wPQ?WP?j9Sc8
zzhE8^Of>J3Q2#^3N>ug}Z(Ty3u#8m5Or%QIIp5XdKs3W_hK@5I{dOI|G-l9%ZbJqJ
zW7TcgWX@|oTB~%wA|Q0Wun11F%@&T<m@pagZ9{x*QY^m+{|lkf5YAYxvNf%Rw?kw)
zURfDj4(V2E$~7jB=#iyckB(Pn{q0TWhdR}4oI4$AjH$V|Z3~Ofs^-O{_yu2?X%&w?
zJmV+s9%p*JhA*IBvBLL2s6MpqTMnymgROV+t?GVUAQk4;8=IW>wDI+l`n|AtP8V9+
z7c>NQ$Q!jk-AzyMQQx(`Ii|V4SsO~aJ~9URs+M~n{ErBVg|e;l8ci+8IGG9ixkB|)
zlji5oEJr5Gz>qmi>|<Ij=8k{AFKDD27(BJq3g{RC=eZ-on&ni>21}3CY#TgfPU0xu
zCw8oYTZJafPYF(*nFmizSmepJeQeJL?W|xy9y-AjRrBOT*8o<W#jXBM$+}9DSZ^pv
znsu$()}lI+m0%_BaWA3$)M})#h<A<N=>5zeZ@&45MOK3!&!tMK;Y}%oB0nvnJh-Jv
zEI}%UB~5!Re+34We%2oyt1)SgxiBgwGZCL5%+r2PYv4HezHHYRIYR->bnF%M+R4}X
zx#^h+O7&fsb;b8(?~{KUhKT|9T9-*#5zJ>zoC(U~%BoG?{KH)%CD*sf`|)vpiib#l
zH;l7*s-FwRhFjZaIHh7lyMhP)jq||Dq?w>FpeQ|5<J)}x=~f(IKVwSpyt8dg6BIl|
zZwIXU#?LH^-P$C^m5JMWZZyijSNGe7DdG|gyzeFS(_R4H2|gSDE&Nk_XE*&#eR-&%
z@?T5g|GiuM%u_l{^*U*=uiB|4G5;8sLx|Eq1H~5gR9anf8(ZbDbA5~)QA}ae<RDuX
zSY>){$B&l%a2*Ky)}d50%d63wtQG26-!sHVpm<+D-9PoGz34J`$Po6S9d91AT%ClX
zq=>mtqZ&~RCo1@GNSPRn#Lqtio6nPP!oyiUtbPI9%+xqzq*$RXinTR4aIjsIlFoHx
zh8L}NR2wtc80zu8Z4~V_TQm(e!TMJB*C&A*$vOq%Fqo6=GIhMI-X1bV+l-1%je|Ll
zp_^i@2}ab@ptzz7Ht)R31iM_4Xyn{HAe*LNZb6!5>3~{UG%?UmFVGumhZ^OG=-!S*
z1N|l(HH}ekCmzd$jsDp^uyMfaGm^lZ443)K*cOsXDs2lXaCb^7To2-R34suqCtDhB
zu+0{>A|29PhT=^IzKO4>yLv;Zd9lyeJfqjK>0c=B{<D>w4?p>)I{WIK2-hMa;b|0q
zW3Got)JU=D?Tr)@`ZTtv66KdJ50m2chk=!I3mso$%?Af63&h`cVXS>088XN#Mps~C
zKHa<bmHdImqF(KaFgXhpa0DYbijoXaCnf6O3q)tNl2!b{a%~d5X#CWay~eLO{1!QH
zyM;U&Y^1M$9r5lM%=jf22s``;W%;!#CBj(l`vn}^EInJ8TM*_^HWTYNJP;0Q^{cIi
zdnf2$$w~>4{va7<fn5bljKazGIpxJ~N{OX%<|C98S`9S!<h}4;A$ozAN$2zXnZyOn
z)(GQ6sduJhgqxlRKCG`I4w^f~cE#1E!u1OloGEmc;-q&cgnJ=7ywnH?8`lX}w|`}q
z>yv7(9CEuNcU1Vu()so}++o=$OStYOZ9kq1IzAk&3oL!*2vNH`s)-4w!7g3K2!NBW
z%PrdaTZI*MV_!5*rn-&-(@$N7&J3?LqiT&uSHWg8&r!|MXv0I)``zC@#dhma`3G&B
zj|*(diE<KUb<Dqp)6(!&N9Hl_ch5(W>Kk({XEe$4VsO0#JZ#)AUffulbmQ^fe}Zk~
zZ1kDRI!V_ctP1qm);8w&edfH}tuCQV!BKqALdNlu)zRcN{6gVql}YH;q~@UHb==xZ
zD$ayJ{i#fLP|a$y6z6v(z{CxA#%EzQDS27gI2>=At{}q_L(aa}ayZ&j-RE5XJ%e)Y
z5@BMjmu#0pq*!pb!vR6PMXdspSlgL{HM1rIUN#;ZwO4YpjtWrvoqeHpQ#-n<d6#ge
zV3Cw7Ui@o>TuCLJqT!9#BR4Cv{ipj-HM5&G&|dXmyu^t|6C-I~+*AB4JR^<Z5&`D*
zuGRB)swpo=aS^dX4UHcI>C=A9qLs+^Kd|AEKXV5C-G&0^vT0jzeU^fDuq7@@I_sDD
ze*@)Gti-PIakS0Z)>?-;SV#N;ZYdJ6XP$AA(3{?nwh2@&Yyg(5mY*4o@wgdd!JbbJ
zWD2rg00D=)sC{P4N+1!Zk%W>ES!Eo%fsFOJ6QeH0a^UlC{XPk#(iTv;{rT&my|IGB
z?sd#tHAT>-tn0lehx3cybFH)KYMPHa+OyC3kWfZTq*VfzRb`zw|K4!VIY+m}l6@O)
zOLoy77UbV5jxmi{H=VVJok-$<p_R=p7(=l)2)yRnVX-FSZs?k2PrpWp%!>_vMTN@^
z0?uL~kDNQGqIcz-xaxk<#(w{un_i?NtwC_=byvlF_qW0Xr|91grQY@UdanLiZNgHq
z?3M=Q?B$L8g=s(R%a!@nFI<=0prfc_<=ujp(W3bv^_Ws_gkj!%CwFcK8Y}z_NrInP
zm|**chZ%ySaud5AUL>IW^wNjzru@&(YmMgmIkG7W%KqImS*YN<=Q0_|vRb%{)VOa(
zi+1Vjz?XGk(0pW}_d+qA^m)(~GyaXw=}2n=Fc?}A?hawaJ~mHB*3SqfH<Rx<!!t=s
zo5@$)tN6h#g?0_8-h=Y^08>nFk#e;FTjXh4Rn;5fee#nb4AIX;UL<)(MMp^gmI?`u
z9w&~PVnrI2T&>b#_Pwm+<YH*wZ1hY597E{sGV@6!r>|jcBvxeJSer#&)P?0~O!|B8
zgs3y@>#C6r!FSil0+fpaZ)UFC(vedm{qAe9*d@ujIg!yV{=EC#!t@^FqLt{$yV0<c
zeJbzY{x$ZhoDq2bD!kQmObaBG;%hQCMO_D($#9mXdOrQV@Nu|eNYP7SPSnaq%JE}B
z#Ej}GgF^>{n;r$3sC?3MfAFVhj&bn{s-Ce~pR~7pGq^Lf@ImPGPxD0rluU*1+RwFR
z=8bJ4(q64iS#64L8uD>ES_6zNj#*86@8Tjj`ICRiZt<@^MYfgqTtC>zO~<5AuN6qF
zD1Y%%m}+<aD|8G9b04%J`3(H|&MNyF<VdjgjI<_QxgPnVBgJ+|Wd0>!|EjV9U>|%X
zY&85}ZW8m3>~5M8@=|Jj>$&1Uo6MAoYd}7I!(^b=7R@mH^UvKYnS2`9i)+OiNscPl
zinolu_x&_4Vd=?vF4;Qd=1=^(%xROATA6(?p0f~gGtVDCApy_R;Y4A@Y>Ilk?*Kf@
z_(yN~9+(+!Wy$A<wHe+H4bjw`sA^JkmGa7VL_0=WjQE0qSS{bdeBj*S5zgAjYgF>3
z11nvaheC%p1Ex0NO0;(ltKMtuoQ+>MuD7y=c+?6?@PKnlY%je<I8PPY9R(4(Khykr
zHZ{rZ7n7TD4~Mwu%MmL@1+dv3SrhC#l>E7N$11-$2`lFQ>)GeF=thER%oPa6*O#r5
z8DeOgUfevKg~4lVjZ4}E`I0)ifbalF!hFVVh_yUlw?VJ-Qds*aX{U|^C-%gvSUR8c
zHc46d-qbZ-VY=|?VywkOm;ia}&%XIO*K?6Y#o~hD>M55cRJXb$3)CL(x{X$dIuZS`
zd;V|y&w1&-l}+SEE(ik&A<=nJu-Jhh#kN4b(PV4oCwUt)Bt5xYe#AKOn?<k*i66;H
z@pUKS_0w%L0ZvaY)fX%=OmAYn7Ch`P*Z;78?Z#IT^vYitSK$oCcL3{ovoRPcKpt05
zqGD;Py__wZvyUR{QzK#LY2SV>WqfjBJcPeI?X%`7Vx7=K^}T%TshFQrT>?_Ra#6^P
zN|m?K?4|}^CjW8R*Q_`EaYJ;KIZA<*(&`<b%#THWW9H0@9l_c1Di6cRg<hA|r&8s+
zUKA6niJi$V8yICwY~AvAGP2!7cEZkU2Bu8L2ZGm~G<f7+!61Dl8;I7F&1f)n>-y9v
zoEO#qeML}pm(a-EY%=4Mb|tlDcIh|!0<3<Z8*UQ?MKu(~=;ztg9GcZskEJNR32q=K
zD@2|{5_C@YmMW>|N3}a1uiGG0tk4!}%~C0KPF~mGaW0S^<O%0(@~{5|2&em<E552?
zHEwM+c728tJ#x(6GgN2Y->wR-B}rbx9+A)g(>q#qRnY`LUm0$eR4<h5jS6|^9U7_c
zTD&3T;f=0p7?qr$KmBuxbr>nI8E|ARXJKMIxw(D#DQx@W%nIQsvuox-)nf7toEW?T
zgPl>x(Gr>AZULe9yNYf4ho{&o_3L2}TtR^w&FlCU4U!VvP)6WgUtI>(B*pw(aSs!-
z|Ld?Cks3lGq|n@z=P78~DhO-BSGL``^;&DGS87A#um+3_Bi5I?4IihO`4n2aRaPfE
zABa`@V|HJpacE}ySN@$AZc$=&u(Eo6!Mgn1E>AW7if%!>l8&#D&D7$t7e4jMGxR5l
zk&mv^cV)-83wqR8>oMR+qX5~C=*R;c{pYhd%lq-<b|b5(Gx1Ie@uAi@m(j>CT^Is3
zK`q3tHCU$(SF~U~&75(yf#p2Tthhk5v7<T|sqd#$=C&*@^q^&CiHHH{R-%5(<*L%*
zZ+{r)m_Y7%fQP-x(|KX^(M;Mw&~8YrP%D)ttWz73Z4GS(P2K3$W88kAB7^xo*XNOn
zP@6d^7FETC^M7@%VMy&W&u6|!7ai#zue_(V%N)w<2(iJI3%)4;n=@$DnBjB_xTp@A
zat}aPIQpi(4-SqEz7w+{1)CT;u4A+DH)5=DP^P&Q@fxgBHJ=-+D~8qdYsQCSoR27m
z$<bF>B!v<<SNHmq>cT_!G@))?21!Zr-~t6%5ynyK><GDIRVhVe!sr)N8%?_P)=^MA
zjfOfuF%D&^zvqFH32s7mB3*d*0P}A-rjP!dY?6c3n^b4l7OV#xl9#Z0ammwIXww3>
z33>8e8i$eDEF+dAxRBw*&2Cj@84f(PwM(Vl_2h4P7p3Z&o`8a@1%0YjWcGdA4EKhp
zMvSk>R)t~<_W+QaDKmc@AQ=W%3{?V2MvTXR`mHYdb<YZW65mCT(TTwq?qqAq63cq`
z-M$AGkKgg+zc{WU75=p{UZf`z$BUVol(RpRPZQHYan$9}x9F&+rZIs~lFHG)(OmC9
zA&RDn+gEdR0}9TW&H<=73^hkVdpj9=9L9pO_0#`o@Sa)<2N#lEOd)LlN}VDRnazkn
z&g$=MdId6iFzIvzdaWKvG*IUPR0}1rwmDgm_LQv$NyCL+cVi^*m?Zz-4yFArXOKP}
zgNLg+iuH`)?8=6C?>-o{it~ksi8jjH>=7jNZov7M{X*||R(yL3gXP5$a6MBMEOxJd
z?14eTZ+a{l819N*hl?3dmCr044mGJ0jd90zmlj4V5kt4J_E9*DkEH6c)+8U5J^SOF
zgE>1AYC=c(!H9TK&oWv=l8vf_gK38!;oz2Hg2W$tMqNv0^mE6YnS^o8`CsGAre~jw
z!EG#`Y@=xlc366e7JChkk@NaDI4mtQ;jHtG89Uste0I2yVYf-uI+(cYgu?Ehev!sp
zy!Slq-0>sh8V)z_9x?nHrR?>q)TcC?hZ)$6Ox?5cS^-~=Nbnmd=^Z_3@$jq9(Yu#-
zw#GfZtN6nS{;p}NMA50L`j;~!W=%y!MH|cEIqbf|5pO(u!M35Wh+<bYU|Pi3u>Ok+
z3Ji%Hf?&56h9xvcuX@1HX9*Z?6dTZ5_S(kMqab@1T<mGO1wxtmsy=Vcz!1S9>NT)y
z9utadjEfyH(I~dXNwLUW<o&_a5T-0_hk36%wCOQ$5%HR@REP8;pZ|K&u@qWQ!l=J7
z18%TP|5O+22MGgkJ;VLByAvs34wm)|T+?F|0I|tEEk(qShNGsBTsd6m?vwnQ<|F>R
zTO#lghZw8#cYwi~$F!%Ichk1e7*Y}ybQL-co-ts&2k3g?C2iU61+Tmp--C7-S|gz2
z&azM3bvnX|l)32yEu)VPhi?|nEWK!S+>C%`3)`>_g-;aparqik(%t9b{860pWdC%u
z@xmEH^{}H@+RTp8!FHM6;@rX96wh&A&o%GQz2{e{qi453A0seEPAYu*XJ$o?EOTs4
z&O$PLQ^dC>Txh|<cloir6T;j>pA@??b9liun%Pb2dAHyMCAl`<8&31*p(lf(i7U<0
z^kS0Xfkvi&#T~K}RO7<hJ!)7~kJl}CCxxyhUQa?rU)HE8dgM&tTQZ(`aVkF^SBqVB
z$=dB7%F5-NuMQUqX{s{iys1=u_uI$U1A<#g<E0bI*}g;Pcr^qmBN?>kD=}XpE@nuF
zF*|$iELxZ*gp6iDKdS?SoSc}i3iC~6rc)JlF$WefUG+t#=fj1{>;B^0JLzP9&k$_x
z9qvvy9qW!*UIgd{j2D<$+G}9cq-*LD6m3$H<k$UeA#g>(w>nxVB$#upG)<v{zm(+n
zgw}1+IxE)qo}&ytO0&Av0dXO`*CuixE9aJ9ij;095XN~?2#0Csn&TTw3z^x13;XMk
zO_#~ee8s4jUgII!YrTd$V~@{wZYX}xEV7IV|7&CT<(d&4yYD_oX*3|K;9Fv*aG{zz
z6e~3+a0gV40^>#7-puimUn^r$O)mz0&nGDxF8UFB<c(8jUF(oUNi(wjk*n@hFZQ)v
z19I1A`Bz_SRNjakQYfqZ(y@~8hsZ!?t+zFf(gn~<#8D~}>N9(gQ%jqeoctPJ^&z!j
z>`G3zgm6Lcn(`2R*s96<$G8L@h5zaVn{yb)rr-CE8y;-bF<(97RZ5t;zG|=Fz;5YZ
z&lK_;Cv~k;=OUwy6Nj^d<$Qi>*PBar)6{RMHe2mB0F|1{B78nFZV%+<pn~7T2Iyv2
z!;7map27A!)$-BJ-D=+hhHGmg=LNlDrn=^<4~@WhVVXN3Qz7b0jY)#q(Lr(%WAsQL
zC$%uj1mciuwx-O&@jFK4t|!@3Y8I|#hczeDl7*bC?u{2RHd@C*bf6mP@Rhp}9D7Jk
ziuECF9xpvw#E2E#UfLUAF#o~SMjwFpDiucXojchn-Q``c#FCSNIT#UKvC=F-e&%o6
zE8d7NoKa4%^wLR*k(-q`8EOj6o}U$0bJ*Bb<eO9=PH>Ds^%6|u&za9mm>sS0x=L7R
z8MQs5&-jP|-ybqL|N7VyTCZ95UhBK7n3aS?4`;P!f2L(b*hEY@S)Qn#_rCd9*ld-b
zJ-$Pwu{vVW&xoO(%`ooK2xoo=_-~Q$AWQqr$Z|PAHBi?KqoaH7GaI)Fqm$Vqws#GW
zj&gkyGDDlp6PmFnhsJgTsG<eB(e$6JJ8+JK<804HpRXBo^Gxa*%v)KDiiTpne`?dy
ze0nN2^7cI833Q!M7%^9mp%*aqrvHq(NlL>f8r3G17$TdDr#jaFTrjBt+U$HB;cFis
zA9bF{R-bsQ$eP_F@}+iVD^sD%Qk^`ke7K_08a10L4=32-9xfn})ceiYJXAd0Yb2g|
z->fPBU_ATf$mHuCv;MZPIA{z7zZa>g)6f)&weCkXFAq&1n-m-TvKVao8_eaIHj{(^
zOV74v5zlLiuJp~%&|5~S&h=Eq!g^_gpIy6`*VmeQT=SNc${y1+`?X@7)9ZU{`8G5Q
z3pqmx8wjaIXvNN_?NJ%|Q-4UWcy40VMQ%2G=)*p}>HT$Sv>fdjCBwy-SB0VN2^)kL
z7e|eWi@V3uk%X^?kfsULcOMkD^o_j~(KbZLN={~HgwYFM;g!eo;fOuw)7zbW*+V&J
zt<r+#lc$eysP3#~<yYRNA>D<|M7l$qN=zVDmMz?)+B&pAC@L4{qVmP=dqK(*hVABQ
zP^<3ET8Q~X{#!(!W<sJ6`g;OUV|;HFhtyV$QXt|b!^89#Dxh74!ra$HD5`XM=%EQz
zn`r{Ys~UhmP*1xasIdnbUlYpqnIyHWlLe|dHJHm^0!xZXkw&FS;cI^Zu^*8fQ;6Ed
znDV|c=<q7%BObgYlJ?Pcnyu=(e7C-89rp_=<C0CWW(2pSO{_oHv{~5pNzcLHw0zC5
z?&2A8Udz@j{j*GV>C6Wsu|dgULd53p*==&f)#Y8Q#`CG_TN6ibR4p|pjP}9peXeru
z7H;)Q-3<^w{el@CEl)(fu!?b4E@{avT*v!gl~BooxATH^a%fVSE!+O7ST!#nUaY*4
zzcOM7wYhl8eFFOlPknnT%3>R-*U;8N6>3f3*PI+$Vt+j@#E)~nDF;q0Tw1FYVA?Xj
zA61HxA0Nfg;KX-L5GNZs=)qZ5{orL2zxr65jjr6`Dc7>mRM^-iGTKjO;ysYu#I~jP
zLRJr23EWbfz|Fr+v9=hswb9(dG^-Hok~3Fw8m-K>x*v!aI;6ShuLQ!*S8q{U&5M;%
zLr6|=Xki9O4I$|m)zTxJs^X=6oRzbo3G8e@>cJb2{Pm$&1BP|>hCi78q1bb(slS$Q
zcHbYV`(Eu4v$PhVbYGu%+cvat$c$BS`aL)4;XOQw*=PJV#W8q;@HV#o6sox;CbsGn
zXIx}yU?0esF=D-tHQYULtU2bq%SQY88r6)OoZzHxYr$7lAwDEV_iC+v=9(@;4ix`X
z$4LMP=}R%`O-BYDvOf??zo?WxtAsO<x@KE!`D&O3n{wNOinXw&4FiKM_3$H(Dz4Ma
zRbhit!k>WuEQX^*RNWXDJm@DR=FE)inxD`fNGey)o4N_j-E}-7Rdo^u;}^(v9987F
zP||2oB+S(M&gG0mz6ag}*<--QMWO0CW2(yXV(*XUU4S>d!1fLNO0x{r<uW<dJeYv_
z(xeefC=9idnq6GIyCQW}tQxDY9-O1<KwdkQV4v>5vBkd}sdJ5Am$I_<!eTCaGDSEV
zlHsTVPy2X@;_A#>fm%<WrMh^&S(~srk9Hf30qw>tm~!UQmj@8stX15E?PCga;@Uxr
z`Ba4^%bKmj(AXJQk3>N2tmGdSvHYA>0jK(lr0+HNtzwG%Q-f!0FtgH&M#WCGExYA!
z^&e{$AAZ`r+rN7Y*=@-DZZ~o%v$v7&ut~%Za``KV`0{<cp>Egdy&>|%P?N1u#ukRd
zSjBUkMkI6+s<>xj5f0(w@WD#jm%6RcdB^q!1uOr~nviPPfoWo+=Vtn%ZAn)Vd%;JB
zau+vA0&Di8>P_RKzZjoru`Y@nJ(CZ(Wg0D3+nB`M82sE>G~X(E;AhJ}d_hXuq}+_E
z>-4X4#j!lEsa;I9B@<v8;&HI2)1U6+k<buaO;G5JIT6cob^3mJWSX|RWfVF1V$k%K
zhyW#LYd8H|`%Ak)SRrDqd?T0Tt9RYF=>qkdP&PO0J1jy5POC1e%%<{O6owSID3w<;
z*UQbB{DLG_%i#nwZ!QZs52sLS>xGXwH)Kk(MltrQ3kHm7Ajvoq-6VmfsIBMi50(sz
z%uoMpI6~kfP==YQ(nE(tdLIFi!6`A3d7Br{yL^aHImAmXntPc>+?!%{oja62{$T}b
z7tRTgEj`|6yXdIKTVLguC({!r_GJXfR?<6>-Sh7~@l&eB`o2vULaO?>(C~$W91N`?
zn^EB=`opVHRpLSQ33th1&9{~goufS_>WA}H^A|3y(73UQ3S1PNcJJYr9)Mq(H4cO(
z?emy@e_Fi;_EbY4YPzGWVUs*jv|``whXt=-Xs1_yaRE(Zq>RAt#s!SY67gN<e=sLs
zf;KwN|8S$m0@~<0e>Y)^TD;3)+{^oJLa6yfWKG|8*16q7re$Lo;EW*&$MX)u{vLdp
z_D#y(k(Puj;I}~dXb5h<uh0${XF%j;rP08OeLII9=RBre`+N8~(d_E_iX-sRlC=*d
zz!bnT&k(v5W1_$Gv4meT+-QWA_}W*!W~2Hetivu09z!?E%!jz_^qBdE*&KS0B-~0g
z>ovd4+z(do3yTUONeru3S4y~zmw^k^z)V%&I!%}y&JAWj=pVy3bOXbHFe}%Dt55IY
zq*(-{zy^E*nuOZjJYewzCGt-#z$I=`nyrMM=$XZrR{T4CEUCJIlg054<DN1tk?|=b
zj=t+wq{m{uVGdIvWqE6GV~9oq+5i>`G=h2hx^;O3^W`)?Gx%2@4PQ9b=2^gvq|^FJ
zfWt6Z9klCzgBm*SF5QD~A`p{*A3%7Wr9d1Rsd!8q03R6y<^m`%&<@%Q&E+`Sz^#@)
zHzBFd5azvmD)z-a^u8fL$%Qmd5u2bfEn-e~8?$8QXo`z9Zu4Q<EgAU0FD)3{cdT@Q
zAFe*5WfvXU54&(tbuTLrh=W5Y_*fuR1+QYfuuY==FZq&cVQH3!yH!__!e(QC`>bgM
ztE<S=^wHbmYVPz(6E-hF67HS~<(wE_eLZ~NdyJLQl$vK<R<>x=W>uTpbofX*Z3V7K
zXXFEeE3abT{5+nmvYkq|bUp+{ooU)lON5U0Sk>6vUasq}x6g=4Q<Oi|(x6E+Gs{i_
zhKulBImmI{;8~k=mn6^K4L@$zKs!9F^Nt|4$w>~|ys|#i5}xTrmdQUlUi<*g8`a*3
zwMvlogN@Uzg@GpjqH87Me<$yW`6(mePG(!#K*JHg&;YY$9sRP7Omrb**(AYPgjNp_
zEXc9%`nFT=lb2xQbg+<-x&f<#wYh#X*1ps475rzOA-j%TV~(4#jOMq`KXjn04>YRc
zNhoaT!}-(i<dgjDk_o8i3rR(cYyWOyVLs8R?QLtXNtyed*OOgGZbJ1C*$SF9-mW0^
zISX$HlxZ@PZe64PmRxu$wm#2t(lB}~7aHF?t?6!Iuw7B=V8^v#sfC+Q<*OsT%wl5o
z%Zgpw0JVDm0_luV_jha7u;*SQ#;fcty>={3A$`P&bgnGYVz#7kp#M>!I5nBZ*DD+(
z6_OvCm7CJ=z+?7l;li}(U!fyLhW9u$cw2M1yIk^0ypd|maL;BmgUuM)hvUI;)#NHL
zbv-E?qT%2*bc-uEvG<#?(7l4Z`XI}V>dK*k`{*%sA{jcGLxTZVIpU+jE-TRJLr<9-
zDu?EO<AL+5aJLNU9=K>n;%ahtj_gtHSaB`YQsKcF!r)?t>@ka!iEIoF%+7m787%7j
ziH8=Iwvtb{en^m*SO>{PCI=dH1j!kz2HVw_lONV#O;#5$K)>uYOWq6FWGaYK^is)4
z0g9=`Di<|EI2`lx7Ni(XOZvxVK<{SP!y!6X5jcC3YKePKR}Z`KN=;wyhD)V&g4m8C
zT2B;?rva4pvbwwpywhDS43F@5|3WjY1_+OYboN=n!GnYW;}1YOf3p$mWDT()n_(+H
zHDF>)JQeyG_K%Wo`MJAV=+Dbm^VBoq>@&iL)yVmM)?0p8<V%#{Ld28$-JLk-=zs-1
zTr}nkD%FK*_E+c)gL2+rinp$&NFD121Csz%Jy46HOgy|XGj>brNy#yODb__kX<s}T
z=z*ggOzbO2ZC9Y8`?qU6UkhrUZgLqPG?Dr|Q=^tw<5@!qvN&B|H9aS5*kkvE*4EFC
zH7q|#?3yV<>4RC=$F$1kd1L$jZ=;gi1vrW;l$8Sy+vH5?wS^QN^W!B|GaqCPyR?35
zB2GQhmn+zqDeOANUm4Wh9I`LVtFQOu->=<ri~w7YwfBwY7Bb_f6RX@bQBBK><vV7v
zIeGU+QTF+-1}#>_2mR8Du55G7?OVnQ^kDDFnT5g`zw7RKq5J$49oWaMGCnuWEBKPj
z3Yh~TZ*7$St|);F5Biu&2kS`sg&Ka`iU_)8wlxs9N}X+p{iNWVZJ+F~8gQA*q}TOl
z!P}`za~8>X(b8s=fYwW+!R|uFQ_5@JQ@#@|>d_Y0CmgkJ*jOj0&i>Mr<^p3?zLFQY
z76`HI-~M9_Avi*y?V?K3HC3>=?oHUh^S$V!ACdGYw3%Njs~+2#Y%zY>uBR^EC1bc~
z_c4%s4PD)tiwEk0a8Vba`}}?3UMW&<6NhgkbG-iy;B_42mnUF%Wy1i1k+7Q1&%5cF
zV%5QK3!}R9Zu4Yqk_re=@J6-dE32%+s7p|V`Nx4TW~{mYjD!ZflDswlTAfFkCV1*X
zqpwO|ZJ13MzbZY=owq~R^gZ?HL8&@teP6irKJ@&Af919XK8pjwrrOorcyKMEG{h%k
zyEqMD@HZPAjQ%bT?m#*(_PkpILP2%TPqpAw$g@9rN**Edg^rf3Zfx{4OX7}&7&xvO
z=J{0ueKf-*Xs<8%RNi5_<Y_MG2~+>ndF4EQI<bO_yu#)y8yw(%{>zU2eS{><bepe;
zpua1I|22(mZ5^lf_lD%IfJejsGKT+aI`L|UJ(x2`lWBv!U8vm)19jxw|4`roaR0QN
zzg_=H?rP$Kb%pIRzK;X;V0qo2)#7O|(15z(!2`YH%x-z<2~*JS+XwbK)X~Mf$#?wo
zvoZglFYEsWf%{Ud_+Q(cLlTjmQxZE9gZ-G^&v^T5=pz8L{290~5SW=*ImWBw^*MK-
zQE90Uh|T0~15H(;Gn6&T^NtXu&p>!9Re@Sm6YC^Do`ZuJTKrqH{Wtuq^gm7{NDZgc
z-d6~@YLBQAm621N!|rej;q`TJu|#t(xX+kT3WsrUMWmlt_b-UEwi|$&6mcA#l|m~*
z63Z3>zlr#s2Gq_G+2~CW{&gHR6mbG9(M$JP?L=ZjtCK!0oJPaH|B(kDVPUj%X&pM^
zM`)^;?*f>j&IELr12nEaK}cgX4;1|ggz7V<z-G9(6h7g}sOxfO8kM&__Kk&T6CiA#
zbfQxD;4}<;PC^nq#4k(jUQc^E*M}Kb3m^Ccf#8h46WrRoCZ{Tz+oYrHfp4%$hOXOz
zng03}yD6U8>vZ3k-wqCELArJZj2<N2yXpLSB7DN19d#>RWvysN)8((Soruz|=yMbC
zQ-Km%XquVln&h`tPl~?lX?VlORk^1KP!<?E?UkXug%lZRE*-iYt-JcYSLfZW2BW5I
z<UNAt`GUV@Kf`@%M%ZN7tLADs6RJ$<Z@#^UiFqd^pSj~!8tjwt_h-ZBOBtJhzn&<n
z*p71t*{bdfi(~1Uh7wU4YLs;idpY_7xJJkz9%zJ5+;#!RdVxOBF0_w6SbF+}Ab)^U
zM3YTJ`zP&@NN0Dpdk{PJ7PiMKG#EOqT}{oR-8O2HeiU#NJ%pjDXGdqNO+>%aX>*@e
zUW&(bH}mI*vgdR~-^_V}cIwZY{G4LtiM#R-Dj*QE<d?hYYZ$Cl$Si!O+b%kI&47h;
ztm#S?)uIgDkcQ37@_2i?Y|CgL1w2!@wlujTSS61cJ|n+tK;pV@Y{T)5X{kR5kEb~Y
zW^&9l2paIPs-q^YL-RQVIjOpfd*^eolw~;C<17Z}gKk!Bl?xh=!ANkxhlNouOpy+3
zlqTCM4>p47bHxow62g`Q|EjH*J7y0Tu1fE-jP<D6Dn0b|*hI%l%oF8eod6Rkoh&d%
zvDJ+6Ax-7&HHnbKVrl(IP4mG9cO28kHk+1U>Jh430t^2@`ZWQHs@bfLP}9|<skMyi
zoi?s8xzD1^PqtV~-{g<BJ70SvwBoog>_Kocqm$$SwT6m?KYe$rzp=AwRt@yEHe+^R
za!CFiJwcxcjSi=-;f3}h(LaVJtuk-;Y^0bq;3|jCz$n!_n1FTt>)KZ;t76TV6~23F
zNwDg4h$+5uyT<5qj=Dp1HbN`#_4-7_qE`L#_ut{peXWgNI)(S$tq;D<EC$?NSTw&-
zRzLDx)1k2w`bj~YL!%{$tnU%`=XWBC1>B(Qrc8?odeTd4j!(cx<DYjRCOe}G8KS!e
z?4P(;;50lARPQQes1`AVdS`#%@CHjVm0rt_5l+Q=KA4Y@loVw*0mAzCqD`S!NN~RU
zdhq|%-j_!;d3Ec@YUOi4+R}>3q$Pk6kx7CW2B)H72o+=!2_TaU2?c~O2c-h7BKQUY
zkwMF7kU@qZ5C)|}1DGJA1W2q2My5mqB!v+8ozU;Qzq{`J>;7@qx@+B=e^`qg-uFHG
zJ!hZ2pZ)9y&yJV-S~2L*v@~S4qVqn6p7V4leC5xb6O{`X;Tz0K+7)8^E?82t)(cde
zi_5gf+2HS5Q8w?B5itD?ineK$BkMjlbo=ml0T)*wi~v=FClPTtXrn@n=us{m(_U%%
z?mV*}JW*56q(~WYcE?(TwL_eNCL#d~#c8hK%URwC&d!=kCO0NW>l`8l^F;n6-VTr+
z)G_;0IC2QZZ!GmVMalLq(_PwkzJ?{q2MvEEAK*N9UV6QDeaHJp=nEfi96A8=O0<ng
zOSuIXJYjC6`^~ai$YO0om-5k)r2}o%i+@E_uJ#brTFq#8XFn^K$L|FlyiRC~Y{RTG
z$^~k(j6fIT3QvVMwYl6q8nc$g<hYl=Ulf_?C8s9kUUv($t*K$gIzU?;Q$}6!MK#uo
zk4@B^aN@V$b?*cfG)L{|4D?E%cN?|ratAw&GOPCmXKg-I7bqDdtr)!CCeW#*Y*=WX
zZpknAjs8v04}XYS7F`IftCn+~D9RkPi5?II_)YsP@jV*FjoX*!7?C*vOP|$UM%0ZB
z1ZJ`Bu|48>IGgr~*NSE3yx|=~^WAXuh1!){L49*}o1kL)m<ID?1vzdt>-}b0m#aPm
zD80W0iKk{X1I{;lKuzT)#{}At+4nYz@kCajIC;d!#JZ+j@Q^f58VnX!Bf9)_wPMD7
zQ-zkm5&^&x+R>ILf5SVZ=zkm~GJiIx_A4(Z#7{980ou(G)`N+Mrt?+rmzsAdId<!*
zP3Mx=E8Xv^f&&>3RJv@e8X{}Rd{WuBf(8)Nbgo@Py=cv31>ATA-^lzxo6>4Q56nUH
zp62Vn(K$K0-+D@iq-`#>g0q!Ttg%Ol1@Fx3PfIn(t8)e~B*LT8D{K6tme;!jou+mf
zwI~TLI!P&7<gGAQMdww=<5qG0c^Pw}p|9uWenHV?NlelM;P2AWiIp<I)#ou^jq)NF
zSq}e_#GOGWx>m&n@kBKdQZ#PPcRmck5n|rAkf{kTk;uAG(G<}+y8{W_Q%PK^X0ta`
zbkwn9ofWY>a2W=RxB!~&Sp!$yJ#B?t%!;xuWfx4}&fVdgmW+>+L>uehnyR>XhxI3k
zpg+QQ=0|6DhuASKn$q?V;ErubD$wB8=)rBF=FgZf6e-X0FzEe9igm>{!q4A@5KlX`
zBd1N>=pzV5Bq6*-Ibda*K)zB~K>^$PS0H*8GqzjY7LaG>W$<h89vCv)+@ZUxjlf%1
zc1YRh8WN_ST4GW?i+0O9!74tYAZZ--D?s8KZthETz90JRW|VVZ8QeWU_1v_MVu%sl
z_>%UNUcQ$nfOoTfmF=j<Y3farAI#!EZ-F`cpNEKc4-V^~*R`etmT_7HC5T$(xIT1c
zqkJ7zDXcY!QusKDZNGUUs(h^Y`uSdcc}vgJamuglp|t>Lq6}WBV2!3K)SJ^(D<$mx
zZ`MIVN=1LM4dz;zcUQizJ1Pd!aZKFVG+2tVm};z4vViGtmB3dVVrf$wB$2E+^(v4@
zh)2<i<XwSukRYm;aG*9ZE>`i6goInq;-4R3N8iHPO?Z~TdnPVhu+G>LUGHz4?AwTa
zTA2TrvRh(w3cT6fsom=uh?Kla`2FLX6=Sawz4EmwtgYS-=I`s^yrLuoN*-&X@tKCA
zg{x5OQAdGa!AYg*RaF&?tsY(ZseYm463#sQ+!W4f%1F5(;hfV(piWwt?gV5Qe@1-5
z65@(x<Tam}(yB<*HgbI~*IR?>abbqmmdjnEBm?D{Flji{8kHRb2M1-ay~&o*j$w4e
z-1es(J((gb(`&-J?*w|ZDT?{;f!D8g{tI|D5TW{6GpdUfx$tPYRwpR9ZfVsG9}}F6
z1VQhHbW{V}!C=Ib^5GspM4y`P3M~AwGAC|NV2$Mq6n*gci?}9?RL3YjWQr-x8Ruya
zvVQgv2pVGStTTqZ;nAtBf!QLiDut^5Iwe2Ozwz~J_l&)u)#wg*)=uhpHrJy-=;H`c
zi{nqwywN~GXfW$pj3tR{;?VsG7o3=cw||G5Nw@5eK86YJ%PLt@hOU5xElCC11ze)0
zslH$T^prd^E{Z48LCE-@xd?NRGK_-C+zu|N{uhKDg`Y1IkFUHi0&QMiN0vaxXOd_h
zQ`7UY3sO1W<$9rz-P{JJ$p!5H2duLp<Uu4%x$}^2lQu#DR!fmOLIN!iUDiWug7K7k
z?}dllUjWQH7;-`m98DS^pHwPsL!)3xjeh5Qw|NZIppJb~*N(XWR|<GM@#Z}bffg-i
zUF$eZlVO`MS7li?qt%3<75J-e3uc~yPyjuZ$H$Gb=a#nD10>fK1&?+ai*bt)q!%;)
zv6)BZ0*rfzfQ2Rqy**mZv9}f$?i`YFBVkFowZX>m)FbTc&Zl9pD%45Z%qD<}&juPI
zqN2!yuuf3^#;|#0;XR|<U%;+S>_@Aa&K*pW4~&BX;4vdlK_9rkJ#aDWZAaKK{($X<
zTkKQu8pRvVfvb;`K&SJrO5x}Fo#1b$ZbS2VkzaMDEZ4*JiXy)P*M8uOTLn?|N6bpg
zUgiYrj54gVSLy^2w41MikXV@xO3_5g_`hxvxpww8ZUO&H7v|-cczg~Vs53kn6XxXZ
zH?qmV{#|AOj#ZczaA6!^q}o5P7|EWdQPynh72XQPhXMWwh<5-wZ#Pfk{?%Yq(gWb@
zUH?i#{}F0e_f{CbN>&5W7pN<qjRo1rh79%iu$OuAB*<59{cGrd$X7j-eaM^nxc=7v
zdHLyoO5~pC0=&2RryjVyElAl<v`4fC?80qMS^wpJ^j>!?i%LE(vjA)^Qw`*5612sG
z&0Ot!fDOl2{WH0B{h_>U3H0>Jau|@oQ;q)as_e}F@5!?NZ5BAN&3q5hL~s-of~nJ?
zF`zXw+WXy{P5Y0Y09=2-=AokjMGko0qmE)WiHf4hkpN+W|K$ANt+l5V?83vW8Ixf-
z0(gwC_08zQg1m6EzZpBg3lO^Bd8qD^Y3cYw4|hKSeW~oZ$vxp0K&PMZZZu0aU6}Lh
zzWN3eekmG*4!;hyg-fx`y9#<Ttc8<Vtkz{w&E@+Q<!2Q@84Wmhyh>gvZCt6;whVdK
z4vifcqkHRiKhOIco_M60IBS_;U)@_{CoD%trH^;>v#_1z&Kc&B|HOdwUj_`#MaFTy
zqeOa*jOIAM1sySegJ-(qV7nocCY+`P)wNXug+Kx`QG=#lQlQ3`Bj6Q6{(ll)9vaa5
zb0B(u96`L3NmhIcPC^vtqy=rk9Uo!Lky#}vGSGW;O9)JW7JkC4+(oz7-K5;b2pcgg
zThVINo0RTn2pZ04o%>T?BLQRc_j0j)O{%*-If+xG)Em=yWJ)2+`nqh!u-%R3w2>K2
z|Bifan!&_#Q0%>go42hiezi}w%#uuf(^5vl&OjN<<{~zlmB(E~kZPoGS|ft<y#Ro)
z;~o%@@T!tf5>7!1_Ik2f1q>FXU>)ue+xC;TTa;!DH%Lxayn>wqMGZZ4xLvo+JSd_G
z;c`zC|B(H@^Ri!B%J|zn!)m^{Oz6xRjn6a03K%4CUVn+E+k{8)qIkC7Z-P&<@&EVv
zFIwP{Yc2o;ZC{na#TP&z<cSIQg%)H;Nfq4FUbq4WVW$9HooAN|Qyv9i^%z3^K3Cc3
z&X-;qPuN6>uGUIoZ@_ehmZ=e~x$;|3?On@g)ozAQZw(sqV>~#wvo<W@Sey7=7r=8m
ztsFWwkZu<DeK)`t0|RAla<EgCpd2+1Po>K^cCK=KfattA^o45|*ixez38b}%$c;Fl
z(8KLUQ%b44Pz-S4cF?2_*cwY$!TL-8ke2mWr?syv>l}Z9L@g#0u0f8@=AhvcnGdpX
z$2w3VGoJVf=9&V|6Mvt4F?-A<Qm-id3QTb*S;<Qpeaa~@$~GSW?mD0A$W;65k6@#R
zcVLs2Ib}{O4`l}?Y&2DUX^L$@It;S{LJ_W(?N0YIa^1cKwJ!^m0m4S_gL7N-Z*J4;
zT>X55yw(kGDs(yszS~2sJwmjg8Q1UJ2A<MekcIv7_DDDe3eYk|`c3M?Mz;f4u)n)P
z%&scvVMC=wm4cSbTLAp?OqFEV%zU3YEs;SqfRgL~tp*GnMfJdTeCxXU%Ta!x0zQ`a
z!-2jz@@bo+|5}??mtxzLLW7?5Oew5$7C7zP^i?TgINS<48=wfPuyA*W6#r-}B=(DD
zup)|0^g4q`vO!_rP+hc4@ksA4V4YqP?HE_cK42zwtch-TI7uETJ$WH##q0@D)da+?
zg_rxy1WaqV7@Y!TkXi0g>ATp@kghFne*`bezj#I>5I8L#vqi6iOXbyNa#1r0KS}S8
zr);f#3^ZE$t%k(xTks<CtVP7?<1M!SLr*~h>A#m0PiY|zJpBSNp^W_vXrV6R4MUn}
z|En)*kAioQ9(;&aK$ckMZ5niYK@qnf14=LD{W7tx=Y`t7GyABibfij>{3}o)syE<E
z1UT}li{`jbEVzf2g6u7ZlBh>$zaWgHti!a?tiqO=N&bEATR4&J)?#swJ5jk80i@zm
z7fJCIj;woJ8d%oAee(N{F5H{A-fTu&H%e3T(vYnbKzrUWuVa4b1yI^k1HcIi2~oEW
zuY_CXN6KEeRf0LK<9aW^6spE=0UN|pjQ#G^_P}F)fE2Wv50<9#tFsKc=xFdxv^AS)
zAuqQb1lQ>AEfI8_2Rxg5zV4F8o9Fg_ar6E!8y>MhhNDRFk)t<uKO5x)_ffJqlMlF4
zx{b|D9=_PjML%s$9X6U~CySzUl^>GUPPCOwjs+-V_L5yKjJu=UQGMBg+eU6Ss(C(S
zT8xfZ5O92f<BSKR3IDiFODjSCO|_e)!rXG(w=kqk_~p@)IIVG$HofKZ@a6?u4amz&
z`WCuv)erQt<bRd@j{w#(wf0xZ@`20B{!+94SRl*2Q>IB|XHM+&VYn_I2Jh!D_4Tv6
zV8@>kAqk;3)EdMXp4P&raAK}-h!yh;H@f9c?I_2+FCXP<jtvDXNfr?t|NNXBe;LY&
z>~$wihAww)E{#XO+=Az5x!H!JdFzxcY%5TrnW`<|BT*!3YwX%vcsW>Tv=KDjUO2m3
zolU3#th7iG+aqd^D}7(BwBi9f^;Jv;0PBImM82nu@FrZc`x>Vky-tAiWF5tT7oB5>
z|9qH3w<Q+C?J+_+J+T@c?grVzV*;Vp65GtN(6?dh4p4_}IKDTGZ)?hH1b8_HEh085
zE-FCr`m}n-*!YY(-8LS-pFE`qt$9GVPc9^y(ryDO;AG^({MIToKXXvBwtyggiDiw8
zf(sJVi~Lm&wba~*P##vDj+iOP=t>=S)2VsPTu1PPZHTccFd-Y$3<5*Q3mXjnX&_3c
zIm%gh`GS_EoKAw8bF8ktq^*H6D856fP5{P!n|aqxaGPlUfnQ1PQNRsgh-X3_Art?=
ztB;8>FOs4}2cFrrQG+{0#Zb633_sIg6r%3p7ijqBjK<Xi#`v(Il0UP77%XY=6E&r0
zrSQ;%zyn7(W$i#5wy>uQNw<~-paWka{o3LV4LX_>LGVw0t3=8tK^2}e>v=(W?>u(Z
zJTAGSr-!eVDv?x%KSk$ZlX0FXQunjLh}uD(cj=h0fo;>ujAmS$V}f7}BtWlc61-VW
zv1`Z?4srNV!RoG6H-!1iJow(k#+rf=+fRk}2X#V+6BDz1<E+1Vg1*x6ygw!gIzFE5
zzk|d#1d;-8vI?(vQ94csJoLOE<QRw~t6%s0C?H<CS>3uO0wnAQ?>y#J=Hy+Tca(Jl
zC3&H7gJx-J^bqoxefYaHPGGG39wxqYj1CWL2;1YV^8z)08JoT>)LpP2=OF<mt^IR&
zN0Jx-;MiE&?bCpdIji?^Y8vRw+U@_~bx1QX{9Lw{o}S7etBg!nI-q86h`rf#_fHl&
z>iYZ1LZJ29rFVVqy5gQz$V^-FK|Nxcs=^}Js(YM{M+=$le}RxO7akY&ej+OzBglo~
ziPl}5wTnP97k+a!ZcukgwJQ?n=K6LVP2jJRFbey^cPER8k-gE3sX1?V-ad;7mr&P?
z0WBWC0p2kdD7HehS+?>**fJGd&yjX)tF3!I=)x2lFXfCxSz`8o&wWR4S8}NC^5i$T
zX;0^=Fv7>)g-=v*nGfK1DfH8ZD~ki8jb>HiK_uIV*)9Sb&#NmsKGri!V0u+*Zq+cd
z@ul?UZZ(D>;+J1-DqE6Ml3XiBiTK~!gE?B!3_DOPYU$yvqEm}gho=flcl_zyV{xRt
zg|~Fo`lin}(w>;WY(Z6Q6PX{mzwqZPe+>SKI`;aV!6}KD7@4B548R>pWed@y1na(I
z42R(S93^h@>6O@M*?gkEH@@!L_?qbVY2UEN!@8xIRuA@SSj`LXiK->$ev`XM26*;3
zH$}VZ>A<!e%1YrIk*u!;rrcej))J|}7T>v6xv^_i)oPe%<s|-j%bW`!D@pvAfb;Z&
zlbB&OFZs@CN<;fj4d3)HB@Izi{yK-sPFoEn&#u$cT4b1_Zq5>)y+JzP(Cq0XZlPPO
zHa_^NEv~VHlREq$@+M(#&EuR)6T7XQMW_n$MqPU(2b<hQai3{4!mHp4lYLuuuzZ*P
zgJsX2Fl*EMqc8m#D&!6;aan1puYPUY6?FI&C*r_1bmhHwxNmrFPST4;O_qkmq&>y&
zTd6@l1JBFsMtYicO2;O`tE*@A#(bX5H9JX9(+bvqe$CoCyHu&&iVEsnMJiTHTqLox
znI~l{VAgop?xpmRw-mmT81T@3$=rf(eBxRwvbrFQb8S%tK4kytZcBFgGM4!v&T3-J
z0`^oVIq{erEE8^D(;JE{V+A^`ypf++Z_3hR^)=TW5scSPQH+0COm$j8Y0P4=_nYj$
zVieA3S|?^g$Ah|>(bXRQ(z{FVrBT*3(-&vYjT(SaP$@&Kul}?*)wsg4|4i>W0x^rL
zfd-J4o%Ks{>lNpbj**=rW8L~_`GtFifzA$4ic4g6C92PO#G$Bf>&c0uCe80Ef`7`T
z)D&C{vt3lNy;_Cs8;WP-=5(mTYJ;{*8{}bL?!D){(ZUB=dLO%h@)N;PYu_p<%Wa@%
zMQGk%fpk7gIze!mp0gVEm@yb>d)Hp~k`knp;Yv&<uPvwG5^DgGbZ%<#0A;0$9Dkt;
zx2l>4&Aa12rYClFzbhzpqo%C(l&XrUM{}+zN6POR5;Ynfxf@uR99A_Q9Fr&5zbF)M
zg*m4Kj8OlNgdxcTp@(Da4c&5gu@=I|VO^5-{_4r7^os=X$0O)$EmtdPe(V9<o;v&9
z#+c$A6u-I%*6<0y#$E^xxTG><CdbJw4~}WXvSGE}`+wU4+sD0?Aa1(r8dR(`<Q=}u
z$UiS1H&E8nGx_LQsNBjevKiTh`?dUpjH!(8!UYj?v1jIg%QCnZnr)ae_aTeXy{o`)
zV+YeyFgy2-G*eJn)<;47-f(#gGj`cjE?9cGP!zWv_M=P%dQ}zT;&tAxBiy703MRb)
zd6h#p!u2!GdSMYxv2D*op;F5ZwGV1eEBRkXhGzTLY{#)`j%*N;SEYr6&C(ca`$a-2
z9ICdS@pBa)%ug-6hYJ!OXgNXyf?TcTD<#*4Ht*WNI6Wk;3-sv2wdG(W=38MEAz6B7
zVW%QG#$E7CqlJ|M98xpp(~;lZwDpmL@ROkxz2#5eC$cZzS2y~N|6!>*6}}P;{2}i5
z)da^_gqG%w$kWM4iO;O)D>GDa&*%8b+yzE48hf^!fHx^!Dfx8>xe#3LIl=Rq<UL*p
zj=3x-9ZF;XF9F*QN*6r{&%cx$ztOOpYGCsFwvL8YjuwqSY6JBUdu0b6L|>g7TvH!I
zp(gTCzS8Gm?QLYsBc|bOGJmVq9Rbow`L-L=C`^T;#xt*6btzx!RsP`TG$jc56yYc!
z8fc;;2Qo!qHUuZ}(xK&S6k!))jCK|3tB+^&p+v7lvpYm4)eI*ID*i%2<EH~BsX>b^
z#~;262J{d?c0xu*oLMp@nDb9pH+F*2bsTs)s?5_Fqz8kbPaXiiNlcF+n^{0=)b<I9
z3yU>kvJcS!Kx5orezFM!gEb*{3aLCGL>sx$g~k>^10U}SnlpXR_rA^1){eQlOJa_q
z@lewXh_-|3IV}4clTvsM{f|L|d?M<#mK#%tM%0Ws7i-zf&JW+MK4->S?%|{s0d!fA
zB}O*`Auv5tis^LGw|W?1=?-R*3#UEh*ae}>2$EL<m(Q@SJMR?A$U65i!l9d*aK6lF
zd#Ir_xSV~Q{^H*zv$+OfuzipCGf0~LE_*VC7|3o3T<VOykS)T@9Ydk|_HU&;5UWwA
z_H|^w=&`sK!^%W<FPO(%=-t<8CzfPq`7YM_d>oayf*#C}MYq1+O=c%mjjZPNp7zc)
z%L(8$k985~S7p4q)+PJ2Q7Z)&aDeFd*XC5Nr%TKl5_Ii3ZN~!z<}$p?H3jr!oEnp_
zZz!MGc=#w?d}-Rz0XjIebOT<b_UW%ty5WM9(M!+z<<olneQ{i%wea(8`B@7~zuml7
z+am$V?$bIqE!N&%n74gFJ^}-2n^cHvzvBlK+Jc<`=;xWd5;yz4P|cN%iB_MHBRBPT
zcZC*UzjBCCysA06_bLy!%^~{Boo}p<&j0>>!Tpk*CBpBwDZd!B8hU$p$6lX<Wk1sW
zO=>^HkQbup{rQOYf)$?ka@bYnjSu7x^dBO`FUmOj;w#u7U5}vGFc|%75S0heJ@+=S
zpBE%JdRB@%ikir+Ik;iVeB`W|MFq>bsMX?p9ML(W^5F<Z<B=(TZ9OzyV~n9JUA)>Y
zPJDuQA&_0t>r}MUA1zccaaUlCWBxv$i(6c#YFNkbHWXb_Czp>z5wpv3XCsUEek66%
zyXq<GNDJ%9iajkBhlYkX1_GDsK6`(>=);>Xw<0En{(OsZz|Rx!B)D8{UlYW?ay&rY
zc7LiVPY4CiI0SEU0Bg@U+MocWk~0r{68N|xw&=-zc3SWFn-S$~-ML9Rs&)8c6QNAH
m|IMZXvux1+j!)<D4j6MVyC*N-{s-BN(LZ3$RiE*?`TqdhvT_Ij

literal 28211
zcmeFZcT`hbw>ONBsK=w|QICp%aMTS5NR!@GRM>=~6zN5JM|ueXjvgxrxI^zEMY{AB
zKt#bHMXAyflmJpfAe0zFl5Z!R=iYPQ`~LHdZ@lBXf4qAP4eYEk*P3(9@|$z<^p?IB
z*RMRka&T~Pf!fy%IXL!(aB%Fk|7Ab?W+Lh3D*UnE9-(y|{)8W@W^*L`aqynDxjzTT
z*~hGZd*Wu-oH#iC-~g{*H4e#Go<gQLnxG_id?-C{-*Q|&uW<Y7jT^=>$8SG4uY-B@
z=N~+(xocT=F;}H=`Vu~}J~0)(xliXV?tjI9F2$8|_TszSub#ZV{^7xkCpUlj<-pb7
zIA6R-jbNG$8xR+Ytdm!)O<I~YvggP8OUIY0B28LKUPjismvOSG`@jGFpV<LBD$N+`
zRg3j6Jo9^m1jpOOH$mfjI5@6+D$}bf@1okwr|@Z<=CCtK$qd>h;8HB7B<rUu2ypdZ
ztRHF;{{3Rik&A;PX-;JD2nR>hFyj7c4zr>WK<N^;LO9eIq6v@H`!kY&Q9)`1#MJh4
zgGfRA_{-k|k7)Y^%v(GbY}A5M`+nLQ`1wNq$}|1q->8>l(S#>}q=BC?#05%#eqqp2
zp~l*R{uu}(i=9Dx>XIJ-Ocg9%n7VcR`<Ntl5UpC}KPfg_+bV?J2eu{<PJrH4@8r^?
zifFkakA*_7Lc#@;9-~5`PTgw5&NARi8hKkFfzX~ANqXU!4Kxck%FISI%Fg0;JfRAJ
zO8xzNW}a_r@^}z)FTBu_A%8<iz&~0smXFNySdfbQWyU6%P^1}4rvm9nzWJa<g@ExP
z>!mFq&RS|N3v8ACqcc*cY9?N~52+3L9O14H3zx-O-^AQB>I}3E7o|tqL@!h$pmlfq
zP~sbd5Kh|2`)Vb@V~R1OqZ@7K1phSK%)PWSFO^K_1%r6bXY~(lFs-uHW#szr`a>FL
z@3qKyY@<S-n4#C&l7-fg$6yleu(*T|!m*D)$5K7N@#CEu3J=gmr-wG^R?w!1OyJ|j
zkqgQ*#8g7TIa;`M2XRm;osbzF&gG5p`}y0b>wqFD`U7yBwmBv;bq3!O>kEXSp(o3M
zEk}=h2^JE3F;T)4*mP}6;3Qc=B}OYt5vS6p%bMrX4_J{L<mj!+Id}kvm|?X10#ow&
z$%CpIpfl%sr)PK1r+k|kUNGo~e`XUW>7j^iufUeFLS8r*LqjWul%ifKD0nc)d2dC>
zg#%WFA~UU$X}YU6DeaW6OOGPvUWHopZr0_6zxmvM4)uMiLW`C!6fzH4B{2kU)|_is
zc}f{*AVqT6bw5hY+{5wtR7J5;q&tKx1Wa6voWHHSAiM-^UXW{l+{FM+UOo9?X8VPs
z!$Jdej(eLS^GdTrNyjSI`}S=1Bgo5XO_D(9EhtdL_LGK`Q}1UR^>oMiV-A)vzWCF6
zVFCN`4l)i+TT~Imua{)g2?zIXx4xO%F-7mZHfZBDbWY|^a;yl5Jmmo`Csp+YSl{2+
z1L|}CW{R$hx!VI`lE(vfrD$?^EMjg<?u^8_I-hP+ynwY)o3voNkwORY1h|q8JxSF|
ztqpO{-tq@mjQq=*&S2KN_GNnX7L=yaiuVxb4dqLf3kD<P1)uu+XKx`#-`82Xl-i*B
zK+-`@52H2)sUU4h)-8i_V_^9(ZgH&-pcNtwymYB&)P0^boL(ZzRc=@sgm^(J?%QXr
z2j_nP2HmTl{v0aP3J=YW(CeS3&+PGyRelg`NXqxcGht40Jb#Vou^RdOQ+PN=Bbjia
z$RKIQDLcZaVqs9S9U0mk)B3P=u(00>>e~FVo}o^Rd;OH?gxcP)Jh6F94)ut-%`}Xm
zwQ6^wr%`tvtUdq!R$Y47>&NETw5{~PND=5Z-=uJP)6olQ`m3#OS7KfXg$S?Nq`jvf
zWeHJAllfm2x>cW!ceUm^FE=IxdM}k4fB~C}!CGPc153%%DEHn#+<0NXg8TL|OvF<;
zRK%@8hKw9>zRdi+zk4?<(Rox(l7`%GgN8$1t9KOqe{Q60MGo8Ps*G4UNMIe@w`DV@
zQ5{j-T6(Mci!HJ%Gy#s3%O0?56T>EZ^tFj$`wfqa3h4X!b&qyXKHXz#)HrmT&LSJ7
zu+LH3jPsiZo6j1KVE8_q_UL22G03J2WiY{P^=67<y~AR1qGEHu8JKGQ(^f9<@zEd6
z#xqTloleqAG71a*?tRR=asDd#5oafvUvw2g$abrUH}Ltwhw<@gGjzCQEs=2m-h(@p
z^92#kmQ%i35JfOFB-@ul8jMVFocu)Fh`b)R6(|!z6NIvd=XoBFY@`wg3r9P3={AqW
zMPw3bX9H3FOY4|4sdAdV&7e%kXe^n~X*WOARfoS{*Z<m$GIg#(E}dX%m~@4z4Mjs%
z$%HLWBx$J3L?xN<T+Ts3?E$5BZ`P-aG9kiL8y*VG6Wvq;=RHx0gjWk~3x<*^K&TrO
zi2!#ze|#zMCVt8Dw3Gc<i(1?kC%w7VHec6hFtsT+uSJh+kErPI>>hthk5vwoIg@@F
zCWx<G7j)Ji>_>;^6s(LL;-_r?@kdeiK2;z2*#~ji0M!`^E(FdCq&ik4<m(kv`qI=L
zh_cfbpS}QigjW-DPt=Y0>3tk`AQd!U(sl)Kl>8HLacY>F)sh}9^iJ@gV+^d@D&p|B
z{UaK8+NS#)_#+!}r&|uM|Je>;O6GPv22f{%V8f!<T)iEmmQFY!f>7MB_|>s-G1*an
zTi8Z8e-v4yN73MT^UJ5%$i+PzY2?8Ky=49ugrNkvds@E6(Bn&r!HDdwLv2;KPpzyq
zH^Xbbz6MOH&MrxQP+W=j{h@FI2}ywDSN!u7gdbC%nkt7fKroM9uz68cqdBoGmBVPg
z5F@uhF|=HPHP|sA1m4=k?|>vC^-G<Bj^E4&kfDrq+Plr)GQGwm4sLxsXCJDY-6Zz-
zN1N3K@@#~R(<8inY{bFU0=ZDzQb&J~flq6~uk0Xo^iWgF_`DtZTAli4g@NCdZqKh{
z0i+jh6^IOgmo`*}@LT=GL2s#ruq$IRYDPhEq}uk+TF9EV;sT=8c4TjOSAyX2u+51K
zoIt~<SJjA*|La$@_w~Vg*=M&miYzTRpQUY)R!&%^$AsAez1~$L75#Z$x+HENz0?mA
zB`b>?Oi`wq$2Qmadr!^mh(O-65?gZR6YrM?QQNAO2H`F8=7^+uq?<In$5Kwt@PR8C
z-YmlZ;*N^*r#qi*ePu8eX+Sq^#%D4-<|VWOD>@J|+c$N2A&isTH(Bo?n!RAN2v!)G
zfsZE`$)Ru=48+srFNG@@^}xrJB9HN4_dX4gmeB_5?5gGV*GV%-EG)j_K>Hz%QlKsS
zGTQrVZ|sp$C1wl%ygo^$?+`lU#bp&=M#%tDn3|rz>66*Ud%kmaZev4Vr($V{Yy62Q
z7z9#98G4|;yF`t}3`X)!6SHD&hwk2&tz?I>qz%z6da2gv@Q}9+dQGrl@YFdT7BNMX
z1NoB(mf)7{`#_;h8$Y%UC|e6&kU*{C00TY0ii9z*bz9zSkjg{;WW-Ed6dsLXB2n8h
zVV;ZYs!8j|xj^&k>T-Or5d=0D(9$XpV1$OC;B8Ycjcy_TXt@=deZIt(_yl04_smKb
z<L7TP#CS)99<x`3vZkL|ry@k%1V)cEcn>0ERU<ymt1REHzpi;Xb=PXbep+Xb@Z}^w
ztMu(u|7x($Ynmsy0H|2JMByaq>RhgPN*D!BU|_9v$M3!Zh)elq^Q!4g!yzvoKg{CV
zJZcfv+U1~M?~^r@=w=)5wjfJ+|E(wlc{n(l<O_kKx}hN-Juok;@-L5YY3v0fc^i+C
zMxaZWI^lNU^0@~q(TOV$G;10~us1YgDUT9*zdj1Q3HvuM>4sh)Ipf%Pq&&8Ap>5}S
zraUJ34h`nwr!3gxyyC0ht(>O8_jx55%u26X7|f|N(E!Q3V63j+#QE=*-gQ8z6Ldh3
zI(~jTQe}2&I?$t0;&cb@wAff26z+5-z3t;F?|#O4tfry*GPk1<bV7zo_?~PiZ$kSJ
z6;vn`8rDsE_`#x&BnS&=&D(J|SQ&rL!6T@ml&hID=fD*-l=D@_sTV6JV(ZkZ>QwaC
zI(o+gTDplDd6-#ALPHIx>)kz*$h>gkc2k05?*|cEe5<Te9ZqMRB+`$pNRU$&$RvCQ
zj_QWCM81IdwrzCIFN%p&U=4)0X8=-k;-a_+wpIC+_x-IwAP&)Jnw3m=4IC)!@nm{K
z213+ZO;10#>FO#;&N4!RAiQqshb9Ch04RxJ-Q0p^Dt%j$C)w7UWx@Y<&s#!|t_u9c
z>lBZBrHMPtCL3W64hX1bIq&cj_2C7qUg5`8<e&}f^Z!2ogLa_6!+Ctq=U<N+kavJ;
zu9#W`L`P#TViUPySS|y{6#*BaRF9vEfw}!`qVMF?4jzfRqbP_yjV^VwD|JBgr4o=_
zF>D6E<@C}?ZAX%8_QG)=M^v4My`BlXSHTrHf`gx&eAqCtez4H__lpsI6^=R?G~q2Q
zzE#p#1GH5Vfecs{a<e<U>Cs-5kTgJ$TLIeU>*jM<F(^DB_ZWMOPf3D2ouo-1dx?*Z
zxqww#$eh%Jngx|)utg%(;p`^d)xF@HvR38^QLi~=lzKd26Vyleb=}`S(Zx+_@X`rA
zB5a`Y8;hW*tNR5*Mui*82IepT@2Q$G5v+Nle7(?^FJHTU)NWWR`~EoBV6ZWisWK}d
ztfVaX%`y-P%|KRTp_p@62jSyqSp&WC1XuO(zKLWJkx$YaelF0cF~5LH-4pgCcjBir
zTea?V&mVQAJ=CFop3`KLIez_q@b;0{2^9jLw+eKq)Bk+!U6D|K*tNOVADHlY&w^Vx
zN-rPB3<lrL$2eb^NDYW|u8$GsW4+H2hxandWG>!Q13@X)39SbdwiepT4H<WhuCk{g
z0_`g1$%kKSNMT2}hkW?%USf5#dsuzFgY35vwf#VJR`R(Fdpqo?G7o}x^t)G|Ze(-4
zj?~EyZ~y*|J;<G358~F4kq;cKGYB6t$rN5bHltk69mEAuzb2F;?I8_a8ARCfAT_vu
ze<v%hk22A_pL|zU2>XDS-#_kA7b^meGSPzH?RZ0a;E1f$$daKmr|rmFGZsN_iosP0
z0S|N!FqY={DZ#<q)guk@k&*Y(m-VgPFnT&Owgt`ig5U-o(es0Yti<i?0?*e$5l|%P
z7Ya2V>|#ZY99KU43HIrLBe8z4M6HUvS2>bym^FwUJi<nS#=T*1qVzoMA3de@+}J=}
zfeu087oDwHv~iq0jzRnCLX<oFk-}I@2&06pSDuHBfNwXM3y%G7Kot_)^Y0VRyp@?b
ze2Uc}%6=XQE@+;7x286(T5HI(JhZrFK(6#`cI+U<iG4lz<~n=a&peW#f;4SJorp7Y
z3-0IN^eG<l0YSd{7rO%XnI~JD`JRYr5hF5kwdlIgx~P}Fr+m-TT?HET$P8u*zmbUT
zVBu7p*zEk)>ud!1QTI&YCBcg<GIHoZNSBXhKBm^7xlxB|Bj+VimXQ7C$FA_5ym~))
zhf!^ayEP$dZYzQ}9-KR!NY09mWp9@m>@#+ea&@TEwPlc&Nw;m0n~aeNzUrTy`(7vD
z;W(DxD@d2z+C39ldZt8q?@#6>X$ki1v#b#gfs7KPR#O<3ArApa;W07n38Rsb7Tdz!
zIe=*>GlCMG^-n+YJFA0hGOSDNPBzG3rNP!Oq2X}=v&4XQnuW`(oJk}XCiBB~A2yZF
zFgw<IfycsBUC5eNgS-t5(uQm^2xFOK!QQ{vXX34tJS%`$M^7dZVgXxyaua~mmo5j#
z6C5S5|H1RV!#He{IJPL0%?&%yvx?pMv*B?JYa$MDr>FZL)dr_guh?nsbzr}e$_vi(
zj2R)UWj$4A_cHslXWEH7S(thol7rQyNB1S1B`^0OR^zCH;|Z4^PzY`Z*l3oQ3tEo-
zItlu(_Alyx+>0W%Qg5(?g!5C6avoXSS?XXb^r(Z17qC_xT^hRNgRG^z)p6V}*%1;9
z^|DXxOOfi3$j`f{mP7Y*LBbi#zxAoB%2Lk%g6aJ?knexWi!vCHta<kejRAVY|F~y1
zkLUWgJ>y`eIF^5#5fGxXm4=<*<p;@kF``(ePF2C5mHOJ`_dv3|6k7#woTw3T+E4mV
zSrhVL?HGr+ARH&a&p(6=T|4U{g#8obPjPgBvV|HiVQ0ZQ{oO-km-=Gb+9oTBfC9Ic
zZU<{ZrU3QF^$YB+OcF=P#^4)4^--nmP%X%RK&3Gq2uAohLq<l<RCW_7=X7*WV63vR
z@pw<*cK9FIC3FUSBKB<x$4cXTClbhf`dLALu;}4<a9C%x+`!K=zc&<=zvNnN1XYWA
zdFxfpDBjQH*mcxgp9u04kX{2S!QC4AegQh~>KC_wF2TmC^$<;{OCL~Xjbk?k!A5OH
zbk@i)$>GOrA5c-GsvhLIYop8lXjehSl_vDVmhDg?`DO3pU7>i&N!mDjOT<<qhp3lG
zZvW@&DH{==GoOPz=C$kaPhb?7gTu@T2q`4J(+Ta3s*_n@^mv~!P-MNoVp$4vuB7MO
zSVYo_Ng~-B^j;o}w9en@D7ep_W*od9TqSYlR-_$N0SAPN@7VU`?XNCRAI;AG*t2;6
zR&zWqf3U`SOLo~$`k9&V?Zkox?=5D64)y+rhwKAi`ulOr427}3t4R?XtujkeP-JVn
z&)1G)h~!F^FAqPL1dd}4&p3g&1m_V?T+2F1{cjN}N#leM%q<8hr#e^86~}H}($`b7
zH|L}?w4Cm!x7UFVb}PTD(61``bB#5W-SA~t%iClUy1+htKbHL~Z3ISTWk>pXc-Y<V
zv<QtD=eN}hQSU+NaI8r<w${X^lq=pfqZF@0u7!c|P!p(GPhr<D=!Lg$#+wBIY=Y`&
z!bjQaR&mx$Z=Pwd>W_Q_8KLcs!ot*WC>`4Ih3G<O+1i<-#Y=xI&$Hamn*s<6Hr5%M
zs!8aOHvkn~*#YcVSdt9>Ly|UhR{PSyu>j($h0GsQ83ZDDBttt7eQsCsYi_o2`V6mt
z5yG3*VQuItaH7v4I^goICm1!tE#I!<BZRFGQo7J`qQxK7*Yne!d7=O4-zE`;@k&-8
zf)iK{lCJyk?kbHdn$Cr1IZ*Ii@Hs*FxptSbBa0~DIL1plnZOIjaVw=b0X@0%>@8gc
zLMG;u668WiO2jLyH&F}Fv{yx4`7VXB*Z<*-Mwv`M0b~Y`uqDVWlx-FN=5ncSk}IqC
ze?&6>(BvMgmt#@^ik^(XFP@%uhuO^@Z3KgJJnA@=FD~rg#p2JvQc?oPl`QqKrCWuB
zc>llK4hxk6-=q3|;ZT=gs5X?TJRe+CGp2z(0y}5up64RF4$8@*1x^w_sBb{dJ2%ds
zMYxbjmO+PCePf>p4(<UP&|4?<sY>LfaI0E*ELY~bDUh0KoTEEjkdRIN52aRKBp2dh
z=sdlG3k~;%nuW(w2+4A&6<zY2ekc=oEcZKG)x9nLY<!<`dqK#xEtRkUmY>bV7mCd~
z@IGVP6gv}F(RSL74wV9Vo~gpa=hlJeAKxGy^LKjp1s)p3l{K{(G7=xzv)xX!lW97u
z{I^7y_AeYteg0ramQg0Jia1GSiR83n+e9-F+p$}0hnAz{n$baAg>g6X((8%wLOe=r
z_RxQsdrXJwc3}hQmLIOKS;=OM)O|H0d82fMpAlp&8dz_#SbU^B0}nZlu06(Hej_sL
z67iogjr)GmCdj}T;nc7Skm{QP;yBQjNSH|Uuh1t~|4pskbq{p7(v*3lKUi+L`f~>e
zmQbWnW9p=NiO&1kIWO6~qB9r}oa9d>_=wJLS$v**?U~+#GJq}cr7vun-u^NouZojI
z??iN8>P-fyQvmPj8fqvMsSU!e^6KW9I6B0a>8$>nV&1yXAcddRNoxNRdKpbvseEB!
zNq4BTzVqto%!3oC{h#$^K!zN44v18qy5;(D1zgdlrm6>YvsVA+U%K|EW+kB={6VY7
zYoV}64)j=H+mbFvQ#5$Eqi5&$f%-6ll8jc3coI|%#%lX{LLKNy4Qvx&Dhy+*)#!}G
zZ}J`(187t@^d`iW$qg$S7bEp>ZbuX(AT)LXYXpURKT(g~97>p{e@dX7qxS-1DuTXY
zW{@VDZ&ImV9(xj$&?i?WWK$$>awGL%K~_39OZkd|CX@V_;iA}u%&rGJvRGSyicUD%
z&!6D9^ouWRxw?sZBX{afJJqC4o<1x+_W-hzdv6B&>z4(wrt?45=?4AxKE-3I2N|X3
z#w9+a0i!|Xn{(2(9{E2g>((K#tJub+w4#Z&f<ZSGw5rF)wH1qn;Ei|`YwV<b2XTpI
z@S#B&9j|{CLv2c{TrqcB9|2VIf!lHA8Ijbe5dKNGdL=<nLBGr7`?yQbsD;Q)aJ5gs
zhfiwm?uFRkf%wXZyg|k@+2(H|@Q9bXUqPy2FS=eqJ38GrZB+D>?+NMO4|XaM3K1B2
z8)91)6O4pT3yp~ho|8vACIfMxA6TbXMI3V|Z6gg?ClFnztxbN<oANzIfJV&V3N;#a
zO*2i;PjBABC5~z#hV=ocuHC4gs|hr_#{s0|DToif(({8lb5(AJm_eA+X)ZyliaV)M
zQxlNi`9Vf_dk96~{0Q~vp*h2(ZJ5BQqVbF`E_%aflk<9_pk?b+AjGuJ{XQjLFt*mR
zjz0C-2NMWJ+;XEW@7t_iU}S~q$1#wm+v*K-JnP_eMIrO@Z+an~f>~P6sTL()B*ucU
z51aG^N+|2YA|CRiN(BR38Ruqx+B8vq2O4?c9oek~fG5^9K_A3XXJQjl4NET_$B0?N
zztY7VtmUrL@I^I|#QRNCVu1%JKU9p0Gzzrn5sBOM$4{J!`t*ZEo<yYIUHR-*t%U6o
zn-|C;+cc{>-62yTj2L!r=P^%&+PSIh1wA=0btAX+m~)*w&iV9K&6-FjA*3y=SKj<f
zu66~#Cel37=G9J>%mXa429@+dKgNA|*cRS_BU$o?Zt7V>=c{V1FS-8=YHT#bDPO0-
zu~pi>z$LL+OOI{bhzQ>4>Xa@dqcY3Py1ee6A)lA7t9rp{y*y$hFt%2tZIG#sZ4;zE
z01gzWQfT?W2}w9;o742p_c88n9<2#=%nx7t%^@P!Fk<pIVu=hYjyG2g-jtZ(7HATJ
zE-Goz750tGU<(KIiYE&VgDG%$6MSc|Y)oEBvpKcBxk^syfr1EFOI_ptS~xYHK$s1m
zXgM`x>ax1UQ;0u|a|!OVO=VQOrTaMwCe0kEnR+>}wUcmtLkb@s@}2v;cRFeSrPgXR
zIG3c8e%G16xSdbedgN+rtxRavtbrYls7mu}!lMKY!?qVyYdwEdgAzYB8kL-6(nD49
z!Ud6Efdj;IFcl^zFeK3LPB-b%gdyZA04L%f**ef#MP$t84I!^C*i@|WG%TTa+@V8a
zqbR*NUuUry)e<dwRw85g{f4z+l41(N??=3}<gl%=eIqHVZkUs_<7?f0czVjvrmz+~
z(p^{a<s{dK?ZtrPC$8TWt6nxdTAK{8jngQ1Tdzoz@9_L<Yg31I_e9;W(;wSqYb;CT
zuz5d#c?I?U7dpS;0;OtSVE^l(Ox%^2OGjBkCf7beY7ob+U!HV!q6s&;K9Tm(Hy17F
zd#p@s{rbu~f{uIWf$Qskg2MmiE1%yKyOiT2c?nJ@XKe%Dnt;(e<13?AN(&tuvMF!6
zUU0pajoAdtNmlE9KyaBGB`v^#*1y3FRh6DlPri!q=%LN%WZRypV&x)bS4v^BrhNa3
z@DQV)T2Z#4>ugH#UixwbrfT91>m>L*;tMX+pJ?)x&@*?b%ib$SWL^|hQbt3@8QD{`
zVjbFr0UGcAV1vfE3T@ChQr*ef_k>59Y4WoMuPYOdG)__u=iR^yO&3m|bu#5WfsqmM
znC-J&4@Hfyyl_P16K6%F`}(hBgXTvFn+rmLCH*c_zpe4vx<$Uz?q>x$JOK_(kvT_X
zE>yU;;@>@wD}EX)j^K)S(uB2@iaLyl@FhWfmgy^(_s{^U&sfl@1uMwq2=}_uf&^OX
zhoU%L!!ZoZZgnYa#`MH4^sR=w=QCf7$$v9d>+2sF{V|n)8JDkFQy~=M(>IN8i+f$8
z;k$OXZrrwj#uI+=fo=7?Qv=dRVj}XbbkBjTxU!o1JuK^HWHj}}Ir-RjS;a>4D=qp(
znK9P`2W^71$qNB^{AfYM))L8dd@75OFCru4VszXePNa|97`g@fZVOuoWDsH!@RpW_
zNuG-G6GHH*J+m~J=+8Tt`I6e6Am{CZR#l$j+_2o%*!**=Ts3a}v8%1#YJ~Tbt)rzi
zwhfp1+*d~evYA~nlVNKhHU3+yXFA3@L{$<ybt;2b=v$<AKE3%78!_bx_J;S4U+r4k
zE5q!J*FqADL5hVaAO!4&4h;V_wl}P1tlqFq39CknsTZ0J{uoZfn_u%>2S2MAIiKsN
zq5G&M)hPQn+j6wq>I4hdwr<62o?O%>g)pXBqw#tmLQXKmWq>{<lT66I9PSs4lMn$X
z4f30dewc`WGjtU%ev8J=cRu+;N(}?^L&qFoFE*;vxGgD6v%7Eo!7}94R@@>rc1v$1
z{B@;vs{BElxy-Z`BxZEZb(pIhr}#dEQeM**^g_A}Bv18mOWNED4xHav3fq_{@*{Rh
zlE<+F&Z|1BTk`3Iy$k9jnZcegYzwB;FSGyXSl3~e51y1)q~WIl5eoD}<KX-%nXthK
zTTBBCw87lvL8V{>bX3xn@<xY>dGwt#DUSI%fi(V#v8ofA;y89Pk*q!z<WO@rGXdhH
z-_bF=hZ|2As|CrM{B&;vg`%CeH>`qf0+rHG?v~;L75b^xQ$xOv9cyKJ<bE)sdHrXH
z2yd#F*H7j3V%|C~bdEtC{YpTkfG$kcn`h#InmM7tK&UR{QwZFn=#WzrHpL}%#zMm-
zoKDkhKW*7QS356w)o}B^PUu&Sgg>_$Z1cnY<F>gH$&=?h1vV)YtqXlQsuB}IdrH!s
z=%oeBz)WfR*pR8>Y}0Ov%{xW(<#flXng_2d9lCkC*JX<F*(--9d>dT4AGxiot2?&2
zpJzVn%!Q4P-LNa!qnMdh6+1VZ=<i|Z{EZ$2oi5l}v(#H*NIB8l5n(Zu+yp1Sxnw_%
zJF%N!mTl+`Np0NN<tM+=`xJ`BYRFf)Tj;8rOADD~CYqpeddR0dVQJ)Ri{(7t2D^CI
zOD|O|BjL=)rDUlQ_d0**&;UHJS7$m5kJp=a;|=`A;^{|<6CM*;QKN$#x+--1%)*MI
zty*24=e>18jL+HYNs=C`Rq{?jGdrZecn6UkB@SX<E83}NEnVa%ytf+e4R&6gs|XBS
zbjj<hI1`~0*R+}FAt3j?_H>wsQz`ARs|Od3NKAq*W=3ZDAgH8)h8`dkRYxaH9=ou?
z49LeD%Kv~TkE%=osSg72K(IlTM<?yE{HJVAQuijW2$q%GJ2W9ZMWK0iD>rxL^~9D5
zb?Co7<AdrR5ML*HgMRki$A6JYl#kOT5ASn`t@<)nF5-dj6I3cSXs!<!w@M{yWGEN-
z5v{cvf+P)I$847F@e&NFuhr`AcVQ^CHvTCcsfHC040Y{}>@TL^I;x2W4*4(iaSC+m
zb}z3sCe$vm!j2?0*a=*E@2TMs88H%3u?|P4yi#-M?Ts>(o8TKkC-lcg&*mZvNu+Vs
zCz@f>o)i!y_X<B@`n~s{R3V!Boo?wK$4rFz*R`Bp=~?B)3=7VcU};yoTrQ7~_a89c
zZVmb?0-lD$=t6t5->_f^@@##9XP#nD3`4l!(u`D3Lu3~2liCoqR!6lXT#bQ6mD4}S
z)_?m7D_XrTB&znRx5wT4!3ho`2XW${P3D)jmwtv$F?(+=v#cL@6YrEYyl@bVQ0Og9
z4cDH>=SMuxoSnY_!f|{`0@ul-pdUU#?zWEsITK(e5o`^im%)dXRzgJ(>U@a=1*0U#
zhDe>un_432P-Z5f6i|ryjdTQ59}&rp|0eIGqJU+Hc$D*_t18DofVj-6m7gQW%JKcS
zLZKGIowj=B_wO$#s$e@HRXL}dR86Cmg(Y;j`fS$E`2_RHS7A=`cpt$=`=UQtarTgs
zT6FeF)8NC~i%O-=)eGK>K_dwccUAdQR!AL%21=|L*22?@H>=l2-5&;13QJ9tVn$;`
z_>-I|3D2u<QWue#co?CAjG!Hpy)*4Po23AANQ8tYG>LRxTUSpZP{DHj)RVZOWgmDb
zGiVCh(L1G4f==w`!ANDuE%be-SBrFAs}3@tv?2R5{8)ixjTPEsbtS#3bFOoL7iV2<
zB-E^{@{7=%ILMI4@*2w9G^3ineU7Jct(0q%Z5PV*S~KW>L|eLW!-AcZqUQ%T$v_f%
ze%B#2^rX2`n@jhccBF+8r2q&f@|A`=uS)c44eo?}Jo30h`iG(_JmDooHP>_hkS3Y<
zh!i-TYpXlvglQ_D-UM5dp=q^J{}pkNKatS+&xlyP!Z5-KQhD@aeKUdJ4TWFE@^gI{
z2!iVoldB|V4naFNp#yo1*(c%AIo@28ReBJNOQzMNo3H*H(&6hrWPtE9>Ao~y4ee+`
z1^^6127*~?wI9unjO2Mb{vzd;bQ|W5Spgh+<C+ayVK>(*A0yRHd!<7y;`&fEnUPNL
z&wP~)BjmX?wtDm_C?gg6-S($)75QvDp&KyB^5c8E7!U*n8>p~y44w0H0Sfl!DdCtV
z!}^z6cxuzbr{5Co{hRtL`wor;$)xv!f2Zio$+;Gh-??YbDx{Z+_o-Z_>m~6WdF;T-
zLcb}Mm3u%*(+P#6f={Be4{g`1OhrhOw=Q{At7B<mas38x7V!`oBZrNKma{G+-Enxq
zF<-+yRhO(}8V<fSn@S_Nu)&=uFS*2N`kj2tr~6I)rrm8#IV(9j)T&Z_t^D*!hA;FA
zJz1C2O9W#P)MpWf&et@8&VQ-2!pLAJpq+s6KRHSUMhzJ%0W<7mr=6vqU`PpX$=NqK
zD;YY}iUB?6as;_tXG)m&S-w|nNrC}r9{Vy`1&t{n|NL5c<GtU;C!hl1hl6|H$%o_U
z<(dcZ;_Q$!+N<gjSEmHQ)<F@x3Jb8yBs2k9cg9-^Uz&~2y+|Ze_l`%rG*qvl-hw-D
zM9G^s*sR!Frx7OgsjY_==O9%<EE6<G1kLx&6ekNe7PGoV=}@=#c=;439Q9UbgL^r8
zFi#nmCxpF9%Jo6VRuL@1Q2y9N8ac3EL5S+C>09%KxFBI!>2zhHEYm^W>8#D2Y^DzN
z4W}Ixp-yB?Y-Teen3@{&+leYAr&H@zdi1fx?W+eVsX7zs`)jPr<@4W1{uj*Tb%av>
zlKun>tMv|adp0!?`IsD-NIshWE32xU!?m#BI7Xm6Ch#36t*%#a@8VHia;^F%uhwpA
z#qQ#Rq;uS+c=^}rZCAUpxww~n6YC^-j4(6KPuV#f*N-(xu4a1rI%B_kal;6%?bOGW
z|3q*<!PT8@<;x>QH>K4{KKDwa(U=A!M#O^|HpnL~OXMVN>rjiw@AS~V*08Zuj-)s@
zp%51clS6L6&)Msa3INoZ!)-&?HP%5oooAP-JGCEx5RL4Ws$bWO<JvM9yah0_p@e;K
zYJ-*?{p2C`s|vRBQJ0lQ13P*0xu#d-;G|Go^gz$@txlJEpjqJ_Mwo>yId-ss-Ka#D
zG=%JqqEj8|F?^E6g3-0NdjTaW>|P`1UWP2z36$s$uzh98!!sZIsFP)$qD*|G58`ZW
z%kUYFdQLqN2w7k%wb^sY4a6nmmIiV0gp;7U@|WH8pOXixZMAlNLHhJm)z5o(^85#_
zJ$@cUjkjE&CyT?$9~rc&H1^Z^t88#h)^W7Ey{_2f)Tq+AiE<FmfgXS`>R30CPdvs;
z27C^fnL3e?-Mp5C{jK}KC}={|s}E6i_iB13lwsoL?*X0dI=0NI%`WZU#cP#Bv3;53
zI5b}-v|84rhV=!@msMdZD^EOS&uLb7s(L?3YD>?r4WMX~^u`u5<g@N2)&4WN0FwJN
zySjvwB4d16TL8oVCm^dVuhHnUvu02Ci+@?o)S<WT?HqqKu$5czuM8=KEUVQO%`~gr
zZ?zyJ7~0Fr=P#$2W7ryTWg=a4_Cfm5-QpB<L6U1jBvfz0&s2m%9IFh1i+N+UfBHRS
zlgFwzJ0p?OyTx0%JF6}XF`628+rs+2dw}zB&|SzSpxeW6WV}oUy;8bl*?ES2&fe_6
zN(SYZzmu!IGNJ@b^bfQY8{))S1)miq36Woo*@yUw3fyX{&5&WE=}><Cf0Lp2a7WjA
zh|XSJ`e;b{U-K5DLx*wI=$)&D7({oc`|rX|Kd*1+j1ol>$@`)Yu@eSnBJg340H!!e
z$G|=}*GX9Iam5DuLZ^ef@jmygSo>p_NV@{TX$GOO(C*4N;a)n82LDbJeGbwqYflFx
zLGl^^hkG}n$Fhp@tUervWNWW?q-Ivi2k>kBfvrbRCJ;P8Z(hHQ8J=hCiS0gkh_)j=
zp+L1hA6+uxQ8|0>uG}y>Xmh8oRs`WKTbb8o!xh7Ro!7`oD(8CMLEgXtlI|fraIpX@
zSmwBs32TO6S=l3>2H`U7)pEG#1ew?Ky`}umUF<d`M-QBXGE|9ISgmu2X=X-ja~CDT
zs_KLv*P?=vY3m=;aGhAFRrh$AN?;$!(5*TWI;%WODh&4$U^R+5Czm-rbpg8oX31Wk
z=s<_(8AUil2J(DtM4Ll%TnwuxBI7$B_b{$xM5ytlKjRr7gZ?$4s0zzYQp0%ee}l%E
zE~LH=$C7U3S|m-EZ~qH$|84Ex<J*7ZyZ0zQh5N&~<9x?s=8AJ{x&&UE>gfXRxeEQy
zuVbVQWEV{;crK@C+uxhEFW>ttE$8~bUcCO}`t^(}s~^AdZBx2%D38F~!?h*urlzK&
z^Xsa#h2h#!3tCz6)bOxRTkRGR)w!%qZfZigLI-O9#^kMB#oB4{0mo~Sg+e`{CEl3k
z9M|jt!(GJO|795`N#@zsA@s7R;>vg~{Yla;?4EK6_L>bu$CHDIOE$>*nle{`(SP<a
zI7!ToQS2Hy^_{he94WkTb03j$-pAbah%c=L`Mc?bxoegOas8)=sOGJy%6ARO)5K`Y
zzaf8#8dw_5zNm*j@pbu~c(i_(S`N(y%i`!FaUtqeNbMP_{uE6|>vTOy*Do3S7|U}{
zzj%J9=kF|gb$QvZI9?bfpTdb@+W@6v1H2v>A&zzW;N>Dny^Yuv5~(~rIQ6A(vSJVM
zHnp}%VPnfD)L(p)=;`z{+RXupyOrEmC^}v*EEtOLonTm__)}-Gll4NO#>K4iL-^so
zmVOWiG^$~v(UW3Wfjo=2`iVFr!Js%D^8K*G>?R(cM}PxDjYunPuD|t;hkV&P=?I80
zQF4!+jEicl;yGyJjBkN5(t?sULhR^)h(rGD10eM_v?$5M)gMVI#<6XX+2irz>8TXL
z!$8_&w=4|O0-`T&Wdmbh3{`8EV6QMMNHiq!oXJU2qIeHm(rc!F28hZ;BH_I}Im561
zXM-8iigl3&cAf`r-f)IgTU~9X-Z#XZA_~|1LoASnUl?)cI#I7&OLk8TH;Z4i--(tm
z8)1%5{gdN1H)yfvI>k>Bo9q5D1T8bS<<oC7@~4UE|An)jU(~~&_-a_!X#5wk>5AU^
z^q8A6kV~)pThQ!&q2*Z^1iPs;wx`(s;PIb+pX(s5Bs{#1n)|z&%zX6DJ`x3uDgVjn
z0CDk-czzTG^b3NRMw44wVC%n$JnZHVA*wK<!P3}z$SPiR0cjmax9uTEmsPeFv6mMm
z=Z=7a34P#X#DofZ`EsIm>Z!l;-Jm5x_R?4uVGNAb_w$A<ksFP*IJn}=MX<4K7WV7m
zhx?s37*tX3-7Kv18W%=%X??vrXp*P9Tb4jUb?nNu(N@dBW{6!D6(wB*>&U*OIW~uL
zUe+DQn4TuC{K`T~I5>oI;A6M%2C_eCjs?4!VXr~V^u=6~i-E%L7FDLugrQoYhRUp&
zUAZbS{IL2ITGbcU&UK9+VS$wDmlswN!pfjA;#fh@TQ~7@(>d%7&?b@a<5VnM#pjc+
zlOXPOK#mVtq1?KJp3EqIvy?ozW7KT9R5^j(xwanvILNQKO}buq%;A2QxzCm^oYyH7
z4E2X3U8tdc_c}sjNjwTYThC6;si_RFhus(#)92(-)EGXB4}SG5nZZimMui4}%KHo-
z)J3EDq&h46h|(@-P7>Pm$pYOi=^oO5im9ooH8t633=%#773tHyBk97<tBt{NkNnT#
z?aCu2WK2_nvvct?Ja`#9&vbOSDm;2%5ks@yt@v2wDR!!N-7|%gWDl34js^cU!)Mx4
z+2VQ>4o9kg&^m$U0-Zed@&<b2-nj-J-$~TXCoM%r(J4nVSTof^(^DRACrKqV>$4`9
zH@S7k-^>sDPu-4;yazGSjxNwAD7@PHsGmDx?Q=OAjZq|Ga&UzV<sT2>gKDR??F=14
z?-)Um1}>qGJ^(Q03BkF{h{BaN)8hQ&kEqB{f91q#rY)SYQ7ZlRwR)){InP4WzLLQZ
zU|lH_5TwGTx7t;&x_&+f8Fk*-Sp=Hqd$kxY5NB8qCj{z+12Q&UT_6KNsv{(sXR-g=
zIFOB~_3V&pji37zq}rf<6AG8Y9zC!TsR<22d})N+p!#J;&$sd2%>A*|mGUhLMAf$0
ztv-_$mZ`0ty=~4=7?RM8L3ydok&O?ImOKl+18a}?K0L*MSjmjC&!TOm&Xk5RrJlCk
z&balS9Dk7CCCe)9n^?%>wLk3{kLCH+hXeYAbB-b|etz$d-l;J5Io!F40SW=C4qHQ&
znhGFHzBOztbfJu_rM%)V3=}cc1bfx>njQO%huc7Mh1ynRp{qcW3e!6HUh%JZAk<LE
z^5Z6Xdx;3PD&~-qfcha~q&B%Ekj5w~&KF1)eHrRiEc!(QG_lr0uA~u07q=*eCQlUB
zl8ik-4Ji{rk{t2z{!3%|`Oi1uKpkFZ?_`Sp2M2U?s*mobFYQA>l7)7f=_<e3hDx46
zw&fzdZ7h&>4Kf&|MKoV6o%yPksfeG-VJ77=sYRlR_!qM$2c{-UEaJk5>5ltI{?8h1
zmESiYPtNqYD+zJjWL5NYNPVRbfSz(?LE&yw%(MVeU-aBTT+6cvt<A4(x0WOAM_UVj
z@5<UJd}tv0J;d(;!|6Wdo$=@~_o|v{$yz>&g#w(Cz6LElYorL+dp3H0JSpDE`Iehq
z><~7QBD#l`5g>u7Q^Oi4a3i&q57x{yZE?X)Z)_7D9k$$NDQyrcUEVA-b_dUh+Fu#F
z#C3y@;{CZzcU8hm0SFB*?*8%67+ko3wzAr2Y<g(cud~TlSDQI>O_#0<yIM?p+#xM)
z<_r6s74gn}Z=bNI6*WKz`;L~}-xzdDa-E2GKRf=xcquW+BW+p_q72d1#~kqM1E6xU
zNfY8^rH{vN9=zSx2_yUI%_lIX`H{Kz{Gp}j)&p^8mOc&88qWr*xb=kGxeTw8_AFFD
z>D^DfcxNzk{a<!^7TSIxkZ_*G;15%1Qg~Q$d6QlBn?v5%Fd($ZVZFKLm0I}y9m0fF
zAA_s>cQ)vm#@H_pjh}wVU&JN<PB$p^X)Y4OH5YEvNQ(em-g3Qo_V-TuM4gq;_mM{q
zO(!r9puhSN$b-Y72CFNnv;CtNKLx8crp%05K0D+({R5}~{cacAO4aB2f9Mu`T%hB~
zpS8FzjX=0$n_MvIty^30r4-Fl)~`zwrmc$;P$N-FN3^S|S0b-vt9QT`6!qUVj0Qy%
z=L689{Q~0jeWb25Bkz2{3h`Y`{Y?`82P<1Q#RA<`Ttd6jlbL9Sfq-~Vs_auv(wPq#
z6=!{8PdrnaTl*gTW^qf8{AGiA<Cbz+1AVQ8d&ZsST6~>yWAAp0NH4>ZvegrG&5BiU
zGTnE|&;$?P1A1=G2%Z)*<z9c<)Q`NAg8a(q15GNx0oP=Ps5uP_6gpDzuOiL*L$CTy
z;1*!mP{m~5{3GC~o=YZfR3YYN^4=;{^U3R}(`Ps8Lk+F%yo;FrH=p?4sm+`wwl<8P
zyU^$FDXmo@s2z2Rm`ylf&Op4T(FO_te3?(1a&=~n71)?$sL_@+8#lNGkaRW?JDCfY
z%G>xE4=(N=iAr;ueG?wyUkit5-ufnE<NX&8;;tq^IVy%Hk>a6xC|V#)m4t|fdz&Ff
zOsOGdMt~<)<OF73;YXz77u);60Ti)0+IQ}CKI@+KtyACswQZ*D2P$ja69DIvJ9Q5B
zCI3$2SEWi7vI0qu;y~A=?Qqp#n`P7}ARxLu2`#>os@7)hSWfC_!FuqtxixJ|r;z)H
zw7L1jLELk&{PjFCXtXu|S+D5^cfH54uKu`?WnZxn!4R5<N;?f_-zpp<9rvpZcTU-%
zU^M{yU~wxS<WFBLMn6apm{H8nH*@a2FlhdSp#t(Jt4RLd2G@v!<wb3HHTvis7$UGk
zU1U0|w|e0B8VO3E2_&PFr#B~#h;>?9PDX4$@m13>Ilh4?Qb#p88Yw4s+WwICwp4Ds
z|LUe{5S2py^Fm)`T3>f}fA5<Ku!M*H11@G#SlsF}{$v`vSbn1!EI&A>5BpoN`+K@z
z`<vJIUH3axuJ9BwIe+`8r=$vmsreaUbAsh#uiHCh2USF*n||HiJS!-C@0PMjLZMLO
ztFNXJ0~=bXPW-LNDdb-c!q~XzErU44F8A^H#O(CD_2##20EYNN_L6I^F2Po<Q}vB^
zZQ`_Ak*n=^txtZfOZ`dWjKwpjkpzU%;q4Ht#!2FV8UYqE<MHuCbPxqUKKLe{Ko6u*
zpzszC=2q^M&+{qzVuiwU?vArXqL0ywgKsRgG9F{iwaLvND3Qu@;aaDNVqF=B%-RPM
zrB3_LN9QM={$<I@4IlgThJy8jk!kT!{FJO+IoHX6=ZJsT0^Go-PyBi>(fk3-Yr8j(
zov9z{x<trSi*a+y&4d7noRNyOjqRrXPhraw7Vp<SN`DV=knV5c*{I*|BjZ)pPOJW)
z>IFDTUYz6I{2u<Myw;>0iTGl(;BaB8JI=>yuzqy=&K>Ea7USPz1JoG<sB^41cBD?Y
zu<71-2YNYMbgjV{sEuDFVY2neE}(=&C*2>4JTucUd-+$rWaH(aWPsW1&2)z*Xd6f^
z`sR&B|GsZuZqU{*biM!t#KtKC4*Wu|Fn>%hb!K>+%Z%J_l{iZk&T*PAT*oKuZQ4p4
zZkdXe*lG!e_UM1f`4va5<TY+@zO_NWYPqNU@=4ghy~Tv-Cz;Mlc&X4PTT=*~04*kT
zvg8@{2#;?pWq1ZJmxFIzn9Q!vx43!toXPp1g%hPr)O+rv<rjVQGrt?;-mjmy7H0dl
zOqCS0@fA-P2WS1OQ`VvfBZ^a&W*z$WE#0v^iJ6V;*XOsNJadEAA^xE%>1;Y7rMwLD
zc`|EnXR^Sb)SJyOVQ*DRkj{{g^nu_zYz)!PflnP!Mv~}NTJ9cHTe7~*bWB*!*`nh3
zU<A1csNk2$vV?XVrqsndP*6&@)ae<^@up<L@+|fSEiylh(RF(+h2h@Q7`105X*Mx`
zHtpgpPj!A(Sg=cR9I{kvin-6y4f#2$@yN$}%zUe8V-{qz?yd=4fOedV^AESii-tDK
z3>Vr;B1}YRHO2_V8mEk3apDW5CA6RCI?qCcGO#sqk@P*<XsV*_*Is?yd3CjrE4C*w
zpAxf=@H?x#Y=^yWdYs3(5wXR_k#{%t-<80qX9|3WYYvNBTU6TN+kX}Lq7>UEx?l;<
z!Xl4QJ8gWAKi%pJ#r(vx-~qN3<sN+$aJ*k2&F_+K=j{c;6@HdquE$$5w<Oi4PhKxl
zZ}JU+FR+p`jRo4x{O&^Ns-2k=%mhMY9e0<-`i?B~=xp5nWy#Zd%njFXu-LurX}&P*
zcPuiIaIi>yEv&=%LatXuX&d}!0Pef(|JS;+Kjc4%vEMZCn-8@4K^ihnZ0^@V3V4`%
ziL!3cxOQ{~6o(u@olhF8GF5JTC9JD-%4~hS6gKG-uq$hFoU{Qj<*+zwR78gROJY6H
zST#FS5gaMQ#%@O%9vE4t#86ke;CpxklOpwnZS=w;O+-XBW4jknD75eoEu-CpJPOZp
z>UQr&v?HX4LnF<m`8qg~=Utfc$mu@wVI;hcp6JsqHHWmvJmn`8C&d0`Gyq3wj{=~2
z4V}dImSi-5_g+xc?V2+dK$*Mx_Q}t~tmTMmlwDCSkJE+Cb$5@z$V4BIts8h%3dC%F
zt1W^s=@wscR{f#9ix1fV(9+=RlbCb}E@nn=FKe6|K6!*G4PPoiVY0iEU_`1h9~Y){
zao7O~J4a)Zg47UtphZxfY`;BX9iA#+BA&nx<NYa!1BGE+O%AuT%)}U4X%$z=E=JFM
z%f^JUq2`RQ;X>G#)^wXBM%=7mQ8}RWsSgaa?aK)I1Ljjxl_i9bp$95@$xrNfCwFZY
zrW`xqNW~(}AuYI$&4j%65^ViCJfCIsG=K=BsH6hQQKnZB;}aU_|1nrN>HX2O&5VtL
zqF3{DH5whN$2<*=mR8*!nWiV^qC%kq05t%D;e-d2YLGvJuzsV>_N?67!0$fjWy^5p
zE8{p5L-DayhB4ENv7XxxH(dNakIt~1Y>gbHz$*ky3w6plbO%S_f>_zLmjMhh-|xTD
zV<opy;U~Xal*D$EnS_jtz7O-U230Ms^vT?QdRUMDwNcgJbk`yDE0$SJNhmB3y`C1d
zFT2+{y^Yunv>i)1W?JY^Ua7m*X8kMzpBZlEF(Nh?%4dUjVER|@?E7}qG-Zi+qit}U
z%YS%xaU0)tHNL=$oAW{5u+zC|p8G8)x5evWM18*h>|2!Sk9r*4{!4^G9DP0*#f&{U
z7v}LLV)^54nfTH>*r9ls+X4p(eaGf(ePTt%@ynG=6>Ge0^*bwD@o~yorStGwIqa;z
z$`U!|-m2fA)$!As(bFy4m#Ds9)a?l@kb9)UN02%MXHw?+0^wU~RKa$YPzB+!3UA50
z;Nf*5C_hR}EY3Y`B#x{+hfS*c7aVk(X)&5`9Ci{h>C<YLG6RE<V~W@D0ChWMt@MUz
zA$odBP^`jI_2V_=PwtblovJJv-YQFZ-=`EO(IgJ9T=s|mG{~QU$Tnbf>xci%B;gL)
zm{m=iyt5U%Wej|^ihz>GE(Frl7vMh*5ZuwYVo@W>D}0glwcXZpXqrxbGBY<kAH4;F
z5_}Hj9no8bT`9Y;?SY%%5I;Wb_oa!pLW=_Uo~X*4Rh;N}_8EV61-e~l(fdry1bVU}
zzp-4G{H}>EAl}Q)H1xo`IYvJH_x(#V6?yjcOnAnd7k0resaI^B#=+qX*F?M7dq4;B
zGb4YQe8p(`{EkgI$Klm1AX?mqWW_$@92`sWzuKhzTmlXVk9~b-MbS6;fVBP_w|eue
z4}=Zvf8aFp=RH`f<B<9Lj-MS|6v;aE957jI+#~AD-*+PZLB?*i_uH7iugav{{`*SK
z|LH+$-NyGworu*Zd$`RD{Of2*+seSdci^54^dYG}xMGo2jmHrcsJ%~852K7thCDs*
zmUrb9f2Y@<nqx1_?qnvq_&()7Aj!TPBdjj)?*9L^tp67q>^@kt*G?!SjZj*%e)Lbx
zr3zY&6s!|qcF7&INec;w9@nbQUls3X%cMViYfq?8n>+&WTBa-sf>~(<^6n-?H43#O
zPSnHK2oU~i`T3!&5$smjP!)V+{ySg0c`zRR*PsrFFVT?%Xz2PmK_$?n^oIsk$0)g*
z_k+EZl;B(|-=qUR7>)S@Yg_Jqo%P+@G^eMJuryaFdeKYJM~D1vLw`jG8v*tq$XmuH
zt*j;-x?i_|=*^M-iqoi5OVT7AayI~j$CjgvLIWurs3JU!QuK#YxUA>!<%{jja@evP
z*>S>SEhYWspt|u!qaaoS{Y%ivzmr#pOJAf=ak^EOQw)8mD_`elQk|fZ99C|V0;7O;
zO>)_2?Z~BrxCND3*S1T;eurCN{C(g%%}D6fG1eqfCs;RF+HcU_?Lje%Ts3m&yUAPg
z^YHZ;4U-xlzR#2cH)ub$cJG5a!$IYSm)N+<fsK||I7r2I_a01&4C~^j?-v}bCa)>?
zkM*JtvYC={GQHsJ+YBZ7;PQc%I#*IEfhHD%ht<%RJM3xRdP39I*0%g_m~Vh=+q+Dh
z<}O@Z>JO((E%_Dfm@jV7jL?T!7$k=o&3IKGw?3%)g7In(O#nu2)hrZQU%U;2lc=GQ
zxbIfBy5wb+vgu>zMtc5WDH{bN)va>yltoIH5}T$s&uo$%D`$z5yZ98xn<KC&=)oDH
zBw)hgYtWECt~Ko2UXB|3b6BQcl^S+zkju%Nm`JEI?r-ncXBB*;Am;Omr`6beau|yz
z<N-eVftgY1MsyiUF%X$bP=F@$zgfYRTy?<c=(<%rA$c%7^mW<hS0Whk@>|O7jEqH8
z&lZ5xT~%DSPX_Qhn;{Y~Aj%yaR6PIf*+sKG9CrKRU{G_(i-k14T~-mo)}FxtgMENx
zclXnA;R-1R3}e1!!<ZfT#7_AFo%50f7Ol_LGSgKw=Jk$aXus116e@qff_|;8aQ#sb
zdmPW^;Ntg0DGyRxZod`f(l$nV_=dGYfzG)26k~GF+N45e@i^)x#y~H_;(fq0XPk^=
zEMk7`5*{xPt_opkiwsk(lajFZya`+8lmf&+sAQEm4D-U#3AQfYec`?qK=n%!4ke8^
zlm`#d)RR?AsaYm`4o2B#@&y*h?WM6YH(NBhJhf{R-r7U!!XX)<l}cE-BL4p5ymh`K
z=xJ-6Wl5pX4NiMbjwtrU(gLUcO9tco&DZd~VC$U?l+GxFYXMUc>K?at;CBbo#5^|w
zoc@2>JMXBb(y!mgL1k3XQAbe`GK>L~jtWRu5j4~h2)!fH1f&~62%`f!NYN81(nl#0
zN(2!M5Q?;kV2~Q6MI;b<G(aMR!25)G@B01Td)Hm--aqbN_kI3gE#Rzkp40ZT_h*0i
zKFS4aQRL?r{(3Maby$bma3_G!$!059^c}zhmy=kuydeZUT0z3CXzD}Q_<g65{H^7L
zO=Z?_t!*W1M$%I(fo}m;^v@n!e~Ee=?_8Tzkp4i-yhBL~Q#!_J`NH89N5R8T1OkIt
z<ZzFp7a&~UA@P{H9B~CZ@?y`pnAa*5;AS=d58~Dx8r@j~GG(f}VWwSXAQ`cn--Ww|
zEA^)jJ;R#hRo2RU(xo`pa}*Jp#K0!4!A`!c7Z;I29DxHE+mi8qm1b5lUQgDgysBG2
z=@O)D%yvYMt3(v|(>ubH{@`LtpwY?iw+Vn<mOtJoQe_IkVsqamjMUWH7l0dbb408k
ztsFA2m#+@W;AZM^w9Tr!wKN@h)K|U2Mt-JgquWHmugS6+GfjmvICsL8Fg!QBX&_|O
zzt^N6J+3ZRo8r*osI(kxXrlT9tT_i%x66Vh`PJfh3BgVbP<pvpQlysu=Rh-dGeWF*
zId`g1cly(B-OB}%JeEzOGHspgPmtaZG68N4^?iSfCtO$>%f~(a>^vNJ4YjMmo6zZN
z1)X}ep<1^M2ffh`)NAk#4}2+7v!gVC8j}RjFXd;?NccG;SnSgqf5s1ndu3v?gQdws
zFN9!rimoQ9GeFjQ55F<B7aL^Gc7-+qQm{ZbiGzw|(ZNvD(lE}Czsf;u*^F-10I&}%
zK6BzSobvo32bZj}sc$KLK1eZe<nbJKqDLB(hX`4fOJTk~=(MYn>XP@QC5X<JUEN4S
zxcUVzJ;ZN>jOjH@k#@j-L5A3Cp?1~RsN_8?+X3@$sVITM`Fg%9sn&aHQ%~BgY~@%F
z68DwJT}>xoTrF4hD;pP!5cNlD>AHiM#8NA1OZ~@$syn0pVo$oRjB4expryUzOMZia
zQ*krqC(gV}PA}YAR(+=)sAFPIWY(*8(Og{4n(t!aA67Q$86|@9Od4snVOGcEB3%Z!
zMzOvaKdml=$nf~n8|g=;wa7hh+7Zm+Iu+YF&A_rCoB#|Ww0Vh5Dw9}`fE14k;`x(S
zK+bIJJ(~~%TyK4BwF<3Ts1F@uKGW}=y_2=4{iAKtu~VRUf5sOaXCw9Kv;ajG&9=`r
zh<!?9BwCC8Hu6aBDG5U`9#IzKH)f<BF6WxDf44T#S}<h`5Fk2a<-j~i>2%<Tc8)PU
zve;oV!T`EogpZBkzlc1K3aK(Zs&QTBj<Vl}tryR>`JbZWHIx}SgP|+GA}$N^@T#2A
zgMzpI_jejOM1OZZ;ElOC>^Ej&|K=dLPJgjFtoKk0H+#e<-<TjjNFX_ifw+I6y}G8(
z2c5eA73~cL-Q}JsS)#qSU(-AWju58GSv=MDBTQwv!#O>%r9x>~)?EHaSnSbko9Z6(
zkj1^&NEvj*H@?4-&NO)2KCF%+=<=ML>o}|lw!!l0Bi)!bPuA&S@=$VN6B%l#4b)eo
zC?3`_w?Ez(aJdt#P5p>FvaD(A!F?7;cBf)@t=b@5YYZg^gW)+}pYi|P%_k}i3*TIe
z>&=XcA;{5`rO~#*ydvu(HAr@x<YbLBsWA|)_BI$lC1#_2yG_%k-@ZhybY$54#Hlpl
zBEn5`s0n^MyEP%0cC<Ec{PTrK#bFwEaTn}ma#CpTo=jfpQD)uqb`lI0Uy13J^dh}*
zr(-0aQ0oZAH`jRi?6(2>bLTeWqms$@b(SEw*kYb!aPnZa6lL01xVKfMeUBGirv0?n
z7yg`-#}6<&4FTu)Fwi8nh(EESUog*e*DGrJpCB8SCV*_B!J~cKl#Q_d@vNwS4_L0>
zl^6mH5ZVSjO}B^~h`Oshu<M;z+wddCbHlBNMmj^`v#zO8*fFM;E+;@Sng6#`igVOI
zuq^WN>j|u4PUmMygJkkAldh%*U~WZ%)M$PQ5DXRs1|d<sycKJcUlayvgUr~U5den0
z@K~6Szd&_{HduB1Qe+^jpCz$M6Pu#4`~@z8ep_Wdw#<i)OGM8QouZ!eJkav?*JRN+
zluV?Q2H>{&+qUz0UrENTI&u@!lusr~aw~T5IcBLpIhnF+th-Jt6d1RSJJ2`j_jMv_
zb^A#0dtZ>&Uz5KO!X)pd65iJHtyPz%7VqzZsfat>NRk2hN{``^?=I^;lW!Bqu-Mmg
zo&X&%3qQ4YZT>=G?N{CUcVfk0AmGRlBXX)<Dr3;#WPQ4TS7EdJq3qlVg6Y$2{KJSW
zF}2;m%l9rxD0*Lx+$92g84+OqTIB5r6s<|AL1;rxc!mKoH-~CS%^ZfPb#*Clk5MV)
zcqYTKM5!?%7%DC#PyG$plWzAt;T2SicEfe~JH!{APFjEFgHRw&&N%aXAp*z~E8|GX
zNDx0o5ad0CU}fRr(1tfKlhOe=ueymxpfk^wO)Wf~(P|}VsxqCR2F#KDN<kRG^gu?4
z0)l0}>f|IYmb@D_ovmRY$XC&2)*{AYTFwheVWiPUV=<Q??INI0YaS3d-_0`-ChVua
z!YzcgVE*c0Nt*8?yX<74c_KiFY=6mgew_^EFyK6}m+As%H!;uvnk<soSsExssqEi>
zcL7@CuZ;u<`gr=^|4$vne~oI6y~pAkyoWErLT5i9aA`N11iB2<JTPmRQK$>_9PC>q
zJpy!JLe$HkJDzy%fEAhUQie7A?9YvWHIFW9?SyR~cqS6RkP-1y^Jtwkg(c97x~&Uh
zRHM*9C@&ZM-3d%|401XTWInO80^50P>;NDhD(QhHY`m}V4p^D!{}M6=WJUnT_1rB-
zhzIuQwlt~^@K@|>1Mo1qg=yoRv=)B>zpsI=4`4Ic|4~>9JZ;#yi5O(=<A_bE+aCOI
z+W&|FW0xU?ng%ik#R3-#7<vP_JHB70kb0>%Jokm>Knx}nT^I*!2N-sS|8i}CV_g>d
z_@71*|F7fXVZcuQz6_NkBTRrumWt3f2Y~LORpPcEZ#N0b{pgn=VHr>(VTC^l{6U-<
zy9FVJSi1~q%Sdi_w}I*E>QP>o$c5e?YfNPzOAfWYTFAEMGXE9&o@glbl%mu_*?9~}
z?E1!OO5_}oeDVo{2yGbZ1Z|&w>9nZ5OA-bPy#f`AH@KrDxyZj7`7=Obh9WyA<N66#
zbdPUSPT-*g-%gYDcE!(m__cm~#6USOpB(l`EJcDl2!_L#=bL!$!ZUs`GDev~m14d*
zg*x(86DWTYk8f`P6N*;KA&k_gXwt?KNSj{Wq#{G`@PSc%1BAU9LR`gRx@2gDIImmV
zx9KsXsW2yj1zwIwfA?*~lHm_pkJRc8?&^p97RR(ZGD=NfZr(^l$A^1BdA?}sVB)rT
zY^X5KS6D@OQ;9+xSma5s^&Jb9z%%5-d2qZ=L?S63&?fBJjrIwfOjcFeKgb{>!`o}E
zj^t>R?G5xQ38dT+<1oRzU@NcHC^cb+UZu-uhWxFWe2pFFk-UhE@K-ew{MT)_{WJIQ
zY|xI@xfXkh!h@pq2HR;sF3z!@|CN<G=W*kJF?$}lfBpn-1_94;+K#4SPt47$PUXmr
zUa!eP=2j2?z8$YVTF7C%Mh14>{&Q?mpr>gXJaAla2)j}c?Mh@>m6!4!AUYAGNC;Ep
zK;+6IH_uT}NC28<*XKDUSGHBVg6;o%{9j&yi(c-)o~j%ahjf0W9LDP)DA$oSG9*ok
z2Hxp0V;KqZKCbvttsIpd(?j0SN!QvGb2c0-25z}eh)rWh@uL}YWVRuaY7w#~*AAA5
zt)5oAQ~I2!Uw;4%+!vK5B_vbr``0s_Kd4x|qtRtXyrBi{)N4CV466Y1=QBtVXv#lt
z%jf2sTfyqK_t#i8)4O7B{EzY!x)>ewJUR!B>Qd6IiEHBcg*1jFGDeAlGeNb36J4JE
z+uFodDL~v(Is_*}as8RU-#lc9a8(%Ca`bgAxOBZ7WvO3OIQEF$vmI_)@n}94)5|T|
z)45AUkl>o{1aZQ{FK>Op!j()DThx6X`-7bTMh>N5jxG`{6v1O<2X7o%<qwry*`Wd&
zZ#A!fd;bi}7<dK@^s0MP1uN*O@y{?Jux6COx9qCvj~Oq0cL54F-y9^i*dt2{Z~$CK
z1<tvKLcO%Rl`f5rfq2CZ8X~c;TY#@r<oRKqHNDQ^0*7txeuYgez+APSR?bcVl|2!j
zP^2{42^uT<`4kMSCH<C-n@gru<c|?WTnr%jhd{}4sDFyJ?FLzqf0%3%<l~Ab81IN3
z1h7p-Vrrh1zu15fwvaW2!LF$nI%H0GAvdM?@)+e5KbP1+8No(CWe|i6*$8_Jyzp@#
z6Zium=Dn6h16?Cd$7%xk$@Xrrb({d>5Fbdxdkr)7+~(XxaMR|x6>yVv^sv?)8S;Xu
z^{%XP3k{n<;DZAg!wh6y%frUs=!Mixz`Bp@afzMvSzoVz#5iY2XIki;kL|sc0ailO
z_a0Es5jtF@9PH99$=;OR{e`D*TorCy2`dBnb+;Hr1p4APKDYSDk6;121jNliRhh|H
zIU{J}70F&vaJ|R<JR2{hVhef{fU{}bl)S#uqy|{oK2f*xz+?}l0KudcXpLRh#~Mef
z7ZV1|_~Bdx*MglJ<p`pfEt2135cb~s?gym|ERI1sm;|8Dd`Zp8n>s==tIYxrYTTV2
z(@*z;GdMQ2%6;L{t$4kCUzsY{_w>kBXjGfREs_vS?mFm;V>bqRFyNlL0GM9p4Gh*n
z&Hy6FG~^OgYKfXzGJSpXqnCgRmLa$q<{7XnyOf)&6W7;)s$*#y;W&I?TNnu*>Hi-8
z+bfXa3vfy<qpN>^LCR}MSI3%yy1Ws5^vgm`TV7>WI&*JS@TO4niAsS%gPrsA1Zgb%
zlX{Q3i5mbEoij)raSF<kIcU9aC@MO@kJnhi@uW?E(*rfG(RTZm)l}ztep<}rEWdPd
zHQC`72wv%ycztp3i2<VE8v!u0oJXJw_T~%yvlML6iN`yI<~xhRsLVK&PDS2duib}x
zTB}nIz!EP3U%+QBRW}ebPPhuD(Y!UOUk$r>m?yI~RmZ1-B@BHV5<{R32`L<Ef+FZR
z7W-O~?l4_>Z*Y<+3LE+nn5Bz{i;pa7$fB`h<JpYsrSR=)1elouf}}_Bfad2|wFQJ>
zXVZ}2R&-j&Eeo~)SjlS2g7vUQdd&}HYH?Wl*t}-MK&R_)4fi8;UNz=JDxKH9_5cxN
z77{MOw1q&|s9fFYHyDU+##Tmx0>%IcxZt&S9=Q`un<61^*|o0q3$@ZDDT*w<L5XtD
z()kynV-s)fGXnR7!M5gxVhEiL)sGmzmq2{i3eU|z(6FxIG^(BZi(?;piK;xUdxnxH
zO)ARe_5mSO74Dv9mQF+#{$x5~eM6{3>F6CRU5@-}rG@FM%MS|ke(w@rkzhb!k}0jc
z6?=JogF>v8ZW`P;d_2G;#Ea1RZNh#n_~h!z1+~EJQ19%#xEm{-Zlg^1(NJ_Bv9K`M
z_1v%)7hG&Nr7`^+{f#cQNV@fC%<X&Vy2DZ8P{XON!~1~HE~@(#FIIJmqoLbz!1!Hw
zC#fX2n64W5o_*tOsBqhPpRq4R$X2rw$kt5qe!5yi9**X{A=&<hZz;VhEV0~O7G3#r
zX%axF$2&sxu+5%*j7sgMOA8N?N+zi<;M_ZAYGz+6;`06~&~l{)s%$<)?)SNa%gntO
zkf;5;Lv_hhWocPuiKH`2>yr*>xLF;(1pJ<6r>ICRoC*sy8gnI>7o?U^ydlJYYkkDs
z?9jfZ0ks}KKu}CksTwmE=oVFKs6!=4C;j@jlLH9fD(Ux!WK2f#cd`si<Yw2CnoM+W
zZXxuKeR&fEzYTvkdBFICVnC0RJ5~K~!^2f9c|N1l-|yp2)_GjKdLiMbAgxX_<dXX5
z&GWj#m?UxT=yB;}b;)~!pqN@a-S$+=$dJF0BU2B&irqP9cYOUzl1DU^Mfdt2kF{JA
zUhe~}r?c2$+D!`8$M{>p!o_9GyHV6IPx*X<KIQhF@w4%H7FCWC%puS<<n_i|%e=xr
zS^>v4PwoEnXf9Z@VP4PqyiqigUF`ggtW2pyMwCyEJepG_yAl|@Sy2{~i_eDS4h}dY
zYd?g;BM@kF2wSy5nm5<dt?R+ggl`0t3}IZf;57r>iBM<$I_eK~^a6NQ3RfF2#e_|#
zsBVsNNC-qc(z)J$WIFTa-N;OR1Dtgt?-D`!^8T_E@}oJO=xe&(PoMaQ;B2&nZBJ-W
zN#~4D2I%gl%=8#IGT8+#CL_`BeR!iFdk{<dRvotao1S~~=2el5Qr>|T&`MditH9XW
z$#rG%_0G1-m0Qq`P9@Q-&tx5n5_UZ|Lt9oNdA2{&KTY-z-Wd1Nx75`Bhb4zjKA&mK
zqj^vH4c<S3jV!<&3X$qcXT8xQ(_o8wn>8!0bHHRB5W{YjSv1ugs&KR{KU^2qFeVe-
zaHAUBxS06;iXG94WLmxpfR}l-yog0O=j4J$;Ap7##|y*JB2ceuSEf&hlEvKX>i4w7
znjS&tm<;iIa$#M2=}qD)wp{p3r|8U9!!s6AmqWC<%k{R&@Ry>zH>A_yw-+>yVpC42
zHdcjv#fe-PH?CtbpYLA5dG~VTgw_L%QO>oNef7NWJ(4O+Jwv+0s%qWqr?;_pf*TI=
zR-Q)OjXa@mKve8lF}8`&&Y#&@ufVqE-s5*9VU|S1uV$rOI{Rs7(An=!xdZ;bS;XT3
zc|0&T6|wym%ma+np^uBTMnSdg11nio>|Jjl#`kA9;yy&V(cM~Pw%Ad=urrB|Jf0nP
z>}R@J`$_VUS^%LTPumJbF2CW}iz`fMmsUQr&NW^NlfA{6=`D6dSJpqrECijKs0#`%
zJGZ{_6g&YA`UWP*H!SsqJcP!OrydaIzGS))g9Ea)TRVEEJs+9swP?@$`}AH`tgOE|
z3A+gC)cQ1G;$ni7hAn(AaP^DVTQSnLKQB6qQ%7oKf@6q2IRA_EtOU-`!7rcGa;{J!
zt)!ENZ=<0R+mB6-THiLk352Oj@2(703az`OPxVCVi~YQ4Ail!#mKuy(ijk*u;+?WU
zqG?ZQ;bQ!=Epq3Dp#sxMZ=ZB)vG>M=f{F6gn)2~L`5JcRC{glNU;8fMoO}Fg?2<@=
zCzR51dT5TML!l+wukm-lN{eV$M_@3pEdFK(MXL|OXZTK;jFA#0l@;xhio1H<a5`Tk
z(^KvIpUcV5$etJJ!7MBLUED%drku03+m>?z=ZGkC!@ReV8QW;9p1qu9$jb*xSBY%7
zPqlr0;$!ROE!t-N-;d9^q(^-0^eVhEk{|jqucjyGQm`po_1KVuUb^gBrmB3CKIkeS
zz$oMm4=uP=j1NKXWvap|`6@x}%vSj2VAbQ=_h&GjpOuhlvUa<%*-?i=IaS_-&`{RF
zj<ds_;{z&8x01zB@83@1qebFXO_*#yezZ{YXcg#N`k^Z*65E7swmA`|Dq&<B(~bU6
zB^)3pKOI$$9qHOM#QcV0JQii@6!_rkCo=lv`;ZTu@qT6u1IzM>I@LkUWL(rp<R5Fa
zdbZAYYpoPie?Zqx4~OzlZ;At2WN2MrpG9E#zkn=AnD%K(YsWEMlnw5ED;jO_N-+n)
z+O#LPy)U1&4yK>#(vKPIIhDW>w6TY7aCe955qxmZFKq=D(_C>7p>HF|QW^?0LwVWR
z{6xL%bt5ZtLj;ujUJd6>_{LnXMs6Rp0DiBC=!MrxABj@TS@GWu`z<3~KOPo49rLPm
ztorO?>S~54QnG$;aN3?kbln4Lp4j3mn{RJ$*Q@hDTA?G1dLOY?ynA_TE|!leBv_gf
zb`GILrx%iaOD=!yKi-hc^fjRBKQvl99%ai9H^_9g4(^k|E`|B?RF84cK0Lt#KU?5>
z4!n%9lIn=HO9cJzVph^dnRVW(OMQ~O+MjtnK`QjehFi>)*-&RP?rP@NWE2Ky`t^AC
zla_@Hw=Pj0yDF^fMYVlTK0R&M&3@PBE`rgwIK3WZf=Z?J0Ijx05jWII5~qrS=3@1h
z1Fo@Kp0Vn|S2SiT9j}GwD#(z|$lJP%6Xk0{uU;5`sdOee@=l(f|AhC<R}ZR$Z^ZA!
zq>@9?+_^gJM_#|blQ@(5GPru}n8NXCbVeIV=TBOny6ZWa;3c8vy1#($bz1j)PQg+f
zGUh_tNB@4(Gk!2~e}HO5jGh&4EQ8T>Q%?@vl*tHa=fcfEf__g@;i|3}_^yfHVi%}4
zeI7R%qeWrPbB3%@kBSSId*?-gJHYf>J3;L+ef3abF&C5+nj@K~xZ+l0_bmo$mC>tT
zC%jcD_vbmeB~+GYKQcMMbk!mOR6ut9xZFc<$Hi9|vpd@}x-6wdQ_QPOdV^@ze|``v
zc39>ppM9!!2T#e<9+UZYOk`Qd^ovt&+rRF{JLB5xY4&$)R5!z&c{103UwxxMG<O`X
zp^cz*JG!HGu`Cl^ud#UJ{uui_&G_<MozsISn$1#p<JOev7_NH>T^4d0xJ?x+`-z_4
zx%5%WV{7plIamJ9)wScpPvlBIu2eb=*C{_3GTIdcuIcIE>Q!(}|9K|b{C)ez{p0t#
zY;JLu(%T8Yh<yG^v{R6|q_QU6hPc`4u`G1#)~_d4_MLtsbFlKymYdgiUi$FN?d<WL
z5AzKb<Q}wdxktE1Ugs{Yj;EIP2#M`apXkok43%l{rfS1B;(>?TOmHrDo#nVCgpN9d
zMiUP1d|F&TIGMN6<T<6mTHi{uNJ{#eR!bVEC4HX6?|GLSz_`7scj?oCq*(5Avv(52
z3e($-u4o5|to+eF_|U6sMd<j(^OpCreX3H^h=fyv%V$QuYmcZ!sAq=5Z>{QeM=A99
zE9KC#0hg6(1|LdrsJH)+)UmYSxLOnSCZyq&*7xG1;kH_%+|I(eo2yk@%>MD7!KZ!}
z;Z+Co(eyW)kx3R6%IfRPK9PB>)gp1fwXL|XW~2HK0o>C5B+-1O>erZWC0f=J6%`tK
zzFQ8urBqvtV_v3*1MLLqVvm}QWJL|%WwNksY0iAh;*syL_l#pW>6^!lkLT3XLnB<w
zt)2VQ#eH2lsM;*oyg=H=Pd;f_mG{_;DZ5;zlNM2P8<E*v>@Naw^LJVMe`HfH^LGLy
z4aU(Yux*OieD@F_(O}s9_5)Dwg0asy_8;=N{oDT!KZ=%xhItoTwsNeT1*eNNG`~`D
I+3oIs04}tiHvj+t

diff --git a/reference/plot-4.png b/reference/plot-4.png
index e3e88ef4c2fcc18b771f1c4c7decaf0692798eba..2d81e568c1c860b6084b2c927234c91862076ce5 100644
GIT binary patch
literal 38728
zcmeFZXH-*L7&aIb#0oa#sx*PnivrRiaxX1ZX(G~8nn)8v@8VTNkrJAr3jw4{ml~{e
zA~isOC@s=U2mwOK?0E0}X4b6v*7t8_&8#_VK_EG0pSL~F^X`2TebY$i)bUHlArQzZ
zxUQxt1i}&kfgHYn^aywdpYnDcyd1f&ucHZG!M6KXQ#g1z_DI(X0fBHwF@Bih<~E!l
z5IzW8Q^PzUV|g+#;~bgRzTqz){GO}(b<Uy47m<hVpJ6v=D|#I8gGFRGcmG}4J9Ej}
zl$ZX)#Q|;~Z?zp3tI2wxp=B<m#mvOP%*1Y_m4I-%r+|UA${HS(O>~q=U#_Yk&Lrsg
z$&%EZ{WfWy>brduai-s6`u~6Z{}uoiF!wZrCM&8IxKx{tvWE*pAU9p-oSP1TPuiFy
zEKRdMFBw%_3Eoj*f<)+v3*$NdGuqBy5uE@2Ehc)X`QJZp!q5C*`RDHly_Z@e;LnK7
zLGj;*wLN(ak%mCt8GJ%2>o1BfXu`{&*DLJ^LavEuX=vz`1v7YeDWN|9cHcc@Usczl
z#KKMZ6>)l;pk(}3V{*9Q>lyE}NS`#cI5bnL=sEf;Qb;e2&oxRvtsMDWZ&9kK9BqMg
z*4-;aLtTf6r{ST{%)4r7of&Inq_ch+bioM@D=^UxEO|g2iW`@~(K?Z_i9RvtG-RFb
z-i?8Dq+LSImCs}`uPbn}<J6K)Cl|#;X07uZa#43&96<{eBl!oK4XDDKs%{bt#IO|S
zg7G`QZ}jG~lkvyQHA7Szp;p>1aB<TP|3vhZDA#8LIFv1JVPyN#h`Q$-hraT4DeQCP
z1)+Du^Kcf?Av5GS{7w=dVYJ;5#phUHv4v2+u0cENDn@epvno7_)2TH_MA~pRL=`IY
zq|I@^6H0SNLGG7|&#tNQCiq05KM5|$^+MzPZMNAPxc-VpTc1lJN9s2!!AEMF3F)W@
zZojkq28XQa!Bf>vX70yOwM^}U!DJgg*E;<@e?g1Hixz1Hf$i42*OM-OL>Z(}k|*{~
zC?R>a19|-P7Ll44HHv=`<%ZkdN(wGu;UfYECP=<DpI&cK|3A;V{w4Forf^F^WjWg@
zLV@44tcM_X2F7GpFSDk5b0pkmAoLBNt<Y5Z+~f!&k{}UczeMsmAL*X==}5Tfgz~(2
z0y-zGc%lC8tWCbW9-_L(W2wZf)B(dxKG7K?Wk9jXh|kI312$PyXj2jT8uUfIOQj9p
zo<CuV%4tm9mU0!4F=P9puh4cmp~mJT>$EKQkKQlA)y?>SU81EXO1$yuHp;r6<QU0&
z4+XIehFiK4te2YtXX%$y_i3uDhL0pXKkCBRVf8n|GjqaHgV33xMP)q?h+Ocf?wGs2
z<NhV+#baH^^|WAxVTYPI(SclZ;3}y#`21z{V*~2HkgJDNX)BO5ii|*7T<XOHH_RGB
za2Sblo;jS_EPy-$eP<cZGzHu;C)}1EO>qvaul*e_IWO;&&<?XLIUPC`Eteqo=Kx#^
zztk0@>~kWcS>l|;v2JD~wuG&u_JcEUNwvj9kw291V$wR!VYr{iw&OY^t`1|zVLGO)
zD85+y0c*ohSw~m5Xz$Wv9wwAHrQsp(mLj`GaR<>{Pwmldv(=Ag)N7`u2(81OEXdgS
zh7teb{lm>jAB_HF^ZbRrWNKyR9CBU)?jo|gpf&ZlGu$b%M&n3;4pc;Z7~)j`960u$
z1G^+&RH^3dS3K^7@h=26u*$EJb^S3qfp#A|l4Y2h0<r_q(YlL^@y-$L2Zaqoy>5cl
zIIe>BCNzBBkH%*{ixA7_QQS&H-Yqe>i_`ao`wNc>A1#};Gp=W8G4dV5Xhs(*z;9W{
z1+iRwK{>u2YjCsO{BScWz$?Yy`owR;6<@7C6OQYM@iS<*lnT^w^wjV(GZYe;OY*Fr
z(77DMA`sk!ZfF<i{WDeWwc3EqBGNgz`(V&!yZ%`ymsz~nrc$ygJ6HLZ2+=3*an(Ik
z#?r2MDowa?nSLX}SL~6f0RO`II3IBLUV8srI>;-<g>mUF6PbEtkWG$*T&XzTgc@6+
zosClTlB4IGx@IRW&Ww-JACGXFckm@uqeZ3go6uq7-2H&Hrsmdf0=?&?D(F8F3SvLI
zu{_ScGi?#qEGT<v{c@^@?OC*>*O+Qy*lc%9jBk}mG^cZS4c^v{p7+`98B)q`jK22K
zTnAax?qK~2(!F7N;jSGj#4E+}_lPcX%YZ`q>mcE7us-U{(>$knx{Y|zZRdMAGpYmE
zw?|V9_<AJ+L{Kczrj=UGtLDOXPrhnNRe&J(-lJoeY*fW$?~E<=_dr*U@$9D5yJwrh
z(gNJmC1lg8_yfPrk^N*oVs5M1ZrhfBA<gK`bMcDHmUWS2P853}11s9?<2=)ZOpH!P
zo?Lg{Y_YQQkc2=)T$lrxAUCuWtU6gD?$7C85?gRU-Ss#X6*@70EZN`(f5Isqd~<>S
zqiNp|JEoE~TRUTNxM~F=K|nUH4EOmpE)p>(i6;)RS71I@olMFuwnctxa9`r3P#>kz
zCbXIGj|FW-&n4LlE_lOJJD5c-cN(Og4VHYawkc+C^OjapCrGebkYG6(zX6D2(hi<E
z7e;-=Kk1}>NvQg4h*-0>S;3tVsW=b2JSP99W;>IE_L8ixRqR8EJN>HDn|r5Twz4mF
zgdW_jH)%sE5v98gex4qZ`vdiZ!!f1#a0P05YpV1e<5qPe!p*_0I;|)69D=v&2kAMp
zO_*m$A@BjE9z4``g5BzuCBLAG-QY||>Ik*WN(!UuNX^*$N%mKiaj4bpy$@gFvV&=w
zx-AhAHUsLCYd7|<!d<8pcSdG~N5cY+2RiMwSn>QHjOtW%W5CN%JNtUdG0l?+Tk$<M
zS$2IdsiAr8t&_-i-J(4BRwMpUt!ZDWK2V2<#Gf3@?FY>VY@9{+V`E};_e#3!K8}!h
zZR(m{A0+n>lQ4nq^u!(;T;NFS_Vv`I1R=A<AouRXA^B&`RphCYRb>Fd=VE?ibqv4E
z35ni>i!1?|Xn7gL<8nVZ!hK>5)*V_tX*L(CAMgatB!%DZ2<5@Od{{s6binhK!<B%h
zxiA_J|3b~l5hzEZjU7hY`FzFTi#}guO2BO3i=O>PqXUrzJCvJW#Wr`@N{Y~fGbl=9
zVxH=NuYP5QJ4WFt1HEo23ABOiV-qBFhxQ8<w#DI&e(dMLAMjJ~?|D-xTooM2_=Z1<
zhd7OjuPpR!6`MIt&Qz{Ip;_vJ#sjZES_q3;3%1O!2c3eO*$zxxS#y<J40aFhcChA*
z^U$F7%#mehRogwTqg>fdEzS_qi|QEB!}V|U)FQ)*W;ul(&TZ};kHQHB%_16lI=&RV
zoEiy<N9#BpYWB=B$c^Rb*HmIHAeDMVUx-Db(`4%Vyb^pY9$A!_+QpkMR+W|aJm_13
za+m(1Z#Kw0A#_7S1<tAV)=+KiV4vp5oM&h2KRe(%r7Cd9E%(Tfr*gPCG8c-khC7B`
ze^F%N9K1I)DX|CyHe+aD%Q+rw>WsFJMqfh)=|2>bJ=>d=C?{C-7A;;Dn#tqRI2&H8
zlV;A#E~J<;CbclNp^He-31n?RcT#j^C-O?K@GPWsGKW7D4Vof39{SPZc*w1iTG;qK
z!=8hdVMH>)JmGPIl0-H-nwtN1y1=Yo5GE~@VBczxgJ0R{Lz+KWvF4Mt{rH@DE{LU-
zwx8K39N65cuD&HAer~OI)AK*R;l#>45a=FH6{+Wf4;~hoF+<%*Onu1{bF!0}5P9_0
znIG5pnc4nA3I!yk{z`ZasSu<ob?!C1ZhK9+i`@OHzPdSj!6!mN!Zq|IIbDph{Z0IT
z2hW_0t6GO45XJAw9n47+p25<I$95Vd&nL%FpqYHte5Otp5_}TS?Nzo3Vp9CFlYhz=
z+|h0STX1`ff8nVhsR_P%;)*g#aAD;9wy|Z=1gEvnW&xTst48}fy=#5SU<e>x#N$61
ztd^_8E)_+3Y#2$~)@{^ueo~-G{kEqu(12`&k1ynfahMdL-2}NMU0dU}^c_73e(Av+
zouY|ydZzktSyNpF+ktCyrg>jR;AyFMvzwCl`TvILKNKdh=<&1bHJYQ?rTUOo<|{;I
zsv5MY!oYgQQY*|$2><)?@#!lJO)2=Ow#NgfV-@Eoqfs$0gU}d>Z-DOTz{Q;k^a890
zf|2t1w?}Nm*HUDj;Afn)=Xt~sueO9xZC!^@)@88di&p-8dp7f<mpglk0+DEY-G>5*
zzVMV|^QG~}xOx+nq+yPERjlu?%aFQ95|0UHNs#;%wVi*KO3Ku4V<ZtL=(w?>dHRIt
zxn)G+BL4#zd{GS1gF*T<qU&Vx=2GE7h6A!Mk6fs}7BMG@s(Xh)lbjB;uS3g_TQAXt
z9Lt{^=Eze$j{m~;@6i2U{rYi(qsxyW9Bx825B0pF-!uE%zzSR)G3WSOi~K%5{OI~`
zHVJ{;fNK2@_3^(t_5a1^k0KsQ7JUg)Ma?y$-Aa4BeY$UidE)ocMZb;<+KRYVp(~&(
zDK#1c*2n|Cg$MArrNe!gD5nD+7w5M<vNE@YZd$2Ai*B2GM0p5stdyKpYy6sT>)bM>
z5Ungxx2=YA$mW9E3aatDCZM^IVM%g^1GUIYf+n#^cJ$!LWaow+CA@@d9lFUW7SlE^
zT{?@k-gj_E`WA^JTC<XBGza8Sq-(YV6%LEj`Dy49Xy^lOtR9@A`_MersW5Td$&Ijh
zY!Mg-0=c-M06(*2Qar2v!or-Mq!jCUu><Roo-M~QCJptl*t+B$%teg%t1*brvDAK;
z)|f2g>y`CPCf)hHL5_^#o%xn)T~1UHsAtr&PW^|PZR%>N;Nk|V)(e)pq65E^tjX<}
zkd&Sy0i$`f8t^HZ>{gf2KEs!nws&04l0^;pvw5Mln;m%x=vpaPeQ2f)n^U3nTFQtz
zC5Y>{G<4J~@6koQK$G<j4nNY;icq-Sa-NnGTyMZ9XX#wynT7sK(3Wq(Ln-e59rt_>
zRCHItyBqxu-Q9npex6J|W`1F<qgi3G!M*-)b7!pBYYy{>`jXtWpIAY1g1L^frkAes
z>;@cp;IJ}7o=YJdP(<AbnaCp@F@N?}@?00JO_nnl7=+J~6OwT`g4@1kBIh2p-YzJs
zD0sl@oze5lRps{Lkn!IfG-^-6P>&uU7EDXz79`v856eDFl3EpG%2IfSgyIuu><&@1
zl0c;2*Bqc)m6^=_6mGLdnWtV1y`11v7q?ZJ_f2g2-TH`(uQjkOtmiK3hSS}+smvdh
zaoj)1vdK43Gff4_JkeI^$oQq7#wIf;@?m3;K4Ma1yOMO5;282?&et0f*iZyL7Za=7
z*mI9M_VS473GO=M$~u@GFlqX>rWOXm0x^H2G*%7<H1|t+Y4-}s<PFlN82x;#h)pbB
zT}A-anzEG^x3&GC<dh6z`<C2F8S$c(2&wF3$}#gJ0%gRg>N_XA*hQ4bx9VlgSOcsi
z)}#^pTbQykqA8qLSOk+hTK>zNeUht=@IZ|qB%7<0rRLP`<y263v})OBurC!=Pl=Ne
zh+u+n{J~@gX?s#!mn$G^pLnt8KI`TYL0uIKXCIef6kbH9Gvv*rX!Vbt;c-eGMGBdf
zYQ^mQ3LX6z;{lUj8%KI3TkWGqgLtGUXWn*7+#k^#$cFX~x1N|eIdH)HU8doI^|H5R
zs#UZ5liXLm6IWz&Ma-0~vE8NyxSR8et+ioZxirqz=<L+026TyI-^U=7gWZ*LH<iBR
zXQY=khd~k69?~d$ZhaSXa&{7BTGh6c7<g;XQwH}d4%u2ifP1ZPrZWFWhIZOmvGwk9
zOt(Otfr5wAywASDylN@Z>VZgqs+6yzXZJxx57j-YXQj`wGw@@vdvdB?<0%>9c$w6*
zk?qOH2iYyPz7pH~x2*+xlU%d+L!#%1%E<#NvD7k;7N_w-acGM$!oy?m;MHXwe$vz%
zx0P!6fGl!6*^GwX!Xn=G933!4g`xSylH^ABb}zx5T<3}P^jhlhdoi4xH0(BZ!y`N^
zcV#-<c0ek%LH_aiQ;%3p{7$=eJ4UuCA&n>rFh=&HS8y`*7sAey?szTL){es-o$j{#
zF?R>W_j+(z(5pKH((>6USX1c3YzoC!=E<Q#AN$V0tZ$lw0yZ-ysV{n7{_33P+~R89
z_O^#ozB<cys{~vS4Bp_aXp2icHyavj`E@1SCXy!bn9Zog%VSAkK`YfqWlq&A?|jQC
zst>&41DcRS(}@{FI0dov@YHSZmg%E<xd;A+s{J%&4`%C%m6|(cu{Gjd*nWZ|r`ddv
z!>VE>CD__0rWVT;<v|HbI+t*)r{L3?Z`!K&D6YrLF|xLDu7#)CJ{H|{c4&>>^)^f+
zgJ@P3S|~Isoo*(Vf&O)^p|?HlrM-1v{y1Gewy6CS4;3nY&P+~MXvd4<RhcH%KvKqy
z7lubTu_kY)j;Ld)9lQ)n4b<7p|J7M>-|m&I#klCs!&kN+gVWHT9S@yskRcr(*T`s)
zVfyq$hIi^u<f3>Zq&Js2up<6q|HHUj%6IzN3B0a!_If*}A*O4)Q&(iGhV0%HWc6^p
zz<tf{)CS!T*}bybo@+#1Wz&8P?kSsV_fs_(niimK%8rV-DU+2zt^8JnrJBg#>~-fq
zu$yfuNAnJ+3drVmvpw%g0NyRraY3D_IirMKKye~$2wluw%Oq|9*2{Hu*=JI>O&VCc
z(Z5ui#B0}%HjT>6=sbM}HLR~IL;AeTJ#jFUD)()?PK(N#;bkdzL&3m#s4CP}As(f&
znJbY>6t)$HvhCS=t{{RZmbNpp>^qs+-Nb@yuP3?2X$Q<MeZexU|HV%B42mUlydzNV
z=WVy_XGkNnnwB!rg|k`&>DPx#?QarygT%8Fj%{~4M^KJy5zcAo7Sb~>RTG2&NlNPp
zR<J-FUC%0g5IVCodd)fA^8H?**3)r~WN!2E3nS|3W<CEnVZ^kbU1~$%-U^Fh^Py<J
ztDCY)1fd`|gM$qwnNEZ2cfI25L&y7?ZufoslJ-(6<njFp`FhC1)?B70d(ptLqw7+M
z2uNXBE)hCuV%>QZ-e}gBx0%wxtlC^4x-&IiuW`w@!&2@lhsvBz;+w{138LHkxY`zT
zYIeow65S+f#nguxu`gny^6vWB6+>O2whR3SdG;$ZoXY4XlYVK{j6T=c+`Pu7ugz1R
zgFK>obU!#cHLAiE!rbyNu2y2JN7P$p?6O^3!W@tL8bslJ#q#~RDsc<U4VX2o$yT>~
zJ${?+zJhRyAfH%NHLluJlKvRx7om_#D-4Ye|B@Z$bGX@Wj8~~Z*RYZ1^%iaEu=yf1
zM4H6nT;*?@<R4M5+b@kT_a2?H=$8&_R=vOC@4|@Uy2e~0p~RRO1aU;$*q~64@92nG
zKfBGw$K&bTF+S<y-+6Yc{#w<Db{bLFX_)1P-H{kE98u4kvGYHX<5z8GEJxOCc4rQl
zWZWGuzgvKX@?Br2g6a29c>p}Ul;XP3-MSK7IB-Hc$}#f#nH3e}5Ra{m1O;&qcO{qR
zMO$%cY1LRoh>tT>>Q4jFx{BMrq4m^zV_9bHb#O~TuD}$#U(qYaL+WQx)?_GYs;2Pj
z!eWAyT|qY~-LoorUNA0nIb`PPw~{hk({gHV$Oqd()1Y?ma`Ijr+wS<L)BN=0m9-y8
zZrxX2vf`ft>!^|E&MtFa{$aRvRJkqq6*&!;>)NRYY9lxF+<Fb2tuoFO&M9P)x_NT_
zLPw7PZ^AKM6*5cbk$@Ffuhrx4mvaW5pI2Ke3fW+RbX>h)br{0+;L}SZt<x}KsbDYC
zN>R{0`ml_+tsTKx4bPjD>0XmHd5BY1tt*req(0`5eS7<Xp2{1OgoeyP87)f>W9P~@
z3y*om{5)Th$M_MMT#~YMFJsi*8pp_zwFh*1>hhV;Z8?ZtaW}KJaHm1136~j8O-3Vj
zWn@iW<+M+s!RfKitT)+|ZywbZ=}p{qW6N6e({!FCC`|&fT$z{X*2TQ8KdU<3EhQVq
zGpG*Q&G1`Oo_<zXm^F6NQ5%Czw(=3TLP=r08tq0%k5gBC&vVmw!@1(Du+>f%L{)A@
zKXr=UX)wy)iv7%%G4(UPqO7Th`^<Gm&ok0>JWXX$w(b6<G=JvXn4G@qmH@|GzU&oI
zR8AT$ZwTrk^F+N68@^OZ6hM~drSnk<bI1dJS^f`=Xf_#pzLf-}=c33v`BwIr$4(av
zsn5{<P+LA?>)j@DhV&W+G}w0AA>C|Z9?RQ4_=`ZS^8>N2_&wv@uXj3y7A5}rd#PkZ
z?(XVDq{B9AmYNjaf#N-L9rw1S%p_9P-H*@H14(sB#Dkukb%PpqE}`$mxChd?W1?8C
zE2yj$?d(k*V;a49Y*R&Nz*t73`iacP#D~{>Yju7a#_8iGgTf3~m%k2=Jf!~^MU9Y}
zq(DRZ1W}hNeU`(-r*&Xdt9CW<Sk=CEzqDdT*S_2;IctOzZnJn_Wjv^kv#5HICZN$6
zFeWCQ?BnYc8HS&oVjC5p!$uB1HnT!)#YoVBQ!-{INgd41%HqCZ6@xx;pIeV)j=NgN
zy~!@ICKn5xyV@OBlt)83Tm4RVyhdxJAjSX0R8S>8!qM|>g{xY7-Pi5Fl5|HN&&cI)
z2aaxoOp-8advrCpf^5?6^UP^{eib?29TNRx8`DO)2D2n}ROgfTJs3GJUuSGsCjq%}
z;q(s{5Wn|f>oh*1N!GT<LQ4&us{u7_;pwro+ayTZ`xvDDCEQmmlLy4;_TwA7?R^@T
zdEZn%4YI43&E{L+K+$W<Q>`*eQ+lG@o65I!N9!F1o}E9n9>lV|60!KoyMidDT=peZ
z%5|xexw}qxeDOW))Y7ipQbSpfO+j{NkL4xlx}F`#SML!LPRh4(5Kqbub5_f~uhz~Q
zbFR}TFl?Z<E~_wb*?|>C@Eg65u$9qs{=6YH(`(N6ZO`@HsPl`{6lFt-;$tW6FM0!)
z06pDRyA!Qb``j^dNMp$O_^PUOWmZeUNqDN-SxjIg?Xe*DLt68dd9v~SFe4Yemj+vy
z%TP5>T1Homh{k&zHVSgL$uE)8v21t^)@0~)8tKzauEy&kU<|9t|G@s~2D$l!(ZS);
zeW<s{OA5Z-m#6Ar8;>epA<D&h_}vs3+da)`h2<2JJ&|O=Qu*=C=nXgB{vQwbf8lOZ
ztgtTKG0Zli2<itlJtc|iKi<@=ebPR4zD0ZTLQ+>EDog`;z*FDLHWiZhOOAPCnPYiU
z+o-QP3ya*f?`QL)q>@D3ntHG`^rO<jf=#$zwI>|49a=?Yk>)RBWw!K)f`fCraF;k9
zzqCAa8Q&)LkLspAQ!A;Chen9ED+p<S+V0yiisQZTi{$*~!-m(@>Y%13eI(Wqgf+Hh
zz`^)6^1+q*&-cS(PnE7E$@TB;n(R_z-gF+|4mM>I1@sVtYSM^UOgt*3Kv5&@tQOU~
zki`lrdw)t@+Mf9~V2}B~Ci!9LH*ApjdyHN!E3&$bs3wzV)T|ved4GjkcoNs|mzTl$
zy;y3&d5I_rpTBN7|0Z2Dm}%)S{7Ej!%c#GV^kd|v+#8~t#gi5DrCmgn#}#<EncUS&
zD(tHX*I?PXv}b~9d<b!J^*ANP2d?}rDD1D*Wl^Dt`6qRSk~`1PXJnpKVY+v3-|vpW
zJhPXnKcwHE6VU98{ALZKtIzueYu*db7h;$R_dUq(xZQKda<yQ`nSt}0wZwSxr4}yi
z+Hc(5-r}_zl-2Dg1-nMlGR%`m&22$OH63@9?W(ejkwf1cU`<|DIW%H0t;OIjT?Ec9
zx<ULR|1wrJSq4X+*K7Q=x656@efT^Q^)w{M;BIsE1W_l>MOroRRYu{$hvA?wy*_(C
zw3(l>t4EYI)+-;_3~V9R60+lqPXxEsZucj@o#A|l0-9f4Jz?&F8`V8-pWxm3xliT(
zaD8nqZ%|x(%~faX{Rb1_ckqo$N&Z#_tpbkov9*JoofBz+7RPrRJV=S!dLc$o*>Ta_
zU+2R=pBMdaEda;dPYHOQllD!VrB9N(?z}2FVJq1pu6LY%Vfs%kEJCLt?oA!%kKijp
zaqoLXTIpTPmi*%sdDl*fo97c6YW-jJWTYtFQZg*t=a<naSY(@<D*ICM4gcyh_fjR6
zODhgh*sNnZ?xY;r@W|aj-9=Q{w5$NFA;a|g1^TD=LgP1d)17`denEsfHp$0~MFeZy
zcrbEc?NlBW-$U4WgxZb6#CFR1eVOT$!L1$xa&{DFcM9eD7m!yceclyb#^79)+poa=
ztty0%$7FLQw(FvD%0ed^WY&HTLSGLbtbKj?IBP}Tp<+U3PTzTI?FCvmu}5J_P@E=@
zx?3`-{<q^^lQ4(cl%LVXj;(Xs>aQFNJ{56Pw-oen!mxL!TQA2hXwvbw=Do)Bos;~R
z`SV$1Xzjt*TxWm}DR0l#M@9dAUd^8%Ms|fh=4csl)_Zur#m=^$qM_MmCXsLE*GR5Y
zyF2G?l*|2F-XAsOpydq7d~B7cKApDpu5jUR3(o6d-FWfYp(TU!HtBedo>2U3Qa0^{
z{cy9`k$~(Jic%FXf`gms53it!R_J)R=O<5|K)Tt$+%;Hx(AS`r#2(!{g<In1TRh~a
zbO0@DbY~Y0%4&(M6S&`X`A4O_JIYghoFKl22#wZn6h4PWSl<;LoXbxuf8HZ^)QH;3
zFU$H+lZsuU5}D@|Yn`HfNFCiv%7#Qm^snoK<M*taHN&wlGKf><y2LTIR==&$cDD6#
zkC(U^?Wipl8I8b-pf!tWSFZ7HX6AF5PlL~&ieVk5*BR&9P!%V%7ut{Wx8ViL-77Hq
z`*K2cPn}w85Gq-ob2t4?llu~ObFc9erO*Gi%%kn7&99>91=swsqEMY%PT)8@=dCds
znC)wkIZ+xDPZgVwKGck~awK}9o|$iVg(wDF&!>#+h+ZkaA5q`f!|&|h8B;JWh{*Em
z>PZevMYA2-6iI5B^lRvON%3nFnc9$PZ?P7F>^J8QN=<m?Q!Q-LGDnsIWr#n+P!ZwL
zXo}Mz&ju;-aq+!-Qwz85!XLVO5N4|;{pxB7hXS!nT-MI5?O}x-5=ZMT=0kcCcK`e&
zdDBD1WI$F1k(1Ju@d_^Uk-MTl9wj9`>|^Mtt>Kw`>`$W<*SJ4r1m^f<@^l?II%3|1
zXwK7G29@i+B3I2fpVS6~l@I#F3ZRzc?1E9xYHxL95IkhsX@6T}S*vr*sp3Pw4f0UG
z90@q5mZ6=9SMCm3xLa?m;uu-<+3CV<1MS<+K6`(lOs1f>)Ym$;OkU4yvlr7(b#C2D
zg{SeI3nAR&Zm*YFS>_n`H?K_HJh~pFcA;VR3aXVD<d)qclNY2TuAHmztLo`He;2o4
znY=27Cvx=QLf@l{i^_Xy&%ki51<%g6Opbe)OGONg+V2hb`e{W7wn!p+N3eccj5?K*
zd!_A!!uErrN~`jA4nPf#wqYC`rz{1kZO`x>i;C`VV(j(fB}96{28!^o$;#hEaI|=Y
zwoDWrXZnFvMBz!@h)b9Fj#hLT#GQfFo@4BOgE`>mDhtYOhV!BnMRx@z?2vvE#~56M
z@jq=Th#=hMHnv38#?yLf*9C6oc;W9mDL<7N$NqnCi_jBDS~;Gx7_G_As{b%)CFq}f
z<XdWGd-kVwm2GsFgaV%9M)HvEz?rdfhI|8CmFFw+|1cNhjW*u@$-)`N+}rQX+>`;;
zzqcGDpxDf%q10{5`T2QuOvvu$q7j}q;KvgIWxr*`8o!ls_Brr@{mq-}SRuo-iT-^3
zRDI8;mAX6yuc-{q>;k9m6oKQ%kAEw(ZK~s&+}jo9U0C}5_H**jM*#yK^^<-+`*ok$
zRF;hy|C<@B4Xbv9FgZq9!oF9#U`d~UuA^sSRXla~<;VBB%EW3(9F;~lv}Q&)M`<_q
z^Kx?T+9V1YdM@GX*Q{P~N|!Gr`=6$1ohEmjALoMTg4x8=IU6(W3bu_t3k!vre&hN&
z+`dEQqaN0E?wuYZrDGki{h#dqp_`q;n29<M{Kx$K{6HuaS}X545imQ^fS^tWEtS>R
zxZym_Lt686;=&5hXtXx{fF`|VUGLKsRSyobJI59!Jn2se)%mbucI#FO__^RWcEJyy
z^1`weB7-gAjn7>h(-o{D(C^leIXGALTgC2YM!ft|BK@8K+lWIVk(Vwjc)F9mUG}mW
zsdQ)$pYm?!_L$gY&&3?g<w2cwOiwfj&XVM4@Pvq|A8Ni4p&iQ=2sqEqkEesv^}Z|P
zz8&?1F#HuRwzUHcor;M{k+6EayE@s#x;)hq+=jCc4_(;Vn5kI9RS;lHxC)HAx(6nV
zCeIzR{xQ2ZU14nk3!^tb&u+{&Q*TaANf~EKzgf3*h_9)6?}_GvC2^_oKuD2pf%F4H
zD=kJ>aDWizKG{f~1|yAqXI;OFOVAbc0alvY?^Pfu#(qEbd)Ub)TAo<($CD8A5axg<
z5iz{5)`dOtQk>^tL2od(vd`$5rWFzvR#EA*Ffa&p-TKvEuTCB^L*Q%O>SbXt7&1GX
z*A;kZ)t<hGbF&Xx$Y00~+gnI9+NB>*FxevTzoOXG6owmFOw<Re!8wEl5_IX-o(*%=
z?l_hkyX%XrNG)soK#P38Rxxhz_+m$DWJX3t)hOZB%a?jlY}|X~n2WNWspzVzstHz}
zfSgS0J)gZ-d`k((YLp=Hw>|5`Av?8qKStj9{QT6CrHxI-Nd3q)eomW5AKfu@#R&vf
zji^6hVQEX&-mh~VEV!P4zA0iZ?>_o|IBb(wJ!B_UKqpor3*<mUy1Yl)<L?@*D{y&_
z({qP!XvsYsdgovlwmT<<Jaloz^!Du!h~?2r>D^=BgUE+FbIVvGhLVz!{@&YKKpcRu
z!d-o*im&&=>^Bgzf^o*<KGeuqZWT{yF|j)s4}9HI7=52qfV`l%l4=xw#!(Fd;W#W1
zVB$I%N|_YKX2a;qAS1Vr{_@^)h*R4Zhxv}ZzxUSxr+r92^!)MUQx|1smv&Z~{MXp@
zO$E<(ib_dslUuv7*f^i%(Tz-9!LyB&sbI6c3u-SmODsyZ%@w(_Y8YlQ!YjCs#(PQk
z-Mn+B(Ksi+rbf<Z=Cy*K;`9rF@)DE0Zv>FLU(&9-sZTZfE-gK0=bduJ*LlPu9=6aA
zsJ`L5-S%1jz$%ld)KrSQhQ`Ma&b?``oA)=njVEhd6PFHYtYPS3lRRocHly$FeGYz%
zKxCKMwd{=w#Hl{sS*a&XjkwZBzj~!e+uOBR*L!jfmsqYHOiWA=mxfFH=}N?m!FE@T
zT;Z&MTrI|!?|*$Mh1@EH(H3GywZz!ecYatehbG!`@h5L4CNJ(n#1h+i!}qIzt+IH`
z?XQL(>{qWflll@(%XD(X_^ig<m#X{w^bf{^U@K|aby<E>R#hju7&R@&e{IUenjF;n
z?%l71K_eB9wqlEt<L9`It8kj`f#SDHMO0^EWc%EP-u2rfz)h(A%6Ynaayr0F31ev&
zI0pxH&$R4LEf1n8Y=wkl*lN0dmzIqdyDaN$@am$h^U0&@vKn#G=Y$VNuz_sF((mVH
zXEi74@(1mit>Vn_yfE4`%k)I|u%a3w(i{XTsUAZsBX<gCtG)}P?NR3E<_twdME=0l
zxDKXEH!W9{d(zUf<*yDmGDV!zUe6ua+a+d`1dEKQdBZ=F&JA{z%trB&drwFg0hbbt
z_X<JUJ%T?3sVMyH*)yjNys^?;lHoS?@R5_hNQ)&EMyH}am(xWWlxSOnoW0pF%-UtI
zX78?F{dt^1=~6E?L0)?1em#{@mzt9D{7$`R=;y`Z5|#GWRs^x{xwvJy`-jJKU5P1@
z*76IWeuRkn1%uiYgxTy8Pi=RyTnC=^`vVph5(U*ysoC3^iEICwio=A{v&;$%b`6)^
zzJC460*w6Yakpf>59;c@Pf?6A@w75rIM^hbVc<9SK0mkp;DXJfzdlZ=a?-EH*#&#7
z-;3fN@$bt}Qur3TC@wCJC%ysW6geCH<sj>Fwb!SwS4<^g7sL8kZ=#Y?Qs&_Uy*Qtn
ziAS=o<^3&$*+`zEJ<9W2o66jb+S8=n5UUy<acRs<-LEBw;jhCy)K;3S9WNw-ydO8g
z&}nO4<F#&<YQgyJ75rsv+V!PK02*190UOh985j5s$Z0QVO?IK=Va}AKq@fpMDcdfY
z=Ge72*Bs`1!OooBDUvEHNoGb3L33Tn?B5Ew<=t-+fiW`dK;f8c0okeAs*0f}nmeiZ
zEq5fMKR+}dT*Gsv`GpBwC?CkG((MD)J!6y8Nn?xU)dk7oT1L%)7P;ZdyIZ!&czb4x
zICBDT81+QGym0cqsVf%h+7`joVi&wp`*Fjm97OnJHC7$J`jyju83xh<21f7aVq<IO
zdDyJ%GDPtnv$R;trQY;nZ>*=Q+G2J<$Q|D|D*mfKkwYL6IE?VdYUH8pGzG8Lo5-nv
znb-Ot6Ry?i#PM+chPexpcV-n$yE=~vXS_E-j+9yrUP<0#v1sKDr{W2BD(qSs5q5TV
z8)}pZ1PP#A@B)A|R(F6z(__^x>@A>P@VbK3imP;e&c+>7Mf<rrWM)jm2CudF=eOv7
z7tRiO{PjA{24N3)LhCDOx1IH$nFR)@&GhEx=1lN@ZzwSE<z|q?OrVOi>}<62Vk$i+
z8wsVL*!<lZO3fmg;{b%xaKptGczM5N09<}6mp%adJ(>CTy6LS^rm~y=>crT45Mlxj
zI%T%Nm2Uh1j09p8?`H{4`r>T!?sFC~idb(^Mu~a1vEU?$$y|t-*>CVv+C6zBZ{>_{
zNNV;wUR^CGw<TH)35lswf8i&YT$kcEg#m@yTX$u=R>2@m&UFX4<H#xl)B$wTskyni
zWCmN2YS|iiH9feqLWd$e0lvw{^1=@GR`B)qT+y0);dB}$T#xw2eilIqF~8pe>TG%|
zuv_AhQ<sJ&!$JYhkh4QJJC~pfy!4%R55qJ$QEzdTUvBwg56mTvQ|lB(R&*3+=`{s|
zoaZ??i3V@3{`{V$7JQ(E1VC1~JMLCtyO8|NEBuV6+I}-^f1A_Ov{QO`yBSm;ymaHQ
z+)A@TBkt{)IGEjiUc4+;6*2iXil;Gv*q3<<tGrZt&(l{w|J2FG3Z|RaHw;goj*!Oe
zZ$5%6Z*~aa8dqe!rkeW!e{1jr*?<{s3HDz>$+~Q3D<KNBUth|PjEr2#RPhfZ9Z=Wk
zUf`7V4Raf>?Dy}N2quGc8V6X{ier7cDME+~B+b_*p#gAH8bF2GI6)-?bV~7C7;th+
zm9lkiU&R2bI>9J+58;i=Roy(9pqiA9t}w{TMu$LL$a(ud5c{8uRX4sof(NbC;tn3o
zqg)Q|dWnmPiM1>imyBfij#vo*Zn?YFwAP9bA1pAe_=dH(z!pW3xc&ZzahY|!RGs~0
z)qwSS+a^C6>5LB7#?X9kIy<jgkWa}O0qtdyv8Tv+u|zb$u^MfiT}cA`H1Y6_P2>VA
z(qe3U&m14vX>ZMI-ZWoWmY->C3*rJ-cDr)Ak8vmC6}FE%p-YtIF$Dd`$EP~dcWQpc
z3=9moESt=SQNyhP#*TnHeEslyjs{=*o4#EzoYkq$L}9{6y%(Wf*eGMC31oV3V77W_
zYtygXSK3<q2^ma>kHj?0BK1dtlX+)rBYWWa(mS(>#$gxPqJnklmn(NMA1w{j<!x0x
z#%rSP6JSOI3(^BcQ3Og<_Q9uD+51QjZ2RlW3gQQ~AX*3XrCWR^pK;m+_ybzSYg_GX
zSg7^t!tml~<;?a@sF}xMv!Z`W%IOGjQf?u*q;=iIbe%CsUcFltcA;y)eg2c8g&CXo
zK{(JA4mnX)Cu>1O`+kfT&e|FB3a47*c7^WKU9GDe;d*(Mk-+iaUSFmQ!U0G;K=mBN
zscv>8I5{~r0KP!qSSZXk+RJWk=LueZ(GpC#P~$lnWV8%JRRV+7QQzgorg2AW{t2LF
zY>lT?%C@oj5>=yXBv<QIcJS7(ja)$*l|WZl8dJ^}>)3p%$O}QH8o=U9yGBL|#~EZ{
zFK4{gy^d^Al!*cMEKp=Alxp3X_C=!XoF*H6>FJlcz35&`lT8%N)8ngp3)uva+Fm@$
zKEM7#$~kt#TgSo<c1nPArqIA~r0np6UH`Mm*(-GT598v{C!s3g?l-T)VBti-i8kYQ
ztm&EPL3^|rJ7$d?kb=}4lK!oG_wHG>$8x*q4-6HVapOnK@i!p4oB{z)Aj@Obg*TDK
zmK9m+Prv49JRLc8N$!_D@}L&r<$jS_q5MTy*uE$)&<Iw*TtBZle6t|{N#-Wqy#DF+
zhN}bSrzC?b9vBvezz#N3F%n#0|GwYA1giEewczcHDKPXoVg{n`8=y6-uL<<LICW(M
zWUSKso4}$TZY6*w7mzg!_y@#DrE~9)_}S=D%GfjXul)qT3`(V44c&Qwp{PTWbRcKK
z4@RuLT!G)q63fhrBPC!jNKAZzMO%lX&FkvahyCm}aU-n5<xbUQ6?!WnfaA+6wqyYr
zaqQWjPC%o$;L2_3=?(+H<SGm3#6xOze0~4GEJ~I*idCnUQeSe2H=e(6!4m~WFVM+l
zUq=^y0xQ~L0i`sX0od1&D1E>FT&?R-?7U&y41H+(=pzez>+XEIC4+Wk4RSE|+wc4r
z{`%i{zox5)2GOXiO%+Q6`T8mcTZ6_?;8yC>T6)#%uDgv4A@tH8UOoz0xX&zoIs#zQ
zeK><H=$#<RxelNme|>*zj|Icq1v-G@ucV}ukMyBT`cwSIVSeScpFVx6p}WFsLtwwd
z6<D{i0I({v@V$k?0tP?oWz+#&iKW+l(tIyHq@CNpCVDb_X{1aGIh3PuxV<0Z8MgB?
zN*TG^UR6_5lLHuE1>>i*R00?Dw*#m2qqO>R@0oAq0#F8H&SdaQ8<pgseExsKomkKN
z$n^hMm{NM{T7gPuVPPq+|0C+px3ohUjM@VVl|L0u6naO(7aC^=Zeu}3N2M%FZjBve
zGasM_IA>>P_t(_UvPB7GD*KMByYyv5gMxyx0D3yO6Pjw1`YZIZX86xSo-n{w_D)D^
z5INmI9h(d$FOp}0k~<Ox%%a0!Q19c!S4X*?))dt}fy7HO2rkw8=lx`NLocz9Eh=ZH
znC6O1^0WyI2^$Y;0FIpAUR0R1HwZMhg2%^5mQWnvAS15Xr!LFyugPZt(zd36GgC&2
z+9SKVy13~56V)zpOR${Zu<$dASG^kOU}B+B=J<neF&8DLfb2SVtL%>N^gENh*wEd%
z)WXpHjdo*wQxlVZKlpfaVD(J>Pfx(78wQnQ>CHe4Nu!ZqeUCq3_z|8VB^QzAfY}Wj
zPobn35pFIdux9^mymp{zaAU?e^lP#p%OLw`)#OO3zl!v(+tSmAxT>*{!M-LEo{oR~
zIFh^m?3Z2Jng=Fj{dqcsyYz!?yqCRd;N~p*9%XG!u}b<Di0Y!4TPr(O7~0hpUnvXI
z`S86#zP(5W%P9gw&)f%t;SR*v`qy5({&0xsNlkGH|7j8DGsRo9&57zWMuLKC;WGUt
z8k2}-5Rq(4Ti;<FhC%G=JtteX-z_j?n<8Sq=b&iz1Y|B6A}v-1*oJ!|dfNB0d9&0{
zdM8{|LSl<U6fiCF%VcrOtS!JVxx`#s37a51n+%bke!icHJPst8w+FlnizTeOoO$Nc
zh3)PZml72%+MrPgoQnCjA0FNNG)Hs;v{CudkG4~XS=lD|Tvto2suz7gTcqdHvlGFR
zx8L8@1MaEwUmSAn1<3yvr26s~1~4YJ7*+#r;#OdoUce|^BAqzaN<gS9UZb%Yb-fu%
zBoX+-spj2O&jklheG+tX(}BfXJ)$e;{rgAwkuq!c-L>GQL*0X`_NHgdVSG*%Wmt0+
zX_UO!aGm-)Kgmo$;9B<qE9<USU&tU#Pfusa_9;3zy1Ke*fD)PI22Sno@GYj{V6$7A
zcevIK=XOpqfOEF?agJMm?pJyE-aQJB;qE;3#%2%WzQx4!0yW)FhiU*CAGSJPyA<x+
zmoY{MF?c`*!RG0MuUDm>s0d>2KM=&*Cs~Hst?UB4#AzdA)wV|!=%j4Af&VzMq@wj<
zf*#E@!PEY5&O`pTS9(kRI=q=?Kz3!q_SgR+^KEu_cJ|Mu+OH}TP^pPV%C6+43QRdj
z7T%xr``jvif5SlQX_dk6#oL2=K#PG7uDtyIbIOinyVvgPOV{sIg8(_g=+ne4g3eqR
zU5x<b8L{BbJR{T0?%n$t2RL*w9k~3wFYpQ#5cKNlK9x0z$p(bWQvg7j>lC1zo;q$`
z0<Dxy%mKL~7(`Z3M=cO<%{V>0=M-SI2n?vZI7aEidSn4UE*U^wsh5sNlloM=>_QqJ
z4i|Ii4*=iV=-`uFc8wwxd2cvf^`8C`l@&OTa_AcP!<(Z7a8wm93~l>sQNf8^-uF%=
zzg-9qV?Z~Ma*`_{yCAPpQ+=>raXe~LW6gnx?x*bPJJkRoTLG~X0FaoqJLZz@3!6(a
zE4OQSJonUY;c4?NHXlYXz6XP_zEyg=pYNS2=&>AFn3yEYM1b-|W?=`m4hMZ50v$9S
z+&2KH;@NH@&{o9@X<gNr^<tgC8ki?d>-#QrFpCq=Zhccv&+-}0YZaJ-pw9p~xU!9C
z8O*~t$h)*RPdSrsnV6U?0MQN0Vz5>|9-vLqeaBr3ckj^lUy7IChQjSb$rkM(2x(K6
z=Y$LtYd{0d@?aw_T-6WMEpnav*d|8WQXVvIDL_G8_X3Ie4&a_b3L2D4LxdO+DDhPh
zcuNpDEm4maDS`o#X$?NW;M3utGwNw!YI+vgvl1no@#vG2eu~7xg1H}|H57a4>fN>l
z2Bp_XSMWL@ggADmN>@w)V<159*a8N6P~_z?k_sHq(vMjhPmj>RGdM995us~SEm$j1
z#w3GR%Q?hvo&P=5?Z^{Sin4VXpqMOQlyU6HLvH=bi;Mj=R!!Um<)+A^P+Ur?4+RSk
z>p!J1@qJ_cGdumMnXSIQ{s~47sL;t3;nzhaB~O7i=W`+BtO+!*Lj4*5<oBQw*%N?1
zwf|D+He5Umo{j)nN!g!I_u|rNg?{$>H-NqankWg3djie-hGA(?WTk!Xkd+huYXlVk
zZUku5x`mC8AFj-_Zw~P8eWa)=%Ee|JG?#37X;-Zv2h@af4Ip^&W9_c?gPkMoYr8Fs
ze?!+lvJz*B#I+2d)CkM{9Uzf{ia|-f4D9!>U@HlM;a(CP)K156DLuBjNo)K2*g5A@
zJgPg^F!Ir2=?A#-$v#G>PZGYjWKUP_@PJ`xT8-p&>cRS;eZWSdz067=2<2P)10e1u
zhz04Mi+3r7pjpv%`PzNWc91-4UY$eI78>O1kYXY2^+QY#2GDRgsLI6B+m*T9AG~MM
z?0ttVsHM3!z~y#Tj-3m@-Ac4p>MEjF82Iz`AJ?WCBGoIFa0~2l2RP9me(Bo%F9YU_
zoSM57LO4AV$c_qtg`}Sf6OTUIdwux%eAFl5$zj$58l&IqH8bcj@uBi3qkbD_sgBi7
zxK*@lw~ktKWP{YDfbRV5HPCQw3>dF*#iW5gOU3jcm;Zz}{dKqpXr+=sFq@JHpa6Ym
z^v^N?cfC=#xy<r>I@9~xMJxu~Bhfx&<10Jk7u8){LSkYQG~Xu{e7b*;arX3&ucTWQ
z9RbnI1Z|50caifi|NirB)l)X*2fLt!?S)WVkLdDGT-}AlHv_L%0r+*P`p4@vzr9|Y
zS<iXASfu_ib%oxNl$<Q;r-3%#QNoajSm{Q<1%Vo2S6y#g`K<@*hs&(}*G@<`KMDrv
z!kew=J-yZk5Nd8@WtO^uC_^Jkk80lxeIhssQcZe$ad;^e)Vh^*24)OZ*kcSU@q-J}
zk?*3iDN%%jPp^UGa>cT;^X#tx6jyWk`jW$T6?BdhKm!G<9>|#3uma(W3uDZA7!+i6
z9xrAH?`xxI!IJ;h0z`5i?J!iB+{zVH+xT*>WxC$h`zr^*05G%B{8YQW01zxwC1!<v
z^$iUTO@F<;i4Gz!!fGD$-~ZV5<Z!kPsDX0~6rCyi2;y+`XYlrNQGWx1SQNz*^gvHs
zi`66y$dWP89Xc2QHxLexlyX^RrLvueIuC$G-5pE@RA&yf(6;f|gE{H&hM5mDvFWz}
zhSvfH91Qx(S>S@9jOs=sf}Y|2<X`M+Tizj!pnXWn2ZfnUWp_5wzOGBWySp17*l{IF
zf?M&?k3?zECebY1WORQ<ba+GM(8k&7SUHA4JUv%e!R)}mrRxtv2w+@+skVM&c_%JN
z?7TJ`2d-I9+$9n10XPwHprF@Y0YT2e!BMt0T!KTC+$w9F|8maQ$EF9ZpDJZ74EiU{
zK)kM5RM^p?Km%P&T>OL%e?n5LCds-r)u#`%_X9wmzsuP=d*QccDa4oWy1KD{@e2bX
zcU=%viZvx5P{IsqCpM?+>C)0g|BwfeQglY2y~47>4$J5mQduZLl+~6%pc2^O1Mye>
z@{G0>6u%W{Bi<3iw|5AxOzM#he*maNJ93K%qwnVKtSoGCY77euZwqH0e2V_9&Oz^E
zuLB&*;|bbmoD7Kpy!!RGqz_pCp#!cJY7N9X<?`vo@|?X(5DT+sJ9Ru3`hsVbZkdiF
z&fn6E;(FX63FehxL7hlwYCV`NbBPb+4f^#~p~AYpd=eya6qro7_TA!fNh2TzulE5X
zRfz#S;>-89e_{IkLLugM3)_cl$a7J3VfGBLHx34km2!{-)$N$Q#S$;aCiSZyjMz`k
z?V{SW!<l|SWC3pUujM~E17^ckL39*C7aEt!^<Be0Xfhg?&q1|v!!bf`|1c|r!%~?B
z@lca-U7cvieEj(FcI-vj`4uotr1(7v=W^&WjRnHT!(_*I!_vn4Ydwez(7kCU8PVsu
zQ!UxW2tPkZ*(ao@HwAYkiApmk3q$w<7Pi1>JCeZ6-FHSao4h#eX3A($RN3<WxM60O
zeawA}6A}^7GlvYl0v{H%NIjooF6Nqw&W1u;I*y3N8pCK?$Kb}yC?Ys~?UW1*a$|P`
z&;ETxz-*I55&*N1sg6xNZBI&7)z6Lo0@Jb^N7tS0bWMffEnq!lQA>NPKD0$-0fSUW
zn%`Qj1&^mOwwtc+JMK7VN|Gd3->MII#`~0^>F<zn%WCnQU`;AxyP<d6QPQyIWBSD_
z@EO4tG0KlsKRCe(Ym}y&#=l@cy~g+=5ypN7{qdsV$#RPGl-J1BL^<05OBuxKx7e;z
zojsj+n*nL)q{z7+$>;;*2)waXRotd;q=UKopDE*;wH}>*ED@S)3CE_!<E$MonCWZ9
zqSL20U3u>QUi`wi0Gqbxr6fatj^X}mfs-g_JH~rpi(pp2DJK&AC@t`MOsCtuw7`F7
zp&@5S-#)l0|Ke-^a<kr{j(?ua2G3(%&}=(1b^mZ>QD4ht>FqT#;(r|RZuaPU3Wnkk
zrmo!EJpN^0RlN7VZ;OB&vw0gz?CqtXjI+?}4x5cK@#Ftp$HpSjy!63czXWuiX-{4)
zI<97IziIezsldPE(-Q#`@aAVG1$$$HJzk@UQ1EEJ$$&9(TemCOT*uS_o(Z*;D6+5_
zw?h`B+WY=@+R8oM@seL6HZaCQV&}%`f6fMhfNzh$LsxD+d@^|!?yvtaepl>YSH64q
zCijZUrsMpun$|!+k}Y+}+_`ls8(NlFV><8{4%W~iONY+?cbb1+KY|_t(z^w1EjY&<
zZ+Y99ndF2NVu@$0g9p!!Ns+?WpZo}ht3k{9z~YUQ%Ekk?QB7XrO=`$6=>?R#CG(BF
z$JMq>=EuoU4wejJCu40bB%(MUgH9VO*SzsiPZ`b}U{br)|D;yFZw!3Ob^7Q!|3v{P
z&EjLsj~1N)i)mgBa4mC_Y~!`UJ>L^mwx<YT{v_5Q?>*dD`H}eR6d(7ZSL|*{D-U<J
z_ZoS9hWC@f`w@^cKgvRk%zYld4!kJg?{Z`J{cSFAp5mIcVT47Awq0GxPis3VS=!r&
z;vJnPy%UcZZ`3|I?NARf7i10)&!#xdzfXSi*TsMA@NQsd{NFf+{7=6mL@A)#J~4tM
zAj1C7K{w7aO&RRm>DTK2=YI&_)tDoUM+3nIzEk8(Gpg3c)G95o=2R~KKkq`sV27IL
zyc*DcBiMGhn2{{z?6tXn-3Pg*^_NidWfEf0-Qv(cySF`wf_Uvxug(+YtxEno@nJTm
zsm*%1d7{z(={<@?54O;$<m|tfVpEl<x^++oU-Y6iD@5!Uv&8>?5)TaRFobEU=grx>
zc1}$5|DHAHti#Ly?*AS7|MKa@-(~^N6REJ*FBdQE)1`{Vj$PzCEcoOq_DV!V8mnW<
zg{yLW{D;KkBS+a@oaEm_JUGw7%FO&#+avy#<5{f-X&UcM9M4`sKHz8mQ#a!8zfU@r
z4((89GE{v<9)75Qm>v9(Kn+sE2KJ2ySG25BMkaluuvRV}jN8%HW5g8%a@F+E@3fCd
zIQ!27mN7~HJY9Jg&HPWQ3P8c4TCn{g%Jh3>N}KMnf0m{EKYR+0+dfP&pDKqxU!G@q
z(qxd`@_{i*2&-;ex9R>pa?+FbW@6h6Blp|V1b#S)+Np%v!P;(9JY`-{CYZi40wUtN
zA!Fy6t!sZ<${h=+xb#4kaf;j3rB4}8;{LzbIRE#!i1Nelwy$HYXa6&XwIHm#Olw`r
z<v}6jiA6YAn>OeYO72<g9tJXHcx16<_^D-q0b{?rC*>s?Bd*T|4zH~_)3Fv6X?5&H
z>Nc5;`q`H);xg0^a)a*FhD!aDvw8Q9taa@y`0=jZqG^yvU8!+<Bai$ojmyG9a~c_E
zi#T&`y^oMET;fuPF;{Ea8(Sm|hI+kQy-C~gp?)6DOqamDZ*6oSe?(mi%kO;ryVA5>
z68e#eX|E*_c6%133=a`trK@(Kxyp?}?FQLvo@WpKxAxvUs>$r#AH~tpaTNFt&WMP>
zj0PN}2`EU{Q3oSUrFWDjB|*RtS_qD#=zyXDLAs(86G-TxCMXJq7Bz$xlAx480)!Sq
z5)$r9obx^3bMHB8{q9<4-F1HV-u&b8efPV|Q$Nr1?7e{&S@uI}%sa}0IuYSpqqOHr
zzv!zga)uO+Fg^unL{Kft$Yf}gW4$*dZ?=Ua6~Fd_AfRJWZ=D0PZ^;loBAN8*%(d9G
zOqi4EP{nTL{od^dZ(wrPs4XUhknH&|zQJHPGh?l#c*?Aj)cfTZpMNxRRs}QLI&<+Y
zE<|sY>Y3kmR#lQ@#f+Aj-(-d(l=H?O@nZI1{eRtb6AxMn&D-LazaOYkATTEBZrQrc
z|B#V!QQXGefV`5+YZ!7ii!mWUjcF}wBi>BNE}v19MG5I(``Kn*`$S)dBZljF^M~!D
zkCGMrdI@du)5WO=KJcCNa9Em65%YSW??53Q?i%5B^9LE33f*rQ0+CmS)qC_qjPA(P
zx*dFk;ax=MiOJjbAS6iwk3|)3>lBjMOH`u#@xj(goayHlwXr_6SmODi8YWiqMNq(3
zjL_X=ZtH|1sGsr8f$&&ix^{Ec_GLA_xHz*0XeEMZb{#?WE)r27=Ir-PLnrlole$`3
zzNBsbYL&W8=IM4~KtHo<RB16Of=7g#NEW>t)I7yFi!|O$&KmJhY=}(^g!lSZr;stb
zQW&JEb`zSIy3b6=;E%z(ZVxoeo}FBlIiziLDDG`JQrEfC6Zs-$ZXv5C;RYokf9#j8
zw5zZ(ddqr|W%CSR^WEN!1wbSWONwNIotZP=;)Kg<*kr8=oaZH#_m0|<iLaS^oqygE
zj^p-Qv?*h2QPw`&Woewko0bW~VHp~=kwvbM!Zj0o{8e57rE3MVf__mt;dL3|cOETu
z9daI7*PjySsUg(a`Mm=XR?&%`yq6lr2jV<<uGC+s5!}GuqsC2f%3Fg}-OYL3V$ff1
zkF~7N6T>46%<ybGDw!LY-)A@Y8NqDlNpa4R06<>^UOW}*M`|_I7;OWmaQPTxKw(tf
zR4x~IBg*4lGja%9J<5E;__pzya5xWF$5%fneWLx<@g8^i-_<Mpmxk})v2ihmJ+Q4y
z3J(0#?tUMDd?q{xyUMGjR&ReGb%yP#do6$pDBGD@LN!B+$e;bCMEP*zGp7Kf=sMIt
zm*B<w$o|4+p(l0<-J~y1c(sd4*hA<%7kQlJ@#wim_7mz5X4BE)Mti!n)2bj@l{#pp
z<hig=qvxbK4qTOR+uBvFa3LWHwsOnLa;um2Tzzs*UA7ah+`intl5rw>?kPLaE-NB7
zg7+v?eCX@_8g4L`Yp?#Cryj+qp`lkSDox?j>qjv1&e_g-74}}Ya;4MxJ)&gjO&dD?
zEUZl947VcBiRkU^CXVKfhte<Zm&)964K0;LXgDj4ZpE}A?sD36D{!YLEjUZ1C+)-C
zpM<C2<w?cyP}qCjF3T(8_>9whdpjs$ZFRQV5gm>8G|n06xmJO(4}Ge*<KaQSy<6ix
z6YOj?#;SUXLo=Sm4AxV*&PWeLV9=&J)i8Glfs0<CPELmr8K9qo^d--PBY<!2`8VHe
zc(c6)+Z>#6d~p`RNh7Db5HBODMw_!E`y&+Oij3(=iQh2Jo7R$su8C#*Rp<fxxyCyW
zNGUs5_xu~i3(Qex;uU&mwtpTv+ZlPqyDCkeTol5bOGZze7SC?Eb|>;Hg3$-yjz&O<
zf@FVM^ckDn8Cq-kF(BlQyp!jef3M0e4=IXo4>ej<kj=~M9YjEw=G);&i=<@zt<Pj!
zN`RppT=ZTsn3BFhdIo&&sr_5e+tCJ2?V{vcol@%g-G|oAd_|hWR%iRhy?rghMhV67
z9SUU8XLb-}P0iVJ*H_K=qbeU8Z;Rk{hlpIWA{o1>TnE~w2O{9v*WJV}ZO^l=$M)Ka
zEP76H5r*?!a!y|*H1{|#-iMquR(2#qF?bX@AjOzfd(VE`3NHxptxa3O=7lg3&pftf
zCo}lx7KMUGX+Z0TIcs*i&{8+#XLkS?Jhl`uW6)1KMIl7}YxDHJI&N#)3e<`sSwH>t
z@|lX=K=(*1O44hC{sf7wNW7gYU1gQV-k%l;h*I$YyG}iSg-&(o4JU^DYiB)ZMRGW?
zB|Zc;1{JD$wv`LVdkIXO?!j^?`I1jw?MU`-Ym5(ov2ThL%hLB?$WAm&1jc@Js@1`n
zc*0Lbx{k0nmkeVu4NmfCAAFC*(<wc)CcFdtd4Yr3WlR3LB&EB1V=+dq<njfdHgt24
zF#?;TYSt7V4->bal=cBELigiw&K#RnntlYGXUq2;Svcz}eU%mBvyEF3rofi2YA<x=
zZ)@oG%m3L74zv!Ax1EQv*e=wo0B2w;no^ze<0+Yrix=4S)Pl8@#J_Q}f^5^djy-7k
zhRx5q(qVdz5A0>MI1$Zi5s|z+D$&K&*=(oql=Ph~AeRz=-}|VyF@4(~$ZkDshwiOE
z*Ks6x)WM-q%KhVTfDibB5G3@OzEt3bQvv?s`s?trCp4tpB<KU;(Vw&Sc>9Ch(k^_q
zI22hb9>3Ko-HGm}clZ0)&3fTVh=`2t*mY2PSx2%3AP<$oC3XaQAI8Czf9Qr3^T@<h
zUwszIFi_##n_ct97@~VH$X8hRFQ*(1lowLROR2l5&Fo^fa;lD$2&aaDu`CIrjd|iO
zr}RTJ{uSSH&|F*+zPST1B%T&HAyLa)s%JND9E`fZGlu(t-A3uc@IOT$czCKWzw$HG
zF6cZUEoTYPt;wJ6=o_~PeHQ8RLWGarzrtK7VcKB2=4-eWq1LeOUV>VsBzjbOzTB<j
zZtm`Q@#%ExOkK{J)xvW!n7SvZ!Iu(XG2w_#a7uB-<(o)Q?8a?jQY!rZ-c!ut{$e=4
z!vDY`8P3C<tsK40YPrqqCMqpxP2B!7RZ8C%>HwN+>8-=j&K6ns)geRl{Kd<*BGFpQ
z;jIb!IUfj>Wq8xu;;&_lVE7eKb2@U;wut7EVoNKEs2Q9Kt&1#e!_tw3{G5=Y+U)9n
zfOlQDeyq2JV+se3>wPzd6eiBd_`kj-e8|>M)xGvJV8K2W`d+vOIaMFO3ZSv~C3e_Z
zyHwpBE+3Yt6q=xA<te0+0aOts%@~-SC6iWh;rt5!BO8&b`{n28YdnAI)l}U88Ba8^
zqTlm|ip-+UUAfqFj07G3RzYa_jHHKfPKVT-cpbWWhwVdIi=?Wz%o>XJkh9v->LI0w
z-fe^RhloDn@pk`0^TpUID<5V+0f+hprNO-I-op4WdA^DIrI=lrs{4)0hiHs1fDE^r
zHVL1%9U?~Xg0-A_E)EY&PE$M;z2Bdi6i|UY`@L=S5|SNm+xRnsfcAt$-Uxdp2jMzb
zW5KDUVsig1#9<{4nCSgnCf;xy5s=}Efb*)^L|a-)9ZR{tuYV`u#v^vt^bpz*!`q(5
zD`zKB-M6QGyNmrE?I{_uZuorf$bRphq?Wmiq6Ky|8ADQgQUS4cDOi1KT`yVeP~3XA
z>T5|o>AP{Isnk8;VTI{5fjM{?PM9bT8;KY~@ZRVO7P~^3n<?oPrmI0+us0oQHR;%0
z_!XuQU+>>_)h@|*|Kh^U0O||Xs4L8*^d-g-VJ$1^1u-eT$VTQ+E1*t8Cv$EkoP8=H
zXhghgsu~?L-j!iI>;YJ{z>KMb_LY|Umn?Q=5FyLmFsc?B?&Qk-#FCxg8|(1OvMr^0
z!IYA;dFfl-*TER(q3ghD>>aInyAI0B4eO|h-^-bOo=(;ECqjUog390cl(Vza<D60$
z;jPFEzMDLoi0@*r+5rpVv$M){req^`mGxN031zo&QHNqS`da!jRIR%Hn&$q2C)TQX
zPBkYix5-<+3bqvJiWXuY#j|$lHvTgHZSw6;myF$8fILhCdsTz8sS|j2HX&$qLQ)AO
zTY3~&L6{XnKc=vo>xtHLpy947JmrRZ^J;SD@v?45wzS~*Z-7;*<^00}6XBy36QTPw
z#OlT~4>=<<;dI`qf>F?hq$#F9mhova$U)Ir9$J(5Znq(8td$i1E<GQLY<g1gT58-5
z{Rxm#&6Hw^$o5b0bcL@$xqQ{~tlJ-z5YgWyoy#cE)W!8<lknhJQJ&o!hT3(7H6K@R
zM{h5S!1#qM4dZeeLE(-R-0i|W2dp&RHi44#FmhN1cBofUOzNe<odD#5#IGfGt$1(R
z5xgu~3v8t5OD1d>a4*3T2OE-<SSqFzpFNntO(J`p9Y-wzjQp5JZG40;0xI`4k$B_;
zV8zqxqYFkR(73)sG}@JK;Q1lQo4}G|hK!pYk80&5O88iN?1B?LHh$xc#`6UeyR6p6
z@L!%t-OH|ez-IFSakr?97b}nxrfo&^?No#PW@xg5)R@Wi7!4@MM&yJLTTP>a5*!R;
zxjq)brDTsiU-K?<?=NlRs#7EEXx6Sp(3-jSh4Au1uLAvAZXDJ5Up=!+TX_LzhS6k-
zA$hc>kXHq#>tDq?nniT3J!i}Bs`v_o?G6}>(>*Ne;(5J<3Ha>FV$9AKXWT2*%Mj%%
z>CsofN54<ThuZMw*m6`GbPt@u8r68cK%$au$zM@Vj!|#On4SyK9C2tcz?-3b(mi;{
zLwe9mX8TjucC#=?*vIb^w~~oK#wGCo>Rb<o-oGny;_N)YqHIr-b}0oGNyVe5+E1PR
z^X=A$GGTxG?Ua8HEmvxFfP`FKx=L+B2Rm8Y@x?wc;c1w(S%nfHj1lfZo4(~fJ{A~Z
zH5-n$`6ujg0|@Jh4tC|@pe|yYjyru{yMA+cXq<l80y#=J%iF%E;wzxIxgU{HPwuZP
zYOFdYZT9>1kK4FeIcrFFx1XdBj?~R0!zXM-_wIZJ&&PjDm5b#X0}_1IS=u1&!{O}=
znsY?Kh$QdZuO8+2Mdh6bSw}HEn;AUTv?1P&_aR4|hZ*`0_zq2ov!G86yI8a~hyN2z
zo!9+%<2<hgaJp7{e{<&Y!O)#tdY(41>c>1x4+eu)*^Wru8aer7aCtI+W%~mukJ}Y=
z0Cy{$kzDeBmEC*w99k1Y45gp;pC@%qn|}>U$^nlqajcJgR=pO$*aqA?3V@Pwx8kpC
ze|b0ewdk#eVK~=U{H9kT@5)8@<6@lfuk10ZMikZ*B}qD@b_XD?OlLe+!oMjxLd`(q
z=1RFeXiukzaD`P#0MDA*^zT9o;GO5xS?XnKj@=(L`kfZz#wuYU+mZU2N_4i~`%erE
zXy8%jE;|~zqCxv}K7>Ljf-3CYyucg1#lGrh<t~ouX#M#HWp?F0;49ik*Q(eKxvg&I
zF`gJ-2&?5eFs-ZrfIgz&(anamm3}~beZOJcrqa=#vgXs5x2NxFA6*${+XD{yv;%l6
zPpVA;)^Iy`G!MYhgE?!rccSlnw!jMufRJ2N%<jTOZ$%`{ee#xseQHZp2)OwL@5pI)
z#DctpRonv%2gqzPJSP7L8j~H%xN126U_15AV$2D5<GAl^+KgoUz=LX$u_=cVdW(C2
z3{Sdg)JJvTt0P7Oz<n-&e^>`#_j_AW$G_7FU<=h&M8^1M-{`l)825)0<NhfqfO#=?
zRdm?04mefHLbmttB?PyQ97#cByCO|4=}5T(AnLG1C|31S0Tnc0Q5qjy-zGfA8`0o2
zGU|aH7>BeYFsg2le~0Pi$#@OJD6Usqi)mmp_jjteES+vrW(tY_C$v?NHD130BeSpC
z4NlP;@+@g+ybF^O@H_5?6l3~X?KQd0-)V-Hw^OsaqH<Zqxe|j#V++@$!Za?^dt|(z
z{ss710x#c6YIoXm4S`@xI@yXxaed=$3B0%LU+e}a+m>!_J~l)^Jyi@KNXs50X%p?9
z58Jqrc2MlvJ@r+@X<lcDsG8cc6Z=({ot2~R-<`<oeOn+4#|_(T;$5=sX*g)qzONr=
zT?g3XouSld?SN;x(rZjhM{81|8(j1X8zMXlO#hu^+qmLUr4NNZ7R}8!cC*@oOU3KA
zLZu6E+Xr|r<jqoXMJP>y+~QX%ZvWRefBQAFwI~M6a6Uo)pOWm<p3suBRw_O;QMHXN
zU5T3^&=amO1oz;(B&~nj3*g%sm(pKHJn^qn=?WU{nvV(>`SiB{M(D-A3I_pMiWmii
z=Bsb{msl;ZRJ_c7pEGYErDuMQ<=+8L;8sBRQdk)xnqgC@q=cE4=kZan&Rzn`*;V#m
zChN&7j={c2V6iLMVbsrt2+K<lG-IGYuNqM<?AXTnx`2H^D28{Duk^8~<*s`R&07mz
zL#bhCYbV;ye{njMqgO0in$Pl3>}C3DQv;9|iQ*YjfIpD{{M<@qqYv^^sd^4-DJR{t
z`M=u@j?@oIMXg;1Adft5(2h1V7Znb8meXp|=p*?RAop762b8tuHrUrt=fK&@*Bp%y
zX^&drfWo)tG$?&7YH0ZZ|Ftlj&)fU2ffJzG9Xk(7&pao$0TdC(@~}XhWRUt*f){|1
zF@={9&rGqV7~w)_NAiT!z8?24ms!)HR5v)_9nh9;5KMo0e^CQ}YWH@k^nDc@2=2ZH
zMjVXDR!y6U3|o$H<29e(FJ;Z4MD6D{Zipx`J6T`ZF`ft5UDcBxzJ`X{9|7aT+y0>T
zV8IO;RzG70cmKTC#QIKOv*hY6*-L&*D@x|4(3H$2?~>~)Tomg>y!+W4Ov?x!njHDH
z#VF8%H@{b#|KsBKx1<6)9qwc7?s@UM*1_;sx?a;J_?!@AQ-t?d+wRse{nKI%rG$Fl
z?i(%><3ss$d$ezUZ+C=6B9LM|$7?6V*^P@~Ewi;#>T>pQ43s!?cxRLgujITU(E0Ie
ze6+m>5E=;ZSyoGOzn^J0Ljox!qVN@)N_B8zx)!v&FV32+x67g*_++t5HGMn$O2(y|
z^?!0*jhaZGOV29;WI6sDzrwN>=yvr9+XaX>rnh<-a<=kr!^T@@L_G2>PpXU$sfR_D
z=#2QfSi5p|9pC`r<5I4B+@eXf2VT;d0?TNj2Y#$S^hm3JJv}Cz76W8t$=_}XKo7hJ
z?Jqy_0rAix^ke-TUS)npO}Dw&g=`zJzW*D>lNFpDLnu+E>e&||E8@Li)8BAB{^HxK
zosB)u%V#TZf6&z~%`8v3`c};t$i44Eu9l6)^Qfu10K@%O3G+{nByeso5M~V4Xb;&z
z5u*3SJ;_Z6uh}_gL2Y<8R86W0P;@ZN)&6{A<{OSw2!6lN-f|$=`KWOY$&=U0Ze>eS
zkA1f#x(9%&%9n6VQW;5`fefpW%vxiHjNOf;fwUh^?xrlm%$WwSMT!-KbNx-b+{gzC
zToDOC;pHTi0)*d%Pi0iMx*1O0E*nc$DksYh&PV)m1m6}9;q|j2)a_`#PTk?H7UR!?
z@6NoQdc!_Ll{aqsMVfSOSDh#CWsv7saoT+k**G-crA)U`nz|YPxxwnpJY3G_+m>ke
zj7MKJ1pjaO<Ns}|ivMN)_`k6{I&k;AV*9V=6~b3{<IarJO3Bu;$M;v6!_i5VrimZ#
z?Dg~HrBGA&pMdh&C$^l{m5&>Um+|k4Qvp?Xo+CP^yKkwM2X7DcWUB6;f_;lMKawj7
zPc1&hsNcAy9~aLXIIpPx?8Rt8y9h$v<5HgWWbse70|uk$4aif)6<qnltq$USdHv@V
zUvKP=b^ogf%NPtW8oL$m!JA?C0=3bsV1Me8eB9}-!g!{%cw@rd(2b=rsjDj^sSlh}
z3StxS3G9q%pCNMq<oM9m`trh_aytNYxB#gTPB?PMu5!9W7(T{IG-Zhxq1JPWId1AZ
zTD9N(L}kjI7~Eb;rU5~&TWLo`0tXti>8R-4nMAv>{@MEjQ>SUO^Tor1JeDV{Urp=|
z@wo}0?JA@Em`{-^O;=mDacN}YONWFBX6_e_ur0Zj`JY;${(nN2{@1JZp&iA0{6-!=
z1(L*H1DfPJhPUB?1zutt8x?BJ%VB4uUu5fdPEn~8sYk84yF1pke-FAAUFK?>x6tAW
zxau!#(jN4lEusV40l3|<7kMoSCWPvEM_zNH-PYq|bp?%n=5uOMe>k!vJ|M%r^{BIz
zhqtN4nm;vf<!c0;b^6gMWcqd1gO9q<8ab{g@6Tr6N=b1ujJFU{bkr!Pj}s>Kn{!k^
zQL1((ZrX~DVlXijRx?|l+Jj~}Te(3h3q2r3@LM)FGw$v#kXPBNLL}e*_zU&(Ru;{*
zflIU=ayIt9<>B%MM&$wS!w>mgEQ@OfApWZCBr`P2m6kj9Xg(!(<3?QP>hNK44DSt4
zl$ekfCA2^3V30UKOMcldh~;_Di@6`+E}O8x?wl43#t~BsC{laWZlJq0!+EXj51V(W
z4=}+e-81+?cA01R`-ICd_xhydYPm3jR5(S(AMl8WwC%AE-HA|d>+l2ozY<)bBQ7wa
z2KUQYLpD~v!ZfNw2(5#D`+Z(U7#<qId8lIT!Uy(eq&-T8OV-vpZop%l$k1h@>@p+w
z!K;oLCCdAMS|&sZ54_PrvraUP0FiY&dfD5U2<FDVx7hF9xvfdyi+nlXv(8yDOqV=-
zXc^GD^v2LqGQx;_J*4Qpvpq?f-}BeRjgPho6AI*!%NCU+ns=zeJwiacw2GAMd>U}J
z!F_evwd)&e?A_FqQX0`soSxVxWwGYf&l`x)QUoWku%$lU2`0QLIxkx*CxvHK-*3@5
z1Hic4F2RtiJi1@06qq0273=>2l<9+mM$^a0`q)>5TH*4oY$=;7_D{6+O~raSi9gh}
z31m72zr%{yEcr&MQ}T1(`s^XwZu<isPs7+#`bE__=|Amm|Fbmgf9RH)(W;qm4&0$R
zr$+z<I|4%38kt-z<%r#u>mWKxv%Ln3U+ZJj-vRz0+sPL_2-NV;Vni;RChcxpt*c76
zJO$Zy3j<{&!zri#-dZ#D{~O`|g)LKCo0aOYrWK~G9=;F^w$jMiY`>cnGu?Q!ZxP!H
zqr#n-o)*uWhkS&E?qWM$Av=S**5oQR#A$bv;ekMmZU@7tuMt_ROIGMTm|)ika<9)8
zXMPS_#Ad>%91OgHb%T#)f0<ob7%PtV<V`2ix85i3xT7_tPNf7j=%EXJ=`T!cNJF1B
zsJkgFWjlV+6^k;`99?<Ck5|*=Dy`)nTHVpQ0>8pbHKgf<0-L3#s7R-w)k+)Pxu*+O
z7~$=Z&CQ7E^=J&Ozszf^e?M)YJwGjHP0f|)1M!?bK*MCa;GT}~d$(77brmMSev|?u
zillG*Ax=rc0qMHkZc8@-jjI~Yr^?-^uvt64&?>&pd$R?J)@N7xb{z;ipE%{soefhH
zvd(8$GaG<&aWz8UgxA@k0W#r+J+&gO5;(9_A=#7^GokdmOG##9QG%a(*qcw_tt~jj
zV$rly-v)$P7ve6)nQ(1h5KHmi_*Sx@*Eaz;N0H9YWh4rwfaX&`dOVe}xw+L`ho4Ij
z?qNNU<T8@P(}6sziEQ82Qta#=#v0svy->dYRjz;*Lx=USkyI90MSQZ&pEDT9Lk`Om
zak8ADKH#;8{jNuJaC0!Mf951oP!x?0l3<%-;(VD7KJm`{1a2A2sjqvOz&ZSfXwgE=
z{KXHxpAfv}DX~{P37Pn6C~-kc`pIZ>tMO0B4UX$WVXn{gloz!_A~6hO=LT(bit?6Y
z!?6#aHUMz|^eVD%XGM=FY_UDj6~+gASj_m+^yfLWj;jwfOAF_5Q|Iid1hp<Q4ofEl
zay}0srZ8HU$*qX`<|s8pKNgCg4O7IOHi^c+5YAZ&E9%39t?cG`&jv>96EBM53HKsI
z1kkE}_VCc^g?Ub{<Qh!8rsFB+tv<9GH!tGn)MECzl1{d@3CApjw%FMSuaT^XIga)4
zuXCJSOZ;dnVrBZQ3+bfzPH2y%FyGr^W)BPZ7uVf}P^w3`>8R-2j6xE6`v}-sJtt2i
z2#v6mkI7Q}L+z#I5MeV3NDyo`x#IpJ!vQe3^*M}Gs^eV~;=4(=z6u^%g<)8^j3HLS
z*&?pj*`X7dxA%P04?KW7rROzp9mTY5X|RhtE@f@AQWYWNuhaDaZFX{Zc}mrbgFQCu
z_>kb!Rzb#z{>-7&>@KIH{lxsAB9laN9Y#)YpDp0<6ZMYG44lSZG#RQ<@S*^xg|V|e
zo}*^IE<GpP>V=6SLTP%X{Zpig))$+3(YMS8c1gS3WwYY#nAql}L>u=XY}!iG!&qjm
zoeQm@zW3Whn@jaDgoZzp@Hn}=XdSJqHW^htC&hhouNF>iUU7L_LcQX1*(+>lweR3Z
zvm5-+sq><DQ}wZS+iezCHJHcYPDRk=zH7+v3QK*%L8RJC(=FwbS(~ZSz{NBE(Oc+4
zhvfK=l?W$$59E2O)IQmIo4noc{@o`_A3}#(h>6wl{yaT91{Quk1AigB{2_EX>x(0%
zY_&3CBHoEd5Im7;YkLJHx8i)mgp4W;t>!lSMw%^nIyT2LMsqxUs#==jLo(j=NuM6G
zIicO%slj1eR+*NNR1QYa1KJpNRM*@w6^RuFS!fyIbD?Bw8vo6|O=JRGRhQ;GxO*MG
z(ATB}?3&$e@aLJ|WFGvHy!V%#-+FwDdbV@Nxg9@#k@;(%<B<z#dmlgy!G<TkGdH;X
zM_<~GA3j_-pnmY)@Sor5KeGRMGOBM%qioa7*_-1OIt;USo=2N<MdrMG?=qLl`k46$
zE?OAMt^aRc!~gB>lJ_6Vocsuu93xGEvG!3us9=pI0jl1t(p26d>I%vl6n7OxRv&St
zLz_vGYPZq9#32njF8GwVF7}CuP#sbvSYm?;ep%6xjY>2l6@nB&aS#;c%3$q%YaTCn
zY<_IFu;tjal3_#Fm%MjLjlFWV%e?Tkp1iuz7qcUeCkHb9`2sNZVvRBBJeYx+R78zE
ztL)eRfCa&AO@fGrr`*JSpdnC`HYp{;{3IX@1A)FpxbvH>15=GMRkHc0s2jd&kqJKC
z%KgQ7VAA9Rj$QGnJi8Bi`yD;2t@;|?vDc1s-3ns73Pzq079bAY*)Jni4bK#Cz?Md5
zkgl&={X5s(5^IO$vqw^+#5|unJGd$tUZ^G7`Y6cZeYoYs@urneiJKeeQ2y3iV;2Rk
zw`QKwl?mU&cUUogJQN(iOXOZ>)@Q2T=i&>DI1h}-4m;vP+j#S-%>rUupzv2m{SW`P
z{EDPgZLl#{9leA<_(qz$bHNQu8J@G6Vh!*j_Gps<>El^;4USAUNc4&Fk{RCl@O`Iz
zeUVKRE7RuBn3sv~=dD^kr+o{7kHRc}C0S=|Tt-nc@*ho(+qdP#)dp49{UoZr?pc9t
zXt)L&jfBN_Pa)H1S2sJsG4R2wI#bJ?hA6Mx2b`#`A7F#K-<jEc$aWrb=^a*0jo2^x
zY%uy{@=GR6)R)<l;i~@H^XP7Vsn-J1HlDU#1v(l$QJrX^zW@4=XGVU;WD*$qc)5^9
zhwjp7f}nzfCt?yrkDBK=E46!zvVp(U(r_#IC0u4Ru{$N@Org&cQG9pa>*9Jd986$q
z#1HDb7NWJr8fkFzmW6b(f3AIq>G)*RT2Yo}Xlz?>$vk8y!rcY(E^WTrRAWRw`?4`O
z<_xO9y<i9T^T^YDrFyl6i_25!xwAnGv(l2y?;l+4TGwzv_(o8Q|E8MU`_5{??_xIo
z2#M$#h`jlFw1CxoAy<dka1F_Tq*AAbf-2+;(;J0L=m%QXnHiT_2}WB|pkv4H2#o$M
zo&)=hg~Xu7EiBu3jW5p#YSGI?<BlYKglj2&o)D1=t7H=x4d(@|lZ`S@+zYmChqOTA
z4I`3HPHEr0inUqZU`w{|ub?*!-kBN*YQ5*IQSCi3MWHVLP|3Sy0vURGRp=6FHI_43
zP%vd>o0F6DB(cSVfITDNg$g*13wvtoi5`S_V3aQeg7=A$n1_2VJsuBqrei#k&fZ>D
zE6+m4ydH&wdAr#|I#b;O6=)}Y<j`50P4zz7W%CCOZJEawQix9`-)5>=^@lX+)h<?o
zirCuB!=!oZOpBjM8EBDOzH`~rW;6As%fSM*46pikz=V96y1C(IUEh{pSgb)WT+%5T
zdbZ&zDr^~1!UunZdUD=Gg&O+2J(e+yU0R-?F6Sv*vMMqSS9Bd}j!yMbhd^<D-2q2w
z?~307eA_UpRnx8U1jU^R7OaApVbyxIs~<o^F<E4rs36o43JouRF)BL~{2V$YU~)AC
zorgs4Cu2(Ysx3EyHa`fMeALFqk8GcM1i~z&c^;4_moYQLk;a5DX8{kCqJ61l#Y=G_
zSNA{ilhbJWE6Lc5$90GrxL3n_ihBV~KyCb%W&GLVzLdQx8FMK;e%7cJ$3fQl?W(>{
z^kZ8dI)J}<NK+&hOup9PJ^rZrIKY=>be)FKro_o_jsIBt6RYHH<Tli)+u2kYB~;)k
z+s&6}B+YzNPaABm${$TrtnLOic(zuk$2rDl7fP<6v`Q~=e*yaxy}n=IT)S7lwxFTQ
zAeWjnT-pT^JkB)iMiQq8y&dns3mKE@N4mWpMRhWK`%A2CL#<KX1)jug^(JIDD95w<
zFOe{&ItRi6%-kEoBZeLf4_(iXZ<y~Z{Cqq$hSj9o|Cd)1<ej9Iwja}j>vK~H%8KN*
zq8Ek&H<Sv4H3Tm}aGR)`-NTV#z?Srq{B5uhXI4ClQaZ*uPYD8)9&`1R_{K+-yr_`n
zcvOPCW^HKjqU8w^<Am7@2^B0CUY3`(_&$vR6<tYc9RAChHl)~h7~ykqiyNb56tjCw
zsO<>02g4eRz4f2!7p5^D>dZB}(y5$(mkwrlQV}68B6h|3w4Bixnrcswi|DH7ASyr4
zM<L*;^TkC={WjQ0-lQw)P)1ErWl4Ss@*;}tJk{?Y_~q`qx~wP@$?lQHbnMZ%ZViqX
zz?mO(KC#rhzD@p#k6o1;hlgDvAoB@*KAk2~+Mt4ZaFxSFaN0GPpk4{nVQYpRL~Q^R
z@H7<b<)(m|N<&|Se2G@lxz@W%v#0sH_xf9fcbvU4$U=is9{h?wwwsan60a&kjU}EN
zDF9n~J+TU#Zu9rBzsRjv<%J*04bFF_4=H|>nw;dnYQJ}L-t^Eh793Bw#1wONFSS4_
z_w>B#i~Rv(dyP5~Xx$x{Or$n#W`*a^#(5C(9t3mgSG#$7sK9$U^K}+kuUpqT;>->Q
zR<K@Hkf}Orfj+7}I#yaFKtO!*CabC9;Qr#Xy>D3=`Hpnt^$r$bfCwt#fix4{)93%l
zcIN3(qcUm}p_g@#`ctlL=R@$7u&XBZN_y9xfGeU}4?UWMXzsfWQvYG43N+ML-lpf$
zgE6;RuX)=WGoqRbWr#kT)71knJOT+gnTA7m=>%dtL!G*bjPofdKqWZ$u#A4)d=e^X
z%&g_O%W*5SxTDWDj&V5{C=jegZab#XT7h<O>Pf$TNs>feru|3LhhB>EL&<~UZm=X6
zl=-n*ad8|iR6sKfFN5?b7}5e0v}=skIvVC|Yr@__+(rULs&4YtH92ZwY4|4d7&&*<
z0JC`xCg|YSNPf!0PagP>7n~}ddk9i=4dgcY&G$!pr-e0d0JtO$uj7*Kn^$ex>oUQ9
z1S+av$3_NOMf1;$oQhsOCcnGto<1eQ43d7H+L?4Jg5TG<RALPL5u34uwv&1naa=nM
zrm3a!5PU>ols2;G6AkL1av5qi$4L#nY^i4gIQ)IVW$;DGO)PT%*&(j;ly1+U{A%rW
zxDV%WNW;Oc@c~@qdKMV}y~`K&B1qANj7$pJJin5h>0a6b@p()wx)k*BT4{p{zN<LI
z-^%NzZ+~d3ujMJg$!NUj`pkGdDRvgflUw1oJr*_k+xSP$c8?6v>VN&}QSZM%%{g#?
zmXJVJj~LmN%4Mz32h<KHC7nYAml#7wY*@n!73@RjK82r@qJV@0)y)S-)2L^RlwGZZ
zCq{~cBZ}uoXTgPelLMfxQm@Wo@pA2vDVQ1HBLgSGR;qLwTK10KQ=<8s*d|zc{iImJ
z&pnZof8#Q*NCoMPveqy$XcI3z16k!xwuX->at*otHLr8Pg#`vaY<<lMYdC(yqdRcT
zDsysbq><iF9)DYeXhWnf$C0+!W@4c%KluV0L7wrIN46ak)tEGxrJ4>I#2$Xw{7}4I
z)vD=?mHS@6nAHKs41;?h#cTBOrVgm_flJIIDHWUbXC=f!gYCQ+eeTn0i>!`1eur~4
zprxQDWG+`krzv~PYSwoJF8j|I8z!PIii8{5LaF7JSouG!Vl#3KNZtI-%!J5pTn}f@
z*g_pAKj84gg}xGpo)>_jI1d<#`ud+RwP~2h3{}~%==?K9w6&MLmg3>v9FHJ~Dl@d9
z>slT)=|Y0#BUEow%~gSwz2Mf}cPF$JmxLfZSZTU+w@4VSBiu4dGsnYzroB!<9eNDl
z+5D`@%uJh;x)+ugGL_7THK6&1dR^@@qlxns2D_JPKKg<LDVc_T3k8!eGxb_h%Dn!H
zJ%e&k7xaMC?3CcpmYiU~SXZ60d}`p-?En(wWZK{yE`VhaI;7x?R;{U&XFZ<mBg$>Z
zNY+<6hb+|F{AXkx`+Hk|C0VJ*Idrdyf7faY$N}W{Kl^?8?e{?$nf;C6b7!3Xv-kg>
zeYR42ltcg(c`g~bo3}WA@$*H&ZL1lVm#DwzwXfBBr|%8}ON;{PMO3J(%cmc}Sa2Ky
zSw2OO(XLm4z-5x3@RwE<E{RZHj{{gc$V6A>3SZp>aZcb}K--o#JEu|qQDcHy%@;?9
zM(?jaj_o%Z^|ImCi`Rdo(RHCuCqILIawiSJgo1zw6b=*@j4C_Y6sBS3Vu0*vR10q)
z(|Cx5GF1L2_oOp<Dj^>qX8I2hKn_@m)dT);gnFF)#qc)GWnjNSRaL)D4Flc+%mK+s
zW)<ldZxHNr_83t{>_T7Ibz=Ov4bj&l;8aFSsT;R^J@iH2OVIu1`9kA&F|PEFN{P10
zF)ijKTuFHFezL*BuDtn`n8YGl&g7>|o@L7vp>Fo&>b2=L>Sh^FHNnZ5yd8f@zP({u
z(LiQ&F;BLK{xgZ(S93%rdU+g_9a!T(`cX4jU>T`l@y+ihM@W$cQ`rq8kF#Lu?o9CV
zJEZ~Sd6e<ZEMEna@00B!7kBs-G6n^rN1&9Gzal;AHwN!Q=Il+*&OY3?8ipCYo-u#c
zR*#rclJ?k3zG;yS;$HxNQGK-Bl<3Nm6reVex<_tTeb+$KziN$AglBD<l8|-7*+!M>
z0&4#<2IXb^BBqccNJvD9$mPIZAiq6qn{|6^7LxEfT5l#30q=Gv+TFdLjCEEjzWQ<0
zHf!b6YQvbha*Fr57Yk`OcOfb?S4A&}7&s=MRZWI8!sBriy61vT9`p%=a|2K4Diy1W
zO6<Lh@_+LNiYS>>Um0lrWXG(!$?r{pyw;)%D?7N2IRto_vF3X-^d{4URHV`LYhcX_
zJ@vTDDB6QrmdmI)@UX<TqRyD4hynuN&)eDS1Q7DkBxNf~2cuj;CXu#GsB^ve&+0JL
zM!2&CyQe`n;~;-3dbIku_DJ)S;fud_4Lvg&x`O&c&mk(3B`5+f_ky~@tNYHHZ8D1<
zfO{nO|G`&}TY1zxgc?&P?E#=OSSf6+O;bPq=52{AEe5dl4p)*6jnd*aK7f#(Ppr^q
z#Nen}wuv3?=L3@yvu*Z@8Yb8Gz+?@2fSWR^X|MoPmqwgTw<O7~`^Haz^`fmpLyVq}
zeFP_21RiegF-0^VS0Cg)S#mvUA7)|PqGo##U+)c0YOIw+*e>g7?(>}on=lCGfd*Aq
zaj#wY^hj=WeP!ol#YFXecnM#amg@$+%-APyyIc<9+C({{v>ewmtjplNai^(68Onn+
z@m#%?`pz(l{i5Y_G<RKd0LXLOUKW2l{yR9SrrC<E-4G1x_R3f;DGvDqK6dW7cz3l5
zSmJ7w^m(3W0h>H%&zRl@W>^-tS&XdT;Vt<K;e+=G^yXtj0do_EnB@+IR!C*f%Un=w
znbMxxdzAq-;K7)Z#Mf%n=_B|L)6f0c*oX+VOWX&j#NyY{MVTnj!JtcrB-BUEay^|B
z{kW5En=e6L&EzKQ4%TW5#MgJBiWGl0hsrUj9Jcs*D&>yG(sGMGJI>{{X}?3%+@Znf
zTG8v5k)8=dkD|nQav5lE8I^@C&8V<Dq7nR4x*Ziq4eQGE{*(WfRs#BvLXA9s@y+Tj
zDsY?PGsa7}%RFbNxzYTN2yxsLzU&gP2l)7T@oolvw&2Wa-7n;koT#1M@!jrrq;Q2+
zwTmW>uSkjvkzI8k+~_*@ugqGg>PQvR>cq==ca2z9n{Gxf=(X7cx2NaB)%*6fs`al=
zLiuYmb`4EWKp*urgP)v4NVKe1amY5NS#hEAOOW^4%>|^zi;M!W$xd&&CNj>*D&pM;
zLY!af-d0HYi%t*8n&B|+s>jM-FrnZ>ESUC99syY#lLtE@G8!vS+AU(s-oBG98(?8I
zb~8fWO;$WCu`BSP#!Wx1fe?=}jtyC9C487?XGTI>_<5k%^vZ4~ynO=T{K5sjeo5f>
zJRp<kI8Zch*Zo$Vu4i&v;V8eNkkWQ8a{q3|!h8)#{$kV3C>{0ZH?A3J93>b`84*#F
zmSDNry0}ZIqKm-w*oBPj(Xb42ef5y)BkF>iG=fCdMzzo2wHX(dGXMhS^!APRHLZ}s
z@p;CYMqDg)dLa|sB6*G*D>qc>dbj!zU8pgkjt!hJ<vJ`kW`0&+50zNm=VhE_E7vhx
z0XTf|TG*v;_#@6EYN`~bBc{gTATj<d;yF6ltN6OYN~{I`V2d6H!_`COX9D>hgqbOf
zsX5g}@KwD+E^>l-<roZfL>5RYVC<HJi-!j9H^c$4gXne8mj=!qaMIB!o~gl9xOjmR
zdk$4(52Q;N*><nU-V+aZQ_@K8DmHoOeb4bqjtzbMxAm*j$7VV|g=hvNaV2|cH?qUW
zjGOTQ)lIh{-Y0hj>-QtXM*=sG16xN=r|wjbMOF!!&p_AsspNOFh|dMifAEX<ZYor3
z1@0F?NAm1n_3gPrh?R}Hh}}FNK3p-iD{w-w^9)Cyvx93s6bM|T5{p0hRe5%B89%`0
zZF8!sJlCf3!VPm0i%W&pd19r)y>2$kOiWF7&|>;&F$WQXMRr~z<~dLK8kUA5f&w%2
z!*{*f7sAO|IQ6_XX^T=vSE>AGky<C-E;+0C_Kz>ww8RAXCvLVU8&G`6VE*mCxAUNw
zva~p}W19F8@L;FPzEY)(TGK2eUJjZN=^um_6vl?~){Pw%HgC__E=ve8fJ|8pYKjQI
zq>~T7_LP5MxR3&DoAY}J5MbzvZiWw;*M&E$IJUXY-mJa2_)zpsq>J;~fM&hm_K{If
zn~2!Icpz5VEHfHYgI8Nzuh`eR;*|}y%N?hOYWE&)K#>$$(^V+bmz_t%N|tdS>h`tb
zu-%)TPiuC)%&#;)w(S#<!H@Wm@-n;XK-O{a#ozFr(@5hA_#@>t-qJmt0cyk`j^*Ny
zx8$sS>(4$|V#$fW^rpcV0T!sq#wLz(ny5P>D2)Yg+t5M>C17}k*1y?a?ptIb+YKyt
zUC3VAmG+9$i4Y&k9&bD295YPaReND^u;`4cQHklchC6)^kM5N5tS(%Brw&fipHiS<
zg|;|+U!$69;6~bb5jxA-?t5c!p6`LB^>`GrVnIH4_+?B|y*V2ta(AnT<pgQh{on~U
z5g{_QKIP3Kg1d9FRxTkgt10dhWo$&kHZA?TeX}RW?uuh$>Jx>J4CHZHMP@H;_lZd>
z2+wj1Q`?su@)l|__GYDX;N(TVHDNRFV^=P==Sruo{m!GtVUYP3-WdR2bt|&U;s)1G
z)&50_izpMO6m1%Qj%JAq*B|vWIjBTGTW@CX;&Ypwg6dE~ghnjGMQmN4*kjVLr)m`x
zyX|^U9(pQ%FQE)BN&0olMy!oEHnnHyS6A1bUGh37=|&u$MEDdqW}emMebE#`gLrG)
zzhiWb!xXU(O}9~(mmIId^Ur>w75dtM|43W;7%F(FAE<X>x$Q1Oa0A7S$tuzxU#ef#
zKyJ8npL&{CPvlA#bOxOBcmRurEl#yP|54WgtPSbBrI`_<K2^cCD4;R==X2Q&xMmpc
zM<ru-e`V2i2&!@3!^Ry~rY`V9*#JpuV#P5l=*DnJPM~dnf*Ex;WAlJVXjL5HsA?`l
ze`@1IY6<_uuM}#*y_H%`tG)d;ZT-eM{w*>#4u2>nHzXb*b(!@z%x(bbO`DVWDEA0Q
zJJi()LPcM39|t`p0bM4B@FNtqmOAUJTn+oYei)3xx%8~8e}lLk+BDlc!z|D0DtHVh
z?LdqaO$rL8_C<?({^I5v+;Y95TSU;!;};M_U3;}pHn|fEJs;5H^T)_W<zY`H)gkg=
zy~nYaE=FMzXwLNJPIckvuyt6*Tga8pEU{O2SiC(-RGOwmCrZpPti1<s!}kX%Wvnpl
zc{%(|6M(6Jmb%q%l<b_>P)--WIP`Qf*tDlZgOm3}crs@#{g{lF9k4(nm>!bgd9ir*
za)F516Rzuh$9eFClKWBF!Mj<x58PLmMt6%A(V>DRL^^fCiJuOfUE-iNqG8B^;e5}K
z7x#_uf*>6mE8{R!qlG!iD$q#(1f)kb1NKKG!xh!*L4ic$L*r1jNoCLNtGETxG#MM|
zsEFfjdWVRGlW^0XO+$(b4pmGNNvcMO?ukc@wBf0tai44+8NaZ^%*)9ZITp>E&gMLv
zNYrWT=_q={2<%T$j|&JEh(|U)d{a+EXOVM%Ly*3-6^hwCD_yd?^e?s*BC}CD@+XZd
zf6?FnIwRxIh&$mFiCi+*l~R&l-EyRjXW4v5q7!dxUtH)m-}t;_)Rj1Gcl1=tJAixf
z6OT3%SVj)K98q?E6C}Ar<Mp1?c~~$vyt%9l9>VRR&GuhJcTJh0&j=!GpVT%&A3vC|
zmW$p5CJp{`rxHId$|2rrcuZSakEJ?287f%Gn;ke143{j}Hw{>T`^#04{h6b$j$Uq#
zC^dXVKTIgBZ<|$*OD9e5dzkP^dHRdb$f=DthjXX+=!KWC&78?ys8$Pg&E}(1)}Mso
z!$&A%b;8yeeUtlKmmYj*rQ!s_xQ)+mnHFZ4$}MM1qy_||eA(KYBa`&e8q-&jC;LZt
zxp^qG%G6bE?s+>@vs4q*Fx?$0=<3R(Kbdq58dePA26vh#o$DS!g28*e>qs%|Kd)p&
zDsaF*shO6}^{;kL*`v}=%uzs=C`L{^{l3cPvlTuXq?UKZ%=hAQI#mo0Fb&Sq9p#MR
zRCi9`@t4S9rbsv_?)`pt&XX;7GMvL0!K(GFNBXE)PA|Fh;y(J<yyARPHft_4hkmRm
z0|_%~kYmBNf)}5(Ung{}4hr;)hw61+;m(DaV$Ee9kAM3NQAF+}xfJHb9Hn`jO!$;n
zFDg{B#0WjQCmmDd<MO8#Yd~FcapBe|*D}6<3kxw?5gzyDY*^?|SUC>vCMuTYPZ{^B
zmD>LL1eATW$<MJ(8G=NyU|HN80|}gOz+wd~M<P<($(;d1Dvlc2;igS=4^&H8b|%-O
zZm8B5@lz+IW~pKc-1^cZ36lHZOpD>vNg_{!mOlUjV1!q;k2yo<1v!A=hzd3?kKT{)
zS$&%SR)m@2h5-zs;sjxa8@;m&)x`UTW=Pz{<#%>#VOk6BIuUETE+j+1TZX2x4D_;j
zVizIcW~4@4p+RZn&{0%A$_M4=dhye&1vn{;;O)Ot&Te@MByS(lc(*`v;#wh1fE+^7
zuX(EB*qhWeOXWrX*#c7hrEW!jN?G=!;m4>)3DNPv0~(|kl*DV#z*N#>D_oXu#;oun
zs>_MbMNM+RKADsKnpWtWM{_(lW5ly4=7o_gWYJ_60;c<g<1V^_a&_V}izc6F?tZtR
z)ElN5e1Y)`DFe0fB{^RA;<A-#kC|iAKN2sqOn9-Mca?!=ik=!^SMv;r`mskx<c<6-
zNG)bPDMtmDx`#XI{_Fi9V~6DmP!ZIPrTtZi<(+!qP=H1Sd6T|oJ;t-zOuaV48}b*F
zK200}+echtdc^zRAs$=VtOimz4mY#(y4P!gLtM!wrg~F0Z{ktPkmrTW3bu*=xh6z`
zK}Y|0qu$gN?9TZ@w<pN4{Lw^z=OiHiCUOZ(@lJ{hpmtrx_fX7k$6Ew?5zl*Og9oaO
zuPfw+bZwziB^6&-9!o=TqceiV%LL0>D=AXI%k96wxSTP@n5#rXGx*NQS!O(Hs4RQ^
zP(8!WhjX=mK5XTzXL(pYU|8;t+!S+YT)A>w-%u@hZoz(;q=WUpf^t&JeO9;t`S9{~
zts5D<cDt{09(;E6z|DmC`i)}E)g}x{|Eh<+3C2IfF~ynJ7Gyipz})9>p?0F10YYA(
zTg9FB#$#30RwYbaQhJ+F+qx1wVepX<>Q3b+$d2xM_GPb+j2psLLr}e{@mdL}O6rk{
za&6L|-r>FkZIeK4o4St1&Hgx=;Lxq~SsVj{iZdi$xv1+_#4~gUu#(YLgqBM9_#8pR
z>aD6YE(NtSEU<o4=u7}MdXH4y!v#ZpyQc=p%xe}R$Gfqy*K!MH1=LKnZ7f)vU<*Sh
zT9W*gGtG4R*5?0KZH%MOi<kL#T5I1C(pE|`NtcNyi+kZ$?i#<s3xGSvRR;tK5ER*V
zI9+A-9l4QKHMCNOnZnx-TedeG1&*Q8I+$g9?<{3z>M@5(LFtUg%ipdwXa+CVjIF7g
zoSaHsE-LfFCPBL2-a+OYEKF(LHHTjrQg4D^yfRy<X{C^6)9#&R@NkCi*tv&LMImxu
z=9dV}H1}P!z@71?Tsqo8%$R&(2<0kk20N%07&wZx9Q*HWK)X4M^+24g^kTKJAPSi~
zX_Yd7zm5wga@FIaP!m_~CdWBkJj`y+R4cSBoFtaK{kX?^AlkdT5o>I#<jd!QB|3rL
z{FfkXVbP>282V(gAjkL14MTuFt)_uqwCF3>N?Qt;MaxIpA7pI6ax3}TBEX1`IKk5v
z=$aj9?Hc4oC9QQ}dw|9i!q1_*da`2mZp0}<e7|uNg05x8c(mNn-D>fCg<q?AmbR5>
zOoRPq<TEPwD0AO)T{{z_*4in8t&PP1=@&%0il;>k(}b@DhWgfTCIj{#Xr49D^U3De
zSRIgcOPykUGP68Hi}Gz?H?9r_emK>g-n%%-HE(U8tf@yn*}81w!-qbK&Gr1DDBt9F
zwT5lAu|;&C`8C(>MML@oec#SZfg7uu-&gJHZT)fxPw}|Eb!gVjAWV})cPPttI#u5%
zw`~t+n`YNN1XvEzq<8yJ{-lnkxE0*}^flO|pME^Bmzzp48=SW>3!ZtnoR&%OJ`l{^
zI)ib<{CFG48qsoGUFn+-5juei#Pb%Z{PDe(SlJef@&e!h@VRbKA_u%M7Uc^xPyW{U
z*VippB*^I8kL~+U*ex!A%`(ciHpbZ66^yr;leGM=o%9o^WKaG8_Q{^yqe&VIbJWmI
q@JFSTg8q<hpaI(czyFs!B0%c19_N2rk~nUy7JT0R9QHTAKmHHhO0hlw

literal 39755
zcmeFZcTkhv*ESji<xw6%Ma4!@iV6Y>2+~DB2)!d+rHS<31LC77NDCzfDGE`fMtUbG
zB2|!30)(d25JC$CNPwIjeSYVC=gfEJ%=gFn=FFMzo`EEH?y~pVYhCNQ*50{a8t7>p
zJ#y{{1Ohn<)l@TrKn?~$Aj}W{It2FM)84IumqQP=HPpZ>*mhLwBf!gHFHH+y2!uPD
z@yC=fyXFXi@IjzzDkec0OXGnVCpY)n*0v^W*RE)2e2V1Dc^i4=Ym`=;QIR2&pm1lx
z>la!B$JmaCetL+Dd>MK0l7N}iy<?}C)LEF0voNt4om5}!_&mP9zui+ql#r~Km#+_H
zMbA%{CN#c5dLnDbSGFkSlRGfM-!1yz|NgfHfCVB8++$D@(QU-qqLTqFlZPP?6N{bN
z5{7L)v34O$raq0kocD>wa6%v-%hr8tnEtg|q%up;zwh71Txw?fcem+DCfk4Ce$2V&
za1^|6&&c|7J&GISl-s5!(gqBTIG}A>kFVyJR)&|OHsMW)8?`8XLD5p!WX3~TR;b*d
zaA7WrS>RdGt}<N899w9%pCr}O2Gztu;bN%+Hb(wXHUZs4DO;==LMl`6Xxf0O5jRvs
zKsR|q9Lm=Jv3DO%)s*`dB9&A-;VRH5?(!VPCAjzc?pdVSNJ&0#rGxEOo3@-5_Bi~p
z=I9jyGt^Tv1d1KKh7;+(17GZHz;PtYuCzEzB*zI1rd4RqZEodvPtG2NmJ7P~s)Uzc
zO<wu#R$2MGqxZ$J`a%ZB*VY!`4rjRqMYS(ZZo)&}d$IQmrphYVR#VKY<Gn@DCfJwW
z!P1FR;wp-lwS~3bWx)sTVs}|~z9|WHuv{!JF0<>udUz4h{zSq~NPrd?WIM+eqvLXI
zo_sa=FpJQ%9Ae|V!+{s2Vo8{-Fg2_@JSMrQ-vpsB5g@BH<HPO<_s}yK@)aXE30dHD
zFf!$RLkAeGi)`%n+TmCi;Ph)pY&e|T!IaD#fUeY|BCN1V61iH*S63d1U=B&}-%5s(
zv*1<{7xl4EmC!BH&`kIhe$CXq^bhB5RXh_IPjpcH#p`%@T@R;&@M*i8BrU+%?ynV*
z+p<Pr3F3#Fb?xeMu5nKJi;$~W9QSa7<I#t)j?;}uLe=TtMp}BtZXCiCt)>#KfHX`a
zq}|XrdJyI7&33oP=y9%;O#4_>lSHdr7V<6ZBC_up!8X?ZL<%RW6Q;X&C`cpkUc#`(
z2j+%Gn@&;0;et>XB3$~C<m~MRKjwzxQ0-G;d`ftx3AY9r$?^a6dSKdzUEozx?WxAw
zLfgmF4*#f3^+UqKW5c-;cIi`aOm>^i;ht8}Glcn{^QRZlCk9pyBvkYZR;HaLWn3oQ
zM;<TIYx97ch^knq<S*d{^dq;Hq<Z=LnI`T)<*hrHGx<n+Vgw~G*$MVln7Cxl&LiaU
zS_(}`-$)nfBCX`rA%Dr`c2vm0vr~<-Di*K<4I@FGPIbixf7>E7e{fWB>eF4JABmdw
z&=vvi`7%s=_ea(0=8jm2&+tz=Qw|YO{h$lHNdsfKN-v|5R;*@cJGxioq&}}5M;`pp
zQxV^rJfJ7^Vme^ANz7lQblpdbT#%u0d#)?IWR#{@qM9g7zL{#oabYMibaepsH)6n~
zFVZRrrRrcy#HZ{)&;sK`BN=q<Gx99VBd-o6Yl`jAf`uf>*sR-S@wq25O&mYmsdcmY
zP4SkK5Z>~4qdy^h*mABNy+ZG@UQf^rF<X8TSFeB_CmLp%U-zliX%?G!m>_i=n#qmb
zAm7>-K-2}tIZ)DDHXb3QI>t(P|LF|VeLuh)ZEJkO4SskjBwxtIA<91L$DQR(KdT=^
zHN<pRN>E6$LnY;-dE%2GG-PF!#a{<BA#Tg*!+)B<<$HcD@LBhxHoq_eJWy@!w1W(-
zo#lN7mXt_)q>8@pAdZj<3_&61;UAJT(%G!BMP9P7g08iyPYJ$9j2xRj7%e_&ndO=F
z+q!a@E3LgY3lk^{i|Sh2I(RSd5<=n<TyIsA%OP@$`sddF>3yO~$JinZ1d^yNX;Y;v
z;1a8|I_&~A?-=WB#K391d78_)7o9u0+ZN}Xp~*IsQ(6TGwVkyI-;t(H{_pl;_=r_a
zWBdcFq_MoTpb>uYj#r0vM;-0*SX?AU5x9YbJIJI`y`igXU))9l3cDy6IX96szpSn`
z`d=U9;HXR<TKd6z@rW1*xpOX5(%4-T0P1x)2MEMqWKZ(*{+tB=A&ri1dab2Ve)pH#
z8o?;nnNo4&?R2YE0|~Yh?;qxNkLBw%9Ec^`R3So9-c))o(Nf`>q~!>)@2eo`2G5R@
zWeGZ;H%^hF3qPxCfozy5YmC!b6*uER*dv73c5C3Z-!wXP3fGIeqaG6-Cx~lk4H;G;
zL%m~Bf3G@`8<F{p5O+AkfPI4zT_Yc+xA&gG4{1~H3Ei_A|9Pf5_>LfFjiy6!n-ZG9
zoe`9oZQi^XiXi3hC(Qect~<<?ZidvXS$c`}`-JQ6ty1N$b==v>9~E;c>S}88#&Gz{
z_PC$?B&v^nFQKxt1LsNgYto4<d)MuEwG`d@NyE1FaA(1*vYm-;6DyE|Bwj(pL84j;
zfG%Fy!bfuwge9@pk*QP0KX0Z>43<@eE|Je2t!Z%#b==`aTe5de7^7Vr$%$PQ*OTGA
z18KC~&mOsvg1+DFQjlLRessBB_F1I;S}?0^c`KpO!h+$5i4gk710ZWoT}B>+$ER)l
z(|w^Pe?iO_A5`?6r>$+$cKItYAOyV=nmI!qqUp+tDRchYu?y*ymMEtuC{OOH74iJ{
zn`DBROLj^iAM6FHf7e{p`3UEd@~vkLWqT9dYX7Y-T60>|r`-$XcO{;@P=WI#BD?y#
z^1U%=@~tZE6aKQF?I+ElD6~#PN$ZNk-I<->po5=F<<Xdy+JX#zet!7=a+&Ab&0Q|U
zo=0wkAX#?SBViBM(d}<@pW78Px2}kF(B@7EKM1$XOEfQ;c%xDUvKn8@U#pBhUb$4>
zjMYIJMw&w(3rb#|*Fs2XeB0YEADbUlG@PjZhYPwmU*?%NHt$_r6wt1Cg;aIxbX2wK
zGJ0}PFf*mK4)rjniz4E1cTFyCVb=_MCqZEgfwaSQ*a?mclGDfE+a(MIXmeJ)=nft4
zc)&xbL*3IWnS7&C@n20)?AY?LtLV78I(_qwS4vwGrejZfNn=*A&DC)>K=hEv=CkAi
z?K;KA#ih#Sjp41R6Z*VHe1y@dg5;DqxUKiFtqt}hLaMqW^jusB4{c&&7}sHM_v3WE
zo3cfZ@7OZGBuS+}csf*a@V65m`{TqmR|(Zxum?G(#qbDOw>MKsy{!`boE#<_RdeBj
ziq}AzBL|)EFM1`^E_>bPK1sX6D@9;1vDP1!i|UFh9JQU5h0co67TaIVHCSR{G5g}#
z;+)%!_pmsL&;4%oZH}~yV)$(B#7VP+@V0t4^i=|ZW#^DfS{FqD$ydSsibMOcIDr$Y
z8=jK<9|!^v{D~{n+6iTcMD@W#ppP#}p7@@XEG3Zt1f^YUpUIO~GZRs(k#54fb@>)z
z%Ldy>N}4lCSf}_yjTe%fK5AGzRltfS9o`=>*{I`cXK4=YWEpyxpzr@q79&i%nYow?
z+f(e+nlqeB3jFYo<7pP{53t_LNp|ma-r`BSdZ{LE+*SgTHlIgXW<w4(?d@jP2?aNG
zC@F1R5jnr|U8nj#OvsUy8yj4dO1o0607bJJe9Mz~A|#%wc;+npaMQu#MVFdgw+~-<
zE)chMMZAxni^&#Rcd>(78`m5c7y;jDRa#yh=JJb_x#pr9v-#%I7Ui4Be<gs#i#mP4
z3=}^{2`0g6{Dg?Z0hkAyy5O`Tw5|Qx3zJlJflLuXlC`;mI9C$V<06-_D9S$UM4Ma6
zh6;SgMttkpu}qy5Ki?y5d4<-?v7&Ops#uHlEZ7%a(;!cw$F6{wK0h`EGIVH}x#L`e
zb?Q`2CcFn>@%Cz8X(=qx?>R~gUbXYl&e24Sa0D8yoj%RKcL#~D9-p&S_YoF|OB}Gq
zR-D8(iV<GC8n{yGDfnH_t6NhL^ViQ__-K3B6L|X`T+D#-G*;5#v?)#Yv$wwHB7gtT
zwkdM*O~>z`V_x@Vu<J+`F+?qidY#yJS7>3-#7V4uQKFiKe#ND>+vKn(G{hWBJ=vA+
zI6H1F<P}=c-9E<b;E`l2&Up_h;#;_xC&5posAYF#gsLKCZzd#foQD=Wl<f3Me9mx`
zc#=CJft!uCHVNRU(sF{0)JZ(~I_<d6uF-xiqtbA0XusOQ<0oBMW^lKaB=K2ECSNRy
zl8ow+nBNVBjx)%SC`Jt{0?#s%`t&-M>6&L}g?hN)p5C0Ni7NI8R2&*&^jS<HEq}{N
z`rnlOn>zeI{tGQIC=mfiMK<0MXl~f%mA+{m3O*^`v;DpM_xY>Q3}FAgnHc_`%H!WX
z|5GoaAJgESMQzivCE9i0+A}l|*JkFcdiB#gOEj^va3LsF3(F356>Pjp5QnoPPIg+5
zc0&#3R=l;?I~8PO9S@kca>BI)2YrTRtoxdT`*O9dM+Ju{O3;A^PyCn8^0duB7X=6x
zp=3e#)QwzJKD;EwMERu;YJ)myUnHgNSTb@5x}tsVs_(w~koN<@i1A;%_V6NYZX|KD
z2K5Xs-DRDC6SO&L%q33Kth2^O5A9q-_~oIVpS>oZSs`xOW~ObR%;;}>Oue9bkwz_?
z#%E@+r#+`o=WtQEIvj>Ial)ilK>Khn@Y7eKD{>v8SQN{R`UgZ2`Jw$6QiAWF?qVs3
zYH^%6&u>jhF!&YF4)c4d?TT5^)6L<DEw=CV8;N+0It3m0DFod)+_~OQKi$a!=S-zH
z`G?(lX+O?G*UC|9h0c(3QKxx=rBW(J1>I{=(~<@Ob(<a@+`fpmV1_KbZ8p>OD&?i7
zW$uhJ#N3P}=;@$wA4eU(<AHZO61o0t0wi&Q8`QHS_+<Y95qGkiiL|<UOqP`jd*|QI
z`8sb4f~@8m4RMYb?kU{>6PKd52O2U@g>#6f4OkhuBab&;L?*ShL8)l}S2%<fj5c|>
z$i5o7cv<qu&E60b#DFFC7*t;<38!IZ%M8CYq+6=fyrY1ug7K=;UgSF5)yID}%7a}h
zT9|bHfD$sJo`7yy-~*wfGE-&!#nmUnzYhhBa4?K)(Pui>(s2NZKgkcD=yHiGU{_|E
zC_trmFW^Da4nrky-!wa`@vJ%}ACJ9|vh#pp+XJB+%RveDOAvH+{y$NFtq!FgmKs%=
zQ?tWXBqQ&Bj?3P!uF4@jj%H~SnpPD-lMl3a>FOfy`>A1{vD5U8r4lWdK1GyO()<2S
z$@CbtKecz@B*dU&cD4=(I)@*oLu6)&-0Ok_HRw?vV{Vg6jgEIE!UYMZcnPFFGgrsC
zrDC^H%iew;gSj^r*El~Od2ZFqF;{VVV%gZQg23zefqk{?_JrNsHX*{wvUe7)q-Owg
zELHEz=c&83gc%BHQg>4GRS4~jSMJo&KkhI>_>jpj>A7O(co)J95x#Mt0mP-LsJezz
z(<MoxR`!`q?ZkkX?uDKziE6|6#GUK)x=x>wU7JMwggi9F%<1^+IJi*zUe(@kgDbSo
z!f7qph#35FOyeJ+@)s8NP#Mki_jcm1ByZP8-0qsoaW9>>(RErYtBnzp_I=a+BFByJ
zNKqVm!-g42-u^~yEDf-$xeT-I`~VkAu07=H&=ZW*x$PK%@bRcvr#5!GS1LMs#7+os
zn!v0lV#$7GS<Y63`u2vq5h)vusZDy;>6SO<r=+mmX5TxVt*m)U9qU{~CG(~qB8i{w
zIK6wPW>+_mRx3)2kXR`%mZ+Au6PiC*=woUtOc?64cCD^EX+;Zc--)244b=|E-gi%t
zviT6cP8Lkd#^t9>1dq9rh=Tn}Ho^oOByPxw)Kv3xUt%TBV(11@P*E^n_xa-G_Ys+~
zj&~E&x;FSz4NFl^hI-943p6E_F?;B7^mEh755YU1L*hMYY$x5h==1P^{BBo%{XR(G
zF-O*<syjk|Wn9j$PuOLI7oR&<$C%}|VRx17P!*7qUdOs@r)IT~d~yB11Ux&!AdTN0
zBh-XyX41AyC7v9}^Rw#=&iba-&u{(H5b>frW}#z_YvV!#CD=}AtJO)mT|VfvK<FAT
zx;Y`)ekMH5{3~~aNz^pI54&EYGl?il2uAqfXB0ehPc|N{uSX%QvFO2N{%=dQ5{(C(
zI4s+C``&kdV0ZZf=kd*tR%CSyMXVnZ2_e?>PuFT0*cK49irnRACQfrd;Fj!vFloax
ztLAW^Jb#rYr@N)FgzM&Yh^j1|Z9L~|orRJITAVInfZ;14zZ@zxK5+rjb@g1l@kYkj
zoV{+Vx|wZ01rzsh(L1iqyQA~l$)oVY`}jSpBIeXF|4c{jewpU7r&=^C;%n#dncpGo
zVkJy|H?wsE|Ij=&;7HTxL-W-vVFDi#qT1Bm5EXFDIZY?>6Q(=5IuR8TBX(O-S!JTj
z;cmrfZYsO^M$4AQ=w3^)Ii%7~r>VN*)wN2l5BVaJtiMdXU3`vD#kIeJxnA|{35K(q
zZmjrYR7Z6_%|}=8>O&WWIFD(4Gxkx&-J|#`>&$I(!DUyTo(#|Yny}cFe74V#Rn@7p
zL3+JdLj!rd;<#)t!Qz;&?PNPk=Ms@S?eN^vCrb7O1m!_3YZq!kp&kU(@qkjtZwZIk
zv_r;6tM6bB$B1nk>ti3ePTnQ)cr}^!LB@|E4ZA4Bx~A^2r1`lT1!aQV74IJ_4~eg>
zrmOJ2A+W2Q3PtZ0hy_n{LZ!O-?LZ*q5wbLvT!k)`zcm(-O%S?Z&n>Bsg~n7>-xSD1
zFVNl_MsBh#%GtTkN-BKzuKjz}HfJI9(qDuPjPb*GD{)^NJ$UfS2jTNf6Vs=PJ;S*1
zZA;`MX3B++4CFt8QNVZ0IjP3%Ff+2jXu1gXvmi{MsPXMfbG|<IyJBf%_Z*qF8D3t#
z<ZcsY%Kr9X9;rcl_JR&*<Cn{A-$=e}Z%+%K`$TJmBVr*dCuCW@EJZ?Wu-uiYuM$!C
zSp{LwcRI~2uIW)L#rDKJ!{|He%*Lh0Fsb<bu2>(~QA!mB;krdUMWaRxKfs*i{(M3C
z2#)=+u8$@s{O~9B3fh8seRnWBp~Q59jU&%BJ#XRTve*rLy#>Ci^VL7vW>sC}<mCjj
z^mjaM3hvzfA|5n9SK7O)12?!m(8gCA$uGh);}JC4zMneA&9~m2eu(&5o4Lr&02iE-
z+G}w*z8uu1NJ=E_UH*MJ)cL8(uKo5K>W{Ich*-hK3&|Qw)1gT5>&cD8OQ5K90$ij1
z%Yz7Kb<FnKdZPari7AcSWb|>2Z3J5BI3p1qaMpiwz3YJ;hq|&?E31fGz;&#9$?edY
zF0)!z!L)mA7v|uByN^om;jG$T#o(7u-zGhD*O%H<Yp`Ys8ZU9l%Hh3K7-}ka-{0ZG
zuTM{TN)w7>#4eofY9fWc!Lr?rc8I!pd@n>GU$L&nWEuCRL{+VRk{bG<GQ4<f-mHT8
z;e4C>q}?)_v>$V5`qzl##Hs4W=Q;cnTfX_R4hNKuBds<C$rBZM*9l8WVz$6?Z#>|s
zbGJYe44Z!XO{AEV8K9kX_K)3ewT$lPsy0>KLDmLUcgoi|uwsAVyF0xyNljC)S=w3;
z1#v1yv9C@zxRWiVL@fvuOjV1+fh@}8MT(&qAwysh-U0DU>Q-1kj*P4@wo7!2#AQ+D
z;vrq^!tR=V#H>y(J4oa;`=pzY<}9J21rwGv-ySXO-^gdGM^bO`m5({noQNa)Z<ic0
zH<wP=yk0h34jm$|@w9y{(=Z<W{Hn8?lx}vV?s2F@Y-@wqe3H8}>Rxu71Uk9JagI*9
z$oVQw$7|D_v`>dC=JaMAYSzAqY+g`9UX|6dU#v40YA<c2jythNc_0p7k{>xsCYRKN
zQ;1He7Ns|h?bf@K_Hn3e#~#H1KcAyW2n?B_5jNuZt=E3kYEDtMuM_`0fVksKtc~qn
z*s_p_^$--n&+h2r`a^6N%P>_rx%BDY>EpzmaHM)?yveWo7MDN>8->h2VAb>VZO09n
z&c(j~THyu4GJ$)jrDPgEv}X0&B}Z%(Bn%UKDgWpgd?y+%!=;h8v-{^Up2hR3@S@x|
ze6-2;@O>f4OEu}J00}!jQi^PJ2iy{6VTW0FJgrNMLj?+Ciq1FPkKMGsvVw_I#O}2H
zw)fJ$AO0-l_MziIH!ZouoB9pp_7@Dw3+&;kvVCEJ9-nW}n0xgQd!=nPYw5%v6S(Ut
zJks*Vs^vPSeLG0$TKUCewo~hx&T1qlXupHUAkPE$!pr&4G4B9KfMwLK9%3U|=SLAn
zXVoG5b=_$0s%?TcZZHI<zP!{rXy&>#HGFl5EHCDwD#13dSucL#l%Zb}c38b~Iq7iO
zu1cTyt&GlHDUVPN;tod4zm(fU5g$7+LfA+0*#LQm(5jP@P{Dln@nl^}qVu|L-Jbvg
zEpg`r;T$smN~gmCTkcdj47%U1w*_`ouCl+%<A$<%`C?^)PIJ-q5AhV|bU~&e@sC6|
z)}0u*!h~oLvDJeaUi+-+`Q`=uX*{kNfMd<!GJ2e;u%v&FzXYjte9M-Q8&5dWRq@?M
z@O#qEiO-~nCoA@_i8lV;xgoO5@0cG}x;at?fymyD<br(4d%4%V^)y2xc(nTc*1)pw
zj8m+6ZDrB?3cQ=hN(_#m59a&Sbp$)$W0_`o<yqas?tf!n3?A<Zdxb(c?BnVzoxID^
zC3wq7b))<bCS#ynMpDhhQ=h7t3wqn!d(HhUUy55}0Y6Q1PpRm5KzAJ?Lx+4_k+nKp
zUESvA#H+fuA+3f(WOHD>empr_tSU?YQ`R)|x0ep}AiY>x_8Ke3mp;w*lwFF|47uxc
zB!*dVucwoE0g0QjGx``iiF2u&PZF2BWCk}2MpdI%erhQc+!WwMvFE^yyl}zqHkWQX
zYSt|!ZR>JgKwKt3i1U><@X9ZDWHYZ`E$gF~ByW7&^cC*UVfoA>J7zq$GO9koUyf_r
zU6O88(Zu!*^?LAs-%9~VIUK3XR?Ku;@Giq@m-8>?dv>opkWE;B<sT4GQ1vERfij{J
z=P<9D;i;INyL8Q<O6JAUZ(k2ts>U2LpVq*9t7{8U(sdG;@<HO;NQRvckgd%qJ8?G?
zyFT1Ue3a2aiGFcStnx3)$mcicQ<=~CvKpfr@$DTWL*#r3y2$9~<t85<M|VW+z50aJ
zGL5p(I9quuC#kvf68zBj3s+RpetKm#S=oM+g$H@ET7t&ag`5}o)#t}yDnj?e>niu=
zPA>l1@)v#|$U{LG+O^C7Fln*3yOcUB7ja*)nxY`ANEx{D^0bfqmAU!hW~wxlvnZQ4
z4b%H#WGR9qu3RpgBc+cmm%wfNB3)dxI8j%PD|iDf6HO)f=Sal$;7Gt8&0;1**HvQ(
zK+^oNk?i-7iK~)}UtLi+-Jw#PV{Lqu>uf`$*-fa7rLw-B1lmGkeoU>F?cNGB=457s
zZy8LH!^2<wX|SI0sbRf}EM?zeF1TNH&Xd03U@wliogEgEm;gZuX_cQng!Y6YQ2a&n
zxS5`;hhN-z9)*rZO=_MK;=DqO&gc~cZe_JC=qvK+<k6Tm*Gn!Lo8)Z!Dm?!Yn()mL
zv0nYULqp}ps}cg_(Q*xGF|CVsq3jmuzOJ?1CcXC?JuO-LEv_Mlu7-q*YkFlQclu<`
zTlT&@ZK2)9HbnM@TLxcn-V*h#q=lg)(he{23K5tD_cMmI`jYaDDAdU?DB_+nhU9-g
z@{WXW;uhlYtH2c6?!wyAv&)`vvJ|(BRj+>gPFK8Nr{3ja(tYC2_mlk$z8&ew=5W_)
z9Pzc3cC}8zZ}*O<aWTn#n$v>4nu1wLqT|Jahl4eWs8uE#sw)@abFE9Uym2&fS39og
zb+K0+fv>yAN&~1TkXDl7+J9ua=1X+G!(DmxlbJb}IQ3Gc^csv4|FafA%ZbHbQC*|s
zxkHJuC)CbzbNKDJ=S4BI4Y_Ir?S)GyQ`7vz^}o7a{i0>-cnRj%O$v!355`=QsHS+N
zAp0eHh39XJU|#4X=BKOH@}~w328DXp@GHh6^B00WlD9Oq>UHwOx#C}S%$uld6bvRx
z-4=R#JV{DQ%x3<zA3}th{#S=}ud#rQ-QiAhatYdhR|tty)tvJT`_#SLX4g7%R{qyo
z5E8e1L!$r6FuHM3qW^iA=X=76fxZmPE{~8AEinGTUH{}6WhJ46pAsrov<9-{M9a8f
zT;K9aD;O}6v^`=>V^-T~V&w&@ExB7}LQQ1P33<P8T<ISNYJJ-&#Yt(sv+Wz4lpAEn
z4`1@nmSdiGb1CavwQal_;ZmdHE$2K(jGa;fmoB|mm)L8ozu_`HuaU6z?nHI;%YRNb
z225VrbP-%X6<(~17#JS4)$Q9-QR^|j_TCuOD5}PtXT3vmn18FNzgUH-D*3@t_U;tc
zR{395&iu`x#oerHFIw#5GPv%MkG$0qN}Nf_-g{v;80Pu+s?yaJR|jRMt8xdfPY}J^
z(p<J`57!6H?1@9U+IBAx1zkf~kx3PL1jN-4yjw#;kv+Tr2(QtGT<Agf=++cm?{v+u
z#JE`nMtcHB4MX@PT-KbgYBs9s(!Ocqk90Yf5g!h9Vjp-Bkd51V&N6$e(($F=T6-7K
zKfNbdvk#}E9UZ=QVo#CZCo8mG!p2#Cdvs#@jC`|e^;O#hS8gm<2g_{ZVx#uUJnu&$
zoX2$hjxL)>UFR{O<E3BvkjP%=-}8#RfOt;Vlr`>)t@XbirX=rRdq`n*4sVzE7BerC
z)$P@K?5;2-j&Dybam=zAY4*2hmFr@7EK=hjo>s^{=dDhbrGSoWpCoja3twM8va02j
zl$j*KmcInw@uH-4ix#gL-&u-dns_V``+EGMWcuUAZvRmsN%J{w_^4oe?!CDH{Cf$J
z2|QD7kVaR=7CREMS{|cU?^T$(yyfjuWr1gNC~0YwV4_PvS2|e6)@>F~nQgQ*^cOe7
z2iiw56OI^?6tSjuJqssW)qN*nS})P!m`8H==Ig8EXa88e9StZ#<vGmV7Dd#a=5&mb
zx6Qp+ZUgk^xvp1HV*;H2WC-;0Jaf3)sqSz$>6<Y8tl>^#H!bvyzXzMZc*zX2>)LLE
zUcYRDgKgg0Xy>(}N}V~XN1E(PThaR1dj2)s$g*VC#w{V~<~IvJrP9ZS4Cl02>%&Kd
zId!;&%bOoce38iQ*XVk+E>^xCZ1o}G@yWn2gFR2p4;=Ld*dXK-&5Wqfl;q+p-iOvW
z722T|i6h>a6y)gGP&Bt{TY{e*l-KGz-l&4$R%?{Eq$QtCWvrfngr+(i$Q+g*ObT}Y
z+UuY0eo@`CI^cXN8{bU|0_N{ybDR&9(HfkHvvrpkhZ~F>n|gLWv|`}(1>E!r*#tM1
zsmbFKD}_I6Oa4my=jqo48^%#y>XBR?V#&eo))~3$<Wr6A;c;VmN0_F1?;-JIN!g=E
zkNtyi{LuCydlW1P0kCwS!D}m{+jUyTLTt-`q;%Q7@EYznF6syWS=%81y=>JhQf}?x
z3K%Rj+41y0mhf3Q#<~AL+#-efQ;0|IuW-Ipqa+Vp$8G-U<L#dCQ%9aj&()nUwSbj~
zL^c|!LZfHuPW<_{y*6%$S?Nz5@6VnH#w^?K?e-}!9)I3K3a)@6+n>!qox!YsZ;`?=
z5b<N5s@(Cm>Dk%zCG30cLRk`KrHRJwGTF2@Wm)-HF%f*>W@y-lIVa;0W|gOx*@Kx)
zvtpn8^gvZ5EPd|#8x9d+;dAvNn~OPq#QD516xyaf0P(!#=gaCbpRS*4G<La#x5O_$
zSHE7)3d(Uw+&R#G6b*Z;k-&pti*DgekX!tyvPOGEEUaqG&qTlSKOlU*x~X}Y^%t+Y
zy1M;&a8vDUrEoo)Pxn=hq8pwrh(~?YsQNJnx&4qO=m{k5yv%a5dhBU`WdbVM_SVv;
zma4X8e2up~ELlkRIek_<qINo2UulN~8oDJSE-rpWM5M6RW4un)`Fpzm+;^GDFylAU
z?svb=%Re6YnAh3aS+GUIZ(YFnYv+XpxsKOup8Dw(^h<GT%=ZQU#;H@Mg2CSdMEHa1
z@RvceY<#o^D$`YJR-D?U`aO=jR(8RCJ#<UQB2EKj(B?r3?ee~%nVDJmc%6T-Z78Xd
z4PWg^N8>%}i&L%kRW`U(2KcR_+<f6Ky}s`ya7S;?YD9AV^<(vCi+B=>wt|UxyxY{1
zDbGQjd*eC!tmP*+eJg^#)%@idoA^Yjy#|I`K462kScn!oBjYhP=$sWihglpftQJxt
zA)T{oVVFINl|m?GNm7ZnRK5sXOw-$0HM6z#V0F7wTf!DOw!X-E;$1Pi;n6%3>JqZ)
ztvkM||5B2s9j(-*{{#8ktFw|tdYN)|>X(v!Fzhsqvx^|zx+C*q|I&*P6ZO<uMRd16
zv%wDVrUMclV>QgUA`9Q3LbKutcU;N%&~SKmIK^U<F*XR4VeZ}W-LIVb-H-b}e6RZQ
z<%{Nn2M<utWFdL6x`muU@rKne#B3OqFs-*k-|3CW;)6bA<xt`utUG9^ge`y6m(#|d
zq&fM<qt3;<gm{2YvVr=<p>N3CCe&CSBa<nTSl~d5YG`PP8J^VE(&}X8;MpClaOw9*
zMa9I#?9!I&(Q#H(KWZ!=G3jW9EF|$B2qeh%&A{ccbk*m7%a&JENELe)gFFQ+wY9fD
z?KPhnxUUBnt6wU^{o2yal&dTicy{Mq%th7bMH|WVAMaE#XOzN%2uma7z4tJ%y_xW>
z@j&M?m#0^FA;P)G`R`s>`xPr506*FO2=VLJFL(QIuYy18M-CP8YMypigrGhY6<r&s
z4_ujKoOd*;vmBUSJ3Dv|8MuqmtrmX-VlNF2hu?f7<2kWX-m4^UfVIw>#uCJ%idZ3U
zeeSb}7ZfG&Yw##L_hj^+7PTA@eXFsh!4o{Q1zRi&AdP<MRi-x>UpZNDM(WWI^EF!F
z((v&#l%@dO+|qK97;b*=-Wf)G<C8Q6{BSmb?>9t4j?FS|r2h|yTi^MfVnRg(X|(bg
z<=5Y{v$L2Z6)6ZrbV(y+G$8tdPrK=0p*daS)`cvC+`DlaR#k4ngTN&6ZW9e7-g?Db
z6QSrH&j=d6oH8CbiDx@<Bufk+1Rf0cPcFN#wU<O3I?#r1p>b=Xu)o-<+V`B)BQIwd
zY`=f7!1TQD!n<hp#?2usD|v3-`t9!wNb)COXUFRNi4$)aSOkJ;MR9MVKU7{+b7R;(
z;U)t{5TaH?P<ToGavlC5SN^akX3wK6K{vqrg-NHrSpkmuqZUv2Mjsm&u$AJ+ru#h^
zvU%e$8maBQWrEt??J}Q{q4}Il#BSv#Z1kqGyCSKf+<_~_sxidh5N+G2SH8IE28DL0
zUe5G0!kiK@J9$|y+rf^rbXL@=s%U!#08HV7mgf<@y}c13U`!hoUyyZYskR}6_iZ3-
zU*2>b3j0dhbhX2ziCWp7!t}1t1wzaFay4WC^jKmb%A9_0u0Qy~yJtQBmU_U-*4Fl`
zyPe#gdg7*L<=$GqT~MWL#~eZ{R1Et5{rlj+$?(9g=>%oi?Z%MJW#KDV&e)llNKu-Z
zIU3f!u!%1%4WV~jn2n3iLvB4_I7)WJe(i1e<7!3gP5oQa#SNXXZ9_Zdt*FkfF19^X
z#CpeNjx>~zZhDxJwYBwe4E-NYy?dVYF|-|KLL9TZp5k?DiJAa^vpinkn=R?AmyH8R
z_74c?@7mHf$7VGyCGD!kp1(x`*ve7qHnN_cDq<e+YP<=!^r0?<xaX&^o%QLoYZek~
zaWWG@7X#=3n?{K55w>-=#OiZAn|3~o*LY8lidxrvYHj0<P>^nFXbPuMUMmEz^FFLj
zO-nn?Fmk`H%=m!I?)DllK#9Dqw*AZ{bwP%K`JexN)~5%cWW?E1P2SVrgwPG^oy||#
z<v#XyBPG#s+=J$ZhHHhs@oJaeX$qX6g~GZ^4|7FpR_;1%*YeypH3HV=gUZ<U>BSL4
zzr8w<zA=gjnQ!qQ1pwR0yU4l8oZoJ0l}!q;UB?a4+;O`Vn-%09xP^ho;y`}%9ssK*
z7>z>mCxwGJaFGI$UT#(G5xyREkgdea^2PN*oZ8al=6aX7a$ZqUQAl@Fg)$Kp5)RUz
zBDmdIj76D42lR4=*OysfER3==De<DJoER`hsJHjpH!#*)ecS81`}$=v_&R^rCj#6i
z;k<jbgG?^-GHw$`NJTGZ_IAm=S0fBhtJz(T*xyZOV1_<iE^xVFfOrqHr*5#Rxw-eV
z8sp{aYt$j0O0kAhH;FiMs=4jiGj?+zU*Hu$Fu7+%?C&)B&UNp&5{HVbTL*8>N?#wW
zV~XUwyPDHkII(g2=3<{<u|}hPf?gqexzl&KdvME&N2T2^^p}^jwvGEg=*~m2uIR=9
zmCeP$Hb3GJDT9&c26uPJ+!|W4vU9KPhoIO3)56jBMwqvqThq(+D;~8zvz_q=4<39U
zI1xM_HyK9$ey~1(v{>!fl}4V3pznQV;DzeZ^U}LFq`yynewt9NJeC>s>m{9mo8pyR
zhp8a;#A<)Vh%CE|)vN`sIUePft7w_&NTwSY7<?kdh?LYgcfbXi14*NUo{TmsQWtV@
zL;1$@MBt`8{dxM?<r#}qkV9=NdX;EyJd#e`pGf%Xt;weFP<p9-o2@Zu&>+6b-StPV
zM#9h1+#xX#6Q)U;sFjP+7bL9U%Qe&S$4g^PifrmB-%LtO3uZ6Fmp35=@NzwmoG0@Y
zn#4Y8;%HNs{s0Fmr+|Sk!5wy1ylVAnT2|WfE0g42W#x}%#g?v@^)hbx0Z-ZkVBNPe
z;+(zb3m_-GtgI}Z%i8O6?V8Ijg$}Q+5)>39ev3OFxCyYNCsyrJIEKDYBVuJ)F}T3F
zZY2GqVeU7oc+>W;8YbpLewEdjeJXL2Ct`Q4P>_&K-<=l)lu682M1BF+Iq~+V(!sj7
zBTX*KUoO%SH#3{wf=uWMqKtK8p>Ns~ZUPYIsJU(MtPffWMvLWJ{5k*Im6Ek!`Bn2^
zpz%J-we#^v3CGSvUT}*r+E`Y|Vtyg}t*OX^45N81=I60{7g`Cs-~SPQG_sL%l7)$B
z8{|gzG?XfbqF*KcM!9n@&tSfB9v}{un{NQ68Aw+O51AzN=ed4;aa>qfcoYl9L1r1G
z3%dW(uy?r?4`%1Pr!>^a!ouQvr7P}qNci=3wH;V@mSTOaK&JP%v%S`UYh~l{t^*$p
zC%~ma0{0J5rfh?r&nfTBBqOx3&$w*2SGU)uoxd)7GT2HqPsl><wvV*u#0A(=Y1?xx
ztOx)Sgt4CNENiG86bjvOMA%d<4jAimPc#IRFHZ)~XEuRE79k5ODf7D3;JZ9liv#di
zHZURWHP!41;xDWPc*y$K=SR=8^W1!F5(_fK-eUHc!4;E>(4Czfm$>+KtEObW64uBW
z!F~>bLf{<vRb)7(O6g<3cYWX-*>!+_hu4FP{_cr~r#yX^j9VJ3B~LtIW{po*j@Sn?
z__O*Wx!rpddR0zNj;?mvwX=qRklgOMkx68bbsIo~>)z{UD<$Z?zW!4`FEd~iJJA>#
z5y%*~7iyP+_o$oa!}oXQ(QCrW?YJXlms6Xj7=+pV)`exEJ&A{8#AkC>o}j5HU`M56
zw0&>5UPO|f;%<}j?gp3b?hL{$R4HI-`0N^93otM7nyDzyUfKDKq@(Agf`ULo=br1$
zwkrpKZuKicxALgYdk@IeKgSzxLx#|H5s3mfJtx9)@i!PgX$8>0rdNU7ZOVW{^3BHs
z+m0-q@!ax{dtTp|Ub0V6q`Xw#UrQ(<>wewuuk!l&CFQRDLBl5AxN|qDP&f#OAqC_#
zZ^*(sRiH@L3r!0t4C;^EP!3K|SZ}`w0$KR+NZD-naD;^YO&6>~+k<Fs3QXX{Vcjf+
z;OfwAIse5CpC#6-Rsh~$%R|L@GJJy(G20Hrlmfmkj$a`VO<M`T778q_vLDNf1E_rZ
z7ze1siY{rlc0Nmf<mxSd0A%4JNP=n89tCgr;oCZ%jtA0cGy82+y%7~xZH~4*e+bai
zNC9A=g%7z2O4N0b-=sVy8g??A0b?eq&CXLJPHZPXw!1&s!+YLD^xCyC$`4hJJ<0u{
zh|7cxF2X>|3av#y;-}!kF5DF4>^_h$w**}}Q?AClyB4_fK~S*_0|zXRSzLpHA<*9b
z{IEHaX_EcS^{Gktej|e*UN!z8#RF8sVcxLS&-p;p`~-BwZX95o2xIvC*Ieu|KSf1F
zH#hfn^TL$(Db<+oK#Pr4J!9hvK!Xey%cB_5FahxMeI6k0b-;E@G0OX(KXRJz_*=hT
zjO2H7%L01p1g~Ha05X{@-%dRsa^mIi*2pu|!fp~scj(J5rfxhob$&YoqVy7*dKd)=
zoyVZXqRGX^1yR?OUl5u2g7Y_+Uz$`_DGmNk!K{NNvt`ATZ$@`OH;Vm7Z2^}({Oryt
zKxI7vdSbe75UT0b+<{}>PqM6z;Q|4Wm4jvk&-`kQtrr7K!kCd)w<aU#?;Lu>arETo
zY!hk}P{4XtpYDHt)X^;{53=Yv)o6A__n{&S=d5tb$QEYp+j&Ib%EY*DT@)XcO?h*b
zw!aE^*<m?M5E`=|(ipm2n@7%3j~%6N^y{-OjaItyhGvI*08A?&rbrJ;AA?|9|FY$S
zFmfHd0z^Z~={b<GyhlJ%!=%gl&Xun;kbAP%*Vj7*U1r*o8Z+V(GF^*nYHpDtER94b
z697M3+Fr;_C|MXTolap$rRI+0%k&3R%};U{hl=Ij0m&va7JzpzewZ*>;bQz!U=VFL
z=`9uch8MQ|uF7G*^co;&!VCcn{yu*E*j~-^bGVf)W3CvWWD-&HCGc0zHv)if4Qai%
z&Ht-x_ct=_kXSSRN5;>|xrDQNrTXrN2a_IV4^s@lTYeYi%Q>(~8n54Sqs;^5sH;mk
zO|_=$ABZp_uz{|@f)jwe(2Qp1uIkQ^^}PeE<78rDG6M+ej=5mS<e@&h?fmG;t?2Ci
zFWNtLTF+g-e;b#j7^<Y?K3cKQ&`R$d9UTWr<QRFGHa_?Nc>2e6SVr}2$2ZtFT3)!J
ze*$j@KOX+{69=gEXvA!1s{ihs_pg_i_x%P8HFPuO13j`$3(YD6<eY%M!Hj+D2SYzT
z7ow#hF{^E)uKsLVIbA+**>8`v0+cbVly_HK@~S+>sY@wWjnC=5kuDyQUup2|jyWX~
z&wb<J*Ca-w9Y|2#--bekuU;Lw1U)b9=Cvz5rVBu+%3^+P5~!h-S`+MO6HuXx9yEY@
zcDnGG*jSmJ4te}6tG8lgfx~tq*`&}ZBv1~vn~$!6qwZ6gtV-}yo$7zHfhdBZNaTT?
zMa9L3y+u^4CwIv6xC;OxZ&Fq~fm#X%Fi(B!IoTA?PkT5^jer+CY8}enY~$#+oi}nk
zwV$VaG)FvWbI?2+XzA9q-?juHqEQI6YS>(Wn-Gl+9fBh7YgS^~17L6ljUD9_(%DWH
z*jo<7&~PC6Q49fqRt@AEJ0lby*8v2W*U46D^c3DXa9im3lzOTuNIT!*CRCDTD(uZF
zeFk-si;EU>vf6FLXJmc0D}e@RDo3JJo9B-I;=sr?=ufX<Z<S}jbTw%Lr%s>tSSx>V
zM{btu<jIt@)KpWzX;xx0usv^N#DA_ca>13ANeq2-e~*Svm2w5dxe|<$LI}vkit~W{
z*MfMplJi^mv{;F=?FXTr04x<DH-eXv2Rk1Fs%}~1^|KTn7Je)gP)94M<x+(wb%PKM
zH3F;<<E72(Yn3ieNCTy8B9qC%*4EZHGQjER^oc#`PYR@c!BZ-m%tp(jRJTep+$Gn@
zoq_yV7gv{g$u>`Vb_W&Z8?LRbP1aM|nfVEFvbtg@CF}!;$;mh#Me1U#cvFxXXeU~y
zV#+2FovLU9QjD}VmP0<^@j7mj74EE}qT&KrMkoKnrweT9H(e<}glE#_!>Joh97@|$
z>il<K)eMn_btqi6n}6l(L8~zBCNNvlj%2SwzZN_m<Tsgp+9bVc*{>U62OGJTN_~H6
zyy;N$#7hW}fYH3LASb}(s`ge}I0mEI0R-p+YF$bUbGD6_U#>|-H&F}BO00ulOs-dZ
zjGx<|ddg9!WfXf_^aAk)Ku@p~@a<D}%Z2I-m{}ROVJ`sDg^TogWx8w;pceIeTVX(-
zWhOmFf)d{^ePBIhkIAOSiTUgZTkJd4Xi;-(@76NBC#EqBkiyMqpxC+@nVbXO;kxkS
zoi=@c3$ro`3O4%;uGwcR;$9!T(zw;LO(ml3T(GDPv<KN5Xz@NP&qn_$flU7)i}LAy
z5~x=IFoo@f;QFMI*CwIIfXqK4r1N^U*;rrEUrqfSf5}5osqn-XS5MUO4f?5UFjrYu
zZjL;j7wpit;x(zC%PW4L*{guri}-*F4X^hn2J8d2mcCLw35(6sL9T1vx)9$0Jh7ik
z+;(ge=;9iX%4WAh-*c>2mgNx{4hf0@V-<j*QB`I~02dVp<);g*)<K60#Di8pv(j+@
zU77$o*p~xoyZcsokDzZS$BpRN|5C_<d=xQ8jeSej{-7uhGHnWKcQ>p}{Go05=HMX!
zjdF6CRN2D?Xr@nr57})^ECBDH1?3iM5TNIhQ9-W&Q~n0MoH^sVN!Avtb$BKazB7v;
z0VfO$wTt6b-j4+N(T0k{>~FRMKOAI;Y;n61x8YCkrhsC5G+O4^b(|qt1)#vUUN4&T
z0OJnY!b2!avXZIPgN86r_?SpVF{+C6yK(0Rb3n~X0Ey>F08);POU!z>C4WgNoSHET
z3I)py7;FO2x9zA@_FfxdMjR}}5kRpM&2{9NaLC5OS|%eOMa)MsG4Ef50+!KK2bfS^
zZ?-b#gJK{Kv?YcP+R7750mA2ml^$TFf$V@FJ%EO6|BQ~_1ZpHu(z&O|F;7HP^!po7
zhUmD7v+ig3>3*!SO;=Y}EF%W+^u3h`88J|aNCovOkTVBr0E$;Hk5(4eFiM#=3|-Kc
z=L#^;9KHc$2!-Kd+!{@SEuK4iQ8l0*@B@ruoPAsTQ55ePW!Ua3Mxn#ka#Jn|l!=6W
z28Wyrf0v0=DqUftql%@OcAzdD=XFcr#szl$Fv5GpIjUmb+ien^vleg${P4UB=0kFE
z!Xz<tI!>l)2eemD91uEb5ZLvkzIGrtgL0g{rxStwVy6%NedfntVVE-d6lT8eGN>?a
z!{1V$tWCG|p1I{UB?DVLZesW2gYFx5Myc-&d}9kk50Auq17+q%{JFLFGY_-+>oUe+
zlnm<I#VIHTwr*|W>?V7b^>HBYTnB?saR$*d-Z3C<s<L?#LeYB#inl+2Ym_n6q;-{>
zMII1a(v3@HU9id+AE2;;etvm2&KT~!tk7le@0U*=G5s41v;*)C>8~pyA|h<x!5|h2
z0FmxyD7?v*vm3h77`P0IeP-ZxKc`$vYUfsP*1o!Kb(-}3J^I>81f7<!Mi?r#!rce(
z-3Uf$#&Q{yBZBppievN@HwWrL1)`7!s9=^1NEMU%nR1(3YcBC%qJZA&c^;T-3CM+^
z?cRue$sm9ldwIHVh9>hBLZ7?~x||)hUJi<Xl$9Qkr&)W!KRc3$nApVjs4IGW*{^G1
z(A;kCGedMgVu+J;X?LpMm6I|5fZ{Hrra%DD>*1}q7TFn?3{-q#!@tEr=kh<JUh#X>
zD>JLPjuc$0W~Pzojex;i2~a_qY}Yc%Cs)tP`po#l{TLaR5n@K6c0havFy;@cDTMy{
zzQdeCyM&5<J*&s#dQIn*(W!ntr#}BxAfAW<Z6)sjy0aeugf+=FY^^n%p@ud~Y5kz^
z`!PCuD|&MOOI-FYm@Z&tzp(wiJ&E6$!D#z411Ds6L5FuuvjFX|#DWsQATUISXL7!C
zS=6E{WGVB^XEsaqZ|(nC3&1i1{64}K&J(&+nzcp~tDS+P0pdx_M6rnlRRDstGE`zi
zd$YT{%l*#aiczs;B`>gybae!MKSA8CY4;Z>w05lxO)(sC3Xm$Z6$UM3X1~SvJ~ij*
z6--S{&BNB1QxWpyZb`Z+(4lBj1>@NBAki!)f|zPtNm&N4971IjirqE1{RajBX-4;S
zb>UC3M+XA$*y>8wlOtd}8`i#M1O53VVY<H&gp@dFrDOYA8!tV_)K*<Z<#W{@AoGU6
zwRj_bKI0O)l`0dwJ|m+H>O3lqp<A#5a5L?7GC6Q&b~Y7Y&K?ca%e$Lazp(LU0SdvJ
zfz9&mk<A9R!ufTeHJgk;X0Ci^@G%F4a?tI~Qp~m}eb{=cjVH8d`k@dQ%26rrUtiw=
zgM?HAb*`*-DaioLQ{6i8615?iKDpkA@&)z%Z=ld`CWfcF{b6w93_V|exr)rt17d*r
z1kHQ5ac|id%sRzP?kgJ`)iyB-yC6YRt%8GtRT#Hz+FkDoWLpNV;MxL20&gNp<>{gE
zll7WrMLG>;iQFn12jPC5SMzp%6j_uf2oj#3_qZhkivU$)Q1GkVgXUqp7+8QOg9#W#
zFbnXOl>yJepxPM>gTV+-Sb1vh1M$Ftwys@IJ9PBik~E)?%^yri{e=%%vbmJho&?8c
z<$jVF1(i5YOJJ9u0QVbebl*thqq=F4%<MI5Ag8-adQLQ`fSMVHU+P#Rqu%g5g8W^E
z#F#&FTb=rBH(RF!DJb!yF^y8Y-xbp<W5JXUDi73&*8BD3-N(8>k=e3@$ov#X$hw%E
zeb{Y-3qrZ>d*|J;J==4@ZCMto@E)N?@RGX4f|R*v?HK?SE~}*K$tnWyxs&@(m?Jwy
zGGUQbJR?%BLq+Vsfc1A1c=pV|MA4Fq#3r)&ZUhtL#qXIlL4@`C_n*<c`#qrHAlk9-
z2ctRz0R=(K%+IedO3uD2vxgyn*~;xf+!f2-gOpbRN|fw?&1DQTP|_O5I^6HDDETCA
z{{ZAzLalXVWH_itCqP54wJVqd0%e}K!vv9N^HjcVmEd;u+O=0;;v_qp7y^C(rV}Rg
zsm~4q`E?`ezh-4mTc{3^I%10$)7~IB1+SH*3Elm#30xo=9c%<n<O}A9lo0<M6PbZO
zbL5$pug&i{^xvobzy0q%`edj7K?6Z+QGyUOm}%xznh77_4wRF*oufVFGkiHMC7T$-
z;#QA}70~_eul~C^x2cqh=7SQsStxiUS;3Yi$gno^Vtzo0ND>oR2Y%__+32O?f303R
z+akDU^ZC_OqcPSIZgwb<E73dJ#<zCy!k`##@UO3<xQPKouU@DB%|9281gBWw4|L{T
zdm9#6)Gi`yQWKPIZO(t}-Ipk9^FKynx%T2X@?Wz=Uf}y5KS<(#cB1^>>;1Q1iv8a{
zqvC)0r9bXkn?sI3M>ULYLLWe9;Z@pH3nPK(&3~5y7<3$;`red?Vh2C-l(RCjO0egG
zhS*~10^tJrm!>NjtLedJ;CO86dr7~5q7WfcAi>jK(F0y#hE0X<i`=FBd!b{#t4`XQ
z*n3d%F2$O9b!^~JdGa^7kT$h?yZ(>qA;+G4aoed!J-LBFC;P>r_`$DOcjQwvM{yxN
z<yE|5gkFi<K=*LL@i%Md{=M(VjlWi%CidYau{&VJmSID#fM{BUZoPi(vC^stA%Y5V
z`}{+SonXF;QvvujHe-8Rz}NgH_~}C!%o-~S?=<ety@S<+Zne3c&v0t|a|p!5n<YpR
z9oXGlorlC}BEtS{-qJJ1&5qN1Co-e8Lx%kKBLeH>MG|ixxVR)Qbex5SW#k}}%54Yp
z2L{iR4AmS`KOa1F(Bv4)SCtC}N#SZKOf1#ya*@aQiVl6zyK{%nfwV!T<qBiO(wBQ=
z#{pI8l||$H2Tiw({go&8&GhnmWwYyuFsE<M+z!RQ6vN+<e=nM)fn4qH)Ud|q`W@C-
zb-@Ar{vHCkKLd7eWg*u(SS^TOk!ztGWxt<uaoy*@#11VQxmH-9%JHdZj<6G2_}dOe
zs^E)IoBC?w8pq9di_vKo(?Wx+1$e!LYE$%Cl>G0DR!EE1J@LP<y=gp%(M|9)46mXZ
zZH_Ls=!!K3*d|W}82jt^ZwftG<}Wx;G9<$WTge_57$@EvXK4_bPFZZytun1yy5ovN
z!(5U60cIS96F2WUGmdC}G?MdRwjsCf@n*(jqD1ewnIcB6iK@)J^?P~AtCUj>BE<T^
z6{*9)o<`%Pa<z32{7H+eLRNBNxpIwE>&+&@o{#DS#-;AZajuGet6J>u$DbK1po$+Y
z|3%a5r|}>9`1?}C^hm_}ppeZUPh2Pbra~BJd|Li1$RZ}sgg&v%_LcipcJZ=h_~Xdm
zkCpgTau|GtHWlanICM0fr2)@cz{)s<m=+lr=3(ysI$pV^{VroqWb295_}<Wh@BM4f
z_jJM27$A_LD%I2Dj5iPn>)k)Naoy;EE#q@!QW@*YZsv6_#divf&jyEs%)gkAh8s%#
z{`T{|qm1V^L9QE_t(Fw^n#yyOeS@k>{SKU0*^z<!O6KEka!scG9V$ckbWz^lC%N@~
zI-!R=YZq#$%lHg&O<)`-C8^~7;P;X$h-*C9q4(zOWXONt(WD^RM9xY7eaa9Im&F?l
zxiDI<4bS>9a2xU)CnIm(ZmyS@P`F>5$^7T}C3m|||6ck9;TQa~{^!h9rr*DQZPq;e
z=b<}ywf?UiKJh0Ny-NABkmx>&<<Baj|FxGGtynm8=9%u`_w#c{pG>oU{M<Qgu;=AJ
zoOAx{@X%t#V_eR8MsVM{cfdC7S8t)+g_=1iGtNG!_aiK#Pq(|nw_wu34?JoJ45@Z=
zm(i}hzfYxiq$RGT#4Ox3(y|+Ow2)nXd03h^{Jr{?#0wIa^^df2j7>j|@zkyB0gS8a
z_T!J)nkbga1-=dG9`Wa)HpgSyY)+4V<Le3TWu@-M(%t&p8F%>moB9yr74rX8WB#uh
z(v`)4Apd8NTmFm;#Eh3|rBkjd<o@RQ!T+PZ_YP|+ZTm%0Mj1zeaeNgK0Y?!A3n(bP
z=s1c20qN2~1f&Zg^bj0WbU@GqK?p@fiU|;UO+i60v?vf-AdwmfB@hfD1d_87=l#Ap
z*E!d<_x|I%zH|1q*I%&8vz~I_zx#KW^`sRwwXWgo#U5rXkWZ3#k=GfDXno8Lq;S$&
z4hK4gi!Xdapk$V3R^2gf8uE%xxca6g1+dh+<%>96QA~I(Sj|<WR0W>9n4KFh))kiR
zw?PoW{Dvj({k=%bw9-7on*h%OT6?@Fiq8CrZ04Ivur_?XS<Bel-@!*UU1qx%cQDI>
z$L=&gdP<f=!?ND3I-A!4pN9j-;Q1ZQEyGvif?P{<aG%l&)DdD0fa^;}nI<^?4QQho
z9HU=AT;Hdd`z}@>d>{d0-l7kaekp5=AJqe6%ZR2_6w;iT|9Se2f9&Xa%}7#{@U|8`
zrLVaJ=iU^{@vgPvrO>VC+XLB#f(%}c2;xfjA`gwX=-n&JT74KB9p9zUA;T;lTpSBf
zxM$ME*-P#}0?0nvl8Mo~bXLscR+23yh@+A`2)99-*fk#-|8y!Mklh|3z}978b!ATZ
z2$pZ*O7w1jdAcvqnXONz92);oZ0!Wlfgth(0Cw>!nSV*f>QaZ)6{^9JN8<v_BIu6<
zSD6j>0hTGj+$6WkjJM_FxNN5}0+NI89Bj6MaIR{fR~a&G>Eat=o7iuVFA*jxUw7T=
zfAmw7y92IaGfi1$msh=@G(KF<s7}u}jh;rGiV6X*YjMC5v{ATWIk9;}PNIZe!+1{i
zl>l&kU%(ZzXNOxM0>*onyzG6h*l>Xxq|c0HCx(=+ZEM-egR2ou@4XZn=iGKzPQlMY
zCuK=$?y+jLM<|-ks*~Z|XuwqKBSHLnwBg#6`ze@U#~}9gPO5}MT1jttJcek(!)xAL
zs^obzi&OJa{FpR4$K_<GfB|C`3_^X|6^%9qGXi~EcU94)Y$e2AA|#R8kZDLcgnPhb
z@|n3&P2EwsG=tkcaohFoSi(5zt3>X-jn}zR-<~H2d;RQ=U4dV%7i;-RcJp|E1KO=m
zsVz1D!qeT7^;)afoH7nzt+sTHy^SG<ZxM<(>V8b#f`YN3KqEvJby+A49yyPGau0Da
zEM^ie4U40sFF2BU3+8nSx6-IKP%k~Bs!dzSHAoDb%P=*!pE7zks+SAC#{S08>Zc&k
z>JAP$gSwba`oVbxVPm&yfkhznO?T#)Xpe+>XvG=S5&2kJIX?t}MwA!Z;q=kGZ`-j4
z+zCxz!m$N0w;&)y4-+j_mPb?C*uKa9Gs3;3Oj$;3SgSr&2&4&ChxP7`yKM)s5$1IP
zQPv0#js~ZUst;Wxl1GPed=|7yuX1zFO~LpbkuioEa<Ck+%q=tL%i#mQ@`W8r*q==|
z9R;IgE{^E0*O`Cl>T+o$q6Vtbu+nAgpd2rC^m~|neK2b@<d(d{_NQ;Fj_Rf5c7_Ep
zu@F-PE>h86-UjF8Jt|TR`{ox7Z&!L5C&(l_g3ERwV(Dn`IVj()pTZ@B(F9bl(|!D*
z8SH!z4FBa$vJkPw5};1=xO?h%fB8x+8Rzx5&6=A3-lK`;*hQ9WmEHk%N(2tCs=gh}
zS!FcD@*O|Scy0OSb}YmRu@^2JzgR`mi=U!GKHq^XKQvz-!>x6LnV4lqdHY-!od0Yi
z0^N^3U|%FM*a@pIeOqGxK<rI~qBd^>3-oy&EaN~54m)3|Z!fS7Dl@V%ENTj76X(aC
z_BRUK7VAE&_jUZ{I5x%`L2e4UTlEu1L$PGpRo>MQP5julK8q%A`=%=D+{+i;T~P1$
zO0VOBV;Rrc+<vBa)Ef6{bBz(uRl+4_t%gdF<%M^(9JyfI5*vZoThg<66H#`M-#8i}
zb}>>u&_>ioz{t%VOz%1^ppn1uuwBddt1gO|cZ<=!gDdfGV}jYsQh~M0cr2tvM4-e1
zI)Mk|ccZ@F^^1JfoM>Lfbk1EV`#OHhFka6Hvxz>L$5|tX_OIsKQzRH7hUL*Ccj_z7
zjy*ZQQJ)b?T_x`=o)VN$jlXX$Ar?Tr>3m@<#AmD5JBL%AwYn|A5G}EX>tW!rh3<{L
zT{=uNO)nXL(Ti_A0@NAVo1*U29-Y~pVtJ%Q#GVr%o+SyKmszVoEA;_Bao;X|XZ)pm
zuk6D5l2W9d+oO@b?R4n@5lL=oI%nI$d!M!XG&7XS_H7r0yb`fFvB8Hx^RR4LV~8x>
zFxqEp`F@OO@o&ih+9ZhZ+4{sVGSi`}pafdrt<8U4B-j}G&TcG`*HB)7Vw@sZqhMLl
zix0_;;@|zP3bnu^6@y?@tX+Msf?)Prgb(|Pzc2d)`65S$SwPm@y(k(VFl_%_A>=xS
z1sS~_we^5OHLnXA)*OREAW8GzW#vrkvmGJiLB@G9h-`*RUe}<%nFp)b6Kq}e?ukA`
z7hCx7%=tq1W*~c^pJGLRQIwWXqh1kNKd}ryw;jyV<X;#fYq>9Y?(7kfINbX6-+cDp
zTwnmZ{?+hxQz)d2u>vd&id!S<V8!}A`4#>j?7tY-B%<(tQ@|&W_C@78ZBHbyZyA=m
z8&-JMecSjlzdgIde@BbKSgpu3B&yrP>gSZjJPtO+vo*=>SG6@N_M(Q&nfEUS0&AxX
zg*C)Ruw%)v3*4kTLziGu$*Wt8*WyD4(EzzW_n;LWS%*Da)IMEAhN(5}5xeE>X1)DQ
zXmU=VWzIJ3@xTKs1cUf&y=L^12k-k=M-kkijh@sVYyiRzn=kk3kl4PZ&x{pGIqit2
zJZiuf+`idG4weu^hhi9WS2;Vy(4W898H1Omnr8PWoo&jz9JevH#{1MLlg`|(Py>{r
zm%sa)*`COuY)gxfD^XU6gvhQ-Y%z~}Nk^L+7mPRe118`cjrYx0eQ(r`1ZY&Zq~%-(
zCZ_Oe{rShn8{Zs&(}2tM*w7ALuCKXXX)K)fgo8pk?8#b9z3(qtkP1aWUIphg@gFW-
z6basN8X%BEy(vtCo8O&*buVDDj8TM~RKXj)uva1)A-33h6A%el8P(bqw|NUvy(8fJ
zS|yo_lcT3<2Ce$1koNhdcxPxs)7>W!g$w_wd^?!p=$_c<txhs-_ok*u7G9p8{@W`k
zef8RY#Vz!ep6L9UF8~4*ijzeh^LP>{+$Blq+WcE`j`$}(GR(C#eA{FOsb)N$pK^Ga
z1s(^`Z(}dHT=#D^P?nTmQE<kUH_?BYrM`|?3Xc;og2aL82abv&$;PX#<m}S6T**ih
zg|ww@N4MxuFVosL{9SFcwQXCPUlV^C^D63KqROpY8%OKXz;zC!tW=Eic*H-Im{P0%
z%CNR61Ty<eZ!Eog<Nkl>A+VH2{ytk9{vE%Nc%$7LssFq}h4{oV6i7>>Bq6+noWCjZ
zh5(HMhR*hBcb2MXpAi4{-5>-5ExGAvQX5j%q>!>O?|;5tx;G_le5x^*r^|e#IVHXC
zpSZJ}wF(80(95?yMDd^S^%UR;<>lwVSj<7Jik)Rn)`{;vnF#X$e<eRP?VXW*ZbMol
z5|!kTpA)?ZBJcWV=j{#A<GeX)!{!Zk8RJuyuD~Veof~aAxiZ%p7uaGXoMHgseif%K
zkzLW5y#^7rhO=Y1@%O>xE_AHD{(nM{#@Dh@dqDXwv&R_Cv030yz}mMl9E$0pCMs?q
zXKguVWX<CGR^(z=>~#b*0{D(Wc<o$5^e$|5ovm+KOa6BeEHC||rR%<KlOBHbv(hmE
z^)^K`dG^THoUb!q14|Tap_O`=%{X@B{05i|Jv1c3ql(dewSRIl%s&tl*_Au|OSO{h
zV8-(KZrh_qvq7c&x|kNDJc1v4oq<8SmqthppAfzLcR+a*QCiYBeIGxIs%?ZqF!LMC
zbxmgUwnqam%ijUQ>h?<Wugc~`U%B|B@QD<}*(0+d5zY@`w2qtrd&^wi_-KeNFxVtC
zfGQ*d!5CwBN319YaP4l%L2O!}pXcfXxd+{0>yTr#ZbE)1&aON%?(MThhIU79bZ-Qa
zG0Ur4C&?if_WY@+0bP7gKK<zK&%#$7E(R1CD6-`Dqm0WHXm^Z9j7xguOESr`%9>MV
z>*wiI%_-l-;z3Oc0IxT`tJJL_0Mjx9oY@bQC+LP~Y3;_x!|S`)nwHhE2LO^#yqp)T
zt7!x^uI+s(OWX9w))VW{>dsIw*>_X?mh6>n7$Mum+O=U$`P$cKgR}ORWa^mO&O2Vl
zb+T3f-d>SgHvaJsv72YrzLtSLbEg?KjNRsSN26MI^0G43wMH`DC=<@)S7+*08~+hR
zu`H9<oI0&|$GvOSglx0BJh}kz3R+|Q5SEUm7b$3-J<~1x1bU2M8|fN;0DR9A!6dpn
zg`WUG)zTrPOiQilxo(tatH4NH4BdWQoQfimQWX0}_eBZbjqhOMP=t}L9BF&b%T(zy
zwQ-ZO5ps*KRNr`CT;ZmD>sCdiEdb#%(l__M%vVH@hEG2a8m`fbCs9I)84<yhx_3=>
zJE>jZW|X-D_IDtoaVuOsaX9|V$EDHAsh`LoAds;>Yfo-JAw?U0ZgOUGsLeBwg0Egv
zAGYsj28dPIpWW2wEc%mU7r}!K+pdTgop$Q}tn!UKMQJ`dg1|?h)0PSb&3)TX%UWOq
zW8^+0qg3o^M@tmWnWzYs`<o`8hBVA+?OvT3!d7Ag;{w-kxq>i?10R%hG-mD%<#1au
zjJXTS@yfpyE+>Yj9#Di@6Sf14tAx+oPs<%QRG2q(6&u7~WtQnQA7__5gq(L*EWzu^
zD-KP2VI0Q1dgag<%MNw_DhFnsmaY0r-T1WxLlIz}sF_QMTrbclRx3^Bj@pff%x=_~
z*Ewvk887F(DA_I-mP!F@h(t~K_BQ&nN0pro29)-#+lyjTrQqa!QJ5j6PuOnfLjxVA
z8+X_xSyKfl83$UKk@L1EVr89^{QxH&{L8wVwX1EetKsdK<vNCxdHL?|fkv+@OYeCN
z84)|mCCPTEX7;uNo$7?U{mRWAJ#@h_nm5QW)l3t7{#K`*#0=eHGnSXAERpWt>Hx&r
zy^q5zZa%7?{UC!T3#h>&4TZJ?Jo0M2h$r-1E5ou)o<A?nNdzM8K7h@;l;f}+jab^#
z>*}F+dZ|xY#yU0>(#kkQenNhVI#EQ*A5j`G#1W}&3%_oOm}!O|@YGvniu#$4gUYca
zx6ji%?<|nZ0e@dksE{pHk_T6QQvHrb!@nj63r~tAi2n_`|Ia{}e@Sxbc=_nLn`Kb$
z*PI1W&r*b>7>E^$lSeb7C4f{aa1`AB+v9kC#D5p_N_J@l4$7{{>YzE}$~OIL(M=YR
zd`7S)m>;DlqH77>0Mp&(F-FPmmT5G1!_v)mw^{rvz1J~8h*z9Ya=yLqf0~bhLy}2$
z#r6)R76HGEEuS63b!U++?G?*XOO4#*FaFb7wW7R=r#kE@8TWcq=f|>tXeFHc=VelF
ziZMQA4TvHNy8lU*BlBcKT-&25zU`6!<kpevw}ZMy%s4AqtF!;4y~Y4n;c4_XcXe;z
z{%MNv!9H7=WIN#HU&sNzskHywyX8>T#Zz7=bz4pVlcE-giuc!}56^qi%J@G2VMEO`
zjlDs2_K_t<{YnG4Ft#+gmvMzmN4t{E(G>RfdsZqVm7MX<t^`ya=d_b4Xhd<Ey!Ci|
z3<cSb=G`ED_a<Z?jlP-CaDNwUKVC+}WA%Y(lL@<sp@J-(JGd;;rK1VII;^<)I6ykT
zt?wmUkq@FJfk4#5eqGU`9(@q~1GYNi;+}BzoVCAA+wwl#Rgn~koxbCCI?58IU_D+)
z%)^@8P$Ycl&RMVrqOb0s>b?h9yEMXEVgnJ$=yC8KF!LrZLJtpP*WHi(t`Yr@#@<Z$
zo7+$JK5C{f`SOt{aPd^8R^yK%Q57=-T)F>p-jf&pEAij80RQtGDDX&0@53djyV_cf
z38U6WwKVyimvHB>u@^^TydG=+V39+0_Y;QTuZ-GmgJ^^(&oZ6D&4R1iJ4&65-3-e{
zv2)jU*A>P@u!&c-cb>BpTJX|kZFxm!Xu#}0=~HX$9d^I?5SH2kd;=>rm}XC?np2*g
zF3x^1<SaA(W5p@M*D)<ZcOb-`PzSgfvqJ43Uy_Pq+TdcI&<z3KZT)_XXH*)RUqoaq
zCbEZ>jdgOgfWTS8uR$oi$?T!I&9wNoH?gwazWIX5h^67m*AsQV;)8kSc9vVO1K3_2
zWlyD@`Tbe6c{_Il^rJ3AG5fOD{MWHw?7sPpG_<z%NZspo+@GAcj3=7lAF$}5hh$?Z
z+XaPw-nMI;w3vsdmiuZ+IjbOmzDbai8u?r<pS-;DaH3)(>tGXokAqvdT;j&&$4s@R
zT?q#@2bwqNwgh8&MH^`8cx>6SpACBj50lPOv6J~vFqrPB$s;dA!$Vx4MMO8ONpClo
zu8hnf;Kvm?#)UB>2~d&j0#5L5ECt<M7mI#`LNA@CFGB@J<?2B6g8TWf@QxM@N$Bf`
zLFVQ7=tM>%Ig+D6pHzOo{Dh3LAc^GDBWo6Nk*ID*%ArbyRH-w6HD4d89a0lLD+Yjh
zTB+8J4w<FZu?$A(eZDAFBvu5RC!w`0JLJ~2MLSC+c<!r}z$CvFwOCpK&>?kFO4;8O
zcL%WW%p6&FzgO9!J}-6vz>4%~kCZD>7M<Xo2RtPKs@}W<_T27!!T}6;1J3MMjC`~g
znq+Hi6?CNHJIB?0^pgior>qtn6W7CVN6C{_&=`x3O!{SUwn$$qW&!9osu;y)c4*tz
z=TJp2IQ$uKnnizA{Q1b~eeB2kjPL*b0dy@>7!CxEgp+#D5;$}UuC_H`_o4_|61;VQ
zQ{*N5t5N(;w_nc*Z)?esti9Trm+{L^(fjWGEY-NBD!d?8dhOrd(!c%e|8W{6Nbl2H
zi0#r?*OXl5Ip2_8olo(iwg#UjN=8{K-tG0)I(qkn=+wf~zy0}Zj7#<_@snaCFD~D#
zxxP7yd|Z?d5wp)1-{T*m86~sWbsF8%U-{jG-!Q7XD{A1ds`J@y+Nwn8a-bOO_gZio
zodEf{R=8vd&kwBh(uPKHJs;k0%(^L1&Rr5^qdeaJha(8&xN?HXSzQKnJ<TZ$C-Lw3
zTzCnjt9r}Isdtc%j8SgXzQob8B`S4dw6(tOjzjq}_1tNEhz71c=IE`Sa;x!BAU*TG
z9&N*V^lJ+>uyonp)ms>{c3@K(r2s~VbteJM1>eL~Y%<AaXo3Cq4M_WOq*IY`nZo&d
zJxECxX^-n6Wx>@VctF>yH|<HVo8yz64*}6@ETNX$ep2jNLgYyo>upmuO8Nf#9+bL0
z5WT^S;u{7t7D-5#&p}gSwZT?Eb>yzGmQ8RR`9%o(M3BK&g)kAc*TT5KjKqyFcb5}0
z{<?u$a9#LmoH6YsGv0Mft>Lb-;2S<91IF9oVSWIZ4M9n{`!<Q8UCbfeGJK^MbRT;5
zqw3#jqb846F=AkFfqQ&-k}JDG7$@j=U+=`TF-%7hQyhnFJ#gD>Hm(yg#fKP|&ppgF
zPI9og*h@{`tMbwyvL*@$J0gF;=Lc3jY#qIITts_H5AR^!jw{lu6y_XM?A*(P2_=t&
zYn!mTe?_e~l_8y7I=LMMVKc<ZXmr7$VNn3>+%G$+A9-Qy0`e3pmt24jvFCITi9~)_
zddDQAqB`a(5D3~Pzd%LW$;piTOW0sV6Oio8)I{ss8Plf!3>2Oc<JI_mkz5gvu*0DF
zl}$^3ez$M-K>mcm&Q<>Pdv4Kf<jr?j`R_>`{?BXPe`OBzdjhlAmgN6Z`v)x`iE|OK
zMZj@u=m+eXk6*}E;zMI`Tv4z#VY~9GxY;U&{M`I^Y9bC7=(J{bdPszIrRMf4RkoS?
zY<+o`Ai~Ez#;d=V68$&jW&gi1x&Q9PK+#oTpHBIUn)thar^@&G0trGOQ$Zu^0=~cj
zK!?0Ctfra)q9>wS6{&zs_u2sVgkUSL4PBfC@(I=GB=r)J<O=8X^wfT`;xe7vLta2T
z%mj$I<C*8@Liti?H(l`7Q-+(l{i<7aj4fpOTcdj^^%+LwE>-;SXB)TKw^=<UA_4)8
zqKzvJZ2PdY0oG3`1}pU4xro7th+>7iDCf6QtvS_UC$s3?dy>43lCcHIrBe__!Eq@k
zGSTeb0^^J10X>>$46IG8c6R9qIiyDamHX+43nNm~144`xYxyu<2$HJw1dwx4pR8y{
zYtD)0<WdK-L+nTxHP`SH-NNdFU`<W_&~`V)&ae@*u|B|{XKz_<yqpIoe@kb00%U8x
zg*`h_Y3{~z3dbpjoC3tF0*`x3y!v(Mjk-MspQ8)2a)s`SaeR<w%e)nSK-6Zrv8EAh
z&ssk94rE~pxk!xlW1l{&H4P18hmhNM_!~AfIkVsG@b95a*f})zlr^!=hSUMsyinp0
zX%WecihSy|OIWP178ymhv22QPFpOIRNLd>V%BDb9DD<Jec#a{KF``XyGYNE(Yxd@|
zWoZl>x~pwG$6Z@kL*tdT7HMZ$k{VofwRH-0*1RtGmhC6rQ^rAYa#JV}wdGx6&n}y4
zH(IHT@f3u4J35rrpSerODOLorE0FThr{xV=tQHcKIoY+7dXo2WL6LSosr>27MMK&q
z)q98fLfdFmz-@?rfDd+{{zJsYk+pTjq7KW_Jbe#KpcNqXatz3-lDbpU+}fk{(GqsW
zH_~9$o8xgk!mA0Yo)cTpaG$s(@4RMQQzY<(;fAARwX}#%RqXx|NKc>8oN_+e!p*dg
zL|G^niPAY9Wj_PvSH-8Dqt|jo#;*PyK7M6M*qm6v$I%9ZuZ#$LHn@LvFtKC}$H*Yt
zNHvKVfrq*9v2q4moV*!<NG=oM?(pC6Tl(Kpx$$q^{2vpa|9bfCAp-$GAcrn}Q$*CR
zw{-PwMYHGb2jm&tGZaqltw<pnQ_x6zAWsd+RYpgVjsmF!;3y3c)_@3Z2y+4KHio`9
zS=dAZr0f6GdK`Xdo*bN@Wt-$+VlRi5Cx0Yo_z&&miJ;P67pVH6+#GM(e8;#<?%`;1
zY8Yq9`sg%UeL7Vn>F18@q`rU<7&GMB3>|?_KZR-UYj0V?*E%gC6A6p&o2|8MG3ET%
z(4=M=TVG2iXZ8W3hb+f}h!*jef0d`x?bGsfjnFY+>{jx@>^S*yTX|!g@tw^LBKZKa
zl#1)Vf|lvVc?s9igDm8=7typF-FSN-&IogXHZ_$fj)i#+eOo2j!ZdOP#y)w1r;MgG
zKM_?ryjNHZ;^VXBORh%Cca>IF$GEZIWC7*i&!8gpI-vq+Kd(Cl#yl2a7@`Ofv1iEL
z{x@>BB!F+O;s!4d>iH@{=u1}Qeqr?z+FV${QFd_kX+5qwB$tI3Qo&qcGmJ$rp4Fty
zVH02-N1Gg@_0{lEBlNfl7_RB53D#3;ycD}6v$$|1mABp~gDt%xWf(3z7ev#CjnH$}
zn@It!?X|0AVGEIj=0&gtv`;gjbu>ynYN3&?7QjzEo4NkQJ$5q(XgL%3qLnq94_?lW
z*>)yWV+jJ8_|>ie2Aern2X$N{@!E<9dlzVp;E`f1H`jd`s>mHYn(Y|vTz^);CQM2S
zMx3ea7rNoqEH!G?n6$;9V*G3Xj<wg<jo-Gv!Gp(g7ib#AUn6Y~jBae^*LTBsC_XPq
zP<=wH{AoV47Z*;cB1O-|8u!0W3VeA*`!v(pxlWCjlfRW|Sr;0F-NHu`S?<PDbz1QO
zuH$v~CgvS-$iVu0uY3sofx3_Ny4X`>pt#E=zORmD<XpS7wRbdv&q}PcTdp?Ct!87H
z<Y*catbaQA9Y%mh-1OkSA3jw-Fa$#aM1CC`>-d0l*0a|ay%4Ay5dC`i$3>J8;X!nM
zS#UH_TY4QzwDXN+KkNdsAZ&8PQd93q+Q#fpH8pS4-l;L`*Q-%$K&&9N`$*h2EswfR
zHzOD7*9YkbO5*vN*;_76#>Ec$5rK{2Q@{;oTq=j_Kg5*@q}=20>XN=@-*{56$jMz(
zThgbWg;}+ns-GSbESc4_m&AW;2QCu$)oLR#pV4sp*M)e#K6HEXA}5lN!LMeT<HNp~
zw(mQATi2LJ<)`db&k~N$1i@S?6%UxkJ+WIVBa0VJIom55KXy`a$j?rtS&eg!`Je6h
zmHagOhk+}@<UTyHboY>7<RyYV@cRr~c`_UdQqDH1r#|;!eJxSFF_W{YeSsTG7^ME#
z+|VT*<<AmqKXs0E=DOU3Liem`U5wri=!tY5Ee1&iuml1putlcg3VE8gz0lp5c~u8p
zi1UIJD$6`^4Zu^UX$f867mN*EPSua@etsbp?zMWsy|^<UWSX}Uni&rmFM%t45f>$y
znddm8<b$)6-oGecrh9OOXKEVVAZ;$qj?t9tt!?*C5?;Ghi-aq9QCmnvMrQiX(V`ua
z_o6XpJ*n-=#=P>{lsT-wsu@c<h{b`G>DD`ePuqJ~#lItJ_q&oivbS18k7+q5X1`;1
zC5DUqn-(K^>hy`{nY*fs?Tu@?k7&O$(y;LgfK2~KjD0YJhOv(<;|Ha6;B9eroA>&+
zm$T#Id~6VD4_$FhLF~uMiU+eGOor=P!1rndM~+`uXr`+~D8<S!s!&e!o>%2AfG60O
zA+s1<mNztt{T}$ZmjG0I9!4S;(XkzjX=R51Yy@IErrwrzH>{9CvST8t>N6;U5U2jv
zjuycX71z-f_OI}rg4|fJdi0L_KR%e*f9d{@k3Z}@uCA_Db&Bcwe%Bv|tXd>0{wn`5
z`S||m(#b!MA6NS^?$8hE2kmz~*md>hiTytik9dxpJl=Lm>-wjQVdi1$Y1!NxxkQ7Q
z*>FozH#gompFd_4>5oD+`=et0QRx4*Uj8@Sed_}el=o~p67G^c{g)E`BzIn^ez>BB
zBS*7<SHrg!lt{8|YfqHiO~VX`yFhNp>DP%hbM4AQL^a0eDMZdKk68ECs39_{OArHE
z&Y7+Rxn)lmjKms+)LnAvgl(5L8L47=W)wW?7L>Ry>w`4pdUnC`QPZ$9Guijz;av!q
ztZ4*@nls&uaH+?1pMBR8Fy4@>#4%+}Dk*~ed<if62Jt$?Z5xL4!s{-U-u0!n%N6f9
zwWCU3FEzP$N-iv?EL~N7I^9$}el0F7XN@1DpBIL>(X55Dh_Fh+N8Z<oM8v%snJ6!`
z%M`TI-_|0hXZN-hZw;9#E<It5x-9STiFGW8D%4d@&8C8k5M0PthLWYZHs?f80ME&x
z*$Zx|{aAoAqvvTsT-_uJb9H{xTE*KVe>i$w`o`KLHrtQ0yKbq5@>j_7<l%d<gF8EV
z0x36DnoF)o6t<S6v6$6~4%|pIX8n)oAT^FyKlIAAj<`3Yw7OIz#$vv~^{v#_AL_cU
zHyq@#X?{O5@AYT(5z4z3Uez3sAQp`e`6Cj<=TjDOEAbbIu85<c=rc=2jqB<a((e5=
zloY0?Y8n;FJeDeVQdjS>ugc77U6M*;)ET_KTG-B)cbyq`WFRH@{Y_nANe%0prvyn#
z(J*+vxoR`zq^|cfzJ`0u3qj0WwV{<8vdggLjtSf)J*?EyGONhLSwFb9Yi_vwMizCZ
zU6y>mA2Fs9i`n0-3h~Yb_NF)MJn#!!x8VYD%DVUCN?dOC^g1Xnefl8J@W=JSh3~6W
z1rn~3hc{lC*a%u4iM+Nu4`DUMsl1V&I6Gq3Kq|bDx{wi}*bx?UP5XSaDp<PGm}0Af
zy!BR!to?f=)g*hNl*G!PK4GWV1=LC=vzYezY*2I%Au&RF1)DyFJw}`e4C&}$SJi_(
z2I-vZa7#N+MRN3VQ{`gq^4-q3j8;xweh(6{am?{*w0wHR?F=R;t8S(gui2M~X9m=Q
zF42Q?rX{K)rCxd&&ic;1UCc$?8&nTWf^WGVT$dX<vt*Pu<BV#+H;@{nnu1V><hxEu
zb-30NlE%xT1u5zu+{i-a=3A`Pqr@=jd(A1SYY~Y8%3vz8T2rr_bm2!q`l+q7$d?$k
zv$18d{%rhdgbQK2^vfGyb&u5^sNTADtz+wTx?;Qq^P&lwOox_f`H4d=no5j@JHcVd
zX-l{Ze0oMzJLQUCz@(^sOsl|7O`tWCIp|joa`X$EyBv@ak>A0Z@E4>&+aaHWY;s*5
z=-GaA+zqwnkL#4MpOE!_%%`=2s9M8<tn?TC^&^?6?SLZ>Xl3ihLt$=%BNlL=;FE7T
z61#j$-8FOQa)63YW7R0Z8LoYj8wRgeZiIDy5(EtnL9CEJ)G*#E(Q-75dzK$8wW=P7
z$8@QKXqi@2x6jA6bnP}A-P3v3n@L`}=#T%HD(D{``QGPxPF-6$B?$iJnx8)O{@%~a
zJMx}~#mRVwbhK%ub?X}!c=1MMCoD|EJP)q7kNcJ#=yF*IcE$N>6SKzeJk1CPbgnY@
z<xCMMFN5{3mZ<!eC+S=PGbcjkFE<&eP(QTN_hU;Dxk{0yEVxn!V#~Ah6yl1^N$y1Y
zqvdiC^%<9-w0+mKl{Od=XsQ=kvQ9!Gir=OrplHqcd#x#coai$&>m`Dp;%bE}By4}z
zz-!=Ydc%dnrN(2#0JwpU_xp770bki~Aa0~rE(5_Db)&>f-|JE`HXerEg2R^2tE0cU
zg31*Z^E1OjV2LTC4-q!kW^u;euk+p-WNdQ}&Q^xFyDtftN&*Zf<@5E-8OTk_6Gt_R
z`8J$)XZS&5#5C)DfQfa{FB^AFk*nR88@x+VG>`qF!6g)q8_Zl=hP&__8oR6yMKt!n
zLx<MZYbxcD@Lme)ocXNWm~1j<;Hq?KYYk5?1A&P1{JFyp6x?vf;9o**assr85KbCR
zRpBlNx+VGM&lsBzorrn?i`*=?><r)q@eEsDr(CPT2Yy(f7-=vUm0%g%{0a4w(SKM*
z2X<);HRYF5*Wm93@*vi*64Ny7s;O^JvkjgyR{C+Ps-e7d;Z^;CWS#VBHB}q!yic_h
z_+GeyQL=eJ1u8zVXcLPeEAQCb7!U6#ENwHSuEd=rsu$&&oV6$497@X{k2if8nrX*u
z{PMdAIcOAmw95icdpEhUd~(tQ11OyN8K<Od>W`B3?oP)op^WOS;`u5OnhMpfj&iv{
z;;;pn^)O|&x?KK2D$>T<2-$B`uV|UYjO{-QE{nBe=P}LwG}Sv7BbHC9_B&O?xW34Y
zxUFkqjV~amB1qfKh&U7YLiZEjT)ikBUf9>CP)lX)pD>nT%s`*kmDQBgg892sF)voP
zUEWeGn$x_Zt=Rmbk8^0PK%3ma+h6p)eNr+;PAjOcndV-IB7s!<TMV>jo>w$IjhXv}
z%P<p8ccwhHli&;;Qkkh8uiIAms;p}BuSMlXX8Jh_HFV8YHTmSl`KTz!Y-C$$wRbrr
zq=dRQkiKg+I|ohcS%<o5U6z?C%)Q(3PIXAYnHi-E80l67<SQo6Dd?Ba!y6bcrg>I!
z00OF0Fy*J$G~dTC<jIZ?M2w=1GGy$T(16a)%0-$MnHb%Kx?+OB7W~DV4D20aLo);y
zTp@sFE|+;hj}&9I`s--oi+2XTtTf3^)HP1c`pL>uUV!k%-aBfqsM6^*N*uGSE8xS+
zTY<9)X?Gd}#sg5CeTv$GOPynFLm*vC6Pwu!7!&rAa<px7ba582v$p=1r(k%TUMxva
zsj${Rpf@J8X6+1e!-5<>v*^Yg?uq*+YTlR1v4YDRtK2=7&IL6NkTd$KHlh1yoQy!4
zOtTSyYB_9t`NHRSs{QR}MjOfXMqRM%I{l~@0!FD9G#fCgsQ~(}l%!8J8xZF;KLiDI
z^q5!IBfcKe{GebV`|bQbL3%HE=qWI<>Yu1uYh_v6(78gpVatxkjdlUeSg9EOFGUmK
zk|DjdJh=$O7_L62r`|$jxPJ953ja1JgPK_XsALRmAraFxKIsOx;wugw+fp5g?dJLY
zK(UBD*b(+yEKD}eMyuKjmMiS<ofnXjyd-~{L$G;3V*P~nA2X;oSnQWRw5k6aN6h!m
zx2u~J`h#)6RQTQrcOm)z%pbJdNY?Lm$joRQgu>SAvep<aQF6_nez#t9M*^!qOt_+Y
z!p!|Sac?>F+)Vtd<XsOaRl%ZO`qf*oa?(@BS9fzYL3w#I4nA97(jVc=mWI>A8P`_0
zk}L@C)YikjigxvWk<c?Lg<C)A#E}-Na@`j<>&zixW2l9jhGpFc^lucK3uPimC=+Do
zj?D{CSxzAm^9o;g$ja00vY@a={gaEFGJ~NdRM#f*$OA>iZ9=cSM*kUbnZ7-a-uBD<
zm}ljgD$9;Ow`f0=jB13&uGTf1Yes3DU$^p=EPHR;{80wr+L#`7NFiCv??ljo<U!<&
zKv`GY+m=bV!9uGdUa8Eq&k^398Dy<0rCElx?wT}8XO&!Yrd)toFB#We#^Y;81!cP@
zeEsy7)Y4}3K>T9`?t5W|g*PyM&!mz^iu4>83Z%&B7}&ek@X-NZZX}4y@j?Kg?c^@O
zRrq=@o8~^~slDCoWN6s6{0oyd5FI7M&NRdNX03trn@(X8M=j1wW~j=i=bN#HR4sSA
zM6Qg^fZ~;BR9TazKy~MlX3!s(ZNE~KqP^kjXMX0OHYNQRV%*W@JDngGX7)}pXGaO2
z01bedUeO70BdqQkUvCy7_4CDC(rk`wv|jr3n^TLp*`uunLB-?b%AD-!D|W-~e{rLm
zYJjyUNz)4tTQA?jsS>Vp9Qpl=kw0KqOcEeFAV7BX9&^OlpRnHbD#AsGalF>S>fSv;
z>ZMN6+EUTp7zm*5&BUAv6<=mFOXnM-*3ND82{$;MrDO%|O`?!hZKTEwc_Hfd<dAbU
z%R=FKbzsPh^>WeGwVpcYUG)vD+1a0@xt-api22|Oj|g@H5N~OtJQFALM8=m#7%oc$
zFc~`Vdex*zt;^@^PGEv9tMaAXW@rQm+Hwl$Vwm(fT5(kzuc24r`Ik`W$!dD2LHe|-
z-3BKjuQ~V(z=LkF@!G!YzSAE86;#VKUw@az8XW|vnTj`yBZySy)}`;SK;AvD{GFa<
zXc+f?^y4oKqsGp88@=_!8>LTM$X?9R?xePdXcGy@{WKem>{j~BX^ZBbjoxnR7Z-Z3
z?xE4@vyiGKy>Ast>NouKgW+Ld9ju@3g-^Uz;FnBLYn(Y~QL{fF>`Gnn^LG4&*BHQ@
zXdz=0eCi;pZ&$zE&QytZfy>?brfZ~2)K=D2k2P-PxI=uLs{ms8Hl0jQVnQR~n69~w
znpV}cJi_@{QvVgorwe-*3b1vxxi1S9?0Bo`>t6jPNx_`}t=n@eD>vQbr+6bGF1FXK
zj9(Z)U8iJin+;3bdAe6l3VHlkWyRW|pG)c&EFPzQ47`#X*eqojY^qS6_nhFMtwV(j
zm~feQDnDL+M1d9wofi{DAr;o*i1h@5J9@<XvEzq>L*`BvC;Rc7GL_tOas3nB6uxs;
zN84?CS2xO-#f`PLbd|*5FOk=rYDB#JYfJ2<a%iG99(QI<(b=^|v#bZ`NXXXlx=#_$
z@M93a{)Iaf$lcMWpWiP1mHtsmiyJx#cu*Us=FIDP7Edg>m`ppNNgEjxzfip-uT9Hl
z>D)tv!Q!>NVqVl?AXn-?QLVuJb-uou^xvpj=rfq05EZGv%$tQ)R)YFY6})>pxO3{R
zinYSX=7>_g|KSdeT)&{gai2K+SXq*JIU;E2^%d3ApNxK;ky%_r#GRkXTt02BaA5mI
zy82tBUj0ymU5213az&wy6+$_+01&gl<sI3&Kgw&HSkHEE)uux(mfw(VjIe^&7p4sG
zP}H#chH||qMBlREIq%gH(%YP3GX(a8cMQ^8&r;$&s&nBO;B&oKrUF*#zrhXv|JN&D
zMHmpDC@GG!E;t&S*f8EdQ3?q<PjzIY(=Oakq`#`$qYvW$HZz=039+y1lLg`7Vete!
z9V-@Ca|P-vmQcodpQ885LaFf#abg!0#;oMzUuRXwPNeOtLu3#a;hWbHTt*Y;;%U?B
z<fe1#y+(aw#JREfijU#ae=Vp)-+*VTaIeGFPc~{0ixJqf#A?KtVRG$@QmS&iR7TI*
zWn3>b7S5Aghv7*n-{x+b%0Z43Eo}v~_KWL^aO|<d;BB98Kw_$8R8O6_JRE`9MHOW1
zVZt_2R#bL-s@+nqHe;MHpG7ZFgB+ewznsF=*B@q<Zjw#1LGwySielZ8=YyLyH5<*5
zb*|ad5;mP#?CK}^iQa2*KV!g22$!6&G5UH=rqQ@=f!<mzSx^soit{{3O62U9Zn-}z
zqan7r^6k+?IdWRRx%<bKzYLBOPdb*G>uY+aGyC<3`_FZ?B62Pc!=m$L=SM1fHpAeA
z`D6SpIM%a5(DlV+N5#LMs)(V#IVZvtUrc}7J)!8dL@4w;Vq$acxAD;XaZ3)0eqr}Y
z`jN~ps$iud8#SyRQM)jFGA}*MJ^s!L#}&TSk^UvILQ2XBdG9x(y5zdR1WsU{SBH**
zSmKG>?v`QZCi7U273K&?Vb}^NKW{M_NLv{%9u-7NQe)pATVxidYzApu72g-s^)JbV
z44<m3v?9*Tp%MM14<^8NUTv?HI{Hd+ci391;EE^F%dJpNJxk7_t~#^{a*aNr;DxD$
zKHY9RRxVxpGY}s9T(!Bk<tZGiU0{*w7;J}Qx)(-EFtIQ2X+AZ-eR4(%2mx^S8!Te_
z$5f-|)83$9W0ia!Xw3)|f708t@H8UMfM}`QNPVEgzY5PcWlbnKC~<GV-Oa*!bFkx0
zro4CHG$n4m-9|HJr1FeEHIr1g@S&!6aC@NaPQ-S0`mBX%@mIh%zYqmX!&W$4j;Yzx
zzgqyaTaR!`Reun5oQN!H!y%@FL2i1F1yP+Y)y(Vf3VgLb(Q2xA?Mj4atf|j05{E3!
zSSEHGa$1j#LBVdg;`swVAmYvytc82R5uE))O0IdN?ZNTaa!S#+;o8M<R03SX^&`(_
zRtsm6efGCVAGo5a<Kt!c<vg_;?-n?{Tg3+`dcEGp63K&<(dSCEb2@x&W$r@yLriLM
zO+Ds@<G#RA-C?G0Bo$I#N7EaDKm#Y2WOMT!_jZ+aU0l@zDdbP*g48ToAJa+10~-Ed
z1=|_6k>r#-HP-cowM0Nr<cd-4U(CfrlR$>Z$riR_1EoZ>-!=^R7X>WgiHEZa-}nJ*
z@X(`OzfI~S7c;_p7#YVSW|=fZWviUzF3HZzlc?&YmU#$5arY-m5bB=!tWo@(gYixh
zA?_VjCCc*HpuvY~4Ew6#<A86A|4K4l3*}v3tI-V|qJ&sJ=AhwQphOP;x~a;S3kb#p
z^Tv~fZ;L^Z@fGh^RSH|ZH}XRKH}XR3<-5A%Gg5rB%X@vDA)L4AiiffXG8K^rNMO0P
z(0Dkq^s7$h_R%v=Aps%zzXZqeZkZ-|I!7z`H+^!FgH)k6hi#$dZu%;VdM*b-^84-^
zolWhs*1MtTvQ2}^wINfkk@3MFgp)DIIc+@pdmQlVJIU?(QE5IG{+x5Pp@MaQy>){-
zON!nirKp^@DYpKsha6|;8*4$5ea&aQ2YRNC%rX~>-;R4rFi~mVR>|QjbyhM>CC;EV
z;C`QY`trTl4{*QbV#Hj#YC&f<USOxm(vBZvzT8iO*yy>YO7r<HK9Ld1g_2FTf9Cg{
zAq0PH^x_8EIMA!hnqn{X=xsit)JRbg*4H+*p3==!EtA8ebArNGwBFU%7Rh6qRoRo9
zXJ?{IKoTL&z;Nqo-g(*Oq~#o_V+Kr?ftRdC5Ot@mXB*}D<8Ko=%61zPH==M$Qq(K5
z<Z43juRy)btE*G;Sde4GosE;e)*VEg(516le3Ka2;0mAqRW;3G`EB@bIS5?tf&5_I
z9!r%*7~Dp}FE3}BqRFrw?U^%MA_IY$KEKf43fJcAytv50=z;&Y$(V@nhIiQdDVRIf
zERfni^c<Pj!B{AwCjB(rCoR?$*6e`jp@!@4P`7sdN_>!M93quhrIdDkemHyJJ`a0p
zQM;SStUR@t)@_V^XXN%#6H{<^KUycBSJsR<oXjMgYy`t?cCX4GX@h2_EAsFmrUrzY
zA6Gx7zf<TvGVSa8GtJP3;W_@L?yo7AZ{Ug>IQbYqxbNE>jNIFlLB+fdO*jw-u(Vsn
zzbQ13?g=<BT8eP3Ei@;~zjilN3CtgA%S{<Pb$GBasVId{1%ikZ!6Uqp!@=fyQ43OY
zHY!-^M*|K!Eq$s#9WdjD*#qx+5VF9W@yF5l)yCfn)Ukl09k0<(_~R(Z@nihqb)U0^
z(U&`AFrekk0N8$Hoj;cdC|GD;X!!X1=1woifj9D4UfEt(0HG?SsHc6~AV3uAgXge=
zT9!}M#_#6rG%W}37~d8Pc&4qVdhfL2{q{88q)TkuWCPM+!d+7((6FkCc(e{NAn(`g
z7n%3DoJ5abSYB$MjQxZa&z@X7m1^nD+A6$~R8=2O^ZWfJ@Xgp4(t8bd#D2hw$L5k%
z>lcp)tc^a<TDap7<Y%M!ZW5{O3;Z-zn-_V({rdby{`5U~<kLb5AXVat70et~jEp>%
zJ)pA|{}{j%`@7Z>Op8vhzUIdDt%zcWiF}uB7!coH!(TEe{3*7y@B$(DT8zG|xn(7C
znhR!eKAc({vWUU~F;zQ-t~ZC4zK(~u&b<jfnG9Jm3bn}AF8$#4Vm?`-cKkh$acWDN
zv?tcO^DfR&{@7H<cFXSQ>(}HD_3Pb$_r2ENx7I8<l{>xZ6>Z?982WT!Gj6$ld9WZD
z7H{EFJy1}t0vS$4E2;`c_F(FvIlQH>K~5nuq0Cc!o_Q1wEk*r4-~()~F7;R(Fy0{t
zjPYFy7wscmbgUG0!QQjj5c>J5L<m%xHJ35@gU-(xxt9CH*1fc6lFi_8mYpZ+uCT9T
zXbc_2Oke(AUtv~DB&UA`KfhpXG{qiQg1K!Q`gtNoxnzE+$#Qc=P)DDS>s&$bN$+pG
zGnw8seY}bE=NagmFspnA>2gyRm`vm3AK+&zF#}$v(d~HB$X{m9llgm#ANbwIu5Gm$
zO&%GV;RY5g5B8tM0^O|M2b<=>vc?DZxxzJk!!#Pf)q_L6;dh_MG(X;p-qtdCO6s@E
zb%E%TjkmUFyJ*dffXRa00yo68^lTgZ;f?&JJMfV5bpd@RlY${&)<bGPgzwPGlX4T=
zWFg7%h7z=D2?1VZ#tfRtKR&Z}=!}CculR-}IXIgg3JbOvR=4A=DVz+VT-MLH%J^Lo
zvcPPg%$b!Z^GD9U)hE4^eL?rN(Yrhw4XcIGbv@Ouvq+L_EUJ<~XBgJ|U?@_<X=_!{
zdiK4`pq&>?aoohE_PgAw%9<D6^E2(}(<nz&-F2|OW~Zna=pa>xv86ommork;2&rs0
zGAgLO%2@hr(HUxZnh3=8l!uJ?W~i05*|Z?DOh_1c#x`<=zdZna_|3|Wa=I4O$@R0(
zj3-=v`Fi5_99R~s^($(iBd-5o(cX&H@RgmPGf67kuO5P|L>Q@e&Z=kIV31;q=&gu$
zA8fk5mhBJ2BJR3SxXx|Dv9g9t#+&ZNKT{&o?0M*oozQWA!hGjkK4zW%^b@apXLRE!
zVzLB}K0TUtkap2~2j;DT5!5_`GgC<jF*rXk*<>U{GPXe@Y~)zEUpu|X@M1w~8^T7f
z{t@N5zg+gvm!S^dn!4*a^Ukp<MRVO^k|ir4J-V<XO>mE$2Li7|yzbI#WQ3tisDl1K
znXWSzSHJlS4oLQyuh(r?yQmNevWu3^rI^!fT|b`5!GyA+M41F5Nktgm#MGpJN&+ST
zH${gZtaI$|{nXU&;p<-#9R9omC<tlAIPfeLV$1T1W8&ghuDT+oVRkT5HWF;?cj1d~
zmU@5<tFaWAb~b#=uIb&CAj&sA$H;T#z((`s7tbPNZF$K6QM@w#K7Qt}{@ufO^`dsn
z^*3v7eptN%$~!+SAlK--pS+4#;Mb4|jxhR#eUV-MurDUhGOg15o3FHT1`1qd<mYur
zzM3%xTkm8IXX9ev9g^#`7c<3&O13R(1?h(-%?6oqfJ&3{wdLE+utWKwrYc{LJ3HIl
zE=|n89+vo?e-(t+oB_whbUq%xA}i0yGMo+>Uzk45cu4NeK7xX=bwiq3M$XbDKpNRe
zTg=^*Q{)pIb+^z_F*$Pybus9s>9vCSyxcDZILxAozVo}hOy(oW4<zTZ95$qDG1oXO
zTf&}~takhY5z8Y^$!>dq*A}5UvDrLZo}#m|4LC=CgLAjDU>U?(VX$Rt(k*b0`^5Wt
z-$X1#83j1_3=m_d&d?^J3<~_zmI1e2y|h4$;2<ee#w!+PG$^XMZ#rz^mC8(7smFS1
zU(g{KMDj+5zhDqIa~luqp4*J)xWrm@fbc=_&yHHKm=ZifRaD)2*|M!5TzXzS@QgfG
z>|4;*-ZtNAPNmN}J(<j}@7@!uMC3%ilxgCG%wprObpkQB@O{uQVmL#pP<c&hF!@yc
zP)<dXW_Bjv##MOc9a>G2eL5hgwzy%F2vfIY-OuRb{sA|}@Z$qUWgVM>>0lQ_$@aA6
z6L~}X_=f4zR=mf>r;`C!EL5l9OS$5wt!OtzO**@rg<XbJy$jID)^Bn%2p(Sq;;Sk%
zYoP+&iIA5*^4Q4kxt9W7m?I@~6O>-G)+zq8u=7l>k>=sfz5UGF&Xn1xYv>5t>3#=0
z8ptt@5o6=#tBE~MG%vzN{6<7;HVI-~v&*nXJ-!lxJOr1M4oRY^7pAa~v%c1c(oNxJ
z2$u@mWuIn18+Y?Krdfj6jhAbCt2VIs{zab<-ywOMLz#h14dWK@Sf2q^;~L?>w*S>$
zT@^X7aXh|p6c&`-b2(OLCWq!jydYEiiS8jgbjMba`F!L=785=lEjhV(oV4JkBC}fV
zFL3{sk<4X)`J*=!bqxb~$f)VBv@XO}51c!i7Hh}r;*0IMcWnOau2&(=s`A#YTya=*
z#Jxi`NR8sv&-qG??$>gEFtOIljW;I3ZUqg_wfKRIUQF+oH6OaC<L%bXk>tbXjF&Xa
zr0rJ)mweK8Z(X`}!qL)#JIQ~UqNgNP82$;TTCl$s#CmYS{qS8Y2>nxtEe``~Hp-oj
zMH84A(_oNW#&o%=F>0So)~M_jG)c)g$2tR+J#Ft5T0X@sg&rqj>|lh`M6|WuzmiV8
zjI_RXo%$;g@TKzhtj1{&VX}*g7Tn7#-ie%nwTJoezRQ9d0Fz*vXk=pKbAU}mAhxI;
zKv4h{p;5nDA!(d5eF&6?oNkqz`u8kJkom5$T_59^W-NjPPg{Nw7I5vvJxkN9zA0&h
zLFwf<ec7Ia`~}DDv?V|g$sPhkma!915_jwMnl)Z&QJIT^wyk|Tm6t^NG4l4$KBJFc
z71$YsggjdYQj#iVzx8O_Ptc*O@s|!pj80{0m#}mKnlBXWA81xx+bpA0o_SLqi#YV!
zuUReJsvbVVMq8{wK~yAn28*mJnK-k?2!|U)nU1OKrXbrt&@On}-a>2vv0dmj`TXkC
zW@2OBEY!;n@2eQvvo@Fh{H1vsff^t9dmJ>6qzvKQg-b839Y*wl*m=7qWrGoi<QFG(
zWVlDqIEOF|PCf-us?pn-wa@6Um4kl&o4WU-H{1Z~MjL9Q6goDCdBfdH_;}KThF}|<
z(fp=yIlkR3*J?Yf-Z0WMt{yeXTirb`ep9$jW*toi5eL4O{PjkdRcGcj;T9-$?n9=H
z-VT10MT3e;boAc&?fA~eE1@R4DI0H$Ws1XV@@dDGeT!}&E1L87Y28~MrjeNE%Cw8Z
z6Sk??gcn^lvlY4D?zHOVkw%}Sca*tfNm1pdS(6ifep-ENAvW<pxR9r2gbKb|sbm@W
z^YUxI^^xUMLeWPy9iKUR()(Ym357Kcl8W^qlkFr~PkfFB4&*xPVDTg8*?WS63is2W
zT%B~`V9fRNX;w=F@Auz!NEra?e(&6tU#IP1(hV*P3NfXBakjy?P_?{&P)9EP0rygM
zPluhD31y>g4ykQ5rbny8f;wYmAm(shQTQp`$r+PBqvh{qzU@8{LrUlVseW{t*`-==
zA^&;RtAXSrZRAHynp<5UDlIf7-%=LX&7{+mjWLzo&rMUMPgH}bSsEtuxZM-+=ZVJV
zPeR6f=?yRo)&WqjY1YnJj*Z@%au9c7J`uzRn;OQ<r$m*5vWD23s%r~)BccGLJ2<5(
z@1SnMG6x0cP6s)<c1&mhAt9`uw;P3CJdow7OE?Yua-rNwuA*PWnCoox_`)5VR^6tw
zq8sR{Uj8ZX@~?nnov%7{e@Zoo2t>8<6N?PPd{V7s{$kXXPU+L=^?~;USe8buuqwXA
zrM`=5LfHY=_?a=8UN;eBNH09gwpA%k#YG?(wGyQ|?jTmJ-KI3-S1541#}(Z10*i-8
zc8-h(F3$JbQmc7PZ&!Toi!YTovQ4<5SyXQGPZ;^P+gVYa!Vlo?&K;74+|3yRyCtx}
zIt5l((t@r!FI35UGs`oUGqA_g=v>rN?&<EK&$6;JORo*zN&^oCzRXSU9hdeUcz3Uq
zv~Nei!e!N<wkJx(?3_%H1&B499!I_4-TU=z4S2{hYmN6NWwhzQyzhhMGb9j^^6-3&
zuu|;h#Cust*Z}3BYVNOMQxVpOR-K2eu*G-6nze#ruN#l#FjCU5ZUA|@S|FGR909?A
zt6>MiH<51aSiI6NMV*@WT@`+`mM}OVkIht$wmVb0I}l$DH_#$3z~c-GH93s*U0u|d
p)6Ld;e~OAzh0XkLe<Un#!8T=Qh(Aa?6K&uIx@z%9`R^Wo{$G@(hr<8>

diff --git a/reference/plot-5.png b/reference/plot-5.png
index 7aedb73632737e52e5819cc4b6e86c105a1c96b9..470fbacd7d86fd65b8653f7c4b7fa8d0146934b0 100644
GIT binary patch
literal 38865
zcmeFZ2T)Vp`z{(3MdcH0fYPN%2L<U}X#we-P*l1!kxpphr&vJ(2}Vi~LNB5BW<feA
z9YT@bTWCTExhsC(@80`AbIZ(`b7t<`IeUg=v$M-u?|R?oecorUy<ZvVX`VmFd=3JE
zoQG<u89^YY0wIu-56_$iTkxn)o8as8Lmf>u@C}xOyS3rq>+EAKOCJb?EsF9-6*ITx
z2!U`yplYfnfk~_50r6K%C%$hvXY$?r`?}^uYN}IA7tC*^UNXH<dWJtQO?0I&JHMuo
zsyY9|&6N`y=dLy}l%`(2z(A!=O~pV>h0N!_q<PxukThd9qHb)OoSWtRizu6=Pj4e_
z>gQ*3I8?cg{L_~I_3^(fK(PQKAOZU@CJF;(51N3&bcD>{dy=fcOAQL=9BQb*4k{o2
z=9#+@E7rnoC+>LaQ(d{U-PbJ|2xQL6Ka=G@Hq@e{vi)~GJN3-wiGS8rPN_#Q{kvI^
zpV9IpSoa^2=sQo@HvQ+fc+KljHs0O$zVTQy1hW;+3sq*@8-Qp)?jW)1gN@RB7Clr5
zz2fC%{+wd0aNbc5Z&&Q?5kcjoFUM*f2;Vxa4zFK=iF$7cbcXj`T-gA(zBBY0j~~*+
zxK|u%%u6!wjl42iios4GqRZHI9in%cp%|@?qDzv{#!LfEgAyJ;gl{3%R(zq^3c8`g
z%)MlMifGH5o8N8o!RHgI^OllDFD8HCJAzp&_quCBXAlwD={#!#E#>j(QGs_D$tm|G
z&HU+MlescF^{&h-%><d1MSfT4iMhgrvp2rmf5bjaXptY>6EtJS)x73mV={HJf%@2&
zd8c8IWbiI-Law%NpCrdH@tW!vMRQ8NKYR6{e9K;aRA!7X83QGR)7N8H#*(LF7fxan
zPKhfURIO<iW91*N>WDKR_6L|GIa+VThCjOp`MLCvHz5D3IMMEcbK)h%V@r0Tf$-Ac
zRX<V>_vBj{{KxekUrTEYWkew=r=(2UXxyjIa?WZ6%RMJd8m^}P;A0O`es2PG!g?zB
zu{}VVoA-W~*$&D7J!sL2+R;L^+)wO0Gg{*R-ZVhL!&=~SnYL6@;yo3~<OR>PHG%ix
z?>A0kYK$bmrgwXL&vqfs&eqH|j_`&GQcV<LO~o-d3&h#Y;DKvGMaLzY4LuKMh2He|
z*5G>n*e*3v-XiA|{liliN*pzuGOb#yp+QQ!fu{nU+wbjP@KR)P@Km--xliogbWL=K
z)F;#al3~4;p2EqXJsN+X$k=*s<X8E)ei~K1FQ)cYS(eIidOZzsJ!n~PFS}B0o`z0&
zO@Z*jF_ZNr>QRKWuxs%{GQZKp$vVd^wBEif9Ry-@q2~-e1QJnl^V`hsPsGPIYSU6j
zjj2IYzwHeRNwIDMSx|z{F;|Yi8jp`boegWwtLUslc3sL}h`ov@bLHS#D(HFHxCG4S
z{eLrx`}oxanH$Yf<5BrEj*)e*T!dWjZ|Zs@*L|dIkq#3$I(EF+`yI6=KMlB@llD`W
z5kyUMD?GMk1p~EOi}QNcx!4<xSQdCvcUOF&Yl}elo}EVm<6|iRy^97d78P5N`C~Nx
z7BknLi*{}f8d=S~2EFCtswUEsjwgg{xjSs*d{gg1cwkOtzg#do51?I&%LL}nZpuo<
z%k3z%M1a=Yod@XWY28J=&K=bHM;c{=`!29grYKlS+Y|DZvgQQ$9S%Y^pB6Ew-$U6J
zWhvZ4w^)uiEB;+BGwc#uF}mAFdScH6VR`k3Te$w4bP?5{ru6e+K35mCMyFyouEZ#0
zX~`LG>FW?uG!Jy_XU{*O-YB~2$14|EnXlBhq}1}S6D}}Zuw*qjNC=AOK<(7kJ-f1h
zI16v$j<Jgf$m!Ioaj_%Lp4C}iMPy<04`&od_oOijVLq|!Q?Yz0_;q7Hq~`boG`@Fy
zqSn2cj&KO&NlgGIPT8C7P_ANen|1$T^}DRuO%*qz(96^jt{tydw&j{I6vJgyL^bj0
z*60V9h)Q9lK1c6p3M@e)>LZ30>xFnsb&FRw6x-=KI(=3$5ceY5L?-E~W1_cdH}?qH
zEnc^Zs@a2>f6vNJa`%YG>=-Nb;_pCLjSU!y{cB9|ZcA}utq@%NgpaftoZuK4Zu_~W
zBuQw*HC8k6cse$$PV<oFq`Ps0CffsO%i%1ocoU1;(^@s)io5@D#U|D|2qd-c!_?Mc
zI-;VLT08}L?PpM0X902R$nJ)nk#UTN1TSehZa)BeS+QcSty2>HGDgwXZYpj88Z#8W
z)n@#4t~?}2Uuf%vz9r)9mE*<Y0^_%JIjym1?t!j5(3MbvD3W~ZoKa2pxCOKJp_bG7
zh)c7$&(@(xH&U+>UU%%3Fm!HKk$ycq(lwgLHLIsWZJ|cb%r(LhIp-{A{IB<At8~Ya
zU+Ult%hGw+=8Zj#F-Kd%DE}P&V{YqS_`6@bv^@J;IWs-%K_#JtDv_770j$~%CnCe>
zadjI9tLC}O2mM4B)&su7+5Nc1mtDTewZ)?|yTgJKk+N}u9kroE^$f)U?(sC4m3EYG
zcBhGOkItdVjo)_I@ty~`>PKG@o;w1{trzQtz7Hp;X>6iE)5a-H)1qq3JpqXzOshBB
zuJT)@U{w(f@6T44ctd9-7qT1}>0Ub)^hh->v85fX!HRn-Fp9SNJ7n*$mg_Jl&-;y0
zOt_1Gt8Uir!W~%;W}uh<1`TVI6MVHt?NN)p#g0GJAmP_&&bGm?6p6s*X+GHTbj9ub
zeUFo%h323UblvxnnKd?3eOuF>UUGCVq0)yH0+G4!>lDbA&7x>nSH0({=!`t<5W{5d
z`m0TrHMEuuKD6RsyrTZ=%r1dIu4+enM#NZf`#m$7=pLUU&^w_RaE60J{3SR^9>0C9
z{Tls|5rl0V`pahzZ3IDZkT}g0C?e#ESt9sT+&GFrXa>Hlf(VPVTwOc^O?RAc(p3w9
zdZgRpSL2ip&Ag@0gX`(mUMR?qd}k}=Sas~+zB@9=AALlm8F(*)of*?L^MZ=;Z<B{G
zVy@*KD@5ocM^flV&55iza(e51bPk)~$GWR{`g^JQCCB#?vi|hY;ZQjgT-I}5>oBoX
ztK_t}>T?|)MPXO(w{=-+BzUs^sHk_@oCU^1`CDvb-KIR9bKBc|o%tyyh(6K|QV(N2
zkOx<%rVd*FPIzaENmN377bxYv@fESYH!Srd_&A}(zfl%d$~(SLN(zS3w7z}OWj1Tw
z1$^D?(V=?>vj4`@67gNMXa}V=U|G#rZqFZGuPEwyBf4ZBj6L5$-dhhr3tSo_Fm#Yw
zp5W96>lhsn_kMiM3*A*D%pS~ceeBzT$L#3;E)(fPwZoNHe$TqC$B7NPEUPgMXse|y
zc;@e!pw8w7tu44XO0~lJ(rsXl8e26UFkZ6M#zw5zAeWPA2;o4a>O<$jukx28c%>k{
zO;-$_%gyNE=pLUB7@deKHzNTXGEr0RfKz2^i{cL6?XgUiuH6WlG$Q?dw9qXQQy2Y}
zleYn4!~hM*989WuyEEe7*s@}YVAr_|i+sOW&C=nIR&O55yz?I0s2!|^rX_gB?__qY
znDXcnT79C9o^6(gR@5()7R2>bq=v3-9lm;knW;eByQyS2w<W>0LrHcIIh$x9koGr1
zjv7VHwXFuUF+&Meby5>qNpE;`-(O>JnM|{`yP*;or{9n@?P4D!VY{xnWbFo1p!G3D
zR-Xz>$96=zeas>sxU=vtT|*xPuI(4*bWX$gvg#c#E-3`e6hnJ4j`Lc6KF>S9xS^*R
zUV1HU)l9-g4|=*n-nOg^@F=pRk8yVG1S-OAobl)(vmyFbdlSR~k7!?(NM8DP3{4>V
z0^+-$wV?GplCjrJonn+a5!Ix9qoB$55QOGI0&y0)v-Q3wEPg?NnMcAr)4V}lTs7&@
zYu0UR^sfMYGz2XX%Jrr*<6)A1VqEBN=nm=#u!F6NtQ;&ChT!$Ccyj3y;_RK4?S{Hb
znn6JbZ3O~TM@Y)K{IUZ?u$C1|`b27$%Odl_@pt0p$23*JL_k-1y#KgY5mV90GdT)_
z?eK3_71)3i*)u}u)Yt?9`!B$I(oS9U70iQpoktrczAE!5-uuf|mLm*telv4rOc$#d
zr8PQd+~ap^PtnG6$2D$yO7evC=v{BrLde)$smLP4ORM)IHC`GzF~r{p@v;ob><j(J
zb<{z455ul>P)BJiR3x-h8}VTcT3W=nlh?IAy}d`PBd6IrgZ9)q5f<kg-w9`p!8pvr
zc0VRm)V=aszcK9wZ8>n~5S4JeYstc-`SBe>>0N0Zivy$mn;~lC+L`%FP|_tWav@e?
zPMP#~!s|^m9f1{ad_xMAkEs9bfX4Tkf77Zo?hO+E+-TvN92V<agB3+o@cwKdWUAe0
z4S0zifzH}-`mj_CvF0vqBC+#`hIg@^Pdmd%h&{$r+#n-fES*)R*-96$+)c<B5MLws
z#7x^&Z31v|4D)?8cOANrxBBc&pCh9wQBkAjCnC7R8iO!RQSMuk0fZsquHK(&<9@aE
zJmd1S0!<h?!qyla#Fp1OHbKn8W{6WY?(>H7xQ0ghb(OVyie9c#yyN8HX^+My4|PyO
z=Ud05NXUnigLW4~xl1Q^9p=9)SUD9J4vM!B1JJ3Rm(Y+O!f1O$&ab6Mc^=8U$wHUE
zx%2z1?86Z$3Ac5(XwE(}LM?dKO`y&`3KkLG3rAE4m0w(YRbzZ(c!Bq)`j4<US*By*
zB{4*e&LeJ#FJZA*X-CGX(vxq{SH}n`ow7g7do9J&E%LOjZY=ph^@WC?xAX$YiupI6
z{&B4Tw~q({ztErJsmYd`^}gkivLq?65gfF4Vg&8^pMyDNsRREIEI=b7xhS#z-@B;v
zmhk!^cCxWShzjjP)7~pkbM4%jSg&~OL#R#f<hQ2hJT^Q_#%Pj=e^5wD@t~ugI$Xb$
zm!XYBdK2be+Uxv<+l)o8-GEfAz~9$kONC5mKR!K<BD5+g@zuENIFU6wLg;d9-C1&f
zD{**Yi0XqY^)oJCLxk3rlw1*OZfWID$_{d5wzYa=%?_KzTil*u^?Am*OE(Up%dR(v
zkEL;>PrK{uqGxvFv8NDH9jq|{JT_Mc*u{`MHlj-sZWxp{vuKVj^NJqthMU=F`>j#n
z(tsi~eMX?5=UM{CxCHnFH^K`%Y}&I6RGHI<i3(!&1szGR_fiJUSNDI0-Rm%5;l1p8
zR_D>j&r-k9+<grvPYQ}5N#|=s=3+xb_5wywi^m)fGdSjpLqAND-}-L3EC_g)&A17z
zU1P@^FS(_SFKF4N4L|*%faZLXU!&|jd$u`tVr6Uc>RK!|Ql|aD)QA=%z6`aRi>*}a
zz2%xMKj1H2**msUYDZ~l1huc(EbYh;LJwtf*D2l<)#*}{&Rg%Ev2+dDn0D%<hvb!!
zjk{$F+1=07A}V!W;4g|1S&wD=&TqxyS`Sc(Qx#QhX4p{V3I6{ydi(d^X%)PsWDbiZ
zw;=b*lXY9sf_~=&n-U+{&BSv{7)c7d>L#tRcx2#j<X}3_^t-PZsvEIDpYbZPrL*D}
z%z{o%-`mJkxv>~hc<)CkqO-Ua>HDE`(N*4JS!z@g+e(zUYjjyC{8K0YW)ap#TsiWT
zWkBv4ifh6Be9YRPF3Aia4hYWSTQPLE)!f8<;42fU&yF;GEBYH)eigVB#s=YRyM6D5
zlp$Parte8(->$k56Zwh1Ll{*o_ZG*!m0VXLUR=i4h9l2xo*p0aEpPuQCZVfh(c7Z5
zl&rkS#-6?&80v%!@Kl+r&be{<J)KTXlOr+bHMJ3~b%lOeg>vkR8sjc_d^stFXY@2=
zSjX`ZyCei6SVO~bjcO+Vjh7{Ln%|^)MQCEbw(q6^d&<e`rP$N%B6L(<nv&&I#^C5|
zho4j%X<4X;v@<_aRKBEQxpc|b&Ih@BRD|6xXpD(78R8BVTB%m+Wh!QdMY|h1<VJ~#
z;&G)ZUUAocvUa7E%xs7on@|J81UYwf;)z~s_1wEukh7FnRhd4=bH41j;f|3jV(zy{
zt7O~gpx*o*9_GksFHn*a)e4_bbDp>Zm2M50n!MraWHQR_FyBY|Y`DjUV6KXXBTNew
zd!{W%LmwnbrNC>l)Rq-n1jDQA8aqc@2;qjfC<jlQ2J>EPb;i;leJ5WNg~}%Bc;EES
zVjs~*x0^B)w;HmLyd)i`1_Ss5jJ$(}7cyggaQld7yAomfzSVZqHNCTSy<?8;CZaPN
zgwX`bGTSw;)1x=RwdZ-EoMlg`gQw#<*HRFAf65shi<Go4^HGLMchp7Uc?uGC-eN11
zg4hiliVL+7qR5?CWO(TSqjODMXuDt@>D>S-(=0j8!LvsUQKoj|WfexBI1}5dG&<TE
zBGp(iT5@kbgdiV~)WT<_u<^V=#fjSW6+)TZCz9Rp-OR>mHkYSfz(=&vl~jw-WG6CT
zGg|%mb*@Wn&}S#<TlMQCO)vPYjj)fWgV3c}y0mpp0;-+*X(>bXi$B%hCEqfx%KXd{
zMEPV$!Cs`4c^h@t7~{hO+x2Y?x$R?Sq;oX#2JDzN1F0n^kvo>6w6t~*$V(PrM&y`_
zf37ORGTBrl=d^|(epZgsz4|%7F{d0e#c+$D%#2h@+20Wl5?d`*o%mdoD(h9R#QExI
zznwfRywxhL6$|SgXaA`hOdQ-@N7(MSmYS`nua@wRGo&Yn@495!Y)m?w_|mNqXVWVw
zLPJ~`LVXPxy{~+9Vj}F)c*}b%Uuf?J0)6iLyGf<*!D30#rM-HuV@2bPZ&MEp4U3kw
zAC7HViLI2IzCLo9>Tmk_!cC!<Cs#Pr<^4Sl2RonSJ@b$jzf5GNSA-u8a-UkLYa1F5
zgb)biy>D?RQ{FoP)MfpfKj`AijUA{5uD_-}sWg;gSCt&3oN$eoN%7L+X*YOr=b4cc
zc}X?mK6Il8u-dXU3pczFJ8_Qbmu|&`g1XuJ#@4OF<JZ(Ex+gha5%(erb4*{<f6#S<
zZde@H?hnU=MemJWmp}~JT4bX-kC5i-bFcOllW#}}3OgVJ-gmw%F2Y7Bj9xBNmLHvw
zWFC8?7(TZz{<I`lyhVy<+jcL(w?L->Ul0O(6+UP@`(Y4p#n5Q((8Bb0LXIc$_Pk3q
zoi~aqFpEZ${BC$_^b)@yY%O1KNde7q<;$qgY*pz*QD>S)!JN{iA9^!VqlLoz(q^#L
z?cMw8N&(l=zZ&Xg%*DAaF9Tz9Vd@>lhc3fE<%}XU1fPVyqkBkPv(G2R_?IL7UEcbl
z|JpnatiI~jX~&9V;D0h!xBlhBtX8S*{0COC?J(YS;S+T&{Jryw{{D~Mw`nbuaa#A~
zvumEU<2$uWuYV@|N!pA=TJl2irSBK?Zx(4eeSGd>%3%3&jz6YuWsbcnFSnJcwVT}o
zZWXKIa2sxd9{OT!OEqD#;*qAMQi!~#;{0mY3upKt?2b5<cBNQv&}-`6<Fwz++bN<5
zI3)KS*GABV^x208dHx)?ELXQ>I0ZLu2hj}F`<4>ik!L$w(yP<o#k7&C#+*IK@cxx7
zOPqe}e!-lym8<A(PC$}oeYdZtvQzx-@nJbHN<m!-wsjBoP{)Y_XN*nud;@b768}=K
z(=P?*Sg4uR@g?(FERC;UeO!Xu-=jAUi&@+j9)NfmguW{yRx^YyMAfH$7>dz3g_w9e
z8=w@1I-u(GvU=yTM7PN(_+-DGK@=}9L`eS|qgmh^aM~ikAV^4vz+M#^4S^7^&V!Pg
z)7$?C@4&%@8Slo<5X{dCK|)5~%HB`>-0`Ww6!_zu&ZIO?&x(}VR%)kb?;q7Gx4-=h
z+4-{F*&(tGCs@L-%cXs#x_<Y4wns}Vb-kI;Z`ge=<k@Tun7g96(alQxmM2Lw8}IMk
z?^!996ZA4(sn$#Kn-e5FQ}IIo%-Jep>bK&PIJ~`zn3rA|Igo9O+ezw-;dE|?Kghi{
z=;NC@nv#1zy>sWJ=dN5|J<D#e<p$0UHeGBSYky@UhPG|h-V`k$v8n*9hHR&1%}`uW
z+J)U0`AJgl54OGR9Nb2hKxo}puvOiY+)Jh}En7H&<}O(1m~G%t7gzpJh6*B^$y5x)
z`o?w2;`t){GX?E3!?Oh>8aHPI;vK_}r%Cs)MgeI-$(ZCo+*iQhuTtdsOU^X4Rwz{)
zPi{*O4p>i1pnCwz+zs^;*Kr5&^;S-5AL9?FbyNrC4V~yFNe+?qZjPA`HqSLdogAhN
z(Dx^BqoLo%-?96RY=<{oO<#2o-VLlbiRFYTRDNjW-Z%U^t7Rnma{dCX!-=b5G0BEO
zYrnqoiPOT^1j!I{CbVq0bGv-i#&@O4jaayWHA2p+r+a49)ai4Lpm^m?Cd(MM!LLeY
zfR|KiAYI8<y`#7m(pltfcBY@(m{b7ZV}v=PdpfDnu^Z~IS)-E0HzpYmHgLvFybUpY
z9Y-H-svbWbSR35lFvQ_ooL}r+aU-XX&@z8#ZgyoU7{*-2aa@`{d!Z&&j5Zf{RzN)Y
z-cH>V;<nBFVI1E^tq{*PcfYQ9`comDM`998`+Dd-{rG;a=88-%O{bq_$~uPzy(3Q=
z!@P=9)?DFr!`#W~C#Q4z*-UH~_I!`3Adu|)ltSr!mHMEMZU%W!tFfAC&0|-g!fQWp
zJSF<R&D)wGtDb=n<7Tn!;AGkYMbUl3h>AB38pjg?msxWK_Adtfq%wu8_2*vo(0yV4
zOHbP!n=-`zB`^|tO5Eq1PA}8hepk3w?}7NnoTPYVGgAk3pj-`h<AEaCE^;@?K{0%>
zSWzcdrQFA`(lfeIsN?PHLY~V%+Kgu{M#xOI*zpm^2DbE2|C;B9xCBb{s*9(Kg~y%E
z-%B`q)y!yCX4sgvE=~m&H=-#YGqfWr1y>`LWDl*)Y$J8p8%Y87GzZhk;iE!<D=l=W
zmOlOA0AU#%z3Q%{X4}#5^=eF?JWu_765B>dsXBsDtH##pkd>&JDir5#pL<7~+pbpo
zqev;g%MQJ91%@r$oFGtIz02z68_Wfg&QMTtOr<EK$@VQo3<7yY?A;3B>oNJ9Jylvz
zvwIZR;*Yzivgd+5ytQ0WsTt#W&+NkP;Nbe_Pqnj(H3d&QlNu0~M>)lv2?y@#8e`+r
zvHMIbve`d7mVW52r=KBdXyNG|AJr?os`)Bz%y}De?RqGx)4DR$VSeby+~m-{z`3$1
zDS=hpvyI%%tt*0ttZP6Mt(WE1iZyMV+NhP1cSkEX<h|4b+%U<aauAb2N(Sb3WW3ag
zvb4xYcE<2sSKpgV+1Msgk0y31u{$Y}f5qL<G!k3cz@^((#^~=T9j-MdoEr2=m+9mC
z%I-McFO3ZHVupp|{OZ_E>}LL|Ip*4rB`;Xw;q8r+-lcj@vG>}-sUO!2r$@ot>u@%+
z%Hr_)882LQdMOXv15*7kx2`zFY}YoOKLOrK32Q`=Zg1eqMoav}@lGJd!#`rKl)9tr
zq<Gc=)-|=YHFNR6JP!G&{yO^N3&8DQy|RNV9Ic^OP>L<9#)y=%_EILjQZ~lqwufT<
z{hE%Yzbq|FPdW;fEqH9cI@9s?Nto#ke&@!@N{x(CO}@i-s5eeDbz$-QE;~|yT4jGT
znSWRD>~OM8dH7)#(Fz`&Dzrk{b?YDvZs&+|;}Y7B0w2aO(zgkR+~BSFU@lH{3Ew*+
zB#B70AKIwTv!J+IT0A&Ndy^emgFY;iCOO4fh?nK>@l?@`$;yJ%KZi^P*0;;xU6pIT
z{+D)#m2abVU3%ToLA^ckI|ZG|%wYk3S~pTX_7nMnv939--Um`mHP2dw)Wgn@ct3{#
z;Jfn2Lfb$OYWs{}H(OOIFXu{sddWMPt8!4z)XYJ(<drC%6!K7!LwMr=9%b1h!BCBq
zHO(1>$8@qj?{k<B4TU->O?(%pEmSYnlnFYu^syb@Fp3s``uc{p=&<1go1<dO$4E}Y
zy}I0=+_%?aU)s{1s5yw+JwoY!1dzR0ox66}t)HrtsA%q+Z$DF+ZT=?}ta8XTc#oiX
zmz2~avuwBT)<T^)oMCc0?=SynE<g`okh>R`YyR%Oa(cxGFcb4D2gVPH_KF-!iGq?i
zs~*jc9V**Zw*%HS*-5wD(5{@pZ9TMG+N730G5W=deg8!f&EDq0NsiyVe_5b9Pb88Y
zPt346Mow>44Fxx-ulM<mJyMK8!8s7x<2keCY%YqmA~I(v<WEaQAAQmF0s10lyo^{^
zZ0dLd(PQNrtT9K%?FKU?lw`@Yr-=E$%1OL+8J#B{?NuyZ%=Dk|C-~PQGqs!~;c%>x
zA6l%zf85iN)x%@^qh@IaR|`*ea4if+7R>pv6`XR<Krp{maI4~O{*aD?hU=Uq&Kz;g
zqvod}2FAI0qGb<co~WW2zfYaSAWM^!zzO5V{fuF4<8eOS3k@a9O9}TI?0Me3Kl|F$
zcs9@^7HzldoHurCcpxYAL|Dw+fn4I?NuvzyJ#QGaUfhdW=}QU7za6DfANDrA;S*w6
zZuBGfwyl4{ZEbj1*m?<}`JDCW(pVUT|BvGi4OWl^o~(pwIn6HP#W6WW{upLX_O{iT
zPtgil{DcFXV5vo#;+L?OI-z@8-gwPMph@1J8_8&8{pR_?aw$bS)jjL1*>RWn=fU>D
z6-)8Hy9ybtw_I1uB8*nt=3zL+tC}zt+2vv;9XIZ6*(Cu9Be|YfCA<0Hy;yF$IGN>x
zd&NDw7A03?{e_Uf%Pz@^E2}+s47*vpz=O+gJ-C7*-d4=%PkvPEL2u>wd;H>`>gA=e
zJX*|k>T1l?=(f~wVC2)GHtN%3?bh7;rv|6b^1N_h6xw#%wo@QvUizh*IZ-1{HB~g0
zW#Ynh`P=yp>MzNwzh2{K?A04w;O}<ou4};3&9S&MR1>V~qjp^T2Qta@3rTI#?c~6}
z9V59tQ(ni41$$@q6b#W5_{DT$XXd1MpKa5e#6{sln*Hm4E+EY1aI&c#Pr^x~z0FzY
z$;g8T-;U)CU#+KKA%@EK@WxyjX<<~t*G<rh?d^Vgrq3+j#A3GE)9xpFu<dwaDU4XB
zQ=H|km5Cdf+zR$-ZlN0-#mxA7_q%R98){v3QKb%K(HPj+ZwS;??A3Bovc-iiBVN=z
za|x*6QZ_K#)B0l)Edwp5+juSX&nMvCmUS4X1fle)W<%h!r{#{BJQiHryurn$g+sZ^
zThy04k{#x$tc5PG!gwx6xUR<WAt7FAyD##efcjucG|MOdc3v6LyA5?sSMKh7=!mdS
z$Y~2lJe74L>>#oIExR?R&yjSyu!djpUXoHe7j<BwU_*qi#eBW@#HAE5iQr8`^h~j?
zQ~z8DG(gb*!V*7v>9(1rBQExANiud^)9?kW$K%>iD{)L-k-yzd0V{cQGX`a`>rpX!
zi0ynivsf~dBQ0l>qF+-oJQ+Cp<nPXd%DYagnF|c)uXuLTjooK@!dvU<eZ>gdSWAA-
zsLqA$(?McQi<L234NRV^hR6CutoP|ad&M+OVR^s!voFO^vU)Jb$eg<lj6H8O(?Z{o
zo^>9{bR={xa0zdZR4`4u3HoS$l|la`!wNzz1WF?&n@2;{yoHy}Y#u5e9j3L5zoGAr
zt8O53`Xt=Bi%|ePNUc`h3O{oV`Db27YpPmg86;vhgwv;>0KN1A;vH-^pHz?x)+o!-
z#b2i)c8GDE<^C?2EGNEAL2d>AnIj_j*NHlafz<cbu@uaD^ZBPH_17iTHFkDXC`Uy+
zc}d|102?z`hoO{}|GzHK_IBTsMH^?MzP{rb=<t>Qr=Rb=l^q-%Jvx241xu3dNkfR(
zV1$)Z&BcFyZLNAYcoN#)?fb{|Dcjnv|L?*t!=DuRXUG5BsW~U=RGLQ1-2z<o^t!j-
zFo_kehSY1uusc7$^Xcr*n4_bkTjyD%>IwojCbBv)%8j{pBVCEojZ(_W;hnjrd4xC*
zy9;alLTmWS#@koU=~k^(;OW|YVGvGRTT;Z8>eC$l!w(YFylAJHz2KXlX<+_~KOPwD
zE)Q^Yx3vW+DJzp3DW^|2&eB^L_s4rgxepgzmmZKSl5bR6i8x7Dr36lTRWaDNkF%pI
zo-lkPwQg&L7CVdU+hJh9H}soB_+iw6Pa*Hv<o(IdX_@?$kAKhDDgOTTtWv%bi9$Ig
zpinQ;IGUTAO$Q5LLx%;G6E&%Kqv*)>Gtu%^aHR6XZ!eu+zj>3l1A3re;_+7+n`5)5
z+XcsR*S`7J2K=|Dj)@yy*VKYk1$#VBzQ5WSrt;c)=*!e5JDCRbsnL7pd(sWvkAIPd
z8jt;k670f)zRY(evLNH*XBnB8%wd(D<Ej$Q-3l{<Ft7Ry4}8T}M1j5Cl^(xQTu%vc
z)M1&fMC>o^Aot4#DZh75<=AE|3AKwIo`ay(BACwn`0?qk7z!K39_;ek{G<QcsP6fw
zuc2!#nYxMHY?6=q%O%|gkFK-QIgbag6iAbQ&%_iqwqm@$Ut3|3e6+KhZ&|8Go=^13
z#r6)Gj2d19jT%-(=HIL2wF>fNiTL)dk3R71H1lM&&w`Fwq4fwb_1f<hJM!UX<SAOw
z(PDeeMqt$);#3qzH;26c>VR{S_xEtOp~CtbXu`g!bru!R7o3>ZuAHu&Vc1V|NGlKU
zC6({dY_;T%l5TXa<2AdQz^aqWNKtwD+Wv!$FJHbORG*zD-Sk`T$MfctmEB(WOvB;6
zf+S<eM+<>a=G!hmmU7CZ2mIrogRxX%po=0-Jn0azb1q?nT!;xIQYq(H&omy)CkoOs
ziLQ!5xi#Ka`Ry$Jl)zVb)QX6Si6tc@FnRW3+oEa3>K+f|;TjIR&Fw;WO~lupRfgvD
zj3(?cXvN#vUFi4w*pN0oeR!7B=85<?gwxVzzB5NEaPybM>({T1nA?^wC=pjnm7x`-
zY)T=&EfKyWjtTY1d&hKaa_$1c!q%lh+w&TeA=_QYi214v7IBBx0N_+2pxc8>D?>Pp
zMPnE#xvf9pkvt?-;i{DTFvb?XR<4IQaZSY7z@W&ZKid#@<8rEQImdgW+VA>k@r+MA
zj*gB<I(CJ?pb`&A#A|F-mCVX)oW9aZ7A7p0#RR=JS`IrJ^XUowaL=}}firvMb|?@+
zn7IQDAB_9-D7JK_C=&ZA5kR~6leE>sLDmuXu&nj>n5di#!wU!r<?SGJL=UbHgm!dy
z)4@GDIyz_r7Jp1Vdn}XWw^6^J>GyYmxx5mHo{!@-ek;bnai?TuWqW{Q1of-Zu-%^B
z!+Uwnn3_SM&_TZ;o1q5B4wSiRj?tX*Cj*y|fm~CJ%Rugc>D?E9$%bstcfmWa&6QiI
za5*X-%*J)y`Sjy&ULBM#0=t51Jf>Tie)5i4vZh%NW?~W_IvKiOE;s+d{&at#4RK;@
zY|Q)M;J|)wGMt<!R`n~g+tZ^=mPy^B{E=xG&bD5!Ji2H5`Sa&7?BPdSB$Nou>{n-;
z79LUspMJ$BYEkw0!G7vt<VdMACU_w^fIZnoK607HsQUZHa4|Ozbn3B8ZFV;Q6nVxp
z*TmJA|H{Xk&fQ6mJn=(?Hi^!57;SBBf7)z5pLdm^M_VnD`Z800OMn3lclPvLFQqi=
z<84>*owPTia-O8a-9p+Uo<4e6TptBD$1-#hd>#$t?y69bwEWRP@UOByJ$cz+)lX`L
zeOscBFMEx@(wYy%a!sg5POs6A@9|Cee6gHF@amk?Q`q_@u`-Ys5CD!X-CY@Klz2(f
zo&9Yayp*9C1&|on7e2OfR32lOXI4=7dIHrMRD)xYed17>W1O`|yD6_)xi!;5Rz%OR
z=21e@BORBD)6%fqXMnUbQhbC2aI6~9UmbQnxjH;KzTK)cG-{pblmR+SK(vu}`t&*Y
zp}HS$AC#n~rrtISmIh;(S3z-eaFEYJbC_#wz=o37-s(vGBtRQ`&9_%?Nuv)D9-5O4
zq40Z2GFx8VLm+qv3Bs1WODLG<(rwSNs-A|!<-Dk*mQPqLPo8O>*^sbZLtVPWWQ7NQ
zS=6ScY`r%_C&sqS<>%i4zza+l{41MJToTDED>La9|1$O1Oor9}m>9EiAB0nI1Bm;R
z>H9&z6dst+y^#uB9YK2%3^ch`H&F_o);Iiy>mFKs?pOHnHb&ZgvY{ST@6mx0IiIPI
z3G+{s^3Y3C4nJntd&u&t?0iHm0)eoG)*QUvdt}if?R2H@jaMj+UKy4JAdly0PT*x&
z6KYlRc-TJ1#)~|Tvuli-44iof{bbO(P4m?SxDnsr2@y|xT>W>Q-fPZDKUa2#>>Bx(
z=Z=s<<`n=f-HE4Y8Owf8zY+T`BYmTfe#ApeMC5$^@!?81vqIowOtO5yu{X_+@9$U=
z>nI(gm-!VjA>q_n)y@7nxz$fD<&@{89C_O|_860IrCJ7Dq)*0a3x98i)*lf%h*v;r
z@pjj#=Fr{w9nC8HWN>Gxk6h>SGi@eDac{UILDc5(y~M_^&(GvVEs9d%s;ZyA$0!{x
zzFIs)$m;L=fvnVp#A@%Z<ZO*(Wm->^#M(263bY-Q_9rjXg?(S9HLBN>|7rfi{5SHV
z$mP&e5hcxMY)t|^a?J-1x|XwcWXioCQB9*IoZ0!IB35M<2$zYpw6s-_3nkZornl%K
zOfs~Q=gn<{=8PH@G}(h@<)Bu@57mhdqlxbFFaEmr<oCB%m&vHa#M-sjLWNb~KhxAt
z2CR(^c=cuKE+}n%yF4_IZ@Jwv*O9<60=!Nl`Cz?vqrt2rL2TngVj}Ez$nVWWbAU_7
zg*LT^9wQ}lWBN)54nNeHY<67ggLlK;WhK8t`5nw9;Ld=239E3I)j_P+tQ0=zZk`(~
zw1Jl<SAb*+>y}+eGK{;S%X|btDaCmMFVUmmV><Kw-GUdsqF`MhD@lA97Ye+rop&J5
z+)n<%m%p#$E4?-v?OUS5dX&jW%Cxk!LzJ<QCm(J1Kr=lcN6A4CFP~rS<I2!XL`fnF
zm62hbRwYBf0ohouq@-;mwsInP<w(#p_w6zuBpCVis`TBuplxeSt5erU+>TOJpG6lp
z7I6fOd5eYb{M1YseRC87dctJq-OR8r?LNH8=bYj|yq?t-$7g4eW0cXAuJNwMpSZV1
zs`Q$i2=DxGYX~G4`vFRX?JfSa&sJO(UR?3z@@wIKITI`TYA33~q5CX;wk=Lf7$h=j
z|JC8VO81c`o-(ZK#O)qsJ50M04?M)V^TQSf@Vi1XFnu)p&HF0m#NB|2psYP(eMP@=
z9?~S4H0c4ToA6$){GyMe-Fx%W8s?ov1c6&<mIc1ekSBJA0EmIA-9@jUxoRBb0;@(8
z71eKWHoAE1GdejJ)BG~Ku!Fg?pA51ScUo|@;YUA8$j8JUjJRX_R{#|vTS7BEAe3)F
z1w};*DFdd^D0W7*+#UeaCq7Kblb1a8AaKZXOW3%u;z|ZaMwGSxh@+66>|FdOKvBaF
zztStO)`pP|rB@G{oVq>^SR?e5NjnRLwd*xrYax_NEcNH~W$Go%g<kTijS~?9Nzw%I
z<jE6-a3nhj#ht~WbF{QN-C(2#LJxPUvpmOZVhSvZr#AsCny&o#^p&wvJl7o85Zs2~
z4Umf&4_ZjBbXw?6rvHmo=J7W$s(Qi#0zuzpjkr=OsQ4!@EzvxL&M_;y4d!1=mh-E5
z)cl$ud;-v{UDv+M-DD|`k1x)%WCF%50x&3K|0xZ7U@dU9L}QPv^zOfL9W2tGok537
zSz-xTTG6Us#US3+{7D{@4WvO$j?f*S1-G1?yLuoSFC@wO6nX)ij3tdWJw0jezdm;G
z9c0SriJ}Kzp90e4;=NWrbiBpwY%sLsu)KGve@iPtjrbKfMi#id?i)rCX0t54WR<;J
z$Qf9vQ<sfc!|!R2diZ|W!=v9@WSQN5V<t=pp-nm2r(5<b0BU~#&>AVgKirO%=?T`V
zBd@Z=&Mf~K|6=JK21w-BGq#)%kVutP5Fe$z8g8ZR>=h_?r#`Z^ov5HRo;>DBj+sBA
z9|P1Aah#zT>#qQ)hzLLh<RoyzYu)6lGLo*n4lRH%9zkVTyFbc!KeQ+Ao<7ffbOWk`
z5_U~-hxHknah*GNPFvo0aq|@qNM<?3<~5*&&S|iSV?dp3M9}y)bDV8*zX>O#9jEpW
zpJb78x2Ov_Aiy#3_3FH60HEf%W(9{W*_mJ%OcIqs4@WfF{Q4Ig$)pX<j8Q$9_|P1s
z$*H})y-DpzA@U(eo-MoFc7mk$po~eLcpT<h0f^x0KJb@%E~r@jPVcR)bsetAeEDoj
z2<}C-C0*77Kou;I{i`tkaBFQKZ|DUe#)`tw1nVblBATq;-{t^pxefy#8lfN!P4RNi
zY|!i3<~}BBzvN8ZV@<o_TEc`m<P04*sD4(*s!LT6g64&++i%os{ns+PG0Ndshxs&M
zYukbAcV8sQ0fH;h4M=U&MCkr_2SC+zd7Gy`JI;oNhDMkfHT*63-l`L#%y+5R9z+0L
z!tO~!8P*Cf`gR1DkEaMo)fHF<gm0g&bQiG7Y6VDczBmv<Z`c)s>-xaynzNGqM{589
zUf0HstD@%SlLIDlLdm5409!!Gq9((L1zP~F1xN6!p)imPL~uu-Hn3aS3%0ejl>w1=
z8`LpglMRXoa55xb=he>1VruVq95?SbEmNI5UB|ifyxeVQo-(FW!^QS7Bw%xW0gzGO
zvC0ybK_je3vh*>2ITh0A6~Y20JS>8Tw4@*Ykzr#jh7uJvHNFS!dC{N+VcQe%4Ob9)
z1=Fs^Y5#Rhz_9wJ5*fd3vB^G}&A%q$#CizQdVo!d12ii#GV&e8=hL@V?QZlK^N7VZ
za1H<x{#^d>^*D0B;e^WLtDkA9Ii;m5wGb6vlk7eZQdU=2l|4t!KEE>suqdSC?KO$-
zfL8|xySln|1F#4%&6h<c;c3sEL!5hbV>BAzVa5xGV+jKzBZM9JgHishtUlT+-swJd
zGAStWwrj}@!05&_01I(p#I;HipI*}M%BLr3qO(o&27iMLGZEOr7El&l3C4iIqbY*Q
z28`=Le}9fKk;3t47(liv-WPf_sc^Ck(AktqAT2oZmcKk5K@f`#<3w>5Zs}1_ogI{7
z^Z)|`k3q|iH2wYkU-3}NjCvyxnD%;29YCx*&|KrJ=oJ?(X^Mf*GvD5<GtM+j*TD1S
zWM^jw*R5%*z4xQ>Q|RUWd3+P?^Cc&EcUd0Mw!oV`11Gfc^^}m;0sO`XdZqtyZC*SR
zkI#SW+J;m0mHz2cM=7HbIg|dGd*Nx|B%~^EbrMR<&Q@YX{DyvtLXG+x#+D;W_r^hG
zQV?~XW$&Fi&@_gQy>;wCI9M-4p08m8-a38*-F%)><B)l+JVDN^4BH!V?r{f&>H#$F
z#z3N+-=k8{-OW}|+ptLjDdMgjDBA?=LbjUw9Boh@hdWD>-(xt)^ia8#{L*7Ms0u?T
z8bXO8Al%0sW3DbzQaT09b$utPu#-P%=5vF~`<;{zrt`4V+K9*{8uz8T@08@;$Od!~
z<M~c>9~`)%$5?MX3RM$Ujj#5}T1aS6!*zfP2gc+2^~L#=05vt8a*h&;$D7tw6xcO3
zl<+WIx#F%}aa58E5XI1z$45`b(V0fxllSF}yw^nCBT8NT{dk|a(HOq|24J@<;OI7*
z((;Z3g@WwYgZX`x^vcL5vKjJmWZR2sb{Bg5tkQ6scL1i;7vLbj-a*6!^X2@O-BH+$
ziYrUCBJg{L@$n!4u#A@|MIHiFI_#vi%1J5IZF#gf2>LxZNPBiEQXW>56u$T6!Pgfy
z3&=fi?QBtKP*4yIVR>H!?avzadrBzt9y$%c2P?0@5}DPcz^WV@PCj-c?r$`j^>!}x
zWeqKkRd2U~nqw~sC@0^5|0%4KQ*RifX8f_^3j1R|1-wf??$U?u&jGomMWkzgGJH~a
zqJsBpo(H6kVwj0C*S;{X@G`j~@wH>#i>f;(D|~Hdcyj;;NaPg&B8QanBTr9HLvL?y
zBqsb=c2Z<=tlG!zo1px}3IT{64bwm+>K(ER4>f^8+e){_f>}(I0T<&aN9~m3E5P`&
z2}422LF)E^=MF8IEJri;Z}E#EWchl>Q%s`00Hp4{;!BY!14U1xb5BZ-q{rw^RxG!s
zZRk&Rrt>SHd&pwOTjvPYBY5CA?xj3yV|D7v;R+J(#eIBy-T=~ZnVssAiQO;1WdF2(
zu>SuTmlk%oy9N*gDoKP6G2}CTF?o3ylZ|ieLWpKqG$8qNaeVrNgt-n_X73BiSgZl&
zv`YdomZ%8QHqFrt2l@Ae$oT3=>55J-6%A_<C-U%;Ys>rVcNswmHeM^`F<Lf>1myki
zN$tT`GV4_{VM6@;zx_bClsA(0@L$wU)V+!ag?|PY)T%M8eno6rU0pp05g!*fbNJki
zFx%#5o^Ro;R^qXJnKB~pIFyg4oKu44^)oUAL@Y>AATYgZ!HE|5K8j_Bsc3IVhOG=1
ze9~7YmF4l2yZn4usRYXWU?H=73&Vws1Y5Z(pgk&UF4WJVV0!vxO1KpQgSmC_Y`6S|
z@JNLREcx>@8jb@DP>}j898V3<QwsMiiWuf41qeeW?9jZx3JI9y21W!*X@~GaMQUMR
zTmKrb4e3cHh#jnPZc8Poi55JDi#`PbKHZRV+qF0GlL7xx8z1H#@o)uK%MM>HP7t%H
z*}2|$q?#fGuRSIaaW)n1BO-u%<XkpE+tm7#8j6a3NK`HJzHDgPkXuu;n~H9D7yyUa
zQ8lsnY^Hq?1cdwAt%u*3K#7sa{>>h6^}ZOOS7ObS8$qF%0PUr?@+TlqEcKWIMXQo6
zc=6K)w0AsUQn5*B97OY^Dk6AqRhE0C=8}gdppgEyPuh56puP4nivAuk?26qVZ`o`3
z!Ba9R<rt`pnQVQ!B-!W`Hk-m_J66VP_XU7xv2r}>h8vg!RFK05A!1us^@O6T;6W9?
zmY<*B3v%fZ_9{Xo4}hw&R<9ebesHFRBYe#Mn<~g%C@>+xF2tK~UV7|D80d#Aq6{$X
zF|b#~S2VD$U0sWqVe#ncCKwP@q@%A%+;|^$f2_*8kD?b;0(InUcn*Co$9qKM_ZSxG
zLT}(zVx;{>a_AyRQEnqcx1gg%5ALon{!CA-cr@^67_e4mtzOX9OquQd<$)D$Xz+UV
z!m%8XZ5e^6Yl*1tI%?&Psk{F<@|5D(vhIA1HK1V0Cr|(NJBH^EHvq1bEJXoDe@ux(
z8zM5COq`5L0r~-->^2XcUX~)&asWdIG;DsMJ+Gs!T>>PL5?cWIFDRmRDCoy25T!>`
zpnxO}qWQ8{e8v6X(A_|a8vY0fNEgmMzflM3`d!3$Rw{6(Z!<u1^>o|F3e{`Dr#QrH
zbV*N+?e*y^D*}bm3lG3)y;PG;52F<73q+zp5OV>V^jB}D=Gl?jl7!mUS0?T+{`m9;
zs8&E6kPiLT^i(L$RWqN$Hp)OT9;&Y3c*;)!5+DBd*QpaffN7@93aq*;C>-UM{rB7T
zt0f%>+aTZHn^U-*)sgMLLEbA52Yi3|k20K$fAi)|DbT2gOc90kd!x^DDgfDj%Pje5
z5L_;=VW(H;87PTH!<YMWNaKXjH{!z}shJ0?k5$(Lqp0^B7J`D9Xg^-~LEDm|t!Dix
zkU_M{P)I?KlcVGF(vlKw!1WsgyFN-*o(HwioZ|kNggvN|l3&nsC{dbLiyQ%^t~y{1
z7P|n)Q!eDad-ZytB6a2Dg}T(krzVA4V01rGSf*XkeN{>(o0PCIGc#K%AF_q(1BaE8
zu?zq8lxDsTL{0|~SRenA9J2P=2Ol$?m)9p7$>FwvQ_mYU6B1Va4uEGKxBywR98kY{
zpR9XmLV|#C<`J*l<bx=-y^8J0w!OQ0d?|s`+Z-XApDh<s;OpF!4^KQOC!`v72Vnsk
zlc!nx{p8R!By6z4>T|#Ljw`Bw#utOU-CiAGz=e=)D0S`;tpkS@CSYm6dG^4tkZ#3T
z03!sDHp0oZ^#I58-vT(~$Vv%bez?N8tH|S1h%LdL(fDU{(^(JC(Hx!&S9LKbO#Ejq
z04qIYjsuYVh_T0C&*QXufh0U4fqbF|>Rvla=6%jH4uq)%H7_8Cw$Ot_=8TMHlh=C$
zf-Y4^qoptU)n&eh{euOJ-4npNl=~=V2g0s=NolE0u1OBT2UL4bHjh7_is?d2EO>R7
zOoWq3&R#W3neue<t3?9fK7$1^Ik{d4B+h(5GWP)(9Cd6o5Z9I2K{^+kb~P_?1cJV6
z-`{61zbNw@KTM|-MVIKJO0{)#?oK`a9m7$>C~EzCkvGAbpasgFhOX{z(YCfWfl+X!
z1$tJQ&0-++Oqx}C+6<8$vIHr`GC6XQBHB`zm$DwvTsJ`n$Z8-@DCZice{WApN@BCL
zw49<`sTbVmkR=iK!yhg6W-yI|5r*HpYiM9#P~$#QlGrUX^Oiga<Rne`$xl)2hwDK3
zpozJ9Yx;6!uyOVGM&f!c?#~5owXkk~G<9|bLT?4gPF@el$0SVf?tpoV<^nX6<H>Sg
zR!;&L;)XgvzP-%y%sf1RKe|46F!eD-5v~L@loFw6x#es{#=^79a>@6`i+SJ*lpLmx
z0P1&lIuPK7)K+v89J*imYR~>=WMFWl09q!{A;%~ufCH6hW9#l8-~NmF_TmF*%`8I4
z(_1utE<W1ll;hVww_5(ub+L7v(KHbRob{1aOsI|wtCERPyU!JrCa4G|MS#2@>j2=8
zsoVqa50hJV8LQgr$}`7#%7Y-*k@H==u=u(f648$xrGNZRA49o&WmEmckqD@}jl9c`
zR1Wd+lzX)R3}eFQ(axgEfHkx<Y<*|(a;#CjDWktnw{)zhVi&6va{B38bTSgz>@0eU
z0!6-{@K6wen%nr9-r4@zyaHe^zZTH-3Q#a6eG8w5q#i*tIDRq5l-vfz=-1NH(f|rT
zlkQcX8pdO{<*C5^jHdHcwwx*;!)&$RrIVfgO0V=gbz{2ujS!8^F<>a7;HKfoE$``X
z<Wn|M5Kh0Gos-rxhGyXYT`4FB!UB6z6!~rg+Ah<#MztrkbOhQ-1$q4SC>ou>n}fi%
zBkmxyc{~z!YOz&(dYT7Y1Lk&$0!wYa@%5DYzt2z<!YR|X_vf4h0^tiUFYkh54O`QM
zu+8MzMIrE%<C#rVy)ZONXPI}&9l93MD;mG^8e7R5Dw=b9t>E7~um%r`TCGOpOy|wV
zzC&kigqF0SVtJ7<tK*4Gf8K%sp3%Hx;UJ>k`57iv!t*Y6=SAJKS{M(>L9y1A-!%=(
z^o>Y)g$P(w?)@|{TSwjgv9;lcSWnoA#%?&ykNHKncOlSml{whUJT`one<86A2s51;
zx#aVDr3~Vq-Tygu6))vfL!}~2Y@_yCYY`EDlf%me1Jh#WZl5oD_s=d62-DXqXWKJt
zUN4`~v<%3!VElJG=L>y?v+Yva#rZYSCG-F1?FFx?9iLgSc8TW6M3nryx5<4~YSyWq
zYcF+u*T-GD_gD6>bo~1g2!qcTf9W>Hu!VCV9$FT#h3o4V3;%nR%3n-w`$0b22w^_+
zUgzi%(eqfp|1?V<$-^LU=|eK#(l6=`7v3eGH6^m=90dPoh7x$R=>+9I`QAkv9^E&=
z9?!80yj`d=y<RVbzjk}9$z7w9;H?tLLOJRt6Df!ZsGZNhPeeiV_;f}yTKUHu*m)6$
z@qS<bv)xD+TB$So>D!6gX2g1|N!DuOU;nfuweI2T7oDw0wE4aTG)ha(p!ZmOd-qt>
zwH%v)VAMJM7A)GWrSqTD{M-5q!Wx@g?B+T(>PG$$$L9_jH|;oG??C3L=0;+{JPnf%
zOE2P!%^j6y{@I_OX5Hw~o3GW1>_UBt5b>GdQ{<7HGcjzctO|d2xBvqWzeSvTkd3Wn
z=sYtqg%FJ^Q-~;uI5)K+!m{*2S+dPnqSsRsnqyUeOTMq`&oTEgcOojMWwm2-B%P2C
z>hUK8qnf9SdfMn6^B(E(_jPI2j=4LL{<J$a|KhKLKqVCVtJy<3@Gct4av#I^O=SO{
zbx6ctf1Vlr^WT4&PVnKGG>Q4NHM?rizk4D;a6IR@VtM7yR1mQ7#8(%Ce}BtPz4{qe
z!KfpsTl`i^^)~fCn^l@MBcw@;I*;5)p&zhmS2~0kjg|gA;)3z*_~-O&;TxD7jej={
z6E6U7>R}D9?6v^G_-9%5JF}TNd8cJE$~m9m-)(zx)Pa2)@RrFI=iGm1NkI0LgiBCi
ziM+ez#}f=HLEy2df1|a@HUi=`^5N=z%M2<McvzdVq@J*U{ci|D{vYN|{IfH}Kov}D
z`DZ=i-0Od)s(^n@4E`^l#rrQd{BPcta*U~m$CR$-uY{17d;=~$S-Ze9wo%E`1ktvA
zT=gdM#YHt0mFLem>C#_bIQ=tyCPIeuWn_d5D>Cm)YxZ9+t^dBLL4EQ1xsMkvT{=Pi
z@Q&7<^-#s|)#Sd!%-Wn~Thm&zwSD65DDJSJ9JAXmHZDJ4I!Wp;rL<f_`=2QzH;qn!
zNu^-QP3)zA-sAE%{-2k)+{aRbR}+ARoA;l-UKODFGbg7>>+C;I9R80u#iPDDmit#c
zEfmWhOkAky+ew#ZipYhT@1p}Q=dHFcd*v2vdji*C{5GC<d13sUAaQ>=eV{N%`b+!e
z&5|p)oD`YOqyUycrTa-r!|T#vjBP#Uxa0sZtFj0Zoug#RCbyw6|BGs%WqzDmNWZDW
zsLu1ydj{e&o(}!svkvj0nhCfwkRz?!aF>4M=7z1=7&^gj+;Xy}CX+l4fi%6AuaMh$
z-<4Q9C9wZ7KrC+><{b8^V6v|4Xsq}qb)9gtW>(Dgx-@7Lyjf+NYNg3-Jv1tMyzZC`
z4Ia5>x0FHNn+vK0K}YMneM>VSVL{1f!Xy8+gxwz8hColgy&+|xzNh-fk^ZL`_x~G1
z{6C}>wH0i(Y^EL`0=OwI*)+=i%f_a~Jf<+kSh3-MYwx|In(Df}QHm5r<WV0B(rkc=
z3J8eQsHlhts1QOgB3(d)&_hwghTuc*i1Y*qy@Zko3Q{8_fItc&1Vafe1QG&wCqD0c
z-g~}r??2x;?{~(yH-n+*UVE*%=9+W<esiw1cToK{?T<^cY+yC00@TMbn`U$niBi3r
z-7xx7L7-~+RYOFmvphMhA_!NlUCn5uBxtpZKhO$c1nAQe+{kZyf47Y~)P$HKj|JCT
z(t>fP3Tae&=Hy~lmPzxI4=wD@!uKCsDr?GxL$Ko6wps|r3rfbX232q!BGf5p%O59^
z{&=Lk0tKT@rmBUOcKUIititfH@6oMcVmEzonQ6OPki~{@ZF7%ef{M}%Gd&WmQ5fr!
z{usOTD>YC`ls!uMw_Qzg)cZ;_B}A!G$9P)F&r;O*+Ei8Ago%fdhEw~Z8pjLE!`aQU
zlxV+#1GjyG#lze{KD{<!SXc}Ph!3~2C(h-mXl&b%Oh)3THYltf6^->7fr<W=%&|v~
z%YS$YP6RT%ySaQ6!>}Heu&*Z@O4LgklqNB5uHncNXo%!n51f}ugTJ5v^#pF!q9hyZ
zZ-Ok+zCyjlHT?W0L*S83E%>F;oG`9TD~nj3JOvyu_n41)?&Z;$HM(?ya6up|b~C^=
zUX1%<S}Yiu1~?@qZAl;Zd<Oqn+$u5L{|vS)G=N~x^XUW-Pxw!etOIR}TKp}fY^|F*
zRy!8Go9YyU#h9Dy4!4bI?NPf|vhHi47$e*>54SIyHm`Ea*4bn0&JE|NhAg)df<H-5
zyUTKwkGI3ewWnW81R`kYsL2&2^fw4$vuuU+?fqp_JY_d%SkWKV))Z{+4axEkwGHal
z=yDgdQ)u~6)?`$zL1Il(dV@80zG=lsnX{I)XM#T8WyJ~*$KtH5VF4c+%EFw3Y!L~f
zIWH$3b^D*cX&b8@GMT^X$<1Y!8`ILZpfQuD5k`+VRW~&@H-m3QL5CJR2a|#)78*sw
z8+8u5svZo-P0G!6F;`O=BJg<U7^+EgsKrj~uMS8Jodq>Yu?cHNABA6I+kssMdx3XM
zj@+F)mG;=+i6_(#Y6`s@kE<^PTNXO>m1f!EgBbyyw0z3!FU@4Ilttnq8{flKx(^G>
zc{#^x%w-W4ud-^Du+$<+TWe#je8wQ<n~Z-xK3P_|A&~PjuX0QY$yy@2)UZUmIeAr9
z#XQrJR!c$8J7<*|tWUBqnBSD))FVDBW%D`>hD)ME;ihrY!J>2x+&DrOOh?9)^p$8o
zXfEu$!+D6Ai<>HLbs08~<y#1Q`x{X$mD%&*icb7@0?U6%)Zsi$|NnxJQF{V*s?{Aa
zo16)5T#VZDNXimc$q1qe;e-X!I0s$BVMl|$EWATNz{w_5_+leZHiw3UM+w<d&6<l)
zK{FG%@L0$ZFxpH4^o`8%-Vc*JgjIwsGNx400_HN)Fol4a5{tIssGaa^PN#PE!V=Y<
z$ZdbxbAwv<E2Vnn!OglRVX8pUg%Zray~UA7$Uz!1U}M$%Q9VaJKWMzirvohSRS9cj
zA_Tx<kn-QsL7i1<?~Izm;EdOl6v|m#gAx|h#JElCrEKC1Omk$}J%#sME;K(u77<MF
zIeOnT=29qia3n+uA!+7e);q%)tNl?8FQIqArh?hdif*)}^;3Ls9*`yuXA9pyR(&U%
z?1#geVvG0Try9^mo6*zXnswsSky=p3L?`Y$?m~LWyrcGI6IHJi)m<@?cKgC_KDByF
zuUTz%n`=t9vwvLV+5eC=GYZ9_v5mXK9j|;u^*5!PIVNA;yx<Z}b(7{Lh?&HeY`e#Q
z@EgYAydYs_)(Sq`(G*t$9wObu-|OjW&5_HyU!}$p5ux@ZHLCJb2-jRcFC6W$?0F-|
z2|6Of+-SQK>_Gb&sH!M{^<2@C#8~)0hT6odHXrH4;a=mC$#}u?bzzAm&!WZQ(|beQ
zhz&nhr*K{-Qf0MN=PY^E-7nF~TA{u?gg}N>Jo@bko~R23rXQ`fF;-l2cx%Kv-N$32
z-Y?6B<?%fud=Ohmyp+?v(y~l1)$^}{P4OEWZ5qC-Zd99EpxhP|oD6e!$7#*rg)j&3
zaCOhN_IDCN6G?&e%5$|geu0g(UZ9Vit!KF9m#l?pgFlie%Q&RU=Ak<C5mR~OHjyIN
zo#M0pcJw3bT)V~U%fXI6Z2BL4d1WiK%j{zZkr5oU+3X3TUN-&GyS;VLx^A%5+LUO^
z>ep$U%N*YMQLef(eI&RY342KJ;5t7p>=`<^Nb5@OX?zD>M#^uLUS!UrdmDxAZUFW#
z@Aj0p#ytCRWlif#xQBoOx$L<I`vsX?c3NT#x>ns~^HL@%YE$Kzu80EXeGC|svI&M+
zO!<Nn&?v{Dm@8%6zm47u0(3`J{q{QvI^WMggB92vVboQI_7L9TlnQB%xb&m|ypgGD
z+A!MIL#jxMeLWoNRTNIQ!O0cUkQb&<2jRrj;T;ne>ne+Vm8&FJ$D@DgloE}Z<c$|_
zqUi1$;<z>D`q6VF*wS5C-=#7QuL5Apk=;7n5%}Nc)w?j<rLsn+0&Uk19Cplgxb+@4
zH7PZSe5q_)#aK$?9tVWEgzSN#Kc+Iu9j)pD3$}-^HnTh7Iv<(CLon(Y^0#V-)@2s&
z*#B!U#GWCnWjhp`Sq!@JuiapsDYD?gi<4<oWT@ZFh6gW=6AQ}!0MvpuZ+4m4XvXQo
zr|6f~qi{lS5o`uClhPUy#L4N*1k?F5=5FHJ5XJ=^XiZp1Gb7o}nI;8Kr+VWH5w@b`
z95xdELIF@E+ylo8AEA107vMxxzSr7gpU{PItb&o>!|m1KZvtB)3c<2qB)n{_I|WgI
z%{0@hL3xrSIg>lw`rcBxN4<*i<=50#O3JTIuNwNd-@(MuqBz`t7`z+G5sF`R?eOo!
zu;jphP95Cx*GbK;&<@IB++=tCB28`(cvlgy)(j<I43mYMgKLPBXn$uW(#M{@jUt1k
z7BOws90`)_iw-sU!)-46gxsg4<3M1DNh3ewx82+oKD4yGb(hsiiNFm<%y1CMPCjbv
z<K(0g&G_IVXOboL!1`EXhis3!7;<`CcL3JWU5OSGF~dnz?LdIiiCV@|D&I0V4dy$5
z^|y4U2<%hlghVc;B4EWvII%*S6j*n!@^5osDwtp_X-YU-6V+mEW4s5Zfuo4gwt|S6
zzz*NCQ-vM=W!je37AyxS?f^Nk=PIj2pu<$wL<}y3=q8VIbWlFL_t26yYOE=FwF4|7
zHS2T!nJ_LEERXQ4>+o>~7lOl@#|$|Ax(@;?QSSc|OwHD|Y0mZ*L!e8xor$80!;ipg
z!3fo9Do6b;^@o~tMU=5YzC=Id!|iTXG_aRZq}7*se*tcorAGfrSsh$v&l1BU<|aK0
z<<%O_HFl=NE;{t|BFMes=-STEc3FsjX-tug+UnL@#FW51C&@l~0!=}$NGcnL1xh(&
zDHx**8JiSJs?UfCwwR#ivsm%mm*eu$N#Xv}c-Mj!Cn<+emxAp?Ru2uKM2nStqRSZ;
zr7$Gf6s%qxWEBsbhedcQXoU^+q*y{;8qWEo&8sv@dSn%=R?~O-g8PP?sm^6S&J?Of
zN<q@Ei?}JV8Q}<~AxQEv#!7Bs0|@uE-Dan$NNq)`3|G=D0T-6R&Lk-m8tw}xlT1P9
z@DipFpi;@&$O<}wpk6BV{gL}K+U#2#zL2)Oz<OEH=1lQmrn-0Bg-u*ruMw9o2@N5s
z8Hoq9BrZi$RDmp1e9HvN3{>SVzv1<GrG4e28k~V#^#m*{1$_d*A&4{B(y7n7wqv;j
zgs{P#UJHTJAf;GvQ`q2QIDHbAJ@42f3zte6epyQu>+3D!-)0=gU+6_bvJsc}DU67K
z>BW6V?aC7UOmMtjP5I1Ftm5jT;}`21m@ZOn?ioCn44}d#aWJh%mYDAltG(9vPNLap
zdsUV3jTlxMQVQ670bstW%H|QluoPwlr7%76y(M$qZY5|OaRiKfTxs2Q7AGq}alWwG
zO=%cp9Ktoi<>*IO3;YC{WFgt#JFNV(fZ$~ET>pt_Tj?YGz-ba*{ac9K;x$?E@ha-m
zw}EvPKU%!;wR5~S;r)R#@rLuJs+Kz%l%|>9Y_vAJTu>C%*f|DE+f@xNgv7eI%H1WZ
z8iRs9*bJw|LTs~!RpHtb{$;2@T^i1n^+qOQGwZU6e70IBIb4h5pr_av@iUc?3S$D4
zVl^?9vCT`X9G-`VKAPD`keQ^**9L!Ct(8$VXe<x1i(im4Olg=2PMe2pE&W=CSmF;g
zaSZDiyBks}V@)e-oY;aI=^3IQElRGLt%3y$hCYffJ$tdVuf%5fbQ7yr#-8es9@#u%
z0s$WZ8)euumUaqL{K{@|YIc}06~IF4Qj3vV7`1&;A7X3f0ca<*Akvy0Myv~Bo4>DO
ze<E-?<IU3?a#xOtviPJCJXrn?h;8MmjID?u^X~0hlsD7@+6ll-T_>C{Zfa{5@poQ%
z%#DvKJJyVyUk2!nW*xe8mnX<LECf&&YA$W!_Clfou$O&5(+r=3`n0x*RNW25dR9(<
zQ6&$YWzVy`00?@a<#=vtF-{Bs$U$ccecw>G**v^2Rh!*_E6Jni!ZCuP@s1~SsAsvw
zbScY3E7+;$BOgakTmp_j`1?UY8_iw7Ij23=C|6B~%bH|os`*<$zx*qv!H-l2OW`$4
zot3}8rN2s5l!BL)5{4JkD`0s+z2Pv<Smz@FCs@EeM?kO{jmwe_l4FZ@b(9)h8(e~S
zofEeJNZT8Ls0Cx;o{;8xl&`!)ndgD|EHl>D+Ogl_x(@E?4Yr{n20JDV)~B`dI<*_u
z$9@+|Fn9Qxs>(_)TD`#j*7dz8!beWG;oy^hSE`D0YF+A`YwW`VwUsd9oGv*?9gmyg
zo)JBHnu7{vg0(K3OGk@yOqaBa^Iv><3Gqi}nM!DB(Z_MWc!9U{0H1ONHWXC!ETc_W
zp0plHAtKo{dG9|sM9Rov;c>V#SgOR+gyqoo;&(Mx$UZB0X%U{KQR)TJ@{9RR3Zna(
zyej>M@3QI}e&eIU_0@d=b-hC%1>li*_UD!hftxy$%J}-P4X8@S+1meXki|{)fP>Q2
zw%@A#7Ej?$I)55j6xS{tJ$?^g9(0>VN?o-?j0pcjLN?0*6I-$upUxKn*@VwOsfcEs
zOMOX@IrKWMLhbjuDBRI0C219Rt_$f`)S#+?T8hdyGADwYUD4rdBJWk^um~=FW$cCD
z3w1^C|FL=)g#rQqT$s1FMn2nYa+9OWTWmYqF-aFlbGJ2BzsgyLqlf;H9}eA<3y>Ol
z^kM;quuW6j@y7+j<spr5OK_p7NUG>+<DfT3OXu4FDBgj4nl}dqZP9U42%+^$>(e*`
zMBU}xLD~0Nq0q(uFxgs{D<$g9>L`Gbll;6U7ildvEIZmS$}37X;*<b|V^Ve}_SQV3
zFXNU68NYC~(pFUt>g!4d&nC0sHmdhPd*?)P$jd!qJROE0!lUp8fFsr{6j7ezO3C=I
z=a>&^OO&)gRUQmO6^JzsN;HuC6bcJ0YFfB|DM}yuHiE1fL;@1T@EWqD!6L5G#nTjD
z!x#d}EOsn0U~Ncuo1vm39@)iG3issqQq^$!VorQiA$WFipQIgN7k0a1P%ICPUyv*%
zHep9M&(<|kwvauI!d!>H0-BiD)HQ`%Tt)$?)yqq3UGh`;t{Nz)5Ay(&HTU^Mx~l)I
zaBRB27~)}DK~887e|WwqMaEqU7!MUa2VnOO{y((ELjYwK6V32Xc8`c#HbZAN7XFol
z5^b!NOY2O?CZGXAo%N^*Yst4~dC(`>H0;uU@YvpnT2nfr&*cC`64Kl_W)7=VM|5hJ
z`IjvY)(LcLz?qPd{~+K`>2x2shAFkwFe^(V4@F(8P<4hB8X|u$izu751(6~C2+4s*
zwgib_(W+cV6-6MuWcJW+9w#1t0<vV|1)=@*YpM`_3XzKt#vQ^X4k~gCMLaT5Fu-}i
z?ZB)}Lu)q2j_oG*HnU%?2z(Ha@;PC!Ea+amR-o6va*j$5P7_S!UWp}1;?Eg35zE$5
zCfF-;IJShK^yD|!n;Qej*F=5ior&*H=#{MKohnM4D~lqdYR|dZ?)Bdg+~^pz6+v;r
zdE;tfR#nYG{naf{XxG2$oLQ~$L903F28||dMQ=%E^xOI--u%Z|fPY<pY)xZO)mX*n
zxt2@D#IS!lGGGMHohgI#0MC(7cGA+)@vps)_Y93llEhz%eB)>U)5=b8o)!@5qv!Ue
z7h|Q0epB}s0Ci=)PGxKWP}z_@_c#7<G{wn%1e__x$=-iM%fBR09d}ucxcf>SOp8y!
z4`}nLihl<LP99aypbiG<(^4s)VbORKtsKUDPs1Qwj{l#2cWBA9`2(IgOQ=xKWzZ@A
zhY$r&;C@_`D-0)zwYIdr@{P<1R(5Vcu&Q)httOPCBRGoK3p`p8fIrP4)pm(&%yliO
zWxwPV@X|v7X>ai=(02Nu#<_bm7DzEb>BUl){xyRDnNU-Q!xF&1VOP$xD7=oMh<gd2
zLMXwh$jic4K%9Y;qW0Jk6*Jw*Ya27Tmk0@*GeX{Ijyj{rOZ$y^i@@N&Qv@+Yu%Xm>
z;tu{Nwwyv+eauN;%z_{1l-IKC8=w39PP~>p0BekuborgZCAk1ILq*J(#~NOF<?ihD
z%zx02>K)P?271LwSi=9(cppxe9hcB-am3gRBaqc}*6ZXs_h7X;08-i03;#<UXd%3?
z?>zm`(w+#;j7>-H;2(LMJ+buhyD1EoIx^u_unp8me!E*a#`GM?u}&YJuDrV`tTD(#
zU&O7hR^tqMda3ln_rGu~=DJpd$dE^Yl!rVwmz<Xl6iI1c^?a0=X%2HG7y!A6+aEw7
zeH@H7W|1j4pp*o%$kf0BIRMn47JqaA&z~j2wP7eyqJ4=fGehc<QAITe5#9m!-C-Bt
z-Qn2?8{1}tUis!1$_OIaWSl%Q7RS=7$sfCdvGRAVd_&*jp5ftIr_O+7CuaHatcxAJ
zjmhBUzryOvJ;wbd!4jE3^)j6AILTUT#{^%?ct=StlnO%yna~>4)@%L*GO(znH<a(V
zY2ID|u8<=l>eG>gjd6N55O{wKi)>_DZ}qy9@c`nLq@7qdar{*aMnA~3%EX^uVm*$(
zAigi%fm1%k2<{FbPeoHc%g6;H4Belede7`boZwhk$gZZ<s@x#gcyQB>6+Vv<K#QV$
zRa@u8%IMFZ7C!~QbR*mJd0DllG^^2%GevXd!9+_Suz1iCC>`()>2OW}Sf8@vB~%F<
z^Jx|q82kElp~MD=(?QNqG=<k^fwSFiwp#LswPlNq)(1wXjOrtf#f=v7ntx)-3j|2$
zS0R8pG7ERsXOT0sS=+wTMa^`Qb-60>@qrZ%eV<SKn;-mFY!UujD!KoTz0Ut-B4f%_
z{-ZBmn(Q<Ho1YsZgRwx342ULjb4wIQT<;8<Uer<eaAj(A?(#qBC0P*mcBW~6A0-wc
z($l!#Oo+V&If&>G)+8^m?LT}{tDNzIUB8SiCYWWalC`;#ejGu__BFm%t9RtFDFWK}
zV!_lBcA9An*EPu&V>1lX;Td?YXYico@~CbfVD#RLQY{Uo$<{W5JAUE&N3Eb$#!|zI
zvcy0_b4k6sd{dEp^R&eDobuKVdwfTn?LOrZR)LiNK4qXDC-->O+Y;3eGfHJ!{uU_E
z*?`9;{Jt8)u+H`s5(f$Gmxo}oCLa9`qW_jX=Kn?S|3`MZ|2L%YNb~1CKmL~z4eT?=
z@vjsOxd6z>Yn&A12tbg-ibM0qDx=jdmX>93(!Fp#86Zqy5q(8j7I>GS#YNm(#9O#*
zPcetNus8M*Q?GH|>#JKc6c60osz0aG^M5ILPfM7xCVQ6oaBb-&Kbiw+KPhp)d_dOC
zT49`9F$V+>KnQJPFo){5Y4dH&Pck`+Bk($tx)Oqh#A>|^B9MjW02s5zl^}dRTq?ad
z`@VHWvf_vd=s|N6u)VnK7EH@?Bi~W2ztN$5cQ#~{3;1dz;Ilgb($?%u*#W9pjc~H5
zM%u*t1zGqUywD&!y^sjc0xf0KNd<6bXLf~$kmx_2%COWwy0b;$$0?=HcLrP2e0o)X
zHkUJ;YP`c6_IUvjeT*H^0jzofXd_S~Ni7sYE1`_aSSoAg>KzTTSQQGiRfFxFJcO%C
zpLonEy<HLX{8_VdF{4;jemTt=XAJi@ip{oe4!~rwWekU2#Wb$;r4+|nw?j1$9VSw#
zk~>dn#1(%|B6D}Q5QI?ZOtHMUI<|ll0T&v@+I~}Dk~qqp3kOPIFgJjkaa)C1)50n9
z_G28>92VlHb}^Gv8IuB6I>5MQ1X41D^A-?HPz6VaLWt~?VM~#RS>1?W)1B!L8l3)y
z`GDKT!Ob2Y8d~~)I=Qpu<N8NFEBBwPt^XUg_g{F{<A0bG=`(n)+$ZUje&N+94BZgq
z$w{}kxXfI5Y?6ND<6=cL$(_7d4rmJLvd@mxtE1U;L8NRE3=3svf&lN!*&Sg1CM=bW
z{xaOu8aDa^AE9o8VfNquQ;ymE4^#a=iUw=|bkTtZKyTDkjNP}kwzgbI`<n+HlO<Wh
z#Nbp!XnoLKD4i9}vZ5WqG2upF4M-EmLF|-)I5wvXA2F>n`?1kzAhlBpY`m6GuvL{D
zO8!-{3E`*%kR<$q#zgZ+lncY#%hRH{DkylHz+Rg0T`v&RUvS1wG4dr@miQWVcqg$<
z5x09V_T^n{wv|?6Cj~#p3ZShVq8??pH(O<I$j{*9vEt|to#zO|((O_doI3H;eq?P+
z6h}4a*Z~2Xr-dk5S2ZU=ihcq3yp~77_H)V$T#RF1MOBa<?M<qW5$J0RM}WWB)D)<+
z6E(j!*i^>;X4ZVw9Jg=m8#*HS)9MJ-fsnZVld{P+(szYYXy@<-(=YDmr5eI^{@WRR
z`<w9=cWmbMq(yD&&RsG7dB;-J2FgRg7oU!8E=RYJ;vyQ&gZ(5w*MOFCu(jUYHaC*R
zN$#^)bcnZ9<LnA>HN9*+&<>eroXyC&>}9bd|Iy2)g%(~GOw^U1&DvSU^ZHj^wto5@
z3iLUZwb{Q9<jX?B>gV6^GS$~gm9&Y4VUwGjHo^U0h_G)q8MH3Y?EAKTV)f}Y&K)Wv
z;@_Z<(B-BVfx_1Q{SmDBCw)5sI$~Z+>m12!{OxQDk(*;L-mV@)ZHNJb1bPKo+J=&M
zj<N425A!lZUFPzWFZ8&(%t;e7{Dn#`u|uDQgj%Vp-xJZV^F|UQlAkrZX<=YlfC%Au
zv2_RfO7xEVe8}m!o!QV+A)Dp%B?6WUdYEn7SFc~^NgXI1hm>ckI5!}3m>I#-t<6zM
z3};`{nmNmHzsDQHwJ#V->UEvyY<+JhD8dK*^vj;wDwzv3m9-ac<U<e-jh`i}hbhEL
zV8<ru%6bpQlWhBB`tK&bhBdH`nh_7w%rj)^BanOVG>rK!hEDFGY>&VkSm@Nom-#JG
zeTcI029I%jq4i^^0`;)h4%iaO3R*f)S1hyAb;mxi)v+xto2Y>??*lEyOkv*a7JA{|
z^YvL|FKaW3`>YsF)o)=UFqbb_c%i5-%l}|W3=KWxxJ>|Sxmgga806<Eb3ZAzg*018
z?3GsyNmK7B`wVy}C+6LLaer^Z!|~j#k5>viRS)WW2SCRU%{yLTm_k2YYA1eF4|)+~
zj_4~*LMcyuqpZt~c3b#5(h?n`(XKU)oJ(H6ymooQ7wexjm)wNZt$q7IiKIly4Ru@4
z5@mLf7rwO1AaiaqS~gHJwuofPt#`9^NdBkS;=@*xAI?$}J4g(YYcZO~uT94G?cvTB
z7qm+8-+ro8-xew_6Uj<q92*<>8T|3))B80;{xO$L>fBeFX&*<w11*Mb`s%7~et-Oz
z)xb~auDzsUgYEt?Fsy)g=UHO|<7bc6j_dnHwqJ3L7Ph5t1@+NB&Hut#C#iL0!i{=+
zDr(dpVk9}q>wb$o+necy0+6uAj)qluo$1c#BJ4-4%4SW*1)Krg7%qEx6PjrbGJ)Am
z|E@aQ4Hx6q{gAC%?>k~B6$m`=)kDAsYDE(>@O)g6Vdw8oi<40WUJVO;iXQhX$fu{z
zBZ7A*KV|&iqaEW}K}e6MBZMjh79y1%I-#Cy$iaS2^ZzM-kapaugf^M86rI>GBFsN|
zy7t+bSG)FWP8^Cn^M>?B_2ju{_f7tc(N)~#^ZBT}?70)mQT$T59hREA3Gb))gm1hO
z{DD8SpYQ&z=Lhz_LVdK_^*y|Mv4tF)re>_vbC=#@VnAOD0b!M}>+_b@VAfnvqdTRv
zIO()r+<)tjn_~`T&u!tFV*v_F3Z&yC1v~02xseBbCUxXggx5RsSmTJnjtSMe1VuMX
z{u1u2-Qqm++$CJ0`>eP#L^1@nJh$A83}QC8&hy0b#_&n<&hwX?s;<CtXS*~btN82$
z?82@;-u`2>kQUY*F&EJt?i2ntqEWXe?9d5qUGA5)1Y6+{$qj`kQ+WdK&HFZfx+M=L
zso!cCe{|@n_~4#a=;m<}$&}EzA9xeWZnU%QX{*Apg!$VmDeG#)y&FcP(EgnTo{~%j
zV#d?YvoA2Br-mjiF;lv?K?Z{^Izo}en%oFk-bP+J7l^xMpOv5$&sOMG+t+i@=(OR&
zK73T#H)Nk^uFP8TiJj)aVJ7aq>@9;|#`+I(C4|o(YTCAo+>$guiN1zBVi2Mnm>07j
z(-OJw`u!HMi1=c<RQ=P>0@s~?Mm-Br<-%r_FuqIZY!V}&7@=EVgN2_!u4NS(Q`h6=
zv>V184?XBO<D6b{C&mHg8>uOOB7_TxaLrz&uXXx&>|X7;pc`$Yc|A)XqZ%(^5Y#aK
zttIjk;$su~(s%nuiR!lu=8VaYbqsz%$Zzf&Glt&N2@{c_DtWQ@;~7J7LoU!`B)rp)
z+|E<bXvyodb}<Li(RZJSH~g&sC1r9FyFqh~m%MQ+*LQdvIg<R9zO;Wu<1NGQmd}?$
zz0Ce0#jZoE=cca|+}A#SfxC`-Tw1drp&+nNN^-hFd(3kHI0t^TcaDo%<T1N>>gV?a
zZo(x+H;Zg_h?v_0w7PC|+E8Is2z{nt4RHd-{zp>YEsX;k{7Z*hA@|q0E(?TS-4<HU
z{dlRb)8y8kVuwG8zSNUFm7`fpxJo`dxmL)tA6v=cOry{<=6NyL!<dEs7LY*Jp2r5S
zun*<XgR?PM$#|(dhjqELWkSAz-anCq45$$iyCn*1e5J50Ix7=VixKfs)hjmrUH-a@
zTF)0}t6wJGjoG+bGg3PQ=p536NSI2|)~WB)6b<+zhgH2g9=$|cR;B%fj0AtL?%Uj>
zUiEofy#8_*Vv)B=?ctvyOOo#qKaArL!ll3T!jztb$nE$MEV+VtWO<}+2iz?N2YO__
z(1w<6C>Psia#ltsE7&KVfqSog%Yb66KVXG=wsmCQ=$4~+MsajT`|Ex;lve>$Sg(<%
z{^A{GMuoe@JMZy(TM-*%Op?w(d)WOJyC&c<LsQ={*kaEKSEF|W)_SugG@m;Oi^-9F
z_>yDN+HH5I#!M4U6uS~_C4OEhAee)mhe|nr%3F2~vujFIc%q;Wd|}?Z1GyWam*+!?
zr*l6$OWV(wX)HKKMidrwdrPFzw4sj^HhPTF>ZX@(t&SB&^)L3Wjv}KvneqmUY-|77
zVn>wi+HrDP<ySL|_Itg4w(9nd-hIYM^!<)=@5ZApzFF6J`uV97jB9eYZ_IQpw`<a1
zv-W6t>V<AW35MU8t~A0`rR#Iy?Lm#)vkw!L(CS~k?=Bz5@gAHuPxPLu(yg`)UWXhM
z2*?SEp79Pp($zu!c?NGC*)rL5J5a*ydNvC3oh=^<l6th)C;M0zKAqfPD;!U=O(PVV
zIvLcP>+Q)B^FRxant*Q>%&)sN_9)8V97o@^N=CiW&`(ahz4P6L>HT`{k_Yi^tw3pZ
zoyO$r7B0}Ko&>Q+2bb1oS%d9Jiwg;_u}%6CxiamV9f}^WYN>Y<oWbp{u_q^8C%C+J
zg~nCiq78l~zD?-*?99C}H_Ni^$LqSG5<H4t!zh)@spL@T|4qDJ3fiUp3Pw&v$E$F=
z1b*&81d%7Xu2yQ-yw>T3rzH80blV<qahkcfB5Wc@UP&XT&-CUv=-B(2_b$wX(ko3@
z#zKd`s=$*kEvNbyI}CkJDbz0D4QJNWqIoC&I*vW}?qD{AD|o-Qcy?0LKP4l7@(uOk
z(oREMQb~jhtJD}-U)EloKwdnU8@Onk+^mZAL8Dw*M|zJ61mrti;TkQjVL6gU4h`q;
z!Aff`9BF-iB8Iy*e^q%Hj5#Iv_B-`E0}W9Ed81B_5zsdn&Ns#dWXig$wN8v_2VYHt
zeO%Dj|G8O}1)JL%BA#^op+tSqQS@5T$ouZwNF*{#Fr<+dM(4t&f3Sfnx`jyYYRavF
z{dr=afvTaH`fG*mO(#1E`=n9b@WO+Vrh}&)e;gzdcX;ciZJ};waWyr?Fv|TON=O#v
zl44q&Hth<1CU6d-+OTs{@7Qs2nz~f%O6bEMO@*#;M;ETw7hgQo<SCGqTGTRl*)zoE
z&;s2U<$Pu>=n{T;OyRT#zLY0ahkRvG<2XJrx^{hp2d_Bx@JE_y?&FX*%7M-0zuhM~
z_^$kMO?!>dF25~?Os|VkZo9MSq&r$aQZ}0I_TyMn?&mW$&;3W;C7y^^sowi$^nIf#
zrf(TtMGKP?M7!G_4*_pDwVv;W42ph!{48N)xL~c=Vd}H9Bm-AbspuAzt^TFC;TMaN
z!Ah2)7fTo4e`;MmRfsP;6=LmXYH%#KH-bK}<J7pz>ZaKdH`8}w*$aY7iepS0A@N(z
zQG-0?T1yt{65p<P%E=%ZLl^!S)^e9>^VS)#Ih;T4a~m~U+OJKQLZ>B)N^9Rt8xu7U
z%@yCoeLCIYtN9#>3o~MYNQsJuAvObdm|_eOab=Hi|DmIa5+n~aAw7S1Q0Y!c->ZS<
zlqX)Oh{@$Z*($tOWcA3f46S%v=C#ov6X%ipx#$;+@+T0_=?I^7+q5wtp0{^GKW)dK
zA*xFE)a{A?Jlo(4s(_BpwPBoG;hNz1&*UpzUkX^C6hc97E7UU$S)leMb1TSASAV(G
zu&vKTbMZ(2Sz6_J-hl)5PCajpO>2381rSi@6^NC1U*O8yl-oXglym`eEixi$x)heg
zD{{Q2#6sWSGUygD!>R4e^5%_%^+&C|$gYW15ahiVKEJ8<a<LH}Fo>BPTl{6W=(LGK
zLm-O{LaRIP<QK!-^xQJUkIeI-yk3diN$>)<zw7VLWi6ic{Z=O%f`f989x&tGI)2Ar
zv`SUUVc_zb6^Xu=njo$laOLV&Sk>V|biOg&=WOWlcKXLPN9SV`;tR&~RQ~2$?~MME
z@w;W*aRwR+eZP`&Sg;CApY8O2tsvxf_}#H=J`%#0|0usJ0H0;Vw~3e+_X+N)z2una
zW7)AcevR8oY|Ge}4)qFpJeIb9*Bwy%<G@nJ8ZP_I&`1uj8unWoJ^JWl?XmruYsDRa
zO9O!$x|9E!J)1mWHoUWoX1yryht&?%*dROd3D+YL$Q!?mjx`qGZudvkp7gx}(k)bi
zp2{(<)R*hszOUwQc#r66$wjzXxR{+|rOVoK$$ow(>7YNUR=lwC&{0*un1)0RByz13
zkps#xt{@beM?>HJMT}TBxq5(jt=>>%Ad;KlTAg!YRx;$Q#@BlSQ|)9AUt)Tn;|6BE
zF}Hd|$+9ZIr<yIiED&SY5XQjo^kU}OV6Uv?P$(!Kuq6&R==T1kE!X9fgnl-9*)aOY
zONpkI8w~5*HTRAphr|NtAV~2X86n!O=PHV?O71JziZ1oP#gqV_WX<^c-*BGPSw6jd
zb|9h8g>rN{IuKkCc-QMqSD<6Tr3YfF+T-6uqcuMsUnmh-GOQB*;y%#VrSkzW?53ux
zsq6j0^5ag?4AT<;ak-NnG_cX5gAPg?$uXZd7BQY7Xo|2X_A<ZF%K1hY^xh>io;5=g
zi2M|EfwAb+=h+EBU;263HL^ABfQ&o0O#03OGCHc^7f24#!}nuBe`cGWWM$oFxZi@i
zs>ra7!<TIw{yhkV1qbyj=jP(s?c+8y&yIQVW)}L;gD(i*X2#v<_-n9w{2L;-((tR9
z;ko#Ba=8nUCQW~hBr>D#nS!6z<N)!-_;Vo;QCw|bI+Yq(=k;*n%gOjP+q7?hcQ(9d
zJcC_NAT}QO2@wE973$ZHz4%v4-6>SinwzQ9F;!OPuNW*LwM)-Y35Avn;LqKe4kNnk
z%<1QanI~*tIF+R0arTGtqhXEQVh81SDMpruI(%JB2!%??D#dzJ2St`*nCgn3ynmY9
z6l1(BYI1hI=>FjBk1B)eu<zW2fYKh6$kGhJO=pb@-x$R+af2=UdM&b1(U<5mGIT_D
zO5V<;Ilyky#Lmi(3SorrhX&tGv9*pqm`lIGOfc^WJ%ZA(tWrjJ0)kfMUMkBc@ETik
z5%Z0S^h-7{$hT(GDI1-Ei@8jHs-i=J>V;xJ)Fh6mr71?n;EuJJqRd`3GVs*yHN6|x
zOnOEPa+<vJUl|Pw1Rz{=5P~8v(_Vb)PFQY`>2iMgtQs-vsROn7c*0o>;2i3XA!%dC
zvLEWo`T)FlO{AxfAuqbeZFipsBDZT<UXxvi(7Ng*;=Bi-*VKM(wDU%qPxowA>QW+`
z#bv0n_^#_}FXkcjtZv;w{MtUw^plypf>!IA3y$n_1tDJ#;BUY{UjbgLPzA(liCowA
z5DU0^!N%M>eT<Z0PLH?A{_MGwQexe?heOOm^OnWbHeurqa?u&2(UG6D^)m}K2NO~)
z7cVQ%!6-w^t`E^cV}QZV87HfBH8%h!DJo?a&^>P17I8C%T|(=r_if};6p-qovbUP6
zd>6T51ZwjK11<S9_tYmWrY}wzgG27fxat`37)pn{|NdriRQ$HT0BrZhjc1IRN(p?}
zLYU7pO{%_`KQfc-AMtWP^v`+_UMea%oGg7t^`-c-sMBGN;ulhkbSMt$QA?!1bix-R
z5`D{nJgd-&YD6EQBnui<A*Zeeg2^FCl9fOnr@KGPFzl$kAH~Ucto>3ebjyWQ=v$ZL
zAbValS=_@#ZBnj(K@%;g8Qn+fI=Ms?oV(tx2%ppWQm`C+xf@0iUv{<lJIm;UdU-wo
zT$Ys#xGX?fFDQ&Xzdwf5(VszsjchDsN|@DoG5wQT%%nhELsep~u!O<psMU>)_hyjg
zlJIL4N7u%JZnrG=6n-308}j+Kd*zEPy~ZQ$?;L@VVwkr>9cbs?LGRj%S~^h?16L<k
zDPz*rZ*?dIi7}oeozg!A5epK;+s0lDf@v<;OD8hvkB6B<4L=6+LZLB7Rf>%=R|yjd
zfB#;3ER}Y4>4A0W?CP5f>zje!)5jG1*L5SH@g~*R&pP-j<|qYOc2*MaY<w_tRvZ6z
zJUtx3t^0@ip{kFz=lPqX)I<U<Ju$k5q8|tqNp453nB>0^kzViYzgT#}G5RUs>kTok
z_iWeBw_e4SPMOs57-*7<4XT7odA9{7C(Wx)f<wwq^$axU+(-?($ztkM40#ltg;8ov
z*k*+Cuo$73FBsS5*Q=`50I=yA4IsVg3(D5WX+3%^*OtNBHXaPli)y*O(KT~00wfax
zeJs-2yL1FYk67KE`7T`!?vU6gu<y99vWRR*qKnF;e2=YkNalQY3QI&ao^fFEno`I9
zmP%CAQeq<_LMUA1!QyL7918Zw#xZ*sN(B=dDRPy5qUTP-;f)hZfvvQyk;I_~&~<Op
zc%<mv*!;mL(}OJ!LRFrqEnzXLf>mZ@+&heCBr;BlSM!C!6tgZ8c_&-9o{V(}E9%vz
zJy}NxxIf5Nr#Cn3X1Out|9k5t|E<NC|F3oqE#GG*vUS{eTh4M5DbUwz(w>)ft1#x}
zzS~N7GW@s<`C5c0B&S(;ZC5G&CZYOE=Nz<_q6TV^w-)`B5D)64dy#ykxt?~K-B>Mm
zsL`w5?L#9s<MLjgN1}M*PM>Y`;*J$xs%nf#k3fXGhj&MKak=ZBcepv1Smjmmk>+L1
zlo#@))GHh}_<lu#KLm=w2GO<n0=mPi-||hHcpO`BI-LJlA63WKijj;2rHDVUw|=U@
zW5zoH5Y`{4p<b_uI_@yukUgVEMonDboz^=xSP7Rqt`}EnY3Qs_M6XdPmwR%0=~(N_
z30oeJK+Km<x#vo_E}lvCgYb(i-Z}PIlK<<G2$7mvBZ0+|@{3Sf)-XDl+o-hiWZY?k
zR&E=;xFM_|MmAjPApd?9EhevJb?wf(Cl?RzuG)7bocCk3QEV-U>#_bUv1TwUt+6uB
zZO(<nUAjPrnE!RGG4TnKH$W;>n^Q-`4dr7V%+)w!v4;hfMr%*)70=??lDUJvv2kwI
za}YkyCHHHHy!B@8($~RXL(3Hhf3D7-$!-%G*oGynbMv{XXgsKqrqx}QZAmt@O14Vc
z-}3H0+1<%nGr=%8;LaE5U#DHqZ@+jDm$y04*g`r`&Rx$}&vQk1bbo+rf|InpH6d}Z
z=)?BT7=o+rP#*sLm`!rd#W<(I6Ory}7)wOS*S+<7>T7FQGw0+^vWuPr$CvjK@VcYa
z*S^@FtZbcuvQwI`w*>eC2~q)~PxjmUeW&hzo&w===IQ7cO?dV0(sO@ZQj{rdm=}BQ
zwr%?zQUK{XDaJGt%WJc%#4Z1<(%jQ~8IphERAV;VXLp#*KdQxoLJucbxUcQVCSM^q
z-~1(@^#SQI;j?FYTsYD^IhKonzk`lh3dacT?x?nYt!X--R_2qt1NtN2i2Zx=MUre}
zjasmCQ{nr@3tvpRL}a%XLl12Dlh%h@Aly4w1GpfmdQ#6H`k%3v*`!5|TJtsSGsDZq
z3h;yphs2gk&cDNe4h(}NzW7BtsEgDWgBMjwr_>&OU4Hx>zQd0S^JlO;Gc$9xYOhs<
z{JG?h!If%`)KN5JR)2|G_N%vnv&K=?i1=UCFRgEl8nI(uUhz@?@FT4+f3CNv?&tr`
za22_1qjefN@=dGg(mXUf3)a1FY4O@oWp|Mn$;+pK7vXcezZ{~OwuWC#z1DEed(83n
z_EgJ{OMY*+cd+{6tBUs-_PkB;8OCQuJh>JHtR8%fM%z6Rdl6ih>lpd+o^banln*NQ
zMS1K&iPl%h8Y)iV_T{@?^GUqqy`4T1c;2637WZDp@98Q8&xqX-$2wy6!PbeDpIa72
z)I__y=8kk@_kDFooY>rZK#H6yJpc*xocmVxfq87RD~@@aJs)M2_`OSucj+&uuemQD
z7QXz2H_FjwYVVTdU1ukPHKr{}(p*jBpi|yq9Nm!Q(a#J#O3GZzxZZHBYhiblRd<q4
z`}?LJerwXL=X);&Y6srVax_3(_|mm+>Eix}6IAgUTKi(tfk48Yl*EvbPW5?E-qv(v
z{=+Uw>_X)C=?Xpm0OJJW;f@u#$nO)+SH1_`zRRz6erzY@z%PVm9q>?lt)p*f;db+l
zAWnh4z%7p3MzC9=nhtt+HSOc4g7vo0BthFoJnv|R!uZpOC3~1G={9LFS{oB=vbIY6
zBS|x5h-Y$+x*XoCw43*$P$bPugrXP!@ZKWdeSpIkP3eBDZsR9E-MeHMWSDbBQpguO
zf#=E)oJj8D<)Qx|@TNYOOsI|v&PJqLK&|lc&Q^;w-W53nymrl#1dbFq<Ed{}X&<4G
zQX{-%LP8ali0th|*v^*;NQykZM$VABb~Mkk&{gE4*Df2wqia_D=MR+WdS{?7<!zzg
z0;dHtt_GBoR!qOA9}Kl^5zA)|gf}JKbZybd>#>@qznw0PyzDI%g}p9+YMb|y&Ye8u
z%7iJt?BS7{%;-ktC=QI7-&My1n^x~21oA{Lk5-=>+xe*2^>UK8DeN$7UcIaIi$%Lb
zZiv^Z^9R3SpOWT$Meg0bbjJU2f>A%CZh3{L&54mONiy(e&pq~a*LMtQy^*U)=}u$P
z_S}c{eKOYFq=<||zVe0TgG)N1aCogr`yG@(Qr*$Gi)AA?U(iqa+5*{y1Lf3kfc8t)
z&-rWny$%hPV2#*&Sn^x_kss!gtt`}!m6wQvl&u6iG$c)ieGtVRx=%pt8CXYPm9ZX)
zj&#P{8CIKqUh?VU%UzoHuEm}1t&_Sr{yfR$sFOoAEBoNEbS+l~e-oOveaQ|)O1iO$
zK0OwyI2mEXdd!uTT-0O!*IdT>8|){!S<PQ9BL|ky;kI=I5Z7qqjqQ#<hS%oFlB9S2
zOz-V01E%EK>Z~Q*xLVzW32I=Zv@By2Lh|ot)?ErX&hR9``kA3sRHIk5u_sHaw7$w*
zkDdxLJm<eDf4YZaXdlr>`Wd$WhX&j=Yg|21LcaIj4C92}0}r4$sTcR=Gp}8GY{iZi
zX2fD#cE9BDnuo3GHBvD&#xV1(pb=6^*-SMiz;5Q*vugJUq|Euo#itpAp)v1jL8kBh
zc<nKT3(I`JsK<M(BxY7zg2~US+lHDiSReGDswsdwBrsr|(3V{xvO%`Kix=P4GPN@1
zjVyNv5AJ!68~F0~k0ji-J?*@ieml5jDiuDpwd^=XuD$5UyLE0X^vUbBxYM}y6%JOq
z$xABKyZ2~rYb+gX9dX)up-|+_{Y25ew@d1PQ+i^BgFA6u9U&#%Q$DWjglBw@Tf*53
zKHoK`KfkK>M&MBT>1nkEXCZZ4`5nGCXM<YUsWAfb_`-A~cdq?nbZy7x6u${E>9Al$
zfQ1~kSx}_x?MUD|Sy+O3Rn6V`AE|5T^S8yYHVf7d?3Av<PMk*%Y@h0@%nHk4ri_I>
zIkOsGYX3AjOl49;rug&7oUQO(l~KSzGP@QH&<>ngMDaGooi6^W-M?<s(KB_66oDzm
zbPGP0(yg`eIC8M%K$zY&n`OvXuM?WSa?_-X7*n9(okbs=AL>KaT|Q$*O$ATB7mn?y
zk6ldj4tD;8%?T(kjy^X&V2F8vX}dM*{Owp%#ife3VX~@!=1CkT6KY($hvY9WVz#Qg
z(B7Z7-h9rcwwq_!r;%$79qBWwu8jZ|!>v977JKNm)QWN^Z>A@&jb4g<Ey&((UCGx;
zS#n><+a=#MdsssE?0J!LiKVlx@q<2RH3Bk%-UlAeQ!l*P)qYv>oB7ccxccB@eZ=mn
zB3;pm(p)&!VR1$Eu&k(_=52GQVYvE_Ps`ru(vx}*q{T^zr}f(A?*=>z8IL{qGf?D-
z^b`Ii@z&`2=d&fH8{(vVopoFNqgS?`&atF;$?yH%t7hrd>UP2;Gs?Fzy4H61wZ4SD
z*TcGkmeod`?cko{y5q&pw_?~KEg4f=x*!(rd{9!k=Fp_Sqp1B75K~{qq25f<k-ikG
z^_sX&6YK4wAJDH-3e%O&)|!^V9*#BdPrL5jw{#~i&)!DLgV+-wvT(NYuX3lksb3{G
zH=~}x7P(`NpXcV9>|Ecui<&MRz6lN7H7$93J>kdc#MdJmO<u3pM6%19y!%{{P+upW
z9d5k-<-Jc`s$tWwrl%i(Erayth>a014{QrQbwFsR&t@$&U7*$M+pu<L{xJaRLC&t;
zTU;@IJJL+3skG=R2)Me%fS)^|H*kfctLG)$hHnVyzm(nM_O00ZW_<_+y>V{A>jXR*
zx>-us<stv&`JS#+8kWo*X7b)opta-&3Uy&D^!l~2LzwK-=lq9!#^#Ls*L{QrF7hDX
z5yCt^S3XViv$V)lO5aTX6Y0U&+TGo~a0=*PzteN0b1gB6=I$!cO*Idm7UEcplu6OU
z;G5$kCZ<AqaqT27<Y_%hjbPIs8$oMfXs&JVo-IEfo4d<Bb*14fi}Ca`q2c>Vm34WJ
zR1-jlHpE@|1F^4aL3<u69mk(ss@OF>T^-XmNCq;rM^{mNq=iVD<;%`MLkFqoTB3eR
zr^Z(?OWHGq@sK#$N8@xq%ds2I9wX0>hGy;KA|!n1$sio@$kuCszBsZw?9WjT3^uHv
z;V=INba46%s8IgKxJb!|Epu9m3v;Z?4N%`vj{3R<-9><1yEo-FWZm3sBClplAMh6X
z8u5)k?8BF#7=kb8b*Ovm^NEZ3RWXasXLmjn3r9*H>+@>fIYqiIvvZC%5+PMnTgMxE
z$L#P&ttl_H$xjcH?@_-u{^4|fJA0NT9Vt4taI}<bolje&>En&i2CVD2>aUWi#y1MH
zD<SILD(6q_{g5e~abSTCAX}H~n1}1@J}E6zUfYv<tLw1zllHI$RW73bJsZyvo}I>;
z=G$hWQ(BSkrcE|$Gnhq8cZBVJr*M%pmF?0q=;TWwGF~w&KBy~W+U3tyocno}J`V%u
z=CMJ^Y&3O+UzFavaeluOtu)p~pAR`FsyVJS+=n2RbXwm@IEWrT$e;aCE;l>dDC{k!
z;XX=Uaq~FUGm`t~M|C1!)2X1HQSMFQx5ncY0Jk__M11+N`lkDkr+$M^sM1m$AM`c=
zvsRjZyB3e;lvD{mS79Z%>Q*#=T$4?@4eF^L9|)E1azh)wt|clRN8fj#cb<XuUlKHW
zGqBGhEI@72KPbVk?go8i(ZNXSeGAM(Q^R31xBaP!<;~5oyc-PQTf%S)@P$wJ$3_y0
zUY^#g`LP$sX=b`FwSI7Bs(eL;PwlSiFH0})$=>fIy<LA}3{Xo3{>m*iu?UCoFt_Hg
zllC&>r=K^0q%}WKl1{h|1EmF4&F-$$sPQvduVK9QS1BvcnhKzXCp3FQ{YjMvTy6Eu
zY#zDxaJ&I^;7ZO7lrtCA2v`R(L661hg!D|763K<Xt{;2Q=`P*PRxCI<P|rHl(EmV;
zNNY6x%L&&*nkr-4Js1-JpAy)Sy|=D0BKx4E$@)bSUnJDff7iCWePEQ{1#a8ZA@6ps
zw$6W}0-MkxTkp$TsFS6YNJ_TBS+U)7HlZlmwgRd9?z+k^cR}~Ytg9)X{8jCbFA7B>
z{is}99lJJ-2GRQ|OpDg=U$<K4M}2nlUTZw)v~)OiMvbrjb$QZ!ZiL7meVw;R{*gW_
z=UR2X7#7;-E3E-u&QLh9UAW(gQR}eIM@q!7BEoXAcz>`SpDg(jBGpRWG>?o}eHVGf
z=DL{<!_E%Us&hm@VqB(me%AR9{x#1J^$U6DL3M+cJ7v2h@86ej>g+5HLmO?(yy0-S
zxYJ-KQTuh~0s9Z;&le1w1EUJTR!9CmiNZtr?#qACzo`Bq)KBKbE!7{YR?@#O;Xa?t
zG;i{P16OK<Gp{W<oBZ=8%8GI;X*$TR`_0?~-NFMue1!W509>$nzKN1h<V&>LTRNfk
vgywOt*GuKM{~n2b_5c6*H)udvXj>|MLr7NUSY#plyp`Tf!y9GS?VkN#eIaOu

literal 39065
zcmeFZXH-*L8!j3ZMP*w7QK?Fkt{@;K6r}}_UIZklH0er*(8R4MASE=TGzDqWdkMvY
zKxh&=0RqxX2rZ!m!kJ<3@05Gb9cSDh_x!lyWDJr;va;5kZ+YJ5dDmQdtEZ!W=JeIm
z5D4T9Ohd&00y*vrfgF2s@&tGXm-uNFyqtKVrLF>A!DHuMT`+h#^-ROe0|H?Wqx~I;
zo>{YnK)4_<6=fse<mEA+cqZfVUu*VR{5Su;#;<ywjwyax@PyGH!8bAxOx}(5S|P!&
zg-%Mh82CDBo9d39c-Aa@<AjQ;(gkHDI%TEfr^2s4w|SI>S9DFVylvc{>+gS}G0kIl
z^S76wvFYHK;J_vLsl&nipQrz00bl_xKOdMN*>@YY96LuSuPA>~F&F)M>Kp`usYuqA
zrkO}1E+%u7XMM(ZS}QA`E53@n*Yj-e2t=tSF=c@k=Z6pEy%3gvHwAATMgP00r+i`J
z_&?hrr^8hTz-9=P)ZuxIw&8pD*^Iu1fjSJz!!DBhCG+*bk_C@T%;vkyBHlm&hqol6
z$f*I3^i0G2T3Jm;9)Whj0|}T1@BI?Yx$I)ao>HC^t_1_w7_V_`xe}HRHpT0*(b{W<
z<$_uA_Q#js#omS;B$VHLMP3%mt;)>ESGPu4*PCElkaimW##k|dz6<ffuoRvY{@kPv
zzY-lR0{KgGSLIuS>080C9xSsDb9g->&&7JaCyi<t9D_;n5E5nF8sm2&(cBJ|ne11d
zx|wOt*?;h0JDlP6q7b9!N&dC@i}vj7ydqlZqi4jw{q)sNGFo2u#f`w5HK&YCV>72R
zF!@3b@JJ~gWIU%mtBVUyXS9Cd##(6R;;DfPnJ2`La5qW?WoodhZ)a{um{EzJk~~xD
z45902VqCV;EdA-K{Tqp%>XCskwR>s1QBh@)OVD+<_)}c6mY=7iydKycF#K^g{M@40
zZp|6aJ9agr@W5~S;}v_0-hGs4#FE6}SaX_Q3+{y6mp}418%+0$9u*hP&a^wkO{5?N
z+amkkWfyW6tS@SgFxjU@GvTi?3?n&o)-O9JT~W3eI9s_GmHqCkZKz4x3E#L=IawQ{
z_sgNj*UznwO&FTy+4=X$C`6&n#9utD+LNx!)a7krO)OWN-C))dKLRh3wLU&zwcfhr
z5E)>*hSJ$0T{#?&(X+4{6%)$&kh_%~tsO>7@A(C~vpI?&L}And$DacGj1Iz_5Ti5x
zih@g=_Uc0L5w@_5Cw+{WcVQpFyLV9ntmsM#>~?z6iidP8nW;6neCrV&syo)kK}u}h
zYnse1P#-Vuh(Fe2aAx&2uZZz7rz!>!QYEa=yP(hlLizNcE0aec5WP#UebEYP28O6~
z$I6Zyqa(<XHoC8~EoM|J+u2NQV|rd61m%|aw<6#EL{wF&Lnuj}&6;AxLs}amzsS7D
zJA)ZLi+^ZWs3T3($V+~NLy|(YW27&*@SHi>AW(=6T>14C*+J?5W=(m8<TzK|^_1AA
zEpT4M!l3H1pBUM9-w>v_J&n5|QCpso=^xHUjOp<62t^;uq;Kz-duXDG)w44T$ZBtw
zIeTa{Oo`+O;^&|_s>h+^cD!eS_WAz%_fbvZgRP~eyzD%Tkha7tB6oiA2R<;6h^|Ge
zt&T)T7u1&8&UUb0<PLmb_bEpre{)#;8)M^z0upq@<Y~f8qJ8*i@LqT9)|=n-(8W_&
zDu)*?I?3izd)YC65!=wnlBnD?6?JFe^LJIy1e;4IHb?Nif1YaTt!zDgiD&yIgY@>F
zmTTtj7C`D4?e!wjOZwFH%YHA}zR3xzS-y>$5c%5eS=;^maQu4T{En+6o-m@?a?FJB
zLiveY%}|A%m95q(mI+Hy38d)AlQj9quoTPnO%g0PR2@g1jcaie#d1T}e|q2o^9t8<
z<b*veYH^69f+1zN;#;~+nu&W;19s?rtluS{G51KT^c9)+LaXmS+0lKAd^4axSl`uG
zIW5&BcUz5>@yu#svwf{_*FVE4KDT<c-se?jo<QP$f%@=cl%H$85%Sc{ni-tHR?qXG
zBja!m(zeJ6scvrFV`=g%zSCxtu|aw2{uVdh2A;+kq}A?+x{Cy?AHOn@fJLnQa@1|m
zUhNioV4CQ`D<`t{wAV@=tGlXkpcLYQ*~;M-UbvGMpnSsDTI5;M(~zqC{~C(#UjiVF
zXOV!ygH^C5D5YN#;@q;j@iktGsR!-TT8@88ToN;_0@kT~4#<{Dc~lJ_<63OX($|1>
z`N_52ZUsNbYILF)(SaAfC7>n#;yV#q=@lL;%`7ACky&fT<M2{<d}duyO<8lWhE?kx
zj1$uVWi5DMCkk(DuE8#NM-Ltl*3Dm_=f3Uh-t3I!A*>H4&OaP%6FgI#U%IDlzsN>^
z=so7vopsLV3zFg9<(WSMF)n}N6jPhAqNKLqOfCPS3+SL1(;fkf+i~it&S~<l4A*zq
z!!Dvi((ylph;<5-ggk!*lEOuGDokN#pGWqIgyo!TKG_#q*%tYzD-*Nsil^#3=#n(5
zc)Ds!c`K4o;WIL@v{t%<i1Im^Wl2+)2iSKCGxRc{TO*e#$kvnNU})JC+Ry|hOpQS%
z!_nzO5$vk%akn+FbK>6;1w|duvwQI!-<3=9H-=}W>+jue3=|>{ljB;J-cl92h<9w-
zJI*X`t^Sb=y?HXIDyS%mJ6PT!G^Wr)+Dx6lCpDcAb9=zrA}uGlZlCL#U-Z#R+x9)k
zMp@<#k|XJq3J34TloBt&?`&8AM(~Zksh?3|+QPbb6sUCcv~rk^9uo2RS~FPCRN|Si
z`QeX6KlDOS29z<^DXd$n5m)KskA}mkoTf6pXI3vbWxDENa5Zvwsoy$E|43qXud0$O
zUT3awEWkGe<SejX#SQON--j8%oBgf!juzQA6C^ChX<<B}2XD9x+@pal5|3bK7jTH|
zV5@#RFPeM5&&eVHtBx03$@&D&=fLtg!MM1mefF=xv`7~P965sf;E1v$&)J1LK5_jP
z*bU6y0f|Lp_uC9<pSPl%s?f<zG+aN>w<+%EJIj0@9!a3*)iW^*&T8+aff1YdewqR}
zt+WU4{(U<hvty|A?@F+9F!QV2L;?K+I5DnLi_Jx*%O2<Rd|FIwFY1SxIQJ6LZ~J(Y
z;S7rs@sc{V3!MFka%x>kfNlTWEE{YpVfaGaW0()Zne`F$pxwF-&(=PSTp<ky)n^{F
zRr_Hl<X$+tJuM(48CW@^>6oHqhT7Fmn)w$R$@*TlCN4e}LvzQIHoro#uV;c0J`EjA
zr(Ac!XQ<XSgV&wl4B{}p`N{r<T@JtXfOX$ahus48-Il<SM2Gg7`ZTYAb;*r37N^@@
zpCcT3ulIOJn;-<+>H5)Rk4SOW>4JrxLKpE2-?7Sq*x--nR$Ez|E|du>?Cf27s6897
zYW{OsBuze;?2v}L?qsmDr_JvHA|Zt7W+=#QBNfFq#E~pb(W0GqWY&c;0-qn=V842A
zu1h2u9rc5Yw*g|n4D-nvNUn}tANEdbSu#U%+`nfL8Z%$R+I|+L+B}+dHzu=D)BgdA
zVciwE`MQ0{nCCvZ)gx^0<!VJ>W&KiFL0orbx(FyKDmC5DEns|?({k3gQD=8)8FK49
zjg!qZCx~+o{js#kscBhie+d6LVc6A-<ikXsE_c%}6l3H<xAEiSo|l)PQCwT;o`n@6
zsjq7CFr!BsVOZO5lAXN=0hMQBHp@E#&}77*irrd4T<>`48_(3bwISgJT^iWb+_jsm
z&|W+Jvuf3Mj0jEIo3m3Gm?AkMQ{U>l#@P9xQ$-m6uADnK3tQw`U_g0D>)Vo0U7P><
zP%wm_8MXT;J`;|-+8!xbrp{^CHcCb0qTOs2+A{Xq1J`+WeSh04Vm6r0AW=fSLimd)
zE*(kLD8EAO)w*o$kPehWtm>@6t?}&6HibPNf32X}?lE6nuZlse?oQROA)@E0Ho8w!
zepc|P475Cqmt!ZwRzdf;$w&a8qXiNAZodt0d%p7so(lB6-@}#AX)ilAcjplMhUkZm
z{B6XsG!1<sVu8gS>0A4v{kv7m@7$_g8(mN6N!bMBkgC@mIh`sal|~5qqU3XmfGqWT
zt?*$}@9`4IxpTFbDXF5;yX9>=t5;vJ629GO_fS|_AHL)nBF*FA5=!_eOmvF3`tKRa
z`_F)&EDMF(hTh}lz-ieY&1E#qnc_z6==fymsb#(5O%Yls(U#^p(x@qGJ`0U%i5A}|
z@bA>J82>5j!&veFyQY9sZ`B^w8~D`{YZsTP`$w2~0@Xb9M^fKbF0@9)08fW)<X+I;
z(N&!May=mHr96!oG10K=k=0GrS@NdwEi3`)35uGSiFtM!Z;EJcL?!`NUW68iJ+;m*
z=%90PhXphGnjjhGC>tP<i^?pr&a}8uW~G>2ulnuH*6978&O6=8dv7{i_H7sFQQkXO
z3b$EA_wF08qBt#|_~~Jf3sNTj{Do5O4~mF&jm#VuAI!E%nCteGJ%qNHxI?w^Ks2f5
z)$aMF9yPvn5O(kuLGh|B>UD=2?It1=#;G|H^T@I+zw~1poojUb6%<Zm)_d-ZxH7Uv
zyy|{%?obuURK==o*$0ZMxfLC2mj5-OV~u*B??#z6ALO>h?0XwQ-`$t}m0ifLxKmH0
z;%i70OISDTL*e$zzm)~rJ*44oZFG|Lmo8BhVRG>!Z^$ZR0*uQW$ocC}8!^cY!N^S(
zAV(?^uRLy4!Lo`+tPa0u*8a=Y&vce;o_j$UrJrxiTM)DPAv2q4`MdQ3fUK5(<-=iM
z{jZ*s{NfW1t?(%A!r5YBYTAb&v=#UgC1m*@twuXQ4BP)qfBmlx{XhGh%V8KP3-edO
z2EcGU`_~=vGKF~i*IK2`4N5Xa7u=pq+(n8eZociHUaFH<Xn(LIp8dH#dl(r$O{J<T
zR$44bOg{d4hTk@a`hX+G!Kx?(qh%ZX(pAgPhBJ-PvXZy#z}iNEzTdL)jB!BPxvK8{
zi%X>O=jD%IB#=GRZnu#od(34=_H2^<couF5?Hiz`D)fPNd)>Z_XyA6ySmUgkZ<)V?
zGc=s_g$g))$`lcAnR0=#s8+OS@xqd{cKb%MXOL<dc}c%&4cjPr36<`VWROD;$i-)G
zGMSOzZ*f#<VBTUVR!$a4;*L%+zXZt&-QEArg2YS-Ea&W%=u>N>v;2<yU{ic1XckjW
zO#kmEaqM9wZ|y;t`9heVGiTPeBDbadh@U1K;eqoP=nrdzVBr071p9&(lic|a{ERA5
z##=2>@}KTt5l|{?1{7&@UR|b9!*Rt>4GMFTUr*GKl{({<J+fkF@&OS*W}uBUCZsDo
z;F^W-f(=a4M$OE&E%Jn%8dl5XL#qCckonEuCii0Z6^szki}DZXeCuqg+1E<DC)32o
z&U5aBC%e^LagF%stU6*U5VCGCj8DfIaL7dK-f*-KryMjSG$gio%QdkQa}2W6kD_zQ
zk~%Wt+{QnU1HXnFZkf~)kh_>jrOrwYW1fn{+YhjYw=gAvb_s)uU7N0_Z9==|+UTG{
zZEO(_VPWl&sg*CkxMo=13r8zT@Jd#$vtS~Rp3@o;+2DQ<1E%CE;NCT`I&>&o-WZCY
z#Dd8z2lGnz%Du&_s#X|eTZ2{X8TOwaLo;_uiWB>_P_A#H6UAK~epq-NAFDV*<-;f_
zq@B=9g!=oSb+5`beQY&4QOR`_t-K{^Sx|bZRh#jA;%2O_|J*r$^`AL%@HF$86c#-{
z*St2m%pXWm&*7lF>o59_CK2ND3DMb~R*W_{TwFL)Rd674a<n@$PC%4Yw?eLShfqa5
z<g(L_pXTGz=NRIi3Tk^QbpCI~{JG&PF0UFZ2R6zhD?cyq^^m3Y$!mVnA*HX)yU)?<
znbgva4L-DmD)KBqmxxom{Ui-M)?YMs(=Y#5BDV!IYVlJ<J9#O84rilwTfHoMdAqKI
ziCK9d#c^Cle1lB2psZ*FLX<*Jt{#QNR3C*M%Wo`-G5TO56U5+tzp}C-p=O_Kf@*#c
zo<DbOJyp5~Ri%eLBW|@_rS*Y1fvkbr@oe;n4-CsZAv%+4li<`{=9@@<csaXbE_FpD
z*1x*~V<kWoD<hZeS@kVlLs=vdV{hxmHam|eTw!PK7Fj*RJ9fikIXU7g$;Uw#O?0q@
z9UxI+eej{Vv#1^m+uS-5nyYP3#P$+TDNDczk3=cO-H$$!M?&yfab}gxCC3pykB^(S
zBZyC5bp|$^Q5L8=4S${4z-^eFjcw;;!l)ItQ=B;I4P)hjisZi2O{Fjc*hOY)@diGf
z!9S^JMy=SSm0}!&tt-B~HJ-CU;Wi?8MB+|eUm^BVeR)cwD+k2WI-5-_Oj?t5gXW?(
zwpAkL>Wi6MBe_KM*XM$3kM|D_<+VpXOvseB>6($w58fiRT3d173y1nwqj!e=qf+DU
zn8t3*19qil+x5;_HFQ+Dk6mTl0LAsJ^7`O2TB0e1M(Ix{_8Xa$l0O#p!+*~TqS8^g
zyTW)(;JAkUxYg(NjtZ<zd+?|7i!gh&1Y9qFJ(RO(T2b|$I7yT5GE3rSXnUmuGfG!{
z*93R%*2rGL-rOzpbv3H`XKc$xDx8n_Do_d|clpxoxq?A@zSskf9nO!o96Kij+}mq#
z+_D;O_}XzxtP_XdKwDtEWo2gFlk$xs4nq0T{zq-4A(VZ%RxRJmqu~7!_iA0%<uI!z
zobG4JW#s1Hy1QfIhTp2!a4ipruX@)^M%r#+ZQa9Pr|(|HshXIj$-tLv>nqh_IYpAM
z-WhrJPW^*QLNj1Y3on<Q3VV-)6RW#Qv74ugSJKz1!<ripFV4`Ka}XZO>l@9EhT$_m
z8UHFjX6wRyMcFIo`nQno@+}ru`|)lYwKmmgy4r6eaAAqNl}&=#g&oN+y{RUmE^=KX
z<kFU)o#Vc71=6~)%+q4t=%A46FTT9ATwD@kOm}*c@L0^QR}+gfX&96zXB1^XeOe=@
zD_Ab&@k#{G80-7}3DnJQk37v_Hp4C~@kCg7K{=XCN6?KT`@TD|^`zTsr$9SBKd+<Y
zOdC3BpT}|uN%R)N>!5m4NlY?XUN&mRX-gVuOHZd9QB8S)qsu+Ras>qb+CJ%#5h-0e
z*>H@B+*eImt6BP2#bgedm3(R8vK)P(nrOQ6-s*RiLhbwS`Y%xepenK5mKuE3Zem>t
z9U22FTemV>?cH8=kbc6S=2d3uhd;E+csUeAx$Jb1Vd?UP{VKO5-!Zf@Nm7b(b%UkF
z>3BGsbWz<+J~^y&j0_)tE842<Mg)Xd5?(G-o5Ie9+dDeYEpTz@Y#uPYR0Y;qyEuSm
z_mF1l_XD&1zi$D%3nNi>*UXJoFFlbN;U=D_p<l@pTt8k~rjAQB;5mP#lf!tn;%1U*
zh;+X{tI)+5CjrLaW_J5HC#I~l80`=&A;L5D`it_$8$oO6Y^`aI5XXX61jo-CH4mtH
zP<8D~6#27}7&*&vWiPR@e0iMB(T%mIvrnfo+!aN)%y9=Cq+N%BCBvCOr=52uAG87&
z*@^l^5-GUoE4KBGK`w83bz{3t<a-l`ki#uYOb*$&KPJQBk<W-1D>}zp{6u#yjvc%;
z@vo9Qk-WTAzyBj1&%G<JCE3JkWW`PJb5+IfJQlk#OPVrxkvYh|lM<a~69n1#Xu@q?
zdkp<5e6-&ERXe#WeDB8O+y$Yrlp_P|M&p=pG`(vYH>8R4FAo}2-jSO}E(W|=tJbw^
z=zfZ0+QBY(QRWHm2S=T{q16xVbo8aAExIjjj+QBFRE!gC)n04bsm%0>f15UCGK=TC
zz#Bd~?*Fu}(%Lo@u6SeH;*ndzsT?&6N2sa6%_{2_ck~o7M*C6s(%L<valQeMlsiip
z<7xUA<Kh{HQ;)@RD&TgT4nw@1MFV9U9!UNLGZd$CSNzs@BZ-2!d8G=d@i#uy0{!Ts
zR~CYQkyJWv)mZt{I_Y}Ljd4yEV6!}NL%Sir(Mwf=38(I8BDw<?tD4L|Q}E;da8`T&
zwgU;I#v^&SGFg(Ga;~gm>nJKCf3AJHfm2mn@qIbc@4!T+vOm@{u0sZ)10iS|H)tQ|
z8QKL+wiw)Kr|vaVP#RxWR5oN4<<{U~M<A4&G)~CVb=JG$#>?7KwbBuV($r|u(25l1
zemLD-I7xs)kGkMsuoxkB+>FSBk_p&KIz=vwL%sec1mQ=;zPe`{>eu+R`+|?Of1hpl
z!Oq>t(zue*DUyL|sPo$B6KdtC`h`>udpW8z)anLf(<)*)9OFdKsgP(klvlrZ?4hO2
z>|P2laiW2hGRh&km0r!`Ri2vCQt`DT)XUh$^|5Fvhg?BeVE%X&)-6J?mwM~ZS=BCe
zY46(kW`?>P=dHmakxGns8tSb$H$H+%=4_qKcw@mj-YQ#EGk{Y!ap%_K&wIzd%H_}D
zKf|k{yR``-161`gmfMk%;k{C7C5rrTMV_CGT%Hv8B_k_F0~=Y?yx$LAhu0k>e%)~&
zQ;k{moR2nY$4nFZbnHY|EX4_FJh^`1F85WVIzBr9TK^)mY$j-b+!2cFCHt1B%c|4=
zG|ZLDL3a@rwx1t?=zXJ!YOd#6`EwsM4+>&~Jj6zDi+;}d$+cQ2`?uZ8UPWc8Uw5*?
zt@KE;EanL9l?;drOMB#Ay&>NnBf}N$mCwiW$Zv8aZ;gETtEed@en<mar2qFCUEFD#
zS*FCyZpNHma(X6%&3L<$jcbHh;;B_nPZ<7(Kedr=Nv6%8+GLGLy#B&*?z8I{Td-;3
z6=q8qUwT}2Yf0&W7+M8U+8!XJMp^cZ_zV|Y+9x?h*r-`i1sNX@_!)2JXSO~s&c5U;
z_o9-oEZUo+Xu;B%{AQO~zX;bdr<EihL?Qk<yWT8!P;R<95X~+eot;)peDDm;8M^2c
zmAF%K&s{OwN7H|NS8jaA4wUYA&-#u{8FI9eDc|rfqgOU+4c-a2)$R0u&vRxuE6Pv{
zrw#2SmShIzH&qtT3Knh1a=KYULIN)zfdgv3^=gW!lbRc<|HIzGYiUP4ngHhxS?<vw
zS@*fPMRSb3&*xe!D1g4a=hKGpv^a*63FIx?HsnT$Z2<78u50Edb`N;yWhC`}`UoO&
z_gzdS`}{V-_M%sqZI;rIuHE08X5t=WsoWBcvyGpzoc7SV<Fn}L8}3?EX$}X+Ho9lh
zu#sg0{HJi}qPP~{>O%ftLm=KysMZ1)ujfemVHUITmc=}(?D+mf#5PF&ltAeLIUtS5
z`+MAmy!LEqM=tHQ4AS2$SS-qaOhKWCGGBE7zhvG`X+|krA>UZyYsl?D^tSFIQl?0t
zM%(`;+1EtxDdI=Q4XOK4A4%d7HkwrKkltnv=&0drAmRE!>@X`^Frt$^g?B+?iTH)X
z0eKjBA&LwIM<9os@oxf>??JF)-X=Mlf7`k2m~a~3gDmzKnNI%u$5hp%RJ$8L<QpxW
zX^Xs>FT8+9c2&TGtyVIMmu2kI;y3>`POX3Tfv`HSeF^a?%fm>DAvHl#POnlEfj^P<
zrnuwAoT*KyI~jp+GLl7je#SqodFtJ?gz$@2b8~^JM{8=^jz5*lIe54CQpCHqc?3ac
zX+|uvvRElg)lInKSO0Lfg%MHit6?`OAyCqcMh>e}%I1>hoKgA%#2e!HVkQ{{*FzgA
zl%!fvvNYd86IAkFjh^+~Bkbv4d()7WM^4Tjb82wOE{n@)p?)gKSC6x6?}!V^$}F;7
z>07P)dQbd_OC4Umhx<N*YE=6mC>1Jjf%SXy-KS=cL6$QPEtDLLq0=}UyBYIjE4P5@
z%9;2#OH4Ht1G%Nw8IbqghgasTmv+wkb>rna{8PWQ7IfrlR*X-IdobxFp|(h>s2yL{
zHsR_^og9<X%$ZKti93$=ZFGWHg=!wD`}vfU*qly>stj-BsYU-TSHJEra&mt5=F-mn
zwA<=t-8~-0IFe<IQlJ!~aQ;EdFE{<7!yp<`^bD9O716@hhtuiS&xU!&btrUoGeW=p
zXDvWUs_y#G_yg>nC1S9eOIdU@?)Jqt;hWNf{t6grV@G&NYIN+vG4#;jdd&!;VbF;3
z!LVS?QhZRQF?N~EerB*Ghub_VQ!Bp_zom7#SQvF&iqb~+OAbTVJoP-96c90*y-?ln
z&%wQ=z>@$3vXfk^zqiG+^E46?6Ot;<jr}gptx)IC?PvWJL&uX=g58Y799S)pL`7|N
zz2fVYW-A>jTD}aZ<9*96J>1#^w95>^Tj+jlha;J+@nuomDu7TshPm@=WL7fT4tNHp
zNAj+MAE+99nj*=g(v2R(8vk(#GcQVNjl^Qg;6*$VBc5>?3ROxIuc8Qp80~Y9IhXFD
zwl+$0<N<#PB5IW+WYy|^;0kc)@0I=*(4u)&fRX8IR_j{Mb&1ABU6Y#q&+A?$(+}W<
ztyJ5#(X&CwOxDlqe^p`A=6X}B3T_iJ;EDtKcs-aGyGv)RpIDvN)q;9OMIW=BC&xtz
zp00|JcoKED!nUM>5F9@0&xyQJvzypqFPIO_KJi9foH8^XJIAD|aA0hENvm9a=-l(%
zZiRnC_jJB|9W(0XQ0GmdvA9$5gxfusMpeEc^I?CemYx3_er6dym(kODj)9#=mn!K0
zJY5Qk@?UPonzsk&_+ujDyF4<xlWI}}=UWHwMENTiFMB`}g;k@*9C;NARH8c0=|4ts
zYA?&Q2?@C?yqZzCuPaE?)VO0NSAu+g()<Pa(`PcPWq#+E_21-%Gg7IKCcMO79H|l?
z#00*m@ICtW8mbwyH?qePjn1X>jmxbn)K<D9yd}VVwVm$y5Ahez_~okqkhe8r#YW)V
zP`5Wd1M|!aLU%)?)nmy?t$_+Ub3bJ4*Waxxay&*&y!ps)Jskm0UXWNKy@X=g4W@l-
z?zc_seQR2pl(H(Zbla?%PUvzvJ6}2q2#@EQ!;fIwpvxr(I!2!<H=2X2x_sKWRmmka
z-BLwc-y;G8=O^NRon3v+Oeu3u(V_;Rlxpz`M3ZF)HspfS*=Oi+?X{AZ738^U7dEdE
z%7mo2ocZ}9<FEBelzK6^Ve~S;1ZUBpf*0)Gm~y$CMJ(qHAw=e3lZWR9kHiO;_>QMF
zPf#+V_@pa4!%f^)=x<FU;)WN6<906A_X!R<8Iyo{Ds{v+Acb+K$Re?)nr^SR#c75}
z_xRs4k$Ft0f0oo+WAZ_AWTV=qJ(4d)V57k~Rz_jJpp*b9#24({w^2JM8ZSfrXmcr}
zRt2G(rhnlm`aY9Y6QA(L_#L-X-APxV+iyD7hD0S6-CtzNG0VO2Ebs8V>XctPh@l(S
z!KP;1xECc=J*FUn>Nb9W5Pi>7P|)#5w>^Ki@_|d>UAv#pJ%`u&SW`s1`7O<s-Q-<l
z3}*Lm0%csi9^oC6F41{gyUP5DzFR#DcVJ@e!c0|$vm1Ud(JYTPaV@@h25It*gX{q8
zonz<{jvnsB6j==2&m;_6wu|_;zH8zUbIsg64Zo<$cFM^!TC*M(5_g<&3~Q3HH5rf5
z9rFh+0}A<xW=+J41ewow5<TgB_c?+B^=(nj^mFYG@r`jcTAx1YrW!4t{XE8AKv;{!
z94-g3(Yvl}4pDL+PpTOh=<vK3a;Ki(qidkc^WI^sQUM?<?XvTE6tIK-4&?bAy~uIe
z8j+CGFCk)(_;)4ZRdd;h=l8gbi`ungFF>J(kd)4Lz3H$e_C`R?`{Ln&{{Q);ge(;w
zgY2#S{bO>Ur@!4(?w@JKJjdJG+PYvoxdlsU>vDoMNIVs-p4|WW^kY6fGXDSNdK_Tx
ze;!79biOY_DqL`6Y;tn)T%xF@`S6Z^GzYZn^sBp!8Js&iJJzgH&b}7J@p@ge;z!EH
zjinzYoxELwf~Z51P6N~YxCX8feUp(2Cm)9!Odou4E>*y}l@KK~diRKc`x%A3)gSa~
zZVZ2}x*;ZB(3^YC|9-4TTI}b<w6*z(Dk>f{o?(?jXBcMd%;CLpE@7^t)wiVkWsCV6
z6_%QgokJ@yoxaZ|VW%C()!rGuKE#)fURz?woG$9!WM;;3<`zNpDnV2oxhm~CdL-hK
z$YRj<Q~YT6)@xzQ&s>E>L^?%9M9!!xhDStv&9`c7=>O=};P*J}EISp^!tPVPE*L!B
z8mr5~!eYA6o82wbR(b1<cRX`lfpUC*t=E#!-A})NQda7URL{>G&y}w_qx58tHYrPn
zupfwhPT@CBds+8Cx`T7eZ(1Gf4q93TtTm@qIS-dw!C)}g=g*&4kd_8H<(&rdC0y%C
z0~RCY4idt{veY+!YIG<hGjFSp+GEP(SIPp>E=MtpjSXD=OSc16cT}y8aK#<YO4f6p
z7r8m{@|+Gyv$xU(=P>!KI(mNy?YH5Vp&s2(Y1jDy|LVtNzJ*&oX_nY{Fiv9Gk?6W(
z{UeA%sPZK*4`&CH`b~`u9GnCRId3#IHJ8&hO|ozo3l1mqXMr9~_xv4kv}U8J|Ep;g
z!>hY;U>c1I<<BO+NBFFa4*Se?r35wt6EOUG$Ld46VxPQ*2d*x<pS7nbSlA1>I626Y
z>7SBSbfa-z2x4>b2%L*+>eoBDM}(1zuu8}N#UI{;5tj|kq?8oP#XX<Lj~}<CE5B^`
zDCIIjKpL5wf7k#%E?>hObO%#CLV3<yy*<BaH1g3=4)gu9YDDT^VLt+0Yi1IgQO@*`
zpWNd?O}c`E+eHn#c^L3<troU5mfMY8!mcA99MHMDy`5ohX66;Ev@3e!bA+h*21cj|
zy+4y=rGV0=Oc0{`?Du2I%o_1lR_FV?J~Vv(^Jn)Im!&&MIxaJhxvl~!-_;3;@bGYh
zt8I(t6)4MPiaM2L?6;o$G(&n0+a}ecw5ey=Wt~NYg&)@0wkPg4>@I#i#?$GgC2i9h
z<M#S2yZLPddAV2GdFW<t(Ee^6GFPnM8=~ZQ(|M@)2Rx9}uY){#MZ{1~uQ+gXzNd(X
zG5vl8XN*DJFWnT`icdTs%M;FW$otxsx<Eq0GpnobEKSGhDlD~d2IsRHp<Hm4mb=Sk
z-9a(ha1bgvAXI?vyvpsX|M(22!rqXK$82)#)1J?+N1(Ne<RR-|SeD4rKtVfYcd1D3
z@Yrm3R_lzmMC9b;mMcWW#KcBF-3#0LG5Kr&x-}X%aG?@T*q+abcJy8vAS8qEk7@-e
zn&m!&$vCI5J#noHAB1o!Dg{AQT3EMI>n&nlUY)0zAb4;JAVr=@!LDz6qDawIahui)
z7M0G!PF**OnvY%-SbEE!`t<7QSA3!tmHBZzmcjcZpF1o`IJd@q*OJ~#%*?iU1hHNu
z8cH6bRyYkd@Jmbk1kljs*x5T1vkYSB;xY?XmoC){1Nmlg_^+l#h6Pg_4<A3C<mOL)
zb{EeqWWsc3g9j@GS>XuYTVr4mG4F%sG(74`mdPIXn@efo8Hq~YePL9%Cg-#A7tG)e
zTbHPypyu|0Z-SulRYowbt`xbd4>+>d(!k8{U^WtogdSaNdpPC78Mvw6sd%u{Z9h<C
zb<j0BI%>bZvC$&sI_f*$%wiR=_xcR$LzZn=7N<KrI|%@1jaHKA+(4f35|sv}j{SLF
z2M*aO-tL>Bci%qDp0b?a8?R-I?O4-LMMuyz<2Y*xy6CyT%Njr^F(>=}d22uL)s(mb
zzH7fYSQKo3p7ODEt$q`$6-_hnSL3hb_k%l5oQ;Vh7I5Zz5!A+Jv}<3E{{8Ix9|xqH
zh;(Co+V5AlY@$5!X*g2;t|7GH`W4$TQ^*aA$O+X~Bw+CwO@p~zNzd6MUIv0rgs7C-
zt*`xp0s?JXd<TZQP_GysN!QWsh|thb?1P1|jx@!_5pXhcTqZD)7)c9PkJ#GrnC)2D
zpZ(~@A?-fh>etqn<Se(lxzKBk&4dMeG?*9}#Ww={)2SMD*UDa-Y6;$@rQf{#SzcaV
zGZBkQwA~CQfjwoX(hU#y*;$|QN)odQ>Ok^p@ilC8$ratHsuQ^s^VICimoM&#7tV&2
zeV;7ez&BdaQ^*9|#yjcp%jfI60h~H)bVziU`|ZpmQ94i(bNB*_s&S5#UvQ?!i+#Ca
zdmCv7=*KNl>=nx{7FDh;H?4m~mVu4HKcUAN3X55A8ksJT(S-Q;X-#aWX}RGK*@jyg
z@8P~17J;h^{)EvQiAgbC<;`Q2HbrZoOpKnO5E}w1se2%ibkDxJo2qzO4O9S`l1opY
z<5HI;;mEE#Q<3nZdh$rKzSvw5yuNm<`uWs|$iwR5ow>ANg@Kw|sGwF?goA^_e8nJK
z&Utm>+uZU<#nP5s2mr3WZQ8`1f$B(31xf5hKDnY&*t;hDEKXx=O_S`Kc|BD%^y0#~
zl#5XQWa1JqXpj!5EzB*I@su8wXkw0jhF$mjTT{APiNZ3I)l*S*0l>27WH$hqR8M_>
z#Zbq>#N@oY`r{mDbfMT`+~6u*YLG^`K~PCqN?&}t#VyC=@4URjjr(Ma@87x~1S;nZ
zI`HqF-aXwY{@M03t;k;f7IC`Bi-f67ci4~T$d=L+QKHqgm!Ma+G24Ez(*k%N8nm~q
z2KC>ph9UEea!c0${61Vsn#;+EG8cn=H7RgR(niF&w8UJy7xn(O0~YV@;ZbGvyqS4R
z#H`e&X=SXA;yRArK?A(otNkG96x2w=9{;VCz$^)T{nj`R{F}h;;o%XX7J2#k#$x|h
zv7vf|56$_hTWc+x=W4hAL~!Ps7LALol}q%LiZ<@88-s$W3wVK@7S_^dOtPb<dK4g=
zYh~|1p(SFeW-e9Ee|@^`WiW`O4MHGdcOkpTu`j15lz^)mgwDhpo}g3^fx$T*)ccdX
z82NSBO08R>f&i2(Q${_y_sfclpSjTLJcDTU#Hh{4i6%UXUuq!4<3sl5)3MKLSW-6j
zoQf9tDuAYzgON;FoF8%%WDi{Li)KR4Sgn`bT$J3(Q^{azz+kM2vIhC8;?v*h)&#L-
znh~@(gSIEXkgqG!cm=QN!{^O`fGq9xp!kP_S{*R)0xZUPMh@-sJsCw~CD!VV>~h|l
zta9GVl9G;n56S{5<XYg2%Z|~q47;)^AeK)4@y*n_zW+%C<?&t0784(Fnt@?3npJvb
zk!C`cvtg9I&0gKX?9y{>9C(z3JvAGE7;D4M>__X}Eh4@@XrEApFWd)32`&OV*a|-I
zvH0=&Oho<S+1-ab+^t{DEYJ9R!ggYr*WcCeg!i-1`2l8-Ui794y*_FRIe9kYM+hWf
zqf?q5hW$p*iRLpI5o_4~)BQ;==i?@&sIKwgw|mnOdg1r7UW@mPznX}w2~Ft+@Alfk
z1Vu#)D_zHG<r~FLDpy#8I`fG?)%VF8p8B<4tOv3SnQ=jtRm_(zB|h{Xw*9IjGZX)*
z^MfQ}@#Q&%`Lf49UJnv>n(Vq$$Fz|;iu;@PMWB2Y5dvtZSm?{`oz+Q^4P<kxixUwN
z68dU{ba!``4^H3!hK!sa1SZk~z76H<l9@}M1Vtjyvp>&Rod%BPfJau=Cg_9E-~>47
zoxL%X5=`B3@*#|P9fTY?rq-3Fc<>Vxl<X94-aihkA?qTsL0pNT6qVU`a}4JiW`mqC
zCuOI|`Iw|B1p21|4(c>i{20^SjUOqoZt+=ZJfK#|dM{V=_It}NYH!z~9eT5pvs3*S
z-C?z>-x)aB6@&IT2JtkGg_w?2SMX>^)Kr{iI{nJKGevG|7YypsaM78|Hy?Qc9_QxV
z^SSx`J636q+W@*}2jK_;QPKT`SBg%StC%u-v?r`wQF}J|8SV6Fn>OTQuf@JoHk^hs
z4S?s5?tf<x8y%?gA-3>?G80WJ7Yl9tX?s(&91><bYrjRn`Sby}YaA$|a&<Gur}*xM
zrWXR5zR66v3kdC<$cf`ei-9wa@#dP9*?s&2bHndW{gpR6Gvg8r22brKkPn`A9W(*h
zyt!aC!syUq9St3Lvb8d{0}4m-!d~<XL%=P4H~_on3<IPW7RM)9YUTDj{aX>T926b9
zwn|BMTi(y<>FMS7!p?GPVW->TSpB}pZH;>H*BqbkmLsA$c|7EH&MEH2^citMFhweq
zBZ|2Xr+~tFfClJ-NDU+pe+3y?odjI7OUcQi`R3y->tDm_fDXKGJlH3yXOHMuh!4)F
zbNEe9V6oU_OoGtCdY_?gGl|<ua6bkpnH0EBkVB=U%gAOG2-<pK7%j|8)>gExhvv)W
zOvQ@6C5N>oGwOiA@xPTbQ5e6wM(F=K_)Gca2`CTj82wrFOe=RZIsmY@GeB%f%>f%D
z6ixO~^189;|Cn`UUWjZoPB{(v_LxrWe28V8H?xKT07&bglBc*zLiurqOOeQqhejK7
z-9@s1pBmbCe(?G=Y@fD20qo%62kaV{E%YpkDh%k*qDS&mx!Dd>uMsj46l7-|ovsU|
zL0qT9evk>uW(GE01vBkQgNfyuNY~nhEI;4|Tm#SuD;19Yj^jXyR3Wxj>Nm@Kbu6sP
z>^jHZmdmx4j-vO;xC&w&v7w75%vP6*8l^@6Uh^V8*1G}o=FKEDf>AGx!fC|a9+2PH
zKPHy}hVcXwIYZn9Xt}~wxVBH(I`|ZPK<(D@4+4Pc7ss#bdIzY)DTSTsI73Y>t$P`2
z?`mt+qd81dJ-TF;3|-uSce(+6SAxkd7yqzpk=wGS`2|q4hRwVTr@=z2dZ1{`D;$m6
zeMjPRxR%Z?0$lvO|5$wP@7`N2Y>e{_$DaqNzq=}l045=@h`~p_hD&WzPM<z46$o%V
z`e#}2p(|8&Lyc%c^#9@tz!a~;Kmx0Gyz(n8D+_M4<p(Jledo`c0tx%B<llM5U#|dy
zBLk=b)wpEV$lX=!#tjX@9Mn^}AnMNCRpd^$63~x9G!04n1GFKEbW(=puV=F^qt$C&
zw7G>xvCHXDNrP7B4lC)2zb@Y_1z^JX;kJYO6re0Ug5%!wW+vs-eTolZxNI)2H|ze=
z)>O12$3yUF9xuuX-1zJF?A#n;9GL(feb=u-FpVm^FCK(e|B{mgg2nfDx-z~qS!Sb#
z#{M~nhlhEQw*$6U;kk(-ygruWXg`lnJpH+bEnc@{KN{^`%RX`Ds_(c!89s>Ol9c)R
z^XJ92N}&tN1MGck8c8aYA2wa5vO&ovYV)NfrAH9~cF5zXbs$>|r|RD+#LWpHlbo$$
zI)E<w&K}sDib4E?8LF?gR%-8$Y+E=U%L*Dx7&&+g4zjgB+xc<Js>a>6)298sxGm;A
z_@9$Pn_j@6rBB6GDd!<mxWiz9#TG^69S}}lDGXBc-bMxHUUfE?q-iRLn)I{=h*TVT
zAv;Z>9_%v5r<?lF4Jh>cirW(}GfeUyJl_OxHPQ$~o}uEw-bOa2Ru~s~MZ!`0{mn^E
zr00N{{r*;IyC@|eM6m_nLNz#!Tfadi^~lmq8|Uu{q>l-@M@$2gHu$(dy&)DCE(ANB
z#aaAi;~zHQzdaeI3-HC22ntb!x0a!~`Qq-3>tLZ}s@3krdQp~3ms}Gv0bcu$U$`LB
zAJj?)^D|i+sRS5`K^g%SDKos@4i*tasr$ut$V|qkurF69a77XKb~e7gW0P6GO2HEW
zZSoUCuYTtb+}(W6KDHd+wo(3B(7X<ArMPK>nTcP~q#{($2P(@CI=pT8&HxNgu4p(K
zB7GE{Qw*qdnJThj*gVs%az#>A-vA^4(p)1Q=#_RFN^}fb1&?W9lWj0hN6Hu6z*K@9
zfEEbk0IVefh$HV5(~)k)19UCV48ZvNb}uSyMxOt?pq~Fh)+_Il=tJM~%*+E1J%Axd
zpq2}k28-~rurj-j_xc$?jb{Lt4tlJN*2G1D%&9(j`9a$(3KvUW1roRtnF;hj;|5ks
zte%iK3zUt^RW}@RvR?`^4hC8245IU(N@4F>u{eRsdx1vfJ>gTlxu9KQ!6U$Qns7_e
z(bd&eA27Fsw4hx9ya*n&R2+W_%8f6rUr=W&S?rX?_x)*(h!zzP@Z(FhaC^BJM(bpm
zATQOqd{hYBy@u=qWX^50GTT2z=gZ1dP(RnNqdcyU5nwahG*O!d1l>I?P0e-C5!i8#
z<GUZk23T1?(2Z-wKu%d*ak`Mf)twM%2@<nP16wF!LF!d6J1QU{EnSsUTzqr#0+%xB
zIQ)=?`)o2JMh16JL&i_8e*W&i*`sbxqpuWT+=nu6)&a(Ntu?bCx_qYR-djhR$=G6;
z3Le&!stUUJf*8X)0=A!K6}0nZ0dy1mCKRb_(QaedPLxD;0}s3J#0v()T(Ma1zpjYe
zER6Z!>k%8XofIp-nFRIS0-KaKAn2%rKoVMcFAwQc0Emlf^E7?bFaz>g5Sa=1Xf^dZ
z9FTv0n2d}}p;dL3Hp;+<Mv?e%Qi>&j5##<o#mM0gnDsd!k^2tc7V-VGu>&UAz||9=
zOgd)ZU$h2B$Pl>R#&5|>lM{$dKhPnx0D+MwODmn%fbgUW$Pz_>s`UR%^0Q1Ts{Rvh
z>oe|W-v;7f=`RlX?VN+XImNV}f<ie#AiEW0_bJ52;Ed-}zYwF?M&S3ot#Jg=872#a
zqrF_!@qbv)!eWvHFYsE50knZe#)Cm&>m-A4Y6ev%h#R1`B6WLeA%aD0#eej9i)8~4
zR`mPp^nQiQOS`0{D%a+4<|<*(*U-_k1tg4w`~LlI_e5S2*Y45ArE<o=S8}`IP=XWa
z)3|j2{q(iCxY!0X9MhsX6@%2yM+1)6b!YN#Mx^=v9#Tux>>7*)o?!qxGZjr;M#_iB
zf$a3*U0A6jt`HMeKrSzF!Jr6oGRoQVZDj_at#v2PvTf(^KzHXe2Fde1Q~7|kn^es?
z2nq^fQYGwlCM5?S_D-h1JiD7zh90j+q+zSv@GGE!=C}`lg{r_mjQye|w6zHO1)%Wu
zbzv}qgr1C+=<sX9r5~i-s3|=40REs22UJSE8k^_RfXf%2Kv1Lj@y~voApq?f&kY0Q
zsTD|HC%I(5S=81q#NI{buPzX@7hu7?LnYS77U+M0`C5Z{Z-6e*ht;IrbkIcIaoXEn
zn_>kWpA~HI0R>M0Z48t4hA0>obQ(QcBCqsj0-X5)SpSF;5`c+RKdRBR2+paAEd%v$
zFqT_gN=#I=3)$f^tIqD#_lki<ba~Q*R{DW@SYE_89t86^fcA*#;pBEU=1j{d@w86M
z9tD5k8cYU6Xu2cLS#jFPzyOH{c9sLxc;_{(O+otun0c4hyBuo(%qEm3Mt#P-1_KEl
zjD23RsM`8WfB8$o5A-BKcls~Tov}g?D*W444E2yQ{C}PUiBnaw)vJ&_<)T~KvIX>>
z>jtQI$%#oxRRD(<wnj3}+IPIal?6D+QsaM>S4C8tt^}JcFRPoNNzMy0W2z-O?bf5F
zkp8xEZWF7RMX!;!w5CpKX{am*1f!@1`rc20UU&}lkUg!tMl<(EngoIs$;&?Z`6h{m
zJ#&D)mm@$Icq#4quPdy{xQK{|vf1u5yfLy6xJ@;;5*q6r$pQ5zgI;zX$hL@=U}Jz*
z3HL|WM<T?BK>N$e2Ow%a+;{SL_iiD29Yc9CR`_1i%+xB7#4iS9b`vOJ>^%Sx?Mq8b
zznhtveF2Sct6E?{9H1t}{@bgQ5=kN!0}emmT)3wmdAUR#1$w;?u%H<%dDt|!uDGRN
zGIGf?5E9B_q!@#dYyj;~S{r(W=GY*7;Fe!jJBUtNpoIaKI%RB-Xc@jjYY;vGX-jYE
z(JAR;1)jR(CqX&cp95Ot0O9G^22TPIzi@64%wh@P8`KTdwO|y8606S}?4VS+$sDAB
zIPm=QmS16uN+G6sfxaO$06Y;&3ewXb_0p~x*l)TtDO+a8<>GYnT7JMEWTUk&#COPC
z&~k9dO=dXBdmS|;2e{q$$sb`>Vz6`at4#zTTJ{1tN<i$aQ1J&;9|X9B!kKpS@pnZX
zD5>wufXE^OHv14}Yjq*=pN5ON%qH{MO=fE7r$K}2|EvYL^B+&wOulA?CuRcO``KP_
zCfO4UQ<Me@!vj_eG;sI3aq5tDG<!K<w}K#(lSe^QNXaxZDw`dY9{(+nGpxP<UlqrI
z#d!fx%axUtX@Mrqx*<S&dn@0`SJ9v<ZMk)o0+_6~r?Gswvx<AGxwKY7TuMs49H^Rr
zxDHf-uIqO#B6_1sk;8xfQ}>jEX{jwxiVhn;-!g`k(^~#CLBs}ncQkH3`D}ZOv-XmR
z`DSa=i({OHpgA*0qmp0<s`PBnnnI5pJ0V{Sq!(^+pkQe?ZP}=~R|+y?b$(w7bo#YK
zYo;k}as1~RCPEoF-1_tS!)W74iHj?f09yTFjr&X*xRxMWWz`s@D{9rS_Xn|3V_)QO
z1CRhsQ^4SQ53g9z(${Uy3E!|UXPBjZMIOlC=&{B7Ggl9~fD{t<Tc7^c!hu-+YLfD$
zrltnBg%3VZ-QOi4))P$OsPifOpn12D?9sLJ1T>YCe3pmS-hs+gKnq9Or2rgI^Y*lp
zHTS4<)(?J{Jd6{$M4RXqV6Z$5gBwgEULChu_K;8O7myt?u{v+r@BrhN;r0GwH1s(<
z0IgY7A2h%4KkC5d8ofkA*)HbzGlv(4{%PvQu7}d1qS1ZL2}*tNeexLsCeW?_fP+A5
z7XUI!{teI&J_@p!u#l6XpP?pw0D6BefKN#m16};0@I3=W<9^;gWN>@a0SJoUv}-@C
zpjA}y^2C{4(OyDZd4y=~{NLFiZ`Nr-e-u=Gs$CZD*vk!1e9Q`wZj*W8hyD51_c9>U
z17;1HPQtmAd_aLTM0)lcoATaPe25<RoqAUb0_fgHno^ln^nmD5GqLBuDr7U@j)4mx
z2<m{uBEhq8N0*(jJ1HRzM<ElhA!6s#f!A$FpTanHzkv+L+b>|hB)k+2ZjHH?G(A1N
zoD4dL2ce>@keFJd-6Mr-H-ws-o6Uqw3*|rCcc(Jaq<r!M8AAEs8N{Dn1c6jP4pQfO
z1nAEUBQjM(eHiSC=4YQd3JC@1-z3Rl%L}fAJTx$H56Z$FS#HOY{vF8$uxj$~p{HEZ
zdKEL;fNs6|&l?xNUw0CCLigV;p@Q~03N(cKd5zot+eO=t013mz$4>rxl>hHvCe8^6
z^`23B^{gV(g2xuzo1kG(n90C<|F3j;+R0~3y<p%DjW*AFn4#0)rw?4ZX;<Yb4YW(j
z%y(U2uZ|@7<<nM7fj4WVkY_tRxy92{G6#?f?T0%m97Vrr(S!L2y}y9w=CR~+u!Y#t
zmRsaN@+#yt!p7VKvp(wcT^jSut}FmS)Cqy?y*NLiiVm%<$hnj5P8)*Jd9&ebuTBfv
z)?TsYmV5L376kG$I`yBMiXo8y#~+XQA1+oOuJ8ai)rS7NC;%LmnTfW3@bHn7{?81+
zKT5|{|JT1u@xT4hm^RO2>B6uC9^*tNq|tSUuuMG9D~Tb|f5$(=c4WLXiFe^7tez)D
zB)33!L=_27+ytvYc@nbfz5d-x@UNq2+a)8Iu7)F%{jSu&)Fs#wkEOr@@2%2*e~BaH
z{mZI+8`xE$1us8(pDNAW9)Is%JuDBbJ7Vk1KSv2U$&{E-$9v}49-=<eiHDspH?M=D
zcO$ofl<ZO;l#>~Zi5#yW#d-#hSp4<RH_}JBn?43nv}(uKh!(bLYf<s#53t?@=*-<A
z|9v6YIg151Pv=HWgSgGx{|-Y*RXId@|AZ_x$N=kt)VwI1VT64KJ0}Zgjek=2?_`Xg
z(fRfgZCda?Sq}!DMZ5p&;JqUkChj->U<)qNEy+)l$Nc+SBCGT&;E3Vu!C?l%?K?sH
ziBHV_W0X5b(F<F#Q^b3Q!e0}nh*ty>|NTySC~e$Da?~JA12}SK+I(jW9B$%ZxNhT4
zdsprFR+^5FJs;i0lN)R?D(Ce!j-phLC@a~RDF6M^ojLZ{4PTPK9uwPprskK&?%aw9
zo4o!qeF7rxq;&Me#VjR_lc#J})~F>uu5KSzvhon1r{LI#FB%N$FB=FNC<+>@uY2tV
zB?*I3CdP#LP~pR=1SVIj`o`TT<AG{h()eQe!Wwz8h<@Sl9;wR(A`z~SPCeA$*CXln
zPT`F0jqFW}auj|~&pNS4o^q`+YB3#jxHzwnSKADi<kYj2BL1RTEQEBwsZMI#a;&kf
z^0evLQ$kjMQDJFU;o^mU9R1Rv122nM+|EyFEGjgH){RtRoT^M4EmMs42~B~ACg-+2
zP8_K%-mT!fMilv4XOwLsUF7<Jeb`1T%p*_YtFFm`Y+&7p9_=1;$j}5GI-;b0w`jro
zuNA$0n;-ex4NIE@{bPMcAt9=)>rOKzL-2ivI79>_!pEKTb8%Hwy7aYo#ax40@g^NQ
z|EEM=*tv%rCdUTBt<kF6ghhImv7bkijrO-ce}v?<Z7oMzc``CQ3nL3(fBA)P!j?A`
zUY`w>ej~@EXg-#)yA7!Tx2E<)<<*Yw6USl)p$<Lu9b;eYgByy_OVAnV^+!;dyu}fp
zMvs=%fHKuBaUavvVC6aV8nM0Q+V;UIU$eJjMq*cT20A~`q2*5G0R&?3`IDlvRBb3l
z70b0;C34mZP8=UVIgL^)Etg#JRr6A_E6DETK;tF`?Nh!jb5Z?S3)_Ja&U7?uJP<xY
z+}`u3@RA+(On*yzr|DOvwvYc|_zmgN{ZmM|d1?1vLm-z05UX8yFZx3M_(S9qJVG?z
zeu!`lKU_g|^YT~aLwBfQPJ{Goa~!-jaL4wI8tt1QYmDHV{9kd}Ej~G-ia-5vrT^Tq
z6C-kU;Cr3@FX@LyjI<q_esNEvG;VcAy44pSB1^~_^(MJs&W~4uyT8}c_JByS9U<-o
zdfNq5sY)K6&spBJR4N#s!=b=VyqrEBd#vxD{UAq(BfeuH72ana94^ATe9PkY;U|&t
z|G?{`%>Ua2j~tf9CXG|R|4c>mpY>Ze4UQh-bV%&Q!!iT;-+Kth_Rp-3m@18`T;6k@
zOunsj=5m~cNsCDBTS;=;B2rbFHr95frgqIe7|HP1puFvbe=!F%-=FaL<AV^1^<Xye
z`M}>HNeR9dUXB%hA?DKgg_eP~A?C&7W9UV5bytGFI(x}HeAX4T)>DH1OMCAf)zsGY
z3kOlk5k>JJBFzRCR6qm-1jL4jH0d><(yL(Tp$LjfQxRzbB0YhG-UAVjpnyb5D1kr#
zArJ_mB>_Unw-e9%yyv}R+;PV@#y6ht`Qv8r2gzP*X0Ewr`OP`k-svq+V*0ahs9HM>
zD6svgFZ=-5Qlp^J;bTbo5_4GJfHdUoKYgoCA<$w8ho#!HT5i>`S<w5c&wf}E2z2{D
zLu~&)aY5M%cm(mRaqCUs2xB2BGSDl_NTYr$2YV8Bh_2w`PmLkPVP~*kv56!vEPk+1
zpFPk)p!R%Yl=SKVX_Ik<wHGUOuOrribw8_i=))Hn<DOK6oklHADfJ>-(viL8PXoQS
zJsJB0;o+?zgeTiNP>=eiIvtBvO(XWb)gbf>{vaY{nDkY#BL|*s%M7E=&o{J|dYdzo
z=2u!xPpga|9Q`3{Bs)c=@S5)df}A-*Y%7h%t<kqDNbmJ`O=y)Gl#GKVz$i!O9=ZyD
zM4-Nui_%E;<QGMV6vvyE5A1GUqkl|aNrrhTc8q40{wizyu})6T95eOuQFobLvg3qP
z%j>(wH=CH<8+nYNorj?k5zC+&XJjig+=XLhdX9j8TkcXx69rc$5s||S8<pGx8Cjvs
z=p|Qb_@}Lc=bKSzNTCl>=~`JZV~He<RfzL`lz{pavIIC?%iJRKB%3FPJQgcuT36O6
zvT31Nq!ero5!bu57DZaYF5Obu1v)=gNJ3h-Jo5vWNE$;Sy$SLW08gX#5~>nDB%9XW
z;p(JmCRFi~dLS{kuJ%Eo2j;NQ4b{hlkhSI4r0QEL6(B=h^xpW6WVo1I<I6okH)Zz*
zQB<MlGfm(w=EMt)2SE;#h>1s&xJuO;-R!l%IPaKEv2z5d6ZI46hQ9Y7?UF3~BWYJG
zKXx-zBZ7)bq$|0A{k4MU%F2ch!9~n7d5fuf*gUu*PqC6uCM<mG*8(jq)1El`Ljr~L
z8Xf1JV6JQpN~wWLT{2<g>qT@@$dH;lJ9x-WgaycLtg&Dz5vAj%5K5Chl6aN8-+#eF
zWAk%Pn2ty|)Mhh`2XxO9h6~xoHvOo|ZkV$l{L4y?k$F)KY6e!k<ac9FvtXGd_EE}T
zKFXWI6y!eB(8ckg>_~cS#<n%OG?Wb4Mw2jflZ73{X+iN257}Dy<gSsuJg_Qf1GUv<
zZzwfS1m8XerFN3zytxP;@vAZ&kh}%2Z3zg%f9mtI;SMl)*+6x3BdW<Nr`9tdjvqv@
zk*E#!*O{2(nFycaDc_t+XkCu-QC_z|4<U9w>b{^qCmHw$Nj+TKN?(yuu{sfvVq-3s
znaHBAlclODOo(BIeT1;yB3pqRzV8!m$+p#K@@df?j)u{dt+0%}`n8glw^_DXiV{+G
z&}KEbTGf^*#5NgQZ&+5VPyAq}k+(HIKkbHffy4C|Y)w)A`i-2RHdvOsYaC<NI`}AQ
zIF$Nha++VCMr68ES>}PF%gn^j2vRt7ZTv5lGH(S5il<-RyDoT#0Y<`}8IVk%b7R+V
z{&}@99p#2#F}6vS|Mh&ob)YHBlIf64KAMd?HH_+H!XwhNL#-iYQ4_2XNC;$s^o4OH
z;%+jw!3+t@4v$nD&DfS`ff9Du1R@V+5bxsF;3CQ+>a=Q^$r&?5?;|r(Fm@EyWRXc6
z?h09+z|t>oR!uakRcs;VH?1&8ZzHB3^*sr%PaB8cgoIJ)9{rqHT0ZV&6-}>zZ#hsO
zVlk##xJT--nff`cnDvzek}4K#PDE&f<NSKpA0H!L9$`Pa1CVX&V2IpUT;}fjI#*11
zm4zxow|H}g1co=6We!%Va#&QbT8IqvNX9l&5Ia+#wIy3r(UxVh*jo;P^3<9?f_w%a
zL6)TTX=A9-Zhw|JzDezqT207Ew||kji}{dUrZQ(}`@?K5im|@80Bwb&h*gArDZ<#9
zGeeRyU*Ze4V%=@1F9B;#fcF>qs~8g5*&ay#;ap^(31pOHm{~dqg(RERTLk++CP*Y~
zRmRvoPp~Ff!*_P$GdG>{^ho&-8y=W{7{F*N?vdG2sVt0W7I7cyD6FKVrKq{`x{)38
zK*N#G{|Lf(_;J@*QG6<E+SK7>USofHt}+J$mA~01yln4e0}zoTXIc;>&)fWdI^AN2
z5f_CQPBf*=5zH5sFk(EVzbE7h2rrKZe^g`B29^GFjPvIF7a6TM@W=QMY;xgr9IVxL
z5~5|Fbwz?@T=Vc_IA?%zGoXm-rg9mH5fI^_EK`jLwH+g>4>y&=W%=a3np<DEo!fov
zzCwI*M74ZB{>~)dw*h=;IJf86e}%YU;_=0tq{%@TSd@>FV#^cZAv;Y)O{ag3UQwL3
zgV%f0yEjPORE}KB|76P`Q&g(r)k1Age5-=d?~;L@V{s%MsyLl&@ffe~($3QS=jT$+
z?XC5%7P6HU!#l2_IBPin3|PYuCSJ-8@3UtpEP~pv*nvD+%n1sS1@fk7Mh$61vBRe%
z+a{|#sbQ!z+YIF~JGKV*=OuBZ=Wy0jw0y7%&M+;~Ps&k+hBa(q+%2efSSr17=?hj)
zaF}DX==(?9_xNCGBm}mLrWS!GwdmJ+4XckqgCWFu0C5Aa(ze%JKG<47gU({5OjDO0
z_7wCJz3ns*jeZ14&WQJIuWc@OtL1Gyo1ac2)z5GGR8xNbX4Ndi0<FH#7xNo|MvH~S
zaUd^f@Wua%B$bdFK}ee{Tl_~gKj9&irzV+0+w<xT-sTA~s=D#3w!PeMIBl7GoO>Kx
z8XkxaDV0(wlN^(`2?+z-+aQ-a7f2o)YnD`ssGGYzI4p{_IgH;8Lf>U;Ql-!SKny&*
zYRd@nxF+-?{mX;x0P1p-N4A=;1_<<=4#mnI1~QUGZz1=bra1t8w`2i(kdrCe+S+JS
z<Mk1De%!|_r%YMUXhBlnd?nm3(i#Nn9>T&Cn`tkzd^`FN<GV68I-ADviF$IQrV^>Z
z3XenqBpBWCQmMXyd8*K@BW-&#cQ;!Im<oa-Rn<v6LzKcK=)k8@%R^uWK?nDE-YL$T
z8|3iy`LIb1sa<iJC0Q)P5d$xK%L~$1dZOGpdgcoPB9BjosFb=92LpljI}}F-(s~*L
z#r`=Xmn2s>tp!h%Eavzz5JSNfZ9~<9wZai5(EP?9ku@CuG2Hb&iq!0Ey^uD)QU>dX
z?}ZDRrXtFFZt##eTH^499g%%&AW}r6G2Z1Poihs^f4t6>!=1yveKk+%?%Y_;=MK*R
z8$gN|@8?{Tee`?F|2qR1FtWM4NPb6h#Ny$jraJl<DRo6+J9e^vr3jAq|66@;991J|
z<c2swD8k(+f9k9GjVNp;@6vDGz9Hrp_uNCp>ZQ8alKqp&O=Q`{v_!D2*U|FdTDQ*!
z5Qa&zaD9hi(uBPovhj8eRBLFlI9o$vqF&AGpC&9Zdgy0(bz=l|M%b1<n7$JIFZ%&>
zM$_4OJKvr72a?g&y>aoMCQeaM+?lh-kTubeR3PV4`KLL{C{D}nuWWzAz0MIw`DH*H
za_OQzfM3z+j@SAhV*!_Nh!)~K#D!?u?A}2A^D8D46k8_FAwq$#zVOe_!HSCE+K@%y
zK}P1w+4nV^oD=^xCAO!+Aj3V>G+VarKo*$Y`1=}_YS7s+6L{P|S7ojN*I>+L+d@BW
z-G!`oe+V?UFh#m!ehiP>F()IToLxKr3@|YXtOiU3^P!1m@4tl2cBljJBMP3y{rj;x
zfTt4(g4bFYBD~EtiW+^T{4aV4Esi&CHOwn<NR;-ySH)^HZKcdlf0JRXN)A5Cu?r=0
zv{%5vo{IuR5&t0q^Y_=K)bItVUa>$Lz?7BvzqPgu2e3bnq&m-O1gT!mgvFZXlw5>q
znnC^4b{;`mzt(WvNU6$=G6D*k?7M0NeH3|g;m1L&Skbg1JZA#a`~$lH=Oq(2ZOnX1
zc3@j2?n99poG(9l88D?C_XQB-Ip52nOm#DQdLj$MHLFqQvoBD~n2a#UQl+QKz=Lzt
zO{3Xdps$R4a@=vQGYi6m&)T+beNCTEHSM^}AJAH*))>;;y@n|<I8v^|9_kSD-1;+P
z&iwFUDJy(!NEoDMzF`8csb(a#(2I9z2l)D+(-S{o%LEQUf$f<X8SUjSg+xhf)RPxH
zY-Ndjd=xOWALody`_!i-U42?IGmG>zD#XgiTUD_oOv`^sU2$iIdtfVtw!2yD?eC3$
zj{^diyB9Kh?9_I1AT>%x<=|+=$M9LV0G}y+ecAwil<d;(BKdL9N^zQ^`mS()8~?tl
zf)1c^1G1FqxI6-LNe?T-HO#R+O}m3JmyiC_o+2|TxcA_rt|$w+@|@t!d&ypB-G$y}
zw<f6q{MSi+99&ds8oKgVi}^GiRs@uF4g+PK;TJ8)tq#%)pzhPYlh=5Iv6FiSAgOp*
zblDv0?z~;D?2KjzlKF!uCd?n2v(3n@sQHa$QYUjD!*1X9jCP|9a8n$(gzaDf@dwF?
zeLRf5O}E1Whcf~!JG>>PZY*yFeoh&Mdk>u&Xn9b92Z)zO#O)7qv4HQO!(9?aS#Fj0
z8%WQvVlX{g##$<Qb1laj`bewBTM3A)M*9$GDFdk+L5|dSBt32{_waJ~V&TwIaA5r=
z+XD}UG8v72LkLbvE`RjKVoAsuXN!Evs`87o3n(nHX!;O5(9B}gqsId#XV4+%S!qET
zS2n|Bs)pnLOSP)!BI${W(@7Ug<2G@28V<7?)iR^9+t(r6>ti$-6@B%(MjI-Ql%MW_
zFhhO%eppb6KYGY-4+kTZ@4s+~fYMDqwstO}?xW^l+dTH6b7E47y{VmLmNC;id6}k?
z8G{n^5~A7L+gWE>Xt;-vX{4T%2{79$MoOy;NH!aKI;jwFrgl}0E|8@3wNY5={(-I#
z>X5$qcuTID_w07yJt>CYFZ&K~DPYnUq=1RQOl80#c%f_Ijqr*pUDwSTK;bYuC5-{p
zDlF3Ubm?+q6$}g;w<M<-dax&;hXLOx86OAJa;wz%yl3y?!!o;(U$@=mVBYq4L?Z+e
zM=G9Q1A7aRvPT~IOgZtja&+4a&~1%^@3g(L6=mPYt3*^9xJD{*cF>S5Hc^meP3|uH
z<I?PZ(MQ!idpYn6<m>ytEj8_fB-f~$XY#;mv?!VW9KRK5EP9T>B)TtLtD(7!b6w&P
zD<1wEk>|6Gvs^~jlVZy3>)wng8MlSD;Oy|ljbI2ST~#ivhl3C~kZ-~gU%mwgGJdn9
z;+~O?F{0T}nSJl6Ip_nb4%X_w{W0#-<O@<B77I%PDz$XsCHt8!tf09RA`!8Zr{?_6
zNCT8G3a3w-j#~Ks=$RkO*!@N8e}F?B02KnDQBzrQ=S@@yCvsT+0R;KLOi>@3uMl<T
z_CSe$;6L@ys#@$~LFljUpoM>8MtV;?rRLSblBVKL>OaXKKZvq!L4F9^`cp~50G5>e
z2Q3DP)I7hjLF&hH<LI?}ZD3LvJ*ti&OKl_{o`0dqO`3`MBO3^jbV&a?-ow-f7GOp}
zYMPM|-e&j;pZ)Ix%>zpiNB%+8CRw=Qw1rQJK~}bUX=DF-g`A5yJ=303QAD2;06@5z
zrUkyR(Ipug90;Jw9#RcfP}!<ic8n9`ukhVK5Kx^<Bz%8|p=pPy1zg!o#3J<`k-euN
zU%uIc%RM;!sh_AvJ(S-dWnKVvi?e|sk4N^hL53xg=6KZi?B@T0Fsi&bL(nh*iREmd
z!tPGD|2(E{flN!3vP1<Fey0M;)c~@o4@gd_ubN!C#hb>$k)F<PeAV}E<AfdbA3!SO
z?OwTyzA?Wt3STfADz2pvGbFH8MblyyMf(PRukrqoa|G1G&|SDBb2_r6`RT&Anqv6!
zKR2tRJ3hyh45TpNG|`Fw&MZ0$0(buFEWq!aL<+yqfak4WT1{Ue|7%Owp!Sh-*jMer
zD}Irh9I?D_2Y{SyUv^}Gf3jF{*<S}0r!fFKUz!Yor!zg@h(ebY`6K~;m2JcLvJmSp
z&<IT)b@&8wyaqtL%1?7OqneQ+=qF*<sVV8i00}~4CMJGD-AGP=(u)-Y{Jadid=EO3
zS7a_|%P!a7++`oB4KUJ@r@=*G!cvjTji<ZgCoZvPyu?miw#tGQXB%l0Zw<5S_n>xf
zJ#2#H4k1wkcy`E=)6zu^hCg&ECBmkw=7FdK;`vtORtD*7|H@w2kkUwPF0J(`{T=D7
zqW|vZg&}F|C=ZOv-CxJsxG4!N;JzyDunIY20<}WX2p=9S1L`LZUqneV9z=^)B?&1o
zG+!gMY{^TH`i-=n?r&Ij@t-PhLoKB(=7suEU&@58NNOk&v#`QgIBsoW2S~+z(SJ)5
z$b2Y?BuVlJESH1}{n21C(VVoP2Mbkci2e=B;qs5rHZ`aaKS&i&2YALv^S4TNpbug(
z`bdriJEY7)hB~X@;B?JI&q_Ipqdsk<W{88u(I5b>B_WjcJ5raZW5U=5ZWPBGg9_Pj
z5msx^k-7i!LH4djIttYAA~S#A=w4a@WE7a5__DuKA#QdakR>Xm@{c@#UZXf2y8m}y
zAd(x<LMEN`qkkpGN%(h>ehg4wbB+8E7sz#>GQfae;2!*KLG4CdiynnF0s2WuFba;d
z%Cd)stL+3xUNX|+sF&C{ppMb-GRBqGhDPRZc#DpFKK9$cMk-wf5_9-IQx366VZhy^
z{Qi}`e+B@{cy^h@P6*nbL(KA7G=C6yJX;J#mLmx7;+SRk2s=0Ml0Gia84^n<_tD~b
zgGlO~|JMzLk_)jx%nL9(fZO0b{<N9W8;ie}=_c-u4xPQ`kEon?5c}<Em1}=zGDk|H
ztv)kyc!MS2^knkL(v;JGHGCrW%M>%mKQ}o<>{R2_B=&Op9FaZ`{wuqw#I|i`J>eVb
z;aMIk3m{XsE%xUsvsWSS2h>X$*F$TquKWqcbu{R64{(-ryYukx5Xb4ljo3qjQ-;P|
zowvWXKz`G7c*(9rKP9Q@*Sc+>NYZ6ji}8cmWC`ypVIHyp2_*Y{Ra1=j{dML^Y}uiY
z3jsCgA26Z?%Yr&ZDuPRu^jJSKfv@Xe^LP-!nNbVum7@Cqw>dF`#hA;%$A6w0-o8im
z!1}`_;yk>*?&N>phi9X&0POb!SpwVDMM8AZO#zyw`0A|$QhI-#mKocWcQLGA1{(g2
zq^6=szX?|gl5jYCrXR!|;+%}8ugln65wAeE091floY3;c_R}yM6|3(y)B#czHtR5!
zbECh!=C1LtBUVg<WV2?Lv0YJ!4|SE4wui=%P<%{e;EJXVG?4liP`Vf<>0wc86po&V
zM}i(hhs}VhfHu_!`xrY4{}JcO{#_Q3<pkg>x>Dgy=33*wo_n%C0x@cwdiO0~2(Unw
zj+<xI{&w<_kbCH+aA=wCH;%V1H~cRRIQyU3%KEqTWPnBr*X_x9Y}L_O-d#3DK0fl-
zE*z#nuuPy=d$g%I<QjDnK=<0)!PH`)vfqBOMADkM_DPHjwndczFL+u%Iq5OiNpgV=
zT?Fd-p#51u=d3;i(v4QC3ul~-N8b>^qj!m$;el9TB-!_i@+2L2Bg-XMDk6wTv}boB
zib=8TMxiI)E_?GSR!MfhysS-lQOJD=4OC-!x@DQ5UhCH14&GQV?bjO3fo^rhc|W|d
zg_PPEM}%**v)-+5E4KXHi`kg^Gzy|kY9JeZipEzr*c~@y*tC_#riy0y9AK44ezvo`
zGjeS;jj|-Tv5pd|?p?D58>qpu*b85B{1g&#ewI33;~S%GQsKkxEX6iU3COS6L`}cx
z2)D3}$xIPEkV$f{WpRSQe_GG;-=Zl0D=04kjxa=;sXIG|&HvqPKHLK|vw;#l2EGQz
zV<XI4Z6#V?9ThQ8y~hc2XrN_=$O4yY8fzfb9)~Q|V*O!jFrACVoDjusFndfJV=0n^
z%`z+;mO3->yX}75acWz_m^t6QqKbuPlun_-sc8T<^Vc#%sj+^?)j#-zh?H@1g90vC
zpEe2ANj9SEVZjzErQ?^f*2;mro(Vh%7I^Vi176{LlvI|eRz+hFP`*G)8fhRy+^Ng%
zI@CG$p=L4LC`yUssC@2P7J!<LvQZNVbY6+wM5lCbND0dO1X8QrU6RErnU)YI>c+f(
z-1<7{Aoox+7ENW3b(rS^9C)GPv`?wSj$%fsH}rn8MliB8y!Pw!W<&T+3GV8(vRHF^
zsix+&3+xG&?(EiDL+54_{IrFIPvxyIhv2dqp7`?O*Ypph0&c8Y1K^Jzehgs`F0UT@
z=CRY0CF)~0snnFY7|bY~Uon9Z1%^2X0?N7AUw%k&8jhT5w8P$j1sW#hSTT{?nVg7c
z($==gSnl3<4sQ<70Sf<l{nIW=-I~A|R3J$390Sf02=>JL1RfXyTj6We{L=#17a|j`
z17`|YKq&&FJy>78HBO3)9p{w!%8fm(o^b0C#z-B7(_XPg#04xFUL@tG!=d+_O%IQS
z1NaRqqhiBx;pM-vI@<C->%_pn)q2=*N&XKT_^491;BJKCH8vi2-vNQKJEcmr0@B_%
z?_EcDx#VP5PGcYPB7#XAy&4WODAlx)s32$#;+9C}*z`E>-Igr&5gVI~um>Z6PKhaP
z&M&0$76VZf-5!7^y#UVClhZQCTzgTaFS}ZT4AkXXADASYb?vezj0!DR3Pq?x1ty<i
zO<+I+QxMqaeM{dKvIhd0JynPC?HL;zRpCu>1}r2{8i{|AS;|qMfA2w#f9tmV>(tKw
z76|}t1&|jku{05(Y@rVCg2}@0dlxx4!jcGhE*}%B23F8au*5qwvOx;Ig9!1Ues&)k
zYvO4B?HlN(T1g{Re&gpqh!f6R8(?fIVDCswCkGfG3tdK}=wrL!Dm5%$`V^3wk3t)~
zsf{G;W*}$2(4UADqG?i=s%Bk?H8l%cp}!-M2sg-R(eMn}86ch2H>cRoOk&q&$AQC^
zfS*`m!^kbHqDx{9_K`4UFN_7dNVci79oEnQ?yRF1t+6QSM3xI=db66dg!pH`nKel*
z#hq!=5IhTBS^*F7rnUho6j1MD6O4SrKJCB+npVLtYO<ShIK3UT5Uz5L=RG>GCmy5m
zmo<@6wA8Fo7;^i|_B8^ozi#O0$H9!C?-3Ct77?^&c05)OprA~?b>dgNq}=)=QKc3{
za0Bxrf&s7UAyY674g~MP9J^RwvS9Pty0YBoxVfj%Vf#=!YeYJd2!#Syi(~^O#$@Ni
zlR{l=>O8kadWTwC$R81*3!y#pG_CDIcE|i;{aj~s<C3Fch@p;T%gT_Z?UR+yQ1Pwy
z)0!i(5j&#XfmNDzkH<GB!uvGCNVg)!9CgGMd{q`OJza8I#S0fVyGQiajyA3~M>EDJ
z`&o<`FHI5_n6$IlxJuA80Phs|rxKN(>{tkr8mm~VX3!mok9d71)n%wQni1kU`b^})
z4-ePTJz$$BdrK97$l(P~Oixq^bQS%!7${*Oemx7j)k1m~<zcVviweGyCll5E`T3=j
zkoI%L@vVLlsWFkQleF*H?k3;S#EWCK4-?6y>Tu{j{7R|b`z597zScZLv!>PxD6!DT
z6AWw3tI7!5v3;os6U(ALiz5#AG*<Tw{fw|^y4doB;h3WqTB4bnWn)*}*5G1Vw>hSo
z+Fg+aaVtRP8d|6a*gu|m--X%iyUMWgX&G0UnA^D4Q@rFiW1+Gm=ufW%2#sJ<nreNt
z9(=dIk!q1+GdZRRWB4#|&#=$d7F?ND^B!|?Sm~y~#VY~8h*3DE)OSf#iC@0Sw;*Rn
zIVPp$d5bj^LPyx0zBuCH>H?Yll<DB*xm|EE4mh%)-M>PHv#!Kg7nw`tB(ho>S;q&g
z6TZM~F7p@1mN%vFK8g#-qwQYrn(EhYNwa);5}w&pkxHEt!>Yp5BBDv|{v;=q8r*um
zFa8TW6T`mrmb4eRgePsNQY-DDh!oZ_Up>gGc&Js<MUR<WZLBU<iO4RFK9gY$nLqGP
z9{PC+Y8U2|oP?EyJUF>UhDUwq|K-1PSAbcwdc;=vY8i0E0x|OIVeci?x|E`t%#7ye
z@7=ft%|7?v1>fjU+01ZF|6ozJep)9JmZ`Lf3$a>sUp;C)f1(ktv^nmXZu|2WWVZm}
zvA(7o8KK$tIRcHhMnx13Vg&jm*k%P{KprK7F%9R^n66X_c<JLVQnaE{t(lJC@JaS%
z`RiTlaM!peNu(T_T3`V66^WZXa@spI8Qi7X(r5s&rWVVzA`}-|u%pD^B?eH{k_Fin
zb8aj;c(GKnaWH}7K8%Kn!}Go;TrfYh=nc;v{l&xSnSoL+96jvhkqm`U?q}hC?O#>#
ztOQep^_Os=&eZQDaFI{lg?tk>AOFtR1`F3jFV}sw^>cb6a02htP<HH(6WY541NR(%
zb)tSM;l(S5KZT!78w-3ES7`5gdG}6p?&prVmBWTlRel9&b00kMG)U#{P3=EFf85Re
z32{b5TbWSVMA^)9?imnJ?AK5<>(|hjz^rvwX)w$!%vg=%OBo>^FlpVlr~bqK@~y3k
z8+YBmQN|-Fa8=+6-xYyj^{q_=TJG*F^$x-2;o!6>VO@d#<APH>?md@Bq|2^YP$)<?
zGKbp&MC2xNwTiXkOp;G(g5uEAkq@IfKuuf=d|r$G=+oAe1y8PFuHl>mnOeJPZp;Zk
zLI~j!L7eb_uyk+@eCq|q7@b>2x8Tm<)f5=JGSBtsy`p9VZl<~*(RfMO>X~>)^;2Iv
zO};DjDRl3c0IE$JWkiI3XkJQM{q5C4Xpai_&Y^nndPEb*<8-%5k+?$0ao=`6$j0I2
zje~uL{g-h+cTEP8T?yaOOK1(WVI-1UWLGMvRf;8Fc~>H@kXqtjmn*Xl_ir!ehq`}@
z@X4lzEB$(DY_c`*cEDAKTW=3i>&Wp|o%i2-elFZPB&9D|@^E*#TyC_{JIZasBNCGr
zA-)pzQ?w!X*u*|`)oFNmK!?#zpo7Hn(}Sz_++$|1iSq+Z%wMkz5dl`u1{69+WZ-Y7
z(=JLJ$LR4%p%>h7#BB}eD*kcXRsXJoc_K-#i9*Xi9_b|8FDX~cIWEJ_P>}Zmj#vTG
z=-(Pp9W^r9!Zth@c&DlK3#Fox3*I;Xa3Ei^=9H3k7Ee%J`iAT39f`cy18Qk`f6dAr
z64$w?>b=FA@=Y<EIg-!&ruR%1m9{{YUeyST+3xw&lGSUw;&$KVG9=#bYx7;zM7MW>
zcl6L+=m7qtvjuM1Yq2`PrAf7!m(e!Lx7XCr>h5A8JAA>)PLXx@;xh(|da%zk29P}m
z^JJ(c$0tw?XPNGIq}XqyOL`M`w{SH-TQ+;A5&0uZ>NV>rv$#0k|5D1E>!c%JRq#!G
zRp)C@ht&YO@oG8c;}w=PVJBJY?%|T@sy)7;)f7xr(Jq@qQ&q#Al*^6NRUN-#-+nbl
z7x7E23!eJWk@BR6?tZ<)?E=1|it_quU2Z7h7jId!MfEEFO(^E0x*FM08qh`~a?OPr
zK<2`0=Vq=HVh$h_4S6JQx@wWPl~0C2xAiqPfkU#&W&SNsd(KyA@gfpdVGNK@;*qc1
z&Ah*08}EL(-|z_On-CD6=xoiRA4X@RU!r-1Bu(7S>}_0f4YOo5^+^^*oSk`193RUM
zSISQ^P6jmRaw_5&YY!vYSd`c0+{vQH52`bkGUvl@^dUfqxIRsn#SHU@W6FO<9NSSX
zpLt!q0)8iV1esA&A&dv-sQcf+ndCjO5K{ACeh?~PNay;iz;D0A$oJRRnn|0*0}+!~
zHL)ac5c6@O!%E&Q3@3F2DI*}>-3Riq%KPg~OU}Ng36<|>R;+Z>R0j=0MI8wx^M1Cm
z&L~3(F=@@U0c2uILT@vz#IZVb?J5oKxVod4%mB3gOoQAo{pD(F`be{O;-NgdPteZu
zeG&KH?I=AQsJJ^_n;Z9unJ8ZI!Aj~{(5|e94PMtWW}YAgl|7xiE?tjp$)Xv5cehTs
zv~sp@y~p*{k(qAfem`-Ot9PjAo5AKzV;hSH$wS#p>|b2=XQc9i#R<<=S5#H+28!hR
zT#>tPADi*BXvs{O&EJxl%<Z+YqUV0}+2AFMFOQh1h4hjXt3%%AZ=VuxkNR*co0+{i
z+oXZJ=-;i^OOrb^RDhW3>2s3qi%`ae+fFs!8>N3DYcCMV20@?X&=@|&8J>~d%^D%B
z>J_;8UZ*KV%KeVwmkOB2_ryMt)ep^Br97Uhx)XF%1uYhpbE?dkd3l9?qTtes6=+8-
zgk|xB{wCw1lbHL1oJP;E*#@xPKiRucwI!FKuz&gPkDsF@T5#AaQ$ihjri{$X6)LFP
zB)$<h#}x55gE=48xhEAk*VS!MTxHfvOXA5_J%!u3`SPk<Vr`C+UjnJ%Uf8T1>4=iT
zY)R5Qh!9>zrho!ZeXF`V{TERfZ671pQ6!E07iYopSrcNBNwctf`UUPc^vNcv37D&N
zc-LR9*^B`v%8#`%q_;KemSQ`XeTnFPP=LEvgy;t38Kk7mpWl%2Y}w((!$`0Bs|gU{
zWxlotw9wie3bxzu1L8$3UGB|}XfG}5<-#Q|!xyy}$=A*~u8cmR;GI&J2{kQh-JSG}
z?xq0+_Xpi3;{7Kk7vQINO?WdWG|+1@#TIt)M{{_&D6U>ow_e=nPw0PcaH89<MbuI!
zO`3L)Fdq|(y{wzQ@fV%W0(pP8$g;i*@$z!d33<2C?a|tJFMhVnP@@MGJidk1UuwPc
zmgieTVNXY1b57b7id)91+f4_&VSqy(jdGEJQK}Qfax88!nD3TE|3GEm3v5;v(6tGK
zM^5}yO=Rr96DXNi#;my(7+;%KUx+;;mUBYiUhe#F^O=_H-^*t>oS0K7(b}S`i0dz2
zvAVs1qX<p%PopyGc_?QTUJVf>Xx6;q9gF+^TsKkHMCSQ#Q#_dyf3#6>B79)smUQ{9
zRqPWUh0J3!H8p3Uq~R+o>9OIEQqTB|@gjrAKHed%YA&pT?@)JL_jk4;iyLlr3w+?z
z4722RSAPO(y>;Xwm&L)sXBlSG?JnwV_u^?SL%U*o(<iGzo`TKq4R|jnj=uU1*M#hi
zfnabQzGJVeQ*X`F#NS>F@TkTxJCM#!w_h5*DGa!6(tbuK93uZ+K>|bYpiY>u1cRL7
z59Op*_w792;pWvBBS<LScH#{hMbe#1sO#}UIf|d2$jOXldOHM#jeqx~iybG|)aXJ<
zwYpRN>*0{mGYak@Ici@~4f9OW2f+AffIoliXIIWT)k)XqUn^@nr4VuvZ|EsO+mbK0
z$~b3;J+-2m=vUzuAs;`1c~ELlWWq{P2s=DvW{kt%ot4sB2|Ube^}lkvj}cjYGfi}D
z>Rn11x_D(Ist5h~A#c7L4n!$dP~!>O>wCcQqf@X)&J3EHPZ2)Yhku{lt5P%~e>Y6?
zV1Y*ZG8%q~zKs$7WfOQ7S*A}isRI-uc+R3O;b@)=y~JcJGjkl-GZNwEo@4#?=;@9<
zp;1d>Q_(^*HYtxEuCKbbHt|WUllj3AJ5cTJL6FvqKD+kCAKhuy`!qy0G`^@ycN~=5
ze}FYn`gPuCet>EFO6tW5>I`%wokvB7F#s*pMjB6><iE`79Z<NN1(wLaTDYgp6RQ!j
zYImahX~wO*b{DRVb6H%^wKFcGGZ*L&q<tOV(XE}=8cyc56Hgj%(JW$HbuDEfir2+#
zbS<YZWtY|OzIqx;EjmGk6zf9Wk7#MG^&y|HJiIIjB|QdAdH`vFk8pdyUd`E#Jq%Ez
zx_OoNha==8<SNPG;5)cm1X<&)<aUIc(*5e(GCqkOOz-?X{GGXXi+y*iB20U-4h;n2
z4o3#|mM~n-3>j-_;fNpK&io}&f1#tqb5DDM;TsvqZIg~O7Txg62@i2eOGtE2pLOnZ
zJ5jZ4J@5dcKl-v`WZ+RR*S(Fr;LiP*27uoQ3KqlD3;jhk%b81O$kgt^^W)-P0P`f>
zDMdLZ=})iX?@&^B=XfTu0F1}vGgE(K13%kx%&XN8Gst7L35W7F9C?v)Z^DPpFmVbb
z%K|t2x?z0hrhB{Jee2uw#e%A{S`Qbpdc$>6?zF1nC3>wkjIQd2y}DeWn4xxC^`U)=
zn`D3HCqMi2lK6r41dQ?%o|8#u?x-(tH}`wqSjniaT0Ky#J9S7-&ZrQ&KHgO;n%83X
z4FE2EMcJ1%*M1_iXCbbK83SM5HK<^2w1%YVZprD-o9Nx2E@*M^k(jBA0&Yn&ZNH+R
zrh+39gyvnyx@8prkF5t&{O<xhS{VeYZyd>k3``4tEdp3{dAF1C28e^YfO7D&m7`N)
z?c6;^+Wy4Otw+H4^i!IKuV|y!i1TAidp+*HmQ%fte_bXkuak;P4_$hn+?l_kdL9=D
z{SKX4plhCdXO?2?RSfu-KUdsBT0?L{xmF7%B4_>C{-yETDL|s@CDLve^IIHp4$ROI
zyEn0)uPAI?ug2u*<x|Kn5R#~jl=OD}2p0fE1s3|<ABkT=@@9XYi`bk{!Lhc4ZpKWt
z0{sep-J9B`^Weh;5nV5w^le^k{FzSeaU~tmKRMfP{#8NZXbOG4+ezQOZ{siS=IIuL
zd%ohTX1&jMj-R89q<3YQzS{6SL<R>$s@Tg`EpaykIQ7uhK*?19uW)KL@<!EQ(Z#%O
zRKs^B>5|NRYj+5s!?U+L_tJLx-gq}5d1%%`Wcsf;jb2Ts!&MW{mU;%y|A1w->$4V%
z<2_2~=z+uN!1)0>D&As3_z4nQKlHk~Yi<W0+I?h3Uk?VbI>TXAcDCOXtAILrZVh5`
z#>e(7;LNzj&*6TaYx|Px?6`c%DGc#)btLx~`CQ|uQC6z!w~^-n<}eV=DWt*S_4|JS
zzqwp`i9QRw>&nPyUFrfncZTd)x#5+kO#O{>dZSkqLY%8H6w#L1u}h6EGGR^tiaSZv
zkBIvDCP{tXLn!r4pL?U$x0bB$YCS%Qt6P$}{y2=srza}L6M~mYrWLzO0bkwWnxT;M
z9+r4^CuCY^Io9Nizqr|7L^bCHdfBTZ)bKqFa}vY%%fO22xz2_DJ;5lAyP@RWPP6Zu
z_Wb~SG9)Zx7@19jxDIX&I3@V`cw4tNmg+L(s&GZ`^Ba;^pF*AA4egcbh8wiMG^U)-
zQjeUD@|u4#ZqAjo>tX?;kg;JZoby%}_cJ-tgkS1W?I(3*-afoGc$emzk1Y+JI&?5&
z;=?fvLue51LEN+><UZlqvt&q*os=d7^LPF@t`qh={VPY<>a+c?x6%@iUk&<oz#-H@
zI%@&Qvr0x7{mhyz>9+pGg)2t(Sk;_@*wTW;UgMaeeyQ7OS&gDuwH5Kc5?V($&f>l1
zhWWdGNb87M8*JQtqK=W<C77pJU&*(v($@I;aXe|usKRYK`-fkSnod~8;NMw>KRz>a
z0GaK~aso^iNYM7i(;VK>7Jk0n^uZ<%z2{%hyioG+Nf4&R$sV%gIpcam$3#<E<e=uM
zL9?r}4o2sBP_>e8eXg#R%t7{3#h*M4Tlo(4$}IeyBNS*B9-3!0RX;|v<hWXohuta7
zgY|5l-?v<t*t-%x{#^6J%(p(kbx2;P59P(#OBse*>dx$FWKuODh>go7;H;CkfiOgD
zR#7SV`+xXtXXqczrWUeW%@5+B;r6t`fP2+UV+Z^x;WDGnBX;-Z;>XP^7wd#H&kS1i
zC|~|2Loh=hj4}9HIwumRjdbkc&K4LmdA)>+nfOw$0>5fjGIir6)UUeB?T%=k_$F2x
z@$l$?h(?^e5oF;?O4+qTm|%Cn>n%jGw1a{MOYaEhEbvu5@i}8W3pQr$7@dcRx!=uc
zykN#wBk#<?nh<lwfY;fjANpjAI{l-0K%_UzRbwgX_Mt9-A`YP<0?mX=a^-|tDmQNu
zlK8<AqtU*K+k2Lwgs|%_)3dJtZ@m`9%_s5W3qM%eT7P5jngu`jG~={0>&uV)mYYF8
zyC26OOA*JzW|rIuy9m+mLQj<EdrR$Zxow%_y{}wqlKUr=uj)QxPdHy#wyy>YB3)ye
z1r^^=cI4@QIA5KMjX}Nx@3Y;%t+>3e?fhUc<Yc+nB>Yzg$nbdg#?FOFcpvfL(&pN*
zlzWw-#s?<pbH+eX57fu|dMj=x?mw->@_+gHKS|)eL@D<mx7N3JtWNWtg(!c;6orza
z-jeBD?!I`TB8f<oC?D=Ro#2Q%LtHEuWfvm8(^9ZG_X!#PrU~B-8}QOy^WfT0t9q=F
zR_hfxap*x+#8=3hQ*I}^;E2dmx}8fl=##wLi{1oh!a2fGf*(N)jXT(7*&8ymXjAIS
zv>Dpz+LfhtQQ(e=vOz2tSYo+q9BRlle(4zbfwrny=Iy5RTW3e#E_p@Cm-9{v%EX#l
zrj8|o20?THu-0FMtl1E}&=a7XU9>&QX4WTl-?mqmlK!~!Hh=Mbzo-BS>a}n24{`qH
z=gY_Gsc1~p!^g|Tf5=Aey<3P+`5fK!mM1foYxNf4Mj5$3N?o>8&kj{YrP!lQ;H584
z=_dO|TD(0)tva;KPw0rzzNwGdK_4z7N1Xf+cdM=R%N|1H8FGIfSr9ZTv=vCME}BJ@
z=Ht|k23_-DFwM;K+r6d77C_^%IZ2$-qY~t7`9KJHWUXpXn?Nm@k2|&q)cUed?qEx2
z^Jw)sb@W{|s%q<0qrmDDAmS|U-n^>bNnCzf9U)Z!y{2vbBhl1LmwDmmOG<(8kaVh3
zjL*Y?%?v9M!GeCt?E8=HPU#+vi^zR<%B^J`Ay>cK6XeZ>02y!x?6yBzV5MuB8aQ+L
zTrsPab`I^e$4w=!cF3tXE`Q_+-=y{a<-v2Zm$(tT5MExb4V|y<u<N9k?_7-zq#vY(
zp1>;xvxu*&7x)ZMu(Y+a>Adzlwl~x4XrXP#W`)t|=*LfZq#xvU6YvM?bIo$7=&C>Z
zQY(b6NY)>y&od*gMT&62t=&4i8^!-D;=M&pc-W$_#R^AWAwSQ~`RcTIl*#%ook+Jb
z-qIGF^AMwdxV{;{?Kn7dGBU8P4|($HvE}P+3SJf`l2V=|E{x5w1b2_$I`XSw?*_l4
zSI@X8<?JtSy$WIU7yj0!oZUMT^{5((8CvUrB-+fmujAve#N9OAaE;>u7F<YfbNct`
zC^VRR;$$gr=*i`z7^<O8g~TLqKG@qmB~*VQXuqi6RhwE;Yt+(2R(Pw8i_4i-FQfBP
zd$uKfA+i{1nOf3xm|BN<b&qcfvGyXF^av<;r5>auvn|Z+T)PC}+4AuQ6h%KqyEYsb
zonRsOeL?AoAWR?>U*s}T$=w`!faeD;IxlvguFaq~8h0FmN|8Ti<ZR?^^dUg>Evp_`
zACLdUVyy{vgxz}=J`AFqBL3M~BNoZvN_}@`TJFf$?a6VntLWr$(=V%GcG~#c3JJA;
zdI+uxqY$SA-tOxcYnnl;-dMHOp@TMa4i8M`KV5Z8*?cb4;V)W#BZpaczQTtAF?hZ@
zy7hInihC93en&I<ua02nm+NNPqiWT%b1k=9Dt~Em%H;Y#PH{J@_cI-Xe_A)+iq>C=
zbW9%teu9R#KRrEAWVt+7$GoQ}MzrJ>6?G`cW<6YzC+M_Bk&*XnztFbxLzOch6iy-Q
zC7>_m^{Vb=8%n-)vFdl%s{n+c7juNJuH%KOP)FX(t`l;WmI7DqX9%8+P<1RxtL*Ss
zcMJ&je9JZd=S<z#itRrfmFXYDY9)n|wfD!-v<h!-ox^xx$uKX`tcj8cxi|J~X7fuj
z9z}|@`SFsONk?86x|WwP%X6gLhP>$@<<s4@w#ULOC-|=jZCuV1T$U7OZmYyd3(C}7
z+t>=d>acdNEwXEuBXcx5q%Z%-yHM?Sn7qBDjW=h=<)0hGxto)-P0l2C?7}Mss(?=K
zq8F@1qEYqqYqKADrOSSe6G?^U5*GAdqN$<G$n8!T>;g(GNO+R#)u_;WPs?Kh&R*PC
zh3hY#Tj0L2N)l;Wi0a_B`Ke0OIlxmg>V}J+6N^ec#G{eQ6&JH$EKWoUoMllyJ*ne5
zeL(VjeX|*DHfAD~a(lkz@-d{7aRz1oSw)LY=7V6_T>Y`w$*P}SFId->UklB{uhyB>
z!G~}4YEEBFIL_{I+&`SWe>q#2%p!5QJ>REX_KMc(8o%ne0ixvG(rQZd^Qd^gGJIxY
zl&@>|dX@Nw8lL;lWPwfzu^E%<9k1qQba{Gs32%_e2lm<@e)3b6uV-EaQR4d$1uV5<
zRJ88UrJ!Rjd+=Rn7cXxcJqMPZQt@^vYUaZ8{I~^(5?*jKu54bnY4@T!8}{=qZDl3d
zeaZpruppMB@3};7&P(A=|G2)srWgAw1-?CQiE!GGa=i_?^^OjETFoRW{_wYP8bR%-
z-DNEc%}eXT5-tgvzCNY9M%L-2eUv`>eB_81ix>lWc>z?!Me#wk3JeR@OB?UVy{rY_
z3;JlGB^F7PKId=#ORWes<-h!gnqecQX7{!nVW^BQ2%=ql!%~P*(qJ_320dI4|Dcsv
zjcvG4c6$3wKKY<DJyg>1`^)eh;SIa>oiYK*7cF8z;PsY?MaH2|<UGCwPr=HU2d3+@
zlRNEp_VQOXnpl2Rys`<7*+_KHAl4c<b?7O+YY4yd)>I5APQJ}Qu>u;NeYhAQxLh+x
z(~aT1Q<he4K#qNgYN76&XzO3#-8YzUQZlXK<1w-|0nXorXc8w@=RC|KCkf}{uN_%-
z3k}oWQs+~&h;6uv8*ey9mWTN04c#0K-G2}JnAaEkI!BIc;^nwVR#Vp}a=74WM*m=I
z-JkD90}f?ruPaISiF~)(k?G5(1Qn95M1-Z&8p`xWK&`K8rEE{2PU+TEG;?AlE{<1V
z>8N57YyWo4a?MD@aRGN*knKIos@2$-5of2xVO$-mhor-=xTu_9RTo}+DhzU@?bzon
zAx2o@l=fE{-CzU8$kU#ou87aeR>@uyKs{6TPN=FQ+BHo*kNkM2o(o%7u;=>u?7>cd
zxwhzqDTw{Fu9VZD=Y>N}K{8Cay?yOf7NMzs4#yjT`MQwRtQS?KMDUzuAx%oW^QwbK
z+Sm+Oe<ND=+zNHeg4<-DGN2$um7)C<OU^1LLC90O=PC`Wnf(fD^#_BF`JP+8)JEud
zQ)V&xH3s<?`2K5)ZQ)fLK0*9l)%v~VX4TB(w~VpZ_4^^Is~>2GkY{aaCA8MW+BoO2
zajRwjGm@U?@;Ym)5BVNnE<Z>Ut>*D5y|*|u@qOPOx7e=@fnK;v)VKt7d9AWlA901&
z6D!1~$M0RzW*f>(Mo^pjIPX)s8Rt@60gb&i6?;{G^;*$rq=k@k8rkqj8dD%kG$EFI
z;>1-6sHN1*CABVYPu{Rs%fHrbJNHW#Nj}QnQ_|!1rm`Y|_sL<NLRin`(LVRK^CV-Q
zz=dMcT3XX~!dKnfLW1|-r`Ny|gM7oreBgk#@$&{r>-Nd3AId&9L7UzkJkD*)|AFgj
zto+HPV`?6<n!G{tubD$aJo{V6LRcMW)qIIx2`+ER#(p`xr_XB@U1GLs8&*g?>hs4L
zhV7?`rol#Oy#b{3H`9P^Go{PDJQzHLkr-ZmuUi{-R=1Bd+aBA_%|}daFlDpUQlVv!
zE}5lj!Ga`KdG9qWT8Ur=?QN_s0Ei@-yBP?LX+t`rDvIMbLSK2FDjnGhQu8ow$#uvH
zjXcSx2f7wi$<#{r-YkI_+evCS@V?L}xT5PcrKCx*Il=sL`n=Bvf1HOzRysQ38vX6Q
zXz`<7VATh~4W`)l_I+D)Z$fU2*3+?J7)GYiMcqdaTE-ndgwu>!7hIFwy85nZdteHJ
z3@j@>Ty<9RKx+%^?wz-n_j6=*%p)@S6W!<3kBt22ZIP_g#S=+W=|1!WlHw5K1?C%c
zaK6|t=DmdpC$tn`ic#|LdW3geZI03FfIZ8nUv^4RKhU;JtC?d@tK-lfd33N?Md^n^
z{QJZ6-Of8QUp+E4BidH|7<T{yF(ZWJSICD>gVy?X;RczJl)Bn!USZg<eJ@QZ1$+H%
zzQPr>tnS;83%lfYw@5N4<RT-)6<f0+MNF=)dC3A#9H7a(lKOZ<_QxCao-(@O9!;GL
z?Qz9V<fL7r0(a{8!p>_4tCr=ht#5XK1Vvwaa|Nk8G6x;~vipa5^T>1|=hgkI?dGUs
z-O4$SP;&zSkIKDPqts*1bBeelRiw`-7SV5wy4?4+o4nN~wI@Jqc@12>gO8iS+*Iwv
z%<t``am${GFxQa5wbWKx1LEW1i0@JxE}8*Co+usK?42XhK}mUQkWJ$YyqY(UID|=*
ztKbbkO=K(|tJ9k=&0|<~YPq^|JHC9rW<z1|)xZAUdY1_y=#-JkkvT%|pSfZ-Yz%_R
zhouKXX%}Ne<5;IdBKRGj2dLkcjf6&FxRGbxfS3GnG<~&&4a5n7#;Z9!e*3!kxLsYi
zi*7PduJM(A838udpVoAeu;^4iZZdfdb;lCS*oUSIy-OXfL9@KQ<b>W&1PM-N2qQ&M
zs^#j-egumcQ9`tHLWFE5r9dF(duHDDhl`1|f~6m~t*Sv+D{7z@zE+KMkb4G9kDpsp
zFUAVGkT-Py^Fjy@h8AD5MpE(cOBI^=3rUUnTr}J{M<n)7obdI2x1@JZ^IMacBdDRc
zCy<NsVq7cWTKJc#fdJ2Un3H=+^xQLEy+><C?=O9r5ZLz8mbeduS&<}(DD~TC7S6Xh
z=xaIQj6IQOm@lRK1Qp4()!>(vIHbuZGF{-C&%iMB(p_-1KwI*s>gYi!dxMQE$pZX^
zUS<trxSu!Q2P}r^vD_)H5XYJu??|0})6(g018H&(^?gTEk|rJ3y<c`E+Tv~gW@Wtm
z+(`JoRart%n`iX`@Joj-F;*|NF211wVsTMPH14@gI6}y=rsUj7`>y=`7{!oZu(;9b
zP6i|f=^5em)UR+-`IXCqiEBq*H#Q$bx@DR08CFe5)R*4G4GFy$u{v7Cu?EC$gEMcI
zMA3{xz&`L?&kR+aadu$|T*>(CwZ0Z3+K<8wwU0a5-%riy&x)CjmY;?`zGJ<|FrijU
zQ9k9AuF?$Kv#*i83B(xQ6cliGhGSO0L=;QUGTZUK9$JJSJgxOwUVUA?ta*rA>r^Qv
zGzh*3-*PeOyxrEAn&XYq64<zu4AtK{+J-}%KH$8J*FW-tv1<~JR|l~aw0HW~ePXs+
z-pe~QzL8g_*|uH#xfCPXe5)|nfXn+tsWiitz#ZdXd2mBw@<a2hWuuDzlA%5U6ktJ`
z_g=8vV$xg4X;7{pY2OF}xR@9jq?O6%p)e7<92$Pukq~zBcw*{-!PlBchEtY*e%0=%
zeJQWLB^twp5<BCqezprkULS0gjnXkSjkWUgTbQ66YH2v}_xY3*tJ`VJmYYXh2OUED
zt+FTGgokc%P`U0~P>^y~RF}j#gkDyb?u*`pjeQn>Pg1J5<8qji30$%By5VwQTlBvt
zHC|1S4{DGcuAFKd=q-uau#K(?{QEczwtLs)q)*Qjs?Li~@SDwvtLN|k{Z0R;y21Y)
h_WzLtemrIIj?Dr`Zo=-7*~hSSZyDS~Tz7c-{{X<FBV+&o

diff --git a/reference/plot-6.png b/reference/plot-6.png
index 57f243ece2bc24cfab2f2bf8f94807cc89f1447e..0f02c5d7359ac0f45e5da4bbcc6ce296473df8c6 100644
GIT binary patch
literal 38119
zcmeFZcT`hp_%4dQFruRZ(ovceVJ1j#qO?$?gGh-20g>LMhM<ljH4vJi1*O-B^ln31
z013S#Em8u~LJ1+~i_V;N{<-U}-+%Y6b@o~$u-WZ<%kw_ZyT84|4en~5JIj8Sfq~&1
zR7=f>f#HNd1H&=f(<i~2v7|RY!PiM!9Zfax4VJw-^+@n_#zV`(n}LBVjQ(>3HNOsL
zVBlqds;Qdzr>#sN8WOw@Ti18e<Ydyd6SD6_{KyzZ|Fdc~I!=0AQZim_ZFqX5ayjgN
z$NPeu`*Hj-l}X<&hDTQj%Ltsw$-aJuIfq34(Vw<QU2iN+FIucCt*u|c%WVfLb8o)(
zUf7?s@$SM)VfSpNaL0dL)BpYWzZL)%h;3@t7TK)X!+eh;Ru)%QJgy`@_<VSZfg$mJ
zNGS*1ME1~oMyl+48%i5F#%32pEQ6S&S3ooy6wJ@p9r@RWp<5TGPyGHpR3w5y;@{OK
zhR6N?-6S)@HckqxegJbM{@U%<`_n&<GK6+q7b|$4UC!^D&~IWCzP&3A<q$xKFG@nO
zTKoO`NXv+APSM5SqEaR_yVhBY`DO{HxNP&{jV!h;Asa0tR;anol6b+(Y?Oe~4X5|n
zT-*V5+Dj6PdFaPF`?m=$P!#k&S~Vyp$tNS*xWw`f20<;!t`=w%SX76q*c)gX+(viD
z`jlmR+s8z1qbFmx{>eUZmRzfCs?JsaSL<yq3}W1h5I%@F2Hh6m5_H1hJt^UM=Q&^K
zrU0o!HAvJ*8rH`-`)jlx%y}@GcWy>oR`W0a;B|tZop(z(BPeJWlMP88a~>qKo3Z2S
zv;}-)L^n@EBQI5W7G}TYAA6(#C4`;n@SV(v_jwfId%U1Y_d^>ldh@dL>}jk|h(jAq
zZVO#v=a;LQLED`ZPTG6=se}iPUe*4V?31wDKlFDy#BIB+87dh1qhEiKw4AR?i;Q<M
zE~Kc;^@c&9pD*@r7i%{8p<SG-V13N%hkyLK*1~sJwN)O(>oQ!05oXyEXek#@y_h7o
zQFx#O_8Loq#zVqp0h(H)X#0!+ZMWzbiqM_B+Vf93qB2V!brsjeJI%^tGEM7_O!^!x
z98r8??5baO@I1JBuRpQCPjM+NO>Ht(mv`s}jRgF7=BI`L;>PB_Hh($;&OAN*=yFfc
zT#$rnQ-r^sBZbQL>v~K)yAmya@)|N+)pxLW$n_OVGWlVQG7sIc#w>E9OC00z^TZ-!
z7nlUL3M#m}<-$Pu-hX`ictKKjiEx#BI6mQ=%@{SC{aYuwELA%wVqRsGB0rVkxN3z8
z<b$Yq>^hO+WJDzAZ#C#1YcPb0ChTg)b#PCYyc+VULV1E5cxtZ!;G4nZ9}XpM?Da)i
zOy=VZ{PpqA0+n%R%n+~b_srYzP)tFU_Sy!y&;A*#UEa!JvSZe$n0R=6Od`I2%x)|d
zeIF_kTg!QP98)Vl(I8$B7~!fjbREO%E^-&WRX?3NBQn<N_P(%P5$38?1rv9&`r!LD
z=#GQ-Q~v;Tw{GmtSyby({8qGnlO7~XM?tGFZ}^a@lT*fej*Hh-P!j8{9&Y~z4~%A>
zWXJj2XtpqC+Mlqgj;Omj*=mF?h^mQ9CH$zU4PU2Cf=`1k1HZmQ#k3lB%Mco^w6wwg
z(RpgJYN;b0Bf0bS_+l1>QGNS8f!Kar|3IUHd$G6bzL|wvfK40)Mcdop{!{*IRt7H@
z$*>v`WaCh#sE|2iBG~r&5q2Ny`^7;THDNzytmp9X7VhxyT6op*d1aLJZr8&!38!k!
zrcI@dG>Jt=?U4Iu3+{QGcC1X>pACNe`Jw}VHZX6ebd&#P`W=O`xX`wU&<>s-h9M>d
z;|(UGsI7KCtR{Ce!<q;t&SyPoZ!TPWX$hT&(%%>7cIB9kZ*><Z7%Oh@dygP;52p?N
zOcvhzR1?MZ!=E>V7@he6rwr@mDyeUrUlnAR<EXe4JUUaEY3_*Hf^T3i3NYV5jLvUo
zy}IlY>ZkQgI+y)d1gQU;ztarUQh{qHp;D4!6dlz2EXd|~V1eMJ2VR}kmaAE_2S*!-
z{{6GnSB7m-ira{dgRgu&tlW!^f!WnB`hFN2nC<qHSQDIQ;w9P`a0wH3GKN7B_Ro+u
zAL}C0L`N2lQPS26afeQ*t*oOi#&MclhS2ojjT3CsdKDk63y(}j1cGe10$`Wz0h0{?
zSBr+(_1$~WG5Aq7{f?*~2N-+~r9G|lGW79W8Oa)|vO7mLB$%LFUqHO|a&0qOXPtvL
z6zA4=9k7aFwTfo^Yfb{Wlmr3Ht?%aCW8GS@GMDxs-r02)B2HQQlcpO}nyMXxWvN=>
z*|iYwp0A?un8+b_&r+BD$ktgJapPWD1Mwq5_Vt1mn!M|x<6FAylX&W$nR-*Mw{O%j
zy7NLs<}U7`YPQ(bDX+4hD9=l8v}5tMPUe(3l@@`<q0=_aw>H$3ebZLrgnEQfW6!ig
zC|9pty0BFrFrPl(htnO{Ebw!=xR<v-w-dkgs>_9|K74f6ckHU<Gr8o#&U%DqYYw$m
zvra$0SX7^&Z=Y)$piMZ6nMM|nm0mV36h>>auNa5K^7*^p{g!N^@zZS1S$?clmVu#-
zp}CM=Rc7P_Y*wz@yvaU9E61Lx>i2-oN)hwyS(vo#8+)Xi7rAEkwoCAiV>{fayg+VZ
zHP43q!bx&{z&g9?mE+Ai%|illDwvz9ZNNySF-{dikLvlAzL%Bwjnmvzw6rF(LR|wO
zDj!^uw%%lWLY}r6!$Uapa}lWT@ANHN&MXy1iEKz&kHi3MnZ6au3Xp{*2re$QQ+HW5
z4yzpqZ7*5MINRKtQP5x6>6khNAFEg5#)%O<2fQa3c)~T7PUgJls^^>I!53e*$ttGh
z--Dfx@1NkC&{2jHp@D`DXHQiNLq&?zdLm)dm2Ybrb4ADKImIc`$x8PQbRUPe)y&gM
zxh{FiO{7joUU;?4Re5n%g4xe_ro792^o2h&v&+_dsn+d0yRe?BEOZ-E*WeuVwsg#d
zPrA?|+x(#w%?>(MqZm?=ojW+y{IiWxbAY^Dd)MJ{SYhs8AIY=E*Nfi5`VtrEA<I;&
zya-O~QLaT`z{J^a!=Ifs*WRzsW<Il#!Lvg<iLIDGKhhDxx;n?V!7O%3VT^E%!5r^R
z#!$x&iO>*-i+lAa2VyTD4_Fa=KVI0=rH&R9t>zQVLca`hp``oLgixdqZ!sctKedN!
zDZnKv$u6y5W+yczq_18;DlfTZ)Ooq1W5BuY8Xe2Q;t?u;+hO2I^$SFXH?+B%&(-8G
z*^jkdH*Pu!r@N|>6m;YLLM3m!{WESGk^+HG|BXI3PEN0ROG~9Y&$YHndy-nb9FHs0
zZ&J%DFt#=kWiH?b(P?Zgn7=U46W-w(TV17D|D-Ky#&?Wdc`z0nrP-tw`Fh}IJF$A&
zR=)N5&@~4dxxMdm9>OiM7@D{#mEKMF4&=jWdS){tB-T#6F055tkQsHa=&4faq@b5P
zH?RuTkd4vv)WrRxT2lNI=@#B-$VbPqMs8FXzf$ars^eD&>}2AsA(0WadM|jP=FmD=
zE#rn;+}8WfSt<UmpKadB2hV?oQCw2z%SnG=T~#d?)^~g6lv`b;Fb{$YMP{Alf6xmD
z|G)A0++O3IKz-Y{Gu$YgPr!;3)~hu3rn-YkCL(+z4szs^3T2K1tHvRknm5m#ApWjO
zp!_d$J&ewDwHEsot3E}g<#LiA`tYhG4~{x6g|-M@9xtvI6HIM&gH&nDTR6m+$jG#b
zH6)4JJlz%KMp2ZAXxcbFFGw-uRkqNj1deP!CGMX1Gq=Y!kzoRriCb~_veZHVg2a7#
zM1jThgMUk|@@w8jPUtzfM&d};`8$wgn$3+h9ZXPQ0<uv*!^GV#c;66{_b3)`g|XRF
zPCPTi`F2=YBKAxO_QoY%?_7O&T&=Dy*~z<3My0?8jV0O1jF4}lO_q!g-yNrRC%x0X
zAdex=zu@l>O}M<?1{2&26saPxK;?A^`^UFWDye_gk6&?rFM|_i&yEQA7oWkUonlZ3
zjcs>rY|t#8hX&pVl~;~C!yZtuas<$x3pZY68mpi1KOfIliP0W2dqkT~+*}ZvU~sRB
znJ^jc(<azp1KptCc3jw2`UHtx&d1#v{)Q$I8>j=0mfwy{zRPwucA5GkpjmV8gum#F
zR62?7H2Y9tb_RwIPv7ba%3fX{wh_Oim5x^B+O%I#m`GP;t7S>ta)zE?sJkk>i_4CI
z^msy=;xX<6&NibRg1u#_5pc9T#f9gpB>awgYMNTg4KxeC#iT1FvP{4^LgdMDZ#5(A
zWkR#~V)6zy<dcr6zuu_;0P~@;boTz?=`=H@vu}uBt6GyF0QuOg=9Dh2Q+LZq2CC5a
z2nN3tcV?p!UGZ1+fsVcSXL8CNDGueh{(A(+GlUy)i$e>=)z`1IbJrKVmY~VKYVEKZ
zgvB+*IVEF*5)MASP|=o$E@&pJebw5J7E!L*O~Su@tRko-V@L>qtm!Wn;&F>E^!oha
zs>;wgVET7f65eNgy_cV$b#LL~@C`9i_Tp<)Re}g6bczGLpgsE9)_UzeTqfzvc*ZqJ
zNcB_vd^ZRD8God`c<P~AxWqCpBB^t$J_A4gI<H-9aNxEBl6L)4f`#xUh7^f%eJ^H3
z>et7X=1|to<9~zUP%{J;g`wUF!Lff`X9n=JJOxqJ!@X$XPOQ+uL_g9Wn1Fm#mM9Q^
zMuuVRzS~2Sp+Jn};7?QZ1scW5Ph+|6;ajGYEFi77+@Y);QMM(*i;PeSXrR?camA#P
zAs@Kn*Z&k0J?8&k788v(Rx<Q$PDMQmg?nbCAQWNrzd{>+ucrSimiuS}{TnO>>VN*H
z$$qc+pM9GAeTP30%ATw?+I-)MmNdY^C2JEu0xR*JxWM^ygFmr@(>>fxp=7Jpqj}(E
zhFqaaoFRmyAe6ZQS#<yAS`f8D-IPprT_hvl;+?;Lt7#?m)Y-dD%xr`_RtmAXxQ%ql
zY2;O{Q-nHdv5PL=fhzD*d7W~zRnbd=hUUhasjWhBlZz&zJ!di0N+@9ry&AWOj7t<R
zp4+iJAjR>I8Cg0YqmwJt2+|nDdP??`{3u#W3Ob|{*t66p0_Ec$=ro$Z%prQUEtOQU
z^pW!l`)Ngp)JlZ$6<1`vAANhQ6=_dqJz`@&76)m)52==udz@u|R2-0Hui=v_k@lm0
z!MEn&gsIFiBeoF=@d_BrR&!z^ktx}g>}U<CcH<@~s)S36l@rJt&^{{yE40EcKRX!f
zb-19#Vd(Yr+ieW5*W0?ODneMi*0OJqSUCBzkYV?E^j$53yGl@4&>TujUTL~c($&vS
zw5#nn^(eT=(CiD-UBHF;*RA0(m21G(Jn9iAl+SvNv&aNQRO0S4{C7!mJNmM2mUYzX
zDevVPmvWV5G?(epW&6;fkP?lO3Zk~WZf?(2Ok8UoG;mVeyGm1T50Yh)g>KS&gSb>u
zp&+mw$Mzz{apJMoW8p=4C`!n1kYZ+$EEqSaQ>Oc2&lZ#ED21UK@D`-we>f@JTap@;
zDjxRUiphRy##U+HZT=Qb?l`!>VltsxF{W&DeslO2rHAr;NL4!SZ)kXU-Md%`yZmzZ
zkx1WH=2|zc6LQ1*sUktN23CUr@{fsj?lI%N;z(AL(CQf7%wDFOt*5GHE8{TQAG`ER
zyp)qLg1jP5HqSPgjKylkl~qUW8ypjTJsIEua%zHCxDtJ8HB+#nEV?(Ij3^I`X5dXs
z3I@}mlQDzjAR{pjhFJC5lvcXZ{b4)N)8iz1Frwmv?{*Ru>Hau4Wimo>G`lr_u55Mf
ze13z=m7L*6ea`l|Og}fv8jejP->uTb7tbxPb)#c`3gZfVdE&NI-+nc_IL4g1^d?m^
z#j=>90N0ReEzeu2(Qt@};9c(KU%QP72%_nqTGc`@<a^QE8oXVx7WZ;;TFDPLY`!?W
zM8j%wQ2G-kaB)vA!SWx_0$*g-#U6eCh-@ML65qLc9V6=Ty+X^yrbNs!k5^=@OxX+k
zCs74~E>kgHVh-x!+NtKaj|JqGwOR!eg0?e-0V}V=e=cdOlx+Ri4<iz7UP{cHZ9@wh
z$!wYCkc59E)T}d_-cy<UP&>Fd+dJ)~AyV3>dR3)6Gb$I7wM9CCt!l#$1vNH2*9dF3
z>ZZD5)Ki|cSzS{yph$T6zVuarEf_7hp)=3{lg-I&78VNOPq=R^KEceo<Yh;LqQA(G
z+S(DWx@Rs0HScUV>DR&O_ol{&xZiJWNY(34(lASxw4e0ThTCLi*^~7JjTW<vbudGl
zkRl~m8>hZaYm7JTi_Su=he#5eI=i6*?x~AN(w4&V8V7%(qru=CNS2wvA{=A42VX`u
z?{HEOQpI1g!bIb{1{=qMznqBR(xH*tnr|-*w;7AIaj8vU7H%Y;IZ6~JbN>oLr!!s=
zCxgBxnTe0Fw<G^dwP!(;xw|DlAKjzzUV81-xsx+abil`-c^Nps8n>l`QXWE|dHa<Z
zpeo3~oM>@fXa>Cyh=Rbk|LzU(VEik0j1@;LO|p$VVomIu<hWSj>teOfaVeW-G`V?k
z)ODNj-DJ*}R&DuKrwiMsx&lVF%bb$_HahHS)lOEVGS`oflgKVsffT~_D%xhFt=wjk
zZ)Jm@Dy6D`^J;e-Qn)2}Wkr`3p;M>9y=`ufq>d80^UjgGM2FM03K0pqnLn>$6@vsS
zecOpct!h2$4c%t@Y|2hvfSWi)kS^imEaJB<i_&(uQ0aC`<VstW`(KLI9)0FP5Cn>@
z<pO4ex@(BxVVmK~nj;rc1I86T)IDz-`>efb!ah$|3Lj`DYN0axl1IfvB(LFbcsLM!
z8IKRIOvk{!bu(#Hnz<wxiMBNPG~=kv{gV!^qVZeKm^d?lD~_|A^Hm-NLpG<0)|eO8
z8^sh9*WO#mk#9#ahF_XJ6(@(YaLE>9VYMzndXq=K`cP)b<8sgILq7gcj`3PUv$Z=*
zj2de?gtV!AnXfewoF3E?`~a7@YlrfQ={VjpZZG;F74ONeMpad?D5GK@CDd^Q9d<~-
zkHV$kWc7OsHH)H)3pI+!vW=CbGY3P)D{?qd$+MK9n5`2r(xvfdilt3gqyke+%}fYA
zilck4DiLM))4NM%3eMVfYGpizX<7a0+ZynN7PmK4&3?JQ+UTmHwnM?kk<`G)rNhe#
zVwc9Nr%(j8mXyal@B!y$o95VlXjw}xQ}WG^qgCpZlkchfuk&ecZtn@_*P-#t4DKo|
zWc6ILdvNOo|KfXP)CFJPXZFvgpVUP|C^?b%&BVfp(?2sx?*&ba4iA=1NIak>*ghp?
zE-_tO^Nc_&09P>F8Wp+rfx@WCMP@y8;|`EKH=5XSTyS>4#N}grj3;Ug_NgwgpHfqa
zxH~?pDI$Hl#9_Q@DI%Js;bV@j!Ucuith)+VJnB28afn1HYzA9@KjMVc_^7+6iI{;e
zM!(MFANaFq8(361^R(WA?76pxnbtYOn@#42eSw_IXk<)cwFP=R-6?14s$`%zTQrwz
z@U7LSubVB#aGoO$Dl(Gu2&cUVqFn>r+jq(NLzvY&$*#;3u;wa$qx^fBW9}*O{)=0N
z5O3_LtFPs_h`xiG(}8pQ>a1<D;^G!EBC&N@n^Bl-;Yedx@QYOW`t0=2(e37DSWLex
zs$^HxXr<-L*WEdZq?;3lFE`1J_@Lw|#iqL>Og{(F7{Zq|@BAWL72RDn=bZXqA#7<~
zMqMMbA7wE4YXOj)57uSbLINZ-+lklh4bR(a%pGjH{1q-!Y>5qOeHr!ciTH*zw-sJz
z84^dE(nKAyU1Z8B8PAFcNKk00Yt~);$U}*=!DyzA+Y?yx?%1<T%c&B0F${^xeeh@6
zQ`c*BbopZ5kLMb;y^K)4`@DZ--S3{@JEAY;s{oR3xykLKFLPVe#l-AQdyPE7&rC1f
zW7!bwphpZ_RzBReyuOHqsC+vxnq)L?w3|>kHb6ExVQHVs<52{xxLwog-3!B2@!O$n
zDMBNiYked;Jxr0vO0Zj`Wn$-Xt{enWdE4^Ajr2p>mpYns`&I}p&gAH9!8<HUcgnK#
z-72y3_@C*5_jZoWPoRu2Ji7PW6p_xHV@ulm<#^8^!<QtyNgVzaWfZc>sPg(@0NMF3
z%#gaEZ(hpKULABn=?X(EoKEvScFZxoV$=%cg_|5Rnz`~_<*WLBiVmkP*=)7%MB6?!
zBOcWt-#q0Od0fEu)U`rr;rI8{>tKA04OrcMTj#g;Jj{Wr$nVQAnw1MU)ziSq=MCLf
zfKYv6GC5ZIzPe};WvK>}d<?X-+Y`8e1W#4;UeLXr<j&&~2W~-D8)HXaRl`}T_rn{W
z-<hyqI6#<Bs$8ongL&_?MM0kQeXN5q@9gTsLwxeDdb4>K_>Q?wtWdXkL>o8v%8^?&
zI)^Gr!;6#AK@F)QP0cp0Wv0m(X}bu#&&`|&(sLz9&%_e}+N^<0&QPm2JjCGjHQI+I
z@#RC!Ry*=xfF?z!A1M=dZzo*CQ+uH>Tn%>#$MYxp3{xONq5^5<gjQp-`4pk&cS!|T
z%ikz)>6UoHjwxpqGi1#;8Xi+14e|C|i(C9`(xQAy<bD(WnUj!CpfLeAN8NirQCFR}
zzix|qa(4@pqCKHH=j+xph+<?2y-dGf@&Ku4-xL+Xdx@d=bjT*h=-84RcX=MeaBSxI
z_8|3YOzVn7lx4j0sB)SrPj!GX$Nimx<NlJ1k*+EDP4f9=8nRP~!L?kI6OpcajH@(u
zD-oZ+)Cbp4sEy9lah%^U$q7nZ5Ptn<s12O|lCDS+X7e6|q~Cf46Yxf+4X^KXsx(i8
z<)4al_=HM|EtgUWMMkMA>@uTCtHh5dxwC6a5S0j%_%lB)i&QnQY_98bEs`L#^i0H)
zx*Sgw@hz}&9KNlS)^XgF(!p6jaCz($x&J6G=i8tU<q<JxQpVKf@*yi219dZ8C$RZ2
zsO))gJ6@H<+^}tTsx!X!pUEc3HRX5iJjs>uVy$|bEt9B;n8gWnM%m$Ac<G1{REK{;
zWOKxhcH!prXlVx#G0BbXJT!~8yydEj?nsm0fpwQqy3$nR)ah-LWu|MmO@#7D9Rq`f
z8tAu$B3@iheVK_f;+epdeh#kUdOU$7`s0~0xiOhmLG|7~nFy!Kv9#uJ*<;CWe5AV-
zt3x#|n`kI3EkvSRn^FQ%orNmHU8`1&*_<q44&o2m#TNQ+Ekp)n*z)~&nQLGp2$8!x
z)*f_x`sd{ixxTDFn&XD6?6{D)yKnC1<>N1()@+X|Y%*{t9gDPI7(R&Sa}`>iyzv)N
z09K~6p|Yc8tSRVUuTG&oupJuF4%f7i$Myubh)?VUamn?yoI;A!HHWy$nL5b7R>Y{c
zq;wo;T{0_PBL`#Mv%gLH>|e*s!q9{J+3m?bG21&3dJKoJWx;4vv9eXvhF+p_P=YVt
zl*vM^(*tUwvfG$uOmmMxVA_$PE-#)vWOyajWe>?6IKo@bo0s5!+2h+v+-Jv5#k`3G
ze-pAs>y*u=W*C3EEw%9)oh&T>K`#Hs&R}ws4idxW?wHQYn(Yd0ap$aqt45wi?Qo(-
zRHI?Lb49q}HeMoUF4kfvPjI5{N>D#sjdJQf<7Gy#V9ad{W~)W|9)UVIwbK!$R;NY4
zDRq>y-mcSX@7Z(eVN<Xn+%Z#Fc`@ojnvsM<1zQWIv_3?nd>&#-DCuoV{*cEfB6%?=
zMc1HPIp(DtVL0m&RimS&{Fn_)_(^R@LlPi{`D(b@x0lM0KD$<jA6XP8AS9J%rEe+A
zLrFm;6l`ZyosGce<U=0khZyyq?0%LF?L3sx%Jx$7nmHt^7-sI${V<4Dv)zlMg{&0V
z-`~&G#wsQLGj+|4(4<oHg_i%$n9w&kb^iMH8cM2i?O@$z(^Y{g(jxCdMrAU~y}haL
zu(}QF2(HQy-w8;cO%x_$4kb}H^)8ReU~66Ut5<b5waa*{Wb$60XNVP`oAQ;DnB;Bm
zRNKfv(*(;op^~dT|IGzZ&bj5QX_+g}jU20UFGUa+eCs~fA<fHlo|0$+<@W=(YZM2H
zAp(mxlOd!NE-R)z=_`M_7bT8fK1Vn5#JXRt?q5zQe16-$_~KM$m5j;8$Kyd?(B|Jt
z;?P*6^rc$GyUz)|b^13?sLHPdn5OgHBpJSHOjHcIxnHF0w88@&U-(wFe4uyMSG!EE
z;1Y?WS-tUBM3y11SggLk!N2GpaYBEVxV;^Jmq%c87Iit*?W)b477ZG0a=oSzIi4G*
z<@dB!eGnn9QYB!Q;)_hN^~TkgO=+^UQyVEekhP*N0jhO)^PMUKm$}8B5{eRJ?M+D5
zFiDixP0yeyH5gOdmNVQiIKqP7dW|=|4Aj}n5zOtwxIwBxt$yF%_&RJpRmBfdpwRb3
zhp-Nu|Li%PK*d%l*dL9Wjn`86q^;0lN6~er2reH6C*Pbcah*`ysEX;C_DD`#u*KG8
zp_P+rgGUbEkEs!CTdQ{Ca*<_Ki5<l!-BDX|CJT{S)}@wXlkcj!3|&mz!ttl;@@JnU
z;$Ia7V|w3_XNBZC3dI*8m|Bi32#kGVmsI3Ku}vP)rYyr<EyZ?1zs$#YxhG);KTft*
z+KXFq{m`1~(B_C^^E7>=WTPio)7WB|VQC<dZzqsGd-K))^Q~}GeeBJR3~{FlU4xYi
zEg9wPkj<hH92NDsG(t&cNK~2x)mrfSnSpkTEFy9XOtRuEoI+;alYBJO@9=Ydf8^YR
zUmvt4@Qv<NQq4v6-+stR?<Sp!h*-tJER!t8GE7$ply~_20c7X#%UPqy$DwM3#jN70
zvAu5dmB!rMY#nBfM5LXS@_!i+Q4$=)oEj!;BZBpH%e}W(-G1DX#It=HVti+Kjct8x
zdA<8dHpRdpf`u6TLkeCh;!glAhV9+f4cdXPe1~C}_nV3&2rj-HuA##!U&Y+skk{oq
z=XxEvCcL>*8*58(ODCk7U4t!z<?r^)EJbh`8<JEK4Fr8p^}4kyVh#6T0d#S~aApJ+
znB|4-=?RGZnnSg;vgqbrR;-1+$C4P<Za`okvc#+1E7y)XSG~i}+;<CD8H01Xf;+QJ
zA9lAS+M?W|JEBA)YO-rT8{Rb>uj<{%*!bWM%Nb*BX298t->5p~;^wAf;CK+RW*kiD
zHeQikXZ)#=a8P!C2Cb4l+mBHhIx-pDvj4qWV#V@c9RGZtmZlDW#<%`esO?hoU-48s
zO-WS9KbM2L8*=SD4rRalMq<l{OREbsG3$#d{w}z-!~M#fRDBNac#E2EhYF?z<ldwo
z0kvNQP!p|}f~x|QSVLBJ5~_Z6Lh4%tka4=a6S(G}M1S^E?G1j#ItFGY3z`E*F|}|~
zD|>wc@helmJnVBxe16|**if5G9`Dfx0Z(6wl0=9xic?^x$Cfg9W4iA7Bfkt=l}BG;
zCw@)y5%vsO)Z1oJLASBVZr)$vA3HKR2vHrP*qh}|iI(SgbZIwu?Xf|;7fX`Qyheyz
z`tWEv8S1b#fPnDbZmu51NO%VnP2|SgYp{?KF%s`Jt=QBdo21FSVFA1idc?edEMOQ~
zeXmTS$5oMV6U~-ht(J?mwAYZ`={xLmm}`&v1EIOV_*1&*Tyn?p0#axhEL0{j)jU*Y
z;9mo4XgAURB&qDzX*q07-@_1H^6>ecD1nI^v|C1+P+BaeT;|&5Z2M(QW~}#d_;ByZ
zYMnd*$!$#&ig?moZY6$3U$jKN+QJo~<?yAf{J?%GTHpLfeCf6QR9(xvadL-GIvb`G
zbB4!f$UhJ`o~(<|D%84s`$1;qz~dnW2o6@=!VQ$%iud=HCdjlWic}ChSQ~w>$~QIu
zdGF0I=aM&ELu3g0rtu-Bx9^g@hGVh?oT|C7*&!zoL$$-V3MU|w5*_nwdth1%h*>Xa
zJiL@)_~Eu)I{sP+wPNj+t;)#hpZgQaTh~9ESvws0bRMq!e6Zu--u;<4<#@WUPSs*{
z=q=z|FCLY4?BwucGA-4;Px{Akkhd<{z<wU#lwH{wAFXve9eX?|BJVS32r}IIBeM9{
zE~~@F&_A~HPRvb~LA=9INfmO{dPf*!e|LRD$M@6-{7^rUs(YLUY|)7r<=GguGe;Ph
zBk8kqZq0AL#W%z+(~rkIa~31_ts2}t2t~o##NO9P4xKx~up;`a<DPl6B=$_o|DZ`t
z&)fh1ELu9(ht7TYD8wGkEl^-nI`(^@p=p*JXJ1s!)%|H|0VY9(J~vW=>Um9^{yna_
zahBzmH~)u|pRRpi{MRa`mydwkfQ6ZZC6=&sESA<E!7N&+z@xHUTrU1c*k|L>N@u?u
z%cif<98*>%CR<;IU`Xo(w~2v5)6^?WVR?V>C^yuarzG117TCygW?TfTTt?mts7%zw
zV(9yfS2_<VceiTm=xm-ndsc8NfS6w5HBj17sFx~j9`^aW@Ji~j*8S~eM$*pPk#fhO
zxa>~x`eJ8rC@=iqt$(!pQeqX>aegt0&%=h~68iEDvr;Nt$Es*=!npT$4h|0TA|fKV
zMTLcHm!l-RYv#HY)?6x``f{J`DyG?SS;@BEhTowRa1jSWHndgDx~?K9S=>5T%6&38
z+1oN8AixIv$g)S*g?vSEEA8{Z;c%(IomGTk-L_^{Z*WmetbU3C*rcYRK{3rusm&@?
z+BK<(N*-g?O_MD%<iB{v6^xeFu-RSju{PP*LQMCYG_Q4o!R?wuye62AcZNuaNJyNA
z8u4FjFFzFe%j<%7P@{J-=k7uG8-AzGq#JwZIHWl@@>HmcI3C27AqtF*i#c5FY)3~2
z)5yDrcgp>y5Y<EP9)5nA;X{D>eId?sE>C}wV-ev{&SzlAw|)5s8$loaHHuAAa-g9x
zaC_9h-%#^LstWS(L}#)DvJBptr10GRsz@X_LZcF5e`|{A%3sryM~<C5SX&1Ul5m*<
z!{L-Zmw!P(KmgwRsG@qaOxQRVkAc8D(yS`aBwlLm_;|Hf&Sa?68fR7QW}WIG+dzpB
zExn@h=vyW#Rm!<a2QBR~Y#{5{oyKPqyxw9~WLEN+6PxT^{G5?^FW=?LM@EKQ%n&C+
zwjJGaW;gCvydKNdOXXTjSf@<U4xOM&Q_Zv!AFG%WK~T6pQKTJgHoFhM`>y%MAiv?=
zI}gXayXiLfDjxMtc~4YzJX$2=%x3jIT6=RROuW<AlEI!8xAR>8t#|%>XY$a!Iv*!L
zD7#YN*1PaaLQO#gs1Qj^Oe~6pg++ry+NFk4-ApA7_2udXk>d50+1AWX5$~Nk-(6-f
z^4BvkF@h&fi{EFpmT2=Xgu1`4nmF<v-f7ySxQSo!*@(IF_snf5yR64_(c&O-Hd-b`
z*}g57u(wHsz4M&?TA;}tFqh%ed3%1S$Q&09e8HZv`~*x#P_CYMVwq}g6EI(q*->Pe
z^)*H)!++*P^&;~{s1K8r_X7SR^y~|;o3-D>lFw+X+~CI--eM+#QS?qyE4a#$>Fps{
zvppEM<4NBj@`&RpU}e^pf+{$5fBOX%K^|cPmOAJV#aX4gVb3x$W`QW8>fdBP7tJZR
zk!`XWcKeMNbbq~-$9VsZKRxJ9oH(KX5+ol_$nN*6Hj5zGZVwchV=sX0ZP+5{Y#(mp
zkOS4Mm!M=aK}TXBQlc73JIoX6knx=PqOragqeLFI{QUiALVLWBjEA#(wcA99D-i`V
z`P{wSFi#|^n1T=}BaK$pZ}e*Nxc)G65cEA6r@~h5*i#z+2uWTU>GM0@_xf+U7?t%e
zmre~9TWr3e=kij2fj11~=YGTXpk-K2pI|kW<hu-lV{v`&(v9~?P^>pXtcGh0M2X0|
z&7`EH)t$!a$)Gh?I_%tZ9o;(b=Bq<!2-tj#4Oqaia(RCFlW${l6I*Q4xX;&>B2~XG
zf!x#4!6}BgMyw@|ZQAQ>@1C*!v(bdIymL@;uk3AL$^FXJ^8oee7?1=@2Vt~39|s)k
zr>gofUR_;X|E9~ZM;o)bRd2xT*Jz5^R>Gq5hoo+2Z{Qp$@y0CzmOE&rteTmbS;@@6
z;ICSn#z3SJ9ZIcgJRX*qkfReu%D7+}g*ZPJt3SFwpI14k=k0mJB6ja*Wc^wbCBbAY
z4lmcgI#K@_eK}fVbA0kryx~B18NYBc(L%NHyvdxSvwE7{k;MncLDf{Qa-Xu{g|;U2
ze{&tm4$f%8s!VP+X(OZld9pGbxAEx;O672O9o-Mm0~HY&*(vFyxwAT<0xsoy0Iq5O
zab9nhro>$VcQ9z_U>bENEEvR=ruO|5mnMMvYou>)J~vMxb|!49r$T~~*(4nrW|G|c
z^9}WMbab4DN-X`hPq143obc{ZGDk1nzUCGguXZiYK%Nmj%!sK;+yn8*`M2NdI83O6
zW5>gvLMCmi9Q^#ePo?av)js(6i~<0!*Y8=O<g0`B>k<<BH7boP6j4!8Mo=<VM*(p8
zdMh`9ub1wP+h(6jt?O<4NtHt}>@sfSpDvFjY`v9?)3R?y#6OCw)ZI^8w)^N_uMfLD
zKR^Fni+^S`Z?Z86E9JY?f8<y7i8L#<3i$f%&7GdtiUAuz*x-%!*SkAK_8CHyT92R%
zf>H>?T1_JTFi;68YF;X)JfC2!u{vBf+Xg(SL>~9<Y5Z>Hh_h+z4p_`dE`1eL^Jt>Z
z*Hut2rQe|)Eg%&9^W!P~FGI<?$Y<l#=>9t2WuX}!${}Sf6`!G04{eR%q9|^(@yWn^
z2TW;}{@2G^s}jF%%5Erd-}CreHfU${Mr^j71gYfUj?!!lbZ@n*y3%#eakMeW?_ps;
zyj&Q_j6My@nlfTPO#y&7+jkGyl*iVli<~;ztK~Or42TvMfjn(X|7UbSWgDKvh4}TJ
zVVjCL+ed5KU9Df^mVgSSd3@^7rFbtD<hjLWOF0i#K&9N{1@)4kgz;MM`rH)1;dc*l
zP(raqxwwd^sJHdiz)%02X->$VI#`hDff|7-Hv~%KWcL`EG$v8iw>DZ?<bFT~W^#>^
z7-BN=C5`$%4&Fa`jy*W-G3;8LRz9pb<T-!AyLaFG{*DGXIbl0g>9;ni9LXxt^!`p5
zlY|Z^&GDt4jLP=+9i=xE5|dNcS^*kOaW<<^wiYEnO04Y>u~W_fiYGQUHm)5z`Nx$_
zQuUNg75yk{jXRU30PYYs*rQ)^2mW}YqO>;`ubI~;O+1Wg2JUydFAvwoY>$+<)+(|<
zd;x4%VdZ_7LZ3Z*mM$~y@wpKjvcI@SUY!_oTplc8MRCZiCV}WjRt9b_8TTlxHNZ|<
z`&FTMWK_w1^BsvTLLhXeil<j+={2P5hBfVws$c!QK3%~tBxH5G)*RTUz6T^QC3ve>
zlj>IU{bi7jwsw<uXX>gmZ#-fQFqreS1ER{*_F^9P&<!Lc;t6SVV22LzRe-sysb%$k
zbFH3`{;Rhs&I{?nr?B)y-gLWXDXF(4@Oc)YR0ZRm-<_^Nt2WHih!j{HFo#j~qS>Xm
z<u>t>5_QX^_4jw9Bcja{yUVgW0x}YpD7WCdF7u6ywHm*O(9C9!ii!<7Mar4%n+pe%
zKHDt?3W|$YVz-xv@@`&qnEvq8TVN4@ku$j*OI=B(W35&~>tL29stYiLPEaczj|Z(a
zcFk5x+^_f%3zD^pG3;}F*g1}cJ@^N?w}K<RQh-M7p%apmtEbx14Xzh#9wNql`t*d5
zI}?6gAsg{n{Nu@ny`T^$#<OP+%^hVqW2#)oo&aa}VdJv3_>C&OiQU=V?M4NX9DC^@
z2kWix_+Q+9LnSvO!V3W57&M`Ow4iVL{P<QcsQdb_=IrcjF-|5;1)m@9T-Rq>P?e7d
z9>?%ccy-<|&!I=c-5l5O>@i1N)%?c2wlCmhpUx|7eTznKZFEY|oK}X*)?@%9GzS+l
zSZFE=@tFP~MF*!?Ky`>+GE*yDD$%zDMP_!xS?!VLrB)W>O$bVy!jl!*jc1JF{<fnP
zPLdOZUrZ1b*=8HGc=N%=sfDi89T!l|s)i$#04H^59WJw*+F{R0?sn$wLr~_EVUymV
z=HGAywkZAd>C+=mPtO3rLZ$UnrAdZG`p^^O-T^MN9}-vO`VaOtHF^BTJ$bYUAhyn@
zOFG_NQ&_E;?FO-<WCj4dwa#ae(CXUpXI^1QjKKV%qUgZR(~h4b9YL&K(R7Jr`US8(
zRAM&xbZ@UHMx)UX%9?;qQnpXmTu!phz8=7+Je^-@uRQaLFQcQgGw7=vZR7>3jqIQ(
zjUHwa(3HO(etNM!_L7NfR1Xc#2x$c8jx!leYy+j{-gPM86+x0WoawY=wiVTUm6K^L
z<ogTO418y&&f>-HL{W1VnE&?|%}Ln+AH?)>ahO4j)1m(ql7^6io(=m94=2bgff~`p
zzZiRm$pYER<tOH+;|*$)igRV{00`PbIH8+2XUtKhR+a^_J^lQ=^hmv*yCF!%sl}0U
zqC@pfK&Zzj00*cB9Ptsr&C<=wxqPgx`UX_$Or%7_Shc%~7rhoq)J#7UqVrW`(108$
zm=2(F>;c@NeFr{7D)cGy^Zh_@gsa_VWEC$SsCJ*~<X;3D<8@sAxmx8a&uMKkXCa6?
zm+hqiKH6Rn^6-su-d%})z-5qGa{!tUZI+;L6~%BV+-+D$ahBgtd`LsQOS6N1Om{r7
zu58eYEotz31Nk+-y6}}!5c#r>5jd8lP27kadsaoo&H2rzfLqeMe@=hY0flC(2#o9|
zN+T<v_mLOzJs_218{a>Nxx?t3`~)Kl=V+OoW>B`yk7$|68Uyr8kdN{_a6xI;Q4>ux
zlfue7E=&>_9xifcWyCmmz|@>dt(lFX{B5{j1jvB<kd?Py?d8<Xn-UTd1W><5z-XwN
z(o28HBO3rT48>;OuY6p4vY|oD;(hiTevn~H2;9wydOzA#2?=+1ppgzikS=qAAf0j;
z9DM-NEw95v%>MEBPcK@bghJDzyFEQU?h?-5UfC&sioLu%1y(U7R|qz75}RHTrBHU_
zF<9RH`bWKQ_n)6Ux8DcK%d(CUP#uW8(EtzuAa*b5D|&{=dxz%o<s*W={HZx!9<aGE
zyRw(h$jInNUK&^~a|CR7Tg|m?yDa*cc_GmN=+Z?Q`iCSs!=gC^@f`>yZF<#q`uOYw
zF*!LoOi1^&N1ugby3~)ik>aBlusaVFThY%HdbEiM-l2b8L?>IOYO1QL1^j^2iq3YX
zr+ddSv$Ez%5o~vVe%GPPnl~VP5HrO4si3&<;(}kic+u<KEk}eIx!err2R!_JfQ5xc
zbQVfE&<S7yggb}ReRHA9SD@f-x;z_V-5-b!Z5DAWe;dFn%;`L7GrrwU!i<@<A_6e=
z#+;m-GeQn`^SXIA>n)ms1H$<SO0CCynG7Vxs$3P+&>+w^Va+}*EiIP(po-|VELQ#f
zXpuZ3Jk)yof;0fP*Y^7t!_^`{L009zC=B>kPqiCmtH*iu4lsXnz(9KBtkA2&7*PHe
zNMqH>KyBHU@=pXVmppIYUn;tWlLsXKz7Be6uq2g?I#Y1=@znju^VGE<2f&O=9}g6g
zghfR+sjC)jF|M375V<fBVPRo9bszPc3?LTBOa*U_HZ(N6;-}L^Voi?9m7cQf2i@fa
z1W((%qv)D-zSu9Fc(LgqFl>Kf<L=BqXI91&4^5pxPEa0$(yR&CSKX6bl1KNMArPM*
zSf91^^z3jwhS+|2RVx9gH#1ODweKn_w&rJMW;THOv$+lhWWitg2U&|i2fw&%fL1wN
zX_0Ez-heu}ssUwJ2|1XG=du8lvc~cx6KBm=@!3@OCSgvg$NkXria$Se0b8uS2hi%A
zD&yWH+9v<JV-3EyF|Ws805p#9jeT>VbhywJfTrG|5~#bgs4ytudl-+6lg1}{23T=3
zsuoz3FWhYxI{;0G2FJb|t+f&}zN_PVGjvwne4^9K^WgZv6c%uT_*{ML;p3hRrREUo
z_K*Z=vXSBo4$n?Xssa~2mNWdSCgMVW6CK=WP$MTNr^zw*W^2lzr8~7nvPaRo3nZXE
z6_m6!&rV~D7+3qArB<v_jchraaTRX=8mU1w{SN)i%^-+VYeAxI0_D|5xY6~|KSlr^
zl9AX>xmBuc8L)O6ew+T308ccB%%nJ!Her_Q=uq?Zsu2rQnBNc%hV(1kOObZ1^8!tv
zJfJ=u&+*^DXP@H%B=`;5Vtz=@+)CYvUes7_+;5=MoG09W+p0y<(_z_nd9YGgOl&-4
zxuiOT-3I}pmy!1K^Z8b7BVu=Yvwn4&b7}2D1!x3Ftpfeg>6Q!+42K<Lf%ZlHS~KlX
zosmWCb(zQaPuM9Co7RmBv%1yYnH%-tz^6d}W5uCFEHXs<V>cZuCh!=^%HX{XGCIRc
zXA{_oiv_e+_zUb>V^r+Nry1-CzdhsxdLStnNyo>4%5w?iaQ)PEy!y_HQ$=;FS`)=>
zOm|Bmf8)VMXCKGSM;=Sy43q0iML1<wz>F!;yN~I+o5K*MKw2+f30KP~ewC^EjWTFs
zPr^&~r1|WA539DRf8shuZ*VOFuZHZ2be2U=0|ap&1EAf=GYR9ohXH{;mh?CS=)uQB
zrHy*%Pv74yH<X?llS{gc4=@v4J65|-=W&T==ncEzG>}(QDA1B1)7u`5g?NA?2;aFl
z&0Iy)s#9Ki)qbM6P4Ch`QL6pu%NLBS+``aSpiR-bo!UcsG80=yfVe8?r^&9r1+^oX
z9|{W4f%(IS52v3-fv9RM;U6fr@U{c&k5K3H6TnvC&X-I2R+a_^2K%6l=5qCWfqFfU
zu6RPaKctR<lt^;8CS{k|wMtKddh7|tg8TtWt@dUrc+gi$6lf1+*NM9AA8~w|()II6
zmdcU(lAwPS$zK4J1C|SUu%4q@sc;FiCC4_R%<{|!@buCv%E7ynC6?9PN?=RluQ6Q9
za*od5==st+r6XQzA4l~A7wogYwaC{aI~x@ybT`d^7M^TPb^@WagJJpplEdv@0N|XO
zPgch*b^te4*rw-Ztdq*c_JyWOqUdCe=WNIwS<yb=4W;dV<E%qa$m?Q!^fW>H=E=c4
zXcx#11cS684VUpX0L_ZkCY%vU`x$PT@|?t}({Z3EYPoi7<lvWI&e8pH@m<s0>W+H#
zTTnCCB2@q}*arzY26`0>z}-PHAv$xQK0gwLf=cydVe@YGB50-E^Xt=-DFHeOL9g)@
zvDts}Y2X>($KaX|>mIemUggRFG<})BKp(5zlWjS;yFPnL<67KX)#oRp@jhzZpqF-5
zBbt4{3)D1~<ZRH%t>=be2HEUWU2%=%(eHO&{;{V5t=s4j<<arAr_&qQXpT-Ykq8KC
z(bYRI$IE~$GyMGW9HoX%=a@y!OxA{QQxYosKeDh;!i3)x_0a{_Zj)RD+1Rl4b}Xm?
z^+cfVgCER%2}k-*KRxAU(-gcXNk{q>z<1n$9_S?y2o2yQgY=#P3JLmE_4JRO6Q+Kk
z&bw??gB-M^UtKTgqtw@$<7}#d0S?U^r*qsU>VoL4lrXwTUk3c%qYnr&nq2ViPdN|`
zlYcUWWzjWy2oPAQ2yjqMWzaFio#^e+C6j*iX6f$&S{TCy`gAkKcje%g^cVr;_Pfla
zf7a^s$LGjKpck`1U&s%OJlx}$T`tjWm3}rv7dW8b<1acy(punryfN2)P6Ne_umN~H
zwG61GIY7-Zv-&5bMsxr!1JEi%AYMt15=s7mrQ&^xmLJIdA`WNw5t-M1qv-F}^IO0Y
zi|NX)*s69T3iSTo#tn@ph9@K@zEB2r9)uK-7!5av%>*TYh5^)+g8veJiFN_>e^PEb
zL7IQHa7B=ysGn%%^v1`NX<YI?{&0XjYq^#-78WB{L9EfXKp#wRPu`fg)IIokm}VK8
z0|3F9+kg7Vki=6=KbzX2KfUc(2{4LMK&3rDue{p|+)iR$sbH1E(Dl@JkD49OkqUMO
z$S^cI2HLrDl>n}TIY}=6%>~dz9PSbGqS+)D2LHDEx?(;AM9g8Rq<-mf@VH26%n8Rv
zX~zjrJN@M^pH-i&B0>oOfb`FSh8hs<KX=w=TbqTTD9{NxxM5k<e=yX1I6&_PA{=`%
zCWcCEg8qKXJ3q7Au7RZ2lAS64*=Rpy%1XIpx6;lytZDr#hlFf3ZI*}jx*pU6`ErM@
zI{yVcCb=t3Zu9*v1Vjlju-&tcFi{PvwK&lAc{l|4u<ktf;&v~P@|!q7TSwh#_OruP
zBe+hwJ-&h#CQJp4_36m{2WJy4Aw&ZpUcUoj<O6$e58VMucc{GB;JQi3Ch!uygt>SL
z&t}R3S1a|L-9Ti%RknPt+<Fu;Uyl|B4S6fKdQufD|01|QArEGKaD#Eo(g}AK2o_29
zn~!2QtUjo+17M?xTXNrg^es{~8J49Hy#}P~&kZ}261jC}GRWO4mrp`SFXg6mIwY+~
z0km5T3=Mn9Ajfa40!sB7Xl|w_jDetEVz8G!W0q%jlfA2)GT*Q_ABP`Lqf-V+kSt?B
zC6k|cdafhyyfN7NcIP~Gp`!0@&?3Fl@C1an9M8JIi6KYL!!%CD?m(_>qFmM5kOYy{
zez^?Mq@bHF?>k6YYevr35;G_$aEk_+g2gr~0C`|UzhHgY@Bi#2!$S6sMY7yrkG&g2
zom--NjtFXQQ-1!V<&}|g%H7w0y)ir>gL_7ZQNX-Q6{uT%uwv_avN^rApPBi92>Qc~
z74B0_vw3={3*3f!#&wh@Kfb-ej)T7A9m{GrrFt;xsWDP90EawcM$oE?GDz>Dljpe`
zJ{3)7qDUsNWLa5$`LHE`Smu%r_?lIj=Dn^OKt1qEEAKuJf_C&86L3EWM0aJNm|3<-
zV}1ufdz4<0^U7Yn`RA!VP+(UA%na6!G4GAA&&jdG78uO%-+K49_lG_|ToK97z*!ul
zy#M3PR0zej2t<aJC%CJSqsX2G0Js_n;zH<#O~Y;nXe*p-s`C~Bjs8TwZWY>rC&+~1
z3Xnp}ve44;`&BLhR66Qw@L#Nz#cbJqjgmXeO?9gyf(CPKEhOrzUhBtUqCW`J?l-{r
zDY6efg#PWu`0PmH1aKL$1Jo+F3<bZ{fv9Pv8h9X6;%VZ&Tca#5Z@)P<(;#gA`!)-`
zqo5=XMecs)3CvB|0r{ys0~oDb0X_b_s4aKUz;p*X(7NeojJX>vU|xg0u^`bP+#}`$
zZ!-N+0fUyU<so-#5JZy)K-BgHwL~xv7`F$3f=ur0>6uajJ+-t_GF=!yKXu-%(Y_sB
z{^|SA49aS~gd<}dcxL4Jo&SBn*Ke=x+(v`hnc~7?!q=RVvv~x#Vw>Opt$vJwv!Tjm
z1PueXb`T3u4RdInuPUGbdwUHCf<qL>fEys5y1lV)4y<IRc`u{;Z3uGc5P^b9{m~q>
zP3)FCbWO+0nu`T&nh#naFu*sQM`uwg-E9}a?xA2boWWN<T9$=~FJ6V7Bed1q5O|?I
zMG>eKI9<%q7qO`6t_$8j&7xw#QxAH{eja}H*=xl?G6Lva?LZAh_upGFe7Ss%8D5h;
zC3iT*yJ!Q&LHCUux~+-%<FWX(hG_onSf5DUP;+#k&b|ggZ^XqTsU+@<!>{Qg4Aaw9
z0^l*Ri*ok`{hg;?c8KLBMJPh6TN3-Oe~_j>UPE83#^2mCAiw#elbv*ZdG(LZ|JL)r
zyH%FCV#t={`%hMJ3tQ5^ud`s#dJtx-I>O7MS>7qam?`%AAPlDWE*#O^^*(89oE{{T
zvAMVZ_viQj{>#MkxPQ5O#_XCIThhR%^&QLq<5-zka=J|QUtL~j`5TGXmzQqc|NXQh
z1H(@fJ);8Krz7VDr1Z<8a?z7RO`B_G=if#Dd(^^AgHjHU*dKyUcgO9V`IQ8m-ejLc
zABsAmvV);v&_W6D7L7=O^b5&5E>IjCSNrd740+xHBrp@xO}_e7cBDw%_y5)xRAo17
zjh6Hutp{(Dh%>34N&Wq52!_n}wh=GKug7A{tK+lH&@stAQTX6S6>VT{5vVACqw7TS
ze0I)%hxzyWGz*`9TvRImxx@t4TNV#7f8vvMQZC*KxCMVwn9a&R(BXSWWcVg#2t1)p
zUqqfZi<Gx~A9p)%^5}f%c#Y}D<|l=pT>UO6od5NI{v_=3$xQ7l*PLpev3*pyO}GUu
zI(D5g|6-|=SAv^D*~8M*INy4{`N#4I@awOe_8(MVFt`u&8I~1DEto%OR5&IQ)-vPq
zP53Oaz#&9-sH?5+nW6*r*QS|o|C}xfTxiEX6#Y94^6P{Q9tMmv=%C-fGu&eOe|Vb-
z{$naa;7GEj0r&4ML-~(3Fh4A@jePri;sC>~2UpI~UkXHDOfU2Kiw>TJ&a)-;LSDW6
zy^<k+|MX9Xsk2Za3uJY?Ny@_jxNXOOF#rr7@e|CvweuSIcdh}$Dey4Z$PNf57CGnt
zUa)eE>B!`Y<<f3FqWk{8=ba9{6DmV#@;R6gF#j)NJf<JURj!N)7F2KVOfqy7vE2Io
zvJG&Dl;OC)=+}ORPLcEP{&zrMF~0flCEj9I58a`S)NjgmuGV$aaCiN}VwFPw;kteE
zAJf4<+LXKXSy+8MKA-U9FjRf|YFhev*0E<B$Cy1I4s#{*d~SQy_LeD=SLE8YfBv~~
z<TfwAJuC>Tvf71{NW5!oig25dM__weXBAg>#y6Fw_I(BxElt-bC2PM%az*&aFSPie
zbq36l1dE3D?}-zC865>=A3#mqMSz)LiAta=X7E0l?Bl;5c;piRw{OAn|FuK7TKXJ`
z`gEfZ=l)ve_}x_HK<^{@b>7?4>a1lSOG^(6M{9rF2E%}k=hac(Mh-uK6;E1|EPbxx
zv7yNW{ubNWPg@&yKFl7O-HIVMub1nFybs)a8wo5S;1RrixYVZ3`kvuDZnFHxwbv>~
zB#PE4eXS+OqI{<WA9mLsi#icC)ozMvrruE4cy%MP6u#QsG&8FFWWG|0`oG$H@1Q2T
zu5Xm0lv@FnTR~~JieRHCN-ru3B29!4dJ&~pA%qr!w<s!2MM0!QMOs2Hp(Y?INDCr_
z5(uCOfj|f?1QJNjmH0f*JoCPD=6%o1Ip56toiD@iN3zS>Yp?ZNzqNL*9Vh^rq0lRk
zU;D@EpowZrEpra)pI>>wn{zT;Y-6c*NBCT9r-=grLMlE7mR&A>i)eM9x+}&YTa3hR
z!cC+4jr*t%y<p+}cY()<zK_OkhvdZ04jgiBf27I0)-rm6z1)|m{6OT6j16a3{^#x6
z|6&8o8nePz;?u85aIM>4pKl@=(oG&idf85bh-4lZ+Sb4UR@PY7h$J{;N~1ovzZB-^
zHR&VznncCbTo7iHr;i;*a~#-sj-Ld1mCS`+rM;ftV31GYCmL*iw|#WDS!!BQJGkDF
zmW8h~8*3Rz{zQC*ZDGvZCv&GYGHca=ci6V*RkJh6g~&oMB3qwMAeZ4&&FJhh#v6t1
zi~gk+r7Ta+Bv=2cac<PD_`IumjUK-N&oyw$8IoUy*+Wvvawu_>M(_F--MnoQGe8+v
z=vIqy^BfQ2%3<frH?bAnX2$fv<1%-g%{^CbiP4NrYx6)P`g?9B_Dl!Yk<*{WL0L;0
z1FR|D6nMlJ7E|o}(Bc-osgnx?t+z(dbA0KoGM)sm+|(xR%tpE1SG#IhP|MQOp`{gb
z&qHD>k6MWZsfwbihZ3QlX)}iDoiq4qWS>&wJ{~t~$yKkJ$`R0xLt1n~@SLo(UegR?
zC&rTYf-IA$ylX1B!ff)=p}SznU=1dpQ1^2)oqw@>G4w4qS`<?QioW$JAp$BLp?hfh
zp?To0djARQogt1>sy{@O$~Md$J2drXSF>TH5v?9@a~@;)soj$Cz-she^xO#8yO5Qq
z(~2b{1~(D>G(FNcQ^#64l*@qX<q2z45K8}itKHd&A*6=xc5Z<EmhBh!IXt4VqRuJU
zB$Bd=XJgC((q)}Hcn+$)O;U9V+33(=iv*oE5EJq7!{=a`2I1R2u9!K8*(LIt{y?EC
zyKv?RpJbB6;8wINlYgQERPGqEy#QW>o6@?nBp0N-2<))A{8B<Kesb@HArY$C<lx!6
zMsxjjS}R7@{bI)O&>wdbm4UDRe@J1Ht#w$kP-d5mabO=!=a6%o`@%@mM7}sRnp!>{
zvY295fH&h&e*_-dik>!OLQ&DUMT9NJm%zfzPX|G!Xb{WXT=)a_MVtE^({0rhjv!Hk
zP<sj}d0A)8g9B+#$R2oL=ce^h1T9KvAT67Gd4SSG9>9kTgeaG@q70GTNU5%5dZA}>
zLIFCo<HqEtS$n2Xi?OK2vZxz0WBhaTr5n-K*rv|jG0r4$Cp-nH?VEMvCA^^M^0wZa
z9$YD7n(QTd9*0v{SjNJp7~E$2&p&`p$23Q|L2g45$xq2I_}8ODXo`3`SPYd?j4PV}
zVH!HkIFH-&@bFUkob-vJvww?XuX0@=?gVf<1Mq79A0Mp#SAgCifLN_3{fh%9RfB}2
zHCiQkx_^C0r`E2u`I6ozy7~AQFR8+u4(T9OlpBTOE^0P5;yH0K0|ZuT6mpZ^)m+jZ
zWNRrG(K8?*D>fCpzD&-+4*^l|Bd%--L~#x~diLS4jipQ2{yob{3I@}>{^5!?q>GUQ
z(V0$;L=0o`{T^O*ZlwG{9uN^%%^ta<KsX3Q%HaAYa4l^vz)@%Z>&#|4>|?Et?`n6?
zb384v^wEis7Nq0kYEjB~>}I)3IIXs+X}c>2M0XBT;z5NKl0PUp)`kBvQB-bB7pYuZ
zJwvFAruUmG7zsz*FZb4pb^LV`bGuRG#|d-Kq|NF}aUe#S4jj}H!nT$G0%ko?YH~OQ
zqp(!9!ur_)htahu%LwU>Mgyje<<1wnQsdsZi%naUps^iS#^2X6Dv#=~HoGpY!gc(B
z;CuYurlmF4{4~w})Ap@7JfIhmS@?PUDSSUlm)fI+=UQy=$YJd%J>V1)KQI)D{RfkJ
z^=NNIkYf%=hE*rWxyO=cWY;60|6_6hMGV@9l(i=|64VB$LwF+6H8*le0_A9-!JXLF
zrznp84i77!tRV$$;Ev8tl$?2J2yKNNi9b9*imi<bhRk28<+eTh@EzX-HOt2UL#TWj
zIx#6fUK$nZ`J2;~bUssy2wI+aus&9Gn|)9X67$>PN(eW3si)K^XTZ{98Urqemt9l`
zV#oh|K%yE2b|%GHcL2Nf)T3I%joEnLm&+gR{xIC#j6nDVIfg7|XKpCjN{{Ie=tsSE
z;0lx81`OPSt4VbZS<F$R2$pGvGt8LT+|TT40YOKlP{g}mD(iY`T*q0Njbo_EH(DFB
z{~CKuC_)bNb0h&-T|lvZQ_{&CA}8YWJQ<jne@)OuyEnXW96we_u?D0E>!BIJklSg8
zn^T?pNgc>FK_oZUxt-d3aCwQ`{*F@8chSD_hXhit*aEp>OD&4UGNvv;eyc7SkO*J@
zo-sO)#t?{i!ha{$3l-0KsU^;P81>v%3CZsQtGL_ODj?-6KutuJ4s2xdCv!t@>t$db
z{k+b`#(%Kok$vgj+;0C3+DuSSILCfVsK$lDW4;2M6?lny0V;s6@53GZ#}2;u2NW9l
z%Bn@AmTlnNowyA>dyY?G0!2NzG^670f42Hhfcd85Nb}z5c=9h_Q;0j{%k6INE~-nZ
zMQCIw;l)vwpbW4a3YUrQE0%4k|IQgZuGbSVzd2uK*mO6sBx)>-NdXMVVaJ|kfNGMR
z+9V?DY|715xtZk!r<?WBp3~iWAEJ7~m|rh5FmI#Uo|5z(a%z7zD1!SAmuPc_bgP-I
z6`-b**U8WE7?h5>aGJrG{I3{r+6lo891zPCfLcH^Q-Lv#joRp8br&*+E$BfmdM#1y
zVeBouoK41FFi=(D;Zaow)WbHUy-|2K^U=v}$1N>?kEmB_whw$mfe}MDWA@@L%QR!1
zX*~*v0qSdgIt5P^v-*qM)xxlBrZJyEB$qR~egxtJkaf1@vh^vwvo)C;5RHCPr5XjH
z^VP0Jb$~Sl0dpVrkUsP%`y+FmT&%{-uxS~(WB>P_!aibSlpSqcfj0;bSg0CPihrmo
zvu7eA(6pAy1LM%E&zIY^p#?jwhNpa!Ey}Sd_rEt2%;bX9TkY1uyU7VCk3-I11)?2k
z*lQBJ6*t6?SfBoD{uO>GFi1iLpi(?;E06w&2(sFl1vG*50yWvL>$ET~(RA?TXtt+&
ziwg$*X-(plC5WDh4jR4BPB!kX0mtGzDVaWqu*Z<nFDl?kt>xEHxrpY-2;a1Yu+bP-
z2pJ$#cKO3LbUOgXgZ*iyiOPWG*fn#oBh!a{mu4*!Q9u?6*U0=5?VDD6$M3*t%$>JU
z>S-;$@K)w)vY6O663l!^xlFr?5F+l;ixXhA{e>^Z!OQfW0%Y7uI&8(t^tCxF^v53$
zgxwa~LQYFKcaJ+)M_Z~eM|Oiclo}5Ku?J1|vDC+ir|8`4uk9fkuof~H3-nlQvn_z4
z)&R1kX8Ewq1jV3UdUZRzR1Y0p{s{vVE*tH73sc+}bqz6$HkiVA(Nr|f4G}#FR7qqj
zXw&Xf?;X8Llh&rtw=1(t&lM5h)GS&)z3+bAq(T{i7`E<F)wX1^nxKVaGORP?=0yl;
zd>_ZVY(5dk7bkmb3>qG-;Q#>rr4XGwHVH=Lpo2g=<{G(>wL(0pfRb^+9tF);f^BJk
z36iWZ;@FZ~JZFdW2PQDUv-JSl$rh#edb-kj)tFuv>|K5oX7zZMb~ZMN`QKA(G`3;8
zLRNdUTtPdj3Z}Y)@_Q$~9_D7)tqK=xTA9U}8&5Pw7ur3&s$y@ybx_ZPqjGht;bye&
z<SOza`I>p#m}|g+jo9e43VI{?4f#FUWFQm@5~Fl~;@-~YCM*KDRueMXa?G-X#XQ}|
zY|q@#5k%gtj)J9S)&(IwsUr|Zn9j32+eLU8gR!Bq#aRN+*~)jG%h=e0ooKu>I0Q#Q
zf^my2fq($jP}{n)T#$1Wpp}60DEdqCbZ8OxVGGH3Ko?dh&C+}*gXoZBt%qUck&y>s
zsXhm6vCTUROR>RGtn(xNzl?lUfUIVT!w$#_eut^vRYueX^Yqe9H^}^z(_Da7=R^Y-
zUIT>iui9?iP*976mov;DLp6N>rM!{@F;B}sk{)0_3NzPtML2~W<%ry>DROYx*4Zh?
zcIO(cHIqcuC5rxffY;E-tmM{+T951nR3U;Lxs&<G_=0@~beNa1=u;K;DGw!RBeB<s
z8>w4wN!|k*ZGhk!#Mrl;Z<;#HQ=RpQ8@)fKxmbGkRphSb>Wx~1!QX-8lA%gJXL6oa
zfy4hd=uglO*z>!(qW(|j`rjzCpnKhW42m{N*2d-JssOhKfcMj=F5iTlUVP|ou7U8N
z?mXcJp19}0^*a-JC`_m%w?-3p7=Xd@tWU2wy?9F8{@LokEaemj@F$0^Uz+CjtGEF;
zT$A7tZVnI!I&yl7=%5!sz&1xw04tgx+YW3{<xg@2;KptySS1Gy4-p~dIAJ0PED{;R
z|4;HG1#I)A?m+Cq5nMFWjOi%wZ&6s^w_vC9B5>Mo#(ekb<?nbU4fqdLeE{nzLUPs^
zz;^sQ^$_<WL=Oi~U^6#_`SHJ-{|Pi#dE+zbFG31H__%7_RN^kc)E$UZFf~fK{in#n
zo*K6MzeobWLR@=m5P*B)vVB@S{{4L*L7Q~di#<r%W|9qh7uhTSKDQ~#HFFfm<o+h7
z3(iF+0(5J#N0<JS-1aYqGA1Cs07iD$c$v`=Iz;SESP{Vy764%$B*ES?8h97Df&nB+
zpt%W|0B&*I`PQ>mmlG(sN+x#{lBy#0Y8ek7Wv;;5)>qU4j?Ba3AK0PZFxizO0R#mm
za6Q1yVNO0R3I|32>7eAwV)IN+Zhpd_JHv3Y##EW?i@~+ZA+|Izjh|XQWHpu}0K=RO
zog^PkRKCp{2qvPU*Z?1&TGj|_jeby#LgWT^*mPJTTB=N1yX$qUquf9BOu<}e$MK2+
zl7Lf7-uJN7%a7h3SL5(z%>{5Q#!o+#^}d_O?Mcs>DZme}5G%)q?<mb2b<+C=RGV9`
zOIO08jVFG7;P7U&|JY;KYF@XNqn>wuZxzpfEGrH+9}?6?Ho_rMkQ<Qo(|tOj7BsGs
zq{APHMx>Ur9BDO>T$SIoM!Wo@{1aogUZCy}zu#r9-BP|H6UUKtwFcvQsHi)T1>Zii
z7Dq4?6&pF*;93%>Mf|Ptd;m@oY=My2hmyUy695URg%(VH!FQlYATKin6Hoq#&;NIG
zY6&XXS@-QYjf;e*1=o>#Gl6G(fLDcrA#MuuF<R_<Q1{avaL?chj7yj*d;wnpY^>ZV
z#DCH(`fh9VM>A%~zYhrQtD%=_hOd}0XV0YcPQ+0b{@n>;V+$|=Un)aA33YZM{(y_j
z{mY_&f!W#v`r%(Hp|~2k`ky27YLrl}GTrci-FpR<gl8P=m^eQW8^ZJ=2bRbB&5mUK
zi{=6}5Vro*Lk@|1gSPakQlL7bRBTh<%+pu@HNlzTZs+n;n;-<*(mBN6l{P~Dgnwf0
zxvU?44FOO;xuQdymB;0)+O#&Iq!Q58`onkTAGsFAe$Xx^IAZb`TjU4)_}^-{07wL$
zeoFQ#9NX}Prj24aU3p4A83{C3hbztfhEQqsM~$7oGk7Vp|5$Ez=sVI3Z^W(HPCp4f
z!bP*Git60A8)Ha{;qO{qE5Yt}`QPosklF+KetbG;17^uI{FMNX9$H!9&Zrqj+ttjj
zc!Z56$Sq^NWaPNJ7nk*4L7@lsCD8x(Zv^lhzetUPGP66l0BGm1wl^Xb;X}=y?%=M~
z?gsD%{9eHhJ#-r|eBfp3GbY{Me3v$WSLxNIcWK3B-(BX%5BV@biD$WdaU^C)d>Knu
z!0A+J*J=lTSwobv!erzUqOLKA&mH>B=v_Vac&QH@c6tYtk+KdHhmPN~P5m`ndDRfF
zh{{mUyx+K}VW+dT50~S7d<%`AIM~q=A>_f0UdQWl<LH6-^eoMA7-W9^`I9xrog~tO
zt!>`irs8sLlZst{5V;x=2e~qrj5eoxPql}GT<xZ{pl^KOWm5l$XJ^mxQn#IN5equc
zivXmu8829?GuG1lNhU!h0H0DUJCso_-0T9))OT><<CzUIg|Nv(iOP2#<T%5k`mX^<
zV6<-;H|dO$02{dMgwqhnpi-Rk9V@?eCY~;;JBtyN72~O|G`68Sa407vO^WE!#I4Lv
z0QF6%Gff<iLTX$TRyP3ckjT67OJ820ec^UFb{sl6kk#{Zr-#Rbmq!rFM5YBn)|NsU
zCP2B}uz5jF*?)Km(_!1e$++Bvg(5U?2H-*)c5T$s`idY*(MHb2%^9_Vo>!00u<0u*
zll0c*nK~2k>#!pIjVpZQefP*dXzV6?@uz9IYZ!2XQ{n!|&iWO847B3}=_8Aq^G(A2
zs^UNO9<t+Fr|K2Hi7%Vp5IR6nP`UVDMt_Of+g#@8wslh|Lc+_E)}~M$!LDsIr_u2!
zfZYG1+X0{(GmI8TF2+v)HDeMg=<6`o&@_d3f6i9aF?PtJ_-NELst)WZVgDy*z={T8
zAS+X`5i7^mb&8B~-r@=T&Z+JsFQQmQQI3%Izx}wjsSfPjEW{`6*>4AmJNuiW{Lekq
z`A>zG{}@L8UpSrmT_@9RWUM@jG@SA)OzjX+1)y&YVncgR4(FOSNUxkwH>J&EI~|L!
zMjhwGWB>uHqL}aZ-0!{A+U>jTO_SkIjU2w;!O!Csky@0C<<zF1;Qf$mhnxgkeYeAC
zA2=0iD1dvffb*uUCu9-)5N|tBN=?Qm2m&EDZj0aoSv&<@5}jmm4v-A9nNNpnfeM!|
zBS=v4J_S@4y{!?ptw%+3YR-&3D&&E3_Q0yP2%A%53yGw8@h8*1%}-C<ZwExcp%G!X
z>!Q9MPE__VjF}aiyqOj!;bxPfLmAAED8(|YS@nFj_tGwMOzHm|836@^|N7XoHlTlZ
zg=Ys4>+S8h7~0yF`LU^T$pur@SWf`MiWm*#&li(I>>;!;F5srWj)P9?HZi<uhWOHg
zK4M{1EX0aN+=JxCB%lsNZI8G`d;dUs(q$)vhKw=iZU*Rp0&cPw3GP{Ry{T8wd3It9
zY+0t9Da-swwp@j9z1;TlGfnv9H<nbM^WYts3Frl3;3i27w$X!@?t`FupU)Z|=CX6m
zqJTtYH{tD$%nfT4O7t74k(`B^EXoDJylR^mEMIE#9;f_iDTOfXD31qcavlI@+8%fk
z*rdO9Hb7ps(Qn3|QKFGDcrnXVrSIjSzQYkc)*So>Ug;^oIg3T6k88tIR$p<Ti(YBx
zn`Rv(!n^V)^&vi=W8B(EK>P)cadX<g0orerRI;(aftUE3v;E713hr~&4o+X0-+x20
z_q}Q@PRpr%_0Na5oizt0uw9`WAj@J_Od~sqyv0BCyZ9o&IS1<p(f~irpdi|3vh%<W
z$(DV>RgKfx?S`EuT<*2cWJoe;sZ7=p7Tm~geq=Am1w_rgLcmGLjv9qoHoYx_|AeyK
zYt6mNGPs@-vl2WBsrDqvVH+`|K6Gw|GaOGsB3Fk_cCfx0%-X*8hWCxGG_?e${hSYj
z?Ks`A<W#{U3#R6QXs*`(Ni{0}%dG2vzccv%=WxyOD%C%r#n@8!iG2~R>mf`|bO(ay
zE%D{5BPu1>(5Z7&ElxTE#KADmnZz2Z&&E+ua={9}g9_y)D_rBsz;AvFlWH>s&I5<V
zE^xm$a#l&hp6iMKjhgHKk2lMA?ERj%N_Z=LKYqy95)uG`)dt=FjWk)=0E7h;%i8Ic
zMcsxV9<1*K(^`N6DYbk9hxuK>y|AlUY9R}i0fyS$Wk*}qv2VfNF^b8_nWJ2{zauh{
zT$LXMp^=DT_0b?m|N6?MKu63wMp_IvLyOz>PzrcD&DwKAr36>91d<v1wGbQwSzTXw
zJikUS$?d<hu_S`6W+XR&x!;@ej{?rLn_#r@%pKCj%r8tfkQ5GwO`nk1Fh{VxX;}j-
z1B1}*OneT>TA5=rs)vB~%paK>RNEFOiv6@?G)lroB{Oo#SgexU!0i_YPBt?)%4L7r
zsnkCS;aFeXi5kEz&)$#jtx?haT&awG5<;SM;zN(jirja!lxy*gt5pBoZNS=M{Th%^
zYD{Vv!vxLTIEtcA)$N!%3Y6TfZj9(CgXGW~Lsb@4RO;_c`Klu@3BgP7%>}sM!U3nN
z86|5+qNcr6mh>c?&jnx18c4w`G`)~z8^Vbj0SWADVe<!dh9MJ<ld#KlW`TiR{hQwT
z7v0d3g=T65p-G4Q^%H#Q(+s$j3YqIl%^eWTWo6$-jb@j%%>67MpXbrv_&!N_oJI8K
zOsqHTTvxVM#u|(?4Hco(d&63EVpi!c#Gx#9XDi-cKN?y>g)kcXT<dj*zkP9a7>*=i
zHd2|3QY`xKkISf}cR3l(*bBqoaHh)6VZ#2ZK#o8uNy$Xlg?k_Vx)>xgEZ3&#M}y$?
z1Z39;_dBu@s{IapEzx*+xVU<FguaAm_JtYDrH*L%%|l0VL}zp;UAlWTY$!@ZZ*v@#
zv2?_NLYniyW6wY-qxWXY@)^=OW51Xr-)v{%{P<e=8xO6l@4n^lQo+&Xjh@5%<#d9I
zu^G;G&e$%j7nsiK*$wWi%r^I_9sZ_>B1V@@R#F=G=o|D!sb`&GtV+qq^^D>_g~!Y<
z!_}Y<@h*lWkj};u0aAUU=}{R<znU}1Wc}LrZe;f?xPP{q;5QeF$1}sJ`r(~r@0{_4
zwxjgLH@jXtqX|Lq1kM1iNNi0Ib;40;^kPjR<1=ua>LJatc0NQk$BP$Gm>_nPkO#4v
z@wH|r1Fs?5X6F}jm4-LxBOhJ#qw$WuCl>GU?o@5wNt08soh~B3)EcTf>}>B`@rVU2
zO3AWT%EC9`eG5IM?Q^s{fYL7twKn{XjmAF-1<JP!GZg%Iup{kaXvtl*Ml?P_0Hg@6
zd(G*zWzH%uZ68t?{&s%HsX4FHkLF86?%$!|FDZMk>cKBQV%bOT4HU|?Wh%PWd9OOu
zm?`_yd?@Lh4(6?mM<X047sGC+A)cgnUc>uNY7uS`Ydiafx^D-i`FYo-&87IQHjSQd
z_|OU2wRbAvP0RoRykoim|44M%neMSOP`?i0xE#;;hrBo2kvNf$i-M?uVa;|QJkzUv
z#9l_vjr*0kRw1PU#CxUhc}Qqk#8NXEZo?jAL4Jl`+^WtNM~&Hd*;x9nlC-O39Wk)j
z8E(Zxbzud+w9(h*+=nh?Y$Pj7bEb*YE@qUQ2l`j0yFtBZe=BIzbKd1CI@@1yaxAL^
z#jGIbnlJqY?@(BvxlH~l!yt-q#S?0<@rGwNxIBv6{C}H&>aUa%m3c(1JHXK5CFdL~
zJ!B)ZXT=)1$5w0T0g_%;o#KjgsmFzq0>1Y3i=-6ETEQG?-^ew-(X<Bg13UuEZff-1
zxf}F4GA0&@woNU`wShT9hRJUfhDTg&;1`IKJ!l(6u<O{b(6u<S>;MT3LX@!@qC99R
zWX8o5xJ_DLpExqXoZg3IRYidytamK_S^r!FBGNfSDqya!zq!2g+Ut%MpXjvV88u{r
zSqIiHZGpV1!0uxqI~UfC1(_K=9Y*lpAln=;(Ra2%2kff(IfUdRi^!8Ja;bcDWWrG|
zN@PdlyOEQj<C|?);1HNyj4dF5V9ilb+7OwFVvkK=jJt2)1!dX57wR$1%HUnRE4=#0
z-b?N?yBf1E#>i@y@g<w!1CVbAAEcB&u{tLpf7&B>@M4v;&DFp6YQK2i|Muwp=Wk7q
z|9yly_ZYYu|H)rMSA-&d^vE?uM?nWtiJ)jG1PnLuqcuV-f%_pAh9SsUOkbHZ)OIrY
z{k@K&04>P8N0CS*q*Jo?XyK#P;n{0_sCQ;bgcsJPw@@;|CFT)&-cK2^I`6Pn<&)(Y
zjk~{6_P1i=ce&rfK=~EVPr|28@0Szm{8}qcCjKD}D&P7dW6q$qQd&(5i<tYSQiLJc
zj4l1x8(#_sLq_Ar&z+7mQ_ugb4}(3`Zn?3^r(f>5lL-&Lj)@*DsjfM2E^6yfNEvU2
z*I3r}4LL*R0qt@HJj?_`Jb4<LL`b*J(0xRB0nT`8<#^BcWOP8Fp^M0t$6!IW!wZLi
zT<r)bk}F{UCt=~)3zb`Wdzn@@o+PrS#mPyo@S9M@Ki(+VQ?V0oZc?iYim1}F8i$n*
zBGgahHF(&Zo;5#RX*m#c*?~V$AiT5QQmc1W4eoE#;oN^OOFP2aqozcrc|g`sCG$NF
z9kyKXnWMU5k0SF($P>xhQ-zQ24bP%~;hz~81#}gkD8`ElD)UcVt3P-*$W3Qz?4^Ob
z+@Ar{)eq6n4VNUpNDy^|^3H}I2cAUW^FKCz;LqU}fkg*6_~};}1m(WtdkCCQT43?|
z<38U)to3|q-vkYs|M+;Er8ss@?)s**#&>43hWLTPh51PYtYff2d`Cuca%m9r&YCJa
z9=(hBJQ8{)>%hu=&%S_$nG~zy*BZru#vcXeMk-V&{@9!!suTIKv63c8&KmX`Ezw^S
zSvPuu5v|uo`c3FWn0`LFG^O{}=9AZl!E<3>FKtQPpVpy47bavQ<b(NwjoM*drJbP*
z$9@gw{~Rc2*5>YuVWwYb)~fGUxjglm!51|z%ieDbGn>7o1SJSYCZO9jnXJV5SdXqi
zp4dNM=@r~F&9b6NK5f~@-ZkQGHoB?O<yth<(@^<@HAce8T5o(P8ixvX5>$f{yLOVE
zjVmF2eyZWl;sVS&59ZyX^*%Vjyr4<;8l+AiE0RJiNwh1)r#!euo-)5^p7e8Jw0;4W
zWhRbDj(_e!tOD=T&Lxz6j`Z#iC68QKu?GZBKazL1x7fYWZ|(dn{-y!kC)7g8r1Tae
z9)>7lN!j=8x${bra<DY*ya^kXw;ELTtz7}6_XsOl3f+7;X1^{PU)VpEk!AeS-jcoT
zHf@A1IWE6WtP;HI=c9J(r<%!FTEFzU)Ap0PCo3&O6!HA$@uM%1E2BCN<vI*hvP|<c
z*}S`pQxDfSvn5|OJ$NRioS02|r~Yg3!L8|Pvq;+8my$}M79u{wvv+Z*cP^~&8`%yI
zYk%B6aVo;9W;<{yx8TTmkGiYfr<l!$l-OrO9cMw=XPuwlWWkNPThbbos>AQr==!pn
zjrZlw?OFC{yWU{6#A}hrVvm!}v-X@?u@7(X7;Jx?F;ZCCzZ#H9_P_CJv*bW-yU223
zt5_A<n^m(yKUVm1vxJBGn8glfgnmGGNA9gXS7?#kcb<elb<SZn`^fjQ-tKI$VbiLF
zlB7;Vez>F=xz7iARAlqSaxZQ*w>7W*rL$PGK7;)w|Hwrz+rqPQitDHH#Aio=yEfT}
zt!7R7R|^l2w->y(9$MFVV?TWM8U^fB$|E-#A<DBfY|o0G8rlm{FTN4OI$k06qkE-z
z)bRqGuo?Z_`bLcG6)Ig|N<9CFTH!qz!+_pm>*?yANXU((bge=QjJisw3lY72ZBM(X
zOR<b7kL-v&%W;Y%g3cFKIi^dIXnSxpMPSL4>Qget*K+N359@gj0`p|%$pEN-l_flb
zkW-R-4QO$r#(Qgf|6N%bCAi)@oSayRPM_sYj{FJzZe_sWCD){xH8<*Ev|UqvIf$Jj
znrNe@*)KIKqv8>+URy#}qzPqR=hl7OPLibVj|t~}#_{DEN7$KXefX@1#j^KpUTc``
z$#)_Rp=SpNK6}}(k%3Kjv~ZpwH2X(FveqO_z6+fo4Qgp1ne&+ox%t}X2#LW~&RNTi
zyCW_aY~UR5o6YAOsB-gi?^Ne9*E{?cURSLJI!*~hF)P;|-$QsbHniBzrS@;sIueow
zH_g7!ZnfR}Qe*>LdrQ{Gyj+f_Y@QlhS-3|C(KVMsK;p+@hlMO9<p$feA_|{a=?YTo
zhbgTgXI+dxsur(oc|<YcQ6w)Zp%y>aW8<e|j=R5{$(n=QMqkE-`Z?Ys+r8R6Yv>|l
znrt-|N|pvtkc2<6mZ44>d@*=B-(qBCATUUAT)DQ0-0rP2Ww^Ixq>Oj+M9-euB4oRl
zMBDYGrA9D+!gr}3HGGQ#%@1Apj&uYV?iBQm|KUDSy`(R#QLuQ>s=+wrltj}h2d`mr
zuYb>lmCO&No!&UfS4BaxgQJDhhhb$b)iw5Rm20myo2#rh1Rg=9Yf2wL36lBY%i*qa
zr@xa&GZpl`jAmRc>eZdQH#f6!w@Jy*fD1GWvKvtrF@#(&)Lc9d4Jf^=H=qw?I;#R0
z)`?=sjhqU$p$)b3@It_q97)V$mLfVO8YVrWV43EHw1`PLuB1*>d9=coIA=@EA7)ve
zkNtBPnpY)eT4E6UlX@(?3P2(g!keVoB&#Qk*~>YwBlO)q$*SjPXSAfo;(Vs7bucLp
z3X@I_phYKqJi;z4D^IP&r=-(zAVd6g#iWwPT$acDmZ6`+-hs~~YpYRlVX@{L4YTmr
zE0{H9QbVn|76gpv=%08oAc>G|O{!O~(<@ibY^k|enEqktR7ji4JNDo8UIkHEw=No$
zCl3LT^OkB<kB96Y;nm!=8E&)m$DyD*MnsRfYppp+mN!z4>q`H{8h!s|UT>Wc%bO<m
zIOML4KIFs4<bLfn{qJtyY5?UYcX}^L&Xfho{u(bl*yfGL2$G$TC;jbkb)emAcl}Ej
z!A~ax$WuzR=*s=|Cy~skLu(Dk2ii#`MKScDAKk*C`GJO-?dk_+>ywPnl<{`_3Syc4
z(ih`IQSyp?dh-!vhxg%oWF&xrU8qo!N<a^=6|Zh&SBSkesB{Pe;)!t$&bjqL$4lqk
z%1^pl8i9cFd|Hxl^}42krAlUF%Cnb?_*2#Jnw&A;8t9O19DTr#>2=+7P$g+7GUjLa
z&s~8Dr;`IN;Q`kuxN`xTbmL32N%ctK&Romx@aMCClpaBNXwL+l$SySYF%+bpO?gL|
zr^c92?z|QRO|Jz499}{d>%ru=8uha)v1&e%@(zf4ke}6OBOxgsMZH=y)nY*OPE<m1
zR!hw(U>|JHgtX}^B14}CU0y^U$lG)m3^G5-{#LY2J4hJ$VDG$c`4}DQ^O5qaCWX~+
zN=nney|C_$Iewrk$QXXCQONb_!e_4+Xn77#IX`QjIisH=9Y7KR$b=()bMb1q+Nzd#
zmvR&!Y3jQO3&OQXA)B1d&jWitNXtDKuF5%GQzx9C@(%rL5Hel8H<EU?&oJ?|b!ytZ
z0GCJ2QQ6vCrU08V@x_cQF3RLF(C68q+WAEX^7g!kh+3R%@wW6$?j^s6+t=jO9UQk%
zUYIu!)$a^@61APbIT*j1n$!h{Bh%IM0%H_>49~yOG0OLth_|N>eC$W#&eZ2Pkw23T
z_eVL->*Yj`_yt@Y1p_t97oM=am{WwIGk*jsW;Cv7U2ve6eTMv8qvsWl*jnEJP`$G_
z^m8F4l2!u9nr?0R;$A>tw2Pie&UU_tR;|3!LqJyWRT{>?5Wut>N!UM2*W%+>A3T|x
zozEJ5ZSS-$X9kav1$pZ<_#3h*_r1>VxU%TULoEvLw&jdwCNIvQJ(Y}O6ztbIyYIPw
z&ED@eB3C+qI`FU#1SW2NmT3mLD&84Meep)~k^X@IYEj!5@{Dmz_|qXv%2YC`E1NDl
z@uK6V)IGA(ichGE-oo0q_cMd1ZUNwdLs<`Yx*pO4wmtv(T0Dl&NeW*F?PbhfdnE}|
zbx^!}o{5>WL?808A)Zxckc`Lb-)t?tCdh6IU^ZeO`%;LP*iOmJq*F~PtVxWb?Z`yQ
zucv+TiP=fBDg7n4^-aww1I+gUtd+fJFeqiS2J@iqiHEmi+oyMj-mRVYiowd^tC{gt
zW8dL>d)NLHIg!fY7FyE-L(Pp(*1jE^87$@q*^9Eq143$XgnY3UFJn0}`N+|}5&3y;
zcfU6Dd@Qa3vYu*I|AE8QR^PW=x&CWfe&<=w*jFF59oIXSc`iR=ZrBXJivJb%TElpT
z^>AzFSelOh^jTky0aPb#m0YN`T%jcUwN86h^qzk6xG&YNWU@}-_JxQ&8|FRKPa>fm
zq{l^NmX<{eHARc~i)ed?c@GXp8(;D9_@_FH3mVkxl*%nY8gTnTfa0fH;KVmZt(;X#
z?T2-X59EEc(yrs{;HT$jGzaXF-W8L>N?fuIy%=LemNx9;u{aj<eDo^ZU-W~)WmkUv
zSMM<Si&xmLOv}!jBwTzXy%7@2AF&r>ao>5KeZE;hI?KK3#LLHhnu)Kun)cA&(?Fm1
zZhK&yyK7Ov{{vLk;i&G#XgDJX<$7GVH&#}sD~r)1F@Myr!6R(fkNNe414e~`hSU)|
zW6e}K;qBu)9p4iD0_$EL==c`ZrqoZ=RuPCzb0Kw|UY3fFJUT7eyI}amb0r%6RSWWD
zvqq_0c|V6c=L4J5h4RX5IeVMKO3`g$Vn*}W+-y5`!TrYYuOl1woice|A|+X?Z%B7g
zpU;KK&sT1_4)g+Ntbc+{u3ok|_QUjN^Hby9Nl(8N4X1dJla2MwqhRS<i(!A?TR8;_
z%*qFHu!Cy~GZTg4lB}jM`eQ^nuf{&CJT9+5e+^*Ky)t>znJh_0#B;swyuowp!Hl5P
z+;wdYYT#WEgYFOP(XAC9YZvEZoJ7aeC2I`G#~xc{-Sh2zeoc-~r57b)=u(M4N-cC5
zOi4*M;2n1<d?(U%IIl%PK2Jk2kl82X`X|Z0)5H5^beslX-%<I4iMQ>}8e!VEq?gU6
zhQ+&JkC&tCZ84o{ug>VpmstO-&wiMF?z9y^sB10r?)8TX$$&IKKK}fK%}kPdx5r%g
z6kSNH&*9I8pKHh4P7?jZ(OcoO269hl^nqN_8angTQfiG{W}kzSxLCN<6%r8W=RyQ&
z7y<De|2C54_u@meBQHyy!4`bu`&GK}b#V9Wz<s!JJ;Xn#?F&GP>*DqZceW>s)K;2E
z@Coia(Cf87@C3nZbI)3S{8%STFp)h|P}Xu(*Lzm8O$n8-FR)>ZFNSyXq>tsU^g(J~
zD_fz*5-L<7_hZjDm{8uWG65Fv=9#vwZBla0t+hp`DZlvrW|r@udjk~4Z((<DDlBKT
z-i@~^=_YGWxyL(prV8YmORnsgwv~QI9CupFI44IwUntwx996@ymh#?!uc%&Ed6O6a
z=kI@-299{{-aH>Hv5fP~y47RRniCHjZ~1|~&e_QeP}}>8Ja9gzz2m#ad7b!UWFz>O
z=L(J}njBeBbxZ!X)lmEc{c_!+EjCunZrI<NyYx3=V|?X;fk$I}a@Prb(j(VRPndiv
z;Tsmm^%q_kPyZfX0M(0f`4sS+)7nQl`-(%y($vC;!jUs3jTsW(bu=b{>3iB5;$av8
z<CPm6Io8=a5kb3LL>B+>|Eq^o|J{B<CgOCk)=o}ywE8y}lUse-Q(p0*s}Du$?%K*4
zQnl9?AB`R3*y62em)+79^<SVbAn~H{OA-svgZ>%vK2?R^bQBHV0n>aJ6Jl;B7f5ki
ze}5k-jlsotALuIQY1tjav#B1e<6g6Tt@TN(viQ*C^$728&aJzj1OPurk2@(9*TGlL
zi#x7cK}xq^V)w-C(v07(V=wVa4-~VJ-dT=usk|-Szi=DU0j~KHdB}3QF-?S-Z5wB(
zLuo({U{OM1t78Fe`l3UTI3P~)1M#aR=cX5(_B9^u&$lFP7nJ%YAU42e<5nBVp|)&r
z#}f2&Z4nu5Avud}JrifiKfGTb1wWddXTd9LNu{5rSF&g3NIHsW`sIFYMCLtLK?r*;
zT%scO%Ba08`vf^P=Q`D)2Hd93-K1L`vFlhHc;J;$Ca>$=)fjBKVi;p@^|{j-QOp%k
zzjof|<Ig)VSbp8VLYmSRv+8>hs@PA*jK{#@3zBq(o6Y1DsfKs+XFM%ct~&JrBv<3z
zB2$1o@q)8}AHopBIbCU|AR9sOjV#y0ubTKq3XGheVc9?;o%@WGz0c8d&doy0WpdD7
z5fFQEjs$=9%`*;qbwN729;d2vm6n}zGd8^g{)FKnme_?o>Mq5_mEvi$C|9Jbe!+NP
z{Qif<G74TPMTPUC6ScV5amA3a=?~${W&4eO1%fLmCv+lI-0yk0(P>PNpRWiX8-|}n
z70yp#vQ+uPUmm<t$gGiZ$|J-qUeYlRX!^`5JiQV*tF8Dsz-<2P67~jUxlA$Xip%ky
zhdRX`Q3vZwtyxB7;)!7I!Gb*TuD;bx6)U*EjQa=bksrzeT+F-B_Q#Kn(H-F&Gos4m
z@P2Ghs)OQE#ONQ{m+E1W55FC)5~D8_NpDnS-;!yT<CzeWzEqECV!AazS}j`LTT|ah
z;jWKwXr>+;_l0ZzI7A6}AF%XC^W$%oI>ny~!p7>J4C$Q-$#Iv_f%2&EszV8Nl>@Wo
zA}_~)nm~w5w(HW%hRom+AjfpM^4ix;Bx3Y61D-VzvR&-Gb6Tc3!I<i5zDYci53I9m
zCvsL-F)ZiY%?+nE8G*5WCTwKfXWCIXuRyW*-XedtbSZsA_^w!T7dG~3z}~f`qOt_V
zmx!4a*Y~W;D{`{o*H5Z&7X1Cz<{ucXeN@lQx!Ur5+J}rIZ`*{QS$@2K#x`ysuWC4y
z+V7talq>z^d-fAb{l-t$IK`?FCUkrUtqUn3JqEV!Ie}hN{Ki1$gx&XQ=lYeLJZ(*c
z>?^ImC%%4tDLS!do_HiyB+u9-7HvHn))rF+(utTxyLA7u`f*~z0JPMnM$+PSqu$?;
z(f3I>0Mgnxy8Th1)?@R1k^if$M;<E;fn)Kj)w(RxL4%XI<lDD88o6d~I=!%$Itb*5
z%6dtib$`Ki9Y|t|FP$wTByZJiWBI8XqaXJye<&(5JU^(>so%emQfd#zqe*j9urKke
zI>vYF&Ts#?nWn9&u}_<4SZHmeOcf?bP3dPRK=ys1Y>ObF%k47R!)Zg6;M;6#;L6p|
zTyY+jZWJ3PPR=sIi@L;h=Ru5<6^JKJuWdaISaf(oZqy6O;rgdsSeOm#i}1_|6NiWf
z1do!*i}XIvw(A&n+uWA>J9grRqT*n~!OiM9wq@y1&26llQlYL07TMdX7H6u%X75gu
zyRFe#LeTHo5}#-hu76wId_(fNR;l=XCNw=Y&mn<T9@jE=mR)$1%61`5Dz%E8859ft
zYZ;m|lO-(U+)`u*KHI@6L^301^%Xx4C^bW`z^d=vtBLvi_`J%K^hxW`=n%zK15ioc
z`ig5K3!aiLcgr1S^5Rg6O!Eu*Q(rE}KX)f;oz>Vkn*dW^rste5KM`|OP8~kCu^xDk
zbt>4eO<g51ot}m5d{w${_E7AZ;B)RSKXm5JtwJQ+<=w$u(iz1rBgHK`USy>l^>MjP
z)3z84w8v*maZA`;eqLVUT6eU0L$Y%md)%INawlhWKpV40O%x85gqHFtLekkaw~46=
z+Y_G~Hp@>B9qevkrw#7th9bn#$G0!<YBTH#yj~P^NST*aTOITL867Ot0${v+kBO7<
z_(x{naZ__!z^k3vO8xh`9=ig|%H=G}$ALIj8ng?$OZUENl*H7#R=89ZE~Wn-Ijt8i
zt7H&i*6?Yb+A2-Ek(s!1KVHkXWq0-sNj>IYZA$G@?}vSBEO1&8O*teKzX5ws+uY}n
z99#1`*o#42yPR?NKsYYu^}bK8;<B3HjyfTk)O|*6;WAg|o;6Bsx*jCMjxC!r3=)`p
zUbaPkH*q_N4@;y>W_E>^1IzX{th(Z$W@&Y^7(Lf(^HS9DGRxgd#SNH<BS~<Sm1XfX
z{17cDIlY4jI%aaqZ{*_{lNV$M{t2_7T|W~Kv)>jCiY9Fit(vSc1FuJzR~_CIY~$~p
z?G1?^qfd4%+x3KwHQk6=s^pLJ(C#ij8gO;)LwK0+K9(@1c`GLeZeUg`TB9d?91IuH
z71*TaAX;{95>JazzGB#EzqWNv<)qA+-Zk6E`*arxB}9(9V+hH!i+{-I6lA;aJ*z$~
zdR#{Ag?#NJuGu7%#-HMC6bRZ$4VsA!yPeZ?t$P^cGx(DASoOt$DTk?(SG>j*+Pu3V
z>jlL{%$H0neenQ~gY|Om@`3apc7@-w5a-p!0uXl)pYKH*br;vYF6Y<B+p`qgJ~iE&
z!<~yZm~v}7IluH^p5>PuMLn7nGkHZa6BbG$A?|L=85^CdWl#UMlAod!dyDxOKMU6j
zGBls7B4yjCq?Mc*mFHd#Pc}dL(&g+=n-@>Fgzc<QztJv|pUeBWbM<=fiLrTrbObfL
z?Sk;W0+EsDow?FVa4)k4m2V5p()1%>!FAbh>p}6)Um;F}9V1%IJxeqeo5)yQI+{e-
zacm11C*mp%<Zgve0FIlx-Y2HrRShKY30E<%T@t2Eh3lZC;4{H4UR#t_lukFhZVgG^
zH`Rq(rL4<hYx#o%A2M!G*qRW7zHw5#&KzWQ$tV>5RdVJfu0={1Uc;+-K8j7uM6Z?i
zuNwLdfyjV`!^bOO=E+f9G;}yEB`l-vmov=&=%toU6#JFoL~7{)*`I?-2AZ_i_BqTR
z@v#U{4X%O$nQV&q%6wq)v<t2p!i2!i5<FuTXe9*Mj%|;FL-u(Z4k0g>#<To#;0flX
z`-dZC-=$SXFT!H4V(K6hljnc#gmer{zo$0_=!C!RIc1gUz9!H?gL__;!aeSiR(s#$
z=G^cvRBw|rXrv;v-(h`hv^E4w3+Y-h`D@j3-=bgtoN69}d?q!%^f}@gxt&o2zZsLF
z^Vhp(?qW*APVdy&rdFr0aK(soF|j>`SMM(Ul|+!5akd(js;4^}H|Ruwg$B&RbR64z
zN24#<^p$8wXz*(EN4Gjlr`p%*84FSaT9=M@mGLV-?#g|2lN8xHZ??2uJn*sUie|yI
zMbSq=4fBDIkcnq>Ui1@ms6>U|6~|Bt9665g!iDm+PViHrhn}4W{hFJ4$V%ye%PF<w
z2l5LxD<YZh!ZTi6iN9U5+A`;WJP<>D^OfRNIwW{o_<<i-{&VkwaNT7&lX{T$lFeb-
z+oFS03swy}LSpIUi8q*(Z-+xzmtcKTx4=t46zRK0g=ea!dev2j9gI-@!F$P%zr0bV
z*^5_2zQ>@!e0>enc6}~yj>@A2ulV~gXJtWk*2}xs1F5bjdOiY|Y1|VtD_VQxz4hT7
zrD)*eo*y6Wi1a?m)z}nZ@D8IHWsgm{8#fmJv9c?}#sXcrCa<yYbpm?+sDKqFmkYY6
z&%_STPZ1wPcLXK(=llZcDIu9f{|LEqjz_oe-$_=z;=rM8AM){(shka3qx-9C8-MjQ
zy>^(?GF$r9h5y(z`6ngHvBs(H0iAFP9j*9Dr^~Z{16W7~Uxqw-<>C`axT{A0q?UeB
zpdeMgK|A7T&liG{jz8h=155<+GbwW+dtcp(l=UFJ;1s>dLQo~X{>vCU>kUn$`V^8~
z@=s}^uiI?&9z>ro`F>^fs2_mpuRq0Enpv^3;v4=nP<=N}Yds!!<^VZn4`%GO*AJc6
zGY7i#5W1Gn5JRc=ckUxZBZDT!M3>J@jkZpjpQN8I2%7E|%9#uZKCt`=w`we@_d;vv
zGmFIF1e+zkT%qjro37#(hd1H4hQFHv`B}*7?E|Ygst#2&G2OTq3IuizeHy*5nmXgt
zIuoCu6>vf~bNfo$*X9Ip5p=hv(5C7##v-Tgfb4+{0i!+x0_gUxpkaRDHCU{M@34e$
zUFc-F^{l>?GsJi~@L1SO3?jIRp%fo^GDu!GX`a~n@xzWg_RiQs$`mEmVj+&S&*+fL
zqz~!P731NGgtcT;X!5@5kmK6!l}5`~*iKd8@9fcx5w^_<{l2nBQoMV(;y7q|_mpQF
z6>lCNI_lG!cG$oR0><rcmU`b92%Huz9PJMmeRC6SemtUO_!JcMkiyLs<$W#@Q)GH2
z4Eh*9aZI2@i_^Z6z&zrfvUGR(WK<<A@E;kUiSKTmU1MMRs<CQwUsUfhlC@KwqF*sD
z2d>Tew_#lptoL(MKKZ-u32sfBkwa^4jKZOl0k0-bPNaENU=%1<RnUDw^-3Jmk~b;+
z-O9H5%G@~Sh0C^RPCptkHag)PuZ15Y%L9q2oH6wu1A1@=v>-*U8|*7*GW65rk}|sg
zSOyXFo<bGd_}7Qx_@x39<xP_9Cd2qSqx+bQn+MrY&X(|6X7{7tteUok{rN&(Nh!#c
zle>PXisg;@b7aq^)jwDETcrQ<|NjFG%+T08_gJ}3u7;=BoG%`kT(h`ZcE#=Q{|h&K
Bf<OQO

literal 38220
zcmeFZcT`i`8#agvdetiyKr9rccQhzSw^0H}?=1=hM4I#(K)s595D3jkl`1vTB{Vx#
zkkAQDN@9QzY61kvx8wc&W@fFKwdR|DX3d)QowXp8le71J%kw_(v(HJip}y9MV;7FG
zu&|tfYTq?xVPOkmVL9aR*J1D%eCpd3@N(EeSL-f#1;_TC#t86o^s%;;FAEEA6!Yr<
za()%g!g7fPdiR!TP{z_kMAIwye%mT7Ls6Y4U)x6~`Pk`Hp?RW6DXg*B!>D9}GbN^c
zq9s~-%)0XVJ*e?z8wneM+GCO_+Qx}fmy1tTg=g^)x@pM8mcZ{HD52pK#BRl4Reoe}
zx1uj>7-2W8I@~?Jj$Uk$Ir?W#|LfcTvH-BaCI5&d(>b4Y$QR*WWnuIFHM8uz6K(t~
zEXl5;=nAHZ3~xV0`53pSkx{ZKi0!v!gT#klR*$f-z^%;-CI4$f?Gp#=|MRn0(O)YE
z|NZ%<qDCb5fBxJle%9&`_?bP>``@<-#jwb-u!zMzMOo`$wT&gAn?hWcNJ?sr8O{P_
zuDfH5(^+IpKvR87^1I5btaVC+#qX0D9MD+dW;j_rLo?KYO{g}>FE&3OB>~;JjnhSm
z=!`9*ikkE7QQ_jnCHej+f_8{L4tH(Aw<^C&DAQ%)Q5Vl5MHnGQIt2C7-nkkF**%jm
zV2!(ul1U_Srwji`y=ITQy-l|jF0I*-(SyAc@qKksTM3WF2p1RT&kFIPNcFJJCe6u|
znwz-&zX$5CrOdg#QDgtJLKXj{qe}mneDK$P|0)$VBvd(74*B%;Zg-05+~d%;G5Zdk
zS#$HZ`E^(6Dz|W`8~zyr;<BHV#xCgYNcDv0d0}*v<U1g{rY0iy=git@T*b47NI!e$
zcDkaUi7_IuP&bPaG}n=~{p52ouLg=Qra#q`Gbnjj;uB&cu%p#ZB=TH&k+Jg712mN=
zYFXrjjQCh^LIZWUO?;6nEo_~m%njOFs5`rN{?A;K9S^01d=yD!xm}k}>>pt$$MAFR
z{1m1{2$?0EFHYCCB3jdxZ{d1a*PAe3hb-Gs8$mH`_p`hI8pD}SNhl{Od7_S57hIUW
zC!AxALMV*x%ylWZ2WD$ok={^@313;)4m%xe(BGy6YG><5DoBxR(8Crg#jHUSov*kp
zBYp@^wRx|le0Rg<Ph}rqPUxoM@J$li$r-j&RZg1Dg*M;MKpXhxKd=R<qtMHj`+VxU
zY{OgBI(Gb5-=#Y}HNb2==IMzwiO(+49!qiBOYPJfovxeEtvb+*T5jwZ5QR<VHG9$A
zgLh>7#TA6s4@ISk$OM0Zn6Q7<QTTW<wMJ((f>V6)z$7l{UYZ|22xV7or+>i9P1oPV
zwXGY_q7GKGYA4NKe6q#GdhZviS!of~-5JTGM}-42Ug|KBt(14Oa6-9?bcYWgvU*Pm
zYG+s1ELxnH&x7vz)ti7W?eAzrNr+h0o1REJx+aoWnXkSD<I)nI2;?xkMc95ssM<RW
z%|pn@4Y{Mm*&N_d>=pgVi*|erOI#q|c3syi84vN|7Xod{V*OrY9jZ62Va{qq+!=`{
zh*V&-vJLM)PBeUhC>7KSL&(Z0NoO5|(%M;#GEGyCmVJnm3cZ6PK@KEHq5GcBs^Fr8
z2mQsnJXkRZ`cDZ-UFV+haBo}`{A|pELqRX<XjV|%L)E?lPqQ+F;(V}fkNUn#7vk=3
z?KGcVzbf5PD)~D4+uBm3y(;>WW0T{8@aXAu;n6^jasxK>^8*uO^mNvRnY1?Bh3V^2
z-gWthWVU4jJA51RVdAT<Q0IoF2#<`W@c3!OC4H-o_-X0#VLvGCKMUw-V7qI+UBgh5
zp`X+ZF<QPA^MG%g&$nZiYuZjy4ka_>gH(9{CG)QNt!q#96nHkPt_A(j2&vG`x+~LY
zFl;9SkAlnS28JwGajLg33Zo<Kp|pv+3rV7sY0sv_>Tu;Rc`}~ILu&n@Fd>S#5vuQJ
zp1r4fjQ0NFpd;Ul9jpG008M5DfJ6O|XC7@i*;MfdB7$5+dEc#4?<vvF`Z{BcH(~wv
z4GarKSY|#*`f%M>VS{@}mEp!YD<UeqP&dTp%5(W`c#77j{jCN$)wS*O(<wT2l<%bm
zS$ZqI(v}u)e1)}aNXA8rwz$?gRQLy^f2Xgwpj2_3mYVvZrq#0_bmc$VSYt@2<ynBo
zC%Qi!XJP4#*_J^fQ8ij330I-ccZnD$nF)hATM+|e-ZT$>=uV#?#Q;_K!M!U5?FKnd
zX;f+XB-m>rgQTpq`(}J`4ED)3cfhu_2yuw*euvvE-U#kbl$O&fNrI#5LgwrwDUNeR
zsD;K=PVG0May0ic0dzx9^I4(<G{Qf4m%+o=l}1<jU_dwFh2m}@Jvw^)GfN!!X=ZOQ
zB)!f5I4|B-l5#rDGw)$`;=s6LtG~*cXqDxdG~afwzcxkw>9Ax%SgqE1;)l78wf5PX
zOQ>P*zdBf1n>{^)U4m;Q?XIhI@}}I}7w6k<7E*So&foED+W9a+?R<5=CqKpqGu3g`
zHG+)tgg=GDp*zpJO{HXYti?EXWe0vCMm#FU-sd0Sqtkp@DXQLMsP4Zeabf>W<!K8u
zP_xXNO15HozjdYz=;DeXpHg+$UB?N#$=#oCt-4c32-lnMNMY)@g5B|iwV*1Zw|(1X
zU1!hxnDmSFr~e6G!ES__9NgxB&PD+v6+cS3jo7V&;eygU>>T$4cW&MG;b(L2LTw*#
zj>_*9ic39uH%oMV_9h$eWYjZ0dMDDv+{zS~s%oh10Lx9zgH0?fIb}D5e2W|K1s_*;
zjd9n6>q<f)O`4%1CPU#!4}0Lz$H7fy8Et0WerzgVFBUJRRSgA3bt=EMvL4s8Vn7q?
z_(Y5Ibg`~{^d8j4i*8PKeG^o&*=iOy=A)adcgVf8T4oi>O-_+z5>V6z4E-&>C*_*H
zGyAxcU-G~WLgfS>$x)Uo(0ID?huhe5%K|QUziP=Z^F<Drwz{M<?GZ6BF6d3@#)PSz
z2ni0~w`ClMPARH{SLKHcO|^P=(3_efI2-JoA4RQ+DD+VKlSV9DTMN64nYm*GLEym4
zv{PmNBt)>|Q70>xCu-v)v~*^!S%tum=5tjRGE9@_!^?{#w3e+Xv0HS!D$|`OaIqMq
zS+MMVW?ieNl?p&tswv;AKTGs>45CCNss%;9pk91%r$6&&xTKNoeWhHWJB@ABeUyI6
z`4i~{+OQwgb`$H85cjUcfh*An_`-F&Hwd0TiM*?qd8ztQWB+G0j8gv897<k_($%=`
zRH*&9(?W>I-!*a8%GV|V3b}Q%ekb!cN_1EdiO(p6HRkh^jq3GmBxwQWw04VOL0D7Y
zK!;38$}1;22u{=Fqa_Wsz8R2<bL9)hm}W>`P-Y!MlA@G7gOZ&Ta86NK3zq)yS|{SM
z&DW(VzF?)`fnL|d>&5OZg(jpwiT!GtjfG{tPrgC+qv@w#S22Czf+}@;8p~;>$W+>R
z13VG${kvd}`(}v{>DNX{QbHvkp3gs6<q|3S%)3~A6uEJADb32X+f{-UinYSccG@Nc
z7Ue7O@?nHrU+88<&GG)DKIw>;LVA>|)@^$<bj`M+)_Ll=oSv?BNW@}XTj@7gSYAH+
zL%Jk)K%(jTCBBuj<%7+xjOg;w8;o#HXrm`o;ZD&`*1s4tiC%gK{iWROQND&sZDXnJ
zpKVj%GEb(&i;)p#zMC;^b?Vw7x181N=?$fV)muXa!uHiKQA>@{Bf=yew4!n5xOnx7
zb>RoLnO?u(@kPb7CZco8$N5!9p?fjaFm=S-T2QLqsj)1EvRE-XzZbsaS*5dhJ(Khw
zHr4s$YK$J@iaAag^{DHWM70+GVJ8_zGcXn;FkqCy%NLAlj@x*sWtEkC3*rmM&fAD{
zd{xv;bj%Xu*ln>Cxp_8I4Xr`IUG2;3DV}T+3WbI<Yr~?6mhs!R{UdFzfzYF!tZzAj
z?d=WjM>L>r%WTIw*&A$|kEuYpp<_Hnwyi}Ex8P67_cjRf8qZ9X{sYe-z@}Y3vR}&g
z#Y@pnyIG+oSKq#pg+JBw><o!ixWsXHUGTT5^?}J*Cru9#lX^2HNDvod9rY-(9v~cK
z(^ZI+pruIr?iva`KW$X>J01VmxTPS+IBbLL#fRTzUpXv{$adOuZr@Ywl>BIO;eRU%
zdVOHzaG4mVr*|%=k-tHn40O0AueNlD6&=BiXcaye-qXh=p)0h{>`NA>bo*w!<aZ+2
z_@}4Ul|>H+CRN%R+aSqz;DzpD9vmFn)h4*lthB)FZU^`1H)S~9Pdumr>F5oL4%T?G
z-{6DzNsO!dpJ2JgWbeB?O~SsxJ1=gK*mbbxB3s<D9yPqEiiCk%xE9U@i=ls<o`%H<
zN$Xr@7^A!1PY?{HkHU0HBwhV8{B+@CwRvCN=8$*ko{+Qcq3kn8khIOTLW<ME{QPO*
zmdC#gP#3y(f1l~qh7Ol*Jd5RTmnxx}WcbYr*@>+0Czn+1zLAOk18q(&SY}g^s_Z25
z*7N?vg)Y{Oh4$`6ODJJ&l3%zy<>(e*?*_Obp{||wu|PZYM{)y1(ATZQcDcz+M7zq8
zP(_mEVpQ#~J$$a$=+@pH7u?eAVCT}oL&<h}3UPBfc=NbZJhbp>(Ug_Hn=I)9`jYdL
z?t-amp=L4HiZdtA>=az1d*<#-a}4;|ST0#X=_!*hsZOd=9811QO9BrWDWu~>ZLGer
z7W4#Ma|DyTQP?dI7I6P6$1@w}j*TZ3s0!5iZ`M{gC1}5ps%!)|pJef{pVblohX3iK
zGxz47&M7iG?mdz|qf$G!8V2a|?%z)EKel0BD01Kw6J`GV=<}z+`uCUr=ihTO&Wjam
z<9@T^_J8QmX=lp&dfSvCZKcpc$*0-PQqbp+J?Tl0>=ZQ)zWRlqig)JQ<ZKJW)3$0_
z{l*pp?K%bMTf3bPY)Z)dqU+W-<O$yNYMDfvsMk%B<!!RMIlHoDH5Ol?X~M;|`9>(U
zq#6qx66LJ3AXyx85Iz`Nvi_PCr={H6S*=3|@<`iwo3G_GmhDn-Tw-<hY-p&+C#-3T
zqP?S#bV`j4!Lmt^L^JY_E_#};EQD~cbuG_-i+Yr7I7*sBe9^JFs-MnW{-w(&wU0?w
z%0}HOulb@|qp8l%NK~|E4Kl*%CzITw#|h5w;!#IG{3ATrai6zIDz$iuq(+v_r0&?I
zRkf?B72R;xE!c}IQ#pCVy;^<oOoRX9V&eSKfd>sKb+KA+4x@&I4UxA{RjSl=+Pj*|
z!e{^bk#ba^O_F{`5^?28jb}aa%sYedgY<19+<9-R$sJt1%=R6W%u2(O-=f{Hj+~T!
z<G-_H4bo*lV4s{yg&;g^3MFSQ8zg?z(toiyBcz+SW47`jf>bk1!6s|;wTYgqmL8<y
zDGh@>b)(t-(eV;-1eeI+@bVYsHEB9Z`h`CZpcC7Ox*<Pwd@H-ctKgc&F95#W-TQ9k
zN`o$l$Q`@hg*8JB7~;sNEQ9;7Y)kq=;!SIXZO8$lo72-QE~ofA@%aQuUJ?0zG5+Cj
zjzDi;7__z=VVbB2JF2TBw0`F`3{E%lYHZ~rR`D{Ye?~L1e(uz?hU<2c9xPP4pKI07
zpfJ7^VwY&_Q&X#8MP1z<DcT#&3lzn=8xX2xQeg)sA3>gID*xoUI1)c->MX$~+FC<h
zf8KrVzym0yZFI^zhBeLRD>VHjvK(PI`=w=^N08$cyDs*V@DB{v(L#c<d$xmzfs;gu
zQ<uJ|m!unA5W0Mk#qcTQI+EG!{_MfR68fxzsv~~CPU^Ex&dMuq?x;fcN@Y_OeqtlW
zi}q6f`4#g@zS+!qfkhV9uF4Xg=Fd0@tuAlH>nMG4jMyxrC*&K<n$^7;$!j+~$!m)n
zcbiZblPgh7RfV^eLrhG!tOAsRxjVY?^oX79_<<vlK2gjfi~Ae>-0T9@onMNk;qEN9
z`rHN^oIG)taAx=uBsPoFnzqLo5&qd%I4-T`s>IYC)T8em7JWLj=5C(IL;iD3(JmcQ
zO;rXs6^(;Fo>=jH@0APZGu&;OvKk$Q%PZ?>RI%!tI2I^BX@%`s$nSPp%q?_RLKM_G
zw|(XsXkL|r?Qnd1wvFe@wh+Q8;R{;Z!f*5Z85$Sp??mNvrtDW-i@L*_1KU*}`ek&_
zk26xO@?A0A!Z?KAoPb4nIh_pxDs93>Zuff2J!dEQAnQVKRX!cQGpYu)5pKRzT&cU$
z#%Wbn`ZV9h$^IGLX~*u8$V34jJk30GcCaAcjPN&_mU$aJ{QEI_HYwg|>|FWV?#18+
zvuuCJUPn3QE`PRVv<i3M8eB8+Me?Luj?ldB&a+KgCMu?XWVjNNXD&>-hi=&|+-w~V
zjo)jzV7lA)1>V8FIO(c3!=tf-YqeX$phy?3VptpY#FQtRzCmtHOKD7gVd@E&gv0gw
z?#qtj+8@~P2Fp4mwdcxGe~^3(l^J%BC*nn6u&!Xw?^5Xd?`(oELoKj14KaGBuFLl>
zLJqup-+f#0a@4iJ4@)NI7iW2o6tOs#czA~{mxxuJ`$^{8Y?jlv)B2WA;TGK+_Q_8B
zSy5^cxq0~;MY4FqM7@({vjHD2D*S+auokX1bYqTG&^}MlueWf(;nOMtldt^{?saZJ
zzVAY9)Zf@_8oiut=jnyM|JZM*o(DJRE#7(!zi5_5;PZd)<@sqj2<4IIbnv-B@SLJh
zG5U@gM*e%Kj6-cLu6IQ{i6nlZ$71gFhaVkp-c8xiw}loeb<5gX%;vOWEwAS-tcW80
zq9x+QF9@yYnOG9EURV~1Rn9(&;0xTWbXQ*ssKPb9{=CmL)^vo9;Kz#z=MS7sJ%5_O
zd82w=iS3|!z~eT_hb~9*-iSeTiW3E3SoOX{*dt1H9T#*bvs=3~vb(*y&xo$t_0~4@
zat6}rY(PiVa_h@Z?$o1^g!WegEouv^SQ(Gzo-wtN2Y6+llUEAI&K416ls+tSy;?q7
zI~C=mxi%I{HBCbEuT{KOQFS`#>F;#VmO68ds!e>aXV?vevITLFio%mA^}d{n`>UG8
z%9TXSuC<7vxfQ{Z6~1#X5K8+xw_Tb-jMSTMeId{r?2k4YX^qv%<}ho!2YE6W64RvF
zTTkUm-H=QRQFHWw3CJC6$u;ZkL{$JYCI2>B=$n55Cwx=W)rx-?t53W(R&fn~5hFug
zEPf(@q2%a2o(fmjfpfZ5c_f=v?1k8g7RL$1-s6>ZEvxk?Vn68=T6@)=o;mJO!2df@
zr2oKVRt!(9UwIYP-)_KhJBCN0zLZ0VgSEcjBSle$?39IZO3{p@9n@G@G;MP>!Z#lr
zl9f0!LM;XU$SQ1i`6DCdmt8y9)EX`EW&iWkCt)w_t;XBvk4|NsF;YP|2~b0IEko0M
zvg_-5<AQhZYG}SQiyt*NO6+?YsI=72{x#lLyr2E>IOY8hvSmSk>IktSM&Q<oq8+>s
z*HKeDVxr9XTj=|Fc<x!$u@w=V!JgQZmxAP46F-Vp!&js<m+dxRo_#-<+nPk{e3hkp
zcjBFr+GXO+?x}Key^?!%b~@UpwI(bwg>W{_M--cUF>_fi%A;Vy9)tawRH~hWcYBj$
zSzKcT@y#Cd_qQIG&~?7+y5!d3IeR8brMM=dDy5CAb6kAQ%7wu~@Q)=shO-8d*VGjS
zw0v^u=1W}SR0jt^)it8-8@^iPZ@fI3CW8qM%S-W#tdHqV7O~I1L+09k@VQG&a^j0x
zDp_kXCWa@XX!sOMPV&_w0C0QOgzuqhV9uQPmDbrsW{l9m*B!}bbFp?C!f&YK2sb!k
z-p}EPmGbYEo6BrNd)M3;eblb7zO=4zQ5)KDhvJrFM4zNjaZ-}s*ctLUG+R(l!hnUy
z&3VE>bPg_XjdG^naG)il&`9iP!Gyuyfcydok^8-5YUZ7Nr6I&7YiDQTd0`1?TE{E>
zd;jqMJtZKwb8RVs&^m-zT2!#Wsl&r_8jP2ZoBXI>&O0<nHDyzV7xF)rP*9p^yoz+m
zZT9qse!Zm;Z;+cdRW$a!6JlXDvYm0ZULy6Vl1@}FVxjh<wFH^*+@FDXN@}(j>|p(#
z^gx}T)KWkGa6&fWsDS20w+UKesPZv*_!UK6!Z!X?Z8<i-wS5C$+F#~^U31bLw@5+5
zwmPoSTv`uv1l#4C1XKm*!4#sKjvQjqImcA+GxqK|U(+?<J<lqAv{KLn=%^F0Q=6}O
z^@6?#P6fuWTIX?JsVY)@Y%L_lr+mujma%XYS=5SF37c-t?>~!2$FK$pyFSQ(kj1at
zr-ZI_{}6|ynf9i+x@`P~J;3KLb+mY+zjsdU;EF6Xc`v?8twQ@sgy`b_Vf6I#VRFu$
zaAlU&x7{=5tqGxz-#zQjXyxzN(_$5+x-FkZ8-3Tewx+o`@-Yg!k?bi>GLAAeo=3{k
z5l#D!1<3IIC4N;t6b&gHfJHj+QF3rz7#llxE_mUO*HUu4_udM$P3Ls`)@wyGZVcQi
zu3a@o^K*)HDZj@~VHx5JSLs{b!-+GsKzABKG#O=}8XgHuE`B9z{d4!}Gta5xWPXbt
zz5D#0Ph<1~Ig~LCLWoNoH+xd(W;}If5Q>REe8<!T-SFXLXU&5cf$T#C(l*YYYJ7#7
zMM?EOjIdG13B1YPhe|EwHoD%uLXhy9Ub4mfpt*ux`gok>V`5M8He{z*kLCTfpdVfj
zy-H7SzE)-Xn0kXg;Xc97vH5!MxwnObnX;bW&o<Y|fw3V3<iMogm_xe6dQ<cLJ%*R!
zksJ@|%RDcR;`_-Lg%N^sB|8Vvefs)>zm2ULRIG}r{ZiX<2Y-6-N3$la!3ip<dV3~U
zjh*d(OGDO8#-1#S$FN@Z;I^Xmidbp7EbgnOkq>Ab9IQN!wL7;NsDb9!079sr50|1n
zb$hGx-3C>S!CMp_fQA1jZWFuPyBM9UW{q7N6USnB4uw8?5{P=|R^m~!-b_GCK#oNK
zL<H0ice&YuJ~48u<t`y7;P_-n<+J%{+uL5S^QSM4)YAdUpv~r|2vFMe5j&CjY2~d+
zXtz2;oH29{t`@q)|8%F&u+5JRuGzA0j1z!zcWp<B<LlnFN(SXu6B}t4-e$RvhR?-?
zXB*T=vD`c=z_jeIgE4w{e%f^)m-Pm{`S9_z%MmX_y4iEG&bhQwslWT4Pzwh2efPg}
z@P6>S;2K!x-}>o6dO8yTkdV?ETH4VI1}h`O?2BsX#JcNn!ok#T2mM;7me(%gkf)x8
zXXv_GN_#a8<6122PzQBx?9vxEp*r%wyVhY*Bj=j;-JE}kcDyQS(Q&T8m%<4nyS}Dl
z@<Yug_j~Tu38c+M%%ck5=&b}4#qWOlDpQ>}gKT;gu2#*};5W7C&zUJBzhyE;-Yn?~
zhV*}O>X4E!Hy~)e$r13VC(<)A?;=cG^PF~Cg*-O2lcY&!7Af;a$k8^@x;T3>t!e<P
z-XUkUuw*pkuVR8G7N%~}2(LY|we}{gi=){;EGMkDGu+C_++FnbpFhr`*%S-5@*?+~
zkvuJy1VwVrR$f)T<{nu-!tW-oVQ8u}ObU-|>iZOa*7{H+B$CN)qZTE6(KC-5jwtHf
zRz`XRT$-JI*S3`N-AiR{(A3GvaD%6?w4A<vro!$Y)dfht;GuHG7*@p=eTQsP%{Td*
zxY?m8Waq29SZf@`mg*w=k6-PX?DhUExqw&sMP(r)$7@I5v^h&$CT*Bt5+e()M`3uy
z@Ht;(pBQLZItx)v(K#6t$irF%m0F@9amlgpBTX$vb3S{PC(1*MjG{e#HQF2*zgJS4
zo=FE_=aqa|?Of}JOJ$JOwAR$~{>|ou<}b@`x6m5B`EzI2bPD2(=QbBoDD{xMvMDpC
zo(J@;8?}9<d-hAkP8UK7buv{`{uvhV#QjqL@OA&)djp*A(3FALHU*jDzqPySx$dDw
z_dvl%miTY!`rdU-?H*sW=nSi~zeEhqbmS6WL+?wbU2~D}aW_|XH>h3mTh~eCw+$3R
zp9EX0%&pQ>Mix@H-=P3+{c|sX^FIVnjkB8)(zMQCohLCy{^&ECTTw%ZL%eDVUNuL`
z=t#~6&XIi>q_n`|Rfox^u_B>N%6o&*0~bRF*B??})^F-~#=Kyn1K(y~rQQ`%PWQX^
zH|!+!s=8tGnNO^tUr{zc%j3^vN67P{mx{t&;S+7?PcLy%n@aiwuaS*j+NInGy|#nr
zb6w(xW)ObXbv3C)Lkik623F(ahI8%z6#NnOS7nb!&L(UGYCJ8fT;B<S7Q~^pSG8jF
z>Q9x{3FI*t=Qcke!ZHdIwf&zod>cYYsMiTQl=w%q2>4=@E2p&1c5OG)kq}Dh38B3^
ztF3pk3fkNIVK%fQ@X0&Pnw5Bqn;XdL2+>i9Z=!BuaJjDaO`I>p!pJ=VeZd)aW;@D?
z_H0h&Ufcb}@QnD~acB|fqNSllHZ=X?>`a~L=4ZZyqgUdgm&k^a<i}}bxpFeToZiKY
zdsSKI|F{D$B!4G4s_fcuP%>}o#`Es^E^69@oUnBC*jZ)V24<-4HhOTHoT%2;8RlI>
zTQsd79ja@HdDSVMaQ+r|Ja$4#Zbrh!`C8dt(Cj;eS+ZYd_jud`v}~MyQ@mM;M<s1k
zTWi6=!$yD@`SpYmy;;lI`Uw4;MPh?{t%2!|rukSx_sde-#noewPvlG^y6>@t?LiCU
zKV-K^w%i9>kU%>K6?A&)&?dH)VTMA({L|x?qR3pqp38<#V@Z+S^V6Ba6Wk^}f-w<N
zla;vL&kyiyMsW6IzuTsE)$kn~EokrWm0{{snab+Hv;d_deleZKW_y1tPmfTIL|w`=
z&|fj6ISl_^Y%e}A16)_N;7M$>O{Bf)M1_b!BwAs5YX8lFweqkiPIS}_b4a$ozKG3s
zU>B<mnSb*j#N^Hh<$NV&u~H^phlcLvl<r%9YmwSeavzmKa9CWGo!i^KNX~x;$>r8@
z6I)kmuyn5R^BkyCLDOo2je^~}@NGH_giKC*B|d+kFr__p`?3VJ`a`Y&LZVEt=!{O0
zyZVAOnkXklk@Nx%Ww|6n*Y&dOS>M)}`h3-u!B>s>eQA;I)8f>cf2fJp8Ft{L@_5Ve
zuj6H-Pa&~xiu09T!wmzZAhaTjV}GlR9QL}DT#49R0^!NKy}57h7cbMqPyTV%>ai6a
z0?tACBVn%P2K;-)mfENwnI5yjfno8|j;0MBjM@d9<@YX{eZ^T4$BuD)Fy%mW=DS28
zN=b3>L|+%t&l-7-UgB3?Xsi*;Y4;__^WND&a(LE{D8`a~78{o2<R{QFc-?AXf6}y3
z6w&FdObtWdyvn2ITc~}7f4gJ->fcBY&)(<UbkzcM7u88^aoN8;Ta-ha_K0%%TlV)`
z5DIVl%#x(kdfub>?(r(BqdzZ|_?3M?v-L%~kYV8jdwt?)-|k;4XTK(sH=Ba)srsNY
z)MLpuN3y%9d6QN#yE*4WxlS>SC?ve2>s3`hl6bf8iCq0ReI2Eb_`4#%cV2fdY(zPo
zHEYmXwUF_WmP?y-Mn{h7pjkAfF?x_Z3}4du)7T#+E_L1W<pG%&x?V{s3CY2nie4k;
zI=buWuLaVsG(zVrh4HCD2PVTbT2vJLp(a|+ev`)NfaT=#zs60p^wSfC<sg17-Q3d?
z=DZ>8ti|NWN{dJZbh=HX!f5z~Om)yfDd{xrUFKEXQ8IAem=;45-Lt#jb;$~;N>Oft
z8$@K=yGJhqlyR!kGZYJ9g<mOQ*H6>ebzVTeXNO63KsnIgvWG0;%XJGo$=xq!fA5JJ
zd%9z7k$wezlXn+<D)bo2m)67Aa|L{3@p-g~@K-USee&NQ39dgIk}0)chugR6$Et?Z
zUhN}(jzhpduFK$)w#$4kRJyx~ukXLtNmLvlcDypJNWF^y2~^b9`Km{zin_^<?k)W-
z?!CnC*rM&g;I;~;im&amIZY~fCR{Tj9E)r=SC;RPni)2ULW)t1&m6GF;9X?s@6D2}
zB3I<ly*Y6Z_0+Q;@(q{)KVjTM1UHj`4NQp(@0JkaP@&)EW4VW#+W!s>Ia)8f#S*Tz
zL>n(bSNxU05*kx9D`$6_<tA%v8MBeUNf<GKZmjBop^G8DQOJZE!D_PuEO!L~4*~~z
zy&(T6iqF)k@<xu-1z|bF_d}~^4zlQQGiiTh74ZZ*SX99UE5M@jEe_(FL+SL>U^&^E
zXyxP$E0jFQa>F)&DL&s6w-)BO#=MW`|CdJs3P|jcc?LIl)S$+3dc*%&==u7qr~X>%
z_7m=`UedE*(JHur>H)v~Yk~xC<?@Th$tfh}-GF}%<2(O{yPlZazkd!x{nP(f(tNTB
zYtR7}v8XrKTzzx{0;sX2=H(^l_O>**?flHHoXZ$*3SLjoSQ{+2p=C8SHLXsC(>?4<
z;1=%;AJ~F_t2nhM9QJfAyq9h+c<yg~_QTJT0++|pnUAcr4JNSu6xXR1ME&o!W5<tI
z`}p{XsBKL@i-VY9s!Ck@3+q{*ed^#z&qn@8S0Ij2G<*r&#UjvQyFfeo{VO-NlTGx`
zzb5Tm_H}?!Hd6AU@QS82zrI9ekCs_g+qdzBE~!^lSHrryx<V^*a;D!7mD|AR)6Y)I
zkF_8|_1*b;D&u7`9N(5*2Jv@OQSQO#e@s%PZH6lC8Usu&UVHdnJ;cV_+uIy`UEyI@
z4*!lkcXj4@Zf>p)IH6f-aP7;l$8~0!9|iB_eE4v~($<zoua+kt1E$@jw!890@_XDx
z3sKHvYyn`kh*5Z&o&WEjZ+E+78kf@bhB0N8Fm-grkzIHzHy1be5g~ETV{j`5$2r9q
z#pX$pq<Vxs(GXSROYB)1t93iMyPnP1t?yN5H1#h}G#VUxep^vPL!-@ow5niViytun
zUzz^&?1F;l?oD_5|1Rs-vtulgKF-r0pQsAE&b24XCH=q`=%$s6X8PgQ*p8pIt#tSn
zqi{jq{X;L~LT=ePm7tZV{vrbgf->36Po8L`G59bx^~<?urLC7b?hi&98yOlJa<WG?
zYO2czugx_ii5g_37c0GW&&BZY&Sc)H^_toTUY5Up;_$O0o=vOYuOjHwz1;A<9lEe<
zSE_UaSd8kgIEBfFH38%?Y-O-wn-cbM{PU_8r$GcJ3v!6)-I%9STD|;+tX#l705zmZ
zQ|fA)`u?ggbYZY`m}`HC9e%IB@E)y&I_4HpX4gn1KDn85LqQ=BmM-sM4{HiqRfpKs
zS3Ml9f;)cx^?3N!v%}K8es(O$QuY+B>>#3{q<Pu98ep_|)HR2%FF(zGkE6fyp8Zbu
z@%8=E(9rM;n3{iUj}pNk4-}hBZLf97w%thiq&U>~%vUP;I&*vc;~g>1W40lr0t@%a
zriMZo-F@W!udy^(c(A@ia1=XlNQ%%Vsh>zT?V=20rYsH}VVAOffBzGgO}%HP&rGx^
zpPoNVjE?mqRn_XI$=re1on-mgM{J=lyX_3wcx6(C_a)3qY65q+Rx!%=FsBTfeBYtv
zT+V76Upgh$vPZ=a7a6Pn$H7t$SV5b^CvxwN>EcA-RC54WHusKy=zNMr2ymQ?`Y0C6
zQ893HVX*wrlbfse6een}4$99H2rtsFyHT?r-{3hX?`}Ekw0`8^69?!HsVEz@^EQas
zlR2uWsF?Kh)AU@g8hz<py&nj*Cox=-@xZZ3MIeu7VT>J%d!bho?|K1ul%8&!vTqKt
zJ0&~y!FzV$D?xd4z=VDTWG;uOe%ZX~6g#idZch(?<GUA`3OlKpnR^Z?5@wp$y(V`H
zU9u5%b^U7n;{C|o=+|;C`n5rA)gVr?1Yc{$^91jVx@1oj`OJ43z+GHgEz7NI+klIP
z$<I!z-H=I9Qsnijx53yq%e?%-@0D2VH<m$anI5RG_nOLbBuYz3smz3a%0sG!I0G26
z1?M$pbf)IhrXpGwo^#s=Z5|cPxN=QdIn?-D3|DqBtTnu~b$=6cVqz_5P`u7gzc)#G
zbbq!@Af%&icyZgN_L12);2RabzYmKBlE*d$Fc4+`1;6=d(X6e<`uaWjOzZ=b;|rRN
zQ>X*Tw)o(<Y61Pi`+~JG+d6lv0zTD{-L(M|gJxM-SxQ4jMn?4YM*~}UCX5c|YQ&ZZ
z`MT$C>;x>Sp%Bg0)435@;X5Sttzh=r$G<*LsQ^SFir66U_Pk~1xp68v|M88C`HigC
zFV_O%g`sGb-nB(U&NX!#-C3UF+H8UVuvgx@^k(rul?rmeJ%`sx>l=c*q(lSLEfcZ#
zft1O7?(aeS+eCx3d|=Rstn6%9hQ6v&z|z(zn2Jm&om`K9b?&MI6cSu&T3iLk*Lk#+
z**EXpg?63!VNv^N@Q$=i-7bv@J@fl?ikE`p_gD29xD)(pP4*8SJQxJ|ifNsRkqi&o
z9JDx&veW+R>WwlK<J5-VIum-CqX^NmIb<W+ovuI$TwVLF!ZTj&V(<e*TbVO(laj3M
zhm}<j8UZaZ_)enw>2Ke@c_WMP4iU^iB>YI9stem*WA8&!#v7`sNBF}G8v)W-Oa$OP
zzGxx&n#DSlgqwcriE%2;jC{3mlFpQO!O8}C&>reCf%@FB=REiU;HcO_Jv2^vr}FdX
z&rR3ehHCh(Jv3a5<`50volk?sze2R?%mr6vA1@+`5AG)|3xpKc43oEQs-5rcHxRRw
z-2qC929R*`4Hhtjf1L^14(r$8G*;uP@LeUN9u$E>fM*XuqT}S$_BQ%gE9ZrAeCo(@
zq3f<Vr?4eQU{Ph?o(x5ox<`X0c)4B`-`*bzQ@gFtqja!dHm<hxM2m>~pEMXeN`7Km
zD1CCD*=QT~J1@uDmr(vkw3tDq$I~}GtAaTcqaO7a{xGLgJSVVrN{F3}^Plct$#A!t
zC-La&ELBUV!iZMF8)}BR+2sY^@of1|nP4k4y;Tyt^JUN_AJNryZ;w6$9O;J@%Jlwz
z-VNu`8%)fs*Fed;kNmtg+T@ZIOz?reQSh>-JFT<xsci8=-vDzB0$;>S-bL~%Q+1%&
z{hdWvN`8f1qbGaR7rQ*KQ0h{{cm37~#{P08z7e3^^?=rZgc9H;6Nmoc60^lvC;XXX
z&kw4C6D6Sldb46(U-7B#*f*BliDLJ+sdDPL2O=!Y1SO*P`f;hr%H;`&u0TZ1jKlig
z2T-<@9gr^do)h0g=9_odx*DZmElqdK&CTC|$QEp6?9&$k<_wT$k?JiCR@Kgwf4=<s
zXkwtcNrWbeWM=40<RSx?%0a0zF&QmNwolJoNbP7zr~s9!_B8~qLjk#o2%HQi=1E#q
z?0$KBCkjg*t6hB4m!~xaU|`T|2m_0l1O+{yU<#h*$MBwU2^}u8N{Z-FB<@ZeTUJx|
zUl<6?zyaW0JgEEucp5(pqBgMW$)O`y-W!i|@Wkwh$@Ly(N>~lxB}a;yidzoj6zjmd
zwwGihw!7~98JBrBd8)OQ-biT)wP_C7Bt(H_AZQcAqLY=0kg0kjNJ+h-!FAb%grRbW
z@+4y!^+exyV6gpq{Y)iYAriTMs-?xaK&RI>=+|=#^^Ko*T!Q0b;>@yoD)Xy?vr?Am
zH?6kZ=bMkCH31!r^qDEev?$r37KSkl4=i1YnBf}$H8wKpyPB@xrT<7sFIx>kfZ|T7
z?;0{JT6YFh@bzB3(P?c%#U@3(Y;0^@u`w|csyn~)PB_%d+Ba>zj=QKJe-dzk!zcNc
zcHoyn?%vDIbBl?IsS*~Klw5q7sQl#SZQ@>31AV!%cl%cq{{mx%yY=;8&aG$2W*lK|
zZWq&i|H?Vfp|a5|Qh!ma6!fj3m=|D+M>CUzO`M@~NNT@<I-9WgslRx<cgebXnV=TG
z{S3HYMPfcE{i@djmPWw5*fc;!j90<CCUjG!f-8*jG<}6hlcAJm#T2XtKe*H9tU-xK
zK&g!g{kBp7Ws)~+p}1%Vic9xu*(QRM5jZfRJ#Y!z0-Y2?U<3Iu0Gx-OeVYD6n+(Oc
zEnPcE5{ujC=<20bSXGO(YQ&!XLS3E+o#C>uy&AqSP%M{;Bab)8(YJ}&t#?qKAAY?M
zos3}YSpeXz?*|GVz=}|<xC@)nc(G<v`$Hr?Jf?MjCozgI<e}BG!zZXjP_Wn6*JDAo
zsc{6?>$UdK5u48HXo<_l-0gjPR?70qOijN&-4q2X!{ep#2H!@tm5+x`%7X&iaEwbr
zWtf?l`X=#rB`HKpV?u8=3c)XSJiELp@Nz#>-ZRv9pTKUKLQ4SK>+z$R0h;H;Xa>lY
zUx8lg%WDe+b@z=7wA%RxmhcaUe$Z9mz4_nUy%pGn5+l!TuZH>52q<o((h(CgA^-4a
z4m)Z9j7TyoF+D15f(Zg;tjHGH+0mhxyxamNm7(n1{aP8=@5wMM0$~i&);R4k({zlI
z(u$o-p}`U}H!A^;d-dIZ>uqCo9yV;yV~3w<tl~67!Ic(uaaY@Ts<)pU;j{deOjvE>
zkN8&Nn|I=(ys36kR=7^>4|_--H*Rw-$sj8j5bmas&4nMJP^_~TT?3%6_7iyXBw+6M
zJCnuZ*EtIXIQH5w)C$0t{`K6_sL6VaWW_ng_lsV;`0{QL0fVwKGCdWRl`}{{z;~la
zb(c?v^W#A^v#fb&lmhrTOcYvfQ=fGj!;W6YZ*A*r@Ra1_<UHKl+5ED<-5W7E2x##z
zGpAdP){X!t5deSL@&Ikr_lc0j^71C?0|ufd!x6fl>9W15W;n)l&0DGa?4a-MjDB|H
zBte%+QTpu@6+^CRg7S(Z9y)$jYKs_o;83dm>np$NZR*@zPq9Z;fByBg2TlQa!FA`w
z-=o#cDs-G%My1ZI)SRlF_Hk*n8iUIJ^z4Xoj}|(fjIXyy%Abu__VmKi7jOk#*N>d!
z>u%j9q%*w7T#NQNW%s1($Jb~!Ud^?ZG2Ov$Qc}1c;qp5&#7zpD49~!KGS!CwtVu$R
z0iEMHWbc_OV`puHx^Vr`MzqbFcwXiG*C{Ff??A~7{q&S=P+yr`L+LLqS2y<Xt*QFS
zjjMgwm)kGo3ZRwS$;G8U;rc_NM{1uVIbEkfW+2mQE(fUhwF#u+RpQaV)x&E7S7*Lm
zr&GyvA}AUI$@x?=K2*PUy+brRLjnrO0`;jWf#u$FSR0iYqfTw{yhWqyMj&~X7s1+m
zF->cojjIa@Bxc$;^}Y?+_`Pa}<Wsdz-B<&w@O9~aZFB{+fbzg#O-*3ZHvoDx%3^=#
zwtxb^nL5&>HLI99Hx+CyK{<rpXTm1@0F!5liGsHEn6N8jf6o=R%%jR}6&@b0BPjji
z@AFj~pq=42wY43W4ydRFX4~-ZN=r|_*fNLG-51u-Owz`^fAHl3Cl{BQ()L_Z8i-FB
zvQcLx7}>}URbp0}I>e0xqu1W=%hgCT!`LJC0OB=YN>rgbm|eY9`uNH@6;n&gbAb*7
z)6NaK)+8=Tb53nzkU+dd7XRu{+Onfiv32bu#->hMc6O@?stz#Y>_@zNsgKh0;8@wM
z2f#{g&_Zbdtg@WP=Ks0<He+UH#(gosl0HsQd!=@^QlY*|t}kNuA?0^p9%U4;v`<zp
znb!?aJ2Z;=G=RtsUrAqpFJ?l;AkV}ZuM?zN<I8Keell8I0D>=J4BvkKl$$HiOUZ)2
z^_nG0X8OK+`t)fo=odUP)Fbv|Db2J=4=XFH%g~UyL@gO_orr5$AQ3WL3U<^II(p3~
z8x75`JO$N>HEfS;zu6QRzWa~&5<Yv!%#F#Oox#|m7+7n|BkbnOERG6L-&<r^6Eic(
ziUUp{``1C{1<V3S#7Ia<g~_R_w+4-W@V0;&1NH`6Z&X9o_%9Bb2o-}Y7e7M0{nl`r
ziua<3LIIuK*2)!J)I{<jyqK6jLf=|$r1(Ug<e%IEjQ>LsfO#@d3j%DI5KXr#gl$ih
z0f^9pJ{ovuWE{J1R%{H%2m#<<x5W6V0|w}g^4nc)OG77KDXvqr7NI|dNmx`g89<Il
zGy}qd$;W2@c066`fv+15+xiuyC1sf!y+3Oa8nL$sGkC3r*uiHi2kuirqet$mbZo<e
zg)4s+_W-F!)lNL^UGNFx*yz|6&q&G#e6|b}>GzL7L`JNG9(D?Q|I^d;7QoT8GS-q)
zTH;XE``g@H-3DIYlU3b@3o?c=|KSb6>jXJ&S^Kcj7bh-WP%2Qo&|8_m(OZoR=5HTx
zk)+s(=`!oZ^jp9+Lxo7Kjj<bRf4AMZivzvl6F>_2wB=!drwlP$^WDKxi(yoaSf)}K
zK<zdi=ai}64Kq5rOmk)X4_Wb-*)~*>f4;rbiv`)xGEw7d(my^vuDVC3!AOC@je!*Q
z{jFJKk&ZFoPxS@ZYyd->y8yF>Jw~hM)AiHf*l4@mJfI{T;fvT^{RYxDqY@wrj7FJi
zZN`UX6sM9b!bL%3zXyErxDW{#!a!mqm^$j>^+wUR(7epD?=~)0-<2si%>vKI3ju1k
z&{iY4^vrLJM>+}dNmkmrX5@-5K~LHaTa%KXd?>3}ik0aVtx!;luLbXHki2x6JVCM9
zyxf|I0Ig2BCn$#NAge;ZzQh3G#61XfQnjF4F@J0L(Absr#I9N$Rlp5&pTGWLveOPA
z5~cq@%N1FJ_aNIX%y;B>nW-8I;`4g=u2ZxZz04@@`?AwIXavo`1Se3Oe;?*0`m2uh
zR0>7({GVL&tEx)|FYovJC*7jV(&!5YQRmuENarw6xk?K5W0tQ?V8&D?fpy0EgZkAM
zjq(G0N9JB2tQZT3SP>wtrDV{@SJ;1e{ELVh0IE#{kPLSC+CP9WO@|uKcc#?KdyHKx
z&^-b!w|-%^4cRI!Dq6GxlpSrwcU;ov{ywXV1MA}DhU?UKqux~u#a*~wvJ7bS8qi<1
z9BIoFNpGe$fZSoXIpT<PWv1}Si}Gdr016tF<nIB7he^!`Wu%PRI33?B2~@(l`U>a(
zyka)#r2trc9x~rVBjah~AafgfMi=V!Hu%-YLdmtmGIfleA3shQfULD#94gP|Q}DEH
zU94#IWHzxU)6f0_yxVqt<;%$^P(dt!q~fJc0n&&4Yft4F@eW6~UW+Dx34$*krxvuF
zU^H*d#C~CbBCZtgcTWQ>gbE~rh&_SPu<*<~KqONDR{9Ln!JT)>SS>JllSc+!7el2q
zfAWaVT6GFdCiyy3Jbn3P2Nn92djdC9?b7QH7(Q%ca~P%|DJ9k2+1ne)yLYx1)aG<3
z?i)8OW50<*9J~7cqQV5=`ha>*jz0wInF|yLl4Xik{mQF#Pu>ftdeWlz-uN{Nfyt8R
zO=;HwsZs;cjsXn$3ywFj8uVHjKnzu|1v3PXhXQ1b-;<nx?3GoMGXp0T!@(68qELki
zzkc72cqtX8sqwXLv@uY!7<kZosJ#bQ{sq{_ey&c6#9Kfi%)lIpDcKSG+ZgZwNECng
z5K^f~azZ{-yu4+)2*eG46R9vg>zsn;xSfH@>Q`0Z?x5{YNBA@PK`onLQfN!d*R?=@
z>tt4Al2_BJW*Znpm0&RnO1yC2BuFDNmRyI|WcGqtGIrSUdH_lLeNWPuS7&n3{v?rm
zSj5suWuVviht+IAbI|yFXi_t{c$4#wH@i$hX&-1W`e7gxCRg(^Nj&(|f|?ntz{Od(
zB7<yUVpiz#GC-P@$>z{!z#SE8_diBXktdt!`AbVnhk%r~Jv8FeWjytQp#&Iro=K5D
zzY~@(I^)j0j2o3hFHZ}~ECN(-W5RJEm|Y{_aUt3e${;vV)fLc7Rr0qp{6W)C(E4y*
zX`&@6f@l@qdNTR@9{_dxmvD1}0|2DgK0r-tB)@t~JbpZ76%YY7ptx0ocv7W}S9ecY
zi^!b&`vt(l{WXx1%g3U=STWo2rvRRp*WDP*22622*+gWNQSUywRu1Yyc=EzNXtCmp
zt*Qx~psT+|TGY$42&^;zvOjfD3NQow%2y798{tRwiuBai+LXX(UN$XZ+p=UvcGy~n
zdK@tP%lk#m?H$ZM>geHTcG-Zx?*mjHd+3#|=u1czxff9rwDjM50p4V63|hc4)qUpL
z_XV}$RdUNNf(|G8w+ed3BHaVMaJ+AREVrw|v>2!R<mM%wYE@kn6MXEM`vzcL5wFh6
z5gef*1hmUp(79BvF%>v_AoG*dTzWE=_2<W8Pj8EJ>=g-((E+0mhXB1`yVL^Xi69lE
z*(-wIhV$xMS3VzKuX7(Y_82O&8t%?eT*m^<)SkN$35cDty-!AoDUuBM=o$>@ws`vx
zl5pGJ;e$_Bm@K>=NP0ZpVLG{9_@&|bt<_mN@bYRrKs~B>F<YTwov;tPnW-tKE!NMq
z4XEb<VH<r~b~LWPSYs$a2GWvgm_w1-={F>paNJwH8^$kI-fQ04TN&vWT;T*ZTsl($
zs#5%+AxxCj_vbfI+nyr<qFpusI@0q1(RD&(?yH|T51ETdlV&2?iB=k{*to!hDSxbk
zA?W>}#ZkFBk(dSqrE@8rYPlAHKxBCW<VIDX7+B$eIT9}_c=AkhZfMu*wXSK!T4h@Q
zdVHhH(_-U?B+`jMux$(=w_m>VVjRHd-bv6)GA{nb`kA>w5(t!t{hGij1g#DzU(R7)
z)8=65d225DvUk%inuVJWPzA@h_Si;4mflm?O@Lsw3HbK7A25E4A?OEFMn^}FR8>{o
z1~g<W;QM(ODbU?s%(83>@}`(BEDD=29j6Sod#(lt2R9PB(f!QS^>?Um1x7Iel-rxm
z#%;Tz3F5N#DC@y*KzF9=0|UV)8Uy*|{1;4#FCWDitJVS1u(Jjbhi?Gnx*~Hh=V37X
z8%f#b4IDSKOr#(A``r7^a@$sVKov&!&wj+_(&&2nc{%6t@V(7pq}pOxHGwy9+&dlY
z37up;_~bEYsRA<s#$01T9I82kHbjB_qI|dao0oY&I$NWubYW;uaJ%lC>p)SpxD<Zo
zBkb4XEp8MpOZ^N>ytybymmC0<Eq%BGT`zaQDsg#Nft2UZ0M;B1>OcuA0F|tpHkg^T
z%2f6rZ_lS8nR!43yGIi}P@mBu!2OlYG4>NmoX6~vw09B(wX(u#6M^b$-EzI-CTBHg
z3uhj>`<8956Z!Fg$9gx1()dU<m(CduO?bEQ662W|2>@u~^IwyBHdvzJ>SLhqxf@+N
zwPlr|06+GpIdS0&`TdqCOsZ&HUdV8tRG11||A*2-ukdD;6sMioD4`SQu1o_34~Vse
zE8oC&VsgG;&)b<_JjZW}Ft-D9GDraR3pL{|G}E#fyG4rt$|XdS>Om-}Rs&1wp&`O~
zrF$=Kzx@c>(Kk|d*p1x#SAte5+xWUhZVQ3iw|^(}D4MEdI38#hDtvge*fHiX%Z(7G
zBGL$2lc*o(g8@><2d{qPCOVhsgN?{}UZSNK@pbOyd;fmE!wn^~a_h}>P!04DKzTWD
z1#X|2=IE)6%sVL<WVCRO`7|=~I4&5}|CQ%|-^{%Fl)FHNhn-)t*tl?!x&I7ykze7@
z|HXPt&hG!cPZ*hg$Jy@3W+*c*?V6A;#ZTo*P8K8`h9)6Kz(-hsZEf&?*gANi$4^6N
zR0&!xOzr}^+AQi3%%yiepA|M+4bJ9%$-JM9WyN>c(l}4gLg3IFokwD%Bs~jOmX&p_
zNbcx!Vy-WD&wo-jHRgvdB1V`WXc6f%{W_#*ap~5coL!u8<&x}4H_D4Rbj4woX|dbj
zEo+OoT!CyVbNe_a<1Z&Ru5L^M=}~gLl=}B?EG!8()Pli(m`6?q^ESnQk9p4j`_It$
zpW99TbG`rXT)LRKX?{$*<Wg~NeolTu{vIkE#o2Se`9JGU_6CnU!EPEKho))ol;?}^
zxu!uw>~O8Z2!Y}cU)}zFI-ezH{L)7oY`8Q@99nxuZ)ya40###W41;2#6aRZ55S|6X
zmt33jNj@i+mlHRh`BU<5;y9tQvBVSqjurVAXKLzY)c&bW##v|t%C9cJ6ViK!3o2?&
zvl^O>6WTL!-l!-q&2Q6b`u?BUb*da}5~eso_wx4nrQ~7)|H+?6QAzFM+@FVLC52Qy
z3;0jf?#V#?bqcW`8P$PA@2V{SOq#kVF{A9%=hWw_mmWl4a^qvQ;^7@-eR05ulT(9}
z_pXrG2lfw<7db3!gFd#M7=LYa&dKP7#%Z?GY_|n;KcjAHYyXvykb&5L*Xi3ynEN?F
ztf**doTLnw+WVVL41=Ck-y&ptXmFUhtdEv|1raI5a<fw<_J(8|$GAQ4_?)kER_NGi
z>YqmeUu8rF?(<!h+aDDy+ss`o{u6Ifmk&^O5%b+!D8VxS(anKBXQn2AGXr{G)$>0n
zAMG8k)w29^?m0zpZnKAT7~%8~wyS%K694`z(>hmt4o+@|Zgy|Y5B354_YK*9yYT0e
zUv#xUDo0>`PX`>MmF*W}*Dttb813EhAKF;WS~z)x^yf*3bLG6Tp7)R1+Nd^#tZ%HU
zmaLZ?FIBIY9G#nSvyeaP8E7hMRwRGaFWVCFE#?ifq~!+XI}>Iif86`ncy-cPwW_1;
z*s$G0^2UPbkflq+=8wUPhZp~5&g-1C%{BLo)(TJiJ-yn{IO1|~c#BfOPV5u<pV?`4
z9-EBY99<}S^G}nDDa<6(YT_-{-`_n+npdVm%`_9Xx3>{q{`Ly<Qt!VV4dQk*@L%4L
zKTIoW$$MZPrv5l2Vw|Oxh2?(Vi(RW=DXOWghmXhU`>V^As?ACveR1wNd%R5*r=?U6
z$d;~-FC0BI+|>VZ6P$lKyk)01*3;pDesPOO-#wPWxj<@>3^tnWgT)c<#81W?D^(YI
zizmlE9skN3&9GL@4`KW}PJAi$n_%l(M+0SeUvu}wAa{6^K`W_zUUu!ioMOeo+!6Jh
zi{q=**k$-~fL%Z^H)9Z%hPkuCU|ul$ojt^`9ItRRh{kSul7;2$vNH@}E;{MI$VeRf
zAML#dP*Yp`HwvO6M*)SSBK0T&M-)+MQWB1$AR-{WHxUq!UIGLX5EPZBf`GILNK1eq
zy%SMEX%Qi`K!{QT0TNmWE#&UR^S<AiZ|<GB^UeF+d;fR-dl)9!d+oKJ^{l7-o@bTJ
zFgLNo2bwX`0aH*yOQz=BUYxfxrF{F#W7gf2NJu!v!Yeaz^8FWW7B?b43oIvM@yP6f
zmD-Q``&qYYYh4<@pJ#o-q@DpB8gL1n<763B4$Q65Xvm&{NPW&-an|?Z{mmjjoW+{|
z6lOnlEIs&l@$(@nLtD5#$x^@J)52_5(qRY)5Xl0PnMgIW3y7fwyLGe8z#qWC#?<x1
z`?M5Gvnq)!(*X)H6%|^$+Z$OoIBG>%vg+d+j(8lzuIiyGAf!8UJ)76!JlMlO5@vhf
zYY*%Ia#ACx|JCBmUHq#Y=RQKh3W;lIOw&=0Rg>eVhpbK4fS4Qa15(96V=o1O^bByt
zr~F#q<M?j>FMlX0^*{HV2M9}nOZ)aO>;C_26(xXXMH-D5O|&=>j$U<%6uu<wW-0>+
z8gDQx2$#p&4IAn52hl|dR=3?3<w*!4hE<%3Frm4zWV5fEIRzA`IK98Qv||CKfLh`j
z1hm7SHqYtt!4(pV%#>)VvJr*!<U!vw0ShqJ3Fpz}^Kcd5olEe2_U2PqVejKVRdH3w
zZf+!ZCZUc%Nr92Q>+AwW0_r@Od)_NZ$c09h;j)yySjjrB;=dk)|1IGEkzrP;b4H1n
z;!jK*Vlks)>kyz0`lwEGP1A^gpen7NQF~BXV{v2Q_Vt>&un5}Q1b0DJL7`}t0ez;?
z6t;3Yhxvg#TsW1FYD4u|UnUika|iGe=7uF3*aAIPSx3cE;)KxTWbVfaq(hlFNQ~*~
zAWSJ=pC%vRqWy9b>453?zRTF|nMyLlmcrg{FRwRDqP-m==<6$!W{`)Kb{{v$e7H<k
zkKG%|OKgRXl#(W9w{-?CPi{rvPU-KPoGhkTGfaYvX=w@pdnU=t5axRDwdAE!1ds{6
zpREvj`hdPBy*Z_sKL%P0F-(5lYzE0BXjXl_i8CKlQGmGEvB~A(0bE*+!W3Qf=jM*N
z25i{Lqc;bRUC3tBdf_qKb&PwshT~2rIyC)UImvJ08BCEIp6DL~m2AI!5~@WUoM-fM
z7c2SD%k7P`E9SJ7M<gudtpf!)Q0t52rV|sN4({AbZrj`f4qXA&gxw5UwN)PrCs=`M
z)PTYqk&p4_jBDL>cPRrn6$^w_pkxmMV9<tXr$Hxv`@4f;t=P{M8so|pb;#t)x>^r@
zGVz3fR>LTUHv7X5XT?&aoY#>jg_7LN0m&CUyxd!Mk;oXE_ZrQz0-+lN`x5{}4e6FX
zJe=D5Mt?Pn*)XS_uE}!A6<=?ELuQ(%m0gA9A5Y>}BHazZYOW5MFU{jraT}Z-j9av6
zax<q#FTNH@ZJ2V8*a6m!H#Fo!K2t!TZ8<7hK4O5=Q2}pGBd5Xa>gu=rSZ=|7CFAgp
zguHs4IkP6r2B)I2e4=G}5!zdZ?w!_zcZ%#Rl7iEyZXB3Twa9FliQ*;@GZc7F%XWEH
zliWowpLf&NHUNf>I_HSlS(b*MxU{eUj7uP`a-oFw<;{wEQge+Ne$qE;afS;wdZ|bh
z8VG6VUtxI@aFr)E&xXUYPQe>;uMXG?Flj^@%q)}t1fGAQ0~uD&QS?>G97tTcc$t$U
zyd=NYhq{R$CwCi;@2iz)qn!jVOKkCk?Aa?R?3GFDO``*}X{+;_bw%{Hp<Mbf$R%tq
z=)!xJbBL6Z0i?0c?4)65rv(*#u^4R1fCk-5#?@oXgAGZxcR_WH)b-$CT0i;8fSQFl
zyy^4=dwpkSs+{nw51jUt3=%ssXoyg4MSp#4Twap%efsvWj)f*XJ!A6w^iMCAWMTxW
z9zmR&>l*cF6fF(-urw+FWp4!{T?z_T8I7g$a?#m-D*nasW)V^}E&`d1%rr$Td^;%$
z^`pt)l2Paqg9rXmRduFl_sZ|AP=ezxOcRHNflq9JU+iQaTS+h{Smu#~!}&kpR%)CL
zf|AN8W)lr+Eo!jWq-;<Tj9qzcRxTGo5QRYHyzg5(@XL>(6z^l8)<NDuQ=Fb`Pv;AI
zG8RoQCey@@K(J-vw%N8znQtKeK}F;P3RuRCpn-WdrIBXBvc!nLg6Q*`?PLNDkL*S=
z6xJ@Hz?PskHP7vFtT`Q3E>z6!Ze+nFQ_Rl0H!J+6P3C@mO&KvwX6UcK{qnF%r~D64
zg9xznP&^=A^LHc+*^6o;%|v90pa|F9t>c}1J@FO?n@?inCBS#tFoQ$SsW=is?b*aU
zcTVe#PqOiQxUugcUE-h3eSNc%c)YU@acc7Z=l9tPQ&Zezwk2^qcjWl;-a^mj!SjhN
zp#W$&-bv9=0Bf>2WbOsjyV34ZXXCe6qcC+6;#)xJBM-YKwz$4!lgp9XuCb4Rw)0z@
zL<SU14P-8U-DxBb;Iv$4Tkik6NEgF@c!7ZvDV$O-y&C*B%#zkhekXlCM56XyAKe`B
zPqs7_$@6--*$v)bcp`yrZEEzZX$y0vIpd%Q$!tk=bO*>S?;s&1-VlP#p_!$WU%e1h
zzCz5dal6LaQ3x3OZXxm+Pj(j`R^*y5@7=43Py<8XX0UIGcHHHpR%I-rZ2m?yyiRd!
zFZ_Q3Z-Bv1D+2)bd)~Dtn3f{CI=}j10Du#V$u>xv3ym*%gY9W!H&r+}Duh{{pM;V*
zV!PH81*8KmHSbu!o9CoY5dTWPyYuR%%07<enI1_ZW5Q!n4a;afE#h=Z(;}jJ4E$GF
ztfJLt=pGB{rlUp7#GtFajq{8?>p*#tp94N&dQkM<&sy>)0BT_l0X0O79m_gToX8@m
zxA6YRlIEn=aN)Q(9QzWRaB}L5bB4BoA|gMZLm2G$^6&u6P&&yzc#=b?B(#(WY8}&z
z{RI_!(seM<UeRBuu;P&%8<zgxfo#D?Oi7zjWHvi1ZfhNAhH@j><Aagq1;(ektTBK_
zBzxn^G9PlUtdJQv8{`^_5wN|<e#3^q5*qYg8#&d%l^}(Kn4=L|05AtG8^Vi|R)FI%
zr>R72`PPvK$w4?O?>O6}V2p*XSTdr>^9o7wXjr`(s<C%H7(uquH>cVIYv`)D7k`Ne
zOQH$ywsCJd+l;c!8UD0#vfu!|sc6mHj?vz;>wxtBr{2(Q+&bWPpsKNe^erfgWCp*y
zHlBR&AIbp^ciqh*V`Q;VLeHiX7maNeDt>?RTL=^JW+ismm+)9&3N8K*WrL3QgiwY1
z@R|x>*uRwkkU1UK4w<qa%_4pAnu`C>T)LdXR3~s>r!Rg|;|@EL;OGW4n$GXm(PlRR
zJ5CzU3mfg3()_2Q>|k-~MN><-EgXGAqRz3tj|T@)9DVhpF#<BF5CCQ~6IJ2-R*f6!
zQwp}twp@Bx`HEhLN-`rEkj87&B0e`*sEi_=;Ovs6V|O`ya4xu0IA%FTVQtr|s7@=?
zkXB4K;o4vuWT3xec|X(;<$Xx;!TSybP;7b?I_xH`2G@d$<EF670H&nj5gll-EtAli
z|23y+c<D0~w;t@s_qSG-0K%Ic^fo&8BD+y8;jmwN$D#b??)eb-`!TQ>0(4iO{gBTY
zV1N~_Z{G4({7}I;+rlls0Ldq(c-RE#(i%S3vPb)&@&<9jw$>~O1va*`0^HqRU^tBS
z^m7ecqaP{*p^tiD7-M~7A@)sO%eDi~!L&~E(~7zox(ud?P+_(8$F(2Yn`9PX+~HTC
z-o!bZYtW;}<HxZPP}=y1Ms_pWdVuS%!pk<(!e+-Sw|~6plrJ$T?kjDrRBPRS{bowO
z)LYFliB%isQ18?k&o-MS8&boh%6-YqPtk525^XuElUEdA`m{-N(YC_vT<L4eD*6a$
zI89wkkqvs|2LPQY68q3#bD0Qob`9^P^@NV}Z0hivEOe?1E$^lM3bZN)XOAtfN-Sla
z@<H*5-s=Mab*tSeJM7v)SAA7D^rMiss-V-4YmmcIT1Igc>GsC9f14=`wBX2M{x8*c
zroALn23GV@-F%lxBX3r6J`QFuT<9G-Bg59a#<Z*`PuOQ5TCdI9v0xUdxdP#Q1-y)c
z%bolku(ggI0G$i?CyrJOeQqv7tT{aJsVcR&6{ZGm918-~xLR<*Jzh}ENzS+;R^X(T
z`&E`8&v*B*BWedpPIpdJLy9bl{?uEZg>03B%;*mUJRF)vyaC23YuYIGOfr#uIf>Yk
zy~;+9&smdHM-0@JCO>SlV4yIi!iOWu?slvz#{?kV%n+i*;+Rx=SrKAfesX~iz*$=3
zKh3BQhGFnSKwMs7t+iOv^@E{BTbbW<#bqKz%G1}1a5o25RP{H=cJ4N`ZiOUfI7XZ$
zx{=2Omis27$VLiDSdYq<c7AgieFT1BI?p}LlpncQs^&7Am1zMVzaJNy5%WQ$0az~r
zTq7|+I6u{btHWx5bGKiUt8k$>d1W3Sc&#q5nnT)&s)WPg3UGo&K>9`e#o<v_OPKFf
z+|-V(kJ9ITn3ZaNvs>zhKC%9b&pS_=IShZ0W2I~X7^gh=8(|8SJs>hn?Zth?RiU~8
zD|0~KoR(uB;ma4n);38+pim1J&gx)OhV88-3#7U!y_jMgaWiOqeG^FRG)f=|CU);%
z7_d92&+_C@TKxQG7nyDmN~kka$xMV-&HVP9-&7)pz-pFb=pmqT_WI`U%o(4A`_v1<
zRswgiI6OC*ZG9cPMLhTkI=%4@bx+m^mlR;@fBnijUU;0lj}Y4vKU_J30W2Z+kpVVh
z!T1Zw5?cm(Hpxm^klvon@_$-R!;Di@hmWD$t{p1E|1_NQJ)7xDS#<#b&WQ?RchmAW
zz`Ib>PfhyqlCr@Hd!7Hh4_8pw`vFwH(X*NG&*~kN6kz_er)F7e2qg7Q=x*0PU$QXO
zR9M@r0aApS;`b=}NRow5MkwVoPU_z^1Rt?na6`tLyXi}4`h@M6(tL1xWE9e-{3>+<
zm&7;nFK^^=zz3H@j>2_YXuz#$71DU+(jyQ!It;UJ`-`EDUn1)~AhbbpISy@RA#tw{
zH{c8@X+@1G`TlZudQM;Dgk7^O7{vA9>p?%)x3G}8Z*1X;RLZcxs4tLXetGI>k$>CD
zr~h;6MF|ZG`EP*xUmxH`Z-qRd#XqrHiAbAgJmVS!fQC>Lx0##DIF;mFf!@ZE_2azv
zJDwl;;`0Xr1-l=Hw_5V5Y)tE=e#NQq*{%h1v3BbT<-1uV*#iN$@11@2k=HJe#o9rK
zx9dx>11L>oE&tsGcbs#^LzXeBSPV9unB_@YItXcIuyR=_`CUs1=x2vP|1!&i>E|8p
zS|y;6!~CWT3q^EuAE53#6U6fdRB3u^XC6MiDL<HE8+e$*rtc^e`3n?r{3}gpjXl8&
zZ|qw$pYjVp9%d;+#Z0M8al}KH0a4bs$OBb3*?tvstIX{HH5%!K%G#le9eF8Xxn$GX
z$$msUIwZKfXTW1W_OG=7Q^LSnOCb8DFKk+}YT>Zuw^3w&_`l9amV|OQtCMWmhSkx%
zSAhufb8Utu{yOp4@f>i2;iE7GPoDx#ss%2~+v>A-*9vj`=9;Q&<K45%zs~wi9Shq>
zsB^%E>R3REz3YE&C0W256O(>*!KqY+*y4j~3mGfGaUnqqo4_ffz$Mzzyg_96(&EX$
zUWR~eA@)r@FVOiAs;O5~j`Og&#T_cU(e!-U{^pZ>1a>IH;i-)N8;GYX{40(8AIY+@
z+tT*v%o8D2wB`d~t1bLx0-LJLq)12r)V(G^?ZmJAE;H(1u>deru%$k8s4ttBXo%WC
zU)`IREM`Z%>^T*1{|B!ViJxTnSH^2Of6aVIy8J7cs(b{QS}XzAbOd-SD6|&KPyCAQ
zE$;!Ctf^V8=BqMqn`z5C9CuBVdVR~svREH4oVRU+-N({RuydFXjm<_;)-26LYnUG`
z0*AJkG-0HXAKg^0(QdN>`4KZ9BK6{|9$XLuO4*r2z-g;w`ON*95+yKXm{ASHudHm0
zs@(7v52TGI@*AC}eyeA3!O=uu**gnfZh(e0h7s2H)KQ(LR2xSJ)Jp2S*CCQA7TJ2~
zE{IjJrS-<O2}>waqO7kJJa~3F!Y5fyG||e@f%On`2$&j~;=<Wwlunn0vC=B2lQ{M+
z^Go1;gwLZEjO)o}%}ncTYXF8oaXg0?*{UGK!%6)aQQZikt$V;}Ddc3F%JdprltiC!
z_yvqOFbslF<R#oQoCtC$?jhToj*Rbb&g?Eia+^;MO+R|bYMo=)lQoojqQ&+`Ev;&v
zAAY&xOdyT9)|jXJh256#t=b3d!vAAR;y)-$|F7is{})ov!511iwSTDM)<kA`qp}Bf
zY<Ta+eco9kzXY<B(RNlKWEee9Wb}-^ImoYH|6v6R*=gZp6DawYnf!y*s=nHrDwR>e
zW|KCI(L51O4&oP{5UT_cGa%9rAf+MN4{5;qc`so6aM6Oxd^3Lfd-`c#{cyul#K*lq
z-{XJ;;Js)u3y=n&%9vF4ltX2h)5p?>TaU@7aF4kL?<H@3a;6Rg+YsPC2G%Bb`u8UJ
z;U4{74|PefsfecjejBFE_c-j%4N?}QABg7pew3lZE!}ebzO!tw#V+muXsu|nVNMw^
z{ojU|UKzQz3U{*sVCW>M>fO0fu-P<}tt0mlK66jBZmKvD-%6`{thrrW#+*Fl95ntO
zuf8`@#>`*o*YR-xj5)`V9-j=h!2Ew~M(2NF)c*rhQ!K$5T8w$Kf;+sxc5#+hSyOd(
z$TYJwGj1dt1*=wb=T!pR*eSKJ&8yxWOp_n1e)}()9j><!JJAy66y#2mJ52ti`R6#P
z9U=E<aj~kcRbei))o|8&6plzU0qMTU%Q!tZaR*yaH4re_m`~c<fk7MDIK=cCyW!GD
zfB5aS=0=~?ZmRwYZuWU7K!#Ore*}DsXHh_F$yX11gb1rHVg*2Rl+?0=TZbXK)%U6D
zuxSz!)&N+i7!M!Xv<I_U#P;!ysiAxNw=K?rovDMxY_G$fm7r&zVj@2FsNc=DTk`b3
zR_jw1Y-X4(Zu5?0I;r8?tIli7My;udz&wBf;uIWqd<}uWAGDy5vG}zKwY_&jWHraG
zrGb^v>a=jMX@N&tvq-8K+~2%b=aaC;Z;CDT9=sp-q{w1ed9=~V=rr{+j(Ws&AyI!H
zE0kf`z{rA`>-KAquRS3oS*+@}`&hh%p@b$X>_;Ss&0w2IpmFdeh1Px`!Quca59?lE
zSwk{&u<YOUxFmHUs||t$W=A^$=;r(=f<naZ?vqjOU-8;LfDU^3n-$QI-(ER@+hd=&
zv!VQmEb9RP17gdoI&ioMR9s@S7>ja8)X4j}gQ*xPT%AE@Q_|Z$5)x{TRsEUBdKf8p
z4af;_BQ5w$7Zmg_*0K{0j(<D9_y0vEO8<AL6$@cF{tg@={~%puzk%3W7Gt`n2FbN7
zQy5XX{Rx<V?YM^N_Sp5Nr9^q=sQR*8ZEa4bnM7Hlm9K=z(qBM&T?@dvBfG3ASkKIG
z=TShW@QR^ynh6^hJ9?^@sm&H=tE>MAuCrq0N#jo1jkkK1PYm71RYsoNtYp3DaK}gM
zYEhVZ(C5E^#RnWCKNCSqDXrv_Ic;;w%Aa-+%r(0$Lcqz1gO|?y_dG1-){<o)S9O_M
zty=4t{SvCx(#}TA@^7FcEkm3L!6SD}`O)GQ6O2m%lNJmtkeY2mG6JZ40B<>jcmdNE
zW=eZSHb-T_>*kl*ED*>Xs}|YwP?p|CE`De-sx@n~XlY#FhqT?bQ)|&o89-{H_s;&0
zBwVNyE#*yTnyH(GgVn^_ucRNJ$SLy-qX81OGzWK|MhVKf%UB&(XDgaAh=mI)!w5Z7
zBo(XAJDSJ<6l&+Y+)2JW2<Bfj)WDXea=>mZ65m&3$D+^i0!zmS->mqU$ro>wz3<o~
z-^8gZU_ncV{$3Nqn%qlDKgC=;HWb$XujN4B5^t(h>~HmV4gU(P{8<bm_W_&QuwE>|
z&LK>OM_P;gl#<xJ4`1!qJ2}xYz67f9FM5G%np|KOcyVo1TG`clVjKH*q7Pr3N6WW{
z6TOuY3>{y}FmnltZ{07S*FC%?9ER(ZU!ck}#xWBQ4VpI4)Yt1zsoVHq%E-2S-g$5x
z)Q;3bDLV<l`h?S1MbaD^Jncvk0}6z(_c}g|8h#6yQ-nh-m>IPOrSoe*fJTZu<y#iJ
z4b@`c%-56TV&}wD^_jhHlS;#-3(Y97|Bvs@PlD|lTPMZ9yZE-@jj6r+Y|5I3=t0{V
zhW3>j=-h5_Rr%V*U53TRiY5~k)ifHuLA9U6YBgy>XIQU0z&_{MI7S20)IN})_Q2*A
z$?m^g;S2Q}hsdQk2C4}NNaMJMGh^301iqB2q?{^Q8@furD6!YR4f`hXer@;)wW^7}
zF**Syjr0{(4Gn)|T&(w)x7R{3RJQ4442iyo-`E1_(R>20B~uY7Kl`A}!{C+2s<l<;
z$~KhNKX@=tmJ<R7+Z^gmC%Z3}l-tgXuOXWv7Js5<feNd~hQGz4T6W4OYNj&cG*z)M
z<xDJ1LOwA3D#^^DYC*w<**kvRd`GykVyp&^&2dg$R0`Cmy*KLvp~I#r=fO4+!7wo|
zFe-xA&eSf*kxCG`FzWfhkoJ;QLYmVRVYgJ*Cg)Ux&c&J{R4d@jUZ93*^!B&BOh@O3
zjDm}C^fa7v;S|)I8MeQsuauxE#tfo;ku0t`p=0LIfA+0-dz87v3%M~bHKA|var`P<
zPWO}&%M1|C@|pc4RNU|-ra6w6G}!GLbggEr;1m#ern4TI;bev`F{{b%RB4q~5v91c
zWA*usQ=-t(_|_4!Ry5KCnb}j4)=L)D-*d1@SkkxG>Ru06DVKIYSuD6F%%RZ-{r!@u
zTd2$H*e+*ZyXERJP0l9WWc1DM=~w26A#cxBVe7&Jmcs`Ofv#r{PP^r~_`BDPK@w}t
z>U>tKXq6+A(@NE2Hv?53t~QNcX=whsa7YLPQQ9gDdb^!A#5@3TqZumHv_f7`SZc>n
zZ{MlBwU)K;Xq0XWv3E{TKtg&4N9@Ej|CKG58$jgAeb+*&phGC_<Rla%*cVX`(%-v4
zdI!w@l#-w6@7cNyeMGACpxKJd;R?zd!+$WVUualDiMRD9up_6tD&?@ouaD)11Qsdf
z_Jh;=*dCwbwVdz?7q{eypteG_s;|eVeJ1X=5j-<(Yv@|Q%*mu76(ax6giYuFul_~q
zyWsOgBIU@R$icV?WEC>j6!JzD78bN3>p4*uwxhPQ`IUTfD3sF7yX6y@osZ-;ODYq;
zn{BjIdJ)JPw=`~}$cGnvpdWjtCW}0vz*OEdK&9~(7Am0$3@Z8fKqs@V1)7vvfaKTM
z19p;dCv_hWea^pp?AV7$$1^{t4kC<x|8VT+@jH2ZjrYE-C|#EI2)W^MB(YIDHTwCj
z7uUG2T#=RKIkMkQ_}E}bzNGNA!OTOC{!lq&e|4>sl0%qScZT2yjN(1m5IJZehX8C_
zMK72#!Vq>%uA>4K>b@MOm6NzOyciFad_lfSzNeR6h$_xQZM>(!Ivj@H47lL(0pb)U
zAqeue;?>HzAX@`#iqLDYbW!dnaM|gsGzosu@5misgB;l+X0l3;hcplGtCexNv#sF3
zy(=^#wLNN&na!Z3nx4^y@6S@w7HQq55fs0gtoY3N!L#M2;Iqqjh%YfdQ4$;$9BCX5
z2Pnu^k()D#Mg#uj@11uASIMs~dt5i*ok91m<ydIF5mJ&WN`0rTE?{|TC2U!U#(-Uq
zh_;6tLw&lwh)G5=4)L@Xhfz5V?$<IgW@o@hU%eF39&9>(6=@Ib$<J7yjFQ9XbrwS<
zeMwK%Cc7U>Xcqi5A=hU;8NVzWddEQTS;Y3XP!R0(@_}%3{cQ!NBO;7mY~|)Ib#Hz3
zGTD~1ysK7a>oxevhGd|90&=G^tjWlfBBUf&bTRaZk`(&l@%+N+!Mht{<1x*`tDVKV
zsx@bo#x4XcQ!Lp8=Ib04=<&O^Mmn{TpCWLQ(J3={s%@{DV(`17K_vm!qLfQ;OE8*j
z=<&W{EeqDatsT%=Y}!*)@(G-<cEJ5W{qYgiDe#QqSM2V4BQc0hw?3JupU|HdyqpL<
z(sDmuE%W<_Oo9BunZbg@T<IB{)V;xXS;Ad*nVGLFwDyFQ&aqi1S}$<*weR^Z0;U#I
zcMjeTzB<<N_;Kw^EsD_RlN0JZ`4@sE$E|Dkm&%L_{65^aZ_yfV@%)PzVkr`z7X<%J
z^x)!OPqF@})`7W1EP)0ocq$obDA+nDabr_-`1@9~%29!$-aslArbQlqNl8rhsUzDD
zAR+t|^+%L1%}uZMpKW3Sv0e?p7?-3QngAR>@<U_oj-z4w%0Rh~*pH2sWGFck=Q;Wg
zyrvYW{j7zr{vy(INIgXF)1MR~sKWH4%)7zM)$faTdoe3z+xQ?KZjIlra$Z#cIHTMf
zu%IzLSnzY;U9%b_J|opc>y2kX@~X!diG1mq!B^EU$_sXRc6J|##Qr{}t!s9#I*JlE
zzo*qz&I$YdHK@>EuPC2<`FHr~y>k_e7nLgxDVh#tZxozC6Lr{Zg?Ed(Mh(=XuWDd~
z6R&qvPd8**Onq`o*UiEgN?F9;#;F{>y=X!$MqF!4T6^mqKIR~#a!ieHwj^2wclGjf
zwA;sWy8ab|@F4;1#F}n<{kag2MgdZ8D7M5IsOIG=+0rBagi_IymGa)WbPFxUZoyZU
z_}rcs1P<of_HhNvzW@lfs5a<2%Rnb~wKZH9DJmgfUjO`{<zwe~Uo+$njfB3|akaNS
z9*rb!5#>sk<EL|d(m+>j^ok^<!1;=xQ@zLXU(tFW3GDn1F$P^S$sRCP0z-8cYINXA
z@1swCcdmXa*8D;oA(-zE5%B+b^W~bxU`$q{g-7^_b7;zIf&80&C8w9hn!ki94R$+Z
z<d~o;q-{&j9*}>YI>|e(UiRe9h*!UV7Z`n`TN68;YIR&j&q5}J>CnF_ao@Z9ot>Z@
ze}*RYWsJ=BzTKEh#@;WWQ3Lr*&APAw*Xy^#PuKyPba_^4!`-twT&Ga2sNi;ZDv#mR
z!A(6Px0Q_|G-DI`(ge5{3Aw?9t52vJ56oyh$w)UT>Tr9xMotlu^EcpiAD+G0hsw3u
zikpoWYc^I`m!^>nP^V3n&l5AtW<XIo{O6j4Ln79hdU{G89T$?Uzy@<B+A=+rUU@Tc
z@w>CS{i{U+<X!*j-S+o3iZ;eStLFSWi=SP_wit5nYpPCV9;*jwWe=E2ftfrbvCA`?
z)r)c&ApPBzFXyDd`~_=JuH|RO32%%V5_1b@2TNA0rkmBIwBxc&itIB_s-nHE_wrPo
zxzU41xcBjU$T307ap!7XgzayHjLFAvYl-rXBl-p`>o{Ram)<b)tu>*7ae_sj`7>Ms
zU7DKK;6DRwq?g?LR}XM?EsDs&LAia1^-}e2Lxz}?6gci8An`(LqC3@h>Vfm)iJoN$
z#)+%7+D)#X>sLkvLmWJ}4qX?`DDS$w?$Q1yDKkng#^|0K7gkcEv{2Xhr=Y_m{LpTt
zZGfwBd4Q)$0NL+nRdHz0?f4UNMdkip_SMaeU$^4Ux<|eWAZMM#G1hy642`pemTuM;
zm&b=p9Blr>1S(VJ5l#>)qss>--JPS|X`HGFx;1K5$LlMY%@}e2s{wn3Fz%oi*!iGo
zOfEZda5Mh<^j5q7=VH@{s<&itOUiQ0(&jn*%7Sc$pGJZR!Yl?4vp8fZM8$nl4e5Ml
zq`^(C7(PL~I*ZPKix}M8J&?`N%%@c;#Z1=7AM-xm`sPyCs(zr_<;*`w4K?RfgGvFR
zI*m>&=qR374NCM37+52}+R{r7@X+;0F_u}}bg#2HRHxUAYP>vlV)H0NzV<u@!n1b0
z7lm9IeRD}5zl9Qn$qm%LD#zKx>64or+2Lnn(l#$xcO#u%+QQ$-dkz|8N-@&v`t1E|
zXtX9wp~y80=+fYQMYs6dgDQu~ivuf1z!vcIQRbtxyxZaSqq0yzhB{xy&<Azzcw_Yt
zJevQwJ8e2%5K)!qFE3-8>FpR2-sjl5ru_x#?PY8*VJ-vK$D;5Z&x{5F$fCoug(RHR
zS{fi&uLiFc7>qD4Bk9xeGy|<{p_Zo<nOZ(*gs5d&(N{q;8F1&z6PX()KW;MDgi!SF
z?o63e;O7fXMx(JZLlT-R5OH;@j%V0E_4Ty_I*M-q?C%5f?mVi#E_7;bH7g<ek>6C6
zdUj%T(UCs~s`&_h&Vh=)vdbaYb-KwzYN#mgquS<Pg*%pEu*r<sk5^Z=Oied#v~!`2
z%eN3BM$}T^2T|DMD}m!)Skxtm<V%wVRm*#UzUa-$>-UyOmH6Gxsz{q_{e$wRgy3Ex
zoIk9+Frj<v8$@!P+_?WC|HJ*QVy~MrwnW|-(S^c}`JVik{A%hDKlf9(vX5UFe|D|I
zr#bF>wt}w>#oT=Zs{2Zl6z7z@!?oS-UCB__Zdk}Xph|atcF8)3niFPmDF5wjfBlNp
zzKcZzA1>WWRtwQ%*q0u-_>4^G2?s;&k8fs)z4n<@3qS5uJ{T0^{7}v*u{)&t=Wo7u
z_GS%lP}c4y`+F3NBW`|0<%Y$dI9*g8=4H=vFnixWWm&%xF8Rc>^H-xFD%3(s8+v15
zoLA%itx*?ZW$`ZRd|jZLzo^y%4-bhnch*Ej;MJ=ZYZtz!wE;Q_8wO(n%P=)B<`MU2
z+n@W@k_^WUvM^o_1@BGnDgoyD+^Jr%eB;ZALfyrIy}-$R>V^T2%@eSf%U0_I`v#&F
zbE6>wo!^23A+7I%uk<`Zu7s*g3>U@;5#BSRiWg};!+#P4IswwjYAaSL&1#*O2dA?d
z5rdv<dDA$?V6Q_)iiw_a{_Cqw2oanrw(gHwvu8%T714FlDR4_uSioatgMoJ!w`FeN
z8=8s1{?<3?a|MTQNxTozt|lDgnW-yKKb9RU|2gQV!flgR{Q!PCwdVe28k{ZaMdAg}
zgbi+U@m7(-s;XpHAC#MVHYqp6U@SEBkZJbjr-8%oL?v2=E5*)NLxgXOY3YA0S?F*(
zwo2B`iJiS%BrZKO)_f?Gb}48z4S-Xx216PQN7Qf7yj(U&fwzsMv`^k#5PfwQM#vcy
z&K$hS?0TT?bG|;?)_fpBH2l>HaK5?TiaXDY#PQe6JxjpOG_IT~;Q9IhfUSvJig&^g
ze9vlwU>}yIjb*^tr$hMLr1^1%{dumg)++<B6vcVxIsN`xdm~@<hQS1EZhs?0rd$xw
zMi+Co889XbdE7S0mSkzAOoVtwT~=613frz2k*DSLzm!P1pPmLgwVgpy8K=mZ2h8rR
z7d*(8Ih#V&zo8O8*;Df7(@o~-z)n*C<J#nIwMHL)jkp!&YMVp#9*t*)c|jIVPRD0d
zi>{n<AtVDl&A8Dc<0ZVaKK%fSxY%6QNbZoK5X-jJPJaXlO>mx*?B7U~1@8NQa_fA+
z7~~^_l=oOsiE;oKJzdmy93f4@C4>2UZ49!{%#4i#uIOg=t_uOMf7U{(h9i0yUZV)$
zFf<=?(`WtM`9a3gRg-a)`<^-4IQ^e_@N3lx3+YRVz`@Es-`uIO#X|(8KrFEQ`9&pa
zZf^p5@9~oU?efj|D_9n5^<`(170V*R9IAWU(lHyzu49No$g;td(Abk@-{R1@=AKgs
zst#=toVTbPD4|uQaZ~H7b1{!<P~WDa5;~_N^g)h4+4LM>;%0Fr058|FO!U5A{~Fq!
zD6{C(UUtC?VCAC+*-b)V(ztA+j<l_LL&1R2YF^uoThmi#Bb;ZwrU5J`Us+@#?+2Db
zE(l-uAH!zm`!hQhVK2XmA)IEFSn8zP5pG;qW4N-Ea2_)yUC}FBcnl$N*`dv6;HeQ+
zZlvx~6TeE27(z0y5e&*JAIPs9#*MhT7bLMzT0m#fvryVQtkznpNs%yVY`nTz&1_=V
z#h%5_s{lVqH-cKKUG1vg-Hs2_nIGp9<sU~Ftk&}SURn-nly5Zb#Vzxc1RMczU46EE
z(-k!FUiB$uf5d@J(<d9Ll?oH^B~2-<Z1rQa6Q09cyu{0aY6pS~cDk2;^L_YaDfR9d
z@W&o!mUT-`+&Vi=D9Y#I7Y`Mv5UEJ*3k4#n!9}jQ)-u@RWyKw<#Xk{4ZeT-xt8TG;
z$wP)knkkpmg2b|&osa*}fSp~I2L?dC{oZ|GU+wSBx;L(wmN!fo-xk$E@zmX@TWJ1$
z(@rh>d^d)AboOz)vm%QBc;+YSs0L|J>gNCe0&c_uh9j*}S>+r$=l<T6BzA}+Fa;7S
zV1)VKV=O?)V_;{zj1(k32Uq3Y<(ZmX2AHXr?>cAWV&tDy$%-Gp^yi6ad-WqFD&kv;
z<e<}4qx1V`ewu8LE9*8mo661(q(Bh{Z<*BZATC(zzVREIudc=w(%xWAxP2%>V%W{j
zZ=G?AR^mX2qw_5Sx?VgS8VWg&`rhWYmSd9k+%S2SEO6Pw*uZXeY&_*}ay_5)>>Leo
zH!quCdoD*0)uiPG2UhR$IO=6TF)->Aig@!Po{&+$)OIG^D9c4EDfb%X0O62E><iPL
zIM{okb>Z16j6&38;-B=>?bIK)Y0`$K<(n@m44zH-3;6$XpMzlDuA5k?K+_3hz<z)G
zgw?3i71y$f)RflH@U)+Pj!in0ALw&yWETI15&mcD4$F>Aq@D-s_n`37LFGBaS&ed?
zH4P=9K{gXYN=ijTzxS>>B%hra1{TxJF(uN?wOqdy#Mme!_;$J5%bcNt7oTWywH~m&
zb4%Gf$5^Cj{vPqK>v>xj+RJW;9D+NwX8Ed*GVkxTjStcwG2FePI`u9=l0Q<L^f9EU
zq*og^9CatazwJu2?*@uQF?bvzDLO*0{l%6IF((g^)*S8>yv}eTaXLuGJBIz1?fii2
zN9w9RMkT84K>6ADdv>NO`}k$XZ^IOqAGSZGIvn$Uy?5b9M%&Y^yP2vq-&tHV5NTeF
z@bbQH@3nVE_tn||{`)V+0b@-)%yG;Frl}C0axZv4<;>y~r-^qQdmt6uPKE4SHXs@k
zPY?}=VZ;E8NMuA2?yBzhyRn?-WBRZ(6K_3T>X}6nJ<@Ez>pA<SDkl*l4dWFf-<xlr
z85vy&{0fh;W;e#QU3EL<TwOtR_MB}}j>=5!Etaq-3L2a)bFQNYEh-A1*KJHX`CU~-
z)3M9zP0ZS%oiI@1&)2Lv=b4aY!jWd-k>i$H=~%y#nr8K7Q=)96dMG{XI#fzm3>AqG
z?E8Asut6?)RY+|(*A4i@mPP#uROCmVy3NGO=ij2f?cIy;_z<l7N*nrHcEGA&;drX<
zHm4J!?efx-U)1=B>l7*c=!#j@!%#UTI9hoho{m4!y8r62k<d@uo;>`#jUx4bzE7BZ
zI&|tj@3JLP39}W$y)i!IF$sxE;t=@?-=T_QE|+bi6KWfHHiedB<0%iZ{TnW7myz3H
za8rjitUJ%uYFv(p^-@#n@*iyz+KbLU*`&ljo5XxQP51CTLA4G^w;yze5zBLE8^xou
z!`d$LGU4TB3%4hjKp={(Z6w9ODE!U)HWhs(e^hO&w5yVTC$0p-(EbuT7B@5}&%JNq
zPaN9nN#7YmF?8yhqHvO32CJL$M)1WOYQuRg0=1{v0&2Zcv{tZPCD}#U7yi0`ZL2ls
z+x!4_tk{;k)CmCeBLYb`#5cD2mNB1}5-S~kD#N>$`Qk*q91KdGM;4-uB3cjw!o)bq
zAx+p9@WxQ+-qT9zLJ8F5diK(Atj-{B?pg(;<(io7IWL%tDaFIlE}`*{2&T#FO^wr7
z)zh^Z-#%pdH@BA57*L#<qy1Q>Vs0-7_34o6S-)&pZ4y~kCU^I25>tTIDK7pxLaSYw
zEm_9hR)MXiZQ-{XCJssdW}<$lPxvmjT0O+VddIKrlNW#T*oUU;LNA-VKGdcy5?kW?
zv!j-V5l5a`cyN>KBgkS!(RA_lLnGHx4`oxPf_-^C*4~4bM5~tsb`Z!<q&Ev$N9!&Z
zRMj(NaUYs8F8vnz_|i#AapJrSG0}W0vjmcc$u-JMH272V>r~qf#(T4vm#ybxnuOS-
zedo}N!MpMQ5qPDhEqwCU<`vBc+4WN{=Y9A6*qD*J9{UA6UYB1v`O*J&&@zl8MAG+<
z9~+d7=oxcP^?k9Nn$O9q3V!&H8X3MQ#*Y}A>fxLC@#7)Ka-AWjvHJ71=(r(}I=~q*
zb;v$>PUY&cx?0>UnwEkGvI0(GSr*k@<F~I40a2#B<Q=7oea#PVG1?4CSNBY-VXyfJ
zAM@#G$z5+=<9ke#nLUkw9Ko@^#dA>cAAHeX^Sj`O4{BD*VvGjzO;tBI4HAc-i%%<K
zwOt%EJCwIWA*REU0$qk|0YY!`^W$Yw(pVjKKOO$KPxLAM8+?7t;*eNew8mxGrsE;g
zk^Xv^Q%0k`;}Aug5<bH3o;(3DwF|<^zsaRdCe+dsg=vHCP|>v{Gs~ihQ=4x&UDBek
zIxd>8?vmc}^%d#3B)(O+a-|@eeow9Li367SGVNq-SJt(3Y>fxE&-jpt5J<N9(_T>*
zBXm|nhGTJJp!K89(%n4SPH>Fo$h+Vp4g#;su1xw~01ta5--W&Egg@Jcem1d-CtLoa
z+9^DHFT3%4On*V_<?R#GNjeL=qfaYQJp5W7X_IIY!##L;pT;?)r}L9-?NOOA!h59!
z<k*I&STkD42v$_QXuho}>S4-F628t&{LM)mFV#UMPMqF`xAEoGXSZq5_z3mU0SfM7
zP^k?~GYVFLq{>M|=hG)u@>=~&mxu@IWvwCK9(>Qvzk)!Gbkr6Um&-j{xbus<`T48z
z27k)yejo2<?0=y9syamZs5Y5laS+RYc*3DtQ#G%z4C8Q<3HPWeJif+wpgQBeZ05z0
z!)Z&{X3C#p9Bnd^#%;hZ3a#wPVQ!YqxU@g*@ykA>@wO&h6sNWh=iSx!+|s0nGLvkW
z-uqydxv<FSNcaP}$=h>t+b*9Q@2LVbPhb`3s;6_jf3!%FGgFfDXCx1%gz8rB=49aG
z)L+7F-zR?WgwJm?m8@Y89@C_BGt`5ZZ@+r?JGY?rlNwTmtya3k#wbR!wyQaH`Em2)
zZZ5vR!EDnFv&4gMzG6*)?@C+L-blCEEW;GUgg&O`Dct-#5%V&}>s)|sVVDzYZzHRu
zu4ZhRgXqJvMkA=^dr8a`#k_o%Zz~{2Rhm@}KDejnxs@LXaZOr?A8M1A?r|EgJ(4wO
zz1RIbh^n{Q@+@G*!J_nhY5-HGWG8eMEb~xrGx|_WY|2E+-O01I2X~>KTkpVB`C~8#
zPT0-#<od+=Xu1P;s&Lu#ibLZbK5r)FSlg?!y&&}vDc$e&V|6x@N5XkR_BpLz#C(io
z65O)I@@58QGMQ(rVP9VO#|}(Hsm{H=a&jvAP{1JU@YRG%VH+P}Y~qJ+pl2RrX9X<R
zs$<ijusxNS{%0T6$_ghojEvPq-~w_<c-1wh>qp>vAw*lT$uof(*M)fSwJ*P&4&q;K
zJ3qK{gP0iz=c9A?A@5qCvvxFZvq#2Bt9rNW)3&tJdEYS4Pzj1UcKKSMwk_h|xJ>|b
zMNz1&#K^E@3NAqNNl1;IFgv4b>^$<}yzVP9@Wb+V-1h&BJGJ+=c#toCb7<9QZKqr}
zB%zXXQ>LA(*R|I#22Y>7&9v<C$K!8@Q{Hn$Ia_z5PkY^%D-N#KIog_RK-euGYLh6m
z<{rz5d5LN}AkMX$G=z27x9jx!N$oU&Y2**fDM(6i-+55Ii_D?hpOix+JK6Y=T)Vi2
z4xS6zHO$+qPlk?&@xMB&^hB)r)!B2gWijVC$HIIVNj@_KmG^xUc{3s?MUOjh10h`=
zUoPL@a}~TnPSrEAY6GT&5nYTw5YKAgA6dLE^b8NXI^-TWTNK}W9j`Mg^L{+1-=8cu
zi;6U?Nrm4D39;Z?QgwxJ@|})<<*k`cX~PxM?c2Z5^<!R+*44sbr#~{UUb$7mkSL^(
z-t1%@g*-6yzn%8GX1+qpr)M!nw4*T1Bp*5WGmU}UpZLw87>u#|Z82uSLJ~YydAL~T
z)w>2KZuD8*E-7)Pnp#qeT#UQGA9qA5xbi`&)_Z*~{1HV1p{k2YrF?T5Z|7BFUcNpl
zp!Tx%sM_?;{%CqpGn6Mkn3>}%0%;0ZMDL_z*VNLhWG2?4`BqCGsM1aw$rld%*fefm
znou3*%bK)?sV|d<R+(Nc$gxAV1J;D=q#rhTE|OU>dT@{5gud1jVNjoJAVc-OL*+je
zo%MYiBKIRnnL|gL+NM4bya%#|S@t&mqF=ohjW$YRyR5@5a=9N}3us}Eh%2NU)V50O
z&U=@3t*o&bXpy+3NDIX8o(MW&Xuhsx1DduG+BU3fw8by&-BzA-6AvsD%Q3}IrNc|x
z)y@ZMpXd9Y0}Uvk`LvZN{Zzxs1YW64YQgdr(-VhwG7mOuE{25JuG=?xb#A1nO34oR
z5Qz1A*dq@<zA<{^d@yCc?ELV*Z2DiDQ#w100qsGRMA=Rl8W#wTMOVW%xYYPf7PBEu
ziJP`*SM)!!p#l9l){k5ImpdwXX^_7&M0PUopHQU*Y-5wQQi^-BV~n8DS;DVdp6w8V
zQktS6&o1@eXsU7<$!g)&rrkkCLqNWVv$@AVucVve0|J)`oQvSMi?YPL;>A&(pd9|J
z4|9D8HL+&B7-uy~3^~Gg;HsD{i5@E9Xjh%x6lEtkmf`s?kIJz@ai6T(PANH~!z~{O
z(bzMp-c4=fU0lg2ro_smAOP!<w`ZSrV`lho2U_w{`B<wcpgf!vf)gf}N~OmSMx6a&
zK3{L*@+~?qH4?2eLpiHqiHz{vkiG8q=>UiZLL1sOsE2TZMOxqooW!xgZu3``kG69~
znupm3sfS<>+TTit``fLrxwPM!%b%lgG`y{Q#8U&(;r3}VSw0ZxO?8m&`4D!~uz_1@
zFw~?v{QHaG!Fl52WyjKu9k-28O@MNYbH2aDcP78ozx`M4k|f9ld*+Tqe~z*%&qz70
zW0*@`B%o~}aGCNUVydp4Xt0XRIf08Xy}qR@&Xgi2$sODKtMa<gX*m|o{NC;XSx(#u
zvuo=*13fxxcc+YMs}1p=ArmLy@xd)}*5&vQ(2qj+mbg7Jm*fY~2|hx1RJQ<rGvkvQ
z9&Iy65v7{dMMF|-#hQ=K-t$UZQt`U>jA3Z@bFC-H;3<AH;W8OIkiKJA6n*mg_|GM#
zUGMg`l>`nR{4Z)iin2Sizu^JIa&ha0lJ2WPtP@72<4>l3yX|ucAtP^v<y%B@jN0UN
zlJczXCg1Y&7=Nq`R&ctLCP?HUx<wE&X|-It!Xe7b{E}TQ&sXr9SFV#Ff?4}_D{6L+
z9Zb5PsPD`Sh{$Qc@<6x@_Zt`%`v@D%Z^8Q-9^ok*t>3I+JfS3dc2Mli?&#U3R5o_X
zeQ228xf)26ZU2~6E0A*scG>AZK~i?GX}{=^aG_0mR3Dy)p9jhnO_K0BfB8|}(zTc^
zaGOZYLR<{K0pk9;!NJsG;#l(nkC+QpX1p9G;w0Xc$;0m)rs8|Z9iA>fy3r^Zf=3L<
z5>;bfKF+jR8ox0&N2dF>It7&<y{G)}hD^`!A^W);y$#_;&7EK9chsDo^$kmjY5EP!
zKYn|&rSY-vMRl=|D<4Uv-rcH?Ao`}mODPNC6GC1j;xU&@#Yc2#ng6i)NFv*oyb2p!
z8tH$yvQ{cjX@=W;SSmdeSdTtBJ7>Q?sZbD4GWa_j(@k)Ub*$P99fC+_3l-jJGwL+z
zul3jb;&mchYh+l&Pxd-HIC*zr@#w=7n%FS$>-0h40=a=xpP{S!YgP2szdu`AD;huX
zt5ipYR)y8B2FmJ8AjMuw1{Q1Z0FU+ZqI$Pyk@bTFoHW~#@*z^}vX$@IMLX9t8YP|%
z!y*v<{2kpcJe#t;;-8x&e{hDK$6RAay(aI&#&}-<oqBh`k3ZX}Cb?pthTnC3MykWH
z!u%I!-JL>r*kSH#njSG9V~<HH{F|CzeE9GG{~I`9Y|rE`6#RYR=-5mrYrT=~O@kZd
I*Bu}I9})3X0ssI2

diff --git a/reference/plot-7.png b/reference/plot-7.png
index ac0d2d484c607171342fbc72c9ff9580b0752f58..3bd0cd4ea914ca99c27755507a33245bac4c1162 100644
GIT binary patch
literal 38361
zcmeFa30%#4yEdL}V{cPJLMkF8N~n-(+agIaCDbZPk|xdLYT4UHqlhdd84FD+TGgsm
zwg#0-MXNbVlZK^nRjc8DeSdk*v(I_YdCz&D|2gOL|G%H(^E_K+t>5|$-|u~2*L7d_
zo$vmATC=7vo-QOLG)sH8=0PE$DQ-eSlTCk`il0>9eDDo_O*Pfg(!}5RGqi)vz+XR~
z+kMPYNJ!!``TwM#rfzc~p`}9Fn%fV%-R-D#zhPv4TjN`#he<;4(w|qX|7lJB;!L4m
zum18ATXD&yYlRo06Gji8^S5r9qnLbu<COrvpX7g9W3~SLq+>I4UZgCYyyJ((H?y*K
zuV2=d&i=~R3f`mAwocobn_e4UyoFvA6U*oDpRwBOJOqX;TXTmLBYEo7c83L<icw!>
z-W2)v1NrLljq}t`mOlA0jrtc^nNL&57rSLADUiQ^+4Hm8B=W_<J()Ae-&YU*U`+l#
ze`D@{;1KVh6niyqJaFKEh^VM&_uJ(`^VxSN<t?0y0~kJvu9zZ}_p!Wu!Mb(pL`1F?
zH2E17W}XVb$DNP)JoA73l-5#K#%Sl;CI`IKH2;Qdw)`}5BCd1(?Gur>pHOMNtvhR;
zeWf`wd(yNebCzpe3CPdSU#RBcwD;EfW&2b+Uk;A(Go)sS$p;w8bIlmKy1I&<109>&
zqZ1p{c<y?K4GeOXtF7m0Nzt9W`lCz&RqEUx88}Ngf52r;To*HAL`GWrxS^rhKu4wh
zK&3@44m<zj$B*#^^6adgVzl`RoI%sb(Y424u8vLX$**9HkD9%`x=hiduXV6hOJlKP
z^E+Q_<!Zri9$MiWEs6pjUD>)Osq%E_)7aQ6c$Vq*T`4U&%Y(Mfjfsgd{J^`pJAX61
zd1H7Um)z36)Uj-Tv0N2Sci=5$o8#6QqXR=Nb>v#bXif*--BVMo^JtGT=Cihti}fnh
z82K!$VpaP_SYum8S4U+c+nQN;y0OwCJWwt!ZNqG}zV{2&z1%*Om*+@&c8FMnIUjj<
zd*iCb;^M4<2Va^TQoLw*mL>1szi-^??CdO2-WKy~*R+f3v&k|Ed#m^f7buq^;aa08
zCXzlp)TF?uv|%J#6c_31>-Sd_w?&5Ei;9YBPm0UCzN)2KgJ0vAf;+lg#kMBdRxsKi
zmT{}#bRw24)5_MiD9pY2c5RZzr}L8?tjeR?`rX#iQa8E2-#)E>aL}dV<mDR2Vl{5N
zH*43yoVH*c`8*b5@bhKQXwST0nH25oEBl92xTU2BuXdlc8yguK8gs34Z!wPJ2QfyL
zXBca1YsWr#aPqn`ZfZ)kEqfj7&1}`a!HTn1R*pE|E_-(RqDDNG2fX3oVMzgv?P7D;
z+2dgA=>7M(%W$pt9g99moH!C|w8*pbl|kCraQl=to}XN-k7Zdz|5xiQL%VdPy74i7
z?$?h|o*((R-%EI&^#W6zTWu1%E497hvc|~Cm#<!Bcjrn;X$+SHrP_>tIHZ?tpDV$Q
zTI@Y8sLvhjZZv!S`xLb#TB?&}M>@Z*yY*4fz;oWO+JA2D&uI+OkZjBe^j~$)?coW!
zt?%U7o0ndiCB8tUy=aB;%QFY!$^}EkjC&^Pz3(<Ydj9<Eb!FFjy6at!ug~J0+Dat_
zcn<zJ+3a<!n$m)N|H$`(?GJ)>;L?8K{+KrTUG%ZUha8T&wDhIf5{oqimBr-LOKNJC
zR9Y)zTW#93DXSjW=l12ARzq3%nA3+3ADpVVH7SmbRaS9@^>rsNOEioLctNasZ&mVo
z6_s2ah4lH6cOCX{3fto{By%M_t>e^fM=OiHmA|&PH-5Sxd?hm6dn>+P9$L7|%*<@0
z%QeH_zA>k%+Su*$MSDEH>>a{t^IyGs)!isHzPZk;xA2UWm48xFl3Qb-N<+ZLqPMJY
z6+7c?{T~k1+A?syik791N1jaIb!EvSm3lA7wT4M+u~Et4X*AlqP!)v%oa~6lp~!um
zi3Ky9A}Sg`i2I8vT*2ye9jtB97$0(Ld%}G9;K4Fn0(n?fudEuIm?l@q<Gr%E!6&B9
z)?$y2PGdrWd_g^@Eh5yzXce;{8#k|qg>BzpTg~`1S;~jJ+?d|~@r<=~fVHwX)?9bF
zp<OoamRUG`AdjWia@WzcDL=&U+wNg4la6T@w^18PZS{a`*8K7!Ro>n4x4kA~J<N4o
zktr!#R1iA6Oaz@Q6PDDB@j5<-`?;}PSbgwBWM`F$$5LqrF%vKQv4kIZFHN)kbk%dz
zTskUha1I|W1=h-;s$I#AJvPN^{2KZ8LhQB+!s?sr2X;se?`H+Y#l)<0E!AGtR2}YI
zevFp1?vKX-hwK!jUKFbfzElS;*|LGp%@}j;m2#Stj(a!cv1ZL0hr+_b+9U>|R8MDp
zf2^zXmhzx&J-fTGuz5XWv#P499PnH{IK@`6DG>!p*=d?POgg7s+&XcIj#GI;iKh$i
zjP!Wc_1;_8Wr4lg-5hGyY*&oH^E@hwZOs@PYRQeyl?=_G7b<c4k^>dZa<W*Q{+PF?
zHiXq>bS72j+_tz^`Pmga+#+DfmV~l_+k01XMw%2_?CR<KTAHor=RYqhGR8)Hd{!$c
z1Wl9jdQqKgaPZ(<jiEff9;xb#q2|yT!!pNfWt*|F5LLt&W4+<MEGc?li5s6?pRP~0
zjUhpek!0!U=orKd9K=m$nv5Y}RWu!y@*e!${aKiiTp&<cEi3EG^X9XMs>gdZ#>=Wp
z1^R!v*m>V(ufHti?dCnit{?4Mz}Pry!>YY$qTU#=(e&LdMYUMRT4!z(Q*7<gId&PN
zF04+n@pc_Mc8q0H#Ry<z`H0vf{5e;1=(k=vH07VMvFUtSTkJiMIMUOi&QBRpGGrg3
z(Ii^JT#d&D!pHg|CAqSHm|i(#H}YkbMxKHc(w2n0-u}HN!==og0<H;z&g{H%=T1Y8
zxZS&Yb!?j%38Tw)T>5gMtEqsgb?DHc?ZfLHbE<@=J1-%K!DA(29?4-NJx`d%i`g9s
zI`8f%$=#z5R7y_f4k+LKC??V^HQp_ie%yjz>&iRFj#QWuy4l_|h|X!J@$wb)?reIN
zyKz;$`@l&Z9i7NdN%t?;MjQkigFGER{Wh(cY2wlL#5j(n<hNyCdUu6cP!qFQV|)aQ
z{{6nqpZ^%?nJm0*&iF7lW2+56w0>kImX@@10|^{h1F^ZB&^vcbyJ}MGv1fB0T$Ws1
zZNs7+K5}H&&Ye3ihXXy>4LJ|@rWU4uG(fDoLdCjb66;8+b8IOJ#PNKN@|z6E?P<6m
zHF9F6l=?OjJX*pT-rL3o8)^4m-7aWq$QCnsSKrl{+o`i>k14CxrJ&xs^A$JMram-r
ziq0No^_^NllC@D=JsOekiWJE5IACZfj<|II4+qHLz_DYu$1SBQ!n}vuhWb4`ye=Mm
zXa7}Op4ooR{SrT&M;}e<yhj4+;IApj6;Wj_CZk^sdJ8t5e%G2*Y$Pv6BClD+i<9<!
zC0e;;C%85EuEJgyB>@_MO2WGe3AD~nt4wA1tj6jr`=9XiS|uj&gf=;U{ctqJ!Mp}}
z#vcE1{%QP3%yCg9VY9vWwr$xJxLA~5=gC{yp3&R*VaKJJZT(5O!0HhPI-Sn4@!VSA
zWL51d6I$3@ToG_oEbSwgtA&5rq^wK=HiCQ$qiUK9QbdL^gLZ*+6!Dbj6+2U6>&yD2
zT5+b4gSPjOoXJrBN`BnYcxeW`uC%oD)&}!EtWlbKQ%HB7p7(}pCp(+JwvV2$nn*^x
zpWLQB1!mja_V~JK(cLX2rKNLqZm#te@G>;iyM6UEEiElIHPc21suk(OeS^I5G2ZNU
z&c>x3vQKU75K@Plu)t&7exyfgOn(1cSD0DlSi!5{6TnFYjLMpZY=5(ohdU*@#wT*+
z_(<=ggoK0wj<NSpQ!*l4FH0Dh$PKHrp`U9K^va66%h1s9RAMEN=ukLfXkup2Q@%%P
zmkpz1nxW&wHqpvd{prSy8(FheJLZrySA$Fi%rvKdFh`|_Kb|qpA2;p)`f;fG_TGp$
zPZlgtFs_N}#4%?xT`KTgX6&bbHs5f2Hg|?`^0||j_s6m{Ix`O2zQ{kdL4tF*Gi=h?
z_z)ajjPvc{NN1>Rs%*wxVB+%VV?)(qM(4J(=%a(V8bu1>NcG)=jX}AJxl86X<^}~}
zc_TbkuGlmxs2}IN5`J(feW*0yUeS6UZ}f!Y-*5MWo}QlMj)VeJa+Aip5L?^cH(%W`
zJ5RyYxwF*OqlLLHP+Y}U?s<nH70lf0(%g4OuNYmackiwV2eH)usCG-0$z^`VSbIhf
zH;0b+Z8p@?Bq9<IkY(K?^BeEOnEM8^oB+w<^R!oI^)GL%V(nUa-S_$P=OdkUcV*Mh
zeg0FjdcLDZYvIJoy$zgSZ55Z^Qy_OFy7gSWY~<Zw6Dr+`9wrNCsL6NUs+@11-^|!=
zUO$+%O8uJ2Jw>x!o0OD9<L@{La69gqjD3vr{`h%q*NO^nL8n<mmaj;B*VaVw*c1Ua
zoI-ts%5OG;L>;*`YdmVY2-R38%hKuOa|cYUxgi4<t6XJ%7HoH&z<w4#)J=N)?3rwA
za)Y1o#rRpXX4xa1ezD8wb(nsArLNzBN4uKr^g@+msugag_LmzrcCmRy^|n$2D@)V`
z9oI8nW`^2v7D)}g)$$m9Vo6qWF%k~_nDKLh@+5vuU4CV=^i6r%@hm@OCETWw9;`hn
za1(proMr|;K8PNjt6rs%Gr;s{eMhjRfeF2T!QrY`jaO9VGe%O1>9KFb9;cTTs?;yx
z*E1MF^nq;e{cjuRAPl_Uh%n%Yc$L#y@~H94b-gQ>B|TP;bq6stt*opxquI7C)pi*Y
zL23g>2}dH)K|}=bJ$`&l;My9QmX`KLNvoweT#CmS7c`b=Nfk2Mjw^=-;uMsCRMKWk
zT?j|Wzr22p?}poZYXCYA989nkb8CHY*|eh~-u}%jm8_^ZPSvt^wzjrcp6D=hkfO!3
zB%BWiNNK2h50`~6i0aGA!&;YbjQ1MqAv?mX`Q7dAuTgQ$3chpV<wpRyxefTNfFQ3g
z%ZFM{o2U-AKI&z(Pm^?83MdgGygPF5?b6SM0kL<zdh&*v;uxdtR8kPPOA|qG0$n?P
zya6f9FR@r%HDX`b@o%~3zCMd=W`+Z6ka)D#D0%((X7Vb;`hY|Gw#XFW$r<-o{ylRj
zd|9|2yvR``zET4et}US$e9t;@c(JOBwJib<Z9v7n=ZjZ$%RSH7+}yrzZ-iSYP^Fe+
zXJysCUylUTPO?Xh+}(#x2UXruH1miyw_0I-S3c!SuvaLyR&upE&fLUqU~|&TmwiXA
z9^7>-+7ed2-nFa7IHta;>P|JVisxvBeDbH?Yp}-dWsKq`xm59*1G*Pk+%0MEWC*J3
zyUwvyFV+YTH*Ee9kKd_qQQG9)=H})j2$gnskvP)NYM5sEkmr-CRy`nIKe&q|hxF9u
z*1T2WOZ*qC^Rr2+jNmGXRcHCmGixh-qG(g~(l`#M(vnrCr%`)Z|4G>aEeTQbS*Cyf
z@pHEPlS3e%B`Y(co<42;CSzYKyKY@z{n!929`|CPV!+BoaJ=T+n^^~pjX9OhE-i!!
z1qocSz6o--FF$6{pIQ%ENw=rMY3h+99Y3s&u63<f18<6T>n&7i{B4?~4`AH-1q3Oj
zb?+iP-Im?CV48%}{=K2f>kxTgtd?sZl0647OHnMsvISjih33LgF|y;36>edflBBm!
zW3;crGBRxVv&e$Fq-tAnWI#K@6#!}P4R+cw#P!sNPOSy`%r7Wt9OW?>9U0?eipZq5
zwmP4kDXtt{A+w60^d*eJH&PAAK;sQi1<VP-AlT?BnAXWRm$K#A9dqZc-0K4_pTI57
z__flLmu?2wM^^a=PabrkaQaCtzzu>v8&xufbZZ<6)<M6}%StdWF#YoOn*F!e({jPA
z7Dx#ya>;I@ch7m4mbQ($FU_|t8X`h%{h(EBLP}Zk=F%*G5Sd&;Fjs|pIe^rI_SBy4
zr@bA$uP_0BS~h@e8+1rxVF(FTc*&PgU;J-no)@BojRATajyk?wc6q+w!Tdl)va%{1
z{-ro{cqJ3M4vqYykWgsxqW=<=i5&Z15vt6y<<G}(0f!Ksv*jNdDk&*l%R414{V+B*
z_U*?NS~fN|nwno6Ql7@eDL5$QUClf7Fd|~5v^0|B!}$34x1usTfGiH{>+jSgagn5w
zl!vEQ%gOlzjQIGRv9$DUZf=$~xG@ug2v)MBhzJ&NNmbSHFMh!f5)wA#=a=i!5g;Cc
z?UAD)gx<J$bC;$jHa<R=yt7$8Y@=)CVL^(Ha;WY|T3W^}wo_5f6UU~eCZaBhG|PA1
zW;?}>);yVDpx5N~Om$=yJ+bUMNTY>mEU=YFD8E{G`q7goPb$ovq8>k9!4TT#5i@G}
z#^2e{Fx3879DbxBpJG&${4(*R5x8$)fk$V!0vKD4c{<YkNHU20LS}!}`1LQz>;t%h
z%Z>hw;BrORw!8E*hdNFC5d#AXJaB}XC-ZQ=a&mI*b51R0I=`cBHNa~6JSaVAoQreD
zDd7GdycTBTHu;=RvL;da{<Y`wFW1O_u?G2ndKUS9v|k?J@f-y#NgL@Y=zh1cIE!RD
ztdpRh=dH}rH=uotQYTrF$SK=~zFhA{dXaMhaogPUc6s9)sj+i-&bIn=dZh~a^!1x(
z-8#=F3ft|C7PdWL;MGz6gy;+s_V{3QhC<pLg|u(K5}ggnOEe@T#PG18$-pe~=9$Km
zo9E8Ly`^?OAzd1SuZ2x>0v4qkyB6M20uv5+dpgmcL^%b<P{A!VPnQ~~A>DT419si{
za&cJ*BZcdpM=1!1Vl6b4HEG^AWC~9AMFp>ABuZ8wY+~g{aNFx}K_w7m34(!0)_6c)
zUlcqVpEZw5bEV;;a(<sOgRqQHn!(@B&vx?4PqhaTM7n@ne0(<JeyF5mU?*MK(tOLu
zhwzfQWz>Dhyf5r#fZK*OCL*E;!Eaynl5?4pL`1qFd&xxDk<&ZBUFut`QOX8s>0LpR
z61eQJq(w-lnwles!a95F$!mnLv+q~b0mS)KEPUw_k(#<yTKZ0CDA{KPFOn1l-pFJP
z9}P@8`#7!{g4*r}!t|#GN}@X2c{%*K$}PihFYMIT_O(Bza6Rt}Gq7M+C!cKB#suSI
zl{w7#o*oB$>F)0CodP1jjWe7~6SU|cUtYFf{H{vM1d7CRW&vR3m-Vh~_qeTr*a#L~
zr6~h(dCl_TuNb<qB<YPTdRJ9U1D<_HE4Rv!!rs5lj^>W_zl}G4G^;T<@6=okc|*qz
z@xDoRAi|o_0<Ac?PGQMP>m=^@YOw?!lK*C~()fKm)qx5#Gw9vv&t-oO=IjvNv3T~T
z?ES}&pEcTg;K-5klL@(75iVAyhdq7z)W^@y&y;y>Gd?a`e%UqUwC=rH#{SCYIK34`
zG!of39M0<M+Hd3g<8LsTtA^d|x=OboqBt|<=IbCXLE;iMXJ;Qdbm)5P_0_=x$8Y>-
zd5djb*xr0!?<eIyR*1)jRNo$$7G0=aCP=^&JAaR;+NX=|9_!fPM-g#<`P8Qs=9%aF
zW9;a1BvF_$56mY*11r4z(wK7V<hsvqE^BFK^)wZ*t;@iPMB0C-E_A;fag`qKQe|lm
zInl+Vo+M!+`8w0G_alx8zqoE}#aO)6>5OKyswaCQg71KYOHvvYp1q|ObyS6md;mEN
z3=G^EyLwSo`0cU}ALb*{k?$Z=^;o!rrY;zr`TX&j@sb?VF#BN5&f;H=v0Y+<w#4EQ
z;zsC#b}ig+YPaTmo^@r{ikN$2IAU<}C<`GtB_*Z$`fpR`;daT;yMkYO3`1(6HC$0Z
zRIFa_n%CqI@6uT%ZBUjTGt~Dd7P}U>w1~*~NQ(wLZEBYW5Vp@z*O+S4{&a|GPVOck
z%njj>JM}K8_*On0{VgXsx=j6(64uc8pfL&FmKJX`v~$cK4aBK{(j#6ENL{qCwCpZ!
z^uPliYS{}Z3Z(I`iA3+Sd17T&V8IFXa+z+PNW6VlDNy3uVZR5+15)1>GXsOwT^GG`
zytIO|-3+S&T94++>)P2h=2r668(ZUkUJoSb^(#su<LPC}dK#lnnwm>Metp}-$<90R
zep(tL0?}f8e3HR6lv6U0nYw_6u=T%O-SL;LzFb-zqBdc5xl)X6wxE(DN=xcNgp(0f
zAH8~|G*HhNUkF8GWxG1iJ0b7M!(XFj)KS6W7uTupl-$I{#T#!N+Lu>fcW&J+as$b$
zMtBP8eWkZHSsuLXd|6mZlE|WsJp~FuU@dCob7u2-FU$6IgV1xzI!`B75{<aLynG+8
z{tkz#W~FXC@k5<YY{u*OQ678vbSqf=M%$F8o5{e3L~y6H*;sbhV(7wwpkfcp6n3}A
za5|`aurO`v-b_P;MhIN>NBR}det5bWWsF7?BRc!H9*WrOD|;xSPkSO%)!NVcUn^PU
zPX1Sw+{m&26)^Pw@ud4-Q-1uv^j<ti<#hi-8JWDIuN!ag_1@C<YJtD~v6isL6Gr8h
z8N%ip79oEL?AObSyK|h1lKbA>!hfyv)n6VcZISN`qF>OR8y;!wztzHME5B&`QJ{{)
zic#LRFI9e)ON0E+y9%uaStEq6!o2VJowJ<^mICnsCdrDWzCgZDqodclEb=8PGla}+
z`Q`SPW-dC|F?X&d<Vccqb_FavfN%4xN+R~`*%P3%DtI#@PA(g%DQi@%YNKnL5ui5$
z_X2i6)*^)Tc%2GOq}zC%)pw8@Rt*mZ<6LBBIWlkFyt&TUAX8NcLGEbcY2EmO)+2c9
zSXl65ZdJH)+HQ+PLapS0-uE9o7##loRZ`Nf9XoaaC0~N9`1IK`Umxdbqd7S_Bt#NS
zja@r|(rapr2ugqWP<njjFJ@+qM|9^;4JPW7hID^_KS0nC^3OmqsO>D5Htno>MHQ$I
zY@h(T`5^?s@zX%lh99_Gv6P2bf{*Ai&RSY(*Njzrca?&40OXLg18l(TOVKI)+NOtU
zsjn(0ZjH{&zj*<0EZa9VGAI|Js^o8^%SVz*a-$JQU(hsHL$PAc-kq8aR-JmC!kco;
z!v-eB*&|P|8*vYEo`lUBU$KZ8sQibsNc&idl6*Vzc?<u^&6^9xx5XOh>xVFkpvGz`
zhpuzjnRj9$xxE@swgAznNuJqkMw>e>DI(q?576Wr9k&pVs)rnZb(<se^)`#$4dR=S
z*2IwtPi?q;_#G{&IePFn&+ebeo;p8i-#_98_`h^J{zJ})fAn7HLkVd$0nRsh2yk4_
z!U`0Zk!i2fBl{!6PD7eVwsQF{lkTf5kT+Ur#f|Occb0$nFd>ph)7Z-JgJf`DK$O-5
zq>bdOLGVV+pr%+<#;hxW#}Oc5%jPFd651_1iMP}-SHd+51#ExXt^+^0P1>Dcg5paz
zH)HHoh57t!!i3B-J;4pKNo^5_c=N~4^GGc3dn>b;T;f0I8~I1?&VQnN<ynHM*nVrk
zF8iLmRs83jzN_vnw76@ZbGm<=$T5Ue*;X65);f2?pkbFdOxb1@0?lh`;+e!%rK5^d
z+re>6F$x-OaY!lbqKq~KKOqj;qbTX@KJF(f*8oA!ckjx1P=zWQI*rb~o?`z_G1t0#
zn7VtsFN@RE+(x={mrFOG@_z*(6s54oS^Ft&eNo1_W0ySBA7oBd`p-%hb=Mkxa%0Cs
zJtu4xDs(nXABQ^}sH1IN*vI|USp?4q4)^%_KEJ&y6ZPqZVX7*UUf*6HO*o|;uuxIj
z1?NTt&<@mF)4zIxVxr(u+D5OmE|*#Av8>JPM&Iyofokq+pw+R>VEhmVI`N(Lm!Z;>
z$3X?<MM|Y>eHlS3P-)QaNFEHexzU&6Z>HlgE~y<IcQin!r7B1#*ks<+M~}zVf{hFn
zXMM33`R4KfR)c0}$|52Vqg#*g`Jk>}m<G{DMIiY5V7aax0Kg&u(KC(1Q{o!UBl>hC
zUjiJ-o)m?jU-@n1R97CnI)^&urXD_i{7&nz-;=bonq;SkV0UYv+t7A3Kqk~eAdWBC
zeHYMoKKl>N#md%4Nd`Jr`6=vX;6lZR5cp1nvsd(YGjH5*3+&RI+aj;Mt*)Q>f1bZ$
z_jPmxz7~XQ3g3eY?c;N6{mDO%NbI&cd$ys$U*XCqzg`2$QUtk#*dI`3@#T57sCJL^
z7UvSVAJBO9;WqN<GM6s<)cL1^ceg)KHsnCo^KiVGalIb)sT`sPqDE+C1g;f-;`Q%G
zIbQAoi#A3Sc)P$bL1c_bexQ^FhbzlKeUbKg^850%d8G!*X^p64K159tV%UzA*Ym=&
zPa7$p)sTlg4x;F1bYKH2SQBvrtZ?V|L}Ikn0Jl~{JOKdSKF(J=DpCVk*JWs{+O1qf
zBpG{)Z+F<%Ymh}Ae=G}!X`*3l+L`giHv3rDQgmA0(SoDcDLU~tLPDAp+ONH=@{`qd
zWX4oR{+Jea6do6%xgrUg;@P$)b_R&6$P<#_22WKZq>r!4pVGhmIfI=R7ay;9B+j@t
z%4T-+<a2hpPc;H1)wW8P>vjbnHBo#yUID=_3fdQh(Muo*A|fDx6Wr{^OsFeEddHyV
z?F8K=NC7(V1X5rwIeYf(8f44$r`}$D`uw?{k56i9YL>3ob@k63I)sh(ly1C0nBRGB
zjrk$%aQ26fA4S=JJcLZBT~q%E6fr)&q{ck`>({R%=8G0DUi@80ypW>f5OXYXr9JcL
zqAd=m#sY&MO9=cdKRi7^1W9IrjJHuzbB{;f9mSPdaD-rY{xNUgTiz17Ig{q%>*K?!
z^N7-8QG0&owjb(T37^^G*sQ6U_2JneftM#StoS&a$Wxxa7h8Tz<9)+k*$L6I<HeiV
zitv7@*Or5ClWO!8A0Je6WAs>5z@iS9+#btD6&;13E`0&fjwAHKB}qMLB|pYEeXA`B
zdT#w64OETBU*NtI!99HVL!`8{DI!H+C##+#^pQHZ3%&}+tSnI0Br6yU9};~<l(Vu|
zucd{USaFksJujV~1Cgk@X_(!aWC-2ctYG?tD5W&XPPMnW5X*bV>@AO%)?eBT8k*dl
zBTligzB0XB)M+2#(}@;^9j`@Hd-ZR>34^>=ezl=U-G!j@tgw0eHZLRWwD7nEBojsR
z{2TH-Y^1$=!`0PrS)5l*)N7qSE&lJ6qW_0|{bT-7Dx>|sv!MR>9pdn@_!%eKNnQT^
zgB_k9m9OXZ*(>FJtX5oesc=Yqwo_*~QR$)L1P2H5azmI*ab`c*MQ;Jh2NJfzr#o{W
zK*>b(^E;~Ra3jR#?f?uRnh3k5N}-G26{Ff$B_Cvk_)|JI7`_5hBSff!aOiZ*^;_xd
z7%?DlGB<C!uRg%ydM^Q!K~*Tt=i`dYh&|3KuCg}=auJb_>=ieT1Zix@HMeR`M-f~4
z+4b=i+QSQF(m7+LW9M&D={)C&<HY~8rI@dmoVt1A#)>Z9wIA`_3T}D$62stimW-f*
z{uSLr2iI!X2l>ggHEy^Sq+tB0Ot!5txS;7fhbcU52Huo@maU|B^QB?BhcnV_7D~>`
zO>67d`}T_x{mweEP+3F-MU%5e<#KRlQQDv;bgel4&~LHG+vD=qxW);VbqaAhFFan~
zgerv-dIjn^7gCsr$N>WbF@Uw5u}>dC=`m&Q--LKg=;}V6cn5OP=yKDpglCV7X^72!
zv|meJzI=&mDgjrks5sM=U<^z!Ati!75|I#<p7pNUu}W6uniO1UJ%QreP~!9JE*)|a
zz*RdTYr&*CXuoK~skaN_LZcTgCo4@TedWJvpq?V^78)8lqgIA`L)dD!OjWq~h$u!%
zs~5W{;C$X?y5u)yW#t?LPEW`}6<ebv@DM55)uln}zgPzb2~cp~;M;jVe24x(CJ@>I
z*cwRf!5VfQs>TjEjMiF6#k-lu@u?Q5Es(oHtVD|T4Ow^(siYDpg4>?E3T7I&?rgCc
z>Bq?7&u@?XM9?g(Q%e{l-9)3$Caz5bBm13XVQOXtdG|f4K<VBLLRgSzS4u83f%-7(
z2kJk&Rf}tQd%e56Wh3&m1hH1ZkGoSd%U^-B5Pnrt;;V{H{rdc9lJzkYCY89>-|utJ
zWN(MpZEx6CC8|oxln*2|4MnHc_ry4f@=4A>wVf2P3Q*Qi7(d6>P`>n~uZGusvay3B
zGN?cyW7~pt$LC88W=`wLU=Y_q>0@n0hc9n$DOufAFsE`=>#k!AyY*n+Qe)pP4>qf0
zEP_qd^Ri&2?w$F)EyY22@L5bw-xK&d<Qia>@g{}$QQFFx9^?*ICR*?XF4#xJTc%0&
zXufkQ3npSx020vIGq=GFVzdp^YLrupBEo7pL;l=)Sdnk&<t%Y}znvJv`vfj0UnIjD
z;-659?do$>CDQKf*{}RgE-+nRTbXKlTx_g7DL{M2zO9joAq8EW8IRuyS!5UV5>3sQ
zkUNm%LFZ6b&w**HmRCLHKCjO(lYRE%^JG}!OktatC@vE%8adq=6lReklIxi>XM8AE
z1Ts5Bf<X8PRFdkw1)EWA5JVkbDh*iF0K6dYvS?>K0K)Jp-`_zI^6u9K{h0RNb!vOO
zIn0Q(sc9G7yApbfR72U;5u|E;VPI&3*WkHH3YkJ>k<2q#uH66@IfOnD?>(vmtEIXm
z?XyI>tLw*<j{x5jPZ%K{($c7`G(L}t{d%tX699f0)0|otj}M05ea(j1aS-OPxm;sU
zn`jh>#s#=(gMW%~<`8RMfP`vNwK}Odjr43R-c}~|{jJAePp%^tXRK20XIEm>CQFif
zUH>JIQVtD|?o1$A?n0Bd<F&+5km2=uida^p#%P-x4BKqL#GdQnYY$VKLTK_nysEn~
zHy7MjbXAzsK|~E(eG_;&U1uB?CCACkJcMl-Vqgqfcc|5t+7WJ-gMW2hT|+^xR;ei(
z7gVH)r8vU~^@A5l<XuA6hrexfW6IMOqfC9^(4l!2_uNkhb)qczr<VZN9P_@3dfCjQ
zWFr^f3o}v2>hiQ^02;S2LEF22Wl{@!{Rz=+pVHyf=`9d+B<clq@`=Hj_$K$aPSC)q
z(Z5eiW58w8Q}E`pFfV=->8iJYJi8gR+2lhq&+Fp~2-D9g((&k0zn<rmI?+N>E9aIe
zh;>bu%cwyJFcV-Uj`aA5ET8_@H)c*2ey5;t{N>Z!0peZhEsz?1fBB!i0tEV<Lh;=#
ziMa!C0vhxbltt*uIc=dXaPkq{V1nZCcmYa@$A^$2sBc?s1aM?7CH^4nIc$ItLB_b}
zg97RfFMNS`37sR0*l9E9c{0o_cvTuLGz7=c@4)aOwF7%Zhg^Wtg~T1psfF!*E*uhn
z|KMXLPFsnCuy}l=c(5;0LqbFZbsFot@MzMK#;drT1(9Jc$4zcbM5_~`BQxt}srNtA
z%SObh`Ftmh=Y(2k&Yu@&G&+V0j7&nP6I*|xKW|Z*cn5qd_7F;TqUJ+<BsbR?E<nwc
zz*!jcicO*@dEk5@H*ykhDl!_?Is&^$sZ=QSSQpM8?wCszgoXOn{mb5*=f$zFtD&a`
zX^gp%BJvpQZp|4dVpb_+j5wHtQ0@yvSM5ypnUaT_!3j(&6U^x)YSaxcnKp?Bg~yD5
zdC;8^9wKZ;1<c1_%?a<nfBH+@-8vX{hR*S8dETz?!ZkE->W5kjsYA^4m@*#x%4DQL
zY^VwTuS3aHNPe${H_4+qn30C?v>?@!dTlwDkSc1wBMx9q57?xIN9aU4RwUU>-tLea
zE_O+hAD-{W+e!U!s42y<<)6LXdt@*f4ju5MwB90rvT`rhO;}7s4jgHn&BVQ(w`yMi
z?1IYh!cqRQ#&(l&k0l5@ie7`?U|p$=)c`H}l{s;5mSWG;!v6zJO@_e+%^(IW<GApG
zrs=e~<YY3>AO5DZiF_sWUSqoVRNlx??_V>x;I**#i}y5YWxW5Hd4_uB-<zmJN9N87
zvqZ#I8Q1W1m0F=iYY`sVC>XhVHSouu4lliy^=-~WA4QSI?sGqjte*VGqd7abe4RgE
zw7+Pw@6q4KHfv6Qc=V|A+uwwr`Z}EZJTzz7FE@Uf>-GDRE!#i2{j}_7_bTY)kwc@C
z7Kv?0Je8QZu~s$CKvcibMUQWxURK*1#&_~4kMS=mDuR0OEpxI?{6vCZX7m1sIy57&
zY8-ToU`L2YWk0OB^BmNaEc61+6%hgbJoe$kjTMd*OWU2kUHedVb+s9crtxmw4J=v`
znguw$VLX5V+`R>;eJu(Irmp?c-R&vUc(9;do8byFUqQ@e51+3Yk2wAA*0oS?xR|Cr
zT0&lVe%Z6uNj%cZ0@z}RVj~>t-Nf2`W$V|cXn-nWk6<G^mVKvCG=skLd}3DDEe=(Q
z`xL@fh5Kr)$|!Qo0`~U<M&W>ncUMF2p+soA6-9m;hadDjhQ>~+_#Q=%?G$z+PQMx_
zhyWRqY`S1T+F&AnI*F=%LXkC3*VWZ^+-AoV+mG){O0I=U!i5n3J=P@nNq!^7^^`VR
zO4F}AIqyilaO3YH+okA-)6ydEd7QN!M)M1!x+xCYOidr|#DTxQf|$`RUApAsLp&f0
zLzQhj=sVnPOTM9@D=W>t7vvgvlXyE!zlZfx<g{RyoHAnp?l#(dOkuR^z8*fZVymjE
zW5G564|}+5Gum#>oUveSD?exgiycn5^ZIBTvGEZH2b%H1eVyCOvtdRVjTo{^=XMdH
z3EdZq0}i_6fnz%w%oTIU7B$G)K273fb#+Cuy;%*~$4K8%^Y1)jF1><cEuKqVXFs*t
zL!w#@zIB}=9cskK5)SX}ba_WuDRW2yAz@VQsCh>)mRW6WEqx5VX0D#2at5&h#CS<0
z>L`P_E1lJ>Tq1^|KgyVBpz-8+s8iL}`v+&{i>9d(zny)Vu1fYSm6|zGM`HY#Cf-|8
z*=*81Lp46ZXEn{Sca%t8**~wkyZ?hTz+n#5lt+<~t4QbD=Fz^gM-UlF7Y+g2l-}mv
z+e~_J{8MRUEuLr<|8U;*GNK?s+)$rl=Z99?40-=#d!Lk*Tf4fhWC++9{)t6f<@o%P
zM_Rd}21X(zQ?EUiumZbc9{hZ+B`jfbu$i<AF8))EGy2~kBOp{k#HhFQ2AApb`;3M?
z=1XPrs->eprd>FLF0K?o`;|o-SMoL>7eWSs;2C|&naUtLc9htakQ=<q)s=6nF?LDZ
zcD1R}s3TERP`I9lV)#MOnXJd!*9qLSM_(M+NgIFI7<k9WXQ9&B!%#h2Xs1bp_wlg^
zr@QcHP;qz7!IH^!QsaZUC6$#a)j<jtnF5%dzC>_wB?RW~^k0zuCGUD8TI+mqQ@msB
zpwWnQv*xITOK5E3mXwI#nNGRziS(Hel-C^QivGJ?gn}d;rOti()eaL8xk>)PeI)a&
zkKDRC<F2{+uo|tjkJI9rv4C&w`$Keio{?O15$Nh_+pfzffD~Fl`?V6Tv=z1*o#_ms
z)B&ZLDXHpIjT!DC89O=S@Nk9sdhg}Zg)kVurkgJf-(DIU7q5f6>l>wg1x)#Ox^|VY
zH}fF2cSGGHPsVK9GiO@)7Q6?~`4#ukK;_}#k$<$XXnK=a$bGyqrB8C>ikKvaD#e=}
zRx=gn&mX;>MY@q%zkXe_IRh(**uC1zV+uw)-|rA!*Zy-F%-?X|D`ee}Jw&nw&VzJ^
z!KK*%ycGzFBOS{b{(4K*)i$G?ZFaSiJ8h(HRo1<G_kLgXmi#Li$_-azMxBt{(2j$_
z(|(2sY~K$#_a^&~1nq|Q5*Q5hAGXUe!B?|pZMc3!Pxd3sEH!#2XiKPgX?e&O%4NJ+
z?k-T}I`@zfNgApS=NQkvaG**4>{kCUj(^5XjP4%A$=Mq+^5i&3?8DsPkddlB8DILd
zFZ`#R9C_`lU#jwD+QNI6PaQCKE-9W<aC2StlP0o`!(m!!)IbAMBT4r)PG!30swZ`C
zZ!nL{P(mLc=_epQ)?#{>WBjSS;G-b-0g`GSOfI`|s3Td}PCebu;y~UiEul5J5D1Oq
zHRL_OEOW6$^J&N>>;JgXDR&=IpsF`oYDu%4DO?xv*p11c67yU`a-a>89$&&;NV7`D
z4|O8Tf%-@-YKDBGO?8rwo7&8-_C0ZNUQKeOF|aAj01|+>vUSCiJHZ2bTlZKRcplzE
zD2ET%g!!0Oc=M&lo@Xc)+Y5A1n<e~H+IYP5DaxPk;LQXO?>hSy$Cc?Smxic)18Zoy
zq?Uw)giP$pEhzNP7<dxLn56Up&gW;JL`6f?UF;`ihW7XM&EIw@fY!r*0wFyMu2TGY
z&9SacrM~g>^lZpUh5t0A`ZW33!`$iV!1qmKJI{f)HRMbupQLP8M=YvM@{PLSUO`5&
zH(r{h-E|q!8HLDWr*yS?O-TRZany*oMvl6B?`)Fo0@^3u8&bnrW1;O1abNwWf{A21
zH;%_`BxMpGpQC73eJyCm5{wcNu}AaDKuRp<_ojh?fr<okos6?lnv;jRGhW{;JU!3A
zM22yHAC{b8viDr9xH^I5T*1M-+yi=gdat?5E%}^vGW5K-IL_gOuC6Y>I)&-7FXImP
zsDI#ko{-59Yt!-8-qx~`zSlrLy?%1=V5)wP=V9c|2IHVQly|nsq$^C`5|Qt%ok`_!
z0>ldpc1zuZV1Q@X&kF*HsQI`WF+HFCuJj42?G2Mb-G$ar&}_|t%E@(g{Mym}I0h|e
zPY;oi<o{3`{B%LkUx9mqPF*P4Xr^$F9I8&T@kg?ila^NRdmudP#X%Ba@0Z?C`_xHi
z{OMp+mjNnBMCHaIaK^Hr2d`MH++Z1<1|5^(gFqfYhw)&*oqdC(jR2u^9-*dn{oxMz
zvJmPUUQd$>80u|l>5_SATbr6Z*x>&N>nQ?_263JODj90t7?MmA5pk`t*RmZZ?PGbY
zaHwGDJtQT$-wT$Y&ZY?Oep;_f&9un(94#G?zlpg3h1pst1rfky<kg+6h*rg08jP{f
z<{$}GWqGi`S_btAzhtlR$Yjf@MAdh<vj}1$DLrpAo$vIF<N#s#&q*PVPz-X1&)C@o
zkvv6eM5GUCiAU=LT#AdQ`1MtKSENQ;wd~ttSUI=}rlZ6CiYNd40~*N@DD%sCL2*>}
zNecs>!SY0ksO079LPp=G*8jnjnW#eyngqt66457!Cw=SCXE>b>_*e^~me`{`pktpe
zc?d$PvH~@?sOQfcNGd^E*{QEzIRU122R<};?K#@d)xw$yFCaGlx7U`N)g;^7!&|Ni
zt3!MNb%=#MKwV>v8e?Yh29yio7s;-Pga2>L>V9L(t-{gzhzAu_5fzB1Cq@sW4rh4;
zK$3X$om^ZNc)t1$FIlTSGF8C=TRS=e2q;0(#F2rPSW3Nu<R>b3L=!vQwoZWdPe>@M
zU1X`F?KqB1O48*(XEiabp=k5$P-G6k%GDXJ%cW5UqZ%7X!vyK$CuL=j(CO~fEgpW*
zI>`=K@720P$`5Uqx#Zx32)trSN_KU7@v&%n-XsYDaP!xvkEot%a&Ur~5p=TUsk?Dv
z_wzLa)9qkltBF}e-KNNMEEcjyGCI?-ry#(b3#U-dd2d{#pf`Mcn~EB`qgk}E`xj>C
z>y876u6CIq;X97ta)=h9Qp^3wRweKuLJCXguVA#3E?ip}s*=&!W0+)}r^_X!u)hFs
zR3IJ7&~n{dEuVq4pB6-kANTD5yo<pRYx+RVE72@5w*OoudJ{H`wS|w#^2bTy@&B$S
zT-C=TB4zLE`?ktTO9SmS`YgZVL!8M}DJefhu8}d$XEY)nQkV?wXG_Au!VvIKGS96a
zAFUVr+bN+DW=c#rX-9$qQPHC4F0uN-*n?hUve$kOy1m8mH0k-lOa2b?y{Fh^wQJmT
z!L!PFxYOUX>ZRorW+;l|q^YSJl#=wSPkS_<tby~(C?t$Ff`(gWSA0nwEy=oaF2Sm#
zF-lr`00JH1)uw~rK3{m{KJgwqP_R1Ev`+{tTG(!yVr&Thh@RYUJJE`f`AIHMG>ybI
z0Qa3178VnR%qJCV$?Gz&DxaBT2mQ{_Hbq7rw#cJkar=5*lAG^XH4qWX#|K*D+Ouc(
z1aG1E&EvZJkDqmRb}9nk9ZhrVu9hdtLH$sXE7TUaCjDVvoViPz99w8d(fyhWe9~2a
zkxin<w!Zf}4!~G+2$ku#x*7<=7Y<A)MpqBxQK8KwhzwGYmL}Y7u+YwX9#Lv3@ac_q
zyA;a_;UY6u&Lh*4G_pms6owjn%deHd9k?0l4X4FFd-l+3-s+-bSXL!0?^KU`y+G?@
zc`VKFuRIFf!CtnhFg2S5)pF>b*P^H$wJ;U20v%IdBG_#9c+!I(SZ7;XTi@y;nEo>g
zh%WWFHGQ!)4iEUE8D)`r3V&VyhxF8xROsWQd@ON7o@|G4C;r(EAvIXk3p6#oy8TT8
zbVHTXIS;n6&X9=+rs#--$(@MKXhZz_ih`&Q`~(+07#^T3iMW)kiDjE&PB`Ue$a?io
zI+wun`UF~))N@#Ktnfs19{~0h2(j|&y|;_AQk~lyIueV$%SKprR{Y`ixS(T+r)TZ@
z9*vHa#C@v$3?L9FX6&|%G|A34YKDLxm@(EL*WISa@OY6=9eH8G)TZfm5~RqUjM)VZ
z;1)jmQAdcPwFKBc9{N`n86^Ts^@Wu0OEw1dnl!JI+yYvsM|p&SI<u4Q8%+_nv+JlZ
zKxHZcSdSJ^P`m*p31u42AC*i)c0FOcHMDSnXFqikX^4M3($E=-o8}mAK+&g6aXdor
zuZP0(b?cqEv~1%EwaRYc4Z}^Obqt%FL{o6i{T;g0Vdh-;w%jT%t!EEau6PwkUq{5B
zh2ZVP8PP2~{!KWZ_?vWf>qE)@_5UvIkhSZIPAX)$p@<C9Olsd0V$fCEIJ%x<pqa6<
z!|Nv8Osh$<65!%vE21cPvNQ<Uku-<+r|+RoqUW4HrInn&vG~1c8f*tCQit1HTPrNR
z4Gg&T%7+j2`Cp`#=$fkY2f2`Bj50&@KwE6Rl|v=oMo`Cao5A{*0#b^iyl5Pot;!iH
zw7Y3ut*_4zTzL{18TqB!4sA$`Atpn1$OXqev3eLIGsFRdR}Z-qgehQYHj3AO6E`w{
z*gi)DExT)7e>N`>P(tFuTd0)z6)s#Y)kbaNf5kPtlRb?`SOCvSqZsF^-qPZTa)DUX
z3UZ$3m&Kf!#3S=*CKc9ipD+Zzu&Q}TUEb0sQ=O*ph^<kdqMAaZo9>@?Ma3ZdITeP^
zdprE?M*X{kgr41T5X;PjF&|)ko$DfBgQr@sHwx6WOa%LMb(`)<2D|O;_f`YPoNHi`
zLM5x~70kMR{X1X3o^7e!23N=Q0h#N0H<IssX^m0{iH0)pFo^l<^iH{uG~xb!$)kB@
zTM5GDw>q?`o!(<gZz>h2E%g;d$NMYR8p_c3GQU(wPfg;j;LY5g0bZ63$=k)fa*zH~
zEo>5**cDrbt6Zz9t96WY9iWSM^eF1j2H`?Y(x7X@+(;<>@Pg#iazatYWP;yWT3fGm
zTOvb0p>zvvD>DXUe5Gpkm?JGr5gcqYWA5=D8|qVXY3t}%ivltx2GCxRel0>oFq{TN
z1l?(bYJl55%uU7C6dfI&ADm@YS&?1Q6az=mwTgIeMna;)qPIsQ9D;I|JqCdVF?vx@
zaOC-~YR|u%XT{Mipfivog4eqY-C7fZau1pNqp4|K&rt*U$%p?3o4RQ#8>vU9Mr_`{
zL5cvZa4xwKx}np(?e)pok6pbL6tCk=52S%Mkz3;A<TSsdpge~9<|T`@$~L<C{rjsk
zoLRQD$4ksE*5R`q#Ac$JwbC~FDrlM|WQHjU^3T4+7vuzr&l4MAy?hCyhcDQ3R*)!O
z?IMWJ`?{5lDFjEHcBe#5?|&NX$>nkm<=O4g-WK7($kZdx&{IR#)MU-j=C5sSvV$Jb
zNaq?{UosqQVnTm*3eQb6-DJM$Ue-pl)R8`!j1~7Bud7FZ{qQDfd)2NPQhUy3SKpEk
z0_D-He<*F4``&QYse1c~#Q3jlmH)AL{P$Qq&gRpEez_BE$dbRg_SnIm&Lim0#75B6
zbaHkk=qS&MjMr*Jvo&BQ)rgDEdPiS5KQc@Ui`~bEV0$zW1#`cVO4e-k!B4?<sJ<*+
zM@V&oH4E~;G(qfGsZ1{c+~5Q%ZLhy_UhKXUk<^lrMDl67j-ksq=0v6dKE=b<q$zAl
z8iFD{8KpN!j*&IyH)=4BKxgi^)SXns`~UBn(LdDnL+}Y`l-($b%1Xiv;0Aq{f-fi}
z-`eKx-~}Lm1<tKgEN(gq1Gg}ODZIeQK3kLwtLYq|l+N?{hr1{7P}XmZPAsZw<H4F7
zNO-m+x{F8`^}8@t72HKZ`q+e4Y{#Zt4!<z;y)r}dPMHq(wb?^X%)v}7_-JGh?H@jR
zw4CT31~g}VLU@TY4PtDwtz8SL3!#Ykz$b*d_aU(jyw|Fz{0x3I$e@~fNXHLp<h!0n
zx^am+j00!{(^?!9DOUPimI7J@>d%rqcmM6<D|Tc-1^IC89=%6@Z!`6Cp|M?=0%Zt^
z4rN#*=Ft=&_*A%NOft>R0`32Re<*gqw@}mBUjt#7Oo+%L6R^Pk$XKddU>r*@#SDDB
zZlIf3x=nG9-CH`LnG&GV<zf@^FeyoyS1&g-un2=fPME-+$nU$aFx3B%Svw?>|KMS2
z>T#1ElGD8EVxUM?Flmc~XX?}Yp9DinJkr;FaQ6fHlVJXX=g-%eF}ESiaq1owJmKGx
z^(DG1|NM%s#2on?Cp+`KtVE8wR*RvFs|;`EwWZL#>_6%oz_1~fF_=9mrXA+gJl!~W
z7>PPaCIXPYav7%4T;w^rIw)pb5a@4Hm@6rPl6f?==Z}IlR*<?ruYQ_?UDHdj|1}j%
z2v8&nLj;>5K%0b7!`a|R*o-GkruIxZT7_XUVjVg%;{`$J+4vng<#rS3o3A-5x-S?$
zgJhR>!ekA-<6vH~MmY3KU}loR@E8MWJ-`M^E_sij<<5nF=SW}sq1|(X%+18in5@N$
zrkXp0`g<`^g6&l#F_9EmC1qvvP(*M?UR-v%_?`sl?l;?*$p5&mdo7$oI_p3D?AA*<
zaB;t~2^74gPWSLak-Dza`QKGcQ$KmAqn$SgaV5mH4gynJfq@}9)@X8GKdt%jXb<Oi
z72xEK0>}y^llDPw?9hP#K~!#JCUT3S(Epk`ec;JNBG$67i0rkM#Ph@b6>!EwP74M)
zzrza7^wm;k%n_)S8(n~Qpn3zWe2Jaf+0hZ*8vm;u#DtV;17zzJ6KOcFLMCHiz$KSw
z2sGjz^;>}8$27ZZ(6a#3Dfb5EW-P|Mnb-GgHO!$I5w|5VAH$xJP<-AMqk5*a5Qz=7
zZWqhY5U+=_xFYqTiHm?-{ZAKBnPfwKgM~n@Ncbal`Umr*p0n)gjbA8)Eb+3dPAU`}
zkc1pWU5wZyUMLzJe;4F`hZPIiU%1=~8Ouo)vi(XfvP`TWqs(f9b4M%*wVdI`vZ=nA
ztgsT-E~P~dN5ojW+G~0yWPJb|+1lm$#4{y6caiyWq=yeR=h?&eJw^t*F|@{eba;C$
z1(MhI{p42vUbTh}Ylt`*vZn1lIs%UlN;c3jx7RNq5o7(!WZSLA!me?UU)@j<X(WRr
z2@qecoy_*=|4N+Bnpw8vJ`}&$pR#6bdR^V;E>dbK)luj)NEX0Dk#%>ABazE0E$aZT
z$bhZ@sFq{8{77pMFBzSils^d--3FiKr0GL^@cIO?*pm&8f_BJUG8RTegiNlui^ke1
z%uzDv5>u1LL&wUo_yK|38S7Vu781(>(I}^I-N|$b)Wcj8J*dbRjM!Uks2tkaYp_%x
zkSjvu>V{;q9;tV(4$N7o>&pZ8n)S7okg`)YB9}Pq`)ANH^xIA9ejUE=C+wCBmjmoo
z0$UAlsH%z(4S(;&fULi%haD3MLa682py&5lo+1CWb4kg?{io*R=MfX;o+g%g!A+vD
z=dl2B32lbC5&B9s%TB?47BMcPoYfS@f)HIn7QLL`nX_m8Fklk%By4N~DOj=|qJhz@
zUmU2(tLLfdBV^D(O2KOXjYXT6lX!tb8)>?E6r_H<!7unT$#%pyU1Kg}_vSlQ{qI3z
z|I@emZ;#NOpso57g0`z=<@4wHg?%&npF)z#3RywO>-RtoLi0O)5y%$_hzRDt(=Czc
zLH$Z9DvrKTz#<}P4zEI##|j~IiwwFNcoGreaM_$Js@EJ8M4tqQGt|LObDZ2Kq9JKm
zCp-}`4psw_cEQOYSdvWg{T28$@(N5KfRF7aJ3zC|s-x$KnwlCrJuF{s@#U+)Vo0;>
zH0viM9gVGj&*hYT{HTw#y~CuZy{*lDNmEH}ZH$6@-$&+eGmT1Pk%o|@htz;e+B-Vt
zf8$)_w}M}3An~MWwL~fmxd#>Lne<eDw0<7kw<=NmZL(gb>W|0?SyY;++@oGH|LXx6
z;Vwd{tE%=8{^;r|)=`jTQ%!y2>@50E`H*6kIx;3dXTUH(QpbyvV5@aOJ?M~-t6=Vt
zVk26wMFy=gNCMZyS-(L}19X4@O71DrLAw?3#DkCt!n$T?#&0o(tRsCPwS<AYM`37B
z=YUJVLMpQU&zAbn4VwS0jg$Y0t%3guv$08RxVi#*TmTsiD~TziXrA6drmbDUaMsNj
zhwuo!0P*dVmbm8ndHyV7nIYy`!Z#R(@uoYYF+Q;ik$-T2l_3EF;%lfv(%Sx%nup7%
zVbqv|NiZ()ERKNo_z`K|8$>M!I&A}KHbc2x#<rHqh350V?aD%>UJ{_7+m*q0B{R5o
zLfb|rC$q8%mm{Mq$=obhqgR~${<f&W^8ly>K>XF=a`)VyKLa&^31&r4n0Oi{*I{5_
z4qz;5E`W;e%-fh%t*N;U6>r~T)QSI+JuNLReE>fUSgf=LpuSf=k;t{0S#S!4-g2gh
z+=m<N^A6Qei8V*oohgi@sQT8eTOT5(o;a#{t9`7<l`}6$efUhBI|?vPcVY2jA3mh7
z-*kEyR)BW`K0xzagWx6TTn9cbDLFv+2Mj4EOwcE0{7+;Av6jRd(g@H|aK+I}hBSs%
zFcB?D6oqS6p@MnmPQJuV!qxsR+F@4IqOzuw9gvvJn3xUqJ>)|CBS%9(d4^F_i0j{9
zK`RWn^bn}=yR2Etg?fj_>*A>z;<<_Q07gFPVfB-I_0696;n0b7&8gfNLoqT-yv`l9
z{`#gn#K;UBQ7ykt^#h_NBr+5QIf&>xDB45@lbH$<AmT%R1I5sfr!Rsl|22oWsYI)p
zuIcTxDS{1X1@P-EfXu)Dg#wveOXiBopt)jr*g%cAkz8T%Bj1x-^g@B$SIXZ2*943d
zSRiS=Yx--@M{)F=iKVS=Yz3#|71tQY#b68^R~5A-q&M_nWe+r=(un&=J{KR4IE*TE
zY=uG>894eo{WeqpG7yOR?8R*21SHe6fN&l_u{~j;4ks_^XSd(k#C`w%MZxXbUw)|D
zn>3eQT|jD~^&`zHW<6i>sL4m}OiSP?Siv_+OJfG*m=)9HmT9cu&lw5<q^`+JBNk(#
zrgt5rst3O$pbp$MAo^aEF@*<t7v&i=vQ1%D+GktgDl_C?DKw{|xRC#QF9E!@sm^R8
zgDn^}yn#OwY-}YPh&2m8$*PM)dUwP;0>}qEw_H`}hW_i-!0(itT3+5<B#YD&50JP4
z6A7?uQy3mqz=t+AwdThBzj*;{%yGA|1|3+1K!t^)pDdo>ut&SX@7Y$pl;tbftf|E*
zI!w;%Z|4fP=KuB}tAZrhutn@I2C$9;rHh>GC=EqU19l+Rlgb1coOJ;tUF3ZhN_k&w
zhh8DK`EhpY+2zO&b%Mb_hIj~_xIE6pq|0G=6KHYmY&W^F2xC&u*VIJoc+w~B&zPzN
z4;kE*>lG)0)6>E8EXXnZ!s6%pQ9bgBm@E!cW9BsVtKYZm;R*Q$qw!I)LB9!a69YM#
z@<MB7U4~QRFEPT$hYVUo33eN5i=-}#s-2Gymv_to?jbG6>3eT)kb&<Yz06FC$VMA2
z_8B?k$?P<lh#)3w#<a@u6zs2&nkN~j2M>ie%*x}sy}4H;#8C`8S(iJ|*QbeUJM=<P
zIu*u*=px@ZC&|irBsIF)Hod=`SSX@RGSpY@y)_5sNI$IJFW$cEEx*TO=6M#A2uLVE
z-QA4A-7Z6l-|Y{x^HV9PFx((X)IcGj|Kwk&Kn3gnmWH^)x+ybGe1d-f5}!zu{3AVL
z=OpW%G$+(!`fvelpDD3<AkdR4A+(@_&1Zv8!bXz9S>o_^8F8aB(MIJq+!onrGTv{3
z$WJsp3@N-xeoWexR%r}rYiizgD%B<xd-CdJP|616Kp!8UzfI<B2E)N1c6X}d$H#{l
zz7*jACmV>IhZ!ZcQNQ3pwXXXL^<zxgHHDL$n0BUV3~o;;&<=pFOabxR6iv6?m`oK_
z)3oAG6c-%Lm}GD)j37<qouqAt7*MfPQN+!``Q?!x!x-mJ%rY2Nb}h(j#XkH>3G!o7
zO(nz`KPGdFub`StehmMu4;kMjElnnn=fd_xcHYRRX&OGnKcY!ZE+@9k+wkx~5Zpvs
zq(nqWXUk#zl!%Se4Kqvze+9P9A{RvF@aEI@g(D-n3gUmLTLv@bn(k>`@XMNhe6Ig}
zu5^?9Dn)cMY2fGx<o6Zqph%?<FJN1NIJUkc9aGezIcX<RS;6B$oq4$D5)%2B;SCl=
zOX%)z(3f?qUB}at%}M)=wjirm1(62|c7x&LL*b++3_5A6wgMS$`4E;TbO>nB+stzn
zk?@`<*tM#;V1op3(jK5EoXf=Ms8JjpgOZzv9Wa&-XW$V;LzaqAup^z^j`Y0KiFg4_
z(rfM^LHoGTw=w(fK0Q2!wgmzah^Kc^sld;G!Vdp|K}m#t?_ab}edr5uMxp@7WZ%#n
z!qL$AjkLekQ6{ehHum;{ig>dEWMVR7H-&>1;*@vbQh-Aa^xLqC-v<4{c;dBOCVu5W
z2<z651f!4{Dw<g&d17_LkG+VL?7`Mi!b6xRzbb@yq>%+3n8B;bP)=YGRn*`PbRC>a
z8kSv)YEh3Mp9)x$@989ImU~4hqM#8r(!%~G=seV6FiDg&WchG4gukVlUD>iyC8t&~
zX?eqPsiEBnM4TG)6-8S39TD)O`k_}3*S9?ccd^nzj0!iujHmp&MTY0Hu9I%$V#zn+
z7Y_sydkSQ)ImE^J7gx7@fro2LJSG4r+tw^3m3`8XPizUK<(!myy94dK9zE_CE+?-e
z_!VtZden?**d;`frI46*Wf3Kdv?7u?AQQ!SQO;HkqNTanV;*W;ali3D6$Ts^@1|dP
zRc9)-Dm&J0Jy-3j*@Fy$POx!r9g&%d>OnrAd`()nh)Pf3aau;s-GO_vPBH3hTa5D^
z3$ASSuVfwMG&ddWxc8*VU2KPJ{f^Sd6=pFHtYNX}ex^rXgK`e(6R=Hfi*R5bUVsZE
z4LImqG{FvK_=5A1_Bjdi3pyImofLq6F;<Pt0$O~L)Tl(k3L5eSF>sOJn=uII)Dq(A
zL4sZgG(}(vnZmAxI&EF<k^Gd%g>ml3i`1GHvIpv14i@WZFAR_9thqk%xVBrypm|L`
zwe?|ZTN|W3%u8uNBb*DV3_GQ>1r>k>+2aDnxLst16by-EXz|VHvDe3WUE5r+d12-7
zdRTmiD6eR$tbHQ<YR3}=5fNdHk#k1QANA?w&hRee5Fy#WSUTfzfAp=~yb~W(j<!p-
z#=j3Am9dO-&uX8XMBGBupk<@+7*-v6&KPLxTHR;u%IE*KjejuAP}+}iH>5{Nf%&?E
zTly`{|H)zAGRuP<@#Xtr8Equ<dkO!*?*@T&2^9i`d?WofXBU?ogN)&iZV2(y<$KAm
z^&pXQ?h&QIsUBk$Vexwxd*OE}1fozNdbb`kl3-{p+&Af<%w12v{yULvHHWUmTWKZ~
z>oiG*NA%ZRk3PH53HDrKn8eNUE!(HMjtuH0lTC=Dinu$-M-i(Hc};MP>(ZbYRQcM<
zB6D9_mNj5txi8%A${fu7H*himte{p9x>3k;gI!V+Y6%ImWHbW$4*kd|YFKj`V1kdn
z#p(N7FTwk`J38GpQ?1gox9*!7#d&?)HU7#)R<%j+;2kYZ;wS4)3?GHX>TE-S$(Tdh
z_$V(3dJEaA#7Yz9T9;C0R$7<nQ(Ir}-(54Uw`Q*5X1d%*D`WW!DRDbj@ZH4@$=2;C
zjktvsYunwBP5N*)H{Cd7iqz61A8Ad-q7-lI-3#e3o68w^Mds|0QMJT4On%|TNDnh3
zfEeL|$kcGaBU+b(|LOZJLA8qt9=}HD5)B{iu%JX}g3L+AAT$qBb2h#eCzYp$hyL<@
z;<m}laFe?1L(X-{mRsG6aMVl5iPctD2=Vl~Q{||4)31kIs48M!2drf&Wog(qr}efp
z-RQtfnMA1FXY<Mp-`yc`{50uNO#c$Bv**b8i5S-xXOE*W-~td>Nz8oJA3rLcAwgtX
zPX(DhP92h50Y9p4Y`1A~-C5V5>jys?Ja^8hjeij((3xw}i+n;IGz<ey2k`N2To*xb
z-@T?o(WB{cEyjM1I?9GsoX-8x+%%)9Q5M>ax(k-;>vmkaGZygbQUa_l9T3zLh=+RM
zqL}g9BK%?`0U4uSV;+)CLMwF*WTs5r5c$PP)VZP)E<Nl2Y3@4QxqRRDLy}6OC1pe@
zGg;Xq2`N%WqEHfP$j(-X2$7kQjF3^3@v$nIS&>y%U#sjD66rmkzQ5!59`Aqfb~uir
z;`6zm`@Zh;I<NCOukdg^k46qJ@rdI^s9ueumnQb_Yk)8Kc!%jH_rGhkV0((UD*N;G
zqNWpGQt}#el<MG2U9e{{%L}9b+xgKINOpc)F7?vY_RujfW>8p}?mi5a#JZH#vVD0%
zl@BZ8!^=(DBfU+Zvd(X^D<wzP03X33{Mhd*xmvm1*DG&Nt~s4u7QXDXS=nGwyhW&?
zT0@vDMg)K?BW(!#?6zM@L98KJXC@}Hx3IV#hXMHvKn!;V{|N0hfk$>^RU5@gKflf*
z`)hC5WAO5GjBLNfcg*K0B>yfEi&}Pm+$2ZcyCD}>VJC!j%F2@(16dBN732yXZ<o;*
zpI1$pPg#_sTQ2%$f<NsH?R<4+XZ^3xTLNK8Wp^@3S^yq3@biI%RQEwE+q3&9=3ZGl
zo80z%Xe+Q$n7X4jR;KbRWvP%if`oBoXoZRSM)bu#?H&r#MJ@{^BH#=flOr9YNef9X
zF4C?xv@QIymlPfb1WC7-h9Utgq0yVdlW--U#ANrJgxkdCs|rG!+RNe>Y=d2<^&SFR
zL6wNn7P`~V#$?>NXVCv7SnIql<JoH3>oT&P7+J&1E;5CsJnfD|u~vd?yuMA2{y}m>
zHieS_pPXHw*f+aB$NbNmQkl(GiC>n9RSor{UE6pf{q-xjlz301>t0U1I~|sx&&Ne~
zH{tHanC=Cmh>gq=id1WJ1h~|w%(Pv#sF=doUK>>8rj5TIPq}{Mj+mH6<FabsgR3#g
z=dR?w?rWMGbZTj=kM4uM@Uo4~@Ph+9EKh`DH!h3@2(iztthjF5zMYCdCxkB^FKMwL
zd3$=#YXiYcrluiLQ5JI@&MvN$`mkZO-f&ApVk&Qq4XdqHVEl}7^wOoW+GSQbD?a{G
zqhMgRJqHhJjw+^&V#1UE@8!h-RE)^GyE*yzRvH=_#ney#pj=e_&TCyWFwSd>=JKwm
zzi7B$n7M{CQb!6IlbTo)v0crnr#QU5y(Po%DHO=zXXVSK=<0B+P%fMq{ngsn#qKbz
z$GLXxT4Hro#58bekcW@&ZnK5m_mP;%<P4pYjcMvbXLNM-$!U-?4$ca=r?iCg@2@-H
zLz-(#NHEJdj4PfzNsn1i8Wv)YH_TlO6pD!c?~0s&?;qC;<<S(ZehBV31EiMk(La}b
z<A*bB_WQ`rGSc;i>`l|UC~&3B=!&|H*pzynpr_*(DoPNg*vT>cz=wL~IgQ?-dME93
zg69hvolDtyd3k#oD$QG87<1s*95pc51>khnGFmT#ltw;40}r*OxYf(GVZ{+M;!wt`
zX=>hMRN57C8%<gL;L##(9&rqN^Pko5uuYc#d965ka6TPh8vmN5L{GbhSU%b*_@*=J
z<bL0>?}d-D&j?E;Jr4`0y<84EuK*ycJ;K6F&CSjJl`nLPCabn>*>V@Q6HlQ5rrWsD
zOFiYTX6pMgx8*}ty|S$Gt~-&X+ALiiEz`depK#f=SC*MIU1-?&w%bTljMecs?!ToW
zyzm9$-T<Qf7<B6(2fZ-T>>~8f`UN-HuyvT2na^I7UDdjxZoO|xy+F|OTNjm7@ZSXr
zH5;y5+COEzV2~jq?fip>T-cDks)=Zd>Sd@-jaBgI9qpk;t+ooP0PC@K!HCa)wEGRJ
z&awnno$>fKJlqf0540ZpyjR$wcQ3!X$Fwp3n^j}$I*)6SVP*33i}}86CAw;PmfXHw
z=dWhvtaw`gh}`AaqRY46T*t?TNeKgf<lmxj85G1Oa|!I!g4fwSv{Ehh68o<ej9TOw
zAa<-J`9*-whw<@2v9YX?`*jv8MdoO@2j+$;U)9{C9LA$EXQC;OtZdhX*Irh_J|Qo_
z<8^oM-u;-Qy1Bc|&G1*HJC?=4bS6?n`)-oc*`ga%vRw={ZuLD4#Tj7&qQ;F9PQLsd
z2H}D4Ox_}<GP1DT_x7f-@*U8I()%u&3zE<m0$Im?Xj-UrGW0e{$1%t_PF6tQe)q=@
zJ2)lNUA%a)m!V^9uq<Lmchl~}6~E@ksKQ*?0gjnaP_4wF&T*VFN`CfC@8^3{v#T!M
zQp49>R)<fzO&2)SZtX~2?OpiUu7B-J*ivL9-e%0$wjDdDd6v!$e&^Zop9NdMf|=l^
z?JRZ_f?(YXU1HK=LMCQHk-4zwHX8AIE1Mep$~C86_DJnd*MH8xtjaB`+5UvvarOc{
z1V`Ln7?oz;?8>`#mUxSXj^xup?LW1nYc;Y<>YDS3_-pIJq=zR5dvtp(WlH0$W@V+C
zc6;Pow($*q`$o=G(G~fV|9##Wqzeae$h3+c?Gk$r9b)7Q-(ZlnL(XM^bO514^m+YS
zOh|QX_h3oH3^NrKmBq&dD#-UAq^0r1$~ZE(EKcSXYnWO7`~KA>wK-O@F3h(6_W+Hy
zrmrCiZHCk-hDYiT8kf-%7OiO^s{ihoVH;ry?_!4uB{b~K;BM*ohe<u0a{jvTsR$JE
z?NbYMMdXboPmP}@e`CI$6MMcdGKeyCLkFFZ3Yj-E+ALERhk3Vtm@N=_^r+j(u>kwv
z69bP^eNSz1M#*OfXVJdFbLz1Yt9+uOTL~B@)BTw2DQ>-nj$OhNBR7x#scURpxb!+6
zg>Dvtd+x&Hu9RG9`%xOAv(!bxn~^=B;cTtF;6Shr-*y<o9VgzRE8vQ4>4)}(LfiV!
z3zEhhE9n<z{|y(bUDOXhm6w+%JGmY-DzUJSd+>msP{g~F4gDK4aw7uFj_zb;_JzNS
zl(=*{K9_@qN{jpXe*(;g*Q-~3+xYFS;P9_YWt+Os204M$JpIPqjqp(5Nf3zBJZt$o
zcO|EOFj2X;=Z0Z@7vE<F9=G~Z>uXOWx-_kZV`Np+=c@W}jBSMK8mZ>~Jl`-!C*+dU
zP+wQS`OEXs!NQ0c^X+Y3A37Imtm`u@y9U(VrXw9{KmFaPFTDyjoKDwKJ9(0ZAnC*I
z+46EFS0r7y3G!4%?85zPS;BM9do!ZvXa}6LeQ^Jlpgl`d!W&;6udS^ODf?dh%Y@ok
zK=hQ>--nf%lPLra%2rC=u)ARqvqv@&NWYWXek_iEUPD-P7v{8nwj6$8wtpS>>_OEo
zY95z(r~W9HfjdI~*{<{{jk`S#gY!UE-8)+6%KuU?BYd?3#g{4Can9i-wx%ZvR<GWF
z#k@LdLRm#cZ^W=(kYX!1(B#e7Qc@ylnE$${BsX6!n|<zi_d=lo$I8<Sv+eWgxcLy+
zFU32L@}}wVjdxSFqOUpPUYK#I^LE(jD_L6$8x-8UF@I+dqyVZ@y`|)YyAO}EWx773
zh=d1FIJ>bmE?v4bjpUrt&8YXxrnad`757f=t5+xFZmGWL*efT;2L6GHAiFR?kKIZy
z>28QQLq6l7uDI7dQp~aGLSD3+W+|qtXqw>?6WfMlX)7F7I2%MQ5AA$uTFoF}RI-y$
zmy=8o35%9F-%y<TWrt$)T)lR6cTY*N`hAf(U)M*ugC*_H`Re1==;q9c$jY97OnU_)
z7)krlFfo6v7aapYVio8YBM2~ka|W?xRc+T;j2#E6HX$LT{?-`BZ|_p@&P36{;c)Nm
zflaaUZo7^gIpP-_ER=V{%*rK9ayXnaVVx@f)46!CVNBcOri;$qM=Lr~F!HWKduZmt
zfCmpMfI5N`5)y3cP_^}MZPlr$s4zh&%S{<;%*XA#hL--}>fz{<EjM;XY*JKL-yrQc
zd0pJi(R4b`M#^JV7W4~M!k|}u?}}J@dOAYOora;wim7Wup^=fkKr@CtRRYq|yCCzi
zUe?=a%r7d{wACf-LqW#XV%vj~hQ_WFQERvhl2enD!-@iHS`v<UeYo&a_nwGtURm*D
z$5Z)&o-5y?4+K*RYA#$^4Yi`&9u=*4Qsb7TyFIE-0P7BRVAesBJrX|+&3Ahh6#9mx
zQIz62bLI@6u4-8E1a1+LvPlH{?GE%;^9<lg^Xh!p>Fr<GDZvzl*K+Y?4&rk|4z*o4
zMqd!`Z(o}Ai;CI_jpH_iw4=_>(%Hsuf`CZ&a&l6U$6@KLqGOA_xuN0Qcm37AkUn8P
zLkhvYlrPbwrOOxj^5r4&>KPdssi~<^)YIDmY(%0*P#}p=VOsQ-Py{%P03B@N4yaeA
z+I?w^-`LpBY%Dv>#KZ)x5-+rfGUH$JHsa|X1>Bs07IH5yZ+dxvyN96Y+uy$?Pxi`v
z&L=)Z#I#g*8x9^6^{6d~m7QVfe=%6tp7=pXK!6@*ADyqvH^Xz|4r)G1sh^(Ws`R^m
z{~ac5o`T1elg!Cug`eCDT?7XL%HO|7yQC6&^o2SLtT<ppqNT6zhtAH88jr<}fXHvo
zzEHfu>UVbLjZ<c_!$H%7c^T1fUZ3bKl%MZ#u3;)s{_ih$f7@yJSp4VL60gJmx6gP7
zkvf005W|P0-FK~&&&*CnSFSv>a}_#Y_*Ktfd)xL?lL3CN+PYGX%m>fY1*&)fcsa{#
zdy@y4U?H~4ZoHF8iO$ORsIrb(j#s3g-}B@c2`hDDqlOpou9te9HN<Q@HwKh3)V@{e
zt;r#L)UcJET|CAuFs5Z=lbg7lD_b_{ekVIE`?ifS*7nhdX|SX>Co*zBG&PZ?42STt
zV5UZo>l>+=MNbhq$5a=rheV;<a(==4%$Aj>>@vGeb$_0$t*d*Vb~?%A(9UW2_S}|X
zt(+hEv~E`*EzoJ`>VfKS`l*_6jJtOSK*z=ch#SU#o{P(7i_Go&erX>>Je<Ve$p8MK
z?VE21eH`URx}^w*M^f|m39XgT*tpv824Hz|pvfL=C$xRZ!j<;ckMF0y+erhw?OtA-
zszy5UvDne7^||gwY_fZrsdEmUx}gfKrXGIHpWyz;kksrKY2>^fZ0n4Jq<;}4evl8Y
z^LpnAgqGVXA|+pqq?n38BZMT{E)8?GFoj%u?j%Ei=(74`nTI!g7>;|;Id0R*xPsAV
z7Gmm2#`RsFx3I8`<OsFIcQY?Zw4dm6T={8D8glUP@Z7R+!w*HfX1U2B6O=zTsH*B7
zF;j5dxM9OI{6W?bRlyunLl$9?At6)*){geE*i|l<UzqoM<o0dJgXar9(PKG)=FNw0
z9Lma<IaINMPluD{xQZEVI7Sz7l{j?##zfj=!(CG5989$nV6*%J0{Gh~F|n}^)~sVd
zASL!cT8|GOAD^1W#ww^@?}KJ{5x&IrN7QlhJaQ1ASy~Jn>Sa*1hS;5oz`Vw7mU$}|
z2+KTDF1?mOcYo2DKaz^dgBhLgPADtu_Fi!8@d*ptM!dxap2(KLl}fxtuNxy1)6?76
zm38dtI6uBHR=E1y=lgdHWC-l&)K&p$j-oJCxcb^~b)STUJ-A>Kt@_G-E`57q{d4*v
zwpo3h)Sg+l%F4=?*kUl{^EP51V6z67I2Izo_>H^&1guu%2~YIu4Zr~R>~$18F0+vv
z$d4%b(Q<<D1gPF4B-Au2jg0drW}y)TIN*#!4gT>;@zK$|f@nsiCcZ+jfcX(y5)%^{
zSy>+dcR<YFaOLFW_!!dPpQvC2f-K-fD4&^`A)U1;OLMbxb2I<=a`cC&vft6mIA&)j
z2G;?$?h>a@H%~&G5w>uyx!avh#=%=9DJ00Nz%()-wz^OtWz=6BQpaPsq#!e;%hC$~
z(BTvp&nx$J`TV5=-M&woEj}h5+c@GO2&<&U>2lz>a~cx-{Nxr^L7MWk&GIyw`601f
zgTj)cyL(wrR3_UaxbVXZU_Jhm;;mbU9*bY2<)p#eNocm1#>7V%9Zm8Cs3aZvH`g2Z
zcsQcv)2AGl#hV0o!5Q<*mlFVm8E$kzsz}cwQZXr=9T9V8zVPKsM%)OMo>Xf-0ut%`
ztxGYH2Gp<~l)Y-4kHZGGWD7c^-=P5N_4TU>@VzN2gb376dTtEWJmR14Z2o1=tDwLE
zQyV4nZnpdGIX!)gX5G5Ie0&>@`Z82D#>w0Win5zOZ~H9n;j(L3M&RoqNLy7f@QO$P
z^4F{!PH$r8q;Z(+Ci&YP|NQe$nr_Ap2xomDeo*=)JJFo9PHfjEOjbKre3ebgh6Z^S
zHY(Ui2a7-1belJ;f-oRVFxJz5!q?C5IwS4_U9BTW?htzjKU5XY(s3$7!%joMyJAa5
zmw<8Ed4drY{4Gj!XbooN4a6FR8!E`i7#g@we|=|Dw>Z@&B&gsx8B2oAAC8~Ts;T+?
zgc;)X;p)$BS^7EU!)35=<n#{+@L^P9mA$P+vv%#d3okU|r2FBibJ+A3S~ZjH8%932
zJk!`srAQhB$}<)36&U-7#5gN^Z-?-L-UTU_g-rd|79kC8GWMqaXaPQcT=|GjTjn`!
ztUrh56#sz()mI)zyny>$q<WKum_HJ`FFpGY9nu20ZohKUY|dQ%g`hEx#T&*%JGRD#
zhP>!!j7lJjj?dpfU#3Gx-VjKwM+=K6;#0!ziBCqv#LhR3gXG-K$;r9B{SI=Mb3N`j
zFWYZEiHhQ}la9OOWRt=!qy5L5u^&&3VIm0*8C(hq#t}Px(hB1kl~(6YXBX*)fM3%f
z7(+rr96ILO&4Z0zFeB4@O?gpRD0y06pQp%Sf{*Y6r2cY~oV2~2Q0^;ps}r;xw5?|W
zVG>X55!)4bXjkCPR8?i=paD7~3~Bo#VcoAxkZE@2L5U_I^J_X!Wzg(lG+EmoVJFR2
zWH)lRzyDIfVxC1a7yT}=n&DYs^RLi>RDs3+2*wggXvP>Qj!pOP-@jQsK<^QBA=`Ak
zwkX%+9W`_u{D&i%w`~If#sJej8yDlCoziw`KTP%+f}8oZFcAQ{Sud&=aUv_oSv<IE
z>{Dv6nDG!|>%_A>`!T)rGVGV<<!**u-=KRS!s^YhPVJOA(P;B1X|(~lFRV>lbhb6Z
z-}NX^y-$}_=Svc)@k<ot3Y?19j^KOl(fAX5S98h<=HNy*zQv{Q=>yZClnGDm&D3+P
z=E02A_#Qtosq1?7qv+`S6&1=c%RJXm5+FPQVP#&I$>3xW1lTks2Z#LrWk^;w_D){J
z0J~Y*YkP0QDwOy46t41=b_MHx@7DrCLZ|3Br|66lE{hF9xXy{$Z{C<fMeB8hRq~di
z*wq$g19Na)dUFHgWk6t+fR~jxQRKhDy+KaEP|DIfu{Q;2j3D8MZsYridUQ$6JoL0)
zHTCt|kk>s4YX>^XtV*t+Gdfi{NoTG)U1a;9^xRo$YHBiPNOtR?*s89ee9X0f|FhQb
z;%67;aq!jaa2`&%R0<+Oov0MIAJqwoiQ#AK0=pT2sYO>QDoIR;=G%vb_U%)4g{+_-
zudV#DNVuT~q9V0t8gk1XrmJkyc8r8FFzUqc`v|-?HDUYl&gK-c%#ft+!AuWa90$Yo
za9vhn`Ho$@`1DZp$;84!{qw~R8t8ev@MEg)O*dUHEH+Pc-ShFekI)<dW9<!I@Al-a
z1G<P*k)US8<;ctI8|!5Aj9td?57?r;Tefbk#B?h`9FGIxkFZ!0R=wNatp3XQ-c5NG
z){Da2SBD2mI<Av^_VPuxtgIoJx|K4A1Ko9@WA_s|WP_3I>*?tQ+7@<f-+mv`vH);g
z5&m_(bVhY^m0#$rD5}#2?Ymv}7Tot!b07c8&6UVkYq0JGqY_@QF)?J7!>-_7LhM0w
z<o<oCk-;cXWv`8mO=gwz(yZClQdDF0FH}dn`FMN#AtN==Ag8ORlu6!1KgFmsZl>_|
zXa$e5Hv6#eU*~nkgKp(}b;OyDXBAN^vP#?4SW3hGH4$a37H1T6?46BOgILpFzJFhz
z`~D{KKfMm&=#wNN=MZf5c_mKX?aQS5sd!o5tYV<kj4^$OM67JjP3L@kFE#Z6>~}}r
zP1go_B&5c0ng33<N8`<eojY9q)>4Jp74{WczaMs1Njkl6-#$7b5hD4ah`Q(l=A${U
z=9`%C_19K?y*JIDhzf5wJwwT;So%I`eX9cXaQ>ACFL%VG%DdE8H|tS0p0+6&7#Lt1
z{R&zwhfseu{ZeI;!6;7iKnkf%Xqx!p=T~DLn|KGml>@R61hT}I8wo%iKan{@w8P8m
zKkf*$Mw&!q9n3(p;g<rd&4lEwubu+S&$Uy7+RVrUzRbWT{S^wpS4BoTI@>JUGuIP8
z=b99Hf@)8%vKO;fcRsQo!jTSRf2^%%VzLKa6I{Q4gJUl&RWL*hLo!4~klUoeFjkju
zJ6a?5YGh2KzSOB9!Ogvv4CFobB$ZfESxH4;#@bbTHe0FI><hbrN*q4Ds+@g#9bw9W
zH!wGhN5XNmFHXjB8c2|uz&wW|E3l`qkrm~k^!$O6W(`q-#zauZuPE6DS!gCHp&}%~
ziT13ccAkyR9aQ^m>y5ADI-(+wKsd;h`t#V!JNHWt4iBqOA-1sgHg0_)2aZ<-=_g_G
z)|1Mj?Rj{cU8|)yoN33kx`*e-HS+eR0uqeew)Lmw;%d6I4wdN;pTjr4kdWQE)X4eq
z?|3<vgpM&_n&x!v1IHF(9zHa2q)@z$2T?SO?Z>XzMh`LTyPO)<OV_c0Xw9?5I4XR&
zDW}f<f!w*Xe2-tvV5oa&FW$-2&8emc98dKrW0wi>;xWrSgY@?!a58oHCOUyweRTPW
zh}j0h1e>(b{kL<v86NH#bTV0$`gnR0zAXY7I4~{CD5gZV@SM1BW1G5quIf>2EPc4T
znM79Z!3#zED#hVr3vwCA<-`l*%Srej|7L0_(p?})Ek!Sok(@QlgSa*HVLQx27_lk9
zLo(g<@=9^F6x(&xT|Z9K7c+*=4G5e_pKIP){SP8n%QDu;w_vWqJlKpvy0|(Fpc`<#
zl9JMR_M<0Hg8veH!R&J5+587=4>)LQ230RWB}E>6F1}+~dZzFyAUqL(sR;D0t|7SD
zwq!f>>Qt=w)I<PN6P_rpxEPCDw!Wm)%g)jg2<8*dOeY`O4Bb)8p8eK2BwZDs$xnvs
zo*|$n@aD8cthD`yiQk`Lvb%l64SW^f`Mz!@8Ulg;a7PC8Cr6i0si{4b*4E2Df6nqV
z((mNvr|s-fLupu(<5NSsc%Lg%DB6F(#0r!K2L)vxiq930S-@3_ZT`c#^aotcl>qPX
z1$x?}>2qC1P#QMzo(O7xgCbu7r~oqMg7h#Luof3L?-R2*P*#@%UkRi%s#>wFQ@!2)
zs(Mz{uck(=ctqb}N7tp*kYAuBYzwoo#s2)=X{T9+Lqq{O%U6Fd=Un}?A3!&Qzw&d)
z_4v-n1Ew~wliHX~9mCEGFBx2zsm#qEzm-$n%yFH1%^E0rXo$BMrEsFH12Kn+pxv~~
z+aS+Uie;ovK$U9p^DEVv(^2h`XKqfiT5)<Cj_|bQe9Mv^SNm;P=1LK3^L}IV!}Ujn
z^~>1R3L|sdbMZgNb7U0;J3HV8M-V8BKhNN#BqIw`9O20F^HX#B_faMt@uF?<O9FMg
zhIlMt6@-k#NmSsC>C(`vM27B-%m;bc7${$nT{%R?oZKHPX-!RRlT#2-twfwHDxVir
zeJgFdJ6{eSuOgnIh8Z5q6B2mKdt$zEu}R#FH5>tt{R8??#p9~OV0yaMH%|xJyt*v)
zW)!$Fwzmw6-m(mQbR<mn(3hu?d-rO%1=d~;9d6&WVM94y`NO!lKtzIa3o%@^$CrQ&
z<Er~-^PGq1>!kNBhV7or73lE)VniU@P`G{&Q`197E1&@ya=*pECm;|eKLs(+_nhBg
zU;d_NnU5u{xd^0YFIxKsCF?@Yn0*t>vzz!L{$x2(gZqP~s#g2cqrS<D5d{~E%X@=~
zhyrF0C<h%rHIL2z1Y)2fgoT9}g4r|GN}cDEodg;_<wvR3h~N0qI{f~7EQav$jQoDc
zd30QUXFXGy*3JC>C4}-=_8hVzr#^M|g^{4)d7Dt%FOj$f`%w%dJfX!isd>oh_uzpt
zlB8Bk`*e=xdfO~#E*0a9vyCq^k7lpbB<!p6Ez2^<`!HDq>LRyGKFY(p#WL@phHpP#
z9mNM`zH<4-sIC8vbh@WxXOz?52tEnb2+DDlUI8q)Vb8{?oUSQ2D~MQC1u`(}ApgOG
zRWC2TPkzJitQaaDv3Y&&;@jef4;e@9oWmObO^&i<+*fXo=($s#uqrssUMAkcN5gug
zg}VegX=2r#E~XgO1aDkE1dr2B9TM@#v(~pDFQ~KMu%u3j)<xciI^SBY7OHt%Cz5$?
zT3QdqJ~#n9f`khm7cMGqb{-d~qu4dfH5u4Wc1vAtylpu6pt)l-Tokni#vMCo6Mk&g
zDcge#7#NV2AW;{Y@MLD2i$wFe7WN?FB*IP#4%KSTqcW~Gh345K!4u%0{;~s?b=B0=
z(z{&HKv2pS+IQdIKXf>XRmz6+$Xruuv^gQ!b{ba=nOLR>B@V`*{FviBZ+Z1~RI>$n
zpEm=)kN3UdP^{fL%<s(eP&{I;u`x>c{iNCynZ7yqp*n>cnfl&wA4W-+1p!(HRzJ|h
zsI?3;u*-IiM2%nVD=W1Na9o`1IjyBdfHpHKb*>F9Q%@<!S|a5pi0J5O@_HA>0^^k>
zx5hrD^`b&9K&nEUOI;kru(d3G!-c|PxNTD<33MN`f=sCZz)fyE$w{*T1P<yC7r%de
zI;6sjURP~r4i1js!NJR{G7j{RBZaJ5iR}W~^Tm_62;Jaz2lt}7Xy@?<ATm!lD_pK&
z#L-rLzD9`-2y_z~D~>>l<g;1tk<8!ycj!;eOQ*RjLaJxt%_vosl^3D)Y>_e%iM|DL
z3HZnaOz`1Pz_4m3POKqFEcn^8PVLmGby_whf*ymoD~A5^fqvUgXBmi>{9foH)XQ!$
z>^wxgd-qN&U5AdIUKzC9OS8HivUByK<YgY2#C<LF(WBEkI^Iy>GJx&Fzf050+J#ui
z-9ydF$mogOswk`sC6i}|J4>8I$ub<soIsT|SYZ$s$H#zanEul9?4nobEjzL|;ji-y
z0zo{V*{hG$^~c63+7>B@i^r;LX+NQsGzR<TKMA-;awh;YsPR}nTILbzjd38&649bU
zw|@N{^_0*LJornba%gvmY53v#v|B(9R>mpP=P^;(2j}@{QnQ*c)@Wm#w0)>_y1+3N
z6?JV>;w?l!jBIRyxERx~BU8JF$DahJCX8aDMm;S}-<|k2nj?z*Q|!zf{tktT$Wc#&
zEETYC(6-$}j=Ar^0T;1<pGkFGcsRGc`m#TQb`nSeLVdWIP4ZSk>jEteO~SuToxA%7
z2Aa{^NeppZf~}Bnx^|~5S0@wHdf}r-j|mypD|9j-U;W2dAMB#+-{Yd}&w_|;$Nxfn
z{rdI#rOtUhUBR_3coZZX5mR@qHSG@68RUI&aLN<{v7uG-Lp#B;CL0zv06^G|Jk`#J
zUc&@R=$&{qb;6%TQS><D5xi4aX~9hlGBGJBDTd(NIvH&+wq+%UyPmr+xpC+UFJLC(
zp^Aw~!ilcUEFv_BK!V~;1qD*t!Ew;GUN4@LS+{oWKX31>A@$m_>`5=$_*Frl9v@8>
zQ`pyh7PYSHUtZTvhDm^kdW*-9B9&R^5F7JN7AsWnNkKk(4Db0G$`uFYv|c3g?!)!>
zH;Lims-&T%y#&IUlpk!_vL&I-k_j3I<a@3#1N;euNA6oI-{XhzGhil1i;Y2o1n6?u
z@m{}zimO5=hbQjI!ry!1ATRF64GtZK3RIF44!_pY(Cop)_5+%+Z=tbdM1d5z4=R-e
zJT?;LlaNgoda0Y0mrs#1&a%)x#a-~sQ2v&>CU!ph*rfn-?x9Rg&n~+Y$-WX0JV+<9
zMu&+R{g8nuW9B>f;)}L?EXF(qxxW^tgod(k(~ty|q9TdA$T(8}SbQT{kX0Mbg=yD4
z6z#EM>%G=(R)O0?iY)eNB2p_-H6S7)a>(tMUFF=sNjV1<uzDh*qGVXaElCnIz@FHh
z)rcC_NbN|jlwbJQrBWMZJiQ-ZTOsGUE%kU7dImCXtl(Py-cu}rq~t#KKFJ=Es%i#S
zNl$!wRXqZlrm!#WB%Pq{PB)VbT?rKdvOzvog<&i9rB3<h>W;sa6W!COxM4-W&wx!>
z2jZoF;-O#7@uj7umiO(Nv66QXFkPg$zOl+V>x_0HhuiDCFutBBv>Vw1-kc!d)DQYD
zLbV^cA}Q~G7!wnKg1272Q|*1^VXP#btgJkkfK-_gnLgernG+Sf=j380nS89$8m(XN
z+*T6`3wL53!rdQ^sD39e4zH`0TbX{(KGwa~v!~c`FQh^!Za<Qa!8d*N@3B(Wxr6hI
z<vw1N=K{NIS3kxO4$&v?$-5Y>Go@@nmk~utgfNY}`bg@hBXm@pGyq0E$fQ6~&?1lL
zC-(62k`;rHd>BZdqWX*HR88X%KL`w4TYH`PzF&#AwitMCCZ^BRFv2heEikk?RonIC
zz8VWQ<9pn6aGk#;p#So1*FOY-aay}c!9e*uXpvix2viPJIkxtex-?U4&EYJ%i-m;+
zf!8R|*DvjPzqSTyy?%bN)1VAq*+!;qLF2$SK*gbnL$P`VH!mO=cs~|bOngK>b*p|S
zQ^=w<nS6mk+mO~~`T9oJ4&bo2u)>G2yI)!;@)%}vpMhLMGR+P-idIHj+SwQE@J(TH
zg}E1bodS(cPH15reQ*8yy~yv!#idaBe@km@|EJLQ|Ms)dKZI(w-TchXbAPS;j~~-i
J&Q>zH`#<r!yg~o~

literal 37056
zcmeFa2UJw)wk?cpY6IFRm`E*(iDUvq1Z+i7P(YC+p%g?^l7IvW1+6V2(FCX<2#887
z0m-2Z1O){}aw-K8Bo`Tqf`5KR_qjdp9rr))y>agt@16JVICo$dyY~L}7uK3<uDKRB
zG}TqO7p_^z#l^*a_>l5(F0Q%GTwJqFex8R<8iFJH@nfEenu;=h;{V3?=Xl`9f{Tar
z?YX!Fuap0u71+i!<Kp_2>#*`~C!E8&n=aoq)XtLqk`dS5>$l45m!I~9-5j5H#rxP#
z_clE`rt_`jn~A2Tm)Mn(ZZ_}QE6#aWc8UCYW%iwUZ;q@wa7Odh?~8t0z5I&)oPD>$
zbK>)r^yD1PJJ!akS6PRfCmMI1s7W%i>Dk>r)Ju7|d!w%S3g1~|Tzl;X+9b(8xI7)!
zeVI%Cap<n+O7ip9V?P;_pPtGKoH^Gn6a6o^;MzjwH7U2X7c4BI)6-?Xe+bp>weu1+
zU5p1UmaW2AocB99IbCveJgBUktS4?S{pQX#GNoSpD*Zo^;jCAExrqF{xoMWv32$G?
z>`gv}CcM6dwN4E8Qllm0R||gmkC&3q_eRah?TXdhRKOl(2tN(8Q|-=Y^=@<Qu6-6C
z?`zvyR4AF#z3jS>%el$^>q>r4!(F!c6t;LySlZYG%GrM}IHn@VXXC+Yh>nb0D^q_i
zdhFwMMc(!Z4{GjMi|_1C^CG|1#|#Yk)6&wIA@oU65s~cdY?HDuIoqL6D#bbmR(#yt
z+}qAqJl-`m*4lbwW4NBF(qMaeU~0LdyknC?&8lrC%6|N^l8PhAfrX7(_R*S~7F#~j
z`Oz0<Uv^{lj<W>^`K@?y3ub^*?mET6`{f0>mj|Qb<1IeACk3jmek$emb&<Z{;P(&w
z7un^CEK5V@uh+KOe}7-=HuxcR*k-iJDX=wAN%8yp`^#zh6P=zce!u-o6?VptZ&Vt8
z_edybwAs}>@Zk>gvXc#b3$Hn2(5>C6<pHDgY4$dkp^kGGF8K6hFcbrJcRsr(?_~WV
zEiJK6?Hy)5A*sH;{+yLn&*-)fA3o#>?a+*AT;XLxnS&``|LE;*R<Y95u|~U6316OV
zk0LCRvYs#$+uz^UN}$pDGH7p>$S2e`Ha415K0i5HTCar3DO^c$OU^7@VK7wJcmC-^
z9dX`;g(k^*-5nj9glr3V+|wEEqfNf0AyUF0oh1x2pJx^exel@FHypXA={CtMo?mIc
z`9#UCht4fG^jY$~nbC~wmEwAuVY?kVJ!|M?Wo5VhbTyXl>EByDU2R~a@THjDMVT%U
z3Mp^*O-xLTPy5l?xn*jyT}ev)-quJ)O?74EiLf2!>hyB?o7*IL7v@b^pFjU2gTW`J
zGvso_Lp4ugabf<?c-KQ$*E!dGx-F_^QY`4?x6;@-@{D`9L$y9xgjs_A&Q;pFh3O5}
z{51O1gy%$lYk+*q!#+22alPk{${iVFMY1heiNlwioQh}77x+cj(Dpz?kFZNeWUa?E
zo8>;mn4TKlX4_KW-2ZAm%PQyM*Vna}oR*}V-p&lG*dW)id7a^|y*DJ%YejnL(^I#H
zvm_lcQLCgcoKViSUC*2xADlmwNtqf5sT<%?5#Sjf9*$4T`s&5sa&!NZ8`l=C9BH7~
z+uOenliMLlpB$K_W2_j{{MR}@-v2Tu;B0xgpoD}356?EcZ*MavI^#`WU77po(<h#5
z`_?YJw(muHdXbt`9xt|_?;Z8so7eF3*VHqtGMZMjhr3!ky1xEnf$is`vV|#TrBRxj
zlvPwz_KbhKV~f`@w=%|Nt+k=E=M6b@Nl}@;pDHSrx%Ot6@0sj>L;j5?V3V~t(OE{8
z$%QNQ8!&s40dn8(WwJ*aqGMw>Qzt%06p7Jtmo+steQIhFl*%775ulEJ)n~DKbEJeY
zjcJObSLQA<>8y;cJHN0fK#)Jg$WdSX<cm!>rer*L_eR)|WZd~|V5p+|#Lb5%Pg#}7
zsm~t9IVgH@{<90ax0EtvM@IdrzJ3kHl%11fTIj>a9Qv$LtgUOr$HJ8^N_`JbXloa4
zej0YWDSxO!jpcqMS<kO7)!aNoW7pR|6dUNQroMpqr0gwNudH(x7QXu;e=#yLVs^&U
zipX@y_vPAGk9>}px+Jcjaz@bjo!2(rhJCT42Z#+bDRKYVHZHx{rK`KE%wxQiQXNkV
z2ncA&v~5k9+Mp5M*k1G6qyMV#&_wpIL`Gvuk)wi!!Y@39%hh+Sl}~&bw?fJ|x4tH`
zI8d14He97!Q=6~3iFcIYF`dw34y%%u-e6y@km}gy-sj44v%+i^>ZhJH>j}iMPfM2w
zQeE}b#P-Y6rL~vaAEr8*76(X74Mt20O!`Vj!W1gTKTS_huf?7)XB7*3?6IJ~+Yp-I
zkkAf0pNm~k?J})OZiz!L-Zf}JVbz~(2p;6+-k&CM*N$T_9vAcEcAXm^Xsa7&U`&k+
zcXs_gU&ve6__An@f>UqfxpU|AELf(23Nj-NHuUb1n*5P8YJ_R(2N_>tns1f1RXa}?
z@!JTf2-qsq7)DM_4#dDqr<b?cF^6d$3OVj?xMdTPo3u0(_=pWqR<5k9EWkunv|E(6
z58Ac`>7J$3(YsShRb6H!PTjS@v0@er2g1aN=eXAxITgw@Sf(1gC(-bo?eg_6qNAf3
zpASxcnXmLVSVO+&MOwgcvumHA@Yu`w<ZZ{@6!WLqedZbT(Y!wH7em|^o~2(q-s_8{
z^c?yb_5v3_l<=5lF(|b7ifNdg^5CUPll`@psUIfX-^=DR{Vm5|%@_7FD-9m5oARYh
znw-$p9j$xPUNctgw|cp2cd|-EkE_>VwP5iZNl8gn^@i@lRdoX)`9m??Zi(*a&z<u&
z4UpTA!){la&SDhbRn00o|0pSUpv3Yr99EvXhNilCnC-#z$wV7>i^QJ#hK5!ZrHNyX
zELerj?*;=`Z4+6PO`(prowKo#I!uq*d7@$8=9#VN0(aVh9bXo#p*a5S-p=#K--j#6
z3%L({qQ0rtPTUhGCDNiaJ*YH)=w45HLsCu8l;lDgvy!`1R^ypFM^oBjwVsZ+e)|@u
zBJAksm{fhXIrnm%U3qi>YcPB?ccTGy;N8aglbOTXNw#aA<@Dvt8z_#{n$~1R9A~{%
zQM@g|fMa9UThJ1dn;tqfug1RO;Yr3OD|!-YU2nta>FKd;u*xWWw=qJX4-;$(+vAV3
z{wy)EXL#`aj`A~sbsyWUg}fu{SEy!55pYql?u(HM_LY01V}sSF%1T}y8^f_qza3@X
zO^yu`2Lpu!vElv6?(5BJ4_6GV1&m@AEY~=bF@M5=<)$dy=TeiC(on86?H189-|odJ
z#p%AP(~X(7v*V(bu&Ni+bKzxGw6wH#N=qNuzkmPEoja9r@<%@JNRaP-{wAe(c(h(M
z*06QwFK~D@KUO!7mpNHKZ|~JGH8rIzDlzh44_jC|O^vskmp+Z4x<t6I@GTtsy3}J;
z^g(~0rS2X3nLRch^2Ge><vQD5x^zj|+}xZN5x#r(?&{X6#s1_~(`H_E{THL9pPy<3
zimC+{q}3Snv-;>Bv@bS4Dq@(?!t6~?j)tzVxm;?{B1<3tu!f~K+*P^mpx>(gL7QA=
zQJtNdnp%VvOTOfidjsuoq~_azYCq?7mn_bozY!c9OiUWgKu1T%TdIqf1MH-0qt~AK
zHgec`I!3w&0|c^Og}eT$zK2<0Ii5RMX3#TL=)2Oqy*)85&IhhNqkO7Nk<~rcZLVZ+
z>vYd4?%{MzA9o%s(9I3A`ds3G)?kx37%4S%#|m-1Uu2suX$f5ZcI%k7HXjd9X|RNE
zpvPpZEwgYXZDdS)_UoxD_2I$d`nM%yWn_|C#a8X+-#+QKL(gH4tFdAHvLoSp<Z@~o
z0mS$L$od?nrC?Vr$7@Xk$$m*287Af(3m)1;#W@w0Ww_br_P<_~Y*Ogc(c2pU>s@HF
zja7I0x}fT$&%7l1V6(Ni)oJ&cL-JrwuISzJc2ju2WCoR0Xcl6$0x-k&>$R0<N2hB%
z*t)q>6J2>icS_q_9$xrbXC5K=(H;QI_^D$pFjGzHL`7+vU0xaAWTlqI@WOBNCO!{d
zv9mdwWtdcRph|~Zvs5CYyg2r0_ydl!No_MpUX^NIUS{plYah{-N{g5pdRjNI_PW5b
z(MEd>x3M?E0XLR!JcvE`ZE(D5-{%lxm-FtF*K4@HMVYY$&GI8Nt~u1LB!K_?vi>EJ
z4<0<&)pl3QWZ>Jox;`OHaaDaDd_!q)jbm?xcA`si3;>6TV7$Od*S<WbbT=T5pyb<M
zPuIUVUpIhv)hSY~PH4aEOdovMcc#6FK&>@W^hrBq<s<jDo=)?flN8sUZ8!1b>8R_R
z?ur;SSHVyDigsCsl{Gcy8T0KP55Z7Z*@W6zFPh!N8PyM-erqnEI@9!AXJ$)PuhQ6;
ztEp|k9hdh0R)yJnD4}tGyC}|TUbyxW|8;?Twi_t2hdxK=<>mQRJ?_(rm^hI>3D=Td
zbF4Aw)Zho%z|C4ulneOV?;Bk%YZ8Vb*AM-DPP#&%Bvz?s^s-cTN0h^6r$iU)R0S!^
z3>k$$b>mRg+7%NGe+?(;>d45*uC9dCdAtSK_C+)gc31bv1NE4#4xN?Gr3THno5JPn
z&qk~a&hCthZ}H-{err9t*j4O9nS5W^L!B={y2dvGsYB7T^Uu`-p|k*F3}^<2ggtbu
zkJUYt0W4qe`r4vWy-%I$O6(!aaRbJL&WntUV)C7Cr-;dK8(BTk?H1ja<E~3*5mZT^
zX3=XRE7BSO98=q*+<&O$N#0D4E0xR<x6c0Ygvt`|v5Kr@iC~R?Rrsmd;S#J_5%5FH
zqpM4NVEz=Q;3*I2>gobFmX*Qr6gD|A1arDm)WnUlcZ!H~c6FJ;6B;Gbuse*~1>C><
zKHmhU)<35=TP&yJWTd7y%rFO@8B?xCY&TP-ZH=q=W|x)8EaG1m;bE$s1Jq_ZImWbo
zCmK=!yip_ewzs3h8z8jEU$%MGj<fH*u}O={sUxX&LB_YRA84PQb0-H%liPv~isahE
zmX|Ax8ak@};Vt``PH+cMaQ0Y-iqeC`i2XhLg(oyesKh;Na~<gx{}rQmcXhv)EHhv5
zl4knk2OH`RbvP_%m<I$|%F4t@a-b*))P{b1R-0P0MDE*7%W<rvMK?ST6GzXC77b$)
zj-X-}c3f*mbfA!C#J}N|_0QfuLgdG{&g7$#eS29?Dnm<M&P<c-FRYZGdFI{iv=LdW
z`WFd32*H~By0WoMDI+R^4kze6IXOA5Ri7&=QmWIJDhz2RKY4QYqiK5G+0bEw;)%Gs
zw!7hBQe~VPZB-)Nf%+1!3Y8*;p;|};X?RS0wn+F&Vv3KgIoa7h#D{oN8rl^{vs&Q6
zLYk;p+3MQ9Q$=I_Z<Y%84^l3DI*?~Q8gsYdwPp_ogIwBm#YwQTs;UrRD`Qvx%h~fQ
zsqgP?vt{*UjJiJVxwg`HRgJN0k7t>j%g5j57b1u-jrNyWqsiSyJh@)x#nT8F>|X|s
z4?R^9B*5htouDKVt?nq_vz%<1EH(XTyfih9QB_?%l6}aK5*HWO0@UL#=vW)cNMC7q
z@i#-eccRC%w03mtW)0kln0(Bz%1ut*MnL<n&S%l{8f`XbT#KxqId9J-oo2<>Tj%t&
zOmxu#2{5$IAOD_-ebGW-5<<sqYu2o3G3s;C?M^Nh;zYm}w7jTnms9%{EUFWBees-a
z(%YD2+v+b{1ZT5y(F$?zqN1XE*rrE9Wh9nh5^FESCwh(X1ve8U3IAtf@+s;76Q*l-
zZ{BD#Oz6}vi&jedVfWW!n#o!4|MB@L**d0`&yKZ8W<^=$4OcS}_imf&o1T(N%KH8w
zvoD|3@<~P5|NHmvBqlrZVCQDXI<t^5Aje(L9G>$!)}Mb$P+v=12&Ihb^m@U@#asRm
zly|h;1Jq;N{?MrizYqda_aH$F31CQo)D7Rwe5XO(UKA*-#4EM-!i5W*iBS={yk0VI
zs3Nl~DW?Ty(f?TV!9v6^EuOQNcwb$zdlLp9m6df_(>=t_U{&0Vcl9y^<r17jf?2Rv
z<(t=V{_+3E`y4JJVd>j8yDs)%{%9VpQ7XpLZ!Ny|vR~xivqf2m;l-VZ8wb}DzV5$}
zRQe~pm9|muPsee>mOXs<uuanRCFUp!<dcX9VA1WkJOKcT=%ge`{I|S3;C%FZKJ9dX
zIdCmJJfEtn_<$tMlAfis*=3!xwDj}#?(OXb#1XSU5JW@dDIx*_>cxu}ce5Up)YR6l
z$}+^A9)yOL8Xj%40Qz>D@-NReIC(M(Q=1i4qC=qwYin!c&YTc3k~|Ed?X%d}8{Xao
zHTCvN;?9ZfVQG1J3cw#FhR4iym<xvC*gT`r0)Muz{=Gx4Sk_$dUXXn?um{|fS<;h%
z`>9LR%jM#kos<&$YA-J@OU0dfKQ;f>+1snWWqo2&Qb1>?Z1Z<K;PC~i>xPmc{<`Mo
zPnn%6<-=lWR?z|j<8Cs>g(jbzxjlz1F5+1t5#<K-c^Fn~jUwe`L&n6!gk>&<Gbfl0
z1pT2XUUO6J2G;4a-MbXpd6%@Tx);upYOTtMi`&AY{gy)I4v_2mG8C5T=-_Zab%ao6
zb#h%LOKobdY3=0ffWPy2<O4#^aei@Q*?-R7{U3b6vrfB}TnV8-XP{8b5+gBDWR^vu
zqNCT5-Evan=+UE<)z!gigzog@KKydgjn3|Fzt0*<d5vZ#?%v;FUIb9A)w`Wcg3PL?
z=Qxw`-^<qilY{kNK?wgRkI)Xu@vH=7c-#K@U7<bvf7@N`TkYbfw~OO%TZo0IQi`=s
z(zo1Vt`TUJ-i0U|hcK)3**R>+qIi$*r>>gj&MS824j{iz>-DR7nXvomBO81^cvg^R
z$ow#%s`fZOUMw!Yt>rGo)zy_m4{egsQ37^v*V?|EHUDl7p`<;3`++5ZsdR8jcx-nQ
z_96;SzR_&4o|TmqyygLAWdj2Pu+^NCZDb@!YzDK)wW+z;_`6Sa5{yZs=!r1kL%n>r
z%UPv*@rIHs5l4B?7?JbmH{+<=e0zI~hv(QPUfAQT_f;qIdDb0NmJIR5RuR)l*yJR~
zM}s%yY!*Zud^Qg>Mr*VYJdUh&0%yg$@Y;6W6Lp=PoijG=q=7+ne0)62ii~~rD;(b&
zIJw@=rc<WIwK$z|91|uxb=i8xf+2Vy@hFg<r<UsUbg(au?LC+heCGH#RnB7icz9}3
zn0(TrS$)4cI63KF>d1(5Q;awo47@>XC#HQxzs`iKl?Xi>YvM{}KhxZF;!<LeN!yt$
zJ@GZPSs;!}@^7EXoyf5B5M~xR-xnWEg!K&-cS3jyuK&JRoTUPtSyfl}qt8+4z5aX~
zvzG=x?5kBj4xZc8T1Cg0#lJ|y+=b7gF*_qLK19uDrqv##j@Y!hiHPLMb!7|X@qZPu
z;2el||C;6l*$(o0|LRuq|LoU{%Wj-|_c+L2g1)Q)0i8i%A;c&ESt$%eO#!Va368SF
zh{Rr8d*3Y%^~`|%FWcRfKrVG<Pkp^E9B^Hjx(k>uaMy69*18C%j~t7?bq_8cZSj=~
z*cjoqU8dQ&byut3juyh&!Aue$Zg}z4T;`XnON**>DT26%bCw#%xNf>}+ICkLV(V6d
zy1l&z%axQi9DTqG6mkp1L`%U9TQEv0usFcUGAB=-EHRYe4DbA6U(eC|=HUP)R_S#c
ziv0OA>e>GO{><jld|45Zsj*@u>yP#1QZBEO=RZ4#NE)r-;W4nzYCGA0=zgt;2;l;`
zk1r=zywv1hF{|(Gt##`}OprFPuo|pTlRBVWpfo*R{<lk3>Ng<9StrsWJUyn8J5p~!
z=v(8_48+xh#Pc3=`q&VXTDDtk;kDOm`a-2GbSyKP9J}<HURv7PK@v4JH7f9<tK(zc
z#wY1YgM{pJ$f-cM9Fp^gkCv`(i2E0<8;B><4e|P)(sUlUDca=DJJq&3xU|i$hHI#?
z7>s9>U(n;oc7Z6MJJ>gJv#P4;@UyZrY#sUU?+I5^JHyi2$C9(dTeY>cT5ZlKxs>U{
z@cP&Mdare<A3;Bj#i6Mqv~~gUG&zfMcHb#(Ur#5HfytlM<qHuK2|a!2crxtr_xmKP
z<Ly0GL!aU!(a?w&K+|vo1EgkFwWDiKnr_PSA=r0gF_)Mhh?31C+|vmnV73+)KRXs(
zVsvmj5bT{g#ldm6?P)q!3?<ET=e^_jzAzw5yO5i_r`x`qm<UU&SVemk8yC0Cd+C)K
zGao+VK4U-V%gf8xj3>W2yWt|jkV0_9<9aX79SghodO=<<L9xp<_H2^`6#@t<rFCt{
z{M~I)W)+PJUwGm!NiF2;{gte8!iCy7xmW-uVx+CT;Px^JA@SpBL;ympTI{bDY|sGn
z@XH%SrrdX5&o{i>7G$CDhwD(sr@8}8$2E0zSI)T5*ezSeE!bf4#GDrJJ&lPmOYAaG
zQ7N7Wq??wWt}`@pzq~zlT?)Jq@ri)v1OBUbY!DGyc<qXN0hiwz=`BFCNKQJlhigiW
z)C>9L?9Mpy)^yS6;gvNRC6QQK`DG5sGay-H^xbERLHXzHJ7r~QH9V_r<|(u%0Hl4F
zBS_aD1NZj+lhP!f7IU3SlP1m!Bq+yuwI?93_|({Fi2E=~<SgLS#3}i?#Fc-FR>8pn
zeE${B_=lXiQMzT_NsU)0Z|Ia=t1f)Lz<FKsSoR0M)jN2WEV}ZS7Qh6=e0<X=EC9|&
zfP8PQjZ&X;v3#`)W1y{6Z1;L2?Q+^2M<=JH9lU&PEy9IW!^7d)1Frg#*Y-t5700xX
zGq7t9)SNu;SMy~xZE847zzHZ^d^EcKTV{NGDWiuvBtTP*xT<|69By{n)p&tRxXDZB
zVOqN!x4-VROA=)UKRwYCKid#9<8y}uA`tdG{+`e^*sRmb_gM8=PL4b=ao#^uoaU3I
z_wtuL@X{62t%7;U?Xj})&Bz~4Y?I{t^3i&)51ZFaO^wovTMB(i#QdR*_TtiyicB1F
zQ-tHNiY;JSdWMGu$jv<Oa>F#n#E9mzdu(XT{3lPI+*5FMv;=*{pSgu|MdS|4pPJv@
z*;wo`J?c@Mn9;lj2_Qxkf~It^_4jr=Tp;0mj?Xr7^~;Ofa5aLuI~z3u@THI(Ud~Op
zTaMb^lIHyL>!E)W7LX7ApR4`f0CI4mCa%2<>Szw5aQ4zYn$>Fv5DqB?^2Ra40Z*y6
z?~HvKJUo8=4h*9Vp;}U^Z<e=%XKby#gZLPSB4OCAQ!By;1~VjWUUTkLyT{Z<#QLQp
zlL*#1z#75%LENwI!VT{~iJ-&;X|5ByF$H_C834PBLub%vw)F_$zdl{(6YzcSGUw&4
zKVm`<z(vCfk_25)&Kyslc3y6>eYpOG<Jg-IKm;HayUA(w?BMcg`8PJ;MG$6e*ZB-b
zoo*MRX^Z5)DR@MSTv}e9`)pmUagcJ=yN!dMWM}Wbe^Tr>#RysB+0X4FA~<dr`Es+;
zXq7-oQ&D#OH#(#3_>V5<aydPcDU*>2PJWOtEiD}c555D+10UmJjspjgg4Hlfcrq|7
zK!c<6q1vo-sVU{3zN$OnntmMqeS2E)9XPtjJIxd4C=^?On>!}HqEzq0mjsPOa3foI
z7b5B^F)H%JwPy0=FmN;Mi$zUUm3Hs4E$We)dR>{TXjQ|~#zDVg(>V<D=QM%F0&wsN
zYUMlqP}m#Wr#oUF;uJ(h{<_#h2Q;RRKXA3&6qFxOQ(1YY6nRNLwvf)i<a0yF1;ktg
z<KyB=rhZQx8rKkg+df$5eE(|9#%m6ZVGb8{%Ji)QXMeUYyMSn^(^-2!z(ZSM=`X9q
zN$}<9xWVDu84~v`J&1tyfUsyoMa6M4N`#;ZddVjKqYjrYS$?^&1@SEFWO4j5BzTCj
z$y;{HHsRYzvBHw*6^pK2VXpDSWLc(I=1$0-eSgn#SsFa3PxxeAJ1wcAh6zjCZ9qYI
z``4fW2)AI+a2(&q1O)}Ze`13adKX~V+ufbeF)Cxi4*0Sr;J9-+2LFLM|7=^Bbkx9f
zxGwQ6-@l(_c~glqZfMVV@nZe(ZzJA3>#E0-%U=CM!$pqDznZCy14qsEGPIm<;Jz!R
zBrUjsns1fUnfjwXd}1Xh)qs$Ybj*T@;d;XWv?3`>F$->d3_nP05dwRCi`Bp^1l^h?
z&Qkpi&dKs3Nf7Ko`T<OZ2|&X^e7HF4^5FMEutY|^+qV=wK740R?&3x2pUAXwG;-wU
zf9L!@yFEV_+ajiS8F`YY^rp)%<*getcOk=W`t|j-m|hNv>?x!w)SsS~RtVY1N(0N}
z1Kl9fZILWI5UIIo_%rz`SMHCXJzo@%Y@8u7dLhn(h(hs~Q0wgTBtwvFS(kELNswIn
zGF0c?>}E)6ih+n)Gw5uqBS`v*h!_J-LSnPr1bEW++bxwM%<Zwxr<^dz`Sa$>FZp?h
zL~p*p#l3rmKJI6}UL;kZZ~l-E%frKCTgazd06u>uQdvfm6E$?lV>0Ano(?<L&$7{2
zzER!JzD#bTF_Q3^&@&Jv5f2YZ{}(`_vI^EKfacaFmVEA0RHP*5iKp~d4|qDo0J`5(
zba&y1i=f&X!<~iJsRa1JQtoOGvo|3*NRlz>gOh{(Y1TC3$Sv1fT%DV%V1?v{?f3iU
zMaaCgHuX`RMpz_6_eA~S8lpwO6y$8;C!^deEaUvrKzv0j$uaC-BDWq10Y=vq3$3T>
z{=hv@%LVQz+qI4(d@^?V;U&o-;(uMhFaE_S`_g&0K39hC2U*4*OhCq1p%j&ehli8@
zkMfoDK?X>o7kMxknFDUa@e~A+aI6vI@6B7jhuUDkL_EQ@-t^GyW_<2}1WC)w*-QPB
zO^b`5oe`eN_d+P5Xxo=JS_A;tidpm9W?F>Y8w?s|jdBAD%QI}Z9t#S8$#%~B-#($h
z`%qFpWjztA>_YO|6fs9#UsqRGD}W+Lg+X4?Tv&Lj|9Wa0Lhdu0N{Hr=>(EJT4#Jlr
zmss27M3TkOP|7hOl-LFCe_o|Vxg$`)V`<K?7ta@6>THwM7Hm0gAHgyVyHs(QNGwes
zPD~I1LR<>DC70Jj>~pdO$Qo}$9tpJ8Nm@S9_Jll}0i<7_ew)>&G{p==IwYod1^Jez
z_BXYr$cr33?Ws4L#(8pic)-`!+2O6<)pH)-ZzHO7#R(_n6LJUGhY&cb3^hz4Zh{zc
zdU7yk20)*x-GYN<UKYmDCG=#lvCI!87#H7g|NR12Xk5%niGGaUgN$LZ<v7+y(m{@l
zh3gGDGbG%u8|e5H&9YL0FSQ&;j!f+D7m#cp<6%3iPcfu4k(tc-=1?NuY(uE!ZHbJG
zjM0XCBti{@cAPyDTgq9fRp~g~`RxjQ?}FRQBN#R;4`{;b23#4e=Hnr=$sM*@lB136
zVrm-};wfVU=`7>)JrG9z{Q@>*J<A|V#8HGEwh&^!rcEn+Ei75B!qdBu3XTBigNbx&
zSst<J??Xm}Ha1@F5#FST(`Z_9ce5>oZN(rEipL<L<E3Lew<z>o))26NzfC`<REoam
zp#K`}PCL%Kc_ns6b`0SO&XY*h*^uSOsYZIY2zrk6>Jbu=3m_A@{}|DFbG>}7J+RJM
zcLG8!VGSkrC7S&}QYYE$L@o@?l@z!3YR-M%RNoYMl~d8sJd&OXfk$*=qQnYG!&Sa3
zBz!>ZhFYcT9|_yFO<tEn>v3I`eLSmA74J?2!cbCGcscJTxABy{wpRWCXAZgctNr@`
z#j9H&7x2Os$?yUwhFg&k)^hwkZE6n$5Bs$_2KnXl?dxatk+dx>Z^Y+-?+We%qwJFq
z2Q?D))Z2A|1tcCrE;K-4v~h>x*sG;QSm@)y4>&KON){e5v(PkCc$x?5-nu?W3<XFK
z1q66p$w&&ymn7&}GY3k<T-j6*JIr_rdkYmtqL5p*@t3Nq{f=L@lY70Kr#0|+@V1)d
zyVp&GO%ihc@;ga)s<L-lT<S@yDI)sGs;Vm6io+WVk=|W_$sox$sl1`%?;pxLU9IHo
zwdZT^?)kz7^AIFKfw+%fywM$!y_UH6Bp+{YB3jG~&v^1=Lwfy%c%rkGJ;b51xcK+w
zR|=LzC@C2<6PZpE`=k+w6>Ky}7p$Laa+d5-7`CxB)TMQHz=N?llxQpz5wm)GFQxWh
z<^Lwf89_<nx2Nasfp~Ij<!6A%Zz~NUG>j^nH~uoBUql1zL_~;4@Sc(f)eui%j<p67
zj=lTEXLaVSK)3ZE-*!HlvWAdq6YoNcT$}5Hj^0OQn_iqrTbdTW@@_o13E*J<PT&5R
zXLuLLEoz)8k|7N*K`7)G#V;FjD+jqj0(`ryFu=K>F1>}VX_1O^)DL*{-CtCYL~xvT
z`>AoacY*Pn?yE+u3*HZv*#VlVLJbYx$R{an+0bMt2s3SFt64b1U}0aK>gM-MvGKlR
za*s#C-yJ3BGf{#OuiTY7Ej8}32!dwA75&Zd4a^%FZc&vQ$q!=GLJleyKs90l*&Y*~
zNj8UuJ>Hw$mBh(8lQXd{U{@4l3Nn}6j?T`LUGB5FeZ-EEk@PJNmZBhn+M@36?(PTW
zyZ`98xupZ(yoDf5l`wfn5`%t?DCejB7B|F9S=uELQaU^y4h4br%L^5n2o5wr6SYZ3
zY6KZm<d6?opBjK))~hVucl4+~{kI#3&j&=j4y(G}ofk9Wp|1*73`W8(Wa}m{HC>an
zf7)`!<ab$Sa-h37Q4$k&$^-{Na`^L5MRT(d4-aJW7u*nd`Ukpqo01n7fdY<)=n9D&
z6Adw3Cfj&%KUvmfXloXqSJ-Q|yEn6yq;W_<NF)J~*M&~@Zuj!Haqlu9RRJ;N7l-d`
zDAdg#2(k;AwfDZXtZcDuv7j!{TM4dS15KWk(`v58>)@4EN}S}?dUE6j6f&}9dj{VV
zL0D@jWAZHVr9_lZT`DW2M4fyTVc)h<6FNI0_$HEx6c*9wfJOo<B|wzqhL9Q%IoxO+
zW5LF-=hgc&GjKv4{}hGXR`+r?1jNG=J5NF3n;wiP>vMB+e)X_b+kE~>kZvjw4dx`^
zu$j$|<dQ*QUpc-c(&Eo{jp<vLK*<}<P)O<t-EN};&0;w-#X2#mVw8fVtUGoEVZ;o-
zR-FX5M^a(c)zygK2#03#U3)@+9upH2)g^YF_xq`!$Em5QEyZFnau%Y~3R|ut8uOvh
z5jLiLUUI@EG3Zf#zGCSD4B*c018*k6f{AHDRYg_TQfGV^24T)@s#~(2z>xjOp7K6u
zSU*Xp-<PpEX$V}$oE$7yfyyU>QYr_H%%4me^?F`h_$(VyjW1$Z>2{!2^|~g~2Xa48
z8sJj926H(F2M6s*=fp7amA-{Ow5l^%8B<fQc=|`G8M`F~^o?TrmXowO1BD6CI_M2S
zh6Y(6nstYER}WTN1Wk?Rl0@YcD6;`2=0zQBTIG|oY*bIzc-?&Mssk!|ZZ76$gohJP
z{nV^FebZgL%YI?NX<Nr0@P_84{8leMt!YST{Ce<S0S7C*+5ax^3sGCCHkr|JkWGlF
z5Rg(20FEQ4lL2j+SI==5kCQMzu%kMilJmcj!{{rOzw3M1Lw?}9rVB*y&4!;#&&adN
zD?86IY?_<B3OBD25mD^_eQ5#Wv=*YgCNg#T>#CTLMu=sY#1o4|)y%EsxQF91mP^dA
zu>Omra<>vmRp$2x7A+4flJpZlz|5{7QrgvVoZ)QB<6hPe#7i{#w~c1GzyYql-ChSL
z)H+Zq6$p&KnP_W>Cd;(DHhJ6Sfp7O9nuCwDJrvHtPmct=#J@<a@U?}JEuLn1OiK|u
zk><!yWk4lM6gqex2-n>6$^#ode*7i%><1snL=$zDIAaa6KJ-&F20);=<LT6VC^ibl
z+owH7diSU%rMwp&)5?>oyZKA?O}`tKYn6ZXtiS#Ck2&u*d3g#2Z0&d};#2yCXRZKm
z+0UD<@~krCnk6W3_0i9ZU;nm%B@{LP_u2F2c!?hR`BJs|)13IOQ59<JyXq<fho<bH
z@^)HiQk;Q?Qr2i<M!o|pu}?+00GNv(xLnZZHfLyC%5J*7tA`N?S?aVD@}tb@DOPmc
zg)R+g9O20k%)2aa8|TUskE7=25(r^nlP4`ALPWaIwmA`^6Gtk;Wm;jRb{$<}MtReb
zgNp&@tf;Oq(F(>{Ij^3delyTezGv`A@(gl&rgvbeb04IwlOu>62O91lIU7I97*nfi
zrm}iWX0V%PvJcQ5{QGzhC?2YUV^g-nfg~bQ;Cf`or|?A(VkWA5=!YrB^5N$v_QPIK
zU6JJ|{FC@K!6j^HobEAtOK&gYr!Wa?(LIB`w&;AC-JE6L{yhT)Iv=~(G$8%S5n>Jh
zenE7g;%=A$5s?-#%D5_FI@rst%x-v*BpV9IR`T$WfDL3*bnTzBlz<lpSh0oF9}$Ly
zg$03Hs4AflrQeid;GTg)Zm67SK64mi%*;pzrG)c3&n4nl`#huqUV3AfZdU|UE=I9R
zOKJqWdqajzeswR&tYKfR@i{)Ta5|r8Uz)y<a735lF0GExQ>bqT$`r;RFkOK>-GFA$
z%+X5r`nIr{n*?7q6c2Yp`w!B|5CuBJ-H3#KC<4d73gMM2xUMB_pE>8{#EZ4u&a#BQ
zA!(j5W~&<W66cu>f2=i#;@s3T@-O{GY?Rcei(o+y%7hB`x6(j?is*3eqM3!YBehI{
zkPOaJGM)jDA7!!XPmkPR23M@m+>B}&Qak|uvdtqMYEz;}PgdhR;@LS|xl+=w_9;sO
z(odp49fN#wImu-jA`XUVZ|JY3G@+!(fKMVC&sL}n12MB}72!1@Wl)QoA@wT{i+}O=
zetTxSErf5#Z3sFw@}NFo`p%h|2qpIRIYj6<9j@OpNDQ%2mm@{nTe2R&EVs9pM0#_?
zI3qh0QZTz2x{Aqk=@}u}ge23`snx+rX()23sNMoHS9`N7ho~V_Kj29|yTf(0qTI{B
z95)`1u*v0+w0lqE{rK0ciGu541QPi=cH@einbG<LjV<FQ7ztHc8;Nmx7N?r~=ZkEb
z;LF95JDf?ayD}OJbrlE!Nra=qL<J2M&kBxwgv--McgS;eN5uG%WGBv$Uh3#A=Zyc?
zm_OxCoBvwG&41GEs(fs<>Z$RFX*ob_pS%VFBR`FDzJ2p7h6{BuMFsmf*-32XoYx+~
zDT3_215y=-uIj=&8jAO)FT=GEiQ)G9NA{p92^BfF=sm;@KpJKe!to}WpRhTQ63$Du
zZpyxg3O8kC0k{5FwjZQxzP)Mk_J&l2sBFXRN;Y!>1%TWZB(hfyaK1gXA5XQE;U{a-
ziW&<)u=87mP;vDvwr=P=9!oF^6HhFF>X2l7NugJ9)B#_xJL$EeoJlzGIL@T6pU^kd
z^IkY)<_3S{@W*2|<7xT3MMT1>6X(0S|Ltkh5L1@fXgt^%Tf-toYrKcT?$rIep~-{D
za-iW_QghQI@XU1gY4+&KzgAOw2>V0&l5Ub=T^C!IX8e$m1Obra%+BMB@0isGMs1*h
zloHTJ>Cls=Pv~(@+(I#zmn>4WN_Qu@(Fhdj2=%d0KvF=2wv%*(fkS_{mFf|S3ZzQX
z+xzX=RH7v+c&fzy!2!kN?Gb@=sH-{BP*VSJZ_i~rPO)pjEft~F(_?|tdjBweeT*yB
z8uyQEAe!x66CKgWr1m1-7$0meMm*>0_8wXRp^Qd5wKLoA|NZ#~6Q)yM5R!=0fe>AK
z3rHA7C!26aD~&E4gQeV`xrl4;F<4tMB5f8uxgWcwvN9p!0!eGigdTkn4$pZ2MJG|x
zT#K*4G|5*d=-)ZV&0kc5!=#sCZ4{N(4Wz#f3U_4-E>#=&R_|fm0qVDP!Z%2%ln%|9
zV^lJlUBpC007N-j;Kjm<ZqLGnxIC>YLv8X`LwS2B+b?Ci`^2SLQku7jSil*U<&I>u
zr2wMCpNwngaqGX#Nk09?t5C?bn}^goZ4T#@_?`;Y9Fo%K*tkbKRqf{X)u&mQ)}@$z
zs;gVg!$aagHRcP>>hW2<{izvSnT|waD-zPa$PzjFHppZ`i_rqY3tB8fyp2mmb1r}M
zeC=VahK2@Hyf6_{jJPncU&nwngn4-IW(kEaIa_z)+@b0(3PAe<UwaAEA-dcX+E(mX
zn7~_%eC$K7s6Wlf32Z!|6WgxD3`9&sg9|P#;QZ$&2ax91>7#SZ-P~Nx<K2n9KuyyJ
zoAOXuTCtdu>?#>cJt_+-jLm=FstDHaFv3xBMU}tv&T@E)-y^mjOK$X!&4a^9w9#}U
z3WY%{PBO?ydRxVL!igj}N0bYd*qEo*O}j=31z#YAIyQm)vPpmUpQI9Eu)$s5?sTgd
z74lV|ncC{Tg<D)+%EQG?j-Xb-C2tzl3-=j{n25h$;0h(Z3OFuhWe&H8QrQHLs6_Ek
z{e*Bp*|La;Nls6?FIZ3Bza7tvtSmX}%&%TZw_92HlL7!z3JSCKp3#ouaf6iQgo?id
z=OsJDQmf;<PP&=&{^ZXZ;Dku&UJ*yQkZ!5(2DYf_+sKES`aDvnipBhszrpxny7|Lg
zI%7HYmWYNvwz?BsOtQx<-|lD##ck)@c}w+8!&f=4YLiV{iP9W(%NtNav<&r62VwPV
zfl^FKO*P`mNH-Vq4No5(tTdfH;tRh74v?_RfFJOte!@zMa1NC2r<@&Idls0;9R)y0
zR_E2`%y7j!4p6S5M9|%aDxduAW!7I>fRIu?*HO-RCOu&MQ8#^uVVq@Wmh7~YeEM>l
zY?#M))Jtrj!=_7(^m2CR*tFM~8(w6{A|mQ?ZFikPi21TPDQ~WVUjR1A@gs~W;YCR)
z5~uuwpD}ijaAe7YW%5wbe0|yow%*rh8F|p&17zJn>|;3^znMd3Z)@nrEOd9tl{(9L
zsg6*95OO8g-t)Zdh0PEkW!C11iy;uqliYDkT_!0F0US{3@`NYPF=>z0Hpvr;r?D}&
zs-fbNK(Hz%Dv)iWhA+ha(1qWvt2tTLYO&0PrL@D#YRjE>yxqFEWI_Dl>-*SokfEFw
z{qYgSo2KOehpL80$1N-^#k*=A`cv#n*u#77yjyRyukMFcS)6%jXU{5HoLy6W5!l~_
zBc)*uS|FOt6ub^vy7<XTON;6q-fijThuW|w7h*hL`I#T^aB@Jk1D|V%Sq%J$_Ux9T
zJ693(rX)3m)<}S8aJf^z6dB36EVGo{SOj8~0+jnlo^)Fbe>Wkl%G~MllJVh93-Sb8
zC(>f}u?J?o4#rh3-TJVzH{v&Yv?<P4`z%0*|M{`3MBT<-N2aPFtV+N`EAPXrAq%a%
z;dlYdNyX?!3yJys!mZ~^@2AvtdkR~OG-!Z*Any8cX-BF*O;IoP>`{cA8x4<@>m=yi
zy0pN|e7LiU3HxF_oQ|M=nXc9pl6@}Sx_?OL%hn)k{hZQv3ds?k<f&^(X=&15FDz_u
zV~<-Iq1xwFtJqOmOw30JVxChhYLX;QOaIV(MgiBo8B_h-ZG1q;#vtv2_5!iP*Mr1#
zgNH57fW3iD-y>2TxD;=;K({j0E=gkZ_XPImhA@Y%zaJ9qM9qG!lyJ6X91vDQG0WQ<
zbqH-rxz<)z(g%l35N3{_a)N*-cFj63Zho0BOPlBO^~=c0wlh9jOIX%Bf4L~iIUaj$
zxwkm<ba#t87aj+dHsu(xm9y7)L*~xr?D*q<wS_qTXV;3mf9gOV|JBaoKLD=S2PQoo
zq_{IK?&x3(0P>X#n-7HPGYR6P5rB_Y^dnUgb2Zz2_MhO4p*MrQe~p>vFt?9b+yo9!
z%hmDpx4F5<>WJ%b5>#A6cSP54M)<!luzw)IKO1lS58UFyZAmWAffvZ+0&^S=LGq@~
zQig1abKD>?wprFbhnxQOGC}rsZ6(SUq>=zw5g42}&Yt?T8`V2-5#kNC7xTDkgYo3r
zI8s_h!j#9QoA?P0MT+`=Z09;ui}w~JNTR~*ZV>tK$&vfFFRkW!{vkz~V+;1G{*RCR
zKZU{n?-qyt7dFB_ozA!oKYsENMbHUSaizu{rt)N)l*bKJ0h81UQEd`ZffNQK`gmN*
zIS88`_$+Wn5^o?A)yo-U<D_<8Lt*#?A-72+S9oum>9S`WT=r;e%Z4va07NZdMSW3O
zS%7+~UtrR2eK^}XTtf*IOUe{M3jzW2hYmU<48Ha5%x%e;{Mg4WXSth+mXP$BKs}!Y
z5!i3Ia|4EVl@isB$XiK$FRAX8ZFXMw<2dKw`$U=i)Vz<-oye4fs+YE?UT-)P+}T<#
zpJhWL{*or7A~*c?>52Diat%;!+XBs)58<~`>MV)dL&0}tS8FpUDIuG9kXmtZL*H8X
zX|iGO&Xi=25W{wDs(i>ot&Qpz!q4uEXr3^0AC>r_JKe$gA2ck(wL94Lx2eN{(9Pew
zIvj|9QHM3wOr$Zp)ZrGO)13q3-*ADxMe++LZ9%LLu<1<cdV_UNAp!(pqH|@v2qd%z
z)*#)bffV6^b=Yz;FQyWFE|`tOA)lggd`02mRs$dABKKC;X$4;c^@b3O?<;rRcR0m`
zBk{PwA60kh_;H0D2YUXrbQ=xVoT6jG)bx&yLyNMdmIimcOy|y$YZKaKgAX4=uMt-q
z&MmB%TY#^k7-6VZN-f_i_G4I;GhNiadTN__k1&3~x1O{{@nOzmwL?L-)~ReT+DAt$
zvt%r}jlHdq%Ph6dEfdi^M1IcD7tgQSMC_rbotCX`e*gdxxXE;HJ>elviWkdG;#`uH
zw;gW_8J$?bASKInmX7fm{?LzT|7ME`oEmM~GbSmkU?iO<QF=C2LCEI(?j>q5n)KS^
z5Z=6^T8Vj-ROn7rDWN#}6rJOOC#pQIO;ml}V{K3kpKn_J{#E*83fr`-UI|{xbV;=m
zu7=Ys`3<{&s$|NJmL_1?NJArq6M}<RW7ArGYWCOG)h#9{u+hHUABv70Wcv~!#*qlc
zyf3Zj8I&^P7r{(L)y6EjkJ+4z*qmgPBZFoN%afj&$Ll1jX8)1$8Qga(v-;DgV=Wg-
zNX^Ns!5v3uyKYVZI6p<7qZ*2GAMskLJBddzbywKi0eXP`x^?B~)Qxz@>LeqB*Qyn#
z+e(5IlD5@WSL@(5jLxcf*F8lDw~WY5Bjw^-E!4=H;RW+P=(`_E138hDQtph5C!e%*
zS8EPD_nLJs+u(XR+Mr=Mtp|!@!ZMb%p27yV)OK1*-g#G0j2=YZ-b9hU{7<59SNaW4
z+1F1wICpPb-3Ag;g-}93K8_yE<TyIdmS^6c8Gsa2Fl$A~rKG=mKt;BNSt3R&K#1St
zOtf;S1A~1DJ{809jfGk~l$2mt2Gm*l@!RAk7qg(jEk^$z0c65O6G#aT*Qt&Z$}i=S
z>=^r@;jt!AVMGsFysgIQNTHYGXazQZ2@{ovQjjUN%oZNoJ7qARV;8pkR=7T#6rdt`
zC<}ZadTBG~nWD#dEM^MKEPel}vHYJ075^P3`~RX*0LMJKov5F>0V;$vz!dPGAgsK-
z$x_3%Y&cntlNgOS@e^m$xeP+zPy|iYvcyPyi0A^<1vnr#s*gkFvwXvm4(13Fl|^7M
z3|{-B!@%>BLr_)~ud4!!VUh-uTnh$FZNTuS=CwoEh6SW?1OSg1p_Udc;qbz3r$}BK
zl9lyF2kUCVjJL`&#?=EeNUtiw<Rt&W7nA`nbx+pD_;7gXvKjs7e<b$)We`o(dZWGd
z@OKA*CnI{1eUmS!dQ9pU1KFQx5`3L24dRlLs%g}YL=qMe2h?0N9k(UozO^_fi~}TH
z07nSh4C@PUpfHl~q{!gP2l!In2c%>)DD%O9`HYQ5B%w{0F$-W2dp2yL#$Mew-=6y5
z;gA-BkBE&9c<O$`qZ7n#AZG<{`9Rv@&uFkanbK9AC}s<v7a18@Og(V#y(O$6jBV~N
zn>f%q_{Ueq35@0ybzIX%3uFDuG4AH=)CK)TLY=Q~u8-F4u&<Wjdytw06HlDtK6@SE
zOv`s+X&&$OS;aFyo<i0cmKL#a*uoxWZ#GrP+)*hFa+$2Ju>WgXE>xIT#c8AHH@m7q
zC&^Hs7;g*}p&2qJBql_})ssx&;eqcWGY0n#+b<K!aoG?RoTASgG%>sZPmT!o`iW2!
z_Da^$z%<NwZUm(|#5*9CLR=fKOOwQFmt$lLKj=RUG(f+-9p*jParqTC`6j^u8FKOQ
zow6kGWc40JkuD{YYL%3nZ2MAp%g@fN&B(aR4fXF!jRE5)#M*d-02_@+YO*MSK1Cij
zMZ}S6J)?Z*HK?FXy@NX*IYR%-xw0>7+>q1r_y;%&x{y1X!7=At|H9|uU*>@S>%U0c
z;cQP6BJAhrph&6BpJ~FgWnrsH_yfM?aVaO7MfkJOIl^OVoN(z;D0`VsC6xx@?jv=i
z`&=tgNFp;jM{Fio3ir{EI*p@lJ5py(oQwcyYfiHXQlg@3<e*L1Kx1%c#9dU(NGExZ
z7S72<{9*uRaThQ!M;{5thg2D-T5J>u=Na-MD#GqNgC&g~T#DsjnFGgoX4#-_4<&aH
zzbX#LYFOF2f*x@jiWY`ObH1?K^T%l%G_*L#2laVU6d@Qy1W726v5Fr>kCXk#sv<ie
zrEkQ!;r>{WpPHSTFK-kPA>FQkm<{sEq2CeU;UPM#cb%MM%qmss!z(oxi|Ho$c~390
z&3J<HWKJ^$<T6KA%~4TyLl+M}7}~^U$D-Bdq)sZLbB&^#b3|{3#A^H`qGp4<M6jR4
zn4%$u5G(C#oWm4pa}~(;AsIr^geQ~IJ9mQfgPU=ir?(SUdM-;FzUDP>F2`h7)zpMM
ze=tC(!sitJ@7pFL_OU_mZ2?)e71Bl_SAg2*gaLzU=aVTN9I)05Mz(<4A{KXsr%L<i
z%Cb6UV_*H?fsgm^K8TLs1^iBjc3K56K7Q1EeW4;!lP*)!)THpGJ=S|i4#bZl3+eie
z&L8_=NXJC_LDvtj>Q9HMAD?^XPvP;%kNgJGE;GM)%74|ieRP>r^x+t(rGZUk*S{yq
z$SdvbB;V9Jmj_5k_Z8J0s@VW&$wHn-4Wy%I;mYos%2+K^G%4JC`aoOaM@ki1CWY^*
zn{#m;u<=}$v~7#B>C{=c8?ewdv=4BAqqV8f)OOUIMNlShUri-F`dqtp-QDx3R^NrE
zz6wKIg8rV}Om;{5vkbW|A~%9>+JgIAp&8Fymc!e%*NLP{Rqxnke&{=2QSk~?#h;tr
zLO8H+!~*HSp>WrAm~i&QFBi7Xve^()+BR>pV>=N&?}Av>6m6nxU(H=<Ijo2q`;dO4
zA|j-AhtIPAy5dlz5Ji(TKP*bnPn}2ENw(bH1iGigBahW5c@Px}$ZbbiDR}Hr=ZG|m
znu7%srAXwI3!^rFCd3jqNVnwD-Vluqhn@+*dSE+)f9oJP1S&ESk!s-`Q*&s~31dLo
zUM5hszuwq>4dX3zZ5|Bw)>FDj(@Pfl>Qlmi0v0m8&<_W3>|bLOjv|I8>;ejc=!yyo
z{P_A*IWGe<_{_6B_j+aj*EfS65>@Eg0b&g|Fn~gzdfp$=)Is>~*L*>;h=^lpv~sEW
zHAw$**w7QraJz$jt4TTu16`ndqFH8Yc{h03$=lvTmT$t+P*g#AIs7}J3sOhQfnNsH
zEFN2x?Z(EPH9wax`6WrXBJqUIn2v$dwl;agI?4&t%dN@Gd8%si%<4l@cHqY(nvSNs
zL~IOq7MYRn+)a?=ToQQ#1_Bfc0ksf2LLF>n%L3!qimtBixKqWi|G1Nlase9oh#>kS
zO>xi%t(<0$V#SoP>Wq9o%r8mxk%ptok~nFEN4vJPs8x$pdwi-VI$h3H_);LUlQwoN
z(oBkE6ZTbctPd{*=8cDk$VPDtBuT>_PJdZ6X5yrIupLOv<1r(nhnH@U5pf;RIyMU<
zB5zL`^^zR);hC)U*2kcUW*QS)`TyCe_&-p)|GP(Fu%9<&fLuR){CM-yYIh>rD<qAt
zkYa?=lE`_m#TrPanY3A5C(?qvnO}6k?k(iwQYpFsDrnClU5{oJ%=_hT8_0&lMkdqr
zXAeYO`b5<qVp}};C(=l{F$uu`fXO4Y8~U^!1a>A(j*n!Ar8q%yRZQ;5!xLg?cNm=s
zMGcQ#X4REbSD?RC1RMk*K2VG-M;>lN9SqGxcQ1UbMwvKHlKf;}lVXibh|Muns9gi0
zM!>^uNRuS8;MkO;sd0B*D(H~hJoL`v^x_l|AwfH?*T{s;!(N*du&j7|*cRR3kkPo@
z)!A7xYC)PS5%naVGL?_id2yU}JQS94Q>{u<>wegkG|ydW_zPO<x+p6ff~!9UUERe4
zZ9SxwE|EcF*Mod21`B!f;sJLgkkIdUp))HsJKIH*TPltCI--w(C<~jA6rPZm1gSE}
zc0sQ{8YPb;M@KE7SFffi)_z3Cvo-9_tK95*oRZ=ArQs;wCh9v#P&;&m#f@`!kx#t6
zpT)&hq#BcsW#jfKsi|6Y7sz64zOm9E9%6SEf<S-RR|A@58~y_?G{D~7@#yMM{7R&E
z#;N}Nvg&jf2qz!*Aqa`44!`oECZ0@FrB8ezmDHe-pqTvwA5*3$YDl9;<%IIbLkZ9Q
z+Y@k58;;P$|1AIc=eZE=JC|lHP9&-^MfMMk_KeMz5Z{eckD{99D*_apzlgpXw4J$g
z5di~q$qX9Ktism|6{q*p3HA2}0wmHK8#9)1-^NEU0g_)4e2b1LKrR7coKr{S^&)lo
z9$p?Eq(_dBPat4Cs9iN-!RdcRb|nNV8r1g@TTkyJrWl>L+gQ>N0Fqxp0r!bUB}wpn
zN^5bTM*2No%q{i>9PI+#J4=cM?2n)oHEE_<5%c&pwwNiWE{E6>jM-*l=m+T_;O)H%
zxC3`rCob!@BnQWMPNn|Sd<AeK*F1C7iQA$~rx>k2N%KZhu+LE^Mku;#GLm-PV=wuZ
zOe$<h5x@$Fc8P9=v_nR_1L6`%2V+t!(CJYOOtzJDJ-<i?1{gKLg#!J3m7#XKjZxEx
zs_{Lf6Ef-MuxH@yx=-*Vq%Wr%Qqw{gC1RerKN~UV*t4s}dz}d+$i2*Q9|t#XZ6%-N
zKEiSkITbl_<llsLhZvN!KO^n*bRuXK6LR+kp9oBB(<|&X7acnD$fv3F#c1@Zk~Rm4
zqx0;Sq!<$mg7OEHpqbP@KTUL&8;y?ZziYE28q+aIKUblcEdT_20SJFig%7E~B3%qG
z-4NAE*cL}0Ony;vHkAp3QAn!VkgunhplSy)vE?9RyrFq0M3Xc$+p>-iluqYs-*uQZ
z7F?O@{>I*>%akJbeo#%p_$($Oslzp9efYmYZdc!i4eDX5NX`k3Aww?FXJ76v2@-4l
zW4U^V)5G%<g6l*`JwfKT+iDA|9f&~#e^gb>i1H}uan{FdPO|9JtQAU1X#Um$5lEMl
z;Ot}S3O`COUnHs|^he99>W^7fT%$Q``kYmU+&u(*GE-gjsrX_xX(V_|YtSP?U+03-
ze3$0C`<3R!*Rm7-2wz;ODG++TS0(xGo34`&7LN#=VRyB1x)Y-Ry0Y?Oei?C62_b5z
zJx;_~#C9^#!DGZZ0ybF!X%3^;akqEWZoBa7VDe5D>Ent7i%npLEXWM>&P+dWD0OVz
z0{mTpnZFT`7-&_vTYbxEH?<4R*4=8<@Q6xh{ngQZGUxtXxWSCoaNh!kzm;S-h&K1H
za3c&ci)cgNUg6MpXQEJDPnzAK4d*^mqKQJ*7FhWkkdMht&l|dDiawzld$tA9TZ{7h
zuSpdUMK!f*k6xQ|E;<mCB7fq3k}=|9()F9HO)|A@ZKC_8k%rHgKcX!-x&ogeg?pSD
zIZ_RRme6j2<w_r0EuKvr^K)lh`h1j$ZkOAE+FK~o!<1IifD&O3ss(&VUs?j73r)AA
zMa)*Px!qfQiu-`l=jJ=VuPL!t5OGJ3+Q*cdiYI#QU(&lt>pv2dk?!_H5>?T5_aPBV
zLG-)|e%7{3uDt+KH$f!rNdlA;x1ryL!z9`k`p;gn>sQi!?{TT1-BrQpdE156Qqi1n
zEv(iHQVmWxW>Pi?<i{!gYw-~?VYU?7R_mJ=O4k@Jhem5U)5_gatlIYYf>wj$gN~+@
zfx*egMQRrPPbx`AZ+vr!!qCTEm<iGfji}>DF$m-yQs68(C3`ru!It#d?%hC|9F0HG
z;w2-#R6(!<g%{C}k>GO!I=Aq2DSbtypn6+hW-=U2gd^5O;Nr_!Ow!s?ao|=U=^8=a
zyKutcdhSSMt&K+eZ*ciU^Gs(q(2@2fXrs<Dy|`VtgDHK2y{bDuM8aSN9mznraB!No
z1cac7d)=LP$^f(E4-*jer-ULqp^~~}DEDx-@KtGE_7PW&c^5X74|@*{N8h_mHBt*T
zd3d!U4*Y6yOo;Is(uIaJl!u?LAl8Y82Q9yAOo&DXvIK;Aq?0_U(;4jBhU%z$XYPyc
zxVP=XBOC{LQpP#bU6+jaJ_xslDIh)ah#Ho7d|-M~4@wlYGM5|E_oVZ6?TWq2l!(2Y
zlPpztnR>gmEnR+*@J|>!M}$aPiLP}IN7iDRw+l^RD_3Md`O&6iM%wACr7%otUNEQB
z6^1J(%XJb@N<U)rMVCc(vNXktTSd>G?|#QZpTkLe%Uw%-%r<oib?4hal;`bD{t&`3
zrPJybO4my?M@*mJ?lhMhJ@cr-*)pXkuE75JJ<@`aG!a3{)ZtG2e0?btkt2qk>3;iX
z1a9JfPx<tIX<@Z^un4u-E>K5(cp%Mou@vPTct4wKe7n6=6-E>$``<8g7;MR42?Lo9
z_n->R@au;ILP(cCSQpfGajI(xg5;b!=<1jLu$P2SsZKOl$#cu&bX}v@oe>i5zoYsZ
zeJ)}(IM3?$ubFd%)u*=wTWGz6ze1gJ;``r|t~T6>OmN*wEMYRpZ*T7?50{8)>XM+y
z?&4FTRpoZQ@Ak$pYtJ-j-)KLTJc-1N4+%a<jSAWV90IDm`|iw4fviHltN}X7C@Ygj
zs-p2?{$6&9!8%|_$HknA0|Xmr#X6m}Iti@>W7RqPiZx@4^U3CMs4-d@!D?)8Aq~$-
z<w5M&7n5gYZypzymW=cJECYubfS%FCFj%V*|57Z+!m~-X89SGWBU`c}aGZ4M#9y}1
zm|z<cxpEl1N$6xZv2fnrD6bgJ+{*IO9KtT`9JJ>?OD{}1-^wP?6w;Uv=S)poJx6r?
zcKZ&?H)AZE_M4;*j`Z0k<vT=ri6Fi2rrSRKfMT_ZirPD*4XsG}o~1IfH(M>RN8ab_
zCg|~?G#ZGUKyXs_iq7Od1S24L9W=Gph)`d7``^uKP*lkI&iQSLG+4DK=w(6*OpB*j
zeGwkZ%c~#4JCjhG)AAc2+&ULZM_({iq&*F)tagM$)^=}~t;tk*P+fLpSYXUiutP+H
znS|EEM2-4>Tk(*qT)3)WgO6?4D#pZ<4AW<KO&Ra+@8GoK1=ucxv~YO{g?br#6#8Kz
zWaaz;3W3U%J9cz^(EKoXM@VXJuKQgi&>@HSpSx%U(Q)6J)(FLeaifjUnV!6O5e@fe
zpEP}nzfa;Dk!YB;T|_1?#lfC`Nd>}RjKqDytL#;GMy<3}Ed$2t-t@?8Qdv8@nem-<
zbifG;dU4WDN-advANd(sQgukmJfgrV)i9!!N|?@vPu9CsK-b)Q`FYmw0+jvZ9&-2G
zrLfyYs;?g-O<jr9VEP^?ZxXMxkiU%qad(lq601(JD)sB-iu&@%t(ELm3F{~Hdlgnc
zJ3h4iDEpDyaJxWbHODRBn`8Ag`N5Yqo7s>kgoI<Zq*9SI<v(g|VQn3N9>1b+<9SDE
zg3T+*5%wjb%QAH4g8pwjeu@-R6JBJ{<9m~C5R6pou5J0lNm9j{n~U?|aBCsLFa-wm
zBSJ?GY$8^Ybc!dUZS)8Qa6~ij0J!a^Uvg9K-Pd2cU#?ukC6~8<#DuhJC;DpqA%fc;
zrZ0$m01-UruX!LFKXP7){0#&F)Ds_wjpdM56xDp@jn5DpJe56nwazBlqW(D@<p>JU
z3Gt9>SyCdprhiI?VY7^GN@&C%Y7`$d=`RAw0Ahf&IwYyrq|6o{XT)f&^OeS4dD63T
zH*##pQ3VL?0|?rH)IP&S$a3pFoP%kp`Kf)}9;#C~EJb{}hCBeIH#DdNcZep52#Fg}
zh{WkQPgnttw}omsulmjib%nuZfYq2@^EEEpHTTz*?i{%~P+4Pt(O?MGT*YLYa(du1
zu3B~xx12b2;58B|Eyy1G!Gv^~NqLzl2FrwAS0|f@oKCpT%J!v_V(ymw-L@ufT}B=O
zk?V`{N#+hRY|;fD4IW$2N}baLn`qgc$G%>V24{En!vj7rXMPKoZ?LqTYq@PlYWU*e
zJxV{A$6p$}L`3wEUf@QUKh&-s05I|sQrP_|TgI)S+3Tvgg$$LavuopynHlf*vO|i7
ztSc!Gc|>f?e3ra*Px%qpgw}P!<A+GCN<K=Kiy#1511Si@H+z+noRHLEH8l-DV~%Nu
zpggvC@YK~;f9-plRrAqYq?P<7mvZ-B`|$?IKM*AZ5IM~M*V~szW4T6eKPXfRITDdj
zii%3em?4y*B$Zi(Oqpj=iesoy36+@?LX<IMB}2+o$Sh;XJQID_<D9eB_x<^;-&#M*
zT4$}!>wVwnzW2TNwXbX6d-olWTdn=`yY_arrrhzn$q4qT8goJiVe)amOxTuX7l&%a
z^3upgmzxCgcA?7~3yMvY-$rV#m8_G)AV5^|3KTE&kWdjCDrpF0H-oi`Tk>13vD$!;
zL-y4dG6#*!g>L*_AX_AGUs<v212@%!Qt`Va9K*n&zewNmiqqG6lTq8HAf{g3@g)bk
z&=22HfXG7j=Vo`TlO^+>|86<0H4#HWYA@Ni82`078C|e9@$ukZDTA;xJsQ3u2Cleo
zDdtPhX|QcmoXx_se$>x+1kY<jF+P!cQ>eN5r499)t}9KX!$M{n>_1EO0p-;Bjk9VE
zza^}#!9`cobMI*K<_oizG<X>18x2vI<mT6kQGgESU3bnX*dRApHQaKw3*9>_Z8)92
zoz?aHMHYTDGNRl1pNJB1J4^n=n2#EtZqQvwUV8F8nod)r;%Yu@R^zin##X4wCD5ra
zlp#Gx5cI6W1ykVZV9+Q)7B|Q)&LqMFk|fO_W_2j0$8fdZknCoaUNqP0^YWn0N4Rr+
zV8MGF5+XIQerOg_J@~u3m{^t6ZIlz5X?3U~U@|RZm0iC7*jyv_$-!Zox1v%e?8^3g
z8f$)A|DA3r>FdEat-00J!9Uq9<Co8#U;b0tB~)q4s(I`oYgAd`t~+MD$@}7Y>38nm
zEu{7}tHG#ekGF$H$;0T=7H(B4T8dAfKELuK^X@?XRJy`L-*Aokzova%D46eGzPhs7
zExP=<w0+!rym|WbG~KVFW*v_&rsGc*Ket-iw39vFDG6>Ko(GQ}`E213*OE+r%d_{M
zbzLk4(G6x&aj>GmzJDVTi(GMAv&otKAd8T>(q)v6QD}Y%jxP#`I@o`HaKo~hDvZ>&
zyOg56(CzE6mD*&PtDWeXai&qb43By1va+&n^0vsYo&Dzg#gU6Tt><#aOytRYlrHR*
zCV%1}Gc)tV>}*=*X{+HgO14fnzgIJ_3|V<z+3!;ReD55M+ZI!H?`$;#gPp`B+?Nmz
zGp9+!4SSlErCBNh6PpNJ;kMIWmiz);XhW=pfbwYmtG9W1$4~=AiJtSakRg~<6psy0
zYgxf_PT;c0rPbey$85Waw=Uz>wnfWB?N`r4PW-+anSHpAZ%{g0ClKvCE~B>Xdx49f
zS4!^yuGEyFCp&q8?c4WqZBcE9{=w@mF@lzZEgxl#kFdUf|NfA1C4;ev$z@b0{QUZY
z{&bZ1--vKm>SATl{fyt<!Qrfdf%WSHqdxUb(sXLuIoR0`e3^9^YS`mF+dnWsNr=0Q
zU7K8OJ(teY`ply{+or4d!dL>|`t|EIq=NbaCVQ--+xIpGd(X@``rV5cVm7R~esGkp
zt+tjP0qT&~A2lsQeRK2V&ZWl2oYkywiKPz)HDhONelh9h3yDZ&9<LNSHnKf6jn31s
zj)N|4rEBH11pg<^9=QV5`4qL3D#n-!3mykMhmxo^cE-JuB|~ra__n)^eKk8;SzB9y
z%)x(kWtm4xio;`mEcCgNR>=)1G`-w>LQ#=THADP}>2uxZ`;QM6EMKo;EZp|6%Gj(a
zl~qGS<B-L-ee4p>s&6H_q1;mtnVFg7;>5?tTNwY~5WAeE$}6v-v6Y-!v`a#wpj@A~
z`qQTg_;8A(C8u)c{?;~Lu61B&{G>eQV)YB0AB$MAk>yn{=jtDU;!!b7;gI@Kytn*r
zfty9lcJVFjlhnonYbK^UhiL8x7=9U(%>3`%Ny*e(zH5sH0*Q+X*%n4OTR-TpToyE)
zdyzXAkk-x|5#7q!ccVs}+LC89)W<jS_|2U#fxk79Ph7YVwn?`?Kg)sJAkUUUK|z7~
zrrr`@I|cFM#}D=*OJ6B+>9~B33fe@7SkVcTaMoJoly9iD5pH3VPnVwGz@@IP?lsz$
zYXr3~DJh9ipJh7^JmDV@khzfJqSR&lML%Y`!>zcF)?mlN!on_bakda%H92Qz5mfTt
zPD<L>*VlIm6FdZ-99RN3^0zAQ2b8nj4-MVJakBZ9p_041IRF0rj7&^M6N<bN&c9?z
zZmdjTSVDDNf9u<{v0E%09Dxvyc1TN0i-en6{Ate){`m1DS|E$nL`%JNafq0jvL`<R
z*Ov(|kOJ(NFJGo^v!Xw9kHuv=OZu=gyViTg$^O*UjND&i9R)o5_R*r&h6mel@C$v4
zMskM3;AxDa_=}j~&7iSxx!L-@gIw7{PFIhZ@1IyRhrX=Hjv3V+KDm@-Soh@F?-=NK
z<|$7A+<$<6YN#y1=OdS**UGuZN?htLy=86rA~$1p`f=`Cr;%;=m_SGwD&rwCjjPd8
z9^0^;AJ9&wdwe{2VZpV?YJAWkLa3+jhGa<#6S>~xH8V01&9LiL^zrc_>+7|$Etm&t
zW60Ov4Jim3sHt5XlQjI~leyt^l|`;iS2=9^K}<|A>QcpviqSiWTS}^<`}M?xEy~qc
zR##Vr!>rnJHnXy_`UeG-!)0?^NKb2nImkY>QQ{35+T6?{x4p=*RLgB(u9jn2OH<Pa
zx1?Cx755)GvK8{RORI@m^ftl%{{HQft{F4AiU|({-qlMjK2J=H)6KPh?oy)|{cZ2_
zAn)NLM~;xUa!%fqfTL{WoO`rcQ(rkcEbO_9*xmFvdB3IwFAd%0uT8z>OgP{<GcS^h
zQ#Zp;Dpfqso%c&{eZTxvG;?tKZqL?Yx{Vv(!-aQrum_*T7ecC@keB!Ur+7z!i;|8`
ztLFpB*YoTq)q{s^oK}{c-c+$9YLIPzz8w?o7#|c-st6E`>1v<M=dc~kx2cVm+IQf<
ziTSY(DGT-R0vz;_>)Ok&Vr=8EMciCm6dN{d5J(n;<>GEpDeey34+-&(5VeU%H>{JY
zswZ9<6kS_Qtc$iEwF+_WWHv%fzc^-OYkLTHcy32VviA)P#K*=GSRk`+NsO>{Z|rnD
zif&G?*bW6uUip>Xv{E8;(|f8+n&LAjP2+Oe*?$c(BjXV1<q<+ToX0y!OX1nQdmV?k
zql~@%>lXU*?6l*fQr7KQO8cwV-7R5|^`1kcD?d(--7uWK(6rP0L>TRsE#+ujmFY5W
z@T)za>E`cA8f6ug`i#r+n2NWfsQ!%A)mpJnowY`tyCH!;dGcfdb-|O+Xkzh|O-xKc
zb<)(uD{OKcZDmGl6cG=%*%epof|#DNt?8@nTk_`GFM6&k*lS;bh`~X_{!Rr!<e#6u
z#A7sqpke;`c@Tc(b~vsS{_|6*a`^vw<>PJ?75w`%rJ*{p^}j!3bmQZ7MHc<<PvKuo
zh5x<(i4z8QHW>W(SKQo!AJ_eVeO$@_qAUi|;rEz*pMP_+{8&hM_}-#&7D0ooe0GP-
zo+S4J$#?xFzpmK-x_b4hT%7tPC>CSZcbZ#sZ8-nhxc;s4=teG|f(YC_+fqt?xLaUb
zu8oSJL3S|Cg>F{b7>nU(FC08|GqapbqK0guhS=*x>z973N}|5FTM}guGiG_MHr(vr
z&)R?dxZ&`J-@mUH45y^sxqCO$ebxe6GbIF>+wj%u>I_$|Tp?=!et;h+hpBgTd|rN<
zTb3z2TFBXX?#`V%hpgL=C28`5c9s~k4pNyJ@8aC}Hzndi$g1hMhqj&`I}VLs%#EcD
z@aFc$4gvm^YHMr%Dt=`u#q&B+t!-AhxZ1(i*06GFdFf@Ng^TFN{bEO+=(V*Md9Z+!
zkb`04rpg`&2<&@LN6MhF{8(qvU2htCl79c${EBn9`BgAdx%jNCZyjHX1>IEGJyaz0
zO;8k}{<4w09#$VKOXVV3F$90>hnqN9nIAyO^}1KbJzAiuP!N24e063=opVF|{o7v#
z73{$1JmXC`!38ekfOAw>T%{=S@~(z&7THIq6bhpF5Ud0ixkppnE0^<+T-Y9-Bjz@>
z8v}GUJbLs<E2~&14U(@=tVZ%7%ccW+bA!fcvRA$z<l}n>3!oqnkL(>R^>{=@SqOEc
ziCJd#@8eA7f7Vl>lrPV9k{f#AZBQwn;`*5wA6VM0?Q|k87s)1T;vxT9o*Na)AHyWJ
z1Nt?UV$1%O_33)~x93LNM)tTMwYB?M$AzyUlTeS}*wj=y)7t2d$V>vhf7cStd0e@S
z87s7Gfz%ul&M<A5Q}0&9QYwPndHZ~$lDC-21zbo)973w2v(ig2)~|SxhCii@se(j9
zLjys;Gl=GoVRRD(0r5jdOY8C1HpLV3^jzzxx3KS1%VuC@4S-xj0z<RrbdKSsv`tS`
zsquUB=1m_zKciAFiUsI>wlhD^W?3|T`r;wew}`NtDCPo1LQOQcT=*#4W@vLlL}}?Q
zswfSmKdUPg1X_f>gB&{iNF4W%h5xamSxlCsBt)#+{o~`gy+`oimjGl5FVF-!n(6rx
z4+i`DPgP?uBrQQMZNpc{ri{0|yofBz<}Jv3kG2Zvjx3^@V*-T)RB90-3NZVg-d^%1
z8r$?BGYbnj2^1Yz_Qq=RGvcuztI{CKiR6#t_Sl2rqoS`2F@G4X{+>0zV`?3z4RZGk
zv{OvoZr@Y3;Tb{_BC|Sw=+E|iA%vsPr_WwVO-FT+Oq}{IetzX8LrqQ1zzCM-FJA08
zSO5=*))@*fPDhcSwRP+5&LR&Zu<`o@1VmZ{<X@@C%2JRIz|8zN`2ZG;8|7%Rg?O*n
zGcnR(j?AE^Fs$@eZ0xS~0+-r&t1Nqa`wY|Coy7U@vx5TzJ)rh-%-Te(S}!e3{NQc2
zbBt-(Q4ObCSyNNq{m#4o*(s)l#YL_I2k1PPX5Im(?rSts#(~38@<vqeMOBTQj0~CL
z9KQN_I}~8S(;a(td%rg<d_AwHckfGtD9^!zo6&Pm77bJ>DJdDS)VO4E2@9mCq}JMS
z+OmczdfUZ;-<Uc_f;VFK?%i4)(iaQoX}K~in+3?xbF`Z`D_{rfb8QS!NXF8zY(Cyu
zgyqHm5`27c9PJ|Z9X$BAo`907>b;g(D@Hc9J3oJ#5v9n*BQ<DHW9q*Prn+^{o;{Ra
z#I8=yd3`P)hO=kSQhEUrJ$Yw^0#!c3AC>xWr4S?IG{Fjp(pfvq{n9p%`rt?3taW3e
zTh@FLIsHex>RHLl<CIiXAAx4rHEN*+2R3~zaIrb7t<C4d&;vo^eOFgkxBF(cqYNPR
zj<i;wIOt(hW0<Kb7~u89Bs#&f>Wu}>MI`Kyhsc|o)R9wM9CV=isg{__Sfti#<A8d1
zyz5?+UW+DJiCkz#om600@-iBwX#^f=w8(aaIICtoI5M&yV*A12YE0ldRgp7B3M<TV
zKPx7|2L*=VyCCb+C{&9)R^Rv5mz>(Hp+D06D%ah^h`qyfuKYEF9Hc%`?n8&_uF=5@
zRhY5v5Vbz4tEi#z5bNpmNxFrtqNyx~L2k`*+%ZsiHzI=NuNMbLkGe!Nycg>Iv=vxx
z8*#$bHLt~~W3uy{fq?+o#voxf%cjfVQD|rYV8%wG2i*&V3OFImG7x266jT-m-t-lH
z)_|rPP3*!%5BOx~P;|Q+`@o3M+SdqJPDwl#b9nx)zjd)+HIP560`jM2dyCFRSRU?1
z-1_uMxnLO6VmJ71;jnOA1mi!6j3FT-g8>Q9K0!gzyiRQ4{YQ_CFX~?Vkv8hmH!_l<
zrCsQH7&k*q9NkWx+JFEW{QkXM!Ek0dDv_Q=@USMpIbSLzj7?1=4hjkheeJHiIBHf1
zBUhO|4|m#NtlgGl71Cpcb}v^)(ha&0$B?C)nh(!rhb1h3?p#<#AHDmLkq6WiF5ktT
z@$m6gT_e|&gl87_(o<{BS7<s7^whE~&yOnw@08LL`IG$OV`w6{rcFe~lH#Rw*KtO<
zU1DOafLl@Z?o(4!<RfHVmp>vTL_vJ;-TcONhc0dyttZsap1lRCR6HBiCidJerjG$o
z4w#s&8%G|L_@{qxa3t;K@Hakl?XzbeFub4SalMto_yDKp?|uCITiF5?5uwSTfQ$N@
z%%jqDb6fS#n3*Mg&oU3ma~KRl<cm*DRmDndLWNl1qdNfsj0Aa;y$p3~K00aJ_(PTZ
z`uhWLPE<@dj^AkSE|#!d_v&S<O;9$E>!_P2hjv(YCR`>Dv>V<=hw)A+JCGNU2hv3C
zzc4sBt$^cim_k>k4o#O$Tt1amRrQu_h>vA3-Nfd(zN!#zF)?kObj+(ebt<66la7w=
zFK`d}c}^o?_;SKcoX2kz61(K&<Wz%{G3?<ku?s-?s<UBAf%E9oZ_&u#bc%`&*9;5k
z_KqW;aPOZPX+Fa)eO(Jixgk)I2a)9?ETk-mL!vBJ)|)P<yU6y(?JQ4Q+YGII`@}rQ
zp@-_pnhlHH@PQ4qO2iek0Xp5b*RuC}>jEG^^hssqt%jbnp~r5n7Jj>k1#K_()cw^}
zV(2*1q{csvG6qqtSHd_azua~7v{RCjPVx^TqKFg}zwGirg$CEb`Ptb<iTMkfn*KOL
zckqRWv#Z)^4LW*1*3sH11$8$D?l{Mj3v~2m4W}A>P``bVmWz5b+itI?;TO>s<P^c+
zxjYxTI{0(lEA$~nxvPj)4J!1W%>ro{U6i_Y>sHUw><IP9BFu88_?UH9aYwg1@Y4Mz
z@?YrEdsF}2vJD0v28K#uCRVrSQNlqzlAM&pfP5^p37roj8=c4vHh!HT-r>`MG}qFW
z1M7#Wrsh+#X~n?^z=yTRIdA^vN-MDGlJ*|?$$J*hcNtqD0Z5y*0-R_)J6C=zq4rlm
z$t@}x<!W@zwD~GsgjhkDq@36F)~WiZyG6FnZeHGvL_GTP{JYNFt>Wec!Eor*30cjB
zH>B0!Z1XbRXv+H9o;hM}XOfJCd+K@fP!ky~%nap?Rs>EoT5@o5+SuK8fm}eD^z{7)
z1|?osaMX#fF--7a!6#t#`5%96hL@Se0Cj?>tgO5*K$Vu7T82^;^iow(anR`i*Y@6<
zUfRr78%K_D$Bs?JF~^_xJ7$lX)s=R??&~uia)V=^K=%YTJwa}6N>n>i5x-&5&e;_@
zovk;Nii^|lpi_jK!dvsxPQ}H=WSE(mN7D?Oi~0kP!osc$)<h9rfD^1mW!k(Um(dTk
zA!{QT@_;IPOm3UN_B_>lfu<y8UByzwrJ6`F>gM`6g_9>~ai-M5O#R0;x4`yOJ3ARn
zXP=}^y5N9a$3;TW3p+jN(6hm}Ut;=CvL=73PWDFPkjt3fIvScC`WFSljgb2hUcmPu
zqU#+S51)_PGikaZUoQyRD-{8ddBw%;xhpKT7XheY8p+?w9H%*tS^)hAAt6)*((6O5
zIaZb#bod)+_&V*@qi>%-Z?k&@^f5F$K(1`(-8E$BPJ&4Q^-tB+i3Kg=9R)1NJ^_3D
z@7~1{2LuH0hFdbJ&egcIzPu=yQ0-V!`1Gw%F6b(x1;o#rmz~$!Se5V?8eaT(Cx4L*
z24*+32&89$71Vp{c*<Scea0+g1dfPr$g!`IF=YD5+;~@4{L+gvF<XcQP~Udb18PMk
zp`oD~J@Y87@C^<QRxlZ!nw}1cW?^B`Eh^$#a}Q^7r7$+?ew8tA_2Fk38R{0g%E}ub
zDenPRdFB@r!}<I7?^yMH_?>w;3O2}PLAs^7VS&mE7g)H2gqW(Ts?1um_{dkUXzu%~
z;dcgl`~k?=nn^ghkqe2~)G&?JSzE|p>k@KCI&WJ89Pc`6>Zf`%N#fzi&M67^`7tYJ
zPo+BE45)g)9xegTPX2>u_l8$b;^G%2fi#YWa0UHBp}A-GwNvd{%FBtB+ku}6FP*fU
zm(g&6Z2HeR+^7g-4ZPL$yw9%Xv)-2~%w7q)?y1kb9}Z6h{yaPZtO4PL6sGNbxEO#~
zNOUgpjbBTx#ta1fBdh*6i3*ce%gRph#l1!iUy%uXUYMdE+uO@wd)S06c1yW@+jsUK
z)9e4lJmh9<{H$eedwfLuxnxaX2L(5`{245QjDo^?O@3xg{?N`zEB>LO6r&Vzm0q$+
z&Fp&y7wF3gY|OvJM8k~>T^B=@`|F&Cr?T?wnN3UPf36aYJ9k>Yrt3J7$=Ax6f>3(R
zE)`&X%_C;tcJBL(C9wlGyVhCAD%03MTw`2qCSuyun=(f<?a`LXTnV!^_K@VeAek1E
z?Z_nXTx%&I5WO^@uhJ2y>hd-CjI+f=9CG}r{_T}v*Qc-x^&Av=ASzx2l^!i`kbW~O
z%p&()-}lW!kFh&ODm^y1ZP%d5)LGeLXR^6t=#1)~h|P9$9>HUiKa$-4NltJV^r}k8
zH9Q=p%pWDR1DX;b$%M0MYrGRr(AKT!FoKAy2%fE@<-n_i<^HdFl=INbYpl1lbOVUt
zU>s$O6nEN4MBcdmGw6<l!vJ8dlhQjK55Ankq((-esjuUSfC>=LWjV+bb<8gQiwSZx
zI`(4>GUvBCAbE4nX%bpe4IlfRvbeY?5=ycyLyO3Exl*iWuGN2dSpPg)F`@pX!^qO|
zaxcnSKcKkHZh6issnNphD4Y2o+$QLLC_-AWyyy*fsSe*F$K}TMd=`R4r6JY(`T3tc
zcEz2KQOn4`KYjZ2Y<?MfW8SmVfFqJ5U6RxUbrZq{BHy^p>&UT_$-@p|!*A_+eJecc
zpYu1q;7%GtuxW7UsLrsuJf=i+RNqC#&AE_~u<-C+G;E<Dzz*q3-mZ%TWIHvjW%0tg
zKIpz>%j?AY9SzzR0AUT&pu8gr`5y0)jH|tuJqVYb;a<i~{6<^E&}dT=6R~IdL47~@
z4ATuug20MU5hT}%zu}RTWS5ndy^k5x$Df%G>Nq(|NF7X1joWcNXSK5Xz*|vI-2&&d
zDko%6R&&2&R~VI(HCrY3+{tzvWVUWjk5U=l&COk5M3PAsfym00$89<!j6+Nu$Lao{
zNPtyOi8e0$8+Yw%#~}@LbbR0a8hG^{yO_pOTl?mRboE82?&n8ztf!_{7X1uwy2E+2
z)x@y_S>dVhDT$?;No0KMNf=7vS%Bo7UVl1#zU;KKv-{bQxXCLeLKei`m%hMvj!}|s
zuN5^a&n>A|L#LpkrX$otuP-4kr3!rL>M~>-ihS}UpvYrhJS#9KgEuHGQ6fCud5exb
zS_2Dy!6oE`)*-~v!0zr#h!0eCe{OwZTDN{Z7cVb0F#!&)7q?HTn;}tLwXvolNJc<i
zxaiT#ts^Kdc`@@Fo$DM<MIn^B{$t>b+qWmVnA@nU-!F*hb3&wjwzvlw&s}`mxWYnq
zne+A&WdTf(CxU18Jd!*Iq(*Y=f!of#Y&_;Zv+s(L5qXq}^Dg0{F6Va1I}S!gNqOW{
zJ?JDRAg3$WLTL)PcaP5eQ4s?r0_cbPT=MrHJfMiR=xhfYtlc4S4sVfIUC6X`t2#~}
zvfg6P<yQS1#1wG-Aj^ndf`at)(hIwg6yHJSHS&cO^t!s1mOqkwF0iZzb#snB&Y1F%
z{+g)fPbGsu;7iAP8?RIeP~}>utgJi%3`e$cp;qFnc_O6bzLS$P_}e$lzQMs>B<2l&
z8ZCrDflYwByo6$|t06IS86rVxWZlBaT0eTuAnb**-7cR}c;bv}Ek~g4JT1z6%F{+}
z!{*UoI$Zd$b5OBp7;Of3LpCaDI2>DVW;@k)3h3wx(hqobv!kT6KwN_GRby!@EG8yK
zq!`$AaJm62793jRG#?^Y>qZHes8@<$1ZXiuWatplu6ugcr<~t^t>Y~-s3J+2-pD}H
zLoS3r`07#=5Bh^9K$#kD;?R)zPvFn&<m5Z(xYzg%lQosUvY`ZRJ<?h)RbFqoI4`+4
z8F%-$olB67J_05umh4r1>~;S>1Kt7kAmDUH0<Y+2URe()VS29Z9tv&Ap<nBX2HFC$
z-QmRaw8P0oXd#u=)!rJ(>(rfoksK508ZTYig#x&5O8B1u+V8OzfnkFiJfFV=Byz86
zLJ~r9*I-RGB1onWN+h4`d3|J|M}?^g6m2j(c<^9iem;B&yoosNh7GbXL-bfR25_h{
zUpBU4*OiY`KbatG)1G$=ng!pMK6^1ad3luQoz%Q=fm>L((PVTcEAO>$P6w$EYP6mM
zD-jFQj7S-%<2YjM?>L5)k%fMl>ACD&R#B0FBTLYAl?i}8Ri?94TCYoXXw{H>?6Ez5
z<(>1-y0~p!r4Rl6CF$45<7cKAL)Va4=!;$D-oL-PFR`Le8rwjU5B2?cw2$w+X~-^w
z-}Ndm$<FfknKkD2RJilV5~@KGBTlpS_V#+C+Tl{=eJ+vQ>PL_+hF7G(!1#p$P+RI1
zUvKGQ47Sf_M-%@tv`;m$&EGroBt0wZC?wQ(m>V~61T_Rf*yW)wv!kb*$}@!_;MmyT
zFa?}o7k8vZHS05#HM>k+Ti)a%+4vVgN#6_I-c<3~Kw!);sorM3#Zo@NVYILU^vs*3
zioI5NVoetSuOVOeFjX$u6DOkA&>(k1@5snqkoQ-Bs3BPRfJ??EKMV<(gv0z%@@GX5
zb?m)kS06GSc|u3>htQ%)d{8G(|E{8f26{s&a;jidWVd?qL}6D+Y3rn#ngYDi7v7cY
z*RR7B+`=wgMgcmBn(;3T+qe6Jf9OG6D22&Ppcc8cQQ#cR(a)gBog(S2r2hQ#b3t4G
z`pXAtQxB3^@?b$+@de5AzPXtNyfrGWT+wN50>h}|lagqWa*K$E-rGB)?c`0p`Qcm|
zRAjJIe+LKC!+svzzwZTT6&D*T!&Y_eB(i?n#VHdKo8YPCNojOtBRzcurk4al2-*d*
z7nz3r@T%61iY8iGTJo7+zkXf!#`FxJA-Mis($YIYt5)FK)#2QR=YC}Z<$`>oA@CfG
zade>RTOU+9c&%;_bEGV({>ngVVR<<L2?43eq2gd2_S0NB3}yP?_VEC($~4k*rN6%X
zftrx%Ee}j%6IR6@De+#*XBHp@j|VJ#f`UrmJHJ^7JCC&o?38lPD>!w+`0t*cD??W;
zah~Mx93Ac4BM5AA%ELCTSsPI6pOux0ScT(Cc!6^zq14bQ9F;3>L)gv^pC@^yEl)xs
z!KM50tZ6ApO}ZJEDDWX5((2Q6MO{Sw{8KecZg`>|h|z0RZMjg^#AFZJUYHDx*F;H-
z9Bl5COqciDB5-PqvJ{(2zUxtoZzly?@claj{t;nPvXRzjx=mjlni|8@vuQ=S69&p2
zzXhP3irREKx;X5H2mOEoJ3mOzaiGoRXlc1@2WvQfwPtU^PJb`Cd7L2W7x=ikwpHxY
zdV(CvC}24aMuLKX^$mzU@K4&-P3Ac#PH2u4V%7mUIWX`~!SIwRw|x+51sD)7ln^@5
zIOW&a06`S5E?I(osQu**fp`JqD5H+h<O##4`5^%$V=W4LaImbc=+VY1*ySV!Npi<8
zzlTu#xliChI6yBuOmlGTs#Y4p-1mHk7i}R01Op2TO%OT@rsyA2pdxp!Q3t0zO5Eu^
zUW{hxX5@-m#32H5!_LspN*4X%ZhL!kg;&=no#l~4nI2hVfVK5QhEh<FjK@*2yF>kd
si&-Qa_utR|Oz8UeUH=z!wN=gxVTBTB;|~|ei*=_IPM=7ZyL9{i0Diw>TmS$7

diff --git a/reference/plot-8.png b/reference/plot-8.png
index e9ee5da45c392ed4e9065889818de373f43ab6c2..1c850be8b8e8bdbb6a220c518b34893c01e0095a 100644
GIT binary patch
literal 58554
zcmeFZ2T)XP*CmQMM<hy60YMNDi4tD}V2k9OMI`5(!9<WKARt+CYI10Ds|ZMzELpO|
zCb!Tu+<km~=lk!ixm8nh|NG6<UqflxNYm$>C+xlUT5CUV<YXkzoTNTULPBx|_3(iL
z3CR&>5|Tqtj~|8q8H!9=fq#xZm6Ch_|H9Yy{VFf`=Y;h`bvqIgT3_VvfspA{0}_%e
zB&Y{>m7L=iN1U9Ml=m7}WevZkcD}iE_d@^4<brE?3WxO$+`W7AxSGoO!laNVR$|)q
z_5S{6&dZsreY*1FAo<~UM{KyR+!Q~Mbye!bi8*dNPp_%yD(<EdMs7y#YTXX*4m)Oi
zoE;Y5T0`|~X4vjxAeY4Ndm<ru{$4+4?$2uy66O0ZDgJ!(^wJ5PKQH~{8J!RO{rZYT
z=#L|RzkE(9{{QEj{SMXF*V_uv^tDh<VursL>gV1bb6=P4nVcWO<U3TCn)OQ%omYPv
zdl~+|ohxNMS@0YWBuq?9zTW1DYGI{dIYEO;OH0$M_x>2XWrR!$3CYt_4F7MBBH;5l
zh6mL^Nu}RY<%Ekld+hfwkn}$IA9%_jMN5okOC)=@2!1$ay+celh?-YHK_RTGySukg
zUsBs`sWj%cfj^(cAfx`{uUq~B0TH30Nudmq^F4~P%8wrTQ}bJ*J&8MW14fCx?eRi&
z{yA1-wea-tN2AIym$7Nio|S>&KL3b)xCX{D_uaco#5q~7E?TGIq%)WKepwi;&$PKN
z7B==|DKhuwYO2o7%~kHMweVVv3RjFQuLxyp#mb6ozT4Sa%4rC?%*Mndo)PaDV_Cax
z=&|0$Zz~wDY>KJeS{}*CNN{~L8}F3R)z$SbAtCSXtD`1sQ%!>IzpT>+sf8TTz5B>4
zd@BmA^|@yw7*8$gUQRZKVvbK0aobX=(zfc?am(%9+nDQSQ^rpOaF)#*K6`ff=B#5?
zsq3bx$kuoL`O%sxY98YcB_%xZ4t?s>cWhH<+F~=3lauEY{LkqJlEv1I%jxOqeHGl^
z-WGNEOx8r0GS=1qJsDq^UX`y8Sz)6|WraH*o?O^$Vop44!O6f-$H>g=Yd%}KkjD+b
zb$4ifpg2QWl$*PIak!$p#I%>yxayqfuMaj=BMp@Lj~+d04dNfAEZN<jO|)8DTl>76
zKT_osdy1p{%G7qL`9Rk*LqnetONWXP%k>biT?XUFe6elMo;`d2`SZQRM7N!sY9U;8
zH*2x;>csQL;2vJ3z4fzGUqcy06F<THS)8R8)v7pqs_vZF?i1P+=~zC!{vnK2qHH1s
zIk^hUq`hF9FTJO+MwvNP5f+B|v4n(#TI1PSZo8@x(ItvYmtLFWkq>jY_h!T6;@p_x
z??<P}q5O2&=q!!EhvE)VO(DlczlUxiqC1&K&ro0L^Q*&;dFdJ@xEOv<c|^gfgYK3U
z)2?z{I;pW7ZIsXnvoUR3VLz7^H6QOZdP2i<x;cXS)|0=~xORU{h6s+oCM|hd@Bh}o
z2{)Q+*M3KG%#&cDW}(`jDW9^jQg`kc`=nzPukp7lHG4Y?7lbTR^ONL?ii>+|J=_+!
ze~w|Xo;!2Qz4^Lg6ODrVyX(1*7>l9wwpe~&Wn4;#Xi=F}^{NCDGqWlSx7(Ka85kVc
zUS|h%JUwgS=2J0ao<gl(%~Vox;VB+Lzr)P=j)yA^(I-f+XMXtbSC~@1j)=#~r(=Vq
zW>GM8Q;t>Bj#bKPYMHR&e#TnWc8)lW<@WR_VJ+CT%H?Fmh$Wk~1}%{>VqUejc6P{n
z6%>+#F7umyFVItorWJC`^xEIk6Or-2)!?(?0@{`Ko!QDcN^){nFhjY?$=BF*YqfGU
zN{gCDJqb(HBCaLm>>8=CT-)OAC=&3vsFvxlmgz3or4Gc+e$DA94(;p+Hr1mddwJSb
zJ-M3vW{-R&f~ZXz0;vY8obuyjGKMWNYwPQ!_HzpH9$Nz{HKHCnKYx6Bb+sd3aHcgn
zg^Jry4JTy(^TTvYl%|IgJQ;jkw%u%dSo6+pg=;Qnyo+omCE{J@vj)p7VpEGcwp%!{
z=$>~6BJ?mr4jm$RHC%>tEO}8dmjvnc#|5JyRNU8%x63Ss=85>R{;j1UWhEs>%n*A<
zch;+8=S;^xd(VGMdZp~xlPND~{o^mP_Nkw58a!-y^0|Jmv<V&Qb5|vvm6~)nxTd-+
z4VEffW~8QmNzKU6w1{_GuDDB2NDy`@>X_`&_1KIUvmFgtl)A0o5O_i${x3&INAJcG
z%@Sk1vvk5gG1Ws$e20#nE@&QgUvE1w=}<M2E)~V0GH{Bs`qt0w3M~%1US(DFX~|$3
zsseL|h<ESaUzd(iYlQId7GleR$;#!*1=bBkhje4V9^Pk<S8h<(?(LZA7Z0F`oYgD$
zN`uMr#P)vG38vSL-(q57y4zx8Xs9tA%V$AdV1?bDxm^6LDeO5xq}j_*R&@K>w>927
z;`d9I!yoGW9ZqN#kUa$f0KKFrD^l9Lv<s_!5bK5A^c<~rd4xipP}_^tw3Of9Bj)0f
zPxz|OV>PP9S+fy#@#4kZWwGV*N&Cql{+-=L*p!MX5<$C>vJW4A`?Wfmi!V0nIP1I!
zyMGRL`&&k)>(}RV@@r4Jdh*3e<7x?co5p*ARNU8U<suu43|i3g@l8!lJ8*pi%+R3*
zUW>sJKN+L*S!OKnF{7?hHE#Ga32z9czXH)g=}7dWHqn4(4eR^}yO_(`Gc&@cWAvw;
zYjoUK>nndI2OM0+7YvxYLTt~)Bm1vBiQb{JQZ~4O_jexrSord=Rb0idiGbWC{xSFB
zX0{HmU*o=gTbup5`4EnM(d(_;9cn{tDrh-NOUrL-_))j~`JOD&lE?WvHRvUuGneOI
zp5i#JF)E~P|KsC<JMl8uY0+Ol4w(^Z3CpM0?#6_LC3mJsYU29Q>ZC<7%FZ2l*D(*g
zw>yu>jT<Og;nfFUg6Xr&zS8Rl(mDS)kV79H9=-{Q)9lB`7Z-#i1gdBGJXh-}4n?wY
zaP&b^%f;9Eo(uW9y3m)K6D}*N9`-IGB5h(~!ms4A2|QP_%iod18hsUJl+JCD%gk-K
z+-9dcaW56(i1Frp?^V*gQQ?#=#<>`?yc0Px5FOn|eKmyJxV_A8!7P=QRXHq>+uA?d
z?(_!G;Ms!Y#lAB9*Gaj(wJ5CG&}Dwh(^WbK&LJ!{i$yJ;v%4`?V}7(^3jJ~}$IjAx
zdwcc%#;{!nij`o_Z#9Y*+u!c!4X!AvCOCY0c|_3u=i4z`T`yv(7Dp6g7VH7jKD7GR
zvVeeqQtR=15S(Nn0jU-nw!M4zj?uSne0{LeAxD{c&`wZQ85XRu_MZhCfCR?kc0s9A
z6dXz#8ZnF}LuD4OFmn#0F0)yXtWA3|LoF+&$=TJ57=Qd!(GTP^|Nf)~AINjM-mrKs
zkh{HLbbqyx{%(seH}y9|!WdIbLIRx%&A3{rX+)_9j5r%RyEH&3Sp4z;OTxm!&{0kb
zunqHy=e-57*|!>gF@CA0h&eR_nIlB)bZEKH?p%L<q9|dJ8`VW+6qf{nf8jN$jGx+Y
zL}*ORd@;+|Y@*jPW*ByenT6QKxBGX8cp8kG-`&X8#n$d@E@VXMxS{|$DLOiqL3oF!
znqOa20q_)5{3gM8gt@b_;dfXPAP@Z!bl+oVqw~d~V;gfBiKZW)9}q=##l_J`#|tVW
z@FV=X^hP~}u2QD%p3PjP!-9{;;$*N;`ydAk%W)099^>Kp$a7zo95qvJrxi_U+`aqa
z<jIptN=m5^^C9-AapF?rjM~*u^3ks_?qkPdaXp%F8xJNkmw7L-HlWcrX+_-ylDSm-
zAc>k->`&6~XBLPF2@O$8TVRHIA*p>>LI6(XW}l{+MNwH%vPa^BN$Nw$-TzQ~@RDB!
zLeyM#PF`2F%Q`$}He_g%z1?kUuBWd{pQu_|<{dpphgQ|~=*_U)eqfsUAeX;m;z`)O
zc3MrvYY{BLK5K<!<m5ieoYbiLd9C|<?%UH*NTf_HI;;b$pcG<(Un6avU57}&Mu8Rl
z&tSDnafc_a;;mK1bmRxr2D@h2PZ+ndQONV!r^s)93#JvapZa<M;xHf`Dt)vnVQY!O
zT_S?ibaW`iCh@_}ziu8+`J{NDr^rBR6E~*IZP*G3ElJ0D{D|4Uw$sQocg*dpS3enL
zds_^Zc{|WxhL*TX>)tRYP`>!dz=`~%_6KaSZN|~h9xj}$6iwe{#EA9_9+@tIB7iwB
zuc}omZ&9yh$froeh`5z){_+HD&@Q-eGglMCkzIJ~Y4O0u$3y3Sr#VB5%lbTepARn(
zEifbGCArbuMjAs98~VeTr0koRqJF~KlY^aM&Zp`9dM-i4E!*wn0q<gC^~?)DB?+Q$
zzWfsa{SM=}Sh%?4@xyi@?IL)s1tT%yM!0M=Byo+Q7c<Q4`MXaajknWll5*7kdTQo2
z*OkUgi4q62P*{fDna?Shzo}C#pfUc7tetl%q|LCq3Rjy0Ay10+vdeIxeq+JB#4EgT
zb$<1lKQI3>tVW1fOeoWVA_MOuhg;Tbedt_&CcRD3wX?N#m#9)zy?5_rSa^6Y-o?e`
z>Vo-T$&F{xG1ao!uKx;bZl{F^i^aK1i;L!o9(6uvip!9+uX207u#v8~Ovq^&4S4Fo
zmFAz6$ciF<yMHdLyuAEq$||q@PdPIJK+`jKx{69lltRSzoJ;D~*uL{#dI*=jE}MXc
zye=6wWn0lxVQ1vAPsGc=;d(zABBm2B<P@nCX};B3Ap}__=dr*EO<ZW&Szm@J8)oSk
zr3mX+YkN06VI{tuu90Lprf_*VJX`Beu#$pc6*@8TRAlF8iXM~xsZ*zTjoN7zJhta9
z!EmG_sUCL>;H!N?KLTGNVU~@$F}s<ioTU}ayzhH9ER{&WBMCu|Gp5X}pJT*ppC})&
zlpMgJK-}46ifHo^ww-#ID4tVIrElLz>-6(m()|l}92xVIo<Mru_<V}<C#=B&&%PAN
zkOIk@l3n-Di9EBwLegXXlT;F2n1>Io%G`66-TcupQ6G>J_LlzEljo%#kgB$CzEv58
z49(-UxBJ#YVp8;uMnC26NYr@pVztc->?9Re*Giw$RLSB2<R)Xa9#BPvHHW>ZsHoUk
zuEO;|-8Vfo^)L)(wHK<gM8}Jyq#iS5#BpDG`<ZB?d8lJb$+ZFW57v5ANrccXt!KK;
zw#R#fNtepQtjx5>v&H5vlB<;%hia4<C-v)kX+s%-M;S)FduNPa9*Gfh%0ucoQW=4}
z0A+Q0p4th}AXVn3CnT53mCvV;l8Y^`t4qPa&@fvvgwAy#7jw;Z_o4Rvap&FDMvocw
zB|z_@+f(6R;~u_;SZt(y42cV`PmrRgjB%qi9(&&|e1*)0UV<2|GuaT-4X8Kwi@S+Q
z7N6yCW~^l;3Ig(*&+6~mhzo_5BZ8aDBboreirUj)nO){H|5l(^XWuQ&@7-$%X)NVW
zmOhU^Js}}49~!DO*AKDqV3`YmSf%V-z}fE)9Xos2Jm07zL1mz|we{_6iSz2yoL#7g
z?ngRRXo;>~x^(F<JJxpkQTY4!YICAy0Mx#!W!Eh^#wOkO^`Y$m?By|9HDZZff{Yli
z5?voaq57SE&WvTa!wr&-=n@2?TvJ+AaX@QpZaR=hPv_Kj&+#k`Va`=yEvuIJy7RP!
z7Ki|w50%l*bFVuB$oHkKOGSmdj~*j!A}~^8GyYCUkz6nNgBc;F!_@SWscKzN*#=x>
z+L<hVS8}Kp#(!s{TedDn)gFcriN#Rk(>S*B<^r-GtZ~C2m78Nc#5|MUY-RbtZ1bt9
zWAyGHB<VePo(-rM8>+7lsHpPfC0Pg3iD&>cC>jl+=6wY5<WcD$I#6i2Jmqr-%~@a9
ztwkyokE)S89Clv^c?$KdirIwjg?wz@moHx)HBvQ0`FG#bF)J%eqrx^#0<gAYRcN)W
z>HOc({fbU65GUu=0qA$bEaxG64j>CexO}JzPc98tDBienLvS*X+y2uL3gd4d?#_3n
z_|Es7@HnC6(5qaz(Ithj3~lj3s(@>HA$-1ziOGg_k^_^70Qer*>?zhhp-#g#jdKB<
zwckc-+>k(kgqfXw>|Po`A2tZYP`;)MI?Sg+b(ATaDB8DM-f0Md9|)2;0O6hQZYToy
z7S7eh>HtzkmUl14N*A(^gCM~0Yn8v0k+C{WE2souuRASDhZR*xSgvw_1ShigmEnSk
z*n6b51$d&Wq7u1T%%$I;#Cl>VQ=Wmi*21~7vyi{JHDqN5@foSwsCi9OIkYP?Vb@R#
z+GoNBybz@LR*A2)85yHQ&mB~Ex^y?xt~rqMvVgfk7zd7;4TUpQw;uq0YVPRBR~q_{
z!%W9SssC8|*dHE^BvUxu`1djb3hsZ5NXyoPsQ2jM!_2K5v;I6@57tt0kJG<D;ymSl
zpQ`(RUQuG@;NO@0EAZN<Q-7|`<$sv-&&w|?7pwogJfHIL-}B~x4~~o9ulm-(pCsV)
z`s@Ydfo(w8F@Sm5unqd|5Zs{hE>5otI?>o%N}2-^_ZqwzR#Cq_i?ZW%glhA+wK0G}
zc@r@Ok4sAe`Vkpkgw2InCoczr1&~+3p;ZD7%qG2V-KtURUICk?(thq5%!V(3v*%YH
zuFxF<&IXMnA%tLS7hZo1B|w(tNF|g!;Ru{YkTFatUbCMv1>$K$WF*~mW(b{r;0_*_
z57oGquIF|da3Z;OTX@?FEnZsN$9|1wvry#U4c~vEa}0pp+&4D0f+sH?Nl9%+VRzHg
z?`K`q4|F(7q3dp=6nx>0s35gX1FJ079>VVD+W9R_8JS>U5Rj{hK!EmanVOzfp7R_<
zh$JB@DyqI(FXDo(UcJ+=6}_BxphxRO^XJ_YkFCv$?GN}HZ2atu$X-}Y+~1W%c)v;~
zT;3nvk6oigu0K!Pp<ml+4l;Znz1Qw|IHP@qmh$}mT0UD|d9p%br4|PipeSym_MV@e
zDM<E8%gFeLG|a>9xx#M8bd6~P>51fvmGQb>v^qD8*&L_WcEI(=@6WFZT?yk7FUo~*
zFdt{v-U*N+(`9|edjz4EGY=fKS%8o}GZSmY7k009(Xq;9qf=5EP@n8&$Z?ovAmIAG
zML+0=+LTm<-bJT7LpFczt^Pe>9U&-5GkZ!WT!7Y$IXlt_Q6K#sSQN$XaU~RNY=^VJ
z2<U$q3Q?jL7iw3V9>GG{<={>1UBVorbN=}7HiKmFX|?P8{Fq00J9xjWkljpcmOc8;
zojWS=K<jZo+kWVtNGNt#P)V!=+7I&0YlpK9?>6<Yp2W|~RY2-}%U-Y-%<0*m){WA3
zRR6w8t=|d{Q)i0NtMf4gn5b9kvhw3@HxMu%mOS9OB$?75CMM2~Jp=&G!x6=X-h(mt
z*r_V%Cl$+Y)dy)RV|aMDpt(wmBZyv12ZqrV@Bumz0||ARzJ;*6-jTZm+)xfAjz^Cl
zZ`@FX%0D$VHHB8=aR98cj6~0D`*;9NELX2yJ=v)=63MQKUgGW$E<VbTRcY83Bfh!g
z|Mzf^WqajxTLD6G-P@jJLY)&{`K$LJTKw9k$8rax2`1E8-}_Ld*j9}o^jTizeD>Q$
zi2m|`OG<4f8ww`;d10Us3RfjpBW=B1i1SGWkfNnlV>$?_H#iCqY}#6Y$9d&PX5*!%
zGS`itNgEsXOQSWK`@6GZy;!e(Q(9yRbbh*Y#>N;x)BN|sln$?>jlr}zu!qFq*5Kms
zhxO*o9>~E6!}}AMhRjcXW_@0J>+~oE;M;oAq@qqXX`_k;%9XD`srzMc6j+-;uB*Cc
zedw%;=ZAjbvHKPliPoP_0A^njrx%ZM+UJApk!*oLclh}E;fi7zp{0_7`C%aW^hP=w
zD0$8LZYHlDC2hmm0aJ!lrC}RT<mNyw3QL7C7DVraGs~8RRlRxh#uX56sRzN4O@7g~
z;$2i!22iHb0ATxIAw<N*nfF2obeG`Lm5Ndsfa?C}O@624;ev_HhqAK$uvbf;d^%_`
zR;vwMHAD-zo#vL7?%nNmkG!T&ua31WIUX~|L6wdPtAgG74dPNhz-Xw^mIjI?0k;%2
z!({j1E>VXD-sqY&DjwkR+;v8EL0Q^FkA}fD%`rZEuAvi1cWJ<hxsogG0+XkUA!!uM
z=V@Zvt6|>cgA2A`sRo2T%PXJoe{KL_DOc3M-$!4y#&t80Q4v_4n6qgbfM*ODqXDV+
z*t0;oxul)2R|A=sVbBsFpp5{HMA$Z9oL7;X3CUOEOfDXL(|74i=bk7&A;B1yjN$4;
zeIEfZiLbB(5I4DNa0_SH@|vBOO8e1UK$Fm{ZoRq#+(;Hs0S>!kUi%|f6}!9cK=1`J
zhQlyIL?uR6K|P&YmM#-d-TOYdv(IavpqsNe-<y-;t_9Ef;9T9s$yR?dwi2LMQ3`PP
z2;C1P{%v%nQM^Os-WCSCy=xBZtMA@*xPGpjQCkdepJ&JMNQ4sxl1OkaH5@H20S|e}
zcAUb?0us7(i13;p@XZ;ZvtUEkERp{a*?QkDw(pK42Ec5H2sP?Fc?Kwf@3=yQWT9R7
z&GWS-h*W)^U{}_b%Vp)V7^zf7p-@Nynu#%cS+?IPNw3c3N>{k)2w|IDt>7;NQ+reB
z{4D<1EX_ZX$|M!3WO_*kifd8gh9W3CkD24`frJUO2fV%zCdJWdmR~c2@9fFe5`qoa
z#}Fc%+$|#{jUcqyIJ*s)3^rzF=0&v>AlxOPlnhG+Y@%FM1MEc&to(VPYJ#EqgFT)F
zxfKB|39j=upguTCtIP!ASFTQt2J-Mo!T^BE0&Ea4<~=|p=L0FdV=)OCC4(^w!RJCP
zQJnqAO~VG~wH#Ih=Av}0qm3RmkM}7GQ^-JqKq5u}5eTuu<cr@0J!vx=z<^ET)@lsL
zfcn~mDk&Reu53+A9^~Y{T+LZbJJ3X$IRutCfgmn~0|N@)g1BVm)eY5aF0kr1;D+Eq
zgQ0l73Zu*W(}p!Cn>Z1gn3xaGGY2THA2v=t%o`#uxkB{4FPhCk%=dEJoS$~`Do?a>
zf&7pHL=z(lNYy;0k-_U-W3$sPJ6pisDd(u<+INams56+uhF<#M5HFLl_iOSTN+Clg
zzNglM00EE;W~B!br)3R3&ddc0#dwEAVd6$Nf<kvAp^l#2wUlH?H!g`tNU-#1P|T3Y
zU9$nycV3+Ly_UqK)AXXl)CQ~YI4~=6rwoV?-TU@njNfM|W*pV}mICuN0|mtyXY`r{
zf_v^=hE!aLBnLaV*b(gqj9gruIF>v}YrJUjhafL-UEjS>-TS7AQa@cb(K5mfKjL)A
z^LoOC`#`;C7CcwAv9VE`b%cN)3p~j&VTzEzz|-L|G1NshkPDUkxQES*kj)B})PW%x
zX=z@l+m2J2@qh%<>_6MaKZdpy0zEa5R)`PX@e^2%Q{UTxB9`_&OM9=33xaB*>u3tO
zuKTLEqMDkqD}I@_VDIITQ!f)bAaGg5@LSRG_<+)RR4cC0jd3#Wj$LcIbnIi`>R3x`
zetx@(b*SB*iPadA9B;T|(EP3-&leSb{Rn~Ovr4b$>Msbux$;FXbO3Fia(2h<ZT35j
zZ^eowgoXh(bXL8rEaXSf2EGCVRSUsls8~Q7sGm*ZY)H#=(Y(`K7gKVfOV8AC9sNLc
zz+Mi!iC%jHR?z_cf4PSo;ePUwB*$Dw2P$WO6-|&%ZiNNbjXx>m1yHErccIz_xWWZc
z@!l!%84W@~;i?p}-*DN=7*_TH{Ort3wtizU)CyK#%YZ>yblM2T`xQY++@$f4`7OXU
zZI8`fqyoH8$9*yTa<|_F2J{g%%kuG~5MXlejR1ayK%WB-3-m}xcJ=fAk7!2uf4l(A
z5p2CcTYO+}LEy_7YMzHjjvP@IlqffBkE7afWoKcL3!xL4vKLIDmb^7;=i>-SwRs74
z7j0j4RMIYJ!)t_fsC^eox@EdKvAY+Gg1FlS>Sk;355K|WEdYtq1*;6Einm{j)S8h1
z<rT8>Z?Lhk8J`A%?;D`nMW-<+DlIMYH8C<sECu!PhvIc8)!=?sG&6R$U3z>(PcqA(
znp;~>Q>8GD0I2NM`Iaq6yoN&JWnRS$wb?uKE0D6foW?w6of4h)fyl}Gyk|{lO9V)$
z7WUNhYNoMQVn+;b%iz{BTZelg<U|1JE+2P5C!rOzf6GWjL>VAc9!%z(Q9-NeSsbf8
zi{0OILm8}}0Pwnccc^MAObWe}y`?I^C7zQD;*y-gz=SIR$^5=TWak~>jn|Wya_$Hv
z&$_@HLFIj;>HCr+x5th>hz|N7&fVbP;LB0X=YvdzY2H{G>c<r}V<KW=Oh?^tB6dJ4
zolH?uMXQY~I_~~jy$+0TxfX|_hK4C13UdgO&z777XaG_6<7^OBilON=ov^?YvDe%$
z`4zaPXJ<7Tt__u#=!58=>j86GHV>hy!HNd#4Kqb89Nd6Exq!Um@%Hv^SaQ6K8L|LH
zsudQ1Gyp)fBak9fn0Q$2J8>OQPe>aYruQZQVF9AUEeKM%RD$-#r4lQT3>c~r<hw8k
zA(9unyB2U~vqv%aHbQXxq7okhV3sTJnQD8nV|k=1mk&$?7PUL`Y~k_o77#)l+6M*(
zW<a014I7CcvIE(m8rHK$7JG*B)<?8fMc35K3^m*t$QMw2a{*n?jfDFfH*aoaiRm|-
zPNW13A1z>$+|=BRm@fq4Wx}JQO$OnyBjDK;y#*pUbuE{y28z;LpzLo$Xe7I)wl-cQ
ze)7s@v>E1{58!I3hEy*)3+cZVSZt&E$q*-6F9TC4dT;-3eMlfPrTseG(b3V@nVB2s
z>%zh=7F!JQaa#@x<itaz&-p|sNeQE?<FTonWBK%Hax{-g*Z}Y>pd>a-+eSkMG&`Kh
z*bP$eNo-XM-U_Pp2tuwfPQGwFuqeNc!8v8sV|g4fQvf-8AS3tFFMcNppeEZhG-){w
z7~CC-2EMIha|MX#_edC-nw^zoY>%P&<OU2wcw{8tBnbY@PwsR)+ydzDV{QjTP~Y}p
zH^G!jSeEQK+=kq`CKQ}MelmQzEZLW*ZAP3V<W(*EKa7o#?mD7joCYdu93l``KstDB
zZU&I)z~pZygXQvYg=b6oh$Xja4@=H4a68KwtyFULfM<_K6(0uD-07m!cTd0N3}wT?
z2I{j>Ee0IrKVE*A6?yjc{DLznvkZEJi`8yPfaYv?M8q^E-h;5EK5dC5Zar$ea09F=
zMH2->OR%xIrgGfZOhJ=Sx%`5B@<e(;!M8`P4{t-c8DWV`fC>>%(tF@*2<&)Bff~~=
ztINfloSYpRADHE?4eCSjdN*7b0!vLPR;R{QkDX>J%MNHGrSGbmJ1k0Z5xgKcGc+MZ
z?xW3|Ax^ig#lm@T#q{8C)*+WI%RjL$;0hgN_kk1Wv?6A24FPwAp7h}^edYABKRosH
zCiU%S54|0eK?-WXS2V`(nxV^xA~E}bBs2);=!7Xtav?ztWt<bqN619v6RSbGJb+7-
zGiCj>U|aDxQPd+)X{#{@G#~6Vtb8)v4`Nzwnl-Ma%6s5e@PG8U(>&+HhmZaUR?A&m
zMdAnT<IeMv$o5?V1VXzx8A8c*?Z-Vfr~^a;UI0R8G1deerwGL7?lKz-O935msV_H{
zqiXRsb{b)#fnRDdWUFe;cpQCkjV7D5iwl?z8OVTPN?XnZkTXrBN50j#If0SEqu0M5
zgt~Si+`A2IeQ-4y1;qlqA(YYK=eN7?W2e$!ie@P7QlPBc9_fdzrEUG`NZ6%5{prrP
zP=^3*u8z~@hypzSsurP*fl>QaqKL87HX~s7iB@To&Hw~*Z^!^UN_&PzprFgb*=tlP
z^5%(OYO6Og;+|SCGcj#1#@^C<3FZmJ;$iUY8OS7DKUN`=b5xCRpgbu~YL;6kmDT_=
z8}Gi>bhYD?V&m9B?b5W6d-dw-z^_IyE;vaVC}VW@aQk~5gF1yzy=4T(Uq3gn!V(?L
z+<<)`+j85%=X()z#&(pKFd%4{3H3~_?Y*wdkdl%L8RX&W+!giO>{VroV2=X>RpUtl
z<S<*ap>>h-U!^!}QegwC1M|GPy$xv;!IATT{8S+<^};X`fycYxCt4ZEh0s1F#+}yy
z44ZAQO?%=jnw*+5dwP1_S_sjcHLC(s2P>C&F=D4$z@Jm(fqJ4xl+k(84=>hrj$YKg
zC&a7n4FBPgeS}mQ+)C)^No32fzWt*X)JC--5a!LkIf8=+{cHh>g;#keb!j{OOj_S_
z^?AiWX0idAh!yZEY#%))mp#JRzA3O#h-4=NUIN(dUjYf{FXUCpD5%?3?z+c}&T_-T
zXYE+OoVV8WVoez3XFX#T?32xSU3i_$bpgsX-hMq0t`SCk4&;L~Yy-eV@FK;ZLPvrK
zv0a|_5vZEIzN%U_-k_hMpBvQ7_F9ZqSCj%SGHv6o@g%x}k>@Wc7y8&hhlj5|2bByN
zS~JhVwSHINUn1UJ1_1;Lo!z&yKeQXef8jIPJub1fufbM{ys4h-hO1Ep-BKBpkB*vo
zsPrucc~D(h83`J5cG;HLOJro~jr81xkH0dy!}>-qtzmPj3H@Ut3elcy9fXiuaOH?>
z&7lVigzAC<Ilvij8AX2mc;)GZ>CaJ>z3+26lo2=((VxOg3Ik4r&)%mZU{OO=^b@RF
z{U2W(f+01GP%kr&mJ!)h!g|S}*&%<!u1sqRXJ)%|M;+?_PH>}LDyViE^X8VVaZ=#_
zPG6r*s#r3F=*^7YaZa=_%aZgbMg=C~pJcuX4Q5Voe)^3FR1fv)OpRZ#7_c;_%R7Xq
z$YqM^++HgnR<t$c3qkLZoeU<6U%QJyV#|U4cE4;N$muMT?)1u~vLPO)Wi6z16c-m4
zW$3I9x0seB1whd;n74e7V|-;dgX`_o)HBq{^6#owfJexC%d+n29lL_xd-Vk{@w4W1
z%!!>foiAVOEHP}{+=^B;n~|{N^1vLFshY22I#`mWQEG~y&>K%~8^KCfxwZ%DR;H4e
zvvWx08lAx$U??-R1#S%P-@Gu70=!HwUmhfb3CV{{iRjz?(Rd?AfQZ{Pb#50v!A$a_
z?N;&>JzwMvc1b2pY;1vco(XsqNjcyn5l4U*Vi58UO`%g(|B+uwoTxcIjL5D<)lSK!
zpn8cCkjW*bAK%hU9r?|p^ux|{@va<wQ)?~x%XN%mFAUweBf1X}Fn0+`SH33|u$v#T
zUVZ^fai?Gq=!iUy%AeOp;BK0~ewEYFNdQo_XxFCYI+rHeFKIDuFX#YqzznF+N7B;D
zhK7b;akUWB)KYATK}wuBKtz3IMh`qw^#!RdAXa~Hyavg&T2dND;pP<UY$$m<ONX`O
zOINzN;MdurT{P0;4I4l^?o=lVIaz)c1d4ORC9aaSTGCwHZNri$<bo-yw>7(VWzXPQ
zqjx5^fDc2^D@2(HFr4IL_cQ>(sQ_;XY-$Fg_O!>{A)9w$CMAlf(4NIT=)5x<M_Ph5
zY7Ui&7u<f#D<A(%al7;BsD(?&%DILrnQgJdy^*3P$ub(hydmXvUU@P-Gvh<6t9-G#
zcPYwYp-+A2MSA<{7Wntnho&=hR+lNfx`khNTfK0WHIN$+n^B$>YIK{A0F>sd+(_WI
z0y)N;2qTOSoQh0^I{V1(q$<SMTwBES6A>Ko_U#9-HYvk*J`P$@Eo8QXzA3qxnGb;{
z=~^5pRt9e!KuZ}ggKDTbAZQ2G1y6QA*dD6E;!;}UN68PrTxu&5?zh+$Ge*XDrnk10
zBD>YFSUp4;XyU{Q_7ER{D~CsLVDU6)AxE7wOKAHGe6P6{UUsgLv+=k5`t++h{Xj1D
zEV@{lu)l~faERP;sBFQpD!0M`asEKQGY0bk&|u-<t{Yk^lSl?4Md*pp=>GOFB)PBa
zS-DVO2Y*Oe{VZMLM#q+?i}if4uRjE|Gsrzsis_H#fiMTwf+Ne^^f@H=#G=ve2hL(U
zT2w$&L@Dv<raB#LN(2fT6$V1*EdN<ZWiTFnnUWnjyMBdWo<OlydEE<|;LyzgctjSK
z{X3uChzNRCGn?SX7%?&i7wJSONVAPRe9b(HQA#;BIjNGk)=2NAHk358z|-&(_Gg$9
zAMI;=bxPO%4j%kAD}?v1nVzQ_+?1v|<J!}JVdyJ!x-CM9>-ZARxIrF-TSpvh%<A-u
z=bnr*1Oh}*7{|*Sj5tpQ^_9(1XP!aQFc9#tB$W{60dAgc6Gtk0ZFt&t`?1AT2;PX&
z{OrPf!=>D^lc!GQX6R%KN*{(0m+T7;FNhw2r9=#tC=F$m<kI))3{n;=Q2P2Dl_mR8
zwJDXt>-UZ-fCUC90hGasSH?jzLH3V<gzc*?fne4P4iR){3eeoqNbQGNf_2Bn$tfGQ
zu}8oySa}g*5i>Giv}VKN?Z9{1rKZYiv+K=l`LAiBFLhMU9<EtyW=r84EC(rN2l5|q
zCJEQ?uf<C+#BI|NR~fTGrlHsnhDXc|^&6>lSRa@b2`i}d7)Lp8;Ks0B4!i8%lz#)q
zu6<A4!6io`To-X<B7`QwIXTSt6b3KBG7={P^p)+pIj_7Emp#Ne`sTYFgTC1I6e*j_
zoYmkN+5Mw2PC`o9Ba`vQA~9a?*MOjekfJ9|Tm!J6IrM^@8E6ETOkDb3!<J5^v+bJ+
zmC4z7!&HdivWPMY!w!5-9?ZaD>FS+HVq<)VDB<Rl3SdywWPii~3_5_Dgsl=(#yBQ^
z`o72r%)s-M5SW6w!P1;k>o(9Sz#EDwpr;yvoh1rRLsoi1E@l+jZp39fa8mP{zS|V-
zN!Iw3nx3w~K#K*ZBjVzEGJxn7)NgozOJ}8DH*R<q*cqX!lLfw~fh9+FooY2ub`iE7
zd<J0jOx+_A2-4S_nQevF`*w=$W@T!?@NfVRux<_{-AG1+;e(ZYLXB_KCFE<~<7-_*
zP!aM1_3~lej#{4w%HjnNfU_Q3ZZr9jsffq8i|Y~vh30y!&!Yqv=Ei2u+cQ)aKW!^E
zmM~*J!plGr<N?|#{M-@X?~e{m5^>!)J|MF#xJUjY8^I1TC`5NoExKb$6iMcc*j#1D
z3@7*Is7kSF`sK00WWho!Ed$pwO~EiC6OGsTO0g0c<hMiHMu|fR)4y3ahj~KHXKvgk
zzf3$<Z!CpE71nk;;zpP3=n2J+OBxGRd>~8w(5egF6?GDfkAXrowdlh7cwlWuM+at)
z1R<$?9ftp^UPy!*t=E+8VwvSgHV`8B0Zl1DGA#w^=H$A#?<8VbFQfPTrI+a9ScB-s
zkX@!cOP>1MYtoG}Y=cWzF1HNk_WY5fHby|MH;h|Tq9no!2h3-nUO=d`TR_yPR3OEv
zQ3u`nbd+uk6hc&}nHR_CR!qzw$f*cH2}>4?xE(bKOjN#gdaxSq+d&nnAIK$>(T&!w
z>a(BkX=3fpQRT$ixM4~`_xUhe?!IlCI9UrDY6fa~u(1R1*@hyl71Xy}BGe)?@WOLw
z{$HeiBY62r2V+D%T$S`)K_*4thFjVizyNMH8-w4}NwT!DDJ;c8%130YKBHyFsy0|Y
zZ6zk%k4;UpWzh*8EdVo#Gm3`4R>lnh@}xtFYKnsk83LR(1kXF!U}kG6>HIn!zhzwL
zGa2F4FCV6p^+1o)Yoz)L^@<T=G_ZX!z-`6=Y^2KQHVNcP&&>P^0$&VB9h!}E1I0$(
zd@vpJ>n_zGEf_*+2<1AJe)DoEl<e!hs=CoIIqHewjqpL}N<gM|-<-jDtjvJ0I5{4$
zWPa7nI<-JP^=NN|LLVF??_t%%0Gl!R@HUvb6utGG8z*r)D~(m{@EN8S2%kWyZwVPP
zQNYg5E{Mwj-wXQ_jQBoxrr#+(2Aw_E7LdW|oWyG*oWP8TVkf~ibSgYC(W;jSTzDHu
zEpv8(pcpCn)m7<&7lzW_>x1X1>ED9pV+cj}BHP;9N`sxCl|p6CnQng%kM(HZhgic8
z)KwKi(KNgpp-@*>pMe#^2jG(x55IfVf?r{5Heu{;SSvhEohYZQ*A9W$51y=bpowFV
zr-I4@X+r>w9B#Yc23&*cVBMqw&@MZM*2RjV^|4!nW-9TB|DM*41(uphB8=`Jjj(fp
z#?pufence>nBChTqZWwbq4KgLEMW-lIJf0Z<N8Z;>+1-K0Jw0s7W!ZQTDl9iMX+3q
zrlzHB?`E*ZsXAP&2HNw?K<$VnKXf6iT(&c~=-EKYZT`KWpko2X=G=Fg)Qi=jekKsl
z`}Qs{Nc<9M0GEbAgnEUofj1E;n!f5o^_AGsqWiL+QXg?F7j!V|kX9p(oC;4;QqucK
zW586mk5iXu4}kiC#nGA}tD6b0O)^!1pl9s?wp})t2<pb&4i~V8NrcUfRAI)53=)Bv
zJ-CR)#l@2r5RjSsJY|b+UBU?hBKK_h%~ZBS`cAy6Z$4IA6U}E4v$=;5?I}^aIWkyE
zeO5;6S2Z&oi8#y|+#dVQn`i~B_Zoya4GZVJkK}$%FI5%P@Qw(v#BY@_wgu@!F^iB4
z{JzSyTkk<L#xL}D>}-Qb@OinTwe@k%C}Kt0Qs$#WAsa=HUP$A_DCl-dJ9b{MDh`%8
z!H(|+`%^)?7x=a0LqN(?tsVJmpATTxUu{qQeFS>TEHn)a4CZ_;TOQA;28$sg!+<}i
zq`8p>T5)v1clVsI(3_J1pu0lD?xPE!XgvBz{lUVarJWzI&e?;`CNcHCGcXI<902i!
zDU~S@r<%fveO};a$dycoXtYpFUBxIJC&2Y1E?8lJ;S<6fcBG`e2n0_un2y$}D7y+j
zyDc|83ApHjZ5FE)1j`*_#Jd{e(0n7q7-E7TC?v#XFSs<)H}!VOIsMe?O!W06s1HEd
zvHV!sKnWblLxq9O=?-9-(MLYKgpw%;eBwgTzGQP?(gavR1x3aCWz*VVXyiLULC8Mi
zaY-f)@%k#OYLl%{Qs_7*spM(RaqF5mkY}J}un!HePQb4eeQ-e1J{ZNGD@Hr-qyd2T
z%y@euW9;7VtXmL^pRgZ4K0C_6&VELKc^f=jXp{5zsK6cx#1&oNJ=<QQsF?H0hfOy$
zC|aTco!(u*c$mp-0pe>nS}kpMg}xJB02!?PA(7Ui>rZCmBO}uh<z?!iA7bM7IZNxR
zgd_)Wc$AR))&PH5C&&T$A-ITI=GG*Ofc1~(AUF6_jQd<}1u5GcJb*#atN^frAC~K_
zMEA8fW0FUMvIbdNA)34&vaD(Y!s0VTHak#~c7$KjJT#D8aWx+(suzYjIUV+1gC!;w
z+FiPfjbwjAtxe;njFKxVyw^c<UiaIBbWB%5M1n22;DWAf2$L^B5!HrPFMbRhfi%Q*
z&~4M*@XLl1U*7bUoJX814%L4#IEw%bYXie$E0o#NP~XEMx-KFzvavieR1FZq5FEv1
z^Iz(YkG_2Qk~K(y0Gp6l76lA?`s3)QU_>+nP1XpWPa1M+D^!Vwz!xZt%kTdMGiUPK
zSO?2lA2TEk5{*fJUOW}xICU^Lj&+6r!r~5Vg?6KtWlKbXJ?Mvc8L18YvkN%er9pZ_
zvJu=)IskJ+pjT!HIP5uBQNRtnVXYug(e&MM>xYlC|60U506Nkf<T0qJ9|M05g3c`<
zIB)ZhI;S8PbC6XvY<^*_l%`va_y$g2=4%C4*)WVZC`^~_hAc4AP$MY6A50Pk%s3y_
z>|Xl`k{YQ**d1tXdKJkg_L6_NKT6k=s$>L7G)Q6t+kG@>Dwkv13=xn5Ak<)QHN@*Z
zz&(}i;p{aJXq(E{EacQE$?R%`Mi_pg4h~vgxc0&Q)(Tn5)aM+%rJ&=YG4k8ye6c7Q
z89ro0U~h3F#?G&uJ$p2{7pljrKW~o$yqN+1;TA%_n|v=wLOp)W1N9dV$l_x}(faeb
z?~`pj5%OS@mS!1$30aDHhxHGh7C-QL1?ROtq;bmt#6HoS_lHQVOAz&1!`uP@kZ3^b
zflM%NBOXi^At6oRtf&R7pGf;6rG(h~WQa*$f*>lZDJBbpW15%d%=w{6XncYM0`5O8
zL}{F}MsN`cVnsWzO6R_E7vL$fAq1hy1*g>)G`Jh(!Ztub`)Y~lw?@de<F66#nI9WM
zL6Z~F?Gs5K3(WypAb=6E0)hrronD8;!}G150!;PJ{^>~lFmvlaG-dvWj!v%s@ZbM^
zPu#z&eHES#`T9@kqD2gvavq?{u(GgZc2YvDgeD;-6s)08u5^jXH$JfBP+@=vq07un
zAm(e1Vn#4@E-*%DD}u<xOCvu8zYDVa!!W22r|kvJ1d_i7;N7^cUcCzuGlH=~E021A
zgyPI_!0J`tEBQ1B#yZ#6)=c4}gvgiczkGQB1gcaRFyPQir%-o6T*ub72zELX3a~C>
zcY`a`6Kaf$2i`?SUPpls8r(bRaldQ%Wg`Kg70TVacP|LKIR0`0ZuR-lQr_x54KpL7
z8j2~Zg$XmHowEAi)$A@~ud|orE4<PBw{Oo!&Axy4?peIPMY&b-C*T@pf7%O9-u|?3
zM@;|mu$Pa5`(EuGa$LRhq=)C~4%Oh&Ryme}sh&7XiNh!39p-H-Ce~;cplv9pmJq~+
zG%uH){mt$oQ}Vx&`SCy1gE`-0PZIhx5aB_}%m<PYk1AqyfF2jbicTEcC+ezMOifK0
zZ!He|_T7S3F!xSTrc-x+M^zid-=d+VUVqLQi{Bk9BqRcS_0lh$fL(#c!wlBl;U!03
zWiKcUk(}t!oDV+Sh5mfRzm2qGzyedgQD$6r1{q<{xW1F|EAl{8b(rfCM?5Z?RyAq9
zbgnFml>pnI@xd3`IKe%vItSv0Jm7Ay_hg652%<ofioGrqr<PWpJizz&XFb=~9A<Pz
z>|+a1Lm{$v4`Mb<PxsLVQ&k15zj;tw5MdowDI2V5fWG}8kuZQKnv6{aqFGg!jd-!e
z-=9X(SXPc&QHkJ^0LOwiqX~Gk$+j}m)91ll6UqpzA-b>R&qI(jy1(QH8x8ECFoav%
zX14?FL@EsOnY!8F?>;&x^7TbOxj_dUN&!+Ph@fM)0qneG1aC^|zdp#pRPcFBWNa+k
zoYxx_FJx<?V8Gzc4}_O?n!AB^zXN5!?lSlf*X=<?_a@s>n2h|#3!qrileLbO%7Qu)
z+-w^I=6t~6e@L(MD}Vj^u-VYK^_S^8u4B5OXZ8^(WUD(0fm;3jM%WhBG8Sd~#3kMv
zH=1VgX4NaTGKz|dlWRH~do+`)f}6no$CnE?uHm1;*BJ>?+G#9B5En0{wEY)C%}*i@
z0~YdfVM$!aE#TJA`lcLBIRF%^KX#v2MFAXOsYPDp$0mp&x|kta$CvzJ79jA714Lh|
z;uI07Q6Xle@YP>DbK=AaUfbYhB4KK{mdSMKGKxvwY$PgIPrvt0+LF9rjF)4T$fDaF
z6&ub5(b%?`b^0OaOCcu~*CvR9A`pJ`$Aw<Gac$Xf($QLCpi$x+$#b#Qea?#W!u#(x
zTO$?_uSXf%I{lJyS&+W$TxD;wm)$*S-wPLl*DJG@JyvZHJO*F9bMIwWT<P?io10In
zfwU>7p#Hh+wij3Mvmr2b769C$!xA9<Lgy-_qgJOJ*3*M6DLy=$G|Fqha=5%OwJ3EL
zxQP%?5}?xd-^;@^Dlqh$12h5V<##leM>Ta)7rSpbj|G4^#=ol3g7o4==(1%%g>}!B
zq<?<H40Q7EhzqnlVDb+>4F1A6H!jdmT_>0lc#OY&+|kLO!~Had-c4v%PD<6E)VX={
zX31U~xh$eHF}DFm`xC&;;OD%4*G6&m;5C_^p6<1N5DJ|kNTV`J0aPG=e}7XRI$5tn
zByzDd>nBD*xqTRhh)_r44mpAGGAtFgUPZ&;79-E@4OZ4Ju;{RoX{Nd`hXMnpb=|q9
z_scdDWy<Ss^-m?FH^vK{;~Vr}_G=1z`i#y#3w+aJw^7S6xk*z~PuQ+sFmk@BmC-nO
zr(ts2#fy{fRH9yW0s{$2uS09c3Fra2Z<f3Vh3hZ&$!NkBScIi=O)mdEDI~$$hpnL7
z1rbY8UBD4*=y`$r4azW1)I5l4|F<{hGipQ00~Yvi(Coznc1<&#c3>nILM7=!yXTY;
zj~0ZZlMWC>G|$ips{u9O{AK8$jrwH5@a!ls!@%LSy5gc^=f?K;Fwk;mPILzsAQD4l
zM*!g%gU7>lDpV5rd~gc37<qvX?*OI+f=J%bQe?~Y$#NEPhyS+ypG;i;#D)S_?^MSj
zb^-8+xz&LF2xWR1cvX_1-+CTGtURdBJqVj~D%G3qUjfz;0xUmlEZ}!?RW3`%@N^<>
zD`;uIvnUAWG!>viQo8;`L6XCDH2-#U{(owI`ZqNc{8zf?=le#u(aDrd95DookGcH%
zir@La&cC>Kkmcg}2Zt}nmpuP+Ik(r83_bkre$GKU&dr0HDk7P31sX|y8WA~Lz7YW|
z4-TXqsSv+$@6;!fdk-H*jx4t0&c*OvjU|}-sOxkzzVe-HZ^aX$2ck#X+>Ee)XMS`4
z=l>i6^FRBt*}~xf$@wjuSCh?#bx+K>`bM@Nn~%Z*Ki|9KACS@)r7-l>xa+3t5?nCu
z=oT4m|6cN>yxG{oCTr~#ov^9(?I}DVrBAiE{BSACl(KZ|0Er*@K^>BeGmVV_Q{M}&
zn=U2(!eOnw<QGu4EvcE#l=JzEKtNH$6~DUUYSw{KiPG~oQ|Rc;T<=D693pv6t?&0I
z43HGufDiin>wn=(Oz)8o%b=+P>;KH;j3qwAR{_dBb~NJ-dT{K;>%-ggHT^%Wt41FA
z6`TtYrX$moljZr+*w|wB$!5Z~;&V5+ur^1%JODyOVz<O!b#G5P<%7@DKu1?!d~T8l
zJbI9I$yG>c(-Irigk_|l&5)}iC?g?&E~N3ZX>!U&1psWux?4BV*9D&vwd@6G#!W&R
z^_%z_>g#*m5<4$aP*8+7o*=ohRX?g5WRxk#^2}u4NAI=R6KbCe;a*qX8P@LwmwK3P
za$UCY(Nn7pQo-xeKXte)buX%WT)^L_>xC5BQs1Po+#~INnwsa?I~4j-H!a8JtT`IG
zjC$r5>$-FUNl2_Kulxu)kR*qg8zcL^0RgZ=e*#`}Z6Bzdntv_FlDfOQ>xvs2UvHA%
zd|D=_rFGNmwa3rnho2f=mW>m*ns}rU1y<f){vE(cyx&QY65RGRZ>pd?eU$wUMM~Sk
zrceH*4FXZnbGN*nESeL{2kyO=(0I7(iG}a;p`&5^{1x&LMX)R*P4x<k2?1&OgPQ~*
z)GsCF*Vd6kPu%0k$;nyIA6L@~-9|>LLTk;nCQQb&w&>|){W;!Y9A35JoRkg$0CW7U
zqyMy0eZO?z|Gb1<_FrTi-VMzkBvJe&`?b(cN~!8NBUHoplHSrBInufCbvi7xPXq~N
zPe<WApfY+P>e4ORv%b_j0gNap9bhR1YUtX?WK^c}ywM<J6ff?k2$COvkW2ja+1;f^
z2i3JY*+_Q!Xi8td3+hZSBZsKz@37c(-1!12%@G&dR`+Y!9#c`voH4ZZ%+1bwZN^)`
znb;h27k9N?h(aQrq0NaM{ro+6`R0gQZLe4`O;P1(#a-EqQ$4sva+N3`P|k-_A{@@|
zum9Pg{{KBK{2M+2$vi5j4j-(XOOMSiH3zq>C6G|mrTbt&m<JP4zJ2sucg6y<*fuI?
z@Sl^+xJ7?Nq&~T&mOBkJoZ4jBnYzp(kGfl?!+%N#lDO3a`HhpE06SUZ5@Ta?s+KFI
z0Lz0DGT%WA_^=RYN>o_b{4>Holmb6#dLt5NSYGXpsY}hM24>Q}DCf_Q-v{&*Ui8uX
z32c58V_xl_o3I|d`Xl!X7-Ny6jR34?0u`<j^`{mmF^F5$Ur|9CYQj>%)p!?bF&PWw
zpdv5A(AWkvWk^DBdj#D@AMU<Fx}!`>Yn*U8Kn&iTs0RK9X@+pf&d+;f^{Qn$d;jVU
zEe`K_Ok<{PRZC)wPj{AD1#M#8xL<itl3;>S25Cn34awIQfn{B@$wN!Q6|n-5qqY9Q
z3{`d&TH_`e-BjU2YC9s=R4|1+Y-RZyHqV??;ukXNDk!DyyTf4;Qd{F$xPZbLduNfL
zw8@Rf&awwdzFZ%zVU>d?1LxzTFoe1n#NZMAI0FQ@2pCZ?Mr46C96{dMG-FPnu7KT1
z`HM@xmR*o1zG|$uLZX-lPB$4PoIc`jUoz?zbQYRG;kXprki>_Ndu&e4zd0Jxm~!+&
zS>eZph_RQh$<PdUcNM-BRkz{jV+OCss@5AO$dN!}6;}pkntuE6qL=AGJXxbj9p%no
z_nf_kXI^7tBb%sb?I<BA?ZXY|vsjz$oZm}ngEK>lf>h!zBWY1}TJ*H{)7ecjlJi1O
zXBAVLL_v{6DS#H-3(f8t80bsSgv4?KPHTfHfz}_SlMS3g&?n7l0!*tb6q-D6mO}BP
zKL^ZN`&{{v`w?_jcEm@IRz$ixr|F~~J?eUX;1E(!1W|EIfKmuntmohe)6o+Gg<THn
z^)D{S(N%9qndg;^v|WS~RyvAzJ-ur7Zw{|CHajFTi@S<KmkoO+qu{+Hxi1!hX>8Zv
z+1c-K*63LMn$1+fay*b~BFpvBgHw2BYwg!e#X}kyP$!SR;&NDy0_-uKh&^`j#d|@#
zl$r;m?Fv0gA0|S<MunP|78*7Sj`vGf#f9UCopl2b`qo|8V|v1JN#V-*Og#0|IS*FK
z(<&};@2X(~SqonM5%dHq&gQ13(EbHw=-*53lLeOG9W?nOJy_726>+p0oD^v5gpOH7
zIQ)a>5xNXaecp!<t-*Ew)fb!H@}~wHDs{K6i6)*+<TNZREH78vdpJaS{7Wlef`H9E
z(Npa$uozZkT~D1n`PBCGXxMXp%F`NqgA`|U^7(fgQ^s)ptCNMd1zJL&o9f-$w^vZC
ztgQZ7w~8JBJymzL43+^n{c7-3>`8K8!#pTqqGz;9o+dUZSR3}vD(7_68zZa#Ii|e)
zdl-ymzcqGDcUrV$XOtP5&@KuwOvD-ka~+lnLb3$$Iuo>s*D@kUKlz!8{fWCz&mF+s
zc=_oAv}ayNQ42d;_Yj7_pPu?1JNM5vU%#-DFaf(c1172$PFpDj^J=ySt$_7kz_mp&
zf)aHj+v86d@e?^*o#6}u0V4{!mK94Qb%8aP2&7Dsq;p9fuCA^Yt^p+&If|nBbRTYg
z8#yrv1VYuY-+dmuyuGjI|9ny$s=P_#1`u<DMFs(kS#Uf|uLkp_lgiFfc6GN9|13~i
znV&a>fRP8AWq;n2KM!QYb8u7vv`YpQatc756Fx5hoU~xv(uC!z0s0MCG}se6GC&;3
zfwKXS0|~*udEK{8ezx|{N5r`tcb0+{hD=b>G*TR({!RrsMOgp~DhzTk4m^*1|Jt87
ze>mOn&*76KvDf~qy|mTThH6OO(L9oY(obW(9)-HC#eoWA5YxRKn7L^Xmw3IN`9ZFS
zTBG`|)t!4s<QK2#eEOgoHnl?5tgJ;-ns+a6=C)Q)N}uTS%I*2DSE=OP^G$znhIPBF
z#YBQ^D4t7?s{CL>T0yHN2Fq=p9sp_&!)#(=R4{Fj2EjXH7t3HOf@;`rf2&av{PbLb
zKmJ#vZTxqdUeVosV!mc4@z#VaUDor336?FA4;<+hgh%yBZ+i{iPi&4JikMi{(1r?2
z;Ls`=_n+DNF9QAk50L*opWhJ(EawEE2P()l>POIwLggcmJyJe$vd=0+o@{QL2QbCW
zOeShpLBsnp8S~p;-%taNFiN$s7l3kY#1ccZxjU%1Qwq3XDc~rE(1<YvJ5Uo}<Y<TE
ztZfBjKnN*YLS0v5=!m*QUX@nfN{RApayOMw|I>1<y!Y;H9FT_l34D>F5&|*{%Z~+Q
z4v-Yya1<pbe)>~KJ5cHUE{l!6>Sm^Fj+#MH8|>FH`{wmwTFi$8;}vIN)AM?lPYKg)
zvu83>gPr>lz24=J2Dy(zz))7)bYHTm(8}mF)8+Y6Uk@!|d833)`gN9{Ie5#IYjB8F
z*Q8PyQ=`ct2FKbhVOr5yD98UBRuKJ-6}SeGvwm3e_CmrhT4IL6Jk0AWF0kw5W12lE
zPu4dxQII@Wd%BY$fgR(_?>BQS&V0afsjD-kuOSvhvg7*~!lI&7_f=QugjBFZ@lZX=
z3yHER1>atpCNrEr{$RM_t(eM$b{3d-Ya#L7_qqffNK(It^wirYx15W7C?{8)k@MqF
zf;JPcf&QJx`uugpu)!Jth|;&0`6OUYqpUsH<B$KTCdiN8iJRPXjd=f_1+}*AzP3HT
zuNea8>AB*#H9#a}->;^&fP`S{x_}pe2CDG@HbniClatFQN)=5F`$a-ik&;WCh7A|+
zZOU9CKcGo9t09CwA9^b@!Axt&A9DP3UBT|T=Up!>Z&9N0=UXnEW_9$GquD+uD9Lh(
zd&rp5=VfSF=Pg(p_mkcR9v`A)ON!nYn=DDtb$fJ<)>^Q7OZ@&^Vx`Z$t5Rj1+GDz1
z;-Sif0v@)Vb4T@OPwM2fZ+6}1QFEZF?}~c)>B+Y>JFY?WcZpy{yZEy>Drn^JnNxq&
zG20FH=QI#+Ou#4vr|3vOuK6d~ew_Qf@!Sbo^vADK!yD4T`L=)@RRN+iTAyo!+x1Tz
zD~OppfCEe1JLoY6WStFe{IFEe&P;$cMvmJ9U-DV7BD5`9{saF5Nh8Lu)ac}U!uf;q
ze@?vFgyXoptrS+FlSCa3=S848bT>?gB*n7+`L(}1{C9|+h@ln?#ab}<$XO-eJ7q>8
z$9~@C=I#Y0K?IDWfTP|x-uQEO=N0Fde3s!L4xpO*paY=9YD`oF3=4>S;4Yd-2W==I
zmCYl^&KV_okSjWQ{=<hGXJMXWO2A2i9G?d!H)t6;CAJ4HM(D=(gvR(n@X9qv5B#~#
zhl`tZE7U#+V4H_$sDR!g`57NGu*!u4^$wjQ-~veoFY5vr_HuC-|2)%2@_F_j09P}0
zT&Bt3KC;1PqXC_`j9EzED|VkCMtjHh0W@vMgJOXk+lW$tErFan3#VlDsYd^~_>;@>
zXPjY`AW$1Q%L?!{auzXolCPjDC;Ztqz*@t?&#yY!7@`WN7Bb!d=#OYR<X|eboOQwy
zw0T+(BLniKX)Br1360QZpdGq`OUwbRjVqI@tE;X*UL3QB-sv1LE=81aJ^T80Wdm?~
zvi$YGf05)nvJk-gSPG|#-VOmBM;Zi%a^yIgkVeH^$48tLC%qr%UO?XcT+N8mr<bY6
zzizys@-RsOS@)q)EcCID&mjk`{a@_8cT|+ww=IhLYui>t?G_bO(6(rms30I9VAcXb
zB$dQcNs>g#8M;-pRX~d*NHCF;<P2s6BuLJPl5@`C&JFfC=l9;YZ=ApG7-!t)=+SL!
zQT5gL?Y;I|bImyyJ|u(`n$fAw@NjvevL!Lkch6T(ocVwM&6v%*qvV{s<HFpo%gM8U
zdq3O^^s_Sf-QnE^U+EY6_gs9)OI`cZP4j8bGYNbB{%WqzalyU5SbTt)b@S$nTBl<V
znbel`{L1uN_1p$q(63^Vf?gDDynd6x=-KiXw3v#QQD3Kun8jF}I8!F>%l8YALw{AN
zjA{LugrAvG+ShQX%zdf5(ErY5EWdkd--OQL?NP7x>%2zJ;2^PSt&!QW+$ud~*@o2x
zBZqtYwTGBC3gMGT%f%TH8NXf|ewF@dI@4x;ud3e#J_~`JF=4~M5D+3&XNIP8D~r4a
zzZ9g;<^4rt+`H#I_s047@%EP7DqXeZzhZjriN7OFD%hPUgK<ZsirjugS7bX)2#{JV
zKVJBr7dI9%=R4tGV-0Zo<-ywGT?HsmxpnP7UUKxapybziu;JcTfJS!Nr^u$an(qj4
zVGH>8w?VyqJAAvak#hS8T13p}iNWK6tQ|kz=B`@U&)HyHOefqhs4AAg$<q77Oo@rx
z!2UIa2uVX@sKuf*r8cg)6%LD*&-_0MJf<tY-7Cz{%z0OVZKlGXhdOs?jLT2+inZ8}
zci)(VdnhC%^sa*RtbB^3q1|omMz`_Fzh5JY3vMYXZN?apyb-Yh4hg>?Ap;Mj*n6oX
zwns9DKW;Dn_YcPXBlf#Pi=Hr-A-WG3jf|t+OzddOA=C$J&&-`eQaqdJO5>nWN-A33
zy#)1rNsPQ)78f>k0uVNabuda)WwbnTdRBrkrR6d|9)OPrr9kQ0&UXha!7Gdgw`}e0
z<0)~mB2Ie}!G|pD9q$2SE8a3AIxbU2JDvuvwjReI99Xio<DqpnYP30Jx^lc=r~BzM
zC|~fDj*%TgF+^oH^FhG*LhA@|b%qa<?^W;Rn_i+oC{7T|J)0iw^m_v9zuiOz0{$WY
z=oG{{DF8om78hn2guo9vjC|`fG8d?`|KiVR`xVTuldwP1a_@~YZMhqRQu5EEPYc^u
z{(1C$dsLRQT>Za#yt-*azUh#Tj-w^#&E_?!3?^-ThDEqD@Rrlj%uCPh`f3!*glrCf
z*QX%S`}t$nuV&d10bGc9bP?xv4^HVg+{UB3o)Yin5BFGSs^Xow!jl{=%W>aRjH+bt
zA!hFJ-(rnhn65`fXui>S4w{=i>N>PRNHlME|3$&=A1**!+ouD}gmDFO8H;Dta<l7F
z7=oPwarJ>M4eWOcKNpphRHMvn!wHY74_-k-N5JhO<Yyd%gxK{y6%Zw{{%EppFeP*=
zR9?#cnLYKQMrLpaSM_5$c`C<|bu%YtJh8Kf>?{&TQ8@Uk8wZvifop`nxK-4Wo9=$m
zLG&yiQN~fDo_nqS8-lAJMG{W0!s_w-PIr#)2FeKxY^|Tau(2;5Iij-WHSGi2DuH>#
zViBqnZvj;0#5<c%OW}v;aN87;5fykcD4?s0a{Z}wf4yN}Z9;vvoyF~5M|kqFL)t<t
zTEKxIBopE{;0(Ip+M4|!4ZwB^V9`FDINa#3;(}@r$qRY&F27riiy<Cz449b~4J{1Y
z=MbiBAul~>*c{eKa#i|tCgC?J3ri1pR~X^T0JMQyx+@4zMa2+Y{YfD(PD<_tb+DiW
z1qF%aY!{A&D((0<Cz^1F@qum1yEZ<&yse!B8kRg5?nT19iTGU+BnVGs4A#mpR*BX8
zx^3-kLY^VlPb?R(*V^&S9VV|4-Av}!zt$Bt)qXy}jLt9>gwCqZ{z57E%V|d`Vk|?H
z8ARcW6Zv#ZjxKK_O6EwibfA~>@$z~BBOS8P$&QDbo_5V8FteX)QNHPCmHw=NF^!#8
zbz6_hZCrMFbA6nsU(8M|hq7Q#NginUTvRM47#3=V(kxZ=A^m2&gy1EnzV~sJjokeF
zpi2$zJ&O4-WIhFhlRTT(7Icmpf+8Al$WSrk8E>%jjA8NPgD0@t(cM;ot`B%Q+AeVP
z8OQzh-M-fr5Fc@&B5wksKNu1FH?Q3faS=oczAb|^m~NAN^KvW>^%@{+$u5h|w~z0J
z1#S;g3?IsThiKjx>4jmKvw+vCx6KWYf<h(!?3cH-x=3R@f^o8ERD+q7e}aH(&#oV6
z!NGRqV-G2?GdmL)0&5xwq|P$nsS$}hh-^lv`>L^+BXP<oM~7e;$uN*~j2hMGtF{QM
z2!4KzI8QuM?T&DW?O*}CABnGLKT&5;m44&<&<L`&0C=NQ43QTRA7FSv@xt2<z$A9g
zRoEej!@>1kFHFU*f_-aL{_=0)qltipN<teE3iS)o0g(#=$v+3iD6G|RXpV!SP88A-
zpoxV20QCWJ@1ZgXQ%ZlD@h~G!G&I^U&*z{qovCV53W2^zs3D<=7}P<<6@`RVWnmd+
zinx#5h04IyD76X_au#;B)dyDESq2QZ!o@5)x`^pHo+VK{#pljMl{-V9cZ4du&bGKG
zD-3IHH`T}EiAFv0R9<Q(Kqf09@iz_vhKpy|O;}oB{JqyBPI1(70-Bo`;L|p}tH+Ml
zVkE<s6pvdaIxOHo5<O|+Cxx9Cez8r$M1f2zV`6ne;xu5T7iPKBr(tnn>a)0fO!h26
zV@tWC4}T5#&rWbfBGy?@pp8Mf14#E6<0V#PBy1ZAe0;lC)U;liVKi6aBs3Ej306Ly
z8}^GlP0Pxs*=bU19(<U%>pQ+OTr()QVmuhpw>TY#-Uy0H@XW_kt~P_Pe7oP9S?5Mn
zdir6K@G)R^{-;rmikAL_adj?J)H_q_n|S8LaorNUks%!d&4Qr@y_A8q&GJ?2O*u+Y
z8TsEMt4Hv7dn&>`XU4i;z?GZ?jZ8e^6xeJMy<cH*vAeCF0d*Eyy_C3=RHvFsHG?2x
zk7*3uIH2EPshO@lR7FR}Y#jemAnjiOL1mqQ3*6?Y<q)1K^-IaTEmhd3+`hgICDH9s
z5Q;ChW@BkX11`q>y*i*SUTt<|1PhWTP?*Jb48V;=9tV{QriT;{EEfj5o=;8LBE<Z(
z@=x{HmY3AuK&Lwoi5W(KyfQa8Ct=gP$S0Yuc3@j<E{~$x#aiH$#QhWdwi+uf8LoB3
z{z7M9*+*D-FTfB6=FhKrXH2I|V<(r+R4#HflBPuGG)ID*=nbjV4Q=Z60B>*Q-ih89
z%L^iG!<QkbW$uK-AVljefHC}1h?n{JKoXNkVjK23jlO#O_U+xG9paW}6+cM#i)NVt
zgAV5B=l4h-K#Ywtk;aZ9x&ee4GJ}JRW58)`|LyO+Z;LbmfihkaYuKy-4oUm74E%&@
zzt!)NR|7BQwQzE<>|wX_@}Cb#LF70f`L(#Dgyp<nquj4cm+>?gPI+e-$)uD?OMsMN
z$g<#KWH<p@DO6(T7&{wDZNX+nnaB9uvmpQqc0xb@I8WG1j6!{Jnzmgi#SqC9Iq6dB
z*&xlK7@{0ONTs>=?i)s_cxp%WCAhFMULt?uhW)~vZGlRf)y~vsVe_gVW1Lnf-$6<V
z4E=2dRIGg+%LyAdT22B~R(f#&4*kXHki{>c<Xa7WeIrPFw*WD>I&2$Y_qLW=PHeky
z;-54Le>orUuWYOSSz6wV52d?W!>kI?h%0DErxn&j57yr8cZx?~KuHva5YH^$nq|Iy
zoH(Syv6!zrUx6mh7O*g2ljmhQ;&z>|)u)WUT{^Hdn*&B%0z$V=pdf=U6@Pb|N+sxx
z^8UkrJ4uD4nzh8C4`&RK5bFSWKE&hom$d%LS>laHwB(GJ(sQjF^n3*}{+hwGmWc6J
zJ5svS1oivZJrzf?Y?j{YHe{)_nr%7Bj&LvH&pO8dSpEF&D5wF?$PW|1nHW<p2W!M@
zVZ-v1$m8JTNy8=`Bc2hprASQ$mH_N%Ee);NTu47EpPyQX9is+J<I%g;hZy$p(^k!=
zFJDrKLC2=qCXxmY-={|)BD6}uYy+|F1%6Ks-<e`FXC?h0$O3v`?Lu0+R&bEm2d@Pz
z2vq3^PF1j!(j2%~gU_YIBVp+^5CuT!B$n+2)&}bE3W#)gc1#>+1UpTr5e_}Z1^B}v
z4FJs;o`EJ~tX9X9n6T;jF18D}?5Elz5VnuoW7rA)Jr0)w<@sBc&sw4$ld}&icqb{H
z?1^Sibi?vqiX@u^i7|3i)2Y)#p~Tl6E<~W#CVBh&N5Yfk)A!*|Amo4$p0_X_PrRg&
zH|4$!Y2%czK8I-t%D9Dv5BxQJGADwNpkbfO`3s)H?Tdp;5b=-0UbuipfD!7r_s+Q3
zSl~k49ufm(aJ)o6E)=~2676w-R>AwNsOjkEZcC!4uTQ`6f`BUIJm&Y4CGQ9uVSdxv
zSI1!eChu>BJ3(%Yo`FFxq|LFJ*8SXgJ7jodL=rqLU902i@vx6oP4^@}=!9%>X1dfR
z4qa7zqaGAK)xbi+P#LE;j(|1`%q0jv9R~P<XB#uP9-j_8=sCibGLXit--qSas4rTJ
zqlu`PP&Nc%<;SjAwYswF_Hr5eG!BV%7?f^ZH#bO?VQVSt2V;g2+FE4x6Or7d7`Z@T
z$x!b2s9SaUbPK+98OWEBdqW%(8?#}EV1&%Jox{`9vjz@F(eOz~{Ww3~_2oo-&V;&q
zbvLH9kbFuKx;Np0^JJ)$Figpf1X{w+hj5#%Ni%ORyzA+LHPqUTu31$?%e{Ku*f<3G
zd#GYM+S-VL#1hmo)^&kQaDlgiUozY);r>m>s`L3LFNj8Y8HIorAZ}&k9^V#o@A5X{
zCr&06<@#@7y7*y?$CkJ`=^r&lR|jjG=HQe>w_L9J{h__=-rzEI6a98o>>TP=Ez3uS
zri3Ssg0PB^%*BGj=n_9O3BQfrxU>lGQl)3>N-L3Nv1{3?vZ8#14>++L#2yVxS;v&3
zH^Z8Z<4HJ+y7YQicC_FSB>f^y#dom4UX2!(`U{iQWt87Y29lmELp(<x@Hiz2F;(Sn
z{D;SVN$FqzP$w@b;bhrJ1qTQT8LF~fR3q3WI9dJ&Ymm=qMf~M$r2HC#Et?UzpY0t!
zwkT_nQtzRX<D<>GMz&+Q0AylH-Rg6w3Yjm0Eb)4a)=UMl7)CpTTvP(OASZo(VfomA
zfF>~F!5azlwolj79Z;w(`TA6_Wkkbs_xB@6(|fLZ|I-INSTN=~2_Ui(ru1A?qQ94d
zx0e=tsKEHz<TnTpQQLt3VChAbj_qdG#*DF{F;c9x`ebpzWoBbA(H;E&16+kvpR6vJ
zk<E*a;eVm7n0*5k9#g8W{p&0&o*_$ndwbjZ*6SzvpH|9MfdGB=2Qm?u&?p~Xa_@dx
zCNtB~&Hhp+-ys5S4fePnU6*FIS3dAS2K&;J0U<>zjQ-{cGHR%z&N7gFOs#FY=VmlC
zJKx%kVDb-SW5EC7qDR@m=;(+o@9NH)pUidH!1VMApcNwa10af%$DAk!efa4!_YgQ{
z{{d+X;*NS~wwzDOyl1rk+VIP^YbI7~OqV3^G#~o=vjxLr=#)><B4k(0=RM(v)o1?W
zx_0UNa}0TGJ9vC}c<;~GL*Q!!#6jMA^X0p42-)3Wg!oaG+$&+3^Y56E96IojEpSmG
zdAwT>GdUdMC;mLTEBiCjO*pPj37!xnhGoLJ`~M*`2Ns;;yh&p~&xN@}!=6k2<A5f}
zai-T1B3?ZJRT}Ze{RhTiVmipfy&|3h_(dJwH^k$74Cc^W-vqG(hzT&+8&`cU@IlOB
zXd7|&9_*{Mq^Aqc8#U!))WkS(VZamLK(BLzzB>vyjd@18?7ro%?iz4k{WT92KtVNF
z(PQD#^Q1be!9Cr~yxOWnth0+aULsLHloc=X?g0KUS~Dz_U@AnY^-N*kTrI+K3XG7U
ziZ};(oQ^FSbx3{*Z>e%kyM<mpiUf#M8)mxVstJD{=I8G#MMg(Qg+XvYvDS3`-FiaA
zK{^}`P)?gzQRf0Fltf8I>ZHi|9~jzQr?3{?;*vo5QJZ|!3%C|CPmEv__dGrQ5KNJb
z2*a5G>=FoK_rq&%EO$BQVR|pJvU#5%^9i`NF(^&2Mr!Za`^O({@!J-#AA3{&p-)d3
z%xqkb>MqXwNJAm<M-)t8H{K~}uZ&gvkb<Lz`<oyRtOOj3VFI~R$Ds^%a`OFw;JxlZ
z#z7P)JR8?k+B@;AY9<xE8T>CuO0*Bt^pNWjV<+M(j`sHV3HXWgQi*AgCO_@H-crd#
zG&d@<Z+~2N;3K@HK>F8}aQLDfmfpP95Ct!AB!#I2F!%vdB*{i5KzlE8Bna%7#zswu
zwq*zi0Lxd!@9dsCCI0Bn-zdre{6S@)Tt<)Oz#3-=ev<(M+#Myx%cx^B%GEt2f&`<K
zlGkHUL4i-8X2-#I^oZ|Us&qs^pJ`J{J<nJ<JS=|snB<qQ)>*7*h&ge1ayyT|@<SD1
z_q)mW8+Z2TmwZ63_{pwEWX6+c>Zb7c<JjkDw#az?JUDL8<4C_7R(2!p!8W@$e|vh;
z{`ye*f;ImF<H9UmDd-wHbM2j1G&KVo2kbLMZ?LJ3vGF0r@jc=>9tl;y%*4kk<B(8+
z;~326+xI;^eWt17D(IC5T>@7!UGeG;VHY*2Rfuhe>OmNIc@A9u2u~kir$ODFTJV}k
zEeE;`rWGMkBQt5>#QT(3H^T$z3s8@6!dHlBV(|F$%$6z5Y?wrG)XF&mYsebX4Y>g!
zo4HS`#bxH(G8~>~29#1o+lDVH%UPbZms+1Dp}$faWTzY3=P#sxd8R_1r0Ihci!WA%
zBJ6Hw5`N`DMp=~Sh(+o9uWaXVA^qSp5VH*&jx|%=aVB`1Jw2vN^Yeb*vgSFREy}vN
zNx%JC#V;1x`29=zidQO7>$S&6e(4yt<!$<SPl|r(3G1NJ7sW4~Y2{$+NUE$#x^;Xv
zV2WrI`ZH}_=L<j20yqrKn`;-aM?Pa!#Fuu9Q<V7xbOJz2h$2<3x8^%+qKQ!qcFWQ%
z2XJa4@bhq1DkE(f7%oI3)wZh76*`633e$_#qyVlarDLl(sfkG+4A6&nMr|C@GIG@7
zFo;-6DhBV>Cl_|BZjj&LtF@&JS#=KTIIvh=HQV>{foOIPpjdR3!Wt`h_g@%DK(-9;
z$fJN?YaSoeA>0!j48#Jy>RKA*6+hb@QAYW9*8K827@6vNRXxWnUVD0mC%Wjshw}}|
zHLJFcr{c)DOZ_*Pmj>d|(OnAs>G0dMZ@s;h%=@`oz~CZNCX5;fk-ZR+1<b~?K7S`U
z2Pzp7B4x$x4$=T48Z|EXhqYxy$?V#AH(k@JCZ764RjjG!P4}Df7AHJQVw6Jqa>xrK
z2!)Q!3-nc%|97U6@LF5hT-GI9tRlFbQD+8OPy0B|l3^CcKmay%!loNNt(WEM54O#O
zP2-?856sN5v#Z|x+fQznPdZDjTi2WSc;7GoTDd9h%g`)e#2@15x2kM5+^*B7S-HQV
zi&rY_Vulm|HI?al_Vrkm$QB<`rX6#KW=}eetX_G~Cw>P;>8O}gE{;Bi35+v6?b~7T
zEqiFGGOQu@2}#Wy(9+$8ZL%)eJEff)85Yl^AP*{NjcoZ|-fii&*s<ncD~XV_W+7DQ
zyC!dJ7;WK=`kPA%q@xSjQYBUtdu+phg46Lxja6T)OJsgm24y$_Ag%iARp1R!4&&+w
z#GjvT9wUL2c-f=1kWseIbw4j>Z8SJ1t=-a?gBGrZV~Fsf2-byrTlbm)MDr14Cl=4!
zVXHji<*EqLIJapp=IF%{5?J)eyTEq`loxAGpFy*j@t2;<k-jyzujtRdOr%-+-3>K8
z#C+lz>4N7Qp29cfY(c`2Ve#eet77Xd-I^dS4zhxku6XnE`@*BY?`;u^sl5}b_Qi#F
z{#N?)(XZ!fPnVo>_+|CYwc@c2r<;X(2%Dhv5NuzbA<~S)tgL3L<}C^~a$XVTdaP!K
z;?33Tqb4%Zz#$|lpxB9tiD<TO4u;Em6>?&DDJo!v$6Sz$sE2oJEdTDFl3S)Hi`9aK
zy*X?q$so*EjC($FFMsC>ovXd-1M9tCJX@1-WZx}<Z-;hyf!XqG5LYp1Au+oIhT%pj
z3xJ4V(=R!u;9flogAfW8z#`9Y1FGb%)bz$$9_hmVF6bRM0yDI|15bjek22w~1;VER
z_=i*!*h{t%*od^+4jkyh1aR)Dq#_I>^$q&yu~Vb9xS6XP&7W%QRAd|yTog(K_*!J1
zEO*Xf5(yBK3C@OW<lkX+0ULTanq{b}+>*R-bh=G?*7R19{6T;EKbt+Q)e1q*#!(`(
z&r`YUKbFs0<ERTjCPwOJ#0dh6%(yHLE~?a7%X!=^pC>l=q?L;`fer?N$COf2{+P8w
zmkAewb5`NK04MwzV-T1?)Q~3_(fj_p9}_Onc{kWPNzrX*EaxUBv07WVG6FpAe}_*Y
zPF89;ijW%fQP>o{6*!Gk!f+?gGWnL_4ZIv#4w)i?mSc>{b|7^mY9b?ehVB8)A&1eL
z3RSIQG(AvR_@mJh#J|t)*}rZcBZV{KY~@IM5t%gueA<YxJdwOX46Vw)ZQbqT<hvp>
zAYe1G#RuPl%>N-Rabn)tO6Tx9z<dHwfFeo}VT+D)WL$z&$a!>ctFUgOAj!W9n0Aw~
z0NXm7=4?9@)H%fE7SpBnNlVjV-gyCb{bc%}PXlN8HHU&crO9I|vvGgStDe!CIAy9L
zTrvdWUpVOkkTwItBH<VVEHZ}rH9*8v{k@2>#SZT=QI`eB6w?M(GT;)_y;#KBPWp*T
z{X7p09wJ2uk+k8Y$!MIwLqCTCw}Ox*kO2BNuq1i9&*<B|&a&(-UuteD4$gPBw|AqU
ztw7B{>(IZ7uLL+C6a6l(rQ#4e_M%ua%E=w+IZWrzzMqKC8W2Y$CLUE7Eb?$M591+$
z@Byb#fmIQzDWgNF%esn)T96$m`yIcin35l7j1fn5hah79%<x9W1d4!)y>O)e0-Se@
z;if=P6<jEEMXYOYlg=8fgAs)y8x>eda}l-@yW?x3Gb}o}(Sm>?#W|0Ty-u{wMee^H
zfyFV&S@9-H@csk0X7k$HWb6aXi;4y(NrTjfg-Z-ZoaDYB%cg+}OD5#uDN)PKoJY6M
zqnZ4WGLAN>+vR;gDas4zXSTa-TA0Ly%H-3t5t;L<er&UEO>CO&!U?`WvSnNatZVEs
zV3a~7-gC(Ki(-|Ye1G~Lr-~J9dtmi{1}}2Ed==%VRlQq%9}P(z?(cbAMkVZLe1d{@
z27{hnO3ZjL%p=+o&NHX`D*AL@<oZjkHnYkN;?7X}h$7Pp9oIXY0+L#Egn0}!BS6|(
zziy1bfw%dN8`=ej<<RWd)G2CIc^1<<ZxOxrPwTc^1xBgYk!DzN8eZ=%{i4g|fj7!!
z`dNZg^j6AaO><F+E2Qlww<vTXiSHV_v~xD;abS2~6hI*o>keId%{1QMKqEXNC9Ox^
zbKZ_<0bopr#ndnX-v=7i(10@WZ-+6#TeW=BvOv?}RwuAMSmQoxWDS9Ch%`LVfO?L!
zkQ?;xBLZmt!Bt2Ry+$&a8`ETzPy%>dG=^4t3%}+zmh}+ml6wMt{~|%Tgl~L1iA0+_
z+p)mhDrdiz+-&RvH9QuAQ;ZQ`yF~&kr!`qWfq_gMc|X7tRaoQOgXwrM$>6S%6(2o(
zxP~>d$k`P1AmWk%w5SU|t&9<uXn+whDe)>LXy|RL06PqE2e9(}`}cP94DR{PVOyea
zhb0F0jy03GBPa#+{gen=Mwqp5%(;UbONd)gEdkmmLRS=L6)^X3z$2>4^hA{I!5r5b
zH1o*GgxRcCeYF=zqX)a=Df0T?($<g%<tjw%l_`-W$9f1N*RA_n<G24#J4ikyh%}=Z
z%H8Q1p`-=Fcu63ua}hNE|Lg$m`z_mtj82nf5F41w61c?s+p5V#WyVWHp6G~(2z5}9
zmq7N<B5<F(>*?osY#5RNU%PCP{9}fsy=mAQr#v~2iM%eP*+Eh|;y#)iFa@AZ0jc}#
zd3CFE0R)yZF6_4Kaao*nA#Oe5F25;h5ElS=?!T4JiTImPihHjGV84F>w}{9H>b;k4
z0aH{rVOziSa=Bk~3YW+gsVZGM0RK}0w~(Zk#9-t<WVi_Vri6(_N-NC5=s}tgujI}J
zVwSM}=WV1CK_n*czeIw-vfec6OZrN@(f{<7hUEI>Rm^v{AP#YxgzIj*PwY7&@e$~1
zCxOhgk)^iyihdp-?xa)f+R6;{UwNr$8uO0Yn&Mm})!_+Kjg$Xy0iwsbuY7cNn&}Q7
z2b+bA_I^YmA+6AXuC{brTy21+s<4D%Mone<4IL8N$vnsW?+3Gf5E$IJGoCqUjk+<$
zQM4O3okmBSG^a3v?dscGzmS#>84(|QG2uArU?4e?%lO(KlT=bpECW&Flim=g)7Ybz
zUU|v6px_+B{vmU8vgc51a8U_dn=(sGkY0MN&`>#Hsp`947*1ht?a)vnt$gK=vBIPU
zc)N~NSNS}dg{kD(gEFbwtMdNAd=CbX!^4~mp(`)A@mKVfs)L4G(7mE#Ca=EeFH7M@
z!4%{zoT+R7wbIHcTz9_kZAbv=tfEQ`$NqrF%|(EmWbkH6O*}6ztdv4ATQM4;+ZZPp
z!G6gQZXyc8tn>@mq9}W|#+{fs_?0}kqb)GXCf&Iz?LlRP7?hfSAC9Mdg+3$7YIgh!
z8ftHiQp8wfge+`V7X;2{I?vma5jm}koTvhjBy!LH{vk@IoVWVH-^<Z)BNvy>-yBko
z>GJ(Qx>qf6u^4+IaYSoo?`Y_|#Cz8|$N+Qh1_B6^92=a<t5}=?Fp`3NAlUZX-$Q}~
zU8NWz>#K^(LbsFg5<h|S?<_a_-rB**J9pk)MWzrmbJv<Ir|7DV!*|0n2WsF5OvX|$
z<XNN-n$#X3L<j;_@@SQkOZ<V7?h5;l2A6osD0&`L21cNM%k)+L2%!6I1()a<FZtEk
z%k3?J|7>shJQ#g~1IM`!q0XB^hOv_o45|`bqA_GvB^Vqk-^FE)fEcpL#W@dc9;za$
zP(-qA&e?5+g_#Q{bC<hYms9F@{QO1PZ{BE|8=+4iy}F8JNybjW7$6=ny)i~PwkBlk
zIXGJTYUK~5<=y?jP#MZO(ONu8iOzB>o53oWcbOPCaxO0O^VX>}ds!RnEsx~h9j#rt
z<}6dj7p8aIg&&yyT6aKd->&q}>4_fC_qF|gUx<Hlt<dj>*S!7d&rLsNB+5LL^XA+1
z?YOe<E8X+rIaTv}yn=bF)WoYI1A9t4?M9CHL?vaLRf(yD=UMgGNa2|1z|e?duv#)3
z{nLpFuk(mkNZZq!EHaE8h}~>bj#K8Nu>C5aGBC#bAo8)ZiMmJ1(Fzb8w9S{8*<t;y
zm%eBp2kpk(c)Ux$mcjY+=aHQ}0*_U=z~zoz0i$dznm%vD;M#gC3)q@{=^q0F10@LU
z57+UhU&;s>Kwm~24%709ZM@ykie1ha{=1=}K?s5IT<{SwWD?z@Vg$$@Y2DzGZd12&
z=gtfi&?ApL9Vt|E0Mi1Z^W{PjX#DqBv0Lky)?{(_j%WgTl;q>%L$^dN{`;tEc}V{y
zIZZ4j{6WFxJ3CXW$Kjtk|7L^pL-hD1k(|(Thi(f{sK7#l$yl`l#*i%rBCyspgqXg_
zlVthV(o<8Qfx_^Z0%n&+wV@c!Qwv60(4b={dufvG@Hb5q24WbvkW{DtBs3#KEL3qn
z{&`}ONcBJ`{PPo00bt%VGNsI?13r%xNguXow1El=i!dEUZlChn+Q(SEk`PuGNzYeE
zt7s15kem&~R4}_Djpp*Kl8+yej0pXKTT+0OY7{*p=L|ax18#Ke)8Q-vH_jX-kUnsL
z{XQ~=Mn;7q4JKX!PTjIRK~+;ArX38KZR|`$pLPevkg$oF>zZMDlqnlnGbNaZ-R>5A
z@e5df3{+N9PfSzQWI`1|7G-R3>N-JX#5=b0)FCVPd*a+Z9!$nHBqt}ojEsaeBwq$<
zINIW0G4JeY;d!N}GBo843_8U<H)-+B*RiOEXJuuzNKSOx%>#Q3L?1~kHa2#;baAe<
z{bK_$(zbxNzaC;*&Y%7FW|B-}WId}?$M44kA#ON%{FcP;8~iKjjJ)F3Filaht~U%P
z&T^QKb1aYF11{!`M=->?4kx<rb|D+92~6dhLk^A3OrsZl?%P&79D}1ETZAcd>!EFh
zp&wVIhW^~prZs3!`*2?>B_*XD^GAzLZPoH#obp`!)Pf0I+5M(wMQ5Z&9tAqjbZ3CD
z%N;j)k0<UEI>aHEn6sZy;K&+B4^0;!iWnwxnd4)^Lqqj4?AY1a&4F%rAcMBe9Ss_6
zLu0ikr>o)F9gYCZzT!iA{lxD{xH5M;EPM(K!-IT@M?d!388iv&Fc9<*W~J(|h<82R
zVe$E3j!vZNNP?#mFHjy^emIUcBKLu#qxJ%Z6-Xf!)W-P2SLI_!go*&i3)+pe9l;U=
zbxk!hD@%#rucnQwdvfW)d?-&kneWLNf>o5FZI&`_AhGSN@ocuWwKczJ<@@q=`Fy=_
z?JPyg;)`v#J0JXJnXT8OCsGq~eF}}UL}O0N$`-j&YE<}>;*!(S;;nZCl>5occBjy)
zl}@dS?))svIH=>76+iazvv-L^%4t>=wcfHZ&50L21N@R>Mc&R+vFw`<F<G~WN`?pJ
zlsAP&^UHRBnKf2W829m%;A&shoK!x)-oT0CFX1r1^$-)-RvHCc%+v;Q-QsBF6Cc~y
zRg|^b-8QMEchhQS?KRZZ1<{<M6d?U4i+Wu9L~mepd3yTDsnz$wblQF{uTyV2I9mPw
z^mfxqhgZ2{-*|f~I6F#<J43o=4IZ6Jtb3U1XcjV0%Utx$Ti8!q?4A^kh?rq<9<82!
z&yp2qxkw9k=FJOASx5`{bEq!Jx-_df`GX85^}V6LH0CQ^Q?H;k?vYp8)!|!p{^BWj
zclR9H_Q9^MPpAQEdS|@a@`b`WXSRmLPmZ(P+LP*NEDu{A?(jOC%``jKiS^VBP3;kz
zEBW;DvBFa+{08opro-be4PQLicJMiOQ5HgspkevTxv6~V5{yYos~)8zdWf~&`fUXJ
zD0}j`T+9<>pHkqhl)@PulU5?s{gi|VXP86;vIvZ=tPfYw1R8X!O1}mjxO`k(LV|=T
zvR`s0MMXsoP$N?#mC1Y#FAooo=6q12;*(QTRkMf>-=&A*@Dol#$nHQzRt(^E!CNL&
zI5<s{A9+$qx8%)DQQg3JO2B)e-xWHs-!1CrY!q+j!Iuo2%o%i|`ZAl4i5i1Bt=AIU
z+|6MdMeJ$?kvwBWusET--6nm`qbi3)L^_b3mSRA_V~jWW9i57X8rx<F11UIgK7meg
z@o`e>em5{+I<W^!OPwc@QfA6msD}0oDmFDW*>y^^_+!`XA@LPfesB6Rd*g~slM#K%
zzJPE!WN}z};f(Wi5nVq7yKL8LF2Ww_dH1vQ)Ekqm{?zHpaH*7!quxdBWXqF~NJ93C
z7>_qsfjR8=E3$*8SF2YsVvh>A9Ow}>KVw_yZ&~1zlXD88G$L}7O-voZfQ5{Qq{pZr
zj0G|Mj&tE5(536{oruWO;97WLYVgOptfRY?=Yx81xBGK)Km>`go`JP!!sLXfbMnaT
zQ2aR4zFZ)XQmC-XwkAE#tt=8z8+S$68N?4nCE56?+u!b{WFUi$S|(f{ZHhuy8Dlve
z96-#84sym&oSZalk^lPl4rRxF9&gSCmx(4Z4_9l&8_Uijs<AyQ2B9}^c9<nWizIAP
z;UrJDfZkwoVez++sgo(oB<lzbe1Fu=h~A6S(q0sD^T99<CWk}@0CpkN!%N{87P>w#
zNZXHltATarMIrHv#H`%<Wu|*&Y!&?{Q$8P=&_?VC3_nuDLk;1gB3fo@VoI`8i3Pxn
zPS9+yM5BK6cdep(R+uHWT`?q!hs>92M{-|C2r4%+(ckaHn6ScQKkuY80w;4dGIqAe
z6p>D=R*CWd_$Vcg>FLAOl&^BWfdvk)SNz<D_LddWvk+ir2g#IbhHg@^ND)5IA7P!j
zl88-R6=ln_Rbr!=E-|gY_&O^F1b2fwJFP#lNc6puQYFo{o5A$LmCP)?TuXe->Ui^v
zz_BrkR!|DRUhyH(y`fR`bsSFzV*OlgkWAR2-Bn(f(RM-)zMWc}(c~hJ#m@OjhxJB>
zL|L&JzwF*#^D=q(iILXoqpi#rUu*FDSzvZbI|<9!q)FvEvhziGbF$iCL{JK9awk#_
z35!K8O?kg0$9y)RzPUO0#0JSj;FP>J3fD@%etDs0afVK1=y*zs0HNf(%OGousi(x1
z`P%588yugCHcBE;kUJUr?Ab^ZIdz&F$T~Z^+}l_1i{cnUarr$1ontQwF!#@kvo4DQ
z_{}*T9i0!|Hno@UG&d|;)VK=Mut*UooCo{KsxB3>@ne^Av>oh+QC8-EJa>c%AZ#{+
z{on_LPFmyX9-dF!s^S2CMD%}I&9g+dGdY2A?$t&_GeKMK-Mh}HjJw)krd>`N5{pHL
zQ%=lPWnaF0ad1EyRkbW7czR7m@@o^ik@jZs1rOI11rJMHetXMk*_}Wk4PS`^gKl%u
zTo4c9tY-$D1|4$Jq>&XUFY6~<Gs$N_YGr6@D#vhyEDD9Gg>Ov6+l}i<@}=je<x8o%
z`oi5DJ4)rh{tR-j4A2<7DCjp7B1f~pmkI|})FxoRQdpZ($V{dA2|-P$5R9EJEVX)F
z-^5@^Gj>>2UdRFA9}#%^(;2Bm&DZ3L9kI0r<`-d~?~li7xl4vLV^>E82M70IC~6(J
z=QR61G~48HFq<!uWX&|S?hnp|p*y2R^aVjgk8kEh?dB86D*KS+paSZ)aq3lkH)DyX
zhRL8@Ku*iW`3z7yle`!qOfj@D%HTxYdR2p?E1M}~B%6@V#|I<@b&|KhbjnUJW==>=
zBzUe@X2Z3--em>Mgpg%3z+I!+$3#c-1O){Z&G+IQBq=`UeAgK<q-z$Sx+4*E2(^<9
zRm?>s>;MzW6upX6=bAKr;h6KX#u_x)*`|%ApHklRVCg@hm?7yMK>$5)f2%-A$ii6o
zTn{a;5bPvBP=55lM$Ev`l!!?-EV`tye!Z)*sVS(`u|ud1piL53SQBDR8=Qx3BBtY?
zv9U2-M8@e!fG(5*0r24*;XoUIxJ9CQ*uw;zwds79xqK_}`!-reOlMc``s&os(CoX@
zx^_3}1E)bJq`AoIO$G5(&cS_}q-gc^^-(!S_-I#30XdOA2Z}8nzsQ?ID)<~OOescs
zBb2n^0bxMVsPtYcDNFB-BIIe>w%&%%^67!x*#WDllsw@W0kS0u+s#vJuiOu)UZJdt
zodmK+Dd-X*sP$<MU+_Up#%(x?<rq6|yx%k*uo&^eLxzDuC#O`%(odeG(c{KDt0Gzv
z%1hV`0v{oh6G4JshcSnvKJkuRq`dpkja@T}Fn^c?WD(4Sg{LsDnL|Uv2&oW&T*n?h
zPuCfW>rNzl1W7&|E;y(RlawmeB6kT#R7#Wb4Rv+?2-7@d42w0E5_t<OlLFK-fi3d`
zHqnl`*0>t{ur4-^9pKebFc`$iOTdgbhj6U}yt<2q!6}jJMU>^Lw7;e{Tzi5Jw@3lw
zSUzo>kF2euDOjAcb};iaN4VAnXu2vj7_NW%$he8o@+jCs23~R^Y_F_hBao9ID{>@8
z9qj`yXl9H+w9xi;oxo>6Z;x>_OiEQ_c_0&z-XJyg)qL~_mNt3s5qC4kJ(!bYPi{p!
zNBp7HgZ2Ezb<?;@e%oobb?XY81}s8~(sIXR+kM6G4K!f`ngM9q{L87W<n)P}3gq2+
zW-{!_wL*-Q%4`%L$eC<zL|KyoRK)^J`}oS1fXda|qoP9I%;rw!#7|BjL5$8pADPKj
zB@?0_FA5SJ-8{b=y|HP3P+1Otb!~T3xcCL`-waCLOjZ0$PTWG}P^_5~5AroNpb37&
znH2mHG=I;dZt^08EL6oL9teSG*KCLKIF1xaB#$9Qg{7tC%kc2M{r&xRxS-LDQm1R~
z=PNay==I}Tk=*259)--HR-)s2hGvOF%WQLV`$AI-_`h@CIXfY}LOo|-c0R4qTo%}(
zFTs9DdBtr!+jT}dfE4=V`~)W}5hy$<vZ)M<60yA?SPukQn;P9*uTr(D+0%LKMNV4K
zN5VmjF@pf;IzyLypI*DI{F;xKN-wZhA5wUN`ZJz`NyA4SA;3axO;rm!Ii{C(wyu}l
z2&km(I|psgsB35_ar=-GAke&U|8xt^B?Cl-=`Wtnl@cvzL<LZ$r58IFbx|bA!?oo{
zISbfP%umytDpG&-g>Y1Ybdfr{Vm$YO#m@#(UKqc|Ps+0jj9hD|xNv5t575?5Dg!t8
zicgBu&`r+I5N9@-q}J(^3ft7Q7_+;)mkQ*>a<zP8_3b7RQMpwltmV+`kC0>+E5<0E
zu!f$V$H_rupnlg+sR*_#r{;W*6%i33)w&q;uNCFxjO}LG2k~gTxH}iK@@BIry<3Lj
zOxKf?8u!*5i+aLt)2xn%7%YpCK#Vu1js0$T9;4avjCbDEi;cvC-b>~72+fMY-4FjZ
zU*uuPJpK}?9VXCuBS$(y;7zm<fHr(=!}j<LY7T=CH0;2yRGlV7+e=!!IooOiJpRtI
zd{Cz+ple-D-ODG+tVb6CQ;AYQ@^WY8`aE{uU`YowZ24@Cz0zCcTYt$<d++`wkmHc3
zXs1`moG!_b=Ex%%1wSmbbX|I^jIdwIbF#(BElmP5#sEUr97%M3c&UQO8dXa2Q1Yl|
zyL7XCzz|T)PWH<u6mbgURIf9Njx`5=Vxrjwp~L{mO0h=EOtlGMnCLl@g}vghZ)otM
zV1z|<&;(NYV}rKQT3TBE7$rjR8kgBLm!gDxj;#9oCVX1?V3*Bk4c1o=q2$<0#jUl!
z*~+@em!nXdxRtp9$>=D!XZy*RHNu*1gLufLd8RsT!oySovrmQNG6IU!t7*9-K7AO6
znt>QKiU_Zd&Qf$=Bm>3uy~+6QskaJ;R&OE4b&rg(u`z?o;6q$VqD~xn;#eI;NcSJ{
zrPltA@e;j8@dC+~J7KTiWs_s9@vdCx0wIgH^RH3uZowJ)sxg}Y9~e#>z>C?9=w_WH
zu!1gvZy|WsNw{kro-T9W*=w|l^|%VqHTA=xAx%J*g7eM{^sFX=t3YwC`0^z|wdm%X
z=aKd6Vh$-_YB1C5nM6E@PN4B60DXc*bGqe>C0#T$G)NM@<NE6rBo|>2>4lt}&mQj@
zZ3jMTB5;8irD9{HcVKY(P^J;s15gvs&#OD*i=wpj1O~++_Wgm-2<Bi*Ama%iNr`vj
zL-{yqoEU?^D7u8&(RKuUBZXab=A~B=;B_MDq&YmoMKKwhKt5Z91sjNBb~lFJE9Lnf
zyz%WldEaTg=M#(|<R_2kL-ztWZhNUDzgh6jsut$W>8i(k;3dqf4!f}0P7A|`F5&Kf
zVW~_+pE8KzFYV&oJl7!_f2alI53e!F<d4v$W|pLk>sh6|ar?YP!ab^m?yM7o0zQRu
zp5Fy-pOL0PXHn`1zH4S_D~E5K&aRcsxklSy;g5D>pl(53A=tC;%ypR3($Wl2=lUP9
zGl#&u++h(_#<(WR(rE;<fVj9gitNYXAe{V|2Utld*nMY5;%Oi;YO<x~z%QeDq(Wrr
zX#$R|>&O>vaCnmnUY{iNhN`*4?q)F;Oy?6a>o1*1l{Xk-*)9@e^CJEbOJVuWBh(OS
zJto)R_gj_9oT%Yhl{)7Z+%a~DS!*QZ!~Kf%bf?$VD%W=S1c&jhHkoE(N)g1}q!ge6
zWRzmU$h>w5GA2JDxI9G7>pb<2vjZzy+c1DwyHZC=Y;u!Ydb`iBCve&**ytUwhAKuK
z-qJaTLX9@qPoAw9+JiHJpkpQ&&pF~7Ee>s1e27!!@K(+1#|U1CB0ucev)zOaIubmY
zy%%E1Pna5Gf$pLKjuTBo|CZ?zn~}fIJ6>_`(a?yFUN55C>z&D;bMG=8Zaej}Q$2Cw
zzc8IDOP}gy_IDX|jnf$xOw;)Jx};XDgWm9`-&S7-Oqh~TrK+Jv_69ll(el+rfSuQ_
zCULtDvsS0WU1q{bK8u96+sOnep&iy$B9`{JaZHO<<g@=SF86)>j{;Vj<|7Oyk|KUa
z<k&~7+Jk-k39W1kM9y|h1E<I3sdSenl2aQMfG&hlc1V8&VIg2?V>79L8W05u!4}Z7
zwPm%;UqhohfCPp+JIv1#cwQf_4Xbbt#EH~C6pP)0?GYh?Udjb%1H1`xosUQ&<4LzD
z7Djw9R?Q*<dBaN|4w8h^i$b5RubENN5jLvD6ShF`>;w|3-EWSwa}>|OAhz@@At^?u
z#sI<<AhT{lJVk|t+c6046EesP!^0{+#g$4g&T-c`p&E}jU#O~Dy`5WUNrh?E`Du^m
zXCyuWh&eV#OWyMO6@i*(k%%WSu06*5bjwnM=4g|liOFYV5y8k~JIM^lnGsIAwnyY<
zwO}V!l<m@9VU#aHIQ9yDQd4g>=;L%N4wo8_jN&I?6L_(uP%E0F{GeIYF&P(aTSASr
zjPSOk)`=2G!$T9zo0hBcTUW+evMin4w{N-6a`c#r>0LLHJ@BmOZmz4#D9q;}K|5My
ziRXS)D_Z^aERY$CAP&0B>m^?OD}CmrY@10zq1STtAd&pWij&C1bWyf<^AOl2QR-Gp
z|NqK2N@U4H6Oen3UGyR6h3D#i3HqlG|IPeV8akz?&z@aQF;FTsyL#46vP!6obQeCd
z&hXjr7tXO)DVc^UMt<w9tE={%V6PO~7!VLpuKFzhRB>^4)G^6b&r(u^`B?2W%gP=G
zlfQ<y)FU@mhrWxC<3x>=&ZmrzH`gm&lRY1l-HKy3Jmt7&)4BjfZOxm1tv-qv?&hJn
z=)x;<Xl_!E#c23`c&pW@e8psL?Totd`Y5(-C}>z6OfZk>nD8ncB-d7py?F%Bu6#J2
zrR6IV+T4KSRM^hr4l`R~bB&k+aSRM;Ff`U+w{Ct>t-^G`72of<W}M%Y^>|_Xh|GMo
z#-h&*8?$8f6ML7PJpK10Cl`7YawaeG`x)nIReuwUORGs~o{7{|aMrJUrap1_V(|Ar
zmCZ^o1As(P0LX)>_fOX}7E-7!%&COPtM+tL4Ske0=cBK|$glvge8|PQX^h72CuDPb
zf$_4kSzA=n+R930AR#H~n!SmcS?Tk&k|LE~IM<JMmeLLBCS3s`spKv@_20*k>`?6z
zm7c!7&)?QcrdnHtCafN3zBMs1VX5EF@pC;eV(*V1xk|5u_FsL<ck$JwoOp|;xD;ha
zmWGDjb{jtGnKNfTaAaln;P(V^HcAwTIS<~dtj_4n{PYQ6Ata%sIC0X~Cx5u#+qRdp
z+kviGjp-rT!BLSOdM+1M9-SY#wxniKQ22qD{PpXyoO!eNvNq!B(;qF(pO*0?rvF^T
zzhEc?ey#nnME@tgMa<(txKr$6qMkgaOuoy}WB(_<l(JGRHuc4p;DGtlnMIN~8#ig)
zuPA%f<}e27FmtUvL$@))y`uc9ghTDd;=!KJV|J@1Im&?Owg&Z6891_eu^e7kS5;Sf
z?>zH><5l}Arun^yF{^_Llw7=SYiXtMzu?YID_y8FIja#{#Kb*S^mcl>u)?z{^Ffqt
zQCaJBO-{2~uOO4_+Q5OOhxk9{;Z-U3t`zwf>bR0Ycv>C-4CoK36-IgcTzGL>5455p
zv{HRhQDw9gIpbI}uha93H4gxZ-2mrO-{exzbbVu3_H#B!nWR`sE}uuE)`;L9jev4U
znq`iXG&~{UMywwlNorG5PQ4*n9Zc2LPdC^CEkb|m;i?Ts4iL<gq;PI-Zm4J5kPH@)
zZY60F5b=W)1eB8wl0X{mn*l-45|$J-mtJij(;<4A-vPYq<C8*65)1yofpiXG2hbwH
za{@tPqcTY6ImO^xoXm-LPhFzOb8_YO5|8_cF4!a8f&*)@*Q0Ncq?w6nQSNmXyCfz?
zq#-yezLQz{LtoLZ{I6O;z^1sUsmSV+Q&Pqq#PHSz&JbO6VtBYQxq4upT%;pljj<VM
zr&N_J;zZU5TF=U9jCvBT3p6p8Qude^``EW{S28kEA1)bF4$giUpxP%u&3LwZ+*~YI
zF;Y1p-@aacJ3G5-v%J?#gFLM(;hBe&>P)@-ti_w+^(u79xPnf_3x^IJQtnF#M&=b)
z`TbI@e6QhDbZ%;eeNRHUwYpi46a5@F=ZoqJYw>MTLQE0orE*lCy?C*QRL6`q5dFr)
z`HaD1$VoFO3G_!D(GiTnYDlYnF%qE&`IB1v9BKnQC~1Q4dF})zH4TI=vvAr#^iZYT
zt3y}b-#z5ck<;iT8FXJT>-4y?2JU$m>x?Yp!-+fk$JY0-t-%q)ru{5`nvbtLf}D7<
zv3#+t_AzNr2{&$Y6y4t%=A`ewHYzc9;zL|;s%1&!v16;A0=N8@TYE5Gtf^mk-&H0w
zOf5tE4@Jgrbimj;Hc87V^GWxJCpH0Gf69hBCG=M<xD4k$!_`LC>PY@12Va3${Duv_
zIj1)mY7OMJHjSI>CQ)MI#@JKQ`g)xC7$;p~eZOTL-FD?`x983t?9nj*Pe@~ptb7#B
zg3C3DkY!hyBiIt3k?skBWrfGdtC@ZPM6j#5@J{Lk98`$fA^><vR^iU2MKUh`TH_cn
z7P4?j?&FWH96?jZ9n=8N)4OvaGHG{R#qx<j#~;}Y+R!vE1ZOo6t}fZ7?S0rbhB&gP
zYLO2mqLrsoeSyEG$aB^&P^~HFcwW25jF`ml)DJaD(b3VXeV88rDZVFJUBR{q)iA3A
zxv!T$aP(fKBUAICzdQCyz_-_g-ltw{p!>zj(o*-v_isJ}(OYp|j*n&3HZ^HYhTI37
z8!f5Lmx%@;Z^=j=OIKfC%mv{p(Z`b?^v1_U*_bLBt~Niln~M=J$9X)Ou7?I&!B(&-
zR?M<>LZBT)8Z%_K!jnvuZ77&v$x_wmR6tx2YpxX<99&uCd4YgHF=b|kZ~n^cjt9BQ
zQBt<Q->O1~Mx%*ykJr|ziAwToXCLlowKs`);cA0w8!5(mt#yh5(g6d;bQ2@9^EsO4
zK-z`w^NiKjSNYhp2`A>{NCv58<lE0A>fs0cYf>CHreAM;%dVp2gzd{Z`N4keItd90
zo{5X+-_!-{h~LtLny{iWd(MyN=4E<JxPZ5~xVUOo5Jqo)?2Tk+x@a*j^t&@F?|Pd-
zloAgx_#N?U!j*pL5^8!`241y&RVD{{(oYxG*e(_&whmy+_>=TFM{|4v(=nA8mGh_e
zl2^F)2%S9Pdn=3Zx(D(W7s#`nF89k#)_&VWDsDnBW{l1LevQ2N^;hAp(yv+~jZMIG
z&EY~4uafQn3akNo6w@PqdD-PUfF=q^9X<zEi1xL>bfh+fy0ipqQwkbDYan<@Z}Sq9
z?mz_djF9c(L|R@u1SjViN5DoAL+w5rI6+?=r;qxkW$R_k0vRdCA{hRC8y+t~|A?iL
zlwSr|4DC=p3>b_rUE3v*u2s!?K1J=QXyQkPQx0M;Xx{k1YKO5&=pcKxk?#$FCJEjV
z1`s3{!*Js<_|Boq+_A>pOK-935Z(gQg~f5EXykQDla2xEjmhaLG?;_oy{3mRI<LJX
zZ#&9$)0ugxaq0T}|Em0n+^PRFIn)36bkr!yYDG*I`Y&N&DtX?Lq2=~b`d@_sKqOzu
zb9e8KloMO^yu4TK+SRiet5cY7<)+sCZ;sRL+qWAl6u<6@&Q}cTzaKsOfHxBepO5_x
z<_5zPC*}jg%WACE&r7P-%lFFV4Bn@<>r~>Metu`LnrXZsoVN4o)vKSnzPzA`75BNh
zW&YwzYPc}gnf`7~?>gbA@OpsKA8IUy%buwz+_YbP95A&Tt?P!ftgN_^Lg~?~#>TS7
zw>f%E=_Z=b@<+biHVjdF@mEw#yi-DSIA4&3kwO{MRh(?;0@k06<!v0+uVrV#0jFgs
zA=kt6o&yZ8(;If?HahL;=?DrN{2rJ}YcRsMAwTlZVW`zVZ1jbYw_n^z=C^4X8n72j
zRQpwxX1^XKB+ogmbI|#!^;_3hC`k{-GgW%dh#Bp8kH8@4FcI~=*j{`i;UdZKOi0*V
zGrh;gL|Tr$YTD_qR#!1UC@CqqCplqRS;~2gbSoS}IdIy1MvZ1!ENkK36Pb#0{o|?o
zJst0okany?+-^ji*EtL-=7A>G+?Bk3z3rl#3eYa8sQ!}D=tNR596dEPH%dqaMxIMo
zS41s2BW_3DCk7=;Cl%8Am(TR3&GOMUpuaGRibpT!n{jQk_TH8?f2d{K4jZLappO(6
zZp3t{xT>fn;-)&NIQ^VVq2^-a=5dNPHa3aJ^Fjv(GP?yL=YH0T3=h9%j}x;yu2N^G
zX*f=f{m8epk0-U|rB>iP>OwcjHSL>&v5ifWqwPeMj?&KCA$XM)D?<hGGe^-AED7PL
zuo<Lhz1{1Q{y#FXaqr~}lbQSf$_nxSk8uA_?CSqjA<L!kUpj%!*VhP-#Az^YgCM9Q
z#742UhbI!zO(dn%O|2zv!GXiSAPGU*WsY7Aw7KDvxu}BvC_OTIj##~R5Vj0zAdz&v
zB_D^Ie!JNjgr$n4#u{6kkV!i*%lQ)y<^a-TY%ocZgEdYtxE&@pHI_dj{TExWM(EzV
z!RgIv9*+w|XN#~Vkm{488>JvF=pa!9LO_#ojBm+$U|ZvArzLU=RKXM~TEXc)9Gv2o
zS4rWvm&#%L_0RSCb!0Ix-IV$oB<WyHC}os7``%a{`6Q5@{-AQeJMX`|hFGR}Q9#W!
zMAd}XfLKeRE`U0B?Lg6zP1IE!2q_{Ui&7SMCaacLSNl@BySmO|tA||fKgvHFU>sLa
zab8+$I6-ovb`POGavQ4wcpC}Wti=REuI%?ukBXXT0~a6v^doGajw_=xEK^hUZ;(Pp
zPEO7+woJ#t!Xk4iaN`bG+~(NoEn}4=0B!w|^*j@`3A>uiD#L<}dX15PH<SzIt^R4f
zYez>1b7YxL>0e>qy>08m0r{D-+VlFz2uJ8&V#W{dX>jASX?bOC;~o{6i_-Vr>=m?G
z{u976iV8U~j=}|Lz88V-bc-Ig4{Wbj*=rUC0BVPz?pcJ!$atqsOd^)!7L~Q<k<U|A
zoh~Jsbk$c>Bz;_AChRv4)>=Cf)yS!fcyD!ebyYRle3q=Rxv*jy&3t$AgB?BqE&JKT
zj}&M1slB)t1)u{pMsl})ccd4`lT<d1g#3XtlPBf;<BwQG@(f4sNm}=frFwUk#vVIW
zRU_zV%dXm$pvmq#@+!z!`GS=XyPHb0yoRV8EoiK^Hq|PCd#qM$EVjGgIlHp5lU(eR
zxH11n6tf21q-2|_e45NVw;0DA2NGlX9InlD5EAH<WYq=D#w$~IGrMm*x$uH#B7MHg
zy+SL_GybQRLngK#I3{byin|B8Bgw~C3+je)h_Z{vTuZGezN6~AK8^ig)HVA?{kGH5
z^I1{h@~JeYo+4lke!*-BmNAVonOTdoypP@7ggL9O?DES=b#s|1T9w+j{@A-NccE`Z
zEnsS`in1%6FVF6DPT|)%nzD0rL&3pCg<iqcl|!XYIn`Xu5sIT>Y=Rwu>V5~GvY&Zy
z{`=iw@=D>n?#JqW2fp$*55C5KpEip->Mo3H-Korcu)?aWx}oi9Y+5AVz2|{ei+1m?
zs~g*YV~Mi*WtCCGqZhr-bjL}JwBoFmOjDptuE$J)sz59z!^j5p#z{Wu>K8`RV?fB&
zQ+-WF0<#t&vzqc?ncwqF0SyD%G-J)0quUN%IcfG(67_uMoW8>gcM+LHiZ@++?zAMz
z$`Xioy?Cb;uizjRj*FN9zs26AT!JtPlKOfJ08Kcw$m*8{2bl*2PNyi7V*bkuFJ=#?
zgq)n5NsH&fD8-W}Yxqd%G;T0<6uD2AWJz~VPa!(4Mw%DK$%WLu;yOVmeN2!M$cOkg
zZS5?6;uj|_7VSi|Z#|NKKX0D=fYjl02z{^48a^HHFEMc8Dr3D4U3129)oV9hd~rgm
zXSBg2px=VI5&mRcR4{>zCyOnG{oq3Av?0E%xmkPkW`^F0mrxsIGTZv4^!e9}U#S!N
z1VWV7M0y`mnhK>!NoyOM8ok$9$~o7<i=0&}jXjH;PgnNlrpMU#nbl4DzIhc?ZR~k-
z*diggs@Gb)7C6aM>DAZHx&F0HawaeThy!{mJo2Ncawt>~iEK=M#G7qnE6i|%K%McY
zWDvroy(0*KgedPtfnGpD^zm}cWu9>rr8ZCIPNEoUCrS)(b^K6jQwj*79fhMPDt9(%
zXU7khe<h&Vxqw6a=?muV_aDa=B`$%9s(NLfZ=Ue7?OQaa&#DvZFJVs-g@mtzBYG^;
z-?rvmywM!`{ph&Wg?m<NOJVzU6e&*$lmpc>H_<VGcJPeUuWS<5CM+;R-C<dFj8))a
z>TcfUh@Jhf?4nxGFF>^jZ^MX4weNN;Akypr*>+W;2?^D%DhHRxiT#hMQ3y1Asfnyg
z3_TT&Z6y?B!ndN3_HA)*WGdhj!Y!dP&?*%qTzhw(s9boZb%1`L%4j1%4XD|)@Askx
z0dy1t2=%9k^(R-5u6j-S^PVSoA8k;*C<O!uLX>8wDQjWj=gfWs34<^?s`08>G?)Dd
z2a(En$0EUdW~Y@h`5eLqA>0o}8zEGnfw=TJL`tLWIQ)T900LeAp+l85Ha);r`<u2x
z9QK6J(8#VL)Gb0(qB5|wa>Tyf-9z@D7W&Y3D673FA@h9(Lg>}vdYs7jB4$iL2`4x@
zE4=`w=Gf31!Eq$L*ykTvRa!_Z73)!iN*L)o%s=fGjty^aE?p6^VP&&;Sy`FF=qmRg
z&Aqb>z+h-c)g<Gf1K+UU3=A-<8ae~e*sHXBFxGSV9UMV8v3CeWD_(123XHaP;IeWI
zTtKy!C(fsw_*O`Kd*kvbMCD=T32;RNFC^Y+Y5A}gt=7W`Jo#eI#i@KKjg^#e<{N9`
zSV7aO<^WYI*A0b2Z~qN=V#O74kg4?(6SW8jev(q7pM?k;t#?G|pxVMVXg^Z;9Rh_6
z<jp(>?Q61n63;MQq~$s<`Eva?S}&x^th|GpbC>{v3@+MG>>19PvO5e42~X}kY}+(U
z5>A<UI`k!+agS!(M*h3Rg@#R&75M`~!5i$QdD8r^85#97$zvmqveSeP5d65Ag9xF?
z|6xo4(QHs;n;m+-5Ox+}iBcIrfxn};!FRBch^?8d0IO$gBE8{SR#keyp9#p4^wHI$
zGKxhSVm_i6d*LC@4UC9-;)GK$j^wGK=6*}4d?HN`uF}N~#{I%Vhy%j?>M}R59P`-w
zWK%O;>aXgg{m8{!|94%gh%oi7uic_G`3+!sU<Y_=6kcTd(7dUEf;@q*;n*!p@3F{5
zR41Y`<75xev&0F7BSl7=2Uuy{G*p>i8WH>mnoQIjgkx2QHD~^Q(;1VEG`DzFPa=_l
zpwE}kUqNsqt2z-h&ujSG5aftt>Q*~Z2Vjo65c=y6P}Gu@L#Rl?ne`(ONm#&hu9NV-
z36KjPyN-t^SPB4uk=r|7_MxY@*UYmwbA8N)-g3II_Tu<ut)4#QwRl4k;g_UZU^F}q
z3kx#=P(`FfL~aC{V@&=v?&t~QgZNm-u@{_jfOv73j)J{<-Ibee(Odo<9gK%0Z}uq)
zK~S)6ypeC@m-8`doE_Ukh{&}^$Snh#&#vN0vp3vUk<POefN?7FS}R7~#euglK`wD1
zUT2esSya_`H+x4V_sRM7^R@a~_PlQs)`L<P3ahm^t4$`4mo`6)8hDxrz$XbEfpf^H
zm9=%pV;v8*7gm9A)T;yAbXMb=c(<8L0fPet!RI9!si72Hz&h{l@wiwcSW}QWR{Q14
zBar$9Am)sonj$0-u+W9puTPoX{Tfxd#oJ%@#+U~X-We$wLR>zddm_R|*ea+VRP9Yr
zm1MwaRuH2JqAD9Wd+Wbvnyl)5mpMjruW@m@SR*cwH#dUSA?Z{i0hR3>p|;E2Oft&b
z0=$us)q?Fh{3!+GPQKurkKj(3sL7nL1z)5S$|*D-z}&w<^k7y|NqJGj?3i`j2tO^t
zgP76$2*f-vEUZ3|{)%66OFQlpJ^%L|EiuNPrw-?;)hyk+Kh)AVM8|ZtGe!JlFjO9n
zMR4x%f!&DRW`w;u2XnT$#r`HcWhH}|pNGtjuB7lQTsPFZ&SQ1redY`0sGHRy5ml)=
z#?dO_Df|_WT5f!(POZ*S_p5&<KCn(aIP;rGMdsyGH%`Q=^!~N|?%kEoH~msDKmVp6
zXczTUu;!d|NrBkz$>N++i<Tnjk_VjxASt^rFze{(_zGr+UPS=2iRkr{uHea&Cl3qi
zM%M;#GEx5c;~V^16!vX?e8})um|@(L@!@WTFyX9>%v&51j~+gBg=@+SI3vlIyg%e%
zu9<vw6Oi+}uvXOph#Eo9lhPGrgEhqghY1t-8(f0b!nK{D6t9AfY;1pbbzOzre9ej#
zD~3i!j$gR2Nj~uKpNJ(a5I}=SvkFK4O~FBdefwU6y7R1}y9`?QY}~P-@$nB$SvCjZ
zd8V0R{u2W5JG`Ljq1G=B7RjC4uK(mPl4R48elO>SYP|MNSd^TxwLOf{BrKeqoL5uS
z8*`nuOV16hT9_L>k7uv~jwBWh5khBbPMMnvmV`)qLg9T0-iG|2o;rFI4x^*;4##8b
z+fRJo@6N%l?-ne3pDTvSpyFHj6LR&prKKC7RsZz)^GQWT#{DGj;@};j<*5m29HC{o
z38H8AC!6(&4az<<T~+J%B0SCX?%lhM$9E+vsH+D&RgAm^rcP~2FeLJ8xqW1&5L0&k
z_W0&SuNIKk_C_dkx1u|9+VA}11IH91mEXdIdgqQ%C*I<NnCO8&_)8}ASIEt2`qOCX
z+^(&?cq~-$7tAuSR!p9dz@!`U0r=Br>FMd8M{wQbGae&;`Rn0DThMRYLp}oU5Vxl0
zkM{N{-ZS%@S@%+=#d>n$bk7IgzJ2>RW;6WcBg560X;nnsR9_mf14HC)!6<JnOh`6f
zYtG(}ceo6182)>e*6r;u@H<AX0ieN+6P6P^0(o#I_&a1fs^J?aZcQY0x_nV;5Gmyr
zI1`y_#_V5|@O!dZp~N8VR;qhSh^eA+!^TaU#8#Olp62ITvr@zi9Rv=szY2c+YuC|O
z)m2PnB5?A9h4Rl(b!YJMpMkq6JJVD2vDUD#@F!_LQ+SHAn#mOc-^@cI#>qxiYmZWc
zSQmuFfpjf%0XA>;R{vwoUxx+DYP0WQ62p<xUS3{7J0kl(w_n^;>lLCr;VyY&W@hHO
ze2_SkD^x5JM?}sf{E?4Q3h(mse}*{u?}pAd$!^LXq8dJaEjS{Wygy6#mhjN}E*tNZ
zi8NJe?!0p9YRluLZ}vH8l1HZDG<S$8c2)4L|JB@ghhyD`Z+}BkNmh}ORg&yv3k@1d
zL_<c|Pmx(hNF-8tBqSpvAz3LaBiUI=M%jDI-9QrW`Sm={@&4X_-s5=xdmSCe<0-fM
zdw<3?&g;6)le=h02MT}Q`swPYPBDUAu!}qB1TF|h8mNgQT3WLD>MKccppOu{R~G^*
zMuLEF!`}1HFda^KVG1UHhu{TvMBP&cjv&@{S^Tk^@Hgg<O<Li<G1Vct>#&uIqx>0~
zxuIQQ9;RB+9D(aV|3-L$$3j6`Oyi|=H5P|&-@Yv%pYnb3<jI}`j_j#iwz*OfPk8AT
zK#H-3AZJtzI3ff->-*_k?!;$E!0!B>qJ7$3BI(?dDP+T$>YmHQ#N^7{Saw_toCz|7
zD)@?a?vt844=lJ62n+>n?}Kn$Z&694x3#rRX}vtvQ_P7hPz~d8&EPd~_PZP^toNKC
zuJ)GLywtR?5G49wFvRZGZe8R|f&ZgjUS3WL?=HQ`Lojl2S%15uwy5Yksj=k3|Gz)p
z@n~<}KAhWgFU{7!(ia8g39ave{(6aNlcPa6wU72)*~-t)UvW}!clN98(4V{qgE5HP
zLq|ua3WL#He8U+uF7Fam*cyf-o;(RoNZ=<_!EQ1O4`u=vB!_m5hsSolD=&}NN!1M6
z@RKz+cJI?qxx2-y13r{UMkGG$lnsxbPwL4H`C`e*#1yjY60LZ_ef{(*OaiSV`~w0U
z9Hr+{4d2L|$uPJJMnqHe)+L3blY0rxmIuK})a6ENaYNeb14JN)-)|Wj8R3_Z$olkc
zmsV^avR`6({%}nTNYw5+zrgIsijl=H7_v1>U+)D;E{fj)_sxgPuLVm*3XZ$VAB$1`
zb=17~9Lp$FCM3bPLFdgIbPCEI3?<8pS11q6w9Nhr0;QFZh{z$(4W?n=uS`&2*ayCY
znAptH(iD40w{c@RW_o!e>S8$3MBmqGsR&ES$+4F%FYW>SMQeZl(j`8upC5Rf`w>`I
z^_BS;GUvRuR<=BnYGZmdNXNGKVMOAmFS2d1^GO}KArq^sl1!;@+opE}*L5v{E8s66
z^mGcpMO{Nh$#aSQY=!}4?AQ2v7A~&)v$J-@+uQ3|?7okjpz|iw82=6n^93IZz9)pl
z#I9SWsE<1-AadY__yR1S75q!26wbKUuR6O;r9aq>zKyRJsnvczRjVcZyDD7nwZ2WN
zsidMJC!4qtYp|u3>0d$kt^$@z!lZ&uH|<PArS_NVk6c?etOZq;FIY=VVDvk3Z8#xj
z!NkT!TVN1`WakpPHpPNU+{1^GOLvgW9he5;`H-x|^8z9xp!h6D8PxVZmpn6(<@((s
zdcVh)B+7+%v5t3izsR%=3AN4z?vy{4?P1#BYWy76$7A*S@CWtnjQE^yFW~inGwVn<
zNT;%0C?-e@snP$U4rJm~s?JW_94<LK0<a2;j*d>2SuHaS4NbnHK@{n<KpG^EC-XsX
zOql-2*RR1KKr#iEvRzi|8E!N9*6pB&c}QK|1fEpAPVc#{!(xlGCVOJ*<;u}mY5m%d
zTuJX^m!7_~wZ5C<`Dd}C#6!{RfhlBmSoWNGp=x5n4<zwE@}EMF9pQY(9Y0w~Ka#QG
zfX!lLVHq3{nl?S5%n^0{K&oy6SbnU!@+DDix&<B{Gjns-`V;R(8nkY9VZ$KOvK>_&
zrU>x%$Kx2dEG=ZqNjU+Z5WCyUJcm2=Avar)bOtYKwU146UTONRW8HaVIw#QIzvgto
z%ITQcjj&?*j-w1i4h0&$kII>Gz0Vc7ND>!;GvO4hM-0OoS{tV;OaTZyfEHPG992*d
z&5T&tVDg;;sPz)MHRv{N5)JG9m~_1Ijn<^N^A8$t-ix3Ck#k>=0I7)|BJ{`6o3&Mr
zN$lBEH?$b5<VqDcv@tZ<y&y|aWB1ElDydVP8WrQy(}A$3Xrn0s<Rk<g7GGRT#oZ>8
z=R*f!ghF6SP(gMz^N1X%8BB*0F`>=!Tt4NTBUt)eFD;-6y?cS-cY}h~5wHj4rs~6=
zFZk(Lb)E}N)a{gQYfEJ9l=U(n^+?UN`Jwb@brC}CX~YXEa75M+!eQ?RIYQeC?FZL+
zJ#d|X{_Fkl@vefspdPyg^Lq&h%!7$n5<_@MF!#q{xy{4T!Lo(`OZE6f*8Pt+%M@K^
zdEst+pvLr=J2D~j4cv2Nw9gDoDdB~I8--m~d(KBCe)`81CJsKVHFLqJkc4fIQnZ{s
z6-c)qQzyO-d@VmA{+R~=U!?is@#{RwZe&D2MU;T9@KdI7FXh&SvTfBDaFFc=D%LBx
z%)V9A{?hnmi9Wd%2nE~yaJ0D(e22|lSXht~yT~b*z@S`gV`>wmW8K@KAFOk^SE;Vc
z)i}V0(^QGFx(Y3>J$c5@?O^I5hC`@2MD%hb^0=DK91rx2Os=;XvC>c9ikM>!;WY87
zwxRjqvNszO(=GgZhf-@=8XAAuy;9c%!a#XLsDj6li!*DJHO|{Vw&J|K+eg=`ST0zM
zNIy?8&GO-ykr!^7T3WP3p7Gq(<DMlYB`L7vUMt;p)8{Y0F4T2(b~wcC=GIvi&Xv?w
zVqdkAko?+KQ}XpnQd_QMHA|2re9vw;1o>`sGMzFoAjNp1iqkT6$41qQJbvfaioaY`
zyzF=TcD{$xy}e5qxjmKEic6HOasO$QqO%x?Mg3tA-9b3A)uSx5)(i%Z@B%$)*!kt5
zT9&D<0v6R;|DDb+_i3bNtsYIw%H4=+oa5h!Gv)0gqZQNNbJOZPi*=PiDi$6qHpw?W
zuLkK$c1vZ9?AlkmRQ_<iT0GfgxpUVpgjL{DYGj#U2zq`{>uP7m<HUzwWE&Tae>|NF
z+&$9xn+yd8kFLfrI%Nz-4uvp2+lX1%m_m8xYJ^@}#jkLxcq(NW6$=Lm?-3EHxViG%
zSmZ)3z1J(p{Wq7D=Dzj@gI$Nh&;r{{dhE6g!;O)echIbJqk^pnN0(1Tgx=WWXPBPx
zEP_&M{2TZpc_k&8;OGc1FnK~yGBH1&9kV<3lbeF48k$=^{~N5Ks9^#QyZmdD;V$k}
zI|ZgQj7x)%>@l}z82UVU!jq7Y5FK`)AX<-Y@%z19OQ$Tff?$izmAK2}2aP61G+<AT
z96eeF$In1mbr<f#!1K=J3ghiJCTBrcb`XkB6g0nI!g~xTJ%Pgkg<Unw$eOrMn>q{{
zLaI}fb8V(-wS}iSZ%j6~bjr@b0e;90dB5raAJ)*6Px9QQXWhEh1VQpZuR_epB7?Rp
zK5jNPKQY5Xc0&zM&;9$CW)BiOogdH5&pVq`v}Nxqg+eiS3pntkg6%7q-RBb%YfR^6
znHz!uwbzVMXdQDyP>v+7f38_H&$f5#=rpdX#c211d^<ky0ACpS3FpPPe}B)|4H#_+
z%SNueo}-;TT-=nKQ<`%_qyCG|Yi|tH*VgXNJBa>76M!jK>o(gN8IHAIC~z<b?Pd>O
z_LujuT;P<Oh45jd;Z3kGN?e=J%{yV-=dVzYbjQHJAa$Ib9`v3c(z$(t6izA^*qGV|
z=~(r4L?P3$<+AUY|B)M5ERU;l2lkxXC3K%u-6wayJDE|x1N*?iMjR8P{{B>4)h%~~
zjgip{agu<%{5Eoh;g93aq`|#yy6x*54}}ES?`!&9ZCU%O&l-Dd!F*d8=E7zn6fp=i
z5b{C0!6NC6lrpa=enCWyvA(hCuL-$Lh-w11>>*t<(oe)Jw4|$oKKO_93$no+OqZ_&
z%`GG2N&ofvx6#>`GL3zG7kBK~(T8G#oad4p$mA%vZ@Ne$aiXO71q7Po57OoteOneu
z{p73sqCt|EmjJVw+OcCBz}OfP8yf^^qEFBDHbM_U)yYX3Jd7hu0%2=9Cuf1mz9S#S
zar7jYk_%(r)$RiqFY=Nsh(Bh!JJVGTDAmOderoBIamyVNN}Ahr@j_5+Pl<hnYcKvT
zs771Zh7(rhY(Je5{`2qG-2tv5gjN53F;_DD&wn$a6-TK4&sWHyY@Y}up8tFuN$4m$
z{@<$(?a-d;+xg#b<bNP^eU|yZmoXh>Rdl)g-^=`W1aSYqyj=}-SCK1=Ljf25U<0p>
z6>2@%FPfn!AW$AZnX3mXCPbSQ6e6}6UL9ZlFz!SKUnZue+K?ipD1&kKQmVth&R)TJ
z=Kkf@=XZy3vPVA@O%2x%stR*mvp!V`{WAiQ8hR`W6<PC0Z$9K8kB#D^^L|s#M}Dl$
z+O^$l7@3Y9R#RI;x=gXqy5W@bIf5V_zlHpbUqOKbZJny1ITz8-<E8sxB^^ZHK31rl
zbWk<18GquSYCh(0e9n)TZmczpZEmLff<<J%8|n0bMgy8k)&z~9rTI|fKTl<Et@IT)
z`*v2A1o0N6nX{n$%9rP_uBodl2LoPQ>tzb?qI^ZJyfOH0WEl3KMg;>o(&hri9pn>#
zBe<|XW@|l0TXKStgAT%dkO3NyL|+_wejK{&?CkvO(~sYjXZ#K8YWvD@{yf-AB)$|J
z*VP_ZEZfHsSiO`oNVnIr@%EXtN)+BTmpkT^$h3&)1ETRgpC^^v)*59w?+E{zyMX6!
zfzt0HLW4(g_WWj2k<AVuiQMvBpvowGDi{X;yt^kJ6ZQRd`}glRe-HIE8sZf6QMmTI
zvm;COiHNXVE~y=ibMMk<O7`2#V*;#^@PdVZBhN8E@#Xa%Zy%qKkdRwo(2j%T#tg&i
zvFfVdTiVae<eHCivMM7D1t`xcUESL-_*}|vtVkGrFywX)@3<Y-?3!uCmL`Ox1c6^P
z){&jq+-R77<{o~Scne8^&1B?Zs_1;T<`q(Cwd9s~!#CGStKlqn6(rBTNX)hp5^g`N
zmiyGm!%v?2m%f)qMG2r@h!l8*gy_HoTn&|%zat|2FiV$d5{a;oUs<`kHU7-GRab-y
z{aD1bgF?Z$x16#dze5pd#qArr@pFap98Dj<%ul=p&_YJvvKj};_nE08ujQ^(g90gN
zuLOhAjk51gN}6T&|GXUg^wkraF9M2Um$*nknu^ZY*cds=CfvjY%*SP!Rx==D>KJih
zVPUCc$B5d7^fOml+-TI^g4tUF{Gg<bYJIME(AruARMJ)yg%i^luv<9j{wJ^3lbW!G
zWRLswXFufq3q5#Axc*jdZc#DtE5<Cixk{?5s~-@HAj_YEbshR=!?|ePP)`BpxA+Ih
zFbRbnqgl5u0r4b>Pa(#&ohydC%GSKlkdQS*O-+reySvhXg9rPOhahYLFuMu(ghjjg
zCd=)dcfNi9o(+*J2uH^QfIzr#r?gZBKP?H$MkF|KUE0A_bIq{#vp2y}Y1NU%Cww;J
zeoBfEVA}Y4r4;zU1>ok*xi%N@Aku$*q(S9k6V$Op-ZK%OF7Ja$@IwaE4_?*V_|4!r
z^~P!HL!-2MujBlTVa>3EG(;iY)6oNLzAQd4ILMuQ!twVWWo2%VBZ3N0e(BGjW{`p2
z`!4H*Gftt6K{R|}i%-sEy<zoHJG(3w0p&l^(&S$L;9|k0;RnAmD?vxxM$&a*sRUsa
z#ly(R=)k2*mm;OwGmY8mz~J$${u?ya;(?8tY&#u{MUwie?E39#{t}*7-4uyp;W<I@
zrNZoO9km>T4?6(DzY|pmTlo+yYyis$6+vd&GKJeu{~iPlj<_?=xkZVtvuS5Dw;GF!
ziOEEnf&`j|c!$c4l~aN8HN75tUOI2s7hf`&G0X!+V%A?Rf}!$CH#A{iA`K!A#4}>9
zVsp;#3g*WBGW2<-NB<ypFsf;4%5&jKH+<7JREU0BzU{JrYnYanmhOiG>|+LtC)!aI
zuTL?8+4u8;o^TjE^YP-QSp(A<N$~pm*|c;l7rK6bmIV_n^%XLZY6S(Hdm%=)#*2}e
z*(5hwaiTt^x)$T;G=#T-7~3oT^kKz^r2P@*LMF`b@DkUGUs!kp5!W(q_j5uotw)@W
z3NlGSSX#g8XD#EipqVg1#!q;Ge0~7o*gn_2`QN}xq6mexd$q$jjp{i0V2iiWFHLr|
zFdW~+t)N@<`QdH^Y#0`00B);0vxv>`#o%Gxki%>JKv2OZz_d@C+vNHs+a3U#)AX0t
zgkQ%aM9zCdAnCC|34~IY!1Pc7V$cszD+-nG0w#qdY$_M&B}3S;wa6H9yP)faXd+K4
z@qkVLn2q3$9T%|x=0<t@+5qZOdFjcrIGV>4T#1TNxJGqK%CG?-jc7o~>ZcbZeQkj%
zAlAxJfFaov#UO#kAg2mJ;4I16576M4V@>d97IBC{sV6t8K58%%qDHm=%yossTwL+$
z8zgq0X0rETbo70gFlwQK^-vk40w-xD=Lckfq$OOy_^l5T^r&1CgrihlUu+CS(iUFW
zAJb2UPy;srP3m9%40zwBv6a=bHLM56I~x?#l&_@e1miOxCwRvNl&z0*UqOH_GVkye
zkY6IU9YX>FKrG2;ZMOP5Jp2yY%C`}J$HW8zFgnkj8M`NF(?Q{|4bYw_!(x%2#(ss3
zm9-D>_Snayjb0B<4jX&^O6vLv#qBL+Wo2ZE0er+2g<Y@y3Uz5IfhQ4=k=c6rH3vLF
zC3yHN+~hqLr2!n$5^}EJcA)HF<)jFxfL*~!h~R~bgf_tefQ!-`f%y$UgacacAq0Fl
zQIQGX54(vRsj?k#zwyY52})rMozEmeZ{~L({w)q;h1*t|vS%l2pc4vY4x6~LH{<zU
z=c{{n>^S7!=(-vc#X4qiOK2Y2VVHZe8TXD1>?p+m#f5UZy39u-#ErK`7#6#=PUHuk
zXr7(zKNt@J;DMbB&z@0dsbi@trk_50#vyvzz(B+a6vQHyljaNFymWAF7VQXLu#6Qy
zkwev+$!nZwzG!P07Ln(<NJWq(fWVA{$t~;ADaKMKYE+c3xvkt3)_Wt)j(YnwSiI~m
zko&%9)M#q0R(Hi^%NIS}DcPj~xVxsdR#N{em{F6&GFJfk28O?Jp(K1(V4_iDhvERC
zN=Hx6ieuAI#lylPKrn)bJxr=j+#sL#>Le711ltE|Y&d4biFa^u^;g?<z}UXWxtHT!
znclULAe)KQ*2~#b;0b65Cj-iafItDPl!0peDgP!^B28Lv0Abq*P?%7KOmcTNVkcUt
zG#=E~=fDy21+D&P>Bpb`20V^R3=wy8W!b7TH@(@Rr>AEDl~nWgT&2jw$@lnyDhSfA
zAq)$hBwg3%X$qEOl%kT!2T)n)=bs2XSirL@T}V>kBTNt=ctu4UM)H-XJ5XnOhtPfv
z0jOYi-V!upnOIrPoFe=E#{t#!V?ku~#iXTKu~TckbOfw_N^@*N4QUhcXs;y$6%|!|
z)e2^dsR)F3X5SmO#Jp|*{WdV%x6dBMf=^s@|4lR-h<HBPGg05&`D1>bZKX;6Fg1L5
z^Y=h9bQZfPmzPvpTB`T;Cu&$YX9PjLj$RcoVm2sWxfHL{&wuUByNug9{SE|4-r$H$
zM9U@SNT@LAZ`!JGzqY=f^$8d?t1aqa(pWt`J+Irgu*kp6h&9g-M%Z;V_k~U>tD+ZV
zU$0!BX+f}&Ga2CTPn`Nz?j_oF&ARK2^JYN7W8H6L$tdII&6{wKl=vrm^wQ5HrlizN
z6$0L}aEJua779?7FQYXDN%bJ&;moT~ZyZO1&S_x?WgC!j_{>Vb%uI2250A=)pWof6
zRZpG_`n+($zD?%$&q>SEN>yXYmc$E1=fZ?WrAtwZjTbE&f1e<IXl&+#H`KiRZrj-#
zldS4$azOwdhXqGjN(O5kh&qRV9pZEe0NLRBsUJF`Sqv6>U3bsEw`+0)=3dx;?NO$<
zLhGR+JgnBt3Y5j=8u@M;G+JA8=;yONuNpYw>}8R)iJgg6KtGxt78&?Y|KQHhPjCBp
z>bQM%wj{Dx`&X$uvAX~jYlnf3N)~9Ucrz0SQX8&Tx3{x-QKAC3U5~pW&0!_Ykuxc!
zYef5ccjFfepa3=j)gcDjma$nU$XK1<YxRutLr%iICq-Kzs*MaKUYyIOLcEBYPBny!
zF{ENe0st7uPti-;3NK`Sog2X|%ac+toe6#&xGJi~_(E7bw3h3op>x*LmP)2;=HlfH
zI~}79*)sOakT1|1&DbdtSR316Gp(BEmy?_N<XHt16*YC`Xq%?(V1UB++cu!jWh73e
zoe}j*4<+5pQ$O;|oeampY>b&09yWKR&5X^<lbvYK42IbGCBVfl3$uJMe$)hRzXY<~
z6D1_unTZH0uw$siq>c+%>lM3Qqx^y^s}J8ovj!JF=SEbJSx3K)5$#oV^*fc5uaj~3
z<R-o%Nf{28jo#b-<u5g^+OX<7CzDx5+d!UOj#7jDpT%oX_Ek-5J&@d@#z;fw?S(pY
zXA!q0QldKxOGwR4qQjL$wlz=h?tHaN{X+8k)D(cQ{IQwuIk~mSbF+n$%tfP*Fy7Yr
z9t4E!T+vdSc2Q9gBOBYU<zh&2<qYHA1i;0)xVrX(rrD}JgBv)g*;)EKvML{YU)4UW
zix5|Qdirw+y~g_e042=|fHZWr)|%NEZj&mSDlUo&fkZ_>%U(bZ=an9}Z!>VUhRAhX
zTpVa$u21XJb4b%6D@s8mkM})xZRo}qR=zuqm!PSoU|l@onPt}|!(A&;1w&RK$=qZr
zr(x^jlFuoynua=?A|DS41*%WKO^OCj%4~cuI5^Ku8R|Rl5O35QO<e8RZBg5B9bD#K
zDCd@Uc5;q3J<)*8tUT^v1G0!_1R=y*ptN=)_1hAMofNq7y~X$I(Uo>aLy+iT7ZsqR
zg3&X-uH2ZiM;RhxJwp?4#AW#Pn&I3K7I69X2W-kF6q)EUY*0Vf%aN;X*C*RV>tht#
zGi>A^11}?`e+gAY4-Y~^ZH&l}@k!Jh?FfOqaS>GN2MqejRNhfKw$kp9J6voR`+5>B
zC|KPbu0zQ!d@3qDn1EaWV-}3-ZN&8fb(ZyyZsAe&i+f<A$b=hGpNDmHm_but!BBzV
zZ2%23V?D)h&h>l@A?4fE;S!L?iy4>PhjL1Ip=t4Jr0RnEZ98*CVI)L@=-V#8Ce0!$
zz!M=cN8;n-2a4jsg<XNSsrYsG-o1PFl!3!!lOgIKKA(TerDgmel~(r$2L)BZlZ8Y?
z(8fKbUIY<3x(qgF+4UbFyn=%_lPbb#x&8DR3NrM`KI~8m#4=R6URbO4_RsJ6Z0pZb
zNI)u{a|RT=$0JvcYHMq=@3o*O^L>1bfXpke^@oOs`;mMg*A8zEnuv?zrTjulSs!%F
z`IAh{IQsV15O`^IQs+-6h|mznmYZw}Tz8R+sK>RMla^uN1jtCGpQa$vUs?Da6vc00
zl==CmP4!@I*@I!go(vn@4rWAD5DZ`wm!1Fq{UEv=5R0yh8xos=VqmsQ3_vInfQUOK
zWH(qv;%I!kc2z%Hz?uaBMxYYfc2wT#1FvqX&RVHR`Y>U=10WLo8zCfeFVt;%p4rG9
zPdXMh3%5uuG@inP%oJ9iFSNFAaL@<aVS>nWthZDJ)rIpji_zL=39_pL=G_10P4s0U
zl(>yg5D~!!05S{I@Akidf1QH#^uG&?4F*RAL!6mHAl^}kb%Xs14K1xHHVg&7Dl{!}
zJ%|$Uy?y)PqP7)=mdRQVauU>fD*kL?XZJ@{90S$s(RU$|vpq@YE{V77j7d;aQ~SHt
zY~a`X*<(~1HZ74qs@<VzvEZ{#ZK>?9zS#0@z63$Dj^qV+dyAnso10wtqnk<7V*L~`
zm)~w66cxxaB+TElMtzO$NjlC3MDStZ)R#wSKj?#984ka32E`xGl|Rnp+9Bp7lgOE#
z;w#spv5?5AD?w)S*Go+-XO?Bt_B2x`UyLB$J<ZFG?A-^_Y&j9jif=M75%hT9KwyO?
zWp1ttZWrB>Jm-o%E$xQ0B~fq5c5Go+QBirCltcz5c~=x0rLbG*zZOp#@y)FS1YKA3
zOvQLS`K#RznV2Mm#ZcoVczbqybDi%iqo$|_Eb{Cl{lM6-RbY@7|D1xNFvK){5w;*B
z><1p&QG7!d$@sKBfEL;Pe}0@Ma~w_?YgJ^UOziA*;^N}c)*Xz{T-lFampf!c0#H`Q
zCK0+3a=`ZCf<h4G;~ohB*PHmcu()V~?$C}rTOJ5n*yyI~Z$XgafA?+~M1VrV!`C6?
zh%#}KK`+i!Zz&IivD7s+$x=J(hP7_<Gl4K;7g4WI(M^5u`C5KLMp1EbHZG?@iTgH?
z_^2K_M1#M903#zecOV#d`jGsPU0O){a`GoSX6NUtk;{ZUdgKo%7)J`x&7s4GFQL$f
z8CEg0Fim*fk50xG)x3ZI4jCW`ZO3DCOt?{v=>slTfx8*<_;COVHynl<D5BUSA4TT6
z4twQ;jJgGO5O@^X5asn?_b$4QB3HC&!<|BfATTQNA5$N?eq@Gb75o{p0DLjf&_-G^
zbWFXG=bvvLcOo@Y$yI|H<U=EBHy?QjL!waWBfoJ)<I3|(s1Fjydf8`OG5O7hB0bq<
zWs$5*zCpq$t;Q-y8&X}@&~O;=TYT$f`;}!6P<C&eVW<@)JqWryE}_$5tTQk3KOpoi
z(<*#BM8T#>LeGeJi&(vzEAR#h;$hPcM#<QarEO=w)o0)CO@=oAeeDSNKmU)6E&luZ
l{|$Nm@0tIvKzGUtZB6VSWeXY!GqU;g=;4!xG7eny{$F(>vJwCQ

literal 56401
zcmeFZ1yq&$yETg2PAn7^!2kmUMHG=V>6T8F6r{V^7K(v1h=7vP4bm#oT?=WIW(kW%
z`kSx1|Mz@nj63eR=euXz^WAY7?k%zw?|R=~JkNaQoX_uxw4~71P5U=dQBiFb5xyo%
zMYYzJifZ-k4eRiecE7h{_-oy5F`;Yt8((u*b6xP)MpI#B3o5FEZp449Jo?6UsHhH6
ziCnuZXZ!j`r;X2U`T3Rc+Nm>qPfjRHe^#ftyj$V3FXINyo0mU6cJ(~ueoyEO%d#cS
z-d*o*Qmxs&OVD(?sffF4>Y-EHHi$`^Ykc3bi>ITT;dSCj$j~{C&c?<u=itTxIjPQ^
z>86ob1KW90{>Bp8qrdKmit18FN-_7J@2M^gz5KfN_di^@uHW1H=jY#dZ`Ann?c*Da
zwyS=Be@N2vzw*tZ@7}z*WS!e-zfWt??*RMl2lBe(--~5D;#9MYNz0@J)xFb8!7nNn
zI9C6<ofC1QDch(X3vF{ds=d#@Qpb0*&zcvEZbds3)HcND32^*+lWS_&`qO`&<nzg$
zd4Im$9xXifm&{q`McaK^+RtSC+0<_z-1hr5$*cc?=j}Rcp4+LCc{h;W`R6TlyFTAo
zneazm-rn+Y3alA-TV=C4t%Ht9yo#s}x==~GOCfme+O-vBWpy9^UTyVp?cNjT&&%rt
zTlwYKP!jz$ot1NKDBI#fj5~A6jk79^vkW_Pth^Yb8)Ke5+p=~4IpOE~&&wJZ#4b-o
z3k?0ep1!W+`GF-;noi{&zR4;MgXUOYX2ryKl?;QSd2&+A>x&k>*11K7?~Y98kA2!a
zOiBo<;U=GojEWlmwE1)s-)u*C@zcGPLzaH;YlK@1T?#d9zpYg_E2a^Zl2S}i$!N;8
zF_C!9C39Tz^$8jEqk_+p+gvaUmn#K(csG>{S;o4oEGsw;1lxqnjI=BE+vj&$w;L%e
z-H4WCt<P*xvv{6iBq%8O!Q41YHBK>!#8Jx|zU?6QJKP>VpoPg_E$r{r>kVpNU#zID
zJxzYA^o(6W%{o`z&d%;|R(W~(cxx2n5vv5B*}31VvcmIn%+m4#rN6_X_Pp08d#CZ@
zy@$zFWo2hho;-P&oU=63E+Hu?S(n3YHLUGhTUB)qgUPw|0OuAJ$}TD1TOGz(>?Hx8
zK3%bx?X+3X>eA<{`0B@xAIWWol&<{#*to<^c6TwxX95EQZ#C~bX`I!**u${0VZVR1
zF2}xo`;MJHT{}PtnPE2gIrdE<@ZsjY>pE;AYQn=pZ4Mom3YnUtW6PhCwfO$|iPw20
zTIczp<Aw~+4_w&hkb8eU^?bUWhK5GUS;^=|$N8b?sLS`)9d2jg<LlJc)_#ydkq!-P
zADM~axp3ivb}(_V)?;*@c?w}>p@02ai8Sl^Y{iDkJdfr~HHc*xwj@4ozG%>NVtTZb
zC!XGo!DTUpt>EYPWCve1wfE9{)h#_|ezfjN?+`nk9}#mSx}wi~sLe2`c|C*U_VmRH
zUzX-Hz1o)xD{}*(Ry7v~^o!kT4p)wL<|_KDTL%`bEHAv&IjS@E^`rf8O!PfJv)s<%
z&fKgn=Y^5SBNz4$$eeN8c2IV*zdE7zt&j)(e4oFjT!umOV+y%~B`JNlv%o1g^KR=-
zl69!lOkjp1#+rqRDN-pgkVB7HFl|^=W%K6d=EUmC$A{e#q*ukWRxB+3e%3yZH6|yY
z@8b~6&d&CVV3v;^^p@hU58-o=Q&KvS)y|sLo{*QvJJOyd^>puP(p74{i1hSy*Xim|
z0nO6|Kf|UAFt)FFY!XvbQ?dHxm6YB|1aZb_7CI{gs^?nA;FfRk$u5;0^*C|if}&A-
zW^=53oKH{?3$DAk=*X&BpoS%rUeV>Uvb6uK_TxRLl-^8DSxSWRtGiJ%_*M3KRrWPt
zu&hcC+9>rQTEzOYD6Z?6#SJzUI5`+{x$Qr1px>5$rwtqGwPZ9_9UeB_a!6L)ekhV;
zjeBUW4;Q*huc}=A>bzKEltfxrmVW(}O8?VYZ6{8jmSRy%lp~W8n1T%|g`Z5>?XHTF
z2(m<^&|jDt@sf0^>2_W)dg8WqgW~PmVMNFwFZrCjam85cS$zPzR{U(yqph1&3hp#U
z&HwE2$j~a?);BOvIbw}nK0H_-{z|~5KqX!OmhVAc+vFE?7iHa#o)qvbP^g&vGy3d1
z$!wp;W6gR>NJp!28!R`}A3l5-rI4Va;Dq>OS0_}6a4<M2JZ;nMG?4Xr_UM9FRr0N(
zzqTDW9jtqM+rywGNwb@d&%VjTF00+he&)v=-~53Phrj#`+cOj76EPQ;J*xZ61A|No
zTA2k*zkYDlIr=s^xvnW*xv@<XJMnqr&=%VEk*scw_~44O*RC?whTpt;?vzS;*_XSV
zhD(M?`3g}^4-E%uf=T=%*10E7o!X+p&%x2itQjpC>}r&2JAOM&yWGo_%;)Z`TPv{Q
zST~VE7j}4mizs95@9;0pUVlH!Cp9fCp>H$W`#0iNOH++f+>Sq!r=1auL?tA)DlK<8
zP~<)6`Qm4ZE0j4k#VJZ96)xxO+_`fxF-bi)bF^T=IJD4dx>=D3_uUg4H*Va|XP-Xp
z++P*wTxrymr!25E<;{r5B+~6Pt6ry-)_Qk-tcW_HbRt?JXivRJsymT0n&UW_n68I9
z&&TZCwQF?=r%r{><86A|%O_8~ob7UuQqQqWv45zmt^IQ<{&|!|Enmy<9Tlu-ol3v8
ztO91=uNlrgIUcgXwm`$8`h3p(aNO#|+2q!{_Skd@vy{9^$@g#lbM@6&`plev<!#q5
zM?R{G{tC^Dqq!8nJN<J~0!vLQ1wAi#<dQV<U$*BVz>p@~X;^%GeQDAck9zQiiTX0H
zWo^v1&@;@opB~N`j*YwLH!Ded@S^!O$>=ntKq>yY&nnJS^+H9WFQTHN49Z>}CM_UH
zJ?e-`&ntCs!Yfz#LqcA^j>kG+yS?DiYbWQ!F6be!{Jz-_1Ei9s`y3ahNpX5m<Z!nq
zMXPk(DMe}NH|5^PRVfRz6b8>F#Y8pbfl!wM#v!Cl<`X9#3+H?8d2Yz`YT!3Yc}FWe
z=GTA(qs8ihMeQ=*7<x{(iZ($bpIbXM<AhWapGeL$NwuggN;yrJpK?_qq<^0PX8;m~
zQY9h@bt_M*KIMvAkxYEm_u{7sIuwo4w~NzBE*X9ojM{e3STpr?hEL^?6E_<MAvIsW
zyW+{~kw*-G)BIFDOH$sEp(edtWZ|X0(=I11s_^zi1jt4_%A%iYy1u6xn?GX=VofaI
zOIgn5O`FcSEIU5OogU=2ltzm8ef|1WZs+J^Tc%M^hJ@WSvfBRo_X=TFe`d}7K0>0p
zc{vlYeH$7ZnMB&NOj>S8@kO#EzQ2M1b_2M;l9E4bQ0~R#?2u_stCeonBS_AVj=pt*
zGe|<>)wz@|N=G(_{+y}(>bAQpJO_alXcXw)0xMLg6!gC`^a%+`M3@6MU<M*V_9a#F
z9JW~)$x>~9$er16w&W+{=e*;uHuwKXt9_xg#gp5^eYh(>w_tvlMMT#7m_$0BKG>q>
z;*O`ej13J9j>q~I06~`g9OnA`6Z(#aI-b=JE}_MZhyWMK&yIFZ<7LCvR2^>1!Izsh
zZ|*bYa@6R;H<hO6>UUvkRsNY;E==v^mPB={-m)D|xY}@QTC~)?sh{ILuXycJF@+JY
z&KnLRoQ$gq)eA)-eA3M<BSjjq4)pi0V?7Xi!C1L+p~pHmfj+Py=Cg{iaiY0}g>PtR
z62d*ro;@n3DGy%j<td5C9JrsQ-@g6;rAZYL`&!TA&vv^{m8@RBZSeDxT|1s<M?9it
zFlJo=CODC~T=({>g30jb&)2Mm8kqE*YI!H0VM7&c3W{fq(br(9=PLY_xGxo7zL)h3
zXwYi1`hp>%i#ZovTbiCne@$@Qs@3b1ysdO}bcP-sFs^&BahJQ1<~h&(%rfL^j*9^i
zFSSZbt}uFiu9rJkke8R2ocUBxHYI*QMg|EW!G3m>bx3Y!65@PYj+No(o^372!^RR{
zvYZyIjapNS_3~$x$`C?K>KNw%m#4o!J*`6Fu^fD3H`#v&qseVI5rI{S?DUMC6o((~
z;13&n$T4b^p5!YWs`=~Y-+Vvx@xW!QAD|*>1jBPiZRh&>`i3%EG}1@{Kfm5DwwFD|
z$oO+hMzYhwO!7>hb*|GRYp&T2i%MFjUM9Tqj3&=+Qa3b0_5Eqe#=av5yRYw6*UqOt
z|01Pyd1)bhr-#rT04Rf|cW;3XR6HmHy}g58Vr=#E)8z2|4u|m3M3k6zuJAcYN@W++
zDtVUDMSYO_oW6Qvv{aTKf<qFMnBSm@%R&%<3|(Y&bfs<@jaa~Fdsb4s+gC-d@^(}E
zH~s?|JD*H${`E|9bd0v)ClHmX1s0Rp3Kz}ECWVU=Vkzb$Z5e5PtDj4$$kmtod^#wQ
znWv7JN}6bh6w{)8;)2ba;a9jYnwy-d{ND6d`loT0j>&f?f~uo%A?d4+ws=~`4wzN?
zu@<#)?$0az=7jl9NHIe)Ou`Bh_S%0=U;6G}AH(u$!->tHO=;;V^;np)KK=B;gEf&6
z5lWP_w6v?nX_$%R;TO#rvTgs|@D@hf%8!x$8V0Nk+?MaY%sVg5D_7o#65q(OZ@P-3
zR;e;UHA?{itb$g@atrO54=T<R<;UfvrMDO9yOS{v8H*E@r`>)S4ViLHVe<;|oGQE$
zEVRtX$fysjYX9?_8<Pl|zZkAU!eG<-(%!$g@FT4mt4bu=t2%_;2Kip!cjNI}<j&kC
z<1Duh3bvluF5^pGp+!iE`&095D7`mtJ0<w^|G^L`Lie(EZ$gm6#3t`d0iMSW^_%YM
zmfnP5s|eVWFq`i%yN$bsT*}}QPfR@}-#ed1;^`jNrm*XqMH;>pxizC?NIovnj?F^v
z@FPY4QFL5VfeM0$ucg6a4+@8Qah1Mm+VJ)CwwFp@9DG_<aMX!@t=G$!Z(1}QBx?C)
zUr%SfILPy;Q|qEvh~tEaq1}%!DM%f4z2)8sg?7g~R*y?wv!|Z^TKnnY=A$7mDF`bW
zi-X}F^WrZQn$qtyp0gS4NFIJZl_9I~Clozq-I*6Tg`E@&I5gZC?LlBefcuIeOHpp$
z4OJBt4Ok3s{8&|oF+^SwK0doKFR@DMA|fLEJ?_gu896_{Kb>Bh?N;?p%<eQE`I2%K
zOK04!Dc_1r;@=qUe(dn!%K+zo)z-sus>wJ19&SlW%IbDj<+1)TCZfG}&mIFHq*r_n
znK@SED1=)f2B#?*xt_H4kyq#LcuhN(Jlki`81-BsNyDhP-;~QIFfay#Fq}Wz^>lFg
zs2%;o2`qv6XBlnbLexb4<azPs87oRxC->g|>Y!+LtrDe;4Q%Q;KNstE2#4}J#rG*{
zI>{dudeH>LoA5cW=vy7o=sEqmLslbg=f9WM6}q?>+AYmb4>v?U<uvKKd(aJUK~dVA
zq$z-?apH%4xLJbFz@G~4_UAXBCnhJKN9-&FOxl&+<;LLr{@OI&+)a1UobjepFt=4|
zg|4pdBi=;RS1Nt$x6#q2=2iAhJUNci=w>UR_N$19h@Dx=`S#OSN@NsJq)m;qU-%Iq
z=s`a+*)?LlkYMvqdA3KDVQBJ1N3BCcgb4q%MBv#-%dLu{n6DWJwaI~6YD0(U#yhVr
zn9y50Y(2=`bk2}eWnZXO`oh)9ZN7?k^nK5Z<XHjG0->{SuMMj_AvqCD4;7W%sj085
z4|{vHQE!^$jF%iJV%E&Jw_;UFKBO(xPAoo6=Q$mv9`~7{Mj_SAyY<R?!88h6Qb^cQ
zBPg<nmG2Pr@&0;4ByO2!!#)TAPS~<28|2DTIdrR%OVU{5^n-=oZrOMC8u9NgYI<HJ
zlY%+jz~NI*u-@N%>HcAzi_Ev1H1p)illk#dhGxXsmpYnueKh&FEm2WXX0z8H#e=!e
z_YU~^`9)#e48DH&n<<t@wna3)<_`=mU@qo%wQY`9=5Sh?ZXp0Lu?Q#y3z94f@pYJS
z-&e0<L0t@@HkQS@YfjM;l8@c3aiiODvN~s`&G5Wl4PA8zpQ@NYTQlk(AAAyWO&kaS
zq8M*}Clh{x;Z|>RqPi-6<M|AwI|=Y>2z$P%aC!PPF&Nkx#FoHFuwX^Wqd3YaDPg5X
z;6I%=c5gI)R)c^H7X4NAkG3B0@$w4eG-`VX5Jg;HKG%BWv7|Fi!sH2`0;h#o;8fzK
zm_(@grd~>h@Ww=kI&&YHUT@K=;~%4uZ_jP|)pa`SR?#Eh6B|{-1-C8%fuI)hM5X7%
zs+uW|Y@!Gp)s$(ZYW3rb3{sjrR(81A1`KCIi>6Bg=Jh%PZ~bhyOA-QE9QO8bQ;c_F
z{*1~r=6YyosG_|5q}h^Zj>7GKpxcD^&1dW>+kTg}R8-RDTk3zUBK*(Hea-(F9rgPy
zmtG(F`1F0st)g|vr9N{Q$6O@_(TCR${3g9V@BN=Stbcw<^h`;B()vF<9o318_G5oO
zow(lbEchS%@c+6utN#6?Ekg`s5B{Lad}_rd1BB-5>G>8D6$6Y-Vqb7T&CN&pR`QUe
zuj7d#khW*1vEna!PBf;&vQZ+neFRuguW4pS3@5XPQjce}69}JC8z<#<BV;zbZ2$G|
z^%XmhnF^{DIA&wZ0A90biN_aVY%b9q0k%PEt0PhnD1#xybp?C-9D+bYcppLm*nFYe
zG5q!G*RJgcw0cds@TY=(ctYoy46u+Tb_}`Qq_FwzRkwJpnOXB}wUlia*<QaGs6lmq
z|Jcgv{1^0m`^j}r1233_&~0;Do^L5E;r7|dQKB@i31lJDF2&gPF7Nhpp%CjKpve>~
z9iuE@0>dxKw*V6Dm*)naCe+r{ur+5mf{VFrrK7E_L|#Er@{p$c$*$w^MuN|1cg%3=
z%<)tAo_3jgN>lmr@Kw>ge8!~#ftC8rr}N%`Y#WSEt04$OB9B;)v<-b+&(MTIDlwSH
zM&-#B|4RATnbY$`5EG+|1FwPof8J@{aw`H4_&-_v=YtS{Yf0O5n7QfJhNy>8*g%v3
zrNn^CK{=C%a%8%ta9JMMY$JJ@p*-M-ydpNHB{tm<K8XYp@{=*KkUrd&)&;e74)D;!
zbN7UAK!CpB^Zh!2+V0J1;3?wN5cs#eV4UA`T7yo3$4&!b<hfOu**8mG8-;i!nJ|mu
zNieM`+d4~8SH*wPt$syAHWmGWicn!uU}e!l?q3VRW`Rv59Z)GXv%SYdz?d<RfD7uO
zzP|FYhI4p-@h||1!V@h%=f(FK)nng^?)yD&n#~qy&or8B?b1yP?C9u7&OF~Q$74<D
z;`=ePfXw}zy@V^cMmEExzQw9VeXn&qJ#gKYxY6O}xS&We|3~o@&?`~E<Cn?v$gvfy
zQNpCYxmlU}>$X0t?Az432SebRC3+?BZfojwMK!aB;HN$@Q_Qo^*-z<Tq}!H{!keFr
zBw*Pl@M?CtMN_pBl#n7ehp&%M?~SPBWNB1oeFs(4cn;PEBNRn`Zchhq1mZ#Fanw|%
zai;;RrsH@q`?Cm3Fuez+Em&lY<mgjM!lg%4{j4hiP5_{oMeG;HOU3ryT)U&3V&M`c
z8O$t#jlz8Dlu!EzsUzEhs8ifJGVy5yAVjkN<j&efC*Z7xO0^D5nPoAJ;!jp@fB$H#
z6@oauOdbZv#O5-7|LxJc(%t1b+}1w`j`t2;oX1j(q35&rxf6=V=Sn+s?dm={UR!B|
z+o`$Qua9>eogya{GPAIVfg{ErK*hEcEjMtPo7JtF<=LNc%`8ubt_XW!=f-6kweJxd
z74@nvxwG*O3SH6!V4}{mjdLow)<!@6+V-`3WjQOu5rx3#GhXgbIo;VPGYN`G8rR4n
zXKvj?rK6H%oPf1_Mtg37QYa8_*h(7?7$ta)bTe$pY1ERNC`rY<LY!uliCpAGAiYN!
zODO&ldW~gey}E3BwgRygiSEu-W7E;oBO?#AR0VRJH~o4E2wvC=6wdw3NkG4ZrMqqE
zCvRpWI=MOJ(E|iF;8D++bnz01@8ZRah!$AN6*V=)kUQ0sA25D@8BoSVy_SC=-nSz`
zv#`K<aa@RI_wKS0Ys2mWr~RPo<TFjW3s$++J=PZYj7ObwXKJwCD*|IMsYQd)6+QN<
z^S+cGE@L@Z_tAbaQN;Tgb}Zj5qg>}D`$_ElYZpJc6D)+FS2lM1YCkhBI)&V`*NOt;
zkU9muVq_yl<FB6dMuD+UBnsOrWn1K@u;*cwjRi(+=}+|Yx49L48L>WE?uaUURizzu
z{dR-L52VA`uU)ls40WKEN_UtwPBZ;>g}emJdBwQ<oy^g=MT{_(keW&Uw4eMepz#qE
z8!o)83k+>gJci)Ao5kDPTk9@okf*k+tZWtH=_1JroSE{pcnI&sSoZ7Ti7U&qg$miI
z2>k7Tt)t00`BWdogtypuqF%9bF=40+Vi3e{899_Q`41-Mjxx{80!%1-2gV~teVGRx
zr9$S*R|0&9@H{FsoHtpMc5MGX0cXdua?Qo&3{=g0U;zzC@qw~8ZY=Rv<PtxDrjj#J
z!Qu;U1RImU9rjQ=EWdx=Sh&#k-Yh&L3Cx{{*E!&m+q>TT=w8Wa_?%|c&dGHAIJ6rw
zN!4Vl%8Fj7lWy^VU0&w9UB@N$yYlSzUo?*ZKitFdvEt3;`|02+cTRsUudHkYzZ!$V
zAHvPuFgH)F;a|ABG-Be?sA`hmH#^?c@S4YAcC@)sN`P3!(lIeHIX_Y>iB(FJ8@EdL
zvzB@=C|X-*GREM2I*AlSx>s2FgtU}a%dd*?K?H1qG1;qOdl@pvDhGKHFLpsfoFT6I
ze~2@RC}gL<XnEY}tMFZwwSrxIQiOmy@+}j6mFEHf0ocR{*~&P(Z%<)pkbq?L4M6G^
zWFSja6)d2TK%zIfu3G(RKPe1}2QfyW_T#;Ke>tJvB!noWSukFS)8v-DEGsBb*C%8h
zNtb!2^qigGzz9gzi7-pZ9rA!`DD26pm28br0*D2?wo~YiPoxp!$>Ya`0Fdhr+H|}n
zo{$)lUN14C?tJMHC$?hPT@%c+pw2L=r`7}>Hy+xLh%69<Xu8q$ozE$gVZ25JKNSZ|
zNRX!q^qG{x73VsmV999f(T<ZM0C>JcfuL}AJPZt_{Y<M~!fc4v^h^=8fKp4@)6)g-
z+A<6m63D)a8soWi&jZ3_2;D5c)@Gu&JhJOJc4f^ac5$}S46q%l`KQ2^#XWA?XAl;D
z-jJk3wi#*DIVKfCXL`j0k@XdL9oDY}?j&U3soPfPj61#%>7gpzgMYu}PS1!4#=`vf
z5Mi>Cj~zDS4lW58vmf(gqStyB$ZZuXKZ;x0^3%@Ne#`Wa)<#ONI%LLM2itLDcO+kP
z?HHRJD}zvW=gytOWFET-?G&XVJ{u%ABccvV9!*a_mj=rJWr|=U?j+u}%W1Y#wxtK3
zj=1${{+aX7Z|e)KkhzMHa*p)QV8NfvOt7gfMkam*HKq|8(bcLd=)&p2@kQtkQ9yB*
zduX{#Z+_TlpXYG4=GFPiyIpy$Ao<gj4x(IVQE-NmxT+_1gVAouc<_gt$ZE9Mjdite
z87mq%OK2w{PO0W=ug;GW58P?G(ltU(8u_&JY-xPT?{3pOnL2Zt{Pia13TpEY@;iPp
zSqdp10uV`{2)KaM%5Xv=KT59|?=ZGss|uA-JS{0+`NrKP=oF3xMfZkK>dSNT@bDP0
zUyn;f(Mu~*Vw}a%x*zlPNszir)-<<s9x0zGct6JogfrGz+Ah0+gFr=$U+3fFPZ6pv
ziUn%r7UYJdnM)I+GMv~GhDU-g0q7B1g5W6+&nheEJlFf+x{9>sluegiG{U#W-F8&h
zi0N?%ufJfzIlC4@ki$5>+1W6_{*M=c&yJ9Jpzo<d1&i#G;);?ArJs6TU0p4Y(d)D1
z4&N_yrc3KlCYET^H1F7l)ui|SZx@H8T$pFFP&)q-cnNmKd;taA?u8&5lRB*6q2ahB
zQrPvUf04|{30doYl=I(dU{r^Sf!gR&9T(Dl)P*kFB1(?H^3Ng_jY8*qw(Q=WAi6(C
ziz5SKZ79U&74~>DOCET*%Mf_2jFySOl+Vhv6?BY(^g`?ev%2i#n#DL@qQE7iydTT0
z$#n_>+Pdq+HL|A+h>%UhjBlSDGDd9xdy&eFF-vVg3Q{5<y4{BnBhDa{WQRqdk%p!d
zI%g@ZA&SvtzolR|+*5eOjh>Cr6<Yza+Pjx^S^Xmut`zT1$U!_kI@I*p9z4m3MuIgr
zUH8Q5(M5VY56?a2UFVpF9-b^`Ja+6A)X-M|*#{s^fuO1ac#|NM%(LL&Cv%g+tRf>L
z13mcX%jkHl<CUbEX;>6~`W%F=a}g}HS+-iqH`4%Mmw>K(2URk}r}B!5iQH}^6<U#g
zkhmMZY<p`zCddq}gD&oZc2CK3iOZM&&M+nvkr_PAR$4>+J9{*TT!oELg$i3jLn8zN
zYsrXp(2pN?)6Dxs8zCabC9d7P=VyW*mN9>+Wzp6P0aaDvar~ewAlco9LhI0&Wzv0i
z`m3+x^w{#^WNm^)Deg?uWvN-s^y6BEz`4nR^}M6{1pP-N#Kjl7)S7FPBrg;$_`C|T
zogM<cHl#_bDk!;Uk!pj7>cib2q)oLtLq6m;BBkj`5%=Ql>#GCYga_|OhS3FE-|wet
z%np=Rd^>>C=#|tK&=0yD@6Gy=YD)Ud_u&rDa&SoC!4u4bE|{<>)FNLbOcSa)AyT*I
zJ7ig%QdU;($I3`98A@-x>)c}p-NNxjIZ(HvhF!7yaV0w!GK=hihwja^TI;sZ-t4j`
zvw8;x-g&_wV4R_O>(<*=D9rniL*+{m8i%u9nEGZI9TN|@X%yt+qg~>`U@|k>X^6)o
zZks3$sHH`s5aFFe&yE>uLgR_Go-EB(y!%dLh9-NxNqRvoAD$5cae=2cK2Q4Y5<yZk
z29gtV+4T89#?4%0pm$j`OVh3152SLVpH{2${w!F;W03EK&k{Ux_t_AQA5b>8DtF&o
zyE(pR<CL}_<85~Z^{(!Lk0qIeA1Kcgq!CCy<&~e#V;|QaRWK3pw*32;3P$~$zlME`
zyfH}m!(=2s)erBHqP2a4!18sU1)SSL&-;aW7G%=`>)t0Kq$B%0X2*7*_&8TW8~Sat
z22^ENvqzPXRO1qJm<P>fhZ;-U2Hu<Xh~{~Cz2<?5hK|ehg9+byYWnnwPN>>UFOJG0
zL*6R(L<#2Q<#naN{a6wN3B%?c`d30OO-xM0M?7Qn_VkpA?V&w$(^XywjBPcR{F2`S
zqH=;c>XKPy|KMOFiMpQCJ4TFFmX|JjYZ4V=MgfrI;p5vTd<r2Gx+la58|`K$c?~wl
z`Fm<Z>5(4hu4v<gke!y9a3lIfx5N9=V4JQxzSFaVInhoa%Z6+g8Zz5K|0gUx+TZq(
z=ObA}`jI`@l~NORPsuSs@<N9en0ke!W%}wBLQb8Ap1)P4<tjB_Z{v#)MG!XC#1;AH
z2g6-kq|T&>kL9SbHD(wp9u1x!XBH4BR3a8>@!mlpLlfYh%nBDIb(tq8Us?6__p6M1
z>^~pdw15fw5cu%$e$lsY-h5C=lnECUzm1W&^x=sD#>?^88c?&B>v9BN(8Yl3Tu}E9
z3NqxIZ^zD6x9PNUt^{2(`20fGOR%^;;ALgYv`#!1E^P$S_MAaLqajA9J=A5{&T#M%
zQK8ohF|b-xf$=JGqxPRFEPs&)*gptt@scqE^&QA8>A=~2RfLxVSbAPvF<SB<Q5<>g
zCTaE6zYGpe0B5O8QD^g~+a^>;jDUQMEK{gG5Y}DRmD$1-R+%kH1@p1z^U7fWd4tUC
zJFJu^K!I?w#xeb8t;=#+21t${X~tCn>=hLigtdbpV!*SyE?|g4P}VS&Q?zdZ;AQ#k
zWm9`MSt}r*zZf#Hd~6{0_XNMgWHKtxzGygM*uGe}GP@GrhtN6r+M;Ho(hMv+S$?xW
zT5sIVk9Jz2tSr}3W+IKUuDWegu6#=$c$&Fs`Uj{LqsIaIE}>EZXD&Cyl&3))SH265
zMbm`Up<w-AcK9{}8xVzA^8g_Vw;+PN;~9N_mC&XT#->ox2_2drJX<nI_@b~43AV7W
z(tja8GvDp0sF>Jh<)lvIEWd->gye3!>#74Ql9t>K6FGl78+iS%OVm>U=${!M@lf(O
z2ImVG`%aTmXKkaF39e~X3kbhjl>(5X_ekC$A;wH<Eij>3D*SA47vx3IOj|BmB+CA8
zrYHFL)L|F8b=+=wp?k#uOcY_Csez3E;%Wto+$7LO>J2e#tm?<l<$K)u{CJ1Xe)0vn
z>)xxc+j(vO_N<$3Yov&{ZON%A5~6`&d=aq1ow_%d=P{61k2wIGg6wAfg~z+cV~RYn
z_%gm>xxEu(%VxZ(Ofj<}H^=F*^3ZKFj2{9F|7Ez6kjT(L0U#<VnOT#DO{(0}xQDOX
z!rVMQLJdWt70giUo_FWw9Ur2|c($F8i@)BZk*fWK-mZ5CY9~pQuoKym$asKbM?`YI
z-rFo{C60^_36<p$g6l)^Pc1NTsIb`=P8e&tv<SZ+>GzoRID=7UYRf$Gq<<Fvrx4(a
zV<Pt7pB!K8YL7$J#_u#Q?1hIpX!+WDsL5twac<HV>zR=BniVzWVMu^1ZS1QIqXgUg
zuYVN^oKV<}0R)9l0`l_31moU_T5eL6l-v1fUw9W!%z+>4Q&K<g9?3z0$t-fXRBb(G
zm=_xIJsb1G3i)(UhC1Gmfis$WsvUM7bb&Cp-89(d?5Woe+-#^Lp|rm26Jy>#4t<O;
z9*xhn6D%Nrf*VaEL8>7(>%-_mXfObDi5P&;F8!|Z%rHLpZS=hQto~L<{7r3_duWA4
zMco<KzW%}T5^UWbF+aP)PZB>JRt~Wnl1>HQxLUr($xiBaFJkaJBzFij4zbv41Oh|N
z5+@nVZSW=et%l2zRpG{9P%$bZKjEH8yk_*ZI(NX==Cqg#DN)^!)uCIHV19y6V_1L`
zVWi8_fL{lEPI?Uor8XX=7yrUoi13)F5dFq|g*J0x-WKu^oL=`zhsUcgbic#WBI>%5
z7YE~rQdZ~%-AR%~Q+T@f0+MRp@p}ijE%nPLx}J~_k{9A9F||^T4;qa<tyh+2-K->B
zuq~alW+i7HwpX?+<eYe={k(s64uX{-Yd5@rt16$<vR`S4q5pD#^X`VYQ6OD1fj|jY
z2@H+kPz+IM@()x&Q6^hB%k4%Pnbl$blo$n+Bs#jf>y}2bP`sL1S~O2jhk;QwV0EzX
z72=MXh$T414SP3s$&QV(1Cgh`<ajM~l`EgOXk_ECT?Eh0iU}o)a}N&GLX{^^I>Qim
z%jg2Q&Ct>qv7+2kg>(mspasL*N3t7QAn_*jN#~1SO=%w?h!#SqKz`M)54%n{z_!tG
zy#Z$s3;ayzn6;c;Pp-Lm$hlSWC=)E_T2}Ht>j)rY{;Lu`OyA_vvjS|?yZ9DYkF#k`
z3B7S|5`25xHv-iaA@fTsC@6eM@#XxeO3G9Qyw0H0AEYA`=%*QKmV-1D>+uU!SKnE0
zE^*+x@3k19NTM8|yj9%Bz)wfw><V?jHgqIipIqo@^j7uS&v}=2tdyX2mHSYi1j~-F
zKt0^6X8Jc#tr!-v`LpyUQ}?k72xx-tC4s4uj})Z=x1@pc|5n)uTh8DSkp_(Ql^OG{
zRGp`|7p^ej&%3L0cn9v*Go)dBT`w^!aI#6lct!RU^{?#XNYt@wMKZ0M#(D!C;v4bO
z<L9~?aJm|{b_ax9w>!QiZ2XJyx$mfdG~*c)1_Ty%9TTrZ#c_{>;E|AGbwgHm3I&5c
zsu<8;gq^N^B-1{;`t?PQn|xg>t2*=SEXuTE-_hHC{re5y#3zYN2YQx7(23VpEbxKq
zR-+xtC>I;XdrCpQuNR4aw5|+`zQT@r$G4>~79xayuOWv0Xuh}bGM-q-t0~{XCbZDu
zwurd64|v$Pf$#zO^wKY>I+cvUIghSPf1hFNMu~WPWAm?>>ID5rxavfr6Dc6jh6GmT
zJenO^7PzMwJtG^a>!nGVt=SgQ8FU7Dl3LG*{fS$+KSu8$H?O(Cd8gqsC4Bf}8|!XL
zh-cr$*J8*Fa1&|UpXmyHa$II`M*?LMb1~0IzQ07(-&tf!NRzYS4ewzrNYJUhD7`~l
zM<)hrNhQZJ2Js*f;rqc7+^ah~`poCH81{P1>e1d^98N7k%|igS;~Jto*VbUBYIqrK
z#qK~mAWZ;+L?WS^ce>OcUh59hGdM%dkKVc~KZm#H$~rF?U$FN?qIa&VAFMtwWD6cT
zp8ZY`r%^0HnB@y5<&JWr;$ytI1izyKK_?A?L?;nf1z#Uy-dB;@dY7M12TTVIi9LU=
zKj^T-@!*=g(lz-*Q9)s(_V;+pJW`)={w)2mqTDPqt{%R1-$mqXz@-nG;Q^KTcEG<x
zNvp}da7(%UlQ($GaG@s^3qh~rj%0uX;+w62v1SRfCb9hhpu*B>xW#;#<x^+KSVST;
z<ffQ#7(;!A1Ar#Go_vw!(<%gI%wjiW@@1>k!n*x7JW9C_zX$8H)-pupxgCGSX{4fb
zwJ;BEQ&MW-TjsEFC;H)qliRb})%#N{^4$_oR8H>`0YH`m$WMpfM$lUaE*NhKbe!&A
zDyo49PLtdLKU%_ZQzY`mH!Wt$S_Hh`Mf=D;l~CHo4#8JPSV)c~T(tfX(3WMwFw+x8
zsJ{>)Ric&(5#LdxdUsnP#36rWcDcQhV+lZzi;M2T_8?e5R~^(yW^u<G2puQCcEY`s
zHay5UM}%PY;Pu=C<c0TF2lFVxG>1s92pQ_HW83p~T?{cZTq0^Kgz*EWPM{764nm{>
zN$dQbh6q<3DVwhR)FO#%dopY&grItI@aJoov4Xjq?OjO9ddig{DRE3gV9;3Pw}3Yy
z{fv6+rPo!S66XEP&i()Zv=hSp;n@YSwSz<jKQoK87pF&T;;W<{R5`t>G%?Sw6z8C3
z6p1d0W}UY!aD$wLtQH5>R*d`nM)f;LD3}KW*3)Y5&)m!g09IaFnDw_D777dF3(9ZL
z0<Tw`N!@Jx7DmL*{m~r@>x=cp09y(gQO}Vr4lbk_cXE>#IGLD=DN042%ltOn!TT>5
zzmB-U*IzW`6bce~X~Wzv&Yp59FAFiXvQkcw@osx2;eR6x#7%E5uQuv<pYp}F{;k?C
za}O+ZeH=B3S(v0Ym6@py4+Zi1cVZJG#od?_*%s)mt{l%U$3UrW`Nez-pXCgyezyO7
z#odng^}Q$<`rufrhWK1X<UDSh(YuU+7^FNUClC?I!xdFkr!t*UJ(27QhAD{fTE6DB
zYoOJ7);M$y(hdjM!qf`O(T-M=A6-@>UHLqNW^9@T9eRb3`=f}J#9l%Rt^#c2o%vac
zNrIH9=vj!CW2%ba2A(ro^gO??t|PSQTk`NLZYzVP?{<Xk=q!g`&6IK$n0UiZOe*<8
z4T#q`aiWSNQeAB)*aj3EK__oS5i2m%mM_#ltJ`IzGg=&_Ts2A>36$CLgvwZj`n?)O
z^wVY;FN@<%1AOMa!bi(rJB(&uuDo6}HPl%2g5xEF^UsgMXRU^t*u9TSaXQTWV290}
zR!iL3xu6^_{0kkX_cKC)Xy)z~f*cR6{f>0c0SteE&A*b?Vwjr;!u%ZEbK-^0OYya3
z?NF8yMgS*wo$K1T>lm%bF?RO)Hn&pXBB#;Q;1(t?(xb<NphEoE)D4KWezcr0IbH4<
zw{c#>QV4bO_HPPd8dsfp!ok8qe9kKfQvu~*L0zCJNnnd7n8QUz-75IEPlgdHv0e+0
zmHr?TaY@M+86((=x8V01P4fW6-1D?3R~;<RZp-{a>&>M=kXnp^7^d~C{$NN(4B<G5
zZ1c}@Sy|}jFGYnt8$|GDTy)#Cs$$6BF?{`i=V!2Vm}hZA>*6`Qx&h{1GIAJqyifM1
zYz$c*bpgiXB+4{pME=$+lTZi(94P*A-)c1#6=&lV63+5D%uL-0B2q#J1)6}4Z+EJW
z*q8A~N8x@pXhCoe3>Wh7%Sm*jw=Z)~11i^rv!A5rJXm+w0ynkbNO4G<)-QoX#|zeg
ziA>8oYmeA<X!p)M9U|(Xt{I(Vh&9#Fkr;bH%YLMnAEjS4TnCFK>Rt~**-NI#EvJ8I
zEr8%%P1^NjjS1uTUl_(29H;Z__}BZ?Dmn^@YC~C7ppW;OuYh_On4IwcdcGt8{N^Jk
z@o2+)Hqf&92TY*!lqo_WbQ&I$>~OP(d=>y-493~})YfSN`F8jG#Ed4KZEbD6?2!!>
zPta=!9;5E*)$6vLsL$_%VqQE9=g8^!=@9K(XS(_(CnuNuVonfz12MmcwZJ!L2cFe&
zpI*k^+}tYo5wq-m%=CUfs19=0Hp)zOWhIMQ?!z8bj#<NFi)H;DHun@|m0GO8bi$J+
z`GMPQ>j8x@G9fN0oIUeW*eMh#tW$+}gyeP(40@X}QWrm2biX$v2b}E5GY6{In83s)
zy4dOhlE;}$xGZCE^Gc=s(8tZ6ob<AyN#Lj}l)$i4xzL8aeTI-23#>U<!$a8;mshRZ
zsO7;I1;WAiP9Yj@>JFIX?J#vh>PrVwm-Ses*aXLyw#11&!pI2xbG^HWmYW@|dg<TG
zK@Gzb&lLPB(it_Ua~1<A%<1=*S;n1?y0>R(5h=Ub5AtE)3CVSyS7Uz}`bo}fm24^W
zJ{){9uQX%}=Sk1mxWS|GxSuB6#vXG`Vk9%*Bn}4UT1+CG+%S5Hm2vYHJ>1>5@7P<Y
zRk3Q><{w6$v#Y?Z7I9-BKmh10_1NE=qJVhkzqv8U!3^L!4$Ii3U*f}rj|up~4^Il1
zMM3dlZzbjcL98ZqM@bw=P|I%6i*HC37eDEnZ$#821P3>miO3=YuKB}Tao&*zh>C?*
z%N|Vbb8ARc=P|r}fwFP<%Eo~lYc9IWrAHYAob%3axpD%lqz<9$swCsyCzMHS3zgXv
zA_9pE?iD2nU-nkQD-~MaB03BMJ>dxy%XdnDFqyrcdlWWkxQk2<AHTE+hN&4$D<-bN
z3N&!jE4rD2h0)Cmw8Z>@>8(RuPzA4G6~Q?XCB8Q(NNC}Au=e(WIwR82U;JnF#fR)~
zVIPsUz-QJ3w;Mr4SDr5H7+~+cB-(brMGLv0A2)Ia<nlRis>fJat1X9{%JVQbxA<Ps
z#?a?QJ}-s4jW=Wk`DIOl3u<;EEDrMx+A)%XkWHY2oq>JsEJm3~HHc>cm;vRhR~;c4
zk@#0nf1NHv96`Sc2fTA<QAwP|2N8`OQLu06!W^j!UamOv;z9ed{{DWySpPQYkwaMp
zpv!}Rgacv92?Xd0fDlD6SsY;Vh(3$k9`g$XS4{l7G5yXBZ;*<RVkCg1ssLoFz{LDD
z<9HXsD(F>edb)IHO6j;itLmQgAFy;)Ap`3G-Rr<JE{-MrYv4HV2FwBc-KUqr-6F}M
zWPiY`OPPRGa-%XQiBOCX8LOZvrJHnjAu->8L`XDs1%WnKYO#D@wAJU@o%Rwfm;|EG
z_(P~s#9$GU8ZiT?3rZ=;d!fc3c&9Epv2Xn(I?DEm^rL@ii&B(6b(g6op}v$YF+li$
z2;Dk0+S!f{kXqD1H(>Q6dLbq~To#LfEfVBP<=ZHe2r=#ME+6l$W$L031?Q}z0Ji=d
zj4?U{HBIDhFj{v2>5ZXu!}Z3FY|H_!j)O38)^#;4`{?0wHQpA?g5SZcn^du8b=)T2
z55`d(RdO}l4K{^RXRdKX2{Uv%Q1bPhRvt|rBwFKa8EJP#Jl(?VLnI*5gOhMU%>)+H
zQMpc7L#j4R%|LFM7eBlHkRz%#D6TEg*nNImt%|uBae>b}9_iz+NEm+38w&e?hi59O
zry4gz#3k(cz>(2_PbJ)R#C!J<uCq5yA-3N)G95ccSW6oL-?a{I+wM>NOr!z)S@`GA
zpJ{~%_+)#PXe9Mffw3-LM4*!U?-QoS2sak;L=0iGg5|=)iVN3$eD&GK146X-|FoUD
zUide*wSU{U`EP#w-^R`MzwDEXLHp{VuHN3>vTvrJxwjx45*BqYqAkt8lBVZz*m3+5
zsNX9BNDe&<C0t>HC}`zWR9-Qb4_PvwK7G1m$8|;I2}TjjG2}G%7sqn2r+fkePKXd$
z=ovfvixc+m1%gBJC{o+puFlQP;RiW25eqk9db^u>qi{}7Pp_2g)gZU`s1#gzAPc=B
z78e&cjZ<3mFXCq~8X?xFGM4w5pM)8g_`K_R0?3ULcqL^UCYu2zD6~zqnw4;G5lQvB
zPIEF!{~hQXtN4<D#(Aa46{keW=*edn6-1(!QrhkU3eH$cj)``JN-FAoUm6nssrIxh
zR8kMuBc<f1B{t66dV6`*1WbNeu(0By)2m7e84Zn-W2Z=!&|(p~Zu(8%V)0P@7q=r5
zAA!aE|8`gO|C6`jd;1`9x#ZEGJNk0fWIBZmj585x7)1zs(setR=M8c1j71IPW{L9l
zS7Z34Dv5cg@R`28&)m-*=L|?mH23_l&^kz{Tap(4H*Kx|%RA=Z^=}i80#oOIAA{?^
z9xzrme)Z!ENVTxQq-?v&*}h^viTE!nEd2P^xq7%D2h-Gcv<ax>c{J;$1(QmLSq~rn
zmL9f4x%(e4fPezU5RDgT9xu`lt6bnsl#6M&<Kz-6H{_xjj=dwL_bFvhzJUA#F3G(q
zd8c>h?+vXP7!R~`nJAE~`RpQq30wjH{Sxk36&02EqA{8J?@yx8oPaQcsWkWW@qyM8
zq2wmRhTH_&d_Vb2g#=>B?SogcMWm!WtTyyLT4)>^63-PVo>0nn$>UeY`{f=_4v6On
zw2sVh9NQ5P5TJCpCTT)e=0)>}btyL}Dfh!4Rj(k-z|4y01}uU0;Kvw@o~<jNce5hA
zDD31xyX)^jWS_V4Rs)TV;H_wdcB`K^XnJWm%us<+_p#Zzdie|k`8c<FaDGx``n;~$
zXlUgZgKO|kKK!GjLk)`AXN1HU#G2`z&v<kg>>y>i<9GX<Tu}EZRed+jR%36sNk`RQ
z5-$N763$kGVza1@P#6IaXb%uk7W^sUGPBg}2!+={cj@P@$_4K%cr1$l^+Y8Bo5mTo
zQ+i)k_Qh^zzy5SKsn<AbA)Q}=Qd-Ack*z>q^FWK$zB;64qXtEbr!z^Jf}wM!w{YR+
zcr8+@LVw$C`L)Q3^Tg<qQ;ueuUR(bA!9tkYTwS8O(@cLaV=B`}hyJ@5wg0t_|08Dg
z|Ef2~?j{o>Bdzv#d!*;e^2Ol=B)@b&bvDJO*$b)VI`cRBVr9CirMo!w7+QW-lfw%b
zYR?-!^K2h^F~59FtxGcV!Gm`c2thvd#90=un+!BHB;&6><`TNd7~!f^X2UI2X$XU^
zoa6r=#)#7}RzmX~sMAuqRs@z+ER@nnTeRqo+!s#gxU#=@d*;=5`QgVZ*yh_FT0cy+
z`rMqjo0%tri8EvKNw@6>a=ovv4}T=vd(Kmw{o#{a+sJ1O6S^6k(_XO;1Ugh3vDTJa
zRa<qEoPOp}+WBVVr&U51EPi)0P+fL+{e%6e?(JUnPiMrMlYjkl`p5>^HUB!ZBVxn9
z4k8iW@vr`dmq-3}Cdr}eAO2a5|NSm}JwV;n(~&<Ej^-$sh&54odAE?8Vb+TwoWPKp
z{flq2=U)304$g>|t;s`+9@sS!xW-NSAy7UMztMVn9cHC>pFRzyZ~6V+L+2idf8c?_
zh-*j@2SFT@d`*aa<+oD?QSK961sPUk1y+qbB`|;&a^?Q{h-<=@dVE&HJ_M&A(twgH
zx{@td{M)y0AUJQJq@O~Ggp26UP4uD3g*{v4pI;OdUXv%VICh^g2DBUM6%Eh1`uh6e
zwv0H&AsEhMNo{}Lc}V)ok*~x@Fb<)`^Q2iI2rCgU!W74Pp1>IRy7cDZwGXOkx)LG{
zuxqM)KMQk*FC%eOfr`PO9v0V2o1eJF6Gtg{MG(9RDtAJ+csmF6lSnXA4t1)pP=VYa
zOiDEeICP&uu$3!zk7GOaWA<(VK67Hu@tDFcrM0uo##t=P%oU#v{;Is4@-sR?A@2M4
z@8a=M^ADh)E*3m;b6bc;kCx7DroT(4Po7hM*AhK8X4*K@{O#m&zHo9JSelg5^skf~
z?~>a`qJjn1dgxhNrXz)(w32h1?3<S>8aWf$dFkoXr#F=T)=~@J6jHjkq8q4-`6%OG
zT~HHaaO3k}8h$x#p#&K;L_A>}LZ?wP92OL6TG36$n{gTet64Tohu5#Y)^tm_X}Wv(
z)2C133si#_C&DLYT=tGx$4>U-73=zE7={|$O?kk5%5QRXmiZ-Hgj3)A?pJIP-O3!Z
z=RdvXW%~N5sOTwQ)E@7@A}(Q8c}_bkvPF=+0~hwkx=bE9azuQyZEZr2<JW2XYPMBW
zu19J-3cc3Z{zxgE`mmasa5aF!I(e=Zhthy7KsU=WO+)_P?MikI1u`>>`*i(py-R+&
zKV<JeTbKE`_Fr8A0klhyf=D1O;;~eP!7}HEg@;d<3M|XG%vEYm!L}+q@5JTS;D{DD
zrWy+_IvkF3CVsTS{mGMYx8`W6P`~yO&g`%cPu$&QQAGa2rxn%J=Oed?S!bRcS?AS4
zK0oc42xBv2dC&My20z+Z<m*0)-2`kF52upX0!xfh%WofUIgVys+>eMXG%dOpb$NV>
z-0c?3F19;xybcD~n`Kk{<hS|WDSPod7wTYR^OdR6I>Z}N*WL}d(YRcrA>0yORwi6r
zQX<N|puyK3F?$!c$B8Mf#4RVRH&Ii2U8pxTH?~h)*7F<HDk?4pY(|#gd{*Mzli}_{
z7f(B)5AN4V06NCe>Fm4J*;?%OR{eA=m`sei#BQbO#2@Hl@hYVz+G4;lCY<}VR4L!~
zO{47()02vqczo1^7gSyb4w#-`=#lQqvIwSLsL1&8n)}Mb+JVNoWWBfcj;pB7d|Jy+
z>tEVa4_5QE2(b;zn}2UEDpz*4$F4S@gt38Th*n#$IBAuCwjR~h2UXj*f;k|8s%?U@
zx?-Dv^E4VjqGec*s3@P>!v{;%;kgI8f3CJS>g7gT_(y)3-v^36e<sd6F@R0wyyBlj
zq^SPhb#|2rNS)<z50^nSy|%!6cpQU`x}R{UgH}+Cp_cp;{#|eG#=Di20>C*Fy+PI|
z|9p@%E8AnY_<thAiT_PP{QrJQ>A&+G@6g@5-Tjk>^OgA_H`h$hqbFN#dos>B7Puat
zE?9N7m&|kGLju)?bM56WCp#t$FSU;azoc7Pnb)44)849Y=*400IuVw;*N$(vD%ag~
zbb~3mkYX568y!HE<*R4JqW8mSmGN3C*9M)wY%5Bp)atGmeJd-^eQTWiH>O9oTQ)_W
zzrDH(XMzbH{knCH&<h`LnlatKR`x`@@+w+ot~+$;l!jYx^+sEsW;>_U6G;z_s2$Eq
z+SziO$`!YmcG%?IxZKspTc|D_I&<yMVyF85B&_*QuArC=X`452!T`z6&K}9;O|#=|
zo<VGM4tU*GNQ#k0Pm8~YzIgG%uhaNK<Tgd|XXfH}E}9~j(HJ(Ykh86tE>aI~h)7QE
zE|iMH!8~`Y-g6x7oem&5Ub-eE#F7^<SvrzjK|b^L4OOa2g8M~kXT^90!?Kl{{-=*0
zpE1%r7$WU(!At>kEOI08&M~=NN&qlKKJOMlSUbVZ-R8p`t12hw6R!|=(x}v4Eh_zh
zKA}k{{XHq-bwurLc2Y`8O6-k=Pe0)t-N3pgkEVCr7H3b1sh5za6>gkwK8`wfo7+VZ
zk!#l;tUR~Z(9j4h6_DmVmT^FsKeRS|MNwp#I!L!g<{-d>K<{}AP1eKqPUd@U#QErz
z-3#_N<!L0{8IVG3#Oo1hE}PX4&wu0BT%Ink(xQ)Dl~mcsJQFbQ$iFLg<EgB6CyhK8
zqPeVcbM>SMw@aebTYGg&F1qV~Y3OYzIPE7|z)$1jlDLY>l>hM8ghMz`E4op6`0TC2
zv~S*b8fTkV4HX)swJtJ9qmcsVq)5aReK&uot>mNCuo5T7b%{Og#qiAxm8DfCI7j8q
z<wu?5t=TDdcyCAXYXKR0sj?-{%F0Ub#)xj;$B!RhSta^zr6z>B<+$EEtE`ok*OGcE
zrRR1R9<s^p#0XpG=GQGmOD`WefA(yHi&F(8&yfJPVfGrdQSTh<f1v+?j57>&DbLSc
z1)Aq#c-S`J_$Mp8zq$Q?JJ|o9+#mnf6%gtP49g|EU{mg?@|5sZCdd1;G?_#+k`#f8
zSDBbdhwHj;=y9+i#*RjaD2(ovu<Ipu&9gWEIJ?D0D_mFCpLp$%aJ@X3n_pl5=^E@T
z?^mmAH9?b|e=a1wrD!#QcHu-3;WqDmTpvU*hQ!zIo3_LRp94TYZ``2-0hk0M26Ix2
zq2=!r8_~w`k%RYZFq+t~_ZZP!D?yz81Iy+cv{sT~KM=e?*gJ`@y{GUoc*hXboq3AO
z3SprX@j~y@TQvB*1LT+|Yp%pXLZ|IK_4_xd)J(Tf+cK3KWDFA~=mH!AgZ7U*Xx(y0
zv|%KiO$MDg8AR78SnhFY&Og8QF2Z$9-dZ?ouHi5M2$NC#KfkWVAsXsl>3X&FOiWA!
zz#&|&Ft5@N;#kmMUxy;r@P4h{yJH6-nhv4et{K|l6b^79$}@0euOL-_@9AmAi5gC*
z(k5(qo8^g~Vd85|g286n&F&r^EfFH#L`OD`j94MVcJY?z?L!NiA+Q&(&(`1XrV^DI
zS(OA#h*KG@ApQ~UZ4c?+lVF5HVMC11D=xDzgO<bu99EH#Blc&;UEfF>t)ieoW(pQf
zW`2H+gFMzvsHBdH5M6`IXgnW6u|@Pn`TF`sMu*sodi74*16`jW+EsHZ{&krhb*?Ss
z>0vn7rJ<w~p93taNq8I?W28d)=X<@SEPs4qe}0fh!OYCeixF*r$3twdz-m5YGJw9H
zZQ6l<9%Q@Ek-t*v;Z|eCv4%uz?Afzt7n9oWauQfH2NsGZbacsPnZbp+5Df#-p2uhZ
z;KW1k_R)`R!-1KGr1+ClDlp5O*Qwa84!^4VvuCGTtT(X@Oxtfw*g<@dtMtI+Tov0}
z*;9L-wlYy&l4j@qx&*atAhZCkt!daAhG9iWYRX)m$tv9UXHxcV39XGr)sR;C&Ihj0
zSL%OJt)amRB#z4<6y>iU@6+tsbtBTK8e-#{*k2FyevB)hK2j%`J@=XU9fhL`p0}E3
zPT5jz*!O6C9!@&>YW@3wk($*4dcpOpPlg7l3ud3n%M2ZE{h{l>it2LdSW?Lbn?FzZ
z#-6t8zM>aG^ird>!%%mDyteY6Vf#SYLiy-`<Fc+J0djMzz({byVh$F=+QLP&3qNQ3
zXU|;m`?iV#7{1hqrhKWuO0)uXE)U_bkp1d^PC%u4Kx`}Yt;|Iy;pDfo{w9z-UF;!T
z3i|(pWe!)4x!S-AwmbwO*Eib{sdTB4D0J%k{@l=|G6V%ayNO=P0csY9$vsaazgYcK
zcSK@?6AQ?t4d;+%=iwMksnX)&egE?f5N({%H*VahR9nWtE)PLV|97_tReEI#2O(Cd
zIm6JrJcMT8e|HU7DP#aLyry8m83xtjSv$aD-HJ{rL->5XB2d|(!SC~+`Ja0}q>U9M
zC?rJ2NrW>i4k&pEqcqMYh=)r@6s=Yngv*w&qrzP<b9%PqfXN9?PST&>|FE`#JWaIA
z5hqlnOioTrq#HCdBQ~7G#)7(rW}#*XykYowGR_~kP8y$c%)v2i#1WEq`CXzd3W1q2
zd63+R=mbW9)hZh;q?HC4%zS+Lb!6DayqXQ<VTyRz&UPp0l9l_0&w|7WF~lhX_OPD(
zJ|PafLsSjHB(wz`vO6CC4n-f<5~sw$p%{vXQPb{%%d08o#&PubzpEn?G`*NuBaGTi
zB1E$>jiTDOP?HoTT=sMf%o@a5ea1OMQJY%iTXBPE{mkwhJ?n3g+gZ$}*fq_PD)EMU
zU)TK$-K(j2-=LYcpe`V9fH*$|cRvj`#roLaM3w0(1i1Y$Yd{r`L7dwA3VV<^5frx}
zjBfLKbc*`~2eT%%5a)6d$6~-qiv##_ckfX+$34`Mod)Y)JaHDzr+nMEHcqP7EQk1P
zCy9m`v<tq(Aw-C-h`(&ur3geyZ~%^bH2-D<Z$>}^Cx1!NB0T)3_K3Z;Lze=As6TQH
z%=EF~2v+hQKi+`yR0=ss0XC(loteeA>oH7L=>Il=1r28&m}HY<4cg!3;fz=8{_WeF
zC*)tkzoX-?9z~o{*_mrYbWv~oy<abV5XU(-UPLe7?!Z~p!eU+s-5MuuCOpPU74bqF
zu-e<{*oMp&vTw5i{;-+_W?KwY7-Ses4>w=$x8tQ}RnL)wtwkCpkKMa=g@ZdBhN-_E
zeOY21{b(gb3gsdW?}g4}0Q<=(I+;f>PM@vdSmEhJ=}r6;-ju|=2~oc3rW^BE*rICD
zUzOg&_==X=@ZAgyNngGwp`k_?@scHd5g(zQp@KGxBO>S*^IZ9<l%N1BK_Z+r`%Y)^
zjws0KyjUx}V`}<$JUPq+jtFj_28NZNLI^#312y5x5P?l6mwD+;IxcNBSa+E?xdLIl
zB40zkoz1XH(WCSzFlcD4V(&CO1_o%Ym`B95oahzl>+RJ?Q=I*`hkJcqzLaJ(owCm-
z44=dUAjXKnLFkW(hM9rLSOg1ro&IkB<lMPipVnmDX%r+*4Z@2!wuLyDfN!qXn=qFB
z>cSnF)B1)ZLWEgW((5o;QLy|3U$hWJvXBAkF-5?EvT-h(?n###zI8eWbKTQb>E$o(
zxpe&x=yZKKfkY+hWt=x&a(h6N=*Egb7uFqgP({uRo~lM`#VL__G-g)jzmPHdW!j2>
zwdVx%CD<c9;d;kB<KFSaxZ4Lut}64cEKVYi_+bqaMqjjq*yU?vtFaM>HK&x)vz(P2
zL(3@9?9YsgzzHu8{EfN*Jk@!eD}i^S@B0Q?E15`y+_jaCOPU~0TgdXTGio@DoEK?8
zk6Z*|grHXw&T*P^<R@ms%W`T^2H&sLhOR6QY&sY|k*TU7NVoY7?;nEwlJFdoACm~?
zoz2=A3>VM}lgKL$y%z*nd2gomoSsj`q;M${Jql`x)<hq!$UN?{LOlo%F1LJUwZ%XU
z;$Xt=efv&6Ee?D4?gXqyqHrro!!Es4si&(u46lzrBg9C3_$b|<Kld%ZEu*a+K|}@u
z&xJi@n@B<@Y9!>pI7GxYw12{Bdn%~<7_Ns^1y)cLb1j1hB@QXxX=nu01_%}je^JHl
zlro&efRIm|w812TNOC&e(YZ{m*{wl7y|aPV>Xhrm2Bi<=aa+OxNwntyA~vCWArTSC
zZ|--FlcxFQhCr)?-+N547SUSvt9J<=)L$X|1<$B73{Oos;)^&+D>Bn!DAHdvR_TMG
zTsuv3@~x{P%vK#8_xP88YKb(2E>9gNjBjdWoDxESbb`bGVeODo*<oJE>J@>r0es#E
z<I!mjkYK~S;+2jw6w#gN7Z>GzCRIHgdyan9Mq8xA<_M8p(>QwjbpDhV|I*YA!lq4h
zat8|hPGa)o#2)v;c?+t;<^-H0Xjm*QoKHc<BP!rv5rp}fA2J~6U~iTCK96AI9kHo9
z$K+Z&4bGh*vLbO5Go0Ejur(1qLNTAsTqjreFK$oeo%kQ@y=PFA>DD!jI)*WhV?ae^
z6ci*H041x8VuOg1C8|hHN|x+6ilc(k3MfHTa#o<p!8GKYnjpbIYzYEQ4)3~}Ip;ag
zQ}tDSKfZda-um9DIUYxw?z`{%y7smAT5GTE`m^kKli}^%jvB)}vZn3m8vd)bgtPFA
z?u82%%#kQ?_d!B-z)7#m=xWaCU076mAGBXW!km;pZI0%j83RRVSn%2S=YjQN#_{48
z?+<$@tR!s&RW<RI%eL=(1u5GBE-pFZr7mXK^kR?Pon8d+zsJ9qcg#bp$){&w)S46n
zs2}k|j#%8_B-l&5CaBy%ebM)L9#5Y1M$VN%BB)D+6#SNLh99SgOJ4h7&fj`|I4gu`
z;tBrR^LJ4Z@fKdPJ)^PM(MMwI@f+KA4_7{yZsi<=!JRIV^#9FnU}=9OlE{f0;qM6H
zdLJ$(yZ6=o`b3?hqy_Z0kOu1s{5A&37|eZeNGc>6pnU}a=gf~EKY($chwKKXB5GH&
zW(NYdu3Zr~Kz*`xtC)HHnKkS}_2@`}woL{P%3?m;?lzX;;*5aVsUR8mY~s_7zz_$<
zWnLnp<5v4fG3N&-v}dDV;!GA@Qd2`C09?ks&_K?R!jB)-TxJ?-k}ec2<=ybX+f)kz
zW6x<E2#Jl?=slx-_+102AsRG%#0S|{B6J!V0}Y1N#Gn>5N`uA*)|ZL#m@+Jc7qOZP
z$8yfy0ceH(PPFKc)J78LPG?xX(VDH>*TsPYfX{9QiI%3GgFp7246(eyouvYkhC%OF
zgKh-t0B%_GW`A<v*}q?bibgh_L5F*)wa4B;5H7p(^lu~kxmrd0wb;5YJHHJM3hEE5
z^bES{a1pXG5*u+eOOI8{kro;F944aC)D-p(1Yf5$F7DSj1DJepQ_#PXG$!Wwz3FpU
zB_}^qmlz0e_XSxb#o9}5F>Af@CI*Qu^&V%2=#e9;Yqko+TyupqlB#yBj<o1=QxLUk
zalDq%LQ%3&sN}QJx}lNj>joxH$WiMSTpiG0glCS^ZpNT$$U&#!G6!Fawb_Gz){Phx
zhqAkN@3tQ6RwTADc`zZSMi5U$X_qkwGC=c@P)9_-q(<7f@y<hq#l*Oh3+Fsl&DI8c
zH=`f*Yz|gm0v0iQ|GF748)ne26AMc2KDf-NBLv=SJ2yYh|Ld>@Z6IebTahZ_HhB%@
zEJZ@Hl7aNO0olZ_-jUAecBa80dk$yQyjY%oGBjeufQnM!on6~pJ%&>)z<&JZH6&5P
z6Z^-VrHCsadOlT5S9xb<9wRR3waxnVNNo5;WZvKe!~G$SVOXev&JS>_U!o`XLxELb
zStPkRs5~BVqqi%ydSpsEhFw7GeBWhpzPkUqL1>w5lGXD+QOIu&W|3Mcvn3_FXm*i6
z=s|yr%NZ(+*z&IQNQR!n`#^okRKYIZ!a7X$BL1T#nh)AIlgbbh#9-0n^K0wHEZazK
z;&?CUWTkF3L#(`!J<{xY&WR$(ZM}aAFdxd&&?{H2j3L+9+B%5rRMfKRAZq%L9mdYi
zndE`M;qhPn*DoE&00(50e3Fu+`&8rX*#{^V!I=>bMf%6bO{ZLPWk!m*h}{l+#T{C$
zG7g{^DDXt84>cRhb8F}LNvd)A)0gOOjlp_K(Gs|K?_Mnev=D_D?c-1`I$5^Ru`n0L
zZ3e$v0#@F=`>4SjPOOa5`3<orbBqpsS=<w@DAcB+;lR5r{HTEdQe5-|oZ*|b+QizY
znZq!^IYTVQ;KTpL^B1=h<VYi5(P>bZz!NxH5MZC6fH-;b4^q^cK@zP%p&a-TFpG`|
z3((ODXU__V7+YVAYe|P}2nKS5M@E0~@8s5X<mc(b;u6QKI^r2`dK==98BTK+!h$|^
zHN5B^SWg@;G&G^0ttF>;*+<Zp#P!;$BOhfr!+_)tx4pd?#O{}bA9RMmSm;Hy1fCDc
z4)B?z504~rc)PfZsZo%kzJU5&4LZnvWY>QcnSLwwn?{JSCm;th1KhG55M9f_3y$?n
z0+i33Igf6r73+5rpPsU>KZrW9XVkx^Afk34;P1PJOP+ZDtyz<rx03`C(rX1k0*q^7
z_3fm?z>gvckzCvS<}#LP40_3l;h#F5J>D#ul#`g3aM8b2!mj%PfX&#lKcy!g*-swF
zpM*`WXy4PpX7_yB6j*9T#8nd${-a0fPb37w@`TGI?Uc+U&$~JFmrayQ)wLv}?>8bf
zV}f)BrAfreA<6Q*`}Dzs2dfKe4&IagdgJzuTJi(BqAN;wwZ#`RE<|@|{An2c^Ooi3
zo)4Id8+r%VIs#etv^)YRH_@qYb6U?BMQM6mQMF}#L}c4^$qtQ4SEp!t_)8s`!?Ca4
zK5I-$O}Z;MZQnnW;TaX4bxPK2W$J~%eZ6-k70;TrLe3-`VPa%d0!tAUd560X9;l(-
z<PObiqs4s{)@aP&QSL1nO2>!(mYA7d@P4&aJ%w7C*_J(ef8Bod&Bugw8%_zDH}W~a
zn5dsupnTXvWy$B!DHzH}-ilT>vn=H?4pbFdlROaZB9;TkEwkcrY*Fbpx6uj`)2;KE
z8gl6ut6{`W_T(I5Umc93)^^O_CcgK?#S@RFs~~+DZ}8`3wNcU0#Bh{&GhzF36PI*S
zG1NyZb0S2>S8w9HuUh-ID^eWFgNW42#7A@tLhs2Q9Ls11yMQ)7HNaG!pPtkT=w+uh
zouEagDxV-8L$QpU5AW4xTi)^S-FtE)MEzDh_a8hEiCjS$`Tca<q{)*N$**4@yr?wo
zDagAp{^Y#I@GUQl3dvai(5zzR?-=ayhR&nt$n;repa-@>X-4mW^ZMY6@=uP4*cf0M
zz&(kc=H*+JW9AyfAw!638jVhvxciP5NO)R@{~troMr=N;Q(qo7vvK3b%k9hqJf%+@
zmsMD2u>b5ldU7ml|31C2Uvg1@oF-)|>4=5cer?`X&;Vp)3l4-4*|Tfd%CAfsbR%!w
zx}&<~^EFeT7+v}Whx1xST<hndJa9qVKimzDn!%xl%rSs#3K4)1PggRA0%th@i5ZoQ
zqsXsM-U?wSP_3TFR99q@r^HXo^y3@&X2dhhpQ?K|n2SbQnW(81FV6+KQ!IGQc-5LU
zN0QfvDXWMwqnM$2hd=(VS+sKHeYJ89Et9+YVSDe1d+J8-Jt<fwBN@<iV_1>{U$aF{
z(aN{F|MN59{rjWNyye*aYDsd1G5>fFr-1YqzW3&|=j@&);jdn8-m)d=^Vh7ic``=9
z6U(iC15LB}XJ=`lKuW_;8t<MD?K=?5^-HBP;zp3TT@>25l92rNBJU8hY(?}S2nT5n
z8L`>s)%okM26^3{7DG%IhYC^pWEk&((79h~fWi`oKh$yc=z-xxxmlK=vLwVNSAT9i
z@VT+(<;)=E+=OEOO%*~U<v7@2Fh9aR2W$9hWP&t!;mf7>jZP6uep0SM?|H{^6I<N-
zVJ~{j8sk$R3k#>Cf%s{CKa2yd7T)!-P~%`qN1#jm0u&LtUyi0?T#&GxZu0qA4SJVt
ziD9j?v7evcygm<fKthjQ);gDMa~0o)8nLc0_VG7Pon{6zXrlhSat!l_6he(=<&}Ax
z4|2oP-|Qv2c#RD{jErnHKg!+H)m36tJ7oFp@^*9&pXI2kOSs;&Oc4HygLW>%5_vCO
z-T4M>lzH<#kp@Q1g$hp2Ltef$`-4#Z=3E&9^@Ig(<bCPpE|Ia)#_{fRWr&4K?+N5(
zxKcK>zMtZklF|j3AYvbkAWk5%m#sf}#T}IDL=G5U6D*+m?q&vhcab+Px1qtFCvrtD
z+Wi&(8ig^wYPWaG>tANQsDXhz8Gmi)DPHjU;+UhfW{ZHeQ}OLn;K}N}lfJFYjcWY-
zgLkt{3>2O!hl=V4nRh<T2iUvc8*x7QRm^{>)b58N`{$B2@1)m${qb}hQm8<;o87nx
z{M~yjUKV%RZgHJ|${a2^et5L(m-~O)f-H+$zr0AId-|#ryn(no9l$#2)G}j#TdM!t
zYhtyOs>t?-${DxHhxhJ{$W96@+_dQ7Ymyv3x&78ZnycfcYyR@mL<9*Yt%8yZXt{h$
ztXtlv{d?S$mtWkzPMCK!paV1lxcvzzrsR&d^n%O)vhotpKyPA3`^dwau+Ybex1S8N
zp{|zp`WK@A$HlkVDcIVHT5nEb+(rbP+w`vL=cBs12-jh11dO+$YV#~0VImnu!NS}S
zs^@2@U^T8j1Nz^GfR|7|{tx8Z>9*;S7ya|K7_`RBU*4zyQ=@QT>F1~-&cl}g3cRcx
zC@d;spk=WdsmE9ePgpN#85JDx&}GB`u8KuFkbnEX=#UVbrN0iN-Kd^(aJ;`kkz5|w
zo_)!5ovY0#k|(2&qHK!94FdLr2A~8OgK3&cvN9F$JNZZ4*0vKw74UxmH?y}!ju=I`
zjP<@89v;3DNV<6E>R=@$mQ9*Z$Umzt-kIo}14Q#R%mZG7TefPr+|dQlv@iyY%fw!s
z^&;KZL5+7CblPTufuVoA7+wxV(;rlz-RRn!t3ygXuB;;v@MR6}@Oc`NYL0*4X7+@;
zuMal-mGVq)1>0|4YdK$iM#Vg)EPqP<d+Sm723-?ny*n&pvH`Jku(L-KPiQLW-dSmT
z#T{|)(4`-ZR(kV)T}GzcjTC3)V7*gWlkd$b0bjy8ma*|Z`@F;k1qwlgDJI^!rs&#_
zEo1-wqZO4z_@W@E^L^Jj&B^4t@}yU~BRgdHPt}X%tYupzac4u#BiO-)wF6UlR)%(;
zg>hvJM5zDouys3*(v;@P^_?=n1mU9b+$!ejo*kG%LB>ERuqYWknQi|aV+ZUhcroR7
zDuLce;){al5zu(y#~9p#+;r;>>Sf@@TReC<{<#Ob#cMgiK&)7|BZ4#@5k7|0II#S9
zRXuB0)DnteC9n-){|9$Q344_V4WrxNA5P&|m;RZ=RgNTA$gNlW0}YcWyrl14a57dI
zvF9cp3+TO5gExs^(O2T9YY&f4pgJp4Zv1m4tIU?Ha~{2zr~&ANv^mH7cK`D?oqzoD
zn&t7s`tO_nAqp)W-m`=F=sYY^?PDTVIV_9+XMcEA8#%w7K?_#tfTO01`@i+4yqusy
z;I?r<SUCCP6mS~=Yz;uqXOrRgRBTS$p|{B2u(ACq@}a1+4L+7Ah%S7oLUUL=78!#m
z`#@jpqX02rCNF}fmwrm7qt4WhHK}@js+)LTB8%0|b-w<R?k*FSl-0e128E=4az?Ec
zf;Xx9fTpXsx#eOvkt#*UI_ng1-UP41pEs~Z3GJT1Y?)~B49M0+H@6W0+~?2rdzttQ
za0z@zj-<Y~3QSW<4Y6T%&R%lf&^{6e_64CL3PlOA)s=9cPD4q~fB)|*8Wh%T`|VEw
zEDTfy{J(xtFj=Mr+XU{9G%W#$Fazu129kI&_4Ls;d)3>m($~NIiKH(A-cDOwqy+_)
zz$a*vYK)ixXMefJ&zC#5MrnRQ{o*HUr#EH(PILDx>jZjqq>ssh&C1w|qKZ@&lv=DC
zCMY<1`63;2{O<67qYE@m+lWgJP$6RR&G+d(fQ(o)=aOzUK#<`CYelJsXM}Dj_$Sbj
z_1V+)oDK+-*K4gfe)r&<f-NjcW}-n;DUGgPeDHe=QCSjD2d>E4pL1>tZoQA+#i2u<
zm<F6=kl9ASqw#z&awR_7aUia@*A&9IQ@{TngAPN~BpFz%%#+Vn#aV+QfX<ZQ&CQWN
zmEV5-Fy>g@vi7@oJLLbG1P!8;u*jDFc@K-6LM7J83W>7tkfhXtW93h4hbkEAJrqu;
zQTfu6Sge2`^TZgyRFDG=;Oy>~k2*_{d>Ni~#FU74|NhfhR}I8l2dqUvW(8^_3-sEO
z+kQ2p6%zvNi2GX$niv0Kkg;spFtY;CWY;|4NX8bDB6JJ|j(_I4cW<s?<Nzpv(}b=9
z3<t*j5!e6?(<yueSw<LIMMa9tweaH&mMeg*mtAE?WUOwqB*v8PykE*!b?gJ#9dMz;
zC=FHQXE9I)y8xan`{a14^41>%u<g_WVy=$L6HAl^>{V`@wztRu{<yfo#8TQ##=vh1
zMp{VX0{{??!GvUM4(H8dN8|4IElK|Hd03f!f^%`3pWld6kT5v&lSQ(85)#=et#^HV
z)QK$^U`{?RuJBI`Oe2t^5=%)1>4?OHLmJY%A7Tyqt^ND!j~MK|9iYDmkB|No6(lv}
z%?QedoxS<zLg4H;H=;4<Nd-t2;j%EU2rkQe@?hvn)`Z{6V1VdK@Gc|V6)exmU!uT3
z>8nEyL|FC2K#|R^<2tXE3F)N@{x=4I;s6*EKo>PY{s{*+2d`@ZTdB&niP<o_hbJx;
zCG8yukXQFTW#lhfIgFuPB=Qlk3mL2`;BEp5VW;au7s2ls>@U7yq*W)^`3>GJ3O$^s
z@crSg6HxRuwpK=?JJT09Ibf%1>;(~kzI$hm0xAxbao2{&p$5L!z3<*NJ*ORxNOuYz
z8zgpw|6ZkkAZ<~j+QV!@!%Px(SgG87P$&yeNDz#Vn}DA?ju@Yf&7=6BL!8qL=n&eQ
z2)XgiHVYa7+$^Gu!0mZie0~d*-MNHBh;N94Q7HnFDz+)IT99xq5F6inut^H~^*r?U
zlQ#kU<&Q2%1WDl5$cdHlO28Rv@KO4U1|Mk+(yWgD(=MiqKk^tdeuD~da6=!GYCmo=
z$3Z4c8KmMPZgPeoi(D9mn{n33qL|!)fWVDK?@f_4WZ)o3#2KKDD}iE$w6b%Xp@|;b
zO3lxK&u;g(99YMQUir9+Oc-J?OA&35JgK*Mm+sUA2n7g|s5o|@<DR%jkIqk3dGd*i
z6N3{v;8i`#;L~9o4Hd}#8O(qwVxCTp1Gr$+0j-{6v_o$HFFIZ5AR)-OV}VSnx12*N
z!A*gy`>8DYU-$2$?K+j448yp9_)qvxd~ZTeHzN4QtEo~(Z1#m=@F7_ENZ|G)GMzd_
z%!Gmt8Q#Gv9WcO{JXJDKiTeQdFDedAOUnd;V{vgcz)1p}v=V6<@C=2nfiNMsh6Zr6
zfDTQXEyeJDkUk?_y+GI>*!GX1fDF{KK<hdf9X{0R=aKaT@FF)99t->w@Vjm=yGB3!
z9Vhc7>D53$VT|GBG~%o0g0Xq(1s?8rOT2L#ysOAOk9`z?>j%=@j1V8D#|Pp;NXe4n
zApBB|4%g#sb)m)Y8am^GGZHlk*>x`8{Ny)taKr-@@Yf3W>$$TXdLB5tq1slQ`wOrI
z;yKZ$EDWrMzbjh4sQ)Muyw;orEW}NKF!h#7%vR!yy|N^kn=l;&Tw=khz@*5uHH?8-
zPqGT6jEy+I^&(p;{THeeYYQs`dl8WWxaZ)xtAawglvas48>^j(8A7o6W6vQS+<Pft
z%$5FXeFg`jH<t(Crp!%2HmhN6ZJlKvw~7UGZzIzx{?30c8#RVG1*`M)pN+nFfgw?~
zk1icGP=9EFR)0~9p#hlN2bYMkiT(Ppbh=__sAx$~u&d>bf)D%Ftx=vBR*Iuf)xY4c
z#p7%ek7pkR&oHsp5$6RD#Xnm*2O*cth4jZ<AmE#M$gWAK<u=1-0P?HHH;7X+AoVH$
z!g?@W^(ch%pd2B7yb3#49+SOPxuL9-s~~U~1`!&)mra&?j@;_Th6H0Zds(1z%a$#X
zI4BgT00{zZ>FWBY(=F=X9MpDmb9<BAGto|zePb@<38O%{7|T?+^6@&6J2AawXHOt*
z)Cm{NzJlpXFF|i<da0F^@ZY!Py@O05Q2ePakXbzUL~OMwn}4#<gD2;gwZ#V={g&(r
zD{BQCE-^6;Oid(Xe9`WI3_~+|(_5|UNX)xh{0m@!@<;1!Al@X*@EGm{5r2@mjQc|K
z>ZZwb3>e*#rMWPIv>}k2K$4%VzOB@qlDifVm1aq{`M%2gP+}qfSa#St(QjafgTRBW
zyLan<XY6C9B$nSe56m{P-eupRFPW!*|GgIt?sOa&`$Bi|WC|FEK0Zy<MFk5pvf)R6
zW}RN=twENcBilM7N1?UEpdf8H`V|<v_*3_{lG7I_AQ{IC>)z5l53|dc@tZV&sw5O5
zBO^ZX-Bn@9eRa`{+wA%THHBgMV6xn_bSMAAS^XE}o&p&v&1=ts(br~ncFpg(vt9&W
zsclX6B?OmoJh^7S4@b@v?xdruh)780JyBGsfn^qC-rr0f!omHE{Wq%)Od0+~I3P30
zMe1ju)n9%1ruuT5XTsY8FdS}6&LH^y(ogx2La1x%MPltJ!wabzp$k<K(Ys9sX5rM_
zM?t|S<kW`7SZW07<^b2wFHc0yy~eDk4c^yL*J;N39M2$YM+d9rcwGPW3QVv74#*w4
z%i{`W83C`ZLEO~rcOf@*&p(Y{dtgK^M2#S^%}nyY_#Si0Z9rciWJ6`2$JmQ?5`sA5
zOA&iTd3injDfm9=!)lV7f)i+-j@bbclv*SmX~-vSt#}r0suMyERV%-)d_FwD*j;Dl
zSh6@`V~<{zIjrl1gnq%1Emj#KU^!FOyQNk|#O>4sE{{dlkA#kJb`aboW7={&3J4;<
z^RyiNvh9ZT)0_V^z5V%w=oR@4Z0NP$k`4U4oUm_+iCPjKGy`k$w#yd+*b#-*^jIGk
zYn&yV@qJD*I#4sP#z62R->z-`aRzhCVzD{{kA43LC?Xyo%7AItct#(NNYq_8G!&<$
z%O6+XiNdj-7LmH)Pn|bcZWkPV1BMPK350S_PG$^3gk^?LqE?Pm^|4i7{`hOxdT%&!
z#bc@Qi;HJ{G)%+LmbU9fyXLJh4<m21QgR38baR_w8{Q768ak18>D?cE>vAsCI4Y|8
z8(!~xyJTV6hd4X8_AhGPQoIjg)q$FcbjEB+icTqF5~vMuLw%$oyEJ@Ps1YDXdv9%!
zd1NmpRasFXnBG<z!r|Xmbo{q}KWb!{)CfrQk`?}g@|lo;!x{{*$T(9qY~)j?PZJRU
z$UZOxM2Q5t7_JC0@Hr1Jo+dv{k~5g{#o;snDYJUR1~R{fNNhkGzix7zfEy%gRRVg<
zi+%X;p#eb_bQjs5F1;_kS0^3;>`bUqSQQcXNM!7=*WV1GCt^h(w1B*|@jr-C2NND4
zX-aIh&QU^2JwJz`Z6w3NDWY%M`<GqC(?fEK0Rk6rXc^(>5lE4Y>ruz*Rh45AwsB8A
z+v}ikLwUDl<HkKmpAg&q=QvevJC><58v<d6<UC&LblL?ZEKiWus=09T+v$2@jtHx)
z#Qa%6={lylZAhEUp>idqj_hk`O`}SmxbNXLYdwowAVpK$$rHsllJife!V}^}L@Ed}
z-xG+aX8-3iXnJZyS^zLe%e4Gc${2Jf#E=(f#~A#6fU@S-VvXTDkXe2N(LpsxCVt*`
z?|r;TCgG(~@QGJMNq>PzGm%)ef#pNw(tk5hiO5EHelp(!i=V7&9KdQwX6+%q>PIwx
z40%-AImqEj<SW343?k%$<1^QSTn7rrXt<Nfli_n|z7TCa*nY$w1~R7evs0x0pdk?j
zTg%wsIe81qI~?`%-?9Pb*NK-i26CE0<j2w<b(e1^?)xBmHBeID69~g#L7bR`03~y+
zF<$HdluM8;Jzt<IWatEx?!G^({|brbd1q(m+pVJ7tf<v{-65y#_MM<&&uh9TNFjjS
zJsjzZ87!nu?d~)l%ev4ekbiGp?8!TG+6wM0vCMJ>$^StoiK?qfyDb}fWaA~Se4CxU
zCHr4m0Jx{m>u7*(RQ!I9(=?!}J+Lb@D=KXlZ@vVx%Qb59=*k8%O^aIT!EgYkV|Q=Z
zd9&E~R=bw<zYQ%@R`fL0`R3qSIJ$Z?BKZ7;&P?;QPb9N7{pjK63KCZpiEZLr9U|4*
zU|YEUXygDW_k|`CO#7|2QfV-&>U$hCHV}x9I-{7we9R2l;CwDwUM|D!s>-RGM-uf+
z^fu~@{rvZY&B9rEyHuqZ-fO4z0$y-@5k@lyrrd5gLPm36J9ZWwZoi*C4Z{I#YGr%+
z#fBf-`5CQ`dB(muwSw<@q@mktaJffn&)kF7M9G4tOL+6q_v(7}uZ$B_0-;kr7pr_(
zHVn;ksRbL7!Z!b4h@_Ss2+X}xrLd8vj;u>A9lLv|4?s>MOsgC)@Ib?P4$+WI*qSE#
zUQg3aaZ&$CDLES4B^5t*Ix$0xKR<MBo3L6X<%8?6Bco9XPy#|rYsSL-3ZBD<Rge(|
zV0}S(*JYbEJBqe7qtxaHLW|tB?u-9H&0H1lDZ5uY$zo?}I&N(|SWCt}z=iZh@AiA0
z5W?pG_7x93*9JO<TDjhG9(lve2fe=Uw`~EPAQnCWe76OFBhJcSM-~rbxj((VEf8*Z
z$hc(^>K!{T`x7Gy<}uhaFlpZqq~E$~J+9fno#_vyior|aU0$`@Jp7@(B$M)(^9zPU
zl^?#vmAT#YjGwUIL_Pk8=_Rk%#e6S#%{TuZaG@~f#jRUw==Z<ya{0zw^19BkW%Cx@
zYDVX(dnY$1t-bcnXq%Xkf!gofOPAi-=9t10I+&C+BfsA&px;ujp&@!?N=o^8w2DK(
zM53xgzh;MwLuHlc^T6D1`?6pZngX~mY2=llzd|!q$D?Hi^M{k&y7*zsNdIOe?ArYF
z*a1w#V5{Egi=BNoSWJ*7<l1|eD%DuEk((RbeuEmx)mLhySVE&HDke4ch`++VWYEeS
zdaIQpx|a+odyG7Osd{8~reMLfrR9$7nM@i@v}3B$iONmpkFAL%IkIS7OG}U}5_obw
zjjqpCVxJf+Ow+TlY<A_X*?h8MLJdy2pQ{I?p>hhXD;T~lyffRq<`jFwA{brh1p(@B
z{tA)R?5VG^M9M5u@X4?&m$i4bk{?Q{ZfTLQpMmLbjKd-*trXwA#KzTirg{K}UxM8<
zPLOqNgT1}~`S(M}L8a_xz=~h&86*61!wptCuay(DGM97m?aDjW1m3T*@fZ!h96bki
zGz^)zWADPknDT-eV-YS3(x_P04h8N(8@I0<kGZ>S#f3e7+#dzgFI_PCxA0+9|Fh`H
zEQiT<sG+a;e%Aq-=Jd?WWA0?vHpWN`JwLs1QMxUX=wPtiY8k$wE_hY(FL${{>cZwl
zD2Jhxg#VUB(~b4w-yZ2YHX9xASD+DHdEpaA*sS7i{oL0{3{wjWj%=~ho}Qj7R;=jH
z&JQh8E{>0qDoBEx!;5TupOTULkpz0m`h17uFzVV*FtbyS#<4eNTe#ii8_{MAE@gX7
z$+Q@(%lgsBvqSH+(yp`ywI#w2)Ca1{-Zn;yX5VAhW#0(rXXA~?{t0i$b;DpZi2e<t
zm<m{U9tOA~1>q-!nwZ|gC+z%g&0&w(NteXkc>25!+ykl{ddt}y)H1xBjDoGwFXDRy
zVx*E#_!|klpy}IGq`=##%W5nH_>#Rkpa0cs2e<dy*dJg-=Sd%EnAIL;Q?gN8+K!~N
z`<cmeis!<}27jaxK85CZXqO&qOpVHIpQLZvp;zc)HdDL&fYqVM8Y8yN=h~LGD@0Pm
zX20=FjYZ3b;_P$sDbkq4oeu!vAVnF;s&W^yvRco_YL(IAbfBoZy1LpmUH0zMESPSP
zh}KKFO3BBg+)rtrZp<()m>Z9mUj%EFqJ?-ero25Ty<c9NcyVie>AItz9t8yS$4g*f
zvo{R9=a@`h7WVw&K!a3g9yHYi3gw}!Ki26rOZS}9B)>^ZPuB?b!1~*sEx4F(X?con
zaIQk)`?3{-pBi7w4<@~CHV$6bHjg!E@Sh70f?CJkaSZJ}WS^tPrylCjbw7>_*J7;?
zJb5#GtUF5gJJwE)j@H$=C{g0CFA^&i*dar(cK5c1*>pjY=~GqFF(z|eTf246fcYX_
zal9_>#@m^Dnz>hc$EQPVFL!ZyAR*EJ&kFzqYTG+5O4m)T>{}S<n78U3m!16}Tfew#
zy`t1dy(aE*`JU0#)TDls<D5Q^Jfgtul=``vYp_r4!N^1fD&*P+kpEpvT;yX+wejs;
zU0g=OIp=sOhmm4`PpdmOg}G#5^YimB&8+jMx)Gm#jt`-JmY1EbSz)l)jdMv=W7O*?
zrF|^w=(<ps&sZcSIURF@>Py>^M)zPo!uII}r~J{-osLbHnY`reX!?EK`t`<0fXXn(
zAhXc0Xt%4SgoK2~6ur6m8NeQyA?G4VTSUnSl~^@B>qwOnj0Ffo2t9i1)-4Xbjx*-l
zlsuv92u91K)coXEF6~P6N!8WV_yJN#Iqlz2sg<;@F;ZxW4K;VjeW(mGRD#GAd^l%^
zXVR_gIj!10(>~D{PuR^%o0#Ma10bwyHVMlsG+ef9S>Mo*L6-sknMZJy1YmT5#DLsE
zhh)VpU46rLMA2jqX8aT;mjz=y{grSA2W4Hj*(ob7+N+K?rULX843!MrlXO^D&UUVp
zEyf`@f(pC`9Teqcv7%$b1U$r4iLwV3o2em{VC9!KsR;$zp{dFkNnm9@B<<hrJ8+%2
z3HbN$v13mWQ@`QfT2sHtE{w|Bp*ur8bf`<%^F}(B>Fg-}@UHKdU6gfflwC{P+4Fi&
zVYBO{plsRDM#tSDw-(~3swFFTK4Q-wzP<gZwQiy&Az&YIPXXfzLdO#ycu*IG$lBL+
ziEbAr@kJp??!lO}3Lcpse{q-K>0Wfm#~-7+OB$kH)1<udmW>VBZ$uviU{i?Ui~?;r
z%AvjTydDBHIXpH<4Ikg_HvCRocnA5Cc_EH1W)vzU0B+&ko^`?PPq=TOo5NfBq|@Ib
z3nRh{DHj+qr`C}Zzz!l;697KsI>%wo;nsa5tb`QA4%4<-A&}q~-DqRz2MVS)?Uk06
zzEN{u{|Uw!hy(XGXt;4la^=vp5CgL1GxGBC)(9WmB><o`#fOGbw2O*ZA!b9Q+dunN
zcHWRg#j&xmt2qPdWssr=lcP7WijFNAfHhVgCM%23UE(b>_R<o|7D#-_iIuya5Iwm?
zdFme8JFNx{#&STJf}WEfIH>}%eUmNo3M8<dw*VOFJebw<Jhxjknd0Q+)Yh1at~(Q4
zPnlIlTL4Dqi6KEZYHOrrBVImq|86MGNJ!PlT0mk~0q4PBa;FLPgwnX+Wl?FD?Rw0@
zA_F_(%W*FzzCCvxED6jXi<H7h^X4n}1vPHuwun0)wZF(;Wgrx&DV{uB%1)i>m6r`7
zM`gUgDDdkF$X~<Aj1!ZP>!*z?LoPDKFJ9l>Mxyl%EV+zQiKK%0X<Y<TaYQw{(gV>6
zH67FSD-6{u9(KBq26sr=yTS>QrZ0u>_*Q#vB(UHtmB_}!1Fy3ptv*hu1l!fO8+Kj)
zxRFAIlI(goopwkRSI|+6Y0>_`jHQV%0`|s1@7}#5w;0)y_4M?#E$A*|Kvr_2x|rI<
z%A<g=^q`uN!{3r^(B9rY`+0+BF^NJ<ne#Ss0nFOKd=Y;IBVNnrsEez`z4`qW+K2BP
zT`TD1z00u}MwVZtAYsJ5=Irmo>8Gfytb9(q>&YjuMHYzz(nB|t+b8lTx*!B7@9exp
zE((R@4225sPEqhT96^q9=C|I&A#}U8k3N6dy55kSFQ*}bYzyFSMtUOV+z!>_H(-31
zWoDYI_LuCCcTKWR&Kp;tesW<Xa^xoYBwoh1631nvb_M8k1LrJ9MmS>c;1H?CXN0I+
z1)w2tVbpV8IY8hd^}bNHscAl>rd*T}#2HB}O`Vq3R#iU#T0}_%7D4=QAPVycX54kd
z0NUONeVt1lh#uWB;l8D#&nI%zXtZ@qMCH5#vbZ8DH}3DCwuL163P%%d-1&8^XzB`)
zD%siDw&jP4zTq=msR`HXe@r)$$810Y<HC_$`;}Z2B#CK_@%X}Q+Zq94gm5=wXEcfr
z94gv*#6G{Fv9S@G=bPS;izdQ2vZ%msuRpBUVa!T?e=SG#Tb|3I{Q(G0AfB@uAY9Jz
zz2i1F%5<pQ5ODro?anVm9VbyO+#<0krIB8yKMvg5MX1d`6nvffkik?)Vf9&akM->&
zZy@QLEoi)M=(wwpO9hf0Pu^_=P`a#@m4!i<R>59Fq@WV6T8*{T{%9HDr1A0bw23j1
zt8IyiiE<f|5)wPc>1nnmCeu4ox~IY4QZ#R+Gx{CIMB;pH#T7YHyR-ZI`xPu`J@(d$
zD*B^?dl|jGXXI)6f%UUoNuOI<T520#Oq7<+w5O-1-^nw{nGX7~E7;!2DcUZwDu>%l
zaDzxp&@|p6ZhG3RFx&_?C2l-B>CM%Rw2X|SmIVim$CVY?6J1{|?eFWOl$p!Yck2#F
zg;ZPtmFdIrSjCQCsF0T5^HFbZHl<{w+M%oN{CX3h85C*<q^un0KNp*8T_5|7E>~}%
z{TbO?*o}0qhemLVL!C=PX3s6o*-J^8U+(S1ysBob@FM_&*Ubwgb){%bV1e$z@uJTP
zeTexA1_m8`(on;>CXN<#E*Fk*S-8h_FHqp(;aAg_5@M%%ZOOtjjJ8Mi*9~Y>H+iaP
zx+GplM@RGLo$-A(@4Ye-69q#<L)TrLDD7D=v#`+V88r}gx3W@VA5NN_IvXyU=DUBL
zGj4jVMwhr%<D4pEf31b0qGC(YTi0|T{+EZE@qF$iWVB02O43(3^LG`xwKwP>8El{{
zAJKp6l=(yT$em`NPr?ZaG#c%4l?~##9I{`0sKrmYWkJJpL2C;<Up;kkb$y)B(e&B1
zV@7|TzA$Y-2{5?C04!BPLb~U|gl83EY3Rb_!v!ryPyIay0o}}N;f%KG9WZtMi@R)D
z)s~k%*EI4kHEq?g^uzF_W6>eD3Le9^I9bQ-V}XTb-*Njshv3!C=JAP*@!i@&7Di!H
z<t8JzlP-C#amJaSUTiPocvQcq)5<X~FArmVnzf_Nwwva2S(Bi$uS%N!$id0M!6>yt
zOfh9P*-|l3Y`-tRpniz)3@>kB*^Q(Vt)f#5gKP{t1Hsh#bZ==_OIW<|S}ly@QZZ`v
z<=AGL?SaQbolj`CFflNwb1!BxnMRjywWnHHSv@;;{fhx(+dKBBex~&<46DIUS$$f9
zPqf9Fu6nmFJOmlpomCrTkln~Um3S9XMulnT`1ge~6<5(%v5rGEEhEF^{hvR}IV89p
zdRbGS!2Z+&M_1!2XLhl^jk!?E6x;dJ9!_R7UAccD?v5YXBsMlS4dGWbGe$V?XzS>t
ze)W~?2Kjiy@zeDpT@WN$n32}#@-lG?1EVizPt$W=iY6TUm1uM-I~L|TY^t+?Mg*-9
z%KVK)f6Vd?1*s`cs@Rd+!ftyErfUOj0cnveAUr>TI}04;DDJg{o}S(_OkBjs$mf7E
zB2oE9svMY`n^T%uDZ1^iAkT?J$5-ZvS6($KD0O>)sFeZkAmacmhi9Q&C<9nO5=774
zKjblyGx~9p@><t>p^%vEr=*|>`$0_iy4cVAgl|x&-=Hh|)am7PJ1Hp%!>?qJBf8s?
zO@_p_<Y%6cM^)~FcH%?1qdQUvPc1{Sg-TabTJ#jxhVy^CNx*@jh%ccn{3|ZzQeNJd
zEy=~?%vhKoTBrmLpM9YWrN}b!q2DqJ=B$9H`a9(@^wgtWk*ZR;(K4}67?AT$G$FIM
zWjVX<BU1G@BPPq|Cf!;u!CNvCZpxq~Y$;f!lV*AWLBA*QP{%!k%WIv?eF)aTm1K2{
z5x1@|#ds!C2$%5sFW2TW{QzzxB(7pE+i}x6P+U>DIj5_=??|_OxaUyM)wwI_4m3aA
zYYZk&QoH2&LC*diA5t2J*hNw+B#y%0fH>{WUI3TxCX_q;UJBsB_Q|k1#r5mgca!u2
zS!+Ib$xH9u+4?lA@)V7oU9%{m3i?O0uH=N;*HTF4ENSoYnPfjWu**sQ!i=*rOo$iT
zR(5*x@c7u6K!MBD!5-P|+qP|+CTH!z9i(XEE<r{s_NptF+(<?J5h@wTDm(dZL)<yi
zkG7wp&y3UbG1bF~gR?y3p~qPGMJSEh$I~;&5vv@lrVy)E3e83e$tj+wo<kO{c&B>`
zveu`hL}<p5QrF&2a1xwqB-zVCww79VPO{68bEe6qfp(}&`}&@&Dv$BhGU2stjU+$R
zMRO#DN~#^NW$TO4gqI50$@)-NG9q{C3wyy+f@E;HOL)_gS}qB2TzK2s(IGpQ95gsM
zh#hxyU`sMeX|FdX0A`zUPTE1OY=qIVT-uHIxJ(gnHY8tvSx$0)k~5Gm?IS@SI%Cf3
zuP}wgD+FsqmM7F+1#nj~idy5@$sf(Y7e)YoNI{q7sz1|0UoY5$1iAt};m;O8%{ieK
z^CqtaEsM%V&i37M_HRfym6VmMTpH32m9?PSvLltEkByrlIzyfy;YJmx#^?X?ITTw#
zZpZ=4QUCe{1O%K7l@MiZBOKyFtmt|_IyKIrVTIwvRJ}_?)A$=nGkuSJxl8Vpcz;ZI
zqx0+^YlMoipkG&Z<$gC3<`DZf<B7p}`!FjgtIA5vhZb|0R6(dWo}s16F0`z#zrVC&
zuC1eMXnt@=ET$6GM!IpC%isL^ez2K$Ybt7OX<=<lFrLZNlPyc>C_XMFGGy@e8YLF8
zk-n9R6Gug_s3UNBBZIf2LmjpCeBURi@rk2Zn4FR??>}E6@&}8rGL=BGAdZ}R6c|nS
z(Sj+Zia<|vVf2voO%RH-w7Z&Kg>P08pfacye@glpyZ+pCE~d{G>8H%_%?($vU#f5b
zU92-&X35*bLK%WoEG#VM0f{uYWnudjz;(hRU)Rg$^D34Jq}Lz6E}Fh<R;xg<j(jfZ
zy2=mSdYX)Wg=YSUzqUV1S5;kazI7NisKKt9ul)ZsvNk?c6~V>8b)^2TZ>Kv5Z3}f4
z48q1?`umb0kTd50`tKOy#j7a{s2z=pVj7x=WItdYX+Lq5jf42mu(4IdS?Fpzwno>e
zvz?b`p+lyJak;3oe1w*HU0^X(Ui<6OTh;q3+qUK7<E#%}zHbpp;pJVl$UA=G=S36C
z)e4JVmFLedY7PJEYd%?I2VcDS$NBRAz6IO=o_i6OShKudAxpOsTRjl9rF6ke+Ymt$
zQ8ySB?Q$w7FabeWckSBcBgE>vdSM*2zjF@0h|dA3S^LZ&%ng3RkCXFngqG|sNNS2@
zajXu-n7pW;oukh_qhdVgTr=RmBOqN7?xJ;tdXSHmiT8v&CXtJTe<ytO6NSjrfh_le
zgIAR7*0+;rEDn~GY)gB4`v^6@NF<uLPIsAwsjBG6$bD5(qi0b96^LZBEIz%0OoP0f
ztdK+^w`%34!201+C&>ZW*vt(duX3K5neq1hM23lQ=(0rT$E`#v#GT_~)%b3}n9&ZI
zP86<9(B_6>c1{jmyrac;L@=-{_`A4U(aDZTmDtM;4{py}B&zZ4GmJ>SBVAw^v7pUi
z-73alWNx3?QK{9u($`-i=oF29J#{=t#K|T;zR}{yxNJb7sbQqA@tXq!VPdpH%h@Wz
z`<AxL@4mqeN0=*o{t7Eru6)ehYMH7eGy1IRDwwy6$woVYm*C`!nQnq8<@ty8l9q|1
z!lo9A%&hzIIXRMF(?6xu7)9jdxaOUlcF}6Adu%NEP98b+e&3q|C{Ka}In?E|LV9+f
zl4*fZx=z1KTu&@n^p;Zkt^UEmb2|R|GcJ;<gI32+IMkz>{9)KB-HQLOtgO6~;5zz*
zBc<J?6;MKLb4zxqdtTRm*VOrkkgTY+^<*S9dLHTR>x*r%KpMU*E;boIROlX%91$PS
zkE{%3KzCO@$>!71>YbLb)g^sG)Fc@r@`?i<H_l7w|Jb#Ot&keE#`$rVd~?$G*y!h_
z-<wlYfdPtid1d<r=sBsc7@TtmFN=w7+~uT1XDsB`7>U$(KK3lBRjjnI-!4jb|3o?9
zAl9wOS+9DdM*2WiL2Qjty;`i*m6ouH4G2%jw8|~Ay_^uOtKjb8clAcKB-V9^=lm2&
z8i}KU8`|>>dN%GwanrhE&yUrB#+zTuPb8g>RTE2^JY;$8+H3O;ch6j&xq{hK%lP8L
z#@i#!B**TG4%!qJG-~qs$F<U=hOz`KQU-#!cMVNnQb>#+7{7BPnO!eS_grjgdfSt6
z<%%Z8wV~#B?L|RCok}x}2dt(VMF)2ej%M|OEU3+Hv2c7rdDuzTSh=gCYK!bTI>Qu)
zy4=?pRLXaJnuBgEq)l(k^=WBjihY_lGZGXG{%B;$#`_d^PqPt^8JVP5*yKkZ+gb`w
z7ckN)G&DTLmc5oZ8j3IbK_>m$=l95vY!XK^L_T*WA=yxjAJgk+D5i!+#uXIEmc=o%
zuTtum6332d%`tPYT~^h<c^xz|Wx;%?$~NnOs~)mSQg&Fp_ki3eXudWm&vBe7+UBhb
zbhKekb*47bEWIOoZH6aw>=&>c3ZP?(Hl$TwYQ8k;!$a+Ay{2ClG*oFkD@Vra#OM3Y
z1P%8LxVyVEc5=}bQRHEE$U!yv@bOI**`8p>+jlG(dOttELS5AWnw0WfhX+s6S>?tG
zwnl?g_p0PLHNLKOHqLTXk_}n@)2%>zL-{F}Vz+w>i#4=t5&O$4LnU@?XrL1ivVXs*
zX7iFEWM`uvIOkadvNXk`F9HR`09Ze_k;h@>aF2L`G=Jx{w@cO~Y$k!@g=5f{=_4SQ
z*bUsS3*}FKxg1TvKa!O|nC)}Lh`fl6S%)`<24<9GwIKa1ps4eeLhQPjZEuFoVk$=G
zh!fzI;5}(H(Nj6BAEN|ucPdfYb32!_DtF}jV%e-u^}0~AdGUB=YeLf(auznW|9>8!
zqFcir{!0tMVx9kQV!_7t|7C_0lYW~0ya*CIB)g0tUjLc{CiOUp)71KMRQN<+1WoU7
z<j6>~Jlrapn5aazz<#E+Ffy0W>UD71D5$##ihgE+IQ_2a+g*2AFVsKC+mE9`QPFPR
zDjQXKVm!04B_!CPX~ObI%ait0pHE5rL+p(f3Hm%0)7jQQiOS5An;YM~BO5-rcK&Ct
z?!BFD$8nG}Tc%btN>u#O*tqtAigdUUu(9n&&1!c{2oHWQPgw!U(7?bzbAm#0S$0lp
z<`N|E<owg<bLedTak1LVrJqPn4=^7XFe`1vt3;zhvWZr=B|gtL%%bAb<AE2Dy9cK8
z<&6vWow;GQY;{~XD!I6s=$i^o)4|`BP)!6;)LnMTHg$NJ_uJsT`g8@=dIgU*2Qxh%
zaLVTQr&|@CkIc!*F;7N<v@Rwpp9S+tv>*YggHGy^gH2;c>mz1kD-7)#*E-Kk?@&{6
zw*raAaND&(%q(-=@i#v^AFT#8l;ZrO#W4S!?TsgK+okjJ^7?{hJ$+_Y24A~I@8}4d
zQg=xduu6&GEn69*j({Aqq@lh8l0NFqh80~(lO9S`2tK0Kj9SwJ%goZzF5>E{npA6H
zVPFs>DAYeRR8?!9H$E<=m;7NMtdY50R}DDMnId!fVIdC7%DFm1As1Lxc%^Qadkm6S
z!+qDp#L*5;K49%};}Sav*jZP1M6IZH1r8*K1@yPiiY{%xtu(pg+`P#`ead)pF_hj0
zjIV6ftCqH}6FGJ)v+~3Z#mFg-VQFCXw*L8ww{9u1Zw0j+*P2=X=ewqBdB&Gs98j)q
z!<S2Fx5@hSByauNwScpz=?am3`bE&1^fNLqPW-Ljk=kWjw>%dYzG6ktXiOu@peGt@
zoM(bXI(H39>oot_o?5ZZIJs(DRx`u2d#<j3$&gl4BlF<FgVkwyOR7Hw9ip=$Z4>uD
z71ICtQIsYMaTMDN@wSoj$5Y8X^SX40w6wH{M5`$};ZfGEU0d(quJe#la$RyzgYLk_
zX1R)#V&~bF$Al`Adt~Z*51X6M<Qw^*Tkz7Bb2Y5{^M9+d|J?^{Lu2n!b1QTLWkHH;
z2i=x2pxS1$=ulheExTbxe-<b~c-dkl^(<<&Gx~QzA?q~0cI{ekKB}psfHiGk6IL2>
zy>NRU+}khRW<5$;ok+B)R_3+Kgx*>UI1W^g1<70p8Y>QAP%7FGdZ5552MgEGyJ#k9
z9%Z()9YpqCWIBY{wgVwV@_C#K7{cj55WffnbHdj>2Pbnnkktivev{J1VGTZiqK%<Y
z!+j;peTondM^PWjP)6bn=FHVB7QaAX)GFtmir_#9(e_aYR~=XPy<lOULWNM&s=l9<
zw8cc@MW}w7xl52rLAIpr5CkN7ibBP#Pt$+Dh@4kzNCX?9|B?}eBy1lAkxE4<(0kn<
zkG}!Xqh#qOO*gdy@%xVM6N^L>P!e%fdb(f>`kLHEMF$NUYy9TP`2oDVFRs?YQ&TfQ
z^u==*bMQdQ{`zIo(idCE@c|g^U&qJ&9jfQ_m}6rRw9@olA@m>x93SA#4ku|RE4Hfk
zvC1fbhLwDI8hm=&b(_5Y=#N2x8m!qzbA8b~{;>?LCNiP%K1wcS%htt3<)glgw{C?{
z`Pks4Eja7cU9Etl9~Wgd)YM#{(UF6$P*XL)k*w}I&}UItqnZK`GCERCn^~EkU$|M-
z1Tc(xh9KJm2RwoC3E_v^Bqb%iLyfzRJ7Ik!E*T<h+s&K(2605Ufa*CR?>TCzvdlr+
zIaQHeI?9PH6P@(~kEO?V&EZl9Y#bBveWEQx-|c76M6Q>`<pmrKdvtR@LzE(sT^O0>
zQgG{*naz9sR-Us8I{sFz^gKhpfv@r97j&)kRBN>(={K*pMo4AqkUFXHdaFiTQdi}H
z?Y(A6`ifRMYHhMgJLsYAJhI74wlrvJn#i~4XzU7BD@{~tW_%nRjB9m#C>VWJ;jvHH
z^NeO=b=Od_%lFGIQoJm^f8G>7K0R9@W|K|-QUCl$!-R61G?I`Msayl;&RujB^HP1D
zwW*%k&7GZ{yz0x?7|CiV=6!^&M8Ml9iKP~REu23QB&bJU#GYvX;p@arnJ0`tZW77H
zFE48+{5nYDrsDe`>|dNmIUYR1zLIUTj_S^Ll5no$F4?3kb?CbYRQC%dYC1Zt+8^4u
zv*3hv$2}oBng{KQZFl)BP?o#)-t8iKw_SgKdO(tZw!GQ9&vB$iWn`3i*yU0EJxAzt
zdLT~gqnWR!G4or6+O@0;_0rMIplMR3dyh+lYgXJeYh|UyKNJQtreohZ%Y)vP&P0P-
zUaL2px*Y_V(d=ZGyr+%AOtfv5ls#XJF>PetOyI$FkfPBhy}h}{9kLD%4(mc+S)!yw
zm#6>~*JjsFF~J-kzW(JScW~jn86kNt_iHuFCQc6i%w|YY{VA7-5UAe(H|!pt&4!Nm
zD)lNz7lv+oOB8P1=cn6#OWwKOzpU$W)%H(oHRiY1gC|#=(AMtjv4M6j)>W@Ls+!S1
z)NH)oS#vP4xg!<dAZX6Pav{ykbX?yjEU2zjUR7)cg>EZ*^8EAVY;hL%Is(pyOw#Q<
zU?3aaFG8?tYFD%YD~_42z|sy-h=izsi$W;ngddYAAnh8|HR1Y9Kz?&8)(e@nn~Bb6
zs>0?RkbOuK!!D*8M-F)=ot*_;`3(}LvbS%K6Y+#4tf|%|E!K5nL0@)4O82<UbI>lV
z3~@IAKV<~za=cVNAfhf9_*$RG>4|@6bP;?22`1t&FeEHPcYuyH(V+x}I<_3Z($QLv
zw#qnm16Hu(jYG74e6>t4qnuFZAjFbtB3W-#uU;3jIQ#LED%bxZIH{G7&<j(9tGb2;
z92T}{TIqpmSDEV8E5}(1{;H+vkN#eeL6wkaeBdtGD8JJWRdm|BEe$NU#Sm~k6e>;}
zVWRQ6#UGc9`yoUb$?cIA4x6rz-l41H9*P6(2AV1#bAt_X#Kz&!y)dWi{P{MKet?;p
zDwa<H|00S#GX<^FGtRkQc?z{)VWyx8BAoipd;LAo<nL~g%|qK=6(k9D_#=}`moAwu
zz{{nc$c@$|#pKU34HiV9;-OH%+=+wqZ!cKzL{EPeOTr-z1tmEdkEXwnAiCjELPjW2
zbD_MiipO$Wp{XWIgiJEyZysX(&Gl>cpa;$x+p4a$RWi-91%e1dxa8uS(|Kg4N~BPb
z;6q9PbJq3RQX^s~{Ma@JdO0nlrKd+>7uOhl6ZV`^1ToaXO(E1UIB@bIXmsc7XEr2z
zIH*pvfF`PEpdTVAo6aqlH(${)t5i2JjlnX9AXht=;wD>LJ|_e2O|CUPBO@c$)g2h-
z9T)cj3xn4BJR!6i#?T48pwwnDLZ7R9e|t@EJ{`Q5@CNCz^VEpMM60t8?E1SvUF>Q}
z2PC7EXGIR+m-+@1*>q8dWRxOud4rI0D77(44gbdJjX$J}5D5W7YFHh>|FOKKZ_iAQ
za*+l8{{rk+(+OX5>FamwbTbQ`{HgSI7sd)rRRc&(%37gq;4UG$l1}q}3mB=(<&nGt
z;0-h56&)n6XeM>q6|h|xI|ROz+Ir0xWhz`|W!u`?SlZXPcMbJ)p`7n2CAlWZRLWlJ
zqf2vwyuF~Hpj;l>8M5$-4i4yoq(;k+P^c=g_4p`;f3lkqtiPUKowCS&Hh_aeF8M0}
z8}eehhK`kJJ>$Oq*emirNEqbu#AcklxSt&|JdF|V^s$-!Y};a001k^}uVQU-v5<dp
zF#nIl2C2E<8lWB`+$C951TOl7_<s?K*Kr7=2pF}~F(1{=PKWvn44N<0o`;8A=sD)<
zBd1%N^wE$3Sz9rYHWLK>KD%%wF4UjM&Iw{Z3MGu^=4>rlT0fI;@q|@JY49DKFZpXi
zPWooWudc$U;|@8Iv+@&u^Gwpo8erTb2>SS0>PiBYhmIP+0wD{Yen<Whgo>l}*bWjc
zEMkWz_z<o>hlu3+HDXkK`RSl-R$Q?e0MWq<ltFFy96C@ZWUc2=MWzsG0O3cW`Fx5}
z`@(nQ0rNa7h#Z2!T1(^LCKdk(v@0*p`P*drjZGti<Rdy<?Z5@11rT=oyv9Or{B(Rn
zx;xG~mP#7}7kQGAo_%(B9|73FI0r!n9apKB5au&LyZbfT&zip1C(OLTVq>8)ZSp&B
z?W7s^+*YgEpV-197qf*wy2$-^8&3_>`#Mk77SSt9e|LkL0J5U?6n)0Afwa05C=YBb
z{}N4olefQYW)4mG&xv-n$*g^0exe83PENCDqKByZGt<-1Fpda6lXi7%C^GnQPxBkN
zWoK>e!oqixL_r}5aRcq#Xi8w70Fjq82y+nWDYQICP&pSGN)Du{Rv!EMz~0fZF`?aW
zn^`i~4ZR2Heq$1~J!WY>Y3<M;NW$i!?e!=~@^2OfGc8Y772-yMNjL}3<4>p!C{z$2
z0z|f|WWFobZ+x0`9uTz{U1EVim&CsFcZWs=!E`HVYl)&j_u9MVAB4Wb0b5B&$ME5n
zZIt9w9I`(4Ia|$UMQZi$i+SwmGm-ZzR4yr=7Ob88neFsrF6W|0pvcdL$w*@ndSb0)
zNMUJ+e|>PIQQQE)E>R#|=JX_w3Tl9(s3j13Yy=hCO*vXEsF2q4Z;+Y1gtNsCFCl7R
zMTm;F3TQoo2f<-k3{+ylsYKPEiseVodhEbKN$!{|JW90v<bgx2YMzcM*1)R}`8`>v
zEV7t=q@m&Iu{d4|)NMo{LUa<)(HW9W4!Rm@>n=j1!+59b6U=m{Y94w#amxL=E51Aj
zaCwMr>4EJ#cb4lw7(uolYO8W+%$|`nkz8=41S5gGW?jFvI#-|Q_GZSFG@l5%pNw+2
zRRr@Ku8SxKQ&FCoz~a!%#zq+w8w7#@ICXg7dEp7U<ugK;uak92Xl(5Um8?DpohQj)
zDv7vZ^{#{hZRRxT03q!j@^40bRPTETXMLm24tvX<#Z8idB%mi!*xiiOAO{aV61VFn
zGL@ZONpZME|MS6>n8?@s$AeS9eTYGnCPsx1w)-o)_p3rZP4tna=py4IVi0pxtzDL9
zl5JdDTlwHp7{lsV;0zPDGiLn=%EVWN>Wzid<8Ubc#QG`nDk<nhEu`|De|#zBz(ZpF
zIRaCXD#8Sad<~d3UAO`9rxs`}t*$qm^TXc$+m9HlRU#IPcEi%)dRK*whaKx9pyIYo
zE8XQsV`?iUwh#Hdewo*3-hO%;1qV`||IxfYCDxD5BhJxd-?ubB(q|Xa)grAMeAo_j
zKB7xzy%B`pE>HM&WjQci;7YDWu3-wk1?^t_<~DkBuoJG63zH=R-DP|Up?<k0_YZn#
zH)p#DPEVQ{SukkLh02WS@22TL>h5@GY`uY)K@$=42>iVbG6-FSMT*MZaNkA*f6R#A
zN1?)i{!PCKzsJce)0$To;^TMkM)M?hNt#*RVax>(-90ooSjlfNRmxq04JaB%vr52W
z%TqEkfb{zP%Nc(E(&~+#4VB(aZEezH({soHL|6O!e!7+?7VbBuoz`Q<&2)5hGzL{g
zp$h2dW_HsWTJDTZlh*+XCAwYuFxTUwr)%`RxoAnO6~kRtCE41`B`$Anm|?ZCNO|!~
z{qyV0chkZjsx>nFOD-k+GAx!w_8d8a2ysW0FFryhAF+i<>dak2EZZD{w%lS$14F3q
zkMo8h=03`Nx6Qn9lNr%)ac4niE*}}?r#<!Q8h_XtYk(V&zg?uRUDvOf@#TIG@+^&_
z)fOh1`oT44Tm)N2MW`;|WJj?N_fb;7!!@QQxoCCh6X(nxd}tMgCzQ}JHN1)4_r@i5
z#?qKNv1+6(fSa-&?zk5c<9CZWwr;&Xo0hI0Z1wM7t9*@j%5E7*{gth7bx)_2EgZyd
zP`?ovWY5F6xNf5LB}ZNeZvNCq9vMGE&Y;vL-yEWzur9c5R-Tg_c!G|o@R~^9Vss`y
z=6;C(dR>Po%|jW9mYp+GGv5)rg<TR*hSg!~Pnj=g{*7FC=XF-y<9AIycGx6=BZ+P-
zLe;-NE@gE#57Ky2R#oB#J}K+U?Gm&ha&YOgguj@5L>Fo>`-Pn)9J(!kDlNa2iKFNg
z>w*Ydj)oCJkwVL|z63Jfi!oJAG^Ql5SVS{GD#)XVlo>HX(H5GMXw;>o;RXx-(Dw^3
z3@Zu;4euTE(AG?@5b@B~Nv=5Tp&f?%v_p0alXah#*lg0l_a|cyxJ$tMS9hA56FJfp
zB6lF3t1!0Y2;W0MAm4CSmLcDkF;04r`-aGfxJ%H&{1o21#z@*wKH2xxl4OQ5KYhwb
zfWcsJWUrnh%6awOI?ymu3p{>~HU67DGe18cx8ZU@@q^`LJwAw_zmitwP#Hq5LnQ?_
z)ZD#iQbEh^Cj!em9@<g?i8jeZ0E>(}_@Uc3u5fkj3aesAchWszEsK2n1`ZNiGy)qz
zc3m1R!;A&;QBP~s*3vBC_w|7Hs4bB$k@R2gA#;4Z8+xe<ly$+Z^a>GKKC;_~_Gaek
zUf;0BXu9!s*~EDI-iKjgW2xc2U!z}nYAk)LbvRxA+Jj;^*#&VoBWd#XH8$Of#i7-}
zwGo1Y5YkWmOV2}{Ky=ZYz#8!!wLC=p2nk3ypYbnInv#kH=?;Z@^XARd0omu!)IwDD
zB*7xpE<}M0zK0VN6Fe7Zs!TNJPo|70A1MlQV78n+U29SEJlcn(Sji*WBnu*E;Y<3A
z7A-#y2HukJhOzR6CjdCr%TMAHe3%0?$OSmjgEE>o<StB_?S$YrM-E?7SJk2^1f9e@
z2uhl#v!>T&$jl{8W=)XNmYh~Zwq^&T(Qeq|SHTfH#B(~@Q-MlC9}X*zBXLZdyMEsd
z?}>S|Jkq}}gEd8dZFz*1we6pkwL^Yb><#JEfEJfK@)?$RK{2#c6_&IH4RK`QL@*i!
zT?a6V5>mU9#1p0SCn~Pt=q8?XmiAd(q-~Bgx7h7QqqiI6xVl|$0Q?cDRWU|%G7q`8
zm!Wk6<y6@eM)-shAs)W%(2lw^nqbG4#8q444g{9TWfb+-oMO~jq>|*u^|@G7JL!jk
z1pO4XE4huFp)icDf-ck+CP3Yoq%{3h;$HtkhEvZ8C4E=Uw*^anR@6Oy4dZK1ZM^Vi
zkoTlRb^IUN7OrM(ap!2-(VBz2iExTZ3U}B(6zS47alJmy^oPEU-iuc;%boIsGGE?}
z`EAFeM^ZzaXP+NE^J@xKYI3gp>i%!yRpJGsA>Q9gN^Vrv9Hu4l`L6~DbPMD>JZt#H
z6<QBQ>oJvNU!LdvW%q7hn3!F`HanxFbP6Lr>x2}H&E07|k*C8?z%1qvrXpMq_V!+h
z4smaKvcY|>6Pk(I>IZ%Ve`uN5c0f<|nW|>20qa+N*=IA&dzcKKSPzX~H*OT?>Y0AR
z6I@bS`W|G?p1`twZ?x{j!o2yl3)7tKEjS|hBwA!<Wu4gn_{7Wemtal-*BasTYHELC
z(1_$QZN`DktKqaF{8Z}3;iXHLme$+BOYuv8bxZ5UP@mscX{B3kS5Z-^hVudXT$P4&
z@3ho-f+Slp$|oT3)A?zm!tKK2N{JTgmz4A(9YZWPCIfwj{m%o)Uw1EAvc!3~a|wR_
z`{p-Y<*^KO=KF<(Jw*C&%wcBxm9o*-=-|Jy^0lM>c@x8P?qnX4%tK$_#^C*X_bz3-
zHq<U1&0%B$%a*?Bl8|hLx#^Nmj{eikO_y3s<kd4hYN@3r`!;U$OZ~E{ov$CJIBZ@R
z;Sinw^avd;V{A_<xq29k_@hcNka+_WFT{~w(V6Xkwda-)+Uv#`^bPPc;Li}`;#$U5
zO`Jj2$DeEwHiUV|aZK76MnSh7GZd`K(8ISQgmVy)fz1oWW2>;~8uCC=qmoo4&!zin
z?tgq4vqj0Rg0+P=T*q4vYBQedXbvP!!TgplL&-IM0FELD?R(F&y@kcp19%Ly$Xr{~
z^i|5T=GAiYLp@btt-K1YhcfcB>#XWwI&ZV%_Q^dm!a_oKf`fwxmZtw9*rLHlSMF|9
zFQqF7q{pizhqW7jPnGMZD^DLAW!;7&cI`HeR}ay&eLjBto$b;0#MC>c@~gMc)V^%%
zelYr=nW~+5T1DkowiocGSnnGp&?aoSXV0Fy4<8<#KGodXs-qiHT>S?Run#sb*ikgg
zT;j)fII#FF$M4a%cLXNH#%m`EO;lG}#pbkKY>L-Aa^%R8w|&+Y84>x=#F{p}-s81k
zaBaX!Au{Exi^-+?>Hek6$72j3wEl9$Qhq<7w$H)8pZQpN-XwHty5tu*tG!(e9>b8n
zo!oo(Qdc_;Yn(trc%1UTdOP!ID%*dJKQbgK6cUn<yohKpMU<gIMI_2RMcLTq%tVpU
zB&0%KR8lE($h0Xkg{Y0P^_ohN3MJ0<=xwd@Tj#H{&RS=$omSez^W4LCy6^jQ?O6iu
zg_GA|i@#nrQy{#t>$KJO0vRg=9coR(D+9V8ALqKVcReUQBU{7=LSM?;p~OqW&gWJr
z6v0I1RLk2bCUZjQfd~a?E|G3&Y8nO51C!JmoA<J^cXEu)(0yw*1khyI!<D<z9{2p9
zI9nvjTg8#8%|T9X%txen87G^^MI0XZG&MK#s~KE(&eJ?OnsXz-g#LP_5U>S86Gua7
zDw=Dan^0sTKWy0dL7MhqL%^>V)eqk;udCBg``iDQ{rSxclXMT0nqN*DKtu#V5{wt?
z*#-m$2QxN0g6Lfw^s`V|_1^8<?ARO^^3b(cl{lO+cjUf#6}XlL1_q+{iC+xbQdl=O
zAa5e|B}oLgQ6LZV+<ap<MkJ50@Od0cOqq3X0Vnywb9?3BS!Eo!4`VQF2~Ag5IY^-x
z9y$~bf{RMiBHdRVhfkmvJK`>Hoj}aL2%kv<G`@CnmDCy)->FX)XuhTJXJIf#fTDjq
z%zF8C4kiDyUh|g<7SkhLv$KKste%PhKeO@i1vD@Zm|_z+Sws*Zc0>WU*}Xp4(~Mq-
z`KSABv=iznA=aS9FobWyJl4mpsR6u>Dec7~mpIJ+?$-}e$&0z4dXI7hR?ZBTtpJuS
zh_q~bBK2F#6E6whMbkihlkrwCR=2G4@YJns+qUs9kcstzgEfH0Sd!+&=Y(TnYPv2e
zCr7U(CZ5G%0nr^h-dfL*R{@Nek$Lekqb_9YwqW`CPac-y#i5Kaqgaho)8pyN8?yB!
zH>>LPfqBqYOdU{s07TOg=wSG_W4zfRK{)W3fn2D7HXq=Smv#S@NOptc{xYE0_<a0e
zJQ2`$_kUyg*tP9VASQVnP<nI;lappfT@au;FSxbAX$~}oI&k-{JC-gwmOlnbE^Z;A
zV~(n97LXutKNqKY>_+{e;^0Sx_Yal+`AIu|_6nLM_W^!Ft5W*%z~`I{Mb4(fw||!A
zY0Loqu}G?XS>x)b*M}eF-^aN+)2G4epfFG&Ue{CVy>xHp3J_Ry+}$_*nED(a8cIB&
zQI_ocKvJaM;ed=L?0}qA#d&Po65X_k8_l^BkoI;j$zgH!@U{}AZ=FiY$^t^$Tq<GB
zE?&EK4)%#;gMhcLovIOZ-RFJwdT-Wy^C7-0`#zi)tBA99EyIxBy?b{hoH+ISM>Bgz
z$6F5{a-)u0g(^dQYpa3RhgVI1xjKiWbiAn(9DLPDrwhU0Yn?bDjdJ9L<mBjEx5PRg
zSgi%c5!6Z+tYHj{FIU(lOQB;}SwkcNR6}lPCWe9HTv=a_fNh)!%-)Z@I}VjKU7IxB
z+jTJ1!8?Hg_h4p`>GjJ#re!$>)$3aohsuH>hww-#?%jI){rhoAs<~>P_MeA@;m7~@
zKc8`oz<(cmc-8!((FeaD66e;G{dt$R_6pi^%RiqeCKheGSpLtucrI$^olgAouBhF&
zy8l;SC+jso7X%_Sp5|qKZG$t&3}R*gzJI+vWFP6dJW7Nic;j3`85HJ<)jbWGpEyp(
zValzX5>oN7Pxb;|&$QfstN-_p(Eu|=kAQsU*zRxE*f$i;+dbNoc6Y<Nbxima3?&~g
zspS_hU0PIP9*2Hn4}Ul8PG0zJj=O`yL{!wr+_W?TQNMrD^M5=#a*lA3J!EYyiW_eQ
z6}SUDs_H;itxy<!?_&Q+->V0h685qt?2Wv1>5>N>I<euR)|H`5${z1`mrzP)D*V53
zkdeXcG_}M_Ft+Z+v$5Y7#pv-%>@B7;qvT11!lI`G54b$;**4I?#}Q)g$~76l8D|eK
z<>hTq^MM472)y)8TU#*@IEB|Nbl719VKnn+7RpdNJsyG70DP;m`#XYv<IxC!&T25`
zpr2dpITV*sbN>=pLs><hQxsJ9TInVGjQO0^s!-i+pG~t{iam@GM|10dk6bp_`d!X6
z--(BK2Z)JB>Dt?5<Lv&S9G)1pJ08Z90d8)RlA8#5@cWtlBM;}<U%zsU_0AXI))D3N
zq^7ERb3idAJSF8=i5JE^6S2jmn;SGgr<Z>(fjOV_-E(tk-NbZRie*J$G*%1=0tz|8
z!m*?XMNLZ!7o@Xx@7-Gs!q}htT-Q9aKRN2z0i5t)(c-Q>i#U=>Re<0k^~YCdl=jvj
z|F-=xJ?#hGfQ~SpBkG7UnTd!qXKq0`&tJ_KOnkhUi3s^gf7=RZRQ6cUda+-i-LPUX
z$yt<&ii%dY^($YAiCH?>d}Aq*r0BpAGER26SPG-aLCimU*r#t%sJ`UsloX-BprAIO
zc4d#|vqO?+8WFg37NCNH(EpNA>yXYVE*2mR9$2cMcJ@-+0Z1NYDk<t&A$V7{D!$qK
zQwHBTU9W*0AVI+KRHcT@jl6RroA|c04dzqZvAe&msyMhdf&10I?Cru}N2H4<b%LQ&
zehMksM|u$#oP<+fnMzM@uVIeK#)ycBcQ{^B3pU!sk8dY)7`=IRX9enE;L}WUHa6&S
zvykB+-gDb1d-)0AKEccV_@<!o@9nW`;$g?n(ZMI+B1rp3>*@;zI4SC9oRHG}7lq&r
zQ2~ac*LKOAQ`oYF7jp;*tj;IB*9sN?F>h^n@uC*h!g$1!JJStFLxmu-1|=G<_d`QM
zy-J{}%5IR6SxQ_;NQguSv9PdIwzsc@+o*@I(uKst<6GoCyC-{E8(LcGfjr|85{iM=
zOeKcF&6_vb+1V>`5AN9Gz@eu;s-^(|RQ22WIo~aAeZo*%&@(j^@PY25t4If2^(+#j
z;hvJsyd13H;KssWEMaA3l@wX8dB@lm_aLy%MF59~)cySZZ^2z8ZE;?KWHiS&b;H4%
znsSNaQc}AEH%dv}?wQvH)w8LgBlB|-klkV$8X{U+TH{~8YFk^UJ+Id!x%rHEm7t&B
zx8?)}6eVXguiUX?2X&qL81I$^W4Ub|H_u_Jyj2A+!A?ZLKPQ!0Aq^@{jfsgtE@JHX
z6LA`C48fmN(L5Yv1QMYbXHNB<yLNrMiekwrg(gh2uUW~UUM5L`JlN{AMY8K)7j{TT
zfMX|kUO_@aTS{7b1;!@}QB5kb$Z^@#4?szQPh_#t+S2-y$julZpfIERp&Q8zQ|Km-
z_s=}&_b55%npw5DSqhGBM1s@gGza=+^{3t^%U<=5d5S40v{^$D+p-!>8!NKXsQYJ6
z>s6b*bl<Tzho7~yD9uc}^p<v7TcV3swj{%5u#2F0*go^)2L}X#?v5+3+3sgB{^g6J
zU<fq2(~PAXKW6{bu=~ifYSr<_ip$nK2ApguK&sM-dVt(Y-<zkS)-6SF!-B+Sd1|Mq
zeA#Y>P=(OE(D+aI(cEpnLKn>3>M9;MAvV$$+t}C;1m-L>A5+R6h_VmUi{ydb8e5T~
zn^A>>L!0dCIEhL`T?!D`DUYd2wnaSM4S~(7F>HvAii^`VG`y%YqqaGqDB%@GRxN8b
zr{NuA0gXUq669|ajH|1LAQ`7C_Rh0&ap~>Z6a6}G)FaDt07W(YLdkjVB^YSdwNX55
zMQc?&SV%PL#Po!n*XO=o>sjPpyKw7mkHC0}M|Os7@);wbsz+%A{kS5;cVbDvmE;Q-
zLIGt<4CuY&hlXV(95+guBvS@&D+YWWW=iwAd+mwu=WD#;q-!<QA^oU*Ele(L2xDLI
z)KhGsGB5Y%Be)R>V^2pqoRwfK8=eppE)JNI!%5z7fDM!Rj9?+*Dr%1f#tW;21CNoC
z0M&-~_QJ~UgyzUjO^6|(3LaTZSm^4qLD(&vTxCYWUU2(-TAC=;Mvbz#9!%UuS-<R`
zev^Z-#h=lvjV}B4?8z&}&ZWn>`3F)pVq=Ar&V{txP+J93vq4TL&LvD^ejXV#7gDg*
zjw}jnxvsJj?Ntl=fXTi%Ru=@LNXQ76VV#Nyy?$MI7Uu!@X`IH*CFvlRMq*O+!-z@A
z%JRmCXlXGaggp&%8k5wRfd<5}B4@A%V=)<f>Fd|RZq*j{lm`?QTU(i%3j+X|ZY-S#
zwY2R)Ka5>2LrHRr^Gg=O9TUp@X|RQx3LJ}olB+OL3CBowG^SqKp*yvTEvY-?4{W@2
z?b^{S=BM~JZWbn_Bs^A6AjDQOAC2S4Z|>>u0-A<PUS8hi^&=gZ<67J=K1IEN&BEdV
zQF(7Zx#7fSy{iB>$ZHI3UkI7(Hz%lBCq>=<Vy3EdT9myS6Sp?#$URd-$CNyJvs+);
zU#?G(4e3xnq}=L<qR~!Z^=gleFWbM^Iu6$m{m<W^%<cy&R}4eTLjU-4%Jk9n^mMk#
zR!~-KEs<tyPHN^i+R}Y1SNiS~pC5~e>M-WTUkB6MoFdTMF(VLCvXG1Yqyo<oiBVI2
z3bMc2`q-N+5i=^mo)F?HkYSQT^WeOpR$5=**tqW*L@`oa5mPz1KA6YiP>xbBiYBpz
zXL0dBX0Q<9@$vEF$j&k*^mKJOhzR)41bXn;o2_~G0P|k`qW-D_$IjPwY?@@m(e`LR
zb>w9xM|^I@7nz(UVZ*GehwkvUqd(i7j*^a5%!tY&&vTIn_J%Q8UA^=26cFhO<`x!A
z1d{S?(f{BkoZ7RNL7~(D@JQ^du3_+G9!01R1xO+k%OL_lMZQXD?(F0PD(vY!=|;2H
z8M$7-UkR)Ea1yOKN90czQ5)?QWvwdAg||+_KMFMY_E$#&fPS-&LM9AAAu<uby7JeL
z=?|TO_s1!SMFfJ6yPJMt8$v(oDZVM6oJQc0-eF~-BSlVBl)!Li2~`w#DKM7i1NNJf
zFnwgdq^!I=wr&S#*+eC#gsi1`+f9eMy1HA~uES5ul-aOBFR(97i}~_Y&iQSgUdixn
zjCtj3r-cyX80q*g@{~><^Y{0^R+frVC}!~@A}Tss3;Kt7wlogpQ*5v;o7LjLQ_Vo6
z=r=vS4mrbVG<-U$N{&O5g{X5xw>+I@EX{BR8wiR!Hr~n2b+0Jjw)NU=r!urNocTB+
zyO{zJMPzuU>gwtWHpxgxuxO5OF<*7BEt&W_Vk99UVGSN48CYyrSI5Aio%OkIoOvi3
z>2=1bZzJvX@3!?WF9)o&!&)_2{|w@SMN)L<JKtac^I}1%k&)u%fO|d1g(ZXHCr@G~
zP7Zx#3+?GK&zKOhZBabCOvuqt->v;X3z0NcVYZqw$mwuG?KHq9N~F0fSG%jCN{ERa
z&r(ahRU%FYzY`W{F>+1;xV}2n?rSNC%#&2TrR(C?y1Daa-N$LKsFwJ(J6ydwZmQhW
z2$I%tdy{{sEguCDRQ4V>N*&RA>~O4n|CGSVp}MV-xL^37#RjS;%+n2q_h*kuC~DLD
z@0#T7UsiCwK|=`$Kk>M2TO;>ohMUVN6_@MA3bGYB>lrKxO-)U0^FXx4G;HOhUo>f+
zc}Oes(CVgrM|9S7oaui20$Agtyq9y0byHM!B`-t)g>|Ic(v^^uJlBF#?>67(P)G;x
zkQst(7m)y>L}P=cSNQR2_!dKqafp!KsSd<iu$;zPVE(HTdYaa=hntN!C?@Z3@QygA
zYU$Ex^6KT7v0_~x#V~oO4wbbRqdi+A?@XAkEXuqw^y=a9<TrQr-uq`@KwLxV_=%JT
zr_INuCShHOP{bH?*@NW7^DiQEwP&RDrG7GAwQ5z2s$T&nUK=7~PJvAX^rmXTEX=ci
zzJjR4%tyBB>@|-tCMpj$DIMd?AuIl&F=G7MA<Ur7*G#xs%uBtVk1A636t!pGTHXU{
z`Q<P9g}HrMYF|DhDdEfNy0N+II-O3*ebl@xR#&_^_d|bw7-k9s!H1NTROr#%GrAdJ
zqU<oe2-yp6a|Yajyz%rb7L;tSXKmMC-83faaCBuxrcs3PVYoU*z+oNnfrUg>e<3SX
zXVH?{{COCcTYJo%QbnV&g6zt83p~)t$e*Ayif`S@CnqPj``|%6oDdry?Uc!3v|12*
zp15CLhq^%ip6o{(N8)$`=VnW)yfD=s7iT=bRQNJ8fF7U|a}lm7x_vVX_FQhi)+HkS
zp$EoN2kwa=%RK_>{#y{j7?%5c7Z(>_8L9Ox9MSR`s_H`w-t=Ybce}{)hWz!t0&YFU
z{gu0~$A1zoNBrw+EkO<w<AjIkjNy&2Yly392!Ux`C}K4=44`yc3mX{QH+Y}E&T-UM
zt+&*>2F0)b(b040qBOjmF;;QaK#F&`uUw6=hN-{`ZFnEDOg2=<i;9H<+HR~m1?fNk
zcJ}bl2T$kTSc`l=A+r%qjGCSU=f}XBAzOPLjTT+>E(AOz#{|2R3Er;5&FfCOq!*&_
zU=0h-pJ>O0FmD=L4G984!|nqI3YGB@@)IR_k)<wXS>=8K0Wp&iR!H2d+LTxIwvB_m
z>i*yFuJ05sX=Y~T*|TSru-oi7ljj1xx1I{?szr$8d+u$wLMDhz!|PMeYGA0*xO{5d
zZ_7@dhIhT?_O`;--&5BE3IaT^)rbv?Pfbc97&+qD>F)_H?ZLo4aPeLG%FKjUL$sL+
zkAx0abI?1asTr#5HjI7Rc~G3B1~V>QT7gJl4OU>R9^yBrPmy5^{JOkGd{k5=N@5og
zqon0C|3LOUjcg(h0RRz-oDX)u!AGUgWcARQPsZG6I$hAdmECeg+5NtMTn%M}v-p!z
zkY?%tj6>e^c3D|Y)ZS?r;Nze&O?ab9jr!Pi^#FdzO}wNVj(zwbqhSR}oi?74Lh1IK
z5Jp?R;CDJaZdjm36#8<W>bdF@>cnDViV>*6d_7=RaDopa4$~-lx_f&^VkLIx&Yhc(
zaVsuOYPzW|gz74PqAy|{Z5^F-)IS+xgXlJ=w-xH}xy+~<PC=?SDZvei5FGP*zf-6B
zk?pZBU#<)JY8{0$XU}GY%+C>f^^D>~)ImAzK)SmNassX3D@knFAdXvtuJ^*sG|3eV
z2FsYpT=NYnB@&~E-<k0uW@hU9XFP%6jzBK_MqAm(P7{J#Q1BcCjV3-r@S06SLxa42
zDm4rXN6`P4bA1bgNGcEh+q&j*^_cQZR}N(I@bj~gqpW*+X2u2ypwwS~RUz@Bm?#~a
zn3|HGJPqyh#x^YXAX(Lvyc}KMfaDX!%qr~Ki-C<wXw*wL5Jg>2(>eS0g9q~VipkTK
znE|W9avSnDjLqCkPX22yNsBwgg=A$n@fV1bZB3T6%001fVtNyll;)5jumw-|FOD%e
z__;G@)ru7>8hU(k4`L!-gp!YqY7o|t+-JTxK#74F!6iEfM>PseFPilvFZV;DfL0mC
zyetd2g=MG>$)0QPBTf5(u(X5r_7W&s+l+soZ*Y<!x*s{j6elIELlL99kRn8iX2vu;
zEND<w!ZMnqkL&0FY$ammK!_;wC)ymu@T)@x(fDEsC3=C^zW=9X=8e*tR}OFX!E(WE
zGijQOezBOEo$;jd=#0e+{`N<esNVT!qpAf_Qg-OqYr43|f|Wagm(5}$1Cs5B%2rq^
z!m2D2KBoqTTLFtW)6>(HFsGPk_1O7(2IYtWSSjosiKP9r<>V_)gvw#@@m!Fh;O6Cx
zfa!lcN%i%uCrc5ig$`hI%T5SEAsz{X6b4yN$0Wv>$yYuQfTBzd3jYs%KU)GnOcoFt
z8<!&Wt*Z$7Igb4t>8RzgO+C0*=;7^6!}O$14(<=cacTA?OTw`7R#sNV&BGH0&5w7e
z!%l;HBP&-UB0bPU=IZ|bsL^+a!Kz@WYazYI0LCIl4LXQhK)@+O@U<RlyBBWUh($<c
zhaPl#{V21W+|4MU>@JE$^7D`z0(!~7O$6hf28*o#4HE2<VMEUBBj0Y>)6=t%Ze|)C
z;3n^Y(8TgrE3{)4>+K>N{BX4Xroy|NWMFfV^~>ZWjrIzgO`_4Ks>)*ZZBASKu<(B2
z^5uW4nQz+GkuNpmt0uz+ZEbr`OulLWBblyP2z;_2wZPuLf1eio>xXXk_I2c7eZ-=-
zP`JHlQHHe*)Skmo!b9EP;E4}K@9cYS(qCX#BYAC{5GHHuM`PjhYySQGRhW#X6@e;*
zHKLy7adiq<xpW6?+iSFA$*wb;R4--nGK^WtF#XTtqV|9O>;F>pC5v9<<Nv9~{QJxP
d$Jc!eIU~CK+}#zHFUftedvp$H-`{B+{$F0?rab@v

diff --git a/reference/plot-9.png b/reference/plot-9.png
index 18195e100b766ffb730fb8a94f96d2b16cccc8e5..12b012bfbdebd23356dd91919e0b1f2cb725a58b 100644
GIT binary patch
literal 27619
zcmeFa2UL{Vwk}#2+enuIRFWc!NNQ9-LBN0_qN0+sLIaW|XNujnQc6-(P!RzUkXRCn
zT-p*8BxedJr6h+Ur=qAg*N?ql-+kUb_uO;O8SlO~c8{^QfvP{OHP;N^_s!}3t5;OE
zY}~UEhr?}Ay`X#@hg<7`!>u;`X&w9xH9U44epzR#rlJhL!hZ{A3kmSchT9kPoN+k5
z0Q5hO(B27i9Bwa8Rr$20$IFo}&nKF_&y~g#lVb<hzQIe!#0dAK=WRQ7I_T{kN1pAR
z^t>{<{jnR{g3aV4r0k!qaqYRqRdGw(wP)My9a|5+{%zg4V^Zhu45$a4IkhA9^g!_#
zgR^4ePsMeb?v8~@(awu6$wMV`#kHf}f%cRVR`;baAyw?z9?G?wa$~<cRq>Mt2m0Oh
zi|;p~UmspyWsH9Hf3j_S75dGaC;r$+_r|X&LVw1I9Qe8x{dz%!LlXUZ>f(m~z$Ii>
z)8@-%UuS0@yQro{pQsR!bUTsM&)fhPnBGzRzzFwqeP<_caBwgl|42ynQHrV(O&xv~
zllaS>e{=i0)$h~D-FsBSl*5D^OYtf@3VG3kTtD;AUx7??$~XM-LRwTJ|9jZ+@%O9E
z-urXZC#pxcS*N6#QdqNr8tMwtev6IK<u;^ZF4eGXn=gxti_eajUwrA>qL(pMBd_A=
z>1mta8$NMY(q|tmE2B)FQPi037;<v*(;;#3;D&~V`6`p;ZFv0U%a^6hE1w)^j%1ky
z@VOBuCntBw*y{Ssq?iQjnE1Nhp?`^1Qc5qHtlTAKsysbPmCfz2PMPoFrtAtmIeFo`
zQ~s=PoT5~BPOCAG3cu&C=&sj{jrj{lGSyyskL6Fy(?eA>G#bx`<|l1*<fBXkJA9|m
zLY0<10xPTs3ob><h#$Q4?B_y8iMOV<_IWEStCQ@dskQPI=p6~2(X0_mo*c%_0KRaV
zd*u@m@!6_gCn@)_&b-M=QToHPTkkKkm@4Mx<|FU`jxBnYW&1-<ZgX{Yjr2O~sT%fu
z_%OU}M@NUuoL;flj2tstXCH%FGw;3{_TWOs@2@@R!LnhaWSZiAqMI*kmQ1m8{vx80
zAOu&m3vunRN<5IFL$Y^Gl`<>;&ZJB?sC|Zoe7t%0kvGkbl$kV#1Nnv$s$oJ_w{Bgi
zIZhAKW(s(G{oChct(1-#mVWlFYm@D@e!11oRQtlwun1$XBqKAfGqLIP-#2WZ^z~yi
zX=INgb>j$fx0h%;d_=}0)iT;Q_eTH1m!q}cD_GNsN?l{DZr{1CCBJrCnWVHdBa*s?
zhK5tE!d$iozYRf4Tl=6!!X>MzywL@}KBs)wa^ozE%aL@y`ELQkBaPu_Xym8~20HW)
z?JdT+K4h9#nKFv!LdZ0~!W(ABj%7O?mnJI6HuvZx0&BPpZWNc0kYHrSUY?_b8o75#
zb4eJsSyOl%ilqEzv!c&AJ3I4wk7P_tMYD^Vm*FW4d7ZyV+3~YO2}@?1`Q(mS)V}Jn
zpq&fkDpO>RY(Hx8<yICWVJK)gPb%R`)E;CMVz4ZCsE=3Gbe}|~9VnhlBofzd;woKQ
zn4;#;;1MDmq8-b3U(?pkHI5G8_d0atMDG)>S~EM?i4c0IlHynibIeWK_~hLZhd^Hn
z@(7W_91i$PFON&Lr0Q+Q<5`O{fwZMQ*^JxY{<wAP7ST|G8@9>X#)dAyo>w`!JWrpP
zArTY~A3m(l>##UI=*XIB?Kg2Ccezar#D$huJ{8>`QFZR@*|T3FWhJjDE`0Zih6R%k
zQCu8wyX%jxY*zh3TFScV?X#nnS5oz|4#I(LYHluTR9E6VdvEjSx#ICZHqncwY62_x
zy~PfTiqg3$^XH1#%S_}rs;jFfYUCNE5tOA~ANKR3mgUa13avdE+!BVn;#5LwB>R84
z@!mggIK9wxqNl9Bsc8p1y*A01@2F)>Q1M*1JcZVlVMf2hsd#IuQ|4SOiC&(Zo*r`V
z-n}-@{wR7z1%Kd+7cV~bI)QT%Qr)(m&*kce5UuOiw?!B_sV>h%xp%ksDXNB*mfqh!
zMXCrDpjopOX504rv4%}53>=Dg!s&Tb)%!XrNknn}>z!wczFs46JQqs(UpikAGssO{
zZP_3#M=uedWg)||O?V(j$O~8mTa99GAA)z1j69|di<jA~ZO~gG|J8rBK1*XNdg;6H
z@Y064Y^z3@Hiyx8oS@)tB|jg(g}dtd1ulbLgguHL<6pnSOSRo#8%jhVyMkN3^0p6T
zoe$pglrfiI>zm%}Y-4YKr97A?f<b`8p3_GDd7~$ve5UeQWg!&-Uzdiqwmj7edlH4s
zVl2?Z!^015*|H^VmM|C}G07sgTSRg(qALUlCp{-W3mbGUXY}>;ea~*ZQWff1E!~>k
zMt-Jt%%#QG;1hETyxD-_m#^Z#X{BiQQsK}~9Soj<Q(4MnP@)N}Py0ia!N&%&YL(ba
z#}^0Urbwjxz85l~Qn%`2@_NG!1RsC4z0GVfaNx6i=~ynuPyl0>f^FS0Tl?z~$1c~_
zUK6G1y0bhZa~(FMvZJ*p!ETGa=R&L+6LP%l;jsHHRGIWea3C|-xOg>P{qT3!5n^|-
zcLi7g5BRd7FuEPYf`#@3ctt6jmQ-yf`@68xXEJh2IUa0Yx3-%T3$=ujvQdF5i>wK-
z{p0LK6{W>%-fE2NQLZ#DrXTWxGU}_k1&@!s`#3oYr=ub=TYE@huJf@20q!4i`p&wX
z{MumI?q?3QuN369(+%6L*$#eFk#_fp0Rny=B}Q6WJCTnz7^S$K%CT+Fyk%{zPpU;9
z@nJToNmi3Ms4pO<9ESy*B(cFra`M$xc23H<m7eH-*_h5y-RH}s(rU;K1%nA(%;whC
z3O@JFM+DzWk;EO}=Y5&8!SH7(LBVh_y=^lyGi!H~AIc5?-S%FsDLQw%_o+@FmD|L}
zaWjvM*ug6=cRBah*d4WHy$QA4cwTvlNnv{z&bFg7=GoQqvGIHeZ+qV}s%_Tg5(Tg6
z0U1j(Kd19%W@dCRUw*>Ugpc>AUWJ{W_h`H4R9}uaC0Ogza2p<lwnPE?;}H3=JRk3&
zrlbs?g~=_m%#Q-gKf`&(<B>O*Z%R~b?rVd`l=5Ai&YSNE#3Gcs?~n!x-w=3>`iHA!
zX<rzP?Zaa3%9dT^vJx8Xfq(U5fAUYWU<v57p*W~q`rFz~JyhDVn@``-XcXis{5e+l
zEKSvh3P<}m-8pKY6fUG%v^bQq&?-=CYpW&`8QkSY6=yFp2yE{Z7WL?AsYq6TS~eWQ
zoRpB<FVBw((-dKsUuR|>0f!V<RCKbkswz%BT5*Atv-*AG6?t)ri9vs^$VOK_dF#T_
zT+#Vwc1dsF>h|yR<ODykj_J$rrd5$sQc?`~j;e;u52_RP7}#c<^ZB;PglJ%&f54*p
z#ZI*diD2+Uw`^?<`)%yNFe7ivM8#!|QB7$M@SgAcRNos2nN@@Yn^%RGvF2z36>!ew
zI0hf=6zzefB|?}jegC)BW|QAP^YGFi6JB?b9cXR>gyA%D4Y@T{uhE*8YeBcSW^ei2
z>$I>t1~0JI6HNcUv`ve$k&zMjVC1%!ZANjwL{#<84S$jL*uT-4Pd+(2J3EG+(~9Em
zD35*K&Eipb)M`?#0k}mKUPt8=x{+t^(}|}fAM>ouHnQ55G;&$d-?xScL1H_-JU9@{
zKxhvSkJ-0B?qZ?hx#g?f2M!#-<1?IkE9V;`N_MbkOxQWy%h8*!Q#V?-=E8~aDSZ9<
z^&QJP&yDzP?oTflhgdnk=UD$;AclP7!*9=&2+ML*2KZMWCfZy@-^J|XEyE-Vf2#?>
zcX?)C0Pi-9#4Eul{wOYuf4pUH9|GYFG8@W0P66YuN3AKjEybe`n7N5vXoXJ=uPKVW
zZ!5z?wIdtx`cBt7wi>ygv$M0i^x~KZh4ng6;sL}4*V)g%9vK$Pc?VD6#wQw4m6nzL
zahB>px!=rfeDJZJW!l$PV{f~thooW?8>Or1qAuU%5-x*@RY??zu@@nDeIY*<x_^JW
zaG#0E?GJ0yLS_O@mIP^vy-zfHJ_|<&#f8WnzPFWc&(o(*A5~klZo15#2qoAKiP&EC
z=GSj&2^vo?aq#{Fiyzrn-WNU}>MC?MbozY25v>f(dwHS1b=ZCU!}@-zcv`@sYP64k
z<HLPt<#f&a<uFeLL6a*ZEX0Q4dMPre^&9IOC*he1&s=YWNyq`UaOF}Jn>B>VzxhRH
z&$_0ir`tQP8vzSzdG1>xa^(4?Cr_XDnvnE!lB<1<y+?Com^-FQM$_kbVEO8fa4;<F
zAw#MmM@SeIbk9CkS3E&0fsC5E(+^q5!tAF<`{M}g<w$sz<5ORbPK^!?4ZS6iBu%9w
z6VisC$v~=S7sPwwh@hgr<t$y=oiO=0`a3gQ_??lro0WIVj*^)c1NrOrfh{ExgypGd
z>Ih|a<a@a7);T-(Ld@X8H+U54`uh4BLUuN~(bNXg7IzBMXnE#d`1M^1UM`z?kN?76
zgtXdW=B5^9d4@!f4dAb&7|V}zb)rC>!6;#Z|A06pz+NP=JH`SM#0~R)S*9y3$2D4u
zPP<-;gGcsZCPdmlfU+Tv9wI-<h;nIAwF}8``#FF1Iw#L0lg3sonTle##59ESp-4O%
zA7NZjv${cXFuic>0fgG@YAJboi7S?ViQ^%)oM|-?FtE$fdg;+~f1=GSv<x1F2dWGF
zM7>;$s7`v2@GB2NWMjG+rstHEVH3)T`28(BDejE!;Z(Cl6kEp%8T^nleo}G~kEkj`
zxkx``D{=&VC8zJ7Tvw%6Uq1NwKE$2lneCzWjVQNT$H~tNXT!S)R&{tyJ9wOoTlKF!
zApNC7hz^Q98&FR2n@PEnMtayP6<jiYSMoclx+zJ+tf%z;g8wvee~4~B;bivr((USB
z$b|7b0;Of#CcF@=u0Ul&B!VLgf-q3lZW+x7ZcBXr#7n12k%ieRNeVA=8%5x=7pBms
zpjMJbsUj+*sL~eT+7(zU@ikQ^W7ELrF$#M*4-!CX^W5Lo^Xpm`*X5vvb^LrFqV%$C
z*A6`1p=7~=7ZUfh5Lw8Cp2^thM-tAM*q#m88r+^`S@B`L04g~%Ov@hZg2X9EK&hlH
zzIW#k985huJyiHDJSWpwWA0N_iQ?%7w_wNVdX<XtZy)LCR1h&2Z4bp67ZaUWDd)Z~
z9uPQXVkZeu<wW&BHRz<M=?i&LtLN=+!d+g&X^!>hxN}a}TXvHbW>#M1%jRy07Kmi?
z!zS!K!Y^;1DO}Xi(ke3xRcPtEL{)u!5czaky6YwNlM|)j+Wb&8IGP;W1~GScAeZ<9
zNZ(7km@l1cPDokSyu6Z<l$CDQfoe@7MlsZ+yN+61Dx8%R5xJlE%Ih#VxNZv?#51NN
zbCj&Y=q{EmsA*Xmu~f2|lGE1IEQOHHZ5idNU05Oh-FFy!M19kB4)~G${#O%U?{Jo*
zGl0A&BvoZ2?OAj%ru&eLwAqonda|Nfw!9GU9S33q&XbHs3ojuD53eG_@A>@^vLLg*
zFV9g4@%HUo;-md4<<F$ddLUU0<a29_eO&u)Jh$6x_}NKMCo$uq<9>66v@$4Jch)L0
zZK1?D<TW?O2PeQgXqS{=c?cg53VPzXZLb?`hEj*09Rw>;-@ND8AxLY&2o6j06FfWr
z*t+YNy~|7eN)-aj;{kchu|hK_XEHn{dUpMC<5bWd>BCzUrt6LmzIkjq{`EtY<Hq_z
zcZLTzN%}&6bSPw~aB`mEH*tv(;XZ=pLA$rZ0kK8L@tU6AZYZ9*-)3y`q!nOJX3J+G
z)vz6fKY`DK6!6u7J=kylJzyn*|Jzd?<NKEmW_>nUFW_@KLp|Qet78G-F4LO-h{I?e
zR1JI6b`HDfyNNIV84w12_us*BW)8b?+|7i;-~qXP&s}a~B84^TfU>dy8ilY~K=CBP
zI#5Mx(CH5A=r~m^OO{)PRCZV4Sb<G!6{=lu1Mlqd<LQR^N3JNbrf0ed;Q38q<sc0S
z+I7O|S4|xq6;;*GUaT;o`%o%qheAd5VF*K%4*d?_v^es7m$bEJ(C(uL?``4X($dm`
zXcre7yRWY%is$jc%MVUC_m#pUaDzEp2ht7U;5jy3Q*pi7i*AnNYZYJB?Z;XyGmkLJ
z?PfyGc>h}5`EzibeZZW8Y0I-@#|BklyW3n2%E~g-e6?*P<6=38-*Pj%PW6ibvH|sg
zin6k=Z*lEW9ADVyUm?>F6cl_B85x(Jp8jbk$3txZG8Tg3a&u*%M13T>N-h}^KR~tQ
zvmMAkc~CP^tSD8f5=+(3Ih>rF{NOrZH5$icWVm|U-Y1B{9gK?=7cH}Lb6fg%`)~bh
zk+l#l49TD8s#5_^BO>|<3CE<RbMlvj-YpC@CaMR_jdqHpMBdL~bG9V-WMMBUBdlP$
zj#1<}B`9e6>ES-WhPq8DgN=z5Pzjns9(4^W2*8Ofc>x{EfUM)(!N-HiP8iPD5l>xT
zgsK~>hBriF-oWcX{ZVE)kHdE=$}{8DBFeX`pTvI*;0$H>^vm0&-??UBz=Mk1K&oWX
z_#bVqtwyr1y>2*X&MtQC+_@7F1?^I6+=Y}J;jPm{&7zBQ3={O{tQ<B^ya~k*HW#15
zAyby%<5%eVKC-H}=N^wev9~Is!m)yn8&YEGI;Ix5o%sp6St${Z9{l;Gg9vhfBG9MP
zjcPYBStVJ4ym@nTvmL)f&C3(w_Db}iqm!JsRyCx(dGn@hz09gp-sVSkQv_CB{aJui
zw&_h{!pVqOs^22yQ^<h^N|x-3J0JW2Tx4Qd$^P>}x{Tt=%F5$VE1D%nxjon<S@a8l
zEPQI=V)vmsbG2y4R(Z5Ve08^wYENIJLr7w@pB!?yfHzqMwAS$*`Sk+wLdYhk`l@ZD
zzluvrh9+qw=H@9xR+qzBu8WoP?-7-htR>M|-vR{ALkbP1vNt%h-Bwde>s+bIQEBZo
zeXZ{gVC_nLnSBwDQ<IX=fe_SL<Dz-)+_?aDW(sv}kw8G9y26Ymx><5c%Kpe|`-W#9
z?`;Xpcka*KU1O2e-ewVLr{8I;p^>H9nD)17l`tUy8Xg#}!*%&b3*&a2k%*W&y4LIM
zWi>_Fqc#DB;Pp)m{T6!H>g{*_@Y`BEe&IP6_O_9C?2q1&RSnA<Oo%i^UK+e^sg{nB
z*2CNGpTiC;tWV6Dekg-J>Tf#0b=0GEt9t;a06)Sr3qN+j0YX)E58$#W0a{`L;34Hb
zJ2KzVTEd0LL(m}D!fr=hS3*}frQ#B}y9fm@NID^}GGQ;a?vk}P4D@v<o@v=7=W=V=
zHB3m#bMiZi1%b?wT&n#ws73OA!)$nCjKP{B8?~@E&57p^s%F*<!zn{4m+9<CJBoq2
z?{1t%&{53kJEo-K*$1cs;`biGKfjcarM4bDK-;0`-yh!>jsjrrAk-d#M(gTMLtc$Q
zRy;lhHpWtq8+VHYIX_fk=E}-&de1}Ng?2D4x6L#V;k`s;#$>r~TiS|d0Kx@>k^={z
zy8>6o2>;i@=jfsT9nbww5%?jkkyQgFPO95dA|t^lc3g5cJA3Sj&osMC(bkrDFQFXF
zZEcwH^l(>Un-<)oj$@UvTy<qa`SGdt-DMK1{be?fXmGiQoXl=B$9^1s3q8vJBKVKK
z@t=A6|1;L`zvC&qb{6`-dIPw@#fujo7@d#!+|;_Wa1E|wA9xQa*1;gBF938kyRbUu
zBa~MN6VfWZ=zqDnsj2Ck@7f}xw;35yd-m)>-%YZ4E9tfYmwh%&2%NRS$dQ<ePrn{n
zv1Pzfu9-0058~t!5G-;3R{&Cwe=x+?T`Tr-J(;j`+%0wmT@Z8IZIqCk(f@lp&I)i4
zfM65a%uj_v^qt~x055_b1t7AgoE}g<#pUPcLoDQL1}tGK!)D8W3up8%v-vNj;Qq7A
ziG0XL^Rfp!CjfjbgJAhH0pLZ`g~{G}3W2>#(Z_=qvil53uE{n*h+KH(JKL^X;^R32
znf-($dr}f%rix(c1z*L`L*P0{;J{J+3gEtP@f^*YQ4EE^`7h6;_M;#RkzRaV4#d?!
z2j5`>FxN>&F;G(zm7=6lL`7{Ez7hnWj!VZ0>}s~D|BGqkkQWo6io+<LLP?zGNbiAC
z6<x6u)z`9}x6c+$l=GnMRt3TszGf@B&5e%*WqXPc4T1n0^q8yHZw(3y3xl(UkVurY
zB6tChp8$wa2J*#LDjOny2*h**F}(C!9E5C%3(}i)TlVab?e;Kx^5jV=lu%}a4e>_4
z*4Vp<4{>og7|eFL(}=_iVL}jza%ysgR80ZA!{Z%$?hB`r9UwX2b#1x^_$a`1SJHQ&
zFUGLEl;0Q578FDqs<^{eT{AHez~g~8Y5%&sp5Nn!vhvBfPUk4iedxpQ%ZKqCSo+u#
zha(pi`9#@Og^LFgiD|hV$z|)`ZQ(z8Tu`vvXR7*2>NfO+8+4bzfYh7>$ifd^egSng
zw~<S|7gZ<Sa5tX4*-`d8{c0Zk4Bpvb^KU$R_Vhr!wsCw3AvwKF?~kr)XU~!;#khjI
zmkw@+C<|f5E9la}#|{xsp3E<C)ZMh{-`?BX`y*96Cqtd^%<Gc-8<3KYAGgSsPWD#O
zA-V?w6l+(kh#2CG<%TUb226o3h7zr&@2PEVyWri_1L?dz;~x-HOC~QhrBqvVjIB9U
zZ+_(Y%<>;=2llkvw)ArrTy3~2@Og3${OgXUioomPTsa#Ly=zc>#P?1sBW2*afaMdu
zdOMW$nKrypo#+XaEPs0~t_O<i_8SzGwsZLuZDrg$CM(-djSNcwtpDoC%OuL4loI(^
z2#|I6y1fYp7mXa%GO8{F+wUGfsJcy-=Hq;lHQgu$a7!MLovjNRc{wu-n$kJj1F3&%
z0Wd7Sp~oX9CkH=qZC7W*NEeZqnVFdf5R5^m;;)|`E`|N9@FDqL_*rM1j6l9&x(dtZ
zH`6LGJ(39pFcoX-2Y}b^$QK+qu`OEGUlaaf$dMh~&@r^iZqSW`QSogIRnn0A5&@{v
zw(Qyph!^ZJoII}9Rw$?3_Y0Z=O<+6I2H5Ka;)TjarKP3o>+0%WH4bpem|LH~8KnrL
zyBaXv8--MTmSaSvWoCnfgIB*XRA1st%Fd>5N^?nxw);z#nO2h*OnjT1TuE4sp_T7y
zU!HIl6zqw)v-Pm;2V`2f$QbIHB4Ex?ijOkgk*r!p$7U^^oZVyReWrz-;Gqnal{*P+
z*03EZEiD*uvSWgZUKg<H`hDMP@Fb8UBO349$AF4v9h0u~+jC|nOFi8CAAc?dta0~T
zx3`1e#(4x>M40$_LUn~uGSj-4(^0NS&4I)5q#2}sC<Kt}*$HP0W#uJcGJ_rI<vDG0
zKsE&f;FUgQ%wA^E3x?AJ0j4@R27FN-T(-5n<l|QPQo>RNVMobrbS3}Gbx?oi98lc`
zkvGkr_7FW3oMt{wh3TtbfbK!`UmJi!rXy_`jsS=_GzHzjzL<`_xbN(}(vO@<MW5*i
zk*opI=s1}6rmH*AM^5z*aoMayglXk}L<jzBR2t|u|4P*U%S12#+2uqL*DDNAHGs(u
zp|mW&B)#nbu5K#?4^(0QNbwfj0K0&5xJg<|`@CI7ATH)IkeCl9`Df*?hY9g@>%6Dl
z4HIgA6Zlj{VbGAHK_a3GlFR|AmaQI-g(ep6NPMSU!!^VTFNb8$GKf5C@NsYsuQM_-
z+RR;^bMo*!Fj|EheF(WA0Q*03L9;4xauAW&*Jlx}G;q<TMK|&1y=%RC7#Dz6933z5
z%f%|R|02=Qe|G);J2LkFE%np?&t3#oFK0laqn)aYCsCHYki2N3LTMS(ieLzXYqM6`
zm^|bsc?*4!2BXd(2`UGcL;q74W*;)D<P9GE0G<FiHR{FacgmNUyBsD22?TWn5$L#g
zCkACW98^_RF^m>eEeLg_1J4@-1etx)E^foyr%@90BcnNW(>2oHoz0pH1+ZL+?FE1Z
zkHUEw8&y+m<rRcppkM!Q=~|L~mh#zsm!cIF5-vw_ZQ_;)0tlfEux~oB7sTS(4pAt&
zBAK!>GUWiN>35a@rdJ+rV6XQnOxDIX(~eM!J5&PM3?PA6Hj_gjeX+<=B-Gt?ijS|?
z91+Cb(g13&0i8te%!=@zJX$CJDadwBU%z8$88A6VB$&u!Aw7XD$Pm`1xI4FAWz4R+
za0hM$=S$pecisM{C}}#)Z7n7ls#PYj%3o%tl=cWP4EZ9`8VNzr-<SgOEoEAY!tMk3
z9-?ylqX~*2h066<=#8KwjtY*sX#^Jg9twXAhG=*`b<P-GhSzH#HUoI;G5~*fWm(oD
z=C2fB6n)-App-E3BF`6y<B;YQ9qu=M$8;O7nv872-3ky=^=hgWK9mbL1XK`@N17bS
zozJEJ<Q4L=mgm%ANSWsH*yjhEQ|MA@{^Tu?n%;-omUiYln{^j?rmZWAkB@g;984tV
z6$2;(!Xo*&FV)wL%+6-0;bQp0ga)rEMaQ%Oe5Uxdy4MMo`svWHf)($I^NGw9x*Kgb
z`ipJbJ0cMxEawA5q%6d}SK8n~y@}ym04-{Lzli=4x2*b}dJnxBmW-H!MoH938v6;m
ziN3n~f5fr~iaS!%(<Kl-Xu|Ah1;iDZ8L%C>y5^WbGBxolr=AT+qJV5U!%0mjC@46-
z@cr==$vGbqmm*LsOvFq2im;av3x>2vlq+FE2i0HkJ{DHDcN{?q1E@sgW3d9jKSb2y
zeIW=8%79ky`D2r05J05qbsx#eP;ghzJr>flG=LZB1oRZaYe*|4ru%L$+E2)55Y}4;
zm6U0y!YuL9!N#N<>@eA;UYh(|>b(7FcsLSeC@UjyJ-uXc=r}CZ{>agZl+((9ZY_H^
zZcn{sOFSAKb#3Gb?$*cmisp{}pUxsMVi%}qayy->R_HreA;66kJ}pts&nl4)x$VSd
zo6q^~m;E+ms#71oI6KM%w#3&#{+cv=Ai^-r<n_1v!mo(6z|Br1srw$b2jkYwcQTLV
z#K5>Zvz;fuMjdxFMS%J89Dyy1sw+I6L1Fs=C8r1xPr&k(rv*}G+*QOX$Wx(>BEtut
zgol@dGK&Xk=89OeRH(jml%YC;3=SxtP{^K+&UQN2&UZ2VxZ!w3UBmY46uEV96MZWP
z>(b$%zXjA4A?E}2ar*^(Abkwpe&zT+bW0s0S1q8S^0L%0mo=bWF!I?F#n%k8igM6?
znAN{NheSu`D1NNhU?J#gZBV0NBq_p+!J8E(V~^|KG?eM@Zii@WguO};mY0CdRhVQb
z&9<3IfnWx)QJ}S}Kf8iF>(}>kH~;_&n#|)s|08Z{_~dQ7>4ADcW6YY9wI)U#2=ePT
z@A}!j+tX4f0;8NBZZzT=PuI;5^qY<oD1!=&Cwk$FWe=qI09F2N_4;z8nXQVD3`OcV
zAbfWrVspQsAe6ws?ePGoH=29|d)4c48mqfO5rKHOm$(1efHYR~Lpqc_2p}gCAwfO)
z%4;Y|x4^~f(z9Rof$J0$d<`5(dcjaKQq20jv`NoTI9jy^ov91)#!*rOAd>6>ZJxOy
zfi;r>0*)mnScqf0c|;iyZ31`JbK1LN0tcEO=oIARE}?JwYr<LZ1}$X;N{MT{p;mD>
z1aSePd(HuKNtLeYU;zbl+6KGPz}AiY<5xiYN-O#L+om3%Q@utqt0egL42zm9T#T*6
zHh;hkK7{Q(JS&2nK^SD;psTbz5xPlpCCi@E826t8P74l@#=uQ%LFRwAja|QE47-9$
z@Nc!?GT)}9Rg<f#sy4M?@??L);rY$opwR^LJEsYR#%{}(^%iWzEYR3UJ``KEVnw;=
zA)g;PKvRU6NgW}~wp;d7QE~9s4}d5#ZebQAnN$ll5+~AL$+=qp^#jYG6sjaM=NL2#
zHjrJtR3v-YWP||~r^s64{_cRzuz62XXUCskvbe*<p1iK$xAjGsM$5>=1in~aUhY!}
zn^(8OoVggR<@Df`8;J4oUS3+Tn`IN&40bOyn%UXE@h?}N`+fVBPh^1AJ7k!&+aI?q
z%z~KPWWWjS7_J}<Zh<N`kRqH@E?v!e@@Md_212TtA4=FP8k>)@*h~UrfnYM>z@Bxu
zD}i}{80uk<_XgLl;ZYsGJOi%J^!ukr6Opu~gT@};?s`m=anq3<-`Og62!t|4J`@0I
z<Pi{mCIa(tb#^mDL8mFx@seeP<$gkWD`+@~#AovE_AlK!ti)%L_ErE9hL%rOmcnkQ
z&pJj$$!rd(41_@?H7|;yUH;f0T#Cfsh~u$*ifvb&oonUh?$A*LWI<Fp4;%y{qPZlE
zd7)%Q{K7z8>_Uzg_Te^<s6FF;si~=Ah`0ojX86HJ><807Mdd1E&xwmt`$vuXP`0#3
zWMm{ANqmqL%GhV3Y-x2%$K>KL$z6LzuitesaZS-we{JYlPK9G|^UmELvCI7&_49a3
zQ&Z_OlOX_PbPdHFv_7RA>v?|$-cw}y8@4B2sjw$V&!O1a1!02@`YOb7?Ogl?`>}%Y
z2Z794CH9ok!Yu69-cF2)9S{Oz=&y~AcHk6HEUH_%-8caqp4~@;Xc8hKBGahh0f$?P
zhRXxZUq#jdK5O6`_Qvx{@O8u&`gnuP>n=Y(`lLS_PL?|?7$SCvL?mDA0qYi>-iLmQ
zBNC18^4|t^E{2pWFAmdz`3prlazCUY0Vs{1#heR;ur{;|4nxA_$J$)~u(})M1N$Hc
znj#HDApGO^4Wr#ks$pj$FuzbIzSHME#!TZ1&VR5RR|JL8U49JL^51gE<300vtxrPT
zS<Eipar_&81HOE33#i0{=V$~axW@`kGV<W#iZ`%{;zB47$oXy<`pz^Xj53uxYNoXG
zjnfR?1wcC#B1pzYVJEOHdt;pVCJB*aZX<2aq;0e#eL;e^oyP2*gUq5c&k<#AHHWa|
zC5AfqMA}1LZt#syo;>IfJcg1I1tYu0W49_Tjr%acU`B#|9J_ef16b}em%y_K3T{2|
z{oy=PQ3mijT>y~L_8nWIa3suO(@LL42k9#ZgKf#^{+O0Ly!1E1Y`)`HfB*SI$M-1z
zzRPs=qg%$?Kib|q{l#(Qh_;4tvee^*gJuUUD=R1OSBh-n6U$l^_r)eY`1A?YZo%st
zRWuru?KiIf?o^}bO`-`bx1D*(6X08;NOLwO^?&o^^7d`jk1nopXXMN=eQMo}!2ieh
zA{FQfC-;aCch*OQ3xJ}|>Blj)e5&x31z@qU{wv4_tWHE!<#hPXMJC&|y^HN!aZ}TJ
z=9JGJL(M5_Rjb!+ZcDU_eDR{v@G|2F1SwxdVUa4?xzT9hQzif#&&~(#iSZs)9FHw1
z=oseox_a~L`*HELF>@&(?LN&KIeJ|sYj1Yq2nXZc&5x#|9XWXXwL?2D?suUc&V+O;
z`y@nWr-;TBkSs7-IYj|CIuj4c=ys$`Z)wpk*gOzXv>apEYi$k1;f8_G=tmFAOe4tR
z-tWC3K`RS|Kuq+os=NyVgdD2h9G(I)X`lS6L9JW|8vlY%NrU<HvvMEjieTK^JkyL_
zkurA4F1za-fFCXcJ<~2cUR+$fzO7C7+k+T^_JW+HsU54Xy20PE#^fu%ez;S}YaPMr
za0AWu({Kia@U7I^XeCOv&sctc_)15NzhVl!96-!*B_)c2f{N3zoKMdSWy?r^KmrN`
zuoH<0pqd_Rtoq^NqqS!J$$;f@iR%N-3y<^wfUvSHvYqcLn$`eJXkrNd$@|jhcYv1p
zxvoBfPOd*oYxac4enF&GMP3R;JsJDXT?|n0%;~ZtoJWn_yIhd~Wb6>;U1Dm7au<3f
z^S=J(0U19%is54!X;&jRoH`GR>Rq6TWfr7t#;&ZGVsL(Z%n5+93M4Z@N*usBO93O~
zxqD_GGIWnJQDZzn@gp@WPHNh!YtQ)DbsZgUxZi!a>2&FeA6&d^ANd;dPX1$mwlHb7
zC*Fdm*!249As0_3bWA+Sz;H$X60~sSl9{wm{ZmHW#w$*{?u0p~2Py*2tEs6)4hNQ*
zqCN$9Q(dnSX_Dt<;GCZpVsN~_Vj6rO3Gb8KhFeLYoZ!MH?g%XHMg0zWKrTQ_$jG1e
zytD9g2U4QZAWG4Z7z(v|z?B87GA};GoW{eK57rjp@zAnRGWnFGtXvAMA@n@Rct!PA
zLjLu`d&bWzBmG+TQksKriql=RdN`qk9uCIX)EMe^*_n!Y!@c4=IXxh+)YF$)FNr>L
zs$c8m*Dl}gF4>}QTmJqbX+GI@*)r1%4LcdTjvdfTV`B(`IKIN&1oNaZzOWL*!^8Wd
zYZ+5+$gGiAuJ=bYuT7rcu?4CWM<_Qd!VajtPEPJwd0C;jk^LSd5DOjJv2ipv363E$
zKO_P}%0lQVa*DuqsIDIzfp2SJx7HXyQ1D;fMrT3vD^BRoKD9$Xy3bz!0A}tVW?pVt
zo)BP5>FeuP7E^WeZr^O5!yM_u%*^#gvRy73-=`Lw7}_hFInG_lKaRxdk81nlpf7_T
zO5X-L0Ps?dJ*Cj-fz-#K43<dq?ix1c2HLb&V#RjVMZMn_{`xr#VeZgla8yt*<V4>y
zq&X1j3?_cc6a%H1QYlJn(Q!fg`LR6u)_vGwzgIlu{odfvjvh#&h=?jPo-1fALu$&m
zN$pd=zy=#ny=X0!ghl}*O6z&$J$BzL<itUK&@e*ADek@!^L(#s<+~#f|L&OdM*@3}
zz}Pu9mR?XG2M|jEk?8ULk;<1Wtex*2C%h#R(us?!zdWAtaTX~otrp;f8R!4VNVDJ*
zpv%q9?(81uGJ;Z6t%@>VCRzCxhu}VU!i8+x-f)u%Edd$XhB`VrV=IwoF%^~;R7#TK
zl29sroF#WUsija?wyXqxgp`JARX`VA6Ei6(s?H5nT)ef^sKnA3WD6{PUH@0FGxz<m
zdI*JCNCBsGCiZ7&!MaZd{TUKlmqGJa59+}|Z4r*$p8aKSR38gQ*QzL&LXOyXe5Og`
z?^kM`FshrqCJ_->7RX(J1d4!5IVvlQfm|0gUiHa<;zu7US#byue|blI5ni%OY!nIR
z5i$U%Plv6n>rm4?G@Eg`(|p}G@A@T1{vu|b16h@dzqv<1g_QWx>EhC2D<uTh1p~i^
zThie1;ou)f!opo36LROnlAoB`;aq=rcSu}9Cg>Fvpm*}_!59M^>kRo)J!add=7t~P
zi{#x#h`~Iv=M|$viA1P1XG>R#ki~5KO&(cdfk?>+W<DW+EVQ^~6g+~@0WcJh*5>s*
z5PhAHpmM|#UC;l!tJ;eKXxu>DY9~}re7RjEzTQ4iD!`S&g~~(!SO?z$?471hbRAib
zqKLspchsp_F6lQB_%_*^b#-NT!9e6ISKj_H7!1<QI|2{{;vH4ts2z|!vbPIIxm<@(
zN$&6i1S;PA$N5AjxfrrJwJIc(a{fLhfs!|IB`9(J?k^5|zh|QMx9pQ}_8OcdB5ZP4
zW3pP*cQ?=e)k@Qiiwm+(qB!4?o0OFFr5RhbX(RAO0b6*q^(A&}loWUyoU{ijZ?!6b
zS|r?87-C=T_SM~pjm++RF2e05FoCMdh`+{2J<BL9ebgEyXA9i}OAV7~CH`vT2n+*Z
z6QE0V0g5|-g_Pub`&48PsH;n!$vPM-D<gR%Xe^BX`XvAzkaU_zY|FON2;z~Iu+RH;
z4<bsu%s)g@5YZ#4Jnj@hyOB>m3i3kKAu53ccX^IxMa(Wnw;9W%CdV6+$udB1W{02Y
zg_reJN1{&JP>`Gbf*zy|cK6b&lP44xKC8P~3q;B~ghV=&oIp)z5q}KI77t!_1T8Xf
z+B1I5SlxBizH1xA4NOB>zT2`?SaIV1e2sfaqjh9fjhrZ|=XZfQ`Ux;V4*x)%u-NFW
zU@XQZpTj~25_SIZk0KHnQTfosvtJP!%68wxBKP#+E-tt<5??za@E2NdOrgPV0_eT-
zu~&&_x1JC(o_L^xI#a6LQUSj@4lRUc9obfn;JnHaZHEd^xt!6KGy^)6@qv&aK_90Z
zrgH`p&?Va&`9S+*Fp|K-LU2bIx#_j9=t$d4z#_oY47BAtTmGuYg*s!Em60M0VPl{&
z=v6fQ{6s{<6q;Y-*(9UF+(v3QAUBZwVM+j?kV(_?(3C)jY(B`nh|Y%~3tftzFJhR@
z)3B|INvZUEoP!$QP!It{uyAGZu>B)*J>**;?XNk}Ka%4Ipd9pFT0+Q%N{1SkgPkBO
z<s6$Dw9wNY>x$@tr$+$@@^<-=ciL3czAGq*wC(&Um=BNHZyx>n8)*51P=)|~G0^CP
zG;;Zz*R+vJQdybTrS3H7<GQRPk=9iiv7YT?C6J6F;--2ASl<C1S?d%DuEP*bqck-d
z(;6pN7bYcpc?O*WWzXUr{wG>GDhz>pYfcfCf}T|M78KdF*ET_v=$;2@I1e6=aHb*<
z153{BtF#8O0Di)WNPS@>dk1<4L(at3S^QiCYHWqRah6)Eq4Q<bX~?{0r~lxxyePWm
zRnT=pL7W2Vtt3d8JXohWE1}E4K-6drjxQM?xP2%aSBz#%=5`%9_YsT*NMh8x12|ei
zXTYHpBVkhUqnyI^1(1_aZLs(<5R@7E)fbZ8o@xg_XP=(!(ZpJ4s6}wvd|QPg7t)TH
zHNCyYx0Ph?AY|v>rd6Bn>0zL8sOV(#`!T}x){c_y$#8OZ{<8n-t+(cm`(B1lTr9uO
z6dTrQ6@Hry4j$=0CK|r}jkP<CV<hsoR-RMaU|A{5kcO0mTOjM0HWs)}fewgLZs>!!
zVn=I~wV+C?jCbVN0MG&}Li7-MZ)f9mj~H>DgD|8KZSCv}2&`>a2Vr^dKv|JL_ujR7
z;WH_sZ%6w6)B+4|*VKpPi5Hrl;nt^Ck(35bQ^^tRT3wDqh0F81tpE))>dvK^P|pWJ
zjezHov28PZGd2bXg&Qw<SqU?-I)f*^YZxf8aAIT{Y=I;Mj@aw`{1Zr83*g_pu^m6$
z0IG06AiWDtBIn~TgOV<A7A9jxZYl8ch*U?>2I=JiX|CZPb{}cOOhH*0;et;O;nDYE
zv{-%*?h%P78G_PC%&6cPL|WZ~6K&8`YBtuHU*FJxHC%z<UpwzQcB_cd)}OjTch<0_
z+3oJ@LK`b9&xKRc<^p0x0a5bq<<#!k+y*uz*Z}4B$x`k^vql7eG=SYmdhcy3?=nz_
zVx1{m9CZ^wuJ?_9SS6I7Pk`B0QIO$<-NTn`l4PS8ExEQRZTGQTSFL=*&6&<`uUHKq
zv?^5U*5*TEa@16bggzArphSvyRPBI+H3irLohWf>ECF}Xn%kN(dK$7oM`!{YZB;}|
z53GvcOTzMkc{0YN#4w-z7*%lX2RX0&LzcPi&vN5WlK$@>Xnta&g5V}it<mS){Zk8W
zt>ixF`ZCSGxMJdsm0aVfX|<a)Q}|<0gIvW9)JTiN-R~gbi(vB)>F{BH9*JXZ^a$9>
zr=Ko|{kcsg;fGf9-`w_p`dt6|09r!-|M>>~(}j|LDiNcEU?Vtp7bEJ;)@k-)&i5g7
zftQp(>3@pysH%8rcM^zW5HyjIE}?%I^M*j%75L5WwwkLYGB3WT-a!X9A%XpJvM*tI
z%8=uFcvUYV1fEK)UW^|avPSM<0oprl;(`A^%bNJ%Mz`hhXWLP8S&KL0Eu2g88$dm<
zq0CeY6{~|sVrYmQ1hnrLLF2`}v>y<ImF+S0eWzAUF8F|dI|BVuP;rbl<fhwU=5+rD
zss7Ikuz!8v|9PR_zPJb+LEWQ*G|&@HnZd?YTJ&#fhCwIhdYi?#L=Cq*QJ;E9J|AoE
z6JLe%_d5p#>a<sWPx#xzsU(-(S7r3R^_ml|t3-!M>lCcQ4Y>QfT47fHPdL|_m*Y1L
zY(au3lm-{tp{XXvdx-nJ-eUE-f5-*^hN?25-sfA9h74R@Q&i{)V>$$&iT^yjF#2y`
zhx7PYLUQFG_NRt@_5bjKeP6q(VRXh$CCF@hfJb!xvn?GJb4UjO#hhHHVpS$2*LLZW
zT!B#?>L&HkuS8FQ*3;X~fyC(_0nLZqtXEx;Hmh%N7B6}=RQ=@PJ_W+hC*iFm69I(M
zpu!Id%N~R~1B>fMra?me(r5CsT{@-jg-y>hvk(!3;$ow8D@!a-0PY0PTKrRqIHPL$
zq1RtCSJe$~0eCz)V7lApBBT|jD~A$+3U49^Dk9|Bb-`}R?|JZd)@^x!h>8$s87T+w
z5s`4Sqf|P;KtU*IPXHWJ3iB<>@_@oRY;+hc%c=YRvVu^t6||ZmtpGIhmm=xvYJvGv
zFhN4BCEbW;ze<R$vl5^P<uHMwZ;@m5I%Pnr^sKL(CU~Xel7>ea?Rw!_1#56}u~!c%
zw*-<z?w*OoTmvK_i;P3X_x;JMVPcK$r6@UR1c>P7SZft>Fo5Xjfn?A)a+n7iwV{sd
zx@JMjK0q@Z+=d(Y-87?Zn54e?MWpX7jtlQ|?WnKo8sO5BB?DLJxDB_gtOjRj*DCG6
zXMsGO8gFMrmHVbe^3now97cNVOvm>6tNE(#D;UBpXxjGf=3oAHYpPM9%u2HI?3bHo
z?xtV~j)xwF(*vG{4m3$9s1Z<))!+om9Z)0>Q<DIq5{Ax{LgAvHv_fmnHZT}EVJiu`
zBgmMt+bw`9KqTbM4K2*@_=e{&EVu`z24L;<h`_=`iJkdJ5h<<0=c-u*<932ti~6L&
z=6-C=d;UdV*i}SaJX7#?1D#)CLp*jx7kx_fkE}rJKb#f()1dONE1*T)`}g$e|ILM3
z3GmPo=(0f}`JkvaI#o%zxw#DovQv^P8E-hQU)9jqu2nq$BCNUTcLxz%v57>)Fggj)
zhwbWVz~R7|Od^H8c(LqUx#=%u67(jgx$GXb?$+nI%l9;Wm4688X<czCC9(T*wF`d2
z$!Wr+&w4GmKXIx;_;fD&O>pu15I%Xpu{8^V_#4|gHGdq<U4R0l!}XG@`>RFQKJ<s2
z;9N$XH%X*DP!fCQSkT?HBHsiO0XOWi4s!)U#(sV9h}R{;#w?EOtyGeFbJ=UCRX6~1
z-&nlx;`*VyS2&@)Rhiws3WMwP!r^sVS6ajVH!`Mw8TbD=#{K7BG;0?4cmE0wAFGkD
zc~(D=tnTRq*)pIYd7)Y3sRSo_^c$S3y4em$odSa?PC}VHnDJCp2aSFL=xvNx>pSL*
zlq4IqF}cb+VU1(TrT>8L_&{C|3Ns3%k(dT`u0zlJb}5JMqKgq2lK*Z!hl4We3jGUI
zBRK>-1jNrj@fygNb#ra?QcWl&4e?kR^<<jqFI$y~jSv#V#QZia6w-o@*1()B07l6w
zHdvW=OC5rWtV1_1nz4X)Y`Ynd(_sOa6#O1UUvs)f=rwVCgAgUAYL%eD0?mQKAWsVb
z8ldw7Ane&cKb4f^!tpd0uo|MriBh|20J`=Iq6&QD-7}G=$5FKBV|b`UGV_-vtIVL=
z0O2K>2~kfaIQ*}m^c<KGoq`~@oRPPIrW)}nxS0J2JWl>lJolmjaAn&R7d+18EoxxI
z9DyiTAVLM!7cKYz)d$+3I*Z7z)m;#rE#60(>zxGF+iolosmSb@uTQ(WI?kpX)GXMH
zllvtvH+Rk?`reZ34jX3c`jh@Uv|0tWX~8jfs@r#sP)^e+*oc$6>N_Cn#dd#kWc&D7
zz>60VS3azODLXD!X=#ntTG!VvF29LQkdZjyWerJP4Ch;Zx9iiSP<Nb5z|ggTvY0tT
z@F=*LREU(Qd?ylh3*GD@?SKZy<0bEY7-h}I0PTq4yi6<7T>^Gcs4H^S3UZxz5rbU&
zu8uLud$<^J#4COM+xqjRYJ|%zSmlDd(2OJx2&%znz*qu>b#FPWcAxaP4J56b71d9v
z(*?3L_}R^m_he{4wIZAZ57^9TMgg{;at(~t-SD%ge$*VGFtw>8d!E8Twu-;+B<wdd
zzy+@Ks`iux&goO&>v;eZf@BPsoPqid>_Q!laG`(1L3UxIj4}XMKynnAnNx~JWq`b8
z=St_!SMz)^Ao{rLd7!s`KazZDw+8bo$RY3*W}whWW~lj8F`7p5#XY4Tw81^O6Pe0!
zRl+`Voo@wVfnO@LJjoCL^)d{jDOsp?C<l=&FKXxEHul&Di^vTl42Ym`L#<5lYFMt-
zb_ZXi@aZSx3z7IDxE%VwKzvc1`$+9i#?C7Z2LB(e@~jUVogy^U)%}dp+|4n8Nc4(L
zRl;Lv4S?hMe?SNS>&uZcnD7jbM|>EXlCv}YCx6Xq0Ns(M8IMP!)mAp?r-5YfC=w2$
zUq??%OJ9+FV+%q7G!p@MHqa%(7=T=K$z-F}$54&8ZpRha&I~oj+rU78K%0%z8vkJs
z231nH3uQJyFnd6M9W)}NOdQhPy;@K%95zx%vX6~At4~#40Z9mIUI!@(sA+bluY3E%
zFx*@Z008vg4chY+n){#UN!YChs=*VXd4U-&gAFLrx25KaqX9!`W(P{0zkhyA2hmfy
z%X6Gi-%tt(69a>ua~op4;;T6J;tSIS3Q?ODoX7G<D*U^#Y7FEYC^OdFcXh)mV}BVy
z&JQR~J_;=@a2=lY@BtJUokQfIm6Z*htEG{b)q1Ur+opAB2c$2`;pR^z*82ZGQsB1~
zKQr7~u{bk~P5MK`h6H74@@?{@3boDz&@g?dpT9)O%Oc<t$es|4WUtgIIRg9jT34(b
zDiKrI3V6Ni6h7cPyqW?)mV?N`{XOvv33>OiAQRS*j^j+TP6cW*vs7a0p)S3h>DvZG
z;L)`ayT1(M)y_dUFa$+AG}W2t>lhjFt>?Xc3L69k<6v~&fv7k}sl)f7D)<PbvxM#*
zF2n;y+82n}!vGo%$?5&&!>h9q{{c;VKyfMj0g=SN+Zqck6ChE2zV4?*Jcr~dQMbDV
zAmp0;fI{Rz4p7@^K)~2y4d~^vB@@AjNV+QuQSBBDjrzjl0mO77{XC%Z<-?}B2LPz%
zK}lr>`n`$A(Mv*pFeeFI-+ogVu7*^TWoVPoppkf_%_KtiJKBd%mqrxrK#8c6Cm16P
zNp;7#EMZDk3V6JE7~jb!s+~$i67n(Ve?ndUfX$D8<P1fFI8uyfk~iuA{y8mdve*#O
zgUp0TG|kX`p`8w)3EOzEBT+s6x{vTSqaHAqhA$cx)ePE2CZ-$JD`0#LKj+EuQ>ma_
zedXEr9QDZ2k47(Cg6UdGSO8~Th`ri2oPmayhQLt8jhd@9!~D5pwxc%6?FTOrH*7yx
ziuAa!=Gbgjbb@t^J<VZ$1x=~~M4ff}6+w<wk(Bsq4_-3(s}T@6KE0wQ_mPMY6kYV~
z(euAEgzG}{KJPij4Rc6^VEh4$4m2R!2ZIxhh2xFGvC782*+J|<W2lya?K}#TbofCM
zMmPxvacAn*0V}W=2|1X|c(Dr11rt&XFu)Rf;sjW?l$Ct|#kF_cxIV@KU^16_U}*I8
z72)uS>Ox|33eAl)gO0Ea*Ws4=UP*%9pp!qp;McXc5c6#c`gH^dD8oEGehRC*z|{s7
z{L7=XWgv>K9RKz^#0ipS5||7S22EQK+YV<7l(Oe1&M19@kbzVzh^<8u;12sjgmJ?;
zZaAw2FP7~9MX;28XC9)kOrdeY5oQ-@6$r&df+6T*R)f@(NK=4Xez7)>SAcqhL;}s{
zJ3jO_4kOK=FQY(S92Psp(53zy*7l2}Z)GBhFSkic_XrGBIq9LZjb&v1zLr~8TE_pI
z3Wk`~>PjpZp#08(WOHfEos!~m0$(q0(_sP%Xi0@cL?u#Yn>G3qC6{>z1g4E}1M*;>
zr$Qq^zbvAQG(lcV^B|+w9mM`WU=)~lA4LIBZLLope%Y<txZJ@yVXmj0>+726#A^w*
z7r%_g=7eVyw2a!YEooXqyo@SGW{>wzxM>~8r(;wU!1JKMas3^d5eMT&RYF^?*6hVs
z-qaz8?bz7mC&r>M;cLwHRj1gR8iT8F{>$boy$hgbLY@3#Ty&7X1_5<n_{Y;6qz5mS
z5E~4Zo;g^<nOzGq=*6x3JvjXN8-Z{^#}N)H!m@TBg{H<*OU0?@7sElr@=y$@`8qSi
zE0jYT3ONj#s*2QVKYEvu&(q301};hnY`~v?3bk(w3SwFnm>SH5rX@DDwu1UXma<U2
zm23jN-h=DTAh|g78N(PRl*OQdTBwQ981z!*=-zEGuf~{4G9XL9sW63EVeu6(SW>s6
zKb-&?g)XzgkTDsWz7dSMQug`2U*JBH*+YIqfAjdt10<}@(Csv%f@T>T35ZG&G!zKU
zIgVazN;HKH7=0BOV%^aNWiXoYI+05*7Dp4CKqW{-x>+<!7^&Fxlk?;Hr<*j?%TVtL
zJcrcnukVjT?lspj1}@?O($j=O8i}SJB2piXG0Fq@5B0@$$r)r>Hz%XE3)Dja0~mTh
z$RC_SDv^U|(=z53bwUZW0oY(r<U|}iKJuVu*9RyrfaZf<%<y#pf-JjrX#;b4mPJgT
zV;dngAkyN~LAhmv`kmHo<=urG8>i3L)kt<c=FA$MNo?tG&yjS=k#z4}7^^+e9lhN4
zls;DF{b{)<y{g`w!+-0qIGn-_2;O?izv3UUzOGj~q_9kaadq%#NTT%s2`pry8C+^i
zkG|)YnLyabO|vOWvM^nBWDcgg@>3BNUOijLX0{SotqQpYFd@RK3#R<Zr4Gx}7Oq4x
z6`_$?t=1VD%=KWJUdkxYV2{#ZP(-zJ{k6-5oiO069SSQspBl-MdDF<+!NJ7n8l-tB
z&h-R`t7mO;Xh$Y8v{8OEKFOfS!!gmX1f5j3(VW)YeA4Qz$M<?eP%ZTFgB}yPW^QQD
z3YV6V8Jnw(RWQi46&a;NPquwdHLRW3uot^FQ>+kVaPlK6Ku>;wh3vk`iW*e!9ofY6
z8ew^s7%5aRsRD&goi)>4PL%Y*4p^tz-5&s7C*Iw}9Ue{t0{BTdZLVYvSaaCH9<=%L
z#S|E4xo>&aft_1DLnS+eYFs&S090iKSM6Gjz^zVzL?Wwt1~iR2K0ud-f^0+r4KYP>
zgOpL^9HEc6&#!qhhvX{`6@}IduDBEk-VUXO-81RM{50QVlK`i7=M5#NbabhM(1*fi
zQbIwn<nHkWS|<)lfd7$cb%4wX^$DT&mH=jl0E#wfR9>-#kb`pV91Dc&iWW65+ixlr
zz#5nVW9c1yovjA%Unpv6GVmp%ise(4l*ly8H)$=N@#VpV=?wn98#lm&(p&~yx0qn&
zTv5M*cbXF5^%wW|bYw9vyqjn5pR<R#v9?h3>t*PE0XAqB%`@;u1LdrpL5ww;6Afj3
zcnireKl9__ocS6D<zG=9>;}63U(vp6i*aS~$-Dg;$Sqj|5c$QpCP1xUoKv1Hlk}59
znjUSi0w2X_ag&mh-k{#R*3pVsW{Ku$D4)l!HG*g>Yp1C8ub@2n1drO%&=95o%@XaX
ze`o}fB|G;ujPw@{Fr&e?5eD^vUx*t8(0BHhH}wDf3P3*icUVt$6<T_I6CIrhyY|fZ
zk5jrvMp5Fr?_#E>?5wRT5xi{+Wp}&`Xbij}YS0XD8JOTVg4*w9L2dD*Mh)H{3eOi^
z(0tww9Zb3%sFk}bp6*g!67sbxx+L11*}`T+uTezDR-o7mzun`>1bOPO5G9((K(c=u
z33l)?OX_-kE>JF&QoP)x&twg5VmggDDbRd<Lq&85oe^}mCilW&*J34Km^c&#v-WLp
zj&3;ICKL2;1Pr*LaOLYrfMYwS&xWp_!t7<Bsc$(e6|P?k6<s?h4Giqa_FV<n3z56<
zPGf^Cu<oXRL80#kkM&#jJhAJ{%V=i#jM|t`_YdTOsp{L2!G&FqB>9fo7$pyaphhGu
z8n~N)+Kl4<9r$)69<iWyeN2aTrL<-lAPteNwvJ6LR+%kBB(-rhfmqaDuOeV%JqH;a
zqd9^1gH7z!Pv{7MO@VSKrCH|bPaboL49oVC88%GX>;fMIGsS8_Oxk2ocqaB?HH`WQ
zB#uD0<t_4Z$fAbL=v<=YNL5DFjL+PRLc&qGMuEBBJieK(F%Kh#18pr%-}1paTnv>3
zo=Im#@PfJsid&)~WsL7dGQ+5jei){=8)@EChPOhW{c+G;LIgx2!jkYplRxL}rwn6u
z;rEfJ`)AY=k}?Wxi2zFJm6cNs^PQq?K-qaXs)DjSObOv6%ztDSg?3fLtY71WN}b#S
zdq`X}K>i8R3BabPFSQYOgT{`(P4*h3_oIpH3Vq()Q?H&Kv$~!#42_It5X0lyXbL-@
zVn8~Ac3>bG4A?;b+JIY?RKe@SML+NX4lq>((r_4kPzH=phb{E^?L=iL#AlE`+RT+(
zq9E`jOETMiWX!9ix8X4>qtJNeWM3DCaexKQ5c+x$A3`J|fiP5Iv(`spcEoX*G7byz
zKs0@zX(<fwfLrdY^u76o{kK?Zpzd>U?i%~RP+Iz^l-&+3;$_!V_;%v)aE@sGdq6It
zp<e<ixq(7Ivj+vJ#1L0B!?G|MijC`6rweJU^saohTIkAgo0Eor^`K!AX)4^Pxt37s
zfzR{V56it1@RDGNfvACIke0si1jYvOgB2MmUO6$NNh5%Y=b};^3PLb&;%88Ei?Mj1
zB@SsWUD8px+mOp6Yj5jJ`5%^m`I<akG3I47*D_~^yMWHlfHrD$v0A{8wNW&)69jvp
zEbL6WmQr{=FE<|3!9(3^St%9?!xpmh?OP9#L7a1xZ28`w17ANIoY;{Cr>S8QnviBa
z;h!haA<XF5r6adxwa`pjCX9AnzMwhEQ!zn1ZbiR!_tu#kTb>XOeGvLxaNEsHqdJL0
zYmE*)8uz~xIbz<L682i+^*f(f7yY$4L@tSqf$xv)=RRN>UVQb5-~*W?`pLk7UuMak
z_0CP6^L}67E7Uw^mef2S=Ka?5%9$-`Yx3b}9s#tJtt^;%ye%_2FYmayg~i3Nb?euE
z3@LmFS(Au@f)R{PDIl;*U^_tGeC+5^GusdS1Pcp`YxHM!`A$lCpJa|6Mfx(p1<fK~
zy=s}Bp8l=>u;zr6rlNT17sH>VbG0gXlA51{Y8$nt%#>`wol1>E5@|8l<t5L!s7H^a
z9Axyz!y_UrN8F*De#eq<)lSwD46dr2zhikSQYxg&-o#0OvX(pl?0uoJcwPe=o0N&|
zOx-NQd<U&Z;vGImj&h#~E)F|ardy-(xpR0A4yPQt3gpo5zCZ&TOeeQ2nq{)4EaKKW
zd?<SgW(Sl;n(`<1h7YxQBMb)FCH3p`PY$$_Ero>fEa~mrx3ddq<KwqK`N3eFW54{e
zSG5BQqBckN(g?%yxg77-ob2oY7=8TW*|Uc<Mr&v1%T*Mv{Vnh}aYIaskb*+jEhWFD
zw&TK&Y#)7D40`f3|7Y9y5O?XmIIUJ`c&K%2p)k4e9L!B@2n1oyRk?4QP5J-!u465G
zb1|6DYs)>6QrdY8YX8(AjEW3<Gcq#rFl!mK>t|+Rc|_xi>;CYK^<gg?!J~$~f%GBe
z%^PKj2({0jKR*ZzjFhc<my#lyTw-?l?NaThPrq~+liW}Iq4yA;<4ZDqi+gCsVSxxI
zhpeFjP};YArJ#i>9T`alM{<DmVoTo~^JC3#kuP5!d$1b*af5eaGKq~=+1y#gc5AZR
zs6L;fk8W5~R~Mg~IWzvYTvWNK1|J_ENaE^E<`g_9-$-dNq43zpw6nEs0%nNI$HC1F
z&9f{YzP(A7B{JV0Pl;a0e+W%q2w8@wJpE>Yar<~s87Jh12{koWs>}?C=uyAWgZuc+
zEEHe3{`sgen9)pp|GXXQU)8WH(TaTasS=5eNx&tkQZ_yoQ1Z(b%57@WjDulj@%8oB
z)XMc#VIuUA4zOV8TW^4^4>rBN_vgC#`Mg((zRB>t%U7;Qc%?!jvB!=~O}lq*9VFMg
z>6<w@Q{KM407-4woB4T<o!s03qq4%nD#oN%Vl`tfg+x;Ko*UCrR}U3RiitTT5h0rF
zA#2}xD_ia2#isUlE3wTxe_C_w$dT8u0@mQpQ!H*uA3gV&4OGT?c_k$i{!kSbi?z5g
zl{n!}p^;$HngU_j5Q_is9c5{ica@&I7S+ErJ33YW#XAx+nqLGkqq(1)d^pZXQ**~e
zKXkDQ#C3IaSX*DBz(5@ld3l4d>G5x8;}a4pEwXlRDv3JbTps2a(FjRr-_BPZR4NQc
zivRuhHPB~WR#s*Oz7s~tLrT&ZR^CB&i2lFUCuf_rXWfbw0l?$p4Es($4XUo*{jsjN
zc=I*j+J#O2{l^!-e3>aKCZ=U+8EH1#7r5#F;<>rjSMT1{eR;hp64ZA*K6}E11&@#S
zdrxw6bDJ`MzCJMB9GN|B+A`oFbZ5_<JN5XZ%iaH3;=ccO$LImGkOXKe-Im(lWtK90
zKsP<E2A;)m@!j3sp^=d*f!mB`ORb-}^Mm^4KJ!_{Ilxp<nZNlFIKhHbfseVBRhEtO
z^|xi`qxWdcdGjXc@y~u>=uTUk16*wMqrN^m<KXs)vPVZaEBD47J$^je4mgIly{C22
zzhimZR|EGsENa?+{4r?#UHtv{?Rj&ns;agC_l&Jbp1S1Lt*FHU+XUJVFPyF)p9MUW
zr~6g?)^4@`ps2lgaUpQG+f%N5xz)uF{nKRgO`hL4Q)BY^UfQ=(;F`HLj*Y-|I5XY>
z1IFz)a1cJQ_FCHJm%!HMq$M9e7TQ*SJ9Fhm-R;fk{lN0|>BkD-7S^pgt{0{jJUJoQ
z+tUNwDDDYdT^AG;HS0~;Zs1=3k_QJEfooZTm!Wt7!^T_cIMC?}7dkRCGp|~+=E}O*
z-6`8|KP|C(TDChhK7Kv009(0XgTbPIIcBqgiT%p$+p9l)D$2dJ#j|X8EO1t4SJBfh
z;0a_)=FFMndVKbb87uDHivtGE&bxV*bNy6RR5XC;61a}!*RQXufm0?MU;GQ-o$+};
zFm(ev-xq-sLm@FSYtEeUdHlO{XN*<FhXufW9KZly3T!^kmRfyv=LP{|L{u6721nHf
z)-^F<lAs~uMPD8r<$n6?nb)taJ0jfNj&ZpIhX*%Q8A4Vr02L&OfD$+ubOee(wh;m+
z;@tv)%?>bVkZ=VBE*K<D(G}oe39|xE^8rO1zRUpjxFEo=3smxh!4VBE$c0i23<8Ta
nAkz*&#XXBa<p>ziQ1PqyB?f-&k9RKl39`x4)z4*}Q$iB}a!C;c

literal 26152
zcmeIb2UL{Vwl!L4tKB9<K@<fPFbg(HkZdbRBLX4<BB>h`L6S($blXY^0xBvhNkv4I
zAQFm<fgmDDgc6D*h#)ygETI0m3;T?|=f3madH0<=?!9kZ$LPkUs=oTZz1LoAuDRw~
zed&m%>axXrizyV!GPR$Tk5VWL+$fa!X5TNwZx}c44dTZ_Gj&yE{KTKh13A9<@x$4l
z4IC*Het+^0M@YxeDGFr+MNRpqV{Q?>O`f-OPvtEdY>8t2*!a`@1>020mZl5eyLgxS
zYx7I_^}*XF-PFt8>)hV*!{{-Sr@4{x23987mdCd*UNmI+>-T&CF5)#;WDhMC`u^Oi
zi&?#Sm4X5;dw!I@s9;m~wsS;&M1G*T$9P~W(ZKrFN4bIA9XHA?QaQ-I?Q7%a$tHiH
zP#RR9FCjm#9GPcAe)|2fa&R8`i^z39Uh;Fpz3+0#Ps$IQS{IO?KX2vOMSkwv|AQO*
zYAX-@6PI|pWMVk1VEw66r?mC-Ry%%vyUj`FQs>AIxR4XirVC;e>d$dC+WPvuTwL`w
z8P97)qAR!HwJP0PFaF*Ay%cM`X=r!JMrvKXja0DA=Ue;3=Cg0;`+s~xtB-6By)-$}
zS+Xh2Xr;e^hvnBVHCx`4mBsk7W{0Xnd?YlLX1-?jWiZ-q=$qiujECaZXU>=vUta4l
zR)4xApV`0e#*G`*H2ao`Pg|7Mw#<&v+JmH<Eo=6c2zc6Dzi~swz`$Voi<WNyl{z&w
zbxYj*V1#3ZjQGjdR~{uKT=pKT-;zI3w5zymS3%>ay@9;Df_Efk3SHzB6lltE4Vj%`
zmXvOZUY}}F9&mVbO@`Kcy>?^gT3v_Ul#+uj`Q9<lp6woE*cVJRb}I5>@h;&j`UD(R
zJKAM^Cd*7Kyz@KX-md9QxsxLnqBvz~<W#Ma!kT5O>gwv^)`}b}6~bta@-ts+982;>
zD&%O^EioaAvb2HAYxmsg3oAX@HrW{+LT>0_hyZ_{$7sOg$B!pot17NM9qsM%_KxHZ
zDf{N!n7C`9<ra?4SO*nnXXhtOo5swPYDL={mCOv`*(U4&W#vxwpQiileargO=_d75
z%bJp1zLRBoB@tMTjQjWR*QRXNxO2TJ)4@E@JZSBn&2-iUUX$1PL&fXre>%S~eQ*D%
zFyou$CwF6C!xIw|%cI;s-xeKH`dW1$b)A%rWlg7b{j*c`uQ-)*YaJPQs?=S%gZsma
z-}-wQmjsGsZ>4wY7fk7<mN2HWcN#ns$?1&plyXlv9p%2+zH{<xjaFyz%=1NxRi9_{
z5{_SGBtLqz)zH{DPa_)3*<0y5J7Q58^N}o?3-&!xfF>GUiQTa5)d-hLm+j9P$Y)qa
z*L`B<_fdVN@w9#?_nfCu^pZ{Z7YVrik~=%q<GyZWxNKL*P<si@>SDXXc;hPOK!I<9
zAuUP6oYk#g5Wwj(cs|AH%e&P~W7j5Uht5dXgR+sqtF+|BeWu$5X&+eir=x>bY3{vO
z+s+!J6$HIFzo_K*1xrr!<=E6e+uL>beA}fhQI_cg!QIrJOa+U|D1K%i&2*<>MnY*{
zy?jNpJeDfvbY&D5*HD9Xa#34RAS12Cd%P*kIvPu<t*xD+5&fkmuEZ)XvaZ)%BF&+_
zc#V>eS0mnHn~-~U*t=!*ln*&fE*kTi=iQQZK4a66woORL<7*e!c(bSdPUCEeGuGC^
zp{2?=Pu<<!ZX@N=<`oe#L$SNOw`Du`)b+ZBD2yF9ax9n3qI>pdot7VdEu7*rGxhr9
zZf!%ub%Coz11h~f@5xe3E|~RL?>jwYyO^V3sy4a!p+>mbr`K0g&VGFPA<atX<nG%a
za@`%}N8js+TUOmQYFQ$dxuF7X%x!w8B<Ats?LNby(S?t7p9n>2s$vbLo85#Jne~;Q
zrz*pxcSYgAS%l<arPoNFIc6v0ujoBhh$ZJK3)>Zf-NxOd;Ms3U+ncO+YyB;2rZ{LF
z??CQ|=9A70;bCun8vRpgXiP?i)L4^i3;9O#rflb{r6+~L%MVJ02fbP@x6{64yO>z8
zx>%OT_*Af5zom0D9Fk6)W_e!z;L9b3y{wO%zI*$#I-`z1JE>;VoGY{Y_Tl$*dI=t3
z6<MP7UV|^P@?oKN2_|{j{HLEeIu&{wb}^S>^*^ZaIL)5r9sP~dYs2`K_r6m#(Jqz=
z4Gj%8tl1gIcK&m(H;T^2PjdQBygKOna;7ULM5;dd<53FN)jWK+W7#en+m1Ik7}Hi0
z&wrbrN}elpX3y=zV}GpDd_6h?CqlO=xGJprdCD7BXFt^V?u(Pl%Rhd|nkDBw)q7-P
zG(AN@T|!xTY@$7+vaYtauPTMnJ>bjo?9YS?ug9INW)|S9vSx8AJX6OjBV-((Id)dq
zx-eINagvp@diS95R?Ac!?M|QJ>rH&J-TCF6GbB(t30MrSetvP;x^sQ7IamK;kEt(l
z=CzM?v*^V6y?OJ-f*I{QJL!Nm?=<o4F>E<Ax@P{urPOfye3_&1$3hvd3|rdXk+*x+
z<&8g|&#4@(=zXU*`cQ0J_mkv`yeLI)kI)$t_l_HGxUR6!{j@X*0q?KXt1A<6*nO~$
zpKo$x_9W#DPaR20>==>FP_?qMIvg$~dg#z0mp4OWI5mwnHF&;TO1?gUGgx53&kbS5
zE(UnUYE?mgRRQ;tsSMiI?b`zcr&||g(OX!v<BStinzh>Fw)X~zTlj@8(kkjl94vkI
z1*gx`1J<##)169{=}IuqVn2@gCz?95dy>l1d3PRP(L+zRPhr7p)#@E6OffI{+>qxv
z9!xx3(d@GMk87Xkt9pCSNO||?jW-)H->L5^Pvl@+!!qr~uAWO~4f-pkWovnoCn<rg
zF&<W`DSFTJm{z9S=MEKHFl*nxFYKeWM0t8QSjBa8Ops`UOUVfdHGA|VK8lYoEz6vI
z|9AIJA_0B&jeh=0W^bz2;YeA@C~S$|tGYzn+uPP~4JEUtl5HD0{pK&X{F<Ha9~ZPn
z{C=&tD;$lH=le(6i510-9tX{hjhm#rKfk>lYAqe%+<51rb*0#ev`6Jk+hi}3lCiyG
zAI#;Z*BHuuc@TQ8uRis3$sI}SJH6vQrYu>Qqq6el^)kDg$MeV2WnDBhH01I2p&Q9w
zn@EHj@N8k;&&`#`GVpolPIW)Y@|N|8>=^5M#LTD~Uxz(-YP}L>rm8r6)eRx^KHP<n
zkcnqs`ot8yKtPcBq2#`PvPpHER`g!h^oV(XW0ppRO%o0`iO&(9d8aJQtpfrA+71X#
z9qAt>TfCY{JGIbEyIRRE7QvbpA6&Q7DDy|U;#5}*aYl%j_YtGF@7NK8`x>wQkrE+c
zb=0n)uEJLJQ;%#0J<7BH_PDrVO`;*~AZMxP;EP4!z2k_Ka`Y&9_j7^f7OC|FecXrd
z9xB!H*=?6U`I(qtf>G9PINX?|q@-%q1L^7Ma%ZLZV`BOl`&;bsoX?Zgo*QmxFAfTX
zrIgH!w+L>DIJ-Z_&#A8=-2tJY1VH4zX@Sqs;44mPnc_O%`%SPfDM4RalS^5;v~9zC
zvz9uG_I^v&Lpa>VrB&4N-*XY}iikHJ`COjjKJxhy0<pKmQVJZ1T|uzXd1)afdP*MF
zepuGT&=^o7YYfpor+n<j4*kz{oucrH=D{)#i-wXi+X5zF`3341(-}`<1{nLB|8~#&
zIyySUe|`DKElF#=_qDY}?_$;4uc``MO0AIH5fB(CEMzt_H97=5B|F<wFl!w?LtB2-
zaLJi<C-OX;lbW!KE>S;~l&b!mo7&sueE80R<uW4UlsvkLr|9ZkCXJTNxtIs5)iyC{
z?mg~{Bhh}xI;k{IK*7W5ZIptXiSNv)8$6IO!UsYb00(o8l+E#|%13=C498tgH`0vz
z*pcwW=GG<^ZXTW@Y~k7xL0_*%XS%Vru`$1N<Jkjt%pzXX^*wco)@fSXZ=6Yc|I#`+
zukNAwsol2^s>}6aUF42?&&D2&KWM$6VEE0Bp#Aw7J`!Gc8!M`!dTvRmsHhC3Cwq&s
zBgpIY)Os6o*v6-pm`>~uG@k*|EKS#v>r1;O=W4g!wb4P`ZLsyx<HrGjQnveRq+7fk
zRkiM^*}7XASnql1I_Ayb=_elO?x}gr#>e2;jLwyAa(KPb|5GzUac9OC*FrAUPYvaX
z{@Lk?f~^vWt1f!=DZ#K}BhThs_XP<LW*R*BLmz&W&25?KcXhOG&!1=u9I7+4S1I(g
z{?2}8UqPZ|Zc^wLEj#Chy$$Ks>&g{dxZ;m($Deb_(l#Hex)qaihYvmRUhLlDQpb*E
zmQjALysoXkE&ANBLqDm}f_YkT<hBu$giM_Y=OP~cPYuEcFH=qOJo<jQ!QY;cTJa`*
zi&oTnNlD2C2^J-3F8rYuh?i6@;e*PBo;`2v3>?S(m8O49(lVUKxR|QWc=m8ml-Bqz
z>Rfp3VD|J-h_6k$@2mRK@_L?rMukfO$x+Hz4fdbJ1sx_k!f4y5iAhPp$N{#FXUE5K
z9}ME-fvuJ02>=KMaz4pMNH&}L`X!6L>{YXI`HMw@>lX=nomEy&IFY_xaWq~lee#}_
zdYD*{FKgU);AsQULa62Nr_!u3<O6HSm*CuWHp>CH81l#bx}yGUy#K>#0{&PNAuLPP
z*mAj#f2=y!r@kvMt$O~u3>UhwYmsn>{JZX3{0=SIEx293&)>T(X@$97B8frarB&@i
zC4wP5JM@&jy}gxlY0JB&Mtj<&3nn$ZzQza!rCZYvDl5a5mI^9*g{K@+S6`QCJ_Wd2
zGRqtg)RG@k?!RY!`|#$QI}KI>ahk*^B?^k0DaZI(>xUkSHG_-RKK8ZQb_%h+1bCqx
z+a0t?{iej?XV%u%=0M!yNI8hVHXm$#F_aoTlW?G?tke1MeJx<HEbBd<W4#0^ifvH%
ze9N3~rtO~0sx6vt(*f|NCP)xLBsvK1LZv=>@+43taCMPPXT&P_tTLudgiC`})>z=K
z{52)(9S`T?gk+77cZHey$iPf03-Q*PhvIVG`F-7N$6l3oZ9i|-jV52#j00<CoEASY
zpHsfdGOy~Q=H8EgWPZA)-d4QM{xX%SZ|W^s9L&#XbDO_t`DIl>@3dN_d%M!U0qQoY
za4<DHJNtN!i>;B{#|sW0FYvC;PK!Vu@gV-uBWh};qMY=|Sa{2{g&iX{%%tI=c(Bs!
z1o05LI1yZ24#2%7<<c#UHmqG<AD4(DKXUsL8|HF%*msSrlcm>KYIOO9#{?05ZGD;8
zbgoR)VW^0gCTpkKOfw#3JC-{Z3kNjyOiTojctp2f*U_}nVKwJ@mb8Z`HFqCoth3A9
z*k8b!l}a?1b!aO*p6llDwU0s5kmPQ_Sui8p;xj!VHQ<PoUHtOG61jwj!P&uTBSpJ>
z9Ky%pp3UCg61QzA$jsau<uzPNZvBaO!ARslVIr-WFE%!oVSHM>KX;@;FWH=C*VINb
z4?K2GdHd&)eCN4iBaZxL`QBDPH^eIf(!{aVZeOca&0qY!07;v@GQgl$*8#x*02cY;
z5J5pze&=J?uc!6x*0}ZKMosylLgL@wM#${>TprF#4vk$?b`iOK+?zN+;+owje_j;*
z>nuW_9f?sT!yRSq_xuF{wnTgFCfVQd3>$;%H*XdbOMd0g83NE=l<Ck;;v~O`j;e8q
zhzznKv*&&s#7lKF=Kz$_cKp#-6Q@O7!DUm{6x{)CzGQlG#C&qNgT(wbGUraNcYd$!
z&>bIF41<?z<7VST0CG1hW*b}+bxV{R8!&VMnIKEv%zl==4ra%6b&HTI(5!pCnrU;+
zc3V7xho}=54ladaqogju{>%R@e`5R+r=L6i*cpGN;Jt0s{n3ZQozh1Lz0&pg@9CCD
z$E3o`S7(3EzG_DF+J6Nb!@kx(LFj;(xx1qt={gb@-t47!BVkr#sf2{ioH^sAFuzI+
zz8_iNYA!CIevkx4tpSvu9|JmV1qz^2ksu<|T9EX;Wimdwb;k~Cdj7oT$Vd74ig;<U
z@xm%i!U!E5ZdMAft*y<E;;;-uY-=13wUO#!{y^!|GcdT#j5=y+D)_}I`#BFspDx0A
zzqg#m^Ki|$c909|1cuFijZ-Q@g0ObercEi8ip;{U>X`P|!XY-23rumq4@WC1ux%;T
zLSrevtc2pwC9Oh$joZwiHDo28CkYX1?1Gq(Ac0*I<@P=`y<>y|>31zyM-rS+2CwJ|
zZjuIs`d0kt)Kvw4*S&nx7cMS@{yhiguS@_21o#7Nd3AA_wvLVtSqD7H{VoR0URjwS
z94ymfBQA<sZR+XD#*-P6)^(t^ey9T+d-Uj$B|SfKb88+#&wcxre21!^78Tj$^sUAz
zy{Z{!{^eclP~L#|E<l_0GtBW2q>y`%3&nUN;;uLy;c)Ol&6it0{<{Bg#9nc5TINLo
zJPv*7^x|uq)Z1{VLP|ro3>*oXXY#WYsJqDxtqV4oewSP2-uv@&!|R<V7F)b~phoho
z5`u8BA6E~>-hc2wq#3ZcM3Qc_3Xvt{OzmSF#d;|wa{WEP=a=~;w^!_Kzl?jQ9^1}C
zGBjjWVt{VMH>8~Fcr!0zEm_=sHL@Dd8P|q~hu2709#K|ilSUaxl{uBB5ma%@4&mN8
zFrgBDS0iQRx6w)k=XbD)M#~&Au0iCU9Txq|1>`fUGZ5!K&%X6g|2{YU0H*?skYxGG
z6IPP1`Gt9%JKHb#dbtJr=@EhnDd0QX=^G4}BiWtmG1^U~cC{4va`W;^%T(al3k$W?
z>YLh*x``&1-Yz|vVZh@3S<JMOl2%gJqU5E-u|e=?{PlrtRVvQeey*k0HVt*`@|Ag3
zZ$m<vo4rLp;&1uhiPrP9F9qN?s1vGG#&uCn-N%WEK~AzwHY;+iY98(d`w`CH$!uZy
zTt<>q-Z`%~8(fNZ*Gfv)cL>xmz~&dk=KE>hbscEFAja{51I$`qGfhXV`if?p<3~H?
z!Z$Z|m{;Fd(eSySk*iO@tlP5rO&8nQBrW&RxbPRu+3^A;i;9S~TmuX8?DHor2%7`X
zpXLVt)&{23iu=RO>$&6GEUm0AILSs@^YTbWUy3^#Khe5K=|k@rw&qcCvi(RFCFdqN
zd<7gh%XrS;cFfxlpE14kPPxUpnS>uGj2MIx+RpQ=n0@rxFY}r&lFbGpZ~%rYM2zGk
ztY%!4$K&eViwTEFrP7)`p42-$e)2@PEl;p8+%RgR(0xOiox?!hxKxfe7?l*4zJ@-9
zWxw!h>+0Sxe0Hklp@!(J+4qz?I>(N2do#y^*ktN)nw>HGW<17viG6YnHLtwxWA%M$
zEe_9CQBhkQo^zKjCIV*f9V%RfeFdFqpJrQj=d^vnj7utOMbhyUAt9l$X3v4YnTyjU
zKk56E>5iV`{gF&tI=n~y$><A9cmXnh_2;h>FJg1sX$Qi-cLOZ9Gj0y?`Xn5bLB0bS
ztB_C|B2tS*3!%V1T~)<@15tFf9%6s0AxY=ET<f}oOF-RQn%&xiND7r_3U*ul=FUqy
zl5=;Pc#qbSqf;HDYM;s?)Gr+A=ZeU6Sb?%2a@ua~K6QxDMS~w-nIpQ%^+gafr<@3V
z<MO-e&Lm*b3Pon`Y9<LtuK6R8YvkR|hB8dOhKk51Lm3yBu3bqt_4Ph>>{#!SNVus$
zz#V?R`CB6{avCt6{(9a&ful-nncy=$ef`dj)|52ESN;i!2C2md>NdQ{hBfy0rr;^K
z1`?y0Z}(Idf^FqZ&Ko;%Okcl*xF%+Qjy*}ym&^4&-MVd?mBVF{fr3?MV*?O%g;n<s
zm^WrRh`aQDKs0Fn$hRQ(iVdm^!#_P=vM>L8w|gTi1~>oV$9qi!|E&n_{xvVhE++xG
zm4hw;l5<Rcw$Oj1*1%q<e=fTDRqO~YFD`cSzE|d#t46OqXglOt!0Sm%k~-5v-1R3l
zsrz7v?mfXZ@A7|_>vU^$)Y+kKj}~|KQp$<y<XoZtH4ew_m9bymS<U|D|LjuAKl^z9
zxdom7y^DWoee8e4az1`gwZLf;m>U!lw7Yh@+?i^)vp<ZoZ{35V@qk>aI7DK?Hx6|)
z6crWa&r&RD*RJ^%%A%ffwcKLK@nuhi`DQO?=6#ndM?TNZ;~c40WBkR4<J!&}hg2LK
z9LUE@>4FqFvmR5v#cmt3z?kQZ^9=SY0~?|?s87Cf)Hxk-(oc#o_=q0+!#Io&;%Z2Z
zq=kgKdwK{_55Vd7pc}}Y)a8^5kt~Dd;ms7fo5yx+-Wn<2k@fzMRWkoa?9@L~lKtNY
z`7b@ey&G-_{;37{&#Afp7jEz|wR=lmhXJq`FWHs5qJY^n&_<HA1cTJg0OCAIk^;>`
z6r{#ld|6UK;@(qV-9FzwZB~9qQXI+EMBx@iE>dU#R3G>wmHil&IhtI9Nu~vgB<Zki
z_65LiM=6w@rysn$hKo>=Qjd(&EVYeX>QA9kcWxl>>pS%!R7{HSt!CZt;|UY|YbX0^
zPxE9|o`-|`Lcvko;_a;usC(T9=FtZ11jjx!JyKb+OuBK!5?-;(06M#fIKXzS<>{{n
z4oAt8Lf&D}8=EyF*1#90m=y(NqHfe~@5?l7bgI!1cOU*VFM^+Z5t5%GzFY;5uheAk
zK5KEaLTVR1*%XhZy8T7~Nr}Kj82L<gpj=yKI=lPbm#<Pxl+ymW1S`_}4EtfqySX{+
zt(PlKv{I?BEmBi{eRc651NdEjdhit&mpHg1+p)g7L_<O#<G+1pr<W&jlTY65%T|8Q
zIBVRLNUt_Vp8Wp(du8RqyFZ=3)5xkizzOh;Wyv_do$V|?_!tYdlJ!;2<!#l|)01k*
z_*+Vq%K6K>y=Q+>RwlI={^Og-#h;IT;pQ~3R<pIWZ9MyG85lG0U-qfqpjx?xLRQeW
z8SejxG8<GM<qKbgOWOxONzTu%cOWbM!E+#wVdVL)mR`r5{T-!Y1HwayfCA_Or?r5|
zbTKipvC&2Qa&BCo7Osm29d09K`236?fA!$$!oJ%0`OSwnuR<ljmROsn?3V`<RsM=;
z8qvVN)DJFSE?(qYn0@>3!+JmINX-(~bR|ndt|AV^?&^@5`s)|$cT&`zcD#7-yh8uj
zu}?jmez~A6b~yd;eEElK+8L^G#`ia(Ohk;MfHgB<4g+!kXCzf`UuK_^k?@LfeJ;at
zZqQ<<zgK>YJh#vuCF5|r>}^pV-SKO{yc&6Yi7nT3><41TnvK>OmIv#jpujb7;YE3Q
zbC8?;Hvj0E-qYoF1F)6^<D3l9xT<Xlsmk;B2_g9u8=d)KF)3$~bcl;<baZqG+Jx1a
zLX>OZEVd)7oTDLvHb3GheKzX&3U|H4jrK>5mg3||P{i_^wW1o^5*SEY5gef^Y3iNI
z-l3O3rCK`AG$I510CF|FDIa+={~fzXiTo6b2#S#2_tgEwVm?+rthcE{knXEHTi!G^
z<-y|g|Bi80GEJ`5WB#&NO(8yCW5iFrxxV^z<3Z)G{Y`Q-&GNs?t!}pb&d!ot_Qm}`
za;rupNJF1OwTgdQ#Lum7;(qGMN4r8#&YLoS$+J9>784}_%!rgQXqLpp{P?T3&1)9@
z*q`e@V)o(buR}rhUNIUU`&WZJJO@ZZswSkgO9Tr-W`w@PjUm+y`S{Ae1a(;1ZuT*t
zWEgJG5ndwSD|A!Ln2*=!>`%(M(!#V@Nmu)<j+@A<2BiiHK>CtTZysL@#?lD2BVdk{
z1I{k#l5X_6+G2xBc>p4crAonYK&E-2Hgfvx%m0}Ec@~Q7FlFH`k>lh2O^iqdmpA?i
z>0dcdIJ%EL{q<EFwlkQhG@$%wi*#+ibnk$FF-T9d-VZ4ZNnti;^~>ol?mcdyFPEB7
zTvRLuUsjx22x`Y{AxWTipQq_0%*m#zc>dprw8*0Vf7E&X|MU`%au?+yFiZ-t$tJ(e
zpA=gAz$G2Ny?fJ5QNx=9_t+L~xnY1~08Do~R0Kf~G!+rW0IH~ghc|}~ykaknle;^o
z+pern*WgtGsnnL~&(aRy4~m&6b!Wm8n8QC#Dy}E*-4}La+|Lz(i+J>j0oLpQ@f~w@
zD6!nZmtAll5zci6Ly#PGGM}<9Z>-roznMyX_Usv9LfQ$Z4-!B@tYCV$3n4&Rd3vHm
zDR}<!y&KrHe%C#J`Rhb*Lb)3$E7EFfN$8wfU424UwxyH^1Zu||gpWW`e0^NRxkF#O
zYj-4}NOL^j%Uv~$%|KPfJGnj2QBhM<ySz?XjIjJ=H$?;C%VmjVi0#*tvbUpl6haC}
z?eTF@0Zy`csc+aH{y8CX^`KN56m*5xx9OM-wG|B!(aiWPN+1F;2ZI8LYUh2tj>5Nl
zTp*{=3Zj-Bo}pk`jmnPA*XQZvCUG2XK0Mu+KRcSN3P}jz@ITaVVt<RsOU)&2^d#eT
zq>c~NF-8sX?lmU_83;i**hUm*QY^~v5HV0LqWuu~-#tP?i1J?jj?sZgBL)(7v-fvp
z%mH?Asgxf%9C7Z=Hd0KOXyYwdW1lyw2gL%voD?aw9M3v;ib(LPb6f{d^n(14P(FYe
zSJ!nKwoK`%-XyX|%9Wot@r!qL*FI^FQ<||Nim4Pt)J7%`4-dO2T%p98UW2e2Xig$`
z))*KVI@hVWM>>IRhRUqu?QQ5_NO84TSKpY2P^c)DWLQO9oWbpzShFK{*V18uK_XPh
z8sp6$yfE=DET0?j$uy^U3dQ;8<Y(k&D6)|-@$-u~gUP*aK74Bh(l$AXIwDw;*Jbmu
zRg<v#8Ai+OY6RhySL_>kdgHzq=hjB{>mOu>6(J6|pPemBPfAF5YiNqgTGDvRghqS(
zml!Yjq@iJ8@SZ16+I5$q&Z>B*Jb8YKTDpFHeT<TB*Y=gdI6Kcym6=uD{b>%hKrZQ1
zZN?(HFCvapRW1adZT9-g#z`@<enNGLm)_SDY<J?hBJFILHzr-{#K#oe+1j++-Sqyi
z5b$M<fd*_j!-5QR3!Mmq^2^w}*p)`s1HmL~48`5XGb~gPf22n#c)I-c4YRPs*Xf?4
z-L+>}&<uQP@Wnlh7%wMlwJ(mGOrTZPn%qaDA9dn=6IRrmC65b&?j~MB!KpGG`q2}8
zruyR{n_du-ao`;Lb=gF$vp>Jf@uWPrp*B4x3kTaiX$G|_`IZj$JDg6yMQF)%TsLAq
zev))1odp#^xOIr2lH$L41Aq--5UEs%4>#nG=MAVxh1)(GAOU!yzS0LJ8B`C3cCm(c
zO^Pid7rtBb#`8G?(us-5N?!<qs#SPNDXtByXb`FP4}qmtgzjTCxw{D0X7?-~NP1kq
z_SWzD+ZPjyg|&W}s046gTM`#nr4q~Q@EwWx`q`Gr3fDH&od>8#|9sZU)~2?W*}j&x
zWZxO<7)f`U%bRU+g|M-eVJ03{syEm>Qf1}*dTF!h#pV2boQe~_5V0J*>T06ZL!p4w
z7EreBtm|f**)L3IOL!do=|#DclzVzFzhYm;=?DG{Wg=dL)>{4VHObviCEaSiIK7RO
zlg3%+A>hrC^SE_6DG&y4XCKJBI$y5%xxx!Myw_GOLM2kp3<_`jxj%niGo+10N;5S|
zr26MLKoodHSfT9h?w-%dUf!xx9SW^^aN&+0`>~|_T1qocOV|9kp~ZjB>V}7BucVt!
zxAA6;!QeK`otdr;*lXThCK1-0>!fzJykg(|APWY%oKIpaLAn*=L|9ItOc%gzR&74~
zIvquyD+3?d7oG4W(Im6=cOxdeb=hCvN{+I>pwC_*A+~4|2Y$qRu7)UdU!-Nem}$N|
z$(!g#jv6G25#d`V6s+dJ7}ZbolYfpqD%!7fw)MGJ7~6?dZNt;?1N)$q)nS5aw~SbJ
z*L|sh=yHn@V|Gy77k7Pp6Ce9t*`8qhOI&ot_!agqBsSu3mne><cyY2<df%#l$CbWe
zu3V-O4`GJx6Fn7UV`F9IUZPWLpNngeC;S)WLKQ548tp`}bUxQEWOq`G40eT%*a?+N
zVh%KXhdwVQUwOri|Jp-4+$Irrj&xSqrw_oi+u*%iP;^4}2I+M(*QPnUk>!83Z~&p{
z&Jx#>%WGE=oXpK5>HUbU$3qRjkNWNG#$pdhGD~#fa8d|y6Qjw#{4uH_!EJ4Ao0$W&
z7N4w)Ia=XvA9k@BTA{2l4e6%$y>FXD!9GP<vvB$<TxHnn5~&A2PD;&m#a6%h=lYIq
zuRY1S$f@f|w(GCH2IZ$L7kBqbmp(%sozTv?#7{OEw}TQ$MS9JbuS(0`zdgDP7$s}$
z%Ekl3e|}i^okv)o<HSe*5|qrixdueDe#EA(W=cm4$({T3+AAzo-Kzg5$4Ff@DIFB0
zEMwlidk0F-_~5Hcobkur&;@&y>#toKEa3JtHr1bA8=uu-%Mik5Zi|b!w!{sp^Hrgn
zHO{24Y-vq5t)r3OOp2WjJF2Z+ZCU=YLd-Zdt7;RaY9S6QF)BjV9aU4il&tjOQupJ>
zW(V#CQts-aXj>f<ICB}51$w{tNR$+jX$GT)O!U7-C}=pmQ`@4FY?61!=>A7q!Hg|Q
zvbng}m3%oDoBXo+SbS9aM8^G8Lw#$FQ+^_U&ke$ZvAMx^h<QcNs#H0j^v>fD*^iti
zjHz@86{Vc<a?j_6y1G1Y+@=u-;RFv59S2EWgN}9)xjz966F_NUo&)FxVD$Sx+oS>E
z7{tW;!%}LTVt-t>;Y;?r@hw}^F0K-MR-b@}y#4OWv=VipUv8O2>eYTTCE-)4^)3U9
zjXeu4!<(aulEIcAA~SIS{UOzmKYAiZX{tKJ3}q93ZFHJU3wn+VoOU+u<ec`lxcKWW
zj;m+2mtLT*IB-^cl}6E$i&;4dVQ&*{((62Jt*i7lGs~JZM#iY`o8GFsl`aiBSEL?m
zTzFXR!ipdseU$?$S*84+T`I=M{T=vD_B&Rr&)-wo*)ASZ;#x62GUL_KvM1Wn;<IG*
zq!$O}Zpror!CjS5uoJBJ#Ck9aaEAcR5<p7hgxzfG^+>qiJY*g1J$6a1KU0`^Rgy&#
zAvV~DUZ_!1uu?8ow(KMC*PQf-W55N?1B3=4NY*ui9Zc`)Kh2jX*V}jKTds2SajUvS
z1ZroXjpe+jk;X4R&IYObDs>0_#vv66ym;}Vrr@qtc0jO<{(Vs{QQ%8RNo8azg_WWF
zy@PN`lO>81FE|fkfA6W!`QYlsi2P`S=sQD0iEZK~Z~h9U$x<z|>4_l+fG23EUVOs{
zDTiD_(>ETtSQvu1zqdcLy)7xHKY$4JuZe8aojbkpI?wz-I)|1PB0{g@;v)K9QWo5G
z>f7r_-{Ez$uU*xXeGI#tM5hbvWqWYAbbj;0o_<B}Gn*3F-gSfVA%VfVy1LJ_#BX_<
z&n8Z{@T45()ex@-f83b+oVp4_Lw0jmS^AT5;BzymRvnt%J39pJv*%W)2T!M`tE+P0
zzybddIb5BHiqL1n{<MN#X_zHRI*4Lj!2Q!z{N4TAeQFP`%_U;Old1K3jO$@xCE$Rt
zNnGq65};`?FXS5gLiDlxC<g9y3S(bW;?<qGkh1O1-k@#Y>UDqFN@)XTiSKlYrH#!_
zCmInD{XWh%h$|KgINiumvb40^>O}iit#aMw_S_ThN)-=5R1-*nheO8Es{<|9x^Egb
zFdmcMf>Txg(Dgp9ie=x*S4&(?5RXOFW1*U|=vi1U^XUqaA1O8lQGdQB5(P2n-p&X|
z(m_FmBTx`<YvtHD*UGerTb?8qgj*;iNjK5`%Fj-;Bgb#IB8kA@dBMwUCjiY7+vWSO
zKld|{o<Jz5({+t~3my-i?RTB1iJp}xka#r?fD!q!=^^A8?VrQ#p@o6Aqe3=^{Z9TP
zSVx5AxAr0Yav9}g1daPJRh6c+@BL|h*vbm@F%&d4^fvY3A|nja*z?zyrHl`_LPTeq
z(E>N=lY^A6s$*^`j$<jHpp0mV+H+bnybsm(W{VK^QMv1kmk3^%CfHaI%@}7=`UF`M
zB@=PJQ*qOsrZ^IdzlDwva@HQj1P2tbm<5QhKw^vdosM`B=S;+tge)QLH`D0ry1b`i
zuP}+U%a(!Z8%hcB-WjYg_F=9si&ABt?#-LF{LRVT;-@Pj_D+5ZZ9lEVG=SIxI$ZRy
zG_{G7%%u^uABfw(eE(XMpBs1f{kBMe3OZN>gzE>hob#NDdr8w%F*IlEp%D;0xQ+eT
z3VJV2589DtCbUBYlU$F8myf5IsSpjdkPs<|;~QLo$?hJHV?(yCp#bEcwFSPcHBbd#
z7Es8R)11R{JGf6>V%t0=AlcAj(2kKIT9;t3iv4)vh@1U;Mah@$3(-sSlUBPn0iiM<
z5_FaT3jFm}EiQz9%$@uk4!#Piz=J9(w38L=yNuVrE|HGDl81+HuOwX{;kMA;@e$Tb
zSvdmX(*a65-WU<`UO$1jt=5C2&E>6s4v|O7BZt%0tDBAofrrgSx+?x=&aYjCxro6U
ziGqNO3lTZMbf#OM2<*1*+GU?HgW}u><J$=v+kq2SCQAE6!)DaCy>0578Xt&mnQa$j
z9q*dMIUWh{s8F}q4>Qb5g3Iks@4jupkj{&5K(e~zujT>$Ou79yREY;lAk^W>WWztd
zs3)x)1K_ZtS}H73ePy(ls7pf0&`I;>6g2tkH;_ETCr3eDOd@iKoO#}CHt*plKt4|Z
zMhmie-zE#@I{RGlf*Hu-|BZ<QrhOt}Xe!lrGR*hVvUO6qj`uBYTDswc6HzMw8U)U_
zAg}-Hv8h8t1Zf0fOScHWQH1sg0c`A~6j9204F#Gu{;GB{r$772E9p~gJl<8lJ)rsv
z+{PNjHgl305qL1sds->y)vRlBx+l?sg1`tMA)6S5F8nDY5&<m5YjSwv?P<jtvv3_v
znN233`uC!xB2f36Kh?dCH})ZoA<?Ih)F}|V*uqLM#t6Q9Nc$1tD8#im$)&4ec;s98
zp;LZeS9kE5$WUA0E+~Hy;2<s%0-V?Gs$m<%*AqDBL<<7piKr8ee3X)_{(|1hkAj1b
zoZ7YhuI%eQkH+;Bz_SiB)=As#bQ)*BbK2m={AMD=FPLdP&$&9=ll|M-gstilq!$nw
z1ys2N7u?fgf7?FpkDIND@W`vzTrdz~-o5#wiS|WMuCzZfojK!$#5n{MCQd<5+<Jhj
zd+KcNpo>`Ta`4f7e0(l$y~uR~o+M>IHZI8#CoLS5eN1kzZ-+2j6=z!!4*5d=O7fDQ
z1swJadS8sX#MrlBdGTB7arCkJ9yes(!_vo|Bqz66`I?)zn`$1@9xQ!HK1j(s5q6Xg
z^x*ZJ5drPa^sI<l_POosmzs-Kvg0V_A4ju4%c@7eou%vF3U?2VsoayjBV~Ky`i;I@
zywVa9Y1subBwj4hW#2FS#8ba<2)e(#o9+81@a!|6dpN)A-S3t*gUjQ6%*I0$*+=Re
z1JI`}(PjH03jfJJ-}vXZ{n?ru`|VQyfgAo8T;iBY{F1HLMby}x8nDFT8Z9M$a)xXm
zxFZZw3o^Ba+7hBwhqCYz+a;r@Ksxf+y7ib~+3g5zfnMy`MB%S7pVz!#$?8HPtcw(=
z>^Rpa>jUYd1Bi;gDj%dkDJM&>p<8cJ8)>r4_hzn6nCn?i>K5m)M<%}BXW}ENcaZ`H
z(XF%P{yiT^KMTEJcJy_}Ikx1NP=`cZhJKY|8cdZ4w~50Tg15<gt<N^7Dj$W-tqP>!
z^6vTNZ+vGVE>35DAhkeX+x5U14#jIve-dm#yGL8VjwC9cUEy<OwBQrH!~noX?le1M
zQ+^fQqtXWI*F;GB7L~fUFRjL<!4#z)(xs!UOq!aSPRtp*wTJif9F$}TexXvq_)0P?
z+6pfrnxZt~Vra}ZQQI%#>Jm<MXuLo{gD{z>AzCnqrd3D?j7i-YQ{>1*>biQo0E|!&
zuIK#h-Pib^8(h!JQ4S?*MJvXNad-qhdsgr^1zD1bZ&lE>fPg{6#m|$HrDrc+FFh&i
zZIjIDCT-WahRgQ{hwxN|>xrnCpds39g%SEUN&i6L3@LyR`orm7gHvf;?M+gpyO)r#
zbK&y!$Gdmm)qnix(csj1yZ1+QR)rrj{*GdcUr;&ndQU%K19wJGnB|ArPooGNMN%5`
zn~W-2Jjts286QZFeqpFRRH5_Ko4@%p@aVKljc>elQZn3UY|+g5h06jO8k+Y!Nl(h}
z=tNGcdQBv+o4M-xiOr#<T4LB>ZBtXzwt&0iuRZcO9_$wj>v1lKNxLbN5ldf`%V2Hl
zhxYwUN_hs7*tSRtEw*E=Q1k5taFo2XOkY%`31raJyQ65xH$C{>m4#~8zCIq%I&uac
zcG6Eeyxe2vC)b9I@`99k5BAw38}?<*Mk;2|eeKsleFtV9O)UPmvo#Xgfa75B`g&Vu
zwl$@ZuO~v{V|scJ7$QHpV>|L*M+@9K#O@8YDryYvKeYgV`2_IpL(ND&E-v(6)LXG|
z*KJ@d(cB;$y!XDLH9I(2YGAvBg-D$f8%p{RZh^_1J;+P+hims(D4Uy`lUCCdK$07o
zN7+_c&?PQy@B}(lE$?of$x6p82ydsscTz*O6lGWw5b+W9bmPYlzs+A%Oq88_EZ$N{
zi(YSis_O?OuZh74^s}5O>}EflY*Gnyg4Jyr@9ro@iKwO85+Dfar*$J3Yf^4@1HLs!
zUmz)<k#LL*gE!WKeJ2&<<br8#1k-5T%~q2lxR9<7ox6|OCLd73m&^Xke~pv-7x>Bl
zy@cQ2;^hCX#ebKzc)Zn_BTo%w_3JlAqYf*?KM{5Qfs%FrQ!JM9Nj!RgYG3j(ZS9Yv
zi<%xeJoo!>v|ET`sRJ7C{nuyFSI=b`#f9(;y2KzS#I%n0r<}rzi;Is!2`DF`wh~x6
zR&2gU5L6hD$8eEri1xU0`yJ~FQWADPb@Y)RZ5;%CqmN%?#oo(*4}NgD+O<NI4%Lkp
ze&vI!B~v!2Zl~w@(FL7iY#9kU-(Q)RH+1>|n&Dihj<+z_?%?P@#A5$FY>c2Il)u!A
zGA6Z~Cp_ZI{C<aju0BEsV}$klnwY%HLFLHaWi!h|jEb7EU=$A?kS9;eb|m|5+}^!9
zEPLtJTg8dK^<(p86x7T+X1RblyYz0dl@FAk{~git-+Vd#du+=8-o<~e`_a|zp69X&
zGYvvW=YtQ6*-}E7O2mHljGbWF?nfXbb~(GVkFeZ|!P$D!_<cW6EWk)C%-81s0^{F&
zx}Ut+kKf?_Mj<KN25wTY69&nPdJUh_>`(~l-gl_ckY?910agNT?>T)l`|#X{zIPLD
z1H~8!M@0mM5kT!|HQ@oUVi&vs-N_t*Z@_)Kb3FUL-18J$HU5Q|eUxM1A0qa@0mS?7
z7hG=uauROawb9NIITI!!f#?JUZn*S!!V$$q`*;9(qoZ5gt}#>WSh$#)v2DCM+7d{w
zC#vSLVllcwjP1hu`rX^%cv!PDF$t_Brb6t$b>O{i1u@(wfQ-MU;5ltAEm1;7E|u}&
zq1D~+vW^o=-9kk!0W2mK`9Mx>D4((AaZ<u%off5s?@v*xF3x&S^-i@!FPwJ%H1#z}
zaFFuuQSO<_t&AH5alI+0k3|k%I;zjHZ{3^mW>-3kKlb@|xyDESEuc3r=y`G?ExkZG
zKE7)eZ?IA(x$gYy1B%-`=pn8Y?gNumziQ89EkQV-a32G@U9^1t8ZIuPu?VyU242lI
z@W+e9nbErsA8sa!y4B<MP=0`(t0_J7+tDW&X|b#R8G5huSU-M85#0vLdpx&OforJ3
zH`MmS(|d(H99Q&EdNG{C;;>JbTXz>eV6PYQqeu*E(30l=6VGQCNxwv%2+;oes&G!C
z7~8BezD~{6_*v=JAZ*Gr>J@j4LowNxF*jAK;av|~CxU4(5K+oFe(p{4Wn|b6fla}M
zxK!6yC#KKk1rL!IaB*#kbUF%Q9}%DsN)*eE^p1#O&5JLCH@{3MPhzht_1Of|An$Dv
zwQEOtQ+AMcRZ@#A?_a0r<z|GYB3O5AtRs=afK|zUzvzgp-Lr-JHfEOcQ7*J?wytvg
zI?z&3Q*W;Fo3&aZX{II3z~haMT4=meYW89Fk?folguyYcNBE8vWB0ZGvdCi4MR<?f
z#-_Ke3+}EU|2p!v^+Ht4jy-PQN)}iC9VzlZ#oOv$&-QD60Bb^N$9e6(E#Ta|K?6>s
zWsERgq_gr8df|c~pyEXVK@+8E)OktE_)Ul|-*uCQ^P)gr2vnr=hk`zU5;$bURb_zH
zi&WHm&IsDRUB2mx1+m|qC(^bG387DRJtWWD98@R|YR3k);Enmwlq##_{HZguo`=lM
zW6*V|Zg8J%A{+jnNuI~>9h3(}pvl)nqZJmm12N>Lq=kNIkCT!re3ekL^FCy>jAA7P
zLYRna@s8H#zu_HQZydfRq81;>c6)c*|18S?<DJ}o$QbRiJE4Hp(Nf?c(zaOjuwqaT
z<bvX7-ajHUs?0D-hzveE8ur7!H%6FqHH2)k5R<;vpbg(CzKmnTrVL+}<#rU#Jex<N
z2wT&h*&ZASK@&!CY}3B5ZyUP7PCSKqvWLczu@N7Kz>t-Ie>R_;o&>8tGfFRkRPvCv
z5M>*hcZD&R>6%Ea*aAQ9`q`QGCcVTHJcNqD7fKK+D$MAd+VvZgakgEe;LOTV4uTwu
z3m3jjw4g*5<<`P%=0$b#YFURFBy2+%CsYhw>9jLA=`KCfsdr&*5U~YOU42~RkvU@!
zh&(ES*~g)XW>-KUS<5ffo!6xDd`Z=16haHhRuF*>(IucxHOvInWsb2c<S|PohT7GM
zPP%HHWaP<fr6<XZ7KcWMk|K0_wiEd$;wL8a<xwZ6DCMMv!B&^K_@CuPtE;{wI4&xc
zjNTHR|6Lx{kN56c#(^eGJgDV7h^>4s2K7tTWej+Nx522Twu|fRsL-$6fVEQm>J(6b
z0XJ^fxOaT<ZzhFEugft9=o03_?XttnAfgTuP=ZQ<osFX$QNpok{R%S2Z0XwF58e|2
znlkhm#9#Cyw1U;bqziQzd?Z#@bb?VZ!ywfZ3`bI;;#8C%^szhoNzDj7m@vj$&|>96
zf3wRW7A&v*aO8m37P6L*uXmiAJk^0=B5jbvpMy-}-t`WSro(ue08X#g`D|rg24W#m
zeDIoji4*rv1|#IcJCgc*X795yQaq0p<H4?}Jge{34B_|eO>uzG@#bB=yVr4xeMi8*
z!LeR~cO~LNbF^HtHIEpU)=sEA!P!Cox=cJ~c2QXV*I1%k6mE-Ln@j8oXIn}DEF%us
z0U}NCQNjvp)KO%AMUN)wW1v#W@Uq;QF~+7O)JD5R?_8uIr6KG~5vriRL|)&9e$UGw
zI<G&Ky_<uYx2zSJ#$!*ft-bLSbn#u<6G#S=y*hTl&dVj~5;=d&uiC?YA2`j)J`&B?
zb>j_05KO93<SVB!E>6^0W}h_I;5-S^F)j`Qh#en5YspQIdg3t&88boiWzw)|=vO7>
z(_^t@KMUp5r6W)u#TNoe-7Z>^_eXdFheXW1dmBkfiHxyGZ+fI1)An-7uHJ`)m^mSh
z14Lp)F6pu$=Nlyq{qAdiLaXro?HCP39q=CT90CVabYCT~ts~4dn9M1GVuGldiAfPa
z2FYYylNAS;zc-{HiMdiNK2nKZkC|QC+8bwoi`p3~qDHb$@~3OB_1tjE2me{2#qt$o
zUu4=Mn)!)(7Awk?VqN!M7p2lSrZp%;RmbLM_e_4dWV*;>kvT8LV>yzxs=np2U3a~n
zo<%rzVNRN2pvW})-%^Y%?0mSos;X*PZF*(WaUFfhyoVxci|h2odD`T|rEK4XlmM&n
zJk9>>>@;2D5bF^vcdj{VLSP;x?*@cKU3z4m4v8CrJ4x{c_@^#Wl6&{hf9(IDC;;_*
zb>*pPUeov}b5lb~S0wSzl&YM$G7XtVg-Hv@Hs#T#PN?sjna^%6!;qM;CF(9kcU(3_
z30g+dzo&d%Z-I4fdYF<Tj!xnMG=Y#QnK};-U!qdW#Bvg@pF${laFg7QRKZN2y*b*6
zVJcw23-$AdZ@?8nzS5@UJEgNt9i-&Xo5-5j5~VPeN}4aYNxu(a`(beClm?e>J2HVm
zFdg<AzLF^-%7s{1E<!S*iBJ{Y^lg~zb{XHivo6`Rpk|2pX@J}{Q2WfL5K$Jhah6~s
z{$T4KyOHwRQPSlTRxsT``e^`glrUwI8*xYf)444E;3k|^uTHs^OJrOgW;3iJhad7q
z)@3r+ampx7S4RivED$)Yko18NZ3<~8B<<puDYL4L6u?I$Y0esCD=@f3m}n88(+<SE
zE#J6yGHq_c7dp-&OzMdNj99pgkDCmNA}l%4ZtL~fR3Od4NS-f5`$C*8nO{I$-iK$W
z)Sr~3cTU#hCZ|zR3?#aLGPexDMu9{HA~M_ClaOkL`Aj))3!b_<_o_PiOxx4o&@<t)
z+flc5BNYIWGLR=Db1a7-!gS4?tt-}X?30sQEh~3Z&N0u}Jve8#fShA<aIU{ohqEy?
zWeFv1BL}5xAv}eekkBP6=1oni%?^=XB{gLcj51OKdHlqi=p0%~;QDUL4?dqiS=lm!
z@mG=4M3KI{qyUOX(G2@3B3ZWeZzqlI)A{iGGy^(W@6}9Fwi}^mLG1bf+h6YjVWK9+
zZ&tTCR_kdn%Av=E>d$WEj<kJqW1FNXbctE;p02W=;XX|By`{o6U}DK>9>EZUi+~8X
zqSIY5$fcBs>dZ_DkRL8lnoX&x)IwCsDSnAf2t_T}X|kv4PS85(&rG7w{$LZH6g(sH
zWqLyEnn)H#qcYa30-b9hm^4_-^sUvpuzm@@f~$TKEw$1?zr_4>1tTiOu#4_|x<rgp
zCA-Is!_SUrSEk2WrpsGC(TM64t{%HLjTs@<uD$?-p3_Y&Gsb~TlB^M+138k*{f3I1
zFAu}p_C!w}4rB^?bloEoGG0<FUGMVYS4_lY*yNBlIRv7dV`Z)o7ZTzANST>a9qBQ`
z=+e)cA<~gSUUdeii%@QFI->-B4FgQPgix`n`7A@GEbRq=H*72*11*77iSEF5td@t!
z7>OUvd3(5-+AqkYHJ($)c(L?y2PaHUD#3tD*E_MZc6fLVo^w0XIvX$KH}CK6A3EMe
zA5EIdUq*@7@BU*grE3xnWH;LKM1-zYdiOiZ^|fHC!tkE96E#kok59XQZU$bCOh9X1
zX~#J=$aaRI5E2obc)n=ZRsatiIc0zWm_96sw;K`)kV6Oy)x);05!rG*q$}6TI<DC=
zGB#mr)o{p%Q{R(THhdZS=@_Lze3%6jE+HWy0vCLU)Wf|@iQ+i!%n8gRSuPm~wO%Pg
zcPP0=mXVm1jm_b@B;#;2RurfyLfn-hd*0Qv9142XXDB|3gq8JGxd21TrIG%?P^e8i
zlD`n?#x)}DDky;OCj)Q7E6q_*+>MhlO{XO#i5Wco<)_`qyS>5*(9>ZX+ivIX_n*j!
zk!y(VqO4qao0EvLrKqCZCMCj2MFJHxBjXfgWzW-gm@BEtO3j+WDR?pP7z)J9LxB`U
zi1;8S4|7jH-7*g@rR89d3RWt8=)Dm$>GFl(h@2yIM)mlu{Xr$c5wye<!vwmselg5a
z9&YxC6NyZ$wtRd%a*PGg^?HCbM;i9VSsgio={fB7vJ6ACB;+@B0@g*2p{-!VcHtup
zXOUJ6LenIPvyBoFfV+M#>w`IY(hNJmhe;{&D>>a7R7-ERC}DS`l2g*H1E?nfLPRrc
z`CLevRGxuNFGZki>UPd!M&MZ3q<YuV>08=MLMmy7`CgNnwu`xPG2QUf(^t#Yg@hn$
z*STY>6X5sfdJxgvX0EFsowpib&PQM$>Z`j^D1rfCeUfXZ7<^jg=>u<$cfHP9;+)6t
z9by$ScKO>%T*gX}11e93E~$*0vPMn0xS)jgEd1k#RW1#_5RP`xh;X0wq>>D^90MG&
z7+<z_w+I<qF&DRFPuPVSVTK8rt!FVF3H8WiADQ(*W-m)I?4aIDfp`y<IvB95(E&J_
zS@&toB<vyb_xB$a@7y797GTHPr3D!xdx{|{bRqK3icW2Uc8oN3XzPttghUhd$dk@#
zGQ%0dEo&E3NbAh7{F9Y}uoJ1|dwXF2ZAd)P<pZ5~!PYl2vN1WuJ~&fsG)-ma5-u3C
zxtehkW1UI1iDy6_dLnPgz`8wN23{;NGUqtmaBGu{K;US0vu+EGV*^nf?9;~i5Vb=?
z8<m>bbw3cQ#oqT80Id#~3yOy$GtQDmH^m*k{jPhq@27JqbW3j<<_6I+ldT4soUB1k
z(TuW_yB(f$EJC=(*j-tpS14l+Ghp!6V=@C&qLb{CrL$Wuln^>5?{>i~Y@PewK^qoR
zn@<qZ^cca`dW;MUv{g8~S|(jcL^Z;y!Iw!dB4F~YIn(0}Cd33mRjU~tcO~1pw*cO3
zGP!yIuh9xzwHkO}T9r)1#+anZ&NG-?G-*zU1)CKl2E~2mh97h3H#4?Z?cLs<ay+@m
zc+`6x<((#)0k~@st)p9r`qR(`gD=ti<Ax-XA!+T*TuQ%*F)GNh&_SVfd%>Pxp8KsH
zw~g*tJyc=yxsE+r;6(n=F>AdfquVV4dn^w7hxpPknlw+e-w^XCeVFqFC-#MVOGduP
z!z!<4^r6(7IHrR^=cI{=O2st0tnv}5PBKmoNtB2f6nL4CKC)+xqX`xY$k)CS-m~lY
z_+*`<_V*;Ev`Cz^1~W&dg`$CWmcTf$LgC&?Czc2ruG1>t_UX7~Ut>{r^H{@;V)GOe
zdQLY}it->55N+#Y%odX<Pyh$SZxJIoLy-P(UlPKE6tk~8;k}uay>U@O!I!07`y=9V
zb92kQZRir8>@+;P``@HDfdQKIP0<SP=VKNvu9uaKS}e2rgq-WP14R-cCDfPsNgRH`
zK=>4u5wwA9gRCQKy0hNK#lPNCL+Q@N9mK?;O}csilfb<%d|^Z%s9jm>w0RhvJq<Q3
zPPXOP>GThF2;hlhp=BLy7@vuHHd56L_hwhY9B<JYfCTm&b_Ba105o*91R06(mdZ&B
zlcYHAfcLn_fs0E^?UkU0o9uj`AlP?%wBDp>{Su8E-5#z*L&p>7l9VIsQ7yS^nU5^f
zwL8;DjBYEP-u-sv_c_@QSr>gU8!N+FqkVtGlf-0KtS@N_5fTFVO7Bi6z;LZpOd`W*
zsc9ES>3(bQaMot9awsug3C{jlAwTkV4ahbEGjUv9Zk?JyA>aAYK$?~9G-=`}PykNo
z-x_B?Zi%PIgW(aft<J6Yji({DiL%dOq94Yn0$@eP;z50|>}I(IBVqyVRM}0hy=UuB
zEuIp;O`$A!K>i;AVLXW$M5W|%+RiNFNe^a;d9|&I24RcrG0punGwBfso)#Mv<EM1r
zhD#?GWtcJ>=)-%`iE>+ynTNAOQo-_mYp{r9rXkDSP}<Ie_Ru=a&U7SIh79!aVlrC#
zkF;1-H4m9$3RA)4M*=*EHnG~;T2s7azs`kRK*kd8bMmXZ^Ae9ITT|}tWqT9?eFBMz
zDi>lK8<Px-QPy(+P*EwAd-16!xxnOl!$MAhh?acJb!>;sPV9~Qp)b(xRN9-KeX+m+
z6Pim#DwU!+L$8Tk0#qv|ZGWdDo%Jy5JhrA2)1&imv?yYxWE;jM2afj8J1bKmsN0Jp
z+)jQ&rIP-@wWlMhEeeSKn{cP5hOie%ZN-R#Kc0E^S9E)zWuJ6=-1A^{C(mv#@J6yy
z3<PqsK>XM>5i&%CsDv@(&mt@<<-|tklhdXcy+7Hf7P`48&8nsi#1$D8Io%Fz4e}8|
z(%54J%&+o8QK01N=0rs2tDTuw+EcC!*cN#h&!=420%3YU+nXK9Z|$RfroQwk_D8cO
zqemD7B>rUGkc1q8Xe79}3ee+bhMr5vUWcW<!Z9UZyMhr(2CogQke}&NRbmf}*ETR%
zi;4xTjj(KNkun*08tcf9urU;`<-MIXN!T^0W8Orco*4W%6eBpZwSYzDcs98(5^ELX
z(A7oy#K}Bes67R7HIOVs_MY;~i{Ghkofi#=V8g#B5zGU&L`g^p7-}66lEVDF@<5@e
zM&LwLfB3KlN1^8|D<?bnGK+9$r166_O=guMBU6Ty14Q;T{S@jEL?BeC!fVWpu7ItU
zc{mOOdXIYgUOO7S9y<PdJi{y(&ZKPxoXLW5{Lc+K=~ZNYs7t21wjow0%#<|*N#OQ|
z$UdOu&yfPw{TJ=6q(HF{eG4Qiab2C+?ZI-x(gA1G0M#1ZJ0trRPm?DlJxzhkMN8MP
z=QrTC<6fm7R3^tw@DIs2w8#^M6rpwGYFSB1!tE>o*2`?cEcBxN+wB(>3H;ry?l1V;
zt-4}dYX^<x>*;#=-Op?M9VYk}erF!OdBcYfg$MU9mfL8#<#?cq$Bq=8LCR0Zeq8i)
zbfL*lPk&srB4y?EE5%Dr2A-ldn6($zaz@2P-)6n_+EWzrn~aRiZ7as($LBme?ufYi
z`c^hIH5r{|o-#KV*3#0Fk(GUe7~y;AuIaD#_Pat$Md);TeN&T0YW-njx|LLTeRFd~
zQISeibaZN3+E=ZT_#W9;AAbx936W7$)Qqc9!<!`dzKnWgWoN%}ldqVaoi*)Ce*Ad7
zfPjSrUq@@}hD5y`&c<<!zR%Os@~F-kn3}Q%a{~hd*9INT%F0qprmM$Pzkd00zm&AJ
zqr3ZU8jY65=;It<<%B!W*xTB6jE+j;cVEVt2FAuS-oE;Jde2f*LsL^z8(UgV|G4I@
zb6us$65rh+Bat0^m5vG(BTZ5RoqUvu^|fF3_&!0q){im%{{BumO(IIZVi~!)(?zQ|
zC|;)dbL|~lug|se9ohOD$WPE?N9N6m_V0Z+r~ccoi@v_8+5_Z8%8zoUa}*Kxp?~({
oKg{WiF07oJIktGyKYIZm$~z6lMo*8&Y(;{ail%bX{$GCoKctpY1ONa4

diff --git a/reference/plot.html b/reference/plot.html
index bdb9f7ea..4a9ad2fa 100644
--- a/reference/plot.html
+++ b/reference/plot.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/proportion.html b/reference/proportion.html
index 5af3656f..c343c5ff 100644
--- a/reference/proportion.html
+++ b/reference/proportion.html
@@ -12,7 +12,7 @@ resistance() should be used to calculate resistance, susceptibility() should be
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/random.html b/reference/random.html
index 2d80e865..2b461217 100644
--- a/reference/random.html
+++ b/reference/random.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -193,42 +193,43 @@
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 4     4     128   4     4     2     0.25  0.002 2     128   1     0.25 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 128   0.5   0.005 0.025 4     256   64    16    16    0.01  0.25  0.001</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 0.002</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 32      0.125   0.002   0.0625  16      32      0.25    0.005   32     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 32      0.025   0.025   0.01    16      0.25    32      0.005   8      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [19] &gt;=128   0.002   0.01    0.002   8       &lt;=0.001 0.01   </span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 42  9 27 42 18  9 46 39 38 20 26 48  6 47 40 23 13 29 22  6  8 16 40 20 16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 39 44 20 34 35 49 41  9 45 26 38 38 43 44 43 27 44 29 42 27 11 46  7 43 46</span>
 <span class="r-in"><span><span class="fu">random_sir</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] S S I I S S S I R R I R I I S R R R R I I S R I I</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] S I R S S R R I S R S S S R R I I I R S I R S I R</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># \donttest{</span></span></span>
 <span class="r-in"><span><span class="co"># make the random generation more realistic by setting a bug and/or drug:</span></span></span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span> <span class="co"># range 0.0625-64</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 32    0.125 0.025 0.001 0.01  64    0.125 0.01  2     2     64    1    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 0.025 0.25  0.125 16    8     0.125 0.002 4     0.025 128   256   0.002</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 16   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 2      1      0.0625 0.01   1      0.25   0.125  0.005  0.125  &gt;=64  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 0.25   0.025  0.125  1      0.005  0.25   0.025  32     0.25   32    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 32     0.0625 0.125  0.01   0.125 </span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span>, <span class="st">"meropenem"</span><span class="op">)</span> <span class="co"># range 0.0625-16</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 16 32 1  16 2  4  32 32 32 2  4  2  16 1  16 16 2  16 2  8  8  1  8  32 2 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 2     1     2     8     2     4     &lt;=0.5 &lt;=0.5 &gt;=16  &gt;=16  1     4    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 4     4     &gt;=16  1     4     &lt;=0.5 4     2     1     2     1     2    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 2    </span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Streptococcus pneumoniae"</span>, <span class="st">"meropenem"</span><span class="op">)</span> <span class="co"># range 0.0625-4</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] &lt;=0.0625 0.25     4        0.5      0.5      2        16       1       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [9] 0.5      &lt;=0.0625 &lt;=0.0625 0.25     0.125    8        1        0.125   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [17] 0.25     0.25     0.5      4        &lt;=0.0625 0.5      2        0.5     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [25] &lt;=0.0625</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 1       0.25    1       &lt;=0.025 2       2       0.125   0.5     1      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 0.0625  &lt;=0.025 1       0.5     0.125   &gt;=4     &gt;=4     0.25    0.125  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 0.125   0.5     &lt;=0.025 &lt;=0.025 0.25    0.5     0.5    </span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span> <span class="co"># range 8-50</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 15 40 46 17 10 19 38 43 35 33 44  9 22 30 24 49 11 48  8 18  8 12 21 24 33</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 14 34 36 16 21 47 29 46 32 45 27 45 25 37 42 36 34 30 49 28 22 45 46 41 34</span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span>, <span class="st">"ampicillin"</span><span class="op">)</span> <span class="co"># range 11-17</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 12 13 15 12 15 17 11 14 17 15 15 13 13 13 13 13 11 17 16 13 12 13 13 12 17</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 15 14 14 11 13 11 16 17 12 11 11 15 15 16 14 11 12 13 14 14 16 17 14 16 12</span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Streptococcus pneumoniae"</span>, <span class="st">"ampicillin"</span><span class="op">)</span> <span class="co"># range 12-27</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 21 23 23 18 25 24 16 19 20 22 15 22 23 24 21 24 23 17 22 17 23 27 23 26 19</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 27 19 26 21 24 27 23 22 19 25 23 27 25 25 21 20 20 27 21 19 26 22 26 27 24</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/resistance_predict.html b/reference/resistance_predict.html
index e77abffa..6064730a 100644
--- a/reference/resistance_predict.html
+++ b/reference/resistance_predict.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/skewness.html b/reference/skewness.html
index aa211d18..f2f1077f 100644
--- a/reference/skewness.html
+++ b/reference/skewness.html
@@ -12,7 +12,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -181,7 +181,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">skewness</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Uniform.html" class="external-link">runif</a></span><span class="op">(</span><span class="fl">1000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.02857046</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.04370586</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/translate.html b/reference/translate.html
index d9cbb15c..72d5c392 100644
--- a/reference/translate.html
+++ b/reference/translate.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9015</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9018</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/search.json b/search.json
index 85ec150f..44f17473 100644
--- a/search.json
+++ b/search.json
@@ -1 +1 @@
-[{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to conduct AMR data analysis","text":"Conducting AMR data analysis unfortunately requires -depth knowledge different scientific fields, makes hard right. least, requires: Good questions (always start !) reliable data thorough understanding (clinical) epidemiology, understand clinical epidemiological relevance possible bias results thorough understanding (clinical) microbiology/infectious diseases, understand microorganisms causal infections implications pharmaceutical treatment, well understanding intrinsic acquired microbial resistance Experience data analysis microbiological tests results, understand determination limitations MIC values interpretations SIR values Availability biological taxonomy microorganisms probably normalisation factors pharmaceuticals, defined daily doses (DDD) Available (inter-)national guidelines, profound methods apply course, instantly provide knowledge experience. AMR package, aimed providing (1) tools simplify antimicrobial resistance data cleaning, transformation analysis, (2) methods easily incorporate international guidelines (3) scientifically reliable reference data, including requirements mentioned . AMR package enables standardised reproducible AMR data analysis, application evidence-based rules, determination first isolates, translation various codes microorganisms antimicrobial agents, determination (multi-drug) resistant microorganisms, calculation antimicrobial resistance, prevalence future trends.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to conduct AMR data analysis","text":"tutorial, create fake demonstration data work . can skip Cleaning data already data ready. start analysis, try make structure data generally look like :","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"How to conduct AMR data analysis","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2 RStudio. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. also use cleaner package, can used cleaning data creating frequency tables. AMR package contains data set example_isolates_unclean, might look data users extracted laboratory systems: AMR data analysis, like microorganism column contain valid, --date taxonomy, antibiotic columns cleaned SIR values well.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"dplyr\", \"ggplot2\", \"AMR\")) example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"How to conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 11 Dec 2022. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Microorganism translation was uncertain for four microorganisms. Run #>   mo_uncertainties() to review these uncertainties, or use #>   add_custom_microorganisms() to add custom entries. mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Streptomyces argenteolus (0.483), Streptomyces aureus (0.474), #>               Streptomyces azureus (0.467), Streptomyces aureorectus (0.444), #>               Streptomyces auratus (0.433), Streptomyces aurantiogriseus (0.429), and #>               Streptomyces aureocirculatus (0.429) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> Basing inclusion on all antimicrobial results, using a points threshold of #> 2 #> Including isolates from ICU. #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% of total where a microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,626 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,616 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2626        Length:2626        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-14   #>  Mode  :character   Mode  :character   Median :2015-06-05   #>                                        Mean   :2015-06-15   #>                                        3rd Qu.:2017-08-23   #>                                        Max.   :2020-01-01   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :43.2% (n=1134)   %R   :36.1% (n=947)    #>  Unique:4              %SI  :56.8% (n=1492)   %SI  :63.9% (n=1679)   #>  #1    :B_ESCHR_COLI   - %S :41.1% (n=1080)   - %S :52.7% (n=1383)   #>  #2    :B_STPHY_AURS   - %I :15.7% (n=412)    - %I :11.3% (n=296)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1102)   %R   :37.0% (n=971)    TRUE:2626      #>  %SI  :58.0% (n=1524)   %SI  :63.0% (n=1655)                  #>  - %S :51.9% (n=1362)   - %S :59.9% (n=1574)                  #>  - %I : 6.2% (n=162)    - %I : 3.1% (n=81)                    #>   glimpse(our_data_1st) #> Rows: 2,626 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"J8\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, R, S, S, S, S, R, S, S, R, R, R, R, I, S,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, R,… #> $ CIP        <sir> S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1808          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1250 #> 2 Staphylococcus aureus      661 #> 3 Streptococcus pneumoniae   399 #> 4 Klebsiella pneumoniae      316"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,626 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2016-06-14 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,626 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI R     S     #>  7 B_ESCHR_COLI R     S     #>  8 B_ESCHR_COLI S     S     #>  9 B_STPHY_AURS S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,626 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     S     #>  7 B_ESCHR_COLI R     S     S     S     #>  8 B_ESCHR_COLI S     S     S     S     #>  9 B_STPHY_AURS S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,616 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 971 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN R     S     S     R     TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS R     S     S     R     TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI S     S     S     R     TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI S     S     S     R     TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI S     S     S     R     TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS S     S     S     R     TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN S     S     S     R     TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS S     S     S     R     TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS S     S     S     R     TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN S     S     S     R     TRUE  #> # ℹ 961 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"How to conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. next example, force language Spanish using language argument:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) antibiogram(example_isolates,             mo_transform = \"gramstain\",             antibiotics = aminoglycosides(),             ab_transform = \"name\",             language = \"es\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"How to conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"How to conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"How to conduct AMR data analysis","text":"create WISCA, must state combination therapy antibiotics argument (similar Combination Antibiogram), define syndromic group syndromic_group argument (similar Syndromic Antibiogram) cases predefined based clinical demographic characteristics (e.g., endocarditis 75+ females). next example simplification without clinical characteristics, just gives idea WISCA can created:","code":"wisca <- antibiogram(example_isolates,                      antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),                      mo_transform = \"gramstain\",                      minimum = 10, # this should be >= 30, but now just as example                      syndromic_group = ifelse(example_isolates$age >= 65 &                                                 example_isolates$gender == \"M\",                                               \"WISCA Group 1\", \"WISCA Group 2\")) wisca"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"How to conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.3, 2021). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          S         I            I          I            S            S #> 2          R         R            I          I            S            R #> 3          R         I            S          S            R            R #> 4          I         S            R          I            I            S #> 5          S         R            R          I            R            R #> 6          S         R            S          I            I            I #>   kanamycin #> 1         S #> 2         R #> 3         S #> 4         S #> 5         I #> 6         R mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 9.577e-17 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss-sas-stata","dir":"Articles","previous_headings":"","what":"SPSS / SAS / Stata","title":"How to import data from SPSS / SAS / Stata","text":"SPSS (Statistical Package Social Sciences) probably well-known software package statistical analysis. SPSS easier learn R, SPSS click menu run parts analysis. user-friendliness, taught universities particularly useful students new statistics. experience, guess pretty much (bio)medical students know time graduate. SAS Stata comparable statistical packages popular big industries.","code":""},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"compared-to-r","dir":"Articles","previous_headings":"","what":"Compared to R","title":"How to import data from SPSS / SAS / Stata","text":"said, SPSS easier learn R. SPSS, SAS Stata come major downsides comparing R: R highly modular. official R network (CRAN) features 16,000 packages time writing, AMR package one . packages peer-reviewed publication. Aside official channel, also developers choose submit CRAN, rather keep public repository, like GitHub. may even lot 14,000 packages . Bottom line , can really extend ask somebody . Take example AMR package. Among things, adds reliable reference data R help data cleaning analysis. SPSS, SAS Stata never know valid MIC value Gram stain E. coli . species Klebiella resistant amoxicillin Floxapen® trade name flucloxacillin. facts properties often needed clean existing data, inconvenient software package without reliable reference data. See demonstration. R extremely flexible. write syntax , can anything want. flexibility transforming, arranging, grouping summarising data, drawing plots, endless - SPSS, SAS Stata bound algorithms format styles. may bit flexible, can probably never create specific publication-ready plot without using (paid) software. sometimes write syntaxes SPSS run complete analysis ‘automate’ work, lot less time R. notice writing syntaxes R lot nifty clever SPSS. Still, working statistical package, knowledge (statistically) willing accomplish. R can easily automated. last years, R Markdown really made interesting development. R Markdown, can easily produce reports, whether format Word, PowerPoint, website, PDF document just raw data Excel. even allows use reference file containing layout style (e.g. fonts colours) organisation. use lot generate weekly monthly reports automatically. Just write code enjoy automatically updated reports interval like. even professional environment, create Shiny apps: live manipulation data using custom made website. webdesign knowledge needed (JavaScript, CSS, HTML) almost zero. R huge community. Many R users just ask questions websites like StackOverflow.com, largest online community programmers. time writing, 489 114 R-related questions already asked platform (covers questions answers programming language). experience, questions answered within couple minutes. R understands data type, including SPSS/SAS/Stata. ’s vice versa ’m afraid. can import data source R. example SPSS, SAS Stata (link), Minitab, Epi Info EpiData (link), Excel (link), flat files like CSV, TXT TSV (link), directly databases datawarehouses anywhere world (link). can even scrape websites download tables live internet (link) get results API call transform data one command (link). best part - can export R data formats well. can import SPSS file, analysis neatly R export resulting tables Excel files sharing. R completely free open-source. strings attached. created maintained volunteers believe (data) science open publicly available everybody. SPSS, SAS Stata quite expensive. IBM SPSS Staticstics comes subscriptions nowadays, varying USD 1,300 USD 8,500 per user per year. SAS Analytics Pro costs around USD 10,000 per computer. Stata also business model subscription fees, varying USD 600 USD 2,800 per computer per year, lower prices come limitation number variables can work . still offer benefits R. working midsized small company, can save tens thousands dollars using R instead e.g. SPSS - gaining even functions flexibility. R enthousiasts can much PR want (like ), nobody officially associated affiliated R. really free. R (nowadays) preferred analysis software academic papers. present, R among world powerful statistical languages, generally popular science (Bollmann et al., 2017). reasons, number references R analysis method academic papers rising continuously even surpassed SPSS academic use (Muenchen, 2014). believe thing SPSS , always great user interface easy learn use. Back developed , little competition, let alone R. R didn’t even professional user interface last decade (called RStudio, see ). people used R nineties 2010 almost completely incomparable R used now. language restyled completely volunteers dedicated professionals field data science. SPSS great nothing else compete. now 2023, don’t see reason SPSS better use R. demonstrate first point:","code":"# not all values are valid MIC values: as.mic(0.125) #> Class 'mic' #> [1] 0.125 as.mic(\"testvalue\") #> Class 'mic' #> [1] <NA>  # the Gram stain is available for all bacteria: mo_gramstain(\"E. coli\") #> [1] \"Gram-negative\"  # Klebsiella is intrinsic resistant to amoxicillin, according to EUCAST: klebsiella_test <- data.frame(   mo = \"klebsiella\",   amox = \"S\",   stringsAsFactors = FALSE ) klebsiella_test # (our original data) #>           mo amox #> 1 klebsiella    S eucast_rules(klebsiella_test, info = FALSE) # (the edited data by EUCAST rules) #>           mo amox #> 1 klebsiella    R  # hundreds of trade names can be translated to a name, trade name or an ATC code: ab_name(\"floxapen\") #> [1] \"Flucloxacillin\" ab_tradenames(\"floxapen\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\" ab_atc(\"floxapen\") #> [1] \"J01CF05\""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"rstudio","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"RStudio","title":"How to import data from SPSS / SAS / Stata","text":"work R, probably best option use RStudio. open-source free desktop environment allows run R code, also supports project management, version management, package management convenient import menus work data sources. can also install RStudio Server private corporate server, brings nothing less complete RStudio software website (home work). import data file, just click Import Dataset Environment tab:  additional packages needed, RStudio ask installed beforehand. window opens, can define options (parameters) used import ’re ready go:  want named variables imported factors resembles SPSS , use as_factor(). difference :","code":"SPSS_data # # A tibble: 4,203 x 4 #     v001 sex       status    statusage #    <dbl> <dbl+lbl> <dbl+lbl>     <dbl> #  1 10002 1         1              76.6 #  2 10004 0         1              59.1 #  3 10005 1         1              54.5 #  4 10006 1         1              54.1 #  5 10007 1         1              57.7 #  6 10008 1         1              62.8 #  7 10010 0         1              63.7 #  8 10011 1         1              73.1 #  9 10017 1         1              56.7 # 10 10018 0         1              66.6 # # ... with 4,193 more rows  as_factor(SPSS_data) # # A tibble: 4,203 x 4 #     v001 sex    status statusage #    <dbl> <fct>  <fct>      <dbl> #  1 10002 Male   alive       76.6 #  2 10004 Female alive       59.1 #  3 10005 Male   alive       54.5 #  4 10006 Male   alive       54.1 #  5 10007 Male   alive       57.7 #  6 10008 Male   alive       62.8 #  7 10010 Female alive       63.7 #  8 10011 Male   alive       73.1 #  9 10017 Male   alive       56.7 # 10 10018 Female alive       66.6 # # ... with 4,193 more rows"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"base-r","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"Base R","title":"How to import data from SPSS / SAS / Stata","text":"import data SPSS, SAS Stata, can use great haven package : can now import files follows:","code":"# download and install the latest version: install.packages(\"haven\") # load the package you just installed: library(haven)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SPSS","title":"How to import data from SPSS / SAS / Stata","text":"read files SPSS R: forget as_factor(), mentioned . export R objects SPSS file format:","code":"# read any SPSS file based on file extension (best way): read_spss(file = \"path/to/file\")  # read .sav or .zsav file: read_sav(file = \"path/to/file\")  # read .por file: read_por(file = \"path/to/file\") # save as .sav file: write_sav(data = yourdata, path = \"path/to/file\")  # save as compressed .zsav file: write_sav(data = yourdata, path = \"path/to/file\", compress = TRUE)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"sas","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SAS","title":"How to import data from SPSS / SAS / Stata","text":"read files SAS R: export R objects SAS file format:","code":"# read .sas7bdat + .sas7bcat files: read_sas(data_file = \"path/to/file\", catalog_file = NULL)  # read SAS transport files (version 5 and version 8): read_xpt(file = \"path/to/file\") # save as regular SAS file: write_sas(data = yourdata, path = \"path/to/file\")  # the SAS transport format is an open format # (required for submission of the data to the FDA) write_xpt(data = yourdata, path = \"path/to/file\", version = 8)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"stata","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"Stata","title":"How to import data from SPSS / SAS / Stata","text":"read files Stata R: export R objects Stata file format:","code":"# read .dta file: read_stata(file = \"/path/to/file\")  # works exactly the same: read_dta(file = \"/path/to/file\") # save as .dta file, Stata version 14: # (supports Stata v8 until v15 at the time of writing) write_dta(data = yourdata, path = \"/path/to/file\", version = 14)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 3: S < < R Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 52 151 rows 23 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, oxygen_tolerance, source, lpsn, lpsn_parent, lpsn_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 11 May 2023 19:56:27 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.7 MB) Download Microsoft Excel workbook (5.2 MB) Download Apache Feather file (5.5 MB) Download Apache Parquet file (2.6 MB) Download SAS data (SAS) file (50.9 MB) Download SAS transport (XPT) file (48.4 MB) Download IBM SPSS Statistics data file (17.7 MB) Download Stata DTA file (48.5 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microoganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) Download SAS data (SAS) file (1.9 MB) Download SAS transport (XPT) file (1.4 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) Download SAS data (SAS) file (84 kB) Download SAS transport (XPT) file (68 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 18 271 rows 11 columns, containing following column names:guideline, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 20 April 2023 13:20:41 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (43 kB) Download tab-separated text file (1.9 MB) Download Microsoft Excel workbook (0.8 MB) Download Apache Feather file (0.7 MB) Download Apache Parquet file (88 kB) Download SAS data (SAS) file (3.6 MB) Download SAS transport (XPT) file (3.4 MB) Download IBM SPSS Statistics data file (2.3 MB) Download Stata DTA file (3.3 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2013-2022) EUCAST (2013-2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS data (SAS) file (9.8 MB) Download SAS transport (XPT) file (9.5 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 336 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 14 November 2022 14:20:39 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (29 kB) Download Microsoft Excel workbook (19 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (8 kB) Download SAS data (SAS) file (92 kB) Download SAS transport (XPT) file (79 kB) Download IBM SPSS Statistics data file (43 kB) Download Stata DTA file (82 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant : ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021) ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 32 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 22 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral breakpoint guidelines CLSI EUCAST included last 10 years. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline last 10 years (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions — AMR-deprecated","title":"Deprecated Functions — AMR-deprecated","text":"functions -called 'Deprecated'. removed future release. Using functions give warning name function replaced (one).","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions — AMR-deprecated","text":"","code":"NA_rsi_  as.rsi(x, ...)  facet_rsi(...)  geom_rsi(...)  ggplot_rsi(...)  ggplot_rsi_predict(...)  is.rsi(...)  is.rsi.eligible(...)  labels_rsi_count(...)  n_rsi(...)  random_rsi(...)  rsi_df(...)  rsi_predict(...)  scale_rsi_colours(...)  theme_rsi(...)"},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Deprecated Functions — AMR-deprecated","text":"object class rsi (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2022\". Supported guideline currently EUCAST (2013-2022) CLSI (2013-2022). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_locale  language use AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options :   add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within data team, save options file remote file location, shared network drive. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~52 000 microorganisms (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral breakpoint guidelines CLSI EUCAST included last 10 years. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"The AMR Package — AMR","text":"cite AMR publications use: Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). \"AMR: R Package Working Antimicrobial Resistance Data.\" Journal Statistical Software, 104(3), 1-31. doi:10.18637/jss.v104.i03 . BibTeX entry LaTeX users :","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"The AMR Package — AMR","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.berends@certe.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Use function e.g. clinical texts health care records. returns list antimicrobial drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"ab_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_ab = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_ab type = \"drug\": column name antibiotics data set translate antibiotic abbreviations , using ab_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .ab()","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"function also internally used .ab(), although searches first drug name throw note drug names returned. Note: .ab() function may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"default, function search antimicrobial drug names. text elements searched official names, ATC codes brand names. uses .ab() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(abx = ab_from_text(clinical_text)) returned AB codes can transformed official names, groups, etc. ab_* functions ab_name() ab_group(), using translate_ab argument. using collapse, function return character:df %>% mutate(abx = ab_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"# mind the bad spelling of amoxicillin in this line, # straight from a true health care record: ab_from_text(\"28/03/2020 regular amoxicilliin 500mg po tid\") #> [[1]] #> Class 'ab' #> [1] AMX #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") #> [[1]] #> Class 'ab' #> [1] AMX CIP #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"dose\") #> [[1]] #> [1] 500 400 #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"admin\") #> [[1]] #> [1] \"oral\" \"iv\"   #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", collapse = \", \") #> [1] \"AMX, CIP\" # \\donttest{ # if you want to know which antibiotic groups were administered, do e.g.: abx <- ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") ab_group(abx[[1]]) #> [1] \"Beta-lactams/penicillins\" \"Quinolones\"                if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antibiotic — ab_property","title":"Get Properties of an Antibiotic — ab_property","text":"Use functions return specific property antibiotic antibiotics data set. input values evaluated internally .ab().","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"ab_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  ab_cid(x, ...)  ab_synonyms(x, ...)  ab_tradenames(x, ...)  ab_group(x, language = get_AMR_locale(), ...)  ab_atc(x, only_first = FALSE, ...)  ab_atc_group1(x, language = get_AMR_locale(), ...)  ab_atc_group2(x, language = get_AMR_locale(), ...)  ab_loinc(x, ...)  ab_ddd(x, administration = \"oral\", ...)  ab_ddd_units(x, administration = \"oral\", ...)  ab_info(x, language = get_AMR_locale(), ...)  ab_url(x, open = FALSE, ...)  ab_property(x, property = \"name\", language = get_AMR_locale(), ...)  set_ab_names(   data,   ...,   property = \"name\",   language = get_AMR_locale(),   snake_case = NULL )"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antibiotic — ab_property","text":"x (vector ) text can coerced valid antibiotic drug code .ab() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. lead e.g. \"polymyxin B\" \"polymyxin b\". ... case set_ab_names() data data.frame: columns select (supports tidy selection column1:column4), otherwise arguments passed .ab() only_first logical indicate whether first ATC code must returned, giving preference J0-codes (.e., antimicrobial drug group) administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antibiotics data set: vector_or(colnames(antibiotics), sort = FALSE). data data.frame columns need renamed, character vector column names snake_case logical indicate whether names -called snake case: lower case spaces/slashes replaced underscore (_)","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antibiotic — ab_property","text":"integer case ab_cid() named list case ab_info() multiple ab_atc()/ab_synonyms()/ab_tradenames() double case ab_ddd() data.frame case set_ab_names() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antibiotic — ab_property","text":"output translated possible. function ab_url() return direct URL official website. warning returned required ATC code available. function set_ab_names() special column renaming function data.frames. renames columns names resemble antimicrobial drugs. always makes sure new column names unique. property = \"atc\" set, preference given ATC codes J-group.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antibiotic — ab_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"# all properties: ab_name(\"AMX\") #> [1] \"Amoxicillin\" ab_atc(\"AMX\") #> [1] \"J01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_tradenames(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_group(\"AMX\") #> [1] \"Beta-lactams/penicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                           Amoxicillin  #> \"https://www.whocc.no/atc_ddd_index/?code=J01CA04&showdescription=no\"   # smart lowercase tranformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #> [1] \"16365-9\" \"25274-2\" \"3344-9\"  \"80133-2\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #> [1] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"87604-5\" ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antibiotics data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"# \\donttest{  # returns NA and throws a warning (which is suppressed here): suppressWarnings(   as.ab(\"testab\") ) #> Class 'ab' #> [1] <NA>  # now add a custom entry - it will be considered by as.ab() and # all ab_*() functions add_custom_antimicrobials(   data.frame(     ab = \"TESTAB\",     name = \"Test Antibiotic\",     # you can add any property present in the     # 'antibiotics' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal antibiotics data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://www.whocc.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal antibiotics data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antibiotic selectors work x <- data.frame(   random_column = \"some value\",   coflu = as.sir(\"S\"),   ampicillin = as.sir(\"R\") ) x #>   random_column coflu ampicillin #> 1    some value     S          R x[, betalactams()] #> ℹ For betalactams() using columns 'coflu' (co-fluampicil) and #>   'ampicillin' #>   coflu ampicillin #> 1     S          R # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Microorganisms — add_custom_microorganisms","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"add_custom_microorganisms() can add custom microorganisms, non-taxonomic outcome laboratory analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"add_custom_microorganisms(x)  clear_custom_microorganisms()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"x data.frame resembling microorganisms data set, least containing column \"genus\" (case-insensitive)","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in only \"Enterobacter asburiae\": mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2023\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $gbif #> [1] NA #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, although a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1935-04-26  88  88.04384         64 #> 2  1939-12-20  83  83.39178         60 #> 3  1940-09-26  82  82.62466         59 #> 4  1981-04-16  42  42.07123         18 #> 5  1946-10-07  76  76.59452         53 #> 6  1974-10-27  48  48.53973         25 #> 7  1938-08-21  84  84.72329         61 #> 8  1941-05-13  81  81.99726         58 #> 9  1933-07-19  89  89.81370         66 #> 10 1977-01-31  46  46.27671         22"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for antibiogram knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set: \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\")) --------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 10 × 7 #>    `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 CoNS (43-309)              0    86    52     0    52    22 #>  2 E. coli (0-462)          100    98   100    NA   100    97 #>  3 E. faecalis (0-39)         0     0   100     0    NA     0 #>  4 K. pneumoniae (0-58)      NA    90   100    NA   100    90 #>  5 P. aeruginosa (17-30)     NA   100    NA     0    NA   100 #>  6 P. mirabilis (0-34)       NA    94    94    NA    NA    94 #>  7 S. aureus (2-233)         NA    99    NA    NA    NA    98 #>  8 S. epidermidis (8-163)     0    79    NA     0    NA    51 #>  9 S. hominis (3-80)         NA    92    NA    NA    NA    85 #> 10 S. pneumoniae (11-117)     0     0    NA     0    NA     0  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Pathogen (N min-max)`   J01GB01 J01GB03 J01GB04 J01GB06 #> * <chr>                      <dbl>   <dbl>   <dbl>   <dbl> #> 1 Gram-negative (35-686)        96      96       0      98 #> 2 Gram-positive (436-1170)      34      63       0       0  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 5 × 3 #>   `Pathogen (N min-max)`                           Imipenem Meropenem #> * <chr>                                               <dbl>     <dbl> #> 1 Coagulase-negative Staphylococcus (CoNS) (48-48)       52        52 #> 2 Enterococcus faecalis (0-38)                          100        NA #> 3 Escherichia coli (418-422)                            100       100 #> 4 Klebsiella pneumoniae (51-53)                         100       100 #> 5 Proteus mirabilis (27-32)                              94        NA   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # A tibble: 2 × 4 #>   `Pathogen (N min-max)`     TZP `TZP + GEN` `TZP + TOB` #> * <chr>                    <dbl>       <dbl>       <dbl> #> 1 Gram-negative (641-693)     88          99          98 #> 2 Gram-positive (345-1044)    86          98          95  # names of antibiotics do not need to resemble columns exactly: antibiogram(example_isolates,   antibiotics = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # A tibble: 2 × 3 #>   `Pathogen (N min-max)`  Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>                           <dbl>                        <dbl> #> 1 Gram-negative (684-694)            91                           99 #> 2 Gram-positive (724-847)            77                           93   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 14 × 8 #>    `Syndromic Group` `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>             <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 Clinical          CoNS (23-205)             NA    89    57    NA    57    26 #>  2 ICU               CoNS (10-73)              NA    79    NA    NA    NA    NA #>  3 Outpatient        CoNS (3-31)               NA    84    NA    NA    NA    NA #>  4 Clinical          E. coli (0-299)          100    98   100    NA   100    98 #>  5 ICU               E. coli (0-137)          100    99   100    NA   100    96 #>  6 Clinical          K. pneumoniae (0-51)      NA    92   100    NA   100    92 #>  7 Clinical          P. mirabilis (0-30)       NA   100    NA    NA    NA   100 #>  8 Clinical          S. aureus (2-150)         NA    99    NA    NA    NA    97 #>  9 ICU               S. aureus (0-66)          NA   100    NA    NA    NA    NA #> 10 Clinical          S. epidermidis (4-79)     NA    82    NA    NA    NA    55 #> 11 ICU               S. epidermidis (4-75)     NA    72    NA    NA    NA    41 #> 12 Clinical          S. hominis (1-45)         NA    96    NA    NA    NA    94 #> 13 Clinical          S. pneumoniae (5-78)       0     0    NA     0    NA     0 #> 14 ICU               S. pneumoniae (5-30)       0     0    NA     0    NA     0  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for mo_genus()  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antibiotics = aminoglycosides(),   ab_transform = \"name\",   syndromic_group = ifelse(ex1$ward == \"ICU\",     \"UCI\", \"No UCI\"   ),   language = \"es\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Grupo sindrómico` `Patógeno (N min-max)` Amikacina Gentamicina Tobramicina #> * <chr>              <chr>                      <dbl>       <dbl>       <dbl> #> 1 No UCI             E. coli (0-325)              100          98          98 #> 2 UCI                E. coli (0-137)              100          99          96   # Weighted-incidence syndromic combination antibiogram (WISCA) ---------  # the data set could contain a filter for e.g. respiratory specimens/ICU antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   minimum = 10, # this should be >=30, but now just as example   syndromic_group = ifelse(example_isolates$age >= 65 &     example_isolates$gender == \"M\",   \"WISCA Group 1\", \"WISCA Group 2\"   ) ) #> # A tibble: 4 × 6 #>   `Syndromic Group` `Pathogen (N min-max)`    AMC `AMC + CIP`   TZP `TZP + TOB` #> * <chr>             <chr>                   <dbl>       <dbl> <dbl>       <dbl> #> 1 WISCA Group 1     Gram-negative (261-285)    76          95    89          99 #> 2 WISCA Group 2     Gram-negative (380-442)    76          98    88          98 #> 3 WISCA Group 1     Gram-positive (123-406)    76          89    81          95 #> 4 WISCA Group 2     Gram-positive (222-732)    76          89    88          95   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ For ureidopenicillins() using column 'TZP' (piperacillin/tazobactam)  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Pathogen (N)          | Piperacillin/tazobactam| #> |:---------------------|-----------------------:| #> |CoNS (33)             |                      30| #> |*E. coli* (416)       |                      94| #> |*K. pneumoniae* (53)  |                      89| #> |*S. pneumoniae* (112) |                     100|   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   syndromic_group = \"ward\" )  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab1) }  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab2) }   plot(ab1)  plot(ab2)  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antibiotic Selectors — antibiotic_class_selectors","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions allow filtering rows selecting columns based antibiotic test results specific antibiotic class group (according antibiotics data set), without need define columns antibiotic abbreviations. short, column name resembles antimicrobial drug, picked functions matches pharmaceutical class: \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" picked cephalosporins().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"ab_class(ab_class, only_sir_columns = FALSE, only_treatable = TRUE, ...)  ab_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, ...)  antifungals(only_sir_columns = FALSE, ...)  antimycobacterials(only_sir_columns = FALSE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE, ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, ...)  cephalosporins_1st(only_sir_columns = FALSE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, ...)  cephalosporins_4th(only_sir_columns = FALSE, ...)  cephalosporins_5th(only_sir_columns = FALSE, ...)  fluoroquinolones(only_sir_columns = FALSE, ...)  glycopeptides(only_sir_columns = FALSE, ...)  lincosamides(only_sir_columns = FALSE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  streptogramins(only_sir_columns = FALSE, ...)  quinolones(only_sir_columns = FALSE, ...)  tetracyclines(only_sir_columns = FALSE, ...)  trimethoprims(only_sir_columns = FALSE, ...)  ureidopenicillins(only_sir_columns = FALSE, ...)  administrable_per_os(only_sir_columns = FALSE, ...)  administrable_iv(only_sir_columns = FALSE, ...)  not_intrinsic_resistant(   only_sir_columns = FALSE,   col_mo = NULL,   version_expertrules = 3.3,   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"ab_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antibiotics data set searched (case-insensitive) value. only_sir_columns logical indicate whether columns class sir must selected (default FALSE), see .sir() only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE) ... ignored, place allow future extensions filter expression evaluated antibiotics data set, name %like% \"trim\" col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can either \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"(internally) character vector column names, additional class \"ab_selector\"","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), amphotericin B-high (AMH), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amphotericin B (AMB), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # Examples sections below are split into 'base R', 'dplyr', and 'data.table':   # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows  # select only antibiotic columns with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  2 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  3 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  4 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  5 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  6 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  7 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  8 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  9 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA    #> 10 NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB  S     NA    S     S     #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN  S     NA    S     S     #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB  S     NA    S     S     #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI  R     NA    NA    R     #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antibiotic selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP R     NA    NA    R     #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS R     R     R     R     #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS R     R     R     R     #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS R     R     R     R     #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS R     R     R     R     #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    NA    NA    NA    NA    #>  2 NA    NA    NA    NA    NA    NA    NA    #>  3 R     NA    NA    R     R     R     R     #>  4 NA    NA    NA    NA    NA    NA    R     #>  5 NA    NA    NA    NA    NA    NA    R     #>  6 NA    NA    NA    NA    NA    NA    R     #>  7 NA    NA    NA    NA    NA    NA    R     #>  8 NA    NA    NA    NA    NA    NA    R     #>  9 R     NA    NA    NA    S     NA    S     #> 10 R     NA    NA    NA    S     NA    S     #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows  # ab_selector() applies a filter in the `antibiotics` data set and is thus # very flexible. For instance, to select antibiotic columns with an oral DDD # of at least 1 gram: example_isolates[, ab_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For ab_selector(oral_ddd > 1 & oral_units == \"g\") using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  2 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  3 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA    #>  7 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  8 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  9 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA    #> # ℹ 1,990 more rows  # \\donttest{ # dplyr -------------------------------------------------------------------  if (require(\"dplyr\")) {   tibble(kefzol = random_sir(5)) %>%     select(cephalosporins()) } #> ℹ For cephalosporins() using column 'kefzol' (cefazolin) #> # A tibble: 5 × 1 #>   kefzol #>   <sir>  #> 1 I      #> 2 R      #> 3 R      #> 4 I      #> 5 R       if (require(\"dplyr\")) {   # get AMR for all aminoglycosides e.g., per ward:   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), resistance)) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(aminoglycosides(), resistance)`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 5 #>   ward         GEN   TOB   AMK   KAN #>   <chr>      <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 #> 2 ICU        0.290 0.400 0.662     1 #> 3 Outpatient 0.2   0.368 0.605    NA if (require(\"dplyr\")) {   # You can combine selectors with '&' to be more specific:   example_isolates %>%     select(penicillins() & administrable_per_os()) } #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get AMR for only drugs that matter - no intrinsic resistance:   example_isolates %>%     filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%     group_by(ward) %>%     summarise(across(not_intrinsic_resistant(), resistance)) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ For not_intrinsic_resistant() removing columns 'PEN' #>   (benzylpenicillin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'TEC' #>   (teicoplanin), 'ERY' (erythromycin), 'CLI' (clindamycin), 'AZM' #>   (azithromycin), and 'RIF' (rifampicin) #> Warning: There were 52 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `across(not_intrinsic_resistant(), resistance)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by warning: #> ! Introducing NA: no results available for OXA in group: ward = \"Clinical\" #> (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 51 remaining warnings. #> # A tibble: 3 × 33 #>   ward    OXA   FLC    AMX    AMC    AMP     TZP     CZO     FEP     CXM     FOX #>   <chr> <dbl> <dbl>  <dbl>  <dbl>  <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clin…    NA    NA  0.606  0.121  0.606  0.0504  0.0656  0.0159  0.0622  0.0648 #> 2 ICU      NA    NA  0.535  0.172  0.535  0.119  NA       0.0722  0.0828  0.0992 #> 3 Outp…    NA    NA NA     NA     NA     NA      NA      NA      NA      NA      #> # ℹ 22 more variables: CTX <dbl>, CAZ <dbl>, CRO <dbl>, GEN <dbl>, TOB <dbl>, #> #   AMK <dbl>, KAN <dbl>, TMP <dbl>, SXT <dbl>, NIT <dbl>, FOS <dbl>, #> #   CIP <dbl>, MFX <dbl>, TCY <dbl>, TGC <dbl>, DOX <dbl>, IPM <dbl>, #> #   MEM <dbl>, MTR <dbl>, CHL <dbl>, COL <dbl>, MUP <dbl> if (require(\"dplyr\")) {   # get susceptibility for antibiotics whose name contains \"trim\":   example_isolates %>%     filter(first_isolate()) %>%     group_by(ward) %>%     summarise(across(ab_selector(name %like% \"trim\"), susceptibility)) } #> ℹ For ab_selector(name %like% \"trim\") using columns 'TMP' (trimethoprim) #>   and 'SXT' (trimethoprim/sulfamethoxazole) #> # A tibble: 3 × 3 #>   ward         TMP   SXT #>   <chr>      <dbl> <dbl> #> 1 Clinical   0.627 0.808 #> 2 ICU        0.549 0.778 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(carbapenems()) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB':   example_isolates %>%     select(mo, aminoglycosides()) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # any() and all() work in dplyr's filter() too:   example_isolates %>%     filter(       any(aminoglycosides() == \"R\"),       all(cephalosporins_2nd() == \"R\")     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For cephalosporins_2nd() using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> # A tibble: 112 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  7 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #> 10 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #> # ℹ 102 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # also works with c():   example_isolates %>%     filter(any(c(carbapenems(), aminoglycosides()) == \"R\")) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 531 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  4 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  5 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> # ℹ 521 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # not setting any/all will automatically apply all():   example_isolates %>%     filter(aminoglycosides() == \"R\") } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ Assuming a filter on all 4 aminoglycosides. Wrap around all() or #>   any() to prevent this note. #> # A tibble: 427 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  3 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  4 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  6 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-16 D25302     65 F      ICU      B_STRPT_ANGN S     NA    NA    S     #> # ℹ 417 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # this will select columns 'mo' and all antimycobacterial drugs ('RIF'):   example_isolates %>%     select(mo, ab_class(\"mycobact\")) } #> ℹ For ab_class(\"mycobact\") using column 'RIF' (rifampicin) #> # A tibble: 2,000 × 2 #>    mo           RIF   #>    <mo>         <sir> #>  1 B_ESCHR_COLI R     #>  2 B_ESCHR_COLI R     #>  3 B_STPHY_EPDR NA    #>  4 B_STPHY_EPDR NA    #>  5 B_STPHY_EPDR NA    #>  6 B_STPHY_EPDR NA    #>  7 B_STPHY_AURS NA    #>  8 B_STPHY_AURS NA    #>  9 B_STPHY_EPDR NA    #> 10 B_STPHY_EPDR NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get bug/drug combinations for only glycopeptides in Gram-positives:   example_isolates %>%     filter(mo_is_gram_positive()) %>%     select(mo, glycopeptides()) %>%     bug_drug_combinations() %>%     format() } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ For glycopeptides() using columns 'VAN' (vancomycin) and 'TEC' #>   (teicoplanin) #> # A tibble: 2 × 8 #>   Group      Drug  CoNS  `E. faecalis` `S. aureus` `S. epidermidis` `S. hominis` #>   <chr>      <chr> <chr> <chr>         <chr>       <chr>            <chr>        #> 1 \"Glycopep… Teic… \"\"    \"\"            \" 0.0% (0/… \"64.1% (25/39)\"  \" 6.8% (4/5… #> 2 \"\"         Vanc… \" 0.… \" 0.0% (0/39… \" 0.0% (0/… \" 0.0% (0/171)\"  \" 0.0% (0/8… #> # ℹ 1 more variable: `S. pneumoniae` <chr> if (require(\"dplyr\")) {   data.frame(     some_column = \"some_value\",     J01CA01 = \"S\"   ) %>% # ATC code of ampicillin     select(penicillins()) # only the 'J01CA01' column will be selected } #> ℹ For penicillins() using column 'J01CA01' (ampicillin) #>   J01CA01 #> 1       S if (require(\"dplyr\")) {   # with recent versions of dplyr, this is all equal:   x <- example_isolates[carbapenems() == \"R\", ]   y <- example_isolates %>% filter(carbapenems() == \"R\")   z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\"))   identical(x, y) && identical(y, z) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] TRUE   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] \"IPM\" \"MEM\" #> attr(,\"class\") #> [1] \"ab_selector\" \"character\"   if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>        IPM  MEM #>    1: <NA> <NA> #>    2: <NA> <NA> #>    3: <NA> <NA> #>    4: <NA> <NA> #>    5: <NA> <NA> #>   ---           #> 1996: <NA> <NA> #> 1997:    S    S #> 1998:    S    S #> 1999:    S    S #> 2000:    S    S  # for multiple selections or AB selectors, `with = FALSE` is not needed: if (require(\"data.table\")) {   dt[, c(\"mo\", aminoglycosides())] } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>                 mo  GEN  TOB  AMK  KAN #>    1: B_ESCHR_COLI <NA> <NA> <NA> <NA> #>    2: B_ESCHR_COLI <NA> <NA> <NA> <NA> #>    3: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>    4: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>    5: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>   ---                                  #> 1996: B_STRPT_PNMN    R    R    R    R #> 1997: B_ESCHR_COLI    S    S    S <NA> #> 1998: B_STPHY_CONS    S <NA> <NA> <NA> #> 1999: B_ESCHR_COLI    S    S <NA> <NA> #> 2000: B_KLBSL_PNMN    S    S <NA> <NA> if (require(\"data.table\")) {   dt[, c(carbapenems(), aminoglycosides())] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>        IPM  MEM  GEN  TOB  AMK  KAN #>    1: <NA> <NA> <NA> <NA> <NA> <NA> #>    2: <NA> <NA> <NA> <NA> <NA> <NA> #>    3: <NA> <NA> <NA> <NA> <NA> <NA> #>    4: <NA> <NA> <NA> <NA> <NA> <NA> #>    5: <NA> <NA> <NA> <NA> <NA> <NA> #>   ---                               #> 1996: <NA> <NA>    R    R    R    R #> 1997:    S    S    S    S    S <NA> #> 1998:    S    S    S <NA> <NA> <NA> #> 1999:    S    S    S    S <NA> <NA> #> 2000:    S    S    S    S <NA> <NA>  # row filters are also supported: if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), ] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>            date patient age gender       ward           mo PEN  OXA  FLC  AMX #>   1: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   2: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   3: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   4: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   5: 2002-02-05  067927  45      F        ICU B_SERRT_MRCS   R <NA> <NA>    R #>  ---                                                                          #> 905: 2005-04-12  D71461  70      M        ICU B_ESCHR_COLI   R <NA> <NA>    S #> 906: 2009-11-12  650870  69      F Outpatient B_ESCHR_COLI   R <NA> <NA>    S #> 907: 2012-06-14  8CBCF2  41      F   Clinical B_STPHY_CONS   R    S    S <NA> #> 908: 2012-10-11  175532  78      M   Clinical B_ESCHR_COLI   R <NA> <NA>    R #> 909: 2013-11-23  A97263  77      M   Clinical B_KLBSL_PNMN   R <NA> <NA>    R #>      AMC  AMP  TZP  CZO  FEP CXM  FOX  CTX  CAZ  CRO  GEN  TOB  AMK  KAN  TMP #>   1:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   2:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   3:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   4:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   5:   R    R <NA>    R <NA>   R    R <NA> <NA> <NA> <NA> <NA> <NA> <NA>    S #>  ---                                                                          #> 905:   S    S    S <NA>    S   S    S    S    S    S    S    S    S <NA> <NA> #> 906:   S    S    S    S    S   S    S    S    S    S    S    S    S <NA>    S #> 907:   S <NA> <NA>    S    S   S    S    S    R    S    S <NA> <NA> <NA>    S #> 908:   S    R    S <NA>    S   R    R    S    S    S    S    S <NA> <NA>    R #> 909:   S    R    S <NA>    S   S    S    S    S    S    S    S <NA> <NA>    S #>      SXT  NIT  FOS  LNZ  CIP  MFX VAN  TEC  TCY  TGC  DOX ERY CLI AZM IPM  MEM #>   1:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   2:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   3:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   4:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   5:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>  ---                                                                           #> 905:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 906:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 907:   S <NA> <NA> <NA>    S <NA>   S <NA> <NA> <NA> <NA>   S   S   S   S    S #> 908:   R    R <NA>    R    R    R   R    R <NA> <NA> <NA>   R   R   R   S    S #> 909:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #>       MTR  CHL  COL  MUP  RIF #>   1: <NA> <NA> <NA> <NA>    R #>   2: <NA> <NA> <NA> <NA>    R #>   3: <NA> <NA>    R <NA>    R #>   4: <NA> <NA>    R <NA>    R #>   5: <NA> <NA>    R <NA>    R #>  ---                          #> 905: <NA> <NA> <NA> <NA>    R #> 906: <NA> <NA> <NA> <NA>    R #> 907: <NA> <NA>    R <NA> <NA> #> 908: <NA> <NA>    S <NA>    R #> 909: <NA> <NA>    S <NA>    R if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), penicillins(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #>      PEN  OXA  FLC  AMX AMC  AMP  TZP #>   1:   R <NA> <NA> <NA>   I <NA> <NA> #>   2:   R <NA> <NA> <NA>   I <NA> <NA> #>   3:   R <NA> <NA> <NA>   I <NA> <NA> #>   4:   R <NA> <NA> <NA>   I <NA> <NA> #>   5:   R <NA> <NA>    R   R    R <NA> #>  ---                                  #> 905:   R <NA> <NA>    S   S    S    S #> 906:   R <NA> <NA>    S   S    S    S #> 907:   R    S    S <NA>   S <NA> <NA> #> 908:   R <NA> <NA>    R   S    R    S #> 909:   R <NA> <NA>    R   S    R    S # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 603 Antimicrobial Drugs — antibiotics","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Two data sets containing antibiotics/antimycotics antivirals. Use .ab() one ab_* functions retrieve values antibiotics data set. Three identifiers included data set: antibiotic ID (ab, primarily used package) defined WHONET/EARS-Net, ATC code (atc) defined , Compound ID (cid) found PubChem. properties data set derived one codes. Note drugs multiple ATC codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics  antivirals"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antibiotics-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antibiotics data set: a tibble with 483 observations and 14 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available cid Compound ID found PubChem name Official name used WHONET/EARS-Net group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug. Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"av Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name used WHONET/EARS-Net atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.73 (8 August, 2022). Accessed https://loinc.org 30 October, 2022. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [5]>     <chr>    #>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  8 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #>  9 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> 10 AMB   5280965 Ampho… Anti… <chr> Antimycot… Antibioti… <chr [3]>     <chr>    #> # ℹ 473 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antibiotic ID — as.ab","title":"Transform Input to an Antibiotic ID — as.ab","text":"Use function determine antibiotic drug code one antibiotics. data set antibiotics searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"as.ab(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.ab(x)"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antibiotic ID — as.ab","text":"x character vector determine antibiotic ID flag_multiple_results logical indicate whether note printed console probably one antibiotic drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antibiotic ID — as.ab","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antibiotics data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .ab() can correct different forms misspelling: Wrong spelling drug names (\"tobramicin\" \"gentamycin\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"mreopenem\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use ab_* functions get properties based returned antibiotic ID, see Examples. Note: .ab() ab_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems. can add manual codes considered .ab() ab_* functions, see add_custom_antimicrobials().","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antibiotic ID — as.ab","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"# these examples all return \"ERY\", the ID of erythromycin: as.ab(\"J01FA01\") #> Class 'ab' #> [1] ERY as.ab(\"J 01 FA 01\") #> Class 'ab' #> [1] ERY as.ab(\"Erythromycin\") #> Class 'ab' #> [1] ERY as.ab(\"eryt\") #> Class 'ab' #> [1] ERY as.ab(\"   eryt 123\") #> Class 'ab' #> [1] ERY as.ab(\"ERYT\") #> Class 'ab' #> [1] ERY as.ab(\"ERY\") #> Class 'ab' #> [1] ERY as.ab(\"eritromicine\") # spelled wrong, yet works #> Class 'ab' #> [1] ERY as.ab(\"Erythrocin\") # trade name #> Class 'ab' #> [1] ERY as.ab(\"Romycin\") # trade name #> Class 'ab' #> [1] ERY  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R       NA      S       #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antiviral Drug ID — as.av","title":"Transform Input to an Antiviral Drug ID — as.av","text":"Use function determine antiviral drug code one antiviral drugs. data set antivirals searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"as.av(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.av(x)"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antiviral Drug ID — as.av","text":"x character vector determine antiviral drug ID flag_multiple_results logical indicate whether note printed console probably one antiviral drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antiviral Drug ID — as.av","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antiviral Drug ID — as.av","text":"entries antivirals data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .av() can correct different forms misspelling: Wrong spelling drug names (\"acyclovir\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"aycclovir\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use av_* functions get properties based returned antiviral drug ID, see Examples. Note: .av() av_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antiviral Drug ID — as.av","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"# these examples all return \"ACI\", the ID of aciclovir: as.av(\"J05AB01\") #> Class 'av' #> [1] ACI as.av(\"J 05 AB 01\") #> Class 'av' #> [1] ACI as.av(\"Aciclovir\") #> Class 'av' #> [1] ACI as.av(\"aciclo\") #> Class 'av' #> [1] ACI as.av(\"   aciclo 123\") #> Class 'av' #> [1] ACI as.av(\"ACICL\") #> Class 'av' #> [1] ACI as.av(\"ACI\") #> Class 'av' #> [1] ACI as.av(\"Virorax\") # trade name #> Class 'av' #> [1] ACI as.av(\"Zovirax\") # trade name #> Class 'av' #> [1] ACI  as.av(\"acyklofir\") # severe spelling error, yet works #> Class 'av' #> [1] ACI  # use av_* functions to get a specific properties (see ?av_property); # they use as.av() internally: av_name(\"J05AB01\") #> [1] \"Aciclovir\" av_name(\"acicl\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 6 50.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"as.disk(x, na.rm = FALSE)  NA_disk_  is.disk(x)"},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"object class disk (inherits integer) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"x vector na.rm logical indicating whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"integer additional class disk","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 6 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 6-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"# transform existing disk zones to the `disk` class (using base R) df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = 20,   CIP = 14,   GEN = 18,   TOB = 16 ) df[, 2:5] <- lapply(df[, 2:5], as.disk) str(df) #> 'data.frame':\t1 obs. of  5 variables: #>  $ microorganism: chr \"Escherichia coli\" #>  $ AMP          : 'disk' int 20 #>  $ CIP          : 'disk' int 14 #>  $ GEN          : 'disk' int 18 #>  $ TOB          : 'disk' int 16  # \\donttest{ # transforming is easier with dplyr: if (require(\"dplyr\")) {   df %>% mutate(across(AMP:TOB, as.disk)) } #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli  20  14  18  16 # }  # interpret disk values, see ?as.sir as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> => Interpreting disk diffusion zones of column 'AMP' (ampicillin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'CIP' (ciprofloxacin) #>    according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli   S   R   S   S"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE)  NA_mic_  is.mic(x)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2013-2022) CLSI (2013-2022). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269 Reimer et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data.  Nucleic Acids Res. 2022 Jan 7;50(D1):D741-D746; doi:10.1093/nar/gkab961","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 2, Protozoa = 3, Archaea = 4, others = 5. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.159\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. breakpoints used interpretation publicly available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # S3 method for mic as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   ... )  # S3 method for disk as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   ... )  # S3 method for data.frame as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE) )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2013-2022, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2022 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2013-2022) CLSI (2013-2022), see Details. uti (Urinary Tract Infection) vector logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input unclear. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines EUCAST (2013-2022) CLSI (2013-2022). Thus, guideline argument must set e.g., \"EUCAST 2022\" \"CLSI 2022\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 18 271 rows 11 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … summary(example_isolates) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %R   :73.7% (n=1201)   #>  Mode  :character   Unique:90             %SI  :26.3% (n=428)    #>                     #1    :B_ESCHR_COLI   - %S :25.6% (n=417)    #>                     #2    :B_STPHY_CONS   - %I : 0.7% (n=11)     #>                     #3    :B_STPHY_AURS                          #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %SI  :68.8% (n=251)   %SI  :70.5% (n=665)   %SI  :40.4% (n=546)   #>  - %S :68.8% (n=251)   - %S :70.5% (n=665)   - %S :40.2% (n=543)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)     - %I : 0.2% (n=3)     #>                                                                    #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %SI  :76.3% (n=1433)   %SI  :40.4% (n=546)   %SI  :87.4% (n=875)   #>  - %S :71.4% (n=1342)   - %S :40.2% (n=543)   - %S :86.1% (n=862)   #>  - %I : 4.8% (n=91)     - %I : 0.2% (n=3)     - %I : 1.3% (n=13)    #>                                                                     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %SI  :55.4% (n=247)   %SI  :85.8% (n=621)   %SI  :73.7% (n=1319)   #>  - %S :54.9% (n=245)   - %S :85.6% (n=620)   - %S :72.5% (n=1297)   #>  - %I : 0.4% (n=2)     - %I : 0.1% (n=1)     - %I : 1.2% (n=22)     #>                                                                     #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %SI  :72.6% (n=594)   %SI  :84.5% (n=797)   %SI  :33.5% (n=607)    #>  - %S :71.6% (n=586)   - %S :84.4% (n=796)   - %S :33.5% (n=607)    #>  - %I : 1.0% (n=8)     - %I : 0.1% (n=1)     - %I : 0.0% (n=0)      #>                                                                     #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %SI  :84.5% (n=797)   %SI  :75.4% (n=1399)   %SI  :65.6% (n=886)   #>  - %S :84.4% (n=796)   - %S :74.0% (n=1372)   - %S :65.1% (n=879)   #>  - %I : 0.1% (n=1)     - %I : 1.5% (n=27)     - %I : 0.5% (n=7)     #>                                                                     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %SI  :36.3% (n=251)   %SI  : 0.0% (n=0)      %SI  :61.9% (n=928)   #>  - %S :36.3% (n=251)   - %S : 0.0% (n=0)      - %S :61.2% (n=918)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)      - %I : 0.7% (n=10)    #>                                                                     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %SI  :79.5% (n=1398)   %SI  :82.9% (n=616)   %SI  :57.8% (n=203)   #>  - %S :79.1% (n=1392)   - %S :76.0% (n=565)   - %S :57.8% (n=203)   #>  - %I : 0.3% (n=6)      - %I : 6.9% (n=51)    - %I : 0.0% (n=0)     #>                                                                     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %SI  :30.7% (n=314)   %SI  :83.8% (n=1181)   %SI  :66.4% (n=140)   #>  - %S :30.7% (n=314)   - %S :78.9% (n=1112)   - %S :64.5% (n=136)   #>  - %I : 0.0% (n=0)     - %I : 4.9% (n=69)     - %I : 1.9% (n=4)     #>                                                                     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %SI  :61.7% (n=1149)   %SI  :24.3% (n=237)   %SI  :70.3% (n=843)   #>  - %S :61.7% (n=1149)   - %S :24.3% (n=237)   - %S :68.3% (n=820)   #>  - %I : 0.0% (n=0)      - %I : 0.0% (n=0)     - %I : 1.9% (n=23)    #>                                                                     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %SI  :87.3% (n=697)   %SI  :72.3% (n=821)   %SI  :42.8% (n=810)    #>  - %S :87.3% (n=697)   - %S :71.7% (n=814)   - %S :42.3% (n=801)    #>  - %I : 0.0% (n=0)     - %I : 0.6% (n=7)     - %I : 0.5% (n=9)      #>                                                                     #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %SI  :38.8% (n=590)   %SI  :42.8% (n=810)    %SI  :93.8% (n=834)   #>  - %S :38.6% (n=586)   - %S :42.3% (n=801)    - %S :92.7% (n=824)   #>  - %I : 0.3% (n=4)     - %I : 0.5% (n=9)      - %I : 1.1% (n=10)    #>                                                                     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %SI  :94.1% (n=780)   %SI  :85.3% (n=29)   %SI  :78.6% (n=121)   #>  - %S :94.1% (n=780)   - %S :85.3% (n=29)   - %S :78.6% (n=121)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)    - %I : 0.0% (n=0)     #>                                                                   #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %SI  :18.8% (n=309)    %SI  :94.1% (n=254)   %SI  :30.4% (n=305)   #>  - %S :18.8% (n=309)    - %S :93.0% (n=251)   - %S :30.2% (n=303)   #>  - %I : 0.0% (n=0)      - %I : 1.1% (n=3)     - %I : 0.2% (n=2)     #>                                                                      # For INTERPRETING disk diffusion and MIC values -----------------------  # a whole data set, even with combined MIC values and disk zones df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = as.mic(8),   CIP = as.mic(0.256),   GEN = as.disk(18),   TOB = as.disk(16),   ERY = \"R\" ) as.sir(df) #> => Interpreting MIC values of column 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of column 'CIP' (ciprofloxacin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 50 × 12 #>    datetime            index ab_input ab_guideline mo_input     mo_guideline     #>    <dttm>              <int> <chr>    <ab>         <chr>        <mo>             #>  1 2023-05-12 08:40:42     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR #>  2 2023-05-12 08:40:42     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR #>  3 2023-05-12 08:40:42     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR #>  4 2023-05-12 08:40:41     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR #>  5 2023-05-12 08:40:37     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  6 2023-05-12 08:40:37     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  7 2023-05-12 08:40:37     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  8 2023-05-12 08:40:37     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  9 2023-05-12 08:40:37     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> 10 2023-05-12 08:40:37     6 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> # ℹ 40 more rows #> # ℹ 6 more variables: guideline <chr>, ref_table <chr>, method <chr>, #> #   input <dbl>, outcome <sir>, breakpoint_S_R <chr>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Streptococcus #>      pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] S sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":null,"dir":"Reference","previous_headings":"","what":"Get ATC Properties from WHOCC Website — atc_online_property","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Gets data WHOCC website determine properties Anatomical Therapeutic Chemical (ATC) (e.g. antibiotic), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(   atc_code,   property,   administration = \"O\",   url = \"https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://www.whocc.no/atcvet/atcvet_index/?code=%s&showdescription=no\" )  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://www.whocc./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"atc_code character (vector) ATC code(s) antibiotics, coerced .ab() ab_atc() internally valid ATC code property property ATC code. Valid values \"ATC\", \"Name\", \"DDD\", \"U\" (\"unit\"), \"Adm.R\", \"Note\" groups. last option, hierarchical groups ATC code returned, see Examples. administration type administration using property = \"Adm.R\", see Details url url website WHOCC. sign %s can used placeholder ATC codes. url_vet url website WHOCC veterinary medicine. sign %s can used placeholder ATC_vet codes (start \"Q\"). ... arguments pass atc_property","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Options argument administration: \"Implant\" = Implant \"Inhal\" = Inhalation \"Instill\" = Instillation \"N\" = nasal \"O\" = oral \"P\" = parenteral \"R\" = rectal \"SL\" = sublingual/buccal \"TD\" = transdermal \"V\" = vaginal Abbreviations return values using property = \"U\" (unit): \"g\" = gram \"mg\" = milligram \"mcg\" = microgram \"U\" = unit \"TU\" = thousand units \"MU\" = million units \"mmol\" = millimole \"ml\" = millilitre (e.g. eyedrops) N.B. function requires internet connection works following packages installed: curl, rvest, xml2.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"# \\donttest{ if (requireNamespace(\"curl\") && requireNamespace(\"rvest\") && requireNamespace(\"xml2\")) {   # oral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"O\")   atc_online_ddd(ab_atc(\"amox\"))    # parenteral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"P\")    atc_online_property(\"J01CA04\", property = \"groups\") # search hierarchical groups of amoxicillin } #> Loading required namespace: rvest #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Use function e.g. clinical texts health care records. returns list antiviral drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_av = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_av type = \"drug\": column name antivirals data set translate antibiotic abbreviations , using av_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .av()","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"function also internally used .av(), although searches first drug name throw note drug names returned. Note: .av() function may use long regular expression match brand names antiviral drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"default, function search antiviral drug names. text elements searched official names, ATC codes brand names. uses .av() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(avx = av_from_text(clinical_text)) returned AV codes can transformed official names, groups, etc. av_* functions av_name() av_group(), using translate_av argument. using collapse, function return character:df %>% mutate(avx = av_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(\"28/03/2020 valaciclovir po tid\") #> [[1]] #> Class 'av' #> [1] VALA #>  av_from_text(\"28/03/2020 valaciclovir po tid\", type = \"admin\") #> [[1]] #> [1] \"oral\" #>"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antiviral Drug — av_property","title":"Get Properties of an Antiviral Drug — av_property","text":"Use functions return specific property antiviral drug antivirals data set. input values evaluated internally .av().","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"av_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  av_cid(x, ...)  av_synonyms(x, ...)  av_tradenames(x, ...)  av_group(x, language = get_AMR_locale(), ...)  av_atc(x, ...)  av_loinc(x, ...)  av_ddd(x, administration = \"oral\", ...)  av_ddd_units(x, administration = \"oral\", ...)  av_info(x, language = get_AMR_locale(), ...)  av_url(x, open = FALSE, ...)  av_property(x, property = \"name\", language = get_AMR_locale(), ...)"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antiviral Drug — av_property","text":"x (vector ) text can coerced valid antiviral drug code .av() language language returned text - default system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. ... arguments passed .av() administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antivirals data set: vector_or(colnames(antivirals), sort = FALSE).","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antiviral Drug — av_property","text":"integer case av_cid() named list case av_info() multiple av_atc()/av_synonyms()/av_tradenames() double case av_ddd() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antiviral Drug — av_property","text":"output translated possible. function av_url() return direct URL official website. warning returned required ATC code available.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antiviral Drug — av_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                             Aciclovir  #> \"https://www.whocc.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # smart lowercase tranformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"78772-1\" \"78773-9\" \"79134-3\" \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 6 #>   mo                ab        S     I     R total #>   <chr>             <chr> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0    15 #> 2 (unknown species) AMK       0     0     0     0 #> 3 (unknown species) AMP      15     0     1    16 #> 4 (unknown species) AMX      15     0     1    16 #> 5 (unknown species) AZM       3     0     3     6 #> 6 (unknown species) CAZ       0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Ampheni… Chlo… \"\"    \"\"        \"\"            \"\"              \"100.0% (30/30… #>  6 \"Antimyc… Rifa… \"\"    \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  7 \"Beta-la… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  8 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  9 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> 10 \"\"        Benz… \" 77… \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 6 #>    mo            ab        S     I     R total #>  * <chr>         <chr> <int> <int> <int> <int> #>  1 Gram-negative AMC     463    89   174   726 #>  2 Gram-negative AMK     251     0     5   256 #>  3 Gram-negative AMP     226     0   405   631 #>  4 Gram-negative AMX     226     0   405   631 #>  5 Gram-negative AZM       1     2   696   699 #>  6 Gram-negative CAZ     607     0    27   634 #>  7 Gram-negative CHL       1     0    30    31 #>  8 Gram-negative CIP     610    11    63   684 #>  9 Gram-negative CLI      18     1   709   728 #> 10 Gram-negative COL     309     0    78   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 6 #>    mo      ab        S     I     R total #>  * <chr>   <chr> <int> <int> <int> <int> #>  1 E. coli AMC     332    74    61   467 #>  2 E. coli AMK     171     0     0   171 #>  3 E. coli AMP     196     0   196   392 #>  4 E. coli AMX     196     0   196   392 #>  5 E. coli AZM       0     0   467   467 #>  6 E. coli CAZ     449     0    11   460 #>  7 E. coli CHL       0     0     0     0 #>  8 E. coli CIP     398     1    57   456 #>  9 E. coli CLI       0     0   467   467 #> 10 E. coli COL     240     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Data set containing clinical breakpoints interpret MIC disk diffusion SIR values, according international guidelines. Currently implemented guidelines EUCAST (2013-2022) CLSI (2013-2022). Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 18 271 observations 11 variables: guideline Name guideline method Either \"DISK\" \"MIC\" site Body site, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic ID, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints #> # A tibble: 18,271 × 11 #>    guideline   method site  mo               rank_index ab   ref_tbl   disk_dose #>    <chr>       <chr>  <chr> <mo>                  <dbl> <ab> <chr>     <chr>     #>  1 EUCAST 2022 MIC    NA    F_ASPRG_MGTS              2 AMB  Aspergil… NA        #>  2 EUCAST 2022 MIC    NA    F_ASPRG_NIGR              2 AMB  Aspergil… NA        #>  3 EUCAST 2022 MIC    NA    F_CANDD_ALBC              2 AMB  Candida   NA        #>  4 EUCAST 2022 MIC    NA    F_CANDD_DBLN              2 AMB  Candida   NA        #>  5 EUCAST 2022 MIC    NA    F_CANDD_GLBR              2 AMB  Candida   NA        #>  6 EUCAST 2022 MIC    NA    F_CANDD_KRUS              2 AMB  Candida   NA        #>  7 EUCAST 2022 MIC    NA    F_CANDD_PRPS              2 AMB  Candida   NA        #>  8 EUCAST 2022 MIC    NA    F_CANDD_TRPC              2 AMB  Candida   NA        #>  9 EUCAST 2022 MIC    NA    F_CRYPT_NFRM              2 AMB  Candida   NA        #> 10 EUCAST 2022 DISK   NA    B_[ORD]_ENTRBCTR          5 AMC  Enteroba… 20ug/10ug #> # ℹ 18,261 more rows #> # ℹ 3 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, uti <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" being resistant. This note will be shown once for this #> session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) \"aminopenicillins\"(amoxicillin ampicillin) \"antifungals\"(amphotericin B, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) \"antimycobacterials\"(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) \"betalactams\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"carbapenems\"(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) \"cephalosporins\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"cephalosporins_1st\"(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) \"cephalosporins_2nd\"(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) \"cephalosporins_3rd\"(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) \"cephalosporins_4th\"(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) \"cephalosporins_5th\"(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) \"cephalosporins_except_caz\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"fluoroquinolones\"(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"glycopeptides\"(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) \"glycopeptides_except_lipo\"(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) \"lincosamides\"(acetylmidecamycin, acetylspiramycin, clindamycin, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) \"lipoglycopeptides\"(dalbavancin, oritavancin, telavancin) \"macrolides\"(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) \"oxazolidinones\"(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) \"penicillins\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"polymyxins\"(colistin, polymyxin B, polymyxin B/polysorbate 80) \"quinolones\"(besifloxacin, cinoxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"streptogramins\"(pristinamycin quinupristin/dalfopristin) \"tetracyclines\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) \"tetracyclines_except_tgc\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) \"trimethoprims\"(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) \"ureidopenicillins\"(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 336 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"data set based 'EUCAST Clinical Breakpoint Tables' v12.0 (2022) 'EUCAST Clinical Breakpoint Tables' v11.0 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 336 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    25-30 mg/kg… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    2 g x 6 iv   #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    1 g x 3-4 iv #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    0.75-1 g x … #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    (2 g amoxic… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    (1 g amoxic… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    (0.875 g am… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    (0.5 g amox… #> # ℹ 326 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply EUCAST Rules — eucast_rules","title":"Apply EUCAST Rules — eucast_rules","text":"Apply rules clinical breakpoints intrinsic resistance defined European Committee Antimicrobial Susceptibility Testing (EUCAST, https://www.eucast.org), see Source. Use eucast_dosage() get data.frame advised dosages certain bug-drug combination, based dosage data set. improve interpretation antibiogram EUCAST rules applied, non-EUCAST rules can applied default, see Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"eucast_rules(   x,   col_mo = NULL,   info = interactive(),   rules = getOption(\"AMR_eucastrules\", default = c(\"breakpoints\", \"expert\")),   verbose = FALSE,   version_breakpoints = 12,   version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can either \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can either \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated 11 December, 2022, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Apply EUCAST Rules — eucast_rules","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"# \\donttest{ a <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylpenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE )  head(a) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   -   -   -   S   S #> 2  Enterococcus faecalis   -   -   -   -   -   S   S #> 3       Escherichia coli   -   -   -   -   -   S   S #> 4  Klebsiella pneumoniae   -   -   -   -   -   S   S #> 5 Pseudomonas aeruginosa   -   -   -   -   -   S   S   # apply EUCAST rules: some results wil be changed b <- eucast_rules(a) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir))  head(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   S   R   S   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, verbose = TRUE) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir)) head(c) #>   row col           mo_fullname old new rule   rule_group #> 1   1 AMX Staphylococcus aureus   -   S       Breakpoints #> 2   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 3   1 CAZ Staphylococcus aureus   R   S      Expert Rules #> 4   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 5   1 COL Staphylococcus aureus   -   R      Expert Rules #> 6   2 CAZ Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2                                          Staphylococcus #> 3                          Expert Rules on Staphylococcus #> 4 Table 4: Intrinsic resistance in gram-positive bacteria #> 5 Table 4: Intrinsic resistance in gram-positive bacteria #> 6 Table 4: Intrinsic resistance in gram-positive bacteria #>                                                                                 rule_source #> 1                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 2                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 3 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 4 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 5 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 6 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> Basing inclusion on all antimicrobial results, using a points threshold of #> 2 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # \\donttest{ # get all first Gram-negatives example_isolates[which(first_isolate(info = FALSE) & mo_is_gram_negative()), ] #> ℹ Using column 'mo' as input for mo_is_gram_negative() #> # A tibble: 437 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 427 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   # filter on first isolates using dplyr:   example_isolates %>%     filter(first_isolate(info = TRUE)) } #> Determining first isolates using an episode length of 365 days #> Basing inclusion on all antimicrobial results, using a points threshold of #> 2 #> Including isolates from ICU. #> ℹ Excluded 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # flag the first isolates per group:   example_isolates %>%     group_by(ward) %>%     mutate(first = first_isolate(info = TRUE)) %>%     select(ward, date, patient, mo, first) } #> Determining first isolates using an episode length of 365 days #> Basing inclusion on all antimicrobial results, using a points threshold of #> 2 #> Including isolates from ICU. #>  #> Group: ward = \"Clinical\" #> ℹ Excluded 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"ICU\" #> ℹ Excluded 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #> Including isolates from ICU. #>  #> Group: ward = \"Outpatient\" #> ℹ Excluded 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    of total where a microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":null,"dir":"Reference","previous_headings":"","what":"G-test for Count Data — g.test","title":"G-test for Count Data — g.test","text":"g.test() performs chi-squared contingency table tests goodness--fit tests, just like chisq.test() reliable (1). G-test can used see whether number observations category fits theoretical expectation (called G-test goodness--fit), see whether proportions one variable different different values variable (called G-test independence).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"G-test for Count Data — g.test","text":"","code":"g.test(x, y = NULL, p = rep(1/length(x), length(x)), rescale.p = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"G-test for Count Data — g.test","text":"code function identical chisq.test(), except : calculation statistic changed \\(2 * sum(x * log(x / E))\\) Yates' continuity correction removed apply G-test possibility simulate p values simulate.p.value removed","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"G-test for Count Data — g.test","text":"x numeric vector matrix. x y can also     factors. y numeric vector; ignored x matrix.      x factor, y factor length. p vector probabilities length x.     error given entry p negative. rescale.p logical scalar; TRUE p rescaled     (necessary) sum 1.  rescale.p FALSE,     p sum 1, error given.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"G-test for Count Data — g.test","text":"list class \"htest\" containing following   components: statistic value chi-squared test statistic. parameter degrees freedom approximate     chi-squared distribution test statistic, NA     p-value computed Monte Carlo simulation. p.value p-value test. method character string indicating type test     performed, whether Monte Carlo simulation continuity     correction used. data.name character string giving name(s) data. observed observed counts. expected expected counts null hypothesis. residuals Pearson residuals,     (observed - expected) / sqrt(expected). stdres standardized residuals,     (observed - expected) / sqrt(V), V residual cell variance (Agresti, 2007,     section 2.4.5 case x matrix, n * p * (1 - p) otherwise).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"G-test for Count Data — g.test","text":"x matrix one row column, x vector y given, goodness--fit test performed (x treated one-dimensional contingency table). entries x must non-negative integers. case, hypothesis tested whether population probabilities equal p, equal p given. x matrix least two rows columns, taken two-dimensional contingency table: entries x must non-negative integers.  Otherwise, x y must vectors factors length; cases missing values removed, objects coerced factors, contingency table computed .  Pearson's chi-squared test performed null hypothesis joint distribution cell counts 2-dimensional contingency table product row column marginals. p-value computed asymptotic chi-squared distribution test statistic. contingency table case simulation done random sampling set contingency tables given marginals, works marginals strictly positive. Note usual sampling situation assumed chi-squared test (G-test) rather Fisher's exact test. goodness--fit case simulation done random sampling discrete distribution specified p, sample size n = sum(x). simulation done R may slow.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-goodness-of-fit-likelihood-ratio-test-","dir":"Reference","previous_headings":"","what":"G-test Of Goodness-of-Fit (Likelihood Ratio Test)","title":"G-test for Count Data — g.test","text":"Use G-test goodness--fit one nominal variable two values (male female, red, pink white flowers). compare observed counts numbers observations category expected counts, calculate using kind theoretical expectation (1:1 sex ratio 1:2:1 ratio genetic cross). expected number observations category small, G-test may give inaccurate results, use exact test instead (fisher.test()). G-test goodness--fit alternative chi-square test goodness--fit (chisq.test()); tests advantages disadvantages, results two tests usually similar.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-independence","dir":"Reference","previous_headings":"","what":"G-test of Independence","title":"G-test for Count Data — g.test","text":"Use G-test independence two nominal variables, two possible values. want know whether proportions one variable different among values variable. also possible G-test independence two nominal variables. example, Jackson et al. (2013) also data children 3, analysis old vs. young, thigh vs. arm, reaction vs. reaction, analyzed together. Fisher's exact test (fisher.test()) exact test, G-test still approximation. 2x2 table, Fisher's Exact test may slower still run seconds, even sum observations multiple millions. G-test independence alternative chi-square test independence (chisq.test()), give approximately results.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"how-the-test-works","dir":"Reference","previous_headings":"","what":"How the Test Works","title":"G-test for Count Data — g.test","text":"Unlike exact test goodness--fit (fisher.test()), G-test directly calculate probability obtaining observed results something extreme. Instead, like almost statistical tests, G-test intermediate step; uses data calculate test statistic measures far observed data null expectation. use mathematical relationship, case chi-square distribution, estimate probability obtaining value test statistic. G-test uses log ratio two likelihoods test statistic, also called likelihood ratio test log-likelihood ratio test. formula calculate G-statistic : \\(G = 2 * sum(x * log(x / E))\\) E expected values. Since chi-square distributed, p value can calculated R :   df degrees freedom. two categories want find ones significantly different null expectation, can use method testing category vs. sum categories, Bonferroni correction. use G-tests category, course.","code":"p <- stats::pchisq(G, df, lower.tail = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"references","dir":"Reference","previous_headings":"","what":"References","title":"G-test for Count Data — g.test","text":"McDonald, J.H. 2014. Handbook Biological Statistics (3rd ed.). Sparky House Publishing, Baltimore, Maryland. http://www.biostathandbook.com/gtestgof.html.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"G-test for Count Data — g.test","text":"","code":"# = EXAMPLE 1 = # Shivrain et al. (2006) crossed clearfield rice (which are resistant # to the herbicide imazethapyr) with red rice (which are susceptible to # imazethapyr). They then crossed the hybrid offspring and examined the # F2 generation, where they found 772 resistant plants, 1611 moderately # resistant plants, and 737 susceptible plants. If resistance is controlled # by a single gene with two co-dominant alleles, you would expect a 1:2:1 # ratio.  x <- c(772, 1611, 737) g.test(x, p = c(1, 2, 1) / 4) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 4.1471, p-value = 0.1257 #>   # There is no significant difference from a 1:2:1 ratio. # Meaning: resistance controlled by a single gene with two co-dominant # alleles, is plausible.   # = EXAMPLE 2 = # Red crossbills (Loxia curvirostra) have the tip of the upper bill either # right or left of the lower bill, which helps them extract seeds from pine # cones. Some have hypothesized that frequency-dependent selection would # keep the number of right and left-billed birds at a 1:1 ratio. Groth (1992) # observed 1752 right-billed and 1895 left-billed crossbills.  x <- c(1752, 1895) g.test(x) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 5.6085, p-value = 0.01787 #>   # There is a significant difference from a 1:1 ratio. # Meaning: there are significantly more left-billed birds."},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Clinical or Epidemic Episodes — get_episode","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"functions determine items vector can considered (start ) new episode. can used determine clinical episodes epidemiological analysis. get_episode() function returns index number episode per group, is_new_episode() function returns TRUE every new get_episode() index. absolute relative episode determination supported.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"get_episode(x, episode_days = NULL, case_free_days = NULL, ...)  is_new_episode(x, episode_days = NULL, case_free_days = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"x vector dates (class Date POSIXt), sorted internally determine episodes episode_days episode length days specify time period new episode begins, can also less day Inf, see Details case_free_days (inter-epidemic) interval length days new episode start, can also less day Inf, see Details ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode(): integer vector is_new_episode(): logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"Episodes can determined two ways: absolute relative. Absolute method uses episode_days define episode length days, new episode start. common use case AMR data analysis microbial epidemiology: episodes S. aureus bacteraemia ICU patients example. episode length 30 days, new S. aureus isolates ICU episode 30 days considered different (new) episode. Thus, method counts since start previous episode. Relative method uses case_free_days quantify duration case-free days (inter-epidemic interval), new episode start. common use case infectious disease epidemiology: episodes norovirus outbreaks hospital example. case-free period 14 days, new norovirus cases time considered different (new) episode. Thus, methods counts since last case previous episode. table: ** marks start new episode, 8 January 2023 7 days since start previous episode (1 January 2023).  *** marks start new episode, 21 January 2023 7 days since last case previous episode (8 January 2023). Either episode_days case_free_days must provided function.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"difference-between-get-episode-and-is-new-episode-","dir":"Reference","previous_headings":"","what":"Difference between get_episode() and is_new_episode()","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode() function returns index number episode, cases/patients/isolates first episode number 1, cases/patients/isolates second episode number 2, etc. is_new_episode() function hand, returns TRUE every new get_episode() index. specify, setting episode_days = 365 (using method 1 explained ), two functions differ:","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names allows different isolate selection methods. dplyr package required functions work, episode functions support variable grouping work conveniently inside dplyr verbs filter(), mutate() summarise().","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"# difference between absolute and relative determination of episodes: x <- data.frame(dates = as.Date(c(   \"2021-01-01\",   \"2021-01-02\",   \"2021-01-05\",   \"2021-01-08\",   \"2021-02-21\",   \"2021-02-22\",   \"2021-02-23\",   \"2021-02-24\",   \"2021-03-01\",   \"2021-03-01\" ))) x$absolute <- get_episode(x$dates, episode_days = 7) x$relative <- get_episode(x$dates, case_free_days = 7) x #>         dates absolute relative #> 1  2021-01-01        1        1 #> 2  2021-01-02        1        1 #> 3  2021-01-05        1        1 #> 4  2021-01-08        2        1 #> 5  2021-02-21        3        2 #> 6  2021-02-22        3        2 #> 7  2021-02-23        3        2 #> 8  2021-02-24        3        2 #> 9  2021-03-01        4        2 #> 10 2021-03-01        4        2   # `example_isolates` is a data set available in the AMR package. # See ?example_isolates df <- example_isolates[sample(seq_len(2000), size = 100), ]  get_episode(df$date, episode_days = 60) # indices #>   [1] 45 13 42 35 36 17 26 23 21 32 27 48 22 10 19  4 37  5 18 11  7 15  3 38 28 #>  [26] 47 51 35  6 41 16 25 24 26  4 38 24 35  2 26 10 44 43  1 46 19 12 15 49 41 #>  [51] 29  5 31 11 33 18  9 48 12 20 25 47 36 46 16 52  8 30 34 51  7 27 50 40 47 #>  [76] 39 34 35 15 32 27 10 26 36 26 11 34 44 37 50 48 14 22  2 45  5 26 30 51  5 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [25]  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE #>  [37] FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE #>  [49]  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE #>  [61] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE #>  [73]  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE #>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE #>  [97] FALSE FALSE FALSE FALSE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 1 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [99] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 023456  2009-11-02 A         TRUE        #>  2 036063  2010-01-28 B         TRUE        #>  3 0DBB93  2003-10-02 A         TRUE        #>  4 0DBF93  2015-10-12 B         TRUE        #>  5 0E2483  2007-06-21 A         TRUE        #>  6 114570  2003-04-08 B         TRUE        #>  7 14D826  2006-09-14 A         TRUE        #>  8 156730  2012-04-12 B         TRUE        #>  9 1710B8  2008-01-22 C         TRUE        #> 10 180928  2008-06-13 A         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [94] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2009-11-02 023456          1 TRUE        #>  2 Clinical 2010-01-28 036063          1 TRUE        #>  3 ICU      2003-10-02 0DBB93          1 TRUE        #>  4 Clinical 2015-10-12 0DBF93          1 TRUE        #>  5 ICU      2007-06-21 0E2483          1 TRUE        #>  6 ICU      2003-04-08 114570          1 TRUE        #>  7 Clinical 2006-09-14 14D826          1 TRUE        #>  8 Clinical 2012-04-12 156730          1 TRUE        #>  9 Clinical 2008-01-22 1710B8          1 TRUE        #> 10 Clinical 2008-06-14 180928          1 FALSE       #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward) %>%     summarise(       n_patients = n_distinct(patient),       n_episodes_365 = sum(is_new_episode(date, episode_days = 365)),       n_episodes_60 = sum(is_new_episode(date, episode_days = 60)),       n_episodes_30 = sum(is_new_episode(date, episode_days = 30))     ) } #> # A tibble: 3 × 5 #>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30 #>   <chr>           <int>          <int>         <int>         <int> #> 1 Clinical           64             14            40            49 #> 2 ICU                23              9            20            21 #> 3 Outpatient          7              5             6             7  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] FALSE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [98] #>    patient mo           ward     flag_episode #>    <chr>   <mo>         <chr>    <lgl>        #>  1 A76045  B_ENTRC_FACM ICU      TRUE         #>  2 452212  B_ENTRC_FACM ICU      TRUE         #>  3 419568  B_STRPT_PNMN Clinical TRUE         #>  4 BC9909  B_ESCHR_COLI Clinical TRUE         #>  5 443847  B_KLBSL_PNMN Clinical TRUE         #>  6 F32657  B_STPHY_EPDR ICU      TRUE         #>  7 180928  B_STRPT_AGLC Clinical TRUE         #>  8 B82692  B_STPHY_CONS Clinical TRUE         #>  9 89F578  B_STPHY_CONS Clinical TRUE         #> 10 597301  B_ESCHR_COLI ICU      TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result)    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Plots with ggplot2 — ggplot_sir","title":"AMR Plots with ggplot2 — ggplot_sir","text":"Use functions create bar plots AMR data analysis. functions rely ggplot2 functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"ggplot_sir(   data,   position = NULL,   x = \"antibiotic\",   fill = \"interpretation\",   facet = NULL,   breaks = seq(0, 1, 0.1),   limits = NULL,   translate_ab = \"name\",   combine_SI = TRUE,   minimum = 30,   language = get_AMR_locale(),   nrow = NULL,   colours = c(S = \"#3CAEA3\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\", R =     \"#ED553B\"),   datalabels = TRUE,   datalabels.size = 2.5,   datalabels.colour = \"grey15\",   title = NULL,   subtitle = NULL,   caption = NULL,   x.title = \"Antimicrobial\",   y.title = \"Proportion\",   ... )  geom_sir(   position = NULL,   x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   ... )  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = seq(0, 1, 0.1), limits = NULL)  scale_sir_colours(..., aesthetics = \"fill\")  theme_sir()  labels_sir_count(   position = NULL,   x = \"antibiotic\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   datalabels.size = 3,   datalabels.colour = \"grey15\" )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Plots with ggplot2 — ggplot_sir","text":"data data.frame column(s) class sir (see .sir()) position position adjustment bars, either \"fill\", \"stack\" \"dodge\" x variable show x axis, either \"antibiotic\" (default) \"interpretation\" grouping variable fill variable categorise using plots legend, either \"antibiotic\" (default) \"interpretation\" grouping variable facet variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable breaks numeric vector positions limits numeric vector length two providing limits scale, use NA refer existing minimum maximum translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows colours named vactor colour used filling. default colours colour-blind friendly. datalabels show datalabels using labels_sir_count() datalabels.size size datalabels datalabels.colour colour datalabels title text show title plot subtitle text show subtitle plot caption text show caption plot x.title text show x axis description y.title text show y axis description ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples. aesthetics aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\"","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antibiotics shown plots using ab_name(). can set translate_ab argument. See count_df().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"the-functions","dir":"Reference","previous_headings":"","what":"The Functions","title":"AMR Plots with ggplot2 — ggplot_sir","text":"geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antibiotics x axis. facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage amount isolates using ggplot2::geom_text(). ggplot_sir() wrapper around functions uses data first input. makes possible use function pipe (%>%). See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"# \\donttest{ if (require(\"ggplot2\") && require(\"dplyr\")) {   # get antimicrobial results for drugs against a UTI:   ggplot(example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)) +     geom_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # prettify the plot using some additional functions:   df <- example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)   ggplot(df) +     geom_sir() +     scale_y_percent() +     scale_sir_colours() +     labels_sir_count() +     theme_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # or better yet, simplify this using the wrapper function - a single command:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # get only proportions and no counts:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(datalabels = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # add other ggplot2 arguments as you like:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(       width = 0.5,       colour = \"black\",       size = 1,       linetype = 2,       alpha = 0.25     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # you can alter the colours with colour names:   example_isolates %>%     select(AMX) %>%     ggplot_sir(colours = c(SI = \"yellow\")) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # but you can also use the built-in colour-blind friendly colours for   # your plots, where \"S\" is green, \"I\" is yellow and \"R\" is red:   data.frame(     x = c(\"Value1\", \"Value2\", \"Value3\"),     y = c(1, 2, 3),     z = c(\"Value4\", \"Value5\", \"Value6\")   ) %>%     ggplot() +     geom_col(aes(x = x, y = y, fill = z)) +     scale_sir_colours(Value4 = \"S\", Value5 = \"I\", Value6 = \"R\") }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values (`position_stack()`). #> Warning: Removed 6 rows containing missing values (`position_stack()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for mo_is_gram_negative()  # }"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":null,"dir":"Reference","previous_headings":"","what":"Guess Antibiotic Column — guess_ab_col","title":"Guess Antibiotic Column — guess_ab_col","text":"tries find column name data set based information antibiotics data set. Also supports WHONET abbreviations.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"guess_ab_col(   x = NULL,   search_string = NULL,   verbose = FALSE,   only_sir_columns = FALSE )"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Guess Antibiotic Column — guess_ab_col","text":"x data.frame search_string text search x , checked .ab() value column x verbose logical indicate whether additional info printed only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE)","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Guess Antibiotic Column — guess_ab_col","text":"column name x, NULL result found.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Guess Antibiotic Column — guess_ab_col","text":"can look antibiotic (trade) name abbreviation search x antibiotics data set column containing name code antibiotic.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"df <- data.frame(   amox = \"S\",   tetr = \"R\" )  guess_ab_col(df, \"amoxicillin\") #> [1] \"amox\" guess_ab_col(df, \"J01AA07\") # ATC code of tetracycline #> [1] \"tetr\"  guess_ab_col(df, \"J01AA07\", verbose = TRUE) #> Auto-guessing columns suitable for analysis #> ... #>  OK. #> ℹ Using column 'amox' as input for AMX (amoxicillin). #> ℹ Using column 'tetr' as input for TCY (tetracycline). #> ℹ Using column 'tetr' as input for J01AA07 (tetracycline). #> [1] \"tetr\" # NOTE: Using column 'tetr' as input for J01AA07 (tetracycline).  # WHONET codes df <- data.frame(   AMP_ND10 = \"R\",   AMC_ED20 = \"S\" ) guess_ab_col(df, \"ampicillin\") #> [1] \"AMP_ND10\" guess_ab_col(df, \"J01CR02\") #> [1] \"AMC_ED20\" guess_ab_col(df, as.ab(\"augmentin\")) #> [1] \"AMC_ED20\""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing defined intrinsic resistance EUCAST bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 134 634 observations 2 variables: mo Microorganism ID ab Antibiotic ID","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 134,634 × 2 #>    mo      ab    #>    <mo>    <chr> #>  1 B_GRAMP ATM   #>  2 B_GRAMP COL   #>  3 B_GRAMP NAL   #>  4 B_GRAMP PLB   #>  5 B_GRAMP TEM   #>  6 B_ABTRP ATM   #>  7 B_ABTRP COL   #>  8 B_ABTRP NAL   #>  9 B_ABTRP PLB   #> 10 B_ABTRP TEM   #> # ℹ 134,624 more rows"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":null,"dir":"Reference","previous_headings":"","what":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"According binomial nomenclature, lowest four taxonomic levels (family, genus, species, subspecies) printed italics. function finds taxonomic names within strings makes italic.","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\"))"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector) type type conversion taxonomic names, either \"markdown\" \"ansi\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, using ANSI colours adding \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(\"An overview of Staphylococcus aureus isolates\") #> [1] \"An overview of *Staphylococcus aureus* isolates\" italicise_taxonomy(\"An overview of S. aureus isolates\") #> [1] \"An overview of *S. aureus* isolates\"  cat(italicise_taxonomy(\"An overview of S. aureus isolates\", type = \"ansi\")) #> An overview of S. aureus isolates"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":null,"dir":"Reference","previous_headings":"","what":"Join microorganisms to a Data Set — join","title":"Join microorganisms to a Data Set — join","text":"Join data set microorganisms easily existing data set character vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Join microorganisms to a Data Set — join","text":"","code":"inner_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  left_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  right_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  full_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  semi_join_microorganisms(x, by = NULL, ...)  anti_join_microorganisms(x, by = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Join microorganisms to a Data Set — join","text":"x existing data set join, character vector. case character vector, resulting data.frame contain column 'x' values. variable join - left empty search column class mo (created .mo()) \"mo\" column name exists x, otherwise column name x values exist microorganisms$mo (= \"bacteria_id\"), another column microorganisms (named, like = c(\"bacteria_id\" = \"fullname\")) suffix non-joined duplicate variables x y, suffixes added output disambiguate . character vector length 2. ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Join microorganisms to a Data Set — join","text":"data.frame","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Join microorganisms to a Data Set — join","text":"Note: opposed join() functions dplyr, character vectors supported default existing columns get suffix \"2\" newly joined columns get suffix. dplyr package installed, join functions used. Otherwise, much slower merge() interaction() functions base R used.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 23 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 23 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"             \"bacteria\"         \"fullname\"         \"status\"           #>  [5] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #>  [9] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [13] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [17] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [21] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"             \"patient\"          \"age\"              \"gender\"           #>  [5] \"ward\"             \"mo\"               \"PEN\"              \"OXA\"              #>  [9] \"FLC\"              \"AMX\"              \"AMC\"              \"AMP\"              #> [13] \"TZP\"              \"CZO\"              \"FEP\"              \"CXM\"              #> [17] \"FOX\"              \"CTX\"              \"CAZ\"              \"CRO\"              #> [21] \"GEN\"              \"TOB\"              \"AMK\"              \"KAN\"              #> [25] \"TMP\"              \"SXT\"              \"NIT\"              \"FOS\"              #> [29] \"LNZ\"              \"CIP\"              \"MFX\"              \"VAN\"              #> [33] \"TEC\"              \"TCY\"              \"TGC\"              \"DOX\"              #> [37] \"ERY\"              \"CLI\"              \"AZM\"              \"IPM\"              #> [41] \"MEM\"              \"MTR\"              \"CHL\"              \"COL\"              #> [45] \"MUP\"              \"RIF\"              \"fullname\"         \"status\"           #> [49] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #> [53] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [57] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [61] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [65] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"           # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1395 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 3.027601 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.04687044"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":null,"dir":"Reference","previous_headings":"","what":"Vectorised Pattern Matching with Keyboard Shortcut — like","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Convenient wrapper around grepl() match pattern: x %like% pattern. always returns logical vector always case-insensitive (use x %like_case% pattern case-sensitive matching). Also, pattern can long x compare items index vectors, can length iterate cases.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"like(x, pattern, ignore.case = TRUE)  x %like% pattern  x %unlike% pattern  x %like_case% pattern  x %unlike_case% pattern"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Idea like function data.table package, although altered explained Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"x character vector matches sought, object can coerced .character() character vector. pattern character vector containing regular expressions (character string fixed = TRUE) matched given character vector. Coerced .character() character string possible. ignore.case FALSE, pattern matching case sensitive TRUE, case ignored matching.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"like() %like%/%unlike% functions: case-insensitive (use %like_case%/%unlike_case% case-sensitive matching) Support multiple patterns Check pattern valid regular expression sets fixed = TRUE , greatly improve speed (vectorised pattern) Always use compatibility Perl unless fixed = TRUE, greatly improve speed Using RStudio? %like%/%unlike% functions can also directly inserted code Addins menu can keyboard shortcut like Shift+Ctrl+L Shift+Cmd+L (see menu Tools > Modify Keyboard Shortcuts...). keep pressing shortcut, inserted text iterated %like% -> %unlike% -> %like_case% -> %unlike_case%.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"# data.table has a more limited version of %like%, so unload it: try(detach(\"package:data.table\", unload = TRUE), silent = TRUE)  a <- \"This is a test\" b <- \"TEST\" a %like% b #> [1] TRUE b %like% a #> [1] FALSE  # also supports multiple patterns a <- c(\"Test case\", \"Something different\", \"Yet another thing\") b <- c(\"case\", \"diff\", \"yet\") a %like% b #> [1] TRUE TRUE TRUE a %unlike% b #> [1] FALSE FALSE FALSE  a[1] %like% b #> [1]  TRUE FALSE FALSE a %like% b[1] #> [1]  TRUE FALSE FALSE  # \\donttest{ # get isolates whose name start with 'Entero' (case-insensitive) example_isolates[which(mo_name() %like% \"^entero\"), ] #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Determine isolates multidrug-resistant organisms (MDRO) according international, national custom guidelines.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"mdro(   x = NULL,   guideline = \"CMI2012\",   col_mo = NULL,   info = interactive(),   pct_required_classes = 0.5,   combine_SI = TRUE,   verbose = FALSE,   only_sir_columns = FALSE,   ... )  custom_mdro_guideline(..., as_factor = TRUE)  brmo(x = NULL, only_sir_columns = FALSE, ...)  mrgn(x = NULL, only_sir_columns = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"See supported guidelines list publications used function.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antibiotics columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions pct_required_classes minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function return MDRO results, instead returns data set logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) ... case custom_mdro_guideline(): set rules, see section Using Custom Guidelines . Otherwise: column name antibiotic, see section Antibiotics . as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"CMI 2012 paper - function mdr_cmi2012() mdro(): Ordered factor levels Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant (XDR) < Pandrug-resistant (PDR) TB guideline - function mdr_tb() mdro(..., guideline = \"TB\"): Ordered factor levels Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant < Extensively drug-resistant German guideline - function mrgn() mdro(..., guideline = \"MRGN\"): Ordered factor levels Negative < 3MRGN < 4MRGN Everything else, except custom guidelines: Ordered factor levels Negative < Positive, unconfirmed < Positive. value \"Positive, unconfirmed\" means , according guideline, entirely sure isolate multi-drug resistant confirmed additional (e.g. molecular) tests","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"functions context-aware. means x argument can left blank used inside data.frame call, see Examples. pct_required_classes argument, values 1 divided 100. support fractions (0.75 3/4) percentages (75). Note: Every test involves Enterobacteriaceae family, internally performed using newly named order Enterobacterales, since Enterobacteriaceae family taxonomically reclassified Adeolu et al. 2016. , Enterobacteriaceae family Enterobacteriales () order. species old Enterobacteriaceae family still new Enterobacterales (without ) order, divided multiple families. way tests performed now mdro() function makes sure results 2016 2016 identical.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"supported-international-national-guidelines","dir":"Reference","previous_headings":"","what":"Supported International / National Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu \"WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)\" (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"out <- mdro(example_isolates, guideline = \"EUCAST\") #>  (16 isolates had no test results) str(out) #>  Ord.factor w/ 3 levels \"Negative\"<\"Positive, unconfirmed\"<..: 1 1 1 1 1 1 1 1 1 1 ... table(out) #> out #>              Negative Positive, unconfirmed              Positive  #>                  1978                     0                     6   out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) table(out) #> out #>      Negative Custom MDRO 1 Custom MDRO 2  #>           870           804           326   # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     mdro() %>%     table()    # no need to define `x` when used inside dplyr verbs:   example_isolates %>%     mutate(MDRO = mdro()) %>%     pull(MDRO) %>%     table() } #>  (16 isolates had no test results) #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #>  (16 isolates had no test results) #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `MDRO = mdro()`. #> Caused by warning: #> ! in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> . #>                         Negative       Multi-drug-resistant (MDR)  #>                             1601                              128  #> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR)  #>                                0                                0  # }"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Mean AMR Distance — mean_amr_distance","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Calculates normalised mean antimicrobial resistance multiple observations, help identify similar isolates without comparing antibiograms hand.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for sir mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for data.frame mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) sir #> Class 'sir' #>  [1] R R R I S R S I S R mean_amr_distance(sir) #>  [1]  0.9486833  0.9486833  0.9486833 -0.9486833 -0.9486833  0.9486833 #>  [7] -0.9486833 -0.9486833 -0.9486833  0.9486833  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 4     128   0.5   0.025 0.002 32    128   16    0.5   128   mean_amr_distance(mic) #>  [1]  0.07714511  0.97675198 -0.46261901 -1.24022626 -1.89583387  0.61690923 #>  [7]  0.97675198  0.43698786 -0.46261901  0.97675198 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1]  0.07714511  0.97675198 -0.46261901 -1.24022626 -1.89583387  0.61690923 #>  [7]  0.97675198  0.43698786 -0.46261901  0.97675198  disk <- random_disk(10) disk #> Class 'disk' #>  [1]  9 46 37 23 13 47 10 23  6 38 mean_amr_distance(disk) #>  [1] -1.0287932  1.3209197  0.7493679 -0.1397127 -0.7747702  1.3844254 #>  [7] -0.9652875 -0.1397127 -1.2193105  0.8128737  y <- data.frame(   id = LETTERS[1:10],   amox = random_sir(10, ab = \"amox\", mo = \"Escherichia coli\"),   cipr = random_disk(10, ab = \"cipr\", mo = \"Escherichia coli\"),   gent = random_mic(10, ab = \"gent\", mo = \"Escherichia coli\"),   tobr = random_mic(10, ab = \"tobr\", mo = \"Escherichia coli\") ) y #>    id amox cipr  gent tobr #> 1   A    I   18     4    2 #> 2   B    I   23    16 0.25 #> 3   C    R   20     2    1 #> 4   D    I   20     8    2 #> 5   E    S   25 <=0.5    2 #> 6   F    R   22     1    1 #> 7   G    I   26     1 0.25 #> 8   H    R   22     2    2 #> 9   I    I   31     2 0.25 #> 10  J    R   19     8 0.25 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1] -0.14918777 -0.03570087  0.13005928  0.13771386 -0.17506383  0.10002806 #>  [7] -0.47691376  0.43333913  0.00264067  0.03308522 y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in .subset(x, j): invalid subscript type 'list' y[order(y$amr_distance), ] #> Error in order(y$amr_distance): argument 1 is not a vector  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>    id amox cipr  gent tobr amr_distance  check_id_C #> 1   C    R   20     2    1   0.13005928 0.000000000 #> 2   D    I   20     8    2   0.13771386 0.007654579 #> 3   F    R   22     1    1   0.10002806 0.030031221 #> 4   J    R   19     8 0.25   0.03308522 0.096974059 #> 5   I    I   31     2 0.25   0.00264067 0.127418609 #> 6   B    I   23    16 0.25  -0.03570087 0.165760150 #> 7   A    I   18     4    2  -0.14918777 0.279247046 #> 8   H    R   22     2    2   0.43333913 0.303279854 #> 9   E    S   25 <=0.5    2  -0.17506383 0.305123107 #> 10  G    I   26     1 0.25  -0.47691376 0.606973037 if (require(\"dplyr\")) {   # support for groups   example_isolates %>%     filter(mo_genus() == \"Enterococcus\" & mo_species() != \"\") %>%     select(mo, TCY, carbapenems()) %>%     group_by(mo) %>%     mutate(dist = mean_amr_distance(.)) %>%     arrange(mo, dist) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ Using column 'mo' as input for mo_species() #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Calculating mean AMR distance based on columns \"TCY\", \"IPM\", and \"MEM\" #> # A tibble: 63 × 5 #> # Groups:   mo [4] #>    mo           TCY   IPM   MEM     dist #>    <mo>         <sir> <sir> <sir>  <dbl> #>  1 B_ENTRC_AVIM S     S     NA     0     #>  2 B_ENTRC_AVIM S     S     NA     0     #>  3 B_ENTRC_CSSL NA    S     NA    NA     #>  4 B_ENTRC_FACM S     S     NA    -2.66  #>  5 B_ENTRC_FACM S     R     R     -0.423 #>  6 B_ENTRC_FACM S     R     R     -0.423 #>  7 B_ENTRC_FACM NA    R     R      0.224 #>  8 B_ENTRC_FACM NA    R     R      0.224 #>  9 B_ENTRC_FACM NA    R     R      0.224 #> 10 B_ENTRC_FACM NA    R     R      0.224 #> # ℹ 53 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"tibble 5 754 observations 2 variables: code Commonly used code microorganism mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 5,754 × 2 #>    code    mo        #>    <chr>   <mo>      #>  1 _FAM_A- B_GRAMN   #>  2 _FAM_A+ B_GRAMP   #>  3 _FAM_AC B_GRAMP   #>  4 _FAM_AE B_GRAMN   #>  5 _FAM_AN B_GRAMN   #>  6 _FAM_AO B_GRAMP   #>  7 _FAM_AP   UNKNOWN #>  8 _FAM_AS F_FUNGUS  #>  9 _FAM_AT   UNKNOWN #> 10 _FAM_AV   UNKNOWN #> # ℹ 5,744 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 151 Microorganisms — microorganisms","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: 11 December, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"tibble 52 151 observations 23 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters, e.g. \"Váňová\" becomes \"Vanova\". lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 73.4% ~36 000 bacteria data set contain oxygen tolerance. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version 1 July, 2021 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269 Reimer et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data.  Nucleic Acids Res. 2022 Jan 7;50(D1):D741-D746; doi:10.1093/nar/gkab961","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Please note entries based List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Included taxonomic data : ~36 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species 43 relevant genera kingdom Animalia (Strongyloides Taenia) ~9 800 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 15 entries Streptococcus, beta-haemolytic groups K, viridans, milleri 2 entries Staphylococcus (coagulase-negative (CoNS) coagulase-positive (CoPS)) 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found : https://github.com/msberends/AMR/blob/main/data-raw/reproduction_of_microorganisms.R.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"about-the-records-from-lpsn-see-source-","dir":"Reference","previous_headings":"","what":"About the Records from LPSN (see Source)","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"LPSN main source bacteriological taxonomy AMR package. List Prokaryotic names Standing Nomenclature (LPSN) provides comprehensive information nomenclature prokaryotes. LPSN free use service founded Jean P. Euzeby 1997 later maintained Aidan C. Parte.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,151 × 23 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_GRAMN          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  2 B_GRAMP          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  3 B_ANAER-NEG      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  4 B_ANAER-POS      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  5 B_ANAER          (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  6 F_FUNGUS         (unknown fun… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  7   UNKNOWN        (unknown nam… accep… (unkno… (unkn… (unk… (unk… \"(unk… \"(un… #>  8 F_YEAST          (unknown yea… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  9 B_[FAM]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"Abdi… \"\"    #> 10 B_[ORD]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"\"     \"\"    #> # ℹ 52,141 more rows #> # ℹ 14 more variables: species <chr>, subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 2, Protozoa = 3, Archaea = 4, others = 5. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.159\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Class 'mo' #> [1] B_ESCHR_COLI mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.1587302"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_oxygen_tolerance(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_anaerobic(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed() mo_info() named character case mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). Determination bacterial oxygen tolerance (mo_oxygen_tolerance()) based BacDive, see Source. function mo_is_anaerobic() returns TRUE oxygen tolerance \"anaerobe\", indicting obligate anaerobic species genus. always returns FALSE species outside taxonomic kingdom Bacteria. function mo_url() return direct URL online database entry, also shows scientific reference concerned species. SNOMED codes (mo_snomed()) version 1 July, 2021. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269 Reimer et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data.  Nucleic Acids Res. 2022 Jan 7;50(D1):D741-D746; doi:10.1093/nar/gkab961","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"    # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 20 × 2 #>    `mo_genus()`         n #>    <chr>            <int> #>  1 Escherichia        467 #>  2 Klebsiella          77 #>  3 Proteus             39 #>  4 Pseudomonas         30 #>  5 Serratia            25 #>  6 Enterobacter        23 #>  7 Citrobacter         11 #>  8 Haemophilus          8 #>  9 Acinetobacter        6 #> 10 Morganella           6 #> 11 Pantoea              4 #> 12 Salmonella           3 #> 13 Neisseria            2 #> 14 Stenotrophomonas     2 #> 15 Campylobacter        1 #> 16 Enterococcus         1 #> 17 Hafnia               1 #> 18 Lactobacillus        1 #> 19 Leuconostoc          1 #> 20 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"aerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  #> $lpsn #> [1] \"777151\" #>  #> $gbif #> [1] \"3221874\" #>  # }"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":null,"dir":"Reference","previous_headings":"","what":"User-Defined Reference Data Set for Microorganisms — mo_source","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"functions can used predefine reference used .mo() consequently mo_* functions (mo_genus() mo_gramstain()). fastest way organisation (analysis) specific codes picked translated package, since bother setting .","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"","code":"set_mo_source(   path,   destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\") )  get_mo_source(destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\"))"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"path location reference file, can text file (comma-, tab- pipe-separated) Excel file (see Details). Can also \"\", NULL FALSE delete reference file. destination destination compressed data file - default user's home directory.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"reference file can text file separated commas (CSV) tabs pipes, Excel file (either 'xls' 'xlsx' format) R object file (extension '.rds'). use Excel file, need readxl package installed. set_mo_source() check file validity: must data.frame, must column named \"mo\" contains values microorganisms$mo microorganisms$fullname must reference column defined values. tests pass, set_mo_source() read file R ask export \"~/mo_source.rds\". CRAN policy disallows packages write file system, although 'exceptions may allowed interactive sessions package obtains confirmation user'. reason, function works interactive sessions user can specifically confirm allow file created. destination file can set destination argument defaults user's home directory. can also set package option AMR_mo_source, e.g. options(AMR_mo_source = \"/location/file.rds\"). created compressed data file \"mo_source.rds\" used default MO determination (function .mo() consequently mo_* functions like mo_genus() mo_gramstain()). location timestamp original file saved attribute compressed data file. function get_mo_source() return data set reading \"mo_source.rds\" readRDS(). original file changed (checking location timestamp original file), call set_mo_source() update data file automatically used interactive session. Reading Excel file (.xlsx) one row size 8-9 kB. compressed file created set_mo_source() size 0.1 kB can read get_mo_source() couple microseconds (millionths second).","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"how-to-setup","dir":"Reference","previous_headings":"","what":"How to Setup","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"Imagine data sheet Excel file. first column contains organisation specific codes, second column contains valid taxonomic names:   save \"home//ourcodes.xlsx\". Now set source:   now created file \"~/mo_source.rds\" contents Excel file. first column foreign values 'mo' column kept creating RDS file. now can use functions:   edit Excel file , say, adding row 4 like :   ...new usage MO function package update data file:   delete reference data file, just use \"\", NULL FALSE input set_mo_source():   original file (previous case Excel file) moved deleted, mo_source.rds file removed upon next use .mo() mo_* function.","code":"|         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 |                    |                       | set_mo_source(\"home/me/ourcodes.xlsx\") #> NOTE: Created mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>       \"Organisation XYZ\" and \"mo\" as.mo(\"lab_mo_ecoli\") #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_mo_kpneumoniae\") #> [1] \"Klebsiella\"  # other input values still work too as.mo(c(\"Escherichia coli\", \"E. coli\", \"lab_mo_ecoli\")) #> NOTE: Translation to one microorganism was guessed with uncertainty. #>       Use mo_uncertainties() to review it. #> Class 'mo' #> [1] B_ESCHR_COLI B_ESCHR_COLI B_ESCHR_COLI |         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 | lab_Staph_aureus   | Staphylococcus aureus | 5 |                    |                       | as.mo(\"lab_mo_ecoli\") #> NOTE: Updated mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>        \"Organisation XYZ\" and \"mo\" #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_Staph_aureus\") #> [1] \"Staphylococcus\" set_mo_source(NULL) #> Removed mo_source file '/Users/me/mo_source.rds'"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":null,"dir":"Reference","previous_headings":"","what":"Principal Component Analysis (for AMR) — pca","title":"Principal Component Analysis (for AMR) — pca","text":"Performs principal component analysis (PCA) based data set automatic determination afterwards plotting groups labels, automatic filtering suitable (.e. non-empty numeric) variables.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"pca(   x,   ...,   retx = TRUE,   center = TRUE,   scale. = TRUE,   tol = NULL,   rank. = NULL )"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Principal Component Analysis (for AMR) — pca","text":"x data.frame containing numeric columns ... columns x selected PCA, can unquoted since supports quasiquotation. retx logical value indicating whether rotated variables     returned. center logical value indicating whether variables     shifted zero centered. Alternately, vector     length equal number columns x can supplied.     value passed scale. scale. logical value indicating whether variables     scaled unit variance analysis takes     place.  default FALSE consistency S,     general scaling advisable.  Alternatively, vector length     equal number columns x can supplied.      value passed scale. tol value indicating magnitude components     omitted. (Components omitted     standard deviations less equal tol times     standard deviation first component.)  default null     setting, components omitted (unless rank. specified     less min(dim(x)).).  settings tol     tol = 0 tol = sqrt(.Machine$double.eps),     omit essentially constant components. rank. optionally, number specifying maximal rank, .e.,     maximal number principal components used.  Can set     alternative addition tol, useful notably     desired rank considerably smaller dimensions matrix.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Principal Component Analysis (for AMR) — pca","text":"object classes pca prcomp","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Principal Component Analysis (for AMR) — pca","text":"pca() function takes data.frame input performs actual PCA R function prcomp(). result pca() function prcomp object, additional attribute non_numeric_cols vector column names columns contain numeric values. probably groups labels, used ggplot_pca().","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    pca_result   summary(pca_result)    # old base R plotting method:   biplot(pca_result)   # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic fortify(object, ...)  # S3 method for disk plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk fortify(object, ...)  # S3 method for sir plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for sir autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"x, object values created .mic(), .disk() .sir() (random_* variants, random_mic()) mo (vector ) text can coerced valid microorganism code .mo() ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline interpretation guideline use - default latest included EUCAST guideline, see Details main, title title plot xlab, ylab axis title colours_SIR colours use filling bars, must vector three values (order S, R). default colours colour-blind friendly. language language used translate 'Susceptible', 'Increased exposure'/'Intermediate' 'Resistant' - default system language (see get_AMR_locale()) can overwritten setting package option AMR_locale, e.g. options(AMR_locale = \"de\"), see translate. Use language = NULL language = \"\" prevent translation. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting for Classes sir, mic and disk — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  plot(some_mic_values)  plot(some_disk_values)  plot(some_sir_values)   # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"uk\")   # \\donttest{ if (require(\"ggplot2\")) {   autoplot(some_mic_values) }  if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(some_sir_values) }  # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. functions meant count isolates, calculate proportion resistance/susceptibility. Use count() functions count isolates. function susceptibility() essentially equal count_susceptible() / count_all(). Low counts can influence outcome - proportion functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> [1] 0.5955556 sir_confidence_interval(example_isolates$AMX) #> [1] 0.5688204 0.6218738 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> [1] 0.5650148 0.6255670 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> [1] \"0.565, 0.626\"  # determines %S+I: susceptibility(example_isolates$AMX) #> [1] 0.4044444 sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> [1] 0.3781262 0.4311796  # be more specific proportion_S(example_isolates$AMX) #> [1] 0.4022222 proportion_SI(example_isolates$AMX) #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> [1] 0.5977778 proportion_R(example_isolates$AMX) #> [1] 0.5955556  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       r = resistance(CIP),       n = n_sir(CIP)     ) # n_sir works like n_distinct in dplyr, see ?n_sir } #> # A tibble: 3 × 3 #>   ward           r     n #>   <chr>      <dbl> <int> #> 1 Clinical   0.147   869 #> 2 ICU        0.190   447 #> 3 Outpatient 0.161    93 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       cipro_R = resistance(CIP),       ci_min = sir_confidence_interval(CIP, side = \"min\"),       ci_max = sir_confidence_interval(CIP, side = \"max\"),     ) } #> # A tibble: 3 × 4 #>   ward       cipro_R ci_min ci_max #>   <chr>        <dbl>  <dbl>  <dbl> #> 1 Clinical     0.147 0.124   0.173 #> 2 ICU          0.190 0.155   0.230 #> 3 Outpatient   0.161 0.0932  0.252 if (require(\"dplyr\")) {   # scoped dplyr verbs with antibiotic selectors   # (you could also use across() of course)   example_isolates %>%     group_by(ward) %>%     summarise_at(       c(aminoglycosides(), carbapenems()),       resistance     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `KAN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 7 #>   ward         GEN   TOB   AMK   KAN    IPM    MEM #>   <chr>      <dbl> <dbl> <dbl> <dbl>  <dbl>  <dbl> #> 1 Clinical   0.229 0.315 0.626     1 0.0498 0.0458 #> 2 ICU        0.290 0.400 0.662     1 0.0862 0.0894 #> 3 Outpatient 0.2   0.368 0.605    NA 0.0541 0.0541 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = resistance(CIP, as_percent = TRUE),       SI = susceptibility(CIP, as_percent = TRUE),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Calculate co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy:   example_isolates %>% susceptibility(AMC) # %SI = 76.3%   example_isolates %>% count_all(AMC) #   n = 1879    example_isolates %>% susceptibility(GEN) # %SI = 75.4%   example_isolates %>% count_all(GEN) #   n = 1855    example_isolates %>% susceptibility(AMC, GEN) # %SI = 94.1%   example_isolates %>% count_all(AMC, GEN) #   n = 1939     # See Details on how `only_all_tested` works. Example:   example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN),       denominator = count_all(AMC, GEN),       proportion = susceptibility(AMC, GEN)     )    example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN, only_all_tested = TRUE),       denominator = count_all(AMC, GEN, only_all_tested = TRUE),       proportion = susceptibility(AMC, GEN, only_all_tested = TRUE)     )     example_isolates %>%     group_by(ward) %>%     summarise(       cipro_p = susceptibility(CIP, as_percent = TRUE),       cipro_n = count_all(CIP),       genta_p = susceptibility(GEN, as_percent = TRUE),       genta_n = count_all(GEN),       combination_p = susceptibility(CIP, GEN, as_percent = TRUE),       combination_n = count_all(CIP, GEN)     )    # Get proportions S/I/R immediately of all sir columns   example_isolates %>%     select(AMX, CIP) %>%     proportion_df(translate = FALSE)    # It also supports grouping variables   # (use sir_df to also include the count)   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     sir_df(translate = FALSE) } #> # A tibble: 12 × 7 #>    ward       antibiotic interpretation value ci_min ci_max isolates #>  * <chr>      <chr>      <ord>          <dbl>  <dbl>  <dbl>    <int> #>  1 Clinical   AMX        SI             0.423 0.389   0.457      357 #>  2 Clinical   AMX        R              0.577 0.543   0.611      487 #>  3 Clinical   CIP        SI             0.853 0.827   0.876      741 #>  4 Clinical   CIP        R              0.147 0.124   0.173      128 #>  5 ICU        AMX        SI             0.369 0.323   0.417      158 #>  6 ICU        AMX        R              0.631 0.583   0.677      270 #>  7 ICU        CIP        SI             0.810 0.770   0.845      362 #>  8 ICU        CIP        R              0.190 0.155   0.230       85 #>  9 Outpatient AMX        SI             0.397 0.288   0.515       31 #> 10 Outpatient AMX        R              0.603 0.485   0.712       47 #> 11 Outpatient CIP        SI             0.839 0.748   0.907       78 #> 12 Outpatient CIP        R              0.161 0.0932  0.252       15 # }"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":null,"dir":"Reference","previous_headings":"","what":"Random MIC Values/Disk Zones/SIR Generation — random","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"functions can used generating random MIC values disk diffusion diameters, AMR data analysis practice. providing microorganism antimicrobial drug, generated results reflect reality much possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(size = NULL, mo = NULL, ab = NULL, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"size desired size returned vector. used data.frame call dplyr verb, get current (group) size left blank. mo character can coerced valid microorganism code .mo() ab character can coerced valid antimicrobial drug code .ab() ... ignored, place allow future extensions prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value)","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"class mic random_mic() (see .mic()) class disk random_disk() (see .disk())","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"base R function sample() used generating values. Generated values based EUCAST 2022 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 4     4     128   4     4     2     0.25  0.002 2     128   1     0.25  #> [13] 128   0.5   0.005 0.025 4     256   64    16    16    0.01  0.25  0.001 #> [25] 0.002 random_disk(25) #> Class 'disk' #>  [1] 42  9 27 42 18  9 46 39 38 20 26 48  6 47 40 23 13 29 22  6  8 16 40 20 16 random_sir(25) #> Class 'sir' #>  [1] S S I I S S S I R R I R I I S R R R R I I S R I I  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 32    0.125 0.025 0.001 0.01  64    0.125 0.01  2     2     64    1     #> [13] 0.025 0.25  0.125 16    8     0.125 0.002 4     0.025 128   256   0.002 #> [25] 16    random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 16 32 1  16 2  4  32 32 32 2  4  2  16 1  16 16 2  16 2  8  8  1  8  32 2  random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] <=0.0625 0.25     4        0.5      0.5      2        16       1        #>  [9] 0.5      <=0.0625 <=0.0625 0.25     0.125    8        1        0.125    #> [17] 0.25     0.25     0.5      4        <=0.0625 0.5      2        0.5      #> [25] <=0.0625  random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 15 40 46 17 10 19 38 43 35 33 44  9 22 30 24 49 11 48  8 18  8 12 21 24 33 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 12 13 15 12 15 17 11 14 17 15 15 13 13 13 13 13 11 17 16 13 12 13 13 12 17 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 21 23 23 18 25 24 16 19 20 22 15 22 23 24 21 24 23 17 22 17 23 27 23 26 19 # }"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict Antimicrobial Resistance — resistance_predict","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Create prediction model predict antimicrobial resistance next years statistical solid ground. Standard errors (SE) returned columns se_min se_max. See Examples real live example.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  sir_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  # S3 method for resistance_predict plot(x, main = paste(\"Resistance Prediction of\", x_name), ...)  ggplot_sir_predict(   x,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )  # S3 method for resistance_predict autoplot(   object,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict Antimicrobial Resistance — resistance_predict","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_ab column name x containing antimicrobial interpretations (\"R\", \"\" \"S\") col_date column name date, used calculate years column consist years already - default first column date class year_min lowest year use prediction model, dafaults lowest year col_date year_max highest year use prediction model - default 10 years today year_every unit sequence lowest year found data year_max minimum minimal amount available isolates per year include. Years containing less observations estimated model. model statistical model choice. generalised linear regression model binomial distribution (.e. using glm(..., family = binomial), assuming period zero resistance followed period increasing resistance leading slowly resistance. See Details valid options. I_as_S logical indicate whether values \"\" treated \"S\" (otherwise treated \"R\"). default, TRUE, follows redefinition EUCAST interpretation (increased exposure) 2019, see section Interpretation S, R . preserve_measurements logical indicate whether predictions years actually available data overwritten original data. standard errors years NA. info logical indicate whether textual analysis printed name summary() statistical model. ... arguments passed functions main title plot ribbon logical indicate whether ribbon shown (default) error bars object model data plotted","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Predict Antimicrobial Resistance — resistance_predict","text":"data.frame extra class resistance_predict columns: year value, estimated preserve_measurements = FALSE, combination observed estimated otherwise se_min, lower bound standard error minimum 0 (standard error never go 0%) se_max upper bound standard error maximum 1 (standard error never go 100%) observations, total number available observations year, .e. \\(S + + R\\) observed, original observed resistant percentages estimated, estimated resistant percentages, calculated model Furthermore, model available attribute: attributes(x)$model, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Valid options statistical model (argument model) : \"binomial\" \"binom\" \"logit\": generalised linear regression model binomial distribution \"loglin\" \"poisson\": generalised log-linear regression model poisson distribution \"lin\" \"linear\": linear regression model","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Predict Antimicrobial Resistance — resistance_predict","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"x <- resistance_predict(example_isolates,   col_ab = \"AMX\",   year_min = 2010,   model = \"binomial\" ) plot(x)  # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) }   # using dplyr: if (require(\"dplyr\")) {   x <- example_isolates %>%     filter_first_isolate() %>%     filter(mo_genus(mo) == \"Staphylococcus\") %>%     resistance_predict(\"PEN\", model = \"binomial\")   print(plot(x))    # get the model from the object   mymodel <- attributes(x)$model   summary(mymodel) }  #> NULL #>  #> Call: #> glm(formula = df_matrix ~ year, family = binomial) #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 47.02915   72.98739   0.644    0.519 #> year        -0.02280    0.03637  -0.627    0.531 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.9620  on 11  degrees of freedom #> Residual deviance: 5.5701  on 10  degrees of freedom #> AIC: 50.533 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) }  # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for data.frame skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] 0.02857046"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate Strings from the AMR Package — translate","title":"Translate Strings from the AMR Package — translate","text":"language-dependent output AMR functions, mo_name(), mo_gramstain(), mo_type() ab_name().","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate Strings from the AMR Package — translate","text":"","code":"get_AMR_locale()  set_AMR_locale(language)  reset_AMR_locale()  translate_AMR(x, language = get_AMR_locale())"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate Strings from the AMR Package — translate","text":"language language choose. Use one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). x text translate","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate Strings from the AMR Package — translate","text":"currently 20 supported languages English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). languages translations available antimicrobial drugs colloquial microorganism names. permanently silence -per-session language note non-English operating system, can set package option AMR_locale .Rprofile file like :   save file. Please read adding updating language Wiki.","code":"# Open .Rprofile file utils::file.edit(\"~/.Rprofile\")  # Then add e.g. Italian support to that file using: options(AMR_locale = \"Italian\")"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"changing-the-default-language","dir":"Reference","previous_headings":"","what":"Changing the Default Language","title":"Translate Strings from the AMR Package — translate","text":"system language used default (returned Sys.getenv(\"LANG\") , LANG set, Sys.getlocale(\"LC_COLLATE\")), language supported. language used can overwritten two ways checked order: Setting package option AMR_locale, either using e.g. set_AMR_locale(\"German\") running e.g. options(AMR_locale = \"German\"). Note setting R option works session. Save command options(AMR_locale = \"(language)\") .Rprofile file apply every session. Run utils::file.edit(\"~/.Rprofile\") edit .Rprofile file. Setting system variable LANGUAGE LANG, e.g. adding LANGUAGE=\"de_DE.utf8\" .Renviron file home directory. Thus, package option AMR_locale set, system variables LANGUAGE LANG ignored.","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate Strings from the AMR Package — translate","text":"","code":"# Current settings (based on system language) ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negative Staphylococcus (CoNS)\"  # setting another language set_AMR_locale(\"Spanish\") #> ℹ Using Spanish (Español) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacina\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Staphylococcus coagulasa negativo (SCN)\"  # setting yet another language set_AMR_locale(\"Greek\") #> ℹ Using Greek (Ελληνικά) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Σιπροφλοξασίνη\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Σταφυλόκοκκος με αρνητική πηκτικότητα (CoNS)\"  # setting yet another language set_AMR_locale(\"Ukrainian\") #> ℹ Using Ukrainian (Українська) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ципрофлоксацин\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Коагулазонегативний стафілокок (КНС)\"  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"de\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"amox/clav\") #> ℹ More than one result was found for item 1: amoxicillin and clavulansäure #> [1] \"Amoxicillin/Clavulansäure\"  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> [1] \"Amoxicillin/clavulanic acid\""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-0-0-9015","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9015","text":"Added mo_oxygen_tolerance() retrieve values Added mo_is_anaerobic() determine species obligate anaerobic bacteria Added LPSN GBIF identifiers, oxygen tolerance mo_info() formatting fix sir_interpretation_history() Fixed WHONET codes microorganisms consequently couple entries clinical_breakpoints Added microbial codes Gram-negative/positive anaerobic bacteria mo_rank() now returns NA ‘unknown’ microorganisms (B_ANAER, B_ANAER-NEG, B_ANAER-POS, B_GRAMN, B_GRAMP, F_FUNGUS, F_YEAST, UNKNOWN) Fixed bug .mo() led coercion NA values using custom microorganism codes Added SAS Transport files (file extension .xpt) download page use SAS software","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-200","dir":"Changelog","previous_headings":"","what":"AMR 2.0.0","title":"AMR 2.0.0","text":"CRAN release: 2023-03-12 new major release AMR package, great new additions also breaking changes current users. listed . TL;DR functions arguments ‘rsi’ replaced ‘sir’, interpretation MIC values (now .sir() instead .rsi()) - old functions still work now Many new interesting functions, antibiogram() (generating traditional/combined/syndromic/WISCA antibiograms), sir_confidence_interval() mean_amr_distance(), add_custom_microorganisms() add custom microorganisms package Clinical breakpoints added EUCAST 2022 CLSI 2022 Microbiological taxonomy (microorganisms data set) updated 2022 now based LPSN GBIF Much increased algorithms translate user input valid taxonomy, e.g. using recent scientific work per-species human pathogenicity 20 new antibiotics added updated DDDs ATC codes Extended support antiviral agents (antivirals data set), many new functions Now available 20 languages Many small bug fixes","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"sir-vs-rsi-2-0-0","dir":"Changelog","previous_headings":"New","what":"SIR vs. RSI","title":"AMR 2.0.0","text":"milestone version, replaced mentions RSI SIR, comply actually commonly used field clinical microbiology comes tri-form regarding AMR. existing functions .rsi(), rsi_df() ggplot_rsi() still work, replacements .sir(), sir_df(), ggplot_sir() now current functions AMR data analysis. warning thrown session remind users . data set rsi_translation now called clinical_breakpoints better reflect content. ‘RSI functions’ removed future version, late 2023 / early 2024.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-antibiogram-function-2-0-0","dir":"Changelog","previous_headings":"New","what":"New antibiogram function","title":"AMR 2.0.0","text":"new antibiogram() function, users can now generate traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). , follow logic previously described work Klinker et al. (2021, DOI 10.1177/20499361211011373) Barbieri et al. (2021, DOI 10.1186/s13756-021-00939-2). help page antibiogram() extensively elaborates use cases, antibiogram() also supports printing R Markdown Quarto, support 20 languages. Furthermore, different plotting methods implemented allow graphical visualisations well.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"interpretation-of-mic-and-disk-diffusion-values-2-0-0","dir":"Changelog","previous_headings":"New","what":"Interpretation of MIC and disk diffusion values","title":"AMR 2.0.0","text":"clinical breakpoints intrinsic resistance EUCAST 2022 CLSI 2022 added .sir(). EUCAST 2022 (v12.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. default guideline (EUCAST) can now changed new AMR_guideline option, : options(AMR_guideline = \"CLSI 2020\"). new arguments include_PKPD (default: TRUE) include_screening (default: FALSE), users can now specify whether breakpoints screening PK/PD table included interpreting MICs disks diffusion values. options can set globally, can read new manual. Interpretation guidelines older 10 years removed, oldest now included guidelines EUCAST CLSI 2013.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"supported-languages-2-0-0","dir":"Changelog","previous_headings":"New","what":"Supported languages","title":"AMR 2.0.0","text":"added support following ten languages: Chinese (simplified), Czech, Finnish, Greek, Japanese, Norwegian (bokmål), Polish, Romanian, Turkish Ukrainian. antibiotic names now available languages, AMR package automatically determine supported language based user’s system language. grateful valuable input colleagues countries. AMR package now available 20 languages total, according download stats used almost countries world!","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"outbreak-management-2-0-0","dir":"Changelog","previous_headings":"New","what":"Outbreak management","title":"AMR 2.0.0","text":"analysis outbreak management, updated get_episode() is_new_episode() functions: now contain argument case_free_days. argument can used quantify duration case-free days (inter-epidemic interval), new episode start. common requirement outbreak management, e.g. determining number norovirus outbreaks hospital. case-free period 14 28 days, new norovirus cases time considered different (new) episode.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"microbiological-taxonomy-2-0-0","dir":"Changelog","previous_headings":"New","what":"Microbiological taxonomy","title":"AMR 2.0.0","text":"microorganisms data set longer relies Catalogue Life, List Prokaryotic names Standing Nomenclature (LPSN) supplemented ‘backbone taxonomy’ Global Biodiversity Information Facility (GBIF). structure data set changed include separate LPSN GBIF identifiers. Almost previous MO codes retained. contains 1,400 taxonomic names 2022. previously relied experience categorise species pathogenic groups, happy encounter recent work Bartlett et al. (2022, DOI 10.1099/mic.0.001269) extensively studied medical-scientific literature categorise bacterial species groups. See mo_matching_score() work incorporated prevalence column microorganisms data set. Using results, .mo() mo_*() functions now much better capable converting user input valid taxonomic records. new function add_custom_microorganisms() allows users add custom microorganisms AMR package. also made following changes regarding included taxonomy microorganisms functions: Updated full microbiological taxonomy according latest daily LPSN data set (December 2022) latest yearly GBIF taxonomy backbone (November 2022) Added function mo_current() get currently valid taxonomic name microorganism Support 1,516 city-like serovars Salmonella, Salmonella Goldcoast. Formally, serovars belonging S. enterica species, reported name genus city. reason, serovars subspecies column microorganisms data set “enterica” species column, full name contain species name (enterica). new argument keep_synonyms allows correct updated taxonomy, favour now deleted argument allow_uncertain increased tremendously speed returns generally consequent results Sequential coercion now extremely fast results stored package environment, although coercion unknown values must run per session. Previous results can reset/removed new mo_reset_session() function. Support microorganism codes ASIan Antimicrobial Resistance Surveillance Network (ASIARS-Net) MO matching score algorithm (mo_matching_score()) now counts deletions substitutions 2 instead 1, impacts outcome .mo() mo_*() function CRAN allows packages around 5 MB maximum, packages exempted package one Chromista relevant comes antimicrobial resistance, thus lacking primary scope package Chromista almost never clinically relevant, thus lacking secondary scope package microorganisms.old data set removed, previously accepted names now included microorganisms data set. new column status contains \"accepted\" currently accepted names \"synonym\" taxonomic synonyms; currently invalid names. previously accepted names now microorganisms ID - available - LPSN, GBIF SNOMED CT identifier.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antibiotic-agents-and-selectors-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antibiotic agents and selectors","title":"AMR 2.0.0","text":"new function add_custom_antimicrobials() allows users add custom antimicrobial codes names AMR package. antibiotics data set greatly updated: following 20 antibiotics added (also includes new J01RA ATC group): azithromycin/fluconazole/secnidazole (AFC), cefepime/amikacin (CFA), cefixime/ornidazole (CEO), ceftriaxone/beta-lactamase inhibitor (CEB), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), furazidin (FUR), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), lascufloxacin (LSC), levofloxacin/ornidazole (LEO), nemonoxacin (NEM), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin/ornidazole (OOR), oteseconazole (OTE), rifampicin/ethambutol/isoniazid (REI), sarecycline (SRC), tetracycline/oleandomycin (TOL), thioacetazone (TAT) Added missing ATC codes Updated DDDs PubChem Compound IDs Updated antibiotic name spelling, now used WHOCC (cephalexin -> cefalexin, phenethicillin -> pheneticillin) Antibiotic code “CEI” ceftolozane/tazobactam replaced “CZT” comply EARS-Net WHONET 2022. old code still work cases using .ab() ab_*() functions. Support antimicrobial interpretation anaerobic bacteria, adding ‘placeholder’ code B_ANAER microorganisms data set adding breakpoints anaerobics clinical_breakpoints data set, used .sir() interpretion MIC disk diffusion values Also, added support using antibiotic selectors scoped dplyr verbs (without using vars()), : ... %>% summarise_at(aminoglycosides(), resistance), please see resistance() examples.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antiviral-agents-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antiviral agents","title":"AMR 2.0.0","text":"now added extensive support antiviral agents! first time, AMR package extensive support antiviral drugs work names, codes data way. antivirals data set extended 18 new drugs (also new J05AJ ATC group) now also contains antiviral identifiers LOINC codes new data type av (antivirals) added, functionally similar ab antibiotics Functions .av(), av_name(), av_atc(), av_synonyms(), av_from_text() added siblings ab_*() equivalents","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-new-functions-2-0-0","dir":"Changelog","previous_headings":"New","what":"Other new functions","title":"AMR 2.0.0","text":"Function sir_confidence_interval() add confidence intervals AMR calculation. now also included sir_df() proportion_df(). Function mean_amr_distance() calculate mean AMR distance. mean AMR distance normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. Function sir_interpretation_history() view history previous runs .sir() (previously .rsi()). returns ‘logbook’ selected guideline, reference table specific interpretation row data set .sir() run.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changes-2-0-0","dir":"Changelog","previous_headings":"","what":"Changes","title":"AMR 2.0.0","text":"Fix working NA values Fix unsorted dates length 2 Now returns class integer instead numeric since always whole numbers Argument combine_IR removed package (affecting functions count_df(), proportion_df(), sir_df() plotting functions), since replaced combine_SI three years ago Using units ab_ddd(..., units = \"...\") deprecated time now supported anymore. Use ab_ddd_units() instead. Support data.frame-enhancing R packages, specifically: data.table::data.table, janitor::tabyl, tibble::tibble, tsibble::tsibble. AMR package functions data set output (sir_df() bug_drug_combinations()), now return data type input. data sets package now tibble, instead base R data.frames. Older R versions still supported, even support tibbles. data sets now also continually exported Apache Feather Apache Parquet formats. can find info article website. Fixed certain EUCAST breakpoints MIC values Allow NA values (e.g. .sir(.disk(NA), ...)) Fix bug-drug combinations multiple breakpoints different body sites Interpretation MIC disk zones now informative availability breakpoints robust Removed .integer() method MIC values, since MIC integer values running table() MIC values consequently failed able retrieve level position (’s normally .integer() factors work) Fixed determination Gram stains (mo_gramstain()), since taxonomic phyla Actinobacteria, Chloroflexi, Firmicutes, Tenericutes renamed respectively Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota 2021 droplevels() MIC now return common factor default lose mic class. Use droplevels(..., .mic = TRUE) keep mic class. Small fix using ab_from_text() Fixes reading text files using set_mo_source(), now also allows source file contain valid taxonomic names instead valid microorganism ID package Fixed bug mdro() using similar column names Magiorakos guideline Using random_*() function (random_mic()) now possible directly calling package without loading first: AMR::random_mic(10) Extended support vctrs package, used internally tidyverse. allows change values class mic, disk, sir, mo ab tibbles, use antibiotic selectors selecting/filtering, e.g. df[carbapenems() == \"R\", ] Fix using info = FALSE mdro() interpretation guidelines using .sir() amoxicillin, rules ampicillin used amoxicillin rules available Fix using ab_atc() non-existing ATC codes Black white message texts now reversed colour using RStudio dark theme mo_snomed() now returns class character, numeric anymore (make long SNOMED codes readable) Fix using .ab() NA values Updated support WHONET 2022 microorganism codes Antimicrobial interpretation ‘SDD’ (susceptible dose-dependent, coined CLSI) interpreted ‘’ comply EUCAST’s ‘’ .sir() Fix mo_shortname() case higher taxonomic ranks (order, class, phylum) Cleaning columns .sir(), .mic(), .disk() now show column name warning invalid results Fix using g.test() zeroes 2x2 table mo_synonyns() now contains scientific reference names","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-0-0","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.0.0","text":"Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, Andrew Norgan, Jonas Salm, Anita Williams contributors, thank valuable input New website make use new Bootstrap 5 pkgdown 2.0. website now contains results examples automatically regenerated every change repository, using GitHub Actions R Rmd files project now styled using styler package Set scalar conditional expressions (&& ||) possible comply upcoming R 4.3 enormous lot code cleaning, fixing small bugs along way changelog contains changes AMR v2.0 later. prior versions, please see archive.","code":""}]
+[{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to conduct AMR data analysis","text":"Conducting AMR data analysis unfortunately requires -depth knowledge different scientific fields, makes hard right. least, requires: Good questions (always start !) reliable data thorough understanding (clinical) epidemiology, understand clinical epidemiological relevance possible bias results thorough understanding (clinical) microbiology/infectious diseases, understand microorganisms causal infections implications pharmaceutical treatment, well understanding intrinsic acquired microbial resistance Experience data analysis microbiological tests results, understand determination limitations MIC values interpretations SIR values Availability biological taxonomy microorganisms probably normalisation factors pharmaceuticals, defined daily doses (DDD) Available (inter-)national guidelines, profound methods apply course, instantly provide knowledge experience. AMR package, aimed providing (1) tools simplify antimicrobial resistance data cleaning, transformation analysis, (2) methods easily incorporate international guidelines (3) scientifically reliable reference data, including requirements mentioned . AMR package enables standardised reproducible AMR data analysis, application evidence-based rules, determination first isolates, translation various codes microorganisms antimicrobial agents, determination (multi-drug) resistant microorganisms, calculation antimicrobial resistance, prevalence future trends.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to conduct AMR data analysis","text":"tutorial, create fake demonstration data work . can skip Cleaning data already data ready. start analysis, try make structure data generally look like :","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"How to conduct AMR data analysis","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2 RStudio. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. also use cleaner package, can used cleaning data creating frequency tables. AMR package contains data set example_isolates_unclean, might look data users extracted laboratory systems: AMR data analysis, like microorganism column contain valid, --date taxonomy, antibiotic columns cleaned SIR values well.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"dplyr\", \"ggplot2\", \"AMR\")) example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"How to conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 11 Dec 2022. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Microorganism translation was uncertain for four microorganisms. Run #>   mo_uncertainties() to review these uncertainties, or use #>   add_custom_microorganisms() to add custom entries. mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Streptomyces argenteolus (0.483), Streptomyces aureus (0.474), #>               Streptomyces azureus (0.467), Streptomyces aureorectus (0.444), #>               Streptomyces auratus (0.433), Streptomyces aurantiogriseus (0.429), and #>               Streptomyces aureocirculatus (0.429) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% of total where a microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,626 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,616 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2626        Length:2626        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-14   #>  Mode  :character   Mode  :character   Median :2015-06-05   #>                                        Mean   :2015-06-15   #>                                        3rd Qu.:2017-08-23   #>                                        Max.   :2020-01-01   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :43.2% (n=1134)   %R   :36.1% (n=947)    #>  Unique:4              %SI  :56.8% (n=1492)   %SI  :63.9% (n=1679)   #>  #1    :B_ESCHR_COLI   - %S :41.1% (n=1080)   - %S :52.7% (n=1383)   #>  #2    :B_STPHY_AURS   - %I :15.7% (n=412)    - %I :11.3% (n=296)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1102)   %R   :37.0% (n=971)    TRUE:2626      #>  %SI  :58.0% (n=1524)   %SI  :63.0% (n=1655)                  #>  - %S :51.9% (n=1362)   - %S :59.9% (n=1574)                  #>  - %I : 6.2% (n=162)    - %I : 3.1% (n=81)                    #>   glimpse(our_data_1st) #> Rows: 2,626 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"J8\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, R, S, S, S, S, R, S, S, R, R, R, R, I, S,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, R,… #> $ CIP        <sir> S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1808          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1250 #> 2 Staphylococcus aureus      661 #> 3 Streptococcus pneumoniae   399 #> 4 Klebsiella pneumoniae      316"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,626 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2016-06-14 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,626 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI R     S     #>  7 B_ESCHR_COLI R     S     #>  8 B_ESCHR_COLI S     S     #>  9 B_STPHY_AURS S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,626 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     S     #>  7 B_ESCHR_COLI R     S     S     S     #>  8 B_ESCHR_COLI S     S     S     S     #>  9 B_STPHY_AURS S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,616 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 971 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN R     S     S     R     TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS R     S     S     R     TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI S     S     S     R     TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI S     S     S     R     TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI S     S     S     R     TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS S     S     S     R     TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN S     S     S     R     TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS S     S     S     R     TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS S     S     S     R     TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN S     S     S     R     TRUE  #> # ℹ 961 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"How to conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. next example, force language Spanish using language argument:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) antibiogram(example_isolates,             mo_transform = \"gramstain\",             antibiotics = aminoglycosides(),             ab_transform = \"name\",             language = \"es\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"How to conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"How to conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"How to conduct AMR data analysis","text":"create WISCA, must state combination therapy antibiotics argument (similar Combination Antibiogram), define syndromic group syndromic_group argument (similar Syndromic Antibiogram) cases predefined based clinical demographic characteristics (e.g., endocarditis 75+ females). next example simplification without clinical characteristics, just gives idea WISCA can created:","code":"wisca <- antibiogram(example_isolates,                      antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),                      mo_transform = \"gramstain\",                      minimum = 10, # this should be >= 30, but now just as example                      syndromic_group = ifelse(example_isolates$age >= 65 &                                                 example_isolates$gender == \"M\",                                               \"WISCA Group 1\", \"WISCA Group 2\")) wisca"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"How to conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.3, 2021). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          R         R            S          I            I            R #> 2          S         I            R          I            R            S #> 3          R         S            S          S            R            I #> 4          S         R            S          R            R            I #> 5          R         I            S          R            R            R #> 6          R         R            I          S            I            I #>   kanamycin #> 1         I #> 2         R #> 3         S #> 4         S #> 5         S #> 6         R mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 9.577e-17 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss-sas-stata","dir":"Articles","previous_headings":"","what":"SPSS / SAS / Stata","title":"How to import data from SPSS / SAS / Stata","text":"SPSS (Statistical Package Social Sciences) probably well-known software package statistical analysis. SPSS easier learn R, SPSS click menu run parts analysis. user-friendliness, taught universities particularly useful students new statistics. experience, guess pretty much (bio)medical students know time graduate. SAS Stata comparable statistical packages popular big industries.","code":""},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"compared-to-r","dir":"Articles","previous_headings":"","what":"Compared to R","title":"How to import data from SPSS / SAS / Stata","text":"said, SPSS easier learn R. SPSS, SAS Stata come major downsides comparing R: R highly modular. official R network (CRAN) features 16,000 packages time writing, AMR package one . packages peer-reviewed publication. Aside official channel, also developers choose submit CRAN, rather keep public repository, like GitHub. may even lot 14,000 packages . Bottom line , can really extend ask somebody . Take example AMR package. Among things, adds reliable reference data R help data cleaning analysis. SPSS, SAS Stata never know valid MIC value Gram stain E. coli . species Klebiella resistant amoxicillin Floxapen® trade name flucloxacillin. facts properties often needed clean existing data, inconvenient software package without reliable reference data. See demonstration. R extremely flexible. write syntax , can anything want. flexibility transforming, arranging, grouping summarising data, drawing plots, endless - SPSS, SAS Stata bound algorithms format styles. may bit flexible, can probably never create specific publication-ready plot without using (paid) software. sometimes write syntaxes SPSS run complete analysis ‘automate’ work, lot less time R. notice writing syntaxes R lot nifty clever SPSS. Still, working statistical package, knowledge (statistically) willing accomplish. R can easily automated. last years, R Markdown really made interesting development. R Markdown, can easily produce reports, whether format Word, PowerPoint, website, PDF document just raw data Excel. even allows use reference file containing layout style (e.g. fonts colours) organisation. use lot generate weekly monthly reports automatically. Just write code enjoy automatically updated reports interval like. even professional environment, create Shiny apps: live manipulation data using custom made website. webdesign knowledge needed (JavaScript, CSS, HTML) almost zero. R huge community. Many R users just ask questions websites like StackOverflow.com, largest online community programmers. time writing, 489 583 R-related questions already asked platform (covers questions answers programming language). experience, questions answered within couple minutes. R understands data type, including SPSS/SAS/Stata. ’s vice versa ’m afraid. can import data source R. example SPSS, SAS Stata (link), Minitab, Epi Info EpiData (link), Excel (link), flat files like CSV, TXT TSV (link), directly databases datawarehouses anywhere world (link). can even scrape websites download tables live internet (link) get results API call transform data one command (link). best part - can export R data formats well. can import SPSS file, analysis neatly R export resulting tables Excel files sharing. R completely free open-source. strings attached. created maintained volunteers believe (data) science open publicly available everybody. SPSS, SAS Stata quite expensive. IBM SPSS Staticstics comes subscriptions nowadays, varying USD 1,300 USD 8,500 per user per year. SAS Analytics Pro costs around USD 10,000 per computer. Stata also business model subscription fees, varying USD 600 USD 2,800 per computer per year, lower prices come limitation number variables can work . still offer benefits R. working midsized small company, can save tens thousands dollars using R instead e.g. SPSS - gaining even functions flexibility. R enthousiasts can much PR want (like ), nobody officially associated affiliated R. really free. R (nowadays) preferred analysis software academic papers. present, R among world powerful statistical languages, generally popular science (Bollmann et al., 2017). reasons, number references R analysis method academic papers rising continuously even surpassed SPSS academic use (Muenchen, 2014). believe thing SPSS , always great user interface easy learn use. Back developed , little competition, let alone R. R didn’t even professional user interface last decade (called RStudio, see ). people used R nineties 2010 almost completely incomparable R used now. language restyled completely volunteers dedicated professionals field data science. SPSS great nothing else compete. now 2023, don’t see reason SPSS better use R. demonstrate first point:","code":"# not all values are valid MIC values: as.mic(0.125) #> Class 'mic' #> [1] 0.125 as.mic(\"testvalue\") #> Class 'mic' #> [1] <NA>  # the Gram stain is available for all bacteria: mo_gramstain(\"E. coli\") #> [1] \"Gram-negative\"  # Klebsiella is intrinsic resistant to amoxicillin, according to EUCAST: klebsiella_test <- data.frame(   mo = \"klebsiella\",   amox = \"S\",   stringsAsFactors = FALSE ) klebsiella_test # (our original data) #>           mo amox #> 1 klebsiella    S eucast_rules(klebsiella_test, info = FALSE) # (the edited data by EUCAST rules) #>           mo amox #> 1 klebsiella    R  # hundreds of trade names can be translated to a name, trade name or an ATC code: ab_name(\"floxapen\") #> [1] \"Flucloxacillin\" ab_tradenames(\"floxapen\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\" ab_atc(\"floxapen\") #> [1] \"J01CF05\""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"rstudio","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"RStudio","title":"How to import data from SPSS / SAS / Stata","text":"work R, probably best option use RStudio. open-source free desktop environment allows run R code, also supports project management, version management, package management convenient import menus work data sources. can also install RStudio Server private corporate server, brings nothing less complete RStudio software website (home work). import data file, just click Import Dataset Environment tab:  additional packages needed, RStudio ask installed beforehand. window opens, can define options (parameters) used import ’re ready go:  want named variables imported factors resembles SPSS , use as_factor(). difference :","code":"SPSS_data # # A tibble: 4,203 x 4 #     v001 sex       status    statusage #    <dbl> <dbl+lbl> <dbl+lbl>     <dbl> #  1 10002 1         1              76.6 #  2 10004 0         1              59.1 #  3 10005 1         1              54.5 #  4 10006 1         1              54.1 #  5 10007 1         1              57.7 #  6 10008 1         1              62.8 #  7 10010 0         1              63.7 #  8 10011 1         1              73.1 #  9 10017 1         1              56.7 # 10 10018 0         1              66.6 # # ... with 4,193 more rows  as_factor(SPSS_data) # # A tibble: 4,203 x 4 #     v001 sex    status statusage #    <dbl> <fct>  <fct>      <dbl> #  1 10002 Male   alive       76.6 #  2 10004 Female alive       59.1 #  3 10005 Male   alive       54.5 #  4 10006 Male   alive       54.1 #  5 10007 Male   alive       57.7 #  6 10008 Male   alive       62.8 #  7 10010 Female alive       63.7 #  8 10011 Male   alive       73.1 #  9 10017 Male   alive       56.7 # 10 10018 Female alive       66.6 # # ... with 4,193 more rows"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"base-r","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata","what":"Base R","title":"How to import data from SPSS / SAS / Stata","text":"import data SPSS, SAS Stata, can use great haven package : can now import files follows:","code":"# download and install the latest version: install.packages(\"haven\") # load the package you just installed: library(haven)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"spss","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SPSS","title":"How to import data from SPSS / SAS / Stata","text":"read files SPSS R: forget as_factor(), mentioned . export R objects SPSS file format:","code":"# read any SPSS file based on file extension (best way): read_spss(file = \"path/to/file\")  # read .sav or .zsav file: read_sav(file = \"path/to/file\")  # read .por file: read_por(file = \"path/to/file\") # save as .sav file: write_sav(data = yourdata, path = \"path/to/file\")  # save as compressed .zsav file: write_sav(data = yourdata, path = \"path/to/file\", compress = TRUE)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"sas","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"SAS","title":"How to import data from SPSS / SAS / Stata","text":"read files SAS R: export R objects SAS file format:","code":"# read .sas7bdat + .sas7bcat files: read_sas(data_file = \"path/to/file\", catalog_file = NULL)  # read SAS transport files (version 5 and version 8): read_xpt(file = \"path/to/file\") # save as regular SAS file: write_sas(data = yourdata, path = \"path/to/file\")  # the SAS transport format is an open format # (required for submission of the data to the FDA) write_xpt(data = yourdata, path = \"path/to/file\", version = 8)"},{"path":"https://msberends.github.io/AMR/articles/SPSS.html","id":"stata","dir":"Articles","previous_headings":"Import data from SPSS/SAS/Stata > Base R","what":"Stata","title":"How to import data from SPSS / SAS / Stata","text":"read files Stata R: export R objects Stata file format:","code":"# read .dta file: read_stata(file = \"/path/to/file\")  # works exactly the same: read_dta(file = \"/path/to/file\") # save as .dta file, Stata version 14: # (supports Stata v8 until v15 at the time of writing) write_dta(data = yourdata, path = \"/path/to/file\", version = 14)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 3: S < < R Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 52 151 rows 23 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, oxygen_tolerance, source, lpsn, lpsn_parent, lpsn_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 11 May 2023 19:56:27 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.7 MB) Download Microsoft Excel workbook (5.2 MB) Download Apache Feather file (5.5 MB) Download Apache Parquet file (2.6 MB) Download SAS data (SAS) file (50.9 MB) Download SAS transport (XPT) file (48.4 MB) Download IBM SPSS Statistics data file (17.7 MB) Download Stata DTA file (48.5 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microoganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) Download SAS data (SAS) file (1.9 MB) Download SAS transport (XPT) file (1.4 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) Download SAS data (SAS) file (84 kB) Download SAS transport (XPT) file (68 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 18 271 rows 11 columns, containing following column names:guideline, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 20 April 2023 13:20:41 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (43 kB) Download tab-separated text file (1.9 MB) Download Microsoft Excel workbook (0.8 MB) Download Apache Feather file (0.7 MB) Download Apache Parquet file (88 kB) Download SAS data (SAS) file (3.6 MB) Download SAS transport (XPT) file (3.4 MB) Download IBM SPSS Statistics data file (2.3 MB) Download Stata DTA file (3.3 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2013-2022) EUCAST (2013-2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS data (SAS) file (9.8 MB) Download SAS transport (XPT) file (9.5 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 336 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 14 November 2022 14:20:39 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (29 kB) Download Microsoft Excel workbook (19 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (8 kB) Download SAS data (SAS) file (92 kB) Download SAS transport (XPT) file (79 kB) Download IBM SPSS Statistics data file (43 kB) Download Stata DTA file (82 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant : ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021) ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 32 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 22 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral breakpoint guidelines CLSI EUCAST included last 10 years. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline last 10 years (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions — AMR-deprecated","title":"Deprecated Functions — AMR-deprecated","text":"functions -called 'Deprecated'. removed future release. Using functions give warning name function replaced (one).","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions — AMR-deprecated","text":"","code":"NA_rsi_  as.rsi(x, ...)  facet_rsi(...)  geom_rsi(...)  ggplot_rsi(...)  ggplot_rsi_predict(...)  is.rsi(...)  is.rsi.eligible(...)  labels_rsi_count(...)  n_rsi(...)  random_rsi(...)  rsi_df(...)  rsi_predict(...)  scale_rsi_colours(...)  theme_rsi(...)"},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Deprecated Functions — AMR-deprecated","text":"object class rsi (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2022\". Supported guideline currently EUCAST (2013-2022) CLSI (2013-2022). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_locale  language use AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options :   add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within data team, save options file remote file location, shared network drive. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~52 000 microorganisms (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral breakpoint guidelines CLSI EUCAST included last 10 years. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"The AMR Package — AMR","text":"cite AMR publications use: Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). \"AMR: R Package Working Antimicrobial Resistance Data.\" Journal Statistical Software, 104(3), 1-31. doi:10.18637/jss.v104.i03 . BibTeX entry LaTeX users :","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"The AMR Package — AMR","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.berends@certe.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Use function e.g. clinical texts health care records. returns list antimicrobial drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"ab_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_ab = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_ab type = \"drug\": column name antibiotics data set translate antibiotic abbreviations , using ab_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .ab()","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"function also internally used .ab(), although searches first drug name throw note drug names returned. Note: .ab() function may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"default, function search antimicrobial drug names. text elements searched official names, ATC codes brand names. uses .ab() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(abx = ab_from_text(clinical_text)) returned AB codes can transformed official names, groups, etc. ab_* functions ab_name() ab_group(), using translate_ab argument. using collapse, function return character:df %>% mutate(abx = ab_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"# mind the bad spelling of amoxicillin in this line, # straight from a true health care record: ab_from_text(\"28/03/2020 regular amoxicilliin 500mg po tid\") #> [[1]] #> Class 'ab' #> [1] AMX #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") #> [[1]] #> Class 'ab' #> [1] AMX CIP #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"dose\") #> [[1]] #> [1] 500 400 #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"admin\") #> [[1]] #> [1] \"oral\" \"iv\"   #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", collapse = \", \") #> [1] \"AMX, CIP\" # \\donttest{ # if you want to know which antibiotic groups were administered, do e.g.: abx <- ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") ab_group(abx[[1]]) #> [1] \"Beta-lactams/penicillins\" \"Quinolones\"                if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antibiotic — ab_property","title":"Get Properties of an Antibiotic — ab_property","text":"Use functions return specific property antibiotic antibiotics data set. input values evaluated internally .ab().","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"ab_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  ab_cid(x, ...)  ab_synonyms(x, ...)  ab_tradenames(x, ...)  ab_group(x, language = get_AMR_locale(), ...)  ab_atc(x, only_first = FALSE, ...)  ab_atc_group1(x, language = get_AMR_locale(), ...)  ab_atc_group2(x, language = get_AMR_locale(), ...)  ab_loinc(x, ...)  ab_ddd(x, administration = \"oral\", ...)  ab_ddd_units(x, administration = \"oral\", ...)  ab_info(x, language = get_AMR_locale(), ...)  ab_url(x, open = FALSE, ...)  ab_property(x, property = \"name\", language = get_AMR_locale(), ...)  set_ab_names(   data,   ...,   property = \"name\",   language = get_AMR_locale(),   snake_case = NULL )"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antibiotic — ab_property","text":"x (vector ) text can coerced valid antibiotic drug code .ab() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. lead e.g. \"polymyxin B\" \"polymyxin b\". ... case set_ab_names() data data.frame: columns select (supports tidy selection column1:column4), otherwise arguments passed .ab() only_first logical indicate whether first ATC code must returned, giving preference J0-codes (.e., antimicrobial drug group) administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antibiotics data set: vector_or(colnames(antibiotics), sort = FALSE). data data.frame columns need renamed, character vector column names snake_case logical indicate whether names -called snake case: lower case spaces/slashes replaced underscore (_)","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antibiotic — ab_property","text":"integer case ab_cid() named list case ab_info() multiple ab_atc()/ab_synonyms()/ab_tradenames() double case ab_ddd() data.frame case set_ab_names() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antibiotic — ab_property","text":"output translated possible. function ab_url() return direct URL official website. warning returned required ATC code available. function set_ab_names() special column renaming function data.frames. renames columns names resemble antimicrobial drugs. always makes sure new column names unique. property = \"atc\" set, preference given ATC codes J-group.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antibiotic — ab_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"# all properties: ab_name(\"AMX\") #> [1] \"Amoxicillin\" ab_atc(\"AMX\") #> [1] \"J01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_tradenames(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_group(\"AMX\") #> [1] \"Beta-lactams/penicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                           Amoxicillin  #> \"https://www.whocc.no/atc_ddd_index/?code=J01CA04&showdescription=no\"   # smart lowercase tranformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #> [1] \"16365-9\" \"25274-2\" \"3344-9\"  \"80133-2\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #> [1] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"87604-5\" ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antibiotics data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"# \\donttest{  # returns NA and throws a warning (which is suppressed here): suppressWarnings(   as.ab(\"testab\") ) #> Class 'ab' #> [1] <NA>  # now add a custom entry - it will be considered by as.ab() and # all ab_*() functions add_custom_antimicrobials(   data.frame(     ab = \"TESTAB\",     name = \"Test Antibiotic\",     # you can add any property present in the     # 'antibiotics' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal antibiotics data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://www.whocc.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal antibiotics data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antibiotic selectors work x <- data.frame(   random_column = \"some value\",   coflu = as.sir(\"S\"),   ampicillin = as.sir(\"R\") ) x #>   random_column coflu ampicillin #> 1    some value     S          R x[, betalactams()] #> ℹ For betalactams() using columns 'coflu' (co-fluampicil) and #>   'ampicillin' #>   coflu ampicillin #> 1     S          R # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Microorganisms — add_custom_microorganisms","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"add_custom_microorganisms() can add custom microorganisms, non-taxonomic outcome laboratory analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"add_custom_microorganisms(x)  clear_custom_microorganisms()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"x data.frame resembling microorganisms data set, least containing column \"genus\" (case-insensitive)","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in only \"Enterobacter asburiae\": mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2023\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $gbif #> [1] NA #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, although a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1973-10-03  49  49.61918         26 #> 2  1982-04-23  41  41.06575         17 #> 3  1977-12-04  45  45.44932         22 #> 4  1982-03-29  41  41.13425         17 #> 5  1970-07-24  52  52.81370         29 #> 6  1982-04-15  41  41.08767         17 #> 7  1990-06-30  32  32.87945          9 #> 8  1932-03-06  91  91.19726         67 #> 9  1966-09-16  56  56.66575         33 #> 10 1932-01-09  91  91.35068         67"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for antibiogram knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set: \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\")) --------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 10 × 7 #>    `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 CoNS (43-309)              0    86    52     0    52    22 #>  2 E. coli (0-462)          100    98   100    NA   100    97 #>  3 E. faecalis (0-39)         0     0   100     0    NA     0 #>  4 K. pneumoniae (0-58)      NA    90   100    NA   100    90 #>  5 P. aeruginosa (17-30)     NA   100    NA     0    NA   100 #>  6 P. mirabilis (0-34)       NA    94    94    NA    NA    94 #>  7 S. aureus (2-233)         NA    99    NA    NA    NA    98 #>  8 S. epidermidis (8-163)     0    79    NA     0    NA    51 #>  9 S. hominis (3-80)         NA    92    NA    NA    NA    85 #> 10 S. pneumoniae (11-117)     0     0    NA     0    NA     0  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Pathogen (N min-max)`   J01GB01 J01GB03 J01GB04 J01GB06 #> * <chr>                      <dbl>   <dbl>   <dbl>   <dbl> #> 1 Gram-negative (35-686)        96      96       0      98 #> 2 Gram-positive (436-1170)      34      63       0       0  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 5 × 3 #>   `Pathogen (N min-max)`                           Imipenem Meropenem #> * <chr>                                               <dbl>     <dbl> #> 1 Coagulase-negative Staphylococcus (CoNS) (48-48)       52        52 #> 2 Enterococcus faecalis (0-38)                          100        NA #> 3 Escherichia coli (418-422)                            100       100 #> 4 Klebsiella pneumoniae (51-53)                         100       100 #> 5 Proteus mirabilis (27-32)                              94        NA   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # A tibble: 2 × 4 #>   `Pathogen (N min-max)`     TZP `TZP + GEN` `TZP + TOB` #> * <chr>                    <dbl>       <dbl>       <dbl> #> 1 Gram-negative (641-693)     88          99          98 #> 2 Gram-positive (345-1044)    86          98          95  # names of antibiotics do not need to resemble columns exactly: antibiogram(example_isolates,   antibiotics = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # A tibble: 2 × 3 #>   `Pathogen (N min-max)`  Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>                           <dbl>                        <dbl> #> 1 Gram-negative (684-694)            91                           99 #> 2 Gram-positive (724-847)            77                           93   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 14 × 8 #>    `Syndromic Group` `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>             <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 Clinical          CoNS (23-205)             NA    89    57    NA    57    26 #>  2 ICU               CoNS (10-73)              NA    79    NA    NA    NA    NA #>  3 Outpatient        CoNS (3-31)               NA    84    NA    NA    NA    NA #>  4 Clinical          E. coli (0-299)          100    98   100    NA   100    98 #>  5 ICU               E. coli (0-137)          100    99   100    NA   100    96 #>  6 Clinical          K. pneumoniae (0-51)      NA    92   100    NA   100    92 #>  7 Clinical          P. mirabilis (0-30)       NA   100    NA    NA    NA   100 #>  8 Clinical          S. aureus (2-150)         NA    99    NA    NA    NA    97 #>  9 ICU               S. aureus (0-66)          NA   100    NA    NA    NA    NA #> 10 Clinical          S. epidermidis (4-79)     NA    82    NA    NA    NA    55 #> 11 ICU               S. epidermidis (4-75)     NA    72    NA    NA    NA    41 #> 12 Clinical          S. hominis (1-45)         NA    96    NA    NA    NA    94 #> 13 Clinical          S. pneumoniae (5-78)       0     0    NA     0    NA     0 #> 14 ICU               S. pneumoniae (5-30)       0     0    NA     0    NA     0  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for mo_genus()  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antibiotics = aminoglycosides(),   ab_transform = \"name\",   syndromic_group = ifelse(ex1$ward == \"ICU\",     \"UCI\", \"No UCI\"   ),   language = \"es\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Grupo sindrómico` `Patógeno (N min-max)` Amikacina Gentamicina Tobramicina #> * <chr>              <chr>                      <dbl>       <dbl>       <dbl> #> 1 No UCI             E. coli (0-325)              100          98          98 #> 2 UCI                E. coli (0-137)              100          99          96   # Weighted-incidence syndromic combination antibiogram (WISCA) ---------  # the data set could contain a filter for e.g. respiratory specimens/ICU antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   minimum = 10, # this should be >=30, but now just as example   syndromic_group = ifelse(example_isolates$age >= 65 &     example_isolates$gender == \"M\",   \"WISCA Group 1\", \"WISCA Group 2\"   ) ) #> # A tibble: 4 × 6 #>   `Syndromic Group` `Pathogen (N min-max)`    AMC `AMC + CIP`   TZP `TZP + TOB` #> * <chr>             <chr>                   <dbl>       <dbl> <dbl>       <dbl> #> 1 WISCA Group 1     Gram-negative (261-285)    76          95    89          99 #> 2 WISCA Group 2     Gram-negative (380-442)    76          98    88          98 #> 3 WISCA Group 1     Gram-positive (123-406)    76          89    81          95 #> 4 WISCA Group 2     Gram-positive (222-732)    76          89    88          95   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ For ureidopenicillins() using column 'TZP' (piperacillin/tazobactam)  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Pathogen (N)          | Piperacillin/tazobactam| #> |:---------------------|-----------------------:| #> |CoNS (33)             |                      30| #> |*E. coli* (416)       |                      94| #> |*K. pneumoniae* (53)  |                      89| #> |*S. pneumoniae* (112) |                     100|   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   syndromic_group = \"ward\" )  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab1) }  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab2) }   plot(ab1)  plot(ab2)  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antibiotic Selectors — antibiotic_class_selectors","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions allow filtering rows selecting columns based antibiotic test results specific antibiotic class group (according antibiotics data set), without need define columns antibiotic abbreviations. short, column name resembles antimicrobial drug, picked functions matches pharmaceutical class: \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" picked cephalosporins().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"ab_class(ab_class, only_sir_columns = FALSE, only_treatable = TRUE, ...)  ab_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, ...)  antifungals(only_sir_columns = FALSE, ...)  antimycobacterials(only_sir_columns = FALSE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE, ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, ...)  cephalosporins_1st(only_sir_columns = FALSE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, ...)  cephalosporins_4th(only_sir_columns = FALSE, ...)  cephalosporins_5th(only_sir_columns = FALSE, ...)  fluoroquinolones(only_sir_columns = FALSE, ...)  glycopeptides(only_sir_columns = FALSE, ...)  lincosamides(only_sir_columns = FALSE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  streptogramins(only_sir_columns = FALSE, ...)  quinolones(only_sir_columns = FALSE, ...)  tetracyclines(only_sir_columns = FALSE, ...)  trimethoprims(only_sir_columns = FALSE, ...)  ureidopenicillins(only_sir_columns = FALSE, ...)  administrable_per_os(only_sir_columns = FALSE, ...)  administrable_iv(only_sir_columns = FALSE, ...)  not_intrinsic_resistant(   only_sir_columns = FALSE,   col_mo = NULL,   version_expertrules = 3.3,   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"ab_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antibiotics data set searched (case-insensitive) value. only_sir_columns logical indicate whether columns class sir must selected (default FALSE), see .sir() only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE) ... ignored, place allow future extensions filter expression evaluated antibiotics data set, name %like% \"trim\" col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can either \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"(internally) character vector column names, additional class \"ab_selector\"","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), amphotericin B-high (AMH), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amphotericin B (AMB), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # Examples sections below are split into 'base R', 'dplyr', and 'data.table':   # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows  # select only antibiotic columns with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  2 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  3 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  4 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  5 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  6 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  7 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  8 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  9 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA    #> 10 NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB  S     NA    S     S     #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN  S     NA    S     S     #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB  S     NA    S     S     #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI  R     NA    NA    R     #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antibiotic selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP R     NA    NA    R     #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS R     R     R     R     #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS R     R     R     R     #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS R     R     R     R     #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS R     R     R     R     #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    NA    NA    NA    NA    #>  2 NA    NA    NA    NA    NA    NA    NA    #>  3 R     NA    NA    R     R     R     R     #>  4 NA    NA    NA    NA    NA    NA    R     #>  5 NA    NA    NA    NA    NA    NA    R     #>  6 NA    NA    NA    NA    NA    NA    R     #>  7 NA    NA    NA    NA    NA    NA    R     #>  8 NA    NA    NA    NA    NA    NA    R     #>  9 R     NA    NA    NA    S     NA    S     #> 10 R     NA    NA    NA    S     NA    S     #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows  # ab_selector() applies a filter in the `antibiotics` data set and is thus # very flexible. For instance, to select antibiotic columns with an oral DDD # of at least 1 gram: example_isolates[, ab_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For ab_selector(oral_ddd > 1 & oral_units == \"g\") using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  2 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  3 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA    #>  7 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  8 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  9 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA    #> # ℹ 1,990 more rows  # \\donttest{ # dplyr -------------------------------------------------------------------  if (require(\"dplyr\")) {   tibble(kefzol = random_sir(5)) %>%     select(cephalosporins()) } #> ℹ For cephalosporins() using column 'kefzol' (cefazolin) #> # A tibble: 5 × 1 #>   kefzol #>   <sir>  #> 1 S      #> 2 I      #> 3 R      #> 4 I      #> 5 R       if (require(\"dplyr\")) {   # get AMR for all aminoglycosides e.g., per ward:   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), resistance)) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(aminoglycosides(), resistance)`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 5 #>   ward         GEN   TOB   AMK   KAN #>   <chr>      <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 #> 2 ICU        0.290 0.400 0.662     1 #> 3 Outpatient 0.2   0.368 0.605    NA if (require(\"dplyr\")) {   # You can combine selectors with '&' to be more specific:   example_isolates %>%     select(penicillins() & administrable_per_os()) } #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get AMR for only drugs that matter - no intrinsic resistance:   example_isolates %>%     filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%     group_by(ward) %>%     summarise(across(not_intrinsic_resistant(), resistance)) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ For not_intrinsic_resistant() removing columns 'PEN' #>   (benzylpenicillin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'TEC' #>   (teicoplanin), 'ERY' (erythromycin), 'CLI' (clindamycin), 'AZM' #>   (azithromycin), and 'RIF' (rifampicin) #> Warning: There were 52 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `across(not_intrinsic_resistant(), resistance)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by warning: #> ! Introducing NA: no results available for OXA in group: ward = \"Clinical\" #> (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 51 remaining warnings. #> # A tibble: 3 × 33 #>   ward    OXA   FLC    AMX    AMC    AMP     TZP     CZO     FEP     CXM     FOX #>   <chr> <dbl> <dbl>  <dbl>  <dbl>  <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clin…    NA    NA  0.606  0.121  0.606  0.0504  0.0656  0.0159  0.0622  0.0648 #> 2 ICU      NA    NA  0.535  0.172  0.535  0.119  NA       0.0722  0.0828  0.0992 #> 3 Outp…    NA    NA NA     NA     NA     NA      NA      NA      NA      NA      #> # ℹ 22 more variables: CTX <dbl>, CAZ <dbl>, CRO <dbl>, GEN <dbl>, TOB <dbl>, #> #   AMK <dbl>, KAN <dbl>, TMP <dbl>, SXT <dbl>, NIT <dbl>, FOS <dbl>, #> #   CIP <dbl>, MFX <dbl>, TCY <dbl>, TGC <dbl>, DOX <dbl>, IPM <dbl>, #> #   MEM <dbl>, MTR <dbl>, CHL <dbl>, COL <dbl>, MUP <dbl> if (require(\"dplyr\")) {   # get susceptibility for antibiotics whose name contains \"trim\":   example_isolates %>%     filter(first_isolate()) %>%     group_by(ward) %>%     summarise(across(ab_selector(name %like% \"trim\"), susceptibility)) } #> ℹ For ab_selector(name %like% \"trim\") using columns 'TMP' (trimethoprim) #>   and 'SXT' (trimethoprim/sulfamethoxazole) #> # A tibble: 3 × 3 #>   ward         TMP   SXT #>   <chr>      <dbl> <dbl> #> 1 Clinical   0.627 0.808 #> 2 ICU        0.549 0.778 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(carbapenems()) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB':   example_isolates %>%     select(mo, aminoglycosides()) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # any() and all() work in dplyr's filter() too:   example_isolates %>%     filter(       any(aminoglycosides() == \"R\"),       all(cephalosporins_2nd() == \"R\")     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For cephalosporins_2nd() using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> # A tibble: 112 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  7 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #> 10 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #> # ℹ 102 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # also works with c():   example_isolates %>%     filter(any(c(carbapenems(), aminoglycosides()) == \"R\")) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 531 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  4 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  5 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> # ℹ 521 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # not setting any/all will automatically apply all():   example_isolates %>%     filter(aminoglycosides() == \"R\") } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ Assuming a filter on all 4 aminoglycosides. Wrap around all() or #>   any() to prevent this note. #> # A tibble: 427 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  3 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  4 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  6 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-16 D25302     65 F      ICU      B_STRPT_ANGN S     NA    NA    S     #> # ℹ 417 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # this will select columns 'mo' and all antimycobacterial drugs ('RIF'):   example_isolates %>%     select(mo, ab_class(\"mycobact\")) } #> ℹ For ab_class(\"mycobact\") using column 'RIF' (rifampicin) #> # A tibble: 2,000 × 2 #>    mo           RIF   #>    <mo>         <sir> #>  1 B_ESCHR_COLI R     #>  2 B_ESCHR_COLI R     #>  3 B_STPHY_EPDR NA    #>  4 B_STPHY_EPDR NA    #>  5 B_STPHY_EPDR NA    #>  6 B_STPHY_EPDR NA    #>  7 B_STPHY_AURS NA    #>  8 B_STPHY_AURS NA    #>  9 B_STPHY_EPDR NA    #> 10 B_STPHY_EPDR NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get bug/drug combinations for only glycopeptides in Gram-positives:   example_isolates %>%     filter(mo_is_gram_positive()) %>%     select(mo, glycopeptides()) %>%     bug_drug_combinations() %>%     format() } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ For glycopeptides() using columns 'VAN' (vancomycin) and 'TEC' #>   (teicoplanin) #> # A tibble: 2 × 8 #>   Group      Drug  CoNS  `E. faecalis` `S. aureus` `S. epidermidis` `S. hominis` #>   <chr>      <chr> <chr> <chr>         <chr>       <chr>            <chr>        #> 1 \"Glycopep… Teic… \"\"    \"\"            \" 0.0% (0/… \"64.1% (25/39)\"  \" 6.8% (4/5… #> 2 \"\"         Vanc… \" 0.… \" 0.0% (0/39… \" 0.0% (0/… \" 0.0% (0/171)\"  \" 0.0% (0/8… #> # ℹ 1 more variable: `S. pneumoniae` <chr> if (require(\"dplyr\")) {   data.frame(     some_column = \"some_value\",     J01CA01 = \"S\"   ) %>% # ATC code of ampicillin     select(penicillins()) # only the 'J01CA01' column will be selected } #> ℹ For penicillins() using column 'J01CA01' (ampicillin) #>   J01CA01 #> 1       S if (require(\"dplyr\")) {   # with recent versions of dplyr, this is all equal:   x <- example_isolates[carbapenems() == \"R\", ]   y <- example_isolates %>% filter(carbapenems() == \"R\")   z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\"))   identical(x, y) && identical(y, z) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] TRUE   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] \"IPM\" \"MEM\" #> attr(,\"class\") #> [1] \"ab_selector\" \"character\"   if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>        IPM  MEM #>    1: <NA> <NA> #>    2: <NA> <NA> #>    3: <NA> <NA> #>    4: <NA> <NA> #>    5: <NA> <NA> #>   ---           #> 1996: <NA> <NA> #> 1997:    S    S #> 1998:    S    S #> 1999:    S    S #> 2000:    S    S  # for multiple selections or AB selectors, `with = FALSE` is not needed: if (require(\"data.table\")) {   dt[, c(\"mo\", aminoglycosides())] } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>                 mo  GEN  TOB  AMK  KAN #>    1: B_ESCHR_COLI <NA> <NA> <NA> <NA> #>    2: B_ESCHR_COLI <NA> <NA> <NA> <NA> #>    3: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>    4: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>    5: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>   ---                                  #> 1996: B_STRPT_PNMN    R    R    R    R #> 1997: B_ESCHR_COLI    S    S    S <NA> #> 1998: B_STPHY_CONS    S <NA> <NA> <NA> #> 1999: B_ESCHR_COLI    S    S <NA> <NA> #> 2000: B_KLBSL_PNMN    S    S <NA> <NA> if (require(\"data.table\")) {   dt[, c(carbapenems(), aminoglycosides())] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>        IPM  MEM  GEN  TOB  AMK  KAN #>    1: <NA> <NA> <NA> <NA> <NA> <NA> #>    2: <NA> <NA> <NA> <NA> <NA> <NA> #>    3: <NA> <NA> <NA> <NA> <NA> <NA> #>    4: <NA> <NA> <NA> <NA> <NA> <NA> #>    5: <NA> <NA> <NA> <NA> <NA> <NA> #>   ---                               #> 1996: <NA> <NA>    R    R    R    R #> 1997:    S    S    S    S    S <NA> #> 1998:    S    S    S <NA> <NA> <NA> #> 1999:    S    S    S    S <NA> <NA> #> 2000:    S    S    S    S <NA> <NA>  # row filters are also supported: if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), ] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>            date patient age gender       ward           mo PEN  OXA  FLC  AMX #>   1: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   2: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   3: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   4: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   5: 2002-02-05  067927  45      F        ICU B_SERRT_MRCS   R <NA> <NA>    R #>  ---                                                                          #> 905: 2005-04-12  D71461  70      M        ICU B_ESCHR_COLI   R <NA> <NA>    S #> 906: 2009-11-12  650870  69      F Outpatient B_ESCHR_COLI   R <NA> <NA>    S #> 907: 2012-06-14  8CBCF2  41      F   Clinical B_STPHY_CONS   R    S    S <NA> #> 908: 2012-10-11  175532  78      M   Clinical B_ESCHR_COLI   R <NA> <NA>    R #> 909: 2013-11-23  A97263  77      M   Clinical B_KLBSL_PNMN   R <NA> <NA>    R #>      AMC  AMP  TZP  CZO  FEP CXM  FOX  CTX  CAZ  CRO  GEN  TOB  AMK  KAN  TMP #>   1:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   2:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   3:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   4:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   5:   R    R <NA>    R <NA>   R    R <NA> <NA> <NA> <NA> <NA> <NA> <NA>    S #>  ---                                                                          #> 905:   S    S    S <NA>    S   S    S    S    S    S    S    S    S <NA> <NA> #> 906:   S    S    S    S    S   S    S    S    S    S    S    S    S <NA>    S #> 907:   S <NA> <NA>    S    S   S    S    S    R    S    S <NA> <NA> <NA>    S #> 908:   S    R    S <NA>    S   R    R    S    S    S    S    S <NA> <NA>    R #> 909:   S    R    S <NA>    S   S    S    S    S    S    S    S <NA> <NA>    S #>      SXT  NIT  FOS  LNZ  CIP  MFX VAN  TEC  TCY  TGC  DOX ERY CLI AZM IPM  MEM #>   1:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   2:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   3:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   4:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   5:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>  ---                                                                           #> 905:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 906:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 907:   S <NA> <NA> <NA>    S <NA>   S <NA> <NA> <NA> <NA>   S   S   S   S    S #> 908:   R    R <NA>    R    R    R   R    R <NA> <NA> <NA>   R   R   R   S    S #> 909:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #>       MTR  CHL  COL  MUP  RIF #>   1: <NA> <NA> <NA> <NA>    R #>   2: <NA> <NA> <NA> <NA>    R #>   3: <NA> <NA>    R <NA>    R #>   4: <NA> <NA>    R <NA>    R #>   5: <NA> <NA>    R <NA>    R #>  ---                          #> 905: <NA> <NA> <NA> <NA>    R #> 906: <NA> <NA> <NA> <NA>    R #> 907: <NA> <NA>    R <NA> <NA> #> 908: <NA> <NA>    S <NA>    R #> 909: <NA> <NA>    S <NA>    R if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), penicillins(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #>      PEN  OXA  FLC  AMX AMC  AMP  TZP #>   1:   R <NA> <NA> <NA>   I <NA> <NA> #>   2:   R <NA> <NA> <NA>   I <NA> <NA> #>   3:   R <NA> <NA> <NA>   I <NA> <NA> #>   4:   R <NA> <NA> <NA>   I <NA> <NA> #>   5:   R <NA> <NA>    R   R    R <NA> #>  ---                                  #> 905:   R <NA> <NA>    S   S    S    S #> 906:   R <NA> <NA>    S   S    S    S #> 907:   R    S    S <NA>   S <NA> <NA> #> 908:   R <NA> <NA>    R   S    R    S #> 909:   R <NA> <NA>    R   S    R    S # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 603 Antimicrobial Drugs — antibiotics","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Two data sets containing antibiotics/antimycotics antivirals. Use .ab() one ab_* functions retrieve values antibiotics data set. Three identifiers included data set: antibiotic ID (ab, primarily used package) defined WHONET/EARS-Net, ATC code (atc) defined , Compound ID (cid) found PubChem. properties data set derived one codes. Note drugs multiple ATC codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics  antivirals"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antibiotics-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antibiotics data set: a tibble with 483 observations and 14 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available cid Compound ID found PubChem name Official name used WHONET/EARS-Net group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug. Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"av Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name used WHONET/EARS-Net atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.73 (8 August, 2022). Accessed https://loinc.org 30 October, 2022. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [5]>     <chr>    #>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  8 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #>  9 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> 10 AMB   5280965 Ampho… Anti… <chr> Antimycot… Antibioti… <chr [3]>     <chr>    #> # ℹ 473 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antibiotic ID — as.ab","title":"Transform Input to an Antibiotic ID — as.ab","text":"Use function determine antibiotic drug code one antibiotics. data set antibiotics searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"as.ab(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.ab(x)"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antibiotic ID — as.ab","text":"x character vector determine antibiotic ID flag_multiple_results logical indicate whether note printed console probably one antibiotic drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antibiotic ID — as.ab","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antibiotics data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .ab() can correct different forms misspelling: Wrong spelling drug names (\"tobramicin\" \"gentamycin\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"mreopenem\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use ab_* functions get properties based returned antibiotic ID, see Examples. Note: .ab() ab_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems. can add manual codes considered .ab() ab_* functions, see add_custom_antimicrobials().","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antibiotic ID — as.ab","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"# these examples all return \"ERY\", the ID of erythromycin: as.ab(\"J01FA01\") #> Class 'ab' #> [1] ERY as.ab(\"J 01 FA 01\") #> Class 'ab' #> [1] ERY as.ab(\"Erythromycin\") #> Class 'ab' #> [1] ERY as.ab(\"eryt\") #> Class 'ab' #> [1] ERY as.ab(\"   eryt 123\") #> Class 'ab' #> [1] ERY as.ab(\"ERYT\") #> Class 'ab' #> [1] ERY as.ab(\"ERY\") #> Class 'ab' #> [1] ERY as.ab(\"eritromicine\") # spelled wrong, yet works #> Class 'ab' #> [1] ERY as.ab(\"Erythrocin\") # trade name #> Class 'ab' #> [1] ERY as.ab(\"Romycin\") # trade name #> Class 'ab' #> [1] ERY  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R       NA      S       #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antiviral Drug ID — as.av","title":"Transform Input to an Antiviral Drug ID — as.av","text":"Use function determine antiviral drug code one antiviral drugs. data set antivirals searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"as.av(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.av(x)"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antiviral Drug ID — as.av","text":"x character vector determine antiviral drug ID flag_multiple_results logical indicate whether note printed console probably one antiviral drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antiviral Drug ID — as.av","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antiviral Drug ID — as.av","text":"entries antivirals data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .av() can correct different forms misspelling: Wrong spelling drug names (\"acyclovir\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"aycclovir\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use av_* functions get properties based returned antiviral drug ID, see Examples. Note: .av() av_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antiviral Drug ID — as.av","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"# these examples all return \"ACI\", the ID of aciclovir: as.av(\"J05AB01\") #> Class 'av' #> [1] ACI as.av(\"J 05 AB 01\") #> Class 'av' #> [1] ACI as.av(\"Aciclovir\") #> Class 'av' #> [1] ACI as.av(\"aciclo\") #> Class 'av' #> [1] ACI as.av(\"   aciclo 123\") #> Class 'av' #> [1] ACI as.av(\"ACICL\") #> Class 'av' #> [1] ACI as.av(\"ACI\") #> Class 'av' #> [1] ACI as.av(\"Virorax\") # trade name #> Class 'av' #> [1] ACI as.av(\"Zovirax\") # trade name #> Class 'av' #> [1] ACI  as.av(\"acyklofir\") # severe spelling error, yet works #> Class 'av' #> [1] ACI  # use av_* functions to get a specific properties (see ?av_property); # they use as.av() internally: av_name(\"J05AB01\") #> [1] \"Aciclovir\" av_name(\"acicl\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 6 50.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"as.disk(x, na.rm = FALSE)  NA_disk_  is.disk(x)"},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"object class disk (inherits integer) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"x vector na.rm logical indicating whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"integer additional class disk","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 6 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 6-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"# transform existing disk zones to the `disk` class (using base R) df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = 20,   CIP = 14,   GEN = 18,   TOB = 16 ) df[, 2:5] <- lapply(df[, 2:5], as.disk) str(df) #> 'data.frame':\t1 obs. of  5 variables: #>  $ microorganism: chr \"Escherichia coli\" #>  $ AMP          : 'disk' int 20 #>  $ CIP          : 'disk' int 14 #>  $ GEN          : 'disk' int 18 #>  $ TOB          : 'disk' int 16  # \\donttest{ # transforming is easier with dplyr: if (require(\"dplyr\")) {   df %>% mutate(across(AMP:TOB, as.disk)) } #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli  20  14  18  16 # }  # interpret disk values, see ?as.sir as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> => Interpreting disk diffusion zones of column 'AMP' (ampicillin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'CIP' (ciprofloxacin) #>    according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli   S   R   S   S"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE)  NA_mic_  is.mic(x)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2013-2022) CLSI (2013-2022). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMX' (amoxicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269 Reimer et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data.  Nucleic Acids Res. 2022 Jan 7;50(D1):D741-D746; doi:10.1093/nar/gkab961","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 2, Protozoa = 3, Archaea = 4, others = 5. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.159\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. breakpoints used interpretation publicly available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # S3 method for mic as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   ... )  # S3 method for disk as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   ... )  # S3 method for data.frame as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE) )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2013-2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2013-2022, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2022 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2013-2022) CLSI (2013-2022), see Details. uti (Urinary Tract Infection) vector logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input unclear. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines EUCAST (2013-2022) CLSI (2013-2022). Thus, guideline argument must set e.g., \"EUCAST 2022\" \"CLSI 2022\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 18 271 rows 11 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … summary(example_isolates) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %R   :73.7% (n=1201)   #>  Mode  :character   Unique:90             %SI  :26.3% (n=428)    #>                     #1    :B_ESCHR_COLI   - %S :25.6% (n=417)    #>                     #2    :B_STPHY_CONS   - %I : 0.7% (n=11)     #>                     #3    :B_STPHY_AURS                          #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %SI  :68.8% (n=251)   %SI  :70.5% (n=665)   %SI  :40.4% (n=546)   #>  - %S :68.8% (n=251)   - %S :70.5% (n=665)   - %S :40.2% (n=543)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)     - %I : 0.2% (n=3)     #>                                                                    #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %SI  :76.3% (n=1433)   %SI  :40.4% (n=546)   %SI  :87.4% (n=875)   #>  - %S :71.4% (n=1342)   - %S :40.2% (n=543)   - %S :86.1% (n=862)   #>  - %I : 4.8% (n=91)     - %I : 0.2% (n=3)     - %I : 1.3% (n=13)    #>                                                                     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %SI  :55.4% (n=247)   %SI  :85.8% (n=621)   %SI  :73.7% (n=1319)   #>  - %S :54.9% (n=245)   - %S :85.6% (n=620)   - %S :72.5% (n=1297)   #>  - %I : 0.4% (n=2)     - %I : 0.1% (n=1)     - %I : 1.2% (n=22)     #>                                                                     #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %SI  :72.6% (n=594)   %SI  :84.5% (n=797)   %SI  :33.5% (n=607)    #>  - %S :71.6% (n=586)   - %S :84.4% (n=796)   - %S :33.5% (n=607)    #>  - %I : 1.0% (n=8)     - %I : 0.1% (n=1)     - %I : 0.0% (n=0)      #>                                                                     #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %SI  :84.5% (n=797)   %SI  :75.4% (n=1399)   %SI  :65.6% (n=886)   #>  - %S :84.4% (n=796)   - %S :74.0% (n=1372)   - %S :65.1% (n=879)   #>  - %I : 0.1% (n=1)     - %I : 1.5% (n=27)     - %I : 0.5% (n=7)     #>                                                                     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %SI  :36.3% (n=251)   %SI  : 0.0% (n=0)      %SI  :61.9% (n=928)   #>  - %S :36.3% (n=251)   - %S : 0.0% (n=0)      - %S :61.2% (n=918)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)      - %I : 0.7% (n=10)    #>                                                                     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %SI  :79.5% (n=1398)   %SI  :82.9% (n=616)   %SI  :57.8% (n=203)   #>  - %S :79.1% (n=1392)   - %S :76.0% (n=565)   - %S :57.8% (n=203)   #>  - %I : 0.3% (n=6)      - %I : 6.9% (n=51)    - %I : 0.0% (n=0)     #>                                                                     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %SI  :30.7% (n=314)   %SI  :83.8% (n=1181)   %SI  :66.4% (n=140)   #>  - %S :30.7% (n=314)   - %S :78.9% (n=1112)   - %S :64.5% (n=136)   #>  - %I : 0.0% (n=0)     - %I : 4.9% (n=69)     - %I : 1.9% (n=4)     #>                                                                     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %SI  :61.7% (n=1149)   %SI  :24.3% (n=237)   %SI  :70.3% (n=843)   #>  - %S :61.7% (n=1149)   - %S :24.3% (n=237)   - %S :68.3% (n=820)   #>  - %I : 0.0% (n=0)      - %I : 0.0% (n=0)     - %I : 1.9% (n=23)    #>                                                                     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %SI  :87.3% (n=697)   %SI  :72.3% (n=821)   %SI  :42.8% (n=810)    #>  - %S :87.3% (n=697)   - %S :71.7% (n=814)   - %S :42.3% (n=801)    #>  - %I : 0.0% (n=0)     - %I : 0.6% (n=7)     - %I : 0.5% (n=9)      #>                                                                     #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %SI  :38.8% (n=590)   %SI  :42.8% (n=810)    %SI  :93.8% (n=834)   #>  - %S :38.6% (n=586)   - %S :42.3% (n=801)    - %S :92.7% (n=824)   #>  - %I : 0.3% (n=4)     - %I : 0.5% (n=9)      - %I : 1.1% (n=10)    #>                                                                     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %SI  :94.1% (n=780)   %SI  :85.3% (n=29)   %SI  :78.6% (n=121)   #>  - %S :94.1% (n=780)   - %S :85.3% (n=29)   - %S :78.6% (n=121)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)    - %I : 0.0% (n=0)     #>                                                                   #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %SI  :18.8% (n=309)    %SI  :94.1% (n=254)   %SI  :30.4% (n=305)   #>  - %S :18.8% (n=309)    - %S :93.0% (n=251)   - %S :30.2% (n=303)   #>  - %I : 0.0% (n=0)      - %I : 1.1% (n=3)     - %I : 0.2% (n=2)     #>                                                                      # For INTERPRETING disk diffusion and MIC values -----------------------  # a whole data set, even with combined MIC values and disk zones df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = as.mic(8),   CIP = as.mic(0.256),   GEN = as.disk(18),   TOB = as.disk(16),   ERY = \"R\" ) as.sir(df) #> => Interpreting MIC values of column 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of column 'CIP' (ciprofloxacin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 50 × 12 #>    datetime            index ab_input ab_guideline mo_input     mo_guideline     #>    <dttm>              <int> <chr>    <ab>         <chr>        <mo>             #>  1 2023-05-17 20:17:18     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR #>  2 2023-05-17 20:17:18     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR #>  3 2023-05-17 20:17:17     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR #>  4 2023-05-17 20:17:17     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR #>  5 2023-05-17 20:17:11     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  6 2023-05-17 20:17:11     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  7 2023-05-17 20:17:11     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  8 2023-05-17 20:17:11     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  9 2023-05-17 20:17:11     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> 10 2023-05-17 20:17:11     6 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> # ℹ 40 more rows #> # ℹ 6 more variables: guideline <chr>, ref_table <chr>, method <chr>, #> #   input <dbl>, outcome <sir>, breakpoint_S_R <chr>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  Note: #>    • Multiple breakpoints available for ampicillin (AMP) in Streptococcus #>      pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> => Interpreting disk diffusion zones of 'ampicillin' (AMP) according to #>    EUCAST 2022... #>  OK. #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) based on column #>    'microorganism' according to EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  Note: #>    • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> => Interpreting MIC values of column 'NIT' (nitrofurantoin) according to #>    EUCAST 2022... #> Warning: in as.sir(): interpretation of nitrofurantoin (NIT) is only available for #> (uncomplicated) urinary tract infections (UTI) for some microorganisms, #> thus assuming uti = TRUE. See ?as.sir. #>  * WARNING * #> => Interpreting MIC values of 'AMP' (ampicillin) according to EUCAST #>    2022... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2022... #>  OK. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2022... #>  OK. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2022... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] S sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":null,"dir":"Reference","previous_headings":"","what":"Get ATC Properties from WHOCC Website — atc_online_property","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Gets data WHOCC website determine properties Anatomical Therapeutic Chemical (ATC) (e.g. antibiotic), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(   atc_code,   property,   administration = \"O\",   url = \"https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://www.whocc.no/atcvet/atcvet_index/?code=%s&showdescription=no\" )  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://www.whocc./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"atc_code character (vector) ATC code(s) antibiotics, coerced .ab() ab_atc() internally valid ATC code property property ATC code. Valid values \"ATC\", \"Name\", \"DDD\", \"U\" (\"unit\"), \"Adm.R\", \"Note\" groups. last option, hierarchical groups ATC code returned, see Examples. administration type administration using property = \"Adm.R\", see Details url url website WHOCC. sign %s can used placeholder ATC codes. url_vet url website WHOCC veterinary medicine. sign %s can used placeholder ATC_vet codes (start \"Q\"). ... arguments pass atc_property","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Options argument administration: \"Implant\" = Implant \"Inhal\" = Inhalation \"Instill\" = Instillation \"N\" = nasal \"O\" = oral \"P\" = parenteral \"R\" = rectal \"SL\" = sublingual/buccal \"TD\" = transdermal \"V\" = vaginal Abbreviations return values using property = \"U\" (unit): \"g\" = gram \"mg\" = milligram \"mcg\" = microgram \"U\" = unit \"TU\" = thousand units \"MU\" = million units \"mmol\" = millimole \"ml\" = millilitre (e.g. eyedrops) N.B. function requires internet connection works following packages installed: curl, rvest, xml2.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"# \\donttest{ if (requireNamespace(\"curl\") && requireNamespace(\"rvest\") && requireNamespace(\"xml2\")) {   # oral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"O\")   atc_online_ddd(ab_atc(\"amox\"))    # parenteral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"P\")    atc_online_property(\"J01CA04\", property = \"groups\") # search hierarchical groups of amoxicillin } #> Loading required namespace: rvest #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Use function e.g. clinical texts health care records. returns list antiviral drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_av = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_av type = \"drug\": column name antivirals data set translate antibiotic abbreviations , using av_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .av()","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"function also internally used .av(), although searches first drug name throw note drug names returned. Note: .av() function may use long regular expression match brand names antiviral drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"default, function search antiviral drug names. text elements searched official names, ATC codes brand names. uses .av() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(avx = av_from_text(clinical_text)) returned AV codes can transformed official names, groups, etc. av_* functions av_name() av_group(), using translate_av argument. using collapse, function return character:df %>% mutate(avx = av_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(\"28/03/2020 valaciclovir po tid\") #> [[1]] #> Class 'av' #> [1] VALA #>  av_from_text(\"28/03/2020 valaciclovir po tid\", type = \"admin\") #> [[1]] #> [1] \"oral\" #>"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antiviral Drug — av_property","title":"Get Properties of an Antiviral Drug — av_property","text":"Use functions return specific property antiviral drug antivirals data set. input values evaluated internally .av().","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"av_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  av_cid(x, ...)  av_synonyms(x, ...)  av_tradenames(x, ...)  av_group(x, language = get_AMR_locale(), ...)  av_atc(x, ...)  av_loinc(x, ...)  av_ddd(x, administration = \"oral\", ...)  av_ddd_units(x, administration = \"oral\", ...)  av_info(x, language = get_AMR_locale(), ...)  av_url(x, open = FALSE, ...)  av_property(x, property = \"name\", language = get_AMR_locale(), ...)"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antiviral Drug — av_property","text":"x (vector ) text can coerced valid antiviral drug code .av() language language returned text - default system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. ... arguments passed .av() administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antivirals data set: vector_or(colnames(antivirals), sort = FALSE).","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antiviral Drug — av_property","text":"integer case av_cid() named list case av_info() multiple av_atc()/av_synonyms()/av_tradenames() double case av_ddd() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antiviral Drug — av_property","text":"output translated possible. function av_url() return direct URL official website. warning returned required ATC code available.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antiviral Drug — av_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                             Aciclovir  #> \"https://www.whocc.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # smart lowercase tranformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"78772-1\" \"78773-9\" \"79134-3\" \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 6 #>   mo                ab        S     I     R total #>   <chr>             <chr> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0    15 #> 2 (unknown species) AMK       0     0     0     0 #> 3 (unknown species) AMP      15     0     1    16 #> 4 (unknown species) AMX      15     0     1    16 #> 5 (unknown species) AZM       3     0     3     6 #> 6 (unknown species) CAZ       0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Ampheni… Chlo… \"\"    \"\"        \"\"            \"\"              \"100.0% (30/30… #>  6 \"Antimyc… Rifa… \"\"    \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  7 \"Beta-la… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  8 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  9 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> 10 \"\"        Benz… \" 77… \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 6 #>    mo            ab        S     I     R total #>  * <chr>         <chr> <int> <int> <int> <int> #>  1 Gram-negative AMC     463    89   174   726 #>  2 Gram-negative AMK     251     0     5   256 #>  3 Gram-negative AMP     226     0   405   631 #>  4 Gram-negative AMX     226     0   405   631 #>  5 Gram-negative AZM       1     2   696   699 #>  6 Gram-negative CAZ     607     0    27   634 #>  7 Gram-negative CHL       1     0    30    31 #>  8 Gram-negative CIP     610    11    63   684 #>  9 Gram-negative CLI      18     1   709   728 #> 10 Gram-negative COL     309     0    78   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 6 #>    mo      ab        S     I     R total #>  * <chr>   <chr> <int> <int> <int> <int> #>  1 E. coli AMC     332    74    61   467 #>  2 E. coli AMK     171     0     0   171 #>  3 E. coli AMP     196     0   196   392 #>  4 E. coli AMX     196     0   196   392 #>  5 E. coli AZM       0     0   467   467 #>  6 E. coli CAZ     449     0    11   460 #>  7 E. coli CHL       0     0     0     0 #>  8 E. coli CIP     398     1    57   456 #>  9 E. coli CLI       0     0   467   467 #> 10 E. coli COL     240     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Data set containing clinical breakpoints interpret MIC disk diffusion SIR values, according international guidelines. Currently implemented guidelines EUCAST (2013-2022) CLSI (2013-2022). Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 18 271 observations 11 variables: guideline Name guideline method Either \"DISK\" \"MIC\" site Body site, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic ID, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints #> # A tibble: 18,271 × 11 #>    guideline   method site  mo               rank_index ab   ref_tbl   disk_dose #>    <chr>       <chr>  <chr> <mo>                  <dbl> <ab> <chr>     <chr>     #>  1 EUCAST 2022 MIC    NA    F_ASPRG_MGTS              2 AMB  Aspergil… NA        #>  2 EUCAST 2022 MIC    NA    F_ASPRG_NIGR              2 AMB  Aspergil… NA        #>  3 EUCAST 2022 MIC    NA    F_CANDD_ALBC              2 AMB  Candida   NA        #>  4 EUCAST 2022 MIC    NA    F_CANDD_DBLN              2 AMB  Candida   NA        #>  5 EUCAST 2022 MIC    NA    F_CANDD_GLBR              2 AMB  Candida   NA        #>  6 EUCAST 2022 MIC    NA    F_CANDD_KRUS              2 AMB  Candida   NA        #>  7 EUCAST 2022 MIC    NA    F_CANDD_PRPS              2 AMB  Candida   NA        #>  8 EUCAST 2022 MIC    NA    F_CANDD_TRPC              2 AMB  Candida   NA        #>  9 EUCAST 2022 MIC    NA    F_CRYPT_NFRM              2 AMB  Candida   NA        #> 10 EUCAST 2022 DISK   NA    B_[ORD]_ENTRBCTR          5 AMC  Enteroba… 20ug/10ug #> # ℹ 18,261 more rows #> # ℹ 3 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, uti <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" being resistant. This note will be shown once for this #> session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) \"aminopenicillins\"(amoxicillin ampicillin) \"antifungals\"(amphotericin B, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) \"antimycobacterials\"(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) \"betalactams\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"carbapenems\"(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) \"cephalosporins\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"cephalosporins_1st\"(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) \"cephalosporins_2nd\"(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) \"cephalosporins_3rd\"(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) \"cephalosporins_4th\"(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) \"cephalosporins_5th\"(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) \"cephalosporins_except_caz\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"fluoroquinolones\"(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"glycopeptides\"(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) \"glycopeptides_except_lipo\"(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) \"lincosamides\"(acetylmidecamycin, acetylspiramycin, clindamycin, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) \"lipoglycopeptides\"(dalbavancin, oritavancin, telavancin) \"macrolides\"(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) \"oxazolidinones\"(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) \"penicillins\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"polymyxins\"(colistin, polymyxin B, polymyxin B/polysorbate 80) \"quinolones\"(besifloxacin, cinoxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"streptogramins\"(pristinamycin quinupristin/dalfopristin) \"tetracyclines\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) \"tetracyclines_except_tgc\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) \"trimethoprims\"(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) \"ureidopenicillins\"(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 336 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"data set based 'EUCAST Clinical Breakpoint Tables' v12.0 (2022) 'EUCAST Clinical Breakpoint Tables' v11.0 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 336 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    25-30 mg/kg… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    2 g x 6 iv   #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    1 g x 3-4 iv #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    0.75-1 g x … #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    (2 g amoxic… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    (1 g amoxic… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    (0.875 g am… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    (0.5 g amox… #> # ℹ 326 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply EUCAST Rules — eucast_rules","title":"Apply EUCAST Rules — eucast_rules","text":"Apply rules clinical breakpoints intrinsic resistance defined European Committee Antimicrobial Susceptibility Testing (EUCAST, https://www.eucast.org), see Source. Use eucast_dosage() get data.frame advised dosages certain bug-drug combination, based dosage data set. improve interpretation antibiogram EUCAST rules applied, non-EUCAST rules can applied default, see Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"eucast_rules(   x,   col_mo = NULL,   info = interactive(),   rules = getOption(\"AMR_eucastrules\", default = c(\"breakpoints\", \"expert\")),   verbose = FALSE,   version_breakpoints = 12,   version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can either \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can either \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated 11 December, 2022, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Apply EUCAST Rules — eucast_rules","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"# \\donttest{ a <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylpenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE )  head(a) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   -   -   -   S   S #> 2  Enterococcus faecalis   -   -   -   -   -   S   S #> 3       Escherichia coli   -   -   -   -   -   S   S #> 4  Klebsiella pneumoniae   -   -   -   -   -   S   S #> 5 Pseudomonas aeruginosa   -   -   -   -   -   S   S   # apply EUCAST rules: some results wil be changed b <- eucast_rules(a) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir))  head(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   S   R   S   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, verbose = TRUE) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir)) head(c) #>   row col           mo_fullname old new rule   rule_group #> 1   1 AMX Staphylococcus aureus   -   S       Breakpoints #> 2   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 3   1 CAZ Staphylococcus aureus   R   S      Expert Rules #> 4   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 5   1 COL Staphylococcus aureus   -   R      Expert Rules #> 6   2 CAZ Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2                                          Staphylococcus #> 3                          Expert Rules on Staphylococcus #> 4 Table 4: Intrinsic resistance in gram-positive bacteria #> 5 Table 4: Intrinsic resistance in gram-positive bacteria #> 6 Table 4: Intrinsic resistance in gram-positive bacteria #>                                                                                 rule_source #> 1                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 2                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 3 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 4 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 5 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 6 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # \\donttest{ # get all first Gram-negatives example_isolates[which(first_isolate(info = FALSE) & mo_is_gram_negative()), ] #> ℹ Using column 'mo' as input for mo_is_gram_negative() #> # A tibble: 437 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 427 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   # filter on first isolates using dplyr:   example_isolates %>%     filter(first_isolate(info = TRUE)) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # flag the first isolates per group:   example_isolates %>%     group_by(ward) %>%     mutate(first = first_isolate(info = TRUE)) %>%     select(ward, date, patient, mo, first) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #>  #> Group: ward = \"Clinical\" #> ℹ Excluding 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    of total where a microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":null,"dir":"Reference","previous_headings":"","what":"G-test for Count Data — g.test","title":"G-test for Count Data — g.test","text":"g.test() performs chi-squared contingency table tests goodness--fit tests, just like chisq.test() reliable (1). G-test can used see whether number observations category fits theoretical expectation (called G-test goodness--fit), see whether proportions one variable different different values variable (called G-test independence).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"G-test for Count Data — g.test","text":"","code":"g.test(x, y = NULL, p = rep(1/length(x), length(x)), rescale.p = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"G-test for Count Data — g.test","text":"code function identical chisq.test(), except : calculation statistic changed \\(2 * sum(x * log(x / E))\\) Yates' continuity correction removed apply G-test possibility simulate p values simulate.p.value removed","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"G-test for Count Data — g.test","text":"x numeric vector matrix. x y can also     factors. y numeric vector; ignored x matrix.      x factor, y factor length. p vector probabilities length x.     error given entry p negative. rescale.p logical scalar; TRUE p rescaled     (necessary) sum 1.  rescale.p FALSE,     p sum 1, error given.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"G-test for Count Data — g.test","text":"list class \"htest\" containing following   components: statistic value chi-squared test statistic. parameter degrees freedom approximate     chi-squared distribution test statistic, NA     p-value computed Monte Carlo simulation. p.value p-value test. method character string indicating type test     performed, whether Monte Carlo simulation continuity     correction used. data.name character string giving name(s) data. observed observed counts. expected expected counts null hypothesis. residuals Pearson residuals,     (observed - expected) / sqrt(expected). stdres standardized residuals,     (observed - expected) / sqrt(V), V residual cell variance (Agresti, 2007,     section 2.4.5 case x matrix, n * p * (1 - p) otherwise).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"G-test for Count Data — g.test","text":"x matrix one row column, x vector y given, goodness--fit test performed (x treated one-dimensional contingency table). entries x must non-negative integers. case, hypothesis tested whether population probabilities equal p, equal p given. x matrix least two rows columns, taken two-dimensional contingency table: entries x must non-negative integers.  Otherwise, x y must vectors factors length; cases missing values removed, objects coerced factors, contingency table computed .  Pearson's chi-squared test performed null hypothesis joint distribution cell counts 2-dimensional contingency table product row column marginals. p-value computed asymptotic chi-squared distribution test statistic. contingency table case simulation done random sampling set contingency tables given marginals, works marginals strictly positive. Note usual sampling situation assumed chi-squared test (G-test) rather Fisher's exact test. goodness--fit case simulation done random sampling discrete distribution specified p, sample size n = sum(x). simulation done R may slow.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-goodness-of-fit-likelihood-ratio-test-","dir":"Reference","previous_headings":"","what":"G-test Of Goodness-of-Fit (Likelihood Ratio Test)","title":"G-test for Count Data — g.test","text":"Use G-test goodness--fit one nominal variable two values (male female, red, pink white flowers). compare observed counts numbers observations category expected counts, calculate using kind theoretical expectation (1:1 sex ratio 1:2:1 ratio genetic cross). expected number observations category small, G-test may give inaccurate results, use exact test instead (fisher.test()). G-test goodness--fit alternative chi-square test goodness--fit (chisq.test()); tests advantages disadvantages, results two tests usually similar.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-independence","dir":"Reference","previous_headings":"","what":"G-test of Independence","title":"G-test for Count Data — g.test","text":"Use G-test independence two nominal variables, two possible values. want know whether proportions one variable different among values variable. also possible G-test independence two nominal variables. example, Jackson et al. (2013) also data children 3, analysis old vs. young, thigh vs. arm, reaction vs. reaction, analyzed together. Fisher's exact test (fisher.test()) exact test, G-test still approximation. 2x2 table, Fisher's Exact test may slower still run seconds, even sum observations multiple millions. G-test independence alternative chi-square test independence (chisq.test()), give approximately results.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"how-the-test-works","dir":"Reference","previous_headings":"","what":"How the Test Works","title":"G-test for Count Data — g.test","text":"Unlike exact test goodness--fit (fisher.test()), G-test directly calculate probability obtaining observed results something extreme. Instead, like almost statistical tests, G-test intermediate step; uses data calculate test statistic measures far observed data null expectation. use mathematical relationship, case chi-square distribution, estimate probability obtaining value test statistic. G-test uses log ratio two likelihoods test statistic, also called likelihood ratio test log-likelihood ratio test. formula calculate G-statistic : \\(G = 2 * sum(x * log(x / E))\\) E expected values. Since chi-square distributed, p value can calculated R :   df degrees freedom. two categories want find ones significantly different null expectation, can use method testing category vs. sum categories, Bonferroni correction. use G-tests category, course.","code":"p <- stats::pchisq(G, df, lower.tail = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"references","dir":"Reference","previous_headings":"","what":"References","title":"G-test for Count Data — g.test","text":"McDonald, J.H. 2014. Handbook Biological Statistics (3rd ed.). Sparky House Publishing, Baltimore, Maryland. http://www.biostathandbook.com/gtestgof.html.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"G-test for Count Data — g.test","text":"","code":"# = EXAMPLE 1 = # Shivrain et al. (2006) crossed clearfield rice (which are resistant # to the herbicide imazethapyr) with red rice (which are susceptible to # imazethapyr). They then crossed the hybrid offspring and examined the # F2 generation, where they found 772 resistant plants, 1611 moderately # resistant plants, and 737 susceptible plants. If resistance is controlled # by a single gene with two co-dominant alleles, you would expect a 1:2:1 # ratio.  x <- c(772, 1611, 737) g.test(x, p = c(1, 2, 1) / 4) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 4.1471, p-value = 0.1257 #>   # There is no significant difference from a 1:2:1 ratio. # Meaning: resistance controlled by a single gene with two co-dominant # alleles, is plausible.   # = EXAMPLE 2 = # Red crossbills (Loxia curvirostra) have the tip of the upper bill either # right or left of the lower bill, which helps them extract seeds from pine # cones. Some have hypothesized that frequency-dependent selection would # keep the number of right and left-billed birds at a 1:1 ratio. Groth (1992) # observed 1752 right-billed and 1895 left-billed crossbills.  x <- c(1752, 1895) g.test(x) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 5.6085, p-value = 0.01787 #>   # There is a significant difference from a 1:1 ratio. # Meaning: there are significantly more left-billed birds."},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Clinical or Epidemic Episodes — get_episode","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"functions determine items vector can considered (start ) new episode. can used determine clinical episodes epidemiological analysis. get_episode() function returns index number episode per group, is_new_episode() function returns TRUE every new get_episode() index. absolute relative episode determination supported.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"get_episode(x, episode_days = NULL, case_free_days = NULL, ...)  is_new_episode(x, episode_days = NULL, case_free_days = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"x vector dates (class Date POSIXt), sorted internally determine episodes episode_days episode length days specify time period new episode begins, can also less day Inf, see Details case_free_days (inter-epidemic) interval length days new episode start, can also less day Inf, see Details ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode(): integer vector is_new_episode(): logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"Episodes can determined two ways: absolute relative. Absolute method uses episode_days define episode length days, new episode start. common use case AMR data analysis microbial epidemiology: episodes S. aureus bacteraemia ICU patients example. episode length 30 days, new S. aureus isolates ICU episode 30 days considered different (new) episode. Thus, method counts since start previous episode. Relative method uses case_free_days quantify duration case-free days (inter-epidemic interval), new episode start. common use case infectious disease epidemiology: episodes norovirus outbreaks hospital example. case-free period 14 days, new norovirus cases time considered different (new) episode. Thus, methods counts since last case previous episode. table: ** marks start new episode, 8 January 2023 7 days since start previous episode (1 January 2023).  *** marks start new episode, 21 January 2023 7 days since last case previous episode (8 January 2023). Either episode_days case_free_days must provided function.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"difference-between-get-episode-and-is-new-episode-","dir":"Reference","previous_headings":"","what":"Difference between get_episode() and is_new_episode()","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode() function returns index number episode, cases/patients/isolates first episode number 1, cases/patients/isolates second episode number 2, etc. is_new_episode() function hand, returns TRUE every new get_episode() index. specify, setting episode_days = 365 (using method 1 explained ), two functions differ:","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names allows different isolate selection methods. dplyr package required functions work, episode functions support variable grouping work conveniently inside dplyr verbs filter(), mutate() summarise().","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"# difference between absolute and relative determination of episodes: x <- data.frame(dates = as.Date(c(   \"2021-01-01\",   \"2021-01-02\",   \"2021-01-05\",   \"2021-01-08\",   \"2021-02-21\",   \"2021-02-22\",   \"2021-02-23\",   \"2021-02-24\",   \"2021-03-01\",   \"2021-03-01\" ))) x$absolute <- get_episode(x$dates, episode_days = 7) x$relative <- get_episode(x$dates, case_free_days = 7) x #>         dates absolute relative #> 1  2021-01-01        1        1 #> 2  2021-01-02        1        1 #> 3  2021-01-05        1        1 #> 4  2021-01-08        2        1 #> 5  2021-02-21        3        2 #> 6  2021-02-22        3        2 #> 7  2021-02-23        3        2 #> 8  2021-02-24        3        2 #> 9  2021-03-01        4        2 #> 10 2021-03-01        4        2   # `example_isolates` is a data set available in the AMR package. # See ?example_isolates df <- example_isolates[sample(seq_len(2000), size = 100), ]  get_episode(df$date, episode_days = 60) # indices #>   [1] 12 21  4  9 13 34 31 14 43 33 40 37 45  5 41 35 34 30  8  5 25  7 26 39 22 #>  [26] 30 17 36  5 42  9 17  4 13 17 24 43  5 16 16 19  8 10 14 38 13 14 35 23  9 #>  [51] 35 37 39  1  6 33 29 31  2 11 18 33 29  3 40  7 30 40 14 20 33 32 26 44 44 #>  [76] 43 13 14  6 40 14 10 21 27 42 39  7  7 32 18 25  8 14 28 38 35  9 24 15  5 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE #>  [25]  TRUE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE #>  [37] FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [49]  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE  TRUE  TRUE #>  [61]  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE #>  [73] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE #>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [97] FALSE FALSE  TRUE FALSE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 1 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [94] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 010257  2004-04-03 C         TRUE        #>  2 022060  2004-05-04 C         TRUE        #>  3 023456  2009-11-02 C         TRUE        #>  4 067927  2002-01-07 A         TRUE        #>  5 0E2483  2007-05-29 A         FALSE       #>  6 0E2483  2007-06-21 A         TRUE        #>  7 0E2483  2007-06-21 A         FALSE       #>  8 0E2483  2007-11-10 A         FALSE       #>  9 114570  2003-04-08 B         TRUE        #> 10 141061  2014-10-22 C         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [93] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2004-04-03 010257          1 TRUE        #>  2 ICU      2004-05-04 022060          1 TRUE        #>  3 Clinical 2009-11-02 023456          1 TRUE        #>  4 ICU      2002-01-07 067927          1 TRUE        #>  5 Clinical 2007-05-29 0E2483          1 TRUE        #>  6 Clinical 2007-11-10 0E2483          2 TRUE        #>  7 ICU      2007-06-21 0E2483          1 TRUE        #>  8 ICU      2007-06-21 0E2483          1 FALSE       #>  9 ICU      2003-04-08 114570          1 TRUE        #> 10 Clinical 2014-10-22 141061          1 TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward) %>%     summarise(       n_patients = n_distinct(patient),       n_episodes_365 = sum(is_new_episode(date, episode_days = 365)),       n_episodes_60 = sum(is_new_episode(date, episode_days = 60)),       n_episodes_30 = sum(is_new_episode(date, episode_days = 30))     ) } #> # A tibble: 3 × 5 #>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30 #>   <chr>           <int>          <int>         <int>         <int> #> 1 Clinical           53             13            35            42 #> 2 ICU                34             10            24            29 #> 3 Outpatient          6              4             6             6  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] FALSE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [95] #>    patient mo           ward     flag_episode #>    <chr>   <mo>         <chr>    <lgl>        #>  1 964998  B_STRPT_PNMN Clinical TRUE         #>  2 DF0749  B_ESCHR_COLI Clinical TRUE         #>  3 496896  B_STPHY_CONS ICU      TRUE         #>  4 E48302  B_STRPT_PNMN ICU      TRUE         #>  5 E19440  B_ESCHR_COLI ICU      TRUE         #>  6 545388  B_STPHY_CPTS Clinical TRUE         #>  7 824233  B_STPHY_AURS Clinical TRUE         #>  8 54890C  B_ESCHR_COLI Clinical TRUE         #>  9 CD8C33  B_STPHY_HMNS Clinical TRUE         #> 10 966513  B_STPHY_HMNS Clinical TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result)    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Plots with ggplot2 — ggplot_sir","title":"AMR Plots with ggplot2 — ggplot_sir","text":"Use functions create bar plots AMR data analysis. functions rely ggplot2 functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"ggplot_sir(   data,   position = NULL,   x = \"antibiotic\",   fill = \"interpretation\",   facet = NULL,   breaks = seq(0, 1, 0.1),   limits = NULL,   translate_ab = \"name\",   combine_SI = TRUE,   minimum = 30,   language = get_AMR_locale(),   nrow = NULL,   colours = c(S = \"#3CAEA3\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\", R =     \"#ED553B\"),   datalabels = TRUE,   datalabels.size = 2.5,   datalabels.colour = \"grey15\",   title = NULL,   subtitle = NULL,   caption = NULL,   x.title = \"Antimicrobial\",   y.title = \"Proportion\",   ... )  geom_sir(   position = NULL,   x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   ... )  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = seq(0, 1, 0.1), limits = NULL)  scale_sir_colours(..., aesthetics = \"fill\")  theme_sir()  labels_sir_count(   position = NULL,   x = \"antibiotic\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   datalabels.size = 3,   datalabels.colour = \"grey15\" )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Plots with ggplot2 — ggplot_sir","text":"data data.frame column(s) class sir (see .sir()) position position adjustment bars, either \"fill\", \"stack\" \"dodge\" x variable show x axis, either \"antibiotic\" (default) \"interpretation\" grouping variable fill variable categorise using plots legend, either \"antibiotic\" (default) \"interpretation\" grouping variable facet variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable breaks numeric vector positions limits numeric vector length two providing limits scale, use NA refer existing minimum maximum translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows colours named vactor colour used filling. default colours colour-blind friendly. datalabels show datalabels using labels_sir_count() datalabels.size size datalabels datalabels.colour colour datalabels title text show title plot subtitle text show subtitle plot caption text show caption plot x.title text show x axis description y.title text show y axis description ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples. aesthetics aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\"","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antibiotics shown plots using ab_name(). can set translate_ab argument. See count_df().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"the-functions","dir":"Reference","previous_headings":"","what":"The Functions","title":"AMR Plots with ggplot2 — ggplot_sir","text":"geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antibiotics x axis. facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage amount isolates using ggplot2::geom_text(). ggplot_sir() wrapper around functions uses data first input. makes possible use function pipe (%>%). See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"# \\donttest{ if (require(\"ggplot2\") && require(\"dplyr\")) {   # get antimicrobial results for drugs against a UTI:   ggplot(example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)) +     geom_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # prettify the plot using some additional functions:   df <- example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)   ggplot(df) +     geom_sir() +     scale_y_percent() +     scale_sir_colours() +     labels_sir_count() +     theme_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # or better yet, simplify this using the wrapper function - a single command:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # get only proportions and no counts:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(datalabels = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # add other ggplot2 arguments as you like:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(       width = 0.5,       colour = \"black\",       size = 1,       linetype = 2,       alpha = 0.25     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # you can alter the colours with colour names:   example_isolates %>%     select(AMX) %>%     ggplot_sir(colours = c(SI = \"yellow\")) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # but you can also use the built-in colour-blind friendly colours for   # your plots, where \"S\" is green, \"I\" is yellow and \"R\" is red:   data.frame(     x = c(\"Value1\", \"Value2\", \"Value3\"),     y = c(1, 2, 3),     z = c(\"Value4\", \"Value5\", \"Value6\")   ) %>%     ggplot() +     geom_col(aes(x = x, y = y, fill = z)) +     scale_sir_colours(Value4 = \"S\", Value5 = \"I\", Value6 = \"R\") }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values (`position_stack()`). #> Warning: Removed 6 rows containing missing values (`position_stack()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for mo_is_gram_negative()  # }"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":null,"dir":"Reference","previous_headings":"","what":"Guess Antibiotic Column — guess_ab_col","title":"Guess Antibiotic Column — guess_ab_col","text":"tries find column name data set based information antibiotics data set. Also supports WHONET abbreviations.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"guess_ab_col(   x = NULL,   search_string = NULL,   verbose = FALSE,   only_sir_columns = FALSE )"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Guess Antibiotic Column — guess_ab_col","text":"x data.frame search_string text search x , checked .ab() value column x verbose logical indicate whether additional info printed only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE)","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Guess Antibiotic Column — guess_ab_col","text":"column name x, NULL result found.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Guess Antibiotic Column — guess_ab_col","text":"can look antibiotic (trade) name abbreviation search x antibiotics data set column containing name code antibiotic.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"df <- data.frame(   amox = \"S\",   tetr = \"R\" )  guess_ab_col(df, \"amoxicillin\") #> [1] \"amox\" guess_ab_col(df, \"J01AA07\") # ATC code of tetracycline #> [1] \"tetr\"  guess_ab_col(df, \"J01AA07\", verbose = TRUE) #> Auto-guessing columns suitable for analysis #> ... #>  OK. #> ℹ Using column 'amox' as input for AMX (amoxicillin). #> ℹ Using column 'tetr' as input for TCY (tetracycline). #> ℹ Using column 'tetr' as input for J01AA07 (tetracycline). #> [1] \"tetr\" # NOTE: Using column 'tetr' as input for J01AA07 (tetracycline).  # WHONET codes df <- data.frame(   AMP_ND10 = \"R\",   AMC_ED20 = \"S\" ) guess_ab_col(df, \"ampicillin\") #> [1] \"AMP_ND10\" guess_ab_col(df, \"J01CR02\") #> [1] \"AMC_ED20\" guess_ab_col(df, as.ab(\"augmentin\")) #> [1] \"AMC_ED20\""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing defined intrinsic resistance EUCAST bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 134 634 observations 2 variables: mo Microorganism ID ab Antibiotic ID","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 134,634 × 2 #>    mo      ab    #>    <mo>    <chr> #>  1 B_GRAMP ATM   #>  2 B_GRAMP COL   #>  3 B_GRAMP NAL   #>  4 B_GRAMP PLB   #>  5 B_GRAMP TEM   #>  6 B_ABTRP ATM   #>  7 B_ABTRP COL   #>  8 B_ABTRP NAL   #>  9 B_ABTRP PLB   #> 10 B_ABTRP TEM   #> # ℹ 134,624 more rows"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":null,"dir":"Reference","previous_headings":"","what":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"According binomial nomenclature, lowest four taxonomic levels (family, genus, species, subspecies) printed italics. function finds taxonomic names within strings makes italic.","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\"))"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector) type type conversion taxonomic names, either \"markdown\" \"ansi\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, using ANSI colours adding \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(\"An overview of Staphylococcus aureus isolates\") #> [1] \"An overview of *Staphylococcus aureus* isolates\" italicise_taxonomy(\"An overview of S. aureus isolates\") #> [1] \"An overview of *S. aureus* isolates\"  cat(italicise_taxonomy(\"An overview of S. aureus isolates\", type = \"ansi\")) #> An overview of S. aureus isolates"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":null,"dir":"Reference","previous_headings":"","what":"Join microorganisms to a Data Set — join","title":"Join microorganisms to a Data Set — join","text":"Join data set microorganisms easily existing data set character vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Join microorganisms to a Data Set — join","text":"","code":"inner_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  left_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  right_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  full_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  semi_join_microorganisms(x, by = NULL, ...)  anti_join_microorganisms(x, by = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Join microorganisms to a Data Set — join","text":"x existing data set join, character vector. case character vector, resulting data.frame contain column 'x' values. variable join - left empty search column class mo (created .mo()) \"mo\" column name exists x, otherwise column name x values exist microorganisms$mo (= \"bacteria_id\"), another column microorganisms (named, like = c(\"bacteria_id\" = \"fullname\")) suffix non-joined duplicate variables x y, suffixes added output disambiguate . character vector length 2. ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Join microorganisms to a Data Set — join","text":"data.frame","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Join microorganisms to a Data Set — join","text":"Note: opposed join() functions dplyr, character vectors supported default existing columns get suffix \"2\" newly joined columns get suffix. dplyr package installed, join functions used. Otherwise, much slower merge() interaction() functions base R used.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 23 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 23 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"             \"bacteria\"         \"fullname\"         \"status\"           #>  [5] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #>  [9] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [13] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [17] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [21] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"             \"patient\"          \"age\"              \"gender\"           #>  [5] \"ward\"             \"mo\"               \"PEN\"              \"OXA\"              #>  [9] \"FLC\"              \"AMX\"              \"AMC\"              \"AMP\"              #> [13] \"TZP\"              \"CZO\"              \"FEP\"              \"CXM\"              #> [17] \"FOX\"              \"CTX\"              \"CAZ\"              \"CRO\"              #> [21] \"GEN\"              \"TOB\"              \"AMK\"              \"KAN\"              #> [25] \"TMP\"              \"SXT\"              \"NIT\"              \"FOS\"              #> [29] \"LNZ\"              \"CIP\"              \"MFX\"              \"VAN\"              #> [33] \"TEC\"              \"TCY\"              \"TGC\"              \"DOX\"              #> [37] \"ERY\"              \"CLI\"              \"AZM\"              \"IPM\"              #> [41] \"MEM\"              \"MTR\"              \"CHL\"              \"COL\"              #> [45] \"MUP\"              \"RIF\"              \"fullname\"         \"status\"           #> [49] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #> [53] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [57] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [61] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [65] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"           # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1395 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 2.983447 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.05816737"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":null,"dir":"Reference","previous_headings":"","what":"Vectorised Pattern Matching with Keyboard Shortcut — like","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Convenient wrapper around grepl() match pattern: x %like% pattern. always returns logical vector always case-insensitive (use x %like_case% pattern case-sensitive matching). Also, pattern can long x compare items index vectors, can length iterate cases.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"like(x, pattern, ignore.case = TRUE)  x %like% pattern  x %unlike% pattern  x %like_case% pattern  x %unlike_case% pattern"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Idea like function data.table package, although altered explained Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"x character vector matches sought, object can coerced .character() character vector. pattern character vector containing regular expressions (character string fixed = TRUE) matched given character vector. Coerced .character() character string possible. ignore.case FALSE, pattern matching case sensitive TRUE, case ignored matching.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"like() %like%/%unlike% functions: case-insensitive (use %like_case%/%unlike_case% case-sensitive matching) Support multiple patterns Check pattern valid regular expression sets fixed = TRUE , greatly improve speed (vectorised pattern) Always use compatibility Perl unless fixed = TRUE, greatly improve speed Using RStudio? %like%/%unlike% functions can also directly inserted code Addins menu can keyboard shortcut like Shift+Ctrl+L Shift+Cmd+L (see menu Tools > Modify Keyboard Shortcuts...). keep pressing shortcut, inserted text iterated %like% -> %unlike% -> %like_case% -> %unlike_case%.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"# data.table has a more limited version of %like%, so unload it: try(detach(\"package:data.table\", unload = TRUE), silent = TRUE)  a <- \"This is a test\" b <- \"TEST\" a %like% b #> [1] TRUE b %like% a #> [1] FALSE  # also supports multiple patterns a <- c(\"Test case\", \"Something different\", \"Yet another thing\") b <- c(\"case\", \"diff\", \"yet\") a %like% b #> [1] TRUE TRUE TRUE a %unlike% b #> [1] FALSE FALSE FALSE  a[1] %like% b #> [1]  TRUE FALSE FALSE a %like% b[1] #> [1]  TRUE FALSE FALSE  # \\donttest{ # get isolates whose name start with 'Entero' (case-insensitive) example_isolates[which(mo_name() %like% \"^entero\"), ] #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Determine isolates multidrug-resistant organisms (MDRO) according international, national custom guidelines.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"mdro(   x = NULL,   guideline = \"CMI2012\",   col_mo = NULL,   info = interactive(),   pct_required_classes = 0.5,   combine_SI = TRUE,   verbose = FALSE,   only_sir_columns = FALSE,   ... )  custom_mdro_guideline(..., as_factor = TRUE)  brmo(x = NULL, only_sir_columns = FALSE, ...)  mrgn(x = NULL, only_sir_columns = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"See supported guidelines list publications used function.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antibiotics columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions pct_required_classes minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function return MDRO results, instead returns data set logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) ... case custom_mdro_guideline(): set rules, see section Using Custom Guidelines . Otherwise: column name antibiotic, see section Antibiotics . as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"CMI 2012 paper - function mdr_cmi2012() mdro(): Ordered factor levels Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant (XDR) < Pandrug-resistant (PDR) TB guideline - function mdr_tb() mdro(..., guideline = \"TB\"): Ordered factor levels Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant < Extensively drug-resistant German guideline - function mrgn() mdro(..., guideline = \"MRGN\"): Ordered factor levels Negative < 3MRGN < 4MRGN Everything else, except custom guidelines: Ordered factor levels Negative < Positive, unconfirmed < Positive. value \"Positive, unconfirmed\" means , according guideline, entirely sure isolate multi-drug resistant confirmed additional (e.g. molecular) tests","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"functions context-aware. means x argument can left blank used inside data.frame call, see Examples. pct_required_classes argument, values 1 divided 100. support fractions (0.75 3/4) percentages (75). Note: Every test involves Enterobacteriaceae family, internally performed using newly named order Enterobacterales, since Enterobacteriaceae family taxonomically reclassified Adeolu et al. 2016. , Enterobacteriaceae family Enterobacteriales () order. species old Enterobacteriaceae family still new Enterobacterales (without ) order, divided multiple families. way tests performed now mdro() function makes sure results 2016 2016 identical.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"supported-international-national-guidelines","dir":"Reference","previous_headings":"","what":"Supported International / National Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu \"WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)\" (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"out <- mdro(example_isolates, guideline = \"EUCAST\") #>  (16 isolates had no test results) str(out) #>  Ord.factor w/ 3 levels \"Negative\"<\"Positive, unconfirmed\"<..: 1 1 1 1 1 1 1 1 1 1 ... table(out) #> out #>              Negative Positive, unconfirmed              Positive  #>                  1978                     0                     6   out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) table(out) #> out #>      Negative Custom MDRO 1 Custom MDRO 2  #>           870           804           326   # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     mdro() %>%     table()    # no need to define `x` when used inside dplyr verbs:   example_isolates %>%     mutate(MDRO = mdro()) %>%     pull(MDRO) %>%     table() } #>  (16 isolates had no test results) #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #>  (16 isolates had no test results) #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `MDRO = mdro()`. #> Caused by warning: #> ! in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> . #>                         Negative       Multi-drug-resistant (MDR)  #>                             1601                              128  #> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR)  #>                                0                                0  # }"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Mean AMR Distance — mean_amr_distance","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Calculates normalised mean antimicrobial resistance multiple observations, help identify similar isolates without comparing antibiograms hand.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for sir mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for data.frame mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) sir #> Class 'sir' #>  [1] I R R I R I R R R S mean_amr_distance(sir) #>  [1] -1.1618950  0.7745967  0.7745967 -1.1618950  0.7745967 -1.1618950 #>  [7]  0.7745967  0.7745967  0.7745967 -1.1618950  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.0625 4      128    0.0625 0.002  0.001  8      0.001  4      4      mean_amr_distance(mic) #>  [1] -0.3120147  0.6680004  1.4846796 -0.3120147 -1.1231053 -1.2864411 #>  [7]  0.8313362 -1.2864411  0.6680004  0.6680004 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -0.3120147  0.6680004  1.4846796 -0.3120147 -1.1231053 -1.2864411 #>  [7]  0.8313362 -1.2864411  0.6680004  0.6680004  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 10 15 33 50 37  6 50  7 27 42 mean_amr_distance(disk) #>  [1] -1.02416943 -0.73485604  0.30667220  1.29033776  0.53812292 -1.25562015 #>  [7]  1.29033776 -1.19775747 -0.04050388  0.82743632  y <- data.frame(   id = LETTERS[1:10],   amox = random_sir(10, ab = \"amox\", mo = \"Escherichia coli\"),   cipr = random_disk(10, ab = \"cipr\", mo = \"Escherichia coli\"),   gent = random_mic(10, ab = \"gent\", mo = \"Escherichia coli\"),   tobr = random_mic(10, ab = \"tobr\", mo = \"Escherichia coli\") ) y #>    id amox cipr gent tobr #> 1   A    R   22    1  >=4 #> 2   B    R   27  0.5    1 #> 3   C    I   27    8    2 #> 4   D    R   30    8  >=4 #> 5   E    S   18  0.5  >=4 #> 6   F    I   19    8  >=4 #> 7   G    S   27    2  >=4 #> 8   H    R   21    8    2 #> 9   I    S   30    4    1 #> 10  J    S   19    4    2 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.16915536 -0.32319888  0.10243586  1.05012543 -0.67969116 -0.02029945 #>  [7]  0.10305622  0.26675770 -0.19285261 -0.47548846 y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in .subset(x, j): invalid subscript type 'list' y[order(y$amr_distance), ] #> Error in order(y$amr_distance): argument 1 is not a vector  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>    id amox cipr gent tobr amr_distance   check_id_C #> 1   C    I   27    8    2   0.10243586 0.0000000000 #> 2   G    S   27    2  >=4   0.10305622 0.0006203605 #> 3   A    R   22    1  >=4   0.16915536 0.0667195016 #> 4   F    I   19    8  >=4  -0.02029945 0.1227353089 #> 5   H    R   21    8    2   0.26675770 0.1643218437 #> 6   I    S   30    4    1  -0.19285261 0.2952884682 #> 7   B    R   27  0.5    1  -0.32319888 0.4256347323 #> 8   J    S   19    4    2  -0.47548846 0.5779243144 #> 9   E    S   18  0.5  >=4  -0.67969116 0.7821270147 #> 10  D    R   30    8  >=4   1.05012543 0.9476895794 if (require(\"dplyr\")) {   # support for groups   example_isolates %>%     filter(mo_genus() == \"Enterococcus\" & mo_species() != \"\") %>%     select(mo, TCY, carbapenems()) %>%     group_by(mo) %>%     mutate(dist = mean_amr_distance(.)) %>%     arrange(mo, dist) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ Using column 'mo' as input for mo_species() #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Calculating mean AMR distance based on columns \"TCY\", \"IPM\", and \"MEM\" #> # A tibble: 63 × 5 #> # Groups:   mo [4] #>    mo           TCY   IPM   MEM     dist #>    <mo>         <sir> <sir> <sir>  <dbl> #>  1 B_ENTRC_AVIM S     S     NA     0     #>  2 B_ENTRC_AVIM S     S     NA     0     #>  3 B_ENTRC_CSSL NA    S     NA    NA     #>  4 B_ENTRC_FACM S     S     NA    -2.66  #>  5 B_ENTRC_FACM S     R     R     -0.423 #>  6 B_ENTRC_FACM S     R     R     -0.423 #>  7 B_ENTRC_FACM NA    R     R      0.224 #>  8 B_ENTRC_FACM NA    R     R      0.224 #>  9 B_ENTRC_FACM NA    R     R      0.224 #> 10 B_ENTRC_FACM NA    R     R      0.224 #> # ℹ 53 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"tibble 5 754 observations 2 variables: code Commonly used code microorganism mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 5 754 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 5,754 × 2 #>    code    mo        #>    <chr>   <mo>      #>  1 _FAM_A- B_GRAMN   #>  2 _FAM_A+ B_GRAMP   #>  3 _FAM_AC B_GRAMP   #>  4 _FAM_AE B_GRAMN   #>  5 _FAM_AN B_GRAMN   #>  6 _FAM_AO B_GRAMP   #>  7 _FAM_AP   UNKNOWN #>  8 _FAM_AS F_FUNGUS  #>  9 _FAM_AT   UNKNOWN #> 10 _FAM_AV   UNKNOWN #> # ℹ 5,744 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 151 Microorganisms — microorganisms","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: 11 December, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"tibble 52 151 observations 23 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters, e.g. \"Váňová\" becomes \"Vanova\". lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 73.4% ~36 000 bacteria data set contain oxygen tolerance. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version 1 July, 2021 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269 Reimer et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data.  Nucleic Acids Res. 2022 Jan 7;50(D1):D741-D746; doi:10.1093/nar/gkab961","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Please note entries based List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Included taxonomic data : ~36 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species 43 relevant genera kingdom Animalia (Strongyloides Taenia) ~9 800 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 15 entries Streptococcus, beta-haemolytic groups K, viridans, milleri 2 entries Staphylococcus (coagulase-negative (CoNS) coagulase-positive (CoPS)) 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found : https://github.com/msberends/AMR/blob/main/data-raw/reproduction_of_microorganisms.R.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"about-the-records-from-lpsn-see-source-","dir":"Reference","previous_headings":"","what":"About the Records from LPSN (see Source)","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"LPSN main source bacteriological taxonomy AMR package. List Prokaryotic names Standing Nomenclature (LPSN) provides comprehensive information nomenclature prokaryotes. LPSN free use service founded Jean P. Euzeby 1997 later maintained Aidan C. Parte.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 52 151 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,151 × 23 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_GRAMN          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  2 B_GRAMP          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  3 B_ANAER-NEG      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  4 B_ANAER-POS      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  5 B_ANAER          (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  6 F_FUNGUS         (unknown fun… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  7   UNKNOWN        (unknown nam… accep… (unkno… (unkn… (unk… (unk… \"(unk… \"(un… #>  8 F_YEAST          (unknown yea… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  9 B_[FAM]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"Abdi… \"\"    #> 10 B_[ORD]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"\"     \"\"    #> # ℹ 52,141 more rows #> # ℹ 14 more variables: species <chr>, subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 2, Protozoa = 3, Archaea = 4, others = 5. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.5 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.159\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Class 'mo' #> [1] B_ESCHR_COLI mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Ehrlichia canis (0.567), and Enterobacter cloacae #>               dissolvens (0.565) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.1587302"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_oxygen_tolerance(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_anaerobic(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed() mo_info() named character case mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). Determination bacterial oxygen tolerance (mo_oxygen_tolerance()) based BacDive, see Source. function mo_is_anaerobic() returns TRUE oxygen tolerance \"anaerobe\", indicting obligate anaerobic species genus. always returns FALSE species outside taxonomic kingdom Bacteria. function mo_url() return direct URL online database entry, also shows scientific reference concerned species. SNOMED codes (mo_snomed()) version 1 July, 2021. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de 11 December, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org 11 December, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269 Reimer et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data.  Nucleic Acids Res. 2022 Jan 7;50(D1):D741-D746; doi:10.1093/nar/gkab961","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"    # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 20 × 2 #>    `mo_genus()`         n #>    <chr>            <int> #>  1 Escherichia        467 #>  2 Klebsiella          77 #>  3 Proteus             39 #>  4 Pseudomonas         30 #>  5 Serratia            25 #>  6 Enterobacter        23 #>  7 Citrobacter         11 #>  8 Haemophilus          8 #>  9 Acinetobacter        6 #> 10 Morganella           6 #> 11 Pantoea              4 #> 12 Salmonella           3 #> 13 Neisseria            2 #> 14 Stenotrophomonas     2 #> 15 Campylobacter        1 #> 16 Enterococcus         1 #> 17 Hafnia               1 #> 18 Lactobacillus        1 #> 19 Leuconostoc          1 #> 20 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"aerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  #> $lpsn #> [1] \"777151\" #>  #> $gbif #> [1] \"3221874\" #>  # }"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":null,"dir":"Reference","previous_headings":"","what":"User-Defined Reference Data Set for Microorganisms — mo_source","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"functions can used predefine reference used .mo() consequently mo_* functions (mo_genus() mo_gramstain()). fastest way organisation (analysis) specific codes picked translated package, since bother setting .","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"","code":"set_mo_source(   path,   destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\") )  get_mo_source(destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\"))"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"path location reference file, can text file (comma-, tab- pipe-separated) Excel file (see Details). Can also \"\", NULL FALSE delete reference file. destination destination compressed data file - default user's home directory.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"reference file can text file separated commas (CSV) tabs pipes, Excel file (either 'xls' 'xlsx' format) R object file (extension '.rds'). use Excel file, need readxl package installed. set_mo_source() check file validity: must data.frame, must column named \"mo\" contains values microorganisms$mo microorganisms$fullname must reference column defined values. tests pass, set_mo_source() read file R ask export \"~/mo_source.rds\". CRAN policy disallows packages write file system, although 'exceptions may allowed interactive sessions package obtains confirmation user'. reason, function works interactive sessions user can specifically confirm allow file created. destination file can set destination argument defaults user's home directory. can also set package option AMR_mo_source, e.g. options(AMR_mo_source = \"/location/file.rds\"). created compressed data file \"mo_source.rds\" used default MO determination (function .mo() consequently mo_* functions like mo_genus() mo_gramstain()). location timestamp original file saved attribute compressed data file. function get_mo_source() return data set reading \"mo_source.rds\" readRDS(). original file changed (checking location timestamp original file), call set_mo_source() update data file automatically used interactive session. Reading Excel file (.xlsx) one row size 8-9 kB. compressed file created set_mo_source() size 0.1 kB can read get_mo_source() couple microseconds (millionths second).","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"how-to-setup","dir":"Reference","previous_headings":"","what":"How to Setup","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"Imagine data sheet Excel file. first column contains organisation specific codes, second column contains valid taxonomic names:   save \"home//ourcodes.xlsx\". Now set source:   now created file \"~/mo_source.rds\" contents Excel file. first column foreign values 'mo' column kept creating RDS file. now can use functions:   edit Excel file , say, adding row 4 like :   ...new usage MO function package update data file:   delete reference data file, just use \"\", NULL FALSE input set_mo_source():   original file (previous case Excel file) moved deleted, mo_source.rds file removed upon next use .mo() mo_* function.","code":"|         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 |                    |                       | set_mo_source(\"home/me/ourcodes.xlsx\") #> NOTE: Created mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>       \"Organisation XYZ\" and \"mo\" as.mo(\"lab_mo_ecoli\") #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_mo_kpneumoniae\") #> [1] \"Klebsiella\"  # other input values still work too as.mo(c(\"Escherichia coli\", \"E. coli\", \"lab_mo_ecoli\")) #> NOTE: Translation to one microorganism was guessed with uncertainty. #>       Use mo_uncertainties() to review it. #> Class 'mo' #> [1] B_ESCHR_COLI B_ESCHR_COLI B_ESCHR_COLI |         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 | lab_Staph_aureus   | Staphylococcus aureus | 5 |                    |                       | as.mo(\"lab_mo_ecoli\") #> NOTE: Updated mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>        \"Organisation XYZ\" and \"mo\" #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_Staph_aureus\") #> [1] \"Staphylococcus\" set_mo_source(NULL) #> Removed mo_source file '/Users/me/mo_source.rds'"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":null,"dir":"Reference","previous_headings":"","what":"Principal Component Analysis (for AMR) — pca","title":"Principal Component Analysis (for AMR) — pca","text":"Performs principal component analysis (PCA) based data set automatic determination afterwards plotting groups labels, automatic filtering suitable (.e. non-empty numeric) variables.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"pca(   x,   ...,   retx = TRUE,   center = TRUE,   scale. = TRUE,   tol = NULL,   rank. = NULL )"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Principal Component Analysis (for AMR) — pca","text":"x data.frame containing numeric columns ... columns x selected PCA, can unquoted since supports quasiquotation. retx logical value indicating whether rotated variables     returned. center logical value indicating whether variables     shifted zero centered. Alternately, vector     length equal number columns x can supplied.     value passed scale. scale. logical value indicating whether variables     scaled unit variance analysis takes     place.  default FALSE consistency S,     general scaling advisable.  Alternatively, vector length     equal number columns x can supplied.      value passed scale. tol value indicating magnitude components     omitted. (Components omitted     standard deviations less equal tol times     standard deviation first component.)  default null     setting, components omitted (unless rank. specified     less min(dim(x)).).  settings tol     tol = 0 tol = sqrt(.Machine$double.eps),     omit essentially constant components. rank. optionally, number specifying maximal rank, .e.,     maximal number principal components used.  Can set     alternative addition tol, useful notably     desired rank considerably smaller dimensions matrix.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Principal Component Analysis (for AMR) — pca","text":"object classes pca prcomp","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Principal Component Analysis (for AMR) — pca","text":"pca() function takes data.frame input performs actual PCA R function prcomp(). result pca() function prcomp object, additional attribute non_numeric_cols vector column names columns contain numeric values. probably groups labels, used ggplot_pca().","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    pca_result   summary(pca_result)    # old base R plotting method:   biplot(pca_result)   # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for mic fortify(object, ...)  # S3 method for disk plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   ... )  # S3 method for disk fortify(object, ...)  # S3 method for sir plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for sir autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"x, object values created .mic(), .disk() .sir() (random_* variants, random_mic()) mo (vector ) text can coerced valid microorganism code .mo() ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline interpretation guideline use - default latest included EUCAST guideline, see Details main, title title plot xlab, ylab axis title colours_SIR colours use filling bars, must vector three values (order S, R). default colours colour-blind friendly. language language used translate 'Susceptible', 'Increased exposure'/'Intermediate' 'Resistant' - default system language (see get_AMR_locale()) can overwritten setting package option AMR_locale, e.g. options(AMR_locale = \"de\"), see translate. Use language = NULL language = \"\" prevent translation. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting for Classes sir, mic and disk — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  plot(some_mic_values)  plot(some_disk_values)  plot(some_sir_values)   # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"uk\")   # \\donttest{ if (require(\"ggplot2\")) {   autoplot(some_mic_values) }  if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(some_sir_values) }  # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. functions meant count isolates, calculate proportion resistance/susceptibility. Use count() functions count isolates. function susceptibility() essentially equal count_susceptible() / count_all(). Low counts can influence outcome - proportion functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> [1] 0.5955556 sir_confidence_interval(example_isolates$AMX) #> [1] 0.5688204 0.6218738 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> [1] 0.5650148 0.6255670 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> [1] \"0.565, 0.626\"  # determines %S+I: susceptibility(example_isolates$AMX) #> [1] 0.4044444 sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> [1] 0.3781262 0.4311796  # be more specific proportion_S(example_isolates$AMX) #> [1] 0.4022222 proportion_SI(example_isolates$AMX) #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> [1] 0.5977778 proportion_R(example_isolates$AMX) #> [1] 0.5955556  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       r = resistance(CIP),       n = n_sir(CIP)     ) # n_sir works like n_distinct in dplyr, see ?n_sir } #> # A tibble: 3 × 3 #>   ward           r     n #>   <chr>      <dbl> <int> #> 1 Clinical   0.147   869 #> 2 ICU        0.190   447 #> 3 Outpatient 0.161    93 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       cipro_R = resistance(CIP),       ci_min = sir_confidence_interval(CIP, side = \"min\"),       ci_max = sir_confidence_interval(CIP, side = \"max\"),     ) } #> # A tibble: 3 × 4 #>   ward       cipro_R ci_min ci_max #>   <chr>        <dbl>  <dbl>  <dbl> #> 1 Clinical     0.147 0.124   0.173 #> 2 ICU          0.190 0.155   0.230 #> 3 Outpatient   0.161 0.0932  0.252 if (require(\"dplyr\")) {   # scoped dplyr verbs with antibiotic selectors   # (you could also use across() of course)   example_isolates %>%     group_by(ward) %>%     summarise_at(       c(aminoglycosides(), carbapenems()),       resistance     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `KAN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 7 #>   ward         GEN   TOB   AMK   KAN    IPM    MEM #>   <chr>      <dbl> <dbl> <dbl> <dbl>  <dbl>  <dbl> #> 1 Clinical   0.229 0.315 0.626     1 0.0498 0.0458 #> 2 ICU        0.290 0.400 0.662     1 0.0862 0.0894 #> 3 Outpatient 0.2   0.368 0.605    NA 0.0541 0.0541 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = resistance(CIP, as_percent = TRUE),       SI = susceptibility(CIP, as_percent = TRUE),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Calculate co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy:   example_isolates %>% susceptibility(AMC) # %SI = 76.3%   example_isolates %>% count_all(AMC) #   n = 1879    example_isolates %>% susceptibility(GEN) # %SI = 75.4%   example_isolates %>% count_all(GEN) #   n = 1855    example_isolates %>% susceptibility(AMC, GEN) # %SI = 94.1%   example_isolates %>% count_all(AMC, GEN) #   n = 1939     # See Details on how `only_all_tested` works. Example:   example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN),       denominator = count_all(AMC, GEN),       proportion = susceptibility(AMC, GEN)     )    example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN, only_all_tested = TRUE),       denominator = count_all(AMC, GEN, only_all_tested = TRUE),       proportion = susceptibility(AMC, GEN, only_all_tested = TRUE)     )     example_isolates %>%     group_by(ward) %>%     summarise(       cipro_p = susceptibility(CIP, as_percent = TRUE),       cipro_n = count_all(CIP),       genta_p = susceptibility(GEN, as_percent = TRUE),       genta_n = count_all(GEN),       combination_p = susceptibility(CIP, GEN, as_percent = TRUE),       combination_n = count_all(CIP, GEN)     )    # Get proportions S/I/R immediately of all sir columns   example_isolates %>%     select(AMX, CIP) %>%     proportion_df(translate = FALSE)    # It also supports grouping variables   # (use sir_df to also include the count)   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     sir_df(translate = FALSE) } #> # A tibble: 12 × 7 #>    ward       antibiotic interpretation value ci_min ci_max isolates #>  * <chr>      <chr>      <ord>          <dbl>  <dbl>  <dbl>    <int> #>  1 Clinical   AMX        SI             0.423 0.389   0.457      357 #>  2 Clinical   AMX        R              0.577 0.543   0.611      487 #>  3 Clinical   CIP        SI             0.853 0.827   0.876      741 #>  4 Clinical   CIP        R              0.147 0.124   0.173      128 #>  5 ICU        AMX        SI             0.369 0.323   0.417      158 #>  6 ICU        AMX        R              0.631 0.583   0.677      270 #>  7 ICU        CIP        SI             0.810 0.770   0.845      362 #>  8 ICU        CIP        R              0.190 0.155   0.230       85 #>  9 Outpatient AMX        SI             0.397 0.288   0.515       31 #> 10 Outpatient AMX        R              0.603 0.485   0.712       47 #> 11 Outpatient CIP        SI             0.839 0.748   0.907       78 #> 12 Outpatient CIP        R              0.161 0.0932  0.252       15 # }"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":null,"dir":"Reference","previous_headings":"","what":"Random MIC Values/Disk Zones/SIR Generation — random","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"functions can used generating random MIC values disk diffusion diameters, AMR data analysis practice. providing microorganism antimicrobial drug, generated results reflect reality much possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(size = NULL, mo = NULL, ab = NULL, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"size desired size returned vector. used data.frame call dplyr verb, get current (group) size left blank. mo character can coerced valid microorganism code .mo() ab character can coerced valid antimicrobial drug code .ab() ... ignored, place allow future extensions prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value)","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"class mic random_mic() (see .mic()) class disk random_disk() (see .disk())","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"base R function sample() used generating values. Generated values based EUCAST 2022 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 32      0.125   0.002   0.0625  16      32      0.25    0.005   32      #> [10] 32      0.025   0.025   0.01    16      0.25    32      0.005   8       #> [19] >=128   0.002   0.01    0.002   8       <=0.001 0.01    random_disk(25) #> Class 'disk' #>  [1] 39 44 20 34 35 49 41  9 45 26 38 38 43 44 43 27 44 29 42 27 11 46  7 43 46 random_sir(25) #> Class 'sir' #>  [1] S I R S S R R I S R S S S R R I I I R S I R S I R  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 2      1      0.0625 0.01   1      0.25   0.125  0.005  0.125  >=64   #> [11] 0.25   0.025  0.125  1      0.005  0.25   0.025  32     0.25   32     #> [21] 32     0.0625 0.125  0.01   0.125  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 2     1     2     8     2     4     <=0.5 <=0.5 >=16  >=16  1     4     #> [13] 4     4     >=16  1     4     <=0.5 4     2     1     2     1     2     #> [25] 2     random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 1       0.25    1       <=0.025 2       2       0.125   0.5     1       #> [10] 0.0625  <=0.025 1       0.5     0.125   >=4     >=4     0.25    0.125   #> [19] 0.125   0.5     <=0.025 <=0.025 0.25    0.5     0.5      random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 14 34 36 16 21 47 29 46 32 45 27 45 25 37 42 36 34 30 49 28 22 45 46 41 34 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 15 14 14 11 13 11 16 17 12 11 11 15 15 16 14 11 12 13 14 14 16 17 14 16 12 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 27 19 26 21 24 27 23 22 19 25 23 27 25 25 21 20 20 27 21 19 26 22 26 27 24 # }"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict Antimicrobial Resistance — resistance_predict","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Create prediction model predict antimicrobial resistance next years statistical solid ground. Standard errors (SE) returned columns se_min se_max. See Examples real live example.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  sir_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  # S3 method for resistance_predict plot(x, main = paste(\"Resistance Prediction of\", x_name), ...)  ggplot_sir_predict(   x,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )  # S3 method for resistance_predict autoplot(   object,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict Antimicrobial Resistance — resistance_predict","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_ab column name x containing antimicrobial interpretations (\"R\", \"\" \"S\") col_date column name date, used calculate years column consist years already - default first column date class year_min lowest year use prediction model, dafaults lowest year col_date year_max highest year use prediction model - default 10 years today year_every unit sequence lowest year found data year_max minimum minimal amount available isolates per year include. Years containing less observations estimated model. model statistical model choice. generalised linear regression model binomial distribution (.e. using glm(..., family = binomial), assuming period zero resistance followed period increasing resistance leading slowly resistance. See Details valid options. I_as_S logical indicate whether values \"\" treated \"S\" (otherwise treated \"R\"). default, TRUE, follows redefinition EUCAST interpretation (increased exposure) 2019, see section Interpretation S, R . preserve_measurements logical indicate whether predictions years actually available data overwritten original data. standard errors years NA. info logical indicate whether textual analysis printed name summary() statistical model. ... arguments passed functions main title plot ribbon logical indicate whether ribbon shown (default) error bars object model data plotted","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Predict Antimicrobial Resistance — resistance_predict","text":"data.frame extra class resistance_predict columns: year value, estimated preserve_measurements = FALSE, combination observed estimated otherwise se_min, lower bound standard error minimum 0 (standard error never go 0%) se_max upper bound standard error maximum 1 (standard error never go 100%) observations, total number available observations year, .e. \\(S + + R\\) observed, original observed resistant percentages estimated, estimated resistant percentages, calculated model Furthermore, model available attribute: attributes(x)$model, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Valid options statistical model (argument model) : \"binomial\" \"binom\" \"logit\": generalised linear regression model binomial distribution \"loglin\" \"poisson\": generalised log-linear regression model poisson distribution \"lin\" \"linear\": linear regression model","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Predict Antimicrobial Resistance — resistance_predict","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr/): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"x <- resistance_predict(example_isolates,   col_ab = \"AMX\",   year_min = 2010,   model = \"binomial\" ) plot(x)  # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) }   # using dplyr: if (require(\"dplyr\")) {   x <- example_isolates %>%     filter_first_isolate() %>%     filter(mo_genus(mo) == \"Staphylococcus\") %>%     resistance_predict(\"PEN\", model = \"binomial\")   print(plot(x))    # get the model from the object   mymodel <- attributes(x)$model   summary(mymodel) }  #> NULL #>  #> Call: #> glm(formula = df_matrix ~ year, family = binomial) #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 47.02915   72.98739   0.644    0.519 #> year        -0.02280    0.03637  -0.627    0.531 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.9620  on 11  degrees of freedom #> Residual deviance: 5.5701  on 10  degrees of freedom #> AIC: 50.533 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) }  # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for data.frame skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] 0.04370586"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate Strings from the AMR Package — translate","title":"Translate Strings from the AMR Package — translate","text":"language-dependent output AMR functions, mo_name(), mo_gramstain(), mo_type() ab_name().","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate Strings from the AMR Package — translate","text":"","code":"get_AMR_locale()  set_AMR_locale(language)  reset_AMR_locale()  translate_AMR(x, language = get_AMR_locale())"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate Strings from the AMR Package — translate","text":"language language choose. Use one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). x text translate","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate Strings from the AMR Package — translate","text":"currently 20 supported languages English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). languages translations available antimicrobial drugs colloquial microorganism names. permanently silence -per-session language note non-English operating system, can set package option AMR_locale .Rprofile file like :   save file. Please read adding updating language Wiki.","code":"# Open .Rprofile file utils::file.edit(\"~/.Rprofile\")  # Then add e.g. Italian support to that file using: options(AMR_locale = \"Italian\")"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"changing-the-default-language","dir":"Reference","previous_headings":"","what":"Changing the Default Language","title":"Translate Strings from the AMR Package — translate","text":"system language used default (returned Sys.getenv(\"LANG\") , LANG set, Sys.getlocale(\"LC_COLLATE\")), language supported. language used can overwritten two ways checked order: Setting package option AMR_locale, either using e.g. set_AMR_locale(\"German\") running e.g. options(AMR_locale = \"German\"). Note setting R option works session. Save command options(AMR_locale = \"(language)\") .Rprofile file apply every session. Run utils::file.edit(\"~/.Rprofile\") edit .Rprofile file. Setting system variable LANGUAGE LANG, e.g. adding LANGUAGE=\"de_DE.utf8\" .Renviron file home directory. Thus, package option AMR_locale set, system variables LANGUAGE LANG ignored.","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate Strings from the AMR Package — translate","text":"","code":"# Current settings (based on system language) ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negative Staphylococcus (CoNS)\"  # setting another language set_AMR_locale(\"Spanish\") #> ℹ Using Spanish (Español) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacina\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Staphylococcus coagulasa negativo (SCN)\"  # setting yet another language set_AMR_locale(\"Greek\") #> ℹ Using Greek (Ελληνικά) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Σιπροφλοξασίνη\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Σταφυλόκοκκος με αρνητική πηκτικότητα (CoNS)\"  # setting yet another language set_AMR_locale(\"Ukrainian\") #> ℹ Using Ukrainian (Українська) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ципрофлоксацин\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Коагулазонегативний стафілокок (КНС)\"  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"de\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"amox/clav\") #> ℹ More than one result was found for item 1: amoxicillin and clavulansäure #> [1] \"Amoxicillin/Clavulansäure\"  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> [1] \"Amoxicillin/clavulanic acid\""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-0-0-9018","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9018","text":"Added mo_oxygen_tolerance() retrieve values Added mo_is_anaerobic() determine species obligate anaerobic bacteria Added LPSN GBIF identifiers, oxygen tolerance mo_info() Added SAS Transport files (file extension .xpt) download page use SAS software Added microbial codes Gram-negative/positive anaerobic bacteria mo_rank() now returns NA ‘unknown’ microorganisms (B_ANAER, B_ANAER-NEG, B_ANAER-POS, B_GRAMN, B_GRAMP, F_FUNGUS, F_YEAST, UNKNOWN) Fixed formatting sir_interpretation_history() Fixed WHONET codes microorganisms consequently couple entries clinical_breakpoints Fixed bug .mo() led coercion NA values using custom microorganism codes Fixed usage icu_exclude first_isolates()","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-200","dir":"Changelog","previous_headings":"","what":"AMR 2.0.0","title":"AMR 2.0.0","text":"CRAN release: 2023-03-12 new major release AMR package, great new additions also breaking changes current users. listed . TL;DR functions arguments ‘rsi’ replaced ‘sir’, interpretation MIC values (now .sir() instead .rsi()) - old functions still work now Many new interesting functions, antibiogram() (generating traditional/combined/syndromic/WISCA antibiograms), sir_confidence_interval() mean_amr_distance(), add_custom_microorganisms() add custom microorganisms package Clinical breakpoints added EUCAST 2022 CLSI 2022 Microbiological taxonomy (microorganisms data set) updated 2022 now based LPSN GBIF Much increased algorithms translate user input valid taxonomy, e.g. using recent scientific work per-species human pathogenicity 20 new antibiotics added updated DDDs ATC codes Extended support antiviral agents (antivirals data set), many new functions Now available 20 languages Many small bug fixes","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"sir-vs-rsi-2-0-0","dir":"Changelog","previous_headings":"New","what":"SIR vs. RSI","title":"AMR 2.0.0","text":"milestone version, replaced mentions RSI SIR, comply actually commonly used field clinical microbiology comes tri-form regarding AMR. existing functions .rsi(), rsi_df() ggplot_rsi() still work, replacements .sir(), sir_df(), ggplot_sir() now current functions AMR data analysis. warning thrown session remind users . data set rsi_translation now called clinical_breakpoints better reflect content. ‘RSI functions’ removed future version, late 2023 / early 2024.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-antibiogram-function-2-0-0","dir":"Changelog","previous_headings":"New","what":"New antibiogram function","title":"AMR 2.0.0","text":"new antibiogram() function, users can now generate traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). , follow logic previously described work Klinker et al. (2021, DOI 10.1177/20499361211011373) Barbieri et al. (2021, DOI 10.1186/s13756-021-00939-2). help page antibiogram() extensively elaborates use cases, antibiogram() also supports printing R Markdown Quarto, support 20 languages. Furthermore, different plotting methods implemented allow graphical visualisations well.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"interpretation-of-mic-and-disk-diffusion-values-2-0-0","dir":"Changelog","previous_headings":"New","what":"Interpretation of MIC and disk diffusion values","title":"AMR 2.0.0","text":"clinical breakpoints intrinsic resistance EUCAST 2022 CLSI 2022 added .sir(). EUCAST 2022 (v12.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. default guideline (EUCAST) can now changed new AMR_guideline option, : options(AMR_guideline = \"CLSI 2020\"). new arguments include_PKPD (default: TRUE) include_screening (default: FALSE), users can now specify whether breakpoints screening PK/PD table included interpreting MICs disks diffusion values. options can set globally, can read new manual. Interpretation guidelines older 10 years removed, oldest now included guidelines EUCAST CLSI 2013.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"supported-languages-2-0-0","dir":"Changelog","previous_headings":"New","what":"Supported languages","title":"AMR 2.0.0","text":"added support following ten languages: Chinese (simplified), Czech, Finnish, Greek, Japanese, Norwegian (bokmål), Polish, Romanian, Turkish Ukrainian. antibiotic names now available languages, AMR package automatically determine supported language based user’s system language. grateful valuable input colleagues countries. AMR package now available 20 languages total, according download stats used almost countries world!","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"outbreak-management-2-0-0","dir":"Changelog","previous_headings":"New","what":"Outbreak management","title":"AMR 2.0.0","text":"analysis outbreak management, updated get_episode() is_new_episode() functions: now contain argument case_free_days. argument can used quantify duration case-free days (inter-epidemic interval), new episode start. common requirement outbreak management, e.g. determining number norovirus outbreaks hospital. case-free period 14 28 days, new norovirus cases time considered different (new) episode.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"microbiological-taxonomy-2-0-0","dir":"Changelog","previous_headings":"New","what":"Microbiological taxonomy","title":"AMR 2.0.0","text":"microorganisms data set longer relies Catalogue Life, List Prokaryotic names Standing Nomenclature (LPSN) supplemented ‘backbone taxonomy’ Global Biodiversity Information Facility (GBIF). structure data set changed include separate LPSN GBIF identifiers. Almost previous MO codes retained. contains 1,400 taxonomic names 2022. previously relied experience categorise species pathogenic groups, happy encounter recent work Bartlett et al. (2022, DOI 10.1099/mic.0.001269) extensively studied medical-scientific literature categorise bacterial species groups. See mo_matching_score() work incorporated prevalence column microorganisms data set. Using results, .mo() mo_*() functions now much better capable converting user input valid taxonomic records. new function add_custom_microorganisms() allows users add custom microorganisms AMR package. also made following changes regarding included taxonomy microorganisms functions: Updated full microbiological taxonomy according latest daily LPSN data set (December 2022) latest yearly GBIF taxonomy backbone (November 2022) Added function mo_current() get currently valid taxonomic name microorganism Support 1,516 city-like serovars Salmonella, Salmonella Goldcoast. Formally, serovars belonging S. enterica species, reported name genus city. reason, serovars subspecies column microorganisms data set “enterica” species column, full name contain species name (enterica). new argument keep_synonyms allows correct updated taxonomy, favour now deleted argument allow_uncertain increased tremendously speed returns generally consequent results Sequential coercion now extremely fast results stored package environment, although coercion unknown values must run per session. Previous results can reset/removed new mo_reset_session() function. Support microorganism codes ASIan Antimicrobial Resistance Surveillance Network (ASIARS-Net) MO matching score algorithm (mo_matching_score()) now counts deletions substitutions 2 instead 1, impacts outcome .mo() mo_*() function CRAN allows packages around 5 MB maximum, packages exempted package one Chromista relevant comes antimicrobial resistance, thus lacking primary scope package Chromista almost never clinically relevant, thus lacking secondary scope package microorganisms.old data set removed, previously accepted names now included microorganisms data set. new column status contains \"accepted\" currently accepted names \"synonym\" taxonomic synonyms; currently invalid names. previously accepted names now microorganisms ID - available - LPSN, GBIF SNOMED CT identifier.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antibiotic-agents-and-selectors-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antibiotic agents and selectors","title":"AMR 2.0.0","text":"new function add_custom_antimicrobials() allows users add custom antimicrobial codes names AMR package. antibiotics data set greatly updated: following 20 antibiotics added (also includes new J01RA ATC group): azithromycin/fluconazole/secnidazole (AFC), cefepime/amikacin (CFA), cefixime/ornidazole (CEO), ceftriaxone/beta-lactamase inhibitor (CEB), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), furazidin (FUR), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), lascufloxacin (LSC), levofloxacin/ornidazole (LEO), nemonoxacin (NEM), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin/ornidazole (OOR), oteseconazole (OTE), rifampicin/ethambutol/isoniazid (REI), sarecycline (SRC), tetracycline/oleandomycin (TOL), thioacetazone (TAT) Added missing ATC codes Updated DDDs PubChem Compound IDs Updated antibiotic name spelling, now used WHOCC (cephalexin -> cefalexin, phenethicillin -> pheneticillin) Antibiotic code “CEI” ceftolozane/tazobactam replaced “CZT” comply EARS-Net WHONET 2022. old code still work cases using .ab() ab_*() functions. Support antimicrobial interpretation anaerobic bacteria, adding ‘placeholder’ code B_ANAER microorganisms data set adding breakpoints anaerobics clinical_breakpoints data set, used .sir() interpretion MIC disk diffusion values Also, added support using antibiotic selectors scoped dplyr verbs (without using vars()), : ... %>% summarise_at(aminoglycosides(), resistance), please see resistance() examples.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antiviral-agents-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antiviral agents","title":"AMR 2.0.0","text":"now added extensive support antiviral agents! first time, AMR package extensive support antiviral drugs work names, codes data way. antivirals data set extended 18 new drugs (also new J05AJ ATC group) now also contains antiviral identifiers LOINC codes new data type av (antivirals) added, functionally similar ab antibiotics Functions .av(), av_name(), av_atc(), av_synonyms(), av_from_text() added siblings ab_*() equivalents","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-new-functions-2-0-0","dir":"Changelog","previous_headings":"New","what":"Other new functions","title":"AMR 2.0.0","text":"Function sir_confidence_interval() add confidence intervals AMR calculation. now also included sir_df() proportion_df(). Function mean_amr_distance() calculate mean AMR distance. mean AMR distance normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. Function sir_interpretation_history() view history previous runs .sir() (previously .rsi()). returns ‘logbook’ selected guideline, reference table specific interpretation row data set .sir() run.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changes-2-0-0","dir":"Changelog","previous_headings":"","what":"Changes","title":"AMR 2.0.0","text":"Fix working NA values Fix unsorted dates length 2 Now returns class integer instead numeric since always whole numbers Argument combine_IR removed package (affecting functions count_df(), proportion_df(), sir_df() plotting functions), since replaced combine_SI three years ago Using units ab_ddd(..., units = \"...\") deprecated time now supported anymore. Use ab_ddd_units() instead. Support data.frame-enhancing R packages, specifically: data.table::data.table, janitor::tabyl, tibble::tibble, tsibble::tsibble. AMR package functions data set output (sir_df() bug_drug_combinations()), now return data type input. data sets package now tibble, instead base R data.frames. Older R versions still supported, even support tibbles. data sets now also continually exported Apache Feather Apache Parquet formats. can find info article website. Fixed certain EUCAST breakpoints MIC values Allow NA values (e.g. .sir(.disk(NA), ...)) Fix bug-drug combinations multiple breakpoints different body sites Interpretation MIC disk zones now informative availability breakpoints robust Removed .integer() method MIC values, since MIC integer values running table() MIC values consequently failed able retrieve level position (’s normally .integer() factors work) Fixed determination Gram stains (mo_gramstain()), since taxonomic phyla Actinobacteria, Chloroflexi, Firmicutes, Tenericutes renamed respectively Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota 2021 droplevels() MIC now return common factor default lose mic class. Use droplevels(..., .mic = TRUE) keep mic class. Small fix using ab_from_text() Fixes reading text files using set_mo_source(), now also allows source file contain valid taxonomic names instead valid microorganism ID package Fixed bug mdro() using similar column names Magiorakos guideline Using random_*() function (random_mic()) now possible directly calling package without loading first: AMR::random_mic(10) Extended support vctrs package, used internally tidyverse. allows change values class mic, disk, sir, mo ab tibbles, use antibiotic selectors selecting/filtering, e.g. df[carbapenems() == \"R\", ] Fix using info = FALSE mdro() interpretation guidelines using .sir() amoxicillin, rules ampicillin used amoxicillin rules available Fix using ab_atc() non-existing ATC codes Black white message texts now reversed colour using RStudio dark theme mo_snomed() now returns class character, numeric anymore (make long SNOMED codes readable) Fix using .ab() NA values Updated support WHONET 2022 microorganism codes Antimicrobial interpretation ‘SDD’ (susceptible dose-dependent, coined CLSI) interpreted ‘’ comply EUCAST’s ‘’ .sir() Fix mo_shortname() case higher taxonomic ranks (order, class, phylum) Cleaning columns .sir(), .mic(), .disk() now show column name warning invalid results Fix using g.test() zeroes 2x2 table mo_synonyns() now contains scientific reference names","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-0-0","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.0.0","text":"Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, Andrew Norgan, Jonas Salm, Anita Williams contributors, thank valuable input New website make use new Bootstrap 5 pkgdown 2.0. website now contains results examples automatically regenerated every change repository, using GitHub Actions R Rmd files project now styled using styler package Set scalar conditional expressions (&& ||) possible comply upcoming R 4.3 enormous lot code cleaning, fixing small bugs along way changelog contains changes AMR v2.0 later. prior versions, please see archive.","code":""}]