From f566ec1603cf679d7afcd87545ec625242bc0054 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Thu, 22 Jun 2023 13:35:18 +0000
Subject: [PATCH] Built site for AMR: 2.0.0.9025@1d9ee39

---
 404.html                                  |   2 +-
 LICENSE-text.html                         |   2 +-
 articles/AMR.html                         |   2 +-
 articles/EUCAST.html                      |   2 +-
 articles/MDR.html                         |  60 ++++++------
 articles/PCA.html                         |   2 +-
 articles/WHONET.html                      |   2 +-
 articles/datasets.html                    |   2 +-
 articles/index.html                       |   2 +-
 articles/other_pkg.html                   |   2 +-
 articles/resistance_predict.html          |   2 +-
 articles/welcome_to_AMR.html              |   2 +-
 authors.html                              |   2 +-
 index.html                                |   4 +-
 news/index.html                           |   8 +-
 pkgdown.yml                               |   2 +-
 reference/AMR-deprecated.html             |   2 +-
 reference/AMR-options.html                |   2 +-
 reference/AMR.html                        |   2 +-
 reference/Rplot005.png                    | Bin 13287 -> 13220 bytes
 reference/Rplot006.png                    | Bin 13291 -> 13241 bytes
 reference/Rplot007.png                    | Bin 12627 -> 14574 bytes
 reference/Rplot008.png                    | Bin 20498 -> 19133 bytes
 reference/Rplot009.png                    | Bin 8489 -> 8634 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              |   2 +-
 reference/g.test.html                     |   2 +-
 reference/get_episode.html                | 110 +++++++++++-----------
 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 25925 -> 25819 bytes
 reference/plot-2.png                      | Bin 27045 -> 26554 bytes
 reference/plot-3.png                      | Bin 27583 -> 27940 bytes
 reference/plot-4.png                      | Bin 39089 -> 38860 bytes
 reference/plot-5.png                      | Bin 39706 -> 39221 bytes
 reference/plot-6.png                      | Bin 38916 -> 38387 bytes
 reference/plot-7.png                      | Bin 36984 -> 38783 bytes
 reference/plot-8.png                      | Bin 60587 -> 56802 bytes
 reference/plot-9.png                      | Bin 26102 -> 26410 bytes
 reference/plot.html                       |   2 +-
 reference/proportion.html                 |   2 +-
 reference/random.html                     |  34 +++----
 reference/resistance_predict.html         |   2 +-
 reference/skewness.html                   |   4 +-
 reference/translate.html                  |   2 +-
 search.json                               |   2 +-
 90 files changed, 239 insertions(+), 239 deletions(-)

diff --git a/404.html b/404.html
index d51436f0..2187081e 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 61d7392d..cd736b85 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 617f5172..0a1a1a38 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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/EUCAST.html b/articles/EUCAST.html
index a2e8e556..73ae21ac 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 a61f70d6..d042d142 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -402,19 +402,19 @@ 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          R         S            R          I            I            R</span></span>
-<span><span class="co">#&gt; 2          I         I            I          R            S            I</span></span>
-<span><span class="co">#&gt; 3          R         S            I          R            I            R</span></span>
-<span><span class="co">#&gt; 4          S         S            I          I            S            I</span></span>
-<span><span class="co">#&gt; 5          I         S            R          S            I            R</span></span>
-<span><span class="co">#&gt; 6          R         R            I          S            S            I</span></span>
+<span><span class="co">#&gt; 1          R         S            I          S            I            S</span></span>
+<span><span class="co">#&gt; 2          S         S            S          I            I            S</span></span>
+<span><span class="co">#&gt; 3          I         I            S          R            I            S</span></span>
+<span><span class="co">#&gt; 4          R         I            S          S            R            I</span></span>
+<span><span class="co">#&gt; 5          S         R            R          I            R            S</span></span>
+<span><span class="co">#&gt; 6          S         S            I          R            R            R</span></span>
 <span><span class="co">#&gt;   kanamycin</span></span>
 <span><span class="co">#&gt; 1         I</span></span>
-<span><span class="co">#&gt; 2         I</span></span>
-<span><span class="co">#&gt; 3         R</span></span>
-<span><span class="co">#&gt; 4         S</span></span>
-<span><span class="co">#&gt; 5         R</span></span>
-<span><span class="co">#&gt; 6         S</span></span></code></pre></div>
+<span><span class="co">#&gt; 2         S</span></span>
+<span><span class="co">#&gt; 3         I</span></span>
+<span><span class="co">#&gt; 4         R</span></span>
+<span><span class="co">#&gt; 5         S</span></span>
+<span><span class="co">#&gt; 6         I</span></span></code></pre></div>
 <p>We can now add the interpretation of MDR-TB to our data set. You can
 use:</p>
 <div class="sourceCode" id="cb9"><pre class="downlit sourceCode r">
@@ -455,40 +455,40 @@ Unique: 5</p>
 <tr class="odd">
 <td align="left">1</td>
 <td align="left">Mono-resistant</td>
-<td align="right">3262</td>
-<td align="right">65.24%</td>
-<td align="right">3262</td>
-<td align="right">65.24%</td>
+<td align="right">3208</td>
+<td align="right">64.16%</td>
+<td align="right">3208</td>
+<td align="right">64.16%</td>
 </tr>
 <tr class="even">
 <td align="left">2</td>
 <td align="left">Negative</td>
-<td align="right">923</td>
-<td align="right">18.46%</td>
-<td align="right">4185</td>
-<td align="right">83.70%</td>
+<td align="right">979</td>
+<td align="right">19.58%</td>
+<td align="right">4187</td>
+<td align="right">83.74%</td>
 </tr>
 <tr class="odd">
 <td align="left">3</td>
 <td align="left">Multi-drug-resistant</td>
-<td align="right">446</td>
-<td align="right">8.92%</td>
-<td align="right">4631</td>
-<td align="right">92.62%</td>
+<td align="right">484</td>
+<td align="right">9.68%</td>
+<td align="right">4671</td>
+<td align="right">93.42%</td>
 </tr>
 <tr class="even">
 <td align="left">4</td>
 <td align="left">Poly-resistant</td>
-<td align="right">258</td>
-<td align="right">5.16%</td>
-<td align="right">4889</td>
-<td align="right">97.78%</td>
+<td align="right">243</td>
+<td align="right">4.86%</td>
+<td align="right">4914</td>
+<td align="right">98.28%</td>
 </tr>
 <tr class="odd">
 <td align="left">5</td>
 <td align="left">Extensively drug-resistant</td>
-<td align="right">111</td>
-<td align="right">2.22%</td>
+<td align="right">86</td>
+<td align="right">1.72%</td>
 <td align="right">5000</td>
 <td align="right">100.00%</td>
 </tr>
diff --git a/articles/PCA.html b/articles/PCA.html
index e37dbf8a..07fada0b 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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/WHONET.html b/articles/WHONET.html
index 6041476f..3ea98136 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 a8d251c1..aaea2242 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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/index.html b/articles/index.html
index aed198b9..85212860 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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/other_pkg.html b/articles/other_pkg.html
index c47ca0dd..ca1d7e79 100644
--- a/articles/other_pkg.html
+++ b/articles/other_pkg.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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 5f272370..24288f46 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 dbf384e2..6147b3cf 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 a39de688..c187aa09 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 f08926cd..5b436a14 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -779,7 +779,7 @@
 <p>Manually, using:</p>
 <div class="sourceCode" id="cb12"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/utils/install.packages.html" class="external-link">install.packages</a></span><span class="op">(</span><span class="st">"remotes"</span><span class="op">)</span> <span class="co"># if you haven't already</span></span>
-<span><span class="fu">remotes</span><span class="fu">::</span><span class="fu">install_github</span><span class="op">(</span><span class="st">"msberends/AMR"</span><span class="op">)</span></span></code></pre></div>
+<span><span class="fu">remotes</span><span class="fu">::</span><span class="fu"><a href="https://remotes.r-lib.org/reference/install_github.html" class="external-link">install_github</a></span><span class="op">(</span><span class="st">"msberends/AMR"</span><span class="op">)</span></span></code></pre></div>
 </li>
 <li>
 <p>Automatically, using the <a href="https://ropensci.org/r-universe/" class="external-link">rOpenSci R-universe platform</a>, by adding <a href="https://msberends.r-universe.dev" class="external-link">our R-universe address</a> to your list of repositories (‘repos’):</p>
diff --git a/news/index.html b/news/index.html
index 25f416d3..00e7dfb7 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -159,9 +159,9 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.0.0.9024" id="amr-2009024">AMR 2.0.0.9024<a class="anchor" aria-label="anchor" href="#amr-2009024"></a></h2>
+<h2 class="pkg-version" data-toc-text="2.0.0.9025" id="amr-2009025">AMR 2.0.0.9025<a class="anchor" aria-label="anchor" href="#amr-2009025"></a></h2>
 <div class="section level3">
-<h3 id="new-2-0-0-9024">New<a class="anchor" aria-label="anchor" href="#new-2-0-0-9024"></a></h3>
+<h3 id="new-2-0-0-9025">New<a class="anchor" aria-label="anchor" href="#new-2-0-0-9025"></a></h3>
 <ul><li>Clinical breakpoints and intrinsic resistance of EUCAST 2023 and CLSI 2023 have been added for <code><a href="../reference/as.sir.html">as.sir()</a></code>. EUCAST 2023 (v13.0) is now the new default guideline for all MIC and disks diffusion interpretations, and for <code><a href="../reference/eucast_rules.html">eucast_rules()</a></code> to apply EUCAST Expert Rules.</li>
 <li>The EUCAST dosage guideline of v13.0 has been added to the <code>dosage</code> data set</li>
 <li>ECOFF: the <code>clinical_breakpoints</code> data set now contains the new column <code>ecoff</code>, in which the epidemiological cut-off (ECOFF) are available. These ECOFFs can be used for MIC/disk interpretation using <code>as.sir(..., ecoff = TRUE)</code>, which is an important new addition for veterinary microbiology.</li>
@@ -175,7 +175,7 @@
 <li>Added microbial codes for Gram-negative/positive anaerobic bacteria</li>
 </ul></div>
 <div class="section level3">
-<h3 id="changed-2-0-0-9024">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9024"></a></h3>
+<h3 id="changed-2-0-0-9025">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9025"></a></h3>
 <ul><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>
diff --git a/pkgdown.yml b/pkgdown.yml
index 4758f2c9..2eb988db 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -11,7 +11,7 @@ articles:
   other_pkg: other_pkg.html
   resistance_predict: resistance_predict.html
   welcome_to_AMR: welcome_to_AMR.html
-last_built: 2023-06-22T13:15Z
+last_built: 2023-06-22T13:30Z
 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 ad07454d..ea4772f5 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 1d0f172b..68cfc685 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 86ecbb8f..f9bcd55b 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 cd45ef97fe1ffa6efede0818e758bfa48f2a21ae..38c2cb41d89216fe21b0f1e817c42f55e20a9c26 100644
GIT binary patch
literal 13220
zcmch82UJsSn{5ic1x2MwR6qozNbe|$7^-yXAktevdJUfuEEGlQy-1bbYx04BN|#;}
zMCm2;Kq&X{{pHS@nL9J<-nqj{R^XJJ_ubEa_Pd|w99}=xQl+P1qXB_H^oU0fbU`36
z{`^fv0c;5#ZjA#zD4wdTJ^(&}pTql2p}+?<@{#d#5Qz5T`5XLWCgd0dx&}f#xTo)z
zx<2Ed%I<yAwPm!wv_JkM<;tz!vFrkm?+SHa_xzr9?HWH#wo(Yhv-t8QMn6<`W`{EQ
z12FjaMY79`<Rqp`?{YZE|Ma|kt3|!3rM4*r2ggy%vB$djq&%x^DqEa?-{od^6L+W~
z`b`d(^o{OOEH~o+^`$Rk59-CXS6IUyw71T5)HagpJqv3Ca$}1TjUdE~A#_-^F0$vO
zw6(73pL^7SJv=qOKgb{PN8^M>rd%ne>3U+^#vrElnpJQD;{aI?MJaf+H+jLj?dBjH
zy!c?Kg+7)3Gvzc@Gpv~`NJ#Z+Ad_UV5O|h650ukb&QXIsK>1@+u*UwJ8O}qlclz(u
z-ow)Bn2tdTwersF#Me)Z+l6DoEtzI8Hyd$upCJ|$LKLGbxxrNZu3|`Km+`~F@}|l>
z!G*((zMUHger2V$h#)2rG~wlQbG)(@QoPp}C60s*fLu5f^2k}3omb(5Ud5=runU7H
z;^nUhbFCgOPmU|{RohEnJ59b~Wb4lMd9zhj5Y?0|Tlc1S6<)D?dWAk^_~qg?lE+Dy
zeKx5BEsRZkqHsUk+8g`EVSHbPQ;(8^IVzOTS#hEpOmGrkbFQ#ve%OA>$ZpuPW4;EA
zY9-tQ4f}Z+do#%Itv1(s)>g$h!8zL+^OnAwjG$Rzy^~|D^qSr|I{Yff4E$0`S3t$G
z+uQJy%vZl()m50g5QDuqv1tmF6ERI}ez*5S@64raIqcTw<dB*k94uaT;B9r;5*B<3
zAr@CyPk_zV{<>&flt5ZQ)dW^eIc5WMSKvB#^i8t1yb4GAj?**W-Gg@=uB{xTvlEW?
zAA`8bCHEjs_aCi?5>-h7%J#JPs9u?QE9!i)kqcy~OnXGtrv%1j2K&G9aNIqpUfQIt
zm`n1J<k~H=zmOhr;3!r7_3%<r;rL=xasOL=Pm1z@su6T>z}Uroa>yFZG!4hyF4&}3
z`dL-YZz4uQ@;0emE+mx9ddME*;721}fNl2VtL=;IOMl_=HU~ojoBCALQd0MS>k5kj
zSw@HBI8LrAj}Heyu1~YyQuLbt+3&a?mfN9-GY_`NjTJ+UOtnx1r4i<o$P%y6<6f2{
z#B5H+&ysqZ58|v&&!SE+22xXgg8OIV<7aYSb6bbNWt1rTxOVXwWRgqDX~n43?6b|c
zlYVr5!fdsy>lrc!Os#h#mz7CL!m?1C_D*}vp}55+fq%^GVcQ^<i@GJ_H#!}L?u}BX
zRvm<-suO3H1JKYHlec;i*Ww?#LN)SQx}+{ihYzf-XfS2vQxMFR%Qm@w%|1vksam{d
z%5IHWkw9k#USTo+5+qvs=G2Yzq(xkEBX0a`>SFx-Poe4)tKEagZT4e^*f8UvOQay*
zJ^%M=eIP^k(Fa7n@7kyabdHrX75qz5M)xs_@tIBbay}G8E}3i7|6J2dWBhXii(f=J
zZpTjfiM+)#cHFDU2_>ibCvDn6vU)ww-wDzm3nPWE*QaL@H9PtTXXjl%DTrUcePDrp
z9QqNNIa2o4g;}|LmTK+cI3^G@celc&LmoHdZ}B(H8Mftg6E=uYRuwmDCsj|begHP-
z&Td+@ZAzz5Q;zIDB!T37cPdDOTWiK0)iV<|jn42k?R?J~B?wWObzwqpSZCUJkh{<!
zhbrI8404>dkBei-JK??S{PX%`zpOzY$YLl!JNM+XMlZI|+;7d;YyF_!T&J)0d9MJD
z{Fczo)Wn>y=zcvhYo-GS+0$o*@O8{kUtP3qD$Oy!kCKXX$8Y(z!SST!s>LadE@5)M
zHWl70kkGt&|K@`mX1jA+1*6JCoLbUMW8$*uLOU8((y{swZ!|8%O`G_-%LJRCCLcrm
zCR%j3$W;ewZ#*2IqQ;mCMtIhyt^58uUAEybf+~Z~gu29YmWe4pL(pSQRo=H%q_e)l
zsq@p&1k#+PiYwiX;|)1Cnz@5NCnQ0N7kcgClc77)F$BGmFtncate({*1)i!cp|f|{
z?{dB%N_Zi$EPyYR^0Vh8Lp`ToGV+fIo@&dUYeP94T13Ic6LdF8GqMxL8{}~Eo)9>u
zN6oB6lv_`rX?}}z`qR$p?r3vWz9nV7C|ey@mg;28e)rEAM3>m@tLmf%v~OS0fm&O{
zS`&Im=!y+xo56?5U<Idq*6|NWl}`~l$sw$oRqS*3gCysEU1T){pS_6}dtN#pNM%H8
z!Xk)UuZD9QxJ+$znX!yWvX4uto-|ByX#4dp4ut5?P}!$Abvwb^+#}DJn&3(^_VzR-
zHjK&}7HzDJimddeDpcz|mt%jn*id0C`wZGsuxBds={(2rENuv#Qr^^_d4slum&X2i
z=H$~CdTnH~nA5j}I?~w9Vr9Kq=Du8Lpt~7V592lKv0}{Pl}sCuW6_d!CtOqR$Ezv3
z+e0U%B=Wz`K>MUlE@1i4oQCosT{Nfuf~YV2IvR05Js@AzoBpN?WV7dPo6eV{-eh;x
z_6U&FKr3~yU>kFI&qUHIrza1oVomVEgP!!S<8$t?g|N?QSg5019h45X%*|bz(qWdS
zQex|tmEpggo=eXia%vDE1n#-FA<#LA*JBUX?l5;QFol-pskZOzp=e8N9>g5pvR-Y+
zJ#F{pO7+|!p}Q}4YUUC0@N8{K-$WD4r=!Z<Y^SvX-Q@yJvTIGL%0^@>=3Xol$<<p@
z6|CZhn$RLkJ+A0$4mWo3qA5=9QQ_|Qq@lXBS<JB$8SyuLwRv#67)qfVYw8+IieKEX
zr(R!v{iI|Hq(|Knr@SZhY5pb4H8Y3Iq-aaJPB0K5YgEr+Y64?x&~fs>2c>uW>46LO
zN=fOY&}@I(QiC86fmIpiM4m+{|E7Ed|8i-Ii)!&{9<3|vwL)H4xr|Rp_2-Fx?^4MF
z%Dz{5?$J@E5y-egKTX!Rj!ND<=tZd=Gg~313FR)vRn_`roh<Lq@yO*iR&)uB%fYga
zlU(Q;*_m+8{u`b9etms8Cu&-6m;AI=_o%zmolU4rc~_`YibL7i)BU4|Ravn7`Sw&P
zPwH;&22ns%e<yBKp<$#`Y`!B-KSf4rQ($o3iHfr1_BXd{>aEL|`_eIlmuT3cd6+7d
zLPMIvW=HR}HRhhyA6gIPUsZ;}1Fz1t9}iVnPd(WA7EdAcdcj*U%c#X-R6GR|8g*L6
z6XbV){MRX8+w<gx$^M64Ywz8)mcs1vg!9&kHmw>&<!Xkk{6nkJ`R6sp>cl_Z-*C~*
zxFEQgH+Z(SFE)u9bA<hAW?6LQB7+wjXHBs596nEZbvzn9dq|^vEt)sg$4k8}Z?<Q5
zb-=?}RWWIHEr#mPj5|!yicU6At9#<|W7Vrn7Wv|H>K!H(9wgOnZUoOAiux47bs~#(
z#&xgh+&~3uy#)@dO^0KotVLw-#p{pY`SUuZp|4ItL&KJRL0ZwBu4+rvQWx8-E@bgC
z<BkvZ3et&+c#W2=#y2vA)d)1Fon4jFf@pAP^akc0RsF-Zg{dpbFgX=zQOT+#Pv|6!
z#ff_j?*4jmT-YR>c(Yf}5%W&D!nF%tWxLC9{FcC!v{p<8aGr5a9V@Er-mI9sub~W6
zm<^e})pnt4A|*4$5!SVZ=KM+1<^fH@0^&P!w@aO$foDyil*i@0Uk0*u)27PlTOD;k
zkfG~V&c*?kypc9j>&IUywc+K8x1p!^#!aB+7?GFUB^7ITKjbR@sX6c;``O@!MLURq
z7%$o2TkB&Maomm}{Bg<gUm|zR-Ad|;IzaK<HR`vSnps|OBdA4CJP0)u_%=cpLT81D
zy=VpUZ5Qj87bDisN0T08IVLA3I~|PM#N_ZBeBc)z3m9OsJXjvem)fYqg+$oFGGv}F
zpcD?Kcb+4Lhd+4j`{QM^f{rG224u{AXT0YZ`qJb?#_DZi6!!NjY`RL{z(@;Hn8Rh<
z+3A5Vs3$`S6SBKBC<US8kVc+vb-_d1`$P7tLZu`nYb7Nmg)$U_1LnIF_bc*xY<4s)
zT}s64`#1<AWg&Y*G4k7A*Jq3ke;YX{5Pvdbh)4Av^E9QDOuSn19-Wb_MhgKmU=veQ
zz;Gh5)<b!kq}_Md@6WcJ9<B1iy$0^>e6M?OXj`Vb>?OOHuvJ@ID-?{_q+eZ3{!Dpj
zG2hy(bxR4#Qjh;E)_2k~KDRf~o?$VdztbnTX(nO&{bQF{`}ucowj9jLa;Zj}rLoq2
zyO|=t^<ALMY-`liUBabi#4y1!VEL0aj721KJ<%rG|7g2g7`GA5?ncD;H5~#OG^!~%
z@l2%^R+nHI;*bBvo6&rBAEw}Cw55(&h*=j5LC#Jra(ZCvVI`E>3Q8Ee(a*+4=D~X-
z<YO;JM@QLEL1iTOke!sh+2Dg2Z@d2V6D9Qop^`Ll#~-DXSG@+>f1Bmi6P?W*6ik?Y
zJJrSZ$seRXkJ#Mb0=`e(GR>F-jMH4gdu2G(Hr%%CpR>k%1KlS{Ri|P`#_vtkX_v`W
zmzI>+2=yi2vB3lH*(jL$CtX(%l#;=vxUkT%u%tv2x(1Mi*1jjP!ejq<Tl4I<aH#*!
z%zH2LqFL_zRIQu#>}~{=VNL_i_QovF0&8k&>V`)~W-j5#J}PXKw=>Aim4%+H4xVqH
z_3Rd06*8$VD6OsCADx_>GzB2~AchMet%skpPAgGlju<61OEd+pf83!Rvi(65TnRVb
z=53&4k<1P4?y!%9e+-s;mQk^{?A6$gaP};rWIePv=<MtqSuJhaShH>quZd)ravSND
z!W|Q;9f!iNdVIN%@m-^8E}T7tQt^1wt`i=(RuL#JDQRI~Y8tp|n_ync7v$HHbWTQ}
zDc6G<kNM6tF^7T7LS_rUx%h!CiPOXW&{mxwy`QNv&qw>x6@|tclhlJwdg@Aln?x5Z
zFiB1$+Y#_HVizX0czum6Pcuc*r43Ep1vT^NxSaAVy(_5O@^eU3l%Ng9?^ov9RC$_j
z!K#bG*FCoTI1Ap7847qICue5>_d>6rae=btN>feEULjzD3&%VCm`qDdh$9LBD>cR0
zQ#15n#y2Kpy=H7Q4agS6&O&c7&bh2bOKBm|Mkq<vdu1Vl!}BZj1Fv>#L2a$1!t;e5
zaFS$Im%`cc&I>J>-ybKo+$%~-N;2GCT{X|?1}r-ZNll>#O}OA=Ab_~-3HuBM-@TO)
z2>_-pV|!rtOF#@r!d39%<G;h*4pR#10|qK;1Ek0)$2-NnVZD5Mc1aiSyhV;0Q(Ab4
zD|iDS&7FSvogPE?=B>`cBu=B!y@m9^jfU--F^j3A!^Mm<A7^K0Cjcnsbnj7PTr{Th
zJpYkXu64m8IH_4bo9?w`vH9(i6!P>G*ko_bIojteX$6wpROw*)Iquu+mz1(_;L!Ql
ztG?47oz@XoeXx<NVzqwDpAtfnlN86cnVaGY1uDm0n3Zj1MR3a2m6b7l?*(mS3j(~I
zSevMl3!0kp8qz#FJkM>9#WdgO)6u%ty-(*_pn~Gf2=ZJ466wUmhrJ;$bSW#MQ(=GH
zCW7Ir>@MC*)_iDm)UfGk$D8D;e#O8}-~s`^fTLS>6iI74{X^PHCoeVRCg!yi4}UQ`
zJ2@#5MV?eU=*$Q;t$F_FNfPsQaCI%o5V3B9V&|vaF(*o5aL=S!zu@3t+0!SN<DC`0
zem!V}Y9xy<D}A`Bd8B;~*L1xH4ztm?n#U-|<6?&~-FGJKWSkv;Q|0u3b}}EMbowXJ
zZqsbFx5%K_sdmO^3T81M6SA9g7P8gBOep~f??PbIb4?|e@$&efohKDfRW$E}#XFmK
z*KiD0$1Kp`lqJqdt4+r$`pZZ!PvbD;=ErTpeg?U<^6IL9CjPO2cPDJxsnT0d$Ebh*
zytyQ_GFE08FkGPXoLSIh_s@ic9?I^y2)Lqs%id^;ch^<lNO1k{c+*;i!(SgVzPWLY
z?KW+;lBUk7b@eT?uwrdZ&EC$k*U?unl%hI{L&kG2Cq^+~=dEz7-*2uM`O0}(;bsx(
zA+7y-Bg<g#fu9|3Bc63?r_1~AY|VFJ>Rl!(ZFqq{`Kn|TPQ%qdwUL^$va$sKH+ncA
zwyWm;zvI~JYHRam{TI_hy5j}eWv#HN+60RL#~nawhi80o3XOo+u>=uof`7i|9i0Ru
z7uUMg$$sGE<aC4|_HP(X2@emiT}%&j%Rk&%9P3XK%Rha|Y%w0PT2g0WxFpdh5uD|J
ziF7aJFDOCY-rgmLli!Tm|D=Qmjms>i?&PQoHT){LEMOQ!@HceuSK|vj&wpXF`tn(C
z<pvfkc3WKFAaQ^DkF}}cu?0c6gwt@uY`xOSvi7FJe59Dqw~^5}Ba6eX=lu!?1$lXS
zlPYho(9byLr^R1N_O&}YM{R#;Fo!vsQz1YNkPmm&C^m0u>{#o5jXA&@_jMfREQ+3<
zUf^7>VbR$=oWA%l%0A0RuVs^@llm^sz_p$TcnI-BR8-WM5)uD`{NROa_25H+`53{C
zq*e3yl1F7k;su!C*H&}?`Qq+3<}jL;4OI@0FKa+f+fM=UI}QNAIQ@1V5TJweL`MQD
z6;hU!HP^|fm$x=KK3-1+=r5r0*2{ycaD~7jO{rj;UtizriIGU#B~rl2v!Puv@X!qk
zb{FIbf;Y`;2nB{t{w&)92)=k{YtmCQgEhgO6LdeE?vT&?qqB_Y{P{B79s$GL9<!-*
zPL%iGzWIU@W)T7ey5(F0W~%|VaT+`LZ`Y&=jx+~!sN;@K0f?sq;ZGDje|^ncTb^IN
zS32eg*p%L2$F#>=N0TG(6yGx2JQkJ;KHBXB@|vUvQzYUyyJa%|TFA+n%?MjSj@LX@
zUB8l}+l~7`OuZzo6sN{h$uI?t9~Lxqsp!~tqO~mKt)RS(Sm|B^tH%x}uwY}kd9Z*t
z;{#Ka1IBF0*}g4+7S<NaT_fOEO7T|<bJ&O@&I=sNy{FQPV7`XX<umBM_k>rMh%Y!&
zyL<zo%cI}j|L!J~9xY7P;1<hWNGCh>W$mT|Lbps;5cB#fgZyKwV`uEn<sy}H13ApT
zSKEDo6OtNlKW&8{!+v~Yz-2J{sz#N;ub{OwFH4`kwz{@e!G898u-F0n!>B}M(||JF
znv8I-oj+b$g41ssr08l7>M<Z?X^7?*hGuA|6YQrKQSW(*9~CLy_nq(=mX)&HdOi5b
z2}ydfY3kh99Jdag{1LcGcq>r*=#$#c%t=}x+#%#-Ov)Vv{;XJ#4|Mo0F=LmPMn^n!
zH{bn{oP5!3{QH*NYkhul9vZwppL1M5q7$`M=s9e9$5+o`D#$}NHDl|$`3+xkBQ8G{
zRKWK|Ybci9FnAQJe|_X4Hs4qDbm5Kub%gFqeRU83bpF2v`rkTW_1KRf=#$u7vj5=F
zl~|!`cH&6xasiQxPpIT6rWu-3tjuG%<IHMyQNCac2nA#e@&Q$NSAoDGa;M=3H-f*#
zX&G!u>q6TcCvj|zx5IB@?c#*gVskwU<2eZ|_!jy3g@^Mzh!u$<9#mPhTaIHHANgl`
zGuEgN+=XKW@gPOGpG0E~q!=ZMm#~r~%zWVocF+~s!jS?<M=y4|U0yUHR;X6*{;6#d
z&~XHOy;%(za{9;8=v7K^{x4Q3Howf2b+uT1-4PaS0|)tW>8s_9D7OX<1TnaR8}Yh0
zJ{X(Uz_$zm#`*~uYX;Tu6&6d&LS=455gPbgn}UtXlFD<28?j<g#5XM@EV5Dg#sEN;
zTwfjLr^Y)UQ~c<1EVsd<8ZyFiS|q07pFsc^%l8+l|L?H=dtvf_3`>D}BPy{5bsuFO
z_8uFEwL~dF1*u1Q5W3$CfPo1BXvt+#6EBItq}lvlGWG$ZVH^1YZDkmL&DaJ~f|i0A
zAd2*6;GmjUKAm8Ax0oBG+^YBc?UX&#y884&H@29^O;2~5jVkS<KJ}CtNZzn*Umxv6
zjdw*!*&N`=_urnLF(GL?$O%ZRD*5?QaJ+XN){|`pgF^&HvHEn{y&%=aXSW;{n>cL*
z2cDi(#g`pv@J)WuH>h=*_G`yQPP^tG=}Hhcf?=(=W{0iDPfpq$h4G-%tH|4g)uq$-
zSa{AEC8+=ML|@gQU;-C4DZco}+-i)=cwo;!Y_-JmWtxpZ-;kO$i+B1@quAZ+1J>*r
zICYEm7v#lVEea=fw*W%*Q=C$0L~UTmH6l-Ov_!LuDu`HpAs|8CQj_kgUSOb0VPf~S
zym1-W`ViR4>PGRNdyjg9_v1hG=>JdX{`I#$)&w_;A#ar5^E!Ks_rX8Q6e`RH=okT@
zJ&&>kM`35MXCO=RQpionBDYa8H{z3#ph7nStA%}vcglRt*x8NhLM36zRjR9)kq^>6
z;Na7lw4bA_<D1z5x+%Vk6%EySLxP*19Te#k^@=2U5DMx5TOF(%ch9z$Hoq^qi-}}^
z^+|^;EU?zW2PV^guINfwHhLcjc6kHm9{Y8E?!aV7ghByIu2ccAx<mUwZe)s-@=y-C
zY3LfQ{NrbG>L})&$SF3K3E=EZ*S9qkK8sm0^v(sFqs(B0?xv0)3Dr;LLummWrSu_h
zg;j$w;6AldaYU?InMnXvok~@q%N0f!)mdZEd;<~ty}$$_ozd}^-plBB18N?7bm>1+
zr~fQt{x$4YfHMAD%>!<e_*wbAT#@E{lCQiI%gyKU65_{5xIvJ@-_6X5^wuD^pg1Mx
zpx70jZ{`NnCJWSh@d>juy)?@ch#Axc_iet>nGDHKkO8vKR=iA~bpgo9>=jwo42pE<
zDKqhUmejF?)dl1Q5%MPn*(N5at}tPcB_+cRG-2FfR!Jy3>OM+rJCdFJ*rT^w-@Ru4
z6<Aw>p-5oDErCbfXspMw+EWU@u3Ixf8B}Ebg<$z<Wz{GluR+|k*hp!#*=mqk^!^GZ
zEL}&=0gw7o4J+wR$Tt)=ZoE48T!-Jp9&ARr#*oSoL|4yJufP^^5vf#e#JXZaF@0sG
z6Jp7~?GgG4&_?P=vz;Hqru4?eA;Y^Q24jr=dhqY5n7)?v)-lS2q87!cyGN?Qc4>D=
zYsRr9F0Q@3^4{O;a51oAc;o26dZ>@%w`iFpk3ri_!JwmtFc$1ewz9yX3KoK|!g5=2
z;Z3aWh`{SX<5fL-_m&jQbi)pTh3n4C0Bj7HS=W#0xxK>D)3_awFe0`{D+_d@cOk}I
zQ0MCM#TqVzZp>o`rriZ>LRI)xdKbM`Pe7R2Y4%W|v}?%{YeINOI%`Di=%Xx7!V|^j
z*A4V6Mt?tqoS=!uopoxXJs?^3w}E5sW@!#Af?yyVc{+D$+zP!FZaV=8)u!Pslo5z2
z><)GkD{tk)^9HaKbpn^Ld{&fzqAEI1f2=g%M(DyH-$G$vK{Q12^rxD!xv~70u=y8C
z2b(IDYaYc8+h3BU39#!ZddFQD!*>bG4EaDkM#h=y4crQG&K$V8)Sa_M`pr^z&;R>-
z?n3ulm#``NpJ@P&C&rrXn#6K@YubaGWe5uR$)!`FyO>JDzhCfx(hbB3jgAQy<VsD}
zjpZ&0Qw9f-&w)N;euNn0E{1*hZvK%Q(PEwj;?!K)g5>64YJLl<#^$zWJqF=GK|Dv8
zD5Tp`d)R8X88DI-i>!?6nve}H4)h4z@5&Q3X{Bmzgb5VjJ5M=mP8V&1BFD<b-2ztY
z+0w@#xYnuWa9u)u^rdn|g5mDjB5FR{V+`y&*a|m^&E+f`P{iw?XWbX}b?|IfU82Jt
zSLQN>QD@|>3}$p@WT}kw=PUZHVQ6}?&A2f27`0H%CPeA=X$F}KwYbWG67-n4zUY+?
z#RZ|P#O_21zQ<{7oHJ_6f|(6pTyGY>|4|mPIe2REe)z>D8ob#oSu{nf$xm4evd)W&
zNFz|O&AbUUW!PmKX64`p7c%+58HmC75|}=8+-*Ellk`cKXTpH6ux$Xfcrv`(JBkz!
zDHE|9MyV@S&Y5&Ya*T$0FY5Wa&HXgkD{HOz6+Q7h;Y|B{u`+%Mkq$HyoLhU+|1m3i
zh)UHgl$?0QTJJywebV{?)&0h0F>5Kl`#tunM3Julp86-Yyp8IK$rr2YJ9=BV);kIA
ziib{RM>GDI5EOUCAqd1Ief}&!&54k_>(m?^=cA993_R)}=Xicp9Ud!wv+ySkIl(hi
z(Fb$c4@3-NT_H*lc-rh1%yX=}Anr_m5R*lF^kQ?r02ruQdRfbsvtQq(1Qlne0MXPk
zIshBBImvE7;{l)n)~V`D@BINJjv%o1v%ZAv=U_Fl>FA7vH7)5I-f~vRwVR08#)8K%
zKXa=<e8YHo2AG*KT0fo}F{58V8AL`<9xXQt>yIzv0Eii`3_jLYrs}#%bzB_u8(_H9
zrAe}2I)Vt2Z|)cS)WvA6*&K*BV6TfW)8NUmer*lTV-ySEDgm9p2x+e*HpxL`L(*Ii
z^3B@jT>|pre1s&X5T9KZWRSQE>)dz1o;%V56B9t4pfDHvp!5WJq;A98zo%agwSone
z5zik;6~M$-hXXLtqr0JyYA_!ji9Zq@12Uw{XzA7x0`0sT0$YN~)7~amGze=1<Y5Fj
zSj`H!#rUq1F(iIh>z^rI21$WD&jGOGf3HkJ;V3B#ix`2q#sW#jN1(O3Zzb4FmIZX*
z^#H|z<!pua-*J1f{SnY0+&ckO1e7*Rli%zuHzN39spi0@?F^>u;!6OT1TUXE6sX{C
z3&5KPYh(pu5o`!)m^Y0dV<-h+bZxiyP<32pw0`n)$NgKR`R>PEJ-}^UP!%dI>}r@)
zSWKLCI#3kdG=dRz@ZZNzLhWWK$6LO5e}<FJy3k@s1;As4As_6Ys#NdjSUpYmn1Z@{
zRVgBL3&q7<bS;gZKjKT#sLRW6G;Y{_uUl*E)&TJ<dt)>>xPcz%_oEok`PwDKb+)i_
z5H{lcIDxy63@GLq*lNbUbdOCwt%|K4s|=EH$8AM~R)01-d>t$P<oZZ8%ult=J0gLx
zwDqHos<fcp9gDYa4Y^dLcpe0`sq;>Zi04?E+K<tdg9O6<)zDiA(>Q%WaF8G}X!lIP
zc)pb?)o=pPY5p?6(0rhYB+<Lc#&hq9b{sQEJBF75R9L1y@5Ptd{JRVCf47IuoP_#m
z0S~Ce>N9vFm>C-&1-*BIT&-vZXo9M;|6v6!A*XcHNfO80c<anhKmW0H9tDTWL6ks-
zD($9Wa*YFh_pq=1J4<MfYnsUSk<hN)G7P3Q&&R5e&1__})@tMX!im~QdhW`gi02oB
zLVc%vU7$lbIy%{GHCKTRRU5H$e=G=Y<{(mta3)fuQcmNdd^Tb@GrH}=I^7J$b|l>7
z{jhd*8?7Ttx)SyM_lFjH%#Djixeem<op9?R0pD(Za&j9@3v~z}l?F;-K^vKXYnqp_
zGHN@WtwJ3MDYjmIl59UsWA*qzeRX05Xr$Vhm(Hxs=%uKAQXfssb^1_xbpZ1$YGioi
z(Et7Y8gdadV+*97d|Y(S1PIq#Cpvtj3{eb7En$Oo%(<)>iT;~AC;y&@`fmvt%83R)
zh@Hj0TRPpx%3#wGmw|ya0QGDrB#}CZ-0y-k6;VQjk|=}p(|rjz_`gMyY@EXH#Q;+X
zjO9KRJ}_(wCHH|}D>hfRI3C0aYi2!BqI7^RbZ%^#J(G(7*#q?<4bjGzR{!Td=fvaC
z#aH1+mx0P%XJ<ufvDB<Zy>Rjah%KDHfq!HG`9L!`Se<Xu*|et8vitjplCyE;uQuK4
z{1qKR@NuA(IX-Ra)bXzD5r#8S=b7B!ebky;n3~zVl%!?d+;DFfgP_5S`AyQn58WCb
z+uWl)_J$E(Ew}`7dOWuJ;FMO(&vsilJb}B{zyK(433Xw@og0>{q_ao(-S6>$?Dzwf
z9Z>-v;omt!@wwCr(DgWTpzx->6T}0^zcv+cD=XmY|BOriE5ZeNAWo1AC0*|wxBl<(
zKr03qAjqA%8D>V`3{6d!IQ{dD5fC%h5gzlqzap@_fYqh2;um3+zWm5HE6tnAI=x#G
z8!J(u1NbMP^qXapzI_yW87YrsMbZ=YgsQ6)%LCIrOhICe#u<PN8vr=pvc_$;Erqa2
z)7G;PB_5kTlhb}sXBJKN&<FDXs3r1E_Q9bku+0N<Y05;z-Y_3R7oo3Su0Uz_&VCw(
z>ZBP3MmYhD5?XzUrS9|7^M(m{<Py+@+GG81A?<(KLiwvm8PJ0e3vy|JRq$hg8VL9C
zyuB5tYyN}$ffkt)ZDg5nW!ent{&wUP#IID~A2sWTuuV{j^LStPUG;R23^Kz~YZ7qQ
zgBmgs>~Hc;bHiuswArRY>>#ct{rB7mTV0^y%J&jIt^a2qC}Z{;F-1W4yk(>-crLgZ
zPya^*_iz2ZbFCF)lfF29nT7f`87I_@a#pik2#8rJQ2#Z7gu&1-=P(3TKa<msAu-X+
z5ty3=K<+Z~TJqWNY^NefF@mpEl^Qc((a%L720RP&EZoFfS^k#BbVPIJRfv_N`f6<2
zX6VuShP-6L%idykR9?@?$ntLLP{z^bG`L2h_me}Yx2*ZpkMD97_lncahxPTo+a^{O
zHMEa@i1(WMtgR>>Jd=FM^^*gp@KcFWxwPccNnu%Y)7t3RqR=fB5=d~lmZ3@VijYZ-
z=ae?iv~tm5wk?hxyWMjVS8QSz`g=`vQCxhuR7i!?+gq|%oHDd!`(*2&YjOCaAFJ%=
z53b9##@fL<Q!m22_$J+rTeFo2Aua<yjWI3Gb8-jAj<$T0yqf$oKSTu-9Y)$z1hvz)
zOJWsNi<vQifq(42x-zoaQ~zuGK-b$_@RNg5OMo|Kbfjdfzbo%B=1lJ7RQ-%^LbUp}
z>F6a4ZuE!fL7`sj2<F+kl;A4t_P1&6PeZhpn7O*0+2eKdVl~khqqUQ@pT~?lniz>Z
z)=J2Q7YgUyH}YeVtiPO-Q`jbB>-A4z27|bp_`pFwKwzTue~|wYVOi3qn&U~+5csb>
zWjZW&Lgf(cmj8<dmpZ?{_r|~|Rk>S)j7UD`q<;pfEp%~InWCtVdAt~mHLUPRYk4@5
z`S^sfH0DI0jeHeOzW@1|hsufzYiZ^@DU(e&d3Hi{7k%(N%XW!+bFpu9FP#u#_%aQW
zI{8h!27AM*WjkR=upxfV15c*B&JNiL%Zd{$)~msGV5u@G#xFR4DeN?jdYnI^pROp;
zvZ&X)EK#6g`Q8GicK14Nw?DI5{GMP~{d6pcxI3~Rvf;uS&_-$)_ii!4^{ZhKUag{Q
zRL4z_8ZV=LQ99mcf9I#|LgdlK&va(Q>Bp}-Ke<z;Q}fjzbXqtpSU_Lh*H*awSzBNx
zFW;`LK8Ym5RYj+;carLEzKPge)Ee<pd_6iKMI{iV{oa`OM}>6>wv>AK$K?~0YuH$<
zP;QEBaj0t><qxLI#RaR|g6#@-nF!2QL7(2PWcOJ_0Mm{ZzONmmbb$6YH^{7Vw}IYj
zmMLcYWfGncW<!<oVibG@;%ii2TKech>z#}=8#8TUr&+-%6E!^15kH`IWkls=JXo1=
zjqdZcAgp0dUwjsCbH;PQ``Z3W%vGfa0K|i9;DoU-Y%g{@mv%W@0mVfHm&8CqAU#^u
z*=<5#L$H!o<2yHg{WJZ{XhxGoy_S^ca)I=dRFoid`ZdeK?8btszk+1eJ)k$+uV8B~
z%nGe<ZiODpFW+diW*`{1-D4*~;b6{3)!D}(ccuT>=9YD{TjhIGs6^ib4WZ%C&uVPU
z7AU*NZrxHO*>U@R4JKm;7+`>s5vkEamjZeCnbrj&ALn&_26;{7Re8u7Y>oW*&fpu*
zlm~v%7`1*nobuin*b=gmLvn`NGcuGG-b@p0r$z_I^5Jc;XOIJ<O6-kGRh$MSQp12K
z5TS<r&#OfjRWF3Z#7DdJVwo%RWKsxu1%@x<t;MZ>yF*HOkE6>c>8=gWsCD7&Lqypu
z0Vd`4txzUX$!m`10*#=`HVL1+MB8zuM6K}y60;TQd;ECe(|B+Z>16tE#I;`y0OrB-
zU&|e!-uaiWqCs`+J2%DsZY(p<B_f-KeunHrDL{3q2e8eBWB$T{$~}q<C_}+Ovm3=j
zeFuvba;I3KyDMLycb|I&CNR1M+G_4_i&TE_SsBd?H<4{M`nf}r2Oi8;D%z{UiVdE~
zjaj94+}7i}WKye^Y!QAq3Sox8;_GLEgut!lS^kC0A}E9Pm9QC92v!;&2;`JXg`*GI
zf>C)M@wgV04*4;7(o20kzHh63qc0~mHhD8S=-zjGZRN7+8amg-?HdG@wgh3s%GN1`
zONNAt$aVZfm4o?~S{qaX^>xwL`@%_OKU%2+E@gGq=%o8IP@dA=2D@EDpCmk;7u!j>
zI5MafD69|?%3U5w_<enz3|}yQ60~P`@Bnyn53D&@f7NE*0;0%79||Xe-<h=ALhA)g
zqHVEo)S$6z%Y*SRBzK_oW~aZHrjw>e)$$lcf!}tJv7}&lQ}g`JoWJwyg*toQp{~Uf
zZh~F9Z429YL&~0yeE>>;+LDE*u&etrHffHea;9{jD(XENw)!Xf+SG+{k>s09SQ~1E
zxILPl9oDwI-)vUw%C~~}oP%!WmV$g@qMD=)nFnp=!N+?AuCj$viZE1u*gO@S$j$_@
z)^M39<y{NifXQog;g>fmZHF0^w?2KID}!Jn7i3rx$u+pvC`-6@6=9KiEpTFn1JMMV
z1Bhg;MYavrSMsD7D~QF)cT>Yd(wcPLee)=ZY=kI?1Okp^stza`J48Ot4f~B%%ZwV3
z3*eFrxnZre&WV-tpEOSyxZf(_G*6CaCSP&LnZMb$MtbRG=-$bq{O*|Fi6nuKz-CoA
z_CXCFxSB&Xz7A>`B?#uw`=JMzIFltdjvdm~!*CY@P_$Gn6RTn7RACZ|Ma3@%NQ#uw
zvd)}IizSK6;65Jt(8I_mrwykTXVH@zlXX3h$XT%~g_8Jo5<fGD_d>u!3>TSxkltE9
zH9Yg>zDKF%l53{|=3(5zm~jg$7nQ<LJ@ZmMbueP>?DDVK{K*m9sfdAj(|b#N+Shg;
z&Q~tV3HxA@%3+~tOSP#;FF!GYQJZt3dc~0N?Z<N1si67@GmZ00KaQP<DCPVLGSn8Q
zB67nScu=7i_ouGjA7^I9HOt;<%xF=%<Hkv-_-t+J)1>=Ev+D$HQ`yN}BxPeAom>l=
zU3n^KZd_Y~Vh`h@>i1P@+evfBd0wZbN|~g*xWB&7CC_Wwmn<~Wu`DMyuntFCAbFxF
z(~Al6Blm&nBAlp5N@owo$>gM*kMq#MaW%k`iFR$RO_3egSu|JS0au+28tNk2GN@@>
z6&w(n6|6LOgmpA8keXLez7?!k<QR-^LgV1RDn{`o@VV~$diqndSReCL%TAXz(V+AJ
zF>NsX)BK-m?gO*!f_6twr>~5dBQmaYRP%U$2c}HmzMi^pF*>s49r6pZHVK^p?tPPY
zmCh_hqL*KJ$^5~R%3>umlHVGK>p(+G8dq}*N^H?NAIg@WwlG4FH;`1;RcpY#n4R@5
zq1<uX6qwn=CEI=;j%)j&Gl`a+U^HWz=F)5XXrVqL=iIH$9-V<SP0L7CD$`5+dop#G
zk(AbYH9#X|Qb&J7<4N7S9)!lfRI~ru@47MjXE%9@9JVUCr_cY{2BD($pj6rFkN*X0
C0~DeF

literal 13287
zcmch;2UJt-wl17P6)A#B2T?i(1*Axeq5`2x?@d5D1nDIZ6h%Qnks@7s69`DJ`9MMG
zNN*vC^pem^D0lJgv(G;NKgK;{+<W)E48mGjE4<~I&z$p_?|Sp*v6c$$1-1(y5Qr9`
z`cM}H0^`qLR20A!)KGIgaG-diuJRB#0zZcj8bW~sHB!~Y3k0HJJb!_IO@|zVK-WNs
zhxhgUQ`e{cKA9Vw9Bl4ayLP_XQKIQlm4xu<eq&(B75aSbn(&1zt1Apn&LHxKA)f^u
zm3SdpX!PYvmme{ZXQR<^k0BI#Ik~anc7sw4axL&)&b^J>5^@bmNpcOO5QRQ@39r61
zFL+IN@Ivb3y;xqv|LJee)?Fq?2v;O+1DtKIL~CStxG!EU_xp`27Cyhgsw)-FpG5<6
za%cSZ8m9mAjvH`CxCk0ccTd;m*sm~sqY2xC{k7x?!+5pJP=e_p@30U&oAuYXo?O?x
z-<&eY++rj6;5n?l@XB~MJRe@q<hKmEzoeegpXn3D+of;8L!cRO0_Y6d+q-$_YEkp@
z<_irdnmMb!l)Olm<!p7JHnf)|<k6ku<fRkI0TREp0#O`EjX_ZEJ}|D<#QrR|VODP2
z=wzvRKR+Eme;pxwkGnM{_{Qzm#0W15{1a>IJH0hwmyz_3>0Q}Td8{l<#j6<u{;OfI
zFq;9=WlSn@uG!7i`1q^C!?w~lPbOZyzhkJfd--?14yWHE&yC9|BXHZf6BwIR9aGn}
zZ7)=qL)QLFUMuuKxj)6DHs`Ra0nGH*;Jm9cV#1+9wz5gvV4~WcHFaQADs3U$?1n$K
zM7`@&W9zLi&PMpdFr0*qO{dQ=r$)HcakAr>Te;0LS+Jh#*e}Pi7~8hwEF10^9Q|ue
z+wC#`8kM$YBW&=u)iIdVv8AjQmJ{}(yU&7Fo-N2ibxSjd_h`y<fYg+|uf8?Jlu>h#
zkq}IM5LIrIL|xlIZ?W|3gIfDLEroH2HD~6deXGwe-}6S_;0-S?_q2*?I`!KL_D_(t
zif#&#>%!>om@_GK<Zr?!>a7N+hvwvxsg<7pxVp$h9$cMm|9)8{{M(@b-leifn@2P%
zz2%ZZ1_yh3>0(p3;jT;gJW<Mxf>|alSnNuDqg;b|PL>3?SYYzrSiT?3#_AeY5nF=g
zsXWWnocB*Fl<Znf7{hdP6Anl=;iY|w14LmwMt-m}uU}?R)|4X2@L?Y%Sk70xnv$x^
zP8+X)UCf@9R_S{|Wzi$R6dR=QQee9FK)gr(eP#dr^!WVsD{0im3e)EJu5j+N``EXR
z2e@$2o=TW)+2C~J{#Bc!vv*Cn!YH3^;Bb8}Fh(m_aa8=r&J8?7iRKhxU99!3j;mHQ
z5aprYk&SJ291C(H^&Cpf(tlgh8p=4$9)wG|nzzfOnc&h)M0E#}(8C`k8KNn;v>Z>q
z@Kgq0^Oi2X&hdx_sW{s>*h5W8QKg$2b?-~$3dJWSvnY?-Ncqg+;Sb76>a=)srDB4D
z9pQT4(17@lA+@oxKw6#w1)8_Q*0N6UsPvkc^jlH!J<(0L_}kox-dP)zS&KKQS}f$i
z5l`RhEp2VAJ^K*ZOZFxG%Lk-zXH3}l@NDa1YWTP1LHlMERlDr$O$SH|xH=Ej<z;KG
zv@~K4ZoEH62$0}0k+-zww2E4}D^oN_)+(gPDP+fLrv|nnKfR}F-uKwwXw$2*%HPaU
zJ(*!4C{#%|G#vSPxa`6gW~C=hmkzGkoNe%gL%)k(sc3AdF#kuq8FJ!szh&?$SmlmU
z>we|0xsSl*oOHrm__j<673J{GLrO@H&*oRkfzuU}mqXJ74)rVdS_}2YSGXyH^T-C*
zM4g4!iX3D0F_*&CWlPCUwI%~{p-yt-j<)iulLq-}NoZ*)Tv@-bK^{MTM=N;GRn||@
z-65`G!*#IJ2O6nP#k^3EfAY-vy0>Rc)`^fh%27^RZd5A4SC-f{MiOr26HR1@Zr6&*
zxI4{1aVAu7eaia@E0TM?Y_17Dn@1m`Qog{xFW4Gi`?UY`S&{?z!H1md1$?QbI=R`)
zF`DSUD*<eqQTF;<%QtF359$xb<){`*5|o5id%fAmwNYOpf1}@{J-Wnu1t&7}rXn!S
zaue-ERLqwTZ_HMFWa#BSwb$<ewFb<14pJ>rI!s(Rczh=fnBHO?{j7e;X}G!#?xVw0
zAl|VxqkY{elsTUh-S;%9G*GY)YACc$VNNfvS&MB`n{a>n-d%@|FSYB?p>_R)UwQrk
zHQY3mH<b`5JG(#`n!j!s=66XHHb%D7^~rbPAO)hAT|pgw)rot;J!;=<!U_m06Qz8O
zM#_zP)bI)qM$rc2*9ugAnw>lI1?l|OjI+^d^pC_&uCpz^2<P4;506sMStmOdN$%UJ
ziYD+(!5mHQg!=XSzSqz6>41BAUY>;DvrT^Y87|7S%33{~)D*gA?p7q39YVFpawf2+
z7*f|4{b#cM8gCt(p|pQ@)^RLQ>6g|Fj}T7w74r01HOndG@eSdi1f-}~cvP0TcI~GQ
zk#IOo**uG%0@C5mJIQcE|A~~#zHUgwO8<v&8WlT<_ry8HIHbf2aCpL)hSI9F;B5V0
zP%7Aq!tjw^!%81XqYq8wsV>LaVS`k#FaD5%>y@8>)zk&i^CS%|zV>^1dGwwVv%ks_
zQ}lH$KbK}MT5htbduGf>{NeD6%f%9xzGIT#t2(1w9&SqtCda&TJXjAG2`C}+&0L@8
z@bjtIkj0@qrgv&Xf3hT$^k#<7E4(LC;t{RfCxNZ9Z#o{XNicWhF<BW(WY5-_Vh^ju
zvicfh`bor^F(N&qXx*Vj>-vScy!S04waG~PiXAs*xawH-uZ_<oRcUucb*6j5eX5*X
z5AIEz{iRFqKx3S{!_UL&{l{17x+8BT{+C5njdGjcHFI!bQvU@6L0kPpQ*Nxw@eFuI
zU`<`)Qph(C9&?`MH^yHYK!emJ@xhy=StsvUu1z_9ezO;Pu^qHH;A@NC*-bTKJPkgM
z?2m=VRVM@;Rc3g1oxlewf9(q^k{ys`l2;}4L%8lQN&52~9p7%P`n3FT`o)usLILj%
z(RT}yUM3F3+t&DQ$KyQX@x1T`jqkQ<X7?v^MR;z`>{O`D@K+@5A->Shx+@=6m$S8&
z&^TNQ<bE|!?WO=Rf2exg@_I$&p`=Zc#l6Y2)P%v)<PkH*1%=64hCqQ8s_EgDH?-Qf
zZtODhTgU&B2p1hmqlRUiV#`h1NxZWi&9{hR6ZOu6qYG)AsM2I)e`ja+1@S*@XOrQp
zR8|@Xo;XVXPyMkZkXuQuN%+b0B)<tnlt5PZwr$ys<4>VCrCbvoWs`KVxdWA=yp=`L
zeJl<)iK9zCw6h)TN{J*Ds;)bznhZC`nd>v@{SeI<E7j@EzTk9XgrlC4`gYjcK8ND3
zuZWb{k^Q-ffKQYUtoolgm0;y3Vy&y;23=H?vb6736eE#HJwQ7^GJTp8-ZOMu5|yjJ
zky$LQaGF<1SpUH{oqWQ>vzgxm){0yiyWlUvmhLtMqh1wybf8y`__Bs~Oy?~WREGL7
zg^+Rctx1IMS=5g*)r&KODId;1a0->!`x*Z5NM=3e*$HZGH)H#43nkK7Un-%W(fu0l
zi}~;b^F|V(OGkbag<bZa^Sts5KT1yp>-Mg3K9WN1KO!tLF`7d&N!3aHtw5GyP1(qs
zimZmdVxuB;q-4v|MK18*asy=Dq;&-=Hx3+p-zNOkLY4o+4#y{GmIkE?g%~oK&iM?~
zI$Sbc+B}+5W{8&QU3>1H1-l!4qmp5iF`8XfV9k7TjJC2R_qTOx^KUk#m~Vi2P#Nzp
zsh5f_d9s#&kEw^h#(YWVKNk8a=`Lv#WK4VfvEK}u)*|+j*R8TUoFCEj+@k-#7qLys
z1|8Wu9EJKTR1+Ib!iZnLii(O@5gIb1>mz|hY#P|u9H}?+WFGC;5V{cH9WNi2?B>5t
zr^x%{x4W@S+VYzZ4%?kvUB8Tbw46l4j5LH>Tqp1QnG+-&dR=9fKEH_m!J+8Tn;P<w
zU-L+xQOrkx^MtEbQ!o+dd)eD?)WUE2)AuOm{XRqAR%(In$tO{;k&Xz|$*R@a7$Ic8
zK@OZCYGEqvJXF9AKH4X=?BsmZs-Mk=pDeeqv$2`7v9XPGr{4WKdqM~ewLSV;*M95H
z$X&069nx>+mV@#L?vR7%((dACT{WD+dtWosq@Q+wYMlJ*+Z(19ahH)Vh2tY~_te$Z
zhj}76p8a{tDxoOl*#B9&tmX7bD1y^>EcREAj(gIij&OYEkwaruRh3@oub|ewI<d+7
zr9M+BHPrJ@Arzvrr0#8a`S<?%?pf`YVdIl_c8_D%iAtxK{D`W`N`07lEpl+SEy6>U
ze$u^RJ^hnH&|Z95^O5t3mfX7ccl$((J@1x~6Vn*@=|O&3?eEBG_uAQ4q2E?}Btv-0
z-D{?OUA#_en~t}-PP7$vhhA_86aQ+skU@HP=BmBfMALisZ0SLJql=vX%3<zsS<~J`
zUupBvO5@~xU}BQ@N_S5IECaWtXM(*3$!V@0&lDLHJM(L&H}=^?aPB=8S`-p(j^1`t
zVb9jzO&By;%<wzyr{6d%UAG<<@p86A?G9&XW+<LmE!!mh=d2gttk%exqXinji6{3K
z=4?}FOWoYuGMF8Dl7~ZgmIgf9BMb}-svtXrnU<>h`ue)OJbv=qHm%|IU!V3&NO=X;
zwVxd?!r`7+G<YzAmVK|y%)QQD0v)iuusi*%3)Z5ir{|^a=C-c6Df+p);zo@8)}NNs
z-Lj71p`oe3E?A9gb@1WVL~?SnnTxZt`#1n=Z{W%9=qf<8@!KKC2Oq1aeJ4Hk2s3Ak
z@YBth4v1Yy^%6}TJBxUM$2OlsH2eEQnPV($MYmADA!@{KlJ3{DlKoe&UeTtwRgXXC
zdGP8^46DS`lOE}r<9>h^uQ*UU1Kfz1ue&2=q3pOO_rZCARAg%iEiEm)xUjHpcdP3b
zHw^*j{uJmR16Ud5)cr|pk(TAQ_0e}`tHv9ZRvktbKEqO*rQaS!U47Th0T-RDPSOk}
zbyt<xr^E;@e5}C*uKo<#s9Rk8I-JJZcHZe*ZuluLTBNM;S;Nk=ZppKkD}(+0jo%$&
zSl=JARE%;}ak^2CkBIGTxGB|*LpE|oMn(W1F47MkTO0ohH@2{7@)M3PY9_YQ+*%pT
z*S_!>u!4)9X7whanY5wfwb(oDI*|1!|E5Vrj{DikK78(AE~dr%XlHp6aGTkE?IiJe
zlBA?$;kiGlk0zPy9dGy1%dA%pUj26Vy}Gh8xIQ;GcV(rx40rV9YwyJVlvf`r7}ppe
zr$}1+y67>6$qZ~c*^?syH|r0g<u(o;EjYxRRj*%zjRwM33bL>Eq$>oCfGIhMLf3qb
zmh<~q#O;2(^6t7@R6_w^4Blwm?j1M}Gg{k=eQ<^8-<{RdKpzTvi@j+L+uMEcvyy~_
zgrd#44y)k3afeWm=IF)lq(Q>oq(`VjJ@7v>VqVAICZ%o?eH8)uIM+$j>cdZWy`Hu;
z25kF=08lrljek!Od3CtGXeA4f(?o?U;1AC^LuYdnEsqd^$FAE}j<@t2?A!sIH!rDh
zl-JgHFm?8lO(EnqYUfq}cd8`SNc*mhbv*4$N6mYLk|uR#ju)iiet(fOH&PM*eAK4H
z1uUj5J{|esc1+0~jO@;iQ4IWs|LX-jT`jlB%*@PXq}0L;)q8ibTlV+s8`0yyr}t%v
zSSYvL+*=7t)zOb8zAJ_K&44vedSm|Dn(uPi#|07e7P^zZssIi?eXu!4pyZlC?N4*7
zpZ&-+oAdGUDLin9xB3Upl%M1Swn71SKh8MEO3b!Bc)xzNG(~wW7PEZfp0v7GR9qUk
zH5<W=+X6ys;5FQOnp=ZOO9*PWv|;0@S2kpZgxe=DTLpXGd+^|adZ|yU+wr-7EGD;4
zRJjz>ARNc5t6aA)y(6hs|4F&^3ZU!OoBJ;)PM!e~a7I%g*L?eH2UpOS6+v8YXEmo?
z>D(J80n6V~nXYTkH*yqFM>)!GS<3wnx8@1Q0f;jUhtH5sl+;Y{_UPZ{2h~hH>nhDp
z4_uK*^08wN1ty9@0jz59`W|^jpb{XVY`hxhV3}3R$a#qM|MNk`J!JDcbH3s+v5m>n
zfA(eAa-evZWx#wqSj6xPOPpwixP9l|T>HBq&)t<_0gWVa`)BoX3a2lNi!RJ;9~~Wy
z{0qF6<-8QB3|XI*Y8VV=;L*6LoH1N%M87dwX0@t*tEm!oo;s%eW)zBm>Yu7HXj*ae
z8&k?!1EINW#((Y|Nm@#(*=xDcby5?BLahSK-4DxEPaJ`nRu*i$WVRebEvETdrg?BW
zu)}BWTsX<>sRn`pJ$hndBEfw3Pvq<z_u0V*;4?V-TTMH^Y)4BiNWBD;=0l;p?)7Vv
zvX<4ZCTWx56=Gnhi|&_6kM=GPd&Rsyi;Ab;USA>{{XYF806%O?a!9Z9tFF(}N;~Q}
z_nEQw_V(oYu0;A%ETtkwe5P`6j@xg_lScU+Tb1ijfzDu2adD``lW(up!Oc6lx7N=?
zvCB*|%HvB}nN`hPv|O{-W&5Y&nGsy|-or%(DLMOd>Bv@UFRs9)OnT`%cg)YQQ2Ia9
z^wm95lV74jt1*0|U%yzUm^Lg9&^N~)ehQouDW;jG+bY>VcZI(c_NTtO0O>EJYP(nN
z?10!t-xBmI2hpV*%~6MGZa!^y8q8Y<;vR+r2niiA+$}4$bJ1qE0iQc;i=fX)$IT?V
zG>ivt_ngVOPt|VMOgI;3q&@2tlHOe%Et71HCIHqL*c_{Pmm%6ENsB&bX1G?T6!&t)
zxj$q+h_Fmwmq-#j=Rrdll(MuA|D49Majl}u{b)%A9;nfL_|w2IuPBe!#p-CmZ>BT&
z=4soB%PV?r+^4%C!E!&UqgCFq4G*PMQ(q~qnWkO-=r2LBi~L*sET(!XZUJB%m&OeS
z9L^__th@&v1p#rs#9q$1hG9PWY~!1K?C81hdRT2^hK;Sa14M_hp3_gG6)jh=dTgKs
zaFKVHpWhl0%V-Tr;1vS@ecC@+8on#c70!on{<v>S`?t_56j-KQqqx|sD^=K-sTw;Z
zw?=gbd<HRuI@rZY$17Y%#0G}VK!cRaR>Q0ydX5dciPXliIgG{#l3rF3nj1W-T&4+h
z7LP??`){`00=t8r;RN(!d3~m3@V`0iXUKK$cJd;ADR=tmya(GyDaGc9FFDoRkmop1
zj;;v9mZ6>Oqm)-{R#YygD7!eHJsD1Xu0Lqj)eMq1`68RUk=0-xxn+#6hP0EQNRQ|W
zZE#!E)el4LRe5w{bBjhBj|~h`&o(@cXHWA2TIvHtG_Wf#>$`eb+=Y>im;00FKD45K
z{!%V3Dtdlhp{OXxR3KHqR?P_<`tn#BQ6OS;4H)@@+)8vlgD6%fWsV1-8>5T(xgIHR
zpO^@{fQaq<tZRzp<V*^FVv_Zqw@^cv5A1*o<{9j<e{(*Q!nkv7TlVB%5dRmn|6Qk5
z2+GHH4In13xOKYjTULUxyz?W2j6^nTr|1fUdtR)zA9#iG(-Y8($}#4z5=9sgv0I+p
z7+wVRZGZ}KAf|u&X@RCJ`jZY;3|LA;TC)-bk(9)z&pi>b`rh%sAUJk^>Lq$}8V!m(
zs1Mc)`|Xd?N8Z8%;au`y7)FHX+)j)@r-ZdY2{6CM0QhPE_$p8uuQ*tACm&)(3;@`Q
zQ$cy)s@|2`jGx%z5wSzI`f8A727kW5O3-SUp|vOmBqLq^gBKwjrZ!GF1u?&>KmkEf
zBmC_JR+pg{dv&B<cOJI!AXesqwmM28xhytq@ZUJ>%^2wxVtIu;<3FLl-o08|g5KPS
z;u`08AkzZy`I}Fo=y(dSh8~;qq$utx(FmO^KkqYt;bCmfvjX7#<<CGddTsJSYz|j$
zZ0zKffKJg{W|x8S-#;gh&*SvfA5Rgn^|@*Ytb_OC5U>Aai+b!(@h3DNLJfWHHe~<j
zr$hXl_qzG9vwwrnLuAG)e!lxxEr3QnKx+b7H@PpAEi4A4j-Er0hyMZC8KWZv!>^+0
z8Dei^wZmM{ZRi-V5yVP^{|+KHvP_qeD2hFMLYN_=i?lqWu6^0cNSwtc-R)Ecg|0cH
zJ3Y3+yGA*tcfVZF{a$d3d^l>f^sMEne*w!bLN^zne=s`|LM&c75v%0u3c-4jk8G2c
zKJ<u%qq>B{R`iD>PCffe37p18dT~b~5}{&Np<D58054ZE0pnyqk7++~HHBXJ#L|T0
zKG0{p4{%60J{D~RYGA5=QyliFydsF{jVcgsisHypt9h3}z&s<=?$QD)oR;7JYgzeU
zD$IZ5>E~ERq9xV{U6Qr00`ddpL#hzud<b13fRKup4*2>(Q?$q2#7B4s>_dFxKY4C{
zm-PUIfz+}&^776NW3#aw_$<f@E9F{7wrfp6I<CO?V}1RgbCE78(qQ(L{%TP>Z3$e&
z5EXkt3ge4Kmp!(ysHD($ZhIwdHd4|cbkdw>)skK8>{26Qc+#)7T{JujRR<N6ahpx%
z_X$K9!7(;%dOfQn3dTdS>R$kJ3R)ZN1ZwUyiUztvUR^QnQ^OAf<X86DRem5%u-c#g
zDHp?P{^f!IT+T0G?iD{1Mn8n$H0E2pEv>L~Bjs{&YhBC1?sI=gDQ7<+VlrgYYw~jO
zDW3$FS;J1bKsuNUR8U%~Xg739vaJ3YO@OJL^c0U0C)WMW2Fa!*YoHDgX-Ebn9jr(<
z1r5Gj+ky>TP>FF}LC>-?+4)IjHM>vSq%a@B^K8!uFO5d`ac2^`6-Uu*<9A&96e100
zj@dn2&g@Hz+=ZT=6fZVSbla{+&~h}uz9+Z8sxjIE`eDv3eO45Q!a9IS5HD)jFbYk8
zlwixkzJ8?9jLrF740x+rt4^P11N239#Ylw;FG82vKn>Ds{|I<c7OQ_D{uen6h}p5X
zz!_v0VdoiOm;aEF2*N+Ydtfu~p-isF@)k1xNJQsDQou9UQW+~5YhNLeaTcSoyl&yq
zj7}H)=?;W33dn23%a}MMuC(L{;Q61k$$*%5-JD_02Cr*PMYOcOMqFfU=Lh^R{uVft
z+n?ruch<CL5;V%FMQf^7E47`&*dYMijU&k8Rl=geb}fz@c@dpFR*(}taE6DF;Xeje
z|G9=zF+*%k#yauW%Nqz?!uvAvWA;|fOTRZD>FvBXfz0}I6oPy1=O<PJu~lP^=0!9;
zXeJA0ngt5>G0aD5m@Oi<^3s;i{S3+}`cxWuL@i__7@wU>uMRvVfLTE-X*9@`p*O<#
zu+N{70p!+ByahG_2Z0*EKCJeGYF9r14c==eJGQ{z!1jgB&r_?!=HP%)o>E|hFr^yh
zfMjs_BX=QCYdj16k?N-<;F-YPW|mJ%wE{%!Ta|K6N=u4Uat`Vp*k5;e5k)MA^`FaL
zchYz2RvS=1VWoIW*-SS@J#|lJY?ZYY^@c`={$ihwR9v)2i(ug*yOt-x9tXL3^9gE&
zZ;KDV-g)&=|3!JaV2T5ABny$I^-5g`=(qqa%MTX#BghVwuNcr#TN!aa+D}n%j3__c
z*cuTMap+s0nHsBA;J5M7&BbXUC6PfpV~_*$u#5(Hpq<ynI<t=0z&A%W4@TF$PwzgG
zTd*71zhzasw!G*ZX^;^Z6J2jtL)i>9XK$KeU();a8n^C)|0S-i7n>8?nTV$6UyDG+
zA>+iu6PD}vUT1$I*#fil2N)F}4#k|RO<H_Nr_>U<&+(GW4uCi2{Vj0J^-BLt*!}tp
zAe~$Xh~@!mW@vKfGiN^%#2+zs0ECT6BnU43#5RS$z#KvPAjMRp5ed8qb^usQN)FZ9
zE3=Mx82;UV+Kc<qhUki%8bcIdE9GVs_6AkS%+4GND~Syk|90MKLK(TdLKnu0VT0)=
zB34St!9$A($JgqTT}SA8#Fmk#nixK)l^v1DrTGu*T0)1u<7yb(y@|`Q%D{kb0mDut
z<<S7n!iM_{7@6#k3z%EohWcpa`gfp_vJbcZYNoHH{zP_>e2>qZJ5bu%dW{DWD=TD0
z<1b<Dhp!vMWI&j~GdJyltiS7hXo^*V-m<$GM1Ekm-1>pH&=0_Y`v&i9?Srt;cu@{O
zbw&hR^mjn%!HJhdo6AKo;IXocfW{cgo>#|ufaj=cu5(b|1YeC4j25<5#}6;<=A)Ui
zD^}4BX#F>NfP;_wcqb3sHEs$5ftZ5M_X6x;6VZcIKm9z^yuzZthUpBfmO-p2M8VDU
zsT{O`MCkxVK+m7*yCaCyz2hp0bf^9;!|X2{sK6@2cpyNeBEDhN1Z@88&+7AL#xWZI
z6eOo3dNHg8!hH2^G;<h?%A((env^_fif$$!@sdG4jjp(a<!)g6Tv@J6w|X|L=#z>t
zFmTZk*2pcAuFT03HLdVfyJL6o!v=MR%h%RyCivvv@o==LMJ}7hke0%acpmg-<{fq2
z^Bj@TuaS~IX`ux&K!xgVq0%2xR`fZC+|FDy-~2wHK;9yfx87|ZWvI{43%|NK|IaLp
zCBBQ)ouERI3<-g4^zegp1wT%mxTExtO;|MCwtb`g{);^v>JP>&RNPa)m)_@BDfd|$
z`lb5l)#7@~%p&de@HGC6!}L?zYC$!WN6YP~alH`5Qo;DbtaA{;-ZStVe=LSXLrQPm
z=QyKKq|_h}p-csJ^K-mBAtSaiYWxkC3s{@KQmy5|5+vlRF?n##!}4x2Mb%pJCva=j
z4xp(!ekP(v!IX?z_t`XMV9W2szg33qkpRiG;t6=X5xN}vdkJ7tB=3wOz9#JSZ%u~d
z1wzclgS!|>3^nfg<Jg?6pQGd_FA9zcCY{y7nlb>z=*Ag|kF8lT7D<3UE*$+aLf&+H
z?xbm+3XpWToa_`aP;liR9UyvjU5*7h)BP|nOXVUx;f{U$agz&Qr%Um7EQEpKO11o6
z6Sk}b@E*+MA<!@cX!z7V29W=j?I@t~`TwqO|IgLO)-=5gqAlzNS{M(u_N<r%a*;Wp
zm(!VonrMh@80OpH18(9e?{gsg=mToG(SB_=1`VYi&7r6TAApfa@a`H#u#Cz$Da@#z
zaSC6bd~0ZA$aOfr@99TpH@AS|!b4$eax7XFH&d3^_u+dH_vfUMmNMhfW2D$>9PbtF
zTwZ)Fidq`28bmQxhV5%6Z%oa0mBEyXfF*~9Esxu#Yo@bAGI|#3&qU34YhHG7gVI5c
z1<PJ*ZzkWR%e((TXAQMjyD`B}`c_-4!T>cZY{18drw%vcDkU?uZF3Q7oIi5j`H=_b
zq4qPiFfiD@pF+3Zsq!@tIUAYRZ8H}^_Xj=jB1-ox)xhO&In?r&nni5RuL3|q!jQT<
zN9k`X`XDoc9)RuQ4S})hZN;6ijXf^C_YcW;L6-Yt89<h0x^o@P)$xB-{0S?7Z>h<G
z5V2~RQp=$0Mi5DpS21LHU>J6^iw#JKeELGv2VOwM>ml(f10qj$huK&gZmkbEynaZO
zRoyVi>}p+aJhoztq!aE|U~C#Tiq^lhy0*N6?ujyAj9lU|hyw}*TcCPoLKDEN*|RWg
zT3UgF6<*?QXEg=a>XTqK++PINF~UMQlvE;O_)@#6%K7K-U3Oez2;BeUQ4(oGtipJB
z`;V78Nz}A{4~kvOGML!rRIo0Fm2Jp5+v$vW73Jm@d2Te;X?D%v8UVHa9T>AeEm6{%
z<2JMwbl}Cja;U!ZV}ZrmKQT*>ui$P-$_JFzOi0xI??uR|rn3;a(~xhNqrA!d4WmlK
zJ?7@!AHOFFX^C#5k<W_9cQ7$@94LHF)|bVRJpOdqbu*esokV@t_z^x52ZkPVgLo}d
zP7SbAK2Sb;!opuvxbyG=GAS@sO#|x`MFfO^F1>-%`Lm|o3;+LBihoz#{CB&L5!C*d
zk)Ydxfh}@KuG>O|Xn;@g0Q%gJ1&|fUl8g=-LVgoc3W-(|zWq;wCqf!P+tjexmsm$7
z$SD*lN1V)g4y1@NplFGKo-#LCl2t;YYzh0qnDn+V39q<!pwqEo5FbJ~4`{gsDh0*8
z#)U#vAC;}5P5u>(ODO~qx?%>Mig*uj#=E8rwjk6+q;fzT5T7c~J)Ys<esslT7_I%=
zM}W2fge+2#-wMdygPe>&4X+UWZ>k{wn;P^U;L#yicP##<{l`xBNM1y)0l*p+V4s*X
zo)-W1?G|Mx*Wdh4@dkb12602UC|AOkv6u1Q*M{E&wnMpp>PXQY^eKM>COQCAN$F%9
ztWB2msbuDK=Fs3errn#6^d6mRYD`|#CQ$3?1GOGE&l<_%YLhnD0h$PEfjD3IvbYOW
zko;I;X#~*9rv5oxn;R$1phd7(L8=S@a-<r<wGYfZFG%9*f81^i7_<(69n=%hY4{(D
zHnHb`HNE=33Yd2yS+MKhC56T`A9yCt8x+fXMGx4G_pli<^hc;n1d|TN<^hGYpD?h9
zrd9xyW|#4k_qvovzDgs_qbuCd0#X$rKw`_%WxS33dqn{gO_{AC)d6agyK;`Qt`O;b
zZ6V}eYfl*i_YePHE<OFjg#crVWutA;DD*5=9Iu0?!}pNQ0cmRKoV3zJ#(wVFtDi1v
zP_CdC(Qkgf1Ztj512vihQ)?sq@Y`8>urxH35@)vY`9C}_JM87%&Z{c(FJ(AnBvi&3
z@YP!F<k+Hxg!rJ7!{yP2t#Q``Nw)$@wn2h)j&4-1|4K^~X;@$SO7<yjp}wXUjmI~N
zl2G3OTOYASn}MS|-zI^c!jVzMV|;f{QL!UT`Q%+s2`cPL`F#)VjFW{Gvqe})G0QIW
zPQK~n`h;<H@JYP|d@mvkmd)2SG7NS3MHnsduq3|p;xf^<vih3IvMViFHRR@~_I=T2
zeTLgg-{MbzV~u8Yo~c#P%IXXoRZgT%=yq}yDy+u#g<<1fN<%`EXJ5w1mFy5*{oLdf
zt0;QY7T17ny?oSH$1caV$ePtKzu#`-nAvwGiI(M<qU!28mfd_Q*QLRVOukdnSnbYc
zXg)4v8U83GVqv(LeU4z3lEMu4nUE%3Ejeu;Muo*M?;8{jRRl;MKmB<Y;x&4drSUnp
zDo@f@p%}>wZMn8asda`i0^bPB0K-)UMS(zD$%dZ{4^<TcG}aVVuz+wPkUI<1WYIVO
zW37yGPVK*c&i~K5KH6}y<g5-Slg^Y1`DXL#r3)WDxG2DIfvI;ZR#?$_+7jyq&_3hu
zM&>ag!;t~mBC^BZ5y;RrD@J$YGpgH#sefH5$PTED-J5x#*60+dvfa<w+;_N;DHog}
zH!;%Cwr^tZ%Z3c3oErjlh4rX&YbDyHM0A9Gq%QZMy-7}yDE)<Q7?cQVLpxhT`Y-PE
zv6Q{{i3?Zy4QC&Fj-2c-p@M6r#7lQKUPy`%!dlMLmsr1aSJ~VYStm^m$a_Z+yfP;P
zb3-!X(Rxe%wx2-94HwJ34Ho1t@&yMJ+qQ{9wQf2*wzvZwyJ2h0vs$2Q7X{y7#;SB(
zRyVTmZM)p+_gU^|4VUl<DK#NIV&e$aTUFwhPw<K;lH+>BzU&fC+uWe)!BjYgxoVw3
z_GJ03BDNGel>=SQivG=wIJh5}<$B4-vNWKU(vj>G@>ay}aoW&8;1b=;;(@$(2f@p4
zY{UR8dn7#)b3APle{E8}@gj%z65YgQV~Qz@g<9F{NMg)k>P`FUS#Gc9gBGQOzcj!q
zaS{buoznCSjDJ~TO<U<*`Bogc>f843PRe^H61;dO1N{yZnY*tdoj5N{UHpQOeXlh^
zFOy8P-B!nUV4pv{(Miw+HtlAgk1}{uo6?yYv8p6oBUh8{)2}82T5`tYpOFtEIC~xd
z?Kq@FY;2)6L?;6WKB3iDC$R<y$^r5yv^FE%gba&6Ju)=w()^x6>!rB-{^pdD20`A_
z%NVi)YNT<}@0GW`UtSot`WiR^#!)*{TuhGG*g=)<xHT1MU~|8+VmOKVzrwu#%EW?N
z_dIW7;KUAKaPHzZtf3z^l7hFtThRp56-41;$a;A>%=Hkm$q^r^Nxa4AeJHSD(!3W$
z^Z19a{_@OX@b+Wi??y#Qu@Z;63^(kGLNdC~?yVQyth!F&R!^H?Yx@k9xwcFU=GV@R
zZ_`SoZ3#F>Jaa{K?2yheh$$?e+9FZ{ZQIFVs{)J^fz@bjo@oI!BuamyyCP2iczk9t
z`k#aqIUxZR^#8_AZ~Zrx5DH))W(K9=$81*+k{-h)L$yRXb*Twn6g4Q4AG|%n6nsG@
zM`N&_mBld6sgSZjOBPfJ-G^!p%xNk;n}pk@3WUva4(T;q5*zA2ZD7p6<%dy*HS2uI
zAWMIPJM+DfXYxb-%7f+rk^CgSPwuoxG2*=st3C6&cr*Ltgh1dyfUpH8@&0G}+Y|?M
zNNVEAm<$s-*Z!@LViPAiAFaO=5~ReaZhvTQl&_<O(DbuCy*4lYreD}i=>GJ0BUNw$
zaZx?CzNrP=;Bb*$RTX(7Yk$*laueGX&MTf&4NofTA0bzG-v4`ozvE5>WFIUN#!mI~
z)T?}JXD9EGXJ!A0T1*Q!-537j0983w8L2%*qsAoIz<sRdJzIS#9>YCG;v2_<N$ftl
z=v}Hbx*_Wj*q+4260b9=9xe)~sjjfESu&yQ-|xQbzd&9<S^9cm+a8ZGR!C$>F!Q?8
zgy4M3ow4^3d-kk*br@@D@wP@}4ywU-Y!jE`e#;D^MGqGYJh{l@bWz~gn4Xunf*LzA
zAhS%?NS>Kn5s>br_+ZJjl){&X_hp}bT>i(Qcx-cdh58fEODL&ybPLC@Cgo;(KA3n1
zd3}~L)J#c<g)^mQm70`6g3u2rZhHIReicz8Hgn(3mVsJc=iO!Sr~Pz)jNVk;5yi#!
zj^uzp%bHCA#en3#uLQo?qi)XLv;w<>j}|{^`|k&CXf#@|a^uypqg&s2o7zMjeT=sK
z{jyZSE@+>7BAGsS;D(AHFd4pZ{5y`_Xx_^A9`9EC!3P29GNw*5-;)j%GopWMvTLgH
zw!B?Qr#S}6T$k!4$4(TKx}Y~rR+iTqbE_cqOs1_bBsxXk=G9%Oeb)~Oj_OZt;u=eN
zk7<A8Dam9yvk306*SOI%bpaSjaO+l=eU#urZ+nB-+^zf)2j$K#vM(FXBDkiqEg1f?
zQrD7{((_2a@0O1az&$lFUc8xAtoz5xkCM$)HuGq2RBFswenv4Lb&jo8+0Eonj0ecQ
z@BeM4?kE%^P^mm8p5MT`*Zc-UA3C^H{tD^s&qOq8mF>>!-%Ol;!-@C7O)H7=;@+`_
z-u}7vz)0E-V(51Vba0!Xr3Q+*v^UAAJ;uyTuuNlV>YK`7sUh<ZZO3pna0t16J_%_Z
zV4Xkwt!b9Pm&b`Vl4DhOSa4$kzUbiCy0!7Z7+1FkTim{yS=<D-nQ`ZC6+aAa_cuu6
zXvv07pCTN|69;ARb->ErbR4zuG(ytmY%zn%0uv?C*}=GHFv1X$nnFd|_+<#9WQfjD
ze7$z{5*-Fnquf#9N!mG8nha@$g?V^i$5p-z&)HcP%!7q_Q7>})DLX8b(9iZgu)RD9
z#=57aT24S(<%5&^#mgW#71E3Ng~5?lnBB3`6xVkPt&D3Nm3%%w0I=~0rDvuZGU9tr
zS}(OFEih<717U1_*N|@QGON@G0x8_kTZ#nDXWBclP?G5{D%N_lVyY=4dzh@%PQwG%
zBBK-V?m86<Oml(zD!%NU)Wttj5(yHU1(k<-+XOmAFvKoFl+@)>-kuYFR4M`aG0!&~
zkCo&#mUIM12~%3wwD3}AKt@#A3eCi0+<B6sKB@jMN4*^P^)u+^!tl(;)qBI|-`7Dr
M(t22`Wc~bq0C~}A?f?J)

diff --git a/reference/Rplot006.png b/reference/Rplot006.png
index 9be55802b7642baf1c550ca3fdf23b2c3a7b8906..1bc709e8688aa1b940225886fcc31860c09b050a 100644
GIT binary patch
literal 13241
zcmch82UHW`wr&c&ihwi)6%eGVh#(~h2pB+6KtOs?L3-~cD1uT2q)CZ%Lk-e<1OcT5
zq)Q9E6FQ*;-rza!toz<w>#n=rUGK0UnaoUP_P_scf8XAFem*?WP@$z_rviaMwD3m{
zwLl;+?);B}4A|p8&=?QAky)szJOti>pF_pEK;Vti>Ctmn5QzHX`5*ZAM8F9MbQJ`D
zD6iv{x<28ZdiiBCX3G={|2ap;6YP4Q^m<~m3-5&o7c#FZNWP<>y8hMZIwYK`Q1Jcx
zH;^|}U?{_d`+6JP6z`2f-XX3(lDz2h@nbko-10JUw#dWgbK|R}<(1@<Mx<t7Ze9M-
za-L1?%JM-GH4i-YfBc)D-jC45#f+ejGtI3$ZtHqZ4Qty7bD?HdVl^IURSkk8`?v*<
zYYSFA{&j@?{D{(ej2k4jW41(X&piba7v$YH%Wl@0`g$MCNs<66Llgu(z27gRuym1l
z+ezc@gfxZ?^9QqsQNS^qDWuEnUv(=GfxLn=kqj+0`wc)BA+AAem@4XeIn!bL`<++y
z0&zL~L*ftef9y_$<u*uI5j3-=^;AkqqD-nFf(X4JE(lcZM=09PFsP(0gm{(R!?34(
zUI@P-!~)l1`%J-c$cwq!OyBbqLyAFIf5t=DaCBeTMsE3Na-dCwhLBmyx}a4^OXe_}
z8Q6Tb(cDh|q#;kar8vsvh+d&jpS|^FJ2s28O3B-S;kZz)J=a%~-9wipL4M;{7i#j}
zBvIQBtlYNE#zboiN>FO4?A%Ew!zEdt2;N7=Nppcplv<*~Y3l&1tnBpfch-&1Ux%-R
z>``#cyu>K`mAB`;i^?o@w<8Spp{LqIUQ%z;mYVNmnkW7UsZef#aW!mk9Y<7H_D@`<
zm2QeSeBVBD@7{@nDhp1l^Xh@W9z?S(9WbCQ{r#k;{;p5n(%$%W=b4>LXMI|Qpg`Vx
zLRFx|y82FI5v}MgwY)~VOX$?z%wxWfH<&)OP>`C(jg&jKr^|5=C*(A{^enL~3v3A=
zPKQ(iXOXwxMr{n+N$lmRc9Ud0nCsjrd0AgIaObBxB*W=c)am+_9qlOUtfst&flcfj
z>5*kOGoBIenco-6Zo%D=%hT7G7r_^cu%KpyFe{z97x$Nq6-QVo&|*%EXwfu@@?;3s
zwPMjbJ&Lw-!mHhsp4-j;o>Gf8hHxDjuUX^$D&Bys2KN4R18O(fI=;at6n92)kL-qW
z3!h3LIYaH|CRP58?oXy}vooD{4<7t>N%Yi94A*hKWVYw-2x@1%cls8A>f21CF#h~}
zwJqJM&KqBhSv(Wl_X~Gu^Wxt3OB>nI^qeNXOOP){f~NS&aY*nGULjo&VXA_~M_I^F
z*0a!#eTuU0X$a=Jz+HDi?pV=kZv<WBlDpioz0u(kBhUjWY%F}|ba&H9VRcbap_5#}
zbJn8yX*uXjNfPg7-y9^ruCs9cLU`5)D6y|^hJ)s^ytRA$x8PnasANj-%2?8g@m!6n
z@LQwxU}C-=Bh|zdg5jl~#t?JgRCi_*OIsTeFq5O%?*vU<ijO|!d@$l+4_-?YdtB35
zSJ0`HFG-C)`o<fq{Zs_Ja3ShV5x3p@vb@ezP5u|$S<87~Z3OMo`1Xlpz@w$16OdOT
zddl@qhQ5sPs|dy{No1tO<;Rk(d7oT>@zZR&<3tpueS)^@!c4QXT2peftQC^*&cT_d
zB-0NHRy!i7GtegVYYHPxb)wS`N{#**S%2BaJvnqtts-NDp}PW|KI9W{zH{KfFTO`l
z^0&%5>Doy5!G_{ufqgt<-GFbct!Oh!_i%<D8nqULT@z;K#|zlxn{$#D6<g=-<gi}5
zEN=AJy^!5Fov+uKIZqciCsOap(Hx&%I}2-miZ%XVydpbMK|5`|=(nW_b>Q{mGj!#=
z*^JWO(oX%n<Y#ig9;_BA0^!WsIqczs4!4=)Q6&CIRg?6QmbTwmto(hbA|K`y7j}q2
zF8NIW159}+b7kJZ?$29_PCtPwa<DN96;FDl-vSxQPB~wy6AMyXw%i(7l}z2aZ)K<8
z8{Rpk+iEWT8mS4;JXKZ@=zunRZXbB(vdJ&HeoR@CZ1@`Fq_OSs^dt!Lv~&auI=CRB
zO*!p1Yn#PNq+I;aPK<SeIT!B*-R`qmQ)<8e`*AQAQvst$nzu^K>y)6klq}+-5j~#%
zM<km$GROjx=1XXSm;6^)ibp<0CH#B>`=k0bI>Zz{!rusuh-{TgcFKC&PT~0#4o-wR
zUhH`*8{NzP!Ss$(cq*2kNicnJ*adcAEmh1_&uy-l++aV+MZwWUI0grBq#zY`kd8-M
zu*cP%TE(-J!g;!8p3PU1I6t_YJigm45*$eoYHsEKRtY*)(C6GTyfG<X-O_tv4J(tS
znQv?4-A|{^9DfD&UHm0y+Es*D3>tMC{{d+pME!A{QIzC6#Fq|lb-qooG;BVbK3r-D
zUs@U+jc_{MDG8FzG8d#EmG)K1@mghVKI}PkNdn7oMjmrak6Ti(JUtYip5ZEC2oS0_
zHv7XIoDd-OIlw{aRK24vp*kD(MW5P>KO;p%se0*qgB#NqSBw6s2P)rv;(If#uerS(
zW(*iK)v(Sf)LaS}4|5vBkTom&Ht{Dm^*-&YB&CZ0D1d#Zm0h*^^T2I45gdm~Y06HQ
zXIQU+l*m2g^WpY|yxx<=l*Xh%N|h^Cf$H^)v|J?WVGV&-r$d$YZ8RPpit;kW`rv}B
zPste!!i4)aQ?jOSDuCG^6XXL7Su7>C`+T=v<@sN=(r-*sq&!Om2Xo0_A9~+qJoQA$
zY=vH=^51uz=@h6_%hsnRPzQ6l92!yh#r7U=I@u9Kg4NstqMdwOsyq27nT=GcW1sKe
zi>$j~Q1QH~x9?9+S^~cZ$Mjjbt{nj+b%xOrwWQXM_W(IDq!~JH4auLlC8SVt?D7Wd
zj$Baat4~LNPnI8Hsbny3(&sQoj)n&(e1Gd^_jM?HRv9vi?PQ@=C?HU~H8NtYaryiX
zx{MiuUbm-v6tmQN{7(<hxTL6l09qX=&dxa{SHn52qP7owP2@l+m`iw=!9f7cbw&7O
z&BZwUN%g6QwfIZCeZA;3d52N6FyY39u%%lHo{MV1w8XflsV<iEVGVi7y;r28(OoWv
z?+z^j63}v<&gGZC%?@23kGIhm3K$}HGg`UWe868<_^m45F3Xj{_WC%HLZS2a)Y-Rm
zr-GK{;IpY)QXWtl`6cff#HM1=P3-Xwid(1*-@oN=_+Zi2tVAv8z^`9nDcPFGO;7U!
zEmnkkPwSG|v){SF4s|S@si)z=k^457MGB7GKv3w##uQt|u%47)2dtEW+5uzm(3nXd
z!AId>YxVxtPU{;q!!cyqC7hUL-cMOHLzr;)AmijMANTmO``z^2!dcT2|AnSbwu4n`
z!lFfsvI;Uq5PHJju|xiJqedmz5hBARTf%2o4?Y4Tuay^<d6FB*^S_{1?zdC64tkX*
z%I9$+%Sb7gJ#<}Y>ezJ>Df&uwnp`=oHwPyB8T&YMaf|SL9Ru9s&0%feA|ss}J9{ha
z{U$eE^Xc#`rKh4QL&C2N%zp6D;T;8e0OiTQyD5zuMqdwK57dMg+u8272WKMpq@3)S
zEd6mrYp=%F!@T9yV!>R@P|H~uM+zU@-^jt!bbn#T>UU|0gl{)4g@2M%`V*RK?RIlx
zldMI5suF*KCgZ&)?tSHD6vC~)f-fmlb{-l@;jJ3P_GKh=Wsu;f<At+XM&FJRh7=rU
zq`?V>l?AsOY3>B;n(8e!C52N6cdc2ya9lkAGLe*E$gsjvqdoU7Pd1`|c`4Tj83he7
zpdi0gp>%uyLkRM6%IOO!hx#WDYXskWd_ql47c^piH55E)Od?Xsff6nn%tZE;=P^d<
zM72j7zIFQH+=zcsDe0hOeNBY>vf~BEiYO9?=r&pSh=lBio+`7;>LZ#)noBYIkE&sW
zzWX&yD{m$R_^OUAX7{fN6)aN9sZu>QR3X5GNKe%XTa?C4G4HZrUz2-CbB$`=p^PfL
zn085X_+qkq*4_-YSG?&Jt`(4$SSI-|vuXiNR9)Tf&1CfjP)8kGEzj%0TcYu*j~~yx
z<xti9oi|_!PT+BWRCvQnj0_%o(G2)>6MV_+KWy#^h}Lg5BP^rtzf$)biRD#W@f@?S
zQjF_>=QAG;MN1CH|M`}Gg|vv>6)SsCc-#I@x%pw+dhKd)S$ou#x~s4?!>Oa8#ZyAN
z+$7a4$I1G(Qp@)ATmDD8orVSmu+)3@2AxBOjtx98;s8oJ)DQ1FHMZKP!qq@(c0$-f
zN}m#D&wMao@~&l+_ez+WNX?75^{T0WN#xndB7<dHgtuc?(rvEYxy6Rlqg7(#c6^DS
zNS%z&+o7SM0WuD|&4!&GX?$%cr;qjQP3>HnPi`6$F~<7`Q-Nni^Ie*@wzez3)kG)m
zrfCGux%IWRwe7ynOWVgD9UZCrd3g{Y<@KZd4<-(%wevKH<6q?8zB=8nYHF|pOmhXy
z|9v<VZ(yqV<!Dt^Tptnt6_0e?9+s={-U%TdOSt{{*ySDge1aHQyEm%B6?nS6hIW%m
z^T9V946(!f2puD6DFk<v<jf)RbT@BI<MZ9+t#K@H$1_;>mxcz}_+Kw<7ETU6F!D9l
z{JN21Bx&9I#oH>~d*Pid(VN4*yzkqjjvx5*=g)V<ta@bVan-X?DKT!a31-v%`7Ugl
z=j8pFzyRk_&(MucRCGkj@mxRZwq;vt{cM!9NEcmr30K^W#|BmlUCFlHpT$>g!&yX&
z<yH&JJUHb7PPm_V8KdU+Nb;MCb>15Hs_NuN9hGU0TkLVAS3Wx<%+7sC*)LFgDdjJh
zr-^Jl`WeG*wGduL+#katVg5%UH7&y?zU%YA6v<WD+1sy|-%gfvo=N%@$5%p|kyAPy
z!jWFOH)I%C)Yy2MyOx!aF&(nDdu|RN%;8V@YvJRyGAtORovZ%5;QS20Yo7s}sCj%g
zZwVoKtqh<P!yfz2#i(plnSFoLe~!;pzz+^x!+*SIKJbyX%K1*#dq;wf@l9s|-QC?y
zY~nTp-qAAKKR=Eiw7UL+<!T})0}m!Vkxzs?^cJs4p8yEF;yv!%zE0z`)ym@NGU>f&
z&t^Djd3=Bm97LP91o+KHN<@V<(VOiq^_iMh+C4YUIP@Xz4Ij7eh%iY=PmPW+-cToW
zk+K+}?_<v4YpABy$-K9>Ct>Wj)tWMA2z%$^wUiMWGBi9qH83!6_cZ|9(8U0ajF%UY
zRRkHP&qyPv#3b52P4vodxr5tI6Yhrn%WiqEXIE8#D|I~0QtoEI^WxE%&uUSX#rE8<
z=ofjNRmDsOnwc++_G@G7(mxq!#GB~(a8RRtBKP<Abp+x&<~a0BO*MUek5wA6e*x2%
zr6M;~V%o&9y1MFEdobx64XMVxp*}q-LlW&A5$7?*p_z1R`t)^wE>R#&gRAj78Hdd9
zpFchi4GqVhj!LQ}irC9c2Q!L1&g%~?soSXS2i-|lH<n7%AmYg7lF<8qY@0r%d5l*(
zS7rAvxA1AC5{^?G8@*>O`Y*9_R{0%nADxGj=d#<;W>MATkv!rY6U2==e3aiA@gTZs
z;j?Xk^KPFCG6~->YV><~cRIzsax|{brBLuvo%GH};@Jy{u&tqffCFGNkrI=v;=cQ9
zaq0g1qxdx7g>e=iK51xb)97;6^ls)=p6vEd?sj|hce0%x*@JOChlahOm~*&Xa%?<Y
z_;qfDSdZjvg+eEvDV^^|&Ekohls}=~dnd|&r&~h8<l76l|NTxLm}AY(NBr@T^N-=^
zw{%k0`_;~~x%kp{PR9Ka%jmawAo9e^`sWSxsEYV{E8Kafd}56`2lf9s8Ql_7e#?c=
z%arFi4!Xp!G?Ol!!c#vbHiF1G36>t*b-*-elIc4(?CF+QRpq_HrcZdSR}62s0_L>o
zEvaubR<Mb^qPYw(h8Ci>wl*+Y`fx5z&L3#3O!WbC8Hm^P1%O3YP*9Mv9d3Fu!$E$<
ztyeDmv7w#U&=f#d=0H&Q9D`6g`B!kLyma=x98v$}(u9PBUBcGvqKIju--E`3Hdj*E
z_AIaI+D4b+ZF(31=c5TboCCilr*8}Zpx@}x7Qr@FtY4aWZnmV%7{q5jUa!sLWg}H<
zccmFu;K>#--Dd^09!k%3dJU5m4XfP%{No$wcc7FpugxDShLv$$m48b%ao1+xs{}xu
zrxPb@J$IHVYgXHzTczzCgmMKC6398daP)lXUNgfiLi)X+cf;|1tCVi`#y88;AGi<2
zPqsk{O|np^n`Le6wq3s*9?dw^Z?)MsZbdrQKM_ziHlAn-?^@172H;tm2(6Uo<F4DH
zwJCntnJ_rv+<v8Q9hj-I*%qsw)S4k}P1(I)<3z9XY5xQSOiOVS5C@v~=RZ-l<_h1H
zv6^hV>^|_c<VUD|6LG&RS3UWg>$zNHgmSX~85k%p9H>v^s4Lic(otNuan$2bx9+h@
z&gJI>kQGcO?$_nt<KyFvi|M`^zZ^CJ1njieNtqtb?5_@&T*1X5Pv+uE8utIR0;Kon
z7>ER$N%vvnsTx4T+Fu$Lw=#81XNHS>uJqcPX<-pHks*`>5?3+NW$Hc(e#B~kKZhDm
zwmT)%0eSMA@~?Wm{5$9EA{IGCF<&IOwMWwN7m80B+;gh7t_tzy=e)$FZnew8GK-5{
zhqpV1Dr+O}amb2#9wCWqR-S1de_l%)`>t1<!4NNg#q#b^UlL-iZ=sVGTIsOja{j>}
zrYW_YtvLnUNsj;C1b`ZPqd?-G)mk0CF>TxX90(^<XT&Kz*SzR}L9X9TfoI+<#%_JQ
zfBk4X^W%eMdf@3HHtLG>zSxCYG2l7}0iq4NznSCsG)>M=Uk#yQ+uo=EMB{aGnem<d
zxnFT5_zsze!lR1k^l~E({uoe4j!}^jyx*d9D3`~GdD#XqmxtWS5rp|~FFVQTIqt2Q
zp5vB&rvi3PI~p}R@uC~!HLh3)>zx-r$pI=(2KZ`q_!yv$((}8=S50_~rL=_7H`&a0
z#0#^ScugPdPx|7YlO}YkxJcsbcPeGhPIk@!32Jl)QXYTn&?_GLcYy>aL93Ie&d780
zW#Y@KahJ}>muIdBK$(j43BLuC^%{2?4qV%d^wD1fM$qPhuAx@L(SpU*Gas;lr#q&S
z#NGa;sqyi80tQN7|1vA`p21Mus%i$HwPnS-$_)X09(phCB#X{;voa-%+v@fMT+?{E
zQc!X#vus3lE~6tr5;TYM8eZn~U31=Sp_lWs6>cY!+{8c+YPQ-qxPDfu>b<mVkCJr*
zgtAFfDtcpucD1AZJnfU!^7+<L2C|KJ1H2HObj!Rs`kche&ZW^au16*RSplZj0$fZ+
zjpn(jVnI6c7R>`!MUd*pW|Qb6c>niiq0J(==^eQ_JXXqWIo0}aUw1(7%4eX(%2O0(
z5U24VHd{46{w-SL3*r0I$U)VIvDr3X<NH5~KtEH;QEbcdz_sZ42V3n}%6U+lsCZY4
zP{;u@+Zowr;Ij^;zbzV;y^1l04f<3qvvCkk3YYk-Q#rrb+?Ec1U}mXk?3x3q%<0E>
zrPul4*H#zALx{2aUDc|s*ax|L#6wfEbd-)ds%lA?T=ELlNn^zF24q9zmILHgy#*V*
z!fI1vtgv)wPOUxSs}5!z7I=Uebxri7vBs`#Et?u2ebC9j(=;*Fu-Z5jXe{CFFN855
z-AjP@LFbuq>bpxTk|@VV^2Wxb(v{n(d@-syUld3spZzk*G0D}XLN9{VVs&q(lMBJM
zAU3FKV)@VN@PdSQJn&~v1ch;0DmS>a<Ar$O`LPB!F?k8Bay0_aAI0kMR%ij<HOTo7
zKK`F<K2ZEk`6B{E2lgNff$jwH1sNieDHnL*TCIbs)Lwi*Q`;TKjuXNOd|~inU`;Wy
ziRF1_QdEv80at=2JJ?PsZn1gMjFkU@1HCeBn;cS^i(Vy|>id0O@YtgWz;Hd~Xa={r
zPmm!Jk?1zy9IF9U@F{rHVD}MJ5aEHNHM`{GVUY|RfZDv|a$>K(<wFC~<z|{zGLFzz
znfA81TAmMJ$*714SKZo|CEW&{61wF;;$$i@s~W5Gv_c=TbDxRe&(=S|EW3R_*eRft
z2mYZT-XD`Q{_z}Q&$IwrH9;%k5srnr*MZN9z-Q5aL2E_(KRezufi+P5*|(28C{>#r
z5YoWnWG?^3HMmwhV0i-1>v)U*T=)Ek66k-rNekz@Aa-GdYlMxJuAW>5bV6yZc1si<
zD^RR!fH4F)g2o_f2rS4os09&tA*_rC?yn4tD3EsT0e>?{j=Y$x4T^+{kTz;5r|uz&
zs3VS<Hc#8t%GwKQ?ewOTN+2cABy+Rp#2MLdqNv*ZxV*l-+0qFC<|!+Pt#nu{$Uk%O
zjC%Z$H>npt`gM@AEm*BC#Y~gE)Sw?et4w#_z8_qWBgo)58CF?aH<|2-ALA;PL|@$E
z8T=${aBm#v+2T2xQK|*Dn)E+w9wOz6$k&mH&(o#a#0O;st!55~f({;HkHMk|Y>SS4
z+(<==;{@B^@~d=?la_P1upd7DTX#0n@0aL$h(5|kC(ugh*YpG-xpYuoWn8IJRa&Jw
zjex0EAbO~tQppsgO&Qw`W{iEL8k?Q2B}htuHp6<wDab>*qay31V<LFqEAl|Fl&z7)
z@DyDf*W?G{Ob8Rp!;68Ohuptm(*^~?Q>20lxf)=gYElAO??)Z2Sf0ILU=Zz~VTdqh
z9W#t50qKD(gIr_P9>->P6vQXYKgZBv$T9Jliwd_*sDSQ0U8<gPsx#(0X`4Nb%vjpo
zkU_(869?RWDD7Y&uII&{N#h|Os#|qhw|U_WYCxbcU}lyML;I%Y`=)fw^pl;_p$kl`
zRrDV>G+by=wOI~-+;{eBcP9M;?hx1MPYL_=d!-<?-vR}|G<9QM1CO#uaHO~$%oWTe
z#{Xs8bCP-^v+)GX<_6C&XdTH~?c+K5dHCZ(n*;H}N1nYa72oIyZf1HwBpaJq;d~!R
zZ%X6Fe&yVNYt5fC2*dQ(#p-p$_rB`=e5-RV&yR-~{UnF;U4?6DevKCa6hZgq|ItMF
zpGMGsaj_==Nc7E$vg3f@HUNU#l(e4egp>e58+==S6gyA`?1IujHOOv&)DTmkF))fJ
zE|v$ycb6yafjY<LT_+wVnOo^kf``E(kN_>^2x3q_RfHk5dT}-n)o9agPE5C5p1M`8
zwRK6@<hg|7_ibZ@rvS4n^Jembxnjv<@q5LE>eV#sf_kvgqtiFsWs2<NG)X2?fqMb*
zALy6q<<yIe%DoKD<Z~=+2A`;rN;=$ha^2M@m(1@vm|z3wjfC}dOIzDi+}doGy?<je
za6+~9csp6MtLAVckoK!i{j(qM-RWhWieh}%O=2c%_J?%Sj~9}uXIt3G=`Yt$U_}c@
zZu9k@9nTyr$eqos=pzP|Dh5c6e@bJbV>J{29TvzVmASzBV9~!cenZQ)*hvN+YhzFf
zslTylwtEtX>BJ;pv@t!*J>1&UUa>rb<rbs_8ypkP{0lQHtsmJ)K9x5><ax|v<R@&n
zz9ny|&-?N?Y1z~`fTc`IA>$O~Dp(|UYF?eeU87hYf11|XFZgI#IWDiDUS@xj=vO@O
z-vVFs!2vS+Cjrf1{Q_{A?_F*HA7J1_(VyN87s5+;;LJ}~6fT>DK99}jd;)B(lZF^3
z@xqT-Rhe;Q^^Zb;6ZG;yc?Ge6jus?Y93#&1YyjCT54)+02z*k+!vi-M{Iv4MB+e=B
zcrU05Q5W=FHtiE&pmFJ?O%IGMhN3x#KNQ*@l$QT75!h`2?2gCeQ7W<GJaEc54YO6w
z9<|tPSP{^}SHnf7nmdA1_Kl=~WQIMA87CdY?Gke3GA-~;F2z!jCB~q31Q!?!JtuAB
zf`48Raso!v-U@RP#T^7Cd%YBb$HFQtjC-vvhOO6O!uw4Bj<Pp?i~-;^DirXZi`cWk
z(t}T#Wa;uPH~|q;DjJX49K&P<_op_}`NcTh?4sE;4Gs@7dOD5$#B=j@g^P4^S&&-h
zq7^uWF{+wO@&bVm$Vg6s?4&L7M3OQ;JEJcvb`oMBcv%cCtaIv1;JmULmTi))>!3oo
zgQhcoTSudx9M@v=vTc-7vJg{!20Hyi#xv0h0x>>5Ukfln@@)KlK)0uZboSYe$0!}8
z0CYFONvSFElF*?p`;BMUO@vu%l$*Hh>%U{TL+GE|zg$MCrJQ{aYa5<4a$7CD&lOMv
zsKztBQixIa7(=>3bze(j5FVrlJ$r2Jk0doRdX-9^r2-4RP;6Di+51UV+_a)4*Otz@
zu;fwwO~;;TLu|cnvYB`$3e~v$M!S;j2su{xG{y_tbOKXJm8z(@{+;KUap_yM1LVd6
zjWiAG1k_uG`ZB2z-3fyvJAr(YB4hAqmXn|kkd1aBsSN4JeX9}s-~x-ihYaatYmmDT
zB7(V35t!#ZeXvPr^aj)+Z`Lg%{ab9$F_3+&xQ4mQPd$+2<qzoS)1wr&gvajQX0in%
zq2nr&N=s~J(zwTF_;gJGD2+wH1;`?JQ>&_P++s<37MTsm(yD42InDILvjZO~1_0l@
z^GvuP3`h!39gt`BI|k^xJ}Cs1z}uCCVeo2$K_KY-c6ZMoMv}HtZ4L$t>d2~BbK<RW
zVi?_LKmUSp<n<%uwebv!=0l8o@TDzJA4xtS|Ejkjt&WKrV}Oy<aE~)(l;)kYS&85f
zsej<w;UR`PxOi#D=bsTqwYg}4#q(W8RIuNwQxS{hdCmN>1eCW;1J!4e)e0UX0l?_c
zp@-0W;v?snaa|Z5+W{P>@APiC%085CWdK-5dq}l8lRCVPX%?8f4uo<RVAX}%&#MJ7
z?}1p1^%KTr^i3(_%y6YEIo$By`PWRr0Vz-X^dM){mrVu%xi%o36T}b;(*K68*14m#
z=+Pjx*iQ(H#7y<yPG(%qPe%@*uCb3*0IAH6zqGkpx|l^t{$`!Rj=l?2sd4=#Jl01Q
z$cKg_WzQ(lESnE^eJ(mNY>wWU@w>=sXg2PFNtx)<jMcf>-OV9>Z(!Z@*T-bHg?E+n
zom@pPy3%z80n*jOp+;6&5EC7Kcr7YVJyD)i10Vx^0(1-r;%$+{WsIhsL5!C@SHMr{
zs>#De;JfWQJZA9&THr~}M~oZQOideZ&`pEn+mr7(53_*`hZj!CQ9as5Gvyr`_QRmY
zi2*<EW2I#AOdHT@TZCoSqUT)1@kJ+9_x>0jl+~ar7>4>;J!L*z%7cnV#b<p9FD0nP
z9;Hq``HQ@NL)!B97GH*_H`lTm0j2z_e{))2VAxIZAXCU|oZ++XM*#im0BXvQ)5LJO
zgdj;|Amz_w0kZaa0*q=8fdq{~7omcg)30$uB0t#ZQ=gcP^W!o$Zj5vm!CWfZd^uKE
z^h$Iv%<JoT?DNT5&72u{{*~^QP-CD<@&L39=(4!29`8hxotmJM{N;g*(g!gH6(LZV
zgCO5JhQ-Mx;-Mdd^|G!<gK1|7^vK?)zu54+NNeCsz31Drt*R8KqpgK%s3ML=-^<sj
zt~zsCjP-P=vju9jG$51j@nINAMmHUdJ+Ne%LXur#VXdNBnj#MPRE6jW^#A_oDB*iB
zkf)U#MjEGMduNZRTcD4w4I!&y@g6V$hdg;GO6ovzPg9Zw81X~lOSr;OFLoffqVxB5
z&Sxp^-!)7BNM(UMGa9rHB2y}<g7$ztGzG5xjRPj!ZOkerF(@%;3*(Nl!?9rG;k-a%
zrfL01D(Gi4q7Rc2oUrMOd87btq^@QoC~EzJ$LhQWa^@<?tA|)C=sG5KWc5mCM46nE
z0Z<Hp4%{T<c^#ssyCVZxhsLW5wZJUp#i_Tg4m;8Wm^C5RoOhPObX<47yGKUa$G;zL
zwD8s*+m4rWG%R0wqxwU8{cAkrM8%A0(_#0B=_;eFBS~%|+hWgB4E7q3Uf%fnqaw9>
z^y@;LgrSvF4#dIzpe$UFS*=4=T%2}lrY^6z^vGvbhi9@mF?T1rGeErj`k;|`j_y7f
zN$GcU|7d$;M-ic2kP^iMmn{H_B|MmgnblJa{Vl8p$n9o<+SDkbRWEj6aW~{V|3{ub
z&HBHdU;Y0~J=I97xzNJ5B(c>K1u0>FZKT><0G5rZ;*4<vsapqn{|FzT9)BnTX#;6O
zyD`r&FEPI!<Wf5iU1!?yQ-+4al%oLoR|leDB1rThRu9w;VS(yF+dZ%K)MAQB+x#I(
zliepk&)_RiVrX92C-y{}SRovtawNsjmClHr;eYx%52%Ia2RdLlvBRYRQ-mvG7?mc&
z3(tRVaMMl{vIzJM)~nTO1W1)LfCliNun0qgit}E?8v_BLf-1W6@5Q%|8W?u>{NZJO
z_M{fV@sSi5D2P$lmPxMjf%cTzBof%HSj^5KvoLV|Nc_3L-UO@`g*H-W%e_j~3#x?7
z?vo@0b`b#IJuG4}Lm)4)c{&3G9nE=INKb>;QU;2$j|QXUC!H5(qfx4tfb-yhkG0hz
zkVgM%!2rY7`u7eSSdMu06^RqD(CpUbBzhUjaY&c?zj^`E;1W;)bQoj>)&oak!Z9Or
zT5&w6Z2;zev}oE*-JVSq#4n5`CU;QdpY^d9&!$O`vuozo{0Nt15vKYY249!N0tz4d
z9qv(oaOinn6E0L0+mR)_FfHkN@d|k~F1NT_P-0v3@FYH2-QV!Dr{!DS6Z`M6wW>WW
zYs^JyKAL~-tUKZlaph0lZ~hTv2!tCR+hE8`<*7@K+PiWjh_*e)@$cz-6JF!XZ7omV
zFn3lRjvF%@D!VR<I+DS<8ciBA?S~SvUKSp%uEY-2ACC5qC5r93e=M4hT54j83pQok
zjx;K*{!9gI7+TSR?!>>J+MoV5h<H~j&s8rwUwMe1+-m9+WI)oO)D6eRw&VpDM6G={
zQl?NNcMJ}{H^0J79p>s4`*|Kk2OOE?XJi0br<kDLy&S#V*|B!so%DcvWt;I$dUl+D
z5=4wI22M;4-CL}246v#QYc>7mCT{k0-(4Us`K$!4z0i~7G8Pu*_n@|+QFigHaN8Jk
z5`yNEtTWdH+d}j}EWDro)(f(m#?7MHH0bL`btIA!?4khE#HdOI$&i5x7{WF)FZQec
z_m;NqX~>ZoWVK7|L^yWuNH*Gx#^;U5&_Du|syPNt5q*P?i|n$3>L|S@Y3&#|^i~3O
zsKe&zr%y+QFFNR-k)VCW;{>%)-qoLaR^^2!?=}p`?1t>sjQo8a@NAGM#O8l<gzzOM
z<#OtS3MY1!-P9Vrz1Rr?*A8eA-Wc3U?lUdfO+_=-C**eY<=}!vb-kW5e#-f|Gkdcu
z&Gw4Je0HhI&m_7tJCZ{?5myS32BRHB&ept=ioKeD+-n@~Q&fyq#lSzE-m#;XF??rK
zE9l7?a#44(b_7iwWSO6=Bk`CNmL^u1diJ#FXJX*EBch?;lbYvzPs__-_b(DR_XEG~
z?cEoYrf+cf7uhw&KVEf(yXWxrwYy!Prk*l<(ZrZMg1(D(h19qyF#?!Z{{6vC8+9_w
zWB2jYpdzBSxL0NzECl8RRpxtW8SAW^^>Pd?5@dGU_G%>jhMz%IiR`N?TN{N2A00VO
zNTaU0kr$D6kvo*Qm>9=gKe2#uW2+}O!)x?U`7Yc`V#6V9ZVW25E`SxTjWFmdk6?x}
zwRX<0=(p2rIJD@}xY}UuFOnjRORwO%#YVWb{IJ$q0%z9TwqSs}Xr`OV#(cnSM!Ff7
z&A6OvacD|<_d?hZ{nv?&ajmnr9?jqfdJtrhE?}k&r%%gKsw1aQ=h3)f<0`Wyc;opL
zX+VtI#fe)SgzM8^BC!w-=mGENr{;@{QD0;}^i0?_DBVA_LeyZeh^=QG1%kEPa@Kr)
zB{q-m?>t#ub<OZz0$f)VI4sx!8Fy6%bAYkDX^$k<$anet<Y3eh&<*(AtdpMWLbD~k
z(&3J!Cme_@MBCEdXUyy1x3)HLls7@Z9QlH3gq<Me<S5Q4q<DWS%fJ*F-mO?vf^C?u
zD`t1*pY|(P-?b)<>PlXqX;yt&5Z2v7(VQ4axoOz!9bA#ibq#+v4T~KYV>bnG1kc$f
zXQh_WT+&LVx~w&SS?#73rw4g1!#)uPveTPjQWLP^{8Bl*_zwqbP3-}9<NbeH6P|5w
z3p`RqKBGYvviHCUp6^`;p$Cd_K12&bCzA~|GypA84ivP%yE)7GUJx!`#N~7kEtRoE
zN19GT_vp^e!Bp8GS6_Y)swB$7A;m3T)Uf1b0)Avw9zz>^X<H1lU+P@)aJH-x6u{x@
z&(TXIM7lwu%yc-uj$lEIVxpI<?U}=!HSUTWIBN(sDP~qvBg&SnCz>EM@6(6DqR_;J
zt}({@_a`s5e$b4IECp{`thu8IHDU8qt!MN^gc>lVcbm_^VWLQXM7WEKBv=xr>7WOZ
zUiej&I<IZRj_3?B-u5d71o;Rm0bczPB1?Z+k^eo%#e3=8S<WSWH6TYyBP5^06|}VZ
zTce-J55zKf-N-WrpE*QGU1cOj`qEa1-ZCWuJfb8bEn;|;K6=I^VP`ULS^tt^=CGPe
zF53gb(@lCauXN{kGm8QVf=p*}GBl}lcNxOAZr?B65k}rHyVlFvpaI6ubtw*YV*Yq<
z3tJt2`b>tC#Ql&#3c~#-a~^y~$22CO8A8!P$TYEa&!7?|Y^N~hITrF(ZSFT{oT6~*
z9qUbnjhf?P({PuLKbO6P?m2)maA(kw@aRjpw+OsSi6(?@E{k*_E?8uMcE``7^xQ`V
zYiH;ix1wi`*Qte(YC*D@i&;S^(#fWe(IPu8iJGX_AiAi>-0o@{C61^n$@nJ(vWxcy
z<ibOM_1PcV8c0r5*7lCw-0T~Z#MVuMBagmWpX6m?`RDA-UhXE1cC*&JYE8%TFm+Xn
z1vx@?cIpqFHp{>6#tc&mcN@_&COpj$8L-&u?5-F&GpB8ij#X#dawSqp3j3Uj<7OcJ
z4T_Q)SBJAcnZV}N#gaC;6;|#6t1ZfC(5wVXwDw&)7}~wZ4GEeIYcPrHO&cY#<KTdO
z>}7`~_2&F}$bY@nz-Cpszd>n)Ycvh$q|C`6)5S!OAqOm8jvSk6&5gsqg1JC7jgPDc
z(^U9FoO5OpQ*2AmT4Vr2HZIqk3S{IExq|(h=$Vo>ux^vWG0%FoZ(4mWA}mEqz*qW1
zF79i-I)GMQpv#mJ_er~6UQQRCUZTcNHcAWvdTpUlu_ei7A9{rt>~Mt)69H>otBg}<
z4(M{RWLkZ53eDIXRF?!T{T!)Iq$H(imN%<0?tM$4B+l6FE4Ph@hHTExPV3X<oCC%d
zb=HCma=hSkn;mG4S+E$ufRxp-_YhZO<a@EU-gW06Xi>nb$Yn==zl8QlImCowW-(L>
zYU}b+wO_<A`etX=wZ55)_yh)D&J493VKchvuM_Rm>UE%z5GN*l#FDGyl0}5V2Iy3I
zNgy!U>ErVuS0=ez5&U^f8IPED6n5{2dfX1UUz2box28zg5|i^eQ!^%X$z3qO=v_))
zc#7lScAV{a4r|RFg;d9*!{uWKROTvsZJ%q^(D7b=@hl(g%rEQ8TgdS%aIS&}#Zm@J
z^q_N6h9Cu>=>W<4Bdz2WioA4Ly0tVXk^i2w|C7k_-<*+aCw)yW<abm!{|_9vlE%Yg
I1+zE*3wKY2HUIzs

literal 13291
zcmch;2UJtvw=SAON4j(YktQG@f^>+|0}4u)77*!OdQGC(KtR#Zi%63W(rY4!{G@k~
zmLSqgDAEbM&Hvmt&Kd8%aqoTOf5u}Fva)yf+H21_zi)nXt;L%M20C;!Tr?mMhz_o+
zX#@g+2^TLa3gAe@NGk?-qj;>ZqY1nNKSvr(NZ^gyNB5B*2t><#@d6LcM4o~`S3z*i
zyC%Wu8#6)a)}}Lu+x_cafz*Y9{M6ZctgmIsnRH!f)GupNnZEvX)h_!DmC7evj*;f&
zTq-fLOE!WZb@W{B-f5hp1iKm;>*_+_x?g|&IwJXQ)(5?EZA!^dZaN9U+U};N_z}~O
zW|jSj2bq4{x(R~tfA`l!RRq$D)2RF!mh;tE$->+jHg4)B!CUxyHG%$)QNbuU;<Jv~
zeuPfaMqgxE@rb30QO9jT9#n4hq|gdT5Yt(zzvs^l`G9H|oENhjPWKI@%m>AwQg9gD
zmvmp=YyNLC8Pa)U4|siURVevLY%y)!x~XP(rHQf86h`3$N`e#z+9|D~Wl)N^DO@~l
zxEf;IQ*rmIIgHTprK}ib@@5-(IX2AD;K=*)j(E<2xi&Ek?T8b{Nukg}tFLZ)r=f{I
zx*~ZoGl?=@in~oRyIKh*FSXnBBAIT!uK1=%qd>{Q7`tnH6?%^%6%~-vUk!5aSUuK}
zoxNpu-_GT)8nj2GWO_Un(*X-pHwkpSJnT#bckneaRE%UF^|iXZBwR^6*70bj1dOA6
zli?|>j(IEmZ)^G=+MBo7`agXs0b4L*JTXf$bhx>}tt7uzksu|IZA@3(TTBKEW`;>z
z+&MBy86gPIs9>|#Y9_OYH#|7}TOi@;!7GlvCDtTrmUtgG-qE$F?a2P4D>dh9xeoE9
zqt#(=B3NF>(K$()XIrWEEe5Z(LT2s8`zLbqDPenJ?P-Gdn8V-_{o7fjXeg{eS9RMp
z#=H8mJ`Vo|vmi`(x)ju~tF?OTY-Qv_FIgh9rGGipRXsuB-8)9P*RdyF>w7YTyS5>#
z;X?bzIVz4R%MEIwamdc8>Hw@$Qy~oDc8!Yq8Y0~gv;E6x_v-jy)b}GKuCn^Rp<-Wb
zW_)}mmRr1ktcpL|lq6}d7Ot80%`wujGPx@Q&yyi#)RBT3{U9N-KHL;tA;oB?OrWr1
zm@IdZA-7#}>)lo25%0DM>BKV#`A5iUFNoS%zbAGTOe<9B^**<z{k$}Tj#cKEiiir?
z(XxxMQ#Vl)4dvBbb~}^gZ;*c&ITRbyKRgYEcmL<DhFhqwXjvRFK=QR05ZC-&ok}^w
zGBy@liXr&((DgmxjFS1@iM890%drFKe)d$#hDf^8w*$|RToz4GUrFd0M@y@C(Y&vn
znMp0b=URFg6*r@R@&ja`hVz2OFDJ!$|0j__Pg-?Zogrq1V_813TQ}9$mRQugDb<7K
z)!QCcgU&S+i2ea>=)0vRi`N)wa~i>t`K2B5916(;t748!*?AN`T-l>_YDZ1~_+fzi
zTT-8xmJ13tBEbS(hnXeapO<1kFZnsN+s3xcKD)_-UA{AOpw%D7GG>zo3R`?@ym`90
z9R6OckE|rqgK5s>BQ2VNO6S`cliBxQ!;XEzf?wYc9uA|p(E%>_9cw1+ReyI$(5%S%
zLAs_cn_=Rk&dP_Xh}czyw?5H^q6<CGtvLxC1OxTop_w~P(TGo_9clRzuIkB~8Psr+
zbQ{`i{Np33sPCZ?6{_~<o4irbj;9zItg;Lc!52g`V$bU(HTv?gj_i2bQ_HpOi-Sh}
zyEc=EIo+&%N4qJ5$iSdUglBPjqkcqwRqH*4Q85Hb1Fg|WP;QE$=xT~ibxYQ{TP%?3
zf)v%J(xEdq=4r|4-gTKQ`#o~$$~d~;>u&v!vGcUP!fJy+K+^F&XV1F|lZptE2&9hr
z>_e|&{N=fk!b4Gm*lJjLm}y&{HjIKdn{?FI2{!MXEuc#Jp01$~s;um_c_23&nR8XE
z9^RosAXZ~H5Bj3gG*vh|EIp<psCUD~Jh`(ZqH>yET`e?sxn?bTeKSw2)93Prl=h&p
z4MWM$&;D6;h5j0Gf5({yuWLvFe%21~94y2*(^q@o?8+bQNdqajtLYz_O-;`45C$w}
z452|RlE&0?;q%2gO2<rnEb&brebju*YS7YyLE$O2e!1M#+?T~!Br_Bn{;9u@i;Rj%
z_0T+NQj1_aG|MEK%G=XgU~Wa#(wckdTIoNb%JLE#(OF1hF^eXG9UKC9bm|Ac2}CK6
z<f8OZbyQ2=GPPV{ze{n}!~23R7m4#O9XxG4xH(zI*DPVLmD1uli=Y<oIa~stT}jJS
zAI|bVHEO+6-)&TuLnTq*WGB+blgu0a_|#aoZ$Aoic(1MF`d2yd89bS9+e+9#c-r2@
zRyN}o@5`ratwQ@LexE0tAWaKzV2F$~a6h=pwdoCcRIzc*;t0cB`X6NHY^M~1Wt;>x
zw%u>g8J1t_>@3iB)Q=<!jO|KfVh-Go)7u`Cj@r%G?bwpra*<s}MES+@TWc=#N5vqU
zwI?is>u~kmR1zeA*|T&DlFW6Y<?n=0)ME((f0S3_<+;z42Lp*HgZNk^k0<pSt9s05
zShjdmW`!w|Ivev<F8jn+rp*(|O(njenqzSWx4JdOJRuUAvEkNZKF-)SnoD000YSiu
znne5k3#dx-1RRD_0z5rJY3?Iiw__fq_>A}lI{a?=63%#2djAL=MHjO^n*RDX;-0SH
z9*#8lm*HCV<rAF+d7TAObqLq}iL2Ps=K%+E!w0{6<HC>zk6M*pF-9hVqv$dVauiaj
zur^|bBn_%JYA34OA($B<qZ0B{y0(|rYD<tTfxl`h9OC#)pErFn)OGT2o05Oqd<%#Y
zPjU1fu2;=AO$(s)EZvy)eY5Jte`-+N(M35B3Duu@D`96kIg1Oa_HOC0qTC*S<Rx4(
zz|Lf8U(A@WSQEwCHx(6Ozs9s5Q^UBQ(sIXz^Io>6*6s9KZt5pkDTEE9We5HfDI-`L
zYOcBGbep;H89Vc)ifrSbk)^CN#8Bc@`d-fSriUTn=YK4tViVV6$-dfb^0CNSmhn%U
z*cnb*9{xIN<l^@wr46`s%}xa~v{7_jX_Gko!IH52Ks{(FCW@6b|4?;dO!fMHim-an
zx^<gMw<qgj@osSxsev}<=p9cj*Ib#2hQpq-#HS6TB*rtHUm=*5(kHYVA1nmsHgy;+
z<BlS`L)%K}3s@qt+0`2q!EXn4pVHfFluGw6?G_63RAmkBBhw5|-0jNY$@}5+>dPt1
z8p~y^(q@?%I;;8ja7DRv)H8un9~IB!sl_)isB$K=d*u*H#<R3ymV`d5D6f7cb^U{?
zsIjS}oVmTI&3XB!tNrHeQJ4vNswAs*cFcW|>gf5P@n7`8$pcTPUJg+rSyRu>vnB4H
z3OP^k<?NJqbZP70)5M{tV$r)x57!%XqP#&Wj4fp%CC%Vt2!g-5tSX4oQd{?l@n>JT
zYt?tE=97$rPGwlAxQ&XL7KssxS^ehDs`gL;t!1Mu-up`wgKNR0N2NHVi~h5tM&uF`
zy+0T8Xp5A+0Darpcn(#Nh91-6PcUvQYV3$vU48nkPs&g%wN1+}UvmMZA-v4PeLq}%
zs6P~{aIMI}lhFP}1z+#ZY&p%@rrm*?s3`xD4>w{+nwm*!IXV@s-dO9kl{ut{4*EvV
zzfKtzRYCMlnouZUPFVO5#cE<ByLnGt-<LW2#k-BCYR~si9uZ%+^p%S9_M^VcmgIc4
z_<DjmVKF<~rIx7kFn0*&eL_{*8fSo%UShIL{zd#}c8o|IJgK9iE`w#C)V>(_@D5_|
zxisym=OjJHs-Z%~7oj4DgD<D`6NjCHf%7k(uEimp9NJD#MCLB1OgGUi6j$-tL+zxq
zg=R&#4g}lYcWocfn+aX<O(()q?#HDuS-#e%>g4`zRVsj<%CV1U*}rd?OOoKAWZ7pK
zX9*QlyJpRIT9Ix+6L8l%k!7l-(!Pmhanvs=HbH%UjOmOa290EtQ_G&0|N3qOdV5gq
z+edMEX-qL&{4=$Jzt<B+GHnJdA9hpCd~W&038%dJzmn8OA$l`2c{)Fz+zK<E?Hv$;
zx3o{2h~2*ZM#}5Ds$RTNJher_h;U^(p_fAtu7?6X<&q_%g#NQRTB>q>x(lU;oo-2Q
zf7Oa%8zt7y$59HhelQW=k>K-{6tBsv;~_8Q@;jIbDp&HHtj<1qxlz$hU)34MqYSg%
z&*392yCYAg@LuG}%0XUPl@6V}su9P3^^XsT=Rd1mhmXBmj}~Ko&l_ea1z=?QRd%}>
zfSXBx=6}SVOg_}%*&CS+Ba-f#-#6B=4xW3#?a{I~=6Ajwk9^A^<J40k?eOEqau+dd
zK34uXa!DC~WEmLgPubhsTNp6*XsM^FPiZZck~i3n#O>X@jm~vgeY@U_CAOY;NjQh5
zrllFP+xQQ@T=73PE{NG*85W87{YIqK7J<lmljNKf@2`|G=@75lDjl#oQclMu>+&P(
z{B$X%GnQMv0C|4465g#>DkbuO<e0~G52rWMZvfj&?)RRq_QFQeZI}u2h1ch9wqo(e
zJ?-&oLGaoe83qMTy{R>m7543kon5OSdbLBsQsizL-b2y%_jesXtU!jr`GM^7v9U1|
z;SYr=yLgd%$y;L-+#WugpYA?i%zWA<x)iu~P+B(|s^4h5L+;|?(bJPGJ%0lw5U;Yc
zkvqRqa@Z{89J&cOi3xj3>VWZl?OlT1_UM~8%>VJ0({H+V%IoA|?Tyy(d+7?kv79na
zC31d?JwyrX`iip=W5XG*>3Uy=yK|0tiAgM9&b}Ja1>O~ZSg5pWs2unKgY^CFMEV^+
zFYGZ<Cy8-AI8RrLIPMbAiA#T9o_R5-*}p5p<Gm7yh`rII*0bZaG&y<sI;)g>$v5qL
za^WA$UJVRc1kD5(&W7*yV$Bf<q{jZ>z<`fU;OQF{kuoMeIUs<}ngI9Ag5+m|=iT=9
z_T+PiS4J-4#JQ7G$$$CCxWK?BZ=(Lym8bt??k@GiR;K;>Tk<O_w~xb1Gdg+0JRY1j
zE%jwgQQDQa>`zt|7OoiPXvZq8WxwLJ6gu$Rw)h&qGF)&l<yw&OgT1&ZXZW22c5lo|
zhd1QU`zf%s&o^@JbRcxnek>kLM3Rner2Ur%cFVD6#}Bvr!Ebq0kCTP;6GvE6%YXsq
zc&lux?>QAHTOAy3&tsqVDK2?j@|m!IwK0K3o_DXVt$EiIp3%zvBafu%*up^>E)|xS
zW3wwOeSarQJJ5HLGSznl)jYRdugj`7P?TZ4y1DR^Sj46SA=O>3V0a~P{zp>$8R<ld
z@3z}WkEz+CJjc?SF-tkuq1;zr=NGKZXe2}iRV2e6{j@RA>n+fe5}%2swwTd&cXt=V
z=sE7t6_=M6)YR-5pDzKA=>2nfFehtms*VVlbx$6!o9Zh_x?i87A!)x3J3~hZ!k)|=
z&v(XSy(g<(k-7!Ll%)WE`T-yEO%Dw{b*atlh+#iaJYLR`(z`g>u$Vdwx|MRzMk&L9
zbh-rN!yc~|W0QG;mNJ4`g)$8IWbNCc(!2nC@5RJgeNpjR8OqxWTd(Xy46XdVn+5>?
zG7A1dxb*DogcyIi)y@##xLQ;ki3AMDlSZuiWpVK}ZqMq$`N8lKakC)jeEyS@C+5-H
zW5XMDc(vcX^7t#a!}iySu-zUR=gh!KSC-#dF=|!_x5lSPJm8p4)j#hv0&Sf$0v0oU
ze{f3SL)S_LvXEy-_h*6D{6+U7S>ZeGFBT13IRa+_#zO!m_|)LH#Jdfcs}$=p`1$zh
zB0PNZX#qd}JV5JvQhWr!bNhYDM3smnn?O!%w`9}0e8|q9xnJ8m65=lsS(YchCU`6U
z?2C81@gL6k@dIF<;KiPloE^Hb<COwR@5YsU??vvwbJD@NL{q|yXWfi2xCC%(x22Vp
zag}rbrr+MEIWh7Fr}KCA<$Ig0HFfyNFap3CY|xR>QBu%^Zzs>eiw_1$u21o;5$8>?
z4KyXMLPc5G<`4Y&*#T@K2p@rvlJlzEDM6Cf5E|na4zUbiqe2sL9E+if^r{v9cuatF
za$p$GE$`Jgl&4Sm=fp$Bj9|<yb+o$KBYRoKvFl?EFY<J|g_40ceB*en9Jx2;jcr-@
z>e#)yi9J7i{#D{r5+X9hLnpuZLCY_;^_+OM#wDQh$~|D1YT)3*xmV*Vzh4V%#t>Vt
z%L2jg(<NHqq2@C1iCa6CYtQWbjC4MAy56I*LetRQSy+&HOr+!s-%30oV$aI~5U)!E
z(Dp{Pb?db*kSW!cT(&g$q|~h!<Nz_N8=RO(eiSfj3j3!__jefpOo_;?=X@%NqPWJ!
z#&h8mz%VPB-T<r4Up)B1y!eQ<e&UV7G?kE@xGArujrHK8x12I&VF1&sB{lJRkJ|*b
zR01HuxdVhzJs%H?46pR1#Vp;MO4eXd{kstS3y1~PUBHdgWep9AdlxWv_3*GZa+~Zf
z1^DAZ7rpZO)@+>eX7JiGa$0(Q02+?BQb=j3sg?lOjdNFtpT^419uCGCn74+W>~Bob
zY&G;pY;KR+hHX3pcyIF}o@6hQCebErqej`;s;uL3^j!09Us|otT-$RtNo$2ez(!p4
z*LHKoff!sXYx3IDmuz@410<+WAda}%rEFD#XPZMJJ~cZEwWi+*>DJ3$AS<dX@t5a~
z%G2B<!nU6K>ZmDwE-Q-|-`QDAY}}LMQk4%n#h>lh1!V^ReuHQPuzMZ``uSNaW_77Q
z3l^N_S$kA3fREVvM%jOOc7Q#95k_n|SnBuzM9s9?g|VgpEbBA{+eRKONS_nWNm$}y
z9G~YX5nqnLHUJzj`=aBAgh}RYfCZ%cRS%}k0ZnkiN;Q+Byisk8XGer@e+A$#u{vIk
zzg=ANwd=$jNE}*@27x~tMee8id+Ox#yZzkE`uSuPAQ`vc-`~Lg3H)~UM+Bz03^*ZO
z5x`xDfcD#Z|DOp$&tK8=9A}9d=bv6ftogM?Q4=xBHb<)&GR}R4po`9*9UmX}0Ao7p
z1V*y^`r__87vWH9-~Q63GW=-gY$-ErGo@*xcB%)myI?H+uPl%mvH$Db7=geyFC<#2
zRrJbDg{xfTsJumZV5=9Fw6E{gu#mXceddeG)_5g(vfPm*BX$0#hr#caMB2G8X&_r8
zX(<tq5*I{KSq|V4udtH)A#!YFq}nGdV!y!=kTX_8nE&usRf)gOOr%Jl&XZdy-oJY}
zE~hB^In4vn5#A$S-n`S4>md3Bcr*v8=B+l7-!=tJ>tDMg82}McT4ODbQ#)C&I@udX
zAd$7ElWDO$%KNB7<AT|b{#P<ac@i<KH{~&UswSb;T{7Te^G4GCl+If|*x9LjS;Jzr
z2EF1RQtteFH&ZDKvwOHvJ4mA7g6<7)7-OO!ocbnMKj9;YrQ-i?qGkhmx0Hi{bA|U`
z^}PYU0!*yTJVMy%+xcYLE1Sw+h9`u+ibXpSvT%<HQR#ENrt!K7xwZs)Ld@WrFu{%R
zc(QE75x7SoZTP(t<IhI8a&+<MabY`nLL&~3<`3yYg71;h%odv_2nNhL;S|YVX2AW+
zAHWk#LOLXAhRWR@>L!?wt8N5Fg@HTSIpjd~6!q0^gSx8shKn?$@@`l8<*jz#$v<ij
z!Bb?GnPeCR4cbU*g@AmFIp=4nr%ml9g6%9it|f%#jP*z&4%@Y|?&pbBZJeED9LSw7
zrNZ3-rjZ)4@%rIolQQp!8iT}N+SE@pvk=2Pqfs>qP%ULK5JQw!qvG=q?=v5ph%>?y
zin7ftaqKLTxWNYmez;M*k^avOd99Z=4{ELp!i%0+x`LCGZXInEX#yuPBYKd&mLv5t
zxak}9gj}&g4A~91QTb!QBBJ06D==R;;J>*^2d8{spM$O>f9XlyY})cb5H40yAVe@k
zHIToQAhRsuh!KR7?^TnXI{m%=#G(fBUa*kk;Q!(I{}KfMeiQXF7y6nLyw2c3c?r4*
zj)&HPWSHOTC*(#KW7xKmP)TSEx)^1Q7DuV!XmJyN)ISIo?zrWVhqG3YZy6XIY2XA2
zOm^*VltOSL^FrVfT{|<hJ)dT~5PVhIO$dzORn;C~Gp6C7w`QgTuI>DSAv^UW)GWWJ
zNCcPS(s1_()!(lHCum2y)CjUZUVk}2C7QZzd_fhN+IBu@`{!RW=;+}_Qs&~+3SRbq
zm*3i;+i5RZeek)NBnW>~+(DM!560bhe0y-P{J#GzYBvU`oUDUZ5?UmIwFY=mF5q)M
zx)FBH*#b*65U+GKLy%Sumunu3f5LPVMsh}so}S!)Z_jQbK?8)(Cm?*15;<&_|8W9P
zkY@?UiG1WxD-^qkbfKCApekE6y@yK>6vAD^3gq8!awX7Tb-G%?UcqzoQZo58!zqso
z{H7#4L97fINgBu-Vg-pom4p0HP_#Mq&qoQlyg9%LBv~!Lpgjr?Hiyik%E9blJX}~7
zxTxHWdCP^cF>%6)+Z<dwhn5vIlQpyZJVx6WLxO_j?y%N{V)OA&EIE^&-4g<^IYX(R
z7*S5nTcjD0VB!vV3r}{1!kVQ8pH=(h7khAaPw3`r-lKKHiMkTW2TAbQ5dQ-Sxhn$&
zt=INu4#y}@msiHso>N;GF_?-|A3h=6B}6ZilyMWwdwsY=!Dk7Ag~b5IY(XAc%fe+)
zr_Pr%7+p<(OtJyHKJo+BiV||&zF>ym3I2Cm_5a;3ZlYjs+ADM=JS}+cdh$c?z&n!%
zz-V3oqj?22hmz1!Xd)O7mW2L*6o{~=3c@kw;u77)XipS5ZUJ{q{g&+|75Zjyx~aBm
z8d#Z~qt?;H(0k-&g<%%oSi!AWOp#AWe!$%4h0-L`A~m=p_rO3oesE;ev;>TK)EcfG
zx-zu(mAH1YKO;3dP+^<5`pV3bP4Z0UCM7CApN@-*8~do?7`@P)<@u=5Ur%do{V@=5
zIw0Dd@hr`L{hTEyJC~Hb@Jr3cb`z-&ZCVE3jhb)zEf%Jg-L5xc%{(rbUy`z%^?)Q6
zd6Ul8%1E%{jUx;iQ?%6!BRM*$faU+Lg`G9x75~a$ijaLHB8fc_zYCYpC!p2U)qRf2
zUHT>Z>EQP05&YLfmf4o0ePl99dC7^ONwBn2*;3gGu)9^k?c<%Y*UYNAvjV+j_5Ny8
zm1)}X4W7EthAHVh(oRQE;@<2Ar|2W`SdLkhzcGj}77^YyVa6vf6it)Lo{(bBcMWI_
ztEIRrzBQVxDkmcUN)u<p!?ae5@-2T+hBH?{w}i9v8hLz#2WU>o4}G6zUt}5pu4l<U
zBYx9nID(6X`=|gARkWje5XmQZhrj@US>5tzErGPw@xKG)r}SMEB?O8xDOqnRqt;2t
zoz1p@@X|k#@*pV^gzSt7)NOg!01^{n)yJ7bI-v~AWsNYdLz=lnWP+e8`Q<6fQ&z&<
za)1(75Y5&H$v8NG#c~VCrpDBL#!R8<4?%fftP=!FQIBl~4mxbJ?$_&h%lMcjX#=Yr
zQV(u`VO(Jmd~=`@4C<E+*Ly*D%biNeWxuDh$f%#@0NGv-;EywTGY32zi=NHvoSHig
zZve2fJ`e-TgHqhcuECAGjf!ZM?z@mLsfle++0{sX0WM25xdA@^>h=)F3M_BJ(B6!3
zwLm)W6dNNa?YfaOangkI9y0le-(;%)=yT@VFhjVHtAMn>B+O(9z6j7XCSTKsR*6|;
zg}yO5LA`>8f!(1*P!L$A>3Sj?0Zw2fT(`TjC1OWMP$7&vj#RSvSfK6Q!SSU&9}^mD
zjxi^#O3PK;H;PRnfTDA;OCpBNGYW3O1B}U=T!k#%u>SJG51hZ9VH?l;#-YcA#pOy0
zAD5J@Ci&1mRj?OUoe80D^0PG(y>?(C=IhBHR?fq|m4x)SJU|p4kAwj$lSxnnur4}_
zr?+O927AnQ_;$2Vo)$&pMc_tB;<bkU#)RJVuR$ofrmJy!oAE%VTm)Pf1fpE}xWSGw
zPhH~DPYA^T?&yTXGd3c#ptWRdU}Y12fL%kYA5#Z|E68s~`$P}C!d>zx)k~;uiw?M(
zrLJ2`gi2}l3nKtJ{UlH)@KF%X`g?=wVmj{PgD7}5?g21C_fZeG@-G!3Wh{PiywF@U
z5#<dM{_~NC>g{Hu4?t-=K!12Dk0j$j?ztihVS9Lj*_}$ZEw1oTJ|FS9*2aHDl|F79
zY~anp0s^rhFZKd-4xD|=Au?P3_}AIBXKEQfeka4I0(2>=4mH!Lb^{oEEiicMn`|7^
zmnauOGQ~{55LImocTr#`Ed~HG{0o8vG!8ULq>U_hZv)H{bUhL9uJPybET}C+jy#hv
zTp$8OFa7nv%YQMrZJZPCX<Gxf35?u$reIW^G5Zm+PkF|xy5Ero(@h9XeoTERj%y!W
z^OxPcOc1eQ?2Jb<4X!z$a!?4+xxT{QO0wjk0ic$QOK2MzJnIC)**Iu!M0bgA$P(I?
z_X=@827|!s&}Mq;F><^(+~``g5aHx;c|S!aWh%O=@oHQWmHBMwE1%=xorwzB3Zs<0
zb@FrzyNM#)Oa|Qp%ZKf+%EIqC@EHhV#Qd{1;($UVu|OuNC$s9$?=Md#wz9=lhbAl#
zecv#Su8(Gw+{dPcl+B7-XFs`OObzl|H?Py+4O?<nEv-_K4dLI~ip5Q`+%zl6_uMPT
z518n2mek2J<i1xJrpd$8209{yvQHE>T$m6KoK%A}<HPqUUzR@jI7DONn%5{HoQWkJ
zBc>mZMvoj!>+?O`qBgFJW~DnGGHZV|yERoQKoj}pdF|nG2Fa<{#;9;L^o5B-`&e3f
z=<j3k@)~WeRiH3gX%5}ylPlJBED}9p_Q{53s>Sh&sy{Btbw+7W&-DBfC}9vt-~5Y>
ziUQ<C{Cg>|RL<YX*)j#O5Uz@dzcUdz3W)*V4s;Vf)`wFEyY!tLJ$#h6@BHy=`u@p<
zHu2pNBD_!}TA|~M7y%*KqFuR*;`hHjZY}_5<IoS`!1~yrAD<nJ@P74$0NjZ9P6~|G
z*KO@apF`=3+<?@)2LXnKEz$wxv6QhJA5d(pLjIei@H=8)RE-@+h4MSdCR9yV?g{{~
zVnEAyf47aNm?f_zucer!kTbk?9S~l6fT|yV+j4e$%aKsIOwt4hsMv9&N~ppeZJ!1$
z4-l^Z7O{$*d4RwMI;*7_=GWXN+52@9(c~b~aYYFJ_=mSiQ6!4ZlJ8MP^}?Lqm?*p`
z9mw*&${@q<voMBri$!M`nXTwe4~~jz8Sox)*r)Hvs<cTP=&YX)kyW$x?a?j~nh9A(
z;Dd2<Yq2T;Ri?+Lxo0W*sYf$de3QdPeNbdt^AS}?F@)>9<6hE?-mxkp0wH52EI3EM
z_Cc>^y>;?kU$|_!Xce36Qes5pKcGNP#rkV|*h(L2?8!kGYoUI^$n6V-On!x_B{N-S
z-3qroN(UsSvI{kJqV<wQZed$`2hgxDEfr}RIX;vF)V@N0u|B}t`M=9{|CT;=Qw8@M
zD1iV+sA~*?H6<adyB`@SCCP_y@kJN8%jOH9GqZsj5xe*i$rnuJB3hN%ihB)dH_O|%
zIu$G7wWw+fh`iJj)53T6kik?>d`t3Op<RZm4WHc}&3MDrP~F>kKo6Ec!C8u~LOVVT
z;i|8J?yZBa7}-rI;aD=>8vZ<4J%%0|OxoSS=K&h#7Xy3Wk=?JIen&h5?}V)9E2&H6
zCVMKRwrPx0zs*;=Ew>J_jiddwy8YCoa@ohhT9Hfllrk*;E+S_=GS3H-#2#juzyUc0
z1ILleLGvLn=;n&1>VeL`ARZv5H2UoLIZUQ`yFPY|!=#W#zG*Eb{x{K_XL2Nb7vPf;
z3~9rd_k^(6boRk}JesB$;W_OE)s74)h(7Hr?d?@LX*YH<`z%>F<W{P`Pj07d=U_*Z
zt*i%lssIRaU)Q#~kH%S;D*>W5kPs%6{0im*GX1Nf8c7!bm*oFh)c^bS-2c?Wmpn2R
z$OJjZ<rX}R0?&kKAqoJs7+{M|kT(cVVGH>I9tTyS@z4`t)?~o9+59V@YgmXj)SJn&
ztqS!%iY#2jM`mk0_Zd*64FU1$P0`HLl1Wz$;rl-8ZRMmI1{PuCs1@@Ga)ttVFah|+
zIUNUiGhYjg_aDvj6VPyX$x_@!ZHBApqqq(?5*h^xJ!6!2$1H+5tOe$y9?%XXDfdx5
z+F&*xTeQ7Aw7dAC47Rx_fjW}Ig#e=k=>kR9p2B|<75%U3dH~ZWK+*Ml_tI2hV>Tc#
zYc3x7QaG74eKSM)JDJngA{{`|vAgLiq5cWMaS-62sOus1918UR_<zdmhav!0ks;v4
z8FK*PU@T4@EJENOTyw-R;mCpgZ4Y_AILmF7L)s}IS^l@w017MufZz}nf!+Olz)9!?
z_Ncj|j&H4nNQM59VdNM)VidZdE<hgBWX%$3eU!E+YFG+@o*#<8*&rvBK-&8#j?Jan
z0H|7*3fiF(ueGz8|3@X8$PBP|%gg_HIq|=&EdIMq|0J^TI~OwC1U>^0S&}~}LD1Cb
zf-~YMR%0#^jh$3Us8O0r+`qD415u|AM4c2xBu%b)MWz&(l8s}ZlTgT7f&la{Fe`9r
zEA3jl<n^jJ(LsSM655_88knw<G!j2SNl8eb{^y*HTK4y?|39Z}{uOis@BBg10w@xC
z17(j>A@~y5?6jZx0&2_mqCjEZx>a$@ht)^ShkSrC7|fAo?E)CW7RX}dkXq2}Pf;XQ
zGJrx4i;YkJ1AID=Dw<0tSGjECT2L&&bOw2S;d5VbMTHP)yY@ik!1f{&H7_pQ$9-Nu
zSxD(wXUU8pJ#XC$=*4_Nh6o$u6BbDpgI|%o2ov+4uE{MW4K_r$e*WH!O~E~G)1=Qe
z%zIL9t~S&bjN-@3(dN!KTIXPV;TCU>!Irm5Hv&C-(y$&YY>1|+$Ga|l&3X56BEJsw
zlWKZS_kYIsdbt%LY~LKGr42_U$~*rauK4p_#ChB_m}`<GVkJ{bR6EHrrU0erjo^2F
zCSXwUkF{uLTefRMh=ym_Jj|D@ONICJyPLK@JMJ#l0nC_X;=wC{*m}sag%2L?PQt=S
z=GYXBn~O`KCMjj1n|ru>czbXDbAzGUhoj{Mq`3!|C7YD(Wh8!bXy;oM?DVG|YcX>0
zH*ljWqH#)3^ZC7I-@YmN+1iq8h<9G4-n~Z|rmcP`7}Gw~*?e8pPQi!M$5tKi%}CBD
z6ei@s?}&07+`UG4>rxN!ueR6<Xy<=SF(q-B|DSDzEeuoQbBW`H^~f|U_RoJQ(lXC{
zJbaVt5IW~&a!#ggE?@mMmSXeT_Yn39xQ9g{{tMgX7``@AWx4Ql#hJ8Sfg6Q+zR|D`
z(?-&B%VyWmLf2*bZokTZ{VhBX4YJ5Ib%c?{iAx)(-sH1rS!-YU7(TouxMichz6SC`
ze;cJM&J887;~spXpWt!<oAq&)r{k|vFML0Du%m19)EE~oN!K=&@A=%7@-hbPS<Gko
ztBb_f(OF)z&@dwF|7xLO`aHB$vR@B(AWCwc;0n&Csq{D7l)c1%qdB1Rs~@_(nA1e$
zK6&dqW3xVQU{gT{-+_o-omj`vqlRH0X?xCPgJ=?cO{<EtV?lP4WdDn^wHenC$-=U~
z*DddMGM{bDXzjz^zrp08H<(}N32>n$Q1Tz>b3f>Hz|t$!LyO#)0<5!LlP}$XY*NY<
z2R`62Sq-|dKsZ<9{LVDb*;)}eulC2WQL}O}+n=<T=BVe?Gk1%@yQrz+E9N@6R8~DA
zOPpgowaGCZNLl+ADd7DwC!iA#uB(F2Jkdf?tR50#x9Mi=L;B?DW*kE#m$0)uiA!I9
zK{hSJfNjQx3G}(o1IhLUN<7LaB*~nFxgPprA&FqDfzmqzF}8EoJ5YXCQu^dZpTr(_
zH8VY^@yelF&9l`{M#BR@KjFgzHi=7{JBV@)7N7BB(XEr*=gU#QaPriYp5d$(eD(5!
zuW6Lie8?6KT=BhQHXm7#6v@z2HV*T=dZo_-*t_C$NK<#fHI|4>+WQ(omYMD(tnEW#
zLYWMW1w*jh${i(p!%uv3=i8=s&V)@(fi9v+o5~sejLZ>R3>K_#d6}h!k3L;jp*}zH
zW9myH^FBNu)r)pOg%xqyadsW?jUMk<dvLi$gltNl2aLXkQZ3~;e%6uk(d|<ZVPT85
zH1*)pW;{EMLBUx11WIm4Q2Q3RA|n^e2DhF@<_Kb<`Rs0NUCGw>6{|pE9B$;LyG~Fi
zYfl`6!75AxG;S28yP_s-GxdRyTV(2!#@!=A{$s7-{|q|+WoL}rw_v+?$uB|7H>+t^
zF}bOA(3|8IWGWO_sB)QOb!+l@gM~uNst0jLHV?`LN2^<LuDGtKTxGK0D-+5;KbiOi
zlJ_ltZZyVSvdfb!LL@ZCK1ZF$w(yZz>$vd4=sbA1_n*qDxU&%YD-Y_xy}+Uey`AQJ
z;tWkNZ!+C!bnTc~rIJDX%LO%q_>MZH2{D{tGHH1r1%-Yd55Vc;v=oQ;Eezh)Y3_aR
z{5e)hzoot&QF!df8p9fWP9K4$MJwWD+lZi!rT$G^h@$irx+@rw+HSPx?su!cQ_<V>
zI3e7ANUM25Xlx{o4#!pbbqUo@P3>#b*5&s^cK!CG2;n~3eRsr)a$VDcpZzJ#fTj!e
zec|fHuF@R(e>D4j%fUe``Ne!b?EF6+Upcb;x%;q%eJOk&KDpQ-Hh7|?IDhG?$K__4
zOWiUh4@eEs9W))tSCr@vC~fsyYAOYr;kyM)hg3kQ7=nol_cX@zajPM}C7jPba#0d=
z2@@(n>8(1ebtknVp*6LF`BlZUtPGh=Lo`vVy!$@xQ9tOp{`Vn}HABe^TFEGC!tcNa
z%hvI+MtV!vV*;e!hGadwm1TfCfxu#Bk$e-c3`LUrnHnFA_wLSgtoEDU7<-Iu_py`g
zIGAEjg|UO1G|P3M#<byQ0&1%L-5IdFAK(coxwsM01}nT#kS~OPn@+Ig3z8cH?CE~<
zqlGG5c>hdevQZB459dL56y`X=<!~v7c>Rx!UC7_$!JkS`d*8NX-qlU^EdasD78j1z
z+oPTjrJ@|DBzmnGm=_;rOO8C=OX7B~#M_&;X~Xm19{Z8N3euq@Rl+mKe2b2P!PW8h
zkD0KAw=&5UO#A_<zy^&+6c$vcT!%&`atsqH&dvQ0;`dnw5r1bnh}DlSN@mOU6Q)KJ
zZfbb0g}!I6OLGv_iGZ@PP8pM8dBM`XZeCmjx!M%OT5sY&=}iUr-CA0d+03J;CmiNQ
zXHOj@_LX~tJU;p_{<CLJC9%=ZxKElz*fk>uBI`8G6n6{KedXqdxxIl5MaRFM)w4;t
zZm95jHEKB`dSFQDdT5I<Kj)JJO18CUycEs%r<lf?7!$%<%NF=?>^a-Vpe5#gheRtK
zVEz!xY>BuZ1x3-np$mKS4t4bkS>hDA>g#tVGK19zLg#9BRNQ<FKOSE<MV39TOg!c}
z1D~P>Vg@M{6bd%gcPR-}g!_|xDoO6<>PbOf%?mwQM)P-;kCtPqAs*o3rWDF>hziXO
zf$EX`fidz7@DE6s*8B`lOC<Jf;}UbDEFP?O^-9f&3)*)HYQ-4$J3{$*c1_7bhyMc_
z$<)||xOU}9;@*u8hD!p`qFTDl9V&bg{a~IFY`TR$iN1+NE^<*T3t0)pADOGu9`0P5
zSGjaW?<~L?u+M}-8mNvrP#TzidOgh+Dxohn#vk>(MDO-h`cLj<Q30w)@y&^X0S>~1
zAp=SS1439{G@!>pa4}<^xsfUz^bB*H*8eAZGTk}{%hZmpTWaKOT>Q@tT+2YSOx^C;
F{{?5bJz@X=

diff --git a/reference/Rplot007.png b/reference/Rplot007.png
index 223832af9ccfe5e3fb54460b0bbad4a1c3a0d6b5..ac925c087358d1fc994fba93ca1c4ae2ff4060d1 100644
GIT binary patch
literal 14574
zcmd6O2UL@Lwr>zCqIhg{@F*5kKsqAD3IbB3Dpf^6dhdjw9_1+Q2qFRka_B8lA#?~H
zE+A4u3y~TWsUbuRA(9w)`(x(Loi}f0&8)fit#w^dFodt}|K7j$JvK4Y-N7fqheDxt
z=v}^OibC;>BY(GUhIi2Y4N352^DP72i|`fxtX!zYz?W^_m#_PwP}_GSe|dUGBYvPz
z2T*z!&zT3mq>Y9=v%QnPwn!{3b(=k$-sRNcbl~j%*ms*Q-oGh)DBGwv<;5<AoyT}|
zbp*V{#7u;H&Y7!aEAkzTIeYoQ8{XUJ8nYWw5<e^O-`?=cuRJ^N{q|5QJ-2pwa)tZU
zf#e@lQ&g<ZT2AyI!}<C4TCm3G=mkG7&CG_%BCpdeLWfYOQ?J4+L{X^5#a~gIQH>im
z2#ub!tun!|`!d~Cc~P4+H+(<ltMrS5Z1Nt-?I;v|le;QvEx)w1GjI<I#ruom4HW96
z+SG>cK?F{^(HWXj^DX(#^fOjxf)-918szuYOr^Rh`F^=vPe;@H2tV2h$I?2V=V2E7
zGW+a;Msq_LQ-uu;_Rg8;ia^>>E@f?%m8#;A`e>(kQReDW{^&q5ahfT)wkVmZ=JR`M
zS{gHc?R)%_)(Lb)nKpGUWLr(uf?nbgmznM?c29gn&iO18pL%0W<})o;H8CJe_UYwg
zyB{BWdU>X(7;AcLFT8sD3(fGplOLWi^NcgGm6V9uCAD;;6MOljGl^EC+DXg8C^1}I
zA!=b}rhBB?4<E{O4G0XJvm&sQBrrb~dzT(=7d-y-@?GjcY3M|(>e50jeJ;U3R@#s_
z>02}T+{T|ntE4vG<4x5Jt2knuQPP>F>elpV$52f`al~S@!%UKuy|fGik3$>c2&*;r
z5i56SgJrss+!<Zvu;qEJ;i1d`X80QOZM$sWcDcG&)0r51c)#cL^vi6r1E&6SC{crP
zMRVm#qN|seoF?o2q4=5m+ht9ZL`cRMw%Hv8;oLqKP3}@3dxeOxUqnxjjqO=r8yGrp
z`^Z|nkrU5PKk^R@Ol@h=@f&Zv*OVu&5!`)QVKKOFX`}(oiIGaYEEOZ)(vhJ#{9_@A
zaKaEXogNfJp{uThH!O{?8d#cs@W%6jqis2+g`QLqW!GmR^m^9u3j9ETuwzGE2&1En
zs5R^nrmn7j9GkC7w)Kmx<}ME##B2ZfB#<U(ADl%Fk;MG)VZ?fcXOmTg96O##n|0WD
z)mwzV)X#<ew@(($W$JVIQE|?#{leZS_xG`x)PUxFR(HEzo~~J$N;7Z{rO{|lnr}VP
z$<AGg;uk)sH$=c-W~*;DJxYq$x%q*syZbXD3p2VaRwt=_Qc4dl-%}}NC8cMw!;jAY
zOdF{#8y0ptjV~$AuMcA#7l|!uXlNiZm&$Lq?H&!Dh*fBrNe>$9S*8suJGSua^*-7m
zs^r`yrmU<iy_avcFLSlL!gJJ`p`J6x&hJGo>7YDIdPdqTZw5-?xs>MG4~9D29=sb_
zR#{c`ghc#_Bz<YIodyXz#ncYyxw^W}k!zrkCs~|*@vZy#H;)cR9^WCZZvOb<`Nd${
zH`hw??ij0m+IZ>UPh7Z#19PNeW~mq2Aa3GVx)C)-v8y{;uAu;GUV7KonK!KxeR7zU
z_P6*A_aYTiuFU$7SwY3LOkYk3RqhbVyY6(JPGhM}rR!)-K<?SC56|mM?LNMj53W%E
z{9suCmq|X6)_FX!ZDz;~M-puK`q0z48Gjdk`cTlmfQqd(f`dx%|2lq-JHAEx>kqFx
z(bR@-A5M@42c;cjR6IutRL6p|izW$Nnin-M&9m1~bu<U6)}%L!<)@eulbV{kck9OT
zFqWrX7!ALV3T0)(8u5$gdw9Qhwj4`XWj767E5sb9DWcRe#Laj#JV(@WO{EPpwd|f=
zzPPqzyq4pf5u$UiF>B9?vfBV$0Js16^(Un0=BQMB_{z6K*3(E6VG-82>dbz#eUC3L
zRbn`m>TnMx)#60c%zJus4U~O8UrhJ!)e}*;{p$eMu6Wy?Bj)&dWNrJ;nx==&6^dwu
zSLIwtelR>V<Uf_-e0+cOEUf6BWWtZhCjr>n1$B?Xx0m36@-ri9y3Ww+Jo`9vnGNfW
zLTrLrD276*b;t*7=0`Q&IEP}Hsi!}mP^(|%d=kK@%?xZuc?%}L;z7NRT<??zB9U+Z
z+-PAK#1+>5{53=#)%YfFBsMKB1=ZzLmK%14d~knsn~+(J#qYyVE2N&DtIG!a;(j4c
zoB8>bEia5xLp}8PqMG<NKbV`D`I-}P;lhKrgC(Yg&yF%}tgXwvC|bszZo*qP_IG!`
zLUWd@?QPVTE{VlWm@`Lvxjp^;Iky!CX<B2RK4Q8uGBUYx6W%t^9i?{9lBx9~OeXWg
zG(-PLVn#p9_sUle7mD`V{C2}Si9I5sqDe;i@X{>QcK>(^Us)NZaAf0ybIrHjcseYY
zmEKhvqRKq2-nau5xoP7m6l(vjMilDWSrjko1`iMazxn34HOg5*7++CQgvT>q({I_<
z2A0ZJjc*wBBWfzNh*h{d^zopC+-<jyn;gr5I+>|sbWxXojMazXq4Y|xy*b}=*W8Q1
z4KzeP7qh`raA~E+nO)&AtmHOuawS}=^W|x?G*z#G?~4<~sh%-CQ=Mst^#TF{TwPpd
zt-@mD`8L{8%=Ho`)G|o2%el!+v=&9)#zDPbRTEcLWkIH*sdvz=K3`ZI%|g0boD@CI
zfIz`qAz+`N>6>uzqBzc2`^4M##qysnv-7^E&bHOse_yMyHw_e<er?c^lqc%wPs5Y-
z6SS7H1ZLS(94>_0jDkj{ENA1vy{j}gnCsW-19x)#x`!N<6Rx$wjUbUoA*K``F&MT)
zS9psEyZG(##e+~28U4xr{o={RR=5E;!=fSw8a3d<Gih~t9mD+CUjKHPN^|@b875JC
zE!;3wsjw)dc0hZG-C%7Wzb!#Sd=GnAbu!}TuNsl9F~ZqVk`dRAW(5D9fnL7e`9eN>
zZdNPP7$#q$)Sa^HwBbtJ6tne~ys+c5%TjUf7e3te^t9B~jq<I2NyVeJGNE!g_)*f<
ze^{sf<BdGTu1HZ45e+KmuF~;VpS|&|nuV10`YgP1WFpi9PQ17G^L5HE=YNKdD6Z!H
zDsNK7V<-pKrX04Sna-jfl3e-q+e%#qW;Mjh&7im3rBBKI<LlI+zW#pyj<{{Hv9bF3
zeelZYmsD|o;p}++l#n@0l~pds&0a+$b~$wS%v}B}8yg$uFlE(}G1b|Z=G7oQYZBE@
zCcC}6zX|3n844pwKeya}w)ZVkLi4toy!K^IhBzWIQ`><tO_bBz8P!zt{d07?(H7K=
z*Aw)=S>;<1ko31p|9|0|8vqE7fB*U=(Rl8uu0)}$eXGyym|4Guyu2gOX9IMHlp6Uq
z2sK8&pJsfxt$-cqa4N$N@NVAyrv~?5UG49lT3iZ&H&9F$CfwBI{dcco<hj-rB2Z7z
zSs$K%#~g~ASPH8x{%PyRFN_rp9R1I$>Gz(y7OL(ANyKSJombsRWdy<DllQfEH@Xwq
z39g=D$M*Wx@37-^M^Bs-;)l)+D6ZDtCSh)F&ULQU5sh@OqT*t+1LJl}VzG|*iDXXo
zg8ZJw7NO>e#nj~J=35Fa01tz^i!MCSS4c6JP4=s=fG%riXGf^06=~)fDrUnW4!T<w
zntw=S!=4{s{3FpJ0>&-8oY8w?bzsmqGkNbtLi44nHvG2p;aREOh1E3s@?2`w_@&EE
zW!IZ0e25zWWRm;i;pnqWW?qQz`4K^Y5eToN%tKFqU9ZY#6gu6CaxuHdK684v(*IEJ
z{BO42^<O{N7|4r4wN?OFwi$G<Ag=u0Q}A}s-GZT_s_F*F+f#{Na0yy`-1~2n?FjC%
za_fRgpUItfwkr)O|MWk5GWVt_TYe1Kc+CQ&Kd!ktNQ}sP<JkIKBHvV6#=87+!rq-x
zfbaEjX&X_I0U2Aq{<3XPxl^ZzUN4}!LV3p)F%{w^LA#u4zv<A?y(m<iNX8cLtH+Z}
z4Gf~iT2H%M+t{R8mRcjk#AWrzO78UbhxaAIzn;_UeSNcO=}kPkWQw_Y1COvH?1w}7
z&L`G-)y^(`0}reA?MEwnyrvNU2RbXvk^=vjRu<RPs0%yV;;1YRQYPp<TQ_Qy(itmz
z`5t~@RIkaJVdC3woSM<Ic|!Yo%O)BZAFf3Y^_Vru?C*`&$|Uwp<PjXtdrh#P@@?F}
z9Ws(@-Iz%v<5ZH)sBAeInF&o9J!h7wKELw$&h+`LR}~d19+U>VY~6TSL(1!$52Rc^
z|HotXi5Nv!dmM2(QNATnkl;VlxP9Y>j2-@Q6Tt(^pLr%N&~ogY;#-v9#akzK`r9wZ
zCNsrbrMbI5C0P$IkQPncqXdVo!_mQ{Kmx_VOnZOj;$6`_bu%1mPTtHlkv*HGB4g#*
znQJSO>3&_O?@Z5noMNto*DSV(9@c|Zvt_4PLCENvYgbx?4)1<EBx?U~YRU=L!=&$N
zvK!1TK*+_}*-gx$-Yka*XbR3u7zWQeouJ!l6iV_v>>nH~JfAflN;`Yt)uTt7iR>dH
zu^(XUP52nksRANTxdQ05%Dy(3lt0j*m*0o2Y!)(ejS_S&gq@3vi)W<s<eL_zvU}*P
z;=;n&0yy;G9eI7Tsl!*TtfmKF?Bd_NFS?mcV)fiDCr@wrV%7~fp`uHjTGBgVempnV
zAXz`5!hP`ffdNaTxMuxph6m+Ps0XCTmpt*3+V&Hz@qg+4hXIru9!Fo^j*6VvgxT`%
zqMg6HVox2QY~gPd2b@b!YP-#TiNj)z;0zz0&mxB88>JTsgpc!jDhZt3vGvBd(6@dw
z<HEACK2j<mxs9i8@cc{d`S14Z{~vF{kTH>gQ6JsxYA*}RMW_#Vr}z^ripLiLpxEMQ
zYDR?0T9JEa&%zR5up<bRL^iM=xbZ>&2r`M&A(SO&ihA5cs14A4LPgoY9r)TwoiQM5
zEqzwozWD)=LjbT?^7EXUnwnJh;$87Q;aV)>Bs<JjBG&PI_3CM-4IhQFgEj0KzJIRG
zZ35N-GY9mJBz~Cm#gdm-!eMGq$$?gf#CDz#;t#c?Of#f`DkbTMm}<jYFfzWi8z0zZ
za$wij5-;e7Vy%VM4T8J|M-mGQ#o=goKkgq{zH-FOt&iOwVEgr;RM}w3=fx^#o|i`X
zZgaW>3eM!1e}C*Y`?}3;nzDzbcRvnRL4foMcQt~ERuZ8xLuAkWtEkz#W8_!IQz6vS
z%Km|Yf$8wLiT8At6*@5<ho-q@jQ+gk0VRxHpI=LFs4WWNy?2(>I+<|T0DzURlp*it
z!y7){_g60sqM*sl8v7CMrq+0O6>6JLN~e<@ZX5q*+xvf#g@CR6lX7@<3nl8fxkwy^
z60<tK`71E{a`!=n!-;M8Tm@i&Jbc1a=QE)LYo0n^MjX&yV`zu@rl~^@*4@Xe2IQKN
zxmE|FkM`^dhm|L?wet#{Fh&p|YI6}9h2qyoM{I2u%HAQWGE+<8Vx?wlsMtQoc+I?a
z+1d_93lHklHH#lAIl$1&R4L(Q`(><i0Lop@)`?A!LVruld`6t^6Av1ZKM=bSKw6<t
zV^fp>xm}J>a^uuTS_mM`!NFOVCKO7j<GB6(j8ixNxcQ0GYapk$+u_GfRO3$tLXC(_
zQyjVzh3e0{h1&AqU6W_aC$+fz9UD;N!6x#NL`{}0m%g^@HM<BDf@y_eT4kv6p(5X5
zKS#ZeSY>2Vvn9C&Q(fsNGKu-5Vk>I(bcSd_1swQY3;yxNiB`APIPsx!mqZ}Qp7l)2
zO&j(J@}N)_Gm3@)FhH-;+U3E68n3##s5x%sfVNO{>M)VoeHD#H&q@LbRoF+26g+wD
z6^Bl6NIYsRQLv0cdD|8QZ?40vMWly+YvU#Dhl?$`kN5j?8_%8x0$RZzDI0iEk%!C{
zcQ1Wzj!wEPB~>^qBMsEOvUCIL#&5+!jf=tIuZDO~jXt?WbY3m*@y4^|o1nqzG^57e
z-igjLOw0TE!lP#yqGtk2reooEUc>JsJ494x1b=?)NncwS!nZSY;0!;)88WG4w=eIX
z=C-y70f!-qZUV+^B_HYBnVP%2yxcnxE2;_<kM!ry|Jb|aQ8}6itry6Kop0M=>q^gb
z`|!o)d#)f?KCo;?Nx)7s!oTTx43+Cu+Zt7l2BtwLFg$TN*VMZF?o%m{UEC%=Bt><W
z1=6g!Y%*bBWjYf_SmO|qC)AWn;mjQkVJoM7bKVZl-y{arpR|jOmaVz$H{C@G82T&z
zD4_NI)mQ|_BUVzoA&(8^?FQxDm43!RTaa&4sWraHLGlk*H@Chbi()0OF^$elZNhN5
z$8d$qK*{xQE8(f9{qj`2#%%e<VM^06Yn+4}5Fws*<>X#a-PShEKx5COT=^hmMxrUf
zeFnrUlXe6u<l4zRI31<}9-D0qo!s^A-GWf)hH@ZO_9@`EZhr8M!yVPSL_gB%WA5PK
z&{t{-H_o)sJd*+AHNfBB+^+V`o2v;x&YrbTvR`V$K73vl&2hL9KpXYGeVH=><RSv(
z>x``9n-}nnIm|?aa_P6?1SNOv04WW2=~^-y@2yq>(-&?7tYxiffa2=GUvH3F?_9WW
z!LaoT24D$}Xrtd>5^OtAG$5a44UicQl(hKv7Ak1e2SBf&t@k~hc!|<Y+xMH--~WH%
z3VrBm{f^5=)BO{qT)uz(G`hKB*o$B%NBH4Oq7}5b<frEyHhA7&eg(LjY;v)5WPPao
zv~P9M=C!fsjQbS2l~yLJBmxu+_~C5x@`xXC7IYh5JapojxHAjCNy*q$T!Gd3vY43<
z6?+0(^#>`{ZXe$!xKPBn_RsPr?QS{yn<v_%&yj^DTqt`vtDw{N5F?fq$<(!ZXKgdU
z^r5StUpP?R2BI6}mJMYPh9R-12xL5Xag;NXIFqk$p;+ZmJE?(ARxkpD_$3AaZ^raA
z322w>G1j<B)Z&ylb-cKmI>lJ=|MXB$KLJp5<r&|Q#rr_0EV%oJEY!p-)zh&q`8j>F
z)@hbW=Ep7i2A$Nzp68@iR$IeF1o&N~*tPnrPPTrosq&6_`_b0Ak5TrL$@cswo6F?n
z;@d&kp$=cyg=(4;mD`||+zuEibbn*Y6`i)*y^M*s)-6Jt9=wZ?nXYif@%aPzLCykX
z$bDNkvX$+h*VdRX*1Y@DmZ<E~D+T(1-kzgI{jJ)oKBF)nluLu#pUb#<c#wX-6#dL7
zUpaK?F6ebKb~WY+K)O$n{=%52xem}WvOWuY6AkL_oi#k#k&uJv^qr~7qZ!-(#FY)=
zr-_-Ek73Yp`JMLd!E4{!jzY05<!`2?rJZQ->Vs|^`T*LRggO8C+7IGdKP)(A5-$8w
z0uXW2OW9Xt?CXNhifn-<Vj&-itNW(!F<OIP`e_bI<u2%ii2kHo@EN#0C}JRj^-iRp
z33C1T`sRQ3WZ|#CSD1_O7~5z;x#ut(kpF&d5)d#Sh9OW6OFT+z>1WueMVg97g1pWe
z8@D#sM*9NCG`6%7r1S2E30xg>Gqb+4<y)X9o^NJFRsvXb>C1C@|J%>G(=Bo0)R1i0
z);w%$GT8x(Xeq<ohe5QV$-lf0^0u<?m-oGnjxk3aR-h#=!fYX?DjR^xo!cs^>S^xg
zR{ZDI`u*pUVb5B_($dloPGvP;5)8^cN7d^=ci<(dfbCTJgy#okjY|pr)^-%{(su-^
zdo*y^gYV(_|NMFKD_qrQzSD8p0_d3wh-A9W0fn+Pm5;>0e4HT@R`Glf|2T{P)7hX_
zdy^Y-nxh5V=`1ivl2&=vM}_8iu!fci4F!X!mn!_V64c*bBCdfw7pc4%uEHf8PdKAf
zH92DSYm~OejaV31!7#8u0U3{dOXrbP^9EdJ49IoK@9KpMO_54FVL%p<*W0ks>B+r%
zy<a~yL1U$TeAC2v4wK_orbr`*S6yc-p<z$((Ruz=SoBv&`VJxHQ!q%+#5SLoTGP?%
z%LjyTbk`XWhXGJ@#7<pjeruOIk#c4Ev;(X{txPMGG@9So)odM?kt!d+){O@ejPmh5
z6D>tkr8u0GhD5S_9x>!7SUk`g>se!Ap@6^GFM;?K12}(t@%N&N@E;SBbU%p=RWbWc
zSeoPaxGe@@SV0dCMoOZWuGVuFYOw<va8TQBprRhPPSn6Q>~LXVbrfV}o%5<&d}N8W
zopq(%09b?a+a~hQ@z=VpeBW_O2bA7p`=gU2pw*Mfps3W8HhF-a3AlJ&AdJ_^R>o`Z
z+6rBVRM)AM$striPe>gGECa*GQ1wb-ad9!;#X`D5bC>tpVQ6p$%;M@ZHl^pYe!KPN
z#lfe)Qt=36g?)f0Qf*%gN=Nex6Af9$N*(-!-ujC*i`t`fWN&=C`SD30wB6}!_`Rc!
z=ZSU4$=a<~049RcXAoZ>eC~^HwI|ivMm^n9LxMFQ2?mAoj`QmZ&+91<>{LY>9!g!g
z62ak5FZcIn_^aE&oHcb1L!_EOtxP#m5NE+X;aS^l*kW-_{auVyq8{)=aKgxLLE?gS
zLVKRH=34R0GhghAZ*>briy1neU#u!w9*D<74+SeRBW9Z>1AL%mb;<vAL<z-0{G`yy
zBrEnyBAwN~&O(+?)4Q`SD1#}bnrd}bA*COO;ZmV0LFYP>_!Oy1ZAJ=l22Bs6JXH}u
z*<L^ioFA_AB7>7<Te`B!B4EyLP)lyF9t+e%)BynXy8Hfhvhi1|>K`lo!K>&-n+o?H
zRl<rPXw@#@-2o!IS~**2UbJMZCN}UP=|sIJxZwjK5{*EcdsCI&5OsRkqtb=afOhrt
zT=+XO%~Me3%*+zOR@#{cL?_Rp*wSUJE+kbO6EV92&<d<s{e(QA!(d%um1KnYYsOlD
zW_^^~;t8b>8?^+V<R~+mE4nkv4o8EsMo+Lfb~wqMQKXTPlbOV{pi2OQ`bS1euAQ9H
z<K9AKXR;dreN#|Lj_!V3P+ff;R0V`tf`f|Kd%GW3*$+=MlGsOfd1KUI*&qfD$k9}M
z?waTxu&KZ(x&40ErR<)f=^!!PxQTv^ouTruG7NC+2DKyoy^fzFAQ&KYAISn}lja7a
zCM#~9McApXB-$JrebkNv&Fx(e&!6+~@EB@9*8+-?neEmIpFTs8?j#QmUbpUwPETl`
zM3#7=xqf<j`nquw-#P*45D{s~vU~Y*8(^Jc$;8_VbMy1&8WKVE6;g*2^}yI(XS9Tm
zs@1k#%pov&%_%^#;lz*b-bQvaFg^Ix#MwE2x;0nO@w`f!1$^)P^Qm2q=VfqY@LJ9u
zFk!qIpL{V+^0_Xy2gFP&K30D8ZO(|?6o_hCnPj-j%3fo2PY5n*aoNDKJR-qx>dQAy
z_MdqORN`K*l3ZYLmWhc<T0p($)%Bjsy#3qrojX<s-3JmI<XfJxTcURzTdpUgCrD?l
z=S6Yx26F6(S8)dGo=R_Vg&-Io4TX~*A}Mr83KWNkEq$w6a=ju^FkyNe(>%a1KDUOr
zr~u5%LE!=q$rUITtb6Mk|H7OLlD+>0W(=GO2oTB0<S|ZHw-C@=>b^;I0Jf2^O21$Y
zkl*<Gng3Z8pGXi8Lfs(O1W=a%V7(~{5pP8n?@CLoXg;!{b%)9)M8GtAU@MypreYx8
z=}4jver)kqgYN&nr}i(c;(ub^A-b^ZCs;+=XF!Yr2Mnpfb?EP)m8nW#edk6XG>_BL
z&bDV_-c%%`<w7vFq1P$YiEr2FVRHQaFUA8XVObwl?ModGup0_S-h^D)<bB{Prjt3>
zJP;u6$>4B7`OJ891!R^lk#j?;_Dl7^KFYo7u=G0=Z`<dpCQzFA+5r~a^&&1WiDfU&
z;SI3eFUgvE!8Z=Gf?aKLtjeAMUBD)47%WmKQuy~M6POZwyS`9smtzIdAS)rpX4`FB
zoJ<IXWxs4lZcuHhve!;--|^ljrG3&C=Mf|P+eB|P`PmmVCBM%Fd_&_Q3Z7oCAzLq!
z80~nU+?s2?s?YOp;gf&dN&m?``1f7af4>6wFQagFwU!8{Td1Cv5O#FU0Da`fL<ovL
zT5DAsL?3vv@5J6%9p>_|7g<Rh;N5!$YOKN|&8ai>F!0(GMd!IrRZ2-{jl2#74B$2E
zZyh(`&zXLBuK<0rf_n{zImxOgd(dlk%DMHilE|O#c(5D7(Kz$I)ktTzwZAb>2d+Eo
zC1@?biJz?)_B>&DhBIHLeCNYnt6_Dg4k3Iwcmh+zOuDOwUaERPk+rq85>OlTr|k~j
z^{WL}vq8rX7;?!+B1G5$PgmFD%uYll;N7yb${N#~qX#DN)sy=fIbKE@ix**Qcjx*G
zGy3J0J3CSonfC<38%aZlbYhN?G8LWU6jEY}ncCmq2^8h#UP6S+24RpWz%)mqBoEL3
zY~`kV@Tn=~W!OS>susGYnAsXHiF^Khzp$gmY#KyJg4K`2h@CbCVu5509tlV;xYDMk
zrc5cA<+4l*uvUwi##$@4;V3|04DMA$=m+=~TCm6CFwm{nCy@?9D{+j|EfcDCtogxp
z6IamA|0$Av5LR@$`^PWaEDTj!o~a)Jawri`u3No!(o#Kf`8-T6i0#-??)7G+e}owb
z@t7L$(*F4L8kBje+{@qpqyYfqGoGu23ju=~Ff^9DbK?dO3c4Xb1dB%xymoN%s4uWO
zFsc*Ua;P_D#Mzgs;etRA#|H)vTnDgn$(XhiMS!EB=_{lx<uoKaB0L^`WoUTV4%VRd
z5hWFs<B-fsHwrVw0BZvumUa6Is2(uNk-$%9yH561n5#`0tRK6Vz?=aM1PA&;L4Ca)
z$nsXllX@Zi(QYK?E2aw<6khitr;k#h$G_mw!>=%=gKBdC2LvoO3nr%{_1jAMcbLUL
zUb$*5LXNdRk={F%!O$%UslKfs4XXFfD9yV`{XIQdm!*C`+sMUP!gvNX<<%p8;m;82
zfQb!w7fvywA4WLjJAk}p^iv2J0#wl?ct&BjVH&_#c67`}KzNdVn^5*;sn2@cxVW7U
zn{IA;aE|OI>R1kn-wt7gi*Xa{Eet*eDZ4SmW|4n4%_ziTyAs&|WFSHXC;?0Enr0xt
z0Ioi=O}OaE?ea&K4rUSoa|0R4n!3~U$(xP~P<%h?-)A@l>zY-viiEvjR%sU2qd9?!
zep6SBT}2%`Ag|O(vT~qZ=N97{hDz+~hsxNB&Rt3XKv_A<@OeX^vqu3ZAX`yY9raIi
zW)hZi<x-G<SVn(b>%<h|=(jnQW%Oe{KR()VC)sXF&%-fh<()vpjfDn|Cvgq~QmQHh
zHkNai2TE-^K}Dq^pKx(=Q>3geS85hx05GRgeoU!mkhCES2QqS)Mj`i)?Q$;wBGy<Z
zu20Z$$RAO0m7`nb4)5L;E1_vU(GttZS-r=*MG4LJH<q>7&$kIc68iI=Oz-*%{~2F1
zG`b!lee-(Ut}Y|=IIm<kv=5C!0;Fxy1BYBP>gs=MpS&H@qpS7pCjd`TvJZBOs$4nx
z()<2VrhtS-L0jTc#4g2>Ra#~sA*jyiP}Hp6m=4T^@8J@hT{m)n+Sdg_<-qxC#&dKE
z!2vYhuU~eD!ZJ}$9{?e23ZYXrhalE~q|6{J0S?(7BeipfbmNwCR$&eLvuE?ed>@}l
z>(oy$(qx*GT_qHenRM!f_d17+YeU)pRe<Jr&<4t|M!jZo+wK0Lp(0RQ_whX}noCX_
z8)g84zY2E?$=a0KR`-(FfZqF;FGcUK?lrDwwmu!0FBOnV8qx+P(wU-|KgC^{E5^-9
zu6~k4HuYeOz;hZM%T>ax{&-81tE8bx^TrfbzSHTX0TLy3aw#BO?6Gg_<6-;YPn$-)
zn|5UM+gG@!?3cAIfIJ|6{*7(4FL!kK4Mmc}qFcdnAU^@fujd=2ZSLxfS-v2HyV^F&
z?IEiTFqADxTE5IfcDy%;8Jbg|`JGw`A1krOf2d;)*jRM-k$o#ie4`Pqwadyg)S-Qn
z5#k3?m=_RWYr?ZZ8Y{V8)<TMy8<g}MIJtZ-EUZ?(<;86Umjz(<5u__e5~sikP=+N_
z?};G??Bf)sE+-E!`znW-(L!AduNyf~=ZrgDpHUB~E@>Ez02}QvGuFK0S+}S|cB7Bg
z51+KD=-A7*iP3#QAO*~cKKzg!rxxc(&<3f$n$dNp7JdKwW!8n<K#AFif+=NdPt0uv
z;WBVf7_eU^HStG%tfQubBWWSqae+U0xWWSn)AMkxOsB4wg^1Zv6vDQ~eh+d)cf#o@
zGt*L2k=ULUwGxk?g}U$O70?*h*JjQORJy4sD+h2yTcRXFFB@wt{$h!<w=?Uk91Ar7
z=~9MsE;)mWNZE*76|Uv*hC5kNZ`--Lj4oAfFLbiQ50pF-#5fP)1Bny=A!Dq~EeEso
zB$=uowK`B1tQ`qHEhLt#X;|(k`3=PZM2AtWI{zF_mg$*ze{FMyh)kt6Op}K1&2p|C
zFXTZ{W6Obnt`DX5)PJVwX>-}&XM$G*Bkd0PYCqgnnwIa{!cP*4cCv@m;`*p}9*#{F
zI#s(uecHR6c8rk#Aq7DF^T2XZX49wFAeew%{8vUe*7ZzLdj7!52|VHBmS#a?V4irg
zeKGW2L5J|GkX*GVDT8PcNFOUjgnzKk2PzwwrM;5xS+-VhGF99^zCsd+(7ci<blhx$
zd37q6#<6y@bhXM2VCLr;){7tY9IW)pM8JWuR<(>C_=&ZFwBDDe{ghzlqo))z7jJ7O
z#c@|Zf?d+E80$4-mdQ4kJ~i@DU~*`d6frY6)vz1|qwkc^$=IU_V1hzgA+?D7Gjmm>
zI8ajD&$$uNkQIp<ha6*&9G2lrHQ)+G*RiSW$-Lw+@JOi*oQ1wY=gd+dt)b}I?nWDp
z-{Q(M!KBYXcl)h^>v96JqRoO1B`%mLMhGI;M(>yDMS{9+7*+`ba;rrq$IS8dmy%qU
zE9q{f*NyO;*UwWc%;)x~YC!+2K{B7PqG3zPV+{XxFt?OLzTJjksS$=t#+1VQwblfH
z?-U1w%LAkF{~(=z7qV1XT9hws>6Z4=z?3iNP+F(!%D2f-h@CRqj3Z393(EFO=f6By
z_)XZ`f!oVO?zZ~WhF}=>fDFj@H*N198^eMvW}v>L^Bo!HU1pxA^$^PDh2hvhvf6ly
zfJDhPf^E7l@o#9}@w83}6$b|oIac`M1s*tEQ}y(PK&L(mvc&D=T$U@Hh*}@tI7a1M
zAcQ!C&gO=G{}hG4)yy}^SSdo5hzl51)>YnF&;abyeOiR;msxS*XY{#COdQ4z91SbG
z01F)2!E^WoY2J%Mwk~@)Hb4r{<Q5Jl`?j_|Js$M3>dwMQwKcR_FoCj-!$0q_etqL!
zG4rU=%L47y#rRZJuZ#u4S_FADuG$%sd}f(50i|h%^f~bGlI=tF5VhEilV!WUayZD!
zd6N7J!tMP{tM*mFn@5-w$lIC+iks4LZ(LbF{V8(LIwB0Z_k;h77esC^s$Z$KqCDWM
zZD5mdMUc4oP&3_`mTxQTd}mZmVdE)VpFg%8z1tEaJem;(5m;m(L5M&v0U~_GY{eI@
z)1q6EIR+8t?&<JmFa23VGOaLBOD_X09ctAgr1`axm;JF-D-RY{88n1n*Gif_bcX~q
zlY=<lhu|u2xYzg-SH|<SsET_xI0-U^Ki+(Y416akt>nh|u14=mvdMi=3cn+<zTD}E
z?@f}faPe|mIm@)-xp;bUy4Qg!AEzD)4ZC;1v-;B`QU5hANQ}CY76+epABxxbeL5p-
zp+G%by*FZ}x^B3YjKqTF(6a_u64jMdWPzmdbH25H2F$Mfo?sE!eK7J<DgYE~ZK#{W
zdI)EMVo(Mnv3CjUERkh$nXuC7r3C!JFiph}@fHSGklP4;&RzD>Y$$}_{Xy<^1+PjS
z=!Svw#+C5Z*Yp7oPfuB{tw*~4ar|{ti{V3h0vcZ<5#tM{fdy#ft~iEW0LcO%9`IU#
zc7UHlA^Yjyb$Yr0ygIn+E|mruuzSRD1pA=a4O^`fG~%P{Vy%)!0$WCa^X->l4J<rN
z5oQg;5-5V~dN%Y`F}9}2e><UJU~pK400Siz=m==8px8naGqHApk-<(QtcZd~Lj^JY
z1osb1tfd#X+b;}a&q}bG0hS}q{F4({lOu`Jwc+H51>!Oj0tI=AM(Tybek2Jmx%#C9
z<f)0CY+dTREt2zr6%dvM1Abtd;<@F)If%$x1n^HBGg~z3IhzDf&lwUADRAZWq;^k1
zJX`@Fn+k<9#_C8k)^drFKe9hM<$TtS7<rw9>(#!wFr24g1t^;38_AI7PE$a$xdJ*u
zy!L9<W1Z|N0nGOY$VcEt%Oj78#LBmP@jb2RIa1~60eCq#v$(WxIFLpm5Qr+|x0-O#
zqS_{Xr+{cGA^dD~R|7S?MF{jhgLuedxVX5;!_1KflyK6aVWhmGBG6{-?VWaHk11DL
zu0S%jd>#tx)&g9trV0<hhEtIJ_s0#}(bU5{{bZ9BVXLQ*6m6x4{8YCV`^!;n7nmd9
zw%i}A_RBv#`OFM9hWm)I<78FRXw`Ax0lYY~P?bIZt$F>@g5DXEV?RtLFFpsj@as>9
zIsnWX!iJGWU<l)Y6bzlRGd^M|yLSTHddt{h^;>c$f~u)XV)a{ZRNVq&;>gp>FOFu0
z_l|)3FtsQ1`!Dh>V3%PZfYNzk)~9+Uq3w3%Z=;|arf6dt<nwA!*gPYzVUluWJHGlk
zZI->`qyu-(suO(tooPg&K95slRX*9*-`>`n^~o|h1zAmV1JlY=HL&737({Ka82Kr9
z1mV<T@Q>FX!|+MCyMcecBn-IWoiJoZ-0H3DLz*uuyu0yw$vDBq%j-|qpkR7=3{ogg
zK%b8Y@rw{BUb6K|y}jib?Sh<Y?P0Rw-4mO<9a@Kx&4BrOJya{LGtiAn;0_Z~$o65S
zOI4;Qx$AF#L1}IF*(QQTJoN@fI(_ED3EaHj7?$3&PcFnVmFV-*lOp?>u~K7aDKlnb
zXNsd(*m$I`R#Xqrq*vXGew;P&Qf;Q!xRYmLu@!nYtT-VCAJFYk9Hm1M+#t=>?-Tnd
zjx@J)&B{R`vt>ZF;r0$cJ_~|4q`wv;pIgaSL?dK)3`1K(p6I#DWiugOjA-;V;@e66
z1%aGUpqx;}(3@rgtQXhD;#3_wZnmDcI$>GT4K`@eP#koXSy;jj7L3m`=TJ=+Fi^nm
z!&00pQ;~Eb;tk~*FH4ldXx0*TgeZXu(qg0PG1m~E73>YYUT6l)@dpB~5XV+%xyzg*
zsZYQ3+snT>%q|ejPmnlketc_hUsXV8G1BRh?E+Ka$$=BI-JLT?7=F^XI+ZM~XO?$m
z-Jpge5?Ar~_N6U!sYjQIK*lBMFIaAO8bpJjtHaA(rC1U?JqsC1CXLz&Pm64-2Lh!m
zV`jSsIxmv@6n6Bdpjk<Iv?07fnNw%cT+=OxWgyM<x1TS#dh*U6jFi6%pj_WMJ>a=c
ztVlqA_>&q{Pz;eEj<Xg+m<#5F+?jC*Xsp#9x$@$b$uTKNO2N&s28Y%Xo^iS$pqVq-
zo@`}HL}1))g+e6ynLgbj>eU}Iot_U7L|uTK5Z^0<2R@F%BQoH^57c!5Dun@I1ZCtg
z%efOR`3Df|AxKC@fa?jtGU&p{xJNHpvLa?^`ppm-MOYLh2K9h`sm-^rCZE%x89KEk
z9EQwME#%f9t&|ldfv^Up@bBJt6jFL2;lrw>xP1EKVU$c?Z}0DbsMyHEYaNP2B(CJy
zNsU5>3-g}ZD(tv4A-Q%9aAjT>Jj*rQDZC_G{be^7f=?EXj*f)qa(nq|)>b*pr9NY-
zAmRJNE-j9`=JH2J3%e(oXM(T*8dg(@BR3^^`1uvuZkvMOf^-IEF|6c*1`+SNT6pAc
zeHSoCAe>HyCxi@)J!kG^?^%BYqweoT6W^`z^6%aH*7sY`78Lx^yJU0`d;Z4#{{z&r
B0oecm

literal 12627
zcmdUV2T)UMyY50%R21A+L=r3rDk`EPHK2k5N)stkqhg^*@1d%{vQdhHh)5G@(h`*(
zx+thfkrt&RB_uI~76O65d6)Y?Gyj~qcg~r6_PKZNp3NXDS>IagTW@*F8)~4ZxnZ5?
zIs`#BXlrR0A_(6A`m<&=90_QzjDcUPuU*j8fZy=nyn0y>{95axW#*0`f}7AEzSiEr
zMFiP}XltA{@=0L!`aXTykytmG+1XcS=e2g1z}X+Ko~Vc2-Dnw_np$w$e4nCTPn5#v
z*U>k2t&ZKHxuMB+wB)_US(ns5_=*+J9oM?KC0tWGHCSi!xmSDED|;Aw=Xoy;c%+wQ
zWe4Vv`zm!Oc?q>CW%Pg`&QhO+u|8#7woZf(3C4~T;`k6G;_S+!2(oQs_1WyoN^4f-
z0+DHlAjftETea+bFN2MIl*!?H$(ia-IwfmP_Q+x$KoElBI3GW9<xU|I$YWF3;m-c*
zTeog~A#3x%>(}=uN-~>5ZJQDlMNim1j!+&~==JJ$eE9KN*0fCJ+%??fht1?)?;4EE
z%(C*ERV|dg$J?EQ7A(TW)vN;+W;^(WRa&l=YwSr0S||=``}Ab5v4urW6|cL>c>fl<
zThe@3$NcWGqPLpiqUn_Z3-mremhrK;uS(+<&K2p8WGYK)?FL;g-?(vOT}Ul?<e9~m
z^{cn8UoGd<qk!Y|xSKH&3G^)Pbn<cn7q=;NzsUN7PqY+NReyA@M;`B#=JOwG+1>bD
zRvm8i)r<Iec6|ThIp@mxoAgC4mvF!Ks$+MNZV<OEdFJDG{8*O*NjFhEvYy?dE^JqG
zca@UMKyZeBGEvs1&bBQ>*Sy#%vB<GILlf((As)2oYM(658`JE1cjJ*NcWf`Sufk%p
zlwSJ`t*tD<LDj}HaEbk3r&Ei7xc^H|e-OURo7JgEO-Ma#QFI-{$<1$SrFY~Mdb9f4
z?MRi}Y+}jJbuqEAj5`8YgA=005}UrgkaL(BxF>uwpii;a{XKK}HH|*!QFs#x7TX~R
zkD}}8S*YkTQ2hrLqvF$|bu7hTzh@V0V3@>ap^$LdI-O+I-tr|bBWqf1;n(q@>3N+!
zPqY%fsEOV$>cxXp<dP)Xy1Kfq=GNR3h+kf)T5eFHSk@n_d){!Q>}&aSlQM>@=rLx{
z>Dn51{8oh7n=7a398v(&Vf3D`s#X~@-nr5)a4I@EE%BagT^L5W)1OPr%<8wWun3pf
z99fUSB;R&ejeJUs@vDY7GB5MWb0X6utq8PqGQ^`HXJ&T1H|OC)^pP`*SZ$e+5_Zc=
zysS1Zhn37#+_>g7nQU&&!gn2zkug=l#!8^O8)al{97FhiQe?e-eFO$Ge)VQl!{tQg
zk9^IMk&*1&++S`9O~kTsrQQHe@3Fcuh{d*9X18aTU8Z(aXP!mo1(^yXIXSs?tM8Eq
z?g|#bt52wZobc~=T4;JY5~FOQuR5P5LE~}yDW9d1a}$-lvx|yMQVg{6^70NIJ{%)~
zQE)jGWpwFMH05$(Vd2!g|GN8U)~#G|->y0ZHvgcQko1;yS+8F0$qdj}7+e_>6GMyE
zSN#TY{2IUbbNiH!%0rDkFHYD+sV+{ahl|Rc53IsFmrp*x`u%zvR=5~g_3E1~oip3a
zQo^amb>{NK_aexx+#WY4h|?UCyz{Hh92GHA5HmRzX9Vvb4Nm3p67{#2b-vjexl@}u
zMq=@OgVwG`vU74gJB&^3`pSJFZ=%xf2?*1Zm*<nMf=IW!zsvXg=R*kH2)k%wle#pM
zsixSq+-c$5u{b|17qsMW1*b*{sU`0WKWBXD(%!0ml2w_P-FQ!_83UrqN*~958udAC
z&yzpLONJu$jy`A3UAH)noEpzvIWaL<+tJmPeMui@3@OW{=?7&O_Xk=8E)OaXOPk~x
zKwMYf;g|E7xMFN#V*fd6U$5wNs8mvmY30;b-RDP7qbJQ4SLF%HlpA0pGdCW-QE2;Z
zPq>((p;V$r6nBP}8Y69L|KZO+B4!hzIBh#@p0;+gq-}LDAKb85xd+WK(X-Pm`}OOV
zLW*^c1F=-nA<=hwG%G7h8<tiY3Onx6=S%fesLB~?>v+M3xDClV^{-lqAesZ8l@a8S
z!YIGOrqEAAlW9EfW*lcrZwV6IcPHc}AM$44d6mF=BzVI=Yb%0WK82tqGe-a7fF~Xa
zwmF+2>`$LWBA_rfdo|ssFpT>v11{mk1|EF*a(>^YwS@%*C5HVBHX2cWv%g%^D~-f(
z5Yq>+k!79tnyHtPRRbcpSbKYWOWv8V?CgUdugMk`6_E|AL<kcLylf)Tt1yI4w?CWu
zEwwU4OX8K5#Lx2q@OI#<%<kgm7_K3QuwO<-f8pX6m6aQi;8p+OR{8kg{{NPPbB_9m
zmEip|gr#{Z#*x8UfKb}=WX!EQDr!>zRk@!wK7$~>yMiNEO!`=chlj5sS(uxfPrQI&
z_E{qe9dpeU*z8@wu&u$!YNUF_3X%WAgVkR+e6dfT4wpyP4}JE-XZouqt6(D?Y<yIb
z%IO04PMePI9SKyauy(dy7*TrA&+>K*yGE;NY{>SQ<6a3%2{}Y~6>_aqb>#{^3cW0#
z`>-b|q{yZxE(Xz)*rdp6>pZ2ppmZbbiELe=Y&k5#j{ck`J^jQ@EvfE#`D}w{*!5$y
zE|Hl5|Ml`DVaJG3PurbCwye`iT*_&B1#XT<OYJ<5)DKN2aO?yJ{AWG0nFD0GbCtM~
zAMV6LziXJTBV$hCgVXa87#>c<CW6jTx2P`by%*1D8MUoEROnhJATM*l(PpL-dkpvR
zvwQWwN8R7|DmVUrvgVdU!KvR~kC#%h9TbYgk9Rlj9~4ART|9UhA>pg6qa}4)r<>JC
zr*^%BRM?(<0zuB!+l0y9-{0Qa`l{Qx$_njqIggHzwNlT8w+?@fzC^{NWiAcMvsrN;
z!NJ;Qju-fGX!4AX{9zJjqJQt_>#c>dQ?#p)#AI4V{5sXxckhlJzWinvmDgh}klZX~
z6Xw7enDiN*o*zpQoN19GxYSXn55(zYpK^6y8Ck!VM9I<EGk88A%MT|Jt-b1A&0amu
z_G{N#2X{`-Pg5^M0n(}1EA*j%nb)6L1j(dG;rOUPmNz-zGrxTK@>EB1Yp8~07K=?V
zHZzNJ7e0LWF!5`>Nc6Pj6m$3X3QvsNMQdxKj|$QD1pRyfT%C!9=>O8tKuZz)*rI;+
z?EP2YUSE5AxoIIo5T6yy*CQz!Zcl4Xe<AN|9nvPHm#|+OKpcRaQ%#=T<B6kf<(KyD
z+jm}K6EXaWv#`@_f&(+@a!6~dp(&+?I<4(i9CH0w7R0-~aGeOn&&3ZDF^laQ-%$GF
zo@~Z`!k_g+#Mzd3nG1JL?PAha2@cqv$OepMY--8?7-Zn+=$LYzA2IM)x2?M7iUIV3
z{YHui@=%n;|KH00|7Q94&rV+~lG+%mvE|W6a!=FH<R=y<r?m9P#ojANUtc-;y_d#!
zs^+i4uF$8t?a_fvp&q4)^+OlWo;~ZG@c?@r7mO#+_VFk|JkuJ6wcF=?O04qfb=KPv
zvIDg#k<97y6SOXN?yn>dMJU7J@qyj8e^Xifm*-l<;a>i}r;m8a0q<MuYOcJgRnUWA
zpZ8bwtr%al`Z?(nG1eb?`Os*WzgyykO5E^!7N>#1CX<DtpdS(JF%VYL>_;gABuc!g
zFn}%MSE=OE;coRK@WJ`>=Pk=BoXd!8s8PK_Gd{>pn=R|^8&=g1xti96o=e5lxxRY$
z&M;Kt%<lmH3=J?XO@itR=-YI(&G&G^r{WOHdNh3U)VsIRY+1WS)|30x4{f{T;E?nC
zve4pA?Q$`~XHG-ht0wC|(b9OL^&y4}*eS58iZc6{CVT{Y_wNs*YG=O{$kMg>sS*3z
zw>=8-prap)^C(~fSIBMCSF2FI<o@gacIy@{n}KnRzaSiI=@u%fm+(C?i?3oG-};$7
zKwK6$EE%6(+Y`|I;{I_aCACuErPRbmC{IAo{%;oZ$8y2pvN$<mV220H_<eqTe`{Xu
z^A?&i!Cn<X#5TWM?E+ZP-oe3h_Qx%T_|l*_N{MFL%MoP1y&1oP$a*?ynM-1im$B#z
z{mYe3C4;MV0Sp3~chYYZMuK0pk34!4CX13Jrz)P8c5Aus^i17O=P}5BmjE{e*&-cO
zbR6YPz25x+<f$*xp8WwFyNQ9CsI<?~QV?(UgYWO-j%h<t(CtL9N3R5<v})CgJ3^U$
zDp)yr`7$M0_{^*`<fUeqh^xjN5$b-F(Z!2{eYtRxZtzq;KZHi;Ipn(zo#PD%s2NyU
zB?@6xzVm+YAqHvhR99lwth^rfq<%;{v2%$!Yi?n|X5g32ft*zxl$I7$z5uK1bRw!i
zE7|pGOBXW}y<SMz0r68>UYu@oTA*bn+t-Ed*il=|OkqG-+#sfK)RT~LigkoUk*-p6
z@U!DQc{&~FMDcb|op1MA5YY~i**u?{e5s;TpqMDEnk+*qY`Rs|=auL+{SLZ@1g4il
z^Y{C7ACL><-SE?9YIOY&tq^yetam*RrGEDCJSYV(w<cNpPoAxSdSO?rE3v7o&>@ys
z$+h3G<CsR(+(#Ld7bz__DYKq>%(WGwpuC+{bLA+-TI|4q0~g`L_k(Y?9lAVV3*2^S
zZb+UNSQWT9Bu-V4iL7rMEK&F)vfdqApI7Q}OD(g@>1Z$cwpK-PNE4}a|I;Fd`jM^`
zCB-ua=H@TFg`qzvGC5zQNw2fAK7T7J?QybnsaYi|@08#`N|_{7WZBG2HOM$LJUbjQ
z+mIgO9Kf&;J$_TCY5L18j7gq(dY(nGQrF2??2+<`GvQdAQYKW9dmaknZJ$M}ft8k5
zE>2x={Ql<j=j(>TYKty)GvZ1fuc1%k4x1Nfi3iL)0q~B2u)}#SO^r0{(+1+RFw4A<
zhz-?nbE*q{_G}w;fBg_4OlydE;N=M})H-!>J)a8ej?T`}^8P#g0&ZP>2W)gA*^eKg
z0DH)lqPn7kI-RATtXlCd1RCiV|M!C~O*|8T<=Y-*6&A{6@*bvyG{(y_B7+uf^cECk
zZ+;bljsH-{@HiHygGq&ta^AjuJ75DW_$2$8Q6^9?=-Y0U75(MD`4GaX3A3)(7Uw2G
zJTcH)fajG!NiR>ms9~WMDp+O`!9JG1y}jMG<>l#Y5{dHXAA3(Y_mw9|twpNe?r}hz
zdrB_m-)ioZO7@Q;B%Ly>;~;pCZ)eG4uO6*aR)?51=tPp_9G*QpZ1HS*hzBZESuTse
zuPUfYPj!Ac>4hMI)Q9ErEux|Zl(GoC8R%LGpSc@ne*MVbDipHM)8FBa1<7qCGI05c
zT(EkIfqo-D(3yv+EPgKr&H<`J4paxAymgV{B-H?Jn%>Tnx1TejS0FFH-`Fs))4BX&
z)j}^zNoBdrovKHXT7{f?+aOx)Kp`?GT&?P!3yFUMQEDn$E;v&+KBK~qlM(2A`?e8e
z=Rem7*gBIMshUkDD*@xN@?#d77uv^2<8LFd0g?`g@XnJuIi{q}2OD;70dZz5HImHT
z>I%0d{ciQd%hUIuJ4Yx~@M>G((Y>JxfH;tq3^-j>RMh8>Z3waoY99`(PrsGioGDE#
zIivny{kL4Re9L6u93OKV^xxY%!zoY#+#Qa<s>k2;@netQ4Es4*B5~k})_w?sl#~=r
z$<@dyS$Hgn!i)9cJTrL#1QEKSYqVlJf_Puo{SIPEfwQ`OTThSW#9BVY<<KY5>g6TY
zG7+QfHHKD93A=Bv&K{JJp}@BLT}KOIPA;GSbfdgOcadWjXUW>T*Hcu%WfzdNQ}Q<g
zb{bX%@(MseYiB8Y{W1V`#433U-0%?wZeZVqXJa#M`shj{Y(nAn&zmZsp5o->AsS4e
zf{i@A1oFm7G?VH?cx`IDXz0=edndSN-jV)WTh^>R;Wn(*(cV7u!5={sB(Dbul>kE?
zs*f}U4r-XWVdu%OY;CBTzhH;M<@;Xu^TxeF<;ZID8t<WT)1cgX!A3K?3eljZd)utX
zYpy{~@m=3A0QJ(2)mM?#zjNnKz<$(!ei{D{^t}PN)q|9!So`In)c{ibP39=<>$fkW
z)j@N$;spe@J$lnX8Y5M?ukY4e(Qn)^W(?&kaCxC$xeKJ9gK;_;l}*Rv0qDCo<BH4L
z_zCSGVX>k5DRdR3rD?#qp&G9m92*)M<UHx^<9f|c_yvS);a($(JX1qp%iDD2v*1QD
z6WkuAu3hmlx3JKdR55E_!!R*1*;K7S7gO^16vI%59rrsFER0ndJ1-0?c(ki`QiEAl
z%Yis(2j?ZDSH(m8jO_`o;#9EgW`F%awV>7avOpVt>4!F(b@vJOScs=ft$qBJ>`seI
zYLLlq>m~Wow01=Lp$lduSIriZ*x#?iOE7_#01KAv9dfT05E6U*8*J$CdNQ)Jvo$3J
zAg9jntiHE;L+jYL)P36gtJiDsdPW;$syu>j!fSn7z_<A0Rx*1=1(wQ~5c^C2{oetM
z$Lt1?o}bh6hHB7RP3tBI6>#&Ix`PFl4#fe_wTTN`)rCtZd{na7?&_7eg5{$x&VX{2
zRaz1d@ab$N<CO3Z#%wz?s+(c3o+408c$_ej5QEGvEFa6Y5U6IbzpyxEgwxLbA)B$0
zn%GDwDvxkU*pU&#2rRWN`{v;g=I`f{Pc7<l>Kho&@0|Z-x*k{JSq2@E@XPCSp6C7y
zY!6w_yE2hw%qJGAVW=jxX{~7;07Q_^9-d1jw#O>X4*r9}h>?|ql`T*}s>q6cbmi!C
zb2a%n|H^WLivy+$F9{lzw9T-)%CuF;wXqZtr`R6zkjsZMKsW)Yd!Cn6qFTUi*-WuJ
zFrBzR>F;GBZ>9pO#{w$nehM=CtEw89AW1-d@dPni(=!qTbT+i9vNrb*cEZ*qQxHfi
z-U$?+O}z-}q+(Z5Zmv$K#`|yH8C-u=Xp&@z@rVN}k4k7ebmo35V^vyAko%Wri`k9N
zf%yZTZDtjO!lj82wJqi2U*nFWF@Kj*I0!16If%9p)Ih*M6+P%<_44`T{{!IpTO|9h
z%N3_<R`@{XK@+_c5KsXne4X(&0GCE@ka19nO>!@%P?LkK8yg$D@^9(?#V8k@wj2hW
zb5!J)OP6DDucWrp(%cX`k>xMtN!Yc~#b({Xzfe$^EU_JB*xA`p5<oscMmxgMmW=L#
zPPr-cAE~nEFI+G-H>dk7SQfHsn4X{R_p@RFll3Qee{9RcqMsTYr=yx1Z<g`cp;@nx
zy-_H{Dyx5UY<dwERuIA{4cjJ<j^5lCt-UY$^O0gUTr4Z=$#9@BykcTIE40B7h&){1
z$l7}Rd;p2kZ9@r38rvOz*Nf8Lo|e2gEX5s_ugU`QFGLOBar|6VdsR>nXcFx-J)+3G
zmSpt9`XMw;i@G*!*kGQ2Q@4hJ51b!C<!nnvjYxDhvs3(_Bjd4Pa&s&t(23KsId)$$
zK}%v2oJZuzO7YSGh_*T60R5{^k2XsC@VdIp8<W-WQ46>&wMr!&>iT_0*c!sEgWUxl
z>qM(jsU+JtX9kQB6bFkcd)=m&OOwhCqoC({3{>A~r#WGQA*TR%{Z=abMN;9P+HTAT
zKbTkv_GPFd3p}{EB8zGw3=%cU0DJkJg3Jy+VDRIvcShq%wpM?12^jl~mAFx!Y4rvH
z!8(8RYaA*%gRnccINdB`1m@L4y_yws!_oSk54TFMGZun~s9X3O)Wd(F$$y(7`7djN
zdJt?=yTn^y%PddHL=-_lL`m4_#CAUeUjPJmW@isly?TWRZcm&JeW2#vD$>r#dO_>W
z2w{crY0#Gc>uK|!eRF1x!w0qA*vM${#)?4ijE(D88(+Mbg6dPe*?^K>pxf^0feY9b
zcY>vDpe%NEfuy8O<QNzlz5<)(w{%@4b>xC0?gS7q!zwAi{eYL!1NE&lq0vGTRDvQ#
z{UYK-x<_Fg&c=2H>SxyTe-}wL*#DH<n<rxwc`g-oN<wOh?auw0vNHoFpFro7p!of%
zu?IdNu5!`0d^VQi@DbP%qba1D@mNRlQMQ2gj^%-${}Zan|HSM5pI8&JP}-E(zSYz+
z1(?G5y60z}twvtH1~ruP>qjd1GBjxW#=gF#ON&&szjV*cD}0Od)MSUQ0=p?f#fxJ%
z9u_(Eb`37NDCENbS`vFA>!Z2UXGvnUOzy{H54zdCqP5I<&IgfPcNVDEBz@st@ml=r
znl82BUmy+ntRc|bv!Z_cEWpsS+L~3Sbv9sCN(|bxb^!AO^&=BP#0m=0DiUjYzMX_u
z({4@Ejy`ey)8o65vVn^}rhZTcvapi+Nx3QNA=~`JNP+AeI)#)BmClm3d*hlkf&wEq
z|AhbC#N9~OF9$MT<EsL}Zu3kJfv!%!`sL{XQQ2!6HTAZPl(e)DF<5}JhB%!>CF8xC
z5r^hP94YWUfN5ayU<eA}M+>T+vk<;>s+x_>0Ll@qr<65dQ_x$)<pr7&UcY`l)=~>7
zN>H`#`&*k1xLr`f;5hVM_Aa25hnQa2OE0Ayz?;o8we~%0iVr9>AzEg&=_%*cZqV*t
z3C!S3ia`^*!kWaLW#;sjd2hc)wgW>8yyw^H>4CN8_Yq_x6`ck67{i4Q4^APpt4L{f
z`p>bH?CkTCK0Sq~RttWXdppPA(xp^jMPx&~QqO;oy}<1;^?OYunw${D(a}@^2n0<G
z%%JS-R`44wvt+=qn3{3}N-6G2sKMSH2fP7LL(ZY|5VN<;6iBsy$Ta_*U`Xu6rMtbf
z)yTkW<CYT%itZUVn-a`EMFDu+*M}Nge~U5nThtnmt$Us%b`%@QXh~5AXr?3SIWcgW
zO>3*aZ-(h?ZQTRPI2c8ybdC|IBKkE~T4K1kZ|VwS&zh<3j+nn%sYg4frKczN#S2kW
z`h{`M#>o1u>+V}JcW+sDVB?w+uK?(3P&ZIhEWJ`g7~Gn*(9@wqmm1>f*23xO>97mR
zQ|sNIey{K=Rs`eE5;Fui=oo77I<URRd+a22UksZE*o2jW+uiu{<0Gq_s(=Nr<2Sx+
zq0o2Qd<7_RGs$;!2ZbI4F4s-SCSr$t-E;iXRO~3Emv`P03<G>Er6w`ZMdFmbiFUTO
zE_q8}H8;ZNEcEF7d~=Y~Ga3B2IWHqa(tYs$cCtyoh)p0&9J~M{lWY<MZFuz6qa$v4
zm9lj`ZViV=!NK*)TLP~8bziLI&)<ubRV^q_({o7M3M7BGg*z-5!YHYol}G?c0Gsea
z#rK_q%|FiU-hfdus(r8l>av9}I3jN8l^!J_gS8<HY5e>{Y1F#{!Ovqf?$+;Et9^5|
zHiC`?BUtX*hc&3C5yJ(Q7Sz@LxjK0WEna#E2-8i!kAAalXJgMrh-CrUDl=5WMoMpc
zL<0`$onF~~9QR?!HGs#!!yghDB@ZpB1ed$3H;4|O=Ycx`lOLg*rT)6&>x-!;U}oWN
z$FE5$v~Prjs<!JGeC2K<=dD~nZiQKn%%|f`J{i->$yjioO-(aF6#zU{&pz%LJzfBt
z*wN8Jdniq80rqD)fdvuo63)_hB*qs*vW(C@;+cqzY{Cuu-9G8m^ICjyKmdSb8{G17
z?859&V}j!Gq04a*ccQUwIBUJp7g<h38_!H9NxdU7y)iVAtzGD_M%g&Ip^*D%yNn3{
zP;B7bU>K#|^1AYDB5CtHiWTW}x)B~vdhlSi_I-ThZTCiRUAI!93-|Hymd?^*d8ViF
ztud)k6XNd+ZhxV%=PF>>ubIh#^s&X;3%HpUbx9ad$xgP5C(d4w*fg3Ff<5NP89!``
z+B-KtKHTanjy}ll&fUF}w*Bgro?x7QWmE9ZfG#~gSawHt6fpq<iDBYz*YCO{OjE!}
zw^_OmUeEQXD?OoI-fBp-G17vURSt}E6vWyiK8`kFKR_@v1GyK_?r3_f^)ZWLr^A<-
zP4%kXo_p}%bEyDezR4Ny&1zfs7W-q={7*SoH%wE(Nm%EQb@}&Pd{y6vYj4ZzyxlAY
zJt}hh_?G~e$vJkN@U5`cjXQQ0*7NiTEaHJsImC@CqS>oKhC}9p!my=0B>h4xJv)ck
z3ZDMs>B%o6-?v=Dv|=J>aViVH@_jpa5Jhq}b?c#iVr3~!HihBdL*epJO0VNi{)jl8
zft|7nfn7F|$7I@!m{US^>a!oWVp7kT<=+g?&`UI*AUgs!AK@(Q(*`*W$l$7+-udsh
z%Je)mwY9ZFIECA;;odbCZgluLtdwBq2!*f`)GGV2mK1LD@}j=ni4!1ZYPSwH8`ze~
zch9n@YRkTzu4ywATqfg&T(E9g$SM_V^B=;SuPasM@De(k3v`QkVX_2vhbhFT6p3Qd
zf|3Jvk9#u>Bw~|8+t9HS!B&0KDP{_@e6~I{Ko~@cGB4(rQl~vnT8LI<9&oM$%u{3u
zJJD30rM3IGkAA(Vf~CND7!ETnWIR_rqx5EWyq%L(c#M8;->zQSgHJ&UqJ7w`|FnMS
zfNk&W!Gi}2Ky5=OY6zTOZ$U2od($y1sVUg<G<47fG$XD18Y!K7+bnx6qnq4W_KwhS
z;Nin$!QqQa11~f0^4nLnRbWNl!br7wHq!`Z8wQ{~)0xHn&t%VmQxyUEP8(Y!&bphc
zwVjMZ<COr#!vh?GoL8^j7h+XFReOK&&p>jNvoI|}a{-HD0Z?_0l5C>2Bnn`1!wOQ9
z05eDLB07qix8wa&z&|W;mck9^3t2VFUF!94Gi$b_cXf8i(uvTs#zy0vO+XmzBwEE2
zi209CI(DU@(^nnY#@w7Lu5_MNSrK${ZSTafh>NM`?BKX4j!*z!GiqUfI$>JeDbd?=
zJWm(iLDaqr1veVD=_aX|vDs|&TWLfVAN8*YUhM)L6I|6S2qILjLK!1Ew{rH;wi_yH
z-84^6Pj2M$oUoPGj~iWNPlq}tS#)n(V6y*ID5UcVzuDVp83Og?kgc$z{uCab5<0VH
zdB}<Wz*bEBnOt@9&^HtkXP&;ddc?9gBjX%MH-=D9k^;GQx-U)~U|w#;TZ>E%i7#J<
z7FgWlcA@L-G0Z(8;nOV)`GrFUnWkVi?N9gG*FBQH@fd`A92fy83fU@cGWPX&b2})Q
z>&)>{Xh}w8#?BkDRv9-Mp3!pfJp0r14CPrG5$YANDX3Q`01f1UTOyU@bL}(*LPGGZ
zq#mg@t}}zVdkkon*yNKat6u)5k)roB!lWuXoAGApq{P2W68@zm2`Tch2E~=rTfBH6
zIQ*LJ4w~}(aU&K6SS)tz9N!&0_<gNZ!pq+{$<DcoS9G`LWgmfYSliIiF)y{aMxmDo
zo#Fjj)N+pP{&?+e7`2d9PxFeh^cB>*RVPw0@m`S2rBo3iICT@13cH<c4it=ILz))0
zbEnwQ7*Szq>OPCnnb!uk{ec71HzqaJxED{WU0+qf&$qrFfZ4f7Y#z)xEo&!w!TgRb
z_%&Jm9A-ClEPPh4n6dVL$*m{O{XgE54aUigBQT4n1Jd6M5E!ik*v6>AQbETWdq=8M
zd4d7+grA{OGZm}=(iL`>gRN}~jP~ujQF%xYDxT(N`T9KqE04NO<tOuWgjMHWO4w0|
zR-zz`gG!#PRK>$Zf=L{U4>VH`5$c$m9AZz_i{I*Tf(kDRo`xQdZ4>}`M3@^4k-Jij
zB*GtAek-B<!VaAYnQ!mx%n0-{mx{mb{%rWQxHbWx1K{b6=#11(c_*E+-owQ`pkqk_
zPloG&F^^gl3GPi7VJwVTwZs(?_FaAN^kICZB>;jpfO`clgYVmYL4CEU3sd~bzo?$_
zc)WaC@33|GWe^h|gF_5PkyGi&vvy6kr`%0)5;``BmKPYNGB_&IPWEINF8BiyA`eGh
zKxaJxHOa6AEHcb#5$e>y*dtcikf|_$iH<kP_j*LbBwHP?Tb%08W!#3T10`Bov{J(8
z%v4bzkAMzsiXOZECqSdV!9KF=IhcVv7t87uTDbxg6IYKNbr&TVQfK*@>%~=j0N5N4
z;CjGVV<QZxH3Fjln&{nUXF{@e43o`(LIl$lFzONY6(GSa0FOT)=z*A6W}8r%kgYKH
zcoarHGhmcZzG|7r(uKd#5w`jIphZnM55PEFrMxx)N~)ona$Yo%#9QEaD^e}FW+g5u
zq4h&IA>eL;+L0w3=v<X3TL&6rJL~P`uQLov^9eb*IB4?E4w+qpL{kc@@|nB_wNK}S
zs2r##=a~zD+t7i_#XtK*ckXOlwcYY@k#nYv*SI1!G9LV>7pVQHE>kCFoeC~!JP^9L
z>&NV1==Lf^vg4*ujm{y;l0q7zcv_@cbs-n-=ql`Lgu5!w^O=rhcv`_UgFdw_{9Gdl
zevJS~byTqOk+|9CYeB6SwJ5qR3o-2s6NRxKn~0^OqTr3z6;KDqG?3c201V?@6mFyY
z2r%cWJCt@&8!$kff>HrT10-+r0!)HA;{_JmP0(cOL~il@O4B1(b_uv-C{kPX7o5%K
z2Ze)dPu~9S^1%y?9{D<$^%^BJh!=QCI+D6D29f<NP3Woz#mYMlo)eJoSKx&@`?n~)
zDz2+L2XA$zAV3+D@7|1_=e#uP+}gP?Hxvmoq-$0hE=$A#ExL&dWJapTH}O;fDBSER
zah2S-MkKlU78>O3zKI-X<)--=ilS})Di_mObX9k-R5JA<KVHL(a#73rCP3`0{`^%F
zo)jxhWcv>6-E&PDI&rU1AWxnjjW6pd;!V3a3j5ydh7k{sxz&GwFgJL$qexgU_UUYy
zePZWl@21k(w%L5wxw|ht#P9Y8_RmuBK|D4(%8L3diLP}!?5e_V4S#w<fQ#p=)^~M0
zPxL!kcYX2A62M<pAg2t3>#U%<=k1qP=|$qHr2+FJv4r6#ngw1=^Rs*Y2w0q~#~cyV
zvsYk}jz`v~!dp5ZCX|UIF_%4J<!!$H5qp0&DPYzNCPu$p6bJjQ#kC$owY3n#thqA$
zl{$^~Frt5@lj#sp+<?iC+p|n(XH9^phlR;<0jsg!3(AO1E?$iXEeZxywWFXerj9hk
zqSh0P%7WA1j?N~Z+V$8AHA%C<5|Quov8hvg04$1)mN@wymwRAx?4?bFG|60kb86B@
zg(|zx4wOW~NQ`O0)!GMpn|6Y0X6?t63z(=8P^?&2%5&9{+7ycNY9Qt?YDA_c`H3-;
z^@C`ZAQr&j^aZ_zg79SkPIfR31NRYkD@i-C7+{TV{K>{|k3M!)n&pBstJus}v7Ik0
z^}M?JJwSZffaf_cOfO~*u?cAH1e3YH6(-KR!{q0xme?ee&8)h28c2PfS^hb&PE9}_
zv4%mM!)EU!7z!{ZYkc9tBVbt1T;owW9pFh)lOk0t=IK*gP&&{;HOyJqx@M&twvEMM
zKv!t%DRsZpFV#J}Cl`DtPevzgX@O-5t3rbVp40yE8{J2&6=x_5S4M*YYS=eB7$5i$
z(tWE-EqST66uQj}fVbgtJd{$vXKAQU22-nOSZu#q0dv}5{i<C{4&-qUh^)_8f~lek
z-fTA+e%!I*6+7{Dh*&zj%MMatdVZ7Ag<FZ9&zQ6=6%M2d6JeE!V4ykEU21VU_AnR+
z!f-g&clZyqrw{;2i{ZAY0ltQ2cZljYKGwVD%E0fbIFJpj+#BV%;3Kr<h;LBnY>Ydu
zSp}DX5qmlJQ61ducN?PrOMwX0-*cq@Yg1`i_;k%)%$U9c*q{iaeO6C{c;?F8e*=!%
BZS4R6

diff --git a/reference/Rplot008.png b/reference/Rplot008.png
index 8785488a617bd273dabe5c8bb71baf30f42de7b5..05a9448a64e4f5346164988c4350ba212a73f22a 100644
GIT binary patch
literal 19133
zcmdtK1yojH+b;OhNTYNL7Ah?zAo&6!0;19_(%l^@NP~(3BCQ}GA>APeD2;TNbW8W#
z+wc3&`p=m;|D12ld}qxXmj&#1?`J>z&g;7F9sEE^j+lUs0EI#k%il#mM4>Pykw5sj
z@Ez~ons@LI?h^$$H2e#{4x}r6;h%GMcQqYRD8lo|AB<mPKF283MU*^R^08a|%9wjB
zMc<g%ab;G;mr~95&kV2KXo>do%OJliAsP0AH(7!&@+KWi4P8_$HgPviI6aSj=#wrv
z32Yh7Ftp0n-Bb+X8?2RVybS_Ex7x;g6r7XxA`hI6;})&cLvFM0%~zChrZ4rDDkbEu
zRaRD1+#{F5CnG0UseEYc>K7EW@c29GDl6+7KaA0PDG%@~avQkA)VMr{jAIOY(iNMN
z)iV{7#2A@<_6;lZVuFI+7@<lfg%~1^M0)&g5n=JxIK&j|v9jLlV5!8q_98~#N7IEG
zPKw>2T!%)Z&)+4SEVdk&uG;E&(K+An`)8Djnwm)mA?}O)ojl+0)Kpfd#a}qJC#$wI
zBu9EKL&k2W2lG6}Efi0UjSaUKx`n*<xyOButi6s#CS(Ii7&ktPpIo=`etj1^^3E=e
zlK6?!@A>(eYvKpz=;-Kv?cO58pG^N?Bc-NB^^%D8x$A^?smzDDz~o2P>W)(Q$A4mK
zzvq;WhnVrjIh`!`=QJ3{=u!!`ukSU?Y}T#sVWDhlPh1u%NOT8y4C+wqx)pr00>pHD
z_-Scra}(bT$SQI#oexIc6<2$2bBUb%%C#$g%S%h#?th+UYvg0@?CfZKHIUT#iforp
zE%TKtSN4~_<k?NuVT{@}5YKrvaBuvMQhsuJe2|fu`K`=;rYlchd}S~n>w|!`l)U`8
zQ&^q>tZI(8bku>c=J=0-)ldNrB_*ZMe7qyK&1hMXcY=U5ov_PF&?UKuN&T}!YASY(
zu2jVpk$$HU$_pfcDmpr0u%)7>`!f&vev>u?kzd*v_gtU)@%qwS5x-@>K~os*hDSBZ
zPyA$289zV@A0ETJ_*w9^L^sx1*I&Uk7i>;(uk~pdSA?U{Z(qJjuBp-c{rh)NTwEO0
zmW8Dy4ywDW%RuQ%R@Qlx|HL}A6h4p5s8GJks+QwvjrWm%x;g9l;Mg9Yy~>H;`9#kS
z9cC0cKK68fU%8{{X1n0T<yF&cu5Sii@oEnrvZ8|QgshZ4@EV6`)cSb0tcL7({(N)g
z$wF7klfEof`2o)&xWfTtyXGcLle|mzVe{UU`0kClHg@`+Zc&|tE>6_e4pzG69k^a3
zBSZNc(wH~j7!x>8u43}Z3v>6tYw)WfmQCfV!2LMBbCIHdf)38D!%l1*c+GtlLH%fL
z#X>z+SO3sMKuFkrCX%28clzD?&9+DNoN~a88#hp>p`oF<6fNBWFj=a-pMT8cA{Zp+
zI}%csD{kjxWMn9gP;PygIL3v;Vz~{a{$L2Vw7tKz87O{?A%(v(Qc8+P%JhBm+l%%C
zc)<0a<fC4F_&}&TV87W&{qfVM%QJ`VY4l(2m%I)N`W59u<#cv>vRQj}REzQprx#3B
zP7*_G|IgMIY`LGrMO5hsF$(Mk1ND1uuEbpT;NYN(j~IU02`A)e<z{CSP1z0V<W^OQ
z&hq{&xw$)Mu=p#@?PO<w$Eb-2ESVxMJ#Dp_)-)a?viU`Vi0hNa5X!Qx4v`c#0>AWi
zTduN6Os~Vm&q7;mx2EibHabMsC*PYU%4>B_*<GX{c<(EC<|7!Df3FlVjKsI<ZExP3
z&(^CRCc@AinA$rc50`x%74^b?rfDkCa}C0SEE`3A{B1|OMoRVX-ZyN*<Kr20+-Kj#
zin!*wPd~J_=2)veJAGRl+5YqAw?=CHFg#{2vX_Pz!F|<h4^=;u+-zEOnm#>RZ~ki7
z!0mIqPgQ$eX)d>Nt-gU&JS>peheln`J?-`wH<7;-3v5XJlwERF6@%kko4lswXqml6
znH@`NH{0`X7uU+?6U(fX_|@K9fy<_W%X;pv1WR1>lYD{uZDw<lx^^Gu^km()Van`K
zqQ+tN9`*}Kr={L=utl=)*r~YmtjrTS#m_`5oR?p+NWZL`*)&+{&D{S+>SN&Z=DrDR
z<6yO?pqCi)OA^MA>yOfl+$-ZMXCg$notGYmG2NkiCUMdF?3!|77`2`ohV)A!$>s>g
z_C>KIQm)!#UfD1jjHJ#$dYdwg0exTZ7A?p5j>fgI%Bf8^I|zhEZLvJ|TaUt3EfFhu
z^9Y?4=?6j8>Hda-2rDb=Ii&*>3GRyr6j!Ed@tE8u-!5X2lNWO_Jx9X%<l8gs`)KrK
zEUeg|pu3p3+~nl1v55?jkJ0>%%<;S!I%;Y!4I5s*7o?`)Gkdkd$*4}$PzN?*SgyoP
z^ZgZz^l(+~{pivchBON!rMAP)9dZ1G&d$!wRpQq^!mY*%qFGX-KjC~O!_2EWyz!El
z9v6&j-Fw{=Jo=7bIz8s#$#RDH*+Hk<Qs!qef`A9=>eprizOAhayKNYZGKM<o+S+UW
zyw51?gfAUPQapMsrZqrW{G_OTx#g+52m^c@0^R-c4*20WutO1%k$9ITTGJw$t%?d^
z^hcG2it*{V!HV1u1MN!1omh&t1P+dl7seeuW}3oj?s)JO6clhnF4?kCm)pCt%hf%5
z_YAU*A;bkXcJ}X`KD&iw3d#Nb{ZHVD{%C2bFEa0Wps%0Q?V#_yL)jF;7z$>4KS7uh
z5)beEm_sXv+fJW)lqe?pGKb%K<+>QVehq`~+0g`eK)y*ko!54^95)e`s;a7aUiYY$
zh|7w^`gk=)-R|)F0?$g9mBDBFCrj!Ocjs!6%%oWCvO3(ynIt;mshfF-Jnzp|TgO|S
zGZo9Zp&v|Wa9dhhrkg~mx`J)8yS=osyqU}hDlGG=sYu0-?MCVOYbPSRKg!MI`JUWd
zT3XszDeRn1i_ybG6(WHL9m#a3tv1Q`^q|a#kB`q_Ypz|R)P@mG`3fAha;>5@Ufg<^
zPsitAHX|oT#@?PMx8`suELyw9>$aZfDnCTVnZxD0=Ghp1n-2Qh4o^qJ#ex>tcx|L~
z^!2&;6fNz0_F^I0faeF0NeLw=<$E1Cbf+m$^T4Ccw;mBFOz2sp0JF$i7_Y9>D6x7^
zCKUuu6#`2RU0Jc>ah$uaqOE-sd|DVo!YuA;QzSFj^KZ!u5YsiUb@NK$t2}yi373R{
z?bxRlK1z90EvVdao`A(4Ofe6F9xE4@@~Fph4l4~&+|E4(g~so}7Xk*BDV07yLIT;j
z(&e22ed@6a=L=Z4L}c0}R^~fG<GyDnPvBeU=2yom1#?N)YtL%n+;=atCb~_Z>#lUQ
zopKU}y~u}eLPUBXdhk1H8tRGj5aOqy^2pR|<tEy!!y*l`8LJ2eKMlR25FNV(L4qCP
znGaI8ypD;vM#Z6Zxj$ETWX_pGuWC@|bS6@q3YG<%gj`~?U)%P|X#dk?aw*7w>^_h~
zf|L@3gCT*2kc#cstu!=+(`#oJmaluwi=^h}a@uHhCf<<&zpEERk-ffq*+v*ePK4XD
zwk3sc|MN;r&<i}$5N(@s8LP31zIdOFNlADFlb>48v7n8O(-y`mU0Vd&SBDDabi6hj
zrSMr`KcNPgtD%J_H?XWYI55}BxLUn8e&Lo$ThIp=2$)wHxLD6i-9y=qSKVHW(!gi&
z5=%OGf|3wDS}CmOCdxPMWa`d*bd8)Ou-!eBii1~wyMF2`8yg#0rRzG?>$_-nxN9#S
zCUKuCHZCq|sh~2HQgIlW)G?GA<WL}%BRN}Wy=n_Gw!Jq$k#yDeFNNtL(<J`0wcgCA
z!7}@g<-|WrEFpnGIT55==@N{Ag<Isoz*Vupnv#`8`w%?dh{tYH0upn7D(NlL4hk@D
z%gt$F!+LBa-yx<WmGWx8!?otpjhi>YK-&`UXnP%RHpB9vBKa;ut$R5uE33`p!Zjs6
z{imiK@z=qGMyhh>TALxRAcpzp&!6)V(gi!;`-`9cJa0(zG9x>i0tW|&m4YDn+=Z*3
zbg%hQ%?uQpDyNvo-Ja9SQ^$WT=GU{j_3quf>B@<dTreRH?UJCOLeu8<+O>-1@8N>u
zY~x;Aiut~0r~a*_SN&|OcholLKG+hl#Eo-DFx=*~Io+6QxRCq#z<~!U?+d8!=ARR;
zT3A?2&*}P}>^wQzU8UU%U3kpO;ny5aALDe|ElEkJ!{Q&yZy9}XeSd+vs{Mmt==)oy
zalUdNRi?HM&`_p(ezRt(%Zv^#-y8Road9cxhYPlubJgsp(r_F2fgefr@Y&CV3xZ?q
zL+oiR9?<*H?ZWSC-`UY&v-#w#iQYDrYkR%s$Y!+4jPJ&%jcceNHjnqwE~V?3bIf3k
zcctdua$YS}jE;l+uNwZdPY&O3sDoa<#6_$Gqi!V-q5$gqGb}uRGAXC^@i8JJmN?87
z?l6IzF9(05@R6{&S-tM9TsCHtVy;#1CtsWhi<7$lL4d<%IF`o<v0(_-e9dVG!bT5q
z?5xBsIHSOxI>mQ-A3fPw>YJ;8gg!J)ECUDbPre{U3j7;a72_xdO8c=lj3Vz`U4uxy
zwf^SK8!8M@hu=S_Fub-M+G$_1obHy^zPDw4V$u=+6Ls~TREulf=OiEDaqqpcFk9J)
zW6wu2D$_O0kNWl%g$`{|=E`38z>G1Iy#Aa+YVhG<EtKN5`QuqG-*1rm$cS+BotM?n
ztmK8>sUC|ZH@i=qnj@KQeLlN(%TPDA-{j(I?n;qHZgLpH@@>wl4XL&df~1#Z!%!$F
z^sh{vgjrfzc2|44LP3Lxg7O7Sa%#r|IV-zX5!;%GG7ENv%W6ndlPnwo@sAYMH8_aG
z4#}RPzx%0OYSZZ0c_$ER38Vu-%1$V*MpN|)c2IS@t0O!vD;it24cuShlxA@+p#+jt
zd0XZz@R^MOmxu;cJ28=Jlggv6N@-InlIzV)<DZoU7IJ;hodx@JBTziKtc(WQ!&!%v
zq9O{*f!uJ*ffQ*xB4#lLq!|N$`fAi1;Xjhl@`6+>=<x8cY~7xakZ^PHb5hCRJpAtw
z=RkbAdD%)q>qfU6GYbUno>J?Pmz=s4MHNZt&zRRS;@`as5Lqk35*%~70FH~nSMAoB
zBrZNR^iv_4{TUhN(cXIVm%N&g!Vck^hGRY_hf`p$($G8klWF8X!9n&^D52w%w|r?E
zG!N=w47blCj|<GfA4)z0Zv4n*EGSXzgcw|#Q%_Hh!0^ZGN~}k+iBz;iT-UxYbbpNM
za1~A{+o&hBU$5SqhJFF%2Q5|A?y#jj*DKUl*LA%xX7Takqq=8UWxwAjpiq$1nx5kj
zp2zJTulBTGOp9qcVH6>(<XE<-IfhenJ1snb$Ca9ziV1=0J9xPEHp`F)D%rF%aerju
z^yS^l&tYvzXUFsVP=`iBVZBAPFt;o^OsTH(3@H+)s?au7o3f%{@K9Yq>q|(*UKi=J
zeTgmPjYHBzmHVxlqp@|Q^RjgSld(TL*~2nBJU8|$O`*Lol9WNnuT$)Z2pR_3Jz|s(
zG}4%;HR#977WML|p-bab%hAGN!G^yBR6fdnn{`Oj$*rkjvaLC|3N{G8`?ED)fT_H1
zrG5GA&mV^^Vmfk0nU;B*Zl~B)FfR%$JQ9kE+)&4k+j7SfXD3Nysk14=jiJ<`&!1x=
zee@=T_V@hfoqeIVeX_qXRln*I3J-BuwD<iAnNyZ=iR}a@G^R$o#wUk6b1dypoG7?e
z>vh-q`fj$}>I{PLGM>E$**p~DF23%-j8eU@M`c`VXQ!=w*{yf(TXV%ie8;1Xo#$BM
zYN8y46OaqYM_mnuDD~dx6oRo51qB7ZVh?(v#v5`0yJi78TdTMwyBY~T)1h2(t)d%s
zSg8szoO7;8`B5p+oVpfF0^uhoPym&>>$b<_efe^sA&`{%_U+r#5KX8AC%ha-gXMXC
z_V;+{DJew=trqosPn8L66RX;6qUY#$FFHBe3)Qx*=C>K{p1^?Ka_fP$k<rKfp-!Kx
z(9+51=_QuUMr*fS*ne^&U(`9_wbg!3Ih|hA?dxEzZ*7q5$7#4-!I+~p*V>zExjM81
z0%I%-EiL!9(BCy`@kkiVI`W_gpJ|SyhPvW@Ecdr#PC=+oW4NfRJ$B9`%Y>y<19UJ~
z<-FV<3=iYl>V@viwX#~qsqVn|;Nc!(!O_1cz>l9lUyr@J&;iH{RB(UZ$|VOW8ULeA
zh&WPE;q?j*T6pR-iU;jO_s<{<q@%$2pLG;PRj5rKs!Dc)tB+L!(#>i0ZwV*N3CfkW
zEINU87L{RmYJbn=V5m$iqRh&YQtk7P*|y@4QJHiSwr0H5z-@J4{=Q+#kE}kLr-zR?
zBy~{0ge0(`-&=rzWJJIuzg1Stcu(x+miyY)ft4ngie<4U3i2GEfPhJF|Dsd<{Fd>k
z7$bC35SX>~+H^Rn>FDXL-MgXRCzBd1NZ^biv?(2l*2>DNpV>@KPj7PIKyA2*ZXBJI
zVC%ZL2oN>=*l*XlVN*)4^tmUR$5DvEu5xTHTqOICM|H-RFNIh59336W2?EaR3088P
zgp9S--w;Wf4@oULbY~i&O5JUe?m_@BZolB5pvwlR3*_YTb^ip`{>xqa7e2sHAR_TL
z=sCV0h2UdqLka(sy1V0OHow$wL9&ljpVI|PWZbB~ZsU>1<|jRMq{>=AiWM87kel^6
zIiOZaSp1MU8Dk?ogM3#n=s`br)#E=`)Yc}9GR3_Mwl*e*=C!jV(Y*{4zy2Ky|3}AJ
zbadiJDf6s(=4VDuy7>cD{+ZqPu*W66Dyo$5bVvesSi<_g8i_EH1X>%Vv)%i`ly`rr
zT!#}v`nI)YcCDb35JQ(JlQz@G`^}G4RY#iJR$Zj=4a=jmvbvlZvn;%=j3QGQN8Cll
zJA)(ATu2RAurZ%W$XX{TU5i&TZCdTwJn#a@tE4IxP71(*e}iFbF|;y$WuMM_J}dsH
zwj$G=ySe8k3N0Ep(Iso`QnCl^xt#zqU_A@#k5NjGj0F2^oh`6#tI~sJ<zi}g#;g{A
zf)oTS6a<>Nl%5|An_Ywxl!O>av@NcO{92kXA6PD~(n~Ed+e6{L+Pna(JuP$`bLlJm
z(w{%9RB7>p##e;-Qsq)n`b6`x82uMh_3)V-wXHap{!7AC`;7mmru|<qmVfN||KC1f
zpp6QYVnO0{teCfOG?%`Ox+W`YYSbHRjN^m(q?zZ0oOK1ptq@b}p%bdS2iBb6#Na|n
z$8CUGgDMtj>1f1#L~BkDEuEnKjz5D>VWA*e2)nMuYtA!}u!UfL?lD&vgjSHn|ErFi
z3WX5EE>TjJKs9NBkqEzHp>^BJiu(N(o_41(wTvtRIM_1BiBA#BU_JJBf)cb3t<DrO
z&(h7C$9zoYw?s>9hjvCU3rAaxDBNKpWda->RVT;n?SJ?3dBHP4XK_&5>l4fX2)N4f
zgLkB|0TOX<L_kaRSrd-${h@Rv6%@;>rP&F`G3690sx;lCtSksyCI0U07gyZ6&Dvv)
zwK{W=sJ6Ug!e=sd=|*-$cJ6XlK|%6zMdLk1@6M+T6f!@{tgphNz#7xQTfph;%5}^~
zYD!G0#jcCT7wDrNibbFNA>0r*CB9q9S-Gc)D(PnxR<rW`Ktm9)@u!u`Xl=CIz6Wp-
zRg?t4dw_As7RM`H1Kca?%a<NO&NJMl&&%3l6CeA+&RCMue7|+Hwn|G&V?k#)>wM@X
zhR-s&cf>K^P_6?P2OKkBM?qB;uzS;Ex3nIpB76J$>$$^<tjAtrv`-&mK0`^Vs^Vi~
zQr*OOY50_ngd`9PvRX;FrlceWbVODM*zq4eg#NARVoO#_{xoR#?)#<fK!uVOq1#hp
z*|#N1ETi(^!2>^lM#3f-s3|Bk^te>C2dV0S<LLRUET^PIVpFkr6_zlf8V7{MCnIgt
zaz(_uo9e@=5y;m~6Bz%#Q26h0OOi~>NZDs*mk+#f{K#z%V?r9tElY!ff+G0KF^-d*
zA5h;(baKI#;P~ZrfA5eiq4fJ)1UWf5qqZov;(wLb{~s;3Yi$opjRJ=$5)Vbz?Mx%k
zyX_`QW+Nyi(Cbh+_TW_i?BRco{u@ufj^DS)%(75`!eE+-OXOdO|8YK6t2DP1dwA*a
z6nm^jOpQiuO0A27BHsPY1kb-2^f13<+zd_kU=f+7h7d22?R&ip5<!C@k_eW2`8a%Z
z*vX_MR8_St8uchvGjRB-zrk@qXjb!)3V**R_6YAZWx)M$CoO7m=A${C4rh$D(cF#)
zR0U+=vK#}yoEfL=%FLOS8zOi@(X6!LFM1aJ8>YS*w}J0<&ReQ-<PBK5SEH@F*D#1C
zYq_p=XK*yveeBLyE#|ehY$p6jhAD+VVuA5BO)V^;n0HJ`L~OIM-`F(A=}8jjDwA*J
zQt|vg*86bj>~O}B3^qmEktdzkQ)g&vu@J=9@4v3j{^h55x15oMk(r_!#Zh+az)MCF
zz4MJcLs|3MG!wRc$jUv+Z>W+!26<uq9zHjV$mANaomlVMN9z6`RkHKg6oxok^+R92
zeEGJtpFUnch~aZ$#SGeM^ftd9|8<r|w!kmDjc={%`TcGxGS+_KN{*+i{FQh}ckDhe
zAHD1ar@>Ao*S5IBz2Jq*-F+@7F!|qCRQ<2y$>(n|*!|7&e1JAhc=!<44!D|pvu;+X
zJxkPm!NHWyUB_|*4C+T`XEXGWn_u)#2#_*8&j<V~q4y!~*W6{`h%m*DH>8jEo5h<H
z1;_jmwgl)5tGrX>ptrvg{jd1fr7M201Bwd^HP?|4>N@U@2d!`q&pHEAez&}~m_yoo
zIVN{(@#87d%^#N{lYucn`AszhN~@|O_}uC*dDhe!Re<m1jPWJ~>#cKnsvKRP9(f7u
zhA3fQ$0~yseXzio5DKDECy0>x`o8x?WYJEk`^(hY`K2`_?X7uhy^T%dUBRrgEDN^Y
z%i0|Edt062c&Pn-oA98ZjP{4P8@K1<qq>V?S4T=`08f$y^w`33<kaRB#LcHMf5?i!
z?8z`gQe%7K&T7jcO8?~m03Cn*?wzqM7d%TP-s@QVsiB<p!0f&J_5u$Jg}~$aM$K2P
z07TTgpD23UeBTD>Pt>GCc^80<D8DYgLHitzzy?E04xxu6gnsFQta0f>4#nK6sx1Cy
zTBXFrkmfR?Z)E3@q97ahwpp0RMXOXkwcXZ&y@8S}BWveoZc`Iq&*|qGJE7#@3=Sy%
zS{F9eC>j}}oK_eLA&Iv_o?H&=6V=StE+z3k+?I^t46ePldvu~v?r<fyVkygIO>^XJ
zbo3KoacBf>bVj$K`<*Q86l>VuoVl`-eUdghlLT0DJaogcqVBwpRe>P7iNGCKtmuQ$
z5A^gREOX0o0n=<ua2*c@Aly;o9Lcl)&;t0ZnBE7ty6(>2C>9F8eC(@7IK;tM2?^nM
zUy!=QQ$egr;a_&;{YSQ^sC%Z$#d_Em@oB3epE{hPxCrCLRK@Q<MavKW-V(Ylv?QtY
zKwnc+^Ffgn4IY!iP)Ek2<j=HRIR=;%dyDw$n!eI$%fg~VLtV~ePtww<w_!nUbQbIb
zn11j-w6vtQg?sgQ7?Z84Do|3BE|onccMeA*O8`Kj-TA_QWR<>>ePsl>!~K~^EEKRu
z0H_23H-|H2M^ovtS`P^3O8`iq{rg_MdADEf<=oT_|GWDY@2w7hvKyoJmih>RT&V|~
z1On)0?<3_a-Z8@ffgx0i+f)GcSL0TyZ2elXHO3CO3JL|Mh0;Uu0zDo31hEu;_v5^h
z{%8>es2(u$Pt#t-!~_EL=-;q->HgTk?XR~t>0|B(FbW^f>%J{XXq|mNvMQ^nc$oa4
zp?E`MNi`}ijt;-kFV81xR?Ekln>E*~j2KHzya5{%1CTE=d~EhT!26-o7;@S5RaK>2
zVn4P@D+lW7@%2Tyn}UMW&m>Ua3=StdKPd{^ckWR9w|a;p?~w{X4iw37><sl5;2^Eb
zchmsTLO|=S^}PvSW}~LCZ{StTu5ZnHGgS5gg#a}`ZIShe!dBO6e-1s+js0uhLgQ)e
z?12r>0DdvtnEZB~lzbMTq>K!tf@u!rstF?GEUW8}I8UBn0cUSt=0Zs%iFtnoDyC|u
zUt7rGchK!>aCo+xH$$}rG)KVfrU07*ym7Rw``EY@C<jD?uuu^ZKu8VHcpLD0U@RtI
z>0dqr;QG?dn}oomN$ct|0<Oek+QATS-$Y9z;=+FHBaWKf9kFc&(naO*V}Ec0gZ4On
z6K1GqtEpCv&gaZLeaGupYC91D&JF5{i#Kn!9>=tSlWex!%$uAFWERUL!5}C936Llr
zgP7OgaU}qXKoijdJYwI>=xP8LM)`$=5KvH3HgbH(wl0va21P~eEz^ht)#(qmHNgs;
z<=8-q4Ca4ayjfH_?m-C5As?tfHeg*dtECeHmaF5{^rUyT$@DxHub}Fx+_%0yX(WJ)
zl{E^hs#<r8UF{ZDQiH%fTx9MBxE%tf9v*sZF+)k@84wUKSmo|G%2zrPjyxyv)6K|D
zAf&O(gjJTa3p*_Gy;4g6E712jxZ+O+jN*$Sm+wL3Y@D1;bL}5C7d}R^(uGS6?36VO
zbemCpQO}d*qYEIzeDqlfr)!)4c`6%ptlefkKLg^@uT)3rrS2~F+w<O|t?TRSTY!h_
zxf1|o8?XH|dTZm)aIs~|vapkGGZHco0x&#09N~3B^YAYe<M<`s@tj6r&{CVR2P!It
zCHh|tFbD_;5bix$zt*P=*p+;%AzmnTw#c@DAq)W}2s{tMid-Y06i|L}&)X|Q7Ya=~
zo8GDGokOwRxKS@ndZ%|f%DrG0FfLe^`}zJTWwGD^Jx^kUz<JBH862eK3^vSjCJqV^
zf2kBIYlJ_f>UmQPj$#XNW#}RTcY+{dCY?j4jEs<)lkdz$h#^+oS8T2`$yVv+_3M9`
ze`tmHY&5~f6+fJMJ~7!_8^hpB7(IdwEHRsaNKn|`y)2}eMl|^)x1#0vdDTJZ`SW)&
z0BLz!{uX1jtE)@z<RWY8g$H?h)m>lIxrWAsSd5*-C-3__x(5fnS2#H52IoX#G2o0g
ziBjVq<w!xCk*6yxhjwD687aONfj#2$jao5(hF8idRi3sE*$8;tq_8PH@%_hw=4kY1
zVHp+fVpFcV`o>56%|9JiEn0M1P~%?>rAM#-mI{hmVx32$)y}abN8iErCoL+MEt<dJ
z$3guv?Sg#E4AV#1@Q_OXA+QS&=y<h>$N+_301Mj(WE{zz^;6t7WmCAIr=UynIW+g&
zfi%1D3H--%d*K=IHl!mZ*1*BL0j+6WUQ7?AKqe>TW`L!gRtCx8?DasDbb-dk3B)ti
zhmg%%fC*qEVHBo7#7#yZt9j$m>j5ezjY=2m&_%h4D~pe#c>P*iS{`U>21C2~HYR2!
z^K)YTtxnM%J?~4b!m~M`Xwt24!syz*`PMYi9T%`-0Lamo&j(vt(%>Sj?Y@^71dhDg
zQ!UvT#e6?S7rgYRJ-0I5dGFHJLFzx_Q)~#My=6CIU0SR@0U6&Mm@yh5JA=_8jfDt0
zegb{3O_|ZEf5t*dZ|^%&DP&3_t3@u$H@kQlDnV|sInz8+5n-hAC|d30uo5ILOr*;1
zuCZE>!kHFE%N^_88AV+9*56Qo!!RRUJi@4ra%ljq9so=#3iZ`~M%D{>b(9}K!71Pi
z;B;V!z&iqGMg{7CHj#_aGX7VgF5A7+Z^X8i5g`hF0keKJ@gEWH(tC~eU%wu<C5TX)
zCOA_8f{oR{-KHgHD{XFm9SA?p?bQ)#2oJ`gal!q*07i)J4jKWpTeey<(&l;b^2lxp
z>=Z!W4Is1$hMm8FuumP3`Y$Yb;(<wPLS}rUcboy#L1WG-!u%MwMze@R&KR}F6R;V@
zzj%-`4s-$d7~bscY}s6#<pxw^({B_wB_U)(L4|>GTh1xn*zQsOn395FTYDmaXz2?3
zfw|u7k|v${D;GdWsGDlp+()Bc)md33X3SA$j6c6y5U`Mu1m-)=D<Me%3=qrDf8?US
zgptuDNY*cb>L|^4Z+3zdGRcxJHeN6vqo7*-?2hSBU~L=v)>P6KD6N|OOU90@tOY8D
zhAaZM<MDRmkk&SU^eAa``e$6t%9=jen?PhfP+e?-+TaO9QAD^U8%~FVqTzXhjY~}D
zulPY=3RrZ|e#C>|XvRjIK3q26W5)u4zT@>CJ_N+(oQz8HvM|sUD2X0ED9o>}*rx7g
z_P-7WQbSTz6?quN#l<E$A4@S%Ano|DE%oqczrL1M2yDhB8X}V_j-1zjE_`j63ObTQ
zqgO4bzXx-W@CynEq`Iz;bLhnk<m!TW3*s<vCrUb=tHr2)CGc*n{@(}Q<i(g<kggtt
zD$o5KZoaG)Xh>5w^^#uej$UvHh97M<h`siKY<%x>f^b>|g@ySB-!KuQvUkN3_0T@w
z*XGaqF#dUTQc|RyP`uL=FmP&l+zcdVdu#WYPnmmVB1<b|8S+TG-4*=)NIzIlG|r*&
zTNu6O$9d;hN$X#@M!ID)SY=)uWp(;PtGT0=tow_t;z--9!?#rzQzyKe{8iM6S<Try
zgnqR%-ee)9HMTaTIyYZ=-eJvMuhZQTD*9S{OQ>O-kh~?%Pe$MO*}J1XjjX<FBBZ2=
z-eRYZ+-XRyCf@oy<5P>M!giLWQMcU>oYf*F5@z;x`~yp9Z<o19X0~Y~_WD}Q;PW$)
z(Ord`n04hiGO<0rcEc`8pD%!H3KC>=KOSH84=Sjy3JQ2<3M~l<2()%Gm(4(-+5M}M
zLpS8%wio7j_IBjdX6mO;*r3Cyy8`@lTYtXogxK46?+^h{vlXMY;e5&GV~wMM+EYqn
zW8?kJNM9lpQglx4c-Z%;s%z@;fJ&D4j>on{B-5feQNj=Ce3X3;AH9A1HnzDPL<7OV
zz48FwuVe_cixgy_r>@cjBBgg`UF$$8Amp}@eBi37Neco)YfU&;cP9JnwMigjW`L|}
zR8`l-QB}=%+kAqMMyq{-;PTJyT+k!6GPv0s_pfEW#Sn#Z5iVu`?nfpyxmSC3M~71#
zNe>HUK-qSgQ)#(MHo9dEXIZj#%d@W9hC&7UR}%{oK{@D4mDr^4{S&=uQjZ@THpws4
zdg0quTCY$h;KPl8+4F#M)oP+<Of;=lE|O`m)K<UJDI#bAeequH^FiAwQ%5S!If-kz
zZ=3I!bS8%T9?viX8$4I^G)CqUK(1|&lZojCzUy|Q@n3I0)ca>j7PaWjC=;=;8n2>l
zY;0_<dW1#?<D<w~*v|?b>K}XlBQf1OIVqS}pAUCXlDJ-r<pYTgk*?Yag&|5fD3+Qa
z6b>VaD8#W&Kk{rnij;lep!N2IG<D>_OD0B7h*xzpk%GDfd%&kc!;MEF^UZxeAyD;;
zS_+88K;JT0?s$#$_1#gGmZz(?oI!)@wL4^bt^LF`Qt-Ms#u-RazCj=l1jWQ(^)LyO
zXb{v<CI3UFLaIJMA<Is7M>atc8QUWlP8WcPCuG9mwB0${rJtroj`eDDy8CC9WTB-k
z8L@eh$_8ofBIu8wjFW<FFQOU}tkc@)ZJS|`CJ;cS<GEIj7j;cp;Ik{Je;ak9-V`f4
zVIBT=DGGaI;_H3B_5W02Ln#dD76fU>)6})x1G*5oKo2zyr6`j94QOOX9X?mQ#W;q-
z>B&%marBz&T{PMnpw&RCT2Xh9zJOfE9z@-Z?O!r7?$THU4_~Xm@CNF9uI>E`pmlW|
z+xbxj<NIRWP$<tCLfeYyPXQP25I^(k?dzM0^gaIQZmY+F4dsf<+Gwz5p@|_FrhRL|
z5}1?ofNmgEXasTT@AqPVe>PxE-Br=h2!j1>R(zxieBYCf_}lw4%x7jw`cRv62rp+-
z@t-e_9P<-{IvM|2=A+L@<o{3gb5q}4KIOlm91{ha4Bb(H$ngUkVsAT|jOJW~2LayG
z4K}-fa#}X4<P6Y8O3F7cJPLw<HeWQlSL~`%eC$S-1Bf_b!O*Y(8;HoSgcyEyez6`G
z>n2{HX4mk8-b}~7k<wnU0PmHZo{9=Nlg9!J^c;q;m@>%XyoXr@2e7mLk^Q=^V*y9&
zwalom-bXHg+1KhKm7F3%U7yxMPbPlwQ@O473{>2)XSIh*U$ogjWStxzZ1MP>dTp(P
z+Q105+P)Ri2_qEmcz#q{3?z60*27OvPx{pLi#2?=wD*W<xa;D_y~-bH)+^Wj)hwR@
zxKKGJEDbed)+C1zfK8Y09tKD%DiS|dmEoh~KVyzcNEqWx0GAZjyh1byRUwk=BzkOH
zpPWU?yK3@*<ntbfA!^Iz1=PbT6gY=m%+G_+!#dKAo>nX532YDb2mt_p*yGITF`rvd
zDS7Q;qCec&f6w!-o-%$-W!rFzQxXbV5GJCx@DOFfFQs?Ux!eOJ+~y~7769zabaLOu
z_=NKC5nGGj`52sTZfD%Z71)5Gs@l$@B=4-bqIv;j%o)4!=+tH5$xVsO{L}HSDLaWR
zH(rmhU%}y-x&u-O{T5ifO?(T0A6}0tRn>spWqa}K_nRVs73TQp1E9{P*mA`1W=MBY
zr^z-0i}1_gJAMIVK<p{{((H=92VTyghd)a?g^X-jp8$A8zzjgr?5#p*DtB6n#(qt7
zc*Wl@E9;DLhN9Pw#szK1O@saT+KSt47-x8GK*q_EtdUI_j3y(&CC@iJHaf~NoDriZ
z8Y%5G`Qru*0p!;1ozYdA!n>E>sMJElWgwB0wO*~D@@AuudSK~su;o!*(tFv0<GQKj
zhf={XS?k-lOyRQDdGE|e?%VX44cMRF@29LJl$R}iRkSD&C54aw!J@IL=wR&e@I8D(
zPmW5Pc60Swzq8%;juMw0jwt8G;iB{$RTr^nv~}b9zlC0YXd~w)HCTjk@A5&leuEwt
znj8O0qxU13ym5(U&gN8C^tG@8KjzA1i#Htue8jM)KDFZJ^nt09l>rHnGJ8Rv3{lro
z*uClQd0YQF2+w!P4AJ4Ie~xkgb6HNG+(z$OPPD~Sk$55l;l&LyzW-5({4WF3|9d|G
zjH9}``bW?{A)w36ys9Vvjd6?zya@;+B;ID^<;j5pO*ahzH-({T>78|ug!bPYDV<Re
zxg!`wFj4;Ll7nBx{()gK1l<Uk1>R1|Ug#o4qr(J+jQNuG)#bLLoUij!u*(ltzoZE<
zJg}nkMLekZRP2^OdR)3@E)L(SX<X3oLxr9q0On*=+IZxfJ9r8U)vkJXqSK9Jo!Eye
z@YVqOKtR_`kQ6Zkq+`E@=uBZSiHOE;;$+Pg<@ahNTsCz1F$E52TZ8!aAK2zop+I$G
zHZ+t`%)&QjBe=a{wa-Z6&(ZH7oUrlK^wRMr9{$;K&ZpH>6lMsf;^p<~H~Oef=Td3x
zs^}ve)IUH*f2)kyO}Atd<4ZcmC&ce^m*JD8Znp-h;?h|}MCcP=(zO<&K*&ws{h%va
z3z|x}x|>z&wG90IsFFt%IIN967^oSK_?P4fl?{tdT5B;4QxYJ~04irzD}TP6dbi3P
zSo|LyEhTAGD%wMIb<mt%Rm;;0uRS|iAIvwxJKS5h?a&6a7Il$<<RggE%%4cVm^GS|
z3QG4VE-qnE&dbTc$;wJbfBbq#+qS;<F(r$@V$h>4K#Bz$zU@^_-_o>~L%H0G^DOH|
z#*~&D`yLVSmCqg!?OSE2>gz||EhDgL@ayZ01N1K?>jr>@ttY&HRo@wTr8Cw{4<KX-
zH$;?*OF$ErMM2E`j<N1r6RtwBlIsz7-K;dX*-5+PO8MH}HQz_CGR^oxva)XU9<I`!
zfo|n-05M8JQt}xGf3Q|-32MC9lG^8FS-)Y*&fv!@7C_#z|7l<)ICcQ^wJDb)RTrHv
z-v3()lm8Vm<o{xp;D4`2{tL1iyP`dUzmgLS6xxaLB{4rx@ctv=uZW9BZ3HPI@g!yP
zby^plq_*4)%;;FDEY0I^W13$C^_aW2wKYpPYi9R;Uv<ICYK{h(2No0QTe{_SVnz}?
zzDPV!tBmQWs=A3Lrk@VMRLDh!eyhw`hw@1<|G}b84=XyLBH;^AB5(|ZtQM|iFy_%H
z9$Bq82i=YSPmJUp<#f;``mY4(!<-F9{;B3u8r(1gvLKCc{fp;=FP<kF<~7N0mLLu^
zl*7h*At~Wp9}xp$DYA38Q|B?&W&n`6$UwyUq+!3gsqL$M67kE`5z`mnF8Y&2TLQF^
ztY}0PjJ9Gfd==igmE6DmXMV@SI#a$^Yn7=E1(3VZS^g}I8y{V9b@UTy6h6yEt0n5L
zUO|yV$}a(fGX^SFBCBu|i2SY3U10HFElw4%`OJ8Nc{(B}VmZ`TI^%x4nkCb#c1-d=
z88Z3*tYQ3n1X};ueZKPhse`7H_LhmkR6WQJ2Q~l744yzbQBzBWX(g`e?em}`0%(2p
z2Jr7rzw8H9&45{?;kTdw-Uy_pz=x4+FZH#?*FwdK0_Bku$RAJ=W^^n2@hdPrmxB|C
zr2-ZVQVKQ_JpWXUwGXLmiX)j>C4CPA?vU1|oBLVlb2Lu*J?YsO`AdN9z0Zd-s@;Jj
z*<8E_-5aeHm;TM3A@Y4fF$2lb?yX7-^5S=_R>Eq>pxOL3zcmH=%kMxgA_E;d&>GJj
zgRT+-RfEiH{*|tvTS-|8Ox6E%oYYdkeXHBcV3&9cleG)qXiM(;QAXB{)b3s`kBDat
z$!=cUV!EW{B$`Vfc5@1oshnkghvo#SscK}UxvUVaZr21cu**12FewyMlu}1X&P$<}
zSdK;Blwk4F-{QCAP8K4|8Hp{4CS!G;5UoxT`U5|_$hz}$#JC{AgPJXOZNDNHH_f>?
z+G2KrlZbQ0KSbhE38Vap#*L6SE^Rdv#d!7I`28`A_lG#6HpMHyUT|=xKHX|(;iHpn
zslmuB-71RL*=}q3mb-L`ZA(xiOLbw>K*EQG<Y0MI#`#^E7Kv)(M#or}f&b>Fpt1Z2
z#{2N0uSyA1&O+_GE>-R<791m(WuWi{;2Sr$e2xy}r35gR(NtQqlS8!%{Re1Pc(WFr
zgh7@6Kv&mVjv8r>pfA*}N%~Jh87;s!r11Aod|Hd4@dB-VlTkdR2Vj+v+G17<g|H=v
zQsyrC`S&dy9kQUrxk&a^r*+i@k|oTFbT|M(`V5*xhT9I`LEi{N86am+9hUfswz1&^
zRSito%pz$wBsDpO#r>{nOUHb9DjdaT*0)uaoD33zhl9I}c7WF*vr{l21Sh(@ws8v>
z>c+wyg;%XywG0RYkZ=X5bM77gTNG*%<SwHLHI#@TvuPeA7a(PaG9h~4roV)<Gd~Pw
zSd|~R0ALIuoPlK7)yc}r%0HD2bVYwd9z@fmPSbKVJ~|ngGlZiNHWP9y;MHbvCgo}%
zN`k%%q#LtZ02sYA9ON~DYXG<gQrLVQLKNtkV3rXJDlWZpKutmL4s}Q_B|i2=f4}A#
zNEh5h051+7igvcQx4X5icqm@9;J0Tu0tU1Z0B@^IN`ipz@Sp-F)=SgI&yG9Kf&eBN
zd}ujd<vtBiZ+=?8$a>W!llC}cg&a^7hawzav=$8WKzAMtWa;q3Wx&_ZgY>(AqgW3B
zWQ2Lswpbl5RzRfZ$e}!5`*!yG8;05z?J(Gqty|e2t+h4ZNsV-j9L0#rVDlsM$&Y9)
zV2Y55S{RZVei*r+G0kFz3;-4Z0x{1tlyJ9+n}{vsIZ$*X5A!N2=wLOavt(wlZBRu;
z9v^$P7DMA);k5W%ui69jjRXMzvDR!QtZU>_hRY&@smR)qU~(J?<JQ^P?5)L1%gf!s
z!ywu^ha3a$ATY-5#hzvdjs|W68eABZFe#@(0jD|z67<5^2cGa80SsUVCZpRS2Sytx
zsHmm^um)U_fdqK_c<<ezXv=df4<0>w0fA`5VK8w)!(#7m8x&+Ji72$}b#UyU^#UR#
zBs3IK6$Z+4Z;k&mB{j7X2)?azDGNcWaUX`VmGA6O@ZLtf%2tEvR4h_azr~)<MhAap
zX?HAvB0``Ccz$1DAid1}i&{=S@`c@0ec0i<Y`rXNTkD+1C$KZgi`-6dsdVL}2;jLJ
zALhg=iydHtWFsl91_u+vvCU_{fmtgH2L%(8%`o#EHa-0WTvjWqFM3`gi^p>HG$~t6
zd)N2kfmm1ciMUEm$=VruRcZR1f&86=0zK?)6pBCwc`v~4C`2?JTLU03+!ROO4Va~Z
zX{+<yW{;~*50{_7P?&XYF)$qYHe<qYL}Saln~gAN!<!4u>vy2*uER_bt3Mgg2U3VK
z1kQ#q^D-+i`Zl8#ymVzL@10g~dU0_ynG}c?Hvy9j29Qai7$&D+R4@T<<FqTwhfy~#
zKVKzVr@Ww#|4m;7K$SAOx(Tyda+a%(lM7mEyJsIQHHXduf+p~?*Uo}>KmWa-*|I}y
zhNy+#$fWJ_=g-y7^wt-&+I=gR?Sueb9nrC@^TW_6G$97L%gd!D3ojT{&dGWQlD^SV
z9aJ4)B|H|rY#CW0uP@0VH%dEj?=hE(Z%)6khnBWwBT$(O6*igu(BUY1t$R*bswTbZ
z^E{Z1v7ddXK8=7Wk1b*H5=cLX56S`x0w&h(Bn-N(OQ#c6(eF;gua=N%jGcWLuo%}*
zof$e;7?`VH%QSIzy2mj9y#)e$Ap;{YWl5GG>}=u40TUz0$T7(4<!XISczp~hq!6|n
z3`RizGP+ROCM5N#7e1$Eb;-T{(vn`~l2HU)HUD)Pux4Y1hrt#Qf>QwYv91WJ2k5{?
z5C#lFsP(<b0hxeNO)JM7m;w1G1P27SQWJHed`SXNjyK8WtiJw#+K5D}cU{ZrMD$7U
zf}5QbHq6{I`yS_Wh#w3gP0!A9VBZ(@nO_QAjo@PJ14IE*Zm=KSe>DY{UgJlzYd(j`
z%Vu5oOmL2UfRc$>u>14$lQug=-t<|9qKk*M#QPlnqnQF>0HScQ&fS4g`wPh10uX!_
z!r0T}1c$7e>xe}5y*&z+2MjHYJXOKG%>ERqZ_v*2fcBcYWfIm;i(=z5<x<ijle5U%
z9?WLTr%4%9-NDmkgp=S9RR?n)Vqx;%ohGZOs7Nu8_ClZV$#&1?H#}y8mbce6YP{T=
zYGV{1-*hQxMieE04w`IFmjN49^{3@#*;3Y*2e2MMdNEJ{u7j#5z`Q3NdCdXs*;OIU
zYV?V<LeA5jk>Nbxr&7ww_RnnBPo?5K&V>AG2V9s&_!Oh#3{7aK;>h#{nLk}T$9lh;
zjpGn&@hbL7%7^4HsiCK%**5n#q<*|lF^ra!p;4ibylB{NLHl@H&hWjvN_m3g?t$*H
z4?UCMd`X_=pCcbVZaWy~>70K(BPP<k6^{o@liLC4>tS@mRUa6OGWV^k9v&XRa^XTO
zXiCtYl=^tbbGL4JNA^ywkd8hrEiGgpgtZ$U8Tptf$GGUqxI9tk<lR_!raYi7dL&Nf
z!yM##mSp1_VtQt}Vmsqr7sk`1alWnml0g%V(aMA$A-7Q&Pc*iUAFWYX{^d!`W8aI>
z<wY2;bIq7&X(fS@^e1~jfwQ+hAqSNJh+<FW<IdfpU*7M)0h%$yyyc-NLKw=ZoTq!i
zL&eBhC;wOjCO@$sK7449uVMG+w|rPcgvIbv6O#_1E3(nEu|~>1oxL<MoVrqv9$f$#
zFcB^mBEFbvz;kkOX=1phb5_XlOXIw`0O8rj1~(CILpJ+8=ARJ4XDYh!jjVR<F_c(=
zROjV=9vpmbdvDJO@*6V4)zsAV+#3FxuINUyr#FGBPSH*{kiGS;f<gm;sirw+=)({B
z(+AVH68ihq7)0Id`VT*Jz{o65p!!AQ75xB0yEltF9t%#wvG=d`_V!MKM8(Y9{9Fx_
zQ0gVtcrkA}5E7F~-LD+aZkVbA-HTL7t;Y@lXiGE-o}R0ytmMyA6tl<%ILFqO3rIE=
zf4^?C?-0!4KRt_RLqo$Ko*3vhTZc1He*o=zS6Ml5%w{0ofl_J`M(p6V64H<!fTtPc
zkrkl|ZNy~3=Dl^xer1pc3J}HY#6+gwv$KW}KK73fZo!K+UV-rfN^a!kB|5kZAtnP5
zAuTPs604!-5HhAfG4slp7WV~)RM4d2Swk`L_vN*<CK&B%NR(e#S^1u&`h{;KwVfwA
z|Lz<AurQ)_fhLVNmrq@Ktb}3WYkO;6xxHk*GwBf!TpR8d7B>z~d_Z^W1cb;N<J+H@
zQJ=DIFy40X7Zw(l(%U=mdYh1-$Sm%2Sw<zJy!`!Td4gba(3D6rMFs{1UA=l0-g*H5
zG=)qG)CP(ZnVFerH2D_cHdia}`*ss}{H&^~KNp=IDk_GXFaTkC3BFu)iR!aBX*N3d
zd#t-#l7oXIPD58$7cL9$OL_hCX)4S}MrCC=&9+bq!$|l>H7xY^rrVG8y`CRG@L_`K
zbyn7=fo1-D)?yq9YinymYCM?O!M=ET-OMqpL{|dJhiab_;mf2=gA<K7Lc!@b>)=D*
z=AS+16%$i}{ro&PXF|uo(Cejvl?+IW2UJaiLReT>PVjb_Nk`4-OH?^fhtn}KUSVa;
z8&Cl9>1yf^9HECk&rb1haetT;;*=hp_}l}$ooY2x#_Zd392S}D(fLKCrEp(Y<lo%Q
z8;FAEf82q&3a={pNIL+cCo_0U2pav{p&TD2|AxW~l?+>IHr>%HuyN&j{9PQOIEIhb
z)CPq^WvE*McpKLjZqGpp1|luOp~S>Q5_ky$5dA5cndd;U5f>T`x|Il^%>t@X!9mFb
z%cfVvRaIYzE9+T0rypb1bIfs<kNrNIz*Sp)KP(WJPee*O^JlizZFhwhnoB5iukQWK
zcLLt->M00R2_qC$RaYiznZ=U0_AjP>E!B<BTy-MU1b5NMQ9C|85m~XkHA|x)f}&wy
zfS$o-P>06Imy~+)HjEccLs}E^+-0Yur*A0Xd4GSf#F`#T=^Ed&+=IH3kyYdc1Mo9x
zF*^<_!d$)T5Xe5ygSz_rsnjDps+n+Kunczgelfo^Oa0?xWhFfTSeWEf;JGj*9(Y+^
zWu9zR1C|^ndkKC&)ocQK>k0G5+4NYsBi_l$35z}(4A%RDibJN)<tidBglW*379OgQ
zROF=`&|{yAY@`Vd1OEqO#Aku9)ip2>n3BR0+dlWoMLAIv21vn?fRz*iM&<`!EU+*i
zq3Q(@R1d@IITpM1@jEa>PYFooU3vLnkqMZ+w;C=w7fQ|5&yXV<m2_F&ZF_-ycWsO?
z>ZkwsxE{<U#ZJqKL<5He8bt`Rv~1U}2YX2RXI_@Chfht~2^sLd2hjw~8u*<l4cuU3
z!`Jht%v`;1B|xvGt&J=m-t*E3+3h@2AdkQ;y|8Ebw^O0%pytv;L%yhg^7l0iJIg!?
z&IVyuaH)}4&wg&7g73eN^=&jpVOKEz`BN||I7)tlStt1=<MYp-jgYrc$;&9AbEOQP
F{~!Bq)-?bC

literal 20498
zcmd741z45swk|vg0cntu6i`4~MLMKKrG!aHqjaZ8D@ezuC@3u;;G_g8=|%~W?iT6p
zK4ZG}{`XpE?|<)gu5-?{&v$(mv)=hU;~C=~_kE8yR82*Z2%i=ofj|%`-IaTYKwwOv
zf8pW4Pkj1n-ohU^ruP-);7|DPP`1(!{<!FPSJwrBARtHo!sr?IJwYI@Ae7{!H9Znn
z#-Djm>`qH<?05X=NdAgP8i?RbrKbv`vf(<oaG{Vzk>%mfN!Dx+btb)0lzezeaGsV;
z&cH+NqYKx|=pS;J+Rf?ll*-Hh(iFd2PJrROVjewwcyf04X~*jo^Y6A>%+sfy$>N_~
zyrYI^CH6UF@Gw|dSget#6&zABvZP3wIypHxa(;h3B>~!(CN%uY+r{(MYZc3%&DvwB
zERmj*C%=U@yZp|+^e<my5v7ACs&iA__e`>?d!Kpna`2K_|9v@E!Jkirrff@H7atBQ
zUtwWUD!=eRPVTC70>Km!o#0fC(JAMNuN2#Zcm9pRB%`w|ukd^~0+>>>v+?E=U5FW<
z{d$!#UNdO$l)=z*@!Ff%SQb(|<E9WYVdr0XhJL4R`mWvb3qL<#`JOHtvG-F)w{CXa
z>Y6&)?oyPN#;DoNb6}<+6deBHC>$ZSR*v=j4uaaq`^JRFY$Q%^-{gg)e52iq%o}xB
zBvTV!>o3i8uP;xQJF(_hu2p21d{DzPETD$p5ss5S`}O>UG(pcXuyBkwXPT{!1uTDF
zc@q~mTEO}WkFfEMI3w=QouanlXgN8H071&S{{H@V{3e)M`TC*p@w6RDVnWx4Y7RRc
zSSav6<mM8l_#Ry+rWf`fwXf`Cbckp3JszDj{gEh=otxXV(4F30U?jCNQbM3tYAda)
zd)arta?<2@Z*@<6f6RqM^6=Ls+tE^@)+mNX?V2sh2u6vD@1-j70vD4+-5NG$TQ~P>
z&lz0if7tOW&(PRtoZbs*Hs!c}U0Pk8EZJvIH`{ut%mJ3nW4lwx>Eyu4YpB9)ng7|=
zlLK!_L|uX3sf}E^x*QAH$>jMdQ?l3E*W%U;Ix#kVzYFZ+|MCrqx`X=q`a;IW^wo8B
zhmG}-$hU|qFX~ezR+>UDVfy2}l##(>R)}Wg5wsmLj-D)YNOAnC&%ziz+UR>S%M=b<
z(49}>j~Cpi<mR^6BY!e4b*?o0Lr#z7Rft4xZtepFX`xOBqt>HGoPu^EZ%U0q-TCy(
z)%2aeUo+iZ>c74$(NE&Lfpx>;2mSGGT<wY3CT!lv#Is1D3DU{qiGA8)z7KxqXQt~D
z)qBg1!rTbFUV#LCE#=);Aq%#>nWg@xzETs<<{7+U)msiWXE%SvsE+7)v_>-pPp+4h
zts$;RNiiWDw|*&k>A)(lo-bEKjg5_E@F=BpSr~D;t_<Bk+)+`9s?HhUC#0A37Pe~N
z(u7wl#_<{$(*#N6W@l&Xp58l{Ch-eNOr(!s5EI<R6m8yF?A_c>Ij5JwTNy1Q!6jjA
znyL?2-Goi9hl_X>7l+%(@3`Bqot~S^J-fARW36k}qsWr>MJYjypaQ<n0c?m7qV9KR
zg46U%>X~n^SUEU2?(oyd3DXC)&SD@mwX`r1TU%T4NNtFHeO~Gp^;cXCr1B1lnIt20
zxXrts?ksc{Z)YrNo6ezwSm%p55u0jqL~}TG<DB#D;V8pu&-&$E)BUw^ov+T<7(Ex5
zIl?eg*A7+(YtP)O&d-h)db3CblpBrCwy00e_G?vjlQXSC6w>#Wk6NGJ(*2hO?#c8$
zY-?-VSjs6FVK%10k@-N%-7aHq&kF$&smSC*QK&=MZAo#<;ztva(AZzaNN-VR7Z<15
zNFmdKT;09U`$#0xW2LaQ$B-!@At5}cpoTVD>P+}SFMQ9I020ZeT;FR86;Z8>UWBqi
zg!S)kJf_vxNNj5)k&1u|i#wR(^9!YOsOo04k7rBk=70rBwW5t;ln8r&%OaD<2G-!6
zl%FJA(pB>M^k~WWzIoSn&KOB@vLxjZO~n2}H`cTxO#lwji^1h)I7vPbvFHAo{dV69
z9+lv~x{IA8_EZ5jniLQFvvED9qFc>Q&;5mgJUZT*15=M`Lw&!~-GdgP8WRVl%p&Kx
zdn?0VaD8i;;`E&_-n)N4VZ7jIt@hj({VbXrrq~VBjxnn#kSSnSgTwi1Xy6PN1s|XK
zavM}o$OaR?oLq0UD;p2ebEv*;r~Adcvmsf+YiifiY1k~z<kz=XO0&H@IlYUlWZlDe
z$QA|XLPA2a<%>V@7_+dX?Y+PldjJ<4mL_ntA8vFqlWT=VMs}Ozsq`f>GNn57b676^
zYl;sI3At*F`11gQjfLg4KgL)fB;?26{$k#1ynsVQd$m%@f}&TTJ4c(Zbq>;lzV~Kx
zXFgZV;g@;=<(<{hvhSknHOKav+S+9vUL)x}Jr9qcbI7ggCJ-1iV;er3qa?h16C3iW
zw!YH^IMvvxYtIqGHK-+_+C!pbzq4nMbl|o34^6(g*Ag>|zuReIY2>FJ)4Hh<Ow7=5
zElz)?T-m;iZXFiy%W~V3Gh1QT1=1iQy4cbmuujsw0>6I!8fx@}{9ycETU)!ah?^#;
zdn$P-$Yf~0Q)T}>?vfTh!~(6)?;Tj{8>UTo*q9hlPexQLMN4=>Yg_CUkI;z|VoDkg
z{pR?(uh1e@HUwk&+0il?9yY&K&sE5JPXs2jQhdYI(-oM7gs2CN{3M7OM4v=g&L?|q
zv~d+=c;JSNL<>^aNgWS&efB<dJ~{02Q{bRzfF!#C$(10}Y6g;|@<jTf>nf!9YOj49
z|J=BwPqzCugZTy?8}+zkkqWD|LK7b8x@JB*-HLfdbHgKUA8i`V;tXQl<KqlHFP4ot
z-|yk?6>vJ(n9eXu##?A%%vJZ(spt|{qjv4hRBq(+J8aLOEK%bKBx6;WBJn%GLgnOa
zHW2U`cc;lCjLW7W^DInMSDqeyj5EAvt;kQ)G?1rP=rpSU>5S&<*RLK2)4{8oF>J~W
zaIxx0<jdEu$;Z66J1=*Z!FS5lDa2$~O>W97n+OZN#6B{M-iMu3k~H`GKOTo9WMyV5
zl<Vi?koc&6>*}J8HM__h_|wgR+o(oA(dCDT>BdyODJ=1xYejyzw&62*3To=`YxiUE
zm;;BZy~^NN1b+Meovb%Yl^RxmCRWd$3=!BqNB+1ag6!2@xt;aNN#3l&XMv<?MMVz@
z>4nt-Wtf=*Nx8K1Dd2#R%iwjFIT(Fdu0VhG{)AUSh#ZUiv$?rB)3I`=hWYJ_27}GV
z>$Q`XwUBODVO!X62x+dA+Ksx8v~L!+GG3w+vbS{|o2d4R8QB=nbAXEvX`P+<I-h(A
zHj4_b8P)<m50X;(!K#BF*IM~3@vE2^)|&04^&zwOnb&<c!;M1h$16f-W=snmr)9jx
zUR)q(dK@jm1{px!*SE&wa4xPH)-2v&5FS}M1bATp7Yu8(vo@|*wKrlDxpx~WA%jO2
z-rNMcC)@qi#RC1UHupvyM(u{Gp1A~wE+6;A)m(*rjS1Ra=$1_se^%5jh#=kc5VsOW
zkcG;{pL7r~H{Bl8XNBX$vG#SIvC!w(-Rqz}0Jj;oU*iXRASop!W!lsA39GD6>tDJg
zFKHY3l#t4VsBv8NmP|PvF6O>};9a9I`pB<Fqx$f7g6Y<;?@Eol)jK^3an$NwJ(-vu
z%L94WYnx>7ruUCmnXnKuFR2YlGp)k9B#$4su8rw7ncnakYv-%AJzr=xy`iq7!?CwA
z%sR7KuJhUW`RQYE^9~xPodtE~z`OWUuG@IbO||Ez4mX@;<O-jz8*cU&_#)qBzVFlO
z6=+VA4{svit1_-#8~geN7U0Wxu;%HbDvv_+-ar~B$HE~LUY+ykM`~Y0B3J*qN!Vye
zg@sE@5lq5l|1)T@H!D0V*%MVCy*yO-xcS%j7<n_Zk5Id2?i(GwhI&mZgLmU`3*qKk
z<vM<^fV?n0m9~M~TVbb}K!b^Lr`Z*zVf0%-0x=&%`ki677s&zWfe3SO70E!cs}DB3
zBzS2RpO%&;LqSCqW+}kg62&n3Bnd&wUCSupi5J&y#^;jK#U5xW>Ys4bp{=PIQsA>{
z1272!kIlT}-7A4JbfA|_`c~@H`c@Cs`uU}Ar>Gz%z1FKuPmgwGLMkX*Od5l(Mb@5d
zwbSKgoq1n`<4KNadN!ZL&dJ3U(=zV4oM$@!Bk6Kkcs7r<3x>Go&cd5nRU(w!6h3p)
z_|r){hYKl30cCE>S~q--T#rl4bQ{+9!*#f0cLMaJ{ChiNHeymv<RFiRoC74=`z&>~
z8EsnUk0CSYHtqbiX|-&UH;{A&3M~cXnD%U=UB59GXJ^`zp#p=-fwK>OP{Log=*C_X
zXH*TKd=XgVa~u}T<g2qX_O+LHf4fVHdQjg*xvjK+^5NmpU@b2I#)FkFUD$|9hKhUw
z#7y0DELe}Q@bFcBsx;oz2femh2D|grG9hlu1EE~`<uV@PjBp*aMDJX8y-zk<O?xtw
zlo}PH=&y5fa>}8B+T6q1AAznIi3jxkaY~4+;|{6wlkJ&)ZKIOqweEDq0LrkiFnshG
z3WrtIj$o3K{A8DPsjf?WJK|ut%h$Y?my64Ww5~CT2!7A{p`BtCKcnh*6jM$9iXT=C
zhrh(jZi!~&a6Tm(@-ypfaQC2;J&NOA&*lxJ^4ig-0t|s?Ga40;nmpF4_kVuUVAn(<
zF|x%(=AYIcGoT?S6i(a88iq}evE-V<t@tJF$6dV)x6C7a9;~Bs^6$|CL{mrOT)@kb
zv8U6)OfyhZnlw};UVe}b#za7{3@mI%<e*S$`uY)7RpJPLGhGfozTmF;#=X_i&8>Dm
zc7|;VnN+AH*?D>LhK7t=+uIn3l9G~zv9GuEd9}YRp`^~yPn`+pGwqDO4Oo4s$c!Mr
z=4c6L?js5p;l4H&3dL=>K)JUGo(Bug53LSI*lSG-pRhDz2nToxQJbCZ`y3R0bZd-&
z&sFm0DAZ3kiB$_jyyqzpI?!x9H=%K?9EU4wg*5j%a~V1`-r5sq@$HUVaHg=`S4a9S
zYkQx;E~;y2#JJLzJ#LNiI6vK|^ZqU7zVgn!<_PdBv|*wr%SPvb)Cz;whYGQvBm7}i
z7L(0mrGY_@hwTV2n2i!!yCW}u!M}oOUBu<LfT#Nw97X29y0g>cO<23B7X-YP#bdsw
zM<&f-lpI`K0i>8vDVpAD8$uz_DE;{9+1W<0l=0AK6ZD?(`<{3NHk!aT0hELPn@kHc
z*r|5cCz)VHo1+-S61mgZRwt_ISQR4fiWm;M=|7u$d+=S=_r+{$G!_El>$7QdSO(Kw
z#8Bl^zLto~k833zrx5vHf72rF0BYoax;CZ|U<sW`Ib``5L-rpH_9_tNlZB6QdB6T5
z|1~!^4GHR<q>m`9*A|Z5T_gztAS;&NQEv)qbSoKg@MiV84~f+2qN=)<mU#+>LG2HX
zamPlY188Ds83x~tI@B_BNu7%WUKVF;9sBCCd44u|9+1XiCAF<rX5Tzmvv<2`*2(Ky
zR#g>!w8S2bf5rU;Dn3Ko6d&)YIt*_BAkbEPE4M>zd}ED9AfOHSkTETpLIS|!x>kW9
z5i>UY9y#3@+_>tVl~j<KiL*Rd5NxLVnVSHrL1U_Pz{=r+-X=J2tCRwO2-@7suwu<Z
z|0I*Cy5|l2gqv>*yyZ`zbY7AX7(-S9ibhukbQP97n8K=zXsM`%O63Gak|4U3)xPG?
z+)LX6W$<(H_wZMjEE*B#jPY3I1i|4-0VdxAlj-e4x%0Er=5@bwFQ?_avXMETv%`7Q
zm7&50{)mj2&nm0hJ{K-rAaZ}2x!tFsdVA>h3B*1=^HS9J#R^_=#%LNT->M<#QL8)r
z(A{Z6gA4?{++>Z<OHvtb=sR-_t4Daf#w*-rqWw<NCA#>0Hwm16h|CYQN?u}@<uR-p
zny`!as5bA6|5F>5maNg29uD2{W;)a9-7&X810{C0YZ<7lvvT;M6Xb!=I3wR-`^J$H
z8@j${sMF(pbV3rc8v4}g?`BZ;w0~e=AZ#7l{<PH8JHO`V!=Vdrm3+?Eo!lb1{dC+-
zJDt6kh*4Z;WwO>tC-xfPn8#iFB?UgpxsOUXtwu84rJ=wKv9qv^NH|X2@j3yF)&zZ0
zVE!_CS@sIYGJosUcz<0O{*v{rvy-xH!ZSx0PMw7PY)hnR{fi6NN9Fnqi$`0@k}KNZ
zXWt%oAGJH!E%1wks~=XjazT?dbM0|i<5=>2jQsxS*1=Mv)n662F)k$J$CFh-^pAc#
zA^cApjMVAKz%I4WQA~3vFHN(XI3yxc2BBX2Y-@vK`eA8zdW$30O_HMWm-&@@H_f!-
zGo|sS%N<athB;@mj}Ad5SE$01)O|FNCEcTm$-IsHq>%~?ap_j^J_L&FkUJ>koyLUZ
z)l-)}wT@yt*H;&JI@kBbP|?|6i>T_L{X|n&7zi${+|NwhpDnr=#eoEZj0LeEp84SY
zYXKu+`qJQM;*8veRps4VJnb@ec6JJOPL<=3R^90FB~!X;Hft`$XV$N}kCK=<HZ1P~
zwIgyiO^A(|Rq{Zi+l|4ucG5}Y&iGb-e!lw&R$@#HR<FP<LzDZ>tL}}no5E`eX&f8J
zr`af!bCokR|G}05BMTC_s==+Z&-0g~jx$l5Rfc>}*cskpJ=yolL0Px>-1qJZeWW*l
zImAy0JB<&=+`DH((&xyyABBYD_r;>C1-6=YjL>(f?-TG(GNth{a&oRM?MJ)|n$dk4
zNXlo=p6$*4TGFd<y&lV>7X)3}gG6Cym365A);&bj{lzTH@3prQG1{#o(K)y4`Q@R?
zX=|~_tIn(@fP%SiV)AO-7Jf2w&6SVaV`Dzgee*W2hLVcP{3E@=AYkB_w?*WtSDZQZ
z+Bp&?^`JU*yH?pSe(&LI^?ylv0OUu+>({SwFp`E=ZFQ+)c@4q>a7of2vm%z<$4?<4
zV5w2Jgtivmz6JzLy)nN{WokfuYPz$4vaE^<u}Y%wbT&N#O?m+Knw?GXt(Agj_(&RQ
zxl6k*{KSBk#I=e*loaoY9kr_<F#|`~3+T<JfLw|4TXAu5f#k`+<g)7_{!@VH_U+qI
zZR$wM!^6Y9bgrat?d`H06wW8ryPnl*$lJ5)cBNWJAu8J8xQ>uTXPU#+A3ch9x8ZWS
zsd&o7A+NrY^&Lt>gx{~1q<bls(k230l44^b_Yxodey^rd8moS~Rir-fe&=kEub{fx
zVfEQ%vXbIl!ywIv4`1vq52hCvQ>6IpUG}fQt>e=xB@`NWy>##1Jx5qsC_WttLL_&_
zl^$KYcJ19wGkhS$s(0_p$@L|hxe<84P7?(Y(eNW|26C<Vy+?|z5H-R|;UU0mHPAT$
zYpYcEFa0~3WyQdH7ZP$86NjIS>=pKZaUPM$L2|Ba<cJOdRl|ofPT8BnrdFBiloxm<
zJCZ`;pJP0*$a5TPicFYr)NI)?Jmt@{>EbSdbIvw)LHU2}qx>=c7q9KVc!6aRouepV
z8-?EMVVFqdtz=0`B=Q4C+hq-v)2+nVj~w^3Mt(VeEgC74d#3W_=&bSzeSb`L&L>au
zQ>U-`qz%uKEJiHozMWLQS4oqIH51`wPe@Tpi|sMT)KRBcs7T%{j?WZ1V^%%6Yxc;Y
z!WkjVi+hmf5PCDI_&S}>eQa~V<KF@q<QV;$2@m>*=dtc6>|V8u-!9P0^sxzRpL>Bq
zMYSsh8kA0)+Xk8oO2x?WeCovhOo}<}D4cF3!AJrmm1*I-bkR%9Z>_37S;pg(jjoo{
zBQ_4bp+AA_=aj(R?mWh3F!%wT%zp15Lvu&(fU#H+rNce&B%#5{qMZ~0Xt{_{UL9B|
zQh2mLAI>K<Uw~s2=dKF-Oll%ucFni99jA1z=b=!S%fA0hGV~z)rvv1_*o42;fq$fs
z{?BgnKlKT^1XGp*VbGz!dGn^OC^y3?N4uZ}+PxcoXWn?sv>l^;9%yQe%?87k21hIJ
z(aTq?iflv$+1YgfSPCt>S%3uxUO#2v&(rR<yFW+8CoUfEueWYYH-12I0-OypsC55e
z(Up8TvW%MmdN51`T7-Ca+eWL!4u}h<s@q8m;U+YYUMMc0P*B3_)I~xC=YIb-|L7ot
z2OFa}2fV7hdQlG)sK4Uk=F90JT$e?w3>`)m$ILsN3=9i|W^3l>=f(0>k;sEnU$`d4
zxhKay?E@BKbd#fUldc9&$Jo+h-|QkJk*9nyX&gi~`im`GVJ{RJpJ5}WHa*k;RjVg~
z+yPu>rj@9bs5m1D;tD;n7-#F8bN&3b+1Qz@v$HcP{!0Lr3~y(5Jxz3}Ak(08tytbZ
zTN3mZfifR(g85bAy5<9{;vp2RvT`EDj=d3gu9907t%s#u5fT#OYX7#r&q^D~LgiAr
z1!ON|YDlA+Q79D9Yr2bir8Q+h+QBN6mI|gXLJnr=SM1a0VXSLzZq})E=keTMiv%cV
z0+i6@Xl;rM(6M79AaH@pHrLD|#e{1=d)4E{5SAv)tB8le960Mt{-C#`E&7d_uCA3v
z=}|04s}({o_N9mT#FGS5UA(CWu^-Yn5K9w6S$a=pLL!a^DB{{LAdw7lF+=y?<n2r8
zO^(`@gl1ne+vQ$>Fv&HlW&HT@Bf1eqAQ;5l<*ty{Whlisf-thPGJFY^Z~J%WeUW6~
zRjb>Vs5Vf@99jlRU?|Xa(|2{#gWqnX_{}T;o)Ixa-2aAv|If4fKO9<RcdP}9$}$-d
zomgkrruhK8;14=lvzN-NN#mleKeUjMsh9Hmck#C!pZjm^EnjaPWXrsNTUuHX%7;2#
zox#t)iGlx~DgL)_{X)>?^6Nji=CX1QiW7p4u+dR7D}NdBms9oPNIJ?|VNUKgkrS?)
zSw*6NasX)>@_2wkUVUo&@JgVgW>lt?8j_MXj?2f#yhB|AVN9dY;<JC~9kuN8RUgpV
zPXP;~@ur*3M>W^OoF7egx)$wL_Y3gY*s)kE*|7n{z{3fE4_+2+nC3UVVIlPy+Lo}i
zC;ASY03QKRwy8h3wR^kf@;6tJ3z!%>u`ks)ex;UHn5{a0rRQTsY<P%6Z~OV-_>-%$
zC=?4-I5RzQR#Lv8y(sj>Y2B7FJ`kaQBthsSsexI4b+<`fgfSYoB45lGonl8<fBapF
z1(1ivo8<)Y|7;EZhu!*TiuOPC0?=PmtJMq*5ZCla7lc1>;L+jq-Mu<@lGY_pO6^zu
zF<!CHwqWI$f<3MK%`DU-&?MS6=Px+(7iH6|Gf0K)tJ2>WNkYrNmtxIsiyC6^S8Ger
zhX)o~pU+=!?-n3}R6rH}G11&L&U9yEK7(GhkCvuRH_i5lOU<XK+X?f|(!%NbNmv6S
z^Hz^k6l2STvD=sVbI(>@8ePqZ=p5CVF5LEbgQ!f@yNMhol&QMn9HQ<TgXj%^CDFAP
ze-k7AEyVsQF!T58@`9?CdI#8CCtz8J3jlWMx~@-*`!Wy*-!N;VK)4CH8C7{W-4}wm
zzFR>>GUd`GL7k(Ohl!{<m<i|L<+bPU?E9o~!=xcF)*hdXtow3$e{v87aWM3(c=GDB
z5&r>}X7t{WM%*bdtagNc)Lb(TKma6B(gyVe177W(+C^;23o6#VZVYQ<`f`L=pP14H
z1fUWmB#i!YMfW)v$}W3k=!1X=Le&1N7a)!+T@+dde8}4LwGPmDKpy9h*y(+*66?wU
zNZV=B#W_*R2c6!RcN<pS#dz6!yY8{2oV&UjDB9cS&kADQ0TJ$mWv!e(r7P}j7x$}6
zc~o@?f_4q(Ctc?PG|B%nDBnBy!#Rn%F8Eu<Tf82~vZ6(k3TrFj)-*U2^54r1*+E4U
zpmiHFM_ew^R;R#Yrr+<JbCyQ-=W?_Dts}$zj6wlJYn6gafG8|q%w|OJE8j}5VL$r)
z1{TFCo?qF*ZqSVZj(obHh>uj!>9GBhPp2F=)tBS^<%-#@koa^YrVifor;|R^AQhOk
zSy9MCd!%IKjzr!7t_I;|^bW+vh^1{0aoxi-6bfHny+_h^EO}r$T2q`+k()k<JUV?^
z@<qo*=9|_9nO2{<xzeqAp*@2$%ZrNu>jBHFyKT5dDJlu3g*q{I_!igw6Htok6rc_P
zdTKTK?Oq8iJZY%FZs20aldT%K%9%~!hUw3<Z*fxdtA}-7eL6pcMlPzI)jCQ`grEXw
z70|d|o{G{FKc1+1hVYm0+DpyIz}CooAbpiwY2@e{SS$)2nGuu&hCsLArz5kQ#%Lh#
z53Sq~yA>H&FL*o{{t3+f_hJ4YoQvX-S-j9}tMh!}7lXvB_tA6}G}^_g97odU;U?Mo
zWo)9oH~d3?Tv22-u@!OZP`@18sK`jJzC2}p6WuUaVGS)dHp02ccCx}M2L&3fTd3>l
zjXqjsW?>QK${?D`(<=jjg8(+H4y4%-DBs0el^{ZnloX=@7LefKerMY$<=a2RoLU*4
z8UvMe0BZm6qg7T|g}8X}i}&%K^XQdMDM}rYA&h~^IA}LIdjVdJ^kzCmXnG7kRue8Z
zQyVqKs7i)j*T|gu&YmI%L>dAC6pDx@vKd5ypPZ3bSwuDD!LzWuff3lD^QFDK>i!Mq
zlQZtpu#p$V7-PW1qAe2@`RqiH!lC!$8R2J1E1e->a%i21N11n>ThF@`4bfV2^{l;+
z1eXO};5ty(c!&)byGZ!{!#y|~;I()g5d@ply{JT2SCKDNemOXegJ%RhEoon*M-Vkj
zs2m{An1%|Tu8zC}3bn)|9bWpQC6dkw>=tikWj~No@#+tS@i=EfjL-?%TJoO&=dDv_
zpA<;-Jx0(!#cNGO-)FbK{B&>BX+G)cOc+;w9q2NnkL*}kM3?jQzmm@<YCL@%YZYHU
z7pph5e{4d7BYA$}0{CzRI7zhhQ`3_9_M>k(J~M4~rxR*=Rd)ojHvEMh`rtqyk#K=L
zqDKE6*!bF#5d}F{tsH>9a22bA4%NF<K&GSpDxk$CKAnKj1(t7iHd;z0UZ}q~@1yU6
z`|<!0$Z%HuN24#;9GX5@(SkA@2#S(y@4=1?OWMFgb#;?TKMVwK)rJh{ee?y@d$dtZ
zQuZY4eV;CY4<S*&0c9n1w7^;g-x1;8nIJT(U5d6tfW#4CLW5T3fjb1PBJ$1^e;{o!
zvPV(LHy-0)K1ZPK1Hi2TIDh=R<NZQ^4z)rgEmUx9L^%l0{PttQ6qJ;=hpJD0CpZYc
zll)L9I+9b2QROnPLdYmi17-X9ow_qtmbBQx53;!QBF;^|<0UrQ+`2{Bzz&v!yP@#e
zwmG7%@Nuh}rsf;;b!x0G@o;f9cD%oZ7O5U2iBba7*$RqU09*&!pM%&Ku_-VCNegg?
z$La3i=FxJ&sM#tg{;J}e*i<}^un`_hpRzuK4FEncLplkC`nM|+2R)hlQ86BH^Vy$1
z6`n(^%(<-$kpW4oO#6G&!x1F@=^tY2O`!c>NL`c5Bj7Dhtv`uWUf%TBfKzY>vf{+E
z)?{ElJ^<rh4+8GyPOs`8;ro^AT)3I82bf6!)(4WJ6>N+?gB$4__=Jt17{K9af4imR
z8L2#}$*`(Ef{=W+brrU(VZfRIk`G!a-CLUjdsf{a(^D{`Cmtw1vUYZ8ygoifYVx=j
z^G-CQ1aRH>t`HKSy?n_^5qrvuPe9<*NF<bMRO^f8w+o+qCx?E=i+ZPI&@dci9A;8H
zcuNq3E+L>p2>@lx7&!9s%@#TgguJ}G$4n?Yt?m1)cu8g?`nm!tYJn9hgiisq{c7->
zoJ@(|`Pbd!^K`{%1p!(+{?1OJ$uVOclob-$j3!eFQ-C<nR82`1usu6DglMWcebg%e
z8;I-jyQ47p?c2B0U`uJ~Rh3E-fMNj3NBC()c{$CU@$c2DQm3u~i{T(YS*hfuSKp(n
z16n4=$G_@~=Q^F22Bbj_7b`4b8p2X7G1x1jB{)`|dn?x~FWWtg8Kk_(tOhc9RaMo1
zrRqHZohJx9ByxJw0}MgX+UuRZ@1xVA5dIpd-z%`-E0q=><k1_G^=8qzM}SBMua%@9
z>OBf&J~vGtmR2{vEmA{c)GLsU!iSBjk;ILTzRyp{I$Lw>T@%sf(l)<cKiYIHAk^%Q
z(kQazdk$qnE|=3Syez0@RZjEk39Yl!SY~%CiYI%Z_82z=UK|46{4^cZ^`~&w3Xrtg
zDWoj3JkAD#K#7rsiyWsNc}s%Cqh5__{0T6x+n6-Ws^NS0-h()eE2I!GMEUh%1{L{W
z6EZV%2yLB}=Af{4)cUpf5J?Gc9w0JST}zyL)g|tXPru7N%IClb>Qd%|S_~KUuyEBS
z{FlbJ3%6h`fQ?mHPw3rm6i~(vsL$Qup&`r^|FY)_q*vuSV|1(2v-FC+y3M;sU3#Lt
z&BOPIOO&m!JRm|2Km`heXc=l;GKzt$RjNU8VQ_!pqVN#z@1C9le)Z!wg8q}Bgl1@b
zdr7LiHURlD0gpMA(HAp>!P5P*R`fi=<I5n2^`)M*eHuw`j~<?mQu}e>30_k<P(b73
z73WUi0S6iFljEjpL|bk^45vi9O>9cg6<{3VVZ8EbYl1^fD71-n0?Hl95@K8yH_73^
ztU}e`<>ZvfQc2?XK5&en7a=#OaFqt*%A*`Ra0FII(h1G{{2;5;2xcg#0UV#?vkLyd
z8qk+@HOa2W9%In2>aCfsPO0r>)rK_lTPW=Y%JC#;?_U`NYaUBEsV}tx9VhG@<x3m0
zbz_`Gmjm&Ucpkm_TbFnbsQmZ57%b(lM(B>7B{^56ai~#TTfL^x`(ru$K7m-7-1dS%
zE))+?<+=SUa@5eY2RIxFDxa<^fL42?EU0`5gl91{Bdo(66fJp_-JgP`KlvOB7hTY%
z(!zPIcgU+WRn6NnI`%far;9Q4&(FGe;|OBdRTaRsa>J@8gUW%XL@Eq<;kK{9oCld|
z?fsUAOT>O0EQzJ`O&AyM`bm^Hy4x+k=jFvF?ia0W5u+Pain#^;0~%pR<DSn4e%cQ~
zsgD9v#gMNWVDH@lJrH`XqD`OI_t&Lv(^tAJ2Z5&o+>_ikZdcoENmQ1X*1@6FxIFi1
zOHMBDLs}XpEV`AeKJ3Ely@!}};6(@lnPL`l&;5!Qb6^r^0C9{60q%iYk|!Ioh&oWH
ze}dH#e4U5e^AMC{KKtXqTeyEt$PB%F%lryhO#!fE=jSUtdnRK3BQX>lawdJ*>U%^!
z;1iIHpcDF0<6Uyb`&($z`%C@K#mN3w_tHAHwwycSZxc}KJ7PdRz1S<TTBNcn3-7=P
zY85!8s8hVRlmc$j<(z{J!{hgR3u9fX8pv~_La&wj_kZ7|tAk=F3z_U^mMT-C-`Qa~
zILt=-oNxiL<bv1fx`QuR5DRglkCsPDxMI0=U%YsMIp%kMivD8$eU+Z=ZEgH6zaP*`
zcv5I&sWcz$E<1JJ9!#yMpsjRYg|&su{7%A45bS|y2W=G;2X|c{{p&BOia(bRr@}xa
zdoEpvfa$S!IrT&$?f89U9=m0{=Fq@<4&ec(U>3eTKszx+YPTdFvzne>I2?&oFp?0p
z+2)?*8&sP9OqE8P;GRS2_$G-Vf}BiXUFBV{8!f%2I@WY*78=6gCF;Hs0`O5#6s<aW
z{CcHGOStbLUcOS)o{Hj}@Lc9W8^)lyhSj<lM9dHd#SRzt8y7*yAW8xLyaou@4Y-gr
z?E*tcj#m5NXFylH8}2JQULIhZbu|Ed#!uKN8CN&w{ILpY`M5VLhxHP?M=%PtFj~fk
zLZMb*Yp@Uzw6{6uL>_!v;^X5}baJ`@EkTQq2!mCb|83>_M}QdyZrhKQ<5b4m*w}Q#
zsllmj2l(a>EioY$iNp?Rrg8!f0(`r;TDdyUAxO~@?%obqaOF)*nC;7_adwsmNd^tQ
zcwn<I%SP?iYpT)J(SBSMx(tXuuoPk<tgWqorYn+kyt{#gHW&C;a9JcnLB!Gf{V7w`
zGM5<aUZZwpNqbw?xg>Se^8yzFq|u_4^1wN`Uzyq2apCitZ*_^sxK8e99QWwFf3GGN
zukjNfAHPTPXKH5V?_w_7eAqv9yOi14)di+6+wtHV;=)APlEWu$LDA1|FS>Jt`{K^6
z_Ej3iYyKn~c<hpp$elp)7}^`*XGM!Om0a`E;Q}>+DHrcA2aOO<22=S`uW?!g%gDTp
zz7j}3R=!B2IQL+^pX6~xrXK}#s~p_ia!}V}EWGo@bb`L7tU32(HXAX$MCnjGwLg<m
zob#S<cz%%b!@z0s_`Ghyc<HgT@*xld<+YP>h2^#+v2XoGR-6Tp&0FmSEf%+t2NSW%
zozS+K8|+Z(>;EJ}sOjh|EChbMdlfV1L@~-<{<^0)uF;j+;q9{0qN1B<jE44{g!dOZ
zOiH4yZQ$;+Din=pP4H2z)IAQCI>CUf(~|Ub;v(XmkOQN)B$Iu`B3mmZ7$HCQK)D2}
zz`*_1Bh3-S*^j3+0q~w)wTEEjMH{k!py}4l{nNzVI!#X5<AgW$A}s&>nH0Re#YRl<
zad0d;?ll8%X7Qz1ua1C<yAJ$zVF~sX7f~p*&<Yf&9lE|`E0cO=?Fji=-CLf#74QQA
zRS%?cV3``>lwAp|0~3ly`S{v^H68E|s_GP}+vCF3bewD&{k;|J<RzDs4fQgXMSp-E
z2nK=@1utm8D44O+_)f@Y7CvOMtJHf;U96k^Zkm(L1L*~Q)&nnI`V7$ccq?>myz()K
z-FZF2kYDb+@xw1X-~LTKHDylR=l*eg9qo!b0rB@`{_@^u%`$oD+tNBd5>3HzWM7P8
zlfjdW`U{{D0dz>fkjErv7lOYC$oJyE>weUZX4^lgg^;va1;Eq55vvY57=$9&--%ci
zqne<_nE3l1$A#FxLe@XXq;A!H7J8u1LVv-=xUWyxNpT4?_wT$%oeN91)f8i#faXu<
zP;<zJuH_Cs%X-2d8&|;f)cxnpa*&#u#;}Y^jlR1%M!@9(ep>ruUiJdtWaH*$E0Yih
zE4&@ry$c|tccJ`u&@I_h0xPV8(aAGG3i*0yjGQ)`sYknHuR`OXt*-u@*P!AmQ6<<4
zq4#0**-?M+j=!F9;*&-ej;iv#+dhv;Qo-)d1SuEH-29+9AdCXd9;5Rmx>^v!SpcD(
z1_lOzim5q2T_1IegMJ3u-f}Rips_9Z-2^6wdF>EVr#rnmMNdN0=NZV!)VEy$<=4Mu
zN0)HZLYhAV3QhpKZ3Oyg6KV=^f5yFiYXWVNu;&g(rb-e%VlQBwj&2|P4kmMLZ_&dN
zWA;M4l`A*FV>_!|d-V3y){q$+-U(JUvU0tK4qP{P<JWED1pOVp&QXoI_9}w~Y3~->
zSIP%+eWHKM)iF%dpHQ68a|58>gu#tA#u{*p>O0n7AZoL;J!-;Q;AwwBii!5bq7yc-
z>$c++lxST2@N#4%P`IF-UqDm=+DE&s&`<+Bb?g%EF0dT{e|?Vk<T)tr{p~71_pQdE
z04J;z@B|D{A#7X+ov)DI;idwC0mOK8Cqkrr-^bzOQLoS*;^?c(d>WiQp)p6<o`4k$
z0nvPzAVGIwV9DWkT~HfyZs)nofXbDc9M124x(v>$7BFPuAOIP&AMLMCq9P%#MIjiA
z&y6%S1JS{>w>){e_H^$Y0_-==c4mSv3~0Q&Wf66XHsgas$Ft`IR19DUar|*+!4?no
zXk`#4JFEhZmZd5jz$vx2akQP(Njr||yY-!Y^&CvOM)oBw=+PRU13Y51{rVvzKg@gt
zqEMf?+t2)DR8&-Q1fl?LR$B}Bhlhpz1kWeJZ7}xQS<25oyKW#>II0z}gcG9a2!k8Z
z;xM8PxFhiL6J_dFd)`K40SE6{x^ggUE;BkR%k|-a(lq;={ff$0qF;-S&#H87$x0}J
zjZ5SKWT0H}_`VN7Fm%vBvl>XrrIlJ$H702j6|(Taf(9po*T76DU?f%R;?&3cai+sX
zW*j^`&0q+QX<41Dovcyw0@u_~iA@|sU91_p4Mr@jDT%`Qi&z4y0pR&fWm)nr>AmAq
zWff?CLfEqIDgSHt^SeNCFfY=g$56TVO5iuk5m$2RLkmq6H7u4NOIydM{*FSmf1Pg~
zdLz7}+HXMXW2U2R(K{zHw|!{blIT}5ZZCA=>(_J0)CuPh{`N-~osMj!kDJ}}p!eGg
zO|;%bsI0h`aueK-<820pqPt|7+9rH={aqUP^=uF!%}X`5nN}l>9olEqg(deN4h;86
zXi-GtCQsJlFZYgzoa~IED^0{PQ?O0l6k+C77M3HK99s-5w`tU}XMjHsFK-L9oB#(L
zY)6VO2H^UUnWIoMVv~oEysqTK7z-U^IA+@6eiqfHFhDIeJ%WB|@Ppj2#|}_?8M8WB
zK^bAmkJl_P{R^+0G%epj8IUKKI6kO-leTm7x`@`Z-71uOyK#RMarfZ_{A3{$9>*bm
zDT7x(_nG1fZKUAvQxHyeJ<0H2(t4lKadmwHySG}$GZ7Fb>WzPHR!=GS%JI{5+?#w+
zZ>(kin1(obb-xot3Et>zkw+(@Q~$tAN&}3CX7Gl?ggC-&Uz7+N^PPYdIZ!u0W^2Jh
zqGh?sGxaY{6QxGbbpZ01*Cq=)nFc&=g!;C6c|B16zt;uuU&zBCer3OuV^y=})QF;*
zrp0T2K~9{-%UXsNm?>SNl94DEYU6)7$Qt=EvE>D>TJ`1Im3g9<Bd@UKzL|Z@ETj@B
zd%blzEX=!coLreT?G^=AdD6o@+u*GeRgI_u<p*(@gg3UWQjZTew8U{jJlYmb5k1W|
zeNwbH&TlWqkN%c8?bfmtdsa2P?RUMFRO+zjFYZ$CPPqP4-U-WFam?UssGTH1@VhY-
za=$TqRvjX28wXCI_H{)a^(*vm(yeG+YnjxQWtRwi<IQ24!TnS)NYK2F8zsus3M`JV
z6lvd7hB^v0;DZymy=>+q$%IImbp|?Uay__x4kTOP<KeHMTaW(w`$HzB*+1-Ak!hv7
zoB$6Ct^FD`YMtF2s%4ieDt?cklDR@dh>7TX_k}OjK+7&~)&Q+I<KcY3XWt}vml^se
z!g~!9M&HOyzHuB<7ePR`KtM*=u-K(3Kr7Ep6F4fs;4=j}f*n5|5Bc+6ygw1HYl-RR
zLx2+y(wdYjhyf?M-k7x8vd<|2`e&IN^XT~#>;P#UttGmMCk+Cfxx2t5fW%z7crk$#
z!hG^lbn9%nc-rqNUd#V{$mM@SSNabK_x~aU{|_j7mOKXaFad;~SOjqN_~c*{s=&RT
z14m(75|BW2{z1w5cg`?1HMPG4{%19-8B16ii3Hrp%*R(yU;dAoeswz5Y#JJ9ECdAw
z1)2yz(XBZ%uYHyPRlkAXSd?3F&@J0u=z;umM>P=re}e18fLDhYtPdaa9V(LF)?BwQ
zYkY`M?oF*22SD-1as@B7)(8JW*=VG2QLj+hC=t@lU4Xq?NZIA=t!w4DV@}wtv#UYZ
zy-CP{TF2&cM6GjIj})$I<e*(MXgLAkW6xB3;=dQH0D3SWenLt{d#Dlq*^LO5KuvK1
zW-}Tbefu)-4oE#D3&tS4lH;Q>Zr{o!1{6lcDA9c+Lte%Z7qxol=FOXgSZs;sf3bu0
zC-H(|n!_;O^+tYU;jT%Du|nr**9(N%$F|ER^IXP+#-f*sJrJ$4PT&!w0S^HfcCKdu
zF;$T-8^Y(C29%_O?=~F*4Oz_0%*Hn?`_vNxNx|@k`9iwY;sf+=sVIDuBRP-TX}Bg*
zI#gl$*F0~x&^7Q+5UULesUt7cHaf#RtSJ)d*lHRj=?LfGHWK->p(LuzASWk>%vlFV
z?J2P=5=lAZWRY_n9!4UOFjW~fs%c;lx%BSKIv%2LU;u0<K+?fOFbD$=!C&^1TsSE3
z`%iHY(4e{MGpf53ALzoet+y1JwLA7I3w;2+3fL<dn7FHYwvFgZ%0L2Q2l?d+dFWNU
zQ{cQxw0UYSh#S`-a&^CC)^Aw#W?~%7T;)M)Ar}j<{<lTj|CYn`|95<!vsGfee@Jlw
z+yn??YuXNU0u~Pu{gZ%~wwcp7NQv7(29NIwewWF-mP%jgVE<I>DD&j$doi%}xTcWY
z16b3^rwCpipjjJM%auWmP=nA<>B2?2mGUMmB!J^{^cU3fUj3+cFq!HuCj7~`pc=Qj
z9(_McbCA1P@+aF;;KQJ2uhPi?7Z<&I6#-a!us)D#PG9xK=oKI%dYSr;jRF@=OD1e}
z8^+QRn+)>-L+m9GFbQ5x2`Vcx3AY!i(cw#n%S{Qq05*fHt)W#4j1Cm|^+nu@bAK!m
zfjZp3%azfxM5GAGr@L2QzpZ(n`M#v)rObzl^+egw8jN#;%dD^cD^ve7E6D#-JNQre
zAb)aVRC(@NKS&n8yglC)OgdBC3N%285V)284J2cybOpl{P%o`2h?9&Z9*FhHTBg5I
zN;HDDG?K?FUm{uwn9;p8TIPVM?SM=x@SB2x$v!UA3Y`Pn!E~r=1*R?dF>2|A=ezr4
z;zQ(ZE}#3{>9#vOo4U@N-DS5{PrDQ*i*|>93>=d@IscNxe_#r_4M{xuz5tPPa(((?
zmeW2pOx_z9!1^EUECxXDVhkN&`Bod(Em{X%Dln8H5Fp4l0rB}r$oqUggo)$6uEh*4
ztJ$C?^$v666%?1r+E~wtGot*6_(i-nV*6B?w9vB686<Wy-B0b;mvDB+Bt!hpZseZR
zKM(=&ic}`UHpaC41JN06?j_0)zbYOxk@q{wl?&t?XY@M#>zH@djd12T6tp?k>`A9p
znN3?YRI*UkBW4-pCu-iO@b4=PDOt(90fL{-r1?KgGX;|fb7pDVONL>I3_aRpN{o<u
zI5;RbxixN2$hi`6db|Iicqt=YkVqnn<_1@kAA`uR?8KTw2DM+?v*YQ(WD(5|RR%RD
zMW6XB7^#I+_rK-H$+vb-ptw*zlem^0CBJ#r&58!`HGLmgMLnwAkG~W?RCTR*B<>&0
zAQn_&GiVAvX&q>sa7Y*<!1p0EyLk~(CCEgV``@ReL>u#m=)^NcK0qJauouSs3)%F_
zy?@2T1YBZQ5$422psf)o6z99l#q7j8R}k$*;HRU1o4zaxTcVQufPwZsCpS0rOYA*o
z?<`n=qWdG301AQ<$QaE&+hxERmX-=_E5uh+mlN8AEKIL(Re8vwVRrM*pc^#nVw{jR
zp!TMwr8TIF+;Oih12bJ_CR_R<0Rh3~x~uZx>o3-Z3RyuQWmAq1gejDCV5Fc30G(yn
zwuy%3208SI_rgvrY$}PCwR;}o?*#20{p}Hk|2vtQqhaw<gPsyMRr>+PDBKAF3L`r1
zm!M}Qm8o0a73E}SjAo_42hy??jR=uY=_c399U$cZ4Pak3sxFdg#X?WaN{T1UIe%XE
z^z4RR-#L>X)kr|B?iJgP_x3Y)WLwDtaGH5iM+L&Zwea*7eYJXW=j4=?E&R06_J*k7
zrEaN~yN<k=qjyb0jMXg6>09d4$iIBM(`3tijDd|~duh;UaBx4`XN2$NL(ixDG|wc+
z$vyXL=8q4Tsyz!PpcG>Hzj{SR6R8mR^3$=Qu&5}0o>q>iAb1Ib8$XB&vNU}AhL@I}
zo^?%7nl!a{QFBq4o*1M~U^_qcfDT{ozDjFqYO1-25RxkMtY&<aSCN&`b~@J5)O07k
zJ9{a{ghG0oG`tx-R)BH?N_GMK4eEKl-QCh6A|fcakdUIHqU_2_y^<dQ_ZEPMLb*NC
z)3X{ag{Oyvz-=+eme$v`^B$Kx`UKOqB|kv6UI3h?k@vW4bP+_Gt8kf*mSObmBTQC(
z8YmpLeNyrWxxBN#-wPH-&1F(DyYY&*DoLUrAI*aqAPYuYRRUOp-s^hc#hcIsnV4g^
zJ(h5J!=CJcNkGl3nfC=m*m8Z|e$m3h!f$PD5A(1P!^6Y;w2>&chZ-7LW<$b~l8i9_
zqX7@V0IjCP7ztu=agqQ11C-kXwo5l}-qc(UeEHG@bYxU;3dWUNw=O|rj?9aB^Cs}y
zx4ZqKut;efr~wRrv`j21X;>09Y}>N1upl68`tJQ)=^@cO^kx0NB#zw)oId}TIy)o(
zBo%f!^+1j=Fz(gNNk~Z4%%yS6!1z~~D<ZY1h@2|?0>Cmnv$`vP#r7`B0kO|bMPO}X
zBO8`iSxJ}1!NSK!0^#YqTyu700{|E#B-4AUF^kyYx=~vEDb5m+5fOJN<aM~IVD6h^
zV6$gnAc#cjM6Hm$a(vAzTF_x4m$Nh~int0UGD+phpo7-PWfdw5u=?J)dPnr0v)GVt
zY|LoPBFA^Tps#ZszbTD-zk}p-_jQK<GTi;+4r8?9s~>fB2&9(Q>(<#1EiDS7UVFJL
zs<o$kbV<TaFQCot9~|rjL@qP%>S`!V<0;C@%F4+J2n*kZdFHE1<o$hpYO1QyEJ=4H
z-+JO_7Bt1c`|#BqyuiW5rCb(HQW1q=I~Z3Jdm=Sk0uqMw?(S|;Y087F&!7LwH>%CQ
zXCdzF>{S&TKgO7o&Q{jCZt?M}gl^5B3r3FZS=1S_Rn|4zm$CBl^8PwLX<3$2P&it<
z-)CLIPeT|c{xKsX_0y+|T@w5B3JMC2Yhxn1qTSuyAyH8{2>mJ#GW2*^Lqo$~uU<We
z*%Z#6i@!8JWf>pc6UVqCCx?wKt(Mz6HWty*(eYRHgG{q8!*E|2Dp0L73sqEAN#Lds
zlm-Wa!(LZ~%35tcb=nm~#gE~f?0@MQV=TBez~0z_{O#jjT3kHUt;mF|^3l|!I66Kq
zG-<?16m`3|iHwJcV)8q=0UK^2m>?@@Nlq3YAAcn*ZQWSranPIqt@2&j;ODMyZoX&#
zdK6>VJ3bx>j)&BO0=|qFly@yWJZO}Zl#1AOXbLDVUk(Mw2fe5(9yAPbd`4OstV-lK
zI5-<HNY-FoG6QsPm}?6Q`Z}+7u5OCna}oRLtMz)+dHbcwZ~W~FxUYim`RUW9mKM%|
zg_V`SVOs@RS*&EB3X4liQCq)UMNPg88w)06*>Wk7qwm&n+h*XPQ|HOe_vo9Dkdi%m
z^ay<`0eR7Tco`q%q=p26f99j5rTr^0G2+J$6?xIl&Q6cx)iUNV7Dy7ZM-n3M*drCN
zl2oW4O5<fbzWM%&5_!$Z)_vQFs>?h)JgAdz5TK7BK;N;8d?mu3=yG=Py2%jqmEj$A
z8FOeFp3-YlDykshZzqHIP7b#hR#)XcJu6HZD#xQh9L8H+UA_C@LDP>UG1>Ts&Q-DB
zpS)-`eco*;r>;&0vw;#HTi{k3#wCw@dR5i{9o>)R#z3IONWlamRf$~+m`DvscEj#{
zzfv8Oep^65;8Tshs)2z4dj2xC-+B{$Hy&^R5s4Bqa0~JQ#rpYCp7iO1%w169(f17i
z78LHjLR@M)d~@#d#FJ#$RW)Gd0|T+q_bAc$t^RrF*KhYLc|$`w!(SQhvh(t)xZC57
zb~(fMh5NXeztiii;;4fhLg-R?qaZl-a*zp)d49u%KMBShgZIxvw+I|DlIH_GnO1dP
z7<?Za91Jcl7QlOffTk6O4l&?6J#RKuf9%qt=GDKiKaCzIJsi09(RQqy%)ZP^;n<kw
z_xUuYxT4a72Z2}c;FA4^ZG-x)o8NM2pNv2ts65k)c%3B@Id1OFgdPQgI|EF+ihk&~
zMi1#HiajM3Oi*^0dcKpDU|iU7wO9AR%gYNMm9023Br2#qt62H2Kog`+Og$wMHoB@{
zWW==ME;ceUvhh=v#N=>mj)swOujDc#W2{7Xpnl7K_waCNM#fcyQ1~d^a6nUHU`?xu
zpUy|Q^)Yufy|@P{AI$U@FDk<!#(~k?+q0*zHkWwoT;6SLI9dwO(h%Z=q=le0UZ97|
zCcG3B<$(63hN)3PY0|%9W2w{%pkegdUrYLY0z+wX*4CVGmnh!8{{F)}I<J9u0Hq+g
zHMO?Nl439HdY<eK8j)gSKqCral=zv)KlQ9->8YEW3EU6^Dhl+ZJ9N&J*cg-E+eA=1
z&^J-q+uQTM5kwmfiwLV38QF|BMP>Ca4r=@ONWgRc+*7685d-qQPO&8!2r2<E_;EC1
z2w4bi+JbMraWES_3nA1ZwqAt=bv#dtK$_H>1PiZkVAROKfC0wQXdSQCn}3-GnP^*&
z3Z*DgxZo-(r>J<$^O(jQ=l$aM%*$rndZiJtOee9Y;PrYF6Eo|@KuIaj7#&<uQLzAy
zgDY|Ex216rO0VS{sy1;LM4X>AcxLq~ZEkM%_4dlzmnA^0znj&oywG^x-CdA~kdTz@
z)wq4uuU}7CSez@ziy^3`R<pA?Skh9@s*ZT$!e?e?00$&oRRVJ>C%Jq#UlgRG*H=T~
z^Ej?ulXv4boK%dW{{W_g+8U6M@4mh&>U$!5nGoj)#?+NwUqxkSr;<n>)RnC+_2*a_
z8~a05fhwTx?0ge0a(a5&*XM!_fj<lyVo3^snn3D*u|{^6##)RIM&tUryKmHklGRHB
zf!6lqg0Ps_=>CYFTE1cRJ@mb(04aCFSwA5jKv;rl0qkc|7gpv$AKd{H-jQLYetxPv
z7dv}!zW!GjL?jLl0D)XuuAab=-_P(AZt$TYE&bf#E7UCb#zx(YMuBiIji`(AN-EsI
zKBT>QL(#M7O2Npe^77?N-}U!p<KUw?nW^wTya_`W(0q=Jj$TA8x{6LRAs`!WEk8w-
zPVgx`$J6qc-9&!_F!t&DU;a&1FZ;8MOzQ05ah=s!gaRwP%xQo8DS8Ue%F4=@noa`7
z(k(45@jNid$qq9qHN&qe)tt9V2Dowh8DdH_nb=kq)=qk+%-pK6<0#zO+cSlEV@o@`
zmyOeRyu2z?_6vQi1ZZn7o;5Z!co!<Y4g{Y={i5s9SqR6}Nry&B(h3F@Z6wb1>(>t;
z{xI_s+R_u<>pDNNWyLGJF?qN6oM6Mwzj3+_OwPgJu1JT)Fs2Kr_Xn#B2&u-7jz8D^
z4Rmxuz>!J=3gRW=a`P{j(YiGtgFAAdA8G!&Audk;C~qL^)|vH)@mZDR($bRS*~v3f
zGMMY<$~CB@5>4WLLh_+y#!)zRaQVaFGK@IGEd;owrp|Zw;l>VWd3kmX)L}0Ps7+m6
z1u{xCHen!UCdKbe{g*m1bSqd`SRtXI?>B2`f*`A9g@%U*T*2c{=oE%ntEj9bqox-6
zFwR$df(d9Ca@gPQdt}jI#}5OiFk;*c=ETz<d)U%-`;&gr>?z*l;Z!^j5rL+)V8;E{
z(a{7F{NmG6+Aygkm0*~Z5{DZ%0K~AgwME}&Blk=;@)|QU1^`OH77CDFz`}G*YUupg
z8A!)!4<BL%)FY%xKYMJNB7__U@7=w-VGu}}yQ+yMEx}|HCf+s;Ghm?g%}4Av@^>g7
zm=F@W(0ztf>wUDC1v%%|0C?ni0V<e9it-bt)BkG`*dP^vI?>pH32}rj6I4@}9e>~_
pg4!7V9rXS}IpP+Sk`C?-zcF3E{K6w<RrIa>l;l<9@@0%){11c$U*G@$

diff --git a/reference/Rplot009.png b/reference/Rplot009.png
index 23ccfdd54068c42de10d8a2c74467b250756ac9e..b15f8dc1e2e967f8256ca67121cdc7504f444c09 100644
GIT binary patch
literal 8634
zcmd^FXIN9)n%;Co0TmSw(o_^Ff}$V+LKg@eK<OQiAXRz|7~tqZ4kDmbkx&#6=}IR+
z;K)^a=!71S5<(<M4G_w#c<<b2?!9xLnR({d%;m}6A<5n=dw=U&@Atm%m*_hN+MFDG
z91sL?B6Kv3Ac$d_zOl1{cTj`aWbnj#Ur$>TJcGX-jrwr#bi`Z7(hq`;o}_OK{gYvP
z5F`vCG}TOk(aV#e-X@y@)YTr?sBOZe&F_pKJ3NlZ2q!=NxM}w8o=0E7RY`WEpR%m(
zJ}f8+_{Op{GN#b+yvrfLDlc#Iab>p2c?&@SF9))Ts(>2BDsxqgx9<1oiIe4{lk1@e
z-`kas{H7nFk4^8U$<Drl*TaaR1}O~{&bQ9>z=+Hcgh}#(gA0V8U|@xsAqJ^yc-x?i
z;bKb%I4hJbz+B5?p>-`;H#&clLHIDTnC*&YkJ9?{O?D_ksrBML2s$=r8etzox@7xk
z_4BjO_g~BVyxpQqrq@Zm)N$GRHd<I%*iTfZ!uFTUn~Y@Ax@^L`W$}xvtwQ)*M52k6
zRiV%97gqun6|ys*D(gF^li~B_r`^ewFuYqR$=`}wW$(k&V?Vv^=+NE&9;IS}LhZZu
zjIEv8kj2~Nv<im)oG5B&=IUA?_i)7fQ^3J`*5M%dWWdc*L*t3AuI^xOuP_2L8>e_G
zS`$3{|6t*DX-~LhN#vJxOA7op^0E%CBLY51GRRl-KUTgh3QgavRq|QvJ#TJf^DS_B
zZ2qyZH;uXy6m#ZkhmFcFpO~pRLi=q3@Q}eFJib2N6VpEF-NKnhZjBdODJ&|QY!wRs
zW>k=rt{7BWR9x)O4c~a-?&jtj#U<dY5ycg7?v`iQBOJBq5EV4;QB!wOJFeD5d|oho
z&nF1ne%4lT;$?l`BD0c?F4>18*J?tkp1jOz!<&~A5xlWlwjLfHPNV&KdXurYrh+Ft
z(rZFVd8wG8BJ-L$4<h>9_4~ikR>BX{>n27<7Dehz#D^%?UA$BnpnNGW#z%8)C(P~a
zC|rU{!4m=W>q)Rdp-@hv`B`C0B6UxnvJxkp-_Qq?!LLlz4V*rGy3SuA!*VN~u=fSN
zHR6!AjPQ+(jV-AT7`Ak-i&r_=PI3;QY(vu4)sp00tJm<*YT7{7K~mk`XX&uMMjEAF
zv|+!f47)^WSjWlLEZb~BH9^P5#tot7g3ff~-j5bP7nzq0FV_%CkMLY}nQB0S_$7)A
z4GoE%i4o(Ab@C+C2YDg-e`R8m>D=8QCGN=ca}_l-*kBJ2gRb+%iYMzL5|nr5co0UG
zmX-@io+2mvrW!+UjKh;H$7Q^yo8tsoCm*eMV-62!^XLIwhGG>6r>VKQbE$oeXU659
zUu8dg#&P??3DoR4Lhsh{xMIUW%9tXnXnhtG5!YE{t`>jxy1Jp#>Te>XjG(E$55Kfj
zdJ&XO&CCk1SUV62aVe=35do#(I|(Lt@A~MD7Zw+Te_k$;$)~xZ{N&s_r*Ew*m9>!J
z)CoURBcr!eLb!cr%GCks@SV;sqUgyZwt=G$tm*?xaEdERk?Q9g*E%G2XN3-fKW&0n
zva+%dq-q|8)m&_ycHH8DdVP@Vw*IuOWvh?(Z(lz1Qb&`Mlau4I>iqmXpGsH*rH&|g
zDG>qAa>b!xuVo(S7HNML%>m)U+lMz&urx~7Q8br;LN1t>vPnWtx177wL;&74WcpXO
zjb<k9#a(h)kECIqk(-;F(e2xj>Th0btq{s!ehZGa`0dr%D(@L}7PV~63vWUxb)tT@
zp{>~!R30d#yy3|A=3kkHMn>M>&Cx2z&DB)dCmC)oq<e{<+Wn@syEfmMtRpg5X0MU~
z@<#mX)uFeyV+`EWLH^X@U_|~{LAceWOP5|NA<Ij#yGwyWAFFSXNpuX!e6)t3e~O}Q
zbxX#7z8|uX=Dd+y_UJZ9oEuJEz52H%lLBmm2&kHBkMVa22`6oR+b>~246SXmme2Zc
zg)yocF4S!aQW&5JbZ5GDGX!mjFxPTMYpQ1wt9A$zb$;uClTZZZiE%Fkot-{$4WKsr
z-|p6y1WpIT&qCR~=*8}gwad*>+(Kp-UVaeF8JCcdFqTO(ad61lywYZjT`4LrH>#?t
z8qN_0*LodBl<_i-F$Rlv{L#3hff^HZF9P}}J7KRd&Vu*vbs9r9%jpA)izoQSIYjfg
z9gwXjv|s3hoD%U-X=fmK(LQ=kF^|CV{S`dmS~W!Uti=Th0<|ta+xC%kd&Zsj%YzI0
z5l@8gh$qtrI{H|Z<p27|K(1&Sd-;*asyG-$6m~pXbIb<k2jX#7_`kVpOAq?gQDt&`
zF&x`874lq)mn-VV%G065jrbI|-Rbq>Rw#l?Vg%|;93G@pWHQ>$?Kvib0^w~W&%y~s
zFfbnbf3f=&&9V)0{aNcQhJqni`jh(2@I!-xE@PFhR<+)5(0+AeA`mobhGU!n$aU2o
zYh$RgUm3>_dpkB}g)s8)D4{Q@&oR6be6en=aRPri{QV8Hu_AM6fJBJ?Qrr5Qf!{24
zuw~aBzPONwOZaZOybvJ)kTlcRj}>uUn``HT`8wj9bXZB~lA}94R8(?uvSobV)!<Cg
zo^^S<Hn8j@xo_XT{Uz~KDVjBSyxIe^j#JzmDho5s%gaj`TuQ1SB1@#Gqyg<5?f4Xt
z<kVD&w4WCqo?)D*kSF?v9Ev$+62(qNdpEpDUZL&Pcf4E>a*DIg?2JVRO(6mJMA`+<
zuy{;jOfPCZzjJu7U*$Wm%PF8>0;-l#KtRC4md4X#eJ{>yh#=^T#lgV==Y*&eb|$MI
z_~GU^4vgC#5zKG$%?F<^di(amf$hA`O+F7lBrcQbVEPI7srXjefF%=;kq>I1TqbXf
z=1lbW8|h~#n1Z3x27166cFgQdOuZze{Kz6&^MW&3uTItYVBZ%v9JLo1hRj=t!;FMH
z_xyv30zmC#cjZXsr86<@uzXP8$agV~E;q*(a_)t3pM@YM=6~(oc{0OmP-k|+C}D#C
zA)AttEdD;5CJYS-(PJsM7!2|UKzZmG-DUUgIm!I%$>`rU&rYhZb4&0`I~tpqh!FXy
ziTqcjq&)qQKX6Kz-4~<0Az9aOxWNn#nMHT*P#;u&`5!^ge;1<uj~&-$8BqhuR<Kg3
z>%co#KuJqViwX+*DqROEL8XNeeX9_Fn3n*=0qki2RMD#7)%$=Okp>J^l0}Awhuy%^
zvuX(b__psooyQjGGeW%{k-m-U1gh!XyKexs`KM^IiMPim8Y+t+Uc>y}Nny9YqPt%n
z>xWtMuGxcH6GElXtIG^hu=S|r&Vh4$&xM!2uZm3CA7}QE>T!+8@C%uV<OK`$hJ8ay
zJ{sQR9)SGQ?<X*u!`7D&`!uS#hK2^t>3lO>?>IB8@$i&P&$@}3*_Tyyv(KMD`{Kl2
z>R810FGse_$fXh`n*qhwOOfmYQs7jq){Ra;wabzv%-t4y-&j?-B?Cry18-_-T2NT1
zo8Z6weFh!&#<+AjOa9I)v>!-CQ0A<^qq1fr10!300j2FEM^(lc8qT(NKwEJq_2<1-
zMq$3L)&doB5wSFoAFr#YM~4>>#|H)~Oi*tkQp(USW#Xs!i2OZ35=*#umiN|ly9JW#
z@yAcefJj<e769xf-+j?~|0DQHCDWHoeJ+(lX){iHf^@1-&MI#x$j=1b@h)c#22luE
zD#-WWSnMl(%?3pXo_CMHm)VyA?Gk(LmO<0@XX%YTZJ~f68wfg8S<Dcpd0}_B2Ae1A
zKD;<=?KRYuc0)F7FSx|A;$6`K6O=7nMY|wLL=Tr(=i49d;uCV~SFqM)4QtPwaOhD|
z3j=iLeL40-t3y2e9ddnvq)6C_Tj);DufQqjCHMn5(Md&JwfK;&_mmkB7)MTTAhN1}
z*qWWv>ReY6fcfScvw?4U@c_;O5B@$q`?da;7FI;oeu5kX$;(<YJ?gv78{qO2cmcCy
zn%HxixQfig7cenEy*!Sb-|^Tj*+%MAXj-Rrjpq=)>0r}9hy#jHPu;w2(R8@K5&+J2
z{racqHPjE%YwguIWLg0(`2z@4Z?@W4g>$@|*Hp1E`$pTvc=Y!bK1RU0-D}>xxucV#
z6}$Az5`q@5mn*Y1Jm@?FNP7`rmY{y69YRnuseP9{cxkX;mqs`&ooR^*8d3svf!$Jw
zK}g<PwdE-%x$w_tvu<;TZ$HTdjCD4Q7oa^lvp7FH-!Q8bR0D+DW=fL2zJ7+{X$WGG
za*rUB$@Okr5EPQcwGW?u!p0r=SrQC;){?2gV_YtlA7<1TO2tW@yLL}CpPL0zebdP|
zZCT+&s>0j3Z|<#NQ8WeA6$s+69fr#68m&Oqrgh?AKt=`Z-U0KCDP|B<3@lz+T9Qen
zCq=N*6iEZbW3e2|5puA%16YOb<;2(59iEyMTfC`q#|I8Q1g8~))2`i%unXT0@R(|_
zEHKesC-#_&oFo;FLeLcpOC}pr(>zBR<iuJ^ejWqV+zze^T&I&V*JD+^RH^yf77#S2
zIt+zortZ`Nk~#2Be_+%(tE9j<KX4a__fzG8gd;_H;FQAL+}sK$1}M9=4TKl0HQhX;
zgj|1x5=WVWJiXMw_8&(VGfdU`IFQdpl~3_QkpG?Gw<ke1D`*dYGBY!)-f`FI27D)B
z{Z}x1N6J~Zd%_PYfEiE(rr$JSV=mE998e!1=4@ra*^%Pz5#eizSuQ};q!IQTcNWrz
zfKUKzvDvj_*Imas6ZtN1Wh$etA!x;JlQfV&5XA^G`2mW#!KLp4YNykFc!M-BPs5(M
zYLyF6<F66Je*bi|3PlT~M+^s>3|(nl0wUSGn-x<1!;MOP{%Piir||6Av(i^T)+yPq
z84#s`wwD)&>VsCg${Cng{r`Q|GG*OU>_V4i0b+HP12OW~>9lJMsRHJPOlpST9!wpA
ze1+X30IMs)U@%?tn`FF%V0_SD29f^sS|uC{kSL)&*Qx8(o6{0zF3V$8wzB6y?n$^u
z5W;94jR(8ru?A!Xa1R!GvdVNs`v0<CG9P32x5np@nNkhk)qx^<z0C-{xM<0=2l&zw
zDL>2XIJ2!RH}G%NhoSJ5P{IHRim8c7u8v5;4tN_ReGda3j}ICGA>X*-!Ma^qPw7Wd
zCq)rs<qu-Co}cX_J^8KWmq_(x><y==OHcf9!;yPL8WtcPDDRJn$Tg+-*~sG8goyTa
zrC9_<1qczx3L@ICRqDCs1%Sc|lvx}A=U*<Jj7FD8&ok=pP&;APLTlqY^U1Fjm+q6V
zV_5zXOWj;tJ_zQG$7tm|)5>YR+Ox|K0CkaHREZe+eOe7LU}1I{p<6&^krQS>s+)MQ
z)`BWP%nHYf6nGJ^Y4PdHqZRq<q5#4os(zZzPz(y({Beg$Z2wQ>#*0k|da=@=O-YU$
zwvO-1J9+zdf{1j6TxPC2^1*2i&y0af;}@Et-pu9kIRTg>{B|nG0pSonAa=}Ti&U=f
z!@>7ovRv3vZ)4*`keJ}{SlA`N7O0GO`swc?kMefFQvXaU<|Uhf+t8URjZZeW8+Ake
zGaZ8?9O<N5-$LO_ZTSGwJtE*=U3aJqAe(XW-PB2_1Tq1>_q`<{ceKLUeWKO}mVWW4
zjp7<ZG6{GMIQiLQAWb;w5=L|;dnLv%2>xV+wv;g&evZV`kl~!)boxQ3F%Bqq%pP6K
z*l&O06+r;!Kq2`1JzTY3L}-eMc=7<v@ccT;9(W@BWr@wk&TwtOK@Mx~+Sn9(%Rib}
zGvN0APZSHLyj%vTC`1C6kaDr+g_jk}tWqwAT34=!?uzl0$hQ7AJLHq;2Va4|4E<np
zI4<AE?F~bn_E!?b$4Fz}BN8u@TDVn`L;yl*gA(;xA)t_s^7&Z|&|<qUz|x(yc@L?k
ztugn2<tqGwuQ9+)_dnBzzq1?u)n2L(Gu=EI)xr_!d&@vZhxpL8EgZWdaV92XPxSIZ
z{NQ$zpUNG<btOX*=EePj+|4Vt(jjk7l`4=76_=11*N&~dBqH;-8byx&#Tk)L`&s;@
z&fG(k81Ec?EVbkBvDkxL6=|C$wU@hxLq~Y#r9}(a-kB#P>9i&-nTGUd5n-YyCvM0S
z4M?E~Il%0?=h2UUnBf1?JJnR?+IR1?=v?7b<k5LF`590bFYpTRX5es*HH9~wk+v&#
zxmhTn80f!snE`4GeS@27{?EM&v1HwXf&#Jik3=MFyflBJ<mhBe!9=((GE0NnjOSk_
z71DI_*=py-oO{--Y{L$AhyjQDRJ{aBBh}6pwK)VE_Z)+DpH&ujCToO|%})-c0b0<X
z#hYXzafJk?^t{mN)GX;Td^^FAZ}w25wBRGpWp(VT?tO9P$dyZ@B8lzQHS-EPh*3l3
z9Zd=I(!ro6nk{f`-eWLUfaIl!09Vsr;VJ@@Bl(#Zi?sj?=sv34S~sHyfD(WUg(W3b
zf-FeMzx5FcU2cW|KndrnHOx|``<jCV#(<}$!uBOmTd~6YToU|Tom8Zn9F$F5+|X_o
z2>4MUj{uZ|3o_)ul^C_Ozq88+bqO*sK@qbj0J}PN{C~Tf>n1RjmX(<UOb4ag4)j0(
zwgUM^w<y()15u^1G+AE*UO8yT3nmkhz{0KuHCRGQ$_#;M_vu`}+}sumJm1B)F;e|=
z?TIDYYMHy+v+<|nTj`drRs3V6tzHdoU=O)~{?KsFDajw!rm!O%@+E(bksi)gds5u0
zDkvc)c2`NTMvw_f`E*p;<cj761)ltD2IyL|m<#<rrx{-w<Zpg&;dbvx5(CV4ti~&A
zQ>V?Cjf=k*V5$q8b!`y%{&Y9UwO^z=?S?k+lBxv@?)f}!QhhjDej7-H{`l}c2V|x*
zoNLYIIP>sD;rQ-X*EI-x3%9DAy7}nRgztva^GzL=XzgZ}uV_D9U%D5z01)dn9*Ky7
z@_T<U>Z9fF(#7YcRGa&7gFh~S!=B&3_4b5q-AGPJS&A0T>;=|xu{L9`em5Fs47~N-
z{#0x(6C0OByzvKiZw6pM@yR`WRf<^>2UK%3gddtrqSGZq<99#b1(kGDo+XADar94P
zRqg>Rja1zPtvLRItiwIx7aoR1%Cnf5WZk?Z;En_LkL<(2)%1h7{G(Znl;jP^*8zXI
zVUVd!h50PYC9tO6zEuZ(1bc&}_4^+!iaPW8N^DxC(tgg|sy3*M^Xq||vvCW4>*a41
z6gnz;L&Lgep6$fkImYLY*S?(dS_Io56StDL5#eEc>>%g>h3I;bkcC-6;s!z11tx_p
zHQifJRLx;&KaF8L%)>k);)I*8Tv=b}9{4s|LD#4rqvd%+0e}`9ZnvroHid`N^-;Q<
zM}o+tPpbeBG8~cW&onP^JkB1<$<q;eJKvdF6n=QXNAJ2(CJM9#k(z)?57qk2TEU+^
z+(9Y^Q3iiI!gDI-Gib(DdQM`xc7bezah|=VN^dqQZ%;GX`g}euE-j6}S~KB0VI8eZ
z`&OX<HrbGkMKju<uXRflH_%0QA3VtOY}yY5la;aYQ88_{!W}P#qKy;iO~TTKHQjxp
z%AspjW(tirTGODGyLHOUD4p!-{*-5#8tpm07M!v8Dr@m9l<|py<!yEKux$t_5A-SI
zJSP^Nx?c}1g&;hEStFHUP|vNr-E8aq2TK|m=m?O3X`LS}B>gNCtTFxtdievCA#?kH
zK9|A9)i3AhhXY21AslSgw4&_9lYRGhH~m%`)(wg_<;qqH@-ux&{$l`kf<TW0<1t<h
zI&aHB)XaTd4K5m&viQ)PXCy|Qi4wwu?eEsn)!y@NAQP;C{bT*%o?1GszaRM0lVHUd
z>~7~8iP3wB^}vd$7iOOTEwRZRV%ADOX~TzxpHk)z9e+qx-f~a!Xd1_OtoyVDc2x*4
z3FFzXaeTQLuk;nD&l$9z6g%TB?`c*1$jGZYJEJ16jt37Oq;<}C*A8LgIK9_f0el32
zb<j28Nu^9u#@x%`ly%U8o%U>4{US$9N;-nu-6T(T-y)#vz)-v~pRHI5cN~al+8^9u
z(?It>ns^?*Pqv?A;kB6tY7F!|e8IHpfjcp>W}vjKj#j!RCeD4D@m^3tl$MrKYWLl}
zgyI@Kssn^*vK`d~kICvCc}K;C(Kv<|?&!x_YTh^!@O;db1nD^d^mnC0D_7%2zg~$a
zeht=q=l$%;pT_o(nZ$z1%9|Av)P1?b$}B$vZ1~r3yQ^jH<iOI;>-ekATS_an#A@od
z(Hw0dlnH20f@V)I;KTIx@CWl&a@#5*e*iP{^xWX!VA4(xEWe|pgNI^VjdDSb#}(I)
zlD-91JA@TdPfR<WxOeI|{d74}zn-+ILI&>9?9@kxC<<_JxKLqP$|w_i`>YBi5MOVS
zCAxZGzk}Zo7|?$UU|vnrzW$V3sFau)YA{~omFj0e?-`ypw|V0&kFM(mDRc`)tOQ97
z2g$#?M^quW34oRsV8Y@6bY;>8L0`+STBzGfFbh~C<Vaq-Uht*kGrX9p8t(4$652@F
z-RgbZ*5<di>ueZC1}(K<U`hpmZgiEE+`VQ9WFZQ?u^e`w!41#-;|W_$NFR>G9;qHe
zE~&ZcjN{(~T6!qvgB3?q%Pz2e@_;S}{fs4$V|dWovzq)uMQtvRo15DPB-@4U%+IP{
z2MnFwn=5?({!TzZl~nz=@`21li>vX5z-^?PTWms)?)15s05k!niKR+YBg*9rSCnBb
z#i2=SbW3p@UvaUOf01MFIxCb>STe8x1v3MMcZBg+w(;sBugkeV|7_uJ7+dop%jn3|
UoT8r1a|rw)ZX0Nps^5G3Z~ZvVh5!Hn

literal 8489
zcmeHNc{r4N-@h%DlypjzwIeMOPRhPV_I)=Dog^Ylh8PU0Q$li(Bx@x5$U2O*(<veQ
z7RHtsOqOgDV|c&wobx=_`z+V{*ZW-8d%f4=nz_f!{O+Io{{Ftd@AtEaFfr2RVCQ8=
z5QIZlN7D>Jn8q1Tw%zavuD3n`UUpyA*Vcqr_}S2?35A!v-a57z1lf0p@nq^A3E4uB
z<A|=Nx<x?B{78_u#TtF*+kpJw$m?Xahd$qa^WbW|to6vL;OeoGicE8qjm1l;5chZb
z`W{72l4ec)PfcB})m!CQqEM1L`}7i`oPBGfi&l=jetg_t{DRTm*r;b8#D7d4QBEHd
z@>ow)`@|~O98`u?x&Ev<ZA6)-a+)tq-bFTooPuFS5OfPc5JAGy9wIErl`w=SiBjC)
z;ND+YBFKVt9$+TzJ$K?+^R?ewHxZNX!u>2<S>*K4(Lh#2?an0IQ3PSxb!6Py5ogJR
z_Kj_6X}Rd!!Zklyr|6G9o6xOHC1u@V*)zA=V>}=k@@-#s&n#&z{*+<2xv_F~o_S7w
zZLNKxV@UP-*TJj-haf|z_m8?nb5b(Lwx(r^1SON(=1Q6bdu&}&vs+s9a67ayYaEWQ
z+cC7vwfa&we)UVd@!WHFyeSr2Epzje_eZ~N`eNt+e1j5qcXc&U613LPxF<4;uURlV
z$8CO&yQi9*R`4#0hn$M}`l%!zk8ejCWt&C5yV`QSOkilwM&)6|`;h$|Iq&f>N?$=@
zL0;Z1^@CM)K~&=XeLU0nbR}#l?G0zh_yHl6uX7a2NSo}~SI^pS?@4QiPaFAKT3Rmj
z7_0gv8N63s?bN`RmUb&|&Sc^9@|p$Yyc;=$R7f7As`LKoiy_pSg~y5u-r)xXd>EtG
zdd(NQ^(B>OZF7uL=d6lQ3CZriKm5Uy+@31IcDI&dnA0N>t5Y>JG(;*rssFSp*^@Y%
zJ1nERa5B;UvsJOf$h4CpnKaXtHPWy{UnEVvf3J1A*;y*-HdQ@ncrPM%YuDj%jqn52
zD!9!mI*lsiHv)^2B4X|6m~OYeK~7iH#lLv*MxL79S+_Y?P)+gw`e{N>PtRT^xlNqb
zR~#~x7QEa{n$-1)j*c!8q?Gp<VbVi3XZLo@k-C^1h`u*Q*D8EFl&Mv!TN9kst&kt}
zK|6G643;K48t`@mM;-A{sl;rskVaKpy%d>{)A%b!>WK*nH`eC*h%4=i(%9u|ZK;aZ
zetv#&FNs8jgoFgqSe-APV+1cp-R^oE&8Ky9jgm-{<BiTYPFGo`?=(b2XkJP((283f
zbV=8Z3#2ZjDrWOVy(<r*E|4bEJ`{Q!le(s(?SId+dWu{5`}jSd_8U!)1%|3IIr;hd
zJ_E&e1f%%V##Wav-@jV&3}3sf=P_1a_m<+7SBLYig_zA$-3{bfg^;d6?&`;l1}!Q_
zA3c95X#K0HvvW2qe&450xej%Kx^e4^W0Jc0xw&#Ln(_+^Ep&Aw;M*h7S{lg}&P&PI
zw1J7WG~D`NWYgs4(p%07-&r&I7Fo4pL^VP02C3>6s^)f4yF8iyvhWXe+nbb4$l%bA
zYw%85T6#)?5R4<7pp6GWW_I4%wbC%NK0jP>^<AX>Ik;?IUS2NNJDaPsSrLa%&u!Bd
ztrb$O%+2Gkccc|j@HO~8({JBqdU9est0s1j_>bYLW#u3d)i{-w)M`|<lfC+XA_Xnh
z1%96hUxO>7JmB;EAl`9J%FWHq4B{dj`*3|>q+qbjg^V8fJ>qc1l{d`0)H5v3X44iM
zRQ=IGw2U&sVI;8h?%t(ef7IxOc$7FbofV9sG^uWvjAF?GmxXuabsQ^iCYj|u*}ea0
zMvsxA;ndU=s>*vpS9zLI0xonYne*6t-}(Hl3ST|Vi^i?>%?p-P%2Jx2OF2iTVW*Fw
zz2EGb8*2#l#M;^>rG;)|aT~3UR`C1v_LRJ2uX_1K;zG@$ipOxJ;kN*L9>?GkeAVYj
zs{!)xp47Tjq%$6iuY0SEAP0$e<(YRQ8K-}2^w7yRTUIJ=3*}T^HF<;QLppKZ?7UFO
z_?iAv0RQfgkr9%`yts!2;YxO*`{cmAzPYz2K`*<oX=WX=uE<xR2zDFA)FdN#%o;Mo
z&E367Tb)TvOe`KFL3MY#_4!bQW^#i}l6fbB96jFnZ#X=(;q0`PQqS0-d)KWUMN9BT
zpJiiqF0-YW5_>Z=tFP}@Yzo|u%)HLzc&&89a9)ri+Id;)RdS&=5;pmps4If(KX~Q;
z;^7zWaU5-3G|6CYlTthocTyjPCIoNz7^bVB_i>;56(dm?&WdCVvx_&vu)b2~)>RUw
zW47~!Mt)IIf=FL~zuV$y9je?l_E5wx`2__S>aBKBHb`N$XH1B)-pdPCC=@E+=G-aW
z{JgxbU-lmULaTotBUD^uM{t|zd=dB3x%KJnn>|8LMB0)rXhVndbG`8L-c47^rHLp_
z;kkk0^tGcS?6iFXu{t7!+B56jv%bl#8XQZN9>c!W5r0Z)tAsf;CXot-(lw>xzA4@K
zQ?o5%#UD971^4nlc(m`59S^(XsrbEX8|EJ&cgE^*me$rT%Ixemm;gRr-bbfrw_#gk
zcFmYFW|b$WWE~N+nwd&;?C&qKlMY;U<>0-jBW8{7U7C1X;nsH++Rv1yP}Dmg?Up^9
zf)-~J*gd$7Zcvqi+ZA77RZAK=1<Cv!@kU%j?u|mY)!4Y^m#++yUvcosxPD)nh}*_I
zFMwv;^UBa1jYco5UO*7#Br^M#;pEpbVHYGi{dTA*SBl2Ze1kb=oY8e30v~z4q2es9
ztbAGou~4s@<(ouj4vHL#ka5%}lf#&hpVa<y_~~GYU`7%dyG&oI7g}QG86tKn|FW?q
zdcBPnLBAiY)Di#t%F7E!48rvF^ej*)-l5H{<9tIzlkdS}oQ$-90c7k~$uE{>X2QBk
z#+SScy{@vKYJ|R*XK}W6t@?Pm--{)v$#26s?P9vbzt<NBD79~2a;RTym2X-RVU5tt
zY@154Ly$&<Y4?8)j2Ni7GL2SxBr~$#I2{jIkU;d@Se|;Wf+KRDvpG(-x8dB2s1c5!
z!aATSi`!KiL~)Coq0y--J6jlCGY^j<MpL{T#SH)@7of@?H7N3zx=UkJOH<Pqk&*1W
zW`>5*rwpDQAEQc#Yz26X5G?_GC5RL`)S)D6m+p$(fR@dxc>AU+=FfT}CMs&0u7ZP}
z!u@wk9;tb$gLPZ1SDBL1(<<3ecuh)ljEZS}4xnOgc{V2<-zrgK5a-(>nv<KCCt7aH
z=G}3KRXw*O{pvI}Ewk$kZ67w_>C=|K<U-TtsZ-^MOPQ^>L#>T@j*+Es><4k7i>|*~
z;qCJ#-iEvP<y!(YYC+51{PYu41(<hfTwPj5=7IEMDG4?Y^qJuHYLj%;cOR*^lZW=M
z^DLhg6`i1*6%kMVWae7T6bdi`ReCMr`p0K4u1V#gYi{et0cguvUiL9emN5iqSKZTr
zAgkBX#C|256jBN>fgCPhbGFZ*Y%f-H_J{u_Q)-+o$Qu+3W%ceNje(^g+G}UdTyb`G
z_G!-pgc|t7Q!-Yk9Lx2w<6pGuus`_A-?i`KUSa#b`1>M=iSP360KjvB>w_+SQ1I~2
z_aI?{KYE1?6gw6Jxj=_(Ol=N!guF6V*?3tn&5UH^PH}hxWst4^#!+NjrbQSFsqw6t
zmoZF{GX-)qo4<h|XY}Ul_qNLC_)+?26C1X&MP}=13q3%e@WY-pMLppxNQTW6J*bf}
z=X85&fftTq_gv8*Z=^VXQMWrg(cvtlNa*&K#IZw2*wuL1MgZpn@1ywuJ=%#=m5hNO
z%=Ny3zjGaHtj@_N^ELOo=cm`|-J#o7A_yXP9?KFuai8b5>oItvf@R^4){5D5=1(L0
z&8b18S+Oiz0NyQyf|t}6mZ52^RTSgks^H!}P2mprdxg^M&;b+o8Bi;DY@j<^e+{72
z?Y^4`!c|nuB&gt<dwYH;yDeE(jEz}&`}<_1=JMz+1o2g?k&f0BW@NDSM`lDVCYCBa
z4m%|`KVJ_p7$CfAV7%jBz9=)N$#^{9-W+If>&-PqOLIa`xior$(baDNy+KRwgAcSu
zk(~wqhMp+N`heaJW)>tYKAy_8`smn&-p<bBx<w%;oz2b7$ws>nwb)j^@y*Rm{Bsy2
zn5_}Y8L+cWN1y+57B7H+z#mPakz!hRa|)7XHJA{SudwX>g|>k!ZL)TC+chp7X+}cq
z5bQ+R#scf&{>D2jn8Z{Jr1I?Q3kdXWEQ`|5zp?i9^-W0>J2p5pUn~7<z<5?`u`5pu
zP9+%SNMoiAifl?Qxewsy^9SKH6r2{Ybfs>s-)^WDTPBtCXu2&q$L3tWWf@#UIb6ed
z;~l-69&K?iEDE3|e?u+PXkC#1!sKzb@@vh9Mt_0ZV_V++X{DCbbn@g$MmcJio7@jO
zr>F<OXU4M%TJmeuP+bt=^S1z(wm+iI764&wxh56&@}^7y08yZZzRdvTxXNJms#{JJ
zKJDdEepoP*(ab~k2%?}p`kR%NRpo}0PTK(i1+LA%W(fdx(;EN9{&~Wfgl^z;lFJhv
zk&6&ZiDL&KR0*<;s+(Og<*;m|j_pyOR&m~+t}q(PxX2X!{7b;`mWuuhAJK3_1laKd
zf5u&qNz%T`#BsAb5vJO|QC|!k+HI;O0WHmkAeY6w!a5Wem4J1jlV!c0VvI1;A5CxE
zxMAJ48&T_WqmmzGcICD!P|jIeSopqEf^=rXI<hcI_xnf3vVam!Kjjcqs`_(rIF<@+
z%T}k8z0UGRPd}X>EX(=Z7ju0D(%$2ZBxf>z=;MP(*ugIxO91vPtgRDkYD4IOC*zy{
z%m}KX&B}C}xm1#cLTdlVqzk~a*o)9Ll?B&f0bHjzmQ;5(jQ@FwMek{5b(!pZ*HHNI
zpi+WM1^R%M)pcbp!Z<cfslzE$ApE0PXo9{pDyA#@?oK`FXzP06j(%N0lJMc22SlSW
zFWNQC=;skEIaTjeyuxDb$|ZqU;<LV}Kg;7m1|GP3+ysXMaL*`=XT`;xLk0GDO<|S~
z2)q`|(swT0^V)3CI8V}ezhA;%T0TT7<V&nJ0}qR`J%sA;a|_@2VlY|p`FW=YK<v2y
zCGG$!Xl@Q-e{OC88S+>rCTy{eI!bD?tGqc|`ZI#ehz{*vB2{BBLg}H~8)%vRuvagS
z4gjcABg;*@H`1t!iHkJ$yT_@w${4BK><x)mAj6{MJ+2nbFK-st+Yq`#YHEWL(zg*0
zyWn@2@3DX)G4KF_1adjB{67aI05m*-NJBQk;~;Ah-mX5lnt?fX?c@F+&(p8LjC6Y3
z=N`8?_liL@BE|5o6}6R>Rv=*XWnPYg9cY0@3;Z$c@^20=773n#{~A{SZE&A_A078H
z_Jp=uV;Iv!+Yi??fLx@Lv5+ejf?0M;N-=c5l<qVaWoDv|ORxw3;JfQD_I%e7H<k|q
zDB%P1js{F}=$b)2l@3@M?-Wc#sORbz4?j7uyv=ub-MYzH$+$M4ALH9Mpp~;Hpff`q
zRqd1gfKv!>SzwiypMTbWr0Uk>MNg8PZa45_Kd5${g0ho$*S&tpjBUHFf!pS~0Q<t$
zws~9OfWyIuPUC5B<ass+w1i_#&T%WcVRIMn8l8#{oJz31=r?D9+xpfN_cDaOnfH&B
z#5PyEvGu9AJ7%L|z@fmsxK8FHqo3JL{)ck>cgDrw9kwEeVi&`ybhW?Lr6Vy-MSp{s
z#go4-D^Y&vysR+kK5642_KblIL36raslrSuV`T_E&QQcUx7vW?%00(OtQJQ*?W()N
z{58e=AnOY}r?URDj`XxJdf%-y%;%$3WHuViqx@O=|D=}i4+@87;U47NWy+XE;lvTj
zd7}NKVBW_-HkLe<oh*Y{Y`+r{$M#d8(&_5LwSzNK?SaVg@PD6tGZTkMI@a6w<QNa!
z-L>ya3MG;uYh?HZhPk`DSNJbFh@;ANK<xxfl1l#-ifpZpi>lhcE(Oj~#~8Aq%DR$d
zdD9x#DDcgc4=blXlKF{yRLHKz*2>xn%8h?+`(=H}x|e%|f=%Ksy0r5%w6_<^p8fJ|
z{L(VzYcF1NJUs0?mzN_*rQZ!mxEpZew81ZzdJ8&qu-Q#JN;eF)W9-eH7@tkPYwe}5
zZc8?wPBkLXZSe7qPv~FEI?8>f^l-G{vHs<$R*)vLe}4NwHxBxkOmc#V^u>$(7#&}G
z&}RTm^?mvf%I%u`KSBO8u{!(}wLOk33n06+w6;on3|(YkG$U30osF2|pm^~{w@|Sf
zGDrq_X7$AQV}*dF3{V}RV+v|Fx^ika&agcWd+T(Y724Qit^XBe!sMq=&Z_!)2SY={
zekb1`4i1h;O=0j7`m-|BfRnTAIgsl$RuAvO1XO};(#Uz%#SZ;hzCm??Yi3G<s&3df
ztVbuFDF;<b)Gl2@W7?z{C*n3|a{vYel2iQ)K}HN(?b1FH_3om3|2c|jBzH~*=qj+c
zkqP2VX4FOB857ERlSWX9fX=QRJ>v~$r3wFVs4Gcs7Y7o?WTgIwp%Ve{ut_k;U;yo(
z3M0X6aZ*0S-U}dV6$B}pm^;iBUSldJ<8=*F6)ekKI{Kl67iphGrHo4+0yxn1sl;jR
zt<bhf8re4H9y1T?oi(;IS1!1;_YO2{`!To?FpN7Oop~vnnSN%g(n-NiCo%4z{PsMm
z-f5S&*>p#Gv8eeg*KeQS5x;+qDryo%vBEH)7SYXS<B&|Ch|2WUo*@8tYdQ!q56F{Y
zYog=;Ps8`i^TULWz?96(VNp6j#vcA~!ne=T`Uc>%{z+u!)nC{$ae+uF2VszME0VjI
zi6^4MeZZ|fMLzE3d8hX?IjZ!$Z<+|P2DEz7_~tVSdU@sLy)fh3KPcos?Q1oreUpm{
z)>c-Lgh1qeIFglnP3jnc&>7><&7NB$#f621eN%^{tv;3L=k%PW+ccq?z=9|O=H~DE
z_yjfP{$$dNqT%IeHg*msEmJIQp5WJGC_6h5E~J9rxf%1Q7u=DMOAXyCnv4FzM(ZU~
zNe1Cw$%}k<@IFcx%Ke7%TO>q4J<QaCK^TJ;s<pvd>U}D1heGp2y;~(T&<*eH=IDNQ
z-l_aX&new*wEsvpKz|*POaKzc*-!%F@2;L_$QF!Iuy7SlO$Qj<4K(xyiH5CZEA3eE
zMFM<in5JY4#2OM7Mesy>;w0<8X98;~gv)ba=!5mk3B|c!wh)2S#B5q-GL#DjC1D8i
zMU{C|PSL#5dL=dnp#3o{oW9;(UlMI0VBHuhQ~gGp7sJ}Kw!d|Md#yOM0%hDfANB5P
z6Y0STFR{EfKZ5kzl1iEl!K1q2aYaW=1!tJiM3}ItogGD@`pY4(CHZ7Meao)5x%t(J
z5CXnkO>Db9qAi5`(hi0q$qxt;*kYuq($Z3rv#w`z+)0V#HX_4n0%3x>KI~O<Q-%U+
z&Ugr&;wa?TU~p;@?1ypiaO$im9u8w=9V(R4!9rNSg<f-Gzu`&`%;3#_ar>%HAOlu}
zRMpV>)@xD=lQF8dS$6ODp7q_#J(dimmEhVXEDLm9hLD~8qsD_OAVdPx?PeGX=A9n^
zH$QL-M{4|Q0EiK9$^`YUR}eU~M`gx{F<bmo!wZ$3!?i-o^DDtLgpH3$t1AFt&Pe1D
zu@p@EF7@#T`;UF*<>SK)=)0|@`#@>LBxZHF7WfGq8=sEh1ji8u#MO+nrz(yB_6h2x
zgXK96M&K(M@{=d~+JSkEh!aS0H4<#hkiGq9P1=OO6r|Qul?m9D>8$HpE9pC5A%ONg
z(OPJ5scK+hhe=PL4zYV{uXlhJoFW3>V0J{Ri9}*nWpSN{+;ZhcKkf_p%-C&$-|#g3
zSFd!iRn$Jo?TXGEPwBbGsRDZ=5Av?N+YCS`rO(>Y!>{IPF_V_Cz>Z;I8+Ap=n4tzt
z)h`k@a_A|TWx7)+wxSkaG+fPH>_|u%T&c}+7#^)~PfQE=yqBSm<yq(@%XpZ{B+oZm
z2^5{6odyf|J)f5aNB|4z7$ZowCeo|m;m+ks0bBpF_`!u>+LmVeiN<fjjc3^5%x-W*
zGjGZy(_(6fL=?m63SSs2c2w;f7zmf?06VY3XR77)&YAbQrdg|>qa@vE>+@g@&UR;S
zwpiC^x?X%<)8@Fn%p*^RKbghj5TNe({Wl&|(TM~-QNb87c%&LpUW5y>dni7yAgN|)
zMRzlVIqFzw!&@(3cQ3x@Q+CwY^sM0F)Wwy-Slj{MUCfU%mwrENJOhTWYsJl_@i(9Y
zY=Uz=RJW5AqmuvgiL7rS2!hlx{ukiwgNneO_U4D0!hv8RNC&Oo1pTfu@UWGBm#f9j
z_a;>am4+m*TkX~d8|~+UVbFZH=`>1y0lpj1@NJ7T4><T<ftF%(<j4__^SS|+8wGBk
zfNO<a13Nuc5c}l^m;tH;2fy4;i}c~)2iLn?SD#T-mN8GfYF2P6ilrTQ@Qp%FNN3)V
xg2#cd6M*Op06?WiW;tefure(Fe>m)L9!QFaap^k{0XKr^UN+LiU%GPlzW}`b#u@+s

diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index 2f64a9ca..49475d4b 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 6e6b0343..6bdf4753 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 8e888594..b3616cba 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 8ae16a42..53c6c2a4 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 93d67b1b..f278f911 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 c6fac191..68e12af9 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 a7ccf0e8..44fc94d1 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -222,16 +222,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  1989-09-05  33  33.79452         10</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1978-12-23  44  44.49589         21</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1982-12-24  40  40.49315         17</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1958-08-14  64  64.85479         41</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1968-12-14  54  54.52055         31</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1992-02-12  31  31.35616          7</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1988-05-22  35  35.08493         11</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1950-02-15  73  73.34795         49</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1937-05-17  86  86.09863         62</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1965-11-25  57  57.57260         34</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1944-06-04  79  79.04932         55</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1932-01-18  91  91.42466         67</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1974-11-03  48  48.63288         25</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1971-01-22  52  52.41370         28</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1973-07-19  49  49.92603         26</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1963-12-30  59  59.47671         36</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1978-04-03  45  45.21918         21</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1969-06-15  54  54.01918         30</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1954-03-07  69  69.29315         45</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1961-04-09  62  62.20274         38</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 0ca528c7..b297515e 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 1607c322..f971087d 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 a54412bf..063e87d9 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -627,9 +627,9 @@ 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>   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> R     </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;">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> S     </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>
 <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>
diff --git a/reference/antibiotics.html b/reference/antibiotics.html
index 446ce60a..262d9cee 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 70cfbd0a..a76f7caa 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 7f118bcb..99788220 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 fda38f5d..abb25acc 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 a8e0acb1..b62d5fe6 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 1b8a91e2..7be1f653 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 2dffa528..88d8810b 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -563,16 +563,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-06-22 <span style="color: #949494;">13:16:45</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-06-22 <span style="color: #949494;">13:16:45</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-06-22 <span style="color: #949494;">13:16:44</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-06-22 <span style="color: #949494;">13:16:43</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-06-22 <span style="color: #949494;">13:16:36</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-06-22 <span style="color: #949494;">13:16:36</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-06-22 <span style="color: #949494;">13:16:36</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-06-22 <span style="color: #949494;">13:16:36</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-06-22 <span style="color: #949494;">13:16:36</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-06-22 <span style="color: #949494;">13:16:36</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-06-22 <span style="color: #949494;">13:31:26</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-06-22 <span style="color: #949494;">13:31:26</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-06-22 <span style="color: #949494;">13:31:25</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-06-22 <span style="color: #949494;">13:31:24</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-06-22 <span style="color: #949494;">13:31:17</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-06-22 <span style="color: #949494;">13:31:17</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-06-22 <span style="color: #949494;">13:31:17</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-06-22 <span style="color: #949494;">13:31:17</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-06-22 <span style="color: #949494;">13:31:17</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-06-22 <span style="color: #949494;">13:31:17</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 1183831c..c91a00e1 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 6f2a8683..d1394dc1 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 851a2556..8eac1bf8 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 24ff8b71..03a379bd 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 7fbd24ff..2ab8fca7 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 e0abf22b..be515ceb 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 02a32d78..f7d49cc2 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 5fd7b67d..1438255d 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 009a926d..cd213abb 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 e480ba38..59aad1cc 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 dc4a055c..a7674f0f 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 d769f107..a5d2e54b 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 7ca9b946..0077ef0d 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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/g.test.html b/reference/g.test.html
index b2a6e6eb..e7e4206e 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 5589b938..4cfb28fa 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -263,29 +263,29 @@
 <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] 12 24 43 42 22 36 23 19  6 36 30 18  2 25 41 27 13 45 31 16  4  6 21 29 18</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 10 29 30 35 28  9  2 14 31 38 24 20 33 37 35 33  9 46 23  1 44 30  2 48  3</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 41 17 31 40 36 40 17 43 42 38  8 36 40  3 47 29 34 37 10 43  6  7 22 32 10</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 31 12 14 34 39  1 35 42 45 26 11 38  5 15  3 28 39 45  8 15  9  7  1 41 32</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  5 22  7  8 28 45 31  3 19  5 27 37 13 24 37 43  6  6 30 47 16 31 43  1 49</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [26]  4 10 41 35 24  7 13 13 32  6 10 42  1  6 48 28 26 39  7 25 44 12 43 40 40</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [51]  8 40 17 24 47 34 14  7 21  4 33  1 38 41 41 39  3  3 33 29 21 35 15 36 10</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 35 24 44 29 44 37 46 37 11 45  9 18  5 26 20  5 38 41  2  7  8 23 38 17 50</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 FALSE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [25] FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [37]  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [49]  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [61]  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [85]  TRUE  TRUE FALSE  TRUE  TRUE FALSE FALSE FALSE 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 FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [37]  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [49]  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [61]  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [73]  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [97]  TRUE FALSE FALSE  TRUE</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: 3 × 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-12-13 285137     78 F      ICU       B_ESCHR_COLI R     NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-11-11 D80753     74 F      Outpatie… B_STPHY_CONS R     NA    R     R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> 2003-01-08 783073     83 M      Clinical  B_STPHY_CONS R     NA    S     NA   </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> 2003-01-14 553529     89 F      Clinical B_ESCHR_COLI R     NA    NA    NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-11-16 762305     87 F      Clinical B_PROTS_MRBL R     NA    NA    NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> 2002-12-13 285137     78 F      ICU      B_ESCHR_COLI R     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>
@@ -322,16 +322,16 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [98]</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> 005088  2007-08-22 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 008268  2007-02-20 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 097186  2015-10-28 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 0C0688  2014-09-05 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 0DBB93  2009-05-08 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 0E2483  2007-05-29 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 0F9638  2014-09-22 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 12CB58  2017-09-23 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 1343BD  2016-04-02 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 141061  2014-10-22 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 001213  2009-08-03 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 011307  2011-09-20 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 021648  2004-08-21 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 022060  2004-05-04 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 022060  2004-05-04 C         FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 066895  2002-02-27 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 067927  2002-02-14 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 078381  2014-07-17 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 082622  2014-02-08 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 0DBF93  2015-10-12 A         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>
@@ -345,19 +345,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 [95]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [96]</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 2007-08-22 005088          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> ICU      2007-02-20 008268          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical 2015-10-28 097186          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2014-09-05 0C0688          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2009-05-08 0DBB93          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Clinical 2007-05-29 0E2483          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical 2014-09-22 0F9638          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> ICU      2017-09-23 12CB58          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2016-04-02 1343BD          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: #BCBCBC;"> 1</span> Clinical 2009-08-03 001213          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Clinical 2011-09-20 011307          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical 2004-08-21 021648          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> ICU      2004-05-04 022060          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> ICU      2004-05-04 022060          1 FALSE      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Clinical 2002-02-27 066895          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> ICU      2002-02-14 067927          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> ICU      2014-07-17 078381          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> ICU      2014-02-08 082622          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2015-10-12 0DBF93          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>
@@ -373,9 +373,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           67             13            41            51</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                23             10            19            21</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          5              5             5             5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           62             13            35            44</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                30             11            23            27</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          4              4             4             4</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>
@@ -404,19 +404,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>    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> 838694  B_ACNTB      Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 699321  B_STPHY_CONS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> C6F894  B_STPHY_EPDR Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> D10538  B_ESCHR_COLI ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 164466  B_STPHY_CONS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 0C0688  B_ESCHR_COLI Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 317826  B_ESCHR_COLI ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 195736  B_STPHY_AURS Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 288260  B_STPHY_EPDR ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 141061  B_STPHY_HMNS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [97]</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> 82C90B  B_STPHY_EPDR  Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 3281D6  B_CRYNB       Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 136315  B_STRPT_MITS  Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 022060  B_ENTRBC_CLOC ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> A22120  B_STRPT_MITS  Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> D41749  B_ESCHR_COLI  Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> B26873  B_ESCHR_COLI  Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 553529  B_ESCHR_COLI  Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> C58675  B_STPHY_AURS  Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 8E5544  B_STRPT_PNMN  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 6c50516e..747a9581 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 3fa552e1..7c0f2827 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 3e64d59c..e4cc8c2c 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 c60f3261..16671390 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 3e50456e..01968d84 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 a206c274..8fe360a2 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 3394f872..ebd03b6a 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 e4ac08d1..83456b11 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 90bd2f5b..aa5fd2dd 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -199,9 +199,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] 2.980956</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 3.028521</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.02318823</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.03512151</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 271f1494..61ba771b 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 e38b800e..c3110116 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 134150e8..f4577c05 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -218,30 +218,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] I R I I R R R I R I</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] R I S R R I I S I 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.449138 -0.621059 -0.621059  1.449138  1.449138 -0.621059 -0.621059</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [8] -0.621059 -0.621059 -0.621059</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] 256   0.01  4     64    8     1     1     0.002 0.125 256  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.5    64     128    2      64     0.5    4      16     &lt;=0.01 64    </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]  1.2331707 -1.2886091  0.1999266  0.8887560  0.3721339 -0.1444882</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.1444882 -1.6884622 -0.6611102  1.2331707</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.76841729  0.84415551  1.07452305 -0.30768220  0.84415551 -0.76841729</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.07731466  0.38342042 -2.06857856  0.84415551</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]  1.2331707 -1.2886091  0.1999266  0.8887560  0.3721339 -0.1444882</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.1444882 -1.6884622 -0.6611102  1.2331707</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.76841729  0.84415551  1.07452305 -0.30768220  0.84415551 -0.76841729</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.07731466  0.38342042 -2.06857856  0.84415551</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] 25  6 45 23 39 45 20 49  8 43</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 33 13 32 20 13 17 12 43 11 48</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] -0.3319640 -1.5220235  0.9207303 -0.4572334  0.5449220  0.9207303</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.6451375  1.1712691 -1.3967541  0.7954608</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.6399929 -0.8145365  0.5672665 -0.3054512 -0.8145365 -0.5236306</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.8872630  1.3672577 -0.9599894  1.7308900</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>
@@ -251,22 +251,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    R   27     1    0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    R   29     1    0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    I   19 &lt;=0.5      4</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    I   27     1 &lt;=0.25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    S   30 &lt;=0.5      4</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    I   22     1      1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    I   26     1      1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    R   22     1      2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    I   21     4    0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    R   29     1 &lt;=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    S   29    2     4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    R   18    1     1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    S   22    1     1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    I   22    2 &lt;=0.5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    S   29    4     1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    S   19    2     2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    R   19    2 &lt;=0.5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    R   23    4     4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    S   22    2     4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    R   31    1     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.27087972  0.39969323 -0.52646026 -0.38265093  0.18201405 -0.36586924</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.10824222  0.28766141  0.01268871  0.23028550</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.43964438 -0.43272533 -0.70168251 -0.57585273  0.35248847 -0.31125566</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.25310412  0.93983415  0.06310433  0.47954902</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>
@@ -282,17 +282,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    I   19 &lt;=0.5      4  -0.52646026  0.0000000</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   D    I   27     1 &lt;=0.25  -0.38265093  0.1438093</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   F    I   22     1      1  -0.36586924  0.1605910</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   G    I   26     1      1  -0.10824222  0.4182180</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   I    I   21     4    0.5   0.01268871  0.5391490</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   E    S   30 &lt;=0.5      4   0.18201405  0.7084743</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   J    R   29     1 &lt;=0.25   0.23028550  0.7567458</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   A    R   27     1    0.5   0.27087972  0.7973400</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   H    R   22     1      2   0.28766141  0.8141217</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  B    R   29     1    0.5   0.39969323  0.9261535</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    S   22    1     1  -0.70168251  0.0000000</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   D    I   22    2 &lt;=0.5  -0.57585273  0.1258298</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   B    R   18    1     1  -0.43272533  0.2689572</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   F    S   19    2     2  -0.31125566  0.3904268</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   G    R   19    2 &lt;=0.5  -0.25310412  0.4485784</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   I    S   22    2     4   0.06310433  0.7647868</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   E    S   29    4     1   0.35248847  1.0541710</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   A    S   29    2     4   0.43964438  1.1413269</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   J    R   31    1     2   0.47954902  1.1812315</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  H    R   23    4     4   0.93983415  1.6415167</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 9f767790..63fe948f 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 9ba8f18f..eee2bbe2 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 5bd4b61d..d7832728 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 5d0b0f96..86df8076 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 987a5b06..f1902f30 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 66be5f9e..3f638043 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 41822bb83a17c54abfb5f2438825f7f56462a66b..29a234e438823bf21ada842a724672ded5204f78 100644
GIT binary patch
literal 25819
zcmeFZ2UwHY*Do5oj)PccM5*JS0D}ss2uOFvf{~_DLN6kqgrZ;wEeVQ(4ow5niwe>L
zgx-=65CubvEd&TjP@0AkiXn!O<h+Uh|M$&3_nhaPd!PHA=icw0_jw@6`>yQ0_G-Vi
z*52^&l8uGTPx3#3Kp+{&g|k;cpe+#~(59=~w*q(Q8P67hm#tSVEzSb3z{Nj<M*}ZA
zZeDN>1A&whBtIKcr<Qy{px;1{vwzq}<jpZ634#9ZGXe^koCn(B{nLuc=9)bUXFFq+
zwrq$i@eS>meS6*W?7Lx`DriIPuR(|OPc>9s{qWOI%%;ne)XjMZRDV0W!FT)9-*)fL
zPPk_!5Y@8B><s5BO!FEM^YB%HFsh0c8BpbKIty*Ib+Bm{l>7fG<?Vm}`j3%7M}rUo
zry9{;V~_r&Gd{B!WHq#e)duED@$P|YRMw-3$jX$$eV}8`JymT#SZK27*eQ8;?D9qr
z$!qMxy^9+qZ>-XDD>r~T2KhM-av)Ggtu;VrMebyas89#lvIUoXQ@XgE-9^P$AnZe`
znEKJ{<ysyyt5n)xHC)UdqTU(#9#ST1iy{ZEHx@;h%^F_HcSR!L9&i_KGj#<!<5=i?
zb1)98;ppj{?@Yw6)w7!`3{=jUHdiP+BfkdXgSuvgoop%<TOsG5V*D3uu7S9k6Wo(5
zFJhu2;ViZX^((apORDg26kdk&wP}qXcG(*QN8nh*Pm#cnX=EZhiJcQqLWcx>ZzWW=
z6|ar`#Aa9<^O<8+6c=EDUMi7pXD-z?CC?wqC3Fk1h+ywAS*R@QW!U#bb_KjC(Z9zw
zm+O3+c%%Y%>S}+kW60>!LGv=3(LeJYc-7hruQC4oeVId(!Sq?&*TTR{tn<Mi7W?iE
zh!jONpX7cqo|+p%n?dz9-^pDn+BqoBj0fFfA{vOibr)^}JKcKd+xsm(>-@W-ZTn3U
zuoZ=)<1RW*H<>Vf=UE$)0b-(lKfvR#KZ-D)V3NB-DFs&$_RECl*!10EsLm-d1)HYe
z_at~aikF*=_z-_EFV}G9Nzj65XODvzo{Q`9$8HP$EblW4u;v)ob!L~n_*NQRvDLk?
zbJ${5Z)de&%sMan>7h67oOQ8(zQ|(VVzmP&<a>7THRBDO=P<LNIG7N(Wri3Ww-P=<
zZ2eH!2yoM3cAJ-?eRKHt+o!6%Gp62oOjuJNDwt%R^PYs!M~@DmZ+stJi*9n7poLsw
z-H9K$Zy|7r`MQ;M@Ph~1x>;dSw6=dXixqA(j(l}@)`PygLTBaN&OvvWQ|R~w3k86K
zkdXD?P|cf|jEInhZ~j`qlr^?Om)UJQ#Kce7FB&KBscci&*rroa@R3WpDt@Fkfu`ME
zYOWWqZ>9KNKG2#UWbFA2#o5X=^(MEXFXw+aM(4M%ZDe$vXtM$``=d;?UItN=6Ra^V
zj4z5&Hdb0Ja6+Ow8&zsMTjjJ)ad7*;ng6ngD)v6VB9!-=RE}b)Kp9WHvy(|K$5vgq
z0}3DY{5k}73T`k!NWlaH#M%!fl`>g!TX(4hZkN{&4d<SrW@?>6`E^xxo$Dkg%D=?K
z$#jydDp*eM(N%2|m?-_9R6R}c%v&<Ecr)KP5lqG)Yi-S0JW+wB?*4p~jb7Q($hfIL
z6g5LA=K7yjW_@l9&~aHdO1hy#Drw}7FMivfP@2%Bf(xd7>X<KPYs;W%=JdgB1P4;f
z(<WcoP8HVYnbpRfgZxqUvmjLD<4m0c;yRf@CEal$S*E&?8jEOV<{I;zC2l`wm-uIT
zbLvS^+WsVxqbcrnXE#O1kRzAr7UFy$()o-RqL}0wI_Sb3hYv=MVMH_9WkDlW)4s4Q
zW=N-DF27B5V09Vh;wrl<Qwy?4j`u=j+hGgoPbmi$#y%U#G2YG|+5e4Hk(_BTQW=&3
zh;KLP=(uo6CSWX}1Fygt$QM;^0oYirJ*O*bZ}x7Qc=x?$iw{mOW=rJbG=)FQxr2h3
zM1KYCovJGB<9VezhBMYX2U}lb!U}4}^AI{;#P7EVWer=BXHJ$7*K>x3;=1}W+-3-B
zH0S%xji`K9-Ba<3+&6Uh1HJr)ad{XuE+fwXP@#{)$CkgzVeaWb40Q*{>xoCbm$<&d
z*5IBB$xe8>3)&h&ofajBT}kvm)86E5I&`kOQsmWHyANBhe@m!J4DA%5ok9n3+QZ^^
zYBPDYgY9W9goaltItQ`wBe5LUn{#&*^6(!V`9R!yD5L8`TY0A6ew-dGu-&;TUNjQe
zl(*mdLoC*}F?4VzP7W)bCk&pTC7&7!ZZ|-%0n-}x7RCJxnuC*CJC}_0`wztUb*&Y0
zaMjmaj=x1_<{=W*di3`dYyBh(YdQ4JF^1qh|B-ui=YAdc8u6&wOeK#)^2NQbSMWQc
zLl4G}kLkFdSg>*B!rGMlbqrTu#*d^&lU1~a(VY0j5GGXXi(pmXL!~*M_T5aTufhcP
zDLz02h^H!i-mS;<z|TfL2Xx071H5S)<j_Wtu@wLZb8wx&unlhs`+z7O61W{^>sm^A
z4*wIjU0XktkMZftKsZtAW}1)Iti8D_bQKyf>u8@_;^BdrL5WB4pT>Uh(udj=Lcc#7
zLY=8#dEA_<wJ<^T-bE$)ZBPky<1%EPt-qk+>{%aoUt(5zx2E$+iQ6)h;JsUEqlw`w
z#8x{XFm>$O2S8RdLyszSUFUvEj`8iX>KYi^fjW{gP%_4DG;5w5t{aIh^sGVS))hD(
zfAtVJA+32i{#wK0I3<)y-n-A-IJtq1)t~gxm%H}v^3jT`RmiyC-)IuS(3&M0@Yp~o
zs@WjEv;|Z$zE8&BLYpU7K?XJ+{5n#`Q=yPot|m-fkK#vVAoEcpYs6V+E|g>5`gxXf
z&w*4zubrE@+3b$J3KKQ0br=ak92oE+)W^GFg&&rG6Gd07G<%Nr=CuF{4)U&Kph6a2
zNha&sOaOJHufw_SGWC?;ce~HV_;W2~V3FD@jTR=Nx0rU>k+WK|E}?V8+*4>B=T(<=
zdi=pi`bft8@t9}6<_SFw2L9)(9nA6L!_5Ptb=jRMIypkuE^+DlOU#7%Xw49JM}2#O
zXi$kXna2p7#`tL1&jfl`IuH$d)&Y+U&x(};Wj$|<S2#*6@!mf!YtOsxl(u3D_#S0X
zDlTxz1@HN88F#PH-ZZ$g7VAn#nf2iE_b0qh3{H9d-Hi2_L~5=WWW081`pnxuCuYVw
z6J`g#te@sitNAc1ypas<`c3YN4B8*}b*;WpE?>8)F`l;;wa`9ENC;dq!lFV_mVo#)
zcWi?W=;l%Wg~X8229L%1!1!_9Ohv)N{b(5h)TO<9)}!%DW5iWg(yjM5s1!waL&4Ao
z;5jRZ5c6gSH8lx3SQ0~sS~3#YVnx?F4Q*lk6Y~CAhO5hJJ<2VU!^5KBPEkUWNWNLa
z;AnJ>L-Z1{l?tQ=UfXs=Y=|W;2r6*FD+cOqD|dw)H-FYjX41;MjPAaW51(*)EJ9TH
znGXCLT+s7w;un6EidEq;<ED4XMHMz7-`VRuSdC=pX#4VA_UM+L!N9D6NN;%GF0rfV
zd;B<$j^*jyE5*-~jt-+Uw+K9IIwK05L+ASB=16~VjTMrNOK94|Xty)lk-sOIJ0Wjz
z4XE=?xAGZLAq$f~KrvP5(q%=$R(Rr+Js3^i>Z8x}AhPxbRqfG32;#i=&TjNFCakH=
zy`eKKl6!YW6hk)j#7{;Uc-|a*XgL_!i-93$Fe}WV-J-FlT{yuGnGN4*CpW`Zgw0V!
zt@Dzk!Ls=>Ya-JPrb~CQ>}G0iQwZMPl)Wapxo;wWc=v6cD3qsb{)yS>D_x;mGDB`M
zd^>sJC>zgK@(g}t9&TCP__x?ze&$)%yTHumhz$BI>T6ZEi7J^tKAea)O)`1AyFGc2
z<Bo`J^c}lo?J4e|#N;N2%>)M^SK(^q+=(tu)Hh_VuNG!1Dj1KOIw5Z+a)ppY^N@@!
z1pE?n?5jjq2~N*9fKCm$Q+NNawKgh%%iLi-S2!2ceFUo$)N<&3dX+<JIVzHRe=ZCr
z)2CH=wfuh3(wOx(egqeqtH|kbiBWyUUH9PHxqd-6R0k~$?5C~NvF~Q+nAg7fg_)}$
zjdf>%Sf|+M@xEqy$~^Ebht1BF4}RNlnH8y0)m|NSfjbiPv02XD6&V7ju(|Y8;sF^?
zmPf<t;oLBHZW>hyYfgU|DF@|^KK@I8^$r^&v$pP*OWN`236-dTx>NT!u|lIk@aZ#F
zKDZ)$YO4@c6m_l3e;|B*iZ|_N4%-l`baTA|0PEq7G==tXByS{~6aRKLTn6?>!O-H9
z@l=OQy`xVSOQ}aHWJ8u*aQVr|p7`-ql#Fgz2xIZrud)W4kDwWg4ztbr{guZ1g~+Zj
zl5<y1j;A9M0#A*nt@p+so5`2ye5WRZ>$8Afo;yCLB0rQ#ymjW$_bD0kglN67Q?nB?
zp7Y`l@wi12LeEzuMwJ|zbG?Q&_(O1(J03r?u0@Tc8p_m9u^fplYlTX?_Ct@~nVOO*
zJeOJ}3hJVK`Nn2YRU9Zc#uQTLKSqZc0ILE}|G#&|`cUskYmW9B{m)J!8N8lHG$__*
z_?EPk0ZNqlJ^w0EfH3u+=^8HFRoMnIx|Hvh@1j&$U1bJ!cdn|ckyLO%4R`Y?06b|_
zmj1n##3lo%xdZYBeC($HNdg7(nqFrYx+t@?N6nl}jq0nV@(rinVK=)fkE1Hq7Uw9w
zLXSry1PL(+KRwfix)2=+_XaGsq5Y=g!krOOSVif{erCS8I2(UOPeRpUhQL;<44O55
z@(Xai<;L}~ND9O6fo+yN^HMS&`E+R&ni^W^KbXwbwJ?;FD<F`<ckHf&x@ME!+F&Dt
zq1=?vqte^@i`l?!pE1Sxw@%RHV^Z2<-aeaCjvA=E3Wm=!R0qU_YT#QE>ez?-78eN6
z!A4GGx(~yrT3At}D6LUrWnwI7o(8;EK`CK>a@$&K+oRLj((#?XOtSylwXHtW5yAR=
z08zz!%cZeQ;jiQ+a){kwRKwo5`Y^#Bed|>_x~u?7Y+t*?eaL3BzXLVmeyR`~Qn?WG
zs@2oZoe(x9t$vSj_E7bd3hv|c=SSJ^@b0Ii)4=_>g%y<MMlW6kd!{0H4n>yS?(pz^
z7*9R*%-fx@&4E|BV9zM=CNhs;W$iN^LU10Yf|ZIV_L8;@XwG?~hyH{abzjBA`2({J
z>{TklQGD_x(8f9TtEYo$DD_;@q$>5Cj6u4`q&_uGUcJtWL8XQ`aGc<WfF94%-IU<@
zac+~i9ZLa5bL0?{#T>Rnuw39`OkwS|0L8Fq=2nUv$no=c2e}R~fU!C3@$EiHBs{ol
z?=L_xRhZ|(oo9*W^Fw<zvDLnG57BZaV#GI-I>$eHD}dTMQ$Qy!z;Q}ASSew~l=Jn4
z4)R9OddvndwatXU?r5xk^2wnfg^f(ud3jk7NPTL3g~CbF9dv>pq_3tR2osk&@R~d#
z2O0gbNVzfY*ZE2)X^olyG!}-_HWNOq#O}i7$B+;2lp3d_WrwjTuF@u}kpTt<lN13H
zj_#5-z)DrerB<EwJCFbXSI1fBIK)i8>2k!Mk&@3(_bx8P^TNNET$g+T6&+UqRtFg6
z^Zs#$dkC)DxcB(r!J^&Lduy8s#+-R7(SKgx2vwYlfclcRNgn)Wd2%kElm}z^Ih>Px
z2K6X!;0#7H+yu%;uu>a1HN8Co!E~J-6-W6x{2);TNCZ8ttF73>KS)+v$fJV-d+xBa
zAZJgvapb+@62e%Y*jNN&z4L*OyTNBC$(@dS&HzpUm)CP3wUb=?)c)%=0$GRTf%?V&
zZb#-vxcmR^5Jo8KmSa0gp|Syap4-Q~S7+|*>D~zP8eMQ__(^PkfGU8xZwA$fw?~X5
zi5-zEZ+w{1lS?2_Rt8@G-t(TnQtkbrwCc9qATRWu#kzweS4Nr9sh3W?vS3dl;vNt^
zva0K`!8hX+Zl^|%`A{1bpBNB6$y8NUF&aLJagwCEdN1%jo%|r5ma;VwJ54ot8=xD;
zr(K9IUv1HA6@8};%Oby=!B6MF9No79?T1#fyhJG-XaDnS=ieHC|Dk5aVTOmoqu^fD
z`x3c=qEi7+$#-zSBs|S+VXM!6GjuYojY7lEalf*2*e|H9csq3o-LWk_xVBj2<V*I!
z**Ww@Zl$x}72AO-O#Kq(#;qAyHKsN@(B>~Zk<fNr%j(1%7kpg%6ih`|DeJ++7d;Ow
zD1Y5SwN15`W(>!?H!|}PQQW!K9!^y|ZjH%yuSZg<7Mz6mkqM{+;)YZ8Cogy@n=;+~
z{bBr+vSid)q*VugrM<cfx8hoX*WcVua?7_PRvQ&Xy>lx>f7mVZFrYI()R=TB%yc8|
zrF^ujk24}Y4QQxPICX3StKhfn$cSE@;pvUp&tISoa!o_sBy?UXp=pizyw_p#mNY|A
zhN?2jo9whQgI;>+VeC^$I)W+(h&t?*DuL|a!JbMzEAXb24Uz@SwyydQ8KS24q?$Kh
ztK_#gkA|Of<$WB{pGLn5HkU@8nh))*YxC@T4ss{%o?-13H9E*`R5S&`7{1LYa>(rM
zqHA5GMSRID*BQqN7M09b#LwKid9OAF7NJc00n~FD3HBO_r*1yow5`PWAtETKs<E*#
zPKGDmv-tA(X+R`QXC%22>BxPon!@_>phr3sJ+-~TTF^S8AD>vk!7&Zq0~iOYfoT&K
zUn=w8SX8$q1x3F;;_=Q_{LL2E_OsX7p)-ug%>G7|_Q9o<l!)~*HJ<^o+$5J?y<H-q
zQ|gjXEY5+6UEq|~9z<1vE==4!Qb-99a^WFNF3D&q!RJ>gsa0AmVuo0^)=`NJ;101(
zslHU>3I+ZCZeoph72VFi2VLC83KVp*Rj>;E-TbrMQv4ND$s9HQ5|D9+nm%u9=(@9}
zG@at<YFgd)e65Mir#_^9$V}pYkIyZT#%Mv-K>~hafNEM{P+c$1iyvuqAVGx*Y7=hM
znq8dNsx&FYSUm!$X7Z_|>cO&LH)P$~7b9W8Wg&`tkNpSr29;hxs`MB;_CacqfFL&(
zW(D=dJe{&UDPadBDQtkttK$F1fbky@l2Sb38?0XPsdn-+avKo^!pQFJJ{v$iO&X4@
z7WO~RFY8d#{LmXg9oHo}k59$QdF2&-)zobu#pnVTMgRa)UsACwclaI<NYPb7f^Z-?
zC@FeZYB;bi5#ay`#rn`YD@x6{<&4F612?!9eRX}toMh0xl&m*MdI18BM@hc+gnHz>
z{OtNjAxwfniW5NI6%8M9_OAk51ONSVBGetoFnW#|IB$|z!M|rh|L?$|<X;!fNNwT=
z6H*(kxl_Aw!~%-LYUA3Q+m<d&NRy+Qj$z&45Jyw&+I8-8c3=3o6iGoRJ-$a}vTsml
zrdN^f+);KRw$$D~`L?9n4+6>Sj3YyUA}6_GrNTVlINXtINhR5%ub5tcH7gx-&edmI
z70n*)frNL3%E;+&#wVE6MNtD;vW^By{59zyf^M6^V&Mh&W%vrPUBwwtGOk~H9Y3Yu
z;bPii)DkDz$^euX7VcAiZ??j~o@LLd0i4`4tVhLB=*z8TTU5Bt{b?<wN^7RWKB3y8
zg5fjqPZ3NRY$-GoimM*1+BN5QOG;r^N8iBNp;S;SFwgiF?Zy3ztwmJ|CmfbMjNLI>
z70XMJsSh*%P&2*I8rI`sXWC#?-saEEYxUt(YGVhP`6r|zEb-CU#I&pEaRBzx7&Yw+
z59@sjv8c8-IQJ=git0dRL0Qg>>Zp}UPN%b{bmHkGrA6hk_Oi9)_>nde>)1}-BbuY9
z9iwcmoV{shccdq`thGlj$xTB--7%?T{{EEz$^IeX!+7V`mFh}V?HY$_9^~E68)ys(
zwWmtCP>k#TDMH-(X=}iW2d$>zWuYT9#HYWpNK0D2j63N&c0|8%kg12GiL;arhPI`y
zl$E2$96JQ@Y=3NKBXOiHk#PMLkct6Uil)yNf~?{VMd>H~uPu_Y9=JMIll0<vUffA%
z!9Hr3K_t@vYLMNCe$nPv93>@4i3GmLt3urv5<S$)L#(h5)~|X(aR<wPAh8eA$?{~L
zIZb5ldW!S8b+zbxg|uGq@;m_B$~iMV${BqbDLzIEFKU{_U+(&OW)n4`!nV3e%7+*3
zAV9>J9xY_NjD+?#QVy19Xc}Kap5ZRUHzu(z6OluxXzl~*6Un|hXig8{#J|502lQ}Y
zVe<;f_I(~<SGey-R_D}&yBx*%H8j?^I&3|dYAGM=WiUjMk$fwwruObjbOEfe;r@zE
z77QIw?6R7pgH_h2Guw(;6bDblt9BAjwD17QauL3{{zLd_dVqAvZUSv!QM<zCN%G|x
zL_d`Cedy6IVOVy;w6Zt=4!|F<^I1;S8Bh|Buq*#rjjLa;jO9&*&8xT!&+ZhCy9s<%
zsdY4yh-zW`7NoK{4RwoaD)Be>%RrX3Eli+ndJzuFaaH{Gud@IE%N^GMpBCX-SNDyM
z4RnaCx$a@9=nx6t_`yb;)7u%?^r(5$wMvyj7+TnLMCyzwJ9<)24)#=(I*2KAOO_R-
zP?8h!+k<w4>ULZdd#v5xUggIk@;_~I7k7sy#4Nc9>ePIQ{?$TUYDt+^TNqa+d1dDv
z!GOr**1g*C>q4wPZ)dsYcc(7v12{LJ>J6kj%cQB<IKvOAwv<Hukx1&?3hKB3SSf6K
zgo+~rz53n4pFTxpInwm*X*L^uCKxou46#1~8_Lg}1(j@7Afb$`MshK=)%mc($aHwn
zYjm};@p9Hol8JI)k9clTu;R2>p27$@1De|==P14<3GilA16<p7AdoY%HgKp^s6ELM
z*)t}p_oqjp@M|Pj<p3K-pRwX^rj=_9_?p`lB()NGmCN7aGeFte9+S@2pE1|#KWYY4
zCNp~dpON(KKArE{ys7+|Le|&P!gjVx(>xc4MsiR*JZv=vlvSzVh$LsmKoG=PcLO%w
zA345B<;xRXj4z+F7bsbPjhCvninYP`7Y9YcO62Gsq?xPG@yzb^)yFuJoRG7NWwr2}
zeU9p%@?~Xg*ERyLlG)%@i63Z0td!hFLxry{__%-Ey{P?DtvAh7w3N!3tCtfh2XF-6
zO3jhKk8c@2usG!@nsUF{xdp53L)UJd#GH{7-gvLd+)AadK~%en5B_v5fBLf?+Z*V6
zcn944;;4^7xu~+Oa}Uzv5)nPrUgllJR8_jZeNdJk_it8Nx{(=K802I#zU&-La>fo8
zM#qTbX`eNz2kVhggRztIXQ-{zo!DGTe%J?gq>QD>$K6{w(?3fOB6!J;CdXz*g>kFG
zQf;xQ^0kPrz!}f$+e6Sm^AUOb%y9I%Grx-{RD;1mVq26~m-Vc~@nVsIb9xcZa|n4q
zW_#Hz>*nW$`XEycm8I`O83WB|mJw1C=VFoFKQkFzIqE>gPHbxMCj#$eKbv@lJE&A9
zZ8T*)&CltK4u@y5hmfC+e)KJ<*PWWvEDULRJgVb>s93OL6t#uHd*^@#>9Yl2>I-U*
z;}uQG^fjf)N{gagHcjDW@BFar2F@WE74N4YdDM}S+<LZ4)&V`V+V!K&(d1QmkbtN{
zc`q!PL(T1kaPHUmkqQYdC`sbb(bJ<i>|j;3{Ea~A&7tE%du3#EVQ7n&(g9+X41j=v
zZ(TLEkl!bvh*bmp!u%AiJ-qn1G@LtK1%^qT87)mcDJ`NvmPr6^hg2gMF8KU_=vPh~
zIG#|k&yZ+<{qb@4k0=VDIkN(=8*g|b+nP$WP?RnpR#g#z5S^@K_~_gcqrw2Hg7ff1
zhNn%$bY0*|8B|;W=GQ5+aq<^uQ@hT$NdqV-tlRBJCL8O1a_DEKLej}yQtI530BG<Z
zcS||-N;~>adiUSYp~%A?#;fMrnU+M|gmc*GBccy8Yh%?$w}w#A#-=m>1o5=)T@jRu
z0#DQ1`;aP5rXfQpd+z7QKibQuN+c2=koWsMn1C;IdN00DweX+!hi*GB-E;<xXG!Gu
z)O+i~!TKIKXmjOYWwpo6K|SgRzj?X?Po-Siri?{;147)OwClP~m9n#Y`@<Cx#Z7Sc
zae$QXVL4#QBzU!Ol09l&z_SgT-<E7IwV{r72`D~lU43Dp=;|8E{55P|ko31l(Sp|1
zCv?S$$vtf8!iNnc%G0HpwE&Qj10x}dU8MI{?*rPfoF4U8x;59PHp944Egb#(<evI8
z)T{l2(VyJ}YO2&9TGav6-0oE^>}P*#?Md`oEU-h0-BkYBOWO}TL=~@5>Q@g^b1R~c
zeu<9ZerFGa3A8KCOt1V%!vrs#HiS@Z;Sov<ygk|z*<u8*rU1!+BZ>AYw-!i}`c#Lc
z>#xyCI=BcVHN{b@W9_+0?`8<Qw&5K}E~X7_;jfJTxq#!Fm=#zo2Md(ff!rndT1@q!
zVWI`sv>rH^23*6>ClJ@i&}FEYru?xQZ4PiUV$KC7%@n*g8~?gEh_73FtL-K&sk}T7
zMnC*vSK$x;)u-rodHyL8yGb=^rDRX{k0B*$@r33ddwI&|-Ye-X!Cf_Z=^OO`!0l|W
zhj}lNsd5fLR^`>iA=zi9*l#nQ_|9fZ;3zlwSa-1DB}SD|5cPi2_$XVe-h4yKuiGl{
z(9-I*M|<4th>gkSrIhO6)|IKbzYq?EZa_VtiudjE=hlwrQ%faXECq!l<H*ka0`X05
zKbuT#hMIdKZx_29VBw&w<5B=(+I&x88$jJ(JwVk*eXd9Z9e9^k;pqY2qq;W5j?Pph
zS#t}z1w48MvZgHv#ow-Iyzp`NU&=>V>B1g%3U&0aS&-Kz?3&6wsc-?AM<Khc$S_BH
z**;>W_f}5lp6)hy*HNZy>aigkd>GZ)KcAW$5;NgIs|$j<-8#oXiv<$=NjZe5ZX;U<
zzt8qBXqA9deW5T=Wqo`bY=ZKY?$}d!`#prQ+SJV8zYKqiXL75DhK7Pi7U!!e)oseL
zkH^}L7Sio(z793Fb1Ptmhcn&7od*hRQG2%4%v6PLedEH71NO;DKHM*C9@I%Tk@&QV
z^4??eIa`qXHfesRcFWU{wUQ7QNfX%sy<*@V@##KRdy`j>$!cxt{JT`tw~D^uCK^e^
z6@Ez-eJK&J_=AXr5ejN`mt(_<vS=}Z$EToCRA12C13XK(U^;P-0(7J;rU)y8u%Llg
z?y==gT&M-}I1Sa``y;$&J$2YdfKnPs0sn05TD`5<#N0PMT3S^p&2(dTxWGFEv4Hdb
zvlr}j*YV&Yvpwq5*o3*;WhJR0rQKe?FtILRkE^dKN$PuF?xR*A)PZF7Hz(rMw~3<K
zTyF)zJ-D_1=C+PNT+*oUEDQD^M%{-?2eW$bq#HrG;e_(mt*$WhK(@Ikd|mrtxPw59
z#-Ep$+JCII%hX<JiV0HO@~`Ij|EVPOVO*QvK)v(0+hr1?q^u$t#_Nj2Bb@V(y?08S
zyB+(p<lZsOj2{j3tg>3aMY9s``1wo+bCYJV12qxLbAVBUuom{7hP0XNdX$776xa!{
zqT<k8E}EHJf&s;fic={^$I%~3fo+cxBe_SY(SOUtAI7IuSYj3ILvCyjrtL(?wi4FZ
z>|`K$W!abhAA)2H8|daeq*8NF&5Sy;<nMk8Ir#V3%NlGH`|X?|`c@0Me~)kl#<cc;
zoipybG|^xGCR$*XGa*AwPa1FA0_pd$zpDZ^GddIWiLi~*=&ASj`zte};-a=C^}*K5
zTtaIP$^7pRIZ&|)tne}sYeeE^x}R!~`d&$Ku1BiiQ2!pFCkz(qG=Wo*m7?}TA5H7m
zCfIFkIM8)!WCv3>wV`Taf`B5f_wOvivK~igvel@j{(=;2dtg)5OdWeqeb^63xm%lY
z{nR9pO2py<oicf&K!)i`tXX5nA0+-0_=66FZIz@Jo`X#x<u=&hOG;&C?nu9(A0|>%
zvu^{3&=`N3r)wM|HPu+8|J*;L->{l7P<rLDk5l6mh9*sYo5bH*&6=?`d5x?mzEYeA
zHC>yF<yFS#V*f9Is=?Sjsa3{W%O4pxeS2&ZFKJ{V5$o#c?+6@MoXKI|s9&A05TyPM
z00ptTwl!orrdDdRUPX%itC5`-et`PiPN3vs8A-aP^Xe2qY3pj-zgra$Q{T7=-m9im
zX&G|<YF$PC+oMyc;#<MywD!<kpFER4m3nf-Sff)gbN?s*Y&25<+x0h6e5)MTa%a>p
z?<5VyxzMO+i7GPk9@_t7Lz$)vWLQ8Kl4A6ESWIIgds;)Ohzaprkao+}o1I%fSY1E#
zEmre*)@~#9d&=9j#(z=Vi%D1oZ`c=bVg1rx<&AfCdpx^$`gd8q&D)>F2Xu^&gSJjE
z`?y?U6GtREHCpILJ94AJ`2F<;4sZ4aEydAdChuL0KNtz0?q4`W!JqTxTgq^M<X~s6
z2W;k)VoV6l>yN-8I6i?@eH7jBti3<y%+S(Uz(!Gxn}IWG!H6vdL!;{Q&79~o!n5Xe
z8ibj7BIwMCh|Qd!G?V5lejfV>{>A14FQf7rd&T?Z%cQ{irL3gn`YCgAUv%F#Fy9YD
z|M_>k8hIiurgWKPelaxij5JRM4e!p8@5}}3Ktf4i3k}1=WL{cc<~7d6Y+DUO^{GDt
zEzL3~lVw(Y9NqIL=Z+VKrS&dTbYskXB*DTf?#7AEXzPp1t2m5FDUTEfO*agGEhJfI
zmwX!CDmV_)whF!8dr}6ST{j5d*NA^#$o$kjfRLKempb)*1jxY`QGa66FebWW4%qPK
zx$Glp>t}lNh^6{tqN8n*7vBpISBCh`kQB@134LR|l6{zU=bY^KJ~z(tlI6=1{pRye
zJQrnX@rpD(ZI)}mi9v{aLvA``bg^Q>Oeea8fPQcT1S<Ko6=Ie<x!7d<{!yxW<nn_P
zVgs^I>D$a3rwquOFnJ^47FmRneFRGsX7V+WUZA<M9DFg`A5k>Wh*u?Z)FWLnvg-WT
zVDpQRto9SWlPi_RCgeY4XsysLZY`=A658Bk{O)N2xE0m=dz5|&U8B{Ko`3zVDrPQo
z@_myr&}WRlnVC-cxboRR*Qira3>H{D)A?}I3lj~FMAMbLmvb&IF63W()=WUY_JOJy
zmOcw_o129MXH32V>wFO+T`(5v{NO}k#ROlI{6+ozV!H`>NfQ$6_jVuzwUP%QcM!tI
zz2IB1#?)U&s;}b}`X3af7#+qT=VA1P?lu#k9HgWu8ILXicBJrDi4)O7`1V342(JKZ
zYH7)uNHGqsoFNDpoIz$Z$FyxcDT<2qc%p;m_XQ#1Gy@KIMnl%ZUTgn+q@@!uf%_0<
z_K6%`8JGoGra?T?ulYy2D}2Sovs){kMP)r2$Tje1A$h>yvvoD&$IcdJZ3V?P((8OJ
zOU-R{v{THxM%o1n^sk#a8Cq#Z-i6N8R}cEHwd-K?cd%>?l|);J0(AQ1H!v>{dq!em
zr+FuzjGGec0<$ig($pj2y$v!fo6zeR9ks~l-urhXB%pYJN5N9>GD?QpdO5G)#4Y|3
zBwQmh08@`KIW`dV0~>egJvqHT)4ME`uLx5e$)6m6q+D2joet(}qy+}o+eyah2!sIx
zJprqH)gtMgU#g~#Ko-&_A)0d6r2W|gWn@i|a{lB8$gYd64~B(lErG1>`_l+Vd~KN9
zpuv(6Kz%2l#3F&+X$Db{puy**?|g{VAXB3HicH#`iTdLbF)`2QZKRa-Siqf&FoEt<
z;@q^ca)fk>r+--6{HT#Se$msri(tjGrFikQq+~C_SfS!a@Xr~-j3ckC*%=e+JKLp$
z9gA-SN3aS+Tc}&rBGm3kzoTARt|{+Wk+xYHJ-n3kleMLlL&s6fk6r06zweM%;jt<I
z;~S%OgEOoX<OK&2sr7s|bv+_q_yfp}4dsrTRy{jmxqoPMkA#=l<nCX7Bri&h8G8sC
zxFzX!KIr6it%sv{J*Kp90(JZSC1vY>X72wncmHcBM&E~T`*P0{vOITkC9Wes3eCIm
zRNKqMz;>CGHpd9JkiQv(Awia3G#Q`pL79?$=nH4hXj?s`CDIpwU8|0xY2z<aCelpW
zKN*F*yNT?$PPwq$APF3sFeVN2HvL&7E65}z5eJU+r{@EL%<|n!__!1eF?)0^Y!lp6
zjU1O2(|o5bb}7&j<CAKt&jXHc&=>l0gx`D22PGMMakJUcdM${}sZaOjnpvnIp6`I!
z^5fLW$uwJ=Kp<SlJ_bjWPdo>6U}e>wHju@I;4(8Wt7gKKR+w18BFzU^j)(*tQu?@W
zY*DJ2(KeNsn{<X#Jy1+2SV}GB{LRODQWgJC7|j0~mHcO#MPgnD=-k77bk|vFe(=^v
zHKKG@A0jd%^CA1w^74S#yX!zvN@AMZJG|8U6tXsRzO6$r9F52*jKVh&A_0uM5bA;H
zY5piZQ}eV498o&41LC1Oxl{#V=1&IIT1yp}1Ky_*k_rwfA2Zh_<6b0vHZ>vJVcdqJ
z=Wall`{>f?%l`Pst!3pb(fxOWme~nBJ530q9z)P2C#S_UK&Ovu7DWb0b4jl<tssQg
zrtjR|<t2!==ZpRnu&nL!C>RLiwUBDa@+26q!RVCV1z8?HnRdI~ox_>l$_66QQ&S7I
zR$Bll-?T!^3P!%~+I4LI4kj7z>dV(X)2pQ(>4AaSX}?*01vXAIDdIWhdSp)ClA%Qk
z;%9+a>D6YIF_{sBc>ag%g=J0<VxyPaUP2n8zIWMIuh-n1>;XZU193SYf-;y_kMztu
zvE1_Tax=pA;A?@o%tv5>r=x=(fqRsr1Dk>wqv4)Ib99y{e9&+v4{#%pyK1L#BrU}m
zb)38dvTB?C{L^<Z^o14Uts{olM|9n1a}lx_98zWm2-D^E%N-imen1{9{PRN%ZMBFE
zM&$bhb=;cvWuC^sYp|{L@+YQnMm_Re98wyBr(-vBCXu8%g7^T1o<I2xVn)M@?}E|F
zbZO1@<?+!xLWq4vh{<#q4zm0d%wjXpkeuvo(zGsX6R=QTWACyOZE-zcf=~^9ZBq2;
z-wDXixV3H_2CMXm#^BZX{5AZKCy7!Wozfuhi|)e@U8cN%ETm7S(io}|bMVr>uxP`)
zia{9I)3#{Jxk|rs?40!FG!*h9Z@!(rS!z?KE&lfniO~M<$m3&1lksVdqu|!dIs8Ao
zSX+N|1^>}$X)4wr?*MGuzKbhy?2dTVPD`ayF#iT-K;|R-GzN)rW1f~aglnEb7O(WM
zxWU$^G|6FUc^@tzCEV0_x4x0KzW%p*{vR|~slN7O=CZGGz`1E|xs$zMsG4(Nt#os?
zBPne>zx_TKVZA&KPPGY5IOI#po!kV(vPl>u+?Ifl=;gFO;99h<wDlm2YCwkgHFKVl
zmX|+y56nq@Oq3GzcN%N$gfI&xyAI}!5lzUEL=x8UC|Q6ZXf#RV>+XjyZ$zHMlsYaH
zrcFjdf(x$|rq9=SV$MXN4Y(pS9!#-5NW=rN*28#7S?aU8ws#TByKI;5_6jqLlRgV)
z!KL7lf?1o^nqh&Mmqw_Diq1Xh5g#KzPW!4YVdCwtl8}<ryPS(5oFq5;4AmNwkEG?<
z^I0Lddg)?M_dtLUaprIzx^}S5!|<szarD~cavi@(q2pIbHO-ZocS0Uvno$zgVnl9&
z4>{26Fec^$>%ZN+iJ2`0V?9qk52Sl!Pi_G+4D>1sEp8Ij`9a;`4ui%V0+{cH5y)sp
zWr96fZE)Bw<GGp}w}Y+@o|;HHs;#X~mch84D*j@N8T(e#wX1Ka%C+=;Go)ql<<5Gf
zU=?g=M$S$6Mc4;M$8>Dic8w%l&ArG{_wGqiG8C_`qyhOl3Vz`oP#-=qO#HeD<7QNO
z9itk2yGX&eFGI`jD;?|xY>Krm_Z~@`%!Y_i7v2HoC?e(R+CGS~N%0pVCdQlI6lD1A
z?HS3ee4r`W)X-wv+h89DDDti0UtderBYPe_54o@`a8Lbu1V=a_=XUcC%sL4yt8(QV
z6cZDiYP$O7P=ex#C+*f3)k=6)bzv9Yt)z{OFLudNrU!C0m^euJt8XFd{L(|`Sm~4B
zH_4hD6D;64_G|h(o@9x<FcyGp0x`A}XR8qMqV6Rfo6wFu7K)FpbK8tjbHD*zNp**r
zT!Ju-i@&&HOzLNk69K`v0ZmrOvJOO9xA+TAjenNr6Lss>asRwq-R~KfBWwE7=5#HN
z3l$(tRwyFt?gHw{LW=th?M_$IHn+x<sBZXe3|-%C=7|i=V2AkyjHM3oWTuDF(Zcr!
z%?~Vnr(oP7xl|~}oqw9<>#x=tcs5%F-1>FIztHr#lg3eXK4*_F>Jd28EfgZzYb5io
zFQ0$??JFeQ4aucO4?wI6AAfpSQ%q2|$OBHq*nJs%_3-QL8U&M%51$|PvAMeTElFgu
z5(iEggjjKGmb>=&>bqEpPm!zhjS<1QX<4Gny}u=SqaIC~`4>b^|I(&=tI=oebE3}R
zYdKF7zOps53?RW^5es9jaA35AgF+#98)SjMQYeo3iILp`OUu)Lo|LuFba@tUKOL;_
zdr9`b^MHwOOEal!jwuDRJS^OsEtiSR<sOX5Z6$cJj~&Lf1YDL|lQsD<o}JT>TU_{*
zQ}<$%pm*n5)om|Ku<XuRf%AEdt|qWyz)#5Rc*`s2+mb`CVTc-InKyQSz~+`_wVxsz
z>h%s-T6v~TqE8r=;0lZJXRc=mZk!j7<MpO=-<Xssd@!)Cqg}(F_!aK6_B36WFx?3V
zE$Me%+vCW~m@rs6-nsY9bT!^cZA7gklb$iTKaJCC@0K-5ke>o1#QKdaqru8A{|-4X
zZXxXPkuUr7RdZYaYcQ+d>Xv@izs>@TmO2dQOk$t36)-MvBoP2~;5sGU(=>B$J?moV
z?D5$a2Mo@EJ^X}!pi26;0F`l?@+A{l;6nE$Qem;%qjAy|8yX%w^~*yoO}Tf5C&`R7
zlS4Gq<k>$UW`?Z`(k$l^_fdN5oBgy~c>SrL9!O`g8o2|pv8vOZPzy(>Mf&zmPD^h?
ztlquNsM1_vGmXjfSE}DeOr-Opa2G@Uda0j)<mo<><zDqodi+~T{-5X9_09rFLB?bp
zMEgSMISfvnzXCQ`aKc+tTRkzx;K(Z&nwp^@xw?0LQExSM<h|pZ!AO%6<3NcL*1DVe
zC+1Arx(mkK+Brc*z4at{6$tZ@78r}-N`EC%<8$+(;6kM$(#qAG<37>-?U1<y_a+NW
zeVvK6EUeLDU?hDqE8T}jOLNP(W`X&DSr5aotm;Bs^L-p#)5f%?vV;iD9`;JwoK<Kr
zh60ZC#?Xh#`r6Ih>qU__9!_lR*m{$d9w+$xh>o>m-t;3fO4ugBXO$8mDF=!?`%9Xx
zlE_W3+1<zHoq~+2mF<e!U(i?6bs$A1$Rs1Vv>5Ls(O}$-o}~HX0`*#z@R8Xt2Dcz#
zGiM%?_xK(C`zV+~zGgOYtQ}V(67gSv6MilS<~DWzPDnqc4GP>YYb7*zj3{Z16M{#B
z>TDqOd>SAeMw3%MI_OnEuBTH*u#WuY(tDr1f?oY=4yw`z&mQ+DQ`H&~A&)Un5Be*Z
zlb#gRy+5^s`5G*zVR-$t`zrVA*OxPDJzHXB#$%6)FGYu9j7#(W(V#hXW})|;OwYh|
zyfux#2rjf;mV+o~PdY+Y*;IUn0nE?RwbuM0u;3Wj5y#vVtVKzli1*Dy9Fld-HAHFu
z6`K$fZSsh7yLPj}6@R^F5v9l1PH;y5I!O0fwZ3XT_q+;%%Bc%RKMIXnCV(Tbke5oD
zr2>^akv>y{OsrpbYR}rcvtbqq@hF&trj3E8Oc6Km^N%OXz#4x1@Mv)?&@cS(;XcJO
zWhY3Xqp$=G65I49Bv1)0R~9PM4dR?(2$$LAs>=C+9Ela#)(6!Zsf;F3sa8hSs}S?0
zx~vnFvEQioJ}are&8!YM;uo08KR$>WK4%H3v%>@qu7e|Zean;mHNu-PjEY0AS@>sS
zk>(M~+XJ_ga6U{PSAU@QhuFL<GbjTFb5N2s1m&SA=+hlqI7vJAzEUvym+(fjmLncF
z;G}d-{uW$(Q9({tQ{!2Ldr&u^Ay4)~f_oVD8*SE+C?2r9%X{;UHjyMhm5NIjr|nox
zoOaI>HR0bG&F0XM#Gv}+Nb;=>ht>5qZXFG`UxPB&oqK<e{{v|HSx<@1_*XKThVBOk
z=z6?5JTY9hv^>zeyrGKwJXb%U|1BYMOx8eye<_6jLK9k2sFCTIfuQ|Pa&k7qeriAF
zOta6xIr+P<wBSO1fj8w(Y_z|ycmlWJ;EaMMFBeuEHIM2Z4T8CUDbb%eS9u~OSzagF
zF@wZ%(P_I;)cx~7ZjW%W6%w4kJkitVy3hx9!%Qj=r*grq1CQ!lG3(w_B9e85-N^+T
zNbp-%5e}SLRo@;tMl<-!h&~7`2po|OZLT_sZamK~tcqB0!L^t^45z!uwUrM<?7=4a
z6m|CrkMwb>_<0j{=cnBtU5oC0Lv7ZGbn1O=qyLxl!-Mo9!BCybU|lXaGAM-q7*ZWv
ztCRMv1x#DbAmvORhwQRKvzWSMcRTH$xI2kr;VsNc$*@Itv!U<WBY!piMGhLO5gD@y
zPNBEAKmN!F2ka?q;mpAhCh`77paULFxrG1VCbyCk?g`lYeADXyUgJS*oWzQ(LQyyo
z4C98rFv8Bmbp_MY*8SRY7nLn?CE+La)@qmbaQft|=IqLvgK}Y}VML~4HfFP8qmD<;
z<Yg`H<4*<Y*PxuH(I&y4Igzpj%}8WM|NEI2uWoI?9O&#@HzL%<K$4e_XoQfMKR42c
z+TL0RbtgLcDk^As><4mXp`C4E&gAp0Y=$w}xIXHtKlAn>KmGTsU!Fte6M~|mF!<u6
z-^HF<JYRWK&Lj%LJXPGUsj0duf*&@$>XwTMoM$*j*<rSoxPik=r*C<(ejlovSCj)y
z5A)uOUo1@P71|L;S6wVlSv?1iXCz*J%m4z8Ek3Ar6dBab{w*yD3x%>pJxR)+_*r1|
z<H-e}Nt|sQ{EWwYo4)6gKa}lewfrDnU;-OW0-W9~39mBPcIJwWwTD$`;RfI7pv{~K
z%-jXy9&U(borN*u+5-*$@8R?(%U!Rd`swXvFu$)WS3b9Zj?vn)MSrZzolkcU{bS0|
zAn#dtX{$EI@4w>aFD%r7Ej-;D6K6e~F*)(1jWQThn6H<3+^+FmlLgHxz&x<;PYk7`
zaPz@y1$zk^#UyQG%z8K`&Th5-e){D#o^@#Gi!quV>VdbuR&ibm8heywA(uw*N`?;t
z+#~|rU;qfn6Wm<ewulGZC$ylwv7p=V;eU%8>mC5A(hkGhbq3Jy#*E2>7Zu?93f)g8
z9<P6YepK20c(SlYCe_-xun#k*TRaBDKUqt(X}DVJ(xbZEw3w1BqVErRDJ5fvgqOc2
zI-BWHeqU+BQJy>V36m|LU(f$~3@0kBbDQa!D>$;?X?SM7sZsm3UGCC991r#odiqMz
zKY$A9crnEp^<t*PEqkhn7fin?tS{bqy#8^Mg`5@4Jg;ffmFXy(-Zi&(S3OIn9zL1M
z1RMHX7=ZzOr%*9P<J}?k&&CiBk5+L@4ked{M5;Pbn!?;-f7;<OO_e>|2S3jrE3R8-
zX_D9j7x6(=I~gDS2oD^(k5iWF)X1b_w*z3!hglln5z}X@B7B_*1-gTCu|F_<{`hPO
zQN`wiyIsj<2qv{S$xY!l-ghd}-(Do{zX5ML#H%=pZaUBZaHKDxB&oVo!OX+C-8Ff6
zg@B{rxxvOgTgo1d`+6YD>(-0qr_hac>pHqa!LGA^8Z;i%x%%W*Ka4Q<c+w7{OvQ_b
zz@#T+)H{=kx|pw<={H=VSN)0tQ=NypQNtMnkfvR&GKcAnoI6xa$Dw7PWWGM$XC-!u
z8d!`(GEde@96>*}%GqoivnnB-kv>`aq|Sok^xp~vl?K(THp`6{l|tT3;>L*n8J>nw
z1*My_US~PqPz_3Trgo!F1<Afy=D(nYMh|_ACYs@FNgTL#JN#M(E`+vsRAB`6ffcNy
zcqLeMZni$a(M-n>0Q}uLmf~^YfE(hME{u73y0O8m`CD7S6RQ%7M`ErYSuF+fqI_Av
z69b0!K?Q1tjmzt_Ys;P|n~U9iqsj*oPl)Bxvm3L@M<39Ah8k)C=Tq@DW9q0p5k<}Q
zFGjW)sPV78Soc?F8s~&kj@ouGd`}w+qVRrGQaj&zO9-YFqj!s4F!WNf?`*tg$nR9y
zJ*g^JSW90iuB!%ifru;c>htdd%^H3cq+O5R{ZDwU)T`dryZr9Cj_Vn^L#ows1-J)n
z2%b9G{X)k)_ligJ1ZMqIpJy)cZ<`p}*Hr=34Za>_o+nrOLY(ul_0*?I7egaa9oW_;
z)N4&JQ2;?1lA-l6o&;8dao>qlNa)qxnDT9<{VK$U0U*Vw7ry|93@*>Faw`kI*W;Q)
z{wcfPQu~)T@oVS;-E~?Q3!9Go@C!ZvZ2nGX;h&0BqiW}=rD)n0jrwO*!y#=zULYQQ
zKrNYI`|1@Ke`(?z=9)%!ta%!bixV}WPno}$DCss?7@Q=k3?@cG7S+j{?9eRFHX`;(
z!4+<068dLT^EjO=H#`dqoW+t<twT)7Q|-sgzHqxX#ojZ;e6&2f{Q2i*`tAG)w+B97
zr$3f10NT@d2WT%O=rtQW5%BR`>efcX-he`SQ>hzr?V!&P)i+3)RS}pvqF*k2v>J0*
zEj#Siz%uRvANcn}Cx4e)8U#0A$eu3QC0M&QuqMeuzTBdo*1rpEU;jo9QI9-}5tQUr
z+`5QKEpe+|`Ige~H}LrE+ls!p{3LzPF&-o|AzcSAc#-#4#6?U9m`?+eylg~pQMO<I
zu<|iuk(O^ox=-4ARBt)0`62|ApFK&3nB^^>dAkJwuPJ8EWSHj4EYm>f^F^eos%vYx
z%mAxcj<nA-zPD`aza?$g|L3V&{sUH$RWJ_;S2K(pq+eSNw0s!n4l#S{MeO>FP1e7Y
z>|dn3Z$D<;qPLAy%&6{vu?aJ06^TTbPql+?kCrqUgF40pSJ!rwxkI!s)<q`GuwbuO
zfC6*!(XwlFvli^@oP6Uu^&$r!PKI4T*xuS>6@&VtZWqLj!mDxf!M_MJBCkqz?yA6<
z>LZVV&1aR1%b&rBzKEWSCAdUEr;C7anKh%FH`z{{qBV^?-XC<)@cjJ6<@H{1ZbT{(
zOg>_Fb=LH8A+W`k&8319j|5w!F0J#bme(iZ(^=FbVZAO!`13&x<m=R7<A9&$gRl*}
zPg`e|_In03WT%7QUBP<>)i5FvmmJMYWZK*xO(N`?bn8oh%)Ey+qpx9T>`U|<3iTYl
zo$$?PTK|dIfU6uWyl5)xYGDde$nkswy56Po@n~}hhLv^A0#q`288SE!(bEuj<vhRO
z*kk1lU5c5LZ<))ihLOh^T1xfWw#%%2Wny42kgY{J9{LLi_IZ3q$4Q|jhvSnrXIHeY
zdbp2+9qDdL-*d59p~!QVdOkN$@oJl(;L!<-P<ZeCX0=xTi+d54y)(;IL;>RBGU>{B
z*_TI$ulL-uhA@HD_5vo%WzI4eP?}8$zY6GwmgPfNML@}PXI}u&q;yJPYsT=ZkD9l4
zhuMC8BD~&P#xk-y*@217e(pUqYSk7Q5ak-2H}yd~Z%p8+l#5YJi|VnIXyXq#!C1VY
zSZu^7nrd(O>i3nj3*ous^np`rK1by?O1GBe9fccjc7Y2a=H%o3)<-DD`rLhlqUvu%
zEn(u_n5WBPV+})1@(oQn<27##O@n`bkI>CFmuIuwtSRR>`gk%L;*oWY<iKvZj4`)d
z9sonZhN@(iS}XTKJEQXbYS?*TTkFe3K7L@hEeZB9lTza2eW?y^TKnYZR2&sBEXYso
zhGg4lir5ijZX3F2L??J~#I$RX??b2V?*{CW6Wb<-8Pg-rMsY)Ivtg?fn#ZFqC5vQ6
z!%2CQxGN~d(Rb17Q4mql715d=+ZLmGm{K0SwKJeSOEh~s0AotKObbxwM^zhyXDVh*
z9)yStebKD!6Yj5P?56dJ(QNli3s1qM%+Nz^VbMq<J+&dulXw0a`i%uJhHQ5-y`l=T
zFzhNuXz>5&y^m`uRSaR}g&wc@1J@bFV_fEhIm{-LAw51yDmG&7!Eo<Z=SbTzRdNW>
zLd5i8-16!QO|*nQgJ+H)iHL!yOtWbBw7qc-)*2CocIBKmTiJkm<?R6l#DQfi##HqG
znpY#9Ft%&A|7g9K(zd(5_ug;`7+pB!83AQ_oVqR36B1^L;mO_ziOxWKBUc}Yl+24m
z3~=dKUEY$<;i+wE5p<W#TU5xR{=uDT52~&a5-WqO`FG7L2Q+X+1GC9x_^4>{VJ`DG
za%O-DPu31|Hm-7if{NlLnwc|djL(ptElj`H_daaFdByOEQsZ--W_KUcI4d?c@Njr@
z@p{cA4G&SoSyP?z%RRI-#S{0rZnLOk!DEidh|{f4nmNVbpL5wOm^L|Q*gw=Yeocit
zcw!MrzZ>u5JS08BoK~^#Ij6bfLxO_{Q7F$<7hY}@xAgh|!oU_nMP+w@<DIcvtE?7-
zEzz6bC2lqG59{5Y{yP1#HTl|JLZQvUa{HN`9Gw2}bV5J_;&N|Ut_E$6r6Y4a8nc6W
z1J~Em4J><)WZA{2yFA^4`D5;Fra{R;)f$l7H+#$K+9>G0N1`e>PO5CVKP$bsZ<Q&m
zKVdSGo$mAYSK_kVwRu`q#K>PL{To+s{&ux^E$&{VW%D09m|B{u$l0N=8@(g{NOPm8
z?<K%LH~p9LuKcgbV|#10db!kcg|<`ysWkz^DkxIcSQj8+NeOFYiB*wJKtRHp1gX>w
zp=M!EPzeMRAhOF6B5rBICc6rRdP&$K1VSJN67qd%fBpUk_x*W3^Lc0HoM+BF=Q%Ts
z*sNqLu*G^@RloZJD5c~s4`$#lwy#9aUUDJDY&xx6X<e%NG!h#?>q%_C&hg5U{{dI*
zt(K+?X$U;$x$m_OR%z|n5%HG4I}T|PTrUHMH@)HwkY~*(kAJ$eTQayf0VIa)k`fMs
zA6*lhA-qZj*GlNd0Mo@zk69`bcFh};zZ+5`(_;uaNWym|NCLvOW^U@CZ~&y!F%()5
zf1mhQ%#Yt0?GJ*ffZk$U3C8{(Ch`*oYFX7sZLiX%s|p3aPw0IacQjF*ePf_hfBtoi
zk+HBaZSl{$7J_2fmT+km>D6eI#)OV(nB=F&9Ih{a>*L&r-ds94%>{h-jn)0JM0VX~
z<+p1pAAo*)&kUHV44q7dE9xXgyA~8oxPdO+W9?c53#!T9SbCs+Yvk<siP6Lf)dlnT
zc3~2XS|Cj`D6~G0pHFi9fp><WtU^jk4g$vG&An-KDFMkHY-8Mc8<cZ&d?x+Br#Hq-
z0`FG1(sH&!-HMt&)}lJ&%qD?(XKKu`15z`zS0@7Sv|u|=4In@BctpE{6R4Pqg1xG+
zbcTAWH6=9d4tm&f!R;DIKpom7J>^Ucl^}f`Z6ohZ;@sZX7Nww~wzA`!)(Wp@B^QgW
zYvXk~#P_pdul%h;vy!=gw4I~}KfU(kQ_0x7E7n`t#SG|&U}6_9GaG~tfuv*n)%znv
zX=M~~ZeZ~IZMdQ(?`V(#3KjnK_=vAg<h@7?^(~A;72lr>s;QEEEccJdJYt%pJj(1x
zw_Wzh=gJoYAVadW+;+oia4fgZJgjg0S6FLP=;fGUt4F-T(&4(s+Bm-jJ)3Y$iR2E~
z_Yf2cUf~q?!kk+lPugn;EM<J$#plyRw`G6&n*(cSfTF%*=a}FWU8EN=v?pn{Wt@)O
zdQVm(Ou8HvG+(Wd>$xX}XDq*tj61BFhX9(ajI-)cKS+8BKsEe7<Ch;e@}UD)@yX^u
z#>zuL_!q|{sa5;KT4*_=digt0tpcs;fm^h)r{9x~!QiKppY*7iC`r^hdVsrY)O!q0
z#5s-WwU2nWunfG%j*WPaF~L^@7*ynzF4IvU17Nu;$TpT6&w{JuA)*x+IHe@#Z&#}7
zbRLf;#jQH6P{>?E`^U9<wR5voyCt3E`rrDT3(sb?Y#b13>>JT|dbm2t*=k2%-fNPj
z1x!jJ`CKjVbxl)s-`tExxuEwe^~j=Mb+h&8y^?*Y8CE>J-x3S+E0Mtp$iGENfNHEZ
zTX?=Xtyf1T4M<)FleWkLTY64o>F*1=Yu@qKJP855OH*-Y6_YUMpaw%@|9nHchdnx`
z-K>MZROXU-t0Cg5=n7aT)f2e3r!6}muPVB*!cbw+vwW$Skmxhx;pLBr^>1p*vp8T3
z3^OXMmFGQO?qOm?XHytZrSfvmtQUY5b!<*MF(c}1$ZYuXFqo+z^QD};m5w!gdVR(a
zq*?QAs&>bYMv)U)w4k41xujBE=ND|iHeC3+wZGO@nMrJ(`ZmP)k8M`(53{T>%d;mp
zM(V|cyt$Ko@}hXwbU`1WHAF}BB9ck$p($#3CFo}t1yD@)^$|XmAY3TMDm)0L>D~A?
z{<P*iTDd|Xr5+nwDE?O7Qd3^b_{VnHgJtlKS)^Bk=RZ9FV1$;#5D3~A=O!`!vF#=;
z701uHgjCnv$2LZlJ`1V;qdpV>kT_W1pGjlt3An<0m3uObU}d+s=<B&mJ^plfp;AFj
zVaxI$XaqZOBk;bpd%ndh#UjaY551zT@0Mp>NM;}LuP+~(&w>>f;}l=AIj)s>2EaRr
zYnWcvSBDFlV2!Qq^&Qr*M&yu6kLwat5Wg|za+PA==0*^PlSPpkHv}#9!E*lGtY5zC
z{XZQp<#YxUg*I$a&}<w1+bKKI7ojjaY+CZ@lJr}-R%p}kXCu{ikic9O;@Vw8eyc7m
z!AN8}chW0CE%~uQrY+!dZEVb^a=+<UG02&GCp(c1HkGiK)?>;}P}v4h8$RfF5RU=w
zx{hJwc5tGAbzOCeFXKzKq8m%hpzB%<t^~BiT&pc`isp+ZR^okk7DjI`YUI3Zww(?t
z#xaxC3m!AWeud#l#0Mj^t{2adM5{Z_p$=CJ1?N$?^}AfgsxPb5Fe4Z+6;1;F-9)K4
zvOM=>i{gAzMOn0s*ThnRu)WCRE1Mdz70UCN*QN&n#%zyS3Pl|XACA*uXsjFf#Ogg9
z0;TMX7~)i@v!~?*M^=jxKlCYs{7sTTzBfcw@;+HyEQ&><4#~d}HdW<Dwa4_%`ntB~
zIt<2>jt@bdly>uFGaU$mu{<AI)PykqWvvU)GVL2K=n;rpk!v!g_t4K@`GoYVJz!tt
zCPqiWb5P4l(BAcYe6i3Lxjv0Wx_pX-<JnqKkMIqLh|^V}fs1c%RD1})_KHLQ`eamo
z4>aF@W@}XtQ_MIb@24h=@1PiUX`U*<R6>iFUeA|(*qp(%9WP+4N<%m<3hw~ZaLgpA
zdp1vBc!Mm8xBRiO*t^WQg|7ascRvbeFaH4uoblo2l!G6`*qm{sR}z9SZIZ{Se}rM^
zdZ(Q#ZmpU$>!kWQ3?ih5N}G)JTj<c<*X;U?jcn8jp2W{xx2D~Mw@B=Of+1~ABG<u%
zh<Ceu&^}n|TA@CdOcs?ijourm^-!x+v8_wz3<6dk4xFpE<M{yY<bZ1#tts|}va{EB
z+Pi1zW;WL-zlgt*UpCsa5gd%_RNt--A}ZH+Z@v(!Hg0pZ+zzM;NUz>TMqi~D|H3$q
zxVZNCZl0buCUIjm!I(E2wH~Qo=8mTc2D1&+)pB_~2pv&HF*H)J_$n=0(SwSH^|V@F
z%AV;wK(jQSj<*G;ezIREBE`#pYkF6@6)|RcS?0(>=&yXHZ8!oJGPWd}&8-b}j2$(r
z1Z@!O@e=^diRqzPa?Ctyl~Y?2Ek-)&R4jE!cbo-&ejRJvZP_ekG^W?pq&7IIm>5G!
zSAZYdt@ZOTZr35Yo`59$V`p9rT-q#ys#TX3LQ=7R98br`Q3lE&Obw1LEk~*+tbpi}
z-~>%VX?>+&UowEM^87rnB6a%wiP?ZF%2e!LRFCxX*do%x0ww=1MiaL50Efi!s@YUi
zzy22~-uZb44Y_&%tMA6Pi?F44%-EtYl}sNDhX&r8oaatY9?t-+QV6Ai<$W+&>gc5e
z{jzGasj8;X9Di)@)Pt@g^nzSfl4Ire<f++ja5dZkvZ!fm2e63%Lan#WuSqwD2bDMC
z^g~On%qx2$JB04Ar4k(BLNt7E{t}GpFj;H0bIe^@4$6b$+kWqbtX{-5%hh0YIwb~M
zhg3^0e~x%=NrMuS`bm~c2oLDtItci%Tp)8DHsTE-)h|v>GmKof9@Q(?Pl#n81Z#p5
z4G6D0oOu)<oG+^F&*9UOtr(&b$8T095K3yR62C+DGk_&-=c^D#sqXO8@sYb%PxJr9
z8#hwC1R+orR3I5yCXmjM40ofa(!G*8m)S^dnK1xMDym1^*Mj)<-<kqFqyqve4(3d;
zZdn<$%19*W8K=Ssaii6V+W*)w-K0A?wnn!cdy=P?<!gz})lnNquC>rS=2u!ldDY%i
zr#BL_IW|M;I_zOy9a}VHoz`f-9cG|C6$Bv3zeij(t7WpLZ%dn~4K4clNLI7og5uhJ
zOk4;=T@7hcECE{py2J1nh{K$$dzUFzAJhJWYX9&($m&M#hqj#ZgXzqWo0ao{g=epV
zUrsYW%!Cs&jLKV9FY?dryLI5(A(-^(PN3#>QqcZb`75OS#eyu(isvwd$oM))V$WLp
zp)6!zh7KI`jw0L++(9L)m@UxIiq4bhetRH{=Z%fF=E7h|Y+6oQek?QO`ZaB_T_5i0
z=ri`q%#;4@>}U1LjXfJ3v_7jxPyPwFuqJD4?AiCtQ#x_vwAOo%0V(<JfbBN|xMTy^
z79&9|U=Am(@~4?>HOm*9$3Ch0d>|>Em$?yp{)q$;)u?qUdw<7{V`>X8sp&j=ceo7{
zm?!1^C$ihHXO3Wv<+3AuCkNitiMIkS(&Z+ru_-wyb)c-lM|%;?@|J5ND?I~)5qqP7
z)5xY}*@Ym97c3Kd-M8y*H*)4_$YRg$s0=42rlK@fRh%@M=*j;^%a|r`>o2QN{_Cfj
zp>FP^)+oTiQ@zV4jv(WvsJ><4PDbLkA4N8B{!wAC`Fa@1urgSGjc_>30#PKOwe==f
zBbPq1Ib%kO(L&Wb5>A=ZwlB@e5Q)M~6)x_&ngZ-oPpvZS!c1~>X&H*nli*a@4U*+k
z*NU9KD#igK%1Cri3Z<3S;$ryOn&=1C64BJYl%;1F<5mP5Igf=vwR7OlDJ9l<b56(^
zP3NXDPPdOsq_d?c3(2bW4$xunmb-}=xEG6*0_!yCLz3wT2OM@*NQSUp7Qvh!Si8;-
zuoH~Itx>12+aPy6i7;zycOvZHg?SaA#~8YDS@s%)FVc2p=^^`<NU0%mL=jpJ$XQG4
zYsY=G16Z(xevqxZ^pS^U{Ih)E1R}_{W-WI6T)YzLfVUR8X6hL!+!ku&pv}K=aZrD9
z99ijC6gK5qWcnEe+j0_NFQoJ9gr8;fxS#5!rK<@c?%|jYQ_(GQWV)9`(&AIuyiHnu
zKktviMLC>8?m11NBwYRcOE)$Wp2Q%s0~|4KqPo2vt!P+634Bv4=Fzqg@nN}ughPH@
z&fol^Cx6OK{rQ?(Hx|V@GlVV}neoOY>@mjEKN_%``)@bo0NrO6$ClzwPczNsUlux*
z3>m&ozX&wXtAPyln;A%`4e%mM*`du>-)uGsGi96Wx4-+aT>)W#<uJH)vsXs^H@ETq
z;R{!sPKds*Gv%$FU+RuphfDh*Do3-hzQ1Vtvw(DWb(21CD8^J!_P4!MM#87O?hmvB
zeLVk<mOGT^&88F+zS<cWd06x#uEG9pGOHQ~Bw^B1947VWGD-KA&5c?UyZ^3}x-t=^
zA&4eSJnr?{S$$@5w`9FBab^1!r_49LIvu*8RQKS(eRG{>h>j2*)JPEux0Zh(Y38#X
lc+*JjE}-52$oE{R#J`Ia-poq1KC?Y!*g3DWwWlv+{U257p|1b{

literal 25925
zcmeFYcT|&E+b<mZIEpyqV?o-e5r(mV(z^~SMw&|RC<4-z7y=0p#)6Ha3BARFw1m)G
zAOuChP(=)(CLkpeN@yXFkmTG6&-*^}z3(|^egB+4&RNgBmMdXr-}}1uReo35+oxA8
zO{IQ5{4)pyl7d{ma2*8N76t-sx%ty}U}P})^*r#g{id1e1>h5S)=cV9z{k!zmmQ%X
zko;ruzfB1f3tk}5Zy?Bp^EP3bGsEGT0dQBQh}J=J{Cw&2#oxAHr~;iobZ75_-|A*w
z{r>as>n?leU!UAOr?Y4G?pH_8-`V2*<p*f<u{Y71@BfCI`MLG<p{-3v%S>t<=hpB3
zLH<Vyfi;oMVi5%qMheVsh8{D5%<Q37|B(epO(VsO|NHqrB>|60QjT6p^U9*vflu1=
z(9Iyb-UhFO05#K+NNTtLjJv;L+Zb~z2#<f8?7G2(^Rba_;%^SuHoJ*GqxT>GkAa{v
zz^I->Tf{3gzO-oE1;V3ARExqvTOV5=n>>pZ)N9@?&TE!{YHZ8SG7x@HDqbq0x+>F%
z5ZHuY*RAzxyI`D~o{VVZMuf3{zxD7N#8ucJ>mf@K$FyPExTkkBlc`$@o$XU_!gmN;
z4jBiRzhsza4=-qdmPML1EeY7vX&lW~wNSXEMku|lKdU?ZtW9gZPDEf0;(~FOcq3;)
zB<C4RwQ#AbmT+;<I%{CwiEP=#jm(OnjVBda7w(c33Ix_oT@(AM8HL3sU(;tRKGP;c
zNwm$tR_i{K4&Q(Fz_~A|^1c614zE$ES#S%MXAvP?OxS}jB}Ig+KcwiE6S!1XowUqS
zMj;$;&D>S!seR3d%E7@2>T}C0>oI#n>SmXj%g3j`RcGTg*3aB{Yy9}2*7{#JuUY!f
zvYF>h_SXDD)_5yIX>5Jc6ZNKuG%0PDP;|QdeY%^LXDm7Et}t7M(exLqd)j3>T%AX{
z@u2cFud-I2T?w$*czP+nN?|boe6P>ma9XVy6)w9A?PmN|#IS48Z2x2UGpE7xEL~f(
zePrk|mR42DSCz9BtQ^2TR<+k2Y}9P7=)v}MY=4~6XDw*mKCN?4zofJ8@wAjW0ol2o
zH|P6P2#qCT^y-N2Y^Fb;wj7Sio$kNVs6U;a;L3DDX}x7+(59;8i#sloHw5+trdQv1
zgY;!IKgKcnF)|Kr(}G_jwf}sK(KqSsD>Q9t={2sW93}^6@m4h2Pa6y|zw6U#J5xh>
zP$D&&JC%X=L^$7TL^5S)r2Hc`Smt(ho<e{_$jH^lvhxafI&Jm*dgzY&!G!^rW#lPf
z|0QOEDE}QhyKb-k&g+&MZK20R&uyn#aXE^mWNPMuqK@Z!Q2@E2lY90=>`-e}Qo>bi
zon<69qlZhSrb(4&B@`06)gHi#pvLa<<j%_GGC&?hTkDPQq%vCGY@vG=7I)OFWYMOO
zE3r{1<FR$K&2%g6_S?ev7@69X`niNcOFswiF}6=^WC`yjjCELjByw4gHgKh}?r&20
z*1~IU9A(JfkKtt62_j%UGA*h!wdp%{cNX8ol-vq7xf6omwCgez@dTs1Y|e+zG%Et!
zrin+8c4n?WkkU@&HBi<}ZAI^nd`yE0_xpScUA%>_<keSH`kb5dUvaAR=?Yh9uE1b>
z1|sf+-7IhFF{?7QwV(akINQf^k`ncjhrVy27b<t;2hs;V@Y4mPVb~>Xon3YCSljdU
zj@Sj`8cW8REp&Hhrc;JgSoL&e?PsnNAYG4?^!;z@gL4*8i00KDI3I2OzEzH{AX|fp
zSo-i;T5D_QV;)mCa*tiL%iAu}WG3plOl3y~#UNO!hn?E(b4-z@*kl=H>A&=TwEp-`
zBgWpDPG|(@A*@rTNi)NhiI+u0a$}dID};+mvarcaV)O3r%x(1vPI=88+yAcQ=N;(_
z+!rzZ@sG#c#iAZP_PJb+w)aXAmF?e=9jK!kTi+9FWR=;&lvn4u_*!E59Y2;-)jLuB
zu}i9@@Li0a)X+t!Q-<^&V;!bmbrv+sD=gTb7S51i8v8V_ku`5xv~<=qzh_NCd2urH
z!bLsJAgz&M0&Vgr!+%rswt>&4Ss+mIl$834aV77j$?AeKwMo{fH4-7qmuL2Qcf~|_
zHX-okneHTy=2Fi>fozTNwVS@D$aHdfjU>Z2R?q8F@t@JJ>Nhi6pU5orOO;yfmT3v9
zvSeIzo`e$jw`jD-y0$4hiJAijXHo5aqFw$ob>=Xv3{&)8XTk>dKGV})c0q5+#o)Wc
z;M#!8H^BHyJcJK+gJ$lD{IkaFgHz9}j>m9}jqM^UN1M+vjPe*slX8QXUuc~$z>mgU
z$XMu)skEk@RdtA9#tII0OqKVtQA^p+^EBJ-va2K8VjCE`K0_CsR{&=6I&=Zp>QB_C
zxVQJA1Tpi$1GC<l{Dxk4#p)R5YK&A{p+Vhfj2|{2tVof^zMG5-7}4`Qq&_m-Nt=8_
z7Yl6P{AQ5;@Y0|INMkmYwTU_?`(a>TuZ~Zz-fPXR2d8y|J4?gc^zmMFuC{6kZ#h<w
zA&?KIL+{!&=~XRNIZh7W3F=N3WCnez$2K9WM|l~XB$l*~9RIb6f^k4|c)9l`_wV_v
z^HQ(Z^>K`%sG1|M>i=vCQRxvK;C9MPpPhE`S04B;%sir6qze{CIYY!7xucinwvuI*
zysd*)oZQo(0rY^z;*LJDbySOf)Ki+#b!<=8WC5V-GBfubc^XK;h+}!Qe^{scw~~iV
z4s9L*kHe2ZJEYyJ+nkC!vUqMl+-p)T1U3G#>e3{IZg`9EZaQ3(ad$8#A<l~bA#+Ju
z5Vqzt8JQVH=aKv!S4`Q)<nd|M4`l$<q;jD(D^<3ox*~_jh&Vx>y^r|-9NW!x?2!JB
z$|Vl=nmMO?_UcB(S;STj12|g`;Os6XAOPD@1`Bs+wHwu4H`#kv#8Q#+5ATH1OcYQz
zJ8P>4&YjZ6LT84gmKl&q!-EWl+OgmhgY|negEiR9`3JM@X)kx+TDo*rJTb+_+GDHu
zezN8|sx`P>S7;{X@2Y61%SEH0{K@71(<vFynIEinfIOZynF_?5#``<NHbvXsD;eEx
z7JNH(+v+@vDCHj#6?O?LtFXAb?p<8TAMOxcUM;1Pyyfa%^-tH#*|__M{%$xu=@1L}
ztB{LCz@7)<z0|V-4>39Hy+F`>yEI0vn~V)dH1UZ3YmZnoSz(7;AFZo5o9Yv=L)LBD
zzqT_os(N4?mMj>M8zUV6IjC(?1>FI!-760ssIZ$?4~`kZFy;7EZ`5u+JcHakZK*k3
z8+I;(eD~{4>e!y*OxNkB(0D=kw5nprJ<jv7r1B%!BDeZx;l9F@_8&`qld5k^QJtma
zH0X>sG(K(?>oY@+^e?`PbZIKvkx{wNJtHHscpK=zWgyF$xhGxJkQc{D{gJM|g7S!q
z>`GJbOwevOufLKKg<pF{?K!-e?ihvIqB(b=%Xij;_k&W(36isg-E1;t8aoS?!`{vQ
z(S<vmes?BBs$5s`S|l_@c$!>%WL2=hdMh<L70U0B;TLOqik5n1*k;i9NLs8w*%npS
zS>uTqixrq^KKzpMZ~=*vwG~};h3%sC{}ZWz?96qBE9=dZ&(C%nF5o4{q}@)zLx_32
zT-JFElr}J@=DEJ3YpT3|b_UjvLhJg$t%mZ3V4WO-&fBgtP@X|RXXTu69s?=+0gE9n
zhZ_@*fXJREC0da}?_iB;TYZ6UWd8wH9XHcI@Rq)s&&<XC!8;};ao@Nfq+;RbCSMGv
z`E~xVG)irY)=B$2bUj+u!HD1q=DlgDD6;G@-GJ%z_t@?FtDanEs9U*Dt-LKM;-UY#
zwaFKaE=%cST#bjpo)2v|)8E_OZ!)CnLJ8IMs@Ujimc5n(120qaSP%JN%pzC>?JO<b
zLMKtl!DS688hnAb+rI+uuA5J{gGMgHUmdxc&MD<Sm)%Tu)P6Sbgl5O+zhjbP8(PA9
z&w?krem)H^xl#Mb>ty8}ozDJ7U2Kss>cN;Gq&)axO)}Fif&Ovr@$?&SM!?-u#rbpH
z>l4b}j*n=Q2#GKJ1o*<SelywL`t{FxOxLS|J55sQz54J0pF(y~kZol6F3#+QgSOHI
z1bdR#E&+o&zcB0QUtD(Ppgq~nm4u)w@ksT&sz){z4GH$aPRvZ@iiM25+3v37QR&~O
zb?b=kgNmmc2&1`v%wi~A9apDOPYa-0Mg;~fi=7}kvh6ewrsbuBR{J<Gr9qDDpT#&W
z{I>8vn@sPE%6T45*LN1<g#_NXQZc8Q(q|w1QxN&>4ez-mS)-!@N{q)upp;^zFfS$z
zX8MM!5y7^<?O?r>OGOnC2In)ejJ=Z)ua4*-tech=)4cwH+{(Y)#4F3w+WHjO2z0e7
zM%E{?YV@t3IAHZBQEi*bl89RqQxcrqLEkzHrJj;)VDjy%i#h{RPl@QPPgF&?Z%Iw;
z&XcH~dADT~Dpz|w))Fs#$9v9lj6;r<UL<K%F9Eyy-#j|kXB|T~fj~1q?=Y2XW0z!%
z)$Rc4+?TJM5$Ee5P~Twy6@aJl*{?tZ`uFqyPXbrPLd8Fnwd3OA58uG=D-150a~BN$
zG`2|=?!*~kt$H0id;fW%aiP$c0uwJe6V`>>6JKxW=}g}8ighMV<m5KFa&XMZ5csVG
zv2v;oWcNYUCOCg3UagmFTb*yD^TDBUQqCRLlR>YL9sY5tjo{TLoMi}$4w6?t!EUu*
z01C<IrlTWX$2yC$^}aeVzV4lO)A<_Ks5CsXUHeBix1L$n)>l?d7R;t>trt_7jw{Xm
zL(B`v?6?1@NB>)a`hVX*WpMwtFWIab)~a7H>>7~utg}XbotBt#sLm$#%Aoad4bhsj
zg(@|f$)96AqPp7$7oBzslc=S!b?<yoah)yM-ZlII(;ZbN;Iisjuc=rsZ;4mD&<v|?
z%VtUA$N`}>{7)=vOtHUi5#l^2Z><(^DxeMYb9LJoPB8<q{*?8ST5YSWwJv8#An2?i
zzTFaW3bBEyB;-@Y!t9FqXX5$M@>Y#?VR`ms4bEz}RCyTIMF8bYG~A^;dVmqI3!;!A
z!eVoIR2Yo<DRGy0ef-ax*x!dyg#td+v+%i=Zu2MVzQXdn6~hs=jXm0BM#C5845(2<
zH{v-DWyT~MuX_OuHUt(5o;Jx%_oz2Z+7Y2gfTiS9{n&=>rMW0KrsAZ7m_p;Tee<X3
z{&@p5{q|CVJ~e9iM!aM`9+2L5!GsOpk$T2ij`;&3s{GqRhIwWw)-~5SlPtXqxv^MQ
z9MwW8K{a1^E0HB$H9ASGmzm8>dw8LnVR%Fni$pao^sx{2tyvpj9=<;qNmZdH9o{_5
zx1kx_YOk|(cf2<$VW(4RWLTlNVD4)P{=;!?r#dGNE<=v_o#jStGsW!|PjPTezTIbp
zvW>Ln^syS1_-<DXONlo*C{uz&WDeK70iAZ)k$d+pW?vhwC%VDnSbtFON}1_J)bl(z
z4J;0(I78}@L?6ch@#&t<7lxNf)EV$JIwdab0*4{%14-~ycDGWzaZ*gOkGi!!;G>W=
z{<6g&RA4P0iVhbKy)A6f?%YjRwlj8(40~8A{=vh3-#j6^ywDJ{l2NrlbXV||(|*21
z{Km_l!tA^Jac`Ap4VNspis!}$ct(sXh`&W2-@Ado_}~8nkju8Szh`MJhW!~Xp783|
z`Jl(py5-#4;=e#|&&d8m{ONHq?R_1IZtohA>Y1r~>4<o&ktJ3szi`@WfZ-O&QESnE
zaa>XSL-fh+5_vauYC~(;Gx6V`c!SOKPsk-3KG6&(u^gT6KZPA+4_nX5suoEaiz82t
zjkwmMviuk~9WP4WF;&oZbgoymG1l;P*ZC0E5~n6^l!EST1zaiNV60B>r(^##AT=`$
z$s7OL(m!L&|5F3`Kt>UrbjJ@i*u3_jQ3g{itdZ>cF{H8W(z+!K`?958_<2lhUyX!g
z0AObutr6i5ON08<o^zXy#Y&v5E*&tu)jEn+Ou6i4x@x?J#3*K*de2LK{-3lG|L;TU
z|LlVPpJAPzHCw~_=+{-YOXA9*3IO;IxDUTYgu#kgi~gDA)rfPPQWlPS5Vs4LVq4vp
zeO5d%+O|ZDR7Vr?qx|Cp(zt9rUqx#Yfk-*Rl(QYaQ6_+JJgJ{{75pkzs)G!GEeY75
z**n#&YFwSw0C`Y5rtUG(os;^KC2=6TQ~-J{@!49O)gd5|m=sD|tYlfcl6Vx#7|oXE
z=Rmj-4B(NiwdcBDQ;4*9(Z<tCfQzwbzcSZ`sWMW3vDr30cEJS80yhm<XW-!vjOWUO
zk7bj6!ua26;F34QaP*u@vYy>xzav+{{fio=n#IEuO9$2z47@&_uE+gySF$zN%Rscz
zPWK~2<Hp!V;|tErSj}P4CH1b2@c0O@T#th_i#B{Se>r2(ix&4Z_1@*$yx`h59d*#A
z_U~tezulRo(5x>V^6w_N8kXwa=zkPD@+L->M+)eF1aSTftB=Jk#GR~r@p9dQlhJm1
zb2Mis03i2SH4vl~Z2rX<vNtT^hpvAXvU@b8>IT=>VM~}fZr-d*P{?);{pHv|N;J?4
zKQNI?wK`e%<d@+pM93gtlnn~_3lO8xRRIlxL~*7};@wwXwD@P0_tvuY*S~7boTn<<
zB25oX=M^GtL>eC)o>x_~;^Fn4)wLag$*yh5kv~inSu$N=m%>R~K#fOdi-^sdgzg6l
z%dfm>Ar4Us2T`RDc1SyY{l(+rPZ0;$7Oscq=>@zolXwO|2VN}X#+J^VrAD=hd3G;w
z)BNfHPmjpbGz)L3T}&z-iVKby^GYf8;;)3K0qckAu8m{tc_KxSgQ4(fbr?#EDip8~
z)(Ktt*_yth_v6#n&dA8&6P7&p?~gq9|0GsAUI~b<q$=KOPGm&W*R6^KBL@;$ul9!4
z+_Azf7^snp;3h{NGy9TCwo|rfUUT8J1{O##p|3O|6uEGkFy}%lH`~I&S;&*~iS`^S
ztEG@>(_&+lsXj@P4WdghdFH0rT;aB~B6>r!P+iuWX=hl?tJNKoyY29pJ8_J*L&C~$
z>S5JgI|^m(^KA0$u*F8@&EaHQfiH~AnxyWeB5^bu)u7ZVNpSsb#PxocMOC;Fef{`h
z@yno--I9-zLP?eh0-d-5)ce3w^5*}60Y7{+SC?vWNlxN+(XiP4pXucYD9nxXg7xj?
zMmppXQ|dG1_8Q^GNn>54S{%G1B@xJB)d-Rukf5Bf<~LL$JUIod8&u&-f&|Xbjcu!E
z+5zQk6)}+0THwjY<=Kd?k#dM@PiT?}eU;67oK*3`DqeQX#9@W*y)$m#PgAFr_zI4Z
zJ)bw!)~9(u7qiks?WgX?W!Q9O>4ny^AX07G^?0IJCHyb(SqBItcel#3;Nf#zwVkm`
zmW#lFGg>eP&v&yH_;8+6ld4`Ti6=!TRS)}*MwRO25xq^m=+BO`o>Iesb0TLOWL3G2
zWQJ|o@FsS*tDYw}VKNh5&SDqB?d_ezY{fr<PTXc_xiVSQEx5<_Epj0<QdCbMv-8&)
zikMYaY9ZK1mJqKrwYw#ITEP%w>*q&uerX1QLLa{^JfT|m<YmNb-cZ@|zP~K-maYII
ztX+V4^j`#ylDdv=p|{xp&gg7%Re$ybHQ25TZ)8*{GNcM*H!}{}Yu^S^Nr2GJ<gsep
z<5+`9nPUk%Kyu-3*N1)kFUF4FkFhEs!TKM~{FZ0WF1B<CJ#sAE3MPm_z5sy&GJqzC
zp%nR>LC%c>bFbBn7!HC2mM!%Ww0Z5eiOza4riBY&r#U-l)p17t2HqOzxkW_*`Cas}
z!MMT|HiJPYd9EKWlf#PEnfw7-L+Cx2_hz~;4R6_39qgW$O&q|48FLD(sPjvPMBYFM
zZWAapqjWRfx)5ng9?*`8om*!?sOp8N!H=nmS$^)qlESe&hS0LO(HWKx&Pp8r?>yu`
zFkXEC5F^i=t(tji6>+mT?9+*4*XDTGWSY-PVxEClzn5I{AVav~8a7(Lb^<tBRJUv7
z7sQb5tdP*AuRjA_hRXxq@&-e1BzlU!<*C|z=hcm>xgI`Grp6hTAXWtM=p2pPKi^P^
zh~PY{(sG6;AB@wHG!+_u@d6yc`&gVfeFZgc|5w)_z0`Ytu1LYa7e&zXc_4_&A+F~L
z>XMu{B1^y*hfVBid#khx6l|Y>;2`MD5md3Hj!`A+-1#W$|1_q~qEdv|CvY>OHt;WR
z80*Z>p4;lH)BRAl_X&*7QbXTriOEJ=96B*VTCw4`W&Ge$3s%yOQ6=H4<V5WL`RudQ
zhOm8tJ(iWK`q#zBTY%ww0Ep-14zvWlVRT#1s>a$#@TifX2FND2V5L&4o9$;kOI9q9
z>@nK)2C&EA+yP_q)2M_@Kl05S@j(t?ppO838E5!0iiu0xc|*B~k#A$n_`ffPrF!Nm
zkSh>>R-)pdRz(V~BtJh!a7J1WkN|Gn1+c{)`cEp1C!U5?L=zZ>GUlEhz_b-PxVi{Z
zSj#3n5{WnQ%d~`O-~Q(G_s+2MoMCGDo_>@QtR==vc8?TXR6^{}k(8vM3^ngYXV@zu
z3g*rE#%lA=T$-SiPTLt@iwqp!faK6eXHssbuFzRGFtZO?;}oH4Md*(WAt;^tV<c;3
z;vrE&?X4^l==h1Bs;A;OEG{R2UbXm(-M2TrBZfspJJ<xP#$p-Sd$UzCuCo{`KTpp^
zAYdJ*Rt|2IECF9q%{0~{IE7UTa~rDJ>De)2_?8z}(1I;guqPGqZo=;5Z0u0&44?*e
z>sf94>ij*i8WI(Q{0{*Zp>JM^Iywq;=Kxdt02rhjtWfaR%VtTT<Pi@j1BLZ-*Z7($
zo&ahWFOy<DyU+CSKJnkty3Id_VGXGbpDue!cu;Er%wVw4IK4t-4_m*yQ5dT=Icy51
zTG^@M2{xp+MBx+94U2pdc`R<Jp5mZvuHasWu;=u%PEk{|bvmVEZMt5LlmQ59NL4QE
zQmvK~)AGoZ0W8uKwtSecYCn7<$A4x!vXEUI^_Ivx(n5DPe8a=do|aTkeQC`uZ~m&3
zcP0gt83uNSBXP#X!eGXsxn8vsymwUHe|8b#v>$MDUN-CgI$UAqb4Ik5xs-i1l6{0v
zx0c5fv@6*n99>&iQo;3oYEIwDt9)5?tUD`j0Hr;a*@MGk5$i~)X&LuoUKMMVrDENp
z=sv4hdP&0SwzYiG_u-I2LAMNZ2w5oj&hjZNHlOADapqautod`gSN_=u`4uP`Wvpk5
zJ9U`x*0b)}>b-As2N=~8l0q^1*arvyc?DKGYlp0Nu^XA#eoOS!n(0!h=lxZ9waKa6
z^v&D60i+Y3U*B!Re*kUf&D-#sA6tJ@a?K;!i!nbJQ`{1-c3`Z|9oFG>@C>?Iv;D~q
zkcTe8Mi2%YD%&OVej8O(AcRq1GaA~sAo9%7ON$g%nv}8sc2is9{u2E7%aKYdF4=YK
z$q#*-*g}?W;Ea^en_8|sTL&NCenxbC*yAhRJrWTI%|(r-aTPJoa|crN+lg9ZXQ<L~
z29q#Tg@h*fEGr?!_2ZM%0byAYzTy;i=6V7?DhP-dKVoAt+@J-<MTB~Q_Hr@R{Z!o(
z`SDz8kNAZKhb&;&<Co^$VZ~R0M9s^O!Q2yWFuO*zmi@CU&sKHnbLJ<$wm6S`JzCuG
z7-0>ogYZ+m8FzvZTJzy=ZK}_Z?MQV4`X3zN_|8JQ`Ui*D>5qlhR)&>z!?QtcgozRZ
zZf)0W<6m3&hrOTe0-P{;>|<ehrykDVoj)M%{u%MQ6INLEWFjlai&nNJ%K?Vv59N8r
z>w1%*a6GMkQZoxVS3BVok-raTsXtp0gyK`P^CLTTnTc3c(-Odc45ifXsP2Ti)90^c
zE){Nxj8qGMx(nB0XXWca7*(QX01X=DwWS!ci+z?WDL;63X6Mw`XfA@P?;WctaPB_Q
z{Kp;O$lEX|r_|E-r!eVQ4TWQaWE9Gn_tuy=b9PVLF89?Bd*tS=c7r^Wb*Ay<ME)?l
zK^(g{#VEn?O{(fcd^&e72V<wLug@KVs_qPPY?{i$HhdK&gw2n<H{0x{b2AQxsVqOd
zd7uz(2lw?<Hy0raBNJZw_50EtBJX`|h-gBnJ{G31!>KJwvp}i5WHMWj4K&lX9qZjl
zt6u^8oPs@37@`&L*Y6@*R0bPeKc(OC-jBC5r|tU_S+Vz>dbaBA8s7osLT8PW?sq>G
z7%{$;xGl&lB^dXvbZ&G;L&eKDTU0W_KbMA2v!Y;ykxc*-Pw7<J;}K<zlNJm8Ktn57
z<6(7z|4&GE|K63TN?r(%;~8NZ4r&a&n)^Qcy96rwYMY%NaGmo8n89~r$1df2D)TWh
zY1OK%Y4$)^7NsiL1dB<qt)Bh*&jyWa0A8lPM_X#J?rBtuWhK1n*<>++a20@*b|qe9
z%?&#?wNU!xD+x$?Y>U%;z_oBCcFqV{80(hFQ^)Vb6|Bgb7JB9JotomlWq+L)FiMC)
zunyK)%otPiAyF~FVez|h%5@bnHk7;-NBuWuTj=`ssG9dt(y4yrdpS;apWd@fFp?zJ
zqo>*F&1kswtg^kbrC~Net)1nQ*V!NV&lc4U00#y4IL6Ae)`f75llmpekyH{6ZZV6z
z!1?sjPZBVIi1u?BPGR`n^ba>2!m7!szQrnQsTF9`*196pt7tZ4^_%iyc7VX0x{3XW
zT2z>4F<bZH2y>{)?7?s$0~h4(s`0le!PIS36CBPyq1dRdS=Zh7r_f?&L3@rQLkDG4
z1fL&^$^p8s`h**<^tXq5`zw1lLds7E_Rm}DlX)MtTqI?WhrP^ykA88L7n<S<4Ufex
z#s4!mlJL)PkvIIH<N5I82BY`?S^L<1b5IXs)0#hgA1jo#;TBt_&+t1~S;wf7otO9n
z35roLhAH}!GtPQXO|U1sMSA~dcHwoZ`_6gJ7uJ621g=`ctxwY1EIDx!Dg|5|I;K2}
zv*)_p+(>Co`1ET#B1Ja*9VvE_`k?V=r_e^^dmDb}Kl^qb+fM0^7y`cX;cKCUM~Cxm
zd&0WJrN8e+l8%4nwY{F<WQbxd>`JkbNTBh`fc94%W82x`#&BezHO|?-I(-233c>q(
zK4vvLP3swseO@?dC(`}T6zgot?Nt|!ED#uJs-=6x6r+<gdUw;+Ws}|eo@}A|;8g8)
zm=cY|zcdoWS?TMS%@V12JV>s+Ac?x5$LIf-rD8LYGT=zfe%YKpVX;d=68b#e0pe_^
z(nI8wdOO~W-VoRI|0qA-0C^Mtfs}ecu#@1!Hz9DvjbP*?k8gNKgu<o^pxFkx8zr1L
znG`$+`oW4;3gp*7;k=;P8F?M%#F>eC#my^Z6d4)(=O!J@G~}E~<$47OxXGP5yBg%v
zr9yTA-A&$IU;_K_FCle|knAf_U!%^!-f!o*Xy|g~rQXj+;_?z~q{ny#tZQ*gJN|03
zY;f}h3J4Ev-PeeVoFX%V=gH!Ns9Qj()2K95z{_IQh|i366=I9sN@o5HP0iCdX@UT+
z-fB8qfCXxolXM`R;aXLSZtN4#4XMJ0t@Zj;SmB8TgGq?E?lC3G+A%7{k*f))!&Fu4
z_JaCev5N@};vtirVbU-W>!UdE1`~qp1pQ^ZZY%(P8GMFnRPr?Hpk*Z)nd5Yb(S&mk
z&XlQ7AVih%Mt<_#)JT9f%lItUv=|17OAP?N8{~CL(%fY>c`(C9wkY<^2EpsZoseKe
zPlg_UraT3xPC|i@b1$vU#k=1tpdXXHoI_tsu0C0}yQ&-5!m^ICjr)KHc`89u&hYxF
zShhzKk>c6+gDeH|kTO+_yq7{=p8!_5(O>S<Rb~c?KBYeeL<}DJlQK49vCOP*L0o+;
zv?xl7qCU?A*U+5-<)uMoE6oKff!f{dWb0X4+~2eG%z_m~+q|GxU0ygJD??$=-*HJ)
z!TXjIc?Gy}8B|1?`OpxfZxxk4VBF8`XNmq*H}oE^-*I@ZotqtVl^a5Jw>xMbOrSGL
z;-@Qd<vgCp+8dxxviA3?q*v`2*NJL|o3>byw;jG$Ry6T|nx!1Mfrk%ElW*62tOf2n
zI&0(GkllxwE;fc_pwO2geURKBjXre<x}AM|k6m$E0Jq38-?DJU#vR|Fp(}CP=%$h<
z(eQ!yG3U5uyBZ{}2RPWuuNz&50L(=o^DYO@>64}W7u~$eL>~*F1SffQU)1ky8@YBs
zt2lp($-oUqZDG>!h?Sg3F6+}V$#q1~oeQ$ir!glq+COIPfg5Wx*O~U%v<htRoqZcG
zYu(02!>yWj4_PZExVuF{VYRILGLfh83i`h8l|;(Fd}3R@56t%*zms*E8ZP^TOS7Iu
zN(3rOAn8k|;0xK0M23c&I=(&Gd}{Na?)*b<n~xkl9BZ=u;)PE-7smEV$$*v4*niXR
zzMW}N-+jUT?R)=-u|si(nTI%&-($;v|Lc&<)>{GR(sMKBjJOH5%%aFWdAZO~D#4Yx
z6rPRfBv|8m-Rf3?*@ZmnfIlF3|36)K((~++MZZz9k6_`~yw+CJ2R4corEf_ihOf)k
zJB}xGaKq{Gt&4_!ejDXd`c?b;+^VDrS$l_;2F(fyY<YC#pLmaq^a>aJ)HRq_7IEGp
zP@-6eeXJ|<Q3YiYKhP~JE8%qcKib^!1seb^p>AcLjEa27G{lvym;Rl0WU$v-F-Goc
zEd#fM?TRs|zJBTcMlrS(c08>3^5SCWVltR<IV45FOB)>iCz@>|<hDSfoUEP2@CxdE
zNc^=PvWULd(oOP2vz2R4QYNpYb%AToQ0jWJVrQ2i!m8#_$yEGKm{J&AS@#G<_Jl}3
z0Fw4NC!@~-t$jQ^3~i`cwXr{oeD(JkVD00&rzo?S`lFO8uhyX#=suDen!z^Mu)$vf
z4_T9puPnal3}htU4X3?}E%(Q781G>~n!}m52<7#W6i;oXHHgKuL_DwF61K86AzGoy
zOx}J;P4`Lx7WdvCEjc5K-iZT*8s+6E?Ivb4dM6-b{?pdQ^P1G1;(>FDfG8ODj!}0k
zU=po;F$MIgs=P+)TpWCJP*NE;_ED2YEYK}VYvyPZOoTB-Rk{DFr$GEV$mUy8bYyTI
zft1BJRa)bMk?06z%A>4_^9s(^NXZOuH()^wCctG<G>sW5hkD*4CoLXUqR3ciNw`fl
zin*E^6l|e=_w;*-ah$vk*hXVIOR_tU%K(4yUYo9ydJ+4(iY)I}YYv}@Kj>2Rj41v+
zI@uX=pG%oiQeZfGI(t(uIz~l&zvf!jE}Hbqm+1O-K@vEOksb7*%>KUpuZP4ed9*ic
zQU=r@BbAf6;FS2)%(o}nj5|9XZyW&jmfSraHbwk{@{7t&HcctqI>zeT+!gI>Q8oe#
z*#RLWzU%v$zwB96S>%`$kkaVssciVb+zj}j*6<UR@*|Wj=zt*N5zW4=@piC&deBdC
z11}cS{K>hp*SDOJ0;wJOwSElF2cwe4;h6d}lyZ!L9tEY{pZ^Q#xL04Cp1`Gpv*{%4
z-j(b3?4qs`mAt-px>{)8dS;+K(bD6%APtGCo4WKRpLsmot0ykM+ZmlXaPJrh<ejyZ
zy*hh&5eezMy!blt<D@iZJ-l_t>Tri<;BApR`V^#>c9oW8jp%W`YT^nK1X!G{4quua
z0-}sR@f0qk*U`s|O(!{DM{pqXq4H^9Q+b$8RnYLjJ!iX_bbkV+mYJP#uj;Yp>}Rkp
z@5fu{$6rh}hLiUXRs}kD>a*)Fm~R1@KitY5&rBK*g}9}UFLyHXlyy}oaM=Kwno)l(
zb(EuGNFWpy7)3Y48}WYBvuum~h%&gv&!$FawTJGQ^mL>;DQAb>RN&UMXb#8j=K}><
zdXJScY06veqNUzcPG-a+#X{TjQ^WE*)rpI$h-*C^z_F1!>yUNQ=y2lrHb}fhh})G9
zTzwT2otYkwI<cao51>Z^o4M9XLdPG3r4~r1Rfs6}u*B*r61E0ISHR)0E2{M1<GM#F
z2Ql@A6rog=!~}0YrN+PKt3y^!FNruNiH@D9VxY}%FAD8`c@Yl|zOq;WPJo150gp&*
z(8w-h#IQK`?5;_>ffvbx8RMrQM(A+?MB&A_bzGICd`d+io>-=sVGPtL7;B|l5<K|f
zd)zRLO!~k)leq?FUs<Gpxq&qjSZn-;Gvv*RQDyc0370JNxFj=mNItUBgmSvF0b;M-
zfj2rz{~nMy`oHAiXVN3}YQI9}INZ8Rdb2TO4e22Td+%qcM8Tv7U9ccnF5U;*YYy)P
zy~<O57a>gDW)BXJLQezE3c|yFt=~Q72(c`v?Hr`JDB?fj&_ktDm%jaIgLK{|{sKB@
zRcuyPDIS1A=rq9hJc=+QUWdpjfWE~()`K=UN`d?5@3QmvL}!K$`09?oFi8(;dltF;
zR<VOd7IJdR4MC0H22#OYNcvKlNXXX)9Em@&!#I^4#jShVr2taf4-S)Q)`SS(<q{RX
ztkqTL@;s<>a5CR(x_2cscM1&O6rHRyS2I@T)s~!_QF_xSJKVd+0tEWQT>Rf)K%g(z
ze-+<M0)b8)-+<JA5B#s>QTcjmyIPsxMBAXOzr@eJ=op46PoIVek5KkQCNUBElwIfm
znb+}w5CVHhEYoOB^ZW1+p$3JEF*rs!r7x;OqV2)829$k={UnAc7B*(#Be-~KX|);5
zwhXy6Bk81iTt+_~tF}T{+s(OWj@w^HEGVRn7eELsgOz14`>8+@es`ZgdUstRd+y`y
zl)Ts`{#0Vl+;Ip!Z9E^WIGw0_{GE1jqy#*c#f;-OB@~>*rjO^fCHB7@2Pm2?wm=lH
zx8UeJaKHZC_B~UtzG3ds^J4Ts4s;jvgABm>gJ#6L_+fG%zCLH|C=9@c0BH=ElAXA-
zKRfZ3585YG!T&1`Z9tyXV_$_vg23$78S{Z~6ZDSbYlt2x0Ps@1#WAd|brEKgh>AiB
z(Cg=0Q|t9H>u%{5i@;J;i6b<qkis~voAVh9kTM|Dw0Cr9iUUS1)F%{(G`bYSqhizi
zk|GXVGNtPg=$`AROCztemh92a-97xp2F*o<2EoE2(ac<PtsRYrGVeCa=+2Zhr3W=X
zBdt^xcPJYzJk8Aj`1$g)(&Aw<)+Skd&l-TFR%VMYI|WRo@QZPQ5|MgG12iJZWd^Mu
zwUHPDEecbgYh|_gz0XIi&U24%jjr0Z>@o2B$egoW#6cSRYend9>U$*34Ye)cuokv|
z(gYGevZgPF?{JQWBvnh@4@iMK+qzhcFNvRp%wfh`aKVzQLG6T=#&EReh%zMmn<KsQ
z8G>LD(gp5vhCLV4i%$FPy?)dZgzjqXYM*OfC2?4fCz6loD)dI1?6%6zjdU&f-veTy
z{daj3NLgq{+tmc3F=C7-11MP<BRPBVun^;MvE|}w`m{mSBv1UhN5@O?*yWJ(XpZJL
z*q><RaoxPXPiM>xvF3S+TiJ1%REc)|lOet0H$ndnuKy*t{<rKy9BqGtLRKuwbSXR_
z{~vlW-V9#)XCjpv0$`zb$~YYob&BGN86sKrvz697&{p6zCp5`3Skj>Uau}Edy9rcF
zwH+@ePy{IQF4_!}nLNIwyIey3$(b-^uhW!4Oaz#OsWY|+31_lHs+7V}Xzs@-2^=21
zrlSHBbQP@vEO-qAhMR?)YmL(Roidt5p4Jl?Yf+%q2=?i)2sAB@^hvDO#&4JrdGaw#
zrW@exiEh9}yzv?EAav=-!AX6QC<;xUN<`h5STMd4(jJyB$q6eS0We}%Uba37M!me%
z^#nF!vDgYOE?#Fl;sQ2+AK2^|cRFc;?BeBGJabJ_Je6z*fDb?e9+(eLrsXX+yT&~l
zl?%F3=9>hQnl6B3V-Zn%bxu-FT}M+@<*ruw7Mq9g-tSP%d?0O9GgXD}i_@m3wyBa0
zAV%2n_mR(pf1=B^f`(FyoU1M0_<BOSFCO%YiZX%(rHvOFT|_00S2<S)bu`DxDu1oI
zTf-{El|}Mbz`B|gXWl;|1JTUD{<7mc<nMjCFrc+ZKXm5vetVafU@T;@#ONYBWxP%O
zK#w!pWw7`*dT@x>TiqEWC95P}XtDJKv`I=EObJ$Adu(*k9XnpD{*NB4`J#X1Go#-q
zX&G99t-qMcoq1Um*Y@b3TTMyWxz-XJl1uvd6PagIdB?*|v2TLS7k30EOvwh-9I<x`
z_d-W#P@V!Cx{mH*mv<TIuFp4#c`o?4+yDt(Q9)cpJ1c~bzjP!=3Hk;#PbZ}cJHVoE
zc|S5RnTXFv9*;L}k<Pq4*!=p}9>psmA=o$4ki|5a=TlNssBNq&uyYVJWAN56ab-oZ
z?)$S7Wu7hZ;u4>`qQdJ1lZRJQ=?#%c0+Ce+USopumQ{EsAV&Qwso7X;*TsXb6?foQ
z6=w1vds1JgM!BG+HHPGrUXieggP!&*vw6F&)7peL+1KP##tE9VaFY&BT$40<e89iB
zqms7LmRHd%z1<+{23j_VIF;LxBz-S16oQ`Kp15`%J?Ms*dbj0S<%bBgNbc(74oFCc
zCT$!jv1Cxsn}e^KW3jhdEVPF!7_lFhFHT{9GHdk@$uK)zduwxtjQ*KOsPUCDD2?FC
zZ@&yoeUJ5tdI1Rd=@bdlDSy?w=+iPvxxW(1?6gq-wa3_e>S1@6G}>VP`*YRobI|6X
zAE|VpV5<ro)Dj+uW4uZg-au!B&JESxy>yc|v|A|TJpgk>3kfKLzb0dcv%yTM-;d=E
z27XyNomks-_?fTwLj}OTUxSrl$?UXoXI%btADA(H5@kR+W_OMDd++hJw8X72`AJNs
zwYBS5=sn_2o|dytscP1j-~tnLMV+$)?U798?!g!1@%wJKfn6|Pdjem0q5~A5&PwOa
zRfCgnBAn6K-PeNbZX)1lQR_%*!$tH;=xfKB`@4nj;hwENFC5hZ%o$n~pvVsa%D9cY
z0Aqoz7k10`JkE6))!fx-Rpxmv&GFe34&$PAp?2`yazIdB#&xvoO+={$WKK<(YyQy|
za$51tkkj)iXQf)|YKHnR#;qfYDYTpBTTH?(weEx(QMAhzZ|v7nTD$U&z$kbpImiVq
zR|K~fXYYF2AFNcn^aM7fLZSTun`sSLwv%KTcJKE}VebBk?mD%`NVu*9UiE98K+tkr
zj+P$r`ZenqdPtkH54zM=6QxPXYo@t~F$h!`W$1OXY|VCPC8s@FQYSV(lt+)hgM@ll
ze4HbIi_K+*<irzydwS$>df6E-m*FvtT*g_Gv1=-09D3^b_r(6uE=Y(slTEnfBsmxt
z&;Ebt(ePk^fn4o1*j}mDh+>bf*P&cH<s9q^Q%D@2gJfrp2cv-uozOb_d4E;H)K{As
zT5V7%QOjJ<ZaNlM3pNF>C4o`NWl~I~S}n>7*he|s6m9x0fT<Sc4?%7pHq!nR>GKKf
z*(^+r8q?V`7=Q(*+`8)$6j*VQ<Crr3FcHdigb>Wij#0uP^ptUJj9j11m_u(fxFt8U
zTx2xi5_u7w1vzcD*bi2{96~$73c*|TR-oLRM(RN&+YNr77&l@tS6GSKnZE7-(?*DM
z@=K5)^*`%UEiFDpWlbNz`8VZwR?gMvc|GAB2pY6*081^#{=&+%3Yq+AHftLuUWV_<
ziyPAkDAyjJ95mdulkSOeNqo-_vqCd(8DQ@o8n!>XzOeQQ{FqzNR%)ahxLTj6qYA?B
zl<t}jKFT(aROa8sS9j_i@9=iFE_LS;Ke1-~kJ@Fde<-_y9F5jH{tu-8QSX_ADed^N
zlA^hnb6RtSC#wzLBOfPj?f9L)x)xWF`0f&9zEinBdHjn4Ot)7#PYRooc@WeaeadnD
z^~xY*E-B>c7h<Axtr=3=0C9!p49`+lT1x<<(#CVZ@GE8RdGw@uM|IcqXM($UXMAT>
z?oIKARVEh6KKBMtIB<sEpjt{u_}E*FOZun5kN~V6Zs#Xt{Fh`$noWD3Vo$JK%MIB;
z^N{ncRe~F>6O?lFNRiS`c#g{)%7MsVjRv>)EYwCA9Y1ipmyfA8pfsW7vKF)JN*F7U
zkQT6N$9KWXU;kgujm@}Qg;|Nx(rw|_-VGgB3EtjQMTZ2oX_uF2`{$Zjml{)G&#C=i
zZsAY+4BdsDBR)-8OT0UYC{X$b+bE{0!q)nXC#pUET6~k1(`9s4)~!fy<@d;|2b6ty
z@{eUP>m}D$7J%Fa=7@N7sTjJh<}Gjt{#p^?7UBkS*rIi7p)W!Z#c@s<Z%HcSW|VO(
zL!7}K1H}b>*k$4;Kfb06j%0q65LH_i9~jvR`JL{95tB>4k<e6CYfT)4<#md@kH1Hn
z69?~h@13wJN)+{+sd~-}G=npS5lO(IbSb^UcddTB9<+aqwP}k*ohMN}*e&(z^VcaP
zh?{k-=!uGRu=U`d`kFGTH<Pa6sbOoEyu!^qi*Dyt9#;Prd?2BT12GzM6h2Q(oARMl
zCQXn`60yZ6-LFHP4;2q5O-$Q6(oQN&`+rj7cZP5J100rSE1iFm?EhpDOE_s9+S)t#
zt?G-VMe}n9uYdS!x~&wQM3GDFDtesaWLVnITSlRnA>E0VgcR+e<hwOW6q<gUsdB9u
zwoDeier-ZXj>BF1HkS<v>UR|Sp{MN}8UKYA99Ylm$>PD&;d57fh7?*583P9f3MgT}
z;9_qUHMgnSCo}ZNp_Ud?X>c#}tcsyMBYXU%3MLD`zvox=6;poExK5_GsdBih&sq*x
zTeC0uE-wy@)N6AGT6$=cuZC4zix74q<aJcl5}A3tHsXHZt$WkfG1B3oXjQlnZjDy{
zc9n~lpZ2Gei1+W&9I5j*u1?!t#Ta{Q=^sUK^x#dGo)!N;R+LFWr2|nG&3>w5@wiBg
zOLqYZj&@#Fah6}IWCSA740Gf@`rF%Q0SD|q(|WgW`!qT;smw6gVRFGy<^lZu85Kz5
z`IhgM5X+$axMl7*xK6KnVr4k3fN2=k8_)4QYk^JqmAUQmn;oj<)1O-xHBA!T^}_f<
z>k4{q)uT|qvu+>%c<bQ5a5iP!aLNtAs{q^6uCgb=?DoZ{S&lt1sg7p+w{gudIjt!f
zNYs&crfZ_xHK#Cl&ZBoIuMHY`by`l9a#i>F{_@r-<(4P2>RSfJz`zULPEGyf8Cm2&
zX@I(cQg1NKxGBUz>9tH&z~G75QMGunK`%cGAm`pheFY$HmUauja<;Pu0ed%xY9CR^
z&I7NtfdLucZtc4Z%_5uTEJqV7t}`RhrqrQH-=155)0f})Hg;z~K0CyBF#^3~<#%;|
z!!Xn_O8joxTVX7iuhC=93%kN&SG%ehyWpDvUG#XT8>t@e+yzpfm7U7|hzdQ|zs=q*
z8;VnLVuPzMe#Hv_{DBlZ<Ez{;r2}m>-&wXv2;<bVbPsv0<7*e*&6%kW+WS~|w%Zg{
z3c9t%^!8)`QiDz@okyg-+sgKx3Tlf7cU=i_XuYeI^3_aq9@5~d0=H|GK4YF&o7lF%
zPW;sJ188E{J21uE+y=PORRy)zB;+7Bli7PGQsR56zqaYLl+qzV&vP94n)~?}w`zw#
zvXW<I3USQuG-dh(tihOr>K@9x<>Mvaq+~RB`>>~XL1l&Uz|CJ<ZtPRQmKoBH>%Ow8
zb%e|ZS-|x}kLwm%^#h*jtb$_oIh(r9Wd{{6ubos#2l6Dt-n?!J;za*U`Z?8BWb3Ff
z*)-E&HpfuAI34Kcd^=BR>>~c`GslD!m`chfqiU!q($Sy?>KgR<I~@rxsulWv-LMZS
zC77J$KyqSfHU?loyDu3Me%)*BIOH_TI@Aj7V>d?*laso6vH>$bk;EsT8DH||IJob!
zD`#gOeD&x36i3d3)<rc^L_Fc7$fva!(Np#}+f1DZ>whthwN}~=xpH*!DP$$yH&W#2
zm_6b6VenUVe=n4I9Ypal<{mro$a(a*yETHqAqvbV!VlUCMS~c>01Jhyj>4h66J5n8
z6<>a>%MM+=;I(E1fYpR&WN%R@Ls#|OqphmttmjD+%F@?_H<Bh$*<~E9%2O5An1!Qu
zGN16xZAK8Itnu+qLG|&qqFC<pN%<3PwD`M*7XD`K_$0xZj&z+p8D&P4W}|91ufY|=
z61|VDSEBG|=-x;?yR<&D@*ch`U2i38X>;S@k~7a+8tb6gvT3x-RTbn=;{Oy2aB;W}
zNP}I$Se%TgeVFgP(B55c0B+Q1ZolsDi!#S4#Wz8aw+|$!lF)<Y%5)Yr+=LjY=)G9v
zSr&#IO#b55=9V%Sg*=Z9@gH@-+Vw1kQveW(3v(nYvxCPcNrw)s`@S3Uauhs`lAF%@
zR&_bOBL;9qG~kNmuPF|$oqpe0ufR;3Y*Biw==o$!qGRsC-f);V>d!Ra=V^tNHO9FX
z`&vdT_&2=A1dHSMsy%&p2~DKal)OJCjP+M~uch#P?rxqth)9Iuwf&tWhK~QG`f{26
zFlLp89y&Fw>Rf##+@v7tN!XuQo}~qRsEnL3f@ra2hJZV~O@Qzk591!S^D)7c5;K#U
zsjnS}oR_^$IKZh8h+ES5L-6A~m*$%J2_M(i>6IT~QP!v8j(zsEbgkRsR3$W@uami-
z`Hr8yTU~dw!f8NXNCaC!LM{_q#u^}VDdQ&`BTgEHeU0;aX^pPe@T&jTbiFyjt<MLl
zlF~1VKv&;dh|)jNrYw}3?#M{)G6OKf|1-of;wT%=KgSaxR{2R~!Px-2*O)HJ*e7qD
zTIReIjH8}}o|Ok6gh)GO=i|Pw)CulF3V6a?A<Ea7M_Nsl3Xq6(l#$nVR^`pFK(wwf
z8EzTHrzUL;MjIG3De`w!!!^HNFU-#B?s{#X!v!bBb0}#mU1m?0Hm{3fbwA+wcUr+G
zw55LMHYd8LF!RDlFq&@b1-V_?DMpp15{Ur`Nv{n)UY)Sr0`bj1>%mEGZ6LCBrl(7;
zl%VCmxNZk{OZ8p(#~REY6-s8HNiynUtF(rBo?Gn`xKgc2tD1Jx9ee@}$WBAtqW6?<
zFFO#SL`epd)5fns6cR%Un)@L}$!9&8Yo{FlmK;1u`6N`Kq*x;wf!^n^b;ArWRpom>
zq#=9U9ldVaS_Ad(5a-X)QwzZ=ChrWu6wm9YNe$LlHvjkzW?Wf(nW%W55Re~ta-|B4
zwUTk?o}bD#k+z&l3wJ{UouIH*A*ueQ-B)iw3;%xp_Y!Cv53njbL8<nM$TG)TsN5|%
zLD}JtuXc~nEVcBQb;L0r)`CU)UW4vm1FXHjCWG~@-5A(l;6$;giZHbuq_))XB51Rp
zJsO9>D~_&7J1nldLM&O<Q9xk7aXilTwNfv|gWAVW+gSvaD^<(yRO;1Dne*pAI!vpx
zlgk{3K!m3$+8CFNTc+qGOoR^QIeJL>ZPtmjdM$+=Cjyt8BC-5Rur%u=nLvrrxb51i
z3(#WP3*B3gGnx>$v|pXsPuGE>-Mpw6oaP>)AM}t(Mx`;0iB@Z_S!aEUb4pKq`=}>_
zKa7NDHuAJ=d$}(UPtP87x4^5bK;As!M7?X~bP`R<*L90%v#nrqN*OlID9~V!-N0n!
zs!_EO<(<l)pe$zaYffFBtUA14olM~NIoq(p$Nyk$a_CwAbNjh{!aJWsb|{4p>Bw$Y
zJE9C+=y;pev&Uj;0y*H|v~_vu2iWvpvPjH+z-T6?2Q1Q!;Q^gwLgymmQv7C*i<t(S
zQgcvq>yZ)YEiu1~@>>`Ak6l`F6BVws#D5`B{cdLA<!=%N*{NqQg}^>PQb!LNAAeeR
zWCFU@+$lgRttqOIcHB6OuY`Uef`eyHiu}=7jlN{1j^k^?z-<fkjC>Emt$z(^j((ir
z3v@;s|FBUV)o&<Ue|RJt8JaiKavdSqqkdt_$<(AHhjRn7Ao{8n!L8RE4Q4)6>x*QY
ziD2bhHA}}awC1r_ae+Y}w)8}1MU{?LX-tJqHSFQKE;<aeOPQf8o|6;|I5*M6MQy6F
zMR(<9jQ?O(B{2=bP0C?AI+jT)!;tev4r?M3y55Kqu7Z)z${3e|M1`Kyw=eG;!_=#I
z-FznxX-EMM-S;@<#ybOdo5i<iBGJ#$>yc=E>Dz;|e@sVpHlBhg0I3O9Wia`g6mQWH
zescLr6+x*AEnKJ^(qmpn-w%d_oM)~v%oo3d9~XsW@!>+U{&P&Snev}QN#i6#R<>CP
z8;t5HKp|Tl%CVQ9cAGrD?Oq%SCj<8<7RSECcaHIu*BD8Q)rZ~)!L=3>x=n89OEOh+
z_<C8GTMXN8m6>-NvT<?4+a80%z0urva%_F;7~E<?VyOi?V^k?oUxUKVGrs_L%(GzT
zeB^C8yUO}Vtb)F4d7ppRx$+FfP;XE)2R6Q(w(5s$U0XS&g87Sskg`M0>_K30PJ!m}
z`U;O1Ufy%ZM(t~}XhVKCf<&F5C}UhwZaKH!U0lA`rJImn!C5^r?YcTssegPsj%7J-
zly{wRM)MnR%J40pw{0XD5>**Oc2})Rxd)uHtzAD8a3B8Vf|}XBo73oZlLM$xR|N7r
z<CI)vmMl8rRTr<yXW?KkL*`3^HNRqZB`KsSHZtPMyNKeg0A`;pyzy&2toeh^%@Z<#
z=*l=1_j!KNk_yg&Dcr&$(2YvWN!8|ypN?enO#zQ`OMc!Y&B>pRK54{Wr|%uaCO&NY
z0G%@)hb9xp&{adQN1Wxe1X?+vZ}`Px(+9PM#rjR0`dd%*I<JJRZv77_ab7A+B-0x(
zXf-^pV^>Vpt)lo;IeUXWIGz*9^IX4gnALiJ;#Nel9>EflYE-sJ-m&Le@Yh*eenOjp
z9sGVZFMJ}wKOeY4n&16(D?9fdaxbZ*1^Pd_JM*_B)3%S-X!(?tPda1nK24~RTUwSI
zTGQen3aObpRz_u|C`u}dHZ3|er48UNQYr3cu86s0mJVQ8Dq13vDKbicqG*W9b2sn%
z+xs89_pjG=AIE(y=Xssy_xha2JyO1OEFUq;Aw9I{R_2q6J$q6n@qv#-YxDmWy>zCI
zzVl1J!5>%&TyfNCCr;$}JOU(veY(B7Lm2bhCI&9YU=k*mmwtL4=Ky`y<BQAQsa&Hi
zNAd^78z(8aU0%?(8`AME&^nO}b<zmqgVRvw+|X}XIZci5DI7%ffak4m^MMv40(h&(
zgF^`)feSo(@TDSdkjL$Wyw+NSBi$|(?L8W!!!uiYK#8IUj94-(1N#e=?YET_wF+6d
zNl&W#Du^B}e;D^NCM{20I+-og3Y%GI(`gqCK58@_J_B&KXG*BsCQ7|R8|KZf(BCj(
zvxQcn&m1$=rLV;eAd9k4XQy1knbtU63k!B#5?N@G6hnAN#!3pOM+dzRyen5yf#7?{
zm!K>1B_I+)2Ro6Bl34RZiw^4&1GDZB537g!S_qRm?V2=WXz|$~VHpYfva`K3w5vGt
z&P7}pwfI6Wtcdj`YJxod3EX3LHawRKtqB+V@G)FG7PwT?4q=(aga?C@vo?z%PkooO
zwxW>;e)aI7{XT~uK-<4t)lu6@DTOc&VWg5*N3e69SD0D&E?!A-SJiO6HL4<GpR+h$
zG`#W$I5yC`$@`*<2V~bdZJOqWIfGK#j?5@s8VOG{rhyc4kbBLra;9Lc{rr2Ur|dkV
zQF?qJ=j7kUz--DOu{J#VcHN7!KH!cnp>KLrYl5z+p(YL3=^XW?8I*}>pW_P06r8)u
z50GIGU!|){2mCi^q1v&Ne++DyO`S9bV6yh54efe6l&<n#gU3h{yV0*R(OP(%uGmwL
zY|N1sz75yQ<z~iOBwEmc*>mWAITonral@<x0MC{xuj83_?`fj=4X?50C5Yj(>mM#B
z;4IW;2y0mCS8C9P#}g_S9~nIn5nIVU%k07*`*dx9d7<}37~J8{BNSZUHsci$ee7e$
z5MdQ=)N~wT<X1VB5tO<%xJA_9*ePxC%5S5^4Nsjni*<S64UU*thB0g73C+iacby|J
zp~Arn_(os;6T8O36ol(j*|(p-_f>)#gsjp`WNhA@e7XFqMY5|~raBsXwdlC}8^EpW
zG=<(yuo2kLD#lY%UaB1sq?OB50Me#`|IM-4clmC?h$0R@ax_;m|KlPQ>GlL)S4HYz
z*=J?Bbh|L3^f?vVCOH4&L#(@%{hLMYr>I{gOU14g5_PG5wk+-7ldtKd3EaB&e_%A_
z<cX%ev*uPfGcN++ec1lR4}h;@cf-b7Q9og=9VDZ1&GjK-tg>x0R_-Upc7(pZSvhAW
zNTc^pVbQ{CI_*8Z;{7IPDpki>u5QoO(PTTP=W(+KtLg@p_cD(vioda$Q(1avMr(7L
z;?4k2pywxKfa$}1-688cWN!-Q)B|<SIT!0~s_9K(?#TruU1OTHXjVZwHj?_qtu}YA
zsH<=&I=?igq-HT0Z$d%HILvi{`H@QJ>V|PCK^dFZ994Npx8V2M(xp_Xa4!A|E}Swr
zgwd`FAJ%x=EdkY4jHk`tk|h&UqW`+t-qeudn`Muvvg)ex$iHCaT`Ubg6$X2>D6iRf
zv%1H+9d|5j-D>Tx1pigab=}Y$`^%Vy6ij1PWkh`UeqeFq4zRGx2Bw!n?VM)U&#q4j
zJ@&aJ3`*~3N!NIV(?e==Z9jKp*aWd{{c}_R&00HxIKZNjKjStBBW~}xRn}hK5Ndo!
zdWzgdfhv66;o%6yYtDc?Td<DHsY)Po#GRLpeY$SRx?^Kj%MAvO+>1}|e_UN4I43KB
zoH);5#O1G<_!Z$>F!b^9jgp3xmCdLDIA-W^l;Q@#(3zFi(mxe93*SieW;*6sHYYRI
zy{jv#uZ`CUuSFzu#b@}o+MCrkX)8;;#<EFB4%dZdOy;tgQ2~OM80ue77zTxor>jrj
z=WdAubLFo=s+{R(<0(qpYLe;U)Ei;F`b6Rcf}<`);BtZ|KzyAQ#7Yt7T>2l>EG?hQ
z-LFp;@jVq6VtlK(?bzF*Emt7`{!oBPBG|^~Af#&$a~{kgATCJyA|0B(bG6|}CRS2w
zW$UeN?Vq4LT|d%-A}u@Y4iWCKA%N&F8eH$&zSlUHlR?&Bmoa5eOp^9IdY{9CB8P%H
z<Dyf87CL;*=RKK%q2xx4dl*Lb0tI^%{m(dQ&Tt7Wy`nmo8Zi_NKl*1Y+7n2zTk0_(
z2lsy%ePb8w;5lv%p!ewV_A*<9>^&)#nj5WJWya+g-bpa}-!T@i9L@YT4(+r6qzSi#
z-{t0i46LtzB~IIs1xTX&5lrq-sr2~iR=#<+<}sqKO<E_~^VuxTc?Hc(v<bTxbmWG8
zL&4!ZQP4Hl-VeQyeJztw*#dr$ED&2XN1eKpbq!6B21r&63*#I_dZ&rX6zbR@JKMl4
zTFX<$duWk9H?o{pW3Fd`H)FK!e2JEX1es7r(Z*HVmW_3gM~_uQ=YM!#ng(0Z?2}q3
zh-{gv5Z6~-syBo08vV-m>T=NvlKjn-RpkDs?qqWSH!LFs-b@o!K#Vo$jyzTmg(yL>
zH9$$8R}_9hiuXVGn^sv-f=}QXOC7~9f7=1m!$v3FIpQ^UK)CdY#_qgtx3ics{g^G=
z0yW9S7@0mEj7SJ;<KnNXi3^wWj80)MHt)mbTtmtoOmE(9EYa8l9W>5Z>mzeP{>hSX
z=Si$uQ-QkeChxKQXmr~iYI3ABq#%;*Rh7v~_+u|qtDv@M78|ddW%`NLW63Ik|J+n`
zoMJ&MSKfIS)$k1?L1xxjrCl+5Wbhe9?ke=P!6FDA0VZiEZ&4-u+0y&rLzTS4oyGnx
zgWfWeoNNmtTDeRATeXJ7Z}%b(v!(u;#1UTJbTriMG2usEv20&t^U<$+^^svw#lW|}
z-I*=mI*dH%j{bFJecg?&D9vOkINhfJsc6WVg*NC2sy^pkMd80%-5d=2Zot;-Kg7oB
zhL7~m-Ke%w$!;|m5?!x9jJmL9a_IAdHMm1XAm}-x?};kSN$L6)_0E-F&^z|ObmPU+
ziPMWGS|Wd>AZX<iuis>*O(>GX2#2l*5742V!E{yk@K9s?7;=DG)pLGr;lNx{vQXLv
z$_hUPnX;dYeW5KH5{q${w`MJ_mTu0<s(v?QLhKnUlzjZaVN8|1OYwZ>4({u_qe1FA
zl@6OXDU=*hv6uxd2RN2K>Ba#jw|)h7OuO{b!X?W(&qiX@y8`hndki0n8>n*2wO0%u
zhnSQbPZUkhn`G6(FsIunstvoIckL6bx8$w__U8c-=PuvS52ujJ_JDOf%^2BGHquA5
z$|X;8$bu=~UKO&nUy-ek59K3g8XZ4jZ!o6`J@9CN8QC-B&9u#H8I7x)^VhTO|AL$<
z`Nn0+T<pj7nnZrcMQ&XTxx_%=7<j*9ws#6Y)Mc><A-2c=?%elbCNhiRlTy`?BI*sc
z3zR#gdEi!xkd7-_QzSMY2&{$Mxy=TB{y71wYM@sIAixxdX8g2$HK#N-qEufVUUfrx
zO>GJHl0AthsvG(d;HC)KIOE78yN~V+En-oTBxa|`ulMa*s8FT3LGgbs(#&2>JG!2%
zR-7M=7{U8>wz`9Pci*&;?v5u9iG2z|h=F+>wMSJ2MvCxk0j(Sfgmb3_8y&<@0+3iq
zvSlUA*C4+*AOZ50X@He77&Q82DLXO+QqA_3tz;`Hp0W|r-7mjr&Cp3E1fY`#w7AU+
zA~aJ_$O1Xo{a>9=7mMZ+CzVvt-w2p~z$zqvT(7;vNW;>OG95t{+##d@erxJp+_zPb
zhglMofZh=#bR2UP+c`Y|iYKI;K+CPlP=adC3N5yBx8j+!8v3R$eM=z_(<{(6y!zMt
z9ER$nTkiB;vS87^mFB!@)4}86PzB*2Wjd$2La1dacWpz^fi%7Yryf-`y!hwdkz}E#
z;tJv_S^Au0y7X50G`pe0rpvW-us4-vIV3&~q1Zp?H$}1bSJl(TL5Hz@-?Nrk({K(p
z)rN89P@?-lx!1Li15fhc1drv4<N)FFgqeU=wzS=_3=hC_`O#k*`8Tx|gI8qqD~XHy
zH*Hey{{D{uGtpZAfjNWe`(TJ&25)0doWvR)ofbKHeU0{%HTy?L_!7=i^q&^r<6?-r
zG9z3(oOYcvpe0D_GX>GMz{&nJ{fMpJOwpMDuS`*>bB)>oc?S^DmGO0?q)E1=3t`P)
zu(7}z#wwXptPYi}KR$~`j9%N()=}z#r_~Oxl%J?Ey|o>ZxcU5Y6if!2h2L&0()8^F
zrQv_JzG#$MKv4hYuEt!46S}G|;7t*;yE}(_*-^8l?zv^4u>pf;k|Doz@4RqtwT$@&
zvz2hSUTlYp+2-Z?<6A7B!}NP@(k%_k7UVT!*%-R~`njM132CnhoD~Cs*m@~;$N1*v
zX5ox#-XsuQ<9^3vF=P6cTmM<*8o*vkN|$~?^3R8CbvlZ|3}0U*DI%Hk<{W%yL_Wsi
z=7t0+d$*fgZ^QehA1{*QHgG7#`o8C;=id=OZ@JYx2?L+FP*f}vBqKa!f8POzpO@wh
z-pRem1>{<iEmLJFz{nwBojsjDqsCcX(uHv!vA66MsdP~3mkQD&-Fj(-GWrnirEmMK
z2(C;m7=$e%e9cKX`M<H8rv*Dykpz|A;;Ic|7Ls(8=_N;d&+bk-!4$>B5)fq%eQ=@W
z<3Q=i$CA#-WJqosn6XGS`qN&$zt2zGC)qDGarGC%XxW<&{H4k(XlCnkjq-<eN;V)H
zH`H?dv;*p(7!`;HlTCWr#I_QEK%4!m{^+s*Y}fdL;+`$r_o|k#c0HXdiET+5i@*eG
zM#Q5%_0ORS@JCTKpMkpV71GLYVz7|lH)Py7na7N?8F*(M`e^~!*5}N{PUJ4Wr~cS?
zdh`4f7t{h(ya_t{FKi@}KH0OAMz!HQg&(m^`Z~{y&?3jYBuv|6%iW*-CjZW?S<7eQ
ziQ7GnjO(6nbG6|u_Dt@ip_(&)O$f;`^iY6j$!p}h3GpL%pHS5IlFS{m74bR-;gPM@
zua<%+(Y6!0N5*qFAM@<j`d=#~PArmB<KjmPi;vH@gbYS;OAG?tftTLf$AK9<bZOyP
z$ES>~oBc$)!NT9epv!<N$ogc<Q2LJ19Z>zBON)fN;QEWo+wlX~mxEqfywnXVYLxJ#
z^n2yelPnKFA*z^QL!s%LtQ>Of@AI3Mzwm5Xlu;ZHexocO5(Uk_i*{pl7({;;aSsY|
zVDl0<Cd1rt%Zu$j=83fOe8v#au<4qg_dGIxy4J4V;C-qGC<#MI^OALtE=d6Rm<1%F
zM}4)szxVrp`Mgp^Y3=%_<Vt-#O}yRk{|s_|+icb?wm8MH`g;@f6#V4#U(VnDFMbxF
AiU0rr

diff --git a/reference/plot-2.png b/reference/plot-2.png
index 758bed17e66d8fd3f431413da8946b39359abf26..c3e47651f4c354c9755c7c5613592a59c5114309 100644
GIT binary patch
literal 26554
zcmeFZcT|&EyElwu9|y6FB7GbpjDvtkiPSj5SRw*SM@mGbLn2^+5JDIWj3Y$@N(U8b
zNg&iv11JiHDnbY?2}%zov=AVKym#XBob$ZroNuk~pYM<FtS4(hWZ(DR`|8*4y7pc^
zzHV_@@_X6uB_t#yp;!K}l91RPCLyu&_P#y9$nc9-i@?{O+h&*l0KS3GhG`uZ_}YK>
zies>ZghGtyXGg-sl81!EPZH2SezOV7m}8(a{Ow&hf^L~}Pj~Hug8ooxHac<a!#=4K
zDjvr_Jo(Aw_4!ew9r5;>f1iK(+I!cJORsz6F5TEubME{5Q7_N6|M<s^r_i5%*iWV2
z&4Pqvs(yGysO7H~7Z>+(c(b-7*GitNpAe6xL#Kub{TgDb{{8F!8wo@y^9Zy*WfD-^
z;g_<dHHn{Tc(1A@!Cr}w3PHO_^vCbOkR69thaowvXR*4`nReaqF}{?<oHshz<r_(t
zFEt$y{j22lu6pr^+SPv!jNFlwkT78xi(mCmijtNXc)VuoWe>Aw6xTW;Tki1l2?;iw
zBBl$45<WG)kq<^?X%;RR>eB~lT)c7OlCX3$pZzFtNecdjD-X9sT5tt42L33a%Epq=
zMKCeU>CVK**oGDs+Y0=+%WSMYg7LdCy=cK2(>WgaAezI)+G1gp+Hg4cv3iF488qI|
zMyhy$cGo4MAl#9wN`vSubo-W*XNNqhk6ZYxE3#g1ex}lAZRv#;#TtleIE%Tch=Ou!
z*<Vlf)ny*v$O?(u3Gf(fTyXN<`LJCHhKNOZFMH15`)VbheMiAxkJ0|rRn*Lyg9HY3
z5Q8zrn?ublTd&!1vwiDx>}tvWu#b+k^nRJp%_Sl`E#0U!rMUOdiB7_jt&8oL`;<Jm
z8wM77oo|0#%#iM!Ua1P+bT0ZL^`jppekaYnAEkczYpniM9b-@H`k;(JSa<S5#u`Im
zkhgiOdA4zAkKfQ758E9}zx#4C7um(_kP*0+zr86f$YRE0vv){HL>*gOQ9#`)e<tCE
z<@Tw^3cvPCJ=%`E#A+;xN2C<iJqyNg@6>DJO={knkbK>F4g*dC=HW;w4d0aC>KJen
zecmPCt?uYg>?=E&%KL4kQS)$e7C{#>&acs*8p6{%&QGD_rt9)gesm!Sg*V66i+0uT
zB}nPiH}(gEc5sNn#nMEG*QG`}sTX0$?0vG$lL2Ju5Lo5y_vLN)j(5!H)Kn+qRyl(E
zREC#b6MrarLQyX~O9)?I-{9*xvcR2%MbV2hsmc*b4W5}Ru`{x?d|=o~?uCC!B{r*b
zPxzCD5U_POEe$fvkC|#%E~?|juDJFr?u|z^_+Mf@kTg3e4=3#4yk)x-2`@j(R9u9&
zqQiUW=Os#Z%cXwVAyJ|b8PT$qZ{wx+5RaDg{E~GOgEDpC=1Im2DUyCxa9V&tSwa=7
z;pEm(fwf$Jkx_8s)CL8)hDCFmWcaR*j9P=dFJp^f9|uCPx@Mupz@320>?*n6nVshe
z;nVB6M4uk|!X*XP;!162tbldHIB+~zalu2<?0b1Q0!c@1M$%*FNhFi=`7A8BL&LbP
zHpCv&$kTNOPw5!`L_sx&cMVVcy*su>fisgCBsN9EfxVmWWMD$tS;GKhFB=H$(Cgxf
zo04zah^ZdkMevbBQF8$)>g!4Rtx80=&X{w#=b~cxmSEf&E!W>6SVG1_2JYq*AkyR;
zt4<oFf^)d5GL<gw=lXAATnC1*TP)U`%&Ua#z$`77(3To0<E-Ah<@Kh2GCO5|Z{arN
zulR?wO#Vz_#PtV9G{^1mqA>XZFJF`z!7oX!^q*zITnutp7_ZeD1d^xMaE5B;6^ngq
zfN9Nm%P&B7RSwG34|B6zS9K2pc0jCl{PSboC0SvNXDqhFpmFfz2SmpVuUZB(xw~Fk
zr{j&`NMpxLa7k^iEJjghYCYJqZw(W?+2QnLmEg5H__1}Niv2~q3sdsNea25Pw?>Zq
zXxQ!f9pxgdPOfmOdNQVNwlhOv*nG0@+-$Tf%y4XdXD954hc;X{zt|D`V`1P<W;QIp
zrE^dH@DkuLe)0fK=fCerqwsQQP$zjl%PSUB;+8q=7?0SO($5a{@#~IHmtJK0wV);$
zKg`8xZ#sKfWXE(&uaLCku|2V4QiGwpNIqvcX~7GqS0m<At8&_-MIT)2W@*9Brt4re
z;&4|bE}s&7$(&^}ww~X4e!J>2ai&^k>bwIZ(4tXmCzA`mTQwLJS_k+_L(7gR^^!fB
z5+&C4o-J#^gl?T(GFax>oRtMhB?jvw=Ul5TIHQzPNmHF%rMwAWi^a6+5p`>1NNJ@4
z*5oScbL_lQcJI`<E?I#-=W!|v;zg9b|4x`v$~ic@%J^F#>G!61B7k-onEi5tm7}H3
z9&+iHp|Ny{#^~yul735Fb^7$51<SGX5K0S~po>-*fyn1);5E|A5#@d^N`-2d<^2p<
zz3sIv;!v|3(3u^m?{|D&$rh&XH6qtF)A%es7bDErhEZCU04wY|fKxg<B@ffh>1OI<
z`fE>quIDr#ll*hEzLnUZnYmI+W)B5-p%?aSLeLgMl%An`@D2JxIJYA_g6y_u<y_{c
zxy@qqKq>3&Sam3T(HTu3c{}_)vBg%BeJAYZZqOHrmA+DT!r-oT_pVVvA=0(o({m9%
z^-qW2#(ys{_hYxOAYDOWVSw#MgMc5Zs}=`#5OpDb)q$VFO?13i^%DvQ!JJBklyZ){
zHW{(Tt46V6fKafr8{KivZ_k$#lbBUL1pEoB+#2f!koT;Xakx*L{Dc5WE#>?fV+@;>
zI--j{zIYNXw=J=<#5SiLmAn6u<g-53w1nB#tw(e@*gH)*8}@`W<cAIcesJyZ;&&2;
zA0{M~bhEiPM!6%o;jVIZ1ioiS`g~1lu!|8uQ$hgDz@2ZgVZ89rL;7rMxHhu2thboa
zst4&9(J1$Hgp?6nXQ?!Xr#!D--<?yGHC*zr`KB3e&SqBNJh_`R>`}y9wWtFu>a^hm
z_6G?GyoP`EV2{1MrH{kTQ0)b~OymIBvRi+9G2w60M65o4QoZhO_5Am8UK@S5ZY;>e
z(2FIFcq!zz{(5KU@xXb-LcUG6_eSGvWA5gt>@dlR;s3dT729ALu&s14vf9lj#x{7)
zfRCtuTuSB}Qxb~<C2qBqVP|$qIJ84-S@g4sa|V*H-tlZ2ohW{p4LswyjhHEU^ps>@
zP^&(l+4$$S;RnDrz~By|A+EJvB7!ivdpeYHL1-9f`%xtpHD5fXkhoGbv4e(E4{aHL
z%cgtIp{K`ZExQIFh`0#~4be3yET<*wbVM_TZRzZ7eGIw1a&pcvua>6La<d;DZb%9Q
zynXZ+?nTMa0N8AcNjH$agc*TzZzr+!{OagaM*xR^St)cdnN{&Chkvv&oz@~W^m?u8
zhgf7g`lW62W5=@3=aW6^UJjC0D)a?#oqSe!c_A2WUDP=+S6Sz3tg7?Sx7>Bg`X>A%
zx=03zA-f&t+~k{l+Dan<&?+3PWeE5@3hZozn|13q@7VUV$R=f5vu=VN37H#NCO9A-
z4Sc5^wj;`RwbYXpHM6cu?o6NO83wNjelLeu3EoeVGV6|ZZkiYoJ6RGl@7eZbyRK*>
zR96EltrTO)<sT^U_#vGVLJtmXHviCn^ZQq9G=b%ZI>}KbNE1s1@7W};Rn)Z=({<~q
zIrK~hCN!lS;V(Sr&SyBG<A%rN-mP~IJ?6}m0;0O5@SUr~t^D=UXc>Pw3iXq@r$4q^
zb~sDVD}#g2VxCo7{B$|V60vU|*3F_3GH@Zzu(S83VUmew8A2I6X;An@c`=(9>0STX
zGkh`wBUQ9bbTej}Lh9u7Mj~dJ2S{_jKB*4@f3>FB>k^;UzEBFNUK%Rv`2H&bF#Gy!
zR3|KbLzr4BVAHZm+6yVJhVFc3^r6j9n=C$l*aiWw4gvcCF|!?rnIh1$xYwm}^=%>n
zZ435Ju?_KF`;rx%AdJM8L)sz|WX6OaGfdJkMv+~!15`7ez7o4hVkF0ZUtlrQmbKz8
z`;LRw+jXb66)~w2>=ek%NK07N>h^@-8mIk2bGRcVn<E)ZSf5Nf<rlu}@6&Nx&f7sd
z#}u4gv~q-hM)P`UDy@q47#Hp<WS8OE5y{ZO(OJf{d;by1N@LE<Mc5c%c1<@%uSb<U
zZ;eSab`L;szaH*dT8sYV{Q`g|3qJdLTJ~j<)kckL-1;XyebM%?6RzfvN&U}Jp+LCt
zWY-{(8yPEG9R?)KjqRz7v^=G9&r!vNB{_M-<`N-zEly!^fw1kD$Q2;Vg>h-p|AKg4
zcuPpcAKxqc?v<M7Tw~eEE11pWT}$|Au7xJ!-HG;)lFb+F{p}iej%pC$^hIsvUkQ4|
zDg!^4p-fMTU#RwW?&gp_Uun4HPIHJMVrOea*=CGnJTF)h>^@wOUq#VQAr&ZAJRXBt
zF&a18Ej!A-=gepU#xr^rFrHEG#dpyO`NCm?Ru?;rlj(XDv$WU572}SaV!u`{K;+lF
zJ~>{8<VGt`3;UxJ+`4a?A`dfN83o}ygH}rA7bGU)%dt5396$v1#T$NyvWFK-x93;i
zM%PYmaP=a`-kIUcWw)oxvRdt>eE7{D?7<^8^EhNY`YJLz8k-&8XAx<s`BiqWMBW@M
z1hA5$kk5;U*-qCKy>xelgZ&-oOYfr-c#*GbU!Gh<J90y5m-SG^bc>dT8>V;pG)e7X
z5`8gnDnaKVNZ7YnI#X4(-MVStV<_v&tCZ_+smC;T*1`uD1r2XbCZQ}%C01*rIn=Uu
zy;2swb=KU`=tC>9(Fu`_6$Xvr7v-e(x0YoBuux!bTA)AMavSUHGScr^f#@gcJj9gy
zuc>%T>p35Q*<#ShDz=@Z_8iNR^74yHM9lpU9@pR~pJv^~CU&}<XK9uVPz2Sp3**pZ
zr57prp<l(g3b3&M`7`$i`h}>3yBzmGIevoI_hDt_I{@*_xrhV;eB@<zXo|j@{yqZa
zq<??@-$~&5ykp1?;zPjpt>zWnh(`&Ug$?<e-G^ItN(}r>Dpc%S*rcp~W=j#Utfo>v
zA;un7|M7mvOKjnG*x*G#*bZ5a3i2CEmxnijhE4yPRGbjq^{Y`<^;=H2OUQ+y_HbwH
z1D3KxRPIpY+;<N9Aug1>A@Dl~mQAL$%h`7h5)w|x-)TFQ)|)I0=PNwuWp_CdQ-<gd
zYOXgD>69I+HjL3d;OPb)h4YR*1nq(dw@kQ&mbNYdgOw5z{tu&)<HE4Wg)8oimnTOl
z5pR|xB*=3Mp^a#8ZBN__mzH;w>5G~MKQ6-CWV|wZb}BAL?Y5~{F%oWcLw*E|g!oXa
z-)6T+P`CE~w`Rcqj|bK?>m-J(6=0dy=Ly9H8pRrg2Q^B?jj3BPM;GCZ#<Tz+y$EwQ
z%k*0tiZ<KX2t1Zp>>P#^iK40P&?20KD9EyLK|E;9)<tdI=DuRL;-~I-iv8=UZdg@&
z7TXd(1vVTJT;ujo>6IBbjO)TLMZ!h%FWi4OzwAdd&CkMChu`7m(x8%%7(bhQ%Z7za
z|3)PDsAPGl6zUeY`jI_=<s>BL!oFjEsDpFMt-G;>0LtLl2(4WDq%~^p-YpX-&^YGt
z!fb24k}Kn`)`Zxv3BNbhg|W10+Yi`1v}5V=V{L3Yq17?~J#c(h{DNIZROr%zF>U*~
zdOUYlyG5+wkdr$&UokT_{AMTlS@(Y(R7mmV41aa#g^<k1=Z}j>D*3vr{s|9XxK>nk
zzF$3mh{XH~SgI(r99`64uH+9{7R4LC3ye=)h50#)9^8^X0zBxg_0@kgY(pZ!OQ~9L
zI||tVy}VV%?!H_oDi|dk9QnyEO&WKhND}*4;uP!#rF^rBy~UQ41jFh|PF6Euna(cx
zCqH5CA`^i&Of>uJMQQQGIsfmN^Gj`P6Up{p<!gI}QfZq0K^ba<y|$W)Md!r(dpN#!
z<8QIpPw=fad-Vo+W$aSg3=J0REG>Fm^15S`;hIfUq#asj5^LR&v+NccmoO&x;@<i#
z<Zs+!Hb)f(miu1RE0VaZzk?IxY$s?R7su7Rf9$IFf3J*(`DdImj!%!EEbMa^J!mRc
z8TC-MC@R)kPH8Q|?h{Qtn*ccE`UaaW>$QjDPEf)#0aq72C?V_*v+te<T4Zap<fVG)
zIGy<P58_p>?5ZbB+0wKU*RoK1#oD`ErDYN%C7RWAWM7z=20KwJ4*1-<==dOXsp|yF
z=#`P^@9X=+s+#$A>^uM(0G}K!xgSN}w=Sl>t)nn)U1~mP!F4a46pb~pMXIaAm#fT^
zh$dAZmJZ&b?iD@w$xO#T#@?cm)JXhU^mkNF0$@F^5L&~;XS`@YBHjQnQ1q}3pKL}D
zQ+S@eFHD-l${(6KLlE;lIz6W1_k=gY{xflHLOC{cYoEJ#=H(qbIBQ{Rf4RHp|HFX3
zFaJX<<o`%g#9#hP*7{#D@GaQq+l2aMK=zIJFVmEy;}3$1;dOIAlLsHs+6nE+E`a3b
zj=*dgcLp!|mrL1@977H_`5sy<J8W5?XtbQ-6=$T_zLdsZ^^h*z#d6JToCDNzOZt4y
zW~*;^*#XD<ngk|!?&qjX%ck~AMyO>ZYo9yjV)Gd$FYfH|_Rw%z=EA-FwK@GwEGwLY
zW)1H(S^RS-^Oc^2#F=IvTGmmE^RLRgP0)jt{!hS-8=Wp;UmodhVPm4C9g;;xTt{{P
zApx;345IxxY)&E}ye}u@ViW(3s&QfC`jbY75TF%UGMf>(Ib+Pek#I9aX85Zrc3BlY
zCdaCtI~R5Awt|hw0-}zc8Wl$$hZ_Kj{P)2BC=bS9JjnvTcBbx-NJ6)!4g=}On!vZ0
zA}QKrl3TR+K+9aIz{DPtS6d%`1KG8fv|sch@jlS;za@?OgFEc!FI-}eK=}h~8f`E}
zp}eZLb$n@xW=c?#wmKzxx8xiU02Lv9Lto%Djx8^}B6~nOx-JHNg**L>E%s@<6u|2(
z@R3;d2A`lrh^z?b+!;pE;_#eIBP<fx8$BVrW(zKMHPLO+)H%ZwEh;g08wd>imf}s5
z#-dtB(^39IwjFJjkVu%aPza_+FY?-`V;ISH?X8u*YM%JaVSpw|EOFNJN`(in88;H$
zR1h@BL=vR`u61RzixzV3%b1v&x~Bj&aBW&-uPmPxGO&Wp(C)t{9PTg@or*~e90L-3
zl*?$i^?Y}6sSwwk1vBy@&bX7%?~esADRQ326PEV=nQqyTW%SPBNyrM23myZ7QMxf<
zbIe0p9CkMWIzk<hTW=`&24Mr+#(qYSt(3}m%I(?QfPn{c{Su13+{=oH!-`gz-m)hS
z_chJMXCx&@MD%B|2`cl}gaie$Fiq4m0w!YU{bs`@9MX1$2;D)hGaAGB``p!s8t`c5
zN*04#9O@FHet<XF9Z805Prx*UVl+bh;kT}@lw!hnOtdXFWMI2aVQnjtCd|_6$K(wm
z2Eu*hLISzV&su8f<FiD^Hp4Dp9SR&hJgiX{`>1a5-GO8mvAEL5Md3H2a81dkDl0s)
zoL!i>rex8OH9Rysn`JVC{RoS<{YfObk~DE*XFo_>+b?N$w4PM^GCUL+7d=>=P;l^C
zJPO9urrBF6CJ?tNwVQV`4iJ(9%($Y7P4OO&qd(M@)rNBOiofsc&KSa8<i2DF12&d#
z+iI7PsXbYxH&PEA9|7w5ATl;Y5!_L*B0G!#I^9+58JcC6%+!TugL+NH8WYi5w{`<b
z3d6K!kPT`KayM<bOS<v=dA1DA6mMv!YR4hE0%en1o)~gPMTPFy$S|7RxV4h}E!CC$
zBaPtyQS1D#$Qu9TrJ(dXX1=Xg!g)oJpd@Bbs6EA8;BK-_X$f}uu{vVYk<gAc9$Oot
z)zDfAQ+8FbCVla{-t~*zJeoWHNj@3l&K+Xs&=TzP<L`Z&BC9!y!Ey`OX~3CWviZDW
z<tBsONN6lxIR6zT#u*_+r4Rbs35`V!4Q@5jmvwg4#f;>KbMFi*6EtNvw!}NswfyY$
zIg%J2fec56a90a4bi5+HB%=8V-q4nR+(GQ-O*gy@UtFy&+iYbI<Na);ikRR^p(0I<
zU}*!fcJY$)6<e(XYM63-!3)2FPuJN+=`FrtOy0cC<<azMS@UPa!0*;`|IjA%HT%v1
zL9c!*<JD#zJAjsYfFzCrw|397@>WI)HXGPqXr(dpXmjp#^aY*@fF}71)CMPeX&X8s
zWw1SHuCRFcJoZraCV)zsPNE63>UDnwgg~1yKSX7^b+De>fA9!c5O!POEgY|_8v^ot
z^1@}8L|yaGJDCJq9%0+w^t$2vS9TRX-$p58Xgi*bmi>+;Z3FASyHa@>yzBj$R*o&i
zU^xXWhcc1~$!{b!1P)$2^ET8TTL$E3U#&(p(*4V}34=|6UN#(`eW=hxOM7tfHhS=p
z#NAan!%>EHCT;ORS19ih_CsU<w_OAerear=B)=>+T4u2zJ2>YkMPIy15f4i(;3*&Y
zg@;?diyF4c3}+Y44})8<c_HK{8np$YA2xt14lD}m%xP5B?2*z|#cj6_qYt8*|9KZ6
zr~6d0^XGhsU?#18L9#j!`FUHwH=IafXg%f~&0hZ_85X&rEBitYC=N^Ry6>)6wU@$2
zzS7)E89zlE!$a`f!AIS<TW$Ci>VVT5dn})59wTHIn4J3@Ch_TL*5X48h+x$tx%6%~
zsw+7B>(Oix7SJ`?>`7Q4mUjUt;Q)_q-&hOV`T!fb*XT6z^>`+Fq2@q=_teH)rLDJ2
z!9u8J-47BW&j1HV&>OiBFf=Ro!Y<6QS=Kxqd6#feY^3s?Ev~P>Txj-ZsPZ<n?<VvK
zE}sx%%FzNH;1n`}MzYnM`RF;@wLEgTRcvVI@v+AinQm`HO=BQDy`+dw$^mqutlj?u
z6GKb5HY9B~6;Q$wI%VqlKuT*P-h_)^jSmN80CN;9yb&BopAHS@4kxZbY)LYOV#kci
zVLF)UL^Rv*5qdqG57zViIGb<gUwqcC2|ZP~h6eX=Sb0P6KGD?;iIV-mYT#^NSjFSW
z>~vq2@0*+AT|yoK>?Y<9*~4G6-WIOuUdDeb$?Z?5jS8l1_|@jChMsuA%rjpx{{zQb
zz7K<eX$><fo0<Bw?U?^-+<>-SXugUbx8a{srir;PQ3JR)@xlw9vYB$z!E`o1FAIYC
z*S#%m5>msr-vL#mHU0cr5<3~6Y#9K=;^zNYVNNNK*lNQo=*lt@4pPTVX-;@Gf+ndL
z?a+uVj)cEA_$MQti*`VRFo4_FOwPW+D0dr-Zf<5k3K!1Ke3OhytjwaFLP0}*tt}Fc
z?2&DC))@?KXV($TE*FcryJdeO_;IukhZq^Le7>|+bmhRwaP^x&5|1BSw5a>#l{lI;
zO#@~io)Q)C^M3`Il?A$C-39QQE+m7<qk^p3lpryI@h0wj>qCpOoEhW$_y@k#R(jqY
zr(`4X;i$`s3*Y3m-@S8`;>b<6?uOhHT;*EQyzmc{GsVSH)MG$ZN?E>*4F>rJXFm^!
zS0%a;PsuK5(Y6;J)`<rWfC2S41M0sddsH+Kr4MLK=!eIAxZ*C};%uwK4h~R8tH$Z5
zh-U-?D$0V;OuXJ`iCIc<Cr0tI@sP|4VYLBZxZeidh*4F*DL^B!*qTym;P<{%Jbb=m
z`x$Vid53sZwHx6|socE7jb^`=j9-CV!cTeM?PRa|T5`Xzt=rYbEDZPn#Bg8=<t=M|
zw!9NF@^x>s*y#io5q@u=A=EyhV4D*nEtdD(HFu4krlEL(s}5>wJ7a9k7HccG2s^RR
ze^zbt5e>CbBi=s_{D8++jtkbQ#n^Y=-X`d`3c|T@F#+hy$dX!aADL6Y)YTU|%)p11
zwEf{TR}yl1DEUKJ@L0;M9YmMA1(lqYVbyMaW<O+y=C28FBH4fGishvC@v=agV_`in
zObP6$vZ#bz7u-cI^^v=6rAS%EmGe7tY{Wbf&j7s*hCg0VBhxw(j28q4w`^_{u7MQ-
zFN(z5bi<9P8zvP>U^~frlCpsAS()HXp*!3`!O*9%%B^THr$@_r-nd9$fY7Ej-0E`R
z0Nxp*b}`_yI)1Nim(ngcWFve8DEkSVcp6<3$R2Bh>;!_PM%|&1NA83eTe@q=$>F&;
z+KMP~NchK;?qpg6xF{588HN^gWmj<MB|2|=reOrl^a{%&69Ch<T2^YNYxf_sp7#qV
zE$$4v$8CDnT0ik|YzJXRMsoHkM{h5oRlROs$Ro6!r9;SJv%43YIWE~ZLrwy5#M^yO
zJ-wLel4(>q|E@X95^aZsH*2yQVFKjksWZ&v5Zfkn0$WH7?3l%q(kl`I)+DF$ymn%}
zlh}HbH)z9njB+fpn;k+kymaD#14h->c>S%^!hm~%3uoXt??qL8uBalkwTFeM&&jIV
zW}+rjGlRSI+lxJ%jK*ZTr$3u%GU$tY?};k+%M`#Pj3u@2N<FI4EN&p2d}#D(YHwnU
zv#W95CIhG%x{6&PR>p=@m~BEvg%ZrT>dRP7Z`Uk7iq|ixq~_e-nLnf{Luir=3+1XQ
z$037Eo6xu3EJfusJy6;jwJ?}@!<BLloXQMkzKW72(^9>%216sKLID6Auv9-~Ofu8V
z<W>RReSR|*nOHfjyQ{($fnVrt@l4t7wBc_n)5?15$(spKeg%61^QEK6%T6h!LWy-K
zMG0=1EevFOB{(RHY^3Bq;1-SUc!4rz`)29N)|3rDUNl*r*x<(A7?k|NO9-XKPPNOz
z)7HMQGomNdEV9`v7bRzpvD}xpb_Q^Ma1||cYp<-@C}qWlZyqzBURAs>l{W;_vQjtf
zapG?s+Ik<Id)mYiXnS==FRt0kzGLpyc}U47Xy8q58i#%6l|{?-xzs2;5@$0*x`W?h
zB-MtGQ<fiFKg=GWZr8g_&Ic3xt_3uH7%zR%+^DKlu+VR7W+K{HqHe%JJ1id|OGX?O
z#Haf<V&B{hDYLhs7c1VtL>v_`>1PSN4z}@u0&yUA_zehh7#I5@ZL}}<Ss`ZS#gXbI
z8-AsTWtXA5%9X5uFahiaqpTK+tfX#B={~HL);WV(dYo$`248dDKrYjq0kp`ZW&4+~
zn)8M<<qKcf29|_#zV*#YeB9N07CQ>pI5w*0#@V_Lcy=_)YYOGV|7ZlL%K+KUflEkS
zqtfK$UMM)UZ?l~URTcs0Ke(y?n$if7g@pbdiVrtFx-!f%#bDBdc8b<p$M*Cm5wp(T
zR`|yKyObTA30fwBl|2+P-yC1#WWT%4))K$q>Z0{8uOMh1v;<o)KC)<Y9LPN*hvt}N
zn_r+x;x+Vqg!fwnRqQF%gfY4P3C3_qS8?UH!<9=V1yP|xr)V)%U&M_!iMqA{Gad1)
z67zpH%6)+}0Jol(amxV5pA~2PCJ_+eZ?aPkx5y}i#6tte&h&hn_qrwRE&r+B@#9J`
zj3d{WMpGS*B!u@~5jUYF=41f@caMxOL0kkDTxD9QZ6lz^|H#@N>OFTIx$ZPGd@mlX
z<2oSjB$ue236^9&ped`)%h^gf+*TKFq~<jUc0}`R_)ahE#Bsgp`<o$6=s_F)?Ef{;
zVZ(o)Yby@vCHG$_EHdGELEe83$Sg)exx~ULY|Wc*+1~Cmkasrz^kwadAGXf4V&vAY
z^sVirCH^aXF|O){S%zvC7cAIeZvQ9o8a;R2xamNHmZe!L2KrIYbpRyhq<f~Z<nUg+
zrCoO6!T5WTBJ!hLyns|lQ5IjGl4#na9{gA=M+x$Uf8JXBr~Lop8e>Z>bqMISD#z)z
z&mK1tyGPSiz}zsl$c`)Son_M!qKj-2w{ji60f<`{;{fvna>D?#VRNQ%o>c65T_DO{
zzacqn4eQpeuJQAt2@-lh2IirF&M_q22x|`1zYqN6`PJ-L_Ez*u-d;RVwaOKW8|YCk
zB1{lZVA{A)!ktX-*4b5~KgQrmr0p7mSK-0PuUCNM8{jkdy~qu(BiU~RCG0ZE)tcKu
zb8>R`zaU6iMpnkLvwQK`2%v-L9K6gmP>vO8?`$`dy+I3j;qp<Bf2H|cp%RdK&M*Nu
z0k*7U)jy6zr2As6zhh>ykJGr96j#{F38D;nw|dr&2Q(PX7C+Dw@KZpm={N#l1?U+3
zX}($)ffoRd|88B;Rd8vnV^oj}fQ$n`Y5*qQa>>sKx{6(o!2(d8{9#OySIu0E2A`?>
zf!qUZx_VyKE}L<yaV&qRHP+_9nBhPPeEEc4cmOa}BK9_`0h1Xr<kPO<?j#>N64<Ws
zXMkS6dB3Y6tzlSYli`CGu>aN5v-N1(z3e1F44%mCz7;QEMbSFnyeO8PBMKF00>XRV
zLwe1gmnI*~zB8;!5Nca}GxWN5K*Ut^uGVH5%Kpyqv+X7o6J24HIyVJ+x_#B`%7Y0t
zptX?vud6yW$Bv}iX%gYagXF4O0T5LW;L(<w|HOfSlYQh9%JFqN#CG%tAYj}8T1cDG
zGL(1XyR=ctXD5GPnjW+xWf(P33`%RmEAuz6aR;edBC;j?-~Rj^(`T>TcZ_b0^?!to
zuKx@h$HgJB$|ls;A(7{sIIn815ZufjfbuDhWU&|CvTivTW*JajGsFPjom0TCsLu0k
zHBZz478WH;pcp13P7r552vf@^o*IK5f)2g-$!$OX$nNiU4c<9==sxk+pZ2-_wyWm8
z^N)w`ubWo?{k8i^S&G^|=j%Uz{JHG$FGntrOaA!o<kQ_{sxctdsf-$|k#VSR^vn!<
z0l!eZz~gh-benD?Zl5&^Ul_SLYzf&dah9Hz@%qchq-WK%@dc0cB&-+i3A&wRS+ieG
z%(1TS^HG<pGJm4IIU6xJ`NZ)O5S{DjWr<^P)LA;z$C8!e0Cel5&U4^~7g5E#@#(l5
zw2M^A-1}>L0=(dx9uK@K+{Mwfd4W}@GSg-=og7UHUy;S@pLv*f1gJ@0G?pwN+S7@l
zNRJJRe_fN}=&_M@cy?g$f}!~R<Cm=WGYP-8JH<F48rzoj|Mgu#Ron8H*=;f+kqf`!
zxP8wwKrD2JededaAkL1F(}!k_bIP{1qldm(!=bdRiw(fQ5NNMm7EkUidKlDANP70I
z@;LE3u#u7q$^)_S36yOaly2ftbqW=M)3lA`ZGr6d`o2YlN1tr&gQ2c3XsCOL)bS3G
zw8~(k)ub}C7`nVhWX8^qLANX3hWvw7m811&Tt>z?_c=?Urno~;o;F~P1A|c4aTH0i
z7$N|2OdU1H&Ekx})Ig|(dC<%rkH{q40L2_9?05QBu$&C=D`X;6QBY2)wudWI{q)LQ
znxFVE>E#Z9Q=Vm6pA)lk0YL}VynHn;-uhFo&3#@OXc*mYmVOMtvl0?7Wz0L@&Z_u`
zA0O=p9veRQQ2tgwsk{WV1*mT?*hW?SJl*@(xBRZQWq~aITlHfu(l!qy{N%LVe&U1J
zr9agIii9qwfRvy?VL0u?t$Vlt$$s&n*M*DL`v*c-*+X=6WDZD}aR-6ZJhcHwpq{qs
z^eKvVh^nCj6!bvJh(&%8bYTR2wjOrvu^X=5CrwhUL(hcMKY9+!m8YFg{-&OOfF$&F
zQ*kF#;<`1UD?d5Bmm=eCERq0zYiK|SmM2x;jja{Uj*6E%^_KsJsG?};SE9bc9`QGV
zER}Q(kA|8__KAtV*Z0eQCfG~YZBX;A+J157{ZvMVm)WWAulFuC3)+4<JMyM%i?X%;
zqoj!5rtkdJ-nQePB+5U>Ep7{O^(VPUE9=VBeu0oT@@OF!aEWCh7Na*9L|*Ueku&$z
zp$pH(M}5F|-ZeZOzwZME%<uU7$kUv`&}(%kk5*_>^Anx*=cAj>JRJ>S1wyxfp_V7s
zn^3hAjeeyL_WJid-Tv8QC{BgZ@MZJXapTiem}T8z>&5vbKLF)?YG7F|zw-g#{@%iJ
z`6IBl=byU}{9=n`0+g9F&apm{&bqp62z7mar+YQcZdhm$<c%wm>_g5b-Kd|^xh~yN
zD|d?8b6F|VJt1@Qr!DG06#~|Eek}G)6${|=kC9)X@rDc4@`3LU_rlF)i)-2V44`;;
z%u`qtURkv0l7Ygr#wVbzef*8SB+K*$qYojprMJwS{Uo#HdQdXhMyaDd(b7b}JFG=J
zj}hDN63RfL79S`X&3gjN{~o?Irj)(cXmm#}{L*a0QXFC&=%=q$r0>wqeXMU=$f*Ts
zS_J)$E4Mn*0K1y{&aLq@S*)<>pY}6n&TCTxtS&99P*)NoR3|*Ii8Lco2~gF|1d%Lc
zKJc@l@mFhhj;ANepZ)L+^(kmA$k#)j-C^x%WZlf^xYVUsZtSv}2?{k|js+pEESo_i
zHK?bbMTtF4PYZsZM~rSGI>=U@RH)LV!a(}Q)H>XV8Z{<w=x5Pxw<cvy8aQ=X25~@^
zS8Gm+W99`|PVA`Q>tC}sx`S|4r#5ckj^>Yuqs6W0I9ve*Jyvu}Ir$CfTZ2~b&fjA6
z6BUp9X4%uf>~|F{{qKSQDvu$(`8}WZ^URj#bXNXsQb0qbd|zrrp+f(_StmMUha^)=
zEI}wih1?E_qd^Iv#;gzF*ak2)`_#sGh1_>%rH;?+e%NEIOg$}0M>#ihcXZ@j&UJnu
z-I<fPbrHwth3}KN)`YbL?l$Vg{Bd9U<>4dseM^87J-_3(6DhF5#hls*+KJrJQ8y0_
zqSrBXrLgPG`HUBj!+@JT&nRdf{ISm)2?zP%#PR)>VZX;iw%2{Ca*<xym=MuDAdx%8
zTHa4K&@fvLm82m_%x;V%ZSPrLy#8d$2(N*c8KSN7wa?nJlSx76Gk%arsUBu5gw(Ve
zFKEqsRxG@HaPTH{@w-ola@<A6Az^U!{<n~y1Ns)U|2^>kBoDHA-HspTquQ2>3oFHm
zKgB>fOm$Wdy8SCvD)Ef!#%-Lms{Xyd3^dGxY&qg|bLQ-RCKcrdq%k9P>R}3tagtgH
zjeI)3WbG^7<<pHL^@&RlLD*_4t4bAx#(_V4>+<>HuKBYfp-czVwg4mr#2|DI2tY(%
znXIg|al}})Sa-TtKxEEujufpSDXYmZg1c9(c=e$CQ~G*TKH9?qD$_aptqYkhGWau5
z*@QC?HR^M@q#6UNGOk_}?u<03Ss+Vj8EJk`|Gm3uPy-JAg1BnF018w6vhaK&0d57?
zryjt~nb({gKAPy9K0ZTfH1AacZ4^b%)?WmyAE2b^-7_HHbgH%6_x&Ptf)*!_)2$}Q
zDSA|rXDyU@0OyPong0AWfD3cL@<lU#PXuN#Pqu5SqTo1Ft32;8yQ}9`H&R`3JnWjH
zd6)}sDtE+RTmYVUAcv~t+;3Z6OPd9RoD0h5WkEElg_30PS$E3LBlYu!<z*2c56#Y-
ziEsnQ7<&W9igOo-!__Ot$(-Ql6Yeq2p_aI8=<*}xN^)*0>aIAU>;Lq2xS`wb1xM%I
zCS9c_6jz?+Bi{6^CMax}_n~e1!DXVmJ+4l5gSp-*R_WvivJd#y4(F%ik0}!j_r72h
z&QNuuv(!lphdOreXRfIOnlweaBn6f0iuGjutsQXh`7ZI1<%P?D1BxEpOZxW!Acp@z
z9s%hgJEtF}pF-VB+qf`VOvxUW`_`N~p0-O9S#LlclPz9(7(FY(x>1jm-<m1ptLUpz
z`}eR7^r<em2+E(eA_3oe1zogil}0D1)N7o2i#9j?hq(qNiWT$k%=lk3<9~w=qR8<y
z7i5??mwm?%M}bBrji-Uyt^LK(>+Bd1B@m~n44e^&>W&+6ODuy~EN6j~t}G9N_%{*a
zNb*Sr2yxuM08kV(mNtQ4p|{{TAn<^xb?$e>?r<o0(W1=?2UgWL79`f$t8DznnYt8j
zv0Mzo%C(A7@?U>^d6SVgp8RXK=9T69penPVTWx{o&r>DQkgC;4?C(IVh-JDgRf9-A
zln)}kH+6`@OB}AgV0p{qbWRv7eVhOdnP|;-c32Q>cYv@XYQo{?jlxT~baJn=XvRx5
zk-x9DEoZB4P(bJyqB{&{e+uO?5!!vCTwKv#XoW74Ij^2i*vC5337g;W{+XA#;$ZN6
zJc_y8pVU)5=8)R;r50q^LL?N!t}HwGOz!+sInfz%%26=9v&~|dfUBQ=YI=}*GDiN~
zJh=kSVNy1>d5zg1$TfWn<QY{ea4?&mo4e7N;T%4bTeIAzmUu2^&Cidx{2D|un11;n
zXuvI|a)|6$f?zd70GGGSa17`gp=QVfdawq7y&39GlS1v*c8$6-_RfJ9arH)2PQSy%
zAe4ExX~*92#bzl)WkC7YI+kFe?JF1OZ0-I$7&kJW;vP>W2MpizqZ6yY{;d`?=#hNN
z<NN$6n#06n=(eX&!0SGIS-!`2*z-fpR95=L!~{tHSL!2OyA3PcuoANG#$c(tl?!2}
zhK(l#QBNg<s7^Se%9dZH%$6H64MQhCD$j;U)y~(ibhT$0qjBSQ&<02M=U8aa=VzA{
zQ-L?gB9{E<#m*5+AE3*j(8%JJUsX?SBr6z(j2Gm@`-+I(TIuda(p{24swx})akk9l
zaktCzfq$&AutK|Gy#vKHlWAL{dm&eF2`V+%I9qu3xY;l{pk1p~zE?!}BWc$ZKN3X`
zs+cma3{aj9vNYOSYz_wG^23=CB;6Gqpi#g04z%Hns{{BR0I?Wl9%k@}u}B^zTNASN
zMJkv}vsb0MC)T6eI^DjT6lQ)}owo?y&-7i(=}KqjjR0kYT=B|fNjg26bc#BW49jZQ
zY>XHRNPR<+bX?P$%0k1P0#a>ZN_ivC?OkhdCtQDQ&N7A2%zn_s)oN{C!cDl;g{aRD
zRT4VaI?~FmT_LmUH*x71p-hyzo|g*EIHn=>4l5yYHAnsV_{PuGKTYg>W6<zod`;T<
z?r%>zQ=!Q2SHi1hQ)zz1gXCLNpC%m9Ib)p>>QpG@A?@cv^g)avwX!ah!$iF8dPT4{
zc}N`dgDQsfT$HXH$T0L)2i)=7{|k_6!;{~1#Szx#27^cMXPVMaZP;~|!OU<^G#kPu
zcBWjs!IQ83g?f>{Hg9+vSc?MfN()g=iQP~N0%Ne*<IgA)Ku+w|VjG;K+K0CbQ_j7<
zeS{3!c$~BgdGv)f<Tt$lFxB^d<c%%+t6s0;Gof(iZ70v3W6%c39~*M2`USb<4t#l{
zvs3w8JgCaMRK0u}4{DD1HRvAB)XBG<XrRgk?oPfKf1ytHI4<~wo45xW)SQIqK7$Lk
z-lnq$(t-}ETQ#l^CHWy;E`w@*GXtc~0uVVVXQm-Ynh473XPv3dp3QfDa-6yws!`+^
za(Y7k=9?W3YLD}4r#`(pjd^`>`2h%7UTFr6Zy#@%Fg&o9n_-IF+oO=Q%=CZeoDrnB
zLo)1U+mrqvT({TifrT|tc3~e^Ew18Q&$=NbFT&XClotOHs7kRce$09jezVX$6t|I`
zAqFi2eLrK41*BP6ESDl1`5|q8ObegUP+yD9Hg0ykIt|{VuSGp-)lh8B)rOk%xdw}Y
zM?ttZ&e&1mkzt!VqD|qDcr2x)8F2B5mgCK!kWf{WZJVTqD4I#&QeL~=B<FV!&{nvk
zRtrC2{o5ia^fx1wJR%5Yxm?KXW?1{27Qgzx>Q~b>$Fz{0w=5Jg#yz1x0C*2lRjo0f
z06O5yf;1$<nA#XW5TC4q;{G*DE~1_&8o-U4Kov8`U7_)oWyVw<F5)D02FgqyZ|g}n
z)(Uv93MH%5AaJUn8ZX=!ZtkjnD-d-8C{yMBr>T;OBU-2QLd}DQnH=(|4GWw$uHKLu
zljy8{M__3Eb>$;Sm79gtr9xCt*0|tS#-A@LWwOa#?NC31O99!5y`Nf40xWAZvQx$t
zDYXe^`Xmjr4G2F!X?8U=ZXRl=g6RM%)OpZlo5;{!&{TpWB7Nwu9!(Y0*r9-RI*2Ft
zdJAO!RsQDH4H()6w^yac1L*ceXj4^j5kHCgK!%&}3jEB8PN(eJ`CxCwO<F(;@VgJn
zCw01T>{aLAd%JG-Nd(W|fWFvk1ULEv6H2-PYizY{Wu}MdDCB_jPv$;2Tfn41vl0il
zqX=>9pj_>suBdPx2sIbhiC~;A6hcbWsEN@9d=qG~;`J$l_VARY(~{3@eMWSid*7tK
zzIwo1uUB-zO7CezlNaqx!bZ0Lbxx0a{~%fK_G-mRwzI`@Var+`Dj?fb^$m!$hbHJ*
z3dylGZ}nzw_61~_u6!oJ)h?}k&bJuC1Z2fTB0opOP8M29o~3)9ev6(SK=;Pyx!-$|
zba3))=|<6>wH)<;`sr+koG$j5eJkVfamijs7-}mdE?i0H4@|yCh+$5^2d^xH9P`$K
zq7+MOIlfMZ+?xqdvWkBFTa52#P{Ky$ugJOLGu_trtKhN6b>AA!>94*&$<9dLg~$|3
zvMAU)3y|b{;CCMsP3i<Fv`9<nG2#~Pm>g2ZMVzCmSvC9}6oH#PwQ+l>@s{w8ha3m)
zBWLbyaET_(AXr~=luuozmF0r==0%(;xG4<6$;CFR6?q$&@KtN-%NBSzBOU5*r<VqY
z2%P7Ra@k|8tmk${=ctC(%xTuCiSr8|*-IwpbI0yQ_AhkrPwzu{_p4Ym3=q(05;JFI
zOnF+7HV4<u1GLpkA?p^+oTxmu;^XU{&3qn|iMoYLf0F@G<IX29bC;4y1cV)|T?N@u
z<%LWdAgSsTtms75u;IUM=)Ofyk!4Lz24tG@9PPJXgDhugjaIyEDE#?&Ds)>UtRWpz
zk;}Ao)v;_8+a9ctgPOHgov+vHwr(`=F}bwTm%qp13hWABdalZz9GLKe+>>|X_Px9P
z4Jk|jBn~G=5Ukb$m8<R<Tr!TqBmQbk9*;6_vxD4-6nb}N$n5o;r%y3!p@YeGZJ5)!
z<>Y6{Hf@>7pKE6EZePn&q0Ym3xrHYxZCPi$-Lv}>HfMOkf!$**UK5gI_SQ%Cx?ElC
z*S!{tCwZk)nB9rM6lIU`fvbbsR!1yXisNRl)A@b2&F{UQZPIL!?iB?X_MK|_<i$CA
z)iEAyvIej(`=N$gN>+u!*Y{R-2PK_gRFqj{LN~K*PYd529y)KHlVz$zB=Y_`S=Gzk
z_0G}@3DcOj_H^p+k|Ga&e4&0?Ve@$zWYEDZKgS|sPb#m=`>2+0d4nV1@V1FItvWVS
z6|u6}V`{TSvD;~_yAW28OHWcp&DpI}`p<*x^H(LMFDBAop{A`#_F$7IeI!?sMeOk!
z%gjD>fa`c9@|>&CgURo!@K<ytMtz-9YbRYTL)-+KR_$u-$Td_=S%hmdknd<+pJjC0
zgcy&F2FWUq&n7U(1u&MWZoM#_4q}<hoThg-fUrP&p`<5W?<o7dSC1~B#aNUazaqaZ
z!qyaN(f-TQU|JA(0R#YImVd>?axX=pW}1zv3DDcjU*5vr2~hH3>Y@&Ix@XtIBaYX=
zTvRVT8OgU`Q}i^08VyoO+Xobs-yT?T!{l#Q_~_pG9_U!rFqh47Bc6Z>;I=MJY(Oe$
z1v2HxkIS@!n9QF2<^EnC8yzMd3$~7tPH_gJqn3_O>S^l8ujSKe@jXT@^)r~-V4O05
zD4vb~y@#EVcjN0yJ*dh86};8f;-rI~ToS&9BEJTg6Sr9a1Re72i1lU5r_oK2jP)}?
zjkRJqy6`Gd&-k>Je(WoEP?(#^h(0wASTSRKueE=>&Q?SlBQi0_{V!{r{0mxL>B6<3
zswC<hg2rbcJOjV3K5AQ5@JkX7wk^BJ!rR{n?s;q|VA@8=Wm~DT$jDGeZFvNp_1k~S
z^C-VUcVd>%eQlXTVYwuaFS%Fv+5I4woen~oBQ~C$4onHn$uRA{Dl-vr1Ltx&=RGrH
z{L5)DAypOm)f$5ll0ec`^o-QLzDlGkzYnn58+;n_c7->FeZw_fx(H_6Es&Pj^bWSj
zY%J`<2%~4S-UQyh*PA3wo7j=io@iA2YRzJ(U<vh`2c^6`<l(z;sg9wr`N21H#NpKO
z7)M6JEblar`2(0ox9V^47M400C?LnQKN@vQ_uIq{;StAUYb}9}baMz-W0=;Oe@<zt
zw`6G$w_M4ZNHUBiffIrk4<5~7%h#tHhnzwM)h7QkaD}m6f1bb>4gq;Fe~X0qWrFZd
zIybg#tCOgrHT7E}y&pAWZ69|e`{J~{JuR-Mo>!P27Ldh@M5YUpQ47{PJD!s@255DR
zg{vF2HuiCHIkTrw7`@0+7mMZRNvKz~zJ2TRS?7+pdoap@Q!v_L3jn2ETYgOpxj+aU
zHi_(2g`f6dmOsaYEvtBR7bMluR3`8mg~Z?oJ?Z+ofC!(W=416_a`f2gyT|5wtv?HI
z3Zgr<<?0PCJ?_@zwQZl3Q$0AT{?^bxmaP(IuSi1V(h{|=MKB#s^D2_)dBJ6<2-kEt
zPcG4uR0M=NS1pT(NeYZ|JLN<tI=l8UeG<j7uNuUr(oJ-mMto-P3u3QQG!Z3CpA)K=
zAla3n{*1Y$JP=>Ecl@!es)?lqWq??(MKs~uCc0+Q)`Unsr4QWaR|m&@`(czZgmmJW
z|3<SX;^_<POD#r4)E0}kB}+AKc1QQ}7OXv)N9vnfrjtOVD?zufzV>iJWCj377c!2>
z$o?!dNS&KG<1E03-D!SClAJ3I)rn<Ag?qV(G{UwfozOLT@`>cC<sS<KLB@N(m3kgw
zc&@R-FI)E3LPg+P*R~<)_vtz|93Xt<Oxg9<8RR~Qywhgyl8lpo3gD;)htr{#YQg8+
zM}nuPfL39r;VDat8vP60P?smYN_Q&fIn+_P+Yt>`4GUKuJo$CDWAn-bZggDtPb&j5
z0S1@M>EHutBl)>WJ@{4<AynVvM;mELx$In!QoHZ{SJ|kmi)1dgRGGT>S7dfJoEds&
zV7<P^DsqC*oP9M_4cV9!?0>mUKAG0@cRN&(9<ieOdS><$keL&E#>#&Yu<xv%Q2#wU
zybp-<K*nNVQ(FP;IQx#>$4n9D9gvJ)v<zy?x)wmKaH|kMT!LL2#BcnC#pR<@pZ+|p
z(8cqp)JDRu=8xx5&V>^Fr|?=shCXIc*JK*GQH^WB&bRN^FP#j*D^%~i<TLjp5Z`~B
zEYu#l7d!O#hK~8|?1iV5us`QNJHN_lnF^#V+rM$n=cmT(;()qd3Ci_0tiaT>2QI~R
z6Ux>qXN(7pN(HUY%UIB=OH1UygPqpd;Th{^t~S;_2H*$3Pp*(ZR1a_z7dwni%@=Xu
z2XJvSw@U-NJMhCVT6pH%Xq8`5BPw@mL%AX_O@;ef*wGeZ(*HFit>Tp5Wlf4Q_p(2Q
zT*g!e-g4~^`J-+zFDzsIhjW^lJpgj^?8x`P@mH7ILb6z&_0sfwBMx@@o?AY-vn|B<
ztsynIz(6&?9{!!KMFhV0K%YLOzww2F!SCq&R{%N!FeQ+P4{y>E>klGJEh(u6q)x!7
zm>uT<*Pa1fo06wFu-BG7oH&@>TNr=i_G(s}0k7ajgI}m`QCi=VZB?~l6!gikPaBzN
zEVXUWjO-&I{)Rc`Y!&@F(P(00mhV0S5Go}mG^8Wn?KA&gLK~UM1b91V5ute95n*Y^
z>7w+w*H{k1;NFlSotfZiu-b5VxM<PpCH<PRg@v?P8xpHZ;kHxn=YD-1O$=M*t2Rf#
zhQeZM`|}mwbcs!WuS~x1oD{}4>d~jw-Tay7o38W=nDSdmColzNU6!<88XJ_u7Z*D-
z(xCOzO6iqLHRfi(4v~(0ZWGvZ-E!NqfGEtAoxm1ZZ67m*`+ZLPtNSMxPOP3n4)lG*
z=e$x&Ra-Kz>qV7rap0J>`C|NLnCDJ@Po7VPDfY%7)7^>LUkyxo^_)Aa5=IF2=nB7I
z)hPn<edYj&<<k-y4kC*zT`p$=;by^}u4N(2ofQ$=Grk*rnyUYNGhPY699manx8DHh
z1;}7&m6=5varpH2Pqqzz9X_vCo|!TPp?Z}MG3j0vYw+%&8d(GdI;if*Zw&1|Oa`9@
z_IauidMQ1==gn;sXzx%y-G;pJb-zEt#{9h(^JsnV`IwNr5qbOpYP-tV3iqlpSpIs5
zSAUjixzR<_^r=rqtA**Y-SumP{6Gb^Rd#JLU<)flq+-8}ZL?&4pTvP&>VXjCyKU6^
zukC*WmN4CBK=)kHpCaFx|M)N=e&q9v_sT`=>0D*l{2NyOmjIoaQ6ff}A0tB=+u}d3
zHOc<0&-i#iZ9=1CuHl)Ffl2y|uUEy)3G;K4iRX$i_()11&<j>A>AZ1G*@ShqYMYgJ
zIEM>++W;y@2RG-9t$e)d!jZpDSF&r%(rwWj?qAdI<C-9Qmr`3Jxo=3OF0<Bj-44JM
zxP)2RD&c1u;A!uCmhTJtuew;umKQsoyBgb{@VVw^su(JC4R?VcspHy?{MYElJODk9
zWtd7`S^k^^KDXC1z<&W(sjxZ$LioL;1n3+2LFR>mJ?#3(wtBQ0GE$E^UzYY`^>6(R
zGOiZO>wCz<(Ru*T)d&#_-`!-tIj8sZX|Q6AJx)1s?jsxNeR`sJFtlTcMAOV4>5M#n
zbfVW_(xsMqvsWwpP8(y!(n2P)7G~ESr+%8gborFNp<nka)z}&axgzjjfZ4{?)vKAp
zr13RJ^J0JV<)f!pez$YiA%KsizZW_Jnh5~Z`_C#TfFc6*;W$CE#+s<ev5KzKYHJ&N
zlg3r5E-v0F>(74!REv9yoT|FqUl=+CWSAyg6%0h2oiP7O#K(U>E&U`i;elRZmBF&l
zr!huq=Ns$Kt`S2GWOJ)tEnl_C-o8~6V{JL1=KTB$e*)-&q7u(P$wPM3C5-|p!IHW-
z^(p=4V7X@n@*v}9zeYvl=_PRIf?dwgHe@zDyS8Y(!@99H?gS7bYdZl)n6a-qob!LW
zJNK`o@^_EZx29&!j5$ryY0}b}(-tF2OHD@ea+)S{t7xKPL|!IEEH9*{h8i^EOnxgb
zwLwkMs8r0nP?`{4pr+C<c+2|*g;s(lrZgxzD9G8i*7*<4S?jFx3%{`T=JPzC=kx5(
z=l#5%4g4&#Ki=fF$s%fS$;2Xvi1|BxVrOH({tgOQA5(J8*Pn5C<)RmPv9DO_c0`%;
z?m*1KZWTEU+6hoSy(%A|9dDcvwMW4sz^`DP`Kfs=%9zzrhM_(vzTtPFroWBq^aZx<
zVa`g_G2-d~*Ea2p*8>&gZ+7&vh0C2RM{!bgFcjt`pyGoacCaZG*?q2+ZH~s1Q6l%i
z!NpI>W(T~mELI26$mH7j3+%KL+dnOf(8KZBQ;mLI-*#y#!RL8IFHLj)G~K24TIW5w
zmrgQeVCc_Eg4=WbsE745$mo-p=0%=-fND%A_Vr7gX68<1;)Gt8E=sIBExmQlqegI9
zKAt_h7lkRNCQ5?wYKA7inTw>-A(2n((SK}=F_56V%1*yjHjwH`-FV4U@{rj8WjKl5
zIcIz5hw|}u9cxIjs4_deDHY#yKQlmxTN?z}aM2lbE3&(h>|e@KJY#YpHl!fqJTk%x
zG(j`VoR%rubM)vx+_Y1R)vK&Zw`3`7+Z*l>{gYbt|4M55pEl;sXU)(DU(M?RmAto_
zo(e5LeVUWtdZ0SarOL19mv@(50=8I<8nodK7)DJbGB+`-_Egp9On{;IW^I4(616`F
z%l1A{R{^j+F?CxQDbY|&z`3M$6#p|sTYcOZTuC{z%mwFV)9XOjK5;OV;VPb9mn?M0
z<0I15y;1UW>FVj4rLcnfv9<~~lB#V+0a(s1@U^o-K#X2tPB@1j?RUJsz`0rMQuud*
zH|lz8c}9357sacHGX)dbz_1myiz&5>fe(6*01-<;VU*m8ln26<(Y<4Kb8tDfR$4F^
z`DUg4*gEX94Gg`bLBbVlxwqzbPYdkJB|yz3EKSX@$3I&k{=P{!1keYGv}CB7Gg1J*
z;j@*^_tm^P@3;xk_QQ)W5wQvnP*$KYM}a>hr*pw2^+6+1@?@mgPIVC_E=7|pLkVjO
zKvu<~8ZQw(oooAt{j5Kjt2$^LbuhPkX#-Mgy&?CU<#u=;J0JD{gn8F^n050;?H$?b
z2kwR~HbpB71B8-{@p3b1du|PHdJ)C1U}upVbCxa2?zZDq)Hhe_DG!;h7ygsbR92OA
zJ?9|lh>%^BNF1xTQcAyT$mlBB!S7J%KH3Mwe~HL`Wz9r9K0VZ9`>Z6=54y>KrA9Pk
zcd24D-|i@GN(uMbZPpm4La~td7Ul%EzNPvP9%AAWml;EaN}Ri{U3wl2l?)Qs4C@|1
zAXch!-?l2ho}F-yIjLFWV<q!mg6+DUTL!3^fT%!`i7M-;!-D5%KZuD87pH3Q`lDYw
zKEg_8NoabCHMR4qCi#P>h6$JI5>Ifu)L6{`a5SBy%5M6wvyv4!M$FO4Bx+1rV8=XR
znXht;57ilxE__f&>{qT%+@rjH*zQn8mjR>!<piWp;Ogs`=9_5Wlh|9i{;;d&htv0q
zMBdPF1we%XvM#2;X*lmP<tOPhZg2@m_0q|&q(fXQK?{FA7}B4Rm^@Q`weo&vGXv)V
z(XFjg!a&VCU<>6``(cn~EuIdT%5=qujb25@OW$Qxe&|nUoE?$Ezp<Lc#V$=>4P9N1
zoHKTN7>VlWUslm8uQk>Ty+6cVQjJf<EbQ~`Q3*|o$(M`UQ}Er@(~;VYXER^V!uja=
z&)LOqu@aUdKiSp?tdEPd8vT0^t4jN22pQy<zPmntqUj6SWB?R}7WXnRDB^Ge*ex%w
zg@LP0DnPmNdWORqa95Qz<xK7u8MS7s8D16os4rv*x#w}}77&8fz@|1w+FnCXucE!D
z>>vtrf2^i^r)jkG5Hi6gs20#|b`>%qK-#%766dX%$EwEj8^6$m?Rs;KY%)SilV%Wd
z3{HE+CYaO4t7fxxF0zR~mx5!z?GUL0hJR%Z^!p{d!|0jbA#d(LNw9b<MzIi6w_Xq5
zZtwfs@<`2<hH;9G?3kEy;m^n25zI|$*Lr6=wF=<NFZHOL97#W`?k$DpD}wT;Z{B*l
zXZa3N3o%b}vJ-2YOEK}dV6DrFr(|E3bF$k-hVyLkfFLjk^P;)ro5`Hq-W%E{>69F2
zTX0vto>?6CY!WGz7uW^)Oc(?%q)XJnAHR?xd7=kq9eJGWsrlfZW2{%@YzBIkjr%m*
zr#;m>i1jP(+D0=aJP+Xy+Q5%UQd4HW*0Qg%^Il}Xq>EM%AWTVzWz>pn-dQhd1B`p-
zd1|`9V!yo-sZ_iB6lucGdZWVVTx6_8DRhwl$HvmDWKyxG#I*|7<7W~*$wHGb-rbG2
zKbe*}`GncHHx-tyqo7%`cJr_N?mTO|)ro!QPtx?KLq=jIU(Bj%;+KzJQB}vBneMZ+
zrXG`+d~51mRR0Ugswg=c%0lY!BqCi1hM2#eKMKwlMjC4@7P88Ls$fYC(7TMJ#(VW8
zc|*0R;j#-Q?oHw)<3rqhAK>RFc=DDf<8cc$M$M>~AaAiM#=D}Ej2Vq0O6B_s3d>8j
zXGJdfzfTTy|NhyD98JFquiuUP$n7+NJW#a`i{INZiM;GrU1MZjk;E3nju8mP%)PPh
zqb@I2tMf%y(AueUwUe^^G+S&DGJLNT%J`3%?cYuU%Dbnk$Zz!g!I{q-&1Z%${l>o@
zQT$bIyDM5c%2=CL<Dg-9-^<RKJ{H3EaYh@qJ4qW-oc}P76QWtgLxMnf8DkHqMWEn9
zv#_`kqpNP}X{zr4ecuPbTYTiaqq7C3R&OAVUbYz8L4;aFxV02>CgG9ZV9y#D99kM~
z*XU!{Hgr7}o~lZpzFKeINQT-|ilw3I)cs0zV3`Y|Gus&hzX;^trA7HlT7W}r6osUd
zM(`>wpy0HqC#ZG1z<C&Wx~4KJC7OO*{QJh+uAqhdjbrnJ+K8r5?RPG=)u~Nk6els=
zPm?KID1*j19)`;D&Kbe&Sx6tM)a|p(t+}I2I-e@Z0?_mLq}KLIAEzg`;i@x9sjHe{
z|5Jz*v+;K+4l8Rj`O1@=&W4E|A@jRnsZ$+~Z@h^rYhpcS4k{FRxOYcuKnp2hEG7BE
zHRoYd#2uJvKs^6`aMOs^<Fv5}Mve};qm`R+()L(5c%RUkm-U&bRIa+P#{9&Q!wYL0
zNIia<C!6`MvtvJU%&9+-bX+*cGoX)z1kna1*K?Pksi-HYAaBp96#E96&6U>rjA~&8
zKIFCn&C*|iEeyPC>YPFjEWk85jdB-hp)TRgXq(Op-x%DENKE^tmX<3<CqwpBIZLu^
z8E(9W`Z*ZcuFq(I*H?H{EX>j%t`-GjzdP%CZVwERu~1<wLl(2VZIzMnBdJ?rTbb=x
zJ^5bNgkGo-T9JOA5N?z5Zg0d1olBU&i+Quz7TZk5jfHY?MAL0U!-`g;CNKCi&~5~R
z@a5Hdwm0})+|(n9W}js|(C=PYfIIis<IqyRuOJ~L`R=glUY>IjZ|HhRGGL%?l;BTt
z>)5z(5pxMiTFK8hP2kn67S&8t=9}(TjfcnB$5D*cD9bwz6=|))dz7j*BsG?NUOL-h
z8L}QSU%^Cc_$?{EpvU4#ZW06TBB%gq2d#8}{Zkh4Ix9f<jd5l}a**gJT7m@2FZP*7
zihs>lQije>mt2z`nk{zWm{)b9&Mwz2xj#H$YL<{bcvWPb$-pN2ESzofhfD#1;p^E&
zRwn<E?}tZ5M*3#v#DVVFX-;jw@R9%a1;*H#;P?>6Q)`&m*KhBm8R_oh4G&}HsT&d7
zNicjHeoKYD+a|c*Ujg1_+x__=7j=C!m6ZJRWG1AKkxcYrX3I)$56*1Z>ZjqOQhh1j
z6N-d>aLOiHb!RIM!yEj)8z;y0+l!NC-ZK3MUIMA)-lusHQmOptvwxj>1WKIC@Pr_2
zZr)1V4#b^*TX%(hJ7@eD?KQ^i;X)G-=A~%^^1OF#OFf65#%G*`$dvju9qRf^`n;=A
z0H}Q%K$*(3eln&msbMo;&T%$~XsJ)s<Z*afRfnI&$#F4z2!!~wNX0{IxBYM@+7`$4
z{|MkD+ZgcB%e0PZfEp{w;cWHMg^fZ`%ULhoy-0k}<gzUxE@`4YH=8^rwZtb|Xv&Z+
zb9L3ZLvHj7wTP?RJYm+2rJIvzPVAcFxMqI97By&TgwmTD(#9cyjTmPC5T26KIipP%
z*1fU1ub{a?X7Y*_b@6spRrg<1gPBt8Ftz02#F?Fws65}AljoQwhLS+STHh^cOvlsi
zim-VDj55yQ+%`G!hwok?939g=?yL&|>pmQmqr2ptlsBvQd3^a(Rm(7jeFoiBRs6NF
z`>ELmMA<Evep(UuLFAyj#?ay-##6Q>NxM~bGV<fU__Mh9-P#wjg_8i4QVc^Z)yr^l
z-(tEi{Uy`?b%Ux;qVY4`*X$~`HyfLO+<vK5RC~avzgkaZtRqL0$K$K947WmFRI<ZD
zrQPNDe(PL8E3Z`m-$WAqF(HT>kvw%KE^Re#tWe>e-Z5yt!)~M&-4O<l4-vj;J-4J0
z8TxaOUm$JS02pIlt;91G=Xbei=AHwo?+>aw-kQHJ51!fv%H-*5ZveHoJt)KA3*?aE
zjhm8()Xi?@4Rb;Wt*d%h#`pt2K?Oj+V@IEj8gt<U(Fp|F6^W;eM&l0Gm1jFzl7;U%
z*p;(mg@b|+zs{-lnQkyt_S{jrSedWnb7U=l5(C`6{jsh`E|RZOXTPHP4YVyu7w=0n
zhXY1v!4oifIW%x)17h#GJ9*`uu9u~Nt!EK;;b6WftWY5&7@G8t;re(rbJOHa#yB!Y
z{WJZPBxl@>0k^ss-Lw>kMr+cIYyIgxmL-afyNuNXY|q3fitZyouJrlxiQPL2QIhl8
zt#s6)mBrk4(@0n9Dg!*Cxv!$rq3w`90-7Ft$eoL5dKW+_ZBHe8^(n6tO6z{{_WH-%
z9xxO~P*?4Z{WKc|4J-HCUx0296dmRyBL++j(+E%x=5Z^pG+#kqD&TW`M1NVMhHF$A
zy~Ey#9Y7B@@tEZEkF>HjV<S%9(4g~_Ir8Kj)8GQN-5+zQy*Oxfxu8e#)?W=jrVshE
zLGbSbmDwt32=##J<qT`X$#i_}Kx6MiF>7eVSNr6sl`gQcOtakI@T3-$1)!F1XR{Tq
zHdep7JnRa#rec-4*3|(%p#<-8AJ;Rn<*AyxpR}dRKmD|7&%#Ye|Kh5nLxK+@?XMr5
z#XFA2&OT*Ec6q2uP6qMonDnR|4XbETa4E}7dWPBpcbHgTQJFiYP`FG>2a`WH?kBBw
zxwjlt($nrN#5=`^Qo^(!-IT#~IqK+y)t7CFr?=o$^rZjZeBj4xa7%w28QXxcfBktV
z;`9L`4!VoZquIa*24-)x+$@O&7ZCIR&M_m|dhSX{ng3im%2F@^W971b4YhZ)4b<E%
zP0W0B6N73%E74L*%ZQ_li|04zy>hd*`avt$kc?H`K`P^y_&$jqIrX+)MWK<@S8<K!
z`=<K}A(vJU0UN6!o5XVC(sA8_X^!mu2Q`u!xWX=jL85bMt@$yNE9XOtWi(cu*QlsG
z`?9<VB;3e?<A0F<EuwS1?csFnFrW*S<VZpb6(DM%1U~rCD}8zn)hPiZQ*&gkxjcKT
zAun{InUUc{qRF>td4~L)>M9aN(o(4Y;OY*`AmkP<NOvX04_8)ZzimcZZCk$2<fh0E
ziRn51M!-PyN)KZ~hbCBd&P%SS>-UJ9?6-R&p>_w*#;3@8sS?stC5K_RNSG0t-<Yf$
zt<DWcj=W5Rvx1EIjWL*$y%=(RGz)TZ7n?x(<5BiM2yb6OB^|beG<4b-uXh;~uifsY
zc3F$A(720|bJMUC7bbcCo{a_Hmoi>V`!b{yX?41LDj<+D$KF`=%oy}NOiCRbhzNvF
zR{^tE-GRCuwbG2mSCTJ}Fr}Y(<6CeB$8Rshlq3?PMu`FEF2!fO+_8Seoo&Ph=Nrq)
zfOwd#a;OGBvP%<*>t7&-E}!<&B&I?eIpYO{#XjcW8Ll4cPdBrVLMf*x9)GPpJ01{!
zi(iu1;Q8r_|5G1tjl3;efb}8$wkC={dGFK6|93~YdlT#TY1aWC%BMzR@PzNrbw7pw
F_FvH%TKE6}

literal 27045
zcmeFZc~q0xwl9jMWm6VXmb*l0%K|}51(7E7l!by(0j2K)B7GA9Lr6jbr6rU~qlwZ(
zRFp^pghoI}hoT_83ZW-K=`<k(fe;`hd0*n*`_#Gbjd$NacZ_%LJ>M85xW2XKnrp2&
zfAcrz`pTOZ9PJgqQ~6FoK|v9G=9II7!ncVE3Y#x&-wL#hW<Oj2er&yT&i)ke6L{8a
zDapW(9aqkH#VaVNr^)`?lr{Y&SV7@u1@Nhpu8D<n<A~=`9)7b@q56rtKU~}N`{m*T
z2H))pU;Sg#i>-O5FZSbCpZ;~VVf)j+_C!xA{gl5|>up$xiHh-?x4&LHbba&nl)rxO
z+_(MYo&Bd?{^Mo$mE`2Prru+E1WsXmZ>0-i9ziQ66jLJjv;m2Gksk<zuZ`e+BiHS}
z|M*|C1ExrZvwH5A+}YmHWyIRcU;QeO395V>g{l%BBw>?+Le<YA;$-F{wq(CJGo;*L
z?%BUz`^jDdkDB@>ec8|ETR$$y&#L^;zZ&9j#tI6naqRjz;6*^m7OFzC<1?~(!}<Ux
zlUYGB)E%|)K~s@X!90h@r0De8P}-Nqo;9(jd}rN3<tyh~lU)Q^%yYVvnqx1yX77tR
zRL*Xu6%j{Dt}OQPyMV^n;VJG)Wcrh)1Q=K_$dp#Hnr<LtE{r#<E8*HQR9W0C*JKY`
zJ@TS}?_=8Lx#9}1q&GCdTVP+_amYk=g@hiP>|RjkH>lTAx8SD8{}N3i=WQTbIP1)C
z=6%IM-l(dz7Wpabf?xfg$cDaOZ2Br=fu#mirWyUYYg^XG*apSo$uW*q!9L-nV&F%+
zjc8avMq8(@$f;P(kn0O6r?35GK=z>_ic}z;MO80Ul*|aoPV-4e8~+P_k+|7?eFD{Q
zN)X2M(iUTDL{IF}24X2Wwe~1y1U;N?ooq<x1uHThcyeKCPm7=TM4G9D_L#BNL8h&}
zJ)fjd#Z4cdY0iIQajz?qrH>T{o(&6=d(#K6JV3rQpG8X2G33#JirbR&&^C6j?0~)#
z-N>}A8a|U!#X$D#ZB0gS(|%6|mGIfFx+Y!y<8K=2;U`!yk`uJ5H*#diYVV4>lTC+k
zVyB{ESi@+v&MfOphGx|EicFIUtNh<!cL(P~xMpQ*2iU#cW`pjum{v3Wq2Jh6iYMp2
z#Zs<H8}#6Wl_&b?ho!pWk{yYmMe(!%aaQOuYSLU>KWRw&#J~dvl=2gNw0^Hfx$@6*
z(Ybkz%y?>}Ii?2@@-3AN^_&kZnO$p0CF2=ToB%B<9EsSDFSdCpTF@LY>&<nnu&!-i
zXN^={ZYdWpMVY+yS+1kxAsr(mQGCq;QAfkPwP6p+twrB-W^H6YTFK<7*_Fo?TdCVf
zx4oq~zgSpJjA!;PKO)B}1ne|9(Xv?~z`_#Qy27rE8Tf%XADw#xg%rRP1DQT1rjjh9
za&V&?{L?2o3qwd<h%9l0dNwSE6j=854Gv4iOnC2*kjR<iJWnOJuxkP<dg`c;np$-t
zExer~w<AE4g`90|`oRvj=?Ngtt5p1;ddQsg4~~}>e(6jyv+8m4-4%B@guqwo9+I?j
zTH@EmJ}q<a<4IiDs+cu+WxQ~3E@jz7k!uFcA?-arlaN#j?=ap4oatPECg(_K68dpq
z!U(db9Mg2*lwW6^>b3h`hMoSd<Btv~438f7S!kG5ORj2KOONl)e}Ve+1&)j7MSB_w
z-*JKF4|W&X)@B%}ZQ=>29e2NBgaz!xfH&HIWQ4K7X3y<^INNL5n;Ua{ax6_FdF)Cp
z)%Fioh3fCE0#+Zw#3Cpjumd};S@nn3lv;oOW|Iq@p2g-RsffsZd@|jrge?wPZiK*k
zP3TA4kA$Wte=$e56}}MN<`zcQ8YVVy0Xv9P0~X>LTl>x3+jc5aM%O-R04%W9_LkI|
zz;+2;&Qo6SA3KhlKf}-Mn+<>s8n0Vk?)fs?{gh`vyPVgs_cN&bQ|(>yIF#wsWh#7;
zN`68X)Q*m>AK+US>{#B5=EXcN-jlC6UkQp&h-xTw=`2@8qL<Pqm5h?X_qt6Z9sO!C
zhn*+4QW;f_83l@o4S;Q`51IlxUHLxO7{zZRxzwAkh(goRRe?pLUXD@Qa|bxWCj-Um
zApHrNFny_uvVW)`bh%MdXsuNAZWg=0jS<!QC2h{))}T@L?U_Q9{~<WZOx*f?Vr2E;
zJW^2j_6JG#cij5;im7mZ{>46Fuc@TbFf)1NFXN))lWN;Yl&;U9kY)-?ao$9AA!aZX
z`3_L0>f3>dZxs@54FV>T&WTq%*{W&O^@$qV;vobrLi6?z3%Z7c>m2s%GL4G-kdAHx
zl^ZwiC+Ag*Av4Qs8T&_Vj0wHrkx>>8hda+w6MH<3x7?7L2eFF=KU01ZsScd+>l`I!
z^?pXhF0o4tj&Vl(dh?hh)q!HG_kX0;CC-i)M&6Y$_K#{dwASPDX}jj7DuhB}Wo|9B
zHquYCf@H52X<^gX+0-g`>P2)nKGrO9FAwSlu?Zb3==#jKTkyo{lA{#rJ-O;-m^k}w
zyHas{CN%e5D8JA;a{PyImgtI`?a!us0}}tpEVZ(tiB-5{9kf{tF(pVX3yP{6pGLxI
z$Pg=Q_VMe8yvlcT>oHeeRSWU4V-%CbN*a@=ntiFUYF(7NAia%VGq#MZ7`e{u?cJZ;
zwV!H3>xmrh`kuwxIIq91vQ44B8S1tvrRd|g70I<FTIvuh>N+8{YI@2zGp}wYR1vhx
zyVrhpuAqV1a(9MSzd3#d9oM?jEwPAUiK-d`qbCqqULoB-tF=(cnB*&)#h|#ZeS2X%
zjS35m(^f&0^7ZlkBD(0W*+}v4k3xFCvAzs#(GRe8qdh^o+y1bose&=PatVS_<QEtY
zfB{F)9qH*^cBHg!N;&+Ezd``vdCdpXOfCI8YB97-Ql2r+L>ta@uZ(py>J`*NS%dWq
zqacyv8hp$++pk%T+ug6;=}1Yyk8K=}r*!29i(S+)6$Ce7ZtNJodp`;)c$9ijZNM9Q
znc&TzJ)xgCt`~_eg^vL6aenx)G)O_=0xZ0xJCk0v&Pz4E0-Drdn%PH*<_agXHi)a<
zJ%zxOH9PG`Dyw3%dylSd*iSA2+acJx&JHX8-6UZ5;QYHLsDPR+g^H6at*Nams;&*i
z&oqyh@Z<BP=k97odX5A#)fhbzpQuaaJjr?fW5C~YYvz)dHz|})YmzjhbHNGX)C(U1
znPd;;iasI6-cmYL7{sst!+ZWjD0`d9+hjtn&^pP!rK_m~(Y3R=A;LceBUD^wa6NBC
zz03t%ie+ZT_SW$Adm9&eUZWfXYo%)zZmbRM7tK~wQyY*Sg<>0@@n?Z1bF5tul4y2$
zSZ}bnmj9en?vP$r-n*ROKPd~32An2Ecr=9DYOU`%xvJD-x)QL&V4;6+`Ef_2z~b!)
z<0u}6tMdX~CLUPMbz|>0TvxLp^p+btux%z+L%YkOhxKAsxYV9P3<%!`r49EN(8>lv
zqE<%y$i<OHe@4{$&q5o<?g&Q=IqOL+M_F|%=%;JO>@YiqAm&oSVj*TJ=6RygU`u&H
zu6Vl8S{mz!jvT*SkuVdw9tO~kfSp|c0Jy)?EkJKB-7`330<CA0yN89VA<0kHy}BV5
zaNT@?wI#Kit?+q@lhfedlWK|Tp-T;dM8%xEolk?mFQ6q1#(T9mydLoW?jgsXNNAwm
z5%w|94Gdx81ha<gmep$qHa^F%(BgXN7QMrudU)3mrgy-9a^+R(aZGK($57-PaCn|+
zDar~%hc%eTuSb`F_BTzZ^Y~stqw%xpOSVi+<F4;4mw%czRQcv*TkmIKf$Gy(0wN|d
z?R}fWO7v8#FTp73TS*@?c|ZACUa?ImTgjcluF~K?#E(0u#L!{*8y*QmzmUf>R?iC*
z6(b*4PPeJXQ0tG@UR(9)9<t_#`Y#QJNRmUM7$Jgf+;of5!QLTy!+}4opGkyt&Mu}j
z`gsB<l49N0N&kvO3kB-_>l4FF8c7w@^{a)E=!#RzV6x`BIr0g1Wb0~HVP9x%*3v9B
zvxs`iRxvWTha;>^{b4p=9n+f?xt+nNIPi0UHO3H>H+pO5On=g|EQE>Z{>EttMYUp9
zhp9Z9F8vecFMKo?x&0w%F@6oFm<~^ZG1Dd6RIHtJ9Wt#R0%W&@TL_;!s6r3EPKK9c
zd7U%rUr8!eMrUjW%&slPcGF9D4bAA4^g0@|)84dgRQ2}~uLNW>g>c}Ms@Bz!$`s+V
zRIh@9GTtNl32Hv3EB@Ig{-etA?*8}$*mU92MwdAmeG!9kbm+_SGQ5&?RkF3M0JG6i
zhz{CD6%n(dYUno5752rYZ&<w5f8pPciVDruAAhqoy~<1%dw{l-B|p0nPc03k_31|k
zrUzSiqCEsQIeu?+e7(o3KZH_u<HJ0muz{v$7TrjI_)$yNXUs(SF@Sp|Py#l$B{i*!
z6f=eKilCs;r#2C&(Blv{tIK=Z7>|$_mU8g9!9Q8|1p#i>yjzw8R8Krngg8laV40Lh
z>-5wGC@qM9CL#l14V<0!7uk;SZnkgW2?8bichU+)NK0{DD(4p}tqCERhh?H7Te$1}
zFOR6S*^$S)6K$6Uf5zCg46ZlyrKxiAXTi}Mtv7N!W{o!92V2d0C`F4}UJsg#x$+ia
znIayCu9$42UQx7>=l@C$fDBn?qN6dq@Dpd$QDfF<3lbFWIrwENl`NE?V6nCnLJua1
zlm%V%CF9f4OQ{np1u7vktf~*(9!=<Wu%!A!WFHhNCJV@q;3m|0u5oz=f{<DO8?XEz
zrc)2xLpa$gET^UlFMECXoTghhUboIl{b8vqm5gE3G*zvSnrQr(8EgTV`+8^Uh4_Jt
z*BC-mc|~^^yBrd;T@*4r=kQi9`uSe^!*vNqgXyJcILCIQJ^rARly>cP@c9@-aEtN6
zI1_Hvb;;^U)8qA8j#&n3vidXt@E_&;5HPU+=V$H|D%%fu)s}u;D|4D%c6)aATY&Hk
zQDhqeJf`MAC<308pAG`3^S|8_aAVFZVN=vdy9-bMXoajmqLAV@lK^Cp)?Vu6lE(E$
z&NGMf*ns!KiBC*<o?BIlpTBY(H8uI0z)DrkzImr?OjQQGVfe%R@}wD)1#A6h{u_nc
zL+pi{-V<Md^>UUuBvP8Y)TB=OZMPEQTdHi7!swJleb;3hf4}&QAV;DkiSv9GWHI&A
z*Yr6G$L3x6S@giHjaOD|0-L*0p}zQCqFjgi_E8J9H~x{E+iafbLvZlk-J*X>+zCj`
z`aW{7hJc)L#j`CR;Q^Eeo`8a+`tEP34w)ix8D`c=@b6iKS55C&VfKhu+>=e1LNJc^
z&jXKMe6(v@&EWWDwwTFw6iA`W`#b(Q{p)0zW&*%1|KxPL1f92$O_1Uj#jn{p^exMX
zNf%#SmO2Z%nXf1B$*@hK*{*2#!~TX|_Dj=2qIK?m`SP1zNrIKDb|#gt)4`(Vy{&8K
zVQHLdpUUmB5vDq_gDL-W6mZ?bgI11}G2T|?fp#Yp6f6cM99<&WKjFaWoH~<#lmhhM
z*SX{)(t-LQHU{eHfZ=AgHW*15n?0suOLntt6jE-~p4zPX<v9n&r0;HBU*S;4jCLsm
z{N!80X$8?^g%q|p+pn|!`NGScqOMSD7ufrn$W01E+c)W}e))s5Un>JPnVKT(xZ4Wk
zhA(<7m%21ICbsEQ(xbn8RA#JR0BoS@$1POSY^J)u#hPO0(JitSc<OE9a}W-&vBx|e
zgsh?JHt+wXRuZ|O$I8>n(!IA$*7w&<{Djrt(xA6w6*`6EDzzu&2k(AwKXsJ*h{HLS
z89T7=hU}dJ$*Gx=sO&a-egpzR$KIY)e}h$$wf~kKHnfYJAHfduIxYLVLYu}W{zqCY
z5lwmGCYPobzlC~RSYNgR()()q6S-OwepI1TU9XS(ZrPCL>Nbagz5H4x+-bxk^Em6K
zR{GbGo3~I$CvRwF!UTT>$y<(e0g*)Z969?>mv{sq{C}~A2x-mEfP<FLkiL@}zfY{=
zY{(WbJ!NaCBJD^V{)^%YF<i_gWLav++U5XcH2G-bG3z0++s6%63E2WM`g?DZs{S2u
z{}~yjRA{c8)rpk-@?U9tWV`Xeig}Z1Ohhx?n8D0x=8J;^@*psG1>g`3g!NVqiwSp!
zSj-MJxFtJ_g9W7=&J7Q_1($!niNDg6EKp@Cf)Y2(aBayXYi}#!`efIfTtv-Qe!{Se
zI7aX>B#nY6SsSdy9}9KYFE7r)tI9U&&VwtIjR?VYmtGrpv8%wCd05dV&4pyBlRRG(
zWkW%pZ<!mnrBjfcmq+A2l3)o~_xOYL;j&q$u-w<8NTvl*fBF77J+;E9<WRwK`xhIV
zI;k$P;Ap9@On!jd_C#fVpbL*(jwx%3zy<mGS(TY5M~t>Kc*+5@>LcJCaD3T{J~Xym
zw|k$wap;E3WsF^TS<$iOPCb8Xga;65(Az-{QmP*NqugkkZ|wnmI<j;m6c8}#PzRyB
zu9nT5@{=y$Wy(%<co+5Ldy{IQ&y0cRvKP&I+Q5t1ghaC&7Ov3p7)rZAj313|4qx23
z#Zj^=lNEXtJiSCYe$9GU5HLOms@n^N&`9e!oR=I;fHfzC+g_nC%qyBOwhu%!=CQ1O
zOA==AZ9O&Fz@cH8&$=<us@ZO)S4-*&+_KnHrXC(jW&YOQ!LlCB9W|#~R@QEFnwWb?
zn+xVprv+1-bdEIL_v?l{>Y5n$$5&#i4@}WuupFSwwU?Pe+@qR(b@d7?7Iskp$Ju~X
zzmp?=o9QNgobN?i(4yzJD3yUN8bPhX!~aAN?TO%^9<qkjVs3*9!cwjqYzsB&6@{pj
zu(~zYC$@q!#fjHSm)i*?KP4w4ab?ONb&1sGs;L_ObwHgQZxtgyy3+#lZpdUPbRL}W
zvm%#e7CaMnS^OYtF|Ge^#Fg#C|9>(0E8-SjMEl4Pcdi`|VChazbOUj|X6~2z;aO6S
zYmPoec9`yXnH?YnckZ@r<lk-E?A`})Z}3dmeQx0?C$Ccv2>K~Z-HBkWV%G7=sC2J}
zS@%#kzIx!%0D&KYGY@B=+BB0lY9hU!-`1x;Kd0CDScfdbnfkNMop#i~#eFSniktY#
zb}CAyTP<e{vOeE)ar8>qzZ3rATV*vl?F#ruOpP3As{RW`w*N&znNnNiS>(*~N;n`h
zv*sQx03Zk+N<_>f<QZ6zaptfGP*J-ec+H7t-e-0am+A@UWgP>4ngcGCC~utHoqU2s
zC8W^vBW)h!iXN+vxiltCC(Gt3rm6{fz)hZl9BBdSbzdOf7Go7iq#y+>@<IncM?Fq+
zXBaulG8f=JLx!`5nTCYo<OfJs!6Xx<JF53I#$WtqYAurFV|;Y5irjQsFz6CwNe^t4
zN2dT~*_h218`g}9CYbGn$c9u)1i2I3^z+SU<`qBinYcEQN_OZfp)6KYjwLb*pv?cn
zg=g=+t+W{O?l`W2Q`nBrig;c&a<?+yeC187j0mOpy^%4dT`s(a@@i?cy=8J=VRfm9
z9XNAw(t?aUB{TC2<An6%d*`l(x;s5}^ovs;<pnFA18!!T-FamaA6P-Ka!t3jt2n9U
zRh1yguO(wV3letPqLaytUtgR)I*affEhw4Wq6vMTs^^n%;An9Q{7Z}}Q?j8V(zp4z
zMpa@hSA$GBw@mmp9&CWHH0(oI4&9_TtiKCZuHGU%2k^6I)0pue7Uu2r%lvEqnAC6)
zH(!e!z8N#n`VGsFD5Xz$ClDDi&ofP1Woy30c?Cu}!501!qXrT&QwEXhDCWSq(JFiQ
z<dG{a4Hd{R7@r<Db3*NQCb_AvXujWSJ~k_Ou;z+~KO)!(vxtj?cLNb9pc;5R4<nCi
zX?*z$czsN=pd_slGNj_VFUcO75JB@c>#F!3vrt-)2g}}i@ow=_;cUMS8z1Svly9~E
zF3aE3&!T-NWc4LWJP*&2f<}#HvACF{s>ACeIcZc&z3nX_+}yfMS{V09^bmoloNhGG
z2zWJ9D`T4l%K?h)o5u(#0B^rR`FQKdE?LTSoao|c7VNQ6(8SS~eAEZp3gT9VL;1Ia
zpT_wZ;lmWTi=*Y2SAJh4uC#R~+4>&~HRqnUk9?#B6489)6-~1W{-*fWCcdjkGqdRz
znKe%29(QjRjiu)0eKSd3Zj<qgo?;}1n|k^MNisOq8~SWzy(#qky5^#8&`<JIr@XZK
zo8fI9&~j^UaiYLYD+6^j(LwM5EK*^Pl7w!`9{ftj=-dnuj`>Hs0iT2^T`z5)BoKuj
zgN5nw;R26QXDivnRY4h6lPgF?!wWWUw5Lsd-}F>RR94RS<&e!#wVZ6+iW}3GsPArL
zI-HOsm`a@xY7z+vt9H?D?7k~YCNc>D%Bn|_Xl{a6oSL#|rE-4=`VsPKOLt2GslmO0
zBni*pg&KGDRIHbLzW6I(u3x_e;8e%An!T;s#qYGQl;<6uCxgDFYCgqOH@UYsw3Oy3
znbOt;95&I0Jb&UN!lNBUgqBzOjX!E~6u@x2zGC<BDj>^#!X&8-u+V2<-U8)O7d`oc
z`gocM>Jbtn&$7}7oh(>V3=C1Mb>jP=o7V4hge0d--xf#s=P85UG}Y`d*$9Q)@VkcL
zHeN-LqKieNRU6F*24g%uR`vkULva`F^_1u8%?6<s*=L_OAzcJ$W|<=BM-;nXf-*j8
zyTE7mx(>2a^W~!4SqbDDqDIa&PPXDn{xcWV?1QUe0yq=FEan}RGqHgCQSfGzZ(8V_
zgjF~>?@Mb!`oL;$c*to>)wTK~6EsB2+*mKDyb;Cfrw_Ub%N?KgR2Cc7@#i=nIbFQN
zdt@^Oz>c1nuqs2I5v*{qsRCFQeh#=fc*03#`Vl?cw-Mp)N~9QP8Z2&(-Y(~l3g`D*
zOpLprqXnaiwJ`kP@twjugC1;mKN9kH!H4~m8<B#PvRNgSMn{?Wl=}_Ik7FGpb1Ouv
zsa}nJdgNknvAf`fL;4!og~yF5Gne-Ydh5A~ud5RCz=W5fc<#uC8|?MPbi@_XX?b?1
z*4g@9qLSI$<37S+^xF4hCBfnHP?)kGXlJ{MBLufHW9sLR>Z`;a{VJ{l5LaXmT(QVh
zP#pP>a#B$D#JGo5+<W@7rhw~W37cb%Td5@;u_wyAPUM0B?-4M`P9s_DQw&2Q!C^$|
zNsD=mlnGMEL<AjscSTyZ0*QIV?j(#T?JL_WYfteDEKd=}xbTEPJL7!a_)~c@8n6dY
z4{FGiywq7o1BvgznL1f-g}Ltl6D2s*ky)o0*Ijs#8LnR~qf+L&H_KLb6nuh@xr%DF
znDPizbtL_#1v=pIB!^|nu&an~Pn4f=fXBWg6X<DI5drj$PbeKB|0iv-0QD;7YyYr@
zlQCC0YnuOQ5<YVep_uUu=?q&}X~Vb){^XDe^;Q+@L;u!LWUt1($)pkEb$gQ&76H@i
zWipwAZXnY~Y#TQl&?R;GN+>Tq4HHR~Pw9=wp53Fp<@Acc;Z&`badySL<>#-9(n;UH
z;I95u!@bDOs$~78N?TH34L^aY<N;A>{CbFffn5hxN@*nI@>FabjB{BO>SM9|b%nUS
zKP@<le*aw_Xj9&0&`!zOy~60J|1rytxEQ%m>@`ko3WR;sS+@!`n65gVMU+I!0-g%a
zhJpMOFy53RUO&f;>5%Q)mOy#j<O3VVask-cXE8xT3FbK2_QQ~7is5)wQ_q{AVxz@G
z8K+pPW2$HSz4|f94VEA%4Oaf9xf<G)A|#Lq>82VMZIeV@<DTzXkV=V53-sA0z!WCx
z8)(t8xRc}8TAw%<q&bRWi&()qo0|1bxHqG?bjvaEDcd{3Eaoinx>ixz^xE>7Nnh*t
zroe2sh8W4ogkmJ8rgLboXocsKutQ<)1Yj*TCQM8a%pVr;xLWQJo-O+zjpU|5S5exY
zdAXGw9Ro~$S^Xm0@O`fQY`P2pYr0#u0wDShSwpiLAV<GA0)OIf9Z(-!Mbx{k@`_PF
zX7x9$<Z=x3y`+evqLuOW{JsZ9x!E|2!7wqWn`x$%DL3ur-78r}JxjVlMV1Im0jGjV
zASFMgSG|a($Nz_~d`nd#W&#YWj)cm%D#t8^()7lE9bs7ce(IoFI1rkF$0Q7JpmSRC
zs|bbWtzM7hs|+~(&yt^ezvnq4wa?`o3V@`uuDTBO_!F=$2jZkIPw2i)`Jet{5I&b8
zT;?<~tw2}iiby+kdD~p|_cwlZ(V&ssb4I@8K%M!k&rzQXCm|Qm5$`b}b)m1k<r)CK
z{Vf%x5;9S2f{-i%<<dwGkFHPg!Gc#{kq)!*@4m>YZrQ~1A&T5J$A4om3L|X79)FdQ
za0A#u&D;o^nx=^BVrx?-z4PA=1xSY%L@=iRLT{U07JYOTt^6mESBdDgi<z+>x5MPx
z%&7qV@%RY-=qbjY(h<%7<l2fZyuPd<xS$ZzkQ>3k{C#qd^L6~%n;0d01mo)8+h?8X
zk}J%EIcvbChq`6uncMx-fp*B|DaQoAx2{0O!zlaP=E-ydlG|U8FSiCcACoHsc=;wM
zbB{SSbG`zI2b$zc16UWtEyp9d|3g7Fjku228jznCfK>Yz{Jq92kTd=DT=m#4D|59u
zcd;E%fF|zd%4H4x1bl!1Aclt9ICY)L>5Ej0_p+@*Q8;Zn=&v0fi+8FBAw)>7rDK$5
z4jkHIP8k>(&y92obwv@g-0)s8X0ndWj)p7Wv+8_VKU~0Qf0#$ExU#+coc+9Ml%}xv
z^rua|i)ZCnk&w^Zo(QMxA?7$}^cKdC(K${eX<yZ=*LP!FXwRB{wgJhc{e1F6!gCiG
zxqXrspNVo7G;7t<YLRWbM==l9^WG8VlH3P8BNtc?0}+2zAeXiW%^CG|{z^r*8i1Z+
zkeoH>`C^C(0^{7`z|}BBNJvbm8(xL{HQ!*$0KD2f=FiyH?Kk216vsL#tkr;R$i#pJ
zLH2XfOM*R$Cl}xj^;XZ3EBn5c`!lKiN5$K4ZrO@*sM=Dr3l9(6((9kEV~C#~k-yK}
z0faJinCi~kPUZA^q$jMqy<U2e7W~*e;nC;3ZWQr4u(fGrE3e~Qk!)9yYJ+pX4v*Xu
zUI^Ll3;okTAti$Xh7|#nyqo2LMqY2zfS?`PW<c#BYtAibje&Le;VSWp$%b^mQ<_Zw
zu9C<yS=*CxOoeOnb1!@9OBM-JfxIlRWhV27{G3*>sTU}~9Rm)S60q!BW<VXPjX&a3
z9%)$YCtd)+)EEHMW{;*IL8>eXz!PIU{pf!L;XSOvs;B49WRWq!!>1LP3)0pse_2lL
z!_><5+tOSe;KevVeS~yvS^QR5E_vAG0Gq~gydHZbm`>0<1Zk0KOQ{?mUEZW>h+BCu
z(qzHjzAPrl|J{P>G+HYi){^Q))zl0;st`ag@F<GwI9!C7$?L2P_VJBtKj?=RFbN)m
z5kZ^y$4D_rldABSJ9Ljet1p@`#IK#lufEcaSZw-3{X@1}XfYy$P#D)C%icTnDCJ7Y
zt1Z*~11ay0E*<%K8wnq=>fPF{8l$p8JvdN%D0yVToYX`1cSTG73ex*@r5TkVnAsmR
z9zqn~s{U>)Wwv3>YoxXiVpSRhZ#7YvGo39)#bhOKOv=K=Y9@a*Q;)X%-a#mO4cT}d
zgIOxjfAFYiI#?g&<%H;P$@be?l`6|l#y>m4y@3LOa0bL^Y_nde?$p~n0esI;P)<V;
z#eU~Vm#Y0CV(w#f5r=F+l`I_SC0iSX<JlvT&A@$*xnSdl*1%W#{~&l9wU674;dYg{
zkG|kYTzY$>J^eqtV}|3RJ&eYTctHT^+(|SnUH5HhstUZBrt)%vSNK969p--P+?7Ze
zyk~_7cRR}RA!+6!fjfMzA{>tK5Zp^$Sjka+$=U|`lLmZ(cme%rodsqeAzFBNK<z)s
zeYmHt%Q!LedF|2xsF(LoqmxQ1AuRe+b6A8ZS~sh%F!9xrlAG|;!q*#xX1#jg8yZlw
z=dFo5HeSx^qo1K9uA9y9Ow5TDda4%<L}JyZG|A+q{A4unJxl7!8*Pq75y?d0%goXK
zmCejrdtxv_<lK_ckD)c4hKV={%wr^+j>u-@2M+LYSM3@*$N8{KKvhY`PYc#1`Vc3$
zVP%A8LO{cf+-)SGqrCF2P*4vL7T`X#acDo2eXLp@*;4MyrmR)Th7A3+8Hk3x#$A`>
z9A@GW;QZbpGO55N*s=JVa?+zv|J(n_VE$brX>DpBQ72hxWf*s=?zOa*4QxKUAE0``
zWzLzP?wU^u`{lx(c>XI&W*A==QdB~QSY^nu{*^&@{W3|Nx##%vCMUr$m$r?ODS%r5
zkBN+>_7YXy7&Zt=6XyUkZP0Y3jG4#00i+no#9}uZ^gm)oc9`iy<T+S3CtC3Z&-=st
z0nG|YkiZG3#!G#QEdLf6__oA8U0#}pN7RE}H(XHU_Ebjle~9^p#m|k9vK^LDqpqUS
zzcW`WC=ng7M_gGLk-YTxDA@;!9PRRM(siuMQvEx<7P#<GQIFVugb}j(-`g939G66o
z*o>}p^D`A}ApRa!t;y@J9;3YlERLjtHuqA(Vc~)t@lm3yg0z2kn}bO2D4JauZ$yUL
zK1K03uK}W~N`iZABaOPk=Q^)XlZX`8oUFfbbf1>=F&{Vmik{-AQJ?YfMbFOHOtcPK
z76MbGc$!5PZkotVljc#Tu~yobumA9)_79i7Ir&%3ji0Z5Q?uiw`~A~fcAvUq?|$+h
zKWP4Ge_>;7v)9z7Etr&_-~3Xu<Is=IKcl|a*;4b{?*r#zV&-W}8?ngZvb?UV9&isB
zTtH=$Js71xfGu-j6F*yvc`k&2?G6s_s-`xyb#)s<JE&CDz@b{*b_#aPBKQ<}N>6t5
z&D-<UUQjL@v=fk7ZQ8^7?VG@RvA#u9`TlZSQfPf^cda49;NU})L+7YGmJeOYFaBy@
zDLcX=xA3EJg?UpNhvOGnPlY1!k>E^+nu>-Ewn4N!Ha1_#cU;iOkBhGp^&dhFYD2ll
zY>v0vn2dcTUyTD(|4>XLq`#`rfs;SENc_Nh++z%rX`LvUati(ZuGioPg15}Spv`JJ
z#9hVOVtpAs<`mpUEOc#1n_%4kRgB`pvMv1HV6&5=``SXMxQiJAYhN$S8QbWu8vl@g
zc0uADyavb4l{K=yy+2L)+rWbIqKjUV4kF{&iWh&RW09vCv9nuLrmf^)2-!YXCXDyl
z46EZ!+|$=zDM+x@nF|8bU2EsYYroJ78-HnM9~?H|rOI?Qx<5fX9gLX$3l;@^p#E&~
z30Q-5rKlnLIo-taV0&lj_+N(;e?RNY$W+oXt9o7EMdaeBfg>5Rp<%ziKsjXZc~;;O
z^T55$`u_BiOa~Mg8}FRSdp>{v#4TZgVn4HfGj0kf|F(m5i;Q^n&thhKiV#2sk@I~{
zmDO>u#@ZYE`uC+?OVj$vW^Bny11=-4Uxq0m7hHC*lFu!suofSJ^~yG)p?E=zmzN~T
zHu@m~;<R`zm4k$xy(Vl*<wTB$6N<9!tvDC^V(hq;&p+OJvW5S)7>Icxfq@S{?CmZd
zq|L+5?T~$Xk&^ee-(kSo-HXotfh!IPUb9uK`<k5D0_zd=bS#pva}WfbwVgGpgRpy&
zzC~ZQ)@J!(9GbTC1;<^%>g$@t7S;G*Eq`hEIKn`MU`fEr<=s->x?Tf;{R^iNSE2W(
zR1e30nfE!o^hMhON7d>C&8@p)8BtYVlTFp%aXVP!;GQ#!BOUx*5VskBFUL8Zb}n{I
zx4n4lSF5c$V3arEfaT&Wt=hkU{j;YQjXO594_2ctVF@c=Nov3uA8(>C8EeT94i%r!
z=a=3?By`uwwRxLT`Xg1O<Mrtn-&4>~1lEfQvyf@2uq-?EU)l#)i@!6j$y<y{%FGhS
zwZG>1F9E|V_V6;fCcmf(_y+hZ=6Ow0fGtc;)!y0zCj)oO<_}*e`YP_7>op-8w-E$g
zQ#80GAM^m`a4-=!^$=`bJoQ$aeP(e9TyNwl|FS{hCx?Rp>|s(Ql)vVH+c<}{0@L%S
zP_*fj8Y34_a)C4czzk{H!%eMxkgi#sP~Q09q=Vx-`ESizjE%1eQ&Kr{KY36Jta8xU
zRbDPrFwVeEps!{V5)vb?fAyn)?IqfY?0eIy#EP7W`&;DkD$L8p#i-m}cgOcKfzA6&
z6lGT)z;8#fU%$)wbVzP33MrZY^M;WVGwU|@FY{FxY~PYDZ@NXu*HxIL$L^ud8o7qF
zzkI5g=fWtSzPzSN7?#(+16I-tCZ70_ooebDj(#N{<;MYQp4&Yr2cQQhOSB{S{fS3r
zMt295`_Oi<E;fGfZOuu)DChTYW9>fH^RFFssy&{$b8xlD?6zzx0yd8tJ(sf}h1xgU
zS?!J1?Wb)k<Ci)Xh4C$iRb&fHQ9OUG0iAQu>_l*Ws??&L>uht8a-_4*Lai^UPu@Wf
zHxbSL0+v{|yI`p%?KrHZX*--S{Pcj;@pgV`-eD^YQMhzxE9aYBxIKXiA4?oj%&T(J
zL4dn!vYZx&_Ku#ojloVKz&*tYwkg`(EB7fM*R}P}EtVZ_*sSo^7QVJ`!Bhi|YS3<@
zZD!Wq2$mdg@5Id&`}aklJh6D_^PU1@U(IIA^=WO!37*~g7yH5fcc+?Ef+2UNp1b=P
z7SQicdG*C?xucB;!J^JncDq~&)=u0MpmS!yvB&GM=5G+}lo<`5b#C#2w$%7_0`tpb
zZRnYr#y^^h^8s_D5B%n*uoM%I9b4;x_vD2ZoAK(;zpBNH=jMiMb-{ZhDr?NZ{tMTX
zr&>Y9(m#6el4Zh@M98oSpRw8>);gn&;JD!PeOQaxeKF^_J=UT*>hv)vn7V6IbJv}T
zqH@4fLG3;+c1x^Z+dXj9U#Fcr&9&~A28LpLja&yeqimE_iAn+U>Ip-Ejba|uh8J@F
zRjETk_K#Fsv(Jxlaj$mUKYROVIBvdi){(NK+1%0e!=Hsoi|uk?qpx$qL7NmjgSEQ%
z7@woxoqBceE*0EZ&ZTO@i`}owk8l3&L{YKT;ia7#Ia4+`wY;e%FzeoB#^HK7B7EAu
zgZ0@$zr9x*5r?ILF<R|6!1H_B<i)~Iw%^2>%sDKAz%kiV@!(zO7vDXXU&1K7P20kc
zYCP0Fj<YnMPW>9=xFaWcTd!=s4Q3TjX@MOJ;(X-O@7H-@LBSMar{tLGiTi4G3g&0O
zV#x!*73EI*e^^6A=QGvcLZiSnZ-29*yUKSe^~{2E+ifiM`3H08yDRcyLDdIY8;sUA
zvz0T_kD3dAASXLRZ+-Qg)RXfsqp%f<mi~RDrEBfRnld3XxUbRaH+%5cuiUQQ`|k!|
zUw*TX&P&+5Zv=CHTHPg5Zi>fYb_<RJH^CB<_AKmC9W#sec$}K$DfJxP#?r6x#pL)7
zRy!gA3)My>VOx+43xNJ$H;%V!mG;YzL1w$UlXt<A@?Lg>4#FM_YBiACas>8#6x$l?
z4?#$-Ycp~I+EWU~9BU7zF|733*==8aDB{kUC^ot#Dd?GIX;+J=`rhOD8(>!cRIaur
z=f0U?un{>(4*bh?!6S-83YaG~8&ldI<cl*S+Dc~@JG6VxFD__PaF!<Rta???772L1
zI0W0%Ccx+!U64oIsIVWYJc>*3+8%VrF&%_E*6J|mGRhUp#accTHiWN3z#8LMigZD~
za?6P_1$tXl)+D)QEGFNXvIApugB@91>_$Rq!4x_YyBQZ1^PqB%%cVH~%`n+2n^SdO
zjMA-avmxgfm$kP&Isa~9O54JvG$z*_D=eYe@9{61+FzD4Cl9adSG340e!gBT@A#tE
z+KjtXn`yJXXBKO=j>;>uU7L2WR?sCiNpFAP@*Ec5YU4Rp$&Og%*9P(}Kx*$C6+Y=$
zG_b9tShVXOTszBOyWQ7i`CMl5&1!dm_@sQKvq3XZ3~(i@cC&6HIez6T%a%l`*|@DW
zP_5NogiT7`n2`-pSh@tbU)3hx!l{e2X}_TU_+YFHZbLG3Odj)Ru5E#e_Ts1|51aHH
z8i&7z$$#Qj)BoYP_3!1^pQmiP`mzkL>+YljSCIVK43($yh+<;2!=IDrh)o0e&Q_>?
zy|Xk?leHyalO1GnR|7kx@ip!OM^W_<3_zR^yAf;)8~^3t3kv1oy6lJoTIBy%D?m{G
zKM=0}IVJlq+(Q;u@7&NH#myC5jt96g275Ua`}&{pJ2&=6Dz4$qR3>=70AMqYpIufM
zSSqMJ4VPrl&KmHMJHpk}E&R(?Kg%+S@{lzgDognw5WM?vR9(9jxy2i7<3B#Cjc~y#
zT^3KxGr^c4QDb%qmTDnGE4d5)a?$iKz}Zyq&noKzP=a@?N$!X>J>I^XhA%)eY!0^@
zI@|H}5Q$iide$ZR`OSbA>iMPMVi$zu<GqVi^4Ud!wnbdaVdcFjhSUzr_;f$nf11z8
znHoySmmAL28-UvtU+|J}wUh5%?!5y8sK=r<xpHG3)D|U2w70-wc@#+Snp0~zcbeNT
z9~Sl7&c2xDtydhdVq|B5i``^qP`G&-7Z;^kTiFDluIA%B{Vltk;wJB17A$SOS5%*)
zi|9GIP5s{WUFKmU(c$C8R;b16nj1fZG56vMIiBaSL78ScJ9jQg<Kot)b7natvSWwZ
z2$@*j5s#&Aq-@^x=0KX-`-sty7c3fTNz6~S0Vf<BCd@>5Xq$Zs0a3h6qVuJEH8PNO
z`ofrQ;6<#qJ}?*{&oK<~O6S8gjS*n*Yav}od-7WK;ILQF{UzMk#;203p6p{j-jRdl
z&pAX=-0Pn_w1dARY}OFr{`D<DXus$5MKG(LPZ!Npwd{(li?026ZKvLwj~_2#0b++$
zAtf2Nx7%wVF4spFxDG}jD;sC>H&)wh9I+r>gl~r1Jbvo>XaltOL)suu<Lc-QW&hl9
z3S76n0+&Q+{Z*Pj6_cikNvwymS+eD2s$0Yj2j?7Y7hyNf0)w-sAPv!@*;-kaHO%_%
zTetO^4h=$*(b&T5soTcxYXMl1Cct8c;cT=|^ytx{#`sXoYKx{$yDoN&)cUKg?ivSJ
zU)=IL`-YKvuh{m3Ia5vC%5zwh?pk7o8!LP2VwwgrY-JS6_~Qm;9(dJxFvl0G4LKXv
zrb1G~O`!@*qC2`{>RD+1Y-bi`xx^R6s{=1qY4h{q;&W5hq}oPk%6s2y4f*1yOAi|k
z!@+T*soV{4i=gg90XS~@zQ;_*5prRIkIv@;+ia^Zz|Mt{j@5E}TJBNSIi#E)TU1|H
z&A#mw0Kb68_n|G?KLR_jH(_q*T?i_q8}7og;jV^Y3m}OfZX7cS)nQtt(Q%jgvYSwc
z`%`OnS7JMq&%lxl+uM~PNwK%P^T4p)hf>EH6j0yrF&Q$u8tl&c^c)Y>Y4p(#th?K9
zl_t?`hfxxEBca!eYzIq|c6hacaAVT<=k%ki%?!)t&6dU5gL8n9Nfi@z`QfL=@`D+9
z+Btp+!|#=ktDYW@|MXrvXMUU_tODNiz;Qj#R9{@~lHQ?w7Nuz`agO2hr)=7uavy6$
zxW}X}9e>>d58az0IRDu1;CWuWW%${+W#^9djE@W#^F6RAr#Ro+(Rrsm4z9iUVH%n}
zm6APjf<!NvYRV68IM^60dpD@Pf5zu-307^)*(Zd#Rwg|?k*(bjQGKlTlWrN_=nPiN
zxw3fpjNX|w2q`GO!|d7J_1A+>sP2O>Pi(=n{%kM7^?Sk%^ZfZE@E6V>!v)=s2ID91
z4L-`4`ly{Vc$9J{Zddf<O`hj&5}Ib;zBr5qUZjCJA(6^hHGI3@w8hSq(n4F<ws-1x
z7Kfv>8jns}extImdJk0bS{u^yN&mSIF6p83Ak_H1xeS052I{P)7Ym=fn)ASpg}gC$
zJd;NWFU#};&m_m`$lgC7XIwozVpMc@3P-{SZ4U2wD7DX?y-Bg2t|`3k67zkWH`cz?
zx6(y$4s1Q*A1`NiPn#gvaW9P<79BxO9qK>G+j6UHu~hBp*1av-3GjmmM2DiB9V%dR
z9|d~Xmv)g*4cfX-#!gCd@2w%>rDJu%LT&ch#bH*jpG&yB8ZXo4f1juMyjO0*<^V_a
z+^M}_M@L{A4Y7ruYob^%=0a_y#lf|)zj%p(SdaAQF{AnE@30PFN2kR*+Hi-s-?0^7
zI)3U1*!s?t7+k4A8{X4rmxKkP9!eW=8B5VNvu@A47e99$%wnOeJNIJM?oK5fu3pR2
zZs3Vy&S96Zh4-hdz}DH9XYUB0PB(k6W5+6l8(gsDaJwqb_xSv-XXV|i&tU$J-hBoU
zqQb&dla=tu4(?(&cz%o|TD`Z#xphxko9u`vlGp{I-e-a}m(bV^Cv3~F3=5O?(?J8H
zr6!k_xnO^rQ>xZEQ^mIT@Q=ZTwmT0?Bb6NE_}UF;<Iq^X_S#jflI~g(mTSk(a5q*j
zL2z9f(7U>A8BN{$x^401;Zj;7SIl`_w6FUdUL~N?%C!AsN?Uj8Q@*1y$A|yrd9|=q
z-J$Ie*zxS=pT8%<ov?)9dd5VAmNocudZEn&ph&1;;=kkr58+6a=FTjBI>52EYOmYO
zNje=O+6X^l9bJ^u_x5V~h@~#!Nd|iT<qt57_4MY|^896k<Zcy#hH*$ybflJDmgb|L
z*V_2#C}{rRirH1?vx^ZI#_{{0AaCZ?^qC5$@fkBCeKDv0l94`|^LSi1gZSj3+uasc
zyxy-69}Sc!wq?;kyfAaShV!2TcI_#!2@9|pdEZ(f2{-1HTVqgTMPcub7YUxUEk*RB
z@CP`k$dCrZ5%;8-GQ$x-yIX5Ub=6KSNxylYk3(Q>RmTWA4vV>Lx^r7)$D-xIL~d(X
ziB4jgRhowJsiGz9M8zKYPQrF|yD*wE_I0}eJISXZ{MVV_C4+o|wQ;jA>Njk!_8RWq
zxr>fx;!3nb31a0rd_~lx)v@T39S&_z*Go~+9fxkWxab}8IRj9bgD08m%DA!18-C%Z
z`@Rf=+V9_oG4N9u@UAmAduRO7`rRF?g~uh8&pw_6v+ggRl<qp*7VDFpCH&*CI^lLr
zT(Tp_W%h+vo~aqdLpb11v!71Y`lK;77h_zSv8vsNj*gUB+L4*Q{#I+6#WZY&1&%3>
zlN@C>ICV@<>U+7d%jr1|oLp%4;-PA`L!9H2N-w8{`rRcF*M$A`D%J<0i);zxUz5YJ
zZ7UoI5yjSSa9n(>ojg8aZ5*9XuJHTh((n@=!SMjetxT6k1@*cx%)_nimih@>hwjj^
zE08Mo#o^W>pAowPyPNO+@LCH&p2gSr;0k>Xix%$sn5&l*+cK42v7Krl_!=hko{f>W
zVQ8zw3$Zrlvwja9_+-q(#XK?+fq61^<8TqBQbosFeEwryw0Hiki#~$xYk&(0p5g@(
zO-jJn>QQvS2J-C32j_OMno@6G6o|{&BC+Lu9qUnNyUb(vt&SZ0V#FUwROcY^O%b`P
zQI9b&xAA?^{noG(W2hy&IS<`QA!Me}N%6SH2<C<LQ)lUu&oio1hYZZ?YaENf>v-S8
z(z)FurVfD8nq}p}lmiWYf-Nt5LlF=?2%#&xyil{8{U+Ptu=@Iw8k<qibA%Gdq^)_v
zp0GUz5w&!$x2@K0I9Gd+>+G|175tuGxyLdj`E6UE&Ng<c1}_TwvwHh}ovw8FtQzwV
z2Rh)fcw}AEm*F#F4wLgLOiNgXL-M;-8zDvMgUNY9YvW@DX`mwyR+$}(K*h4i9k^BL
z=!h#q`<EYu3|;XFajUDn>YlMEz2HT+Z;8%(rtgtGSYX3<KMY@X!1AA@-}C8ZX(ziQ
zFw%DgCVM!qLQ5je?Uwc}0b2?WUdvDA6lP!iSZg*NGX`F?2h;n)Zin<*N+3pMj!Ap5
z8-denJ8NpPjQIJMX*1PMejsZ=Ge2EB)kdeHeiW4TM$EZPU)R41Tv&9aF^kq497zXU
zuAIi|3$mfbQ?IOp8?@JG9ZShEq>F|jOLwM8>g(nudqRd+Iu=0#hvNr37Dprd*Qz@f
zZPQ}jMV0NrXH<UP*B#VVz#_Qd)CPPcS=t`P7iNtze#D1rH#&5rP3D-e9t|62NtGRl
zd+<J&*Q7dN)|h)xh^x!&Tk1*~w>4BtNaD&jl1m3cr!WGl0P<<y4*y&wf=**NbPa;t
zxN<8xFBRg@I0|)+`93xTYg>~98sLHFb5G=nD^LuPII7ST{iG&|qB5=N=|#7d?JJ&q
zlo4NaqM_nw@<Y2Kwol#sQMLen$NbCir~J%!maWvA=#j#>H4YBDf#SmlbrG-j@$!Fa
zX`P(``w#nIE}T`H89y}p7UyDT2Fbr{-*KoKbZ~9@UIDWUXa1#(&XB^fog<Mw=OZ|E
zFn>{h3vf^?vUQXQ%IpzPR+yNBm}e+dWtz<PBYd9Bql|rp+8KLFf?Qax%G)d}&oACd
z9kB>6X`S`DFQ6CP*ZPM$1@7J&3CGve#-Om8!3dies$-)t^m!v=Z_NoiQRevj&renH
zCub1!s?tmS?&#Wpel+rGhk88;K3r*SU9e_~PtE8pz1N9Rc9}m;AF=FtVR1g47{9QB
z0>VM=RsD-q*-c*%G1)??8;u?9um%x@bv${QQ<`40AwH^WFnbb5u2_0cs8l&<t@;q+
z=LQ1m(}b9hGz3e;j9&Sd2O?iovUmyh9n;Q!#xdzJ_onK+MBNDn?SsxUH#o$Llks64
zXVRa*dckpa+4iQ#w9PEr<7>t?RkTKPR~_)rZ`?!lX0LoOKz9_o9fotQr->L}uUVZE
zP<%w{&EB7vM)pUau#4^o?Q9(;w1tQVIfKC~HWN&Pvq{B6M?@v%MW(q8TliH5#DWPw
zB(?s&yHn5cF9`ILu}K$JL64JkmHO-WJV>XTUf<(_N4A@O$rEA(*uYChd^AUgRWM6~
zjE6{rfdf;BCsZiUvCI2K*sa{6)YwbQBrinU0458hGfc?Saq2hyf;i849rF2lpa7v9
zB)E07LCSxh{ExxGUxTyAUde(?hTr*`@Am*FQfD}FIep|QbZ>gCli2#_W2Ncoh$LJ_
z(Y3(I_*2<?wgLaTP#5)JVp_(#Jg`K&J^b*^>|-=oy*6;Ya+!JB3!!Iqr8~bVFn5(o
zb6yEQ45AX3ilr|$33{4zAU?BYPPEJYt5JW-mJwvs`+r|XhVtBv@+4a-!dBqe`P2Z3
z45mf8n14zm_;Q-=TxMt!bj>Kv^W|5ems_9Dz9s84>WM85W`P^ceiOj`Zuj9s8hQNg
z3DrwUjn4G>GuO`@;dZT`xy}TP>F1@P{n6%j4uhbb`D26|_udh8%ZYG<;D5L(E2`pe
zXyd!$t_4~x-J6K!N-z0fl{`4~L*rEbo2oAemnR$VpS0i|@{Yjp_u`{`I@EHQ?{3`&
z?v0a{bRT^ld<a~T=$5pFmMoKS?}DD~UhgjfydQx6K5-6W&Si7g6BGX`r|ynSx511b
zOG<v_&Yg`rkFP1fB|UPMv}-k7HP1IqTXFh)1#`T!sBEXR`N6i8j<L#`qR7@T{^MiX
z2w3*0WWJyKH2FbIPq=Y|3$K|6IvYd?=wJQ*gj3PG(x86#E<*T^qN``!{l6J~()hc5
zMsEvhntT>f<lk!v6mesB@e1y@=QM#+y^cpD`4`{kJMbN(uT~(g9mP2@86Tr3)c}4W
zF#R%oNX*gcd5D;IAp?HCWcS&F96ToJv=o$Wn(<cEAA(l&4^N-_At(LE5>EH7VvmxI
z*!zph8E;#|^ZN@VxL-%tF5eyve_vXzMqBRb*Q^#0JCI7mixNAp;oZEKX&+-h8or@k
zwJXTHSYUw92G94M`*jo%a&9zi<mneP)6VucqFskZ1;CwI??X=EGrz_ifa#Vw>R*`M
z@D%$eENtf$rPc%LeRj!G#b>-F7f*37D2w{V{QydB7jrPJpBY^;#yM{+zJ~to34J_I
zY*xhCchHVsQ64|5GEGS!3=qMz&&j1VMY9dhi%O%~JC-K+Cw%Q`>kn6-7<aInoFzWC
zbyv+>Wft>RW--xiNh&%tCwOHPSN&KF;qc_ES><23yq?AJ#zExKN|%+Jiah%Q9rP|S
zCfLU*EY`wdKgc@Nbzs~rzKFvWMyCx8JbMOkx^wuZo2y+Y2J$`G){pC=<UA`!qwDE?
z$$4o2w@ZDyymMvGuL4@rAL}764jHV61sCB-7cnsV<>n6sX2!V0J{z4Qlku0%jfQtv
zdm#`LT*D2JRM&05hHSUSF1shi9cVBPcX$<grxFhA@H_2G*5Q3a1d3a|urj;BxH5Lq
z#bF_HJ<)ly=v`@ep>49uFssFzHSj$Duih8;1zep(Qhaa^@>)Z8e3-_1zr*X$Vi6OE
zQRjH$n=;M$-AiNS%Ai8Yxj_JMRPAv3Lp#Ae<bL?eTtWA(i<g%3JIrA^wKgV4EPVV_
z+(0)$Vz_&KtYe6UK^+vUAJRx8cZc!D^Y6zSvr3(Y9lX{U@SNTCpu@mCcl6{6KfYuQ
z?i(R^xYw_Z?TCW90!v}-q4t@k)f2|lh&$Umbtac8&RW@je~4mrr1zm$@uP?TRJAqK
zU&QPKXqPj-sZyru2)Qy6P&G%U>RCWl<_^*92j}dAC9ggmxDTs5CpDWj37&rQr&Ida
z`_ExZ4#@|eXhC?7@vH@t{Hp=(m^<Ry^ubuk<XJz6<LAQ4>EZivIhPY`-WaLlF--uj
zo7>^i*B+mb#1nHsdOB-)JEG$M(f3zx<L3eCsL`co>p#wEh9*E`hOQ=QxR!DKHgnc%
z&ko184uy=4Sf@1sq3HkW?#$nsy4F2Tucy*p9ImuIRuDLr1dJfatc>;a2!;?+1A<{x
zAj}~e43sfd9IJrrYyvXH9%cxjfFNV)1SUZu^AHHFBn*KN4J0uTlDp}-|G|0gbD!t#
zAM#6{z4zMBTI*fw{eD01-j1&8lTBqCD?d(bj*|DT^PP#?qRu`s^XgN~-p7B~Dz9(T
zJcDx$TN-iJp7;H7hdYk3!l{P=;UG^Ab1N3;;FMKq+$v}TJzw$z^MT+d!YD${Wlzo=
zF>_jiEK2_OX*^Q2UnWn}zjric9!yctM5-`=K1jm;Zh})@`pJrAtT&mUKYa(|7QA}j
z-k==WpRQZPueR|?a3)Q_ZktZggcHBs1iK>VEX*wHL%lkRx6Mu1)#QP$tJJ4e;Tw;@
zt`T~kwIi8sPS-EShV&bi2)b}7`&>u^;<n1{#Ap;7K7=Bx69H;VNzhaYB+M+_Wb{S*
z5s%s5)wEbBYI%3K-LiV#ogpZ?@KT9o)tNHbmSylxz<hdhPjWa|**_aQ&eYU(%Htl3
zsl!+AueHR^I_Bcm;-6mG=W<dOzMco}zuQvhc<f@&1%~3}BTUa&9wy6B!iqO31?2BX
z<Z(P0l%BSQxuVgM5o)tsGh9Z_WEKiM5JtLDL#;U}1-jkn{-q~})Q3~U&C<s2L%}65
zQYakCG9<<&wd;+^H8^Ov6QHTEIYxN3lNb_u9k{6fNzaN74a<&vI8oo$__1cXyKio#
zx3(0A%S;3e=54S30_FbwSjX~$i5WQu>w0vs*`E8W4AOiVFa>(q_v-6_Cl@3`+%4*i
z6HB&>-D5A*T)whlg7NkFh|DHWpR_dnmG$k@b93g=arE((d%bq>bF%q!dQP9O|1?l+
z&q|E;0Ornir1<&UenU_6abGSA4KKEQv#PjVSLAwop%T+mQTu5ioSDk12&wOyt_~S~
zmA2k3uP?Z-U!EfNu{qPCBIsWJK?fP)o1#8A68mP)<|2r)m*fllu@(kSM}%)bXd~4&
zEN!f#et~yw_Q=LHSasD^TM3nf7`ld-J3+A)lA1NtHOjL?6a793w(Er;$`6C-5Ui~r
zT|vR#+GLN57b_iLN?*3>Dzt9Hg}dIJMwDX*k<w5|un@{rw|!#ZEvp2i+6DiYk=d5?
zeFlXjq;i6qj(`-|bQAp7EAHgez`TzI+|7n%S$Y3c?{`A%vZA_sk@!mePB%lO-l(5&
zz+{Np=86}84Q<f;srCQ=5t{xNp5%m15^O48uu2onjn`BB0YzJD_LW&T4xyXph`)7r
z<Nz|HP%uXg!qslwivwLwvFfSmPn)xYks(1{vXLQq%E);%9Tgv>gLExT=r;74evWKJ
z-F+*rf;ho%IkXsv)rp>61ZHANnPM+e4A2Bu`T>xk=>^=oHPbiFFMr$ndYsS2iJ9gR
z9oaf7V6A?&4UkSMWj2H;lt^_%X>+l5eAKkb75>$8)J0u~)(5~Oiha-|xil<rI%y8t
z078t9S@jGJmv{z%oQ`t<6GOrRJwAj3TKA(zTJ^QGS`$z->gjqTZP+Ob)-J%=N%#Zg
zJVUx$UY>K&tp=nkgaux~xpn9;h{mut4yH;TUup&f+3c`>6C0U)6V`SW#4LS#8zKuH
z(~3<}(g0#L?7+hk9(=03T}4Fnhb6LWUfzUN`?1v|ys`<3%frmTV_PrU^mPUp+NP(P
z+g1J}@o)BQU16sML(X5iD`XO1bk8`#3X@z}IZp{Zd+2#mwCDQ|N@S)lf>}s{fH`XH
zs$(0z!^NnO6ga-l!6nSk_SY<4%1>Rhd9=C$?b8qcNLz~*1%(lGa5<8LRWr1<c+U>K
za9XHM)N4$XGW}B}qWyC%_xJjqT9X(2xR%cfBcQYnNQbjf)Wi7#M7}i-yC9skzq?zi
z;r0~43icoE!r)UpbO@hyE;k~Ygh**~jD5wfUYekUFEzrn9D&B)<1*0~{J_0W_&v=e
zn8arboXsPdN?Wu?Q>ZW|RbY%L=QN^_VVQ6i#0Hvhkaz1YxqmRs7pOwglHe&zKTFB+
zDCs23$eVP&>8%7KeFo#D;YIg5gDkxrnp)fS)?M=Fnq)P!*&Y#bjBwarxjhoQD*3@o
zIMH=_4mg(^gVl5+*)<#|6Xm@Sr2)d>3)N+|t3g0{4gtq+Qut+3Zo`_qkx~e;azZ2~
zHX459-)Q4j)-@m#=u+lZ4s6bggeT5I!>}0CzdUwm<4MTs8qFF|b%T=`$9IT`XYK|b
zrplMFQ16HP<=0^vC%k&((&3_Jj08hM61(O^Vs7x(DmSx7E*WHNN}sCR`BN|C1&o6n
zI$FAj?B&-d`Zv8T|MWdgL3ro<a>Ti<g%sj)oU{1y$q$SjcM=k2t~(%%fP(QJ7@XBc
ztBjb3mK514!>ev1?Qm=CZ0DE!udqNQiZx`j2{x>Jf*q8_tmOLW{s$Q#t-M~Ibd}|9
z)+Ee-VoNCPeXevIV$Slp)1VbvRO)~vT>!WflYJ8WcA{;^A1SQ}p^5LdD1Ghcw!PuH
zi`X$NKzuh}k3cqO`t?HsvSOn)(ZkQ=4JGb-{W9l^Tg!y?*LLzn2F!!;M4f3j4yB>h
zH^r7XGn(eHckq^?Hp*peI~|oR-Fd9bA#k%$V>&KzhvqEYF=qQCgtvvVh4%(ve4WXj
z6=!$k2mUFJ@p>bgM4EG{Un~R<)Mibmp@9PbGUAQDNS^iE))rJaJLAE)S#ftSCU|Up
zX&zB-yE2+0aV3x2)h5=~C0tLog7?K4l*8-86>2@Q`Xt_08Xnj7M^Z)`6OOMd?A%Jk
zvzMfG(EZWz6r>%Ee)iDYo)8!9jk~PW!5Ri7^3UduxHi$^*;37@L)^|Qk$%3bXZpMt
zT;4|;XG$FLyWz#O1bIs#X-fPhG6A%nCLIyJ+(c8I|HkUFPQR`=ozK)9#j~@n9Ipsc
zhoC2&VemhiA6RR|G4*WQJTUEQWf@)nU7y2wwj4G1H1Br<MWIR7{F4Xy#>vU1DOf;1
zO1b-5J8SP(4_9W7#snt(#IRU?`ti5(WWV+_zN2i+t|4*R5^y#X?*8R=h1b;M2f%>i
zN!B({5;!#;s;G@?m@I|lcclES)QU;;1X61Uu(}zLOkNFhaez;iNK<{Y*G)I$HC!{H
z1x9)U)YnN^CTzJQG?t+ZaO;yJnNSBR!{~&zr`u1%l=EQX`$ro_H$yyRI@bfokGj1L
zcM`AHiH!5f?xlJ={&#>?!gWPMzKlXCwcZBMJhK%_#0|0O_E+7^U?s1k*5P2BL2}b*
zS_<3tv$!chFoJvd=vz~S;*F<E)&jG^+wvW;B6Q?SzDZ7u^-06z+W4sCaW~3Apt}w$
z|0ly`zep4@d<y55*J5W@?ei=~6TBQ3un1LvG+RIECele`Nf|C?M5#Y{v#$9b(mSAf
zRnG95X&^i2G^n;`pz~KC7sb^Vp&5w-aW$%KoeWWI+*W;f%DGL-X&Xk9uZZvZXf;6m
zQ1GO5q0N8mrKgfNadf|yP5I#7Z=gykv3|Z#Ru#Pzg~2N+eetNVzXJs(%6k5K3jmRO
z&9_99Fud|3!eJwTvj)qJjxG)!8n+5=NZnJGCv=)^YAY0IJf$!B>&DcQ3*~AXpM{Me
zjtr@;k*0%|9<%{zN2{3-1;CRT9eiVKRmlYo)1;$Qs>0*k4)oZtLjB5`>^9Y3<_one
z2U>c{dJtBPZHYkyqGrO!o$PSw2#3X@SG-ETK!s*mt5`I;haBRjbuscRgt%q-es$47
z4+4Lv>2>WY0jPhLV9<g_IrOK7NR%GfwGd`VbHdkSuLf@K278XOO!a5vjJWy2MqysQ
zkg5M;QnKfZD3*&h$UKG@#JYvnnH$+Wig#<tw8*G$PG2FTj&~hnO>C+%tXLG^vi*)p
zQRitBou{UVvdj?si(M!S7D;z|Lr<t3lem>Ovih+x$Jao}DL@+Wa8pS@P!O*7Otw_(
zgv|~uqxIWBy~&<NgC{wmC}}CkiPTuZYd`)9GeSLVkutIF#bZ}|iL;d{esd+(FA^ko
z2!WhTM8Q5&IP!6QpQF*h?-hUl`o}5gy8%abz7g==IYwI8h@UeL4N+%p7}<3QZ1ROZ
zyTNU&=ZhM8+%ZmhdPkm@CMe+S-PhY`WWI^8k35zVQlI528kh<&O&ZJFIJoa<paE1>
z?|Cf)I}Oc!e_HRWsa8=`Gl@>?y<C%+)sQ*OS5Nr#o`~_3$u{4UQ4K_(KZ(}X)2TXV
z$KJIAxPGp+yMusNb{UUfISrIkyCEdF0_JA;F3ntdfersiH~P_ErYq%O6FSEtNDfGO
zlR2e&!Ew=H<`!;3U=@rad;igy{8V!ZpYrYwFK)NW<xoj{U3k&rFq)cvlEwOg(ZWC6
zeV!cVzfGTUc@)n)*;H2C=Dk(tjvm0oZXMi%oBP`sH@V!4dx912gyMw+&plh*tK|hk
zxYp07>l{+_7H@e&+n`AH7cIO>Sma!(@IbZ#DeVBe$`vc+CHcbT&-S6E3PiFu5j88g
zGJ;&Nh!z#@!#cE$-57k)Sy>eYEDm2ol-Jxwt_}V(#;Cuoof&mG?^j<cNOo^%W)vMZ
zlEr?bRrsF}9sY<Oj$Qj3Q^12#$_${%1p0wWLhd*n=OmiBLiF?|gK`eq)P$yTDR5TW
za6HiN2&~>HTABIhb8&ku^vdR*uF0mTnea}U$m*H6v(nG8yLo2g&6{)Rm7vWm*zFA(
z7bATP>Z8Tb+TDzRr*u4!o?$WS`Xr$(GYg%$ghSlcb~lE|S>WOQ6EE1`pdn*uG~hEW
z<DG8WObNj&hwmqil%1AW3{0hR&ADfk?>}1!q6>NvK3Xv0pj?7V9KncdT7@~a$-AC}
z>IFr_)+MI%pSde}xg9;{a+YJAnw@n&MdD83U#714;nboByf{wlV5O-%bInUSf(X4H
z^e&FeXB-x%pN*Wzf%z+FlA;CTg2U4Kk31eRfXrW+uNwa)q0ZzLx7g2E>*CkC&|6AV
zA^TUrUU&1fNdy`fO>w<ho0kqbOU0X@zDGudLiHJvPhSAKC2QL=px~f3=<*%j_amdT
zyIHlqi=BX$7Vjk_Plk6+&-v3R<nO26{)rsb9%&z|Lef#iEzU*CmP5|%%jJDDAw2%*
zRtExa`{`L-Q#g4cfRMUHm@XE$rE$jezp<Vq9OKLt1(<1F{L4<eVvDJ&Q~=|jsmOw9
z(q3&Q6bU{;?ILJk)f+TL<cGaiht1Z1hG<O}W+<?~>LE<BV#XnQlRh{K?M;<kyW1wJ
z3~;?$s$gJ-R7%o8s?G80@yu!Gs`JDebEZ8WCP`J-Of**9w>OIFU8+KF22B?WJAyGN
z&HU9^puqO=Tl;N1UU|IMq3Oc{X!&_g=%U1JX}cS}n_?0hzD0lpFy#^=o>{+!#koes
zHfa5PU?(CLV;2m&2|!fkz=U#vJ=cUG<(h|DxG|1Hq$~XSrx}=Oq_A{p|JjZ_-oa+)
z+%>lfb#_%!HH2?o<F7+3=O6be2w62Xy}Ug=8jw_Z={&K0Peie^U%S$$410>f1NSub
zQq?-bxV0dx)sBVSG1qNkM<?V~!O|&n?tGUEd|6s!j+uCjfM1gj!njQg#j^u#fA+>b
zoO*cvH<%Fy*=lJZd5c(&W1eIc=ud|5psZK3L360~Vty<FCm5piAqP)VJq&{(U15Lm
zLFS%KX~fR?3{zl4eI9Y7{}?B^@P)i9`UtBhm9rS}p(c4}&sAet0Zad@kGo7<=loY~
z=RwY9xl27w6c9Hmcw*P)ld<ZFbUja~S8eaY@fKi`25{@AK8)0m4t#Gox)4Y0ZkDRn
zRz@c*y-|j^+C}eO(~9=|=B$Mp7nm$ZS&39%{a(N5WEHaKCn#U2JJKc_2P57Fh)O)p
zx7UIcY_@dUYct5PvagM1$b}rK$kNSQ*|Sc^gxct=4?6kHD{tMp;X+Dk;d+9VnPpeg
zrjX3G?6L1{c`e?r&$%QHt<|9I*qHT6@2&0t(ml_qsEKH8t%0wNp<;&cDG=BQN@Xm*
zhvlLVWhbo_@>C)0npeb$qiI*zcUpAZCkM-5Q6@^ao<)V{A(p*2py)z4)O0d14-F6n
z@s!y6Vy_p%L(aNeD)7c=!R}GJ+VCQ<YijNo3uni6HN~gqy*}`-DHDp8-p~^o77Cj5
zppHqZE=j~-dWNRvP}1KSlpHk#5-pF>LiGJH>%$vz-c>YP4adLQT5!c9*8Fjqiq1+X
zm4oQ>-}>5YSPGv6U%3dD>-}(XqXwoSvN!h32Y5-jh=PxENAOpdC>tVvzJQ5cQ1oDk
zywJd|q5vp5r70Wv>o$N2)z{^<8Hh;ia)oN=<_5uk%y{@%h+V&9QF6~|VB3M7X>=-Z
zVwP&{DDOeseH2)E|9683px+j0fqaOPF9Iqu+iHp`5P{)R23Y({&vz|$b}wV8t_A!;
zT@7T0Z3O=^<w13}VW9z4c%;pdURn<#(aH#vQq<$%D`gpYGSd~mZ`sN8l!dVB-inyV
z2Zx6Cdm)!f>CYFvsXQXjEY%I7qvpZscW}(gwu%dy`9lLyORFl<hrOhD4gSMs#mR~@
zVlzWw|Eu=sEZ}U;xyvzz@>86g27Vj-U;fYjlx1wf5@{YEdn4F{hv&7UPJOBVZ6{rY
zj*B<9s$rJN@F^nn*BMK%yWIA$jXw#a6XAcwCa5F7mh3esA!T*H28+-9I||PS%~Ne{
s*v>7ltC<NNkN%x&?Of&m?D*~U-86eVqT=2+J54~I@%~5S-!ESOZ=^{^&Hw-a

diff --git a/reference/plot-3.png b/reference/plot-3.png
index 4665a7222cfe317a489f92e1e86960b6f71b2bbe..ccb4266afbce6edd7e68b5caf18d24fd1d7b1da5 100644
GIT binary patch
literal 27940
zcmeFZcUV(d+b<l)!Z;4#SV5X4fQU2!0YlNT;7%w?@1S%dAOr{yLJ&u62)aXufTDo(
z4$@Hs3{s@`fD%AzBtS3($k_=q@AJIneBWQ^`o2HTzAj1Jd+k;3b=Tj0uROk?r_KA@
zvEN`Y7%y=BiUAC^+aCtodHdHr(4FC!S3jVSJ-1QXSD;VmVqUHyKp%VWUN^_UU?LAW
z|8_)9E;+(r$6>&gOGf@l^P{-9JB|U8^R~2|cLqZCQ{lh8eH(&I{dg+$^vxIJ_l^rZ
z`}om5^d=Ag%?X{R$LoztpWkVVw4J`D9xm`H?orF>KYMOoxpA%WeaQHZ(1*uQKRI6H
z*gYoZxoVo7Xpx;&X=?0iJhtYWi>@=K-O}i-aVrj(&2<*%PVfKz`9DN~>@i93&VpAG
zg8cFaZU?L{jF-p<4V69;1{cDqkIktyHPd#(%ntVHUf7;NjCSZz&Nn+G@Z%TG7agg+
zHk{88sYwYm3|4TiS%=fKPZqjuXOgQ={{pWgQojO=i4H04%PQg(vgC4NkTls5kfo{D
zx_(*~eolSYULl%5T?D2s%n`)N;z0XMj#gc0e{qi$c#2ppPwoWHOI9e61p!J5bt*wE
zQjfj?j|7S=K^mMn4JX7>g`^)jkHPB_skcb>bx|p+{6wqg)O~<v0yRTgRa>aZ*Sch~
z0N$ZTe;0*b&<1RhymfVpE8ul6=*wEC$vZC)C>mr6;HT@2YgzR+Zz*NYz-^KA&wD>2
z^j-(a=?<^*LrcoJsjm+Nx5`bZy47RUmB`VTb8yz6B;PxRGm%5X;hC`!K|^ewB~iH0
zp-lq}D%B5XKX+j5u($eA54W8w_E=SwCR>N8Yg=CPwGKMjR+m57Iw(aBP%f<Y{&H0P
zFTC5g!36ME;g8wqsj=ta#hgIBm^ECSK7AdI_<eszhT9Y&{Z_kG8+sst>Wgp3I<-~H
z@$E;STVLx^-LlyQP0_5d---G7^`!%XLSQv^_gqTi7CCdD+f=XwIX#M0c|U3H1ZkCV
z-FqSgqnYx4vAaN)Y#GZ`d?!x+x-;pu?(1sV7~=Ii3B{Ky5w$px*VlhYi2pG-7eo`Y
zTeL!+Ebrf7f3e>{9;jXhYE!(eRm?p?%NLXKX_(r`p4O^&9o1gdvDY@&PC_%eD9zW>
z0t##%5S%mcv&mZ#w$&}NZU~q?P<=E#NSW|udE_}=`6rD}aLiEXHVS!QzV%2jAO9RC
zxh#CW(naw-?$)}keg3hZ(frc`3Cr#%rrj&@E8eBWVQBn=(D-@RmmmJo{d`=c8Ry#5
zuLYC8b$`Ac28%l)mm9EE0$<Ysvhq-a52|qBm<~NPD*r0~w*aY91=HC}Gbv|hC;yNF
z-d$QqHqcs5zMMRri(gNProKt2?GUdZfX}3CKWoXSIl0KC=oL*oFO+G1oB#B@#>vh6
z!iqmgtc@t}7gR2aKA?$Vznfw{C2qXDMd6jILWw0fbodaC&JpK91LsQFOM!Lpj_(Ie
z6U(02wLyeQpIPVO2*x|wbUUIWIPU#{+pIT1tDAo)Z&szj{b&8&;g!fWh6fZNg2^QJ
z$p>qaYuwt6%kN{qzI%zu^OaJ@*bX^w1hw#HCl3kM$%;Q-UJhHr^?ocvIp^A7+5sBx
zE+GS3HWt+uFr?HnchVKh<GJdO1~<EF(*00O5lwW+yVyBTx7)5+lGP{3?#jy%+3^@F
zu-W;C_i^9VNBM4X{R}=z-TcAn0)&6_s?D)gF5iE7Qu(p<uuLui*|xq6Xhy9&kO>}f
zYbwf^gag&4Y4hJLXA^lbQ$+R3=A;ajaIGSVvZG3^u33-QpC_o@585P%U&C9&Ujsih
za~pq#dD&go@l{#5km|J2rxbfqu;~P^S1(?m(=T+b6n|Uz{Ch+M#LjsfYZTJgvv4xV
z3nZDmWArMcJ2HAIa*L(JJA2U-_n8`0zSMix$AsnT%v<fI=&AWp`Dto`+E}I_J2PQv
zU!UBBa;alf|JAPG&^0lON3P<t9zRUVF+al-me^^Hab@{x%|W1cZ>uZfJu5*|fiH1f
zr2ijQa)VS`G4-i(N1Y5=&fvfqF&%HWmi~sdHaoWHkmh7Iy~Zkzn!$@9M6drf>L;Zv
z_i%}sFkRO#KTT5ZV86N5o~MyKthwqauGv>$V&Hdl3#~i$6+e~N^EU74O>;f`)cH;0
zwq*ikqC&*LmS?T5{Gc94?dQce^u^iaAuO!WNwhTAs;wOm36$sKGsgx^up=?lQ9yL0
zU~!9gnFna9DY&(DIWRnb`2BFy^<awzHNNcl;=EgW`9g}yo5E#j^F|&QW~Y+-e^d_1
zXU*NdG>q_9`F;7@HM{1X<}w;ssGlW>Wrj>!#8S%*kS~Kyldl4KC~x!;TZC_^+ca_G
zYTJ-IZ5;2I(toa%kK$Dudkw$26LxTlXb!WBNs69IlwB>d2B#&NT2hZw+BBMadPQ|x
zc*ED3H!s^720Tnluo><PtDQq9i!sJRb+sP)N|oMAjJV*75F9=S&F4@a066J&$q|!m
zy0KkgbB*S&*JrUi<ji8}@0<0(AQ>{k;J^!hRFN~%l{i~kTze~5WIYM3d~6!$ngH>J
zogmzQM~JyM4t$utB~9K`mmm)c&M(p%;yk|#O<C35`Ho&+|LLyWksm|Yx2XDU)pX9c
z^Yd{rf$)Z5w`4*<rPf1hqOi5%;(S<Xzc|wcx%Z(>+C`J>bU3Cf$zLSa2BLrE){YQI
zGa2?<9+=DL4g-(MmFMt`w4QpArcOZg9kn9ySd-jlOQ0M}X+=5O+AK@zraGTi$`7XL
z?L+;Ir<E2yie{i7-O#+ulBn>^*rX;@&~zc4C5Mz+kasVe>n6}n^c`Enxmx^dJ-z^V
z^v%4>FhaayX#~zzCLhL6iI!8B>XgGZ+(OJmd%s}YV9TaY(^DE~Y4blU+dHFRo|cLI
zjb{_}>Fl1B&70F5radeD3tPG^Y(jO#D|RoycYTnzN_G_O(B=D>=ujS3`wZX{yqycw
z#9FZ-8LMv{I5oMrRO2D<V-mU4-xp5OU+!-$*Oz+n1x@K&*{ZKultAmMJiL&1qPE6u
z>Q29WMqb%$ukyrL=l)?OK}O~Ep&GJ9caqnzOpSfDn&VN={90NDGkat0ZG1mX!YNT`
zs(1AJ-3qOV%EUN)(XIB0W8da{iKPy{wXrc64o^Ap$iWIstW(y7F1gPxS#{?%lq;=l
zvU&)mED_f{Qq{5EP2uE}ubv-E)W||6NA%{xYGj=Tp8=Yb31%Chc~fzE)m2u!2zPlb
zfEWKzWu<f>QMp4)vj#olft13@=k)%x@!s57e+V4k4Ra!+4E(xy1B+kpL?_o3HDjEW
za+aF`&7>lP*VpVWoOl2Z8Cu>x#<zdM4Rb9}GEK#AeSP%N8Nd(8JhSx-&~ue5v4E_k
z(<s|=c?0j3tX13*sG_o>Q8dLQ5rYakD%~p!rkK7`!1o80!*fLS)8u~Qd|mi*_*@N@
ztNzoQ#?md<$E|_nIET8ZQTKheLMbTbG5S73cJ!=dPY&Ce7ZavYrc@o#Yn6IJN*OUX
zWt|M_45^K#Fq@*NYYI}2D`$V+@;Fy+^}1Hpsr1Ta129~x!>)fti?4v<2bA@;jwN`D
z(7p&(;lVM0{#tX|z3NJX{hpwj`=Y+$$G|1XL~~>r1}kwo@uCo%(9RrFE0-l#$Rte^
zMNy4Oy~*Pw6fjl#V&j-|DAovKE=hkPRqotC$6F7cMFYz{R{4R|g|G4#cG1@1TEgdQ
z_1|pK!qRuqR4J&}wUE&4HB8+Bdx=IPK{rcXwusc@9{&7s;S_y(L6lIwZZ;DxDZ%t4
z@;T_NTOTc6+}s&np+LU6GjA;+DzT7vwgIqF`S>$>D26(7Ih^eSPIOxZr?x9q$M&s5
z)+jr9mmKV(mmX52jkYSdHV5y}shBaWD>T*u=uvQO@d`)5rQGwwV6`fFlNb~rxD2^?
zzCS80^0FIWLMvfi0_9c(m-_`b!tT`}>Ge_ki1k5`N)6Yl`1v3zF>5oc<6Sqn;n6a-
z?{jIw7zz^2xL<@ML?D0W>DJlF>=7Q{2p)+FQ)KAv$fyM3oMCNCkTEjzuVvx}4c^Zi
zkhc$k9+MXLVm*%{Rbcg*L#w`0<OGyKZ7trs#iPc2Sxzb+*AaD$6nWj-47_g`OsPWx
zeAe;cqjiIp4yvSmxK~ntV@}{@WKn*5fyyP8IjEgsCEbDa_5m*&_?6ivQzrn;=N`Ac
z4hR{xqbfA@kaV0>l^GUEC&8U113ZUnmImHZIP?C0xa@+aI7@;VwU)o@JIl80@7N0q
zfs-o%j(-BF1p4*=?Amkh{@*|U|Db>b+M{cS{9(}~DnBs?eJhs)&Zkh-fIQb*8r%sU
zONw`>ot!8stmTGhahEvkYxwmrpqb);--i}Sp}vKimK7Y~HnuMjcjTdE68Sj611#NI
zNZA;2Iv_V1_D@hJ{(c|lhCJk<a-XF4gaJJDq*ie?dGdR}4@EDAo5Cy3kVOuLa~qmD
z!u?HS?TOV0a;?U?$8~xt-1(U@CnA8^^%|t!T4~p%$G3M<WdO)wrFwuP%H()J4>dT+
zeY^gVyY9I$wORGo=bUO4r&r+ldUOiBTxLcq;IE~Kp_r)tyR&b0awqaV!!{Ia2wI-8
zZ$}jckmE$aBx^wo23*koV_smJfiI$>T;i%<6Xyq9*{WnOsl8)amc*pz)P(klHXuR(
z<-?g(eU|upM1Z8xQ2uqP<}aTY02`Ztpp8!_xztM!-9@8n<aBA)bqsVE4?Qdu;{Yl!
zd0n`_BrOEVTGzDq%qih_)jGtvZI^KUhaM$2no*`{Px~%RCV773pe?W*g#*<@?5(t#
z+Kzz=AA+;WGYMgCdy6}9J}`9atBPgFKua%JgBvBcwwjPEocr$GoCZ3QdnrqmCHm}p
zK<&tvy5aq3?$Q<Y9*6Z#zSG>~F&?rNa6HawT0iT|L;Fqw-yfW*``%5^NyERVf8e%u
zda#T3y(XivR2HC*=&^=n^0=hdIkA^ALw~WCv_^#!lKqf@^P@~m<dHtkx<iz8Lt`(g
zpCRwGu)(aw^mD95h_W_xZ^IRo0s6`d`mzoDcG-4*u;7eckPiIF6BPnm#Vbyc%l0-G
z^@zC2onR4T`ZyB^QPvN|o?{@r9YA}ca18Y&Tu6FT3sv!IhzV>-k&S_=X5mwuZeWLb
zB-9Y%=7?6Wt6+oVe%k3fK!9$B-i7^~hjD&$5+e1-=%G=hcltI>BP{WX<7A%O{mPt&
zUrxM7i0bRo^I9f6B?2yk{gTYU=?ZrsInki@YXMvi>AeK{>gf&cP*-WO<5K0cpN==K
za`K4Yyu#Gu=&do^u5tnx>EJ~Uiw!?Bpl|~+VVpsab)ZxfSm|M2gqwocNYTyw+!aq0
zAgq6CTR!aEf|S}G5AVhqH*NYxZdJgijhm82JmTz6ZHtY}&HLCDQDawj!L5-<=>=!T
zcgPGTv`pBW9N=<{{3hIA+Y^(9*KT;nMB?fa6k?5sBCY+da0ai}fx_Dwn#oWiT3bBv
z%z_ZQX(OwPVn6r?cW#Q8La{5dStVk|h%*8HX`5*Y3Ychy?&pYKxijB;p!)UNS0u|C
z@S9g~V!>&7>RYUY(kw&>oA%qpHg_jMoPn1m*ZB>x#F-|bq{N^!IT;X*HLzUMBq>-D
zHw@b>*0M@E+z~f8ecDxW`L%ulNKT+;lbW&m^txkBY%eeoy`F63O7Nb1#hqEVPAFEr
zHir5Go`NjGG`yRJtG#~32H}#vL$PHCk8!$!-5*GzGJ$q|ZxlET1}TuU!Fh%E@0wgu
zAQS$tE%*Bo(Juq&&2hyACjE_rFhQ3g@*faNs<Zwj1Bnp(^^V6aUhcC!D=|?*uS)}}
zF**6%8&1zfs(=5M1=qS>RQsURPj9dhhuOC+Nb=V#4g7v2UzoYbX=yi9LFP`bK8oWj
zLRXx@fojg@zYX}`P_O@{Afq4;1-kx^cj6A|4xI;85&=O&%!}hM+fy{HIOD<u?(<8=
zdoumURBgHcZ#{|d7yO6-@91*Y&xaapWRbST9A+0@_GW%u!?)`mr)7PKA<tpXm;V9V
z`~Pf}|9g6$hj7O952rwNxrLzPKfbi5BwCtrHCu@0mL@sqb2F=n$z^l9BZKchAGb-M
z62#5NK3H^Ir@w>8mj2Hckd&CiW#NCJn*Xu#5eN6xc$Bvtc%L{QLv@A_C~spBAtAtp
zLkn82|HzYVmI%Otc-+e9bLv%~{TO;%jI+|NG<+u|QWZ(B$(CRekwPAYSD-;fVp2@e
zXYSh}e+(x$)M9!9t~s^_Ik(RMHY92d;9=QCp#M4{QYs^r|Fs9;;V$Nje%&rwI=tMd
zDJj-r8B{>P)vC@-O~HpFPYx(N=dx``%;`?~0By;^!tO0EaKhj~t#P@8+6l5UsX37-
ztPt~^v&SLEs8B3j?`?_g3xkMPvBSjbYWmNgFRpSO0iE4@DP){k8a_CsFeST$AN}w4
zZAUa?72iZLa~10fKF#T>Ug^a+soGL{!5zBYsRkm(9&ts{%${Q<KOk}VltRqRR=dYB
zT~%)Tk^%V{SYO;_%(Qi7zsXP)oax%I@hqCLHuM|UyvFGrsGjh3P1)K>461lVC_lk9
zN-(FS1H9Rvz3}V&StWJyEf+a`h4gmtQ92Rg_a(asof+&nBrA0C0modyT7TP1>BQ+j
zMO%Z^3KFB-(uzy!xIYh6cTb+;qTCQ(ssV>&V;@+3exc_MrF40kB9p_F{EK3qkRw80
zYKPpYI6Vxog#~k=z+~`-3po$)Kru;MQ-9fWIHm7V1ssd=jyw{v_6F{+FES@>XD|h-
zpCcy{Arzwx@X+!0nyzSu4+e+$_KB;VnQRC{fg@4WKDep4nl!l>oL9HgSwqqn;aamf
z%VfCz_m3AI>5?ieiRym!YM*`Yw6Gk}An96Ao_V1H6w_>Ywa}Q~;QbkJ<9rl79-a?)
zU*9)9q)FyC4A$D$thuulXWc?urI#$XaqNKIUp6sd(2!%-y_^G<C*N0@jA)U2XX+AJ
ziaT>K3$VF6DEc=gNjLpFafEAoP-QanE?T&dLg_+H@fYeT)YVg({bwsw?-PjQAK<v$
zaVyWc!l~nXDPwQLwLErDbHartJ9H)c6#FZjpFBh<6n|fJUS09N<RF9$uIT|Ie1=;S
z#>(i?*XO2m0l(`&s;Fte)&smv|IV(_n=B!GQ(n*B=yyFiq9gKqDa<I5$tt-C^*Uqo
z*XwH=&^U1B4d;zs^I^6wG*XCh{<_xIzUEZ`66L&u;b;T6zw_7&^Prls=Ts^j_Xb`x
z1<uD&gQZk{u!h4*v&fZ}hP8fm&W<D!2>CK;sP+o&$kMI6ZtTs)>d$MA(U_jmAa6Vp
zc*KMg2KHlw`qF|{37X_)4zZW{0ZJUz3t*rCs+^VFuw;ckSl9AxZt~RSWP5uMeF0;e
zu;{A*S-P(cp-g!5?*YLaa)$?s`)4<27`Q#nOSus=A@LqDT!tF_qv9^!7JQGMkS#?W
zsWats7pPJoW6#*@TXfaQj;?*{#<h-RpIh6ZJZ*OU7lQcx{yFQsQ)iacgFa4MWQ(RW
z_V*tzeR=dO{83$e<74)%1J!`HV`V?bgD5~6AFPhl8MN+`?!*~_bvi{fhY!L+dntpA
zZ)Yi9xY)xvr3A-ZG>-sVGI}ZBs;eBGmfzo2I(24Kf1$I^GmXIBaoapIGL6;Ct`unm
zfVXlZBXeTX9a^fBHGak|w685ufrV>AR|^bt)^B|r-IIhFYe{1HC0jz!|9Y@svoA+n
z&R$l2UuD-1&v=8|nU>ak6$n-l4^Tuy`_pfQWWIPX_j6L(DnB8r#wlb;E+?FQUmTA!
zU1wy+6EGR<K~!=I%KK6Vt@Qq`+CLM!pRI1<n><VfS%p!g7D6nAkbhP<Ul8c&&J3*K
z^FGzO3MG!h3D%R$NeO?Nar|1*i7AdC+V@C9bC8`(M?0rsPdcH&I>39}?4$@kL<`@J
zv$eson2D@3*~}d5-G+C(K;GN%Q4By(HXlKg(nYEz(-Iv#hIEHxUY{vU8gRa&{2mt!
zDt5DIU|RFUwf$=)0XHhOBA@akEz^DSA3Temj!hiTjp3^ZdK3VST`!;vZM&Z?^GU#H
z9>r6FxfzvcsH+H#yxQZF-=A$^u}lFx^vlD^kD-vMe9vM!ypBZu&{Bb05VkQjpLW$)
zUwhk{-?v_aLO#CFgg?xkPy2m7U%GIls$;+nVzGC!WTJuJoAxw#8h^{Tl+Iq6#`Pi}
z)Rhu1;a&qP-@XjEo$YgKnUB`>s%aQz4YfACW{FylNgUTjiZC8jBtA^ySjO=8FZWV*
zW2E+G^JidFv6^I8*V?Z=ZV;1J*$@|%*JIi-LWV8kNr?u(d<}z7iw9iYldn=kKn{Yz
zRR)A)>d!D=%`bv$Oi}#4Ra|Uewe`Rsti>Jn?hXB2c-_SHaO;Henlr1whiB#+I}C(Y
zYi(a_)y3Y5cx~}0bC$nLS9I;d*lu7^v;M+d*QoARndqi8@MFu-ak1;80yMjV-+qT^
zT8V1WD;7(~dfz?<{AkbX?y5PTLM)PIBq&L)P{8*sqVvzG3%qkyF;q=_pK8ImEv+|j
z?P&w>$-XL_t%V@Lq4M#>Y&)|m&8pc{vO=8fZ0L6+UufKS#Zcz3*Js#7tb{*H{MT%i
zRD|2$O}|{mE*hD4I?#C!``X9l3z$58+8Y*>-;y+$(zO3n!QI*%IESyu_lZd_8uvbN
zg+tWJ>YsjU$bSE^YvSNcjMewanVA^iJGNSd%-}_9<U3J<T6A0buubkMi@fiW&Eg40
zAe3zB=x9N&EE<{9igq-a9<0{VU+z$lQm#ANlv2GRpK;AF6stK&o1R`Vx6k(>Ol$Xq
zn**V1k6Nr$>LGg;V*K{mF3(<BAUTD~lF3!^I8a?Yw{li5sVyUD_g1;#fplnF$(O+(
zrKbnoC3|z2U`w2(Vcw>Oq2K5Bw5U_6=g4W%Ua@b~I@d#@4xCm=gD+~P7!18i5XNJi
zbM;M<hh;`dwKV+zxjYp8k<Y;|o-V4i<BY88h-DrDTiqYQ*&kG!{;36kq?pIFsm?B5
zK`*-^YP5V!m!5vMcFP9Jz!Z}d#9Yj9;(IBVr7^f@E(|4+13`tM!H888X-FcBYt#mU
zK!OftFtpsH$%cfm?PeLRmrGP=H(1OW9!T0Z!FKrmz3K?~vRrbohQ2|VS7&efVAo~e
z2Db%g98SWGwOmLMunSUt&nn!}Bo<YgIBq@r<t*jdXtu->K&nmb+Q3;ulzZMX(jCTS
z``n&zhjZzrS9TW9RiQ-dPLoA=C$g&~*7P&gtXEr+EMFkc-3)CBPMe6bo5KoqA!$k{
zQXc@p1~a(e>5g)2yQ#5mlcq!bv>wtR;8LAXPT{$+>-46Ui43`!F=aB3G+rh0bi}O3
zvZb~UCwuM`w@dCzO!k=tTS?~4l%;YBX5i$~Xv~V3jVr+~WZBl*l}38+`O?@I*&^GY
zpAnU0R&ZieB-wUGf!60^OMCxWl@>btte0W){=x*kC~CCVT}1nt@_M7VYK+7b0pa-2
z2Mkhg^Aa<Q$GT54r+N2ZUcLV;m?j7f{f-z-+5c!OqID(4FyvNH4f{F5b?9+zK)si5
z*e1(8#RvT|`FUeiWVVV2>uTG^+y(Ufd1^p*u(|6PX7^n9=SsMcq{zqLa`Ii*j`jE0
zs`x$UznT4bBb!H^W9&EB^H4<k6b#D5)Srd0Nl)J)Awv&=J_kdP$5@no7hsp4S$Mri
zl^u){<zJ3ouYf!I46&uKvMPn8T@VBt*x#O_CHAcvHTuFMHK_S?x4fHvZb{wwR|0%l
zCHZkTeuu_@?ZgmE2N_X5o&vrm3E2F)igS!C(amPlbx+iCTQ=lFm7m*EyxdfCH;<MP
ztUVif!QQ6xwWs0ah&F$~Vj9KBe9i{nR7oD9Yn*)Q`J4a1Z++`}j-)DnwKZaNg>=Ow
zF=&i>v+F<F%Xp=16>YDZkz%R$W+Zg`GkT;q?;ertPad())s-rBKiUNOY1F6#zha^l
z_)!pouqvu}r4^CUQ%i!X8p6ChzlT>yV7C|zhSJlNfJc}$`ap|?{+yyoD7Nq*al;t7
zIi+D3thukh#R@qX38kU)&eqz<l3S27R>tPpGxr~*O&Rz-?2xSR-gcz~IA$A5ixMec
z-YF{PW;VBUIj8t;QYR)YP;9mpQPc5mlz3+@9FIlreNX}C*HgK)k@8R-D~Cv9S*$lg
zT54cl7b{`FWO*Y9oFi^D{nk-6vWvDOIw0Tb7MHT6(0JCA@&^<67vt9Z7GE?X0_Gz6
z(+M&^n#GwjFm#(_fc>62K@(8DNRc-6J7e{yq*4-V*_9S%KmEosA$4Z;`VU!?*zsJ1
z=5vSGBki2-rJ@6PO7?S@<Dxzx@hkQw13^*lGp&c`pa$>ZEI>4IB$*l(mGGJXF6xr^
zKt8O36vA0fS8DVw4q5S6F;N}+X%z&8t>0#|-kg|Ph^3OGR2~c`P(Q#4&;2|t0vsx7
z(GQiwiR0FHtXp^hsD=Xz)PnS{^<`1$DIqCD8T)wJUzaT*TUS%9=xm_k4{1xgJvnct
zj-#8!!~=}Oh6T-?BjHu)BiCn@Wpa3mU93Sd_#grT>7&SD4ZjK}QEe|QOc?mNbHaw4
zK(`+s?2=;^^S;zb2=80K5n5=Bp^_?=5Tt{Zo7hIb<mj=ZsACrvj_RJ<Z&8j0wdPA~
zqo@&ko1pNlK57_>Y(idDE0G%{MRwU^9Fg&1{pmqzYz8^(GHP**xqK8zj;9J940pT%
zx$n6E59GSklYk!|eALv*kBNMtg_f}fMfV1aFkpuMg-1I!%ehcy4ic#Z&F<f;ZIrVP
z@IHJK^lSslM#ecjY+ptgH_fLwR6z)z6!subU?R%f8+-_XXLh=Q04PM<_{;@P?F!2d
zR#!=?ogz>02;lrde%~Q|J^E6N{XKK~JRBPHSG%?gQsmd5aFjQO6Rw#&K95qGk1sk{
zo-nd$-te;++<4O+jBDY$`m&q{stU4etFi<&Bt$rY<I~b;D0eh?uL?cAR3XJa_0AHs
z?QgBnAkQHdHYc*DzfkXI66AJ-H)u&#1a@75-Y77$+)H_wk@#}c0vyw&zuqy0FY3~)
zO*6AQ0>y2jK&{fu#SrD0Mj!(4ZvJNh2dW8Xu55GAeP?@BSy!+Ts<1w%QkJ|1k-R_x
zFEg2_0`;78&RyI;5{eYd-gwsD;-IpgrH8oqKz+g&lh8E?y*2%8WpB983u+8C7ZkFv
zn4a=ESTd*hvtPA5za-yP>PVcUCyK65<om@8lb7VfX}8h`y^8{pdt7PB2GTy4x_QkP
ztzB&g49?1bmW2=*&XptT9_{keCk;Qpe>vIKHKp6&EcgEJw<4nwGutGge3xEyt>qcK
z@k68Ju^5Nx&WGeP1>%#~;J?A`5ZC@bKFS=iy0Dv~Og1G7TPgZo2FLX2&ss2YDEiZw
z+Z>M<W_Mi(g3d;*E0(27{j(!G^ec8)u2yuUkHkGIeb2|O%5niL5&lH*oyHmRuyn^l
zg+ptnc~UFh8Enpoa^X(O?pGlT8(KeL0~Vo{1Ar|hvInYZ;~be~aNxaZNl@@L`!RTP
z8i{`w-@?Wqqm-K>3a?Lx<0LCAN3OeDY~qi^_PR{?v(0R|lWKkGHJ`d+3=)JI0t85q
z6MlIpGkW7wly&u(+btRHkWHU-`#4`-in~)BxKKfef?M{Lh6ZA*3}!J1DfkdlUrOX$
znMN)eA>TcO`~g+NG{y9-Ujwn?Y8qe-x1UlI`^RCIiPfjb9iTAcs~PvENp2Yg>BSkO
ze*FX3s-|yDLx>C277<B%L5+jg844DQlN+I^&KoK%Lv(od$Fm0DDeh8w+;;;9<jA^G
z%Dx@?Mc9S`sDdk1kr4x5%UT(gAs<EHmjMsGBG+9@=L9Vcg7g1DDPImmK??5Us3|c=
z%&xr>e$;1bL!BHEUAq8UC3=8sAJ5-+Ox@0&Knw02#|MI=h=rpPgXim$5a5PuMhyyd
zHeN52P)malnCLy6upK6khSt1gleYQn#FVv-tCk}$cJ$1`sjzKu*RBZ?v|I_hay|tb
z1Ig+{tq0q<j=6t-#9f7x6(m!<(Tu4RQ^uajWnREoP}*kpt5aP3D9#HKi#j7$G3Afd
z4bls8vNOYZUA2LqpyE*Ia<YM5Rg_*>6R-FT!}uZTT4y5J!2o+Pn!z@=*(PvtcJ40P
zLvUmOk^pK8T>sOzF5Z28k^y&Gc>5TO>QGLGUsiDKC6ZMg^NqWIae_4m3O;*Tg4*KD
zYsg=)9UNF#hEs8Z%*@2uf!cmeMk4XlKJgBXDk#&Erpo1`w_dcU(JIIij_G>eZL>&}
z<|(#Ewa~Wy0m8cTau4wCt0hu{fndqB^u;n!`^D>YEut{7==B;sq0}RD8#F%KY4SKM
ziwS3ss3pf2?Zi&QF+lJO>QuV`cf}@lhxSskm{ET%ww==CRQbW`6T1B#bMrQ^CWjt`
ze>`ubE<M9_dgr~%2*TpXcFF^`;&lyK@$7tLck?<Iv$EUs%#8;E=J@rzZ-6+7L9hA%
zIkB7SIjvGaJCXyuZk;B30kY_A5qNpE3Lb!qsmmq~mP2xn|CiiP@lo(#kRsVbCT}li
zHW#0r_edx$XwT@<T?|$vL&>ao2TRA1WMDCts%4zaS_AxO+Y1dJ{9`7@{HF)FAdR=|
zuG-ab`AmlxB22(sWLwfhVoFNyubD?Po)SkO*2{+nT+Y~B8sG*ucu-x94B29F$9{}u
zoiu0QkgKvNtjb~@YCQ|#KOM8OU^;`Fd1Rlor&)p-95@!TxDJ=pl`ZKT*v@ohx5~^&
zoQz#ms>yxjiBF>$o{I1?_$SvlLmIFSOo~BBwq!isM#po`Y3Xmuj?PB(v}sJqu8b<R
zz$D-1?eXeWEK+@3rA*$2K+TijDf-?V3{-hL-(uz{tFOX*2eC9Wx)yhKX4q_|3ja|-
z56J;V&r){aZ5ES$9XmlDj8;%_UV1j4{`YVtZ*qmO_?j+?D=_9Py)b6eg}sr6zlti<
zN&J6J5B5R||7kR12Wq`NvxJSRB)2{TC?+#3f6m(n&n%d}iL(Db$$-n{t7`^3Z0Bas
zE%&=*#C{Zs<1v72_R1JYB?7?-jlPbtF`jXUH<3y~#a(s!DW!h-;Wck_Va+<*4Cg`)
zi|MO4ONQ{un%I>#Ni_*FTek?^!bh=>2@kjhqAi~|4hi3IwH<Swhw#!93lFz3;bCjA
zT5Xh6HEiHV*K`3dJ-bvVQmtaNKE21x)3Q>l&eZ{`v4Jj~if4jn<JI=9i~DPt%+ShT
z2j-n)G-=wKN^g@FvKHdU!dB<@lCWKTZ6qwk1Z6l67By6~|9et0qwGMnSWeDrxI#PW
zd@N%|OP(Anw2l?J&DHK9_g17Y%V$+|zg%Bm7a{aI=W3faX*yq7iby!X)%9OMAlk(Y
zr3Vyw)EEBOTxFvh<YM+j*Vw1t3~$F-Sj~a(j)juC(QlQU`PUyx@PU%PX?XXA(?^0F
zy10r0mfZ|LSd9Uatpi4UFbWcLW8%!uzuUN_lK(UyjQx|)bXVI;=}5OUxpirE>1cOQ
zLrDc3AyL5w1K9S0h4P{}@xk0lWtCMiE<sD&(a2xQ+a^*=iV;zrgW}{o8DW|Zlaz9S
z@`E#`9Yd$+N<*ZfA1nAcxmmGF#ayV*3fxH)PAWn(wlf0~EXB&qG+z(2E2q)|X0{wd
z9A8-NUC#yjO#AMf>3r^kT`U?X1SllRs;lRJPLo^cg_ifrb|JcSe|T61t18Zn_@H^U
z%5IHVc3G8;=K<|HPzFQp(JnPk&tE{2G|y9G^pXC6Ye)LwlmzN_);y|cPwy5{TY&b~
z{qZqw7OOt$d+hjV6g8$LZW+8|bI$1@+}X5gB*}qwa~ERIcBbnK=u6}a5hgh_>#>@F
z2o&(sWHf>L7rfs`)Kky<qgg5!TQ|v_>=_sNs0l0*sf#ms!?FuB5na{np}o-zX@eGp
z6{s#RR+5=QYHpTPBmCvX-6nLaJ<%$<arO2?HK&_(2YAPFR%qSMxueqda&FS~3Y?lD
z=(6Z?dK_jd0abPLl)am>xO*`T4`mNjOokqo{F8bgI@5V~4DJb~Grd3+cm<p+cdn`m
zGkh0asqA0ADu~mbHjDjN3IZ~twQsv>Rmm@;()NC*eSquFmOzo-P_AO^V%}WhH9-!F
z3M*KL3@ZN5w9TaJi+yTJSV|hsJq@zUDd$_q%v=fixi2}bLS}lP*p7{4wZ!x#UHxyI
z4_RfXuuaTlXmj?H0qwu0=Q$o-q&O2xV(3Y!n7mfyq%2sQBN3S;a%MKFobKy$T%_N#
zUiloX)|ODqNb_}m|KA1R7&Z_}kZK`|CjPR&wK@cPlal@;ds%9HUj;~xrHT>fNz`mW
zbl}?%r&}1;0xBZV?u+WRwxA~*azA5<Bj?61NR}Mhws@^*>G!xG@R>&Pm<;)##RaaD
z2RjUT3i0kj21t*Rn_c!DN4P#4tji`8I~~(^%Qw&zoGz)JIw6zKZI0H1T!&!`i-)~4
z-BJkueyB!Z)X;CqrvGn)8QvKKUk3C@KF2w8l3y5lo5?kt^}GJ5Hp(n>`yuOl9Xv=>
zzmVoP$48pRW`z%Gk^P|TjbUxs_EbZL^nNTRQ^VnrVs`Ui0nHv)Ej4npWdt{C6S89=
zp4tQz2<&U_YBm-EN4^AX&B8GgzePRvCUOe}APuMNKW*SQzBm*R<N;QR56Y19(Nj>2
zx=Lbf0ix^dLM&~mEZVo`rxto_!0L*}Z;zg2o<9B}!T;g)&xdGV#g%7VC|x~bZzbF8
zEpA)nN4<`z>56K#e;ln1Tqc&ZR*BvWl|Oy?>e8PlKlwF;)%4RM6-<`RiE91TISSKp
zn6@?6>aqOQ9JS<WL@g$#a5{OeDw!D`=FMe)vtM-&`_mHj?lD5){QBOL`zP9^ha%li
zZ)XV~d@;JWR+73o2l(-;Ehb)N-Q%6)>Z^kN31@yJTb0OtAL_4Rc(^)u*5WR6&`W6Z
z|4RR@8hd)EKT^;hw=-b-UO05G|L{WFsqo=!7edXe?ZoksKMi+NIu0$|uVO5i+mDc*
zFfxQ%xOBBUp=3P1$x6ky{5p|rUZT}=Lzdf7__#@?M|xQjbr#M#%<?<LLN*_Xr0ID-
zC1;R-SC#JV*jOn$$XQrOK!4Bg6q;m!?x^N*ax5s^ok5F%*F{l3d@EE0H{Sj|0|AIf
zQjpFji{2p34^IdN6Dvho{@1D$gqGWW-;QUl8!Gw}v+m-&L6xJCqm|hm_lqmzSTS&Z
z00Q{9lRD*6RG$b}kqEd1WoMbAMsrJkEU&B&iwZ!pX(X4*c6;3Qq4K-okI#AvwqH_m
z`g|zD3lGwCzH&tow$Jg{Zkwqw5n@t;Q_RXc(@kH?orT=)1;&$%KA%ylsKI1)aBrM{
zneOz%Lytb^%X%nS>%SHSf7r92h4ePO%>0t02xS4=TF3D>vdpV(-H&stuD*mE?23<P
z(*I~8-3-Uo@1oykyxT53P<r!NFdm?PO2t!tozOHW5$pY%(EDCx{z4;PWsPYItfgEX
z-lj#!AJDGUpgSoFAKsC!vIhR0hxktq;jRgkTa|bY{(Bc|PZ&1PrdyQc|0kYOyvlm}
zN7Lq&&aFHD&NgB)Lvn(*MxH)ljHyI%Luc42)ziI!mD0mfm%{^Y^v5+w#E2AAbBwfT
z-NSlZXMf5X+91MnYH#D37?M5&=UMxXy8)VtGar5{gsO7%{_bBsH5br~?Jf3>B?ckL
z0hv!~O;-lkjXAZ0$Al6Ex#mj#bs1ES>tXY8p}gi4*(TQkX?ciSgZA=-u1sgaZBx)z
z*ZU5rB0kvpx+5ZR4BB4^X$pgmuR)jHE*5;SoKm@vNc|BwSDMmzdk@zGQgT3D_6m+`
zzfg&?X8FBY)8TRztnXE(_%T0~LtIT3azYuRYqbluW4j8(?iY@9nU<`1o|fQtj&{ka
zXHil&i+Q&LR6AZsYPAxno^y<prnB50Lms2EATG?1P}73S<hGQ__rW`^@|xV&AEf_Q
zFx^wg=ou4xK@|h%^}KI^o;?ef^xRL2CHNwt67YDfUq?!}0xxc}T*#hzWYI`{)15%m
z1ST_P7?Hlth4buo7X9^0gTEiBg(|AJXVwAG2jEAQ_j5Puhy^6emP&^n4z5fXp*)nn
z-dZ(PEaPy$9SK?u<;#ujpdqa1qi!*GRxbB`;ZmqR$s597i=(LR9L&WI6q8`OfuF&7
zR|W24yC$8idfXkbS&|tK*NS(btuJjp(bSe0G%06mcvMEiGvEPe@KoS@)fw_KbOtF)
zkSlWgCdT1nfN{=3X>_uc`qn3@DOGndfL<7A`B|uoT^&6<Y|ut0nL4Khie{9PxFPTt
zuQ|A>v#&xCi`5llRBRASv`S{mTI4yJ25Paph(+t_3rKH2FjgW!8x*Q!X!(XR^%Az%
z&>EKpPeEnCm|x)!`&oTw?$#CzU{lB$gHJB)rYrz{hwz#S4r6(mI7#Nk&gn`xPWR-X
z)Q#=p2|-Mq&yz@7WKqRHxyij{*~Z#_UDf8Y-_QKetR7&GuE>pe0Lt9~X|xXIgvpiD
z+)CMtm(MF7n*J}E`JAU7BtLqk!k6WsZ0OCUO?%0hKRBe8Kl&fqy1Z|w81a-bD%9dg
zi9#7BX}zRr9a%{6(A=)WN#+Rn<<8pRR)JxmPxhjtuUrU(i(}bO8HH^bT+QD~{9Bdd
zaidlhl=*&cPsMROGVX;L6fp6hQVe+xhZ>gfFAkMUZjNTU5Gr3;P3bbLc@8(nb}{3v
z5%FB;DkPv2GBLEL45?G$IH%678<#6uizbL8xoBxmrE+%2lI2qd;d~;uN~++kNA#?d
z+vm)_$D{cJ<*x@!FO>NQVL?kB%{G&H<a7Yv(4xlizE@YriY23HZ%EN+*#AjM)TL0B
zeOV#UK|61qlv+!0!vNg(w7LB{{dJgkymO>L0sDLEW(QGc8$-Zb9t&TEintP~TR;So
zo)6T<I;5m_Faf>x*-|IA0$J>QTysu<N0{6j{xjZMB`yT->TNVG5CW5R1%rW5t(I9|
zNAuxKAlb%Kx2-lA!ZkVDQ6J8FY=k<$aa=`icJaFLfJP<F<@~wbTrrM2HOwhlJU{qO
z#bEfmO$@ckNTtD&RwikDZ!ITNlWTAWLJ}<QV+}7f4vVFo`Ih@mlZ-uffp1|T!EKb9
zw#WXwAXgv-8txN=&Z^jkeLa}z@oV~{a<4lcF08S_zwOWM5y5JR1dd?y>LB4ZxD0Ms
zgUxT&{k5Xq0Y0R+b<L``e-;M!XIAQWNMn|44aJP|Hkx~!=A@fo^66Ti+ME{{!&`6C
zgq_<i0qx{j%yK4N+iw-;wVv|1LtM=c$<%wYUE6f=DPP-c>cj&GHm24aH8!)vnYT?-
zhD*Vj`FF-(c2|`P?lO34HaKH-#?WJ|Eodx9?;h9xuvp3QdGhRNTICMY^0rK;#Jm;U
z*Pfz8-IUhZlMAIlo@^~U0}iQOV|7M?(Sv0o1Ye>z1`XS4&41%6^e?IWZwy`3U7rO@
z9@^Br@SxhMSHavmNkg2J*g<-(cXLhmY6@=U5$3jOlBKTF9Qo$9KpwG9)_dWVqP)If
zyi(;xcWujwO~;6~&lj=>&8^>UZYtld$^E`Yb?Q!nOg4ucE}gtHhXiBytc+T(SQ|}e
zVE7ih?Ac$<t;cKTjukH6T)|<BUG<)As|qEDZUOt2)Ww${78Vu0c`9M0hsM4avT@d9
z1pG6z*dq%QP3>HDG_b!(>c_c+`%f6W8Vu~w_qbK_rHRy0^m%#Cm<1OPLA6dpsiU62
zQ=z8}i{jK+;(X@ta37HyU&yn|axfdDZYfnpQNUld0KL?AO7W?zzW4P}iZr?1_oD?e
z<20e|!Z%J|FroUuebuqbBiJvx!&9A*ub%B822v9>*3}iWpMKrEBQwM<Z0C|RM6I0i
zi`;#@1X*#GVclI-&uTwmKU(Bs`!4wnr>796ir&37Y5NFEqZGLzNhlf<DU3KXlwzgL
zRsVK71u|~n{+uwsbB7({79R#z^B@(98kA_2wsWz*`Xt4JSUOa~6d86KuT0MGUm*N#
z1LZRg`A>hw4Q=D5aUzL-e+yaK)`+lHsqM`OQFG+A2`khf*L1gv?eefBSi5a|L9m@0
z0pMg<IaX(tlemP{?{U~8*YI-=t_>d?xtN1UOK8Mh{oCh?OD#5N8`r2=xWZ{^NBO5t
zGs$4vLdO|$Ijp|g0!h~g{GhB)RpyuHJHe6Xv(D>=GSk0cE^%2n-Cl}(3kW_zmIkY}
z$Z0?xP;?4HgDLUUn?PCl{(PTixTmhSBb2mCG8J=n{j@YZS6BtAyL_~d{B{e_%Ni!g
zzn{3H#FA9gBpZU&3S?7*%^Z`mQx@TC4e)&3B4siz)o-^vW`u)kn;Avwud=?#4@Vd^
z7P&SFNi5nrybB!`n%fc+pvO%NBxOCSPNMc6RBykw9QS*zjmPlqYPi~40oJ2GntzeM
z#aU5(>an!rRYjXqhbF|y3r}kEQAOCSKW9%pX-?5N-sI(5XPx<*FVWlWMfWXEH;Vkb
zDewTS27?~gxKG}Y<1K|;UHuNH>C#uA6S3ae@L_|)`7s9g)=h<(R;2ad;`uaxfX=Aw
zaK<c83bemnThJ*=>-gCQVOA_sS(8^E+7R^YZ&t&GHV-}$ji(-jpa);x(QiqoyZ@;L
z5H~)-mKMxEKI~I{SekI!OppFWp=qc53GRlVhvmrq-BKPk806CVv;^O(B<f=ghM2`i
z)ja+1=#xK=p4$klnNThKG+7JH|76ASIq6S&Cn;$&R{F5kUpWjE@?JDb&ue~GsuA(>
zJLXR0CaQ6(d1ZibrI7u}cM9>TV&?45PS5j8Puyol=I8K@6KguFh*`%>CvjUy>jR5J
zK1G<@NA^{Bbgbk_!NT6uL&{j*%>0gZvO#sjlg)Bk_jF|-JKsm6Hi}AIt&PoB8Qj5W
zb16<NKfKwYt8B<zFvn|Fmd7e5ug)hn{z4OZD&Va2{NSDIM=~LZIApN6#)Ul>_08J0
zWNo34km<jXkcW@dr-#6y0s-6vTs8FI69$jAa1~TMrc>&%WD%@F?uZmfgwAwPn<_V3
zk1U78r*q~6E1te|m6asbSaqJfSUEa(?asqP3;Bl^EYlT<jHAR6CB4v7KOdxSrv1^Z
zsY*Tw2Fa0M8%)+pk^A7yaHdY@n)}=*uSUU{v;3VO{k(UowGlM{O_TCSJ(`v}Ox`iZ
z1scL^m;oQtU#;ra1^5zfS8L_7@TtwU({I))%cpxH>wHN8eAye{*^C`{VlPVRY=#A<
z-1gO7G${SFRy#+r|ETjq+VN|ndN$6Q==etHBpJ2*i7M9fxZJ?qR*o2k3>HRFHD+34
zHpPHo`9}XbLxP3^S=!*RcC5kSBkTgo8tCIRlN{xCZN3!Psyo^4ZlL?40?L%Y#q>+V
z8v^I{qh<~<gOhqcBY&S;^3|&uiKCW3r9~b)rP)^b#zm~#;s|U*MUfK%tg~u-oTRq`
zvO=dyCNxfMIzLZNbij;y=KDD9(aI4ZcxR=F20qi$%64W)xYeEPyLvf7%K3*4@%{Ap
zU#V=vW)w!YZT5G{!KbQE{g)9T@vk{s@MU<eOUj`}j`XLS&{71-SFtGCH$dwJwb0yJ
zcysdtBcRcqCp}@bD#^{7vT4{hRAUR0RwtYzwv4uhUzuB<6}@IYzBv$53n-&}(%8jK
zpS*0^-0rRYJlURj?9;vwU#_k)bC)8GMaMwZ0ez+;?iXz2q_2KS1cf1&xMh7wI#76d
z>8c*<S-{AtCjw%^-a6*v8rVl$+S>Q9F~3zeAMr|fw<K~$wU0|~#vLR*!ly4E?+Hq#
zCnzKKEd>rHxm~*psw2pR!>nX;0v;1-AG3S#V3RsS_bM(<C`W<aBCg?A7PGrmo~xZ*
znq%Mu(rlA6K+l8gBa57`eOp}~F)FsIOQO!_O^Dqrulr&@(hfK6Tk!IXF{TJF6e!s1
zbPEE0%I`?(z4OiuGEW)Nc-;G6EIU3-K`d79&p?*?Ep+sav0bw!VKL5d8?A>K#eB1w
z=GN+zY!~+1j-RwX1wP^BpIWj*S_)3#u0v4{=wYC>qUbpxz!IoGYdG#G0HqkxloTge
zTdVywee)1+6?iQWsVU${_SP0ZvHJMLQTxP*{tg4M?(HyCNQbs&VGl0^qvu5p2sKWv
z!i+ZwYC&s89XK2~*Bss$q+01hC@nn;n;KD@IqO2{VYG8yw~)aCLe|ON7TUGCl&rfK
zq?h{W13n%v`#eo%qkU73t__rHkkrMhBh+n7KUPfa-yC&tS1k@CmM%Y0ouDM~pI1`!
z7i?l9SC4i{ELN@;7!~`oOYd>)<}!7h<JGd(S&GE!+hN~wCyxMI`lDNoa23YP8k8x}
zhkn1p^V6)ju&70eR$YV@RId&NfVinC#m9rHF<ngidPg7+t#B0P=A5>kJv`$s2|4@n
zj`{7g`sXQ8Up@1DpGtkS{9H9>pQQ0}3_6C@j~`2L6MT?n^k6__b)rt?TVd5gY&%9Y
zO8@pA&+@dDT8TZ@DE=ga>MoHd0&;?rz=xBrw{?x7x!U<88p`;}xAtADKD?$+ryA`Z
zn&$t`vIX=qhdXkb=K(s~;4qG@)|+vqf1(mjFfC6>a?*6KblGEluqH39G-k`?0_BO}
z6NW8sr`QpY>r{Q|D1#FW%TuDhYMx}jfNM)ICydZ^sGL?22v#GLXX>gOPMbLG@I*~d
zdEZf&CfxYx4Su$4-5C-p&WS9{@^xoMzAWsNnf~A)Ol+tB&hM#qG|ttD8)_{(>0c;D
zh(%Ms9KqZ=XJbLAIY|z1m-wZ4+ewYnW~-2~vy9~-oxhqyo>NOIH>-_y<6lO~xJyD^
z!+0;8BU=yag=R8ebIz6(!EJTC@l`Wlo@eyf=3n=|3_dK0`&=N4qNlh^zQ4^CS-VpK
zKA=h&X_sNSc;C0tM;?jP26st?H;@;)tQB`=JBau<e<zKjOzN){ijzf#^nNkBuH9tt
zw&V)O{|I?zR|h{Tp$7ReArDs2fGptsx$NMrZI`Lw59lXF6x=0uoGn2}1{e(k1^!&P
zW8l}VQ{?0_BJ9WzM5Q6U&_=Gds=s#k5@<*aO5^n9;{~1FVcr>j{Lee5p&v>S;q>(e
zE6&U=BiboQZ6E3Ums?hvw!n$3US5JMRVSzW_DOfi`fvX%nNYK%{?EVBvHGNQ_hWA*
zB~ZhamU-@-n#<?;2W5cb?FN4bkfkEL{3C3F6Y1A~xCsexhYmdko+$Ka6~f!00{Cq=
z&h8cDK!*zvgKA%y>AP%)E@#zM%(+q2-!2>shCyye8+Ll;_pyw#;uRRs9u$tFJ_KqL
zs6}v`MJvZ#!r~Nut1h05;`nP<BJrl;0XE>8p7JTqBRePa)LV2-kZQkL7NY{ykOv;c
z5~<JO)9?VxEc04U6PV6G9{lraUkCAt=I7P8Vj@(rgMi@TQg-ISR%};0a#dK*6Tywv
zLoV$(><^V9-dth2fcUC)2wUHIHDwN*SAOh}adCUD$8J9kV`!+7HGNq)K=eh{xaCkh
zwFhpSUpJ;ger!nQMrm<S7_@*Wb*WSB_5QsEDlNO(xE4t=yT+MLz159z_c8nv26N~7
zmVM{e%#<M)Hko?-izjRGMoAq64D><}ALsVV6Da81T<@lUO|Qq9eKR3ODdEG>)C`OE
z-7ve<L;l0%#V$0_FIfE=ah1A1gkbf7(D~4xaD9N@1h)l@g)Ijo%(UmBBU~}mO(+BJ
z+c3}}9^eQLKifYY0YKTK7I?penjBf~&6#w*#OCPC<c|B-R2Nl6W2kQ`H+c?f_FY?&
zHpjQ|4r$h2%Mp_ZaEA^?P!86uK}wph3Ow6yDK~wDRsQ><Qlpicz>8z%z9v~4`W#x0
z*J((Q)&w@oh9d-7Z;S|EY@``9$Ga~WOXzU+)89?&arUF^ov$??|KYA@eBDNmKD$>8
zeJUVukL|-r26@L4-<fsI+vlWq!U}$E`GvLwEcTUd-YjIl+)-F|7+<IKDo9cn+6||U
zH@{W$3!YqTVdSmI(J6V~*C2c+<4me%s{h8|PH(lm#d7KUW0>6j%&RsJb$^-(0o`1$
zd325AHN)!Tpw3?|P<GxHu~^Z-{ke@PwI)MK><V;bNBsiX+TifbI&f)UHIKt8>t#N?
z!Z|Cl)f4IM52`q>;$AhcJYHo4vLTQ9<PX8sTG9;L_3gGpeg50BKyNyHEHBb`@vq3z
z&ZylKoYEmoS^;EjUvZ#ByZ7M+<C~-%g~93HSu1-d5w4IIEw3f}>E~{W=^=YLog&ke
zU^%&UJVGVKu|kTpW~e`}P`k17rx!k=&|ufrpJBH7SS!gR%n|H|<{=jjm3W(Klt?LB
zu=+4Xmp0QrT7}@&gq_wgXh=xsYj?q5Lj~ew&m&`6Qe<BIdhK~~ep=<@;je(+b>E$3
zhglg3tBG)Sm;D9=9FvGvJ*DhN@cjJYNR;vS#5b`$ww^llM&)&PlrQvSN=!S@HfMNE
zhu&lKS%2g_S%ny++FNA9?(-?y_YJ}eo{mYAUjVffj|)&%qR7y&?T&xo6qZ*3^62b>
z!x8t_;%<+~H<lcI!<J0olV*(8cKn>1-K^_c{b`V;^+YZsK}y|~l}?;P@T|zta_@R%
zt@(M%iO!YQ+&O995dpM~*VzBD7QP2M+E{Njh#+h7-tmlp%u(x8FUb8r-BjZTIZ{VA
z<rasq7Yk`|qV};*Hb>DvHBXREE-PtP_<6thJOTB*uX<WiO%i<+Yg(3)a*<Me+h8}v
zJ3bP1jB~shGtn!!5Yg0d$1`D85jy*#;Bjw_xA9%Dik|cWv6ptR#n)R!ydpDr!%L%y
za;D~KXt|E>MCl}4OXJVQxuv0#u?XJpmPh<e%V_D9Uq`nx+uz3+HPZBt;$=Ng_bVD4
z)_}rjkK-BttGzD^YclK74f?Bpl?=aCGAW2?6cuC;5t+3VG%}UU$Sk9b0y2{XwM0||
zD?vbzK|wIcAoCbN5im>vF$4)o6aoQ4h=d`Mkfe90^Plc>y8EL0wmTPGkUZbF_x{%2
zYpwTv*ZOKY0imHJDlb#S{4De@z1DJ_rF9+Il!6W0-YlA4TzJ{qZRBKUw0D{ASd|n+
zlhJeXJEBl7ra+mSReLkbRyxrf>24x;aKO93mPL9>sJ-Rr_n|%Nk2c~PLl4rfRi^rP
z_e{aP-U?Wy8u!4+xk`<p!QBIlFMr*=b*$kqPQ$-$|194@ORywC14P~Ken28?nuzXG
zEf+&n?%gbui+ocFk5OO89<mR=b=>}HxNkIT_alJ{A>9p4=$;}K$7@8yl^y!lYkTt5
z@CU3!-=VcMWp0dY>@I1=0<_;F%!=z*w=WdK-xhmir}ICbs{}Dl1Mg_F2X^o<2v4(>
zre$I^PV|t&KWYK%mt<9UxDp!^40Lg`EmU_{yN8M3?e$F@ESe*aM2vNqu@I(hkCNv+
zWMZpuU%$Kt7*l~hB1fCK43gFe7IarB_gT4`eYg{<)Mw3Nb_SZh@6`H(?(D~iT40cV
zlYJ70GD%iG7F%0RG);`0?xHy5%|k7+cC4d97EJ@~np@_?djL%zT$q|;5w(U?4;X0X
zJ!@xK)b}t;?2wus&ZV3I<&{PHaJjmil#NWR$(f5n?}q~XKJDJeo-Snt%)aKPQ(c3d
z#_e*`?x3o<PUP#dGl7B9Wu}*mE((`)VtcVaja}KZT4JYt&atfqvH9?pAGh+DNlOPc
zyVtTTD%^1@@n(v^_cmuznX9C@gCfm?HY*qL_k0_FDI^`u+6U=e)v2b)K_D3dYyjt4
z=nEH)1P)=?qou17=Rrn9ql72cjcNtlSvzf{xv$pxA6jXxQzb8r=5_{^<I`=)v0>fS
z7gCRBeI5T23>Jnd3J3~sWbI{o`F*Ff2MAqyc*UP0Z3iRx5vbZny^X~=Zn;p8IjvA|
z3~s0p#J`3=)palkRtzthNwq5w4+=DhEBoR|#67&5JcsOm3HPOfv_3KbtBdx0>*ZIG
z`rFk5knE@e^$Fmi*kXJnxW$@WuYqA+l)bfOP3d@}<A?x==&2Rn3TJz&9W!dvkk`S*
zeQi+{Au839m!z3NqK8h_2s<MUNs2xWD)5Qg)UbRph*{K)GUq%JO5s_cAJdVy3ZxH5
zx;aP?9A~07P00c#=*c$G@g{)d;>~%&WoX`ej{up25y%{ZK7?9F@b#xgsO!*DX{wO%
z5AQVf34Wz1B&pfw%rOYW64Y<8WT`?^uJ9etbY5-bI~H1?xa^b;t2gXyM75Pzt5Y!~
z6SB8({Z{C~7+5;L=*Q)e_CbAb%L%386KT5j{OJrf1+@@=&6)mVq1?UlMFCHi*`H(e
zGl&vH9Q9)su~1w$W3tb{0$)^XGlPgHJpj^pw<klqG?L^TiCJi;d%#6rcn@eZTjZ~y
zCQsP!X-W)RF+Y4@S_U)L?lv?L#Lsu;Y{Z8ezx$@uy&R@BwcKj-I%Ta%4BjXW$15IM
zA2AjBR~+tj1_)7=xqZ3GX~L&{=4<Vin99=L;+z+5?%LM-4z1hhvv3+Ar*1$XGF|uP
z+r-GNw_|<Z#U20wW#^*v@ua9QUu9;=0iM#?gG)uN*URhqmijxeUf9+H3F}FST`FJP
zIPjpdBYQJZliGRPmRXNu7v0y*=^NsGu-h^9r6ruG>Q?-8Ka8T~vuLo_+r1{*5tK1B
z>%Lk^W~)nlum$Fq(~$9PclAv4)IX|`>be>-F=1hSbLRKS9S0KJxK$M{+<Q7{!Uv~g
z@P9}Vw8Ad?H$-Us-1cTo_51onr8!$wULds%f3k=20#_^saT2$N(IsYz_NSDBIQ?`8
zY6qn_M~hbuRkDZ(DdT9%7GKl<Ch1LUJ&Ai7C7G_^HOWM`9l<p+6pZs0u-DL>S7(ps
ztwaJi`uO+ChU2)aAdm|5TavY{sA@H^KhKH8AfinQ0ymPcx}p}^+=lIHfVaz>9*xr$
zEbN>TMd1ULmh*cHOok)Wp}oZ`l#OoypM+@cu^e(JZ0vuu4huOV2I;f|iPvTe|Fxa2
zc#)AtMTh&Jw6-&VO3%&!iOgF_r6v217P#&9<p$k<Y=<P_HacKH2?;tJnzLP)CADuQ
zFGpM>BizfT41nh^>NEg4EKjvC3o*~=U|7Tz5=;|K$)ricfS?elFvE27?yY{{G8%0v
zwE3@PB5zEjL50K7zd$;JMVy!%b=}GTX?=)QgcS*<)^r%v*1?4Ci@t$s1vwE!bAS2&
z=@0@C;lE<m4B&M;e<WVq7tn=(g^q4r=q<o@$4zjs8?#c|V#+(zMG3^jYAeirEc%zu
z-&!ooa(j)G2Pwnykn9T&gT<%Gu>8rJ119F|x@7Ndou~Q72x|IC4V$(oG|6fkBp^$^
zO?(=UT0}3X4>O_~LF%m$24Lm7`6(#phQUvsFWf#ygOph<zZRvYBFeV_?HO7?dyEly
z)P4zWxDiS`5*LSpZ-@Mqf5_o=ZKRzbB}^BXJKE=xXsa<rh6g_XnwRv6M9V#m1~@91
z_uHH81aODW#lKc)2$~*f0Q8!k;m&{Qm^`iiUBb1M7Xlae|E!ZJ_W%D-?0=gA{dX?n
zGGUd}d@~*NDg!j~b2}v1uv=h0MEs`J7T|96ZvppM7z$}6qK|>dRU4-MPjKG$mP46*
z+drw;0fYZMOZ)E(aSI&&kLHO1)_pD$6>ME&jT(eSt89dWN*1-o>@EIDb9!%VY1nZb
z7G<c0!@$x!idY@cI1fOUB`V|cANX&P_vftBE!cy0+L4#Y?Rm6t%+DWI7R&AM^#3bF
z@t2^?JBf(nNc3cbb%D~64R?NhRu@3zfK(g5rBL(?bk8N!hF4icn28iZy1E5VTkT8`
z!6@019IQ(kvdgX}UwjLQ1pXlWqJylz$1}i$76Bo+uUmLpux9U#tuz{vl>Fnhkj4)j
z5ln-EPajT-7H}{-5*?PuwTaKR<^<WEcqY%evC-MT+(o*&y>7@UMC<O>H~VTpf-ch;
zZpt%Yq^|Le!&R7B=uNx`7JJKORP0OHGSA(Xw`17RuUfpW*;HU#{S~YGwlUTiDcWUd
z)TU3DR_QYnkr4-9HW!^502COB;(?-ywlpVDvwoE<XoX67Tq?gBd?kXIiim8gpK=@j
zeXCX>=|Nn)Lsf2T$iP__bYf-7+M-#_R-Rs11^Dw4+idJX+{odcCUca=UajaOUrOI8
zh&F$cp3j5i`LjTg)p~%3hqA2L8+N)LJTKIK+loht=gM;bBpcw+sLAG_#S7>}pNRP_
z68m@kBRI?Xf%l63B=E>at+u$SBwDAaacpv`!#MdVtsW-%4ACc=OJ{k_#R~=vCD$A|
zw_!_}G%HwWRv;D>OKkO&1sDN(jp$b4v!yK){r-PH|HTzJ=ZgWzP<D!?h#=MieS1OO
z1PR2xwEY0EVs8M%jI9BSu0tQ~e9yH*{kpJT4HICyT_G~C4K67}567{^ItrY?_Hs3R
z1vo5__8-JaV<?4^txWQj638P)<b2ysB|?Nc<WX@VU(t_ehq~*6+v|B*#33e`<%zV?
zX#pbeWgN0pKvUIH-j*$5!}j-z!2}II1PP#BR75VIvaqvZR^Xf<9R*4hp*BGc5He1u
zFM(_+!k3g$_JoIqQEXQY4&mf&@sg0Fdn=o_jITsHqu?aVT}e7lFU1NKi`oS36>|xL
zf2?ei6RD2&_g;9kzB1hdf}OVq{AHMY?`=CYi-2D{lSYzeR@G;MJr^wQ7zOXZK2?M4
z1ZV&F+4ie->7ge<ayTw0InNceIMhJo04(G={iF3Ie;pbVs=753clSDz0$OszFJcf+
zt;MWBhj$UxZrQYE*wV8=vL?juE+FUYyoVXAG467V?;3A`XQ_G~#9X9hOlW1pq(2XV
z0{Z+zIOCHue^1(`an7ZWNF~FfrAbSx2q}K5!zqCNcrmjU(mHgDkuPFqB$%qUgEpXL
z4;cN#)pmj8#1JgvqQQ-AkaIOh2%p3?tk~~X3%(?T56te!KC{C;DH>o8SasY_%wpij
zu!_$CC2E{U2y>^B{cIq+FW;6eRGeY3+*;Q|V4#zeuHRb1jCaYigAj-~W3?PH9e=rX
z9-_8abRls7e7}52oxwcp0PfBf^q(-u)2);W)m2Qo_p)>MaGI9~G7FVhHpiR9mG0Ec
zw*=7axu8sRB6zsNq6JEluYFFt(aou{uED-?g^U5#?rjr@*>5fLr6#Tb)Y5PG6>O-2
zL_!-D0mFlQ^~=v81bsg+0-%N6-9Tl|lv`WlsGABEVe2`rfsko%q<T)rngh9ToJE-d
zAJoeQl|5_0bO77V2Sq{@hr~m;#*)nAplir|b97=;C<{$<bQ#zINs?HaEYJVbU@_Vf
z80kk@&p)5N0}}{$N2VX|ah0u&y)Ey(Q={`b?<UIN$VQb&?3g4Ex_EX}k$6Wpl$ftT
zh+x*BL)hnKZNY8<CH2i}1aUGMGbY}uiPIAa)*8Tip9B0^Kz~zJM~rHZTdt4G3T7*i
z`Y-O=|6xCm47r4IgSCH(J_H|#M_7KzT!>q`!fsE#ZpE8C*@yo*J{&atOdS`+ft{0}
z+0??VhY?wIxmKAEU5$0#H&v`P`2GUZ@f=$TvKhrkP0%ZG)9@2{jEy0Q5BqzXgvkL8
zB$NA(xz~P%?7jf9bh)typp_~;i(7=AtS6-Il^Z|XP#kHbVY%ESkQhvEKuU%vDM6fe
z0pP;ZNrSmO9$Atv^3cLTj{vbGFHmJFyRZ%*=94&3Yomb+E9M5U+Q!GCw`~WbuN`Q<
zJHO15fcX6ZPN7asAmycI(*|0wI=BlZ1zYGbqzeQszNi_f<7aA^xlT}w9<KC$YV9dM
zM-)doovMv<hN+v^Xai9LB}2gAExGhIVT=WR4R3m*t<sn8E^SgY@Vk!2nWOp{h8kA@
z@xkMygy%v#p3=-g=U?_90MY?JeXxk~OaT0D4h_2&9(tKgh8A3AFF-j~QFq%y`T2A>
zs?8YJjmf81+R@wUGHC9Y5qi2RI0Fhr?+AFv_rOH9pTNa|E(L)-oP(rK8(;EVJ{alY
z3ZNVDikv%85K=LeuS-TQH5_eDDEmT3g1G56@w2x^SvuS%Irs0??69v>%3Miy^R1!Y
zt8nf>U&o72?=V9%yKLNI4A6->gt)|WW5(&z?su_074!*be8)YX&B(Wug0A?g8CXYV
z<`^$$<a50gSoz)a`SY7o9+l0!<f-Mu$tk05!=wxv)7i~wj^aLcc&L4QPX>v)DrfTg
z7%`8Ysc+Tcz4&qA`uo~lw9^6PDX&M#E<i1jtS6;$fF0M~f&amO7=FL_#DbLm?7TD2
z&x_nk&7pN|ziu4WsV6@>nP+fusUN0pVgK5LwVbRId^<))AaR7S#x7ItL2BV%Tre*1
zs(M#al^4F^#L{zO;k~d#cCm-K<LTvp9dX|L=KI8R%Rk&6_97!w&dzAe(MxmooU!ow
zMsJ<6sO?NZlsU)UO<TDOCD}^<nT%tUj-9pc+H2Y1+jIxlcjk2`ui8#~p8L4N)M$1L
zR(arCQ`r9R3VqX3Cx$D6tz8cLp?6SbxXqM^yx#p|uXj++2qi*bIu{bh<%rN`LK0nj
zQD;18G9C<)9WbR}@uri+x|VNtyAeZ7EvbZqMRhvsEB1A}(K=EmZ_2dF7jgv*QI!;f
zHatZ*waXmy@aQG~sAV?Wc=?Ppyj_#F0y9(no~gGPjDjy1HmbxqmCeXHaLe~9M61M|
zFS|ZeVn?5OT}fZ9j-q8jk&{oUt!RY;AC`WHC1z;e$VQr4pha8RJdf%vIq|nBe6h<y
zyd=<4I-u^>aQ%sHx8ef|=);U32DTNPwg{u(Hw9h(t=zTTJ^BO93En7KLb#NL4li=%
zIUoWvpu(#PjC5iO!S8nCAo4<$Mvq%w;DaY!3*H*9S|nL6y=splx(o~IE8o?NEK6P`
zy=3V8DFOZkCMeFP>Xl`?-)T4#gutEeW3T9U94k2MDcrv6!-8N3zh>1Pe+u)nw4)3>
z;iOo#-J)<Z$veyJ<ahVyK2^qW>%PH9k}-_Ym;?veKX^u*^BYgKO94cCwr7NIST!(F
zYtQmn#UAHBdSdR3P3(O-kKGx-S&k_Y+9-h@Qm^NDDsZlj{Y`RaVBYZ4X{PqK=_Aw9
zv7{fmw|ul_O+F<^EJ)|paOu&mM8VancZlh+1ZHZ^B{cn@ys$o4uFJI_9e*-}ty44~
zB<g%1(^DwlG9ymqNTm??ySe0Dt4OO64($N16e#?0I@eDgX>OR~<%snn+(tOrS}Usl
zl7e?h(-p6HamGI9gfV;JNccJGNsJ${!hUthSWqRI68HNEr-Um<&QWVJE<8(t!MSyA
zUqhy;!>qmD@zScTfJiZ^4Whm#dUk{}u+e6NMYzZ(77d-b;_aC#Yu6@dL1v>wV=y+g
zKZ-tW?1-z-iRM*|kSaEJ@N>%H+bf}ZFXpI>ov_hk-zCxX4O8Lym{6qaPFcmBGclHX
ziij;GT_+0YOLn!Cv6|Ysj<M8kX$>_l=fu)2+2D1?NU2L)ZL4>}Vpz@B_?zM7{_FFj
zzyvCg7gSA~-Xt#;K&e%|i7y$;VDa3ibDI7+zV=Roxoi2KgKnU!<SjjTkhd>ZxlIa?
zb11{sfR4z=h%mJYYq?YFLi4ppoNJY;6A4oCjW@bz8y==S(sr)9ZCzvfpLojr-Yb<?
z>`w>2?}mlCdJB!`X}k)%+RR<YcRTk=%_W#R2-|piRRKzR7lnvS8}i%|U`<W~>SXds
znP+_sym1a$8l@0qGx0;W&ao`l?}+`#%}ZEjdE@?v6^2>&KYNe0G=D7&dRqX_mGf~H
zY=u;B2XGFy`wjF9l^~irSmTMEkhdoZkKdzc+8D%n7X1#C3X8h?!m+qzH}_aaB1ijJ
z&uMWqJ^v+qG^w2dx0+FF(x}pQn9tq5PJJ2Ramr_aCCwyB%<%}y-iV?AC1YB4=%wNl
z>lO8@W{rrT?+uv8$O~k~r?hzYu@iL?EjxKPxD)ajy-@tS*M1w<@@YXmZJR<dh^>gV
zUS&tlCt7SEFn+fyd|$CbY%5?J8o%~E!i^jKMm4(I3Uzk#lwS>BfPGl>71|MJZ+oZu
zwnZA3U#)y+GfEsPG&~w7X{KdOWY-Dc+dJRa0P*Z_e}8K`Ro_!pqUD+7w5rLhVZfKW
zN1tlX##g{e{S}Ya3!VSGBqhJH4)SQA0^*zL@2IXSz4q(II%e!9`S}8N*#@g<Xtw#d
zvQ1K;mlvtC*buT!&yq3Wtffl#91}SeKk)7x;MNNPEw<E=wv7L{N;GuM;G8xXJ<g`+
zkE%{CUiO#agw%4UiG0Ji0Ul=ySxoez!Nma};SwsmL^k>ZZGpAU=w_IWG%C6{$Jc4-
z;Pd;>{<PdTOC3&wnv{{GK7Q9V%`Lv+W}tc$E}0BJnftkZ@^jF9v4=J!>HW*iQ-6bq
zvm9F{x`r$gZW#I5qV8KO<7<+tFYAtMjJ|~T>`mw8zvO=qgX@+?8bNU;l6!=*yB19j
z64bhjPk6eWxj3-&+`;efh*Nio%ZcoiW%|fjVe(LAM`+)7UHj*CFb@NAj`6M{fkMvK
zj?|wgiV6%0?_0tut=4u6Bg)=?d>iVR+FIBv2<a9?-cO0SH6nC|b6u~pI*xY<zr{Nm
z%}yEfE)A||JQCb}c-X{o6+V}}L4K7|{hXlv>m{v)6~pSe4sAkt8)8U}i!i|=&&(`?
zGY})m{58xLL@;pt(r8#kWMjsHzOz+?<yd}PTzcgs<#f-o*;?~d?4`AN?cKuUv=i5X
z{3Y~zy`KGTR+?LSIyW)?anRI+yiWR2{JV!&5t8VpOqFHPk<tSN{%TxPq)fZQF)w`$
z+IcCZX|CtaPmTzdU;v}3LKxd4$<JxT8aeGa4NLae6fa#Q5V+IR$IUl~t;6cqXXas6
zL0_8+EZ7?@SR;bkN0ri*5r!q^p(EXAZQqb}|4m)z30)i#8W*gu)J%Q8pqJQ&NbDBw
zGvceMZ2V59m=M<BiTd5ugBZc(<ua(pzQcmHeQVTVU(iobYxcdJX_q&8(SDU=V6VKo
z12fhJw?10CGwjqxP$>yI^zN9+eHb{sV^8L-27%lbGJHXAG~~IjOul<6GK$y^8|aL`
z=zzC!`4UYa=^6D5@Wd%k6*`_!@L1ydl(Cjso>5$EnNHGuqor0G>0F-C{ig^eYj(A=
zw{h6x&7FCz)0aN-XG{|g<G(7>sl%CerrlonnZ7ajg}S4D-_L|IQ_+`f>7L!MP41U~
zZP1o^bP(&84ZvO@GJ(^7-TogtZ~kyplR+QM-u&hIFSTCP8)D*T_DFDd>~%$_jDPT~
zJ$C0{z*Ws>;&)7k56MV>m=bEXzHNP-z=>z|5$Lyf-|xTaH}qWZSBf@0kNOrgbako+
zm_7M`MR=M^P@1*Qor5d48sj(7!kF^SSvMh-jj7&4VV@!LTJ|I+o;v@f_OZecRpl7(
z#h&koI#}~G;ptC9998Q#-oIwJaJ%AVaHsLZS!RJxezk1)#I}zrjyLw*kMwWt88WL~
zx?4fH@0>mpH~4BL2W&B&zk#<&*azwEZW$TRgTJ9TNI9m(IP4PEUCsS5_Hm`jj$H1(
zE=-)@HS60lF;-``oo4MP3M-d!Yu#o-*BmcwSQ(#idm-@f$zGyaArleRQZ4rRUPH8o
zvHktBF2Y)m3e)3_KVc&<jA3hQ!MJu<cCNXnuZz$?4Qk66cO%aWe>!E!6NkT1*L4?H
z3@L9*9GSzXKlc0<ahTcPz7V~_7-jA=*gse!Rnja~tI)sl+?=lC4@?3?xd9WOL4qKJ
zs{Vz(%Va>d>U28q{PGuo?ezOLfWnA=c_nEJSoA#q(_dPkt^fW{_|tg{0TKGvX_)qk
Ry%5b8W@>e@@;A>r{{oC!F3$h}

literal 27583
zcmeFZ2UJtr_BR@jD95XS1w~Qds2dPPdJ!U^2NgCYC`hkTq=VGZ!HOb9cIXhW(5rMQ
zp&SHGs7kL1O6VmL2oXa0cEUOL-Z$>|y)oV!|8IP6yz$Q%n$6yOtu@zNbItObbLG`t
zlnUEFxc`AbAlN|FTiOW30UrcnzvZt7;X9*o?|#5v2QAfAZo%L1XG6Ir82&o+NY&5-
zf#3;c{M#2bwPJ%n{DuH;-MsIUvN-OaV(k?uxTQtwXlOu4+;n*#684X5K<#eyYnJyH
z-beq&9q~D0@TK^}Hvl)<V}<gW3MSa`dd1$V%|EKz@sGBD{QgDvh8W9**N69s9_5UC
zZNmCEIx%SHT7QxJxX#RdU0P0V;XI8_l`q=p-!Sc}tk&Xastl$o9AZ-V-~avZ;Xp$V
zEfzS7JjWF-aVfwY5i<2)DtkWy5h7kGfzM^1L1L|Z7`JU6`1S2$Qt(micrEk7O6>_3
z<HAA%{P7FpB3y{Wa6clXS&sSY#{kA{jKghc2H5Bay45LtKuu*AF^#ki5Va^|uu#+8
zbb-1ZXl6?WS}O{vDL|B#M8DClIb@PZsvX#reC?yOs>v^R9dC>|7i+Bvkp<)~;%zZb
z*$Jyp09O>{3OFFJaT5wgQP5za;jQcbfUi9?QxU146Hwr)=?+4!{2SU(4VPPlz>$SI
zySB%mSsLlN&~o`GRC}>mLAomw+WI}LXtxeb{kplj0(z^LSV1Z}W1@qZpJeOfNTXno
z%oCqb`!`DJlis^9QxNTac{+g7!&8sWeVvp}#gJYo4&W5<>V78l1yIKOnur~>$UY*c
zdO#UuPp+Kq0t@GlPbvY!)vc#(6(sTfrUO^`Yz2Ka(gy9?-Y&l`O5dTEzmXf|uljf)
zPHC3PMteXD^O4C^Wm*3|esYzp7JWn5U-{H}U;;?l0Y=x3c5j?q6)jAZ)Lr3~5!fgd
z8ARq;5;7D%Cmq?bwLcv!%2);A5&zO3pYMsj3XcU9aWAQ&sx(p`|49!~REc~uYTT^Q
z>#idXiy7;kOmWSuoRQKH-1zgC`hy$-a_OOtQuc3X&A%Ui<>gTU`nRI9td1Tcq^sWY
zt|r*}Cm>@lM336<1kZ^Di60^)0!k=1^Fc$qCzbO_WU@O>RIj7veS7VLEn&7z@@<%s
zkUNXX&HUok{1TZui?t?;(uHazx}9FR$7|y=e%b{U4OU%gZk-4ovJEK8esxs{vapr@
z;pO8JzaVAvg?1Zrh|u1%%}f7~O7snm%=tvf<g7Qy_PC*0>+gBGeu#yv0WIk4w!d^!
z{lPwIYyX9&gb=gDEp{Ogr@6@a*Mf~8!A#X$RMyb*8Xd@7gR;)a_j<WGS-Y>rB;Pi}
zza$&;R0sIxSFRJbnW(k6D$h69vs(=m<<8RYKv{x@vEQvW=;_&KM(~4>)2OY}Vewh|
zdyqAYt{@}**3mrXeR@McFBrKfL94vdWgblulwMs{E3R3S1HD1IfAIx8yU@IbKEG;O
z97)>ryF*XrzI?gxv<$cEU3eFT*etgWyUz?4%w0WS;U5-N$7k}jUgq|bEQiq1c<8#^
z?F$d(n+uzJ9a_2pU+w1dT<;%Uyzym)(%AP8mytE$Y2Zpju6|jIR+j4bF@4FP!LT83
zyMliEF5kJ@#}+oZ3%i9ypHP^CzUDyZ^2Aj>KCnc8gw{90No*RV9;N-hZF5`Li~3Ao
zz&G8JP<+xOQj_w2&5S)gmv<#XdNqmANEbByzKCWee+-H{7|4`-srQ$~Jpz>%((V`U
zXh5Rr@`e<1$LVdG=9Fp{a)glgS|<&cBqs@)eR<H8=h(t$c5KwxVY;vXmO{2AN|bNc
zJp3k+3vY3}w#Z4WE@)Bbgiil{9DCmBdU0xo>Sl4UripHSxSf0>oggB<o;<<R(%mDr
z%rHqIE%%o$1gJnur>fR9Pdav|XL}gic!k~4&+?5*UlqZ@!>eB|Tz!`$r?1;FT=1~#
z)k%+_yW%@rVJoG2!V?P8Hg9ORdjg)&__$x%i|6wG&@1=&86LJ0+;5>_tZ!l^fPZ(=
zBMJ4RE=xUpTfirjS}HY5=R=$pm-g8g0=nBbZ$t_B{&xHKsa0?w<EPJ0-nk{BvT@eW
z>;S=d{;HaX%S}0`A?Mil(>6+VhHg75(jJOtZaZ1h9^Q+OTo&%f$6l*^Sdczs`jhWu
zV5nzejlt7u(StVUsfo#Jbz!T)L*K?^atfc)iAje9LCR`UU67-OXy5d~LGJ19o=@Yu
zFb5hW)<^D>o$};)K}rtLU1*3dO4`5ylLRBl-M8$MdEP$;_#tyckBI$OrZomT=GH7S
ztBaa4Igzmok-1e|1GPm0N9OAi`q$VAvD>v(`-Wuti<iV*7uzqlm<~>sXJWRr!;W7v
zS9SM=Mlsi8s%R+Pf{{cZ*reFI7wNP6w%vcumX$0PyeA45r)5hK4S*by%3(ThoyX9_
zMMB4w9Oc7vaut#|ImG6tE0XG}DeSBLxXK9WK(t;8nMQo#Wga@mS^jt-^0F@SOtM5a
z-SVglD!SubMjF2y?mby|)eOCP`-V2|u+M;Jn0dgK6uuu+jJt4bV+^QCzvQf4ht})M
zFV~EByn4H7%aA(@ULpg;Av1&pbUleAm$RelE?W<gQr6ZzH-b9))~Fr@Y5i;cfdO05
zVXNv>#3!TdKHC|7=AJ$6qDNkQ`*3oG7`s0BpcPQj4M%1@T$%&S)$aZAPDkiXMy?1x
zrBBc-G^4k>=Nh~K4ZjG-2KVhpNKFwqIZWj*;q8SSCe|mjf$kLa@=nsqs!|C7zbqZ-
zWy3X{r_RaI6nL?2$MVScy3^09u|rL3<ABoKqo622%ema#Oq|x6vupEtR42y!w5+k$
zT(CQzBOBe;-UOC)i+un?<h*R4%JiYH6~<wtma~{GFKD5rL&2M{uxl*2{*u>Ht}K&0
z%{wi666UD6R&kT-c@@)NYV9=%To@+-{I1SdTAERCs`gj&a=NV0&hBKB^fnn)f({%1
z*lSO`_@Pie1#ooS)Z-tnk1D@IEhX)+!XhTn(j}D2OPt%MY>Pe}tlm77*caRpu)xWG
zT)uNOp{xE;k>8(2<4x}(3tqVnhRGTCcjV+2_~|tNjOza^gWAN2LJ#>$^ki*^1~NUu
z&uTAzU+SYx_65i69y+;Nt?=1Nv$Hmrl}BXF(S&-mv}mBi_km^rmbWBMxHB!|`54UO
zm&1*R5yJZD%*~s3^N=Zdqh3A^n#5ofRi#ELZgZqc{a*jzx6ZlUn;MQ#fQ8#PsX`*%
z5*o*l+IhN)KuT<w99b(+C>raqDUv^jOwTN`C+1z-eeYT5RwI9V_-WA9<}`lTLWG}Z
zip-W-7}gV~xM-Iawkqp+4SlCmz8*{J;H)`et8^LX2-Snp69tr4yp|>oU8*zbYq@&n
zm8|#p@!mp;VZmAuCh2fN&u`?{AZ=GKC0MO_qqI7|@?9o*<K#@G7G*<ZL1wNbY_(Si
z`cmpusSo(-LBZ-JgTE9?<}-;vAjD)8qrK;zY6<v)kb=&lOY-*6&--Cf=j)~W`Er8X
znm6l>C9{ZDft_@NHhymC{X^US+68R@Q=vt7th;=hLZ9V)RZaOB#4AyG_i3G|K>00Y
zZQu-9-IcbcMEyw617&nOhzZ{n37OK~3qXAmsX}DXx%yU9(b~@-e}!B%DWGY?kb7;L
z177+s3B$KqEF(v?aUL%6_ycSvlOvq?yvynejj+8>9K1zwOgKciInISinb3rkP_E`5
za(O<j7LeU=l$FM$y37-`SD>*G+W>QrN@VjoL}1!~Sg7u3ygG;osfZAQ?k8W~l+992
zPpx|C7$AxF(7Ep8Y|;tHoyYIW&fj>EJ{l-Kr#RY_;18J)CjH3ZidcmiHj&i5dAi;p
z8LF+0S}|95H<@qOx_>4#En_NZcYgyU2#d?zYofP#I{CcL&{lyW&6O`%E>`V9Nu)vO
zTr{ciz~{<7CpAhWpru8@9_XkSXl`xHbEpzIiGw%Fq99l|Zqs3&PGdc&m_kYv3L5^}
zxd{k9{E2UN&G5+{X)<lW#*s3FcFYX2GqxC;Bt-n9JHr8%nnmjb#P|~jRyqJJwdl7)
za<@D2CxsN-0<6Nc4{`Btn1e3lRipUwfgtU$&r3Ijyr&fvn_CNAwW9N@B$`_*i!_Uk
zU3<3DILZF;oYL|fD0d5JTRQ;9hl)N|eg5`^`B9-d0VN*G@TOW(fqqtPfS$WXKU(IG
zsr{`PN2vx>_=lC6yVe(=06F|j4@x-F(y9&iX`}S{H>jL729@fRrvU75dnN_`7<wBN
z2XC(bn@__JjR<-8`K3hrM+M+cWns|?1OkNS?lF`CY<d1r{oAvL_sxHQ{=db6JB|*0
z`@~MAVo8;dhU~`yZ*X0W@&b^R{m9ECRJuz|qW6c}$Xy~caMO4j`++^A_>mgqDq#4v
z!KjsA?gE~TE&l-H<%XjLTE$P%<JtQe?}oSy-qO@%c5>&&e*}4Zq7Wip4sVE$&vO7e
zFf5860cZkMiuednCQ3|%(bD2o^n|HVB*SI#_nfV{f*-}CDD=H#JPP4gfAylV<~MwE
z!H2FKuuFZ0<N{rn!5e}o_2PDBOc}CoG{HL4>%On1eTRl)*BnT|l6pbj#KGY2h)JF@
zst}>6`W`DY>inWv$wHn7IO1AN60AFG#YX|TEUAaePyy?)#iM)jdqX+K?lkTL?8rM1
zqe(-YhlnMi(780y^uU5N$bMGMlR;Gj#NUYYYmFbtO25?l1^)pg==ueYHC$j0((;6b
zJgZRISC`#B<Qg-=D#OP>RuEz+z(>WEtWEC{u_6nV(_9rf8MiG`RDVPglrz>dMXY2i
zBdyz6i<wK%9uD_ns^?HNE8%^4i9Edh^bm8So#wit!qXt(aid}^!(TlIrwr9NP8VG+
z5AM5vm(gE?4>ZA3NcNs13gXcYn}h4crx>@zzQx!X7)37i)Vt<v7u-C^q*OT2`v*G#
zoKuM2xe>qfL48U6)G2o6+d_a3E7|p|$wC|8>Qr7&oTz5pZa5A1Eoy%5tCyArCDcAM
zz15{a3GHHWmGRJE0PvY>eh0_LKa!BrwM@AZMjo$S`|b=52r{H7IL1=t2lX#0YENPz
z_Y_Ou??auSOvJUg4VkQ}XNy{AjhM5HQ#eHUIwXz%21bIg(hJ1oU#1e1zdv?>wI(0v
zq9GwkI?ZI$rC~w5oDfvLeQr=t&YER~{f|vfvi(10Q&wRf5f=^nNU!LW108`zkUA6~
z;%&-^&k<LT*EX$$0cpax9W#gn@C}B79kHV^qzIul*>ee`C9p7|vg?(QH$sa|!hq2L
z@sCjfU#TVc!-AftS0U|P*N%nJD|jx+O6w*v+vTD2ci%HfI(^nv4Jl54m*f^~!cBX|
zzD>SLbybVL#;dXihBOTQ)Sf?4S?YZ?g8rI)TL%;oj*u%J77M+zw|%(ZA0$uk7&#D)
zB$p$#>E%3|woq->+U9IC3v>U4D;**<8tXW?7M_vSaUdItPmgHR|2&|=!XQzD1%60>
zkb}!~zh6?_SC?hk(Uh^?bvW`@#?ypfkJmm$`{o4NO=XjOGuA7wv}nYR&_u6YU_7<B
z0LRCK#Ef-8jMM0YjsZ|n*KeD4(lHi|*d^a?*&AGr(f=K2*RGtV0RuB;ko6!?1Nc4&
z8>!Z^j~GrM1>eu7rfbumWbS7+XlZY|$NKRI?0KIA3mtGl0no0Y<W41w%*^^5=4|&j
zhcZw`M7ZQ3!naTI`14?wR!LyzCs{!5L*{N9P~=cvKdNEJcm=U$sR_vnR$anB1$p6U
z3sO=mS^agAJCh1Ng!0dN{l<7lY<UqDe^yM&0K--x5T}}z2bdQvF)X5ti-rX4_m9n%
zk{$+~|Csq$n)z(@YmN|a_yB2T<y{?9G!kxj|LA!Qd(;3v?BKwNVzUV0f2I9q&O0*u
z_@5wLe=9$J*a3k*Vwted&bas&DbNIyN2hiE*D%?CX(tRdEOv@FnRMHJn(G&O#m-tg
zlYo%(*Cg>8O|7;sHkhknaeTN@T~sm7+6p?!mhWW|W?HLcx3|p^FYE%tcxo5!@GvDR
z9O-rU|L~;#AF$T}#w#s^&!vzw8T0S9->%AhT+Ub$#O!x6rb8+q;9-I*^KXG@9$0f>
z!5v!$2dGJasD``qen;k1#cnO=EKZoh4k_bRi!t9nxfvG?3IDO2ZOQ|2ssC;D{{Lb1
zycmm&Xy`c)Zw&%O!r5m&T#bb7pX0yVzh2DZ@Q<WX*}v_d4#STUi?yZ!SGWxpv~>E8
zDazqD4-PQYOo&Z8JE0LNhvxyiG~IV!S{Y_10+ljl1N+$um};oq?1Z##4(%O~rsZx9
zNn*}%nxh#syxn&^qKSGIti!<gI9Y=-^z{YveTEYK>f;2}qugzwRm{2Qhx4OML*M?A
zh5U#IBJs^&{oSA<!74#~8Zc}%bdxF1Uxr&aIfRmhu%qI55Oldhjg4x@)Joy?lp{Q^
z4P^O5{k_?5$YPJzmS$>S_gq@^M6J1KP~yS$GivEg=l3*Rctkae>u@9(B-mf$S0DfV
zyz?l#aL>0l6VC~naI_<|!@E)X^~LYX-Wn9uF!G#e<TZwG@|G1R;A0EFFa_9Vdb~#q
z;O#+nyX%a0re>MYbtQZ##sq7v9Ol=nU)Hs)1{H+X5-?D}<z`WxWi3iSXZgo0zwifM
zj>|28%K9<-@8>Y<E;~yH0}8<6%lKZ*mUkF=^`sE5-G(X*TA8Gf6u@=9uYO>3ej4a*
z+V=<SaD?y|5n;-$pjv)>!CcBL4{WO2TYE8MG4tm4J9xP`+;Arxrm@ik$eGVRLMf~D
z6PLs75#%OOX~Izxx&mX*i3%d>B@1r`)gkjsopKd3XoemQ|7^+N7jzwY`xmt*@oqmx
z)>1ha_!~z*`)OT@*tiQhYXkS9u4027<FBPguSbrU&z@gyzE;OM=(4|V0GJazkHlEA
z{zNI8xDId`O}fHr81D6Bx^(o!)zS0#WX#s5chnb}PtX*e)T%>8HBd@|^$h2${2b2m
z^t3q3&`rS?WdvgRw0Y{)cJY+4dH+lJwy+I21|Q<48Jk*~<<FI&m(!5&9Fl@nDUGm>
zE3pl`wX+yl;ss>^zUI>e9rJVF{YoDO8;W5_vx)>hcz7{uO+g=9s*$K?PV@xU$v9)E
z@tS|Pd7?F)|0BV3MCo<W@|SwYIqvRk11p(BTcT&Sx`_`md{Sj69Ixt&wvDAbDV4uX
zHX^?$BMZUZS-j%D{{(FU{y<fr(*x_3V%|rtX&bn<_Q+#-Ur6iD2j33eQBd3Vzbf`3
zC?(lj=w&WXGZ>8^4$1H2c<u}f1r4}pta#O&$E)Zpx@Q(_wLfi*u)tBa6~gHZw;Klj
z2vvZO;NX1-*;_{>mOmR9Ehy_sJ!vIVwrNg0AE|B>NH)E71ZRZt&QDvC@XqTQ^3Ykl
zzf;pwg=+Obc%15UnP`p-x4;R;wxo?UP~jaDvd_m1dTPviycV<gDlu7gaq6Z{lTi`u
zS=F;|dm(+y`{jc@=Fz<}Q!llJ1wGFgqkfphkn;Nk(Y8@s?7uC$t>%~2^XiA&;oRrm
zEO5VMY(k3(29Z~KP>;qxeI7_gQS2NG^u1?^Rh|X=)n@oG?>{$cK>NAQC>QO#=WNH+
zgkOahA!-y;E8NW9lfwzl1!7F}xIJ`~i&Im)U%eEFyvQAv*A@oUWci#XUbK&I^!fhl
zAW~_G+@5rxg)yL*6iohtg1ula${A}MOOnNyym`;^hbbtc;jR`|UD0Gh_9!T?8-7Pd
z_f$<UEk+J$c^TG#`dQm``sg!ArAB|NT+FjPXiSfLbZMdgwN8o66JPPxV{D)AuP56J
zMj=hf5D>-p%@3pqW^B~=&6vQ0hP=Z}U`?_zu-SgfVW!2hS&Hw_4!P~TQaFNQhTAUx
zZFkShx3%58(PX6hB!?@uMigI>u^OfB#z%}HH3H^Z_tYL#f3M!Y6d&gEF?411MD6(T
zXZ1SV{-2+Ga5A1hL^$DCNL}gJu8Xw9rGG*{9Q5h@WtyQHkHoT&N%9w$ZuKLfu_OZI
zXAVXWom+#6%S`f}$^7|eAmoHy-(PB`ofLcv(u7lIZQmW&T=b2|BfKr~Cu(UKn}OZ(
z*-|^7pNGoH%pWh26!QLF_u$zAKmI|+25$%>XgTuve%N@Fmh;3<4R|g4=Ms}=leYid
z6wOjiKxL?^E~k;y6O&K-_a7ZdriKHy0#!=4OV*RY$o4VPY^d=<K)I)j^9V9fDfxZN
zl4ls}rLKXw?Hiq5{>6@S3MPF`Ki!|uzVo(_^|^QB4zye=%+!vl^>KhWY?ikv%f|}Q
zH|z;2Tt^v%+|W-`E#+%U1u1ygpMCLe>(R$VU^iy7<N%*g1Ww3!S<%@KXVxijlTWim
zXKpL4qHFis61J|ijjxpG@_0})toqXw_RsN{6SXtzVnM{7pHp!YSaL|mcm!@J>GNSz
z*WI3!-cx57d~LsbLi%E2fId*A*t|dGl>gYM(dx4Hk@Ik=z+NrDx98n&wjL1{Dg}p4
zB<pJ1-HL#yGe7)r2GJLyQvg>@O0PCC**JJdGwha`q1+k&FTWHb7rtuOjP4&WNP+R&
zk87L#7mbQc1}5L#Zh;3xh&^)nfhxQxQJMa`XrV~waB#x{^*c{NmA>t=XoFtdfI^Ao
zvQxwa=G3Ec!`C^DNZ3~u%=$@?@;dkRhQ{`_YfD9~i5HEu*cceqDVt&rmR}O6u7?vO
zB|lTEhZUB%vs-PKUA`5lFR@;pCK8OSmM&QSgyWRYxAP^1dqKSj`Iom1?tSH*_N$2<
zk(EBmWJ36Hwi`OjniO)udM+o&k-SoQe5qQIE6)!<uS_WAtHZ8ug)qlG!c7xhD_U`Z
z5_w^=des?)EXFy<*q<)bj~UUAvcm<cFD;zi(*<v1>=K;n<JMa{yHVRuyA(~h{U_fH
z<hh%SaNNxsiS{#g>=5GF)Qc|+yq`9hN><J&Pwlf=%vP5QFLjrDo(Ql;+Tn`griG{X
z1u|Hse7+Gmte5#SVZ-T<`9FYe4Wxbb1-zorJSGnFK$Ne?59^dhY8<GY=?kadaO~(D
zru1?YT{88jD;AF9qch6QhHdg$$R>iYMSzr{Md<s2BwhV+4&VrFSwdP5m$%(*<aa4=
z=cv=kYQ@L^0X&;Ry*fN@$T4UF8=!@vs7?#i&PR$K@x^V_eMv(5#k(Q-hx@qcIh_2Q
z4C}bWvJ$+sI)aViD;u~f04r<))J6N88MZ13E^AN@D;v4i;nY`m-VVw#>N}b~2181k
z?rveb!{cA%+h8CoX5ec(N>Jb_3z_ocS;x4qu~)4uuKyQTKb&E=Yv<@2f+Fwk_aw()
z$xekwi?stuQRzDmOpn)k=<-|VMRxNKKX|#&iPpAXCIoiC>lyNRSO|Y0XD5wVG8orY
z@AOh!!ieDxctTwKa#!(JL0(OF{jj7D^_X>K{GD=wp8a6|(hT{n0w&;kv+|gXK$S4w
zHFG#rk2iIl7}Z^HMz9e%=m}*B_y$7t>J(9M8C5*F{tg&SA1dBX7E%*A;*Z-XRA0f_
zec#6jK0eyj09Aq>C#qM?;|nyRQxd^q$!-zC)XgVc)yXL2MnKm~s|RB1>h$^uQ64v8
zxW$_sKtFw3DQ`w_7}sAZjy+KeQo7bE)Fbe)V}|p!83|Temj7;GN3hiiaCHSsYwBSO
zU~!Wjg*@h_J3SDdul_@^ypQ&7U+bSezrigGqt`_Uw1{h`lFF?{c9;A&URp64bQCz*
zVTmx*BzrsX53@0C2fmTJ!eV&dG;8`j*2XVezK|B+s|AT>WYgPz`Wr8F^YL%o40C5w
zAMb>#Bj$gDDIL<*IYhXqwzR?Vdald^ttV%=qR!U*3udto5Db_9^@WQK6wKpwRBHJZ
zSO|YB$V=ffKCr_+Y{*q<T^b{f_;#SMxcc!mxGw}EE+X@I?OC;@ld&Hv%Di#{J(P=?
z_k|B@^83`AI*_G`Ts=B#1>;BJr8y64<jw)35%RxU82WWE%2p6>OX23`SIVR2tO&{K
zORL;r2L!&R3h}nAK`>q@tZt5?4E{ZM?1VyIpQ5w}`i$Pv#JCck9N(h)<M(p(Lze=_
zkOxVq7222759}}m6H=9=_Jfc}dRnj^3Bpwj=FLN~V9-UpbcTnZpzqsv1{TN1#phw)
zpWHYAGqvHFQ6i}akj$7|_bn1tqs-QNm}>=dJhZAU&{_#Jhhxl^4n3hdZ`#A<?x?13
zkB&@!x{Ozcsc(RK``F=vi!t74lB?Q`ccSccc8BJ4&~^N4$jL#BJ>k|_9iX{>!1=cZ
zMD0a2A$Tld@XA>;@(dUx+Kg(F<@Ys)%2!*qgz>i8z>^}^pPNToc)>_b$@-($-coIQ
zX@4PjPt{7cFX8=-Tjx2we6w`=hIJj$TU)x2zHIHZB)1tOFNBE0K3IGoa1Fo9^M}{z
zlzI(!{iK}Otu4+PpIzMJ^0*IapS#c&KY6*CAyh-p#2#ky<&6Me2@`K<I4Z6C{+lnD
zdFmQk;P#nNBxa0<Zx2731!0MSQRx0JMuWhHHPm}?n2Dy`wHJ!ByY?Ht6&gz>B^+yI
z#yKCYrOThvo^kSXv!f`X8LLE9cQY8O!Ug>feZXuv*mrCK`oORxz8GY8#S(L+X@3Id
zu9r|up^+bw#BU2Z%$vnnS0)uB1vk_j7oUQu_vighAa&zFNl*qbR0#1o6G0WKEBZSk
zx@&+X6>`3+$%FD|A9Q&_>P8;R>Lt!Ou6aOZI+mpH4sUTrXb-}%Q`M37F~?eG>Cp>7
z8LF7A2UJ-;f&_d`b6l+;j9O8Yu~P_>5=>?e3%MwMWN=NKT&+zXoTdiCvX@VO$$Tnc
z0yD(@7jG-RRo<)R=3+(UI&HdJ;2!)Z_6?T4Lg8|_Y0=h?GTqh9hiXfq^gZ;?;t%QA
ziEZzkz*~H)>_X+D*uhHOoIstl6=uI0weW7RjU7n?DG9vOPVuDrc(dK@+8wOgQn0DP
z9sr8TgDK;J#(EvdF{BrOXxCT|Td5u(C(*orz}pd9qlBNCiSXCU34EaJ##|7MaMYop
z=RN@b9asoPH;nV+H$WNws_Xa&nA6J`(nf)}O{k!+9ieJ4euPV!Q;<o@$<!1}+OkGe
zD+gv#zjz?2r;%ik_T9hUrSCE0dBZ2i+*?ige1NYJWUhHn2dxt-4#z@P&<CBxSzMuI
z0joO04MHGRrF7rFgEQSqm63y)Lyv0$p&Wn%82-Y|*!_rx3r8+A8p~iVysLT8FbMAt
zI9l*d68XxwKs3BL;>RkA`SvH^s=l`)X4d~gu5WPJreCW3N^;x$XSU?#(u66NGz_k5
zQa%Ht>(|Jp`@=$;<%ICVpq|vnfnYUvC&=-v0aI}8zOaKk0*8tHc#<(ZDcrv%<<3f8
z2J7Ojou4`~nRoZytI&s?g&sj8_;E77?@h=Qa=IKb%8&1bwtVNtf>9+p3ru1y{$y9L
z>G*>K<77Gyr{MWdvtPz4J^WR?MC#JsY}o7_Sjh`&OK8A1JydQNBJD3&kGEna=jQ-g
zAcX=HX;B=7ycJ}rIOf0!lOtv5$>nQBjF`s3jF_5Hhi1Rl;`T@b;>%jyKMNb>+^^3E
zP9vFkro}5?v87w2Eo^2~-&(;XDpqOYw93>IfU7c6J}cA1620SQRG|?Qbz*NH7+5Z=
zQ$@xpk$uuU(_QQ1N`E3$vU3l*4LeH6zN!(&@8xe2lL0t7XC!c>{%%&Nj@<YJQ*%3`
zPOxLaSa;svvq3ykjgism7~dE8phDxBD~6QPlfafp|E<RD!X75UW<TF(x~u2lDqBQe
z$XFNcUKoW_Gj;C_S~~B670%^kRd=VbXRgD_V5FA2#{!J>g|hK8v11Fo!{tVQ`y3pt
zwr*8zsa_44Salh%q8@1Oaw*QuBOoVGEzJE07Dl#BGX`7PgfB4G!otv3Z)9peDs@mc
zmNcTh`xLB8A}x0mTtU_cG^Nk#z5nK)u`^ziU#?@nIHh^unzfn~quC8*J(;qua!|ys
zJnedss{sBhxPyjxV3<+CkC0F)P?f<Tn2@oKHEkilpg%F-5~CRcs~~_6?Il#z2sNV!
zwh<E9=VvRP(h9YA?{h3TtI-!^BNv$vGhCv18OJXvcoXJURmP4BGB-=jiaaObowJ8o
zhP+^G6>}xNuU;xkAx>4R6(&iRp`37aMgG61mSBd^H+qbU&U_zpTOAkKrUM%&&D{~j
z0jAi@f|U|1Pm_@BZRDcSl{yhe+*_%2w*6t~FEMruVnbep!~53VT^pL?ZB_h|u{*0x
zhn_!YZbpr;j5ib5f-5z?>GzIw5oJCN#Dat&hv51~FUHOc5to{W*IAn$*LJUC^E=ag
z!)7P)o`6plR9m-Jz5LBGe1I&tfmt(ic;Dru9UOI#NmPi9^Z7%BqAXLr2YMUSjGSPL
zk^7J{=6WEZcDF9X;B=%ZCg0hovwu94K_NnOG~vSIQIeZ)(lAfk#Nr$4)`O8zSwB;Y
z&bs_$JQwr5WBC4CBxg;aQaq_WaV#{S>UbHi2(GIaJFXLeLBT5V58K@1#4qwuQf16k
zny~+2@Q3%N-F6FbMa^*_)=qT<iB4Qd0MgWEHp|fbzWz{YDEBc&=O3-F0*#~gTyxW9
zCu);V@pj#+{%y&qNo61$DNVIG48!*MFhoO%Q+>l^8QXB3r<i`#L$}yLYZuM$5g<y7
zvJ9l5?hU*h`z!T%?<q4wdiuop@!CAhbpvjX2axn?i__jV0V{ZKeN=`WKE~i|iM(D2
zQZ_JJF@gr<WN!aax%duf6|AbF`e{N<FOKv4MPd3uS5a>*N(@|pI}=)>yRl~Rhha~o
zXt@@6FY+Bm1yg$kuT){i7f*V>Z!cpcEU6+;CGN4%yzZg#-i4pLPJf<=Yd1p1wwMv_
zhbU*>VopXX9e<oH_zfuyv)DV4)ZX|XqTX=L9u^)QOu(nL%}9Vx)!hbSm8h!mNd9qm
zMA}Ez>r73Rmxk>>v!@!ck*tg#(Ff$N-?smyx<(k^ZnSh#$YDt@QO$ply8ZMBGbwAZ
z3ERuMPklkk06Op7o2%$Kg0=(s4QV-PBTsFKPx>S?M=O>JzqPFEK>YG02{T(`x=8~m
z*rc8Ez`caH#-~i)5^u+x@q$R<{{Kj^YA#JE$l}SBBcmBUAGx1ndi*coMhBPvFS5_@
zLsgND{yxwuw-NgI7Hk1b6G;&T>$I~b%oQ}4Mrlc4NEN^+jG4w2QiYZ=UQBlr&L)|{
zeg%f43GN8tU0{!s(s6K*=~P*yW~xc0^cy*9E>L?R6AUR8Ac7Q&sD*RHyVn`3i8xUN
zn{zi%&+A&f4F2`mYGyM8KkPgwI$hC;8MAwz-YUYD&oqtcRV?Inwt}XfH9X*I=hL};
z_HWk@CY~Ye>b-;7a8?A)^G0bEzoxD4?LUOY%K^beu;gD>?tSKE=HM6q5<IcYq})a%
zaR)@HQl4;@8&}$6iG@-RivZ*D5u(;gF*Afk`1N@{L1zKBfbTsHD-MwIT#r5l){Q-4
zgg<a*&@LXJ!AV}Ee@C!sg#_NTU{#hskz4O=cuXjh{2R)QL1Hagmm>=Xxd2}is2mJ3
z6QB7CkX_4ZYLt{0mU|AsDR`w7MVDBX`av_e7K(Q|u)I&P@ZFyK6ZagRYrU?+t_!58
z&{dPsr&#vyPgLMQzI!3r+#lXL+VprhoM6yqVQ6=`u?C&9{o|KGgYg^Z821qEcVPKs
z%UBOnoOU*KAdcPLn@9Wa3}-if1lhSTY9dL-XRO=6(GjD;M`0=0cQeWf)Zkksm^h>j
z{?%gb!3-ydPBQ4O1udxsa>Q-6t&3ubG1m0PQ2g<aip{iuf9Apm;dlXw3HaDg5Xb9+
z>v^YZB=D|4Ri@`M3E+_8WNHCKAR`<pLr--9Re^+s*E_-M%hypQxpilEvus~HVBtD-
z?C43^qj%i~KOOrHeG+Ztcj)^>_lU@Tr6}<AQp*$wB-sVIMR1?^I{N_#6S&1zm>qTa
z7{A4lOUDk~VL21M?_sJE%4^<JQ+Kdn-dNYvluTRjG7qd?mYWG$7+4xLB`SKMpgccb
zy5}9^gourYdr8}}^nzoxAUFoA!0z1E!a<!Gf?;AuAPlx^ChjHOLynat!bN9SFxN%#
znwYJ7Z2`5opj2o`K>}ZjbY^f6VGvruFLwz~wK^}YvF8>Q3`;z>+PZ*`%6!CJmXPNX
z5iFvs<V-M99jW6tR=n!vcsP(L7-FA6q29}7RXG3LZf0*XZ!7Nna6wU0P#anHskLyB
zu;AV1igMRgU-?pa0tyga3ZKB~w_PHX8qMzceT~>2p2UrkV<SA~<u!Dc@0Q!edx^uc
z^oV1LAY~#qpzYTsMZ;LW9_>AGIQ*`Fg<Pz=QFF139+m6#R|5Oj5jennf7zAq-T0L5
zMt0m^lKZPOzYi^^4XI*RnRnSdD`QV&PyKFuh_IX6<{$aRB`P<-UcHz}z3{UNSmorm
zg+_c?7SP>LzxtPy9fkYe(a{ZB`E|+6Aa=L-uU<|!1_`asiMVpueVH~>aAr?3@XQw!
z%&aAdCj6ClCy#J9(lKyNeBG`AGzbjWYmIM1wHNS8`cc~;#8>{8cwHR1h@Uf*yNuR{
z_ypwm`RDwD(zeYz+nNW4hQjwe6)y)z2o2}UmftR6!Sxg{y(8?OLLkH)x1<W&9u<CH
z9cU?V-if@3l)z&!CSTo;Fy|F+Q3Uv-E6n@_<vx{CN4qV>_i8GPN-{Enf|8c6SF0<~
zE3$S~8SozhG4QrPh`Z1whmqGnAh;c_H2S;fF7xbJ#0Hi!IO@;1Y+jS0xThR$!@T6U
zKV@#8qs45X_f_u+O&#2+(+Tnq|IXa)37=rbg6<}e4rVb8J{7VYYpwozn`z?i+F#k{
zubowd#gbtK)(sY--0whSbX(K8LG9~h3;V#-c<-I_k6w2T2L4lIB7qvCA%iqRvbP!0
z&wu8A8j}#G8<}_CzOn^2@_=OH*@Z-qH<e_3b&W~D;R0A@%8lkjsdF<zIxc13cCbZv
zoEQW&aF@qU;NE8hF=@BUj<{XQyh_;jSB-(3O>{ZcRtVpTIhSZn1YnF!5AuK(Qyws&
zdqji0By272!G%?%c+8kQURplNyfoLt4l2M>&{kgy0N)!>C44fZyN*xL*Bj!{klu5M
zAHaOT2;oP9jF*c0Cpl6r!+Y29K-#=hp0D!3v`RmJ<F-pgUoXqHRiDOuW=R>Mx-g#f
zJzwL_dXV`jByrhGAM%hSg6;i_s=G7h{u+9zSv(*imc$RjI7?XSc2t^0Ek<B((H1(i
zq26B28$lQFjo83E{%dLGOEvAJrj%C?4iTKe3VkowOcE5l3ZqFMbg}KwqTDNstiS5k
z1`=yBlLNMlpw9lf{^Kd3`gAkox6`&Z22W^@`*#jYUURGAw@F`hAE%dbPp$n`E~YM1
z-q(F1m*N4LjDH;G$fYP4h1n3!>BpMKNbo2t>GS(Opl&w_o??1<VqEb4;x&$~CzQID
zSJ{ddwN*L`#rf)JX}Zn7sZPsjL)$4aJr0XhSoUykx;xDYfliL+BYiz5a|6D<spit3
z`Y^)5Sm^0CZ73K_<Xt&g%Jw{N5kr}q<^f$KCk-q_7)|ppyYd=1qNxF;Gv%D^wK*!{
z9LXb=wzlft<}cY`f12tV1ypKK(qRbR@Z;9|m}djeLB&{7#u?YU-4&>MK9DjQLz~YM
z^!0_#Mh*>XB3De`z&KSFuu&fK%%RsnL>25Acl>M>^?e77oQv7@dD1#;SBNFe0#WLe
z7J#VXTM$>Nd}nsym4b7qa~f|CQ43QmFl9TnZ7+&GaKz2M`gJhRP$`*m#LRjz+kxmW
zcxK`Vo3V9)BHH-HTKWBcoR8`_we5l<BTh#ujMKcDDnzYmw4tZxFtOx%x^t0wDa+DD
z{kcik9^r56EvW4%negCq$vV)VHBhYsgBsqrZ-WH3JF{dw+h$&6xAd$>eeTZFJ1-9y
zJe^6WKc%Io!t&vxmA?+V=KE9L$v66Ywgo#ZEOqwpY{Mj!=hDj$H6!gAr8x~3&hj_b
zT>oUddp>Yy{?~1sY@VR6t3iLDGvt^KX!G4y*a<(sGM203s`8?~+w}EhZUTGKgquu~
zuj&s0JYAmJ9dWN#>?Eu8lxUix9=$@J?m(R#&%>BFQXX{O!cOp1jQgsZv+8*frQi7o
zYBF?|fi<57Wgehux_^jana_+#Uq}Vn)hTWH0YyLG>28h+ULm4`B=Ji+iiA2Ld?QHc
z>m@en&5?Pq^5$*JuO=pubdl}}t+y^HcT^VPgq~cNk+T}5sml$O3KRC8RS<@<4}rW%
zq#rR0KavgopU}Lowp49JJuwBB2QBLxE~8XwtmH*N#haI``NIV~Q{b;l{kfXOJ?9w#
zO$1K8sSB#grIY^V5Tc11**5NR14k^HPbpTz#p_ao5_T?Lkj<d;u73?&AAB0=B0X`f
z9h@ji-w41>ezHB;E~@$C+H2ARW9->DD|zJj!l8sGS3$+J*!mEW#f_c5e2v9rwL}yD
znCHXOojRE7xNqwT=L2y9<E!33pMA$Nk%5qhA}E@|1eLx>gkpOy5Zq(yWccOkbN%BL
zz1DNqX~v`iGp<bHr3vNS?a;#G>SyByONXPsEetzpq8}G==tmJ1rxfPpgl1M2W4?A(
z+98MJig{1ec6Y873ca<8THN^>)n6ft9{JMYCM4S>Xd5(>7R@kJcGK@YiAv@*-8&ca
zwr8Yg$-cVVL217!WRC=Y*cWIrFueOYwKZOQT5mj7!pH|&N6B`fWwXtTY(3oD=yPam
zYCyBPag^V-anvC~vR)t`(Vf_ER2EFsnH3z~7N}C-FZTc3@!l$qSu^&c#<ZIJL5uJ1
zOpY#gP-=GdW$sQQ%+!lMQH!O)<;QBH)MUS2ce=G?#ADpN^5;S70t-0@M72$PcEOET
zPJJ4zp(aceWU+0a+5`7r9EziuH!RprilkS3#Yy2~g<gLv@ET2Yw^DRtIyV;EqbVhq
zMtU(O(aW4HvS;q@vKa=pJu~ySvH7JG9XX~shsyi;QgLbFz`(*Sf>#gr@^^N&?*@5(
zn|~xrXPXQ9EC})QrASEl3GoXB-hxE$dv!UVADHaL^1hE)8aidkogTqLHiiPE@KHJk
ze_|6$RJWdLpK?FjDww-N<1OWQ`&d&*c5T5rD2v_Vqmrtu_~^iTmQEleI$7wR?9m*f
z`V-fx@>A{TcDj|slxp1ku}?MH$Lnx}-eI&+T41+^?3_tdk16jl`oKZ)vUjLkE{=EW
zWgGob2L=B@Q+2<oOM4^TviUxIC&;&aX-K-IG)V@IkDW&`TMzG;2aq{(6<v^)#%~|{
z3vS%^-hHQV6~8Spd{Q#8u=A>OaFTmO0>kGt@Qmu7upTn*QQBurchIe$`@@2IKa6#4
zIC#}zmz)Kt#A_da-TuKp&AeYJb9IPcVZ}^o3X?pO39Kt(C9r=Ou|Dqy=a<+<*Wi<6
z{D;yE`xU(NFVz4(XyT63=TE$b<vbPF6vP-CBH^1-8Q<&MeSXfGi6!5Y^7`bi*<}1l
zW8~wwY$vzk+s?r{3eoIvh%gmhqGgt`U71@g>+I99nkU1`k*(9cG+KjAk?;`&*EP`R
zKhgD<qF}eV$egZIS|R6GWJskJyl{r$75+1dr<YK=+pSSt(<a=qjr2bOL7>V5+SV~6
zPT7mHtDVU)iwc7c@A->s!QHvz7es<sPpr1u@1!Nxr`!u)=nNVTyg=&~lq<_3IP8ui
z6>NIwzD&FPu_hyC?jXAsWh6g9^e42>xlXU&Uj7NKRW~{4qEGzzWjs-!N{Zjm-v|n|
zwQ*mgVuMgQyrZ(?(RE~0;-t3@RFjF+A|GP2TAFFNyrXlrBIiVHn#0}QKXZ3_TVJ}F
zMI=u+TROIRm5l8kuvbi?&*qLN8$}*Ir57kU9!m-bXsT7O$QbwD9S1G!*)E`mIvJ9`
z#c$-QpN`DxK5?)wr}D5Q@pV7*aPkqfr(WcfC0VXTeE$wocD5AFPAC^PC{JO*UAF0)
zE{R9;Dk;H~wa-V56s_kB^q<qFu5hr8_8lT%&h{z2&lPPPO~v(?UVju5taeVf+;^1a
z`;#i!t}$7Tf;QXC{5Km_0GHr~JtUf`vAi>tODKvuJ8^I&xP-z*=+^Gi)eic)rP&s-
zyrhd&QrkHFN0IeZaCRZrZZRAP4$XF{Qs(FBDzu!{@!acn)z6K{Ppp;rq_ZPCLB%m4
zrHlAreR}G^#-^>%p?M?h8(eQfYhCVTSwo8m>LlzC-V;IQKB)0ii)tS|%qkP<cD$A&
zzpY!%-6l<5U(go?10yZhy6(7HLpAzDB{960_MPiQxv4E44CPqL)JB+V8p%fJ)oORT
zhDESOf2*qvHL3>|J+a;S9F9%?TlG4z$#B?nPj{y>=2-Nkk6zoD`1#7eYXL3|x&prX
z)Sq#lD%`;tS~cxDib-iPw6@7?E<L1Ohhpa3&zP#1(UC~3!`c$PGPl;eNoFvojq6DM
zfx}KIEM(_gioSjh`i^eh`03W+OY_INi%^sm&)`=<{5Im{_sw_FZLJsl0%fkK{3KL1
zGwQ<)f@L@^iPC@94KjJUGf#^Smespulm3H}r52@LQaVy;tGhECvd-mQw~U-#S-96K
zd!{tXek4XBA+Nxhz@rx{YCn{TBBhO*UHa%2j+rP>S}z{?^7Bd$?kl-o4HvPjsJo#M
zxK8WZU5(V;^i$UjnrJYB+2O>(k=M3;@E0srB3DxAun%9cnmK$r>C@)Uq}Aur7>Q;J
zXzKw)rY;ii#j<u5`;T`GX5w*XNS!<Ef;PFzy;2=f&O(kHSLxnO-c+wZJ^ybFmZQ<j
zqyguF@oW)Q+PO7)bE(`F!7B5m_+El8&b8v~bf1AW?AKX*s(Co&-;6wxP0P*g8kF#f
znR%V($MvvwpE-vXdSCg?R>L5Ut@n!b3SIFr|L{psf9L*g&9i-#e;P?*Ost*N+iE-8
zw|9YUl?<APTEEL!^F|2o@!AhL`Y%nm@7n4=mB+W8)SB_KbYsK}7Wd%r`ijngeU+Ko
zcef3N3GKGGsiVL~dwxLL&;BDpMW4*u{;+EIf=^rO%?Wg~t5P;ocY>_Khl*k)c9#nC
z6^Z0SSos+n8bE2vJzXe$=ScgqE_L<gK`OsbGMqN2e~EcUhjVoriJ4X#M&mK=fr`R5
zW#~XQ#moo0>T}a^T`ofh?QT3lOL1lRvme|J^^95d^vW_LJEX7v&UB*gYjw8)gA{LS
zNGm#{HtSr)>3(H>dty!Cr92K{Zc-q2oy@K6y6c(NZLE`d&p^#kBS7xvR<(GfdCkM>
zZd-%vuUK4*rqb=ndgg-q)ZySL#Xtqc?V{5D!Z~#0(S?XSZ&5ScWwEf$(4A=^zR=TU
zrV7803-IM7sF;Jab0$_du$hMlek^3Ik$*gDW0>-g+tQaBk#_!CkfZD(U2#|e9IU|!
zO=@;NszlM-dloNJ>MPWaz!g%>e<%*jk;9JcX4kWj)x2CD#4M!-ZgR&=ELEDukzSoy
z;ycovJ3{n%=G}0#Dd<7I&FD))-12J8w-9;wa0aQXB55<eNB>{LmJ8v(36b{^qbYUE
zf<jL}h-kUrX;U3;&CvKJmW$Iq4(-DJeGH9ku9YbBt;MRPR(jmmi|_jHHD@z~Id_^+
z=gd`o%_e~ax}3l`trdMnTmK0<Lk7mFp>uI0Q0Srue01=8jN@hrkd<Y^O4CfNdvKpP
zcdmwb;b{Xme8goMKc`qv&o3_8pIb*LZmD~Co3TJ4<s&gJ-#0!;Mn1=1lNdku=YHFB
zhw~kcTkKXl#YeB^it0~UVN$AJ)UoHar5P(LF?3D0w}7t;#3A6T+V+b%SC`a<k#(qR
za21mx(S8H5uDWrlaS#(=9TAATFurTXQwI;#{3|2eANeRZey_GD#Z9=(G0k(8k0a4d
z_~Y`KS4dxdfhtq=Kx`~Y4i06F=izg078k2-wp}0!zmOI1)r8_RJ67qhhhHeGr+(Sk
zd<rP3Z`@k*qu~Hzn%7ZbxL{?2vSY|dIezTg_EYPLYA)edY^gssE{4x~$a70s6r@xe
zvNl>eI8xQ%mk@|djXhMt0>v~qAMZJ-ZK%pNl#Typ^Gzv1-s4Bl=L!IgLhc^@baQ4w
zn+ZV)k0SA0m@&VB$B4soav+>L6#+%CZo<N+51A$TI6|$JV>1Ot%Wyj0z=;+`5)m_2
z0etNsT9^FMQ?FS>HMdM5<(@7THkUYwFxu9sP1u+itn-21%~=N?4{s9k_ahR@PU!5+
z`t1ebGASwo8+vX2?8%)Elc(3QKona?$Zf_^ilIx22@=ic8p^hHq54GT{Fz`%h}_?W
z_*ue?tbW5CN*cIhGjJ1ec!sr<J*1iW7{2?i>mcHABPXn_;E%`OKMb<R3Iw9#uXOpp
zb@$h?iRr&jaHRZIXP@x*v5Egzos38<AQBF%@NYzvt#UlB@v2)M{@t8O(-Ajq$n>f!
zIdxu=@plN@pTC+V{e)LrwWR8K-Etbtz|p_ZmIh92g2WTrfl@~42ON}RnJj`Y{%dLd
zFPZRvbmGvSzu!XSTs-L~g9FM)bDHBjQN}b3?2gw;txN!D$Exn9#tfN)Yvm$gA-aAQ
zZwxuPyepa!^!0=!jrWkvQ%Ue6_;*;^uTrVmahnW?D&)CsH1llD|7;oMd<N4p09h?}
zYxrOne0tvy>;g+XUbr!_t%YzF@+Kt&#wFZU(*l)Hltq9q!2zx(ge9ulChP^CZVhR9
zRrJ@M$G7$<RV4$1ns7p~G9#SAgug8Q@CJtahY$K{=-TRMb;4KxfJegkVCnA4iEwle
zO2e1^Z_E<WbVU7!i+TwzcU22qU(WG}0Qd^#P2#M(K^EkJy%RZKj_XKu5OA2qexY4`
zh&2NUaEup}6T$mp$uyLEcg`(lp+UYeT;`27(G9xS=6Ph>B$o8NpT?19ut&5BoY%zF
z+@I13?c3JSty8AIW6TAydg}>#-NhtUlv|tjJvZR~zuy)qYSZV)sVObxuMz#sOv=E!
zoG=XgF@)>s%i7gN!x@;p(|`$F#t(TKp2*49MD=Xn)UES|((-$PqH?$RoDVSh(II$<
zFt<7VW?NQ^GNrptM()XY!$I4y7u2bn%IkdhVwI5i8w`>{sNKI3@cw#9f<3`9*1Oxe
zl$n;p%n1%%f-73dOIO#a{eae7O#P^3J)=RxIk>=2lrQO9aZ$8&&hsD>55`@D&RQ-E
zTM`IT{kF`%&%XH@BjpA{?M%^8&@QaG@|Wa<2+51vu#gWw+&fIvfxPH5(=D2T<XYyk
zJ@YH0u^7zS)tRywdv?hClmZh+o$kwIDqDDbpZ`z|60Bqr&zO5KL}9ePar_X${+j6c
z?LEBT$V!TtHg8Cgc!I9(QY-O@2t3z+=QqZy4O?(&a&0LzR;^PP2(=Fm5hD{QOo@Cc
z#GUy~Qg`D;=|7mMm?3ynLGoH|0IB0Wqa{M-+#v#<KA0QOns}Sp!s!}ZTa9+nReY#-
zlljKksM`Yq<Q^buKBmawUA^<wwY~Qc$7_368c)$jhAo+@r{SFBZRQ*sm^v=xVH~uj
z4)K6y;-hy@4Jd+zs=jOtj1NYx4=^0CkrG>oFB2ffRX#miR$~w2uT{U<Y(LR~wv5z%
zFMs8Xt$@p&9n0RRxbJ#$b#6}{;<f!?pyqzJ&2fVcDng`1ARZV_C3OH~6y=SSx$XBX
z&<tZ81(2g?u<8@@5)>GYB{7wo-FUKgQ1{^IM;7u$dYK_%N1*e#kLzOJ?ySK**-|<F
zS8(1pPrxT7!n%C00zH~aa$}>97dg=0dMh79Bq*IS{P4;#D_qas>e**aq<M1WpZgHg
zO>iE*Qm0PB=Gl~(tOn&VYQqcM5wqc3-o|VNLapf<uYSbmt-0j^-3#Yd!HX*6V@=w3
zJ_z8G1$|O(m+Lc*x!6HU@ct1L!tb^UY^(x&QP1HDS_@sW`s!CM%}TT;^$Y@mDN}(~
zwS!ufl<;!)GEZoG2-)tILLCEs<c;}QB|mVYB^>ukQ%FZ^QO%vg5>@*3x)lH8T@p~K
z<$ePy5SsB2vN_t=)WdTIS36#ElUSKMPb^w$famb)9xU2Kpj*xNM7dt2#+hb%Sj;_n
zSepE8+Ro(>QSP1)EK{|m<V~SNwPwlC)&+jKt+OC%emK|y;`3^&L{SP91L5<<T2O#A
z9;*Xu#7EsgmRB2E6IAU@b<FH&_5aXCBZHLB2ba1~?gniO!CClcuu@o)U=>9;35RAO
zA<B;~E6qDUmUa5&a=Ujj9Cn*F7nRaSf@c$oWxd>It|27?!b%I~M8s&{=2u3uws<^I
zZP}z!ooV5^+oO$LIsO@RKeMrqogR`n7;i<)zL_`>5@F>5k<+(af^SoOFf8Poy4bU9
z*&c?r!DPFx3?OY`(SP`~Ta+c)b20$^bkjI*Q!p$1evk^)pnfT%Kt&;V{#kHu^pI@9
zJfG6LPq1!*qX@)Dw_33&+NQ5zRrW~szp$&^NaWn@r%?speXO5udOe}_#pDPk<!e16
z#!aTmdi}B6@xoaqBRqx>ONoN#ZSfCy(_2`5x>tRuYIJ?k5t<l}A?2d5DlqbLqrdfQ
z|KuQ;_}xMuLWZBAUoz8ab}MD#VHEEN5Nnq3<%$?6M)3lkD_4G|;^@N49E#&>i#Pn6
zP14jM&+cZv@Gr|JbZc;eM`7>ui!$t|O%pR?o)>s$bX*+G1E0tWy|!OcL+>jck?aj7
zj7}XZcIA<qUkOkcpD8K0xlLdp%biK_8M|n+uX?IFG+%sx%Z5gx7*$vep4QSCg-rV7
zrs3S{*>_8P)<2ZsV}l`w7|h;)=S-a8$_VZ$wSPjJ*2NLEz(|n{;8eT{O|d>VSYxJG
z9a_{?2-=RR7w`HX?OkbHlIh;YtUPn3bgENnZZ)B1X_}^vd&`W5DQ1qQWum#J8Hu8U
zqF7Gbn@K*9m1`aMoiz6?$I>tpS8#<&2zL|}LIvKN=A8MxAK&x&efi)Az~_1H|NT7o
zeO>?m^}lecw5Arg=DQ9b?;_3QWNBZCZ8vQOZW@Trp#0|FXRNe;djjEeExw?Whb1X)
zW1X*5!HIf_po-RAD-T+!`0E>4@-xSs7PTk*!&~Rs<lEzrKP}Q8$7~HDT-)u;iwdEe
z+Vf0GT3UuEPMIH@;aWHA(=6RqHEq40M$BWUZKOi~uc8?&t+@H^%)e(OUOz7>`7*L&
zyOF~!GsN}BY&6L$4Jrl6v-T>Z5#bt=Q1B~pK7HW~E4rXNyiu2Wc_6bu`1{sQP4??j
z$312)I=|TtJqH&oE+Fohw2BRDpo!b3wU_O~BZur;r%!=cr2@G8dL!o7F5c2vSG!t8
zqmWzCPdV@@5YY+^0*<@1TosF<NTwtqFU!9?Dkc(w0exT08h<X?;n}pAcfNtJYr%ov
zmh@!Y3CbysXVPWe{1Jg=%a9z5qAWo0nMhF|;%It*xLHBcf+GYfY`hTGfCWmb7r;iB
zA>T2tcKe~+9;fS3I&J_$Z%jo;w@6QPtq!iQnYcN(g^Tum-UNFJwk%-&5#CAeD?;#v
zh^W%aiKY-?;>=P(a`<>qUJ^!Z2SvLP(FhgabU12yV1W<c8`)(KKJ@4O5u)&Lr1Q9X
z_7LicORe9fWb|2?X#7$pkCk3&IND>fg3Bz%x5?5Bs>2ueWP<1)3qvjw2N_s<b*~#Y
z8kUPSo;<$)+PZ{K+xn`NGSJy_P$PPTR>F7cnDa|B)f(}mpWH?X>e`^T_KPI*x~}Kv
zF8Z}%Ka0mr1Y2N+Ph?eCAM1+_e6vixrnbnNCQ*08^{O>8=JCz`-O5q<Noq)_`AXWI
z@cGB=h-vL;snt9@nq<@vJL0Lo0?@)XUx56Eze=npZdY744AlHH?~rreU}_NOk{vfz
zth`_yxDCM{EzV9iEkvhOKQ7ONe!Co>T;Ysh)^f<DamTEIiuzmSKdhwSymHV|X{eTH
z7Aazoyv(07EiF*l=@ZiOW|W(RuY62zy|Wm<Zn9E!PvFe2KwR$=Nq&d7lA`Puw6$EC
zGMa341}=S7g85vQW$k^MMN(HAy7YplwR!9n2P2W4TY4V(=eczYtao->#EPklru1g$
zRL~A_R99%#T;A1|*JIWDRtUijIgKnj@*RL}_Fzd!SY=;FXr%kccD)-P+K7e}BD<Vt
zUyVFtOY`Bew&`pkU6~euuwm-jnts^(#4kGCb!Vkhjkd<Q$F{@XPr*TC+&5wMN+_g+
z?II$oh~osK05}(w+f9uPfDE)nAK;yViz|vbzg^zVQol4sjM9_Je^f>EWcsQBl6g+X
zue#HnrjJeu`cyhkh5I)=D0yZf4{*C3@L+j86P0gyapeF)F~e8y9|qHSYg?*r)wazr
zAK=gccE>s?iEW?BuL1}Qm?!MA-~<)GKgz-O(EDX{VEibDIAsdz(2fvrJMe^TLtfaz
zp5`?}_^b4jh9(RL%q01$T#Nesx1ROhU593lKpEDP9)X-DxKbAO2iWU1N&sEXaIZJS
zcF`B&9;B|zCwLB%+4L&KTSb=~Fz-DTP71m|OE%`sXJv@<^sOh_-WlvFglTOrqn)&Y
zfzZ{xVCe;Fbx__(`x+0~qKhh23*f(1gcQl>Kg`2p4{(lDrj?PJ&@ys4-3v!MV_wTj
z$AL6J^b?jc$n1BX3UYe6)+DRE<<%wQ<SnqL#}0zAcSMK*bkwsF9)QVezCMlyXEB`8
zL@@R|gty7;eptc?3EU>iv~<@!N?V@REJI!f)Sy5$1sFw9R_{&X^~?T0_lSimEa6{r
zjHbVM6@cP0Ox$Qi4GUD?Ou6AmgTXeG08UF-0_xx-a7kcPM_rH0M)5y*E+91{mmDhf
zson_F0{q}I5a_4)Gqz2B1DkZ<w=fOj)(ICn164uJg`)Ke1n?mu!%=`UeeU~)BYPQ%
zq>cRn{tJa;N+hcvwN6^m0MW7eH_<WVb+=inpOux&*>E%EbKD?=q-41|JCTGpq^?h5
zzah@2X$*f(@c8#Kuai`Spl2Zm^TdLv`Is%z&552Bpr1Mnl6?OhvZ0wGwTnIX-gS?w
z>f3y{!TdD0caL9&_Mb9>;QPciXQpd09|ae+!!HnrJA243uXWss)?p9-q<DsJp7g6@
zW5p%{?1>=;gFehCRsOSjuRj7v`JUHh#e5=o_ZRuK%vUT&zU9@RH^P&d6$-EZx-*#6
zv6M=mi|4;EC+hFC%xs=Dp!d=Wfmg_E>Uu`thAhC81Nt8<61FU+z?J67=qGH|(5cx}
zM9Yva!HO!+=w%!NI`m)cP-@q!B|X7K-*|7reH_NUC%qBd9WOY8i5X%TU%dZK#F=oj
z28h-t-pnybYR9f<-UZD8L!HU+*lOj2vQrt}b?h@#2M9Eh<|j>I$01rWD!-08lf0f8
z8Srg%AEZo}Q~dx6ESMKVcns##x0yW`djcxySHEr96NQEB9W8IjjsyevugQqITSfn6
z<3VaD<Q2Vk;M?@fKGxkA=tm^uu)Gv7Ki5;)cXXFmB|lOL+U7cdLEA7y4Sw1w-;Vt4
zK>z>eKa0RQy$=?^-0q4i1gv2_Ad~~hPJ|(jI`PFa)g%Xwass<c4NcoI;r6Ns9z8=Q
zI`Ah{IyO<x%&em;K-;W?=#t14fka}ykO2rtkcJE4+=7jpqmhjrjz4bk@G2;XRkFF(
z@e-y7tx3lG*YS`zXs7Op)9JERqb%kGMAI_&2iZN?>#a9x;jARN9j`4w@r)8aM`H6z
zc+w-(U67Y8l}?V8e1XSm)t`hwf0CtcjxvA%eQGI2SPs8NS1ToU7S5}f0lofTi|iGE
zD;Ms1gQk|H4wYH8T_M2@R4#o??dqj1WyP`7-zPUIr|)QjsdfUYAK~{2EKD8`fRv@$
z54MFO%g0?)Gb`<4rF#NN3gy^F9d|v<`2HrJzkTPO@Njb7O?2-Y-BoSJ#<sLx({_Pv
z1KnnnaD3C@)`Qd!LAwEezXmfX=|UkfZ%a3Ujpvw`alo%_<sp^_selvN1TYO@bcF|{
za@`%2b)H6MCoBCi;Q|YLQEn5AGMtR`^a^7n%>NV4bKpOR$9_0u2LszzU|x&VJJa93
z`f{d(aM~6tyX7gAa!?lK?N-T{x-3Z)aCCG20egBBT;)h1ueH5~1gRON8_L1<k3dEy
z?GK=h(_4vi*2Z?rn;g?O8@#@j1buAQqh<!~(gviemH^#_i%z*qmeyK4w{D>%$j+J5
zB4z$Fh?NSztBvz>mz3ez$K^M}67sztJtow7N7sCU>HR}?y5JaToUa>ioXiHxN$HWZ
zi1?=qn&rZ*u%BSxgDv03G>u6B(7dI1y_9-)t6`Q?l_D(R8KBr_hlC0}hkpR^4~o*l
zonI9LcLviO512d1nNsRfq45`M5}m5QgB&CMMHMMyTo(--lEKXfgEivt?mca>@2<7W
zc^t|QhCO}g!fU;IVHNb-MqpmZC3XHyHd*=z<|DSR?h)}qx<8Se(lCvmu%ynDnhL7)
zE%m7cq(1QceyS9tBl@|Z=>k;HZ3uiBOzTKhn4hl?%tP>X+J5hZUjQNl!HSStSB6A*
z0=XMq1#GE%#&n=@Jt~1_A-nnl;7Flq$!R8S(C1Ep89z97Fd&&?uY(JNT%in-(JA2!
z*}T2y49M8&=+w7e`(yKdfLOY_>V&LI?(;{TDyzl4|Jh^vfAQN1^)=SiWH>7WyI;Ok
z_;s|>go9f+!~c}JmLaIWL}vVbEnF=B+T!I^S%YB&;PDRzoVwzIYCicF{TFBX;H$Bm
zs<3B2pVRl?EmarIb1mj07+;obvKLnI%X`*BuZ(9O7&Vz?_~tOr%K7-pV2{&;G1X?e
zrO5V2s(#?Ul+E(0ovD!(+&o<k2Ca9^5PX;3sQ{zPAXV^;R-8ucm%$t`F&_zEmGoh~
zZzPELGS~PZ=#qB*SqR)@6J(;G=RsMOqR+im4OYyT@wSz(IQazZ9{{~Qzu)Q3G1E4G
z;mSNntw7oWybE4wAZZ2KpAbDfe5*;o;6gbZ6+BGCq^l!rysYEb;X1NSkb~$!^7FT4
zv7&iM%?sG%)~5NXs?5OxG37B!;Vq5`M<X!Tb$ZZR!1+5=I6b+Bkn9JJ&0eW&1q3tA
z2)$&OQ|{P`2F@3v6WpIbOS>U3BJqCA?$Q08y}ED3iU)xtO~y06RdjB~^5}WUG9SL)
zI&xpsi9jOw<K!Kz_G?bUYRmc=;V_&4T*;BGC}+@H#R%;UB1P2NLu2_#HqtTj+f4@3
zuf*=$;m+KV6ZbgTH;q*X)xWGn(mH+RXG))BzZjM1a``#Bj0rFx2XkUHZH5~@9!fzq
zR(n~7iagJB*eZm^sncWho!7iCUYfPeDGSvEG1}8VKM*&GqSde8nOQo$Z)G687nqr;
zdp`4+n(!Vi$Zo#-s;E|J^{TC&E<=@@inL8kerbJ#^c_uk=KuxwAYFTVZ7#ebE#vN9
z6MUAYO0Oi%t#LLVzIs=Ed5dS<OA2!mAdg+A*YF#UBKq0mndAEfU_#Cy1}j#7b24#S
zEWexmBG=2HBDhylf>6Bn6`$sv7>2T(?089!pwJn<WsIop=w~q4_m;BX2;k@P^4^cu
z1--(~1AO!PR7`XO`l+x;!?r1AgJ3dM5T6(y(shrbegF2lV8!?YkTdD#@b9Q|br3aq
z@RYPS*mSoZS5hvOe*ElHJ#_odrfdflgju1u+9FIQ9^H|=UUPu<!bU>bJi!;_x~*L^
zZfh)A_Nu7rm^3i~X@gYT)0fWM-7}k?gy0I>a5hdAZSnK;nE9k#_NrW;i@?T|!3Pc*
zVH3uq4Fd2O`FtAuE`cZ*A-FeCAH)y924~Es-jCfzXk-|DXglxF&%Rgc=$&Qxyw%Aq
zv*I}3h8p}G)8Y=m=ofT)!VsWlB>n@F$@#r~2&jCa?h!J^TX7bL%)WRUkKpgMUTQV~
z9be^r_tCCh=FOKK_~N4N*<5GH%1Ud;pe1y@h-(h23eyO|`z}Vg*>q&99PI^b$-wy;
z4=0Kl9>po5W{S*$e-0)^2s_{gb1RMLt|=NPqQ)6gfQy7P9t0pjsB&EF;Rj7Q7f0<a
zaNL18#~nVa%lKq~T`MJFoU&*kjE^Dnbc`$jm$>^?q}brui&=xsuRg@ujWKM%{iT=G
znYV5y$~rAz`JF*EqkCxxsYs6m71lj39z*~A9!NV*pH9B4YSI=P2w5u(T5C7zs9!gK
zzED%@_&24Ph4#-S_DG%s;zm-A5a<19$i9RLK#1E`odZuQF>A@+_Y)L*nUkojHrKdo
zNdC*>1(aeT!~G9zXqVNC_nl**e{`PhIJ?;MIcTc4_(N-fRBiCRX#i(7sw7LC<DHl|
zTDCf>Vv=l1J82|oF1@eK;O8#ng)xmsTfR-7?>5yJmxznvcaK_PSkGBeXT(A7SmJyY
z0ZjF!ihjm<=xj+tg$8Dh0p3<KZi!)k)KoHOhQwrZD-?^QJ;e(VcLpaQqlW9%xzW6(
zY@=M7xVQnVGJPc<exIEvnN&A^-c!1(sp_jrOu$e+s<M)C(@nf9M({9ZyJAQ!Jv3<W
zr%@{fs{gJg>S8GFys+PtrxJ!*2Z5#hpm<ieogWf0r<j&gdqKQa43)OPE<oc&#VqvA
z+^g{4(%;}h+z7*6^Tc<Hx$Ts%M~l{`%qp(Bt}ZuO1PqRa9IcqCFuf8!vRtwzhAf-E
zOAi$k4U~A#Efm_Uk2%&Ypwwrt%FlEgwON*Azu>^fiK=vG=z&ETau$all&vhL<(V#%
z!OLoJlJlZsW2z3;AZ$6SPf)D{Q*~%1zL$f+sm8_p#tTKlj^d5NJ8@DL*^F6IUwRmo
z<J%e*x|2(|z|mAJibc3FP3^20XUtrHd^p!dwZ{>|IlL}(Fk?y`RjREVGv8UnoS9gz
z;;(A3$;J5K#I;1dJiSO^E41MXX~OG&)bg!vy6iF3I<ha>L>I(z)HtB8G#9?THoE4$
z<=E~a_w4txQKO|bbss6AHy+hgWcr3X^3{_3n!SNzRZ#bPo)YY7TD)eMJZw0v@|*{R
zKgQX<wjZp+Ipi&O;%x(VuedPrN=Bu`tHC?DJ;nH;M-8EI$kju2XrN3ORk}0R>h2~%
zw%bTc4zq5YnW)+)5Q&TNH$Z+>5rGhtnXcMZoQzoP>DP<D6T{6@Uu`N)4OWfXuGlZA
zHr7i<WF@+kaYJ#CFbO9T%fVa^0$RHgksWE9k7tlwd`djaV-v~dx>D?^@M9_$i07iY
zi-!^J+8%e}GGcbd2_ojnp%JWOqee_~bO<?=LjUWi-2>HDW!Y$u`~Vma1~TY0VeGb%
zkoG+TzWCM7jJr;;z4<Y3yjttg>-FAl8m5Q&_wK|o3lB>RebYyI`RPAc8U!HOs(Ia?
z8q7K9$-JH#sj?Uyxr$vJiKMv=gw1Zgl18tty4IYLxEc>OmMl5guK@Wbcq{1CkL??^
zH5tfWzTqOt2P7EITQzEa^Fa`4AI{o;#5Uggopmu^<@5~m5S6)oZDR=39=Fd3V?wyI
z2IuY42#2&%URei_eXVcZ(6F<sDWcMP1#sJ0GB4}PgMT{pzbelRAlWE5@d8K<sbdXK
zkl#+dhx6eFSnv3**e)mg{N~(&Kvzfsd7#JQ=F2k=rka`$Yudh@Y-v4g3vQ+l)80x5
z{<E!O>DnXldT!ErM~6+b8C&B79j~lTEk>x=5V?N#a|Dft%f>6^Jq)L-Erp+Roz_OD
zhXm%ztJvUm*(w*=FO>C<JSRFKjv{gGtw*$u^$%_@i9+$J2%*(d_ExdF%Mf8L!Gaqt
zKt28<tz-6Gjrfuv&gl@<x`}<MDeJ#td1it5yBFf-y1G*C=P0k@m{r9DTvuV!Nn|1L
z6p&On#cf>HMHI^`tkmjK@0K+1_MJmlN7RxrnV{x`aM#4)8ncF($2*qnurb)C_N{}S
zO17u(y2W`v4*VV;2I$ztEAEm@wsUJ#n3rWvN8cB757Vw$!~3DQo!=G{Qk_7~r`-@>
zu)+zGiQI)EM7+hRG0oh@e~QCMYNJ=Y67em|*a%2!@ZcCEoP(pwTBQD<a1KA7$`yJ!
zR9@&Be`0Wk|NEZg^?EpJfecFOxA4~*G@F@ZsL4Y22=_+(`855?SJ4o`nZFomi)l6I
znByCkzgDtTtvBWz_%D&7QC)_xZ(6(4v|xkuc{ifP)K0n_GMN1$0@}Db^d*U$`^g0%
zD4n@{P;19p6WJWi%BFU=r8`PSr%moh82&XH1WP8oNU)hnxjyMwwa6|Om&6F1u56|!
zR$?MY`87E*Sofic`0;Y`(vfND_<ESZzTVEl933U(Gx@sda8^2WO=CqZbvDj|S^ys5
zIk(TMQ47f$2Lw;tI1jCEMQ3Ec(AP!0&F5lpvzLD;d$^+s#B}maA05PWX0}&QZFN8P
zYCqGu9UxMV+khg!uAKGfoT(*f<PeF!awc7&{iKy8IBIJ7t43y6e`oe%b=~hjHOF^#
zHt*LGeI440ML|Y)m&><e38~PcWbRQ6?F|3RR`GVw@l$ZT5Xg@;g0hm9jU(N<2KUp>
zR;8q}ocR>E)HE=u<QctspkzM6@XzZgik;3~P=TG0WsE)C4fd=sbW5s;Gdc+5ELrG)
z>Ask_?@CaY6%jlGZE$WtxXmcYAhVn>=O7jm(YtY+BSK~HQ)Z=^n0V&!=Wqi@3>V%C
z`04q4PMw8TUsMRRH(w97+K?o;I0ri6Wq6^4OnimP1ied=L(~JF<|c3Jn9q#%PL;UY
zX&mj8P-UXlM{HizPl)_*!ksAa+cIRrHfxIjHb;2Ahbtiaf0}j8kE=&O#6S!;@*)FS
zVM=TJsp51xgAeEBksAKg1VjXn7lFKoDO{G81+V{&U`E^;H3v%H0E|6qT~&+P`!By-
g**pI?URki)=mQncHYEVA4ZPQXLH=BR%IDU916=YdkN^Mx

diff --git a/reference/plot-4.png b/reference/plot-4.png
index 2be07e274c68d3e8310fb94832906237c3c1c184..8305bed86c62634a0e039100f4615d6c310c4bc9 100644
GIT binary patch
literal 38860
zcmeFZcT`i`+btXsMf3<N2RSN5A%K8@1{CS2AcQJK>7df2E4?O&M?p|ZXa;FQ1nE5(
z2w+1xNN7SRA|*lyEf7iwxhtOYd+&R{@%{0A|J`xN-D3bD+1Y#TXFY2^bI!H)etyeP
z`{?1*hanKiQMit#2?TN=2m;xE|Ik734l(u33ixyIzMi%w_zSk}8x2VChx4J1r7r{`
z5XJi07eBk|1c97|z%{R#1!XLb2WRkXFj`jwuY^|ccfQPFi;RwByMLV9jH_^V<wH?~
ziS$DJXpHWliF@G#)uKBsA$%SORC2D9pPw|-ROCI*Zgz}a<tndMPs-Er-My_I`Ey<R
zsCMYc(_!jrn@9tCTTo7U8=;ULMxv+uZqxt$^?xJ4ia-%o0@cAU*zaR0u^83N1A)A&
zTJyEt2R``$NtG@9Fy&t`oS?j$34v&&q@<BqDgS%hJ@?_rzb|k9xzFz3m+x{9t+4&`
zT7$Pm*d4som|O4gKLB1lyeq=`N)f68(}N1pRkAd3hZ~d(*TF}j^S<zG_>KhuM&9(4
zNcH_2Q(ao6q^D$K($>M;4?hBJbe<K0PX}fE4b40^F9~<iEjs5~iQz<j)f=5c<ribl
zq3ZRDq+C-l^Qb)uSNQ1-MST-{xVUA!GmI44h#5gS!$aVNP1oc^*Az;|j<NMzz4~ne
zCn_$<%#?5vz6=k!LFhzXam3l7Pom6><{A+%x*iFMP_sNP6vkm1VZ)QHFl3qnv^%Lr
ziesZYU%yGAdT{9Xg+@GSgP=9EzO?39qn!LwYlNSMDZm#pKV9ldFq>O><?LC0k1~D7
zt`O5dz2<S=^<HF%VX9g3byd;AOpF%i+RJc#6z6qkYbW&r(-Q--iTN;lF(^GS=-S+o
z7=2e^(zHYpC%f1*x6HgkC;Kr6+jGd}?P!cLlvmucpim|lPpLw-&HmK^9Z$_EA=whT
z;Z<d5gtv2EDJ$X-2nYK3n$Qef>{o*9e4+eWcK!?-yxNw~EM1u1^^V}!q1@L|{-*0t
zk0YVW%!e#H0}p8<1%H<))H~tCURaggZ?-=Qn}AUlvy9);wv5F0Uv7OnwhG4_ZD;q%
zBuxISKq~E<h{n{yko}sw>_Oulc#&(C%t!D|M5NzHkhgRFf12^eA=&Q3Ipc5VjGU95
z>YXkmo4xvBF&3HVn=*R7yBk(lT5ebw#{dC<%GF;S_kCm%=@V%-(pxwQS^o7W`8d7J
zFQP794>t?D<}XXJCERq(=Z{YFick=C#YJ*|aZ&#8`sJo`KGEv;ML$dkx!&{m?@O?{
zT)sAT^-r*U^)yu3P*dIaKx!M)TxOddJoftc=@EhmuQz+JYYdqU9pxJ)*66;TU{qZ4
zsgDaa%Xi>|JjuMt9SB1PdyuRS^(su@hjelc@$I4-CqeBOYDqPXL4hpS!9>!Hl20YN
zH!oA6gDAA~v}zh&1a(mKoq58(3F3+5S@Hiz<E)Aq`?<(YY)7BVC(7FpBxH!>ju%RP
zM>6nGo(r6v?1o%P>zLNP<8W!!g{1R;DH0`Rjhqp~_c&?sZ5J*M_KvC>nQ)-b#u4|T
z-Vc<1>FAW`cJ~q7hnC&Mxe2Xb<-S(bMKaS>eQ062^wE@l>AH!p)_yN7R2&L76evmE
zX9usJeCuWBdxX@<_}&u$_r+qWlXusJz3XS1Vb?~_?#GMpB&WDVC|ECd>tkzwNA$<p
z*^`=<g17d}8)k$O*E7cUpV<t-G)(5Hl;54vMMv1;jZ_GlP=9|NxepFZIh%#K%cv1|
zu6`a{0@SwwaZHk`m}0`sA7TKnxGh#eep`=e;92DP`;Jd}0Ws39pkdKI|4aXCXmP1_
zW8@!SLJtIKL*F?R?VIqxE69!iXPmtvMmM`V-Biw>J^~^Pt2^6JD8`fQqg!Xaly|f-
zGO^K?FgBg&{6;VRtDvilKfJobiCHK^Cw@|klh8@o&d@F7;4%+M_RZH;#8v3`Z0tVm
z+~cvKA<uqL;>9H&PxMRIt_N4IApXy(8x`b6z^Nnt(4D&@4uM42q))Hyd`4kA+10ZW
z{TjPU$D$-~%ttXZYNvh5y247l5Xtf*PS$TQJMd&7@BB`(y9z;NX>BJ^&~@P|{tk4r
zP}FX<O%Im0ui0m0Nc7sMe&?*>M&2!F$C9L%y7-IM*m1D;vVfgbs$XU29+Ep>358J=
zBwDds#HGbRs2y{ma;Bcr5J=laB}WM4)(Au7BP|ssa!|Xyi;25qQrPuLLp%uMzE~-Z
z)=0Nrxdl6N;_dy|uCYQxJX>t6jh*bK&h$Dndl(m_>0DDaoQKvMO;TCwuCd8BRZkD{
zcny_HuYv`S%x(n0J~msZ+R|*xzEG!i=lF$W<w`qzVMmHQQNiV{_VHfnV#bEYBL7%%
zrZ%Dru_qxA$G=z=;MRzNiO;?qi>Ih(Iy<+-EUZ7@6RHcoF3R&>$MH$)mGXIkj39w*
z^A8KwX~U)rp<c4hOna9DdE?=9?GKy$*`17?sf|F3)Te8vwR!}LG*8AfLTIikn|S`N
zbrz=BF>);yswy^r0u6BzLC>4qFK?;Pwrk<+D0)$~J<(-m4QdPQ1w<B9utl2g!i7y@
z6wkbj9N{85<%j9i<#gC!RY0%@_4LvA#MzCGHFdiU{?zcCtp1L<duhYoX6xa%w3nzH
z4KLYJyA+Xd=fhDs`5)U3mY=Pj5eVu&S+MEs<mtW-qQSPC2WntZq>$rD9VKHz63q8U
z{!e{0@vDO;^}G5W%}3m>u0OPUk_;WLoAB;_w2e+6`z}NcPfq<R85F)8D_ZIs#JC7A
zEzR!rhtres`&Vy>W==P|DVn~zOHY)TNug{yi;V&xOSs1#1kQK6N`p}Dcr*KQDyOE6
z#Jo4mH#kI5d1>>dAU!}YSEeA?gARMXp7MMcw}tD9R#E3JKYNu%+6a8Flj7^>s7bK5
z!5+nCAxTx^p6lg~Y6ZK44s;>Mxq6ujT5UNlEM9)ZWZ1#_F$N1xUA*a>@K1)Z;USP5
z$(Xha74q87fBx7&jka~Q<3>fhS06Pq&u`)ajM6rxr?gN9-+K^6HiK=XipPDpbsMDP
zp8lYu(l<h1VdSbT(#-Vzf*Dq5W4xh=(lFfWXCmnyj7nD8Zp4H-m5nrx2G(G$({r>O
zC&-3zt2)EdEj~Vsi9d2#MdQ@X2tEjeU#BUBo@-$ESg8DXWS$C^0bi=Sr!KavXeT9A
z=X*)BP&UKt1|f6)HYvwHz7@-t610=R23I&>o{8~DTrc`ez6>>Z1ow@?7xcYbuA~^m
zd)lgC4^Vj0hI>&|{<=ZOd{v#>PGR2pqrXSGFpHl^HjtqVvvyhifsWY?UaoS3l{S(O
zI`O#yZ)559F?f6%sB<cbngUXJoIYIod=|tL()^<E%T8XIlfv^0KZ*iw1>2e6I<fVz
zJVoyWzjwLJPEsd3LN;wZMSn$}xa1qmIG;A0ZIm#{74KP4kGIn!$Z@V6CD^15Qyn9}
z1zc3SP?(2_hhE+^HpEW6Mtgv)1KWpdi=600gcItf-hy-?x=Tks)R2&Xd4?*hqWOpH
zc8M|p-e7iuE`F@+3V?57wbQFrJCwhO8obd?zbEKqJD=!<)?X<|%_TKzh(RXw#41iU
zAd8N4Z{Hs2oi`KOIP=T+4lEuPkCzj@P<_?{wh?;n`R-vSwsEi4KrH6I`=l^>{_qv(
z`C+LQ3Tb&jwSC%vw%Vj^`M;ET3FTi2Jq}OCv~jcW^phH=ggV*N@n*EUjyhsnCp9Z#
zAmvly5C1~RPvqe><89c3MCaq-L%p8tUU-hAE?L^6v{r1+e*8T+*|cQxPh6dX-Ty2B
z5r5o^0qW{uj#LuodE7Y7?i|mGul0G!Q*xr2(CV`$w@)VeC1SLFZ4;l^Xgb$Fwb8Fl
zh+Bm(R%;PL;d6o2V|>^BV8#SbiN)+PADk@q*UV8ksWWtkQ{nbhBl_L%oV)%z=i2O&
z&{Q9TNCr)(Ueoz;z9#+ajv*l!RSzGX&qJgb<1p@`0#dF`@#}hyUXuZ@LwVZ^6XZ=y
z^x*xbItm7aN2dyn?~|e3dKJCnx`^YSghXqTw%J4zIYe!X7CHD_+AkE*93mN6$phy3
zrK`oTW`(5R$Z~LoRL`Q6oHio9#EnZsd71j(ig8^w36~wcIQQ%by6D0a6R7nvjDbYz
z<>8KoxB5S5n&?DaROgs*BV4SaN@MO0Io|2!kU+FriX!bM%-1bTcwQU~-3+RbQ>3Dl
zBbzqWv8OW-_ik~Y$IGtWstrfB=LH?R0&z)}SKVW~N*UhmW1pB#UPasLfgSAhF--lT
zQEpUy2R~I7nki9O+Vx=D31yeEUX%N{#paK@!KV4r3$pVh7&0#%bq5||NiaPeFjcAF
zs8G$Sod2J<tGAx|{8k+Ne+uuLYhhLtPL1scga5<YKX0=R6rs*S!{1v@%<pmf&p-eF
ze_z$8O*L~?&1!pOOSpV<?rOc$IrTbE1i>so3nh~*4=1Fd0`x}D&Ktm+ll)3Bw|d-2
zlQ&?<`0Ux7uIefav0JxQBnr(;Jfl2C{-hM2P_1uyYwO%Nq3~Sk0+y!Q>yWJiw}q-+
za81MrpqkR;Zxj4cr=iAi$#%?8REjgMOObfN6^m(bife8gl`Wa+wcd5mNBI{@`8H)G
z)Myf}psAM(2(k_fKi{Tf+@X!$0=>HMO&z!7k5!*hO7PPXuK6im1(*Xv?k`mdO^y_M
z)oTn^5Y9^NNlM&T?MNBpsO(tChPC!dAKAuvQj_vw^g>K&jGc&AJP$u14#jz5y+hZ)
zw9X`dsoVFKbN_`@PO}589e9PC^&UcnUnmKTUnkRs5R;jinyPA*GzzJT@fW-p_3m>i
zYK<p(wty*}%n22jL}F`^SD%NE3o`X{)mq>))JDu5!C-k*&5)=k4r3~3762O_5S4MY
zwjwTXT$N!pu`MPHod`P)C#URk{OE{*cvpl-?3~;5LTfx|>UuEF29JW*YY?n`1Y2sp
z>k?sSQVfg}b6f8uJb`_-l;n9QIguLdJ>Way#W9T%xP4mc9mLyQYw~lp&Voo`Tvzl&
zLRZ_gDU{JV+Dh(}Ze}be4K*o?9!)s)G2KPgO~*~j^&O@F)kfYgRelY=NY1wq`w>>D
zZ*6bTr}mQ_-Pa$GGgz2?NNQ&jEmDY1Y0@O@A0mf}3ZNcWMd{XCns5M!@45HA=(B0e
zUMaDjzahMP=+Oul>$)uaZ0A0=-$z^X16C>_d`W%ZL=mRG>lZN^;~R#F7r1=ql=joQ
z)I#DKfATisWG8zOTj=^yP<;3zq&&Ou@5n<dLrI+Squ1s%?FoJf=$jv3X7AO-<x<=V
z*y&=^;Zo(X``bDVq|tZ%Gzm^z#9m|hL)MEG;Z?Pa%0H4b+vKGv7HJf5shtDoS*@Ar
zl7a~t%A}pzc0fM#c-5(U`#48P#O8JM^wuYrog2IY=sTxIT1ny$61>oX&XxK(lCREE
zCmyCRw4{<D%NFDfUYLk#Kj>#l$*<_4vvaDwHzUkpzP#EqDn&uqTF+N{qgP@K2XFoL
zaOC-VHK8nEBuiZGsWGnW*FA`a=t)h|QHX|<nRQ<xy1e6sPw?PQxJG1+spHK+Y#Q#R
z52oupCKGm~$0je_J9JriUJ<Qz7uy#0DzL#*{mSwv$_qfz+kp^4vCZRe+ArK6(j*9p
zb`Lfknf`;YC-kif_rQAbk$IXW-s5p@Z1>nXxziHXO4hxdCi=s-=B_qj5#G5BzNP2c
zX;nB(u~W~-5VV8cIp5Hwdor_Q_h&bbpf$8*(Zt-kjth{@zwvye`TMH9)r7z#+|A~+
z_0p6kFPrqyORYcT30-$=`&vToQ=_H(4Xn|M0_us1+{KP3PwTF~)e}GyUoxerYQ%HC
z4b(v&y9!D3*|#XKCtbLJV!g`R@VX49i?^phY~!J!lW;l5QE_$q``b9fx9f4!2zP65
zG!0l7%N;h>#2RG6@<sIKR~z?i15{S(fXt1JB!YTx3vAz4A2b33lT4NWzO!uw=XISU
z)iG=7gB3+X^0Jeby{n$c$GMcBNLzwT8t%%PV_9uZhv8Q{@-{~rg%@VOFb7xa*WP1g
zLju;m<AwhA*}2+@A$Rv#Ri!q&AG1p6voHHULA~3<AdR1$8i@FSfQjKw_QM&3@N=Z#
z(>yP;8i(>^j-wOR+UNMz`SG+z_R^az&R05>gHA$2SB1(y#3v=qgvXh;P>|On86rMh
zhTS#Tjl}gxz4}a_tUBYEID)b%p%a)E517XtXf|lOebrGV;RuR}vu~9AJ$QV>z-PhA
z;l8){b1@T2OY1>RCz8|L>Q9hs$9=qG<Em-s=?aQnyw9TXtHPDg%=}P(+GVN~`mU!(
zaCysOn)rMf`v$%Fj{(_eYFK^kaxy!8)`xvrB1SN&-=?f^=WU945yN}>Rmj+{O8cs+
z%aMVJxeV))eBC8{Pc3a;=<Z1Ss|RlzdmOT}t>`Kw5tca%(INVvxka0!gQWws-0HNn
zFyZDaS(5XI(2yHVUHHg=V=iU-5f5{^qUsVbJ25gE)#tBGNIBlD8O=+HyS@H-lVg<m
zxzrruuc6-**!JQ=Enj}2xE#mN4T+hwLWsAf^SZS=+My@OuO=5+&LKc>j#O30FoLX1
zxX}@}U|Fg3%CA+u^h>Z|d!4!W@we8Mo(m18iOc17ay{!x1btkp?SejDb6l}^-tw5Q
zjeRG3$0AiAm2++pi_PXuqaDX_bYgy~G)UDhA8Pmxo7P4><;^5NO2PF1X?x*a6Q*wn
zD?O_IBdj5JU;P_cUMhuL|F{dE#5en1MSWgL;?cKdANOqHv|Sx(efPRpkcDX<x#*34
zsQj3Sy*Q$*-!EQ-mj1l$!mojwJtD_jE$A1L{hsAgJPqJ!=XVgU{C63VO1%me+b?t~
z>}B@j&Cl;-9lEZ>SWbS$xYC}HCg(WOP}p%ZV$)2Ee8#>t?h+9nIoK<4dVs6QLw19g
z;S*AeU;h5!9;HsPrJhyhHAbx@cixC2pe2nt&&|*Faot1+lZcw$vF++=8e-_egNu~a
zVk2U3T8H8*&{i!|!#LvHNeyW;`MaA(L}mH*O*r{*{iwOUj%UBLd0+S(8h1bQ=B#ug
zXHZc1FUHVl-L=#H=gs6V@+!}2C%vl2LrLxx@wJUM^z8EQWajZGiisb)@9udU<#(6c
z&l%{5eK^^-muF9b@hM>%;C-?x89lC9xq0;sE%=GgA)ZlPI`18w8bBlwo^Kz$PBTSi
zRnq1KHh2CYZ{(T2b5I&9GnHtZj&3w;?PP=_%X00pxN$5~+daFOt;GHoX+%&o7!k=>
z1ZhGyqMu+!t8>pE45C!2Kh#f5_oGkV*CH*yM21Q6ywazY#p-he>HW#5qF6;yY<U?!
zTVqw@y(Fn=;*!dDj-tt8G_EJ(u>MS_6|^Qq|8%+9aaMA(xy0+E$rYsqxk6q)pYUE$
z{%ih<d5)@^bJW<A6P+dDagW-S5j7SiuS>&kwlprC)Sx&wW<6MV9)vrzQlHtcqNT1m
zv{K~vVWDFz%Z)?zzL2uxO^eoQZ~8>xdSu@@H23&%iZW_I(AGwB)A!!+xm<=fqn58{
z<m_hfDN4k5(MRP%Vw>)vIk_L-2L%AcYqT@%%lY(1#y?U2gSfD7ag*c3YucY;wyK1d
z&VXP<zd;ot<7Z`jrgzx4pxTX)G=_=eGorub+dzJjWjS&=p}h2#v&@9R8kfw-<C?82
z)vyeg2HC3;9}$)NCN$%LhN!bDZ_L)*(Iilio~>={DwO6Mi+MKA#;uyLQ$M6pXl*rN
zo`isfBdDV*qx}<Oymv<`@AKhe!@H6<KOw8uu$xA+v9b`2)XKKgkRKX6cl;zHw-jAO
zT~oV0oqMXwpI|w^wsVC%vX`^yn76Tb^8KqR<0XCawpo1m{gFHg%H5kza{-1@j%qb}
z?b0XZ40=R}J$jXD){bRK4o-7SiUiM#)UK$Xb+t^U9xYle^fW|v(1|UN$0>j2{L4bJ
zAo^@;06Flrz@d6mvFJrdqpsf2Y3#^w_c#~PgC^{|ij3btA(9no-}~AxJF#s!`3Ooo
zr=3!dcNIc!&S*+`D>Rglgi1+Xu)Il9$A$Wo5|1>Jf~_n$7}rTtiiz8cSC7*!C5^yh
zlLgAZe5}&kwJ9(OX}!l`xcsnfc*u4xF8VaAE;`LBethV2*)(xzPx+rjwNrr^C-l-V
z`nS5t#!ILxXxWSmHD+mbR=jRioLA%`GEHwMsVn-&0!pbZ>~W3u++SjPZYj>;jE*!*
zd5Sn{BGK=020fB8<ogECyh76<E$_deoXT**sJ7@hpbH)Ab#}gWd^Yfyn8(Ti>y1V9
zuYSuY`Snh_;C6AK-cH(vZ|?TeSfm4uBTH3==&<={`ttCb#!}-*6_0?kUY;mA2}J~6
zqcyJa!)#(t^r$B)zjLfel@L<egmHdEAKCYPo^wsv+}VHaIqYL~p5t6(E!i#p)9aII
zWepp<MPnne#ifILA1kvhdzaq>pZh|F2&GxaOtWuW*MV=a-bk!%O-ifz$3sc#^!wpZ
zt6t`#!dQw0dBhIWW4Ia5KL2yJ2yaFhOyS(|ObS)L8^6oEMdzRjCi@k3rRgYi=xZ5^
z@vJPA3~V<V_N#KyPy4wQc&gq<lz9ynr|W+xxtJeEb4hpFHzfOx>cO#nV*IeT?~#d+
zN@9eg*PC)z)mCf^Ex7o#qaZ8R4k;b_nN$um?fX(_<4KOr<O+S_m@Od;Eqi=yk8kVB
z9LY^E7+aIo%vIr`zzg#|qb@^z`U+~0Ku_zd40kJX+6SqM28J2PZ~Eh9WyScl8gISj
zw+vES_sMb}ckA9sD0(<>h<b0Y*mQP1f!c;mW9v{4;2Pcf@IqjKTA#TMh0AvCmis^H
z`srBfsFp+Yuhst4#G538c@Qxyb=RB2%sx6))xOVFR4ov0Z6s!a)gs)9qLf?rx>)pj
zI?cftn$Asxph~B&9OoB_$Y#I7*vyG6<~k2~Tb`__b~i%@+eu9-tKCo;bP!VB+D`q9
zjmEe*<>x$*oG0C}<Lj_VYSw!rgD7X!Cwphj5@_kFj(7H?LrRdDyN;NSfF=X;qlbEe
zJmTJw;5Q<&`da+EtPx>qsQ1i$JLdU0l3zZi?IyFqnBXwfTc{s<f<1KRp)9)DT_HHW
zYvNC8HF5pmIk>o$dc#ZkP169_BDv|7^EEB;%6-U_R{JA#S#IMG4HHun=BvriK7zBS
zI>|#{^p!q4ycQVH2~hi@HAH>d(ZlA%@#OnmeUF^Wm<JCpBi7wZ=p`gy$D3?r$+++_
z!MFUWmVfAv2Hwj%7-N^`bwro9O~3gp92rk^=J0MZ@jD$EL_19L5)mg^_PT&*Kj3Jf
zcLpcd+RllOBL7ZPMUA_!j~;;Sd#2!c6Q$c{{LF4X!;w{s7W+OM`X=k<dnrJ_Ysd67
zFmm-j?AVYuh$io1C&^~I%U2g=^VHG;6N>U%v6_;d!HC`vFEY+NWU<irg!D{+W>;_J
z<Bd#M-c`}+i+S0-(IbmUimZCIVy?Uq!52o_l0&<?>hfSDOlyP!trBj-MCK^eHOmMm
zaS=3=Z?QqE>Bu{Mh{m&HKMnvRuctC=v+ae_>gjp^;@V}QDjRL0fsdU=aeY_E5b9KE
z(hD4{bxa?3#6n0X=Fd!|Zxt<*qwZPmN0oxY!yX0Jz1d10N8mffxsUt42S1FD+uoL^
z$U^7$p{)zE`<m)7dW1(qRI-nY(WR*?+%>A6AB~_#(>RkEwmq#UtetnIcTu>P7BL4~
zrY|SS_v~!fT`DJv9HvWM9+Bxas(&_AZMp)3`cg(j&ZOlhl&eOS4F8%9LX@+rc0~bm
zB|Ym}OxC0x&msv^l|ec%<eRHCL|Dz;2#dj75u}fVcd}8`C&}JUZ1h&0o!2Ljh8}sp
z+Ds)v8Qx78sgmqT+UO;Xb7;jjjt=&(%AMhe^&r}(q`Hpa^f+P(NqlxUJ#;(%KWhP;
zw3VF1?;G{qI=4yQ)*)|qM|7}*3Lf$I$<7zpkh9Ojxo`V9{n~nJm2XvE7jNXKI5et8
z6k*ocu2oRuEH*q#e??8?L8V`eoK&x$%O1jdan0JEOj>@3#yL>dMPYURcA3`^Uc_BY
z;)!h2_7?#$=asay#4@B^le-Qr?8L;Oj<#nMsG*uF7Ah_2lh<uZeg!X`-#mVc#unDw
zI&(brRLiD4`iHJ2eL_qceIP~{R!8$nMEApbB?}5u>@~&O%*Nl0HKYU$28BL)Kdnkb
z=ly!Ll)R~<+n`?{%NG~lPV&&wE*eah*AdG(o+y7o#&-CX-|+bmgTEbnNWIW;8_o_e
z=9_DochKZ>P^yBOiSypHti#$1fz_a*uG&ykm;7N`t@#b-(FE^O`TYV5^Iw<!(|aE2
z5NwCY&)KF6zRp~_F807(D6pw3bW0!ZP{RzZtOER?`@7Vp@iq#*sVqGI97=tu(5KsM
zAoks@j{6*XZ;4YYzAn@BAdK;MW3Mo}@S$6aN4W&GrB`l9t?@qgKpzvEvTaR6othO;
zmi0)~XRdnbk8W-EO*fW*q1+Qbr`0<?tQ&6iJWQ*+_7p1JqTJkkJ^WZA^-sO|WLx3+
zbLeJs1FiDuimvVEbNP#jhNmn9D`<+t4niz;c1Yh;OTDB<zoNW*FDJ-+j68B^WdcgQ
zrt)*eLKdVOp6wlq6RJ4tqW;tTvie{9@kZ@*{*icGOdRBeg0$BpjH0e^Paz)9l$c+8
zmF>{z(KrEjhL)P{@WxDBIkUXqJv+}98}+AZuiZ7`)TP;@E8k_Y`gOdN<&;fa(-+Zk
z9!>&Ix+0mfW?}&1dYZi;+&&e(|8g#aw83zQ^vM{l(yR}jnf1@i_vJTPPj{tMNZaK$
zyJ+_KdYk8iI%TgMvgp7OM7h#Jew1`$M;M)hH*egOT$SgdI7L2x-t$p4=HS;S3rM24
zaalOOSKhkAf#W|sPncteCq)sbd5CXd_M<ofqq;wmZHamK@2wAT@k2dH+qsv7NwR;k
z<iOd7w5YWf3Cz6f+mXU>?K@5)ABc9&>mv-<zJ^BFk&-{s=#q2K+3+Y!N0Jv>%YxPs
zb~RLQE_G;2;vCmkh_^plt7{2$%AgiLr$R|aOHpOu0w-pSFZec4e9*khln7%yk5gP|
zojznsQLDiA{kZOC?0b3T(%~bHJ)glzm@v4U6Pwqz%*J7<oj2q2ckaU7JUl07s>TE2
zYA4x(d;9;g&L>JPq7;|-9B-N~rJgz$Rz0?V5St{bDlNz1hU>z;I?pq<dip4u735(}
z=RarepwG@g(X{hWITIOSxfuC7iCxhhQBD(+%B2q07v>E`g)Cx8BqamVRTR!}x;D+y
z!u@I2_PChuSiJQtZr0SYr+VB)Wwz4DBSN9?v#UI=w7M&eD}Y{eL+q83zVqW2$G@F!
z7R0BXnzePFrDFAk2CsTCb9N>Z^o0V@m{r)vO@X0DVbc9Qc5lM9c|+SZBZkS9ZKB-m
z>#7PC^u?4@gUY&n#~ab-8w$HJmCM^}wr62^Yc3r&H?)J2rP1yZxidGNfK3Z#CPdL1
z;#`LQPGv8*aE8^=m|v73uRNc9n6G<;a<4KeHt0OqABzC5SlOO(bf4Y(N^QND?T=K;
z0IRqO*%J__Hl0o+$3Wm$ufLf1y>!8xJ!opq4edU?#-Ea1{>zh0o>jYj2!i|y6i9Zv
z>w}21cwsr!o4W&stYbos|9IL!0u9J^#Es?EGQ;9Lt86$}AE@C<UvUEXTvX}|vCEwG
zAzJmS>!yP#j)AHR!~Z(Uto{Cv+RRS9u`!2mWa~hE-eGRy%6>-z0`Xbuymh`tbU5W*
z2WyQFfAVR#lH~Be>%la7JSzoPBxHwq{}YO>8?5<|-&@gn){Nlq?UvSYP|$yG5t1>i
z`PSc?nK66N<A_@C$-Sc8-Ca_uti9d1D}6t=%0si(IDx2vGF!U$_V#u!FE1~n8lEH;
z=r>Q8MX58ldt1FG@VK*T2A!$WQGC3-FKrtFJdNu&sHSR!;Wsy;ia$-QeEGfKS8wH?
z(IR`txT3_>wr7&MpLFqQcm-|jR}H1@24CgR3i`w;ZgZ;nCAP^;`PJxlhlO}f)g$te
zMa0=XV>2^(EI2E2iCDKh63ZuBHlGrBjG=XGqwVA<KST#GxnntxroUdct@oQpyJS52
z8r#b6+g0}6(;Dm1?mbj85<SUS3JeTi@6%Qv$9fXq%+AgpaB_00z2Y?%v_6LOrH=;?
zJ?pUU!(NVIO?fw8hSZmol-y+QF=W@R>-;*R>cE%m&VZ&*1Wtx)<0z)a#);;}#>WFj
zP6iNDqs^NjRlUVR3AxK7I?$>~=G~f&6h6vslcYmtM8}t6*@{W^)%dEas?%o_ygaBo
z<Z}C=N{3eD#G_UL&#^V`+~z~Mf+Hs!Unl8@W=W;sydaY5Y<P``n=k%)^c1SP_2Y@@
zbe%tCbfcrZd9VJ)RsIPElDUaQT30!?&o%@u3s!_~F72~NY|p-({`#`vjeRqMSz_P3
zx3g8l*x4ZZ{dyCHfO${gscMY%{?mwsRKx9+J9c(n93IzkWk({$))qKUyeTcmKOpVH
z2&0>F!s)brkwhINz0#jN6x;gZlpNk`yx#t%aN;-5y77QcbNlewtJf8x_k^QE%(PN)
zs^wk&`)_T7%wmIijlIt&50|TB4PIYa4*2!$p7tWvNS#shmGD-tHyLA`cXOOJlVsH6
zIb1g0^XbzkoqPB0VJxei8<5+b_GRI#Eqn#xyQ{56S7({T$-RI`=+RTK8N3<!q~^9x
zFE~baw5Bk_yK!U4$j6osf}R@WhQ?x>7L-8BJejw6Y$i(No0*-x{bkS2#Kc6+u`NNi
zz$hEh0KIKyHlx1sVLxSzP|$DBZW-^9)4ea^3u`2OC_ixI<iKeqzX#0(0->g<Htsm?
zN8}M_I-_+eD|Bfa2el2~7%Xq~ey!y1#sfe6^g8d2C@x!yIP>1;XW?r1zeE#)sdJfi
zuKoG#QT#q_S&sb&jnyD#H$}ALRF>YR*)0f5B=pI&w6rLLSW<JdA*JT(2^U5~AUXz?
zmX_~~vend?bFaNmA53wf(<o``^u_AsE%<9M`)?piD59dG<T_7cz^{UA#Hbm8t$;z8
zmyImpfaLhxWtS}~X;^Ne4{TFO+0|fB3hq<w2?J@4oGOqxbH(HQ?qYRs{omK$#7LFn
z*E+W-AX~WfOrR&)rKF`dHkza^TzKKP_<fb413gi{IT32Qb5b>Wt@w5^%@GXA_jf-=
zS{V`*Jigz0Alq}x&aTNQ=Pe$u;@5AW;D2@DU0zwaao*R-&r>UZr(bqg8>;swlcSEF
z8FD3JJ>z`cx-%53myD1*{ZwwnnFQq{hYx2-NJ^e2mRMFFPXpOH|N4rjkL}q9b6sfv
z(Dh%BKs1joxA*oU^FuZk9OBe=e%-5^M1)!wFdX=rEt|rEH$WEJnw8r%(y3HxcCmT+
z1cQ_n>LpZg;JF}jclG4d!=Rrryi)Z#1fji^DCPTng;&?V-SDp6GzfSUZPsCQr--!w
zovvW$Vr6HljBSYXt?-Y#+tgkhwMW?qUMu)~=dt5#RcWu5vh21ynNj187!4T>c4?P6
zUl%|b&7Eir&2|_h<4`D6RPWX47yF9ulu8=<skGbiRL+)KROW7#RQD(~gA7NqE@Cd>
z1{Y2)dfH%i*Uo?NcER7Dr=Hik4TcO*c4~X=$wQ^(@so3#NYs;&UwwJj`q^sX8WGu?
zA^NW_P7Nb^d~bz6mX?*3{fU*%+!JmK!Hn*0&CB9PGaRXUZ&lMUAW`wndmH7YMyeYF
z*EYz*&2>3Bcf*X0`@ZKJyq@qGaZ2;|ClBw|JT4qM3dy(_$#;7wUVYEvEZl!osQ6$(
zX2u;mr^)d0@+_n=0K=yUg8IgQskW|3wR5+cq>M~i^dw@`wZO9qDR}X&Mz*<Ku#@gp
z{s4w{dpFu83-@4ecRSo3$=K+>`SNt_#Sy=2$wJRH*LbA8e$+IA3>g5aaK^mcZd{SJ
zk*OSb#Rli&^f^V!JgdrMr0Tghe)Vf?C6NxAO`lD(Z&HzI$Ymkh=l74Ml`dFTVFsgw
z5Ld4>;rAHy%?y>`wetJ+AYY}eD(`EhS$j9uc5basPcpZr<Aq)@lt*H9@w;oCtw#lv
z)<3bTiMQESs<d@_<IY0yllZGYqnmu^x^NN!X7*ZIEo!a&&o!?n>Og6myRX7|WVjOD
zw%b>H)gp>8csyPM<%PpONta)FaY|HvenWP>hkm9OU~97afcOH3Nn$ZpjYz@Il$UN2
z%eGy~uB1%S>YTBGLeuzdiZ?QpT4vj@Fhaz7Pfi34m00rCcoJzPEwOy|<eFpmiiR~8
zCpXgF%WxH}+R}xsQ72<U5ZdvAs-Qwys#{_`MotxE28>>oGA|3ec!l!q%?)K)%c_~K
zpFe*}gE7A3usXZV$ey{2b!d%agDd6Uyv)FMPq~s5!looCh0!w%5D*EZ@kveliU)nU
zR$ve+o1y9hDD`9R_RS2fTN^qXjH$Zjhwi>6?XoE}8`Qx+{`y89G`APvx1SrWbtkG)
zyW}W#K~qonsH9$II5<Gy*TKuPS1u0L?~CBMxsuya+=nkby}6h=l(*L|o_{+E=Svcl
zfR|d;T20k}+G50f1Ca2D=={d8eRB;+4TlgguBQY7$NHT6a<$?_-ezR@5#VP;UAxmS
z3z!tz-<qYb4ma=BZY&HIEA##NXYzz^uWDTwV`DgNX}lru1C2tI%>sRz&?(!zI|U9H
zF7(>DE#X|jsL+z3I%A!Qr!O^_kHoUGO1rsDD5ZAuvMXWc^;Xq077ne=v^PthKmR?L
zQae0R2U71N=uCkMR#g)MDDZk=sFXekPHnURh{d*{e>m6=VF@nB)8XrjQ%&x}Wse&I
zD5tLmEPg*j9w@91AoXM(4W%tA3I_~~ULLlo7CZ5LT^#`79GqYqIDQ!xkQj6H%#|@z
z2Tr$kSCgPBq;cD4&$3&7>(d=q)ltFQt%2JBWz5WKu@gqWQRc~mVG~z(R}v$1>M37Y
ziERVz*>fIoE@G|w@COh8?w}<c31MwwQq=^KW(d@h5aY1Z&5UNp9#1&D{VO0n;}xJ>
z$AWUr^loO*xaawwOj4CydNP`aODui+N!dt5N6xh;^~7?c*H=pSc#KpYJ%KW&g_v8u
zNn!>aV;x*OR*HYg7v0Ixv*t(9MEKW`R{irwboKP8U*m<4LA_b3Oep-a+ram*asT1c
zb=~PY7F$6~2qEZ46bfh3+(PY|5ey2StzX|O3Df*P7<=?(*~)mzd_i{8-pXfgd%Q2H
z=b1}(IPF$l{aeDpgX6=Ht5;VIjvb5WRcG$%z?F7><qg+U<N!f21_Ta=0J)()(ij>@
zIVI=3o_)#T+08iq!ra_k3P2LXG&nrd8}vgRZgw>(d)KiTnv#+-I9hS<#+zY|C;G|D
zt@vQ7l`bKel)1TRpfJ9UW`uwvb~gCUSJmpJ$y7URPF6YT?U@>>`oDzQ28=kxzYtPK
z+*zb?2`DWFZB0d~N6Wf^+@ER{LWaG9vS6f{KGKVzWj2;#Fqqwi;&MA*+K5a1gORFP
z(`7u>kO{a>;|X<hOTf&kLCsXJ0flM+;kokTqkSNtZSmRy{sT#`6};7a2HqK$KI0Z@
z>Q%?Rx%KWkYK=<mKP@m@7bbo!gB#MWmoKDq=e9f9)RQEN^bEg6NzcZn2B`Uibg-+t
z-x8zj4xqxTIiOuMtz@#=rI+!9gIll`jP~k|&dzMCHkwXhdTMEDS*J-`U#YtG<ltj|
z2PIM+XiliOLHatWDV(l$<=&^iCo_C|6g%nb^VDuFK3jR%iRUv%|GId0T{O+6YNB}e
zY&ox^k!1KsZK3e>{)bn`ZtP4(cQcPRxsBG$|12~u*psF)rlFuPWrl2pBUy!Mt6g@4
z7Pk1kvihgJl!Syt^EyFq*cL!ZAYczGiI?4n{H$so7?;KgD0{_EDhyt^nDP&%u<iR^
z<Jx~5HBjZ$DeXm<cO_sv02*wn0TMKv9Wd%DJ5XXtMT*=CSe~$DT|Hk$*jl^M-p+7y
zK&H1aEgLJUmx_@;Efu}Scrf;Ul^az9;*{FH$OO43WD9t@ePhVRa(2i<A%@u=3Sc6B
zv?0*j7!+XAm%XG@#Vqa_uQ>N=1QZ4N;I$dX(iEBSwo|H72;(7bRkKwI5L#A;(9C2k
zn<kZ-7DZlAkEZTB8{EFWzrD!KGrZ_`LEtX3?R2t6UaY0E27+V3kAW6Gd%Pj6zqrJ@
zZV74Xunjt<F?4e;@YY9L2?mu2h*<ZHXMb$JhS~<trqpEx{d_*`G1=4z2SSRZzB%UW
zEiS1(%uM=_ZANFK2kd>%al3bKss|LtEuq!AJ!N=7vrd5^Vp0gPb42zUDXj!li5L*w
zo>XAz=3m8@7GfVm5@c?!fB;v!7*#@Vm)ogMam0e0C_N+p;9E14;STuLQ`3BXR~BjS
zp9o!Utd^3L{FJ91-}J_%H|uxzotf_ciui18Wwk(Nyf)lM?9Lk@t*(OoGxbt0C|27w
zhLnZ?JS_E|Z0hV)-5h%fuyy=QGm}Fo?BU-~0Q`@rCTL|JKo_K;uCpB}1#=`)AZp{l
z9q5V5<?18wzHJfnG8;>KLi%?Vz!_+j)_VZ<nCsmNlLLTLT8Ud1m>sZ093$=5STmXD
zI8pfj5^(_~zwbZRLx7Ng{(1Perf?!2h){-i930>zCE3)FbNzed)n;&6SqcCbr`3V_
zT#~v|^2@}=2Jb{$9N`xC4a4nav+rRDd^O&ah@GD;vD$jhG9y~CCkOejczjm`2u2C~
zcz{o3>+2bB8{av!ONgQQF-<_S|7Q>Id5_k(ZY%>fUItKxvh|r;oxdq?dBTl$h5jAn
zt!b}>XOZVw2qyM8UITLY@L^q1*Wof-3F)qW3_Pjo+>K{pilBL<2>@J^K*FTx5yk^2
z$BC}Y@3^6u*x3HP0?|Q`<3P<WajR|p812baHrk$w5=uABQrR|V0RiaZM$Ycn3e0I%
z#T5%+mRi@P>X<w^c$8mz|NHHwhUEpFIib$AwY6OE6Uq9CiHQj#ACI%ee{h|s|N8Pw
zLtHY8GY9ILxVpMh%ob8&&USMD41?%oO(H(P|2r~S$q;v*6lTgwO8PXmT>bMfh405Y
zkx6tLE^8zjDJfjboKy?n>8eI9fx$H3=>4X5g9%*`PiZ<UE4z$bPJDQke}15_pQh+L
zr~jZozq<sqWLHlHH?yO;Ogy`DM15n0zPHkEAH=EDYyqxdVFK`d@qD0_R$hBIDYEqW
zvv8Y7t#f~23~G<ENBCU=6nA3t2w$;>dx$CL(s<$u*LkCtr!VigfuSB%YS&m_HmSnm
z3_^xir~WQHa`M8j2IuZ{tRdawd&Ly8Zk5&b&A2Q=qW(6@%-DEpD}D}84;$t_z{Ebs
zZB8PY^8(5NDhf^=$v688jJ#KSl$SGV+y;x1wBz`LclBf&<u^d5hv}kpb#<|Ngt_k5
z0?kJQO#!3M9D20t0%T5a0cwcGO6`Y4EKrLJC^L|PgGLi0GAv9n6BSvqe>Yl7Xy{-4
z93S420zJ^r{oQAL$fZ6rZMSygTCF?I1CY*f7M27De~h!{{JAS*Rr7A>opGL54H8K%
zt&_<D2pS4#b0Gf+pA^6kGp*u)-FNoQ*)*jz$>J4thU>BLkM8A-G)Ev`3>iRn#x;@4
z8b)96E3TQ=h0BfD2Mvm3ZfX}Xw6N49mNFkiU%dCp8#+${Hja9E)6N37lHae2MpjLs
z8277&tiOK<$P&Y}oeu(g4grGn;L+0_Nf?6v8MAtsDP}udLPmzhD*^W3h+#>9wGo$W
z0U6h($u-b14F;%BQx(&ZhXJnL^Mp%YxG=Wla{Q@ZhwS<D=cT2jidQLhlP4A5+P;5y
z@6#-aRRGi;{`hcoKL^*?S=S{XB^UfCqyFoko*oI6wy3!4Q(%~h4O|#-?IxEuml*-4
zX$GXZ3#!qe+O)vXJ>M|12-J&=3+=-kmB7lWdx<g1z;?g7H2oLcZ34ed@|t(>(xZxw
zuQ?oe1Vlm3`}aY_p;BvZ`f>xAt+Rj0-sHHM`q|mC(%w7Dvgj+4gIKk90n(YQBJI0N
zW1>rpK)J1{kzWQ{@U*d=o!tOPTNhCJ_qu`1^L`J6iZ&3F8}*t;CJqFb^8W%=vC;t5
zL~PVfYTmh$paN8~uAZ*0iQw@wn)csvwPJ+;1Kr7HQ6VJD$5Hf|X?s0J>vlv=-Htyy
zn(auB)t@B|X0c2IPv|_50LW>U-zHxW-n8{I_GICJEblz+GK9;JJ;>Neb*)XrcVW1^
znF?^KSWpuY92{H^+GI;oruuY96qFzU1Fiw`J8w6&8OV$kP!xu3QC78Xvlj8dV-OOC
zYx6()a-w;5OPZy0S^d%fW0JYIc?q!4@#SU`kY^isvrZMD29W1vWcCmM<2G20Lm6f&
zc{bBV-Oa}U!p$lNE_qz^`}HkpZ*Q}?IZfXV6eH`swB}u>Wmdc!mg>od>sGGB?k==k
zFP+7?JOT2l)dd5Mh5c1pH&L&F>H+*Qcy+$$cJUoaILk~B@Jwo7%VcNu+}%%qb0R}`
z<_qGBbsWCjF4@^2FXI_BB40teOf=#{Dv)y46g(8DxF>EvCfC+b(O{KcZ?a#nH&A3U
zBluw7&KumS>q(%R;!kr$i2$~hwc0M8?Wazu=`XXy`OH4Cn}348!{x`y#R`A}*5)M^
zeP`dPfYQFF1&2SMjsTT;;{Z6wHzcvndy+|CZuVaN!ehk0`g(GA?nnUx_ItGPP~xqT
z$NdoPHKez1-#$epXJ;>OX?1}?I`j}QSMhvPb@6K(tS;>O7%N!}IA|E4kwS4S)_N=+
zSVTQa(=X)0N)d<_Uh@(ZMz(1y*TL0w9<f}!I^8NX!LnfyO!}mddic(I2(U!AC)1=r
zO3DPSwTr(7<S=9g=&Un(gtkPH0;Lq{khQmeG6t0PZuncowd6@~J%OV0VAL{LU0y3G
zC3OToNBf*)s5D;%2GhEqWCJMwF5G`z{Luvj%6tN=1bM4f&32}lFON5D;y?x$2_1ea
z37Eq6OX%eX-|qGTNwOyc|4lVOjU=&9ELAmd7`QhvNLEvkpxW+Uz-9m}S;Vb%NC|<v
z0|bK|S#kua2Fm1UKt0O>0V$a_7Bu}*AYNsyZBlWt7Kr#?U<@=<?U_5~Nnq&T0vY~*
zfPotT(0WJ*9!@Mk9r`Rw7+8kY-zl{Umw?MQuAB4%Wb1e|V-4F)U52v2_yFJ`lQ5wC
zG<F_?F!r7X8t8h#?Q$OY05?Y1+%p_I8r*JgEo9a(S5T^YjJOSi{_r1BpLu{C_668m
zxWq|^!!eV4>WS7~xVM?%8MMop9^t!LldONo!MF<aVi7tpuy+RqU#ftSB<?;~RJ%&;
zRabZVmUC^qv18M>bW3$;|HtU#BB=)kxmhx0=*Pz=%{0^aoSjGjBNUart?9{RO!Mxn
z?2|DXm1vK#=5Ai*R%blrQ{NWt&)WRe=THj`2cjn2t7&_VD*#y!>Q3a;=cqsx<}Q_)
zuFo*xHM8IU<Hwgnc4r|5>GBfp0H-r}rSABhQV#H-7MC}LWZzEi?CAK!B7DB>C{Y)d
z2VS<#G8MsbCPA2%yH|-F9Ua$WPf9Pyz&}TE+o$U?BF{5{RI|Sb2>orA^jQPcX}9yG
z!o**%Wncipo0(+LNB&{;FV84ku>tVD3><!3YA8^d<9wmTKl_1eyaX5txp8~$HJ?$Y
z(gq(uaE4Y`Iu9t|&8y`vLFguc(c`v9pJWQcKyE(<Wm)K#SytnRTX<l_k#WF2q?7pU
z!&YyweyI@wjjF@%?T`bN#$h3!k1F6dKOK>^!2udz2yzxF_UB=(>u+wgoQvYG3IonL
zGC*}Dq9ZVAX&aJ&*JNl^fm{Dvs{g6QEO&5pe{E(R-{GPQb^C$tYBV!5JAbK_;`X1l
z00Gx9W?PEQz)O+E0h@w(7S64*@__<KnM`fnV5xQBGU#h$=wuTxHCQFKN0F2<J4BhG
zulkl^d`k}91RfxC92g?9>kEVA0^mkaRtS2s0)%q=W`jy%KX8HHMP+YBP40bqnZ1j0
z?FAHYcLR_{RhO0+UR&TCWE}@WqE{`LHO*lOrUr%)tQio4{H*rFMdkY*KD^H^dn^Ia
zsqF*s5Ma88ws<%EjFD<ehdFh81AJz^@`~pu-WrtDa$vXyMqPiS1Eg8AdtYu#<m3Gu
zYLz~-9i7XKn|7_%Pk>VF6WLrGG0g*H*_2CtcP05w3|H<hOO^n9W)%LOlmJ@DJYaMh
zIFT=h?Ls|&0pjAU{5BL2m#ppn>^;9$PVtP3wV+bCQ`gpL&puD7f)mnzzL4wL>OBK&
z!`ICWinq|$g3#%g3U(Q+W&#<%AzF-&iHwZQj1ma=PGB``^=GWC;X_Gp;Qx3dRz7l=
z)8_k0^B|dIJ9~R4Gt<({?Z70Dw{@-C<>jhQnNY`%kq4T6bXgt@LLRxd>#h{IwCe_Z
zpew8_2Zrwk(2yYkgGIN8vw-@Hi$w#g-HH6=IZsrrYyaFhu#k{^z*hv*V^ca%6d~;a
zqH`0~1JdSnIpVA(U~SdoJ$ieiJATB=>YkLx-+Rg}tMi{hpMnc4$nfddEKGeZfuJ+>
z;j_D`si|`tOXGAS)*Kb<v~$2S9FcuL%o=C^O)-9zLGeoQ3?Hr%iEh$BA!yav;lqF~
zaD%(Dkh{}btH1N3NV|w)q{Mj21JHn&C2L#1KE;{{c*AniQb8E9va{`hZ0T<S@&Vxp
zVvY0yWEipkKH(o!Fq3F1ZT%>E;yJ&p1V!<%RNiMU<;5Z3+X^)}wxc?MO;sn?hUW&o
zZ4IjSu-DY5r{(}MFMYf1!yN!>*O^t|1P1;k=iIfz5;$n`4&+@ufx_{CEEk1E*t2k}
zHwYBza*+DIUmF3?my_z%F1|P9{sX<Me>blg@-PAoO2@BF!Uq6Q8bD9Bnxg!GKUg5I
zZX*mZ+wC(@oVDaJ9QDt=$NM8Xq%si^Siuqbz@;%m0R5pry)*8Vk=ghkz&6kyZX)+V
zqO~LV4t?V_w^`k&Y!#&U5WSnnk=tvtgHJjFzgOHdpCOT!vw-PLy*A4UIb^5AfOx7_
zy)7xZz~V)Qphwcbvjm&XFvrzzjtg>+U+%F%j>Y3_d}N`8>6iu7Csc<h1+|`s!SIb}
z%&xAs3aQJ?ub!pafUh=Qo8y4A@i+f-%!-POCU$lRco}&ge;aJ|znZ5&zYcB|T9BS+
zgHu##wvzJ);LMcu$C#KG!@qA?VLi>^qp<ske_U7H`zX3j!!>Z5(q5jVTGgh8o#WAe
zrgSClCDzJc;_wdm8~QS3J!b4l15q^GK~>pR*tH6SeBONK->KhAS~sw}T7)03CKYt+
zjR^8^`?fCJ8D&WYsGPXBFI+vvFG)Yb9JQloB|iU5|IXFVLv8HU|4h9<d`LurXG%Qh
z7vsU#3W3`)@>63};0mp?{VE@n{&Nc%{|htu^RJgAi}LQT)ysANXCfNHi7$9?i}p>P
z>h@RC@F#idfA)t~+~~{kI2M~X5}a}%;om9j2+0f45hD1OgZE7{Llx{6C&{h<^^IFC
z$A5I=(U;VLHEid3ACZ;f{GSI}M6j2AYogAb-03RNAkZ%b+w$sA{=IBSSrJ_Fw*18g
z9l|Avxjrib$7tZ*_`<%S-z%;`gn9o255C|!F%IpH4)uJAAwj#-YK#foD4I@3nwhqV
z13XjI_Cn!pn^8MdzEfHKzlV*m2!~Q``~6v#t&PJRskVLepZCqo2^3U-RP6^ZG^RoH
zavLJ$-{lKtcl7%b&K!VI7qZ0WE#TU^Zjy5L%kiioxRrz}4l^?3Yia2AUk~p1=Wr2s
zf!b|<e~kd{>SAk?x*!+14TJOSZ{r3ZzmpV9+E(AvSSiJ1q3(n(`j%mk9b<(SgOo(S
zJWM67><|R9%9{2x<J=HUVb35H{=OkE;)xy-e%aUddBi}nUkrXfzR~|~sfbS*>xm$e
z=h*N%Uk|~N#ur6`mJ|JI@yz3_Rc%}r*@onT9sgJ#+oO{R-_FpGd!uP^pzaOS`+gj;
za;mtA-q=wl`)x0~km^rEAn%1gSZ{#!zyqhLRTfJ<5o`A<uY$wy54hdwH7`AV09W?R
z`@nW#_quuMMVq(rb??t-kR`#ROrAr$2jxtixvZZnCjS$)h$mLZ>R7iK{@#2d{+ERe
z{{}WE=04X%m-~r_2=>{3-_jBO@cO8|Wc_*2nBN=wv%Z{vU*6KX6sgdVs#l~V7mvMW
z#=1VRX$)#dC{R=N+*}x8kr;wJRf@+{?Vpbz$4uoNKPz8SSLnVi`tMu(L5EhHC+L^d
z>)I{B&HleP{)eph2(Pl0XG_4{_P;l-tL#B?%dxMrd)xlocP$*HsaW`eHv_K_v0HQ?
z;opTH5&I$gCYUbEJ)cFD$syiIrSVL~bNj_KUY+~n`Ps8`2hg*J4zuM73xB$IEaTXz
zIF29zu9(RENf8-OLOyUF54z2+_(vp%me_G&PO%r~{y2B;+<tWbG+q04S(&`*;&`K*
zd3ob9y?$Y|*=nQ2g{c(kR6s2)$f|`+DE+V@9?SrDRYM?uU9y({-SQX7|12xHi(&s~
zD2s^xv!LWJiG9CUlYG$O{O4ZJo4WrzW9Fg>+wbuhk$B>tr_22BdWhP4eMc`IZoSRz
z^-6(#=^|sH8?2OBvK{y7Gx%d>eZe=@iw$BC%8tL#;$GBxRE1=FFpC=!@d)R;F{Pz&
zDMzn}r>Hd6iydNN&Dw{YZ$Hd^ad<qv<fp1j1P+9-oTuoDV7Qq=eWyh1l2daS^?$VY
z=21;$>%J&zsoSz)t6LEfD9Zqa(x^d@Hd;0q=~O!D1q2ib2pF0`2x=9Sg@6^1zOw^K
z0-;TSBm_ml&_#t1AS8fvk^q5(&;*jaMcikfecpI)j5qFh_l|MTd+V=^wdR`5*Z#im
zo0+Rc=ENeZGsk6kfR@dF?whavhs+GQYxIE4X3mLixj^T8P1h&2;H6U*zMo+;S&GOR
z8Vo32e1<6~1Z5zv$));#J2L+-mKU}DJ>{vmKHWySVIOHeHsayZ=A2eh=wVK1T+nO9
z;R~IR<&7ncF9vT=NR6`gT42MOg2I!xiI<Ej6U|By1A3{l8zRhI<UJ8^vP?ni5eM`8
z;+14BltE~?|GjPE0rH8lDHgomO|+eHtW>1FG&?%iU3g8>dJZXP(lO1E0_riWGu=!U
zF6!heVfC%kBrb3kx3rWFxmhrDo0KSG%wm@5oeNkSLabcV`c7`*ubX33W%+d6+$YdH
z(guE2RK?Ba!oa>wc<2fVCO%tATiR8WowNLxe3YQvgea-n8GFdfK?7l2MEWzbV^mH&
z(my>9GaJn7>@S#-Z~f}~3Fw%OEU`c;;for2glT;5iUA?NiFJKr+~(X$Ko4-6jEc(e
zLmzm|xy5y^dFL6^rB}$gJF9AaxBV9W9{RVTFtI3m(<I=u6P|^qaerq#-#O>|w>+$p
zv%2g3W6je2^WDRfk?R64XV~zx2u_M_5@vg(up4FNx&vdmGn>p_x$QFB*go6Y(}T6t
zX?(oNqcB0qX)7=@WQBO{E;0`O*%m*1r*w*RxCUEQG$8BCoC&}{%KHGFqC2HkSeQ4v
z1Fu)!=yR5I(u{a(p@^9mu>%3>P2b!o>ofRg)_-%_EjvvgwjA6$FTEw2GNnjI3JM|B
z;$cz_Zxk$|&Z2^>BH<$GgGuq*X(qe;25>+@!j`^*R15O<g0mct?fS!H>{{a%-$~6N
z;j$4}B*WPj#Kb3YMLlAa4Ydj5!N<pbU0ml$X0Pp*qn9xdz-3ffcV1tT(LnA<K3B*H
zz`o4GwIXfn?wU;Ib7L6G*6Q@~?()>!?g$rA(}8KV4U(U|HSoe)N^n%f+J;&d$LHlR
ziB4(d6=j7E5=Zzwk!ftUP%C$cEC+TsTW}*D$^i~h6&6*=W2FWz1#Y4eE_K$s(8gwI
z6iIKEd>6ReTlwv)?r=IFFZEnE#s|`&<!UY-tL3m<p8BS{!r~g`CGD!$#^?&0_?z7g
z0n-vQ8<V_o1fGJzf7tqG|Ltsj;*ZfXj0voHRld&t<ma0Q)Ug&$1zr*#_|UoUAhc5D
z0>0k-Il>VhCL(Y-5i4>gDHyn~Ai_m2xZE7yG>nD2$4$u%`1-kFxqD1V+!;-EmmuIT
zxo;V3{+^~y2tQF5R~@sqXXU#E=)*mK)ThgUI1Ud3%06YVBND$n&wbS6OD}Ko9pP^v
zH-$?7&Ipa!ON<kk{n#FiQ5QKfSoB4cWke<+&eg@IQsi^SnVhI{d`IApG3=Zyo$WB)
zIWdywjO`dJ%#@>%%Y#CBqsyVMm)}udh-<h@HV-*2md;drV2MF+Ss?qWp&VA6)I6a&
z9}?X5CmX_Usb6!Dxfi&w{paK-IVe2&lz2dFK`bxyG$)xvmohCJB$w0AEic)GG%aOJ
z2bDS%;X^*(_R~+UsxT?@=KTF^V1ltiLfvRFcQQG|=cg>^EZs)HGCCE-Y$GQ*rs3kt
zq1Q}#T<$U!Qqi4f9PcFR)dc>tgdrI=tPX}6?D)gw3FJ+D*oZOz<b0e$Ggqj{P}FOD
z{2(|)pk0@yzhSzavYv0@z!@I7zdf*<W;w^j*NeNj5=N$Zr|_BP=zK%ZRGMuw=}Lg%
zstZp2R)sI%b|rlZ5t|gSEH-wJ#aw@%YV8-(<lO<n1J1RxjW#M+`wcj9vhw+6jxVOo
zi8@F`J((NizGkR9dU>?wd*zgclD*hfRB5#M(7O|u0LS4&cPtccJtMLBGXL%Bv7Iki
z{Q*U>3|`~>7FpvrLj{GKuL0@O4-Vf_=b|1|UH5J+Hx2}AAn-%&<vhU-d~!1g4y<-v
zhO_T&oohlYDgft60vGP;g{@?Dyr(;bh;%C_nTD#|lb^Vd;OO@zVcB9!mmKFd?@L*Z
zd@p|?Xz1FBXr?ngyD!TTMR+e%^I}K4%Dn6RisR+aohZPfVjb}LebmM$LR*}tVY!SV
z{&Y@$)Pw>KaRK&u{*N57N5@&dIaqXTJ6G-&ZrL0<K7t&vmi+FQzx+C9FlA8QS*ABI
ziBz!25on#8BhGk$kQ<nr`+>!#<&+V1$H=o_QOdS|>x6Qz#NxK{6fD0?U;T|df=f8F
z(aSNghz9gx2o_oX`<Rlp9C21w7$+ityS%4Yu20RmCmovC0GqoXlcYPE&&L*82-j`4
zh~#FrQghdVdCwb^JCm!X*er)OzRye;V<&c*ek9ff{`TBI)ntdtwtU_t#szFo3B3q{
z%=bcK2Az=3@GrJg$QOvW2}t?sa62xPkCYF(v+)RtZCj|T<Xk#TC2~*H@HKV-Le2$+
zj+3{W-RjB^fq?tPa4{ZF8Un?G1=vyt=I-wi2r$|4gS%_GE8_2p&%Q80Al3zus^afc
zwHE#u9pLfonw$!^?p+A|EFZS{$G!h&EIe7aoo|Cp$L2XF>5Y+@^itK0mI;i2Zwbq5
z7^Wj}xJ|hAJLI-90LG)bQ>aMAsPD{3eC{;Qc`l~pOer~09VM~wOLfR%{&%_Qy|#(3
z-`T5<o%4bnz7rxJKhpb+?qM|(dx*xUe38vVyARBB0!ySr=OVsOd^;eMUPWcZJqB9x
zH)1y!vXmqK_+U~V8r@O^_&<Esei&73ET2RFBS7d-c<Fst85F+qpQdyx*%9I)fx*+c
z=?sr;`SP?wLP7AMJB3DeQzky*^;Cv3<28fo=&T!7sIK~^h%s`R@tD!beaLl7hRJQ!
z*-rq&EgA>wlgHYe6ji^);<oZI>Sgix##viDl7O%kp`04EH>Nq#yg{0o!J`aPX__<N
zdq~XXV`TVH#i*d_<KhBF(ZrP8!x;?y$a%RfH{eWTl&RAx8C$KD@(R&w+t!UCIG1)G
ziS-fXOao`aDk$9AtrDp54Zg+P>19$^uZ)~`O3RUICS0$xSpr+siMzS;+-G1swcaGY
zS#5(133~<CWvj8x){<xJC##Qh#HtK^2WR>bQVAkb)R*H6F}xDB(Qose9nn+#Jz&up
zlCp3MShRELBop7+3n9~0<<!K!yB0e?H<Q6VW#feByfz6&tbfcoMa1kW?DM))&729W
z4J+|vR><<Bipn6=q=xRCGJXTZMz^N`(`MMIvU#~M-u!k#!z~oM2J!wy-l2~g4E4G-
zBecTV`GRZauT@b|YBjnH71HRi*CvJRM}Tb|!%{J7)xT9O-xXvvVJr;?a&Mgx`@orU
zD5lqX#Kb<7)8g(H!1Z0O!B4EDaND*Q3cI(^x37KOZL`$isjC+#Fg=tI2CQ>^BOEey
zhBSQB1PnLn=oZd?4Be@%^9U)pbgG7PgMxv6Tjg@qT???$vMSY0{0ms>(1+|a2brI%
z`p{hHStHWnmG$$DZn<9gZrldqQ*>CybRWK@*Y9QN#GXk~8%#Wwdh@>i+6+1kRegeP
zOys`VO5EHmHLm9N$HqBZ7Q~S*EmzYkR>i9xi*M61WO|zvaDM;-3b%0@@l>B|Dn*2+
z|2^E^XqP6Q_!@Ct)UL@olkbEKE{@*=LOGj9xl&&s+~5<ozET`8zcPka6qu>HVV@Wy
z`{D@V@&}V9CD3Nl-Qv|-RQAlM;_RpW)QuRe#s;W>A)9wLAHO$aJ~!B<M#xZnubQp5
zx-!k&4rnhf;dw}PBwlk9j4{n<aU1-xC#tJAP3=wAmaZf$-Wu36%jdJ4!Q=+<U~T-R
z^yat#9ww{X48=<@m+R#*13(Sm=ZKZr_wfDZt6Xd3@B@VLr(k}fQJ6_NbVXt{dvk%@
zK<g^hdowqDd+pEt0o|*qnrjCj_r>c$<ugBeZb;vV!bUgEIpW0vPgYM;V@*^nm35AC
z<d5!eiAPuV+7L?WYfVUEistBS=$Rd{C>*pu)&}kf_ZHPpH{|6F6^F2{8tmEV=}3Lz
z;G^X}u&8eBY}@lKi(x;lC2O7t9d=SRk65?uX{(r7r;i6Q9<iz><kqM%ad+LrsHGBb
z9$@f~f<;-|xfAD>P}u#LDF-F}F>*vMj!Ur-H5f0-ebSRpfTx3eNk#gn;hRng2MY=N
z>e<$k(Tz2GFvl+k;)4ZKR5$n(cZuQM!=#7q<Hk49GL^D)Udf&ANP;1-P)_6zWJN5e
z^1ZOo(4HDm?AhuQEBbv}KA~F!iGwdjyTGCj?6H7Ce#ln7HlxPB6<7C9=u6%3H4c)c
zT8k3#?R41oNWTlB{S0MrTcN$jscYZ=KNIxs+NMy(PF7Xg9F5^(v-H(G&cAaF6NELY
z8}koVf8z<hCI6?OLeRUXoA{aB2MlaLYC&aB_IBd2{&ECN^fZw7pZ;hY*)b0r;6yC<
zboXdXKILq*Ba-hfdAE3EgWd|6cU$r&B{xJTdfJ}bEKQidp;?fY2Ia&$)J)#YabY?s
z;hLAfy9N71&I|dkgabeSGfPwUoN%W;wk{+g#=^MydzTy2=eJ=}wse9oUfH!VNTp`~
z_xEnSN_2g@_FLw`gX*sAI=}_?F81@COBH+NcDXtC6hPfczf>8Y(SZ$cu&anCHbxiA
zMNFaZw@a|kl?@1g5r^B#pq_E>|7X`a;fkDDMntIyhE;dF^__w*Yrf^-kdY<vo$tP9
zQV%`9w4Iz6z?D^3e)qzc?|k0GZ_N?^@jG0;qLaTS?}_H0u`g=+SA)Mc@yoHqPBR&6
ztLS^1t18=arvk7dt3$*JlM2K&QFG2%9)`L5-$4c@q`qh_Jh)uV-Q)DX`1v#OPCZUc
z;lAg3DfNF}>o0)dE@x=6^mRUzaKCW>3|u=mEa&R2F6HARl6U8X8<bP1yqG-nPnt`9
z`oGJJ1-{9{v9Yd3pWI2pzl`Z}@PG0+;BjR)U`Os$uydjk<it98oN!0p>!C8h!CREj
zeq_Zu%aD^R+p$p&US$MlB2LZ8{EmNTN9mZn-OWV6#!>Mh*Cnfqt4RQ?otpKTvBKs#
zg$D0ilm?5E7{>nzqUtWS90jb<bw-ZOLzc(yB&I1<EamQJj51ITmb?B%quw7mZBA`=
zyi&)!tb5&k)BSdaI}%YC1pA!iB(A7D{xuK))PG*&*=)-W;>_7oo--CETl%<0ScuF0
zV+vaUs$1G{bks<?41C>K&oxr`ML;6@PJI6K<H|YF$|a*sCyP}a`F91=eT)%vhW$bI
z4+^nHfLsA+5v4Om1_yA}ZJT3@8|~r32UBK&Bde36Ntkpc_WK02q6DRz9%?S^cpyXf
zEo|0!gyJTmoapVix<cblGaP|r+^wIManhm<f23vPl2Hf$oT5+}01$e)sLTjJuDW26
zWE=PQQFD@*o#^s*?H#uiO9%YTpY^LRQE&3h*N-NL_!fD@FHMO%J3MOuls`F{36Xva
z5j@>KiyYa+tp?M%5vX};rkV63i(O*xIX`0@X@HVRBj_;J<m<SRowwp_O{H%<QG8R~
z#uQ0-7HTD$r39?e3b0J3ru4mxXI5tXPdSLObCi?hS(_yrwRbo0DO*|-TNL>tW2qkZ
zRn~&XQd%o-9=<hP4)GbMmZq76yNoFg)_eD&IG8=I#BY0mSv?hPhxfGX@dTRtu^R{V
zMz<bH0bI?}XpZ<TfVnq;Mce-i=EmlT?XY8+_qtOsM%`vI-oL|oS!3fpS9N>jbHqgw
zC(`?Z=uyw9HoG(rSINY`(DjAcx1_R0JGfK&wdH>9EQ7%HWd!8Sj3L^%p6ru1Ij(GC
zW8}X~0U(vRxR2%yhyXZuvHv`SQkv$m8Yilp2J)i7rPFfF&A^@C!SKLrKQoXO#nWpI
zF6Z1pqS6mg-g#`aNI;$(|B=Ik;Vn)g*B#&&;SO~bjV~I*P2_McL2@!JA*ydl^TFJ+
z2&u)!3kpHqK)5CURr%}WhU#)pF}CE+&|>=+SN;O~hB&I4l~bR><akse(+@z|E1E{m
zu^;!fa!L_nwLmpA^+D`+Gs;LDdNKN&=83R?7Iw$dNvSU5LywqY6Y@?zc=J90J68l%
zZ(h!x7A`v&VN=Tu`IGs&47ZP4YyM*|Kyrzw9Mkh(f+T0t&4WGIB<CspQSx^X@Nc2g
zW3UK}DF-A23l<^&opC^bh7{Z4VZ$vk%+B5@m4A<~{?iT1=UwT);k%6O@m{SlNu9l3
zYX9CA(5?kj3IV1##SSTv&i^N0x03k<W$J_{|KTg;B<%YQ;Ghw`S0A66AJarSKrVHl
z=PDojZr|iaCmAzb*w^MzgqtJhRjFW#-gIXhFXeOp{CBy+diJLx@7q;$W16n3T7V~!
zj5<c%U>KO7=zv$Qlv_a{Q2dw>WhH9nGQe%N{dYSbvG&e5Q3!}Db@1lzjP3gk0F;<6
z1{lk7(y!2Cf5^t>{XmMUi1$XwA&Ejqt+%Z(zD)dVdhC<tnn11hc9BQytQ<b=x&?%x
z^MUNzrod8WMY-OgZ)@`Pojl{v9P3gS=89+aoRi;4Jk_g44nfN~T=@=&b?60U<^Npo
zCcuF3bIa1y?%2xPE^YJ*n36}^a`$iCNH7N?X~`W?>RpMJ%LjQtdol`m#}VR6!J9Oh
zV8u;=EeS$7{y6FTMq#O|r-5KoROCRR4!RaxNBX()yVCab$_dhp*|3G*0>|`H@%T9l
zWM!PJjs|JLF!if}tjI>h<Gb_sEi857v9n6wLrNncQj6{VmpcN+W$reh2j2f0pKltw
zpPWbVO&jAOeIb+bwOtPJ+RSMq9*bU2-W2On-ZWUTtmRpO=YQ>Q+%zeN6_*2n7Dlzl
zDu+CpPy8T%DZ3_yeH*5Ibl$b5!332vH56VVbscWH^iPP_bz;OXDH)q*u!D@EB4AdE
zfkt)5exZJt2a>;g8A#G-Ve=ZduLn=aI(w2`*4VWXpSUox0IRq&YASM_qfC<FnyNQ~
z2jCQR*Miz_n%e~Gv&d2Q4n`FIoc@VX6~JvRT{3#Nz7a$b7#)}*tfz-LMLf#Qzhqcv
zjSs4xZGAd-dOmK3nx6aH3#>*Ql}xkQgZH?9Os7*f54bat+k~T?q1*-h0f2UfUW<Ey
zNqmZ7bS<Br^um}{0HaKB7?!}4gjzsSHwaUN_w=Ha)AT>;J5fC;uLi5@frPX^))yn%
z(g`os#7^UIX7fX@T#3@k3#MY*sEz1kq8co%nRO$ov2TkS5~5}s@79G#Mw8%+s&=08
z$9BlZSr$RnUNsXyn+eatYA|DaIG@;Qrh%U+Gc~g?evw{1E|ait^%Z7&ezdhpUrJQL
z$5K5?b*Lw?!HLcdTKct_6fULEEQe7w2<aj(9c$?rpjU~19lgAG>NjTxI;QE&r?_1+
zm3f?3_NZBa#I5nG-}a*_be%mLz8Ri9cO?Ex*JYFqYP__N(}%^o+z0F-?))%(<}b=b
ze5p=j3X(u+TyTTb;v%H$vHae@R1$BF5e~^jEk)Dn-K6Nxu*!#t{r1mZv)n1gCUxSt
z^ycL!nr>&0R5v%tRblVGdA(K_n~-(k`m}J$Vajko<$JaX`U5$+rcTV(1Y*FKG-;`N
z1?SW4;cN1j%m;_fqeH!5tPcwScB?rtH4^~wy&ocCGkP#gCp%31D}?pt@A0|flF^7{
z{hV)w5y$Nxb44%)4?}bgEeCK&!1M2+^melo7Zr7;oR_g`!{dp;8v`hi>hyuQqAqQ!
z%76vLy&R7M!iXHUCT!_%`k`(Z9IZ6du3_`*_j?}I-zEEh-_qv)lA4>!LAJun`C{(W
z;mO?(__^`sfe8%>6Aefak1?7Ya$CU-%XCn8zkh6dcAG<*$Nl|V8tM_};j|YjfVVpP
zbVszypQUGZ>`uJTdN8$RX-=E5{~&<zQm;0XYKF^0Y5*g!_?%1MfKCd{53HLzZmh?N
z`T`{i5$0uxX!s<M>+Pti;{LXMsC3Mh)V5IzaxPeV)+Fwu;-`y}RQhki*NS4oRZ=a&
zH<U{_ERr^frfb^ihkz^(P=M9>;Kvx=ZNNm9coBCSs8?Di4Ra5&S2(2rY(o-8=UdhS
zQPgjSd+xNwFGs;YrlffRP;2IkUEyb<1?AgDkkb0rrcW+i|9?qV;s1fE^a2Ie=4#bb
z_Fi@0L%4+BYaT}Vu^Yt0j7y9qu03NX#y9g++iS+N9(f2>nYbg`xm({kz|pQO#LPUB
z$^F3ionfc*Mjk_MY)CjU7RKPuj*3zkK$JHXAb0sXf1M1I?kST-Pp-x=F605#_%ehK
zd||Op%NbQrBzMl0KRkTD8hgbw<VmD=Ix>2g1?rU`L`n=@Oq6Y#SqUxB6C#I+x6%xC
z8Xue)vGnH_l~?qC$PU6-I_Q@d+DoGAUL$_3gK>82eg3?Azlr*3d1$S}Y2;qsD2Ol}
zm_R`!0eKW~CH$N+*<Hmkf-}9GVAyb!WoNjW)?r_Y*ZsnGpsPf8vv$ktq9=H>3`Jd_
z2IB5g;8Z~Qc3C0Qs@W7p%qi3Ndbcv=nB+*mQ?12^Gw8(rr^^qy=nYL!9lU*jU$><b
zu&~Wvhlt#dyLqN}*e~1$qMSnq`Z8x(X}G!E1f@eqfif%1V{&Dd0nUr-oY-MQfY%df
zeY=x?jPWww*nq&O$sGy?&{V=-YrQS}fm7Slj69>cmJk-JN!)dbxT%sp^f5@PmtAJ0
zw~#-}NY9NMdae23Tk`f9c|rW<)*r~is6J~-e%BNcKt0G?;`LRA>?2(s)n@NI*gdS}
z&vnxg4(T!!9e@KGsFmJJZ{>c$Y12jtIIg6LWs#5afK$1`mRdQiz#ZJoSzYV3mV83y
zk72m682l{CbVJ>m15a^S?x}5C8Fscjo3&GPB8KEFgHcW8?3b66VR(+gC->pt@R~Dn
z1^w?^-~6AjDW`0Aa!A7UdbsFYV$6jRQmL2Go|E!O1$TF|XXe)^th#!1xBYftFAQ+?
z9oeLBweXeO!4PknMBIX>alvwN1mdyWgsj&qy&JH^U`I4w6)2_w*Ug%t?;95X8}29i
zf6?j6dC=#W<do#h1CF?40D;re)+M>Z92o)ZUZ@99>EDi3FQ02nstRyIxlyp<=sMUO
zTOJ6$JPPc2Nqghz#*TYD#y^c*Pvfq0a~Q)w1$To7PtBv9+Z(yN87vmEKK2rPbdgsv
zREr1_F;^Sp@9+50xjh-H)n!I4Mudn87=PKs@3C~&vZbmSn8yc-aGKaC{PGyXYKn7e
zqrZF28@oTC3}HYawUTz6ljSUP@n8@`8!C~AbsSf*WK1@k!z}V(2U>iO%6vEMVrh4;
ztVWy?$U8mN?*vq1K6F-<&IZVLC^UcE!1>-_QRwWHyZ*rUJ*3TtYvub?hK=pLDvKgK
zYV%^IW*;+z8{lJqi5Jy3p~2~W3_sd=c%_-Dx8cKQ8+n;$q+EP_x!w9#;bd=Ddw)2?
zvE#68T1jflGkmhl9G$e%ck5dba+bQA7Nn>gdm|xnb}%UGj1&_=H4_IRcxO7+z(uP(
z{SdZz!Luh%k8<B-jJjkL%73^l9X5u8Q5}>L{QB31m(&uX2l1}U7=7iLQh8aB7#k{C
z>qarxrh2>9VU)>SzZB}%ol{Swxtu1yj_Ov(w*~&)7BM`6>o0AJ9~H#6QYC|6#H?4m
zzb(6S_<*xMe`;+Z8UM|bFCEWsbWvtSaxUJ}Z<0v@48B@5;=O9fGCj%)ggO)iiQ?op
z=1@-%boduOs7od%UN)6v#TYw_ic#ymxs4^t)CH+cjG3XMr8Q4vLvZVNuGz#BNJH<*
z;zHr=%@LmF^Krs^k&MX>{2k$hvrc2y(R@l4lX}C00uyGo;Enmb6QAj1B&9J<-?zIW
z1UYM@=l&paG9*?sKzZU4#9VA(oM9P;8V5gf@9~0FL)HrOJ=p7mJKcMZ)e(clRtz}s
z)Z#Yqbc(P{r2`K)ezP$2S-;NlTxs6~Oxnkh?l=4~mQ+G7Gla2fr$-#aZBSK%<g8Nx
z&dY0Got-}LaT;DdN}h2rB~LP1wszVGXiU8cYl`F%Qi`ZPF-KQ6aU*6WGB0|?9J2cv
z_A8xKCtmk#&G&$RuFE5R8>C2h7C%}wmf&5?nTs4LnVGg)c;>!M&DAF>l0QC2yNTZ1
zMJ{t8OTHEMSUWqO%-%c>GU=N72*Wbk@g}K~a=627g&1sk4&u+0`3$r2vf7-Ca!{rx
zzMhyh-^IFCK;BHj{nmjIW}TdKVvI)2`DxUbM8VE@^kflg?V50zK?p0+?@RGE>dpmc
zWsy$rvsh~?O)7cos<+SF<eowDxRtAf>Yp<aHtNHvcF`&91_o!}1IB$DuNz3;9b+N(
zswPvOPVXi)y|aSEiF+zSjATwu?>{hZaIU)pEJ#uLtaWestJSQeYoadNW{cH)h9>nS
z(YYvC(Bb11jI%HVGwHj&$ZO0BB>0{5D094`za4(Aw$pg-8Zyp5)uud^adktTo8v1l
zwX{dysuQxknj9!qVxp!xlZ2yLf(#wn3|6l!++~c3m(s!{=R}38b>GYPxTG@!$-!&!
zW&|e);Y-T*Oh>~2J=BR=N4^zhFG6eP<;m|l5boT}NU>RBP(tB>>81vp7qoZ^(`o8V
zgXwwz22~Kxu6=4Nw?Z3p`5(KavZXmQcLEl-f1W>-7Yp8Z`rN+Te|z+s!r`r(lz-jz
zW9^Ti^Sl4{$KQT=zv&-ZC6}KbQa;S`NBiITd-UyXTl186{9OFk$*Tr`uiCNK=cj^m
zA187<Y;0v!n8v=c-b!9RX3!DNS&rcvlWfafgJuVZIgTO*=lgem{>SF~KkqHwv%k<@
zrms7qJJQ_?#>pVMb+}L?D9RPCRyh6&ly*h%4pd}Sjc;V%PnY;s)gD;u33kJUC<;><
zcUu{*=rQzq7KnbuB}rdnH4<$O)w?1X1eLzV1?*4b^62%fhW(3Cj-6ot;It1$$&!0H
zs@dbbfkRnFck3*BYL3y$wA<!{>F&>NhoY0wWDS}=sNuX@fp4(~bS^u*GyYP0l{gPt
z0S$LSD{93AqD>9nbTnCbB}-$<I>I*HQaP(JG16r5b%~r|lz%A{m~`Q(l2j4MD6iN{
zr-a~x%7rB}X1zI8CbRV>HRq9RR$+!dbj-~Ep$RiRF8HCe;$ckNli8{j|0;F88l?#_
zkMiRVj;Uq?XpFc}2Q7R$5ZCG*KJ|K4y80N@mbx)Eq+>otJIr07|KMEFWa!U$`r@9Y
znmbXs@T<AyO~8nQz=#ayWgKDk_t&wpgV`n;|40ft_8-f4k=#S@>hZ3gOF!^oH})B%
z2ajnHzu1dy&?6pp;eP0sNxgnvMMZuq<neli%H2o)N>LAlWQ})gXZ>yV%IZ@VDzZg+
z=ipo|FYX#TO>^}ns8q}NDD7<l!bs@f<#YGMQov`zO%E9C1GjdJyO_}-Q|p<QrKHcy
z;aXhVCsG1H4F)RAiPU3U-2OkKa*Oq`73JAg<_Cv$mRkI3PtZPS^Oo|ov$XJ69};c%
z&Dk^z$+8y-3*J!M?pEJb#8sV76+}&AEt&*9^z(!{k;L9(9nJ#LyIW_MmX5*)fcQ$;
zLf=?VA$SY@3SU9GnxUxp$c%D)S(IV)=u%LWCr^+QJlB=`;fvD@y#`j*czEy$<GjDB
zbJFXqXcs%>fRJpH=h0twiK}sge=4(l;nvmadM`uJGY>(gH6}YaEj6c%!GVyWXX71?
z14*6aC~GU(fx|7S3pO}$6Q|_T>OZOWG{sk#B4&hIqEYyE>9>b<rgZpU25#}N4^lGg
zAhrYFbyL+}Elf1#sN$UZi`MgKB&-#X0@vKRq>jno7W;U=b<3PI-p0lucwx{-f&j+}
zRA{2aM_geY%0dnw<he4C6j-t#h8DKzc#X-HZG(}lMSsqEV7tq%7Wb_2Rfc4{&P@`m
zd}l{lSM*-2wGXMaqZB)F%$4^ce6ZqF%VPQ0_<AtS)U*SYeHtt|z8YB<=kZ9uV+fd~
zLrVTZsJb{2Fv<rcl60qf_J~sP&u=?0jm~xJiQ6V1*K}nw59?Tcjg|R>Pn4?KL4+Xk
z5eHpaL=fesE$fVbc9Y|fBI*R~u{I<=zbD+wf7A_X!EkB1gl47v5_=A<<+uzvi?uxk
zkGdNEvReSrYzRyim49t&@-P^POx=0yuMs~-_H$PY{P|V<l6h1OIE4O!P3Zf5qSv4N
zhofed$Jj(0cEZRguG>XBVA7-Twq1J;77rCPXV7d3$(J4jd|QS2L)>o@uLvG?3#Oq>
zOdl`*>F3ajS)HP+@lKFs2{BYXV_Z)={a1E{kUDH5NHJdei#BVmY%v}Nl|C0z`5LRM
z+P##(HF4yZ`z%17aP?9C)nUth7y%Eu$E7%OszDDp+3~;fvo8#O4ILWE9WEMwv)7Mz
z%FB|y1X}%FC-hzHJ~?|$GzS#3-ll@4N^$h$ZDznpjPsGIMd%-n5cT6tX^-5v$6lKM
zOl#_feIl&gED@@af$@KKc}2H+JhmAWwoM<)D`5zThco!<WXY$kfy8pSw{e}azRxpg
zFfrQ2N>H+>XD)dSa<+cXxqv2HJlb!H^;h=sH-)A78DJ%qHfd17G3|g1S$qdFCn-67
zNQ-85IiumHi6<0lzExUwZz_mnLX6k93YTR-PZNC(EQ@A+z^rb-%>9l$O7Y@`u;-0M
z!K^&<7Vm?z-4P!72O8D~|CGcKb)B-j@~TWab;h_cj%<9#3fPQpEwF^nWsZN#s2b}t
zL8Vz4Z{dEybc;ZxHVyRTk}g2$omyV4jlM87ocJ;>0xhfE@Mm<7An%|lcOx%Lu<1wo
zZH<&i|5B!~mtL>mt2%%s;PrDaiOCtjm!EL8cBN5&r?RuFJ+hqX4GWw9FZIhQOf-by
zM7?@qbapo>olL~6eZeg;T#^rg>t+e&nO(T076MMg*oXr9coLg2g7iV~s*PxPkg=v8
z#LddsN|pgC!nPL_2`=nPzN<SCzP`UYOx?pykYUr;u)!HufHSE(6;8}~Osh8Y`-<aa
zXOVf7ClPYmfVwih+^Qga!UwJ(2<()U6X{;AvD$;_Ci;uL3>2Z^HjK+X@25_?zR#W}
z77*I1v)khP6O&%y=#J1mD%V3C_mPdDq2@~(4Xb}to2JLrA4m0d#<tbwXK-Amc>`w+
z=x4Ewc>NdOP0oRU1C<zQook4|d#Si-ZP=qYlI5zDX`i?7vs2D{Oj}24Mu!3l8zIvj
zINKwvjWbfAb4V>2JTFkk-@&ZAu{w`pW|M@G7u#>rp)N&Ox0w#I8QC@72@MDc#gOKU
zU8Cn;O3Hpr*D@|`lzmF1yD^YR)BbisgnPoDKj>q*UYH5ZfYqTFu2P?NJR<o^h#T)+
zcp%vG{qgjh6Vb*$(O5S$w?VJ|Jn0Rs$h#ivh0An~$(;9loHJW(evnOGZi#8MYJd6@
zRKU~@sMt+HqC{jXj7%mVo0w`WV>0QmYtj=8L6~*`v*rlLO?SBN{Hh~|>CAQ_7L09n
z07bhv7QM+-|6IH-!AuZ!|BLB!9Ghqcsb3L{bW5ByVjTR}E(r;M8U^&*vNARN2^~u}
zZ^LGiU;{a~nSZb<t2>s=E7g4bz>vN}p%F1NN2<*}Mh-Hay9@}xNX>?oCsf*+O~Wn@
zs6zEB+Bp$#2MeYe4>9kr)*V<AhPdJMsD{4q?DAH|QK*FrW8rIO{N&uD>afXgj%xdE
z?e#4gjvQ1=#-vE@apv+;#;igom+Bjq5ka0Ap2K<8P4GCw3VyXlEwM)F6_H(N@?t2m
zpQ*%n5$72WIDE}+TmFb-+FhoTSTT%k_sA?){}%9hj@)<YOYj*07YPAeRFMdb|Frx)
zV-%`~E0nEwN|PryY1ddsvB*DTA<sKse6WTAr(InFPEe}<)|AhPrp5t)Ak5}+S_|bE
zZ4E0>FO1=5XU5+4-8^TRm{Ef#23`N|QTJPF3>0zBuct%ff1>ES8QI2MD1%&FU;jhg
zeKmBbI;*>i?ZPnr<JCamoedPQbkYZYrdApIDA=$fwY#<E5}k9ARo9blW<)E4rrI<-
zsal%|ux#f=UPhxjTA7pHZoyH?wR^#Yw(#tw`1<2|SNUh|o;DtR!G)MgF`zW-@Y{&B
zvGdS)16s^Ly*?*^Q{eXqoNi|7NAC5#(V8|FQd5`FF@ySr)=?8iDkysU7_x>~J2)Xk
zZ?G*KVW{@elFcdnOjVO29GCnef};+?EBxj!9)YW_Z8wV#e-vMR2ry=M0b}Our6R{`
zq_+`C?2wbiO_qCHWI;*mD09DU+*u#aDc@L~q`UkitPh~2&~TZ-@G^;LRQts~Fs);}
z?Ng}#3h3FAXw_v=Zn@V{tw+2W6tExq89zmP`D=z(7E`I7eV1uWyLg11XH}GG2^flG
zz)%DRop1_Jb{^9-KioHY_K^i~7Mg<;SMBes>l`#|VgLZv5G#4Q6!()xPJ~~J0F^J;
zvOD?iO}(!oXh{0$PMiHpq5)T6(A1ruy!*}(9w}-V{|w++V_llIc2=PK({Z*oI5OT3
zItUB$xM>S(ZMho+)CQEypcl_OB;WMg_tozu^@>1IJD_>U6gVNrD^k&};U5bRK}A;u
zSx}4I({n?SU^-y9Z-vF3^m~(0bVUHx&hjjJidGQ2qUoA3&h3ilvxvQxh6qP=+N&q{
z*sF-PPbww(IWgDKsH=j)jM=pmCj{+ug!})zVB)_^&yxXmXe88v_!U+i9a;MRZ4-!}
z?L&F_6`NxCU^alHw!aU(4r_0OVA&P8SI5xq=>oCzS_g8|%|O$^IR%9i{IO|`V!(U+
zOzYlJh{88b@vXwee+U2vzs0a;z$WmeO)J)y4`hBOb$q<t3t+VknVg`t1#JS!W9THU
zC7o<Q3qZ%2(l{V5sGu8UXBW=2j>O%TW`;rfgNul~wIMqV<JUFo4-HMfyinC{dxL})
zx=T=p`BlSL1^F5M2>Wp@poZmLkae5FkEHJ?l=W?*Lwql;A`4C{1(($1^<K_<;@rl8
zO?~3bVJJ~HRh;V!jLUgY=sq~hJoL}mipH1Vm2AVA$QZPj)j+pSq2G|AA!}-O#exW?
zz1HR-BRi0Hd!W-FI%lymJD&N{8%*K$kmqU%urB@E3bms~Dw(A7=%PG7ONGhtw@|%~
z+ikTk?YjlYuhxhko`hdUkC}An!)lJ{^3-aY(#Mm*Z)AUhLci%yLE-;U$oo37quGp7
zE?hne-4k?8S{t}pzMIuw5T5u&RqGqmsqV8TD=FJEUeQYVSc6*lC<8k87y7;VPZJTV
z72Oh3ja5lT&35m-!9?G8sUZD19T^-gyHlkPbF~s+3nrX38bU75nw1KdS3t`}*MTxl
z^TFP%`2u%cS=^&3&rjNGa~U=9dAmL<cwkRoY<W?aqcin-8rBeFxQ8^~&@IdD|7*P0
zz|`|Js-s?A$G3=ekG}|f@|-x7Wyn5GVUC6%(`?qvm#hjJEsTE$wk{@UW2p*5XK6`2
zR^d;=JGe2Bzb1EZ!oWzrZRm}sQ4TU{1R7!!e!cy+rPo!#3lLGIhhAPA6OM*h<=ng*
ziq;1Kfp5$9-UTF7`V*~mBT7eu@K?gWW;d}hfonT_nV{7H%({nCu!rWExsIt?U+<gM
z@Do+fo}}W>!zx~bwt5wgf9)1R(#Lb4sRKTFNs&@2L?t~_vj6Cum0<EH9Iw$}g;oNf
zbNcDNnOJ+D#c$grDuh|U))&26KU+%_t~`fI3CB?mkHqQY{)~uR&+{igw)Mmo=vjw<
zI><eII}<<U<V)mz1f|&sGBYHS+>FuVfW;zAv%di6i38aMMEk}2S#a@v@2j}s6JvPW
z{60iTBqZA)B#4AwzZW1G&K~!=q1iN;9!^HawBNqf;`yk2jx@%Z3Uo`MxwQH2=U?TE
zl+RQRy&!9;WshHna<axTAm@@9tu$MHwlD#M*D}Hp*9L-6S9kT56pSE$bsS!>e*@GX
zvR{aIHm9K1Z^Kc&F2QteMuX;r)uo;v`1Ox(iTC@MqSx`k>+e{oSnkI&`Q)xGXfpC*
zY;5(yPTpACA|JOGNrF38(E8f~oF<YqqFJt4&@<3^Tkt{uy>7JI>A2aes}CWVF3XVT
zT^HJVJ%%|J#T*rl)r*g&EVMPC2A#!c*Re<8s+lQm1ztgwQYf_keo;hPB7HiF)zmcP
zoi5r1#xf&Zt76Z!EAF)UIuX^@E5vPs=NFCl8{?+@mmfjL2ul@5C&ZyecF;q%Sh|Oe
zmP_7c>+a)fc^EG&GgX`PH~wRy6|`6pJN9SBZ_`__GB)Wv1<J<_GIvJ@5ANWIh3%ns
z&w<j)tv|*4$)q0BN8j#VD69cb?8*>j)a0TEK+%wl@RA$p`sC$2pFDo>C(Z%w0Jd4R
zw=Dk76;_S)e0MA$S<r`3hpSE|_g~G`iiYGb(AaacpYwtvPC#Gy-snCaBwlw;{pKY@
zP@^uI8(o1m&P)%<5SO(~)5CW)Hrh)C!SS3wYu3cZHZ=(I(gP$?kIrW%Ww+J5+SBlo
z&>lonL3rIq9cIMg9URRtx1d}g9r8F?#kLGs?>=(RpEMU$t2~oBjIi^RA1mID>{x+v
zS}JBSw8w@b`9{!rHMeI}enMMm!3g^=&wNS8Ke#|9vE&WpZC=J>t46QzZ5p<7F6O1N
zkH6~dBePk4P_>Nk>2cSqzmC2SwziG)Ylp>a(2(dOU+xNvL6B#jH}0BK^y`?KF+Nwn
z_*h;QOcRh2l}xi-zlTvA-sv(ZFsDC$cX{vh#q2GMGHWB4$8@o^(<3Dpyc(_tn4~68
zt2&z7v|71$w8A+><6+t@8ohWc)IOe8Qm@e+3Lb#N8Sndwf0(PmRzu86sHIMRMF#Pr
zMDeeV^!kgRL6ZxJkTa29ea^#PAY*MHzax&k&uy}APeW48UKK*hxb>&~-Xx8gNL+Zm
zQOg-;ar<FHAa+=O)b$?5+?l>^+s=dEZXXb{nG1h_AO%3Wgrc8!qlnb1y1zs@y~ZTd
z&{6BxP;g0b9{+LBbeH3&l-E5sx}~00%7jt9f%?$<p#at4o5fEzrO|!z*Tk0XQg0yf
zn{aUV)r~*SQqM!*&nXop_pH4$#s0v*q%76&ac<XHVpkg#+{jaU6}NDBJi}d<++XR^
zq1fK4|Kw4hZ{H41Ohv~lO`G|UGvAeG2ZwTuJD79Y+nYGkVKm@>diA1>D9vyUY^Ge9
zIZk!<)9)Hle;{VAeQ}pP`4De}ZKwKM4~RS4HGTW{+|c^c2WE%;8X(!Al-)Nh|NNNK
zoj=B~CQbQo$Fd@4Kenz&A8hg~p%kXiZO?nmg3j0~3nLwFgw&+tQcN|i!I}YZ9T*qv
zh#YI}3=x_y^l}$MOF+`?13BXo<g6idJ|1VkguI|ubm<{c?Qp=5Vi@2kjsOIxc<ru9
zDdeSvM%{FjE-+*P&qh?2w|>Q8X3FdXh1)G_iJ6@FfAFB)%01L6C%;h0$bySjG?21L
z&oy{UV%*HW6s(c15v^`o()AKky#|gG6yMc~_VRcpOF8AIc*WQ))M4{06oo%rtO(Wj
zKBeQ0&iE~a*eMIS$^Xe{hBvm??G1Jq=S44X4MFzJ?riNna~0VqD*g>d6{7`^!}BY(
z%n0lbPDz;Q<5)*g(P?0Kjp)+vY`;zgK24Yr3M^N|7*jlC&rAVSQtxf-Bg{-CR?+{j
zk#fi*v*4@n&A~hKRPA;t5PZxhlC99|KJ6L=4^fV1XkHkkqJ2gAEyPhbE%zTGXhZ7B
zuL~lO>?T{?pb9#>9vIWBv0PILl<c~0-Z@4<hcB)D;{3{}XRSK}tUL8w`ocnQ&yv>a
z7*~pH&7kVh8g{QO%ml739`#f6)P+P{$<Y+2PpuKIIRmHr7xw(YM%4d4l~NXzF_#u6
zGkTeJ#v|+Xlbrlrwjq6kgO(&sfUoX1b?t<>g)sjE=|YaJND(3ncsJF(X1;K=fXdWZ
zZO(3N${D?owM*d35DZ(-lgq_vfvcGj!AiHLq4S$RWg0nlhz`Zs@z*8S+OxziVuyC6
zit7~>nTl$zfsL>}o<wxYkLsbDM#{K9NMJQu@7oD`-$z|$7<a~EC&o%Y&7DnpMKq^o
zqJL1HddUz#ecL^sj>qm^6O4j}XLTUH&0|5+Hqw>yjIfhNL8xH~8(^Oy4`5MM>^;N<
zZTCX-&A}&I>@{bvw!1K5O^B2N))@xO3(oV@J{?lsYPj@y5ERC$%dGaavl6@oWsQq@
zC>O{0p_Qth(;eCQ%aNG<WZ9|O-dn;rJ2L}{Z~N-qgI4^z*GjOad#3{I;}7L$AqqlI
zw?%HsEc`)V0k(P>ofef@^ko%DZ)OFCOjL79azQPvNSC}zc}&L+3G_vL&)hI*W2s-L
zhCaM^3zyI!uky^Pg{|UkjPRbE&(!O>X{N{c=pEu}2u*0(p*1PaIxuYPw;BJ+-2&-h
z$TvkUrzzhI46lhdCmtq=&NdXmt}#zae0$W;o<A=XXN)^76R?f&6syI$s<b|UiLajM
zt~F#Z7xO{OHp<S8C`ptPUD;q8U#Ii5<`kuX3+Brr0Hy+BTN$`&wR_M8_(+?j@ktu}
zerA$QpV0|X(CJxqM+K+cjRkT&rE$cJi#;z*mZ@0-?u|cUad%Hw+aAX4);*(A^KGnd
z|I(-<Lol|chHWdGQ&*3>0f@;ISNf*PnE2)LepraG%QZ7Tqz@Dp8;wS_2m9O^%rw{J
z{V+zxgL3LhSd$?P0VqIXd!gXgu;~<GQ>J`W@hybc*?4mr|9++{pv2Tu<5K#v#JdJn
zvtk>3bM7ER@G9%4(91|Cmg-@PQVSOR3s|*n)fJJI1UX9S$XB!yeC!si)vP|>8i;b#
zEjshN82usEe2tMcm8P=CCj((F)6>{-mIiaZ;G^?UOUt;rCN2zJWHpecXl3jhWr^S+
z@9&hjEoSFmG_M*AyI@s^kMGK}y%(7baBs2osBF0#R>%b}>lZ|@6s&9>DkT_tq;m%D
z+u8BIaI%O!1<xGPI-(pN3C8?S1cb4FR%uH+GARWno&LAor{{#@g^Tf(4K9YB-R7M%
zhG5F5r|eYs+&a4;yet--f8AV~uU%(v_u~Grb-)eMr8x7T*d8l^T6&k(k>yuLogXOG
zVJp91GU(ttvY|XFn5GDdiM@K`zFm9TE73ruWl6(bQOsxG@O{JOnV}3<{noV*1fL((
zCDMW)8P{r4qIH9)y)M!k8mZ0?enWCXw^p&T78Jedj+;#B54_))UsrI~Gln27O`CLr
zhVQJ@@8r;*#H|03Q6od64>jINpY7f8T5}B4mww#hzV$%CbV^47Nd0bqDKrj50gD><
zn@Z15@g1QShOZ-=GRD=hYy6M*yLCKjnKfSKyIMm-pBFOkOXsc#p6d33Pi(l8DlnzS
z1CqHgMz)CS9IN39U$ot}XTCOyyl);e^uomsx~SzRtEXoREML1kTuz-X7kY(M1i9Vt
zdi>?SdyK-*Z+D(svnWbQFE=xqwI$RAF1<1eS~dsAIf?2rXr+791!p@({h+C;g8ozx
z-j**M=6wmC6nQuGt;YJaqDpZ4<MnNgJ3_M|);ZUXL-p*!-<BYZ2Bjc6PiGkHx6YsQ
z>!#Dj$HaST3R7qmrX|*T1NXy8b)YCaeeL18JNN*q`1q4jzcH7w^k`_^`k;ZzqsV~v
zpm?4Q!MF^%^r)*|j}lFGyIe$zD+SR*u1)EP$=^;HKVEk37-j+t!g>jr{wp~>Y+uy=
zfJmw5v+?A-8K%=vjVotH@u>m}y`hJ0cF-&EHpMvFx3AWB%>As#D(pbU8Whmmii}r1
zvFP=_I8y7bBe~-pP_=x{z1^nvtsl&YLRp2Z@dLralOe+@BMnE|zL=(qiZk@*6z%kn
zRvptgx;(kq{l*4uS-SfETskKG7|K(Zs@WrY21+ZN8`hvP)5*Wk3hd(@rfpBx^);Z9
zK-9mgb!8Sb-8HWJduGkjYY_g;92G)4VZZNBHaMGkqx&iO0$NLB^}{BSd&W5Ger8n3
z`cEq_x+Ay??-XsJpCG6F+^3EF;(h0BtJQ;B5$LF>Ohr4v^Ngw#Qrmn1G^B9c1!}>r
z>~>j{3$gl}O#To+BU2+9H8L~wi%XLiB49-A>FHN(mgsy=aZ}x5>yIeMNty4OE4t{L
zj#tJ)02V;25%)dYvwj0=mxI5WQ(YJlt$&2CnfN6Z?5!nXraX2JnpYi{)f?BXwqn+S
z{M&MQ`ySG|;3FpOWk^<O)HV^Ky*@sfpqKu}H}n(8peJ<$ot`#n;u_Lz1fx%eyLsB_
zhf`1Mm86e9xWMHw8z>F<b(<UAKL&lFia>Zf{RQJdN*=kdC7;EdOd?!ko&^lc{+ekq
zlQ^t;%_|QdklxQO7*BU|Z+itQvoJVs&Sn)uw+B=erq688OJSua)}H#dv>3R0$^Kh}
zbGq-lTAy&Iwl5`nu-w?L>}nWQtMI9R+cOGO`l=BnNN5c4Ft_+7p?XQwVqu5{@Z1va
zsEA#S;V&PqRXq1WnXFI=RNDl;(>4#mA3tb&p&@6o)K2XjhC(;5v$Mm~>;zx5YnKZ%
z!0*;(xkF+tNrQpL=lJ+XjYa6w!SBRQCjHF=$Ypwtw_B(+G=UQ9{<hsw8-R_C)!uu(
z=z~oe9py#T4~V7GT?_N?4NQB4SZ&DWZk|A}fuUF8&~1jlM7ie9vi_;s&ZXqbP~)93
z0m(?^DJ$*tm+?UtbNH`zh297iQns|4zY#7Ef{Jn~)lI)77ljeM@l$rr9iau4$OM?(
zLnQ@564g%m$1!bfuO_?=RE=_MV&@FZzI(*4Vb&@<uw7{aV%Oj<8O(URQ+C#GsKa?z
z%-pLAt8jkCt1oW$@t{Ll2_zlABcDm7Pn6=kOHsp6V=H0Q4b2RM=cC4w=eCI`Et+M(
z5Xb07ccGbyUy0bcB!BNJJA*kI1jNawFHf7BPDl-Cs6Az&pFQdE!&ZWEP}}QWn}mfK
z7klB_5HqA14Q2KCrBdpfsm6>jkI?MXO>?~Tb+`7$IVjZK96~ck4;`nOf~oIE{Q=_;
z4R5a}Ouc$<9c4;|OjstUXsz-L-1sg_fc#gN%^hNs>=PYbZp$)GJIw>z18myYnhP_0
zX)e>dhwsIS@<YePjn0weqZ3KbVq$-t;s@9#5;k^o9OC^JOs-Y^Nn7hzkKFL!=m4Nj
zmWg-+e1B5Slz^CNikNdo4>bkKHUah@Xs%P1^*YO;{w|PpJJ>;g9Tj($Fwqpu2%9eN
zC=Sa|&l#l+$3(+QXRW>-_XV04KhG=8`g9gQ(WH<Z5P%3+upj}=KU8Fl1~j&jw08X>
ztm^jV=lN0_Q?KAdOY1&u>_x1+-FE{`DzeoFJ|CK=y7^$=mK&*i*U(1>!@af{pQX9o
z5XYovoO+ZVo=@^_&mLAPjl!|ABD+7SPAF?5NhiDIUp~AXeG36i6-RnsJ^e%RuxmRg
zJ{fV4|5iE9T_rO1nkoAT_m2$dN?-a=128w>+8J`~VH66@svXcy(7ls8!cLFWwA<Ji
zlbvhwHZ}(B-1<JSSzxM1JBB9f(UfkW8<-{5H<wyLiZ;+6HroAv<f;+M6dwOp41cqY
RA*UPklI_KcUvEA9KL9H)nQQ<6

literal 39089
zcmeFZcT`hb8$K8mMdd0gBG*DudY6D8HKMdol_~-OrAb$Mk$`v=6{Un`q>4eLBPF4P
zVx@zGPAE!Aq(dM<2qCk>{l1yswDtRMX02Is)&fFua?U<)dEV!F_de(O4HLbiN6sFB
zKp;oq`r2j?$bk?DWdGem2f;hU)VHhP&%wKfdfMPG*tV|MM}j|x@9W$6Lm+%HtRJ@c
z*)<mkL=Xbk*0Ko6SR4<|;11kvSqoOOwQDDwu(*2s=8dcBU!x69q}=^<P&_|(=gNxq
zH@}Pn-zIqK`9s7UA8~ib@t@Ytlel>3nc$&Y3Ay5C)~AEk>C<XXcVDB0lSZ6*5j`zJ
z@mF0NU0lT`eJO3hjSh$R#`FLG`u{BeERf@uE?n^S*IJO0)D!#F;C&ECij@ymie;O{
z?|ve)D){A%vlTH-+z`lzD!&SQw*Ocy3dSDtpVv94i_M(>c{}A48{$7NKVWV-9|f<)
zVdIs1Ut63ww7L%x)h;Yu@EGHRibM5ZGrPV(HAW4>w{H`yQH=>z!`saFr#eO)2ohE{
ze8Nj&63(;C0*nf3qKXoad7y4`4HcIb@EpS}Y?-3yK)3>T67hZj?}HNr;r7A<s46?c
zDL6B=O7PY8qEtZ|MyN#33BBHMn-Bo+6K;^4OH*tY_vKm2*uHt4R0q=~{6ZZ|u`nha
zgbNsk=@C3pgU&UGSsCF1Y-c#b5k0MWi=;7f)yx>K=2F@u=e#SsqW?z3-S+f+I(&9(
zqSM0m-;1URM!4+bIUx|=4NvXWA`nhd?8OT7j<j5|G<*JK+S@bS(o+COc_G5bo93ng
z_vh~S&&5QanwNl=h;$hy_%1p{8y$!CNp7oTCg&iZE26gKFN`#O>43s+B&R*~)66=F
zzUl}q^@lehM5F#*xVshJqbEErTX3mO)i|haIwFm6UAE=M#ko{=mxkXcA6-<S%*v*#
z=;-Y|H<ZVm5oKy+IY%F>MP<Q-n79->LH9bt?M;y-5rslUG$pQ_QY5Ajt$<b(kf^2d
z`Uz`Ht*d*b^vgeoMqBjuxEDUUZmUl?3Lg~Oy@?WB3Fx{n5$tu+{W|oKUH*o$%3`)j
zl=4OQl+H=T6EHRe4(e-qW6)4`P7|IW%e~S?@$uXXl4kzjj(NQI^-l$~CZ2IY`<(F?
znH9To8s|7;l&56i-_Ys3AZ1qUw8Bp1Y<nqdv}t!9os%JGx#2&r+^h!u7WP%MU9Fke
zmp5jH&Z$dNl64n?njiaWsN8%mu}b?B$CLu!&#tfGm3ZQRuR6@2`_Vr)p}1Uf8$0YX
zl&ww)B|9MC`*CG4k?CMZ*<7zt{`9ftfDl7{XY3loJ9;~FB{8TFV+DPe=`YMDs1QBi
zKKTk&C@d}|&cn#qKD?ThLVA!K9Hs0)2uiC67uBaH7}mwx({TIou(p@?G_Sd8mogfA
z5-sdq-@J;qr^M;cXXhZa4u<%`Z=_~Jd_^bHXU7LYc0nLf8vT+>XYb#V;l8Jjd5d|A
ziVGS+7`pbqwf#9`iFSnF61`thhRN5U#p`>JZf0wLYMrwRRe`S8AA^@iYP&uvm>Aqu
zL5;SvKNzD;67zg?tPm#d6Upm`TJ36kEa?d?p@+<LH1o~oAARxg<H{P1zk_-se)hgp
zLO@Pub))61z|Ry6huu8sGVXrqSp3qdG{t;<Rd}1J9HrE7x8o${D70BkUCXB6V2A>B
zLb?ZgdM}U`-;PC#8}4gonx*Xsp%4k-j?;+v0IrZ^GS5ppQSS0sT&s|=wwYLrVuS__
zHj(Fp5JESQE@^xgF^1w6INn~&HkY6_za2_uKj*Tq9#N=Yr}jxx>z?dpSe?x8z>JPv
z5d-xGc*X6|eyP^0c<ZR(ThXfT&;IYd%He-*Ex5MxUQ58kX;iQ_>9n(QcpH0O2EjXx
ze(!pjqcc~U;${d2y?}cENbk+MJwZBnB(kDo7h4|hbmYG_ap9lM_<7SrNjlYEgSlA2
zypqNc_^aIHfUJwQFyBI=Y%64idU*b|N0hQTh+i)dzgJZZNLFINab9nJQMTWqlsed9
zSxEsYoh4&*$=aSP2mAz%s+hZKS}8Zd-~6tSaWKmiZjawg>{yV}AgIq#wtM*9Jyh{l
zf|~^*h|N|*=sUJ1|B*p?tx-y9m;bz8V`u9vG0&8cJ6NOou32j26}*-BoLw4&dB!ME
z7_O#{y?nI%yqpUgDWz@GHMF`KfObajh5eAI7t0QZvC2tj<gZ+F-R-eNy>K~wP<2em
zet*1o8#`evItFEvAkK5nnPd_;#d9lzObIK{JDcAVi6BqOqkG#C@!w_L<2PDyco%xc
zcJB`-B0IV_nWxQDwhWhgc=y{psbb}%NS1&#l>Fxs+T9Y7U~|Jevol;{H!Pq}{JCHB
zapx%IBw!?uJtGORihyL@VFOvnDJcg4$=Pk}o<*vQ(@LfvocHlQFJ2oaU2b^HT{gXb
z<Q8Lw5>}YKhVRyi>r}@gxReo`-6=S)Y;zcX_gJjL4P+q}es-y%#B_`qQ?p1`Ix?Ip
zG<Oo6v!f0-)mJqYy=vp&T9-WRDZiL#eJ8p?GS{e4xudA$00c7o5+Vm`)$bsKdBII$
z4ENkc1;QnC%1`rOm)}4KDzKqm>t~PFjL%YEP|lPYobH&g?{U{z|Io28B)+ZrL1J_3
z@whIVAt|FtQsK$<8-0$>(bfqzlw)|;7k%NCxmaL*K{m|~tUC778hrp2m#|UQdA_FL
ziWUjGb}L<-7T?q`_Izk*1F^oT+D0qcJXdLl3~i;UP`@m!+`sYNBk|1^3VA;y!T~N*
z9GOi*(awZ&OmP^h4nz)Ah{8V6_M5dz^#P;a`yY&&q=MSLsIXo9$Vl*R4kpHhMA`5&
z7-J5FEfQ6p*PUPZxI`2tSPKKc8lg{wBKZ+o_ZQp2>Ea|wt*y^6^>)~!<yp+-igE9a
zGUvwpG4e--D!R6Gy*OgYQ+7zm_<cWRI905`@<^!5Lc<wnR$*&D!z$!A&geLwzV+sU
z!jV-;xQq*F#_ku2R9?emif+~h#V2jb{5pWzuJa;Z*bKFkDqQm8GN_k{d-4<HBelK^
zGp%qd&EjQnD8mnZ6K^7<8ktblEYuU>LK+IBaKSg*?JCu%Exn^Y?$M_cL(9}uhK20O
zr#jkb;R?@KsFSR)4-bJj22+y8c)k6O?1a2Je*V|TCEeP|r;LB_<dBjNW8L2b^BV7)
zS;B)c)|ncE8vI1W&8fNT6k+>wc7do0EyB5DW!5Q*Z6aMulq}tMaV^+j4Q$}X@aZZY
z*|Kb5vWm|p3QZHV<XLM#d+c5IiM`A2wZAZ@Ez)%9rhnQ{nkrtYTPQo$SyxoaYy(Sb
z5YZ6j{u#J#aWb&@+4nY;OPOxohE?~Ig)Nh61Cft0hL4Lz`Db<Dd9p;0wwEOQZGz?t
zWNJ^!;T?qVoErM4`}^?~%Jw7KvZmL9O)~t%xCfyPbr|x=nR6JlY#F(g{q2(D!&_!*
z@N7emsdpJh4ayyrtiT3aczM3F?skg)S&4!e%y+0z@1hF)I%*zX_jPn=?m>m&Zdxb?
zPF=eZ?Sx)NEl0#F=7%KXaE5Ol#w%V|Z$JAx(dVPlYJOcVS;JHmGGQ-Te!4!gkh5#c
zvbSf>S%A7gzG(%GKN*kjFudieRqi~$>34E#wu8NHJZ|L_{K;VB0camjG5kiU^-p5Y
zWPu^7C4F(4JH7(CHX*(8zt)Mxoa?Ibm;D50LB=jY+W%Y={V|i5%OP|f`Uxi(ZOI;T
z6!z##0_G$CtVo!%P_q<VS=a`KJ5jU7Zvbr?Zpq{)Mju;!DpF$d5t%eIF%fbgMB%^3
zPv(Aq51668{v<jIMf6^AfwIAHPjXRfi5MZ5)7pid7g61b8zES!ikR3|BV59(g3|<f
zrRNb!`rB99c1qLe*PfYtH>?wR!sxS<-28Sr6E8IPSEwoM*Lx^lnfqU4J^mBey1r7`
zg@m_5J2vs5x|3{jBzhY^B2xqEFx@EZ_6G+Y3&}Y@c#Qs=B_YN>G!ZvWLg@Il3m;AE
zHzFjTA~eX%{qQTec^9VtCdDzkK4s_PKTU8Cnf3h!7rEf74rne}lO!99B^*0lL#80j
z$adOV2k9$H1oR-vFCl%2r6`5(qdUEaIBeqwp;~34P=76}lv<HLyzma^_XZ)Rgc#Id
z-mO6+sTEh~BchPAE@@fJKXyYE-Q0d2ZClcmaK;9wwrxflUg+p72(7}v;2skG-H}O$
zNzy5Y&v&6z<X~>^D(XL`K-W74Qx6OC3#|uVv2guWd=!eKHHrCiGI1jXq?P4_!?ap>
z;E5^+kwBCR31+COWhRC0rNoLfT$r=b*&jRdcQd8b$hKdPfQClC^FXB<h8YtSjs*Ss
zND1?Gt@uyWvLg3?x|P=-aj9qVqhTTKeVwsA<psaS_U~zs|EcEqpC0@Fyu+|@b%MoR
zjjVP*d%|S{(iK%VK^V>(Nw5ewfa*?F)FR+eSi{>wbN2Aaw18)r8-pI?Ng-%td{X5N
z68wxb_Xp{$R14{Xr(dvlUeGL`^Jh*IWU+{q6m33|Ej?@bqiGx_4#l6MXi7K@Z_<Aw
zJ$D2im?W-eP{!0C7*uMLGD^}E?Fr-176->AUMmV&W>;Rat*#%X;$RBDE$E)qxfNnd
zcp@LTR*{D35RSOZ*8_!b>K8i1xx|Q6rzzSI^sMSiP^4RBmsj=ah1HQM>{MVZNYu+3
zQ?svO$&$5lcX<YyT;ksOAEfvbNn*x2LAjV$FAzdL@n84|aS4Y{2K49~o8ye$FB@0f
zaDDez>S2q6F|Byzr}bU}rC*m47{AY_4I(EqQQ8`(ZRoV15o9@L7T*8M6<&L|ozll7
zb+DtjQ()txu#B&bKJk%aH?uzrQ?_)>{NvT<4R6n)uoeXQS&Ja(P=Bbbd%6vAg?dGn
z<%ia1cIZUt33yS;4)4zwFCf0<byC|Rn?C5P_ewkOjjO}y2C9aHa6kTUijxLJY3>x`
zn~!o^Qq!J5znqZ-cArQK_3aND@!^<8@mZdg`T+42)0zAdD@;wcFn87V)pwm)>qQ|d
zXlvUKI((V*s_GRhc!Y~?Iq6n>A?h~#tn?gOn6lm9UKDwfUMG=!_)4}^-{4B#J%I-`
zoxk1He$4lq{=>tdcP8`?8#oBhX)RDQQ8d|@3J$|MgqbaTz`6U*aN!q)7rQ04wdd<2
zx&{MAj<K%mOs@{9qwOKu_Ph`jCvj08#x~K8dC~cs_zYtnfr;n4Y;{8K2`-_4h>}j;
zf*<T)m)sw|v3x5&Vi8i7UGPuzp;eHGilbU2Z5W{{1+Dw(RrW6KeeRM6ot-W^%`H{t
zzrVG^I1ud^piMY%jA&}9c*yp5c|>kC<GG)>S|YBb>YY7SAn!L<4r??Cm&-aHs?-8&
z#52BqL?}sF!WWm>CMsRxrq5;1ZQcxUzOCadke!{QRp&C1_zC)`-7%vx{EK@buPt^z
z{$0sXTKmflqckvt$GJkcAHUvI=Vn8+by}WJT>mgNH;BC;>uxKlYIz;m>>@@W8q|Mw
z36JYMrJDzR7sCeOxph2K83N(Cc~nQwwef;N`|QyLW&}4TQ&^#{@>QpI@)sA~3*IR<
z_eoI38g?@ds0kZ(*T<b{p*SMVX}$Eq+-dX^^A{!L3w{D8-gI7cJt{IT=>C4U=8{R|
z()IzFq*&}X{$L*Tw+@nc-Eij;^j#t}?=cmB<y!#NIc_?9fqArg;j_ltx|vd9KtZR<
zEgAn#Ll>W(@u9qo^kV$3H23e{vi`Oky66KxvrwB;>U<?+8>{VZ=+JLD6taRa^uo|w
zi1c@c?wgT9@w!{4Ui=?j>fA*X@~1DN*URl(-@es`)%7RWj{k{-u2jlEacT~d<O4+&
zmI%qY!PX2<T-~YLL|n&~LOAEbtwo)3CH*&&eVSWaCpvlpCG&#MbKN3_wN{y?>2Kd4
zjgDgMA3vnG<CR@+(~FZfiZO$;7BC6Mx}7+;qjbugo@DMd`2ONZ2iXGYuALoPQ&7`c
ztJycCS+@n1#-$$fD*K&m!%-3FkZxRO^=XTdwqbV-=6pqi5lL_SJY4Kgs{kt;2tjW<
zTa!(l5DRx2um%(F9xon1lqMV|T#+%NWOefXAlhT=yFA^<5h+GF%@X6vep&hQy}w5~
zH0Dnxo|#MXLTdGV@)X$2^K<ZWZNNWv)2iTQt{vIAqGC2d4hbFGjS(A$T_peP*BiuU
zp%6iEoMrdAl0omyFfskGE)mArCDpr~SyFvcj<jdhJr4HmUQ-F8(sS^%uwfzEXl=5x
zey=U4`*K!M6f<LM=LW3(vUl&>K~078*ztv%aT-Syc#vg%0r6iNU3V{X7r&BO>3YrZ
z6COwBAeq+3sGL*k0&Yuc5}%MG=Rbv4<+jWyrg;|1R#6P9ncm0E<2}`BhF0%&SG&!t
zB4Y>i+cJmHgPIZhq}9$$msDAYEc)kG_i$=bIDny|s$>$k%qZm7LwBt)LADm!+tWuT
zl0=r|xE)(l(AGbWO?4(8K2A&8qMSxq==C1BM-pibFX((`6<$TS@B+EDYf+D^r5?$l
zy=vPGLMP_YJ}Xwckgnn-pX{_tfo8=S#^5#5YtUi9{GMF65K}e#DNBHWRF^6!GP){$
zrl*~8%V~rRdQS^-!v14)sj$qi@$(&tXL?;YuDiC{ovR&u_qg-W=(7y+MrW)_>59uf
z7uwdb4t9U6Ez$IaA^r8(V;8f4tZ|p^=|lCy&}lu?6Q0b42elX{9((BzahSwG?9tK7
zKOd&&vekWpzDr$Ns4MNnCy||N)nRj^QV)KtT=dK)P9bpQjU8RlkXy#R3x!!m;fno2
z4r0hs-~l1po9C_4zx&O)g-+<%&^uEC@VQIgm*HfIZKV5gM@F=2kG1XAUxwulO8fD=
zQrlUFuBkFsFs~VdZ5e6PE)(?y?b=bBf9ouqb7%>YC*q?A<iyYRA1m~d3p~Ym5cUMW
zGJMZt38(q3j@350I{HRpJ5LNLT-=cJ+*+{rn64~p-8&cebw)ryFsajGKaKWhAb$xT
zJA2-!`2Fu(3B7OL{+u}^sk7zuN>th_$jV(6j{CPI!VuA~!{rkbI_*B1yrZ0MWmm^H
zZtOZQ*($$Mosl~G`b8$?-5n!)M9TW*;l5Esp?#0_B9;02OOS+Wv<mW6DPRAap9!ME
z+>WvLhI-3_(EfY``=Z}m{3c{Yz22MSnNElmj|QxctFT=K)IKXaAhMcJ)72pX@3En8
zJPVH~q;6|T^vm=43>73#Jot*pcbeU8gc<h=5XXFoO`k@|D98eDe<)TDo|WhbQ)@og
zTiVz76*kp#y^al0zi7&5ju9Q-#og%L3ZE8$wXusPH7w-f_v3Y5><$OjexaGX*j=6e
zmZhhhvem(z!dFz-8OR+T^C<{DXL3^J<ZThrSJv5wSTOLYQty3d!0@1PublGQrz7cn
zF9Xu0e(+ze)LGVg{%uf`qke`Dc3XOoI;bf$g$U-%3Bn>w6{*^IFZPh}Zuhuchl@pF
zma2}`&OWBqkNH2w%Rq&Sr$=xRzLsI1ekXLMEkE16g6ikDx0BxVzcX|p*WQ;=&D(7w
zv>AG4DQY<MLD`Dbre}S2?x&iNAoS+<283~M&Sy>8z(k{Fv5Wpijm{J4v{Ry)>V$6{
z0inn~<8s3JrH}EMz7KzdJfViQ*qbGD;T9|mR<4-f5X^5E9Bdmq?eMlUe0CN4-PgQb
zb*}UTIox-SX58J6f6lMP5#ozQ(1o9GJjW23qsLMYhm1zX4C@ti=Eglwc8kJYb>-iB
zW^{G5Ku%w&+0!)K-!00e<%Ru>ENv|j&%2wHf@_GBggs<~Kws(%0!@%!o@;*MYmbT)
zywCacu{P_es7`3wkg`n=jn_rYv&0S8{LLcX4_1*CzcwtEs_}+!%+<o#hg@YuGOSM?
zyDRV85$a5wlNfY++!^TitaGPn+&Q`zwPm)`7{tIk$N#R(XInMX5xt~}a5adVdR+(T
zx1Sew*SB)NR&XnOV&>wrt<CNlZ(5)~?u$}-L#y4+q*FC!(m75eD8TPB8iIVDp%**i
z^1a7t)SRTDGSN=#Qd-zjUZ}0?{Jn{W#`=gz_04V>4~>T*rYaiV=e}c3$4@_42(9b9
z=n^CGpj`R{Y%fBGAN3LWDAj?9wL-atoibD32A%4u<qLlrtC^|)Mk;T-(W#kA4H<5W
z^|0hRj4_ErEPo{ucB_X&)J9KPi`HZ)JT9(qvE~H^3xx?TC8#`oj(U@C<Iv>ia@v@l
zgy9m-6d^Y{R#G$MR+?UE5Vq1F9dRzqzuisc30GYu(QzovO3Hoi^x(RszaTm1PXI}_
z=o4oa(EqNlaDXVnXxR?V-C7=tcB1iS@yQaMHXlr19(vnQf{a%83KI0OMA6-nh$<;&
zwzV2Pvx(i$MvYPLTgM7D#==VCFy9~0N7#lX4pY>OT>~j=&`*{7T}aW@3m);G!_{Q%
zc^9^h)>iUb+veFnb`rDg5vai&ZIjLrTB_5x(C*zbaN-@Pa}aH%@ajbVyf3*PTQgK|
z(<4{g|1Ibl)l1IIEuU^39k8}X20Yr>8A@#peC2w(k?-vvhqA;UNe|=c{61Ga@o-4s
zjrko!{v3Zy#8K7iK5VHxv-IwOryM%U25H2%w4xZhzu4ghdE^*Hq>g8TbQ({+i(_jW
zyXMdp7Uvziv~DHUras0#!u&3oidH47qG`j+;SHxbq~z|Pv9+<75h(0pO~mOx5~RuS
z(3z3WuwBjOit*&OPVXH|C)Zt+qRBE$w}n<vka_^pDhN6)QRBvoyp7qj>g|1vG7a@X
znL^6u`1X=J8qC+u2$*dTeY?ygug|huh=@2U&Ky>`H@#mW=tj>%5J^a+L3G__!2|uR
zt+3;v77m#5p9ncod;MNWnRWBTu@8;sH^WME`wSi~p|Dt^a<9jjSI3BxAW?8xwr!m*
zb^5N2gpiLe-#Nq=iIGi#1+keES<HY$>ce8{d4WqN!XRwnL!ZO47C*-G?L6$cW2;SA
zhnn9|L<PK085)5O%}knqh@D(e9G`AYIdeh^4*IS{^5$_7{(-Zo!)6>eVG=d#_~tO$
z8>p~7O@Bx9Fs&o8Dx11;S-vcie|;t3J*HKgS#L$)9&9p4pB6bpYyGthjU4Kx@S_`K
zNs~T(=l&7qyTc%QV`{T2lI}QcZb3OERi7XIQ~Bd8#KMs^6IP$(f!hAM1Cu7-%=(D;
zF_t!M3HPdee73DS=1NbPrY+hg$IJBixtGt6Ry{p+wDfyC@>O6H^<iPBezOY{7f*bb
z`~@2O2p(xS{Gl{==mRm@EEL)&r%!-QV@E!vubj$!Dwx#}-9T(@vl(2MfM)Y7IR*=;
z#8+TD>@fCvAtOQ~4Z3BSBHWH4dal9+r}$icr*y;LcdRFM^J^?B>J>Q82L(n)V1DC?
zWv%SRrj>{$ktcP38cgyw;=b(4&wGY)6cmPf8DerX$nhm)tE}+6maMZPz1Mu`EjwyT
z<&BoEr}CXoyKb!W$tN+&7}IW|ddVdHFfG#gND&1Y;|I}-A}?suCY%)pu3zyHh{hx3
zi_XI9p`RLUXUI|Q?2u&cy%1|F7+gPwzA1(fYVg6*8f3o&R@qCD4^$Pl7JJE{dsW+B
zOZa!bN@<9qE@Q6tZYhh+$FKjivQ&IcR<wMybY)@7Fvj}=d{g4=->)(`HgjG_3KZEt
z5!Mj*m!kS_Ps_}q0zOc8QpZNjjcU5~dz;#>iove~mc&e6|M)faOeANMvyV_}uGU(}
zE0I?pcOzUn7iiBuYZ@4{ELECCT|9;VtIaN)*82U4#EfUpg@wyuDp`|zC1-IChJWvt
zkW1d&VW+DUh?7I(s2TSXs{`<NH3Vb|@>-BVlTf|-?#-|~BS)qqoJ(qL^K0shIQ10h
z5R+t3H@v+`N2nbX7gpd1g`t~6IBI+1`Fju{6jv3~z6Y_?ogW?W?f<R?sLF_3)X!hk
zUX(c7K7-T{aMWlzcLU9;;R!z;qI<2lL_e-*z9{{RujxjI^8!_A?YVT!En<H7471UY
zKWO4aQKQT$1|d8LQ!7uL(i_?#jt-8z#dF@J@JT8J7iTu=ld#=}=B+*6>Dh{AQ~r|Z
zUXv3#`5(l&^7YSNP>8OJ%YEm39ZD|9$M_b96%Uo-j`K=}Wf9vV*pnL|ld<xl|G4O`
zF-%2kPWB4;CZ%@n(>Z~*4OedMbVoa-^tHCjUF3EyoVu|*Zh-f|H(VLJ!%y$Lv2g|0
z9xj|`|GqDtGv?cj|BGCqfkODa9QTiB`e#q3m6{vXb)0Gty#^((JHv;pqbNI=1*fH^
zo20NqZ9A{H641;)#MkOhdg}Z_{!9E43a_FgmMl}yN;6_o#;};My0!4k_x|Tm0r}Lh
z+~z;>@}Ykv9UdKR$&^~>*VH12FKr`=#mOT+3PJ4=7LCp%Mx1__WZT2(S2%(%>M(Y6
z>AL>=rf`GaY44@vM@FzaD+;Erk{R>z#G<yH)%A>O)6Li3S{qFz&bz7OF1n#D-JG_9
zeUT6UPEtZ5H$t+-AB4Zw*YEY;Y%t5Vx@g_&>0O9<I=EnYDndYeM*W+astYeXOq;Y~
z2}t!7Y5(1_IEnBY^Mk1zB@rg;!z}Ru+1IDvD<{=;a?!K0NqpkWW|-(c{80PD6Y*En
ztvW&<T`q$ZI`4y<Y>mYKvFzIX3RzL0XzJ0N-scKIrW^QhzR!a))5|OMCYY%KH#?i0
z8eAJD5U#={=G%EMCX~*tn0sbFw!_Ap(&#~G5#P$sQmMmoSR)+I(n`u^t!9tNxcOm1
ztxS3H97}~+x}Igvk8nsr@4uXDPo_3p&{8q+wz-(8L7~){^r;+^2<xi4KYUuQcT(XZ
zxfUly2*o}wTT-We+>Z}RpQ6?bUWj;PbYr4uLM<iaY>X20(^qZsPkx>K(^}LfZ<P3u
z<}uvO?T?`Cq4ZLUxUg~(_UgH}09s&aEH2+)CE5PVJN$5qer^0<cjDGt`HN(MQ!GIs
zc%PO=*^<D_x#o=&!s3d7n83a2{9Vc6ye~-2<@BvHlAD&D+y_ELDqFk9p|RzQ$y<K3
ztWKGdHS=qW&)Fs<p|P*WB^2IxWOjy*N-9{BGEt+Vt?zD-f`}qesR<(6yAZwB^FX;l
zRykjo)Zb4}S?+n@j=fz*Zp(-PC)pK2X`&9-%+~cw75`2P%C~(aQt+rcBC{iiSTKn6
zpV2UN@<RI*l^c?398%91*V?=Ovr6^jvLMExHi|pXf5?N9@8XT_w|FW#zwa=-Y=0en
zGvS;|bON{Y=(~hY{n}@p;)GiVphA)YDWQ?R)p6d97`5bwjxt%<3yPW3`Xtp?L%Oba
zO2A=)lR6*3+*8P@raCG;LD_3BTQoniO=xrF_s(FCL1C)HOMR!&j`PRS2TmuQNIjFO
zY37<7{5++H4vnyQT*G)gA9)=bF?;~^y`6m$cdKQs!ALFq<L;HhVZ%`NkOuyBJ4%Al
zq<?jFj|uu_gU~6yUR!<_WmK&{*%+<VWZ`PDs|OwWvCHpbNV@$(y!Pe@D}2lK;G#dC
zYnaQRJ%xZ;G~$#9tFI=0u!9tQjNB+nS$YA1hnbSzlq7*yV7sbwJ&M<7vDfTfg<X8?
zta`<XsK}UheA!c%`ioaj(s<tmvs~WH!-lA-wIGewh#St5CBul@9<`=C`<k<Rp*V6H
zSyA!oaYP!LUkK>|W@v$cKeYOJJQh0iJsWDbtTh^_*^+vul+_xAWRF>OvV*g_W;$z>
zwcf8SDJD+}8z<Ww_jvGhfwjZ`7dOdQH?UGs8m7W0NA%1XUPF79fIw_Ey~R(BCM+3P
zxYmx8LTLI_5x&<;2LD<>a6#!7*PrC1y?Kbew{|Z4U$5_BE$7+Wu8QbH@&5Y~A}O&C
zf3<nE%H1FC<Fm|Zm?~W`RmJ$kA)sDvUmx_?qyNL&ebxsD4jf?m443~};!_J!Um3LZ
z)o^BPQ$yF>-(2=os>;c6+$gjxIzlMP&ZZ<bV!erolgDCOCc_p=V!rwkBbkgc&X_OL
z*~slVQ7saupc;Prk<WNt<{7Y)0P@eT{nNPKL2I9IGc|`33+xt(J`s<`xxT`V966$^
z>@~bPh-e7QghuY}cpySKdL7tr#v8ruVvG6;u88fdf~(QHC!D-l_jlG>n*3HjarnlL
zWAA)<I`;k5IW9VVl8Gdfvm=pH?~T)G5;8JfQW6pcjX_JJk6pVnM(C-wKDD)h3xi*#
z0ad#DwNgYx#FD--=Z~GN%QM%+S9=W1Q|@0;-`%CJz<zjVS5#DFfS>XXY&j9Dji($)
z2t_cWPDS+SUQD#td<-tau4+Bff^`wXh=@mw-RF_X$;lSLl-?b<iLixeaAF3XM)dWa
zON~6v&^b<RO%^0(IFGJ-6|@HKzp)0y(>_J7;qq9KxwkR=Z_YQBnCF}9Z({D!vA^zz
z(3y-$rUu^eQ*<oWcXA?_PFsp-V$g`|Eicdb2d+#sFzxeAG6&Y&!#9^3e6k~GHj18u
z#eGdXl#W8=e5%RTs@3h=9voiRMoKxO7Af-_C*PKo)!ZYqVJ@N@bBxoK%r7SD3(!A4
znEvjs_v-BBDyx#)li<>R$l%8O`hq7T$XBi@Kij?dEX+cerxqmUe}@cp?R>3UWL>6-
zap_1E0R9g$T*S&X?NrQve!^**fH@(gJ4V^)GwtyjucHp`?Cj_xkw^?U4N(ri`q{D!
zPiZGQJY4%`ZnEVNI-4>r?EWK1D?k4>POx1s?6j=i9}D4=bN=gH%5v>N_K;+*GNhnQ
z6*XljtG{~%-f{#ZInpR7CYCQvW9sPW<UKxkbUUa$Spo+)v$3&Re$1sgJSr2R%Fs!m
zwz7|&hv-Wy6L}yzZxq~2sGlBlY|6^Ynk-l^{GC|Yt?F4f$#raV%)bYX3Yg1FYvgJ2
zrp&Y*6_Ge~B;_c-ddQRPotVGQP^jg1zPxbjdK0)^7q}q0+^{*JhB7{<y#={(;;4Y;
z&JSyci0XHktGe~4PM`MSyX?^~h1^$#U|g-Zx4<TN8ARFJERFE2t?78!Ag5%HlJ}@|
z=<XI7wwk0g-k1ZzB|Y}V3oBocm)R^UCSp`f=y`n(>^5AGtKXUrAuMhKXKcz>y7g!V
z{`&mHet%fT>YwR&=7_2NV6jaSbHLgm@UJJ=T=sJu+fhP-Fd=?HoqDeA_aZhnqG5%y
zzAm&hS{)8M`TQT&(36omT)8_9w9$n*5bMb943&XQY?)1^=p-WJZB^9<*P~Pdf$*bx
z2tlMZ@8`l7dJGgY{{jgOa-OCgds?RSEYw+_4&q0pyMWrOCorJ8_LaM5IDDmHrM06Y
zycFO=!1VW5G4=tyIxQu(xbDD5Iq{m?AFPH-?R!eC%O*5xYr$%$0yCF>Ee<}#87$Gq
zbG9mSaY~s5NCZ&G{5^(B8CO|IRP8y0{8`m!vM^UA*qdakIih&}SiD1BfV&>NZn<v3
zC*B@&7es#T$b|C9w+m(xFq?ubt{iCS)N?V}TQ&E89oC{AVA+itr?z}Wbs$W5o&%NA
zh1EQ_gr6xZ+3YLba$j&KXNuJ4jIkgsY~%NXLd!DV7cXA$YwZ4+rpr1s;xF~C35Oeh
zO~nPw5k4oGsLs9IrY=mTq^HxzCc;-D^p3Zrw{JDfpbX=V0V{#L*sUQ_J+qrm%iOl(
zY3f>WLurh(CJLpSprLubQIm)3;?5~Amm$0TZ$vzj5fc-e!pdasUTh7+jPCxKlf#c@
zIIkP#X{2GMrlvCJ%k^d7<Xg`7HJN0pZjxqaU&)Az|2_WU=DT#+nxD}oK8!cnN|y%e
z*rK>~S91y5OSnmjaDi+3b&Jj6cZBw$8M4F1cx>5+sw%}v(`~n`P!a_0F;=rie)8mr
z%Nj9WgEkyUYhs1WI(5h)`_!=*dzg5w%CCR8NnKeQ^+UG44S|c#P6&}i(`BDggc9|A
za=#tTz^0|9KD}La??KlK9x2tYjg0_P!#YxBif~>d74LZE5bC>`!4sh(LE!+U!tu0G
zPu_1X)~k%oNgN+QaN+^Z(~8W+${yX8w4r>{Y#(khlO4lF&u`zp9WYFjT?zrIAADXd
zXi<!X64yUQiiO{NK7<Hg`T_DcyTPd?Zc^`w?{N9swR66Bc}FH=bLFzr_m`eddeoGZ
z6vnUDV4UJ7pMTwjDZ5Vo6MG$V8wuUX0AazZ2uYZ9S>K|kff`P_hmAuP&PA-Y-S(br
z)R>i{KHq+1;apVG6QCxy<+;GXdLl=|Mnm1&q{Wp(DKn2*xV3=uCR!0Eu%YXugMIIf
z)ru^Oti-yqVNAdLCx^@%MDH?7)9iyrMp%`_37f~T7aLet^P6e40Xx(CroP3-!)U`!
za<*8nk?SAbIk@=8?tF?qAjZOtKdWE3vY*NI?8Qr}j4egjomm(@*Pcqx%bfgC+fn^a
z8nsUJZOYrZZgV{16FzjkkOdh6@cI6NzLRAU3>vT2fY88Z%;fIpk}kMNlf|e%e4dE&
z-Bg|kak}~tU1U|_!2noSjog||qjzR$&;?3vSC5{x9!e%QTPz%enEd@I)}YKIN!Q~?
ziT~|*RXx5$D?U&-L!*Q*`%XM8=%Y=8G#U~$e$$zPVHLO?kTY@fqty!|xJhJq2QZ3C
zT(Y0vOrl<C3MNI$8f%<~)Jj=tiP#(;y8G<~4<Cg>d9hMU&Ps0tHEun4d2A$jozz7(
z$<~bcp~GvxaSzap$mhli_kQF!Ey@MA@CA<<vM7TH?V?t8<nGqDGza7s<LEi19r?!M
z3)i1kWnXzP<p7R~MSzRiltbV{n!7XA=sqCC$HcNirbcg9dqm*CxrM^1^MOyz?I$0u
zcX4ixdX^c#(|vWe&YOru60zP3${_PSJqC+wJr)K_r~u`aq=WiLUDE8a(38(MR92h!
zyTJ({rd8B~5?@^Q92`q-uQjON(I#jJTy^pL4u5s|=OW2n<2K)|zThoZ99dwo6Q+A{
z^!VP8nY*VunGp`m&N2Amrc>9SwdoiyBDQ1_<Q=_n^)sjSX&#;uS-@40pe|%{XMgu)
z%Ax&jEi9^nI$z6M`%d7u#`J{=<os-8oouGlYB<uZ^YvN}K;{zq_Ci_w@?=vaFP#d!
zP~UBCsu5T%%vf+>)>Q*$B;w=35mB;uczz`%e?5IUlO}YY5_!9CjuTV||L<{p^$s|n
zai3%iaAj%J)C;N9(7ZJwU|n3W6|N@6lXMG;VYNn?d44y^zgxwv9|KQ1$fR`0kw;o+
zAcGOrlSq2kWL=<VgSm-{OS$d1nfw07%bt)$^dFH!hnj~RA|s-N`2v1u6^+r*z;Msv
z_|y>9ezWZ`kaP{-`wPtJMwzOXUt+kdwX{Bwj`6AD*Fn|UDZ3tXEPagfr!RZA>L$v-
zz@TuiL@mT>g(k1G6x&q3ffMHPvv+quoua2O!T@(O0EkiZ5uih#)8=IPo$JdAJ?j2w
zVf*`^4#d9#O!oF74R95o(2ZU_*ef|VkdeQ{vLE_A6K+`hel8NWHIo#H#qsd)q#(lP
z@}x{vW|Qx9y}2At0*vB!B_Oav(_~3NY}H7eXn%W92VX1=9sKL>)d)bse6D~9$wo9G
z8EitjV99a7?;o&-tw%vkMkS}Grw{%XZ<<v*JoONwkAMPNAZcrx?eTALcns}SRadPS
z6y1FHoeO|p!#fbMc{EQl2)20^{l4Vb9CZRDiCO`u%{Jl5wUfJ(RyS^xKUkak_5}p%
zxmNl2{z%V(!fOA|{~X5A<_8v@1FFSX>NhvFCxF@~(4#`m_?4(HobNl?DAc32f*(N4
za)g!$`kT#hYBG1$xxf6nZ#}npBE5;L5lDdEowg(~*m?Ty1C&W*qKU>%BW!1b7qK&w
z<`u39(!_nOjAf)OkdCm72--;SP?7b@M^?6HEBhj-fb)9CO)3v4T}t`4D(z#t1tM%0
z)eoF@)Q8UEyUqX$Hd&{(<_ll^C}&+{wX}Ic96(i>ruS%7Wt{5#hkWMtP*YvE@(KD|
zZ-9^zuf8A2eF!_NcyF~xSjN7t$_7e@ZU2790RVs2s=#bE4b(Q#Ij+!n*zTW4YQf9W
z_j+@`y&UF3e>|(~gJ=AF%$3FeT>BcRG-I>;jUWgc`RO|CgH`T*lXXE$+ZDo$%_gRX
z=!j~bWGm(I6#)n;%?OrI+&(y%KiX}$JGz}STJ43U0?`uLtwJ^mIAW3+zFZ5_cMVHn
z0n}!}#~m6I%dZi(qx|7#Y4YyYQt!K#ZLP-#HKgHym*Kab3B}cT0Y4s12O5h0gclJ4
zySX*8YqT%YY>9J`xaIV?aBFMJRv==dH}c!$_KGmz1esxfA|hFwfIZWp;s_^a$7r>u
zvONj_@XRpw{pi7cSL^=%#L4d1636!hWszr)@{fb`_T~!nI&+u76q<tpInb7^=x+8!
z-s$^!`dW)XwwaaHX?_*InSt@T!1^gx0-wuPqVY~lP2F`^nG9&(oc?~!H$x2&{1VR7
z(pTOBZ+6uOF3^I?5DlprL8I=TtVmNpGEHHOfJnIN#*gc6dC=gQ#gWQ%144yMM_gN1
zm$%#kN3p)}-AOlIRPMT-tSz=U4wLdRG+=pbixam~A23ImtzT&@V#SO;)}-J_#g1S%
zN7PInflJtIWOUnt7~1AwD_~Kd+J!}$dXND?*MFa*vV?^ADalyviz?t9dPE$&iP5z5
z`(6C8jp67kO+tEc87vy`1@NwZmpMWnA15cLvQf4sqt`i3j+hPqX(}0^m9FIdzB3yZ
ziE$>OGC{mngDR4t>QCyNaLWuFyuN~8?{*Q(xF1apIH0w`i=6+p$@rDuw0bfCxi*2M
zFR5-$Mn>iX1&XBuzO+dMWEDYEq7Pe@+Sw2#ybHYrA(+?`_^S|Br4w-n<CKu;>;v)v
z1wtW04GfQ0^Uu%6O|vsI$p(b+;K}hX?#$uZLEzlJ-5)5AEu^B)SO^{9d{}7AF+NcS
zK=)UoCK-Ry*!CZM`N6)PRs+00cAvh4!@V4j1T<R*Wr6dtZ|Q~juxiH})Rv>o?c29+
z+`j$Bn)PF4mFlVS`C}~al`h+%9IgFBi6`m6?N)F}S=rJ=g9ft`&Rbd;T#&YPBG;7y
zFYk!LJ!Z^RXy4&#+ay-K4tfElxW8kry|v$$fuu*;0-=bd!^xr_)`<XIY-mjYb+4$5
z*#53$pxJjZ1m2mMnVnt!!!chHL3Q)Z0-;v}*o=vklvIZXFmI{BM&r@krd4yUrWGz2
z<4Ic1dh9?`BvW?0J~+|?=r{%vX#2-3#2;<p3HFN98nqx^h3NANh1{HDK!Y0%l-?_+
z{Op!Fyb?vR0EoMy1giZCAfg^yUDGwwadaw+NU6JZXCS1kOTA{RdO+6#+4L$OD3<z8
zYI2-&dm5&q0@}j$1`Pc^12PJ#f=u>9N?RqMWubQnV3}^d5t^_8aQ}+m7G+kCrSZyv
z#tWpl0j=>;7{H%*Du%i+q_%r@`8~jE+mh*!xp(oJVe%<eSb@l$kA*}mpv0Dmn9rX-
zzd};F16VfBfu5l?+YNlkn#hdHj`$^2DlG9D*_^tBZN&c%0iP8#kqIC^HHmw%CPlD&
zg~jvY|CXOROJ}YC^;XL*YV@bZG+Q%Hh<?|Ft^jwbdf4H+y&&dZ=3jt<GW)U*_VVJl
zNa?1^z7spI!C=;M0OVKBuKxPc6hOqO(>cq+FzdVe)lIDdNR%SL+czMJ=;^|lp(Hf3
zaf4t81Egq)1TJf-O3yfWX_UHHV4hEdi#R~UP1!?kx(}4t1}6#gFw1qn!Gw1*GLk=k
zzUGiP1=3F19`M>;hY0Eb66H#lX#x#}bYY3}$JAs$td6*44<ukf4tF6>-_+0F!Q=5$
zC={v?#@H}_WIhTKNz@M6$SQt-1KReLIW%2HxtgRamAHcXstZURj-H|7FA6##NPnPL
ztQ)C=wm^dP-ptF(>k$c0cV)e4lBI6L!Yu<-ncQ7~%XbXnu^Cw7OjW8Q+=GB=8}gZR
z@-bW&8K*cMc%T{8o>N|azYnyIHW`yKF!t2^@g~g056G+S2;1y}AOzIgqR>0y#?oz7
zZ<(csTWdsSnp*@xr3vU16|u|!LOIaM(aYoYut~s*1oYz0hf)EFRm6iPj<xXZRoPZg
zm*62#VT@55>omSMf5uH8&7jlLtnDl;k}1!I1-GL?n`(CuSU2sxN#-ayQIEg&{-4!f
zLv>5GS&S#v8qxP6QA={|Qm``G4&a5p67U$lpkXz+h7AJIgbtXjvaxxAgCt>z#kURt
z{TH_QvBec|Dz}9m7}HMV*^Zx|A5h`EwcWv_S%8#?HB!2-2dKUr+cJ?ru>At%vL=?r
z?#DjzgLIy-MbRcBnFo*^Yqm(>2kTP1+KS~!CVlcT;Lp_^`Q&up#;pyD4)x`lX{3y_
z^o|RFxWLBk`J!A_wl{*_Q`*FX7QQ@NoKJ~b$m&la=2lN6GQ$XQ{pnveena-bOJg+;
zrW>v89(+52kn*nI0;4ivF4wP2+yk6lz-QgA+Qae_=p_WF3THm}ex`D&ZwXMmZ>TDt
zan+$-rCFQCBv34FoOuaE^e<LE{-{vYwfj~G80sL=r`{V`I2Zk!!)wH2L1CcV5S5M9
z{1DV-YHO(GunQ{mtjPE}5i}Ln2g@8Lz4m%$?gWhT=U?}ow>Rd@c|qxz9d?Ru06Nx%
zD>RRba(iSPB)V@GWwyf?0s0Q(Ig~|0UWYR1JjLyo#j_9as#98pn4W-5W&>@KHwWl<
zHFI*8hV#v!N%ic0F5;i<-L0YWYLU~7!Vz|M8FFyY{)mHpWhE&U)QwPWRjU6<3y1xV
zJzvk`KU9I<gMr@5zt={FKRV?fSo>QeY@-TvjwXiY$-F=h`@y$?4@Y@;c~>ZnX90pC
zLAo}~2r&P&+%bP|RL}r8|74_{O%pO=qR$jIj?sxd{RLpb*j3b1E&<Jvf{e|H@Ul!{
z&_ImPm85d!?f}yAP#g{dW{3IeZ~5F%I2^7I#R>3-&Lr|m-zv{ZHy>#TqpIcs`Y476
zo(>1Oxx2a5nksE$mZulbpAQC5Vgf2NV57u%Ryi8yW6(F5`NFTxt5D{_;WLzgf|;j{
z*#m+rv(p0GeK2eT%B`Q53P8zm`TIYcTZHF6w(y@D1??gQAZ>1bF|h`wQV6Fl=6aUa
zz8`1fIKLX4UzeJidis3O@SWftGK}ed>-O!lk}@(!jbC4Sdk4g!FDS=ucYvmC1l=vq
zrWd9|06cv~=0JaJi3Vz|O58)kr<0US_Px{xV>zcA&(Eh1yA-rI><)PQ>xHWMz>ELw
z0$BVH1iju#4aVw7gRbnuE9d!{KtB#_h8t-CND%YuGghv~#`iV8Pb!I@Tn}gc3tC6<
zrX4*!ld6I9{q)7&RuCTHbz#(b&!*k&g?IGLmC0{K4`D+uCY{Fl{yL}R_234hndR@J
ze_#3;4x=6_l)K03oqjo{wrCHpTPUsHu3sYKn)Gq}$Vma@Hm4ktV)$NT1xW8B@NH1f
z!w``Ss`t`v0N{0@KstE`e?Q|kmS)5-<M}tT4j}{~KsQUfvuJUiVOr36jj(_uLjWaQ
zMdE46$^QUX-~SwafYYP~NOSx3!$7-$<22L*2QN(HQotUhuJj=t)YD^pb(d1M58T|{
z&!v9J4QP&zp)!Za=F3BN{zKpwce*SA1W4pA@X(g$!#a>`gXwC)KJkaSMQc*Szwua)
z34|9-RrYAoe*rq{*#uf#WPsaSJxOAwyZ#T~eBpxaM6Q(qp5Zb0^ys-l7BS~jbZJjU
zg7BUrTVypf-@vola8CdiV|M!YXly33esK{2iBiUcvJiY_92!O)u#N<1B*$e}>*qoT
zq)DCk$dik2Z+!3qWfV~Xd|_+PrJh3>$AoJ_gyn7mvJdz@+KVg_=^b%==}k5^DA=34
z^dwrceW@7`A2}BnmlyWOC3q&-mel{d769430+?^?awC0tL3j>Kq~J?Hx_zTzS=AHt
zu6TVH28xEbSp}9@ke^lewJ!4^FS0ZxAdcq~@NohLXbAEwC?VN3K+9vx0FZ))*(QRw
zUIWnoXJLOrBmXSPjs0npL(?8MN3l(UKJd6gs;vF!T2}b-nILf4I~RHm9z84V^CRa|
zAuET!I?tnvbGFYy!bNq#j7cqsH-}UV5V{rNJJ?vc#y|D&B+;WR@s)jVq+&J(X!0FR
zW#!;-@l!7>fRG}Cn$$fvR5oc2>O=i+(BTZkU;YEM1B@jzEY$*jUvdYt5Qgq~zXjXn
zq@|^88y{}H0)yTSW@TPwA3w;?6&AQX1}G*!E-?<kd~@s-XhP9{#RzEDx^}%O0%a-a
z>6c%8AUJkOAXg&ifZW|8vRrTTunx2i$tioIB)xV*RJTiYbaW8wRvPKDi>z_6`fykB
zDJ)jJ42ZI7xm!<GkJ7y#jt@Y`n3j=|K>)ps-F}e!HoSKCKRE$%zZGjf%8I!4kxDm*
z!ME3AlnbrP8bv{uA8@&n<%tIRdPf@Qy?=NY=V#Z60X>9sE%5@dz4;B6x+LohpOlo6
z;?%pCn2gk3w{1)d0D`4Igu1`2-PJaGE(k#x8q6nxZn9@^OAvClJ;hQ4@Sc?`K%z#%
ztH&r)IHsIjLB=Gjrwaga3_#bLAz(DJZ2e+|eRMbg`CBm1^@<U3|JnRVxkVPmQ>0$X
z<E(o;;*oGB;HEHT@6infc-^n3=enOyW|>5uu+T8`jwH;<Wq{}yp*;i>1M$bsUs+8A
z&FRRLq$Kk<>FKs(pi#WF|KMLCUZCdV28*nH)7a$ajue)$mAe%lZyI#!Ir&`sSW+_W
z{1cvD5X9l@^8-a(Hsy|=bN~`hoOPZ6LSxbxwzGPD0Wh><UZ91aQ#7+Y2Sl~{B7LRF
zR}FLw-m<1(l!#Qe8=-kbt{;PG0;AioI?&dNkED&b$*EEM&0Fvw4t-tfH80he1ar-9
zWj5<ZvN<X%sGT~}yOQ?^D5fYM5LIr%bA?5v2JXlj?TL`-S7Cc620bC8sr~067It$R
z`>Uv}7_@>Lwx_La1nAh-%?f*7$6#~B<YBK3UPx33d&nb*J;=OC0l(G@0(gLB5v)2T
z^5G$v$no2YkmuZDjelEYL85-<^?}g}nFFnHP0FhH-Xw6y8Ve-bf+E0*yU+-+@?HlB
zWJ*4b^LRPPoGCcm^dOoHq{i}5C=7BHFv7j>vu0QT3njbM^EWRSt2c5F{|2|Yt^sNO
zpLy4mQ?bPtrh~|=rK+qg;pAx>LvEq}?I8_!+2x?JC!hBxSX?Gj|J~>6p!cCC*S?LE
zf{F3}hqiJ()_q<dPL-wxRAMq9lp}`iNdb>AYiu(df}vstVF<GnFKb~)9_lGP>>`n8
z@96=8>3-k|5*9}Sg?SESkmbSCCY(p%sCl>glWg-ctb0VkyuZeIHiWR#YfSyA&O;O7
z!uFExI*?Gd)wgZ6ZtmIUb#C=%8yR)0hBA%hw_etJ)8J7@9zo<#)t7S~8tiN5h%$YP
zSAW8}*&cNHAt&#QTRrP8JP5?%Z>^WD|Fw=Y+yC%zi~rln@4fGVTW8^{WvhEzl)($u
zJ;{5Uh1vi7xf%bj9(vZbe%}p!0s>X2f5cESrOFtrj=E@5{GaLls3UO@U(yrd>a_mr
z1RK<7$YT8sLI-MBY|b3+GK*0A&sC-zWSi(zwIn2=Xoh~w!NF-)xTi3<r&dJ1;=c!a
z{aD%j8cNqN%zpXPcozy;m6fTOtay_U`E`=@)DW;m9XjROZjU<nbtkd}<0;H1S@5QF
z@~u8$V$eU1x_tpvntZ0gb3thCkzbkof4*@f9^$)2v?c_~Gn;f=Ppuq+#|nE7l$y(G
z7Y{WhZ#=7J9+fASq53fo3ppWwB5BL&h>FV6O-6oSCPv}v$&=S!yIs;w)~dOGhCNZM
zCdz2vvGb>H#$6Q5`8_cGY5zXS$2n7<*mMqPe|>yEQR{}b%c+ZOaKX;wC-+^D_YcEI
zTFeflypL%JFB`2MnpoLfuq<N~7rHTMWtG-pe+JEaz;cPGkH=TLCzD*iN8SJpWq<VL
zAWOMogwpz0lJ)SOX)gKgo7f6p?fkPPRZRWN=--PWB|)~8od|O0A3V?C_IKp`-nxr(
z2~okj*shn#W#xm5JqztT|2|(r*Q8l3awYvtHum%F{O*@bmnYz!b#UTDZg65-*Y9Pe
zaaX>o#+dd@THCWeaNK_qe6TQDnfaNoh|6;FW9M01!GyzjU>Lq(J65Z1FIjXwJ95tr
zLrRO0IotVjYkY+YMRFEpC7NS1Bv0PUhkbAsE!O#phXVv0#y!g3aFxhr2T!vO-aIP$
z)1GgogrDGS`=rRXDrkM)I?cw-nmRn6`8bgEq$J48RGG6@U@$`^S=QdRq*`JTujNqD
zuItZ6)~8X4716<g_O}?flM*(S1~iKL3T>^FOR-8LgkKr+i}S_v4*3pg=Z@@+av>us
zSRQN5REc=`DYK9{cuA^p<uW6zAF^iw$Lrjy6{mU%koSJR!SU7bvkvcdWgjASYGeS0
zBOiPqwbnYXIUvUIVbA90-bAJ4{V|}nKk^vQg*Vqb<%F@mQGVxeNDJ9#;Qid6{jpwq
z&~QtdZRHQXO!cAaL_p4S)=tgaLBqM{Sg#;Ie;oQ3gLMu5T}5-rjP^6LX@SemRGf>o
zgT=myfz>?P*r~m+cf4fvc+a~plX>t(3&kEoM?A-Tp6Rmoj9O#4&}LvMe_GAby10A-
z>$SytAL1PQbYOJ?z4nTCU~fR>yN5!^E7ujK&3Om+uBCjL^#-@X^oq@`y(nw069R*f
z>wdY?@IjPyh$w1{@gQksYCh)uG~fPyqUzOuhr@S#wKPuo*e%bYsDH!gM5WH2t()}^
z{~xbwA9!K_%VQ`1T^IB+`QJrBju`emjD`q_{ELWxOR(+1;s3*jz)Jrw?Y((elIi<5
ztW%TIlseUvnW-}q>QtJUsi~>cG>wsKx$l-Kxu=G>Ay$*tR9a}7B3hP9px_d2h}fpN
zSBeM-TBszbxFI5f?+t#x-)DZ$@gB$f{_`Ba=Uw=tRPOuQ&hz}7pYuGg`?{MI|Ga1?
z@Kat)Zxd{(koy+USa7JcdUgJKI4f#wL%^TEOYr&|=34HCQmTNmx#L{kra_rV(v%(A
zx-YB=mW=+&bL+1-vbSPGg*>Bb<%)dt!vE$A@V{0J)cPt)4W;ainOuD<tpK%#UJ~5q
za<ColdNV<NliW^<2lg<=4x>r2#3bV#Q8I05+Z*9^ZIi}(V{G0uTU73Wf1H_BAuVm@
z`NyeXwNAj-&IsOyQGJ``dj02{?^%?2;~C45s-#3g_0)<`ynGcFZR0Lk{S7V`=K)<n
zt%I<mXmjZW!AmX&)9+ZE>;S#X)hq8<zrbwnj8{fsecbu^FXpih^~tgkD3~4vz}2e7
zY8`EJo>>MS6DLz<Fsg1H9??bli*Se6qkaP&98^UA+{gT8RXN=n{;;`aQ8<@B?}Cjq
z?qHxQ$E%tpOT2-C5!c9QOUUG`pWMiX(}2rh9r^Q9;snXAWKG1l0wJWI%ua>K$Exu<
z_l#M!;>eYdlqqX}ax9+Rt?C>eKdY?T^lU=>k*lULseIj~EC6r$TU8=4PSC}De8%ip
z8k%w!Lp5yPp`hSdo>|56WF~yPzkM7{soTTcte~U^%zuV5G?m~&NXApmX4naQb8!JN
zZlcP7Mq<?6dh6`CuaR}~B&L~Hg4+8bdlz7<Z7m~&qz|%RLml?4R!)+w6i;kE{cQ^#
zn_9jq)HVAyD69Xt*H&*pocBroHc@ysyq88DsdH!1kyfQiUWCLnZ?dPv6FR9tn2dCx
zC~GaGIX11s)tKEs6UV3fq09XB7`PY(96Z-{)zpnSWzn$=l;{N|$zBhWNxUTq&f=TE
z8TCVB@N0q<?iyD_3CBh&yCzRte<(^5Dq(C!c>?habgi1}wCuwB*_f@0Zz1R~C|9pf
zf4hm|Wn#M@kzzYK{-;uL<DZe_l`m%+0I6!U8~K>RxG}bd&G&cHUcQL8OHlkX=qsuc
z?Mo^F-xf}CXX941f)>m2=e3WE9(PlsTu4b4($N7t{>rGB=O3LUrAXr|w#Y=47PIeA
z3JEG`!6n|T&hX$z*J6ZI4)t2Yw^<%&V@+*8c<pKmG+r>pr8~H@t?THf=tU9NoZ?rO
z1#t_g#F<pZofpiyP08`Xvo8Jn1hOmO(5x=;sU~kacA=*G#l75h?5z2iQ1hlA<tA~G
z_0|j@WunQi)bjB=ZxypTvV(HBU^7`8=RZ=UL2$Feb@no3x|^mP@%0JRR**%JpdzSq
zJ-V-EDOwjK-AhdnH>&1}81DvgEqB*ub}Tl8*IG1i1(Z5fXNXVsdOCl9qm8VEz`rJ&
zkjomB?t*E}WUB7x35w&D+Czdht|mq3j^Ye=d(Y)_lMB}9(Ozg*xNu42W%we>RT3+x
z=aL+jS?~yGia>}RkU!jCJrwD6i(i9XJu7%aaq`HDs71dqD8t)aU2SYkIwdIJwzz!_
zKYygaT4lUY*XOvbdxdFg82?r>I9oyJK0}LM4x>ix3@h@HghTmZ17W7}eep+iv6^#Q
ztjmPiWGwJ}WJ|K^x-Yz>Q@K;#z;Jiiw=E4<YAuAHbdzUU$&&;GR?At_3++xynj{Qh
z>ae_jVT}UYs6S0up=-89d|A*0$Y;j@^$0$d)Y<!X)=P4lP_^nRc+M@Os1G!u%H!lV
z`q=1N8}Y>|j+<3bIV8dAVz1(trQB1L7)l&!#6BXR)z>Owa%IORq5M$Aqe(tnFmWl_
zlx8yhvfFIsVXT@5!V?~>ZbCk3Y#n-rDQ~m#G+<jCv!?6xN>vk@_h%+$`E*57a;d|{
zw-Df455^EMTWs^>_amo+!{y#3O|tjUnB=VB2G>uM9>$a;E^atvg`r1JzhNbBca<+y
znvO-p#|{2`^-8+;D`Ha;_gcz%L4i(@@BjroFwgg}+`^S#8pzZ*G)8g}SPsnNkFZ;K
zZie}p>!j6&>#Oo{cnZ_$C7+)fvl|TAEwH|O+NRDMF^tA*XGK0dq`la$Ju%?1I`O=m
z=d>N$zI%=pACf{l)<?V)l0v+mByVQ;2SD4iiq-kv?TJK4dx!F%96{UCkGi%cOM6z{
z2N%LtdRD&t^KzS`#;pRN8Bx#5%}oNiJE{H|XkPlJXGJYHhE*5R&fixdhuAdbixp`?
z2V=H2R;%T&xK{k?i+na!^&g#xtGJ2A9nn~SPjq8e6ZJ)r4+%2al;_I%&q%6++r0a+
zTAl#oU9%hLXrgpr{U|UGvk_iPmOJ@mptfAifN392z}9;RG5#d#A{DPSc$tw-dc(A-
znl-Z87)$WpV`EixcdHl8euBTbweX&%h*kOvij%8{vg|Aq0R7UBj_*;f>#HoXhVOUr
zOI}@jH)FXZXJ~=>le_2on)RQ`4XJG`omC=VzcjaB{%6wE8?MUYc{JdnTq6My;ES9r
z<pbpPe^BHL-SC(w=xxrn4Q`fu<$an^4Kup0S}VMx7i)XGCszwrlxmfd<_&PvWhO<U
z#(eu*s~4%B-um^=p$86>APh>s`Qi1H>Q(9)Gew1nlYllhOci{d6;T$k2>g*3@v2L3
z&wFZaHpj2_4s5|GDOB1-S40uN>TbDqQ2@IebxBz?t82p+e5vKGgmsi?C@Prd0t#A;
zR!3Ac!w8X2==!W^*MLe>RcD^HgZq4u$!`V<fpAM4H%BQY0M&4WQ?C-<eXAVN(oK$a
zba-vEd;-V4%`5x><tGZy2y1`gv<PMh$wDIsX{$c4H0~5Y9XCPRZ602Qk<5cu_rC5f
z*xcfw;;O3P$%$GRw!QXtE4%m42B54#Q8W}^9Xv?oO**Bll`uRX;w2Iyopc(vO+ml?
zhh&U9^IFJS{`D}q#$8naW*&f2=kMPj$O=k;#)@<E=W8}?knAx9K(hlZja!AknaD+T
zA`O@)0xylQkg~a7uWtlt)!INaZZ=+$Na#614R?9dkldOB4FRNBOb@LJD(h&d>Z>?X
zY3=J*|JEXFUxi%V(xB0RUhklM7AHvm;$Ghbmxl@pA={fa*tY`qO2zIL>b?s3;Ufxm
z#{p}i{05aPg6A*)g4X{*zyVXf7~O!?a)C!f#oUUi#g4w7rcmhHYiqPHVc~|Qdgi68
zBsf+2dsqc-jpLsu#apC$3WlyHZ=eA+eWc{`xbEQ?$Q$Nem80u;?6xxYXqBn*@P<7%
zo4Eo&+4=nlyS#&68Rd+2jvVbbx5RK9I?SqOE&hoeO!}@5MgCULEnr(YBzVZ$?SI;S
z@loT{FhblN4m>y{rT?Gb@QsbF;dpAi_E^i|kapPKe*!>=G5fG;P5Y1{@B|(389oY#
z#t^L@?cbhg+jozA{GZ(`g|zF<3h1~^g|P1Yd9f0A!~RYK@Cv8)ti0+z!S4i6??3P$
z6MK68yd5?Ok|}JsA&jROhfMw}rpuL~j|L^$zN5oK8|%pIA2Fb?F~%W9$sy3r-$?So
zM0_XHfd0sS>*fZWwHusdkrdKL#2&^{8#o~m{HoOGHf#BXrhomsiKR(_V@A=5v*V=6
z5xmu_D9T~1lB=cCv>ZPIPs<U;->Rzl4B!Y}0|?Usu1*dU)C~Y<3IiX{GJ`mb_!ifr
zEUU_4dBUo))0((UmrrnSTgx{rFAsN4)obAfGCR8;7@PR8-@^}29|Zlhj(=A#@1)Y?
zH2+n1R|H1O4UTKBSiJ@vx|ZTD7<)&MYcBA0)fg!#`)X{dwdrs736t-+{4#bOwwTf1
z(n~>MGWZ+;!#x@+ZCRZUqo!HOjp+cOpW>(7IYsXF9Xs(RFuc|Y&Gq6<J;@hGwPsT>
zbU!qZ0ohehISK#ltSrBS4aBq}6x024vCx>4PBHA+Pp-8n16PaDl#djCPmA;h_pM^`
zMpPg(1)HHyufJ4LU~WzroC$ok0Xv|?4Ki2-g5o@&ffzub?lwd!&%@Pb6!cwc&r*}E
z2Yz44DcPb076RHbTHPZedy-xzg=I@FBkGz1pZE_IFnaFchx-eadha1b3WU^BD@DGl
zt{jfjlp`zBU`_QNPT@OKt)Hx3%|_jx@pQIXJWe#5FVjut&dy{SvjMKfTa*ReV3&-s
zx9PM`><Y!Oqc*ngRR3$cHZ@fXM9JSPv_0PMp;-gqXZ5qrQNyM(2MQQK(Vz0%@(i2r
zm|O`@w!Ur^KZ=Pz(!BL?#+h$hOtxASyTMDE&tw}YNyDy7db&9U5q9UZA1rBzAJ;)c
zS|mV}fjD4s@fO^mBif^1t8ubw3$CLJ?F=syEULY9GNZlme!oqjdauoSNeqt@LMQu@
zu6%T;G(wD;*gUid$@73!N#j1=ul(8Ug*9z;Yl4j@6aLYm?W8{7-oOfRgpQZin^=e|
zPHo~guA$I~vxy>f>acb7m?<Bc4jYS8nu-c-b%m4YCx5F7DyaM-==(~KyUTs<kfAx0
z8<gdB&G2xo<cnR{!izMvH<>|JP^g5$UYKge4d&KIX?`i*dABB#fjiO^kxW@9eDxoC
zLUco4eVePoIL_L?j-0Wi*M|!~I_$aqU4rlgp?N6R0cA0J`%H&zMwD=t2@hvv7Wm_<
zwG39*KhP+cQSzu4dl^ws>55D85=?SGktSQptjN*<OcpTQNC?0rFt2o0NK--I8Dfjh
z!y}(0ZJ&OOVm`NQSxLMb6?DdW<*#*Crkzkax?LgdOv0-={$RE?40Y4V_Ze$p7QfV3
zzP<?fk^!kiX?A4(fQmx#(kmz7Bt9kXV`Qb5&_dKGon)08G~Yj6Pqdi2zh3{<G!U0Q
z>;lyZ@pzt@+&LyCkyjV4rCbmcwMy8^(G{&0n&e72;;&E_!Iyltnac11nUWs;{jN#^
zB(I~mwfe|pI85*%pG`ES`G20G%nxwt&6+~#i4+o+jKi75^+B;zQ`(oOx)<lda2w=d
z=*gKaEoR|6FZ<6#s||L9op_e?x@X>q!av@$jh9b}HrX0oJPMkIU(2o*{;dmJI7v=g
zTN;_6SYiCIA5X~ouZ~wHfcsp$>B^0!ZqygEK1|4@D3XHR!VRuky{mgTdeql1c~ZoG
zY`q-J^X~|#nxz&QY`8Mz2mmB^`^DKXCx&UDmuo}6kt&1NUD3W0d%<DK9lMkKMT((2
z!ei#KQ@E_FwqgAR(>ygd#PH?h8{75_cZ3l!o%aV*%bSCt8QejxJLUWUwLfwvw}^Q;
z`pf+vQsuDKEpvfHU526lyL#Q^e*aJ7TP|x*X1R3(a<<!6tGs*e`-5`ibEjRr8zt*W
zA?@^m|CwF=JF68|fvRLy(T_V<NknahJb54Yx&W>r#=KF&5NsAz9>^Q}^WB~ezJ0)C
z@OxIraj%QXLarL5Xg!ZxMajc5DGnGV4<R~#@zWGg(gi+ppTWmycp$8;qz&8}in;i)
z_zQQH5{}wTa(a<UUS0bio+I+()yvQ%Xcc#t!wm-f7SY49p&23g$o<N-!31sjr|XJ<
zez~?b9wy$|M>9wJWCyO;{uj?S-m_u@P-nf6cAFFb^oArzI|KN8X8t_spUt63UX0k~
zPfQDA>y#(*w4Q?LUjV%k_TS?-+*@pgg{&F=lbW|ig{(m+(A=wiF_dsf=6cvaZz5y*
ziZiqD);?A*;nBqE($(uzg}ci8fu!!le`e~VVjT>wcN11vQ$T}OPm}Bj*i~o2R2U4(
z;70iwd$PQkb<MH=Y_*{BJrI)Db6-xyWw^nLt(PaJxvvH`!Zy$Jr}bAF>3JB2hcL3%
zklzRIp?OK5&~@FzNw<h{F=Pb3-wniBek9oH%17>Ft~aHOi{yTq+AsgsJy1)LU&(a%
zhH1xHgUkP9TKKd<cKRgXFdp@Uf6Jf2bhwT(E<3TFmGx^|8gt5kaB?0}7b(}2w%YBQ
zb4A1BlVPf!uSb$y@#su#cM^1LV=0FSKQ~-C(bRcvgmzU}vZ-gC$GtJN0z-}bC0C_1
zoqdPKn1h$Uot+<G!+!bG0sZg20PbcLjurKMPN61cv5bv!hiU$k1x3wlz2bz|x_~DB
zwaBtIPJR2I)dd)c(_?iT0=?<&V(T&ER?a`a5$3BGw^GB2s#jUNjoFsl{}DVT*X7SY
z%J2;0DQv7k#9mo|8=CwLz1Jb?N&S!iB3Ik_*B$Cvd%pnbs`3E56+q~R&(^yd@(ZFX
zvuI+>sPDC13f0?T6;fMX&~^H<E<yzn2>2Hx8#k+zj}F_%d6WUH-5%z5ivWofU*|p@
zn7`w2qy#%-(U#ays7^*a@!!kJa$E0jGl@36YNg=GpY@gW$nsUHuK2G7KJkie-pd1&
z13)a3hCACvY#6P~3;-PLDsk#2GztJ8znQHG+P;#ho&CuRJu8u$1h40cE=Yp2DYV0a
zab12o{1OlkRX>b)VZlu|`zntPfYg*RVsT=IRTJd$CQ@yS0`{UE#fimTW%6@&?Ew;7
z;xRMB*$D`okly{*P_}^^zEvD)8MgStj`x>ZmU{3@54RmTXv0<xs?c8202p0nfH$e8
zvtF67zPqIXTV!Nx+eVD{^Cks7@gB92Bt1d#6&1uWD}>A`3z(LW6lxY}UCFd#e%Pik
z^mriCvP{Vr(W1!TZ3#Qle9MHNT3+~}#;09lu621^fXxaB$N{)Jq&!=_Kee*L4Vs~a
zL!*5#9d3}Glfs_qts4=v{^?Zx*`^tqt#F7^UNHSGd8wxm=HcOvkM8e~jQU7eY5$V(
zcc-_sSYpI4A=q?Gwy+?MjBCo`$!MtcMkHKqe|mKIQZkTU-9y=i*#;1R1t9J8g3|BU
zFGoZml!cm+3|+~`;1M$8yXde?BTzTuT3O7Lg)?>N$eR(+A5juF!8h70lM!}|N^z!{
z=9ORMM)qcJn5w@SSZ+<8!LnGaP~B&v+Fkv<jIdc7w=VxP@*)?hkHVf5$Zy`?1^~4Z
zw!yIjQRuc&e24>d%STYbWm4`?$}xOw{dUg{_oROM+v@1YLv$0X){BCoFbMQd!Nk-`
zpq7cVjl3-$3ux;A=8bTEZIYY0;Y}1a?TfuDr^5>FAA!68-o#l`esS&<K;1Ccx$<AC
z|H#-mCq0{7AHQ-}aU+fjR9Dd%lMF16I7cEB@jvX9T^HCV56|qjUY9SQ=k+%#)^f_8
zMmYQLlF|R|%EAkS!zb6>DLD8^a^lvw<%z|^(;L~IH=dzw$;-dR;p(THfuJ1t3}1=(
zDEnXG=!J~h8$xzQf>yV1lwQYthgGA=4-Bhb-ha+HIqwxQ5FxDq%3FIj3Om%mjkyE0
zIm+ubzvyo{eOu<J`1l#YD%HbTo(|e;E-P4;S~2u1-%^+7N6Hj8!r=qK|GD)BOb~(Z
z^P4m`%U4GbqDMFK9m8$1ocSr}x$MY&sl=pUJJqlT0wg&@Lv@snL_0I_7u{1vLslu=
zm_U<}(q<8W0`Ju+UI1ghZ(iGsfG(A2sJCTuttbeC<{f*&!n4CyD`Z)7O$rfvSB?3d
zLR*q7MegHj_(Ga2AX1#%Y&_wq4;>5!_#Ro>jgvD<IHl?al!vyAp*KHoj)GE3G`voy
zwkCa+0ZuqZ58&Z@xHQV*9sq5m&sRHTX_9KzR-nH2Hy48O@Q9Au8Ig)xCFrjI%B*P|
z%AHn4jeLk)R3OYcGn-?+9cep(_9XxtKrN(1M<0L-$G*z2rq7}+@s!KZ;xt$m&rLI~
z4s~r%*%4sMz$09@)S&bE#V@At8Oo8d4x?*jno!BSzY3!jdS0z~qF{@HrvXrES>!vo
z0|)bP^U4AcElCN2JKru7e&nOA)8}fr>JIKDiapHpRGU(M!g4>rMR$wZvZTP~L-HjV
zN!1$_`ZMRAs(N43$e4be1#ekTkpgSACH%c$7RHa78&lE;=<9M-Rw1k0f92De24KP$
zhn1kvNPKFOMU@2+JeK@tw!!{P-@pKwKDB+fH9?K-LV4lfzTj?Ew|WUGJYymc)$V1b
z!D8aw$+XM6`3To?S3X|)(jw&gziKx>kNLG2y2Efq7iPj@h0}O9)%X2!<vpRG_=R2#
zoIMA9#vR3kd+;kw4Qmg|x(bZkHHS0cxC=3<&pVan$51FN%WBnQjA@*|2kBWe@5YAZ
z4INeF(*;$!KW~&Ct!W$j_P<MU@_%h@ZiA`*rvUwLG@;ji-Lm%<#G^m*vDs#o;#AT{
z1wvq{{{@NgjG57cXgAeLSsbXKAQq6Zdiu?Gt^+Qnl^b_AYO{i=g`%Ndj4!mO%|z8^
z<;TZFTX$On;EIvzW(d%{XSWt*RYdG?zz~6=Z`v(c<$e8G(kVhHP%84WBCNg!dinvD
zB)UsaT7arC+kY01Xp_qD>um8J<`#wOKOmAf2P~#6Y>&t^Z-BgTowbx{Xwa;z5O@wK
z!ulCGqct~CuD{wJ|8|FF{P>Q$QS1ki^xDLa1_}z@SC@u*HA&Ex^&c6viMOHJ3T@6K
z@>kI){C`^7|1Qf90%gaxT1{i))`*LKG9yyh2KkoHwIHl!b7c_|n_}qEVfd{57NvB<
z+f`rRn&8oI=vs_PEwKn)9f7$SR`lVu8lJSuZkE;iahV++WM~>y74IKFvakVO76h2)
zoxkoZ!Y&JJjXOB5su8t+3)3mPFx$%Tk_3T=s7ZE-g56JN3&~0^Iqg?CX0!~UpTqA=
zyc^;?voVQrtq;f@ObY7cs;hEEzWqeY+&J|dw9|Uh_q^51q!>XDHv=dpXSoq4nPWRs
zoCI&vx1#w*8yh|v%lP~P#OyuVw+{7YbZRjQ=+0h-(npNhh?8wCOiCRF?GW{T`3=R5
zl3j*3_*94OQ1M-?-$dQ?MEazeB7^&U3Qty5RcP~;)s<2G_YD1CuW^ohF;@q5lNbEm
zB=&ce6N}v>F0vA67H-xD9t$u@-+>_vN;>z95j$<9gd&EZ*ZbFpbc&@BqL%=iwVeV+
z5zRTq;p2+jHK{<JtK8MYl-7Ll{Lg%IAfUzo$3H0YGp}<MtMjt?as8Pmr{11vh<SfR
zGNOi8k>&MId}p>$Kwb=K&oG=XWI8Ojz`K`L)G6DxOv|fKo=URn^o#uYnC=tN9suPb
z4X^_+Qb=luY{}bls;^3|EsR^|kM%RpTUA)Vlh#JkX-e`E#>TA=^XD~HKCfXh$!-wU
z0eObG+F!PTgl)`L(z<lN8$)yr@JqCmH<wfs{82eVf#YU#QZw4;6nY&q>uHtzPE#&7
z-VI=jQoILVyJE-;H4-6@Zrc78F9-ei?gsg90o?y$g1_$fXFk2i`r$-y+CJG*{swGC
znpDN=0ZRDtI#0HKZRrQbf)BFXnf0<<8tS;$yX4t_?qxz4!?%A9rWj*@YPq~XV5)EC
zC1=e4O<QdKTNm{|+l^!!edw-{Rhc+b4@+z}kZNaco0gX;JlUIDu+c68D~hUX7N(V_
z5C`NyBL&Oc0~A~nOwKj#rKiE50J;Q2pXv0GB}?-**f?ytTXa{KJa+#nc@CHBKq+>Q
z4qg8|t3weD;Ki{L?tMzY1V<hafPVEgFsvv#5trgGsN`B=gHUVxaejW$tH6Gh#d5d)
zE44|&FdJ7=!mOrTQsG5_i9~ryKK0DUp(?+?Lj}c@V7NGU8xeR@4<<=;O}cKmxZ3Yw
zhIS&#4bD?$iC|;4O+_k+-qf>?h*5JlL?zC49^ROvoO)X&gsiRY9!mQB@4bQ_<a<q0
z{>K)=KE^H#=Xj6CH+oKFe^{C~_Df+yD+x~)2FScI14?o0E<lJpTIsfkS@Sq<2z0t}
zx;D6XeLOB;u*`rhnYju)U~CXBHIGj92|)CVCkK1iW||kef_ur+cLVlGOh}7=Pe=-E
z=EDuI3{1}Z4=|3jT=iNcua-4jV-cmHj?A9XSp1Zojqu&afB_<oUSBDKtaUA#4w^_F
znMwUPtr9DsTWP$1%)8pjfCXBAmb8Ec9L!NWIV!Ye(Q<oHvM%8>YZH=t2=*h$QWyDT
zxU5y3JVQQ548-44QT&zR!e%c`;xg-xxu0g&i;VZp>oBP}Pgb#=;Yz=upsT;oxIAi-
zkJRiIJI^bT6Xz@NQ^EdyZcL%Jb?Z}HXnS-E!bK}9l43M4KdH+w*pH#5K@->a`R1<^
zo0)AUhT6bpnnEuEkk6*4&g<Nr4gL<IH7+pp$m7#n*<TO$iRfWV#?b-TBi8Q=jj<>{
zkzmo|DY}W_2Veau&XjH<dB^?Rj{)0HaKugFkJE}Jzx7o{U7JY6O+B<2Hj&)oV*D5l
z+D*W>hVgUc{z5NwE%37+1)_2c66>%|eHXcozbV;a`n?jd%qAd`L5O7R;EfkZeF>7E
z;`%CQ1x<$dyQ6ivDGtSmSC7z$S7Fk{;3$=N2Lz6uI??BsQ4H@~_<hcVYpl68iifzv
z*4IjTU#P@73$g6})%HgWar+}B@hJSq+-nX2HL19%o024aQCyz#HHSLKdn=OL9~0sP
zb5kps6h!5dp-_rmIh%~vs=eXe9peeb>M9C;i1!Fe+_tVev-NAoG<S4Zb$N1PE9Kx~
zG{h~X>1M`7AB+$FcSG#w67Gmj4>1(FRG93gjGKb{I8m2w8O&rG@+Jyc=i&7?0|uxs
zaAxcA?(gy}Ry0~O%tV&&ld1>9S3@Z07bAn+^aTahHCDxQ`-q0_N_Lxv223PXT%O%y
z*kTw@)+Ph>mmh8_+@hp;V$H{Ex0<V6qHWAGzX3gy5~ne(w`vwEsBVq<f-SjYdIf9g
zO~h5t>`{G{cb_R4Az_lGpEh=HR0sH=T6l@jqsd7E&F;z=6!(C!Nj<^Z{jl8Q9S#Kc
zV#XAQ@rmS=r%925&$`-FVnwGdsNS{1OmueM58EM}(Pk$(3;INajnZkQk{Ru8gz$SU
zOROzEo-H$S1^cMwMKT8K?O#o-O1hZc+beJUkk4`buFnq36cPmLoo#uX)!3Oz0!n(v
zn=IG7C}c-+l+W36`ThU+XKuX##`#?97mQ9ra9AU#hYu8yKb_tS+Wg_y@817#$@z)f
zPg}!&`|Xe4epY#M!pP*t+xH)aO|y@mzS(xb_}Af{vp*=_|Lc6o_1g}&f7mp&`S&AK
z->BHtEH?_lu{7O}<4VC{7F+vW`f1QGiZ}46%`y&yU-p;J>>q>pf8dX4d-msye*{Yp
zbxweBj<Nnoh;EYzNwBQ4P<4vEfV2fAUPSim&^(w?&7IO3Px{}I(0T*+hK$4x?s0aQ
zL1zqDYKMe8uY8k-OtI`N0;z!#Bas6ahU)Iv3IvdmnUSrl#6y$n#`PUvQ14P3dsOTf
z1QGYTQ7`Gwrf3hx2XlgiA~5b;ty$+8Fbg@Zh8%fP)o1hp2ZGs~hme1n@Ram|sGuhO
z&W!AnCY_r527?2N@n_as1}7R7s+9|ou~!4MW0L*5H2O*!fI;`~b?Hb#q8vUL?s4&{
zvFWXU$6Y?k_e970qG?ZBXCs|}C)Q)Mj8CC?U~AJ;2#;4SLG8<)DRslDd9=H+5`q7%
z&3w&lU*tSvg${ChA7RZt+O+s7Wqs`rWRR__@8aN<mK@+EFA>{>PK#y_sgNWkvDZt>
zUJIRG_W+>B8K6gQ_yKpu+Urjwt4MqF&cELfcKmz#m8mC4&=C&<!{i%6(}P<J!1eRl
zK2rxJy5KpSUemG8kEgk{`2PN5DgLp(3d376-?yt0itS=KId*@=KTml-V?+FW@7qWi
zaN^^yownI)=aB>1g%8HZ97(9ex{#WeyTx@^d@6DE^_QUZ7-&-01R`r{X}ujB4;#8@
zFtN~XjPxzI&x`HY0Ug@<&eGvSo*UJ@XISfQ^d9l&WAsPkUvi-0-kk1i51m&&dRv8M
zzOxAXB*scLNDsoUNwLz|bA{@YU6?(d3XXcXP{d$HDd{#vA|ViVe6sjK^E7X<ZhLXw
zel>;q>yYO#h4qxKjEqx7{*S~-U8q+j1WP<rWN#`A>Ae(sc$q`1_w-YaZ0G(|mx+Dz
z$*!fc{GPFyJ=*zX=oYw_d*r)&Gc^{vG}XNGX5jc!NVFGvGygN~aiKavd-mMI1ZMhl
z2+Ojpbp8AL7duvT-QfYz110}jHI?`6HKIQy+=c_4WRGCPwO4dBr}=Dw0lEGXf)#m}
zGC>WgR58wKT%E_<KWv+m?cCC8D$@c32jQFGxZjg_(BC--EON}snj~m^eo9n_Ss<Ie
zNi~9dlr_w>M&AYMRIRM~GoqI9MukUSXvIyD#K<J$=v0#l{q&1CyM;Bbbkm+nX8q8u
ziNTPT+itowe(Z?>%EFE+!6oxZ>f?*6?lCqa`QvExgpGZEe(IwXqIWCqlt>UJ;<?Oj
zt0R!TTa$oZzO=Ub9jC=-ZgYM(7VO5vdZ(Vgxu9K<i-><kj|}(obc}4j>lwV0VdAfX
z$z5+E`0JO?>@&6>Jv5s^el-3zN86?^w8^k;t_oDl)gS$(bH+Bu>Zi_Zj99zSt^9Gb
zrB2g%h)6rzm+%f4P{8Psf(XlwZ!6Bu)naCy4T`Bx);z>TM4Ea7<YSZ%?{#dLvH#mc
z*~7T`1vX^?rD4sf%rRa(;#8|Q(L<qv5(B#~>oMMyyanX8W?H9xq}B(NcnTs~0*!{(
z7}hO)08!&}`|V;wkOu}B4XWp2^K!sXqo|@$zOD#3QRV%3eA#yGg+|c&2hpeyxwiHr
z*Pj4~TZT5z0Q%%UVrfikOb&Mw2|yY8&csDuHFm*~|0+*jqs6bCW|jiJQ|#dFTES!d
zv#4a`+V8n$pRMl5#jBY;ozWd=i(GUW;+)x}74XO?ftcw8{w9;5Mn;dnG7vocsP*u2
z0LSzS1Fk=is4DCKq5daM>Dw4Z<cXVk6zD*h$Va(LsLD$H`VE0G)LdOizo%By1*-RH
zsnkhyNy;mdUO*l$bLRgH_Ah>Q2kln3-KY*--*K#fk~&=00TMmTG44W;Ct7>nyaUf>
zkLw)h@_i87&I;%&wY3kkMf#zA$ay+Vh%QjRPtD)r)%cqHNDcsVuUj9m451BCD}_n*
zGrdKhkKT>vG#%;t+c!1xowS9q2iuMB_0$Z>jS;k9W~sqz>O~M;(K8UtF7{g2a7;Lw
z+)-Mn2n}`PBq0aNMmT2%LI9)3Ui>7v`cV@V8@iB$OjbQu7Y3QLKHkYXZuv|~0jorm
zqwdYUzsHIaUr22n{@aZ~RqOo)?te}u4SM;2<?YcZdm64A%Na?y{(ov;*v6zNH@@YC
zc8$VxCYa?zfrq+_xs_+`<<sLCTHPV;;)^~*$U>C=&dZP8&dpgHk)SlxxCe57c5QK0
zX<;ei9J1eSqR&b6bNaiNxv}Qbt+d80oL*v=F3%T`%npN39G#AD({>ASODbcqaOYM;
zVQa5{ySaRAkRjdps^MZ7;}TRvP{+Qpx5N!0*MJr9F_st>WPqB=!k&eGiBmVY)U(8J
zWCVHj1ldHqIelS>g8^mS|Fz-JRu<}cgO(UMlJW-)4Yu}uWD`C~3i5V5$FE!xMC>ns
z6uL2~Y9Hm0llFJr_nvO+-Ueo(qsh*r68;fqVr12}?ialYJFxbbDC}U{uHZB>rD;7k
zqHrqFyA^dG!e?IW5*Q+bZ|Bdvw90+eviv5|@|WOB&hyHCiotTQzm~s&&EZZ!LHtqU
zH53V?ujF*kTTXVN3lnkW4F>?AR?UcDhWU}-&fLgz6Btrrv+Gi#&Kn?%COk-ILK~`}
z7tIOkhL;|JD`Q*sKNycZxa%fJXUAeSh}v60GIa08p0r!3ecKaH)4ChQ5`R9))CoTO
z03_n&7*o@kt>h$@4rLvY=#NGtlij*GroXN~3KKQv)bYGj_*J=l`jfRod>%Fm%jk<y
zJhZc=6656Bopr@ono3z<{8#A1%*O^IRY8eYIZ`b0<e@rANg^Xm#4wI1kL=!Q%m_}_
zuQgqMQ$KBA8~!%ZlNK!2@>H#<&DRdU*U)q_Ud2o6vgHg98?sN<Q=rE1qx(T)=o2N=
znIJWfV185JOkbSez3}EWfR`jT7`W#JplU37+}Yd*pyEnyLQIHFobVLwMBLIL)veXH
zjRvAEBeTv>+EY(N3wzt=OU>evM@EuKCWhzmd<Wf83u_H3jJA``pl$oah;q_AA7wes
zyBl`i+Rz+u_`4wGusP{99AeLDD&KA5NcWKHQr#7pKkt{&`hBwg0bb;B8tDJM`xovU
zNX;EMts`Xp%wk%OR~a$V{~@K=IppJ|vU<&ij*`$I8{caIePJyD)+Ycbqx-DmGwb2F
z#7(5y-vYDmwyHH!6dpL;MWZqZzixQcJI|2QPW+#wogkYBth_3X@|LHA+P|cx{sD)S
znnls<IK#7*-2H!iiZGG0faJY3&HL#0D5p#{JZvFsS_ve&WQINkE<%kDf;!54+lM6!
zbq6M(mVl28W`{3U8`KlG({HOYg3RrcZG3mDl?n@v=NDc*FDTYTxFKzI&5w~J^G`rF
z1>-FdBWiqOeqZgYd~gx^m_OI(Alnw!K=bYjUbe{@pP)4|`})V;7Q;#Ky9<e(GO?Lk
zX{e4ri;C|58lZ|G9TL}?*IVATpdL&3C9^qGvPsLP>6DGvb^y#?0$_&4SItw8DJbmy
z8T`j7*ZXqr#vE&U6J@s7dGtU=<vQWClw5RdlOW!R|G35~_svV;8@C$3VnI!a0=}5Z
z(D0r*NazS&2>NPfoPs<jUR~2)m7}=SCMdI-%gR62*(GexNsj5lck{N5%)aCmUj8L>
zwzt%&`xyWlX8_P35O!nh?qOrHwUoo-3QrX?mY?@nONO`dyh9?jM#JhmE}<x?XOpcT
zAbXl>FN$m&Mc32c9oJWzUj;RQ)hElgidQ2HR%HP7^=SA{j8_@R{SN_dTbMhZlVfLc
z<m|$1j=Cke7Bo{&IHF%}%05$hZ0mgO#{iHhBgZ&!7Crtv$B>v&?)!JbDWsE*s2im1
zpbm>7=0gDBu0CP?_?T;#6G)VwV~2M-3s!&|bV9OQ4o_q}>Gt6s&>$V^w7t+ywbCI4
zeN}ep>uLG5(?%!JscTvC=V8+2d_b4~|Ih!$3M|&?b+&?vedbNQP7+<d1O^~s_BE{Y
z^OQePZOe6jSzE)wQqy2&F(t~w{nHLG4x9)_R7|ug=o2&}VG3!Fg!4-~oyADshnG2<
z`^g@oi$Wc9_#YxaG(!<JHLXkdsLQ6*2qkf0aeHcx;`&VKzIJ?qWaUQ&^GMX=@y}rY
zf^lPTEBbOY5)Vp*Aj|cd!gVd(k0H7nwIk~L83OohIkNDRSL!L0X6VPvoS?y0kP}X7
zb6+?dt&`|@E`oG$0jN$?SNGY~vS37D3<zEtr`V`ut<^Dqo9O_}A?%q$J2r@4A9p1h
zMqv@lJoyzXVb6M>gYGoX6q&t?_h5chPqEjCC!XxYmqtML^dFm5Ld`73rxY{t$3Nu=
ztceq?FQ=X_U7B2`td|S4l3m^UH#In`w$)Fn9aEssp_IFsKXvx^)*euZTNnf71=j}A
zKOTgLtYdVozWLMqKxYhkBCnqIFc+HTH40vMr#^@{gEYIA8?e*-`!t7`xy^w^tRa#3
z0Vu=dSA;iVZ74l*+R^;<ROYUwa4h{w_RMK}Lvlvxy@$T4O><n3@GSU?)`Nwn6c3IR
zja*CZqTQ_iuAX6Z(H5x&%U!qVM7$i%Gp*7QQTi6JNMEyO@kIlo<P@a1zXHhC2X5oq
ztvKRx5v{M{48P{UVO?Hihx99HI5+i@iy!Isxr?8c>PJp$WcaQ4au5#FXJf+(G!65~
z!6T}<HT{u|uq6Bd(`VKW74?Y4yV}s&Q6|w6mpb|t7yb@Zp4xIK0SZxt<8P*P%>Qf(
z7PJ(fUEIuX%x{I2n;m>_iCG^t?=04B`Zc)rnW0YNc_ich6vv%@68K}OedSBDPBkPD
z_<r8RU1<d&9*hsjqI59Q17sd!KN{smko;8>j$Dgylj643AIaV)oQR{>9Mz{aKN>#w
zX9x9(DfI&KhM`kz3`bN9Ug!aJMAY=2wp<@Az7Ot}-uXeOleqYxnTj0I>D&fTXRvzs
zGU=dE(zTmXWkx)J^-dR3_tP1PYac)epGP*BQxb4&9oO6e|I^-a_7urcP1pR&HmLHk
zZfYF1h5@~d?9ffL>yoBAbY0yIAQodOD%AAp$VYIhRq!v(-4^iXqdG(UNAn(fj^S2j
zL~Z+h4Fo@MYGa)=+J3?C;I4ofusN&sWbm=-i}+XWLS_s<j!@M;UdgVx11lA--Yf8o
zI?vjrYQInc;@ic#ArHGOXWN#;dJ=!5P_s3L7?Np%jn0<v0mnJ(rx^aq!9gI^ZGT?!
z?bx5-)Y@hnu6{iP+U1+QP+Agt12*!<QOVXCO|aC%H1+cg*$O(o&yh8$2xeKAkgRAc
zw*>P+tFWQlt<2^_)XURsW9-74oh^}7-Omd^3FYeB>TXwEt_2Upm!`bZrc54a_%Qi2
zh>MGk)^_IKN2Zj#iYv}Rg7$?t@0U^@G^=#Cv-|KSp6ky+zRmqjwr@B~#K?ev+3L=u
zbfEZVUNvm>(?rHC-T4J#5I52NrbVAq?DYPjxH|Ex=P^FX)CaMWhW>KU_HqgbSC(Dr
za6lKbJIjHBr-XOp`28h(%P0kX$e_fWIrn<$I%R#9`GoZx=03yQa?*5WbF?IJqM_Uw
z*adX-jASc|IfXv8^z!F^T7K-7uB0w6ht7zdE!yYIU0!smvBVBFy)e@&{J(SRqO@q$
z2%F>2XS{S1IHV)l1)x`!_dOq<iO}iY)uP?EG9D#d{_0TQ^a%9P=pf{g30!*Eb_tIl
zjarrzX*>sBKy_^vVf8E<4L0B6$2^EgG_{F-M}tcW%e+WM1AjA_p}AjqtaP0O)wAXU
z4WU+}j!oW|b9v_XH%DhTR+%`=;mY5>Q!XFm;B>dLLf?&7W|lgjy(x*4k82~zdaOfK
zo5RT;X1F;qQA8mMl#o@`H41BE1CpOTYuG0Z{$2oN5?uz1#~ixe>M#w>Z|>9+Ru&DA
z{)pMLl{Gt43sODTbS>6E=jqi;rn-8q$0kh4$Z>11%GAq5XJqj?!xt}$Sb6mD?2|@1
zp*06|MAsOtQe``>-ea#U`Oy495HO~<uk|k-4lNp+VJ+(>CQv44bHGIDQ~XGUv1Z4+
zrA$nbE?Wl|%(mb=Ei~qQ-pQqw+T0OjpXO@3WO)E|_}ry%=Wm2GH=4HAz^Dth)@dI(
z=`{Q)2I5<CW#?joRRfUT<ze}T$if^TzXP|lfQ}xV=x7bly3k+j3iZuDHuxq6Ev<xd
ziOJ{o58bIx1Y!sAtB^1Cyj$Q@y$ONEv55%DEHB{?WU(WVE@9<4yy*91XKo$1*XgBc
zhr;Z7+Mw=I54>N8urzt-Yx}3rgAfG1bUWi}Uc`u5a|5vI7K-rqX&n%wKDgvS@cL05
zpmcY4i%tTfdUf;(=#ubm|GO#pXSCZ5VafLOoi&Gp_lTotD90DQ+b*;wD94_|t)Gb)
zuAEQ`W~;TI;u-Na^G{NPFJ$W`H0;|jp3QvL4(N=1es#6a@&qcvI6tMNY}FPeQ7_u=
zX}2(nt<4LW%lb{igNNb}?U%?Xw}}AbvIuxcaJEr|(u-Z8y!_b{PwP@;E2XzY5k84I
zeEjXan`S`Y*t{Jv{&G;tdRyAD0snrm@MiDZ8Bl!ry+q4H2ODVMp?1w(W$M{=7P+Q^
zd`xRhP)LKQC?QO+V&<}Q{pPg&g0wXr&?%dtgW}eov-*E|<)eDvcs2vrARd?rECBVw
zk!=5dK}UmS<)QTz?t0z1xlHjlG45{5g9izsn+NDVcF_rc3qYKEQ=@U%+6L{pmC9W$
zi@teahk`L?n10VM^~lbhEm@ialjq%N5_Rju4=;DM;Bj5+?T>4fo)=b`9a8*6W(lJ|
zWIWHS-kW<AeD3!KpGkySCG3I5vS9wU!5}4i2+wg3YOv-le;dTzS8B~ma(-PO00)b-
zl@n6vye7)#=z&J`TM}l~Nge2ZXUo6DUJ+1irQ8KfcV(43uXOJPuN^MgpEpK2<rY6o
zQK~yTH&lE|%e2%&vHn(Xrrs6>pPHhDcRJuyqluji+^Rjkp|?@nBY5rJSTQEo*5P|I
zFe+g0{7MoMQ8}wxF#J3|m2i@a6nl9Rp!p&CFL(HW&BgGX!=F%7a7b5v?xHi|ytbN>
zID0Jyx^5lR6_7VRk}gSzC#0-CIHrovEw+4azf01&2=}SLj_L>WhrW%n8hO3gK4@}I
zXxqAu`q)u`>%P!#@3=+JEIe}NnO`;_*CUm=<%vTpC+hz0OpGpH%_v?s{v5}V6s<e}
zj{88S1ls$J_RKxC+ajt76GiJLu-qlKgp_Xc`fb%qpajJ$-6+gN()QMJm^Ag*2|I~C
z{LsWU>aQLi-AbwkCQMVFK)U+4b`+P};djm=k`d{rd*_zvCElo*yMK~IS(taZ0xLZI
ziBS|_2flG{@ne|ixlyp;*#%NMTyz!5kIyYO8k;99=_1zLyG}et5y*V$tihlgN&tvx
z*y;r7>5oU8!1|Hx*AHgL>r7N~t<Vfs-%J6w9^VYb|EO-}6{I1)5{Yb_@wW5Am+OcE
zk#<0mnp}CvCTeXsG(XtBFWHi^m9@UtJFGgfRZpvcWi+vN{BEi6_^$&L^zFsEgErgy
z>_~lP`9VYlJEt3JY4s@wIy)@8ou<}+^roFjL#$V{iv#i^yS1{nq?d=8kb=&WLxs^h
zWmBCB(5QiaUik%##JhJdu6zT(8P+t_^L4Z$w*&nU*0~u@D;^i2Cw9e2y8q@E9=q;w
z;Ye}o5tI<!D(={>Z_?yNF7mn0Oe!4dH?0VNEUgJu1sgt0a6T7{O=h?;o7;6(>BF|+
z*>58+wC75EyTX$kk>av@hnZxlC6=>&-%Z$_5cTXumZKnFxNZ&z6|hoI!dmH;8C{Jm
z$+P{B#~~KoZ*+O6N2@0J%UOpM4m$u7G=&->T7AxyOr1xIN4q1A_}y|FI<D@er#zIN
zTX5fNX`a4SJckJr&BL=OY*%5Hs`U#VaxD&u7#uG234M0Qv_TYNU}s|%j%>6#*=ZAO
zYIHoZTPquSBZlRH?C~CmjB5x>MAoI2KXt6;qvIF~cJf}~M@feJ$wlKZi|%#f0Zlxz
zq*E-drjfl;^i1_(cf%4t**!3OW{sUuQ7(2Vp0Sw9&t#_<kh<R#KVSv-W#}YchKMAz
zwGZDA$e7&zg5TktUr0p~Zueq`vXap`QV}8#xw&xMwCZQ0J+HE}_tU&uPjvQ|PIqLK
z7S<3CkObDvx1<J1_Kqb*o->V4OX(iuNe8_X#CL%7lGqQ{lR2hNf_!maUsGgSsqU+7
zzoBqoenfM5IV_al&6w&thv}HG#GDev)IF+ejCy#VZL1Qu4h$On*A{hQVysh=&G3l6
zh9O65ay(45h?*MQ3xP>z9h(NNz<m{3h`t>93%&Er(PhRjn7_0Z5lB-yiCLYKyE2nM
zX-t0cr=3`P{Y$}w5HtH6x}HC-glw_WIoPZ>Vf$${V)($o$jjB1uSVu~`0m{eVO45u
zxEV<(Bu=hoTc|8#v+rJpAOpDi>$Gtuz1HG|^wA!=lBf617KN8p>)YN^Yv*f2>L<Ix
zL>(PD%tzxMA;W4Rd`SDr)IYjt2rziN-^<Q;?q3(OV|MbuyR|LKru&xKCmfMk$EOEC
z)<{-<67!Dc`jbT=2BeL;U>R_30XSp;cG&`wdxXxT;kCA~8ycMZ!z~anP~!VN-26u}
zcQTyMqT#f=S7Q9NttaQb1c@JmYG3d^X;?NFos9ZeSq@swu0@PM>_yK$>Ay<uSQ-);
zno$V`FYteaTHsD9JRJM>3B0(!z0<u26|cweHc9@3B8ZFBt+A`#UE?kps)>aYbG4uj
zmBa{Jq(`|>#D|8OF0LL8;H_C1v29$2wvyG#3n$Eaw9D*&eFVzWYYKEBX+$EB9B3{-
z|CkgeJjUT%UWkEbc=fkmrfRzA=0#XEF};z*^1K|r_e*MB0DO1*K<#|xJh%mTrAK7J
z{ZmBa2@|qFmr*zf0%(M9p8rXf!L$C$tu9E2Sw-9)xc}1Q!nb1V1V0=Q5Cty^H(u+R
znyn$<F}6hD&n>)jSPnlt>tztVtaLUl5-bCns&dftX0}r6<!dpzFN=<q#ZdK-g-Cy7
zpvSpSQ&!;A@K(Q|Eh-KR6ChQ`=*D#PLH4C0h6q7LFfaLN<GJgUd)69rK~w0?B<C(Q
zVMcl0gW-qB2gz|skU`zfX9Fpho`5Nx4{h+d0ohZl=a3z)LOybw2lmey?>lINxu%!z
z%^M+~Mvk7P<syp5bK%e<UwB^P3rG)F;b`&rqk~)D&8qi=AB3D`{oI+2T>FxibmZKE
zjYYSmOX?3P=Q-wrgwIOlps&S`kKvY3$H+zrdNftjAgfNIWp{?2$hm8{of)*!2QqV7
zs00;9d2;kOlvvfZ8x{qu5gIifVA*Xpr9Wy&GQO&MR{azE0N63wdDJ^8=ob0V;(85`
zwsE?aYuL3?M^RKrGq*6DuzQ_^)QEgqG+N0u5Bj4Cjz0FL?>o95Wf8Y!rpWUVVx*9s
z66BT&<ln^Z!5Mz3iI*uI=Nq~QEN>=R1^bfE_~d~HYs{|fEC}t8u~T);04R#1E4tbq
z%@O2)m2K742EYq#KSTMv5!Q%@RQDj{mdVs;5|Ub;x3ZtWa`5L}?3)Q+Jnd5vUI+lo
z9ojVskHJ@|!1q$?z|*si3!MhIpbJP>?SdyovymU3->mcO2QT03ZJz<3rtiI$oJ3eF
zIk?n>?KHaRZDfuO3U$eF6OcmeY4xMKoX*y<yI3H^1*T2nZ+;CpE$t=gC_XidWJ+35
zhb0d^SdH=mPJ&gYD?RzL9oSk6_s|v9Ea|>d2da{Woy7%qS&wh=pMw;oQT9z8dWlm%
z(vzLK)IUq&p;3}-sc!-DiVgV`(+R9@dJ%qDGh%GIRm|zBt}-hFwXv*lffJY<fHwNk
zs&C^VkpW#3L;a(dti&$q2?>`9&{HBxj<zBPnkbTS=oIVDAdMVLgWlztf0;Jc#sAs!
z!doqM?^^FImgaPxC!3V?z%Hbly=V}z6eqL>MahxKe*57p&8c_&jf`sQVmWrA!ExBS
ztzHj!n1k_Vw0!%m`J5cXQEC||i}i5f+vWO$kh$8CWgT;qiMtEM<-WMo$ga1y5QWEP
zCl05dgk7NOG{MeYn5sHxv-6%^n_up+%&$zB_HC`z17!a5!cvjt!CmL9@TdF+ob}$2
zv&WwqNAWcdLY%bF$6O?bUHWdXMRoD!2tb^y{%olT9g8R!x5*f6xPpg}`8tWQNcM&F
zv_z+Kzi^v#w2Q2Z#>u5`KW?)fjPvVi#F^Qv2M7gVsX?%x@Hq%qR6MQ)j(RkX&JXx<
z)fiZx7K>nCM%;x<WkmF7@xp<&``K&If-0fD7yxmaE9~AZ^WYndel6mh`r#E|dw}i)
zJkY7DX1sDKJ^DmzQlD8YoO#%i^<d#mSBurtMPc2+(+pWU?jH1aQ-8Y3gPdJYk2si{
z0tc<P+S^$TcK!^{()6*4A2k;q21f-D*3$s|2QJSY?EYkTXyhf3b-O#k`DAImpAj2S
z&uv^93jT1SE30R2oPV;VeqdQA=8^2&ybm9G2kfpCQey+s-qjhC>Jo~Xz~z@by5@|T
zZ04>lIU-L^jj*>Sz|ZzMwPC>fitMo&&tu^SJDE=9d9Ei2y()^^c!~!*Zo|PUkxhm-
z_ZN;E9F(+xyB@y+oA)t~2KVsq4p<J&*jYlpW-i>zY4zI+;me*$I&ktR31kZ=9@SC*
z=0mhW@J{j>tGmLn?bbMDqE!VtN(K5y7bt}Xo*jvmJy($St=X@yh&G*(^ywel_8fPZ
zn+02Dm&-QB*gK%dNGCfF2VF7=6lvy-?*RMfjc+^HITG%otDhW%%qRohkZ+&?uKj=i
dCygdTy!kPsG^KazVcBfKXB_{){T_JZ{{R_f#1Q}h

diff --git a/reference/plot-5.png b/reference/plot-5.png
index 3296ecb12c25b7fa57f44f568add794434bf7886..e4ddb325cc0b048c4e567c59b0ebdc3e240c8df1 100644
GIT binary patch
literal 39221
zcmeFZcTkhv+b$Z4qN1YGRHR6ksvsa83qq*UL7Igk(xlf=^hHEUAO;YnSLxCcN+>pJ
z1nDL879ey;sDZuW@BL=>Idjf@v;WvLXU^<rCK8jUtaY#ZzOL)Oo+J^EbkxqBxq1cy
zft-V?KhTFjPWVC~G|x_*1h3!{GS<PLlg~8O9)Q1K+q+*E4E~&crEcZ{fv|^D9#rtT
z4O<9=3j%#`*U&e4dCUjNWHjEqVV^5-^PlT#7ip<ZB+hc5G@KTCN5xEKYZPlc#?1Vq
z{3KJwv+qUp7~v-n6YT3}D#$PIxVT<(r6ZVCr(2t}8iPlL>KqCR42aujgOu^x4hyyU
z1%(8i<Nbm9OMl1mfByMD5daZTnO==ET-aQf_{G;1aKq7I_+=O8xfV_c1o_fz(S;JC
zSZ*rl@afqO_qIfJvmim|mA$N~T^dM;zNqBbx&MkG?^}rYzt53+w7yjTd7d7{-9-QI
z%eG9BMU<E6mQq(K)d4B{`<_NtNHz&k3zfU8FA4Q39`sQk;a)U{PN?r|^tcm_<)@4A
zr=a$ay{Zxot@Ym;9pMoy>YrZ5b80;c=C)OrGwPW`)M^xPIh18bAo$fs<`8*V+20Uy
zngv1*RoRP(BVh;Vr4?B%eO+jaIsBwVi+@)3Fv1S%f4@f@+BcPW7Rt_RDVQIQ^(%w+
zgd>`v`-VpiCL2Qe9<1{gU-&(u;0fCTgqntIIYfc_h`7gi5Z~4nKkFU^Xh6@OaRjox
z>o)$*-x;p=neZ=M(3<SN(JVKj`S^-jjk(S1h_a8@^Z!h3q*m3xj&Ck5p@!x?K$;o!
zd>3?17P%qQEIsmA<1tgt=z2>BLa4<oJZ-6!HVQLx#~?#GW?LO^`yMlKUnXD9C$DC9
zua!qP70bY+bD$@<SR#0Ucvs6oOu6v<icIb7gb<_3S)Zg!@&k91$X$_T+8Z3lXA@z9
zNY4OdEeM&bPL#7Y(Y}_qr0efk)6cS%{G^dCqrFhhtN8iB-r5cSM=wyC<8a>i4_ETp
zG%Z`q=K7J9qRk4D%($!cNeB+j^~=i%SMHkk#FQ_^<U|u}UK>Z8^kqE#C3kZ)8m;KJ
zd46+jR?nn-zPeBL`diEuiBOBYL$qABE`JjnveIgPi&>kS$_g!)bz;EUt8K>&8OXPh
zq(dZL`8yt@o0@RV<lRchy<BW7)`nmzc%vnY0}WZTNLu80R%~C0UBNp}J6VgvQBeNf
zZDr1w9~*j08wL&8D{d&)2rTlP3$Fer+aFD04V!Mj=B(mKz&m`Zz}neF|45sl$@QLg
zKG#Qf?V;*zCw<=_j0N}M+&PL(=9khI4bx@-_MR?_q9C>4>HC&eoWl8WT92d*?3i4<
zpvAVYjUu0k9J@+*=<^pAU#hDoKS-K1DJtl|nhy(h`g25<lS>i%)lLVdJ+~0$wl3kW
z+>$1FA9ncS;T6si{-*q`Z14oc$=wMiwR|O?=SDj7<d=kU@+GM5o`rojgKaL;JLHXg
zO(cfK(&|{N=OjGP-1cE2D$!6gV}?Ce)>S7yAY@xGX)jq*L+?zxNJN*XgKW#+>QcFZ
zvZ90UjtEN1iGHd@yltb^OEHW;T~r+{5^%pKPJ${{E2;bSbHyGyJ}K|~4rkg@@<-?X
z_#2Y;tA7L+-$>A_63ct++i7(%4=V?}9n2ey5)4xF-H$euHCK7=ak}NV=!VzyIV)Sm
zn~8LtUy%B6TH>L6uGKVqSyH=)%m4}b!R+!M=isiG4ACIJ)|_)z9+&N*BLu{nR-%Hv
zhMabpuI6T_=3ZguEYX8@?VX_4FZtK#Y^C0OrGLkN1<!K9Y|3EIq#DVI+|C?*!?Y7H
z8_>!JHwp2H$Ew$=cPMPq@_Bi-_73up^TnJG>eM(&Yt-Q$ZHyhxJ8iWCIjiYd=S7`0
z%iK&lzxtnyf0th~z<rK=G+Nqyz*SpeWEzz|ctdQFeom23L*cP+Wygxz#kL8^+Pa`~
zl+51*K-~GyaGI_+Id6{}A%ytNNIqh=bhh&~UIse+O|wYX(qy$3zZ1Rz)qOKnmxt~p
zDtIYuS}Y^%t2Fl=#1@@HX-RG3!U{{IGwo8uR=j<PiN;C|Td`t|#5ZO16H91k{56*v
z&Cf?mh@ec({cxC*L5U{&U8q37?3QE`n{#NLFAau|2#P`WJOqMhx`u&3(knmCZ0^q>
zyxVCdQWLLq`+dR|ACw)6eh|*j=s?vVf;L(YK4-Uy;oNQJKSi}@B@Pby&-#tb5z`bm
z4c&Z2O;&p~FmrkdHq>Ft)lP&9e6AAZHuLIU<%T^ha7^JWEb0(h;2{IjMky{SKw3Wo
zYk{$f^vLN+5i32$O;st>biFy?4F1Fe9l@80j@Ohh8ZAFJ<J(Kp8KevnZ0)g;vx?I_
z&P*$pp)LMM+#jA`k;oj&)wtt3;oB}ezV*~?^@>Zo6`HA9a0MNDZa?;L?xc|P!5^Y)
zbQ}lqMUOd%N*wo(+Bo*=f670TG{U=7lByNG+oGQ6<ZZgUPCUKn(B%$AD>T<i@Kwbn
zy`NKsrnS=^(|b<JE=!v@KkE6-F?S&Q+Q$?Li?FA4g$Cssz+wO?@vavNfkGCwGT#0b
z!#$^dRb-Jq>51lv@Y^mPK^k^b=`W=HoVGrVUq=i!F#9_lw9OHHk7Ksv&L>HD&;%%s
zR!4JfzZoo^AUtd3)V!*ky)>%bclvZ?i)#RHw8!v(!1S?>vby?eR)}+wgmTlNh(la<
zo(*+eOUL1zM>=$=Kd9j4o0)w^SL0{xYb#SI*m9Q23Icibcsa4Ae{{uo@`aqHzd>2?
z5(h(Rcj`u8Rm=0wgU+}BODl2F;Ffq@9~y-RZ25%59`Dr{q|eQY?CR+92CEEMF?W8U
zX0423dna=HEtcuLjsXH`+&#`(+T;jz+t*4&d0c}){<$G)eHJVZ@1jZ4ub7w*w~g)2
zkNSGX_eo4wv2!f)xH9|b4}$Ae(#L5C4K3IOd?M)n6oWexpS1>8Tc3-#E7UpmfQZ~i
z^c<s)o<Z5JSt)DjOA;pR>t<ob<I3;P#wCqp6tzW^lUwh!3oQaHk^{w~^3n6Sn+^h*
zv<b~_?1<tm<Y6?t%)6)u70#Shl$<{Ptk~oIK0{O>!0ABg?O{&XpxYf?I~z-GhEj-c
zIfi<{@>%Odcj?=o-?~6XmKN_PZztToyU2d)3evN*14T8k)o6hV_+6HKW04BJBBLR9
z&+fKU?mhg=1hrIze*bfGR5ptnGQOnC6PgO*4YtV(Mh15M-g#j#D{uA2PCn;H<7gjz
zyH?yJvh-1>azdSG`8<m2gUxFWmzBa5gg^@q9G9FsQIj3qp5?rV(pWt(`@v)V93I&H
z(4eL6i?PDAqEA*;9!BfYZ)fEeq58Yy1!5~Be3I`69dQ1B=)G5of!!>(3Mb>b9KZc~
z&`F0@#f}qOw^-pMS<!O-_|7g*Zi+@wr{)2=NX2aX!zk+$A^iHM!558s95|P_1JQon
zwt&^qp4OE+XN?c(xr|~xecXRXw7q~kGt^>IuP;V0RsLewNUiH$jx#gFItbB1_djR1
zARD;Wq@k|z7^}NIOo<9UZStqA$DZTpIB;^lPFpyM#6jH;Ti4KYHm^4}grd_N8oS&e
zkP9dNlaCgnlCMPvRNsE8#x(RyRYh>jokiY;+8L(9BHf*nAXB0od#Mo_(K){#$kOFh
z6g!uRV2$+VS$3TfCF`XQB}e!&=a6i?&HPN&MBQ77NY|9O&4jRQAO?PULxU5Nc>3Fn
zB<M?XBF(uP@;eAtYc;cqGFwowQWL~>Akv+DdvK1ZmBdx4c<iI1Zw|F?Pp$)^tIM;N
zGDfgHI;oKLr;jd+j~LshVrQ77xPSBhJZYk1E=YK5QEbk7F-~B-g@@xn?^E83Sgb{o
z%U(hUt((vdPi%$l>xnU2YMZIW88aKPD~t*w$qPR;G3eR6{n6+u#dCbjzR2JJBv~gu
zMC*cF!p>aP<@Sy^!&yY*qxmhQea`RrKJA`dLE^rm>V5p>9hre}9Md`dw!r@Y3>aF-
z{SbB)_4zXBD$jrfUp@XlyLB6F^eB=9aeb?G;Ws?p0D8i=ur+EVD$iNi^VPc0;S^st
z#I>Mv%y+~iDx1tf9KB#WVK8S0mkv`NeK`5hpSOAQJLe8qGx;XA*vea-B<;8ZsdnN2
zS)gcjgDanB4wLwn!JWABOCq!n3hldPVAs%F4@Jhg+=a5L`%8?Si}+EB(24bfKi|m0
z1{S((^(07lgX@ZX@O<Awijy#qMpmA_l|9VA*n7F74r+G`WvZ>;7V|_5(I*qLy{0K=
zGTy6OeS<#DLHTd4gi=KP9VV^#8bz2h(({1Vl9%x?GC_K@3(*<Z2klv<9WfbUYNOqY
ziMy>FdZ=mR^27V{eJSP!M4xGoj9!mu+;C}{!8mvDPyf~C=cyPxSCGX#>IhMJH`mf?
z)nJ*P^@u+|2MZVLR^VQI79aS^EdiVPvQZT(W2~>6L@>zI*s_;nrWDVq5AlDy2GbH`
zP1ybmLbpDD`rsowtClko=$#{Ohj^`~wfoRC^^r^VmLA3BY#p>N@DEp#%&q6W@uCuU
z5ho<j+QB&sXkwzOb;q)gXj08BU8Gr2VGVZUNSj}<LZ2UUTX+6rwy<yQx0mK>P}X+Z
zTZHz}eR60vE8p)&%XjZJB4=yZ3Vm!}e{!LZB&TI7YPdWIz^o>mCe=jvT&%RV?F>`a
z+%L>7K|F4a`f3e?L6Yk3a?>-pljuM$kMrAco~c;Df%gbwfd4%en?6%zhOk`CnSc3|
zlJo!VmVUck-G>J3_Nw*Nz9~y^UM|NPD+JPXo$J5t#QxiJ|3B=YZkn5Y9>I}Vsoo<7
zZB+lnzxWa=Ww99@XDFC&u=IJME+jh?p%gznaWA|D@8D>;kF46cZJ-~TJki+N;vx)_
zQ?RR=+P>Y-`TK{&3Sr8?uWh+>!udw@@{Gr)AE*bU;36zOz5EAi>ix>r)OL-vOZ~Xy
zTWJwgPwGq@e|H1Fe#KX5Wya?mP`Po9#(VR=&hfX+dted=scZ?-=|gby+2>kOEBQhm
znAEt+2R-MLW;Rl@HF-v6a+9-#`CxV{y+TkPzJ86TV^q);-ssrdz3pi89%@3B9Eab;
z*PcXpj}m3lD%WBXDj)0LY@d;anqBlec625f-g74Q-cg;vtNuHyN>pYeob>$RrxC%V
zbj?TlKW?MGbx<df*cbojNmc(q`R*KF7ABucT;X9lu+RRWDc=>9!QN3+S#N<7=pB6E
z&m{tj%cQ&KVe`7RdnuJYLEyrDe{@T5R;3zZ^O+!?6{@Y!{)Nw>UUQrqDv<MK)wDA|
z(qdB@g_>9^v!;wT<c_D|LdTE<)Ly-STe4l~zTNGi2!vHtk0-p<df;^^O6bhW&Mi4#
zL%be$6Yj?Em3Q&5^T){5x4x}L3xORv9_Gn5LVXSHO2|a)(f(LMkKo}hEjNm<{Fu{h
zv9QJo{l={<M(7;gBt&Mof!`tltKOfU9eoSsS`_bs&Tf#%GLbA+I{_8tJr}p_gmiaG
zGoK^EZ`FTLNJ`%dlepXEF44km-cu%#mA9f&*!yBI<lb7>HR!pb!##<trZ)&u$Kk1Y
zpRxPAW4!rQ+3zJ<Zat}*G7B3gu!tSFq*WMMpeX4Ld1k0R-;qZCr7ZF1LVgu?r8xXG
zYLlaT*f4k$;%eqmj}0KctYw?dNYY|6$*#N3Hw#BKZj{5j?3IwV@bQ$%xaRZg&64q<
zzu}P537EEhVbL!MgR``@xu;(-9=)-u6ZC3Xk}Sl~!-Tq^d`Tgmk9zpd<GS<(PkqLJ
zg_T#4^O^eCe+L+kyNTg+zoI4*Rfhk@{^pEL!;@me{dqp^M8-LGCf+7<Z_JG?E3)v|
zxs5;O5p<8+GnGe<nmd$~d=4HBJSZ#z?N_#Z6T!!NE5T@7C8-<jy^hM&+$Wuhw)?%F
z5tMI3jX@+8-Vwyd{Q?|&-*Qvh<VC^TYiWd-+{AdF=nj$=6jzL5FW@0kLEQGUVAoGT
zni%{LCrytVH1yqG&-seBO8puc(3mITaJDS&H@>EZx5LJNu4DEj(658|B{N^RJQ$g=
zp*}Sc9uG@QX7!UD6B<ml-%wz$z8QmC$<~?9-=Qu%lyX0oaOCVbR>g3{o>rd_cgVO$
zKNZL&SuT`dK1tB1HJcv_6Mxw^k)c@DkT+-hx`3YP@ep1tDbAWNzmSNz^X>4r4GV8M
zYv2gKWch(c4P6wkq|mE(**>-`FGu)1K5sM2`DPTJAJ|ezf*1%u#oI9q%5Ajc1rHtY
zPZ2KhehfaE!1a-ZiYjg@WdC_)Imc@$w#X=ad_L^8rFX5QLc35tIeH-Bt#OKhjZ2q!
z?CEPtA|6qQi(N`1k6Qz!6V05>L_L)JQsk#v1oTDL!bE}XV4D52>)3Fsu(Zr5;Yy7V
z)U_kI!`1wFjeuxrczBWtw*AUstAcn<R=^E)58quU=4aBH%$6iEDBHLc^DBt3XF{Rb
zUMgE5&vQWBLLfieIKEvqbQd-Y_&xYi{Dnuc)*r0H#e}t41y>v2ack~Pk*_^A?Ex8;
z+)(^OByNnSUXinOR`In=oIf996upN3@KapPnco6e{0dk82s$6>jBj1GV&*%Zxw!b;
zPq#Go;JcFf9LL!$^WEY>HQw0cAV1E}@nU-?g*`iJdU+(&UExm41%KYnw6^fe!pl35
zp1Mfyqu)6x-u1zWr%#3Bla^vjp57R;E=64<be}w!VqPa*T2ng7tGE&u)QB~_se>Wi
z8VR_#$|Ssk6kP0)eLYy((CnRWG=P6vO8jbNE{?xg>-Bx)RlVjX-}t^$<Em#YJ$|s4
z48;&Egta+22{FHTh1dEy9FCsl_}vQK{Ods=#6Ijjs}gN<e|GxhNNBn7ndo%6hZ#?r
z@N&EKKEC5!wh!A>W4LSEMyv!S?@4zF<>g|Fr@W8m&pXQxkB~lf1cA1iu~<eegL#(j
zZGBMnz0jPjYfA)i#&pLQ@lVD7>9xr4J3rw$3~zY4Qln|dTU!71kyO&2aA|ZaBOyTU
zzMY|IlhB%A(#7X@q3~+Zr3IgNgyUYkk|7<&Pqfjt3$<Uvg<u1Qb$f1x2l_nTBeh47
zigNzkD!wjRu>bn&_V80@3js#cD)?tbxq#9t^6l{bW>XxChMW=q#}7}dcDR!`nO@8J
z&ieY+-%V1D{?y^eo1W6_kZlEBb*)4V;R)SmV5`&;-(Uf5B@Z5!H`l?b!ju9EZA%15
z+(!L;(Z&n=SFijejkLTt;9QgwURei$zcNV#IXOJ|vGHwvLf#)Yk2?D28m6B_C0b?;
zlXiqJ@?D%%gl0&qp(>n*q)S7Hk!Mbz$OSk}ucQWkL64UAy`xR2hsL$VZm7TJ>yxs^
z^<WOsr%YwEH1syPX73F3GE^;eUbWS!c81oyKLguaUg(hy;9I+L9(O6_jm)q=n;=uH
zBR}IGGY9g7GgEG2h*n6?qNZ=mz0k@=A@4FwUdP<Eke3;M0#*kt60MGMY1Fh>{1sx}
zwaVXLz3U}oS)@>BL%mh@;@Uv7z-*ue$5+%b&or^3crdSxJh1t>_;zAIpZvF+@pVrf
zWjo~dk$)B6r)yzK=4D#u&opf~T_1f((V;5R3VT@X^M1%~ZRTEh;KpjBqDIeROz0~T
zas23MJK>^VDjypqP;uuK(A;Z>Us;(v4%}|&X4C}ma02MytIzF!hg^cVHr(?mwV3-_
zpLI`J!?z6I9c|x$f8iBg$mKEq4?Ji>STaScl5?y*d~V|mEe+&|>*E_%NXYK+-9#Jw
z{it7WB(`7=M{@oo>Y#CIYsf8D(}2})MiL(H<!bu<S9uvf67QE2kGLcy3?+Dk(mtH#
zZxmxRjW&t9hemTSmaXt6r4OFm3#MOQIrF>hvP&4zLg#2ShW+=Ar^n}8X-T6TY}}jD
zm8p(DO-)euluvCVucTa!G#=QpOX|+M8-AOl5I>dn;TlxD_3)H?2{vHGCWd(J$`@3g
z&=9{QImDoTYH=LyTc5o%SSVUHl=tV>dtyu215#Ng7J0=xl{)<PF9|BO#mO4om6@&3
z`whN3jnPERt>$gSjy-Q`lW)=Cvg5Km=X@J2*N<paYH93N5L4^nlOBtCvN;>7_-(ei
zP3Q2qQl+F>jRg6=QPN&mnpURB!4@mQo;$9#!fTR&MpmL%`~e9X_gz`O%qpA;5`L2!
zxKls7&U;IVhSnxOEFZCZ+$B)s<a2e7KaBdit1q(tuANOB@^D%+Xh7b~?)=0Lo7eT9
zZE~N!qHluQ*-X7kdNM99_v+`^Z!xdot>A`hIm-`<-2LiJGq}t}&>tHG@OuB?e-6bo
znsz0&(%!^y9B^-rghmca(3@Aq`GgdHz$Q0(%yEqRJWIpvw8;vJL05|L>oX%}cHe42
zCvcP16kb2@L&+G386Q=o!|`Re#C!NGMtRHG>97>T@&iIYi@9G?7nV0EZtcVw_HdZQ
z+JuhZnrpSr`(Vzl*wc2}2%jfjaN?o)PXcKpDeH|Y?pU4l`fc|^w~=O{ef-ar@PACH
z|IwM~I9zh1KBFzbDC=6y`x{YnG}}sEJ=1o0$}1B4VsaDlxC8sEUN@KgflmrrUfkA-
zFuT3dg-}ZHY)CGhkT13m7~zm1spDHid?mcXam9aX7-N%!?A~E(4#SMzeqJv(*qEV)
zq(@x`w@*|K6U@7e;`hyY>gTO0(f#hj4J~tC0dlW@>n)AjD4J|)G0QhDowI(i0+oeR
zSDr&&*$Y5xz4}s+tTw88(s1RX9wDnz>Y_`i{Edb<f0wLN&rkEuwPA0FB&poPaKw3*
zVFUc?vCbP|5>%<A^NV$6UB|5Uih1T;oOMoJj|3mFH+(Tq{2H8?c!k+ghd=#8)}ONS
zV-~9tnqk`pwj7vuZO+BgL`s>fN@R%#0|%P);q>JMgM~XoJf|iivx*~@vr<}|{aHUN
z`n!2i!n)Uf9X@y@U-l-jtW$Y~1w(vB*YSK&U|F8!dnrQ@QA(ioaOk>hT5kYfy$xA@
zV9$=8S2WHu3%e~#f~#23zsb>8vFmfPhi=)joQOVr+D<YUYV7bs4iEXqNXsdv){ZfC
zXccZ(Vi~R@ZtHbM-q4`4!p{`bLtdSt+;LJlY&d)1LpNx6^kurNxSV*H)!~iqzE66Q
zJ)*aSLaW8NXdyX?#)F~XG6H6mYKvpA$qk4r%tqGp9f7&`vT|KK+72p+%YzGZh6~&v
zU9EVsoz?y!2WV4!(b?vzd=Zemx37>?;}Xz;E!``9w=H1ar4uSEV|Hc?aa^qV>7@kK
zs51g3-{%vR39rS*o(_CF=s3~986;e5aIowdN0p8kr*OD<MeLJY?DuECZGsd|3sxSJ
zEHXHoyT>1pHcSb70r1;q2!GRKE0&E~SRnUKx8w1cNLec3*GHv`BtgR4)O>7!!NmSf
z?$<%`lH>O`CCVLsv&X6fq}9z;pJb;5GhTyD4yt4!(!$iL#G0dk9~?V=iR6l|$&%z{
zw<iaLX?}XJ6ca|4#dd$&O2d7pITEQn3E`qdkJ`H<swfV7Pd$HGSC=?sM`x-OS)nD*
z<$+TBBzGp->3wprlwR8aTkMsmrdB<Te3nn@kK&Tmo(_9pm3SnDUcR|UpEn#6jkPIb
zeYsSOFk3Im9u6(9lG~Nu^`*6aC<_o4Suugb@$?L5G1foqP%WpiQf`Ia_NOPvx*I-|
z*m{V&OLm=O|5DZ~+WU=XLBl_|eq=M97?^-<B^XI4rw(QPqLH9agKmh<$G0ktq$!pv
z;5%qh<0dZ}p5E{bOeRr+75GvSy{;91EkG#Z1$_<sMbg?jC-dQgqtH^5-^kcJ?mS*f
zDunGIycxlv{pp6J?tTrTA+E;Y2chJA8*SxE(AMq5+uF=>ViUWjJ|fQ+J(fA|1(Wi1
zASzeXLIA=1wBTXnl6~Bh^?p1LDEixv6kHxH42-;*V}2a#RQ|(TyrLMNHK!E3c8cIv
zat|#bAUy29_91EF)#5FZ>VJI};4KzYTH1<jF}Jq+R;5llC4lC#ykFC0B5%U~s9PoC
zguF%_V-fy^!G)h4sU}kH|KuuO>UO@XA`o1jI<cYdfdSgqq{?#Qms_8G1^#`Ew-bhi
zD6~i>zKkT_Zy7v~li*cMf3)7`9P~mUVtFQzu;-b$a*j6|eFW3~DSfbeN1G?EmD+>8
z2tT7}z=!uD>^(?QYKn%5TBpCk2WX>8Wjp-G1w6F3ueP~NbiaCzl;gIA)?)W})T~a!
z60TP?*(oPA`35AV`--fhQ(Zr7-DXFdcRimQ4d*rRxlLj^_sgAgB`BM?Tsg@_(brt(
z$7~;FpRj!x=-nN<)ohGBt*+#nv&a#5+&Dl;xz?V_VoZ9LgezDPpVGEvc~pT`jUkn7
zp%8WQ#kWsL6b|Ef;)OZ_H>wEULNgB>KjRcWfd%3Z>c{o_lUbpAPfPKwv^lTO6kl?c
zZ}zWOw?if<CO(x->dwV|U-CFZYjp_)`-t7XKq~7@^iwW<*UH!tutaQNdh8$+kiGH4
z#8?qFgY`jV>q*=#(>TKpKO?bKcw`fg6X&*83yYbHKeJ-}7P~T;r&)W0y9;K#Pp>$#
zl^UO`{gWUN)-PkB|NAS-t__oD$rs)IEiEmeD6pG4(OWK$6Y@8K%dsOQ<uI3ehSn$x
zn8~~(b6=<d%}?$)m=j|HUMo!LnAw&^vr=t{!Rt$xl9JBBLe;U$W|6`H^QSjMZKs6C
zB;AngE{OQxaILRZ7^44MFp(}nPp!vt%;~fHpMDKEGPL{|@PA4iip;5s-AndNymEtG
zNx-QDOI-f&HSpZCFL+5+<-x4BM+-y628X>GHf^-JZzPmI4tXFFO%?*rwEKNZwOQ&+
z-2R9?Fw)B)=&H=`TC*DOoXVpXVK8^VtiJo(5B&TRk7dO?LAI!~2eLVdd~0H}p{CKX
zbwO@XJC@O2qLGM<_p90~74!RWdYxb2RXZu<)uT=Wq1&;ir%&2aPfaaPzVCgWd(XOO
z?4kcSQ%-T5a8F_w#5LjGia25`FnJ2TF8jeXVQ1r1JFQx>0wbUG?6g*zc`4_dzSY}%
zEgcRTZ`V1`j&kU1G2@62Q#D-{N9RMt+Ca){3c#fgP3FTd9!zY!_u<T0SnE(d@0a~Y
zNqS>wo@7;BR?6V4*fT^mo}L+O?DDELO_))AX9Q1vuM~Zs8}@tZX{n5{)AEyIvaAd9
z{S=Z?bu>0+RxJeW@_=l$7K!WQAp$4d3zw&J<4aw+8f*&Q?ao=8lK+PRIcM2J$!^Fr
zQ|y)B(vR&bEi$mz5;@zV4vS_G;sZ~fcqQF9ZQLFhVf8egfGY4834LHrmn2Io(?)v$
zEbS*t0kcqW58bt%sxUeIyj8XE=n3ObM7i~9oAxOF6rQby<ycuIa&h?zq-3!8@SN>K
z2C+EVBb*J(w;C-v-84NGYRoxi^N{O;TjT%GU2zBRD~Wk101&UW5Lt9lW#CTXl1yp#
zFI<k6xQpubniOnTF=b13NlU=ug}%_RYQ68%u-nLsH-^a<p_D`=r|*<6n=VCb;Zg1N
zh7t#Cn&vSdWRFShBCXq*_dI-YSxaL<e<Jt?U}t^Gvj=Th-s6O~_At;@`kVeM&x_W=
z7z2>U6&w!VX)xU!aXbk>suEAXD~*-ask3>Vf8Um+D^e8$izdIpPG9aw#NxRHw}w%y
z(~g23YCmX`x{vFMV5R~UArrQ8uO7JF&Of#8uZY>t+?2?&V{NmTXiTip%qUSywIL{3
z%&)@pCDQQRNpahfww)O~3QGyt8YV-htn$B!>cFHM%L0l02)8MzGU^?>!1a)`J-MPE
zJfo~thzyXqvHrn`nt}7WKKDZ|U%UQrjT*e6l5`iqyGHY!B;1xkef9O&BD76z>$_x*
zQ<TFVow+!9g7W0S97;lf^5p-g+lA{qW9OPUb#GoS6392M#r+K_B&6~{iHGO8c`ch>
zf^AM6)$aWQzI=yTw*Pt;XQvpOj`fuJub{+UrZf|Ow?_~EjU0%*#QXo(PZI4G85J5Q
z+S}UJS3mppesikShcK{$QQ^9IV>9maXZaGBv09()<>4*tuSiytZJ|21ndTqv9v&^l
z){ROs-K4$l7(`F47omeDv?*JDwR+~GC;9~B+1vnwdWPeASqq1}p!;XeL0{Yt2IbL8
zXB_H{ut~|`3uEJf$eNm(<6?94swKOeXZ1pi{OTP$!a(tG+dwFdAJI(hn%mFlP?aY=
zLuJp|_RU;sk<HRnIngH8Tzo+(xut@*BX!t`5QJ(7>w5R@#tegXt*67FfvzHvm<3nz
z*WE=;PfugPLuEGW>({T}=YN0x+_=>#p9sc4YV;ZNGVwrfszqNVT0DLFG)xJ$zpYal
z9aNc>J>*QxDq<0RY{7hrmS1sq@{KlGuuC_m#u+j_(+?&^czpA+!h-8f<&q5?%DLm^
zpY(6*!DNE<PT<~LV(@U;bG7=+%*^HQ-@j{omT^^jxjI@?@6t#n;U1%$WVyTLj@~`1
z(Fq`$d0T&09}6Od1>J~trq*CAZQvRv+=i(xs#;TVrJP!)R=TPbxND2pZsmb%d1&?)
z7!@vld-4@d9%_IcggtMLx?)`QvVZN(w<paj=!qZ#gYx0zZe(DoRXwV&(8P5Z<G0nh
zw@)Y)=ItG@8PQ{5W@a9~8z1F~=F@j@VGG&)*~3u1F>`gI?0L&w5OqiPQ?#U`71!VZ
z&o%@f&Cco=&S!1B9@cn#bP(AB=M1(4XFf8o_a{b2Adl64d0kae!0f-aDec{6&S3=$
z;R)J+U7N$*jd0h|>Wz;e+`*Kzuyk3Jkd%!4ah#TxW_{ateR3^NH!UcSmzfo`Lx<}>
zM8`I*J$_3u@;R(ee#7(jj@#h$E+vRr?rYt=yzGH<MvH3N%R{(W%1AU;h??eLGI5X@
zygg!sco==v>j2~i9_2Lb?xUllb5lS-U?~0WoBBj6|Hb`5>tJ$yX~X_f(t{B?pWtjI
z0=%+R1%uhAZY%*~wq+gEh2$eB_rD?@e|>T{=lcD(+d_hZ>Mwa6KThu9)0E}AJH2OH
z<M7ZPW)q7I9qv7_+I5o3%E2=+?D9)6FpzM~$CF5xg+Cb+=Q))yPsTBRc&FiVTlbZb
zsvSOkYrq~MJx_kVyBO?06D=dBzG+*jWo0$Kdh2;JCRIH|dN@c$WA&=C^GIba0vQ*l
zr(n|>D;0sFg0v$*@<d5?-kHI01|OE?THB&t_P_i^FOFGv<MylncLtCU^{7eJB(DkB
zPRi}zqr(bHSbpWH4GN?MZk9$=+V<vZ%T5GtX@^HeMNQv*a}t)e++b^GcXA9hH#<uU
zW^<r-^D?#?EU<yx_km(|N&C*CksQs$aVf`vYf16(#K67Hxt42QeR}uTFk780F18?t
zY)4=HI9L2x+S%VZ><se}Bd8JMBGZk0yWgKI<vkbvc*}b)-+9p~i2g-AeS@%=m*&C*
zb}6=~DSyK|<~tMZ6DBTZ0#XULTzTTei6jPvb(M+_I&%5J#HIeVuFlTXSb#aJ>pvJ8
zi3m-x#f83y=DV4v2!o|vE8STwW&<03x0IESH$a_Ntu6HzZhhbS*((j{O!Z&N*Q5lX
zzqH}W(czx`7;I-upc!|*aX-|iWFuf_^_;psn5~GQ;JX7?jQd=B^f_AU4=f_4kJ=m#
za<xCZFB1&(^t!32h!09OP)U;Z#^es`BX<|DmTR4zok2=6GCme>PM&+qaP7`IQq&xE
zM{NCrx-wHxidES&)jgdQIm<`IkE_DV%ge2bjEhI^+o!=uSK{c;{PIYN@e2KHN{CV8
zZsEC7CU%L*F?gX;xh$1&iU{H&u~yluBab#Ne!OF6YpZBo=e<%#9-8otS({6=4tmCQ
z;iF-`evZIcr}e=uSeWIJR_BQ1ykO5PHMq-dfLaYoK>`aBZqq-5dEJw<h$q^t@|?Gs
zx0xdZ7aOQm+Mdyhw--$W9f+DE<OWJIJs3*k49(bfmiuX}OTmQoKwg7^4)gHkgAB2r
zpPOS=(_FLZ&Qy)}ULMlZMaX$CSAQ3F9xSnB{hg-Vh?if(cx-;r%VOczx6WKy=*`nb
zw|x*eRy?eF{rdH2ys(LP^$H3nr}gpXR0XB_;?`##85$zHi_9trgGFY&N(vLJV|9)t
zkE;si0i@|zGz9Kt?@R<A6W3RCB2WA@H+FL?``&Tt<eMwsp4>b<ZnUO5Ag$oY0OL3=
z)O3MFaNRrH>Ou#uR1NN9)0B@VL?2fUu_rZKF+ClrbWo#!iOkAyMc$`+XMAUh7syMm
zphy-`9dnHDh7su*+eYQNkO~0MPS9Fn!9aoe4@o<w{*JZ4Jh(Ehs6Jq)nLO794{AzS
zkUE<EpgaETxXyK=!5%{#FgKtM4IwbRjeGs=iE-tL$H^!G|LDYQD*%bUTfb%K9%7Q~
z09Ovow7^~KZQ2n0)`1(ps@J0<w(oo6A|oSdTpRZ0)83xF(i1Sz0Bf9}qLAT9SHKJ*
zJTZ4N@yW6tE??DNwSauF4gKu96l0W0$rq7JOuE6B#l}6j4`KD2?ZN@9EG)*Sa0#Bu
zSJyV!75%p{W)*g1KTxW9sezkqCLppP=$QL&&pI@MQIz=k`QeoIW<TU{6EtTP$XU25
zM-vope4(W#u}fKaanl&iQTjwrZypSU#b;gev32aSm)tej30RoPmAIa66NsQ01!e{_
z-Tf>_zj*7zE0zRUxl-kQR^t$T+0YO18}p)qg00CnpWY*b>5p+knS~68{E7W0rJL;@
zhZ`-f3E5SSgD9Qs`Uuo>0G2EKx~Ydd%gf7SCYE0PZ#ojiIll%UA2s06u8r&Yd8xG-
zFZ&CWLB7oIrYZ)cvZbzt(s8^%frTUu4-cQ<QH#NNjn#Uwu1z#Hu63r!izh1vkS0TE
z=#;Dqjf<_HIoM-tE&b-=9RW3_fy(aukR7mEWB*`x+8w}FZNCnM#8Ox-UVZy`!yxx8
zAZ=^0@|~3$d}<vkh`b*OXwPyBE7^5zy1!x2D!}>CTzkBX_NUtp3t%|=D`R!&wMg*>
zU+tivqh<=pvx0R#5dpFa?V;<KPF4Szm-wQ)QsX;OpqJr+#`e|V_8WPJBVV8X2t#al
z%CA{iWZVn8Wm)UF2phEYk+QCQ5jUeQtjy~l&8gtK4kfXY40L4Y`gOsYxd+6hi8mf@
zmKT=PE`0-JdUQEepgTx#v@hR4T-2mwGzL(~SzLv^ZX*c6Hk*vgDAB0E(5w-_-6s$t
zHW#?u)`1+m?pWFSjBmDv0y#r8&f~kZ*HWM6*4CB`oKyLzHbvgY>hjr>2Z!6ex-$F~
z3=td?vL5q?c|Z%AHvrYbc(AiJF&sp$-x)7F0%5TbfFADzAN#0*3($`(kq#{Ocv|xx
zn|alGY3#>cT#u^vdq2Rs>jxxSdg;3=OwXtZWSt@F2ZS^5U<IwF(W9rvUZwPSgfcPl
zP?hw^?Ss;~#^XQkyHnxfsnX6PS<J%5BAY@pUBO3N-cTVCk)le6-rQ@Y;-`YDp0~uX
zhvuaP`G4W92V*;yBX9QxqtJ7BJgcSKFJ{Lsg)Qt<G@DEiX$G#mT4CFffL`8f0$OCy
z6wxV*PiA$go_g!L97wsu(w~eUr1R`@*qExZh=h1Rz#>pHGqaLL4LFFT@vP(C-kvID
zao>*D2TYh$*!>n5D6z!3P_S_XNP*t`sP=eaSJN8zxv{C1)yzn-k!k=H;U~{tzWEaD
zln2;SkyS~bI{`%{I5xdVmkFJ}s_Z(B(WA&+Z$K=;<8?l+b5|towv%o>fBP`%a>nTB
zXvzu>9ekV-&f$-S9gyS^&i1A$Zq|utXIuhtxuVPJ1~k#ay^WEPU+d1~K8~WW;L1n4
z_^DF9UWPDwTIvJ9X|JAx(Vkfz1Vi~+0%9g3<2>TIJWy;7zb5t4@Way|Z^=hIdDerA
z50<=V1~=5>eGh&-=!|#;1UW8I+*&CUXsd?h=MpVwP>KiEL3?xZ{-ou-zMm0{$9@B5
z_QiK*q9lVbldtI?(!TkI1%foDVIeb8+P{AdU-KHlsA)Yp==G`Lb;I<d1!2f;_(e<z
z14X6%!z<-7>T52txMCjs{Y`<atZW?+I2*?vwPa=eUCvjU2_n$lM3V2w27q4avBuzF
z7ci0ee~zDCC;{{o09V>y7zVWPd~>#qxH3rS%ik*GrDzMcOlNIXvyIk{4q+D@YQ+iq
zNy1hGhW4aXxlJB~9L8!@eOChg!FA~C^^ANK2-0ffKYDTy^dGN&f0Ej1T>nl#NCD7N
zBOqsX^t3?@72kFoDB9A!Gxbl|@otN<jyfs@^`NAK5^ud<zkZp`btE3o4cn(hFRC@z
z>}R|J>*_0fs9900m-VpGYq4ie3hF->Z=&<w%X)gsek_O`ZWw`9)|yQ|H3-<-<nYX@
zMjPh@hoZj|J1G4u#O)V<(s7^-suuQH9W_IPMr(`0A@I!pw9YN2h{zoAb%LC>^;A^D
zv`S8WDP)rKA!rkZ(5}|0yzyY!mRKW!jL^0QO!uM<t6KG<JM;bh@bij}loq5@`S?(6
zJouO_3>3zatmWO^g)TtZ|0uO=pq>N86wT|<UtlC)YinEefk*?CVWlfWd+a?A7ochi
zYO|{lo*klSk!#99hpT*=37*B^N*@5;*AG_McQI4M4u#HF;dx_033Ic5!D8|agSQ1}
z%5Xr5R~;RZ4?2c%%P{jgZ)Yj=A&C3<?6yBew)600-MM_$ZgsdqU?bodg4Ed9rs>{w
ziv|FH{1zP6$h(-M{aJcWD@h_}6?A&KM*yn2M8w3-M{y|b*MdP<j@9|B{cc0a#1S^}
zX~9AN@RApGgFmqnM&WJS_ow8%mbT-~*#XiW?Z07A`ZH4H`1w~)uJ4{1+Pa0uXnKW#
zQC8r4itltp!|G?w7N6~f?yY%jQm-8l^C>1J7Q@%Y#a(gB!xfxx+v6U;RBpG8ZHmrX
z6i)6ox%Q=UhZ%DC<CIks9fh9|mG)h!U+A}N?Cg$$I&`=$oI*Jcx=`4iU)ps%5Xc+1
z0aaE@Pv=V6`0r@^+#DZMUlf`htd0kB+u<#WSTY9>OUlE-BH31vdW!z!KX_-*W{!7(
zy$XOD(%mBtS~H|6_-#(m0kkQ2T=kNXP1?zK%hG48Utz%ez|1%s1kPu5y#7EENVK&b
z0EZk#rlzLf#!KJ9JkI@@pP#QCM*z@^`@?+|qS5HPANu03x;ebi9PKhS`Rz?(8t4Wh
zDaENQ3EDT_#fF1bLY&jE{<Fb308n^M{phPw*VGtgp}CxAO!9Qt2jy*n97mfY&YU?T
z)G|`yyZe6$u2G4FpDXv?=&n~_7XS}GQX^;<Zi)`z7J4c1j3Aweu=u~n6Y0n4G?H7~
z$S3n;X%N;%);0wE&WUoJ2pak%<ygS~xEb(Zi?l<}Y&K<}UjWPJ?Y+Cm)8MUH2N+|*
z)xoL1Ab!T;YY;jMuvr~nMfEpqlH@U~YYip)h@f&6(T;;9ta(~V`i}eCi_uC)yE8MO
zJAr)%ry0R)G_&<K>`q78Yu1Y3fFLQ*O1`s^hVUHs!;^R33zzI-ya)sGU{JLa9Jl^Z
zIwwgx>;mIj1C4t96oaVYoJQO4pv_+<r+>xs?)5SZ>H9@1&mj$h6iGwR^F&R*rsF{-
zn%~K}AtvU1=#F-sP#P46ZCE7&ZuZgW0dQ@(_U;|hN!jLLqlHtr+8I}FtLX=A@94m#
zzS!e40?C_IsSeO2F==tFnprt!EmJj82&~JJ|G_b5(C$<ig=6zTkKlG~?3!2#-oec1
zt6N2b-*!@V$BpsC-JLVa`>#z)dN0Ak*!JJku)l<zfcVh*>e=;w(R&`w3#+S8nOIeL
z@jmmPS&*icu_^$JjVb!_Cy=ta4cU7U$ZpUIOn@F?cPZ+M<h}x!SYpiOThk}el>oU^
zZK3ULZNo{e)Q%CAS(bI)j(OUja{+oJbKRIyJ}(3s$G%eQMs4yw5y$JWN{O)N@{rs1
z_b~c8anr9)+yPQOJED<_EC24ICf5Y|-#-=zAo9143PEd;YVc{T;h;pX$XW9ra~!0)
z1H`2aQ09+uvdtS;+Yz#+!r=m)Q$D6yQy(CkkGekBg*#7z`hfC$4RqTXW%9N`i9tgc
zJ*#nqv3Jqn9H8W47(T_P5;XCQ@87>qh0hI`H|}QuDVAN6ZL5Q`!+vzD<dt$7S~t&I
z0rmeOUmo%A8mM~(AY>aT9c^BU_sBZvFGfL|)A$F-K29|_2W+e<ltv9qZe!_1<mElT
zl50y>rCwIvN03&A^3&`(i8)xxunrFotJOkw`&p|k^L})j+{r4v^Cx4#1o8^p|FRum
z)K$2Z=TBU!3qIPzZw4U~lalg*?5*wenVtK|sB0nVwPaXqR*~x<;q1Fy)-vu4W}ODe
zJEvQ+OTpu(^6_5RT5=Dii$n3UyZyYViO3gE^*#$&>leW5x?s>}g<Hai{VjgQHtcYU
z3LV5?FxI5yVFU7K*M>H@Kogs;8BoK*vDuUc_=wx;(W6)%ifD?luFlm-dF%m1O$*<M
zw0QT($)+)&7C2$6HTWY#i{!r7{f&iI_4})o{?QGyceq5C-Dfr9vogZG3(#C%Q~v|M
z_W6Y^pf{>0(n!h*DEO=ZAUX_e#&IrnE6KhDk2*1HuYMz8u<EOs0PzPeOW3q-fLR4A
zMH?qrlmCF??%JCQ=NxwdU`d7E2DzoQ18heHYec8w&ZyrM?yy!zKp*|tkl3+^XqAoA
zXycd=v#hnK1a;gD3<z^++jb<HCRF7Wn6zYqsQCbBoOB!9K_KD2b30oWvVBCtpldHc
zI#=@=ciVG~?aQMzTRuQ3mV7gk3EDnkHMsa{o4IpA_`K&AA~R(479D86!LnuoNdUX`
z^!q<%K?==4pc48FbhTd)w>re?oT_+%SK;GKf9A}kBa14EnFab3rP%C%wR&`;c`Y#Z
zz83R(t&PKUGQED`VnE_7vjM5Vh}Z_JeinFlI6sehY`#-huOV0uSzrYn5=t8zR^rq+
z_Da_`fpYV+1082w1HiK?w9DB3L9&goagpEz5Fr&iV09G%16Kp!R~CBzpyOpvcH0hO
zyP3_^^8m#1{8cv!vPmJff3aF8yY*_zRE?vY%@cT?hs*f_hQ2;^?gF8ud!`t)@qR!W
zvMT4Zig6yTc5B$C0TT72)XTmvVL)w19cb2DlS7cZQbFJUIZXr?gY7jQlh>pHJC)j5
zx9~bpoL?YSoreGnTm;=^5f7B-Vbn*K)J9N0Y3e-`_X`c8D0M?b1RINWo^Ju553odJ
zao*6CdvJ~t76MQV!MqNDzXyp6-80Lokt{~#2T0&b%##l$j$J%J;iPf=?V&7y_u&HK
zyc)Ealeh%jQClYPz#MLNcu@w22lTmBU|hUUJ|{D}uI<YKOv8x275?FwGT)8q_rR70
zX!3D;{<G_VhG*I#NT!RC=C1WsIrV8IS$4;OONtHXaev1SU4Syn$;ruMfEj$7IK1uv
zMOhXvWHfRJ42{&G#^B>lE24mV32$v_`0J@3;o>`moF8vK{a!>xbFxS?o4xz5#X7Yh
zydeDSMn~xkRr>aGTJgy@K=-pqI}SK?f@+kHVv{ME0w!hLdV3aVj{}Q=b`3Ub41y74
z#(lHADVFd*uHqnUrj;-B?4ehsorZdBa2&ewz(kgG1x6sVHK?|46rmsk*dj>BZ$<Tr
z6ELq!YF<r!=Kw5H?g%rnh7sR%yO?O@77<G7R(mO}F-1w?D0sLBEXF4fA3k&grEB5@
z{NEVL`0GHW&KCiB{-ZUHCmeoFb~8i*X!Z&WaLWjQnmQUEI6lW@R{dVvhwOHh25}`h
z1_Cqw2{5276GhB=h~MZqJ+%`l)~M6a*8~6Ug)*r_BIt}>eCrTz#Q1}hQL_S$@DAml
zDZkf%M-I9)#p}1>t(%wX#gunOJ<^=UF*PG}oPn>VKo@x==S&4TdF#JE3ougI_;6kx
zaMr}R<KRs4qiSHpt^A@i85l~ol~Mi)ai$n3fbmo6cwA{n1i2LTF)M^32kE<9j_vz&
z&^5hy9~sHq5b{Xjl5E2kzN@Pd%-RK+9S#_{6POlcCAcZTkDcSS;Nv==l~Z-KDJsG~
z#cSXUfra>n7c727>AG4a#sBv-mEC53x*&|%b5npIgQ6x+1iFKgtLKM;MDpCRX_uum
zye@rTx>*sPz;v>{P(yALNK<eJ_02qjc2&*+4n{-CWp+(@ip%m1h+(A#;3WH&fRJ}o
zl$Vq2?Ce;KzC4=B<JbO#t(!$?rUIh<Hu0llA9${5jdKa+t8x^1VwA6M3$wGEKT_fP
zS_<^#L<(?NOB;Y$d>pvlt=9N1$1)<JKjVJ*3IOh_Bj9d>ZhNBmu?O&21%WaLZQ(@l
z!eiia%mCBWA2_0qCx9Ym0qq6zH6TqQfo@&@31r;r7r<CEoWpJJbDSX>%F2K3+C)q5
zVFrU-tt;*uzgU&~DJL&5%r6%c7It(6S@sne)5<b0`(E5_3?iqRf!iQW2WyST=?;RM
zo15<``c3oi%?j`a=W-zM*ZqQ*`tt9CrdA4<KMw3*u=5e&@A-S60`*V(&5~16>JPsD
zIBz}zIK!TjP7!f_mlngn6IaI$I`+2k*2AF5MGG4hRNkPpE8s4`b8w5q+7wtxMgqyN
zzTc%E-1SP)$zFYNNs$9+%3>}kz=(+mfz(}13^7-O8~;G)mq#GLc!_}R1vgEAKHlI2
zX^p_qW7yBg0~lvc$G~y;h4<Xm+Y6}mu=4LY(-wEz)|coJ^*T68{ZHTMf>Y{Wn7MIa
z2F`c+EGiDUeJw1f`)N44Hx7^r+^pQDtqHK!s*Wl<;HgHhA8*fzvWi*U`2w8AhLVr;
z5Otk$GGuVK&w+B&3XonE2f(GT-`>y#r>&B*aXH}5$&yExqR*U}eTvjkF@P|Ev6awo
ze*Q1ii9Xc(@B5}CPi6l;jEXv|<N<vGfGDeOwU%H8ttE{(&V1q&GX^fA_wRFT(v?mV
z4P>UHk2E1Y0!cw3jtUw*qct8laQk7E6L^;4i!Su9zCh=|InO{s7^yKKaIw1Oa<7(a
z9@rL6*tT98;0)wW-62RYtAzOYDj(4CA8*w;K~y#oi*(h^S=mf1EOvk@axFm^1^R)Y
zzd5!-bzUm}P)Eg@3i9gvVN6ID@Sh9w_!Lv#mjmnBBUq^Y1Y{Q&Xq4e-fX?&lmoE#M
zo@kmo$ebm4Dj<HFPE)>2_;*W>dKM>ztiJCTC-t8feuk+IAby?#UpxJ~31(gX7I}&F
z>`7tGg4k8>|Gdbxg0i)-Val$%`0rl-`~Ng?>OZVy3z3+TgQB7B+Zjb6*-p?z^-r_+
z{lLZBs<nHF`_IXi7?U1l-ug@TM@A5K8U=|xEb&SmyeZrc*0pSuTkyM69MHRIoVv&b
z4)DJ_=G@1}oj2&=ZnrqnQghOa7yWNXZd?YD$u=^kT<mFecEDWMsqr{ONo-|vcsV#G
z@Yc+)-u_I7cuyIgIsW=8<H1oy<<&r=kxIj@rzUynsySVmgm41-w{mVB<>v`*@iax6
zu8{JR@1?ba6R&HBZJHGrUY8&Htqu$|>eF)_tyn{@(&Vn<8z~YJhnIW7F^}AL34cEd
z0G_uC{;%HW1_x0#TPDg^HUDmcS>QJ7f1avb0r!#refj@8r*7Bqp-Ddro#Ty9WQsN9
zb%1A2@Sf-$68m?cIoGJh5sBCHQ?fY_or!(zJS+OpQmDU44<7N}U|jCsy=+f{y}S~#
z^Z5GVw_utCx6j$yh?0cug3H7I{)&hS_M5rB1aI_*?S#=cb@F`V7mD)v!Vcxxi9Zki
z{-_A}j0Wu)&Gvf4$$!Yf71;znGE`qRY3I7NzB56#*PnbDI@lUDUPX-Ce$;MG`K~nB
z())OtKKqA5Yi}(dqdTIe+4&rjvd83n+r!d{`-2FMik^vUDDq?IIfGt{{~Q6aJwY|z
z$Hqijv*#VVo-f!b@t$u?U@`9N;7NgD%A6;UhwHXpwRP5x<I;3|1g_JZradJoL92D|
z!h@R0o9|wS+*P4{V0h<UI8P}z_nU>nQo0j&PtdAvq~k*vD+DK>G9mBYZGI6#tFHd>
z-o1P3T&JP_fyZCk7c&=KNUK&=j-@3B4ZvwPD@-Ng8aqoo*T`dCK`ammkHBO~qk(;M
zmr~Q?t}#tZ%5a~YKJANNBT3HCpZ_|b8j$}tlp@!u)()MMuDB{RJ+4SAEj<4f91Vfo
zbf+HQ3s}SM&e9ZlO=EXqbf$lIzbp%OuXnIJEMNLVE~@bJC#Np`%|}i3Ci&n}r$O&C
zJ_SmqupJ@CQIvnMSK{Kvz>@39#q*StUM|*-ba`^x!icO+6z`ppH?}v%8<&1j>YJT+
zOq4$DB4gBIEaP-(L8+kjw~G{~A<Sbu`tR4k2%kfIoH2F&Pd+#^m(+BRh!##**ru@e
z^Aw^P1}LQox%n9N!c^Whzr<RxaHPE55pCRP!fs6-Yl8g+M;_Y~Ya_MU`^Eg%*PIIj
z3<XTkB`(J7<2IV%TLl#bx<<!xFe_)lzj<(NmKGCPR<%F7ee2|eIeGA{*#@j@ajWX&
zm%oLqsom6}p^&v75$ZVZGU-pb_*YL_OwrHYf}KjjNjJLbmcjs&w9Dy#<0v9UB`&=2
zYl)Ahzt-qOh!0MMNIBw(!)f0Zd`bV?#a)_6CtAu&rXo~pyBPF{0=w(b;NPE#nw<1*
z&19pz2YGUQ>OUy|P~$(pqjOWA1QwX>oQ19+17!z8>hY@eJ?}B5|9ltZrtzD<s}hA|
z#yAoT`eSH{+<GoVQ}%?+P*OwJC{L?p!ram?gov`~`1`#kF7w+(VLn|^uBb2kl>I{9
zz(ahFl<r6>xjp@xKM*>0u=ub*yF(Z~;qU41ESv%v<smr}AX;#ma?Ir94FCUV@6Dsx
z?!SF;s--&cwA!Mkj`X31R#8(_TT~UTc_^u>SqvrS2<54^loqAt7BwV@nx~M`Qi>>I
z4q8J<L`)Gv<bK3+zUMjTuKUMb>-_GzXZ>zh7m|G5(|+&$+ONI$`}2w0D(y8<B5w-9
z(XSd3c6#@1jOGnYy`rtsqhb+`0ai=x&Qp7j3_5>t@2Hf(pX|Ub#=xa_xc~D?_p!h)
z?CtSA<cmq%gS|(&`}d9w{h#e(q+*U!;4gig$mv<GeQmt=BdAkzM89Z{$FFUyGSG8?
z=pMZs`%t%;on~QAFegaYaX%8?RgWxl4OOqM1kRGS$LVJHpr87eF>$7z4}JLn{n;Oj
z1c5~w=d=fgV#T9fF3Yetp5N7*D&n;36kDaoz;r$eEcoG6v_A=<`jAkdc)2b?!E0Oz
zwFn%WDV{k}$<FrZn8!nr(C@QdBHpWMGIhxc-ZO!OY6b$yQ`jiQE?c^9pRL*N%D%Qg
zY%SDl>jFLm6>%^_CMcG#!e~m&)v=ugd9bZ7plqeSJWW5B@ymft<#UPyUnMd(gKdK7
z68v~hxpN+6ENGQ8`oC*O{txTLV08;J2XQpoW6x~i`vD89A%4W6OyY`4s-u*JkZtB*
zL`jhhvdYvGxmc+PVQIX5smsr!m*3`_$PTq^f=hM+R6rF$U}!RaR@ev+r*EVYKjUI+
zeOYD{^BgeSDgF_k8f&T!E+T(QgFM=T$E(-T$>H=p`?&|et&XW|rt(e*HJ6x-D9<PC
zAnHu16M1bEq=9ppO-n0r09Wtmy6u=i-epK^VHd>#!;h*UHLbQGM-{n4n7Jy2^hZ#4
z>hlz3js6SU_$#pVz9+%Y<GTA{UMyQQ;#=yTxaHVtSX9+1><KB0uO=qWuO_69nLzwU
zon{wpS^UG|Cg3aT`#Lu&)Ejn|@v#~WaaQGn6E3K7*07&g3lC50j**>cA(@l?w!2{c
zsTsiuj74W^XdWH+d@~$#G#@)C_F<p_UmK(goz51rv_}<W*6&&q!1TKJH>_4ys)VSF
z-zSfesYipakHfk%XFW8Q2Fw<0$s;!(Um6su8CO#)s`~+$U6_Of3sVIC`nYf0+)Ne$
z>YdJew6KyQE~SZ#MaqnjsrG)V<9+GsU5x(l>Z-?v1-2Ft;SU2Sv$&FO;CBP0fKHJZ
zD`*>Ac|PH?I0u9L7!ciFH0-Zt_UyWoFsN%m80{A>2XPqbq_laGf;wsvya4Jc38U#C
zn#Rf0tp&gBNg|x`X@JA2RZIn#rn^qdfiiwx6Q?d=_{PVKfX-vl9`=ikLDT`Q>fJSB
zB#*)pDusainlF3}z6GsT4vG03$mra_A`+ZpJ+0C1Dmz(y1Pu@D7D-eCy>l9_VG_Y=
zcm3$e#?1TbNKdrp&@BW_$r88qL%&MYLYq?DofaEc0D6#NoM8&9tMg01)fg65-6NzM
ztLM;n=BEmA1Vm0gRHk^mRvf?QW(V%GQwYcj*D{?27=2)Axkh|zHMEkhfm7$)uCXu8
zQK|IAr)?zRAbC?{!1+oc+YGQGRt(#ON!l&k>L@g)3X$dhbX9S8W{+MT6{+w*?$pwM
ziH|C%ebOxre$8b@Ny`j&g)+i5c7mWm(8tuD>ggJV?Zh#JxvAl(PKLDpj!+|Pa%Z=L
zuw$u&yCcyEe#K$cbs7EUA8rrx+Y$YTk=3Re_aW)_vZOCg2#VW^Qxg=5CI;sboX{WY
zT&N^m8q!~BIGFYp_ZeqBkhe#D(4!TcV)i=JU&MSw7Amx%-H)d_wK0@AKP80oK{O#`
zEFv0D&GgROgS*|zv{=%>*cMZ5YmybXy*&F$7>+1!viQf@O<a>14WU@%06ex4_-9`>
zz)qPJM?xoT7&D+*JUYmbx-71Afz`nyCAX7H;|O4NKhhRzgHb7iJH>Tis0H*XwJc@O
zprjk&QSmo8#I&h#jJqk+UKx@=V9l@vJQ<DaUBv3Nv3m=mI1N*4gghb(>G2=~lu_@k
z!ZNxr!CPDnLI_n8_|GSmi^#O1W_0TolFOvc1nd4({<He#P3mOIR20t`>-;fh4syDn
z`?J0oX~!|aw6?qikqKr5Qoot@Z#Q>t1ab9??5+l*=?v&~v$)dzH0l>|YpI6vkvcI2
ze^F=S-A~!L$^m<Fb9X7TqJ4sq4vjG!+*tk~3@soz$?&446Gg}qu6T4{OIRhV0gvRZ
z0}cLS1uXK%CguC@Z01PiGk<&P*ZGZJBFZcPZ)iT47R#&{QM|9QHxe2ciBfEPO@uis
zS)$q)^u>4kEpdXA$Ra9}AC&q}9pz0GY=WK~M8h1nC&PnSEYIQ)Fdi*aFbn;P)SV$%
z|A0lFFp@`rZSZgm`6gLX|I{(0_Xe6Z$mLyluy<-zHS@-Irz~ILpt6v)^u+T+0kY|W
zVpXq5irAQ@EB9HvgiX&5kPV0Y6d!Q8v{Ne+^w0OR0E`5GgBoTCHrapJi`9~v0b?RL
zwZ@eg*nCmYFk#SArp%A_vsg67XjfuZ)S{FrC39?X>}bmv$qZXGuHdtH0C(VD6Hz>B
zL9)a#koEWC;1K%tCOXzthpLX#_p4vb!J&AESkeIcay{UQ8z5%le)y@vbBOHvRgfX|
zF<2m!HovzIMa^&6J#k4y0wMvSQBpG0k}j2p%CJx`sSBE9xdyhR<~P>YI#tT)GxJm5
zi6ech6VBL=d+SDCLxuSdoaBbGM9itQ_BU}WI`*Flo2zZ`(s+T&$2u42hGa?baL5R&
z$@PsRB1=2>sl7zStw8kO-0iRDM*^~J8DGMv78)Lw>J@fXYc;EDfvaqlY?JFaj#K!r
zr?(ub2x7dJ(ms=x&|<Yy*2qCqu<e(zqqr8Nb!TM`l~9h;xLn80mec|W8nQLuMQbJw
z<8%-|5E&dW;ZsvIM3z9!Y&*vw$0KEQnTo?M<2s6PlBwhVfZ#Xh1(?_2C3W1CnH*&u
z=SCR&5d^I#%13+b3yYWlI+X2>(XhZHN3Pz7oTB(6v8F;?1yG7OGC)J&hBVvtJmP2G
zCVk+f=@RqlcbBYfD+*)D91&~dD~n-5@8PJ6p@TfCi*?b94vQsf%<abYUwy7Ka9$B(
z=o}Q)N2PdI*HSApA8w4p-AJFnsQD}rwpj?EU_0_tZ5PMXhtff?BftLA-#3orL~yY&
zMzC4EU7jJ+*`x34H8x3xHhfF_NS&|Y(~UM;xueo`uWRc!CN!SvW9lWNCMN0lmCtdh
zw{%F@L5;v!AOc}4diinvWh&mV9rb~w`$ge^?hkiSt9eZT{s~|$3{XfI;KB>SUH7bj
z7ceE%d%+2}52>sc3%gPVyjyxK(;WKs#-26|MFZU+m}U$Zw1sGo`;%jU1qhFn(l`;T
zsV>Fm^V_PC1}K?AkcrLbW))tc0^oU~z-STUKxem*UBTDk8N?k9*k1hYc%*g@dD+~Y
z3r;rZ@S3m`JnZCY$w_q3hrQ%L(Hm)2NWu2+k<cy3&(it?gpP^E{R|@;x1gPZ6y<6F
zLSwNde%*z8Xc^Jl!%p$WNg=n2A1&gM=J(ooOLn{`_e_<?^_Is^uLyA|Z>JW#9_<RV
z68EidIU0GCW1S@ouO1=ENqo<f1B;*grmD@AN=l3&_#X<R2q*ov>Vn0q|3rck@*!tK
zq^Lzk(=*bzihStYKhdVGGbYOd0{#UBrwdN}2cSSZwdRx8N4jAT{bxEiV*dpJ02Vd5
zIfmdu2d;;Nfml0{)Cvf1Mt<rwvSzU~WtqT5WW}YA{sdqy^pRu8m<NhH)CR526l{Y3
z6N^+GTk}hP*R^3|Ce;2pV+HvsjiT68<?+!&;|T}}Z0E7PIICzEz_f4_gSIv^F{HuR
zk1>6mp;<mQJ@_tk_@ApnI90ic;rRd`g)-6U><n~*no<#d_!u%Cmv!V{Aa!*TZ-%cA
zTJEeBT2Lf_$cOxpwnli=2<Q<@Cjfl?9#-w@29Q}Zz$5Fe%MsG_pW*qC;B?zPcPt4>
zHOBiOC*Fg2Jj-M$XZ6>ID+hOTENmFI*^^7%b%?r0M?oxKgE6v<4ohbE+=GTxe$>6O
zL;be*IGG})Ta+(9!iVpx7t!6JF4TFVao=)2!kB-MrBkKjfM22+=r^}>P(QP~7AZxU
zdZx!>5uq-!tBPhQlxSJ<pr<*ymQEr%Aw@XWSvUK{^Z;VwLUwWV3!b}R>$zx#hpX&F
z!8(IICPWuAACQX-GL>oX#gTzos{cmWhO_N<9IH(Ou(q>fxk2>KWj)0CwEgwfsMrGA
zYpZl0#1!WOD;+EF@uS%isP5fg-=fU@3qng&f`S$UaW25@L>ZXQjl;nys|oT`@S;%f
z>OoXd=qKGjwqMNGMw!csWNYpU=21GJKj89?%_b{`9rdgDR{KsUbomClNU1tQ5L}zA
z%==!DNe8(ywCneci|Os97W4od@~^BiGju&3I*y{>Pe^+KvA(addaYh*`MG#7adFW=
zeyV)^0VzFYnI>|_c<Wcq^WokpD~^6P9?__Z5bN%TrZ!b`;uexR*M{jXDGz(UY(g&r
z>DDx@0}Tq?Dp^*r1|SzA&1H+mgwD>C>sNg$(0$?kQ*>4sBtKpkXEo~7I;f0kG@A;<
z^>LO2riGK(r`D4E@GqWPx&zcLs4rW{?$7kzX~&u$>l_2+$b=EvpegVytos&EFxJ%h
zl;!g(*Ez=FuI89vCef27N8rH0@~3Vgku)PWKZT{u2;b_fS*S*%UCRGfzp;ILmaQ^u
zx!w&2<-zx#6#|0m<l6ejqw6IjjrR6X0ua2vHb%IK)NQ_r1-Y*Jr-#VZY{VnoRwAZJ
ziko!6_;_5Sc><iwO~?FE<*j6~)FP7-;1<j0#1;JPwrTy&wuHIZs9y1CSIoo}lL)CL
ziNB+8`pOMzSOiAL5be|EZo8(TyGrA73i&+2oE~4S=3ZU3*9ckNSqY?B_zJoGK1JKE
zm!XfCMtcC(Fwpr&Fhcaj@TUu0q;W3_s$|n+CkR)M$nj5GO(p8}Egw!>z}43u#jQHU
zf|VY{v5e%Pw8|u!1Vm|nL9c*Skz8HE6QA1G4>dg$QB|+5Y}fCTDOfZ`SE+=~rjpE2
z&V!(LU{{Fw9u|;#&T))WT#rAooucsfw^?0B2X%HXzr{tTj{Vx~B=V+4R%1PmuY($N
zhk_lTT2MP`!F;7Pvff;EAlsXziHy^(EiDoiWkOyM=cg^vVnvJUKB0Ql-tZtx)J|S|
z$EcFYV5Tw?-`AEY+&H?NjM%Dh+sjJ<fyBwB9q);{tVLIM&*N61kPo&4<?up}`;41Z
zA)L2V!(uwo9I0eBI@`xGV>!j>28Yd0xGbgN%*o#e);|xFcsxB{$!}U+vS^WEfzPWO
zSfj3{Mb<ef45tMMHhZ!r_zo}?L)S7!^Id@9(iR-_J#JJL`I$Kx?!gmM(F7xvyBG4?
zM_sOCQ5&}Pxc^lys_>&nnctvm%Z<wQSq`5P-rX_ecKI-+SdrJn&2v`d3=7s`Uj3Ut
za|L`}oO4<8x(5!`oel?6<8b_l3|tq|7%7&XvKrO5TODCzW5KczGR+jOuD(-Ee2WVV
ze!sO%)W%7r?nfII>{O^Y{X6PgUlTUVFcYzXHRyWP=X=pk6U;Rp!YWj<>2bvG|76W^
zMX_nIVqgeBRY&uE+>Re%cK#FM#j*sMZIUHh8=V_%od57Q<8F=(4krg8X@V0z|2`@^
zWua@ttUP(~m;6-MKV8{`hI}Iy=q5a6dF!9uG(L6QPR2pay}GX8q#R?x>i_glINV=-
z%b#(>xQLO}s>5jrv6OCQkD$ePqUXOnpF6$V*zAcOltzpZ|F{T6D4D7vc+Ij({LHG6
zizC&XKSqI^?|&fQ#qF=g_z+6w5{6h2BRqsYlu(W^&L7<4K8FBC;q@A8o^PTt^aMOk
z4t`&b4uViy^v%`|`Li~Dz2%Km0P1sj5N&N)9`_da6Zf20MqHT}W^EA<Ms44?rE1##
zx@7F;6zi?a86T^iS${ox-RX9KqKi9^5OXe*pj74&;!;z5qKQ588w>8EtV>EIf!MB1
zp|*B}VJ1gg#7X5%ahWr(djW*}{O#K{|8^DtxR$H(Y_)TZX2QFg@?VRew%#*Gh`;AI
zzUg~3vxpex5MVkU&Sm>(L-Wg{NFnpV!m7oYR0s~JUt62_3l{8=qfc@snBYOb0~PtE
zyhYvMFHp}6K@H!3?x#H~2ZUOx186bjKSV_1@>6|&!4Lw76<f9aQ>P{r<QrWz+=M|l
z{`T<peK(*op5`~|Ker$4H~YOuUjF)pZvq|@acld=<X0fe&c({IFJ-9J*Y)kDP{D<v
zwRP@4U(3M(+Yu`ey(S_yIIZvdT4bwcaX@~G#@m0mCD@mm!!fvB0yqjlCJT$&IM2&<
zFAoGxt$oq-07$h688Gc)+s0-fcOoCUdIK%jAYlR@eF9w%4+^2aAx?4h?{551vc73r
zEC?|QnkVq%f23~wo<M*80fPA*P2T$4eU$n#RG$h+mlrvxFkJO<z3~|>m)I`vv%i5f
zID;GIL_jCzR~tPVcS)<<``1yTBT!06n^yH_@y3-B+U2?f14H+fEb9yC`1y??qCI)U
z4eFnU$SN|(Ql=#?aPO(!E<%`M-3LK+5++X9hNEdOQj{r0B?wzw377`=r%G_FvlI}B
zQjY{wo6<Z6&5oKX4MDnrd=2a&_<xU3b&))R2xd)JV8Y{on%_!YD0f4#(j{T+0GAYf
z0C^va8X{LB5r;YHd(XDN2k4Wn6(loOX~FFruue9%76DgYTP0l<mRZ;Xv(HKswEn`1
za!WY@NS#oTZ(P5jz?$?>6c8>9cE`ZI{uxv>0je#+L>2vJ(b)I(yCFrCDWxbD*<BD?
zFmmk?j5Uzsk&~E4M=Q6swGDB=)sb=YIR3mT%CsE^l{Gkvq{Eym19=HbX8x&rTv?z8
zh-+EROP@ct`Vzc$1Il`3@evpW$%SCG#2g|UVz&CoBO|{&ITu*72s0hZ3Zu=C>pqT*
z@3TECx7!Gleza1nWzp>TzP<6-cs9HD5+fFI|NE7Q5#O-EiM)}|QL94ca!!Wb%9v2r
z%#vEeIUAggUL%|qTCZl2z%U2<=)FA4+mWo34b0lC!Oua=N}Exe2KTpnB^?rWXMg2{
zMgadp7uX~%-+nJLUy^qJ$?8+isLJYn(-iOI$S~WEHZB%#%j{t9XZ5LV0OXOu?t_Yl
zxqkl$zFut?R>xZFo#AZOmOaWXnzT{1My{F%c6B+mf{CMl!&uULpg1H`;xY6j?K#0z
z)@4SMoa6_gc$NRMw*E{qp}D+2IZ>SfvR3cDI%I;cu3O*D>57$f+pr2A7h;P-YgBxH
zzApMGf~!ZOWNLUV_<=01KazL=#{}-Er&Dlori9C7g{JgA;scIBHHXQdQc?A~pyAyF
zuk3npQ#dfsPHZ^>Y`GiAClSMe(0zadC{Wp0GHxckAsp3z)`c}|GF7i0sj30;#Mrd4
z9tcoO0VqIE%|4GIaGN=PcFqmDazzIym(-3n`ZzHO4bg6N0w9=yugj)7SzaWb`W^4x
z7{1CTR4X}ir+o#+wG9SJZL4pINjQp0lOk+qn0OY~#y>Q8w;`A=(0mvvVV-={gm(bV
zH9lPvN=mf8yc?VcwZ(dD(|Iq~0Yxv1yGo&xjJh54&X3)2{)a}e2XlFC!pc{uv}A}2
z3V{@dqE%{Dkh+t>K?%~rJl2oEtSvdn9l$>oL;NZ(6^P6<f|b;bW}jw(Myn2{{`x3#
z!n5oZO#>lhMnTz*PxHKIZT;4TNt*_&seei4eR6@QHLSJ{4ANkA2Riu2V3Y_>51D4h
zG_$D>3a<2itIyi=-D)dLxv9>H+NbaFouwwF=4q$!Y!i-7)D9v9XLD+7&%k530|rqj
z1@1sryY=t?U2A&(g%za!JS`>6CAH!p$Cm9Ik5<<<^8n{^eJH~SU0JudYXcO7=tJ^D
z-}7vxoS}_Dwm+zh&2^#@Qo{;(iz~u`&K1e<zXzShC@8@Rf3oROL~;5+Hf-OvGmtpO
zWec%~DJ*>;&S@!qX5%%$9F{w{TPI|iVha_I+$YhH5@rOR`-dO>x!oxpN1-kHB6t0d
z2lYAJ^9Rpie|8Jd1Y-?MteXf19Mcv5<j~(S-5Yp*Krh20UWFyUt9$xE1@L4XrPmb2
z%09Y59>zjel`77v%CnWm@C-N9-r`a9{R!#BpG{+2mB92QP1S4dDpOd*oBtIL{_j%O
z{Vz~~-O8{<<$0%8^UFmn`*`#V08eWPGiH5V!H6Zp38+ncMizMMLO0h~26OoeJ7pv=
z2&zr3AqMsN_!ndv+gLEBpZ#6py9?CJMNJuBK(-SP(TE^RkOa$c4{`GmD5XSM$5<?K
zapK8Iiaw&vgx?UnHB7{9?p4I4&fH0F+NvbAIs?U%D4K}=O}wl*+!$XJwCdY^KDB6;
zTDxblE<h}8u}=deA9@oyEIRwpQoSH3l$uDCKtOOgNRd?!uLF&!AorHYZvQM0*e%Rz
zcLt^X08-N!K;mJ%tsw(vj3fgvv2KjR;jsE(>)d?PIN_REGG_@Zd#9%ZIGE~mLAd>a
z)vTXSpd`Muh4x@5^{}+!G|ZJMi)&?f1)kmVg~+!@!ooi7Rw>EI^rrG4Bj~*Z>C>6_
zZE#OW&$a$)0Q`(d!2maq6@_r%cAaq8rx|VARsS!Y0jq~l!^2Ooqe}X5Sr65nFqyj(
z4T}f^oK*LFL9y~zBtH{g<TwyARTAOTJ}gkX$9<SU$&sH*D_$9a;5ZO{d2Lwt_b{(r
z(d;z^smV7^g+7Esp;%&(-CjDI=M+%w+`^_TGic?lCvh}$u*#C(-e}(d+b`WOQxNK^
zGX9he+GvX}3>sngX9bPICw7aN<w3X`m5n3Qj&8dx*sAtI0s){vzx(q4`m+!J1xE5e
zb)hI-$F6PX18rlKfw>A;ig{tu!C|K%XaS>OC|V=BE1SzAyFfQf^xIV!d_%kB`08G$
zz{Wa|vyET763K67SkkC?Uw!v_3#<QkS^;whV&%(G@lmBgC40mIf@-w1F(p6zn@*@m
zOxgqsAt=bu+#m}mkg#L~P-!@8B(J&Z?6}CT2<1)#Oo#e`coC;>ew~>(KLs}-m>VK&
zv)-Y1KfbX(X(J_sNH+I$rTkiS0HSn)dhG*h-7X5THj(?#V22N)ty>s;U%j#p1~o~*
zwp1dg^086(uz-=)wiEGg+qbFPwf?O9e^K!6F#=txn>=8K0F~iI8k(7}k*#GG(la%3
z=sEM-O#fLbxX|NDmLJPRKmP%oPQZ4>FpKD9*DXo6g@R0LwAbv|6mKcZoE`xOxmNv&
zog2ek7NpvLJMZ?9bp~xL)G_1>`#_zuER;aLf|K7p%%k)k1crxMx&6MFwfPjaGxpbR
ziN1<F2Fri*uAVds8hFkgY>ASo3nGQu&;|()d#t<b113ENvP8JN$gqjPAfe<*ec$EK
z#wc6nU(xiz!%ZMBB~l+wb)AyoOPm@Xp4I1Krp>v5C(6KsXsS8^nlA?H!{Cby`N2U{
zpwAZ)jrlFS>KlWghe5+T4E43w@*tcJd|r^lzZ_%({iQV#*ee=B*Mbk6jS^7=`o^wH
zp~g@o8RkN*-l}LFy_vB!{%e7`xuR%G!U2tT7HWc+JDH6uKlm?WgXgkQi-S<Y4h~6g
zCXHX;Z67PWMWgm4>B-on(t47jo2uqcS=a;HFlr>CEaJI<x%y_9qEey~rh=q`5y07{
z&8~1#S4)Zl_mg#{M8QINb7k7sa@o-)*)^R7V`PeddlJN^%wbe`)Y9K<OSF!poGgnE
zcK*bC4YDC`w+@hn8b3n|cZ4$frYErPu9w$sDuWx`W64E&QZQav-iY_`No(HCwOT!@
z=kNjCC#m#cM`#BDTOacGB^fr5(NG*NtwfFTV|Bp^y%{tSlrsfWF0X6Dfz>zQ@9Wdv
zHAZz8myCaglI-->MeEAw+lL65mg-(V24xCmQouk>?C!)ZFhXXc7Bcz(xMIW#=J%Hm
zwn#T@_@WepK>1MGOY1R5q87(KPX+CMZktgF<g$ghm`2Ipf^SjZ%x@Ur;KDbG6Oe}Y
z+B^$I1K29frrr=0_4g6aF1XLI4`<^WY}grP*X!H)`J}u9pg)w?%S2&0DxN1-J*`C4
z^KA!^K8SZRUDqq>sKUXPaWbgJnpc}jh}aBcSrU$5y~(>z$yB2Ab24=<tyt|^fl6cD
zVmgo|Z5*0rR=yh=npUs42j&OkrzymDb++f}WMp{y;Pk}yI{~`e%#|AP0IPXam`!#2
zgw~JgXJ(lL9?mPGR(S_32KO5RQWhDVcFT5nYFF8tB@8L>z)ic696sl?1Dg~*7wfTt
z9==*z)4p|305g@kol{v(x7cFxFU}Gp<SRo%-z@IhJ=+knC2c#XTj9%s3(g-^)(S!L
zV*7`TM6UcR(cFj1mhMF(;lt#yTAUPux6&=ErdU5znlMCsj<Z4NC~QJAEO`sYK}{@6
zW_u5Htt_@ddeI1<(LozlN~|Kz4V!#=hPV>&%_ODupMpFRg!azdng9nq6T9@+acCXr
z(*)J;6GiQzXmf>HH;N@L9|6w*d0O7dXU+4!_Qy7pj1L~Vpaq*-rqojw%f`(9IPmt&
zv#9!Ke`p<hxU79!OYYUH=H*MzAH@nx&D_3tVZ3M3ek~wc;)~GJh7aKfk7+gtUCci7
z>e2mY><`Qnqt6I=4dZFs59FO(pQp@crXc1sGbx0?+2KqW5{ZD@c>3$36>#wvbpJd5
zFEl%aC<*Joj|}JH;N{@i$HTE68`>zf6dfO^etcu#J@xv@>#$CkkDg#ol>_GVWD4-@
zYoeG#lLX93%qAufLuo~=_fNmz#hhEZK4~#|1>=EHxhb?Iy!3KlOU0Vak8NGz>nv|L
z%!*kpTq9a@<T_W4Kuz%1ZS!NleNK2elNdM*A)J>($smX=WhTb3#7`MgXrEZGZ+5or
zO7WS8$-Mh`JZ8{BA8i;(OTp_}%}}~dd+dccm#o#UFy{V6e#V3hW`ujS>rb5++k@#>
zZi+M>Pz#M*>$~<^vEs&tjq2%utEH-5yi0tOB+Or!ix^6qMof`WTY(FVI0h-;W)Rb_
zxZcb<y)u#Jga#iCeB7T1s=S~u@)Kk9g~Y4<o$~hLiqKln&#yWOIz$2X1--d5CuZu8
zT~7&OhD+&$oblE6xb)qhV`-rsk%hmK$P}^QYIqdcFv#YAayn3j>Y-8lI{|59b`~1*
zw5lC3eLYW4=lkmMX0D~W)OBUJVOEHLx*T@w>DRe$=cjA;hsY2A%uTL8O4bu-knGr!
zN)XXDE41&g071JI`x8T<B?1bc437p<y7cGFZ_x!53Js-oUz_E#k3+;kscJ@Tb7v!Y
zW-oo-{IS37tzK-}j^@Rc7%*IMUh~PdyH03E5bR|Luh`k9@&Zq%Yvv)T{et=;IS;R(
zjAHFi&v5h}_Yx|#X|})Xl1kYA^+1%ALl!@}l=S*%1J6?I$n#8%o0<B8lhS-SdDKFm
z%8%kyq|es^U6|{4e@~CQO{aU?c3<eaR-6y_Wb-^5a?*kKk<TR8bkidZNy(}7dk(p8
zRJ51%X)?{1qsiQ0X=}Esb0HTmb;G%9nA1`5TEq=^_AycNmd|7%W*~Coa@C6J>&1<Q
zE1Msmc%N8uY35>Za1*>QW~`!9d%UgmXv+(#7qE~y(d(O<Qk0X$A^y|j@^i5U!4~a+
zHkt%O^rQiqe`~m_96K)`N$N}p=Q=iGsM^$Z5G)2aHVlQLll4jIs1Ndb3)pbCoCYEY
zlXhNvnT^6;D+#(-JJOSyxu(R?R=wg$Kp!ZT@H)2?9@&;?^=@#$a?Y6W$}oYBW9^K>
zbghz7A^7OLeSa>XIbENmzQe!lJTYnglG5?rC0(F6Z_BZ6;!TBA7%95~D_Eb06R1A=
zP3#4n$6fgXWSf8Ha4XUg;;seIm2Tnq_5Mrvcahyz8u_>9Lv`oIx)2Y3%XeNYftc!^
z%z3zp(~PwzW>DqlXx^vpoz7b4YDIE$aFt)fSPxvf@`~crvPjdvdN;)ExMOT(pRKk)
zfNP!b;73b}ahvu_tQr+*?_hro1#=Z3kE_KoT;De^d#87`{qEx7by)Vcr=z0ho2jqP
z$<A3<qt~)de1dlgK#O{7AamKyP3LtkI}LFCk$Hn);UV<KQ5jE)IGQ$G7Sr?5GaqJB
zmTH!BFXYuVw0!D0ZRJ&DgmBvlUL$q62brdVN}%A|Ta`|51@AEajy7jeu7HmrAqKI%
zc&$01?&!q9kK${E!S7!0&M)}g%b#kr!jEI<z|1Y2oF((qJj~T$ATsS;?qu!H_0ceW
zQ`09M9&uGagjbC!7(c#33z0SDzLqc7vR+q-CD+LGt)rcTd+34ne3^5Hm*ku8)oLoT
zd&Z4xK(-OMn<*Qe_5D{|A9wl)_dR#s>b@Ol=8(Q|`FLjQ(IxFk30*f64gGEOox*z|
zr^1?I$C)Sbu-rVo;peGC`7%OTfs5wJ|D0Y=(N45u3`c{J{F)yTi$I(^xgqTp=(eSa
z8Nbyl!?klRi23c|J4DL2V|{HR^sD83M0e8)Mh?3R&&w)}2j{TSIb^5T4|9V4<jV?7
zR?*gv2_)L9u+@Owwp1}9+$%-B*Ovnil=A;-S$1jv_nC>_BhWY}b801xjSENa8*lYH
zOvz&z#H&|Q2_Wcj@TwXOnKl6b8RH#h?)sb~EW>IP%o%E9XM<RJ*xVO-R!!iyz$0rF
zLwlP8YR^jFGct>r!3wK<`BK?rhF&gQy8`y;cip{FzHD+iSMIRHNMptAObya-b+;iy
z+DII<Dg%v46<9sdR&i&8PJD@}wr2YCE;VoyP5E<L37QyHt5Ka}zk7VADn2G0EKm33
z9609q61G1;<(Hj;KG1%d!O#e^UNOy2GP1Ew8_5^F2wELM$?)X_l8obgJTt39p$S{E
z@wx0zOA1$)FHt1KyMt53U;dPdOd|q->^GV6lBf!qY9*Nd4AuA){QM?LqE7^M^j7Zx
zUUE{&H+HI#qc@|?*$pn;Ba$O6UgDzA(VBlJVeqgX%Y44nw5{!H=Bt{@cW*;^_QtGV
za}7y4*0^4OJD@oLC0_DH^=`~>g@7pZ0DIe&V2%Tf#MfBToG??>npyp9seb)Hv-w}1
z;+<t73K^Q6;&%cekh@tbiUuLGAHgD0LOFS~LgTTtv~g7TFx=&7mR0=ei-QMLLr2Ie
z&4ZsDak*DUgac$5o>h7n(@5w?M_kSFaI73(4w_PlvGaAjF3mQ|f%??P{(7qF@e0Ba
zzt0X|zJ5hm=>pl|L7jS3ZZ!Th*@wA|v`l&M+c>u{<7eWPj<;Zudr$AR$!}OOX#GqM
zTfwQXgp0)$O&^&U%|6Zmo!1YB*~iyOXiHah^_;JSm`nI*Zd#s@fM}Ng)lr7_onQ#W
zD60+<zi|x>#w*^9NgdBO@b>fwYEp4xek$C>^Yn-O3mPw1V8+cMNIBh@Og$Q(brc$O
z#62mm!&pH#BsS-v`-s?)DO$MzvTwehX@4Z^8`Lz>uR4CS&2T&8n`Y8~o^1>0jPx<b
z)`sg24pMTiA$}j^y_Sa9T~ZY>s;)7y?Bn}{ZwokEj*mDgFR?XuA}W2WKRK;+xhTdQ
z&oaF2VkoY*gy>Xf`W)CCu<3AfOQ81y3gIM5$3b#h3)*4C6SUbp8q#MSoH~-9l-t_w
z{l)gf*7J=Iw>Qlk#stu6BNUmNT(IC~a~u9J>2L)MZ?<ppm0)>!amX#~fl%y{LA!Tk
z6vtPllAAZ(S_P_+{G01>i0oakU*4ClpCD+KOOIRs#tE0lPS>C@Mg()NKjU1&<*cD`
znIXvs%Re~&ELgT=YrN|eX7>hgpR;td1@}XN8FbQc$l~{c<;^>ZjSSo`&*KAk@i9HE
zX2%C=Vw|L8*s;1`M&TWph^tZ7>DD-G!y3|VTcGP!R?rw=(p01|4Ge%#Qm%G~_ZLvu
zVl1vmNJ3jxd#i}cPc+`|*v8$&o!rlER<BP$oTY9?t@`+?7%LrDxmaJ(yCC+?hp?ZT
zQFUO_#+SGw*a7Xw0^fF7@I=|0%j1W)q;<IWlyR<Z#?SsM9Vb^M^{3vi=WI!pmRFd~
z)hq`ZNHIhrNo!~H1tv4Jg+`t&en~EiI0BXP2pQL=q30hy=XGyVy&J4vt`M!HBLqx7
zD1M_;uSrEq$n|MfT~--wHgMjYChx-hw8ssE`4`Hw)tok^UO=Y4UJ4!hLek5fP`KOV
z7o%e4Vx`33%X!+E`Z+x@>8E<|yn6?BD9EW|;=#pUPXm7)-&3FyhR3tc>CeaH#XjhM
zZ|;!Vww70rZtf^~zS4WD{Ak9P@8=KocGKA?*GBI*h?9%d_PfS!eEo4a(M1eRD}%Ha
zc%FP(`7v*;Py+BaYsmaSk<@P>s+_}O*J=++)G>ZX&zRmH-ycvYJ7lf13Hh+&rt<EJ
zK}`4Sb>*7dbjx5PH+Nu;p0{Vx<3FdHB=zBWK&{Rq)QwxqE*E<#f}ffkb5qUidjaLR
zxvLyc+Z^?xf%ClrpLB0)nlv2h1LZ~Jlz~!!w&E|b3E2$Ao<J4<rorB@3RzuWVP*aL
zqi7XLQe@0b?p2o%p6GQO@YAdfIvRV>!StfJkSl;SS|O?9sLXY!^8meHtAm9#GFNq(
zpSS@_O+5_ETjKU6T1qn%DrXSW_y>7)?)ZGLYBo{_<>-*--8Yc}5UPyAbQ8s#EmF9X
z938wvd%fP&c$=QAH9v9nv1MP<Igpkk;KWt5`(A8Tn0nuf(w>2-_*f>SUIPK#s0PKy
zC#+*&TJaJ7q9fRE7Wm54bD+`NTgf7muLnDdw%9xYo*D^)A~vqog4M~So+4`Dk4rwD
z9#5O<Vsz=U<>P=3*S=kOhGrZ4W2U+-aufIM`jsHV3d59d3;rML%N6v>iNHiPR3)dZ
zi0X2c2bOG9s4&?noc{s5o5G^P1@hH8I89VuJFqWa5}0Z&YpSm{ubD#cQC@U};7@c2
znZMe&1`DfxrC9N5$*aIppy8fimRoj+-=#bCuND<e2p3O3t=i=r#;y5<45DPot@8eS
z8DuBA7I;-AKHt>2i`=t!I}ZCbJc9EzcJwM5#AFJRSA(CUl&fPFQ@FvqEbe<?ANY*#
z^ppWT^{Yc}Md~7NnWs}(>}pz0L!-`I`ub|>CA@w=E#e+=<A^+R*Su04JM%vw>|ZsF
z*X-Z^b)rL9=j3v2>@XdMJg1EYe`$P22aU-=Lt<a8(0w&+J>z<9RW(y;XFP5JQZo?A
z5?@E=!$eXmK~T#aVB-f+GH$&)KZ@21FS;z|HayA_oS{DBUPUB$Kkir6Bk)WH0B$~`
z+7y!$rZ?X>4+5Ef%YPEDxOQREq?s$FcrLap+}FP+In3}vfv3#qPsZSmlEnAb#z-h_
zBrude;8KQW_*NgoE`U40_SsXP@5i$296z&!9lLog7nEmzkXKZB|B$GKE<vT@Mu6-3
zjxW48^ySjEEft<bb7;5I{8_g`d*2hk=GUT*Ip%w4=R+=^f7lks8G6@WNX4)DsZaaQ
z=Sh5x$MM~((U_LGBPEyjF<+O;JQ2>R1DUv=ZgMIg%kMsxmG^g)L3~J?1tO08VR*_n
zR)DrIM_u3(L#5)$jx}|<(xJJ|P>(1eGG6YPVxFODtvu56Gcm49E0Xsm^d$C>z=>#0
zRB_a_5H>_IDC3qoSH>A|$W!oW-k*ChLSfweZ8}p1BD}=Z!+0JPJ5DM<_<-~{8h|CJ
z<y3#<by6<720%wt4}&_FJ=oSKYGzam$2y`7Go(QJM03K62Y?$=2I8{$zyC(OwanTl
zi^IJFp@tr3WhJ8vMff1_6BbIkT2hHuwfXr}a;o25-YSmdeFaS_KYFx`JK&_({*T62
zr0Cxs_qe@Z4U^!YoyZNA{YCR~*_JdkMQq%EoFz<tdfKS<l1?b}4e326RSSFWhzVZB
zz(K0#t54?0wb34xN%$Y4nF>-y-v}zrm+?Y(6F1HKn>0@7;h(4W=6mR!+*PB|JZNzy
z4g|G+73^cYg@Yut766{!w4fWVAMfjV7&CF3GGSw?<vJG~iE;-W+pupoZ(Bbzb_C8I
zB6dBiXSk*|Tg7ZXWRmTs&Z<|l`Aajto#t)R=E3%zm%~gi`9j%aqSt(ce@P+T4uWgz
zPuH+*oSDfyc)4(tD;#xfAm5r}L1%-_SFE`x(JfqTUzWr}EZjy{+SEymt5N^`mo*C&
zh_k{ksTp&QWDe$$kO;YGs4f2Bg7${w<`s<bLHS0w-UebVFfw>YZ9Qsa!I;;nDX3H&
zh)E~X(t1!;%ya*(^D+OwoV*DaDU6EYy*krW_Kq1eId;$C9?`{@7%&%hE$6EX*QCkh
zD2DuCe1e>?ZilH4lgha|z~OnxX3KTjL#bR6YTdhS#n#yE{*X5hA~Z>h99jT-+g#91
z{l0>bI-?t3wsmUhJG(}`P>o>Cp&HH_;SJ7Gzpq!#Dr}XvPDxoY2P&CmH}Yc-bMz*@
z?z6*~b8Q#-PZ)<)AGuR+ao+%!_tV4iK}S_?u=SZE3z{1d?PpI8T&zAHrhrk$s7jXT
z;kQo(2rVgL^21=^`tJtr#OGd-M%L|%zwl@Mj4x+I5ZIcdexJ@h)Y*{ljEhS?lNQ2i
zh~`6+&*EMD9hN3ba=*;lg@qj3xbL>*JK24RWMocpVbt?4^-D^f)9t+=Jo)Z|E@NST
z$i9s$c7HtRE7vI1a@(3XNO=5Kj^xFD{mk91HRml3OjYELjVigYR!XX{Dwb2UXCxH<
z?quO-Yi^nfa3dtaepj!I^lc7ZuCxta-*yj|i-4#$V}AXK@yuS+i$q<eC>D3{l*Svt
zx=}SU5o#F*B4VnVAZ+Z4a>E(&gpP~Y{WoUi=S{7R;D>#G2fKWOwmS&^8Wn&xIu3lh
zHD3{xZ}N~|H@@{Z_|iq)R9Q6XunfCUn01&`SYMb(c(S$&z;tJ9lwThrGEwM5Ue=l;
zUD;%)An}}wqR7pfB#ws4j#r&w$S^nSQO}aHbF7T&(c{=jJS>utd53myoT+>P2%{3d
z!|%T#Fv64B`Hwj!Gcx5~1Rn4b_Y%&~d^vPUKEQv!hcnJeeW~c#nnTh4ST33Ui_W-B
zwMi`u!YuV_xeV90dCdo~srQ~SJ53W(2K65aPTqp`+D!P<ms2pa#LylN`bevK{{2S$
zjrY*agOm8;HPS)egAH%I?v1|tZhtXjN=1pz<Ouga#u>P{FZ8BGTDgB~@S)mKBliPK
zUd@z6iEucVhbKAs<PvWrm)E<LwJVqWqK-SpgAHHcO);b}9Bd`v%+er+c98UC{NVO^
zJ4W9Fcb)5bt6^zYGq!yynYW$`W0Q*Mo*%aS^Cu_+!-5^2LMMLcu*10?;yZj`$nL4@
zS>2yc7Rx`JsV&y4S4lAl9&(6euyW9;ue`Ye&W7Capak>Ty(!LGe>8==wGwm`A0gRd
zOPe3AUSOk$MrxL?PtMuh>P@N?D)qZ#<9YGO!9>ACp%eKw&!;sOrDW`@=a|ffuUEwQ
zK8XPlS-bLIPsyB<p_q#oJ2nn;RzIlmSGCd(IEX7%1DoHkesC{G`rAlEh!#qUJK{;p
zTC0b$SN9vW!Jq0kcJdEEuNQs@v2tkq_;vXq=R%JYQ(A9fG&CdO<91c(=k0~ChN{!?
z*fY!CnU?2Z?+8^q<U@6+x2Vgtajf+i%eS*px_#jmq7|n+e?Br+dt@=I(9K5q;_Enz
zKcMD5_x4@6yq&h|0~lrh_$hQ&6#KX?_RmD2+_6l#AC>OPPDk3MJaoY4I(siC5E7!M
zEe9$_jEVpu96#I2=zd`BxzH{3mQWmN+1{31)UtD{18iU+nYXY!X7JudH0?>4lGY}~
z`*PFG_g(6jvWla=K6%rU&4~N+ZDWUzHMHK<TASccoY2cn-kq!qLR@h2uhKEiVCH$w
z+&@pdyJ{>ry<DmsRS)apE|=y%C^q1~FLpnuYmTEqM@xfw)UG{3SNe~}9Z}vPwFJ4z
zvKto6^$(fX{^Xpo{bOcz?wLyHg}bWmUNUWLlw87zS5u#F&^m!{a(Rh?&8wa9l3i4P
zqdcdnD^*LYtt&Kb!>I?h&e&?4X(~gw>QOjtwF1I^S4CbFI(0C@a+J;RKuL559rLDv
z{%tX6av5{Vw|nzgq$bfXb^Q!odvYdH6YGFE_bcc`+osg54rcu&JOslX$#q!9^Br3G
z7j35gL7nW;?{1cfv-P(+I!!~HEXMCT^U>@!F0Wnvt?`Fi?rpjx7J?&7`aP(?*67*a
z*)`w9Z@C-|PFh<{K{rzEBJ`2j4B68;Ap#)GmeWscNzRy6k%O9I2Tig0Dm&vcSEB)q
z?c0Tjr)}DsCyL=hva)jSd0-;@_=(-MFTXEHKYGNY=`cn$r^0Q%iN}@lsJHTn=yyv^
z+S5a-M>P^Z0?T$N$_;)L7=3pBcaV)f?bgm?x1e4b_AQ=W+8<sYO0Z9!BMkn8iwppD
zi~|qoQR}+pe=xRt&j!v&HYp{!3GQ&EKCn49gGQWzG|}&^j+t5dp_*cQH5zUQ>BhU}
zbaI@$pxYa=^`JuC`Q>vvMeR|hvYpN2!x$ILmNi9|W1Yi8H<78AP3Gqlox@={Cj(!0
zq@S$qc0p|jH$3Z3SPYhCXCB^wk{BFeXuWCp5j%Zs=py^L09uR?cOC-u&?9jJj~NWU
z-Ok9=v3Q!D1wRnVkA_P{aAi|C$NA9|rLCPv=dDZ4Dx(qZ=e}MqA>=+yX5MTrT0C)T
z?ufw-|JlZz)Y;l%<KgArBMv2E@fUE<IU3?G6y8x|tJ)OUn&1d2u7n-`#cm`eUIg3{
zWP$QTH@#R|qiaS$r(SS5$^h}vsSVfWGLlT2GMO;syk&pDMd=UDkP%Vvn;o9!PMn=g
zT$R7f9o2jI(O!k0>zN$J&@uLh3eyBVjDI#wi?CScTtCs$zEeS^NFSJ~!rylK1E&9S
zP3vh=)5{8iYG$EIw-`7N=0P%2#GtatT*-H2b&VjGQM<mfaQ!!XM15=LR1=5B*$~J&
z_+Z3oel~u-fuilRc2$;ws#WU{R5|@Y^O1Ue`+?#tX>PE{bGbXEjbA}oIRW=S>l$VD
zg;sr7rLKVGLI$3UDgpV-L%p^J0&=HkyPbp6H9T%mAui#6MCVtoj72X^)&*n?2K4Hr
zC|LjaDwC<p{PC<}c>y<m@qps_e*WeaDYC}z%cM>Iy0}6HSJYMBq0{32o928wkK*r!
zpm%T>lL-CQv4O&c@io;X)+(-Jq;%t7E$~5@zMX0w`$Z3?A8Lq^+wguu!uehKCAFM<
zV)`WfukBOKx2lbJ7WcWIgfMfbK}r`&Zs9+v<uksz9ZH5F7^oa_wqUjYscqp`TxlHz
zWzyvR4-cxjN5VLZzX(b3)o=Jey`?!~=e=l?R&|f@c#5af5V<X+(}}vXz3GuYBbXQH
zK{E043{9vK(v8pSxOf`y`ENJQ8YZaq%qvd5ixhO+;^TDGxaFih^$Syd&`?KgK&LjQ
zdxdS3J?osBvO195X)EMPaneNiSmnCAPqAnG6<&yt@2aXum5UBa{DN0O(A8#T;P&3}
zZ@)$)Iye?1&Wj3*(MBcXFPJv7+v>(&>+Ft{_+HJpu9-<=GvDXLhCSQ)LiI)W$SW+n
zt;!Q-Wn_4ZZ1p(viWiRySKw62li<WL!WZrz*ur~E&mQ9iu9UU(b-t_!7-t@_3RaO3
z<Tzae*fyNoeRQOeJwWl7rm^+0Q1hf?oU;4};g<@L*F%|i^Sd3uQYrUvGjWo(QQPds
zGQk7i$}0!W%nk#LWReYaLHG15_2+t546P^goDjEL6)3aYD$(=O5J7bEVDoXdKQi5!
z*j(#SR~wULo%@UIj}8AcFiHt{jonJR!(8J2Aw)=Dx6*MEUlQv<KWRA=r9EmMYhf#6
zTKOrtVh1f0aOqdv8Ko*>`OC%O?olH!DQu#$iuWv|W&0I~cSc5|G5}AqkwSiRf5r6`
zg+d&Uzwo++C9ChJCv)c*Lb~PR^Jkb^1a2ZNCt!9|J(5eurauUN!Ao?WGf<<C?k~8c
zbHK&_Os8ZCax|MPaU$1-eOovCsg8O+8gvq(QGJGdZfRtWF{pi6D&M90la@+(N|WyL
zNFFw;v|$X?3v^(oxRLvtWRX&7W}KYWCqB7VOy1D^OR~zm0;ca!`R0Pl5uT;H@wv9q
zn8V>H9VYGYq*z<0r^Mv96WEZ^Lqn)a^vmB|b3J!`E_i8@7{=k)w~lXUG0s~#7)6d=
z>3w2)_iYVGb84`iE0|lHxz=ps1{O`w_vwUd>tCF=(2*$(5e=VBWe=8jNm$CNR04C<
z_Z{$4fANbj&o-&g-O)J@`?;QyXl)+wc1b53&$+$LUks;ZZ^%E0UGbsctYBacb!3^w
zy{tkN7o7sc_hnan6)~mjlOPQ8APE|JjlQXlnVJi+2{ri<&U=hg0L-<ZPfM7q7FYXD
zHc}zYg(j`=rjFdO$o{oGu%)q2=E(}m2rjbmz%5vHGC$Jc?1=nM5})X0KW=I!`mkN=
zZ|2K!@Xhxh@v%P-JpxazVx;a)CvT-!!4kSv8j%MhWU%?=4_mG_vyBX6{`?sVc($VS
zJbY5p-1bj<g{6zlH-fi9WRDLFhH@;S_s`7uNiQ{7k48t%D2?B$ar{Qo^5j|IX%OBx
zX~((o!E$Qi)k^T6Elw-5mo)N$st||NCHN_6HbZv^SZ}$=pA`}25sjL|u*dDpCg^jO
zCQEghU&__($qn?b)Ui*um6zSr?Uw$mx=P>NT&q5qF7#>ZcmnUrqPD;d8N{j$Mm3uj
zC-P>Z^m?U;(9G)hXLQ)5yVe!j<f=qff)WSZ`hFDPW;?#w>rBQT>rjc7v*<HS@jEdp
zbr=5l<yy<VdTFwGcF{U1(RoXqV?{{8FDs^(Upitb_Y(O7H7c1eG+)QXU(Xj#2Cc8L
z&yNnamdht;xL($&GzGrX>uxS;Wy}m;G9oJc3GfC%cj8T?x`CL+rSbClBSBT*i0wny
zGv$QHb=*I;1?|j!$LZxVPTI8&zqU^-KX#pSBY$8^;<#g({?+eW#?2fE55agxkzZ1y
z;It3vE;X-zrwjouDpyAKyPFl^M04MQKbMTu+x5!G8Lgz&J!_B(=ewI5%(=7!>_b&}
z&#bLM?eMS$N35fl5JSzb)fcs1`Pn}uxqpV>EAeaNOlJUCINt1waSj=K<laRfWKsr@
zy*H#@XhZpzrUPZ4?F|cpug)a%c#_lm{^Ltp&4U}f7dm+u22vCtg5@S{iH=KdA$Eon
z%ifkQ&g5HDcsUw7pMVn@pO;pVxFZEa{P{S4H{RHArSV|k_ueqCF@!!gqAnhJ?{T3s
zRy|qnj|x>gPS3Y4nZ{vh2i@91r#IMsrMvGB)wwQ#I;Uo`;7hE$b_)eq5HH_v_-VU5
zPgO@Sn=SX4*akmQ`OG+0yxFRgc6K{6OH1JT#GMyY7b6vNc{%+qs`+~Ne1@Fsj1A?q
zyFuZ6HEPhY;-iYDQtnP3JBhPPN*|-swjw=CSlkV88xBdw9Ghg1ai%H^jr%4!1z3H9
zzGboU_zP^A`c9Kiqh67WoScq7_B|ikV#<ow0AXG3P5HK!2Yg~a+9S9huKlk@xiW_5
zkJy%QRTb69Kz$|8f(9oSZ2r!5D3sp_*hni6pg@G0IaZPm@<u2AJ<{J7?DhWte*S+a
ef$~Wv`;TMNuNajEUv>{=>1r9=F1h*W+5Z6VMQsHD

literal 39706
zcmeFZcTiK?+dmo<D@U<&L@Clc8bqYSkrqIZE?tx&UFo3(v7jI=5HKi32))<PV?(M$
zLT^E7F@#=136Q(u@%z5-%$<9GGk1P}-TCbqWE)b}de-xN%Cq*)t2=s{Cyuiphd>}F
zU|MR15Xhkb2;|`XqldvGqe<_V!LP&jbu`t$Z*XkiYCwQr#~x{!dqW@`5sV+E*qIdv
z2!tB~Q&Tk#csD-|PdwK@{&mGE$I0&Qi;(lGrwp#T9e%8O=!wuvb~BY%ho!&BWS)`!
z^7pyT+NlzzGfZrEu1TE!OX6jC7*BZE(eSY26+)3kya%QB_8%9{XXY1_ES8|to-C2x
zDJlAl7Z(&#2)Jh7Qs&<S`al2tp9p{m#MR65pAS;l)upzrIijnpysAkmpI44RAm=Ug
zaxO7Klo<aKGj?uuCSY18yXdNM74`DNoBI$*#y_3iJ_r93!~82BSpJ-&&N12iInBcy
zT|V&dxe9*^k1II+Kn!%MX96cGcbEg1AS&wT;``JMC1I`FF5>y+8#|`3OZ*|iWENOD
z%)(_a$Q8M9nTPCCSR#Q;(e9||px-4Zz>JDkvz+Jk8^vIPuzD*)eON!Ac;a<cLI7-3
zan&c``dvah(nZHY*f|A*(6LC=2s(-EGb3CZ$U=9O+X#{m!ld|{M98hz=Z@+mVM>q^
zaebPzjdvx<9IyxcA$gA`3hhyYbu8WzeetqiHMMq78)L?Xys&D%g?L#{<%I3mjr`6r
znAD38J>epq`0J#bzh}7IZ!7TY)a{==iuX9I`NZ`z$D*Mhzi{X1i1@)9o!v_vvsVfV
zwFs{sI}9XWS600w2<u=S(y)|=v7AYy1UCxhJ0g9b<;UxOXe*7DI_Ekyu0-C|O`-?=
z$}Z|2&*y{_H`<N3*A6}(4Lzq*ulTVUlUc4G(t22I%9C?jrk(jzs)UJ4tDHzB{Seb=
z;`|DJbtvLK49k~CITRaQd7!4cNV#|BaR>vPAQ05hqioKyV`o&_;@6GYXK?vnRNu2I
ztTv10M|NqAbNh0*qs(jxvte*Yp&@pbVI-&C%HQ*G7ga5ZC$V!U316k5s)fb}8}pfs
zJ6FeU*C-xZWnCTrVPsbC2=9|sQXz_=RZ1-P-&zrJ&;E$kwh&$0*5*S&O3hMV9iY%x
z+BOZsgJ)LI5)_Km@8RT4$J`10_*9MQnHxGDO&+*rYnZ05Xv0JthW08l7ds_%EszS4
zZWHE8?g_ff<mabiK3_XFcg*NLMjTe-8Q+z7!e(@j@6vZsink1!daeyowRvhnQGddj
zb0ev3_ruTJCQV{qSK`4H!ii-KesQBoE_IQ>Fsy=7uR}=8K}gtj=8Hc;O5Wjo5!k4t
zVaS5caH;7M8mmXjwJ{f7U>2jZLcI-h3KI+)n)Ys@f0*6zb(k%7i?>%~6&%`^hwUlU
zGzpTmV0BRJXDkw3*!#^ASs*Z6W30%1cKWu4JnZQw&&a|GCI6=dJZqu8t3#pXnATe*
zQbc*E(eW>xNqxMkL>&bix)uSew0)!fwZsBX{*(Ky@;u(ecYI3_@=xfRY;rOZDpUzZ
ze17IKC{A#kAF^1GpL9*_`c<XIuEQ>HR?XMQQlM;7x?<i07SX}1QsJP%60-v1LiG`{
zBuY;=Ql}0Umbjs1y(0v)xKQRob7G<)HM+}RJk?xp#nzm+aHyL>^K5d_y{8p<)>UHz
zKl#LIj#H<Up;0r#Oicq&)vs!;efkx=H^7>o7)cX>vK$OtSVA+6oJpc7j{J~`cpQVV
z=G@lXZ1b+i7@Z5YKw=d;Y~#5--|z-#^5uyRpKhGl0E_N@`S<vZy=<7`9j>4d&o#FV
zVEA@<t;ezY%{0Z;twRB3ZLcv=*e`<m#)dM<3VR`h^y!`&<(=u3w^8d4V--|A8uSOH
zIej%9JaqhnmMTy;+bDwQFdOsq2Gx-SN%{|u%=k(>*O}f6rH7jI*0pTK=)wlbo`GCz
z8|6r?pN9h?1Rp-AU?Q$==_a?zp8P!=>Oq^V%@U-s;<pOis*t>h6uvlF1j;0U4Q`lL
zlIxcIFxr~MiEH^V8#L`aoj~G=RS;Dq=x=CwMq$eI?aXJ5u(o#=ucimv9S+E@Q1m}r
zEodvSMLJ(3imyYaCIwcJ{W-~k0T=}Lmm4!deWy`A;rh*24>rEKP^)v}gQZP6xk9NG
zz#;par)&_2@wrL`8-yC+23qB-6qHv^KfcaaxsC3y$}hb+bi<Mms{}_RU2lJ2nbu{M
z(EjG<%8pCAf_^~b{!{%l3yIR1&LE3d^qoY0w8~Ez&e3{-wzn~t(Xxi)Vo6m!f=kD@
zxw5XJ`s?0mJ%BBBb}3#ez3V7pgKMelAh>gu()(ws55VzHY4}Geys(jlO7Y>k5+f7#
z`{py-=<dEh;Sz~wnNgl3xSm^h2-Dn7932xx#I+D4Hro+ZI)NbBLZ3{p1<!3&Yo@uS
zD|oQ*Y;#1ML5F2bd=_0ARidFv4l8Xao#CeQrSFC!Im*pVNgkQh0L7Zl*Y~<H1*;wt
zs*j!V%Uam$_pFDJavi!YtM4$Z4&ik55!z*HO5qI=@{-a_glxF~-S7~YBeN$wG^cZi
zQ5eoY%uGNf8#Ly9iQ;JKWN?8X^kb5XgmdHUZerIb)mKHE!?Q9?w-j(8qSRq(Q!Ax?
zU%7kfrhRAEiTTatN$K#be}!U0OOM4VYo%OG1W_t@VDwOb$WNP{QeJF3h8qu!i)++m
z8m({$4ck^F9Dv1kGV{d7Z$Hk6q$)-5Dmk3z%PZs&!Q*|@<-v-E9b~ZK9fSG!y8bbW
z=?^u%r1g~W;<>cHa6M`5ebv2AZztSG8x(9xh3K(`DdfXjTGtI_#Lh2_HCgU|>{^|a
z?%0uQp;jkh(m2UBYr^uDghHs%&Dz^ALj(Rm+uZ}DGc5~J);-;iA&?(;44VH2*{ns-
zhemO5h&#XTx?J1-OE}+p%+)f4&^jTqm{X3wfpcb?M46TKbSC{Zm>#*HG@8QPhIn-M
z#IX#q?s4M{)OsV7j@WySZ1#okal?v>arpH%TH-F^+(jO#>RS#8$@ggQVTmThbaJE*
zfKNz-E<KkOF#9(J7$Wf^Y(PsO?-3dk!6&X0x4B-6@LUG8tYWFRJWTZs+dcn$;_*#Q
zM|*1#RvaXte)qsH#RJnz7ff#<PtDf7Z6le6cyuRRw?T7UyNFt6jdg!oM8XBQZN7aV
zYe{HQ8l?-6PoaCth9gr8WtHF^I_~N2b;uC`1JfL(-WfP!G!RJGo^c4;WOV!j72d<Y
z#~xc{usuOcm6TEsw`{&&N58vR-Ig*Ku8TYt7*JjMUNcQ0UBSjXC3Gf!|8aVa!^m;?
zl9OV3uz1KSKl|;}`Amy;E$Z0qzO(|Us&whz<*cs5aMz$J*M=@38?3wQ%*5<d#Z`Wb
zFGVT(O1ML8MzUOu7p~FL_0uM{s_^dd()ss8bBttv*Y@8ZfkqO^TAFEs7@bcZ+|{5(
zuMhiWHG1ZUTJ3w2Ox0{!?aGk0ko**kJi%3uJ1e+moU{^{gwgEG5VvED!albv^S+1C
z6)gf6pJGwhA-IfA;P}jj3sN9xy3TrEb*o-!lt>*O=y$RlN(yKUjT|G@7W15at#7Kn
zs~ho~?3fvnEG%-;1%290mF=R-%*u{e@}R(0qW3GzD`?h%1<S-s9n42P*V{Mk!)};f
zKReBt*j-(7$ox%VeV6$1TYl@)HoXc>KPuhhFu4x1Q`Hj<v(PBdRMT1UDB(_TnU~_o
zP;n{Eg13eC7i>Dum8$I8ahB4WNJ#ovS8GtC%`Jk|v5phHZn1-v4&mRayA!8jseB<K
z-irc-jY_>}1`2{hg?|}y--zoqvQN`c3T@y({q<Q4J&KS_-Yo9Q4NOF2>!;asvF^-k
zs;6bDLcJXVXDmg|e#w77bPbO>7P^^qEKaspu(Hic?klZIwm%}>-m_g2sDp<=DLNvn
z!t^9&nzbnpRP`74QfDVqM`wcZWIXQf?3(et>~G0^I)okOjTegQpWB%>Wqy5jjXazm
z{6{PNPOmTy6)jS^4Uu=Cg1_nFKOE`p%+Za;>k!W*-BaSPGmPMe0$kf)kLc#OcUE~W
zcWf^wxP)PWinAZ_#$XhcHmuU`O>}llgp5oF2Sk5}-n{o=^<AudNX>JOAJJMC$@VmX
zP8$0R+Yj+rypMVM6mW<qbbG)jQ`uUeAK#yeUC4$$>3ikeckPyAbFZ~?V!X2fjHDAN
z)_Vf>Ngo-5g2z7H(sOJ!DTO<Wrl^rTph;SCJx;W7sL_o?><SaXEot5E!>UJ|`D^jK
zS0WRqyZDhig7N#}FsDw$&M`^UPbrRB2F_2O`f&&Xp*<CbVslIN;ykbz7Kd=eD}vk}
zHyMkp*BOcbhbEG82F*PYkDSekL&SHv57~I<B|XRURVS{ihx<g?Qz;QpPlKD`X$|df
zc<Hh)x#H`JaS9=#y%Ng)!dsu7E9<xju4U=)uxi(9&2U-06Ryk~!5<?;$M>1d?j#mO
z?xH247=q#EwEb__kR<Bh@m}duU{%7gU((6w!Sa-@g(hWfiz{cBgER>=<P8DyLAS#B
zB<PdTEC-F*8>qT*c$RLQeOi}$Z@Tb``yQ%?1f`9uIC^wV*<YZz@On2Ql8$wVB_D%)
zi<cEZA5RN)tuB6xVX+T?6Yb!!7ivlHM&^hH#9bAefiE83P)29u41T&#M^+h;qaW%I
za6msQNw!ObQxm%CmR(`EggzrfOY~`~4u6wG<<WGGyIo&?Bw-!8pM)a2<1e;YSQE5i
zrLaKlpArhDrT{<#{)H??%KxvAyq6WwamLf;WiqcMwa|?^IhTN1_z=o1-+SUeFUP!q
zNd7rDHe^_=|Ide(c@1z!obgpE1V5Ovc8Unu1-7BE8l7Y;mLD`MbIs>8ELm&kjw2$<
znv=_^$QNxiOzd@ose2*llU(ve>*(dO{uf44#t0tPwyIKnt(ojfoE<isry>?FEHP?0
zOuq(Af0`mO`a*Pw^m)M>*B9928FoXgim*Q*c)K9vcH=<I4dshhWBE89WZMdOH{O8l
zs1U57w6rCyO9snR7wCU;lqps_#0(}NFTh4bycLLv>$F;GKt2yy8^&c$tNMp9j$}`?
z8wUu(A02o7a|iYoL4i`Op#-<BCYas+uEYq9%9)tBDnrBTAEz8)vX9|(cXx`7p8JX3
zyZl7bp^L88v&J=>RqxN>VyO=TUyKN$Gjxm%*Z!*ch*v;UIoJ*1<ay5__xzXhQ{H8r
zHTIiyEz!NBu?xKCcBKg8S*f{49=4tlT`=by?IpWTj#IR3Grv6fu7KwD%B)v@H2sQM
zYiVQ4Kb)#%s2b)Kn%LKo`}#0)AaGhd-Y58CKgaaD`tQ7+I<7QDB^oG2K<)p?v^2j4
ze@($yK(mS}>@}Wp2$GdeQ;3hZMJ=y>H`OWMQ!=E*%qdtg2Q)a<a;OfImN(HJFJpsS
zy0K$_VOwt3++Qd>^Ur_A{jOE;3|1VqhZxkhZGF(d@tQ@hpij66;#nUOZ4}d`)t`s)
zWg3<Fs*Sy6h(Pxg4i99dU}}&rv;sv`Wou%KR}UZ7UCL1r_!ay__j_ezS9u%CC$a07
zv;6nD8za)0Lo_KJLn%?j`!1p7Jd7e#IsCcx<|&wr)*N?!eb?jHcijWD%Qx$bTboBo
zZsM^Ej5&sd&9wz@SK_u>kFZbr#?>|XBEG}+dF5DppIrJ;>{gNhFWpZdzu0;x-uu-7
z?V%+r`<*IdPF>j+dR8&t(=Zi67-AyY=RnJzpZ;;8p;UHQ#PxmGxq}91=L3y55#K5A
zG8QwGDmogtF{@*JamTbY`K{+G_Wo)KFFPbLDri2+CHb`eEWEcve&7MEe1O_uDD=Az
z^5d%MEX#nGgNF@4S5|LdRrNq4s?`;`)NczNKgC57-cZqT@X1*4tN^K?dDP){S%+MQ
z;O(4)jdq*T^y-cVHOKX0j>h7p_~xklS>~1h<k^a(LrU#uMPfQa>{pHq)V$|}j|$x|
zxn<MlE9jMk@<+8&-C&kQH4CM@8%z+G-1p|V1CUcM4#1uk;YyLlDfeYVS-fu7)Kn+e
z?NKkFpIb#1k>0PS$@HMHcV<n$$J%S0`xc`URHX~~>8d%5?F@-eHY)a7fM3A(5Lu=I
z#`Wd|(1Cbthb{k-WF@sc_{!qOOI?*6PT1Oc%cCTBbi9eG#}iL6@)ESQyDqOsC7H?`
zqF>m-Y(f&QDZ?*7d2t;^`V_cb<hEs}n3lcdR+YJ<{U&Pl<lity;~%GB^aS%f=Y}qK
zg4x4~=Oy(PcyIdyy5szcf@?~_l4k=7Q!`SJ!0KVMiep!tvoN{*)obnExcgDQCh<OX
zn9br{%kwOL!(_cR;lf6$jDcl}rLSI6ogz+4;L%oC*EMZTDD9!E=-RN={c4BouI*|6
z#hbDEjoeGmi&X?Z+|BI6(<?5R+CC^0mhv(|+9b;++hX^}CwOB+qF)QG{Q4O=dxRnz
zsyAuX(w#+zPg@Ikd)Rkckv<j3zf>Gp)8`!3amYE?VLH$L+aGEn6~m<q)=ev@Z%g}a
zzR$9wGti?vVz%ueL@g&G*VJlPCBeQE@xJN|%&8SMIx5(t$W=P694><j<Ujj5N;|N}
zVRSh1o8U!6;lg)j_kHdCwZCmp+;rZ@<fo0fW^F-s>9<!;zIgr(PT9C3JdM-bZ*{EG
zZ2lNI?zKpL$x0aIy%Z#JWAf&Hxy@qMd<FkFIwKXa{4m#giOb=@r)~u!D}r<>ghm-m
z$_gI2r@VWB7>XQkeTfkaCM?CHkAIDxP!b4~e5Y4M(9?^PNZ<|lJm>0$!*=WptypkT
zs;j-Y-jBBRyr3u$_zD{}mL=}Yr%-&#!Z`+qO;bXz3~+o=6J6?8at?iv4VQSn`kPdc
z5~%I_)w18b!kG^)sF(+}Xx!n*zkBt^g9Y02QS{~mw1L-3)=Q7F8n({YapGki`I6qQ
zwW+vhol(8Anx^@3+fXK=G3A?)+o5fp%cWdJckhuOCGQ;WVE&b2=`h6dv&z6N?em}l
zH4B%ei0ynmUCnl(fL97JBmEd2-kjU(pz&P2X!T_B#cLN(>lvCspQx^yL5&(ugUU&z
zyV?SGOs!{!H0+6;Ovo2?(+%G`usV)aP6u0JoE6aq{Umt;Np7T8L!iusOD4#ND&a~K
zme`1{sri=dgVen$*y*zL9I7m&R=w2r*r~|?tsXtn7Q&a2`qdp{17GyatQjIvPDh3;
z@<2a^1U)V>)~FC@h&|n+6eQ|UB1q*i@#T*;oZn&R`a&ITRikk&S%@wyGn1hgf1D^R
zEgv3yGa+judS|{CKK}gLaJ*wy*ELz#?4GtdoH-!Ytmxay!u<5mEL&NqUik;VyS}u1
z(cVEdhsC>(-(DIT_@s>$Zm;>h0%BCQ{n)eoy4+e<%d{L*o(J@wxBN15H@5N83}<a&
z$xt%hgVVjzY&C7MLcCu#ptl%{zRy%Q0A)&@8NfAZ*zLS(V-^~3ent|$phZg!XIV{?
zKm|bxitjJM?|NJBY(J%PUNfIxyU8c9<O4s_-?Uz~>Xv-0>qrlw=d0#SsMTV14c&H(
z;$%^(kJ>DrL0}11i$+TUv4N@NvCuA|rM(ST9UgdONKLq|<$WCou2Qq2R1c;iw-$|B
z|JYH-rK#ZL;PyqFqBdb6hDneX=t;jiv-wgP588Au`Ukaw(k)l~Lx)%*;d`~l8AD@D
zE3r!s;mFWlmoK6ei0AwJ{-stk6-{sND{F6+lX`ADHj~tR<xLV~J>O+b__yl{Cj8RG
z7Q`roKDh_^z!WYEw2)RBhY!qO=?nK_0(wb`=-1Nh6F9CE_;w8UVZ@uYBo1xV_wDw8
zw?F!W+uwxZ%}eO`_sEL|+f}+(x6h+LxKwDLYiQbNt95VfWNvCU*}{GxW)5AB((5cD
zi5w^S&8zA8>~h2(n};hlM|X~n1(vXtl~}cep86#!B`5uoI<R&a-IHsOe4VO*>c+#;
zFisAk%(9lVO@30HfibMcqekc5lF*?aifx?gv6D8EzXN!x;k>+tD#A+3fvd1n7i~up
z_JSFSoPCr?O{MiIDS0+b>-f>-E%1~BImx@qyzR_ipB}F)Enf<L!+SQ&huuNZ_R8j-
z5OVt?Cc2A;9VstP!(4Lc9$x$Bp;P^;!%oBqbd5zhNyD5<lKkbwgR1wg-ef%phxST-
z*@UgUOHa)hv;zwBHA7UkS3b3lK;5$T;5B!bDk4oO)-*(WCER}!XBN`2Z|Z0tpSVA%
zV>ciVb38fm)IPk4;*evveEb8<(f;Qn^gUwiNYIz@3B|bz5<U2u>Tv$upDTg+_f>1S
zv2Sp~n+DHtCx&7s?&8@xnXm40HcYLKJc(kpzfdzLM2DF9qh%3Jo$|FyUzM;+$e=q`
z$ojkZ?y10vu5jOedk;H_3eJY2h>#*;HNi7hw0Hm7q+d(7ri@?xRtrl*VesZ)sd!BR
zG#&j4$~zHtPX1(r0}<!GI$@i;s2$3spK#3ab|T`QZ|=sf_ZWq`g3b=%AE5_O!(Y78
zcs%k|Xod8J67h_i=^yNpgWZPo>6V;?SLrfVNXHH<#Oid2|8x7$XY~e-*B_a{IP7O9
ziQ>KcFr-EH@PN;Bn^+3f6}AMEGg};7av!KvbdO~V!gvR(D5Tb>`U&|hs@dm6UgYtX
zK-@?DY%%vU->ro}^6VKVJ+3i(z}p?QR~#SeEjcpE9^f`XUa42)`1pd^w-lS^x|MTW
zq9`zxrC3p5(;%!y$6jNfc;)Qn0`bk${wqu-L27*?%<i|JoBhz!_Q0eK3Vq`Kh&h0k
zea?SYOKadMQUVE=EKR5rZ@w$=p|^!UM3S;?3mfn**w{^LrHZv2=<ik^54^cwA|fSH
zAE~P%s9*lTfo>a+PjyV*#xXBc_KL>@H8nCKi@X@JouGTqH%#|KS>*lJkDRJoj%VC&
zJ8&&1*z`6G&G$r!PT62%@lF!(UFt+M$25x^y~=EPAeKXnm7qW5FLtw(6@<05V|VCE
zU3zZ=pQ7g;hfnh`4=jpr@3!O4Wtt{8?)k?KLp8^~`F7-NhuCp;`sc)jpw<bK;0`xu
zMM3t|G~IC<ZHF9_z<*{VPQg;RH(SnSH<hln4;+FFv7QD#mK&Zfx4$@t7P(v<T+?5b
zhFcq2ln!j;jPARtI!>i-^+e|%&mz{3$lvtIZPdg{BhkHP(5%dqj$kz2)UB`Y8z&r5
zmiC#w$?8I2TgbWh6Gxp#uf*WYvhVmCJ05=~0OiHt<IxnV0(x7TekOUJnKCSXmBg=E
zZn=tE*D}%+2x~AWTu9!DF`hI?HitgZcWR<8(7G*q#z&lTqgWxR&HbI~nZMD`nJXPG
zTyPa%n}Vs8?_o*DLj+$@b1Gsr&GEK0OnZD^>rN1ik)*FCG;w>I6>WhYXRd~b%o_}R
z3o$}(=Hzc|2DVZ_IJ+|_tX^E(i1*b^*j*Zj%q9B^?TNdZkmU10>yJFqo7D}wnvR}6
zy9?6(K1rCYVq7vD1Iu3Ip2ypzQB&z-vwv+>erJb-F)Ckp=!#T@29)Ir$^j9G#NUwr
zuxfyG7-2$7g%GYAy4f4;?iS{2V~H=jj(#pc?u(FvDI5MXO2<3X9#COu1A_^Xnnx)M
zd0V;{g5Kw>87r}*p=9Lm)L77nhtpr@bqSHo?8CjNK|wlJazQ?s6A$YG{60`F!DBT%
zT@_nnwRN3{59Rad*}Dg&{p$Hg{F$xcOQp7!i<N2kxQp<ne`Z_H22};9IsTLqu4`#D
z9M+^&l9EYQ=nn&yk>6y*T4G{Hm39_z$*jesn&y1M1AYGZhgYz-E+ga-#z(VC^GljY
z&YLNoqwSt95J@U)^o(N4bxX&z^-BJbE8e*;CagJ-#~zOE%?fimpER1U4L*H;T$P#Z
zJ<s(I;%L4eXjW;4u|dN6cFhG;yq;kq5^MF{vxXjK*jtqj6<6z-oVSc~Lw5QpbKS*j
zwgv4IPY<lQwRkw_nbmI)`K53_eb8`Q+m1&+2L5v`01_RG&F>0#U70_vXQNs_yP8(&
zSEHMei8f^MGxlk<z`x4j)=E+=b=f_7JBTlHFg(m7)IkyVGhy~`plM578k(b!d3Z<s
z`P5%STjFyjL?8?=&>~{+)-?{Wdb9E$`GdRPJq(9i>ju{HIY-~Z*q!$FNVV?NmB(*2
zcu<FCXU*}gTRGZz(Sfzc(2y`TnuU@+t$Q=Y!`A!7Mx*6y$}bt@cyrcI&tr2hlX=O8
zlqLVYGcUw+9G`q+f<9T1fU2%=FP5iyCef~QVDI7|OcNt8M*ck1b0@M_ITu3nHs))7
za5KCf_pv4i4UD>jMlkg|aqX*V@-Z!?2iatfWctJaW!$<WZB8iYeV2PbHF^27{e?S~
z*p^so`C3gfcC_faI<#<jlo#dF5xi1O@e`f8>H2n1AtgfCPxn&+Hg{tu7I~bbl+@0g
zof%nt##5dU*reu|n539&cOKo7^Oj?y?$7~AKQ}G`DaB_YMJx_Pyy)aAGhBa<n0#OK
z_U-iRc3WKqxd`NTO!9R@0U^^{<x>W?9Ygz<ioK3}nW5wil{Xre?{y;UIChO;GGAuu
zI<*l`^n-|11fSPIdjXmupZWX!tE4q&o92a`tEhXsW6m===W45Z>-Hdb7%P&*KTyMV
zu3<xoN6Kph0Zq@(qo%QQzci+nXYu06ks<qqonlE3W6QYa4AVn`$EZD?^rmxn;Z&g;
zN6O!xHmw&-5E^yPL?H@w%c=`D0+YJdPw9*J>5kN$&sg6{c|PFE%KXsvtfnIMzO%c7
zk{}4Qwmj+Cx8%CCrlqz)F%?BF;gz~Ht)%;{9?{5jQyxu$0Cv>&$1iCKjRp5fM#hW1
z>tNB|V<H@grE`(i2p(uF-9mGmckFnX!oBR32HxMB$*1lFp(O))m}48Nm)y%#!=DUx
zG9Mo6uoB!nG!V{wh8G%z+OFRA=Y;njTh1}`3_*uIGF~(ixt?%rQp4fEPd&d!EeqFf
zl}nOscojXhz7K4jCyU++lhG`vCbxws>5)FmI;~F3AQUp8A5Y8Z3$(G}ZuYhgP$Gg7
zle33byxt-|Za;l8_}RVregkpKyInMO@bdSWI$Wqbd9n8eqI37^eR^t<{icETZnM=d
zq-Ny81JQJMo2BP$w4Lwmg3+MmDzf4<6PUca4SnK+3n6BG>Ai^|3|^iOXvz*Re_Bl?
z)rN%0Ercwyqd6pBLp-NyclL;ErTLmEZC$ODYW?xfjKvhC4Oy<NX+;Zp%W^KE!a&S#
zdCn)yBbDNw*!8gPK3Y~{0(EhFxQ*BL`@MVCXyIc?ox!hc98r|&g1|VH%;LhX%i$D<
z@DLq`16OZ{tYXgoxLrehX`*LLlNg)vX+}8~Q<Wr!p;<7e_C`rdhZwv{p__ad#a|TR
zjqZ6GWgkO#M5{lN=x^?IGJXN^^ghILRn38T$tmuNt>gL+UTEush_1ZO=g7r7liY-I
zXs>fob%%}MS$lbtpxDgUH%ET>(W>l~%nTNq?in^xp;5}>*tt=c>WyRQ)2%BGNAhKq
zQU^sg4Y%h#<7zI8d+#qG&Ev?jEwjrtn*Bk083|h7Lww{^37t@umIdT?Fp+!d(BFI1
zYrleie&w8@C+f31g~{~rhJL9qVnc^*LD5rH)&g(jj2%}RxseO5^IY~94vX1B)1&gb
zoJMV4mezG~oS1UZpnGDecF|o2LX%yVPPe>DR1X_m`Z>sEg1RW(pfbC&U)^PWJQ_sH
za`Pk9AE6t+t&j|Mj?=GrpX8V{!rFId=Y>ai{LWJQJ5W^%h>8mlRW~ru?Q<(Ej2JKL
zL~*RY!ayMi0yIi9=J&K`E#wt?PcR+0srH)4=(mMwKLzxc7+Vg-l9D$jU#QgYi%O|$
z?5?XYUKMuy<-fgF?klAz+23o<c=-Q+N7zksv<Kv*LeImhSD3?SkAJT~fIt^1MMXv5
z&>m_INeSe`Kf?M{2zF?XKi8K*Jt{X;A}geRcdQvPQE~YnR|Ba7#{BmX5kAoP=kyMY
zq11jKVcL-p$x{{7g;CqIgoL%R3Wv@DIoqZF!a>=1E&KbsyvoW5x2dnuo(rScB{B<}
zMA4#|UuTkd#0-fPYu(`I9$K)#lEpETeJkQ*vL;XbD=aaP5|8#^fiTbXvuc&QE*ofa
z_?qw5TrF9tIl>w6qf9SV?nH@s<?Jn4Sy?=I7kb0vsjpc7g^`U<mY%@%-F|yxCdcv!
zb#~B+!>jEIB1(<tZ0qZby$W4kQrSE;$MPQT?i>)_pj;18pYh|~I1lMyW3u5^17nmA
zSea~5)R!Y;%wld%zD(_Q&(6*s20!sznvWkpu0C<;MiqQ2T1H~AFTWS(iQA*zu$hUy
zEW1jcoSbyo+u4wp?7#7%Cua3NR{C|tNR4}t3EvrXz(mL<#{~_zT|t}s!MMw~P?bpQ
z!OWgtO7tTvQ|vhS+Uz^WZz(6}owoa4q}=q-owvo7*c-ya!tLS`5+&t!pI>}-!l#7{
zh-1gRyc_%$G%yyePlVchM@sP(v=QUEla-Qx>8QJ%y%WE+afob_OBNN8*f|bCtA(*0
z?OFc$SrUag!WI0ez$^tUl75s%*4}(;lDMVB--?0jWh2$D2##otN{_mkq_@r6vzG>K
zr}1)>qUhTx*Uh0$-R~ws_qR#?1ZP*dg}m3=+S>CO+NL?9XG(dnCse$`*ALo!s{QIu
z8Ca;0b{+6}sm9Z=zZ{{gQ1!4UQ^#*%q#rR@V!emk-=Rc(jlSf+VD6N<u~hF%DbWEM
z@%*4Oq<xvfLTJ+KH8ZwaKM#Sv0=a|)%gNE`F<#F*TIIYJ8gY`NCMdhJyIaC{zoD$G
z%zpXDM_c{3Hx_QdM8w6v!GAnCG6J8Wucgx!RFQ{SId?~WM&5eJcYK~~iAsMBX6pf_
z#gBG70%1N~#kHK!Exo^nS1zpqYn_I??ls+J`StZhsRodW@~f+>nQ%C~2Q0_J&fXFN
zM@5<0z}G7AN<mN*_2cN1J|_+>+Ht<lQpuwfx!bk|@W*@1cTBy&W)HW?+U&Q&YxZq%
zm64H=1orm1Q;M5o-pX3ll})t827Ek5w4`=2+IZD}uFu)h&hBSDW0ALa*YK=K*YV=x
z-{0TDT~-PX=y@mW9m+^(7)Z9URP7LQ%|VDr_-S5^-MM}<+XWHf#2)COLx<!wVmbG;
zMVLl>XiUOQuDgBtMwfI9O-)V7aaV4cW{(_(<mpC6MOEs_FI0IqgAwf5p@y47XbyNK
z+I&#{^ah3HQ#}Yf*gU)z&W0MW_8<4%9jo)k-)#(d92>`}$Q3kSK9NmG+Mo=QLRMPX
ztSc)jv?UwnD@uFEvGeoud4n~Ljg1d;^-_t^8d>IGuKMVhvJDqdX;Lnmzj~$`cQz;!
zsQ?mm`wL7oxk9&o-tuf%sHw4WKqV&HTO;;1I8MsXm$??06jJe8e9-rS8*{N(kMW(9
z_qQVah#*OnyfxtB7vgly^%YjsqQFxgZ?Dc+^OHRhw9$p`mYJ06&R&(NHF<eLG-A+_
zd&ureD{GM@c2Tjeu5M~=ZLO6vc=@A@b?{2d_}IupZ;8k<kdeDeAv^EvIMPYSSy;Ga
z$(V$lQmeX(4`@Mj4b!8|t*KbsMn-1XZ5;9@bt_KA$S>ZM81{SC&x-Mmo~U*;Q$uF<
zJoGa#Fd)!d3k|b7-Y~{RY=ldX)s))el<>_;V0!cC@9594d%nH)Kx1KIcUHzp#%*Xh
zW^8QCX%!6XhU<Xa7Jssp*CeP3Yql*|HkX%8ZnC(gX?4)%B55$+h_wIi-8<4;U%odT
z?UV+$*bV=u-75E~#G|uSi}n~V1;S~c_>7Fb_oMsFih}Pp#BG}!e<T{|$u_7yJxp(F
zZ-?gq)bM{+j%&X>(J6`Btp$TD*NA41g{R`EE3V`98`3MIhO+vsK3N*kF4x>gs`jsh
z3jVrg_vsm3XXd8h9HS;je~JDQH8dcG912@)Icj5Up-kWPF5&Zay{qHIWhGf$F|aU}
z9i(iVg+wA7jaQX7`ivs94J#eLDTxaS3EfU4ehWXu;^H=5U;T>DmongvwjD`R43c;w
z@9!}oLkyUD7SF5Mt)Ja&JlX>yXOkdsdnaqHIx{nKccwGhziE5+Z9@!~@_rU0V^v9y
zg#aMBfRXzanikJZc3~g1#_Wii7UkjYw?s}QNm$FR6a(sLsT+4M53}zC(15CZ{qTCq
z`Dl$)`u>dE5Dq~nmI5To*b1=$w9^3Mnllc9Gv>KCR)=sOtyzfKx=zhJYLu&|IEhE>
zubq(hUo3jyIa=dxnT3{eN&_dOMi(Tk0#Hpu8c_FxKT0qdJ~O08eZf=q!L{g%{OgmK
zY{^ZrHy#4agCXF@v$)E#1EZCHK0AA31hKg^L9e3kZ{iYo<6n|kU#x&M(#t$#F;<fs
z7@dr%?3OFUyOuWj!NxkbT?dNDS3SmRPexr3ciCtcOn>d`p_|QBF=}IB!46-j9t@QR
zK(pqzMBMA-P<bok=|SD0l(NcA$KBfLPLZYr1~L0X2g%$lV|+&bck(%7eVEPpgwXrn
zg@?UAZ8zJ%XHcZ`Y;0!UZaNKIx2an(?9wjXU1%vplMk7Ypm+1<Gf}gmyDJ$|O8`vj
z#Vo4woK#gm&TdX1=qp=0zw>4k>xoBUL{41FBiA`$tce{4Q|H8m+W}XkC!7ow_?<xV
zJ!ap{wos=f&;BQc0^MCr`_;wSb2e^fIR`RL4p%yHiNK02sx8voh+yUCSEgEJ7Jzn$
zMjC@hZ=2bMY#hfav|je^It;UD3iORI9(n5`|KcRa2%La{A-cYO8-LtyVm6Ki16K{A
z&XaKtok=X5h}{*6>tM;=Hvld%WFS0-yMs50L7o(oLQ~)NZ{Ni00U~-@fLvAo{UWgX
zEJ|BHo_+*H+0J`{{rc85E%^j-N{48v6<|jihu@H$Hy^oMe(Ca0D=QDc^fJTFl!4-g
z1pwe&ityFxE6V#@Q_rc*ihJw5gV)_he167o$j<>XC*Rr~*<9_Ev^52vwsBTa?{Yl=
z7AC;sbM!H9{9avI*&}NpE~29(>VNGTj~xCmF`Rq7H)G8rd*fly-Qq-welFL`<T>g6
zFK6|4^MP7e<0nVU5Nq=+s$H^z)_*-FE?_5!jvvDhmGBmSikp)T1q9hTYC8l_^9#L^
zzE4XYjoJ;~A?GIB`1YG@N_&iL$vdSP)2`$S8|CaaYokOgHDfsy-ALW32mKbuWbe%n
zl@9{Uc3oghVRNqEwN`OXY@Xr+^*wU>>xz(Q`+7u;ard#&L}8;)+q-vb?Z#>!4|;$C
z3V(QgWQn$fqg%?+;^tOTfh15aG%Iah0cED(@#Di2!O>D2sB7Q!;MI0lezGlnXRtW>
zl8gkkKz`nPMkUUyA%}fqE{)17I(aE*4V5Q(bPdp~s_p5j#>g=<$Whj;&ta#6w`Y<g
zv<W{WxSDSmjOZ)xt;@t~VItN$OB-;z-@TSU9+7+}=R0?+ztBu_MRaNqx4&@#Cc=<X
zp?f<DILV`S)epeh#S5kd+|T1{0@?&23$P1OhCP4bLXy?vmh**-H~lGYSra_hv`M63
z0Ugsv)}DMrOXX(s?NPC~5JtVxKXscm1#TcqtQ$PYBh{26s-vkc=HSRiCMG0IZ5OT&
zl|OL$iZi`?_pVouI$KB(5l$L6!G-Q=nw8p&!@-J4gK<`UD}J3K?Hbw;yuB*_u66Mf
zi=-76@Br-y$U`siq};^BM1_UR!lyCr5Rn@DohNF9y03VENcI3{O3lF#N`d$_@!nY{
z@8#&HmjJCG1Vp!GvV=9U9xOk7Fk2_Nm|W9q;6xal`Sw<ZqyVOCrcG#Jv)%o*wKBC?
zzwh_!yB&=;R$;Y#t=ebjO0E`PMGzo01fUAv_`Q(~)u#hKK;$h&fJ%4+1U82p5Kg9_
zU!0)LXm*#C^yc?1@E1)Pm?9TgjbsJi0hYsxS=alhfx-PV-0BnKxiC__*|;?sg#{XP
zbLH4sfnD-zsqVXeBhI-Y{s1*%Uut9x@6k57e1AS?D_JX4?(#k~BdBG2YQQ(8IlTEk
z;+H7oS;Xl^m7_O2#sXgQRl5y)dB?3&i<P@GTx@KJF`At4X<H90z14gFh(}MRx-gxP
zrYp}0RLp1U{BXhq&=cm}^uKR{oOByJt$BGx^*Z}Epdbv5Xd8eT_xNC)$&#LE7t7Af
zBKvda&L#TI^?^GOQWW4`Mx{Qabi_U%7P5DU&1$*W-b0X19rZLyInJ!of^t*-A(-kK
z4D3UcS+RvLo}m`M9TR-F?6oo1kGR-h1%QZM%BfpnbLc@V#~OmZiD=Ck)w2{CoMDW4
znLr@C12DC})n}xCXeVAWHMA`syoBx>>ReO(uxFCQsTc_Eppa}@C#<M$@?W$Y;22;O
zAvGfZ-C4bmoprcy(T|eE{gs8@Tzt;Qr$?0eV9C~g!{0QyLe^1$v|JgUtPT(4Xv3>H
z{4_kW?-2Q4@mHHwI%KK7^q<HAKC$M80f@Z4)sh)PqxJ%_yQvNJHW0sCmazjAD*laP
z5Y?QN7PR;j7_9*m_}_YJ$p_h;N}$2A@sBGO805|ZvnapcvI5*$s>7bjxoC}r(We!d
zp?8)Hwib1+<{J-~ie77tzJz@M)=7~9yi@@w2v3k1{=-1-)V&8XEePrC|Hh#XzV=Oq
zLiC>q8NVQDGe!pP$fX{bArb10pb67b8|zk41n>s~4NYmu$!y;`Iz)gL9R|FuyGK-p
zoHvB-sqolYO&vLTd28XrlY{BW>$^aet_kR;jRgSE5)9t@8IhZul%xSNz}LOhrl~|}
zsd4QFW|U}L(#Zu_<O*`V(00#7?|U6rFFE2}z5mia+KfXG;1>zlzZx)vaXGEG$n%cl
zb{w%4NH@fr4%weRV~<;(*L&Jso-oML_=c8tHEreBNqW}^3cLhJ_qWP`X*9#<Z3XZ~
z7zuPU_c*Yk&*gU_n@rZ552yryt52VC%gA80kN}O*kL=Qb+P3u=ex=6K)14~s`4(jG
zvm5RsU1Grf)GdEvDTQ6nMS2IRs;X+MezPB4`OK=^hwMTe24-zlM_b$L_m7T_cai3o
zx_e<#o`8q^7+TrPmrQV21yJX+jDaQW-+cHzBi?te5B<FnzJ{9!r7gIJ*T{EOOrE%W
zb9tKB6r?N*bRrWlv*SNoT3Y(&_aaAS@DTUV&}Nc21NMZ)Gnq0bb#l10_+Gm<8Zipu
z2(V)tMdp=hK}$`W`-!Qk);us^G|bX{I+F|=Bs_;JvhN`0`U^>NDQ&mq_Tr3y9939K
zbS7ZhPr^h*L<%leS+^gpTr7*xG>6qF>(0D;Q~;cRiSa7@7-cIBpojN74p6C_^e^{y
zw1R$oy)iA^xTJUe{NgWBs%a1HIOL}tv!qB9cF=PmC%yO5)s5c8^?m(50BD{y07AZl
z%5%xJ_zI}(Yn4m?+}0BCO3U&~jg{YCp5|5B)NTNrVe8@SHqqQfu`08}W&xKX&sSOd
z5!f6Xt(viu9CB{-Us<tfL}0GG69n}=u7W6C0MjL26E!PQ@cZ)eGzU;I{rL>eGn%nZ
za-Z!&R}1LASr&xJk=}XlhqRnG3myZW$GzHhkoX|>?_WJxt?=Gl{iWpj=7T~(pO?~0
zQ=|!R_ofr@hLNJM<GEaAsF{D|068x!CPmJZ*w_qc)`OCiQ&rWs(K)_2-k^wE=MS=$
z5EB~{fW5upzS_vkV^hBux6rWETsT|p4i?9RKR+Ymo=(9`vKb?JBY9BXpM>S*#~zD<
z#684vq3>^5uW4T@ZURn9Ww8M!ij}rOA<5Mb3n!4A9Zae`o;C;kYOm@P9#7rbjJ&!N
z&OPY-s`(R3NDGmQZ9WhtbD%M=3al;G1lc@hijl-FNU0lWA3uKF&_XK%_<>F!F&~ey
z*#`F*6UK}?K*OK~57>r=Unlp{6nB?D<G8Nf|FU7@th_y)kb+E1P6n619U3rn)&xSu
zOg~l51gK*<Q^O9rY@SV1V0#$T!2#C4uik6I3<I<+>IeSXV2y-dQUu|FrONxC+~w*s
z?(iCmsY-TA52=af^PL}BDW>m|ls)USx918=EtuUcMH+zsvjk#y0I>h%b=)TIM6qrI
z0;cizURbeM=?c;qWLq)v+$%L|3YRn}(!AQ*+7Td()0dJw_jk9e&!9Ng>w%9Z^?Nq1
zyhsu=_i}^5+ND%InobmQ1=9C6N3|>_Yuo`>Yib#SmI2OZG;PsWF13E@xvzpqq;dDF
z3J-m`RxHER0!Mez#?TNs(cr)21XTY1c%DI4Nz*h^M}tAeb81n4KZlphFIiMQEH^>=
zd5-5SIdz@P?gBnD^V6qK7|pO}{cHi&xv9TI$9l}>-4PT~NC5ALC~ZoQCReHn@Y)>8
zyUVxwuXcd$$^bB=ld==>>A>=O^n-c;<xudM;QSfD$u5q;+O(BcE=vWl7!kW<eZ)?O
z_&Av7C2hi$h|3j1sXIvLRzMNSdsAHWp-P~_pO!T5%w_GFR_J|wC78Bl1cDmNa8xuP
zJI)D!zIjfOh)KaY7=dAe5vL_ZL^={M@7`S=l(aI+(apz!Ld!C8f19oboR<5iXUA9>
z(i$fse%tlqoNZsRrGKkCcD&~5aIoFRLBnC2DXixN=l1evR{bQ5X|csZKS}!G_j`bX
z3n_p(bu`x*GuUdBnFwC<Oen@v>VtuA5XXVpYWvL(8F;qEU1{9~O{Cqc2Ih7fx1=1q
zwiXyq4g_#Xt<OdP0kaLbp}P+0LmhU)KlWgu$fatJ+jJDzb|*5HEpc&W0aWgDP;D;5
z08se>7=$XGd8NjHd$LZFnC$kmvwF2&Es^J0cV<}EtcE8}fOOsKK#6+VGzY_*$~qXq
z#fgZCt^ZXLcq~hDxj_$DC<aN7?hlwjmcL#G6$RQBIvO#Tx7&emb9%Azx4hqcSAw3L
zaCSeQArVl>b<igA1=y**?cEQgDF=tVU$7-|e<c?2*Shv5urNMI3_x?dc6EvUr~%--
zafVvRLaqZ8J4s>mZNZESobkQJ#>R<?{)=OuC?yRgz3(G9ci5cZKo%%AA?W*x3`~0g
z=DOpc2joSP2}6CL8SDENg)$idaI}=DQs7VxFx3?nxY2JG6auK6_WC9R-9%tJ(+T=|
z4L@I8l5-<A%4#BksCy&tHdLkuN|V~88f#l|rusw}HbGwrz6MnEE%K4Cv0TdD({1r<
z;H}fvlXuE?n1nZ6cR>{10`dBD6{!4Dj@;XCO<S8|V1%68Z@m~j-$np5yuh~)XdyLT
z|9!0=jnhw8TGAl^kw%LE{f8Rh3%ZeA?z0Sw*#ZD%ZpPFTC^L|J3!FC}{ZQt2?#nY6
zq>_6{T?|Ytqa}jo1l#ULDPkdDv5u5B*OlO+JZ;RV(((tb@@a_u?XUd&{N{`w$>y#5
zQ-C1GYJg-3XLMRa_BI9)KfBHj_{yQ`n=nBNKw;elIimX-^r&rv7OD^DFB;u7lobrG
zCFi^y8Kya>_o|L2%&jyr{u=_+iqq`O%)%Sc!)l`DeFh#NCf^|I>kH80S*?9?@JQOc
z8A61lT|lc>{#z+{i%_=n1UPE^<?9c>rx=gK=Sga9$}Old3>BuREapg9WGq8bv&(o`
zjWP5wP{2!apc-b)tRAa(h{h5D*Gq0Lj?-j-AYE7n7<og1QdD_E4$H>I<^)vX4|^E<
z4Y#350Ajj~j-;X!fV6(wKyvoS-kjT)7*xpQ0bfwR=yvIbTb?pve^&_vCDSQ{VeCU*
zd6?<u7J;S*^>eaq=ynA#Z2lg^#%(DeCVIez1>wbsOA?j<riz~)K4IZKXzl;a0u;(1
z;IN>rasP=XGjue&w8aQO#cGDr_B>O4&HUBK1-}r;CpJ^%xNhm@+S;2HfLYQQD+>qG
z1)kFhL?Q<mvo%o8!_&cg`?RI>&B-XqlCdi1-uK`$#+6GN7Ui7MegQ(+XEbQ(w!!dx
zn`Fi(Y=S=C9TM={&G$fa4)^wcN44gEt_1*AZfSCj!?(|X?!7PHAKFF+_zhnK<5VPt
zvq%JNfq#Zv8Qe0<=zhg)jfQ=$*UL4;ru)Q3G?nS8qj`i--aPRHf}t$iDQyjrR#1C&
z&w*SToZurrIl@_643Zhw#cK*ENKvwJ`I9>+#*knDjR?7^*HTI5*t{iPlsA8Bi2BVl
zzjp#SX1<%<1T7eF5iulhi=iv0UtIDCFh`~ZOuizL6TRp1bN9bzsz>Sbk(Us3+V;vQ
zqwRak9~gmRon(mwP~Yrxkv*y-*MKC$GFlv+jD~XVC25zc>w<z#W`2HtFi_*op8W;=
z@1nrk_J9V(UXS?zkWgz~piL1#1KT&!)c}!QD=RBE)p+8^fyUgP!zAeK;2GOBxe=U!
zzY@3?w5y94MjCzd@#J@)ZX0dE+j4;(nW?k0Gaq~O{_3qk(9q|qo3H5P^!T3fk!^T*
zm>+lyb+EUw{0a0u73%?ESyBc|mv++UeGWNa3X7C{9m<{Rx|^MBv-54bJt4x%r$;>&
z>)boL2YM&P?d|QuC=}{EXf(~Sid$5@k-7IFOpu{U+JRT9#9u!L#CkRmag8fQmEAkQ
zV^`zK*M6%8&^Y<)B9KQ%JT`K?qY;#1tPNTLz8W_btGsVg*i8To%yERn=ldkn!NUsM
zpo^sY5}%;0JnaKI03mW<T}2yw$g6=Mdk35x98ec7TqvQ8H*8iiK5P!y#BryeDZgEH
zs#Zbk13+T^e8Oj5%_}X|PKD~$5G#-!vIa>=*=BWh^<j|5b>*NFi3O{Mw*sv_+U|Ft
z9@B3>J;EBQg_Hm-`?skq4zj40y6{!7DT@h8tzk6g_>64+Zat{dVs<68xb+D?d$eC-
zBK7j~^F69y<ZA#9VywU}4nLUnsKEta(9&AZVOXB=-R(6=;Mt7wL}w2`2nim_AEcY-
zuQOWOpo<~*8o1S=A0MCMx_yG63!6Cl9*ogUK{>s9{I!<R{`9o3SG;;tf0NZ=FEy+=
zbAI_EGt|+;)bv7n-Sw;CV8;qn*M1_Owf8q^*f&<TK1wOhhCb?vb7yoh+IO8!LPXMh
zc9=?5g!C(&@Qd$KQ=6OsL@(Lbi+|Y95yPGR4)!$0zztFV_>i-cOJrBucqf83$NgzQ
z&=t81&9HLFtrI|Z-5T_p1Fy_iFhR&Vxm-WkV^<BWtloj7E9h<t+Dsd&eLOX(i#;+l
zkvQXj0Bom)U7Gc0{s&Nhy5be`s|ukY&>`DQRIh`CEn`MlA4O}z+dDg>k`fcG-jMwu
zw91MdJr!Ff$fH|f*wy^mtp?rMfImB?cVx@jEVf;E$&yH*9P|l1FuYEnAwi$1Qz$9X
zb<bLO0=EZ`m;QHqmG8Ow0O8B!#u=wK7(BnV$k{OzhKk(3LY9Xeg!W1N*^fmTXJ2Nr
zIA+c5{7;zA1O7c#!+iaeJv(O4+Y5^Qf3|r~>b?bAIFZotqaXB}F$>7dfd|DHBffrA
zpBh0Oc|*1aCq$3$Z;7e;^PXW)pBML;hNF=#wHV>J>%;Mjhu}xx$NuYkB4jTX-c_Nx
zrTds8IUiv{^cGcZ{(FB|PsvD(+fqtpCy0ZbPH0}6Kl5Mv#a<P+%ER2^)O#xU6zAI3
z?5&jk$IEI&>L8^>KKk;jioe=){%h;Gqus0JKm{B&-3e~W<z2EKp#0YjQyK3X3+}4a
zgd*YIe7F6lapnZh|K6MSdYk~JkY(7GF6rEy^%v>S*I;~L5(774-Gl_sZ#6tPzU>c_
zGay7hO8N6w$kBrG`@9~uT3PQ>kOMDI|7X)%Ocw3&f$82;3`;RCs#nM<3ZsYINBTwm
ziPwLA#mO@E;6<Lh@{boinstlO>OlFFV_scJ1e@_;6}@)|f5C1;$K$+e)EqfpkE1<~
zf(>^b-JUS+Ic<@@>bj<WZ@6b<QpECob1ua*wQ9Lsafaty0$<M&ca+J7`I;3$`CRu=
zVgtYR6=##94&Z8rjLUs<LwfEntW(L3iBX3JPYmKOHFx?jzO&%~?+456%Y{RI?A{&a
zM2;({gzkU9*V;hZ!iwhI)Q=a~*I%6B5fy!Xjd5GrOa#PpM(UR1Ny}HViT_?D5q6MW
zS^rO5RQUfNt_8Su#B<p7vKO3r=Fg=ST09>tIh#%046gqP%Fz>9s(=2LfxOS`xoshk
zfBhSD<VDY^KhHpMF%c`Ux`y(Ur7XVl+2%IoZ~nb|0R-($=6i)k(iZK9uJoTTDfzGu
zhB{1ZTk(JUy81tlg)$zq1WW4u)#A^G-NS+Mn-7`UqGA5$Yt;ujh^DZ;BHZS)J2t3O
z9e>79#>M@?Qc2+XT~p_mjJPt6yf1Gu|C~bpUoL?7_sNj|aU)*_lIMT<O)LMmcy1x6
ziwZUsl_i^dxxJ~fPgKIL9^%t|af(@8;y6!uc=*fXM^8RF_k|Mn@<*6v>7;?`X(qvU
zF+UzX5t=l(8OF`|_yE(D<0)5pZ*dFQhw<@|_53H4O=tXieEg}4Hr1}B)=QfdlhQ!b
z{>o5Va+BzI18$?Q5=8jbnSaY#H}T(+yO+uQZ`PmX|F>@62r>P>S@DC~v48JW6wv;6
zc2^A!{QeS||9*?U7zddTd~Ssv!#6#TzPtX<?;9SunIv7;!sjA1O5mh;3L~H&I!-TF
zTp*co71qSwp?vLs)qkG1kFk_tD1jdi;-OA{mp-!;<eIR>7_%~>Ynl{Q^m`%xcZ~6W
z!!-ZvE&Rk9m_|%F%u?^Tm-?Bd7nkHyCCYyX>t4dyWsgSp{-(mxLQa$MsZ-t))_d@c
z`niSvwCDc6ug%eY5$69uF*DG>cT~DtImnNOo=fOADl~I+`27xXiUBemHFNy^g>nJ4
zLF&Fe^ZP0uCQX@gg32<Cpm3}H)PVbKq<Xiqnd0*nZBqM|z5g%n-aM+QZ0i@rvJ|Tn
zD37N^L_kZF!UhC{2ndu#2?hid2#xe2AiXppKuEw2suV;4r6(#Vk^rGgLI@!!B}f|u
z0zycF(nJGEqzM5+lDiYD&OPtG@s0QHH@<uC7&m`t*n6+F*P3h2-~7!v*WPKq2pyl7
zycnAbfjEVGkm2O$sxrctdotOjIXJbG5(!mhrm&6bbVw@|D=BY5Q(3VA{P~3?v|nkz
zlpjZxUW1BWH_6`;bpCc4Y@zHVNK(TI!7%2k>noET1viLYWhu81^2OMtGwIWs(Vvwn
z*%ofW-Vc@E<wtGcAc>l#fBMxWRjmrSld8M%ZR=e^TvV%gTX?^;wbu02CD{bp|NJgd
zmCt8)hG+!T7_mF0*KXlt$J74U^+k_~neEiCy=U5IW=kEgy5J)_;lD-JAc#wM{NPLT
z!svU4WRYB>Yk5ZIOo({lXNG)KxwybFrRubBG!`RCNJyb_HaHzLdkn$YJB7QLKAB((
zwS)Gi|049lm~-8icG5yr8S-}n)e*l-1a%gpGe8lTYvS7@ybI!Cv$^>yO)oOCX+S=%
z?uN4+ok@|<B@P>1I(Hi8F1SkzrJ=GW<h!I!Ty*;qRo#n5MQuysJ2NO|n3h0jGSs`{
zk+P~QAIo$RPt7CAPfp0Xs(bxiVt$~zK&z4d&wYLf&#CIwHpV=XzD+Iw|7YJNdfsK#
zv;|HV!L*2)vKH0*04s`dgx+28+0Q#S@hrgnPIlG>`9irBrRC!i`{zy4Rb8DhdRkRq
z8ywrjU!EW!M5Ap%g;}yL6nYO$mX=Yl_sX(-UhI$^aC?8TH%j(JA+6)!|7h%EH(?7=
z#<3PpPRlO107&PR?Ktc!tf#&6P?Eh=P2uaLg|6^>b)AgPt8%(gV7ZC^kz8p8H<5hg
za1K@zjJzym*D8!X4LH~u8kMr%P$d5wuPM6_8kI6T*z)zjKG^|yR0{u@T$>akOuu2i
z7Ey@{n;(6pGIfIHH{%}>&(|M~t+wpsXn?*#jQ{o@zC>lZXL^KFfB&jO-!-0<yRQEq
zp!F|n{?Fsyf1(TXM+}ABYsrG&JCm#@?*<Ef;lI$vXzqHXKa>)J1a~;-AP|6v?aSYd
zdE8|~Scb9vq-<}Mg6HlKzq<Luk0$dtw|k?2E7Csi0<e@?qgO4%Qi&2Kk!AktasTxw
zXThp@$%p}+AgMjWZ(Y7KKwj=C62kzgv_JR<(1c&W==^dcJx$1Yz}e*0PDQ>`jh`wf
zNc_N53x43JqRa`LxKl&%mM^sb-TwkNvG?dC!V`+xDR%-2*EV;4e?`lOj9b4VxJh%c
zMa#9h{Y)nL<H~Lt7LxCpdJ!@9P21PkVP&bdF^TI$PGelQMMH8N^rFC;R&@|@T&_5K
z^(V#W1VgkejG}vV37j{~xlOA?OMMure`4jm)-`l0Ujh)pNnor*H$F{1@Se=<z@!#f
ztYmU#52hkyy`((^o{Mf$b=QC4h~c@AQ+UK;S8DkCwhve|wi>TrC%5vn;~@v}cJE!t
z<aIp9h6Z!fDuPR%(2CLa7%glRag&7{gw8W<__yI_1sSx`y*HRiAT+Wbm}E9>Gdfaz
zY@h6A?RgRL?eKV!+q~rEfmsH2oy1|#G<Gw8l%M=I(zP9K)4`cIs=hLTXrG9ax>{72
z;mt6~3lni65I!~vXAmjpKIglB+RU87bh$}=5p@BnjKE+j0>3`S!PCSTN^OE08{&kH
z@*{_vz(f&WBZjz6<wOER_yUOy!0}9#FxRlcSxz`c-JOcoJ9Vx!+l_Ssw&8G4_?>Jd
zCz8x<&~bJhVGLB5$3t^|5hsbpchmB+?av;_ica|LE9OR=3Ea}EYV7?>B-2YB@0J*d
zn>!K4vlx6X>p}tFQ2z~cjvL`oBQi(uzMtp_3YRZw+RZ(HKEMU@93>5A7~|&J-JRib
z=|$)Q-3isJl;zFC<A)pM&vq+Je#yk$fWZZMW2=iCmC-~d!5vhbmD<=6Re{9cnc9oA
zai4iAW4OSxaGjT4ieA&UhY;wsQ>{a@10sqIC&<Vg_u*BHmA3^R@nNNvOUuP%y91w-
z-?CC67XE?ba`<}gU!5l088<arGu1ju&7uTU_?loU-BD;sYcdk*2#pa86HU7Szk?*S
z^iNFLLR4xbwd>^(HS)2a^u4g!P6VD5k6~u8JH6I^jb!<Wd(M=JXe+nr6i)_wYnVmb
z`q+bY`RW~x0Pa;AH-!N%r^QW?vW9zu<D3O^aa~%W9yrlW?)DC8omu%hZ*0NJ6&Cfr
zHUJLo;zZAeZMb$M$f;5L_v%L{ErOz2Lp0d^ey8R;4+<K_PB$P}Y?wPNbX!Vl`GH|%
zc!!X$KRbK+#eofm5ee}k;BGpskH+A5$^EbbNH*iA#D)5~Q~XcFg%ChejY-oJtGcuS
z;*^il(Im`38N&+q;c1wNZUKTx<zU_Z{kVa1DZw?nFpED?_dWDD?*vG~evmvC!7~O~
z3Kgh)DLGkmAgmviioH3omzD1-t%+g&&@7#otnLhZ84L>(WO8hJqpsW(Lk0OVC`&sY
z;MH-tio|^T=keJonm*{*O3MLQZ5#H(D=y};lVC92=`8j&%w6d1ZC*T>3Zd52`Xn4Y
z#`M_4_aguR@Q(9c_-Vdc+!QENCPq4O;h|!pq)2?v3jX`0rMT$0_Zl^<Y&n!dM7@Qy
zWeu9sG14E0R_|HD<^Z30${SXVj2v?~)@|h~ZAwqF^0f$kNsh1)qT4PjEk*f?nK$5L
z)y#|JgfWM@L_kHc)kv5LG6m`g+W02<g1{oKOJA!hzdzU=IuX%YLuJ5L*Sl7%n5hHT
zXKQDCTI)}jC%bfPVci=Bx%)xHqHQ?;M)Nk#Q77|f8I1Mky}Y0g3EVNdlbD{-`#pe2
zopC8N1CZ&nAuZhA{HJSwhO^$%P|bBC61ZRiLP(qxo3A;B9IM9me=NFdMcb0PHhxJY
zWH+NVbV}ZGDcpD4=faJMU$9a<#&WTKF}m@gfm=H~R1im#8kr*<0PeDcwqGfR52Yi5
zQ-gW+epPz=fYHw)l)Uy0e~IDV6~d9yyS*A$f#J8Y-*|a7X1i02oomcZzHL<;57~pS
zfHS8n+C+|oO9|@RVcaqcxz9KO+#fYuqq$<-8x?5ny@-c-YkjHhb>Jl>fKuD@^&gk_
z&-ADuSJ%^EK6tIviJsPUJ*jZ1RwdDMXQ0oO8o(h%#&uDvEg^`f$v)PfL<{NdFv|&q
zt(WLvUv!~*Dq~Yw>K9~JMza0lhqx(%M*MD>#n=6#b4Mb~cpkC%QLIUU2ynEH^$kRz
zpEDymf#)XZAudEiLi#mW&k!sutBfJNq{#FWHd(@c<f5`^`(-_xa0uMm3NcqVS!wgK
zzK}%QH0x~)=k;;^h!kVi#0coih?HMDn2lO!rXQKma<L<9q7sxMbu6%uPSNrQqNpz<
zjb=%1>_twN`k;lZ!@AHcoFZQ`fJI(SFt0!GXZ8AdMP&q`!9od>PmT0@jLaYcMw(qy
zTie!{><K;Jq1map)Qn$2hsav{D|Pz5gztBUph_5S$0x{4(q6Y?lqrR5R!smjiq?zK
zGX1TzR7v!u4LL25HAwsJ((w1bmMjq(?q2B%s<C8Tdr1_F?Vyf=RgOgI=wm9D=}K-1
zcqWf7($Zkx>7f|PGdGmUe=()>2-*9K0Py_gSlAYR4cgqDP;<|#D@ot?yt({@7xn!n
z{!KKiiWgtN-u^Wf9J$(ed@r(Ty;#|5LZ0LD*8rdwp3flyaS6oAPizl8i-T2Qzml;&
zz*bfIvRIca9*>(kN6LFu_OCv^SJMoHy!=Ye^3!euh(;DqtRfD6<$RMrbbg;`WdLGY
zI6Hi85dh#7ByK9#1}%3|?FTY{{L&U5wUPE9Ob)BpwgJ{Dbr!#j*s#LvviTRW`0<My
z0w!S7j$>eMA=w^suaYL7-%~Y!>I*A9W!@GpsO2<pB59ED>ZKPC*5!!)ei67mrOIp_
z5Pe1Rr*nStsic_(M*StOt$V|_@VgJv<X8J=0as%+{`Os0?tXQ3{|d5)J-klN^P^~i
z0H+wJy@#?u4o;NN-MjiawO*{~z4(h`gwCf4hdDts>yZ;eB+Wi#D*A=5MXY?`6uia@
zyiQI$4LHP0X@;*In3aY?yCXK{X!xD*|2|%Vado>zP{PJKXN2Z}_E9utw{Y0OQ*?Ks
zTGiKkJUjuQ0c&MT6WdJ%Ye`IB@&$n;&mSbq`|$V<5TH|my4ACBa_5qz38+najx3jb
z^)0}eD-L8)8GIr+;}oAmT(Gd^d|mlNz%n3TPOKJnRL4wg0}u@ORA*`&q!Akso470K
z+h5eYu8*6_&K%x8C0gfX>}4xmH>dKPOs9_l`hN7(^L1|e_Hb;DiW_TmoS^@0T8D{S
zyXX;TXX8Q@Ew$f*!2W^Fh>6;meUKcGl3ml5JY7@?aAF08_bF`^>$O3k`fpXjw&7XC
zc^ifI>%cm&-nOL)18DXmiOgJfCl;7`r_h4N2UQPPI<wp@(CfmTVZeNg=_}}6jueNG
z)1Mar6t+(J0+T+*Sj7ZnE%9{}nq}lB)mgkAv9ZDVQHgFc{L=jkvnF|b0*F>-p-{o|
z2Vn^DyySu^3(ySweGQ$m_qxJU;bV~zzjM2^DD%4&JPZJ2<9_6*22Z){wM>tlJu}OD
zq3KQz=hauby945oNvhorphGpuZlaZU<T$8rhi|J+Uw={{)IqSgg7BVkphaiCm*)+D
z3ymhpwaNY>eAtVY*T^`{2{zAq`6=fBvEgTVPc2z$U);FpvP-2GEl4f%3UQY7ALh$E
z#qINQ?x`>mT79>g%kQ8$4McSr&-cPzJ1j{n<MLJ9^YZC8%%o9Q)u{H-uezWc82z`V
z@BAxOB-7#v%(%&~rLcP!<o4h%Tl_YhS@JEjz*~RHMxk)@<!&YUmtDpq-!r=i_`20*
zjwUS^og0!Zj)n5h{jDK@Mp=2XH?%NieiqNxYdQI7dz-&i>R9;QbRQrq0&)dmm?Mb+
zvcx7JDvw#sRyZc4uQS9o+xPNU!^mx%zgta)MQs%P6+NCf)2o~a>(8Pjhsu#f;r!c%
z&CGIkr;c8YT;u>`CICi2Tp-%d$$`WF#v`>a$TNb<xUST;imy@Y;n1#g&^E$&TY3^5
zUF_xuvAD)tD5dfLec8k~OPCcy@ZQIwxh1~BS3YaESB8YE&8^8%&`W}B`}wa@%8`L1
zA)Tu_aybO*`4t)g1qPf&tPJE%IBUq;j$AGD`kFtz_U+$Msqx5erA&UOlIml+n~w(~
znaGu2TAcM`YjH20bCITq>BR`$_=Q<47mJ9buXMDy-{WW^pZ<fR-k{fR@6?O;Y9z5H
z$W*~i#X<r(IY{v4=IPW?jxkLO!h&$s>TP9R`riPCB5gBEuDGPw_(>t@Vq10cr-%)T
zvH{-|foz8R;s|Dd=IWfRo<$6JD9HskbmeaP>tdGM2fnf)+k}=qph0<IRu4p3aOkgs
zS41|-r_}6nwygK|Z?kYWga%4SBPiAD^~5gelVqsiUHZcpgz#;rDPd6qOCd{mG`2)N
zb$NfBCJ2Ot3O0)@QlWwlr88dwgR?DK)=Lfcer4*RfFIDu45_bV)T~!>>S<dP3q-9P
zH=4cr4JN+^*|`4p967=SR;ccWxNqub4wC#~J-pt%vZa+(@HN-zHV!EAKCe=*Qg1Tp
zK(ob#W;of&&Ci8g9w54&8u>oQ|7a1bc-3FDjTIiXA+a7VQhCWoyw{K$hSw`Vwp#Qy
zivW~2_fm%`DI|_H_QQ@;Td%mY97PPgud~ukRm*=MCT_|a!B3!OMaSMk)N~0=sx>vI
zl&-5&dC{i79#@!r>xlJ*FfNZ}Mbr@>tckj_@0Hdba6%n~H`+3$#yM3qsc*u;UyL`r
zR#o@%S!|a&5)j`B^MP89+ldjs{jAd<$tbi$$RjSeF=8jNbk#4GP3x&DC)men?$pk%
zlN*DG{Y#kZR;G5a@TJ?dNZZ<^#Ww<lG^+4Nnngb2&wr!@TE7tcg%^l!rO)lFF0wr|
zdAt8(jM6B^)0p)rP1XOO0062KsPnzMl12e*x(ozF#Zrhxpb20ps<elq{<RK3rXj}F
zVV3tv16iySZa2ffbkOvT2fk;9Kv;|?gr^D$Hp>DPGqS2=IA4#Hr4)mTMmpsCBI|@b
zDm)rRI62Tdl@*=%@lWxXAEF|}QmD}zwfR&UX=73t-=oSvj71)s2pLF?=C3_uc_*kV
zc=Z5GBBgYfXhUJif0l6g)cWJb=iGjptvd4o*;4>g3gG=17bmGmcI-GZrs}FPzhvdy
zT=U@@=qUX4<#CJ0<SfGF#2T!Ug1@%TJ_6YbmGG*8{{9DgwpnZGZb#Bs%+Uo4vl*MN
zW27yU`x8o1oVzCC55hir-P6z!ozQ82-`VnJyqMjo;@g$vX9|)CG+O~b|MfQlGGsB(
zid%Mpd7G29$GSC5x3Me1*!v{+RXXi$>ZMW>*g!uf-y~w;f?&ZUVT&BQ>b}bY&@&=x
zLy_h%dTk&}{ny^PQX^;m;&-IID=-rC588H2FM0{XHn~NxV*RjU*>Yf>+|q(>d9gk+
zMkJv{5V*<H7`gE-0ZA5%$^*Bm10Wp5y>2y{SLwGkXrukJC1&vX2IZ86`kLu%j3NXz
z#$V8{Mm7a#F<GDDC?Q>tCDe}_iBMtsaV=R#X+MHSG+WKp-5!>W{&0a=kqqfLGDL9W
zN4`f-*3uB73I8M*RLUs=X4@yhf4DOM#JN{Q-|*BIpK!X+l=(RQ^Kx%hT?fGXUbkr`
zG1&n+GGAYg)-Pr#Pm5_C!R*>Q;p%!7E3Y{BXcibFj5(x>S|+_>{X!(+OmGID#mh5K
z5n(c3u2nS<)toq<3uHRz!s12}fL(AJ>tyx3&sn(o4KCz+g3Kn<c4ldO8TrAxEi^%N
zFMa!+QtwDi?Tgw7sI}Yyq`f=#(_|@uaNsRD_NAYEc>Xi{pdBu<2`jwM+zlWTK+X29
ze6%2a_!t1u>F*~ZpnVY=*CXiiOX~Cj6<aIa^f8(Z=|myM*GxUtTEKbm7x5bGoOt?S
zx6;uVb_b(Z#X#zWu@9c|i*DZbHGL6&(yg6T6R?G++c-7qPN<D?=9;}R9feqd)LCsU
z)PE;fBE0@%3qo?Dpxd}a*g{+YW&ImRK)jNL<~-vvVLfp{{O{z;@>*014@u=({F&rV
z&ElIne|3yUWqf)2Z0G2{;H)W|PhUMz5a6$UO+n1IdrS99)l;wh%WDCK<u%(`$rDbL
zS(m`NhzrI4ev7t%sEs-RZKjC};s0{dKv$CPiPbe4IIc_43vh6p(73q2{MMX|XT}J&
zH!kSX%rQnPhA>+}Gsg$W;*nbbB$12N?Ul!-Xj<bqA)8l<Swc(Ejs?X_otz@h441Tr
zUW{h#sh2y+w1+2x+u=TfcFrhUlO$(8ZT<w#S(-JPad1Tr%JMi6lK^q58F*3V<CBnP
zii+HpK&?jlCwxsO%{2v{fm(Tsr{@#AJK9=pjprMI+L&w@X*+>=lwF7{&ccrKiQ(w&
zw(Dl{;q}Qx<*Q+#9&JASoBT+p0bm<?IdX1a_fqCA<Dw$InsWPASyqcNv1;@0;foZA
zP9Xn}1H@zj5S=vMk+X6C4?rJ4orqj-hBLz^U%&<ax&HOmYDd$=xt=u^jZ<{jR2Ob7
z6M~30X*-a;w@RxMc6qAxz_q?@#wLR?w0FHxmv8!ba($*IB5C05^Fc=Ao<5}c!?JF|
zTGNEZX4kgi$t|Pvo$=yd1uVb`biNVn{_ucy^b$Eu_>fjUdP?X(+q`?U=Xtz?;4Oy_
zI2fR5+VOvS+_gtLfxca_<-AXCkN^JYe!iCmV)-K7Z1#l#%xJ7+Wu8H&k%YtR-_R9Z
zOX~vR^xcEB*;p>m!Ux!w5<?^JlC#F*c0jX$FexA|S@L(SVow$GmBmsuUC^Z8%59)~
zG&}i_Fr+q4WCoOHOZnV(bmtezFa^=fN@nRiV#vhZE{(2EgME)NkgqmAuj9K!3K^kF
zU!VFb{PEXN)|o_rMS5n?x-|D~@;XPI|6KsDFa7EdbfBPcul*wEw4Cdv^`HBXDw+Rb
zM*oF|ZK9+UZK0T$BHBB<?@h+Ny03WoFs5P?Uu0VpM~=*(%S5Npj;{Z^2%!PE!c_CV
zCD~zxJ?}nzi}N!}mM^_Rb@B1N^27geS@l00%>QI%_JEiWCW_ej7-S+RZ4s8=F#EYe
zba_bN*9z|!)4x&xva*gIGt~APFGV306GlZ+rK3BC<?4Re5hx>Sg|key+kV`om>5Cd
z_O<Z$N5kK9^?XT+Nr0fd*`|bI_0(1>>uV9+BLJx7kSbb&I!u%(-sBfJMVvXEK<@ZF
zMZgD}qv0k4clcgFG~xenqN?R{L-BimK1R=PYGMl0sQSJ)czKLtg(mk#efy$Q?2~jP
z0U~|0<!6OD-EBZgFq7ks=3|iL^)ik+M&)>86?C1!Ap!Mf0#I*`I140b!+^Bj%PmT%
z%bxbvzKnCOZ|4Tbtv}(6K4N@(fyQ@t@<`Za|K%tx`xxmvg<sl9JAs@GB{@c*s)Wh3
z^bp4jN;oYuID9Y`GaxUsBmi~4+d#?sJ!jxW%UHcFZ2gZeJyO0>4DXq{8{@gz^Oj(x
z%94vvA!(u_FnetME?Y9^;x1g+ZspY|jq-OnRnA$ZPqYBxAz|KkH?QR=cD`u4{*hGW
zP3_MQOfpVMof%KowP;2mLKXz5b_o9=x^&mQFDfwcjG&1#2-IsLlCqn*RTlia{N{NR
zlRs<x)*jU|8YNB}lCfyZIyz(h&n@vy#EniZa;28&S*mA(di$n{HBs67EMCHB5TX8B
z{>Bm|UJ{oI9Rsp3ad?Syet(d=U>D7kCQ|=~1v5@*4K;ogEH|?9onQ32l9aqOPsb%}
zEOV?d`d)6<GL3Ct-j<jj0u$H+MJFk)B}gy}RI5j%nYyx**Z%yrwO5Fu<-4-z*Kl9>
z)s`16w5{Z(GWo-|zZZ9uabRe=o79!@A{l{06gtT7Ra~3~i(9)Q_>o2cdEb|ZkCTsO
zRd!1%6Uc}7L4=-P(;)4K4^J{$^&+<=$=fNv`8(G9pWn3bUtnGTTe{$SBy2wasvnbK
zGNArV$N-O!{crW(RU9Yg;ApD|Aojq=e`cGkg8ZU3v;;yBMtQszy_9D<fXG=^EtH-l
zWqsJ9w2A-lAWg;w(jLypfA>d0;XkqG<A2NC|37!0{3k{stH91Be4JQC|CKK|R{CSB
z`dlAJh`Ea)(<l(Di=_?s_U1#}2joTa_V0l$9VJ>d1DG-oM#Rc{3v`IPDkR&>*-s{N
zS)m!!NpPcD{JCW7u8;LCLCKSobvCd5d~J?jCljZ(qccpZKaw2;w>UXtaV$t_F6wJ>
za_fyhU&GId^fD7Jc38GXU)=_^x+so;CJTzjO1gkBThRDb$wRvu)IB!I0zM|^&gMR1
zOY(1mR?cS{!F3dpja@m`^3wPeCZPBagJ0RAeqOf56M1U9`Xo?QM|_@GmF~ODWOCGK
zy!7o22rp=)pkgepcX>$Z$x^|<zJF~q;D2NQ9Iw#0PrATa<>)HG7k#}Dsl7@`sSU{?
zIK-_>D%iGGv*=rwWV5atlx^*Rmo5q2oNA(g*tJ9GHhMCGQCEFmxS6J(<vKSDsM!F3
zSTYgy#2&!DCIKXMc`tR$3lSnfk1Y(LL$crRlJ~U*!18G1(HrX6sa6YGIU3Y|59KL7
zj|`TbZO^Q`w!kz1St3f=zV3)fC~tn%GpkWWUev6UHRW^Trr?^LYol&{7s;t539?pc
zHNOJxN@@Z^ehL_AMz0TYrfivVB3K8R2khzS<SPz6c&gO)0(*!?Mr)aVyeDsV{0z_x
zj>*q<opVuA^^#NOy1yKp>;DR6{2zBx{U`MKzp#t(`uVK|w-nu3EZIIT3linszwb=Z
zfv`@;_UrHYm&)jeFCb{9w3VG<7WM1v9G2}1IlVgS(B69~r6rkm4ySp7#4>WWkjd7=
zQ?EhJB>vyq$NtYw`oCa<!{1%V_QCx^M^B-5p}903r;%n%V;)+O3ne1<8)g=vrUfQ|
z0xAyQcbP}RSYdtL$>j0IFFd*ObpxAOs%>5M(NUz%wGe8Ql?$RFIZV(~JumN}L6L7W
z=0*l0azzyw_Jv*%L+ecq+TE2s&6dkm`{#+DskLo!ywz8Lu`@8ady&c@v|}+t%NV{<
z%?VY)z_7yOw58ol1KI8BKFfAhnb3^b_fWLDJHj<us;j$T%}Z~-)B@=%z%;H&5xh06
z+9*mvg3OB3s(t{tVeV`v1tN~X!Ap%-T&Y#QCxq{Fv+LyXrvFC(6NGid1*%p+4SV0;
zd%yrMe*MR5LgK=0TaUSqH-~+ibX={NfPPI}PDowa85a4wDw)5lbP1(;oRoE&6vdaA
z->zmLq@2=7_4@pN&c|?=#z<1?@{{dw?w0(_iT>F}_O<~r2h@h)9{uuD%k&99YwX6S
z*W#(OC{1E<|L1Xw453}}`(3Q}@67R%yPpP~_@}Fve1$O8cq}%R_J$GRnD33`29yd5
zDmQ$(G#Uk?mfpzMAH=51g-gsKbL5vUTV8Nn%k0y;(TRhbT7|bMw2NJu=CPn+Di4FT
ztX`_!n9OjWHIC<=%@9UssBEm*k0Uos55gMP=7}p`BqeR@yHslj!asd<0!FSS>Btwp
zbKjT&Zfprp&}8zh&GktsLB7C$#Q3q}buVR5+GrMI!el-O+P@^_G|z71RFCGn!_<kh
zA-1)IZS2t>-t3F|+2|r08^<fuYX0~I`3_YltPWuYnPcY~N=J{^l{$owu}?(EPdyLe
zN;LxbGBb=HlE7uI6#5($Sgc>@V4=cekWi8eV*bt+e4}oSz<9YWjQXQH*Nj8f@~xuu
z>Q&2F_Y$VjD)!~W?GYg^m*&DhZKgp<SYkpKO*Q56195~2iWjFJp8~uRR7hEI@sjpW
zh^v8)K5)h@NC_IG%h)FvOm=k)Z;jRg^95>~V;{}NQ%2VJt|vlgm~*w}p|5?dNobW?
z;0oh!3w-b+6bb$ot}PuX`iAk#EI?lMqi=Z}ac|U(ta?Fy%Q2RpYj#N%A0nRHIc$bm
z7mlq0_1)~pBgy+9jH&~VH9MFin)i>>x#OyDv3FEXZWz|@?t;KP{DA~o2zvX7ffP^c
z-VW?)SigW9d8XFo3iFnodPwU6PPx%^<)_Ytryjg!3uSLvX;4GpaT!}7l@O561^r@L
z*ItRA*Ilj>_6cO2ygHt4g&E}pJA4{)KS+H1fxm&<BZAH7Hd`iMnzL<>8vhdV?g+6C
zSBazV^|i({Da@@;hSp%8xa>vhTsou*2}iK6dO>YE_#?ochK}&7HFrNbMy(RYju0z8
zK)=nL{6i@<lv~3b`yjmzj~9#(FG+=e?QFbuq02bsG<)5DWrDMP)N@LYMrVi3S3B<c
zJ8kdwx%_JHayutl2%neldBjDdnthbCdQG3T1VK?8FLldWBYrq$RKHf9@KBhwsBWo6
zV6LgK@ucKs8<5;F{=%qO*HTi&dpOmR8iD-j7CjkCC>-%Rd93%Hl8D0ub~b+aez6iX
zKMHr~fWTRP<jVD~G4TM9ulpj!!Pp-LHK3*K6rs<r=YHK5zHQs}6SwO0f4zTv>&`sm
z$G6V<@7uIf<4lm+ncp^@xuqDO@bF?D^xI8mc8#4e*_8F|59d$(<K-=dfbVW`e|(d`
z&gPWW!ifw-i>QRjV=tW+w^p*eD$xV{VT;O^D5!>fX#Y3;llH8k{?qsEMP{eFp}7;s
zx);EX=VQw`>{0v0*Xc<NlkSYl>aL-j)36={X(TvveMQ^!K({z|!l1hzyrQ%AYmSq)
zsd2Y1xXlQGV?V#Us@=`hwkn%G0OsAFF3?tV9)ItZ(~1`&3nR5n4ZDv!UtTH)M@@(*
z2=D+nHaQ1$D9JsC?^Gatsk>mR+g+N>r=DNLYwJ73GOHEe*6U3TK}aP8eBdy&*!z~=
zz0lMi=-R3_fj@&dZ%0}W?%|J-Txy3<QQUJa2K+cAQCnI#jiyO8N~br}mblKU2J36u
z`o)ixwH#yfzZ;|uogRN{)59MZ=S&>$R?6`%nKlAj-k;`zEpw(7hqP=e$M3ys5mb?)
ztmochd4@J~Zz~;JC?ISy#q9H8o4LWttsdb*`v%il!NFbAF#6UtCAj!ipY2c<J}^%k
z1pd4~vsXB%o!uWRy^aB7@ysZeSCFC)UQ8Q9vxvDv8?eb=axxt63%>)mfeusI!9==~
z`@(0mkKV6z15Sg3o}Fq}{P?#?NbQ-;s|`g$)6@m!HBIBdGM~AhY_bdXQ~R~G!njw*
zN1^I1;GRiZb1Tc79uSY_?y2!Ywe*@a>4`bDmz(quoC-R8$!r;uyAs&shzLu=;m>bw
zwe3qe$+&86GwSr&-|-*CtcVY%S_WS`NLRNejbQx>1^dlTf<wsC^_s0~OvH^1-`p8)
zX2OpsC?^xIQC@qw?VQiPA#JVuCb`}P(?^bLx)jeQ4Mcm+#9YLY9XGc+1U7joChA05
zTY=7$%^9}SwQc4`DtTz78W&2--90rfD6`KzW-Bnl3bE|3z5X=}oo>b4(?@48KX)A_
zrsOz17j0kRq79kD7u6zxaS9xSaNWjZwPlO6hAi!jXDNqX45S)$(}Jz?9Gf&y);TGd
zap86_uW<T%-GwoFFMn)oFDftuI9rl8t)#2999<f#snRo<qE$8+V`k-*%|3i^@$^q#
zijJ0Jz3^0hR{3Iw(I?(0F90V~+`D8vu7<k@`s31B&c^~~L2N0}D`&2v357)F+pn#!
z8WCm))xw6P(j~E4-#<h+?GX2*<06G<RRgqQVl)l%nq7f0iGPJ(R@F{Q)R!We8QR2v
z99x~F(7Rp3__MxV?oXT;kd%=sKSo04NR3lzd|b3|B@#M_%p9q5QmQ+O_=(|H=jZ+~
zMs%;|)8I)1v(sMD&p}!b5>j)hZlPMIpbn~m<0h`D`z62TSld?ANS|(ud`1&bD))|H
zspPQV#w#J8Egueg(z{(S@qTunCu-2(k48PGYa{Otx@ETXM61QeoTrC~cZd+)TN*nn
zrPmkw@~+>6?467Z%h^K{HeM8ppoZWSWxGPt5hr+ZPy0~I+()w}4uUhTy)fn==3E-u
z!yU1N8jg{ZKr5KsF_He<1Yi<Jef;XM9y6(D+?KYQI%M9fT?uVCCk;d|I~6^>clTtZ
zda^B!g*bdHgr@id@~4}D#B1k@5MwQt?_U%ihdY}si<=1HHP7$9)3%(dhKDp|?SU4u
z3_pD=;G98+<MY^0&#R*XG2-<`%1BHaC{(kYajL!eWHvPr6VI~$tj^mV>6<a~#EI-P
zv^xJBDM)a*+*B+Y1~<Z&qIm8)jRL<BvXevC$cNx9|5QQaQMuC%XCYSx+8~i2)7kzo
zk^S+}AWvH9vmx~gDLqWo<yG6;ifA3z#3PwX&Sjs9wNXxmx}d%waG5)qGP(@$`rhGV
zBORwv4$Vvg%oU6iGafB^=Y@W31kHp_fEP2hQK2}S-Vlvc{qbRKOLZ`^GFeI=8@Ig#
zi^M;H&bxrJsKCHLf4qz0x#;xs`bk8;(rS0<?H>cvR7W~i9L3?gArH2!2Ipi8@YvjG
zn}dTq`$ct{2nK^x9cqNVT83t{b<f`lO1Op-e?Ab(^N6J2&y?}e_|$}tdynTIUKry7
zFlN@-$_;FR<X~3tQqyjN*PFNp&;OuebxieUIu;teu<sT<yI6NkjQ^lQjaJFv9QOoB
z;USuv`lV4zC?LpLBs6yqcNX|A7bDi|@A1{-cw-1+A-Jujz2(@eo6cn`#d(U>B_-2#
zYNxXVliCEZXP+dUEQMcAa4NC97|D8iW?ke)CqxnTmR5GrfZu+rAjaSjmu{Z6qC~QS
zkR1N0|1MAUt|rjT946aw(TOZ2o$9_B@?x~1;H2d!cyWWd0@jW3fDJW0>8j|9ZQI{{
zJ<szp_FODKFN0Q{dw8LW&zC-!o?}2lbaBu~pHWKzptLn&&S8V`NCYPokaLY6c|feH
zkp3ywp_Ed+*cRTKL>)S2U}iS+yaj;t8f{^8RojwDWJ=iuu8<f}`lOD*XfXE8&pbz(
zS9V;)?YKA9V?9`!(>)>?e>1X2!!XW4wLCPX(~~WDHGb!!``YoFq1m6G=sLZxMK$<P
zEb|0copL)voO(u)AeXWeZ49&8m*(J1j&Y(bSy?;D!!7!;zmCJyQr?bx(k)~u9kobW
z8OXza?|0v@ckvIk9hYlwnqX@HuT$%=3&nVgtu@Yi*CMQ<H-oTnN=vV#*GyQoX~fQ5
zb$&gRpy=GDheHQvy_?Bx)i!5EfO1P7H0TYZi%cxt!G(XkV+rTAb%IZHgdXgs<(@XZ
zseDy~AZ~O=@JyUXEatR2I&3N|$ab)fou9*4FII@-%QWu-06qp<5^U(17gd3|dEWc{
zK@C|W$vq}jY&{GpQ+aYI<x#1k@<?PFY;cdU#w3^GI|!~}hvclbR@(`G&w~#U)ihA5
zS8$>%FllrI%5f3){{sc(y9*uuQ4Zz15MrWzg-B?=I3LP&*<4*(tM{JbF(c~Rz2tMt
z^YZfJ2*l;N7o)wo-nFGisI+4XNghS7pG#lXAt`t2lcTl@QlU1~k7ng|@beuTb2^gR
zkNbPI7t}(0%*!J?U)<ez^zs<+d)}J|gM0c4Y@0mCwg8%B8+_v0HTHqfuVXGPnf3(V
zb5grHHcAii%L%XOs|FkeeGmcb3pGCf57a1tyTyy`n8U&iLS{E?43`w?Q)vlhH7$%O
zi8*cHz@`BN$As5E$Hej)qz$z)S3C523;dv0^zWmgx~#K>CN|la6_Kx<qL`!W2W6a#
zy_&NtC#As-mh2WC+*uv@=?oZo|6OTL#<SD=9!n^YyF*%6E(k#(8=DO*eV;{}4Ncw%
zLj|Ei>lhWl%rt<Rb-mzjJUUa{)%3v7OYlB&ZTgZrO+jJr9q?~wT%(@%-MDlX(7A)%
zBEvoYdxA^1CX&|4r+)6HV_K=yFiY5#!PVBMb}T99ONR4^9ogGX-TddEtlnh&$KV`A
zyq}nORb&QG2F{iB)%izAs39UV!5Wo34uAm1oxn)-?6Nd&zr^`?1A&R)depRpUXFLg
zQO|;FEq>xMwfQxJR>7PiJsb7NPjz|9Y%jx4=S%Ykbxm9HXLmzPS*1_fmhcazZ>tT9
zvqDEMTH(gotLZbt8qL;~RrB8fFds8gWi+0U*>Y#?r~avesInTr>pstLzgA{ZH^V<u
zN@GhkgEh7$vfrgEcaOZxe|~dEumAY!X&o=VL-fF>>s(bxD78DR|0DM)z&cRLkK|KO
zkGxtc8a5A2j%FSgb4vThQ#~tXlbHK>LtJ!(3Xyz&nRU_tt(EY_OKH##YnLkdC)B$l
ziLtEZ^Khw6xi@sEETWXWynYf@FSrp#$=zE)Nx>)l=KjHY;h0R>%w$W_TcF=_I{R}W
z#59}#A`|bRjyh<#C$qJypb2ByZca6E#ezvkRIV2tvJ@<S<1pT}0w3GyG7Q_<5@rq9
zcbTyz>4~2Ob?)tvl`7lN*k~r8T^EBtQ>yI&p2Wo=Ubg-EkafsYVq98OaM&igc7=$z
zxr|w<7#VMkTGy)XNeauDX$tbg<8Qi$G~7!TKUp198f4YkrH=e&?33v^Wi((GZ$rO#
zan!)?R+82b7t`Q78eke(c*xSqlM4fHbz(C=<4m==<(JIv>GhM8Eb5QUJ<xbG^vH86
z?lO*lR!LZeWr4~bSD*b15ITEQOV(;NoRZ8OeFB+t$sU?!w(`WB7}<cWfdRW;72OcO
zIYLpz-)9*D<K<VctkrM*Oo08Sf@&?=Zj@at!8ICNf;cZq@ZNe}6wTF!^OAgNv8xC*
zv|o&M`;0OU@LU?P0gzQNaFuRQWZTD%+}RahiEahOdyiBHXE|B4n{(&h9p7i0zx!Rf
zr0EEMlSaNV#^ht%Z@AQ<P0Zw)z96khZi7;dHL9g%wL0$av4Y+KV;umTf^4kGz*tAG
zF5MtMn4UO72@L6r_B_9<T-9B45^!OkBDfJXgVilb6U%;n4`UJ@!TmY+wYB;mx9NAs
z3mB-HaAQr-Pu#KyF@x0c&zXLEFF+X{%Ix#1uK}v^tj5q1#t>zgvG|;3lQM!xgYAs`
zG?|xSUGr)(sCdB?)5Csa5UMgTV$#%Se=>e79bhnw;FJ-ZANhAc4FpxiVX@J^qe!Sr
z<FcO{5#WcIrlgm(s`Gvs*oI|?UF9No(Z>Gr(Gq%YjnOWqIY17}dy6GDcD8N23e?+J
zwMc+ITD`H<Z-kblVteMMbW4XyPgmIqA0Fc?7UHLjde8u{-+OmD&{F@d+4J?etYR=S
zUOC7yaOc8Wgxj1ja;L$#<j48wD@j^W?-NoS(Tm9)1+8W7&n)2ShNKaw`XzxSl)m8E
zg%q@6tuZ5&QDHgor4|9ExCke0Km$nVQ`x_L1%qzYGz;|Yy;8I%67_6}tF7V``)r3<
zw4x5tCugWZ@Eo3xKVqrV*z^Q-ez7S}#V{i%JR+*JMq{~O8yoqg&4*}*m*AwrOK+BX
zbmw@2rH!jO#la_jzJ`kspJ*+detA5Pep?Tqxku#FX$`bgiPReE)>Y9Y2IgRNOn<&P
z2Sj`>jnNNk{4lKZNkw8q<ve{(33kwW1Yk*EU8hPbgP;V?jNw&vxO454(0-8^5oxVb
zSU*u4|1Nz6h&ozOY!VO}-+cLy43>EHwA_bgJ`y~+ytHcJHDd`?UGO9zp{fR#0Keca
zoP~1Ssg2TxJMy6GLAPe+U@D_3K#~#JJNI_?oTYwb*C!r*C35l7?0}nU<R@gPW-+WH
z<(#*hpgJv}e$PtFtKU=R3Z15WqkCeN%?>eMSI&jgPXlaI7JvaWD{oxl4?eS&0D;h`
zv!%9P`PtGX8G|>sQK3#pewr!W=V=ar$|!XNYnu%h2az&p=-O1O8~N|p<E$*&V9bz{
zeAa0`e_kzJA3pW~g8D|KH%zLG9cOAFnaj@;VsYXgZN=cKPv79w%3;sqZS*5NR```E
z7rcXg@J|Bt>=$oo3(tLat-e!w*<jwdM;FX{H2u-wvv1BKyxA1-kd3Zct$1na)6|=E
z)yT$Yny{nA?0Ep<-Dt%QS43b@k6yc3*%H3LQAy+6qLs5|8ScpV9cqY6@aHo6<385F
zqA(*YlJErj*+qy00?>JPVgKAEG8(~Yllj_lEU(zuW^TMP`1+$YEVx~Ter}OO6R93Y
z|78D(q3bu+8lHm!uW{bj>w-G;53l8GS3Zw7(et>Vq564Pn_&0(D$`;H^IJyc#_ctP
zuAh!*u3C~&>`B&{Ib)<^zt+R~PS=lUZq)6SyOC66v2)LR4mG#cDhScCD`(>L%;vX0
zx&%KfDV_GqZ9P7dETP>V&Iww{2TOE=whomVUA4}rOnJ7^r>$kb2m)Ic7~X{v%=Ehr
zbo~xlnRYu>_N_{Sd)%Knfr)H>r{n_4QgC&h)&Y2{mN|LEE|3@Z{%^`K{nyXs(aY=F
zs)yFD*sf^}_e!5?NAq4}dNPjQG-HOID*}IvzmijVXsuG4g<h0=QVxxNG<_Rv33(WE
zF{ct#E501hh;oC_BmZE8AM93a*gJYN$^55o73a%wz}qagC<He|zXP6$G!uT%CTJ`+
z@^y&&yVbx0c8m4eTIXXWw}R&R<d%7_dA^ubEzZx{!D%+ob{INUS}={UM&c2y%EL(`
z_nY8dd5u?>u7WTx`tg4P`l<HbzDMgkuerS?o~sFVJQo|2!`5%s>zyqIm*q~wayKA3
z#oEM(C&u5T>2f{ew<x3yaC`kvTouiI53bFhwgi{uEglfsgWK*;A23L4+9t|v#RZJd
z1+7l%otTK)v!7Kwt)EP%IxI4_j0Aa-n}z%sFpv1=jzasf9l&NNbD~?$=;1YC-kINK
z*}K8YpChG#J;e9LhI7{rcGsYrgtd6TqG>x_F$p<d3H9;x4`t|g8z<9KTi@I{Rv%q4
zF_$x){c%ZFzOm;tX%~}6l?dX9gF##A5a+GRsG{j`$a;Ss)=<j`+oK$FVXMFt`Vy)(
z%Tya)7%-Y%N;`rgWrIaJkn!+La4+X7=6HQ$){c+x@f&l44=r?AogTB{vklFmTe%-9
zRlQXe3hq!YeACWrKp<ZBYv*gPB?C#uq=cOEoQ>FrvybzjNh(FQTh^rE*u&ko0|$L;
z$1UHU@kyh_cjbjA<!nfPI@<8fz`59jXpwNY=T2bEd!CoQgx~ybg%pk-m=>cB4r-oD
z`p241*K`t2n^H8bq1)Jtyl?pX+8^3jyT!U4TMvch_DxzG=_Zobz4N9+x+<bSJ_h{O
z;)*tlM_bF&rre*N^esBvsF(5jvl#?2SKxO^EOo@1aSzdvZuv1}j#P_2nV5>Vvzp(8
zKn#@)RV0zXJ=MK*?WBwP;_G>e-?mxI6x0sx&%SARsutufO`X%$Kd&~u=9@#Us0Oxx
zcEZ(LqU>>Ea8%(UNz|e(eKhSwMo`Z!R_dxuh8cbi^qA-68Rl-3<h?I_Fs%z#W*x{5
zKfG3|t>xsYveK%Z`lvzjS-UnT_I#!GnjLncF}W+QYiC#7Rjefc${c^dk>Z8rKi+5y
zsBiVju{s|ctWUk03@z)dQrkywhNi0~Mdd&9u`s#0a&7rr5m19`_dajlUYw`WEk;ms
z4By~$CH_-|2N#o_@yh7TWS<y%n}cFvwu9QqIhA{5r+$ib>C!e${mqB+z;OTDD;J_X
zO73YskTzjkG6T_4DQ;_5O6)`Aumb-W`()@yRL(RSY&rNillA6{NzukN^YPrpAJ7+*
zEQ8K74jW|SUFTF5v*3s$LH8r_xb^h>X$K&QcfV%yH09)T<!m(<WO9%t`Q<`M+4LKY
z6|1I~ZQ{{lv!5x^l^zoA{Z?i52h<aSm^Sp8^|NL4psViPBjM9i>O5J2J<h0Cfsbnx
zbS&2461$X4Xq(d=e1~>?VOriSOk&x`Ha@T&>BG4MSKPz!VY#O(lPT(36GJR2!Hs8n
zFqM6=k(UN~ZKffFa$!Z^U_=g^VKY58+&b=D^I3r(Y?lc$vqjJYVRko919CXJ_Caax
z+TEQqe0$F$&p$7u91TiHihQ(*Y0|^T1g<gj#wI!ziLZVy*a7fuX}8j#{^EpQi;sZY
zJqhEm_ErFUhtr5fL1`e}UX5iTrR)C5sjbE9Dx$ITYvbH{upY{g9(!=6V;z?>q0_By
zxTe4d)2Nh34bv~HO`O{#zAEo0tb*Eu4hD(oQ-o)sffsmBAeL4p&+lPh4Bp#YGIu!*
zHWF8qncZcBADAF(cbDgSo8DCXRx@8q^Uc1M#}zjhJJ_6~WHZgS<J6Xkxb*4K;iuz+
zcXLi3nAvp4-OjTi;9$^+x!<*g=NHG&)%o|{gjc>V&7IZ*D|b(punq>@Z$Uk``W+dX
z)AejeG7sDUnn`x;S|cCqk#-zm+y-kFF8aSjkQ?+-i=xGMM;P$*X<Vh<(z~5O2@r{6
z{f3QQar0#x>aWpHC7WLg)GPd^i9YcpG`V~{Wc-;7mLBhFRQ}TTd|dj6^<d`S2(#vK
zsfJ4)DpPY({E!oZa%jYP6gS5`<lolq{dWF}UyjO^Ifd89ZpNxqEvgYDk>u9)7lp`3
zl`r@h$J~X5W^2g6AvGovl+*gy4vtLlRfLNC2glSb?>Aa`<-0VGe6m&xy%<^b$IS+)
z|JwbXpE=2;g*7T`n9{oA+~Azz9bou1yz&G$-tt~8QZhE*svOQL(~hngWW{HkRHsp$
z)E~IJ&qQa>tf`3=i@=DdJ)%j2P#Bten#%pDm&t>nmkAN~H5DG&<SHIfP$1DOG28(A
zlbNxhI5Em-<QWh{kAWr4Ldmi=$Z1jVXff3lC;mN8F_}A^qpcEE)dzV;GiB6TDpJZ`
z=JE*i^NW<66r5197aTRbUz+POvOLlK8eDdfjGE0pi0GYoq-VEw5X_3)%M(uK9nwiy
zQ~|fSkfq`sTE9z>IaX*U|D;IrfCePs<|0($Jnb^)k_XUpi>a1DZZLHd!#yP%*t}K8
zurhW+VNY#-@YPtcLfW$c;E|U-m6{5qjem;#N~XnRZdb+WU&5rBP>$8UIYKg@^<Z&%
zJ>VvE=!If1)9f&J4a^+9Jl0!#H?Ac&!<CNJ%w5UJ+k|Q(WrC&Lyh2QQO7(c#N<mZk
zF}Rl*X1wjgTi4Aj$Jox_QPGFj*c@?l94r|}9_r{uRtfo|U3qlj!yQ}SIbFSvEYa(w
z9OIVplb>@=rlu4Mi9U}Sa;JM~D^T?c#k6Pja+m+e*TVk`S$Aob54Ox*#Entx)rJ$p
zb70S^J=d_hjr~QZ(1hsJQkwhozB*DwPYZYYZ5~!xC+Pm<)2*V`LsN=Bj)IHX@j4k-
zz6ciegO{tj+f>}>AT6K<qr2IrJcTe`Hk+;9{gFOsV|R>4>s@NjQyituwT|Rk7FCap
zYbOZKuj^-ly{Nv7wu<%{XHIe6jQe`(pJR<&)|EK}fpqfi^d_(JcppijZt96pdjwgs
z_|~<fe`!L`WsE+gMcZ$oa7<})t3vxJP%YjH6r{;ML=2WuAzI$cY|*kWf^WBGw_)2k
z4N1MdF{i7-2#dQ00xM(iRzufNabC3@4dF{Ayb52J=Fcu%%B9Hc;usObz{;sp#l*P&
z4L-g`JK8C>@w*i@{MP6i@H~grZQog;@gtiXK4enm7dd`?E$Lw@^VV9HOKMwja8h~_
z0JulsaAYH1U7_HpJ@9<l)UZlY(ad#6)x$|CJv$n`Dt7d>8QfIMf;laI$g3>R=9HI|
zy<Ajq2QRwoIyv&~hF(tL6${<Zc(LP4p4ZnX#+#%+zf_Whf7am=e9_6UnUuL3p-Iw{
z4laNXJF7UG6ykb*u{dSPB|sGX56Fm5xwrYucZ&!q^Vc#}oi*2-{6k6pJ(<l@Mjl=Z
z*TKl7KPBwS9s48*zL=_=<T9=?T@#X{LBEEY!+Rj}i<YJ77O#;7p488doVaUKPpa@O
z$vDPJ-<#0m=;PwxoTCCfK)KTL6dg1kEs`2^g1!J4ta7LqeUD{z<pTRT_NHO+*?g<2
zWR1n}KH@yYojPKf8h}$s)7=BS{KjUjCQNkWyzp&VjGlvMqd-rs`s~`Wfe0u{YU<i6
zXwP)7q~@+XLYZBl&6tF)DAc1gQC9*u#+KNL{o>;x$D)hkS{T=N1b-tvhu0fB(N~J*
zIyrdwy6>hv(xi!mB5+jEqV4^qWC8J*SBSZvZtvVLIs9cjzhFgc7Q|b+Fgio1@fEHo
zZ^yh2Lo5DC^>jU?;J<fk;-<6!$8(DX9I?^hKv6}<hWl2h3zV=<Y6|Jp%*%`XPh^Ty
zj>{nMV}9yzDG$8p5;&+?XoyMl^zn$4{#no@%H6nZKjWC}NDyJdL}vmAc@B%y9I;5}
z7{-1n${uc1(7*8{(~rK)4nBqr$9@u%bb?G)t2uKXxi~kv9>qTY&{{q-LHzjFPIG|S
zh5t)lczW?PJ2&O=It7U78g-XQZaKDBHu?x1ITNh}glDJKFFNFtLh#}UQv^SpWIwJp
zjqsF(v9>$F1W-4|>u0RJqG96thDMHe>baIIZK}N|1)8Tv4dqfX-295ZX^mMma`K@d
z{Mxa(vxG=y<mZMRBMBCk<<y~?oYRfB4N1$kv=z)?gwF@EZt6cz1;3$E-iw6InbPya
zXV-jWdlmb)<WbPP3y~;t-6e(gf66ov?hHJ+5tE}+Q9TMomTW)^7k0GiSydsxlAnUo
z7IeW;c{NT?DZlpIoN(;**I-Z_mJ}U)avFZ?s3Hrk9!_%$#h78ObBmvuE0CNNy&%uu
zC7Be2uF7uFxkvDoDCgi~5)?;l>l}Pl7}#Xh?U2)Yyc-L8gPn^T7e3iBvS4v4=<N*K
z(4#iMsYhXaF84HUoUi))XZczbt8KiS`l8JTt6k-z_+;I=a4U=ME<jM>Av$X;GMB8|
z8{K+prU-&nMXYIq&Mh`;`#BbFvWys6&A@CRP0K?T6D}h2nUF|U@}?Q=(=2TmHxgC4
z(8vThqkpZVz1o+t^My3nMZx&KB{Q9l5ctS?68B{I;-{@M!`QpdTTx+(5GyNVb6{or
zAuYlyD`%L2&Rg$y(bnMLGCwk9>Hdbz>ni>Mh$TV8g+c+SidXrHU1-99{<%fPK+fAv
zQ-`A0Q!lhxKxPt1EsV@pfX&ew?$1)=Z!VYjk&ZK3&v=SQT`*i#mG0=l_vBhTt0=Ww
zsOmvwuhc}p9{#d6H_FJ1lHf-Y-d`4nPtBPhOC9uZ<kTIJx}Q8pc@szalt6<qj&O7L
z4sTX?bVsdKp^h{UR$HE@q_4&1WK{Oqh~_hckbocjNCBM_&E%<tupKTAJOevAE{>9g
zFo(i!livM&wzK91fnaB-az#pzNNkj6q@o(Uaeh9|Wow0{$zg0#=}^V#e#us_WAy!%
zZr$Fy5ssd2`Lm2imJg>NC=D_|-CBeTzN32J(70^-#<4M!Q!Hgiba}LWp#j-PI^K*Z
z%*Xfg2VpMv^mUDx!h7fJW2j-GENhod?Ky_P11BW9FgNAE%$Xql^NVluppMygi>WS;
zLJDZXIk3u<Ea`}DqqUTnFFXsD7zZI(Bw>$bAUk3&@njIA7qrYo6-@Ju=%W=>J5Rdc
zfv(YN8_MtpAyBAF&?=m^3VxGXCNX%{=H#e$f_yS4VZPX9>y4=UhBsj)No7Mo_|bEz
z!RpcUGhO!dpf(Hq-)5=q?@_tpM)BqtZ{r;E_uIaFn)1WmI(1pTecF4UPd`+`y+4&l
zo@4wtH)h%<vCpExb?4(J8x_=Lddb*N+SK;t?c^B!rwh9e_r2XT<>tljzLFQL%^%<P
zoBg!>?asaR{9Z+~S+6Eewb}Ol{r)92#o*<O35nm9oT<C-Bbkx5LppVX&EdUbz&<7r
zG^m_pHj>z3Q*^L2GHtzA=f%p8yx|~;1kX2T6U5#di^oh)Ep=gQe(*iE0J4B-+m7&4
z51zVu@&N^=UA!Fhs5tBl_)buUX=mI{9ln3&(ceV(B{mBA#!nL`f{Yq*;DFYTdJ7?A
U3zowgD?pz2boFyt=akR{06+b3$N&HU

diff --git a/reference/plot-6.png b/reference/plot-6.png
index 343deffb2d4feb96b0e9941cbe05d126f7afef91..e47df84f59557d4892e16bc6f0cef8489cba4919 100644
GIT binary patch
literal 38387
zcmeFZcTkht7dDDmP*FIF;!$Zz?;4a|Y?RP@FG`i(d$Sxx5GkR=NK**CN$(&c(m_He
zG-)9~=p;Z$a(6tx-<`Q-=DYvgnQy-N-WigRyzhSZUVE))J?q&!iPY9qzIgt|c^Vp;
zi%^v(x->MW188VYTAw`w-a#jS*#b{ztksmCfM;+VK5hsHPv<;TOuT7mSR<%^Ct{bj
z?PzE?XrNCX>IbB*Plq=q+K@Z838_*F(n);Kh%1BcBgtHQ&e?sX7G>49*P|Zg*^OPR
zO0?5cGmYoc7y81@Enc8;r~}hJ(tzgixhlkJ_8~Ue$3i#NheBs}*V4r>EBhg`%Xcxo
zp%w&R3xc_r_kcqQv7YNspZ@p5|F!_Iz>8s$hHhj}U(W@&th-%N&ecNsh?_AAG&Fo;
zUKJK6z!@BmU%_^CJK<|E(WKDBFO4G@kG5?(8k!|j&1%8_+EC@<3CsVy&ij0Ji}v5w
z4^At-xb~m71^AdvPJ-7AewP1U#uY^)3T_ko3O1=KZKNv$y~uslBz7~gQW13xW~g>#
zj#6Etq(PItGm-C$$|qF|IQgIAD4fvu+)dAL3aLuL)~C6A6MdSHBCrCLBXtx#j0ZZ2
zgXJb5n_*%6`SnOq?!NfFN@TX<FeU(cO;x(Bek4h1bQT(<g=&CVChXbVush)9z`8);
zYSLCYRxYr6W~ft8`lU_pq@wcGhC88O-uB*g6T<4RHOC+)VKFeD2RXB0BD*&N%}}(^
z;0o>8^2DyOd!a0UMi{Wl&*XD9*JCa9>2+7`VyJbCneD5{$d7{gKYrtrtD2&ceij#5
zLs_lyfze2A&s9l9-G{GyEAPYips6IKS<7S}TbSKJezp3y&cc}8tN9Bau|AgeokS_0
zg#2ciA?|^2*_|uh#}9rF$6SUI+8xydqGY?B;dAmEK3y#aJTLw(j@6YJeTKka<1x;)
zjSc^neUTgX_9y=uH#}sM*LY05C8uYebp20X^`E{@3i`$qPxGh*>3|xim_@N)2^!$u
z4CgX{UC&QZG08O}$|#}mr*?adteu4xRf4$MZN4hopK>*EwoOV?VU_4URjhk)E9bIy
zpY5zhwfvhMhMnmp9mDz=e|~RW+Q5^Lm*%<0{xV1{-fuUP_dfKl38w4QHoDpUq%Ufj
zhi$e=9(K>)Ps0)%{`5z?^}b<H>+66M|F9t95!mFiC%VnbQf?<^7;STcRVq`9A@Gb+
zweqlOxm6y-+>n|)ON7{b;zF(y%#X{YB^#nAUh7JLxjYaZ3Y9<{UFi<4Bxs}yYt5b(
zS$b<5Hn)ZP&h2h&-~G}UdnTX_X2?&Dy}cy&&5XGet4{Ewp^1C@L<zt*P2!uEBC)Y>
zADFuKeP#PA8-p;@?o);GP!GyjS1%M%VyKGS!He0wvWk>8wV&xufC*vZCDEmc!)<nG
z8Q3RicS0Qt`3j;=I;~MS-wWoeHll*yaEE+SJ9<qq@Jz%ur{t+Z28;yZI3u+i3*Lw_
z`yO@vzXX+0Ql2}O3p)o9u;%^F8UuSDM>A;E6{(qrh_E4@jT0y($gUJTN&5`m1oU_Z
z)j^F)ng>$&4-Bl^`)R!^l>t#)(;`eye042&zRru6uiuCA_MCd)WvfIVLr`H))}PH5
zs=3sN$H^5Iu^^<p>3%}llTG*v8j|Fdc>?C|XYL!r>kTUKONp3^Qj~)XLBgdkS?1l_
zL)#*D=o%wi=AMd^K^N^_MQ_LC!)=va?8`TKOfys=^e5}92omRp+eI1chFhH(7R;eU
z^Bs#t80I##MR$G(*6TGvnUoA9v9tzjrIy23Tg?prV{$M6?bf=}PYe$$DP$2Mqgs&V
z#>1#fY=>-KT?<#|ECj`1BBNfhvd^GtEIWI9Dzk&xZY0^AfIh{bdbRW?A`Mz&#UgeQ
zb|Py2K^tCI6gt<q5icxrh;Fy{`Q!XOBxX8ITGHlquGO4wlCDLH#uF0xx}LA<h}N(x
za)qC4e7!JycY?;<q%o%_GnR@<G%qqv)C>mKs1$r!Zf^0K@He(kH<L)RrB&BF#CHYy
zq#C^-guuNTnNOO{!*Z*Y(+kaaLa?x~9JL^`J8#4f?UIxyEFadLVLLp&u%(K?HEgfy
zaWEZw(~l-CnRg8u)(>M<;d`RBNOr7E+IjQtvuaM8@dE=i?v1B6U>CQNN1UaHs6c{z
zDHU*n=0V_gbI(E+Hx72rR+d*RbJqw0-{AEU(c{QZ@2O_wBCW&|c%gdc)k{6S_Yu*D
zBC(}}&fVIc1+?rA%hHzd%c<O?j~iv8U8l~s_)Ylvr8Z(alMtLET@a|5>`qA%;qH!J
z&XJp}B5b*<SMFxv6MGTM()KzCwp1jRlF?@K#w&x4a4x)n6FRwBCOlDBqGzzW(A>Rq
zKdo4vfod%pfjGfMxp|c96<h+$G<dxxU77rZS*>A)lY(WyPAhE%ora0-@-5th%Sy2Y
zrZPX-k!HAsc=36xPk2)()-Ss-S-CEYsZ*hyv*nLN6>R=2j77WF^qyUIDG(wYv9c%N
z$3(D(JjRAGNUKiu_MJxL8%Qg~nsq8-db!}D+Kt7sa0TV98Ma*EuIM@8o-v;sq9hHC
z%E^`jTACL-^LFi4>wJdIAQi|bpR3mQR9O(m<k~VbL^&jMh?inntplryf7qZIMPhk_
z*)YB=Ubf3;@bz_`Hy^Ihm8!K!@Wd&^-wW&1pVcsExU#xX(*)zGby>T#+cLy>8AjxL
zY8KPWcn8fDdfPEtonz+$f}KtPJ15VwH*WMSwY)p4JVXOtLp4?AUvsBHs%$@jQ0to(
zIUR$6!*ck`45kx)-=7pil;eY3cI#b&GkO-5mSju3ss-n6&8S$kB-S*`n9sEKmd}fK
zA8AEZ?(;z{%uyP<<Nh(oG20vuk54dUV-%q=;Iw5=)R1$1<32#Kzp@)c?t-a_LsGhh
z{Cw(>+Ys+Lo~-xC<-4)CJr(xg{Mv-uv96XwB0mHQpJt`7nusV|ZIG*Gg+CxO9T%w3
zLI(Zye7_*CC6T;I16-kNTL;^)8>ZoupWK^bJ7k?j9z;H?z^7wLw3eo|l^yAmh!)jj
zpLF4&>>z#;+F?gs(OiYXO!~EkC<U(Ks02dhM~Xx+5|{eGVlvnT9ru8|^L<UyTtKW`
zBq_y+M%Kde#Gd!%&e^WgD6ZCl=9>fO3uSrX&`-$qn2#6KZY-DM7)MDN7S+LhWvQIl
zO*ZsqqEBY;^Kll%Bc~GO^m5&48?$s|4s>16tQ1?mzVOF0=Nwl5Mi`*enDK!Vw@6Cx
z%4dOAGZq|Tim&vVFH2F3H>x{7p<k)P&IQ$uY#PI557`2zmhX|exk-P=*4v>?>uM@;
zl$(#(4(C7QX!_|C+j61(7e;c+)wTPI(-xAZIoy5WLAd1W?Q4~|n}K78r{E#m%y$dt
z;|H8u+x3rLqi@?&@SQ^=Sz(&*i=a!p_tR9_0b6o>dJ3?eymw)7L|XME7Pj3RIKtPC
z>XuFtZ1wI=x=f9%mkdK_(lM=y0oQbfrSD}(zYY4eNGu(f+^3iI2e&4Gc`Ol%?WsAB
z;*e`xa+&L=18dZRrhjh>!0c-m>$GMb9%RW?_w9`PRd<ND2>S;f8+oNKRKwKo$eS!}
z-^ck=d*S&XccejFa)}gy_(b(AIJ2+?x7sL-seBR=6ZqBq<j@#F^V>>x=Yz)Qn58~?
zF9ubN3Hq|h$HIbM?kzO;KB3g9#BygGPX`_7?(J|^@ZYy(o~`Ftxc|NrP=Ox|(A=)x
z_|-*b#GA45cHzHfzb$!|V$65aQx1jT9kFqH=BcD3>`8csx9zK6_~Y4!&|<Dofg%3{
z1CSbAsM#1C+9#q7Y*$}<!usL*M)vv$xuZKA-iMp}UM-1rDLrI&d}qSCYofAD_wJR8
zFofWc@T@9=qyJJA%dRY9jt~erQNFU*B?N)TK-qjX_m{aR)ON(C{h5lj<e=?rMD`oG
z(}>H7=N|FyG&X+vM&99mW4;6LY)n62TzMMSpH#`OSr?`?xYctCowCyB8g(Y$#c~L-
z@n84)#=wE}MspD^IZMH2cD_Up*u7G6>kfV)!NK%omvcqm@Wf1(t&%H`UX6kDy@0Es
zyD+C05_(i(axcN>TUM&fe5IV;nZRNGqh)bgiP5}MglnP16fkEe8y`YvxlLNGdxgjD
zoZm`r|37mA{|y?NZv%>v>K=TH<xToLane#BAj>_y{`I0CLT$~AQJY+H$+#%4-z~7o
zF4>OA155j6gPK6co|J%4iR(SwzFXt+=Jwrh%f<O$-a~T>t9yj|cM1JW&g&9DU+TRD
zl}k{eR3p_E<w*aeL~VV-SAd-O;_p)+6MY+Ky$ONmmc}NywIBs;Uxja@l+Zj_YiJrb
z4*Df*NkfIFb4(qTd1Xg5sqO;Wm0?8vz+5*JTDX8T6BsISy<Qrxa2eOoWz4ZD^-j6R
zeAFtrIVm3wr%OEe{zd`nB(j^OCY!}&kzLLx(kxh!H>u@``T+O&(o57U=-zdfX8IRm
z`uqTj(g;cPm_M2xufGpJw=$A|7%PkFU20NLH5FvqN)dKUM+!re_g_|R9zkBBhwPM=
zN8{_J0^h60*_QR%4P^+D?MPP#&m;WCV2GQ$>WKFGPn|5A8Mdz=&bG7<=xt-5)vt1A
zO?}t6uwDob`}p4M*$OT>QOA<YjF*qHg@|sMWMQUZA2Z{1erRyg%sag8v?$ZMcf$JZ
z=aeKYeJ-?KSN9rJ!%k_uG;y!K_jZWi)4Mlco7s2my<~%lBwcSeH9!IIhXyH;MP!rn
z$9w|+16Y4N{(tz;o%P^P+4Lgg!`E2iyzKqmfM#$}*cq?#KUEsFfd@|iua(#Tu<ifn
z3EHg}lJ##ps?$1B?6XP1O3r(`+sVD#PVu;?IR{Z?-7@v?_x@;`?18t+MbbV!x`*4*
ziTSgK@;K2n{E-EGr&C_O#cMp-iP+K8$Q%<LI7Kc}TO5_**;HNIrf1@#hza7_JyA<4
z(q^dV&<vGHVXQJ#jQe7ozSzt18%iUAF0|OJv}a2u+}@4Vs-Rvw3BieeMV(GM@O<AS
zhj?mH(8E$%21{0*<o6buf$b6V>VN1#QGGD^%E?MYln1m5qVK1zdlO1f`Q*NY=5#FE
zH+GF}EH%Ljb~rLohs(9d27ShjU-GC;^0WOjJa)taC{_`EMe0^+i{cV$zKQDJxP|g9
znb+p*%G61kc*k&T<=AF@qB4G4s`Z(f0M6ZhsjlN$3dscCSzMteC#w3Hp{KZVS`KwD
zdC!h^|L@!UV>Sxmv8p$9tzZ5ML2!6Amd{q8=$KU2{DP%l9$n%2n!(PUcG*FpiYs&h
zroe?Qx{#Qrl2H$el~8BmJ4qb1ihl9WUvqsdw2gd%X|_j`j1wjAB4`y~u?3oxyiZ_J
zTs7*7AY~6(wyf#0DY9og?XA{FySHFQJ;v?BN4cd7?tRKQVM(mIQH`?X!15u)>1>tQ
zGWfAq1^WU;h+Rq7vu`BtSzO+~>7G5!nV;Kxc9dn!P*GP8Dgh1Rc^MjNi!1b}b)3G^
zeJWKHelExmCdCj4Gwq2^uRdAqmSyoeN>+JOt-u+V^{Mwz)fjaG!T$YNh{yx=hdS}+
z7xdn}V7jD`)ww%0oIT?gF4t`*^T+hjH15lP%_*83Ca7BlbEB_r|I*HhDJ-{$hj`Ui
zNtocb4}ay7CbIl_>s+*!D@2m5PR!hZyi}6;#d32zW<=Ls;52VbC4Lvtd*$Ragd=Su
zOSa0dGL6*A$b(;#V@vYuJ$;uTtt(%Vg%+q|)A$E2U)u2eqxdH|nX1(;qV6VvytOXw
z4zA%GZ$eMfK)B3yKT_){)?(smlj1iL#E2LvlVZgQsj0~nA>u*rj$`=iVxn@$q!mxJ
zzHKG;B1Dfa;81<z#FkkxF<j-7D{1;6>Mk46`T2ANS13zq`O*&&#hjp(b=We)8rc$|
z(^t06FXI-6$oxJ~-ZZYj<Ks2atYY6kOBovQN6ORaOHyGr&c0KqXx>k1Ub{}zTI_M8
z=oD%wYn>SauVqLwxsyF!&z^U%%akr6hO&RG-%MO=(vGqfnQqithD^BI(q1gv<q?m+
z-dCZFl2xSjatjh5dv4vhp6X)OnBKt2U0ha8*yXEGL2*FYSLRN?4qE#qTKW*t6Q`_V
zn%VhXyuwyVHP8aZMlx@>UT_e~ofNjJe2DnfUQZGF5PC21dbYdhL8XO#^GwPT+dXO3
zWyn%^j}WTTZ22;lEbS9tSOH82fj{(5-fQgLCBIg`gAAhGm$gJqLr5;MNMTrd((n{F
z>2Z|Mr~wqU4=HVxgOEi2O4y){E$=C4+FsQi5b%E6OVljub@oB_ZbOwJuF<3V%lnN}
z1p{yhsjGPN344Zdr0li9^L9${Zxd&nITFrulUk36%+PGd^)(fQP9bcsUfn8e`e=4d
zt|QFqq5yg2_l|9f@8&&r&-B}&*jbT7qprOVEQ+tD!V*~rPOOnzM9^w>w4G8>jS<xP
z?}6%ZYG$itZ8oB<I%vo82T#1B)q2X%(q})inH{a3=3z5zcPd&6(yCpv^9Uy5>F9kQ
z!QteRZe&NR{S5KO>k)&ao8Lrkk@!y;2F(*c_0jYADFZ#*yPs2JSA*43>tkY|3U@S*
zN*CotzgQTR(yWC>%^K-qbHfrhYgT$nwA4M>ITuMGMV_5QM)5s;X>OwJ$Qn_L&D)Nj
z)Y3J)*q^~UvF@I$foYHB8>Ye_t#d1T?vlttjBc1o^;n@uvE1s@*{N64+gxZRQ1r1A
zI=vt03Pyxjx<(Vsf2=;u&iEbAgVwv3n%{ZXGeu2Yr=<qJt21naF^dh&>WpPBb5b7p
zt;L4DY{0B{Pi0v-_iJzLg)&WT>y8n!?8a}KiEZ`j9fmEHp%K;Hkn=>qBxzny_}|mG
zKd?V#Y;6DJquyL^|Js$aUng2wOFyTvMmv4!<jb~?3c-?9BEs^UdL|8TWBnnV#k3I4
zfuB!sHIa|&@Q)<ff!D)qro)+&M1`1W`Vy`yh8PSl>|0C*WmkpfwTTB?D&*4G6u5c@
zZDhV~uxwpP*C94(*>jaPJ=eO3IK1Wlp=-#DXU<TI=bN3Vi%qN#L(i%9R9k^>DJly4
zSs^WHIi1_F5~|aYa^XuxkeB5JkdE7YL+(M)dO4l}t72KAEiI+$N?^Zpcl39%h5k`v
zp0r!yxgv4>#rr`yRi$5%R&~R>P-o(0#HFpI;vmB$ll&R-CGMcaAfLKth`_Rxm0yDa
zgV<E1)g-&%g^~6!x%-BT`>cuQHqe{O`O(%I)gQ{ctE@_`RGmsY9~mgC-EeS4m%KhX
z0p?{ajJL)FOBamn@_SJed%NSdMPX5>#r1vTFSk4TaI2@fPPO8E%xq)Slo1#~6T3@u
za%%BM(j#RC!+xbN_IIOBRg(nJeS=XUXNnSb8^2X2TsiEe0@;hiB*hm52_3s}s{@&a
zMGcAPMnX&<qYVt=+jS?~W!=JGt}W`8G~K{Yee8%eu>Hq$<fCiS)$76m@7v^Y57q<V
z5Zu#m(+udT7z1h7$k2@f{>#H21ueo>@ef9l*s!omiRZ-YL-YIfUr5ALfg-FyGaf^F
z(U`k0Ie3d=F6f?hsz;_nwZ+VS&;0hP^2oN16rDBM&9$W!q{^w@L}K>R>!N#O4T&;c
z*;6Y%8Imr7YxtlM?(`5v+G)$7)E}zZA7BXLa7m#akjCtvIIcT)xh-6dkj<~0W#h;C
zWxu&{SX2>Cvs>SezpFso=y%A@3geU-3>CyjT?xKhro(nf&#e(Vsl11yLl8tt14FXx
zq`#SI*sC&?4t&v!I==JUt}<yOjJ>DYARa3*m^Dl23JL2V4i<aqvz0!$L-RTM4jm}f
z`p<LA@j90F@_qAJW>x?38nWy3bF#SeTEmLkJzO1ew7a(l`-7p}Z?yI0R7DZdag>~e
zOFGOHg_AU^H%b$|w>rp~M)SJ7yx2<a$x9IWt<>Azj@T?VyL4_Q{UbxNh4qc7N%+vc
z^9b!x(y$h5CYho86n@HWR(i42VR}scbCE1UCldy!@XGL$@z$+ANS0O`gX4OjfQ?nl
zA&ktwd$Nz)%j)B5=$gE=wyT!GR}1^26S-blLrtu^0pgQuhVUorMvDhrL5HCQu0;ag
z25-^^96bwl5udYswx)6|>5H;aWGiFBEceHmwfivjr?S`ayYU;rJ@-dRv<Mp8O3%^I
z@Vc5T<7K)89>~D#QJ(94ZjxdSkgDzFh735w=9}w#kH5!e*C`P1f9zblom9T-v&DGw
z5HckCgLvV6*fiG;+Xb4=JG6~7G?K)WUX_pX()Z4OI#<T2m(^FZF%T8h%fQpP9KUI%
zNLxHe|M$cYi=^=7E3vHa^0>r~ct^qg*RKVLVk_H6AH>g<a0y52<;Z3K?D1kuuakPX
z3|l4GO<tFK<rb&RDt0R=>?m?dnTE_ASw8DE(b0ZxdDCgyN|>o}s~+dy=}sp)lVCEn
zdd-WG!8aMPOE_6ac{leXtWWN9=l92Dlcoe`8#YRIZ!Cj>t%!|CwHvW0CA5)jlN}pI
zUT2rvNFc;=`_(gAvuzfYyO)|-xFp%-^nDZ(W7R0T-SM=g*Skh7k|H^5l3%q=i+C|=
z8%SqJFeNA`%GtAL5Pb6jaQ<HZ__DiS$+a!{^o}6yNxXC`e(p1x@QB!vbmrW8n}&8g
z*3BAoACB|~N$Jq5C917jbvd-4Sv|vvU+fwo3?Z(rv*`V~XsKK1qu(c_KNrbxBSW;I
zC^)!)T>}3c6OfVLmFSAjQkgy1t<K~Pm=$?^G9qOq)M2&bG|hv{)WX0c?+nCBNg??h
zP4el|!;3iAs!X<uT$*tfhnAEgA}9E#<<5pmkrQ1c!;z%LcayPtfU7B*W-fYm=`{|;
z6pAp0rm~OCb5G;;)o8B|$Wl8cgA8sl-EPNI76O8BUcr&DPn_XOH1#;n_@}yGdQ&@K
z`QZXeUA^>8CiY>fG9Ge@@f=8;`5HN&t7pZ2x@DnU?z75gX}^ax-kIbQq1`MMAmVB^
z-|py<XSceZG&6%~Sr{JBtPxt?cBuq<FYJ2Yp%vn@lPIFu3>t6qG?pVoFtR>pQb}f3
zFg^b^=ie>SLA~<w88S$MQ_D@6PIxEFuv@E{sNYxFc(oOrAgA?7qF+l<`dnCQrQRZG
zJYQ=wVJ~yvAL8A|tY#{J)kF-i5hFNC+gl;rd}2;`IE)!8t<|rfJ`wirr~#%d9o!sT
zdTF&Q8Hd!j56bDV3p*8$ytddJV7o^QDYrX819?GR(xRj1gIs(l%B@f@W}qDCB7>@@
z$gkd&c@gB2N}5DxDbr2D4Q2WcZ)*9>p&XIZ`J<$u2v;|hqgtgxcM&QqSN&H&W=C_i
z385>xvRGK`+E-g8sgd|Y>-4NnzPww|bx~IA-q5HQ`w2;*NK)!TIb&)3cr{ZN*%JN)
zG58&#$HBrYR&b<?sB;rdK-laK=s2Ry2%0aYB<iBfVU#y&pKd@}(KzWnI;MtR`zVDS
z$kAc1!6GWObWF#metb^Lqy{hwhfa061kQ>)<Hrbg$5&C6)9HdfewX((061eQu*z0W
zjS}Q;aSL3T>f+<#K~=Lox@%;~0sZ_6Ws|X8b-VNw>CxE~>*~-O`-BNq4WDnmDXGe2
zt7onXS~D3DZsI*co&4?Wr`IKd7q<c-1C9>u>`6`BtL`<2StntdHDt>rz&gfD+d`xU
z!bMnF)*Zgwr{Saf<HujwAaKc;#NaqiCg~uTij&vbmE`Q{?uRYJmsa2Ae4UB8W8pfT
z5$}P!y{-el#d_m;pB`7|w!vkhdaiKwLl|2bIZWIB%8(r_3{$QUd<)r=c#xWbPc5^t
zQ<4fT?0n=}Jz9o<aHWN<-oN~{XnCvZq}`hD7WY>E*`DYh=>klN6~w_`dH3)uPfFvx
z%GO_ujYXN4uovb7x+yT|TCx(b&d%B#=l}VqW{r77%;!J(ZRz0}c?^<OGS=PbKOQQ~
zSFwUfoO)!LU#Sz-XxT*S7`*!5y#PBTL!R3G>f7E7=#Gy350*HBwHEi#u$aN>dOlYp
zvu6SW!+bkA4=l%V<=QUa*TNHR3|M8u8_^-?!N#03Th^4brpcVD-nPq@El-v!_JyPd
z)>sOk#1HIQ)gc`}cb1vpzRHc1FF+T?2Fb0yDOz^4G^i(Fo%Y4MBM9d`e}VEmBa^zv
z{d(v1V+wi_^EzfLHg2xX)dglv1FH79Gy5B!0y7bA@={M%9hK+Csz-!Q(vOc9rYlz{
zHx}!8>D@yPF{AhLTGZ@bL5X%silcril$TXaKuF;k=S-e@<+h)Aa9n}yv{%?ylUb9W
zxpFH1E5_gh+ZV^!N9$jHOk@qt?y1;NROatRR9h??Koj{Dmyt34E{)9l0#vHdPJU+l
zrmgw~vPJN+?1!|mF*O0##NJp1UEBIM#=cjtlPDc|9k_*sdmo+@(Dw>gZ|EJC318AH
zCW>7}1W!kj<jalwH>blB1Fc+zu<TJ3*7C^PoLb?o)0^->#{C=ZZdNBe9a2d$T}g=d
z=25-QX^tnLT0Q29WtR3%ALXEn?9Zkd<9F||J}xG1OYeE}PJ_Bm?_OeeD3aJU+BEd)
zHDF;habJUNX`^kJRAi=9Wl(lRb!VdC8u@m_J)2_JG>e_;cYS{?$qV)^vDrm%hw^wI
zmXqviULv`5(ALT$$0L)5LKQa}<xm(EglG&tENxXBJt=M!uT!T8;avHyQ?q8PWWLlL
z{kDqTovo_08&;BtXt*o1`(`L|tW32^7%!h@c)a1}YIYm*;>QT!%og^hbi}`n66zMK
z!u5~r4JYGz-w6i0eOHCF;&3`d@AIpNBmXH!atDgNf^y;rLQqCPrem}hr3!D0wX8Bq
zSF-!*F4onV#5-!yLg26c6MT%+r5O3hWdS{^yYvyR4vI-q#;ChGzI{npcMC4L{MT0K
z@QR%u^yZV;)UeNd)Ty(ptHN<BiZn5HN1Kvr)F0d}dYpUa9dD9&cR@qi=556p=K|H$
z;?BI|mv;}>7Z!$<O7X$`l{>83wrumpT_K}V2$!W<ekPZy@L~E+^^4D19DX#Hc1Vi~
zO!GqYDxVBQSQ;!ByuuXS!<fW|^K1^xKJQRWy40j?s)rcs3WQ{3XJOt5#|3JoTuZ7c
zX$;NVo5j#Zu{3;8bv2DNN6<K}J9yeD9_brLXmTfNPK?-=_(^FjOI6GUzk+m7s`I=y
zJttq<A(MWtb>E~;^1B`~>Spq8NZ4SFhx%ko$GV_&r?gc+oY!9ZTX010wXLshI2qQ)
zZ=XQC*Cy++5&g2&(qfVkC+~=p3L#l$ZIG-eP&sC{>|Oog5^THy_YYz%1hwPUxuo9g
zcE1;WT^63*(H7gG<;s(XQF~0KH0~;qgpu13$N76hE5{QITgw6{hEkhnv(^}UHm*&K
zkPs6~<b83?^zk={b#|E>b(Nf-JH401Ss(AkGP%`^OTEW=-K<|16Sp`C$JtF-me%{=
z^V)_W^w%cCc?BoLC+FovjU*S#&;d~$;x(A>?@8&XZo6PehOfWmqG;SXWN;PX#k|%6
z2Z9ju!4rQq`B3M+mc5$^vFwO}=xt5slx5W>e3@^^Edt%S{ygkdz<cX%e2`^h4x5x_
ze?~jLxMIML9jjxw=bAdD?1bUld2PRL@PKN{xWpCFrmh)l<;#k6{Zq^`T|O^r-l+fD
zzl9jVGIk0Tcs0zInuk^Q%7&!a(%K8!(f;k*2<eJ$4pOmyvchO6=WQqAUbQxCZf`qy
z0&#e|;pckR1N-Lbh%0sfOlaKh5SXa`LBGW;u(MQ`t@bGhlC_)MUFqG>dln-v?K2q-
zwjF%g><I~+aUA(lqaHWO@OSX(fP}g_@PNx5Jgi`yE6)9aW=DN__?8wi_&Uojy+RI>
zC8Chv)6#enisO<K6mxJ_S?);af;{}Paw)MjPg>GKS{RY9@Lf8fjEh&;mO0$iCaG?y
zU~K`y8IwiGP^l}!P8rt0yK|Z%hnIX1<QlDI(sH2UGINdcW&`Q(t6G_^(Ib}2bj7TO
zO*8O7lC&^>W#s3R40;KC(usjusx;Q`_@lhIxR=-_pt!7^!7HX)r*wJ$Vs~^p8?Tsj
z!;i_aa9jD(%-kPk;n9bHDr7h>O#n6ST3q04ttpBNAxPtAh8yRrcxT1VDw{d3#zWg^
zS)*l+e^w|Y=7ncM41B%_QAlR4Lu%EmGuf7C20mWiXMtUZDp=((rv07U?79>pLY3ud
z>@v%`XW_6XuiWf}rN6yj|C$T;AiiRp!?cAB6sO~&XwH4j4Um>bUp+zd<ZCBb%b=mL
zjg?D!5<Z~+0H4Mu=6}!ztG25Vpn36}Du#hX7%UIJr-N#W5@M!HRL-)?8Q3y?agiqO
z^q-HrGsbL})20$Z!+cC*oxLxcIYHC1$4d6`?Q#<(XKCi1)=iX9`}I6Y{nrKR?fzFh
z9;niSQ8Fm}_BfD)R+U>Y{yRw9>9-F!zRIDK@;a#-xLA^%piXf()qg+aSgSUZK=SdT
z0o(ZZK)$6?)<1{7_P^E#|9pOR`y2g#-oAR}|F*SD`$X0A!TF=9sVR(6v8jR7(YE)1
z90B$8j%1zh+US_{QlV7~8F%{hX{P4G<&;<YJtg}2r~~kE;P}^PAEr_2DdNS3cm7Ug
zxp0QpeYROnVx&AS{b+w}b|zmhH+?Yn>a}Z_#ib>UdcsU_id~`Ql0i?ha4F-N*9lVM
z3hXK3uH7}W@0WWKdXHfxjXT|%txr96&he(+kwou5#{X!Z!3st&)_CVV=Twey`Bh+0
z*sRPJxTxUe?VTaY#}`nam$%YfF(6Nj3f^q0nHViL+qK^Hi17{h%|gHQXBV5m$4DmL
z^sg=x<sz&yeyNkSo(oNbXjL^eZ}9i}x5xOl82NVudssCRiByeclM_*^I`)uEbxyjp
zrNYD~EPOFJIr)s9Fdf!;qI{_w3}SPBd!b{D{>`J8ICKrhGT`?cIGd!$=dJJbqQ}zc
zeL?s2F|F#g6X6q^irLxOC!puwJdzrvoKj-2(Jb{p>K@1#lS<@r1(vFDo34LNImReZ
za6?)OxO#6)|H7j$+Llmg*QFE*celM(I(8p+X`hw2<-U|zrWCk$Q5!wRn9u#-GcB0Y
z>#_kJ?9dzcorZgDcl|bJLVG+rSZhLBU!A^IYFsv7m7|fevEA~PPxLJV>(R^}b|`$d
z)T)J!xW7hd=~x>pZOPL}5pO6rzW-VM%GIk$|Fr#P8;sRRmkr!l>`K7c7i#iltO!O#
z1Yoq&q<!oC7JhyZe%(6P>|9c3zy9LHNqOhtyg^IoWMiN=d8*DkHV{`e_NmySp*qaP
zvcHT$G}Y!y<1^|i`PI%JkxW_#8x5PE?mMDvEy48r=a$DRkhfz+Rdi>YLq+j5ethnx
z)h>0!BqPg1o9TLAg^Q<XvkwmsgC}d;DXa7C?<w)P`Xps=>CKxA5y2O(Lu>=9*JwE^
z0-D&v=F=V*8<%Bvm)rH!tDxE#6=Z#m54PFwxzB`Xg@uJlDkvzJ16zl-P)M6C2x;F{
zvy5=^p>ZxmvO_w=Bj(M{+e<*x2sjI7lwPEEZXTFr1n-;yo-By-??wBe+?!j!+eDL)
zWD>Cj;dFSCj^WsPYp%7Oo>{0i0Q5;OMh-tt%HN=0vLb9u*Z6?BFa{n#BY8aKJ7ys~
z8?f*}j5KMLBw*mD_3_ScgIw&@`AC0;``*jFx1s03NF}CyhU)cKJETT`zws7I<c$W~
zOun^&I5fiGYG#|QC(7+G2fo4BZ1_>=;S&5!*Qni4j>ci3QK`JlUuP37gK<?ibzSwq
zU~3Hu4Jqd$+FoAbRJx}n9?tO>UlKAS?1(>~J*viiHa!InCzyk1J?`SoVELU~f<$s@
z*Lf{@QlqZYamb0ZW<@D*73G1gxK36&R#_9!;HrxGrJD+2Ax+~Uyy*e+Y1DI((1caV
zks9E#Efu>RA_dPdADWkzm*uUBO{)fr&1#zQ`MK!@Yn1~&-Fuwjx2f^XIkUY!TAYG8
zo1>GZloqm@pNlUwty*2EtE(Fr%hOr-62mHk4<StZ$Es#)YIdM;qtshl?{=8k3a5!X
zG>A&><3P*H6M^sFzh^wO+?spMD1H{;$W3vVfI__q*u8M_@hT?OyWg&Z#k+Tlif95x
zCC9c|N*~UU_e;ZFSCcymHOp{bLFq1Ccy<NmLAB~8%Yj({Dgs7@hPZet<|)UrVS<t-
zs+`BvsIyAk-PuVO<m3CO4LqoI%-mZeLfEXDrSg|ved!4^fzm#^o@4{;bOS+DOLqH5
z!};^))BAgRQuGTAi(AryH|pRbrj>c7kPao)QumGx&WSM@dXXbcByak`>kN!G{WX!}
zJ`!OzJg9tMWs$`R1j9q<`G__t&CSTjyyqBWSYqF<P|FNm_fAEXP=DDA{X4I~4qV0t
zKU{YLk}0ZSrQ{||UQ6Le2HSy3yTTjV2LDaXpl8tz>4D3(&;qlXjodeH-ehBkv((@s
z8A7I&E8it%Ln=rhMjE*gjUxpH=wtAjr7UQF)rMPG?Vi>C>Ih?{D;ht`9<ue2(6HIu
zun>J+Y{o-X!fUbfZF_tBi1TPs-3AB?GI<GZC8Fwg>r!qz6u=fo(rM`W8}(HD;m@1y
zEMo36jkE1NH+MZe#!4)z6b=^?CPRsMT(!sV@5<>xtN8?yz)<XQBmmeC!LrlLL_vQ3
zbCqt>M?aT(;QldTA>dr!*-*lCJr#WRs7*@Q_kL7_j`IIjba?dT*R2koncL3TN-1<`
zt8;_087;utR&Bn;@f<d}pi~*V?!>S^x#wDuNyYN|t;cUu<s4B+Mg_|8u1?veQKYOE
z-uw5SZ1!Y0%HoM=624w89E^-#mb5pdygt)J9N(C3P$2E}hz|G(R0I<?Fj^_%xKAG=
z=*8Wp#=Yi$L<+-2EP}c_*u!OSRX0AFT)>niA(@3u)!&7#gKYBrjzfRy8Qf&m8W_3O
zOxU#V7|H$j7j=TG;0I@gomEDm+La6dB#Tf~WK%F7L1nDg=23GvMh<6QW(vmMqb2Ts
z8>0;}%&awKy24?AK1VA<p7ZYuZxe(IZ>QNnBSWj(ch+PDA8($#PI3``?=8e}l?odi
zCzOpuf3b_maO2D#hON$CQ#hD=oxqJv)YCLca0~92T!`+2Rfds{lDn2&e|>KCf_{>4
zx6HNOWnh)w6NY}e?>uV9&CMMn_$2nG#KvW4{c1s>Wik>N)de`FT&6qlz4|H57XQr|
z%Q7_Zw`Oj?7QeUxy<AN_>!GoHJxqly`ttcVw4q0P*Eyg7!_(h80vB3lXea{X-7_z@
z?W%G`SBF}_cr;T3Uh8e$nudtQE0{XwABLF&C~__90K-jRXxy>%8C0Bxi(1V{@$&Kx
zgWRP<b%-Q729}jWkg+YtK;YJV|Lrli-N8=T1!(CXBH;U8ex|Gjk3(x|*k$Mjx%w5D
zi4z~ypJ8Abx9?8mC++O);HSKLgc(cB>vkBaP1V_S#PoDTU-wo9zTaXA!u<L*kkq-u
z;AvR$!jA!biAhDyR^^Z;vEk}esQv12zPnWR8oFlF#LuJVaRftYZ;Hg`5%BH(sTy~y
z0WAem<$!R_)Xq~Kok4<TpkC-jq_@l3NFkxiio63S8kU$JM*KOu!QZ{KW;TrY^X<i(
z&Fl;jC;g{=jVJ*fO5I_zO7_Dp;cuNX&{D-_OVS<L=3&4YSfzaq+?#^-lT}bD?#+P)
zAfKem0=yFeVM_cI@FD7hL41E1awjl7X`T2W@W5rMiGD(fDg~Vf@!BkD0s~}WPothF
zjjJ5;Q_=myGsIn0ow(E~WD*970zfpoV$^ap!fjUL*7qLXF$!SNRZ&r~M@?0=Ko&UC
z2b&sE%f^Fu7jKGJGMsr$1k_^n$c`iEiAH9Yv#P497dJmIFD5Qt=H-J&7!q9_t{SaL
zBojAplIE|qd>jGXi?Io{ytG6r?R|RZZ?}<xkrM1sZVMmui+0}AfpocZX$jnV_B=bv
zL~L%xE7+B@rx>Kjc<vm{(NZfb$I&7axEd<%*5i$v5^htkGBYz_)K<{dxPET6WZ7vD
z>UA)m4px72xaxFftUtu}J@1Hk!-#N7=q*+m|BVas<b#Ei+}QmwE6VQ5V3vZ@RPFW*
zXrjch*fcMkLS9n<;ol1K8%1Wbafs9J#!H_>MM~t7L-1IUiQYJ1RF{Cq%j1DL)9?7M
z4kI+N)gY-7d&LH(grG)Nq5E08n1S$o;8JK@dpecU1n;d3ve$h;sV&`)+bAQg7M8Nr
zg6T@W?=}_SPEFWfzkaQB9xFlTXr>({j^zA9yD_njJ~&j}V{rmhjxoar1!Y%5HHQ*o
zQf2(zVnI&9%mA9JV3Dtzoh#$FK0f5w9sm3)iAAlO9B5d+d2;D@MG`^8_9m6*3%mo_
zDwPkqzcx0TzR?^N6{Wh~0)Xq&@co3QU;???qQP&7`;TGSy?gHtU=|k}|CXanWWz0`
zCxt0gLy1Cf0ApvDq2FG(jxvEs`>jhhnN~S{v0c4Nb@oJ2XkcI<9cp?ESZAjrhBa92
z&fil6Fiv@RLPEkYcPbTD8~0FZ;k-~_GLvK#vms%z>Ep7ngWnOVuqzkNsLf}8!2e*<
zx(7pY#z<NZ$q}Y1zVr8S#>(!%3^4Y9s+J~d%8?SCQkrbDM3HM{9c<1XbKhRRq6W?^
zpaia(j;o`^4W*t7KR4gB{r;B7ug8MnS6382inYQ~F`OP<=_qDRO+=#22lMAjoA8q@
z)7>m`K|Wb16l$tFNsw{?=CBd&cJuOYLfJ*Y1Qp*i8-S=COM>~}CmaUe8AZ4dT#rMz
zgBT3-_4UgEb-zTV?(TrdlL`UpBF*w0g0N=Y20ZtVSr^=Ef4}v!Bz~pHoA;M-QTi*6
z1K9c21`KB!wAucwNnZT{2qistzSmN>V`(Rg+>NZ-T1o8g%hUAC$KJm_KUCw@Og%vN
zrASCH07~%N!x~c#AYv@)S=(D2C}V7T-q2rTn<%l62}Y_t#jj7mRZ+jbJZ8mYsdoSe
zaaKX;D6>|{Oo#ez&X9IUM8Y*oa5+U1i%bZMf|HNdN-4yP5>whhZjkNk>N*F?K<j>B
zy7ay$h%iiSmE%y308GEw^nS++cuKY!d^8DZ-}fnWF*yg235DgwMHY~}`z*dbefS|k
zQySZ_=d>29k7g;B-FxFB45$Vd)D+|j6F~1=Z7<%4{1khKLvgak4>y^`T^u{DwO96T
zNj%mD%n>`zqA|b|cjDxk<3Q>haf8B9GhGiCvNx#AtBL|dvYsPJ>Ve+xu`;>kk2Y-M
z)vjnLK4h3$AJqGAlK0d^oA&$~rEMGB7chbo-gz@k!Qs@@bd9^I7L4Nfx|sbHja11p
z()Ty?q5`0#ivg*vnwl`a*}*NUrNlRX2gGn6`lly#6CYG7m<4V=3jB8VPxv%8Hd;d`
z0aQ=IWt0aL4ULUIqEz0484xCciGG`yoQ#i7b9M!(<>b`P5(X1702oF%G=7i^cF+39
zyPqJH8pJ4&59~ngsUDo@RRmJsNFovdF>=3sfy$svE1wU(0a@3a075`Wg)6qn*g*Z4
z04S#!uUxy<k@it42}0`Kv~7>NstD6>3i9ocdN92{RkwQ<TA-8lGrS3Pm6_QMjs$VQ
zoMWool0CWnd}4z>jA|tvn4=os6#-D$1b)%xE3K@&H&)L&EMHT{m=&wI-dDWtvd6A4
zDFcWV+8;M*Fbr6IAj}7o=Fe~h+=G6qd#cPv`98G3q{6;ifrqQ7)W%s@ey?Q{0YW}l
z(4e5Q1&REz+u#tmLPabLOF>><9ukNEH)p~rB+P6eChexTm)9fM-nWyCshf#p57`db
zvDAR-ekeyuMscJ6m&QN)sLvg&rcAGTcM!LkewI17uNoBtX1cZpOvcgz0&NvL${D0t
z3&_<$^IuQg+)6Oo3BTJS27q=jc^_0DO_jB^2m9Z@e@B7B+)4mSI@%9z-#k)5B@3Hr
z#!;O%n<bT6ucx@xJAUT+0Ll#Z$e5y=V)nhPAS|rhHy6M*yFPX)FWX&Z_Ru{%XxGQQ
z+GXOyhno^JYYvF8CI1TR_NX(kVUS^v%p^eWC*7cv0F&b_v0+Ep+$=8aN>;3h1m`nd
zSMN#}{OJ}DH@>m9%;ZlB;bgV^4c;T;AFIE<v@LBm5oT`DC);IF4n}6IC`V&Vxmp=y
zd%!xH1BtkrV1F!XDF<X-`SrwVfU*t9&Udxtb7N)GU^XdGT~ANXejs!hk@{sekNZGU
z4`_RJn!f*lnpQlz^(>FXAr8}G1A@jMXQKHVM#B(ZmM#5XfP}C$3m{>@yfI+=4Zu_P
z)x>4$T%Z&NR576(W`E{F_7)I{UPJ)tW)p^_YzPg$7h_rY3rY{tywg}oljuYU$ol3L
zAb`b;N-ZsvQJFrgTY!48^CJwxvM^DCf>d*%fe-l`m6%UFJJ|ZI(GQ}*oywRY3JT$4
zY5p^HsLdU}jj8L$;6klLBp{u~ajRi&04l|R4NO}=c$CUmBx8B}wqxsk*EWI|<CU33
z&1*e=W-7i93k9y}=amvGHUc4aZ*pBZf7-Cf*fW{S0x(7BX&EiK{oxN{4*kPXR|O|k
zf@b*p05b~K=eq)mCD3isN540rahfSvb`_!r*`T~%0~|dcAX{}pqSrUEq&MHn2g8q_
zy8{g31!S9~0SzMUkL6N1Z8XRmnbRO0hA#sS!*G3j1Z2B?_vXW#WWY~FuAG-MVt#nC
zCAPS!b5aVEDz**W!L1CygdwQ$^9R8_9`7W<n=ev8tZqy-1^XAXE11rs<()?gs>CK_
z!_prclv;-7a-Dwtup`g{=v_ix8M{S3Gj!$q6Wzhrx|yiEE&^(S#uWaye8|DHpkYzo
z(wICb&MEsK9j5Hb)>CV~dWo5U$7`d-&T($6AY6QkxY7dVBh`kcjSAcvaMg~~3hYkU
z@j(x>i1|T27tr@`Rscnt=^z`;#0^83ewEXRFklSoSX3*O$d3MVj>)aJr$;ahh&#Fr
zPKv-8vSF3a+Rk(+B2dC&Ouos;!7Sx51&_H0&z8EA!q-O%jdXWYW<1(17P1Ac+`^5Q
zEgVp#i28*X8N-g8>vx`hvx8Bq;}PDB5U(<;eNAO)SIs9m#8(-Bqt`kCO_2_88qZ^(
zFln;O1y!!47KimHQMR+1jLbdTt%;k*$H!Yh%u-Gb#ZPEOvnzzn0nw<g958V@jrSfs
z!Zk&86f*H~Fn&Eha7aTUZJP?K>NTv}wmajKyI0+TiWhe)bt&JyEu4zgo#Eu&j2KP}
zJsr@g>2RQbD5!~NSYfn5{$LO>uib*fe7gB_LpDIf$oz?z?qT8so_~|XV=B3pEE27Y
z2pJT11{KfYj%fJd`{tw7LPJn1OM&9MBx`maAs6f?2$kM!+(l*h-&O=FLf=ocTZ1dm
za8f?G&NS9Va$RJX4{6S@3)$_HIQ^QA(TzCeJuuA$l?%p)+#Lx8kX0QHfc$S@zIQ&#
zi!Rgk_uUse<29~<d31(44Q9Tvp{UlVE3CN$uNBwCu*n8&QJ|=*F-xLPIVZiA{Nds}
zP*<8EKp~lBV3R#a2a_Dl0&u|rAT2%6Yzn+G<U>Uc_lC5>xuKvApy-7SOIcv6C)7;#
zPb-WRnRrvEt*snvFSv(-yzFjOX5Idts)nY5$iiJX^ZNJv{Cp}^4G9G@l_u3;>O+85
z#dv7oCw`>GGl?#-XkZ2YxzJ|wGrA6t&kcVdF=6{xzNz(nx=#SY88H%*9=wqQSlo0q
z2%T^SAndrkXBPIOd)>MP3e)o$KsQjb3OigXD+NliSy-i5nhkNQjWJ^fph?EBmT(Gp
zF3`IAsV)M__t&6~ERlNt>+>uQq{~{M2Zde(NRd45)uT82mQoK2*<!%FH|-nPB2yo0
ze7cw455$m=X8?%gfl`GY11WXJ1Qc8+VS%OTKsWS!{PqIYMl?A92;{v!0&5;pAf3q!
z><~jg3(5as4SyWsd?qywf)Q+%np9l;J|FSly#UMW=a_hgy;B+>=`a}V8;F1%HE2Bv
zkA@$b_53*fy49o9vdNM~A?&#Lw})iz!`El%KZ(26ca)Oc!Gv%A!=xF|Po_eodo&<0
zuk{H=y1HIZfXHAZ4{9^0mBWpu`iiO>cnb5=d_WD3Kr$QNR(mRKcNDKM3TRZ&!p>4p
zxFdx!ZWBv#?EQE*;*<<dQ4=Ic-@rS6uTvvsY66IE7x8$6n1iO{U}n3gRmgTb0w`$p
z-otr15sAM0BSs20(s<2|ohpRQLT}ZZoB2!_6zB)u`s?gJHq{sv6hQ5Mswzj-nPbar
zI>Pv%RR4Pgqzog{SPOZ?zdu!~2?&BiJ^ALrcW*0zTxgrw6br;QWiVl3;h+q6u<~d<
z4ew2tBaW=#fVjWj2w3pgN5GPn0K7MPfvb&vZe#)cih;A_3XIq^0Hb`TmhC^mL#t=Y
z%Lg1GAk~tAXFEl(WT@}CrjY7W?>zhd4Vu6+E$hEAMMjuDJ--B&)U^RcYXt!9XHxIu
z2&ZEY`Q>Z%^1<glJlZ{c?s#`#cJ*s)+dPZf4nekOfbg>X$Yr0%LazeHsOEr`m5{o%
zk_O8pB+!A58}$j>z_MwLppp~-9ZJ*5)l5TTXz@c|pS6+wCw2g)S?&f?fVmF8P!k=s
z+6+Ge4$PY^vqROCvh*gD_g4GC<ZEkde=W3Z3Q{}5<7AxL-d=p2`ic#kj5Q)Zzgws$
z$ijdb$3-;<F2(mwr2-#jz3(#qwc#cx?=7D_`yGDr<%5Gx&e&r-C~8viU?j7WK>R9-
zJ%AlMd+U>n_TH>`WpxikPKK#8WVUda#j@^AKLZ@LLjGta%UQH`?v(>*v<V_1;cum>
zshOvmB%qM$)y+>|0-#O#nyBTJXwp$omm#I=Nie2AO{V(u=cgU1Qr<y;0hCy-<AJOZ
zyb44gH|e#a3QI7KqcLF8d!nN510YgciU5DG0k&CX(b3Q;=<w@|yOjYThx8b5;k&ui
zn~m=mSv26gsdD@TSSdKD2eDA>B{;U(oVLDp`Ol&R6>WolMqih(@EtL*`E<__vYD3^
zGx;$kr9l+<qM%VpBMzCMX*vZ|@-pgZ?0>ww6f^XMMH9%XEf|xqCdR}ihr$eu@q>EW
z?F1S!khfam67k3JG#<6mKq!cyYSDekK;_feUG7U@`#_z}h87U6%WBC&b=9EgYcAbL
zjizGS$M+)j&((n-Q@sH)9*-uhrv_mAOe4@$D;|IOwG@eD2kSIlHPe3RlhkOyEj_#E
zCcw}k-VsD05n^3H5qSVKxes2Ze_i0)bOS4GLsUtM*ciB5;&5v7xA3%gUVvl=t!_2n
zUuTbn`cul^P}eN<?|?4OiotvU==-UOZ?2WLg!KaBqZ@&HiItPuAH&XEyx|kcWdWjC
z?_eIR#zOeh{%tBwgStML_w;BFTTuoG{w8%H3R~thQqbMC$SUdaG=mD5dO7M{t4=MT
zdbk6Clo?chauR=E*a%<w5>a0L*Ez5iR2J#YaFr2bOj91oe?xouW9A7O1}i{J28sa$
zJ@i(x^lZOsLtSvGn<xNZ)_I`VA;l~pne$vl&+X4wpcu3OXQ0%Be4v*RxO`nH87x#D
z{NpV&x7BvmGEqwDKfgZl?fco8dv~c@dH)>x+R<~02>OUNWz_;0F6iGk!Fnhi?aO%=
zqyPM1#edHI|MN*w=rs7omj2lq=#AU_9TB0YxtE~zrYKu>JlItq7jp|nMz*ar24o;_
za*+gIR(7a<62;a=kLDelh~&RUlBnz3G&FM&EztACkl;#nGwOdX`Ns+a`Dbg+ony<O
z?|EoZ;p_Zy?k*TpXTg+<5zW=_PoZs#17~M`!;aKUF>TZ@j)mMM9J)D8&gHonaW3#^
zS(PfxwD4g=lu4O&pQhwFPTm&?mp>eON~%00x)_0PNN_wm6%d~%Cy&ehkxK&CALOVm
znX~F}i=sz5YgLn8@h{OYF7g>0cVQ+IwO+npx1lcccQZKr*ZkTKF9EIj&++2?pI`p?
z^ZNhmn)9EN|F1tMLM6C=j{kX@)~7n?Y49T&`X;*Cx+*A3r~>r7LmAKo{v6#>w2gM6
z9QhxRyWAv0UHaI{9<C+<>?}+krvGVslDhK&9C>%nZY396sRfzqrkxs+sBwGD<qEs^
z03~Q``(I<;rE@nqr}F7D#bL95L8xI(n$jXYot7lT_26vbGy1<?x$HbP`4Jzl@!+%$
zi?;b+J~Z(!K0_GzUPWCfncMkGnf3H(<$s=eU;nH9;@$FpPMtmVPh4EwUn-Aamf_)3
zDOl&hX?=qXvl`7=%<gt=EK!aSGLS2e6tOVaJQ^ho-<0vF4L0z_?gfTx7FrrLiDyVq
zyUp?Nw^AT<e-W{uR!~vcU?AbN6Davb+V?2r$KJkJp~HQXrr_5dMlF(rm_J`r(9rrO
z6JAr4uHb$Aou@E>qU`JDt6|l=^nC`q#$FH>C{5wD@25QXMIToF*@+PS=7m4GIo$rZ
zU{!Hs<NoNlUQ=aId#|&W)DNmZ)4Ygh+UlR>wErn8|HD*N?tumM&8O$i1z<Ma#1_;T
z%0}(z^8U0WbnC?CG4A7acex*?6&a;#3}wvJbMJW3&Kw4h^&a#-F7kyVwrAO_h5xj%
zc&c%i@Ds6JSjahM;y~OxB8~j<<m5QeBXV9Snt!U|D0j8rxyUnjb+eGD8S8Hten-Wh
zdhxgCu4X<b)#mC~e~-xIbP)3T3q^{^Uym?65>^f6P>+UU>HPY@ga?FkBdmtQA^Q8-
zffC?n188Vm+-PS$Z1=CmYg8N5{#J6%H4-(pNs}A#*LP<x5~H5+w9;kptLKdFbmbA^
z|7h>Mqng^fzEQ9N77#cJNIQzaQA9wbLpX|ni1a2PO%$Y~5JC%qBg#RVM^L0jKx#-p
z>7m62N{a}g1rn4J2qm--APKoU;XKcG#`}(Y$Nl5G?{~kF;n3mUYp*iboWJ>-bFIC$
zZ|AA12}kB_urGBdj?Muyqprh*6zVp)G&{ZpQXyrT=Qz=Z27^P>6(uiLfSmH&m=hZj
z$O2_{Rl%=>S1xw+k;msfk1pFmEk0Im#Y}E&zvA{~PZh>mc;($GEJ8{@xL5TMiv98r
zm#HzP+gG=ACueiw*JaCSXX+&R(f&cs3yZ~allRm>cC8OzJ2m(Ttt_7^lVU${L6MuX
zHC{D#Ns{&Pj5tTvPnu$MK$MDli%w^LbwPF^%@)bGbL=y;xVUafb92-kbDfW~Cy2|a
zOR8lZGKQhXud(m{E;~8F3->3Q^|SxSb;wigH}=1n>yGc6-}Y5)O590l=I>{NC6{sx
zFta-C+J4$?4&bHJL-@ZGffEY=l>r1ONYGMkqZVef{|{`Y0SeMfvsPVB4soV9ctj9T
zDju&6n&T~C85OAB!x&Io_$x8}`&MS`3tS1(8jd;bO7>~+RLC()${e@v-eqoXN=Nua
zY~AM3TO6$uRdK$|xs#l+cP5hin*)0YCL_CtjH2iM<A`tUZNgEu-p7HE*uRAKeA|C*
z6~6dFara;9?I1y~+<0@fe?O+4Hib|<Iq~UG^E<SAKOhE-P?IA#$57+#`-`ZHPNBjW
zP2O<F6k<giWHK8f*(jCtz#L2mZgUZ>ncIaqfaGO^Z&1II=L|L8z2Cg-c+>L%-^vL-
z;F$(HZ+mB+GVp?2JCwP|Rd=fe?=Zpa(D3ap)EVUxfzI!MAk03eK1*Q#<;fo>as9^r
zL}2-@30D|3dVJV5^g(k~^YWi$1RyBHuYexz-rW)Xpitp$mnmSIW;V$JO(QbTOhVt&
zFD}|iZ}$}9fxZ-nZ1|LhrDZZV3h^VyrK5jf!83HMOQ<;J&&IEu-D>|$2mk*uBmc#{
zm>5q*1=<EUhRU!N7&9v~IdQAhmgvO1PnE=(ZK`_vQ8UN`xH_C24n+>YJyI{>n1=h&
zdPQ`c?AjuEh91E*u5imrO{?6kM^m0^8QTivfp%X<KCJV;=)!@kB9DWVj;$Y?(#!VD
zht#?Gtzr6FFr--CPU%z`2M63g0Wb_HB0G4e>O1PyL>htLZ`2VHfeuW}##RtQM|~9K
z;RmLZtGs<%UVjY};B-}p?Grr5XvFRPxV-EGZSD3GbpTYqAs<r>*|kYufnYaQSLN`k
zEs&DsBKCWrTraZ$P?u6wjft%DoDKI*f6-#+Z3c&rPM7#9Eahi4zq`mTRUOan3^r?3
zi>}3rJJCtex{e%OphRFC*>^G4BlUBKUSg159S#%{1FVqR9{S9wCM2k7Idy0`5tpXc
zqjVq;1Z|t=s+(OR;1m#3CnvrfqJJb8Ck1jawCW~+GCGK&(kVq8;RLB+krY0Y%j}(i
z&LNRwkH#7vf3gg`6x<pS?hhui?Fzf65z2?z_;o$~#cR7#+f1Y;?B~-dX74C*d|jZm
z&MwM{`qX!Ut1hN8(i%(vnhr3<2@qCm+vpoPu;Qj7$mi5Ny`4PiN+nh?M;195YzJ2W
z<)(Z@5ZxZ^iaSW?qj&Q54@OS+Y{A)8;s=7`7H9V3MwLsYpm!l!t0RUDDiC;c45^S!
zOu5`s#_tB~?uN3xc2Cxnj$KuLD$H|-p|AvlP1uwU6DMH;xL?^NmCf1S*8$ug8tqSg
zPoBaVBLp1eFFU5t7kxWJ`#KRMJ2zEmt_!qKJI0CBMXpkR6UBbcec+wpN5)dQlvUn9
z+waVcto3FDr3{74zs<A)-=&7|lyB#m1rj(u<${VrxJCyZ(QHeZz%D=n-f1_G)o>yF
z*51bH&~PFsn0-hi7ls$`AP+#+6Q$ba+D$uG>Fqy8x)H<n7Jw6#9G*VpO{pXd-Yw=R
zWo#^j8<h*<pDpBXGvvrDR*{1kTpj-%Y}6N@OO|q(K%hgwk>JJiRXS1TZ0gO$B@y<7
zKir}$rap2<yGmrwCscla#!d0THQ`ctDuE~q7zg*!Iv$E34nHQcobL>Uf@^$fJuNwQ
z-nL5F5laVg=LR^QoC|T;78AuHFAuCf#<e0KcA0ijUb8Ot&^M7DVB)-=5^CAOMa7ac
zTrN|OvRGQ8>Xf(baMjOj+GRcnf{<}y&yD$Anm$YrZ=wIXUSFxXyOagW7iD*Y3!x6w
zztgjoq|mpNCsuVdTq#>jKl=3^DSr9ElAD6cS_PE+Vvd+}&Cl`0V<T;W|Gew%)q%Iq
z)q#0MuRRUHdv|p54{{tT##;3JB(ouFHN`$Rs<UScq|i4J;T0XjX|!?-sCO|1*XH}V
zNduegMreD1#v|Oav}h%9ksR`I>+m{nc)Q2vCYl||yt7neG@XXTc_VnRJyA2iw{j}E
z@c0FN1~trsXt3yPaC;CKM6D+8$C;SfuYmkN=a$;TPnB^<L2R+IEvC6fNg%)*ivBuu
zOy80DJ9x_1f+~Wuuq7QG<j5KG9q6u0iju9qI@G@^OwDm(Zxq`8cQHDCq(49$V8M8J
zmgQ7(I#~VwiPL-f5!}%H)?%D52PA`!8ysxG`o60Q{F@W0$N#NvM*m6OPWcMB@&}bV
z5XY3;k2lgbBIsAVxiRE%WaLO;&WO8Pg{uuTray%XS4~t%``kwc<Gk%vAg0tta(&3s
z{q^lzRBr%`VrST1GzJyPz^Gv*8l||p=hG@`0N=lFyfX3!;L0m@aOA&|0`G9Qp?BKs
zdYYZ7@*&IjYP5@Xz5sV8S2WUMX$=(<3oV-oPyFNGGyJKEYz&ebzk7nR4KT)7VMIQo
zQ780g3O`GqUyC%Z5IGzLat41djN;yf3nKy_vgqK!bMi{)%%)~w8%6U^J<=eVC8_<E
z{3ShT+)R3<E@Z(^wQ0kJ5=eUCRyNNH<9gK)aiGOQE8g#5OU?kjH0^Xtp$R5x;&&?7
zYmz>-GB6|wz}t>-<`@MIGr%12ztj-EWuW~7<$VF2($vh5X3ac_g_xzbjhg8&zgoO9
zFwVh>^yyKa0K858)1@WhJ!*I>tMf3y6QLKf7gb=Afkub>3gkGdqc8$wHGtp$3zFxH
z{~eqvS;k@g9Aj+ud#%l>r1CqU#5bHPbR68=^6VziU&D^GT%pyG-r$%zZ*yr5hn=iu
zOZYU7RT;Q_V%EhP8bqzv+Tc7MJR-g(=jUAEU<Vs@;D;arU0dsRCgSLvo3{=d9715r
z^3_A4BdFu#He5hS8r>Gqtw`D-3sk<IJE!(NgP$g6dZ)sW+Q^;HWIbGINgB<ZG=bjP
z&e~Q&1Zw{i8k)U2g39w9mvp}{TyX1%VQkChr+?cUpt}NaG5yl9=B|Z&ebtzef16ps
zJ_0MqEBgH@RCBNwqi#QyqwUqdJUJYmmL*1U`UsBl`VV$L(zEqO?KXtbvsLuZ;zTXg
zn8j15D8NBUeyrWAMgpjY<?h80$1T}E=vAyBW@+s*|Jf^+HFG_*rB1s&(wFt%$P;l1
z2dG85qFCSvgqE8H?8*gxw;l%oUd|aB0=@#iTG#sZ27y=xa?I1o3mGPFoEUZ;xQlqA
zw`aD#z&HUAg;eZXfZ<ugK|0VytQM}QB8g{_<00J79j!C`cnst`(GY2w4vl~;d-pAq
z(<*|>mR(#f2XlxEAonjPS~NzSnM)h1dS;vBtsY7QL}^-U$W|j~`b_UhaZ@T=myUor
zjf#Hz_IGqqedYfKHP~U+-(kctWr|+7W4kcI2BC<P#fhB6bCj=obmS2vWYk)(e&-hW
z9`y&AF~7wi3nuv;V>dbC&!#-K)cW};2Z2jLepGMV0s_B8Vu;~#5X5d0r_goFM!~lF
z$hnQx_m6s_e5kKZR6)zMA)oz-E_y-L%j|k$`-K2bwpf1{780uk#Q!=Wj4pB`xrZEx
zdy7-*&4rnOyJGb?GbeL7EvJ%cUl)}(y!-80iocMXzUnS*f6sPb)@n`#3;mN(hf7oE
z`=cGYGd5L0lqkHyZooZvR&WJ0a~!27v7eyRn_Q)b$xY}@hB1Dvi+KldnTE5Ra4WW0
zJuNnqb)Vi7ZdwP?4_Vey-JQGQ3yt=Qh8y_!N}Bt;Qq)TodwmFay`pdi|8N%A*J!Bm
z-dd~v>ySnF^g0e@r~$}c+yj`1x43+*K}kfK9R!|gQGOAR%`Nio&=Iiq3tLDMm%iiX
zxB8B(wSTzfBZeCLAks8F$MRzO1g^m@=ys^gg~v4&FyHN%_mNk?!~DBY;LQw)lfVe1
z?u-9%kD9r3BwX5wS;g$xP9UEiSp5q}<tbBZKDG7p3fei(!XA#S=eJyFl+(W(;}h$I
z*_x;#cNhmQ0Gqf@PIQmE)c8S$mk2d=XvjWS^$tgzigBQR;Z#s9Q^6c0aeH@r!EY^T
zIz1<v1;{%=&G~W<5pL&g(OFeSuykp?(?_XOn$)Y=8Qwpr?dio3F;Htf+^!Bi`r`zy
zrUHA^RzUM;3r&!={AnqHmHEbP>s#s0c8EY|yV)yv&^ESV9@e(VofPP4FuoaAMR})y
zat;*-sI$kD5t|o}=ydWE_-v3h6AWfN)q>rIMry|xrng2qj9D{(_N*=(TI3`IL^-({
zq?B4nG*J$(z_<?nzEKAdy6i9$>T9w^g^f3=$%mS-gfCqi2v|JKAr<bzLMwsEGzX$y
zNc3&0soC;Mv@7+9*$2Fc249r)@Y%)IdUOf8HuA&9SRRfUBBR6Bnp=?xtS1RMozj;b
zBj``a@ma$ZUBGbr6;kzGpq}*lXm%m4mm`)6;c3Wv3u%cFor)YgEb5}$N8rW&cNMe^
zvP{U_UZh`8V9!o_^j&If`<gNsQ;vp$)5sTbk`<mMB&9$ha!jpuDf-UoJdTp*u$jsb
zd46E^1&)GTL$j<W?rQH+Un=}YaCT9Ka+<9i1<JH$S6)X(0vM@N7r7nEP{K9ykU7i(
zZ~=o-Eos?e?cig>txzw<+&{rhAYZKNUU%FP?+%)D3Foz+*cpJXM0NCRWdi`Z)U$>9
zCxBXHi%}c_y!Gyo|0mCC4fTp1JcYu8RCj;=6SiTm#E1`$4d(&ZJO9}#48Y-KpsP`U
z+WfP677z-&AqyfJXZ7v$HA5KL|9r^7R$n!QF-tDSoug+(J*0jBf;rcy2=Lc`w-~U0
zXeWzYfP<EHV&R~RD1yUMc^eu%^K^mW%-o9Ilh%dDfc)*3Dy43<Mt)u>wG;4r7x1ww
zm<B=6Evh)a+x^&+qv41!TcR5f4!$5~Gkco6B9|}XXm-N_;~bC%$mPSNCypdL{Yy{@
zhdgB{GigbGWAEXV*%K>$Xt{zt!Z!JYu;=PykDd9Cd7NH90YVWX$_|1uuS#{90efT1
z_YzMZ`@V5g_;6Tz3pWz=Z&bEBb!k!$soj8HjaB1-x@K&_=A>R>q%-})L<pj)D$pJX
zKp{2cWU`@ZRqJbDk(Q$z?k@oUMsb^fYPVIRAygFkoiDbhrMn`{R;hAX2fFkb$E;8|
zMBeNBxuYjmKo7ha$>bfo+w1vqKLT+%@7Qk$0Jv%P<o5fhM-b_|gqJ5e+w}%Ih4=gw
z4yfM(E(Uw>xv5ok>IFB&P<1Ln;2$J>LQR#>{B!)C>XfH_ZcZyVe)!lw?lOCN!tqZ-
zNZ4cx*9U?0o~@C8&N)k6wXOeY2nEn1@6Sy-*kmln0mj;ipP$TYeLLoW)TGU3t#;!Z
ztRYcU1yvH^^1lfOfV>)&nzS|`Z@IN07q!+_2Q0NtW<^v<{EL@YKWrbT?zmGo=eIV2
z@B=Aj4}Gm&{`D{+0r_fukZki$)r4%$6f9L*XpEwN$Rni70&g#s?-uSPl5^vB+(A-K
zdaWMz(ZqW@(I2?#*y3t?F5*DD9V#roSc6Nmbx=eL&IXmmLe$zUnIju-TgPyB!Ad#A
z^ok&<##x7Bx7nj|FCNIgpn2N}27(5^!heZ{4D}s^-X0?P;8+!G7(a*e%=RB;&%Lq*
zzM@_dR&-@y@YBEc0xWOzlwL$<9$PIRW<@waxBhUtz1(?dJ<&@Ig(9e1A`@=Hk(@YJ
z{nL<4+TwH+(X&6m|4-~Lm3RStP<`Zh6mT>y@T=zfS2ocJd-52prEkH0>TO5`2fBhs
z94##ANZe+@UWV2^z<)2js%*XB_@4gSxBEP4*M)v{n#aC*cy*Os9oI-2^*{@&@kvuN
zUSwr=LL0=%rgQPQCvk%A|A(Zd8YLD&&t2eX*#%_8p%(d`WJu5I6sOt?#lQs?*o#36
zVE`xl0zXq9yo7JQHS;=^=;cb!(~6d0UyUuU&yS@|@H8%eA#dVV6<k>~a@z3f1NJ>G
z%|C&@xebtm^22<<EMJoL-^Um8s8s2NE0yKD0yK6b7sTl(#@ZQsn4nsr$fF5y0e{}$
z9F-oc<z#`0`Z4Lksjk{<ee7>z*Ao8!AQcPb%eeW;Q5DF6RfNbWCwE=F%^R-KKt%nU
zy-n&@?`0a;nQk3esnmzM8g7OUF8>5cKZ>`Gtv!27A*Evty&np;dSYDhm;PQ2dGqht
zv|kC#&BJ~6YnfG7owA_K{LLOs*?Ff-2aTY2W*@sN9O`#ohZ)oBA&t}(An%ld2=ae*
zf(Xe5IqUUZ8nM@VqwUe3;$Ka(6}gB8QVzF-I_+3Z+7E$iuk~;`2&`hGz{oFb*4Rv*
z!3o&4J2Bm<invaZ(ZN&9NNRkXU%pzf-bivjut&Au>;k5ACk++{biW6Swbe(@$(@{3
z#L0+E9PmE`q=uU7cYes7#)@Yj$dN|GR7CpJ`8@#o6r|QvfFI)aohU+kP91LaXf;Qo
zKdyF$&L(y$0udv=6%xcE6?XgWv;)**<anvQB&-t;88owS3{?tgSRnhM*O;W2aGgn(
zARrM~xp`F#I&yboI||WhD}Bq|4YArc@5x(LmT%{xW~n!_Ar;YWvr}FZ*gU5`yS$?p
zh5iiR{kWG!4oxzSvC)8j8&+gTkvpCun?YD+xnTo$&QqwR#!w%*6QPO#=xQ{Pc=t#`
z(a8}G>MCE|NBF#D3C@&Lh(P26>8+hHL$w2JZA(szg**sz&?f?sa=V>I)o$C)gd7CJ
zxu^LXH{~a^5P<tyAk8pMR>f(|taI#0BA)9($cPQo3ydI7;P`NO1Tx8={hbo7k?{j9
zIo+Re`w^_~(@*@_m$-Op1Nx7x+}pH=*|s9lls}?4jz?XEn=%VFOn<iL7ux@=HU9#R
z{~^l||0%=qU)l@yGG6kBkO~oXAa`4D0S{99T`~6Kgd@%wkuJhc-Y$^)aRft+eO%&`
z<+yGq6dVh2P%4Xw08%Ux{4eK^@Gd~^fX6Xv4X~MWT&5ImoT3PjMTrgp+kz(w#kpgT
zt(1|s*ty&^bIcKCUT!7CDzPHd*7;BwbsaZ=IKoqQu=<z$@SSqzxL#1hoVxm_CBjPD
z(un7ei(K8LJ}lHop12?d(CuXuV=`gq8@4UFKY&ZZ{y<CRP#qAvs#!|L7QbcwsVG?k
z)~fF%et)^x!-ct|eTTl8s!9IB&f6OM(>imx44hNpCpmh+Z}7kIg#T;Rk+b^Mo0=o$
zR#VMke6f#f{(yK+6z}8#Oe=`m2H17_kmb}m4!4(3tp*k<#7RxKgbE5G@Dg-s8E0By
zilE%KbYoi_dnrkyL%70C^UL-U&ac9O6vFY!mCuzQ?50-4M9pp$k_*i2R|)TSmdR`L
zO%$YS4wmDbs}KM2X`5cMIU&0AU5>u8YnX0HQ^iT!HlPT)dFxAN_Uk+2>?XK)>Hw?0
z5EqmqrjJDX>W83^Qg+Nc)J5_tus&mg%a71#JWMOkA6G6|XO?0+k6Lo7=d66Rd3iBl
zKzJVn4y$YadTg`}fo|K`oo_OXG^a}LAJ+ApjAXY^9m<Avc2XDdiq#^AaE24^S`Zcx
z(t&SJQ$}$*6-Z!_;5PLbjt5X%_5-G7fMaPM)`SI7d&r;UoG<Gl(I_BQnshiqsUjxi
zwG+hupG(CWYuW9lK;G9OqL&~SMQD2v$*3gD?%(8qpTr@caauvvYNB6bpape=oHsB<
za$xDf_m;(P+|q<m^2CUdDZ|SZQucYOdNCd!7awuPxc6v&)~epn111%K!ZiK?PVOVP
z@i>r`pnG))xOk`dRaBLOpmR&?j&mg>1tbN!^8tri4~Mo)9VbT@puMTN2Fo1pta*Vq
zoD>v9&5rYhqQ3SHah~`WT-yI{Y(0B$xk;8fwtgfoN5GQfo33NJ$qakyG~oEPg7w(4
zx~09()qbiMCx&DD@RG0R2}%D=VY+==V*XyebpVnL?D8*P{+%5EuU!HEAM1Mlg+%}E
z1^(m&S3r3xDiv98-;7YQ8@7uQ*<%ycUjcL>yd;Bg9}%7Q5dAOX0=BH?NIz=6FLu0{
zGYLipnC7=qcCGKwxbq~q8k9jJ|0HMO;9mEX*b;uG7p~Fuk_<s;giQw1D#+jG*LQR6
zTTzh#pdj}B-~afKvi6+(RkbtI*4qI{Di2Pt2VVt~H@5$rU+}iyOCYCJ#XMM+<TRI)
z53C^uI_kk@w;ltiwwp#CCug@scRy|&7}mFCu7&Pe^yISo$@S|#9JV2P1lXJdW%X>?
z;gTvQ{3_p;M*2{nW)0^*{1eJ?N;2}3dF{qM$!^hq*11N;qS>9o2#s+TTqnFbG9~UH
zyZJ34gtq2L*N=>=lU@U)9DYkbgO)WJ_<S9_F|<FRX9Cr#06FZ~N^f0q!(Vb&%E8?m
zrraI|x3gAFBfAYV1;%@4Ye>gY&@XPS?MTxVIdpU$r9hua>)vTLZC4J~$QhtU4bjXa
zKhc<W_y)<{phAVVYEPHpR%*~iaz2sK5!XDLd$E0O2l(vTk_9U#6|}bEMh~8`TcAVc
zlBBiUX`rcy{g4_h7s&iQw}|gC(Oa3WI6-4cHK1<nvR{?UFxUaM_@OvLzy&tH6BE`r
zsS(qF>}&~}3{;2f4OdZsl{x*8uWKy{7wO|@RPzeWb)da{8OyWmwLV(o2_*_FZ82V$
zu1k$Q*glaI7<Wt#keVd!!NBSezvBKZX89D_psdE;&0zvOneBF}k)WIFkp8<@YeCQT
zyoQb@NYi8m6<VZ!hg5ZsK!Pli*LA{r-{zTlBPj)RD1%%aC4k&)?@vIqx{WtQb&EhQ
z;$TH-8rwTfr$}}U+gqimY)_q>@4iF>>GI9n;NCtNQ1lOLsABUQ^ure+SVZ5>w4nnQ
zsL-d5QgEcg1=zI_gRc{TdgU|y)!pXw33FTSeF&*wCW)WrHjAnrqkVgfqeg`->-v5r
z7!2FPZ_kXcR~Roh{#?hANW=ZJH9(0{1cJ6a1}>6~5?HDP)ps?KaAz@#>j>r=<kqdF
zsJRdvX>)lrB%OU91p)$$5zz#eb>`<N1L~{!t$bX&<W;09LcqK;s9Y+7w{Ga?pJaZs
zedN=N0aWhM!if?nH}hTN>#rKZhzFtI9f_#X<hENbwNJJiDpKJ#fDUyca2I<u-=Uf8
zTPPH$?#XtkoqTV3W-mD%xhoQfuh8jxo7p>OiUeIQ)2`EwFmLs@hx@Lv>Tn}t(|WZx
zi6U;qX(AbiHj&v`K*Zf1oc7!GJ<4od6CFRUi`=xpm<O%}^<QdwgDb6b&TdI~>BBvA
z?EL^BWqGyj{QFtAosgRv#?BRZwQWMA<D$=+l+)4~^i&SRzy9XMpf%9GLn~0Tw);!S
z-8w4kQFH4~X_k|P<Qq=@lZ$_DP7anIVxSyl4koD$HQG?~vrg$$c=G(6h%LCcV^eDw
z8B9$*QRQ-r=|ROV;pGFp)AhTxfE{dLBAL%@_qO-Y$BG7Q)n2shrB^tHYqM)yh*(5P
zHT0)&@W4_76@&hoqBtb9xLoEsHhqX=^;|C$Po2CMl@0|<Tjq^U^RG1ozH_61&6daL
z{bUB2Qi9bv`TZQ*)c@D{F<46zQMDKBpp&Z<;0^8Wg@=auKllG4bLKZ*qvN)pynita
zK5*b*df6kCXlS%q@>7*xt;8M`q5hhAeMZRrTins3PjBqoe<joCfEr=$Pov{6t{p$n
zbY<mdmVOv*W4T1S8L_!+Or_P>S2@!*fH!GkTuRBq^u;k*ljmoFKfM{nJ{rIKmQgV>
zaq?XB{Rv!YNd(w0D>a|c`A4IR@93EC16e+p`2Mh?EZ{`2@`})8Ic6DiYO)kV#mHhl
zW2z7uQFm^9;&B%XKNNf+_;|H=^<TlsE{Ai6cUTvk_l51-JpF0b1e1@1BM${0Kpnhz
zpzSEbt7k_;{u3#9(g(>3;%eiHKHS)}%>Rr1B~Wo{w@J5T(f7{j%NZl3YVqr9yO=m6
z8X_a%(0+!I?_#cL!3wF@JLmZwzU_rci(4v!FC8AYt|2_X@o7#VPPOy?M~7JNRI8Zh
zau1Fw3dRhla^)Y<J+!5`vVZdY<fTajrWFS%DjQevbuxF^5%s<5>T=1*>`Qq8qb`E5
z?)#f?QOWe+^TGSZTnaL-0@6io!1)mxbJWf{T1oP_%D$1LXTK&_&|)U9dC>)K%l_Pd
zTCB<ET5C?M%z|2bW6^b%<Opxeon*AYp=B{E63?rpsZ!hM8<Lp=&vcAr)4uwgdu!n)
zUDQ`4)E0}aFoDfV&)ZP?)D|uvuO+*x8RaQp)J8Yu+P`;xbB*sqSb^QFf;66XNfwpN
z49cbzluYA_?+j+-p6YVV$$92ruq&!|uJq*_qnu)XLVz#DOsvUs<Nnn@w9Nf?FMN#2
zu>M)t4!fGSx?n+GzIJ8m?84Hpju0725T)jQT$C#+{yFgG?qx{wjnC29Hx>sp-JaRU
z>clQxTDCDyXY{~DaSz;T$KUW121ONpc_@vY-?}@?YR*Zvoa2a&Eb43R>T<@&tgF0W
zysqh7gxYkPRr*8VjIr8}v4}XDP@v(c<jB4)^%;v1o@@BV>Tl`~zepBs6-EhoWPDDI
zckX@}3yydG<L8b;tR$IoL$GP8MmE^HcG)7%AP&j5>KKTFoS#@7ZQVuv@<4ON@q-AH
z$qS!y(uUI_ul@`@GC{8yex}_}&^$GbN1}&o$rD*Tsjqd;Py+ASoB=6Mgg6H_dD@<z
z9k9Iv2N`Q(bwx%V2Qz9H@X5jSt*?62UUHqkHGKP&cF`vS@Az??+Ja<@?44gAE6dIm
zKZLExqS}q6i~!6kat99%;?q5;$*n0f1)5Rs4O!5g9%Rd|MH`Zw{nExD%P%B-&G(CR
zk=)GS^V(;qQU)KLabKM0<d~6(-JRO}<)nFnK^KZU=9d?G=!d4IMP!v<V5fJ_RpXw$
zTXoCOcSB~WdP+_-VDt3eESgv~QI0>aiy?@;plh9O%5j+b<o(Jd7hfXlkbDEDapcCL
z4W$fzr9Ex^bs+F53Q>*Y+WfQSk2G+aDo?AtKcZ-6m&~Jwgp5+_x?N4@!hO*~q=E=+
zxhGJ~Uu)!BzR4%mN}sHvdXru`7%&;dU$yGas@<3u-h5QJ6XXd}dIogZuhzWlEVC-9
zs~ve&ytJIGvhn$T>&K4qz81)@x=DR)<0`Lve9<HxarJliPMj_X%GCSS*|bzf7F2Xu
zPpnt4=sC6b4<Y(55No~5HhBZqYM^H0g*s!H+S^AW-#u&plx%q>1s5)QNIU-Uqv2oc
zx`Xk#Xb0culjo|IUkDW$_LZMr8f*Cyp*Gm<mYr{dsFu53dG?@E(n}%_BhcwsR<%yi
zOa|07@g*$3NwMa<`Ad}9Z>;vh8SlG+-EUk(6a}*NDJt>uJNp>%%GQC;h}@-yESLwi
zq&Gfe>jD}u`#U|RivuP1x0i2%%}rlyT@cRiIJT0B5qMXBfAjJx?Mx|9j+>IY%esgT
zc~jCIaa2vE)I0@yhJ-t(;xwIm>N_C3TnB@iHIZI1o$z9>IWsag%if@5(gCC4+}+HT
zCT<<3wo)?3%FOf~Om>v2iO&62nr!~+UXF1$OZRn;P0`G{5Sj6?mht_q^JQo2pEYw2
zJIfMPu&oyKefWl#EWt(vgS-J-SrChF<k8B^*5IOIww@WI^~*U~P}-aIsQoMR)+t$5
zO{oPXvxDWUj?*pLvPMa{Hl?mPB3e~}PP>I#o;+29N9p?n{1jPwD@o_-@11fr3LjI7
z=P{5tsQapK;FbnY3|u*j>FKN=rH~|Cx==I&73yl&bRsB)ILj?L_OBh>-?b>F2-7R*
zgKt#obXzbbWo1E07XghIU6-KO-fV<Y4@~+Y;mnhoB}UC&pBq<44{o{pZ3kbK$VPRk
zY-oS@jf9U)iMP7r&8>7sx3a{<`lqlP5ys1ScRR$(8WrMa6GDFQv!*Npd?Wd!Vkzoj
zfNO0F`s;SmS)bVFA>>?f9CNV;Y+;=zx^$zl43!){!Pj!uCQ2UZ8%+>G(v(8eEa#}V
z(NlFk*GC;2w1O4#m?L4oHzkP$Emz5+J!|hRy)-xWjW+UGi}q-`V_VVYXbFb9UJ3sY
z#>iOO0w3$u%<o9Sp8pWgt`IMuO!NII(K7YvxBN$t5kHw=iS=QtZx+7MySaV4aKg^$
zsSlK~Ox}jWL?h9A+xFUdugspUkB?>KYTE-sdFIe*?K!xStKC`GG!Lv%{>!S$g~J%N
z_>_2j@vPm1XaIL~#;yqd#AI`PM8T{bZp+_TG_l{6c4+drwoLBJSjo7C0h8aS8j<D1
zjYQ`&JyAo1gsCSPt?K7#Bd2HXG#D=|TDE4{sG0*q^1YO;Y9vd}ISAgI4?hG)=yxo_
z-kVy<f~tI8w7%Gt<S|>Al+-XPmuy)YHcqOIeAtnQ1r)|X5M`#Jq6;cjB}T|h>ousK
zD-A>l!%IlGfT>Sq^IG6kzmS1-^7Cy|n-BoUbFJkUS)#b8haHin1?I`FMl@mPgjUc&
z|Cgm-h3(`)oqwIo*%bM>#ab6d2z>Kld5eOcE;L(>P6#ce!MAkM@-6_NlTjj9q~&Q_
z2#DVs{sel(>2z{(gk4{U`FlWP63si`5AbC8I05cOMf-5LQnh|T(LJzV9u8x`D}x9u
zpx=soK+K-~sJW`8bUy0Lk2r^O!wgg7L7jz%`OY~Rz=zcU!<+`X-%<AUKXqS7eo+>!
z^k?(k3W!rh$K0|0NZN6s4N1NR^hIuGZl3+b)Gn89MoLdv)X~<XjhR18zCMUg*#AjC
zr$Mt7ZjM*Fv$0<VmDE+5dbv^2$$QB7)W#_d0OM4|dL@g-0gTI~*IpAvqN6NY72>Td
z*YA%5xZ&`9-d*&KiDXN0jMC7)OhYj7Lo^6-cYG`N#ET%JcJwh1)L<`f=ZMn>iOkje
zpHEEAF?!*Dj*|)i-(jf-N_y^KKowQIYVJZEYq=f)US<?0vJu)kQFya0RNj6abt5?}
zb*M=o{L`~{-Ix<r+rxH&^P$t4Plg1A`b_7~+Gq$rf9~RZZ!@tz1d_68J|?tsT04Lx
z;gh%{+pkTR50p2btgrY!a<1$Y+$uXGc{bIm{FTMP*-f7ybWmJgY136i2WifJyP20X
ze<l0dd!0nj`=)3eH)|a+uPeB%mb7KR0mGw|k=<b1O`}=AUxE@n%S^Pud0Q85xaLiX
z`aU$Duprk(Sgny`$g@fSH;^swzmZ#w1r|?9&d2c;pMHxOd9NeXrGNfB%=EFk`M{ft
zJM!1?P46bd9y%G)=8BJ8mwpS5tR?*5n`wBhBbb+<^cnn9^@h#!{&AJ_V(UIx)1W+w
z08;Pc`oEk38!{+WT{|e#)fdG>Ih$4xZax+f!E2kh^=aV98wu&w;dcS&Yayp@NE(=Z
zEnn#H7F;8n<R{FkluF6XjJ5DaP?f=JnH;(o-efW2Y)lQfvq=iQVI^xMVz?mj$})zK
zKX@u<(2zyGuS2=en0MPA_%v(ulT{(=mg#Ca-;A{Q3)b!}#k^GXs#r1K*Za$&FH*NJ
z-;9LwC)a~x-Y-pC%Y(3qL-=c?`EjPJ!v3x{xq+CB%k!Rd$o_g)mtdWy!4&N2el$%M
zB@Az;Nq9OB0K~)hhIyV0$P9~+he~BP<VI#>aLm$*Jgo%qR9T<X(;$y_?Fx#47=QqF
zcQ%Ue=art#pqO17P9ye|XMHkc35Ir(9z3p3@Ae8MN`=c!v1VXZ_nG3tT`V8l-B!;)
zzwZwL%Z#uv3hBHrqyn$?SsWNBT!PlG)RQa3;f;?P$P4jD=~mw_rxv6c<8|Hv*SiGa
z0fkf>o$#rqOWv)I8m3hMzpd>Mot^7ov7>uANDKTF=w|vl`4>Q>0O64J@tD^2P~z4w
zq%OJEv^fGYl};Qo$?A!5K&K-kPT6TBChZ>VR}XZr*D0w#&~~M?Rl3+IYWSO;!;}=j
zmI~<*%Im}UoQ&J6V)ydXf!WWt?UDC!qHnyvp92HME!n*QWJH<F>rkoH`tieZ{aZwq
zDu|dy9`(64+B*+=;uZ1q$@5N2;fLhhRUcnhy_EHDx-*02)~H^yUW5(qtJ|y=K%E~y
zUyqlx7$L?xJC0R+ngeWvb}72A$u2bQW@90nt4$li5}$qPG}(Ed)$rFqB)a`ezESI^
z?Tj+i0`FHJ{h*{Srg#nAP!1CPBx{(>rsc%eO|phSpBpq#To&0Fb;K*9=$KE@%r-L_
zqt*s@V&5WYTp1G0pGMwU{1a`S)J3rL%qe~WdNQk5+9wH@o5iJr1bUs#^L%rGX<sAT
zg4Z)6dI5R<0OSdm#8IDS52o0@0?tPDG`V)g7To*%yb4*eI7B2^cg0=%D}ENkjTxSA
zn**sje3XCFr?Me2dG>=y7C5xiOCK$~abmLN=#t_+9W-kUcH@b5gKSUpFlt>KGc_N2
zc=2~y=8qGTua4ps3$6j<>Ew(@a^2)htA(+kl<u0XyRo}s-ugG8ALXO;Z%}9E;U7Mm
zH6vCaBsMx<>fK8nqXgl6a~Q8jDA_ACHN`G|eM=D2{tbFm(mABLI79P^y>MV+;BbW2
z$^q>>g>DQ*aQ1Ps=VgSziJVWAQC-rY?9Ty!1YAqb&alZut81LA%D=mNDUFSQV?tAU
zqQ%Ter#sArNb=ZuPrSS=BsqV$Ca}xzWja!*^PAwC&e^1RrNo-^QYVyuJNd}fS)g1)
zYWp%7e7a_I{=m#no1JlWlf9TABMNT*nnn4}+#l1nZ~VsAbIqg@Y8KXpCumtz61&y;
zt@P=lqf~Kff$;z|YNKqpDFUK^_}=clo^O-+)FOS2ETrOVZSJx*HlFc!cm06xmK_iG
zu}99YKUJhf=u->BY-<@l?w)y1%&q!Fp;^z834b*%wV#Q$%Do4Ka#vz_S`LPDpDuqT
z!n~t0r`Gcs6B0*E{f%bzf%4-9RnEc|we_spJaOuw5D<7@gVwwr1Rd)##GVedop3FF
zYxC_BR=2@K%0N6$|BSA#pX>BfY#MJ-XwZ$3+2&Ww=-*z_**G%sQUPSvgTTvyQTfBU
zXhndblt+M_Cq&iMN{4>wU2{u6tM^T4MWmmluZw)r^SYa_!5<{PB@pl2876=GDC|)5
zk;eFE{^RP!094Cj+TyRRN5nfP4hipmh?e~k_Kx+H0c$E>pzsQ0Yo!Kvli$ZXFROFG
zc|cdjgyUqv^aCp}-t_^=ql;!+`!;_4P?jMc3)|QByC$4<=R9)of{w`6DUSmK1M?CF
z3w#Y3Kq7#Tp%|>@@ykLXT5KdGSYg`=v(6{e1~Y85+qv^W4JNo=pdLd0(SzXe1H`{G
zHXh$H#xUfhG4_%f|L5=jNhI(l=4C7*mL5yH*>LW&|Ne2)kxppI_(@Lhz4|V#{4%K&
z+Z~6Gi;5MGGmX>OA7zes@cc~y|3Q1+JorM%_{--6gApu+8&QJ)W$&SnvzVM%9X_{g
z<5qPpx><4YbD)hlXI|2r4N&}heQ}6hWPb+!47>FAo0^YnQzr<+Dg*Z`&(3qZ-XM)L
zo}FvBC)6jqxR9dx)Pb#2Z&<|lQQ|Aw?mX_tJV2erLu=+3)i}So<>`rghnHTQ1y}Bi
zG1ruLyEIdOvukSpc0#`XO#OBClb69&2l-{jf9iCdzshr!o<xm0Qg8bF^4P$9ZaSP@
z{JQ`zosr_BagEbX#QIt7JU$2c47YtT(p$<a0q!y$wJY~9iI^~%Ave?T``@4#!^8lF
zQElI^ezEfVs(AY3b*o8z_Vl(R(Gr@k7!9oDqY@JpteyKg;;|O{V3@hSO^E=v65*nX
zDgi?(l@0_L22M*&<+!#5K7lp-gHNE%p@_ae-#PDtT$^dnv-GA@N8;-%_b)Fw29dG@
zVhn6IZ+sv*)u9HN7Ir_^{Si^-bENkeL>zXXhA;>LlgTYI=iV$`k9t8LX+OWSU7xrF
z4X^DZb&L<YF6pBucq*l=!k%}+5_df1zc-y+%C0`fnWe#Z8hJ`Mk+k2M^;YbRuq3+N
z)lv(6zoLib4bpDXNY(4QLJ=biIv4}t2AwX~L_Fi%N1Y1~YoS_iQ$4EEu2HEm=6<nC
zskc~Lr|Bckq-~k5nCjByV|?IxH)(MzjrhKg1nMDhaB=OnnpKluT(9ro!Ff8o;uDE4
zqL1$_E}nljV~UDIf*(rLvA`F-<oN;)g+prl;u04&YV2&WqkJ>+5sb_-{d#BH&0aqI
zGj@X1MA7^Ewl%Zj^i0^<<lk;CDQkuNt~ane>Eg50`ADci?<SBPJM3|7`Q$;o>$^v^
z!$y!p^=>fTv##Zmxy_s9kX(KOolnM{$MH-kIt~9`t*p0mqc-GQz3C#XLJ01S3b{Jo
zk<s^a6Jg6k@%`}I^ob9*8;i6{GUJ+^XM&0dF8dO$1!$iyV4O{32~j)k1&wx4$CvNy
zb#4Cz!9e&#!nd!3yK7L@AKi@C;Ge0PW*EMBd}b!E<e8`yOlnt*K=(P^d%DM@B7ord
zX1u^l=Y#(HB@Q!ws~{zR3J_S={D9m{5De@mTo{|>$8_^bHWz98-)Ml=+@Gis8lE41
z8zQjs&>f0^`Z)*eI$1R336Uj+-bdIWdL-jL73+X8f3V%JfKf;oWZl*7T#e}8vC|G0
zNFubytu(7$Ph?uWps)8tnBUhaDqU=f*Ew4MdYxX~hU<VFH!@4Jo*CiM)N-OE%5+Hy
zy?_pg;^#<EE0;9$-}JvuwO?bl{?ym?e_`p$v6ROvC$vL;C0MZf{oGE6Uf_RdX&WZI
z@``)rW$ZxFyM`4^zkjiIxJ{*OkKh=}Z{)Yy+xf=>C=+Vr@_|jwS$Ji&d9&(@$NsL1
z`{8L_F}ekPS0r<>sa+E0-gocb;GxKd1|Dnw>%EMUlK%^>JY~2aj-Swo)KH1E4gdEj
zxJFt_p$REt1=s9Sp}eqalO@r%3+J8hwf(pijl%2xJx{c!rD##y+lw5u`LLzU)B!v2
z7MTj%+fe)he>${1Ab8I~SnA2(#dZfQePD6&V7RaC@Ov?`_`S6IQJsU82w!|i=t^7U
zwe5hScR6#c;4&-8Tt8mPScUiq|4h;LN05a%7E}ArpJBUFIDnP&_c>o*7*Tl3Dt`#e
z*TV8~!6aK*?**wTMZP>r7`1-%Bct>{krz$1cf|283(@LwDAhgbratYG&H<$RrYV!o
z_wD&vpVdnF<UxAX(R}HX==S?CuWNZZvF%THSv|gH3bXY7hg}1c2qytup2l}nmfNMB
z(_uw7E0&nIm47nvaY;_y-SL81Q`&;z*ZsCNE5LKCQ(HMhYp~_@UFo{r2`)zURVEjm
zoAu49?a{Y>YWGv{=ZAn9pyA%jAy;)LKJXX~YMhfd?oJT+ZGG+jHdC!Z1agMect^50
zjrE<%@~dThIlKTMDP(c-#aWYc{J$n2^}~8JJyF(QT#tkKzlhlX<48pNwn4+25X1^L
zwppk?0$kfd+cHD>Cn`6r=)`vOtsf?udOv+i=au2ZThBJ$q<*(&E@|0N{Of+4#t?;O
z7h1iI@SrXWJ{c3^rVCC4a8H0g4<mDEO@3~<M{0N;2}_gh@ffc^nmg#U3k-l_velXx
zvg+ngsqiv{Wn4~=m<7rEU)g%Z8=sIdk!?vldz+gP<+uF?L{SoqapR6Le3jmq+W3g(
z#`E$Na(dMby~|E%3bq4FF?u@TvL@df#~Pf8hobqy4|{A}#1zG{2;O<fqM1SY9M&19
zm`~3hCiG9lY0bU3Br^4pH)Js8h~^9B$ju+|&dI~qs%Gxz<%X=(>tHjZVs<s+`x8HE
zBTFVWt*mv#VM2;&c&&Ant4Cp`;gh!|iDyD}uZr^F!;}jQ$T5>Jhceo)lR2R<et|=M
zm6i@wxpe&-6IfN6mIt(!f&8>1=OG;I<QE|zrHNgM2{pP6Kg>YQZvOO9j<G4qx9((}
zB@=&96lg|Vd;X@Q`VrtladrDzQu=s5d5Z16E*s=e-Wpo7TBoB-!c*Q!ZOMPw-|N-;
zARbR6USZwpd5Fi~h+cjRjVp5Qu96S9Hdhu_YkYk7U|!3%9ulT+RL5WI!YktdJEAMK
zC5?o)OKd$le=Oi@E30Ulp=&BFKCqd1f4feP(yHPF()n2bv#&RUr}CIJc?*7x`9Pjl
zts`~T#P=v$zSjIXyf*u4se~PAVpps8oje_*ZVd;Y!B@M<%Fl%+<tDFR^&Z#$aKGCw
zw4}U@o<Y9?5()4W8_8D|YG4Le+RXP@h~+%4PkU#4r^%&oX3)9EftytK5_U5@+<|{d
z%d3Hh|7`N}K>b(C?YJ@;B>pdoIIm0%<vx>f^$F|2-DlQx{hJ)Io?iZzKb>*$T#S)-
zWTG%%5&1MDMvCaPD-==k;!o+y&1Z4N-!rs#O^2mf{1etiQYO!5pGdYmKYK1Sd~k3q
zpQbKUViKzyfEh~Oti8XjW6%Z7Hz&<h4_9lyUXLvy9yhXgy*_ts?E2iZBx3>4tF;(o
z(K<RU9^Z)1^Mp;5E>_mH!d>R_r9+>Q47<w(6188NCrl~uHb6+hBEd0!+b);|r*2jQ
zwSw$Ei5^-r(iR|&9oB5P3N7A*z2cbc2fa}32*}+?*cZ|1jG=ZvK3FZc=9x$qG^>7{
z(!W;ZJ7h=RQgVTfzlD0HL~@*|({Fx!lIjY`VFP-GmQEx~4N6E;6qfoqc#)_>#f;6h
znhN2=p|$4iOLfHN7A(Eh{Am~L>;pO&dTGondV%_8OsbQSeqzY6K-KBNv(51w1tg4a
zh7=r*02QRag)X{iza}(0Q-VZScB`l6P5Psj>LmwkW;4oewnsdg+R@i|ea!pXy;Ld7
zk_OamI{ZA1l(nAA^#eFbm}VhqMbxa2ptsr&Y)iC#-x(E{)4ll?LRixN8RF7)`B=K{
zuIV6A0o1v~223_VG}3;t?2JfoG=z`_vGe-+vjat!Xvd9~j;#^O7LmFusG@Pn7Snhi
zxv@OOkF$#t8WrBwk}V6d_<7yQi>aM&#`23E(E{B|x$ik}ix}R+-Y8p-o(wgD><-RP
zx}1?1cpz^}d6d&JKdIf0rE}#N;+q6UP8T4XHude6v8p63Zg*P#re2jr*7=8_D_0?%
zQ_@D=K~;E+6eW#JQ2duGLSH!FezBm1BmR`yIABTP(xe!sKGfoUb#}1$hG4vN@s#<C
zD*{iQ_O(g9XiivhFW*FtB6#xzMK%U$g&^?E^5nrr%}Cby54!nFec$g*3dZwrAvapc
zVJrCuTQZbc(_a19Og@={v^UNBr~e=vmK)rZ0Fuw<?=!zOwZgKLc^2&SW~5$Pl92st
zCI(|xrH@2DJbDYfb=yy30tLA&lDk~YSo#?mBP`n{eQYi%zCMkXp_i@<HH;d2CF|a8
zFHStr^00@A8hGEVDv(S({7C03BGTTL_Se4|+qJFzUk`i4*K&q=1TpbmXL%uoc|K|J
z<|~LwU0aCg#Mc*yM-Yn27`5+yQy>q;%+sIdx&z5DD_jEWgjXFvUH6|_5MJ<a4=imC
zX>pj~Cs;iMuUvhVROeDptUV|T2t5(2I;?d%a7v@2jDqxBhUD?P@;*pvU_sOt7Q9_-
zS&ske&E}V~Mf`bxQ^2iG8w{N_vDQ!62bU^hXz+!ciwVEh<Q&_{H7qx{9j4u&V(|eI
z3vmA^m5BUb^-*vxI+y;!I-#;ba&j00I5knL<+@~Ihl7xId(Pz9$pqv~nrisj5dTwj
z_`-S*)VxtZlUGx*pv_0Kn8eZ|9S&?3-@59zJu{t0gbYcZ0v5z5PJ7(x-3bq=?txf8
zUV)IYYvGr+W#j*fNJCjtgo3$NR3@X4+LSZ8XBT^q=EG`{pLhxN34*h9M&KYyNhpv+
zXtSHWV&wuhUO~x(W<dW8Zr;g@kN7P}MmKpLiivx}^k}<_Ur3z{0FHu+6*+EnlJMP^
zbm*$FLwmydF+|AY<24>K+8%92D_3c^-wpROM>Bz`mIYz!(WLm8uruR!D-o0YA1Jt`
z_>fT_%z!A!8|>UC*y2}+UM{>%T6o_d#xH7BZz2=kK71YmeZ0g8v(A<qPozrrp47+g
z{OqGcPLB7TznVZl?2)=`xT2~37W(7waPRpbZy2w765Jc={Vma>YeO6?Ar_!Odo=FV
zKN=5h6)QcH!O@zo5B%@FR@W;@f}s{jtFcRYRxR=t?ok7^$MQzn!n*?g;*<is$bp>C
z*qUtFtE6Rc=ugO(_<H7tq0MEPo^pb%yx`_KT{DssK%PA(&M6wAt5isj3tt+hi80+<
zZoiDJ`o3t@f<G?xx?$g<20LcFd;(EA!Nn$vPRD5jVs<)w3YaUxV?(u!r^=F#&zc<R
z#yhYZFRygl2j>bq7<2jWNR!he_VoUrKmXk&u(kucu8X*`==B}K-fU!IXnqZK)%}nE
E3w81h!T<mO

literal 38916
zcmeFZcT`i|yDf~0pdwfhP`VO8KtSoehzOxb?@gtNH0d<~u>wjYG(%N-N4h`&I~^oQ
z4MnAd03q}Uf#h59eShbiF}{1p{r`@;$ADnm*=wz*%x6Ax?VVWTTRO}qI8V^g(J@1H
zZ<x~29Sx<UJ976J19%6U`gRSxFx=JGxdC3mv8&Y*1zwIn(6tGmqvLr-`#FS|Uw5UW
z<EMk(&@>OtT$zeOCkIfd>$prsb)}Tc&}Zk~=9G#<7oVlfjaL2{>mG10IW}Iu9B<oQ
zGl;Z=9B0$N=dI_JZ@6oMG}enl8k<bOd9#$<+oI4_p1AwXm7Z`1>400RtBu&nh0Lbu
z_Daub>3}}Z=~1%yp}&**f4}~p1%L(eSF4cSDn9VSh`BHUXYmSKg5viF`-kW>3Q}{H
zY2i$F;cTk;tLtr%h{%#;w#VHg*+-Z=_~_`&?}s({{Ktg+vh<<<hSi(6OCOm2ec$5T
zA;*9JEY7udVFrJXVaNaZ*sIHj(R6fgq)zBB@#77kJc6=`=66-wEHDgEC%wJv7<Z&v
zBV{JtMO8;%X{NO7Q9c9my5%mPp6zA4Y}vjpCz(|YQWBr<DHxPwu7xQ=W~a%RV1f}U
z4uacBTl&y?L71RNYJL$!{8pZ-j-HYcrfa0)ZErQj5z~U4PTY#i&%qQ6T)qe`f;Qj4
zC`ujN&B||tyiAjE`lx2r)onTR1kV)YlHex|6}BcZLx$4=pXaMe9qdS>MmsZ*3(yJF
zqa8OhA*Z1&zrQQ|S=MOq{UY)cVT*owk>5l6?7Yvb<3d7r8}g;nuv{ZMoR*wb&3b}C
z2_l<Uq4B@#{A%)Z>9O}b1@W^A^Gd#wP$h*fr5JN3q1$t#-<skY*5NsU@WLLd;uf-`
zP5HCHKvd+$xt@KEUk!Y&$ko_d$&$<KB~{Kbu9K^YQF#V*gC$j_$|Gk`2a>nm8Fukf
zUv;P@LpeE%Dmhd)TGMXZNgt&5e<Mr(oon$Y2C?mE!%K%AM?#H?OekD&eCNVP1&C1)
zi=+!B8M+R_HuF3}9sx073!>Gs>>Ci(%-`3>E=tG9Vbg7cgfZXhr8LXTkDyEF&85df
zlDv(o_a8-u{P~emNm5zLe62D4%7A}VoSG$pA3DBv69N<4+=~-Vp{ugWT0guj88JuZ
zzt!f2E|fl?ocueV()Vt9lA)(1qhAS2OG!^Du|q|-N;<?oklT6#PsNVZnk;N=T0k4B
zij1%j*2wT{(X$WyGs9!d^)aasY@@YXH$xQxj$~eRZ6*p0W#8RJ?6iFh85jzw)M=fU
zQh)HrgODhHNqSzRJn#tm477)hs*~8w`?K$xr_vCN8>GO+#525LBI6HgJ7#AgJOZrd
zeMuLdL=@-CNqsCuuwJ2Zq7+4jhAm4Rrr~i0YhotPx_j-y43OI@-0tLgWO$fYgq^8A
z^r%$YXFg$RtD+2fK?|cA?-I_7taFAp#h~p>Z6cLYQz5Jth6}s*m#Yu-pm|3srAO?f
z%uamiP71u4iM9$;p*+kdMs9c~UvQYvG*#6`gjg5O1SW<=*Ol}}_K%xpKa{FnPp`Z}
zn=v@d@6OzxIpZ|b^Ws)~(G5(6l%~0Sz3X8yM}Z#4#K3X`I*5^5-A{#_tuxS<s!JQ3
zA3bNL>zBHdP|~CY1-yV1llFEU2G>Pzw12aXcXhDA*3!l&%rS|Kpzdz)o>9W&W%Kjk
zO&VblHg44_%5O$*2z8z(zTSfde{mBc`{WWzglez88KqE^9yZX=Ya-<S^xesn^hncb
z+f?1il*C^VR1@zqKx|lj>*AU_Hr?|3N6N~vX|L8o>8XytK%v2gV>@lbYrK0zr5m9e
zersAY?w8sw?^fq5$4>_lX{5x6X^zSnsDs1C)(&*$Yo7N3Y~xR#b~sWe`-Vh|(I}tF
zQbMPF>gvwqya@c&sFBp6Rs+)1jR`Xd^`{Ryu~t*LzewDXDLiOL*GY&fVuBp}ROH~O
z9;f?}A(XMh!@1_rGzh`k!GC7+0sg^rYuXTbztCo9l-E_qWua-?)KKWdT&i!{q)x}~
z(a?eQ;tt<y@3eWtmdJBWp9BW1c=7I``HfG^#){rtA(dbyFNdIw+W3#4P2I>o=$&(2
z^i*_A(0HcUI6eR&=dhYc2}5iN9QHCx)ZsY;&5GPOdg15G#t#m(iTrC84bIn(IDl)}
ziD4>gdKfvB#<yB20i^+CQ=occ0O}I-rAkAqBwjcNt*)QGQe9!}R@vp!yB!)?Z<O7k
z!aFmUggc$q5jUq=@kJ)52EuxI|C=+`!*8Qdz{xGaTwWjIz1G!YO6j<)i&|<~Pu5Kr
zkS2MROQD)V57=?t`R$=96skS1SSm^7J%VwF8;bGC@$Tvm$|{Yc>*-$bRI>U{>|IRj
zj`~tCdU-+^QokwEm}o?~!LHvjB20x!;9GC5?Hxr*?v%{lK&XVNg-x>G*idGfmpY``
zo?$hOQX{8ShO2ES=<!osa`xd!o@!J{8&{R8V<SOI;B`PrGa4J>Vld$pmQPms*t`Kb
zxb7yJii7l}9jBz-C#tQ;T6y2V@aJqi;{F)nnF)is(fi6d4WU+N0heOlF9noLG(PQI
zRCS*96XYIrPgiKn^t0g0(aapAjl$*ZAT{iMVaW6OMqgJoEPN|eWqebieHOru{JWXH
z_|apZ`2RTUwaPu*kIg@Ry>QQ`RH^WL_8UU7%(Syz)obb${M9S8&LQlE3p{!pf_H}I
zxgJgw?%7u`HjE(sdS_(w)o-cvMa^z{r5DXq3a5V_rK3yv%8SzPYn3>ffJ;LbidI`p
zCH<10kVZ8J?|E&uctxaj%%;q%REAe_{S=tioqA*5&=%3Y{|GhyTef=-5x2U05!oD;
zpRr^XoSkpwQuyFO1~R`Uj)eYm)Uoy}LDpe>Pl1l^LGcwQ8kj=x?NaePSrCuRUhel@
zi$Wz9z0P(pOoyZBYT+06jF~#7>KZn$ts23O?V`Ia0}TRaJEP2vnV}j&V6pv4TQUAo
zmDG}aqCKy=sVVC+(J5jMW=m0zo8*_S*Rn7>?@q3UCZ`Za16`MZ#Xnpe6^4OPec1Ju
zB&Ct%Z3f1_?n9%}>Qrt`Z#q+)h)FwJ^b?pacWgTSh7~)!<JTorVo=HC{^6ha4W>6a
zi5iqjO<Bls&7G;xRGaOlCTq-%`QR@uH!xQb-tD!k)Vb;@--LM;Xw>F7yd^)+_2%aV
zkqN6!*oKR~caHZ_q%Fk6veI#Ad<9Gf9JkejUiX#~e3;1SIV8M7XX5$3BvAs1y7W=p
z2{jpYg=Fi}=cy^wMX!pU2zjrQeLY9TF(4gINQBoJVg0=e(4^W*qqc8qyT4x+-U>FU
zaDiY$X6uWZ4UGFd)jLEQHK!+d2@?|1aiiYY#tq+16W-n5;&&}S3+K$l#FuO_R%!QA
z2uVdPM&wC$n<P=3r&5X<3mqNi!!baEjM)w@6OX<wZBki~pCDe$@s3I*2@dDYtB3fw
z&INJriR>PIbziqxzI6fOQa;eYsKR>+8V)()ef)Y2Og=kHDn72s@CiS3R5#qZiD|<p
zb*r>zRu*DN>I^{aKU#aX=aqr4CCKD>YuYWX|FQAUnQcfnxT<E8vM$RL$j3-W=l5?k
zYM{<|#Y#v8W_HYq+4DwB7iE?~43QVu?m6W~zBh<o8&KQ*2KoN2dm*fev4E-EJN8Pi
zh1tT{KYd6B`cWAp$vrP}R=&H-!fbs`%T1|x->i)FRBhK9qR`#=d{);5-JpP^-cO!Q
zzuBIvPtW?b<LozbGIq@o9jB06UYY)nw%R&o!=yCtMNo+E@*9w9iTIYT?h#L=(f@$U
zA?I^hd$-H;10b@=7cATmYA3twDG?QDN!Qh1CX|<IVaV2(TjPjs741hZ3*B4Yq$Y#Y
zIDTzJ*h7OgvKNXDB@L5`?=5i7HOeq+-G%NT_i2RzJEUt`VzjF@yAo3P*fr*RtcoO6
z?+yAobe?y&$Hmd;tL4NcsJosmN73|~qI-W_W5^kceV%a)BFa^G1JXYn?;YQ}BggQQ
zBV7?+Y_s#_4;Rl$quwN@0WQJZML!sGOvzR3L&Wpm;y#y&2759?Ri?ap2}7v#a7dDe
zkv=pca;ZtYzs<dyKSxf{*HPes^GkzwDmX%w8a9Sy?WrIv$Aw(jLsspU{E+c-G_a5i
z(pvY3nG79W^no_Y;6d@EbHoz^{vcD%pxzV|G0=+Bb<Xw%#uuWRzWfyOs~xG-t<n+u
zN7Jp%qAJWoEF%;qe?ea`XlESW-kZ!kE_dyrOom{e(L1!V3%j%a4~T0BeLz$GG&DcT
z4D)0o2mVRlBGiy^927*2lQe36J8CVxcOG9hn~xR8o1%U?q3dpCKpgn-fly`Bdrq!q
z60CEcA|9G2b~$?NpAuxB-4}`!Dyhzw{GD%irPe7!YC88eWFjQ#nh_=7Gy>UFuAb4B
z<dK#`PX6=hiMsxM!Oc8<6#+qqw=0YsGl@3l1e^l?8&t_?;XuS9Wmh&UmX<o)8v#?a
z%<g$9m1Zno>r>%!IQ*r{LQwg|fH0yF(z2U=e;O&HgLw*B4xbTisW$kz13@J=F}p~F
zO!KosY%T|kZ@I@s*+f~?8Mw7CclEvui|f7X(C3;!8j#XNu}K|z6DHLGvHCbfEN=)(
z35+#3U3+5zLqs97lVt2-8IM0g_O)dcNA=Llwz9KFm||`f$mgoskh<x~Xh_Ski73~-
zPq9dev>%41OsF$EIr`xiZfDe#-@T6iC@$@~ry&XD=z4LtLIf`cH4{{=xXr=a^TV@Q
zYUiJTqOI)ze59CM9;LNTAK(IKZ`))Rx$zDFmhb`2FZuWFzZb}VN+<d6mCQ~4s~7t}
zU;F=mhDGmfs4McO@T;9F%ZYZ^I&CsS-X+0m*<PNW+^PaCkU9{b_I{S4#=+Y#@m)Y?
zyF>bVAq+=v?x;lO3bYdyApgmnuMr<U;1k}oRZv*)BiBkKV)56))Ejx#B_Hmo*JB({
z3p-@z4?$icx2p3ANH|hP3!?!IVl6I<&FgbMt4j>5NpWxLU7xs&cYu<*R-zJ9B+9=a
z>{bY|^jK57h0vFYb=DY5l=J%2{28T*vqrK|dA+?46GbV=)iiTSt)ORu^=W}=`AwE>
zJV<t1#4xFg9GB7-o(Ve)mK*(eQcxuKOB?sJZvju@AUi>wA`pN+wsvWVB@OQxJL!fi
zeu+H({su(0`wrLsm1K{Z>O(1M{S=0&)b36-HJv6eeOIcTZP=>+xLeeSpuh4|UKURH
z`_lr;iEK5Gbm*Sw!{C#N$wagM8E%iB6l?xEW1;8VRjVNtTfgWr;ZxaqZ&be?Pu@(*
zpZ%R|W`t=3_#>E={;-)9Z<ZE5=k4Xq$Lros^9%n)`cUa-bdog%Wd=^<YopBTCi(Zi
z=ka%V`z00KBbOdE{*TRZ>&H91^n<7b(xj3Ec4eUXhE9qS;FtAIWoN_)O-Po+aonrk
z&RH`^t5<;{HZL<0Wm0+uIwL&T=4Uy<gADI^al5b9M;225D)3Q$5$ok;t+Mi-v%1R#
z)<QocV-3F7ruX_?e)Z#)+g2UVy=_hcr{$JnxRI$=*$Z1KoY)y?gbVx_Q_U(DWa?tc
z%lveyj;mh7)Vkb(0478*_F(%of<Rl)tE-36D6MFY@eLhR+m3%F*YCVo1Fke&^F<r~
zHw53BmDx>AjrsAs5aDnyqlH=tOXEY+N>UGRDu3tZ8cP_y=_YzqzP+w{*W4}c;qzXZ
zLvR)onZ+@+TN5`TZ>I!7>0HAUb%oCJBnB4fq&talJ{J!jR~w(m?ld>=8X@4A#fYH@
z0#5~jRA4Me$FJoti?{$L_5EvePTG*=pW3L!*C|7mE&~r6+Pi8H1HIARTwYV^+{R(3
ztJeny3rD*Qcz)u{!WchLZ%<JjFm@v|S%N$ZW{#}OZT1+Qbxu2|msw!xvmsT?q}$Yt
zxOAyvs;X;8kd&D@y-gz@x#MvqFP5XTcb819qbB@dj1~p11>7JI^~3@#p~Edo)b=VA
zTYq8~PW~}vyKr{&trSyXvMotojI#e&xa&oo&1`1~VxL1Vv9}<D)M+n7t}u9WF?jmR
zf>d5uux@(ZJ&k^S->>Q{aDhijQylHM)!R_9a>4;@=}MxEE`~f2@$pSh9Wib6U9W5B
zXF+k(z&jZzDS?8036Bu9QOBpEa3^R%4ueUQP+;w<x?$c6A*sAA!qFVLp5D=jJoKZR
z&pPc3_kB^?=?y*hmsB;#68=HyLFz^eQj0@^s=}LS>SflGC0QEEh~&T`19j|0k4O3L
zkopZ>>YLp7Ad95HieAqL&kWj`zUC{B7Oi>_e9;XuHA|Tin{8&Io18os10pery=qGJ
zufkL%>nAo-45Bucl>28{#S(F!O03<^c{E`nm|aY(^Ji?LW*{Y(Ue>UrUZ@v^R&{U9
zTUAgGrUO<;!|#40cq<L$Y)C$vXE-iTq)`ZoQB4Ljon|tfJU6D+SE^U3%hj#dg`zWy
z79&7`1>HZSQ-pKniJfh;mnVd(?RC~>>uXz+1Iv9J^^w8tZt<B>|D23#MndP8ES#G1
znN)Y0QVmYa$_=!;95z0Kdg9;hfSFu0DJ+M*2;rVQ{Gwzvel);JfADLx&zc9(&~HLX
zROq134-+L$3_DI}*gI-XG}&)M>Zvp5Qr;*^wx}t6m3rDk-L?LOEXv7E%V?Q$d;#@!
zYMwU4m?Kn{=TtvQ7-5`d>oz&lB7<8GTw^}=Z&fwrd(N3e$&p5@#0ilTw`b5XQ|pix
z1oHSfwS^>iM1F(B?*7iT>3}n3wJGpsqjY<t!3S}<9bY^p#%~;qh~l(5oN?9&SlJ?i
zy?RM`VofI}Ft+>KIcDVUpva|70j=`9<T1Z`bwtEb>kyTsa`X`xCa@8sl6HNUX0bK(
z@ndUGU2aBeyWD)-bhLj3?emZ>gJ*J`X=40i@km^P>HU($wAEAf#Iy<Ja&K28TtFHl
z3X$IMs>_>Pkl3DJ`h}LPeW#ZlL@g0;x*<eo%P$@G=S0WsOVyoie^0V;n)ePG?sMpy
zIq55*DS#p5AZD<YXMS2h8ae7%SCr7Z|0?QvR{+Z3Lq(!NbdTfMH(oq<;_<kqF7s&l
zL^$V-15IU<!C5}v<Yul2N_Um(VOLq#1Z^OvY$XPI8f3RyhXr@hQ<g>cGDlM`JUQUf
z**mPmHQG&YnQ?iKQ}wH;*d_cGM6lW&ZzqWK;kM@C{&Xp^VXS(tf=-F@^2^TN_$hmG
z!nc6J0Irg>zJr&e?Bwkq27{v^)<W-n+xZHl;$+8R$re=y;RkxA!rC0AO6C}APplh(
zr*j9}5lSX5u!|ks&XH+iS=+JLvd;HxvKX09=!j!e^>MTk))hMDQ-tLYuy5{Eaq8;6
z8BH?R#x9S1Ye*o#4=v-)F?%suG^S~>9h|flB!xZn?zp^%Izn@cNDnx7G(l-aa=$2I
z&QSiIl_=}$7ZzrNUrm+1srW=aTwXG%YUSKndEIf!D)6yw-)rw-HXiZNBz;sce{iNw
zR`AuIx6-^FJ4CZ!v9Q(qBAh=Sc(zv<4{8k0tKpGnQjg1p!%F)9%f>A?2XQdOe$lqV
zgdo*R%y)=>S^2YGyMx=7{UuK2i9gRLk6eqYZE(WX^uc}HI?0#~P0Mso)upUOlPaJB
zNnmSQ+u`1^MPPu&85!Yf({Y`yUfBJ{Ve#iF!qT}iJM}Ka*-L3EB`fW!rkG_tCXqcG
zcPiaNNIbz=lRlKNr#>mH<DUr=+lf0DajiO0Z8u)fFd+FC`rz{B^t?Qx%B=7Ry56Nw
zW}VEvRJwSI6@JqOzsmg1$Br2VpXEMi(_h$Bo<{f#^Mvgm{zw;n<qiwz(k9vT!!0ql
zP$tp%Ugg)%8C@2JU(`DcN(T4q%MhB#mfgKQ_-`yV*_EwFnu=^mW)&M*!QGLAX*x|w
z<>a1u-u>$K#gwqRE<+{q@4#2RhgCYd>}~g+8)X%B)2FnVJxF_<s@(0Laq}W;&6Lrj
zALHvFYTn_3$o+y*0?TbahlAKUUz|<J-*mZIB=m{pX;s<<7^ff9dBE%fc~3lf>lBLb
zo<uU~lR43b)UQ#mYVpwxg=d^x3M!0{URbwZsj{*=TWvQuo3uDjDp_?lM3srIMEb<r
zS#;9#6tv>hw(V|<ryNk91W{oz_yb3QF8XgtchvdtZH@M>Qv*rIHI!b~uQGN<sO!1H
zuX;#q?pFkRm5Jd8fb#uY28*h^ggQg2cU|Cs%k*umjNZOf6>q*I@qJqT<hgEx_R~b^
z-rZ*Coa%YHS9fS6^a05Vm3S3a?|WK?^{!5#QeXY5QILuoBdg<j7bz?Ep(XC{%^ev=
zpLqJO&Wx8zyIxRYgB}O*k&jLrDUt6gI}ZM=g!CcIic|}}>2I)PhbihUAeTrkJ41>w
zKCg_pq%Wqx_o~r4bQHzd=9#t2voZ9WA&sk5$;Tc4Oa-^hH9q1Xc3<(?W(s3`b}J3F
zNrHt@pa1*@@0%)G{G?T_WK9xt=A{<&B3NWyB%CGceOk&hU}%bSL5Nz^4uY4|N$ohR
zJVm~S$f;Z*0?T?0yB7AnhDh@mmgIKaZtM+cG>oMx1U8#uI|5t}+a}HNSx<RPQCC8H
z)zpX{PU|}}eVQXMv`Hqi>HekZ<uA)Rk8i|0a-3lz@L44oy*Vj)N4uycHfz)#Y)BmE
z=jbMjvS9sDq>^t^u+o>k_LD8HJ9lbwbB>IsO4i<<h(%7PZbfZSBFEjPux1CL)jG-@
zWCO!OA1sSD`Ifa?`fDziy$v193yztt?n@m<=`_wBTRTkmu4>k`?FAgdO4rNKzROJT
z-sVP(o6(gc%vP0_Df}JII~?D{V`aT1``;k2f|<+}WS7He{7SrcT<_-2i*0KAJa2Tv
zxIjXiVg5rFE9l-$H}mZhz#ArSelMu;534aH6os8|qkm&{A(lQV&UHa0)qrev&D70t
zaa(HBY~tZ^R~*AdZ+Bagk&unfsbz{cf^bp$$Z$1NbJnjvEzP}%OT#XQm7c`$N|Gb@
z19ZY$dZRi#a<Y7&y|YbYPE`%MZgcZdt}&%Bmpva@ZNx*>n6;OXiS#A4iCxDXLpGj|
ze^O?zk^e+4Ag6t)tz(*PHx}OPoS5FLel#Czf8E#V!WpiyMzSk`zQ=FKWRT?CsMe~F
zVH%m~>Xo$<^{CFrx~fI2@Wt%2Gxj9E>n$F4(zE5qdo@w7x{?RiLu7LTcOpq}fgec~
zSi>j1TLy@({bQG)13eMzx;S!VP0%4asc0IHi(nE_V%FpnRBx8Hc=pFjd90cGas4%q
zhN{Y~rk!Biq6Qgrzfm!2){jAA>gGh&?WwBZ@dd#wnBQJ&uPC9hhyJDTpXB<kW+S(J
zZy2g6T2Q*X<Y6zzri!+XCNne_9hg64gzbu;|M?Emt@t_bWP9RRLmp35m0s?xqUXKm
zj_Gv1C~ebqtHj2;E{yFb33v-HPm5p02|5kxZ?tden&}9Iw%Cv<x9^UQo386PD&-7B
zYD-R$B6t*szA{Apg<?e;H>KAqDDAK5o%_11mVq;brt33$xveEDc`keHkcxF^k|dsc
znOKm}u`<irf`F5W?$tq2k9|vjjOUee?G{Q67#>+B23^Cd`R&8fO=nNO_d$|7srnTJ
z_a5rz_nvUnQN@BkdC`yD5Zr2Z3yP`^>pHH!5B3SNQGvP`=*UdZk#c2Ta**|9((XV(
z>!X7!bqsVVbhJIhoe}+ovmIwPSo~eCbL4mj^UogXa1J(}9aY<15>t}uRD6c#7&+)V
z-YC({8)Q=nJ5q5pjzO{QR&H<L&R02I%;%ArQ=KpFHd|wSRk~|At~Xo94(xgiTu{F0
zmOK;^C-KA0lOsb!3xh9$3mmGIeOASD*{-5h@}ZIT4L8WnIn<lXDa2DH%vc`l!OiZk
zHAft0E{8Y4%h^X-vBfv4nsR5WqXPe!QXX<DPni;wV<fQT<<V5ea<Ws`i)KfW&FMR&
z`ggs#?xy}sVFfh^)2;2LG$Pd{#?Dt%3HJ_m^H%WUf9?f{oZK1or5=o#b=9pIrYJ>-
z9&gv4%x`@ZTCFa+^6EmD2r8^E>40Kw7BRp_l$~ivn)yKoU*XfNRm_z!a$DVIa#gc4
zN+F~BtGmw~7^wFM^sUG7W=PsM6xoKT#6}8DsK56)QGAO|Bb|m0r-!ZG9xqsGb8L5~
zV&~KfG=g;Ogp_%sMw@*LTX73P%{|RgAcP(gsDib&;oGlOhRdY{@#oT{2uHnEEC#Yx
z&iIxkPo86@0Y>^P@dWBN#s_7Rxb1*x_x1KI{_^Pf&U3-4H+BMoYE&;J|8b*7n89X*
z{83HOl`xAe0U3hH^VVdA2${WQHIEfO=;XrphGq1nSfzr+%pdCsFK2Qc$ETgz8^+XM
zTnQLwM{db$KPsx;+}ne?@(FIvBF<&`T(s2E)}d0T*Wbe;CkqpGgB~_L8G(taHwfO1
z3yO-%4XA3Vp3!0NK4>MAq=;pGkOPPHb}c!pz&U(XIeAKo_!gcwMiAroL725=M53BH
z3l`BMC@@rVuf@4C*TSdci8m;}Mh;Fl84X?g(acu_QxCyZU=ga?T2IhA&3v9yE#eBt
zXawwdi@wkY1)+y^Bs&kCP_LXj-ZS^6a)?N`7xjcd1iHdmT4B<;py^A|>hpXfR|%(v
z_7z@9k3?s?mE!bvYpkBD<)cQOJ?<-;Uk4>dE4+Peux?^XqK!A)=pDZJwcK?3V$s%n
z&zih$nNU-z-)!%;`t5ly$1Qnyhv+b@x+l<Xy``w$J8|;JSu3UPRtq;<M)LVlWYb(w
zv;a(B%)6=gxmbkHr~6VL34IA0lQH3%+bQOI9;de%@zQ14(;{=K78orl&FV+zVEy+y
zd#m>Hb_mZL*kC?B=7AGQuX^WyszRpDm<_<<qOMH8!|Z=@#g-%}G3qPz4vs{kC?kd#
z)(LX`ft8pM`a?lhKY=mMi&*7kmuic3G~dFI0kjSS744kBM9BT<P{8$Uyc;*Osum**
z4WVfwN}|+-*O5ExepsFM1Cp87JT`Ap<x4ekw>&_)tGnGoXzV_<m;;I8`~)9(4s${T
zH3&>~NSW0s;Iyhl0xUk(TBg@lbf~9LaaBWS5|lET3P2l~l_@T5JE17)mDn3G!L2j>
zbc6H|6P3dx623AbTJIsa;d;2ZI_K*!8^P=hK{>@(DF~QrV*UmS*9#{e@8PD}ac@u0
zTSmJ+PWeXc=Ayayc@G7{l}L_+_uD~)2s3xP{TXa<-3J?A3>ZUwlXegD`Zd9-S~;w1
zpSZG*`u8}`NRaLgy_E`}`&LLz>s=fH;&85inoPeWO#2#^7fG7W`s=-QrZv3<%w6RV
z3kwMfLEkF>sC5Yw?6t|UPSK6_v83U%Y5OHxX6_Vw#?Vc+sZ;IFcV_P5+;|~W+?7kL
z+_ADkx3b5cpjP;l)5BMEbO&+0o=OZj1gm4?m|{F3JR>yuLdGi4KE@|ODrK$?JuPx!
zm#CxOvaBKBizlJ&myjLP9kY=QVX7SP6;g5oFE(knyroYtD$#&{$~TI1nIgl23?o`|
z6_r2lMU)<u3h0?Y$OelHyyPhkYI|xYY+TgJ=O|E{6?1GY^~(<e*qbs`^?y969#6pH
z4~@d!89DT0t-}yM`pvc&`^L(mX{O{C>6dKnn!c-ZR`H0tV|<p2(g&=q(Bj^k-leSw
z7j}y#i*+jrbwfAawjilPwF9n)&ol2!b-ic{H+H+Rh_F=Nbd~U}$NtcBa~b4C?Otl>
zNH&2;&#XR*bNsX-nCP6c()NXEja_VSzUie-`c0|4P4=D@oEz#)KdhcucOgtlKx-yx
zcLP0q|Ff%<=6&VcD;z%!7Z%ul8aCu8ZQ{UWbYqE8O*_m|=el0-atm%|5?);h+AYbC
znCH`7x{SYoQjF+vg{z<-tmpg_-kemP_!*3^b19@ezeoIvoUBW=+4p#2fwL^DKy<xO
z2u{t>ZLP+mEt}G6YTIM$<{>CbqyECdf}%E#y-|l4ad4i^D3^S`EUEXDtzCI=tMKMt
zklo6lFCQyR0zGEMphBotMGYu5p6O{|ks_YzVaw8jCG_gfD?#hzuSkc7m-jBNNR^dS
zJ0l$xi@sDxz1WqB-599bSTWw(W$Hrv+KYJP_Oj7oD-Nv1YM(nf5ma->jD!xO;f)B@
z?spbx7Zl0Wz3$&RQGELPDwrZWl8Ka65n5<7Tq5lPRNboZ6c0~PE6*HU0&Hl~(b)_d
zq!9I?moyu_0vJLQxpubBIy$W#T2WsiO-?lV9D79<5m%%YFm;+v<6L|>ZNFb*b<7NU
za?SAQ-1MMSz%zA-hnY{tVY&zZ-Ye9!iON5YT(u0WR(K=DDJTtlI&;{IE}EO4b}Nzb
zF8Y!*ajqFC&>EKZg3^q8so>AGbx)Kwd&pe#MY`zLd0aCX#bwYR^@gVD{a<-RCqMR|
zqT>#|l-PL&xisI*^Uo?fn`GY_-wUYZGD)FXL4kibDKN5<>z})^qBF5xQ?GK-_VWKR
z$tzCU-p=2{So;iZf0}kgi^l!0_7DEKmrH}~M|04!=jP^Sj$K=1SP*X3Jv(ec``3d|
z)0SXDWpK~vd%sz`__(-lQDj1+cFBlCg>Ahb_;1X+JD=0T3Q$Tx_gfz*sEBa07)_wV
z0^p@V7gb+!$+y*ej#jp2AyQIP7ue37GeDD9TkIA}9a1bZ<h(1HpM6eJkRv04mPgno
zh}yMoeWe1>G$(l2D7X~9I4^-Sb9v`t$XzGmR?3lQql(Ex&(8=X_+lHp+aH}$`$OE_
z-5p?KV^g&-HT56xD9Q@PPle1(`OkiPd9*rAp+o82gM=sDe|JqRdLJKWO|Y$Tfi_Aw
zG#hw~l#k!SHN?fmp~24s$XUOG7g39EpJj`PiIokOSyjcGRj8khowEyi9Eo`>Dk}O3
z4D-u;S#xiq&ZBk?jM930^1a{7?w%g440+#vbs~CGVxrdFXgv&<MKY|!T8)oY<=8hK
z`B*a(4?cb!Y3}Hl?S5c%dyZ~lC%mX?g}UGW7UHqF(6`IXCC9yAq<(;}%8A^7k}B*P
zc}*N09gQt5gTL=>FK4t-DP+}WEIdm27G;(pUl-=Nmp^<`WEbU9E2g6>zRPfmchU-Z
zGl5%CU>vO)u`~JL%Nd<3S@OQqM|)DmBMP+R*_C5_FN(&$)q2*Z>^)I8vqPMrKBOFw
zsl@efFS#V|&9ogfaLX}w#vzf&8eIscXLl?gn&f7bF5?kgIq|qVw$1<c^AMI{;L5Vm
zN(ZbEHw&?OskH3dNp6L;p+duq)#Uu`<x!6QY*q3*E61>c`R)`ku8#kn=uJREjh`62
zzWS?}*iLP81*^u@c?`Klh`R1mNbOOMNU+Wj&36@AuC&V$B-{5lh+J}Bf1sDom0rGb
zWpc2@tSCy{{{0%U$;ZyM&ZP@^Em1dr^wmYJ)P-hoI;r?k@<ZWi#UC}UJ@>EJ)Z}MC
zRJXosX?48hBEicnD}v9lv)??y#3TSrJ-LmYq3mEq%nH%#<L)^x{mLE%lpkTlSr>bq
z|Hwoajo8@O_}+xej`#@jVTsYgEuLN6vTf}XQ>|%N1oeRA1c4r5I2o!syyx4tyCBJU
ziq~GrcN)zk=QVb9ckT13nXLOZ#rxqqD@||R2eLo=PqEN_c!*0-UcI+D;aQb+);vu1
z{*N&=`2L@$Cc~=JM(BXz3({`Mx~5>M?|(hzvMj);^;ff8$#i}zb%!1_ood;zopA=*
zU<LZAR}=+`vGI~^W7M*$Hql!R;>#lyV*9`2C2ui3xz1+g1lvwGCzZT=cNNp%jiuhW
zl=yw^*JnGy4E1v-EOapg>eS31r@qnxR`T-YP&tsRdw*sTr#AGgEG^kf9b5OtK;C&Q
z{V3U{><&bYG;**)x8#DBeuP)g?<|iJe}wLWfEm3kH#4Zi2a8bP&X)1}{e{7Ypn9-1
z6y=OVIGBI#Uq;X4aOzgT>?VYX`j)*e;T*3;OE;w;hD7x<v<zn@hVCp5eh#4@>P!?s
zsQ!A)%J8GyX0v*Ke;)^i-n^YA;Sk=w*{}R8A0yN_O9)yXt(qyR-klY%N$pp|HA}wV
zCIDn%9}Cmh*C*{du6;Oiikpw+nXs$}X6}?vkUnOzDZn$w@7o0qzTmMtBpjHIU2FKZ
zaJrm#_@)zOBaPiLY=7chi<8ellK41<^~<I3uGOlU&Bn;xjivhg!{G|RFiXQ_qbPV#
zFmd|e)8|v_`_nNoG43?{llK~Xux4T9FdX*zDRYGQR`ROnhtzJ*fG(t<tVGL7jT0|y
zYcS*-4V8?IuU0#@hDWJx_DW0IzPqhi;gaw&*>NU8Twr`unMr~Hx8A`=b$Ep{-oy=1
zw_8cm5vDZ+-8t_2AkFST<8E9E^C8B@7T?ENBa?eJ%il~h*6fa_zYMs-&-Mbq`iBnS
z<r5HmF_N=+wmE-bh_v28Rx`&B%)cdI8--i1ej74Uhm}KQy~fs(e*gX*7dSBp;03{P
z#rnbYa#i~@{_Qhf+hl`j+xq(zR4|uQdmxlp(&`|Cks#TphX7<mwbS4Sz+1n>P?1qo
zpZFAj;Pm9w)R9WN#??|LiT6LBr8$O|K*pckm}D0gk(4}DP{SYF`YP5ARn@vPaVKD*
zch?Y&zIN(aqc_%)I*U-RoT+kZ=LJiS`U8R^QnFa-QD@F`fWz-QhCHj=YieqYX*I{G
zIS`NU?*KqHxt0|&?J)+X6kpj+**lY`gK&K1l5y5Cun>)o%yDM*O{@>xQ5=PR^lcev
z`wQ3e^YfMD9{|Xug^jW&XLhYUJUj;D*u-veNx5`-unOPW|5-br#&v-VPwCurQRna(
zFe^O}p3>ej9e1k2`F@RK`zo9jh*<-6<eRQ_A1HDR#}_nCF0G8$;uOt_ZncUo{K^Fr
zYCv7Rb3Nm0JO>{M<itxvg=FHv@r^M(Q;?V)9cnvZxxDJ0BjvNo!7F3rSmEsV+v%Q_
zyEC7(P^(x=&H?z`D4+F%YYGuND<ZG*^CXuG_8+OvCLG`WMF^=68t0g(_q4iG6UM6e
z45Y>o1DQD88j(Xoas00b3P>*p3p}^J-b$^wr7_OtLO5UNqPwSDe|5C^)ff)CXnJnj
z7TxxiKkw^&wV#wkIYk2eLZsx+CMf%8H<JT4x`eCJ@`uZ;8liGT;Qe-U<U%iMNOl~p
z^^66kg>>uB4D++GK`oycbnZxKHAYsx{~ebGDY2?@T)vd3D~a<4g*a^tAF?_*E*u;&
zkgY2JCDoI$q&b+Nq$me_#K5d(80<tVkudTO&t>S7Cr{eqJznst?#Z=Of=adJSa)x5
zm`5ov)B-7F@cKcP-P*+|CF#VOlH5;`>XiVF3dd&0TSAD{@Gt;f``P+w5~`|_l2zy^
zDn)=6mp!DF@gXvx0`CjKTzqMG=ZsL@DRR$&?R1(?ET~LZH{QxpGK3Zwh_u3jJ?$jO
z*PDF+l<p)68?8DS8^4<^%<u{Sxd|>mm8}{P?mJ#Hj~vX?nXv>B=xbSF8?*rmddQvc
zLGI1e_s9LCtjeuTB7esUQ~FM<s;RnmC(BP_K<y)%E5FA!1>n+fy{G^}r9(?NaiYGA
z1fm;5qK)t-KYxy~5na;8fKhCC$tk<{XCR8QshSf-*(C-OCWa$${aLW-$j!dx3>l9N
zN66XZQ+^#hM}G5giI8AiD3ivauF|LlyvJ0jyuzjVJz6+SHf=_6$=<KiMLI?uY>VCh
zQM~@;f_tXlx+-aMXwui*tGqNYLC~Uqv)pBdQS`IB7}23qmc|Rs&p5$%=c|!FKneC8
z5?}tpYBYHX>gwvs2(Uq-B=IV!Z?6TQ>icV2L$&=%%b#dq`=!TudAgNc2q;1UI8~N6
z^yfpjYAlC@edzaeS<i_lpMN=ksM+3^`pIpQw78fKvN#e7e2;aXyLCDFdl=Qxr)fTw
zHR{i=XNB#5zDl~ud5)|cX|Fqa^eDAVnwv#uqQScb#I=W{u4!0U*kA&W@>wNe{lb2O
zxsbhGT+V0Yxf4%z6e&A`g+7*5jt<@+RMT`ZfC8*u0J(*xahC@Q-1zTrKaT*)qdE+@
zz&J7x>)q&(q=(JyP)0R;O<Gcms25LzUF5NA^kG)t8FQA`$ACh*S7efR6E;?EQ=0{{
z$`q8YjYCHm$|-Y6MhwqB|C;h`KM1ZG^PtBhzND~<bsjiW-_`ab1L?#UP^UEjfw%XQ
zMa<mZ7hnPNrO+@p58@CupMvPkQYL)`eABCeBjWy0Vc!mIoJCnZ$&^uz=8hcz!EMCs
zh*cX5ZD^1li8PR2ooew-mvZe+8c`EG_h7(v<{L$9FrYYWb3rw*_gY6J1PWqPDRgIL
zymhsCxv~XY?@2NTWh;9LQ=sqLD58^Dx~G_$O#WXu9&joJTO_Bv4_a}mMo&+#d!?O2
z(lPUgY*Ly-@OTK1a&V>)RNB2CJ@@W2ON4}^B=IP2-<`uDaPV@~{-|RFL0!;eWvrUx
zs}BuE@yH(q`e`0uXi=j=hxPsa&4DLKbC6WRQ#B(Mc2){*y{|Jq{aUMxI#_lZSeTy|
z3_6Yj7#t_ryqG(qYYG4&6;e}$A3^z0tko%hoMoXWo_%&*$0(^%{>&N*;@>=Cu?-n@
z2oVp^-vrdE{a$_3JgCcM1w;M(1<eC+|3MDS_F^7_w;fQeTp`1B^e89|hCUvga$fJt
zY--(zHvuBdbtO6AL=3bg_Kb|l<Y6l(wnpC>_#aR@mz*AaJUZ(HJQWo&tOzow5U~7R
z0EkpPz9<JSKLyjh@x7w~jaI3<{V~QCwzt(}kG!Q!sKc*MyjpI1d0>@`GZqvSbOjN^
zNkK&I&z{Os3fi;kOP8g}>%l=0XKV#LhB{j9+~Eh-;h@tlwbFhnIpB)O`^|EGP|Xj<
zyCXP6k1T*<{w8j$H6o-MVo~L&N?=1}<z3U$*H2R8dkqSpIs-FjUFfIB$El6*gFUxI
zU5Mma=!*Rgpq18uc)s%nO_sNG6lMPrNQHZdz~imkBX%56%=foi4!Asn4#3)$buky8
zao4C$)c|f9)&+trzN%><y`3+h_nLZ#eiWg8ltKXERQ4)2ARG89rO{_9d<57or|U+R
zCJs^WGu6zAG%vFhAB|2+0|ie$IX_k04!)RD2$D%1)LTMHadBskysu-HbAsXmdCQjT
zg*j=wL~83vpt$wBpXZ^rP5$#Gpk*VtGIRR%>YPXBk{kW!yR`%>62v>guG|gln|&P*
z=om%9{{1`3hlfX~bpX}(kUu~ToGA%b+h6;fCy0N{dh2ysH}{*8V@qSaG=4`bhUX*H
zmOg#@!~?2I<kD9Tr$}i>F8`^<YO3B2_fk!d1bG$wiqOO`(fD$v8Z5jEw1Y~0IiRWl
z-mx}T?d+=vNE)MK<oefT=S|+{IBU}fIGYmmskyz{6q1BF1C4LJiMtGrl>98^kV05f
zZGc1#$k*hXwkJVet&?V=)bn$5b3<0_JwbKhT}-J0Jlwxu5w~v^mmrjw|LgNJc`?vl
z`pqTkNZ>)PPUIy!gUOdvLWWDsgexR@C0n;lyJC(q^_S78RR>>Gq~oQqm9M3DV=NON
zD4>h#>SR{G^p^a%-~yKiy`5NMKA;CJ{fCxZ!Lk^krXctz%W0MG--p&hyeHpRD-6pq
zh!4YpyMvsLeFBXYOJZ+Za#|Wk3izSDnwy)?*)_KA40x_;;i{jvh7D)^wSNLA(Ide0
zDKfs(kqM9~IGOMW6wQoFRZ5Ls<EHw^rICt^4aD)T6H8;Z@uv=m5pJ5AAN%hQml7nz
z#5NCBZ7%G|?Kt5xwNjFklR<g(?Ta9`k|wdf?JyW<ZJQvVfrjDU7pR{esLsFLUuz2E
z>zt=msNyTMCQRdS8zs19Z+gdZ|FPf77;4YLb9-r+>;~4XQ)ydY8r)2H(0_asG-w|<
zVmb!~NIdub0ks(bBE*sfAZu;Kb#+_AG%WR-{pJ9H9*{{<ii<nCn5WEK2}oMl7IJ5b
z0j4_j;4?EQ0k5w)Q?eI3n`wn#?)Hc1;ou81Fp|SBz;ta@H#!9x8vxMvAO-a+eSvP!
z&%b<9v^~wWCzVGMDsI<caDT8J5NPkT{Jso%zLm69TuzkQ4I~R_LG`513eoKE>U2yG
zfI^6_+pj9X653whSL}B_Qx<^hPooJU<SW*x!0<mPlqIY7^s68yMkBTs*9jTEZDBSb
z4}Gjb=4knNcn+7=8^$F(?|J$rfdKqT$$`*xl~!<xdQhWwoZ3O3Itpe%oT~ynS*=ke
zrNCDpz*6-f^V3&+-|HIhc`Fed^AdL{7@6ulS~>ON2@^+lWBB$GyN?IU7l2C#o8^Ji
zjQ-nyafy{i7yjIve7`OS-6M`jwO*Z)Wl5|9p;!iBs0G<K3UmTCF{?_IdC-&I<M+^1
z^8N$xm?gDWw7tLScTEAnU}ey5Qu={Srgtf1qAwgIL?kF+6LO&5VST`?2Od@Wg82QF
z1K-2ngVJ~nq9iq7DrhvT2DtAVjUNsZY78W+<D+Ci?==d#G4un<{_YTHW7f(*OtqGc
zMrM|bTrh{r0~mS>9Frvq1p~rOKlZcUQn*8SaY4GyYrJL$nGFg_zcP{A6a*nZ6qLJt
z5ds4vf7ZV)0wvvQ;Po}Fcn-<c%Odm9?xIW&=X0s_)$LO)AvrQMzX;+%0m&M9qxmQa
zh!i~uw4x{i*zuJ67c1Jwf!UXBn*%*MfQ;Z?dq(Ei-q=KZc@}6!S!n?=0$KqNW$;UB
zsyPTN?Bt5a9&_~bTOR>^#wZ#8S^Hs%O_gJ7Mc2ad4enB4B|AZ&sI~Mjhrh{khJMU+
zFW6LjRW@Kb-C~TQ-Rl3LgQhpl9suyc0m8F%)WWUkR#uxLfXbw79a6H{Et_p1J9rG2
zT67d)pB`mm=azti-hJzLV2|Fgc;lp0y;D0p3kW44>-)Q#>WTThs^R;!0JzpPzJaD|
z+!A?zq`c{^VTPQDgA%P>`@y9S-`@tTt)L3Mq1UY`Ui3i0{vs4C$<HBK1km?EHz=p<
zee+oW#pgh$a8RTM+k?oq<AX*W8uvdk^8Enmm%yzS89IdZX(7aq$sA#1L0cn1T_=65
z?%=iKG;bM7>{k=MGz7b-D?bytxpC+7Q^Gh{T_QMB#p6e@Np?U3gE+^5@biP#EsQ?L
zL=*?mcR)VK?bi+6iiiZloIH)<=77c|tjgnzPcy!d4fNK&yMR<KO@o{l25e(?b7%??
zDi!8M*o^}{{kwtF{oOwr&!B<y<MTzGvVLkbv9hGts%m<teScmuM<_$GIG`A~=^1Vy
zhpG=%T75sO7N8$M^9w%5-E|4ZpOjO94tZO15$M?(+#_j|u(m}vyO}mv``%^_wH#z*
zvp48MfxD}5i;bbv;mZ{b$iSU(_ab%TjkrpnsMR-4`u6}-8>zQ%hr<G(&7j4>G1zo8
z&cN+tLf3w>45*P;n2|p~OT=L+?%DhL+7ZC8;~7}E6;!6qD00dBTseR3?v41}O&nDZ
zY1`;Sm}tjTNO#I%r$c97Y5}ckp9;Y*l~ut-#}l7)@J4uf0IkI_TRCKv%FL_srxNI6
zFU~6kE*8-^ofFW3x7%Q3N1EF+1);!##3ao+MF;$9ZI0LW6aL`}yATpchl5U_4O7-S
z1rU?XAk8>d+sLanAh{+vS)K_L6cmI3-Ku04C=0ygZn3IBGME7G$<kH(tsH|D-;M;H
zMtjh}oO($sI-m!et_Dm4oAoda7-F?;rKX2B3fRc^JYY8BAj)<-fZ*&#BPT$AN+`Fk
z&ZSMyYY)tWhqBQl*?#5=yfDCvFMRRstlHjUULM2A^Y0e(lWtAeT3eqVZ-Yhrsc4)o
zRlfKA&5YMn^Y(KfJ2?QbpgbK57c-l=xz-#)Y%7T%t%A)6p4dz+!%T(hk6Ncx104~(
zs%ndac^&dV*23BX2vbFdRb>OBen#u*NxY|IYAB$1eGkf(H55CLG0Foc_F(*6|05*W
zOiWEpM*w1yEM+Y18vk=IK)JQw#Gmz9uCP9b3r03JHj6+qpcFu+KzQiKc)R}o^y@*s
zQI4AA3oiN9Q-Jvqfnt|4nyVepqnXkU05T>oL21c`Oa%flS`LT|Bs1}<^7558KvIpO
z0BH;Y%PI*7a`%*7p^ASn1?Vu0P}z9Coc1Ab>ExxTasZIO_5h8iU?^0eU>wYXC6bN@
zPsC^TW-4wXA1F*N)1-k`027`o1ZhC&CxK%G+5q^O0ns^(3`9Iq$ue+k<QJ5%Rm_CD
zUFBX(tz$;*Du4kMz7tO_UBhldXb2<>dMR2hrjkLyReO~$oE>_1dZ91FlLGQ%MIJa;
z4d{bQvzAq@=S^Pu4@OB<w<CZLpZNkh8{q_~nFmPD)hD!nwr65<!WK}9KpU)*1`?A#
zn3&%#0D1|8c%DN`aAg{Ik?62<i^ovmZ<=@aXa%T#()jYZCQvP@wt%t25{!iQ8v5W4
z34H35g;-YMX_^Xi2xWWwM2g)doH1x~e*vBwVuud(Yh>gN{ZLzOeA(P@8H7&=C}LiL
zBD2v7z|*P&CpKXGb~zQAInIah8xCFPK#wgEGU?aR4#5LNQ&t|9qG^K8A;f8iJkTT$
zamn0!wPpW76SOH~R0%s?g$F;yG}D~&ZocGG4qRMYGBZ-$?g0B6x9>I!ND2epTr@>0
zvrJj%Qlhbm$za3Hmz?5DKojkh^&C0r&lH|-=We{4b=R`U5^}bymedor*&~2zQnaeH
zSM(oycPB*7dtz$}up#Qx>u);&0`E_W6lF?n_sP$o;lIDcD)Oxh9&H>**jL0e^@sCp
z;}jc+wNCw#og>Z>u#nd(VH>?b|6E%N7*HjlXi=4&lhY2^QxzIaM4cBbbh8q@(XGQS
zVLzsxva{D^LGAiN0h<9424J?SfC6lT4&4jffI$<nlkr1EGY^(ZirQ!!OTO3N8fydY
zm>_^q@rUN9!M+)wq`s==rstX?2%xuDYXPY9tPW(mB~VS^by%Br_`v{}$fP?hxjkup
z(PY{58**?>l|J|R-&tDQ1S~1z?-*a%tX}v`qjxj4SQK5n;c!YN@O}wRRRaBq+a20q
z<@QY*rGS^W++y|Prxn<2_oLftulfc?_y?+^1E2gBJ`}?idjoz^gs>}c=%+>ypzbU*
z8e=Eni2hRw^dUi2&OFUW3?XpRR7eH8xNTq%(8P{7O(|aZD}K^KZxQ5y*CeQ4%$X1?
zA935d_v?TyDO8}*`^Xy@1h?YGm>tkY+CVz|9_hZyDbL3ETdgA;5N4KDp!vNAJ2i+v
zyVEC&SA5Xx-;!=3cwx(#iUF0b^u&kaQvt=H3LS?{8~D$iAaLLen?BJVLo9tAvD$?5
zfbM<fqkIS3LO|kJx<jM1WdJ1%2DUj)K{;jaeSd-s{CJeZU?CnnIoO#W*#GwTFK#9c
z3EGa~n>akSkvIWrb=yG>b-!qIW4@<MIEl27;k%jv{O`Fj*QMw{Xav16xX_ysK$+Bl
zibI62ePj%1IDH&E7<)B8fQ9W8&YI3YR)q6akij4w9b+XRr?}A)GxsV*0nqJWuF+h%
zVqXu=e^WZk&1AuCCX+9sKFX|txvxNBiR|a6qpK+ZJZNTXWjvr8NGpAvXTerx^n-+>
z+@a?`W;pZ-9zZcwg2O4`aUmw;H{Cto7}sQ|=sQX!a)3|Z-!H7VeTUvR{q-aH2%nTX
z15+myxaG7yRmK2w3b{8|?C^JY6d0{oRPk`#3Ghu3n|@}{SwRPZl25{Yl&dkM+XU5N
z`hU)1G04z*YwQ8`UjK+7>l{qKG{eO3SD?@Il&)jgka9{5?GS3>uxmoyzZZ=@xtEfA
zXq*|z;tw^u;?XQH6~Do<aTZwk?-70FLe)Kuo$EP)7oh^&9yv)7uhRZ&lh&onJ&wWU
z)Ghvl8E$;eNZaPh|M=Ya+j|;viQ0qLk-UC$7g&=J|Knqpf*e0nQdTeMv?V5>|LZ|9
zetpZ!oUg<UE;(iAmn5J`HVD@Lo<^AVVD!oz=t5tb3^p+ed=18bf5C^1UlCYAu*jSw
zvaZwQ>E_=r456d@Ntc?o%)m{j7Px;9e{O?_{9%LXzMcN}Hg&KzUGvyn0UsxWyv#>}
z6>R@;1f4Z_)-U?Vhj3_`ZB$x;Nk2Q(Tkt@H!2Zux_P<60r7`3>_y&>E$952AldA!8
z&ji_Yn@utKblu?c8VlSK9+mk5{!_26*ooG%d|L%~3V@IB7T(ji#FAnz_EXA;jdnj_
zba!QIzEG3T4VKI+`14RPe{in?U34gT4D8G!L1we70-?k-84XM+T{n1UOoN?!Bi`~p
zeEEaDynvV*W%l*~n)1wE9t_A2?sG27PKdizaZNIQd-YgxW*|Flof<5UH#W{mRHiPw
zxoBTL_vJOPO!Ugd4|dz&+0D<EcUfHjS<lbtZv#XBF71E2AK&{iBTVp6nvOB=KW9cm
z4x`84-5k^gY4i8szxsmVKT#tZcLqIPZ*Qud?pk*&_u{{2l&XP8uNv)5#g>V|NWGye
zRR#uspXC7mtzj_uirH70q9$tf^53)HQ7?YT2;)<r_+-~w{`=k-@$}C=v|vIz7FW*p
z?|VDS;0ZONXUB|#|M1^i;K2K2K6aZPbOkcpCW?6c4f_6}<bVBlTU{esURj9I+EP2(
z_22i3KfTU9^oP1K6_#1x?tnWmDr%`^{ls~go>`gx^i`?LWj)efmqbtI9*O(;wC2Wa
zOt<u>=TeuB<;Facbp4_8mC^6qQ^Tx7CiWW7k6k=;{gTT?2;}h<2>w=xdQ|3+QO>z3
zLkkjY=?AznytRMX9yd99Q07#6tF*KoSNiwcZK4y;f(>YJyhx4)4^@JvUi0byxj#Zc
z@ShAgFLDU%w1Vd?b^pKi-aD$vt?L)1sE7(EYz0MNyH&6OA_CG?1Ox=6OAUyEw17Ye
z9o(X9rKvP20TmTU=q-@Y1O<^MB}7^XQUZY_Knw|lB<CUQ_dVbE&iKZA#=Yk~_uO%B
zhW<gGRp*-XH-B@k^{fc)AcleQ&iytQE%^XN0+#jP(nOs+ir2u+1QP!=Ob^fC_1^A@
zM=;bLW@n=)Q9rM}rwjmQ9v&0J)^6`yE9X0YQg24&5i@X~Jw;qiFfj!lY|$6}_Ljr@
ziWH=ZxVm#eUfiB*h5rxD>c5n&pJOn8%?AyXM%|bL3Epfyd7EVK3fi7w>mE70bBrT=
z2+?U{UM3yzqCuvZ-5732d*n@@KyxQ!px26S&b!l8hoYV%OvQvVpAf4tRD_!6eeTM=
z&<@3RXAp%jjv4{=5vGvQU(qpUWjO05B@p*m%<tEx!#C!LS;{GjrF|u2JE^JJrGV>@
z!C&mZ7O90co|o;L&{!*kT~Cwy_JCa5#a8;JU~ut1t>}lTHjOQ|FlT3Mrhh|)=jK)?
z9F*V3X~>$<b&0}6j&YZw<9e%ROn=_dma=f8TAw795IaSLiwbo@MA~C#hF=9k36xdk
znM`Sq(oCs03fsL@#O-RNLR+#{Kg8QFt?>_YTgrG53uTA&BqD)=qvcqkczf<mOA_k5
zl&vPHN935>2&%t_K@qM#vfakTKt9|?M0XE^4nHYU*|)y9!9;K?TsQ$#U_E5kS%u!F
z^<$c_cV_Z1y4E6DIyigQ^zV~g>ny1C8xXqiND|&@L&?*Lc7>QhuF(uJ%p9jk5?uBZ
zsgC%WC~V3%Nhu>Yznd3BDE6YcZ#BERi>;KU(5=lMRF$^j_LssOnjR!ULhPn&ntUqy
zw#OAaP^I6#85RLS6U7lyK3Y&u+7vt$t}9v3T`$-7C3t5LsEBQn`huQ^X-5pf(KdzF
zhH9gO(?5x+m<G(0IR$%cA9w9@a$})NA-108{_X*{Xf&bfpG<`zrab>J_g&u)viSQd
zE+FkFd^TOOe#Zo)coh+=9mI7K`s&1Vy=N-vjKc9ZTzOqk*?v^_x6PCt`-jc&QW#n_
zQA{j*=8v6oRYy!(HFYSZb>^Kw_IG<mCd+^6?;NpeeS7FX1IqFz%@{cmC-XBR+eNMU
zaI}@hb?4u<U+Ly?y=eRRZ~QsjxU@9kO?MlqrySe?;u$$StR)D+H18BCE7R=>*Q}c3
z&iRG>v61!&kB-6%aDW^EjZhB(8mZf#NU5&iDo?DbA)s<HSx57m|Kk@N9p&iRciG!j
zcvNM??Q>cXh(fbYHKE&-g})IdCpH!u)#%mgfEFm>s$Al0`D5G)|9fEXzXXW?5`4$%
z7WPOyv4YE~_DJ%9l$+>d{BSZz+k3#Yq}m6eW`mVS9ReoMVg9wlyYXE(u~mhl7NG5#
zi?fWPz00{1D~7OBL~V<)!yG`&#zs`ln8wx8cs2Vk%vD}*-WezY?wK2IX$YR&Lhp%M
z_~xUr^v%a-b836};!S`mkpbb7ZHVk$jaU(DksrHU)>J@~@<@NSjFBSe$CC*DZ6_h|
zc^<TLbh5(eznsbcp`PepE{XSeE>YT9yB-CFcte)Y^=k&1v4A=A@c3%z2{g)Cw^(b_
z5B7`im_^Cp3tmbWW)xGpr=(#y8N8-~DjTcD?|4!nk0R~Rlp@?{a{zsrXn`RioRz6y
z&?F+ft0zbi4pwgR3qck)7i_K)(eQDyXWs}>0FeM+LioUQvLmBq8g%@)#^io+cpom_
zM&xy}Vo`G)>fvT6H1&HGacz<G1v3t(+W|Na$LZWwl*E`@mrwLl6^mSyrDW_`&a@YY
zgOZD+m77>@v>w@fyX{%HJ`<|_lfI}tL#S1p(0(m)SrCfAjm^7!Viu5eCrUSI#PN?a
zQ^fA}$@IK|Uc0MY6E*QJilw_L&(Njr;W7@V#CU#8DMYGEfmj_qGv;>v{-SaDYEfi5
z0&S~%F=`8n(atW3#5qisZcZtytb={H0DPhHEg#Oxv%{|ZifY8eigaGe7v-5wq2X==
z>ihMmJYCDlY9l-|2NQ*eDKjf!-}UHIQxS}Tn)?&fM)Rg0D??i3x#KSuI=q6rtc<Jv
z`D0Fb#@+UKP7}|#+5v7mS*t+^DdiNXs(qIugtN$^qBjUZ<-paEb|X6;=lgAOd-Qt^
zw~zCES?&Z|Xm+x{v$I-|FSCd7<5BqN1L@1kI>6mHx>Y|{1%xeq*0%(t0!CJv>o%LW
ziOcj5Gu=(s*8o}E=Q~C3yuXUYfE2c^P4$Vq=@FAjpMj*3>I685G{1jFcvcz{l<ia>
zWxrg;F6sj5mv;aLl?&3893;Rqk*KA6N`ZR28#xY>5gIzpn{7RnP`fEDseBjbD?!UR
z<(VJ>;{AdKY7b+Kb-cyx%Z#Gb`;p}d&F$etqqglnlN7Jqy|{?!S3o`69U7im>Ip<D
z0h6WSy#NlpXj#Hz)yI}R;hy~snMn)RFeh!5fb$pVJ;PNSuC#T1wNG1s9GlC-$AY&o
zlUn#FN7~>bBOQazj(a_h-cVaa3Ih_YuGR?Gzzt^lyHy5)ezJN;rzS9s32JG|2>Rs)
z{P^@{A5jvKB7A$lD#{%$4H<l<%}z$T1S<w1gXnoKzoz$p+ZV;d^EBud<|R_2(kid<
zc;>r?SyBv!mg(ex;52Q%hL7uRPEY<MLt%~}$uB~gG0h2_HB#+nfB%5Zc(Qg~`DR{W
zPicA5>|jeY6dSeKw&q{`LFryA8mksUE#0N#1apRs%-;3Qw4;==^&p6>uyU!Q%%piS
z)4D4~UHLws=AR6CJ1yK)F00qM|8T#!O}S*z$Yge-!8)@4qOY+?BW9J=I%)0_EExoy
zAy0AvPGY#u@%U6%3a91BWCyDLCrf5Ra;2=RR63Lcrhn}X4=ac&V-4?);K!+qhW8AZ
zP>-RA1v2B3D^;hSqP~t9=9KhA*`@OMkK_?6F*ZY;on|uqPtm#)y-4tnTkMA(TlK8t
zocY5kBI_BmVjdk7-Pz=A)s8iFD~g4BrhZ?q#H5f241Lo&FaxvhH&uZS_oU&8G=5s;
zp{6j8EtKr}EIP`Q7BRHyZ%zRXvFTXt;+*n#Eb7~1+~~c-3us8C`N!;CXCyfAey5+Q
zZA~7eB31Pf-B#SZvs2Zc6d6tHBF<n0O>Jk`H)`EA2wSo_?_(x^g?P{?82OKoGC14A
z8O3GgswHpN@y-a?{>}OXU?`EPzeo7Li6-`}I%A+VSiAlbcD)e~drH`n>LrgQ0Fftf
zFJ=nO=@Yt#U5YZNePU_FOvxgG5bXDxUBElS1NUTbP@xIn(oKNVUDqqcM}^fwG<1UA
zWasqC0mN7=$Jc803-LLtC*nS>gLo96Of&ExINjRcuWE27s;P*jCweo3FW|N75g(C{
z8|okX?*xyo30wjbTlp`&PqAN6(Z;4X_Cy{t_rwkl`q49gXoZb;%RRpnE8RKm2wYbL
zd=iJXY*(ZmNqKrZ85ED6llZ1+VHGZ}-T8Ec%YAtMCqk_8J@BCAs}OFZcRm1kn6n4Y
z1=!YefHjuYd_X~IMMO5{tZCh2#x2?aQ5&F#Wc8@X?HaMB{?fb@q&24iHDvc1>P2H=
zGzs5#s()0Q)gP&|E=RCY<;TgklW&2D;^`yiPDlIn_8|HZ(f8(84`a-2M2g9mnqV%l
zfqOKvOMgl9-BulLv5dCcyp&P|C_ii~2h)W)4;Qf(H}jXt?bH0QnVz-L;xGw*!}V)C
z+>-R3#3>i;ma(uG8)`O+C2ZgMhC-2HE+22TlsJcvn&@H3A+!-%lqUep3;%~FED_}y
z>PP@?xAIK6Oc8fMV?SK9ZjI>aVSH4{MMii;E?;fpj_JY^Kt|@hiRMo2VaV4<V*>x<
z2ms1x?$RD+{`zQ3#Os~7KBK+v5pm0n*0{((A~;qs&f&fWcN$tbh2#3hMFNMkRebPT
zZ5LUo3Dj-u5BS2|WZyOa&*cumCzqD3FhOwV1n{odUVp&ZfdIcMQe0<CP!){i)T2DU
zOw7Owt;_wUn$e!7{hscdWkkn4Wntf1X~4oH5quC7P_Wqk6;sncNg~@6O|=CWxwffo
zSe_m1wx9o6`!W(?Zs%!Em_TYkzBFJ}M&WKyUu)grd$qI?UT^KfE>&q6scqt3QR!Ez
zv7V+0!FuYt4>Xk|m^ZOwf?20CM=o-r`C`i-6vZNmYs5SZ2X2-h#zttY<j>^VXjg77
z$3|UjTtaW?bjQy)7Sbd3zya&^4H!?>EEAIn7<)H<N8B+*-D5zWr{dl=Ou6LyRGGG)
z%vtV62k8cdsEnefC3ChK`o8efxx%mb?I~cx*gPWTBa-4%MIg(6>@0)fN^o3=xpIrT
zH`J5l1uEKE^Vp}jcU*gjg<JyYN+y!B@2#h>wb*u3v5x_T&@LF$k=nnLbQpQ`KTpH!
zdf(13A)Mnw$w5zjxm~*|=NPs!AICo|`#Z^z?z?0C7cHrGK1KM}MhF8hG6SF2N-44Q
zP4(fOTD$*Y&Hp+#;wM?uSILjzHsYH8bYH0du_EE^7I_etty|Hx;pE^*8yXW(Ze2Sh
zEIH=<HKpx`t#H7Kb?U=u!CUWCa-o*AZ;K2-k%Wf1p;GHdwPF2{yerDloyYnjusw|N
zJwz@maXotgs21)Ki96PZcJ<h*aC6u}7GXWVfq?R?Rfx|O%4XJT6hH~8>+h$^U#PRr
zv;{f&YH~X@PzK~J=GlS92H^6tR^@?GJ$2URWjdJIyAYZ3K3H;psdP*I$adk_Bo9Ej
ztFl%te6IKdq=&dodXnKd^(I!wwRyi%wkORK<4h0Qasim-lz)9W_dUUjclCBZ;apK}
z1_rJP@z^rwr&SF^M$uj`k_rT}=v73c^LflWkoD(;X5?npClnWx419o|$~`-DYoAj4
za*uK_SDSn<SC60DBJs{o6z9a?TpXqBV78Ox8g=2co>fp8SlKm&JE6VX%mi?AiMB|)
zWi=b!%T$K>9)Jyn4fimV1zuBYvQ`}tGKl8O)Cn3U#m+xFjC}TSFxOQjjsPH*j!^`X
z8IGy)0_(_czeX?#2#z*&;yl8HOQ{Gwj7|QYu;m_xr-<be!Lws3`l}RI-Z^b`ygsbE
zsZky>m!h`X7D?5Zc*G<IdwDe3bwofjv`9UqTKv_xC26!jSD-ghH|&K2p+C`FH}@k~
zw5yVr@RRo1@4}sFC0PXXJlr}#2ov;?0JhDCOJ9_l`iP3u4NA^CDzh9^>EjWJXkYe`
zkAB}poIYV2ITaWl6A#2^JOWT-S_W}F0elbE)Uw&P&gs}R*0qNX%qB7JKXj*U5n}*!
zc>^!BYZ<QK=u9ny*eDi9LkE(0eD~;act$O>(c${3w^v3@6^^Jbp=75%gY00ME1gq+
zu~AXH6n8ksQ#XiRxtX!Z_$u2HOzB_t#`g;kP7){3C~B*UzfyoU5560i1AaT0^!FF_
zjsYJIYC$S;_E+CuncdY`VWCxu>fU}xF>2j^@vpEZy-+jSpNph=V%#FtPE9a0vx`&G
zmzxZ-Vd+Ci&(&L|nq%oTL_L8b2%yOzAq@W9Rw(VfQ1zemFBp;FmC`djvAj`BYOp~B
z=ocgb?Cz{Jt2s52ZYQ<Sw8kH?M2QTdH;l`-tbKmTtcFIT#GAJsCxH2Xq(taY;x$%%
z$jAlNc``9b2iH)(RjQBVttc+(%#U@#u026jv)^vsN`>C@AD{ghIA!UqtV}S^aY`fi
znO?^m(&u6<>pygTTWG>v&JUscn75ZoxEuxZ^8|$~4>+P{j5-xiNsvm~UwY$S)9=Tn
zn|{kL5Hr6L2;iqc1?fm9bhZ>5B-i}qN67w|9>I$>Cv5Kp21LN+0M)yhTJdW)=GhP-
zM780;*ayr>1P7_%HJ>|f6El1-As(LKFm;%lmTld03hyk#8MzmOY)VGBI7hwh3OS<a
zFN$lfG5WzwlXaueOl@^Rwo&w76EI9Wd~#`kd&^VBL-`>a4RMl4PDvvxVVz{;l)C@*
zB$J15yy@qvK1NM#bZrMg0;&5#Q_7?#PStDGI*^`vct+2iEm$YZ+6A)*hy=uV$yy^7
zkzdBHLV4+wa;vy22e(FCr<q`aL{_(YrB`exf6QL@E-xe7YFD7lA#~#F#npaQK?tCf
zHqH$%%(g4V3i*AFrOy(Vy{Vw}Ac+V#^`jcsBvd4cfA|<$Q+z@75g|0`C*-kzoCPS7
z9Y3_3odsnQT`(pdc@Y+=rTc8r&fFpJ2#K%gl!UhiM_!}VVj>XTh)HFtLb;AbQ+@c?
zUk#bIBE70yNayjnWZlaAm9<LEUOvf8k9=cP??@Xd`J26^p0HaX)0!Xmj04derRUe`
zukA7M+^PL%99rk;(Rc~p6bcaXN8vjH+XuvCYQ2f{k}Dw_J&f0fJ3SOz*M<0L+&~=g
zi2FhnvyS>ZK3ty2S}nCZKCYvz6Y?KPNlRa13h3eTr1H#=-ElO%hcWTrJ00DRh@w4r
z_s==nQWbR`g0w5oQePkWXU~8?ZF%^mQUqWLorS8SsdOm}0dCme6G8eX8%k%+NyAfY
zDcQ-Cx}QI`qYFd0SWXE(YWcaku9NeX+lt)YOt^6bNP4UfRn#>iqzhtQg&@44G&@Yc
zji=Bs7b#l@0iW!gq-d+F-Q-se_O3$hFfqM~JYGu4HrMAimD2%4%v?Noh5Zkyp7<&O
zO1|{ZFvRMtI)>}Yegq4jE@CBnGr#ZT{3=xI9&p={DAu$8#Qf^reU8A6VqTv$v_=b0
z&v0d4ArmjU!X7#{Pxc12GU@RvmE0Ovc>bloE)ElD949z&BMDcpUS+(tn@6L2^7i$x
z0J%Hsm*Y;7$vMhtKdvjhG*iDF!GGoTE-5T<Y))Um+D6!_LroxC$0J7n3b9t>#_>F{
z+2*YgImF$VZI40eo1UqNjxOG8c;thF;KQja?}?`Jz!>L=XA!x~JmO2L&wV}A+wfa7
zoW9z&h6J49r7(p9a4#{FaL1BRwlXGPx~<b~rvBaL-C9VjgQ1Gxt<DO*wYQjclA-V7
z*ORIo+FmGSbcluy!H)5b8`?^t{d^qf2QeLiGi8&LHJ<$gm_@GKV}<ay`EcbvwDZRl
z5z@9Kt+<r-j#Zzb@q;clFbij`+f5A-(_YZU#E7Y|0l%I}g8#&56K;*Ir$JYqTK)cE
zZzu?e$HOP(6zqe!PMy;dCU2ru9u9^WLk4nnxN%dfrDodUMmn5dVFdja6&Sw5TaHT^
zw?=%z@5DY89yy$E7Tgue`PW41e^8l!=O)v?Ozr)bTV2C-`f9D$qCh|#%5KtE<r=%M
z79TE&1cj4^DtBmR{n39a<Y8blW6&*EQ?fPRiRAKdD=6NAD^u>)h4YVQzazq(r<q~k
zZXPZXjeS|AzZ0k3wEu*T4zbO5o>7Np9R&?%{vEeoPy)6voGm8bcBu-rI5gE^1Zp+M
zkWKAp+mUtN<8T4hp63+J1Go8IvnHBQ+lgM!{Gu|4xe0eTv%eC^@0b87$UHy?t=rjU
zT1PYyBA&eaczpK)8zyKU+Bc#)#@|}kIw}If{v*es0Bbj;8_>%Xb`o(_26VSiU#*fy
zTy5ig24<Ilf4Q_a7OeVF+`8O8SnR4zi(?dJ+uPgO>NYIM^6>Cd!t0wi2Z(fd%Y&+K
z3s#tzVi()Vn)(r2k`yKiUdlg=GJ#k^7I|uURMBYL$@L-<EO5difqdUN7cy6C1BEA-
zfbV=c3oS)WY5QX=48iO#LHW!rnse}CrZ<p>_T39D)tEPf`YtIMDxxwQ(2HX}=;^`k
zZ}by9KQ8WSTq1zrRtSzmQ$RR}g-L~{T&O6=gbw{ujkB}yw6+tr7I7Vl_zCkLIxiiG
z)JIk-kQwta%N>(GoP;S|W~m`GQ&U<kK3O$mYU^<ja}l(W32=txPVGEuiCI0R2}t-%
zIIo&>2GtcgG~fwO&yOt=XVnZCrr);ECf`?-!FEj5^>;}AV83kxt**No6ILr_9i<xs
zHW_m8nDXXm3n4D7&78zL=Q?A`F9WIfa*Px_rU-Z2kKLlg#Yy3uSm-LdX>*KdnC&FL
zm4!KtiRr;|aqG%n-k%*6=uHX+hM?QXSySM33RP#fJKNrh0$<24m9}6JWX11sHR{S6
zzXWisVs+u>3=xLWJ2JtI#ws2OhN_jF&xzaF{AJ$%J1z2W+1vfUZg&4G@q@d=JRO2@
zKQ=G)h<S^G1hSIbLd(dG&BTP7(rN$<_s55Ce^n8@tFffR-&XB%4}5$mr{pJV7*JQ>
z<5~=CNhi@w{q;g^Qe)|3kBHkV**X~bQf2$`zh`Uw{|xc{=TQ`ItCfl-*dubX4YfUa
zo+Ewxa5P9h5eo1zZ6GkpFEw-0OH#DPn)z=(ZWRUgN%QmJI=0#f6zNxkfOU(Lv#qw@
zwJ5GN0Ld|DnJMR{t=~J5b}^PLmu3J=fLiAS#R!xlBGf|~<fQ$v>l{wgX3Ei7Nqe1z
zk)-ZK@wV4qT#4aSMu{7sOS*I#V=$+No8E7>6Vr%(L+YI3E^ikQ7ku$=03CRAdIhFD
zBU4-k#Ar(hIotB0=y&1X5Gz`uH@#8P>B&&Gud>pOg{_K3mc@VHRfV;b13V!gpo&&7
zdy;qHwK_^MxFk<oyY43EgVBQ4d*%Trt}o0;2DYrtU`Ihs&o^|fq^z`&U3raawz^|?
z^>F#+I@a6g7R2EGMLMcixw{p2ya5OvukF}~fD`PHzQ9ItinZG1QIwm-2}&5I{DAdR
zh$$aViXXFW%&{NluDej7i#?&tbN!=M+STFRzgCZ86h(e;vnUmUdqWBSA?N>eESqke
z#H1qVw`5u>HlIZHZc8%utlRWfRDeh1w`2WH#o@k?kzcC`k{&Wn+YepE4gy=M0v;VA
zT5(kW5^0O5z}F$%TD{x5`7(J&b>|QIIN3!xLk6aiTww7%GJa&TRkXflGjB1p(`|U;
zF6|9bP6U0D+n&{SdwE3jJ#gBFthgh$M#bMg?#};9oc{j}^x4^^^)HLAal;*~=lo*F
zZO86_I$MgZR2}OtYYxI^gS3HI8u;AN;B&E^QO8Ik0OuHPODn|~3jBvdEs>Ss-B)X+
z)tjcYZ|{_MP^jXPv48K0od0a_|69)mZS$?Gj_?A6JE9a*Ml`_)Ve)pbb3LPP0C1uJ
z`9Y&8+=(_z<Q2$bz9jY|pw==)A^lC7T;;nAuz;m!7$1aYc_5orhy)esIBK_q2idN3
ziQDL7Xp?U-?sn4${&+OjI@6RwC(IH}xABClr=q`=WrE7`)TxX?Vh=GIvufHbEN3le
zN=bRG6XO6eNX4Kdv}?n^OlWeKK~)Q&W|PI?(>*id+uP_q0M&v-ZDj0^_}Cv)vPoOq
z%Fj_}&tU9&3%Ly0^#X9zg}$7%x&+U(MvvTahtjHuHp=}hyxYzU6M-`xY-wHP=tZ}Y
z@KIhOchDve#@|Wa;iKmq1%<z^RnWaU8OFpBJ-40NxH-jN?P@7xb<EspP?E!{(nl&m
z)kyXYR$qzQzhE-n-LXx+)|pfF)E9ls$5cfUNgSjUpeET*ZofizWY15Hp>`?0J1@Md
z@@u}|2{#2=|MCbu`WieD^`QKHr|y#fShF9s<*%}>pUHX}6seeqha#IJ$O99-9l>90
z)T9T)IExK2;{yOws}-?x4tg*ZU&j8?5VaDfs|@rqB$VmQPM0Hfc7j-_<SWD?pzY8Q
z=NQ%r7?f0~a3>r4Jt<RatVODiNm8q!y;c(j8m?w`=rMJofTXrUzt6&2zsz8m_!c|=
zSC$%Uu65E^3k^L!M$yx34!{gHJ`HhtIQPzRJNzX08$u?68*AIUuX=DW58K^_?GgS(
zWX*tHMIk4D>Aqs4--C+Y_S}S3cQnw|DcO2V{g}^v&fSfQ%k{;;f3IYc?-idYA?;sV
zKAB{dnz8<YPK34{WukVD2s5FnYqWIr_hYUUqPjQ4U6eaRRNrHopXykUn&(k4!^o{a
zKWy5EctJ4d2zgeMoFQ?L=HEs75a2OLd(wDW3*%MTdi6kLWe#Y8;o4U$9X&%(<K#4)
zFIiU!z6O~g!!%PIs<7W_m_j>sdM;5=vux`+?a2nDW_7!S1%#BB1J;P{a?#U7n3o2U
z)l~#9GTXdkw*2-XqJ*NFH@EVDSEkYT%HKL;<isa;0WWYWLhKt`it;W?=@xBb+lwF$
zw1Gti2_q(4Fye6BVzSBTs&<@qsm||?HRu|}H=rW~m5uv%Rg%lhVD5^N0~pK~pVu)2
z;*lUAzpByVKpIRui9q*mhZJMPHkBUT291YifOh4BY5u#w2(nVAi|RYY+Rg88i0_Fb
z+m%oiT^t`oWo?(wgRE%9=E^QQ5rgtOxw(XR<TNqs$@V_LLa#|I3+34|<y?{AwWbGI
zPGiKOF?mxLz3v(wAODq_G3@terqOZ^vY9rBD8d612v)YmQ88f>D1mUk0ZowQs5;8p
zT@I7t<qx$@m2rrGi$E5p0+4nbEvuz?fkkd+K9*kt)s;_J7V_walbbq@(MxnLTDcoS
zmSeTK26nRMR?PFdn<-_urk@S_;ks}f@V?T|5Y>(9Trq^EwMcO@x+{OFC)}4-wo$vY
zrBTvpr&jBKnEZAk#Kzp7(!nJ%MUFO{+O8+^BcjXXBA1a_K5p8CCtd#7k^2#;Q4kpy
zU_W}_TH)o<a{5zQI}+<21Wcn3F{Sn|0&h$FANOH!#?bT!_VCTtnW>=urcCVIbFD7|
zXAExKKA8A>(O>;%p5yoK-6v}y;H<R3$d)+le)Zj@J%-LFyRYe=YJJ0hRN}YvU3>mi
zNZRY&IB+QG_jAvF-y8TC|3x`wnY=h@svBZQnoJ>5JWE}W<VE0R6&A`2Q%)bPHF<T)
z=->G7vQ@^%NuJ`jBm615@_3d-j`L|LgmWxf`$d<+FRi3MCtVR_T>Szu={{OeXVdzr
z)g-o%56$lro6m>k&*Ty3Zz;nqKRbI!CiXu5XlrHbwN`MeL7P&@*#MU%PPMP#55XVt
z2Xo|jBkH2-j@2KkKT>~?acLz-X=y6=V1E0f!di9<FN1I8EPfuPdHYTmBTYj=P9B<Q
zER#BP`)>Zo!M<)Lzd#)kmlWW{dcG17qCTy~>K|QypJ)^_pTn!Wr!FPB?tFkrZ@9_1
zLj}6K`i>U}fq3)O4K|FjKP%PTU^r{?g(|E_;E}B&v5462*m6F)?Nrjcz|JBsb;zQ7
zkzg34OG4#D;nOwjd{{r??XAS@S5_vL1yZ~viJ{t&iJN)3x2N7<Ww5xMOM#txT@|nY
zc@d6dJ`&3!=?0|#B@%aU_TwQMm@l~m3pj;8SWwrKE6<gPIuiAsH()ZZbt(Clt7joj
zW_o0abS>G!51)0Sq7pS)j2V172w7HE%zN`DO>9YZji^#MMgmgCgS|JNvt=x!7ja0V
z+yE1$-!ysV95gXI!zxqjY4$6-%;y$Xf!=2#{J_^;gf`rV-{%51H~3{}gd&TZ)b7tF
z4-^Or&R?nAs6N27Fn*T6W(z_(%5{s;V!M-4OOPPS%_4f3`!H0vIwvvXxq0fVfeEE^
zhpArYD$QpiuQ~9NdFs0B&DBlUlw<B%cSa2arfP&*xz`j)HO@%uDasV|eGFdt_<37&
z#qLE$VUTAMDrXCy24d$w&SGBZ8kl}7K3zN@%wM(#XHtLoKGbzTemqUrP3EBAOxyMG
zuP301KNHB>aTZ53MZxlpd?Sazg3p&gydgy`=k;fk`!iZ$11R0y!n^BaKYKRVOce)r
zdeS%1mY=6vJq1C(=qDqSeHJ5eOM=ga<bnMd7d_&{Q*v^uKa%J&1c!P`U-^^#S0g&z
z^ckZyxZkf~F4>~^wYk-^sLkWkT2v=j@wU~WGJoYZ(u^E^SPg-#GK!k_Sx6L(I2oX4
zjV*z$Wc+0@@d@o;{M7trvHJo(Zw<-Yi6r`Cn@+FX!SBK+CNk5;FZY*HUsz=VvRflg
zD0w@W3EeO2HT{M-5tEpmW@R#X9hJ8xw@fYYJAUVZ<Y}8{1K}vej}ang(R&yc*6R!3
z<YCG1&f8m07=^92dfz%?EZC8?9({?B;3*yG`im+#{kdknn<JZHp4MbS+$`87Ni5$@
z_8~YY!%69!&D4c6mF7(a(R)}reUDMAUNLSHR~N3lE)>RD&wM`9oF|0FsdZghwKtJa
zA5n;qe>+pWXq+2AuU(i7G^76w;a;rdFr0g=1Ffof*F}g%&6Fh!zZyRC!Tg8Fb7D)<
zM&ni6X9Hye8fQ~~wJ4n9)a~=j{Rr>;E?z(rmJHIQ;vTJB&|n63#$G}!=E?Z}_?lr8
z7uW2(9_tItDvgmi`0L(f!$ji|wf)A+Rue|F@3$akCK$%DbSYMvh50P(ax-P%kC2t?
z;gM#E-zN3G3W@9YQE!U{5?zW{?cX<|?2HqSs24u1@uB`fz}!}h@d`I9ZOaa*eDz!7
z1&3&v6||Siy*6@UhShr5X$N-Ld|eOxiakp8?H1>GM*hnN`P2~S8m$NH#?FIz3;S2Z
z+HN*nix$W|0$h5J$x#)v{8_yKnEf*)#Y*#>cXMcEjJmwd&+1#D$JAOue7ax9-i;1@
zo=V6C%I#{@+~lAa`d(%$5R`^L=W3|vB;?u^etz&W$onQByg(PB-fy7Gp3C_3?6+#g
zx}FX~S$~3fr+nopd|Kd}qnOs5cN~xl+(OwStY_`v_54d3ZW(^k@*HaHCG(_=ev=|<
z_rRJ-CwRcu=vn`}Zm9y<4lTM4X}|B31KSW^b^u~#mCo3ba}{aJoUy7#K3KoJO8=uU
zjiL3bk0R7sXrkg_FsJb}JKL(T!}BGTm?j|~Xa)=SbD3>Kd2J-jCrUM1DlhNXDyiL~
zw<>=8k>M43blR)sp!9)<zpc1xn7dCNXGFE#TTk(0Etg&}%PmXEpc|dx{Cp7B(&Lv^
z<Eh^*e&9^CXU!HZP9tWpntVZ*22D$2TtERDf43)SdFaygIz}wEyf%8>5&!xaDf{qD
zho?CHap_#U;KK)~bDiIp_7>#&^Q(#)JcI3S{A;BmTh{2Ad1Msl#7cKyZ<bL*U#V$t
zaVIeMdCXZQhnif}x7x6QHKHs*@zr}?<G$h`ur<9}8LMpsxm$C7`W@=hPl(*gt6L;k
z4SY4sqz2dWUHkf5Y|vsd_T!2Bo|E&frNQg&<GgbU9*qqx84Jk+8MTfYQpKxBKXg%_
z%ssa#-t@SJi3;C6EjYevRX2lGxjX}`yAEP6l2vvv?;;NIENCTJtRPev=T@H7`mhIN
zculu>bt6cF856$b>9e=R2lU6pxkyR3v^mGc;Jd2V`ht9{0*QCh85gd*NSP#A3<VL7
z129Oyoc^a(nf+KD0;`FFGqdd=?lrqtEH**DcCi%E`6t<SHZ#>yZl??)CM9F_77_y-
z_(FE!%;b2JX6imh56OX_U8LAY$RtZzu8#pf{uZB>FezPHtw-}P>%9U@skrMwpG10*
z|B>O*!kMFyWo(IR&Td8hbVlPxn|0ew=<&;?kD(J1A3|2@Kr-@!#IB=qI-Uk|F8cMV
zlb=@@xqXp@q!++_t?zSDrDl=Yd3MMov4W3;VRZn>`Vl7cion{OE`DeXtKhg>Q@V~W
z!JcX;g&&<X_mx`T{H?-1PuAQT#yD>1;5!C7FvID0FVVSL$jWzPoGGIi+=rT!=tlpf
zXoXZIisf5mXD7}lT08^94~sgszT4}`#Y^)x>XMqf0gaK<kP<MLx&6@#a4#JTXYfs}
z?6~9%Oew^cU*tq$3F-;ieep|_PqxU+XF_Aq^0PPrmk&-<MJWqPNp~37&(dtt7BI{g
z!0;st03`d*!_TeATxkBC{Hhq|ReY>K?Z(oi-p%jOQxingF5lh94@7F7gUVCYE)|fK
zeqF-5Je51$c}QCLAjcQ?^H;QnU&~(uBA@FO&gE+i;_Dv3>}9;Z`%C~B_xavsXks8%
zZGRwnNYt%{NY<v69W=PsTkvqEdY6+?;bXTKvXGUG&89p1osM9l_ER?|UOt=&vbAoG
zT3S(wYp_&1dEDJcFvzK+;ILh60aY#LkHGwRz<21;7#ECPgfQ+kd(|Nr00ZYR4S+7q
z0|<TdwAl~lAnZ;r`kd03x&uK6e@O3}0>9mjIgnk$hoP4<5)OtpuPA;<y)}93rg4a0
z`l#Gk-=xZzrk6=;{6Y;Y=>2J8=8dK0{Ce1xN8@l~_rf>ckp^Ctm$EetKHSwYP5n{W
zwAj2mByWCS>9PC*$2rO$xrG8=*99o2lHbZNk|T{s_g?R|nW5^S%1y<U8r_-g7Ne3`
z<rctOVQ*#Uh9N(z&xApe-HW=^A-cubdHpT~vpA>a^4Y?S_Xg)5w&}>hgYx{Z`65IM
z7;XZTn`byhMO*TR$F7*Bq89QG`VqeUIo{=Uc(Nc<;rFP|BZ~v!@p5TXf0AzmOE>?9
zeb#@*)W{&Hv*=z=;r&<4;J_M~n)sLj7_cEBSl?Ii#50-{sm4^Tr$5!b2y-WHLw<^x
zE4~Pf{N>VJSNt94bp~=k<#b`0WWN4agj|?(c4uz*>oh>VvzYebE)bXQ&CKbz`AcDt
z&qniy&g!R2IR91}<a&K0EW*;q*HWB?C?GXf<3j@NP3aF;j&_&~&nSK=lue8AwPrKj
zYlAh29iC~jrwSU}tu^L{E-prCTpSzO*o{mzfibk?9Q?&#g+cU)(gSCh*|(S$gYQ$`
zA`QmFA)iRImTEfjH<oaj^=6T5Tu`E)sR_WV&Z<L_8JD%o^L~Xrzy%U5AmX7wGDbYu
z=*Bf`ORk9;7N@pcJ^={#$qQy2i&)ewavwkg>t_R*?;v@vZa1qPa@LJjF7yx;XBmE%
z%I`cpW~Puc5EX&XO5|j6n%>d;Z=K;3T5Qmh8%mA359M3TYai{EDlqySIry>C+&rO<
zKH4@8M}Q-L3gh7AVwaW;jfSo~)sgn2d<DKgZx~tkY{Z;|Pa=HFr3vF+b#D7`r&X^&
z7wtvr_r|&5v)jY$Ls$Xg1;__5%$L--rd<=iVUQ8Mn;w9CqfR-<-M_?iUNozl_p+Wm
zrLZY}W4!*+DEal6C}R(7Jvz;s<g7<`N{Tpe7X6$&)%5tBufJvB7tgdXGe8p_SSsbe
z_aY4m6!@_>cGcP00P<>j3_aHQeLgN;uUC(7zmE~A3->HMbYHEIDUm&Q_L#A>p6S=(
zppL@gFxurlJ!+a&p>cz%no7Buja*C?0ie-GjQhkwwA^CE!1uiXMFs3-qI*T1U^}3F
zY5Ms#Z+j)qI(_{Q8M#FPPn?0-(jxnhh+{NSg4H`z*~wFdtVa2BbpIZ*c-F+~Q4g0?
zfLUkX>yf+f!2E3rSI?*A#W!AZ_t@&jAu5fjnj}HP{TZcM%?xOtSXI}8FIAr;YRI39
z&`a{mu-%l%rsrxvBeP%InQv-c_E(3%9|H31Mp$8bLGvox@=T@1MTJ;n&wG!kn7}_5
zLDTx2TUT2jFP`$x;TPZm6*Av3dz^&wUublG4~k9Q3%WNlAeF;fF#B#7OTAQsOd~C@
zeK=>25+^b)Qe4n|{yZs#LuV`aCqYl`V%;zKBI87XIY@Ko5Zohog03T_AG-3@>XFo=
z+TcDtlej_;iXPpMc0R6fwEwQ*MvV?NEc~kjSwhMzRD*RQZlE}4KwZ`LP~VIp59c~v
zDcHA{lwtW(!ojruG|HJU*DAIUTy}xK#qhQGrR0GU9cy3F7EfxfRpwvjLu*7)C2vbJ
zXX4nz`^NBB8{Jyl2>8Gxk?xwdzU1|cR=!m1gGlttPn%E*cj-r+Ew?wTGd`|o_yYK?
z3(@9Neeh80);D(!g!^f~$A!)g6=9$Bcod4IC73S;ji35ECLl*?JYu()&_x&<`vT5S
zoBX_xJ>scjF4frJ9;`JZqnCfK$}=oY<EgYMoitG3LYSW{EivZg^+uREpVI-@zRBkz
zBXvlZPmtB$!!12}iK2)9U|;*O|9ss9fi;{kW-+i<_$Uc-OhaGY{n!2Lm%<Hy)^VP%
z=s(Oz*Lu2VLu%y+es|payDq;HzP!O+6zA{X9j*Cp!ced!{yZi}%c9|@UYo}0<Zh#{
zM+-!0y?<IVFP{<Dj{j}}iAe7-yC$YfosbPX;J1tY*UCys*vs=ex_=}NHl20Lq1;`k
zzP&@{;)r7z<FZmYIA^#a+$D%ux6M%IF@6yD;o)2dtIORnrmucoHE9Li;BZ!Ij$L}J
zAU9F9;fvQj2$mX$1t@JDU6IF&UaxvMo(4d5CJ$3ow3l!QeA>aBv7eeAH{QjTqjKgx
zmbIMJdN6;bO&%d225uPViIisS@-p9*F-#I`<(%j-hhD5uo8JHZ@!kSUFb`Xh!8aYr
zPAIOitX_7)`@|i(WnLI`pj2+cvYD45yMk=R#95Ri5ItPg+Dc~)dHdxO8SKN;wu=dZ
z*e(5@__3bic;#~G5<vWmK0#t@-c<2_XLjV@ntJ*Fa^su!d}VxOew^~;$KR@j0u<e3
z=vje|T#00>ceh%_w(uwjfCb3B;9Uy4aR-*wOFN8SJ=OT_&WYgYvYbFi<8To--4=n8
zY_Qc%C7~RCe?Ic5NH1yH7|*g=dWP|<P5V9I6S)QEK*Pr48GW<`eJgMRx3u!~Z-W{k
z5unan1(mPf3xuA91yS`rPGlHe$*d?>`+3HNt5fV40g7MiQmj<0O5DcrOowhw-u_)>
zZ_%mH%(FFiuZAo4G1RAXBfHYZFP%*(43Y|Gr;Y!yU2|}_>ByDDfCS1J#9pbrB*hVm
z{0{}A!3Th*n?-*EiW}+vzD!m7IC+rU&wOv{La?k8>~^#uBMRT%ihPt5H_(>JE5|pU
zbSFlB`t3D3ulVV@RmlO3$0fXZdmE*%<gc{mX*!aa3M&usu4_|lv~oZ&g1uDW2j<Zc
z+~O_J91p6A$}$6f8A|6j43-k)z$ffgOZaHZER)mv>fd>Y`NNT*e)1bwaN<xpC*(Se
zgmo7is}in9dN#p)>NbQdM$Zf8`(RL(bX}Wg{ne#p^|$!~{N;Oe_D|eml(3Tmk~Mb!
z$nT@rkli`(1;V&&9esL0BVRHI6j94r2$87>zcFeg%{fg>f!!oH)cCZia^-H>jSFtJ
z25G%pUT?KKs+~{C*$dNQl_Y)pfQycds_FZE_2#TwIfX~Wbb@>);xw3Acz{yzbzpt&
zv&PdV9Z?LHsb0$4eB~}{CVtu7A4W(y!~B$oQad#~8Xe_(WAdPeNCZ}L_*44eJod(1
z*=|*Yh4_0)3|ur{ZdP6Hv#prMYpY}|vTmd+YFSrzb0hy$%~Aa1fQEo<*-*c&g|??$
zTK?=R=pFk9*kV*o&R36{cdgAeBACz+Pt(R<UVL}4wtcpTmv#&N82X`BM#Okx{bI3H
z<N3Hl4UWJ0Msx||&Pz-l{SnPteG&R0B!E0th<m6JN|8&9mAd!r`=Sn50Q*K&W@xDI
z+PFd`r`R|$uc1%yp`?{Y!g#r*R3k#L;Dz1Zpy_1dYnMG_aC%EpI8^YsXzgNA+*+y@
z+hkbAQD0&aeZ4;68h2<y6*uamLS(MXSpl~m_r@twACElKbW!D%I|v53{1N=u@+W@H
zb4=|Eh1LR;_(w<p!NC-;?j7*q3ZZ~AD+NV)%A!c^o|(PKF&Tq;{fO!ZIhs6*Cxe%h
zi4|uj*L&YV`i-3mL7jctt=*4krR$}BwHrR#b0Nk>L3acQHl>%K2a{`ufjRHB5-Q;-
zKW@oMT|C}N&|k7!#A{y&=j>^tjQoCjUDt-(uS`&XOG?bEB8ZYN{`j+x(!OacIdx4!
zMcX*tT?Rk<ph+(IOvFv=byIiWf_%C@L|fzS)~OVZD2@J{vr=JmJ&bE9N80QbdLD)9
zvJA_ko_w#o^7Wd<sA;SFo-{{3vy^YRHh#nEbRyogGUKA*19X{N!S}$h>orYKY*C@v
z_{{5=sx}Q$Uu(S38T5fjopa39I1K?vfR5(5pewMKFV9LfW`1u_*)rIZ(%4vGGauX*
zS!SadI#Y-HykIf?&sp%g((~4(RK4RxZPeFKY<-fgb!Su+`KE6?bzf}&Q~zG4sq=Y6
zAcKnHYW@D1rC*d`=M#wv+GzvG-($`>5X=qJoJ~U|EYVvo+7$EZ$Kv>63ugh(BL6h)
zcO)sR>N2=r|G+0E@z5MH=^OYRr~Rz~B%tg>Fi+XR`AX-zTf(@~0uFuY_vhmq5!MuZ
zlI9iv6Q%CupV@`qSYh*8ay(m*Uu*%xVYOtqR3i`e#**+cQ<Ssy{NQsxU&rUfvDfu|
zJJQuScP_?vTe|ZuWVx#*uik&D&bw$yX}J^{eP@CFj+J!?0_J0%+vF%CR7zh{47<;o
zKQ8yyUOA5cHo}SNT8RIVbg8(G9`xxiy1#&ex4fd5!M)_A8~78Yb2CLFZ#h1Ae}`^P
zLq9WScoWLM(!P(zzbvq&=d&Sv-4LsIe&ldBU<SnKyoP?k)!_Xy5*AbMbC1i*=)CFa
zE|{ZZCtN0;ZOuG~r0K9tu$=ONwUg&d6paQaDj(auI`!d7?8QqZ+VOM8+O{hC1=y7~
z^Fncov#fcM$ya@)ZMytq;~(>wfi>KWT0_<8wuv?hkAhs!`A9|B*>mKRiKl!`vSuz}
zOdM%Q!mXxi%+q+D7?aoK^t_{f%rm;D6HiIaRXqs9Dj_SSRzMEj`ESt55l)3jwsywF
z_=n?{0xW$tfC)6oP19xjzQj0Jmfh)N$$TIavY5FQyQf9|I4Ery;&VMJHDLD&rF1TJ
zv$5p{BWgF}u$$RW4Ir?Jk-Fnu^Qtpuagze1G!3?lUtOjH3B^-JGu~6+D9M%6__J{X
zXr2^4c0@j;E;++0-<O^6U;~K!r3|0~^Kb0FIVFmm?6F|V<E`5kM&rf6N-kne83mBQ
zzE9(1Ef9HQW9p!RobXajcF4G)5y^MUs74D+=;_?6v?V|NC<qdn@O^c!+bQ4iPjSM<
z%tsvOx46f#{(~%aEr~1D*PWXJ$(%C~-Tnze9Bp6?DY}#sXWHsjI;S0q*J@`D9DNvd
zZUvn^o>2ISVVV?fEX7GJim|HES}qecdUdQ_7;vH1*nKOi8Yd5?+-E#~XQ_Gdr(?Ha
zF9j_-t@14#pTAe+a*j&pA@Ed;0Lxve+t2^}YD4Gx?qslhOJ2>Pw*_MZ($^T`!E5vM
z8a7J;qwziDM4}T*ekBwiQxnY&#EZZ$*PN!aQ(jT27ovP`jmy28!>%{dJ05H-9~ghG
zsb(czp?b4;CPtLj37cpqhrT#fti+YCy6+#i1iz0&EX72gr{_I`kR{}&oIY5%Zz{Ll
zG>*-QJt+u#2;?v2?FO<wz9U<a1vZ>&lJ2`kwB4LoZ?81_psah}_sE#eH|b|{A<r_b
z{FOkvbFmI=rRiyB^%}zKN$D#uE*hg)t|*Re0dDG$L9_qwi9O8)H0u7N?9P|hj7gk}
zJ7TTZi+E*)de1ltTRd%cDiI#P!VHV_*)W;Svi&2vVoYyOhOrfqq39g5r5S9J6n@Gm
zTQX$D_|<!-pB7d=5xDW2uVs1LYIq%$$A;d`Q4XA?hiSkv+g;j;v3>m6(Rvd0VJF^-
zd7XT#ry#A(aQ()VavLU3iGgRp&}0@Qzp8p<Jv!uVMD+J-dE)YgI;V(tG^CQtf1kj?
z+MQcBO6Q=w<v#M9sSyPH@uMY&ZplThNT2igiG8&6F^=1g$<n_s&Q88uWSww-VdcOn
zJH0iq2mjXsi++Esuf?!C1#WLwJkt`)df2(1q(XeT4TfHCOHK#>D5-G~Az95YFR-w`
z!gT9yh5luQj-(9p`xMX>jC^Nk0~)M4Y&2y}heFpldyez+GYL!UdXTePicR&7I8HUU
zz2o_$@4=UAV?q99HEfbvt$`C^BhIX2y%M?@8%_Z?wYar1+mj3B^eMIDA-Bx4tlnK>
z%?l+jaVBC_a}TAfhhNRYp#n)U@QHlSz97Ch-RPPrUC527nWDgDx`Qbph+(|ssr!a{
z@e3{tx%5{*<m}MpTWbtOi<ol8aiss>?&#Q}HOjwK+T-vf%u2VAv-R3M<=cdwM6KG_
zh=MBQS}Qs^5W1pp=wsFcXx)LFYUor^o)KiFj2~P`jYVIP2Ii71j6*+y?MZXq?etr^
z_W8Gc)JH={CpWALA48u7-0FngZV~|>D}21Pr9<KOJ>o~uagC3wn;+v?H|X}~5_ZK-
zMvT!Lb?(Ez4t&}_DU}i<A>Yyj=8tI9g-0O&;fj{3indU3Yh1#hGPnoWQs|EL<QX5-
z-rerq=J(z3AUHi)(`JwM8E-*GxHVb2?eT{(q(}K5!3Iv>t)>z-httu3fBLz=LhPl6
z)@hn#J~BKg%~LZ-g^z!VII?2dww0QruM3h*jMI5V7Jjim{QT?N<3YhIb(*_D*9q(F
z`)$Wd>}Y8bcdo;b2HkQ(UWPDXm%Sn#-Yqc(`E;NlpO(@&s0xd7+wv~QYL2ZHlqWW(
zgR@${)%NQ!$;&+>R^HJsQf%d$5*=+OK<U%E7=8W#`BXX4-eS^F_8*K*bXw#TK*I*P
z)08g>5untUtF0q0R4KdRz6@{nxdqGFl?mgTIv-#)3xMCyYE(<AoQznUvQT|ihb7^g
zMC<>kOe!}osb-;I<i1rGh-Ro^7v|G`H-(Xq(deNgX+JpDr*-<B2yyjEQxXNu$mE78
zh(_p%&+<6-6sDv+A7a7sJpGT+oGhsFM^wlIZuOOjeJXI-^znU>;fZTgr+PjxrVq`5
zd8PTCa&8mG7biNj1gCgiV7JL%X2bs6s*mPd=HDvmkEq6l#De$%r{;E}0edN05@fWn
z1^zQNR;DgPw-5iar_yUVrmSC?u0E}U{~ccwxA}28EssOUJzq}(<M)@&Wu`)-r|h8*
zfDN%`pB?V>%{DIVf;oTL39TM4vFWba%!3B=+NkSICat`!ow1Z!Vq?O}iwZU6Q1(Eb
z=*iG=X@l1kD%t|we6t=F!L-d1(1&28KB1GpTdbdGBN3sZ^KToIRxW;|^9sCLkKcIZ
zSFZUdlBHhC=W<oTKGXyOliVxi%#!X?E9pCYz2|AtLfpnNKud$VTny=+AYiG}8Cv7S
zJh9EuX90Gf2#+-Pw%8%X`tBF<n!7V{F@EZXD`n4!sDwaRxq#ugy6cTm*(5y61u;Q8
zTz8T?rT5Yh&5+BETUtvAnv^N~08Jp=BA<^_M~Q!$S@^vE<R9Ul<;fo>eq4yoqrtAp
zJv}?*Km71sP3eS4V2-}0*gDN4_xWwE)|}n1xhv;Oe|4VWckNmOukK)j)jX|7B-0_)
z;JeJ9XOa5cQh*mZ=zB!B-#cS342>OlHg!U5Y<<7uI6CEGVYn6S#*co=%!2dI_<VPY
zt~UNf7Wi2Un)3Yhcs0<Tui3cTa22c<8jIUkF|{2t4qBJwh46Fn@!EvBr#0zR36Fs3
z1IMAY^KHSuy*ed-!5_2@pYN-p1ta->9A*ss9cgk$#O;gAH2?oU{})Q&+Y*O2mJhi*
TLI})#ncqm?>_*vj*FXOo4`&(;

diff --git a/reference/plot-7.png b/reference/plot-7.png
index 192a559ea67f80217f4c4de579944d5adf991474..456a5ad6289ab48aa33e5a4402ac92c67df4fd89 100644
GIT binary patch
literal 38783
zcmeFa2UwKpmMx5Jt8H#<5fy|MvnYrPC<xdJqM)Kgkx(s&f!O3+(Ap}3fDLGg2&jlC
zQBX1z27-Wq<Xk8j3Mg_a!d-9CeWw38|D8E=XYMmI_Zgql2gI+w@BQAe_g-tSy}5nn
zwBqt5>z8nGaV<Y_TwaxnYk>n7*L;KT7UC!M_n-9R%R&QXMR|P1pNXUCZuqkJm*d*j
zTwEJ&k^koTwhb6@as9}3LjEUpheth)jsdzxfpYy3PLu?{9~W=lvukI8(02=0KmGPd
zjrZ3*+k+Nq8}acp2-UN`7fbniXVZ0|YfHVB{`ijThr2mHFAG|_cklOSlCraxy)(_U
z*P5O=Zq;=<lD4^0&o*5y)Ozxfj@}r3>}4{O;l!*@W)!qqrRs8qc2~+MM}+g8`|eF&
z7Lf0b@0ce_z8+Ru>@bgfqpI|FDfxO=^&5Ti)jeQU|2O2DX94cK<m->&-)4}nTsyY>
z1Gjjr6FTwf^3%x3osp4|%};I#?6f<0-A|TGUD7dy_@!J*T8fH_ZxRy~<mE+Z!dBwf
z{pbGirtsg7=dn)H%xLl^TA_jn&FiIF#F}(|G7t%&|NTIuj~l(Nb?AxDYxYwXxjlcy
zfgg|g3T&vXtQ52Bsj0DVa%~AvJAIqw%5olfzf=@MU?yhXzkmP1zRRZ{S>~=A7){QS
zF*Y$V3^Gf)y~+2`UixHZTrM*%ixH9LbD-JdMP#HWUTl0Qbe5l+ySKMj>~is=14Ezo
z8Ab%#dDhj{)!0_+wOm^&;?WV}EMg(;wPv?xp=j2j(I&UqwGyW1?re~jkRANpH@hL#
zdQ(u*Xl9s%v2|6nwq-WAVzxxR=?{sCi32|N8Jmh_**y-OPi{TU%yjjtYg`pxra~sx
zPfEb4^NDQr>|mj2o+N$1`+=;hlWErUXudVeef|oMr6MUmwtouz!Gb<<DYU+xKjM*<
zlIqY(YX9}3y3x-^SDs1=#+xQH$s|p7MYP~HzT{uUtXe<5h>P=;8Ee>Ae4ypd18IBn
z{gRRvy+==AH$98RJ6|z2?zRoOdGn@7{jkPH-|I(0vDLZU4_Pgf63rY|HP72%|4BhU
zluDf$3LUFqJUVD?B`z+WnPlDlGNOI``t?qxCItaI@+V6U4V~;8siu^ida&n7o?X^>
zj%a&At*HpDu<g8#j&(#R)ybDB_{-aQsp2M8!>L*KcWL`M&$64Em@V}eZf&q4pAW5X
zT#p&y)w4O9FmrvSY>i2y7q4jXsgOgdB_)|jNlDj+wJtARv+H<WlVe9PJEKu<X2ADi
zdO|{iu9{l;R_2@J<PP)n-lT>V(mkJ<hEZ{GB}IYzBC4lH!+l@Zn$nW^`1qX7?0f4H
z^^&?yJ^9<qPU*gr{uq5OUTBoz%yQ^WtX@*aFrw+LDUVQLl~;NsH&`iWF!flT8c~`f
zFMAgWy6j<06x-)E=Xg2mvL2em-WHttvZ%DQlsiwr*>tM^mRyhJ^tKQOA)kZo4`eI*
z)0?J6ww`{pb}6q&k8R@?<@?#rjG+*R@vpbo6?RVoj>wJVg!#&@|6%J%58NR7XEXD;
z9e!smH#akOv;LbaXG4?NT`F!5cZE_XyUwbqz0Q}iZ?x5V<T98ae=*-rzux4^6_2j+
zh`b`nriQ!%uZYiiKRqcqiiJEp_HD-XPd&A-!{Xz`goJLc6ck8iIGOCy&p3c(!CpNk
z5#;^+`SWph)2zTsnc*`oljWg4X=!O0W<^1gqOtVJ?$%LE=l5d_XNze4Oew7Co1~=N
zp%OX4ZNWCG3B@LHnQIgUU2Q^T&8KTis1ob>_*x!cU*Wke)MYQeCy%hUww}TX^j`eK
z*3HZix0wmc;)5O8^H(1Feq>~1AWU$2JHw&HyR);?!^g+RVS1#x<xTl%<*HCQH|n8*
z>>p(M+y<I+#2g1(FGgM~4O7fJCE2)InI_^rIy(CC((BUCpT8gKDDll4V@TJU*S)zq
zEs=RxHm5Iw?l93tGsN!HqmE6KxXF?yW4n8rO7Lyiup!>Ax6WZ8hqvXvj`{5mE2K@M
z#)4EF9UXP8^0(yo@>yiWSDV4&ehQJ1PIdiygLgD#1`FAj(so~``JR^k?e_L|@^A)2
zfSk%tn5@y-%b^z=Ul&UWYhp7k@V)r+aGvFvk3-*M9X@**P>!6u(3>$-oUa%%JJlg)
zVJRIG6O$Tmn77reH@S%_L)|rn2bj}*bzoJd9jlp#Mh?rjie&V^zj*#v@7)x-i@&d>
zub`alSbLB~yPjN7Q9IdScw&icdc6}icpv6nscQP|BH7O^EzHi&kHNpZUz|UA`H|(Z
zWagS9FNf7A5i4shhr0TWz<dU?nUvYIiIr*Y`mQ6D&q81fbWKc5e3^1EeEE|W&h_<a
zz06wzPTR*i!+h<WXBT4DQq@#s#IFuTM#Xm9H5!~Q{Y=45E9UGp7UvXczuu}%W!E>+
zb9#53d-Wq(*w#^)#V{P-`jHY?q63qiVgB`6dbS#I?6s2Sx-LweCeM>w{l{j^k{cyX
z%S{i9WTm(GNE-}ymO56KT--a*ChB%D)wNpB-Zq`ZtM9OJ&8~Cbb93Ljch7QmdTeZb
zyr7_<IZtlJaxi{6$UN=kW6IM?e}hpq$|1bSK!n`%j@0S?4=eLT(t8p#%*<mp*f)r!
z*1=gNR$tvjXE(C87E-2~dDDBDM_0=1mmPkx(iSgkWMpKCt+*|DmYFpZ6&Jqp#f;R7
zCAI>@i#l!lvf<(inc>eDCnlM3P0be1vwD;2{o2Y;OYhG0=Bs8(RO?!wO33)->-%$=
zPPV>Gx6#+3-kzSG0@YnpVl!vMj^*II%?MPp__xNu?$p)S55?LuW0JQPhO!$v{0{0k
ztLo_Rbv&{@ZN>I=n=*{6UwuT3{Zf=V)grj9P?6tKp4PS4vrCyWshTiVWI=shKXU&3
z`R1E^=Eu!LVHFnC&c3?v!SAtiZGus0S()lxyQMF)e6Ak}<`{RzVuwY6#D8hi$D6$j
zF|ppYuP^77tH?E)e5tFw88s;+Bs*E^J9;%pX0#@(u$Mt!ZCdv1L}t=NQgY^Q?T|x`
zR&iRV&0R(==;-J$Mu_vem^ySXFY{pk+xh-&9ieXYl6o_5&KeAU+>}3<+7XhT)4RIP
zGH(NIR}=j8K#AMTK9*C~%t%~VSlA{Zp%qe{k85DOoy^k1!?&~-1@ZDyTr6GsuM6J6
z)QUt#MTKF57M76E;bPFQkCId4CYcAeS2%u$_2>+Cx4&C!T_R)1$Z$MMp$Kv_=~LZg
zb}|qXc>TUfF}Jfctfj%a#2cpSO?{Mvb*k>6u?Fk>UOKgb9v!{QuE}+*bu=oDUe_||
zntJ|KbWcn~XHC2zTV0WIXrk3We-J^>dYCJ6ckG<ASRRBQ`6?Z6`zq8_P9-sW2Y8gQ
zM3Skxv4z9SSS}sXi%gp`Uq(eS2X9!}GaN57Mo84LwQ%3%;-2^-T@l_UHe<{n+k@M(
z^>@YGWco-932+Q12HQ&O>eic?ndwobOw7z0Jr&F4$g5`0y(-^4){pzm>fW4-H&DQ?
z&GInxIrv<8JlU$PAm!^#J_Fc0u}hyGq_F$aC2OfIzG^G^B%({$47++W|F+!RT!HG|
z-ks$!dRfx7rV^<J`waB@t7>Z2dV719HZ<@T6&2y>52tKa^uW?5G#)N`rxQ)>_VNxD
z{%~uh;49a$90gvzfL(5F!j#(9nYKdOwxOZ>G+JK8OEqUx77095sDu7n)>WCu&d9Dv
z8a?za)@Rro>k}Cp>+{3u0~_0mgZc1w@eTvcDex*SKZK6U2heDW^4Z;$QHHs9)(wQt
zPK4?uH6Hk}XZMR<(;QEpd@DV@M$JRlX7=5k*ZFg@CB<&WDn|8H6P3M%A~8mSrl$&C
zX$`aGp)>onWwEYd@L=^x`Yr=GDU;n%{`JH`x6s*rUe)@}yQ^aLhy(b&=n`VkEppDi
ziCVu3o^2YDVD%p6U!-HrIpUMY-b#NPaPM9Yael<VHQ1D&Dy^tk-87yn>BpY!ZJODw
z8FT(#L-EDEde6@jSHpf2YAR80WPA$-CZ4O3SAVO2*Ir8hQqhdhTLPF&l@8H+e35$t
zPtrs+>JJ>=orJh${5>!IZUcQFm(RZqJL2`_lGEm)*eo(hBg8Fg%VO)blqw2(hxthD
zBrycpfts30C$3D6WzD*p2p-XQohVCS#O@L7Z28%G&gD0K=Wy#WY+_2QpRxghNM-66
zwy3Rk$Cv9XPv1`uO1ClObE_@;ZSfCDPYY&j5sq#xgaZ{d*wQ6wR1k1+;(3tyPJ=BI
zwjsC1<Yrpr{8BALT}NxrC7Ei=%lEwcup-Fi#FtztIh9Mrk7}7buY|Q?d#n`LRUa?z
zMQq~V&{ue`Of;kaNE~zZ(1Fgvzn#$U>YZ7c{%zPZ_NlCA{->4hTVxF6$}Z5LQK*gy
zhpv`ATYJ#z;=ITn!O-#SZGLTm`z{|-R#xVYI*|+;*pfdOM;(b0(XymngTIvBdg|e7
zZf1L6<DQN_`z&_j#bElkNx^X<F_DqowpqkXBtL5~x0ThGc8k}um!bqW1gjoc;Uu+^
z;G@hR`d0|;-o4wh)`&K;<Bl1k0?N!FEx*@0LhS*p+nsg$wx-IsP7VuXo$Dq6LV91C
zaBAbhp4|%Up4TdS6W=00;1-<ezr~&kzltE$2li}eT3bIdqeF((wW@4`UCjj&nh9yX
zd5QPfTG%wzE*S>PW{yMJYA?vH$#XIb8#3%URC!c(rR@06x{hu4bk1BI<GAz*>rl2X
zP4swu4GDEf=oM!+`cJWhG)#c?NTpUD3{*?@4=Q&S2{`<SP}oi0+1Xh>Iw;wCq`Pw9
z<0jv1Y<WH`&m9kshYugtAgoA#qo%E0YgAmiVCkCdbjC<52}Auw^$IV&9w-ow%Rbog
zsJzXv-+$|=?p4R`Jw3Vg2b?CAfO|30-wHT<`E{)v)kPPfC%M*U@oQLr!+gIjmT>Dp
zI{e%}Y&(4?bgFe*&d$u%i+ck_${lv;B<-?mu*`cPZlaknSRkAq@EteveU=u*RlF~y
z#b+GB@}onN?E2po1p=pHSm`YK0~u$#Rd-JZOC=V{?Mt(6zP%0Zd3Lh8rP)i=r<&p>
z1G^+I5AU5rV$jPWj+agbNyL2d{o3lUa{4~ms1KxUjS)31&2PD4V&X**+i9t;X9Ui%
zD=xWhSaf4<54hen{CvgSyjUUo((I>T>EwC|(bQJIB4d-O@qttxVNIKQM!*g=Kig2p
z_CS5Xa^R5%(QdixE)S<sfpuw42yUHqXK!x{`KY0(X>J$l%_kXKeLm^f%i(fjBBO_J
z+(v8K-Dbz!EbQcx5)((xn>=}BTcz!2@<7r;KQzh0!lDFVL*JEZ+7WE8Z|*BIdfYq<
zljK<6_()c^_f7d^#;k=KyI#+H?AhJCpWGgCymw#fHT&;h!kEHJ&faeEm7}XLeb<Zc
zB<mv(mo%L#N#`c;YjS@_Cq}oHfK{`k+UF(Wy!Fpc_#0rs#IUnvEv&1wFX#BH$kzI5
zgqM@$!=suE;0Sly?Qqol<=ujyDS{9SY1t#sGBOTPhk}~2^__bwnQ0VuU3GIBGu8`M
zrYQFHHo5V4E1hKM%<gV1SBM9&W>`t@n!y8|zH`BErl$e#;S0U-c><Pr(_C_P#v1J@
z4cL(Jh>=LhkN8l6IAI51LO}p8-=ixIZr-`m$!*Ca1hJOzjJb#+TSA=sZchw#<N<qy
z#m0&dBcS&D<ZTj_+SOf+nCI}@jby|NxsCQs8wf-or+Of$X=<y0+tk3hgo`KCH8pd|
zz9)yl5MV(Ju5_)KfqcBOh_*B<!+L6FEX#Lxx@p!s6j8dE+sqU})L~DaY&-@$1~XvN
zgH39QQ!_R(p|zdmSmJEZkYX8cTAR>nkKpv{r5mrp6n%Z<rn^)I5MWE0(<j<Fj=ifa
zT+C^>^FZh0>&<tMuDI>%+G8k2of@BU`0lK>_Bs+G92%)mvuyE}%>A%Zj$bru%IeNq
zF`?%t16L7X`N*O9Hi<r#FJB&1X$Po2bAV&ZCX4`6Vrvv&*0{J{O`I&{eDg07Kd*Q&
zEm`tg{cF2Jv9D8VR)$|0-iXh=z5l~Mr-}Ba>WXOf2yt#&;}ZM7=V<;T`6lu-_khUl
zcJoX#tE#Gi+IHHllR*&Z1&hSZjVVxweQr}xU9Cv?CNG3FLRxC;;ae*zD?vfwe1hiS
zO?_H+Mqgh5d<8c*0ctS#3b8NttE;Qa+uGW4jEDjd&+o!JmuqNfkVW9;#x=N9ztvOe
zD6UagkLH`it#Cs{av5%Q7I)<4M!58QVVkG!*{gf(@=I!r)PnOwYE6?`^V;U;)NGM6
zq)qJ<7DmLnQ|OMK)IPiXxS^WxmoIm~c9GlUicExG?Lmki^k}Ih&E5Wcf+VY|G<)_s
zVSnC#<gT1q_3N9jIcZ^GN3)`}@S|a65n8!uuxTf4bkuG-LBFFz*~BD@svVb*u(yl$
z{P|Y$GszRh=@um7w4x4dy}AK|;6EDFJ$1gKs_HqVs<6!}SHy8`daKsiv!z=;R){jm
z_c}WDZBs(y`gt{5vIYkS;lp2kES8v>|BLd2ryM5n-$oS9E!@A0Yy5ZLf+t7h@fn<n
zXx-GkBm{H-Rn?3TL2ti=L@x1&TDq1Bp>^j{t&AGL>kW*z_~yyYPL$LDe>MXs`mS{C
zJc?zeYmAIst|!BJ`+5JBZy4aPq%IXbOw4BiYlkL*P3UOxqD&dkMrLuEvWcl71RG%t
zuv3#?B+Z!ekx#EpTUfMud0ShX<>#Lk<>c^E_<{Y#3_<9*GVF>Tii=sdf5HZ^e7|^G
zHVGpLYuWJ2hvfsJvxA}oWy+#Ca1!YXwtpLp1O@|YICJ2JsLRF`2V3tF;Pf;$Hnyam
z0T4u(DF1CLJ|t*DK=wo6$*lmTyabXW&dz&(W2qrPMv$JCThekezGY_Dw|;3<#X0Z8
z?09$_0Oul^ng#RfBh~%F!-H5arRQekQumF5{jr!<fK4GGgZIBJcC0@5#eKez5V8B)
z1CuyA=BCTrbb}mE50ACdcBXh@hu&qlRBrBp<gDqKi*<xF=6Zpnos;A=((U0Oe5EJ?
z#$QMXgcPt~SpBOcxq9lCUl$RYCEvLTuzi)__}fL3>T2-;_cBMaek%$TbbPU0Sh!r2
zX|y-+qIOnB_>h?T*|Se5RZ%Y-m`2eF392|Y+S-A;w6wIwCTvY!F{fPMGW*I@j%s%d
zDFc3h{}j?xle(kl)Gj``8wYY-dTaHBcx_GF?qG_4RAgk@A-9_e#fG$p57!&gMx+E4
zarSdXn6^|ID|5%fo7DV^d$%-+>R9*j4bHPbAS55{99A7%yv-LFphL3YhAI2qBEdU~
z0*;$mt^_}vL`0(^e(##9++)v;%eOr=*e)tsE$RqkWV5a({<M)%_)iuB#0=rTp1n$^
zPn|jyue|*P-^{>CEqyNuqaHuX4j(-!DXFLN@$uW)js4UY=U`*fWtx&fyIWfiacRAY
zrC<&hxnu?79wXxdi8Xih28G+Qw8ijpTE=k-;Xf`nq{TQk@((V4ck}MW54x!nHa0e!
z3xoWhk8yT-rZ&jNPY=bTYK&Ir{IqDpYF^!6eqykR^GunUWG+g1TDAwV!+58n-1(lp
zT-zUGKltz;+$$t>f45FmuM`H&9WU~#@sV%pnuK1p(+9V#kelky7&8Ma8;`RiTdlDS
z5axutUU%Y(XJ0?uQp`?^O6FU?-c$F~RjjDj<m9A>#}x|;6`$Xq#18TNl#|x{Y_%<Y
zZ$x-_c&Ao&fM>B*J2CCkOCnWEC&FNcz4d1Dr2>G(w;0|{G^w6^(Bi~dP1BwJ`Pm>r
zgq}KR6^=fu=w5dm%ibuEb<}ZJWnJBQs}6A(NK8;vOw1{f7lc7ImC%9RzaFnl<;xYp
zaR5-%X*G6A5)aj1J2;Q^K+F&ueRhU5n-)BOOmKEw5wSKi>6{r03|u3lx}iaLP^GMx
z_HN8ZVdzZxgnSsKs*AtBo0e=7;`Er9a+`#WUn)f{x~81UIVPET$XgLkK+>04Sy8dM
zBoHpZ!mkSMg5y!-ZqSM@DaTT74yMLNWaXXdgY6&na}K$G@7|Vq7CWl6cHu>BLt+g+
zjIF!SQx<&T!%c;){wH#3j7*;M^AB2oa|co3iI1=~Ssi*E`P)JP13<dI`r`=Vl`OXU
z-v-krA|yl|@S>Pnxv8nCH2|b>b6fVmTSPm_F@9V}WxsfPjDJ*=T?I=b;5uBIGCf-F
ze~`Zk++NCXnQ~ZWrVJ+&B5B^RwO)3r|AQD{d<p{Dr3?vj*bl2LEaJ}qwP0CxV%wHv
z$xnh~x8$Zaf~EL<YKDaM`TpDNYwcP;{?4KLL^6lV$Rk=t>n&JTv!|tdSCd$5s814H
zG8{3X`7_;2<_t+^{^P|Co1WI+PL!Udr(4`)fRAnlLFz*g+ZqwwwS=ARNvby|f!+b2
z*Fow}=P7?PrQ$H9fJP}m2}zOO7<V>E+zp^e?Lw0Sfg{MNrTp=v+Xw$XmqlLh-<ezc
zpIiKgrYirf)2XpKovdL@BFt0DNEI=k*ygaTASIEaM1164y~n&Eg&csrU)T${l&+Hu
z>T!~fa_CF#@YFkYcE7kdPx`l9k3Ig8;F}EaAIrLu3;%`9rE#|Bo9%ZJ63U9Z_XVCz
z(CtoK<3-iJ+(P{<%CwQaxi|0*;zMh>PFk`9y)}a36rnO$E*i8m$M6L)hBDJKQladd
z4?`w%hQi+nWL0-gNl*o2C{+V4UBR;X7JJ6L5SYSA`4aG0V>GP&(0If4t8Bg%0R;t0
z(|(F1Jl4|UO~2!(1~L?!XpTr&>oSmyHCqCnac?@dI{i1l{l*n93}|QkGS-+yMn^}t
zPHqV*T9f|U)0Zz^bdIvb0!r-RsTxO>U0tWSwA7@KqE+r2?~SI@smEts)AqTH_mfX^
zyqICeIVH=Ugm_H*ZiePt>F+MSu08kq(y92u&a<wru7ja|s&TeInmPPl%t;BIX*E_l
zs;#ZP_pynEg)cH(LR#wU3knMfY80vp9u5i$@<R0fB0BmG&Odz4)vLFGG{{xJynb%q
zkUVMS;R}0SzI=HbFc(*tn%+Tvid@m%-Tm~a&U>Ui=ClAn$3jAcRs<0H$a8NY9E*};
zkE-#=vS;{&d1wUO)O_7jUEm{_NwDYVA~9X9#U^uM2V!tO9v)_MG_tT8r&rR8@xJwd
z6>U}|M<t|H{u(2iduK!~80ZdQp}Ox+D#+(oOWl<Uy)s-V6+B;mdhq`8`RN|E7R|$j
zIuhSzOt$Ujd!L5Cn~xMqAz6|i4;;{5)Z&CdCg1vbVq#^`vk}hJ#w)+9+;<n)1U%dJ
zQ0A~Q6)Es7_8Fi*|Kez7_8S6nd~ue++udBww<hr9^UZl8e9S4joAq)={x-5(xfUM$
zzbix_&-fRP#6O~C_<!^k>O_WtKR@cN*?oSsNmcZ^{%LIJV+uKG2cke<B-Hk}SHA+0
zAb;vqkvoewZB9D!^Xo&%*~DKdeQH2EyPBqF7wAs&Gw|dD>HmEvI`V1Fg4GDhbqHzV
zdVUNL&lkx#v)6TQL_|_&64z@PY!aKgl_c`bHHin{nu~Lgh3+hOVmahVOQiSeid37h
zQ+3T>*K<@hBw|8Z5NRZtMn;y)#NYvD^lKr6nSf2{IqZY1jG^WiVLo-uy&N1QacKoZ
z{}8gB2&a(ZIi{gexh7dn^LZ5cSNHdRQlmf83Ul=A8+o|DcI%K4JZ}BY!5Pe@sJx+}
zA>p72r)5B!PyX$5&fU=K$=iSxZ+m!<Jj&j{PnwD17L1IP*%`JW$&ka?))@NA7<5;>
zj7LB-`mz^V3wg`}gN?(TuQIQ6LhQa%OwLnERc(qOu^PTlPHsh%%4}E(YY`$k(M4l)
z`A-cOK35u8yED;gp{k0TZ;Y#;|0S6buMXv_GSs-z39~8L^H~8ts<X}kR%SW-AFvhP
z)_a42Irr-4pXB99#;&1zRNtv9{GuaZW;~|J0dH>*mpSSw9G8($J>eRc)*VTHHps9a
zE>+Ca(9%n+6kid*@iSWj9t{p!!My+wQS*_<ks_>*-m(0bF)`jy;$W9r!TM<StWqlT
z;NIk^cjUx+abtA?m4K4K#A@QhMVGwvj+7E;#U5K*(2)-NY0eIZS8<Qpu>q!ci~W?H
zCWRvRY*w~$ove#PymE~^78W;oh+N_QVN3ObL>^_pEs3he8^Nv{zx3vUX9ewpb!KS>
zA16d7R_V_4Sd-i_@AW(g7>MlQWkiT4N&F4;ye`R=%$g{AaM1eF6QxCD`EGtU&q9)l
zG_Znv_CTIsmPT(+*6a)zRytjl1K|nzFf~--dt)hYZh}!EAr%{wUJn&Z=M~%&9%4vZ
zHfP5uO)NU1pr9}~Fz4&WeJ_Lj0x0-{`~q7gE#3vV(MOxpI1siAMqB~126=fPy=7fd
z$x`K_6ZdGeZGwfyaE##g2-Ve5ePw!Z&0pLWc7E@W&Gs>6iJ;y&j}<}P!MVV7&aV+D
zBJDHhJ_>V_+8?ayZzl<lb7?kL)ipG7K-AV+umks8I6~fYV7Oc*4}5)-;ag|WCic!0
zXhNdTCq~LC?Ro%7$2QTLaDC?C^&kx7qxmj&(QKvMOd*oe<G}cJn-qP3U0}`5rQ4Yi
z0*$0zBX)s>AYd3C_a^dvFR)KMY}HmIzIn46%-<f<npZF2yFEN^-ds4pY2=s>f8a6~
ztvLPOQzHZ+-W#kjLYgE;<jEDM_4~y4?_c(dcz75j8THh41%@|OU1rY#nw>2CjGP~!
z3uh`PYr-o&B+R@)sOT3YPz=fphygU}ZA|0fbb@#}b2+2-M)La%#~~m^<TsR8_{=0Q
zW7ChxX9ro(Yvb4)!>~|r9_tv8yg^?>DmOO)Ce)@T<m36d=@leh%2ng?4a1wL7YJ)9
z-Sg_`9YHxdWh@aSv%_HiwoO6?pwC&=uAIAF_jR}5MA&0_`8jJh`}LNf&$@k=vcaFE
z=DS8|#&|*&u|ppjCXpdQ2}wyp0kx=wPO8hxXN+aCypc|$b5(Mz%+cGT+RTfUks4$V
zW7NMc5~ztVlW+-grRV1$Y2M&E)@X@`+ow<CC<q{z-H>pNW6w68dRw1AH8HeFs2Pb5
zk&nq6eE>g6y6arZFBeD-eE^ACMXdWBK1q>L7|{oNjg&GVzwkM^^>rniqfWdjFwbHe
zBxkz(_6?RniABgN8^W43GUO0}1Aia;g#R-s<P5d*J^#N!!APd{znVXrbJ^~FQ(3cP
zvj%Mi_YgsEkIfvd+b(P^0}m`i$oMm5u-);>7`<PcA9;)aa<B1!q$vIG`62`?Cg}rK
zEEAN?0490?oyhE#0Ql6qH?zJT1}B(r<>;6S+yz2XTl*!YN?24><vyVk8w3iZ#*Tu5
zf_3DHe^_?*>_FA42%r%xFE`v$aH!~qo6EgmNwSS4Dkp3&yda*5HsrQrM@~G*eiP!I
zLUK<6b`dDidG(XJj*j%($^ajr5kG0Fbk-V>NW_hiyM@cz!HTg!r@>0MicFZTRlc-0
z(2qrnSvR)CVbN{X4O1Qd&(AONqiRPCE#B>)-$@%m+&{TRZrU%DnjdGK1;24m_pLPf
za&LI(O@*;ACm!f{^JGfJ&!aDt_h>3bX+Zq5i48TJA$oM;z~K7e)A&wj-wNLT72iNy
zLg+JOH1;Fu)tcoDGqlr6JlwFSCZ0RK&*BB8Y6ti}`24LxME^8W=!6Fm!K%kO`x~k+
z1&8K`5Akd#>6n_DbHqpK>FHVJXd*Cr^Y;e+CXkh|l|uLha7g+0RHL-wL{g)!-?aLY
zVO$yM=e$X^z>roM1+e<t)2^$ZDn5VSLnaPT(wuFy-FMx?pdjE**naOh{t<Ej$omM=
zQ*!MoLprEul_zYz_?EE~T&c=buv@p0hXUAZWgFGJx}cL`cGY_=#~63+`&aSLPKUSk
z;2%4;az5}e?8`hB$>W3P_l7ofb=p<VA(z^L%OJ?1OcZDlqTLcQja*`00ic~EIhP#O
ze>b0@ERwnz;SJmkQs}oy<|4k)u098O4PG(}!+o4fZ$@8RlmT^#4+6q$BBOY)|Eemi
zKZGZi&^G3N{CyKgheI?`HyFFgXWrgb>vxwFBARa>sK5|MZ)-*#!mCgueHV5d9taNa
z0-|XF{LeXC)NMkUQow-?uWn3k`O<6JoPApiFyvgKu?A5`ZdD0^wi-$SU4F31WT8`<
zJ%tUB6`j^2qI|BmkIPu|SPOZ0c!)=Q0P*K8?S#$rsW#EP{;waxQd19N33%!)vRwJ0
zs~)ItnvsAHT^PBGeAvBW{VVt6*F+dX=)-fMv59LrO`Ux^e`R)SzP};VgksL4rhkm_
z^L5W(85a;ekyMN&vhcb1D5H%ICNl5Zf~5vn?16Am*BwMNIF4is@8w|Is>8I!M;Q;r
zO$>@39h^^Z!WKXr!p#jKk=I_8F$k=9ZwXSzfvvbEiD+a;0oBCVSjeF90X;n2=<OH<
z$=iLGKCSJa{)Q_cVct>)tytZ4$&Ge8Al!w)pWmON!o69x-P6jw8WFrE?3lMFQRYro
zX9;NOI~sxSH~{g9A-gx(7kXi*$4U!?o<dO)0=*x>ZlKtM+<D#oB-ANkir(u96s|d*
zb-MI!(WMqdoW6))Wr=E@Q2ML-1Rzl1B*yQHQUr+NnvlgpLSSH8JcVOBt=hgIEUyeT
znkyPm&C-2GaysJ>neaorVN2A~6Rx29UA``*cmNPd=K2aY8S*J^uvJf(g4}3CF_5ea
z*GtWQcl*iVE}{{!nP`N-dc*5WMV>^@1dfeeak^s!2Jj~nPTaG0*%E<%1~T*cgAjQ0
zhRzH}v}^ztTa!4FuR={YW5hW!%cK^pbl3(l6v^WebpW#BSsG?~Zqp+RA~{>>=YE_X
zHck}y@Eta<IRi0$7X5ko5_`@a79M*S2TmJlWu^PDtV@&T$|)>%jPqnD-`{onk7yEt
z$js`I61mx_i_>`N#LsP<J1skp=XZPx^xqZg+?Sde>((9!fe#U6KPlwge(f9b8sO3M
z2ch>bXHMc<`ve!L8+g(<r4H^tMd8#VgOGR85f&>mRt`+p#R(O+NwvS;0+Rb#m#BdR
zMi5l6j>#Mh`uH*)-ZYw&yrmGfF*CNQs_OnO$Uh?gI=Gd<^cNjVpDJX=&Q@p5h-=S4
z6MUxAiZlF$F|Y-Bf^IGehj2Xgt7i+e=zhCYLS-}mdJA9azLdG}8Q*N84+XQ3XfI6f
zgY0a29E-7vBfuSqo1KiiA;Lj8KYxa0(*Yw$wzL)dsh5c73IDA*G0BYe_zbIMrQ7(?
z1}eMP5~;mh=#2cM?T3ma^8n(O=&c|ld;3_URM5Nlf!L-Q=r3esp`d^$5R0%OBE-o!
znd#PRLh(XQDO^tJ&uOMEU@Z)ttcYkvR<&pEHdd~W+|0NGELt;BP`TaXT({@SNFh%K
zA4vib`3aGu6U%a6L~lKkJR~&=-O|bSZqEGvJTzkRHvK2;>>dbQ;t{*A$o|8I{zeU&
zONqPB{2k9UQqP|OP2m8P(j1)%dD+1QCYg><n6slclh<?qDV*{RL&0lJ&c<8(s~}G4
z^=;>j&x87%gI3IW9#XzSgeDV>m?d5ua|+>Co$SenxsGbW*kd#zi|y?pS|eZ^adhnG
z^tq`RTr#u8M2=ls;@5`tI-0_vf<CKYABvoRvt65HMV2%k;@pYJbLdMja9M(`zP^6v
z+z`&iVLvY3_UP`eIPKTZKNoQV>{rCU0JO<zhd{6NBxr7xGqHP!&I>9SX(1s9`5%pE
z&9bwOusD{&-Q&e}o9je*L)N}hi?V^H?{u{XP-tKz&P@hl%2!0>2XUA{vLM7{Pn0<y
zTN{9p_CfUz6~z4pb8~YaFOjqtCG{OvsYhrW)39edkINh@#l<<jdYFJGL7ad3(HBEv
zIXAJFG;$`I%kl4|3mW}9)(>8VTbE=wYyyjb<Ta?Sbsmj)`jp#fpX_m;v|_>W%cBz;
zH}Wn1{>5P-`H&;uiY*i?xc=?81zcaZ%b)d8J$&{o>(E_~1)aV}pZ(~0L*o|z<EL9a
ze?ENo=x<yHzuWxf!%sf^B{@gkH@9B(FS=xZxnpe6Mct2|{ECW;ZCDxl8tUTpGL4}V
zC+$n@8RcE`xYkzP-1ViX&B~G-10oB6>8UkfTq4r=49HeN8|81I$?NH9@4ZY`&b@-q
zZ-3(J*ZW9X9vk3Yx=1}z{X~2PZwx`D=MJ^!%M?y<R{2Bm-G=L9sEW$Jl@71uK(tm6
z130J=@i=vo$RIrD?7_`&zeO3)o}FuOV#eT^A2;60Ci%7lt#^+;MTqoe5LWIo_556x
z=GBOjK)*gr?L-$e<Gh(x_OHS9w?>2_Kv11ys`i-PJM;zB7|uiG&=D4>T;3aat#EAm
zY$8N;0e=|43sJ4}SWw2^4K+74<^OCbX;!D+Y|I(?%{Yt)aq>i$sRY}1IZvv_QDpI{
zPS6m9|6yrrb~?UwMuxH@BDwwkQrEcgU<tGHFaI#UNf=-VMl;ccad+s^vf3Y-43?9U
zslQ$U7rqa~KPJwE!ag6Zmp)pwoF_%$14;l^lR(MCgH)P86?eA#k7<g*un;1O+4nVg
zco13t$wvpoNLiGky}dm(kQ7Rg(~#WgcLBJ5{>)iU?$g~^Q*yPi%*=R83#k+mMWQtx
zQtboN!{tp9v%zC^fO{q_U=7!MswNd6^cd7y#cPcdo&%{}Vo^OwaWq&J?jC?JrQ<q_
z6t9uOgBLL|jqM|xvr`$>s?~39N5p(yqV%<)(><5HM2K!O7inoe6o2HNxfibiJq!W}
z>MT@1^%*na%Cy|Bh){u{_9BiXTEeVuHF11`)18Wzn6=#Jr-GEmO*y;HSZp)yp9I^J
z>n+Jxi)sNqqUt1c0#qyUpjC4qKUo8g<Y?-|JZXd|Ee{NRc63SA*Vh}O2(Glgo{y9Y
zk!mHx@@wO=W}I|E4-S0VSCWm&By!D`Mve#GGqwEc+jQ-tM~|L-uxI1elMl}L6q&s~
zBKNK2IpS3C0^>D#vTIP3cYcOtnCIh7g3;45BNc>V*hQfqB2rU73qdmOwe*`kYnEp?
zGH*E!wS#m+{yQUQ3PpiaJReX)w%vpyXgNH&*x}Y^#B_sW)f-TZ^3I49B0%#3da^*1
zQz^OUP{7oh<%s_@@q9Dt6hdpQ_r?p`W7GRQp%~n!Pn~EZLQ`V!hP%oQp}2-hZQqxX
zOhnh9caY}BYVA(>R4mP!i+~%FcsUMFot!*kw4bJ@I|m6;^4-S*FNfr-h~iC1SVpRv
zNI(iX>1s&c=AUm$vt<f33vM*u802;(HY!ROp;PIP<Gfkp3ZzhKLB|FZ*pVdr@)t=~
zOlP+iNFigd-P^1Nch)>vR$HsxwQA>cU{1?8#U{}}l<%$5qJ$62Btsc>40gtRcc_DF
zlQQ5C%EjWZRc=;nnkJ%UY@P*CCw%DaLI8yys%d5uey%A*bab;-QmAZ~fBtIMmHeMB
z-+jZh=qW?FNxQLM7@bbPLh&2D-qco6Q}ZAt{$kVEQ-rhg+(rdrCw=sY*e5wT`C6sv
z%X8GT%OS4(J*DM%pK1+QL^nf^ua8?pe;Y#~RA*P$4yml<WJv_bYanI*G;4-9DyDOB
z2FArH<Ag}}DdrdAKQNrx5QesNN5%Odz&R9~F<1cMag}>jy5rs2rbSHpwrmE2@pRiq
z@~`bBp_E@3hZ$U<PTeo5l+drH<i<9O6`(1~UT)CMWD4sY$=N(G(isJPUFnF15{#0@
z%DrAE3_7QYR=O_HL|E^b0=PL@yv@>L!fYD0<a!&$ZeItj{<+}{&7yf0M~_~2AKNhL
z>?>hcO0(~__!N*mmS+Vvdv_fT1~J={N4P-u?A{(!h7ozF678(|s<B#Qs&8amoXYU!
zgw55OJ5J0#5)?}jjZ&uGJeT1xpt(C4tok_Owp9?mvzn(_Zf*?_WAI2{I2E|p$SW%m
z6?!PDTtoacfLS3&WDAgE0PwAo$tWthJml)Iw98rA%jyw7VdG)WM($c{yG@;DQnb>(
z<q~Q}uoP7%$ea1)+EN3Q{w(Nd!~^1Oy2|!y1uT=B`nr;o#zxw#<I=ErcWuD{D%WDm
zjMTH&U4Fz(;#y(7g>NNZ)@U6@G-Ajp{v#1TDg9tp#drb4$yjP#B}5=mxBALXUfHFW
zW^;HR>&4kHm}KBg;j~Zf!nOdKlbM4(5b$1l1ZDSv4)C<5wpW7QxRsqfePUUXq}$Pk
z`ud=hs9HZwm4hS0!<)_BAb=zlKgY6zDC=!)Y}8YpUc7SU%16rbRLhp!NP6ON3Qog>
zn^PL}GM(Msk-sQd(B3!|yv)qZ?3@TcKYQa;b`a}ePV9>pqw&h(lnolkA=EB4{8$tI
z3k5_)q3$Uw8(UkR-a@1y3dmpV?AG)uC(bDQd64?WY}bWI(dN&3eE~(D?af057Ne6a
z0%x;RFSp(lhHOH2$5pn~7PA@J<cUvujH`Q+H6lC3XOKmR#aa+(J_Ve0hs?4i44Ov5
zvumSB>^LA<VhCz>zEcB~F@oF{Gy7-;W7V!uPyfLP+v`m)C=3n`j;Bsf&a2e)UO3d^
zc62w2Tw>|QGlzq-tHW4}rZ!h;?Qk7abDg+FA3K9Y?<rl1pPg^DRX1zoGwot;#0db#
zD5tFL&ui$aMeH+ftY33&CI?S5yp||8JO3`GXN4-`>`VdIEvZRLN=}r8)+aTl{M<>2
zvE20Q(CKKa8^bLV9ihG+l4`TR!Y~$6yc0lNUn|^&NEC%-c&n99j}R06c)iA<FTKu9
zjYKTX6aDNJsm>96--p;?zLP0vb&%Nd^4X|?c#|^)d3`PlYq+_&iIZBSy@TB0jM+|s
z{?SZ|!4?q~1-SuT1SX^cJfk=7vy`;7;n(*!IB_TH%K(XLP}G~`FooOmfw;ayLd-9d
zDhIy)2Gy%24u1}+n+L}>=t3B(3;BC#dHD|zm#_PrIY+b$?Q~hm@bDnZGSTJh(z?m0
zi3$b*?xl^vd+<*!Kn}=%Pm$LMfAXTWUoR=HcM*JKAjvC;Bo!$wwS2dLHyh6(9D+rV
z9Q5A@kTy)3UQAwxOM`?(RSnV9p|~cL{l^UCh*HI7$LQs4WmQ#c$TX2xBH3C87@IJ}
zg1J5$_y|<sr;dM(XVKZmAnI;6I~j85Afet#wW<O61Zc1a2P_TvZ7a@_qV&~M1LEX)
z?)GYf?#U1)r=_Pano7A^{yYal&U4*XNd@4fh(wi$Q|HOq0l|}^0ed}jLO<*)Ikc}B
z`3bWf+~h7lFXhQvWPwwqYg4K~B=Z1{4ww-9d3knF*a4}(I)n<-B19-c#PKKu&IU66
z0aCzl5f0Y)xklLWExTlPsw7;03+IyyQnqozn}4CD!OjWaXxBdLP_K}X5Y;#dj8<*X
zmh+)!+WGStq~xZwu~DzPa><-<i}3`r`{rsn+^sZ;c!=GZVPOzrs6E0SAo(j;gn|<G
zmql`G@jl@qbC~cP1}Ba8s(Eu&jSvp->bBh#DSc_o!LQ~V1v;sACNsh*?uTtR&ziQ|
z$Z5&&mMh@Umm-wcl=@Ql6ZPCUxj8BMsi@3!g>Yx<D2f$OyRnE<6@Zv^+w;@G>q$Tk
zeLF2}4m)0W`Mg3nW1>B1DEZPjnWo+E8|j3sK`PtZ!vp@T!PSlf1s6WXOA?B2Y8cfX
z4BH7zzOWqZ`fOT78)s&h>1<i)KuT?<Y}~Y1=9)-zh0>8jR{jHqztX^-V9D52$LNg3
z7RFJsWaSz^e?IfqICu_3pia!Gx~-!qNUJ}dbLZhWJR1VK;Lw>e8hy1Jp6VsSMuk##
z2L#qrv!rTphwa?X_@Id;A_ccTa1kCJL;y{Qfy=T(fhmYJ2{AZ8YG+8cDUa}BMAF>X
zNA$@^skgKU&N}=po@Y#JeO|a7iFi^jMUFOU41h&K7Y8DyF3md`Dl0>3N}*Z#r%A}V
zCfQshsGJU|q2bKb1W{-6=$WH_lJiJHK0)%s@2SdpwVN@1ly~XcFiNNu-z9+4b}ozR
z$_a#Fb38n1P}*t;OnDowXGP^4s=k@Iaj64)J*rE3PykC(^7jqVOay;4E*v+XtJ8S<
zS(uO$lIC~r32Pk#l0b<az*$=jht_=iO5)-?3m6$>4-bl<S{EfO`D=zG(z_$0nt`sd
z^n?J$p7lG(IY-YJcb~n42e7O-tC#~c!LY4`PXa=uqGFmv;U^IwY**qOlC^d>TLm%*
zFp_PMfoij5hRyPQ`0#y@RI|sX!E(%d)0qIyUH9w)qH`t6i7FinJd@Ps%%Fxnk1!d?
zr!Sy2fdU*V|D)GPjMkw07z(3HR7yf*(mU^^2YI88MQ$1!;s1mGV2Fc4L*VYHQV1b+
z=`7z!R6{@grxjZ1KmnOEWn*aA;x3R5>$FO1Zagj+j~QHx%H`L!Zl*6j#;gZrH(1`1
z=PUZx?S<Nw19F+-$-14+Ipp9g{bh%bVKkpq$hcW)Q{vUS{-LsM0cwA}!X5^NRD5!C
zlX@ouw2iPZfAMzrdQ$F8s?_A=?+D09k^Uin1-=Lpy;H3_kUJ&itRTS$z~UW(eH|)1
zH2nD}X?>8<dw-dANAZS!-vrK)RezoK<XjgxT0x@GcYzd_Yz6|*W|AgY8P$D=hX}J;
zaVCJXZ~)j-OBhAPQp{*h2LpIr(^8|;fB+8YLC|t%U-8<=y?^Z5ji?rT4ULJoImmuu
zu?$cWPRjS>(fA?Qu5Jft>tvL{2^7qcKFdsC90)0{c=_^W$jwOg(<Y&(prruEzDJLW
z?IZ1+TSt=fOG+Z(XO%P0bAAQ`JNBg!DdM4WBu6TuIE>Mk-MAz1vQxu=FG`tCbC;@O
zk1VB(AE8dd0Bj%W=FEgc;oXL(UrA+|hX-*oq<llwg7ebuYp)4vJEQ8c1st0XDT}l0
z3a90c545x(boO$ajBxV|wr3nf#MsmdsHNNOH#Y?YWMO0Y!geH2_mT=_q}pAg1X#Cf
zITs|I&bOF5i-#QpFt6zE@v0(<!z?{^$7cm6Ki^WyRN`E_<QK0$lu_#|cnBLXA*c>9
zNSy&yMWsYeLS1Xn>jvjVBI_QjR^y2-Z*`8NhLwsyf$!6E&OIC!C12ru^G{8CQpH3x
zM1zWQNgb=FY5Mba!KV1((b4;^Z0sfu$7<9h@}UIUo;9R<M{ROY{zd4HASy`yCNjI%
zozQCI<9TxWqrI4`{GktmGkY}S^z}x2HKiyX9x0F%dCe@W2FIlPd)m%M8k7{{RmpVm
z)_U&#Bk~ASo|kP=mv8!E!!lxlDg_i_LGFp*MUHzQh>e^!tq28-Qs3ne`wSZS`@P5K
zILW_nGPJW+#$mRNGGpY$cC@p%ACu0yOEf>~TR4+~y|vWAZ8%JDx$(@UKW#<J8cq=k
z*ADR)!VX%|=gvk-ab{=j<DV8}AP2HjV*}^!%kJvz=X~=IbTF#aNaI>4iV1=+G`#S5
zhJj4v%a;t+!O41i1pH&ece4#6Sxi!_oH7X~N^l;ukz4ylI-T{Eom?vckz+fVzvo{h
z@%?Z$%@|@KN@bq1SkCA@W5%sXK0fuK2d61Zm=>mIiaH)W^9}S%DOsPswmj2ctnvOr
zKhb5Enocm*U7HsL0SdZ3n2jV<MxOHpS`QRH;WINDTwGkdSIeItxm+FBlNv`rc<kT5
zUp?(k@>O&5SewN><$%nc)2Mj}FWX}J<l!P$Y&C^3+Ggr6!ZbJ-f;W8iA}1zz%bIG!
z)6>&G0jguGl+w|g<$mhJRy6$)t>ZPMy>|uaxzk!aAGQ6DI>q!>`5GDG$M!@rrQtiW
z6bWk`SMznB&OLYX&AsppFdN$@v$9Y#3RBkZo}A@+8D`HYcI!bWC#R&z2Rmu7vxLBv
zmp83@vjh3Jow}v<TVg`2x_f#~Hq4Y&R0Pa^`Ts*!GiBxFYTyM7aX*Eult_ZD+>Y<c
zt_goNlPdxkLLP#fdyX0*4Nm?t$(L^0kP=T`4S$+*ZRT>pYq>213QzC}Z^lE<C!6b)
zipobi_9P%T7`b9*>AK^WBp-NL+qka%*k+}%LDf8lya;0?nWa7yq`J!YC0(%J{~Se}
zB?`EA+gS$8234wSL?dWMf2He*D(b^;QN<TI=4EiFE9v4%tq1hg?U^rLZKm_CE8n6e
z5oF8HL(tLW8lD`}-gxN;u6c7i`#(g_{dY-)|2w_B$RYZ#riA%-NJt{1Z02!YO#r7#
zNWj`;9aOwQZjFjhz_-T6Mx(e3q`?V#hCS}7KlPe0pGYaeG*+Qh6!rnaI9po<iJ;xi
z%h{|fH<BfSu|?5JB6t5c%Q$uZ=vQJNUiiY}`U<JzZ>0~H$g)i<`$S=LIh6p9mo@x%
zt(5$;HyoM66R&WDIBlQ^^dNezc$DX@g`pr|Qg-0B3W02|i<tVzyr9N0y~&6q$7_&T
zN^;~Qo9eJ_<fOZOW16icRI6qKV}#uzSex`OKpl-ZN#7$_oUiYOfEL_-Y$5p+*E03W
zMHzrWpq$r`Oa+k?APuwzGWF8RN*)5zbS-mu2<Ro{m5;#I)n^2Q+m<H15>{!>QK{*X
zS&LXi#-P(QsY#xegzg~VUA>W|$95o+g7IQ|I*Nz0rh6@#MwA+6Dk{`n=d`%1{H5q#
zq^q0|Bg6X$nkd}h{G4li(L7dqXK!zjill^u=Brg?xbDeOlg|D0AZ#SWcqx`GPg7GJ
zgQ~5u$#M{XtRrRHq&opAwFhdB$1sqEcC5~mLvc5$fx9+@EtXz`1b1?3k}-1ElzvvF
z3;WK=t!i&XZEY)^oj%jvPcjRWroL<Y1$}0sL>CYjB+J5v1?yCGXVJ~5nMu_m5R_4q
z4m<v!X-=K;j#r*Hsrq276CYL%A9j`bt52F_^XpxyHM^IwPyQPAdk&A5E|?S&*Dg$q
zMH7Xsa+#nM&(U2RKZVN45v>N%1i&c`v&XT*5_4oJR)&vstx1aXF{XYHz}|S5wX&U2
za8(P1V{b$eH4wuM(#~@<94k#sH(XmOeOdd`S8q&AO?TDNjAv+qL{7<8ExJxe9P-rl
zMDwC#t99@xrF3<6P58r5w~f=@dI*>a(+0P^K7I8W3dN#F^{|^EDxIGb$B7I4e!QKR
z5bqUVDD92xcVyn=4I~v~WRsU&+NGAM*g}@gTUj)7KOEWys4hIP6P<&q%FD`DQKq}K
zNLw(n$*}K;5EJTYOVUt-sC<dmf|NjJmyqS=THE(+#sUPwM6J?HR4!;Yv70p0Gt;jI
z^_(=W0|fy;)D&V+=#HZhm>+%K?hqym)QpaejNrsaMT1)#?6x1UU||g1QM;{E8>)C@
zm+>&qic{VNp^ALesQmdUj+1qE_8JY3ii#pL2a|;9q8mp>L_}Pn!2fc{Mtgf{)|$_i
zl^SnEU0H038F&o!H=>oYb}!qb+?R;i?f6s^z6Xx~jvk_u9@QOSHzstb2sE~sN8bg_
znGc7H=p#~qNn(e#;D!78e(0wk#fc;>pa|e5t$awUqzwt|h=0b=zG-qNph%&^*3K?>
za)g;|98~G@bVpT~vFrrmRfHw*)PcwpAWD2A3Q)U?gdTAG7~#~DG`!dqO60`R5gc{w
zkcV=Ipz17TpPh%yIW|PEA@4j^eVbM4Q+B~0-0Ir&)m2S3Tdw}3e{db=+i+EqDOl-%
zQo{!+qFeEnEYV7S7mJ!#Pa-WE&mPAXu?OJJmaxe4i1#h}+6RfYAn6dH{rb}KiN{W`
zZ5|#TXymuN%Z{wB`&Y%c?ECbueT!uKe@y||T`<V(fa1f2(;Z;>MAF<vIkx2kmr|UG
zG>5dUBaT8B$kb@DJq1}hqBfGxmYDV6n87odkuysexFu9aq-lx3nH1<h#&SOe?rVW4
zqRxPU#6b(-u`g*CVKx@g)6;W@sJ@}p0FiJ2<rsuWSU2TAha{9LDeu@M-$0(s&8>21
zK>m?U*$D;OG!f&V%#m3?Q-vHG0+%l<bFouNcM&MA;yR_U<yj;FBB8mGyodVh$dwN4
zf;Ow^nI)}<-EvYvR8i6IFPD^rLoG4@{W*bsq@5)g=BxuC1q{K9!iMgvDI=qC->E(_
zj|HPg@&onlc~FhWJXZ<Tx0(41U1-MOV5GwvHQZLtH6MNRpW6`NPdE3EkAeUQ^19E?
zgH$F_XivQv3dB(5fI2Y9=0P|nRPRB$#%1|otGO`E6B-BUW=OANZPxKv0*B|pU8;5M
zb+`ZeC&Kxk0PjD!nS{Dt_|l*If%u3TP$$v!)Txn6lQ~WSMVAV7Pgo5nv)~%<5%`4E
zY8?Su1WO@#w7rgo#4&L^9M@HbN^g?l1U$P!K@yc1<~#fc6RuEzF73}HL4e8gH-x6D
zre=6j%ROHC0-P4|gv6^2OWOU3%YfgIYK6VOHFpIDN3I~Pbmzcp0N@d;qP{-8sQx7*
z%yKQt0zqp34Wq4`Kiw-WBO^oH$8h*7XjSvh&Z{-mq%7%-6TQAJ<(Zy}iV8gIkn<b*
z>Z-=Z-CtZ6u}W`rDPPDHx#8$5a+0!SNI(xbCn>R3U7Q1-EJNMx*An+R!mPHaO!&jX
z3p4;kA;TJgDFIolz)nCqjZ6t1j=zAMBY%NNm$-JV_ZD?;Uc%TPG_6Uo3>ypk23{5>
zzb;SY8%8oT2nu8Omh(xFd+o8?5uFvU46_5ru>zh8xKG{sicyd1IT&-}nIk^~4{Ep?
z*^{V%aTWdY>N7TMI>tGk|GuWi|8tA~)WYlkTIe=1wrs)Xd<a3BNxL`TkOL%eBnkAt
zNN%7B<aojE&0ky#%fgjgNWm5q1yfCEXS|9CXh>$84z;5qbn4Aj9A-;hH2I1L;n7GB
zG(<_cC$<HzCLpARkm)4NAa>#XZw?TV8jSYT-qzuWyU#R!o55`fY8J@Un{<jIm`VXr
zHiBHzRz=sY)`;|=B(WxG!f4z`cJpD|s7ZH86cx@DAfY1~!+;9<k>C207&mwP&+o2f
zM{{D7$KCT8L<){T3{p6hnk}FmL|-bT-k~Bt@rm=6T#>S0T+xgQ7eJPbhw1zhNC;LT
zA=GxI{&^!zn|j@xEafMYjWCY@-oPmcMy{Nb4q(oZ%)?5#sbAhXLLhbJk#+Gw9Sz7)
zV0V!S6d4~wq}Z<HN4mpap@9A&rW8G#fOCN5h#>?7S>20QP$pp|MEOr$Yh8Tej)4nO
zV3#2)MJOdmXkm1;v@$;=5Wx$~4vN%@O0w>f-Yse0%!R^b(A*QF4O@e0BzJ>h1u`Ut
zbMA_S#K6*D065klX1*t~=`0LUhMI*1OTr=o>{zmmy}hFR?6w~IqRaT9reJiq?ifn*
zTEc1iI}cbOFR!ClPDB?7dmAE+ZUq_06d<jPoINe|;l(RvW{BpYlv6jOkfKh!2Cj`v
z5_Rs0S1hFyt*J&m4aHclu%$>8Y2q@h{!>>+(hqIZu{+zX74knfWp$HfYQ|+2fx=2R
zIaFXF=}gKeVM?wz1HmYATqt{hrUz|O8nxhYqLK(#0T_mg(&xtPLCD#YuTY?S)k<`&
z1-SDZZG-ZZQaKu)6<>&;HEPt0O<Gu9p^!u*WaT>KS(vR`{8q=&e1n$y^dg5~q^Y<x
z|A01F(66)st()0`dvllckIL;E9e`dThtS!io8lBZYu5Rl5yTTMP=+IaMDhzd)9(YU
z8cE~32JkD8E@6)jG_t7nQN|p;-w(W|b5NXn?4+;*<m^1$+(;vzFEx^&44l`}l6<V(
ztDM>gCO@My19%3_oZ2+2H5Ox270YEkt3H346lr)!&Yt*+G>owBsl62y6`a1?9u7mT
zNvNw|0v!thN7hPkJ<*gb`g@)&M{#OrLPP9qY)A{S8+dD?7c<+3kq^m@YxffDF&hzK
zQXN|~s~lu3iGtgy!&X@O>uFX$AK-v5BNzF=>_4>t%J8u$5kM0O9r?BC!^EdSd_0r1
zj#(Y&i&2v?;1ZO6+5x1+=x3%yT9lU45DCDJxZ<c2FAT7vk@kp+6q-TMd`4u}%W97L
zgBx9@w>znl-g$HC50!s9wj?#?HuU<RsV=r%;ur}o4Z(iY0+DJud3n;+ROeGuilrfh
zCL7SBiDaq8n4AFq1#F2>^KU<#_5g>1Y#;>)W*g3^P;-&<{l5q#Zli~_`9KXojwCvQ
zt|P=jel^GReGZMB{XNk`(oGkwNJVb{*~T7{0>}EPftI{HkRZq%gNj8BMHp~y>)ew&
zeci`)lYB3qdCErf)VBMC+C#Z0rv)l0F(4Hn6BMD7b${4n)SGbXBK{O6#85vGDIWNj
zqY365KR=VQh?9>07vu#0I6U}Iaa|f(UEi$DK#vH*$%PkoR@+0BPnwv)UgnTqUrIFp
zwWJ>=GRRO;Tb3&DYNR~8Na}CsqNHmnF}^&|riGx1{CKh(JK4kI0d%v3P$NGUaBTg3
z9DUMJ=FF+Ugj9k2xDVO2aU_%gJ(2BmA`NkHQa%ucfdeGCDEB1lEJE6mt4V|EJa|U@
zn5_61+M$vklP>0jT*8(n#RIBcR;yZ2VCn-LwRYd7lP*wiN7)>_O(@8z8Y7g7+_7+J
z;Uk|UP1_HkDrv5))Tab`5Ax$RqWb)j4Zj>k!TF$n=pAInlE|otHzn{FKPI{m(%X>y
zm~@UrB`c6Wxh+Y=YeE&qDPtf`+rxuM?}<>897xi4Is>9yNTERqDW38+k=i6gl!nJ3
zLniHAZzJXYtgLM~Dk;e>NKp98hK0t)#;e@Eh>)TJs1#vU2&+flG0tt;1j_-iJUMt@
zSA@n=h8&Qd5f0%_6AcG|S*TMLqeEjAqE}e7sD(DBh%O2NLj^541D%y7=n$867wUvS
z`{qIsIznL#60JSy2?tKG)L(W6#X-jq;P)gHicFT}wHv;8{`?q)QD)z>*Sz6?tD`cw
zOu8t^U=FwKhQata)&`hbPD>u%K$0tGaYHaYZEU~7He8@0J8_XTPURkGcM$11cs6ya
z*TT)~RFFgtdNA#e9^;9dYv=T@|B?{`v>r>5LNC(71T<`n&5qlHfh8^|_CpPl-dDJM
z=r=iYpq28lm8d6%Tm#`NZon}^9@NU-3r)@vAPORGqKhK&{K8ahu@y8Lq-En=A7UQ3
zZjyc{$|iYv_&ahdV%Lz-+zLHtxbler)YO#2xENNvID1cIix{M>LmdsshbO+T+?<DN
zGZcCEP^TOaCJ-5p3x)I`C685$I8A;p0=&f#mxUDR8)eu~WGF2pJCU!F8>tbsQ}0-_
zOSf96C)vUvFT<7BsRm+&qii^mD6VCX{?&Bl%QPk4!$xGR#Ke(CyoM-9Cp6*#G)-^8
z@AV)J4?Lsobp*f?a!S%j89h<B!sUAsT?fi~z6XnRL7OQUIbvRDSRJkXgBv1-792+}
zqDdk_EGZ--GU9C@@oUi9sz7u0Obl+Cj(Cvh7_yj|*gvE}LtT5v{s)scjWfe#Pb=v)
zor!hcllT5G@{XD9uJ{E6hh~stCcpNA^bd@O4kjC#ie~f~-ZgIW=_;%C=g~1U*S@wx
z$)>Td16+kWO!Rkz_i3LGvELCeB(wRHl1$b5Vlp5K+Fql#QVvRgn$Zk4+U5igq6iKN
zOT<2C=E{S3#)I_fmxXjCm(b3nH*2`^u2j`vxrI{qPo$y20okrZQ#jM%HnWW!Jg}U&
z)H$1|Qb@E(Vn-L##7E9b0}mtG8q{vbn>3ke6*}%%+|u|&mPY!fntwLgs6i@$(6gS3
z;M`oyf=D)?sFg!Uhr%?5nQIT3@Y(6C+2ouiQdpIOp817;PN8{Y+IY`pxq6FJWW#`D
zG^@N-_qB}X;X!&b$AUDbGSj983k?bPTX6a8xiTlsf|iThyZIt*SB{=r`*FtaP4%JX
zqIvcB)gAn#ZLeqSEI}Y?X>Kmn()><IF>LnFA<n7AySc;ViVG$lY89O6F}do%2v?0A
zySsnK$T^b(z|#XbsnP_5a3jXN<3SoG^Tb9@fko#eL`W|I1=<7=WnqF$*F~*&x-R2p
zT6k{jaw?2FDJ=CWwt#XaDmKm7>utpPVwrHKqH>$Qm)SMqPt%H(?+LK(Gj;FB?%R01
z3Oxx(2_JCJfv#u%%|IDGAjUYqw}TY1l5E1Ik`Pknx3k`9(NGOGG4V6}HlKfrNA4^e
zk{ezU0Y;^X{@c<%8s#)P`3*V;+8-D$RJT4DQhz2USv@cROr@kcQ=~G!-<++yiZbNk
zLE0TqCkiRhwClm(H+hh{SR&;CS3x@Ura<zQ>~ONqc};vT+j&O_`%H+A(9P!-ZB9kP
zM%%{{Jz8a1syp+XkJklQMT<A=#xJrUbGz-)FGmQmTGpoi2@=j`i1lwHKpe;KHrYTN
zEOEquLd}TJe2MsQKyY?IkfUk?J1VSap1*8#Dt@<N;QkuK{>|jq6Oi5*<RB5D0;&s0
z7kQ3)9R+VYi&1w-1UnFVv<hl1?+8)NY`-csrf%GG{!~Y}lCOQCok-zX4f3Atq?KMe
zwpsFnWT=`ONF`Sg>>&AtJfihZ%G%|mA9@4ge=8E5)po;Ltk5_`QfuaDxSvXT09Kcm
z@4Gm%vXZPA_-#2!1kep`)75UvUod_>ZcxIws^jZ#RjCzgn^hnGDv>kO$ndq2M{}M<
zioHJDvHgcbcvK^&GqXDMeXNy5v>0?V&B*Eu)tix*PyDauzB?Sq{%`v-ik4BNL{`IA
zQjt+c6hdyP?5M2D-lU93B0JeDBztA1fs7PoWwdPBSt;K0>VDqe@jUNwJpaEA$K6r4
zab4f>8RzHxoFC7Ad2`-=`8zSU1B>qzA|>ucNNGp*J57R{()<>!e~XxNQ{Hyv-0O6i
z`OLph94s|^>IDeJo;UwKD{5!i%@GluCt5h<55o{3jP3<>D&g-lAQxkOZ}Q>hBwxE_
z{DPgjL|sl<?3|{dyhOjya9MNk({mxP(Q6B1|4EHkd;B4V9)6`t{@jNXTDpdG;$Lq4
zK7xSXFLiZwPq9eagV*s9uQWQMd`yzI&Tnz7I@)Ld&%a6=d;io)H%RZYNOPX_KATy6
z?w1R_qR!&sHj%gWXZXNTJ|2K>a#A9w-;vq4n8fYSt;NVlW_<s*&4lC-c8@8SC$To|
z(MR$@)?2u_k6i0IkXZltPwziZI(y58&-|I7m$xx+MYQ#uRQ-ppt*x#~&ch@r$3_?7
zZPVHz|4HR%tyrgumN{>d-75wCNl(l<pJby>B-`~_nkFmz|9zRORix%CsEMdLz~hv<
z#_00=Z!eUIK5WmsWcMPzeiyj05yI)o@Uh?%?gb)%D9x)$3M_TN45)ZUWasSJ)tIl^
z=HTR14+ap-5?QFYwL50WPCe7WZaCg^#L9C=z+4-uNZ&EG#Ge$t{j2^+@(R<3?%hc`
z=Gf>VY)9YEKMNlL8aSMFK)=1mT<#un!o!t|QyT4J4DB6JWFhu-42L7B=q7wLcE$F8
zt;DWbO|`s=$ykuN<r!9zbbVvE%1P?tH#(7;S#Q)RUMvJe2GDwOW_+Ra>N2<}tfwbS
zaV7t$*DYSkjr5J&F+c9LQ%0WjO%^POtP*<g_)OT`YU@#xPy5UxqXj1x=cHWXiw@Zh
zIf2$49UCk0;c2w)^Vwg<(Jo%0Gs`c_jB-KVJov7mK~`3lf=EQ1D{k|RT02MYF2-ue
zXSH+h+qeGi-MdFTvrFrvnpDk$2J|ya)=e8oa@HSQ>=@ap9v&?+6jS-Gb?$Lx+xR@P
zYEfeolQcS?fE(`<WyPJRIZ=iQLPVJ&>%E?qmiCrf`YUAkHcQi&KIR&7AcmWF%#e|7
zu-s|5*QW-E5op@(JMJs~{L#HFDJe-U?d!Yi!EE)h*VS#Vw9}OJq`^&W2FLjYShM*a
zD~_p;A5#*Kj$99z?5p58a-<_uZBa<K#0ZUUbh%a?l`eLbs5PlwPx&~XlinlhIIYcD
zR#rx=E{mGnFB4^9VyZC{JNEPE8K<^${QFF`Qf>Koc^|~DE@5YRw?Ee$ZDbA`43o>%
zEAv8&k5PRPJ31-q;PR>NEB<p;=IKnW=p6Ol?{mI(FAO|RD=Ta6k#U+uwRuZo#y^%l
zCD(zhMHbyR$gN+P=pmn03f*;N7jR=>ZF6UnDuAQEtEnc**?G|E=v2<ELiDn6bwdRx
z_>EcM@5|<P^6cGP+mo~uNY>`iMpuJ@A_qwE!loh}A#`|Mu^;c)VsY3iZ(Vpr<ji3Z
zi)C$XMSU3BXkQ}lWr25(w{Lou^1Esx<om<IiDf^YdD%(F)7jc7pnsWt%wW7j#~y%=
zHCX2@U8PnWH`o3+5hp4fC*Ei49u-5V+iWS!MIES^BEM3ib>YIu$6v|@Q?BJgCNx&-
zj1TM}x;UUZ913^oS3UA9EJyR8L`rh_y@ty#fmHg(9JS&;c#!ez*|Pz)xmx9ubxaV{
z#cxW&b)}`J_ft;u!f{yrvjRN^K{jbuCd4WZ%jRR%7p}%9UUu)7Vqwb^88W==G5RpZ
z>hyD)@9S|sec^*PqAf`7!i62Pb94EYox)&!?1HF-qN?g<9KNQ&dX7d_KAhB1oK$y7
z&f&jnt69+OF7bIly2ZdULa9EOgWQuDR6A49g3wP_pB{VMvwy6Q5?z!p3_bt&_LN!`
zHm@dZ?G&wka+#(ByjSbrOEwsA^YJUkh9>!*?~?~jd*<j($GkNsG>wcnlT%U{+1c-V
zc~P>-xbFatQeW+{l4tc<hMJn1Q$}Vt3cNdj_?SBUw3L&h+`4sZY=7yY@aq0~d)+#^
z{*8MM<c(Oz2t*%_<Twzts`*{5T)B22FhE0Cju!2S`<LJ_TXXa!H}96}x;ee^HK!6*
z^YVl?d$#sHjHF0HU(JqV_PpqEdk_&Z*hW3_Kb9~$I=Z0FbV#lGExXpfunpNd#V^4?
z*dw%wj!qE|gUiD6$N0G2kZMK#l1en+i`Ghkz7it-I?aI0(Bx3xIpxS`k>QxiR}q%k
zvvo!Xj1Y<X2L>v*yH}RJn&HDP*P&e!=V=R!?mDCj@>mc1W9*KTy>}5;Z8kSIhiZn*
z%U7?e*mF7?JcPbyK|9GCqR5oIzog2YXSk6ylW4KYRDac}GiMyk!cAPv+<GO3uDPv#
zRrQ$Gsz_}$n?^kU1t{=s9GMs1G+?Z-B2#1ps`(mheIH<Tor6F12k(yStCwD>q)DYb
zxHcOa5pl&X4l0<$Ny7j(_S$d%F6*oTmKAh~EpCgGCz~RLAo_92Z)lz1)SzY?!eN2K
zy+abtv4i)n3~f-Z8{RbRbvSbVWX_UcS=bc+xhJQlDx9WnIP|o{Nm3E3t1DLK;VFk#
zwXWKR2~61*3Edk0M3EL$Ch6i7QTj>EYB)wpy=AU00aj_VgoFf%k^4437jmuIjc(rc
z1UO7PaX)A`ZuG)!(9WverY?0GnLZ=F00S~+ZHua9TP$~aGBPmSg2)>^2*XOasy36o
z5<mJXIwy||W=_})<7V@H!$N6SFzwhuo2{+;!?{9qi+6>TL)G|bNg$82zyq8;Dk8_A
z%EB(btSL%_iWuw29uKjP2x!<jh-q?LI&<_Z-Y1{j^c$Ys!P!UCMVLhw-{VI`L-z#+
zTg@u#vU|04d{+wjhj5p1j)?8+^P!T<C6)Kb5Y<Pu|18$Y{#l)vNWhb%b<C8ChK2RI
zIF(+fkorK!>(boUP?1&H?dW>w^T0*r*rTibJUmpy0sE2nnoZ4f_xh_nc1gSbBnUJ_
zu*1C1TyXE7MVloR@1v=<Ug3z3)gEq`4Y&g<uV`y)>pPiBIRJa7#2>K{+14JE3+~`S
z6Jf}-I|Zz+2TQ_Z1kcUC2%89PHG9qB`TI6J%_Xq@iGZ<Xh?E47$*38~8SN9{u5TXg
z&vlaSi(IzabV6+tJ$=;BOqugca=Qblp%esq<Q7i-y^XUv!jW6fgDr&h82&htioY+!
z%6RB}3KnqBZ<dm6SaScWmshK2*j##hrSV{{R_0cV&YUe@67K#{X&be#?GS0;Xi^nc
z9_Z^UsjbWoow(Ij-@B`n&8=|a=hf;4yYORHzvEiX1n0NPh3goceW-M~dz|f{$RQ`i
zbN04+O-qFZW3n#S+y=yln2RTD(qwr1gkg9uU%hIKPUVsA!u@zIKWVpxQy&fjliUb_
z>3zw`$=4in9&r>5{b=f!?~wBNdmh*;nf;a1<cy8E2_vX`r9}=84uT+XlhF8Sd4K<3
zR~TMz%P41rYuZ(8$zp75JdNBzvd=oA-Zp=~fPl)c<f$?54gc+}>k6vTgIPPcbj{}I
zXZ7QM#0aB5zvi_+99?rYKrESA*xqc|q)MkepdVDSPGdo8?)AaNIx54;c1Ksq&jUM^
z<BqOgL&Ogqz3ld=Wo@HuZGk_zmG=`1Yo$28W3bBgn=d}YJrSIuq6II5`w!a<>(nJ|
z;7WCIi8*X})xpK(x|^Q#5OdjtO|cAbtMCRc>#>h~81zR}xh;|^LitykwtvjlWwEN7
z-;ODWw_z?=Fjn$`e2Uh#ty{0{KJS)$cia9?f$w&8R>WUx>UyF3f*g9Hk*U>HX15<r
z&%)Agf5Qi3Fd*B;O`AYU*_1_3-CgY=39`j)sN5-a*!Oj73lC<JcL~7==?wnbq&rzs
z5h`kGbWlI_0fNTl_9e(5S4l^Q6`(x@LH1>7WN8aUH8%BC@|}a<)2i+}-4kc`BKlX`
zb5G9%$su-0M+NvgxGO(|l*)5~tee-PUzQ5Z;>0cEZGWQtMD6^tTo$!@D0%JTUB(_(
z#5kSjJ9~BYft6-tY^M&hZ<$>px1#}2^-~{e&>F(JUp+otk#TGu(gojx0bz3yiB41f
z2KPR6K64fNK7OOW@-BYUH=vVkrdu__bMe?;AVXA#nYavWY=O_7Ju~i!Tr5$#Yhn=J
zv)gIRd+S6SaE@unn;U~>nW3G{3Xy=r?#LREV6%Sv_Kks+bxclp@atPx=aMV@mn5#n
z@%x}ALYDZnqfRO+egnfz(c0QN^NMcijg#Pp!=Gla@_(}^pS+gUIo?`oWjJaT*087V
z&Lx+Zk5f|<<^AZiKR6v-ZzvFjc660F`b;hUin#{FgWu4mR9My<x8#wnS5R1Z(5QyU
z>Ujux%CCT3tyel|4FwKKyxZm$-dLJtUSTIJu50K%@sR3dX=-|ED%6VVHP=@EsOaZK
zU|ox=D;_zimk8bZJsiD1xUBSz{?*k`t1{=YL$4Fwcx0breApx?D7YCuWX@51cT`;5
zeasHv*}uPj=oq<e%F4=RWB#_Kf2;>}>N@ptxSNC6;Ig5I5pE&LFW1AfcyQ6Lr2a!^
z&Q;q|6<D`AEd2X?6Q$fO#|mnDa273^8sAlI9>^ORF(VBi8Rp>ZfS-07843>q3-l-3
zET2E&)aGESt2;MxVfAy!=Yx&9WyD&uu8CDy=!`%_jzG^HKR>dU3_Tz6uCB+_5@fbi
z83d!MoD67aq_^zQBQbOCrjx}Yk<og?cQt4D;z|mKy$a`RS%O^<F624S7=v>~PZ|Tb
zJwJp@Utus5H8nM(S^li*T)nk2-xpo!R&bpnT<B=pe-=u@<=dgxh7C5^CkG9koyEy3
z0Q*G7(MuR|ocLi>13?2yT0I``A3V29|6{$VQ^$fiIYt<lxP;U?-*fFIEG#Q@Ldo7c
zWE50ImYsBD+wz?D#O$Yq@OqO;T6KepM-6?#5o|V-S(P?b<C(5+87me3^Kmo4ZW?*s
ze|;?TIsX6lH@*RcPw&md@F|W+q^z68#XwQ<j=j5x-m@>-I#=46)hF-yyZ>`i!U;W%
zH1`#~F>b66NkKM@n_Nn3A`TXVoU<ewck;%2?09o6F5E(uU$YiB<D^{LlCBFqUwUMS
z>Mw6`JOkx=Z;JKavXj$Q<s$sX7yUxR!kGJ_24@@=H`!lws0~|bY;F#3JaFjHhis3C
z^N3g=oXWR;3#$*D3z-k%v<vAJ)nFoJz|`}#-3XUw93L`2I{wkb)Z{5`0$+D`HzrT-
z*u0(!dRZP;eksr5rQPt5q%Ub(8(3nq{9G+fIuwxIFTq9F`l=`>s2S6UFfyLIFeH*Y
z)Cojo^1UNw*9jL3ol_n9ZY9QA#U5Z7T6n0e5)Ev05cpvB@$(~lx$BV)kzx6W{V^CT
z8XEfDuYnjsAcbBFx<!bU{M6Ft9J`o9@pzv8tsgL!i#ny%AJRV?pt`r{C?3%G?p-~?
zoJ$9GOapq^uDh>(xC^Cb3PS$Q=GzUIZ3VQsxoyuRmQrzYbI%^Z)s=Lb<b<j|hx;@I
zCDnCLDc1Xn=0ESbNa}L)@JKJ5{1mpry;kQsx}p{<ej7tpsF7~cW#bjVrJ%;Ds6G-q
z{dFXRn|Ep$YC^&?t4k(C4Q7B=vE85j8*Y%@mfq{PTvmUMWC(?!8Za>P%s=cyo_A)!
zgMl%`gY5-YjJY4^1!cDOrZ_b}oPtmKi&(bE8|DMC9twL(5#S*iF1av#1IZvA`!OF7
z!yc;c!{-1zJ+Q4MxbxP>XLgAwst$OfIJzOM!3P#R8Od2costbIGT^_niqTpW|JElg
zipd$!_y=f9>aB@m_-|I%zt4brg>QH`6Hx=a{YQ?ZN!@0m2H-jA&}vP1k^|&vZ}(TZ
zsr)0P0PBmLA-w_iUIWF!3@v_qQq$1zh>C7SI`<Mm1L+Zx!QL`xp$M505EKj_>SdR(
zO^r%98;^_<Q85KE(pOPxyaI`z{lpjWfyumxxrd&S@nSul0XH`{f!W|&2_qc;H!UqC
z<!V@B48vSU?2vM{jy8{+XPONR+-$y#H6;iZVZ9nKM&IXMlK1iP;RMhDR!z~)Fv%5U
zh0muUHALeu-f<GH7Y-~BB6FH^!-E3@MkwBrDlCcZ7L3fyz6eq|N^kTP?D~L9DKt^|
zwCoSU1YA-cb{eaCVHSyCo72ke%$7kM$Ahp`cxD=%?Cr2%iYU%S(=Qej=VG_yaf`uJ
zYg+@9p)>Z?7it}ak0voW8-v)Ki!9nV;(Jiemq)e+p0jssEL+9Fi<0}&)f4K-S3vtW
zULg@n#~_!8J%lB3{ykIA&YuqC1wWe;w|04XneMs?pODa&3a5>d?h6F5ed@G=tk%?e
z4SN9xI0eM26YonPF!-wGHq}JVcZ)K<bHQ`7vw60I%0DN1SP+)WrYT2|n~Q?W_rKVN
zh%WNH>eXMCBwhpbi(XDnjsdHZB=2VoFX~tt!K0q@(L`xHAq~$A<zosyK0dRa5+Upr
z!`7`{pi>*esw2iqf6Ew_6K~m4w9Pgl*tR&N<Tq+cyu7>wVL$PyJ+n({zMIFV2F`~R
z0LFJyf_`vvak6g)^@&pn=^Hj|AYU5v)``asKe`UWB4o5%6q&WYO!`wnemO8s;uZo)
zff5dG?gCj<jnAFH-K4xlaAGoyJeLmxG6ZJgH7Li~HwrH|Y^6AXc=0?f*K45DsbV>X
z&kZd8AP_p$M9(3kXR(YFG;MIWC2kv1{is#p<&9gmFnj)<@q7DQydoD){8R6FIXN$0
zK|v-tS`zJIWMjMLPz6(S50>py;3ya(;T?z5O;r#(tRqN<^NPZcpuDH@z}-sAgY@dV
zbR7oa7mVSxk1U=`Q)Zq4_d=p77ej$#%yp{CYNeobN-Hn)qs^US5)(Ng-=rLKFrqnO
zxw6Dv8f<Mj|8EXUU;-Waz$E7nU?Q^`9SMz-<t3z=X4@(*#-Ju^$1~j<wjIX{0oD4y
zfB#-|yk?@OH2cPL6p%zq)m2rQj>W0vOO<H`$7OoT(S{@>Oud)UDYn>)EbQ{#v;GA=
z8@L9Ja|}Mwz2X8P7ixlW=T37cX)BL~k$G20|EPEMB4c{`rm1OLoTSrsf|Sj>ezXde
zR9Ye#qStAW60;IRfk6CE5e%@Ufc{E9V8Thg4K+MM>)I|!M?r!F9JHfihNB80C&-S<
zIN$tbOO<1BbaBTV<St!G>REXNeBsyPl$G5wa6u?x>FJf*Z$N9!ZG+s>@_z6|LmoaH
zag=JA9_|`ERu}(N0920`u%O0vE-(=Qjci8S_LeRV`U9mrO|Mu`YjhwHPe-yCqDL`s
z{@qx{`8l&nxH9FrbEv1kzM+FSHDas>gPa<BON%{(k=~zZb&p&K$}b!cJSs8v8G9EJ
z9=_+y$*)fVcX1s&nBP1B<pMup{qk^D{fnXd-|?wjX+Lg?>WIk5$ILLLVVQ^(_n#ka
zmJmi0HJLQGUB(KPXm6*c?jb|3Bb^Oz-kdNtPJZhVE@ss)MbzA)pkmYc%znM6WF5i8
z#PkJbJzy%>-(S$V!Y>-a1-qW!|5D{J9{KZmb91xt_!|6WTfvVX*SLHtd7N)2w?6pn
zK6f8xayw=-!86&6yyt2~fMp(s_tkwHT)2WsX$&~sETvYT$*+OyxC`&Ju~<jwez-+z
zvM<329u_|^1%BXz2X<_R2b3q}+%$C%;1#llZRK&6X0G6gWq&c=a&Y0Q{svlF2JiyI
z7a|f8MCjPWNzClteFM8IhNw1G6#a%NEj{0h@weF*^x$w9AVV4wG=a2CK~podNDq#?
zx3^bxj)j$#zxvmhfX&>{nM<P4%GnU9w5B+rm8Jc5(!Z$Wde2588QFp3+@&Ts`Lu^H
z$HO@1Z_eVJlTMXcB}*xI_cv&_azg_dKJn~@3%t1B!X;Lpg<;(Pv7nxUp-8*_>eZ{-
z(7h_JYwxl6zA$?5$=jQTUO8nKg+Hkm7a-pvCGk&iT(&0+D^Sj}?kEwHDU+rIl5(5z
z4xt%baep}9Q=`|r3u-5J`0}pwo*Q$w9~KwqmXy?0HU;kH*g0Qk`VOgGnuC{@S3q&q
zx^?TmAsk3XNLTx<;HX#Utb6{Em%5XTm67vx{co;wbBA(BI^XrrkSpkTA>hLR?Gwfm
zqq<M=MnZ%?@=letutM+iSS#3xtbBuN_lr7KBkz;6J8iBS0#N^k)zJPBjp};7NDvU}
z!t#E&h%^TjMz1@t?>+YKj!k@V7~bKQl|wKn1+nEnQj?XvZPs5|R@9GPoVfl@@TwYr
zOdlxxk*7=M>kg{>!r)-@`o8OmdZw$z6;ynFzWPf=2RUVxc4z(%1*FLpeLt^B*bexI
zlS5X&{%1SL=wKX3+}qLLB*BA{cg*^^%iQC)^Egrd!NDwq0!RYNLQ#j*TM%H5C-C6k
z%|1N7-`65zYRr`U!|wduxz@h#U;Gg{L@w{VBy>dGW8q<NO13Ra@`!VNZLP$|7oZbR
zQZSwQdg*>IdnK%y@)W?Igq~3d<bD@FNrgXrQJW?R5aQE%PHft=X$ArZlmv1crtT?p
z%UNS%b@jE8sUXT(PgvugTwFK@oxQB4(9qD-MO?sIKuQ)4Rq$rX$`Sm;E$D;wO*~{9
zoXT&q36#Eg9&!OEN0TJ>Vs|e=^``B!Zpk$pH_sAyDKe8M-Y3b^#FUC>Y4L;6D*s6P
zE4l~^V{RxbZ^ZCiii+`%S?B4&#wTtealD{kuSZA50(yF}Sk!!XUfp7gc0J{kJ$oD9
z#{G&)NC>ui{%1Qe4Ym7kaE|s;hj`2T)^Hf933mhq0NzW>a&)rm;7+y>Z<?EnR!*Ey
zkN+o<Ez>hdBddLfjJr5tgvPHM>F2knwJ52x`Jwi4YRa<x$>6kO{L&9H1_#hg5FRTF
zCn40A{WwKC3mjfbzi&r!O|71=OZfWuoT`ucM~s2dWjlFT{RNAzb#MLp_3Qib`L+)~
z7Jqb8RT<DDn8v{uDEPdz<XqA8mR;4h+2K=~3QJ6r;PaYKZla}ts8FjXnAToC74r<z
z&oTMYP_Ee#d!NK@ey$?ia=;SmRXU$_U4z<8xBmI8c4c-o^2ACem;>u$|Fj0p1cCsl
zB!q<d?6r&V6(48FSsC1%oHa>eDo?aBLx0L3T~8BJ)=cj0&Gd|%*|UGYe41wWnXFW(
zg`T$AvQv~A!50@7S6h~5nsNp}Ju%iTVytKKTNc2#>{jgz8xG&AG|oZjRk<=_Ipj4p
zw*p(e_uv5oUjjVZBM$BK4@rrMCpyGcG{@Y3zP5RW6aG_X&z{#`C!}V&O)lo3udA}p
znN`f}7Kp<Y;{yW&oYK<l#DfP9jGXi(q9yYS3ksx4)IoSA)1<Qp5s+i@1T_K98#6Ht
z0YQRy?16Rh++)EZ5rq=O)KmoSNzcj?y|RM0SB6545(sxL9c8!k3m2fLwv9MmFWh->
z;j(@i#C0Zwv1}R8(jmSe@3}GcE)o!f^3*OdGmW8NLqVJbTz6ra0lMSaKY0T2{}?@s
zn43kn1a%j4`;20ms}fI8m1%P;Qw-ogdt>tBbA+=hQz^;Gje+TVnu4UgUl4I>G*t#7
zRU0>M)X>l%@DJWEG=BUp=^PzxuxkuWnV$kMa{{r+fy-|gpm@0*VeK7*+^E@$qPa*_
z|7+bkY^;6u%eV=8`k?ku6ccpCG+$_lBNIvJO}}wgM#g24zlnW>(Qb*tORv_mNjWos
ztV3wnSCnhUvNsIf^>7j0rzEN4anMnzfjKO<o!L;(vWbqxjqT5ieZ0K1pcPOMkatYF
z;1MTo!%ZZ5uB~QZ5=dCc>ML8OFL3=#9KPoFc?O4CX12>ciwM$Wck6%hD(K^LsH30y
z=gg9T(mPxhnx;|p9}Y*N2JXJw-83g3<lzCOUE&sGn%mnS=!M3_Y)V`T)>cqRmHPK_
zt-<R$%@b7aII)p1YfIfg!t!tPeg_Rky(>6o4Fn+3UVOj{wSrIjH$<bSk>yd|N*?wb
z%y<S@7Ex9`NPEHb#;cOy!6-un@|N?rsb~nMKCf%>_v}F}yOEZwoz+_5WJR20k4B-!
zQ9!!pXye<^!QW3%6jHM?gjE~;1L&VKVE2xR_e~)okE`o0i=MU{Ur$5xx88^$@z!u=
zh|Az9`8;tr7B1*jYv;yZy686$Z~IC=a!^ORXA=Q+$(XlSVBj?4$ho$?^ewVLZQ6!C
z5Ti+z82;DU4LJvhejRby)Rbi<hRsw$^T|MES|ptBq@7_==Bb8JTIFN#5<mNAk6b(7
zwZd34yYLOSqxZ%!)I*>OO+f%Hl9Y1I6GXfkK9nz}-ebI*t25&)PYivET^*va)I}5m
zidKvcC@smAbq5S1-gIz%{f#W^R2f#gmtC`IINf4yh*!RY2#$gP$0`78#*HlW(xpqV
zf3-Ii4!tWLySu|9+d$$~0bSWFk9Vjb$FGuW-J%ua@c>kAtQf5_DrdEqi?Ih}2@Y=$
zx_ft~>n6+`iM=RjBWcX;`W&g=u&@4t4ErkdtP0D67?LlfZ(oiCrQ-{fVYH)|w{JI|
z{_>*j^A%~%2G%A&>Tb6$`etSsKWm;MH#A0Kaio)7+O^1D;CZh)a>tuef1&zk_M=;6
zevR-DYf?UM^%1En!G}{YNpF5aMm!vJS4Usp-IjLD*FCMb8Ko*8gDO`F-mzQ1kTb=8
zk`Wibz&a>};1RK@(!vh?uV&JYk%M~WL(8Vw5>At`Vy2Zswsj+x^Nl-Utl=nVG=9_Y
z8!~L)eh1JUL6A`wJP3z&C*;Ad$n@T*4PYh$9!JhzPX7g$CsgGLDv0!d+iV0JwKt}=
zY}z#Ec<N?464N%eFvzSP0|HM050IE)H;vUGQ`Iz)<bfDK19|Stw&q0-QM3VyLn0L9
zJwDO8ZK%nW_rc-FxfZo}sqV>BQ)u1LaQ$3nX9~bqndgTugSgv*AP`YMG|v<8N_0C8
z)Qmp-ft>oj{XHiXw?c69fSe&hY6`7ZPJ4;GD5({CH#>Lkd<Ks|=GknLj!(N{lK_xK
z3G2Va4{I&9Jda6%Z!G*GM8aeC+NFyVo8b<CTD?LDl-i=oMQv+mmyaSZu#$|AytQ!8
zr>4Gt`}QC<Hn6!_bzpc{W$h>{8D!UyRc@Er0a3~0eS@mfj&*=e_EvF-TXUkfhNqo^
ziyD_82)G0{KmU_vnyd!)l-za!(}$jyq3sqH#l!cuKo2||ki<ks*$zajk}QpH-@oTO
zjBCf3<7R?yNK3p=SLe7wCCr5!|3vFd$?p)*{lfnRMl=;rlSS99G%BIuD+?2(dm{0d
zb?cIV8gx~<9Ex`t+KI%Xx2ZMsa6>}_QtuiN;{5XR4v=5Betk0d2yH?&6ciMY`pj1u
zwJg>#x9~>NoCG-r)JgsYFi{_gExJMS2S~(z3V~H3vPJxF+$`8_!6RM{=xNW;Obbx4
z=}y+pnt>t`aZ9Xx5_0TvKo>6eC;@MN5E4QGY%6i37lWE8flYhCG2$^Y1A#pIzJ9H6
zt*7MeRo7~b8<EJU&p&<T0P!f&dWx~$XZi=hQ7h_&nPH8ZmoKM^9bQi$s-hyRtaNmd
zjr$H9U?9UMvhIta2W0$^|C?xOH!(F6V>M45LbAxn!m_`eqF4tVA+)Ht@9_2YJ*B3$
zU>5k-?gg!Y!mpWLlsodNSm2n`<mN=P-F+y)pT2H&;sgN&8y`f3T*AV1co9mCUtEr`
zw3_L8E(&=(K-&1){R#|99(v|Ye187?6@C65Zf=)6Z)}u5(;<tGyrbF%mgK(T8dQ{W
zge@W(fn(ZvB#NBLK;oMau^OJ0*)DiNW6bkkD7U=0=Lg`}(A~$bsNezqqA}y0?*<?K
z82$X*Gyl0C9XtPu47rF%3H+3#p0rzFrou)PK-ZoMFZ$XRhKGiFq596l%ljs6f`*RG
z9~NkP%y3UnY-W86AiGC>%W>Y`-eiJEPL10g+}b%7k@Bh3O2k3)5l85VfEGV9s9{D<
zjWH<18Y6UUW9!%}+49zI_u@$Ft5J@G=J}+jQHOy*KiHjdzJqD2g2JBTf8Ae*G18tq
zlX|+R234#xGc)fkifOlOIf)PoMI1@8zJL4n?S8tjYdAsZGocn06(xfNaKoiRCaQTw
ze>@QNUur;k)+@5dNMZvB#UZ$TKzh3-er}?rJ%L)%>hC#qpg8LhLgTwmpl=r276`zR
z2|0c(e%7$I>Vj6L<~r0;DBwiP2dUBrm|*qb*}uRJppTw${pKCF$aXSB3at0n15F|o
z&Sp>*LoT-qEg>Zm5rHD%x~Gwlh0JzTxj`>afs>PyK-qyjC&-ioKBTLw@I<SOwWVz;
zC@6rh!p}TF;Jii6GVR<6eM@IbC<4d=io?^VI^QIhpLW9rSw+S5C_n}Q`{Ds{7{A@d
z#)d>vg$=6%fy%q>RWy8hJ_r<o(A}}eTxKteDE*^jZG8X=3_hrQGor43B7*-MS-JD^
zp(cxR;`Sp9Uf$kmd>0XOYFt~v&8Fb}#q~N2B<L*!Ikqp3RYFxkVOC><DTg7@W|S0U
zN9SFAe0^V-i5VliCjpC6d2a6g07OsG>#jhJ|18S9B1!|XK;2c?S4aX3s0<VY>9KHW
z*AXy+inw>uTZ4h+LY38<WK;odEO@J;rl1h?otDIJxw&c1fB~SG!U)%awAH)x6&E)P
z3FadYq}2HR!ecctFONZ_a@y;s6Z~x2;t)+esS&t)ym#HLz6z)Bu<IGn4g1)Q=Z~-b
z3kq{5i()g4L7QmH?!#^RD(~a}`{6Ph1Y;<W7kr(t-h)t}7Q@heFr|SCxRM+#EtmDm
z!u21$W!tdTO9-wA;`Hg$8R&#6nm`OjM>wMgLz;CC<UfJ{m~^S)l)}K?*yP)|$o_Bc
zK+c~EV4>i=r+WXYssgF@y!{S6M-Z3%9V0OD`srwhX(&J-Yu$Y%hXvdYARxN=E;a1M
zPE!UTMNpu|asmfIi$CK0cP{QH8B1E*{w~k{<~YfyxC({A8k`@Dk~?7K_q7N%hped?
zOkoX>QhA#|4WKfZ%)jsvAq%n>z|sq)H`vLltd*a<!k`wA(~$W1Ah@w)m~fJerIW2l
z4wr%Wxe>OBbf+*G-zGHf`oHnB4p{&9xBvam@!J1cUHcpLkY@xRHv|5^{oB|YA@6ZV
U<K-K%zmj>UPpT>8$QgP4A1OIWNB{r;

literal 36984
zcmeFa2UwKpmMx5JtKDsC%z}zyLO>7|5EQT#ML~ihNk9}tB@0LnMQf`F0*V9$q(nqA
zNX~_}1OcTaXHbIVP-Kequea<z=giDM=Q(rlnLBs>e|*kqsN$<HykYOP*Is+qeI*5%
z<v(%!#Ky+9{PZd5b8KvjY}wcr>i)18?=<*@4B^LOT{#(P{KUVh<5?8^`0>Um4NEq*
z&G*Rv7kG6r^x4?9vYnRx<-BcBUz44Wmi|+zq421QfrmdYGy35N^W)<`e!n2}`-eQw
z%Qjv4{@teU7d^TntyK54<^8H(j(BcO-?sJE(!j;<6x46I^7BUQ`}vCE4_AKpZAXrc
z+U(r>q7?s^S&z?8#5PPhmKGJo#-%k+S8A%H4NS*srdj0cCTw8c+7$)K{_j}7sf&Jh
zk^JKFVAT-oohv>r>&Y8iL%+`^KiM|!{Je<#e9yB$ko-J)@<-bR<d^-jZ<dmu56}Js
zr?|79krMB;H!3<hG&58DYw5E<Yq59ULS*Fb1{NnTWmE0x>w7RhKJMzuv(9~w+JPe*
z_3*b#>E_@6+pFrgddmsi$HV073avOY^d`B4+|bsAf9H;CltYwUmvA}mQxNO$sWpnv
z(H-q7JFBd`TCd>2{U)0h3CZ~>dZ8C(rp<P|?pmli|B48Db#?U<2?y&<mLG%|%@Z`y
zo}M1v$MPcg$x-HC?yN6}j;Dz~cYbx|>8h%#s<YbKn<>)`E!^BMLPNJ-r3Y^=+~Qzt
zoYkLtR!wbvTcMZNYQ-Z$!OqO?s__GqxtT-LeMx#=663Dy+fU{_5z=d|pw8X=@btj$
zpYHtrW^t4Zr8C&U^vu)!J4NcQJdTKtcAv-@bYg@FI_<&eac<tc*{G?L$>VR%tgoT@
zRSMY*G%l!_Z*><e$X~CsNjY4>BQ~|3*KV#qrRJh}>;2sYeRWA~v1!d5Hz-DJBh-1v
zb0c);@uZZ@{<-NvYNPddU!9S$8qb<mMj@A15?%7J<nSY}yoj@*FG51LS=SqcANu-4
zPq#EktgO5|k!G{=EdRR4nPfUMGBR2k4vL6aXMH^CJDjp_LjyN!GTdU4D03s!e3R6=
zR~y(DGHqtZY9<;waU1R_DJiq#!cNRlT|GTLs*`;15ix`L_Q#6rbezVjTB|k9ny%%B
zKeN7&pv1Gr9g8+LHr95uOlG3aIX-8cS3rm6c(g6$#+Tn)n;iz52Awz$TN^Wqc2hSg
zQNxr3+74QN{qS-YbJ}Fqv~(Rmk3zsfgE#bCtS#>cYHBMbMwQCvts6{4KR4ts3OI}U
zho>A9@DOT&o}Qkqf|RL}*4hNU=^V4=%a`ZZC0(1yYX0?sd5BV1wT-f}a_(%Ldcuna
z6Q*)c&F`0t-SMa{#y7qn6u*#o<#b<Si2$RRFWx7Ho>VH%_e$ZJ`14S9+;e^H<$If3
zpV>5TRBEwlak9ytpB?mCv~=BQ-9SUjob^oKH7WPf($YhtpN_ZnM8^*#&2INPvg+O@
zi&MG1^KD%78`=sy-0yKYr?;doT`%xJ+onl)AZMc4xxw#3ecM5$i53dQIA^Sy@%i>j
zzZkkzLd`{o{P&NxZ`bX3lsD2z=lay|Jlm_YyF`Y|>1Jhh^|+zs$Vbt_M>1PB;&gp!
zxdjCUPsFVZwXCXC7RDTr2y@=MtRVFVJlp#f3kJmlgpE`W3Jaf*&O6CzvZhAcMw?&#
z_160O`WH$((%4pCzkapFGSeMs%rGxMz59fd(=5ky)=25$wwV#SqJY=t!y=}*JM~m!
zjWs{rxo%|Sel6H;m*=5Y*Owpp;<Hy_TMoI<OlQa9DG~tz0lF<t6CSwJgZQ0XK~7F?
z=F3WoD;BS~!L)C@<4(`R1L^6#aam+(I%AC$2Aa_}K7018tgdcjJdJ6%$*S_~>1n%>
zulX3p!~!cp-0m*<0H2^&m$2*2JABm&UYu|z+w`Y9$FOt@vh7B6{k5%6o7#N(Wy$jT
z$VJsVKALkxtk-cA+NBuW*l*S{^HsF%>9yedcvhY@KamUZsm8csiweYHdJlbeSy=6m
z6RmvqEPHs6g{;Mt8(&=4gb3`@)sF$bTERkkC#n5XlW$iRU^{XO=8T?8PEICchc##0
z8=KZzdU)_blXb&hgXw%hXCXg+jl>lbSFSHBFbb*swx9IMC4V~<o!VfU)!ti5>`ZlZ
zd}?ZHD=dfi+^#cEK6TdoP8kj5vYO5u>rZQ;)mv*TO8m^8zwyA;9pP)c3>dBXIkbYD
z4nNIxE%v>!RjGn&e#$?-LTrb@G;E52NB=l>%*!Up>As3ir{2Ck{w>zEmrqaYd5T^2
zFp&$}R1m4YX|j7EHcr~hrmnJ3ce>R4OnpoDD*LGp|Ht;Q1nwp#CQhl8;iBD-#{;qJ
zISTEuBJ!sPb15D*@#S@O8bOjy_T`;vw6R#>RQZuL%Wsce;OY3b&bG)5#f5g1`0p+m
zbQ*N1iH^Uw#h$0xapYtBaFCegi?}#bkA5$yxyeJ5pKm`dX<=5UF|`ZVX&SS)OgB$(
z`<KLyGv!5_4th#5yG$ur*w=cP>1Y#bNk?n;NU5Aa3r-bnGSQbrFF3wZVhuaHii(Q)
zbbs1}T?_WVmgPs`BDL}O?BQbXITuw*IY;=f_IQxC`@4fr3A8v2<|NFHH^i$^dyVj9
zr#(eXjEs6GlG&x0WnSJL6$*z<JoIwr=cWr~@Q(1sTv<t~7uVd-y`qj1!Cc4ZVJjow
z+VAzT(EJ`->WY_(&F22x`MILum6XYMV@wsM&fKtn(ePQB&1*G{6Her&O^v7JKI4~~
z8G4ssT$d=>K*8qqDlRUTY`8hgF<-!Gwh4D+L+#JHds@zq|322xMU%L!fy^sYoGp_l
zEojxW%Bre-^TN&kT64WR^Yw!!vO8n3o{i!%c4-9f*OyJJSpBm5!GY3Ke!0_4gK-Jk
zMn*<6?YpH;3vk)BKia7=52xh)e0r=##|uu-dsI{QZ>I_-K^)HOamQmtNwESiF0Q1j
zAKePMDA_HqQ^Hkb#!g7jOy|x|yO<`mc^<aTYHabkB_DJsp+!=(!8qxPUHQw?vs=XK
zM!Md?BwsWkSb*O~q9<L7i}~rEcL!|4)i-IHItCsUN3kTGiiY8la!Y4@>UT>`6<wLa
z7I05%adt@QAIRto?gDCXb#<C(5*5J|J5QUMn0Oo>%s!wXIn_S-UPf{iOoLrzWu>&0
zl~o!=Fnj2jMPP`e&B)PZ)kYyc-?o;+_u0MI;cwi?2RS%6xOF>L>O3<q*qDI*T>uwI
zu!8vvqp)yxqNSyiJrLWP`0@7Pqq(M3dS}~0uF0bo*akW<+($jvedwGYySd@O)ekN`
zUGz{d$pHRAOn2F*Pd~$@5HNsy0rYr0)5}pUPnDF&(56hp`j9mT=+mS?ADWxUrM$0h
zqB5CGQz;&s3VG4k)TTS@FFxU?;<8TT8vN_p3Z>@EA8ZoaFFD8XDx9EA<k$|qU809w
zURGVbuD`#(Y0j#ux;k~s#MK+*QO|#S)IdDym*=-vxb2kl%Udqm_%rb_X`juy%flFt
zsWUrZ?KTbC*JQQYU||?ecTHLK0G=$foeeb2G)Qd3KwfK@^W3l9G9InWv&K7Ac)RLd
zQ+av$vdYRed-v`IHdqBKP?Q^YSvy4Ol&Pps=Vy7npv6(0minO{A{>cUEAs$x9(ODi
zNPk{4=DuD~p_Hx(qq$^@?Ir5$GpF%7Mu#9Jga2K9ig0cGopXOU*i}Pu;qV5B`d+_d
zL6GL=E%5BFnr1n|w4pnK(kD)wke24xOy!pxc}mX<^S@Z%J1(*C_qkj3aWJLc{53T-
z@of?tjvU|UZ2E(}=d~KH8r~(Vcbz%qY&-zC^k8bF(<W=KCU?#%(Gl}3BQO7vW7;0;
ztCi)!DDB(1?!)r#y=d3rtDc~H;-<CrNf>Y4geNl%cAd}U9K9CD<&HG3$Tzy|ly(A}
z{HVx}wsJgFdLf`h8@#e7{M`P4z`!;DG=;c%`uq&tw)2@yX45YJ605^izq<?44n4P8
z`_moMaO>KufhN^S%<_^Bi>A`GGcZ}!OWPMS<9k;Yo4mKk&`RS{>D~DJ)n1%EGCVjy
zi`MGK=iLD`jBO|@K)vz%k51!bKzK(qB!}N`Zv(vZQgm!xEo9o5e*OA&S4YVfzJpHi
z*VPjOG1W(%lVfs2Kip%cycYP&61g1_6~#+{@{@g+j}4~*$Hu5-5o1*}98juVuT1CC
ztcMS&Nhp4s0;{*XWaR5dxdiVomxtSniiUmFE<V-W8C^4WB)esPZsM_J+uZCR#j8e#
zBEijF;JLY>SLQp19;TMq>}bWb#CO(Mdrh9#b+|IL1PqOg9+xZ>JIAcMM(t0N4~W0>
zt0@a&^|24F_*L7wZl}h@Y+LjAUN3-$E5yleP*So2VBcM`dbh%Zv!N$rule3?TdFg8
zEYXqK9WDdA=2ms3g)&n}*-?@U)Rnb4UwcJry<zl|L*}~DF-PcqQI-R9T{2R#^~-j=
z?zg{bfX$iPo73(sR~^<U+`|m$XTGyGDj(}=7v6KP<{0I#CgXWZig2lTZ_I*42_HXx
zWB|yCWMpS5?>Q52a8L7CoXt-EaD`{}oh#+E9r{zu0l0SiXWh-|xSG~vEvLXY^fl0|
zAY5`Ra>4xd`df>Zwgv)YT=Mf5gB>?YdpO{-aE0rgrR!g*pEV1oI@>4CGz~h7UeMHR
zgB3hIoJMyVu$&z)8<Vt_sCw7a2m{E_nIF^XRq77dZ1H|u(Xc3u;bAKEu(|@%u`#XL
z-YC~;#b40`F?n5B+g?I?1$kfYac!|_vQo>2+bk<9V`t~1*JZ%*qz}@jbtjr^yu#%C
zPfAN;WA`N#ZpmRrMMd>kmzEI^4UBLveWKanF_$*qnx7cua)QL|)btw-VLtlSo%9XV
z5?G(sXd%}=!bdeE7ctK0@H4N|_s^FT%&FY_-V|sMk6Exct#Os|t26h_+X?`H81Bik
zf^r#JaSaAXE>dR4$d+hrw4{6ZU$oyNw)0qC@z5a5ttY2hwh)F;aVMSrcAViwIbxS>
zhJfn{0PCuUTWml7+9dfw{qeh%Qb#oAN^NMXcT*iLvY9>6XL;5jOv}lU2)6tB^w4;%
zUK?y8@08OaY?#L#WSy9Q{&h(K!l1xLFL)_itfe;B?Vhd(*sPB_t@x|&xa}5`;^*gw
zr8Jf+X8CorZg5X{P@?Lr2_7>aMm8oPx9IWi-6mAW;Uee38aT9P$x?`<m?kZCb#<}9
zuU@?pPIYR3B;y7^VkB{u1pusK;w?6YKRs}5m&pKadO&hI8;-Qvp1+}?VLCSDJZ&;x
zFfR2jyp`qAw85?}o&i9dg*3C>K{t+J^li=v<c^lhMfcm76ih~hdU6ag1vA>cP5r0O
z6(eRb`L>}*%n}h9c^|PXmyk()@`98W+cu9jz=)oSQw_u(nWlfayWpAS=+L{BUNDe_
zy8?~(Kj$bHF>lRNPrq^b%rkMTH)&I?>vK1F0d;Lv_0=X5xc;K;HftdGWI2sk1iT3~
zEr5nuv!}FlczJnSe_gW06=6_DOX_;<n`gDG>-5j6sH9X|jdxs=n%2mTXTaszVl-Nx
z=y`6uksIc?cUko}fanR5;C<9)n?@ni%<fmV*iLN(2{f4HN^EhS{9-#+r4||&Cm=cW
z>&iTYg_}tP49q6T%eO?N^4?}^^-cC&Awt(mgVF(kb(^#85-z>H6%ilrb$|8lg7%`v
zdd$)8g#Ofq6~hwzIRr{NPh_>^BTQ&b%bhg=$*_<SE;YMnoq*N`%v8d=6^HY-IP|eE
z*?d!J)6Gx62wAkhPnHuf0zB59nW9rX=Vx2yJ$mDFCBJ?QTo2@GOX3W~WO_4`jD+cd
ztinRc@q`rn6@I^C$T`TgXU{Qvi(0OJc#@#Htq%yBfKOM4fsEa8nLSY~?_T!egpmDc
zS1nMHUheF;J23(Yc$^gl+OF7?>D{jaTd_mk`Qp;KNqlI_$X~D5{{E4W-EccAwj@(|
z_wL>6#>QIFG`Xn@8)8h@;jJDn&(KX!Ka)iwJ~p=MVC93XU;Zu?^psJltaw7eUvrQ`
zkZuKyFH-0(`Pe)6e@!6y@~v~vPbSL_gigQMt^W*u>EEHKqW1THm-s3&a!-9jLxn)7
z4geTCJE)6Lywzb??8VSXf`J+v8^gOiYhGkzh;_IX%K^P-W@fs&5^#yl?Zd|_xOVN@
zvznTm?Cc<3%IfO_EKYQUB_{4SG&KBXNDvL5i;Kv<xtWTf>`ZpciZDz_L|mMwt1A$6
zS6A1mj2FY_KoMc_uwQmm4S)4&7cZaM05c77;I(Vlir4!3;~WtY5w5Nzphl3nNA3JY
zP)^)b9Xn$sP!FI&$em~xh9@Kl;pP>coSfP%GF<mbM(deoUj6#YsaIU`>#H1n^MQ+M
zYW{tL@p~5xUI4B3A@8@O7caO09T0w>sXSb%Dt{w!*mgyjqa^i#qJu*gqdNqD-^djo
zU!^H5i6<-wzo#Y8IaYNqE<V1xTD7g>xW2xAnoH^AO*L)pXAcxrB_DFhYA?JvEtLc2
z%gSMXm5Ys<j!uh-<M*GNJT?e%Pr1A?icWKLb9>)8g5ma{8$QX3*Qjy2X6fFXS=y9C
zv+vCu4DxlNsw~NhSsH$wwKo3u7{-5R1^h=y%Kw5>oY${k#1<2KEaYckh{%}3RJx3Q
zN3r}hO-)T0j92GmFz`U#FB45MM9&?6u>JLe26&Vp%Th4||3^{8c#U>fR0u4@pHDsg
zM>Z}Q>i;zk_rG9x{tX$e^3-~P#^aI>ZYo_>AUMVTUI3#zuGiM5cO++%k?e6X&*K9A
zy{THB!msu$jgLQQH#homax}JgvVFv^t>Shk{Y}Tn6rwBx|Ff$0G@AN>whGa<iolwh
z0ISV`KeSaS(;53Dn@p}xOJ=;t@lPoS8uInEFh5m+P-873x>H#X&dUSeDIEIpTXG2*
zO4;Xt5!mb1-KpNiDInL@VImFu%i<9?NelS91DAs-I+Ycam{fL>6JZMC2GDIj(R%~|
zcuzjqz|PK2sH@6KABz(?b_(&0LxMWABmMjBBVh~R4qeqX^gw|T0|5$v5W%j#gS$bA
z68nG)zer6L;pPT142_N5ORN_FED3m}32~O3mKLsc)-Do`9;U?A^}4Ak*aA;tM?k_B
z{T2c{D1P{`GE5gJgPlvvvFH%lu#A<C4i~H*dxC}32cct4!UqrTkh$yIHm6blL4Nuw
z435T=z*l>)UXLF?4j{cjXsJe(QgQ2KOufJM`tO=kD(mW=-v4nb%HvXk`UmNp<0e&s
z5sdEG-kNnF-84MCK7~7S1;$ZDuIf98`MBllt{UQ?HfK6}M1_XFn;d;e?|kf1GdWs4
z#;J;Ewwcc!F^Ozy8Ge`C+I6|gh)=h}`7T>_7L4YO&!A&gyG*?9dDrjy+T@}KTwJ?E
z^W<nMFPqmsNeQdvwjY}udO0qU3k+~x)gMTSlNmfY`AC>dpv#B<+|0-S4ZG%_lEV3)
z2l+esrT=(F>|YJ1$}8=od)B(=+aktl1;On~ICAWizT^r8b5J{l16hMxU@`hvu`VTh
zwf6gLL}cdG8rSj<(2rE~4+4c>Kf>$^O+Y+Gm;sKd?Aw0iV3#kKaWFzBgCip!4kQ32
z7Hqs0#6AdwyWPJe|Mxpf+g`W}xFNrAh_Hx<dLly01=f<i@qEYK{4X(b{sJB#Xtr{5
z3uF)dzCp^_@%;Jo(f~;$SOYD!0k=hhh3kffvKbf1=UmD+tXnX+R51Hzc6K0irw1Dk
zys81p8cU!{PD@MYQRinmx5X|ehhBQU%-zKX8~{6e!bg#Yn1qj@Oty2AG!&P206Btf
zal`8$Y(?v@hq}6|zrOUAqak~|-iV!@f%tXhX?fNmw@uV%-q(YiUeC^sb4#^>0{1Kn
zm9fd90n^P*7D}DW%e~c13$m)#0MJu)XhK3}9nuJG_NqrFfsBUdqu7F)ho`a`-IuE@
zcXPkMKmNjSqzL*~om11$(D3t;mz<BMFOQCjDo!joXtkLNgKFxpk?~O@jD_Xy<(tYD
z0sj#c2UC?0FkCS<bq;Kwu(0qRRb}T)PXM-AjtMK#^MG*3T)^hJRryfk8mMp;8>m|{
zY1D>^?vIVhW(C(S6<e7GyyE}RR8eW=n7CiG|H4Q;$GQXIBwQ!)f}-Tql^|s0%)dUp
zR*-Jq#?9U8A=>QfE|AGn_v6M>`)<-DCSnqroTvN!BY%WTEIFTZ9F7p2k$=bJc{R0g
z?PEQN$BKs&x})%<4Zl4cc%azA%g47U+i9Pq(`x4l9R1PxWDDLccADomDY*8Ln0-g4
zYMkYS#Uo#afti_3XTyrXr*93ypRLoG?NQSs;R({IrZvEX`JnmQNR}4E;loRKZ#JIT
z%d3Y(4j#-S`O|bztF2hlo+O3R)7#66XSRDD;=XA6<&NuQP4_0I#Yf?q7>1Ed=t&P*
z=gQb14-R2of?=^oK%JEfg!dVPv0!H>$(Ry<LB))KVegU--O7lw><PoJ6KnZYUuvB-
zEAiVam-SmEyq#}HY6KuV%jNPJ8I#2dNUox?mK78L)N{advz#ijnlzduw`%akNN_yF
zr-I^ye}wl24o^-=2_rr=HdbEpy%|EO`0ZQohQd>~zc0Z>4>g@#i8B^G`iPtILRODB
z+wCVGoT3T8Hm=(rKG}5{RH!V?S6Qrq>HDV^z;pVV0jHS772p)h3So6&(Y<Sa`YI-I
z^I2d()`TCulZ0{XXK9ub2dyMbPB=I?5Ok<@c3!o=H{KoNdNRgwh$NyBf_GarA@ByQ
z$m&a!%bm?eLPfL93O7Tq{4GhHzy8<3djvCy<rR-jDSHYpPqA<^&I~>fp~T~(?_tox
zWbT*Dv6AR;VL9s_4@EO=si48WzJrnyH<!0Rz)PwWLWJ*{x7d3kmGLn<m3h_C9wA<l
zWHLE#;|r}$DTCtQ8*{X-=(pH8m73@NGLtEX7^e~B1a>)0z)LOG-al$!{PTiA1lwyc
zzKr0B?A^_?12*B>E68#=dU{!)^1&lxmC6aWjMiE(FWw_k0@|4eiK%&V;F<zrpF{X-
z*5=lg<oJjB?{<AQF*I}|38d(pIP5Uw-qwQupZZyiWo-A^-j#oI`10?+O~%hN<I};Z
zv~tZ)$|R?z7OXhj_w(aj@^0X2K>o_t?__Bqd@5i6Xgf0Hc;?BzZAh^_wBAE5#CBZw
z_Mh0{%c=i>2I5~?{Qngh#s8e*ANRq&2J80)X**AKBsfkDpRd-|n2Nub3WM&;anftc
zX7FTMyuHw$TnZy}2}u(aXO>(x71zykJ;cact*jyXM(O9F6)!}aZMQeWkS3R$l1Efl
zzY{CKc&Hg<8U80)F0fsg7^tl8U4H3U!&=q<B*o1Cl~YYnN;Qctw6&XD>c5U~S~~~B
zIAI_ZvK~n4hZG!CQC0Qpm;}*~EO$y9p@@d02;hN+Kn(|RW#CI*Ah(bY_M&FuBS;od
zkf({Ov~q+K2t_Ev`V+$di3(WMHPL&dv<t80xf0GsIp)<2fX9xK?J}M)Mx&d!GJBa!
z-Wn$^%ZlM=6S4JD{GA*nznnO6htYjJqqM2QCqJW`*+==ow&q-j(uN!9R|@x$oPYl+
z)#$`w9mQFTSfRbRw~bVgUw&;Bh*zwCj0BCXKULd4GIeE@dK{ff9KD6pvWoL(&ptYH
z6voik*SBaA`JeiA<DaY?f4XxE<Vo)mS%h$s{QcYfOLjJNdU~#yW=N1zylAYeGjO!;
z;&5>o<W=m**10fX8K1n7DqQk=qlCOhkV7o}o;it?kkCRzx6m*vWRQ#<$uZUI$5cm!
z1{Y@(B;!==5gBkLiJPd19m&Yb$jD%1K_(H|5j$U+e}}qW0AX4^ygDsx;O$QTQ1w@j
z2B_lwY!XD&bpwOb@OtH+K0SP(XlZHrhcDYGq$|C@$N<41$ZnRulJPuK5FQy>wB&n<
z2k^U3Z;FVBFkPPCL%`WSr5rac$;s4H<zH7ao<L$tEdjM^;a5BTOP*#;Y+DK^g;lW2
zGT!2u)WkvTCo5Y2-B}6N=5SfI`ae}?_FuVccq;^0VEfDOcNkFdyh<FvxPRjS!RUcZ
zJQL=**}8VyNe>R+;>@IhsZOfbJTm2S`c0Uyvl<x|hS*wb?i}0ZD^4hMvN!ab*p6Bg
zPr-9PJlLN1>xZY0tv5!B!$2)U1_zlNPok9R-+yilNn;&2qZr};qih<l-J1q5ggpYR
zs6^evdr3A?)FC1{0IFQQCyw=g*NgTAW}qXqZoFNTFjlQuh@>PJl7{ZbLX>){SWeY=
zNOsFmuto76)`Dh7+DXR|au$z|qAf=RfMkezC{k?+IrjBiT=lR~b&NXA(QXFMO*s6M
z(s@J$1dhfPX~6vT$P1IKja<&RfMmHs(ZXg|S4;?t2#56PzS>2*og{xpk^ru*M9XIl
zgi;HT(gw;umP?;-YHaE<w^t2W3nO`YXrj@w4atl9L?!?^5kw@4QnNSD1d8m%jIQkr
zvQ*%|kbM2M9P5!cs4kZHtW7xL72;jbpNN`W<kw2y2boWH?e$QP7hz#LOC=^6YYn4g
zb&GxWFz!jsYy%N<FN&XB)a3(5qDxvdQSg-_W_uz<adsTK&2?tZ8S1P2m!}^SMS_q~
zHNR9bQBbmdy0>kmEtGOc<|f<Bkv=K#(=@H?Us6Nva>`NCPf%yewIK7854K2%$ECNr
zg$NMVpKa^vyZoQEGjAGb5hq!ts+k|`Ft9O~Srw0PLVM6&P0ONaCu6+9tdQuV^4-=l
zT9DOXG3BjtI?Qv8h_{Zb>>{T+dUcuM8%?MO6)8+*)`-Bx?hdxqB}ol-cJnt2mgFs5
zdE{qg{5_G^Dj*sbc6PW2^HQ<SJZJ(RJ3|#@w*2Z-ayGW7=fyTW6VOQ95ts2b;L!Zc
zh+dKR&Y~7%bK8)0@M!arl1y#1D3P3=%-b#bh+hgByxV8L-N-B7BcG9(GQ^+vHqE7$
z2xR3!Cc;U@k?=f*M`v%EK;<ZVVLQ3bn;S~QE)#e{ML$I_dWX7SK5hkiY!M$DBQk{Z
z`mCv3c6jGX+d>b{^<;`SA>|1v$LotuvqSf!_|K}4^RT^B#PT9?$44a{vQ2wg?@6@F
zHHF+@B|9!%_nG+t%MWJYN=95<+!Yhni6{NNx!z_$$ViqT+}$BW@6#spMB-*JKU^Z{
zpSg*g$>nl%`+`9-NF8``TFW>QmL@{bB>FE7fIbdN6C}lEQ(N@?wY@u_Sct9cVBO0y
zO+3OpvnF>}3D8PU+ANfOKKxQJBVhupJ$0!TdukdZF&{nRIN#K1kx|vWj&*Sw2DHgI
z>7#cC{D*TxT3Xuf669UYBUz$bwhgJ+x6WP1xn%u1>C_gp=}sy|Qlt4A)k*dnj(_u7
zW!S~0KG~pX7!%Q8HVy5^R*hgx(Z4vu@MG!&#EP!2>BvI2Es>i11%X~w>TI_ng(DXU
zPo!A@93-df=zf1QDrU%m%nbYIo)Mr2i5=Lb5VV2F6Iltk+?ftRMzqc>ujFXRN|qQZ
zIjbisS{H%TU!FN?(*p%5A{l`mV?OWn?q}H3Bv*HaD(U3WFPPc&ViIJ6)P}G>2T|&l
zjc>g3STqC4Xsg4!%@iwM$-CoOMUZVbTc)~^b=<q^=bPSU6+1MK1e25;+3O^2=)P{R
z8`xly>U+Q`Dj=rD5;n6LnJF!7R)O+?WCn$tXC_0`H<Q!6S$z4ELK*9XZ$AGUigI!P
zrfgsi^ZD6{LI~uDZdGo0q0y`zL@SG<caV>{T-I0mu9;+RfnL|+>KqRSrc)40r6bMB
z$`j_huP=NRXv%?fq?u!%9+x`^7=GVxq>F4U)*P(W>iKcA`E?#19z`t(fqsT)#uZAO
zbMbM3coxy7o61Bx*EB~%Hg)o&ne*!0sgGu@&^CA$7yokj25Uerz4tlNoegoU_YE6J
z?!1U_AhlN4{apOj6cWs(gU$(sp;Qp>epzctmmn}uTwJ^rQb~8@)R&!RjR)KD5ZsZO
z^GM*8DPlenZ%n{9Jb;uN^tV9n%&=*1Y*dt+Nm`SL!VyN^wn!EfxWt29_+@5l<Z%bd
zJ6ATvml4?$J3A(hGf|0ke_Q3TIUtefy^;Yg1c#_5s6WWC?1W1pN!o21yUB1Kt(SFn
zyNkRpKW(<(Oh!6yxTAzb<zW|32o7eCC;&=9Axk8QP~3WPnx=0HM$VroZirl0a;iwN
zV3N_cq_Txb9qt^voKn+|w0*+V*T9t#R4oC~*N69=>9EL%0Il#1N{3XB*#*)&ODr50
zPcPw2dQKQAFy>r+zD6WW-%c$EPXin?ErA@3g_=7RYZ7>OcU-7Zib5v5q{h0Y-_puz
z?BQnD1d-x|S0Sn(FZ}3K$2pzCMOBrRwUQH`tmZQ|apnGCSz!@85o>Quz~+_9rUAR!
zD$?QxwKbjspr&SG*wtvmzB@kW5KV6qb=Ejit*oRxOl~{3?uRErM0yTotMfyx8pyvu
zKAJT`o=7wWEPK{Jcx$Nu(YXp=6#ewv_Bdtr$IcNUpu*&mF6DKGXOtn{((t55t-L96
z1>hRs`zB!R&c5#Ba1Si1>SW!1NvCLJDoR#n9l1)phJLP7Ty!*eovPtrc35MjaXJ;G
zf3h5pQ3rF<YPq<GG{hsuT!AWyN_qhwnx?<8R(GZ>rKKGlro~%Q@l2r2h|Epfky%0Y
z1Q{Rz>z7-5vqD}jC%_c>6p)ZGscu{|pO-LTg~W;NDS$BY1vnw1ElJ0UX03EGzXY%S
z5_|7gF;I%$g{H?3Vj~}dzbGe}x&2rlrS6330#H*1<D{l#4t#&58YG!sU7|iRc>#n=
zg_O+SdgD_90*RKRUjL;bcs!7&S6^xuERM%LLyw@_ns?uPZmP2oa^#H=RLVPc9&Wk6
zaK)jmKp|CwXJa)@GdeEBTUOO%5c-(N|33&7?x=wpu)t@J@(U!7<7mvD^x<N@Ht2Qw
zlX7wX7{;3Aa2F<El~zQ=EuW2+yK^jro?r-)FJ5tXVq9#j$s2lDh)+q!3&M<X1FD3=
ztaZ5A8-Ygyzh-swrccL6c(0lccCJX*N^{ll-brMi4s+z(L)xl6q7r%W<xB}(D=b;>
z?N<;<*G!s(9z?=xW?Ws&l#26sS2z+?G%FiErs_%W4ne4S-cM&6LL>RFTHs~$#pnhm
zCQYAPM49#DF$T_AA;{%9dD8FFTEO33@Eg=-pJ!Gd{iaFxiSCZg$gsQZJRt2eNK=%g
zD$-JXd@~GcloMmeOytyMq+^yH&63Q}yl_DmxOyRNHnWfarUZSEsIsb3pB}NZ&_X=|
z1CCe*gd0_7L7=1)lOtY}<~Zdd%G;6Nc7WuqsCp?OUWysCUyxbc@p*3zM~TqQErzho
zSjp#ARIHZTmLz~LmJkgGp$5zLqb+1SNQlS$M1Co;&`b|eyuq!i;9bJVfE4o48IEG%
zA65^=H5TqE#Eu>jfkMDXUtJwc-A>DR+D0nPw>MkRzeJz=bJHi^-o|8D&L3?{QVN2r
zI}fgU*D8I4@DYBZs2ZtC?Y58Ok?|+yi|ySnMP8qsx<c;BHtFXg4%h9gO-KOtPzL~f
zu=#MRT40<`w?HA+P8Kv#Cx8KfmwwJhY%6hckZT>pD6Ix(t{2}6#r|7YS6jM6bJE4m
zWY+n4*1v0A19b)0Y?q84B6h~7<16#A`T~PALy;l{*Grou&YZohe@QLt6N$#Pn~E<W
zeud87JP5|p93>)!5FNKfe?(GS50YHj5OH#-OF5^vOB$GbmLj~y9{S(uUo_~dnkH-2
zw5?PcAx31pS-3I}Af6*s#>?}^)w}X4BbD_U)6H)ueyeXfxa`6kP3UIf@7(4m=I3+>
zvzQa7*)iQR?+o0|!`(WcWYc-sqS9*ajg+P0)nlu+emQe$%PN86>C2ukzRmyhn&rQ_
z^7F;?zSvaUvt4rOcLKZuw}!5-S!c6I<oQy$pH;tKclqoOTYoN%IBWafqR8U=A07oA
zc$!6_wEK(vcJtb<iYAq+5&Kz{(`sr?%!-z%IC~p;E3KPlCvMZE23}u&*E-qe<pq4_
ztn>|7oyto5J{v?Uq10zq2Cl6DM?i8o($bqKGYlcCo=OWJ7O$>kRXn`ih=6U$MhPfn
zTi-6>0+f=E?}6Nht|$fRQU?zU<UQvFmeYoIs}YERom~hOI7GZhq)(6~rxi^>STr${
z{7t{}d>+8=BBYB`-EhKdvMp?KzP!8F2{9tG`<y>3Hd0E#A*EC)DJcmkjAm{^HoL2{
zWk{xq@MV8{3~gq(WU3olw*?YuNl8h0-$K6g@rV|&Sc?@W#>eOMPb@O6`czfrOWlGD
z(;wI{;sTZ-shjv3K5bcYXL<bOGZB*ufBVO4^x$Vy8kCA6hv!w)w0)_P0JU;|P{>sP
zwGIgCPJrr=mUf&f(ed=<Q;X9q+htmYOwuhvBTGw@(i!u~FZcdL(@_AdX)y9cXoi#%
zf=nXmbcUNaX=7vK9E`%9Jb&6~m`#)S7XqJ#yb`~~3HoCl>Rk|Eags$DgmEJB{Yez}
zOve?9(rN~TYqVA)K;@D7#v`jlx2p}s*`T&6pOnE6apGG$QaC0^o78ngFd?Y+4N$5?
z^W#8K#GvU2r}R)&k#MER+ZMYeG%Zau6`P?JfM2)v_2mvN39?^~s_+@T$-0Q@sz0b}
zrTbOiZt+L`tP`xcW9#@cDIDS5^5P4!jPA|N&3m2a8Z#{A)W6a5V<aXZvhd8TthC9g
zKg#^(_Sn6_W}ZH&sHph1aGJ@~MQ}!*bY>nEYJ=`zsLuJb_;aNytPcqBAI}C5g*hu(
zMVYOk<fF=DHT1wvl{Nm^-$I-y-&(I2U^i<blr3bJ*~Ct;<tB%|1VmKcysYKB)pFHR
z+wI)2U9GUmh}n^><eLM5a=6HXJT=??on<bf+(fcUSDYv13~@h`w_P5bMhG)R%Oaue
zsu<R$*{Zo}rR`yH@!^Vrw@b-EpD6d2WOFv#OdRK8D&0a}2LG<e&3?VM@d=GabN-kF
z5;+}$!nV;0Mf&{w-3rzbYt*n*V3#mJOJ=eSDqiIyO#92~lbu<&9Lx>_xcI;TN&q5a
z<^Oox4?I(Avum_0<wwWI*F6gdTuTN1BywxwunD5++0VK_)I|iAxzky>d}G|K8La(&
zLYnoLzoVAgIsYgnceWwdBRDwtoS+C4h-$<7->N$`a60O2-?g%)Chea5pT1Rcik$lv
zq2bNVa9l*$*D;@q1PUn!K>CvL;Q(D)O-*esVFKFNvc^WO9u&XgU(^Mh4h23^zyo^K
zF&c>UQ9zZCB{cHIRGP?NNNl7aF;<Dh?JtB#gj7{w8!Pa6!{&43Gvpi|qzEb4z9-Ul
ze!7Lr>&Wn_%9>mUTveEXss=&e{gym<gEk0Z-EXfD=OLjK@@ruNKax9m&RgYY|Em;=
zH%HR0PEJtfCnkQ&;w05bq}YX<o1}g->EPuMP>~DH66yWSC<LFPhvy;Sd_<)o-u%mq
zkp&M&(jM-vos)G@TU*<i32Vx4B}Pubh7G%5@b1JX?G(eRtDQPYSLK~E6A}{sh_TPd
z!ki(AZtKh>^h@6iR&&EHDr<EeHHRI`MX5r2IQ>xDgGq?F)owJymWmUZ{Y)+$EYIH>
z%q<YB64(Y6kC~a-rW<b-uplU@cu|J{er9lf&TIzZyeHl9>j5GCVxO*o0Z0wKoJT_$
zYLqdxKO)@ch9+}rpB6_TK@CvocL?CL73pI)S65OT2Uh1N$xb3`CbbRNR)0k7M~T_w
zOc*FEC&FT)JZ&S|YgG6+J|2;OCN3-hIq@M>C*8?nJKB>2+n#W}?1gl-wvG;UUZ`PU
zV4$nJ`}9lCNagSX5MDv=GZ(lNXJPNG)|`N&LnI#`FNhVhI`T5)vaI=kWOYp&kdOop
z_hYhvk`QBZ>o#p(j1<ADNS0<6R?gQ+LjOnG?bX^v(~rCycVPMw)G-MtmfL~d6YJ_)
zYns)sODcK5oJDCxFJa@!AcZba$NS&hc)uP-66vFTzkPtqLMFLfe+LocuO2cDL3px_
z(l-;b(ut=5Q+#(N*A|#KhdwMi-#^0fhf2d-8Z6WKd_S+nqQUwUBZA$@o<XV=qWzt!
ztf^M2Dqc7A)gogOD&Q@oP^}d}-Hxu;OHxr-Yi7_toLH~DW^8P2Q4niO?~ms<Fa)8G
zSZX_&_>ZLxf5+EbtZYVlSBPtX6zGwP&yyzouhgvIzdFOY5SCc@eDlq|u)PAH98IAV
zc6EJ%(mPgI2A>ZNSws5_c|PY0-_n<#C|I7PPIYD!WWrAuGqRe8zPuZ$ApGXvI$JP2
zRBAAQv2*6DS63g8m`#Qnn&r+~|Lrk4c+8ob%E}ck!40VSYc*tTohUU}3J|j$;egWf
zi7&oOGwkZ=DOU92lA`_X{vpxUNX2YM$M1L5W)uQN{v@zin=9!Wy;PAD&;~x6kBW{f
zR;1dt-v7%|2ey&G0w*F~Zf+XbpTc5azM9zUtJAI%>qAPbxw(m%B}?~jcYFg9CB)mH
zgb2zz!kJ2eb_&hPIxIyel^NhV%d<?2ZlDfp`J_x8>v`@bGA;N=k(Ks{j?3g#keVGO
z1hwOM64j}ujkCpQBETr_J_0MB&^6?E7hnoL+nU4u$rY_A$heQnxs1<8@I0QR#uT;Z
z;`esY{?r1{{iB!t@gYBah*Q*5OAAF1B+gbxl`)}I%NiOuiLi!L919uOzP5<lLO$_4
zijZ}%xg^hp6@CQNDFhO=wHpX;161r|Z$*w{JFbf9AWR*iHQ5|>)_d>*4nqT(y>V0B
z$mjIrvzF1&JkIzG^%TzbRZ%Ko7mu(Go!7y~iTZr1o767;^=%E)vVFKsS67mmZ^M)B
z8RKPr!gW9NIiL+$;Q^@&_97()q<D~!s*Z&HBijC+UiWwlq-Oc8PP0Cy5($e7+60p^
ztvzo;>PE1MtK&PTFN=@^T;}#n?d4z{8u7qe=k4_S?Os0ik0O!adR^CWCPodE$5+F0
z5_ch@Un&_Vl|TL1XL*Z1?8^D-TA<CFKi-dyk5}w)P}ZFGA6(AK!EsJQ&l`Dy;R@!+
zMb2@Etr^;Fd-lR0c?)baM-aNG&=kPxPV{Li=-l(B4V+tYMMOozhjR?CUq6-kTV6_X
z@=J>u<8+ECl5HJ2+NSDlO6PGOH~U^P4y1UC)Npma>OLYW@2=aKf843TjmO!vzPb70
z7sK*vTRR7CZ&buyT#15%bAtO-a34&kp?#H7J7AuJepn9;dLVP|WlF)pU?0^B7g_?B
zBj+mHFu8QilHUeXFH?|2RkllPZV|ML)_^Yat%)Y3+UaDNc}v=tao_5#RgywEZP(sS
z?20YCT%gDh-1aPRos{V2o>}w8i&_bciiQSF+(vlq<mujPCwD@|Gv+YO@xj(&jpR|H
zdq>4eyd3~vv6g)1*!Xw>=t1Qn#zE&1ozoH$5+^XSU~oyT4op0Dk7}IO(;FuSQ;<4%
zDR)W>0D`wr5qCw(7FiU6-p2spAJu#Wz%CL($W?v9uDrV1@5YJl^2WwZ@9wSia<yt1
zkJru;`Qp}G;;=3Of{t6$Txtf=F&9#JeWyDSkjSv0eayuirbO=3M~i1A3gWI3!L9zM
zgDA<ES-+6H=&)1ZD7?87^xBK*;E*lHphR2SuSnhs8*4nc*KKUKM`5(DYG30)54&Sw
zR@T<zcy39@$#oQVsR&jqF#k(tq}0=a?(V4)H?1<3*;YDtTUI+OE6d$kxxT#Io8lOu
z6U)LRN`|KASs?Qt>WuNPGL}{ThQC~UW~EwLO*<?IS1Q1qeB}saB&hPoj)=XoV35?}
z{USjN{v%SOG`?Wn(bmw#R*ME<7qp{TVKdu?=f5n<M!K9|<r{^%?4jmAP})JZ(?3Na
zUbS1BjV-LIqGENlYOL&)Ccw6D?h+sqWvYIsHe)-HYKr%nN#OJNfFK{g&kRJ_Kg<_5
zH)=LUDtxP9opIRxn7|&t_VfXiGkEn@MXPmARQZZv(L}`C{PZ20lB{POThs?|l5JTn
zv!?LuJ+I%ba3`!@_x}CeC@1s)p}R}_<O`zQKGgp3xVOM<-cgbs_zIr}a6sB<tiyt~
zEZ1jaJHIyV|Gy;(|3-8FXQ24M)d1#SE%SeZ_zA1)Xe8n%Ql`hLc!VL%>JkCGCyk`g
znV>^LuN0|UkZZUOQgfH~x9niidHFXE`D@kkP{}<XJg<{{{Vd^rNDqf};8;Br56V6N
zgK~-vaIpa-Lml|FJm5f1lGg^w+=Y+@{WbQ+p;>?}DG?^vm}CpENXt7|QP#2xRgJeN
z(9pya)!*XQ&32urxOxB&Lh^iso3f#eJOk11p<m*cj~cPyn~^LRw)3p;0y80;N65Ob
z7GixPBe`^zbAz6C)dDk+4|By$Ac}YXDW5z4QNmUfvWt9Do}i}VWJQL9l*vQqQP(#@
zL`t{3pxl=>>3{e>U+!4Eo17j+BqkE^z?kp~{X5Lhl5KSxvJ7I&Cil!WcPTRFUYeg#
zyI^7x%TWHUKRR8vZTD$Tny5jH;O}q=<|hKy^m;M$W{f@csJ}a=u2+lfkM8-d*<Z(5
zj3m<EcUY9w)Ifo&SLo>h@$WuDs5|d%gVN3&k*K_+HR{m{L1!~lf<kB^kcsAtG#JB!
zkQewMEb^6*f{-XEN<KTFm^t7lwa1dAEQTu!|3%mtbaUgNkmKYK@g~RxzhzW_^d)|C
za_GyV=>xz)<P(}EDJpOAAc678kG9LK>r;g9CEgn7Gi+|e2>Q^|{;yAujj7le9=?=c
zpnxcE5#MR(b}w|kI$=D}=oDde{W?!A6;c>-Iyk3A)5<)WoU(4uvdm(#vK-uNlzpkU
za&mG8nG>)$r0AYh*kO*(MDTXy;!#=Y5EzvJ6d8XAmN?vvVE){f^|_NLAfR4)+W%2R
zykiF+!u*FfH?lnxS6M%#0Er>MtEa2_`cYQm8xaK&4IBYhHOGQA9&aeQy;5>gVjIJr
zWN>X>1ebIyR(13(>ae)Y91p2q+pCE6F*9J38x8+?E=G#B=s{O+Zv~Yb-t9D4h$;GW
z5E-|q!lz~R<bA8*>Tk?+dCeIs5E^GLX1+Hu<P61)ubPSq&dcw)xU8+M*Et$TP#sRJ
z$sIO|m?+FJFlQ<^el2afC*Juge|dZ3&3)57QA=$_k)&Bq8q|=)ZYii8)~+DZ6m;51
z?iwMvxm#Yb7jwh`2<qa;R*tPK!=1dy;pmy|?(g4Q%XRpz6_?K)W|Co56dCb+X4|^u
zy$Wp8S@Cf%!6t2hI!QVv8f}2~5*$E%dLl+UEA{iFMwYb+nOIEJt=aCbu814L-4zg{
zyq3!UJu*ZW;9}8qMOBpwSs?(giv&-aJEq4;-I?RIjF{N%U$RzWd}EK!^Dag6{8D+1
zG>W;gx_W|T1)PgodcbHmu-C-6@RNp)<@W>gkcoiQfN>wBcTZ&as<_2u!#+QFSNaX-
z7fu#C@SM5qzKf`TNylJG7D(0If7zoa-eeK(=*wNs)++4Lnw%`KMQx;f+03zxlhjNT
zdJ-vTiMO&WH!d5_>wF~^%$_N2>T5a@giA}Y&^gecMq?SLNX#u?)=@r+D&J=lvKt!K
zLIxs{d;}F6DPSpe`|DGLP)Aw|K1~;icgC+P9k=%MMz?;mPSVo8-)FP4BNkC6YZHXy
zvzvQZ_Gj(cwG*FNhI)hBKd!U<2fBa#^Ns&M!GHXBJ4Mf9&{({Xo$tMfv=obO;X=<1
z#CKIyYXQ&iSCZo34HEV@xrwgzc`~MO*&fm$hH$R(nGd9$T31tD5tQ!GCd+r{=XL*|
z*Q*kYP>rIzlZe>L^{*V0m-o21_H2w4*u}MRyPVuijDShWZ=>Pq=u0=d=Y=|AsLdRe
zH8s78>`Y}X5=6~G`mX|uP)2R#;N)C79-dmABF0p%{aTuHmpOH3Zq4pap19gc*s@qy
zpti>3^k0p2Zr80B`-$s0avsjq>}6xOiMWLrvbTlznD?&3=e(V}X=6hSO(fW`S}ME-
zv3<CmMbk-$nEv8=D$2{xk)RA-@e<|ka!yt90{zM^QP59>PfMOjYyw^c1n}Yo5~yqX
zydHOws^eR;=BqXke|c+`u}C%#*)o+IQf*6b@z@UtSJLH?aSaMwmylsO5fWFM5$R;f
zu&e+N#<IYr@}eS7_}`z}^c?Rvi)P2i$A74Lsi~u*1BxX3a~rbjx2j&kbHH`{u&<`S
z_NTFH9mT$6BoSHvG*0X-c>#I>FUESR$cySYZOzwGC|V*f0PZo8aH7BCJfQyIf?(9~
zg5FaVy>z_rbZI6%;@B*#a1;hL$)cn9)-ORz*{YrHYj?S?Dx{wsZ8VC|(eJ`&BX99y
zc4H6R^WpJ5&Za$$5-*TsYH6qe*_b-H)NH{Z8zR4L^IvLp>{IOSFhkAq3%%yn4APb6
zE%qFvh{#afdRd+li$E7AT5#+)Mv@qAt$-|nCzkOa`Kr0v3Mcmzzy+4>b&IYX7fzm6
zVDTec-~ErF{JVVuh-3Mu1e5>W%=Q1#buo5&y^<m6NJm;Cv3T)6vX-7lhTjv#E9s5V
zJ<Rg*vah1PYbMe!qKibRG&S#lDl)=Svy`ob+$WWMuaA+VUCJW^G!KGa5hv1B07`cv
zzGMLtk_>~)nU!oOrG99;cslb8>qFj=0WK4yh!I<J5;Dn6)Ts~G2r&y5OBc;JTuJRA
z>4ZgU7Wq-r(|zt6@_E7gT{Gzz(`2nFEgghbMuT?Q(3wDm<ppsS@Z|Zjde%b}hv7(6
zTM@O0v^4Y!){jRvL6m^9K;+TYVptg;7mFx2mkBy$4#{7leFdTu5u@Y2P;^at@a6Zg
z!Zn_7=F6o#cT}QPPvq$wYn0z8VyrGLebdV71adELw;tkdRi-k}kB*KS4=1qtI?4xD
z$7dQEMRQBF=t7M|6wT`$vtjCqO-%UHuA_zlQ3R+|Vz7}Wx<moLq5K!?O_~sWL%V-O
zG2vlhVV5WuE?i*Q@zm6HeRO79Y=|*rz`V7DYa~abkPIiqrC2Y(?9>wB6M2ECfcKCB
zfq9kI?vQt_k(l7Mo;$pTl%)52Sx&Te4jk8Za>}8{al1VWEEcKucr<6KgZbCY4vv~!
zqa}68%|xBk`8nanW?dZ6Pi5(1qCc3OyK#gpAlO5l5!FzVS-Bohmenn%EkC(wn{Q!f
zlzBNP<I(A;+=NX}NwIoAaSb}my|tvWaoN;dA66RTGoX`gE!5MGcdeau_YY~NGTI8)
z_t7El-rqi*geH1x`{<B1-*u!EJlLrGS_-XCI-jp-jDCx*DNDyeYL9Om*4dxJ8khx3
zHvLRmt=!?0^+$woYj*0*63L&@b0`ME4@gqY(Z<$yTyr;Kv@#NJtqm)ICvY3@1SM3`
zGH%XOk7SYicqe+}L|uY!!9rf&r>Ljb_E2gZ46`;o76QuSG%2tFnz@#FZ#V6(ZjbtW
zE}b+gBK5AM&&?oYSAjvqwXu3$O6QTTMK3<ie!3@lexGf2*9&)DJjQK7R{XxTTKi3A
z7$re@t=f<$i~S@*mRlomc_Q4^+81&&+8y8CTC|8uGsoTveawuPM#Ye9xCr(ONtS^@
zc=od7^fOen%CItmBvFBt6b4>9weD)5t9qK{#^RPyv*NoH()-Uh_r$W^g9i_`PZVJW
zP1h$p`b!u!tp%y6T>6Wfq}qe<r_$0GuDPT@D_{%1+)Q(XO=tr3h>);g=5kNuMX5x;
z06F)?ty~|&GNmbvK`p1AF}(tj4@oVsvy(zc?DXF-8Hl*QDjsUV{cfY|WEO~IGliCR
zy7{I;SxOp6p=NJpuybgAY12{&`tFlQ<mR@ww<qdy!UUH#xr2@OLa2^fOKfdoc)qxa
znBl^jn}$^LJ+4-p4Uvq~+uI3HZ1Qne&uSbX2H~i1gqw>EV*4qxMt>v(i|m4t8*){*
zF=G)wE`~~L7np%r`2d+PH#bR!P8^|G_t#HC=e?1gowUI_VZ`$2JpNHXKxIH`2T2Z^
z$cm6C9iGs}v}ibzPK<zRq+2SaHY<KqBi*3clsHrv+l|<JO=l=&C)Veqk=z&w-aiD2
z4r+TL#U%-qd(dxD-_D;Cg&Za~Db^%fWtMiSE7XgS>8nWzBJers$Q3-VuS`yjJ6Bm?
zCY=XeHzz7U41<s<KmCWiLRH0b<u`Rx$jSevb%+r#z3&6iWCxuo6fz%tWEQK@RzVd&
z`YENO37faTZWSowTZ!!7)%BTm{hqmQ>f9c(7y&V-=7=(f23f~0t+Scg2$e}a0TQf)
zuOn^Ke#hQNqG`kYq}MzaDiN|hRuE@>9M#I^RVr$5D`2E_VVcSMBV7fFbeEeo|D@pu
zc1i}q`8ISV#to1Uzmg9mDGCcnnF~?Ev6`J78RrXq(4>(wpj=RokT#G)kkWi4q*(`}
zmN}0&J?Ps%-&(3mx^&^pQ|N2E0TNFwX=zexK^~fHA~W=NO@P7&2cx&&3tF?m_+8p~
zN<20RAMv833h1U-q$S)oQ6v%9Ml{L0wH2aJnf8?~PZDLMTxE3}k2bL#juc3&<0s4g
zX+F5~VR-EVP~ym2lP+1x3Sv94$Kugr)t%b=_?ipc<l?F!Sq+e*F&as`h=GBO`BY}m
z`R?A{60SG#S{dgkBInS-a!^sai+&ROcX)QAn8nLE<Ch@rTd1HYyXhwp@C?sB-LLO9
zXM6>*!PML)G^S%FJp$?3F+GBAZCVtOVJOAFPJ`>?n5}ycDYxICqKwSFIpcQFBc&7J
zSy`Gm2HC>HlKi@$*%)Y_h)#6yVmPEboa%`|KMapKdUdrkawIZHG4+8&!$p?Ua}aJs
zOL2l9o0<ay+(SPJ+GS)G+v`l#MByJv!+)TMIl^w2;mOKy$+aYF0h4%hPvj`k10$IX
zfyZy44&j^Ov^+NlB2qbkIdr5TiR?pOfQ7->qaWFC;HeVy3h}JaG3-R3)<+Vpb42a)
zBb+y6c4{;!_^&ev2<u?rFrY~Ll5pskC7aj0ySv=o)fKXR0T}&G;@F7sVNV!H3br}i
z>bhN*$b?<rdu^X<MYm{M(g~BB+t5h+cuE3Efnag3290^z-&>Z*1c78=y0?1^?6ksE
z4^#U|CK;DfM1>Yj3Z2Ro$xXmVj?C7f?0Qw)s~JNilLflDi9ur9a7agxg`56;+)sA(
z242+|b#~Hu@CeFtNDc0jg9hg|p}(v-M5reb0dto$d3Qo7L8=`|rkVl9yZ{Mz(wJ|&
zg)%=`AWD1mzL%%QBCS1xfZG%9>sZ|?NID0-f(uDIH55;oSDuwIVZ{HgCPyLi2_ot%
z>%d-X+1o9s<ri(Enb>DxA{7>w6jZYLgGgdn+iv-I%5l=wf(XcnN}r{H-FRRZw)Q%i
zEq3j@C|_t7>_wmSZ@s@|*~!Rh|CAc34ILXCG<x4&+Bx?0@!AgYtI=19+apPEDAaV}
zpon^PxAwUgB<~K*8v~tp#Zgd|K^k6@scS|v%)&AmuFXV3TfWmzC30M7p~RMAH@HsH
zbe`4kO$tej?emjRmwo$=0AdD6)&Lc5q|s9wM7199<r7EDBKiYm8FSanTYM@RLrklc
zDNZ$h<1yz8J$>uxRq(S~MScal_Fl|BMC!}{+#Tq8#J$J~Wb7bZL1yD#rvbtklG2x%
z;CU&uux{0aUd2V{-6g|4on*|BwR0m%h3oR9&0Ua9v)w{*u~@%3X=${>&b?0x?N9V(
zLW4loUtec5Pn=dxL%F`c-t-=sXB`&?E~P!%yHU!(ezq6!H%kvQ&)}Lrdt-{MiprY#
zj>ENvJxzY5OHPko+9%tT8<R8lmZzq+<lIWxZTIOxF+4Rwn!;#<%96XIq!6Z-B!x-W
z$1hRd6;R&jOxM@60+R6@qLY>;q`&#1=%|>t1A3|LwmfpqD4HXw9-Scu_z;reX<0k4
zEX+wcvUxscAkbTU%NDokxVNLmuQ6=RbbU*+r`w{{;yqF4AV|Cpk>svcIJ6A|#;OG%
zng!CJf-EsI9BVZPE(L2Mjv<Z(^!y=WW^KE}{K*#-lu=ztgGC|=B+W*!xk-c46F@--
zE%KEWCDxMO)o9Hh?27KXdr0-mwi@bkr!Px&T)mw7^cF_hJuj}xddr_x*`S!w!(U?|
zm*O#MGxM^4EZ(MMZyKwAFVH%J)Qgd?K_JbYfK7--q!C7c&`u#`R6w^R?Y8X1rG3R^
zx%^~!J8Lxs`z3gMWhq~;oEGz}i)teMu%SOY^C3W(5AG@zK(i5uhYYJL95bu@4%#3$
z42XJ)p$a)Q14SVG&gdLjNPzg^zSqag(eCongpj7i5ucr`0?^V!+et@pv_U=tAWBqh
zq-zVS_c}^^)}t80^ux2mq5!zuy4SIk$L6kCv6iw@qm8d_R(-i%q1#}mg-;dAbsh$a
zSzaB0)CFr8!<V6vbhYDZY0y&#bWZ0@Z9G>!3K6%YC<4$%QPdwTsM7JgAe+)?Q8h}G
zjO56}Xt`+tje<U9Gg+6x)6h+QC4ZQv&QDPnRAueNNS_mMc-^2F))P}{A)4l~?B>i%
z#u&s?4H>9dWF72)I`_rN&AN%@S@L_Ttd)9T9Cl8pT@1K5f5|7wMx*<e44>%(;Q_`)
zShobqlZ;LY(S2o*VpG-)w#<BN*`claVvZR<FV1?0)bte<Vh1%gLZf79(`YVphfl8b
z=(tdaIIIH*xJGD-16gB$1VaDBNR)od`KXE9fN^<W@hz!?_VKzBoF5YOR!xgZC90l;
zrJmng{^RbTq2NN)HVn6XN8-1&8m1YB^{bA@N&&a%IB&)>Z|<AH%dqpM;`i)VmM44c
zINN#2-vKKN0E)<1nX$I(?A1)e`rcmJQI(sVJ@@u~Pi-jk{JZh<vcyh>LLsVvG{TJU
z-Qyb2dLj=4q1hqx)?J-qXw#1BAjA@Dqxs~Dt&aGt{oAx=@1M`mLhH_P^LS)2kOiyz
z2xWfG>}c4+dA;a9UyZeIp0mOm&6C9PqxRj^b!LU5Ua#nL(rKK#WUrdMrf$U8wRa9b
zj(0Zy`Y#@2&EtX^()pc8MqORWcL22X_IdG-#x=^;-F|y2ieg|ld;3vUg3MUt-Tuh)
z&giCJKw73C#<V^tDheFMiy9nKL4X<{RJ2y?>ePU0URt^jO*QdAe8qNnpr)oK2D3LF
zm0;=SZOqwh!&*__p4l|B`ea?bmqF8U!ba73RyEq|$rl1RGTe0@K-?&LK<Ai`UY4w(
zROgm#{n1XTd1%$pjzW8AS6443WC*RRquyJTs8slEFr3wZ(o;I-u)$^#<Jzm8@n7eV
zX_hdDy15WYX&vHy(yoN1mByKEPSc$Bc1}NeWfJk^peOZX_n=5Qm4SiC1$7Fk9W<Y$
z_MA8*RtHqTU()i1l>Q+mO8P9?lYb?|rbD$DYx>-*TuCq21KBZwj}luqFSh@n8cXW&
zkg4*3F_q%_>2+zR<U|JP0t>mGlq*U6kuL^-u#hZ*bexpc49KAT<r9bn%fntNh<V*B
zM;oI5w?uXK#7Okzmh)~CEwsqjAF&wvvk1LF#L(n{h45V|1O{_+>!Q6h5yj@AdR*%H
z);YCYrpinMgw8I8kbYwFT7O?ExapH6Gf8{-XsuA>Y>-RZ1J&3IYuPDc8|!?=7UKT+
z>{0(UX7uFtAKM{P3P5B^M~4)VX4g%XXvlFelfJ}TlSVUs0@@tpt2M}%u+UJ}h$KSW
zRUH|jj!m5g^>^J)w@vQ3y0zgHr9hEGXCBa;TUXoG3KbOjqysiZfham5G=;u|iwOP5
zx2*)m>gU9a#s$eXVHv)lz%$-H8`&I|v1Est987T)>5PP4p{}IF6lhJH=ut>t{`;iL
zk;ITT5=0I|;=oN#qh)6`dski+RgG&4NhaUI&=!+a>ZT>&pL^~GYJ12x)O?*km@P%D
z1sPm}3g&^6#VLbP5FSX3*KP+Y^O_{>d(n``xDhLr0r6bkH#bZC8PP7_Yi}k@#wYjs
zmw*c!B;yQe@5WCvvrTb}?fafovNk9-0{hvS{e#PwSR+A@t8jjC5^Qhs&bzV{;zWVj
zJqcPP#cssP^%?P~?Y*r%aLLHfz~DY*@*c&ND22&a%|Mrcyg(bi%jE%Sm`=po1w?ZG
z%dEKlo}M#?bzwdQ4CPalv`4=_pdO^njZy69z)R+l9@pec2o#-qlu5#aG;Sqd_5(RI
zS3ddD8?wy%a_8p)V|UBt@cCN+Z}2wdCKHEfGnn{kp?6AHp>fr9lF27u&4V^+q_p$2
z|6^IAirqCI@SLRG;Q669_GmUaCgyps+_devA*vckcOtUNb7|*eUO81<YN1S{wDkRk
zJrlHO)XM$Ql<7XIzSR*>vAic4XYvIv;0{T359vCshpN87?C-|GNx6l3iW|BcAvZs2
zEa$cPaXlU7T@f^AZHJoNjKIV%rL^1@?`2mrI-(5Zmfe{H)SJXKt<OaSs7JEB&>hok
z8JrOXbH+W2*GbFp?Oao*Sb;JOYyqZ~13i(xJ~x%VSZW^phrN*B_+DiHLzcaebcKqL
zg=SdVbUkP<2*N%=Xd=!3r?@MP#;X6?2Zf5z(_ofFQIt8ekcvb!lB87TS>~Y$k1;6{
z$t;A-W08!HBFdbZ%%o7c!+V|n!&>jh_tR_n)N*&uea>(1eeG-SeeFf>Uy<H|`kL)-
z=QfW{9@hV%#GyG1Ut#}4WRt>9nL9GqGo(nz_;k)=582&GrqD<nOA+sfupHx*C8*s$
z^54~e|3!*yk*}K+g(kabxpAb6q0W8vPm4yhP_iPoMj6>IgU(PEmMO)z5b62DnSfV0
zK#D$-ZXv+y!UZcz%A4}FC9P<w`=YuNp65{P<3uMkso|}Tc4Ja_f$V}N{n9Y0IYtgk
z{*fDSQ=n<<kF}b}xvEQ%@fO!rpQ>0SrKLAD<$)Uld!+lZKSSr=$2t9#5<)9E1IMKF
z+m;l4wgYNs8t?OJ>w6X)%q1sPL1XC66C-@4N%mtt<F@eH`MjJr)_fe@E+mo&g)FX;
zC)}6iw-Qp18X&rVZN+HSyjH8>%A7`Ki~=h>?t#o~?}HCG-OVPb8upGZoo2L##@YE2
z`)e`YtG`rBneI6{I#!cy{@?~6@=Y345C~urXaeE>gu!rQ2Ev;Mw4WU`{sk^tEkFF`
zveyEM-W5#4*}Yl6qZ*HZn_QDa(iH2*vTJc@`*3J~u-CI5ck4d`-A@c$&au-N*mL;4
z5o)`6X8Mma-RIJ1O7`pf`y=Zv8}J<Zch5aM$G+S@2A^J{H08{WE|tp=2bUxZ22@67
zr{Av#n&5PkQzbR{C-H%?v*}F|R;o2gcE2s3Z|$kCmEu$)4fOcr=g!NQ)_lDu^WU#o
z%=NuZNN-p2@xF0?Q0%$wZgJVaqjn{jK1|!2kirxza?IpOidk~%Cy6`Zk$ZAw(~=`h
zPOCq7@+I?Yj_&ukDCzwHVkb0@=rJ5{QKfP!W)PqHL08emc<={h;Kz6Q@A5S6&H8hg
zZc`ASd+};XY1R0pN3yP<LUvl(t?X=@M5pqC8P0|-tIJI1V)*1;DKmq!-!t~)Q<cPu
zhwQOAr=vp<q|GN@E0s~pHmV3288IQqp{PI{o09#C&J=WY5ue^)OOvya+`40jA1W1>
z=lWh9JAT|)Od~W=k;zp&>Vz+bMOY^$CVqnK_)y`!ramRn<`Awxc{Y}^{9=Z0_K>rg
z1Usjq2dj*XO#S=!>vcNTut>z~Hxf$~HMP5MI%K8<EJ75sf;?|JcDOcCnwh!xA3AjY
ziQX6naA-Rknw#l}h1uR7{!!U|0tOOoOD#%f)z#HIg@xazoKn{+@H`<XB=lf1$4`8C
zA?a%UR_$pe*$`QE_SQM2*y0s0FE4W5iR!n)yqBubqx8OIMpuU(nSg!WmE29%O4|Ki
z?!{$ut|}b&Eo7!#%!MS_wG#c96I#AS2U{mSN~`v>juM$r^LD5ni%+RM-EaEOn849#
z@7QR|DZVUOXR`wRt=qQ`A!n)tH-A4O!WUCTX0qU*r3SE(L(Rk_sbwU6R=}cN@kFo5
zd$zhqIn5!nvdyAzrqslu82<kIZ^CDKdRo14-@bkG&;cNxQ<AHZmXlw!W{E}RGVo1j
z-VLTw=eZCx-L!oPSJ$)T(ZjIf0Z+T4AGK6XK_A0Ic=hCS)`$=V^##dkrP$IHl%w_%
zmw`ZO8#`8Vd*fB<%oKIGY;5F?+MeO)d>b`0#@J)S<h-PyZAN3yb%RS=>&;M2V2;^G
zfjdmSqpviQb(f9wxOs2*TgTRj-)Lf88CnHkq9Ll@zLjz7Alwz1B-g9Zn_cS50`afk
zjv{>FEFQ^ZXZO(<*V!#91DH#y|L317urmiemmMwpUvtg$6xCt&_U__T$1p}?NyhPN
z%ds|IRbSTLjudW)=!mmFOAOuT@Qkb1F81o}js_rUmU<Jh>AqJSQ|+0mT3U?60JI8@
zX=<ukSqY;EWBm0xx195=n!UXkEI`sP!lK!ND^su_bT%o+dG3<h(WB&*iYQ4f54%&#
z%Q?Yw)FDDo_9~~Qr*Cw1b$u*l#ZC+WN*+Fc{&BGIm&aBTZ8w)9W;9~ky{Bc=Ehm&>
z3s(pnY43IG*AHSotPVB(<X>uS=8~|FdoNz>C!R~Qc<Y(Vxfho*P7ekxeNUMw^2=L}
zl`f!?c_yxy*Sp`*=%>w>q-&<8&n2|p0Xksozy`DY%NU-2y|QEghKqqXc%_=YsAi(U
zaz%bbIP21@0Ca8*gCuFCu<8_fV);fD=79sk_h?u3_w&rp&$oVy9{oHLwBnr?6Foh_
z*Cg+3g$Imb%Ux17eL?r{Goxvg1)PV9o15&=@GuK2tLYin5EF~&E=pGm*O*My2cE{0
zC+)^R@FpcEvt8WI%}w%;9ILCV!4Wf^IW%l+Y|uH7`l)$0bF}+=H{?n%@usnCkkO_Q
zsXETH8yy_u9of&`eB;^{m|D<`tTO4BkBL}RL&-%kF)>?k!mNhYHv4_X3bZd=U<03M
z@l{ebEG!IcL&#f^Q?_S&y7UXhLwFqI)7Cm2f;zjs<;^HgO;6?gkgd2yj*fF6*-m6S
zqm?#esj&HT3+<AvBgM66spl=5XLC<?CClge*kR$A#i*I<aTaB9aXV3dYVRE^*22}W
zt1jT%H~Yk?g}Htn+^Ck+pvjy}ZA7zb-w+PZ^>8VT<Skeh_rlq$B&ta(q;IY7rnP<D
zm~o}+Sk^1|9|=iG>sBZ~oGCj~eJ!oTk9yp6Ty)KvFq|8>g=X%YD>WM}KNqv$>=fIN
zZj^N#_qls_9Rs^W{THLrX~B-z4)*9~^|iJ3-_{>Kb<_QHZ(`MJG|b^@66%QPprxa`
z3Y=Bn*r@8|r3g)Voik_dNm+HrS#)Hv9<tpDT@21;-p&hFH?+G#6un}$rRFsjEV1Sk
ztho#=`Q5u`4BGrBc;=Tknz>^XJ=uAAdC95gu!j##mfn^Y6>(i&vl~d4dg&+L)67xW
z&)sAyXJbKg)Nau|MB0AjhE%ERI^4mpZ=>+RH89+-n43{a){S?XYA0W}>-V^n>R5-M
zSI_+9FQDWrCN4gYlzs?*rH;);&{VZUN*#xu*zumC18zTNt-j?>r+8VL|3m55&03Xb
zI5hV;S!qje_=S(xLw-(=PkJ@6lw<Di-#?cE9KLRWnCHKKTm=PO(1ZBzpYpAL{ja~=
zaB0_ne-6~FJMf=Rv4lllxgGhRPx;qtioVhO&;PGBlKgmp|GyvmrhDT5bh!lDfWW|b
zoxO27du_iC9L~=6`<xmVr`%nKx$J@xP6yALQ;X+ycd)poM2~j9fA{XLN_^$_W~I4V
zo$~hAo)moSLy?UUJ@03(%`7Z31o?eNB=L|1JYCxqPR1NEZn0Rb_&LdaF6*LbaTYVR
zc>%k5L3h|-Stj>#v=@)Y@#A)Gp39WZ*aIzJmID$ebCR;Es#MY#H*MN9lb(?#bl?E#
zdmyXh;yC-64QKf9;ltRiK?mn0<AEACQg`37x8-TBno5NNP0@o2$uC|opuT%cKNF*R
z<%6@f7s<J5ETRN@4_i=j?{6F$8v5|c-5KDCsWbOlAm3X&J!xa|`IZOFHfGF{t0>Pe
zlp^FyxC!^hI8uxfTZ-kjW{=dH*y}kA*D}guc^duZ&9$Ib|3+dojQi0^JB>S`U7G7B
zm+kD5kzo@yC?rXkc-^$mTuWLF2Fp1`)e}OHmhn?he1jzI4ieiEInLCKtgPDFV2=2+
z8S}WI4uk7+?p@%}2?AvA?XwvLa%Xq#vd_LgyV=LzzkWL&0LI9b)zxW%WA9vlA5@VH
zjA1qsIO~*h*UztPBrrc?l6P+GpVw7hX3;pagWyn9A*py|%0hx2gxwCj0NjMLy`!VJ
z>13Vtkt6Fd>~BR>!bSIT23w4bjnNQKq-{b%xa4H>r>SUYcS=ZX#bG#d^5kZ2kFSUQ
zBDB@ivTDd9KJq9QyUajEK0hrq-BZ*&Qi=tCiH<USW7B-QjzSlU`pT6nll;zly1KRl
zl~mAvRL*Eq$!JT+&D}zJcZ|;6>g+r(t$t#}v(J0Y)3iW;VY&+>G0W`cI{x--BPIf3
z)$$|ubzV;B%Y7{8EJ9qK{FJ7(Tt~GlA)4yXVS9vH@b;vX6l$XN<43KmGMD))L}k9&
zN9OI@zbth6kALC4TZwR-l(u~rAD`WqcWg<isfq4CW=;FbWlY4_@cVmZg$1Diwe(>C
zy2^M}zYir2H>7Q-!p1T(Gar5V{8Z7iG&<3aG4pI71}eAyiCd|kFt&G)s04#E53DGg
zycw^Fku>gl3k9T~gwOkE>BJW=-VMk?gdZo6hPYgHcf<Ba7PBWu)~{dR`VE`{HPIBS
z5SX7Y0b|~|b0^VT=1fYp1=U`&P(Zq{2ND8nah{YV`i&b^JUry_MEXrv%i-qB0k_HR
zPI0G&SlHP9M$M9@Bg;^{WCo&oVUrTl_`}zpu<E3hferI=w-cALMVrR=`En|_ZAEM_
z?a1PKsKF0c7914Bkf-;MHDd}Q;;@nN*5ts23X(f1bv4%4f6|g07!YvKeaUiRvTYO2
z9$YW0m<c`dxZAjka67i{15p1Vkx8V8Au}_x4}zI0{Vjigdh9<TckV<;Y(sxC<2{vI
z2v_JcH&|eQT3#+c-CMRpx%b+qU%!5l7**KK3b&61XNSV44wb&2o@s=TP<>Mq$tiru
zGL-xI>lg3-{R|kYBNTrQ(4=weofg`LqSzhdx4wfYtg9+36L`C5;y3w?V&lnP0Ru`-
z@`|>RtE)_*b#DMvXaFnd;^X7#>FJf#)Yc)h4aLLe;F2`cjA@VABcEv$^&M-b(C$e~
z9CZ15Ib+zN#yymoy3Bd57Qr9{1O54yU0YQBHrF67h`f5XnN4in#(UHd8!PVmhL#ZO
zM;hx(E{1R`xIH%P-;OIGw9pc0jrt_$#LN;FNDmKv;MA#8yaYWl1iZUdg}x<Oa|e|&
zkkGpU3v|{C68=jwJ)3y%Vn96Sw7QvD+MA9TStkwsF@O|{e2=x&mDX<`Q?&!(S&n&2
zd#t0S4L~(TE-4nUi6iqy{e51nk~mAxTaEIg01h={R!91oeRi{-WfHB*&D(^`3=Lgt
zVPJX$GvvpU-i*%r_j9f&N;plP4jd|UT9eJ)Z?UXlXP1L&T3U-6q!4+%)>fPoML9C2
zAi$;G_{p1O8c#*B2dksoy?12F!_)J~&6|ZstS(%<xSy+MITY!k9{s5b9;0%X7Skvd
zdTdGLTP#A!_VLAz`zT$iq+6gAdbXmE^=MJlE6)q`ysuZ6El8kN$aJy7tJjn*TG~d+
zK>f;<1bEbwUF3U|T+ycIg&=@%dg{6CO9|!W<t;b6x1^SQzsnrkmAzloZb*$v8NM&t
zu!Cz(0n$@L@qXN5`r0Q>1U-N8Vk-^Z=B-3ENE7p$a#&TlkMM_~OY2{6aF0qx0xV3W
zjH4RgVmd7Zs`;}YA8ElE<V-x_gBg3ai&@b|O`o2txRaeoEl)ES(@qO9upT5Zka4pu
z&v8N*%?GvP->iBH2XPIR<Ht8(C-SK?XRg`4Lf`Lh0fFvqfx_jIUPot*&MiK|aMJ*a
zpOU5J2?^AqqM~~R1#>dEErNKIE|tnW5QT5X8$F6g+Vu@EgfYaUEx49L%JQ*<5eo48
zv?2<w)@@F!(25ePvFv4>GAO$#>{I${zt)VAg$!vn-aKAEc^^D@kd(I95(Qg(T>gph
zRiqfK5~ezdEsq#WCLf#EUtG(pg&(^M-(GCFs;515E@By0LsdD+ajRtL)lvFeNlCj&
zbwc$i!M%Hx@h)1vF*dw=w~j!YUi(l-XM*-KMZ)LF6LuWWf6|;-Si=4)k$ZbWP0d75
zmCps^o&qb`FJHdwTdoV`iHv|LZ{X!ry1nB$2g@%=rUpXqD89}7o_^+by3L%-==^)w
z-c@K7-Me_#*Eax%+kdJfdsF7weL!C1>AK%I+IlPvhDA?YK~gw`i5->17Wx8x;f)(N
zs`V6FCFjEauGscGmAu_?W<L7r4E-hdrEI>&+`{aiKY#k8UE%m5Tu&ed+m9eO>fk83
z?q5<0rA;QYUp(Hwjnhl+F{_M>j<y9_L78O;31RDNg`3llk7;N;h=80htk(D@2MrBP
z4Jc{><S9b=`c{dHh+sm5KeCSS#8wFK@DcuAE6Y*65x#JryK6oI6=fLN1m$(VYhQH+
z@$ELcd(WOgG!JN<K6`c}z8>1Rj=;z}OB_;J(R=ZRr5wx6!Y=V}a_%R+0X*rRPv!-V
zik%hS6%th}KIbdEUVSWV==QR-S_5d<jud(b+iAC^YCntU*2riJ0G$3C;y%Y0raH8R
zY$!`Jv{MBFCmrgtQWy7W;w>B>^}rJD>mAOE?#=k$lSeVcv)J?sO;ST2;#CuD`d=?z
z5tF`sZp}qhqN*p1&t;JkoEFxDIN$XLVP+feeY5W_GsaQ3Di1ei;BMiv5G^&<92{?-
zgJu_S1;_p|M3PoFByEKmv6Yp|cE7$|yR+y4b%Vv%hrCexpzV-zTX>$|givd0%XNd_
z#c*4NOuK-~Ojkw7{>JWgb8qg@F}7pmi?7saN+9#x#fz3shDSp<MWd!ok0}`!k-7R5
zkb<aj)w*y>(V!IM3|dWIAzY^B&jOJ$WF<aR>%v3rvN9VVcyp(9%E)DKJ^3ocyWhpG
zN+ahqb9Hko)#@ROiyPuZ2E7(1&m>L(MupwKzmxDk`BYZMD*DAtUHg)frl|xw3kQdV
z*x(JVm@grQq^%(Nx!?5zt6E80DPjsPC}Vb_$SNxK4Xv|*b~Z7Y^7UYK*oI4wH25Da
z{xionu0jw@<HywwpWc_<d1gBcO9@k|DRyyWOIvkIptV}v*OAQ>i9MQ36bNN=^Yo9C
zu}a>G*tmW6PNRO2bub_jQF)7oZaOO!Ev~eY{QUgKn<)zucaWI(54Zs?LA_%=F@RX~
zav!&atHtk-&lOpd`(Wewjvr%u;iaMOBQ`MyDx&91q>Rv`jb%4ys0o~t=5hWeurW||
zjYv836V-C92u$w=z>R+#k;S&h9RP3yfwWPgI3!D0MMZ^~hsP#YUUk8ye*2a!R~Dxj
z?aoGbbwkV{1EYaP1c7yj*5yBk0wZkRt?6a7q29cW7{D$Mbz9q)El#8MG8lb1Lns>?
z$2UY%my+J-!Rn0-2%O+2s0n*}`)QHpt$51q#V+#+3-bH-zf13srMwygLPq{bLm(mF
z*jwr(e%|+@$Wc7)8oQ}>Ny*-j#C7Y|9iw3105gm0fj=m0Y7tQK&6_va<?&$l`m^Zh
zK;-kls?{|$GMTf;Uc(!mHVC+n$#F@T-fy|KY;;MhH_AXDJRW95OnMvNTyGQHA4cgo
z<5~0BBN)9{p$oquc~p=g;y{|F!m~qm2@Ot<G?E`W%DQ}wYxs4-kCEg0sTCBlsR+yN
z{0+!>(u!UnB5V9ckem8CKcDmbgeO?J*6+YhIFSB-d_yXawuZ(=l0~p*5EK*)yAmy7
zwgu>nnwmPv@7Xh+-@kt&$-?g>e-9Q*O@Fn@jZ9u)BH(52zI%6KH$Q(oi4f`O?-%M}
z@zeLW>8Hu!=OKxcp0VxOFYIu*CtQ`4ea>V%ExCt!m638z0#_$GbNHxfXtc6uK0Vd^
z_We5*q3X*ZTK1Z6d`l-pLY$9#!t7nhR5Gjs+q$4WB1@2z9N~km2|8s%m8yv9;ABUm
zfS~ywKj;XUN!g@XUwKK(wbC$Yf|;G&JeSi@<)4UXs;;*N!_FhCPG^kFdI~eq%~it5
zCF@8KF^BA`vP$2TI8HoRC`Y1ly`zKw4iT4|+d59l!<8Lb+_QW4u?>$<h5ckuh}7TA
z@p(MQ^$Q8860|xT4c_AP=j1^lWv4=DP>=*iDDQHELV-TxBaM4_(-VLmcMzhUx0ye0
zn{=xyN=r)32ubtZKjV!zbQr{%s9Ec7@;w2-l4qnaZ?G`E&D^gxt@-2fql`n8S4Y?A
z{J(y+4Zk+NCqS!ZMW?sW${>)!4tpaLk59YD)tfAPOSe&e%+<AL8c=;Q%$hw>7<Ap?
zx<Xa}-Aj>%$-n0fs>0@7bdBcoZ??B+7eBr-5h?|zi}j}4iOYyJi_6o1`vid+(qWL6
znL+s>tMrv1Qd2`JC2Cux@|>P+;++<Gd!a$WdGV^|az8*oa+*MSSRUn(<U*>F=p#$1
z>aID3<vPE_$zKq*q9RaFh!N)PN&>!6Ug3eHPJP)yk}S}wLJ@{H_z=6i%RyqNkkCdr
z1Lqs(FCATLOf6YA+m(0YDc9z%xZ>i@5qso0Xd<KW`54Nya>{OxcC19%>(#yIEe_O3
zed%9YmG&vs%<%p-x`S|v<emD$_f+(%@B3?L^9f=VrB*iF;((ZZQ+<lfDn;Ads}0$F
z^gpJ(r3DKf&9Ms1PSS3L<Hil9dfJI?=E)^aD=RDWXapQWt-ko?47&t7W4?Z7z9%$O
z9FLzM4{&_HH>X0c@2iELw$CLy2ojNoH)8ZDNs%mfcJ7F|2b_@ngF+JbNhgtn$&=>)
zyuk$pRVo78_ZC+L8Ye;@njgB6_8O2Zl#-z3#D4O~hYtue$z#ir#ywS^Ly6_c9pvVF
zfevWUR>9602>|#)mv!+n&_NCRlJiNcH-Uq<BTa8lqI6Q;CkSySjbUb1+*R+Ori)56
zTi_U43-a8mcM-plv^|W?HYjT1wUc>}nCemD@k<Ph2rY5`m763SnI8@nc-6xqksTCX
zE$NQ*yy1m>uWO7et5>H&8JZHjKNb~ObUeBE10}ZW%}k{{@eehU-|Hou*Yv(LINMuR
z_P@R+)SaeQGQIsQbAwi&4q{YS^Uf4K?<9XgeV)m+YlGk>Xd@vVdIia6YyTJP`zHRY
zTDRZzPKz8os8ed(jx_(J`w#2Hsiqhiz0!yMEzTj&6x^kVopN#<2sAF}&>?<%{w3uO
zzZp;BzDaA^wrnG%aB13)&ZttWALrFJ6X#M=Qexmy<Wx5NHi2}hu#~~u+uJP3;rev}
zdj|(D_C(<q6Lsya&os|T(`E9Kh~-PLbnPiSH~orSgocB+@7$sKw07&Czwlh*kA`v+
zKB#Fk_%ZQF6~~^<kaTyDBLIICd`c&hFFrcIhJ-t53^GDRnv=VC?W(&<ayL(cDl049
zB9~~_uP>3?oedU&_x*uiz_nLbmKR~*)H;!z@@@-zq5MiUp}E&J1yAxSLP@KsXt4Sn
zBzC+~Qrlt6bUMz?t`5@c#nim}y4G*n{+M%ukwCpQWx->h@>YF){eAVWO}si6F9xBR
zpO24^M!C1V1pcc)RzwfbKe@4-j)^-cAYdcX3I;COPqVq##MpB4@{o-a1QP#Z44a4|
zqvizW>x+p8<i}$M54DLF9|QJaJ8|AsC3@l`e>K(R)}-SY2bBQ4-Ni3<j~UBFE78vo
zin$98&g5d-L6r$t&;q);x;p32LmJ<FVvRkR7DxUkU^dp{Qs*^jyPxj~%_IrTW6e-N
z_k(Xq<Duu((bo?EF6I>zYn={m<77((M6?+9GO2H9uyfcQJW*tE;sgWwZ})N00H)W4
zaH*=OP(#zeIF}R70h|{Np&r6HQSS36D(e(gEP9WCMVqVo!&x4GB5C1^X2}X-^0j3M
zA~qEj)%^yOuZxRE#+shySoKJe9i`*#nbFaS{Ho;b!&f6aqz1Q#zcX!r!A4>~!_}$b
z;X9z=I#0jWO?#LkiMu-tdVgnl!@nXTs!nHZR)G1)ol&j*=y^~*c8ng3&WODXDmGKW
zR}6EmtVbSetY=vZaRah}jo2Cd(j5(c17l-j_rJZZs?tF%Fj;p)+-zqQ_$6@B%&e^R
zQ6~fnPMtr`y5+CG=FtSlCfxj2_lbV!1fMz3ReEzq9}DXbBiM=-fD^E@v(vqu9uK27
zGiM->yo-X07@V6sP@s*L2IehWZpSLPll|$3oM&VH1>nJl@CLW<7ZyI^;ZgpH3Ad}F
zs!9S{%=+x&=dZc;$1r?FX0g>(P;f?&JQ@Ii)X$?;ov}EewWOo2jt(OERj>iSpFdql
zcE)Egx^vt1?HYd@_ddU@S-!SP(e*y~<DlA)J2Q_(ukL?+i=TzXmHQ9-{5%#J`LW1v
z><{kW_W=tYRle}}^B#Ww^}vBrrHDvhkaH-Z_ic0Z6slR~3rYy9$hQo;Gv}by5pFGe
zEhsdUi6mfP13jFPf(T$~KYpP2#ij3c`t(**>1^ixj{?@=LIY^-5H0?U2WVt&E`&%)
zhbEKgMpkKSPMoMyHd!{#xrICid<qJ^Bfpzaj5%aGKtOHLE3$UNY~>%_KhIa!`Hq@4
zZ+OE?r>V2ydVP))t?N-#ZRKqD-7;3{8X6uRp1C@Iyo2YR0(+_bXn>=tf@aEnfb8af
zvFL5X=!h^ZyJ-xUeeBpVAKf&y%a?Z|Q~rw5?U45xg$GCW%k04hym?<Ve8$Jck^E~F
z=38iacz8(RHF9T}?b7sxGMl828RrfFzEA_M`3D4uMK64xpFa#rHiSnh1g(v{0s^#(
zii-3M4Ap?`^T73k$XPMXvS&J=@!@u1{mUQX4il3i+8q@W4-?_>jFH^$6&9{Rod&`o
z=ksm)xq%Wu#~}pOLc=W>B`#{1HB``UwWOKI$G>N1hxf?0g4a5NiiL-V2M|{P;u+bs
zwHGyEbukVx(+@jil)SkOimYoe*VRJSLd#$kq^z$oHk{NqH`jsHd0MK_zI4?B@Hr0O
z8L;Rr?iqv(Jt#YzERdzcNa)5tm*h1LFI0P7+klrhQJaQ23tI<?;9nF9-<~~m$ZCZj
zgooqen|@L#SHVP)z<)F6A%YA88W9LGQbK&<;(sakGVx~R+6}7{$^Z$O?2;f2Vvh<~
zmTVItYaL-b($dpabaa>j1IR)n$xz7c-j%E3>RRHMR{&6wh_7rNQZI`b@#w)aCVJkW
z`*pYQK0!g0GFgc@kpEy19NpyMw$Q1<A#$nQKf7YJo7dsNUo2r1+ke$mBwfLsir^xE
zz%2-7&VH(DXU)5E`O)rA6}PHIDL;&a44RgL6Daz-cNk=qxqe1`pL#GNLXh0$jsus}
zqNS`R`J=%W$^E+;qjeS^0^KNN*r$Ni9(~79sF?`qN44}~iG5A);4vKcTj-qLgt+Fb
zk$jt(T7@2@7Z*52bw@`D$j$B{ly!Bt=%Yz@ZV?OTHxL6DymPql4t|81z);lPF|}O@
z0zPDxgDoE6-_b5Nfcmt}g7-PY)e~w>^U%5^334>*ZvjU;G;2!`MxKk?@NV8`jlr2#
ztS&bSI`|k|1wD*XCJ&0qw|@WjK()E3R#i=HX_!lwtTK(Kd_|wTXo=>?DB7QH3+km5
z%Q0jWSog9cakO{0-$9^;QfYSyuoAnUVP?21O_9h%@N=EzuH+hr@mX8{=Ns5%9rq%+
zAQiaz5M7atfy^=en8Jt&S5ozks-~s}7G&@I9C%vIE`avGWvpEX{!|$LQ{=i7@c&R6
h`_Ik%A1ZOHOx<5Zo3`t_{gHS*e&nQDmdfSZ{{wyzM4JEr

diff --git a/reference/plot-8.png b/reference/plot-8.png
index 1761c1c96548b1f61cf4def5eaebedfb03c44f07..d09795a57c2ca3a2b28fa1bd813bc9c7eb2deb80 100644
GIT binary patch
literal 56802
zcmeFZ1yq%5xHZbQMMbeiLIpulKtw>=0F_os8WBMxr5kJ%32AAiyE{!9kuCuhk!Dc~
zr2qN3-RD2&j&sI1cieH$pKG|cOIY!JZ#>VO^O?{4?5fP=ZIm>W6ciNO#IK0TQBbV6
zrJz`QbJGU=q$}X{1peA^Q}VJX{>EeeVv!5}+I;tliUkD)oh$L*Utax_x)c<LD8xn2
zE7*pPcH7u0D6UjY%IZ}{UyIq|mY;Ow={q;&tLwgPJb6r+`l`Z?Yi`013TImsRg9F=
z8}^KD+j@jun)>SA#~<&d?~dX1-nmmQF0_|H(87i}DBu>e@BO(EyPtOBKf)cx=fVr-
zWTxs02AB@$xc|N);%X}PlKy#4(SPy5zCZuixqGwbpQl%@GTHw1_wz&Ny}z#i`{})P
zV*h`>_*hhA<Pknvsu5lH&B`Xt@z<1s#Gdc{D406lU8J_CmZc|MJ7*)9I9k8;_vO5b
zO#CQ7afq5P>{Gh#7n3|icIBOCgF|I*i<%wIuU@JB`<hwZ=!^e;M)Bg+m5DWfKR@^2
z$lEO+Dt}G(>AHJ!UeYMC_OLno_pi=U{b%m?L}lNk{!n8~A*poH^4sHmi85jQ65`_5
zO6<waxyEYUmQB*ZXU!scOuih`krK7qyJydFE-v|p8@IO}xE=aBJNrzSWuy3TLzF8f
ziEr#n0av7bp$&=M_5ESj_piAPTd(-2vj?8$;<8#C%S%$p(vy&sY>HT!Ve#0{d10h2
zZM$-PtaQlCuRgCNTzjHsN#SryQe0A6sj9`#TJMU!XUVT6n&)PkWRo1`#`%Y$ef<Ig
zV!7%C<!!#0x$b3CWeTiO{K+4sOX?}HUl@wBdb@t#F-FFV<lz?i2w|r)+V9rU@tH?U
zS$WWKR~xKi79O8G_<Z`<?!cOuzt(P0o(!|@ywjO=TlVn?*{VsJSA{Ga#-AhArD^tY
zPit;aP|*1rJ3;ys^#VCBk(GRY>(O}C9E0Qdf`L#A&kft@lld%u#;2#JN4nnRELS$e
zobTDa`%yPD2S>eWNaoYl9J!8xzgK0v=!X8;k+ia4d0C;BD{h12Dwc>xDO_A!P0_Kj
zPf|vHhM4l$+1VW)8U9j`r6_#jM9t`zf~GUZoo8;9Y!{k&F=;DUzF)`f`SUvCyzaf3
zOON+y>YH0wFdC$F7uke7=O{fpn!$ai@xv`$T``5**|vi8)AcSZT({JDLh5em=><P{
zu%;}+p(`o6h*a9enswvtgI9~5t#%4i(^NkP8={;e-WLpn8+y|6$>nZ%{${S%#dIvn
zZu%#+>D(fzY%#~~{Q2_<r`ZE*94Fpxj1~7~*6upN$oL+gd?}lBHzKH_Z!$?hL`1|W
z?6Ma<xr=#cL$T6LvxvV}sp3W<+nS-TZy)l{eX+>Vsql<%nQzzeN|22ZrY4_tB$dor
z&UW0s{3Xfq?Su9FBgt9WhHa@Y`oo=ORiwlC6;1Ngu4~%G^w<rAz39K5to&ND#Qt&j
z>UNQ(SMoA^Vl{yr+tsY+#=H4R#nUr&yuFXu4zgW*vbBNHOK@kVdqv+htc02JgQlX!
zWf^C^E_9T+l&R*K7&}o3Im|Z8iY!M5a~ocA(%PqK`&yCInxd9-rz!Sn?&4sSS8{)s
zNs)9yLPAV+Z784o+6`MjV++4;4Gav76Lwk{9LwwVJT>*p?dQLmXGbR6nmeQI8P)am
zflMv&*DjLER!gnNI%B?nzlpVkKUgCA_2ELQ+4|n&C3BiFad8_{OnZv$Xt?y;$)y<E
zh2f+$KVM%)uZk$V$+$iJ{PN;lUNt`SA}-l|(0dqjqBTE1Km7UiL+7Q*%l!ibHGPv<
zh*xU@*yNjHrBgEByKZm${Q4rd%Zj7!ty}sFGei7$zurT1!5{1KFA4Y8ZdC0LJgE}7
z=Y-O_?zvQrBFhflK$Z7=%?a|C@d-^mB@X@O1wSTj{cy8KB?AV(Sk&j_j<lwPP|@-4
zo^59}XiZiL<}nT?mr955sOB04wOm@ie!XhO&BvX2rW`}cYL_Il>!Ysn7`4CR`gHc9
zTAqo&<*3EVR1HUspwYSLQR|}dB9idPvfpv}cP2XS4ec2^DRYdMJ-4cq>ed9<V^w4u
zck%4mySKV;va;WN2zL|AYZ~5}eMiTi?)0svRP=(%o{R~C4W&w~(@TG^G_#!~_7Bez
zv2a@%>kM0y6Rv7}{P-~z3r5LlAi~AD@^TrA)XT4PSIBKzE_CUkB*sOb+DdQ6hg2--
zE~_hYUIx4-U)pK;Esx!>^QzFXClBlTm-KlGJO~)UP%Do6NV0FXGcw8RQg>M<E6u-s
zxN#%f!EMA>m~<Dmu3(gP)Y-3pZZ|2N|0y@7;C+}T(vJQyO{Dg>caO{UvQ$R2949|g
zj-8O}$}`QI9lCo~%FN8Ha!N%-MQMJ+Hkx(DT?kP@AD{2rs6kSk;&K>Hh`SKrHLzn_
zM!r&{o%8QZb}#W6eR02ENQfa@gjxB4J&7Y&4Q-gu<T=F5YpSZMpQmhk?BeWaNAHxl
z;1k}BM_r4$WIx{@=<nyZ`>xaS0@<p|IB$M=G^<`%K8)XLO@OR~L?fcAPDuoxh29(U
zgS;lq2mu`85;8Ka#7IrG8}Wqb)xOjg3J@{w%#N4wQEY6CkxbDH!{%7{`f&TLysn4k
zJi66>@l>~W)J-3IS>?-;gk7wZ_PMrJsw_Mw!xC4bDkS~<`STphp~e^en1>r|A~T;a
zp095^k(z%YP|MlwGg*@-MB22396(;dMs`0lBeCzfVa(}I9KTcA4lV4hA-5B$=>fg=
zBPo=1f~#*gGAP%q-AJVnb;;wM$u#arwFUv<x{QoW<rHqAEKxCOZ>CfryGC+<XO7{>
z_vai`Dm}c~mJ?sk7pSMo>Grs+IvLL2-$?)T7+)}Q%j=7-s-){_nsnA7Q&V&#GJdmZ
z(bir<!Y$l!sw#d=BzWMOc=>*zUtb?8sl~>|8nh%T4kH9N&r)yh&G4x3IJhrc{n|Be
zX6fKtB@Cx-oKu+9DzUc;b6yzoiFR6?O^A;_#!9}Vb~4ppIb7@aZM`x$^j1xVNH95q
z_A~m+L$WT7*bF)5{nhDJtv<yivrIz>U+(%LN-3)ICEI!Jf^C-CuhN{+zrm(u-Jz@P
za5-R9W6+Xc(q9EJC1<p2<ZS43_QFclo^<VtAG-YgO}!eEQVUrljggw^bCxep3r<;K
z0LWuq*Xu=Ai=%ZS#)vE&Shf`Njx*5TwCGcqz;)N{3{=V{Sh(gz-9FLS^zqv7pJ<P;
zv$8f8+fARrm0FFqU)y$&M*)LFOXb>Yh~U%8<IkCDVfW#?>a&*lztL7A)z0F6%TIg*
z`iODWm6b1;jJpdJy#%M8vgdzYgW;338g6a~v*}47*8OP5u&#T<0(m55t|$D-H>|rH
z{f2k;Wf-~_{ftA~^s|;pmhqS%QL{(WeO@A}HP_Y69-lsa+RxjYfFm(6F~^S{{b)bW
z`~#a%&#>rjg_36Z{<23eNun07LotWfo*!1l917Xbe7+sw#4K*m5c!zLxHB5L<fwsJ
zpqRaVVQ;i!gv*NE8}oXhxzL=YiTB%GlbiNOJ=?{Ss8<(EpdC%;d0jS*LWRXS(seVl
zj8K`l-WohHTkpwiebX%E!|<Pgq_}Z&59J^cH0cH7k!uuytEMDh=-s|;*cdHN<oe;(
zlq8PQUq^1x9c2hgMWp($n5I=$niCok!H{W`-;=+Gjp1oUUxxiHiHe<u2>M7Y*R{1@
zQ*PO!sIG2Q;<(GaXY%IJk49U2e2f_kisiMAA3uK0gOO(7TKxXGv936TR8j7qnT3nv
zMJfF*E7K7%t)$+v-eGCuysnlU!?qV>p_N~Kg(Im&iAI^Z$v5p%K79YzR}VDUfN+@x
zs8cy)Y0#FcLFA`1`kxOOW~PRQ(rQ@LaodmOv`H9io%W_-zcx}M!1ppbU8kb_;u)V0
z849OMA3S*QH21lfTt+0uUCVhs262*cNO@-(;(TYZokeq>XY>3(gsF6Up4EsF;!Blj
z2}!vULF{%V)56cX5N^HN{Uc5lo^;$c<LYBbg8&)+U1I?iecqhq_Bkfq{MDCt7hEYX
z@gV2y9Gl+qds`{cG1*2{>SZM$qYigu#bJfV0tJ=)`u@Ci!C|~0PC>RhI-05M_1;{Q
zZkmQtL3*#=&s1^Y_6F;tyh@4RWIRAN7!0(0KGQGoT0Of@0MI0P?przMY-f>;snqvL
z)_OYyIRwx%7C)s%CYOtg1;Z>p@u?PB8%ybIN4y_Gc*^dP4Lbc%m8V=E`MY%yd+2ep
zAqJpz>fT>#vu!7DE|b$-T8_tsM!LIi?J&xf+uVdCuQ0P?jT@8QLGkS~)x}DYX8(l#
zhwDtY9%W$}DP0_IB8F^vG%muKRdKvgk|QVJp@*!hTve6d5jv6FObr6UPWc>_{JvlO
z1|7d;dO+FA!pPHHmGm3ulizJV);Jx{6jB#^fJ;w*@bhaQPqLs%SFW*WSNQ|d+2XX)
zg+y+iaYW1<(_Ue5IbUXJ3F$-1J|w#tVl#{_2Zx1?wRM#o@$vET3l26YsjsWsR#aE+
zagZ@lK(kH4uKw?ceU<yg*OYYw;SQ-e#YBD`!G1Ai!+;!(yw!}|Yr>Xi+N+s^AbP_u
zgOgZN^WR(<l&)R7MjLfJMXSuYb;_b%XkTt#Ow&;FE?Gh9k@Pi`HuUR#{QROf?_wUr
zF!(YRberHRHG7@rG^B2B?f>B`tF$;fc9c$%$D!g&*eUG?ip)NbQcOv5uJ5U>%laz3
zIArtB&pT6ztS(u!PnDMVUVJu}BNzT>*?eHw++%(WK~Bd@Xz#TnxvyTG%hIdM?Ab^o
z@h!84UB0`}DrL@TVP-Smrx6EINn8-uZB>$!Z;2vMka2UY^g;1P<l^Qc8`4u2>8>2Z
zz?Ip&vX7?)HJs=B6IHTeqjmZiw$lr?n>Mm)mG38L5CW}db!n6n{d!;A);=xAYqG-g
z(c~;JF|jW?e8Ke2zqAeQzT}&+;;N#>eUl^RnZG=olonl}BJZetuzpKq_zO}?Qee)~
zo3-12NqZ_aX5VR=X}PW?reK<#=3mWU_Ip2^bM*eo7RRYm9*-b1+?AL1vpyoN*JV|M
zJy5bSL-dA>jA!ZctXht7mr_SZhfj2KvjU<+s)9yURh4s}oAc`O9RK2I78!|I**6t9
z*0?KI`l2fp*`c`v(b;)(Tq5)F<KkJj>jUbnM-@UuTuNzpO_F(gY%gMAO-tU|w{M>z
zV0y5SLoV`ADuLZWI!&bdEY8vr9Fx5Ae!EEX(LnV`{}b0$Gx)+}baizT<l|(51?|ig
z<`@7gLRrFX-<c-2gbO(g`^pMG`*dG49<iXc;1mLb2c1Bx#0x;}77_#9+nKShHdSXZ
zS|U?{m^Mk&3WUiJU^=hYxv0=;WG`7~|EU}Ia*D0TRISE36#;s(J>Mh30Ur(bmX(>5
zEzdq3@%We{7xah2J>B*2^of%v&-hd?1#{h&skA47Or36N%Qw@pnE3kk71?V1O9yL+
zzyF@u{JkfYZ}>9^+TLxS0$k(>Us_svr3><+?c?iP^F<GQl=9$ZF^pmpqWx1H`=3F#
zmwFro!|#!MoaVZfg4S=@>!->vHhrwI-r@U)XU=5lpwlsq+pf!i*=)8|pZ;0*T;CzE
zMi)$m&ddQ>xHj9MrP{s>lk&>Sb+NX10~PK5$(0H(2GX2xsJ_ODj6&Hz@bNL=;|m|3
zNJL_>Hcba((SA&G%KY?z>)4$|0Hon2SrHF?^@dWXMFTJaf^{EpJKO_QPjJm7g0-1)
z-KyNN4A#!+KKv4)vSf8-(S9_e;$6Tp;zP=$(Fs<ifoo^6I$B&Aob^i>fY&vh$SssD
zDtj3(xgR5QK^*|dxSU<mZPI4b>l6px<;u3WG+jU9!P|4y+}u2<Z>#QbbAq-=-pq_;
zigLyUXb#wY4TVbIt^P#AYDKo5znBt%iiW1^MF<Fd2Ft){ncSvY>R3Rq8~_5qhYQ$K
z83?&i*ii|pIhDZ+3nOW5{?|1Vkkj;MM>|wAZ#^R@8or5$Bw+$JtytyB$n_t8ZHh{B
zUS3$hxMbUqH0y%7B@t-CR+dRF#9}4@a>wn66udhD3<t?Pgqz1iH@(B?w;VALW@CWa
z!)o!w4aQ+hX_!|X9quV9BEU&YnwChSuhz$5LCQG9y2NWyPg0AgB*Ys_=6aH%E_)3(
zTxRf)SbiOfOlZ&??>#%#b$i+9N2Rx}#Jg6|Gz74$z3l4oSkP*cf$S}yY>II*bXJ3(
z&m$?xl{qgr=bQB@(>}nOBO_akAXhYkZV@C|A54x2NBlP9$tTi^<*<VlFI{>vH8oYO
z?vkDAZyWXpoK8V;lPZ4rJA~kWesmYl{CWOcd;0Tyv)j7ABR&NM)3KfZTBtgrovfB8
zBQ7q!$63REC}vXFkM%hZAu>`>Tsisgi*x?B+&L$y{wQ1&SFLCMi*&m`_wt{T5A!HH
zGIU%4d+`TEco*sJ&GNp<W6;J*9OjhXKiQU|Lp2jD>||g3UV0Ntb%AgE!tB@yta>o*
zasfZ{g7LzUA9v3-CtXi_ImW1JtZ*QM`H1P_>|g`q*9EuSu1A}9;n!zwet7EkXmjX`
z05&ydycsCGazDNcSNh`Km5ECY-i()LdK^eYvt6cb#5x3qP)yU*80*YwA`mrz<prop
z=ks{Wf!(TyER}9H``7G`BH|}NTq{Ud0<;CS3fjSb>!Ln7^9yI`>%*{ZA4{!lbO35N
z*7G{>G&U82v4&-X*d$d<tvjdE5-_(|?d&cOp2TG3UEX;bP{x!EG{m~t1O(K8H~o;U
zp>ru3IGLE36r}be%akZ+Ku&92a9LgKrT%F1qmtS%1guo7SX!*K{^5L$*2>L~r!5CR
zpEl(XU&ZDk6Ph2SqJK0$K#LK8oED+EFHxXM$^?Pl`Pd|{NPSFe$_nr^fKMr}E5+j=
zuK{*C4ZmePz)Ktm{Bbrm>D%FUv51H99a*;nhl(JT=#PIXph57b;W3KGkP){=BVcVL
zI=8A{VTo&FQ_sIjTq)UQb<V}0GdrQNv9TFs%8JyZVOl)-go^g;j!aKUjuHjz@Nnl}
z-!|3-aj`@$6KmFaE9)o}wV$2><EMPyl|tvRLu8cF)YMF{&o%DS^RKC{c6;yrp(j%8
z`4Iyak|CnpBo*IbTCagmQ~fnHmZ`Q{^j<7IuNV0of2Hr~N><7GPA3yI)|FT9wu)%_
zv`RR#<&r<O;gKoh-p5<^1*mE@SUW(L^I+n#o%nih#KPRX+KP>Y46mR8=)!7|jC|h8
zgD7iLnc1))y!{r4nsZl|5sxo8Mni5ntziYdkiF;^X9mZK`<&(bp{b_Ma?BSFCng>7
zY%xS?qi%sZYn*kf$|s$SRZ*F3)N%Tj27}YgwV00z0TvFmFF6mFMHH7Y5E5j5_jtN7
zk!yY>GAmR9c3TpvEDH-uBvPSTz2LMv=n^6Bm02O23XC(<5ph4IA8a52VF)30_Jq8;
zda|FNUo{omYdVYz!JK}A7~F}9j*i|hD(@V^YnmHSFT6N<_L7`1vY-2W!JZVJM0e#~
z*Yammt`znE_%R5H^aT?^)cd!jyFL9mXLkr#!k>u{Y4`2JA{d0s+z4jFVBH0ojR^b)
zd5oSO%N6wv3rq2&6Bw>waA{t@Pkl$a)cN!Gk!Vwp{#=uj5US13(iZ*<HoQqMuOhfG
z7zKuGzcg8~HkH(z;7bVDc;SfF>Ovqi7?p2MSQTGCyxp;F&jgg3BxGo3m#v;O+!93m
zMy7+thCd2dufD>sh5&0CKJL?^t$5l8<#0KTDFNFNLf^%NAE`_oMxg;O_Ht+%u`!&z
zd#?OtdRj};^$L!!hd}FAm22Wc%_V3V6AJaC+Oak+dC-XEj3dKK(|cXU@@WgY9eyBp
zY2w>^#=-y(PJ{MzZ3UfeM_YRbfB-qlmNJ=!p0R{q%`@p{64xnrf2O|(h^<`J{o}{2
zlBwzwow>##{>Q9~x~uEzTGGl^5`laTur?&5rTv*Y#%5oP2|6#?8j4^LH>sK+t5P$h
zT?gGgW6*r84tfGWpuDDLIP^y_ElAg7Ak_IV-!^p%4?%j_H-+K0-#4Eq=mMAm0I~tr
z^{MD<K%hDUsF7rZWcGmSHFe!frUazA;M2Npt*IJGh&7M~tNzwLk<pso++UlL`FrPL
z^429+fP>+#y_vf4nM+wjwM%zb&G_32E~tA5TKYovZINPIvH*ad=3<GbKx4MKNvqw`
z{QBZX#wvA(v7GZYXTxNYG!8_5`=A(gX&Yk|>N$)(uNAJWt}J^n$z!x^UFCEeE@ku^
z_e!!CFeQ@t!({sIo^@xM9*T?Dz&5bB-y#3-&Ueo~?%3u(=`=1N*Z|;D2iTrGhauTg
z<b*w%JO#1x*|FR!CE#dE-Cz=K2HoCgvHug0qxZZwEn8MfL<kAb=rFqEBQ7n?4I;H&
zxlO~STepSlPGj`Ta)rH+e7*EHJrh~^^`12k;t}Q8F5EB6-a?6hCIpt8TU9&7<p4Zq
zK)ez`im8nqpvnxks+qEpr|AT&m3@N{Yhs%hu%^^TN=lRo>9!&2@<?`*OcpcE0TE}%
z_A0G4Ejb|RLRj@+ZT^UhYlN$dh@TK5!o<5R{?K9gt%l=Kud$!5<Fx`@xwoiV=3J7K
zhV`uJ1Fl>vw=3W8_Jy3O4_Uf3dt;)bE5F?xgu=B|W%V+H)2)vKPQ|&=nA+b_TF5?|
zz2L{rvMN;oa%(ot;(RF~GfGOz8H{csI3@pBc9S2_EcT6x%kqd88Q5;4qhOBUz$a++
zWT^PVwOsWIs;a@C1W1A&2e>XF8d6u#oWNgL$^J}a1nYN@!t!L(N@j!YX9iyr9|aKw
z8{{<skARv~q0k<7&_AG)ZQd_I-1~5Q266u}NFD@Xa#`%^&A$23?N!$*_Pq}iK?D*F
zJ2G_(muI_>kcEgUS>d-Q2iG{8+|O5MuM6RoCBQL}vVl>#jXM<{ZrJ9gulyX!SIxJ(
z%0e5TySbgwDc?$D9Lz`H`){9-&?Nm`#tQ~6w5sjtJf@ypzTdbbQw(b(*QA836b4Nr
zQ9jNST9_qjB|{+6t$+;|#-jvT8+m*P86PE+s}M_@QF}@zN_P+|exr8bRQBaGry|Rt
zop+t0Bh17_mL?ve)O1uFTY{}AS5f?AX}#oB?ies+8shmdH2ggKcCf{+!+BN(>Yb%d
zMNA2JtpUifXvR@DLTN=PN$+v+YH0&HHPm24K)D8DwYHUvSie!-Q%p+tn?OM?E`D#e
zI-*2!y$!hSo=z4lS(#I2QtT|*M1ij4Bw~D4eDeX5$YjMNC6y7I(ROWUtGg{vd!cL-
z3=VU2uvDUz8;o4e>Wpd67gmyWQQg|@f;-IDc>nnE<6cQVh<D&q=0j!$>g6vh?I)C&
z=ylwK_^lEZP0HO5oEO<{>P1wP)`!x@K%0%!DZ(PI1Fm}DOs@&Z!Ym{tWaI>r$+pKZ
zdf*eWcSHFs9<+vqhnuvfX)*A$Dlbe{Fr?V_K$13Z>%+IlUyC}j;7$zBJu4%qS)k+0
zqqA7|$8%Cl>pz<Hl?OqHY681{WmOv{!24s;5fLvIaOiN~eo)5Go9!JPPJasKt}*(O
z-_V?*mZv}mk$_#%xgk>Qd|x7^@ow?tT`V&0gX;USDJ$z=pTrE8@1MqXsFmD$SQ0B0
zw9|66bnIaK*pX%TwUe^}M!=|*=87d7O)-^DbZ74#y0P3-HH5X2Oe#Bvn4II}N<|k*
zuT|_YL8DXqrNAO(KX{d*!7{2N%cbux3_)N}<l*Jz)#LR42riRS_>O#%Ucfrp`xY(L
zM&FbJWWD$Qcma_658a&k%C->&tnI?T&NXImHi6hwOL%<)^Jqpcdze~ZRdo&FFUN+|
zlWryb^3>rQ+nIXlbqQ|H?JaXkCQhFB%iV{<%QH>si^=hB<y?d~v?f5!q(BTji!H|(
zI%GexW}b<L(@ewVJ;B9>AKmr<O37D-7ZVVT;Cmq5<|LM#O>wf@?LPe+7)SyDFfUN&
z^kCfG%Xtyv%=K~mOYZx%Jsb{vLQy(SPDCyJ#{Ex%(^AV=rP_I>81ICL`PmJ|U|;NI
zOXk3Zr}XI{Y3O_oAH@tb_XldF0<%1J*8w=O@AtpHCUts@FBg&mvAOtdCthg<A%8;U
zPEwdZSHYqf#^c7+nw*@R&MDCdEW69UDw(yDhY<fwiYG561sa_qN|zXhgLlJB7jqF~
znisBgvb`iQug^~V)A7~6gjWfUt=pSB<#`|kyBfG@eRmIpPAE`5(L|6HupWJC?>?F9
zIB#yq_u1}Ow@t4&KTr4s_C0N8YS{`ot<_wtlT}?x7jn>6Lq26$`!wV((Z-BtWI$A<
z*94ILx^5?FtHqHiI!3nOk~`InTjYH*y2kV{#LNN$T_`ZiD=6GjN>#r@6jS|&KtA6%
z`6r(c66!97)cg}LBgQ_FU90p<+9*+4nkDs`Vx5`shv`97h=q#KYVZ198~A6<_#EnL
zoIbVOZR)$S>E4mQdMF8kwJ4cZLi-JYm%^|cYbIrkD9fB_#lJ0D6t4%tOb`U7PE@x0
zCT&sY<t!*D(8D7537IZyI9SBR`Hg+9QO9>1DFS0uRaa*YTNJ4OL>(H%_EJtnqok|b
zHHVb9lQ6jL{5C+P^N4VDFg9rW2l1L}e(v+k0ryui6K$O4djU+RW_8A}wbl^=gC4Sf
zdB3?z1!PU<X@JNOAeCUi$g;7v6t#giJ%qH=CzO&;@$vD27w*sNGS1A(szc4JZX55H
z8^~W0A5WpUU$&p%2SYJ|wNP8!yT*7>Vn+!-2sf_Q57UKmVmPK(WhCUxotxl!LRl6A
zG9$_uv|1vpdNke1>R40GWjA%JOeeF$=qD~e@B3y&;m-?+&6mF2<Su`C{^5ooRPefq
z4;>vfN?Il?1lYfI$a*RK^tNB`-?I`;j5MC^G)z<JVrF3pne3|w!Mz@YxP<xY$TN*-
zS*zf42kZMy+*Ze~wjs-ar0zA7V|xy!20AH@zde{lvfu!mg4k!o6ol{dS9NJsxqU$V
zXJS$+rAqy1N7nKu*NqI0pOaN{s(<wNE1oU4o%@RVOMF#j<td+9K(l@6?s@whKug}Y
z@}gorV*5ZSh}z@jJH%`~$o@aQFVkmyKR~EyV~%C@7d?!(5%l87TQw@+rVQu#Qb^2^
zN~S8lmT#F=kF&G$5R$W^3Erwb(wV6%`8gkn+{iyf$ie!}X?m}Utp`qjV4VZxSa))t
zhj?q`0WZ=7b&p7~qbr9ktOyUw4;;sgv6ue({-UBg&s57Wf}><cE@<vrfJMc(yDzch
z*C!94yqH(LjX}7$)=X3qf=lvQ%%!-D4AmlQP%%*>N#=hbUAc=O5B`4Mw_t*)v7$wq
z&m4|d%S-Jjaj<z~PGnj|695J05kTUUD(5vvBb~;&i+FEM8Ge0pzjc9z+u%{y*-Et)
z2vF=fsjNBI@|9~M5j8LQ453I^FcPodg%Pgk%*Dw6Mf#?h_r?6VBG2cjk)B!53F9|o
zHC-lvw>h&1P4qYRu1n)Re_*@?s{1`FF@fK6M^Feg@<#hw7o@}11%mu1k6^8l4KI_D
zkgI+o=yDQ5?dK5|KU-$oZj-zr$Xwo@%hQRlz9<~PLixCFG@`YX2nPP!xnHY@-K6}1
z_0>8*Lf2C@M}`(4HY4k|wB%?QQbF&KTsygzU_>8wZ0o;@7{b<;AkV_ixs~S3u|d%j
zgxb98L0yE1$Sn<MU`kLr*QVCg*XPkMmyBlCSYqq1KN$$29G(y{o~{geLSWPOdMy}9
zC!3^{at0hkyn^1CD10ZsK1f)0HqzU^ddCU6OOODc72Xc-G{g|6sVWwqXcYbiajz*8
z!WZo@@h$1v@9&MEvib^+8fBj&_Q`^KF)voXCbUONP;hD*+B$FWB|ih<{O5I9xQtTz
z0k@;1IEw)qS|^y{K=HJn8`ntHK{aR}hbHYz!*`L@`TACK)JS^^Gju9gSy(P3p)2X>
z#X^;PIG%>ApV>9$v-@slI&2FnHCy(c{0wMIf7;n}{+!qD>oGi(`wUf3Zae3b>~Psm
zA=`LmWv)z(sB*WVYP2(Z6p=QiALz?pm1Nwzx>&ZlCEv-e%NP-=)ja?5Pf1D}A%U<@
z5(kekgX$3&H(JN{Hc)GB^8y%fr|PWp_I1;MbcRGJ8#CKm4`DNjC=6i*8Z<^fBL-2+
zWtp3@p(23u67<{8OY_tI!NG|{<|)o~a(yl#E4y7S?ftj(fH0ZcQa35f9aa{~jq<v<
z&Ay8Yp?*r;eH~08*?emQ_U*kZC`4@R)tdF9<=Yv!-=v^F;Kj)5RA8BMO=(}y2J>#K
zw)Gl$x9jN*=TnQuDOF^lOZwl1lp$TI@~!5?-br^_zQ%=z^FWv{nuZkcTWl>xnJF-E
zhG3L?h|CWOTjS21JK*W9gtaQb^5l69b3y4|9qcEC$K?wiqE$c6iT5yxGWGFRT(H}@
ztA}%o6NJ;ZG`tzWnFMSn3LTH6XA9NYg{Et{e4>H;Hqu7$??ee!>7XW<AwNuD4+6+^
z*Yhxkt(i?j+2z5Sc_v{5F95n8@dqn`;bKG(%QBc-*tlw12);0hYAhQ`n2oe6e>v4S
z_^xOwCV0I2sCs%F<?oS|MN(T#pk^Y3t9gw$D%Xqhu~OblVeonM^T)d7N~7?*=RF|V
zd**MTyM}Cm#ai>ZrmqZ{8m+f{n2R`td)DpDWqsB^2glZZV0C73`@z?)YkIm2o8w<2
z$4K~u+x-lB(U&b*QQ9?77ZUg7i#kY^GDq>m1FT#^KuoGdnzAZCaC_a7>rKUPlePo{
z2Shs$uZL=heU6O4SoS?#r!F=h&S59t!q+Q@mAqe8zZ<h20mCAA48eq+<`T@6=`o!J
z9j1JO2-T%kk8R23f(Qo}Q}a5El)QL*#Vyx>yo!IeDy>StvXj14$PbzET>wXt@&}?8
zh6vkBx((0FW0algu1P@#$|g1^il}!WFmx7LC7}$yY#%kx+$Ax4Y+-q>H>KZA=Eu&>
zBnHp7FxE-PeXc5f5OhlWLc*;e(uu}LWh4<M$ofYujE)7p;OG^1FGkGH%*;H46v}PT
zd<D=%9%hl|SLfFfqztNv`I|?dkd0HAmIzuH%QMm6HC>$-sCx*?ZEk=QiGz@$KJ5e4
zMSO!>Ni_{900NWRKoIG+Qkk<;nbR*BCR<d`Ts?a89IL7d66Fqxzt$lWB?SV$f-9=@
zm3uVdX46pP2pHxYR_v)-1}ZGw^%m0BNh7;nQA509xs{k|7U3gz^7Ic1JKBo2&A`({
zf7hY+mR59$qf^>*AMsXY=Li?@oz^L7-tOJmUqD5e=tl0Bz@GGU818~X0>yT_tS(pA
z)+(5oq$2+Pu=%8J*YEE<a9Q!2d4c8oZM^!(_1MwZm6Vh!Nu^lMDkbJ?$#NWo1*<hP
z@3M2Y4kZ)ZfBY^&^j^RdIZlh#gm3{RsO8&xSE~lGeRqJabQ1~d<I{Dhr%sG<60V<g
zuF#4LOeKPhW1EMaq6KJJr<5&Diqh1pnU?g=ITMnRF|X5tWm!c+&HKCxrDO+ExjDnP
zCvs1lQO8d1zgr^p-s~(b4T?##h)~GFcVJH;v|dz3;-FL{p$r377|_d8`s~9wFNMq1
zyeb42etdF-&N><)()psa0@F8z%z+?NjZ&edhm&ktQxWHWZ$MUYq<Ejyf}b?d4n=9z
z>~<CJF%AJoQ>}UX<kKV>5k;lusH^6rap1Z4f{zUIt~$DM9jg(UW?gXV6PT$+_321w
z`J6?XVp2eFA*R8>!CX=f>*?XjG@)GQRF};E4C(K@E+^;n>1^Lt;$N-K-6l5e+6=5}
z*w=-YLy?fw5+U2cL68C#Qk&itX4R_V6OC2yXso{&G}4f-{jO-k)8l?9x)DAAq}G<F
z)Qs8M?>87~<i~kMuZCqET@50fH|ykcGR-!>gX_#op|IPe%#7_s4OGnwsdKi1oyB%p
zOpl#D@cJRpsMOpqpE+5@tG(lSg|!ZKJ$Bixqp*&Rmd$n=s^;I-t}MhnbLW~E7$jma
z>5w_30kt7|PT2}7nTF${H>6a|ZT}4M{fSU)qQQr!)Q25@hy@$X2`i~X-HKl^>mtPS
zp++%qCIxHjTx67EL+zg_9zTAp#MgWHh$DjodlIq<Sc+b>>CWRXP?)>o11;v;oQ3I0
z>mm)4Jb}n?ub%5wJ+~qM!AM9$+4j6E&k;dT@~A?R+`-4st$=n27c&!GQ7MZ|X#6VD
zq!LM^cceK)G@x2U^rBdo9()1Fi5VguoP-_jDBVG-cQ&KfhFr$FAjaSGN^~{IyX)w1
zN$KZZc95x@04Lv}*T0;ZdqiJfPcE$oY8nqr-cH_rs+YbTcQRAN;9mhdt{$61{r$v4
z$m~Sj1xr-{VmXpL`}bbiV)46qU1Pk-*AA6NXva?`ouH9dAxH#GuM1q)haDpJ?cS{{
zTP&*cbQ9(*bpMr!fF{KElz!|9MUWu>!d0J(lz!QIbu@+rM}$Tl9jxps9&e3>*AwD|
zkLS^?Hyc8DJ0~G^DC;zW?#O}srQ3UGTD2&Ge%|=Ju$}hoD+GD*M#8N?d@4kDdE_A7
ztd1r7YN&Qz)O1Y%0yMccjgz%DQlH@jV%ID2KzvJeS?XhGb?DVT?dWju^64I(Q$3<q
zUi3m2=r6-9(6Vb1Olw+gperOj()gRS{S1JpRR3D(Pm2D8Jk{e6gW@g}9>P?Y2xB8r
z%TY*C<u)t>1P@lo0AfYW^HPClLZoqD$kT0YT(gL=89sscpL9>;nx>oOUCdECTl%cE
zda1&XG$D%3^jv>15X`4bmFkRw7^IB%P9p2U{#XUAQ%$GRkF?!Bvy2pqkmXO*Td}x_
zK&0)PR_eH#F%7kCJ)6zU;I)y>q1etsKdjUnURGDzTqwJG@zA`?js4?QL}BvH^L3_t
zM6I$lnj5l9t8Spi-pRg5h_a1fF;`zN%Z3Yfki12-Ae)1%XY{y+D4g&^?Kml}@7?1q
zIkuDEU+JQha(=`s0CyhX5aGYai}Mo1+AwfH-Mp@x8*kUZ^*e$=m&2Yy3TuID;??GL
zy`r8rUpmhbm1_X+^%@aC5C={2&-)Ovqjcz5PW_I)Fw?ZrE4#dpj`ftNVGVBWxLCbE
z3N8s%k}UralVOK|bq*7ui1fR?j*qXT={=)9Rm;n#WbVUhYI+eBGSkv|=22&t#W7x@
zR3GE4sjRF|-Z}>1q}|@JW@E5p(r=DY;!DGA@+H5yZ(g%U`~{Hx@u7Am%YMa%+&dka
zF*(JAfxMq6d~Mr*3IdPIPXE!4(XLXWWSHZWZ@ncBp}6&If9dK~_Z$KY2^a%ZI=7h}
zA_!Zlsl2@WT2F4;F_HzG_<@@C;*A;f)7~?s^))qFE1UUXHGMiu=T4d>OuLVV-JY<i
z<;G(LL0Ak7K659MJkl0O!@(a4<LEn8=O5mem&!ZHgx0HC(-Xd!;g)cc$FwK8z+ymx
z-<pH6MW8otp9|*i=3YV(_vG5ppX)GZ@>`^5tb)aG8gBF;d}atzc#=B&d?*xp%>xok
z0}DXNhru-<(G>ATNdrP~Olum5tSU#<Sz4-TIJ{nhrqJlP6I>NrD;8-+DTrO8aGiU1
zUMd8NCxV|4+2+UQQ12kt6NEaf*jl8lIyk_R$sjyGvE%<5A>7>Fw^B=HJ6|nY@P{dB
zK&|pn5hT1=ih4h5gPcbQQ%Q=$_h&3?%2hy|{9!prRe^VbT;L!`Z}IibUtGG?yM4pM
z$M>bpO;3^0Zm{5g0A)@U$nRjqxx)hHKc1?<s!dSo1paFC@kfirkT#8(f>5sIzEz<7
z5*6zYW*esAY^M>A#Rk;_Jkx{L2C)O3H^<?A!3d!Am6|czRA6ztY%C87%bZFvTy=VA
z!YCiJKB(iVaT|e_3zQ*e2u2$6f%(pSv#6Y9u%-*;ix3(Ph?k=hxHv%w$Gyw_SO8N3
z^dQ_YN$LljRJm!A|7`<f)e=g;hx;~LIzM79!*-Ax`5orTxm_mH&$(DwD)w892J@pt
zQdL`fhVV5?WAszZ39+y1(p&H(C{83BuT{V-qH>ZmhDfA04jx<PlnfxGKwCPN2_X4m
zWNnTb(|CR#6=N0jW5HVm@H84~5!KRy+5Qo*H?Q8w?F_<SmQZ6aAF`yu?d>COFRggW
z4doc6g1jF46Z&BdOTu$K51E3nn2&$&o65cYYEcU>tJ}g+e1o_rpc@^4TSBKQrxgf9
zk+v4HlRiRJe;W_d*p{MRLZ@LZBf1azJVce00$NgWM_kZlS#31tdK}XB+(rbfLn$Yv
z-Vy9h@7KgP=ibF0L!kgpAsDIkrhZiE0Vn?M=a`FwE;ij|S{4NJO9K-Ni&_TKGyAPD
z6it(@w)Qv(VJGaMf;$!RT^NLziN%MkKG(%|6~jqQS+u>V+r)abo%+;xCexBTXDkXW
z)C^t7Ap5ez_2H|euE$nPAp`7F=6j*=P{Eo7(0@-Cu7=d~MVqs<&JovNtxMx9cgL50
z*WuUPRg6$MDd6Jk>-)YG46X0FtLb;)FDJOUTSj4rQK0R)btnHi?r$x91qv<({#9@k
z+SS5L!Q&%^^|v;a;f(&(pm8=7zBm*sSRx#6rpz&Kxd;TOth_&6O7TwA-Ha6!Unmdi
zU^MGsb4i{nTbhz==b?;=G?qVo|KKoDaa^DLKF?_jC1v#&6YpPOhROWJtGBj%;C*}I
zc;pB_A74i;3i<kBs6L%+vT8`x5IAvQzf^W<y~E6)cFH0M2BS%Ra`H*TB6teQO*K?>
zd~Tr+h_=C5C+Mp&E<Z?Q5pErp8yeVF+$grW4Yot$c`xy72x=HBip(yoevU+`CYC5R
z@NAha+DuHuri*73h~^EvK)BnyhK<@E3~8aOcO{k(OfD?aaU1w)0;RtiA$S}Zs+h50
z0oG_+@YR$1i@H-m9<+G7E#(zv4<y-6O;5MPNbVD_&`XE_^?5S}SNd%s_HHOnWkKyF
znn-Q;bolLKVq=F9UuPYP&%7kcd~n}wJ$s<>86Z*BRo|WSr4qvL2new}X6mw~D2>oD
zh&rB(@ca+C5xCSe;F{w$qU-r~L1K!^_cIE&M5SwRwtPR-8?D9+i<2+lm{#>Y_ZWt8
z3nw&yC8Bix*_H_4Gcz;kR(3VK*l>eU9~5K2fICyvcs0;gaek!ihmRyUBxPBK#0mZ?
zIp8*!9|<?Y1(PliGq?iR(^Y@yV#n^-a`urFQ-s-B?79T*j1bZ~t8b#_8jw3)^m%(R
zi1g5GI2?*7hMc9V&EoUCd~O~YIeAfe;8WN#bJUhNtC7~$m!mMjJ64*hzPAHaJ_AB(
zZpv`N+j0D@rvO^LelMcUJ8sv$d<`*JQ9|nex`V9=xD%Mn>=LSWI1z@3VA@$|6>hc>
zm`n;G+o(aP%zB_vzr{1G=R)X$JXEglvrW1?A#_#3ht6`I;lP<#$C6W!wT+)_JE%tp
zs9>Xft4q_%^cSgOlZ9+ckj9MY?FSDxp%+gluS*){^dXqW?XZ*??Q1zz(O7lR3(Z#!
zf~$Z<TU1tIFLH-MXTRN^;TahXJhg=Xju1Z^o0>e{e>;Ub?-_#VaG&`A^Us|zF6Hf-
zX^41S5Tl#mYL>?o5?=)Un%H)AFp$*(N=X`92+n-1tFPy{&XEIxaOQ>+>Zf{;-eOVc
zjRj|6#@-<;h+APrJc%l8bJWWHWaW%^#J^z|X>1>}_VxDGM*p1d6Dm3bm`@q92Xr8f
zxHG{__~He5QP{JL=nT<?fPS0a?gw=fb{~?N3C843cVW%}H1f@(W#|IEEH;V<lSKuc
z%_AYb-YF=S+the^h@u#9Wi85P>gb9nhfa$+^h<Pb)zwCb^cKc4(wV$ES>45>`FtM-
z4_r^Y*q*21XCSJE#8nbI|7-fb(&Dj$$r{yD2VAFMC8iPo`ECoxR@K;B+k38Pq1>q3
zz6@LEXQ|*bRWn0P6>v9H0zt?F@i$@55lweZMnFjF6^cEiX;g~dySc0^&Fl7%0KNB2
zIEp~_o}VjQHHL!3&2{4q1u?V4yLGZUqyPr*0J;)M(+(BEi?gv*(Wf0IE=^I+m5?x(
z2<6&DZX{ms8yac^ONQafq?gM&#|MW4I3Yd+18D@Irt=bfKL}+~<r3$5{*jXw@J9us
zBM18TtZ1{QFN<t$sSD%0Ct+7A_Hp0bAhtoV8Yz^)@SPtJ%R=2vDvEQu1X$qi=!E#O
z%pA0K2OlI3xUdY7c?j_U$-a+nCq7^&Vi!a`^8^rIZl-EDF&PH*?|mTb24lTtS{P)x
zG|iIlbX3G^w-TMXS51hHMocTSY<Mze@1p?ip~FN5^NHr|b(FU*68c2wgohel5XQfL
zC3qSQ8|&R<4pD|aMMXOnEo<>WS%uKp`~Lpe9Xb=tJIepD34VS4uUcgX-~QbWfOg^k
zxPunoMm+vw7b7uJc>L!qkN>qVPE;*kd*uwMqB(!qB-KTTbZ}4wFcCe0W7ZXXk?jaQ
zN?2J;Xg#`uRy8xvW7ZgZ#Dk;aU@+*}!%uSIFFh;{K3`o^^W5T0hJScCdr>#LI6s!F
zJ16m$d=a_`N0KZGvmounJ7l64<)OVA<?5_X!~XAqcUc|jj({IhPEL+V9IsORKG&wq
z=RGb9_b1WX%TzUHeF9CQpQt}7DHe+mtv~q9Bo(RwBIxWwCo;@D9|g9GXZnaK9*<Ry
zhi+<>T>i3eK{;mCDV05N<Po2ec*Sx?rx8zC{j9Cbgv6H!&+9DTmxn}usY~`mc;3e6
zwPqA{kM}Lu0%^#;oNk}9u;LG6sm-7#MI<S3lVr>H!=8GN)%7sV-&0EQU)LA@=L`Q+
z{?h+hdfETIYi{{YXu9$HLl$58s5|HsZ4cBK|FTuw$BbW>gZ1gq%IQ_sk$=1Zett*t
z`rPG2KAG(`yeMOBG{=?@n|0Oahjo#EVBo&#<s5;8QX_G3&fe|#$a{U;iTJQHw8S=y
zwjk?fX~g%7t7<YHlcj>Q8(8BP?<Pc$SSy>_$*a#MdrtIL&=ppl|J}%cj_;HxR?+Xr
z|HFU$U%MIqLmTw}u*--yn4~(?fb7dh>uKwHIAqMFU>=TyqiB-j3~op1$+<@H^|H>#
zIb~y>E;Fa(Qnd7VF6xj=F40lBV(Ysz=Q`H+K~bS=n~O7OS()ResbBO>X{Rr}`e3uQ
z)`anNpSZbsChhDmN6(`q*@`TmGLiXGksiO|eGK&xW6x$5eMw~dBP%QGC@9tl2(L=G
z5hnux|Jk~Ji%a~tOOgm!($XF_`~8pb@u`3fPf|t6A*Hq?t8n#bD+Hrr^FiQ|1i%9|
zX$PycAW4?}dSa+qhsEf+B92>UxAg6h9>r_rkDEzM1i1H!zFi*r1?#lTOVL-|CL*s>
zI}*)-3s`y%Bk@pf?m5kR@}ytWfmM;Hrluy8XpRsuPT&9OaV3PUWF~8rO(?f`)r*WD
zUDawvw<@tr2cF(cLhpc&=W?VY{A_10?^46j2HE!eb#LEhXcMw^BFPehXn{HrC=n!4
zB7%R>O_FwY$&t=<l?qZRh$>d^z|WuMhlAT|K79&clqnI%`|fux+4=w%9bNUDTa-tb
zMxBi5<J^kE0kCDg<>_n$ZG0T@!I&6ASQM`q_l2u~2*H>YU2=9B>s%aQ)kgu0u*BiF
zYM09Q7j%zfcmrwi#fnE_l_!@u3M%^eQoUN{II|PYQx%`=`lc+YnN?x&plz<*bI!1J
zZe@4<bh~wEI4)?~c8m{h@cz^_5q*=6B@#<3mc>(a27R`xVc$g;H8Os1BcrYnaNbD&
zXUpB|qx~Oy;KrYw|G#`-{rB4;{++W*Rw7CqygVa|SI@2l-O8$B-m&wX-=PPalpfsM
ze{RQpbL#ArSJbSE847<Tt&y0dq)ih0%inD;HDxaAQ%bkptgQzhC|y{;dwu^-F(%4u
zht5?R`__%Gtb7gRJ{+=W#GF;EHSi-;+vcZTDOb?}o(QL(2Pi0v-0uC8lK$`0zt`LU
zY~xU^ZS|Ml)Z#J>FVB0N7mW#pSU5tKIM>3NoTLS@(B$;i_rp7Xw}C<CKBK*B0_VBh
zff~~ZX&|TqY&;px)Fik|h(gM4>bI|S|7@*qhmF?sz@KmjDlUJYJJ%VjVFkkY`b2vW
zmTSWNj#D$3q0&l049zW6`17_?V#-@@3pp?43olJv6en6LW2Zj}$a;HwyFGn+6*>(W
z%4^lBt<XFT(bt@pulmm$FDtJr?sZ;F`P)~D&hdf)9UUDjIHe?f2v?we3Sj{v9v6<D
zT+@TDPDvlQnL{bt2nNM;hxlwcLhU6Uk5ut#kiP<$2+ey>D!TQ~i#NitHWI`9_bVti
z<)r6Vb>a+^6XFYyg)B$gIgc_k2iTRO{}V-ZA7?826BaljCLurn?4ZRiW~r+<!ed0)
ztXoWUDYT9krDNx^-ggEUl4eTb7!bRBSxs45|G*P!Wo!O0i7Qvq(}NdwQBzaTF47!0
za6s7vu8PP0kLU;D76yDJduSyKse;@-ZSioV-;%hw1jOxFVY6MNu)i}ygv`Kqu&xN6
zfw=Z|<&PgeDC2X(QX?XcpaAQvB^x)5o3x_d`<E$<GHB<%?lk#vUm@D@P`*Bc&S+I1
zsHh@Cutscmyq9(?pN&mOsN@|Prk4J@XOiFVz0<(($VZ{rp{RHx*M&}3-sqITeP)*=
z#jIo!1~hB9wnn`zX}i#G*?C<&uBBAf&N<N(ccHtoBSrQjH8t5eb!!f;``bb|oEGM1
z?m6`>?G8^C6d9`%j@78hIyoeu@I5NBg(D%SMR#Jp>WFYe{V+J=u{iA|jyn&~4WUJx
zQ~~=2xAwb7r|S#U*-_=VM!2cp+0Q)KLn&gf_L!8GQMgr}k7KC!&>G@cr=rClpU<=X
zG7o9deVORw`(Xn$aTt={rjUEQ?CdhXz5gfyji86F34&@0Mr|41l4g?goB*Lg`8bDv
zdVQJ!J++VP(K)QEt0F>qn4O({hf>5@vkUZIVu8tp-KP^ZYn0sF+)g@p&{19fI<*YL
zQ2&od9o%hk`mM=9OjRS~4JHBmQz2#T+;3+-GuV(`dNLoitosR+Cxt{>9=?3JA5=@+
z2mN$_x@-yWy(3uSjtaSYwvBAFXBRg6{%C#6qaLVk{n`4DbT3@EaN~^O#b55bBx34i
zA*{3%X4a(ARL>t55$W}DzKBKFp4q$S{i$YHiO<pD1p&?1v}nH14>b=_{6(R^=^gV|
ze;G{!UdzF&+vxbSzgXb-f`Z?j5{kL<9kgy@Vq)9aUrsJA2ej-q`DU^?$@BJ*bBd!z
z%H6^-!?PsP(2TIKRqs1Ht&|<3wogVlO^%hF*!KF#LgQ6WJEwGWt@q^pynf3D$E=!N
zo9<}+MG=48@QGV9S6W*VR3|kbOKeM3^?x?x%f9SQw%1eD6HrYdx@u4_&MBn*v(HY6
zwM#WjK!_#G1Vkew;2o1VKSBf{h!92b(_1e>`-s@esLrzI&ztTRZpQ42h-g_1eA>34
zuC5-6N=pn}rCH%ge}MJ9&%{fP9u*@h0c1$^BQ+dl3Mi`+<|U$&_07G%{Cm#+bB&|N
z5YL`I-Gt_YV?e^gIREVT<CSLUUS5@daLrxOH~)wSJYxU%DKSF-TaQD3df~mhyC-KJ
zHqP}v$@X#-U;hN6$l~&0+2Q5u?tU&46FcVqthZOpn`|$>4ddt^cv5`OrPAS8On$tu
z!=Ht7b(<6+VEumlZ#`iDZ#D%6m!jy|vuD?^e`7{|@YAxU#@P=)uj!YQYKrZrulMp)
z@?KAVB&VR@_x-`Bp%Y4=2Avec@!NqGw9C?{sYP5O0$#q<*FO6C_WnyZ3Q!W<tF+TT
zW{#VOM+vrRAO7Nsn~I@2;%$fJ8|+?Zh<sUb6*|tzd9A_QJ77j*VQKgH!1u<otjWpA
zKkq}j$jHbDXr^|Uxh%P`?WpVfhC|NRX(Z@gTk?lN$&cT%riW(Az67$Ee`??K{BT0>
z0vZ!f=5=X|o29iGp67nuKRy3o+|cPM(2SIn)GN<-?=DCV$8#KYF<Mx5u0im`4R2oZ
z-Z{QFY{}n$H*|?aG?|>Ne|8i)84Tx4MDJRDd*nnzpZ7JgYOY*EL4N$PFQrO?(8_8|
zuf3_6KQ74aH|?uC@Nq}xR92++{`(xeQj()e^VL(|1n$|Ut0gI%w3g!YiyafKFDm*H
zPFp_T^j>5yTI}4WrfY;ucJFi5i2q8q@86u6Mt=M4?mFQ!d-v@-(HqG>EGhnGWP1Lc
zvlcv?ht3^8cI-tjDK9_r^E1T7b;k((&iT0BZB9;3-8FtFCQ1%JowEIr9X;?Fd4zS7
zx#p%ej#5-Ke|V(p{Y)Ml9DHM*AMu=#k#X$+OI{aUz&D-Efi-*1itO35M`f?)<G#St
zO3o&H++VlN^>z#n>Wi(c25RB*H{*Q9ZPXV39B6n?`gb}fw$A_IPx+GBp;)*?eu=o!
z6Z+X&jyC0HMb)b2k#3W!k!^QuG;eR5kL-Muz5NX(eT1wbmE*oCXZ6eKZcoq7hq<8H
zxN>n(_c;^ybI;>*zlubh(`da|qMa^ZzFaf8O3V+N>C<{yja|VBPJPUW$B4Lf=<E7>
zO-~s~7sYJ3E_S+#$g)1uKeD>Y;^*eBy{>qZr0_hs(Pl^~P`gk@I(Wl2+v}?nVN`n`
z3ExPSO`Y~3rjcTY`TzI0r)&R44c-Q8-`~*_tKg8-c3XHXQ&ATm0@u*v{U?VX`#5v2
zZOqyb)(GNY67IWS&k@F#sd+~|n?He=B2K7jZO?J}SaiQj_@G@YZDo0Jq?W6`84hNv
z?;kd275$Uzn*xUZBBB2g2k%7@Ad)yTh-nDM48l@Olq^M-zHRR;u!!sE{*waU+^Lwk
zcijiO*m*jncM#U4YtX~d*^&y(Dc*>}|109a3Ai|*&g|jU{pXuhDaGHYse+(zqxl93
z(g-^Bul1HX9TgX_8CQS=M0^|JG=jnFHT&O(Xi-qSlc-$VvlEVBqCW_2lF?}78$@5k
zHB|he))1csP45oQ@>zhTtDkH?l63OV5T>WtZ?Tn>#2IgZkAC6dsW6MZ=>x+{#hC<2
zA3lhpkor6%^A9gPcXU|jD;YEr?ppK;+2^2~RlBW?cqsw{%#r$N0g{lCYR1Vt*L#ot
zgTL6C)!sNP{W256R7glj$iXHyQ+*=siVqB#v1O<s1Bks8UKnKT|M_zmy@>%#^Nzyc
zWHLDJP07ihsDcxZT<XSqZ3ELon1Tp7d3pbrFXIKq^Dh!Ed!{>|U!7k7frC%`Fu@Zx
zZ{F;K13+Vlv4UHTDtj6ym>u=g{g+GPyU?Hy9|i0ekr*)rI9Kjh=-j+%+3Pengtk{j
z)Dce@_u(qHo;2;qJi7Z|-kB0aKS9MHtPZo%@o8n4fQVL14b<Pk2@;hAV%nzX9b;Pw
z#~#JG{OQGIrNFBvo@gs;tf6Rk!!jZ;=$k1x17nNE3nd8;Q%dJTAH%A?k_zz_icp><
z=Q5(-gFQ-#sQOxMrnqq;c4IL-gRKv@3&&G4UOL9ko+@L^rkwsJI`Q{=&Mxm>D6X!o
z%P4d=xYKn^^BOhTn!}c2(?Pti*KvAVp#1NbeWqA?5fUZ9>!NRUpe6H1=3xW+zRbd{
z6zOzLWi*Um{;Z~Z3)%~tG{squ9ouxWNZsFMQOVcp&-7D>a5=3b!Ogn+;K3v;WOU5N
zR+HhKnSHYW?*(tsKS+L)8orqr_LIb6e2S?qHEen70(x!xwq@1)`K){C*v&<7g1wm%
z+oz$>zo1cQx%p%nxm8Us@Sh#3T{Cmf2G*+k{h+-H1<qK`YikJl($W9>hA_hIr-i->
z!HrVyaap0eSbP8Zyni-@!l#*gdGLkZ?|=919cvq$t@ryMJzDo~FQ5w-`NrJd-rj$N
zgwC3DN3fM(4Wb-LJRY$jLNqrwznOABz?G=(f@pHTA1>yQfBOoYpC^G-=o1Z2sX?4!
zu;lFW*$OQl$uW|UBqAdt&zS$X@^8QRAVv^HcD@M`adO=4`f%cuOo$iqPG~hDngwzC
z2ZslPh;Vujs-|hbe%b!>{<z~2^>Hxk5)IDhBRJUETcHNypshsMenFC<wOm49e+o_l
zNJb$$u&bOjH-a9zYv@M*F+Fdfp=P{r=`LDgy>So+s`Uy(_9(OZqgg^vPcNtf4$)(A
zO$no;qcn3G*Fw%YnLmnbFib7DBr8PrgM)`%yb&dTt3D52rTi5%i>JbaczAcr@8P=F
z)C}8VA{xYq_U8U@qDYKW4v2#r{Otr`mw>!sk9RVOW8NEy(-UlaPHh!}>A!HMQ8EWM
zRt=m3#GRUy>%^E3r@WnDIBVOqt>F2#r14qqJG<g#W4*qznV}7T81^-GE*4S(!axqX
zLAnudUbFtaY(k$DYo-y^W8zps=vunr*n~7^@4h08;Aqq!?DD8&`qmHl;t&DMCUHhw
zx8ro3+tXtVVKZpJz|nuX<HggTXuQ6s81_=!O?=`0l?_K8IS_~a!ko5|iuNjcbg)l9
zp@2@j{nYipPq?`kgic>Jm_Dvd57Y;0@7E2Nl$CA6Wc{$@Cqyvt{`KKF(#oKxxPUlx
z1Y2o?ao4G>Xd9M?MaNh8*Vnb%=mqmTty*$Sn|lzvZdh$Tccr=J`gtrc;t*TnB-RAe
z-clF>*M0*Cz++Po(x12wq2u{GjALX1n245jsW+;-(Don5Bpo4Ka;d8&#x$ayC9dgs
zT$9Q-{w@31iGx^h9z~7N0NFkV-JrywaKv#Y-@kuvhFhT<hA#NHu0J+*hM@#$$A>tQ
zkyv1cZ8F3O%ekQM-+179h#{KqiJzikObCj^nPhZm&3|VsQU4fcooN!09K}~RFRwQA
zBjvz{aC!tWRSflFB<}zwobkqb*AclA$2O?xEf3cQs)aclCh}CQiQinl@OxJ8rTYX0
zCBUFEh%g>=Q%9#ps267~h&N(v4V<E~u|J4z_z1_TXXw~SEYZ+dOf~p)J+1A8R|R8P
zuh#e^k~{2C*X*%+2mucza6_~J+QTsE7aFS0es^Zx@%K#@Ph226@EvAHy}QO*p$^R8
z;Lt>L$@QBU{hV9mhKrKu${<>?@Jk3d7#*#l*RJ$(ghdOUp;tM9wU5y+FGuJb#37N8
zu>1iWP!)>DK3{+jO?BKhw2*XEB#!=JqNj%RLW*Z0?G}PH{*I03l;`1AWfH%xVWs$a
zfTM8mh<GEMNjR|jk;G+7CBk6o&Ey1GwWX&#xzuo&P_rNd`iF)l!=RCfq7al_EK?wc
zW?0>-rFAEf^$nqu!UaGaX9cG*xQT*-LNtuYM8ik_&&}aDJ{PB$ilcGB5LPur{}=TG
z^04FMAnj-<Tx3$O7V21gTKUnog`NYcjoaz{@Cs+=QsQ)P@kaC!r@$+v?$aD~dHejb
zGcg@L#8ImA%PVi{O#y>w=%R*a)im^QtNj1{R^g*z5=Vz5<$~jd3lCr@VG&nFqxFAd
z@4cg<&bqEaY}?d|wrvJ6Q6>;jBnTqd+M<OLB<I3_5`<E6#)!5GXps~UP;w|xpg^)2
z$r6f^Y$6s(kep^;?0(;8)~s*lTeIem`Qu&dSw1a7QFVX!o_o&T`|JZkix@v!PL6&j
za(otooy8DQl~SvSc;A9^PP;`?OT6p_RMqTfXO05J0#*!cl^6pNPpv;zteDF^j|>Vf
zt*{ks&ebCwgKloQOJ1X~&|lWBBLZE*op<+^FTCIv5|T(vY4HV;*+6$04Ule~*JEre
zvU%~a)$l=K?AiL8CFIb4Xn&7}+N5~*5*!Gk$wMo|V~ROMmZr60iym@aG_r$-4c4Xk
z%u^HCyx1wvIE6^g$*;iYkcEhgjRz{^IeUD0y0*ZEhyi=Rkl#3HN4iSn$<U=y8E_Jc
zAdO#M{MKr?1=(nYB)3Druq})ploIq_SYi#>Xkn!$*flp+5xZJyRf^}7CB%0u{e~o3
zfiZRh0nCW;uszhn`qV0<TtXMlqvik4*Y!{X9b*tD54dnzur*hl8@8-{#*-jOnL~$|
zjJVps#h4o(8&*Y<O8C0yBb!hTQ26=2?SUrKW^*|0P8VXC3d}YIeZ;U??L?PiEo5##
z(^m91BE6=49>&26isGYX(-m7J(Ia@$XM+f8i`f|g*tR=J9~tf<HbPi3TGjJkIbS~h
zOB>_&R9Pj(MevE5GPQQl9*?D%HDe##=<z>s=28NxMbbOMAjT!yImun(X|&l@Uz)~W
zT3%j@cbJr$oBQGnJUfVWy`5cpUDMAD#Q(EH&Q>byB-#23^76*SnhUxmm=sYUBJ6}#
zwHii%<l-i}^^W)DjA7_<EsQL!CX(avtSpd~yL`H`ARQ+?4^8ciC~O(DCmIFIIj6$E
zd%5lmf*m7@Ad&U%{@26h!&8d+-#h0u{}yfu&Eky;l9EFOy!l~fZK+3@?COK|4>t6d
zqq+6>-V8)jVzjJx{*kGJbO1K%J#w)SOAknXtBAcm@fe2+UCcK1XG;5d`?hV0IQ1KR
zW3?NkEo)Dp7e)*HL<ooe2%Xrm0R|~iQ^i+bstp<4FMjn3UokIYY$aCX4t>qUYJ~Lq
zq1m7oW||=3?GVyM)o%W<{a_%l)pj%)HhWOMCJj5p!Wu;ju=Iy^rK{D?pFh{nq-~rE
zw%>KRYq$Gtuhx>F1%Z%v54rF<PI(j<drsNId{LX&F67TlyF!T81=-;TD3v8)42EVn
zjscMy^YBDW2b8XZL82B{N~uL|7qmbfvPXT^-`D&eJ#}uxioiNg+;F%Bv@$lXSP=;m
z<6{7rbKpr31M&%|dlxF6MM<{UmB$&{#ON$rgNTjL)NqcKxhUp|^Hun!{8D}D`WE`X
zy98NkXJ_Y?Rz?oBHi)<(9S_`fA9gAvnBjw1q7_Cz%O)C8DHaE|*7DzXI@H@_z(~hg
z*3Wzf2>XRikzsu7I0T3kYLKA~l{pblZSgu4hw_ebwW0xrs7zur_-=|cM5x!DXvc#K
zqA>MYN=SrIGoWm{PZ7~e{R?_Y<|Toxs1rBX>0cvV%#4~?)s1i8y_>&5Y@NLU$DH4y
zo^D$D&t`#9R^64>_wSFTg`|8Sc5mn<qcVtn78({*aUFY|f?KH)%&{s392=pn_@TFR
zcC8Q2t-@df>MGxJP3h)-aJNt}hb<k^Av~;n3UxB^q#!Q7)GE5?gaMi#cbM(p+QXrI
zLOui;UK+(5v<C5OwzCQ2AlE<^ZM;h5_;=h}7D)ZZQN#V>KJF$@?Bx-`!I0TU`#tWY
zO%JT0Zl^CK4n!}^PJ<#qhH8n{a?_ZL$BrHQfF7Z(kJcZ_gIrvEa0O)Mh-1gGBenJQ
z^=}lKAqLL+<XEj)wW<>qjg=4foS{&G`-`M`6fNu`OI%xRQxnrt{9txB9{41%=k#AD
zS)zV-IW?9kdD}X_8ExjemeXd};KRiqSR}>|1We(MK|or;`yG?#FIgLb8;`7-*Qxir
zm*CPq0TD_u97zzx!aS$Pew%QfO<{wK9Q0V0iIy#yO%5SQ-s8zKpfL;-1whHJdR8J5
zDLXXw%<FLk9hm+79X}fZ<zP7e71o*F&~nrur6hglrWp_6mH*C1AQ3LX#Pt<s(Rdlu
z^VnN#6n(nZZwP0V2(V&@n3yW*7W(q_>)eTUn=B+RNwZDt=3*4{@=zHUq$6zDR^jqO
zXe63xMikDQF5>f!wCO(28CPl*iW%gitrz!^tP~Yk0_~pc4}(>E$!&!bfm7vbG6vvb
zPtI5bl3ZL}+vB@4m1kG&(~s%|En%aJFXy3e<IE?;{%DdJAX}=$MNIm>(KSj|54j!W
zI;60TL$+WB0&<lx!xN|qG5AI>Hf<|qDj7{UWErBHl!Fc<doZ*+#KqNN6I2aWl8L1x
zg~Oi{MhH;NxOS#KFZ28W5;hV0eJh1x2757*%;ZDqX(Rpnom;m)e0h6^_)pD#BXLi{
zHxj26xc4QY`Rxgb#HCVRr_8WS<d+h=K-2@m_@%hywZUH7qxd(+TSc{Cg8c?l=5d@<
zdw6<~)BxF2_LtkjKfsrA(b}^s(*xQjJVuENA9sTfF6IuAX#{;EI_+EI?F+Q_eAVS)
zpBl9sw@&ebjRF^@58B9ZpslpDdy?o4R+<|VV$HC#v3`KNr;EiguEq|23=Ww%&La5>
zK+ANl><GynQNb#4{&woNHlLBU?@iqNeOb<*)566qLzPZrdh0e8SpIora}6`o?Q3sZ
zlqIZ;AM7WSM~siYG<b~I$WSqEwnff+Cvg$;`t|ECR_+1XAvqm!YPC-7*W3N)^s5}>
zR!Z`1Q|;zCKJEih+EAQKvG|GW3XL8s57i3%At03hezlO<@WHG?$FO}d<}|m{e;#?v
z%B}caMzGkU&$wgIqUPPmu7n+S=j?l;7k?>fc{J|BoMFGbI^cP^q3-!0V<<7oc2{RZ
ztIfRWV-SVHq&p+ZM@zviaqC1?qH(2S{X5Cp#yb<bRgOg+@}1wx0(>?qSW^Xtwxaae
z-9sz#PD-jxH`h4w*8_PKA<9pbgf;T!l5*qZV|J@%38Ta-&iU?fJWHwQJYx4nZ1~bq
z*-XJ@Su(n;is*y+>A5G-tl(+)c9qV9=IPEjBpkD(KHw>0P}pU|)3Dq9P(3CS40YFO
z_{xvR;j)jxHae;*_x(BsF+>52@Xz{sX7?&(L*s{xWm3p$I5^oq03H4sW}DMQW*+>&
z2H7DgDY=`jWEv<&+hC_|h2ZnM0n0+Gb2#kQ!g($A`9S&Ci|S+*-Vs>pEE2cff6JCF
zD+SKdxQTs#AV%2eX&!YK&XU_28sK3CU@D0zSn6Sp=|NY+!n+dtOiG5zc4Q>?sl|8X
z{%*83EGPy1|Bi8g*EMUKKRLe3$N}gckz%D4zPty=u{d?6Mdg5kp1m7WPTEW9ufMLF
zrdW1zDvN>icTVw+xF0byL{lg!OUb9jRTAtX`eR}$7*<#WpnU#tHIFVJ)l8g9({1Sx
z#>15PG%GWuEG~nwoJDR7oUTYz|N6)g$iM|nUEMfhDTX?jgEc4CrU@v<12Uu?dmF|5
zLW88>i~b1lG{D+(%aXaqC`>s!gDj4z8?T+8yYyycqv=j<_NhAMIa40gq1~@)JO`w=
zzPk72H23S_oXwJ#d0rNe=$v{G7QX&ZUvqbF#_)`%z)2ffuHgF}GaE!j?GlDF8D<a2
zimv!(?|tbeXJN%3h^no>G{4`?>xAXJ8n&QEd`t2+j8eKbdSbbN02ATz_&5|9fj{__
zpkv_uVs8abJIE_FWfkwQhhDE-w=Nz{gBG~>h}$9jUrtxoqozuOPu36gt=(vyImOfc
z_Q{X;hFgPrM&0Czo9~tVN=n;jZmmTdI@tan=oaV*pP7tBK5<?v{<6r*zNY9E8ifW%
zUY&o0&-mWmXDd2#=(UcW$^G2AjreN(mXIHTY3v@Y6aptwtB6iv3Y)j~&EG3nm%b`$
z)Z-at_hdAXTL1>a8uh<k&fb0ClO*@L-U@J8S6b1;HqYoh_-z-sT_a)f0H&fOwk8K2
zI6{->h^--#Ic9p;#Yyc<6pqcCCXBilW$rn%y?t+Dm*mm_kXJ7#<A5y!%Yxc7%{El3
zl>j=KtiAim+uNJhEiF7K=zQJ!-211TJcxF3|NFiRe_gtC?^*J&He5QNY?`oGxjNXB
zqj_h{EkC0DbYh##QWhGHomJMoH0W5IX?a$K;Edz-USHc|!H<>5Yy5TO$UMcK)vH$r
zX1z+5Cj?OyeTSBvN5V3%Q@<*vj=SYQE#SIzR;X$V3~FfErHM!w;<UhYKPBFZ&+9Q-
z*h*`p=0u2s86bUG4t`of2fjO?q`j7`G0q4B7^gJ18OcD#t9Do=B`j&$@~VHCKS7(W
zc4vMb@-n*oWpHfQVr`=BI2_60vXYkGIHgN@6e_N`yw>pf?<-cU7@hmJ$HBnSPcmGr
z+qmI&xoV{`-N`UU{WgcIb?TnGw~(mzbE98-MkcO>&3(OR7ei(K#pzAbdW%Vs`X|jG
zvHZ^CvnXltd44g5Ig*}$_Pi2&<@{TXxyB{(!nJ-?gS}Gz?pr_2JH$mTl#%`Gi@;Z3
z`X&jF=3OC_?RTM*p2-Zpwq*83=HV$_xq41Y)QenclInhF2SG8T#DFC?y~#WApKp2b
z*U%sRt5>e<K#fLR_YwixN}(4RcQ=|assJAhA$OeD)&aPUG;#qw+(k9De(}?cnTN+=
zb?W0Jj{=&oPIArRWe1{2<7uPq)-aE8bJKI@lo;sAxv%e=3^_fiy=N0jxNTwJ&yg&9
zVqRwC^!WzMV&gyWhA;TuueqpIkoPV+aYyYT#2^QTKb~Pk0o*3$kgQ&5xW$w4BgDv)
zgc0HrjEbJvrU0=^1kA#+=Ks%EBb|xYbI24X^7dd4_`ZEGz`zl#z?D`cAT>K7f@wCl
zhy4H_a>7UT|Dw=d<v(Pc6o9)jjq~&wHE`V~e&t=96e6O!mW%+^z93Ng!bcManSXxW
z?-?gHzMMcW&)%n#0562LJQ-M$MdUrLa0IF9wwe95eO4^<l_^2vOId*AsTUOu2>j0g
z{0~U)cimp(J0^9z?|z!+pB-P14^$?)fc)6y>OjFQhm<4FB#F-D`TbCgYGpqvk$HiU
zk(R?f#0R2?{m+{?I4bV`D;?<s8SzAAKsj{x1Jf+Q3)}mJ4Z4|2|9wF?=Xmv9XKQKR
zQF!wA*<TAhm+?fLMv{k=gW$&4*EWv<$OR<RT;9+z4C}vtaJ$BRg|gJ_+ZH>m$Kt*n
zOaDm}#F`ybR_5K6g6`ttA%es#2t4Y|XZoM3v&<<4P8o0CgoeIwM~856dAWSu$$LBb
zkShJaf+;cZASF>;{0nIF%u)gTYu3c-(A>2c1f3($8T_fA!2H$Z5h_zKI?qb|mtfaf
zc+-pj-ITF=tJ^;XL}C57NNjV6(IqCj{RKP8or9C{wmqV#XUP^j^0Vjx2T2~C!D&<^
zs9iq5OkVf1EV6qNJdl0!Cy4*Ex|=TCIQuL8ZzR5!Fk%=lRG5AY_mwU%j9~m_;rK(6
zRrI6WNOk?^Cl*?6=5;y_H&`NkMApvq?fvIpKBfPjy7S+D5}wEZp^7jaU&)IsFo?rt
z4h_$Y7Al-b`uCH)3c^+aNw~?kP=nhu%b${$i*P|yBPAnBi{HXW#@vXBAm+0D;j|0#
zc$L`d?tisPo01;NFX%(UgE?6lzj?x}Y_Wj6n=UrGA50B5Q@dc}W3vC}TilDwij3<)
zEhaY72xp^RAOOgoaBloRQwL3sXn!Zr7p@wB7e%c$#8xmH`b_v5oJK=eL9JD|H6){g
zc!6+_@%XACwDSq!FQuiW;=ZuwJc+UZ3N^{zoF`Just;X%zBU<O*xW_N>}X?n+vdYw
z9Y9mrphSK^XbE^NQRyeTaq1iSI!s$jZal9l;;H@m-GA{V-q#<{njTH8wn4^K;yaAK
zdcZj93H<g5JY%|{;{AIy@UG1uo~TtwL5SOQ&GV^h<swV1RlbEQ?DD#-X@39lR)Tjg
zIZT{{D4opA<|=qB(}n*btWLe+4p{);Bc1rj_Ov6dTmcheN|phcMdN++J47A4>-VVv
z(a}H$DY>3oTU(3T2chEV01`x6sfn@wk-v2LN_ZBo2n?r|!{qtJ0BHg@+C2LxHeJXC
z|3%QAbLF9WUlVWO6Qc8w*yh43GeWT;CN`F!)~H0#Kk6q6-#I`7SSI*ZOVXPSiGQmC
zn*PKeF6`<>-3ZZ!4p3>P=+?6;H{Jg#)7#K5yI!H<kMBS#^mTvIstecPZuFx}b?Fo&
zu!sMHFd(xM7*W8ug+MndHlUiv5K1NbUj-LGAA;pO;$?QDt#OJDF&kT@WB3?}Bfe7w
zG+rgCRgqd~eQd*tj)t9Z=helc_n_v%-nBz(rWqD#mGvMDGP|J0)4^B2!CeR$3L$@M
zp?nl>jQL^s95(?QJ*M#bjsg%1H$6jxj0-!{rm?L_<?1|mj;f9((O(J+F_{BUfoW|@
z`D8k~Gc(4*c9%t>?BEh~W2#|3jXEOYO2ijj3uG=|a%xX-?lPs3Oyom^E5?udfegV@
zJyFLAUe5t(ScF$ZfeC$AYgk2bF&T2R5;-DxanTNs>tFIt(snI_+nu9{%*TIJfNCp1
z$=Ad8-vfsALQ+y0+E#B03(088aRfbo;95OBvwB8+&rzmzl{R~QB32J@ouSv4As2Rm
zrzdV=CE^kXP9p|aA{k~xY7R0LWZoGdxp)&*FfNZHT5CWGXyCvlA5P#N0{Aw1m!T$t
zz3US~a$#B``A4`kqCgfV4U_<8qRBL)^kGKUMbOp>;KR76r!_!jArm4lGNj@mg;R-u
zuf|B;xAvMdYV2o;)B^U&pfe{8w95A8!fS+-)MVHm@?QV&@DyCG9bn08Adk43p%*gp
zC)E>MP6JrY5DFqQ979N?5H{`W3+vZ&Ak3O=kH%p@moLqF2F=YeuqrV_AFKs_CTnW<
zMBd33Ebj4&99JS8{db!#fTR3<3h9(j(AZB*J1L!nejJusV`PV~Loo_5#-Zp)Y8e@N
zU=EUx%-_ILXlZIvz<j~p1nh`KvH#B2m;@)VCpa*2*vABRLr8)$1Z_F$fW3PQW~OZh
zf2{xsL}u+^^$Bx_!Hmc#c4CIXoz)`h7~(cQ(wEZM*!Y{}BaEjZp8_{TF}?#zR6_bt
zI&sEoLGO#sPC&(z!CV{kOd?=|9sblVT`;EX?Q_z8f+@P!=SCfj?pA~CH6{VtO+Fmb
zsUPsBP-4WWJW3#UL_>^J-?cvo?FO_g62&P55+GT4*NI1|OsIu?wOH!~AC`F1gNwdv
zV!0<b!YP>6f;^pgU=bg^2>0Nr<~Ta;eu6}YBjY7E0(r0K&|dX%7@`Nse+c}G!DIi@
zGFWUZ8^rOrVH1a?AgdtHo??#u1tmunfmvV*%EeKxCGr_fjU!5;TWMfJh_)7({!bi=
zTrXq*;px+-O{PE*9O!>Bml1`+*%IXxctKF5P*11>+lK$qE@EkS#R?h-N#eW)1P+BG
z>;v*vu2>=XdiTnW8&j~2$U8t=00&ZD!&6KUNL5H@YCwjp^V$sE2QdRCBqv2VOfIW*
zeCy}aMsy{eY7gNvwa<1pkV1-xQOLyuKIp`WyVlvA+kT>Dzz+iT3b5Q&WQZ$~Yml*{
z7IGZ>-S#rc%E1zgmQeC02THV1;Sxd;yG;wU67H{)r@YVQODCDQyx<2w{r>%XB~RpI
zH9+I=nxYr84k5oH6S4kDmOe@N1qNcq9OCbzdKrvA-OApDbOy%y1TKS@-8~8sHR<O%
zJtK|XB(oqN6YR8hY`uz>O*ON)txTi`z7s)|sc}w$HhS_CS!Hku2fIgfEV!WO8MUJ}
z4WKY#xcABd%IH-RNdlN9N+EbJO0PI=Wyw?L3eE{EPQy4=$&RmEZIwJ>&2G9OrEDT1
z{pJRj_x>iCe;N6b)^74RfarDrw)*YvHe(o(0fiLq<|K?n>Fo-CvU$svLu9##FRrZT
zil1zJ|9^2ru@2ZdqEuG4Tn_L87nt4!02fDccK|ILd~!}tDdxC0$wWDP0<I>_9GMw5
zMHQx<NI<(zOytHP-WLvC@SI{Ix~L=}@~nS9K0K}M-1%rvrK@e&r`jJ?iX>LY-uCg)
zMuekKAq_gi;wFghosi_}J`e%!h))=qIXF02B4><PWe#p9j_t5&&)4VjaJw3RE9UVS
z9poKkx&x?FLbhwwr)c$2)Ap5GU;O^%t(Hp6dH?~?Md5KsU99_=L0w*_WZhxR$$flw
zA~ZBqKXW;@C^|?;vkc*sLBZI88G=!PJs*q;pi4Mgd^r>M<^P34QZY7n2f9m$L~P9?
zCR4bN(Ype>H;a*ze_RYW@lx+$aq43nbDdE`kUQYuH!z$n%epy9XHI2c$3^(+NEBy~
z%?n_InUQ#FT_GC=`XoRjDMGft{kf2K-uAN7E-xlfCN_6(`&kGji2N6Oq|)Pmfu=XA
zp#kMrHPS>3291KN3CcViFl}~oe(KYw_z!};5^fl34`J|^@J*-%d_VMNh3bw22gs0_
z#WkC!*7s{2E!yz`OKOJRNOp6tCOBlYyeu3yq`p|QW{nPam>UVg?grapP<}^QY3DkM
ztq&LQ2=RrTH+=xa1IUZ`DlzpW7uDb!GRtSz`=IX5hsPy^g%eeJ)+66ne;Y*SXm|2!
z2jrj4x6=jiu->i#CsVV|0|#3a{CShdL=ORN2)hi@;phfu%F}Xe%w1G?R@$?;P$%4{
zkp2R8^R@@K+ZJJt<!>i$UV>9GJKk3fEs)Qi>RUB0c&y3!8VstKj3lip>fBDEK4KX6
zS>c96yZwpHe&;s-V>56n8jqe4g^ZdL{|HHg3d62wYfud<N*r|6YF*KXs+zLv`W?Dz
zsOtS=N7B;Lh7j#*pBErOImQ4&JlB_ugkwZuoy~Eo*%q<iytKegRbp3J8Xo<-vpRM`
z-sChmko%OO&g!F(Dqkr)uBcr*^vBpw;(2yO7e;5V*C}WrKC;9RIG9XVv**Sjw<p?X
zuv5IHWde5}_VEh;{!?Rn`ROb##OCkOf5_;u{G;ExKAq}0UL8(M1aVzFFFn=>8Xdi*
zT0i4cX2BE_S&ino3D{=qF~~eMM2KUuG8;RQUI6w^`7QR56O@-w3W}2kt1I&E^5IAw
zX1#b7ZaP;LefS~fId&(?Px`t+mW`>2#4`?;jjIHr#k=A`z1xBG!ybvD;=?con(%P!
zZ#bBMvxtTb7xo?V)fqAgxas0+-YXfP_lT^}3=?M<QNZdD#?SsbMBI8~&7}!%)@8E`
z!*@eo@V@S{^=LN1o{RGV=1!^-z`)E)2UrJ^iP<SZ9k9||C>!omi1jDQ%A))}U&5s8
z4<43-&2c^QUcb!wsrgwb3>!Hl(9m_@vLrkwr4!zFxGev-IVGEh7Ka9_*#wQ=LVP#D
zJRMO~B&riwXjWsA$Ex%e_;Zj!7@81=&UIJBzoPcS#B>eh()Qr^gX)N<4B<L}G-5W?
zLV$KqM4&Pt7YE7*ldO~8#3_noh~Sy<qV~9Xmvx6DF9(r9?7qb{R6{NPpGYK+qNy-=
zux$ond-FB^j0aDwJ$1F_aZ5tYu<qy-ff!{gmRn(b=duK3ww8ImESY3nN3-P*Q0k7B
znQ6y|V-A4l9%Cb8dh+2bFSO%aivHCC3~RES={2Ss%g&7}*DCsMF#0UF$Nr=^<!2Qg
zAr9h{sK+93s|tyUrD#hZg(&4Za@z!y3gWhH+R>gf)0o`uOGLdeLee3%DEz~Aph*gp
z8{tL)7pWsPz1I8#m*h?aELc$j0LvrF**GxgWZt%QPLGs`e)<lx0;GIZVD@7Jgmo-%
zZvs3}Lw?CdV`P(EwQ@EY*JUSLasf?zkBMHx*K;zG3{b>si(RbFBvmbvD>jDB=$+$#
zy<6gZ`T8cvBFV)*+l$$lrGW!Hd-*{3(TNM2w=|ls6erdmEQJ|VheWkR#K+K!kr7s1
zFfz*;f{8@{rV`^Ia8anHpla9#y%WSvkAk9Vr?jIp3ZI<yHv_G;YTY`$uO4OExbSwc
ze>``Q3lrB+_HW#mOz!t%q;$T$N|=ljvyr~Im!#iIJe5896F%9=9%dMZ7@lK7*h~1N
zD*G)Pat!Kcln-cWDonn%zBhAwz)?)X*hBkWVV}O*$%Xb@k(TEZyE^O9OVG9&fbcHc
zb%*lCMU9sGwpc2+Z2lH9$XMAB*R|^Krp=rGTv}MvSA)B8*Z$b7)D1e<rK=hFhoj>v
zcRQb6;O{Co{-(s{d8V$~$&QtUhDonRD_b}C{v@MTYp#_2Uy@O(V{=nJw6o*9`}8y`
zXP!B>pR!?_=D#RlvkkHrQSNP8`}@K>NyRY{C)M;c-|dL_^88ZXzI|PWdE!E;cNa%q
zeKJ>8+*r&fZsA{_U-7I7S|=8A?5x)ExyyflaO-4kH#IgVkvn~#8WJsQpkv>vDIeZm
zG^m--6*`#jo}lt*d^p83_ENd)_s?~%Tvm$Oq~l0qU{*<>#N#LLWb8-WZ5sz^AN;L+
zA??^#s+;R{X?%P<SiP{|z;`oI_wL6-3eOHY^azA6US?gsCNCgzhOuf5jm#?0=vpg`
zB5D0nd2Qp4gu09-hX#A&8}7F1Ol_S~o%)%Z=?c!qX(e@=uI=}bHxGY+jGSZYPUbhN
z?E8Fu^3wu^_tfo=(kn}#)@ya<<TM9t1m5&|jn!$pVT^8<8+b4H5Wgm)?p(;ZplS(_
z1J>o3t<s2~#4jluI&K-jIoou!UnN9JWbWL#dhoV_04ePA#C}=XR5ap7YYLe{P}JGi
zx6z~f-r=QGM@PrJ<0P@jP{U5Gz+6%r=$6`<bazXo=&Jc*225>RT&}#nCf8jENtcS>
zxcc<j9dFe}E{_2CA+yeGQKD_v+w*KJGk=Kr`J%Mmr3g0+GP8wuJ25;YzRe^n-b{k9
z+L~4y8Dg8=Jk{&iu2V3swG>K9USs0BRg8%&HZX=?b*@J0?Nhh0fkp@$$0~h2(oYuH
zUAB*(IGLax|7}%@(-DsWzwmE(`$d2V!jM>cvesC|YZm8E^oE2_b)R=eT^|N2Ymb<F
z=W*#f)W7ioFW2^iTRec9wCtw*kH@^mG5XB5xf@3h4g<Fhb^7u*Z<3G5NgW-X1h$3o
z%s59nXQlqJrn$`^%3Pc*yga8ko&sUEsev|Gp+q4^WdNRUxlx0UbUAxxP{|mou5kGD
zxnB#~8K5-QD&|QhTdd1lyz)?!uO{TfWBomFBd6z8cz#|?+vhfc`R8$tvq1HQ`5WNC
zshP+=L@T{rTP2iIlnrLT(Wa!o$KJcy$h=kSq~AA0CFaj>=MhQlokKr*w6MSD#^N=}
zBV)+tHsm+e)#>&91hn<F@wOv<WGzOA!A-N8+i7q)mkgQ}Tbnd>ZRq#-G<W0L{3#&9
z3I*fr6h*gQNJkn%ZHjlko|(xhn8<PYDeL}_if<-#f%8}X7EJ8Y6q3Ohwm~1qT)~;?
zzL_wDvv$XV2_p|=9c`#W%jYaufA7kbE9k2=9?8yalT3;K_bppa>HOJnELwdhQA*D4
z^p2wnN(@~8f_pI)`qINlUwK(_3Y4PN^9YO=;S;z_%jWIZWzuf@o0^(lw=545F{thD
zQ4UYF+-7f&ukxtT?Uy<Ety*(D2NRiWxXjEpC<Na_452sZjA&^_IQjMVH78#g;TiqX
zk+P(9TtU9MTfD0`z|ZkQ+2zcy&g&XKcc0UFcB<GwI_H<mhb)f02uWI7G?Ac_Cxin2
zD5#ZCBqwbcxN?GV0or+I)J)+xveFiVc<=|~_jW$0>K5WLi}0G4n^<p=$V|m&Foiik
z-<>jih!?9XXvM!=Soe-Hn{2+*X6Y+?c`;sIITw_AN>-Mk-jp(L*@prAvr)zcJ>uxT
zWJ%Jf8m1a`>0Ve(4y74eK`!{E=cHO%$;VASv}}oJtL@S`OD?}M*L^{bCL|>7d&9?0
zpj>3to)LD3u(*tjz@Zei%a3HGXYy;#GEYx8^D$zEhlX0wr(cGKhK%NRSer`FCcmul
zqtKm83~V|c-;{bn!LQ`G99Vs?$ZC2#WyWP+BYD9`usoBrvSLYNEsyfH<hKSI@SU91
z-5)%j;Q9h*bfgU$yyJ}Zm)<NN^PK6MX}u-rb1cg+d2Et60*q$-^qeqx%|7rc52k=#
zbQ(k{f<BE#=84P<zWgZ|BxW@K>=Q^&!sds*y87pF8Fh%)Oc<Ng5=$6H13c#^=y5qv
z3&984j*a<EY&Pp;i6|{UxBMsHlAes8M_>Qie4}{H>D0%|V=Oul?DF$UM00BX^T$oa
zT<iLKcpuuFVlOX1U7z^xR>kS+!%PAkQKWE&eS<S2Gt(`vGiR_M+5h<_w})Oll%12~
zN7*>te=`k6x~upT_8fT)5ZD&bHHErOCG-JKVZwj@OkQ5z7>->yh0LV^jppk%lG9T5
z;>C-8TfoQ<m$`QwPE;=HM=bG-6#Ge@Jl&e;`XYovcc~8XiZyn^fZ>6#k=*mF%Z|t)
zvpSyK@tT<_qkHUy!Q=%&rJs@f@ZrNid)#f{sGB_W5#uEo<>lq<X?uHnQ<SV_`&-7!
z8=by-$7?4_a>y?Fc<N?r#I>cxA3l88#*q%@dsk&io2a*QaA;FSMG;pESHX1hH=Khc
z4b!1C8P0re^}Wl|)aH@=5mRKL<f4-NVyhze{mmpkUq#DgS&Kvh*?K06hwy0>pbRSq
z9{RlY%(ZLR)~#Ku+e7p81OlNjvzH7Z^+88bZm)gH@o05D%R2RV{}i`Y;W129e*{w1
z!;j0a%zMV%)GCsd+EP~8X2_qU`udk<N*%`h4d(T^ivicJfGI^F2>bRd!18+`a@vLc
z4M^J_uw4E7KghloQHxeDGLL-}2sP2(1p;;-ZdFW_JLdaYu!8Zw$B!TH!dR%5@!CuV
zW#;?Fnfn-}6xC(}MV6C8y?N|p#mtz(QOVnm5|TU=-i1!IA5YehlU__T)owJ%mmL5c
zoWQ+%bp55jj7MLsA$FHT%`nyDImq~SRAKyNm`hiDC_F=PK?usz*>_$ADMjB!-w2ua
zC_h%Dx^0$b2rdawiYDI%Lv|HlT`?!w+3}Kh1468`cd{)oX!H3Q4K9xbcEtpWw06Mo
z<$}I)>U~-S#kp_~G{=6bP2;6PtEvIAX&4k=Bn`I&?R4bZH%@=vC}qw+6!#g$pq2dS
z%VlH^)H-Qv!(p(tp+JjCwqPM&fNOSv!swrf;vCZkt4w7&oo<ZJ+ln(-K}2r05AU~q
zYWiSLBypYH-KD5d0w@o~O^YoCm(KLxR9NrP`{KpH*?WOLGfYoIRE*Bdl+Ni+J+30t
z>feY=pF8Q?gZD~)8bcH@oVL+z^!3Ja(VT8Zb8~Yp?xk{7T=T5Jx(D?pwru0RRp`Q#
zTqf6lkg>|oCxx4N79W>qXgF43Y9|r^PvfBk9k_AFo@%H=!fuOr)`kn96u%+_s*B`P
z4f+}^{jx&&;b(>jK8Z~VNTy*jDNHgbG9!FF25h|c)e;I=j|(pgSGA5o8!)U2WEbHi
zjUaPn(#R_fJ27RPq#cYBMQQPx+95hl?8QayKO#4laq@>*>{^-g<)LnHz9`2M_mGj#
zGVockm_DIh9_dP=wR@jyi$%k81W{<wGru9HD?_!BrR~YD&VM1fOaAHzIsg!_E`EOH
zlCl9G(d3cGa9a3QDwL-AMcn78U>KAX7j~j{$e~lpBnUCSwZqhP8{JaFVzi!<AGlcb
z`6j5G=^o$j(9S~QxsH#o7)xvewQX!cfdU|vv$)vga!bkKZUo*^hsQC9q4QDrSA>pE
zF1G}e_wM<6{D|b2Q=^}$9byFKQrH&u`!0l`Q=vcfHTEIh={3I>CkMWqtz@fAPqr(Z
zH!(4J9t**S6ylr=xYt22{LHir1c^LnI2;GT?pGYY0M^xd`4dfj*zdq=;p*u*n#Hd{
zKK+J%d~2UTzSUYnc<!zxtv!??yv5AQ5^`Y?C8zvEUB$K{{m26xyBBj7P^j>H_VI46
zjj4SK$M#Sh)jCvzHUP`N;drPbzeP%s0ZDc!PTv@9hU;kxqBslcK(C-2ER!FlW%QkN
zD#R#Jk&%MPP>hU>Nbnp$3MYe1zA=JN+SEw+aF_kOw%A7w`YN!$m+Nz`IPU5?aZ#0=
zumLD1_fg66rle(%r#=RRHw>AnJYEgCiwqF@*`$eD%V(eanDw$Pp*N)-4W&zIo!<eT
zkwJuAd4%G-yd3|%mkLNCCut-Lt2NN?mWX^A%jt}Z;t`@a(SFI`=HO&a;$sG$wVTuT
zuJ$5e;PYl?JHkibY*);^H5Jk_*+wbCI5P#emf|~6Q*F`(b>H;)pC$7SRR!fsP%X-%
za}v_ZWfR+`63fk(Fr#{H`=>iqJ&Q@+7K&LF1maG^yZA;9JbATlEV4PBHnL56L|ELx
z&MqnQW~-G|{DC3oOZIklQIVOB%!!GH295adlUsy?O4jK_a-KcyqW{*=&`{kFCF}Lh
zyJR5dLe?`ES69EVw!Q|%@;MpCgY{Jw^m=?KyIPl&UCfE2hSjXh%-B5blz{SQVlgl4
z>+3Bx%*~kyl6)Nej@#Ku)yc}OcW*5=@k=mI>h0|fp2%2rv;-HER8N{4dyt)+ob1nW
za`z4>FBfSaP2bAilm1RFlzAF)IOJ`9G%B*YmWSKl7}<K%ojuZ#-6i2K_)x-Jo$(Fy
z%aEexzHB~ipRfZsu3lo>GGhYPm>M`gilWGTf3srn<uZ@mGhaO?eGMVgl>y{Q?o3lK
zRQywVh86bAPPDGP-x_4dAj#KkEigSj&2|BdH!K@OkapVObb#P(Al<SF<0iHmBlH3U
z!xH@k(P$Y|0QWRKU!)*Q)!0Zhh~s)y?!(nNbXQl`?Ck8?>;iSsOnq(tjEs!nJZq}`
z5(m5Vvo9Lz>K>~5dBh}!eUca)VkZ>F+IWYX3lG=V)&~0M7k(KYPS;<lD-=+r7s>JQ
z@!6(X?Sy@8IWL#3Wcy2&BDbR>&UyWXw~GgT?4~7FYfm|6AUunFGHQ8oYl}_tgI)BO
zBbMR=-~T?{#pNDPJ=MMxDTCuc%XEY1@zgKB7{Kz}i3IXVZo#xAltrDB4FyvTvI?=<
z)@J~QhZtg0_9H6E6y1JdYuX{h&=Omlf#BH&{Ivw(?qMIo;F#~ss4qp>W6s2VUpERl
zTN$WOc@wh2xcY2(K>1a;we96^)DRJL?`3@%n@?_C10x!Z29>7c54O}t3tE~V08-OV
z+X|+=r}@}Gdj021CMKII*d6w}(lay9zq-DN%D{s-`DoMK;#W6@!V66I?xr{Ao^`fW
z3_bB+_o>n2y}8bV!NVm<m#$qC$)w}?1Yb#-3hU|Wqh~G4!jJAsxa8KQn<2rJQcPBl
zuaR3V-ShmT2}qyg?R<hpfy-F+DQY^p>1HRxgqc&(mhQBg+h&L_%KKw=?I~X{M8xZw
z&$HUwf>HAqEC|V<9gnW+H+%E)<x95c9}<D9Sse?TQN*=nb!8VcUC8OlIHSoM$!=<T
zl%Jm;9C@0P-eqzZ1t%)h0}4nGQW3A(k!qJL^BjF`Z)|4SD)r8HV?oi7^#xwxqfd;{
z+3d_UXvsd=fXT{A&>U15x_y895aaSlc1g<Cu~%#I@6BFkxFE&tyK45(bQp4=oX1Mf
z%lqL>k%|o2a0z6K8lpiOLIL8tcYk1b3j7kOHPV;Q+Ll0cFKdOxaJkq5>1so$Ec;gE
zC+#u@qR$kJr!zazIAA2V{lFMzS<8K)Z3QE;m&(9}a#2%~euDSrdYfa6Z|IZy*m2o0
z8ozNp&`cSSjI(D94Dm@+=gV4c!zT<eFqjdO#Kqt`D#H+}G|AW)vs$r_Cbl|A|F?=c
zQ}c94)O`BVcsMnvmE888)9s$;P>(c6*^^>q_GJO~%A&@6j}ZmE!4<B+D*Pxn1sp!c
z1m;vqCgpb2V{SpPs(Y749g>-&c}!puY^wI%CssAt+S6~lpj02kr=c@jNi}%(TfF3S
zXZW;v4a@tiJ3@I9ds>}1>V15b_aj<NnbGJuGZm8SLsD4K^Hc_TQi3WYPi^?U7djnH
zKx5#d*=KO}ty!yZO0EqnJ_*Ru0CdQ0i)o{W@SJ4aX2^YRNbn!DJc^Ifs*f+_<(*Bl
z$t6mWX?t)+DlS7=k5hcI93RTja#~KOHxp3iSCTRxkSpjXS<l|`eS);{svz>M&+?H&
zNhMs)%*=Fr%Pu+kVCL+_ix)?U$nS;jzAv`~85E>wJ#n>zsX=+W$Rh$M8cq(WWVmga
zB!@yZ{(f8Mu7v@=!E5x3g^|<%6Dz3A!x@>TsJvC;HI;zBKmn2p3Z)Hd0z)hLALPBw
zLRhHDWdsBSkoN*90a0fJ<hQgNv0&_Dp?t=l_EyE&+Q!Fv)551N$nM`?-P|08OJNdu
z<O#;V2{rhjpleHI&769hAW~_)Lz_H3-AbD_O@|FJGezoSsJGB3fwgPbPV1nJS5;P4
zR)6?5hkU%Y^N7-QC{k^aMVv<$Rir+rczOE9vG+%-T3QO~&wzR^MMdCuc&W@;zqWA!
zWnNs{XnzSJ*-I<#cBiHLK3(=NX(g#T!4>4c|E>Csz*UyUgTbGN$Pvo|0x{4sGvQf5
zE@hlpFvH)_VN*`_7H}Y5T9mE3l&KL(%g9lb&j0TH5VCBc0Hyi!=X;4AG7<`~L9a?1
z4IgS2r(-fjFf*>mwRtdX64!T8%XCjm?bkxR>T!!}WqOH5CZvCV6HcJ<ESiF~DkZpK
z?N?ano0F42l-wSTgMMps%gj{4j5Kv1tHRyd&m!q4FG`E^M9&lo#U$5=WJuFpDbqrp
zLpq+UllIMk$<e)3f-_|Z-a$|v*?8D8kN#_8z$SGEzuV7ChRU;FHj|iiq}YxPvFC>f
z|MYzkIS;^_+^7VR^t$^hNjp&nd_2km|Ic^A=15$d#R1G@{y_i<vNTDwOcUdM2x=&t
zx6{Uob*gH&8P5qWTuyY<W>kVq?M0k&>o~kIf$NgUwvg|?vg|B4iZT@Gx*Yqt7k2&g
z+v5#I+hNJ>-o!Bw3K%G%O{ey9=Y3qM_>(VN>Hiajh=}NtI`SH2U`B1!7eJ(3x7<L_
z@mS9U9V&hy5041bdQP8C{y@OV1Nn@9fr|%ENMX$r5uqq~bp!_>S%+9Bquh!*IWM>2
zLYi`3*X-X-1ld+giMyT2pt?)5zrTV5u-=cmzw&OG`*G#0?VXuc)7PquiYsNwzg(XG
z2YG7;@8Dc?_VidetmC;mXO^i-kHBqzE{NyF+KcJ4YSSG%ell1G|NKW__?yyCA2T&I
z(bW0;37*cWZhD8MPl^QX)#TH^lvALfm;3y2gK$8-dXoj$%X%)4$?@H~0>ximzVxz=
z)D((N&!xW|p1&aNVno5?hT{w?Sy>bh+B}ylfA4=aU#Q91R%vg3<p(QGzfxN3jQ57q
zv?hm%Z?<csorHOKnDpAo_JM~j&D8`;>(a@Uie}te!y|P*#%y*G{%_vw>=N)?zB>EC
zd3gT&nf#hN`=j$9q$dCIKQF<<^Z#NkG+omc#{pDeK)SpehgXL<+MMle%rd9bD<E<T
z6ZF})h17qDvLQy>$Vwk<N<Z;pqGD#UA`5gYCwm4MdI>JVAfO)<8l;A4D21gT%aZTC
zJZ|~$vLgf!&d{xguPGRP`%n&z>aw!x@tOlr6MTDeN3<B4Zhvz15FkZeC?MEq*7@K?
z9IJGFZl4P$hd>h~aYo^P0=EXTT!NdpAw^a-Ffbq(=p;rVTyTgdzmdnjQhZKdwjF>g
z<cCU(U3#fe{|KvV3Rf@hU%F(;65qxq;6NcieG3n|r{njq0H({K>dL}6BMrPa1W*~w
zf9D!m8%4Sa2NbW~f3q*J#*t}k@N5P*bxl{|JXht~O8VZekH2I#?TA*7-#Wop6xeK;
zI85W(Hzwq5V>UGeOWiaMaSm-<KTiL(Fjgd1hiAvtz{O4*Jtx1DsuN%u3T-7ucY3u7
zl2=<BG#p!hkoA%6id(XDX{}o~sq}H><&?Ls$;gZyu6oO^uJ*eGbftFccy>-&?xG<H
zb)ZNY36<P|=H~SJUpHD=Sv^#X<h*olID2YEmw7sXTdC;g?`5KbsJgAHGxFR#WDbis
zT<$_?<m%12<Vn*Ja#!9FcLjBWcz&&GMoq|-BjoSJtu`5nmE78R2^3Ndpo*%sL{l7S
zwCK0ZNi(J)RvGbG^b*S-Ex(~WvmCC!D~taRN$m-1pKkQ;ky6Jq>iMb>U9gBP(TpDs
z%8)!%;WJ&^ZI7QUa#+Ec3NsoLSivK;U1UxFHetoOWDq}L#gLe!5ylCU398ndkZ9m*
zW8>{1Mn{_LH_r6>JJz%6OnKB^OZrZWE-Q7-s57l$-^px{uXb#T#6R#{xUVnz2|L5c
z7UI_Jddq)6A1K{2J)F50YJ*9j4d^)-R7i2W{vMZ2n)b2WDs2NR$uAwv0SWA`m{kSq
z`1$w}>Kuiq=jZ4%t-t5_{1_L@M&j*X+nuRiG!Q=JYWtf-#DFj@q-*JZru|Hyotwp5
zV}Wq}iBV1Cuaf&eJ`r>xTV*gzpmWr&Wv^;mj6%8jp(DH!nq^$e$<vkJ<42LxbNF87
z<il)Bvg*6JmX(#k8`BFsJ04(P=xB)srNJe)-7kFdtUQ#y?J%AwMlZr30hqXky#T$3
zZ}}3|8jV-9_5mvqCmRlj6J#nmE;=+4%RU#+w|4FO0sTBtqk5Y>WPogs17i9$3>_20
zrzU@jKYcfmrfyzj4DXuInva=Z^`EwoS|}pjA;oBFN@Qd+r=^89I9l`Uf}Va)pN68W
zJbK2TlSc?Fs47d*?5SJaQ2BPos)>sp4fTEH+Dm=`!=gQC-`H~1v$+{RoW{WmlF~at
zQ^=s^yE$~9C?N05pC7ELd}j82b8Hn@&prOt0>spm#%J)DP?*C93Sw}qq;o&>QW?lL
zV*m5VZez*_!QmVkbE?(yIdqo3Kv<9?6lQcAN%B>mp~^qz^r0xTL7v!3vS$n1VBRH5
zz5(v9h?O6TmmBYh?Ck9=Uw(9b<(pZ&o2M&wYqA2)xedH{+Mp^~|D7NvWB|`z%)Z-`
zG)sX*T+-k2=@F6>q+axIKKpy$qpErY)O;5-uq7yA(trdKU4{(iJRt@Bqi0smPBFg^
zoI4D_ayueiDRPdF|0wt0{dK(b=TMTTTmR=iQ&an&yZyhDvi}d(qNhwW!VJ)5aqGZ%
zn19zt|Gnq%w|a{oMj`>hYRYH4pZhk{XFQk+w#jOBQBFNwQ0pQf{Wwt3($eyHykbi9
zYPX6E7K@EPPp1eXtUcpUBwej6Ez4SzgGyTcIUUT#;2irmBNv408O>>eJsfSf3ZHbE
z!H_*LsOpS&mKkyqHBlCPmd9n~=X}urHJ3j=CuhHb6^kt!p7zwR{L@<YUTvrwgD$Pu
zo@_tENKW2GKXkymrn2%r)8a>VZtV8s!D_04EEdc3khk%IaDng}%5kxk+fF>Vr`|Wp
z?n}}fFtjZ;j{}<;8(GU8&9d>*@8%)HD$_X~EKl?ELM6d!YIE%!9BSp{d9_`|Kb)r5
zqq6#2(nUZ);=^?dK00dYPJKbmj>PnjAwvZy&+^;yt=_5;7T{dUqeqXF<6@p6)3F?u
z?R|KO`~^YKO7a7T{4Au`mJ4#Hrj!$6o)L67c)~&Jun3>^Ts1ffd!rS30J%o*1A3hL
zx=4$6DnOma*X+{ePCs5Pm&K2`e3dUxJBX#L?!Rh#oTRJK&&Z0tdcT*FD#Zr<Q^6Ey
z0IBis@_XVmt1Q00Ly@l@Uul_Dpuk+c2J!5y9@BVYTtAs}-$#`@u|zZhFi?!G_kEv|
zoBD&J>436#nbG!ty72Y`f$$}1g>&aJNABDPA{CrBJj62Y(2Lj1i2GWNU|##1(;C(%
z%Y9=hUo{%C3$|cjn#UvGxd-<ybds(DrRSnr+>pQ=S<nLLJ-((RM?#{;=F~}+J~PYr
zxX9YO-Zhr<7Z})F?FDmxw#-8~Ah6pW;6RVDU%F1B$cSvRrVxHT(`8rkSQt|imon}{
ziG3e~BlQ=|pRcYj_({O5^0H&p$OZewF4$}j4ydODte!m573k!qzxR{XTbepWc=%M}
z@ce_8mTwJbrN$<A;8IC~{r}|o|F81=|0-qwr)>J~60$zT=wKd37Am0QM46C6r6JN{
zuHDa$`T#H^ITx^}GEp+0h$q5YU+B{#z@nJoeRl~jFK-K6cxKr^>BftPiEacHhvc(E
z<a;lVn?Kyi2l=!=+UED-2th5;%m8#J4l3OUz2#rJ0bbzckJ^Ctm&iFW`$O604=<05
zb5m47IST{T2*sp8WG%qSikI&1z9;7Pc`*?ULBxJPHq0fVE_ycEs5x@{*IaOGL<qz9
z7Uid+&;1@27M43bl%mQY60bA*vz@dDBh&wSu^$8JcG2?XsHxQ|``K>gr)~-aQnHY7
z781u<ym3W~zb}sfpH*gH%H2*35p1({K=DN>B3hesKaC<K)Je&B6TxTO*zsEiB|z{P
zl&PsHXnh3dzogngZh%y-#;x0m?rK1AF#FoHBtw;+=sSstiNZt~Qae?$fB)VO*IoGH
z^YRWfAv$;TmJe*JsXm7CrIT4{8J#JONUj=591>BzB(~_qpS?sPKY%5F%kGB9W38G7
z-8=;KzQl4ds=aSPTY=0Rtc4xBgQee7{^7~Cl{E+PYIWI)DF?1G9Vo`9&==aN|FtnH
zMf@Y~s6<43gnmoQzb`FF#4;z>S;8WB1y~~Bh{1Udj*ikuV}*iBBwc%Y=x@_v&l1ei
zAU=Kk(bQDg&X|{^?&&q)`Pj(9y6%3u<#cyf7vFc8#QE8H;M^rn=+<sqvb1(u-5#J<
zY+9Oa(@=N5WBt3Kq(PY@)mg9ogWZ=Y*Gbm(MLZLWyHZbk>e}Nj=X`SsOE)EYQ3Jc1
zl{zG~?!q%;zo;}<LnX`M{Sy8@tGiieLjE>Sc}Aabbx>uUar54KJ2B7IrWi}OK2t;J
z@C4B!?(}WQYV%;)DVLkjEr;|iS~A+cn}2y8wqBysSvfB5S$2+Wb!EnQ7L}!LU1Yrd
z$B&xE%n2)L89#&W$xdejE3Gt6e8Yv1F_G2xdNRtc2j}%ZXV)UChgI#*AO0R6n~CH>
z`}&CG{M@hgN+NY!DZ%yO+L96y5{hh|7hb|z0Nm2<tYrc}l}1skLbd>@)l<eo(R$bV
zsL$;@<J&AYxvrn6*aYY25<=YvJ>r#X;P89!F^(7O8*M$0+69q4R~=C?QW=x*McD9N
zrX-L#>K8veJZ$fkL$!f?_U@=Iga$x*GZ$&q>Zqz#^xtZQNOzg<Y3n0kuR1&R_B=U{
z+pv>s`K%zz_-%sc0E(ROt;Yi;vYxynHW!Rl+l%1<XJ#Ym&4LbO*+y4_W3L`<s=uXu
zKpr)V*&Ese)>SQERS1U#@;{vywg56R`dwJjlTIy+Rf-muTcw$(KQx*y6Z%y`olfuT
z@5t3wkhgbqT&8+5W2-<oxTi2!g-YQU0=6U4Muy1O(eyH@h9x)SLrT7zw>qlwd<@0;
z%z^ZCE0vIA%iB5b7!>M9f%wp<Z@hMhtew^B?e7!44hJZizLB|R@G`-3K32V^Dlbrb
zY%tS;RbQ2tY;nB9z6=Q({8@)<yZY+zwwcqi4sP}0=`Jbd;ri7Hkvk2h4&+1&+~K%Y
z{KCUxy=e(N@t{9Qrl76-k-?x0fq)pRs(*^#)2{|Dbb`PJI)X4t7RIpFy0~F6$KciT
zfa3gC*mzG2YZm2{P(l=<+JGpD)f9qG!MX@8L{&31ooyZn2Sgrv{^G^m1PONl3A#<^
zHxg~sHj3<7Ku<lLI#J=?Yb%42oYd)Hlg_XT9Z|}KVjYwdW>sSm)B4*!DKq9S-M5L<
z^Mqgc1~BOegfv-%6d?4rEu?1b+|gMX`N5McO(>v%lo+YNft2w0Wk3CtBOdFYn}u5;
z?(zN?-u?gioyd~Tx%>o9W<+_LR`MQwArH|2x0O18=dcgQ%+YqSMFgZjZBPLmXM|pS
zwTSRN!G<Tl!noS=JsRA<Q;Gm31Z$|sL>H}+tOeE*OmPNJ5JdDG%E>X$$OT5wbgB*d
zbYl>x@onX3`wN3U^#FBX#B*k(4sxm4*X%y8Py*0=ic(|%#E!^rtZj~XlS%5l8^f0Z
z=qERqa&p`yU>!GoRS747E2Zh%Z9eWssHFBnw?ip{D=_%!+Nr4-$U&PL0mo4pForq+
z+hj}fafozjrhR5IoKm#E`MXc<msKfd<hKz0(wU7Dx{PlDDQ>3C*bLG*SJ0pE%gguR
z^N+pRE?-H0l}7luCQ(nNvskSF8PS$Ut*R<K#&i4li=6vFx9~r#B~eNfLIF6TLB=i+
zPUL-K*!u29F1dpPd+mupg#&NLOuH1Sm#h2B#l{~7@}_$o3rc`i`6cc1Nw+CLAMcy~
z{2ngXveP&mTk^9pZ7`UVZkGa;*~Z=>#4eBHBf*ocqv>XqPXhafU>{V98#R~$khNu3
zxh)@I>RwM|6ciLhj}VE|{zfj*RRs33Qc~#8IS32PXjh{l!%JfWts+g93^|aWW3M+(
z-vj6$*td#D@pa0^*@O7MQBNZ2;R$I2QKjrUal0w=_0s(kS;6n%1!RGBcBD{oSi`sJ
zRO=E+dhgH;F}G8GiRQThc`9&eC<>5h201#u9%5}Qr%s$I13$kDKq-|0^-6vbTcQ@E
zAnR@J`Ah(gpN-MF(n4MgSMlpSm0*c@d`B~XbHCS5iWhmpHw!*4bTiJR$~*hkGCQCL
zT<q(Vui)3x$jd<ht<cE511%YOot~ba*LfM^j+ZG9F|Qtxx@Dkn8_!y%I%*TCoLO6L
z9;vW@92x%Ci$PHDPhya5lUNVA-ag2g90|*YINe5MjRZDY9z?1(LXrL1u#YG@@X&LN
zx6)IUd+gb*AT4_*VXaq2&}-Z$XTcR#Y`(dk@zrO)C=_>J*V;Wh)y3u#MOtatf&It|
z>Ol0`BAp__$@=bOAvvUDMAw#uR+2%`x#wUw1d+a#4Ma-cSSjvS<WUTXdXi{I&?i7#
zsX(8;Jvif21UJNoHd%6tMi(Ab{*bNbyw&AbPKk6^zRRktF#vu|*kM9A5(d8%Feny|
zkkz(tmLL80UeNc%`Sa~-9n!3anx!F3C~*Z#3;_HBi>*BdfhH%SSi0HFB@glolA$Kq
zPSGGv9DoquX|pLk)upEa8K{uLc%`om9&kH>Zh?jo$>)08(miz$U-37-^{T5ezT-44
zQ9q?0H5ltMq<<ZMx;d=uoHUo1THQ0bi07SBygpMq#OPPyM!dB##Fd=dDew>%<p&>D
z+<o2%Jzz7KO!@~Y!Va#-)e)k9y6J*NO3`f(1;VIe5!QW|LGSVeSyu0i((JX$DM&@f
zZhDU1#G>c4eT8JVWZ-XAw=GsyA%!NBL^)vuPC+(&kjR=a%KcoK7(bDk!gcdL1f8r6
z4Ty6#&Cc!7h=SHbKJUz21<JUmle}X%mD8c`>dm-${jV0=LO$jD`~q^1d=mdwztqhe
zQHEF$mYxA1Z?{r2Ani7U=dyjgeY#=;w*rDZH?$ZSw+|3g_+hjapJeNa4Smc+?oKqP
zgnwPmxr9d@m6w-wW}afTWo3D|Vh-&N)He0TcO39%h0m5p3R@$&naA2yd3Fch{nT_9
z95bQ2Ax_XGn}r~qGH7S3%`rqa3lIPC<r_T#tq(|h4oV~Wkm-oH)}=SFtpTH;&l2SY
zmJkhzeh_vE<Nj5xZ)iw^im(w4cVo~m-J`pG<tGCEG!iAA`wd}_LFLO4hgkMRn4HY{
zNA}u;it$&9CJapJSbKOl5r}7@fm-^`$s<&-IpWwAv(ijLCV}IQ0!@uagboweS-l)d
zIPzzv`r45gwp)~l0^BA~#mmcUATTp`>-I->>fk2GK<+j|hd{T=AZkVOJ$~5+O=d32
ziX+);Eh9Va(-mT$N!7b-R}Bj#*ON1}jG+kJvC!xRC~ZZI{tMlrPl$4b=qm@%uaejq
zS=g0F2LYc!be-r6c7u&>{hki!&J#Jy+&;~9M&qA?R{%ZO<%cWUOj^ke3vNSx;J)uS
zA}4{Gd+)w|4~XI)`joX_lP$1BNA`R2^>~O>ja8euiqzvz`Te&Yrv2|Gx8V8BdGR12
zwQd}$3!_H}VMEoBe?dfXZR2EwEPUI$h_GyYWi1bXHMap;i7t#9Pb3~BWrY=}JZJw3
zBYO8oiAlb^J@$wgY;@V_#HxlHyN`Fqa$MY?S6~yd!0gw9cIj0`Sa3<NW4sES!pGl9
z=RcF(x9@rV86u3d2m8*3oXnHiictyb2hb&*h@PGlc`#vTw0h%`5;^)^LmqT5?;e(M
ziPUSeE?jbn`JKx2gxOcSsWAEY&sDV*?|x+CX6stCJyeZYjp#pu4te&qiMH{KW@iU8
zg@eM6HTwxkMBJvS<H_X`UVH;M0<1yJ_20PXCHm^NgeovC-1AmXO`2<QyIAb<@Y<2O
zN{e<?{s}$3Z-d);;$q9b_QCxP`fJPNtZmfa_H>!KBa#O~heaVF&Qkt-Yq%QRft*Ua
zEUv@aSb|DaODJf~nT4({E(4eeCr7n`<j2R{Dx?b{))T3x6|nEjMyD-UvT|QiYTa((
zMthyoLO8P}LIQdBU965ocCySAVk>JJ*zABu4)r^!sb`BA*&J;;9u(pJ?d<HnLHt6i
zKDv#5`$^u?qn7Sd#!y~TwM+Lmbl(q+WW`Tp+-g_-=R>hA6CWusxoMHBD#C9M>n-95
zSv-e+2MSk@AlyOcup^<R?1tf#A`=-kxvd#;NOC2^(+1AEgZtQ+md$qxOGjm_$^A4>
zP@YIuW|@=oCoK4wTJ2s2_M*?n2HVdgW1xz=sTafq(Bu#q%I9nADhLkM-zEXZLnSia
z5$ZR{fHwM3kOJBoaV@U%_6)&>-4v?fWH<Z+)E*<c{@RX5Tm^h;v&Wg*iCJ(v^`jIb
z)<39aFAT}1Bh05K8yoaYnj7V1V8dt2@7Mo68E+OI!1FX~_X7GIWOa}rldh59WD*hr
ziMp3udbUV5+X&f3`qU80hyb5B+}J{^Vd{He_&shCPPh6|Q`GKM#`Z9$({I|zWroRI
zEi)eEg9fbGUk71^I56PP6X7t-r4*qbO)>XVMX|7J%KC?CS^V)FZHZvxJHxj1{zMA`
z8}uTgzX4p~45~X6V2NU&-Wq=NFVJZDqi@B?{m-}5_qN&L5p-To6tp9Mz7&RTFR1@E
z<C3S5&V%lPnduwjca3xkP&*z&UjpMSV(@#C3t(P^5N<^p0D{3UYYO(^JZ-$RvZL*s
zhVPyua-RCM6sFzma<xvHAI3s;PR7U0F4XV+8Ba<6fs99WwlM~Yxd-}r83>H~p=&#C
zg9Dy2ObT97)T~FlQAk<9eQ7ok5K%}d7l%;sMCiUttU~Z|fv5<!jg_nkDAV)woaxu<
zAY*J&hCdR-d9wBRF%jW{7egZ>vFh=6M~|GdeToNIX67PNUtxZxi}=smqJtq?pSjdm
zq5&&x15d0aGv?phE*y59LJ+wRx#8qg%gmH+fVLxl8f_zf|K|pbk(f=o8!>P}=F{c5
z15gOd0#@f`vNqIm`id)k;c`<9Ypw?{cs3h-h8JmscqpqgCd3B9wYCFLNk6E`jh7l)
ztMO(qmba6og#f^@yk8M6HJldN(XM)ACh6D9Wkqf7^9$o}=L;0g(EG|GgR=+rUG|*&
z$Fb9^ehsS4&}FUEOi%CKaijj4&#IbwQ!^_ocJ+}~yR$y0?-(&B%vKeyOVDsUQYff>
zBysPf?1RUfezRc8iax(`YsV(Od-rn3uK7v-$+*{g<J;#ETa|L>Z%vI8Ieqesppc2)
zdA~1TzS-xTnNYHEo`nPD6&w;S^)|}rm2TwRi-_0+$CJ4{yD@>&FyC$6)lCO~|8?c6
zRhzeNop*H;508a~MdLb)YfI+OMf25-sw(w2Z{Kc~kVr50c%-u6#duFz4DHwndf5*N
zUN&pzrI=)!{VG0h5;<IMXd?Q(_qmU!JLS6y8E{?3f0$1~^A9=dFEA&rdw){tb!|3+
zAcEW?cqY9<Qh5{BV4Dvd5Wr{#HKBlgm%jXpvgX74%7%)-aX$J;zCCyKG(_j<3tp~U
z;Bf%X1ztpS{9xauEj*hr$_rKw-h2fILY;l@Hw^h5un(9R@)Mc;^FX+O^5=1Ca(KXB
zfBhBaCFm6L6wT^$;*2QKJJH{_43YRYy4+20H+9s+uYe`}e5Uptxcz>Hi@={MDof$;
zG#^LC@g~<Fvn@WqUZ(H{UFN&ZtD<BlG=)~dK<<8Ua98D^@o!fz7fiN_jY5{beBHXg
zN#pDB>Lk4$gZt0Uyj-7WEN1Q6)v?8(t6p=ThEA5i_M=~VFgOFY8A~IE8%1{QdQ%)A
zd_OGA2c9%hF)=PRJA?!cxCzyryWvjy>w*P>@Nv2y>F;%*$HIDik+<SCn1tH(Hm*Z2
z*g?Ea*ptXPoD?_UTFQy>&Yz2`^4haAg|{arCntA1^_w*2x$3N6l#N?J@$Z%m<@ts0
zJI9N{vWur?{~Q`GYOYwCMN=pmN@Lu*^?rqOZLAzMCL)3djt|#Bb-z8mE+Zi!;T1eM
z=J3Gf`Uu4MZf<T7YC9q-&H7;&@dXmdKee=0!FuL%o7tmSd=>6(CSai!E?N|?Q2__@
zJBf$+=|_J^T-{{y`PGg0<>iX-xZi^r7HPKY_>RsHd(G0s)YLx?_5`g{&Hb3kN>;wI
z*FK=(5@U-oq6oQAMv++k{>L9zVg0yi|Ne#}%lDUuWm|uIItTV<qu62xvZr?4ACPkc
zi1~J@$=BS7uy<kO8D^D-8hw0yr9-xD+cux)VrSJ>Uw+f}3k}8pwFJ!$*f1+h8qOcp
zc<v$2C^^4%`SSa*UlulRvw*o3&*kUO_xa{OC<wIyIxQee{p(N7G!B9vPffYtnzd`q
zq{=SOnfnxeRO|O$<ni0C8fe;nZ71IHk_~ceVa1gEfAn^y;aukb9=|n6lBJ}@&oW6w
zin8xoD5H{MvhR_7-?yPG*=vNNwAd0NOSXxugDiuDAK6uwh)SW(`!=Ts{|D#6xz2SR
zm#b#tx83*m``N#*cj=)+hggUXa1I-ob5t4*nXi2LpoS-2fIyZmMaImo1*fntrtr*x
zHbVsA@O=3}>y3R_B(CebN~<wPQ&1FSXPn<+1%|!`3Nr$xMQsJ8c@6rD0vbu0j&~Py
z25@r41Y{E;2;vC40h5VSblUiARDK4l8eG0$fQwGCr@PJM=D%~}1h(MtZPf>z;Rq0V
z<`)*?51I&^>@0C93n(njbNMU4rO0r?XU$E?_AZyp^MJ#RH<W}Sw<n)G74URl*t<_Y
z7MCt<2(oibEv}Q+YU)p99#cG<Vx^((Q^gID6?y_JPn=`xw)|#!V9%ZnK;7s(7hG9c
ziHzK)t2aLm$N~`rn43D!lWjA(InbLSx5MxC(-9wjYwOm|@9p*7IaMM)_+h_6PaZ_&
ziDBo`VmU2%JmVrjW~zVeFsQhzlaqU6XxqQ<+2vuLOI3hN{g1~2#!9+o*{8?-)-0k0
zQbVxiU22$z_PqtaAS*jt1$>I!yhp-n4P{%vaI#s5%ygcZ9v(J{-Q_>Z2%y^^Iyol*
z{!zGOLD5{Xv;)@Z_47a_pQX2dkRZOAL*|TEHvrvB1d*KO0b^a=2!MVzWO12}@26zv
z82tPo!VJOEy=j@$Z?o2hJ4E!Z0LOmYf2ZRwz1HHRu6O3SCmwl-2nlVK)0DqlpltQt
zHpTbV>pt)2Alneic=>u6<-t>rN)l>6-FV=hF!t$2&UY&XY|*Xc-KYvEY}mGbH^zgw
zDo=O7JP`zmK)uZuZ=|Ui=M|~z;&K?$4ToZwbFgEPTR8e55Fl=;uARLjAAv;(5Y$lv
zn)0F|c1(uUg2IAr9G8+Z!)9C;^doSWoYOGzqPBJc`O(0tr5#MJrXc(4Qb!)-Ugr!A
zw-AE+_p7L@Gr~V~fZQLeTiujg-W<KYRbBQC!BITcFJ*?XE?c{Cn#VX5748Lu&ZBVU
z^NWkeAb67V$mGcH#nB6EP3MOaiK+K`Mn*B<@(g1X-JRnw?95RZG*XJ2s76mJ1Ot6_
z{0jpueI@=lz1LCc?YfF%I~T!ilMc%~lUWNqN&(Q?MAlQ{cEw3=ZeK7^$anMU#?x7$
z%xM8DCAo2rwY{b7>VPnpX)<Jd(Ymg$t*!klzz?efCZge`<+qHw_wn<a4p;wiX%Sfa
zM%eyMX&&3H6VxYOgmX=47`8Mw$0a3&fBfhY`Be#rhfb=ie+=L3Y4zS`dEOLN;99%C
zc1P1AHUFH|DL^U^OpRX<WY?K$`t9`TdgSOjQ)MVo@j}Db?i&^y&V;=&*QxX<$<tbW
zF2!N>{{4)zja^%vzLwTMCSi%H4{A_8p&Fg7cDFZgEd^xn^%K*Oy#=x@$>lc_5=L@M
zhYD{6!Uh9=G9uQs9oqna7rduON4P?=0WI`Bu9kLTs(_MrHw7E)=bsOkXX3hWRX!zj
zeF7lloVm*nfA<Sv>1B+k@0Pw22pq1aA&N^)y+;$bosW6d^X3hYu+C#;9UYF(bAvby
z(Wa8qb05x=frX_p?$={5#G{4JxJIlE5z6ZNA)|j?<tv3CSc+QV$zp11x>MST7nC*m
zj3YG^71qaXRhRSr8W|b6SmweH>Q3B^8zHbs_wc;o(b4s3Dk1V7<C%Q!bSXaqJvXXN
zzn`%ktQqnO2@a0Cc{3Dz0lF|29@T&VMIm9~&T@BKa{e(qD(X1UDGH-EKd=0qYoB83
zXozgR0DK=v2M)u|G_|*@!7D*LD$HT9{8!k2Fd?0N!;<)8N@kIr2Lq#GhAl^K^E`vH
z;GiHv9;Jnyihj@3R!=%BS+$wV7%I`k^k~QQo((d0$A!DWj$K$DaQ*&YE|mdTP%aWN
z!~FRB->>WY+iHG;+4=Wt@A;Yk_?gH2R^Yt<{ra0-&I>m6zrQT5aaI0&)bZno>zR#y
zKI5J}$z~f5{d^Q#yhcGt;?GBgpUimuzj`@}+t-hlf(h#QrYHp%d|Y*Pb**3B%*eR6
z{S6yjRj5{W9nLrEINnugtThoe0R}NVHdYOP)%TK6D))b|Z%lFiXQ!wMfnaWbhCT?*
z4?nrw%xR~SiF;2?%McI|*`l7l6|3FNQ_vwE;dHuI1mq7Gf`{jv$Tyy~$!2nn2oE>N
zy?=iLW-=~)L9GYmBn~jij$ORC6HBI})X}&IdX6=IbSgn-GH=KlJpJmco{9eqIg@$p
z^y$-8{w3TjDy*V_v7xY?Ii%R-_kmg#5*Np602G{&Y)FlX)p*{-dsh|ahtg8q7C5u2
z;^iex4CC037fMW2O1yY;b2Fm2y>CDH_(9caj=50;iW@=P3O>UqdZ}Kzv=3xkD%biA
zlMtieGPBT{Pj#)u!o!ia?Db#%a_B-u0;yAtodU%9GpCW@idu*3*e$jtu3rLR4I~H3
ze(Pr6C07F)b>nIp-&GmcN#*=rbI3Vx1X}yDB0t<g042iXMP<1_-v7OU<SSVK0W9~#
zypg#zMP?gdlWgpaC#u9T+<E#DUxRK5cdUqhN%#PcI2?hd-6kHMyFTy8FqHt}QUQuu
zq{dclOUseK#PKo{uGsbv5`dMY6sSn>%E<J+?0ojSo0~XvmNYdrgOCxJLyU8dd3`P3
zVr^f|&^SK62T^4ZFT*I-Kw5eEZV+~t(O(gDe}BQt*EjMV#B83J)NGJar7opFE{kAA
zyc@9gEqRvOGyMtffreN`E_F1FnM=OJH8H$ZztCb6@(7<VbJ4g(o?&A;Mn*=<P@y0Q
z2oJB;gpliEZ@pv7@g-%k*-AR%>QNdV9v)hH`uk_^DkjN!9>mR>M{0Xc;|K!A@u?{(
zkF3)=m|-B&kU4O4C3yrC+4M9|h_S^N!7tUxcxGxOk4{?4*Jho2KoC0)8dM`HdOvAR
zzEIYFQ*5YCe=q=JfDGk@F0)^o^vC9I1gZBf2;tiq3Jg!Z-?_=!4VG^QXA<!PpP#>f
zCy<V~N5g0n)Z+#@eVH@N96f#Z?2fUWQVx_QpQ>YD8G?g=Z30q=1|pfN@UP(S#lmLx
z{h3)jwg99`<O&*v0)#S9z{}J%7Dx*%6a(Ot^Yjp?chu5=HJ^pAp=ME0QCF}P5w^UX
z^UTP#li3mVadB}0e1bGwkPd5c1_p*|h*~Y6WVHpsua5EU+qZ>pp4ZeQXO0Aw;hv$2
zl%|#40R=R25kW^vXR$C$xP8k5_^=ru@sMi0ee+xi%K*Pd2Guy<W(s4vCB{eG(+|VQ
zVK}7KPJVLoIsu<)M}1Z>B%eiw+8F%kgeIi5`0gvAp`*ZFf|P$XT5VH@O);6C0pfWT
zeTtnz35+OGlX)LRO6@*N^yV9fX=NWrPEkKq?lG(PA#e{r|B1rGr<3I_A<jE_>XZt8
zb`NidgX7YonCLfzAoV=1MqVRy70sURx67vGH!(79-SN+nGb+c{cgv<f!m}bO{8vf{
zWrBC_zJ2|x<q(KlaL4jG3QLu`hUsDUFFYWT4NY&}y!k3<Z4s9bD1fK_@@C-D+jC+s
z;Q(4Qk|k_!CLsVgA-a=EvbVh(LDCfnPv}L7fg_pq=+Rc#BwFGHNq0WPV%s<dYQ62e
z^y_b;3PzZ#VY{23on4^Uh&W_3afQ?*8d9_xcy!NIg_Tw%zjrfwiUqfx$HvA!0VX)o
z{n?L{rq<S?q(r@3j({I)o;i(m9C?aTQI@a&`HY$>8w4Tk6%~P2dz#dXTU_rtiDeLc
z_wL<3H(1M~aI7JXmm6cag7v@_2{bTBN$athu54TKZ|LU(db{wj2-j1z@-_o_mzUTG
z0j*AxwGUr#)E{pSp-0X;YUian`LmbW?}!krD2Au?PTMP`k(cwhjuY)6ws<;hsS_72
zuoKlLqQej%mVB<mN?VCO0@OQPPTA3i(4ZX24M?RqQ4KoM0$|t4hD>c7`IR3TK|Zr_
z4s>uh2ps1*ZS4uo?{`{z>@CF|sM5|g`+swj<-#G(?RF6Ns9A+DRy0H*bgB70Hc-8Y
zzIAJNg}KDUsi_7?z2P71yH?Z52=#5}1ChBm$ko3Cy)gz~{uW65`el@lB9NHnSms_V
zAfs|DKAkRrihl{A-||RGsGBWM@CbYny7bv!D)|<G58On|=xIC_8)!AO{QTh!kMisV
z39OHz{i>v|y&w7nj<x9;5blu!2nn8kb%#d6^4ga-Gz6j+X_s*ZP<c&6cj8+Ukw2(J
zW<X269jdA@6x06wcRm28E9*&prJYIvm4@C)Fj+5PcWJs0(*B7E263@7O*v?HOLK#q
z;4eK#05qn#3vBA`J4%jtI7Lxp3fqD`Gh%^hj>tCz*ecZ@Fkt519?I_}37r7?2Lr(v
z5f})_0#tWHjq<|~`=XolMs}(nmx!}+!WUUTD%*6ZXIv>PJiL>M{;iwr_{78r>;^3X
z>hu_z25y3v(wy72Jiw(RtsCNW6-&!>uT^0oAty*AGEt;imF>em;tX7eNdV53Dr;)8
zLN?NQs*S5aM9OjKz`@svDJfB)U|SdK9k}>}kaD214(yeZ+JQsU@UVC*WbLQV1>j&&
z+;$=e)CKZZLsJ89r=S(k#%t#z5ukOyt9BeH5usJ7M&qM?>dYN^-4B6gXf9t*xcoO5
z&S^S11+WqYsdOq&D)<U3D=CokBTRaKXqXo#%e62uGjo*6u&jqhr!t&3GHqj%P*lsb
z#-@7>{p;m^Bp$teR<k9GaKzVEkP>~+q)uj7KZCiLM*<O9I;?+-xtbgHn!QB^pz}U)
zsN@`d9<WyD7DEkngv!cgF&4hmGXj&J&@R@~5U6M0qE)1Q%w6h?G1Pwl@~`NVXQB@g
z4OsOO8$@MfI$cab02>OLjuw*n)4lnT@6ab6)=Z_nx6r=D7XIO4OuB31(sEXh&Ao>Y
z>+H%=LwHqI^&N&bw$BY+k&=GyU|t63VZffj!n1;@nA^a^$tg^*lG6b`D`!(>`EQ~>
zus`zaN!<+IZiP$46`b$9C^Enya3;li{`D>4=LP+(T$Z~p7wd`5q8*c)u^yZjZdXI>
zse4Z+r+&7%S^c*07fe9Z3=D7*PEe^nWme`fySv=&T`<;Xk!>$C;w5LV<Js}ZhY|i0
z!*Kqp$e3F*7C(P(K+&5ev-#tNJZs_euwhuQbOe@7$EZCO`7r>6Th+D%pyjBuh|UT#
zV5hbo#-N^eK+u9vHZr<X>+Jha*~rAiRiJB$YJl`PH4tc1;O%b>TFL5_2mbi(1+9yh
z8Jjn4Qo+*^X>APpxDR3AFB1fs;4G-e<tzlEz)S=kv1*g9e0E>BMMGWv1&rN@ra=Zk
zmG!e^);QTKp?bTlLIWMO@3F4e=*fM4oso>YAB(2G(Ms3qTa`ss;jv)_2N4$+7i3iB
zV+yjawAVbZ!%*dAPYQ7GFTnM`3R`*~6IIgg@7cNim(EozmKj3=<JlS}Q7)e5<lvx(
zAJ1%A64xs2S<{Fm{k)?@uId9exgZQHJGjqvL7_Uw`^53%MAn*VHQSstHqEm?032rG
zQKWzmdqq7xSSy>Ir=bk90V0oba&jk0S&GON4Y?(ZC`d%UV`rp8rcR&ckeS|z`eU6W
zDeZ*f8=QAtSbqK?geUdO(XKwfD4#kN(X%Y#Y?%zOq>Et2%C1Z+V#fE4U6kbFmBZ1g
zHF<Zw+$O^yZpuq47r_=Ua3u9?=TN*o;v6qrQZcZ|vH9pxXkz<9M^A5t^Khg^t3Q{N
zfkv=`voC@K9ktm$L@k`79*FTCXJ`wulXmbo)w1&2f7-h%b(!0xaQ5DU4!hkz$rk0=
zEazxdbIH_#8%<ly!+@GEmFSk;y+XzCRH$@+H-~I0Ggy41-!XF4G^#kppiVF_G8XE^
z;A0Vso1>FG?o7MM!gl0%C);F&^l$zBW*^v@VP@CW&5M!+{yeoF3aqDLg?o-1IZuVA
z$&JB$md%@MQBp<8A{qqy8EV-!#F}vCFR&{*^9<!4Lp7kr5BMY@2Nq7r)=~Aj&s%A0
z@|GB{9=+}|c<)}!j_m$s-HcTASI^2tb}v#dR{0bgrdE_Zk>Iu(^(b1T?#esRC9NIt
zbi;-Xb@sj)C70K)Fa(je5Z1kUsTSU3?$8+$O=fl+u)dM5nLgg$GTk+{<Fm8TKrfph
z@P>p*J?cYZf#3azYRoT@?=>g?tcC`=IcyRu(C)@o-x$=O?5s!q%kACuo}yr0GK)Er
zxSzl4Ok$|46S6nE=B~by^1JVvp2HZ3Ck?r^8TdLlChD1|a?*#Wr0Dmyx3iFyc34D+
zjM7vYv4qqRDy+N=8<2=ogle^MEQrtH!<*;EQC&B~L>`nWq-$82xw&17%Xm~+sO6V$
zV{IW%rl9e;WWH$;%FEzB$>oo-QoX)Y`Y^UK1iu$PV9F$~ruVp-8lQl`MucEZFJGQO
zjhA#CnWLhH#NW@HZtz2QIN{-WUG)q;I>*6sOR+)J(zxcVT^{CYBoBQa>M*lF;5NF%
z1fMGzJL!J4K~@TMcTK!)0wo_V%mIWTiV=4lqTm(WWfv6eeOSA^pLBI~@wfE$$8OIP
zI<KA~c1OmwAv)fRyGzCgY}b*7ljMs38Tc3Ji6Fs>gzJrHPk;FEbwVSOgKMby>sGxS
zEIQWus@~(<=h;XAuWMl;(W0+I8H#UcZkhpQcjP%VgroyC9QvQhr>#VHlJ-BW#d&*|
zcRX~>Z6u?48InNSu9r9H(NVQ2)-!lZs*F~n;CUe9^qDgpjx~YkxXlWw*+jcLB(?o&
zYk#i<1#JM<=$I477y|+Vyx`(#2=MZonwwpu55Xch=<8?w)_mBo9>>;F1khj{bBJkp
zniLaC8o|Mxo5*`3!H;6Y{f&2OOq8+8K;9*J=e(k#thn=AzaTE*grO-CZXYOh<U=8(
z%IDKjB)Pb@b<B0J;UjobFerA^Eq#s}_rV}!Tw>xzr0#H@_wi$Qo!ru14Bgewl136d
z?$IWbDx+9TeEupc+s`L=9r;F`_c3^(aIkQ%EpF@W?jFWYTgKp55dKB4wKf59Advdb
za(HzB)dhuxf6*ME@kd3X5<OaM1Uh1Qd3l&DZdFjSB^t_1Ww+PCM#Lo~@V5;JF>HWM
zj(~IIKvLl$BKYbeCTRs6pk!qV6D93B$plv-pqSq~eNIOw6gSTt2ZJxkJ;E9I`dQ38
z=yAm#)K1PLvCI&W`Y<$@HQ`g9l0qShe~f)TNL{xg7MtK4-u{7Z`Bs!j7Vc>Z4$sbR
zfxCf;8OG>A{?nj7R0m?l$1TEI<e+1T8bJq&Q41cf@Bm~x4O-N+nibbp!rAy{noCjO
zBAZ#=HWHvaU74SE0u@-A-5lw6DATSDX&&Me_<Zwdn5*2=BsHMl{*%5L7+Tit+pjA6
zf0Motnu9CGWbC&<7t|l~?aCF}tP4Vd?2Ncfyax_2VX&nJ$yXFUxBkl(ZF@Qb@?#J$
zW&QCTlZR}qtYjXI-UGTv=3oVnen+x%AEUV*iG0Nk(o%n_^AAC%nJ7Mg8Tp$E+Fp(O
zpnwLA2Q}y_LAL&Y?%>0%6pF#r#(Q`adVlO#oG1p57BDg}D3jeAv<}%hI9|1=J?P|>
zm!~M(XIi5}&(3&t*~rpo#~&9g%dao^wYRtL2yEpISCWk8R?sUvF-z{naMF;lP!L@y
z9@ur*f&pP)2q~C$ucvDxGbOyJs7SWd@HR*-oa2*|l1XhTC>*S!+3W?b3t6{-g3c(~
zB_2}`GzCdzsu3*qqNEHsX;dLgk2#n3L)fZ*KWl45bo2>GY19w=;Czrvm>^^yH8Z=3
zGKM)=*?<H}QG||>I}yzl%^9kABTS{Yw>KGpa2>2oAk7U=!1BGel#ZB-h{>y_qCRLh
zWXnA~*rknf5s|L7i5T4w&r*&%9T6$GJFuH~J;>OwzK$|32$4FpW~7~0S0}d{s*qQq
zC(Vu8GxO9m+yDj(SP)g$!I_Fd;F*?|wz{QdGj?hn$bd1(#75rt<e)Qoqjmywo7<$l
zKkkLU(KIlK!WFommR3FI2iK2QA2Zow^@2=E2Sgs0zkdByQj&u#-x?WlUl2;DbuPaS
z!ZumRjf!HbYiKz7pi?<l$9#Ey<aN2bFe!(OmDV~s&6$&1SyhFW<~3}5Gx!DEDqvNl
zu!NBW13^a8rhb9FEU&eEcGNtD6G=Y0uP4u*RnyR5!f#<!p~3J3$~*?o1Gtc_ZtZE3
zfL7%dB<5t@!LjNShpgw^ff7dySsVE+oWL;_7DN#*Qe<3PCp$5JkfIdGjV_uhU`4}Y
zV`Cp-_8J>E;vBkIQ2%}b21pAKggl0S-lFn%`vIgL_T0}n{_913?ND-EHIdE0Q8Qck
z8M2o%NQqxTA|#JPugIDj&^c!1;rTEZNB(NorV)nqI_q@<<e6fqZV~P~LVa1e(8fax
zn{?tm`_GcU8BVETTd&WKZ$%DbJy<TW<fA~EBS=t{$?YwDJ5YKERBzOynUKf*GdP02
zJKMQ!wLc$3Lqh|G5*uNH3=Ni>EYdk6*;<<E+s3CF<>V<%hA`c<&Pcz1e#LA2=l}g*
o%D(F#0e}2IRhj>Xm;0m?^7viq`%!aSa-jayi8IIZj+zAj7bHq*PXGV_

literal 60587
zcmeFZ2T+x1v@M9XZO#cq1eG9yK$DbAn@A!mIiuttS#mNb5acKlB#0n6N6DfB5)T>4
zO3p~mFzcu7`(~=<*1Y$s=1xu3J!Q8Dhx3PTe|xXJ*4qEG>oVfIwo`AXprF_#DRD`b
zg5pnm3W`6pw{FIFTHl2J!e5)UuZUm5-*_!t%yGkC+bkqhtSKmtJt6+v;MF^!M?rC%
zLh{midHcYTb~}4{z16ifB_`e4sQU-ctHep%xPDk^AH(M@%6s=JseDSg|MdQV(siZe
zpD||=HnN<}*4EN6I>~<d@4r<7sP?{jKfRxx_k@f7SSQ^=WwXDoD(T4Qo#YamN}Hh4
ztnsB>vT(odkD#SCyFkw3t?Oq+L9y57w$HKOUsJqumiV>tpMU)Q`efmb-`~ISd=tm-
zFE5?mpZojEy&wKxeKY5~cklkT&1rW$qT~GLD5v&Ag}%4u`OoatHF9jzJu{8!BA(K5
z91a>I?_58hOTH|)j=R5@Sy;BK77yN0?OkTP_a!<iiaGq_kIuo>iuHH>edpGHdMO6p
z&kmd_qoUXG5U?9lZ~pnuWxl)rKXa9wWxZBLy=6X*J>KGXDtVit6ysH;q^0G91Z?WF
zZA{u-mqr7G98xmOJK1%lt7o@w-_C<$?4st8@Kv{ZMtb$iri#BmN-fiDu|#w=bY*Go
z$w8&21P#5+R{Tjfs$-HQefe44mSt^27M_c;>@Jp)k!ie4sS&<~*8Xq&+Dvnm=P|+Q
z3T|@L)wgG3RMTUI>Z8MOzf`9B$-d>i+w;Pt(iT4N;D|D5N)YG|w0<2J7<YvuPkye$
zDKUSc?<hZwr&YSzjVF8P8h3EyzUy3Dos+tHRe?DF96R%?0X&kYt_7cwQ==F2NLpOO
z2X9k8+tzgbuiZ~B{;_#yQrA-ZxNGFaC%Y9sYFx|gbj@j4ogS<!m!B&>YMwS!6(rbX
z&hK0PVP?2#*xw-d#*^L0<io^veTayNx$J(Jn#b^EA2}p(d3pJH@N-HXk3(<U&6G4X
zHLC^q`S~?%E*z>_>baw(v%Vl-86NmeO_4?4?qL7;Nn-opOtV4ApSR7&+On8VpFV9U
zXxC=>q_nhj+jm7()c^$%Vd3_X&Vo)J<9g<sIoE_H9$IFp7gOnM-?5{z-LCUk(lT$8
zx=u=J>cz3d2V3?8m?Y+%9a!MK{k=LoGV)2A+2t&C_NlpoHQ}4mXWv#<;5vGGdmUEV
z+O-&k=YKp<^e=L!ToShZm=H<|$rO#037TBoneee|yY*yGX^M^V*8HV0!C@-gzHM0@
zi3O`e4gC%d4j;<+Xm(Fcl+e9>yzA)Z(Zu?Cd2YM0wwIpA$_)CfvT|F<m6f|%#-imS
zbB8t^7+Yd!D~Mdbc0M)E`{#;jgdOFT)GZ&)j<!<1nGJSbG@2P}7YyI`gwAz7l)Yei
z@};;ByJoJkuZFGvZW_M5No`o@@WHys^1(Yp5pT_EoyPMhla>Q`P3ptMy<Te1uP%+-
ztS<DM%nUW0FQ*l<zpkX|@Zk-+2DNPKAzu4mH-#5^UTrA<sLqb#sF~-@D1P@mI%dM`
zS5YCIe!IDLac8#Oc!JGvW3=PU&@ItM;*O^0IL(=jeov+kcMNe|j81o%Yqw)PeL7m+
zUnN!F=+oT|0{GnOSt~0mBE0gJ#&S-GX=Z(P2?-oCS>MlhmBnzW9>)X~v$C>C;l>Ry
zgJE7GwfFwmBCo8>>|4%=Xv)nMIwo*OqSJZm1+DA+tq<Yh^S4cYettyFt?x0Df9uQR
z#i7{5*FHYPdq01^VA`5-6+0`lY@{{wT6>P&o<YkYaXJ@y9Kg6KA*eAyBetzg9Sh#u
z-*3_oqhMSg<*i`*J?R!Tm+sTUY^vc{r^-NnIdM-K@4CU)b%XV*D@!*0L3XOWN^#1e
zye5sCgjR8a_4zJNCQ?sS(~XUaJ&p)C&nMCBexlCqi;GRuF50ePS#(G-k6j~s;Cr&p
zd2-@OeR6R85pI3uakX^g4+^o0DlV^meIxO4Q8;7L^Cd3z&kno(Of_vit6^2j*plaz
z8Qw)+DCa0RQ}=p<-ab0IL~&Y&ua2UoEotv;JUFQZZR2KK=YRd&P=3y&QJM&f*^%b3
z<z;7F8b8hMV}iEQJ1E)ZV-@4$QV{cvHDTiAmQ0b?7{*@JIlS0FMB3gd7N@P8pJOFo
zF*VXxzCCNoVkh|M(W3~NAOS@+B`p`5PbK-Mt_JkX@Xa)7xs9d<_R}wsDt`U^vLbWp
zrN6(*5a;OTUDSR$C7ugs#;vlXy=aBwQixR3X|KWVYlOS4Fq=J`u*2R}CbF*0aX4Oa
z;rxTm3v6mPh@;q!wlpR?&W)MkzIA>a``GO%yCUy>n)<WNt|JHRpFd{2@`mbdrT!@0
zIWzS~o`+)coaR(Z(ppC&l9K+qxiCF_C)T+=+h%2U^jxR2&KnM`F}nh_Qu4?`f5;x?
ze6C2tr}ZxTtA2-B>M?qI9cf$JjC7Y$M&H*tLF4&LGFai{4swX777~eTd8b{c%TPyN
z&J6ZQ$R0<J#hKyZ1|=;8b@f2<N`J6Z!dU*2Sz^e_u-2MvylT4h8!vbFI(LqI!@Lk)
zlQ*3@=AHQ(oi1}h45v?=IIrclV)JP#wfVN=+R9wK_>@6~-@e&LDQ$`g>P9byq@|>4
zOX%F<=I8ATERo3B;_8k(9H!o`i)=pBmX*rOatDb{liq}W@cs_=B(Z?QhYuU0>})8%
z7Qj>5;@b7>)Usycxeog<vyVSF7c8~kKKr)Aq5s(MN~?LnG2?+qjc_co<v)vTk#W56
zsE%3ggqX=vkX^^=xw0ubx8>w?7ld?->&oK!;oRxkD~+>54Y58xK8KQ)u>oUP6k;}=
zsf(67Ws;*`8IV2OV)DnEIqAd4kdt;l`C^deC9?Rf#dRdP<bu>orc<X(zP&urxb))a
zxy|u%w82w(BD3Fh&eL7JCM{iWO%|ri=zcOxJy}E*hKp_+DhUr~F#Vo%KF@Jxdn@OK
zpZu8<^Ap`GZ&;a`t6!g%i<?8G*;+n<z>PtTx=woS?Hzjm{{5u1qh{XO*G~S9U5ktp
zxU67@z9S}1J>R^u2j08$*p4X2YZZtXer|Z>R3FT+vOsp*9W67}SDDwbMNOzu*zNXl
z<gfIM)=YD{J9l(TYaU&`d|9O2WvcRAV@ChC?whN>o`@>9wq}^_$kJ4?_hcSzPBoCQ
z$+jJ(UcUsE!GW5vq1MbqP1glI$)b=^6yrM$3Q7umeJPV8O@Hn<Jb)_^DQ8njxg--Q
zN2*WI5NwE5;xKIe^Upt3KU#!}dD2AhJ|+;Qndb=D@Veb>&T+IQy*%c?Ab(IftL&U)
zcmn5o38)fdK)kviW=pg9c>(oPiex+95q~PgS+-zpWn2M86`AV_vTewE;NOYm6azd+
z@5m9S-mH__T%TqnH@wo3=k&*$J$gLvDrXC>q+wH^DBAZt-K0sil?WYKIXRzzfS8^h
zUB*+VSUEXs937Z?u?u&{Y9>vw?$Pm3x=>*qn)P>;;COCQ(OyrJZ@y;j*@IeZi@pre
zfMqSoI!~%Z*OrrtG!COAYr0RmOcYUyl&^HtttDlMzo0&pbXCWL=~{3cA}bbW=Qz`#
zly224rKhhSlazEFw_cOu8WO=FzPI0=VXsF2yI1#Z>!7OtaD|eHwh*_~EXV1ApFRx2
zmR%1cr2XHgrSUW*XsB8DRh(8R=;^LSD&4j4o!Fr1L2ut4O}d>_^YIYdxL0{^ikO~M
zQE57|eQ#eMi>Rp9!omW}nKNmc!IJ!QfytzkTwBab^Y`#{Mn``A`ZcNeMvV!xvd57l
zM+6)ub(MA4W4F*bSGTM#b*^a|yXosk@CFEoh-d~0+U@?{!A%wlTN*D|^SIjhMj?Fs
zm4x~~xFzs~#ING0uU{{<Bi#jvy5&EA{`}65Pa9lt@zi`4@6vB7DJs5MoE{9r8hnX0
zE4^f#bSeJST-Qy~{i<VXDxZCrJs*;idwY8y$#d+NEPAefG2eNi*LSEr2lZf+W~zQ=
znst9wQpvHH*u?x6)g<$|v36o9nq0|QFUNDn^Y2Pd;}nf6{5Ttz5Nn2o_y26kG!Mb@
zGe*{(MoHE2m@#fn(eoom-M(Mx<Rmcm%HlWZB2GT|Pb3rSv$vzh+H*`$*viVw>pog`
z$F1xUo_^V6SoZNFUt;uOMB}kqOH{k2`rVZ37U!wn?<pXDvT#4symQRQe#cC2R+KuQ
zPR>Y5dE8uKAE&LL^Ss4(oeB9y#1T<58{<?OyO#j`jBDOMI&0oRQ}cZ#8ToQ~q9lH<
zF5+rx#*5!IZlF4JLu&xPbws-G%}*3;TKVd3%iVMYlwsxNRXF=LUjFlRb?C)I!haTA
zP)R%Ued~0cOUT1+>OY8`^yBuW`*UYrzkK-))$<Z+TKY^Xa)5(R*6QMLys6vNt2gpi
zoFA_Dd&Tc0c13!gcF}VwkMJ~9CzVzrjZ4@Z=Fp^xws79wiyWq(I=C{|+4S<nMTSFO
zLf8=aIenouZ3hZud%#gUB%88t-(E5RTPD?SywB*Mc`;1v#dd+knXk_dXoj`3vaqwu
zNJ>gJE{%+gyt6^4K$|A5*Kw*huXugq^R>SGA?!|ohelh3TvI;4hgvJ{$BxrSW`O&Z
zTY(l7UQqLX-m9m(lZLOlg_hU&H5v^TPHOX&#hKKMwFxh`O~;H><mJOr^2G(tglyEf
zxcarI$f!14l4x8QB$1o&DGdPdN4=^3;2+POs?RW0lPoILp9{=+#dI~L>>(*>hDOCW
zv-JV3UDwxVz1z+mCzHF7zIUp2SU*e=HTdiz8~pEn-G==td;R*m$Pib7aNXOQn!&(2
zrg<FvK^K;0M-_5xO^02^JM#Xhnp*t%gwB{)c_*^&xPKJ3E)bs&!{9e>dL#*@Z|)Jt
z_$>Z*Lye_B+`8*r+dF*s3QO>sef7KZn(m4YT*U+Tw$N5jbeDXw8nMv4c#pWOwvU#M
zV_E%iAvPo5IeYe%|0KEq6Q||*36|d#CB%WLZDm6Gf}_mLkMgb}cY4yx@tUwF=_}uL
zyd2nGD%N@&;hsjV|I?Iv|6J){_V1-od->x9r%tiQ4Wd2DG}mHNO_L~CU5o`@3GdRq
ziGBQrO)a7^UTqj_OA1F>Lkm|N8}#turbLI!1?UMhTo-y(v+qQw4+NC=)&>hZ@#ucr
zn<(Cn3N!3;Ti`$uPQN49A*K1b`8{+<(LhH?8<}YaWZFbs+grCnchd?*IZX9M6YbpE
z^3+V>7P?Dk&gQfyl)gHpHZHo*b3ntc-A1**HSdtpjT_#zb#)ENI^tJ@1bE|0_B8Px
ze2x%ss!Ro%v~!tlHu%Z!y%*76nZ5h)8Rd7$Iwh*5HR#%$Rzkmo<hv}XwkGCIJ|~J4
z0JPe(h4=4I5@>p^&Dtyb&fxxgsm#GkO{NHO0;C{x&4RArpc!WEF^JOPV5hNd(UlVI
zry{5R*?Y(Pj(qh1Af=D4NL-leUoxHY7N<Qer-pv`FL5v0nO04rcRMRAEIh!^rkVSl
zMbxnR-Mii(nMfrep!E&qi7KhZ3=9mfv&chDiF7<~o?B$8M`#teo+z2>a_4Z&v&&K!
zX?6KkxFw#;osxq+T@<ZqRLERU>8rdJpjp)gfrP-#duT_dau2hsQ^~qK`EpA&<Mt6N
zw_V2s>UqpN+8hgTrwdHCEL8}#JM;&gDEZ5>>r&#}y@yjG&%TbI{-+e{d;EBD;@Puj
zi-VCNcgoo^AIj$g6RD;d-uP6L(Ovwau0O<$wl?>@%hGHE0SM6IKcunNGil9;CzcOY
z_=&o~uOEe~*a(}#SZMhdYQ*UV@nO4FXJ1_tN$yLHkCITo7)piyLj)^2yz-;)!OY@t
zqEb|4iv5p!TclPh%raTo*x14sCnhEqXIsr1QuNB->1hFl<jpjyNl8dBTL%_OhlmId
z82FM%@6lA?PM$xJd9-RNJmoi}&{ps%+fDJaA=km0DAWR0Jx_@sK)b3MtCZM?74!jF
z5OMYGP>V^T0`@BrNea>Xm-m0fF>LCto-<lqUI;j69;}Eq=#MSCnHd=`6UhjRNWcbO
zv$lDjz+3Y{PGeaC+y<Vz=|tiHpN0WR8{Af>=#HV|+_r67_VQ$TL&VjiHiNa7HL~v{
z_m#Zhd0QDlscC<nfHMSMK&+UQzhRRCO15dzh)mGP8S)eytIp~VKH6B6c+zs$qxT4c
z7{&Miv+O}8$=WY_MC0TlWd@@ogSTH<x~J~Y>l33@kk7@%6&JFLP9#@a@;fTdAhK6I
ziSf$xSk5>BriqRX+2;cieKa~4L|6zIioMU|Udjulmr-gthhnD~wWJvl8<;>}$VFI$
ztLNJ9yjq+cjYXT-+tc$pdeoxhl#k8thRVImgEJ!K!Fu4}f3J_p@%;Y!f0AfBl%!XF
z7->Oa-ezT{Noh7ZFnQn~WI?g^f6q{{R8i@$2>#3S{oTxYpYr!1-yhtj`TNVKvJCd?
zEgxt|DeoVD{`2j-%$NU*-n=Qzyi=rk)E0lxzecBgc}9h9J<Ga3Mk!Gf{{`Dr<!f>q
zRK<;0gne$d8od;YbW~=R84IlAb4)60W$>CC32YHM%#*dQ9~YTxEyY;v)@+f>`d6RN
zwuVc-(#>q0`Siygc?Rhpap}elEI1Ufu1v9C+3qd4+zqI!I|79qWQk50<${*T%>?%a
zAWg(0Xd)LPY|*|uH}V!oMMX&fp+@o#)s;|%0SgU-mTdIZa*YNZG92iV7bs((_k`w<
z_CyOm+Kx{>1qDsWr!0cgvc#@J=3M!?$1Q5)dRY;bPSBSZ=Q^mobsmO!$%qHml(ln!
z&|pqae7|Db^>rIUR2_$M1fX$wQ(9HU-n6njoLJzP4z@_$q!W85<Ykwj!(_OE!Plqz
zPJ}33&L^*A4aLO9DL>wML^dMZ3@w4%48i(=nfsUZLt{RG9MW`gk8n8g5iL1(iAtpE
z!8>na*RJH7W%a({DjK>YknXZ%ORyamAMd<@lqnx6a}4dkaP1Y21~iM&s69RlIpttI
z0VApZx_K9yAQF*JTwFDXjR&q<9tuXhI(5ysl*H(W3Nz!jHs?lADj+)*5;cWwMq3oX
zCB5;a;oqMYgv-(-Sf~88Rj0}jQPFT6fV6ics;|WU^#@_qB(Z(*xtG_uYoaS@=*lOI
zb;!ZOivH8n(^3MjzAa)6E)3DnnE*fg9J7*tT4Z7XHcKyCv5mvGT%kGCiQjek<Du4(
z=2TX}K&#Sk-;%0+0;TV9TKYK@CQ))EUTDb<C;DMlDXo*%ZP}8(bSE{>H*^2ExHzkJ
zGLXOKXhpDaPDOGspXKM6sUHvaY-XeL9Jkg&lIT@v(ogkoYioO1Rp{3xGJ?AQ&1DYs
zo|?_E-Qrn`1wF9_<lqw}CLWv*Ht*UV-45n0;1H|g!}>l1hBSct#*8^+{opr#WmXzq
zN4S{==3XszO6)p%mPaO%JA4&E`e{(<@>5Ac+mY&Vw>2j{J-tWr9bof{D7EBKXf+)N
z8HfAPWqU4^Oy<vb?J#j7_$$<z{rmUlmK{8Nn1z#b;?9%94TwsWOfwDt;WXn0DN9Ss
zeNQ8nZO7V-Oi?m=eW)ZCh_3W~lhQvMDfZ@ynzw6tSy?S>V(v*v0)m%Q{y4&*-r1jz
zqM|{<)>2rf<31$jFG^*0IGR*<<7hF+{w)BG5|)?W9yldKL?3EgyzAOh=MtMQ$SuI5
zA=I)Bt;0yJBepqMwgVG>7iQ|^u9f1lKoL)<MIiUa$VGY*rP2+*2@1yPkryP1yT5dv
zKc<>S$iyHKYpxxkfjHp0JRy$TQrc^UKc_i3t~t$))EI=gM1axF*iWCJPHY86Ni@}R
zIkuxxjCPEr`rV56(wrBpOqPH$xr#Trn6`aPp4>Rw4I(uugNzPV%A=>^GTr4j25XIp
zTB32L1rx<bt+LdK8_S+IUHfuq=h3rg!k3z<!oYk!;_dkR<bunX1>ZDiM=6q+7i~OP
zJ_!<fr311npwd)I+kpV{z?rn98hH6I+X@7gRaG_ONO1%!io%S_mNHaQQnF>FA6kT}
zUZ!blUuIjb!_<Z6P4Q^dsBxu477=!uWj=LE9B`f8_eyhfGeLCbCX|Y}EPm^?S}--A
z9;i{Y$^>X6FoDAL>&KB(u?R*08;Z@Kb`}CJ(6@2g4Ao1bfvD@Nd}}k=BMENsH~EPg
zn>|$}7@tBGS&D;najw9$`S#ho`7U=-I9lJAqRJ>4fzc=Vg{UG!%6qwxw328GOpw3%
zEq?qhVRO#B<8}u&?N)L7K7#D?)<s%5T%d=RH%>(F`Qub2<Y5m6Ik07AyFXl5oEtZ1
z@NY>sQL<$=IJ3x{(zfE%ZqxKAy&c(7C$seh!xWgeEoX)on4OsG80HT|pQb*!;xfiB
zTmx`Y3EUn(hvnYp=u!OQs9Nti)0Ts>>UtB%396&x;GjoFw^%LDTgv4*+6>QwA9p8P
zp}j2DPdy?D&7f3QUw`q89q2eU)2semjPE%g8H4maah2|t2WP>`>{|s}v`>cw*s%>y
zKDhOaQy-Z{HCg)+Lo~nx5!Yynsbt&15D##;Ex0$4LChPl>85}Rk+nH%)@C?r=XJ9=
z!}KkIpF3B^>>5wfV^{3V{^g#SLEwkTU`MISx960stWwD04tDsCL9l~Zle+Z_P%&tQ
z*w%Ap!Agcqu+ZR?GQsC~&Y&zwk^naqj3?eqvPUTf`ymy50Kb6pw$5*TUq#zxTr}YN
zwXqIOLHf<YjW1~UWt%kYf||712<Q%mNHgLF9~6nj<tcJQftwpnu0T#(`#q=~p%t`?
z^$>anr)uga)djcgp~dbL{y>OENWj^XWvsmV6;wfdmM43Z>3h-WAeP@SU`NJ(9@W#;
z9YAHfo@v&82mIq{PR<*+X>tIBn)W~c{16$rg(j3yvX}~_oaQy*nb!h$2HsKg8Z)D9
zk5|iV1eK%|4~TDY6f#r+qok3Mk)j}IzgpqBwlD#kp@Bf_sv6VG_P#0WsiL12h6Lvi
zj129=3N<SBMwl2Fm75ZEs)2x<DXpW8-wN;F-<Y?yx-`_19t(WPf<_5<d?{|q3zUJ!
zSlIP0o?=4?ZjOMOGrk4OmkEJ|0D&lJ8i0*Bx!1VAhko(tDRj76mY0^+fOC5f222iY
zX)tP9!~4rSgjc5P&eJLQt~M2*Gn~v4ttV%OgA39GnMDdmKjj-e=FimD+0U4@G>a{(
z2nOKJmtE(S>2HG|Zoi9q@nm+aomJAfF5(5zkjSdnyvG_-3p=LGbhsoivZ-ZMWM4x<
z2?KlDWRL~e(cEv#puOFvzsnVoedSXMHg&Q{_i4EZ`GJp!*rzY0q}k~=Zr(|C^F_*h
zQ^Bgj&)NHIuhVaR*=(`~C{+Psb(y{I2KL5O-8In#Va3u6{i;Bfm={b}1C)uD%K>EW
zM)u>RmoI-<A8bPXJy^Su0bDQDfyJ#I&%f$=aMnd$%Pb@AuB+&Qxu>DD!j7+1kAHag
z?s&L$PG5jY1)^^y*u53%<y9oO>RBW*1(vGoi9u*4->&z6f{ctsx7)LM4dcAQuc)#H
z+jTfZwvF-y$#83befm-)Ot1XSf~i4?=dlRvhx4s|;LntV$v51)OT5k@ej|VeU57c8
zlaBvba9$eCj6jatphE>+v9riQNSv!GSh)3eXMQ_)*BtqyC0=xMD*Xs;ew`)edOir7
zG_^Bm@V@>{clldcD~H+Ia=&Q&jg(bQWXCBdXY%SygI(zCTaGbr5{fLkGikcQqhsUN
z*B}&3G-o(jW+P07m&lZnbw&;52qR@3>)48Yxy4ke*mcA6N6+5=rJ@f>Mzd4r9&+;+
zmbXDc$CCXnq(dc(jlV8-$m^J(>dG+C_di~MMhPz4oS>pcEMV2&M3;#)PjK_$UHo-u
zZ6fL%m%-7f0h>+ah_bR?AvVp=FHat1@EX-JgoJqsiN9_~gfw0dSUq^?&|pTZ*?KQJ
z?f3I~jo;?oG=^-StdIzdKoNczLj704=K~WrB4enI{h13QCJYVhW}4EaMm6(jWTdjn
zO137>3%np#?>3p3nI#C=jxay@vag13<3u2L8l;L|vwkozNqu=c``){=PcBSB8C^$<
zUZSg1X)n+|I_AyMYy%_V(r)o(muiacv(7~Vf3A4yhCmu81Pi2%O&+%p-j1W`P0nLe
zH2fJ3Q~K$KH5Uk0faMj)I&8%GIJwE?wyK9B+ZkmfrLJAuLmkE-JY9Y9kY;tv$(56m
zWT7dKRji;|nC{9EA^RkNjXvuTgEer8x%I2pmnwaU!;%ip>^OgUacP<8v@?X4%7nFU
z%gA^_x9`o&uhf@Ax?zwcWE(<eZJe*#gkCr!V@2ahr|VLDc-O*1GB*F+Q6fvGWt6vS
zg?>F4GuP?X*)n^M)KQ1_^i;IHWgZH({J?i&AKopi`itIKs9$17)6;+ykI%1lySlq8
zA(B_3(tDtYLJ81Ep@~4KEBYf&7lp7DWo2b6P;qa1(urysza9d}&MO1Jb7$h_uEXw-
zlb6@E9r=EX5X(k0TSu8#S<Cw^6LZD{=u7d@CFY_Jx$d7+=R`lMOn>q%kC8SA!8jMh
zP4bX=+s7IM8XPqO=u{sPq5j(H3KIth8A5M2G&^WwKqW7XI`i`ys@`9Acg{#PX<|>D
zf{^SbdF@(ei!~ojA7l^x!P*Z5_i~83koAz)uho9hH6sl{^euhpt9b}}gMvO1w5w>C
z1cCMri8IrOxbWNmde<NZj-(Rws3{jW_lqw-ldAY}RnF*cBb?^OAm$~>A63h^Ju#Gt
zjN%9C!Y?lF49?7>Zjk4cOyFOvN(nrf?Y3`A%gd)?M0JXHCQ=c%^x?Jx(qdwdEd_##
ze_HrK4Xg{7JP_N4WxP_9jP}pO?aSj`mB4t0v*VrSL07=msbt*t=e-tLsn2@IowHav
zNT6ZZ8DzHu==FGe=ZU!P*b4tz@xrb<M?us(Koq*_=$Oq9*`eVHGP^!@kv^0rML{p&
zS-(!(`_YC4xj>4F1lr>UZ)E-J$N6pxKH|L5Ni=S~E*XIm^}*H7cck<E`}bCJYLdZW
z+82-LxiNYDc=2^E>n*~8;KE21pYHu}WwZcXxd%gCssZ`#XvN!e<Y7m9An{6=2c%_W
zWR$z&kZNE(;EIlp79%-;$X$M8?WJpuU0i*Zl1)`N=-RtTZWd~}<H*|3zR5z+^A*pm
z_aX`Xc8*C4@qlv{i{8jH==4%nCswL2?s@c~GKFbynJrCLS=o@VG{m-{T-?t<nqV)m
z{P5v}N-uC@e<~5WP?0mr2*OFE{E>-wx<zph|D%UXqFTXnRD^`+s<Z16uDwaq$@J6I
z7*sNw+-(P#UN2DTW!VD!qZ|9xTm`zx*awMH*}r=$p#!K`el00^`|#nzcZsA@C>o1p
z#$P(Mh3>(Bq4MmAq&{>|Ju{sjpYAEH06D(JDJ-6u0|T$tOKjnE4ne_I)sYgdlP#l=
zr8m6NA}UIH0Y3Ny8%<AwH4@C57Q2Y)8%ccS1l1r$8iZ7kHKdfL1#LvP0U0%c-1*ZC
zB&x4MW0TJC*s5uJb~<^ncQg~oL9Jw$p79p)rbI!>BO?uvHe^RHoh&^1Y}`5%6++c?
z$*}@}vNLm*PSEzuO|?Cu%SlRf*;>S+5}&w$26DMWv`}90e$(Kc0JI5I(eqwPkfB7%
z0mE5E+}u9Srn#;-#yTfmt}Ht$CyDh<Nzj<9mkCY;t0>YV`o5>HPjv?Fk3p`YJ!p!)
z5ls=u_M4_nF$%+JbZ)pcu9T{h5)!{uciygfe|bYIHNRDO0FP0ZwH6Zi%z!yK_=Z%2
zYazW|U0u`Q_Dc0x^DBsII89T=+Q!Li-k}bh`dWV3ehG#f^Q-N+LtBKQ;2wI8j&~50
z^Xut?B2S@12M-RUl0{xI0M$$3QY{{NQdSV26LdujZA$1jHJnD%Ne63ndc9u;1;wLi
ztBnI$pdHwl4{GflL}mMQxpZR%lO>cjR%;r9ZRRa1MGFxLMbsy27n$s|Fxl%$$4Vr>
z_));zL>Kgj3fR2BNzveoSWcWM9G?JLmk9A(ax&}s_s@@Z#E%kH2n5JZ$K7KB`LwJe
za*NE$fqDu!C&?67yVnYrmwI6!O3y$D#N#46&70vHQEA<>n}#{Pv%LVE#ae%=tHTl-
zQd7(B*^jv#g=2%*v~_2%N;4FYJMFu7NfzxeNQdB4zY0jv++yptXMPIc&KPNCsP+T;
zfjuBRQ5x1mkPy%iU;|jh-5005^*n0+*dz1~6hD+wNz|N42lFc(a$@kZY%*;%%T#Mc
zBHj0_lyWY8_=vf)b1p%HB6&Po7G&h-Z)Pb!xC_O_fOdZ_=hrE^Wh|c1Xi33vLe9pq
z0)hxKB`-+3EYyXp_SkiXUVIWa3erRLrXVtfVu}sW%?71MiBBcI@<4+d7OjLGND*`b
zx(;5#kF<Ib-D3fv4h=zMWY7I|0qD9MCzU8T_VJ>urB!y1b3kxE0nx0;Q%7S+rT0i}
zl25PqnR`B*WMFEWI^;+gYk1AIp$rhlHA9q&6O2wkxth)smnCJ<50Lp|9+XyArZ4__
zqh@vky7uy$nLwpX;I~FwoC+^_8s(etis8^|iCA|=CMMM;6(1IbxCNstn!{-16lD_t
z53+$Y?*~6HIA+(?IVwFEcGL1rj|Csm-wQ7egk?k2QvijP=+t1AiAL3k6n=$0E4-p#
zzQ(nbOwRNab)NtAPI4ZpM6H$4P03+4G0`df%!(qZpY9gWJ)CUP2cpNPU^%Mv<Ge_k
z{(9ir{BpZyyejX^XsZ%w8nVOYz(@_2RWmKf`7o5F<H&hvl2EdJaYN&|P_F73ebu|B
z_B=P(j()uG!4?zTT7t|*+d7lexl(2BK+fNx7wkw5H+v`gT!A6tI)9K1!9T_z8zG$^
zu*$>7U6HMJX!?(g9lY&v8P%YD;h&V7+RRg%<Mx>cyARCQCf&MNuq5>ARw#p@kT^3`
z<3HK7XuY4FhR8_gGVR?&?yK+*0}-{^bnOwP=5@%Gymtn!BePx0u^U%(b<J;*;34a(
zmDXG$gspUqnn&svey&~%6NN-c>ak1aa6^9}&vK)0VLR{7@r5nV!04AByk>sjS8vu+
zZ#6_JBqv^*A^C<xEiG>Sit9*V^4N8}#`O|N<}sbRRp^J}FD(P6Dn+<jOwri%@|V^6
z64|pgxIm2{r8GDIOQH9aVS$Jiije3NxXI*^Hf!>Xz~lat_u)1%l<5DV64|p+!$6Ae
zPxrdIKz?g^=qV^rMiBZI!Rg-t;+CZsZ!b&zq;+|z$a>#L?1as1<Nk)G)$i^#i2&Zu
zd=-ycIc$a<yJIka6>BNgFe5$vNZ@nRRQ@j?-52$93uv{BOo9DIUCUokabA#}*gAr4
z>|wnvm^K^qa0Ae88qnhSAi=?6Wv{_a=mAYLmJt?wG})sWtvo;|*w)O1s%57|1n`Zl
ze6bkcI}j&LT7^%FwsHEr4hS&T$iY?PY6)Jp!+Gi|BO~J=%p;3m=vLpMD!qx;z>W`e
zfSX`1`Gy>#YG-zt!^cNlW!&}N@5aQlzl7#`@rcVtapr--(H!rud`p>DRpHN_M;pn$
zhrCbCn>O!gsm`XiQYYkD72}dJfIFz4wwpD9kF%Nobqg5W5KJi1PeUi+vFed%h*OaR
z_Fz{abNderCl6h>XL_EHJ6U#DuU*bF4Z@~L%(LeVZ>2nirf!#8KXf}DY$LULVqkp_
zW?%LD>%7b2^bJKt#cvZnrwY|-T$^(pQqxDxhiI;WD@e__B9qtE%#k1Au=PXd@<d?S
zyEwOs*l%{8{q?M9ueL>d_8VxTPnKPxpK%$ZEoGC0#yz=Ik_i5<gJljG%6C{9OlEcu
z>B=<zrB-4i5OhA$g|B^bYN`Q7rOE)_D_Em-mTT~X?_>G7lydf044^341|<5iRLZTZ
z5e(bKr3opVuxP=yaF5ph#|FHkvW0S_l>XeDjoRcMRowO{X9LZ?9liS4XC*ACU`=gr
zBEJ9@Z5)H**pg)($?%AW93e{d;2AEJgDND0&&OrGM#WA>fEQ7DraI>~OH>TlfWDez
znacyz&LQoO=gkEZ7QK;?+t}~m;7oYPU<8*lx)(yoqpg`+ghRL+P$u?T@MuOovz^l^
z0!zDR*zNW(ICnJDMlhQS0F8o0IUa3qd>6`UVoGq`C3}%Y^~0zsBzYmNaD$DdzUZ~D
zkg{!t`?x((B>97?UWy54YcYz4#H(k?%1*2txP8#BQ~+Up#z$Uwy;90fNHh}u2>ehO
z-j@|vVbjIN9Xn#jE~UulpQdJM;Q&@o&v;O|V&qW+n8p%qFR+#DApT)(#vJv<MI?eY
zu5;rA%^?SYNNXd||LLRt(tEy6aa*3+CVaVT$r*a0X6fSJZWL2Aw}c!fdt?i|%7(CO
zGcwwnKKUO<a|>Ol=J_F3`BeR@rp+lIq}N0&PkknCe!W<}z3bz9eMt$1(xJv6Z+SD<
z%6wQKc#4qA%Tt3Lx0Ueh!=i2FKy@U#@5WiJ)k#Y9LV+1NzJW6D!qK*>wDum;IOX6q
zWJTUFcnx{4uPTT&n(x-$=$hQ0o~O}I1^5zu5aE>JwSxX0EZ{gDMb7Y|;eU_ylB`7|
z5mm6<%RwBUV3yui_VLPsDoQ^QL`I0x-qDpkGZlDX`kLFK+*h%qO7W@+ZcDA5adW|S
zx)L3Ah7Y+q!#Kt+*?=nB7%UDv!@EBjg0be3kobPZG>*1yUeK6)vpf_3%&vMZvi)%6
zbU~*tq4xIrY7wRZUegwN__;k}<fFBZwf0)6xU)cjP(sABPVp<GX$c)jE)*+vg#x2E
zS=*F$bZm9z+_-I$>yEG7HI4#nfAxYzh0EbWz+x{dO?t)(n+)~X_|(nLtE(T?6Sk9s
zhW&-kjOQIOBkBM|-UNh46oRe=w)Rh7V>yD|+7>`7^=7uguN-&Ef`ADHbC!JCEIY_W
z%lEI|>&be0D=G3Q7Gk}{;6%fhmu^uBt40HM&P%!@?Jy~ctj>2^(K*59sOh!rV8us6
zjmCXO<okQod$3O^(;xFaqw>DD+;@p>X};S_ZO!Nim###XmxF)~oFBNguVe!GLJ`w&
z3n&9gts8$|zYfPvuo>@YH`rgu?cE)m+2{+#$pmG=b?y`s(-3HpR}2IN37KkE?QEli
z=Qs8%Cu{3anRyY3cj?1DI0HmnvS(JoH%_#S2N$T4L_qOzm0SnTt~94U<Iv|%!<zNY
z&nYbwcHr6%S02#Lp-|KiXm6+=aK7<dH9@49M(Q5Z+F=oN+U4LG8Og@aVrT?@Ej-Pi
zE_n13(gH`c{fX?!D8m9Clg5e`&0PEBPODD0wLGwP$I%yDViZ5?G;2=i77cqobZ(4R
zNsZtY&+4Z;NY4fkxF{otZo0{3q#Ptm+;|J@CI!~Jo=h#Zfg1h%a2x5lc*PU0MUhjd
zN*4d<@#ECFAdny$JcBAcv_1XMZhWjPcB&1$Xz(Uo2fNJ1t96I@A75zcsgUUagQhw#
zzj~%Q;$z}05!XlCvgCFgKJ!w3*@^l4fHT>989e@TWp%7D^Qi}ZM7O(6+S8YQzkPOU
zy6)Orl&t`m?PAqoT;abn@N!|YoZ~7omj}ZXR?{gx9cGKzAZU5AB`ry}9;9oLl3Pdn
zy1hit;!Rw|RA`<naBb4)PUE-;X7xy>f!fmC_#S&t0x}DXVWXLWA~EyeEbg`PhaWg#
z!ylWKmk#XTPmqr;8Sn)P(wDYbm9x2eDS<Od=S59=T09LMR80>AYj3*wL|0K`K1?yb
zF=|-c(L{}$3>A?4GyXa1?AATs_HmoG@Vp|Cx(>xIO-)XtRdDh-0@<@U+a~rja7hcH
z!>Xhk`yAmhydHhF%xZMgQZDM35raPl6^`G`lJMiV*8gU?n0mXJi@vlzUad*mpR0(5
z&*Bq?0dzb#5iCp?Rv=g#0U1?Q)#$T?v^eA7ar9gjjfnGiusu4`6M1jEy>I2OE}GPV
ztsl0wYRz}aQLqDU+0gCM{o<Sl!vQ)v^YrlyyK&9LPPPL~(!T`gKuUVj3LC?mamy@c
z^ela89MEJvr%?BVjmvzOiUHa{gWCjlqS9G+GV`UTq<C-^%{5?)RszvfLS?*-9@)(2
zEiOS~<=~iWX+_2K;xSQ!Dw<cXUg<QfAQx3U*dsDv;{p8k=J}UYtqjxF!xjYvt~>f5
z1o4ujVII5xrn0Oo#d8k5@0($JGtuQ=51JPC96ehB;|E7XRMa;rIcF_hU0pvA1(gV$
z*fub12a?(?Ttaf(wn%c}YPK%qwyg{f&uPIYRS8W}o46>VU!R<uB#4OOgIXmjDk}O&
zzY*vOG+k1`roHrBA*3K15M}$UDhe^!q2|)^(Nf2H<a_e=^toSO_NZB&HLm{_r<vEX
z*v8GxU72+2OK$#L`<!FAwj(Un74^|_mEeymiHQtXQGjWG$fZTZ%D{xAZ25vtRKzfc
zBX62yvwN&_4*P)58V<1=Ag?&lX=$!SZ|_y`-ZcJnAN~CdIxG-AtDn0sg<%<<5Vy6}
z6Cq8gA_JL07L4{^_7OlOeg!s~X$Oxdw2t3cAP@)05|+}{cO@CEqnaVUiJKBRi#>4E
zo~dUIo5q3M@)A1NsS;?UPU%1W)Ar1wui%1aGkwHe@D}w*L)48hSsO^2)+TPYwzi+F
z$IzB|>tfJp#Ci=RQ~9(LBR6-d{Lv7XS^xCTpffv*Q)N&M$y^2(=pOCwC(Om~I5RNq
zflXNHxCW`<QT3I4g>Wqo&JX)P-qX}_neic?6<RvS!I7xGa<~GyF#c?t+s&yG?n2hn
z;ZA~R&nrSiI}Mz^JlVrh=TZY_1?xU43BG)Cj?J+C$}-Brt}M~Iy1IBrj{N!eP5CLs
z>modJkB&G?VQY*+ESK9Dfs{H4{XmcKebp|wO_rY8=M{~r{K0d0LHrRZku~At=Yt0i
zK5R2zT{Xoh+ugFFgS$9mP{HB8tcEA<kgNk-MFp!fiH`7XmAh2zqZb=UZ_=E~A;=-5
zpNrr7UM(R;<NhpKe&*%Xgb|T&w86q>N<4I>(T$)+y$bL086xH%Qdfb@<HaM8Lx<9-
za~Obj3&#UJWhdwhMOWv;n!-M;dO&jvah`leE_zvYIN18yX4Ti<rW7V88lcV&Cc3Sd
zRO@IsPZXh?#uBPq$dc&%k3Ve2+V~9x#|AG5WkpKDv2_o~Vkk3#Qw$9<N#5CIfeT>F
zWJA>7pmW|M#0QCv=;$@%0Ur`+e;ONE03$~eOMDal)#9OFn_-zIT*t0nmXKAA0EjiG
zd=zy<KRlmyM-q?3?b`q-uBJ3NIOrP5WjS{R#H@?Vi33sve_Df%Roju{z%E1i{QB4^
z1la;>(zQUont;tG{4neSjZEPL8-r5K_!RgUm4cGm+S=U1VLJ#KyD@Nt1Cm^|gX$j+
z*hV~hWv{K8yk1`ynfkjw2o7^h2Av+*_!N<ykC_TPRc)5i&fIEn;B`co%l25g7XFC1
zqFY4hzg$=T>!L^pD)@F0=}f=E@77rMFuV27N0b2|T2XSYLbt9&FjqqN@0;>IuTyqz
zyEQIFA4cH_+-@cjkq&kEtu?)lFUd9T%QX|U8{;8n!i>P|VX1+|PcyNxRpx>$I3e6e
zRkbg-_XX?(4#Mx(FmAKyHnCHP51~Fk;CiO967=#lk%h0}A3pfMetnQQ0nD{kfPaoN
zI*|`CZrFZR>{m8i3H})G@dJ_N5AD(qC<UIDV|7{92HdX8_Nl<nvNqbcHkq55nPrJZ
zyTI)u(kciz?+;aE5PD@a{A{4{{z7wp4kA8pxi1IDOjLoWNn;!*@o%grHvl0MFK+{3
zUEFzu>+2cSv~T?bCCDU4CG{ctZ)lx$rg2*z6ftW~DIy49)YG#}klhHD6%<PV<fFId
z1uJKNED#_>f(z3+<`VrQDh8O~IA5-)PxpvA5*Zea;90aJ=P;OAAEQv-2H8>{<YJ?+
z#+%byF5C!qoggR|qB_Yz=^?5SLR9<l?qkN7@Y6CjenM(n8BWwHn_SpDiJ(0q3EC!M
zn{q<W){g61gm3YaEv#I|@bhaEq6W6PIhc3?@eE?$Ex>YbhPtRQX3a{TTfi`yUQxbb
z&3i7oDVUNb9P&a0Y|0@0tZ|y>PCO>+GqJS9Z^J=OX#K<unjY`$bcQ$dytv$wRkql#
z$CKN8ojS3Y{MLPbt!6ou^>He7NbG*t5^oDuM$JV+w4cgLqd@B;*b#S}5m$WKBft|j
zMs=36=Ts25LLX_N5B%tfxn@+0`0*dt*Jt)D9E*;08!&I*dmrwyLe;<Yps{Gi`u#y+
zksT!DP^)^|w7)7y)4gH?^HESjux2rHbIU=@ghMKiMUVldWd0LD@g3K%kGk<CV1F+v
zZ9<RX-GK~Dk`eO~Aj*b-TJ)X}rgl-n2zb|T666#!1`-fvuxi43MswU)c;YLZ$b@K!
zQ1PK5Si|KL#DK516wq7TWl`1?duEHX7(w$P)W5T)EdwZ;2_qJG<6a8uU+*vYJ@{=O
zj1uzrA3njNt^dPG_<#ELf0ca@XGgsL_g#z%(IXU}F@OZ3+Yn2knrRk9c+fBxLYRvP
z<JupM#DEFdEJ8CU8ejq!5ra0EeU!y4as!q`bL=AqxT2wIY&tUqi`*b62G+TMCU!v9
z1ZguB=77!5`}KLp2iGyHtc{I?sS4FdVW^+5m|)m4=ED_V!Z$@Y4IpEc)A(|V!Tn`;
z<ew{~V2<^Z{8e015{p9;T<0B#Q!syPVBGI^wIc`+f@($by;F0UG8%{>rTI4avU(&|
z_;2~*HF6Y*K}<6o&8p-as6IltJY(nb@28*E-=C|bVdImKJ;XBXA|@s#F@usD0SPa+
zo_yfI0Rll2Oq99X(p!<G5pGQKCaQ<o!$sxZcBce%6%^tZ%1faVl9I`beb@q={47~0
zsAxVO_4oA1Tk-r<`XF@(EbbMS{0L$!f&cxlE9;|9z6?NAr9Um?tuFnf9G=t0TpiI!
zOIis8`K;z}?EgrqbJ5s1W~MzPC`hBU=3!^E1qTxY12dQtl02phK7al!<;lEEB9So7
zaa<B7vTLzkh3EN<Q;mM=X;?}~Ac8ScsZ_e}QK!ExM`P5Di@0AtgcqH$Nc#RcS)3<h
zv_17BH1r_5Qc3hImAzI9i*BCXU0reEq`JYK0=!~8lhR{Kwr=A0`wgflDJfs|`}z49
z26g*ebY8k&sh?U^^V8z1?)@eg*J3}vwVfZnFS}Tu?Ql;no?6zP;r8(I@>+1ZAzR_*
zne58ps2Pc+Wg;g_`LGz&+ZAv=#!&hXj{{k^K5%~KzTxjD`jX?!zg_@8<!9c%SLyCK
zv0s~$F$gLt3q~wXT)$ig%IYGz7@~V4cskSwC4@1|DDE#;H!cIWEV%TPO<8u7bvf+D
z&gWcH8l9ABuw<GNIz_%gO8z>PeTH9(OYwCsrH<vM#D3c|u8)J|76W(nQ^n4`k5m>a
zNF5b;(O@lfw185lve_ai*t8Q7`FhK?4hqar6QLzp3n!_3Xol<Rf`N%3(wD!#KQtNQ
zzi4D8HS2wgQvmoTm@E>RLpQDgznk-;t{stxba~sY`wn4%6$_wXOSR9(&yQ+~zOmg}
zyf}s1Qp(>#;OJNp+F6s1LS>t?ZSKjgL5k6`jD2KIe*Uc5H9uOTvGmQ_Dsfto@Q-u4
zc^Z7qqjHz4*+B80ZkwhkhLBca9~uTk8){CC41n)H!4`r#A$DLMLkx<tJYvnt+8XMO
zK;A;%+ZHgB#a?uYgut?}K8B1N|5adrt_YP54=!~Dy#le#Fgl<<mH`z(ZpZ)tf9QL1
z7<>M_HVm86a0w_veMa3H&kVvgT+nEqCtYEWo^H@ZHyS7Y1EQDqSh9s=BeRK)2mZmr
zAMgv~pfR!^=9TW(4SJONqzO}=wB)1V<lp#ZN;7VxbB8xBYvm(lm=?|!hE4`c4zW~7
zX3Aa#B|`<BRS`~{Zz#(IUyWV1L(l|D&fBsSQiUNG8KPVfUPW4`k>sb9r&^<K&=c2<
zo!f-=Y$KCBR4!1_fcYsYDJS=7e}g^u)=D>*pr9brS}J1nm}JqKeZt79CwhxbCXO$F
z{?L8Lkm$D;5QdlJe3)MSmc2BAK;qZzbqx$k+T0qkX9xlwzgp^E<WvKzHe^83^H=*I
z)%eidm=D@Dr%jX`2HP{5k!RmtCCIDrE(Vt~!8&lB@tU4LfBqiUgcbQA7SA!@-6aiR
zB+WFWv!Xd2n82(!z8(<*A>eijhDm|!W1UE1fs(fi-2;W&O51^96bZ%<4Nor9jMqbV
zc33dMu_r&JCEVV4{XKG`aA|EydJOX^s&Jpx8>xiaK*J|#yKxc~mw5dwIk<~OW{j|1
zfF!T>QPPYCsGLn>u;b?9A}mUhEORH#{&_D&m8QYUR!wq`8Sv)}K#kAoteiW8vNMBq
z;!xDs)5kG)62PhRnBaKfLmMWDA=Ny`^wrL_B{x!dY(lmaOk|ox*N7*F;Ppv`QD5v=
zUw?lrn!`q?xszH%uMCf@&Wba92F7q?%&em6TQ?!XIP6**pV=`qM}-<z52NJx3^#`P
zBI^dNi&S+y2%QJOX5KUveneu+y-X#b0$z7(QI=Q_B}UPX^xso_eXe-klwMgw3u9Q(
zu#XuME=QOf34<bTH6i0*%;`ELJE%qxA3uKNO8@uqAhJ6d?LmzITjg>!nE<F{4P~K&
zQNgs~Y)%1zP+%EpV%GlWuoPRLq`L0@57eOe|Ly$2?{oUk0EEJa6yk32wV$O~x+<e{
zveC8SzIyZRA~$hzS=saNmJEYss_8z4?p_1y#Xc}=9f74*Jsce@v*BYA^hok+o88=S
zRXSnhFXB-0`y&j0AM(F$#^Uz@|FdiS{|#3A-yBa_^U4$S@`}ly6I~VI_Ak}l^Kj#~
z;}V4_^eInSw{JCcmxyW1ZrBxf`*|8mm(6LG#+U~8?SHDVs&9(F|D!h6=kmep@65Jt
z{d`&b#J7_VZ@==d@b9Es=3>&lMGEx)DXmE^q4z2&4YbbhB=hqda7_hsck0M(`u8C@
zH~*6_#r~q&S)9F<$Fp<X7g^tE*X|OpkVAeEN4`j%Jk^m|^ViNJk55Q$-~8ZtN#x^*
zq!$yefl?C%FRuRN6F!nLL9$y7)h-YnS`qsUvz>yim2v%2uX<WRSu2&7+r`tXUUGva
zrnk4343?(6@bO}$ppe<TEt#F-1?A4ouuL4Tquzhuz(tNb&LW+X6Q9eC2~AhVbLH4J
zJk163Y^3nNj~{mn+(hRCEsBwW#;Ij$X=VGSjhqSJ9DT?|_Chir=*XArc)G2QLWXHG
z%Vel3l6W4uCMObdO|NPoc*o;g-?}FxjH&yz9UQVSC#<9HJ>w}#+098YV=okH@fWRE
zT{ro12${0`d7NEJko%!T-whOe{(FBFZ>ZzJa}{WCg8TPh2$jW&spp@MqG2g=1n?pr
zV{?;@gTt%bR9aGUTb}ofW1i&#6D;ov{FL3Nzmh!jykE>&*Noae>G-y|vih;DIKqNm
zOwPzC`gz#0dDBmehZjEleSEKPiIKLpwvTl(phfW^6%JnB^s+1}FFNL|_Oa@7?OhXm
zkPt21*d2v}tFs2C7UWe`sp}lKVovH5eZJc7=Oa;^z5MCl1o+=y{*z+<`#${7-Upw(
z!yDuF@7!zyWx)l8LPGW+9zX;3j(`o&kKB|^Y51)!VSKd_O;{XQ(^&NL>rb;VtUeCy
zR;+=tGy^se;>B~-^1v^%wvRVp#ZH|4XcTZOehp7%AtrC5Q<gykrNc){81x7jg1vuK
zUX7vkH`=JaQ&hQk7e+}4AU2jeB~uwBsDwl9a%#szb1*Ti5MeX~0N(_4muOOrs{;9l
zszV=uP7lT8Ld<!a%PFS+oCd{JwYE*U27#832_ZqlqVP{*iW~NsFPe6M|41PM7%9I4
zO0m3q;@e+4fxA@+&t#xXB)FDHh;vOj2@)9uIf2(ZBlov=GehqezUv@dR<!_ODyFU&
zk|415y6|dWoA&#?6jw!l2xD-ytgMVd5?yq>r9U3TAV->pfECDN`Wx~5-PWcX9}2yI
zL6Ug504DWblmoS1A+3(Dt#as_I^}8px$z!#zmKnP`ClH64TmKk-wKqUxpYCutaGCE
zpjWH%k&<X(-bdZ9O)p)%<V1J&QNb;_)?)jW0{i8&#i{lyM->|nX6&Q5``B=D0|v>(
z8CR&%8X1U2wP$MK;MPsXyG-btXWdqs+=z#T@mA#!riCY>%O~Oj-iLytPG&#x9ybGU
zTw6ozl7kSfgHW)t@4g!tfWVKsAivTM?>`Bv+letUU~qW#+B18f;9%NUuHC1P8#c!I
zr;y}y8VkyMpD$SxJ(A{}T~e5GkbBL+@siX1+ILW2>Q*;UL`lA)dtW#{cZGylFwuyx
z8c+>!8}PnOh_u8jVEIt)wrwT0=ZloHc%y}Q?tj_m%4DY33Ry)CI<;}2FHA0wT#|;L
zZ;Grtl1<Ihn0`sBsFRy&XQP1n<Dest_bq-Z<f;6){HYL0w<`7T<L_?%MTKl%l4a-?
z=pL1bEc|LJ$hu}V;Byw$_!=cEUF3u#yP}B9wa3=UBI8>&P&|FZME6TyS66}rwM1!{
z3x*ydzi+d%-yGW-%wr@QKb5PQNK6mfYIwi&_C5j3JNUi&V6yAaL)(B<U)~vcq!%}5
z#{d<(nsXRgTweYl&H!W3`xmpFEG?6rMYKFvQ#AGU^_lOSW@dhxb8h(Yt%v!p)LS=o
zO{(9?X%9`5^7ZkF#^WncCB}96D7y#S_@Mp^>8(c14qEVC`0@#~LM#RyVpha2qNEt|
z(Iqxv50j{rbo1)#>#JW%!@d`49#ZrQt>7a~os#agow#Atw3Xv?PaZ#YKSk>$9vxls
zIP^3d+pavf=RWpy8+TCLymoc9yX5&hI5_`EckNn%k@N})hWr0(xK~zGylx$R!!QbO
zUa=mbB1>ZG<%eY5*?$(1f@k4w(_cG@nIF<L#$3W$mTPNe^HyeCN#QVE&4nBN$8tM=
zVwEJG7Pj+CHAo*kS>|)K@?B!!2kstuP0a*A_-L?U4UHO5M2WdJJaz8V<iE-19lNFV
zD_&eU#&()QJ6X*pXV8=w!*vx}g6%E?X4XNWu@dqNF^`Qd#0aDX9(r@jX8}wy#t_;S
zbP6Jj8Xe|_ivMFj+dO-FS4lSh99QhJy{TR07#euOGf3$BkSglnGJQulU;cSIm&CwW
z&aQp`BO7WU8#)Tn!l@8<!&FyK&j_3?9ttM?eR$_F0eNudFC<!j-=yo5#s89-6mL)d
z_m{+N`TyO0ka}vff#Q0hz4bj0wvfwlD_l=5x|Sr9(>LC`OH+9B>*Ds^dD4aX{bF&y
z>CR_&DL<9={Ftj9JGRfHV|h*V#tr4Y@xkjM@%Mq^z5f=K{|vnUKcf5pl{c&d^L{Xt
z{{Bbms8N#)1z-_;>~pE3G^v2T@Gp;QJlf2&^z57L_DS))rf(8bQY696OG%Sie%{{u
zW>&*6F<ZQn1vV0o#XI!H_~e(L^Al6OP^3V%iswBpTWTHyd+p=@dVlIFIH;~w^=W${
ztDJVuI3_NZ5O)w*XfxLTVXl))7s>9+%AT1#+4&dB7McOhxXl!IUme(B9=H`9z$kQ*
zhnhD7B98c)@7=%ORY*fS4=0IlelA3Ye`V?s*<H+2={NGFY=gNFZRGxbZJ{U{3BQQb
zbv!!CFIG@qqv%fgtUaD^3{(`M)R_sSHM;s!-D7Ue{qe1@D{DIkOJ2?))3R=<0;zLm
zt9|!fqW~5bmgh#hFgg)RNz9d4E^H3%GA23&Wo4>v<G6mStP4uc!25nQa*sO`?Xw~h
z;^L$`sAx`si43Jk!y`ZwE?5tKKid4<nse{guf16VwmBD-Mi-q$4pCB;d^|Z!*fQ7I
zWK~rbbR{#?U4w1R?CgrS9PX@*3()K)oba;C!R|hZ@8%YqSx%pRW_h{s%GIm89z6gj
zKDpH0>%=2UJif;8X!m;a5E@&K7y2V%S}&M?8IL)+;At3WB3Oc#z$W<rnxOxkf4(2w
z@b9Bl|NF~-?#X}geUQHpw}WDDgqKoTvZ3wQfISidx2ZxqkFDp8*^$H_l?Cp~ShP>H
z2`Y2>8})lMt*Lx8TQ||qw}_GS_fUmP`{tDCv~KqrxW{qsQd*~>sZMLpLE)PI5o51{
z)%LYPItM}eM)Tg$S0{5`&|9?(K9<Y5L?oh<kM2??ZKF4o%1?PZyRSJ@Sd^=5<;F02
z%D`Obh-j-i51S+VbT&U=;r=6;{mcG*)m53^^W0_`HFPB<Cn=8Sb6)z5YAODUZ`l7z
z#1c36DQ`h%BFs8maeCI));6#pG{ml;fL{mqDj!rXgn^R9X0oedqV4Z)=3VKQToTao
zXVtN^I+<9z*20^=9*%B#Q0SQXZ^sR|Z<D1Ci9scPYHqwUQOzvt^5a`k*Fr>gjr9}b
zj_@qC{h0avfj{g$3Y|6*PFM!QyKR=4Q#i^;Gh+OE4>q2(iM#k0RXqmD8K1?P|Nf=G
zJ6r9ClOVSEynf9L8!E7hmks~#U%7ty72ShOcId!948-$7xORr!FwMhbOcx<OM-%g-
zWfc|jAe9MM{S2n$YX0p(3<I{>o7|9<C7#72K_Z@$CzhEB>qPZ5X4%u-)?5iMF2)Ay
zVfeN9JmCV%ize|TBi<_F8OSik=8H9br}DWt1VmYsMEYiphX{a*bS%(2eVXN&W1{y@
z+Z-R+FCu4Tq+fGvM(=`#Nr;nA2ALk>keB0H4OFtdudF!(fKz)W?6ox>_p;DMqQl@!
zEF8lmo{vu;b?T}HyV5H@O0c@?KM&agYY1l?g9y9<(v=5dMGPWY_l6nADYcsX2>-)L
z`}$Q~21dr9Ukhibc8Wz)Q&4;s|D@)Q$xmfcedM(evAhLLsx`tHQIF>+K(;RXYbWli
zA^a+Y!U|D>iFn3rfPjs0(CGY%D;_u5ATX}$80N^;u>W-O_hS3j#EA^y67HS!eXUf(
zt6}#{(+cc6^9_G2Fim#3EQLoTzwlP9%c3%0N{<*d+KxUAS@nmmuEQq)e;Iq;m}Bs(
zvy#H0SBRz8C2AEIdm-l!;2E04Tmm8Oz@jJvBb*$-rHSb&disk5c(l~SoS$^vZTX-V
zy%x)Sf!1**&t5B=>j>rf?cDr;ckBy@Iq$>6-8|G?E=O6nY(fc4sB+(a_14j_Ql6{9
z<|p5srit{)<fL7DT=UQA`81hhfBzrsy=PFBS=TL!ZEhnfiYTCf2@pgHk_`j_0ZD=c
zQ4l2~lC#|^B2f`UMMRMt1te~Qt-w|gRI)?`$w_h&xMOYfec$udty|~Et#iI}>r&m-
zEp9gZd7icAnsbaX$9%%Q!BOXx@pE*3LN;toy1i@4Ws6}078D-No7I?vhDWKyaF8^x
zD{_Zc?FA%%eIiR+ay>8naLy-YX>2M6_0Z>kzm~%x2btlWvTZV?=;2uY#}Z}<*Q332
zJBo|FL;Bc%x_kIh6TgiXmkT}!3W`0tq6@b_debI<@eEeHF1f{4j{3&SJ4NY1NJt-i
zFbKwHnI$@=VS<DnePN`M2?`4ORM)&_&6<u;X^*Q997Tk{-v)L24NBM^-TD0Dg`e()
z_(nv72S3N&y`BZdIO^g910A>T??G`BhZle;?3kPd3YgCfNaLDD{--EdwaV0J@orpI
zJvEaA=f)K^QZh$}658BWanoHF7gowUHRqUrp0w@|1`C8+A~f%fJpC?c(BC7+F6$5f
zU0-8;N%;TlIncS};IDl-n=1A-?68r%v6p8sm!>H!H3$L$7(^JJk=4C}+}l<y8$(aC
zTp+q9w+_!kOM<FV!{PU~W__?Sk94a*s7iV-)-fJB7HA7WD`{gu0+Nfi&J6f4B~UUx
z5F@COk!yreg98WsfLUvS8}VD?h(lDMANUoij{U?Z3ikJ7o$}HDd4dSRP&eD6ulRtl
z@VUS-$O-hCDGr*56d9M^2R`(rXof%urx$435v=K%@e{gte&;b`@gJ|3)^w6SJHo#g
z%uVQEi`-(Fbj~M&1(5poa+TY!JbC`)$<8(Lzi6&cL0azjGunyO5m2Ezgp+45o$1Ef
zsU@0qtnd9oLYgQ*iMG$K(IQLwr}vl5D1<*j8pI(70peOS<|=-MRm)HUp0_xU0J*~|
z?>X^8tQ`lx6#+G*VB&>ecTQ1TD*0=Y+=&x^<HkngS((9~$9d}8?cfIw_F^faYnTh^
zC}1p_pbqtaQd+zgNH7kfU0c`OOyNW95rCq!*|FV^*zE!~>OfX}|NaXoZHSZd4E#f3
zpjjj{`OBs1S<js*hCBhdQG7<BY6}>R*v&rYb82-N63>T#NnSyr3Q`0C$gJQwA)AzZ
zk6qRj4BEK%6-dIEL~M<dMxl330#aj!a@FtPhF@0`@72JN#{lFB_8qany|nR!H7v93
z;bj4#LM%*5@$M;v2!lP@?uI?TFyZS5r4G_ysHYzDPUtg$Z_PY$cjZ7Ifx^OE>p~K)
zpV(|8qb004M^F7!CVT`x6QOI;;a>;OYe6=qACIHsNce=_aEe;}?Y9;HIp!lmP@_Qr
zD|qephz$}`#~_5RgZ)PEqelm5-DH3ZQh?KWHcX>sXyf~Tz3l_G!z+f+`UIX%Onl@W
zJK9CgbXx~dU*Js9fp<>=y4L#4+tK~BUeT)l<?c;Jzb`B49Lo=XCINZyn+YRYkS6iF
z&DavvBFu0uW~ey{SMeWABCQs5*BwDI80ww4!RSffw~6lcSwy-8xb1pITS0o<Y)xer
z8F*F2R9%a8tdmem`vuS5uR@lC9N%vHy1)kyw*LOP#tgF<$X@j!s7H5-DpL&->~!vU
zGH`+JdUVW(wfj?I57ipoj5=wWtLq=zyoQCY&9h_45Cr#AB8y98-(L$`7<wnhS&MRg
zUw#mEc&P1&18oIey?+O*AN}C3>pNzv<-R<H11r@t`hH;V{8*Ai*{{E%bH6mrkOy-a
z6&#~jk)+e>$<=8X@ZWmS3McNG4)SU6b*w2(>?>^ROpIp`Uc|qRz<b)p*cqzwvmw9p
zH0!dF>yrant?Lyb#p&6nTY#q1=RH72sJ+(~--T|MC2loo)_C6I>+8FjCmi?V@jTpF
zl6Zb?Yr3`vxJIb;Jj|P{+d9|1jkVVM^~1-SHziuaChh?!m-`%u5bxWEt8?;Nhc+l)
zxqMk$Z#`buc1G@*ZgKE=S?z;-#_>f?{RX#y3I#hWu-AoD#o3048Vum$?kd2?fOq_%
zEk7*5HkUF|1inD8Xgt%O{xLImC*G&%`Q%7pl>#NRICrhWT8o;q?aF=heTVTk7t|hX
z_<R?JyN{p3k7#v>$Jl4tlU2~Gq|ttmd{!?VgjvM!wd=}$pzpW`9k?2Y7!$4WJGxBa
zB^by7F&t6y{*U(se$ssqTdkjyKvO*l&FDh-gy?1E1|=`qXK=QNh2YKefeU;Lfs0!H
z%GaLVIjpEgq*~98-!Ofm4@3(V;w1V(k^r5wDh~efGW~f~2=8jpZIh6+8OVI+qbu>q
zCl4#8|C1pQX;s~iCXjpZk|DhvUDvRYLmCIrDCr(dh5DBhhc>LJohS8lLXYvElUR|$
z;m0DbP29?e1)>~j@w7wFd2Q}bv^6A~CFktj6h&?Y-SxeIqNRz32M#@dn~oB@D>N?<
zGa3yR^f9TyH5ERy+;T)AOw2YPTQPc~?b{>_zMVv8!viZ_=en9t1uE${j;7ycPsg_o
zrC8@&txHiRpT&K-)h+0N^k9>(7|iDs5E2@i0ED~;M~_=%DeW`RDW2K2@e@=EHF(J2
zA7V=LE*y#_4XXGQL_0$yfo*LDkD?DCmB-0ojAm@ukc57}sve+3?mAMHUNqmOOlsu$
z4eX%v-*%77k;@kTQfTYX1y1|Rfqwao;{@{uj=aXNX7Pl)5QPmOOJW#6$$f7R#eX0@
z4bUHQ;Fbb(Jb((DpBHU;NN+wt^nif`Uzr*O*PcZ0XKZreymOLP>Ip!4>nO=36MmjL
zsRq)C3Uq92oUF@%pU;iONY=m~G6B7i%FrY1ZCVTrv~~`;O7!EZTC`xRvda->B7Rxo
zI3GM><tia-)l3;@s>(8X45S4AWbhnunJ~|3wmhhp`>G)ifHv&vq%jTS40@X(x{iRn
zw<no0SP3G-%)$oWgzhyE&np5XBm8Go(DYu1NOrDIgh=JF9AXfs042zYJHxvKUVOxU
zu-1+<;1<QEOUZBh5gD>Lm6hutWO;=Xkh2Ui`8b-dA>RohezJRCd4PItK}RZQ+3h3e
zEsxICYMz`}euh=IZ}AvwlZUbgH!>0pD93O})^x@Yzi@n~`s<D;9Eb@>E@!^qSGL7r
z__EH-ymcSbsKCZm?}jG17}uV4aYgo&izag7i`fek1$<bj_Cs+;=j58P7`Gn9Aq88r
zICNSN7iO#ha?)d;^+1K9iN?N!=6Vzarlmm#$Ra|)5{18f-#2cG+vALyhV;s!VWd{e
zrC2K)gGw}!jE|vPe?Kg_At@xQ8!b@J;Ix$1Fn`p&k;~n`b>+SWhw&bvoqk`o9dp~b
zIIZS-cAE3Jsaz%USF<M`2nGs)@b*Z71ghFe`idS9>w|L0Bm>@@r^Xlb!KZ&Fgsf=v
z?3>_78<}=RcsQS;iGGdGutSPpXEcnqBr_;y@ZgEBDYDy3kE2~B!eMQj3`?n)hNJ($
zlal6#McxE=gY)3QU?5e<p3r~{vWFie9RmYHjW)3WwnN{kDeeb;4OX)=6zd#vFy|i{
z!+lZ+g#B3xwi`fpxj?u-B>+d8nJ(saS4nZ(Vp;et%|M^-+pb^8v~>sUYVL7BMweeQ
z4S0*(cMf8iUHbmL3YuaBU^$tOej4KIt2H;){{<8noCt60g=)CfX%-(^3jOw3Z0e3{
zIhPm-6IcV+HKGlsp;yyTClSIgkXTO;|6r`Ykc*5s<%zE^l+Vw@e}3Qh+zzreel#FJ
z*=_=PJy?flVk`k`-=0CWM7*g$WW_~BN)hdUQU>%xdI}G?RbVHBSE#B6S{6)SE`KVn
z6NtC?&RM2;^Mhah0X?_bBp;30KUT>W{n3KWg;qZ^bhVPnFiN5W{7@53-;`X8Req^N
zenn!onciizw~?G1sSukSG1Wu&W&(n%3>@jsAg3loMD3T4@PFlub6=7|?g2grM~$$h
zr4ea6;OIfQo&%vdbFBzEse?=&=c0y3X{z3Sm^5|nks~QjMi}(_)r_?*@GT0AgaK6?
z3YNsjy>Cn1lNz=iJIc0+oRWHoYE@8xkE7#_<aorB@)ZjE&BVVEU;HJg7<S8{SdX{K
zL9O41JWUf?H$wXozc<9NU=B36N)x+aw6U7$6~Y!GP<<$6Q0KFQ8x+Z8#t<%;Ny0Vz
zyvu+9Vw6LM|59E0Lz*}5ev8ePpCWYcwe<8-NrvO2(Da*H#27I8w8JrhIGhAV;*D?V
zX=W$(*TuUnxyk-d?}{~l{%KpX{Yoq-t}!jtFK{x^Ck6}6%(Rbui~+kM5H;o-Z4A=U
zyAo#iphBdN8@(lR=ya$|aUbU*uIsd6G()ZW?ZIIT1KYN470j;noY2z;+<=uv;fDzT
zEIsu}?+yntl5S$zOU@ct6@MCm1o1BM4dLvU;C!Q8#jotRH0Ri^GktllUcJ)pLJr-H
z&I{jn*%@ai%xVhg-duEgJ&S_j)|+O8Pg4jFO(F2FX{LQ#x@yQy-t~=_4owOf&%rE+
z{8~g&B)WG=GdO~mX&G8#H4iby6_}}MYSp6&37=9Ku2!E>btR!zGKH^<GaS!oQ4ZrE
zG^zf~C+$v2uE_ru%lLK@Uf?whn!5B8&QvZ=PE~M+exsa!SD`{)k;Uq_xE#1yBff#F
zUaeRNr^lNV+DF?J&spLtj)eP0W321wOF%D7A;beIvZ1iS%B~f>V>AF`GhGLCV(v3<
z#a+TGs)N1$7;+;ML?UqKq?$Te_QbkmdtfBV@AVw;#P-P12J-Y(M`l|8?IxjbeAM^U
zcg26-ED9bv82)CC#o{8OBQd=qkYfP#)jt-lv^>*0RW*QQrSgFlVxu2cOsa(!tb0o~
z&z>4FOEWA`xQj+PPdXrK$;UtL(S^V~FcSHbF`$x*8Ar_P56M-+p^^+AaIRDNhKWZB
z)>=1it=Wb*6z<vy65=*XN_KB%>RZ9;tkztu4BqQkwOD@Ov=HPUuoX$NWTD-mXG)mv
zaaVn|CXw)a#9|g3tp^OKMzZG|iq=<`-fvpB{je0RGUkM2r^KGKAw~IhV|{@Y&Fq;t
zLc^Xzj#}b02f2d4)vvF$Z$~-84(Sz4*yga&SC5-Kjz;-S#(~I5dgfN9ej3~0F?A!-
zQ0S%$L<uJ~H?RC-3GR&!kx?AJc@jtow6lD2)Z_?vjA=;lRqh{m&amq{OH6QxYj@Ht
zF}|t7#G}ooja{RJ*v$Rrxr0NFIE*E5>sv1$hYwEm*NehTl~#I*Bv_yzLSP*EWNWx$
z`(jFO?1gSp{lGDd%BntE2<n3TupMr9JW_eY-otB8dR`<5B#J>u`qlB&$5Eu!Hhd(2
zr5pxaSk`9<WDcQqMUi-c;^NU+?E?K+OjR5j0=Zzvjj33&esh-aY)5lt5?oHU^;Y%R
z#$$01jVIcYB8f4jM(ra(i^s&P6U0a#-bYhj-WyRHRXuTNL@`#_z>q==jL5tVB!qLl
znuV&)&d$cOSkdTd6~gI}QG1b>qvy`Pr=K7~uTC>k*zWlpzAbuayb6p&L*psPJW|qr
zTDgzzkgG(yYX|U3==PEAp*v-^$m6cem<!w4{x!RHqDa8;vPKbx`INIli%HFy800Up
zKv=Y42hc6^BN(03r*QC9!P++%nJvTuFeQFJU{3~%%nVq0Bw!htpr<Uuea`}LSOTWO
zq+7@6L(^sx^HvDV8jx-d0%Q%lR(b#}2Slq%hQ|;<kcgdATcMuqhQPKGhL*ADgVuml
z1}87jgIEY_Vu<3N^4G(~>1-L+?J@+vAea?&97@6+Tbj`vMASV*;%>zJ_7HK7F~;FF
z13%gnAbzDiw#Xe6N!J_t?~~A1VTOjSjKLQK(k7{5a>0x#akd?>H-pPFNn>nbEv2c0
zn%$B-JUG#+0!u#q*Rf;nh5CRXpGeBxm=&kznpnPZJ-b%x3-PtMT{T7_deLyGwm>;|
zUfDKQGNrDu+xjvS7obk~jZ~(l1Xc52_G>0)d-y{HT8;^b*!Q69q2v+h45fyS7`2FG
zG`ubGQGQ?lQe?&QbG(injLUhaoT_IbMNr2Y!9EJ|dadSqT0^&H7c(WU2ylx5q<=_L
zK|t=2gM>q%V0S8oP?LN1$cappyz3g3&i6E{%})u`wmfYh<gxwGse_yEM>NE|{YDb&
zJ<JprM+m~zXG0=|=F=5;2O74HyR%<3PRL~P&<=>541N5VGl0t8Q~%J<Z(82$q+V*L
zcrf*SU&*$W>(54)>2;(g$!_Rt;gz_fB3)}5@+5v?P-pJXV$BhI<IjW4e6jDGL%u(W
z;FBCU+jSUEGUV;WX**SVddMU(B_m8Wz_@K@gMprsR%e*#>4Rc&0F=@r^8taKgs{67
zoJIuxtqc_8(s_B|ujKp*?YYtLg=+Nqa$6N1AUP8eNuki)&(6+X+d-FkaoQsqVro*m
z28fM#LA?^8rX(y)Y<9`81T?N=8cksZD=i{kFCm6q7$@)?nu&An-v~tkR4V}+;HG8t
za=O&O3wAfaN~DbR6xQ|CAkTbzUa}=wa1n0!++`~=j-YoA0*f%xu@i=a<3UC~GCQ=}
z^sp{W-L^>XU9qvyaqA-1Vci28hYZL}v{Kf5RN`P<OZ*Xt+$ShB)a)FE?$enE`u||)
z6H`LyGTP^h6+(PLO{LuseUWhn=hZ=r&2&s}N3Lf9_Bt!HdhsHTPL>O`7UeE`{eUsz
z7r;el?tT5Y6}@@s$ZjT6I6=k3!3_sDP3XetXZh=;yOO23zph(x!x`au98I~Ta;WLl
za71xVpmI4H!gzOM@Q2@RQs%sDCh@o%XyG2isqysc7wCORuTv0>r$JwaK8O4-aOZmV
z=6igODX4MIWV;~V_M(OT?pqZbP52|ORzy<@=ca$bJGy{(Nb^?`PF@^rXkj6Sry>}=
z(P1lMraKR!YK`LNe+|!^B1r(jxQu6ze8!KLHvdVW@E+o0_Y2f8PHTvX?(?YF!P0m5
zO<<3buia|83kryNXgFA<2+vJ%ehWsK^5yEeaSdp+O<V+kuJ7gg2U|l*IkAk6PU>#Q
zNq*vY`n;#8XvS>@COem{1!(sjU3-Pxg?|g79|ytaK6rt@J~8BGtgHDtI(?!Ft0wCg
z8uK{$LeAPz<HUqj3ZL%n-Y(EuxRUOSXxY-1^a>FLB<}ZY&EKIhs$V1|#kF`yxa*0b
zov`BH*q#Xcr_Ex;s%6j;@b^C#)+XFZ)EclVq`q*>DG^7#{*-Crd0mI9)7suU%dkZ?
z*ZSWt6?%1ALBR(c)OTAE!}+FdtAiys+M&2^iL9>Rv{EBf)zfYdi&vS?U-T0*;2yaH
zDg)^w^9rX<dA-j;F1uH?$<pEU#Kn#}D^#@Bb2A5-(DN4L-Zb_6eaG-fZ_-5F>+!kT
z&iCABy9|n^M>~GH%aBWRnqXHwk*)=qai*cu>rkLme>#Tn>L(L-@QRLwk&wch(O3wa
z31udSl`@6m_vwhA^(mexZj|uL8i<oi%;Kws#7oT5u*2f;TK2)L)aX_f$$f9FH}%c8
zA5WaTm^d4-ZFv6YR;xyvy!+p#w?G2;QtT@@hgYbKfPcU&D-zL=lb!uV$!;c+@)OhN
zKy;cOK~huHd+qTu=oz3;t77`i>YxBVtav0E3?7=kIhY$;Vb!TJ)VlwmMqXYMH`?s2
zS()5Dn#^C+^=X*k=6?9_;S<9-)Z%`Wgj5{bu#$;1d`nl{rtABvRC5F1z+Xx>UgQHr
z@g0dXoAa%Jw1QaJ4*W9t5$Va<4N!oSIH*2r;~eRf-x52y{eVO`@7~!%0s;cIdu$<_
z1EW-J=Cuz$am_j5eCiJ6kKZ!#SNO-w#$wcB*bm)A$HArG-VCM{Yk}InGXBgaR|&Y1
zSTVsfT|wjgAru8?(W{bpnBy%{gtp#3@!w0<1R;h?4p?C&aq1yG>zEVy4A!uooTCA(
zW-z78fq|YDhy1Vba6Q`y@GL`#KXXD}UY-c`Yk7Hj4SdDyFpWhj{&xqLmkxc--&rRB
z)A4)E!(TMTqXuaaF&zP0Mm!5+o?MeR{`vb;9GjEo|C;pGo>Bw5L%Z%zyP2AQ{kmiK
zH>U0eySeyv?>_|KM$;SD5kJCR8;yU=kTFFEA)8tJY6}5g+qy9CFg-WF0txGH3i}&~
zA)?&_SZfw$^*EZ8{)mB|EXaRDab(sk;)8&eb<@SZHp7@et8AdPP@e!vShmpsoXFf2
z`BN|R0LXG1Epxxi{!;SVK<Mf}j|K+JwT-^-8I?&)dB(1H`GisimAS*^(!*QyeVXe7
z{`kv~wV$bFlW^bEh3wSRSIm}&J)$>b^@?P^wVadNYD%bGsYp$GOYXY}wE3vKO$<9V
z8^kZ*u#f1cV*N}W6LyAl_knzPR+<-TnJc$2D!K3i<*f=#%N4tafo33Lm3EEx;JUMR
z`g=AP#OCGcS`|!3lR2-1*ubFKv#71nRwPL%c`(5wPVLBWQ!GY|d4X2CZqO3Mh1XQi
z65dVPIoF~{D-t5nr*;D6lBbNON7$8BCk!<-_y*rkVtKOD;6W@*DpZNX9O0o*K$FRQ
zWOULcMwvte{;xNm7=;FFy*e7<HpQvv!d9=G6O&R}nUXY-O_>rGE-Uc8@KMsz@Nc$R
zgQ5`k;GY#o*z1>W6kcQR@d7@MV#9w6UcD01A~LiuZ}swxZrGWXq;SN5KlM<}^XGXA
zTY0Pa6T~e4Zy?%97x0MW<i|RUA8`b%i&Es3<8W%-ePnVPAv}7$&F*Sy!&xHqg{Y;k
zeM{C47c}g+l(2H&ZBMtgM)b%XG3V=4AQ|XLx)oEo7wd<jI{-{zb3;a=AbVBLuf?pa
zXPCc`0N6KQo6eQ(p9^QOvJiDB)$sd-v$_lh$pDN(zKHt!(?~}dnc^cb)q8<1mb>#K
zM@*Q#w($&^G|~U(;?lQnM@2^5_Q#Qb*3LG*@w`Y3?=)}~uwYS1v4aI_G8_d+mI^dX
zWVSyYLxZ^A9wGzQ;EZpKoOTAloA#c~$J+^FOQ`bOJjQ=Edd>Jaz1DGRY6hdm>lsYj
zGuIvY;I>19XDgqLV`AVQxm?WU?9KQ$R2vi+sG4G@SOp1e@~F%hV66wh=HWV$P`(DG
zGT2jogQ8VLxCK)O;=xF~B8Y=)tstfoBof#XSup|sQQ#AT&~4gi;H^Dv8lRBm6Qn`0
z0B)h&05m&x*Bzy|b{#Qez{Ug`h+_A@K(z7AbtYKE01Ov7VBCx6bM5w&aiHRw=g2r#
z{1uE0Q!+fS&LpLH_WO9oTkPN(YDCUw3L8k$)Q50sOVSVzxQ;5<+q?PSD4iqKC}O2L
zJ|zkzVk)VSnISQ22N6ErkQ5;}do!j1$Ec$16oB41O8MGs=6gp4BldJINvWG{FE=!u
z`9(oh%l?m$@H$g=;5wxCAa3?Rpl;=#N2@gl5>CZ&mX_lp!;A^Ex}s3qbJMD21k}{C
ztI;4X`NS)bXgKi78TgAv0teMtQ*yeh8WVRgS9k-N9fP{;K5{XvyD?B$3CL+?Fl#s=
z5%h|HQR$X(z>_eysl?xZM_r8;1u|2ajKlyuZkCvDz}*DLI@0z)AXDUfDQHLlZ+#j_
z!6)FL=PW#S77j2-QipDA9>5Hd9sVV_ts<X~z9p;!DZa>ufIU1xt|4r;1uH}*7Yby4
zx!e9Mq7b{5j3%K;P~d8e_$<?!ow0k?4sv0V*^#@Ai32t@nL}jk4On8*-5G};smXlX
zYslVU!1CiPi^C*HG5?EuXe)OY3tWV>17Vx^PA20Bn0vWO_{VIS5J8t_E{6%+A08jN
zcp^;mzBX-M=KmuKt?}Osh1MDXqFIaCKI1?x%lH++m-a@5oDbw^hEFf1hMmf=W4g9e
zol(*~kC?e*iZWgV#s{%HQKj+I-8oZ6&-0j@NUS+AIuLcYi*XAcV;q6qut9PW)6Dv-
z$c+U^qF5#NO&RTDU?HE88DKCc&@d+Br)z%Y&&M{8qPgQ#Acjx3#M(Pg^dFF$0c`*F
z{66HoK<9%vfDS4E{v*XW$q)$p0&`PKb;XRhDb8sC1_b;@i`ybVL56G)GZ?V?TeS-?
zdmig9m}U=0Dkv1NMvR_lDTifJBH-ZeeUj61#$o7)R(vW3%c*k&SO62YAE_>)-qWYa
z7!Zh#jB{k|0m9TZOM=d$4r9iG!om*X6>z76UGO;)xH#|@Ii({E-wX_`<TYE}`wVId
zUN#VKAaSfhjO2`3`}Qui{quNTTqbAkZ!Lg+3K1p*z5=bnStj)TXskJCoSDYfc`|sg
z&Ly$$G5_U4G*H~+;mF4fT=lbOiRBC7sDRkyo=2q9HhVQv@3p*a>3MwUn5uJK7>%lm
zLm6{D9)7B0Am|-X=SAL_j?UNs2M9(}0DgMWAdFExdun*U21k-Ua|96L7s_D*&BtR=
zhvej(P9`Ky$H^6A;WxxK_-k5MCFPcsC-r0PgmBD3AV&zIx7t_G2ZNIc9=BOYM@@A*
zF?=J6!vx(z8JR~QjbM7)u){L@cp&B#aT0=FL(NU=ONz$q8&jMYR(=7Rz6bJ=cyR`h
zJJ1hH>Q@}~NuTQHL=dXTlfmxKg?0+i9-J>4!Dpmov}!TmKYIrW8*<$ZVn43Kx#LT>
zvcY1uMy4mpsiKg2(O`lWAr67=zAvON3D{Q(*b(BRLFNm<(1ug4A<f8#419yqNHD&j
z6iw@(RroKySw;qTrQ}aM1{O-urY=cd^^ogL+EsPkJ+A1xP|x{tt|Q$0nG^1GMy48{
zZ}BkUVK8?|t`dfbZ<4umY4Gh!ZJ4{`0(JBCa4>WXd+uBr3?3xscwbG4_Z(U3eODxB
zAK^i2pqx`yi$47sM5oS`!c>vHNdy`|Iw1b-LMh-XYy>r&5GV9^EMDZx6UFPAcZ3S5
zC+cfy)qfSl;<l?jccll|Fpi@8-~)FPWUrDW2E`1T#t2&vbbr)hKp;2{1?-EOpVOn`
zFm?lmqu58xpy8lM(z%mmtQgZ72xp*#m$R{}vN=7!CMxKCLD#r;(kKR~je)+Gxzwc1
zHJf3ouT|b-TRY`wq4`A+&+fy3y^wK!gI20OH0rcSjngC0-*2-k8@V6@;QpblKTCS|
zE+!;zI)@!`Xh2rBqeiKC#_pEnI4YbdoEJo9M2<t8bZ}_cJb}NvMGOIeQS)D^c(Ook
z$-k{|uFj=>;ltyM%V9^kga2fByHR<U(~0WaC)SA#xIbWg9Q-(^MsU!da)V96MCT-D
z^;13jfh18ym$g+=wq_;+%Z?mdoqjOz(nI-<CDKYh#UdYvHayKR_$RU0fbZ?qkIwnY
zK7CA=2WMS83XV*QAL$csopqt&W)im!YviIOu;XpVPPNa2Aq*evvnxc{=2?D>%TV`!
z0=>Ae0(i~&l&p-InVHyxgtBQZ+1HvnI*nZu4#oDP<GNdP^e1i{?67h6^!h25f(}9d
zA=fU^umwq+RfZ4~h|k|uO>{e~|KSdK+(AM9Ia1(%^3?|N&;dyQd9J6?Eu&+3LZ+CJ
zd)dpxj0}OUT;xK{ma`ff8rDVhvPHlOw_=r_cAccO`ekNjW+QnL2@&p%eZj`ohAAK2
zcFj1|Y^9{cKwamb-xo62xf&)7gHP5QA_j?O_?@s4(*G!(I&LJnKQheid|zK*I{*?N
zuktEo*Y1<7-f(573KdS5v($0bN<8BIgSY`ai`?n)bC{lfxRfiUUtN^2hf-2IVO=4r
zqq>cJnyvx=X(@KWm3hG4{Jok+eUf#uc%ZKEXKrbc+ZVQlo}L%pqg`%DW$=?t9t(5B
z$T}wD!~EBrB||)i0h$k9WoCxOP5hIXR>Ue%Ha4iKSW()BO*;4{Hhoe1?qEw1e_v;#
zV(#{3!=ENsp4OQQ?jQ&|q(^%(7iT-na4$81YDlHBxD<iq`64Xjz%$(><b9l0*aZba
z8YC?>Btw~qG(<zSBjzt`Ss3A6*aUhz078TGvQtgKxkU#H7v>)xwKkBFf~-WC@51Zr
zJbn70R_N)iVE{%2|Hp1H>KX}T(0nJr`(`E4VLvNZc07pWDdf=&Ipq@*6IwafjC8@y
z&<{@@;x(`_o=I7lNuf`j{`)EtH2p5)Hat5=q{3|w*$iCkb=T9=`|w2g2%BI)U;!>F
z_k(g%eLW-bV<F$hDAf7^8&YEw?UNY3Q;`Xn#1O&_Yb0MXQbm|=S#31!PhX9XLse3w
zq`qhzcwZs54RBR=-i7+)C*eXN1^p}Yq49E%+I#;FpmMw0eLa1n#JTzq3sUH#FnMj~
z(w~->l3L4nXcvpy*k`Z$oh()juMTwC&!$<8Wdz(>B)a8Gp%rFhGeEc#twE}5gLUUN
z<f5NaXJTsVjf(Stl1NXaW0z>_c987%<fGVv<%_|IGJv8yivi2K{Uv6)vk~yK&UwI?
zD-~x26-3PrsCEL>IT?CvMb^VoBQ`0?kJt6v8sV&2s^mN$nP*-P`w)?=M@lh<NJvuA
z2*)UV?UL(snf_o}1-J?#j`N3Np#(C4h|Eku)i`x@08)|Evg*$^)Mak3nW{-~7bqBu
z;w?rF+x~)e&KQFPW79oqYHFY?iG2tYnvl4CnSwBH%f{)@9ya89B~mpmHZjqcjH1Hw
z2RtF}FWmW%r_4cjs0UBZ@ATfyfNbx*ztjdqvt@ow+UCaQrv(z*Fp~{|)!x~^+qI|6
z{iV2tg@xOoq5e~%GZE%Nt8i?5yf;?FLhs?$K|bov%_N6Pgr~}pm(AMx6MkVmh6NpS
zY-X56;GQ*F)bH!R`!k6c;$Ltax8FUv{thzaB3#F;t#u@b2`aLeHq?KEhp!AyJh}R2
z^)R_@AVIbjP8IXEfou229Bl#I6qp_!-h2AtMzVAAATRys^f{)tx7QIXsSQe}0QjCP
zSp5V$<1<+>nNJp233Qt67y<A;ry0b@9*LRH0VN=~w~=jw^R)y-pdn0Ltl@KCBr7@d
z`Q4?%dbN;M`XD0|nC}UnKLA}p=Trx;#}}v1Spe1dNI)7)rL>GE^Yq~cV}8t8R}?D#
z<n=5Vk}^fak=Xgx(4kO)owu{IPM_-1jnC1AuF<-|B&Hay$Ze=`{gA&Ft(5rjS2naT
z1~3n9<d(#f)ItLz*)>lc+wN$Ai+YujAuSj>P_9tfHDIZ%AMWF?5`o0T&sHS=ZDV;B
zcE+t&FFu+nC@6%)?G@qKnH5DuU@S1A%f?+YfJUZK_w~Wn*^=Z3rGwp{Uot;B9lh(l
z-P1De1AcyfqT(CME8vNI6<w@SMV)F&_G2Mo92g9IO3Hlx7E(X~itB8gbfI^3KmnyJ
zOK0P4)*S=kPczG#;~K4etF1irZvH*O>r%1jp7`($iYvv=&Q9fg!E_b{c}GZ-%N1(u
zZLjieVOqc@cv7C{eY+Ez7@m&zS(T(AD_iw!G&85rw0Yp3WvSb}zamXoY%O1@Te!$~
z?Ato$z`y0|${vHM0PB54qFf0MJ%X?{GeDl>>s78FTL&6VA&ZrsZ!(3qn3;FZI>ah#
z<KBETt)HXEZ(G<b)P?J8D%2l6OV3$a=pp?5hvS0iL`&y<`nI2J+6v!Y+6Sm^yLvfu
zSM2+kqQ6;l{-c_7{Qkm;gzXy_?8h?M89majNjJ@vdb6nqc`UsANNEpTDl?w_0Xm2;
z?HctC`@WdlkG9?^_qa16l+0@{oL`wcDa2Mf=>>GEGb$fy!x9J)+DR%;qOfS*JVY-H
z#Ea)A64aqQ<ISR7m>la1-E<K+Q$v6l#XK>_NRR1(vjpsW>S%CV=JtJ$s5IqHw`D^x
zntBlxwde8U#|CiF51WM3a1qcacEl!V9U?&Aj;6i{kPwNFj~~$^GS*MZgp}dC^zQCM
z2{-2_5cDCGIp<pnhWde5O0!wU{+-M-Xv1eXUG(lu;O?O%Lr7yH;^GbvuHLI&EOmN=
z`;QwHSA`5lcXWV8X2rZEId0wTL)dL?&u_DA8X;VV(><k__UKScZ@fYh<mRKJILe*#
z2f-g3BLB9AG-L1OYQguPs;jp^vS|CW|B7Veb5`bO`<y&NOwG)ECi92fhTpLV6k$Iw
zLv`u(cD-m~nNp~HlmYC1hH)T?%-1c<=np68&v7DPWa*riC+KUCXMkJ3A<1y2$XoW=
z!Ici<l>}t`m}sGTNx}=sc!WM2vZxcBQx%@y{4V}AA6Sn_%;l+%3qL<r<m|GMi>V@6
z6V4#uJ9?)`cjmiLTM=gX#2RpGy?j<jHuzNYkoz{Iphujyow}J<sD?Hpy|666;rY!S
z04l#$G)m472aM80uymBaNaMi0^2?ju__*X1;`;A9ZE)=R7~bkciTO-nuI#bx8i4D9
zSnDGH6O@>@G7kq$SQhA`!sZU-Gon^k4nJ~Tl=hxU8)5kY1M<|-3Gj22<_<Wph1%%h
zW75$%KbXAkfFmd@Yk>qQa`P=i+%RUi4aP0KXgvjV+C?FXTDt3j!IRe~Z*Erd+ThlG
zlAiu^ZS7WBW;=D)pY5yx$hY`0uaO031Zz8LBqLq8EAU|@8k?Bh@$#xt5<Q3zwc-2k
zx5}7HcsB41XB{b%PCpeBcArQOmzF9*)l1Iw=Hw%o>+(?4!4kLbKQBYZyg;h~nAaA7
zw2r#g#SFtxxpnATlGqCljzr2^MACBCiebpR_IZ_$p7c=UN(Raw*QGd5z21@P#4!Zw
zpAo*Om#XXPs3=jHV8tmTC6zZCHsp&Hz7IvRR%|%|q~cCX6&DmI|8e~fPOaCJD5zeG
zj<00ivXa^MQ*u4IC1WlXLCd>Y?d52>Rlhb4yoh}9h>WQEs4*pJX(`U3y1!TMccO57
zZH5;c$!<SarcIwT0#8mcNXHv|N-<g(=`x<H`?!_jd;Y+}MA*HCQRZTvrMs;E-1-A!
z9I~<0+TcKX2T}`*QLWnxqaO3hdC=`355o$QcFH+kjQ63V%U8L}pOKo%2UIBt5r1DM
z#r)*Sldhwot-fAfu*)g}F0w{t6M5;e_Xpm67bHjDm28(vxqZb@{IVDs<p>F2#9&1u
zPBdPr#Xhn<2e6@GrOb>n^q7>?>4%4Q&(9Vvh?1idIZD?EZpE1{i^UGnV?!O-8W<!Z
zVucwJe$D<(1BZ|{Rx~2k>K2sI%A)<}u#Q=gGgmYsNgm7#laIQ_Q`jM0gJzcU|9s4_
zr!5Q1;^N|RFm8^Hjuz9T0fc9Av5;$PYV2Ap&CF(JJ#!z$KPORZ0_x9SJLlN@QkT~*
z7(eFFGFTq8M#q1OS<>D0U%$SiQU4P435rQ;XcT0niXah7I0|L0v+lg)e7mHGRXFOK
zX`UEOa%^U!o5n@=GSp4v5T10}0lBds)D}emg|;I>x&y|n1Q^fGeNV2Qh^*?7SZx0r
z)5k@UF;ys6J|lk(pKa=D^F31G1;KLHlZcBbvcmr9g>Z)+!087E;rzhz%aqgmJ~tnB
z1EM#Q-R8{|k)NMGT7YLx0yBw|-f)n2zum<}BW>Qfyw=gt*?}a;;R*I@7`w)m^2ZDZ
z4;~CFBcb*3$EVD#vn`V%Llk6iJ}lRu6A@67oEyu_%z;psq<F8gvZzQA+i<Gff#461
zOUMAgW2!;1H@Rp-6sAtiJY=z)nHiB-X(d$z6OeBeaobuzRb-<mq%6w=&oi`XkbJ|s
z^gzs(h#=<5=38IwOF&XHBGVg&wV@<W_Se5jl81c`RMPL!kt;GHVg6t}icx`&6j<OF
zbboAUY;1?Z*l)Aa(Tkx}k{6QXX&y#UB_weTpDNndrdc?nk#%JhJK`v$P3;Kv{ns)F
z{Tm)J*+(If7dZUrG}#qM#&O88-+y0(R-k(^r6X4ylGkO%>{@~=02Igs4Q0RedO{s@
z!L6Y<8^gNRXvnA-rGFuzX0g_36g#h`RwZmOg*Z_km4S78ERNhrLuksaK|^30nwgnF
z{%1Q~*VIHtfyw`zqDuM$vM)A?34358PsQc7PFFaz5ed5(AY->=t1G7U!6K%O=a}c3
znFlH|{+Zaq{ngKlr1Nb^7ghKL1d5@=+Jc(XsttnJ00>NFv4NZLkje3M;=vhpvih(W
zyu27eF;*D)L*(V<<=7h+V}Fjs@-w{+4GnGR;xgFj`1LPq=*sLVO^}bheRnw>C&`Qa
zd~uj?uu4w-vjNo#Qex>Q`$h}lI>00C2JopEMjMQKjLh)h>2-AU%U3y)B~(I-cPx$<
zy4)U}-aCPr4?s^{NgP;@BP%vJxneTfp#eDqlm673Z6ryw28K;VDYgX_`@m?=M)*zo
zdwK0X=_w@=R*~}om<%&LJrR)2p5@1fe(4uJ*MB7yO>mg|AcI(M8Pa$yw*)s3Dt=#h
zBkrG{T$pb~*^y-B#?|E<r_M>T8$3r}6u9OwrUPc{(B2#%zV(ZF=8?B__PkDo?;67A
z$6}1l%|AG#Q;N``CSpaj5*WM30Ck2BaL*#hB$2;fzTKb$6KE-^0ITcF#~sl8izL}@
z$1;77x$$A>&O2TEA%^n(=r(90s;*ODF@2FA;(oTXs*VVLScU<51<jq0AJ@Ms%hG1V
z@vCybUD*8Hr3iH;ueju7|5CR8eL5^YNM(`xQdCp@i!)>IWX|XneEAy-TsWY(*3;YA
ziu1(r<!98?HXGf@8ZcD$_`atcO&|sVkC#X{x&s_k@h|SJNf{ck*eVZ^RYliJ%ywH<
zvqc6wOl9J}9+{Y(Dr=+>GP~lkj*q(HyxnAuPDVT@wer0>!q3R8iN_H#O2TXEw#U?M
ziKK;Z8$6Ce2m~C<KpIh?E6?&H+1g%SwCVxqnj5eEK2t}M0Km)IT?~C#!>I9!m#o~m
z5e}2~t~jRs2<Z^o(TL>+t-VPTB>t(6!)?YWeV493x(kBnS5wt75)2U2bqn@Aaqf-d
zgY_aQ^m8xm%(v*vDx9;xbbtbzKX0Oh%2LoLV8hhcm6D9~p)ofwJJ<au<gI>Aqn*XA
z^AlO5ia7n`D4zrxwWy@R92m9hetx^ehqr(cl<j5nrffa}eUL+noUwc`n##ucK_H#J
zv<m;~6_f<zN9cv{!j*2IPjy<~!0~g525x%z^oJ`3NF7u(HMe1DF)=Z<kq_rO<kIQ`
zAx+6Tp{9)>kQ$%ci?;0K<l>^}T`oJ8h2Y#sYn1XQ?%TqwIw-HQ`s|D!PhP#WL!SNK
zyS$<A`*$>rpX6*j!>TyS!qaW<aPEiJd3ueQry1qVx3X7VNX1frGHbr6h1WSDG0~ht
zHG0nAGJC7G*<IcEOIq6g!L`QIRn0c_om!`ZY(?~{CARiyjpaP#o*UQVj+*0Vn{@C|
z?KQM&`Dj1E?`j_g(d0pRG&7NmAHF_Y%tbLh(;KZuB?yiTWDnwzCtPT3&_?QxA>d`!
zi1_w79)Ph^&A+6Py@y0~7g&hKX)T;Bq<Bt6yAMwvw_Ywkd1vw<451otT=q7n^K0|x
z%uL<Fq@<*>yf->eh3BGp-3}C>VZh$RhUDu|{7^yjv4DDZBRQII_<esT+aVC<*-%(e
z%nhLn;PaUOiQiiyIIU!5cB5INWoZi>vC@xx)x(x#ld-X!zFhYl5QdW2a1jAHbnU+w
zrNT<x5m_EV@$xOR@?1x&8u>O@@#qwojE!}~#_$&BPpf8_R4{*@FG*<B<5^w0LD;qN
zx<k9CadtbUIq@EMTyMh@TDp=yN{RwDwu+<ez7ko(s9;dGreAiMp}0WTpNd}Bsd6j#
zD&YtredqXZ7=CBjgj140B#58x8)bJ|OM$T{0g2y6$}@s;S-)AmkDNR7OIMgnG<K0B
znA}uSOOR~d5RIKG=g+f10x}HUn=tAk*0GtDCCny$4-NhApv0i=v^mXvE{%h5AC@2O
z-9NgtY?hpUuiQp*ZahFP<oyIZB8Ub#6%BAqTLTv_MwG6$uvnN1SYQPB?MDjtmSKMf
zDK#}U5Q5^v@0HyTlZj{#(ZJrdJwQ}-M}IOhDI`4ehTsy}+1LpDHHA~`>5yW-DtKZa
zvUUKc7~s$o-SWf!W+SGV%^kQIDrh0mQvfXsRo{o4Rra%5hK7b@*NN8#nwt5jZeN;)
zo@KA3nNaQY=u0yp<(F*=p2p401ojvrz79$V3Iv~K6|!t%9B&lnS@S$OIeC;CMJw`C
z%H!1IZPcaA%=$VfZ|EiFJ(tLp<Yhlc%2hZ2xmWQy!tzE>^xWLsUcItxq^gPtg1y?z
zu#RHyoCrfQo)^~Ol}It4I_;LJZab-$jMNaJl02i#SvP?m(u!o9(k&9zm^)6Huiqa8
z^zli`MVzwq@dtdtJy|$NmfPiuQeynqJc7x;^X)ndV`DFp@L~SO4*JyQbSJ9s_RaM4
zq<U!iqh+85BLP_Tf3|Hi1e@Xw&ADw(#b<=?HaIHZ!Ml_DP0I~%wDYqGD$8!9ABL0L
zkY2O_0n|{&@B<pD>0_F$JS%&uS?$6++G?yrXW_HIg?0YN?RKmaCvw_C^8A3sY_6Uv
zu@#DyNzny;4Gjj&fjce+z3njij*o7|QY(M8CO>YSy{1#EnXE74XQwDCW=L{?K6-?w
zdTr&-tH%JwRA#b^obXyidYcdCBijQY>qOFP`xZ<jWoI)0ve>9M0q+4X0DCz0vFfU8
zYfI1z#EL&birjLvBS_6zcR_r}Nm)uNtFFAqk2&dLOP<r`mKGLZdrn!~QWxIIN^GL1
zM`erLftg(m=EPql>a@Kwoz37Vfb$$F+*o!K5b8&x^Zs=1WoCztA3$O|OAZ^PQCrcz
zX2j3WUxd`Y9ZK&20?9*k72=34MNAhL#fA%EGobQnscUN1IbF=u)Grqoe*?sTovjU+
zd*dCV47t9ZD1SE7f9?~u7VUi4eC=rmnRZ0LiGgHM;2Jm>p>uA%EkAqqB(?hsdO9PH
zFt*I-%hEOS`CXPOI(H=u2Rp;?qmQn8m0-m@)uZgeg!rjH!(V7CffJBCrYXqtcA{t9
z5vcLAbmfeU40`%hWb!O^tvE8TwX|CAE>;zprDOYZ<B#>M5@Hh&QdgKTv9T45Cs`E(
zsoyc=K1ngeE$SI=9qfcL;?UZQ8-%~#W!4r7mba^zv;hEOIXVS?6bP%3K4U+y=2oS%
z1fr2Le>%UH4M~9kr3@cMl0X#%ch%7`EcRyLyZGiN4W@W_*r?P##=f_n?1mZLA^+M>
zd<>UdTwJak${R2AKXNBa?1du%#X`<IA0Vb508HKK$$_7Tu<nn{l9UYuo2?V*N>4iI
z1_@aJ1P4@dLJ|@Hhj1!YqNB2T%fl$!C2IAmh2dJ4ptP|@<9;#t<)#h;W8j1&f=>av
zVx^}i&_M;=3@+aX;vgzgvas|y905mw&tejfB+8g(;gAO4p$r7fs;#YM6t(YPUruu_
zuuX}N=LApS-Td@mm#!iJnAb~I7O@A2Z35TtAO<^vu%+p_RjGbJ(k60Rn3J9xa`Yl?
zsoK8QVR8tot|tu^kb^tW+j+$t_&&isvcd1uP-T=UC1AKVlQh*u&q1Qm+lz(_lR6yO
zST=;UhOjOVd+`{?=yK)C8>WLMeG(5M*0(BdRmTZSfIAGPqUd!3r0%g-9S0X;444Yn
z@FZXZi`Y?++_?l&`v8uITxZ8H6o^z5IW+||tB3A3IJpNvg2{O{<vjC{BNYQX=Kz^K
z6nC+Ig36SJNTVcdapG%FveSJs<i+k^ANSZH(v#qK2<Oh-&yPamG+XVCEN~}Cvw!hs
zB&}~t51%vFMV|zDIt)=sU?outBWn+`G4*E77u+<q4JB*<Kz>)Db7zpiT0^f`1TCZi
z`o)K#HIYWphgBW_deQ!uM|&dg6O>I<z}EwZ3GMI)C}@z_o9g^q3joq@7(yc|8X(()
z)RgYPSj66?7t5FKWxGEn5s@mUjj&bUdbWy^faia-jkYscp+E2^s9@K%e-mzQ2OVyk
zb!T@sK=ZYo@ERh#>kE$%#s!F@cjg%jJKe_Ef&vL(>kby_=W$|4*-B=RWbS2EhTRpH
zjDH3bTa`a=q~`;Z{7}s4nl2K4Yfw^DJhb*!7$LMD37<ag%Oajjz3PCRco@p=5}|@&
zKbEXiq*}#j%iV;@?m8dBM1>H*8KBSfzDgA1BiIHAZmG6Cl@eLNN@+Q?l$7hBO?aPu
z?rndIEo@&0l09>Cb1}^2vXnVX5@FnJA1%!WbOTd{Y4UB<@GnQ_tz6r8SVP%SjBe1n
ziX-<L8yjg@D8e3qMxYK&2@NxqXQ}(UP{6TwjeZ%<b?e~LzeCQ4ux;i#`ObDUcnl;4
zMKfc(c*68X^B1M%d5BJ7nuk9`;lHCq$NxI{5Q2o47fXy`zaNkw2|`T)XSev-Eh|}?
z0}8>0E#m4n<)LIx0+tMuR1dBbjI49rvWDouT_m@pu}FNG1UM0*wys;ZF0Ah-B<;Rv
zYUagbFN}?i^+HL9s>yQ$E6bW~JiY`uL4wqAzNRK5Qvx{-u8AD7IAEYRMFDSH!6)Ya
zbLt_~NQBz-M<H@5rV78z02Ug<NX?EAJ|)aegp!fpaKRx{ZOPCB%_|?GqNDf1s=?W=
zMjqF8-L?L|FhvgWN&fV&NU@rk^R5oVM+||4Tf+fh(j>VxEN(ZTaQwP9j2!k#aqZwD
z049DdA9}SAe9U#>q(my6sn;tdK7FY;nANli>bo<py=vj!lX+d@fU#dBC-Xo|y@do8
zZVV~~I_;vNrr$uE?Fl#|G4^~zF~NRNz<sW)+=Q|<T^aj6r48aGe?(MSXm$FLDbuz%
z;RH!BJ34IJ`HEcUgGpi7Jk!y64-lG)#7%fs?u0XLg<wD{IAm*(1D07~AbIU}jKIcq
zPE$&XY;?DHK2`yO3()Fla_(4Ug&~&FsxH=_UspQBR-mBfwz6Ob$xYH>+gV4HpCs$H
z{$do;;hGoodK`l+)dFbdrU89cDT4KSk7zS@_6x&OR|a#PIHHxq&)-#fhy#eEo8;z;
z@;a|Lvv!d{{|<~S8(sN8nHYva<9^SdBd0pJ<aW{4X{DgxJDS(qhS!tsjiAW?1m;8Q
z>=9}I6PQ2WxT0RAlh$-BuL?*B+Frh)f#^k;J!H~;$;_L@!9Uk;Zdz=5;81UgHl70R
zkzF3y2CPh6;%ONo!rhcW{5m>1d2J+gM5Z7*?zr+dp!smIBV^Zed(&k@P(wXR5uv@f
z{<tW^4;UdF)wiSl`Q?of!IixD-<K|O`DU%BJf>$1LOzQwUB|YxdkyW)g5u+Q_lu5s
z8E7s!wq!MVgwKjl0)pW^XuqAV{}0*?+J77+elgFI>w2##G_m)w6SSAo(QT4nlx5#N
zLwh0JzppB2u~TK&^Iw*ZtM|}u3f-ywzb@i`&s%7m@Bf2t=6>~)Ms`7gEs1lAk4^^#
zTg(se)KqV|SH9I;=gY#7A^nZX{%iX2Zf=))J<h+hz|%7}i3ePb(=yiFlBYg1%}C?3
z*w?qq%~=05(P)p(p5*1-nmC6@5*+Lyxixf+Blr5`cSTOKtm-c(meB3$!9AdyF&%EF
z@2kV>9wcRHzC0*>N%F_@olAzI_glH9UDxq5ZXTO#y!CTq*@Jakegtam(AH@y)L$@5
zEqmwVaQ5sPJep@Kf6YMnfAt;)Z==xJpU37VNg~xqFgRG+ep`*2F(_V@Obw58zwy+#
zQ{&%tID<>4oiop#m9e4kJ#Z5&l7R3`z500;3+dRHjet4TzjwDstH(zM6dSi}{F3FP
zrd(j>z<s%qlfBpH%$X&i`@5Qy)5m+*)YTZFI8u4^A^>$2fs7Ot71zcl4>;?)nB9wi
zUpQFMg$j1-^T%%xp5J|;j*L`J$Dh~G$Y>r)kb|6O$I`=klV!aRO4u~+do(lqfbS*m
zviJUh>A5Y}E7e6>nPziTXO>=YL4gpN)oYbmG!x!8{vldn-&Hb~_zU$xT3X<0NAz)4
zNJPu;|4N+k(~@TE&$ApXKCo{HX<kL$OYtzCM{}<LfrL(0d3j}~r5W>{5WjU-DTZCc
zAe>%@i<h_cvc6)-rz<j2u#`?qs}!bBqD+RW&g_n$e4JMe>`QM=eaMZENB5F4+N1FY
zz+^+n{lt0hn_2~^PHzU_y^h|j&OV1X!`<!u7;k8KNkh`iHu`&}#`_;hWWIVOrIsuq
zC=`OC)S_X_I^h|u+Vh;L=gi$(;|3b2X|>}jdXdf}NdQl~Qngw>ZHzi>`7$R*7=Ng#
z+!VD*4ke0|!fdA7hsz2bF%QbA1{!L0;b#S_t@f)5OxHE1W}B$RJ)xveYkjDpK6s!y
z{oZ^u^<hFl)FpgKm9wAiiY(pS?mQWxZ)WxJ^NTtnpA#2nLYeIWL!9FizvOxgS6H|X
z3HWp~#4-+F|L4Yp{~nR)f9a>-<h5TyxdHuf38><QB0{ARH518bU>Ua)`cWc75?C)j
z_DLdZ4q$T;nt1Em4?`a83mzr=V<UOwbTcvTtUr?V3nd7jVln6eC$V-?H<1$?Z1y%l
zls-hqF>odQ3+jx<LE>{nM<*KJx-t*2Cee`X3$s<-dG+-Yf^_1P`3&X)&2x8Pg;9)}
zxg8cN{>rXxo84L}h|mSik{=Ce-10Gxx}mPGXxO+wk{<%C)}y(HElf$4GuRu{5#a-L
zA-M-1iA>hqfx}X{v~*@pjb>5&{ZX~GC`sj!m;1dz<>{?U`~K_J)s9&pB=Se?@mc7(
zXbZeMzV+ij6md+C4Dj;8wk0WLc%u_?Ga3x?6S^ZmB+iWD&bFr?^B*9k$EhgQX--<F
zX1DCJJaJ=7OMhGtSmZ8=$(%4#GvpazS(s?ffHoa(0w)7-Z0k)(@jtz{s(l6+h>aM=
zWec+s3ZzXfd`3N>uPy{}nOfFz5S=i)DsQZG$l+~FJJ9Q+u3QkM8poKYvB1Wr9iQ+b
zb=CNm6G)KMyAY1Oy^RkdYMlWn^Ju4Alh)a-1HuoKBT#$Fe5rLaxAdx|#c71&4zaC`
z={29vvsoP_ghB9&0E-=E?2YO-|Niq?Zmx*w3JV}xGuG%F`in0+H?z!bseETx^sHfO
zZ&Eyo=*W++u)^8F`;6j60KMP)4G(O`vss(mpQ~S+DX=Z>@z1_NK*Z@g!JR6&OD=!L
zzuJ*Pa2dD;dZ7)w2sV85w|8DU72be`&pRJoJCE?82^ca?ADpX5-G`z36olw$s2E~~
zcF!G_UTC%$udhH2zmpXD6;y(!HA~VVe!pLq2jQ1Wfrdw8nSz;S#kg~3OqFzO<RL7K
zYZIw)H+f_pD#a-DZWz@iS$)0+Yx+RPp3RlA-zB!{RP_YjsmK-GnvT^tS>`=>zOrXb
zaMmR5078DJ9XIdukHzYo!8VeLlQ%vVlXx%b%5zp-{pi-s$rM9t1s$btE9odcmD45n
zWRY)@GK^T(5CIh7peA#Y0AX6%=p)Z26*C_?9<uw>$_z*;irkqBClrThbFxjIh137A
z+=GJwdykQTng%H1hJ#aFqb|JIhl|}xWKsb4ilC5nS?gGc(Y#a*O}*gJR6u-MsIxxq
zKy6QuPxP30CCySUE7A^{PIvLXK85H20KPf1_0{T!-SEDK<{v&&)mQt?kP=JEu1?}X
zMzWu(ut_dCVcfM_Uh+9VRo^E}K+lu@5@!X4WaE6P@hK?*wV4*P56d5vIvu1Z)boev
zWE<1O1bzKT(~%U4Ve0ee&&lZw#J7T+YFo&$o|4i!KUs5=&=Z%qa@|jmx!R{{zUw=9
z*aTIk*4Ni(H_zE(zD2!s4c)OJY{^gbgJjS>Sr7#731XNE8YYa+1MYL1tO}b)BZHBx
zG)vTi)E*xfS6+3F^ZB`=h1nOb36dWa;ymbcZme`W{Zw_xFxfCQ=tQ~~W?^q|;})1p
z4T!4lG8fbtp&ED$8XoB3b>lXg`zEmL8Gmra%@9$Ova6GT1ASraH551<N&Gy#ys#p<
zrZUO%!5pw<R_5y+tk7mTg($#Gpf=Y5GyTRr-^gTj7NRir>K>JDqP==Pp*7%Z^Wi3D
z80zcVlnaP%8I%B7#|Jl`?3vz#EGP5-fTeaSDtd(PNI~_DCa^8xFvbOZ82iHC8*t^7
zE>W85V2o?dec2EpKxn_6o}LIAFdRLq(P&|yb^ai!aCs&(va)2soV?1+v`lyX4-Cj+
zln52c9wKlER-0tsBx+R%jX*YzPfhugtw$t<<O7f^AqX7Pjva*Ku&%#&yO>Ca(Q)dn
z9v{R*p>?+RbIwV8Wd;dM<Cf2R0HNT6TE>!<6^@ZaOS4z`X;T*=*XiiKS0a2bC;xYf
z^Z!pE{+m=s|MNKrNg(?3KySpx#r0S}icU*=HyGjkXA;oQ(oCe>&p97^t1IvR?kwJT
z_>u8}69-A^{DM=KHMFXSmPwycQK9cZ1ra14{2^6KPmeh+Y38A691pV75QuLIvobH+
zyYVd#REn{g;L`}_IU#ThLf!}i(eQh6nmEq{YV>BcY8rHDVP;79(dnL@K8X3kvk#R*
zYE!fGNv(i)6?jz2GpT`6k9Gjrr2b;5;fDWyD26U*?-HxkIILAPG-}!pm+#raX>|C}
z{?_=yf#Bdhn}66(Ityy52c3ScgP!p80E<0af1K@fW>)CeI&D=$HRs$MwTTOdFSwe<
z=*5$kTqK(;t4?XDe6JRF86qmD#!b^dU!<j73!SV!ZP;@&yxENhmcbQu^|m5m=>bMY
zQ8sCMd+&c4oUDli<LVn<n&e-+iBu6oR&(F9mR)bw>v3h8G{kX{iZIR+A_u)}+|L6T
zi#y|$)jD`hA4X1rJ^I+$Sy{dMQc|YvCE&Cmmj$Oq%7-0HOa_Mj2<IX4=37Hs9ZYj4
zQWNd;f=U@%P|rS@HF0`d68j<5b(4UQ5Y=<1TcWAS9o6kZuuv*7HfhWZ_+lRSvpQ{B
zE781vrmA#iW?VXc?*ef5Yb-wN)<qpToCZ<l6;>T>`Hq-oFEm~}apT@Y6d|$QOx>3C
zFQ3x_JGBh}9LWv%1qCe~B%4A0Ij9KGeR7F9g3+7!B4-`VU4rAkDRA&Vzcqg2I{)9l
zkk}D}Z7)U7Az?sY&c3IvBkzfzn`qdTB&NR~{dRLR^6{a}MF;n}``0HI&K0;i5%d>{
zUyD;KG-L)~`iCL1Dh9d4iaeB}N2@H3Ef{%wdO`ei@^q-+K~g&t2@lS<BG@r+%xb!(
z&<|<GZ&{cFg*H;>`n=-n9W-VSCs;95BJ-$9)<hsAAtfZN01;yV>m>&o67Pnj2AXPZ
zCJRLj1YG|`X|<UMYtg9#k3WjyV!4CU4IT6r&_p4Xhf&Hk9ve8G0U<`Ml+n02g6GrF
z(iYIhpe^q1K8efk(!C6l3{oRWs6>9hQAaV)vw9+WqW9RKZ9_CUUS6G@ohXs|1QQQl
zY9t`77_=;?0NT9RiF`@CHZ3)gJ1zf!$Pys8?Bd2}LT1y-*QKT|LNngSb;fzwBBJ6E
zcF!p92G}C2;V&V07OXWvYXGRmzWYq|LuS0w2Tj0U1n$V=YiQw75}&SZPJLK@R@TLh
z{!h;9a43vLA~@mKaqr+gp(o@AD}F~Y!`IiB@WqnkKjTX#0bfufK`n&W{Hp>eD^uu7
za7KYtA@Lv(Wk$)f(?%h)rjVqU^XE!#Mec9I9d>#V72yiA@^h;O)J!k#!T05`t%a4<
zklpLhkD2J`XM!LK?OWi8E**ZvVrC-I{qkLbVfTc*(#;Rg{<+tJ2raNQ!eHzkWbGe0
z69|>Rd&qZUQ;*^FJiE<Aszo9FJtjS-o(sjIo}K-Mqq~Rv%;#o^+Wpazr4i-{5|`C7
z?j?!8I>peT8J{RP>8>rnp{)=Z(9?TS<>`xng91bT6ZPshy+=~=Oy3EHZ>OgpYVHgB
zT(8X}d7$R3<*fJxuunUMzw6Ot_3@>1IoXrf|JqYUom*Mg(ck`;or{c4CcpbuSJ{E<
zPu#=|-ccd|)vRLZ(6@`e7Ai5QqNa0rw&&C1rj&05OIIRFPqMzE+Ak!V^4^<cxL#R_
zMdW{vp4q0Ov$A$#Qst15QGR$$#9fP_*d^hV+zS>%>q~nleE-t)$f`HmqF#KDDvN)&
zQGEZ7pMSTHU1H?DL5Rwkr3GVt1|et8#Ch*l5&l_9zSZ-WA-nih^VG8avEB}@k@b7F
zG-dfq#^Jx!l$C3}JzN&v7xTP$ws(D_B>pYLn^zm%X4dH6^ygso@Ma&q6UY4+)ip<`
zZ9PLQ^f84lQmJKh*WHs)&ci1Gix|S1{6-@fEs1%@L5xxN!eO*|A_Q$cL~&3-1xyHt
zA-c|v;SKsyM3)Z0r#ARIZzF`avQp;jJ4B;f_wPadN!q%+>VLkFf(GIqS7{*_#tJoO
zq8^w15)yd)#tOTFkVHL-VA`I;BMB!_@T30r>Sm=Hfd1?1k~)A2vPX;(CArh5c;1)i
zCeoCOAz`S3Qc=FMX<`wa-fL<mr0kZ8^cQ+O?rYN1Sskg__*>(H_f!USNW)0iE^k%I
ztvcG;5d{TOof{iYV6~&Nl`0yv=C&7WrF$vbgM69vPSMj7wO5wS*8(D1poc8df9`PD
z$IRR72i%=+m6Vi3csy!6EQNi`_5Qkpf{uS44}*^Xu8)_~_k5uqoUFnz95`f%99?cj
z9<#iiWb;URg!*iD#}%nK79SnX;(3edmP*!%D%Al)kDt2SMp3!p6ImbE(sld1DPMhe
zqn({c_-H?9>hhcq|CSk8EC#pk$t6~}KSwH#LQF#>5*942kbH~%{P7lA2b9xRS&QS$
zp5YnN)5A~mGT?tAbt4q;<Iqr)9q@4TMhPSfb*V42s9+cWYSd<0B%e<%5Sf(zU>{9O
z>90Q>n-z9s7gP@NfC9W2U0*~n&j$~1o`4Nd7ZiX@>eS6LWQiT*kxxCccq)uZy`Eh_
z!_Zz!v>87<az%+-`_+CTh#}IdCvcYIgZBH$wo{GFzk)UIlA)~-)TU%(0w9sI^o)z#
z->c{ikt;*wuaEJNM*h(K@1q`mEMz%!eNzmYWqDm_(qMbi*y7xlSF18qpB=lGpEl<8
z`uH0*?`_h<t7PwWICr}}J7z8YB}lJAIy)^Tgv#c#YI48MUw<suId+LFC~3L;^BwD=
zOb$;5NIbe<$x(jz{iV{$Q8Blt{6`*5&vk~KhPtK84UG)s>(ul5*9ua<zar0=f8E3O
z`%87d;1B3tetjL-vcvJ$58>ywc(2R*{Zmp>e|B&=(0v#2leqzV!*@(?(KvH;xJ{bw
zH4b^B09jL+7xW$rv#m?$(DA|_trW&-BULHtGQo{wbr~Jnc2*KoS$wZC*NzL$GwbN4
zpc(j_YiIU|J+KAuVLjffLH8Q;?M6n%{dgT*{1{q&@WD=<J{=^?))OY?v<ZS<ak^(P
zC}2Ev;ra)9IV+q8^%MtQx(g6R8n@)-;Cn+rex#I?*3*3jD|sV8xqL=3KQ{K1E3b@<
z3>$p3I=v!8(D;rXBmkA;eYepgUb^$%7{pk&q4{1yhe^2`|9auq{#y&Meft4?notot
zPWa0_JDX7KtfY8ta!_wLzdk~G4c4d(-q8Uq-heCC(;Y&eJg7vjv=X(d<Sr>G^&>C;
z%3ASbc=%p^#Jxw4?u?Du(p{I2`a3*4JaPC`xiP=@G{e@dwb?)Ej>S~n5te{KfxuyE
zsF0Pna7&>_p-iXaw>QgwLd!%)m!YlKeyzH1++e%J|JB-;M^pL!?LJacA*m!oWGEpa
zna2i7QpuboLqvvc4wXts>>|=&s1RieiDZZjrH~Lsl5NUVNKvYD-M;5{&Ux2a@4J5Q
zI>+jdu<hsB_jBK$;re_&*A+PZpr&sj1=c?sx~!}${$gb0xU6o1fvJe68rEF;a2Xr*
zb!zIoMb=ei;bXv5bJ>_$p36x|OLKc32jf8Gt8oCaHgrNEC|3*kR%reDG@VoH=EV-D
zGchsYXP^d=tp$_F+voh)5th|Sg8%8psAjSH*LD&XK5xUk>0jGvS=83tGjVf!@SlAc
z*vAp%6atpUJHS0DiKAb$E}$WQBc)|#cI{PEQ7r-{v3|lLdp((U3GPBGr;V9HDO%K1
zeyk~NuVC)1Q;$@0Sy@@niTAg(naQiru6RKi#<Y$<GT@<e8;4T?uU2(I+Bz`P3F3iK
zltipvzhlZOPEMi3v@KKqyvvrY?dMs(T!g%3uC4C;1q+xc5ZbKA_wX;&3U2Po+O(tJ
zoxzuS)h`jP17=;;ohk4LHuR>ZCOO@0+qd^77@ZYj^;oF=zfT7}<GQ9jTJ8SlmpaS8
zedJ<tI+-s2;F`|_KC&XeabfVUxq}O4&`YJNrltoFe8EqZQmad7NpCN>gl-OYjDOIL
z)~Z&$n|*Z{dIlkc9;?Xx(>##x?8~uIFTs$&AXp4dU$Jd6regrH674<K^1Mx;4*fRT
zu_`w=*GhJCptd%XL82NOTMW7}!}PqdQ5Wo-oXeM=1C>|DmJSd69{LP4=;`(j42a0d
zaba*^F}OiE3M@v?NZr5G_>TXO`a-pe*x3~E(|g^;49-;qq4}i;b301jLn}Z|&^<hS
z5$W9>urUpGm8#0~MlQ_H)gQ{kwQ51>D8xDsZS?1X@fL0H`1Ls2R!?s+=%$@Le_=aT
zE!k8e<lXLb<vttQFmpi<l#-gdR#9;kB7+?ew6;3Yx3VR}w6Wg2z5h5}?_LL$9hb~C
zq-fYTm^H<>A^TUCRUu7GSFFVa8&7SI80%RfU(VhHtgQ^V3nUr~T{^gvPXBq_+V*+M
zpKXm=d-h2PF5L!l+7L3x<uJ)C;i0duza50Nt=`yS=V2s@dGGGFe36@($%dZQYOJZ0
z^q0=Zo53~li6Qbak^**sL5FMg-k^33LZ`#Q-*TQ~oyx%e7wIJD*5y5az7y?6%zys;
ziLM%EGxhZ9<NrF}bmGdLS@numrGfgJp`b3ZIO*c<E`#PsA?Ih;TkO}e&I2>-Su6-e
zk;TH$@NTY*e9QWA#7WZt@?6SJ!I=`J+TApj-QjX8<};x^Nd#S3F5Y}#^!qv$n|At)
zq_RY+E5k`y;`S+q6J0O;W0C)dAK#1FyDjKgr?tYu(aZr~qm6NNXf)bjd#=cx<Yd~+
zggx#z`F-2W%*+vRN0`J7^!MAKDR|#Kqp--xSUI~;rJI5j8hn{R-^#jpaU~{nI0XdQ
z4<A0fV&%#sU|4DgUj(q&v*0GagXqk)p-RQn!}6iyGLVgh7JCnq48{@N@IdmRm4cAq
zc*@<oHh??xz8fMp3%hu6TVSBt4F#8QNNi0{Pv64g*Ip8=#lZhXJgOsLv-Lyoc1B5A
zQ4tR)GeVjis{pXlaaNvw{3r+xtr~<I#O&g6*`QBa&d#)=mH&|P+`hF`S4iw}ipP$s
zh9<ykcp@<Fu7Uyuq~rl}u%O>g)w0N)32{Uv<kf@@=4`(AQdmrE0a!08u>RvXn<s?M
z4eg3$V45(P;OuK6IyDS?3&FgEFq9j13N6Zi&VWN#L`aAN4E6lQiwf{;tHm4JXZNPZ
z6h~(Cr3e3v%$R#Jb>4>;dGkFj;4dw8g^>|ma^|@KG?LDmWUM57qj8V&AyS~7(Ylz(
zp`|X;7pC|AKoibli!2kOqFddE8|8XvkwrAtE+l(JmMZrT3@pKKUpp04f>-pu)TRv^
zmVq6AlVgF!?Ua<NJx#@97(XHxAU{QRXlh;tGI(+g9Odl1Ot8-LfcxxLtJ8UKcLxYt
zrWwUCl2iNz1HzMMc1>CA^$=@-+{qDSfaG0J@*BI$dT3xL9eik&Xe<uKz&k5Q%a`M}
zWWd(FbjMK1kVhvR8+l72Uci|!eE;Pa?1!F#8W1JghrRaBE?HGt;5wN;<YDCWyCy!1
z-+AlryT!w&_M~?x{d{-#VKMu%Wl^f`(OV|OwK*@x$FosZ@6Nqgb5;l*l!?M_aiR${
zXI+Pk-48QM!{WdhIqDYTK-Q&8bMn;0#aRy(dofY*O0>%4T;)4xqoyS4GC|DuMoycv
zD)G$K8e_J_i@6$`z^bdLJEV3{`R)Ad-n1B7hF(0*u47C3GEi%zY@cXP>Dfug@L_0D
zk|2hQnBUb_cm*3aC^{I&eMHAQlTn1G<UoRCw)-QtSfj#wW1hL|THKEJnJphue3bob
zOR8&fOrrw)rduV8)kHepXj@wIS}7?uco2_J#)??I^Jq+GqL8FWW!wHVd=2w`sah-*
zq&d`6^jSH3C!p3dkD?1|jzwLIKcexyGugHtl2+Yl&7_1*UGR(fd~pN~S|3*29wwJ9
zicT`5M@rI$ru?DN%}k+%boDMqbabimAB?Rj`Hb*jOfo1ah}s*xZgpzBTSH!Kk`U`O
z<{~Hxwm)1Kug$klPbrSX6VbyHX*{L%Zi??<+wU8Oh5PFqkm5use&Q+V-4BDmfGPn?
zQ25aGsq|$cI^CFZy#}pqpg+si5aI00Xnp<JYZ~M=?i0Pcw(IDiRg>EzbSMV%AoD19
zMh$z$aBpufMM)nj?j;}YhF0qSWF1yEw#<hk5R{>UzJ7JjSk7|&=wijG>2aM$9+`_Q
zU+mpbTXS7$f%a3-_n@QEkcW*0mYoN5$75{GV&8ksEG)ticC1xUFgb2#$QAIC22%F9
zo4^HwgM)A3CI;W-uLl+5=hmc)k0vCgq_&%zucok(S%`yGaO;YIl@V4_;z8$rh)G7l
zd&!oAN&)rz3_sj0Cfl^egszwUvEB27ss9I^V@WQE54wWcOL}Eh5;(x2Gmr8be!HjN
z(Xtr`R;J}+E)<W+1hC}BB^(?z0H%E5piSSdzIJFFa}Z1v6uhF6k}kb|{aWv(pqgJ0
z=r)+Af2>;TcEH4BU4z-*q`xys##dLZT*-u=3hdTD%m%Ii$X#TfGLPQvtt^osIkTa!
zU5RS|j1My4<bxOdzRwvun6NU9U$t|ybEBiGu6^v-21LDTD{t8GZ>R;S^*GJdRT}h5
zxxQblAQ0A#?RHKlndY3?kS?uxAm=$&e-_SX8ddlzdxVhf`3_6rhR)4JCy*u3weg9`
zZ(|c{bs2fF|MS#MoMemNHBG~1T*C@_zmFs3oKWa8S54;qj0RgOsJ-1Rcj5Wy4@I<R
zHeW))FKl=8sQ=WoSL>psOLf8C$wUzojIIQP4D+?0V(l--#LU;`q=-rN2yu#n*(Y{B
zDQRhz$wgFFjm>otI6gSZmpv1=X7Zp$=^1rpiR=F?#`3fZ>vS(^z-m3{p6!_#aT%!}
z$N$J@fUrp<k{drIy|(t7w)^&RV!-Gk)~*MbUnLR*-~=q9qM};KP2IR2(o%Y8GC0R)
zuDdQO_x-YlI1Dy^B~IM(GrW4d{O_-Fp3O(uC?RF#)ewAK6ZvsXw&ms+!$O*<Zt7b%
zEY5`~KHcnJdRZOfqxq3xVbA$;7j8Q73Q-efr2q7e7wFY$kh||kScklu560?zPR=GY
zS;3`*LU3aZ5Dl|puMJzbZtdl0+d!5HWA+h9AIOwg?9~M<ETlLLZjIY*kykdb&LdKH
zvpDW>t<SLb8?y(757K5fZ_ziik>RPT?P@vrqKiMaE_OD?<9Pgqe1QG!k6ieI!aX;y
zU%wE{G*4l3+`+qv*3f<56V3WZ>i6fgG2nACkv`vlYN+p%_#wtlWeZ*(a!Me@qh)6&
zN|v>y#i+B``=#@`4f%?i%_kfXk0SUkL2G(X9&FCHu@8JCn`wNFLwG{;R6vn`{l2Xq
zYNGgKEy}T4Vy$lcrDKx0uE`JoF`8n3(^S;C5jD^z`}a7?^X4R8d$tB!(X7Nzma@jA
z4Pv6zv$M0e4DWIB^GAS3W##E#9UsA*6^>EWm;70iXV0A*2YDJ9C<+S?zaK+j=c;#U
zdoZfOtj#IoJ7&qR=En))lc(U$$)txm4vF~<zulP80p3xjpzuxlT@!tkxWDIfi<J^~
zAj^bt-6638bV+9+k!)FhN&u4YUI(h^o}#q~+>#$W-~_4Ic-=&vPTgb{?3oSogJZM%
z9xF#51`SwsEojjSiwqF(P~FH!tePboTjh-Y*BU(Jk2Nc28hJ7%S>S5hGy0EhiBR`@
zAu^Xt!^c~hUiWGN#thGM0IDHJX$dIJE+P*Nh$}h%JGNL{JCM;j_~D5nBw7yHo9pPX
zP`AM6pUCl2xOr6xZXg*x86D<%^@$tq=0P}#-YPo?Ef#jl@lDEwfU`cAla(bR=MK_N
zfi%6;t>veF&#jc^DSnXC#mQI<DBVc@eDyc{j;Z<4V*4MUIOUOd<fN<tNFdb9{dPw6
zsldQNbO6z2r)ix}eD~fFPZ)4K)&I;%4U(nYZHqWKxCP^4V=EdP_Z9~w2<=$yAMl~3
ziF|t6BmP*U@)I#xbB5%qA7jqv6i$}8l^Zc&?Xl&VsTIDzvc&Et>OLxKxpwu$%l4y&
zn|avUA<#hG!icY&?tz&lR)F?Ej(7ieo&Xn@u)$F~7vWfhlS~xOzNpJn1NU{hVl*+$
zRDM3+>d$-HR-1ar^ROBJ(YHNvV^iGCCv~!tl1nJN^3f01XJ>!^Zh|eR{wBJQ?pI03
ze)H2K`VJccIEFr5FXLkoqjb<^3f!9lr&C*9j*o|UqFr?7F64%;zVLjAxQG~|g2R;Y
z;^y`+jF~<7x#O*Tvd{MI!6T&yJ3rwt2OFeqv$IPv{g!fbvjYcYm@dJzFi2WByd)7o
zf=R{#>Nt>(x(V#IZcq=g>}#^!Wzf){zT%&-B^xf0vsOCh7dOqpGhXww2BPt!<BeWV
z{M_9iOvlH!@%zRyU{kAfRw=Jv;3cNn%=7TBPNOaaT_LJ0B2rD;+9zbZ+TZg-%{#LG
zw6=hzn?s6k+l$8}@44DuR6O|zA<KpZe10!RPtA_&QcqFgu%mD1{q*TmkBbW=&x^c1
zN4IBWqRRuL0p&n_G^u?)4J3+2uDRdRQmR2F0d5WhtTs3ZNH2i+d<);?2QFPLeSJ1y
zBA%gT-R!We60wWHYK#_1KG1QqP|sh!+-7LVg<hSe>_e*N>(xBA=(-K)ozhcQ$gaAM
zw}j8=0mjoav&iV%!zUhni#2|KJ78HBxEdJ8AZVeV7^Yu+QdjA9ay&$^4#^#kC~?U!
z`4W3h8NpV-Yz2axfeON+5ke-P-LtK<0yfxXIs_;_p(zJ_F<D9tX;wMl!3)4}svMOr
z&vY|w*NH@b=MOcp{IQ1RG!oLEVhqj2_o;z%%XL9dru=WzbA7m8!hQJ1O`f;9!@gef
z&7wt%2EmJ4?E)a82LmHa`(&HFtgUbHiTFfF&LF<ChCvsXl6qMD8<CI*0Ijzni%dPh
z1OE)7ol>rfu)FA;x?Jk}62w|nG*x4X*m~LzkdcJ}#l2fMN%Vsu8&%zg;G`Q(;!)n~
zTueP<dQOfQWcRM$F%xiBlGfkXXWSvg4a4~^-{Iv|!S1p=8J9v#q?-{z)?AgBvHXxa
z`U?O5zVj3)XOUFPzYE!P`3{?>hsWj1m-ii0V)4Xdx>9gt-~Gv!o5Kp({r@C7{sF&r
z!iUQW+gvQ`n>vOSa1$QgqRw_#3dT9=lM1K!DqyTAqfVCoJ%@wz<Lftxiq6L)(FHgF
zLhp+RP5_J`^Ir<sYp^+ODGK+U+=U|X_2{8GT!jI!5LmEJAX|BgU}>3vKqMe6VGRwd
z@3JcdfdbTzD`zF7;cqcdz5w_})QubA0YApp0^cb0pQ;3OIAW~6HKD$#^+#@+(#@od
zoGDRV2HVo5gsaOPU<iRBaQrb8rG-3|5aNkQOLG7^iJrRpLw7@}l;tN!`r5T?iC2bF
zJ#D02*3RDkHugS*RkXmTvrJI%64HZ!9eeGc&d3EqTn**Q#j|*$_VUx3$e`%2U+*Ir
z4uLo`HMgqO#ZI<hq1H9@rl<U5@3utBULMs`{AJXeZ-a-C-iHu`4F}rK{hu(K63c%M
z!TsB~)PDs9|NDsF|9!cMc}NHmPM*<8u7KpN=m#IrrxuL@z}!_hnu$ZS4dE3uE*=(j
zb}^2~^X5Vy=-Zc%f^ea$4r4;+i;+bRmJ_W<H5gM3hRqHehWRphQ)1cIFsZd6MMW|F
zs70RLB6(hRaD<5Xisvc$eHFrYkY5&JJ=^(-6ZR@9?rW?nWDQfrrKNR%K33cFMzY`%
zy5tdI+e}aUL2hx8_fSi&a|cq(oVMMov#VVKcApEf$_cf~(FK)mb>DaXrP`dYA@Vf>
z3imp>$x&dog8TRHF9HG(I~Admd@kxqoN6O;>gAqJzs>~B(`&Hxs36P-GBC1p8PMzs
z9BBA0Kn~NG8tvoI<=#~KjSDKok=Va*N&;}~9-%lT+qYW<sRNwnw{{Bj|CW=IG9P*i
zH84vu&Tpj<jV{Ed8~g|glfz|FzU^DyU?DdujA=Mw3Ap)uFE~jY5Gk_C`Ef(gJ4ME`
zUmxz01Yahnj|cF-y0K*m^%Yc9Cq7&<B3BY!`W+<#k7OiLwy?L;=s!d|nq9h)#Kqwq
z+qbu*hwzxb^TfQ<xb8Ta1SHmXdS=Gh-0kz5R7f>o$Q;U&erQSi#9$<pyG^L2uesF3
zxR;*J3e`+@N=R0Af4^gID`>5QLqkPWRrvr@ZUrpe$1w*o+w~`WbiWW*(uuOcTGq4E
zh!*#on1n!$ieK4dJ|N3ri!AQ8y?T0;C>Pj86!j|u^QMHzK~(j9)L!H)!*e+<ZXq>?
zz5wSAaA8O<GcSa60#Bq4X6Tskh&)0?Bn1Tp1EE7j1tHEIUkI8JP$UAqj@tZ+&y7hd
z)eter(j!NX5JU`F#d)OOv$dyZLyH;^5ne`f?B{*X80D6uw9p)%m2KPgm9TIWtFIG|
zw!-#M>L0`F?C3SBBn_q90jQDCdk#T{)w3m6x(RC6B~YN$1)pfufPQKA8qg+hK|G6p
z@haYRJu3dCYoMc80Z-GEvTOPDuV2Za#{vFUy-+YP2oES3K+b1B#pCTlH8Nmm$8$}4
zB*HomG|xfMCccB-p!5T29Kd%jA$xdNy2rVeftKzSNt#}RoFp+Z4;*VMM+81z0K$p%
zhf=VWme9^o8J`)liMV(X2ekrRy>8wD4lnBxC!dPK_(64h5eVJGy1T7|LqhJL95ao<
z?+d6H+|1dtckiknR}vD~spkz1@H1R6&?xAHk)Va73D7^QcTuiP7zlZc*N=2QUQQg|
zo75$h&z>#A>kv6d@W{@?uFH7TmYixE1MrSeE^b9`voFJBBNAwKK1J6|IS!{IM+mb(
zC_&fY^FZ16471!9prZA}V?LE&5DH-L2<S%0tR}ewJi#LnrQQk2q3IhyvtVXO#^2)!
zA=LDVvYmQ*(Z`b>(M>U9g5VHhTTAA%un4QDydRsb7tjbao7GNpXiVg&?jDo7GOUKw
zbk+Jdo7uMksRJR4?3u8z5kn&*QHqmd1uU8W%Nt5RT!#l343U_tS53?ZFg4br0+yxB
zJT(yNI=;Sjriflp4%|s1N1fIaTr`U~h1)h><79D>0o*eH`_YERP8fmnKp)H_HvzQ}
zM@6iM!B{|5qNV*PP4z7u@!{<LQP~GS8fVS2K$IQ`s)Np>bR;df4N@nl?#qrb_8vF`
zyH{b&34q7ivjYfcB^EBL|LdSKdX70VI>5ls1ySU^H*2fbjA<yo`eD0w#upl^B+U55
z1CHjmLywR#Y)n+d2Usz0-aM&nBpB-e(HI3}Lc>!UMU;0DhXEUs5P0}i&Xz}ifQyTD
zq@^;*em;WfV`Hnoz%-0+J`qE6C>O;F8?4ZFCHYma+FlGTuBA9p9{_YQqIrufs1f7A
zLUKHyXCVkb%S_?mS{8e~xZSqoY!K>4J=jmtwMXT7$3d_{U}P!?>{FjWkCvyh+S0qr
zkHHR}km{ic)Z2*jKxSy*^0DJ_ex|-o1kYLn1^Y-uY#_fl1JKd*Nhy+`+fZ*ci5vD(
z!6sn_u)tC4)X>oo3Er<eV7>E+JPh$!LpDBzS3?s>br>YMC%LEBSm!$@4xEAWz=Iy=
zAi3O@(YiIQ`JJU3HnHDKUtGqw#oi$;zbxUBFivXKcf!FI^lHl~CHd>u*1y!xKI!xM
z%>u1z_bsN`mbsET#0uTNPW)ys7~I%61)(*q^6fo9wNE&>^C<$z0JVkR0^A)8=mRYl
z?tOJD(LuqIWl@k9@B|$R@ESd%r35}emM;)qZ;AK`zJleJ4c9HSh6_OuHa<vNM1+~-
zw?s*O?UpUA_fA4xW@~(VLrak?HmKh6uIqo*1E==|jv_Ud*r*EWnC8b8jO;u)WshD~
z@HA}r^B4UEq%6a7jtPcpm9%BLS2p3Nf8S9G?b&cb@`zMVTwFW|_X@9xj1yzSCnzld
zOhAkn?j`FIl@wncE3m-hS^ze{T6~%+#$ij#2(s{K7^Eb4V=?aB=2VD*CwaIF;uMQc
z|1C4S3Ydd?{pfDgX+WrbyZN&W)b4@g=t{-msjFd}oC+f4E&Pa^n50M`krV}}<N>(P
zv3KFqFaA=)*;6Xn>Ez^;szZ+8HqQC*DLR2;s7M=ktwQA`=6KRo{Ui+m;D~5ri!^IE
zE2PxQYHns02IVozeNdfoPwt9m683YCE&Um(vwyobc|7!puyCJ;PZ*0fXD|v)=7FPU
z7c99iRp{L@gBj9ldo(k7D7o(5CXZ6dB9x?-xm6S@@CS($L;HGc07W$JHVhW50z1A`
z_P~hCH0q70%_tPY9fF^+dK8TsOHJCYIEAs8zPw*tvgg?<ijyREG(Mf={b-U%De3}n
zl#ywB$^fq96OIdaq4%%vF0@jl=Bn|RE~GU^4#8Q_4!`|wdny82+re<J7l$`ml@z@h
zokG{e&FU$@@(%g>K-xfqrOp(@$;&H&Vqix^Iq0wFQDB+1O3#}`^{}U`AyM7gTh(x^
zdDf4K6CucP&+_jo5VbF;eQU^;D6v`j`>{LCpR2sFDV#hH&28~_BxZfij4M~wBAj*~
zEC4ArTZ_{csv93)y4C}SOWv)EA0-fMMy7@&%`Zl7hMquDp+G_fp`}Ow?ys;Y(IRVZ
zTB+#aCbxCo=GQU5H`fwy3!BHp?UTtpBeboQwcCD$8!LSL0b~hx&?Czo2c%>v!UYz}
z&dyFrps+B3PeVh4N70p^vPOW~nyrZ_Dfs+(^EdfD&narjk6qifjVzCL*%EH=X{ejq
z(9l*O-jaQYkCK>ru%&5u3bPfsd8Aa@J9mcFPlLhk0QD4H1qq3kO^1Hz@7(zm{jCE=
z`j_hJ>sJcm*UdiV4a@D<{m@`$X0HCB9O@{9mGLhjHS_1puWBE$v9Wm#7NF{YjmJ(|
zqr=|uW0^XtgF!ePJxKpJT%5s;Nyr`uXiioOE@}r1EdTouF=b`t9tL52QfP~$({;48
zf?odmrek=uHTl)0aa6pHXY=v%ODRxEh%@@z(~$q<J<b9aORdyoQ`(m8$-v_`gVBOy
zbPz_wg=Aznc_VdZH%G?aZ~lz@`>5wZa2({d+V`{j6DgwBDb(=*o-exPk(~MhcD34r
zs4Eiq?demk@kUhS@KJ1L@6t+{gf?wzJUaWf$T<n;-A7{0ZvAJQDf%H*_5DY?9_&3}
z`#`n!_d2poz6_x21P+#YGIvG7=XVMyA|cIXL3yeMAQ{1sXgG>I7#X{S8GVb<3&$ql
z5yGLs+ToC2n<xUtYY`1hf#ueF8{_T@oWxEnHFaBSY_486%X71)ra(+VftwU8_BA=H
zDJix0_}^s_cGhRlW;s{UwNEmN(TT~D8|@t}Yhd4aBWs2xP@||Ek~^?ek3vPM@Uh_O
z)2FGc>-jdjX|)Ycy&j%YD74QmW^r=vENDa^tg`Y_jN06XBA-ThE`(RJfeGtj0OeIF
zh#VYr%rwiL2b=x8uC5XmJ_5lg$rn*&-T_uDVytd<TvMXmnJyw8%7Nw^BgD#)m1B5M
z^j!}B$T6>|JDHaDUAOEmK6zQ$JWvCsLVl;tg3wag$6QbH*$1=T+cfq(i`ltWUfw8h
z<oQ>HMDfjT?GEU(pDS!cyIdi?88M-x*T?nh&6|?+gdqll;l-SD!6Hisu}l;48{oa1
zC~!}s-bhhsTwQ~*RA!kEpa>f&e3)%8XA<m!pE6O@4Znm~7KdD$)BWeSV{tz=h)uG@
z4e`3?=jV@hWlP#miBDRcCR%YmCnse+1q8Ua>m{lwB3Dv+<f^4b!L3{XUEVEJbm3Ic
zRD|S<bH3>M^{S<UzUihpiPL_t_BQd~XWum^cO3lwSudi2W4Yl0bw9AFSsAyfCX$ci
zq(Iu59!CkW#?}a&#0^(<xTPX?Iu{%~fBbLKsh=<Ue-d=s$w?wGFz|9>BAr7(r5j+S
zbhWj{Ow_SA>zt*nO2l_1=f%7VSk(2zw{gfHKHmFY)QhG(Ifqjn0p3@lpq~-`Y%~0E
z`-hut0%|8*d;9us<G!f}D5A0nYVgA+q#I{&;|da6dILH**Y?{UA*%CvqwjxKR37>j
z6MZ5AEV*&ATwiQ8blgxku#W(>MOavG4QZ)SZ2Iiw2i{N8{xJR+@=2kElQ3eoNR$-Z
zycOM6<U8agARAb_aU(lw_W;ziQKzpycrsxb&KyoJGllk*FqEt;EE^r=N$uX?OYNao
zwL7|?v{CJiS_&+!i)*cby*<~86`}?nQwY&*@b)Hcd-U~JxRw6}k;q6_sH)#Yr;OmX
zw{PuSh>M1Uw0s}ef;dpd?l~v*6wt`!=;)qrkLGOoqjf{k9!X;;C<)V7o*HV|a6Nfk
zx?jDg<KZz8TT!^j?V^h0;q0n%l)nSO4fY*q$0km0?hxQ^;V&ItT{{DFqg3(%VlY*;
zwaF0G#ceJ`Gfx#u6?D#eF!6~xU0P9DsrqBca$SswV1tjdEb&{0_~*X7ZE14ZpP$a-
zG{j%I(6P^Tcu-;e6hIa{-_o4p+tJI+Rm+ZXD>kf-IDN0Bl@%S@9-kl(BZ;3lda8~|
zNM1o_<Hbuj2OzEAiX@#%cML*poEJTaF61y!-2(%m;EQOxeX{6WS_Av!Cm{rPbQFzg
zohI1&z}Jb3CY>4EmWQ9HgO{wXMI`$Sp&RYb><KjzS9Mv-+`4s(I(F<B=+v)PhYUS<
zATvIWK<@Z=y*Q_&F(P3Mo~zOKeNDgpp8$)bR(|nxSocK~mgLTjbL7Mtn4z5lq4RW_
z;XO2`E#u-k3lkm)&4bu=GQWT-MP0i#_(o%Iyb=>?W8`=i-ds3;{w*X&Xc`a?3ODZr
z%<A|<0ZHZs;1VJzki)z00Pczfj}Om5>`QRApzy>PBqO!U_o^|)>McNz2k|!W#DG!x
zkPHsCXmnP$0ig*TUl0@?@)NnIFdPN|TcjIdbb1ZE6`5m9Mx+h0I05?w6yg~k=xt5^
zB_%6>UVs<S;{g{q4+-(AxExqT;I}@Gf@9tHJdv$ggS3Z|2x%r)Bs-0<e9am<jQ*XH
z5`K`o#)&F!061avbH5|#`bhZ)8x-ZAD#l7)-f$dmYs{UY0png?0uoo8T0GJf>`RuM
z(@W*bG41!|+F7vIS1w@^lm|UadFPKWOanB(OC=ZlpMbZQlE%pR6og)y&Og6>K8Jce
z17%T9|Nd`47zsaltm~6UDG(9d2~8ZIQe9ZfIT#WPb_UoMBI|kRNAXcIKw%&DXAzOq
zYxTaN=tc)%sm!0e9+Z*$`R7$c<1KJub_KWJzP{#6Pa&UFb)hPAe@3fWp{oGdexZe5
zIAAf+D~0W9!NtiLgaa@OrheKn%`v&aY4=&Ib8O9dpBjYi_thMVt*(cBx$K`bHUTCi
z?c^pZNNHCuV+;UM&-U=Uf?J5e862O3^cLY9$vd^M;>hjTx^*7rD$f8N{e-+)+sG(p
zcZW$v>oj&X3g?Hw9JCDXX{)27IPBYNU=xH@uN}>u@U~~>eA^{(HggcGgx8>&j7iod
z=sZv@5rE4?6QTfGfGd#6h9FBI{V@c9#mH(@RMZ*73u!i9ikh05BOjiuLLbv$YsM-R
z?3S%q5sakB8Xz4h+@r(H*^@6(T(ZC-5(4Qxh<LBbALBy1_iY>nycQ@Pc;+bRTvmXW
ztFPtzhw1|ZI@Z=gQ0O7WT$mTK;Q{@TqlrWTHp6ARuI}#3QNKz+$yww*%<VJQc>xD~
z74FMswJtDoq&(F)&IH;8+fZ|l0>MHM6du7SFM3dwQFZJr+v__%Ir$77QIrvzvbL6o
zhaA-n>G>T1y6otHY+>W?aviUqKL;O(<^v0%<rM(a6qb`S><{a;MP>`4aFSXfIN1S@
z_b+IyX3bnrZf`3{(9fZLZ(h2ZY$sz7HNNNd^(0_8&JnPcSlLT+ARa75P8=#BIQf;<
zGTk_ZeiJX&_i^mv24-Ceix?Fj9|45ng#ZWH=O>s5@<;w?6%GwzS7vIil~;a(V5syp
z>fx|PM=<T}5juD0R%Zz&`LC}P;s5cw|Ij}C|AHBlJ0f5Ijc(=tFPBUIyKw!53qMm{
TNL!O>v|T$4wr6j(KKnlaIoep(

diff --git a/reference/plot-9.png b/reference/plot-9.png
index e2448361679cc2c4d4854e6dab1f799fd75b9af0..440ba731336c605d01d7c8ccdf7b65363897d978 100644
GIT binary patch
literal 26410
zcmeIb2UL{jwmv?@h>4A00hJc9i-3rLihxFnf{KEGf`Ecxp^4I@CkCZsR76EUu^>_g
zq%#x?!vv8gouLWRdoKgb?|H}M+;h+UpL@@`>)dtMf8E1M0vTq$?|a+c&wlo^H$KOX
zsx4W#W+8<_S#s#0vKECh--$w*XYw64USZyQGKg>7CK_tW_>Qls12hkO`~LF5Q&%Yz
zp_}AiuAsIdGYaKL$|2?bC!8MjHn=>}G0RpO90-@^-!HLd>%lF~J5<D%$mF@4G+Jtw
zCq*9_wtnEOJ`(b49sTaGe)u*SNyDsQ-<F}_PZdANtW4Qacz3V*!j}2J{Cq~jWxO$0
zX;&}z0|9B5n!SVWxke+-3NBSi;bVqLRoma651)-a{N&i?Z#fTF5WU%vi}RCRkS9O+
z;m70O7?JOu%HKP2ezR;t^L+Bc!Mp#AH&o3tp6%9q`r^gLOP4OS{H7+n#c_AR$QXGV
zSw5XM35xgcZC8FPGG8Yed2I9DjEAFB&fnm70*j>o<I_~l(=)newql{z<`oNVOZP7b
zrU{Y<UAFe`KXBpZh!RF?kdpBEFnitJM24``h0@0_<KhCI9JraUrZio)Yr6Ak>qCop
zA6$CFLa(1f@+~i2@?9-$o;So05n)=T8IE?9Z{p?=7L1s#h-zUqvE8$#+CvT3bTnV*
z34HkQ;mhb~AEntYO<vxzPoI`an}76PestGb)j+}3ZquVaR%s2gIWujN3=PTbiuPSs
z+duk@6w6CGG`UT5HsyLO7TU8@apXZsUiL(zz?5r_h4IUY0LQoU`Sac`5D~n-fG1GV
zZ8~q9X(O^J%uZ|X@bBwzlh;+I<0rPnx9a6iSGH8MFsBzMPWBmwED(13@u<@5XwBK1
zLXpO~?#H#YmzOBAEDMT<I-dqf2v1D+P>o~Ucy={=w&dVJFQgeOMg(<)yGRtv4`kJx
zk8m?-e)Dq~)i}52VpLemWNT26%Rsi=8UX<p=dCJUKRr3AcjU;CojZ5hWtI%L73wjg
zV$`oSjpyeIU=jAcTX>fqL(S2zaqfv*#9Q_}$e2A{9TvFTG~fRxLqo$T(<9+~GZI{<
zhL<wxJlL~-v&K%Jz21e|<eXZi=<0N{HT-JvZZB6wW2~)LdwcsktQGStTVcHBX@X_#
zYYDgP_L2zW8VhRn9)+~H)Vf!L?-ohgUHquExzc{`>}a{4oBK#;Q?g6egmFm5)egSY
zx=S&#L1UxknjyV=BV30ITGB<POK)aoHDRpU_0-77$kNi%1l5Rp_wKzDPpkjbe=T{g
zvzlsrHs61Bm~fhyafz#9Ze5L-ZfvJry~o^0L`+}#1FfdC?4bd2?r+ITI~ATOi&RO(
zdNKrTvW~x&Dp8oIzrX$LPa)>J8tuxDB)(rNuk7aL7Lq?#WaGY^J#NG18)+}<NobnL
znaEC`o9<Z`Qb@;Q@hP!tOZN1#KT4P6J-I1d*EQrZL2IIW^R8=&jtcKi9+;ULF%2<v
z@KF<SOD@k*s1&HSwW`M?CeDsC8Tci$-e~jZ-XcuaI_|}*e&FS$=FT~Pd>|dA!D?_|
zTG7WbnF99q_7<ZL6y2N!?JJJ=g{xT<hDZi|zkFj}fLvn@{X=0?#e`MHfE>nlW_EqE
z`1OnBFX+B2#Y9C-?i`Wz!9wkBFAC)^Dk}P|q+?w~iQ0h!2eQVh42FJR7nG-$GaTH>
zOtYc2Doi$CxBcwJ&u46tQmJc;eNO-MT!Xy->eZ`RGsA^LUXrd)YC3RJ?*mJBKhs#-
zT%9wXax&3G#a~EX*1RNK2vhFuswff=5HOUtTr+R*^LsxxO@*<FT~lA~v|@gI-Djui
zC0LS^>6g!bxsm|`GSnVwlP|>()b3TXsET!Je{jA|VLa>Fh)I3AExk>Ud&!y=a`l%F
zY&)6oqrSerC~N{YuxVB7DYAO}69P)^t~0G7?9S18=g107?vV#OHarXsHKp~X`rQ<E
z-rU{OLx%9=nD<XlesJl}IA0K`bL!M;VpN94?5ho{yA-{CTKnQisIIG9-Nh*T8umJo
zse|>{1X7Ou^%pEH{V^bMaq*!bkC}DCu7huD@F9$9?@->!<O|2;iqAE42C!1=C&*Ds
z2;bT>^Esg6rsC+67K4}U(I};{3$f%(ls-A&*V>oLv=+*#oav6C8uf|S^Xwhm7dopi
zIsXS<ukxevap^PfSlO(8nnjk3tDku4W-_h|Ngj$3l7h~iPv|+skkDrH1BDEFCww$r
zBi~;wY`fy+vwRaDOT=SlsBc`{OUsDSzpV_{BMWq^$lS%QH+~wH&uFhT48W6&jEwhl
zl39a4C9*N?js3GD*a9oeiyzhYkLz5?IDK~bO95RfcO+~enVI%TW9Mj<o52Ux5{#_o
z^8L34+=chV#ZuFl)->UOu`hQt^WS+b@}myG0(O>1Y0_pjcemZ$_2t$9Un;qTowNVh
z_c!P(^-l9XIQ*ihFVrgal%Pv*VvJjVpnSjg{_ET+wMusi@*Hzn4J|!g<xy$11HpPm
zKAR$3cZiC<iiv6cd4X`}VExvuTU+>ZCsk}$dkR>mKY7N}=A28$`7%B}(7+~J=GCiL
zRRu$-jm|wSmgSghr<oy!e6Pn?r5-=C<I&Zlw22a~1%f|dVr^(lz37)Oy(4D6Y@$~y
z%?$<7^r!b!8vOgyGjHjx$2D^Wn(m*TrfAt@wB0jd-8T*N!C34wOUU^*Vc~51KGz6w
zs9{?ev-G3Zw%|!mTH0iGy-2J!a<Q+;wcnR=p)B&k#fzt&mK4b~owkf{8?U9yoRR+&
zr5Qm^gCCVWcvHzPQ`0ecc#i|aXH$61bLycjZmj}Mn^Prey{{cuGBPsslxiabSGS7e
zYQbM7XIT?LR;jfcMMWFkS$!8SUD{fZ{=DLE9v+8+TBA7fQQ8y^Fn}0>t0fB67i*^7
zW6T$-D$g)HX4FE)Yi$`qdM*vM@5^B_%e(HwL|jW$u&z%(dfqh0L)BC^)bMG^x}d#U
zmTBSk^$)5nN^)@i4I6E&I8O@?SKq^M%6-qHlvR_%o@1E~wa~4`T_!)@gk4lo&Z|i@
zZJj4Fxi8984uiPPqqypP_%-w1q!PuUpLtw=ykubkSYe(Lgvp9a*R-J~)eB|YH{D~o
z&%;)$()^}z2gi@$KK`&6xL^-8SGZ|1U#<m5!fCPKuI<DwL_NBq{_)Z7q@o9LF>pOj
zUC%>&sd`10y@yp)R9q+Di%8_mVedDdWygQq7yELuI&P<3XQ@PG*@N1o^Zd*Of|vJ=
z_EbwwkM-~qhYx?PY-MFN^wgfR>)P;_7Wc3)1I@eLdmO5D4XkvArR2-gY?>;CZ##B`
zIi}VQ5Im8nVD{neQpPrbnj)F%JWsB9E!q*&Cr;baR}R4mGiU=j0>tbVnd`AG#NqTU
zIA1RB+>;|dF-tsAY{a)&W;@(xCW$4f$D-PHKDimscT3{b>-F*3<8?J~6sEu5T5CJe
z;Fz{MpVbuEkn6#g5b;PVk`+tUi#=I(wyD^>bv)U_V0g;amit29haYWV`4dg(zQl6n
z=jUIrww7>DUP>9k?{gbZUzdyAS)E7&pi|#tq!;Es-9;Z);WtdqA9rkWOG{U@F*7q0
zv@6{&6zJG^t%HtZM<3e}YiN+|)^u;=-&W@pU>NL9KEXb<ma@dV;1P`l9qVn6!?^PD
zYJ^Axl(>&44K=Z6n=E?Sb3djeJx)zg@#9;`bYqS8wXYrx*ZMWDM_rR@dI^3mt!3V*
zk;m-Ved+VXmzXv%-X^TO+DCor>gpUA)6AwhK7J#ovqNKwtls4lO&%UuL-_(ja3s<&
zT3<${fIR3yWlz;YCjB$xlk9D(>29>d1{+NAKE}6MJwCp^zBQL(;#zJUSn2~CvUbgy
zH7%bsB*m?jTK%OXb8_5M+;%+pcu7M%3$ER8kFH{bvDL+!acPa2H!DMoHr_d971vAv
zY|1Taj7Xfw<}?Yrjy*44L`I6{%#Bg`jg1`}?CB2hF*tB5jXk<FjJq$#MzCi(=;O!L
zgjQlu{+b@s<x(bj-UO(eIB_DD_hAlPu!4e@tbN-Pv#_G?jH@U5@-OESATP9hFg}VH
zz}Tc>U%-I4$qYa|hX8kgI>*F@M(39U6LSl8EfG=73e_2p=NPPT84KOjVqH1$MvRJN
zqni^qm1fQYYVaGoN)dD6eKJFJkR{SN;T}irxw}PsPZ$^NT*2*1^N0!Mjdy%9Gc#Ly
z%nI+p!iiC{K3$Bs(wHXD&Do^Mnr~>~%xfKCetp;@jsbnflkfO_`+DMO@fx42@w%R6
z&}!+8+)D*(-fwkb5X)kzNu2P*haXNJDY0`9(oSl-XOMqi%2d>(ZBJ56Rekn!cZ{D~
z=CYd9aKpM_882$q@Q41p%=oJ6Hh5Xns9A%Oqt+$Umz%6FaNKICBG<s4s)~vgK)lu=
zztr5gaU&h~_oXuR)z1PaNS*urR!a{6k=<m%t5ECAEiW`9j9eS`^cptxX7<D<;=QWM
zd2m*(WINJkN|UdRwA0xv4>q;>lGvF2;WEsKZ(pGVZ5y7trOtvX?%og2*lXuswf|ht
zbK$z-(59J<Ia5V84o^Rg3lVQTUVA<wyKdg6#(^6G*4}U~)N(18)*O4z0`~C^-h1oC
zZ?x*b&7}c{?rfwV;89pHkTr5NIXPK5?}Pom5DCLIxwCyXtxrW}FKokc7ZvU9?lvKZ
z$TSu|RaQy44Hs-Oy(#42O`zjsX$oM-)sEtTJDQ5uQqrn0<>o1#7H)S6&b5TQ^katy
zr*)CL7+5B%oVKsjA?T&@mtOe8`$`_}_3#3=gKrlw2r>=HoiU?U>3!(AAF1iqtxdPM
z%ATEIBwsA|<?7nMKq$FRM7U1+;-_aOtlJtAKGG$7r5jyGihl1H;pK%TYi$cL4kUq6
zevpXq@YP-2FQ5AMk!`kgPv>K&wqQNq4)U(&Ax6HEuAdj#zWaU?z<y(<jodf~Nn9|{
z$yii#zk!%LR$rQ9^nj3KePW&SlQ=T3wpFLj)6GH*`GAD8$MprBntv7wOr!G|<jv#R
zTiRvNS!k8#%{x?~tx0cm84!Z;xwq}qvZycz{YMUU7uzJ_UY@9yk^x}01q$FlkFC#a
zlCYL%^(N7F=C8dexa_G~P#}3)QPKGH7GL}$R@cXVF6p+#yy)RdkEudq=VMd3{%d5m
z2JUXZZ}M^v;=W4Z)06Jx_&>7EUmX_648=ip=B%@o^mRv}7#Kq(_Ed>&9<Q2RH2X!U
z^%@?9(PL54R+8DHpV9&JX~}_I&ko%&DSotD%4x7!qVkwEVk@7ikq*YM-!IS1DuMf7
zm2|$OKjoow&z=|Ug~oHkYa(J0p3Y7*<!Z3>banGhgB1Ai?ET3Dbbez&Jwtn)6MA}7
z`!Jylm@N71Kv>lPIN6PXN^_GEK|pO)Ur#S%F`Ow5Wh){@f3HRS`M9JAL7scZDzpjs
zR*g_}Yk4m+cexi}L+b3iUu$e~XCq&|vIx1@lILTKkd#i${6zg#&5sXd#E7jY_mVQr
z&zoZnh}_wv8Ti{ewejKA_ZrPZt@wzIAYi>82hRy%drMbTL?A}0hBfI;c)v6eM};vt
z)M`32IV5%Fji(VcIxXH*-J#YjWR<Mt$t+A4y(A24X|eL%(lt9b&rLFv@&Pmi<r<w#
z_s&hWCZ2iw%c`9hj**xH;dSmVgx02j%bfw*-Z(kwKtQcHn*liV62fkyWlpnW)uwMe
zxe|d>7$ju7v+)Qg4nZ7IeW_QgF|D6OPLIVO`~<GWkrzM1Gb?E9<ovK+{mmls!>!F+
zlH~io$ZxaAcZ$!l!Pmzpu~N$bZW$uPGG}N$*N{yeArwr_$-kv!PP{m_dBq3AuUw8r
z$>RS>=7v1qzmY>a!8Ff+0*v<Q^XJd&%_t2gz%Eo)R)Y4ZsQAKK?P*<bZbuogjW;25
z%4%v(w);{J>LBtzp{uK^tc++8E_R3Bw|08iDv>W<yf9!bbgF)W@cVc3q&A6poi7NP
z@=AZI#Qea4>jUR0na>fUPmVl0wt4c}H~Z4YfbA!xaq|uE)(^zK$&5)&O=Yt5BRQni
zzdh*RPT7B-#R}d6Ja~maF%byd2l2s`5YDY))n3<H;@CJ^7+-ANQ&C?ph)DG>1Hf_f
z_9l?&;>9gjRVdFk-ziYeb)OX#6$PfnB;d(^)WI&M`<(k4=Nh;BdiHl)rwgoYHjKiR
z&n4C3Mt0i3P>Eqh=1-%eqx~x>w_X8#n7j!s={SO2#?(Es&&M0!-S@PFUj8M|@Xi9-
zT-@8gyT=HlM)}V+;XmsQuU^&9Px$<Se_`U@YOVeqkI!AHZNCtIdde};!#wn9#s-6S
z-^a=ec|%X=h0q9}nz{dt2K7|k?SR&B_hjs<QlGUc_O=c8XFnJcXxnhchkW~=;wH(Z
z|0g!iKb1iJ*F*jzRP+hJfz83ECHOsNdyGxTduxZHlxDXenvZ+=>Xk2HVF}c#fnPz)
z_~N}3@%LaGf}$ea_wY#?2|iT~@YQr5zLPkR!%{UfYumGDIhlCR_yX8~pECS5dx^!T
zixM1=O3MbfIs{+0UAD<}L^drKL9K1^?ha+(eN*Pk<4;ZMk}n=NFkn7i(*xQlv}pW-
z|J`i`vJ6{ICH?*#l+L_cb(!hbAKhUyWY?@*xsrHuSWWY!<Hp9Y29$%92myWX)RO1Q
zI353SC09cwBDR+?F+Ei|0v{JQ7RfTV<xJ8g^Cf7#%LpL?YosO-;z#gkko)LU#6L$L
zfljrB(^4aGM-xCf9q5!0UwJ;uO+P(5ga;HLSn{-8naU8Tq<jD}VeJ=(x0Kg@wQ?7)
zpStb{Cdc;owKww+yRHP2@LRz-`1GxclW%$Q2{6UOCtm*i4%l#R4XY98@VCM?Lb(k^
zu%{x9>*?`7IK1)35&^y@R^vqE>(@KNox7u*08a}qo0Hk4STWCh(->G$Rh18tZ=I;g
z)Nosjl^Eh+yhlwr4``>V1}-IMs7uphkEp0H_$j0K737nTdt`k*<wA@2&i4ndk}^rL
z(zv(H2P^CCZSviWJNO|rW#zpfFtSf>Aa8$DS9_+a*-8V!6++TYBrGPZVMd9Y#PoO{
zO+NxLB?toWYfoRleqCgnT4Unp?d{Z;Qtg~}hFriiCE@M-ECQXW?qe~>H?P1{s^xun
zkkK?Zo@QEY=xF$qO?b{0<F(cX)1zI>d3j05Uf5Q*<d;xH1Ber?93K(VG7$lr<J4)b
z5G(7gj^9)4_9Jkbn`MR27S~)zc5g=P{Cq%(k{M^ONW3XxQnOg@P9XDs$z<{fyu2Bw
zty8M8O|1!=n%EjBuX^N2(IqBahjQ%cs5FH*_S=sgBYoUi;2Ul6WGV8+o0O&sY5<kx
z<2()=5ADk0p|piyDdXeg>&@P%Mn^`zn-HOFC_5g{70cE&yW5b68;Q&`FK8t}fp_r!
z0Wf4M33RH*f#Q&|px83>_ZjG<3~MA@5^79MUh401`voChD0e?`^AD!#B7$G1>hBF8
zC0UGso9s!joy*Aq<6{x><tqc_z_@tfg12|@*~>0Tj_XMLLLw(CN7g+9>(ygpV-_xJ
z3iL1eaC@!?d<f|7Sbo<4yo}}Rf{nb1!$N1kVM`J>`wF|{xS^pCFE3#iC3L=j7PV=h
zyYBJ4Mx7lG4huTeoVA^53t?c3rs=<tN2G_<1?5<0Xgm?-*a(*mPVB||R$!HUhT?dl
zLt1rp^~8lt`%9pUKNx;PF-(@4b^Yav#cW{0PfwazJf7AT+3nUE8ii{#bie89EZ89?
zP~<$XZ+4|c`4Kts_(E2dflW&7c^D#I-b4hP<40}D+)x@4j(?klR7$$Uz)|_W<hs<u
z8<*b{ad%QyCd`dRFSE4t2NJ(2EB68~XP@3eKD4je>IbfY7P?<6!UA8pCRb^2(|!>p
z=1C+z+r^$4X$9)`L-<XSI8`-l>4>Sr=XN}}zx%2=Suwg4pTy}^+EGUXfVOJfCK^m@
z63+JYJ|fqq?76cg*(hPd@kRU+{z#PNyjPr^9`o~)%-N;tzpAW#oP;?qj)v8>rvjko
zZwNX4=_x&MootSbQ^>i{*7PV5amUpZJClP}hNtDsa{*lh0svK3?RC1W9Q){2^V*vf
zyJ}+33Xe({W!0?7x|M+4?kMk4|D*70Sukno2;*A`yvL)<687c-_5-nSpt)(Q<Q*(~
zGdjYL>r~El1qv(du?A;zA2|$8+(F26)qpiCTNyz?2<#GyZc;h6>ux!>)OER)=7ZlP
zDDJq<UnP!Q;^vjoPG{ej-C3O_khkV5_!e0AAJO<f3kdxufd5~&z^+5!^M7_8CcdYg
z`BMvksrc()@V`4JuRa*Q$$zF9!SNYaLK2I=JX}*q%+{@fb0n$Dff@)gYvNzM8lGLS
zFHJ{Rmya20`T7vx%?{mpqsp2&9`mz$jse5;@lP)a6WK=T0$0-}!6myU&O-#;bPk)+
znOenVqZl#4zI^bc=8glP(<(rx)mo<3o5f1AKgx#CzNKV7KDIgUwOJtmyyZ?LT}%d>
z--7WeY;$FEm0Hc?UhIu9&)fTCj_Wm~?l|!vdv2DNO_lkN`F>2!zwr5gKYsmJ7{c)e
z|Fxb)XV^0hX_bltoa0w|<Mx6qLb*n3N97~AuA%Ui#EHARx7iB$5I>2`%{O>Ngh}Ry
za9K#2MDuWvPePg4wKp!{9#xPgRaTxEPs<H}x0O>I{Fx_DN6&C25*p%TpUJkS$m(z4
zaf&(;$_KpS2ei!g0T-tHm0wOSKkE1Myao9n-1x!%X+`sJBKw50E!W-%@Df=E7~PWu
z-XeivlL!AOK*%(2?}*vn^8^v*BQ?4T*@TdruQ^j-r%nAfD=uJ_l&C~{^Di%{)Sv|-
zuG{ki1o(M*$qfX-I!aw`enX&y>DyoCXB(2>obrbIc{KnOs1FmuvmvuiSYTIZ69SIN
z)~<&zr1h6Y65dcx>{zNe+3eKfvk5FmT+D0oVan~4;%^$OQtPi2-rr+?32KB*io?GJ
ztx#f@9^j#;+qRmNKHe{7RkxGJj5B$i`zkXP&j6rzM0hAlAgD?QP}XD0BA@6)NbK6z
zW<vosuIq{+vPf@#Xwd>~K(Af>290}pizKstC{bd&&Wuq#0_cAHj5j~eGac<L<8akW
z<$Ft?OM%N5)>N9c+h&xti$DgFyfuY5A>hM@57rUV<azhm{0?LIE^}Au?F||&fS*2#
zB+`E*X^)nUn~PU3Yno}7Yb80{BXSKpN$!X6+BQ&~&=m<{6TI^K+P=VSyRJ|7_g=el
zlOZB)e)#Z%9nTvcj}xvN;n=3(shKrQa`*BVNBoeKDn6QY01y{Mx64jd^?UynoKglg
zgtg<~-Amvi$wuJi_2ZXJ{jy<wtOt7z5m$Abn~Oa+jC2sPlMF)gVjEOnVlLe~_;qyw
zdINoZJ>piBksLBvZ-fW|$a-M!Ip&OnEuGg0NNUOm3;@Nel#0Aj4O9$Ik)#6VY{gdd
zgOX_{k!hqgI2Z_m8nx)ng+S;24l{Ki^!vMPO%6ZYxdqADRsyWaVKH(Wt4v3%V*26k
zmJQP%$XruKPg6fO8zNyjgRHza7H~VCxc-S5SMY_dh~R^?kM7<;g0Q6w#KrX7pL9-~
z811AUBdhF+AUqJyi16Lmly3luaX|>7s3h*RMUYQTwL<dJcC<{5gv5luC1JXC^;vF7
zO3ylgzy?4<Pc5nI{IY@y58fIK-;6zSfBV`SONG{u^s-ca1F}&d)>kKDDJQGaaw;#T
z<Iv&3EYngf-_;T2#yXR>>0BIK11ke;SmbBrMMXCrd6=A^L(U;d((&?=)a}H}rDU+4
zT3e@<Eg^Jy;w(uLKrBNgqOPX6L=wi|d-kG=Ylu}{X88Ktp`9`^2t*MMGwVHq6vn-Y
z0xSGl`-92)4n@7&56R^y&ab|34Uinn%t%QPGN`H`7@c=k5&q(K#prOMBqCEv8qh$D
zm4Qs5Q)lUuK1ENfO8-`pDSzLJ^idwT@cRC7FyvcE%B?L^Tkp;m$N3aHm5q10hOR6B
z9A9{DZcIZ<Ma7E~jE+eMAlvIav-HAaSABM1daAncU=D!0!q%4+WM3e>h53;#-enrl
zN3yowotJC9b)H;?<_BKh;d(Pd^IahSnL-^5r8!$#(ywyLwJ*Ah<++YIfFqEtJ$Hvh
z4$nV)P;c^}+*Q`xRLj*?d8fl6*mX(c*p~XDjuG236@EI2fd=361o3!GzPA`XHAe5b
z(5~FGuiE%MnHSG7m4fqws>+b4tzZrqFMG1dty&ceM0Tt@o7Kc1iUODo%Oqo+$`6un
zU)eh`KTU7B8`m^9=ngL1_QRH_WSSf1i{!qG)tk=j+?mFfnSW*$0l)042+d>Gz)+Je
zHWDE{gA>Onod=QWx7E@&HGO*M;;jUo)n;kq;%5<qN_ou9wCwnn<OqoRQD|HVX_D6S
zN~}}L${)kz<)99%ZCwLm>9qS)8z-JdUb6+t25U$2p;t1tO)xqR41<+F>FMaC(Dok4
z`!HsGbWhhaPFQMlg8j4g?_a^zzBh|{bP*3rHDiXpBDCFLncrVpUg4QMI?$BMWZiT1
zxq&p_3Z_tzxnbL{%a3kO#mR4MZKW=B6ai7fi3f2qg^DwUcAPt?teiE`=+ZZLU=pbw
z*aTUoWqIo~nO%zdb8I{KGd;@zq-Da!n>guQ)<ABq8pB$sAH<Ug@tF?0T4hB|5C#Wu
zke*XdTv}bPw99y}w|5QVZ<iAy<YN1_1n+I01&emflBz%VcwJn?ni*`3L?%NV{15Ut
zbdsxrghk_#$J|ud4H~al^*;HTLC{1kI6B6rE+EsTl99g4rWt;{Vl=L3nB_E-%RO-B
z;;%aT)BvV)Q%d62`Y>d*{SiFojK$g5Z>cwI`<wW<tUl{XUkyoXRYYqezp;VHGf5sP
zt^2EMTEfZdw0W*m3-kvKvQAXD*gXz(T!M#esJO&$+rcM5i}qPx<Z5HqHQVm!DAl|V
zZ_=Nhnff3`_2*ru8ap)gmoQq9Ttq`6<5~IDuES6V!l(-e{C0aoZTqhNF114N-eIe>
z4EU=9YN>>rA(oe@PkF^W_~ZY|_|p%YK`tZwn)~}6=t$F&7`IEBt+J2yJ=%SBPaiv%
z&B~>ZZ&Doc5f;fkwpm#s#A4!U_Ffm_6k7x2@;~1c5hf6aNE)!$S_$GHgpb0~uj*j+
zxK|bPgn<f%dW_j%-Uw`vtxmD(i}aJ&n!4%m{n9wor6P)Z`{59*`<QjN)*fhicIT+?
zouhlA8KxY}F`9}eQow@wB^eH+w+2p@1-V!B$JR#7jYbV2<MoF+Yb1j08ePcwM9mp2
zU>{V3fDGdFYEZMz{?G(i=S;Ob%}sT*PUN!P2%SOrl>CBC5vO|{$yh)xs2g(Z>>KWw
zFB&_Qm0ib^A_B;8hJvZC8$?CHVr3AgOq-R=nQS47UzevG7SVHwE(}KeurYhgcqlD*
zRy=T5i?;)dz@Z^5T^=ao1_S7}@nxCdY{osXmGHz6kV*sln9j{iku)MGIw{MV1hA0G
zwsD+<9Hq*L%AFNcQCUd`i6H<Uqc3w8N2>fr^-1-;3!Do+cKq8+)d_0c+fWdw?H?c5
z!cFH7c(7S5^Q!iY;K}0B)H&d^=JBZd8~O9ak4S#igg`Z^y`0OHE#k7lZgTB474d5;
z4B=NI0y{eH%$Jgq@?7zcyT{-J1BmJ@c1)`^59Q!0P(jZX7n5teQKf$2ImN1^y6adr
z0eikPB(HiJX$^ZiBI!&Y?<{+&q44!~>?mA`C^P#2ptN{+IG<+&pUT^|<e9httUVVN
z=6sy3J?uGwOuKlh2y~DC?yV5Aq$81w6Ac+)Aj}T60&01D{V4iMU7`7x`HM_G-j^b3
zQgSd&VMqdTaMlwnvufAnGhn!uPBfYLiK`nfBcFQ19gT<j{kL`C-1&^<WM%U~D>b&w
zF7o;*TI1{N{TS@}HKRnS3c&Ux>Ie;m_2k18tIgNmu%OS(`ZEmR{@dj3%iEG=rS~8k
zA-Yo>Ti7$?s;lT{IlEW(LN?zZ-$E}=>e!%ZS{JHsk5i`1tx7YWc?hTmBxo3LmxIpm
zP&;S7Z)F)B(iXr*0=On<!LiN}$Yp4Dz(Wae;^?DQ02VGbcR9)4gtuM6GEPBIfSaV#
zNDi7<$CWFsM7rP1<Jp#q4N)u5#u<m@E%;_d06WAJ{&+;tYArbKfshVv+A1c-?9D}T
zoS*rJ=s%uBEbo`dtzd>2yI-S8JL+}8oFvY6D6umt{<vTQxgZV=eH>xMNz3y)9>}uN
z++Wtg^y+nA;oMaAB%+y);xGft>Z+>v${fT$8{#>syEE?*T{#j`H1%pmeeTkVVyz`$
z#_8i&CyjqQwp;^7E`2(dj%Ed3RnqPZs8j#?%0W1mCPe7omCTl@KCNvja_!4+&m|U+
zd!M<E8%!ic%v$2S0XnTd|A-f$T8yV6f7ud<LI+v^h=RO{Qj|^vmVbR+7DRgl#wsiS
z85a-<2H8HWnSRGyzj93_x0DU5af(t?+&2?#F6B*r>?=9$FsQswUoDa$h=C&ssxb{R
zv|_QU>re^cu?B?XKmh7Q@P(O)cuV^Lb0uh#HKckNBKQVHwHc4`eud%>nZ@%aCq4$8
z<=&sCa`CwLcT(T-KP^46Q!3Wsl;i`0+DmaE$*D5E!n6$9#YUr3nW5LdFN!VQte177
zPUYj>6aJ+qZFP1Yz8kvTe=!t{9kojS<v(7HkiOdf;99OR^;&lL?vjBig{F={`HqjS
z?TmrlUC*3=kXxZM?~U8Rc|7h|qX%zk<?sRg;FYfu%|%tbp#bcp34j~fJSLF!1fg1D
zyuFLF&$*M0mN+>gCiER@We^PptHq9Usp~&c#mhK9?Hl-m-FtSTEabv2$Yvnuv}aAu
zU&OZ}aSeHk=g%>nTmvND0K9KdH2Nx!DBZ2X<HUnV5_&`HtB@=QrC3zwBTQWsl-(w7
zLvrvYA)JG}{qahLX2c$9@|D)0tA`+D7A5$D4*gLJ<R}PnB11U7d;6K--i;PSuOl)y
zc+(bIl6=Ig%NQaauImqJz52R+wW7{(*(ehU8+2=MOaRgmc?e%lefZ<|&!6G<Bp<bq
z*)&z`sIK=N8O6R2gc8W;?*~<H@J^k)MEOKOQlOChLT1(1s+7(w&<Wzz4Q>qi#^Zl^
zQ)KH#!#gD%@|EVO2uO4qYMHEIDC#<8waId>(kJHp#sKLIaBGDOA@|A8wx14dTKToy
z#gmJ8xx2x^^!fa!ImrV2oW(Klo)w#?7dJxYstAn)&FVv8q3M_3f0KeXbl2dUc_g(}
z^VORzcEU^}9v(G83JPEQ#A1CoH@>Cyhhez;=Mw(OKRx$#zmwtt>90T3U?z?N$QNvL
zj^KRgqVA~Y1QH$rma+!D*7LJCFH*JfBEjmGvH}oDBqBz9*BTrgECsRa@8@<TUTOP4
z)W^LpJqAr{0KVxG^U3GV?8DGqfWK5sO-&zNe)m1hCU_JDzHKLueTM|m?e!dKck!N{
zSSRRQO;B^;PwUUr_?<(Ml+MSvu4bGj9-Q3KiCi2z>dc7~z0MC2G}>G%G-#>LowFy*
zjXQ)|`H+Q<6NwS>ldo$waJKm3gJ$&pK@zB(y?DdMgT<tI(Zqv8LKtJ!#v;7DQ0@O}
z@4$Iy=3{JQ;F8&Q<3tW=>G6hZ!HQIm!RsO`{<2tj2MC3Q%)X+=hUl!UtOPflDE`0t
zwN0UnU7B@6-C35Nv0F-lp^lDD@7I0D9UHkI3z9AgOG*9Ym+!~Zn%rGt7++bc9Q=wX
z8PBqi>h*!kPpchASae{fTxnMOGfUI8WjXy13;AX%rWEpTIuR}+F^aet%Kr5zFW{kr
zO<5kJ8|NDp?!46<RW1ya{_v4h5tfaYcffsuMmUcx4!b#vI!~A3xW6Y76Y0k%?z>!b
zuM{~dUui4T&+ojfgs+kl)|b{KOxWhH4rK93m58?jLv=-;h@2}O2|xmItWrazOjT!Q
zI+Qq7MmH9({v`06a}&<{Y1%lAPlFWqkequy3X9fQRL2L{_f)~e1BbLOv2i+pTM1{|
zJChH2a#5?lX}m|0%_QoAT5^ou#km@{m(i)O8X?cd>P^y4NU918$XWYy#<zUq;ZDDD
z&V()|{(Ix0Wkk@=QFxlReF&!YF}nzc4>5Ay0u-Dz`0nM)&O0AhlPmu?=DguZL!zk~
zp|*q}F<i=&-MKRllEpQ=yeL1o0_^fs?kj9tb=lc$Nh6PI^E|K16JZ0c=SlU>aowuv
zXfP>;HAV>hZSH=xS3j<F;~pU19mGzcxA&<ebGoGakl$u8F~8yAVQ})al!%=dwa&T}
z+}<$spv3h>&4w`nY#B(VPj&B@K5VLeEn0)}csbIZVCU~<E?%`0Kc1z<#(wNU+EPrC
zT{zGH>~AIG$o1(-TtQ;kaU4|0Pd8f{Lvb#|CkHV5Zk$+4laO*MRK~r-?ee8d3he5+
zJwFwm+d-(1?j2{20Zfcc&wI?&pDRm%W&Smoq7Yozmg#0$Hm{LHy<UA=v|p@9HOT4e
z)!OG5`pT*%;Ym%~sMwMvOTc((7^+6p-nQCmj}-V%u=G$yKCdu)^Y}Ot6E1xzddkW>
z<>b_GD<24^;=s2Wedo~A-R->M2d?KbctUG-2|JSdmIVrgKNa-cr{|`CQhujNnF;01
z8=X;4N0^3fmT5DE#|<=OcFN3}-Rl7B==%re@WeYNpd=KtbTlvUx+m?<qck&U@~6*$
zcTwni25X-S6en-#0U-cisuF12e|M}QxICG@d@y&WFn5LZnzA}@JdkV>-99LQD_?%U
zui)a4_%*g!mEbEpSOuX2aX!4fp>j5XMEVXYk>pQG+eujy;csZ$3N9Clr`b)tup|Sa
zTtB5^W9JMNDgzl_0TEUW!=yDoVCc6X*K;AWRAUQL(-*Y+YWt`vCsRzBr(1S@u-^_|
zp7Bt|f}_X`wIbBPKg03E;t=LiNZvvD_WB`|*1?uw=lP2$DH0iPZ~0g2sSg_*fuaDg
zEozB0j#Y2A_s!uRfJ}8E^U&=TG#Ad;=3-$Qzu)xeSWRQ5y+tC81LvAcFj3)<$a?hw
z{?ck1IHzLpeD-VQ_Xr3?MO%oRUB;qn1&b5HQIsX?&-D?VFsT3<;?Qeg1M{)eEmtF0
zr?Up!2K)%MuA;(<5(Fok_%#$*bqn_i6p)j6UE3=WWC-ObAsy_yo#f2F#{7>WCI3J(
zO~k2!Fi)sKMh#!3zL*Fb7berUVFPC%aS6(t&+JnlyTEM&PU!QEOF+Q1J{xQ6xk8_<
zzKW+-kvE<>)^oi3VUamPH4D&b3t4y8cNIi)F5x8fN3`+mFaGuqiRhL;(>PoH$X2WW
z5jSf6nPb*kN$<V@;^DY%s)f;`B6DU#(?hCTp9OvE_nf=#D_no*w%tTC4yoZ!^(LMB
zch4H(V3kEs=PWf+w<u0Cje|26Q}%4XbkN?F)u$FhYzD$Q6KJP>y{k7W16T*Ai&8#a
znjHLmTt^4Ho9tgm4_hEzTmznjs3Ch!{yBmZLH8~osyvX`%^BKbKj#&L5a~powCDVP
zsmdP_@WH=7qQ475{_#oqzjFzl<K1LmK9)SEOZEMj5(1mQ`JvT=!#mIIK<4$!h&d$E
z>uti96+DO#w_hF2sg^!-?BK)Db=tYGx%<l2d(8dv^Ts5%(8PxMbLpI|{GZ^!e|!m6
zK9_iW5`azIAT<x6lu(f3^o6~nr3cC&av|b7NhsyRx=lf(+oE`fPLNhj*0rmLAMKKA
z9E*3Pld6}twzh0njt!w0N<%G1lx(Ehv_ZI}V<c>kd*v$~Qc-#~WL!)y-alAOFW=Cy
zVI|l$+r_JQJi9Q)IkBS^p5Hqa78Y{2;|J2`^AQNHiqWG6LgtdL&8VubW{@H!I9FRR
z0*ozDkCq*{vDgP_gHDR9Nj)hf{_)<#5of!u<ZR<GIXn%4QA>A!x%F;BGI!=mR8TgO
zZ%BdB5vr~x<piIHNd8YE<IC+`V1P}#K0QxFDcULpXS?G)obdR?+fyxnY5_Xq_j}w)
zS$~M|n+RBu0x?UQh3al7d?ITT)Ng<oig6tO_E_P%Vspc5GmV|HvZzUcp*65V*!K~l
zCRER{VkO8EdIm1OzhO<L1xz+HNMKjgu3ftpV};BHvPKxZbs81bAb>)aS3Q6o?glRj
zKkT;MP;6h_wUQe-Bh%HP)gq&7sdAnbgVI_ZOQt;?d#d7iheCcxlOfchw>LO_i0G`i
z--5CWA|;Jh<5y8H$smYY_(bTA0C{yoE=t(3KRkMLq38bS*RMbI@Jt_b2vUg5sZgPm
zK7pO7F}*eGf49h-=GOZ-=$)hDHO&3Rq$7p<<RVHYoS}EdSC~}i`9a+iS>r2uPv1<F
zfh;nip>cE&m>tZyYA6f#)cJ0HRMDACUC*5wxAR<NN1q(ts6DxQ=b_uAdd*g4yOUEk
z*R%I$W`s5zx@|2Y-#M=l%q*a5p=55oc_?^CwLFWnmkkP~m9tXsz6Z@v-aZFO6_H(<
zKkw3x_yeolUVpuN<a_nFw%41%V;FgqhNN1JG@azqI<tMwe<wjExV91}&Bx0tAZuA;
z_QF~NGY35(vTUQLIHVdyX!R)90C>sO@Sj*6hrT*pCMoad<t5d7<A3!o8{l9Rv}2hg
zRs0;7xyUg6L7I853+ybf<4jMTG=}5N={x|iM@oT+;_Ju}YMc<wwl$xmZ2_kkpi@l{
zT8Z0!1==1`XRKeRBG)(Byg=#Xq#`7Z%6SCx??O&uQBVYkciS(&sr6s!CCMh#+xwGZ
z6I4JEs88z^k+VMS+J7~ohu-})7_xrzZ5D4?`;kxjis9=I#aKZ$wuYk`L~S0)rjfcH
z6O@BUfvzIh=x#{JgnAKY01YxYO{DMw2gtdC0TnIB&nFe{i8-jlx%#NE#aGGDf5$`q
z-*E>2HCp)BT>Kky`d^s~ox7QyZ=Zn)sMs(X?YrK%dl{wk8KKcbDA!d_)f%^-Jhx*t
zRjKp9Ar+NL@%fM00{%+t%yvAm77=UiI{>QW_;D$x@Zr;~f%wF}O@s-;`BXPlrCl))
z_MQopc`h-}cO$J&k}30CY@Tnt>zCNg0<Vpu3omG=rpk6}pnOQ^6$;oDrl$rr)9-N%
zZ}TAm*3ZNSB4Zm}*ePva`+{?Er1XhP#%J}~+SMXm83P)~PzhZ)IPT{<mY@|<_TrgQ
z)}mY72x6Mpfm)U_G7apcT+cL~wvj0~hvyPcOBTPdn17HqHy3XB+xq7cT%JceCvr!=
zj94qryR~d~dgK}ZdWFd_#(56Ay6-=N+y9j%`VSEMUr+JBd}#iEvLYu`q8D{)rdrl6
zBY6dm0<0)hjuc(A8V)$?k=856jf{-ChdEx)VQuqll1_{+oj+&L3+U5}p&NgCH371q
zG{q#4tXzeZ{P$v<6i`j@hBcxnGgl;<5mitoDB|7ijs^w!L=^#M&5scBD70O!ciL7Z
zy723VygcPZ`{7k_7>O^>C-fdn2r4-U5(psqG(r>qflReRIKr=E+W{y3nLrfa@$bRV
z{-jLKT<p<87^80W_b?_{Ba&E8tt}y}HwenU{V83yclK}Q5J<qU{(`$-SC}QoTyxR+
zBA{V79}o+X>D?tgxe;56TzYw#>VMk3I`=tw^+Xt`uPBg11pXD|Oj}K8K+@kNbQWry
zlxw~FPH5|_+?0FqN^~LR@x1q2#aQf)a$%3<Qy<=r%@f|YCRlG^x!LTLwAp}L<g~(o
zr2R^Y-Q$@htO<70ao@vlnDbVyq$<ppul{UxL?T4YG9)-9_mzqoYr&m5-w(TN>io4r
zxZY5X<#fcZI<3^mRVwg-;UDlYC|s|52j%fgZnrn`NR$HFqkw^FnFRdj?Iga~dVsnB
znO)L-CpjZGK3)Psxtb#NpS4g(EWWK)%h<T7U*rY~Qb`>lbU!M27VOYiRD9&E<hrH%
z{w7Zl=m4Y#(IiI#Vi7wsS*U(+=&9MS)L>Wf@;Fc_nw7{leODc40GS|RO8;D`9oQY<
zjgtne<B_0Atuyb4tw+^(atS96rF8!On8!)_!C|6w5fz25E15Y5*TQIUY=SmMP0&_3
zqKXszl!osYfn0~M{A53Z&?MDFq^!}~J3v5=h%cXJWb8Koc%K((VjCYZP8>Mtclh@D
zL(zVnJmF9r5@;L4B2q?@zyuL7(J6@XN}{Q&Sa58Q^=s~ZQt1V2DD;+%7TYf`7Lbi)
z)|#sPW^pKv$UD)6XcalA+YB>z8eMA(Ch|2x=MsGzBG2a%oI>6+{N{t>Yo(pmHhgTJ
z|9BPo&&iL?UOztto&0Cj<=@Yn{NwTR|B93OibenoZm-{Bzj~is12X?ZNT+TS6(va)
zQfxse*Z^6ZMnTf=NLg9%@*6H&H1^<dLfxp=30NtHm-EmOpp8`6X`JRQHN@;SDC)jp
z-rTx%Z^JEf5*}|e&e<y}O4NWaV`I13qH3qIxa7|8@Rf*76g%cfiIVZ;;fvPR;}5>M
zes=>WO-T6%oX%EtL&`pVL1+txp76MB78NC}jan{I4#q%!^sb`-sZBldze$8i7ib*3
z;q6VN8a^>x>KpDL1=uahF+ZJq{-m$|E&&(qtHn<#jcB`);RH*{*{+u=U)7{q8Tdn4
zOA_`s1+N@D9HFS78YB#goa^9&nE1@C{opZoq13L0G-0#fO?j4AToQB-VHzoww{8A;
zK|bluMTk`dtdR?U*7{-ao8+^wgPf|jsyKtR!dAqQ-b(~z^GJ!AXbZ~q0uxOc_ac=k
zT3b<8jC{`eL+a4%Zh1X2(mGZ}H5TcqrUpTor9^bE{HHJPzZ*QI$=rVOJ0~vv-_{@c
z7@?$u3-g0Y_9Ka+p?tX<DcA#2ADC*zY?<na2!gP7vS%0A&M3vPXiYkrYc1!c&i21X
zxafo)5UsCb;(d{IVvw4)UGOmKr#F=9VXw!Xq&Zm4KuF;aaS@SyK1C3nK+Ve9OGMLT
zm}qYjoPccUneCT$7pzC`CY0T^B7sh_J9M;5S%VW9>dDW|J2J+lPeNmFZ>UQ@NPGsZ
zvCl*1E6;&8J=^Aed)?cU|M5!s0}T)jH}a@rCHLhb0=hs4)hsHC0yl~HjP{2F!D0_n
zC>NSY4**_XxDR{k537`8-!3Zkg%Fn{U-@7pt!B_`D}X4Jq%KvwB+LS7W5Zb^qJ1&k
zi0gxL$;UFZl6<GPH+*mgEUMd~H;YPd<jyj4IgL696-_#tS=J?QArh%{B<j#d4ay5Y
zY;&c?(HC;T=~`q4rlzZNg-IU<Wo1C^cdxIYq>{7lr1{8)VNb=47!3n`L)s@l=;bVf
z7feKp38(3<s8(=HJ~((B^)r&lene`Eh+Dr~i;Lp9e|<<{-*^pKHS{mL@ck<;b@GVc
zgHDn{TOy){BIX%=&01d<O8AlMptNflDb$R$g_#}oAx%AOKT0u_^DLyD&~8SA^scCf
z=7ZFA8c%-;nQ{N-x_4+Sm)(0|xK}KIyRvcxm^7r&wOV|^KfR4Kb20$=Lu@yvWfWZW
z4q+s-Po`R)`aWjf^g}FOC`s+qSX)|dJG%jin=?>6t|T&cY;%F8N!1vQU6gru$oq7u
zMus(w=>MmF614WdJmgzV-u?PLYGy@p(LM)Sl2SF!_Di{>Lu3rZIe@!iwo#iP2jPf$
zt376`y}h9&Sr>^tdEz;C1V*PJM`~q3yg(@ZfWGMZuNYIZXlN0ERiq_VUur14!Xwm;
zx}5;^w~w_^GhA@_rlbC(Q3mI5kJp%L7%nR<B)8wy`S^MZk^gXt9ntQPBwkFh?TLpY
zY9{op<j{ktwY7EB2W@M-8~w#vh$Qhes^2)mWfiZ<1>CQ{x;c(@dfbDpN`CsM@Us73
ze&+E!$oq-Hg49bx9g$VhrmW14jgGn}X>64K0)%R!8Z7sS^bc&IRf7J8lvTSh+<g)9
z=+w6G?K`5B>*(+RLR-lB?;gvD^@pI5g1p1+m|@2#<Dv7bHkl2Fw32h2wWW%+QR%!Y
z2)kCy#6GU4dorp=eN51?Eo<J8!nYJ|F=RSQqljvclnJdpc{1V5e#@quY)y;J=C{71
zCtTgzekH?5DP*XLg^#h)=6k-4j;z40y<W&k5s?~Y7=L2T2<9NUSRXM9CQ?Gvh9^IX
zSafUdRVr1a@?s3|<&^2e2zoiHb8l}V`A2dZ3@N{%-SI7j*dhnT$>W@Nhb*1+JXBUD
zJz|DxOWb846d|f&5%wfQ>mCrzEp^Q7<C4?PUC*IffOK32zDPh#$o>Q=&{pO&TKqgj
zN>=OlbwZmDc@~j{qOqk2Nm`SZq-a(qNbU^nf>~NCfnFd8iDcrPDJjk#%^0zO?2sl{
zUDnWU5YzMEe7Fy%Clora5Wy-@HCUtB97z)k8jypECY-HSHZBIF$ofmcomM6Gh|<%X
zoScS^$fpnW>vG&&w&^Et=2Uc(ek$k_HgrQSYi;95_(Yxud%}bNQh(<|j(`$C3-t^e
zh)^D#Mw_h}fPhzrY|z$H3MQHKR3!zXq-F&&27Ba;QVh;p=*H=<B&LDn2uV!<YCi&q
zQ-qhP>bDKM=1vNJQJ#E=sC<V49kbSrL(;oykKF}QMNqt})&C@N<GE9ky$V7s-Ubo2
zybN;eL~-E+Tg6Wr;E-t}BO^`S_Cls+7@wOxRH4u65A^B}Z0kR5qZ!^B?$79dlqNQ?
zR^gf<ziIC`6rqC@%Jdt+#yj2zMMbBeO+Dc>L$s*Ncn=|g_o=?V-dY6u`;$+C&@*gp
z2I>eFHs#L6ppWeoQBfEMdT`))({K+yH6y`Lfa1=}jdTl5h)2rN#cJHG-j=a4{wgGW
zhX6=p`cU{09BW8REh01Tpr7SrtEH`7{#hm$I(jRka-?f-qwCbgG}A`3sN<{axRUXO
zsM=^9Kud>#qAQ|3nvnNgPm0Y$-O#pc?-b<IrF|VyiHV8Yrf0Ej4<W4=#1^Vcf+zh+
zgw(hgSe2J2My$ug9lE_9ChYvp)(idh8HccuZ;m;d?_GIyo84HwLPlf1B11tasA0Fw
z`F!g{<LU+>8Y~^>bP#>pA|@HrA||PjP*%2Nriznpt9F^Wq)*md|G->)(JYD3NYw=n
zliaJm98!6q2<c;51{>SQ$HuM4U<hRboPMYB4!svr8qhA&1ka-Istx|lToA?mUS?96
zJ){{g5#FUS42o41(OQiN_-xW55T_AEtSNe~3Wbjl41`XAw4zyqH0uELhT(MBJ!`Bm
z1kDknOiiT0#(Y?Hbhak<^9=!V8==6bM7RrNpUvDhR^9W_=~DE4(<jm$660fh+QvZ)
zliYY#4@;Kv%qV)fIps`qVaG@TAi!<!gNoB-LH((0&v{EXfAqG{EPQZgsN;c4TBEZC
z3LWpQk0{xM4pLLlZAN6FxtByTJid!V&w1!ayk-&1_a@B6e{2r$J_k|nQ6ho)QmJQr
z1Z88d5zC#!a1J4SJ$tVX>^yFUW~kH+z<UQF;ksR9eg_z96Of$86DsW3YXg}$qipAp
zhoqMN9JW@$cpvkQt6~J${Y{~=R_bU@V7x(O^38&}u(z}%DB*H;*8=_AF6nT*NCO3L
zSZ9Q`y9MZ0xTt!RobLj(IX12_*3k*JY{*P`-;oHQb_(|Pb5mMkqSPsP>K*po6+eZ7
zmyb6n(S#^#2Wrm0c+7Qp+{VdxGMEM2@(irRHDsRdpxfi?QU>I3%(xLdRlW0r<L7!e
z9jeY}6HN6J6Ba`{qw7WJZG?>*K^bmOB^3x?h#=-k18Ks0cD64ds;X|{+%~(mdU|GK
zd=6uU#a@TDETI52tTUWAhoc*}9C?6jYxIinGOj0|Zx|=-a>aW+kY1?kjWRoS45J~<
z5#my@Hw>RNK*=@KFs_7#nL^wz#qBpV$3;gUBJuJiB~sMo`28ND1WT>6Ml#V$mb^sM
zDMu1etHuM3N9~*f`V6&|*OQc4l2u_s4^*%hQjRD_XcnUc&w<)A*5L|)hCv@%ZEblV
zYo-6B0cY94LfgMtCZuo!Db-uXTX1MoSjDAKt#7jwR<jO$N*Q89!m-}R`yBLn1?Yyw
zv<xY1yA2`7dfwkieAQRgROWOk&P_A_C%t0B*q**_m&51n%>SGUC&LLlG8IV>9+dXX
z_2kZ>PcN~Y2-l{qS(>{(|N4%o!QLMoyH>CvBo7T3%DZ#W+mO?{ikBDmbAYCA9d!Ci
z!3F|#bti<#@#}NUY84`&FS*VdJwl{hCkIign{mY~!~&flx9tt`7?JZ>P8wln)~jg{
zyPk!bJWG3Hn3H-$egIL3j8ZdViImdDwN>D_?s#2L1VPrcj+st1r8Pj_R`$l=BmmJK
z56+UE@>#}C4F|v#LNYi+g8j0u1on5vBu1bC9Ia{AT3MNt$q?0lYHcbaN77Fl-c(yt
zp|U@qq)tFHZcF>g3j_7p_Sy7LA+3pNM%A-pZUU4~M<FX6eMP8;C35xXicESAiry*c
ztuiN-Riwo1tETH{oaAn#q#Py&7T<Pp38<<LMRF>XrO%zq9^_${n$w_nTOee2Oj$YB
zI5($IhFI|g1)Ih!-H4HR;)klEuZ96b_Kj;B7#Mu#OZt>JR7)uIC70Lr^`Kqk7E3nd
z#1?5*F31P|P<{I95n}B~n>6C-P5|=eIK)TQBP|ZuNQ0uL)L3PW2O^w>Y*mcfn)q(S
zNQ;a~QhM!y8!N(N5X`O&Y)H2?4V_Ju3)k2Fm{{7F;nL$wi_G<Bkdsn9VMRG8PmoJY
zf7VFxyK!`ztuv>gMGORV<TM^F(r?)PK1Cd4Ag4ZikG6Rk5!6}rGj|t?x1`j5>|0Ih
zfs)-?qsL<n(&7^o5I9JPu$_UTJsR3`5Ra}%<(!`yy~5S?NCMj=HK3VWleH4oR|<6i
z;H&_C<@efHa4O!2Y!5921LXVD*AYZP^g)1#@AL{gltPOfdiK(*^h|Tjen&>)>60gG
z9eQhyPeLZ+i#)S#M9la*#(2KAh3{^@I(bJML!0wsQA0Hb)SkKNoF$Ztn}Fk-E76nY
zWQ{Pqi$qeHzPk`apk59HjNF_Zx6{33(`9LxeafS7bt!$9CUW6HteR-E-y6b<D;n-t
z&|sDpvgwLe)0cWDbbqg^96G_7Q;pSIUtHU(x?;k93B@i99q~J5JZ4%&TA}^g>>5$n
z=I|h(YB<I${R$*vKzs7)$A>*juLKlAPx(r(r1Hwf;qJ;9dCR6NRz(0RskPQc4`uqs
zA^qj_yx`=7?VK8`MQB&WYu_n#;x7rjAb%sE9Jpw**fD20sdz+GMQRz5tuL^UTNjAJ
zjyMfBp7jtlOIS8RNa)q^Oxif?!C397?A?6&TPw%L8DwfKD32Wx@Ov7K^x1gO3>aWM
z6=~5rj`#L;4(QLxjUrHct!=S}zxA}xtjj=6;yTiBh!Y%JIaW0hjOD;0(z8X(xQ2A9
z0ufD4PfvS$Pc}~E@N=qjAfF<NODs3-;|^CG{mcr-x@5UIqTjDELY0K^-SStBf{Vn*
zs>U2fh06_E6E_W5WshZYQ=D&V8dDzYk*qZ7?aWIp;zl28q2gbd;8WHLrgujAIme|E
z3dh0G+N7#!$?6^J8`*OcIQVe7d$N+;G)eOTYuPbB;~7!3bNXb?BvgdggF1-T9cZ(p
zl}IA^8QlpP+yg-Q)MU<60l93W!W0e1_^H~51lJK~YaczZv$J=S3bLSnW{{u{z}v^w
z78XZr0=@3}UduMT7PO_^X<L;Gy5Pifc{UOOjWeB8{*qQD-rkaKT^eBzD|Jwgd;XEF
zs&W?J;W<<RbO+Y~^6Av%jDFH+MZcV`;E}tZfcj6@C;~XQq9i7Oc=R7OZaB1zU>H)8
zO#m+;l+sGZP==F|FpDi99iQ3#ss>_@&wELT2D2waUh(z@F7ziIzu&tP%{(bed6J3_
zSdb?xlZH1#pj2?ydux+SQ5tLbYJxh~O<l+&3x@)ld0qksaARNwU&!+F0H9e#0hPYd
zVy$ct0%DdWh$KjtMl@bO0m_3<xTNh$BG8T#ARa0A><d1Ym6rdmXC-XTups}{y?i6t
zaj?9UeM3mqcpBNleDS4{w(UnnCQ8^dC0>2NiqS7+`c9zp6x;yF6JqO$_kkSTOCYBx
zLMd0Tm>ELYk-lYnXQ4^(PRnW&CyF!Fh!Q~>ns(w$tL4F*mp;8pbn!!PdE65QXHkjB
zkGi^TkIrMLL)S%S9w)F-8t?!4{mnFH2RQCX_-2mYIpOSkxB#dDRSt*Bilc;=kC)o8
zy$5gZy^@Vsi_^(VIgemdw1-EDwf0L#QZr2&n4;3v6goS@{@mQ250fHt{cI-fx^8FP
z_NC3$c9Hw}w3CjXGyVDYvzq9)M^6?0k`jFKxT0s?PRroCI~9Kp&ernJKBuytFUQky
zX#A)`Nl%wszDxV(ih;C;yUQP4ZJ5X?J~bmBMw460!_(6w7OXxxF`<Su4|H})lISjv
zrh+C`R^r0K!dh`@53&c7lJl9r3r5ujU2J4Nv^AVZDIyzFYhrp@-{Yor^oi-SLy_zq
zJ9nP&V7FFP>6YuJHZ?V|t5bvcTnk^r>c7;D!5@?OG-@g&Bvi@oI~|OK&*bD}+Ba;d
z^k1IXnmd!7lq4-7Dfu)iD(bWTI?)epR}{Wu9mFG{ui5=ak7g?7a%rm59=5hp#l^+=
z^BptM!|tWMMw6%XTdmFomiIDt4p?0@#+JBB%uq$xqem4=R4P?&v<cf3YF#4jALr}n
z=!mWw4;mU8O3%&?z`a)q3eK!s+o^XSO^!lBLU!%i<y~7_yP3}q%;gF{`u*_mz_75e
zbQ;YsFffp9|7iUo6B`>zl#Gz+QB_qHh2+P^CP*uK1&u}<nwb$C85zk<$;CY(0XrU3
zX@b^_;D7M8RYF1meSLlDxw%1~KY!M&W>!`4rRa;ls=Rbp{W-Y?6ubBD-}k<fA*iXT
zDYbq3VArgNW577OqT<9}MaBHCu8Z5YZBquBF*`FpKA!*a<6%oHD>|L7VrgytLf<0E
z<@36W{%ODMKAI#_o|X38jjYmdE;jA2KY+_wf`{-eD=YJ!bg@nB@9&q4|Blkk8vgcc
zi%``+GM+pBlzIO7cUt`asLVKbqJI`&F@9eeBHM7RKE8hcv&ZOveStrj?x$dK$k*yW
g#3TQ}C8ihYepvLIiqnm1^1(wYN0sA$I`hl_10uVoBLDyZ

literal 26102
zcmeIb2UL{VmNtxStKBA=RzXpq#ViV~Bqb{-Ccp?13KWzeNpcRYt)K`f1{5SHDk4ch
ziVWHkL?nsC0t(3jMUhhh^*yJw@7Hr@&CH#d|NGa>T9>u%g@&rP-uIk+_I~!WpS`_y
zR9$t+LjHwZTwF^I9#A>X#Wl~Fi)*go5A*RG+Py~u_%`40u&N5a<7-km%M0Irym&y{
zj*Cmchx~6&V8`HjF0Nm=4yx=q>HM&-$?g6rhaAO$^6<0$@Ae&CyGO0^_Noi2{E{jv
zi-#RIFZD4xB(J|?iQL`6!+W=_+c)eu^du(6K567h(7-PW$A7vs|1sr*#QGD*MKArb
z`1`qb^{nv)J_5n3j8~4mq=+Zh4u2SSAJ?akQX*1oLso@L(<c*7ZoFOmJ?H+eow&*T
zj`Nf0sySlh2c^9~I?o|L{Cw#3BJ%y_(eL!hckkbS9^kxm{T**U@{3;{eV<LfbN#rX
zWghu{VDmq4i9Z&+*2*2ayIE8;ptZI2zNEQkZplHph)sBZg}(her#VV09v&W_YHIeY
zsNgp3B#XO-$-Oo#693otHNlnMn~)`ZyBIIMCSJB{9le9x$jzVrom+OfqaJP4ob6&$
zDp{L<ZBzJ4N|vL4P*6~JbB>$)bemA%BC+gW`?Hw2&NHL6>uwiIn19%=OU?fjbD}Ni
zu;{gQfpR<FzkhGYo*56+@S3W!DcPQuFU!oXinA$`8~*U^xhAS2W|#BuI5;@$aOnAz
zKJxK!TZJ;We{yp2u2$c5t%nV!j%SZGm@f%PaUN{F|LfVkBfYg^GLC&Ko3fk&%iTN0
zcX&*V9Eh$eWkovjTes$4v*~<bQaH<E3Y|ZH-saOW)q;*-1HlyI((9R-neu{m)*Y=f
zo*g0v#h%Uh<%N;c{*>V82v3>98>^P73VGO{Jb6;Z#>OUlqSbG=Y!P`vx5foR?iT~c
z<Yz{zQdsI?GO3lGU+iV{UB5gf_w&%TC#EvPuIu^p=e~g+eMUCL8-nvkzEl|vcb2-j
zZPk8oWTUPYu6R;QOFE;x(0{d4U37-63!Pe6z63k)%bT6;1*@&IZ|!cssl1b?GA_|z
zx|L5YU^iCdh?$w$Z6p6RyLYD8v=uf5NSaneTCjr+Ja-S5$uiHmj`pO|Y!Y+E8ji?>
zm7Ux9;E0-<TIXXw(FRNQG7Y&MDQDkaHTKXixwpOKq5Dv=S~%^^0-=X4lO4gKlE$L#
zJu(5S#5dBqwDP7-MHSH|Gq-6cueTd`vq0K8Zr&o^_CC1?ui44IbfMV+pU@oo`@143
ztQE_bpL-D->-6P>mR9iOWVu&!w~Gb))Uji?9>_RcxLssf*7ZO=+G(X*)iX7<09K&a
zw2_ZTNKh|}D(PuO46fLCzO`VScFM*8`LQ}@79-70s?(vC!l&%B)UsxAk&lq)t^kFp
z?&mLFT&Stbo2pK1HJI%%F#PiIX%@q2xKz66GPlCY(a}+x{*11|K+ln=rZKP2SNK{V
z+Lf6NP2|lmtfQQm%{#nir#G@hb*b9|Wc$<a%ey(=_88YR*DI3WVN`fySI_e(!}{d&
zORUP<FOGE*%MO!qxbEwl*6b?6E2iHVHzVjVQfa}$QeOY~@grsG$b+35MAKU??JqZS
zTP<yM<B_sYVSDlIP;Hml_Nm;`@fqUN+<*PidHBr7CkK<vs-F4!)>-Gxw3;Zgw6{?*
zB`#dJARMNyDiapa)6;W0*WKkqh@?pFbcdL#i;GKCoBZ$xaho=OX=4K+_klNqpH65L
zOpW%g!#l8}+jL%SRv6DHKhMgZ8Kc>Z)tg9*d_Ub#o68$2WqEyehE?>(l|@Ea@LM>p
zFuK7;yYhXB`Z>uSiJ3hwR!Uwt`QhPi@vU38wiYSQ+QjMS$n^B~M&;%zG`n<#O-y$w
zMlcke`Wv0GjQsLrAD<pJdhI=@zGF?MBZHq?e&lG}=_Fy?HSWI%)@#(?m|@eGRAfB9
zdgr+V+3Z;s?5g?Qs6*q4wnBfukdTmFL+{oZb$)no?9{0hI43YmnC7l8Pj1^f#{Kcf
zAL*ST=E;dd&Mm)f94|h%bBEc-Cw;w@QL0QTTUBwY(s|;uk5O^Zh9sBaP8{oFT3UR}
zJhmqshPci2V37$+-?9FDl5uGW@5AEUO8#-nT&6S@zh&;$#9<#=47b<B+j_-Ev+ydf
zw2Z1heL9!v#0(c;{=Q7Tju8<;cVp(rPX9PwrJ>k#CXW&Pov-hQ?#if?60tsu>KCW7
zrp=to!{x=vCtjYZ`eNS+yDA>bnI0-x&8W@uVq4^Ccn;mpl24nOn))#C`EAOKSVnu$
zepcsR(L|%e_e^oQdXtE-nE3dnSR?6LI(v4!&&JQsPh3(`GK;|;DiJebkw^D$R)qI?
z|KWjnbR~oKskYW+f54gt0>d==tYehNaE6Mqc~e?OHXTpqO?|t#S+4HoS!Jq6`z_V}
z>eJ<lY<IGaEZ3=#FUK@BYfRZ93F*RR3aq}qUTZHFO-(RLHBiu|E6i#C*1H!jvgRyU
z^AjJ%zH%v3es-d*GS$3xJ}dfo%tV<}?rjhG^Y8D>XXVUJ^$t!Cm#eC%96NSQ4z3Ol
zdFj%niDC`UAj<rfM?Qk@zbI!o-Ye;?`+48KeS`1T1*-Tg6&NcXTnf+CXHkWnzb|dw
zY{epLTtAjtt555mv77o5UG)05xvQIU)%NV!Gu^U4@m+3iSGZe<?vz5c&fj+L^1;`k
z3*d%bsWX>_rq3kS9GZc13Agl`9gYYTly{ZLC@+<!KeQ~5P*ki*G{~dP8n7B_Ll*Na
z;1+yn>Gb8}26ctW_NFnqLZnWLvD&BVYR1Pda`>q7j(v4~{4cXkXln9C?e~A5JNs5>
zwxV5O`(5%R!4yaB6ouP*Q-#vGw=C(NEQbFWE&2T6MlbeEeJ!8f#Xaf)^dzIAUDE?^
z*9o^aInn(Q;@ZzO>RpIuNzunwV}l0XtZym3{Nu8X=V%5qJz8zP>jHca-riVnSS;t$
zxw_00OYwQ@glC5p*(utrHFh6%$Yxvhd^Wp#_pVxiOUrKyjA?V{FE+K6>MRrIH#awT
z`XX*#6KCPZ(k@b~_hi)X^W&9t%aiBatx33xajcM$2{u-rDi2R~I?K`W@{H$9uYoF{
zfQrfpldiZ_raN+DQ8ONboSDJuL{CX|`O#0ix+5<?e)44fbw59+30HX16xORTnUd|5
zf42!jth%Ds2PWayu3v{obncB$Yh6vB*zexDEW)=eOjflvfzozeB*AyLU8lsZ6o=3w
z8<!yh>5Pq1ANZ?n*}T~|(7k<KeXSRpMR%g*?H2!O(ZX355eH^-j<$ou`Okk`sUQ0i
z9U-`4#R}LN4`MV7n0Ld54fTnPxvy`nQ#Bqp?`a&{pO9d5SOC6ow@}KKj*bplx%Eu=
zY15bV?P-lcmVt1>X-397AEYyLS&vUds}FwB@RI4z9xj6k>c{D%ZiT~rOr<*dBr@Ow
z`U>h_1=M6(4}0Vhz$SF$yJopn@LnVi3A*(q?dp1H=lH{c+IU^Qak`h+Vt$FunGU_Y
z8VZx=E*tetZ)y;bb+i~8<lfcdZ9yVi7LKe%V-ACU(_SVlYz}{t<U86cvlA8#ueL~8
zH?Ikmwhq8)=&K!@a|VIAzc$2tV1Ik34D}>nfO?U60)o&vnsk$Wl_*UsUgs_)BJJhN
zU(0s2-DnDsKKsY-6RmuC6TdAsA3teMPn-Pe1h_ZOu@=00=T1JHjuAQby1J_m2aEbg
zhr4bS&7El7ylvYJU*FN*+9Fte{X_(NGJ-Nj-+jPx>+`1O5J~f7#?a6ZZ}^_x;(Z6Q
z6Z;qrM?#jV?^?^^%J~-bvfqvY{z%YrTd#}2PM%aI%}&+k75Ymz-}mt7iHQb25^rUs
z(F44I{EitI2z_<!W3krs+}#RMo#q#sXdX6nY8s26nmYM8%mpeq@oTV$BxDsSbIUKU
zuCBJBS*D#&Gw>L#MtDels}OVYg3nXlX4l?$V*!ycb>_=gZ`b;)Ne-^=(%*Ww;cR?M
zt$~+^&&|XP1DfJdD+AMF+&FPdxVLbRnb&i<&(Q#|HmZf(@$l%ltJUuqC&Zp8svn!j
zr}vXx=Z9-4WileJ<NX4}-i{u9dDt}5eR3#A{>psGu1Dw9N`Ii&j$68=bNp=6vH?#e
zyskj9R&Uv+hZpyb<?tD}+XQ<?KeRnWZK`v9E=!x7qn_hBdg1Kd_}-B!jdE&NSy*V%
zA)SPb+8t(81D|m>I^vUMqn5tQhGviPCf~Zu{R3s(BeeRlT8GAT8?`cTN}5&E(v<RX
zcxHkv`g)hFmV$TdP0VXP7vbKVW;yCP7YoS0sb$7ncC5}Qg>foYlaV}Q7s1k_k_VO$
znGON$q*AoCSB1$sHJ5DFEh^wMct{R~DAl4qsOZ9&`U%{R!pI};eK=q$78DalT1eJ-
zvzs+l!|pp8!z5VBMD24{e`f544yg;Q-XQ>kq~cjxxw_Sd1)p;*%{hLpV%Hp|0`+{!
zz4ZRf-jEgfnp#>#VqTLaeZ5!j9bftD872GPn(Zvt?utiQ9;d6{ax1Pm@$5)(ZnHw)
zOyq9FnYM|xz(8N$>R7F!yct@aB<qnGu~_yvd)6Sf`d)AEeH9>v5-M=gSlypKcf3rI
zJ-xB0PQka)GsfrYbdOfvb!*Sz(CyD(+2E9_bNso0;7w|ZkD%-3aA5C^MHc?78V&-J
z*pDb8-Rx{+&uo_8e`6(&xJlWKyCPcqDHIA;VS)Y3)aYO+eR`w9>|kIKj<~S!<5#aF
z0JYLeP9vzv#u-f^1{PJS3JIi`l$R;kZwKfJ+HlzL)AM7p(`Fv$&vz`HQ@cP7dk2iS
zZ_k?=nmv$CC0?A)>dzv$MfUr8#QG$Q`sDjkmO2kzIv-SKIWZ^TpBi3_b_~gEtc+Hi
z`O=sAV29EEBOwx7R^JS_DO@ExU8HP;J4Ot`QQ$ajg3bVdczDQB_v77u9q~ls>f%*F
z!*)QTi;@|{$cWP**;h&zc@=TQ?)`QVet79CZ6j)p2d$Zdjv~(r3{jNaU`~MrMuGA*
zak+ttvlB~uuUIhwaITprWNfs;F2LU-Fc=NAyvY(sG${`sgpEs2ZW@`a!6V#P^zwXY
z`+f`gpx&BzKR~u3K&N4fjwYP-$2<4#6>bRD3kq{_d%HyXT$;atELGd+p~qN#WtuhJ
z8D~>ixD{E;4P<~Rm9x0{^B=-wrS;(na-L5|z@;sVU{80YJnDJ4+s@JX;^#70T|)X)
zPi*L#G)X3H%$4K2mxy0>5)#?6<(eXUvV4a{-Am(9CLk*iZc6b3YFd+{t{k4SRHw*3
z-<Kx|DPtWXdFUzS+*6vGg~{hj3}LRN&0WbQqJCEv@lkcu;vEETcOuLDD9T*H$5#}&
z=W<A@*V(gY<yd_w<jyy;Jjb)>{>XA=5fR7I%bHw}B86rLASw<1u}CZ*5B;&v#?FPF
z$?+nE_uqsrC|YB8L~byDSrSsT``BoLr$|oXjL7{sE^eE`(5=Ay;!P22koNdjsmpGc
zu{Ui#&#&O_{LrmGgJiVCc*y$P6Q%IulaArAU!K3@Is#-Npjg9ullyK9)?8GQn{2<G
zWLR*0qC?DURk;GoV%zDLzueod%L{9^8L3oN&GVcwe0Ov0j&tvBb|W#5t^K4^yW=3q
zim-R8*)ZDr@%@2<IjU<dNMt7o+cbP@K=JKOMcFRHxbzBw7rW_sUJo4`%xq>SyHtUY
zb=#Ide*S!OxO3|@=fMKLw%-;A`qrnI6zN*$tRT76p3CzKGP=T7uiJma7t2<cZqp{{
zA6D|`IbDAj$bV9lLy~yQn_MI5)4xxfJf%2~R%@-hdx$YwyCwQz5c7oDy)nmJ@;=7h
zzh_zQzDLI4&c`8VUWbcc{%?>l|5+aAg>vp9Qw=Gr#+6_+CPn9(J_2{MdFxhSDFDX_
z&-s!2j>nw56C4bn4ajEEoV~kz#hjZbpFVwh?DXlCJUobz$m53fcq)z)aHOZ#_}F7!
zHtQ%{7^t4kti_R60O6vPec~0RVq;@H6z5h5&zm=|p1$e9kwWG&E}b~o7fbeOLV_sL
zJkE81uC_PV{!HTXf0Baw&p!SC8zSt#eHT5T?o6{jJ~(0#mssMo>ZbT;s^qZ~>7(p|
z*<-rPBpp&+5`M5<zbwh%*s<JLtWo5=@3UWpj5?&+3|^|oCVFqQ7un*!V5<h+j6c8f
z-oQ_m^8Xd__uqcr|4-=0|K)c<0$u_V>mq~Mq2SZ$7tc;31Yhqc306hc3T83D_k@PL
z<ou;;Ru&W#WC<8GWjgFYCVcwknLTloEGbSrn)(!N*z)=}9L)5<G7b$K>2e%!^EOl1
z_A`lP^yyA%f2%|=e@qXin+>u#sdSIZ$NOv;skQrM!kW+PMksg~f)YA*{CKjKq~@tp
z`z$RP`u?}p_g*k>ZJn1gOqtK6)~$J*pZjF^J?75Hrp?HpX2$7?!onBK&7)qt*vjz^
zaH;RrjdhXj;fcC3gd?941{6MHdqZ03hZgx3@42mh2GfRXoEmLxUe8%Ta(MFWh>UG4
zI@@!be)g^e@Py6?UBrjJWL{me+7N)0P(~92pLZDM`))>11y(9llWtmWojtg}(WXdX
zhgD;`T$li{_16gvANaG^sRrCgDOZqPsxZ+)2;7rfR|v@1`@UT&yUi+lu#nt6!Fvd_
zj`dCrugplIfb`Z^%>DDCV>&wgF(<dWj&$=#)7|Zs^YRu>PYxS_c5&GyPCml>YU%@T
zC#OS)4n5XN)aT(z0_iD0J-_pT^HA}ob;7tuo~%AyeSJZbFb7Q)l@FoPiFZXfe7b3_
zBhNrhO^vZh|5$&Mn~x;{DDbx`D(942!om=xcz8&#er0%<d=Qu0v(mUXw42CXMYIxb
zu$Xy@@Re<J_6$8LJKNny0U7u;U*G<wEL9+Z%WWfl_2R<9&F;gcO@d-TgaC|ASvirB
zlyf~iJd7T_IYDLR7IjXJv!25<3zS5cFJDdwd8buMg0C{Xod604?<Tr$01@`2>Wgok
zjQIG~)mFZ3fr_5Nv$XH(E!SEpgC_?TefDf4?ql_mOK|LMH^j?K?Fk&%v{ghT)I;=I
z+IhQN5w6Hp3l}aVoO-#_stQr0E0eQxf7vAC)c=tAvv<x>U0qtM2d&-yHxN`7>8p8?
zE>yob{mS&%WuZ^hajY!AfHh0WiDkoyjYBb|r7iM(FW(wst9X(myD4BMkA%zZ7IbO9
z<qU?kH6g3NVeLys#o1ofmzDy}R|!)^%VI6dL=LtKKx=iAzNRKs%gp`bt7yA<2a=C$
zY%`JSQ^q#4tShj*2!imf-cPn}+xDSzIsWUOsrUD^P$pf9Z@?-MSue@WmTf%Z3y!6*
zwZN|ppuz9AxeJV07OZ7go#-BEl{Vm;*BP3xY^)nv%%eNE5xD<(CF9hoQzU_mj=ptz
z^#$`G%6D9)H;d0TR5LfdOJfA@i;0aTTj2*1eG9@RjOXpuC9+43&JB8MR1~niIZaKp
z@?{FF7gUs$ib^)h4zd<78eRO1Jjs9d7rhMI^C~K9JSRTKpWZ-h=5@Fk-yCa|HuEk=
z&`qp7N=dMo^~-W_uONn=+*ZF3)=FN+r4vc{J{wLVOO#opFqR}heR@1*7c+Yp@HeSQ
zkanI9F4Y+cHU9g~33aoML!7M$NmTnj+q^cxpD^GA`ah4E?8;0`O-)TYR~(cMcCHNs
z*bQWiyGB2qaH?mEM@$}hay;g~xQV(P2-o@@nu+=XZAF2BD06hzCK`-%R~kixEhBfN
zbmI5}sR7>tax#HdlW7Vto53cgr!-c-sb!2L5`}?6^cE_TbP21R(VETMw>QPg#J+gZ
zP<`TkZFNn4!6M_Xti@a*74c6b1fR=or=M5KN}5rwfs>Lyx5S&5HoMjwcRzYl^1#ag
zApc!%eK*^5h90|(_uDXY#tSdaThxjq^#&muu%B(-bC>#(`q0!kQ)p9|{c-#5iis~{
z44U*tjc}4iUYi{5D#E!G0u;WsR{3gv%bUwlFJE313g_WGQB_0!;^rs6Ugq=W78Z9t
zOW%o~^mbh4YY51B@P@Xr=4+YFH1NMtcl%!+`2L-O9$C8oTn+M{Yw<sGIZyhy^Hqf7
z)T~{&utDRQ{=@f9^SC5b!Aqb%>mEFZv487mxz~D>>n3LBMix-ZR}wE6rrwprf5zH^
zZJjT_p{2=(L|SE^vEf^_R$JaX{m3Puj0>Q~Bu0++$<wF1S=`<aQP+Iu^y6#&=kf8D
zgSm`NmeX8yAUi>^cVyl0Fs4|l<sL><`uN436oY`48~hO*x&b{@EM|PB0W^m6c(@K$
z!^0EA;OqP1#f#^OiRE_tln&oT9(3$j$;QJAoyQ*?*;th@tM^zwOhoD9<bx%XZTNIO
zFd&}MO0w0Syo=6Stoc(5@cY-OZ}iXO{oj)q{PTGK&pqBZMF@x`#ePCS6>!oRBmnmP
zjk~AD7^_JwXbq~=rTj+k?`%mr^X3vM20?eQNntcbqX0EGPP}}`IVnoRsn@)n2>W?O
z%>8WeI4RMQs`!U+d0C)KBV+>p^HT}QXr7oOg`+%{qh;VBNyxeT3LdV6r-ZN2Vc-Db
zYwTp`56&lIPLgWV{3ZO$RoB?4*aH&*m=Xv}gc0csD$NkZp26;@z``qh`spRJtEDV_
z0qFOk2LAc2PmwRrI#Q0(Owe0}O2`Q$537-IIOT&W8oKDn`J5#sll<8rQ!@mU4?-zm
z;Ep<1Adqr5a2m1)!k`m13aBYPrzQs=e563a0MJhLUjK0F!J7KS`7Hjs!`^8?D?2==
zCr(o>v=e-+l7P?^goOdyK{KB9u>__Ihm6A4cO}v#QP#cS;3934uoXN!sJWZ}3FE}N
z<}f=;L))H(T3y%AaV;RVF1xO>rn3~9d)@4WY+_WFRZ}LRyHTy{sg8X!qXD82#4D=r
zIx&06y?Dz94||V?m?vBVb>!<iQEKhEZ0>@kH!d%g+1#JY>OY<5>5;%)yNzs@Z~Po9
zZSDG{w3;~WWjwkjg3@DL)NpyX{VMsP*0~w9HV|PO^EgjvyP=C)J5<8#c;m&lOLm|(
za(|bN;WoYWUkPwTy*Pjny8HMj%K?!6iLxR?!TvJJXsuM5m7lL~Y+|l!FoU+Yi=->m
zD}P{LklfKtf64|EzH-;aGf{2O9ms>ItnX{Mop7e4(><6=Nu1<D0GY^hUmXS~nak#S
zcP)XE)tUAE88Pr#RA>6b@)mzz5*hGrX??5%QH8XD`}IS`3XfkI=((Kmsibr|SYj}n
zd`js3J@shL3WJ#}1Xkt~ntZ3~_$7t$mge&1D#KE!yVEV>N6uPW+A3UjGRbip54g5$
zQ=xR;WGS(G_byrbH3$p}VD7xg4E%trSE9zJ=hAUED{Nm@G&a4_k!CrF<XM4WR8l9t
zJR@UYH^pP2>yx$?3Y2=sJ$u?7IKv2${l--?z_Q8SsIEyRd60}^%2|4Y)NjAsF21kC
zrR0Y=tb!N*zz)AW7FRvDx$ie5%>>roT&rw2In=SkWvD&9<DM?bQg+z1=98^iylUtA
zjYsbPv?;>fHmc+o2~`NUK-;bhM@slSF75{6sj*iJBM#OD(}xU8N=6?E*4P?HEiH&j
z<WPYDHSyxbbu5xp*YbwnUo_N&hAmO*M-u8d%KC9AJ~Hx`F}fGq*Y|mBtRJGXoYwbB
z$4SP-TJr>z#6>P^-w>Js+XkB9)IC$v_dcj8tyJ`M2cO{Vlj>|z_HY%+?y;eTPY&MJ
z897R|{M-+IU^QHg9}YXivBnbhE~Gj+<IUzH3qC_cgluWxEjPW*m1C7UB?{cm;t!6H
z49w=uJU$hW%WcpOlvu4sg$dS^4*<cbK-)7KBn2Uzkmq;PO=k@TddZQTrTs{YC?)e8
zJIx%+xMWNlM30KfL;H^hOA|PrFEW*p;_U=-$EI9<JfGbEME)iPo<O;w11c6_d)#U%
zP6Z9A=0w$kOHQw|O8<P-w{B`v6dbS1hx<FCiU)CbjSvP5_N9~;!bS0sie$<?mjh3a
z+aOWfr;?9~3bkbHU#4|qlbqQ4imJK989EX|%i}?KiGohd<ICatR4XVK))2;?RI7>j
zjFM>&&H=hNlI$7ve2S^J$%UMWIkt=TM-%jA`{}tJZMyWS8o~I_tOw=p8^I$(KeCDB
z>d#~9GadWjPK>4}28m>btUqKEeP2{Lt6Xt`LtFLksfC+RoGjL8EnIDVL(;tF99?Yt
zcK<}LnO>WM6<TERon-f0T3R}O`5hpxNpyKG9D91ti&$a9-W!cg@fl>n_Mw>X<iftI
zrGIU(tw=h(92E(EWOnAL0rgWmpPl@VX|6iti^y#Sljke>S+Z}Y!bV-+@vlE!6d<7c
zP~P#K&GsDtw<v-%EM*FyLQf9GuHLwmkQs?|2J30n7h@sC+r@oj3v`TJ9I-G)L+!<c
zz9U5{0z)gKH6m7`!oOHh&N<Ndds0#5>RYs%+d0B>>Wc;Iy-4B>QpzOyz*N&XG0#E2
z(w^E_twhS+j(a4$=y^_d*gz=996ilh!1(Q5bFA^$ZBxC8fe2r!`}P&+`;S7a@{8&z
zP6Gc*9#^M3xB0^^G6Z?ayS&3BW+jq&f9~g)Lf`7$5pP!W9HUUeEQ9af?TF)uNV(W|
zhF4`nqDQ>lW-+lqKhezR#j{!zhf`EGkq_wwb8f!ExI?Z5G~flQ2R2Hgp8fH#SSdC7
z$b+C>Th1Le#64V)tsy^plIj7Olyp5CwZ2lS$%p&5{`vx_qlA(f&~ZrDd!gW0LPfD$
zu``ns*S)1g5WH|0*t?zgRK0~jX#P0o44oOb6&xT(uYL@rrI0=YUENTQ=BBoT^U<%g
z@#q>dU!GXF4Yn4jjj^F(x@YM%bUWgM!*0$iEH%sKHbaegp0;e0x<xV@9OE5JZUGsI
zzh0pnl|c{>{=U9NLSAyY>=`Cpp4m$#k#v#zDL)SnT+yHqdr&AtbOE_;Wa)dC*Mtxx
z#lV!rBAg<~Y6epxX0~xK6B8;FXK1DfJ#+n7)c*6(s>$t^ap<}8w>4QBzoVO@m|(JJ
znG-|7d24uh#BxTC-&nIdxpJ01)9=&<-q6Ay@@0Hsk;_|}I`d|G^IFNFS!zDiPr$(-
z%%Z3+$w)VLF?pG{RO~6^0jnw)A*jbqh5!hpAbdK>a3A6^DZGvJH_2vcezgF%gi~{y
zEe{<&%ux=l3)p37ux2T_OeDoL^;@OEl=AmL^<-@P8(pxgMC9<LD!Pa~Yv0_OkfGYV
z+0@iS9FsFWp|hcdlI?6mN_V78ShG@)bAP5+ywkuf&yE_fB~h!o??Lo&zC;iLm}l#;
zi}NB!Vh&I|g)MR7R-7JiM(K~p$}$u<&#06YJnR!UgJrX(&Y;r2$cb|dbPi&t3;g&@
zXdbMw(orJv=Hi-;fNerI@t(S9(IPu}InFQHn{as|p<_S+(e4UuIKE~z@b=h*%&jy}
z$aro4@>0&}L&+2>7wlvK0BmrtGUq)%@d((;w_IN#@;EtpCt;yUgj!?!ZmkW(ONE3u
zLWsO|=&56t7yO$Y<!ACPrO-P7Swv~v(9qD=TN)}|ghFjdju(hqhl8B!S{^S8Hs$<u
zhW>7HadTIMmqM*FXJIS6@jwxXB)0PFIj>mqQiXF&|F0%|Yu8~3i6@zvG6Y`1)$#Dy
zK-tLjd;2vmn8ouBK)*!HqZLkFGaH5OEDKsE5s(nUrLb`Ba2OK`JJxzTPIdG^w&uYT
z(ATX|zPgw|7s+}jD3OS!T1AD3f}#xaJmZgjd$y{r<^$mn@77;*s)*b}BG>*sd*1r+
z%Q;`9$|GvmZ2o$F)Np=SS@apvXX;@%UJw&q;8cG}X=LG|MXUR~;2_V_zS&-930{pQ
zJ5NKIK{ZO;DeVhvo;uT|$lm?egAC<Bn57WlTD>FWhcDS<+^4Wz<F*uzRV#%8Y7<ht
z-tpkUVnIe06eer5zB)NaI5`HG11iP9fL%UUGWn!31h7<(?ngfV!b!mn9$HG96klPO
zOphT8`Rk|qELnZevOGjGws>~D$;p7~0lV$`tA``U{i~k=rj-Hip$b0#Z3Dk2i$*UL
zaBAe?;UQ7_&E*AueU~*{kK9yu6si)AjD~I;?P++<02q%&1bucaZHMuP`vUjQIiu!2
zKJmzcV-yT+pPH2jV~=d;9^>%ZdOV0Q0dVl9J`CB!R2GDYze3RQk^d>@<#3}BZ?a0C
zAB*DXtWfHgYA_+rB`t4eyJ%Kla?MuGDn*uFxVtKwMqG&JR8>SFQAC4_4#Ya{LrHm!
zeZ?M|cWZrAw6(R(1v%$EQq8>D+bI<3#4eEituNm$rSbW2u4T%nWBIlE&ZQIlXBpi#
zSLH44;&E<nZUIYiqUG}LxU1~)=A0sJO6}xauZRa{jaMou>HW<2*7qmni#ryn6)d`%
zkrfyGA>Jaj=CBTp|JB|7d5ujH)`16_O0$0t{!p=5Yq<zR*!a-q-%aDvxAJd%A9nWp
zPRFwGaUUE0bNzP4OX&}~h6nE#waIp|COvbR%m?MWO*#vF$~l$$?wo~!1I>V7l@%2g
zU)ttne_h=Z1K#5|m6u*CEG*<5@3PG}4dEx8@mh8r4pB2=shIs1&MR|t-pp-=ZNH!}
z5Zd`7SdCpADfE$tyLJ%G;ARmK=dW=pN3+r@S;~E4fRl9)4Ok;oTs9~_sRpet*vdIH
zzc^gy9oVk|M^1E6fVR-{n8^*io?Ec(>)%gZ=f~e~2*^t1c_5YHOZ<u4h4-B;uCHnK
zO-&&9(|x~|p`IMBoZAc&nx;yA?bv8Y?4Dy?<=~_^@rIi>iF25}?YEd`9V}|M&2UVu
z&vvo<00peV@PqPpA?r*|MPI2GtD~u@xnEgX*(XpIwScx)Rq7)4e|w@}Q&QR^>LCIZ
z@w4mKKgApySe2dDXnXivO1&nH=yxg}DRY>4l4+vGrPaNYvwp5QmlkB3M0hwp%KBOa
zT~(vP`NM%N-`ZFXed~ld{-*%o_`JO02E~~w#eGIbMvt=mfnRyEH8|@aA>#bn4Paaa
z_xmVo#n(=mY&C2VDG2cM^FM}k;odgwAg^q=G?I_MJGYYrFG3nJ$=32A$X^lt3h%XW
zH5Sn#LmxrZNl1l$<97cAqO9B8PV0n&)?Y(~M-;W%Y)&MG6b4kucWb{k@GMv^*HUVn
z!s!x$%BvMMTmzCf9n+-tnjr<u9?xO=lNv99mJ?9Yt`M4dy?`_$R6>KiH<+^;6(V<+
zXTFV?Zr?QdbX6|i!QkzeI)z#%Sy~kpq9dxQ=iF?!H`WnMg_frqV7et$5k@miQ=I<H
zz37{3OguH<?F8Cnl2K#K>_4fa6GHcdNBQfY)4uR$>ZVy)rpzG0e?S){X8z|^V+~_Y
zM0cijm4?<Dv!LxstT*CBWm5|NM0#2BJdk7Mqdco)!SYd@UOPJ(!QRcD=|X?O-fuwD
ze1%+#eCK_mR-xI?LWo15r9^SWPoiBbez;C*#KYx^LU|JfVy$s0W!Is6CVQ!(;tp^b
z0MaD4;wvs3(Rr}`V9;JC9l#V$Xc>uCwA5k|n8Ca4^iL>4T@gJWIMf+xy<aMHyW=W(
zV>=JZbd|M`sN*WGS7%S}JKt#2?sJ_oe`FPs>m6u*@%1&eu()AKqprvh=K2WNz12(X
z38c2~I&AkP{Lmc-a!B1I>ioQf4Z_Wt+6|=Y1TCMxpIGiL($`^;MGDmk>8;oA14-iq
z_isKQcpTEI^XHp}?l5m9JERtf&hd66=LP<sFKco4ZCo;YHgZ8nO)hULH@((T`M|ZS
zieCFv?#xaua=rX<W-Rb}4Et!`PS;Omr<Te@(LNTU>{%q}W-;CGl;?*+w>Y6@NM+C0
zm+)S2W5E#_6<U3DN$dDmulA$t4~(&TF6Q_n*DGbwU_Ss6^0DF}vr&g|bUuChv^+z&
zTQ(@z;JWh}tE3XH$n6Ve)GQQ7x(&4|p$~W=<6#kaWRn007~*jX0|aQxqG?7Qwiybk
zD#`|#n%=L5!<WcMe_3dDFvxjkkH-6sg<k9Uxia?|umoa6V!Nj-IDz0mjNpSeS)hJM
zqk-r4Yrv@E`DPsBaZR;a<a~SmHDcm}1SXTi*fhqlZ*r(DfNoWghlkK35t%=(A_rVa
z%l>eP4n%^0Cw^FnxKb)D%{q{PI$>dT#hDQjgEFHyxXD{TTDPWUrmjfg9=B5<*bNdt
zqn<pOJfRjQBbk?T@$(=3-=K=tR_E7QNJdG9r=mg{ay%zX3<~dTIROdhtNJnAda3oI
zKiz1{9A<o4a|j(&n4_P#lM_GI$CHIjLite%=b^e&;WdfExy(9HNKqj#toU4rC4J=C
zh2Gl4e{rBlaWs!|>{#U^qu!pLg?e9oE|VNoIFm_+g%m4zS?bG^$_TxlZqSKd`Iej1
z;)dPwc~sleXesS`t5)Ty3c8&8>!*hUlut59%YY>{@5{5$AsW%%FZ_!u7)K+JKMW8o
zSgqGg?el~L&t8?%ZIuK0%QW))>QhkG2D%`9bALU&0w7LE*aB1mPFyK&e1u3j5Ib*L
z50f_nu1!+zog;!(S@#oC9H*Qc7bhzt4>2K!RwHe7Nl4cwK1C~}mdvIlrn-^dy;o*c
znNiC*uh)-l5qEZyVNVYmjrLRzqDdsVKq@-SQHR6hKsn&3#W4o19L=;3Elp;m2M|73
z9DaEj5m(geyKPUdx5#c2VEQ@%=~kk*re98;V?T+SSX(sm5uxe9pnSNkpLlqnfh59~
ze6+G0?XKc%;fVG;Zf64!hNw(!w@)MQ<w6{(Z4r=nwfB@Io`;+K?sWw5XdQP>4AI~?
zx7&}CUvf=r!zJ34?cS6(({h=cH`9&t+u1nXd#0qO4id?!*@fsg_eO9KyLb21&^S()
z%x7+|UAgE?<FJXOy~-Vi7(m({zzh3s7BQc>1KHzd`>$C<&T)JWGM0VH%5OyjDPYuX
zAY@GIb(S{%iohZ+iB)nwTd92W#NuY;zS$L!GvKS@2I2+D>lQU_;Jl*r&n)ARgV}th
z_nf&y(kEjR6X}*-Mn-K0>L)b^ivQre&_gHqc<t4zSKVLJ9>PaV&#ph1X}gv4r{=<M
zLclG5_M-mVLHrx;zw=E`_T;4YBbgA$S?}EG3*nQNka(4uw;P01+QL&`^NvK#m)_$I
z=824tvti##a}1+z;?6rg9~U=+RpfiY$pW}!o*$mWL~^$16bChN37q@$g@1n9pUtyR
zzg_CTaKrz+g!kVz@84XDm}En~qnmNkK<>1nR^v;0N{F(zF4x12lzwt&M-$Ux14(Z$
zXx!C#tR^O*G)T%bQQ@P&VdnuK9fwzNEX@8$;*ZY3+q8eCPZUZ!y2%BXr1nk_)BpiU
z_F>iv5zTxg>xOSG&Es&6NUYxUe8opE^p_3X0}j2VD!A(QCXE1sLp9@dkU81x%L<5(
ziMe)IG-JJOhTcQ4cu>uosNl^+t(QAlYF&sZzY;?H0KDc&Xd>qXMb5aYy>>(PNFYoI
zdlua+rsGMZ#|M~q7t*;l0GRiRx#%J)1f98x6xB$(B}o(B`f!VxHgTRPth&oO`QG}2
zjSwUukH-i1QS$&k)WLb7bc1e4*H>TtXwAr^w-eYr!ol+JKrLrMEk&a!95t9Rc}-3_
zqoh0K{yGcnIC?~ZsyX3HiU_5BebMSMdYZ!dOv^8l<^zs3xRZ6QVr#AJNEL#I2X%*A
zrN+98FQr-1c#(u!Cq+QKZyfA!$t~*$#WD$%cmYs2hKS+?qI0L7c+O0@%<SR5P-mX#
zoKm-stKu1cQ}9}0O!hd?MRXuzc#bs(yP@s*RoyeQ$k37woyE@UW`ABOy(zSG|Hj*2
zRPKKH6r8Z)7e=;;@*ogI`Jn6E1KiAdMs3&J=H%qG@JnI615$W#XWHRII{MY<G0#UL
zq1$Kx44k2tu<X>c6Mw@Y=3UG?2ZL0C*6&N0KeaSb+S~p>P(FRLKn1P^#HFf|k5=eP
z!%#F_spRXPy=b1|1QinLhuY`If+~)*xrW6_yi*mn{8J0yL6!K#hs2~|ZE(qGO!=nG
zR1^j4Ksc;xjb~riLSE2*J(9aVv)bR3>v&{RQd0Sh|IUjouZc)1I)E`8VJTZHrwg6D
zsJKI@4r-_>DmMh>GmCmS7G!!jg4@|=@v5H@fDlm8cWO){qWiCO&iLOp3+ssb42U>9
z0(A3^v^)S3j@(kX^?6i4Ph|sVS9PlJpuWB*)OQm(AgR7}mW8bz9kq@Z$U?v+P5u&6
zQiW%I1b7jit#65N4#tF^zTNFqB#IN@9KzY2U14LM=&vh^i4G6(az{)hQh%mxAKYmh
z>1@zWF)nD#up>o{tUjS{5vsqihZ8ns5^BHC=BaE|`xv4SzW!i}B`GqI#)(F(S(0hx
zW1{Xrv)9IFYN5Pnt@B51%qoTx%_CEAoOFSg$q5RcS}A35nnX!b23hf(6JEUgjh1|!
zf$$&uoqs&;{F|=ppO@hJXH?|+<^NxVaK1n^Qfv!S#N_1M;XA>d$()?A=Wv9^QHu>5
zydD_cDn3V2#tl!O-ddjZ16RW*J}*^tq=YF@t>sVbs{zziklbbWms}H-;N^eGH6<6X
zSt(f{`kl8Fh>n6t;;iAL;jCrN+5{u1RH@|pT=7^3a}Nr~-y<Gkwge|@B(5KXFAq;;
zUEN9=)l$TEUxm|peQU0min_YGuG#%DadCYkN#8XK-YGTCx>FdfhA2QT5;pa*YuR$$
zstx=>>j$SUhkvT;-Y>zmr2=>U;`#ILkt78g$AA4_g6HqC;XlvlKLEA<hxx0!E3!aL
zQqMhJD_p!HYw>2^BgcQf73<L(s;7J|D6^IK`+0X%v{jzHsyol66d?>v?U-{%wbMTB
zrXj=NIrCDC7zWhX>ss@d>oHpFgmrB$f}ZeJDEP1E7ys*RXsd|h9JiqV2q^PraVlWm
zlpmbg79H>J+Mt6@RW!InkqTmk6bXr1fUs1MUT!wL!Z~<Z$tub!V1r1z;m;X*qJ&7{
zkkrFn<$+)VcP~YAI%&l-8tbbs5asB;&+vWM?3<2i_&RWSq^FhiO`HT%45R{nKsq6N
z=shWfV8lQHnqjX~I3Zj~ABYEZ5AcVWurQ}9eN5}rse*%>!Z4>NP=4%mU=61tRS}{f
zG+<Sqynze{5jJdpcdL~8K+eThMFsMZ^uOXKX|%)f@PG)_K$;*$Ge#o^uoOBI1Y<da
zlOnehpIS$?YU1bd`q3t|3N8|=l*Gh93n`l6PuVCX?!qhs-M%hVz5T&A+COTrKiG4@
z4|y`<=<(w}qm2^$Vf=;0V}co(hFWu!bV*~+hPmU7<#!7ATsG8A^5cqBLqFY)Gu-Ue
zPb=Uu|4r<RM~C(;wZIcfGF>^U^oy-xfmL+*1RR2jtG~@mF(xB4F3)bXotdf;bLKKT
zsWTa{x&F4|i7^+|li?$k<kMFl8h7goXG<UY?MLUV$hf}v=rdh1*`>wCDU*z#pc<`I
zQ*$qaosn?{dJ=;#ag>zAj>?=nG!k#X<mz7fblv{_)zM;G!GRt<>Y>mgfTA6`5}=RU
zPOVQeQdP-bF+XiAaRCwDKpT`?FoTvs!q%v3E?iC{q`+Y+4CU1nw=!1+pzz<Yu$m?Z
z3v(TaMJJHR`;ro5B}n74&=v9VJldQHr>!nP>xvFtx>{<RurTIq&|6o3h9CehL_5J>
z(-&FvlTPP3#%rfMtCx~B=@3Mp#9#j&T71qBEmS-_JFJ_to5q+RI|VTbz}J_|-uY{?
zB+co9xCYL25ufM{B6HykvLJOFVC@zD{{A*~XMGAFd(&<I+9@$Be0%-D<9)(o-xKu=
z=IF%Mdtk7~b<)HPEn}8F8L?w(YTA8VNNF&=n4jxP%SLmq<<~>w_Aqw<_p6%(5`sAO
zAAr4v!9S40_YwoO+-|PQzG-DV@ZHfL$p39N9@xvQL>cZ|r@_Bd3Hcu$DBoYFC>iWL
z^V<7B&=Z(=m_4YvqH@e#!Cs+jg*2~$TKAS{K<$ZueI!0;b1Q^U@MQaS*ixuf=9YV6
z1|WeA*i*GesB~_(-KS)77kt3f={eTiTSbQLl|yo1zC;4?wZoj$s>wxPHB7o3*U{-2
z{@z>N4ISb`5nHg~3MV21lfRYI|8-&M@0atWcG4oQ1AfX&cdu6%yrzL-_`6%{{6N#1
zp+)E}Tdp4c-<<!HLJfz^WP+<ggFEui&G(K3tv?9QK)xc|wtZ#cZXW;pPxxC@!cw6N
zXd9gAZ4HH0#9j%jLA9ij3lcVD*GPr35f*F*Du{-`KPtV~^O_kYlXCKju96f5l1k?M
zvcb{QQvwaphNy{iC=T^qpMNKcKNKW{PyMj`vNvDkJTR61M3zLV%@jebmq(mIo&xW7
z9r$4B#*4~CpR#hpcQ=pMTL2DPkP~s7>%gtB2q9|-?lMoOSy4#2noL(BGu5J=<a;$-
z&E5NYQN@k*2Mtk@AQ$G4mt<amQ%*1C7<4oUEO;E=#O$F%$W1Hq0zgs9_bf7)*t^DS
zdXQ(ZhAs*z!yx1yMWeL_LPWMirj^-1#lV|!C^Gs7=Q$xHN1kXCVy}d|C6nV+@ZHk@
zlg#=c>-$sO$P<g&+0^4_w~rtVCOTrW21LM2G^C_sXrc2X?i~g~k*mJ8;z4J|<mjmS
zVn~M&4^Lv=Z033INN%2i?<9;&o)bmaL;*Ribw;Q~hU`F>AtFdZLIC)L9T>`@2V+HV
zRvIP(`1)dO+a<RvN<xN9^u3K2ul)5FQc%q&jgOE9lyio5ErttRD%<yR7s}slk(ZZV
zN9~3$>j>Zy5lfPYDL>x043Y`VEV?D~oof);G_P?dFFqolC8TW<292Qa-AE2bF$mQJ
zgo0!$9T`dC1PX0m0+{sf!$ji8SxX)sEPh^`9;){45HjDu1fdlva*;lG8lA!L@$5~x
zgZ|d}Xp!O&?$9LV6C)&bf1=ce@$nGF;*tBmKB{{P=ECEERA>`}BVk?&@s9Axxyx_k
z76rftlfF;V*h!S#1W{CL83>T;h$Lq3^c=V>bh>RJ?u^G^;t#%7>~x@Sn(;t_Zki~1
z0W+PUVTppMh49}~tna6OlGdKv{X6OQhZJ$0Fp+;lvqwAwmv`=CGiO}{XF_C57kN#q
zE{5O>Ww<qm?`_*+=%A#rY~VZlkNR$myYz(ESP?^T+)4&outE%D2u58UM6#vhj|(E5
zKnUA^d~qsvhz5qjiAMx9hA+|hfTocl0%fRr)o`#}eer;+NJA%P6Xg>XDgtBHbg$F5
z8EUy>sfpNxW2yoxNM5xSY~?S)%{rN%FD()U_XZGEzfHe;UE{eWk*k(0SwiMDkYZCT
zgQznxKI<6wDX=jWnPBb;pcUfuv!SN5o|vv-@b~uObHtRyNn`8;Du1gv!x%7tj;P^@
z8Q^e3H?G2&hXb~zXkxIfDGV~fx+uMiZ{`hJv&XDC0}|0AxcdD0R-x|Fod=;g_%<UU
zAZ7m7lJ$S=5dY?`{!_HMw-lKu22g+oSh;XaEinvU#^YwJMoER&o|Xh+FsJmyMu$f<
zPuN9T|LQm=a{MQh?&bSo*`*5>K^x^6h@nGW5#^l!w@&d0T91;`PgqF#qZC%(HA#n4
zRpy6+o}BS;h~E1!8it}M2zBDI*F7P%m4g~ZD|&bLzjJYGbNhj7<P=<Rq$-)ZMq-Bh
z%U>Z`g3?Geu;%EyUw9Ut?Q;HLoYLee+Lp({+s0DndFRH&)nRiyN-#VGjkI_Mptp6w
zB?Uwr^Yx6H*F)1Xmj3dbMx2>O>*Q}WF8*9f%(Gb63L_L^+aOwWR8i5xcI~iic;)Mx
zj*s`##ttc6z!~%w943QfsMd5uI)bC!zZ^EePzN$Pau%!{Z;Av={v@eg$alVoO~9WZ
z1@PEm+x~7Bis?j}CM;}~#h^+B8lb&kcK%*6tOd9Z3%dh8j;PN$)4MQCjeN2Zd~23K
z9-K50g~I)H39W|7=az>VU~pVRM>@4%impcy%bhUfxC<iQN6!c81+jtb3F!o_qYgl5
zVk|9BfVd+v)Q_C{iE{RI`SX|<v(XIG*k{i$9gXxa_(A*J#_1dfqu!TB_q6$Va8rR7
zd)%wb+^RQ3A97g2P2NDMln~Ji1neuUipT~HvS;aRKQb)@$dgnfNh~N_BHj2C4qtpt
z{X-HW;Tt%*k~wqd=YRGQ5+n+03mP@Px~*Y&8r($@84r4Yx1F&&+|Lb+jM+p!gg8=C
zpyL(QOD~${8%qe7@huBvhmk!XDhd?bgs$<d+pof&ogp18gZ1T}Qe+~~(pq|h^MwQt
zlcK#QMYbjhX(Ht|T7^a?Wwcx4HxsfG7VU7H<1K{(wEP+9?GLJ~=eb41TxE*0q)q#p
z?>Q{hK@cOc9%OVQy$CX~5R#IyF~tb}GYD<s?52(h3>u0m7*or`jMl_H+eWz0AbJ{{
zzEtnj8*a}EL;9w0XTw>UU@?PmBwbQ8E0FTV7{#UIF52+IEE*lIn*dQP^@oY)X_bt}
z`O9bvkad*pq%d8zay_I%)pAFkilw>+fV1C#O){@7cS5zb7>&S<h6ZkoRIMRsI387%
zYXI1175;%j!)<K2D0_`gibHRWyAT<u6KYviofNS?Oo$D4!YwzT6xwDAWL}I&LW|3j
zZ;QEU^eC#U|NW@r*zW!w=e`dvG;zm8GnxH;I8Zt!<an$DM;%I^rD2NG^cb1y!ove@
z$&bk182wDllJU)Bv+}HM*tljJWXJwcWT~H|xsWb@cc_3ZY}jP_7e`DB*boSbE17N(
zYMBOCN}^Ekg-MJeTt+$_Jhg9>Wdba=L9^J*7<`s;t9*CYLozc`hY|hg(OQM6%D_Sp
z><w~V#K?%>@nZq;@Za93b{%$=Q<|GeYAs|$W&aLwmvye5ePpB(nW-aHR5_Ph?k8~C
zO_ukjXsIT0lBeD!RfOB|O}Q?Li7qmFWKiqY!;<29qMx+Pm@9I;q{FrteM&*T2NY($
zXkb7k#&3Nn_cd3mdT?g2>w(*Nqn!q{H22mAmu!HeE5=mGu<R~*W^tMeYEF*5CYYWx
zIU}MOXPPn_@BwWu=OR4D4nq5KGkdZ#^q^?)VI03(m}5Zb#NzVfz#DJzVY#F6)*GNh
z&;YReh_d}Qgb^2XtUO@$V)c7Zs>N!?H#~htM4H-Y*iXhmA$I`iT#Nyow+Rj}Cave1
zCIkI(lh8gL0RVak1sSD5ROgjxFqOzPl7SMZC1J@k2DZ?*b&UrH2X7+6qG6Y9+qbI`
z0Tp|)rn-6qqV+-KN;j?TaIzhHCed1d_?bpT_%s}e#!ydeVrN9Ko@g+T#CktIF?BM%
z)m;dJ;fv8_Re}OxZ)kU6egdo6IN}jQmMEnJ5jg@m2tlY&PuJ;Z+MC(pR~@t_kP?<P
zU(c>q;a=4;%JW`Ex7(3Ng+{7nw3<3bLal>Vp(s~{9Asw|43sPHvEO=dM#DlVpBF*T
zLn{(5%Zz_H=Id-CGb~aVH3^hZ>v4Dn$Fv!U&h$d(TsR@{qce(1L699w(8`JWfO08-
z$S_K&x@h{(EhWEFueL{-uYDYf;jB_~3r2{ruy*Q&Q+}4AS1F|WkzxrB!4^UXsw>4>
zu}i#MuFApy)w$yQYs-ci(ER4;hVK175$Jq3hK*oT)nys4jA_f)wJ_e-X#@rMvo$<=
zPQdqox=_RRG#X}ENQE8=mD+yIw;g6?kvdB)JYmPk+Q}<p+rO7$tx7j)h>~whTGwT1
z-sf1<n;C1w$7LE0eYm&PxB+|A0E`MSM?U&+9BE$fw?wz6d5uH~rN)*MT-Q7p;3Sb{
zjZq&qkfb0<A_Gt>ZL``*Cj__y$t-63ZH+Q(FXDiSgsa|>xL-mP2n%b*ov!@M56?1G
z-bSA;rRVeI4qRC}Uipdmb>gd1Si~oDdTLZiPvUk_5pduHz+qf;n&(V5)Ga#lU1abX
znV6iyg1C?m!u4V=Hd=wwT$Y4kKFZI;TcJ4!@)Vb}hf(6L7y2ME$RE#R&mb7X0gyRX
z+o{_@yc6j?gnk&+mgd@)QiF9`xSLl;*2#%t{b;1!xi6u1G<+%-Dc~k>mYLNUNYGlN
zYYhPw5rXY}@WINGv@M!Ew87+TJ&coO=or|dV=%s-zG}VGIDfpgG$b{=<C04}(QCj?
zDsV*W9|3m0z9g^mF(*n>PdC8AQiU#o!CQguPbgiPn8~KYFhS^;jO@nzOfv_@M+_f~
zt<GI4KT-jeGGeeMjcSa}95U&*kWBv~U3Zw@OJ)Gins>RrCpsz2?NE=1zKN&LLm$v&
zL?tTnD+$+w7k1@gitppckA>NKY7jtq^`WImr!Osa@YBP+0at3unkcn29=G@ZY60N&
zZqgM9gJvO(siBY)VLa}q1npQ^lXU764m5$QaeKe*K9GEBx^>sKG=P5bv}gDzVV&H;
zljh_Y(FLWg^n3!nvPk=bl?@%6I80-@l)E+b#eP}bkCN@Hy8bYxyGiWK9So`jL<Wd|
z8mxa|IJ<Nb^Hq6JQU5wJJdZu=jOLmslro_A95PUgV8a!thecPAO<z)vUmCK;7!Ux3
zvR{A&#F`jK#Mb;#^e?vBjd8FoDNFyG%MOEjxm%NXHcvNDky#)1n@>4Fy$-j6en-nO
zTD5je)6*OW2a_2!6D7V@xu;K`Qu>XepRIK=Z#dzkmB2tCd&lNuz4{W9M5nCPRV_NP
zwrH<;m#Fdc`<;U;kJZ&ma#h$6WJ;SxtJn>c?xolW(oN^3bgB}ceSS~!M`XtZn=`ab
zGYdPQk)+3WU65Jkf(bX4RO?KtF@TD$MH)0knylguTQZOaClT!+G&v?Muqor78B%3V
zs~JwE3bGc66rgOpmF*zjnvSU?vY(u+cY<1&9*YW82=P*H7_JW2j$l-W89j<Iq%gyG
z31;;=Ea9@}ChpOaNKqYn()C1Zjigh1KK%THTjn$Nk{L8sn%9ODUfHFktH?x2`J0{&
zd1JM<7lBo=9`dl1Nk*qtV{Hh0B)Jh46*9TkmrVZI@6W%2bfbb;q!_Ql(B0btJ+hWM
ztJx4ce6TJLlTF+7-b~Xe;L5YiURRoH;FpBKy1V1lepkv|uBNxqxU=m*+k~YConY}2
z1aIfIbSOGI-u_l1mX}St0N4E9+NpD+v0El4$4zvrDxxz1LC9>lY>a}LFL(3mKat)o
zGSkV=GH>V_!={CcYo0CnHv;Y^wwqiaQ_JJWIEpp28-_O3q83KRyv(wwR*fT$YPF(G
z8J#9}q`7&bCM~!6QEpXaPFo(1f!FX`LKl#cuvUrjyPJ0NhHPygb!?Y^cC#(%DATfO
zG;=;zrVp_+UNUOj2u2D&1YvM0B_$Kkkc=U}=9_k@7@kg}={W7>*|$S9(#wU>ura!2
zCyo#$izf>ke*+OioV0Sf-@mi|phZ)rq#zg;GKkg?*eXn+mb9u)kNw$ih%{(}S2!8q
z0@t#N;AgZCV-S9sOmCbNOCF=+4N>f$Y``%lf@9+3^U+5E;uejBJ1%^BzO<U9<u$4`
z$sl`39&p<K5ya8{tECH(G7(C^?Sp^y!kBe!Y=rbOYYq4pLMo71(`3|xP`PnR5}*#5
zT+@pDrsv+#Y(P%hiXK<lp*4KAa=b%1@i>fJN}ox#WMxx*N~<HS93zMwg~r9$Lt>K*
z$UCDVB^eUn8c7s@O=0$UAcD_6^xV(~EI~>&**1rdAbWNTZutUedzK@>Mq?Zl;3Ps^
zUcem?6(F;fjHnR}>jklPgXArfOtH-F$15>IaaN8n!DL|l<P4EC5XvcjY&U!!DJE!O
zh%sS+$<;7)7_DeGfNr2Ok^Yd0esvi=YdB((jU$v2WV-YGA+$1f^fuwBw}O}=xRy+F
z^kLDf9L`M#@=I<dQ!}T>p=Pwaf$6KDpYhKiw0nt?v5wsCEptg_rwB-Ap^i09M4HGa
z7}IXicIR#FZn{p{33I&r*CIkKw1TQ-QqrCXU@2DmpYEZ;(O&DtX$fMKjX_6VVihRq
z^fpZ*6gd)^3JKR+%jn9)zXC8Uef`2gkZX+?qR&`3jf|Ry+>IY=0U{h3w~Aq6d2dtq
ztB_WIq2DE=VdmjbPwj%tUACGXo`4Mp)D9ry1xU+f_*QGaCVAfGgrl{zTV3g}`<qP5
zE1u-=D&t?dSl&n)!sxl}L5F4REl@{F^kA4{xsYy<DN}pQX=doe97LIBhCSB5^69P3
z-faVli+?!SAaUu8QIy)vk>4W2&IoMlJ8>{`&061uom|xB*UG2w&pmy5-p`jzd<*{2
z)U{|l*LImH`#Mxw-1^zXV9WVkYdYK8+w)W^DBa_%$?542RaGaTd#}2Xdi>NWop{Z%
z@^U*buZY0FK#9;&uT1q*rx34Qyu8XyCEkDeV)o+2p{U9OiM1tdZASM>&L<=!%wEXW
ziN6;b8hRwUYVrKbeN1Nbix(K>+}H$X9{RM&%F8Wx)K$Lfi$r;O`Ik{wGYS5B8trfz
zt@Q0%WnRC10fB*e^0OLg{ZopvvL)^c<s~JD6A}~c?CnQbGlGJGovp3HX=!OL9v-F6
za?Ra(X*s;J=a!9Um5DdEyEeAxSys^{xn2sSR!aq*LMiQZ6^*7V6Q&+y;NvH-W=)^-
zel9M>V1ch~E?0j3s%c)h;cKVF@<Xr~d~Lq-^&cHM`n=&nst&`Iqrl{fD_{CmezW(-
ufAH;_f8&VKB9DIem0)`G{XcktPkhP+(SD)x&MJ`GIk-<<C1LNGOaBMRx$~<4

diff --git a/reference/plot.html b/reference/plot.html
index b5bfb3be..c53d27ca 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 dd8e4ce2..46d16686 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 41fe3627..8e946a43 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -210,42 +210,42 @@
     <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] 1       32      0.5     8       0.002   16      32      &gt;=128   &lt;=0.001</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 0.025   32      16      0.25    0.125   &gt;=128   32      0.25    0.125  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 2       0.0625  0.5     0.005   0.005   0.5     0.005  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.005   256     256     0.0625  64      0.5     0.25    &lt;=0.002 0.025  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 0.0625  0.0625  32      0.5     0.01    32      0.005   0.0625  &lt;=0.002</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 0.5     0.025   4       16      128     1       4      </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] 20  9 38 12 19  9 15 10 28 47  9 28 40 15 45 50 40 36 31 26 45 35 42 38 18</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 30 46 46 42 24 26 25 45 42 43 21 40 13 48 44  6 50 31 27 11  9 20 46 11 47</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] I R I S R S I I R R S S R S R R R I S S R I I I I</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] R I R I S I S R I I R R S S R S R R I S S I I S S</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] 0.001  1      &gt;=32   0.5    0.5    0.5    16     0.01   0.0625 0.005 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 4      0.5    4      0.125  0.001  0.125  0.002  0.01   0.5    0.0625</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [21] &gt;=32   0.001  2      16     0.001 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 2     8     0.025 4     8     0.002 0.01  0.5   1     128   8     0.01 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 0.025 &gt;=256 &gt;=256 0.125 &gt;=256 8     16    0.01  64    32    16    0.001</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 8    </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] 8    4    0.5  4    2    4    &gt;=16 &gt;=16 2    1    2    4    2    4    4   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [16] 8    2    &gt;=16 4    8    4    8    1    4    2   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.5 16  1   0.5 8   8   1   1   8   2   8   2   0.5 16  0.5 16  4   4   0.5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [20] 4   8   8   8   1   1  </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] 0.0625 0.125  4      0.125  0.25   4      8      0.25   1      &gt;=16  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 8      4      8      0.0625 0.5    0.25   &gt;=16   0.5    2      0.25  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 4      0.0625 4      2      0.125 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.5     &lt;=0.125 2       0.5     0.25    2       0.25    0.5     &lt;=0.125</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [10] &lt;=0.125 1       1       4       1       &lt;=0.125 0.25    4       0.5    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 4       &lt;=0.125 4       &lt;=0.125 1       1       &lt;=0.125</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]  9 14 25 18 50 13  9 32 46 45 50 46 42 28 29 37 29 14 16 41 29  9 25 44 20</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 25 10 45 47  8 43 46 45 43 28  9 46 19 15 46 13 50 35 44 46 25  9 11 50 33</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] 14 12 17 12 11 17 12 16 17 14 11 11 16 12 16 14 17 12 17 17 13 11 13 13 13</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 16 13 17 14 12 13 14 13 11 14 17 12 12 17 16 16 13 12 12 11 14 13 17 15 17</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] 18 20 25 26 20 22 24 24 24 18 23 20 16 15 25 17 16 19 24 16 21 15 19 15 22</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 20 18 19 21 20 22 19 17 23 23 15 24 24 25 21 15 19 19 27 27 25 19 16 22 16</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 a3a4d165..460b47ff 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 092b943b..1d35f37a 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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">
@@ -198,7 +198,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.002275598</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.03715117</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 1af5eb93..d571457a 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.9024</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9025</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 b781dbca..ce99ea6c 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), Salmonella #>               Aurelianis (0.595), Salmonella Aarhus (0.588), Salmonella Amounderness #>               (0.587), Selenomonas artemidis (0.571), Salmonella choleraesuis #>               arizonae (0.562), Streptococcus anginosus anginosus (0.561), and #>               Salmonella Abaetetuba (0.548) #> -------------------------------------------------------------------------------- #> \"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.1, 2016). 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         S            R          I            I            R #> 2          I         I            I          R            S            I #> 3          R         S            I          R            I            R #> 4          S         S            I          I            S            I #> 5          I         S            R          S            I            R #> 6          R         R            I          S            S            I #>   kanamycin #> 1         I #> 2         I #> 3         R #> 4         S #> 5         R #> 6         S 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 1.232e-16 #> 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/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 December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org December 11th, 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 42 599 rows 12 columns, containing following column names:guideline, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, ecoff, uti. data set R available clinical_breakpoints, load AMR package. last updated 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (82 kB) Download tab-separated text file (4.4 MB) Download Microsoft Excel workbook (1.8 MB) Download Apache Feather file (1.6 MB) Download Apache Parquet file (0.2 MB) Download SAS data (SAS) file (3.6 MB) Download SAS transport (XPT) file (10.6 MB) Download IBM SPSS Statistics data file (5.8 MB) Download Stata DTA file (10.5 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 (2011-2023) EUCAST (2011-2023).","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 503 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 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (43 kB) Download Microsoft Excel workbook (25 kB) Download Apache Feather file (21 kB) Download Apache Parquet file (9 kB) Download SAS data (SAS) file (92 kB) Download SAS transport (XPT) file (0.1 MB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (0.1 MB)","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), ‘EUCAST Clinical Breakpoint Tables’ v13.0 (2023).","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 clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. 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 (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 2023\". Supported guideline currently EUCAST (2011-2023) CLSI (2011-2023). 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_ecoff  logical use .sir(), indicate ECOFF (Epidemiological Cut-) values must used - default FALSE. 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 clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. 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 transformation 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 \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter cloacae cloacae\"  # 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, even though 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  1989-09-05  33  33.79452         10 #> 2  1978-12-23  44  44.49589         21 #> 3  1982-12-24  40  40.49315         17 #> 4  1958-08-14  64  64.85479         41 #> 5  1968-12-14  54  54.52055         31 #> 6  1992-02-12  31  31.35616          7 #> 7  1988-05-22  35  35.08493         11 #> 8  1950-02-15  73  73.34795         49 #> 9  1937-05-17  86  86.09863         62 #> 10 1965-11-25  57  57.57260         34"},{"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 \"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 R      #> 2 R      #> 3 R      #> 4 S      #> 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 October 30th, 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 2023... #>  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 2023... #>  OK. #> => Interpreting disk diffusion zones of column 'CIP' (ciprofloxacin) #>    according to EUCAST 2023... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2023... #>  OK. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2023... #>  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 (2011-2023) CLSI (2011-2023). 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 #>    2023... #>  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 #>    2023... #>  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 December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. 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","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),   ecoff = getOption(\"AMR_ecoff\", FALSE),   ... )  # 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),   ecoff = getOption(\"AMR_ecoff\", FALSE),   ... )  # 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),   ecoff = getOption(\"AMR_ecoff\", FALSE) )  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, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2011-2023, 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 2023 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2023) CLSI (2011-2023), 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. ecoff logical indicate ECOFF (Epidemiological Cut-) values must used instead clinical breakpoints - default FALSE. Can also set package option AMR_ecoff. 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 (2011-2023) CLSI (2011-2023). Thus, guideline argument must set e.g., \"EUCAST 2023\" \"CLSI 2023\". 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 42 599 rows 12 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 #>    2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of column 'CIP' (ciprofloxacin) according to #>    EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2023... #>  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 2023... #>  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-06-22 13:16:45     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR #>  2 2023-06-22 13:16:45     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR #>  3 2023-06-22 13:16:44     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR #>  4 2023-06-22 13:16:43     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR #>  5 2023-06-22 13:16:36     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  6 2023-06-22 13:16:36     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  7 2023-06-22 13:16:36     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  8 2023-06-22 13:16:36     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  9 2023-06-22 13:16:36     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> 10 2023-06-22 13:16:36     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 #>    2023... #>  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 2023... #>  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 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2023... #>  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 2023... #>  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 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2023... #>  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 2023... #>  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 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2023... #>  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 2023... #>  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 #>    2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2023... #>  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 2023... #>  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 2023... #> 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 2023... #> 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 #>    2023... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2023... #>  OK. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2023... #>  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\"   # lowercase transformation 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 (2011-2023) CLSI (2011-2023). 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 42 599 observations 12 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\" ecoff Epidemiological cut-(ECOFF) value, used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi (use .sir(..., ecoff = TRUE) interpret raw data using ECOFF values) 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":"Clinical breakpoints validated WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. 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: 42,599 × 12 #>    guideline   method site  mo           rank_index ab   ref_tbl       disk_dose #>    <chr>       <chr>  <chr> <mo>              <dbl> <ab> <chr>         <chr>     #>  1 EUCAST 2023 MIC    NA    F_ASPRG_MGTS          2 AMB  Aspergillus   NA        #>  2 EUCAST 2023 MIC    NA    F_ASPRG_NIGR          2 AMB  Aspergillus   NA        #>  3 EUCAST 2023 MIC    NA    F_CANDD_ALBC          2 AMB  Candida       NA        #>  4 EUCAST 2023 MIC    NA    F_CANDD_DBLN          2 AMB  Candida       NA        #>  5 EUCAST 2023 MIC    NA    F_CANDD_GLBR          2 AMB  Candida       NA        #>  6 EUCAST 2023 MIC    NA    F_CANDD_KRUS          2 AMB  Candida       NA        #>  7 EUCAST 2023 MIC    NA    F_CANDD_PRPS          2 AMB  Candida       NA        #>  8 EUCAST 2023 MIC    NA    F_CANDD_TRPC          2 AMB  Candida       NA        #>  9 EUCAST 2023 MIC    NA    F_CRYPT_NFRM          2 AMB  Candida       NA        #> 10 EUCAST 2023 MIC    NA    B_ANAER-NEG           6 AMC  Gram-negativ… NA        #> # ℹ 42,589 more rows #> # ℹ 4 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, ecoff <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 503 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, either 13, 12, 11","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":"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: 503 × 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… #> # ℹ 493 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,   version_resistant_phenotypes = 1.2,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 13)"},{"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 \"13.0\", \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". version_resistant_phenotypes version number use EUCAST Expected Resistant Phenotypes. Can \"1.2\". 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 December 11th, 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' v13.0 (2023). 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 24 43 42 22 36 23 19  6 36 30 18  2 25 41 27 13 45 31 16  4  6 21 29 18 #>  [26] 10 29 30 35 28  9  2 14 31 38 24 20 33 37 35 33  9 46 23  1 44 30  2 48  3 #>  [51] 41 17 31 40 36 40 17 43 42 38  8 36 40  3 47 29 34 37 10 43  6  7 22 32 10 #>  [76] 31 12 14 34 39  1 35 42 45 26 11 38  5 15  3 28 39 45  8 15  9  7  1 41 32 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE #>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE #>  [25] FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE #>  [37]  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE #>  [49]  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE #>  [61]  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE #>  [73] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE #>  [85]  TRUE  TRUE FALSE  TRUE  TRUE FALSE FALSE FALSE 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: 3 × 46 #>   date       patient   age gender ward      mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>     <mo>         <sir> <sir> <sir> <sir> #> 1 2002-12-13 285137     78 F      ICU       B_ESCHR_COLI R     NA    NA    NA    #> 2 2002-11-11 D80753     74 F      Outpatie… B_STPHY_CONS R     NA    R     R     #> 3 2003-01-08 783073     83 M      Clinical  B_STPHY_CONS R     NA    S     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 [98] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 005088  2007-08-22 C         TRUE        #>  2 008268  2007-02-20 C         TRUE        #>  3 097186  2015-10-28 B         TRUE        #>  4 0C0688  2014-09-05 A         TRUE        #>  5 0DBB93  2009-05-08 C         TRUE        #>  6 0E2483  2007-05-29 C         TRUE        #>  7 0F9638  2014-09-22 A         TRUE        #>  8 12CB58  2017-09-23 C         TRUE        #>  9 1343BD  2016-04-02 C         TRUE        #> 10 141061  2014-10-22 B         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 [95] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2007-08-22 005088          1 TRUE        #>  2 ICU      2007-02-20 008268          1 TRUE        #>  3 Clinical 2015-10-28 097186          1 TRUE        #>  4 Clinical 2014-09-05 0C0688          1 TRUE        #>  5 Clinical 2009-05-08 0DBB93          1 TRUE        #>  6 Clinical 2007-05-29 0E2483          1 TRUE        #>  7 Clinical 2014-09-22 0F9638          1 TRUE        #>  8 ICU      2017-09-23 12CB58          1 TRUE        #>  9 Clinical 2016-04-02 1343BD          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           67             13            41            51 #> 2 ICU                23             10            19            21 #> 3 Outpatient          5              5             5             5  # 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] TRUE  # 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 838694  B_ACNTB      Clinical TRUE         #>  2 699321  B_STPHY_CONS Clinical TRUE         #>  3 C6F894  B_STPHY_EPDR Clinical TRUE         #>  4 D10538  B_ESCHR_COLI ICU      TRUE         #>  5 164466  B_STPHY_CONS Clinical TRUE         #>  6 0C0688  B_ESCHR_COLI Clinical TRUE         #>  7 317826  B_ESCHR_COLI ICU      TRUE         #>  8 195736  B_STPHY_AURS Clinical TRUE         #>  9 288260  B_STPHY_EPDR ICU      TRUE         #> 10 141061  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.980956 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.02318823"},{"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 I I R R R I R I 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] 256   0.01  4     64    8     1     1     0.002 0.125 256   mean_amr_distance(mic) #>  [1]  1.2331707 -1.2886091  0.1999266  0.8887560  0.3721339 -0.1444882 #>  [7] -0.1444882 -1.6884622 -0.6611102  1.2331707 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1]  1.2331707 -1.2886091  0.1999266  0.8887560  0.3721339 -0.1444882 #>  [7] -0.1444882 -1.6884622 -0.6611102  1.2331707  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 25  6 45 23 39 45 20 49  8 43 mean_amr_distance(disk) #>  [1] -0.3319640 -1.5220235  0.9207303 -0.4572334  0.5449220  0.9207303 #>  [7] -0.6451375  1.1712691 -1.3967541  0.7954608  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   27     1    0.5 #> 2   B    R   29     1    0.5 #> 3   C    I   19 <=0.5      4 #> 4   D    I   27     1 <=0.25 #> 5   E    S   30 <=0.5      4 #> 6   F    I   22     1      1 #> 7   G    I   26     1      1 #> 8   H    R   22     1      2 #> 9   I    I   21     4    0.5 #> 10  J    R   29     1 <=0.25 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.27087972  0.39969323 -0.52646026 -0.38265093  0.18201405 -0.36586924 #>  [7] -0.10824222  0.28766141  0.01268871  0.23028550 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   19 <=0.5      4  -0.52646026  0.0000000 #> 2   D    I   27     1 <=0.25  -0.38265093  0.1438093 #> 3   F    I   22     1      1  -0.36586924  0.1605910 #> 4   G    I   26     1      1  -0.10824222  0.4182180 #> 5   I    I   21     4    0.5   0.01268871  0.5391490 #> 6   E    S   30 <=0.5      4   0.18201405  0.7084743 #> 7   J    R   29     1 <=0.25   0.23028550  0.7567458 #> 8   A    R   27     1    0.5   0.27087972  0.7973400 #> 9   H    R   22     1      2   0.28766141  0.8141217 #> 10  B    R   29     1    0.5   0.39969323  0.9261535 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 4 942 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 942 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 4 942 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 4 942 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 942 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 4 942 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 4 942 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,942 × 2 #>    code  mo           #>    <chr> <mo>         #>  1 1011  B_GRAMP      #>  2 1012  B_GRAMP      #>  3 1013  B_GRAMN      #>  4 1014  B_GRAMN      #>  5 1015  F_YEAST      #>  6 103   B_ESCHR_COLI #>  7 104   B_SLMNL_HMRM #>  8 1100  B_STRPT      #>  9 1101  B_STRPT_VIRI #> 10 1102  B_STRPT_HAEM #> # ℹ 4,932 more rows  # 'ECO' or 'eco' is the WHONET code for E. coli: microorganisms.codes[microorganisms.codes$code == \"ECO\", ] #> # A tibble: 1 × 2 #>   code  mo           #>   <chr> <mo>         #> 1 ECO   B_ESCHR_COLI  # and therefore, 'eco' will be understood as E. coli in this package: mo_info(\"eco\") #> $mo #> [1] \"B_ESCHR_COLI\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Escherichia\" #>  #> $species #> [1] \"coli\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/escherichia-coli\" #>  #> $ref #> [1] \"Castellani et al., 1919\" #>  #> $snomed #>  [1] \"1095001000112106\" \"715307006\"        \"737528008\"        \"416989002\"        #>  [5] \"116397003\"        \"414097009\"        \"414098004\"        \"414099007\"        #>  [9] \"414100004\"        \"116395006\"        \"735270003\"        \"116396007\"        #> [13] \"83285000\"         \"116394005\"        \"112283007\"        \"710886005\"        #> [17] \"710887001\"        \"710888006\"        \"710889003\"        \"414132004\"        #> [21] \"721892009\"        \"416812001\"        \"416740004\"        \"417216001\"        #> [25] \"457541006\"        \"710253004\"        \"416530004\"        \"417189006\"        #> [29] \"409800005\"        \"713925008\"        \"444771000124108\"  \"838549008\"        #>  #> $lpsn #> [1] \"776057\" #>  #> $gbif #> [1] \"11286021\" #>   # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> [1] TRUE"},{"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: December 11th, 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 July 1st, 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 December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. 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","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 July 1st, 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 December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. 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","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 2023\", \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"EUCAST 2012\", \"EUCAST 2011\", \"CLSI 2023\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\", \"CLSI 2012\", \"CLSI 2011\". 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 2023 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] 1       32      0.5     8       0.002   16      32      >=128   <=0.001 #> [10] 0.025   32      16      0.25    0.125   >=128   32      0.25    0.125   #> [19] 2       0.0625  0.5     0.005   0.005   0.5     0.005   random_disk(25) #> Class 'disk' #>  [1] 20  9 38 12 19  9 15 10 28 47  9 28 40 15 45 50 40 36 31 26 45 35 42 38 18 random_sir(25) #> Class 'sir' #>  [1] I R I S R S I I R R S S R S R R R I S S R I I 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] 0.001  1      >=32   0.5    0.5    0.5    16     0.01   0.0625 0.005  #> [11] 4      0.5    4      0.125  0.001  0.125  0.002  0.01   0.5    0.0625 #> [21] >=32   0.001  2      16     0.001  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 8    4    0.5  4    2    4    >=16 >=16 2    1    2    4    2    4    4    #> [16] 8    2    >=16 4    8    4    8    1    4    2    random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 0.0625 0.125  4      0.125  0.25   4      8      0.25   1      >=16   #> [11] 8      4      8      0.0625 0.5    0.25   >=16   0.5    2      0.25   #> [21] 4      0.0625 4      2      0.125   random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1]  9 14 25 18 50 13  9 32 46 45 50 46 42 28 29 37 29 14 16 41 29  9 25 44 20 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 14 12 17 12 11 17 12 16 17 14 11 11 16 12 16 14 17 12 17 17 13 11 13 13 13 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 18 20 25 26 20 22 24 24 24 18 23 20 16 15 25 17 16 19 24 16 21 15 19 15 22 # }"},{"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.002275598"},{"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":"new-2-0-0-9024","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.0.0.9024","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. EUCAST dosage guideline v13.0 added dosage data set ECOFF: clinical_breakpoints data set now contains new column ecoff, epidemiological cut-(ECOFF) available. ECOFFs can used MIC/disk interpretation using .sir(..., ecoff = TRUE), important new addition veterinary microbiology. Added mo_oxygen_tolerance() retrieve values Added mo_is_anaerobic() determine genera/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","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-0-0-9024","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9024","text":"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() Now allows searching species names Fix using keep_synonyms argument using MO codes input Fix using minimum_matching_score argument Updated code table microorganisms.codes","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), Salmonella #>               Aurelianis (0.595), Salmonella Aarhus (0.588), Salmonella Amounderness #>               (0.587), Selenomonas artemidis (0.571), Salmonella choleraesuis #>               arizonae (0.562), Streptococcus anginosus anginosus (0.561), and #>               Salmonella Abaetetuba (0.548) #> -------------------------------------------------------------------------------- #> \"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.1, 2016). 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         S            I          S            I            S #> 2          S         S            S          I            I            S #> 3          I         I            S          R            I            S #> 4          R         I            S          S            R            I #> 5          S         R            R          I            R            S #> 6          S         S            I          R            R            R #>   kanamycin #> 1         I #> 2         S #> 3         I #> 4         R #> 5         S #> 6         I 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 1.232e-16 #> 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/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 December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org December 11th, 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 42 599 rows 12 columns, containing following column names:guideline, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, ecoff, uti. data set R available clinical_breakpoints, load AMR package. last updated 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (82 kB) Download tab-separated text file (4.4 MB) Download Microsoft Excel workbook (1.8 MB) Download Apache Feather file (1.6 MB) Download Apache Parquet file (0.2 MB) Download SAS data (SAS) file (3.6 MB) Download SAS transport (XPT) file (10.6 MB) Download IBM SPSS Statistics data file (5.8 MB) Download Stata DTA file (10.5 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 (2011-2023) EUCAST (2011-2023).","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 503 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 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (43 kB) Download Microsoft Excel workbook (25 kB) Download Apache Feather file (21 kB) Download Apache Parquet file (9 kB) Download SAS data (SAS) file (92 kB) Download SAS transport (XPT) file (0.1 MB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (0.1 MB)","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), ‘EUCAST Clinical Breakpoint Tables’ v13.0 (2023).","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 clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. 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 (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 2023\". Supported guideline currently EUCAST (2011-2023) CLSI (2011-2023). 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_ecoff  logical use .sir(), indicate ECOFF (Epidemiological Cut-) values must used - default FALSE. 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 clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. 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 transformation 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 \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter cloacae cloacae\"  # 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, even though 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  1944-06-04  79  79.04932         55 #> 2  1932-01-18  91  91.42466         67 #> 3  1974-11-03  48  48.63288         25 #> 4  1971-01-22  52  52.41370         28 #> 5  1973-07-19  49  49.92603         26 #> 6  1963-12-30  59  59.47671         36 #> 7  1978-04-03  45  45.21918         21 #> 8  1969-06-15  54  54.01918         30 #> 9  1954-03-07  69  69.29315         45 #> 10 1961-04-09  62  62.20274         38"},{"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 \"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 R      #> 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 October 30th, 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 2023... #>  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 2023... #>  OK. #> => Interpreting disk diffusion zones of column 'CIP' (ciprofloxacin) #>    according to EUCAST 2023... #>  OK. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2023... #>  OK. #> => Interpreting disk diffusion zones of column 'TOB' (tobramycin) according #>    to EUCAST 2023... #>  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 (2011-2023) CLSI (2011-2023). 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 #>    2023... #>  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 #>    2023... #>  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 December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. 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","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),   ecoff = getOption(\"AMR_ecoff\", FALSE),   ... )  # 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),   ecoff = getOption(\"AMR_ecoff\", FALSE),   ... )  # 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),   ecoff = getOption(\"AMR_ecoff\", FALSE) )  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, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2011-2023, 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 2023 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2023) CLSI (2011-2023), 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. ecoff logical indicate ECOFF (Epidemiological Cut-) values must used instead clinical breakpoints - default FALSE. Can also set package option AMR_ecoff. 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 (2011-2023) CLSI (2011-2023). Thus, guideline argument must set e.g., \"EUCAST 2023\" \"CLSI 2023\". 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 42 599 rows 12 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 #>    2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of column 'CIP' (ciprofloxacin) according to #>    EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of column 'GEN' (gentamicin) according #>    to EUCAST 2023... #>  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 2023... #>  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-06-22 13:31:26     1 TOB      TOB          Escherichia… B_[ORD]_ENTRBCTR #>  2 2023-06-22 13:31:26     1 GEN      GEN          Escherichia… B_[ORD]_ENTRBCTR #>  3 2023-06-22 13:31:25     1 CIP      CIP          Escherichia… B_[ORD]_ENTRBCTR #>  4 2023-06-22 13:31:24     1 AMP      AMP          Escherichia… B_[ORD]_ENTRBCTR #>  5 2023-06-22 13:31:17     1 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  6 2023-06-22 13:31:17     2 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  7 2023-06-22 13:31:17     3 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  8 2023-06-22 13:31:17     4 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #>  9 2023-06-22 13:31:17     5 CIP      CIP          B_ESCHR_COLI B_[ORD]_ENTRBCTR #> 10 2023-06-22 13:31:17     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 #>    2023... #>  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 2023... #>  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 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2023... #>  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 2023... #>  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 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting MIC values of 'AMP' (ampicillin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2023... #>  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 2023... #>  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 2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) based on column #>    'microorganism' according to EUCAST 2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) based on column #>    'microorganism' according to EUCAST 2023... #>  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 2023... #>  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 #>    2023... #>  Note: #>    • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming non-UTI. Use argument uti to set which #>      isolates are from urine. See ?as.sir. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2023... #>  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 2023... #>  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 2023... #> 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 2023... #> 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 #>    2023... #>  OK. #> => Interpreting MIC values of 'CIP' (ciprofloxacin) according to EUCAST #>    2023... #>  Note: #>    • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> => Interpreting disk diffusion zones of 'GEN' (gentamicin) according to #>    EUCAST 2023... #>  OK. #> => Interpreting disk diffusion zones of 'TOB' (tobramycin) according to #>    EUCAST 2023... #>  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\"   # lowercase transformation 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 (2011-2023) CLSI (2011-2023). 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 42 599 observations 12 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\" ecoff Epidemiological cut-(ECOFF) value, used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi (use .sir(..., ecoff = TRUE) interpret raw data using ECOFF values) 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":"Clinical breakpoints validated WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. 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: 42,599 × 12 #>    guideline   method site  mo           rank_index ab   ref_tbl       disk_dose #>    <chr>       <chr>  <chr> <mo>              <dbl> <ab> <chr>         <chr>     #>  1 EUCAST 2023 MIC    NA    F_ASPRG_MGTS          2 AMB  Aspergillus   NA        #>  2 EUCAST 2023 MIC    NA    F_ASPRG_NIGR          2 AMB  Aspergillus   NA        #>  3 EUCAST 2023 MIC    NA    F_CANDD_ALBC          2 AMB  Candida       NA        #>  4 EUCAST 2023 MIC    NA    F_CANDD_DBLN          2 AMB  Candida       NA        #>  5 EUCAST 2023 MIC    NA    F_CANDD_GLBR          2 AMB  Candida       NA        #>  6 EUCAST 2023 MIC    NA    F_CANDD_KRUS          2 AMB  Candida       NA        #>  7 EUCAST 2023 MIC    NA    F_CANDD_PRPS          2 AMB  Candida       NA        #>  8 EUCAST 2023 MIC    NA    F_CANDD_TRPC          2 AMB  Candida       NA        #>  9 EUCAST 2023 MIC    NA    F_CRYPT_NFRM          2 AMB  Candida       NA        #> 10 EUCAST 2023 MIC    NA    B_ANAER-NEG           6 AMC  Gram-negativ… NA        #> # ℹ 42,589 more rows #> # ℹ 4 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, ecoff <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 503 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, either 13, 12, 11","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":"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: 503 × 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… #> # ℹ 493 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,   version_resistant_phenotypes = 1.2,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 13)"},{"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 \"13.0\", \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". version_resistant_phenotypes version number use EUCAST Expected Resistant Phenotypes. Can \"1.2\". 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 December 11th, 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' v13.0 (2023). 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]  5 22  7  8 28 45 31  3 19  5 27 37 13 24 37 43  6  6 30 47 16 31 43  1 49 #>  [26]  4 10 41 35 24  7 13 13 32  6 10 42  1  6 48 28 26 39  7 25 44 12 43 40 40 #>  [51]  8 40 17 24 47 34 14  7 21  4 33  1 38 41 41 39  3  3 33 29 21 35 15 36 10 #>  [76] 35 24 44 29 44 37 46 37 11 45  9 18  5 26 20  5 38 41  2  7  8 23 38 17 50 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE #>  [13]  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE #>  [25]  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [37]  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE #>  [49]  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE #>  [61]  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [73]  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE #>  [85] FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [97]  TRUE FALSE FALSE  TRUE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 3 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2003-01-14 553529     89 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #> 2 2002-11-16 762305     87 F      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 3 2002-12-13 285137     78 F      ICU      B_ESCHR_COLI R     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 [98] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 001213  2009-08-03 B         TRUE        #>  2 011307  2011-09-20 A         TRUE        #>  3 021648  2004-08-21 C         TRUE        #>  4 022060  2004-05-04 C         TRUE        #>  5 022060  2004-05-04 C         FALSE       #>  6 066895  2002-02-27 C         TRUE        #>  7 067927  2002-02-14 B         TRUE        #>  8 078381  2014-07-17 C         TRUE        #>  9 082622  2014-02-08 A         TRUE        #> 10 0DBF93  2015-10-12 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 [96] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2009-08-03 001213          1 TRUE        #>  2 Clinical 2011-09-20 011307          1 TRUE        #>  3 Clinical 2004-08-21 021648          1 TRUE        #>  4 ICU      2004-05-04 022060          1 TRUE        #>  5 ICU      2004-05-04 022060          1 FALSE       #>  6 Clinical 2002-02-27 066895          1 TRUE        #>  7 ICU      2002-02-14 067927          1 TRUE        #>  8 ICU      2014-07-17 078381          1 TRUE        #>  9 ICU      2014-02-08 082622          1 TRUE        #> 10 Clinical 2015-10-12 0DBF93          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           62             13            35            44 #> 2 ICU                30             11            23            27 #> 3 Outpatient          4              4             4             4  # 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] TRUE  # 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 [97] #>    patient mo            ward     flag_episode #>    <chr>   <mo>          <chr>    <lgl>        #>  1 82C90B  B_STPHY_EPDR  Clinical TRUE         #>  2 3281D6  B_CRYNB       Clinical TRUE         #>  3 136315  B_STRPT_MITS  Clinical TRUE         #>  4 022060  B_ENTRBC_CLOC ICU      TRUE         #>  5 A22120  B_STRPT_MITS  Clinical TRUE         #>  6 D41749  B_ESCHR_COLI  Clinical TRUE         #>  7 B26873  B_ESCHR_COLI  Clinical TRUE         #>  8 553529  B_ESCHR_COLI  Clinical TRUE         #>  9 C58675  B_STPHY_AURS  Clinical TRUE         #> 10 8E5544  B_STRPT_PNMN  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] 3.028521 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.03512151"},{"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 I S R R I I S I S mean_amr_distance(sir) #>  [1]  1.449138 -0.621059 -0.621059  1.449138  1.449138 -0.621059 -0.621059 #>  [8] -0.621059 -0.621059 -0.621059  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.5    64     128    2      64     0.5    4      16     <=0.01 64     mean_amr_distance(mic) #>  [1] -0.76841729  0.84415551  1.07452305 -0.30768220  0.84415551 -0.76841729 #>  [7] -0.07731466  0.38342042 -2.06857856  0.84415551 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -0.76841729  0.84415551  1.07452305 -0.30768220  0.84415551 -0.76841729 #>  [7] -0.07731466  0.38342042 -2.06857856  0.84415551  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 33 13 32 20 13 17 12 43 11 48 mean_amr_distance(disk) #>  [1]  0.6399929 -0.8145365  0.5672665 -0.3054512 -0.8145365 -0.5236306 #>  [7] -0.8872630  1.3672577 -0.9599894  1.7308900  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    S   29    2     4 #> 2   B    R   18    1     1 #> 3   C    S   22    1     1 #> 4   D    I   22    2 <=0.5 #> 5   E    S   29    4     1 #> 6   F    S   19    2     2 #> 7   G    R   19    2 <=0.5 #> 8   H    R   23    4     4 #> 9   I    S   22    2     4 #> 10  J    R   31    1     2 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.43964438 -0.43272533 -0.70168251 -0.57585273  0.35248847 -0.31125566 #>  [7] -0.25310412  0.93983415  0.06310433  0.47954902 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    S   22    1     1  -0.70168251  0.0000000 #> 2   D    I   22    2 <=0.5  -0.57585273  0.1258298 #> 3   B    R   18    1     1  -0.43272533  0.2689572 #> 4   F    S   19    2     2  -0.31125566  0.3904268 #> 5   G    R   19    2 <=0.5  -0.25310412  0.4485784 #> 6   I    S   22    2     4   0.06310433  0.7647868 #> 7   E    S   29    4     1   0.35248847  1.0541710 #> 8   A    S   29    2     4   0.43964438  1.1413269 #> 9   J    R   31    1     2   0.47954902  1.1812315 #> 10  H    R   23    4     4   0.93983415  1.6415167 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 4 942 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 942 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 4 942 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 4 942 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 942 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 4 942 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 4 942 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,942 × 2 #>    code  mo           #>    <chr> <mo>         #>  1 1011  B_GRAMP      #>  2 1012  B_GRAMP      #>  3 1013  B_GRAMN      #>  4 1014  B_GRAMN      #>  5 1015  F_YEAST      #>  6 103   B_ESCHR_COLI #>  7 104   B_SLMNL_HMRM #>  8 1100  B_STRPT      #>  9 1101  B_STRPT_VIRI #> 10 1102  B_STRPT_HAEM #> # ℹ 4,932 more rows  # 'ECO' or 'eco' is the WHONET code for E. coli: microorganisms.codes[microorganisms.codes$code == \"ECO\", ] #> # A tibble: 1 × 2 #>   code  mo           #>   <chr> <mo>         #> 1 ECO   B_ESCHR_COLI  # and therefore, 'eco' will be understood as E. coli in this package: mo_info(\"eco\") #> $mo #> [1] \"B_ESCHR_COLI\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Escherichia\" #>  #> $species #> [1] \"coli\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/escherichia-coli\" #>  #> $ref #> [1] \"Castellani et al., 1919\" #>  #> $snomed #>  [1] \"1095001000112106\" \"715307006\"        \"737528008\"        \"416989002\"        #>  [5] \"116397003\"        \"414097009\"        \"414098004\"        \"414099007\"        #>  [9] \"414100004\"        \"116395006\"        \"735270003\"        \"116396007\"        #> [13] \"83285000\"         \"116394005\"        \"112283007\"        \"710886005\"        #> [17] \"710887001\"        \"710888006\"        \"710889003\"        \"414132004\"        #> [21] \"721892009\"        \"416812001\"        \"416740004\"        \"417216001\"        #> [25] \"457541006\"        \"710253004\"        \"416530004\"        \"417189006\"        #> [29] \"409800005\"        \"713925008\"        \"444771000124108\"  \"838549008\"        #>  #> $lpsn #> [1] \"776057\" #>  #> $gbif #> [1] \"11286021\" #>   # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> [1] TRUE"},{"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: December 11th, 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 July 1st, 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 December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. 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","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 July 1st, 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 December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. 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","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 2023\", \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"EUCAST 2012\", \"EUCAST 2011\", \"CLSI 2023\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\", \"CLSI 2012\", \"CLSI 2011\". 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 2023 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] 0.005   256     256     0.0625  64      0.5     0.25    <=0.002 0.025   #> [10] 0.0625  0.0625  32      0.5     0.01    32      0.005   0.0625  <=0.002 #> [19] 0.5     0.025   4       16      128     1       4       random_disk(25) #> Class 'disk' #>  [1] 30 46 46 42 24 26 25 45 42 43 21 40 13 48 44  6 50 31 27 11  9 20 46 11 47 random_sir(25) #> Class 'sir' #>  [1] R I R I S I S R I I R R S S R S R R I S S I I S S  # \\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     8     0.025 4     8     0.002 0.01  0.5   1     128   8     0.01  #> [13] 0.025 >=256 >=256 0.125 >=256 8     16    0.01  64    32    16    0.001 #> [25] 8     random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 0.5 16  1   0.5 8   8   1   1   8   2   8   2   0.5 16  0.5 16  4   4   0.5 #> [20] 4   8   8   8   1   1   random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 0.5     <=0.125 2       0.5     0.25    2       0.25    0.5     <=0.125 #> [10] <=0.125 1       1       4       1       <=0.125 0.25    4       0.5     #> [19] 4       <=0.125 4       <=0.125 1       1       <=0.125  random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 25 10 45 47  8 43 46 45 43 28  9 46 19 15 46 13 50 35 44 46 25  9 11 50 33 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 16 13 17 14 12 13 14 13 11 14 17 12 12 17 16 16 13 12 12 11 14 13 17 15 17 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 20 18 19 21 20 22 19 17 23 23 15 24 24 25 21 15 19 19 27 27 25 19 16 22 16 # }"},{"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.03715117"},{"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":"new-2-0-0-9025","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.0.0.9025","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. EUCAST dosage guideline v13.0 added dosage data set ECOFF: clinical_breakpoints data set now contains new column ecoff, epidemiological cut-(ECOFF) available. ECOFFs can used MIC/disk interpretation using .sir(..., ecoff = TRUE), important new addition veterinary microbiology. Added mo_oxygen_tolerance() retrieve values Added mo_is_anaerobic() determine genera/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","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-0-0-9025","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9025","text":"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() Now allows searching species names Fix using keep_synonyms argument using MO codes input Fix using minimum_matching_score argument Updated code table microorganisms.codes","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":""}]