From 4720b842e6fc06655c7375cc6765981157672895 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Mon, 4 Dec 2023 07:26:20 +0000
Subject: [PATCH] Built site for AMR: 2.1.1.9004@83e92fd

---
 404.html                                  |   2 +-
 LICENSE-text.html                         |   2 +-
 articles/AMR.html                         |  10 +-
 articles/EUCAST.html                      |   2 +-
 articles/MDR.html                         |  62 ++++++------
 articles/PCA.html                         |   2 +-
 articles/WHONET.html                      |   2 +-
 articles/datasets.html                    |   4 +-
 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                                |   2 +-
 news/index.html                           |  10 +-
 pkgdown.yml                               |   2 +-
 reference/AMR-options.html                |   2 +-
 reference/AMR.html                        |   8 +-
 reference/Rplot005.png                    | Bin 13456 -> 13621 bytes
 reference/Rplot006.png                    | Bin 13130 -> 13316 bytes
 reference/Rplot011.png                    | Bin 13454 -> 14716 bytes
 reference/Rplot012.png                    | Bin 20264 -> 19630 bytes
 reference/Rplot013.png                    | Bin 8483 -> 8521 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 |  10 +-
 reference/antibiotics.html                |   2 +-
 reference/as.ab.html                      |   2 +-
 reference/as.av.html                      |   2 +-
 reference/as.disk.html                    |   2 +-
 reference/as.mic.html                     |   3 +-
 reference/as.mo.html                      |   2 +-
 reference/as.sir.html                     |  28 +++---
 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                | 109 +++++++++++-----------
 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.groups.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 27286 -> 26193 bytes
 reference/plot-11.png                     | Bin 37955 -> 38848 bytes
 reference/plot-12.png                     | Bin 60234 -> 58410 bytes
 reference/plot-13.png                     | Bin 26160 -> 26204 bytes
 reference/plot-2.png                      | Bin 26421 -> 26523 bytes
 reference/plot-3.png                      | Bin 28142 -> 28113 bytes
 reference/plot-4.png                      | Bin 41063 -> 40093 bytes
 reference/plot-5.png                      | Bin 40180 -> 40348 bytes
 reference/plot-6.png                      | Bin 38499 -> 38677 bytes
 reference/plot.html                       |   2 +-
 reference/proportion.html                 |   2 +-
 reference/random.html                     |  35 +++----
 reference/resistance_predict.html         |   2 +-
 reference/skewness.html                   |   4 +-
 reference/translate.html                  |   2 +-
 search.json                               |   2 +-
 90 files changed, 255 insertions(+), 252 deletions(-)

diff --git a/404.html b/404.html
index 8bcd3f5d..15cd07c5 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 2a47462a..632a7b91 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 e8c01063..1e7ec6ec 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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">
@@ -204,7 +204,7 @@
 website update since they are based on randomly created values and the
 page was written in <a href="https://rmarkdown.rstudio.com/" class="external-link">R
 Markdown</a>. However, the methodology remains unchanged. This page was
-generated on 03 December 2023.</p>
+generated on 04 December 2023.</p>
 <div class="section level2">
 <h2 id="introduction">Introduction<a class="anchor" aria-label="anchor" href="#introduction"></a>
 </h2>
@@ -260,21 +260,21 @@ make the structure of your data generally look like this:</p>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="center">2023-12-03</td>
+<td align="center">2023-12-04</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">S</td>
 </tr>
 <tr class="even">
-<td align="center">2023-12-03</td>
+<td align="center">2023-12-04</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">R</td>
 </tr>
 <tr class="odd">
-<td align="center">2023-12-03</td>
+<td align="center">2023-12-04</td>
 <td align="center">efgh</td>
 <td align="center">Escherichia coli</td>
 <td align="center">R</td>
diff --git a/articles/EUCAST.html b/articles/EUCAST.html
index 768d407f..441aa657 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 fc269918..120ffb73 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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">
@@ -401,19 +401,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            S          R            R            I</span></span>
-<span><span class="co">#&gt; 2          I         R            S          R            S            I</span></span>
-<span><span class="co">#&gt; 3          R         R            I          S            R            S</span></span>
-<span><span class="co">#&gt; 4          R         I            S          R            I            I</span></span>
-<span><span class="co">#&gt; 5          S         R            I          I            I            R</span></span>
-<span><span class="co">#&gt; 6          S         S            R          S            R            S</span></span>
+<span><span class="co">#&gt; 1          R         R            S          R            S            I</span></span>
+<span><span class="co">#&gt; 2          S         S            S          S            R            I</span></span>
+<span><span class="co">#&gt; 3          S         S            R          S            S            I</span></span>
+<span><span class="co">#&gt; 4          I         I            R          I            I            I</span></span>
+<span><span class="co">#&gt; 5          I         I            I          R            I            R</span></span>
+<span><span class="co">#&gt; 6          R         S            I          R            I            I</span></span>
 <span><span class="co">#&gt;   kanamycin</span></span>
-<span><span class="co">#&gt; 1         R</span></span>
-<span><span class="co">#&gt; 2         I</span></span>
-<span><span class="co">#&gt; 3         S</span></span>
-<span><span class="co">#&gt; 4         R</span></span>
-<span><span class="co">#&gt; 5         R</span></span>
-<span><span class="co">#&gt; 6         R</span></span></code></pre></div>
+<span><span class="co">#&gt; 1         S</span></span>
+<span><span class="co">#&gt; 2         R</span></span>
+<span><span class="co">#&gt; 3         I</span></span>
+<span><span class="co">#&gt; 4         S</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">
@@ -454,40 +454,40 @@ Unique: 5</p>
 <tr class="odd">
 <td align="left">1</td>
 <td align="left">Mono-resistant</td>
-<td align="right">3209</td>
-<td align="right">64.18%</td>
-<td align="right">3209</td>
-<td align="right">64.18%</td>
+<td align="right">3252</td>
+<td align="right">65.04%</td>
+<td align="right">3252</td>
+<td align="right">65.04%</td>
 </tr>
 <tr class="even">
 <td align="left">2</td>
 <td align="left">Negative</td>
-<td align="right">955</td>
-<td align="right">19.10%</td>
-<td align="right">4164</td>
-<td align="right">83.28%</td>
+<td align="right">927</td>
+<td align="right">18.54%</td>
+<td align="right">4179</td>
+<td align="right">83.58%</td>
 </tr>
 <tr class="odd">
 <td align="left">3</td>
 <td align="left">Multi-drug-resistant</td>
-<td align="right">451</td>
-<td align="right">9.02%</td>
-<td align="right">4615</td>
-<td align="right">92.30%</td>
+<td align="right">475</td>
+<td align="right">9.50%</td>
+<td align="right">4654</td>
+<td align="right">93.08%</td>
 </tr>
 <tr class="even">
 <td align="left">4</td>
 <td align="left">Poly-resistant</td>
-<td align="right">256</td>
-<td align="right">5.12%</td>
-<td align="right">4871</td>
-<td align="right">97.42%</td>
+<td align="right">242</td>
+<td align="right">4.84%</td>
+<td align="right">4896</td>
+<td align="right">97.92%</td>
 </tr>
 <tr class="odd">
 <td align="left">5</td>
 <td align="left">Extensively drug-resistant</td>
-<td align="right">129</td>
-<td align="right">2.58%</td>
+<td align="right">104</td>
+<td align="right">2.08%</td>
 <td align="right">5000</td>
 <td align="right">100.00%</td>
 </tr>
diff --git a/articles/PCA.html b/articles/PCA.html
index f4ffbd5a..0509498a 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 e8008775..79ca480a 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 3bc909b6..88e58e78 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -193,7 +193,7 @@
   <main id="main" class="col-md-9"><div class="page-header">
       <img src="../logo.svg" class="logo" alt=""><h1>Data sets for download / own use</h1>
             
-            <h4 data-toc-skip class="date">03 December 2023</h4>
+            <h4 data-toc-skip class="date">04 December 2023</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/HEAD/vignettes/datasets.Rmd" class="external-link"><code>vignettes/datasets.Rmd</code></a></small>
       <div class="d-none name"><code>datasets.Rmd</code></div>
diff --git a/articles/index.html b/articles/index.html
index ec0b326b..68b3d682 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 ce50bba9..53dd322a 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 ad98a297..90777016 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 9f080d2f..053d1ca9 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 d4b074d2..dccca020 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 7472beae..21aeff1f 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/news/index.html b/news/index.html
index 4a17b21a..527097b1 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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,17 +159,17 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.1.1.9003" id="amr-2119003">AMR 2.1.1.9003<a class="anchor" aria-label="anchor" href="#amr-2119003"></a></h2>
+<h2 class="pkg-version" data-toc-text="2.1.1.9004" id="amr-2119004">AMR 2.1.1.9004<a class="anchor" aria-label="anchor" href="#amr-2119004"></a></h2>
 <div class="section level3">
-<h3 id="breaking-2-1-1-9003">Breaking<a class="anchor" aria-label="anchor" href="#breaking-2-1-1-9003"></a></h3>
+<h3 id="breaking-2-1-1-9004">Breaking<a class="anchor" aria-label="anchor" href="#breaking-2-1-1-9004"></a></h3>
 <ul><li>Removed all functions and references that used the deprecated <code>rsi</code> class, which were all replaced with their <code>sir</code> equivalents a year ago</li>
 </ul></div>
 <div class="section level3">
-<h3 id="new-2-1-1-9003">New<a class="anchor" aria-label="anchor" href="#new-2-1-1-9003"></a></h3>
+<h3 id="new-2-1-1-9004">New<a class="anchor" aria-label="anchor" href="#new-2-1-1-9004"></a></h3>
 <ul><li>Function group <code>scale_*_mic()</code>, namely: <code><a href="../reference/plot.html">scale_x_mic()</a></code>, <code><a href="../reference/plot.html">scale_y_mic()</a></code>, <code><a href="../reference/plot.html">scale_colour_mic()</a></code> and <code><a href="../reference/plot.html">scale_fill_mic()</a></code>. They are advanced ggplot2 extensions to allow plotting of MIC values. They allow for manual range definition and plotting missing intermediate log2 levels.</li>
 <li>Function <code><a href="../reference/as.mic.html">rescale_mic()</a></code>, which allows to rescale MIC values to a manually set range. This is the powerhouse behind the <code>scale_*_mic()</code> functions, but it can be used by users directly to e.g. compare equality in MIC distributions by rescaling them to the same range first.</li>
 </ul><div class="section level4">
-<h4 id="changed-2-1-1-9003">Changed<a class="anchor" aria-label="anchor" href="#changed-2-1-1-9003"></a></h4>
+<h4 id="changed-2-1-1-9004">Changed<a class="anchor" aria-label="anchor" href="#changed-2-1-1-9004"></a></h4>
 <ul><li>For MICs:
 <ul><li>Added 4096 and 5 powers of 192 as valid levels (192, 384, 576, 768, 960)</li>
 <li>Added new argument <code>keep_operators</code> to <code><a href="../reference/as.mic.html">as.mic()</a></code>. This can be <code>"all"</code> (default), <code>"none"</code>, or <code>"edges"</code>.</li>
diff --git a/pkgdown.yml b/pkgdown.yml
index a444aef5..13b9bb6c 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-12-03T15:54Z
+last_built: 2023-12-04T07:23Z
 urls:
   reference: https://msberends.github.io/AMR/reference
   article: https://msberends.github.io/AMR/articles
diff --git a/reference/AMR-options.html b/reference/AMR-options.html
index 9f91e95a..693a12db 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 9c849023..0594635a 100644
--- a/reference/AMR.html
+++ b/reference/AMR.html
@@ -5,14 +5,14 @@ This work was published in the Journal of Statistical Software (Volume 104(3); d
 ) and formed the basis of two PhD theses (doi:10.33612/diss.177417131
  and doi:10.33612/diss.192486375
 ).
-After installing this package, R knows ~52 000 microorganisms (updated December 2022) and all ~600 antibiotic, antimycotic and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the public University of Groningen, in collaboration with non-profit organisations Certe Medical Diagnostics and Advice Foundation and University Medical Center Groningen.
+After installing this package, R knows ~52 000 microorganisms (updated december 2022) and all ~600 antibiotic, antimycotic and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the public University of Groningen, in collaboration with non-profit organisations Certe Medical Diagnostics and Advice Foundation and University Medical Center Groningen.
 The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, and Ukrainian. Antimicrobial drug (group) names and colloquial microorganism names are provided in these languages."><title>The AMR Package — AMR • AMR (for R)</title><!-- favicons --><link rel="icon" type="image/png" sizes="16x16" href="../favicon-16x16.png"><link rel="icon" type="image/png" sizes="32x32" href="../favicon-32x32.png"><link rel="apple-touch-icon" type="image/png" sizes="180x180" href="../apple-touch-icon.png"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/Fira_Code-0.4.7/font.css" rel="stylesheet"><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="The AMR Package — AMR"><meta property="og:description" content="Welcome to the AMR package.
 The AMR package is a free and open-source R package with zero dependencies to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and to work with microbial and antimicrobial data and properties, by using evidence-based methods. Our aim is to provide a standard for clean and reproducible AMR data analysis, that can therefore empower epidemiological analyses to continuously enable surveillance and treatment evaluation in any setting. Many different researchers from around the globe are continually helping us to make this a successful and durable project!
 This work was published in the Journal of Statistical Software (Volume 104(3); doi:10.18637/jss.v104.i03
 ) and formed the basis of two PhD theses (doi:10.33612/diss.177417131
  and doi:10.33612/diss.192486375
 ).
-After installing this package, R knows ~52 000 microorganisms (updated December 2022) and all ~600 antibiotic, antimycotic and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the public University of Groningen, in collaboration with non-profit organisations Certe Medical Diagnostics and Advice Foundation and University Medical Center Groningen.
+After installing this package, R knows ~52 000 microorganisms (updated december 2022) and all ~600 antibiotic, antimycotic and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the public University of Groningen, in collaboration with non-profit organisations Certe Medical Diagnostics and Advice Foundation and University Medical Center Groningen.
 The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, and Ukrainian. Antimicrobial drug (group) names and colloquial microorganism names are provided in these languages."><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"><meta name="twitter:card" content="summary_large_image"><meta name="twitter:creator" content="@msberends"><meta name="twitter:site" content="@msberends"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
@@ -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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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">
@@ -180,7 +180,7 @@ The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish,
 ) and formed the basis of two PhD theses (<a href="https://doi.org/10.33612/diss.177417131" class="external-link">doi:10.33612/diss.177417131</a>
  and <a href="https://doi.org/10.33612/diss.192486375" class="external-link">doi:10.33612/diss.192486375</a>
 ).</p>
-<p>After installing this package, R knows <a href="https://msberends.github.io/AMR/reference/microorganisms.html"><strong>~52 000 microorganisms</strong></a> (updated December 2022) and all <a href="https://msberends.github.io/AMR/reference/antibiotics.html"><strong>~600 antibiotic, antimycotic and antiviral drugs</strong></a> by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). <strong>It was designed to work in any setting, including those with very limited resources</strong>. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the public <a href="https://www.rug.nl" class="external-link">University of Groningen</a>, in collaboration with non-profit organisations <a href="https://www.certe.nl" class="external-link">Certe Medical Diagnostics and Advice Foundation</a> and <a href="https://www.umcg.nl" class="external-link">University Medical Center Groningen</a>.</p>
+<p>After installing this package, R knows <a href="https://msberends.github.io/AMR/reference/microorganisms.html"><strong>~52 000 microorganisms</strong></a> (updated december 2022) and all <a href="https://msberends.github.io/AMR/reference/antibiotics.html"><strong>~600 antibiotic, antimycotic and antiviral drugs</strong></a> by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). <strong>It was designed to work in any setting, including those with very limited resources</strong>. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the public <a href="https://www.rug.nl" class="external-link">University of Groningen</a>, in collaboration with non-profit organisations <a href="https://www.certe.nl" class="external-link">Certe Medical Diagnostics and Advice Foundation</a> and <a href="https://www.umcg.nl" class="external-link">University Medical Center Groningen</a>.</p>
 <p>The <code>AMR</code> package is available in English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, and Ukrainian. Antimicrobial drug (group) names and colloquial microorganism names are provided in these languages.</p>
     </div>
 
diff --git a/reference/Rplot005.png b/reference/Rplot005.png
index 3c198bfee58b5c9670ad7b7823b3abc638bd9510..2e764f04550320d3b9d9f29d45387cdea9496f25 100644
GIT binary patch
literal 13621
zcmcJ$1yqz#yDvULs<eobA`KGKof1QrgfvLk&>*b{0umyfN~5H74I?N@r*sV6LpKBW
z<@>(%Kj(k$T6dkh&Ua_cFq?Uqy`TMieoyX~NKJJ`f;*IVKp+qSOzF8c2n0smzVL8>
zPXb2~Nx&P9rHbNn;2n6J%QXiBZ}@N}Lk|$>F6r$HJUkn81p++=!Jf<L`eyFT`lK3L
zPloLKdkZzQQE4kF*?o!BmBZJPz9*l^EMM{@_x`!2biM-?_H!;xEPi@ou$HtmSf(_D
z^&xhF5?(yk+fYrpJ1`|dYat_q)EwXTWLNL@HhMdAa`w{4#G|j5ZP!mdu-~6uDS;98
zKYi+ou0aTpR#i4cihYR5AKyi%&3xGEee-j_DT#t$S$g23Xi58x8yb^(vH$OiGH^w{
z)@&H8#QwoQWphXJ-VFZJSV<wM*eg#D&>pKMZZED2M6i2(^;tXp5FLa<ezq0c802(s
zhOmXG7bmu#^mkBL$Jd@vpAa_WAHolcOnWruBzvOppxEnbnkLRyl&>hUTJ9%#@x?n7
zT~;X0N+u3nO%<Q34c%nq-VjJj?D4{}D^0~#<WlPhkR??%DGGh)f%UrhjoGw~Copzt
z0Sg8*+<Wxfa2G6N!h5kz=MM%U;&`JVBLxgU#LChd!?#&ZJ8|DY>S7-9l*wtP{)0gD
zslWQ@b|GsaCmzhoT34Muh&0J9`2N~Sl?8@xY<51^hD?lyfcJ8XNHy-7A|U{*@O$wQ
zslYdgo?@SO->?QbTzfRgyA#g)8;VLQp47MO<BChiaE+D5Z<wrmeq{7&f7l-GD^N+k
zMY~^8AYi|J-!VvMbbGwYW&<lgv2=2=cv7IshCr)YF7M{8Wygf@*sO$B^)5LN?LMz}
zq`(byhXr*~C}R^W1kvaW0t6Vzet#jxb<w7H6s(o)zPR*Y-o7g(L?cq5M-}-_eOI<9
zdeqr?eKeyFcZ}G<^9GuZ2U`@Dm7NeB+sUY!A5fT&ux2}4nb<w8=68%laOCZt@t77J
z?>S!Z95<XOyorDO{nxoC7*i)iz?-G6lo<>`C~TeGU;Mg$Ni}p@Qnk9_E~#4lq79Zx
zxI5xt7uwN9q4Q;=Id4RsU6icyb#-l+$7><7er(7#{tN;2^JxNSmDu^T^y({@D1n|C
z-`_VC8p210Gy)pnh~-Cmg6}%h#^(6{)I7bA1WlB`t&)&UWu}8lVg;}{1lb-*gu#o?
zb!FWvzU<{wQREb+Q6xMNZ50zW$<O5jf2;Q=7mlgir-P_Qr|-%L=cm=#Z~I*E?9xT?
zT;2Q%a-HwuHI2c{F`oF>6CUL_Qogz%f#ZL{xw%(qh`U&d>k=7sL(jehL(LXXM%d4;
zia(zSeK;F>Fd`-jwd(7%@f`WMG5c}j33(R2L8~F>f&+>qY-)gAwhy;`p_4r9n;n>o
zdB&&d*+Tngo2WzL_vBiWpig#X`vlmrETc_RI*P?5;D8LxtxMubqK~!?u9UAFm^1ZT
zBjeYzaTUmUGHa-Ecb#*0zgh0A{tVhxeHh0fs(HdNbh;4cJbr@w@o4t`e{5Cg8^cVL
zJ3(bUoZJc9LM{_wvg#l9Tu^i~2xpJO++%7?ym|3XyG5ThayslV+lMsamkxIFer<6k
zG>=!Eab|HOTeeW9@B!)@au+|+QS==hdr;^Yr7Kw(jI7;vS4C-4gP5!4LOygwR;jce
zO2?8pFYzA!#h_5O(8sng`k&rLw6|xc;2?fCYSrC9qenvW)&*^*%Hf|r7bND=+=w~B
z_1=BehC6ry(|wniQIXR>l{01(&)Z{0cP9HWqG<7vx?hW>8&8=J$WxE}okW+Kh%dS4
z0B^#c@6Q$FJpQTO11ouDF{+0OzHk|z4TqMZkqgf}9NAu)D!v6arL29Pg(y_)KPOIu
zlf&x{2C&i5LF0qoF9nFpPh#gUbkwFVv#L3*>}{b^aTpB}TJpyC@E0CU)4djgm1uRD
zs69vo6Eep>P~i{}mck+~zqO;$*n};dz%yGkbTafQ4Tq$#k3P&+&Nf4^Ks3>mYkIc(
zM9iMSgHn*RoQKYIx#8l2yCLx?g1ub<jT>epONh-pcw#zM{!(tMgHZGUuRV6%p@j^O
zYW0XLHfZ?AwG>Xv_`8LarWvQswTF69dzH}_2GzKBS$coN&eIzg%Ax{ojXH;|b3jhg
zz5xtjEY^Xk@n@21Ti=LBI-1h<-n?~qnG>EQ7+$%=^9If_xT57VPKtJu3>_0<wcdIl
zOR7dftA0Rk?w)K<sxPxeR`vL@rpp>{fztq{A{yIkf2KIrN@29=)k!ut^NGzgk6OKf
z`+&av+X3^>^m%Cm!*Zt4R}aV>gg3^~vl<g10T9%#m4df=n!tW`FotDRiQWl0T#<T7
zP^Q5l`f<$m0G-V=*A*s2(kiE9xs&!O@7!MN5dl(CtC|zPf}|8T=z)MguJ9X8$MpLG
z)3j$k{Mq~Z_>xK!mE4h?yQb~oMT72<#~yz7rvqfacQYF`T7|BKVAmi}^g%feO#yg{
z+z2{HeL3G6%Nf=wN$NaNJ=1dQd*(){W~8lsVCIruO`xG{A?&`M7^RGF-_i-vuxj<j
zW>#6YX<9V{A{7%fz-gX3SxB&K%DkKJg_*!PdtyP8p}r-jc*k%coXq<v@A#1HcuueI
zA5s+?>d9_e)vZ|7I$np+w&$4AUf!(XF=%<ui0LMI>|^mTdYu4yN_F37$j9w>_}^+y
zKT`L_*?rs|?#cV5uKH2g+H0K}2_TqfyTm<lVhvV1v8CHpRx+l0!kCaQzTf|Tky6!{
z#Z?k&KYPYcEclSv0lR*v&ZeH$q9Y|}m_&=31D`5YxgEy_V<+yAXLI^|DdP!s`0U3q
ziR()-O_vv?ISuK>frU;hge<CuKf+?x`NFdDjtDhv&O7XzwaUKi9Hq-#V`Vx%V%S_`
z2xGjdH#m$Vqcu4<X}9QVkR^p<e<>7aWZx<_X!f@+bGG%)5X^+LdWu-ARccNasx`GZ
z^(^ze^r5b2++NouNzRb!yl{4v=&6k@tgXNPx%7uzMLf2_cXI!j$LJ9*v3K2+*i)(0
zI<d@65RuF&^)7LOj6a&5@vUgP=~ZR%`K;EVGrk6y1LL+~(Lhn{;E6nRdE*4!e#alX
zEMn(tXfs|!YEG=>EJ>>Jv|MiEqKV9O3T3A91W%{WolauHwgRF@g*nkJnUz|X*k!fV
zZ|%!M^Q~0J=WeJ7zR{lDw~(uTzvs}DhfnqM7{B&?O78VIi}-lMpgWZnW|Y_zuT7Y8
zpm!saV-AYHHlz1^#PZn!wabOG+Qz|1^3Y2T<z^PaR`00AD3(fx_7dDbtsh>Hnu3L+
z_s~nn_9o@oAT9={-e85_<#ff5RqIvo)<{!^PbLR5NIS)h>g`qV;)rL{_pqvC|6~g8
zucr09;ww9JehRl34Z^pWEBIvRzh&5Rbtd|9{emox!R+aV@E<L~oy2`2*`1q|Fq&#(
z!F(@2UEH(~|JaSNj#4q=6J=b;Z<`IYM;Jj+Fp4iMhO$O-&0Brc40~Z__MjJH>F#yO
z*?#EDUF6kK&9W!_h52-dwbL+cjolVe#mt3x7Mb(5`CaA0nQG}|><|xcEl6LXqluq#
z4m8%vYU_xq7}`~C@3aBY;}hi{mx&yQJ%3Q~(N)fopeEjZ2@?=m`DHe~@|k~_mo-Oy
zLglBAPpI{B<crDsx>=>l9{I-9!Fc#4x#^A9`Ni2!mD=B_#rr>^(kM==U}pST753Z5
zMbWp_tO;-sMn*j>CK(ud`h7WJ&j5GbPMfg9nLd%Gck!R=ANSrUw0|Ebne-0h%_vIg
zVt&beCqv%gWJHl!yM}pFcC6ZI%kImThInj1RcVaZr?Tw^C+pHDrE4t2W5*v~`8+P`
zi4*;UHRDmrl*!%nrqW$pc{;{*Y9x%{Y72Q@Q}#mEU~-OOG#SlOifVkd<t-#ju)JS<
z)syRz!$dvxn&|BLs1xBrW1H*9Yr=0Fon$AyBM}5670s6(M>oM?8zV}>0q4i-r^@XL
z)=$4E+@-IQc;MwjZ*d_=OxQ{iv(`IN>BBJk{Vu1_+<;VwSnlquy^*6@j~*I>#12az
zeilZsXkc!taPB6RyW_XLWanSt>ZLoz5Vm6H^RmLJzxG355<E!I#E4p<xNLylDI^8V
zP3rwd@71GvCvQf^X??raow97W`Z+<nR`SS!=Ut0N(JY=;S}aLA0q$jLo>DRAgB|fv
zk_62QhmCst!!IAVw=59HPpAJ$GOLW@j1$W)J#XVW-q@J%swb4Ii%&5xNW5_#SlhE4
zi*$4aYkgoWQ8j=j{~v3FO};7rajS~q;bC`S=lNDP*yi+uBJC1;*gfHS$Hmuq%BskO
ze7(pOEVItXFl`9%8zU1E>*;?CXYfagH0T0`VJv}9%!ItWypsHPTTiPBqF@Cn&LZoP
zhk>0R9@XMf!;uSVeQW($V&*x4CnBPesjm}G>TtQpx(g~yu(SSh*3a<TEVRFaR@aK{
z|0FY;e)UOhbEyw;eOwW|8j4HXKxDqZ_zR;DL+K@kM212sasm#z>M_eKQhs&7qol6R
z`|pQGd=5TS_C-yeZH-Ob{9}zCYlOlpi8_*pXG?MO(`jxmT+Wl<lBo+X)IPK7Ts9$O
zR!xOplp0nu+h**7)YQ~U-V%zgzqcPL47B+ZPrp0!daLXcp~!N){H%~dqcxWzCnu+&
zPiIC(hFHy~IjZD=@~60st8Qkd%!wKJ4;!|xJh-p7nL9461%uJ8O;PppL6_ldI)&m%
zE@PvkiLXy*eT1l=S^k{ztS+mY+T0NFST#QFq;ef~YQvn2n|l3yF+lK;=kqxrY%qGt
zv0`?mZrbHiv1P`1mV$Ik&&at}bi8wCCB=-^cQwtH_G~>bZqDp%!l!k9ZqYx*7{0HC
z8)IlIayAeh%`q2n*hl5kvftU#Bcr3EgDqWte%)hs?Y`tQ=V#k-ez<lsA4Sf=&Z3^#
zutpz2ePG}dt79BMyJi&Il-u0RS#ZdOSYKSAyO|K}`4OeRs)yL`q!Loi5<Q;Zuu1EY
zDfgR6Nx@%P&A!J|6RfsWFzw3AdU%)?6Rsy9RNog}ZPQ07{Q79!XR%MaM3?VYUl|<i
z?35fF97dqdIJ&l1W2J^hHiX>zr)C$!Da`jM`Rz6@wkmEqn$b;;3?bvD{$)3X87>!D
z-QC^IU%!4uzo&zAJNf)1QOvv;Z@WHjxcz*$X{$UYnakwm3qwOcA8YFs69A&Wey**@
zdVRN4_#H##bC7K0;<o^-AN;ycVBCoye$sV_#hr-9N$IAOqn}2M_0VJDI^)RE-roLj
zFx{y~=4JW0sgY5$cV3KOx|GvIWhcOt(RshMtT?p{LFWlAMVjLhPoWG~#Cg5>tY3yp
z@M0tj+Qi7nUk(spR^Ke}c&rlb&S%y6VamjNa)kpJG};Y*meJvEyE@qUyd#ddzSydN
zPp52LY5oHzZT7ddkzjQscTQt+t<w_8uYk?f3|Gm0E4s^xl<!Gdk2-4XN5W&MgwU@-
zw#u7bz8!h?3S7VYT3+Tnvm9oHV;vN}gD`sG-y>7!cQ4RCP19v8M69^6Q6x#Z;N@c9
zYH!-%epFPH#LJg2*|}PehI_t#`(^}U=isQOE$<q`xCUQNYgHgFHWltZcq(i)lq-)p
znf00Xh?TlN<0w+kYU;CypgGyghkZhr85&OV`k-gP8@znet!InTZ~H~JO3(LOCkhJ-
z2ZRI!3U1lfHz2m#(u%<BxJn%Z40b-fIvg--@!pw=YCWC1ygKX`+da5-54LF-_WFOK
z9kl#Wkt>zYw!ai}GQDf}d1bqLAX^YXzIG$sL)V3=RLm8OZr()<0d8hKXs*T2w#d<V
zGC2d6E&zV;tpd^15zUP_>jR`1ZE#!SlDfG%Y<raR+heVt20kEh8o)E-cev`DG8x!p
zQf|#RP;>ry#;NCJ-G1sbD}^1$iq^W0yWA~%WxaAOjh3lGu5(FCzvFVe0H#s%JC2n)
z+YV%7mOM`<JKF~HRB1joQoqXh9YGg#){a1^vWk(xah>aDy*btfa^`JZUAM~Wug5b*
zJjyToT!Z*F+wXE;Ei$DT^OB*`Y_lIVbr6cRq#G*Kq3HsThMs9io-Z%RMG#8V6ciNX
zHa0f8A8-C8r!a>9DD5DUx=N+-p0GH@oX+2vtz~-jt8BRQPG|Y8rttxWBsuZ$sYz3f
zL!88kuoZfyu~|Ss;FwCtWu^nE16a^j+b~t5r*n&0TM*}dP?A~Q%45#)0Nhkzx5Z$<
z;?L%9!2<S=@bBTQSEWBunmF>S@AdP?9FI%gx=PpA2VE>uq*B{i&W$A%6%`Wz{iRZW
z)1CiO%+3P5*5|3IsY2sJVWZQIa016(fe(Mb>FeK582rxZIN8atc@pW=C1iGQ+{9;g
zL@xZ^`FSFn4kANcxv|q0z{+UIw1p<gS>#XVZ!%`phIVV&NngCCx3|Pph^20XZwwdE
zZMWnLJyoRjTYeKGG<Vi_iEeh~M*`E;9s)RuNK}7tn%%7(H+9_sSar&2RJZ-}mW1^+
zHPn3O$dFYM28GhVTe}2QvAX=5E;!&yg}aqs*hJl?S>M#pdhok-Pk8>cMmoQJMwQj?
ze&a^>mB>%bYU!zxnY3mL+9j3Q<D;Yezb{_|O(wssF+Rk^ilHZb50<-(1OcMY1zqlJ
zCUNK!((sr|A8t=p*V{WdC}U3Q+h|_s>kHi*%c|Fq!W_N!->Drpx(xydAS%*{i*ir9
z1Fm@F3ZO-R=WQ^1@YG;%w;;uI$}57#+aS%A)^<yBp6AZ&ppDVk_ZVF17cXAul)JnC
zg0FvxpmiIPr@-uWb5w|X13aN~8aRm2cxKIoJGr`_z@&1~sLD!3##8zAoq)fF|9NZg
zz^Fb&8KsE(vM2{SF8FF`KF1&3=>Lkt5!gj=3t+!-W#7JiGj8(S7>o-#%Ii5K5Szug
z{iYEL9xc{V0m7_6L2mA%K7(Rx3n_}j?7TZWDJjY4ba(#dBt1P{U>cx3uD+H{o!A-b
zEk%Vvm1XOZ-wc_CxEtCEU}YD;5F<Lj<&Q0EKk6ndqXqVZ?q;~R_H_T{{3hi+nzw5m
z#5{l9-7TB)HsBCboEMvZgL+GZ76-Ivwq4mlI8F_azirkwCotKm@(0c?5I<)mt-BK?
z9334~+M5o&XByl%0HrjX8v*XV1yH!ETF!1y?Ti!Pgl?$BytjX4IM+=Q*k-zQ(m-+U
z*~JblN!^?e<SkWMZ%NK_jq`xQ?>#!O5@ntC&7TIWry!h&F377ch}SBW-+ox{EiRF%
zR~J)CZ_DP_Z|Jk5BB?-C#D3Qc??T;<slV0SS7`sVoOf-(zJK47Fl_QR$8q24p;#-A
z@?x0xOZ#zcJ$)ddS?6a{m)qp$)~1U9Hh;uz@({j_1IQk(=4~sV`9Pnp@+r>eC7o?7
zZt2Ul!b!?Z-|rbglSkR6U7B~kx~m|xH7p4X5=K)Dfi$j!`x#gzArVAY$q2*exgCZe
zP8dst_MQOg*teDehxmVFdV#;HV7Nf8W;Pn{2})oj*J(5k^AbJhj@{J%D$NLEf9Kvv
zU{9(kH$ngB<Rc?&_H(OTFYTLT#$)ysca3d0YC(L*4BPan*3;Y0a{gR#eQWF<4~j};
ziU21Fth!<Mg^I8k!JVY+JpZm?%Fe;wu-V+JV*%M>nKX&J-C}XGX;#Rt{j0@gA!oPr
zt5n(h6`1yq*WK9azaed0pPT2Q!GDI(cIMA*aZGizo}ts;b~?|c1y!G~9_i0Fd!erg
zc)&hCQ+4X*;62s#ldq(!?#!IW4V)ydm}zs5>Ih2vXc|CVA|+{@Q}pi?v#wUXne(3c
z@|;~;KAR}Zn3l2RVK)=lpRSUzL}Opl9F{<;sou3SCB9S6Wq3b<F-f{{G-SG&_dGx0
zIXz4}GEoI0S(J6+lgxMrmY|$(ObS377=>?;kdKub!UR(e`JW7RnP{YYSy2zoHO#Rp
zv3yAzD12FdGyocCaxVezf_rgrAVN^G&=P4W6t=mn`xjV(ZorB*6!B={kuO8uxfL=C
zIUh=tBFYL&Xi@>>R)p@Z+ST(oaKp4Kw7BrkI@kH4#!|JBILPJVEJj$XLL(zeB~(9G
zgG`f%A6fx940UCBkanwK<9@IZSYJNphjg$ksp;GgclJLL>Mz1xdYS!=TZ|3n8#MTN
z00738f<;~b<ifL)9%(2t6$7C~ziO12t(^MWJzh^e6Kq{|C$rg7?ItNktt0A1Hsi6t
zN@_^8$b&O4@GM61;+4m}h3iE`@qBrQqrPP2X{>y6>dq38M)2v%%D1Q&nT*FGEAE61
z5<ZMHA&jtJx?BRNk<f1Ooy#P4VgURv#tz6&A(ZWeGIeplW|T#k>KzYjnwwr}DJAGa
z09>+%)h|COlfGkwF=+$4&-9*}H%wp!;QZ(g1FDi^Hs)J(n?sTr*}(t)p=OdN=-C!H
z0_+cA2=NJR0|nzyl6_D~$j{|Sq1-z`enWCe)9kUClfbEYBH}ZdV4DKn1vmkB_q1e5
zanA7JWN^H_M<`KLBBc8fbUQI`Rv6V<{*LX~PYjyzps_a?)DvY~sCxpCcNedP_VR`h
zE`4;Vfi$_F91;Pg>mPEFGq<*dCSv{Vh?s30`f=&1&i*3tAbH@*)uGFSPaO-*p&Y7B
zbPLQlG7`z1d-EF<{2_=4WXf8Zxt6CP_?x(&Q)M$>m;FUmmn{*EK`GXidfR3=(?B1q
zvZ1zy4)8??$`v`fenW)}TR%l0hhSJtFl`@z6D{{9$RENQc${QPXX!{Il@jt@bh+?_
zowb1Tp9I}IEACW)r}(#7&417Cq(zuev!NrQeYrOg&{K#l<OK}-R$SH;tN_wIkIxUz
zIQN2)Y)Aqm7AkjH_7h{tS$Bbr2+0|1<-G=yVg|;gB;+TgG3q;{dy+z!U9p)6Jm4*&
zUGhmGu2>|$uy8&l+Hf`fVpZ(HQ`6&S%jC358VA9Le)iAqI=MJpT~3`Qo0|3V7FYu7
ziQh3G!I+W<RzxDGLXPh~U6Vq#Q|}Oh(nZO$bg}*lU<jL+x5Q{_N9sDFwC8&D=hhat
zvW@VM3b9&xiUXzg8%g|wYFHK5(y1s@F&!`?D6@G|7C`A!&>Ey3st6qkl?%lU)qoOF
z81%cF+r)Z{ff$+|6pjiQIcfKJ(^0-m{H`~C+K=hlJdSt<ABl<9*7J~))9U`%B-fY;
zl_Z+D>q|aye}e3cYw+F`sjyVzAYd~Hzy)!$7#~yDbMWvxj2j=k2YUDlD+wVUhRL^4
z!z;pF1d9`<on!g`$e#W;J3S}e>q734{&M53w1^A`bh&uIgpxt30;K#QttQm@jNJFp
znGhUnu#GC>Ust=33P_<4xzH7)8nS%nXxwlMY6}47g&fGWC}^@U09qAazh<3qBJU#g
zL+OYeI?TYyka^rf(6M|}0g3OOGYFg#jz^F0N=k64h@I&65bhG|%@8W(Eum^%y@1@D
zcF-pGCreJ_a<p^Vs5ke**sJXoSthc;Rtj6OjIp<|Gojm9#^4z$0V$|2-b6js;!FG)
zvOqyF!oWPZEn0Gt8v0@VwOw~%RMZaL&1ioH0b1WM@gPXRmEJ6PHEBqmO*Nrg6Cu|%
zk2?pI#8t(r1G(TNgQG)xLIRsaBtz;$I8=D30pG}MMsNm0xgXG3x>Vqp6r)>^faCf8
zi97UxJG!hy$?g71%NItNggioSa2jORZRbs0X?6OJ0j514Ux9PQVLtG|<`g<$K?>v$
zDhGc<ge+#|di#*6=(~yu`3QP52;wdL#`Q|(VG*fAX98o%-2<982t411XM%h87D{vv
zLo|GX0WgnU03A7)LwG1BKn7U7-13^hXWr+e@H-O(6WHr1LoUko@{BNTx_EAIFvZ#Z
zJ)QRI96(hcmsODSk6ZG5)FLfEGL{Vd@gYB&NstHPFWo0@uo<E1lNK^xc&8%3IvHRG
z;|e=Oe}-ME(fI$8Ztm-C3>f{rECw(#p$X=X?@NUeL-q~bNQ7*<!~p(C^0662lDL7u
zmsD89p)O(1P8pUkiVaBX6?V7sT6xRpqbXMZI{Guf@g0CwT49vj(ke$LldTKDyh4C@
z^<cBuAR)4Bf<Q*NqtI_)6BQ}Dg87k1Iy?%CW87?9J>qPl+r@!}OrhHvzT^vbC<)Y#
z_N|X}P2mR9!O(J}rw>G8?^nv8C)h!t`(3y90<i5V99`O>@{4CVk(iq72tWb9dwd9e
z8NZxlTnAt^;6I!vaLd$aSicLL$k`*wk*A?Lc{Tv7l;;jeoofEeM+*`^ew{d@($`O)
zn~Qzsy0|e!1tSTt6Zzin-TCFD;KPJ;5scp(j<$S>_mtZ`E#V@ZAmlj8c-66HZkYXm
z1?6Ol8w*uubEoDDRl|$;tPgdx+DXTw2qm{9k`0)20*lX1f|^I(U;mw-a@V}6Ryf_&
zH~Vm)$1nH-<8%JC4N={+Fac1$#I=O>`&`X&-MqJ5RkzXkMTWq)`Ly8s3yq{v0DfsZ
z?D!hL)8`1>0^Y)Z9jAoe#gAxe(-7VjBWY+ty3@w|(-yQ7XY)zFa!mw{e7TI_>OYY5
z`Q;FMvDPc=^OCV7M%T-0rH&#~;46mf?qO#I+HAj5g6NDo@*bc__RnV9!DM?pd*?3i
zmkd$SVI95x3VrHWb59r-Gny<?0aIr-gK!<IP}qRzSQs&2>A)j^YvUX1A}DPGm1&RL
z3_%o_sOtU+0@WOSA2`blR6t-|lAs99>CA;IDHhHLn?Y}_=m6%(0N_)Bn<3mk(=k{L
zAK(Sw0pjEb2%z#pQh3u_Apzx=?ZD)&e^Nqj<dxdpaG^J71RVGqD!_0gX?^cCMD6Xx
zWZ~<x?3%m*628s90O?Lcs={npT|rMFt0_-_l<sx&i3{Hp&e<LK1Nw8c%m&>cU=S66
zLC`5R?5x93%f*w*?HPcW+7tl5<6vCkIn$3p??$7Mk7j8Sfegt6fh8WLx%6&N?+Kpk
zb07qpByxl26?`QgOY_A;VzFFyR#Snsj}J_+B|h%O&h3IQp=+V!$RcIp6yWPG5m+ra
z6FKm^!*=b?FxP*{6o7w5ZtiGq0e}aSPuQj2yF?<jv7Z3dL;_%{*jM)_s11nBWLRO^
zLx4GA-WFr#t81o9{r`!_ZLXpcQl?D(4|MC~26t_)Zsgb?09f4iyVmzWIp`B0W81Vk
z$bza5<F$Jf>mV6?sS+7WQo3G1=icpcp{l~xq<-JT?Su=jb_M~d5dJpd2V7HJ@6B)v
z<%GmkCjk^oNLSU(P4^j5rT)jI3I3By#V{7Q1PP`s1}=XRik)~!VlEr&-3&PteUx(%
zB7@=3C@w91XjpoXuEYQLZ&~Xj1CvtTzg|h0%N%2^G)isYLb|<^Y3pnD$~pt<lh*<Q
zM#ta23YVtJ*YVe?x*Aun?pr2L&VFY?1**`>8~KwY1WkFG??Nt3VCas&yGwU+#ls29
z8dq^CVy8bFtf(O{E2lZHgNDpPCV#Q(nCOexq5c|WAH7@n#lG8jNo!o^K1X%Bl=u3s
zo|cx|pFe>t#?5nebX>}QG2is|#{%0fZI{voa#)o^nY7i{LVlCYiM3?zofOotw_82C
zyYFz+#Vjve|I}IlF8u<tM#wtHiEg``HagajXe+i`DG~mPLs(2#wWb)YH`m^V3GD0k
zbG={Ig0O6LmV92d+A(#SatJKKp=?+HByndpsO9z3w~uzzK?tp>TMC;3Il#c55p;_0
zI#74^+;^vg533>)@=c3a7=iryHO+ripZ}>4{eLiIJ;iEyya574B76bEC2k}v?i~(*
zn%^133TVwI0jx9z$d!Xh&iM8+KCIe;;=nOXasNt9eedltn2Ya8e3o>W!<rcnbteR?
z4-C05penKmG!yP<@mWr6l<2OM{CZm5XutE9KxOX6>sgQP0We_&1cCDbyAYfLBJ#@3
zjL5yNKBv~4E?H+RkuK@}im4M>```u@nr&cRX_eZtUcEkAYlbqTObd-k;Zt{!*<pvR
zYfy~nL@-(96UFAg$j|)|%&>PQ+h%erA=kgyz7;mHt`uJ-8bQM2pI1Q9kUACN2S8Mj
z7hy)#VEY1jbV&;P=_OEkZYKTjCoTW!(B<Dg>}CVUK~A9I&u@INxgaMn_Q(GyIvG(K
zAdgUPC|{^th#BZ^$W|!Br#q?%`RLnn=p#ocO{ia3`d%~AP8M=40Vmqa$bSQ*+7kef
zaoDDDLEND9(05fg%|PaAfoudyO04UNNf1+ss*}zOvGw`C9pU9%dZCUft!)lFQB6eT
z-^9rQB=?{|UN=2-;|k&&+6_XMLVC_kj=EMK0zCt0Vm|LP_)qi_mDEwKj^I<h&>NAZ
zH{;{w#T<HW?3zHnd(8}&-M(3#*tH7rP^O9ns^4!wVYv&D0=f>g=Fa$5fG?U(QXvqg
z`&4loAMkH0eAD0m`9$mA4(@+d<>yS&J&-wtxm~jNWuoAH0BL=obl(X%4W$aL5B1=k
zlG6TXK7LF5bMPKMitRH_>K#=`Kh8^0&HnJPSJ{2B$OEpQtVzwv?XPuvX|~9beDY5<
zw1E!Bo+OfFX!kYh70Lkxu!=CTnypel)_WRK4fw-RGAG1J>JK7nKa@?0CHYzO<#oOH
zP=WwM^o#6#J;3yH9%o*fkYZfH{kY|zAeo73?w=z=EE!fIBw0jS?7?)CHU=1L+g<Um
z1}hS0>lv=xFTWQW{DMWXrFbCcU(FsOKonpPwj5z57<-gE%!wP6vSN2C@wqOn3dpo}
z0A4`(SMBS+|Es7^yk$Dye}(7&cf9y-SH^2)h@{}HUturIP6*k(y~!~ls)T(5^rQ%y
z<TrK7QJEPBjaad(=iHN3d;?fyGteZ;#tOJ=w`nQD4UG|*3M4fc`E~Hm9U?*FtM)!#
zq1G)Ff!`<ZJskRSTSzejjSgRBu^kO|*lp8E3DB;`lzp%*EH|F9<T-$XO2TN-f3MK}
zA9bMq(-QyQW)vf82-z$$#ra{1Vvz?mL%kCYZbO?JgG%k3ULr2#23r3DEj`2G$~v54
zl^e6^;qR!-n=99aknX5(%fz<2f`ac=k@Z$Fn>l7L^|gB43^eBlSJz=yDu)?40iK--
z<ZS8DT0tgO9>L~@r9+oGYc16W=<x>#{SOCVN~84Y%qfHKH9>v-Ip={xg+sYajt(I&
zHf|g@sn&we->^Iw9n~%8R5&LfP{WJ~*8Kc!aXg>%Qd4W$&8}Kiu%5r|Jf|YqgJ)3t
z!vU3k8Jeht&aq~@&uq4Bc?b8Vrtsm)i0s#bs{KCSybC53svD27ck&qufRi$V1`xZB
zOx3y$G#yO&=)8Cl^NY33dS`00uvTq<$7*)5DBIaD_#`-5kT8Zrf9%(dkdPqP)qo+z
z3HQr$FOExS&&Z7qC#Q;O^NxPB>CIovvHT-x9S>`d&H%jyF5DmmVWP~r%Ayd05ULP5
z#{2(B(wO!*+iA7$YSIOcgXbfs0Nyy}ClEf4{#PeYz5cdI``>s<j1Yx}uY2evpAZ;I
z79~AxYG0;`phs%pyXIX8Ra)80aZJPl#g5xGctUclywy*a@ZcBG0%k&rrKR#3-#kYf
zNB{Fl=Yr@|Iqu5Y@X<-<7nah2^MCx@;oOq22-J(r!p@vk7fM2En=he>igdombm$;U
z!X|`pA3)_)sPvlILpef@L+_Z258~bHT`!OKOAM1;l%ksm+nXBf!=oySQKqsnefOb*
z(fo8cLa$ObCC~SCrB1S5h!B{b%hQm1{MZm*`0WWr_&&0l>3u;p?{5oXi<PqX0?l`X
zOA=+ghWX9wKiItM&2#_AdEJl$&f(H}nw2C%_z7=IS|h<#GV$^vGnqCbyGe5G<(U8Q
z#Y}nBiI^5eU`!?Q^!|o*F4I^k{sdpBfoLuz(18`$kQOazJrjED6rasy_?#xik(w53
zGo%e<r9z{NTPsBOy8VKhE+V@@@-)oa#QJk<YZZ7|D)R*)u<;(`eprVL6+|UuK3TXt
zR*B>!mHW?dIm`C5wdfnqcARQ#;TAw(O@v!WJf1hM9+_a}N^z^(I{ubNo!dIwmIr;$
zYYl^(yEX(3{xrb7)uqa!@q|-U!cmn~=OS<d9;u=C2hF6#xIu}YkFyfFuS=xK>FrIF
z&uROeU1|BrxIj%L!j-zf0{%;bWMgYiOM^ONYuVpRDPr&&`~&YcNNzk9wE*vlw98ZB
zLg*m0>ioGg2*rjs2lu9EZMN9%M7CiYU|l^F&VTOa^;~gPhR>prUFh8hxyFitMnLCf
z11pG9iX{AoOD8NR>?;-ksReU$VvBQO;t7f~t6UOmp^rQ<8eeRg=L7cj!Dd(&@;5@D
zekNmM9rY=y2p#-2MjfO&(36Q!eq;{5V;I{V7}zgFxPp*8O$4A^G-$`zaSj!M&tw&Z
zD2Vl<+>>0X6-XXji=y<}1H)E;yPD9<Q*$}zUB!X)hpe!jUqn1$-&nYk8zo#d(#lDL
zeyNg(=Pew4%8e{9AgD5V_W_!CdNDI6d=z%v*lOK6Gj99eGMfKtSo!Y!R1b%{g4(bG
z=oOn~kZ+|W;2<7QgV06rE0zd-<@3%mAz@14;^!SrWCm@|JG8kqKYD_+#b|LTa|gu2
zmg`&<ga$wiQ*1?F?>^HV_BM$m+C4<(N#C%J4S+}TZrV25dG0<cviu|DQox@_6>fxY
zOen6s?C#M>dS(+DUSNvEDs>+xIuq6;_y9&gjlls@V|~8nZunMFM6O0CDWInjOeIU|
z*fnfs8=<8PBdF&PQ)=9nD^3#hlAE0D#ZrH~9RSmgI~6h?|6ubLAK&HGk(8;U7_Dzw
z{B!2vrcdX0$|621k~$b0Ek9g^qXv-fC_&lpH<qP=uYGlLh12cI3V_-Sq(|yaJFJc!
z8-p1jcePRT#Dn8%Qq)q>ISNsoIgMTgqWq=5Mla#OgZXJWLg&GGyxr+)!apycR^Aup
zjye?5%GAND)eNCTP1%W?;Sfe9d0<;K2`F?-7iFQBI)ZR~C4M)|;cd@#`HGE5AYZi;
z<}n`oPLjf#&cQ>w8)5m+-c(l6sw%x&3hm2t8OHY|lU1``67R@V7p^e|Z!0O?G3&L<
zQP&;^`~R9UA&HJIp7(`Fa<XT5FUAl-Q6ebDcAQ`pS=om)RP{#qYdM$DxFNxPPw$yw
zc08Dyx5A-*NRE65^}QB+RfbI5vL~aGM6peQcxP?J=dY1u$djt?HY0*R>c=r0NE0NI
zdI^84e=YXsbQ&6rfCO-As1D<bW0hrZ3XG}U=R~rb6AY>r)AU8x=12=`Gz;x{$GQtW
z9*y6P?e@h#v(FYzxA%X~cNi?W^D9FzJzgn@HVMPN2Sx1}2&I6&<$ZU7bXv0&<t-(T
z-4j<Y#wY5t^RegeB}Z1^3m{MNYA20CCGhYao$l*1d^rgufg5-743Ct>qk%ipRojdO
zBQ4Q(EhZa5Y-Nfz`7Nr*%@RSYS&yV$ur0BJLK`z<@!6M&EqtoMfHh%2D8VJuZSDNV
zS_;>xi?DS28I>A|FogJtzrf@`iMQv>3Crl29+^Y;5?<|4L+=7t6vp*&X2(3wMd=e`
znmN!_5)V-|Tg@etpCztuw3p+bcR#0-&=Co}BA&<6%;v|>--c*>chQENQ7p8~?uU7}
z?RR`5%e_fkBU^d^7PID`E+6^W{&Fgtg*t0U(yYZ^<@?VX&OHTOtBpSmWw<kh)bgow
zf5SGiwr1QVcS#6qi5N4d%a~O^aa(()Y?`0$n5>^@$Z|F$c0#xleN#8T0K0{;<E=^E
zJQv1l=E=j1g?S_;g~fP47iLVRc+I8SlSXmlXCdv_f*VuoW1c&ib7poD8VziFF@!%e
zPPpjV0wtsDbx_k`mvLgb3`=@y6Mn_fmeWKN1#df4GBh4W43IgjvY{AiS`F-J%LHa*
zo49{UXw4KH8MezCX*UDQ<7d+|7QGAOumT$G&ob?~76d;F<+<QOg={@_G?ZS?vyA3e
z1BVY8aP;n-_IG+&UJANn%I$x<guHl6@$lgg_``+DZMwYq#(t|co%IGzoO0&T?-Zn5
z#FvUJ;VIt4^pX86qd!OVDT)Fk;7L9g?CU3h3`=1QcM7KZorz`?g>`Q`_})(o{7J`5
k7!Qfb{_nlsXdXtYzQJV5Y}w!L_P?KC^6JmaWzFCGFRla6EC2ui

literal 13456
zcmc(`2T)Ycw=O!vkVXWQAXy{}NKS)95rHA+oE6DA44FX?lq?wp5s;j7h7klLNX{9N
zoP%VByZQakIq$sts&3V(Q}3QB_TD``z4z{3>sxDmy}J3Rsw|6tkMbS}1j2{QNvnfE
z;HA3*7aOSY8*5DfF4*P@veLj6_*}ef3IHxpCpkS=5D1Ux?f{R>`(J}VPe5?#7n+`F
zyYq-NYWJJ-!^woX978!4MoBArCi1`stmaSO@nd}p$9=akSoT$J92fV4sHEDE>64Lf
zxKE#iWs#_zud&M!W@6qC`4SuxBgMJvg1EX`;p_WlUpsH%Xt}@l*H`qkLS&b3KP5fo
z%s2NPBRuxM{kQ6hJ%lMrWP4^hw&z3htf;EPJwZNPmaSpy8zg4TdR#JNBQDWlZ=-R3
zdbv?Pr;{PU(0&9g$5zl1M<A*0JlCYDa^}1wXli!SKtTR^c+el!A<4i^SpSGTeRz-|
z_+^#^)<EQ?4;hSV>Ono0?!9IV>J+A^7HFuJ1m+rs2J#_Iaunr~uPON8k&|}RaurP@
z$J@tmC_&963GOtiT3>JXrEkPzhS6d9H#KU<HEOQJ<&>VJ^_aS4k{1uw?1`ORis#>}
zHTm#fa=i6Nyls_>4O5k!`YD7Fge#Jk9T*-Ms3x(9qmF8k6f5`QSLEYn)}Cm~LTf{)
zARSq2B<0EF&WoZGoZ>s1YE8D;$$|`wk*jLLo#z&sU1Dl!vt3<(%X9;7BW9GgP@+Gn
zOS!nkY&e-OFzg<LTdIzgKGLPAndRx@u0efNJJaFqiW8;*mA%?+eQb+x9@`tN@aXK{
zH(w8DEFkWBAoznlkVE(Cg9^kRz7kh)Iw`a3Pivc`jH>IJ;fR>I5uGSywK;pA?<HwR
zP1SYT#AkDsO`pqP+(l4vdZq>glcnOMbQnQIA72?M9x3@equfi*_nOT2dhx~O_voWV
z>z*WJ+aueg6l8e%V&?!^L0|n)0n2BcV*0TSG+y<C*dIK>!Q~dkiwN_!jE}8^1L|u<
z6^ja0)e5f`1%?s6)Q-a*=K_Ao-oBY1pD=!~a~9Y7QT~4IMXn<e(fT6Naad5Sv;Ns7
z+Tp~{rP!}AEt=S7eE-2(hx*KYP8ZP&b2blugj=f|lO=|>N^OXf^8WMo21(>RQUnRH
zYRgnwJx?zX=-W@!ZR(FiG<%UR4_O+Gwcdk09jvcp6&$FRI({-5yWt~Y`kA2X^nuxz
zo%_D`VRSYD1}9=4oboT;NV$~doqwYu%g9S1i+v>0Ci2|mTPz>AD9?xH9NTO~0yp_l
z&0>O+9H0Hl)c%Rt!j(KX`nJp8akhuoIQnMc>8Vd1!Tk)|$8RnvoWPmbxBTUBoZp7{
zhO{@WTx=`OOD*~H-PW^fqLNdAQ(qygc?h@5?wQEGjXZ|qCWhlzY{JCl-j&$x<ERd3
zO$KRjDq(O(WFM~1Fh-he{l44F_V+JJ;@9XN^kr3onMbu(sP0oM<hzrO$mJJ+uaT<T
zSLD-#pDfw<33+RX28xUo<lF`!4B_M|GvmW&+QVlS6%JMAZFMY)-Apu3uQE5T9<<lm
z8Z4nA{KL{0Y0|mWds2|&aRNjRuP%fS#FyEoY}!L$eog(+xF79;@^2|n`$#2glVd}&
zqz44HoZz(w13n8fa*tFV>2=j*xtvD#!oE0#tI&1!2Pv{H1t8lV5KX#;NoZbU*b6K?
znu%o&-dqTe8KY$|v~t(@v??W6TnEZvPFoa1I%VqSny(=&*TVnhX`c7@?dJ5x?1!z%
z>#DGeiQjpktz@nTdmruS4Zn^M??QG)dd$wUZ{qU9ScMk3(`yLr>z-I7O58tp`PiK|
zLLqO_Z0`KT9szRG=I9jbQ4;nfbvxsIci{PhFz}XXE?X~*ly#Ti6nFVMmXU?g$_=x<
zijWQckGY4l#9!WxQ4kW9;_k^cT!d^E??QFJmh89pm-aRgV!P{F#LG7O=Oq&E)oqKy
zv%HBOln0-6T}hYKKH=f&2;^P;qP8Tq-6zp}XuMR8Tc1&D$-n=~)2ltMdLA8LWP<E~
z9{W-5(u$>6gUlAFr9B1RYP~c{Uv4H;&X=&xDTt&Tm!~+rzZfFw9=Fx(efPE921?bC
z@xTFkfx-Rh^sKV9NUK_G=PN_>lbsLlkqCOTjx_)FVJ;Ea^#BTIn;Y$t^!ZmX^-3YV
z=#II2@jR{dXC3$8TLIS&1FEZm+K8M!aRS|pgL4^NmEKDj-JxGptqxsow>!-;7LI$h
z7(ToGeY0*e*s}K5@N9JHleraNYI{f3-U+T?M*UZwu%5}lqRRfbdYhRqAF!s^l{kZN
z9ly)#k2t>>=xD1vZJAP!<_kPn`=WSAxvJXk_lfX<ae@%f1lp#(*99w+xhh7r1K#Gb
z|F|7HAG#qs+Y*y<6P0EEQYcWB;e9z+q0M}cuv)BS!*k|KPm@BTXBmC-M=MUckEFcp
zvR97M7W`lznO#AaW*H{|r<Y?6oK8<OC-{YJ>NpOh`O^<|pbH99<y>L8`<(3|c~dSQ
z@m-xsW<{kcdzlRyR*>t+i|UpoI{yrtMqgZ6E`RE6Z57XI^EtU03F>T4ZR1jl`=+)_
zp(rwIpR|=n)d6}^xjiI0B9zLWzgB8db+30bOn2p_8W$C*AZ=0pgPi7R(`)#DjF}y?
z?Qf>;o!>K~`K&zqQZ`I)FoekC8Smt<`D8{v>?e`JTk7fF$8xh#inY9y$Tr!IXM?;M
zBNLF){!yc?hXhQb!E_qFuPEg`c~GGCd;CGFvlQ~4*!!UNkP|j3drRV(fxp_rXw^Ru
zuS>Ca<(b!F(;0rv40O(Z5ixRG$3H|E!fc-`r#D}m<k_!`N>7<e=9A7TUZu`^2jiPu
z!eynMpRw4P+Tc<pn+?11OYiPQ<kp2bk$Z^DoSyG*N;cF~nEl?$-b<-W5Q*m=#32&Q
zQX%$;8WE99StZQ5k*WD|dTfh*LF`m&5n+|A@*wtF;`OeClBe4$AvBa}B@B)l4^BP$
znqSOdKEIb$Qky>QIHTI0IYbB*3GM6^bR1c=FklWHs$HoUHj~XuET6j;5VXtu`)u-g
zs<ze5$L>$;iJsKXhm|YaX0^Ph3_EtD&!0)eoQkAvfe2q9XkDQ_Ut>go)2DJW2}YX$
z*)f0H_R-)}sL#aau{G;Vn-x;@2K}kL-B@bYtm*lZM?2kGUY2ehBzFWIV^!*zG>p!{
zW+4`gI81-X6Wrmr`7&g4ojyQrDt}(uV0TAy#^%W;`Do4At@MgM{*J=b(6cAase5wm
z*v{mcj}F!OuesY@Bf~lBgasAFmfs)XWpDPU4L1Cq&u|*B*W>4UL^QCRyEqZgDPa$_
zugR(wd40Scr)GGFsVxip3u;KJploLcSrRSyiAL0}Zt*P9w|8A*Kliwi6fkQwl7uDI
zC!Y?6EF^Q!PhTn-NP7lvBnGo2yGyS%f2<ocWHzwATI>R^OV5)%L^rt+aa4cl?29hT
z?ktr!gdKIpMg>t@Xnc*hWf(&TC`|G6S&-QGWk3IkIp?RyLj9ITVTyg1kUBl5tpk_p
zx)rq!r4q368Q3khs<&xxXd>jp`_MDKe+C^~X-TfdA9O%v2dB>EWszGFeJM)2=t`|W
z?_%^P*z;}=Svjuon0>YKGaiF8vdi6!ztz9kPi-I(C6To#5FDu_Aw{&OGHc+fO-!WM
zEYnJAFEC`@8%gMjVfIoatenT^LyZM{T}XMH+ACPGc$_MGYKoe_KKlXoZk*}cN)ze&
zA!{qmz2#uM&ri;H1p`(2OyF`KR&b;D=Ryv=+uYi+txOF1Sd2d3u+kmAgt_^uYj!aQ
zAJ3HtU%rp|D#UPo`zzR@jG=ND*P>R1D~_Yuh(s{1d?znjQFAykKU{CHvgF?dR>?e}
zQd_xFnNabr{0ptD?xbwYJi3}gV(SU9(^*A`Q|ks%d+#Clu28GB%0s~eN3i8^t2Wfk
z;tHv1&=^|&ZaubSF&$SRMmGD1E9}xQ#K~$Kvc#v>q!+x79?0CKo@h*#oZ?fV6;y27
z+e7DHv;|*`D#Cm((l^dr+GQ-LGiC7TD#VEXA_&aTf)5E=9xAQ(RXFcU=Ub2&IQS;t
zLL4Gn5t)7^0vrYnXCO;r8+qA>f*)3pLVUf^R}{O0uW4UivHNXjRX(PFCfhXRVc}Y8
zu@iv1ZaG@hNf$hG`K%q=6M8^z#$u(HXx;Z#M5@v+vUYYsn|Oe=O$pX}6e)TmrCZtx
zPc}KjFbSI>b0r|3_#$-S@t6_{f9h9rLfw8lq<H$5d(k`5o`%B%FwP3CF_lc+$^@FE
zl8EeV=V#$v4cvWBHNokDSbB}{mI2ix6A}h^;e!bz)Bkab;2kNo@4cg@UNA;i9dMS*
zSb#9l)zT8+`1o+$N6An{GYG01JH}j*w$w+?2$x3!-@aic1JC@AqKMh$$tFZa^zg^v
zpY6Pgii)?<VyCc1L!N@`N)DX)!+;E)*D@XcSGx$gw^!3umS?lBgJRK&^tpTAhE7oy
zQVl1yMPI8L(U;rZ&9~^Qn<{q^^!du-lvQ@5cK58`y2#?iHSO(rcN6##r{R?4pP!%V
zKqvc)0n2cfbhl%!fQvp$N=iz7;Lz?*=E+`;%ea2?+I!0IhKy=^XS(XjZ`ao3>N-1G
z+*`*oSF2&wfFMd_uU@Dtf+7wfoD6gREo3>6=A~78OY=1+Cua)@A%MBfR9k1z@>>nf
zQ8_j{AHBe#ss6g1`?Riq^=X2<#XN<hz5VWxvbTz^_@ssK&%d;1Yrrs4kb&U?&sUnc
z9QdnM-d?SXTNQudvm6-L$W`>>oiDw6cFWlUm4NU0fxxDRfn7zXM%CM2jYqq6i=~Sm
zv-V~6JC%K3wkOL>wkx_HU(J!~7*=%r5?Z_tICOFSYob_ucT2A!Rh^EBU(Ibn-j~MP
z4nhfEl|zlTy^d27iN>X!<0zPEzkc8MDlX1q|Mhf4Y3o|5?GYyq2M5PEr~!Sph(4{O
z8b}vGj5T{5qZcbJ`fQk$Qmbcy0iMX|C~FvAOAORemxPzH)uj!H?#~^E_<OI{BnDZO
z{VMgk+N~@5^4xukc+(@L??vfty$~01?=LY5Q>VqtHN3icE6KI><7}MC+S=N|aA4p&
zZQrq}`XlR#3JYzpHWu3gY~9`6U6quS?wPg+L&M(=q&0Z0oxA)EXos>WQgfT4#>_fG
zZca{T9cl3ox~Lpa<~>&;2g?cy8d_>=PbbdlzV<tWKK9<|0k9wuRRGkl+_i1-Jp4VA
znwlzNV`Jm6Xdccn;CnWY*tYCX9_IGHK93Vz^gVXHJlntB&bYl^H^6v9U~rT&hku`9
ztnMO~uM7X@HFfi#jGuaeW>e_I8v}w7mz#Zje0*D(=*MD?KV#^Az3z(8^P9D=6XUg?
zsiu>qcK*@2=`T3%HoD(2b8Fvtb=XbYCj0Vb$GCui0K(A!V%4C1rten-1s|oylv!w5
zGzH(<92kPF*mC|mye{zc_OQ(VZ_%&cp+xJ08EyV=Z=I(Tf7$)+vn;jXn01rp$!Olp
z{j5CWwVtl>Q`_V1{n1<{D&D(+fJ&Q>dO1dpc_vTDib^vxy|P!LC}S=tD*Kdc-X{jx
z-SV950Wj2q?0ub>m?#83n$7dYdR5{^Mn)~RYzc*}2km%Vg+)aQ;IXl>H)4iyCAShc
zn<@+@0XKh#kJkq!EWW?P@;jZeEgJ<acuFBpIlXcGI}Yvj(x0BV07DIpxKuG8k2bfI
zlzC&{!%pxWn$|nd%nkJQTgOI5)ZKpxOxk&`rC9EvgMgcQgcdwse_qcBKsO86PH64}
zptel+T1z2Ybe}X5dP7h&2e=1o0F`$rMgtvvy9d~ZEJneovWWdm4Bg9#Z?*$!4Fct-
z0eDV;N*%fVE>G+MZT=b^5h%6m`vtW28Q(5z6F==FGr2ZaP*4~@KV0Dw-!86dCA*Eb
z9Q-oBKOnMyZPo19da)*$a+BAzsxNrl|2ew%S8cJy=O_xkxBShAT~x14JeS|^TR#5%
zi?rjjW2@I@FqHT$fV51U{xo6NZ5?B;RkBTVl~O>3Y|3+bSK*(hw6rci>Gsb~Eu^MX
zkRn!}?Q8YK9T%ECe0&TX8dlpZf2F#w(xMMSKdq;^4(M>!FTG0wfAPQE{QkN-%1^8+
z!tO@m`k>?W<ACeKm)L}luitC3Y0b~f=vTR{_HI=Tiu<h5g;KkWO;x-`Oj~C7q5Up5
z^V;G$S*m6MyT5dCcmFF(71S9{Ho4chU7FYbMa(BJF)>kmr8_#{fu~D14dNQ%&5%?Y
zdA2#qLQ1QBVev0qgW{N#E(gEC<Itmkz69R(C({}O%GdZHMkMIBz;WDmGY)|B1n`xO
zhk$oIQN1ol)ULk$yEQ&O>)3W9dwa+te)!SS7yvmKun~?1^ordLAqDR@;YpZwsiB^c
zqEz2MlFeW2u4G#D<uUYHO;Ew7<lhhiyx@h|bJo?=FX<jL)_R$qB5boRF&DHdX|O}0
zB&fv--3GxOHY3S-e%}Bi3#dMhT_~saKVLo;nse$v?6qF);e#C7ZccYq#Qu(LrdYh$
z4ggRQfB>*s@6!{@)LmCy?aP`VPcvR-(l)W&5nAT8Q_=0<bFrFK=6y0O%hG%@q5v6P
zedFP?TQiCMOt12dYU33E?K(;!hq=DKBrXa6BjD>u=;#W&p_Z2J;P&>m!Ab{Pn_b@v
z{nFc;2?NLZgTkWHnP$M3+YF=$y94*o&fUEYfQUsApn<}F42p`1Dik$yyQ`rhR<p3z
zw2$87sGF<QdHs4tHhQ41c5ZBPvhL0pGxY17%rY*H*U!8*bCNu$MLc$nd~cm=(Z`Y5
zQ~36^cMbtGHZf8AhmA$&zR7tz8G+c@oNItL(E4!;0F~%k%ZuE+c-|zy`VX^Sg<sYy
zKBXe&E~oD-6w7V7e6eP^wT-78LC#}dLV8BlcHU_+09%PLs!DJl*V4K9+k8AA(s&oJ
z4}W(CN&GEP@k@4`+eAkTuO)ji$VM6RyZrgdIzB$$M#W?PBL`%1dpU_H0{m{a<6>(a
zFo?35x1a6B8^d_3W&?2^*E>yDT5RVGuH2!ziq`ATr$Iq}{<-s^mxQZggtgOeKbM3N
z8qB3_>m`;cmdssz2$lGGZRp--+ZS#`aCEbO=UJP5_FE8F{x_HN{2n_~8MM9!-ved<
zx<FRahQ8b%pPXFewdjqX2V(sr!1?Y1=AK03+Rt-bJLl3T6iP@dF5uV7HR)2d972Ug
z%+))u+gJ85>twj}veumfkyQXqyBKhLL-pfz-$X#8L8&w7K7dU!H`UrrIfSjXbphpb
zw~f{5ke&!L00{>7sbNl?SY(C=M;1v&9^32UXARj$N-Cw5d|Cn}dKbOI64y_TkI^QN
z4S9f|-qnv@>3dOo>j^Lvr55WH)kE*u*%*S3B%b`x&vz6Eu;iBgmxN*`-KErnMP;os
zw^`wwGZz3Gc{;1r)cJJs1i>;8*ZfFZON*)Uz5yh0jMc!g<!_k0LaRE$93P-zpY<S#
zj0HkGV1?Lt5OFyp9LjxHL@t~%7S|opKZC1(ZXUFW`6o@YT^PFuc?_k-+QGh$^9URb
zL4fs4u9)HK2rX7Jvt1wwdxBF6VFqgiilgvQKmJI?F&3<QL&@W^XP=sCQ@sAfSTL!J
zJGQ!^9i&qLkM&NLZ(y=~a=^3%H)V>UPs=c-J!d^2KX5W1hR2S*90x73jJau`wl<m`
z!ZLcN)nXV67}+-2HmU<9O{9oUhpHG0WD9>_HgghSw|>r^m0V&rm7mV~G^W-xPDthL
z2UjTm9XO6hmaaC!n?tn08J#6cdG7b{<_4>tOSX;ydPb&DX!zOD?N6pb<P2gkc8-3!
zvhm}(@|C{^Yj3Q4iTWOd^UnnRl>)d#SiE3^q2QgCmd*<;YjLe{vE3&b-m&rp;DESm
zGX1}-I!|I56JF+wAz2`QgK6H`(E@{umzQ_Y`LpTaHJt@?{61R_w&6zaAL2fu_l$50
zbyn#43C6r5y8;PtCp?GI6u5)*{}KOx(!~E?MdZvk$Ok<_82J=FIYBedHBCLOl`=Oc
zJXXF`-3B#_Q3eqKMWR|!7)#`)kLZLIV#i)<%HyAVFKGlb-ak-S(qDSAbc{+sO@=+S
z1eKdbIb<U>Syrg<`Q2Qm?9@?qUu%Lb<O}ZyAwMy3x^iZ^sB<zvN7dxZR)+gM*qFeM
zIL)NCU+{LwZqQUtBArZ2M#yYew^?e>LcZ_#Mf=D5gT)g0t$ZDCkLR*1{yK7*v~V3L
z7WBqzQf!6br;G%w;GgY}21vqVl}1N$+}Rh?5k^2^k^Pld=LVlui*-=9gGME0^L0tx
zwoZQvg7Ltqpmzrfy!iGp>~TG-jrhHD+mj~R1F27|*9@0$TuGMaTtZ893`V^>I1Li)
zqEB}=%L1HM0@k&9mjmETnnnf&br(8qqQ$q#k@D&bBS~+0ZI8;f<<)gR6>e`8);-@I
zi?u&qK+lWyEwmm-I~?<B%43LAowINY*!WW=liw`h!FWG@1=5;q39-l|kO&3?E?LO0
zX!j<rPal9<DWG=r5hD$f5x%;_;{}f;GQ~(_WCb$=$oL;ACd4BV;8v&|kpL~m99G)B
zF=o<uMz~R?I?=&Llp_**Nd<KaX~j0gSHv7p;^YT#Q>Jc{7>85=D<Ex=GE%(81fm4}
z*qm%xX&+H!u5MQ_ZohN}Ep@>~E6Mry<C;l!dCp3<eSF8-r5CRny~cj}CrylNIvQ3U
z8K^6{u9v}RboC2)a~@}^WYAm@P`JskhTB<N`&<3OQE*_jNHHn_IwEJPcjEKvq=oI$
z0V9M|Zvd~tg?E=KA!pCJ2_l0pay0cz=9EJ#u={2^K?O|9wA3grz;eAuMl739czs;v
z>pwhq!Oq!@`K(66$e`&8J7e~$F9<=d6MK}JByhA?<T&*PKN%^qth{u;y<a3&RpSQ3
ziR(ak={tR&p46WHULxwi9Zv&JIo`%8;BbIcf0Pm?H1@Z^0sTktrGobP5Z&KjOzetV
zW|vXaFFM|SCfTdNwN3QbjdkfQQ6B(jKz9h53GD9gU|&D5!t%#UOE9zooPjamMkE*w
z|5Dd6aKpAH^iTgC9j<z@ZlG93_xJL`m>h8RGV}i_e5eA>i_uhb<b_<UCMN*fJd837
z6;LRKUmU({?6*=aRw%hCxf7)m;}Gr~Xa`r5iQ*sN2yTMRQv+E7xgd)m0(!>fNMr^`
zf;}rDD3H&^jS772KHm}l-15%{bka#l5n86LbzCXuspELzgm{s5-Q3ASd%}8rmMDBx
z3l4=j2s>GxOyi!*f9kjqzO!C#-}#qu&+}SKz0Z{-ZcYx;>uA+tkG}X^K%&I_W-ggn
z71gJ;M(8#S7qB>$p5p>&El?+N@&lF}V>Ok5F=)VXp1{?Gwd4Vz7U=x%(eS_GgOR>>
z(y?m50HU1`uy}?8;)2{_68zA?mXFosy&yW!LRl>}p~#SgfwqA(c=uW0vG<<F%V_`+
z^A=<Pz5)$m;05xPYXgxtk3=3-gZhGML1m+IP!E<?P?Af5oDoW~-yXA@V4!&pz)s}c
z(5d_N1iDiBU=wM%fmp_ZAe&=1AL@E?-T9tnCb&Am1<}T07<p@sW}qAp?f-~iwvakW
z$uzx2?ly8#15qc`S72!o++<PRgyTsN2M~a5MiYEbh6(W>bN3=P8=U~(M03QnWB@(8
z)$W{0SInnSi2dds!v)U3qXy!}98N!06pJV_d#uo^NKXeW3qF(0=&)`h2E<vHv`>8?
zZ%SVdE*CEcB~QL`PJ87!)IA%le`bbyAI##MjuU}dx|ijw5Uc5NLF7bQPFxNdV#%J3
zC+a?gEUgdk!%>2gug9)mEwzy(A?q+adWLs3P-*TTDnyFt48I%qUezW+5J}~t?t~d&
zK`!T%0EV3<g%<f%{3F6Zzd#d6coQrt2}<VIqLlAd_R-xIeECREnY4kh=xnWHszY3`
z{5F2HcEL%t;NJD2f+I(ITV)UCT;CW#A9j;p6U?R-jub10X9QGuEw_C+C)(>TAnOH|
zL-8Uov=iu}_K61g0!U$@2NOB8!~`!?FgUp?({!>`1p5M)w@EC71RG5<61p84{d<TG
z;&1!)gaa%z3c@smcwP2C#<PLzigl+O4@^|zzdb8x0)S$f#Bt9P`~2QAx9jD?%1R&t
z`tf{*w~HRGp46A*Jtou&0+BG@?FB$`VKWnRhUg~_b5u2uyuDjebKH~l#CC68R|Uef
z{i*^=M|%FOZ^S;X6pDkp9xzF=1L(}*nF+>1mYo^^gT6mL4?+RO(!VD<&_-RL+|`at
zC5@6~7~$$%fM)jz=kALVq><DZD0^CkFv9h50N5r3<CUXd%o=<$##G+ix(j5R04zQQ
zQ*s64m`i$o%LLlV0_}bUvuM2VBy=KO{v|Es;j9?T_}BBo;bp3{r|6%HU`rke6;Dui
ztHlSPM~^v7FpRNwUV4%)W210R7V4nzSWR`{8OwjfrTuisegI=H`vhPJS87-2<^pp$
z2bZ|_K@uZeOuv=#VC>nh!;@wf-B`wwpeXUMBaWryQe5fSZwml^VO0kB%bU8RP5%aQ
zs3+F)e6uwNDhQR-$WITzKF}9BmBb0i;*~EA&~@lf9f)}9Z=w?#rm$DB-;5bd-rZn2
zv6r)OlT4)__-@c311q9|F@FWDWf&EO!mIFT!{o#m*zEn6B*u}^Amd)EGfF4j$@dI!
z^?g8$x1VEzR|qh_Z2X%M(YzCX<cV1yac~g18z_K!{2wwvgUDq88C;?;OpS%#VT3@g
zz*?x6s4EM~GJq?pZ3t$UAj=?&%#4dho2fW%{ZTgy1fDok?+?~;>X0fP-(f)NRIwGa
zSz@_1yE`y0%cC!l*6jr~Rk#1`{i)EH6BUR!{`EJ!E>^g@`4P>#)>u_MBY95(epEP0
z0*TkeojVUDL*^*uogWY2KrH`k2x6RXKmRdq5pq^?<>IF`{$6WHKkP_dRY_}WO_)8^
z-!SZm5uTI81&(GM^8~98Bb3OxcmrcLB)<947c$MEH6tWsGwh=1(+o;s0^Fx$B7Qrs
zeH^*#8CQQ9*TyoS{~iU$k}$)!i0<Hm(h1y#LM!gUsOu~6e%D9UcFdi<brT^tcOZ+<
zi2e5Cj{+(Vd4)U<Y(*WTcuf~MKdi)y&igCW-@pL`F#rg9RZni?*Ipt=3v%s!sEHj{
z##qn|*pmsQmT@j<+piu7s;aHCF^L#AeWXAzZGpF9`cfR&nrfJe`C<XOXNuc@aH5j6
zcl$YKmf46n3TX1O7E_c&7t>B{O&3tQKqbvPf3EC{Ru@bFk&fyc7WY9J+ec4<pDchC
zF~I5ma4`z5f!K4I=J!}(duFl+0d;wOiAY*VX_&yRNH#?~6|mB+&SIf}@<|Z82jGul
z@PC_e{a0ele`<@AS3w;EduD*Z8?);k46i53?-}v;Grc#2;hR_d5SU242S{%KRz2<c
zOPMPTq%3lczK`O*U267huA~NwxrVb0m_fmC?V0JTk9|8mg~;8Xt$ee3eSwqmy2ecB
zu%Wi#)fx~NxPU0J!1yb`xyY9+QJ71zsI7cIJSPNBF9i;DV)kqz>SO>r|61m6QIpTv
z!=Sptq5`%anT@tS?FoshgN{-CC83<BWl2+Z9iMLU{7y%+!{^O7Hn?s*Lpv38qMvGc
zC48+lLlJj)EEMEuu5x&vUWnT!KAV4(Y*5HME&@<#W3X>{jAR~|3`FRbm1aH6@;Mv1
zoF1l(HLk5SY1F#1)`5M>s<gU|aBLmq!;>gxgPXO;jw`Q(lzs6&<YW>dI{a~rxAx4q
zvC%1dUT!|-dr__E>L0ZnHpjJSt^mhjSFZZv!Vb1w`eHI*cZoeRG*G-J1Tf^u{CG+y
zL%ijz;#ufNV4>o19ucwAjBhjk-4s=8hRzDmCD#AdiQ9it{=bU(-+-M~Q&i+60{ggW
zcsnVYk^oCgkcXo(z;7WYSjN}{7!DX~kTwhg6*g{oY@-yg(@L5Xs}{1rI2ODJ5q!e9
z)CNLe1U$`3YYEJDaht{P^frPdd<%}urxJIQ*K)Vdh)tN96ZQF<^~y4#Sd=sefB|f&
zWaG^DE2*c%M6<%DRZ*<|U&FhguQ^p<dG+^GR!fNnJ5`$%viDiF0=Z1Cs}Nvfrxbu)
zp&7U-lZgca$mCwNU4i(*pXELD6p*cRMjZ@bKZPe`4I;rDH-gkgl}Cj(HpOX-Ujd>V
zKnUZU@YUKmQ$ua8{u{*<SUN*y{MqneDbJ0l0KE7rFuzWV?$L=ITX74;1h`Z5>;Ex&
z42Ra!mP5E<3Uy+ARAIoJsR)plAWD6S(v-l-TjngZ_wgs7HXo=}K@NhNKraKGQE$Go
z_53qCtbyY^m?nntU$#)fp!L-CkIrRqdWFeh46=0(Q6?f38GyqADE2u|d&A-@HP?GE
zyn4)fXg+IY+CNSgBLpEX4ba;>b%GZG(KUlt7-@L@xh}us?~*4>6)hmc`0UweWXQjW
zMNvHF{h_qH*`vx=bZ~VFP4zqaJNZur=>G$=|68@ly;x+l@^jD~M{i<WGWf^2sTV3e
zNB$HFOckBKBGDVrUE&jNjKo>kl2iQ$>jhvH>@BDW=CpXHKGw6ILp_4(c+NNQ*yq5U
z6b1Sx4fDyOKT3SM8lyvm<WBnEfFCsOxk*$!0|=2OGcW~E;TpQBt&|4jkOKId|L!#4
zzc0Rj5;PS5uWXwuaRfk{VvFJ_4@yz&k^xK4O^LWkHz3U*Ma6%gf}<wEvk*ti>Hy4o
z{Bx6~l~n?HAT|IACr`*y3-$a$bR*e{=~4vsd<dv*-_#KF%+}$;DGBF`PaTkKsmixj
z5*tc(FpiV|C2=!-+qzhm+gL!dS_aRtNi|3&wyn9m=!_iCNej6s`aDA;X02S)dORI!
z8BtoARYS5WBv^NfmH0!SBmKGU-jT?H=WURBJmFB9jXlEV_3-cUqT1VQ6M4btN6+-N
z2#e)}%Jk<&_lqng1lw9$-zu^8I@;K5R^_siW`rc%Uj4b=B2szTWKk(FemPLJc(EY)
zL@Vs*vrh32-m}OW{iA{XJw5*Qg|-s5R~O&%<pqS=h#hOZhkvhGw)rXdtPQ6!DQpKu
z|F#EKfd={&$~?;oYik=wR`Vu`3vBg9i5A5LIem{(#zu6|8kN>o#;wgf3v)Ab*XXK6
z@jS<#UPr?PvUBcv!vuK_@0GPh4$p1GSutl1uD-slJ|EhWbl-dlyWMN)B&6k@E^R&K
zIb6ya2npGDS<4-|9OU>gg2Bmu%m|1W*=(DjN^;y2CdOq#yc72S<I?%Rw!;DEF|ivG
zt1$7!fsq#0zI7^#@KV@CuGxbF+xFS~FQ8g>N2^z}1ohDm*8Nbm6%Oyw+43=5{<!<y
zX#C~(f1|-ZiG20+q^Tk7)@_e9e=CgQDZNDKW*q->#^czYH}lg@@uPy3NJ<Ex%uPE=
z3G*~6l{(^3J;75#SdTD*`lz&D2%wly++Qh^LHv*#zDxEs33(}=!wf7tX;1qN=HSTD
zjiZnh9iCBcim9CIOwy96)u#&qIVFSdb2CMX2Rk{p6B@<Y!Fj5lX2~E?jS$`E?5>m{
zMA{2mx=npZ;ywyZ7A1&Bua!=JfF^5YCoKYU(7@X{qL(ttol;KV#&UrUl{d*49T^=m
znp`*R^G4`r;1zPtg-;CE;o|usJ{dEsS9oxs9H2i&9=fAWQQL5w5%~MxCK=@~ybJ9f
zx*L{S*OOUcq6s3{5vnwr8vz>x+pfNpjVqUPG>Pt7NGYG!H$MYlMMQ5thv)>phK2^o
zfWwgz3BsjO`Sd$H8R<C&h^f~DWVb?4s(unDIpH9H{Evd@9`0ZiGuoN5t7Tf>J+an$
zgLB)J2k4(}M)+I&dRrRYIqYJ&=P?8`5ZJr&iVOS$S5xDxhpPzIa>{ePkw7=~*7H1!
zn&5BlbO}DNx}ks}`FhX>rRl8;*7%Em$!<C~v#EG+-a?Oyg4k*DQv9IkThK=E1<EWq
zT<{b}99uNmO1k0ZgA>*&YqdoGgb@jGz&%~iH3lqS(b-*E79FJB?xJNKmJ$L8&=pX*
zeg?ar9v3U{EDC%(u;^#EC+SX4xRK?)JA^w}*8;;IDnCmncbjDUFfaNZPGXpVFQtEN
zLo6R~mKHF+&s~1gF5JVm6bGay2;=!s^dwc(T9=n;j+AVEetVpKjch-LgRh3whx4H4
zE;169#M)u<367L9M32xiOET?#!3nvvbbF6x7BeoU^L==3)ne~;5^_KEjB=85rgYLw
zdHw8Lvh@^k@(bA66~eUpC`4D4XB3psB2JbXvR5unra!^%=a={&cJW^+6iSzYf}RWS
zKv7AqZd9N-ykhKA$R!x@>Q^Yj#dkH{amM={Lm;G=zjPL9W<i<cjlA2Pe$Vp(V0gez
zH2bm$|1a1fWKZ)vXw367ZyJec7n1;D*s4|>3Lec~lPK<hg{S1I{}i%c<<G|JGJqJ~
z7uEdj;@UuRZk*DU^B9F$EI)~J&aa9S0Up5N1Os~zEiuZ=BX~Ny>jVy-#e}8S(KA+P
zCN4i0iE@#*Y2L03itqaptZ%JA7N7pB59J)3&IR8(MMHOzhaH~KeUJQ*x>8g7I#34+
ze?w$1l2SJ8f$NQ#*;S(#<xGIJha-;Zz|446_M<VcTZkzv`+cpxce59)JgxjV#)H?%
ztyoy6IYnUj1*!zdsn|;u&$6S)vQHHPX~A0CFniFM^k@b3IUhG~cCij_sAmTF5yVo)
z8BG`FdN1?QJyk+OU;|ST>P3YMCtZKtnw785qYVl1y}ZCW7sYJ>6lZ!w9p4Sa@YR%A
z{5J<K0}SQ5MXpP+^cemSV!;Ur^rIa{x%HUJbFiayet})GW!fk-G_fdf7Z<+FPBA|U
z-;y^y)2&l5cYcUZrGi@g(3>mSeCP}k#YvN!T5?pD!=?I>yDQUvvEGVes8$h8Pp_@E
zky7_%%D%Bh;Sa-bF!n*Cxa%)$p*4e$Y=2r1+GNaMY>CHoR#&fVNc=n5)~&#j$Jc<U
z&ET5b^{5}SDQIvjfiJs?;)tv$X35?b{)93Kt0`9bJu9ZMsD%jk3^|xe6Am|vY{NFO
z%}<21MKk90a~0~6YKb2y(`hQ1o}&P7j$M?tXd}4BgfUJGVxfBTi){lB^?Elqs&i^E
zqKRzUgZLVa$Rk}T4t%8W4<J(Zr!uBGQtgyvo#Tr6en9>#jwkBGmpwNCd5n9^l@ytk
zEJC^8c+!?!%fP2@%xvne^SS)Ap_dS;fh&-`NKB-8t-4c&OEu)X4x3~d6I?Mi%#(9v
zCvlwNmiooN$23DLb<2I~!!$iu;NdoNN;h_{O=Q!%0<9UY??2@HARzQ`U^zNWoE=vu
zR0w?g<T`YkWcD^ov;xxHHzV-J{I^jO8Yiw_*v<VV@M>8Ia<I}v9phYRxp}@K*wy*4
zqlh?rt^fF=GagdqZS`#K=%;qdnGBY>C)qx&o}-T}K3dx@?Gkj2e6ltmtjB`A<8Ir=
zJr<d4SoIZuLT$6J0;@BSO=e+vbD}f;9gSzSamppdQJ>ZY=8E@9+sai$Z7CN**ClRc
zV3=3_GG`pnbv9dEs&!^y^I|m<Y9W}t;EbW^A{ftZq-K~yug=vwAa7T6xeJ95dEhwX
z6a4KY=V@+aAnk)aiM<a|iUu@h>zO=Z_Kv2Z1W{b}kIg7srSnsCz!_g}I^`Wlv^zL*
zZ_Vc@I*pV~7!9kLNZ(*+BM$iKgj-bVc~8yTNjp;B5<5V=S+)>QoQz~7ilFfQ?qGd4
zK_775!+{$ksrsS9D&>#8`pWgsFJ=h3@aVwGm;}t!i8r<<B9mS_zG3OL?@_D4`lnaH
zct6l(#48FS$QbGMhc>@Ai^4|-SPWOwTkkch-gbJ%J4t66&NkQwHbFxRnc!RFQMtY<
r?TzVg9-9Mss{e|+yKCH7b4!T5B4v}%B~5tuk45lT%F?A$rtkh2x!F;1

diff --git a/reference/Rplot006.png b/reference/Rplot006.png
index 54562b9c48e81b5eb9b4a304867a6947aaffd959..f5c66bff1cd8ec00213b74dfc38f22ae3eb702f1 100644
GIT binary patch
literal 13316
zcmch82Ut^E*Ct7%iGXyaiUg33B3(d1q$x;~UW7}L8hVFtjc}zZNbl05gY=qQkRqW<
zFM%LJq=ynZWDegy|I9c4%s<aO&&)SGB-uHKbN1eAz3W}?+Gq3rrM4RNb=K=7BqY=t
z>QD7ZNI=-D7X=w`BxJlJ3HTth(NcQ~d;&iwDy?C_2PI71#EXQ4ivH>a`hf{OCn32*
zqVe>Jfq&)}CLopFuDN=*)qzi9=I8?{{hdD6N!Xth^mjggafH2QdGb_&{pDjtx{+lv
z&*nSW*SgnqZ!+Ax8PlnIlj3gl&6{2HFK+}<nDoh+*gsI%zu0}1Q?llL<gF9f5@^4@
z=tG#m)VC4F=L`wsW`-7|2~dsy>tDkm*~b#%(vw@+U*-aMlP4y2TeRxCd6Fz%`~a!1
ze`U?JI_U2U7W2Vuulr*PXMcX|uM}M)fhJAF6hJ;0upfy|%xzs804J+eZNLRgy4Y#v
z$sdBF!=1w^O}Ykn+37F1@dU>v>2R;`if}7XSvU(k-|O4`w=iQLYCJPcQoIOp@`bbm
zBn+{HbR;;On@74um%Md(3&(x_S_#q1x)Emoa5Lv?ixsmEQtC9+^`QN>BiQnqC|QKB
zo+6^fl}wRk<8bTC9EV94v;Lw*35$jv-8v=P$usL)uOq#{FgkH4>uPW=bt>c`Nn*Z-
zDO{uGD`#AUGnfyY|9Qt1rP<jN;#qDMJTIn(sf@Lm&HnIkQgwxKIqdU;?Z1A`i%3;O
z+IA`2^l8mS$n|knDdD{j+Eaf~iHkB1SAQ|%sODamlI)f7K?&#*S-ut}DsYjAsbUnl
zHhgu*w~lJuy2t%$2zNEs|I|QG?~+-QODX-7NIfj5F)BZ+*KJ(<)?!DGe^KLx&UZ`c
zX^~XJD6)odF=q5k)-1WjwpbW{3;u?l=AXO}mD53GO*}dDS0d$%4H4x#v42D#>t}v&
zp)h)6N80~>*etlX@FiGLa#BPd#A3GCJsCajYW{mXLxfC<-qf2&_5%U+VCUxEyv24H
zJB{PdKT4DB559jG;1lQOIvV79z?swIT*nnU$X>M2SeteS`j@$fqVBgQpwEUeiue0r
z;bU)da%_T?0+r+giRR@&MVVO?73<Ozgz9wPuINndyws?Q9lZ@zL3xJiz}goGufQp~
zAyP0q$^4Drzv9?t8y@A<)~_CC#`&NZ{Ckn{ciB(N<6Da1JlCHKrPwSF{4S^YS`oEC
zOYSRjzafayXU`35f%>j{WHNdt-kG;LOqUP@>E_2Y`DfW%shhflq?n57&7{F6=Gt!r
zhga`%kv(Gc38P*5VBhm?8aMEIp|xN9BCJ<&XR`Z&Wn9Pt-{Fap<}D>Fjz7-m@FL1o
zp`6vOlpazbrFg|frlj3_c;9hX{@F&^u)CX&V}$a~2jYfM#*GTK5dwuBS|uzco6k|}
zgJcYqWSlP?FUtArg72`qnQJvgF=LUGM0rd)?Db2bm1fFsvtL}`LXPgc)a2TC>RRN+
z)E!Ge!LcLjK`hO*A00M;N!HU3m04=3dlN}|nD1xB<UHMxSKC>PC!85=?k^xtnwk(_
zcVZXfp)Rey5XDT%=QRWir*?Ha2k<NRN%do){z8;qr(v}ug4$zs=K%{n{Y;bN@d-)<
z<?HPd;PyV6GE&kA6itCsaG*=*URF)^2s9WX&wrqO_q@AUqI>*FgA^7CSGq|*HO3hB
z<@oljS=*c0L_Wlc;-?SeT-@f4J}Mtql-0|TU>a!V;>FD+<r)_N!ba<=|Hd=C`<_81
za*QpXn^`BvoZ@w^j>;YBb`tMoP_h&r@J52p{9d<pt@*2!+Mu^w+A3vY@O}m6cJW|E
z!_~Et;AeUq@n-DGXGl;>Y2454^`cu<e^!RtQZzm_hn&AVB-$n07J_7`Zarx-dEzHv
zR6e7ff1#~5hzJnqUO>p-O<L#dO!~Vpd2YtvqDFct3Ttkc1DV%uT2l3z6jD77(mi*7
zOz=M6@#?UnRkk2LI8;z=a{cw7lW8dJb#3w7^WLmK8JC{W2*H(p>@G}4(sLHzWwyfJ
z^-G`gQ~F%q<ZyqIhQ6bWVSm!3<K1yuf^eE4oAOmuC!g_|R&JUN{v&O9eWG-w*T~HW
z5j#Um5e7NAC$6y0LZsbDo>o7jrqOKPvKHuPa&A~dP<ySqsS)*m9`BGX2>89k7`us%
z?L8M#ZQ51UKe*7I-6+W(bWcmuWeFN?+$@AMgjY~BdLm#`<yjQpcOZ32%=abQHz;W3
zzZ72#8Q<Lge*SQY*pxzl`8M<R&Vx>3mQKON8_nhj_rGjrBk;KqLSEx)4Xm>}aik|3
z{3)*y{5HHIYcgLq@NQB>tA=sg7d($D_*0&jc|w<vAHwcF;uNd>$ga^O(1}4%&zK-0
z$pP!DZDF2Fk357x9En8R%GbSP9j`N<IfhJ*T^ctp{@A5a<sS_dTew}vkNv1C>qSwK
z;n&-9;{A|TXDpN_Qu#8e_>ATA*NkwL&u)p7@r*9u%J`Oc(%_g8&z8IE4QzPn&huU_
zA(_Z(5347sQv=V6r#(S#(LJsAqFnEDo2(>QY-ghu!+GnJeuHMiYM;;C=7H}#%VDEv
zG#-#jj+5^H5}#z`I5S6j%!l`wb>C`&aByXQ*t#y~&JoM^Xq&Ec2VZE6MAihn<yH*t
zd5U$Y*`bn8<NH;W6O3LLo}J3b`rbazTzeS{-8B9-g|V3`xoEwmR=F2B(y^=(=Sc<$
zi|a8-$<KZe0Zw80Ek?M<#WU~Eoid;)k$@M6KS40rDdrhUB)}FiPY~3rNr+d24Rtvi
zFGhDiEazOmK?P%coqx<G=eDVj=pD4<WH=I4{^8gcm2|K2MAuw}VtDD@2UrK&3qSGK
zZ*}_~&q^x}BB;p_ul|npcA25(bvb_Er*JpQmE$!;Uuzl_6Se9J8{e9|m(92&zPXKn
z!qncc*!TB^+PkWZE1CH=^H3tYZg!G+TQaIamKysF57lQk+PKRqSJg07yjW%Q!cn*a
zg~nyL@ezcwvF4m_srnCd2g;_15zV1T{rJb7d&wSbTNPX8UGY$MG7FVy6Jgbk)9;Pt
zak(Lp4;DSm22NAlG4F<^N-Dq6v4|;kgsuwWV4Xv+93odDM?50+v+y^)eS)H^M|TD)
z5V4^=uiZnQj$f>PITJ<5Q`Fx)%$2|m&i+1zfdI=aiDUdIany4ZY@0I(l>wb^HW-ek
zh{LX&lb;q^XG=Q@;Z@HtuWr)V*-1Ui;c>aOEKik45xMvv@`l8bx~0nW7tG_Jjm@sQ
z#>WpLnI%L{!=BxL2-@LyaZIM;)c5md?7F8c^i#HzY-^Mr?fSmo|5G)nU5?d3Bx5S9
z(o;!YX0bu4H1he;E`nd$u0PI9wKt!lv1eUy|93a@EW<5bWb7y|7;P!C<N>Fm7=FU3
zdbW2+f#>M#IS-6NR^~>$bXfd+v8FDx=AZNXJtAOO`uuul#Zy1%{P%K$=5_utg&-5x
z!V5p4x_RG*%Wm{=d8@5JXqKQPO&@Z|{+A%G3NcBnqLjBk`6F44>H9TvOg108c9!z=
z89N1ghHaD1O{vX`@c5fjmLs9=b788>6E}xOE53`~DH^H9F>H4Q(Y;<#B=P?+Vlx+i
zsPKyvaVFrPRKmxT?fu}rGiZxeW%yA$U+v##0pnXdHM_p?MOhWp$CeK-+|};iu->Qg
z^1ZeluQ)|7B?Y0-@V6F@;8VVft_$_$t9vYvH-GHU&mdK|OvzRoG-K}DT#w+0VO;uf
z`lq9!UyNd}ZNDR_Wu5}%s^)<Z1&ds4O#dZxsgth{x%q;pZb14b{m*QKS-`fY|G1U?
z^scu{#Y*Cv@0TAw97r&Ob7K3alVRDdlEZigN|9|T<peg<Z{D>lr8%41X?Bt?&QxE&
zOP;ftL~i={u|!!FYsNzMs%mdH_nYV#AL&5LiMD-PZ|lUA1plOLYH_`r$<mTqO+Vke
z%4SLt^!14Tuo9`<+q?Y4xMYF5E^7NudEdz|wnHU~idgdeH^GtBjb|s0$8T-y&ZA+-
zMO8%XL7n!hgv8KYtYPP~hf~2lFL*Z79BA0=IYW+mf1e>K36sh)!2$LM0UWRMzw+m)
zQgJsA#zve8<}GAUMlL+qzYN~=T0KE_C$n+wRH0sso?W^ucn%tFXQ7%AuYTOG%gMkb
zzO>p+{Tcf7EMRl_w||oRYW2o_gq=eOqt0soYA|{sjBaSy-ZYwrqJj`cCxt45J5b6$
zarXN5$<<H!bIAL+uy@XPGxb9i(urb>w?gTb(h)w0tc+#b6&5d=Tb@%oim?djr)JZZ
z+LeZp)0FmY#U~yc<ChkHUD<7S?T-{Mmxr<SqYqPXx2oc*C8~voy$dbhK;MaleuNrw
zo1y;qbwbE9hhe`>!`a!{xPoOb8(xi&xjh3x!b^IFp`)gzg;HjQYG{dtjqKl%_tg_V
zkpSN`D8)fq|GinJ6L7j#9GU6aFF@YiDk&v3$r+6QyO)nif4=h_6*;?SAGcbH+`{?E
zJ~>zD@sgUa+H*6x_TVmGA4@d1#1_=Hk9TVCw$Tf;AoPswkSt_N(2;O=aB#4Mi+J2C
z-%wZQ(!gV4WHc3cIOBjcu(DcY-U(eza|r!4B)`)Za<aE_QKXX-I{POnRVDi)e^?+M
z`}YQJI7i99s{PO@hL+ffyl|cV&YyFhW@H&)w~qb$ZA$2Fv{l<~CzV)mr97^zzP_HU
zvuA5uU+1FlEv=%z+5KhUkk6OM<Kx2QiKI0jyXk>8K47SolYaLv@sUa~0l-kyR@VJS
zo{+bP0B;pherVwwk~MERLLP0%Z(CZ0gAug|YPQ2kF`z4<IGLY+*_|XCs=Ebj#kFiu
zof=U2_r%=J+3fch>p1?2>Y|a~WLSw)Gqc~GZ|13LJ`G|K4m**?*&!>NPtRBevgG~#
z2tM|f%L+W(YV3{YR0srg1TmS&pe?hslVagJqqw^?Rc@kx7ET+C?W`S=+c=7ijm-&I
zddJdnxLG^w*8aLHBC1?kezUqOLS!blyLa)&*HYE{8#YE$Q`=wi$A%S-267Y*r}nFY
z*4=U4Rz?>m@hq7ageo7$@AhIj$V)<1W9UXjV~?0++p!XEFyja_Q|qup)0|?c?i;Wr
zf;K87lw5n{w>{6`<m~L8tq^pGNYqgbIL&?Xw(_>5(>SfeaJB-dGw*B25$32ikzeO>
z9Tg4<^Ia=U*`~nP#D{Ep9W90tJ<>c9v#7ean)mx&u;kR@ayO?eTVv+O0dOuolb~W2
zz9r)}-_+=tB;h(+#{_&&W#93=AWXUYVZ+H6!T=Z|^#FiK`EE|X@LLGLDL}|>IFk0&
z-{1&4-;G@GM2jqQyS!|ib8Dp{u^-AjS&E2=*x-MjiqC5H!o~GH=P|l{d$%h{!hYcR
zkC2dySfC*jxcBS3)u1G;R<iJn(~klTE3Su*Ba$o@-lLVfyIvfE11!#!O{-UU%LzF=
znfIM@_4~VZ@nSm>lq_N<B^PAzonO9T^YUb!zcuKv<+xv{>L5qP<EJ!WD2J(u3Cy*O
zs;YPEGDab|IU2?@dGD8rrCG4eUUE0DpZDMXtg7J(CBhpT;)qIvmWt%GoNaG95tPwt
zF}Fq^y!la3WKwHC_--C8_^G3f`Sil;g0ow+%%Zedu~df_yEaz5n66zM&m{x1K3z$%
z%C7$7dxAuE@ZNX#&@E>xd0B}8p{lm88vy2ym4+41HfK_-LQgzM8Zo|e1ahumyz83x
z=`jE@ZXB8UL{)vgWRhm#tS6zYq5`uC`waxQ+ICGZXBDK}y!mToL&M=J;HM0(z~6av
z$TQ4N&#Gy}kP`7cz{o0uz)gZY?iS<Y@ST25JD4u%yrCM+92<no^6P+Me5NdXerWJ#
z(R`?iDNl8FYuoK{m2#ODw<fGl6lVsmm&8|^H+z~_2KW;ujQm25mm<Rs=DmiqLQYmv
z!Wv3SO869YX7*ErCY3$f_xgqOIe`(NIRTHefh>cz>a)I1B?W)Ajc)AUo6xD;p4s>*
zIb~kEKaeJ|^Ty5X(m+cKU7WXkYU*e)%&V`~+yLpmq_Ie94-VZ+%rW=;ofj#Zdf&EZ
z^a=}3Lz%K>PqyutG_5T6FD{$c+o$d7=?UW*2PIyp5`$7EY{%Jl#=-CWcuv{iV|;u=
zef>mTL&K!K6or1Vc8CiApBKAJXM~NZSNi&iUR@R0wo?{<7LES9KQl#g1NK*`a~|0B
zqj%lr+>sZh<edK2ELbj{XEBZ%#bdn=hkN@XD!_z{mOraTH_TMORvFX@J00r^J)2t`
zYB~6!btJR<je+>UACEntQ)91jS?-Bd*-IK7AFrE<@L6aJSk{qSD~Ke&acktXL?^^)
zGys>?_+aYMX8X|sv2pXtmpY>6O)%@c(>^BWyrv@UtW))(;J)_CUx^%Z`@>2~j^F;G
z6CsILIGje96B5e+Jo|4q<3wfl`gr2gfRSHD0uHt{vhbN`I~IR8Nl^A2G^;_X7_FEp
ziZx;X46}s&O-g)TJXWHS$QR;uda%ZVGkukJu;Npk<!hR=aWrhWQ#fwxH>L0Xqu3Nx
z_Ns!F2ETCBaWr@Z(L=+sS6QC`Ji9wP%kz1q@^yF?>n%~(tEi}Klp2;r@Y2`y7j<-W
zxDKS=*D?YiGZTl~oT)v!{K<km_HLWQDG^Unh^JG?4q^nGTWYFyvHn$-NfI)OgLk4w
zM%B1Nc4Tpx60R4ggtrZgp=YsUMK8>P(ISoPBlGi_EyT++waKX|_dcU%Dk@#}?_Ji%
zOWXlk3nBu{e2Uo#mG;H7`0#v<1o;E$>CmhrH~`73m3$Bcn5byGx{GE*zASOmn5x^*
z$S5T)KEwGR%pjm&RE|DC8!0unI8;UFtHm!I0LB~$ygb2G0cn)HSOM^<%5oRuY1Z}c
zlJ5T%n+x7!FU+h0R+19O*1VlYKdTZpCM(!FY`UXDo0AQH&+euFkH(~j+1f6TT!p8Z
znVG(AZ=A(_fFsMCot)fm1HeAI9@}_vIOlHO>bv!F7-W>9oBvEw>3*2(j^cWU-&d=6
zqOENHvskAgPF%0j<u2C{V5g&R|H$=Mp?Mq%<R!j^kl!PDYpvTY8)jGRc%Pb@8p#T9
zKNA4iDJ9xRc$8r;hu{3qVD!idE{AwN9Co=cmhJsR;|QF2#Yr@5Qso{axlg3ofzY*T
zKAd$91Hb$d(*z`vlR*Q)iOG=>e3_PL^RMbWl}OQH$@xh$_lq5cqxpU06=UUOdi30u
z?oJGl%NmmGx35X2H);SJ!z%0fi?{n5^P)elEXN#EJJo&FFZuZ7<ib2MjA$kK@S)4R
z-(tvAPo#j4g;>G#BDdQ#_HQjBVQ{Cyf2nLSnEx`6P?}T4e&1!<ez`YgI6qF#X*W~W
z>yT628bz&N^t{=7bs!DNChzOwRcXi6($KaFF!4l?0Q#xXdP&u~vyRH?HN}`G3e$#0
z7WEf{(u=_;p7=)(%0BG^*VRtc137LH0}R2)uX{4Zo8b4`IZ$0eM5j>CD=`(8BS$Vw
zFi?r4X}8&$tzYKT&Xgf81nso9ee$phyC6hdX@E}o?WW}o43m{r4KGr~%0_{yml+Uk
zVp`>-^Tk7eRx=QJ4yZt0)HPuZJ@7x8xm6aV7jl*eUJa+lnXppctHoqJD{mLvTlItj
z&$-R)jsz&-j|oq@$v2E0GNo39;E&J}`qCA5bt4jL1jnD|Vj2nK)N=CQHn|-&^s4kk
zi0?Tl=k;@mXjCmz)IXMt#@PrBy>vs@hK9!6DPRzoPszJDu9sm!f=RQkR6p16U?v;h
ze2-Y=2{%F;+H+MO9bXcV+7ku+0hrD%_X_t@<=g1Qg3p9cRGD$4q59uoVI<rAV>^!4
z-bQ>2FZFA8+Gw|0EsS~wSK5lLLUAlqEbi|pn-~+dF&^i?YJC^%A2(m0KilRH>faM9
zVObYo%gwka3TjlX(mP}N1a|5VD9>%=@cZ&1-5@P2QdE>S!GLBW0e-;+7*1z5?8;oZ
z=?Qaoq^A~oHTR$zrEsS=AU|KbJprco$_WM6OOmghuV|kRm#Q-+Kn>OFq1GA+r;Puz
zI{qi2{D0p3q9q4UtwG&Kfl!Xtr1*O<HvFqUJv0&wd?$W@Luv6~@taLFO(acZzsVm#
zp6iG{)JW*BGBrg_fr21a4n8?l1K>;Wromb+RAXHfxP+6uEvtC(#}_12qy1Su6r1y`
zs-~{@6Sx6f8FLCa(%C=@d?|(3JJ5u@cr1i}P<`vz)aK)rhf7!3VXViY2dv-&e&~`U
zZ?eA1Wk4xUUFlhA=qJBRv+(2x$^052n!rt)>PO3j;z&9^6)zfNvqh8V#$s=o8=cMm
z;=Y(lDnq?<mOiwaO5oJ3+=G@>mGoT8MAx9)qi$`}jtZsNQV_+qqfcLO$ogZl$agFo
zqGxE@aBGcL=CvK>-5Pp1`XV^Eyq7-kTq40h8<>$I^%s#5<iEqRkTjTd<nc6jA0Yu+
zVpLM}%hx14G{r#px<-OvE?^fUzaPX;QBS!w^xj>~)RX_h!4P_NvcQxcsAoc=D2)>e
zuBF0xH8kP>@0;Vi9FGTHTJyn3#995>jwSGFxx9ZjK{W(h0Z8qTwcXf+JOuBMCxd!H
z#Jf-jjfB8h-~^F<I{pI!bV=UCECW8KfXTv~=vJPC5Bta5t*}`lRQl`thh%)o%>zhq
zS-*La0il!^v_sRze0IqU^FKHV3!h<3fvbV#SJtFCji)9^c%NMK(be(=A6IXw7xwEd
zq~nNbrn^Tc{Gi5^!p9}#SAb^2La`CQ&+elzqc{*sLN$3m{&y1kKEex~&~h(HbHZhR
zH=ah=2pn2w6|x_N92V0u(bLfvp*%Lng0Sho&o)p8zxVS{qZ-$EHT3*|JGNa<y&l7D
zeyagGxl{S{F5n$DLoM)-ak4iF5H-s6=hPYr1&ZDOotOTJqW)FQ+;n>UCF%{TVf2V6
zd=4%K_R%1{8t#|mYr)s?TGrxtd8|^nes~VaSa=mbOFC3z#YjX1O$EPz8=`c=pD91E
zB!6^W_*#elQ`tzc+RECIDE7NZoWc5Mk9@W`N5|hsX`ac=H6?^1Ui1{PBh!x0MYHRb
zZHL7W*lbKBZ02C7zpUS+=pS^`3wF*Q-pD_S9SxEYFYWWp1}Cqs`N@3P*7Mf8JuZEa
zaZ(|1B<ECR@$6G!8_vpfFwE-m$mg-UCh9Ck;UHHhM$sDil|9SZ)ot}1mt_r)HTcy8
zVD?}k7!6(s>xg}W%}23gAt(ja<XSR+MIEF7>NfzL*#~p(5~&u8l5N6vu8!+jXNiRT
zXX3D*lXe1S_07$~E9#g$(;*O13EPfBqn=_(uo(a?IAevrzvI);J2BLv@~2)Z#Wj_n
z@L#N)yLtZIuMUP+0Xoi6x^lDbUmjNf6s}i6EiA6Mb_d|;Pfi-BDH1Vo7(|imKu3yQ
zBca6zU}v~4$^<p~m<OgH&ZN$J`x8_HlLtJ^v@wPEhU<W=NaF55mt5goBuavxW71Hv
z0jIH`?S(z@B=m7OL0YQ7iH2;pU)R#h*$m0cmfrCpf+(UEkYM0iDgf%OfVjn4&XMGZ
zdbTa9Rhh?up1B7&_7}#bV>p9}3v)DUMrO%-ZUH_54nsk2%uTK*76=-=h|Jv&U^uq?
z@#G(bmH=l<pn057pjn!H%{+NO0!Y4$KsMslSl9oLnfuOJ7>XyF-CeaA0;FWI@7gFY
zFK@J+ru4VF08f6*ayinxqPEji8`D;maBlD5dz~2=hB&|-DtXu1m|#{10kqhF&OBT%
z9MU2y3b0MRGUc%;)&&d7y*<t0uT<?o`tyoLg$|?(jv%zpa>hohk3d#itEoUXAzbIh
zhCX&aI1#XB98p>aE^m08r!sQXqi99(=!Fd9MV4DEpdb`;UxF{yH}~5SRMn>ttrp3<
zz=+_=k-3W*gb+#Y6MMfDs0Od#Cpg!=npS`b^(s|H($1btk>tNY-lVdo$9wvb12O5I
zA_P*R_o*V~EVc!Q-ahvJw~?Wf;C`_SVSf=%lAtAKj4jtsA6c_j(`FElj@I3x|Gj&@
zB{yRw$g5X;00d4WfH}HYKdP<)dlbOmqc%oy`QiGXLzT$4NoECaMnW~1bnk)0%8eQE
zOr0UcR^*pd$Jg+#%0DjLt%dQ4*L!$0^csQTih(QdKs)PAF1{k&OR7LA&vL}>m{UyN
z3h8T)StcQ2NWIz%K$O9|M`@wnQdAt8_qb}nF)nw+^9JlhNhd!wKi3H9dWCTKJ7r7=
zL4I~m?;gmCnV|GY4e5$z@7+g9A(-)G*81gE=`gARn>KP8Q61z~IDZSPwI3@6d3pZ*
z?P=H>b7JU=m3!{4S}of-&XbG8$%s{3v~G4mM`7snNMyuz0~+s{)VN(Q%_`Mae|!&n
z>6tXc#;A#sHxQ13b)1M|B@jqO3##B07{w_Vn{XH1EEc%pd1I;Pu3<6r`VhwTC;s+w
ze{GwXd24t+XK2TC7PH3s9YZUtR&=u!t6AlqC2}RMzG^Yh!L_-6Lj*vCW?%yBZF~+1
z`BRKGcmWFi>C6zNl~CZO`y9-9{RX#rR_3m~^tT6GG9U0c%b>^l2LQgN1U|tVKVQJM
zIT8DH`tV*y_d?&u7v7J^0gYOv57<RZM*56o<i@6U)BWCTroVvuSyqfJQ!MHnyNe=(
zJ~~r~*zC}XX#8LX{BkyW2`wmw>mra4yG0h$1ZdKi5$@kXwmD+gfHn81OYO#IfWGB=
zc@Go@Jv_1OBsIPW=f$vo1ft>!zRkh6{A=W|B(B(+Fz5(ke{)-}{<;hTrY4|~P)F*?
zi)E~4Te2L9MU-WSJ!`tN@dq|7N|j$jPb_JJ9j|PC8?S;jt5Z7ZD>eqgnXlOtMa#fR
ze$3g)fY4OX5e6QVeiUlXe(GPe&48jtX<}`1ljDxwCPOtWK2`a&(ljxpYRYi6F&k5#
zXW++yP^lx0l5K0FI96OTY3aRLi2(l6EcerXYX!ngFMIYy4ZyJu{^3dgaV7SDB{2I4
z;t@{btTLIf4Rla=;r9pt$pKdc{(5tN8^wmYL_NexT312;1YFW;035g3+>eKM!PP$R
zNQ0F~6pf$C29b>IA7or_o9#XxC%>_76=dV;I+*I2G?jiAGu^Z%XRXrQKb~B+wMeX$
ztS@=JA}EH@)Y^!ko+8QUH?*&s8mU%6wxp-62!9p99D1XBVri3W2ew~{P|9q#qikz-
zbRgs`vfFZdT$PrwLVsPqrP#LggDco)v7+B_Aqg4iL0BdlA39*)c_x*J7|A<gc@uR`
z#``>zj(WDdUR4AU2=Ww1gGO{tPEK*RynY{`BeuWloAf)IAhV_2i5FcWY|@+t$zY)Z
zAn!lCLtV~2?<bc}<6qJTY!9$(E}+0A7iN;td~rVgwltSq(YC0Bw;uy~eATdL!07`a
ze;9j}W0M*W!jUfKN9!AQLRD3_TJ~G-P3=^_A+RpAT^s>fGXYRvR^-7_r;qr{7T=?0
zlBm@Z3bqXaX%qv#2#t-5<JD+?UT;on@z-~wgz=37#FgZ!vIQqY1wed2=|FG&FKtd_
z!&9If@c)|h?xsNMWn0`y&8Z8*C4{b`0Q1F^9$y@;1V#?7hmwi2IF|T7O@R931GzL2
z&IKBSQ-v3O31V$(M|j4OXrss6!LTqR$fp9EhcTQUrh<lN&7R3K=?mT(`%x1}0f#hA
zOQ0Yipw>{?C>2yAT*)UdQ%Q9hw?}CWOZl8waJSHD!+!I8MdFY{#$)5_r^dj)qlM3B
z#E!_HqX08Ou`v#C2n8+(2|f_=IDc3zrGunK<yJ=WX>^xtEk53YU#<w0<#h<Jd^t5R
z14n##Dn@P(Y2{;&24?b^l>yd6f6fNrIi>WF2voo0LTUdZW&ckS<e!=b`e06~0g?#S
z#bU4(IgN(k9YBL<0ke7we}{5_<HC91Y;azbA&Nio`f~s!FH^ipKJI{8AyxFIo$ioj
z3d&<zR0YaC@wzrpi<bc^njdd^5I{L{T{t#m5!vTy561mklO}6wEdy!lB~3TG;d7A_
z@wYni%t_r$>jN)}>SK2VjRFL<fj;HKDN&z)pUpfrJ80&r&h7II<!bkoCA)<IDuNQt
z8|>}Gx@5ns(Dh?arsMJ3xQ>Q5uC~ol`X7P94<CSfU$bM>qsRpbZvMIikWPDPA?djk
z{_Ud+H&Q7>ab{p%7WH*-s{1FJ34vMJAFc$8&wmsw|0*5-Z}$ZR7%j;mC<6D}Pu)%h
zVDKQIz*t}csFcz8TCi*xv7IR%Py}uUS4QR{AqT}ns8NzACX~rzGs=}1e(1irFZra)
zlNi1FGTw5vmH8S=ssSO}fP}k%{-OmbGKaW<6{*a@=2XFX2v0un&fu6ki}e$h<;1{0
zxA=5eJ#qX>O|GTpqzkY!q_l`xjmPum{>1T0Af9*-UPz&<jb=vh=x{cQpu=weyH|-;
zyk&!1bHY77OYLC@uDrcBxvWk0sJ+H<CMtGCP+RYLeI`UPesK5<9L!;?PWUFEp=V;C
zWfMepteqXo0)8uW>k8&T2jY*l!b3L%nco5G<>ia3x>d33|8FH#48__eUg=iPbpgub
zB4Ae_v?Oyqf#!}U>r1oTFyvjd?9J4);zd!EMB%@egu$dR#SaUeo|e~4_YQ)%sy(RC
zDbNyOfIlJTuW}c8Rg-tM5BlxQti3hpfE9=rS3sP|I#4RSs|(~-Zon(Zc@3h;e_MqC
zcr?f6UrL_;k)N;P^}cPmEgS+LMP0}0Vx_PZ*Omdk*}Mu5PAsYQ9T*1;1fw3I^(RZs
zHg^Q%h!qefRggn6%i(oJmQ>Pn(&>^PPk`xJ0P~KAEC5SnZ^n_gB*MM+4%k5FMc<l8
zjOP+8Yl%6Rm-fIKm!0Z<5n1m2{SbY#xdbsK!cHN?$vGXZds)=bFq`}^+9oUgvgT_|
zQRaSiK}mDhXkv21r1XN{;yI<HfGJux)K<$m%-XPgY~A^iFxiq}Wpb)5+fVNJ#(4|o
zWZT_e6dM%wi`K3z-%dzMiey7#QCg~A_;R2*UigjU7mPvNUPi{)g_LAtH|}+p6{nS+
z{%XMQ>gNp&^&Pw8X*g;SP#T4zPpL1$Cu+3I7MfP#n4(wDcX~WO>9CbFBqvM%%u0V%
z?h>%BWhG+9;c8mn0y;+ek7Y=SnBv>f3)&MC^`G+38(w6rk7fMW-LhTY>&<a7yXaIx
zOVNsKOiK138yo6`Lx9V-tQz*%rU>Mde{>Yj&c15%ToyrFwywk#eSLlhV>*{kkT3IR
z0ZlOsK^&wu1+0az{3u%bD=BJO!7P(g9XU?+P<1C3CH?slsIXW|3Lt&2DMoTWAf~(@
zl>eV?sMQ-jP|1}I3=vQxuCiB&83?!hWK55IjT)xV$v<VQ4zg1bn%zcOAY^vHzR`q@
zP3cmycRwTX!JAg}oW?{7m^$xUAw7qEm@LQCTc=>hK!^PihDn_AKi-Fu3E9<(Wt|<@
zGAF)^*P}G8H@0buwLAyAmQgs08h3JG@(3fTa_tE)3nU-TYRx(VzA?aBnYwt7vilp6
z$(pUxR;7{GC6muUYT(bPv`8WNg%FqNXp}|V&n~06)A^Z42M9v*v|YRDlmjpJhMd){
zB9P9jJIR&(*^wU+NsWAyTW2VNq#LEtoZw5IGPC<g-TFSJuz3QCT#!-A$Zoic3E`8=
zFK{4laCVycF)cE?MG<E<8T8|Hz9fB!e3V%(s~UC0m}d7`WKx8h{ljD7!Y||i=C$QM
zh^`A?R#31N@C!2QuI&wWvFFkqOH?})z7^DUK&t2%=PUyjn8IaOmzQ1lZjhFOcShEh
zJ^>#2(aD6vWE>w=gO4rVEeonfRrdzF#f2)oj&FW>UQ8#I>WcaZ4EX80Rgm)CX|CzV
z)2LVZL#uiG<-^UZdBx?!-NG9RuR}!BMX=k1*VfF{iffNGy~TkoTekaJSUqcx&vZ<O
z3b~ZWx<A6bb@Ps^K<gA58*>IbOY=jaZ(ntiK2{=CG%m^29RG*$WTze-d?GX#3vbxj
zg10Sk5F=iWr!2xC#V1XU%WqMw@F4owdq^ruqnFuFdb?Z{RPXOLg3xd-h?>E@O1)2e
zY<2X>Wls77kFE^p&KdaQ)O-saXp#nR9lmBwjs*a@_9rdmEd{!lJX|Hbl_B<CBNc^D
zu%Lp(33C*Z=J?@=*l7n7jArR)y3>!DN5OG0?FXcrq~|R7Vofq*giUh3lT{AYph|t!
zu!5b5QIbqDKCG_c_r#50LFZI2N+H#H!H2ZAlvH6nc&bh!McE*U^86dQOQrn~U7}5B
zKGcU<3FVF5L8wI0f_e>PdWIM!Xd_AXDRH618_z3T{>l=x=ge)H!u^|tvqUx~Iuy13
z_xnr!ld}RQ{E!?$k4zT$Ys^ipW_Ie}FUn)-q%ox<b>oo}fL0x+-Ug-TPnn@yQF*|2
za>z3y8BzENQ>vTD)`oA*zR6U`l1q&#_AYke`iq?)Q~*<YGL#@lOEUI(*aszw%18Mz
zM1R5Tdxrr_L-;lN-hlV(t{^1s@iWrml)IZvgevUA3Gx|WZ*5ZCf*G78yeqs4V*7b}
zH+hKzF}Wv)Jwi>Ff3>{B4i2F=raV_t{(34hLSg>Gu@Ll-Bn5=dU*n_`!r53$W49aw
zBN^{&+t2R9r}hRm)Uoj>R_rrt&vGkYs$+yBD>|I2ubujqierg8?WV@rC}LnkdKA_L
z&-g5ts&=NW!?zu;hB1Nw8+y&2<pm7+GU9RNZiVN3g*1!IK8uZy0g1@YNm8`B778ru
zzL9c&KY26ZCzT1t3S7xw_g4goI|(h_5W^(h(Ctte)<Yds*fUHdIR0jWTMv~>HkK-O
zpI)5pR%*~IqPt~W{LjU#4^SnJjg++EQN$n8P*z{oY6};+F1Ra2#X*JF^Wuo=x1O+r
ziyf2z;+tgJhv}Z~{xec>_)B-M@Qdh7oJ;dhffebsetZtO_Ao;{R3JW>@;Go-OuIh`
zE|GmLqPGKi?RiWHkuFa%X;-mRwqF;alCqn;z>S!+dUnYDd#ESieVoXwiy6q>-lsKT
zp3<L@`^_O*cSsAR=Jk!`=mi!%it|7vlwaZ)5}b<K{IfV{GwGu9YXhUqUi2>V7@eGi
zCRWmfG2$y8?W)@?aXS)t=jdqy?B!!dSZ5zQDr{>xCUsZ54_P1)jt+6>gVyhkIxCDY
z`XH6k-4wfHYCofn&FB)G=4%5YLLxt0b6}w1;nL`Z`ZI9{;7aoWOBNDkP8Fj*%r9s2
zus00#Rn`u?vn-q(%lM@TemUU&V`3>Xv6ZvnYssn*SD`2CQ^%Fe4-+Bx@Iuz^on(zk
zA4c>(ZF6*TFJLHebo=j9ECyuW^_!AyCQY~+N$K?8j;AvXtw)rFMAEHtS<7+DB0=*U
zYz_~W&IzryHRXNxF&6MCs&DDKE(&&!p36MEd_~uljLt@s;R@Yssf^n#sJX+>#qbd8
zH?N3+)(lI^nNrqd)jBN2^{KG%iCsk29Ah;(%-SW@Xl?q3kbS0d^3xgz(^~li;`~Y+
zLZ!VP5#Y*~Njqq)no4vZ39SsK$lG4f`BEIyNcsNY*s+Bnyb9zM^;h$FK!;>hS%RXr
z3=_8x8?djxEC6w>_7kjrOBGQTS}Q^>%3U{~OfUNUbc6Z%kqY9Euc;$)gXRGlyVRXY
zUAtwu@@&NtkzfZ98>PqudjCe_&FQp}P76)-$|*bQF~)9!MJL_cBh_W$qGiJoR|NC^
z^Ul0qt@*>zQ8CS*0zyB)v|IJ&$}sRb%E%I+rWlJW^z`dYfAK*24N$E9Cyer+9uN6J
aBtPbMDT&qAGrRg{9t~CPr<KaqfBqMwIG<wx

literal 13130
zcmc(G2UJtvw<aOdrGs=3=^X*-O%WkfrT312w9q>Q4Pv862Pq;Ty-4pw5D<{wYl8F|
zkX}OO`kOa1Z{Aw(tyyc<%%7FqoZOpx&pCU4``h0synU*pMoP>`jDv$i3Q>Qohl2w`
z{e2VS182e}+LM6~d^=6G$G|7>ccIb}0elca)lGeHa7d{BzCmM);nz4gcX1$(9~uN^
z?kxs|GW%i952v|Z#;!CpU2^f>!JhIy6}+n+Nqp}MjQA%PEoDdeL%fT(Pcgw>@=s+{
zpRQ6pCVu&nH}LM$vW3qku`iV$#_DNk4j-#$Xop9HJ|A>wX_?Lcl%@SASdsN=W>H4*
zD0_J5SBRo`jrd(i0_XqjOYb5RBmt_iU%a96lPgVh^z&=o*K;{k=Q2+A#Yt!`Bi^KI
z6B9$qwRi;l&nt<*6^$3cV<2_@*pSriy?Q(k{FKL)t}uvc7xS$J0tp<F$kIqJ)2?6K
z%v2c4gL3D_2AFu{Aj}$907eJn@cD5+3u@xWbs!1l5^bhFdPW+`WOBQeEL36myoqe_
zjy}OGK4@6g(Gr|5OMg>3S`{(09S)hmY;Rsoj-GLUrVON%W}}~bctNpUPjvpMZ2s(v
zM}PyVxmH*}ffXl2wTR1Yl?i4GXBqNBG$G=h(`q7(P{N<d(&%HxZ)?3tK6xr(!6C|8
z6xZH>J3z>E_V$~{p;yNpzZThdE&`9nOjwfjKd`AeE>LziskoVucfSs~yDeEm?H8|L
z6@l8?47uM&XESah-}S}g0b;IbK8bl{0*B`b#`<T5&S@x4E3==R%+%gO(LCCI@m(?6
zZbvm?0*{)I>31Ds$}RARlc+nye#7LfG|!_W)^C6l^~r8A<?*6$te@+<=CFI0ioB9B
zgLYkucl_iE-(0*&{pMPBwdk7(lPh_(dl-%{PjzLX^=B|pni0LZc}0+ieovA_ozrlx
zqnUdvRIkk3A6K}({e3xI@qFV*v6MMs8At7=6=)33=_SF=?ncdYIykdY_~lH+C+Wg&
z_vjt-qFLVA_NIbj%(RQ#b%u;qo4K0!Lv@O#-=SaLcmZ{~S>NLvQo=19kyPqFe|Q`o
ze0&pSa;7CSPh~dgNwsZ@=l+^bChO6CT61I;Q0uA|Vta6kdT7g1MVgMViVjKw72T7n
zEe}$3a_u{mVcAJ(JB*E}<YB%ni)k)|sSs-kq}r|g+AJcg7K&RU$E`;@xSdgLJCLKo
z5Fd)J21l<%J9F1XC=x<gx_K5G1GAo6tDCun1=L&RCy0Ye8$xK$@7b;>-A<$S!`@wv
zf8KLGv+>JzsYO#1V{DfbuxZCo*`w&mdUYMC^C72_tlIKcXzIwz2&$Pc)LxRf(@%2H
zvHgL!0(rLUh1};em8kviO71<rNN354{N|BZ^Lh)w)Yt!Bl@ya!BV!;<?n%w-kw1~p
zMlafBelr-B;~MQN-Wl~!C~2LWqV!8ONVu@PTZ&maWn_C>9h_T$f1v%S6dksz_&B>f
zPxj~3Bk9WE2kfI55_<g~zGC5wZJu;(*t=8cf|(6V!XvM6p8j^JV5JXLdvl<3lPS^e
zsQ{-PRel-js^A*@PU~mF_)A<Cc;>1z6izq7K4k14-5E)h=o)Ef5>ADNW4siXtJb}3
zK+CNggK&q#z>kiZRLMu9MIWdMBM!IJ@B77<)1F(S$l*UuB)Zx7!(Z3m@yw{tC$eon
z<KaAsCZaQ2eCp6dLA4_i*+#SxK+bK!n^K;3xv$Zt{twj@kGC#ZmE4Z1aIS!#)Q+tr
z0{oL78}{-*=_hxmDqmP12$5|`kG?yH{8%#MEyq|XKz8?<h0l2Q1mVS%ovq=-nS9vT
z&0dRP`ds>gcfZ2p-68*Gzf=ZP^G7lQ>3n7VoX?06HV&hNf1>qG)$7jK)2v<GDtap_
zlJ$*bIaWREgswCBdzMf`-eI#HT_^4LrhY~6IqC9iI&ITRnq{==VFze(?51P*B1M7F
z5A%NJjApt1<9i}wX{XnN*&ft;0mOQ60vSQPo5xon_GsO}_|BDD3@tzMAcuS6f_V=4
zQY`f$yjcbg&Djh+(I-o;Cau^HjQ6kJsY-{|UHqi#oh&u%kE>jGLC93YMs<V#hsefk
zLga>RD&|{kJrlF<di|@cXC)>z+8l0a;sJ7(UOc@>aA4)cLqGebCapp7a+>8Hx|q>3
zIhWExGs#xR=TEeE6_C}bxUmG1><j&rot8EAT$~+oBc~=mejQh^%kO?psh6{V*vNA<
z4#%!oX`PdMKX26}#0Ds4*BA1wF}4f8bMfhX#TcHDr&w(`>K`EZ(^{$NHitZ=fD5Ge
zqh<72)iSoafYp_M*+rqr!7Q1B2pe@RzI+&%9<!?6sZF`h?)FoMLtY-`S*!2@P1gDP
zD-pf&JeJLeR4%2Sbl%|6PEAUEZ$BpGG=Nt&vOeTcr%(tK_o2V({YdjHhvbk`UQl30
zJ(CR0AHD2->ks`NxTo)%wK?VWswf+Uw@)RZ(z$ECK@;u-sQaDQy=(%3bhaz)NurhM
zF*@JYa2Hr(0z7EuA3dt>=W1E#LnuY6)+%g*=E7^VW*InOM_-2h;O2tQnN+Tr94C7E
z1!{NO*v`ogAafpjjSu$NGUNBWWj$D8?#b^{cA^iGO*(pKs=iaODcZ{)9L=0vuxL^L
znbvK0Jb6Ah^=a>C+rpiin;6brlONNIcGJZQE%a&?f1*d~S5#uX@xc)>J*HWC*<!D8
zQ}1kwobX0dd$h)DJ}+Q^1kxk!cD@r!9VuaeG@|$KcH$rLz>Nm))Mo8ykKV+u<dEDZ
zf!?ysJ9nM)+|`Ho4mz?@pD8{XD;jv0%v;g)%tD25csVK_I`salTw2w4UWdExOgY@0
z_~1vSs3&s`yRWGvL(^MWDZA@4sv?WI-E6k=f|!{7T7=&5s7l{%;b13P813^GcXUvy
zsTbbP5o%fZ2uIoy+JY|~Xw+Di8~P1T)#tWbg-a{epDdDap&kt^k;AeGAvcjGXKh3c
z->%7)s~jxUh#KFGXbj2sLp?kHq<G1>m+x70#c?v@TS8_`cRz%lBzl^%Je((UY+tKS
zI}t%Pldx3kTfXHGwh9l${4yMR2+t~yB^w~m#gG-sqS!b4PbF>hkRRs>nK1aBOP6no
zu7sYQol)=KozR+jHIymkT7c=o;}sQzclmBm4l&hJNzT*|MyKVx>2BtL(z-`09d)<7
ztM5W4MtVM8Oraukbd-Ezeb<eCMUI4;Fd8WqeOvrY-3l^Ow5V*pvuj^lrz{qIM_lMK
zLhZf;E&-LK#CxK+VmYyQx!EJ{0%NNlhU6!%Nvb)@KbnDAF~rooBi&IlZerug^fafP
zRQY;k(wX>4%&}Lf5c3Q^Z|9dBbZjT?PV}J&*}Un~?pT>|AdLuuZ`_?8uWwbj9hy^h
zza#c{r9jcWiP->`5ZN)YIV4Z8yzSBvX-5)NVAP#3Ky0VX;v{h^yREE#<g|s>%tOu$
z`+Lo4YVkfzhmM~l+0Txl=d1i1X!sPil2GpXg+q!OZQm`6*=%lRovg<*SImT=+`Z78
zdu}sVU^X7N*3WxO^&+Y(hLl62<-dgQejTZDqTcTc5w=}hA_<Hiv767TS6B^#U-3C9
z6?1cB`-;7FWpyW48J2J3uKC^~xqW&#6Dap&d}xZ;f<hY`^6WNv=Abjv9d?yBJPD5(
z#Cb%;O8-9hWBgCC@|-<Fp{KIXJVIL;;G}ydojto&l1Y{x4{QlIRHgG3MKXrnzYHIy
ziJ8Hsoi$%JQDO8tqjWg(s+F`GtBC%Hgy<6q9o50%(&<ov;XR_b%YoZ+DW~Oip<+U_
zY?KM%J)x+hXAI^PLp}|w4B_&*-HRIP-YW0YJn8|1Eh^NMeRXN!EgSJR|8<$#w%?xf
zd%Ae22Xrw#`@v$ZjJ@otmwF02x_bI-E`^QuJ76(DPmpBknh@>VcaaLg6=p+-LZ+<?
zF)N36%M8$zW~u=cMysKJNUuPTTvxt3Ga`9*_p+HuJ9NuFq!ON8St`${>+aboimwRb
z+^EdFS<e`5EQTu_{j%-)m508e35$q&>NyDSO0|wrtmJkx;HEaKrAV0Hb#C;e*lv3Z
z-4qf>5BDlMWn<0Vnhp<d$QEeY(0#9krY+W%h%zD0Tr8^dO|yOQ%Xhsr0hI0=-{QVv
z4BOMYD%2=bvK~B>PZ#)fBou<xlveuWA{2YKcFOvm8!Qz(Oy&R5XzdN(d@TI&mDnDZ
zcv@Y$@cM}a)>=^X8n^QSQ7Ms}RPT>|k#%O#)ry=@MnVX$Po1yYfP3zVNXTN?%imJ~
zgHaHyT05<b_X%%^k4hM+j$0(yw=#APA%4q`CkGdNq-j4_O)!Xb18M%3LxmFt76s%t
zV;6UKg%790Z<9Gs+%@%zCo(y?GtpjNZH5oHZ6JD|et5qmw~y!K0|DO>sBCak{#Vf`
z=g;xDF1gI%59+hG0j|!@MN0w5Fr`ETEw7`EVYVt{_!Z0S?BV)QmfZR0S7fqfa&~hw
zTWd`9rAKDO=`K7BD#A@E!;KndM(nf5DydCZ<A<emE-zkaSo+U8&Pzy1c~)_l>g$ht
zUv3q4SeTp7Goo)ME5lD#0+xa{JW~Ws$2{k1U92;tJePFw$yqa5<pU2gntV3MfXi7-
zzq^!9XY9M4|4KV-nzjmY??-)qg~a?x?Fe0w*~mPy2pBTf)YPPf$IL@`vW^c4*g_9Z
z?Rs3@-QA7J4-e(cjf}reC)<i2Wx#*cwwNKi&%4-eL@#HZa>|D%J#)fNgPeeaDJwd~
zR1q|`<-3h~MXne+lqti;Ch0aaKW!a>S&L@&{`os}fS<FW)n9G#1TU-vPd@DOSU142
zmCicU3k4!zJ}B1f&5IEaIo<teY#H?Z7gy!YW!dhuq4AB)`tEFvT2HiY;dn97VW-`q
zXL(a<NNmeBTgdJ=Z0l-*rhg21hxc0lc3kKx$3~|AoJ)tNv-9}^iAd|gAkaGhnmX6%
z6vwvN;GObmk6-vgiZ?wehJ5c#=~|lG{nc2qyw}sMF&B9eN>>>X^8QBGe%;nsiKAoB
zuo_EE$&ia{z}R)O^PU|F{>z<F*rU}%-E1k>sWKM!vuff#;mS703;qVhWSG-%c9@%=
z--%Go^Fc-_`<@RjukcBmOWNCS)c&3!SbjR|(Xw}X@s^q=+#ZF9RO&eY{k{PteSOf?
z0mWj@*s>U;W}BWatnNLjP{MxbdsS^M*AcOLnUa#?FO`uFxEG-<wRpT|v8I(J>$lY!
zbj01$Vi~aLXTINdwse-`-OpD!IW<)u%OL(7lNGRZkqQFi*W#?2y^fVxPs4b&olJeB
zkSsFyXj;>PsgNri+xz+XO~)`v?O)Y64YPhse^MbP_B;CQt8UKC*4*42Q=x87`09_h
z)EysPS?>s$)%L-OsM{Ynk9;m2QaD@KTUptVHAoYgvhW(rk_$MfXxYDv5^7lRUS|#2
zy$`lI{N0^bJ)Im{Z9lM|QyE^};#B#*vhCCid$`gY(bC);Y^1F{s9m*uX;u{LGa1mn
zr~Iu$Mb5Bz+bic{6)_m6^y2CDgLQiXGG}*pEOvZ%&F291eWy2usR8=q4doy;x0ZA3
z#rh{Fm3>EA*^bsbmlz)mYqxNzWl5o8i7pq)W&G=6icVo1gEZ9Ua?;qErNMdhi+)b<
zb}>5i=o2#YBg1;#wAK90cLKKS!<u2mkjsKpt6&MlUIQ|GvHfa4Bt$k#aec-<Zm<bt
zyyoiS0x8fdp0dD{l$J_KGs{NYTz{0?s~u;;8AuT-Ev~3&FKBMQOp)<f|8TyD4wvGd
z7V|xwby5miOE%sofMQOjb)``-@cKgN(cmW`lPa6>v!xL9`)LcGL0X<nXeS@eMgPxt
zP1`+8o(rLSb9G>&G83=ge`E4zwc~)~-~)2(#c)J@#Aa@^aPWT9hEB)vn5GhPX2ygz
zr*QXTfYvp)(JExG4&t-^t7-MHm#u>mbuw*@lnk-#<B_WmEETlItZrww30wJ18qTu>
zZ{|h-93xxN)O1lZ5*{X0Td|Q)oM$l~X%`V)(Ql=wgxS&+nTx<;HnejTF+aD)3)#G;
zEd$(fn^Fxoum5DA&xQ@rfVtO-3YYSAv%oq9dO|p7ivdWu8f(yM)pA#K#Fx6dx{`u|
z0@<2}X=0B3d4FB@fgD+B-7!^CQj*E!al#Bl6=pk%gl^ppq;RpC*u|rrar~ln-pJg&
z?mCiyHBjlGl9J<zMB(_By;#V_MM^G!>n7XpFY!KATDH`0J1Jewf;upJo}TSMECtBk
zoUdRd0}oKg?9t5Cfs4(4Du0qkXJ#6|zdq^X$zcxZB;t{mutC65R$}EmzMDE_)d^0^
z?^X{8V=esy=3EL3*N1bIs-A|ezN>p`q5oAYNLpWU)ynu!U+mt+Mh=^V-H$iVVQOq)
zz7`dieUl0ymhwlx#5Y*{XKdB9GbCJw!DP~?QGtra-+kwzQBx<6ya&wzP#dqADLM^h
zUZB&(oo?i^bPBn((hjl!d}iginnn$YRL%pukYUjgQ4x&RQt%H@IN=5;vNiPL&oU0%
z<w*3>9FR{UYJl(5V_V1f%gf8v9LdIi81EbKGk-5DEp;_*551^*{L-jz;&1q~DqJo)
z4y3qOt;hf@W!ZkcCZfcG_W#qz({Xv$fyE%0JQ{67WwUf1Ja|x$B4jR!ODv-D*J*7|
znO;2;4_v2i&%G!upV9_cX1Tm!so7XxUw`}N3e9F}Zr&nk%>d8_6K6G_{?}G<paO+)
zfb|19t`^fKOO4}xvf`uCow8@c`VzP>0BKC1n>MmPRi8|mS8f&QRND*D7;9^5%PM+Q
z_;Kaz&TwmI)XI*F{2Mf586UjBbdf8C9vuxUVH1H|1l^|AmA@~csFjN>j<+~6+C`5T
z&JJt<JXkxc8~!Kp?Ut`>oz3@`b3onX*3G^y9To%pzV1PTCs!LKXG0VA0n_@PV}(>u
z6_qYvQexZO%*;#=pk`B9AR!8rmXvs~C<GtlMfJ@8?QywT-HW0Pn1E(jSlBqVPij>!
z<yl)QCivP~v#7Gtv!8VXfXY=DgHz_=_rQkNuU~Hib|yuJoh=&ow2-sNN&uyRh_eNs
zVTF>4iv84+lao|*>(LMvi1fBpwy@(-k|QCNzX|gQNX2`py3)(=5YXS$JXK}e#fVSJ
z=-YL_m-*<Vw6guO5GSht&8PeJJ?6y*C3SxvM`snd3{r_EvrKSp9F&~jP3}wN!6NUN
zyB&_}>nfal4HN^CWYd$`yHi6yl7#@AJ&9!wvc3PUTWaZIo5%QU*Y6O>T}!2ZdFlpp
zg{`ir@K^+(SI@7g<urZr=pBaT_iIwt>wQgRlg$<h@_Z=da5|!*(SP=hZI>jyQhO+?
z*AGe(bn{MyCH`%CXjeWYQCRVKL?uEB=)>3l&GLfOmc@nbC6x-KTl(js_$M~T7GB*(
zKz10gB3HUT7|dco0|{epb-T2336mYN-_+7#x1-s7DR=xpAwN4MU$1x;qSXlSN=k4^
zu1d63`-{mE?cO*xrN6A%Rx7^Je%Qn0*9)W?nScea-iBs@_I5k_@aXm*!Thm8fMT;w
zF(LWqe$HaOG#D2|14d+$kbmo+qOx@h@g-?1p=QFw^H*4dfAnF#UP(R{6bFjMJ;i+j
z(u`Dt&4Y53IU(DI{A>5h$Z<t*z>%)7bcCU@5{kjb%sUs7FcG3ap!IXyQ}95K!Tuv>
z@vsT*#QK(TjBzm}Avj&*LUV`$MUV2b5gO5uR%#<U;6T};+JAgW<Sb4t!5`wT^)-*|
z*=z%yOD5Ok-G%5u48{yc7*t?4aL(OaCx~99!CRt0duHOy>_Q|33Ln*9t;$hcb6Qf$
z7UT}m)H>Yg;nE!DbxGGFI!-cw7LI@JN7;n|HOlFB0P`FoDF#j49^tFY^Dzq0j)ZGf
zvBjAmO1g3_#WaqP0wX>wc>kxiD%mt~?P^fn6A=ilpkeY$0~f2}k|qCm-8M);Ev)15
zGD-PmvH%4np+8s843P@<gR{J}5CJ-utfAqNO0yYYJNqS`v-mcD0p7xBavx6$7cubL
zd_AgzY1z#PAJe}VwfMOJ0X|XqAARue-0}aQIKj!H{Oc*|sf~yY%>mhgF-lk2=cN}U
z!N5Ct40j0>NIOI8j6-(o4p<E=LYYv*32A!*^tckwpNG>H#s)S9N8_*&2;=GSf607^
zcph{agJ;%4kCe87()A7&(58{sCRJ%cl5Oclzy5G+*LKcK8ldkCO&Ti=l&HzlfFR^>
zD|_2JNSSHEZa75W|E4;~MmYUB{zNE0nvB}sxm0K#=I+{V7V{9sS~QpJ$4tf$;OZuq
z08h-V5C4%2?)5w!4F?k>bIwYXn>=edEsvT83SLHh{Q^%qY*jXH=hTMvQ5|egBa6&y
zY?ePF!V36nq>7SmUAv-gp<ZuZJwqsrZh#QtswqAZ$Ng)(olR>xOlJCv-iz7u$!>9{
zzY49x(3i${jQW=&AY2B9`ucK*KE0FVnN>lMe)Gcxd8_8@jXEyAGIhhcI>Y%e%mCN?
zdYjh{OX*VMo=!uMDd5x`B6%DO+OP<4+MTc^Hfgc9pMhWzPEG)ZclxkVI7!!??#sn2
z^~VXEetCdN7~Ut6DJSH6AEdQ%LWo2GOeEn@SN&^>Fbxev2(C45{hM|+`~|X5h9U?*
zFC?K^rGOJf9chj8DiR68f-`Sj)1={t3N(#yLipP>Tug^<`4gmomB5UIeSr@S2u0b>
z!ztIaz>4XG$a=&$6H9S|nAg$6I%MgW5(l}M9rH0=A&Zuq>R)Hy?C~w0np-|-cUUVl
z|FmRPyY7m3r<crkLX5f8-cqugVJHw3%kpRsz=RA$nD&dcm;(*Dk0{wZ%GeCEJYKpr
zL1#K7{>{6Zg+93;+okta?-X0mu95v^Y6)V6E!Z{y)j`x)Z+-H?T;!8vy}??<)mVg3
zSjcDw$$gOKp26fqsPlN7mXgPLMWUvj)lmt))y0;dc^LsUlx_h(^I=gd2a(XEE=~Z5
z4RoXDAT!X1>|eyEuk*6yhu9NL)$6b-7A2|H_jF90mcCdDy86f^5W4!Nc|C!a`$P=W
z`{DV4k-4wD4dqm&iD`m&f4SZe2&;rrL6jl_ZA4IV$|MH@sGYtjZiwENp$17H*K)~5
zBOl_R$XaujBZ0G+$xs7#$SDX|QcIX%;a{Vu<%ER2`(I@J|9~C-3ocRyEI$mkPb7N;
zV6`~uRw(Vky#sov^oY_d6u`F?fN#)t<T#8Y5+5aNLmaOm_78Bh$3Q<Mz;WPSko7Gx
zcFyI&NH$zL+Gjnv2nK*W@b_oWMGGnz#Dh^67}wHv>CX{{`h5N74HX5*=AL6xw4mu#
zj9wB?aVtL`sJ9&7<Gs}<aE_37D^jh}A{O_Fd#JPC^u(l5O!Kl@NZg!#>L?c<I%l|}
z_nY;n8VH0q(ZE01mrypR0Y;MWx8ZsvNw+Lgft5<mWPPANQ~6+kh%^5sMEoC3t*kwD
z_E9yqq4tMYKI{;|G`hhNNu3uyjT?Yd&XxU@6Y{oC2T|kWJK(7IcI905;4V7|D{{bx
z3W4WeMIh)=h5zG6^>RE^c%jsd(wFkoGpx>U+9Rj}qX4G$M`Q<G?vV-3yrB=Net~j+
zH{ZlR^#UcuC8(>=rHJ@Jm3pCO<MnnRiQnoz(`qh)qBD2-LxTo$?-61he&@i<Calbw
zanssChVM_#w9eYr65T|H=TC%yZV2{ymxduKXt=H2Zgh^D8p@_`tn_D_NG)O;ldn-D
zD|9toGpNZLyi323uFqz`3-ZKWpbJ}i8_&rDio*>_mW~~dY>6BOA#p13hd7vDW)oSM
zILL@RskATx=SlMSv$`$7!d>GQy%Q6-Py*OCo4qe}+6DYN3P01f#(52Kbt+Bgt5<V-
zHS|&@#%VMV#?(|RU}fqm4(MIcCZ^wk#OH#`qCVVBIm*s1Idt9k00Hrg7sRICNKf2p
zi{gLu{@l1Wt5T?-39+QCWP>w8-v;2>kC+P;uB>@{!KSRR+*uU9$UGiAmjh1WES}~|
zf}vx=6bS+|puCq?i;N$EuvE^yb$vLq5kf>~b3$;(&lMo|6Ht_g>cx@)lRXX&)zaU+
z0J&vo0m441mKNao`HzUsBX#^!ftBfgKSEg_rA_`$>~nKF3^z`tf521VcK;@-gRW<1
zFHl}{JSbx#>~u0Ggo)i4cS$iAOSxQO01(6vVoSWRJEF8R$)wn;5XS~pPKX}cQ(jO+
zG*qfA2RzVE9SgKg1y}=?6}@9({M7`gSezI`>Jt8sJc$E(GK?oo&_kI`z#IWA+QmHG
zq&Vh!hJEFIJpU!66HsoRyh*SIVRIUwJ@=!?9%?4!d*~J6W!_JME=keuoEn|MIUssS
zpvwR5Q=-7^1NBa|$hKw~VL%Pl0iAr&84<~blL2EPl3Gu*c-;szVUjottVj_kdYKvf
zx{Vx7E(95SB9H{T8a?IAkH9%mj*x5>0k{sZQS|5kGfQV-*baJObS)f!B)d$ArGhHi
z$U>#6m}khPOFr4-(&I4`FzcSnB>{3qqvBR3uK(QylIBS0<k2t@ox>nb_SS3Z-?~<F
zl!4SU)M>=6WV;Kb<4K%+_nU@5!vuH0O1SMLW$&5`TkgjmejBC(5#W%kAw6$}6Nc6@
z6^cOgOxH9J<e+FU+bt{n?7Tg+`q}||=VHBBHvXxQ_kv2K_@84Y(uEpIFTYREFs^Z>
zng#8t{Ld5`9?=$0G0~N|$X3#<K@v1XjByn~^tYIC7nB3}$7q!wEFbu~N_C4RkMvtX
zt{xkx%uw?7p!1A{)hLIAj5A-P`OXq7owaX$A`^iG9T}Iey@}4wF-z#=ge=}es+yEW
z&cpcNN8d|fv<Lx&Qww{nD{L6d0}gOJk;{f^Y5@+4vCDp4i*pWI&OE3<@FBFhVpk?`
zG2wV+B8SJE5Df#T8-j&Lja+MxMH)>-ZfhWN#%Gzl)D!Zl{?$4~7x6yfuWZ_X3T!<2
zs2RD<yeI{#xHX0_9{3xOi$#Fec8XL2bqsEY^NTV$3s+|@BT|Ac-H9ap*d=M51pg7J
zx61gu(%VdlXFe{-)mYXs1~$Rh3}3oOMsf*?kjfL(rc`O2fPl=#gF^?>kMx1{6ooLJ
zYxDG{-wx&1?Qn+`wlIDsW|I4SD#gaA5ZW@gZ2*ycR9R+bem0SiTv)J7SHN2tH}j(A
zK6oQE5bf2yU**3^e%8@fO&gP^X=ue&#2~-<?NUK8Uf3{56MI-0zLQ!x0}5<0a4hiz
zRBJ1~bX2_Z1`ZPMW+BRZ{qa9J&yP>muZY{wFl0ID?TN}|^4CMZortBiVlDxFK$oJ`
z!)*Q(^^^`R);Or$W4)UGjW=K<;V*APt|w=A-t4Y}>73C^mO{6ZAWbiaoh*zdU6TDN
zr^FFfh*LzEa)(0~5cMGj8YI%f+Ks%fci1U`G0KjC9qy0`JVFJa0lj2@LbHT?#qYNS
zA$qu4hy+e9#J`{j=z%!US8&%Cv_8xebj3v*4>-L5aJnKQ6y<|BLa-x95%*BUsBs7$
zpsxaoAhNKZc!*d;1fkG!08E>R=$stkj_`cX>m&;`$PPCL>w36-PDrX6t;>62m0nV^
zWn4}5>C=Xku;t|m;L9%t8o1fFTUo=bZq?$Td)m>a4l=qpo*P>MqVfALU<n57l5Ew3
zQv_~7yObP2Hayy}I=*9rD_jF8`~ch)7~bgFc;wWkkCKhm$2AEYk@YPp2KvcK9Ij%$
zV<rh+1)CZ#E&&lkOZOE{P_j4KxghF%<}BxjA{$<4dFwJD0Na4E<TcqrmpsM;Je7L?
z4xq{{fsq->{R@qR;H>O;U?jio_pfvZIgUTx>y6C@>mZfC5CXL85~~U5`nCy9s8A`k
z%`pz34G#l8qVs5kA|e~1ZX*Vj`8SoQ38=)!r(m);MJe1I0^wT~`0X=qy~*%~fH?#S
zs4g9_rKC6?P-#k9(q}CamrKN<EYfU^pduis|4j(`DLe)Uv`~-iVNUn!jWAF<-mgOM
z-$|Usocvth6u_ZMx*a~S?~Wf-fi@WP5z&8cQtp^^d=E%Mv7-FH@XfLP_bXTbZV~JM
zQ&E8n6v4fP0}QANvJ+sQ8nQS*e~N)K_pEVCNRH9Q4l;?bus_H1q=9YX4}mEbO8^g{
zGEdcJ*nghzPs!Q@Wlz7jYuOwRz@S;f1q8Ox`;3fIO}VcWyf%jWVcX#Ea5E9OU_JW~
zOFcjp#R+lL1DxT?a@^4*_)I;)fE(aB;AZ`Q8HWC;_%qODyB-`hPzWdwR)F9@>>=if
zdbl8ZeZUCm{1t)(p^Rd*;fB(VkO$(YrC2xvQr_zC3<by^wDfaZk*Sg4oT<va=@lT4
zT7Z~cq6y^D?Fh)b>6WIE=Fsh+L{!Q#(BYJ3j0>DyA1NWX`x~1C-Oa2CBpli+J>4yj
z>mpkJ?8CN8zUn1)wAa-&%M89WDeQ?5axLOtlNWs9_9Eaozo~9*kQ^x$U}5+!MK1|C
zvM|PG!n#xYyCikVDr~?N-EREu4=BUjd@gIwq`Ay%QJ4*@(zoq=IOgYv$oO^U7c)qr
z6tLd)etWxQI`zx-*RQ@EC)(wQK_*uXy>y1jfvj^vi9+Q<o;NF{PNX0+&1d098FiRQ
z+HX1o$kvnC0+Rj9m1eypU4i1M^>wM0EXGt}*PCAB_Gi_yW*wobEC<NI@ttXrw1Dqi
z==>KiGJpr{T%Oczoot<-ezWac(XFcpTt;$zie8^AW%`XY&-jGI0Jo2JIIKyP?UR@N
z3e~Nv7Y^I&F{kSY-(iX2N>^?!Xy)1pFghH<tKi5a7;>A@M{px_BiXoV014Y>_5dnr
zOI}Rt{9%a+=Bb7OaP&YALJ;3Y@mYzTsB+iF<o|3-YJT>XnzH`!rAF+Hwv3gvpt)~1
zp9FaqEQdP#$q9XxeUOU4Tr6S{E{(?be{-_4DOGYS>UZ=(=&m&ds|i-L%39`?fS%eB
zly7hPl}4y@u-efG_0-0re~z&!C)rhsrN7#7GpD|bP9nr?YWB$sHN6MBRuFWA-#m!~
zL9bJ#%E%1C8{iXVT2WeOeEjF6#=kt1;C8>UvQ;w6-*U|<Bz0E$nVvuF{?)aH$X+8a
zckUKeJ6slU58HQU4eq?O*sZoI-l?I2^0SEC){iXgr_eNZ9PU!@>^BGGG8py48-G&O
z2S)DTC$KJ6Leum+u7&JeJ>71rWH+cWvx@APGb%h<!#YP?>}W)PdLwioSl28^&S3KJ
z?wood#hvr)do^0MJ<SD?ZB%ax#9u^O!i*Ei^54t8i=ghr-+EiEIuUfSzAXG1bS@y;
zwD8bRPpv~m*Cb~Ju)y?2c2!v^u5YcBB&;*KhW}wj5U^!71uE?<SVePgnZC09fyOrO
z;ukX}xRcc<_q^lrj7>dmbh3Dn4!;CB1=aU#gjpwkJ(ZsXxq@xj&;xP>$1vgNrf8xa
zpHVkZKxG_A3hbIdmY;Zv7kk&uEgWQVTTn~lOQ$dnV<e!}^4}A8N6<c1Q8z>8d6RGW
zA2Zcb2;*Eb9E^J7O+r`(|2ESHIGW~!^jBMnaijMAB%!Kf4}HJiL+QicODYn#lAmjS
zp<D|fTPE(;cZo<VFXZLEF|xT2Wq_)u|K9#Ebd4_rUn?1-5hqV>SKRm%on5PFd|7R!
z2RuuhY=-e%Z7kCFdoS!Ed~GEUaf48J`y^>z>k&)N<6*7#sNa<!MUvz9?Vh-q4;vf5
zCiqH_Ti?x0)B?$Yu_V_`nV>tlX=_De(*T;DZteK!nob$AE2^9;nYkXnz>OVXT-WN<
zcveh2*hSyjiNvwcJ!i8mU{HP|r+tNW3YXrt25^)g`<oyQ|2h$>?nMSQNVnfrzkgK4
zCYlP}KdVF}{dql;Yqt*K5BWDJEsR!MZS4Rvu>a*IjsN6o!UM2$MdC^;&h4GoCK_w%
zD3qA?&hyXhTH|_bM!+U+J*jh&5t_Cod=G-tVa9ccjY0YfZkqY)Eu-;z4?4M=2a9w=
zPfGEJ@b-nqkA-oD_{VEGi;aVD(ip=kKuhHExS6RYkKMBiuc!|;B8UCGGgFHf?i@r%
zdZu~>^L56WW5smz!{UW(PK>rT+ZX_x5uV=>mEC6bWLSFWEL4dfPX3{fe+RFVeWVcP
zh`@4imLhRU5y@~PMr9T#Q59##KKnQCAp(D#rMF)jtSMI<zG65Jg0q8Ih^~oDh!zO7
zKAa4AfY_L{?TJJa7v_O!)s#ykgu`4cw}Vwj>}w|c1)9n4iM4yj4!>_4Cc^NbWbEG@
zX)-q4)NmpOx2MvP`88b)PZk3NC=xmOq6uJpLCtJ5Vc{91=3flq`R9*}&Qc?H2!+0|
zBR(ORJA*nIJ7v1!RJ(2%&U1>co}z3YjSU7yl2V7}dRgH=2Z4Qtw<9*z(s*xJh#-Gz
zzJ;e>FsrKjt9-F7#5M2vDt>z=b3_9v*y~$DD93yC1c@ceR9Cm4CVJ~WZW1&N1{0o0
zGR@Td3>r!i$R4`pwq&?*Kqbi^swe#UnF_1S+xwkwK_tDxXA`)4HGlwg;d{dJ;t%B1
zL(itD$t-)!gRdyfA{b_)Kg%(0IL<XV*SO=hCQt71tm+_6;Q6y6YBD0=oS&4|3jwf7
z)f_3jJB}wxpW+R~*SdFh=}{9V%q)}o3&e9+)~5d9vroQ$=NvHf`dc-ABJzi&BC{`{
zKgH)k@Tn2AM>}3pk4gnS9Cwe*Y`k_usM(8SVys+&QPCA<)c1(*d1e7#4-y`4u#!C}
zz8eDPlztDTzYv|{`3_8b$QiS+Xi2Arn;y4i$1kj8b1>Hr{j8|@6=juGUfA$6?AGTr
zWPWKEIZuFsI+uQ*v7$zS#G8?R8Oc(>-l+&-IH?B-dv3vI>ltBmV8Go>wO>3|{`XgC
z_+9T;`4~0q&5H6l$!j=Y7*bc9vOGzPfVsd|ueqVRZkcc4N7Erc>`XK4o6!VIycDia
zzMUi;QY??0&#T@x=T9Uu9@bp!xl<L~!v6^Og5y91wODpjhY0SBk}gO1+Dr@UxUw(f
zmf91_HSpQ+*q~=bvAJQIm1$nYrZnBzE`uH_H$JKJ6l5nx)a!L`p^6grGPXAz+Vf3+
z*x}7`@lSOb&=gc#_eXtu!N^<t{P)&}hK}5yS*#sHI*SR5=hI-5<_ZvXQ8ZOWy+SH<
z(zBim5d}|~Z-J8}-n3JWE2PD1-JvooOc(GJZ`W@0mJX-&Ra^0Oh(Jl$u;dm5yJRn~
zgXbyD8qrh<I}c2|B%XL>sY%-%EIVgL)pig!Cy&@ECP8^GvNw-j-m~BTC9ec*DYLBD
zn<PVc5=IvTsd`*d<zgTH;Jt&#*uDRRPyP!Qy3EIt7yfukKtPcq^!Hz4AgVf#D<0Xr
F{BM=J)s+AM

diff --git a/reference/Rplot011.png b/reference/Rplot011.png
index 027661f3e88818998d903c87f8b1f5b06cfcc469..c7f039a2d47ca7ebaf6c2f7f6c13dc3ccedcb135 100644
GIT binary patch
literal 14716
zcmd6O2UJtrx^55^E2yX_B3Mwcfgrt#4FM@qM5XCQ=@5}7B?NRUTct>oO$X^9M5PB3
zaJvPS5?Y9W5D+1RfDs`HBm~~S*yoHl?!D)Yx5v46yzv~^$Vymqt~vkzYxA+0iT>sd
z;u}yX)MkT==gd(kfnntLy0!2fOb;;;{#yHsk^VXO8-6XEt;51!>+f8==7U0Q+=l!X
z=o$=NM4|Sf49@9U-b<Sv3{KcSmcBe=YURh7yDb;_?tJaK7lmQ#-`YxFSZBX2&g0F=
zU+=^YlK(VP@nWBgS1wWTQcC@OHK}Rpf}?NF+da3;PDiCgCFP8ti}Fr9wDqx``itMT
z-MDchzko?%ii8d(hbL!z&vuh^y4TP?a&pj$Ra%e{RID>dR&CzpxEgLZ!M#oZg_3x@
z?gk2Vd|y~++l%v0=jy2ZcK=hT8y^mai5!eLJ3n?;eWnV9T4(>kU+{<Zi4!NPQc<W~
z`?Lhtq8jh(i8VGXv2cF<t_4S8FS-oX2L^El1B|-6=oMu(UpGXFD;qXT_(U#EQ<seU
zJgSuV-I+@jUJZQzwoF}z%F0TO+168)7@og2cOpk)EWyIJ=dwQi(H^gfDq@HZZh4Wk
z-1FySQS#@{g;;I@)?8m-KXZDDgcq(~ZD-5LHHcrio=06KZg_a6kEO%vvEa@X=nhU3
zZz&dCJ)RGLw#e08ioJLazAOq%$e$9Awe+T{c%}@6%(it+`)ZV4lztJS<KVrVFyM^3
zlPhj1P>-hSw56(=y7#`k92{I1$}Z2O&ooQP8#`3E#KwKht@7x5L2<y^p&R&Bay7&E
zyXI`=3ihDuFIRuL`?SBmU&*;$!Z<_g+8$M}9=so;;&#hU{x=!j&KCIw+w0>k4oh$B
zgQu1GGcnkn_H<2FxJbxppYc|Dc`5%IB^=jaA2RbkXy&~b>yM4{F0}S^4aUpzxqf$C
zq8)R$b6U1cW{7!dX=xr$GIajt3H$o1Gxuy&zubACm>dano)OA*<<B?k%JJ|%rnvP1
z7_)Bc<+(}{YWTO?Yh&4Le+vf(G~A<bN>u>U{@_PnU*Cl91BBq}*jq3%g{I%tea3%x
zSmsjl=x74#`HU9n+w4LYhGHLFT031eV91ESWnN@i?Y9>**EueaT`=max>6_S7@4e#
zB?hwloa;PEL=5j!S%HkTt@p#)vFA31)l?3VlPu;C^13-t3cKh%TZzMzHmmG%Y)v>~
z(TdC)KHV@cQaZk6?C50XUEU^C^sNVzyYC!`?eHOK7vMt1j-_Y@l$A9sal1|tdV8-N
z+P41v=uFq*yGNVjrKkJK3w)_RM&21=Bi`L4Qz$Kd%l(^SPHJsU;wpS-CI;qqc6RhP
zp3>Vo>zKrW>D^A~Vwh+D>HfTXT4gX5IuxI*jq>$o6uW@*NQEFqX?2C?fQoUZj$K@Z
z*PupQx~BE!&6}T`JHUl`EjwXTWl0b&db4z-8YcCk%EZtb?c1NW^A~BlNz#NLe{9sC
z=f+pSf>u^hDbC3`TV!e2>0%kz)7yL4z|F;Ff`S*{vu7+YLqkJjyKn@*FKokJzn;s6
zhvO$FCd>}R7P|F~#^~C=zIqAE?ar)lY7@td?x8*#RWmH;*5J=|v$~ArUAuA(V6_KL
zy>6aEb`#}#w%NtxOZmQa3`Sid+Z4@v$#}38rPj5n_|)+86E<^=f+7j4_HTPEn|!I*
zOtz3nw1@T9sZ6oW@lYwbbU5c2uHHP8_l1VnK2~-CgCVqQb8PJ}EHd0xTrMG)GYJ*J
zYdACUL>Ui$ycO(;NQLVSp#*y@pY`N<!(?$ug-4$v%*-WPMsQg!A4hXi+^wvnB)ffs
zYjgBo{LfFY=aNr3M}Myw72dI7O<uRFoll#xP~~gezjmGU9!r4`7|zi|L)ZQa*C+3P
z;U-}h#I&I{Y<S4ljdiH=FNMW@AzGp+Cr0Nwlnp$itWMZ9y_y<Y*A%%s$HG+G3g#@6
zKjqB&Xc}rBJv#r|;PwdzqOGWmNzY@MjKZ7m9?_S0Ov<n8MUP(hhcb1Y7*cDZ&9aQz
zrEsQespT!yHI328QwbNPec!GTo7m_uf2L2v+5uCk;@O`Im1OrRr-?M5cDf1yw?uc(
z6lje7q@bspD2PG{?Y1O^37~czT{j#GkLj*NK{J-h8{$0r5+s0H`npXCh1&UJ(=KQL
z|0uHps8?aAmEy_rTvzX~33c-G9Q(cTgTrCveIE3>^pe<%(zhayV60wHVX;)AsYH9M
z<%n5LSxHmVh3Wpv7EXWM_NWUxgd>pGPES(E<RhtVFnMdt8;Xhy>H?U;-`r1}&3-mH
zIav|R@uIpL@vy(W^G<sbYJ=Am7Z>m8>+72iuIGPMi%v;NG1P4usfH?e^>{CCl&}qE
z_Y-Y)a%yT*Zs;@GYSL^^N5_`WA}OmeCWSbhwMP0CjdbDMCD?N0{(kWf>iZ>xkHuc}
z<#}fs!nTxb*p_V6fkIt9jS@uN5D?ge3R|=KB+S5;#((#l#5H#g$6xmGDNjjF72%#}
z;xQW>o{Gu$?hW{|-?3G%g{{076_(vpjfy^Z;5w|7c6C~s7l+wjX{6~t)$wG<vF$O<
ztnpOzm6hvczXj+~rZea^)n4SOzVb1AnNxdOQPdt)x5fFH9mc9nE~8CRak(ie;>ya(
ztP<^}T@TL?(Z$jqz0(@q#CVDyxMd9Ces0$iQT@l0rw)D(hN|^?10?h_Xlu-=-Vz3H
zql`$iYgyh_Q@nkvwY~0t=k060ec6om>sfm0R|TJ};h>RaMvy_DciICvg``xk$j(G-
z`y&QH%wTGXds%J%Buh+CO+wh3;E~4~ow;`-seNzrWhh}cDj&RL;>)y17RJWL`&jVJ
z1F`E~Rx$A59L%%*qEFw$iV!T4cQuP?$s(<PeD1!_84<3J$>+KN+;e#c`_6jp+n3Nf
zygrg!>+cFXsz=SZ`PD+J!-al)e(lKWI4eT`Rn(-ToTO7i?=G;`8uYW%{?RBHmkSkQ
zur9!wu=F+j*`>oGo@awPp%-I#>?27n3-$wkc2MWo?sdnu{-4*Qr>AGQwqRLF$;Ow=
z(U}^F=F8B<_p$b@tiz&9hev}wo4tE_dbVGso;$Gh{Vxiz0%0XrRb5#Ku}@D=5APBA
znKm4l0SkBSw0bs_FS_q_x-b6g?dvu+NSB-+dfsiSYd3SR{_DcKkyqOu|H_`~vtZ%B
z&fJR;nGeB;`NHA}WtBL%E-fzf*9VqMyUza@DK0G~|M74mEaKvs(dJ``hKZ7$b4tik
zYNt3ix>L%gXO`A%-0AZ6{+hf2sNu9sY$&c9_W9(z#D8x=|2Ox;|FgI6AJ|-&0If%Q
zo0YtnaK!CMI^|8`9Xo5Nv=7g`<@867&IQAh-|+Ao-fNhpP1=}C994VLJgV3<4=ZD^
zk$3n5h7p+YqO<UikvscXht~A_lV(><2a{&M;ooX452tl#l4dO}EON{We@+<WnTJ;#
z5|6r4nI3W1WWw|1<`k4lQ(;a{&g2+8(MSd8MgkRv(1)QkS;{5N5@78Y7ZuSd{?;$<
z-4`w<GVq_A%EKj3f4rsmOw>+xyE*iqm*}s^id+9O6#joS(fn}y4512c^8GL2mD<}L
zufG0Ym)U{X4_VqW_c96q8~SS4%_!=n*I5)<S`F+Lju;EHZ{Qx5jN#nVP0IRb8DF*P
zU)1*h$KO0twI}Q?t+aXwMo9M|0<y7{v+k^qii*;hEX-MSk&HGQsPeRMc6QF3g&nri
zgy}l8(vp(y53vXNE|Pb)tlDK|^ZJ*EL!mrR2losNyAMHKIA!l!*UFuumH^-IuKPf*
z)!=;b!IZAw?!8|8zjm~Lf7JVaPz6Irqf~wSZYL#rEmN@kq^77n)(AALxb<<Hfw_`6
zg54i@0g>umBiSf=_)<rIrTZa+>Oue1rs%!F9a^;XfQ<3BR54!*6iUrwwPfRY0AEln
z?@G|JT%o;RuXIZsCuQPbQzv|v-@f5GA*gbt5^#rwbg#04pkYQTJh_m=M~Cc=9xcqz
zzmWZG+3wm@Nmjq)%A+T<>?q6Da@=lV16X*m3WuMu)uKhOQX|e}pJvpRm0XnG_JOz|
z$oA2h{k3J9F3owc(9RtQPZPDJZ1(*!$4N6gLh*yH9o!l|1odup*Yk_g=4Ah%3<}Qs
z2unvr=y+HrhJ6h)mm{S;vGnye?M!yo^XEG~2da#7^kd|V9jd+3rCq=N`4~ZhCH6Q5
zUa?75LYUJqb6YLiLgVJ@%LCA)`t2pm$i2An;iCK#d{=$wCDLI}W$;;Coe6IAXoBRq
z)nj)Usr#xb8=CcJ!W*bh2JY3Qiyj@rd(q!I=iPTRlHFch?7yXXDs1&Dg$v8PhUJp-
zc8wBBV30;KzN`d*mq}bgn-dw3I14ZOkDW<YtzQL;4FR$L*qUx09z8$>LU1Rhu|GtG
zBTC9LNi+=F=x}@yelL)*>FMdC+cyxaWwvi9Dl3zFMT}`4y(^)=ckkZt9<+;#nX_{N
zP#R|CQ)|rq$<!5i;(s-=#Y4r$PZLm4;-$la>c}pA^ytyM?`dX5Ty7BH%Dis+lO$I(
zS|s<x$6IfTr#D5sgYw0nOueTyG|CtJDL0`?4Y4S9YCAe;l4p)!Kxx<Rd}B8+uim&r
zMhPYbb=tf&s2hdi&zu`an`0>RGowb;Ih}>=y2~L3fV<-j(Os(m_rIk9;`<B5{rhWv
z1qA-}_O;(QVG6J81IKoF4%OF^7PLt5w7^fd6fx~K4h}fjfeW2l68H6`FcmNOR!}ja
zEuYEmpw%Ok*1LHxO@H>$OIR)Xl7YD|0^xoEEk`O~+Jh&H3f$%<IwShEHkq&fv8BSb
z`>^)RpQ6NGiBnFS1VVP*gA00whQ7PE_4i+2RU^{03nAh}%HEZiSC6iM*MA?n{m-^4
zJrE#{j;Td&dwh=E^6=fw-HzN!k3+T;tK&N@vdw-Vg`MC3{f^pHu#GL{MCCg_KK9E_
zSb0Mx&E9|kZ%57$w96R&15OPO&t!*A+cbNJppB%rK?hk&R?VP&oUJcr1ZU8KZJvxO
zW|DaJHgRrlZpHoWOBtd^cWijLYA+{)R)mxVv$4*2!@O0lMoQwPZki%vX&nRVJ{`z*
zf#qu@pM=2o%ZkaHvaEQf2!i=Ec9%%;x3dOBX@w3@No5gEz#a5N@00YnRo+)zeM&s)
zX!51CT^VMwxn{CGI0fs+_q61iy^G7F{(KO1>9B>BCZML{J2$>WABer!Fe$V(?!EVJ
zOH@HOy|}7-R_pwM*ha1ne29dw&=u;e);~AG`pGX)KVbxS)Q*#8xnxy<NX@+3)tmn&
zD1V!^a3ET6Fo22);<G5cG~E1V>BNw0?|`_^C6hwNpAGaTsSe#c3&j=FPE(84B9+V=
z=@1vk<b~LqRSH`Xfq($)57TblR-?5vKU#U??ftV}d%_-+IyBfX&+0CB(?X(0Kllwk
zAtoG>5N4D(@ZB<JH}|84YJCd+>O_)0tqR0mhOtIEn=oyDl4|yFa%zY$z`?-AV7hCg
zuuuswx=zRV8aL$h{x0P(QwfVw5F`tuP|>ot1@C=IID(&T*ChA#shdp;fK~#pQ*aJA
zpj+vI<H=m;MwHV;ovo;_gO~ddn!#;#*2$srzXx!?iZv8Il_y?B7&SALQy1<gg+iS*
z&qV*B*yJ*Z_v7|f6Au~SxsxTV&yF$luTSNL>%CE^O;)$Do9R^pUfnE;1MZN~^9e2k
zN9oj;I$^;5ps#a);^zlKgz&|KfH&Pft^M)a)`N4+x=S-znOC4lLhTG!0cMr`a_Z2;
zdeOrY+lkoucT&=ir9y>J!&?$I4~v8h3+@;cLZON+RKnhk{Lph~8c{RJ+KkjL7#vB5
z=fS5g^Bw4H=(4QWF__~&E(oAb_9S9Ndt<PRj+kLVsgC+U0BU8uFR$ew*f*;mDC;vT
zm9XX*DO|u%p#B~e53_8u4rA59T(iQd11MD1Donns?Dj6GGHYL)09{ex6LIb0r(-x5
z?i?K;7a;Bvd?3sb`BSHcA8r(z913QVzkQ4sD%OUJw|>$Q94dE?F#!c7+-)NYr62i5
zAOs+R8*7p*gxLuoOCse>QdW|jUGXi&BL;)SIK}vns|SvvP>*Wf2z=@6R4|)H!NW7}
zWC~PQR&G9L132Ipm<;1o6?%e&N$0DZ?+iJ>^yL0A*3H94a<%77wPwy$Q?S)&s^q;K
z5H=@ax)I^&a?XWBuRV_60_}&RRzXWRwx_Y&nRLb7-JQ<nvKZtqUnKr<J#ix!p_f21
z-t@f$MQ{~Dor36jNo$Ke;Za|M751gZJLu;}naZ2*)`FZm2-+hc1FO<~Ab5O?I~14e
zqEwuC%vw^3#OF|P4vSyKxS$voVdo>Tp#4~t3ZlZ^=6j%GKuzuQU}y2_?4OtY8AwYn
z2%H^fsd-Y$?D}6jMqGJ$HJe;w&1h4l_CVt*DHcIB-hk&%#c&3@s1MKRm0T&Eq@=#O
ze*Jod8~G@rz;4`md_u*O(Oa6L9b9EgA-5)<s`MUhGDnGRScBmWP@hX1|9&!i?$UMh
zeGNtu!Vy;1*4AXjGRD!^i-l&gmi3pkBym-)JBmt6t$?GFt&bcX3A8Ul-@kXzUV0nQ
z*7OYz@AnT39J}ts93nu!-+{4mJHC^__F5v=lpUk^l}L(^U*?!+n-xMeEE6X8^jH$o
z<BIJMr<)v0H{qx|0Q1+$#JMzRM2k+;9M2H_xlqrn%;Q_HDWU5(d*eOJsahlkr3Pmy
zyFHG9w@S~s&mDgc@E4EQIG=Nw>TZpX`ILW^@?daQ3lU2JNA&{fJLYw9=8aFbnVFH%
z(<;w_{LUQxr2GKw4-(Dl6Iq(jAP*TFybuXchT*N=uzkZrFGk@xHHj;7NhL?a9%%gT
zQ)^51EJ{$w?@`rb^M?q*EYLLDI9vz*q;(0`N}l2eM1efIe}X7-rgD^c&%UtAI7XZO
z`xTtM9a$0M3ef1y?H1`Zr{tbuq<R!=JgIeMHX5|m*$uoZn2U=GA;e;?US;0r=zXN-
z^8{_Rmy@pFK)ozMB$_6*=$t!hAsu>({!>@A=Q_@6jQlD(H&sq@gI$*ATE>|C;zLT5
zzFpquMg6ejT*26Epr610mC8#>;#L~zWp2+be;&`$1r_&(kaM<~EX#Pyevn>45-PGh
zIu`8dip{hxM*|jyPJ;}=d-u5yNRz7S_LcyBr<j*tkW?<5sNi(E>9&~+9cfOwK^X<0
zBNg+A=Af3m8)=*bDfYHva&ddOUZ&`M$s}{8wRTJBCfA?eKBg$S#vL|J$$cy;GkI2u
z`|NuyEu&cc4d4=GRaJM`3!tEhYX?=B7bSpfA!i`26H?>m?p}Fk<V<B%)laTGQk~hm
ze@HFQH-A6H8TF$W#2<DAQEc%0(+fEo%Zsx{)ndo5-sy0E2V3v<ZBgalR5b)pVLGd7
zUcY`l#hNjsmV$+Yhuypk6|fX~n>DiE4jHs0$y;klQo8btgmV9?(1P<IcalLtHAH6<
zLE2Tm`|Tody|A;EY`YF17X4M8Hgq=fTt?nS2o1?XA;P~Qg)#9AIn2aasV?{^ke9y0
zf04%|NLGOhUcM1n9O4kIZK^yvA8p=qE3&fzAa+T9zSCdzl}w{W{xS0Eut{1WAlq;k
z5vYT|zQGBg`zs6z((XQi_gulFp`3)PZh!_*=7Dm!`|(iF*T*t={vR#u=>b9Xc4$C$
zeW*~FS|zuh!Y)t8OZ#*e)}R_=p@fh!v~3XkV1PlvS^N0-{G+z<4!=xA6R)+kwE>65
z58vO2h{h9nN%rD}RnQl1C2k(3E-!KZYYqG7sFJc8ekS5RcuNpC1SYwtAj5DTdQCix
z_MOy{S;PE$dDx+A|551I{-EhD2cEFQTV~LXY<rxr1P|z}1zUMIIyySs4Z4<of@G$E
zgCE%{ufZX3EK$IH6MXN9q~JVsNqIh>$RVH`#RXwRFQ(i<SKPOYKwSF;BzB6QmF#vy
ztQeV0-h6Qsig|I+reP@L^l$N|&!s`?eK8l%smZJt4QYWF|9}^(hl1R*1_V%zTOU&X
z4M>0A9veAwk+V2UYVl6fp*?LLHOw=II)`c3^!|Eovy{%4nDOjP|L<Rlz)|9;XEN|W
zFhR+{w7W-kx)!95>(7Six$?OzSoWB9v8W4)En^8SW85^(?~c)(HQu9(E<-n;qQ1We
z8S_@;OyxM0KS<r$_#9ZmHCVdUIOV;~`@_7?1y5v0Ag+Uhdpij2AB0Z+eR*P+lEa@P
zE1;TQMGGY24sPGzXA?mM=nGo-il`_R)0_zZ6pp~)rtw}yXj{s1v**a2tB=o}SqK^8
z^mi?xhYh5+0ViIc8~Pf3X8*Ft5z?$7>)3*Sl^bBw&?uf;(qrg%xEy&q(nh^Bq$a%g
zIg^K!Tib~OfV|UJah6+XzkaQ`lxI$)Jio6kBT*9*#K_bWZEV`*2PT!5koW0tcWb>E
zKWspO1_AMgAVB6%vs$;yuTkB_Has+^TK=p|CByOs5?VM>BE>tHXjlaD(F<G)Bjy))
zbw@B6gzY?TC{{C78YxdrgcT*oO6nN6C;j=XB1Yi;-+az^+pgWwh}<4%t<u}pPigH~
z(Kbr}jH_p>$q9|Bk2KbU%%$Dle8^?RH~k-_g8#`R`1|zo{<CR7Xt7?<%@J>in?~}M
z0G0$JeKIKrdksi;!!n-<803)-jiY4>T|Bjot<FTSCEXN@f8n3y4210};tZDBRJU{R
zpt3)gCa`*Kh!iQ^P%VLw-)jCgclcY<|CV{?N@YVFM}*ea`q12<2Mp#Hm=|?nKy*E3
zUA75t0M3EfJ(OvRk^#uFR)9GH;k*P{x&%u4z`xLa${5Aj*?QpG2^qV)x^@;@l_+7C
zLQY(LmF0_tcZ10-ZGbRmvbBR<3NS<r+EIF&`o!DtOi&s@TmY0Kc9H+f@&yDz1ZP-J
z?jg;F;H081fDbK8**tC)3-AJjZ$Lq-%^N<e#$NoB(?4>j#!~mUrN{4o;fr&~a-hf;
z+v__ZMD*bHpUb{iV0geMpc{i7gVmPlnJ)eyhC=P$f@A@Dd)Jy{Kfk&OtLnkeG&6}L
zJr-srZA(lu>^L=(>d~BP&t1<z4xNbAmjowdR!`>Hf0l=yS6~kk7uwLz$KBCr`4eJ)
zntU9)JJ>r?ZFw{gd|!Y7Yt0+Lkc5gG|8d^F&P+Cen{OsNZ?7Bwv5-Kp1Lg`FFSotj
zq_Vmi)NoMXKdaW-wsZOcjaX85jRy07p;~|PmH>~{8uN0sw%h|XnOo)8;A)|rs|3AG
zKy8K1N2Ev=`kYZro+DJvQGCuItgT8Re_*C_KybEEP%V?>KK3awMHd^|r!O8o3hGsW
z=34+XAi@~*WA{~5Rwm}JdHwEzc;R^v|NA^tp2b&GEPu;va}uQQal8b`a$Wc@RG~pt
zz4VJuF`{!dn_e)Vj=llI@1i-m*{}m6^{r-8@$`G5$Q$&TY_ol=2Rbs_d4~&qex6Pj
z%^kvhUb`eWq06V6B4XfkU=riwP6VKSP_+>;D3_1!`rlfR5h)bt*QZt3wOW3YmfG{f
z4}=D>OA9n3E+e%9xJBF#^}lix|9|ZNzh5c-{*_2gv3xgM-$eyW)t>5|1_d~kf&U5B
zV^8a-Bq;enk1(RQ_*vYBtC}B(N%y6aBHq==S7rBOlt1%y)(QHVtiv-Om`$Z-^(t(^
zIP?sBmar6%*ubx>)!XY~M;TEi%>uw)wK>^LcKe60$$nM6IRcnkY~v2rgQ?VT@g#DE
zzB$=bymeIZw|+Z@kh<Ihx8>6;jF}@gt3B!cfc9=nfi#l>BP=i$Dgzn;(jrt+0qR~+
zN!^?q3IqcFsgube_*01MUodAE>OmY^krwlYc{(46^nOm$E-Hg|w|1o=07)(7UWL6w
zRw*@Y`dwgmlAeS`mjhhsO~-rfn`ZWN^rBm`+CM^v=omGh<Qod$1pbEZu&J0NAh^!t
zaD3+gy1}lqzRrKz+{VV{{A~2@Qx{?{elts1yU75`uR&MzUQOS3n^ouSIeVz{kD_(B
zE>y;<2Ydg1N8k5v0GYqPB>w)D_XXAu{|B@75*hK&+*XMU+tv9a(SYk<IDkQeWO0h~
z1yLurgR=i0jah(A;70Dsfglfj`D&a1(#PNU$LSu)NKdILmXHq=19ll>-5V8*L+D<;
z-h5^-PAb8$UuuKL^s)oR=u`Blgzw|pFTReEPHicN3=plq5TI_Y(sb)7QV%FuA)XAd
zK!JHm8(e>NBOF(G$aS)(2;dJQ_s-RlFzp=fityT5Xrei-gv2$7y<RRZvaB{4-30?M
zD;KU~;aYfyIaso}XcM)O)u8ktpAz09&u#-w?f1pIdEt8Sw-2#-TpwDy71&UfOTk04
zl5ic!j;Fa!far^HILaKod&lE*A*FktzBk19K%mAQ@({#c=)U#9ux>@J&qe27O5Qf1
zezT|W@`i|aDGH8{E=2Acai4B#YBHxTw^0|PfCSLo`SB(i2Eb7er)#baiBR?Q<Z|k1
z+K3j}>u*=xql&2b!D%D~frbe@1Z7sJB(r|jcbU&|2P&Cz^5&WI-BAj8(Xbg1Oclg`
zeD1~EC5?3;^!HbzGntxZ{SBgfAfez+k%OiN7LApf1e@P@q`0KS0=D4M#0|Nj78ddT
z%%RdV*~7upAa6qBoJQn3NHD}SkExk7H2EI-E0I7CzG}pil2wJ7gVYn!i&jMcao&Ua
z7a&gmMPt{R>wfULPYZ-7jhVZ92}l9Mr1dNo0-xb4yhjS?BDlg}4gC7<CIp3$c+li+
zaGk%-%<FN4Le~fVE9cjB;pZ5^L>`niK(+9dZ8mJ$3oG@cV4NGGkoX&@ibqWX$Y=U#
z0J++miA3N2{yzA>U3n)`p~?T?(O585hKB4}cR?|RTj_LB3cF&!V^3Rvye<1}+4LAx
zxaq+<Ysfu;`3VSiH(=jG+a8~u4Dj`ZPI?UdOmi#{JXlCc4DPa;Vp7Wyi2M+VfYIX;
z4D&#g1`RoP32d3a;v*QGXJluFcCeDi=acHu(BUD-25<pp8;OjN)&q{p&p-T(i`;~k
zWD>9gN;_@V4UM)wd-egd^3V}bX_8vJO(yhoGOZPpEfEQ*<w8zpMvUL7KOqm)`sHrR
ziEwfzgu|{igkttpR(lROLEK{ZMNh{_#8#|b{MjN{f?XI(N>z66U3~>R-kR(LMrC-9
zJ>-jAy}X2Ts}!1$PjTvdb32^83^pV>bT*Z`+Pp3&=UqL(Sycoia6!cTwRZmNQ^6w7
zNCiZgZ6jfqW*aB5<EJteAc(gqmkm6=wa+<oFY>cpU0oHd?fk56u;dAI=ChE=Q+&le
z<<xpoGvGU13WBc7&J)+axf`!Y%HaWR5SDVR+o}i54G|}zwb`FfPlCpXq?N*Li;r*L
z0H$<Lgzn-^Wa8vi!5nh~u>+heG@1hbOaa7}G@fxGnbQlTZ|8@WjSx?3+C_l-=MbtY
zmK7%;PUE*Y(=23;1)(fOEAUOU#-uFOeUBp~$MR3Ls~vo1)RBA%8pSzgASoDe)fzTw
zIJNFV<jiN>VD?leln%k#Uo%LwM3Vv}j=5lO)4$wx5%OG!q6)WLUCo#ujiD4?&RJE|
z0I{I9-xc6fzw~)riSq>;h<nASqkiosRHNA+E3{@;oInUt3TD2($B#y9_H>Ib4&{q6
zSK?mxW_}qA<xK-rLR3!(qrGnlAYlJtq<ww=wDRtlp+moQy)L9G`m1k!j4S447X&IM
zUy2zBkyQ?!6g0?VlOR|JwXn1}UmEcUxXsu_eMAF-@e|kqlu#(fdbnw(=K!y`FO$eL
zZ5v9kvBtWy^KmoYvO#-fLW7ZzWI8iM=2<_;(FO3pa#OwVMU>aJQA6Cig4a|jm=+{A
zguG%^a>d|hfNp}jGnRc;xw+7izf{Ps(fY<8X4v3Yy#mTJ3mQR6gj8tFi-myiUtGNi
ztSj*(S{smum5^fR+*dw!p~azfEXl!31wCY&g4oq55FPFONhnp#B&9->v9o@O%ZTV9
zmT?07{ZpVWvP-16DFqA_o>lp0AwU*QyBsw%HQT^a8N{W)J|BPaR8A4L7sHze2J&aq
z#EOP$PiCo;=}|jVW#!;*3Z83GzKy_&l@gYa2?axN9HbRRB&x`)44C?S^LzcQiG}R;
z)(0XwE^t#*Hq&MNLCR-l%$e*PUUkz|Ud(+uJ$$pW^a#AvQS}QVx3QLYZMm<dgj<|}
zSo7J{4P^PynT-VSCy-X6!zwa0=wBXB{F)Q{wE>6aGxBa%dkq%%l{>fi*|nvqTcoO@
zzh9}VroZRGUd~^br7@yZhh&YJ+~haJ=S)w+U(_p@^Ibcaz4sm#^i?EHh*(HF$VI*x
z89Mqj{WegxyfSZw{CF$G`cu@@r7cC-ii{}zO6Z|_d+Nm9VLV9Gz8?=I$!3z0JhAA3
zA)B@(Hl|WJ*y1C;xb)iNeLBv4mF)1*Kjlqz`H+%K84I>^U3S)fN)_6&;URPuOvzwn
z15ccXn5Es*ZALKsPnEM~oU@0TC$gtv45N*7*$<Yfk|Xi9axw<cNC!1EcRodQM1q_%
z-qz_3WCmJ<2{10~%+k_vYIjhSLeRHZ{hlvhUV@#l*PMqR0zQbWbI4LuR#dn^)q>LC
zd!BDb*CMw&l=0u|$bKh*u8*WEAu$7mCT{6xQiG-KDIh_BeKergDh18CAOTNV%;}{@
zza2bRaEyY+lbw+SYG8&n`OqIjZtQAiN$IsRyRlw!W{L_+$z<^jY~J)cf2<F$_pyls
z##)7@mLbd;nl|@O8J(>kf<8s@mp)gx#uM3<IC_p0-{r`q#m^#y%2S2>J2z5!b-G8j
z<@ldPBF0YLX!ceLW_uvoI1;IV991cp$mh(dq%gS066cJ-3*ZU!rpi;)ynm_gCm72Q
z=|b5-$dCraIk}aK;T+m*;2=0ANR%6NBH>z$_6aZpA@frmk9J_dQ+J~=T{8rE!;K4>
z!Qa&%p4m^B>oVFwk<j#i33@*0yk&?32E}>$b%V&uS@r<B1k8mB!uhekM&Fle$hoPk
z?0JMD6MBzJFYp6zrMR~C8VQybUD>q3<4euucp1}PK@qJiQ_Q4A5J;aPr3lwx;y@mz
zhYLw|e3Z$23B{6IB^BiEyamdU3db31>GRiSKz&C911a9;X2Ybcr=+mDCD3QDxh{dO
zTLL+>jbd_^fHs=I_=5I0){?~0ATapvTM`i60tt{I8S@4%8HdOW{0V*CNuLEl<}!qH
zk-Fnb@5)0erAjL72|q%^{G)Ifu57wVK(JG{O}b$(SV^}1<7G)oJe%1@oqLdDk)FnW
z!*re(qi07*c7gPlK%yNh>+9&q0xi?E^Tl~Q?|YpeOa$jM6;_c+QRdP@=JK@+8vRX+
z9OE@Jcz}IZnK!^8_f8o*j1qK}d0hkZYL<j3(S}wCwsWZ1hTbx}5)m*Buh-nk#<65T
zZl*4=tAUskzY{q2RGsFK8(5ACn>Pv?i4{^q<!lRe7e_=8vms;vmJ+g=@|s<+Y<=bC
zJSko{up88kw>Os|=o*&&8xn8*C+ukyN(@~HHfwmWp^iA0C+|unVy^URW0w}YnpG5P
zwlw~D59xXw#0~@Mn90r=mm#SQdEP??kRW+E;dnB!U3E*e?$SK~+AMX4nI!X|F2CTT
z>89p4be{|*DqMi$2AMkZZ$*y6{spfxV)6CPhP`gO5;gVIQAT>e&}G@}8o8veY$wEx
zT_9oQia4+5$K<hn6!~j!8~2BeJO$JfZ>n<*07Iq`2LnOOZg4&gs{@!rcAXK-W9jI9
z^E0h48V2m-Uh;oJ!_nsq1>+<GzimAfZ=k*S<6RJF0wN{OmJ$6TLUK&bJf6=UV8Krs
zst&R%y<TYu-f(OW?`oR5PyVBM+$Z5{t51gb0OnzUqx)JK;X&f6UTG%kV+mbzWhAWw
zvA=~vqj8)1{2DnCG551Yo})p9u#++vK2Us&kz~FXo_-jKF2e?OqVER$r8`mW2Uy$)
zYkeJj0?+4`o$QNUVEh$;x5enOFeO7B>KYA6vhz;{m+}na@B9YloIQqRmG0Mj4Iv-r
z#q4^f<D6msC&?wsUSHJgyx;G@gZyXI4R1MYni0|wBLgP}Cg3yz8D_R<>%j}4_=DJv
zth-~FhYk*mDc4kL5aR@rng@9p;0mab$4->{F|P382uLYdIew7OO^|%Wx>8aQs&*&X
z=K6J|z@N9yAJ__l+T<~Zg(m<La4iATv?UK}IMN5e+wiZ$b<MB=U+DqH=$`1zsSILG
zdXajeC?iVe;*>wQb7#+<J@2?HB6$h(P^n|^b+e>9gzQ^k)-Ne0E44g7aSCvt5^|Cu
z5S-X3g(lE;p>+cGzNiQ?qY_Bj_0R^LfVSmb7izBthZO1m5XbidiVDhFs3R1sT7W{W
z)eU?AkqV%WNd!;59_$C9+z^@fg6aNpXVXm2GN<4b_|P)e3W2mXNZ1*}=6BI?jGWQJ
z`D&)Nr2woh2hR)n0d@g{w;|bFSGwG;$wcnrmg4SHkn!(&Bci+b3ORKl++W3FP*TB{
zAJz5>$YW^TN%g5s+pT^#H*n;k7~b=#0*}+Fuk&+jxnr|1f(F2nayQXgxCI~I!gip9
zPPhh(*fv8QX@!JfKjY{7(C;MnUNCTX8E9AGa5K+8-fD%LYy*gVNiOLWqK_G?Nyw4!
zO;=J{IUpK$O_w>&oOYQ1L#%aW87WB+*WH-^3W)~gkGHzC7QV%g=cjrpN-h0}h*AKT
zDL~s5Rz;#0N5ugmht<ypt2|S$0l8Mle}gK^H8C9^D~AQU`zQ}sY_fHXT<A(7-cs@S
ze5WI%>31)gQDm@iBIA`Wh?KvdJ8-%9P?60p3{8`&AYcFEJ{(ekE;R`2P@=*UTr5@O
z@QioeF*{oLKz%4b$Om>K=PDCmno8Uy7zIE67BIq<d63n(6U-#?yiS3f2a&WWS|EbI
zjv8y;S@=bl<IEG@)PGmt3+0{-kdInuQAQkRa8W(^G0XEJvy&yb=Uz!0hvCkip(K9=
zCENi4MAXG`Riq!W)zK8n$de?kmNptlwhofscGUy7$$$?5i&BeAD@?Ehw$tqG%PKpF
z`wI)?-!t(Z6uOw5Z!DZ_3G(cFa~}A|#7xo+#QJNN!q!i@zr>WzHhQWw&2h*0poU_X
zIanO{tz75GBLqt`*X6yRtB@Rq?!rgYIq-aejWJ-<-&J-VExJr+?}e>toUUO7Ik;xm
z_shZJ=<(&{VIxyUT<(rzS6o1`*x}g>cA{^qLbIikys#8hB{-M@bA?&X7&PqNv*F<!
zbmF9;zTg@>9P9wAvbWU655fd{=eRdJk^FyW=Y9i(tAMXv3Uu$ot{h--6EDl#&DA8n
zd-ug2)Q3X}^f)6qI_s^Or)Q~L!{S{#INk)cEGd_->kquHS~jW0ieO@pqImm>WYENZ
z&(E($vRsj7elSMs1#)VrIADLkbVNpOw<`o!;R{GFQlm>;7M465Om#T5Bzh&qzQis0
zE7!WrwrF~wx@A{R@b}sRB~Jj>kZbTikKWlbb{9!VAnvK(o*QBUk^3FV#a1cG?$1GA
zn|L>F*Q4!iXAPczhm6k5dL#o!$oPSUAg1ddzpjU<1_+)A(nJ(v2p0%Rg_s2l`dRm}
zY{8vGs2@0WLFqI&mC_A|4{{(cX#~m+^6@5+E&;#;u6QwJH_RxA2n<NX9On}~W{eT7
z0qSEnG~%=GN4=p2!g;ykn4!rb5pBDo-%sAW@6`Hx_M=B@;WQFI3zm%M%9!Qqf1E++
z7o@TupPL(gAmRpjcX5SZeuc_OH@=FT$E$SdeDUD9D@an(+m7&CXtM~aoGV3RN+wzF
zbV4HqcHNIu;Jy_J%>r(D);Z1l(e(JHKr!1p;a)W(YeC}YxGzASFqlcOM#dfbGd^<y
z(aRiTw6ApL%|q;j4&j|rZnEao!LacC`Q_ynaOMgr5Od{l3g;D3{7!D&*C)s39!M>o
zhAsdqN{1;NX*x~p5R8yn2~6MH{4ZkD_m_n@OQR{4x`E9o_+@b3<XqXA8~6Vg<B>%n

literal 13454
zcmdUW2UJt(_HWQZMj2s75fCXB6hVqKL8_G|g7i*QiWDhQr3FSu8Kp!(K)OhiE>a>b
z(QzbVsL}+4ph##!gb*MhA#We=egAUred~YMdiSok9!nu6@#LKE>~HU1<K86`{hd2R
zcA!wGorVVI%uy(=3FPmO+u)g~etatY*mm`T{yF#wUyQTO(ePutzkyvK3dOq%`OEcw
z48ua9_M;5XowmH0y)YJW(~|xxXQ|sUC1d+<Kl_^d@;=#r^s3MN&Ns)beGGs8<;yVr
z{@92P_IbUN&rn{-(1r5Rkt(77%HN;%{IKWQE$@MYPJ85Jc<;Y`qVt*i^nR{0M*=yU
zn-lHV&m2j~XwQy35Jt$2jdi7DcQbMW-6_h`9f##z;(tM*X3Tv@x1vywrJlrap`OKT
zS$rkmx?<kSpky_~a-p<$abJIxZytH?+?f_`6zc1@5%E)|mKGK+5kI0(B=s%ZP%m$t
zZHPffE}f5>)+C!96)?B5N^S5X=i=o>66T7teBZzPb!+gSzv$0!*aS|=O|4w~=94)2
z_bdiY)n`N{H8pj%L%F*@QA~4XT9;!tNyOTa@lnCl*0lzEXQhmOYBVPzLG+~go;`b*
zy;w|PTU%RpTPAgxPltP~<!f(&ez_kR&m5@66j{oo24_^`nPu`#Gf%A3@4UXky@d<D
z8@~V87&x`I0e@6|KdQ?)x4al@*}nV8Ol`N$1&(-v9=wohd?avOZ+LYt>T&(q=P~<4
zL@ceWimv5FS#PXSha@(?@wBp*Nwf0`urzQ;pRpz@iD*_0p0#|zDT+QYJHPwhZ;J#D
zMw|8R^+<DQb+K{AlNuMIS6}f(dz^1hgYQ@wk3{4pD!e5;SAw%nWX=>|SH>f#o<mhm
z8cTofR&{&#FuN@at_!n3AMvgp(4@8$)O!zkA+OI@)UNdEOSm~vJWFzlt;(%StE%Lq
zhVSn=rV>ao=DvN}@O|src)6`?v4=|8K)KC4eq+&lt$y0Lng<tY-q(9#&LfWt#dnqO
zG+d2ZYsA`#h_ywZz%hK(M!aO-hYyeN6?pu(fzl`c55g`T52Y<S;uP?Y@SC)5T{Uqm
zQ8J}{#f`w4Qs^we>SQ|SO76aQ&R)*D=kaOEd^KUwzl9<1H&W+GNl+X2sMp!KbEla6
z^kucNpp>xnPqBRjSg0jRPUyI2C^H?68D@Qv(lz9a2Z$0y1LGMheWraw=MVmJs9kc`
zb{Avf=+RM~t*E+S197g{GY2Z|YW0TD(XGWMIb{)xjZ#sCHa0dTmySNvd6!bC6U8)0
zUi~_pg0DamFtd44I(gx1i*mRPj<uTbPclgc2FW1{BZm#=U`3b@E6LQM)rC<9u`BK=
z-OKhPtr56euO7d9_b$NR<ie0+V8UVx&1A333S&CYd$hqPQ~kzOCNp?`&~vW8R7OD|
z9sYaRbWTa71CG)vS~}_T&<B=uM8lQL9o3;ooT(v-r$|;hHCyXTMAe0S{g8kE{tnd>
zCuDZrds<g#nOql2bv85)3ky3<Dtr3$0ddmI#ibxp2YthOzkbxls+GE^H9T=9|B^E;
zQAE|~*Hfn?FzflbQLA=r*0gRqX(~BrLiMAC$;tCn{6>`?R$Q)ns65>{+>l>;<x-n0
z{KHl@ZIeAQL<k(#TUe+~Glky6Bbtnjcfk1$EKia8?o6z0?BR<|H7e?F4)wd3p>!TM
z7LxUO>BZHWN4|K5yHh~>;mXAOv|f1CDP-8KX)4X(z2D^#oL}DJi%CABuGDDD*L}V(
zkP=E))SDlw9wJIaXZNuP>u(f-*2Y5T7n`YrZs|^Gc&#LZqk?gzEiI1D)i#=;i~XHy
z<d42xP**GKlh|XaM$*t38b*Cd>Rqc1W(`r>P#*ISWGAk?zAL@!p2r`*ZQt?3mZqh)
zeRSr0HECYk|0O<X*8F^d*-qi(r*3cCX>Mnik$dy=JrlXWO%{XMriRboZK8e})=UT;
zS%cpgqZVV2=G0w&wFT)L`eMNknJcpeZlpBNKY#z_WTyjcY;In`ncsGsT;go9`_iG#
z2KxJF>iSG9jtaaVut8UrS2dN5Wjpvbo_A=tZnppD9z&^|!oaSRC7mk64QBcqKcRXu
zN$OF*^Po^8>XKOKn=^|?C-}}4m^C_9#d8*$=Bs>hj;K>Z69OtIl%W3)KcQl{1&+hR
zOD|C<+f!UyQI}sGV90H6QGi1^)vetziFM_o4%e0pkn=mO2pG1djm`9jAqi`1>oVAx
zH7wYvUexhc?#hTN#>VObX<h%o{ro3S&cJ3%oLZah(@#i9@YyuJsz`hN$-kWXr+o49
za)7F;>d8!rd*=ia^u*e!W6e0Y)d!P)Kg4Jar<-euhpOl%89Xg5ZBJr7f39>m#gMps
zHvd7q;%xP;;Dczd4ef7lcKx(%Dxgu6#Q(#V<(pa~glK{b1MVq&YFPKapSCGutdvR~
zf1esK2e#}GhRJsHG72U8_%Ea6U+`r00xa%$ZsfAz`GQ`)5*j1YsL0&tNQ#(=X5_km
z4&0PC!s3^Aa{u(w3`Rz7W@hI7%nYNV`<Xl+UP^oXv!}w>uJHNWO|5`NNAB+V5Y4rg
zKj!HgtA|nY>E#ylxx857q-_XoJ*P{pO+AxJ*9gST@G*RGqcyBZVlq`dTRfUJnV7<8
z6V_kzJ20wh11~K_maO^ZPx?_6$2PU4Z&UWj{g%St)5$OqDzsp9@}DvZXo?y0#TAhJ
zl?cb$s9#bZR|!Y!xU`3gnqUcyFZqU86yn|2VXRoM%_~+fmu_m6P;YD7Ry(%}#Jv&K
zJR^7Pn1zZ+u&l1Y4r#%-J#~wX6yoHK!@IWYFW-Lk81AzR1NOtxO~<91AA4E0vJ?Z1
zr)TLT<KDT0B~&N*bB2cZ3K$H7BJ(ipYwDV&1}3k&#8qk57C$tfs@T>WX_z>rCgG@_
zN@jg|*B)6t<ZuZSQPk=EAJxmn{SQj||Lv2%4y~ekYGF7J3=UFMpxxUXOu8hKI_E#)
zg4MPrvnXnsnp&dUyu7^n;p<b7PM&G0rBS=<^Vgm{{Nfd~F3oD;*IP%<bG<G*cQ8Mc
z9EF={gw|XX6Y=}beJ7sg=jT7oXcW-svCF>oFR1H(xL5pYZt1XBEIM;E)z}-+EMm0B
zOizAgG2FCFRqr&(QkW!hLJIPOpSe)#6#|tp`tic~MHkYIlEtG|%y#ZolAH{J3ENm!
zR(8MM7KP%waQ@hYdy>I909jDld#kHUOU-<IDvK{>70>pSlqjH|yWZPe#SsjXH)r!U
z4dHFvas-=dXQeg)6+eAP`Sb#)atAjzx5Pv!w38Z}k+d9<I9OR|MYK%f<kC^$pUUd$
z`jZsHTAlT2+Tz$Pzs49D8Hu*9g|`MYk1cPo!#an?T~1#kzHf=ndAoK~D~yb3ajuS6
zTxLX`moTM0%1obh#n3phE_l+^y9mN?hXOM<axy_JsBP~x*On?qU7$>=`NfL~4L+mA
zuWs{PNQT*$gLjE&b$)ZTrX_s=h8k>$h)ZjX$i!*b0!8Mfua(I2bQu3fGmI%(rUy1o
z3bnf`QLkf(1pq#W)@hxllDmu~cg4ElM;EM>GAy;kyS;U!78Ob@-_?vJ23_u8P?{a9
zZc#{9-*-tTmSBQB@%jXLn$|wKB=C?to>Kfo@R_2XAA#M_1?a4zuhCJS5s9}B?U=;s
zI>TISku1gIos$eCsZ;5xsW9&}tdHkkdfUsoeEg}0%A76N54TUhxvEGMf4ueAm?ym+
z&Wv7<{-hc}S}lHOi;9Zw6DJdOV%n}M>eD8dUbu|*Q`e4(V}*jqvJC)p#bYhF^QhtB
zt>d?RLmQzpD?wjUXs?OHjmiO5u!XfuhP6;Z%Us|1;r6TebRoJ^PhQk&hKVkF#X23}
zmYnUgQ^|F1Bta`18}GpiyZd?tvju1rDm?RvI2XT!j^pcCe!pNl=owWnKJPH(F;P|{
znDL@wa^t&^;q~v>>EHM7$%xgjy?L7}CE3OF4K}QTQd^Mv!gi_b$2TV1f<tbini_?i
zZ=P-rS(x+Jz!DFolZwtA?EO>+n0Bzg)FMu?<*W#I<fFKA2ko0fe0l@1>YsnyA$%(K
zgwIH!sV=+jX$Bkc%P-s=|NLzD7Z0?5xbgqy$(P;{sEmhcX@XjQ$Aup%7XMzr(3MXo
zEwN7Re_(^z|FgfVEQWy2zjU-Z?4vIZ_MCaCWfx6y*S*NtwB32#Ha+VXE?k(RF+}&K
zKpAKe3JcFUS1X5l!-5gW3NXzKFnAZwaRMB(m*oh1H%v>sajZ*pNQLa1ZA(sL-1+Et
zzjGl(sE+L<Z!=DtN<qJUQMiihJz)0|+6l6q81SioeDZhZet>=d-dvw{!N>@@>cgQX
zH2@t-X+TAQsI^d*HrUW`-<4YeEWw{88NyzRU_s}Fqtw`TeD51XT0!sAC%sP(F~qU@
zHMYh{27e~8A`#B98T@(s4HC-{`jT{pu|`PVPj}8hrHABs%BMvRjou@^hP|++4rihz
zZi<{Gl^)Lfj(^+jy$aLcf!BYct^cWDMU%<D4dnC>49wmUa(?SMlAOHj&E!%x-j0$*
zW)-)^@9i7@6zl<T(H<WeX3|Gd-keO-G$D#dT)!5}^LVR5%ePx|b8{NmRgChZlS?;a
z`&I#yL8V?PArAJLz2x)0e!btpuhnYh<AJkxgABR!3(WM}$T&ar4&j+C`%YZ%fxd0m
z-*G5W{ni%wEheY`O?&KrT84jq!T$E0cDx^i`>ZBGN6>G#e~C~#L3zig#l^){BK#<n
z_L;#g&IC-WjEqbWCF9y$9*2=fpGrrE47>mVV(_`(GoV*%_%&@rc3{5Z$2|6~Znd^3
zHtx;x!w*|cZbdzInEQ6owoMrLmkDk>yj*fN&B3?#f<kK{yt82-2nuRoV4$q33YuB%
zNGIU-4EL_=QiP%mJpvgcO>Hz4tHXS{*f=fTnW=hV?PDNz+fETlLk)Vr#Z*W${p}%a
zUFPO8Nx{a-%Bnf6Ig~osm7`hj(R)yv)}hS&THCD>x&G~71xP%x=@r}`3DMEOxg%hX
zRmz7pIs!J1&YJc1^0IVrDEI6u_5{x1Q^ollr=SwH?AkcydofeRFzbYmk&u5>RO=s~
zo_(L@;@FbMdtgu^z_T+8aAt}P45bdKR+zm|)2~KL55WKy$4);Jiw?x#GlxdEBYQTo
zov|d;<dh>E*EjiAjXcYq4{3Ibm-cXcLs?l>kR&i_IG0-3I2`|T!Ee9+a%kis_3qAn
zK_71rr3H4>H?{l)Mp*y1!HUZ)o|3+nP8yh70|sk(%(~)%q@3f6OK0!?)PALY1Q>9)
zH&aYAWCr-Lf`{F3cKBSWh_ZY9-28l8uACu&%_!yyLTV2&V0_K>m0$sc7BEbtCCO6(
z^^H!Ul1T<LOGJro?_5XGsFhxgg}Of1_+C(f;&P+EB<at^D|bDR)L#AI0{H%XC#RXP
zp_vmrXqTKVjmqmzA19b-8D7soTUewl#S|!S;}d-vC*K79FB9itXlUq6J85Phj+JVS
zY8kIkHUAkmn$v}@xq1h5DCd6GrK5!z%GW5`d88??zI%-ZlDqaQbT>_zXf6GDg8yZP
zJW1uHaW$21uhO}0T~14)*0Mn>u+Q%bK+`_I7BjW+n+1hi^<P6xbe*V+XVT|Om`rAi
zxUmk0708}ah;EOt6PqOy2+TEVHB2HwZHHvI!y(l1O6`bM(KN=zix&~S0py2i4~!1N
zM*Y>Zhf)%6YAwE9kP=Do`ud>;8e1~?!-uC!lf(<j&Y&rUNbKLCdgJrCi;s?<PF5yM
z{T%n^{RZxXsd(Ymjrx<E`XOfvCnqN}ntp;vQHrU~$?C8(-`Sh;okp2eyieElaUGK{
zQYr00n<Mq!^+120P;4wMXFdjYcY5cZ+P@z(gS&U{wxkOIj}r_XEJ@6`U)OrA7Iuyy
zf$Nw^LNOL|DCu`WS=;@yr%tD(rg}mbEGsXcq@z)%u&MMP*I`Qxa#-D*Lae2l&q)7b
z?Ojmgyl3AR`N%8C$qnqWaZK8TqL|%_me>aJBD4ii3G!go&%q9BUkI5WzLqxtO>w}=
z1@`yoJNuUaI)-e}QAG*+)MQePW`E@o_y58jil7p{(f)aQG1-_4g}Q%eKI@sz`oz|Y
z+3IFccK}akL0)|v_*|T;`;p?=3u&^wA8K5hy|hrMl^^Y}F>7Ck3qZJPDsS5YXP#6a
zgQ#%Gre^j20Ed&Em!27}y;ed9E}FvKRHxH_ga0Q0{j8L_7tXtcG)v{uq(`;EvzB(e
zH%V!7BD$E!a)OL<(99(w4>#&mXnK82b@QS|>+-u}mCl^88kg9~+gnhNn@RRB0bKQh
z0NO_oS|$QhKIH(1SpL#pxyeU?I<j(dT3CM!EpYKUo;Q5FB@7yvwU+o0B0@}&(&xuQ
z$qQvQT&Nx&H@S)Yv$0+SWmY3EZWQdg_Zy`%ONu}y|Hs;G<>3P)>lYYC>U)nu?T?1f
z0ij?v&!Y69m$!G=Zb204{Db-!nCHxE0EJ;gczv6Am8s}*cXBH%zvle6tY`Kk_^4(W
zrxq?;sK>;&;Xi1Fe6<BqX=wf(CfoS<_@w^?#BWj7n~MO=uTpB&Jx3IU`f}8}z#KZc
z`XTSv)|Qs8EMfCnz*$03r(n^3u;X3V<<NBNqc%d=6Fj=mR{(szx_qhjTK8h|E4Vl(
zxHv>v0;%d^^y*rscU5l;*H#2~X-Ll#AIKa#R_`;~utFWh`PqOrA}S$(LX9~M9-5HK
zy?KTV1V%Mt^*XdzZO~D}HyP8-Ue{5mAXw@37n6y7gOv{THzxH!+VkVA`pHO3&;Dga
zgV#?U0@j;!NWZM5rR7-LRw#}KbkzwthXxPU`VzD-Q|5D6a}AxNC{$B(1$X3F@X&0k
zjdN1>^aXT-3z6?XZvIe(UBRzgd5WXe+P+Qy$b~w3tAbk#+CEIAqG-@2TVdab{q?NX
zu5@OpnZhdoZkw2M<@J$_fYy!0W+&AX@G+GY+$<b{eX-oS@_k#vzElHA6~A#U279wg
zWFK6#^`J!$qKCqGNYq?Z&+-3b`$Gk|vB~u@(Ho=WIczkm0I;A<0uL%i{D3zXI&3O6
zQ#+zTOB~C>L^CCz(y}Y6xztXa2pLd^QO&I8Fcnl)RD#rVh9V|DX(Sm0srw-E`|9wu
z(D3Wpuh1OkP&S_Y$K=x6g%DsMq3S+BitrpZHB{ZHZOi5x1x&u?;)}D%E3bGYW*)gD
z&K~~}^?-mQV;s=Y>|itHSbhl;u4#|Swgga!EzFcjAh^m*#Fsp#HcscRbi;g(T+#z$
zK{EK82nb~Udd<~bAXR~c;!tWS!w#%<ZVeA^pMVpuQWE?IJ4w~OL)g$95$<%=Hs;E!
zvnBSz!q~#OuxQ=Q;ZTh$M_ac2cXi?cJ?q)^8;y>Y<H0%D$mu|swsKPGj<`{$Z{eac
zjM$CU8{s-7M8EhOl4vHOMzaR187R>;@F|;|IvUH)(k2{hFpVIoOY(l0rtQ(HCR4lT
zPm@Zi4Xfd;NIms8eMzRStmnJ~e(RK+#}6zFM%IuRxm4<C=VWME4DYZG!@qefk%AK?
z?A~}hwVo3mvnW3q`s678TBKp6FDKTDi+EM>FtERA-aBXRpF0@Frh}HBxfT%c3zi7#
z<d>Tm$z3;8$fZkCpz#pN*?Cw5qFz-57MwlZJ{56=w^s{OvO_(?xEP1sP4dW~{!l{9
zGb(Djh~FLE*)<#KVw^rD^j?+m<%0Qf;SP1N>VFrH`<Gx$=h3Y*Z=upFIh#~Ym*>c-
z{f`YK54sq~_94ozh)(29z}=`*r}-FLs;aApK;n<f)r5WwMC$U+f14!v(xKupw1=5%
zx*HiFbEpK*Spt?U?^FSz9~A~<Sx~{*vEt2El)tUCJr`D7+x|kjyp>Gq`<5`8B^q6Q
z|Ni|GeNGt06eu(@gI7Vtk=;`nlLf6SH9ft&rA2F!4w`LQW#vGfXP*kp&XuWSHdXyF
zC=MIiIENL%Fg;`l;`kf!CxAyL5MgF2{o%u>6&1#>F83rw63A2!3~fCtGgGwPPdr*F
zBS;c7i_(e;+3!Tr2uR`DMqsX#VBC~uUA79AEIerdir+;)iFDHW&C`H5)2Eup-b5en
zSqRb0B&SY7L7(pibUPbajhj*ZAVXlR8Q*Vmb&0pGax4YH6R%nH_X^EB5=qs6;^oR^
zi&9ICzU^(opvkNR@C`*an65^aOly8zt4_&o;n&pOd>yq>*AaRqbVSFghCLdw%dBpT
z$&nQMmYX#oQ4M}F%K#mtd)mAHb4hM^nTa;t($M@b;JI*X^*+r5A_+30e1KFmk|pBa
z2=K*<?TgkDw^0`j`T8T>Un2Tok^%W{09^5&1U;HYSpspA!6zpL8*=W|fxm8(qplm%
zuV<G^%%$~d%>gVEfvHcqe({FWnl}Wi-0+1Vnl&ENd^)UeXF*f+0;>t(7XVNW&z|~K
z9){TaU)8++UO*A!!tPTu>DFFz%pw5~4}P=9#(+ss^MXm&w{#Mw+P_d9|4-onj9Jt~
zA@J_hV>T2Oq)P)xNN#tH?L!Qu|IJi+3SxRIVWK0bRXW^PDWfokD`>~RZNtPM{_y{;
zF8~&RtGT^>=F;?4=(gZ62WaX3{G)m@b#0?rQdg8uGnq<b2<*7?&_GhO6N)vF0=-m!
zxz)M)J0MP^TnKR8SKkqO3$&0RmQw~bM2Mpf<192Q5=*pLi3HN)#xUO)odFNZK=O&J
zQpV=+_FfN5uv8MK5jg`XFTQ!!O|7c7Ha+4FeEBkHa)&@mKZCqwkAEOuQa`O%iM+kt
z^?mPBs2fHmRVEz1&7EL$I$bhudn8XvFT8yG(G89N1F;vy-*rc!1P&rufdB89|KIpp
z|9tyDZN__Z__<r=$-rXqXx5FrE<19!0k*92;BJXn^IiDZXb~qU2g9l#vEh5bNL%><
z^lSzE`k53d)3nir!9v57m3FDTFRB-11ueiqRToWD)RRv?#_ry3;*RT}-gi^ah<cGo
zo`ufiI~+T|-rg;@;V%|Vip&~)>rip0UMuHoK%-KwbJvMZK-!hSkqna&&lU83<7Aca
z6%WJ|eIw!ykbBb7&Q97e@ry*n*P615iie223cdAYQxtSnv33cd!hlov?6@P^E}<P>
z2amyZR?uHY*x9>xM&Pc&W033N@m?2r&xz}{%+=_nH$q^C?os9JBd_ae5X#Do?wxz`
zlmRBE(X?rfhE=ae-BZTaZ9f@Iql0?SgOVoWg@LZG!TEz%p?{OT5toTJGfV2?EQS)w
z5#p&z2&InCvcStQrPJx>JNfUNnPq`TrjOt(GuqZ)Pib(Fv;|zx{Y=<DeT-xQEK%8H
zTIqcFfe?rqAn-YuF_rF(+!*y6PxRu2lV~a+__6o*^z>Zn*?Q(L=A_LEPl`L}a%I)k
zp|S)>U?8D~<n}@r#GO3GynUq>@xN76)YHf%rV?O;H$=F|>tWy~$qEKa62KY;PMk>5
zKbZ6+-K=)JHR70H9GJgAfnn9&Oy1C^LB^n$RA&cX@At#zUovPD26KnFe7LlxrZ)+M
z^rMK>4QeR3>C()UjI{siOz!z<+o+>+okb6uNw<JwxOY6tZ)(!m3Ceb|z`b)|4&SQi
zGXRksz<f&gbl^%IL||fXJ;}M1RtVOJH%!_}`D1@&vB4rhK}B?U{yV7r?&ALQ)&95d
zoKR{L9=)yp0j?c9`Q_Yd@C&A<rUIIC!klZab&Jy%$G~5Nn+nxt3?Ymp7MM|>-+-eF
zrYv2M-fdh03k(j7#)-|lceg>-h1f=j=3r9O(lj#B=H>_Ux~B~=pvbT=;M#ujw*})C
zLm<~c(<=b%sJ{#_;Y&!f7}7Fj<m7@Sb$8u+D_n4DzrQU7<jEprCZ@C(-g<R;oR*fB
z<}RK-tA}SV_+^bXhiazjdcK#e^%*@uT<$(OElQg$$<s)Se#I^H2-uBg8rsRp2f{7d
z#N}&U*`DK=4Ikn%=aa<dtCmgXeBxAhhBC3jzW!YeOM*S4PkAGR4w8*t{MhKuSe{Cp
zB1h6X-P@B7!=v!|N=j)-Zh$NY=+1H4ba$vMhs<G<I{{FMk_eE6=s@y8#AQfJTnPku
zK{Jg2zJK7x0uCO5b{9yJ!wIOSSoDDHKGD&5{DM4w{VLI<+W=BZR;NoO0_d&OC{ysm
z;Ui#AS?1|PiIQ|VEZP8Qvv6%N#OYKrxrPN<AqUu&@HP;tdL~}o79-`UcqZTdY42y-
zO*qA}Uk>T1r*U$qk@{z2`GRFR4rFFp0WJ?oCcte?oHBiM{8ddKEm;M_y1ADJouoy1
z<N}KM7u!up_Ed6h-KL&~=wO2ECB}ouox;!v6ThFezpc=>=WZk<=%c;4KDm&q(XMil
zL`su)DnmFtBp?vYAUHU<JoGXS7jK;IH~joO&`YGP0vyfm6Q;Fe&mEjq?8;O<MqNmn
zWkOQqMyqB@hNotoC<jav)!@1QmbFpHCp|_yN6X;gdQhrt9=f^Na}t$!hd1xIH%N^>
z-_d#9R3Der<>fajFp8v;M*Rq5Nnh{q3eCO0pfIqNU+dDtz8Av{VZ|G#@qm>I=H|Sd
z!e@&B&R#@2cSI%mWZzkgi(ITW-`qHCVcoD{QL=X4jQoDU5L$*Z5MCt^9cTPUoSH*2
z^u@#eluR+SaB#?48hf2l>=`zEi<`H@4@1kc9wJ9`*heyq-JSIGNdOlqn;TR$$Qa!i
zoL%np^YT&x%q`~;5fl_fqRU&m(?Xt>mtVkgU{J_<5CC3hoD8Hq0_7`y9zFB?d1Z8Q
z#~EDofsBP&54$_Al!JXIWQuR&E&{PqqyfFmge$F`8HN;#3a^m73V4KCARSXcaFe!Q
zeKp!r02gas`Y;UgS)El*&Gt^?!^oAs`5@Hz5v^H^ws)@&jh1P{Kg0ZRJ-!#T>SEo^
zCG1E`Sgnc1tfZ6wEAC{z$i+%VhCYpu$NqXPx$y4?TwQw?a?3%(MJ!NU6MpJi<fsE&
zeMs{d2(v>F4tZ{3V}JphRKEGEk~Vv#@1)yQcvNxs386!^AZ`rov&fBDJc;O2;lS)^
zBYt@pW+{*mOKa;vcV?IDu~Fu=cd|hnLdnCqj%lfW?(*48Rs@L!3sF<y+-hHvhY9Zu
zJY3JbjvJbno7<<#KTZ)F<KJOsZvLLq>69}jG~8wvAC*L6*DG&KO;i}Km0bNAclNVW
z4}hfPFEoa|&j+Az;8nY46YJD-Cccl|w<?{l`cyf&(gm$<t_}@~dO&uN>T9?@oE#j_
zprogzc`bc@1A=f_X=yJw!0)ML3my?)p11N1W^|;D=7;4$W16F6`B_6or<sZ`uO@72
zOtaIBkJJZFn;=9>MC;}=%qA_bgq-vt!_CcM%{b$ZFXxO>ZGs$BbbFm#UxRcSlNl}+
z_9Y2K`174Uf;;ZifwprIrtfYklYWr9sc!=$-C8BSc!TuEY&XR`QSMSNu(~JUg053D
zDOo*VtSHok=IipJZd%4iU19(DVJg5ABtB#V!uZSw9N<0mE;aeN1Q$O@%y5cL@rvPK
zajOJ;d3$2`dvSyNlYzP1^{{tbX{1>z!*~ul%KMCKxuutm_J0zlb^0}SLRhSvXZ%ch
z>c#vF9>3Vz({{D)31Fp<N3D&utU5qa5_X7+_n<7IU7xqJJ~FIS^hX0y*zLh+N{Xk2
z{%CQnb+vOPqO?JOu&;H$SU#i`cLgGfBAOu;X$t5nUilZNK(Lhd!dzH@yQ>HYNDhs6
zbZLw41wtmd#}Bz;snzo^%Uubs4xHOmQz-O7-WNrXHp+p3-mFDWr~XSh&KR6jav_Gz
z1nz09?A~$7$tmY9zl8kkOI`}EpsYt|W?DKD=n~gbk77eQlMcPt0|X-G7!@<L2y4K4
z&97?-Q3dzz+)C&p;KfzAbf^&+JGa!jcN$?^?TW)RMg%)SSL>S}TMly9A5|Y(_y)3R
z5mEPAm#8*$aQixsB;Y??8<l`IKppKbN_Q@k%8N8F$qq0wOH1`+*Sb+^*$(pM4?0$Z
z>Z*C$zZyi~lCF9{f4cw~)-*YXVkp?TFDa&j@q3l;XX*xgF=$;K@y<NqlbI%K_XJ`k
z4M!U@8p0yhZb$lzx7Z<F7xdH<*FQWygw--PUxJmIlx@SmrEl85#k4;h7-yFXZ`}Is
zpuaj045_eFrl<d_4AZl{5pxosf_}mufmweoQ3jb4Qo5$kNZkri?Z*0(7_(<)1$v&J
z|GZZzAHk*%0kx$=i!w?ETP=VoY+ThBd<S_0q%%%l+=nHOwpLAPOljoomUw;gk)j^r
zf8*(ue$qexI0LauYCq8~yJvX8{~OEXBOcG3JBEZfHg63#1<$X1aKY9`IIxzm(T@EJ
zcE5@V9N&=!S|n(1Y$|8dkNLcLu?ZH*YL+}dKOe~Ki9$a6s+gU?^Tpx&O}4%Sc8Hwa
z^K;0CRu>(Fpz6w?gP)kWzGcoBA5S;+&joK7TusoA;xdOT8X6F*&oea77(6m0m3WAx
zH<TaKE3M0(H4P?5tr;eVEPgCS^luPmXXhQn!`9gtcrE(<g9B%gf!fO1+}K;<of`t~
zgNTyr??;RuJq9nwkzeau3}VVCcWYTd<kbpx$y2ie`-GAwPYzbcJG$<}6=o030(cpO
zi5~pNcBz@${5l@WV^ETNu*4~PI1&vuDyj>kxg%!O9AxMy9T|OdK_%c<!a)n*oW5tA
z;eIFM<;Ahy;N<w=-x6wS%#grrz5k~(fFIEE=@$TFAUWhd^ypBp(x?L&IX#OK6RV>F
z$#5)Kb4juFIRwpY0C(s+Ih~z?`D4)8x)|;cbFjbP0}i~r!G`c?4}Az-Z7Vyt$dX$-
zpFbb^EHhI?EV$pSlF~_EZMgD!8)6vU=HVZN^Xr@YeN4Cja-!1n(>Tb-f;1C|-#PiS
zRgap%*0x8GxXb`btL*kpU^ibZ!hw7sDB+4>kkFZsGT!SFzx~dcBdNex;*(qfOk4*j
zJ`AI4ubQu;M)_1wXW!u9V5X~*r!$7(w)>}Togf$6q!=IRgcOYLCLPTgfKadU^$*Xi
zU3T0#6XsTjbB26}XKLU0i$EtSLrRjqxZ=HYe?%^~OS!*{;W{FY#btC&E)_;65+{qF
zKYxFH`1u=v0kl7Nn?3@y$(rQ+!av{eNXikxxD4=`N~WE_<3mR8XvHXqWStPuO~26^
z=;U5ZzbLs2Ii&l-NPXq1%fY1Mh=erU7+7LhWbO`t0|<d40wTsj<Zx$;=|0j)29M6i
z2_nd&aEy_KyMe5%rHq^8R8*EK<)y?S;p3NMU~7~cO75cM$BHZI<SFFP0J>$M*>g5+
zj~Z}q(yE%~WN4s+ySDJf^6U`i24DZt_So0%VA@c?%Q_Ct=ec5=tK38yzb%x55hu4a
zCMy~si<ea$M2?lgap*3M(R}CO*UBe9vD%h1uVH8;RHfL)`WCCJvQN$Ty0R0A=QDkN
zD9gL5@d!IYCRGVSAUTIht@e&#HWrYJZ4-7eIXNW&q3#dvV}sRbKS-h{|8-5qo?W@!
z`1$^^kuS)8(Mw)pM9xMh8-t5D=ra_csiJu^Di4B|$`F#Dq%q=&lZt_q4nuV4H&*B9
ziypeBZ3K5VX~73573J<eUjwudmgtbM23<J;DGJ3S5nSlNPE~<#R{*)r)ETB6nMH3-
zp@UxUR0CImH1sLcG%Q4=5=>aS+mbI%Gs<2GWH^QH6`WUK``hykH>R6R<Vr|%{;RG`
zB~}`(z6H~jeX?mfH=-_h-a04fz2ROClk_&}5FK3lYf%aH1#a&4Xcyx)29)I{=)}%7
zwzBMQ;S@~i{=Ct%q#7_$ZNk63;;DD<6oF}jTy&)`Z=>s%S_}_(03vF>*$`pLB4u&>
zsH^Vro`DV?p1n`bi)e=j#m?7&XC!vx&tJq$V$TY3$D7b@YQeNQ#ti*RdF}|_sRDte
z#O@kDJ8WU9eb^-)zy6sQ0bZ5Py4PXZb%F94CATGtm0!yZ(*t8GRZ*{7XQKkrVzLkv
zi$_TPCCOdA!9z|%iz)e#zh$qK=njCXTMqQ<g2p#}Q*od)hj-m;Ngw_SzDh4-@vFfX
zZD@*wPGH{{P&5wJ-ZFmYV}PdXt^~b3KmH&9f3QS2V(64gbpCvL`{8uQCy;qKN@XA?
z@+MBmo0ur3)HVa)!U&B+Ku)e!<7>5e&;t>*1@z|j2!?vlrI+dzpm)x}j2L=+`Zixi
zs2Ps95K<n^+0=l!N{3(5I5~NHlZsi>Ob}K)14$$Z?v&e94}Kl41>Q{uhk5p%RPNiR
zcnELU0nZoF2=Zv|`v~W&F`XS4G-!9N6cR~*DVq{C=8nSDffZ><mljhukDRZ>1<^Xy
zN;vqh&=LVS*7=TUupy#o1wkn2lVAX8c6c|6Ddm(3D_;E#!O$R`d&5Zd!T(5TW$-!?
zjH?<cBAt1<x>N=*Uj+BUW!ixqX(KCmfv|lZ*d_u6M!cAy#elQ6LU2_o1*^dcVkO?E
zC)@IG>$ahScDD($nL~s@<QFdbOf)-J{lkANug2Sh>sbxIW#H7qg77F}HG}m)pSaCG
zhsY`rN9q4GyAI+$48Ow1heAa)j$VGe&%?_Lk+H07oQiZ=pZH^0!!fyw$Zy6}N3*>d
zY|O<x9Vf`~KRAS*`St9+@5$P~b+G;t8Rzg|YPiZXCopa(_%b|ia<1yk<y-#?;Z&u`

diff --git a/reference/Rplot012.png b/reference/Rplot012.png
index 29b1307a8adfc8058aee3fe56b8b50aa67dee114..c75bb491971d4d7a4d6119503ae2ad5a11960695 100644
GIT binary patch
literal 19630
zcmdVC2UJw;wk=qI5(LQtA{iAFNs364BnU_nw8$9+ii|{&C`c4AgCG(GB!lD}MI~E6
z5hP2_lJi^p|Ig`rPv3rH^d0@q>u!gFBDLB3`_{MCTyxG<p?B33PM=~tg+ifDD=Erp
zqEL8a$RA=t_=<N=&0F|HXr`<n2cO~B?yX8+_(bBUsOyYEky0an@O}>a9H3BaC?z?W
z`yL+_haY><ZXQal;@TD$->VXn1jc1@YoFB6;OTn$ROclpi*)g(98XVzg8oqQC%vrV
z%f*|CVe+;3m$`qKehM4pFWNi9dzqtD=fe1@i|oG#AGll2tnYIU3o38jvG^7|x#=bG
z$1i^JaJS9Ua;8}P$#afCN;VFTWVcU0mQhqx-D@FuDspn?@d(P^a=aw|Wq*UL(Q31T
z-q=g9FVEPQ!Sn6Nn@jgr>xo#4o>a=oy<sFMJDuEZ)v#ns&>=wf&7;*&3;A-avKvw4
zN&f1MSBrd<RNWdud48cGA?IJv)n#erGz?fKL`bvwDZRd!l%3rcOHUrWmSuc+N?u-m
zcCeVoXFYE8{D-aTor&<Z#V?%`uax;@)YQmtM=(A++~1zeDIIAjtv$4JS?s6s-NPnO
z4~93Jd2DnmI8B6daY#wAO6`7EziVuqP>>K25mC1G_1w$XuLH2^Qp_t=>uTW-V-udL
zl^V8_u&;(2AK;h%dPJ&%RT(&ny>8>U)=bZ(Li$X0b=QmdnJmh0$f1_mzVsaYCLkhj
zN|q1*X^$PN575xlvmPc7Zgi|14rw++U5!GQ3@OUVeO4kF8ywVAi4`JIj^>j$G-RG`
zkBg?Xy_cpU!%Zuzq(pMGo^Wi^`SE7i(cVJNZjk9%DA&ijU**mkhK3OZ<}Jy-$4C7Y
zt~{{NQLkQ6A58K4)~Bh)WxLwf>{@ui&GnZ#abCWB*>U>4rP*SC!P$MW$A2EU%=eHG
zku%lR9&Pfs#ofqjzPh%pbInfMK!{P^$w@FQENr#kJW2+AZ}fCyFh$FJZ<f<o9iGkL
zkGDL6uJiYI4t-E{2}c`TavW5Fjiv{1i%pYJQXjW&&OKNmx#9ctwS9Ks@NEu`AJU3<
zwY9k(IXla{y1IrxzJC2WzF$UOUTGQ{jV3{H(4Hb;4`dK`%hoBjetX>)muo1C6`~4n
z&c@UpE;%$`>y$7rCXyBs7QR^2`$?I8Z4+mlzGzv+KknEctEH*QfeNt_vR1A9{YtrM
zf2B6Tt#abfXZ#s`(^<<8?C<!EKNb$(I-J+8rFNd_D7H^<8^lb&ZK{<Yh_6&}`fPnk
zD4sR`<%dVm)DbV9GXy)2?<YXUIjQq-5V`lrH`;an(kL5TZZpJBSSStG#CR}kiP1Q-
zh$G5hy3W&;2*oVsf<iG#cyz^T>F8J;8sl7lPfuU0dbP2C*r)vr)*XeaH|Y{XFSu1|
zXlcD${qg56th;nHpW&EWWex_S*KRPk%=mZ@M@$&NAm!sVk0;htgu$-vj~=tg5-$!G
zlRnvAZhpajD|>eVm)Fu1O7k*0ny7Rrf|Rceb>YGVU7Q0SR_EcD2sl9Ri_~Q(7z9wq
z>r%%AD4kM!=Dn?@aEO0Si15wLO)Fd5K-|Jf)O~Gj0@R;Be+GNBe0(H@RBw5E-*ho_
z==FT~@L|a9ls?a?sVNLjsn~Fhizu9qx4|Z_I_UGgbhGYc`7R+|b15~kx$`?-lD0!7
zry*#Y<K0I{<TX%2)xJ-b%V#EDt4r2@=Sm=pZhcld>T^#0=H~q$o_x`yFBO|Ah7S&h
zZNFZ|3R6>QSZGGZzys(Mm_0j#5630xE^!)$<Hiko^Onfwo7=wvtc1c8&p&;C&2r*T
zE5Eu2`WIt)d3o7H7>|HW-<5>`WeBFS<D-47kCZUHir&Bx?`Snxs!o6m;$<Sb_TXV$
z36C1i^_TDQA%mC;_t%JXxC!y*&%a!8h90v?!K+=jD8|Eha`V&91^L4ds;ZJGGvIp@
z9c@0{_8wys!7NU<KGPYDi6sthESvfGgt|m@_@4{?2DRLqMbCKdoS?_52`t6I!HiVP
z@!{xk{gkz*OpWcpRX7$d%fHSVR=6N}h>p*|Dy!Wx!JBTl(!FIaJ%K!-Ggz6wns)T~
zXgf#y)#odQ6|~}Ri_&bAbr8G$%6#Ri?L)o4nB9N*Bj1*CJ3`jn-2Cg2IwXqDo7+rk
zQim>Zh`-0O5T986smyP>vpP<E0v|~dPQ$LaPdV3Njo`QwNG4Fsd~hbe9mNtaAT_L0
zY;i6$g!{UD>Jt*kK61e)M~gT)I9`pFQH(i?kjZPjI=Z=9N6@0m8WNJ>y+$iUMfLJT
z%OQ^m2M5PlhB|l!wZLCV*#t#HMWs}Sy7<?NNyZ8buaYr~^;DGAL9Tn~J{MxfK!}9N
zkZZ%Z0Nm_`aOvCjJv9L`g2TPd*8b^@Ijn}h{*(UwTM8ei=}kpnP0h@tA1V!(l)+if
z4j<?m=j8Q!M(Hv2R$IVj_AV^3*LLM-GaPb?vDL-9zK|6KEjySX|Mc|r-5DtVFp^vS
zWc#8)!M7#1(jDFJwo5~$6qX;Hf|ev7OR#wT`Oal$&l9&9pYJd#`J6$J!!B-rYbl_0
zN>+fOC@tRQrxNeis*)1AG)x2XdR5!fA-h9+w+e3-D^JZA(b3TxvDk&aoW=}|lowDK
zV0)S>278mdLys@)i~jUITrfr=>=Y^K8aClbXq@Y=jkUGo+^1*`E-s?iT<W(C4Gpyx
z4rio}>th7XU&O_QBby3$pe(g|+*|8=9O#RUu)F9l&6Xvs&oeZN>Fj$s*!f_)x&6lI
zb8Vx?&02;(RP<1z?xWs1g%3!Mj<#z#X-}C>{dl{x+DKu_K$w}CdG+YFvyI(w#ToCt
z4Lnqfjb-cH(jXKDpWRkt4(d=HU!;=7S=)`)R2v#SE^*hN+jHy?ok=yEhRWJpj5CT8
zXcr)R^Y-n9=Z_^4Uo#WOsVkRu5~#|!w_nGNB?YtG@kpjS^-RFJhx=eN&sW~gj`yR_
z9;ON^F3M!nbY-M^cHm38>pomfbyfi~im+|JA4Fkdb~YJuZWnSZvv*-FzCMgL42q3q
zq@|~y%*@LDVO@Pe`Q2ErwsCWP01*<q<Atq!%HnD5Ed{%^@4pH&rw9CT6xG~+zgWW{
zXeQSnuQx03(ur!KqCzYQqZb}t)8abYB@>f&DUebY=UVXKJ9T%ljke%}Z<Ga(*DY*B
z4ROspc~u;q8?)?m{6<#-Db0pT?96&HG&mT@!Z6shP`DSTrDEJE6qFu8`(Gkd<iX8Q
z6SBp=_fg4)%+Fg3T6M8eoq7h>hf{jLE%v%HF}qx?&tYKhLh`L(@`-o)_Eb=iGPU*e
zE?-oMVLR}t?Q%6lVos@a0Tz}9&OAMU0orpn>}@wiMj#)VwZ~ppnpyf)el3Y&rDi{u
zQZ_{A%0(961E=nEb=IVX3T{3=I$7eiV5tKciM1x0iLd7zXzNYx{&E|#)8cIuXd<AH
zV5@Ln;X@wF$YcDZ%}B#D(&oeMQGUMi-_+enw}=W%>hTM#dozVgiyg;hZ4RR(_Y`L<
z_*@L>AwZ}c03H0aQ|*nUl$A@-SX(eY)`N7VyRm>%ui74YqQ%;mqmN5&pH_qH4F@$&
zAV)jTXadf*(mqPM$*dr74kahT)KS(+%HH&h-iUi^d6)-590eHcMVq~m>L*Ca(#+)w
zq<s7KZL)fTBqkcO+{#}|3u)RPp7t*Hd03`mhuE}B2R^<(YlMwg?q+G{(cMc|E4Ckn
zr!?D~?^TM9*e-sYa4#Z<@-r)c>9AYeW`CdSFypadrCaFQWJ|a-8(W9eu~&ijzFU@>
za0?lG>~iJ(mXCdsN3S=pp;_<2hd3zI6)T!{m6+Ix<;oShcyV{SirjEO7T1=%*#jvp
z<6X6W><4^czu<Snw*SQ+nJaP=<R_&i4mYq30%U7b(Z*o_4#ELuwCm@a_-`hL-%d$R
zOq7P)daKDyumIL}!9)VWM#IR6FOZT1?}I%vd*IG??J+N3<>J)>=NUDptpQ8YMgi(Q
zYla{XKxEB;EA57tf0ciM5^dNJz%k&)t5>9mTn!#X&~dCzD{69gCV~Gxx>)wdlAFFc
z5`h38`jRQIX{t0|EIaL;9GRtjs$#@kGc$5?>0T<zeej(BoLpF_NzC5#{Oq+R1y=9#
zWQ~*nX(kTVJLv&!X;qWZT-2fHK|=oL&!57jy<UeRSRr{;)ri@yq+36o6noXGa_Egb
zWEg_jFZ1xo%gFeL$Z?n*?5v#~I?-iz;JG>fkXg>vklv@(nE0ir-?gQ6*xL#5(On3l
zkce|P!p>f^INw&gHE7d(`o=G|5s%5!1pr=B7fLVsIh0S)0jhQ&W{<@;ZwjFzSr0ya
z?p;y*^g^@hM+sdNCD#YXr|>8p6%@gDu9wKB`c_%RzH^j18^j)T`rO4It*y^6vB}xl
zDiEQa6;XvZEmFm|gdBK=T71`i(iY6CmZlF?a2D&6cQPyVOYP5S8@i&ykJ6nXpM>)2
zmprJJDE?T4Vi9+<{jnQNh+dDk*xQ)vyViY+!sDE<EhQ}L7yG!hOZfhN0Dwq{eoezZ
z#+N-=sn$LbAcMe8ee6fyqsOp0(r`Mvgj9byHlCIxW|!PwyygT6@<Fj-J8NRSNq#fI
z7JPRp`E4ZKHb`KFp5Yek)&kjbjca`-ax0gq^-F9E=6yDMwI>=#`Ber=r#s!Cpc`ly
z8}rv3{87fMn-9)i!1wF_Vi^U?%5u|F$MlLER;EYbxo~l>7lf=%`J+!e%kH&2RYrLL
z$1ruNHZ$v;QuL5p)nbG_H>@;tbuU3F%5lPsSQu2GB3BgJAJWv#ZS9IWPluf0(bBQo
z20-6T6ZYfBowboCE1~-K<?<>YL<Ex@a!AG?a_;|vLesbO>eVYcJPEU=5IQ`sS<iOZ
zileR4T3vOHL5|-3Q!kI!k{3K13gd+B?o@QLh&U#qTb{eLd@PYTirc<s$T~UnWVYr_
zX8Ux@+xxD{ckVQiaD8C===Dbl((*LjzUx(3b8{4{h2{u>BxJa?4)K)-haVN!w^h%`
zD|z^;plNQ5cMYMg`mA0W7Lz6RI#_F&?fFb&ZEcMb@)nul_uVD!%QXyl6nU;1C(KS4
zuG`9$6^*HUWvK4{tIVnIiRny&uTMkOpFfX2IDI{fEYwn`<UZL<ygQ3U=f{Zg#$W=J
zu>G%?4bQItBxk!*hyW3zP-&Rtq9R(KT2^?jhNmY<sYjw|WD_BztgNi0jf_~tTxL-y
z<nJ>b@lb!_2CZw3px;_;yVf}dx&9V6ZNuK?f>ZrT`l5{JOlDMn;X~4|&(E3<3zHGR
zC7-5Y7$iIdXyuixzKF_e2tYgq$|ljdzK$r*%v|-XCTR_BG|k97Wr)Krugel2K&4lJ
zh74M22^NYw%F0Ma51bNnTMRL63>xoNV3kLs&y?5?$GTKvcN<xc{3<Fc0=Jz=0f_(x
zFY2FxzhQH6AJQ;oNNWuJ3kMT<X@zn7Lh7rzHER0s=G7F|!;EIhxP%0XMAw$*4_a8b
zSdQQCd05r{EPk&#Y*g)O3OhABTzLavaX`|oU<(O8`;n@%kb~RHczfJ5@kIdSxc_n@
zvaedZeP2rp-%8A*GhY10T>5Kcs7%D{`A@d(tN#4p5t({(?^WN@Xswiy_a^$yn>W(L
z{-2biC#u#v0&*8F?Z3jrLqD1aRsMwJ(T+JpBo*W@K;O_>!*AqZYF}X#FhLpl9=h6&
zR1I`cJ}j~u5`NBj{qmHTA<k*!@ys~HbF)7I5efyZl?R+MeI_>d<zJyrlV5d9w-*Nj
zNcpQMQC-kWLfgxap@b4lLvQG!(Xh0Wo<H<cYkl*E!^rb%9U=seA3x5>$f$!}Ou)83
zpUzvcmmIY*-%IMdKQu}i-rUvSAChpmXt^`I;u8#w_X15<`;bHr)Qd>|njMb0st5LE
z<AiPRuMq{AveAW`j#NF~8K>|ime=^XybdX+&b?-x8B+d2qOP7^7~on~X{`1v9k1R4
z?>!G__jfk1>NMni13T>wJ_M+;^$u~GwEaV$53YT>IyGLRft1L{+mTEpQ7y0CssRjD
zL3$NXrAfn>0W5?V%P%&1a_PzyIdAW3*GeD>cA%q-jFLJMG5_|!^MFfyt7vm=v??KI
zj?=Hmj-}$}=lQ)uAFt#6(H71qiKoB-q(;q&Gz#1`GP1u}p4ON;Y-GdQAf&nm<s@7t
zfRLngh_^#xU1hEIc)wOQ<XyToJ)Z&hsZ*z#>ih|s(-VBGdlmZ*;b?|JppxX_cycS|
zFE8A;%)Hk%*Edl3Fr4A0XHjqT_Necu*r&%hLwAzeQGP-)2DXo$^Oq19sJmISH_s#J
zbKo)VR!Jin=sN3mJvt#Fp%;@>Ht@x=RHSzU&K%T}k=IyPLyu}BL8l410vjBkO&hXB
zVNajpCt+e|ad`=lMv=01#kl5IX7!_~JIEvGFGxV2lMKCm-@fx2#Vshn-^A<~YYzu)
z@`}rIrWbI1ePM9tp}&3^IBgHRhsW7hTpABha{4@ok>tN|L;Hhc1BqGv)00}P5RIF3
zb}ZK0%fkp1RElw%-G5V&tDkOtj*+oR-FNTa%Y+1e$Qx`3Kw2R1T01&FG~-Y)mzK(!
zcJAtfkpAi?r2?w=s-ST8d5-ROxHlC(Y^8qJ?sBRE+N$we(tuZB#dX)SGBcaXoF)Nx
zB2~HXN%{Le{lW*Ka5hW7wYQ&vMU01#&7c0XPpNfv?yK<d<kY8VBkE_*o{_LNT;}CH
zqix{y43Z4s<nD6knN-(6#lszS_eD(W<Z+iz+PrzDPnz|57lrACtbM>rdg;0Q8*`ix
zlW(?abiP<b=#)8{4nF)=!+G>5F!<x6i`MEmW8a%c8|hN)up(~SA%pFyO0V-De1BDB
zN%38hPyp#36%N!ju6l)r%<8x_5y4lw3;szK#)O0@;{W|kWJrTa@^^!odL+}^c>d^%
z-@sk;nb<T@H|F+fdWBMDoGai?I(id_@ST;>i~DxCK27wQ%*>02N}YY0v?nWa#l<Xw
zOhx|mUX5-&$sWjQo`zwhm3OjjGvJF(*|!y9bhT}pkUEEn#_nggwLE5{bWAl&?z7%T
z39HhaK7Cr3H)}x*-(R|~)smX{#NB)MCco9UO|B&-CDp$SxXniCN7?XlX~RPT)-SRL
zelj%Hy}i99Hh6xWGm!Nkou7SL&qmhxZST8*m{A@*+|E@CU_FfTa21ZhhEPz7i;E)z
zEue&OybQ?+zaX@tePBlCCb}!4P5Y@gYJI1KviQcwr$|HX_YXGpf3iUTwFCceykP9r
zU<C%>;>wgQ9v)RM9%rNcieW_~v-s0yGe1RdC%2@_l(DgHZM58!eC6&pf!bAD*4P=f
zN#yf@m(WP_UaeBuCNk;psUMGIE`QVO8&J4W{$~9&%JrLoMSP{~ul3X~%$yv_TH}|j
z{$or3AKmfaB*TAx#HVhxEcwaYP!mvoF+-;t{bScW2Vh^wi-@6gMzs(`6VR7L;l5dj
zn^o99X^R~tdjGD~ZNPSD(?g=mb=Zwp6`OrD@M%HpKHBwxI2!Hh)mCN1A4pkZ^EvZW
z>CkC(@o|;7535)~JcOU{k(1iZj!^P+HwqK>6F~XI*~_Km`|dQ|*t`mi3zVlwrZy<f
zKzt{6XDsQ(rd^0sW(+euzNB1Y*Gv&M5b1CcV&$dci6DZZu}9@53_<4J&gBM?J&(!_
zRy`ylH(OV>Ihn{Cg;a-%q0Yl~AV8M%*0>neY}0cWA|q;(xpRCzK=L12qAr%NBogp*
zU}2CIp{~mzxesxUxA-8(BR<=@crvCr+R3_VqByc?&EaU}rDoP+)$|2X^rT`|Z&ljs
z%@A^;8lt~>`v0|&_2Q9eLyG^O@5eH!<$VrKE5T>U2?})PIk+}Xin-q;tA=<;VI~lH
z+w7dw*PHr*xz@#_;vVtDkF%7>xxe!?JrUvg|1+iZpLhHJB1QZ!j;H_rPiVmxp$;AM
zCt|4sVFMB#b@~r#Dk|pJOr&Fffy|Fj_<(F6GsG3RuNbA@0j`YM*+A_KqlhEha?QRy
z($X{BuxCOloXbLAd+af=CU_`_q6(Ked=w=gy$aD_pKCR`^%VP6KKgsK;)eJrt60Jd
z;WeK#tv7jTk}xGLDjILH2d!0W3#T5HCyEG^WM%?^p|A&855hW|Zfr4Tu7Vs}bgZaB
z+uSYK>L&H$e2uz@22YIx1RwKY2>H2|Elr>ygIPR@QL6|tqzk{$Rtw!f9*TgFtZvwS
z^fW5OL&7S5AUB!&+xPF^J$I$qUi3b?9`>|NF#co9q`!E0O>+QWT)^%ArQ0d(KA$sV
zH)D$3ysi~5Z0~>Z#DAj-Ck=S+Ykd3Dx%_K+)s<Mj6z)5NKAYsz<1GY)mbS_oZ?qyD
zgg1c;;4Hq6hF<Ae%cN5(-D*1xxi}<m7b$`<E8gVB=C$-tI6<HdQCqafz7;rpt8Ijb
z0_NgA8hu?gJFnE6+<<sZwVDk29;el@`fPk@LDhcmcp$9qCdiNC`=bIWL7jQO-`izU
zX<VRlB}?!g`poX`u5OgWMP_j~IaSruWR3ZTJPc$Uj1kENg6r6qOH)%GzQ-*3OX#3^
zjoxDIuTutm^q^!gpZfyX0yuQ>Kc__a`6>R!s3kVLhd$h4Pxtmbhl*Vc6@bVEKFbaV
zl?i_7N_F_B30{0vUx12~<A}NX@DyCgX)@vlXiuY`e*&-C!qkG_zvN~P&`9kqP_kla
zYft_seCz*b4~IVpc(V)~&)e1~eLr(EqMEzyMZeSH3$kl=(5HpY`X2x6MoVsA5E~Kn
z`!4AJNBn08MKl46(BY?_G49M}AMY_QMZcC5TfNTGUpV3x|B#c<CGm!wi_j$2@qbe(
zi6D!1?7UNDBwS_Wpw;^9%s%}yoGY^)9pvlS<sjP<&a{P+mh4^c7npL}XxFfzCBi~0
zb*xa9@B5|}961_2zP=l~H{)m9a$kcM5GgUcZRzLC%aGLX_a3d=8{+VamJ6c8(lC8H
zVi$&5L|>{bvDC>D2R4p_1VOVF?lAw5lK2E=s2r1M%)>?jG6vlZRcuj{lag_dTWz5o
zkI&sUH?MdRFUBB$9l9kr-Hif;^ZHllz6|H>#GGBK>I4K2jCf2MrcxCYqQCSLv&wgw
znRjU~EG#K1;9NoAP_Vuf_Eeg!D^t&>cGRs>&aQhIk8CV1AQU6^h`j1L5f@hI%PA9i
z;(qVbR|5UMB|FFx6SEf%l5_2yEb?g^49CRk7Sprl*+v&<U0-^bQarhGzj9#Na-awA
z!@!M+>mM@CNO4m8s!%b1-(mR+0RCre_rD-<OaGW6j=J$9vRxW2|6^A$DjicUgcCUP
zOujDkkZI){71j58ls(ap;~GNS9f7HXovCiD;f%KEj6@9FNU}Mhy3Btl7yqxEBn*KL
zaktSS=;va&si(*A2nbD}j{r)+D({FA3I+X7!d2kBUL+($X{6j92O;ai*5Uxx=nxKp
zSlXx4Ca|?Yeoh8ZNY+L99+>~~NGC6Q|4%Q#WCX~mS0s1F0=DK^0c{Ijnhef|Zn4(q
zCQ^A&b=kUKR=0*6CV`BTSd2$9jaK>3b}x{JS3ygdB$C>}WAWKBb(#Bl5(S;FKt^U5
zbaNGkVoGu@si%S)ck*p1WN#O>Uk`Gf^EY7|Gs&B^dLis5?m8a`9H1<2GjJ{}IWaeP
zIp6Jh$gI^GuJeYerJ-sZ&bYfgE1)_lMSk#J*XUkfsb1g;2x5dN;?)60Dk_b*Pp8Ka
zRyGUc1Qc1l>W$&Ri3ziwo}$A6Hl%CdTe@Urh+_}*OXlt?nm%^OEhwNuWT3TgoKb9C
zTrC4eNCh^B#RKXzN?q!Z_Er!X9?BLJ5%aIll`0m2#udc;Onoz6=`?v8<<~MP0~8J(
zu>NCB4tC`Rm>Vh0g#!l-(eEchZ`%NlY@T|0mv(6AGxwc)qv+lOz4sZ`Sdv$L&+`mp
z(`3FU-;~!##OP&}G)C^kU}7yQ>ALp3`vAk)T@J%XqnXR4(CBtgsULD!p%&|AV>S_2
zDQ1$sY~6qw?|o=Hf3MI4%d%h5FChbY=b`v^wjDz5xGrctXBHPW-TQd+$ttLXX24{<
z^6WeMxx9vS?nu9lI0Z5@&E|f7LZqM9eCNWOp+%3(%Bx`<u5fJxEjH9dz^XmUHv%(O
z=a1-?C=^v5y_>JOvIZ@1nK9_MR$f~#i(30Go$4VQU#One$~YOXF)3~3S#4AnAQNc7
zS9G}kQq{#Un4dwee^Mr;T`x0}BYnX8wVIdL7pem6=i@)SUU!|ZmeNyDmkz}{4cNZ>
z4o?Z!-kHy`!{NW!jJX^((Lcir^}KT?0Jq?pO7~)zCN%0tYyM&uGbUPt_QDd)q+jl2
z2m8!};ac04ZL55jIZcVJesdJ6Q2>b58)Lwu+!kVN-dY-RY9Qe<0m%kj6C~;qn!G%>
z)*a8tp0Cckrz-XCllR8P^6)uO(i*`xVH$f8II7ow@Ng*#6ka>y!5*MT=fiGSflN%&
z>G+P%@DvJYq>Ri=>sTFQhka|H2GTsI_LF=zKDJv+@9f`0p@Yq0^Y<A=Xip{8WS+9_
zu|L2E;1PjF-(_U9-R7YS_jYDYP0GCdXMO#P9v$jKNGNbGP08<vNC^Yr(pI)@2QKI1
z9$pnBBLLDp(tA&8NRXGCTiVsNm^06B{m&nSIC2!Rt$a7S5}eEpUWm@JMeQ?FJGF(w
zC4;0DF8958)?*+=1I7Sffxtq*V<6&lYM9l4Y-bR%df~bcz^obgO2p@Kv5Hyb(Qies
zqurU=(OTcH4~LZ3yOu_(#X%byS@stB`LIn2ba+4_=HFhhV-l98r>2rJGKj%mQV*PQ
zlym1zTz4cj6|(~{{yC$@C_e~Kv+u7ic&xYI_{;L)nXVRp7n}?E_L&b$9Y!O!M{GO`
z3hjr*7UFm--IipJj}C#K5%fLsVhHk|!=`h>Q9R|=C?H_|mF)NL-zK1wWaQ+?V=$L2
zIzEKHRudzE(+JiUeAF+W{iPTIQ+%MB@+~`AvJJ|A&Nl)vt$&3zIy=G~J%}0s?lg$(
zEIxqL4<DEo_}>DHHx7~U^%liV7nOK?XqA(|EYM%;TkBd06s=B`hal{WQwy`Z2^<EL
zUs%{F+B0V^WXD+#+)wue5?a7{T4f=p>Bfi$0Z>Bh);2cCnM2jZIn;!5C3sPTNy1|x
zr*ySX-$A$7ZL!~<h}DY{;qy=?kb`w9TrO>`jE*L&qS60xmmeh_Up4YtlNS;ag0$DM
z2i;C%UVc6$kbH_U)0>`7pt6p&NF51|cyAk`R9Sn(fCtsfPO#O@!-d1O@nwm#4J-Tf
z+(5zy+3zdl{#D3nbwa9T!^?qK958y#VP}BalO;Crocn}|l}t(IKK0AKbki*~4Ra|k
zHQIJp#f~W)G9T=7H*C_@JSn6?vxY#DzPTxMmR9|eTjP@3Brxnv*Kq~`K|zEdzo$3r
z2Y!Ed(hmsUaZq37fxgnv&@kndau|`IrKKGM&xHbPu2Z)>z3JLSGjytbmuAEHDu{Ws
zbLGI&0H~(Kb^t$d?#sDq&&>u9ogACbXroYwcW5ktqQv9jN9*0P`^b&?5HBF6CCE`>
zt$dX#KjL-(?^brFDCi%vLb2j_`EK+^*?eY}o{DmDc4nr>;U-RBB|+GZ5s3A70(M6S
zyD?I}HLgQbk4!-|ixGFvy`GbrdIE8LuslA$rq2yL3z%a{?YC#U38b;XPgo!Seo5B~
z|7z5m?h=kfV+eMB@Z=SZusIyPe)E0#K2*{lMuVu1X&yp3IhTWZAh$iYmw7ACDSXP#
zB{DEvYKx+PQmpa1D9_Iwq5w>1rmgRI`xL%C*;)(*=DS#VCL|=1(7a-^!QXMncUAu0
z;<3SHW^dR7Scp|9%LK3}g=yE1)ff>DMT6F0FzbfNWQ)ypT*3NK@0;o(yehY)!N8~&
zr0kKOSw*=x3YCfRiWg<rD$?7pw;4qdtcv0;iCs>;xgz-J_qV_VfuVd;g0S##iYMtI
z@S|NZ#&}Y@zh6VZAbAobrzlW%#=v`n$*ZA)-T(5F&=F|l0?$orpvupJZw&MRm)}3_
zkzS*+C_OPeEUfGEJ+9|WqSPr0QMbX7)CG33t@(3Q-A)c5PxqHP7&jE%<qkx+Q_U#7
zJdj1ehi5H#*p+pj*#R!Et9ur*2B=M;AhIA#H)8d9vKbLFTUHAB++}I-j5N0NE<)&n
zVGMB#LE~kr3mG2db`DD7I*3V#iC5hZl_gB>8Tw!9-LSQ0A^k}R+)iIY8V1zO%l6fq
zeShCmPGKQ+0O9F7F?1BeFF6$^AbqLFYy(YcwlUkCk(G7pJas)tOkMWgC-s8NA({~_
zUtvgu>H0%VZ)t7oj~`>}Ybk%^<d%})O5n>;63YX%xextn0&z(pCIoO>sO%87LeW8F
zF+3D#;K4{ckIDyHd1Gai6<kV)CCHQ^M$%jC(W6J%JZxu!{6Y2v073+r2r)%K9T$Ww
z^8q|14A(54ySD%32&B2Fl3!CZDDeVh^kK8zvIlml)OiT=ulvPf{LMYJdPwM|3_<9H
zE<0{s-eyDh;b%UFd*hHFtTe9a?js(slqktlSRp4!PkK0M#o{Hqm%@Jg+bdD9=Vu{z
zT~(7<lSAYIh2DK~IXQ(dk<8+02Wu&C9_ga@z`Sw}7>VZx2VTD*KO){Rzn=diC4%W`
zay}~$AYqk1B9H)8iFgW8$ci+<^+Tbnt=jC<M{;Af9{7~%0DOjkzmp0j@MOytY!N;4
z&g*Vyv|WLhL7}i_D2`T^jWGgoS|BSW>@Y%xQYw`p_J`DiL?bv5Fvw#ehy^?aYlkbo
ztnMR^(>L*c-ya&G!$_U1hE(75%n(D*#lb;zhK|mxG3d0?Opfjs!rI+-2R)T-&uS6y
zH6><VMzShck7$8&HTGIN8AQPvS!{zd`~B@D$`3?7b6^7y@GH4D%Zcm>_%BJK6RxY$
z@MvY%?W|4a%z+23%au7S8Nv}bIFw%+2B5g&;OK+abQ{idoC=YFnVBFXu!8cKtru)h
zfPxc#af(9elXWc|iJP7q(qM$})Ys!&;xUPCeY>gvA!Y-)msjoj4JZlVec+93g_HAi
zXenrD=_`WJY;wy9QC(Tu{8fANS+h{C!6=wLHPap!3{~I2XLkyUxfEZ;EXNh2Dh8IQ
z7BTN9NE!xV2WS|7xX3$ReH02Dm9yYNvuKO)=gBR@m&V?(Wbs<9r^{=*#|tI&G#oU@
zq@|u!uj~j=JUR;t3v1wB<uKo8^*s;-vKkOmFsQvk<MV#O_R58^19#<OqY}Z0#mN|v
zW>B7+o7;Q(c1pKHZth0?v8>^$PL|F2RfPM+;~pj2T%Oyq#uKo-N$#>lGDWW~^Es;k
zt!yAlVAg-~?u;bLcBjjzr9+fr8eJ;=*i!V(r_O<_-g2I{Cm-9&Vlp$ob#^L%+feHv
zf$^w)o-vAXJ@;0dv-Q_0xUb}HZpL%hj!{QX^CVjehm8m4wMR{e4#ta|S66-<dYH8C
zwedX2w{3c+%d36&u3u*6W&O^=Nl<SATJ=v1c<Dp7;SPJ%dqH{h(olq`xbT2A|Lo6#
zG4UBo1IWbiD-m>+1$7)9Ep5>}8kYnXwYHy?c89c|W;aC+M41Pxe4g-Jx>OJ6-)a2W
zz*37HqAP(l$`qUu!8s8nj*o`0HQC_$Iu3&?9qhD75uzlve>t!2AC`g8X?Fuy);D(`
z{dRw`R38`?$%eXMS2`So=!8|fASrg0J6nSC(e0ECI1SNn7VQ<sf0v|tQ<NnpqTsX_
z+eg2Bo0Om5^)d*!(MU^3_xuKBh+Bm&x9ZOwXv&_E(oaCzcR<oT^O?XA5<6e|v-zc0
znRDQWCCUWc)zp029(UswvH$4dvOARTrQRDH$($dPxus|3tcEErU)1c?I=o2D%z4$P
zR1xR;!DAxyTWhOL6f~jC=s?O4i9<@c-I_Mi^s%Gn06*NqKN`J%sfT<2S`U*qq$n%x
z40h`L^WJxNb1glNg4{U9db~sAVpy8?X-`+^AC=dr(#@`cKbDwX^XLsdl&gpQcBm*O
z(W~QOi~yUYot)N8S7?jr@j_w_rSw^)M14q5g6y`(%<3t=5|IO7yUuqo-rJ78l|;$^
z#+mlcKFcbSrJ!E~O3(oGI53r-l!WpKrGweRy68krrUI4^TgFQKAcJP!g*EUM=91X`
zc&cW!&9P}^2SGrmOzp3f8B4OIewxh2<NckRL#{`Urro=HXWSDNf=7RTQeNvfSCtw7
zA=PJNaeyW)c?{6^*FRIO-38_f|54q>uRP40`ce#V)@yGry`^o_JxU0+4pi0SuK;Ze
zOdAOgesf9HgF&hr>`wou%C-e45s|#h4!4HZphwroDnv4cc1j&r$w%C8wM>DyxYSs>
zTkNBslC!{!06y>~p8^*F*n>X!?9KIUQi9I5nw6a`2j!ePZTL|uuVc9Z(gX@%exA2M
zu)LnZ^-H~fzVk`f{!2|GT2<A#80WsfRB8^Xi~I6rS$X-B0P%pPTmyIaFY8Lkbzdyn
z8!n}PcnZj^QQ&#tW~4g+tCtEa^%KqE%;nSoI*Zj>BANBQ)_)hYu-pP%(oApsK_D+V
znFEt?L0@v<<m^8%_&*8`A!?yv`}=hJ$D8L6Bk|GU{`i^);z~>eFQ)IoBx{b%`YCqG
zh}#7q^Q$CCGRNI;P}5oQh!*zCtKQNxcs%vCOQ^l#>v`joG*rb=4Gpp&)w7$%0^@}~
zbIr1&2|`c7W)HFH|G1Q1l=0Gbcjx4+DmIW3KibIi5>hK5X5ck=Q4)U?Wg{M}gBkkP
zEdtaSWa)bE?creH(7-Tt!Qd2tu$ORAaIb>ccjxbWfQ*`BDGk161oLkRnl=QcroVH3
z^aySk{DNIwU4D|@dv#NH4$B9pTe&JxhgFZ)??T1`ADqOv>=x=(2hZip4M-`46(VDm
zWWpIevD0!ugBi{vdSj#lER&AMhuZ`w0NPK1Cn~Z5?3eK!phC_u{h2f4TvEHCuKVDG
z3Ew=<%B{$3u9$n5AnwjL-4Smy%mPLU1V88dM6ulLf`%AnCD;iF8lIqU=@|UVyn_xt
zb2Z?V(8I>%xl1VToq~>;wdBZm5R+c4Z;7Bx`l=H|h=zM<Q~<nLL7ABXs@OeW0|5rx
z=ne#AX1yYG)X<;;!wXU3T;;>H<CceipYc2V7}WZs06Dn<4ce2-#uCI-;l<@a)0?9G
zoML*ZhrFN--syyTJNzkb(Y{L~gtY+@!@uaBPu+YebTnvpyi{35Ldu5)m@?+pciF0p
zMAkUpL#Yqz49-vP&jk%nD1jm<Eoq6h(<&LmC?U!Em*khdFTL5H-P5$NiJy6mmBXoW
z*pJ^C#E3-hQ*W*;r@KgXM)Uqf*D~$%x<Gqrb-%UBgieAbYBT1J0ve4pUU{@7Z*vz=
zFVK~150^q#z8GOcId5Yn<5WlgsRcHSJ7P~az9+gT!bHfl7csAR9=~bd^0g_0K!a)B
z*L2QFvjPUQ@qA8mx>|}JD_S)<NBGA3%xX*>Fdj45K?W3yDZ}WZGNy@%;TQ;9^5rk%
z8P5B*!jqtxP(|Ek-o5FLMkjIK(OMD{wNN{x^FB{4qhlj>07`>`HFfd3H|jF_(Km!t
z6*~Om(&jvP|4G_9W*AG~8~re=T}8)K(e}VgJl-VMLMytKR<_7mw^9#lBs`&=<Rn|=
zpvE8fncOeM^WgD&^s9&!ynhEXnraaFBILt%xBnxdCQaifIAddkn6?s%ee|9NUuI)<
zhADEHs+%3O|CW&B-ACuPgnNcEoi<6l&(_H;1^)k08r%U$i!}1c%oB9c;^=oFA+s^R
zbx`iJU3kz&HbT18(AEwH``tgK!Qhk(kkf{i)M84&v<yQ;OSd6cqkx=bW3qx%E2>8d
znxK4vp)wlH%|{=Y+`k-`%&j`~IWw|X^Vv1`+BA&cya8|X+wynG++9LBb4Nd<(MwXD
z&!gU_VZfuHy8r&7ih^}>i;R<1Lc5#Fr1`7%Lbv9jA8FOL4=PtEnbjhf{SjQ>>9cjs
zYvsx4Ej2Z@hALz(1?2}RVgiPzcu{N<o5}SSabd}9Ad_jaO2@bBp~klNlTHR?II#&;
z8}a|DXOrclPZqWTZNgX}B)=u#b{xoh@@fLa-Ls{`{3ryzCZD8oN_+>*U@T2rnSlg1
zxp#83ig4=#IKBY>yfzU}g|q-e;8_xJO+*@JAQPi@VTmHDH=$In-D6td*-AIyW7(2T
z^?9?gaMzDVoduPLv#B&*Ybj^#kid|DCT~%YKn0IPxC%Y*bEGd`@jVs?ms}VmQJr-F
z&xHR%12UCSCVw_kjo_TYf^Xk1^D=iDNo5|FY!c;sR%YVur4|D?c;@IcZ-NMi4#S$w
zfIoc7nBxz|O+T=Q6E{oO`Rf4~50TFTv6hSwj&65<%<h~bJQR#UfH(iH_DmC2A~7@b
zRB;fEy00HheBHmqXjTxjqzBFuxLiY8UhC@e(ajR;XPg=a_xsNz-TmfPtAdpScb~Ov
z$8%rMCo_`?QHhC(buVM(a;9`p4x=^9wR^pJU@33}tYO|3BdGQk+#_PsB6M}$`&-3E
zQ$UDocpm&)RG5FKax(U67%%yE+m-3Kv+wR5?JLN+{5C~lslMxPo+z5tzBChOOu*<T
z9m}Y3{5a(IbN4C-IXShl|E+ct@N+aQ$T#`x{i70@9m_6P<lb7}HL+qe6Sl#`5=M0f
z$K(#NTw9R5dsCR_`kH68-@J3`J5UV0B)NOH63$f^@L5T+8u0B`BF4{MFV#b5#7HER
zDXQ5zxmGu`j-1p@Q6Y=iw0igl&UL7GVm}+_G7-{U)cG~)mRw=c6BH>sC3$e1Jwt~?
z4D>LRP8>ck$n+mYh|S`LkH5~9ARUp#Z!yg)1lJj#(NHmw2jiiGX@ajc3Q&>;k5l2h
zO`fL<XJ;hmoUYqxX=!tGOgOC&KV;cBE`T^<fZxc!Wlk5~%*6U7Bp_-%zt3f7eg81B
z=e%_eIATx&s@INK|5<>V{ZW*%(jq<liJu+RHh7Fk*Y@kvcHG43g;ZnG<`iRy*_rYl
zij~EyZIJGyIjHqL%5+fpvm=fU&&c`rh=u>oF#WH-r2oE;<iEP#{<A_lW`*K6u3-X}
zs`+4dojuU85azME1)B>{xd8DWKNdx3XJ|g&yn82xjzx;h<fF{4<>5-83>Be8q~g47
z0>lr}Utafx!h=FZwFCgefb#1S5?K=)_`hFQrk+l8?Nl1@Wn>=Cyk8T<3bniOCSs(p
zfpdz8#Y60AOWSunzG&zD_xFlJ2JcXj$MYP4ft8B*gd>c>m;;a8U-kGJ5YQ4fM=-*O
zhZ+SdxzkGZHa@EDk9UZ7`AyfEqbJfzL-Oq>58K8mBTfqld&QJQL1q-fvTgupExUHo
z#OsfwoRC?T!(geJzh2Mjg3cTD*_ruh<)xmJgQ16%L;9zjanU8#myDzg0y>|D^vVR5
zq#2NZvv2G9!0tEkRJW4PoR?j0uV!~o+G*-mV2Nzgye5BiyIV!2?Ak`1c5yFvPEG-u
z2e(xJqM;+h%C>HrU~WZOUgK)yz;?x^T+j3I!@_DzbgRXII?v*BiBh8DBTrUFGETcu
zzm1{Cvi2;VQ@_pj>j}6?dxtX7v+JfNKI~i1=2v&?FY6Z@WQLg<R-}xCOr+$sYVr|1
zxM6Wi+}(fllYXoC+V5u>#o!$Ry`l;x_{xA4D)8EUM0WP-iNBQ6EA$b!H4F{o(W-_x
zWKCDcWVk9qpxptxwb-8{mtb;c7+#KoA(cuk#Homnln-7o!sX%OHW|`W{*tSJsKr#$
zp^y=1FuV)=43sPRC)sk&4)@2i8dxwO{z`1h4ftS)bpm|6NF|n$!9%9Y2=560&9MB7
zc%{z#bKub*r(DGNdrEIpgrA$+1ofIWvYN<1M<)bC8<md|XJOz~QREOP5xGz%Z<^mQ
z-qi>*VABtjV1nG7y7u2<NxK_Jqn++>5)2YGtB<eHLC=Ov`VHq&;uBG@$iaFsmG8L0
zv^DttAO~x^*jibEunZo;zcL;S6-cw0RKCN+W_<oE1K(|n!}o(Zu@m@sRv`6i!E_sV
zfuLPj(i?YV0MqGJivk@o5RbryTWm;*B4?2Z0pl=oT7JM+fpbJ`hdE!r-X>-rTi><C
zT_q!c!XGKw0fJy5%eC}K61kj<ktVF(8!wTW9?oL00E$dLza|I9($tYCpAF6ew<SFV
zYv`2qB{qBRMfP|?tKJMU4)f<?;3S+t=oHh0xir41@Z;Yo6qzvcz5q2lW=P|#U=4O^
z!wIkgKT7R`!Nc>Q#LX$@z=UKtu&koU%a9oxP_|YSbAYf30m(>I(*~p#WZu~=wGTuv
zHlLkFRx!=2q$C++oC1aj#5JR49Vh-SyG6+0FUvr@VzU4lc%ayC1&L^`019RhwvFLT
zmj+NJU{Z(rJu@?udj=X~n9l>%cE~LUiWQg{?y2AGb>qbf!3fM>f+Uh!4nV+n0sXK)
z7Y#@m=#muB_eyM@HJU<bCIj|C_6ZMUMi>qqDn=pD3d{s0oauuL^Ycivp9opA#O68>
zupq^8ee_6P((AUO&CHxA!m52SR3`QZ<VJQ*xa}o&OD_0c<zG=KcktK1E3LwPlmZ78
z3@E0Ql`*7Y@KJ8dzc8vi0O@lLD+djD?7^>rc({;(2wOE&YUY_xIdGFxnEZHi3Fb4E
zv<?Rg%!xp(L1yKz=oN9BjsR1H{G%;FN-E3eQ)aaNkiI^Tp|8F^sg>AiLj!~7m+qw@
zqIU_JXBkG+zXJDQndJanP+!d97?D&yn)ELc09@!K&CSgal?CW5-Y9<;^S;4DDRfTB
z;<5C+cOvh;Z=s&u@Nwv1d=rJ=r;R2Wb(kycGus2=ArKQ=V*NHcI{YLl9Whp@8HTzq
z!oX3hFix-3J|3}mg9jZ92`Y;NU$_?Z3UpNd8a#w70Ao(TPdCBT8ZSUrkKL*0X7Eyc
z$$gt`RCqM_`K_&<z734=!+_m;%a2rN&YUT+mgk@<uxMvo1Kz6!eJECBbn8}tPKm8<
zmQ8A=E9m<nfPjaJ$$JM|>XM2V7mtJc3cnnazAU5YA3lD)r2f|<v{G%J65$&N<^s>H
z#@)MJ^D7I?dRe>f?uLByFf$lubDBwn62!=+-``(@=T8PY2ko3pc*0<q<VMx~OBoyk
z%B8JBtI+fNo=s_A5_V9Jrvp&dlG{+`W~c8F4MLIX_om<9H1eFgVBpkz1{plI?Hw$4
z=DMgF+cQlO_lfaKi3A~e&O`TO2cy=GBUbuRqQ&LocAM)f{M|1XGX`#r`W|~Dt<x7n
zE=pn(D0wj=P8?vwA%MZk^7djcNmdrmS@tWsg(qMlzjLpSJFpJkPC>)Kz?S*E+?RXy
zVaX4?Pw}CvOYZcRmh`9>kAQ$905c81J3nOB{B8|)f+P?V?DnXh-CB5DZ3KZu4BVgu
z(B&|FIW!GhMh1iX$F<c@NJHoMCs0T679D~L*e3lTUCguBvO6a9snR6LDo)u#1*D%j
zPZ%2GCxo$7RO#?v++myIz27GEjhK^+pHfN3T<olidVP;q#)sDTo4z~8mX067uW{KO
z9QrO0Jax9{9JFcusOubQnGi795|sk)#<4)!S#~ZxB5wsxyWn?+?_VG49+Mw@KZw4T
zz@UHXi0Wia$SSnGCw2c^6B0TRaXX--M0gQKw7tE(eVMQit|oz-hcUupq~z84q?#I*
zxw$!VZKJS=2zhmNiV))JYG^K39O>1`;nH8XH!8qsl$?`uIy5wtfsyeQb5>RsDVTWz
zw6f&kJv?y7_qN`|$tL-+5gXB?v<uA4&DoWx?MG`O0Q+ogZ5=ro)zlFEYJPR?cqWdZ
zrp-65+*x}0!2L{kfp6FaZNFkYUNJE-n9{b9BHNt9a_I)2HEa%xic)ZQNBGe0U%wVN
zJ$1DUY`LDyx`;7}IM!uRw2Y6N3SGYrj6J1Z4qZx03d%1eg!lvz5hplAU%!5Blt<!5
z--)hyWL6%|e}g}u9+jgN4slxLxp@j0?-$HGpdfCqj4IgJ@F2be_^*NT0X3n^+}wWM
zRvVt)1z9>tNl77*k+<P38|LTdtBe$u<{Xw5p41s$5nUfeKCn98B!bm<Usviluv~PQ
zbgg?X_%(+0O8HHbuMFmkqkg0U=FbJEi46SC!e^;5`~%;*=;9*bj~!Ml=g!@-w!SQ<
z5!h^251UFwLlbata3H1R+<m3V+bjAh3>WSdJy42-s-|=0o%~XO;50K|ozI&WFHjn^
zRFsq`*iw)}R8&+%ibzOF<J^^=57=&%uMFh9A8G*^0;~miufLyod*>Mtu2o>Gh14dw
zJ$d;^c3tRQbJ2@uzAi4bm)}~;*xy<C4(~Pbz|bmCuw=Ciwf_?CsK1}V!os3!bTleQ
zzm!8#lI7mLdt1Wrp^#5#JiOeS?DXk@Xy=%A3s`XT-9J;LbiRUz?KQu>)|}ESDj2!c
zKIr6oEHA>Wm+}sI>hr@aN4%|TpEOCH$>J63orawtrRReZ^5dw=E-Es_aqi~@IR%AV
zwDP6falHKeEt?Ct_!1cSX1sLil1{bfbv->jrjK#eIGy|V1Gl!^<mBaLXys235}J8<
zFeGy)19weALZX&;a!jyxVC^&^!PTo*DXFRP<JD#yzoBX6B|KJ91qB6)YHC47dG4aO
z9a`YcaM;2)8X6iLw-$9{R4xYB=;`ZIojVr}qpM?}IKxzr^n(ZIe`2wMH*eZG>`%4Q
zKd`jq6cJ&lbYJ;8RO;Y#bnqA+KjZ%8kYuac+1jj<k|Vgwe8|Dk3e=E53t%og*luKc
zwpHhZjI@<iMx*f8n1m}wQ)%zTot&IDCR-?i?K%^r(zCO#>`x{pvK8v(JP=@*?JqEY
zARHGzfnrm7H4AW~r>kphqw4#E<ctjNz1497-79pN+1cl1C_n7we{X9`U0ZYF;D~+y
zKB=imj)S96=L%HO8A@?(?vRjg<~}7m7GK^sG&W)$JP16mlnh1Sr*$#;WZ9E#KBZT3
zgaQ6Aa(d)(rKAcbr+^jtk(8H~cJbBuP%&|Fr5r6R3_dHqI$z;DLvC2(HE=XoR3ya6
z%F311dk5Yd<4sHq{O3!}&n~mA_w-TsVSwk)G)gP$ElOl+$u4rF<jbYYmy=<-Ph_f|
zVZRcItV;Y3@84s5ZF#t{SZtBcp(i{_YJI&-Fog~3O?<p6WLwvP&bm5Oyr}cnqkdcA
zCs*`zb#;XV1!d&qZl}BiU0X%&BWZs6f$bU*Az?;pYE#Xyb+P8%yDzG(I(cP5Vs^ZI
zr{?*m+}ucbGDXT0nwQ_EV&|BSEK1zqT_4;SaNyRN1)wA+mx@~;L6JN)ImVNQbU}XD
zf$Q74@coSX$^JN|YCFq&nwkwKV+t<#QONKMs(+M_(bJ2?ZoPOxIlJiz?jbs;x{9i*
zt|9|gP<X6tY@8qCQ&Y)&zR#!V^XmM7Z-RGT@9v*3POjI22bL_3kNezkAIt5k&$iCa
za@!AAJgcdZWQe#8*9!h+x&7%bHxu7PExd`ze*bx;22guUufAWDlKcIqFnqn()twXG
z?Z`hh_51<6lgE_v`qZqlIEsOZNlr!Od8+|~xi1C%*o6iwq2!bl0_|J_84TugtFU!3
zBdAyM(6iR~9xt!@=V0gZ0h%J6tM{0-5MvJxHwhLVHjbX2o^L-iKHr!9q&YCzb~CQ;
zo==Gcg!1azqyi-s6!qZe&&i0Nj=7SLL^fLqaR>-d`uqC}#I=`sZf33!92xskuu97L
z`qpCU!yp469PDDVO4dbPW+?$ga`7k_>s+CG9u;K{T6*{hy?NU;$YOLXEaV!rN!?am
z0|TKiUs44I2a6XkEH4Lfhu!^rAI|Ala1?xaSI;Er#ULsw3XZ#w#*vTQVICW^RA37W
z`1Vcl#EBE%I!Zr(CIL@eLnb<lX-lj6yE^3w7gtxLCcxt_EiHi&Zu7IRLknV`vjzGN
z61t+2(%N1Su`|h2zi58r<f<wr_|{}@4lyytI^Sp;NOv7R)bG+u)*<!CfQK-f$-5hi
z4G5>_=kt_$Ua-5?&cLA00Z<c={OQ2Jz$<#JaEDg*_FHoq1m?C*j(8SO1P&l<u0aj(
tsXG}X_?2OufbZ|p@X!DKM`1X|)0A9ZKXIE;4SCx!C3!WuTv?N+{{!3&Aw>WH

literal 20264
zcmd_SbyQY+w>G>80i_WI=}<rsMCp(&rAz4)l@2Ls73mOBV3Pt8f~0hZh>C!8w{&;I
zJJ){BGtT>d<D4^|GrseV?~iYft>Degy4PC2-<<QB*LBSmq^c}Oc!BByf*^$V<fYXS
z1Y-jIgNFmJc=go2hc7s$3Ubo$75+Prs`7y^=k4Wno*@W68TtpKYt;J~K^TyG(h{0(
z3Cp9;6E5zYh^_Z4K4uwwq@qn^f^kVT{Bm%x3<f@CD${qS)TiupZYjh$Hod7OB>`F@
zPkVKPQ;kSwG{y06^qv0EJJQnAl&&BrcB!}=V=%xxcs1(R++ItZLlev3va*ZV&FZ9x
z0OCQxvE+^?Z-24>rTCbf(GMXdB`vwG<$@a+7#J=`V9dnCbe^)_<|++Q6BmIrQ{>}(
zk4_m1lkN<q+}}ApoK?$rs?Sc3Y{ocAJ2!kWM*J1KLyv?<eM6*~-fU>qe0B*649AUI
zCZg$xzGcK&g)c3A^}HCyMN-mxzgIEcP7ZhWCy9OVk~;!^M6srQ{`@P6;==3oR-;og
zgG#4{^Q;NJMrVip4gp@bD(9I*_C}t?-Z8&W^ySNK_wA=N0``bq?Ey>eUd>vHQ~=R_
zck(HDzabA*^K^t*c$A9hm2>CLmCr=$P3#@TFF)a;{7T3_;=8<To!~NL;kJ}pM#a&+
zPU4j9z<brN-oSPA^{{OfVYK-*8=oeB!t(jlkg1Gwm>7@D%^6AX5M;G{nuyXLqlt^l
zenR}FK_$;jEDkYUXjhl|(V8k7b`uv#m@EcQO>P%0Gu(*}2IuURln7Z=l0vm|9;B3(
zUdF$CGZ4SDm9vWAg*bBU+O_@7)?0<HYlix+qt3g>@>gHh9nai~74s3z&d%oYK6cw)
z8>b&GvunvvidR)ve_40BlRr>o9#YeuTQ(Mat9BnV+57N15uHdNce?=AbW4O?Q9i7R
zRHkyGs*X;O&&iUJc7d@(nz`wCAs=rZWjBwSzJ4gDLFGgcYm#p^i_gAnDCLW?ac}DP
z@89nhJ1_N3!U+ZRFP%e<7gT&C1!!d1$Q#d2*UqMXuqG=WBs!(8`BB$4+$;IV6*@>2
zGnbT<F!A$0)YQ`AjeBTdz=7b^joYaRJI%jA7%*S>l1K(_Ot*yWEcFj>xvq_I=yS#d
z%BJlWkDu<AO$|OtE*ZvRc-dgAuV+x@a%tRiOR3BI+acM7*UJ`gdoX>ul)97n%zu(^
ztX8dM&^-J+4i}v&aI)Rq9LH<*w$$UJ(dlN4>FM#o?zq@~1M$}Ydhb}LgR(Jqh2!Hn
zF}t3+SPU$jKsffG5AG`o3~|`IEM;06W>=Yn#)@-P>P3@@*J}3YybrsRr=~(~ePfOg
zG4*N8`TW_hWA2OCD2BMVw<t2PKH0Qe+}J32G+vp<%+Jri8uhV%sl?}o)B1!2BCf0)
z?v>TYMey$Z`)02q5p{F(Yn3i57n-=1Enxpzbe5ZX@8lRUva;e{WK~wIeG$&}Y*z7j
zBf`gz1hdL@?OUza5!a*dBp#=*%Jv)06wJ475&N4=RByFQ-Me>hXouR;QZJobmML}m
zUX?Jud%Z8le)8D?JyQQIjM`!GQ|46t3oJG^HsA3zIW9`SmT3$G76Sv>+}zadc_1Ny
zq0dQi>@DVGVAtnvZf*{D)G)ugT4YA($G1x!&kCFt)T<8{bIOl5TMOa)a{WA(qs}T<
zJJ|9jE#b7<C6<>~E9U6ff-ygw9u0r#5T&N~+9o~RUBOrCUXSoO#_~BD9)H`{%|ke8
zKX6(#xmUGdos;oRUfM~-;-N?F+qY!Zn?KoI@F@LXh%+FqMQ`HcLtsZtpB}9RSj6E4
zG{xTa;Nz^>?kZPlZi|E;vgeg!?v1)8drhf3JM+@HO}uzl7tz+%*8F@fF(81>9WPQI
zyTO>mb==D}<lCjRB_VhV1_7-Q`9&7Rr`z#Uk5+5;3`LIDo80y%100$!Jsjv}j>K!6
z<boUW!Gh{%YwK-~-Q{;B-y-NEWI`@C6y5ZbWE}B1J8>{mhJAenjognAxgAM&NeOUn
zyR93;t(c^!+dl_!a7rBa;7r1MXR#OWwdDLr1vjj8Fl3XPhSdXV@f~;fXewRT!n>7)
z33YUI%KyAoux~g=F_3&UN(b(v%j(E^NOIjOVze3=iWVE?RFzxp!VW*K#TakTcjDo^
zQrh*|{PRP*+@4Wcc!kGlvFAt9>efMl=YeA=<!wyZtNjM9w0SkVL+?r;9z>T%DlWpu
zQ1V$*eha6i<`?TNwQQ$Eb8WEvj#@b6Ze5wGLu^H9X{XP|NSP`d`O8$c^JgCG4Y(2U
zq9mkht?MK_q@<D9$LM>mVqnDv2FhdNaG@{#Gv`Z7OOtW=#;ZPf;1B6_h@XN|#I0bN
zlU9o<63=~ab){SxGK58DV&7D0myXy)c=Zrs{ZTysxF@%zrKN6-nA5g}+r{WK9SI4E
zp9+hmU*BEVSdJf5?H)2f@EO;;6mFT!|4#Y-^Jk;rT*50@RSNMXk(5)2-sw-7NoWdE
zQVM&=`Y@xV#BRK{T=?=8|IYcMw+lmcK4QvZCr&M1j#Z=k^Jx*fBM*d@o;04G9Nl*O
z^ZlL8>UbS}Tn2<)OHv<%ne1?NMg~r_c>`CdZ2wn2f~Hzqm+Uza)w2wSTeoga-p%B<
z9SQ7AlVcVZriRriTyt@LWMq1Ft&(N|((WyEgS~$JdVjFP`?Bl#p2bB=ea9cyzPGo3
zE4JuX)zgdbb2sunxCS8^FfyW#{%oMm$7hl7EEi6w<ph?-Cb(lxA*XHj{+`gvf{^af
zU-O0KJAHZ^a0djlJwz;AF^&VojxpFD=6$uwukjaW@I~{n*x3Ow+*Bf3p`Jgyaq(71
zyDRhEnZ(GWYM078ck@<;%cfx~$O_Puo_Rnu)74yp5VeX@NwOJzkS$6;&3AL=4!SM#
zDrV!#Eg*Ct1vm_gT>c&8;zyX7?%s~IBjLK!`*3<PfIi$K?J^!V7gSY|tzX<(pFTCf
zRt>wR5RLeb26!FqrpQIm?T*9I^!3Fcqwv{{g%VQpefa#DprWFpd~eKS<p8QrQ_m+2
zH3NgNsVP%^=Uy#~+%m_R`_+(M1U&b-VDsuKCJOP+@Y$5pQlHj+vWdT+@v5kVCig^f
zTRW6S@Xjg=M-TROS4P{Ep&{K##|o;^?Yk^uVn*80*ZfE%`<)BnXbz3%SpylR`~!3K
z%7$7ODme|^7p|#kYF>@z&|~o<F@?Nk3K7M`$}0COK~O{U;lmKCyb4)_gfm7#F_udL
z0{*sfJyNBd>g-37nw@>0fQm;R8xw=kk0j?oE*YAApl*4e9G*Amm+|(lEng`emS!U_
zT6!NH9egi}<$QiWyORM0Bto@DhZ@M9sUCZ)rW5rqrr?Iz?7DbPyukhHPe@JHK3rn;
zP@jJ6`5Y}AyYs20$ibheRFz~=xDY7CH~mPaQUd76d=6TTP+Y>`=;-)$rEJ``KUkV+
zssWdte6-4yLPkbrs+q#5c#gxcT3ckj9?SISyX#DFOGM6&w@d*&aoAdIOf~Nw(tEDI
z`0Z>kU&(p6y}&%?HXY_?rqmZsA{m=;9W6mY?TNx6a8*G*XGh~M^nA7>16ghUwPz=5
zA#riAJMMbyk_QmeD-YlzOjKdtlyDg&Q&gimo-_Ihz$Z0Bo%#y6<3_3VpsC7unO!pF
zok#LrJ8%b6Qzf?-x>;xL5PHE@nu5x8Q4)_758Dr_WO978Ioz-Kf_%b$;jUr3Iu6dd
zW5=U4_|BmEWOw*{OxR9|Nph5p9^>0OL)*F&m!p#0rOKKU6fLkQC$M>nCR1`h4&7h=
z(y=VGu*~h3<+J>D#Ut+MP^G8ik(Xj$$0M6VPtl`71wNP7qOW$|ThyHu&z__#RSHap
za;uA8mc(<I{p$&fmk66-)rE<+cz#wdQhd@gKTL)s??VgHAnC6Ujl8Z2xvt(+>@J?W
z3zxbZ($1sQS!gC#_-sy@G)%U6sySpOal`NYMd|0yD@Y{2p0m$}oikN;c9I_}<eWWF
zVikizST?3ed3_`1$UyC)M?r3f3z;i*!f;r)(Ug0s@;rIz3NgV?d2WavEpy+tpQwLq
z*K*tJ8=jWd%9}d`O=Fi|;SiERc!nLK0AT}C8sAWba)N-GzW2clx=a0<Og2u|e2g?T
zHSrkzVtK8i_a|NvOJ5};Z7^01y}~U^BjofwkKdx}>d|W<IE0$6?$A^zRUW;WPIOjY
z-sOXXgY#ulMJ}c`HTzQ`Ok_cU!NC{M%OoWVX#N^>G2Z&3c-l(;mnSM7tl3MI>+Us@
zff-okpXNMeWL^s_ef|Og=m}S4+V@$<VJp94mdfE|r$40M$j4xL@C)nYVcYo$fX_<R
zr-w_Dfrs^!f{u?yjwhP}SgkWB-ETu~xQKkc$C`K*&~4XhQ{-D%bM-nyea?p?)8w!W
z0JCJ^{ubO+04Nm%8+9;3t@0>T^C-#RCjIEpZlFWcE3{;^Ao<gfb-B^K2d<C|r?PYM
zEPKv0(Zo_{GhA96BbHQBh0uw4dv+bj;b=9nwzct(Ti0E@>lje>eCzRTxGzU`twn(E
zE@oJKTd}9cfweUC-m4l9N=TsDfHx0x8@f%Ng9Q?YJ!D^@KXtg2Pa%o70T4JaC%;xG
z*MZmb#q6IyJnjv72337yS85=QJ8a!-C8LYT?4*7fi-wrTTFpc2;nKFeqn&=EkgX0e
zF^h4k+TpuL%U@oPuTdCz?Yu{f_oVurF~pZgs~+MpN~@_w(teZdS(9dtln)uQEUzVz
z{H#}|obaq&uyJ|=FQ)Z9m$7=u*1=qIh(&isvl6wi%jc}DEE1?nyDk<3j}^0#@VgOI
z_gQ^4?#?B<FJ9mH$(}!8vj<DlNgWI;y|LzVrZ?g;Y=a`*@Fl%xnEM+o^b|h(P4vrk
z3it0*om>AN$xMB2J#vW`U5@dyQ`aLUX@#r9rIH`LYvwEI%9bI)l8HWHXJ?Nu>5wm3
zv-q)8XCkJtbDM9BIa%SyKbEEJ<45TPr>=XZW7W@1m-=$UlKO)n4M$-lWVr0muET8%
z1%S@JvL;RCZI{h<e`L=rn@Vh(`3&dxpCFY_eWa2TO~hi-XcJ>#K=|SGPXgNaxB*Tl
zx$wHcy!EnlnwrOf^iCYr!_=b%<yfwUQ%>t&v9}$z0NXjh{%o3Yy!QD7K4)U&Sx0kP
zglI4+vn+y$LfhcC$DNm#C#$AL3TO~PqRmr^i^&c1DfCLM8(@*>_i7SIFh?t$r3?&c
z;T><1lZlb6oE)jS_C%;ffTx>w%B%-pK1uevoL_r*1M>yKXEWpnC@x>E=FtjLUurYV
zWji8pv<AH#hhAy@jHAi=M1v~%wY)Zea+wA|>W~(xdX<XXw6tEgOb6+Sl3$R}(weVK
z+7!IyS5JSoFGo&60Zn%KsO`JxXf(S!v^vlK#%Ky4Zb3U*XmL$o+n;Yq{3%6z*KcTO
zsC>-<A0L0CQ;we3y`AFn<qZ9N#+cUEA)J+XX9pcVaL?jK^ZlLQS}g96T?~`mh)O>G
z*!isV!v{osYxhdf?%luKPWXFUn2+9Pw>d5DE)QOWn<0^JShL=vp@L#FrB#YD+tJ{Q
z$^t1r3RQ)L&$9zWavgilYFj>u1Gxyv8h_rAEG9NN_yf8#CO?vaFHeZkik#s1^ZNOv
zUFczN)g9ltfB!y%UwyV#jy?1flKnd$y(}yfpCmoUVU`O=`?kQ4TeXw`>{C?n0Mr5?
zd}$Hq;Chpa%NXg)GYElFFEl8vG*oDYD;q(V=v14xBmh*vM%DNU5p=JJFWT15#2DEY
zzZxmAqF_;sH9o6>);huG^Z@aNKs9Z6dG7qHr~P>b<?D_3)2HEyuSefPcC2$=dXV6K
zxbVHTwW;A1E}9?+=tZm5=--xLAy5+kjsw_o*smnep0Wj^$m89+cLPtv`K`C)V+`G|
z*FrY++ajxgw6_8GjFBvefhr9BxP55y2xQdMMd$bdD}8Af!tZ?AGiDJT9X<5|mkv=q
zyI2V&Vdx3{+GrI8z0a}3NV^a%y4f)hxHOd!r~Lj9?hcWQR(+pekYK{!4Owbw6E0O6
zc@OpU(7a0vc(&*!qzR%|xWuLXR_u@r){jnh$4`#-T2K^8EOuP*;|(l*^3(C|u6~~;
zZ@$b3M7{L+AGf!?JMJ~*6EE?(TvzpJMBKP0t%O*}f<9DNk9a>*QhNHOW9W*hPPE(P
zYl^QQBwqQMP)>z%x09T$ot=m=N>59bgizeNOe^d{j)hA^4kuq|z}#5?!NKHDOwTDo
z7g4^LowF>J_=89yQ}@Ymsg3FKK%tA#nAe`c(VN+ty)pJ`!+c6EW8eMZ@lzHweOHaa
z75!cE37P_h&o6y<;MG)BebZ->5-UgVRot190b%z5Pwgx*A#Vv%BD!I;m&a;`$7btJ
zR_tT|^}TMLA%l<s^sxasE|}M<Z=j?<SC17<=pKo<^q#5-_KoLv_ns9-r9^WYSkm)_
zot!M@<d>G``Y-kO^aMh&3IY7S5kGz`JL1%><iN_(eAOy*vKn4==(@)mG?(l%w%RmQ
zVnto@{3Gm+Kqz<|wnLHQ8jF>-^x3&NITyu_20NrBBwl>)=%9c^m*a(L^jRz@X^Vf<
zNux1p!Jps?6GRy^)C))<*)?N2PZF;^$Ty@dv(^asz<%S#lrm<QvjITT?@2!MzZq|v
zG-5*`iWP83Ju$G=SjyF}P~TqcRroVI8w^YQ0G94|Qq1Dj&(i8P!<zXqGp#Wpjg5`v
zQ3dxE6rlapXN1K7Sm?AmB4|PjAnR0P#Y1=VP^>8V$6@T}<R3#KoAArd;{Z~Remf_N
zdVTFmSI`i>OwDIa0&A>XLEtqPTSGe;8ITY()aBf75FmE4pz^(~?fvMbR6g$Kn~y&0
zSKOKDlsY8(yMufQS>FB`muFDm{8N`-Xgk^28H({=c9>V|xE9q|Ty*N4<}1UW@(j(h
z%(Y#rs<lqF%H#`3W&6#;!MwNA<4hYV|8=9|Gmp|MlE#ezO)XgNpWg=vntUzd<a*)X
zN^XC3&)y-x0w%(NR;hbgK|lzy_6N4$>B8&5m<IjacS;p&ZR5F1`zj~zs%Z=<A$rlT
zD=RCDqn)cpA<aLdxnP*zU%Os=F)pKF#bub^+@6V@9sh-R{YE&quyB>mFwYf({>iNa
zntqJMGFNC!r)lk#m5BiM4cQI6b*LI$cM}P3$zZ$SDN3K6lS5lq0a-;#fX2mX8WVw^
z{dOKj&s*lfgUf({XnHa39905wwo=$^I45lr7Vse`Fz~7|f-<A^2n!R_Ti^fszH#~f
z3%_s$f5KiM6xuPUEc}&;Bfy;5AI!v<b*9Rkw`=L^@nm93HB<VAIlx8m*|3JntR*}w
z-cU{L#pb5tO`RfasE+CB>1}Z;KqK7jx?`ZKHO=h><On6NCAp?nGeCwyuOk=Ok?gq#
z(dH(rBNd1*-CcL%u8;RD_8O))>bVHy%sQQEkqNkOy=q#Qva^NquzJQv?y|GDZYVAB
z!fH-sQOEZ$IeU^zck^UrUx;a)$qH|sdD%L1-^x0}Jbl?!fa>+E3u|IN+XbhRg}o-u
z7<}6@>bTkEbn0PQWqN)YwGV9fW$DfoYixOyTD6k{bv3?W?aLFo-VaXY8M?>IE5^@H
zfxLPDzV|cj7uY-D`goBADjc7>*UyyAO|1#7Xl<PDsIhBA_*6Qt9!$_$=ZOqVmEyS0
z`vnAq|9YAnm;LuUH*?a`3RR?YQ+lz=v$F84`txKUT-KohH~s#G(W2v_)+PQCdn}}$
zM+qpn^xg~;N}!2=aZ?+wF}y`CBf&souPN8fGhew{PK3CL&_PX+W+IhyhOKO_6Mpn@
zNeIBO?6>Im?_paCwIr_^a8f9COLI{=X|}AmNNM#Jf154tSP;DoJR}VfGx-HU%Z}-d
zM}Gvb9QDKnwTyESV83bzt+ws<8u2}xqm3lEau>g{yqq$>?o=p4@voPVa4sOK+S-9Y
zSt-Wz5kldd@6Dlj*}!m_Q$N;86hgI-GcDQoVZLFa{UJ2+x1AR?kL)5^UZKEu;qRS7
z>x27W#`3?kC;v}+>0j8y|5twD1xpncM@sD>=K42<dvgz4q7_PgC;fNkX8u~e+^IGl
zZ%k`DvR@Z&IpV#@aGdq5j9>>(Tes*U`~5oWjl;NX)0y?HJAL#_gZt<IQ|9bHzBGxd
z3KGa`>j$2QZ(v^2FV$R4Cj(sH;%FrqEv>BV#d0Fm@x9NVZ)!(FAY@pONYXf)ZMoNw
zND5@9Sy26*_#8D`W*i%49MgGA6^q~73ZwB5eVD$abxH0711TFGeUwZtbMI*95vBjM
zXnHps#bPf=KEvf=y(HfLi8tbFDHJrmulvcZ#*i)eZC}x+r*Sw+-DqNS4R&^R4wPmJ
zUwriBNmJ2HAV%bzoeTp0PPQU+#K7uL^HXGJH}WXK{*`kcv2`7a@Zq6y?s>pNrIZ7S
z7ceLMug*z<*C)70jQB~WupE8Nz5#F4^&$>v3O{<cy7T}xb8-}2M2kgPpswHloy_+?
zwrM{6SVc;R%!gUnw&)dw>Xg+GB%9=345@4T3pSziW1EA%fh-2?n&fU8JwcBmqy~gJ
z!wfI-t}G2%9y@Lw-J4?{7cG+sp8K<mkvWNb?)8;5YPDxvz7blDn7`~d2Q7NDjPAcU
z&+r_PLhk>(bG`4HB?|_FwNALDfL=Tsw;NvEf5yxH$GhvlAaeix7k)36F{3~km9&o5
zSd-i^@49anoDt!?iWT(|Lh7eCj2F7nb4Ra%_P3yW*H=YkLmDj)$T|=)snB?K-r;`y
ztNzcAD7`9nV2S0z9uQB&8gm7P(+W$fQH@u69c<2M7n+_!^Uf!Y%%N_M)<zI~2oXvl
zC$=Qd&3lNr!Gp_-G}|(2<mAw{)ObF45dEsJwmX4O<3~q_o#Pd5ehS_zPg}IK11lY$
zI9D6q+U98)OOe8T66V#q;sQjiFmp-Q^ARTl*B<}8B?~doIOLR-m4BKuVbrCaqQZ>w
zkk|buf_4XnnFf+3CX6?D=f)FeW@m@IE=vmJ$@P%gT&`cMJ>vA<PNV0IqZ3}X*0~G{
zWjM-p>Xq3di?23I`VFyE&zL@a{`}eKQ~SMRIyLs!5SVPiFU1)qvhFH%ze!9CgXT;)
z8>=V46x6=d&Zmp#tP;N6Qq|Hrr}?09VK@R(dC$kf8vF|v(AQdvXi8!d6A8O{NH4sm
z>Ag*W1)<ApVXe^3LtA1V_gJ^%2M`fJQTjDazH6l=67mQ`#BFSBqP*0#E<Jz#T)=5w
zHEL&(rq&kYLs1b~Z%J?XQcq9M2lae<JwTn)?$R8cEEqTa>H+ThKI^#4zi=lwRlI+v
z+%+vYbs#xVvHLSI_M_Qfg-$M;g|z~N*sVnje)jsTEQz|oBu_m*ryQ&V5^Prpnw8yb
z-Ebk3eDuiU$>N5}!^)M9+@*@!6%`SBLOTgRziu)2#gw}12fek3`tm_RLBXM2aBcuq
z*>38WlOP4aoB`f2111tm;BKZ73Nm!!Juz3I-nj29nxCy~xY+|+h=qWbWR?6;2H-{Y
z#M-|CX#U$_ZR02`$%Jra$A}Z#DF}&arZBKKD-EaR<>6f(8KN>^X0m)nU~I`9jE5C1
zws8EX^JwMJlIsgC;IF{{ZxhoYQT@+<dIA0uX$Fnx-;Z1w41!Z3W)UQnlOmO9so63;
z)k0UliX%PSQg#v98E)Vrc&fV?(B9=NO;c)4iSv$NTc?|+T!b#GgcHRdN><dB`t3tO
zoje>Xd|JJO9)q*Rpshg(sYuY%4nM>~D)aaUS!L9^ylwe+5|jd3reBZ}3FSq#4+QG!
zRh>6x#BQ9lKcQF4+z45-OrJnu_kG>g46@-3fm|#EKxBpm(@+mzpg@=rz#|44+2|&r
z&Zp#&_LTnS4flAy-NjYsBEX82zsfv33{_35r6}QClDUpW$+SyVH&whv9Gn9~t_z&$
zk%PsiV7xzIT6vtLVZxSK6pu4o20>}7cNMNsq~TY25^&v5-eWLhhz#QVVw5t64Bp4n
z(07KyOjuswJN%`06Z`HxsZg|DQ@ne+aK9|k>05M=DE|{`zPX)0e&#whqI{`+jsK0k
zIMlo58}az(E3sGVdWrT)=RU}4rDW`nrcm-xnNGdW?Ge6zl`?Fqk9ho^keEx!C(Sye
z#Ic-P-<%ebHfjNKMPMW_{+zu3Vb;FuK<VU<(I@=+1M>@6g4ozMB-=TyC_{znZd@d#
zP5y6G0tR#B$rR2IB<3FNp9me0C`mr2&wF}%OSF7YQwRQaEVr%MHqedh=R4CJK=LqK
z8>_MDy@kf9?oWh|01MRWuSaWj5!80oq$sRK1=GE8pSs*bIfzw7%gw7d8L?6NYy5bY
zAMrg}ts*|#ZxOR^BIGZ2pF=-H>$=@Hv|LO@%F#7|La_0jIpPDLX2cizY$+`*5n$wO
zy6!QhrfGqS=<{=ziR8APzL{G;)1Q6ME6bNkaIa&PYh)_#Z+EMtEV++3$*6(UHk?fh
z5qm4?z!Tr)S_Q3zkl})-B#wvFip)=`-%!X*)7DS^M5zGbSF6X&#AI3c4#V@?l_wv0
z!{D6aSj~~8%CUJ<n&8x8%K-E&;X~YjKHT4*j##NHvl|b0nEqDco*5XJH3k|^fzR3L
z$1SWEh@t03Gv9I~H#9@qb>3cS3!wQlS2{0U-Ih;!hj9#_hzcJ~K==NA$L12A5hb}z
z1(hyRlXg1T^=4}cO!^&06@!=uS{&8Brzj}mfXk^MG=yE2#d)a0^lo()74Z-}WRz}f
zrD2WtzNv7fzQ%nAl{6hd+ndUWxBdJ3%^$2~TH|o$R+lbaqU3q{=44NJt@>4=SxYK-
zOeXCqSreVe5aXUKwf*C*j_E$7Qfoa6%1Y3ZT0p`WDn8l$@B`oBX`DaMU1rd@{4Rc1
zrwi*&ke!uPkY9%&nMv+99^~l<@sGJ-q0W$P<wT(rsCu@ek6OKV2cPWk)twO{1LY2B
zC#}(N*fh9D5WFFmIV7)=H2{Sk3jGD@T@gRYT-5pUm=Op=aHq&Yc?3=Z<ag`s)lur{
zZ(&jlBnUF%&_Wx_V?kEww9qxbz6rw6=+lE(X&agxb)0pSPz7@YYQPZ|9zKl#P1`7d
zh!)fnjH5N%(MprSB6D;TC%TRWg;DckBB&b%sKBqe@z#Tn0^EVu=7P_A7ZYRlE%b^T
z=oJp92Xkp41%s~!7pdO(Mjgv<M+b7|7?@A04`$<CaubDJP1_R$LBu(aOaQOijFOh1
z?#bF@XAk}Rse$lY@aP8_#1vS2`u=fh05U)prQvS__%u*pQVxgTXct~Xvc%Mu-f1XX
z6nm$d-=!l4#t<Kmaed5VZLl>Qr2XdR=7H+x+_UY8_^n08l(HkYjBd6zvgcQ0qQ$xX
zT8uupFDSSn#d8s8N1sDLmAJR|G3Mz(#*o0}bb<*0Ak)A++T_%dkam)?D8)UZH#DsC
zz6;cd31#_Qk_TF8q23XB9d27}UouHG$N2E1BgqYDfX*5ZSCm3B^ajFmexQ&Uycp`}
z+EEy~F#_F>Q#Ncv|FRY+(?Z)(A+#glA^>575P?VxNxJKSib3U5!R!cvnza%HpHX?;
zQ7QFQEaD57xn9?E0yeIfF-G23AdF|$e1Zb6Qi5)AvIZ6q=wSJEXHorzhhwlPJKJ<+
zs3a_-BSG*Y_mlR}_|m7HOgD9lzn|)L^ZZH{qu-kAD9e2R?j353X&R|`Hr?0DLm1Cz
zQ*_38;|8XxkK-D=NX-H2*rQv|9#OYsL)g!}e>i0HhQIo%c`ELEi1n_RJH990K6*Q^
z0t1Iq3~Ss|pwlg?>f}s!7MlP@rgR=3T3`p}8P*AO6Mz|GpwuSb>%#L0y1NAs?|ch1
zq-q{qd3q|E{x3NU$J2QZbOOUAAc4SL*q;+S3xYc`)J=8D5*9e`mdSR3b72r)y!BSv
ze3$-TOC%-K*Rl42`V0|%t&fKh6QV-SluF5n-BTp!TT#}``#DJk^ZQTz%q#=>=Obni
zz78>5!>}!aLqhawG$56?RK830ookB^05T^wBWNkFiYUK&^MdH%eA;7P5-_WH9XcU9
z4~=!ec9dogr}WCaHG1+TK4-nwLxbjVnv0~Jw{Mvvd-I)Gc6BFwrNHWgPVsze7EBS3
z`R|y0BT!5d5uB_Bu?P*AA8)UrI|O9JpBh8J=EcI@t8!Yv?B=0XvUAfGqHT@2)e?M(
zoeK<FsHkr{23OBz*~6BV9URFlX9_xn3(By8OuB|F-nuUefsBav%t#(5-iim_f~O)h
z!veICTyrHE2m1@MC(asSJVQYSVkMu1HFPS&17DpYS#?C#R9=?B85Z`>MO3X46U9Dc
zTk1y0RL)%w%<AUQ6yu9%!P0VexolNwrlHka8*Y2U)+9Y4naH3&emN?Y&7w~Bjsrh0
zyoq^a^Gldn*OlQ;Q?T|4?DPN)iisu8KvKWho8tgG<^HnHA*3gi%?hO#6SX}YtMS+X
zg^a$e?1th&@KZMr_ST{T)8^pE$$ppqpS{BFvA^qgRr2&s10mD0w#CsZes9p#Fp)+g
ztbtlQw}luyQ3s!{nbh&sKkB1bhrF6b?Grce@_5I0iDYMIcsWV*@37eE)3%92bt3BJ
zqNy8nsL)p>#EQ-qa*rbO7>OgpZ_1FoLFRC(6_8;O#;H9{wh*qQM*cLe@6iPH758VI
zn#rcq%9(3_3B2g$3N6psEP0o=#32;N+638a{p&>)B<t+bPxMl|mH1I-7ufI|hIz??
zCP3aqSJ60*1%&A@e09Y3QiZ-JV|%qR_Q~&;+Z7jjL@rATn<M-qpUU+)Q89YHFP9q3
zYJJO~Y2Blw0fT~el?w+zebm3xfBFu;XHA~|`5#gQh}qq95}E-qjpULaDl4f3obW7l
zT08Wyk+aDracAD1$D%>ukK$M)dwZ2Q`=PZ1W<r|jlWW0!1|)N1YVU|KJ7@BlHY@ps
zhR=Ea!#o;dlW}0NREz({_w&b(7vLYm(eP2vZWWh5_euh69?VqEyL{KE!urHm<KM)@
z1VB5g%J$B&BF=cK>Nk&^fq}u_T@+YCEp}=?iDsrjYsUO=9v>UiB^iqFe7T|3r>v}c
zkUOR_nv<;3WWySP@V6aj!$43EM<}iEWw5^_ynAL5PSCPCT9pPlf$jSBAKKJ~aV;+&
z)AEBdD)r#Omh$`Yif614w`fE{E9bP-M+njuJ_RSXs!vt!zq4=0r!j%^dQisaK~iXZ
zo+#uTEPVg`|6YKZS92OWM2~)n#+5rv%X&iX2RF`tQgVd{!0Gn5E$%gZ0Bm78US3`{
z4vuD20R~53C^dh3?UQ<1*O3?CVHp%Ng2UYE%hkh0+>Tbts5$7Pvcevj@}jNWxYyn!
zl&gk;LbDa(YeC;sb#;S5(WU@xrHR7Gvoq^)>h9jka6k*a4^6cBWTx23Cof{ZM`m_G
z?=VKd_q4q-OaV=FGphBX0v70kreCP$hs$n(&=H0vCD5je>uv>)QsE;R%89}6*&j|-
zF6B*M`7JFyzW6&usw;$^7My0Cxu*cJ{NXoJK(ItbM=(?1F&w0ffwAyc(p~DAnVHzz
zW;ljEC(fwShnkjlSB5bVyXp;`*|vDxy736GqFn@waE5^usJOA*Pl%##>R=*n+nsWS
zmc2KsItYigv`RWRZwC#@vpmqi!|3J#Bt<mhxz#pM>CBE?rFlhy35*!}57^?}=(ShD
zIRSW@MpNtEy%94X^GNGuj>yfxiOghgsycfd<x~cy)NP<OOaWw{pR*Y#z(939YNb6l
z5!9~-#5oGtz)}Z7)&vMy^?{_!C>}6@w2%0LUTqAz@j$V~MbZ5UEI><Doq}LXo_zn%
zumPMJD+}O`-TmR~Z&F{hsB-wMLO&}<;dn<bbw;BkGJN2CH7wMZI`x8^?32&00M1fy
zr;{w&g_Q-9RL}fUl%|<QIFu4zrH~^)R6~6q??qA3TIPY!4SY7$N=$#g5pffjF(nRa
z{XCL41G;|$oWbaJ7jRquP;>n99R6=Gj_A8Dq|cAniE&o1OWxEgC9o|U7WMQ1#n2Qq
zbTG&Hn@~alrA9sgE=8r(&pKc1L6U-0Gy{%+e?o;+J`@yJtyVs^%a=AoYK1d@tnE$1
z3zkJEAYhUR3JQXa8H3K}c%%FoaX5`aYTSaVbg;(n3l}bsof3R9VI8_Za!)(I7T}zE
zYseK_Z68A-&lABOxwyJcsv_GX+TV60JyrQQmPBRMzq8I4WEhP9F{Kr95{G5&W;L-n
zA^E9MXZPF(2^@UJ=$=4ebZ`sl+>8ostli-9nrkvBA<<>qs5)@c)^+W1-j|7L<(<3w
znSIPFr}+fK_ph2GGs!Z;{hiFS=FEWjy{&5h+T?N4x}($IEHMguS3ldmbcWD9D=im8
z?2kUZT2E^qRp-1Yd_D(!Q$O4l6kJSY7GgM7BQmnJ1&>8Mwe-T0?cB?noso&!wZs?Q
z7cOA*B>T<$$;k(YdCoR}IH$~YchU29F5V&ic2=+t25P;8+r`d~A6S{~t&Xy>vp0ce
zU&lG5&eD>!X|@9K_o}Gq&Is7S5Z~AM6pc$erSaoQq@-#`J!x{p;FFVb;n&sriPVA{
zOHEzfl%79X@EHsEp?-k`B@_-`*QN54=KJW;geQRAGaaw>+8qa@65Gw2zvP=xT=E4r
z6U8mVzhnKO;qz;-y}>e7=&~||wm)iB4BN`>oSscaMszWN=^?$MZgx=gCGlQ>%Vf{K
zYSgBeAKJjAR5tOscv^$Uy$dB@KY3YhmdRA+O+#xXYiMYww;d3eWk4#)aJ=0_GIOM-
z-&Afz^jq1MNaC-kJHD=~BSA1eU<OL_Zm*d8_WTP-Z)NwO4;{i%JG}NaDPPa9zM+{W
z>*PLwtAB%QS6ufZAH~Q(mzcT@Fd8h3w^oB$Bm+Z7)I$RS!2#fr3!}Q^Di;Q}v9$8?
z@?K%!sdo6R2YgSCG<@o4@UY{&(rDfSsOpI4Ck7bLrF0QB>4G0O1iZ>wxregSP9u6?
z{#6#3#71_EFsS@7%7(+h)YEe6`)9`;Qcbw*Ub=FrXC>8`@|!zwq%-KQnxP9qKXW=-
z&$a=KcfY?p>G(${nVXu52}ZHt_}u}s2u4bRsc_-dda=_DVvj>G2dslVh(9~h`oPI)
zZHyKi(eeWM>65=y&y;^6r(o&7Afv|h^fv=K{IGjM5)_!Vqot{dw&V`owpA;9&=W$(
zPanmqQkv<y*z>8=AnGkg@;uHqYM?zkJu#ugxy+%9JyBJl$g_riFeHxO=?WCkK#=&G
zFo4Kbx8Ll_uXr7*j@RC3fQGW*Ik-TXt7JiXYv|pC3>*T<T(EMS5hhF&p_8LJ+5Ce}
zBUr@!J#8@yS)a=!>zb};C*l16*}Ngf<NKnW)!+pn2bX5!3oKl)Lfp0<-~#q@qOgVT
z%UT<|9~=jY7OrjW!DH*uN?zNVX#?2VvvF4Tfbbe;90&Je|7037rIxCJ3f2}sZ8!NT
z`vz=RsF53RLkGM0VQt~G)78SHTU%_!?Q|~tk)TFyF4M1gD4_}YJXYA%RzFO73yk%P
zi;D<iSF>~ZbUi=}crD0k7YWxKh5rG9!3YLpBVTh}tD%$kt{eBpB_|44IRj?FMlp`(
z`ee!s6lwtS;PnL{0<{G<F8X-rK4FZC6V~B5{L3HU-j#26DNNfwB4(JZhPKui`qKHX
zbbNGf11zm9x%oG!^WgCNPe-9XgI69GK_CK}d@-<wilJrDv;)`0ZXKZZmwL7p&8J8C
zJ|{URYdLw9*`1Z2qLX3NWVR#O?(8nuVd31lZBJ5DnaD3)!Vph;9+!a*`0S2@uh~3p
zmwK$y4tn6-ZT}_O4l-{{?>~`p%RXllxMEMgw3CpM(%y2zCqn0h-g=v$G`E(PiB9y%
zT5Li>0@^hJ%XPy9ab4&-2c-!Z_2Hs{I<vUSn^Z7qlpf9H`@Bj5Vi2Ybrt<_z<n(ch
z1oe|X6YK^Kg}mFtVqr?{fmXJ&B!1aeRrqUE0km@enoPbgJdqZ<d3a$W?My+aPPW@v
zCQX%U#15{rnyA3`M9Io|Eo<U}&Fe{{7^m7S$A)XzMK{?O?lc_7BW`*ruI<N5@h93P
zb2%TkK#BDuDNql!X(#qCk?jv;Yoe@|i<iPpS?0JWB<zw)du<RC!zaVTsYgwkwnu)m
zH6>X7<V=HZjFh9!Qq3wm$WLu5-$9f4hX*&4(9eG}-v291wnWtdZNdMh6^e6!C4n*E
zWYbN={=gIO#)X9AV|CD!Md=&ka9Hb9OIl_(1nBg@VnCiu%;x%_g^PevlzyUr;-f}(
zcApro->^;q0;=DmDM=c@4|7`}A_`_tJ63=`Z;XnC&ua{&73Xf*K;vIG`&Nzo+G@#P
z_gTIH&HCn&^X6jy+=g4%BDb2AB|oSPzT-wdk>`7zb}@^sdV2*$v7rscsH4wr%Ap5k
z+wa7iEmD3n#QGy6AKx`lv2hWI7=~kSfl;N`O(wD4Vk41(X{-t6I$2vsDX%5%sTyD~
z3PS*2>4UemcO89a))#ya@LoY%0Or>guM60ic(LtEfT)jnV?wjDp>Qa1;xaIsZ5^GU
z{tbOrN`fJ;T`*xRk(OW+OZ?9oDgKq!`j@n~e|S5@qed~9gep%CzNi$`alUb?&9DH~
z_1>J1SRIzP=hXGwPTo|PFff2zf4^^4&}!5@wSzyJM6l~WKhPirI2j$x_;)?;f50#D
z@<AQ#BzVLfpn`$@Wf~obf}}J(3!;ukT+4I=_=5DR6yTG)O572^{}ee7^Zm_rPy!7G
z6#QPkd|7V(_*d);sKaG04^eKFDwnSQc6K%sj5L9C6*kLZR7=DD;B!3;fpCGfz@rj=
z8{j+g0T{$`;4=_}v5cA#*GrB39JrMOXaCf%eIP=Bb&_iBkju?(bX0}y?6$e3_Jop)
zwg=2474WWoPdtGvECgVp>eiM?v~bS!hT8<Zzqs9ZX5s~aV{l>xXsyT;59uU3K6{qJ
zUeO+mfWc4_hP!y$1{Lmg^Zc2cV_y2r56W~*46a{dwd5j10lWxSQo(F9N}SEDtx3TN
zhmp+VW6wWqjSjRh#{=KCI0q&?jY2L<PJm7*<=}8zllRnWZouRT5Ct%`vpifz3_uu5
zmHu7Xh$Fu5Vd9H%Bl?&|Co;92lZ~Sj5@+Xd5N85@U#g>*6d1k^5d%A28$v=T+PpV{
z<DUV8)Y1Dl34wqzzb6$UO_S(ELLE<aLC|}uueX=+&5KMQnCyY+FOc9hS*gMr*Y=pn
z9qAGvlAIq8I3x}X+-&`!*SeN8oYB<Jf$X209?qppH5mUMOa3z}<ijl6Lk6n^T8u&r
zXEQ9!#EyFuCvaCz1`+so053p=MRtTYva@d>zKiw&BssVNFOZ%!ed9P)TATuNodU&+
z!R8VU1FYRVDbi`-OK=r<-A**<5i=|#OK!>y>!D3micDH~a(RYDqm$F;6i{}+7PCQJ
zFffqdPrJS{aEHXDu%&Hbz;yWgLOeM{KWTuS`ir%1vR5^7lF!vZL-tv_5EI3g&{Y@u
zoOy%w02La=Pwwdg>_Rnb$&@!I3o!uOwEGs5eQ}9s0>Rf`(zy-R6{>nyRtu;!v?}|;
z|2E9}e<6PU!_le#(Fpy2_X#|Mv`>K-!$2gpOw2z-|K@3N1}k0aQUUq7MhRLit;sHD
z?d-)YB3KUnywFg>aocCCfN?%7scJo0+as5Gk+-C(6f-TlP)S7F-jb1h156>QY~hOo
zX3xsQd|@R;Ll)`F6hk>m!}RlhiP*-?dX`<HrjArxx#4Rjj5${oZD%DoQuuXIU{r$l
z^ZP=fD^z+civuNhG+8f}z~Nt}t!;D+41}i&73%(#{j4}FEGvCT3khg40k?|aiS?ch
zN4JwF!5AtZ`rk;X;V8I?5Bg!SxnTHfdjW!LWDfc*JW7G~0~>Q+pYmMbrtu#xqOq|<
zl}WB*d2D4d1*kcGq%PX&-qxU!G)_*_Q|m#{jAVkASg_z}jjE4kUv9FenQ<$1qk$9n
zXv($z|A#w;^6!f-zK7)Ne8B<sUJyn7jM87`prF!Pfg1#Ds;Y*D;V>IkzqFHDTwJWP
z1sgqF1`-JjSE4rM57{?l!)bz0m;B0sBpxampuiNEj1&thblb6oAEjGR!94J^5N8ZK
zvzI#gxws4otwgb_f6>JQRC)Z!y3pobP+@bDf^zdWm*Tspe^KgXBn|)Ne*EH>SQ&R=
zVxaDQ(p=A9d*F-r@0gQ<w$uS+A%OjtK=H8E-QsAKgp`aJ|NbCR4&&)dnQI4Boi*3)
z4Tr99y(Lm|mY^3ROU<|tX%nw&i0hj(Zk+Y}T%hMRr{5K2T{$&!?dbQ_$}y{|D$61B
z{mD&-kBz!!z<Nc(WRXnXL}>F}r+`R{;qV~y-qJ^Iz7>y5sg0TX>;pvn?QU0A8s+GR
z@+v9pIzKLUNT%7AKW#pid#YArG5mT((vTl@D@Hb1bKF?^!{ph|U7_r5VSaj<LBRq2
z4ML&-$sfa3rq&0x{5Y=5p?6Do_lph-(nQ0Ww-VkU2vGt0TmXR-yo^iDK19o|nwdu4
zxK0~~>k`ke9B2IHRFUzm?|N$p#yQ%;oQw<CczZckqf(K%gx^@ak16Tj(?4~fMfSY|
zB%RhD4W4v-jdxF-wcJ5O-PRdUll>L$$Hr}OyfD~>r!2DZwRo-tx)abviidtd2_0Vx
z_{%gik|@6)Uq%h)>1lgAc?hBEf+OWknh*l49WKhjk_8E5M}fhmwTJ`{o2D16pD?)^
zK+H-U=H$FQKngwI{R(asaOx2KyS1@tdgJ3swSue~xf8qv_|WhU2h=*tMJdfDGmr^C
z7Vme4J`enF**AdpQB_l$%p!U-*q@u7ot2xbWOV?<#2w#z!4Jf+4gPC?W1dni@|TeF
z4WJz@|7k*DO+?+TpQryDlK($K<X=Ky!S?O}>wKnhkB9gN@;-ff(Z2-7WyhY!Fs)63
z39}C2i|BX(CdQvXe+06zklx;2Fb0OVJb3sJ7m~6|6>V>jG!u*m1EJ;u2%3mqG!*RU
zS=nFqUIRvs%Mhdkdjz;_!dqDU>OonLjERYfEWF~6VbD+8d;YZ~pi1<Bi`vnzVQv*r
z4Qf`Zv;9(3^ueNi_3h9|zYQQEav6sn7PXK-v)|@11}vh->rySwz@W0yc`V;<aRwch
z1*Y-l%VC^QABLJup_30^650MOg$_D|FI59~GQ}!(5Hu|W^LBkYPl8}9Kp>ABwAVt@
z<_j&(efdVWY%69iw>ZCS_<&CE%dn9<>cdQf4m#u#zI4;5Rv!r6VTVNc#XuNh9d>}3
zNpynZ=9tf!SBrDf^Vuu6pR^|sYzJmJZ~S9$xjlS`CLNu*h2i`bXB+}b1WZ)@*Fg_H
zN1;Cf9$T39#DL+{@FjvPcdjxAguysoD9qdm<Y6H&<m=#BPLF`b?+;CHi!;nfaXJ2x
zZvi(<Ggx0~>Ai7$fv3R*U!1*uCJb$&=I$j>qEpJt!C#KRR3ZVeWXt8sz>G}p9dZ9=
zPVMWpt%Y`#Nhtc?I=mH8-=;|}z$`HCNzhufyinz`Qj|#nL;`Si9I)CQVrL@g12jZH
zkdmMCl}Ocv(nKt}&w##oe74&zmJxImHoYe4A+JXHNh~H?aYVBDYq?+Bulb(XeJeJD
zjES{Cas4}^zsQ(<ZpN8+FVN4^r=C}1{_yr?U_rr^={q_sl<z6cE|I2D`qZmqC)h@p
z_Rk#!Sk)El=es^6;pt#!EObrw@EKEC+n`(BADPooQ%hkhjgG#oo%;a2S`hw?$N%Df
z0`}?GQ&Up~Ns<fSn?K7cv}fw7jE;^L=;nU^^$Q)0d`wFp78V9m_w+m-jzWp2Yfoo>
zz9(&VS?c4k9x6WnAm<WH*_S=0EvewhOy?_0cPjo<I`aHM)Nl%X$JbQtg7XYp+s6@d
zIGK!^<2dZ(A4@xyT@C^?n(FG3hWRltP(BZ$T%3qOh2v{Z{c>@54YJcbh{?gu(rO=J
z=cqn;!b(c&?BoO)f;1>q9`u2pp`q-1az8U4s5l<#iU6(`a{Pk_?|9k=5}VUx<2jIC
zVob#vbZ;5eegu@O)e_M4qpdA{t|M9Q<HgXp5u(1}t7RTb(r<?w=5(xV1AbC)RJ3vB
zhwz^g4aj9-a4KhBWQn@B;o;pN1j^!8T})R0k_itL@ALagN-{P!91lKgzgS(h1!2VK
zy|SbvCK(w#=>-(!Mxek+E?s&J4v9(hvYbA8TJBuU%x{J<$**6<NwC|5fS`uwBb1un
zN-4JHqkfR9`x<m~i#`h*8yQ(y|BM%QDYeWc6||o(S=b&qG5xS%SQoKsTQN=?6TR{{
zYqRgk6ECm3F!!d>*3#14JPCG_#v=1p`-QG+ZD~AaW@hNKM__`h-n5Xd_9+>urInRQ
ziS7x-#l;<M<;?Eu?oMp!Y425&dKLqOGSbt}wMKJDd3aQ%zPy&+-P`*b+Ps`3V@7Q&
za5|v0Gb{sStBpTDE-DG7vVk4U7$O^buNIK*c^9^2ZESI^Ea2>Db1OKUlS=-S4tbiy
zrZnmq_y*yD4liSBn))~_BZEcz=4GfOW-!zI^y$;U?@=%b(DwLMv+4Qa2jnsd0uGqZ
z=GqBk3%^_QO#{o!z|_;<ZwAu_aZbey>FF{?tFhoxqK7OhfA5}zhDH=iB9LpK=J3N#
zg#)T??>!P!5lRH7tAv`wo37jOZ6q?JAc!{oe9x|CWJDiH4;wT+{aV?K$fqAR;)fzR
zZ7Zrm1Y0cY532nimFO}CGXZn2s;WA1rgAjVfK^;lVglZhIOhaqR`25txq%gztE{X*
z-O&bTyd&tl6W@l$ho`3q3>3m-@2>(Xm<E%Ev2vfGA27CMI#TX{_`<R_JpN)b+4vf=
ze00syo9^>Fqn|n#mzN1X<@aekd&XUAH%?Sz7=a2R<K9QP%Vtk220UT>i5eQ^B5z5H
z8n+EhKv+_WiUeKV-5_mc7r45mi1haLrNRUNJV|69<`f!dBlWE<pXuFazkOTH*;Zj8
zR*|K*g2Oeb_fKg;_|VAX*#0&>HQy^B+{`LX=XzteaS=3eNnPTshc5)&c=i~NDg8}i
zC4BMM^}@UMo_a9zzpbdLp|!BEAi>6<i@=4l&;)A7o4@|L64Zvl+@&@y^%|!C)HiYz
zbPvFdG`Zo1Qw)zcIVGl;V7%|>cn4cT9M1UWWqfF{H-K&M<qHZ5GBFD2EQ-@uGkbXi
zk5Lf2fRB&P@$@ehf&>a-M9&wm<SeFscoL?66YHMO<<rtqzWE(@nY1<LN$B>}?+)TM
zaScskib!v`i9EHl3+P^uHZx-ep9C}TuIE7pKIMbIvRUI)73}Gil$2scp5O6(*le@E
zK1s@9wI^gs8CrX2c13|6o_Np<1>#WY7WtRQZH+*V;8xT7n;15nbHlqxOG}ujjGNYp
zm(v>zqsJ*(S>Nl%UFGDY2SEIV9f2i5@+LZ(<<mn|RbNoQwg<hZzY!`Xi_)T=;~VVk
zSi3v5R=?WY;RzRnFw;mVK|(@J9Rj{2DH3cL{$vsqtmr629-Zv;+1c8DtA4&kLQfwt
zGBV;Tm-muk0)%P*LF;c&sZ7d-ubF95g*2PKV8D}CRQw8abc8XjmwrFg(z^8PF*iu{
z{xH{{T2MfOD%xO^*;pRr_8EqYGXak`rKqO>kiZd88;xOH7dW-wOFJak4Rw^hntDb)
zU;v{O^RE6Ag&p7Kj}|85c=ZTN)7z8;^78U{1K+rQA$NX9DRB?Qa+zQ{ySn09S9u=X
zNzcqY5`&x**}s%NJNsC-%$BxdbX8OcktdfK0#8e#$n&BO@0eDZG`Wb3zP<;*W;(&J
z+Z{>*ufz31uvIw<&`3-FaT2<I?b_?WKo~nvisfPy7v|&)50vjqRvBM$iTd#<6{-}O
zOeDBAepr^^d{uk!KsJ?49fBo2BSV%Zq+<_K6bSlkAM#<C3EtSAET$rx7J0fqO$`5n
zs=NSl#~!^f%zVP<fgJOxrY2EcT^&v`I6RzaULlVIxpDn^q&^R{Ib^<~weQ_EhuY;_
zT=;<2$%%k{d`Qn(FZE9KoEw;BPCIH}Zo-{)hf!sio0W0`t-v>g7tyVBx_$!ByLo$}
zU+0|&k58C7TXv~34|(A3E_B!H@Lgb_ySw{Sc&LN)RU_Y-<Ad#dqdH~4)u$^^-=N|i
z%Ltd_g;Cy4RZ&yF*a}(pIxp{g0vs$EIXMkmTibfqS*yLxnO5KOB$4NmMxGnzNJ$4*
zTrkCPUNxLy`3eaOV;vIq_w6aXC3ifh9VC~&;t5C-B007nTkNIxt9^Ll#MR7$kcfzY
zQQH<!mr-d1S~}kb*<`QXD=^1)4VQs5(nq&Jo>ZpuY;DY{z<+B_%91o-Y{mWTq^~Sk
z#a{1PA*8{{iH28@VZ~Kch?iYFeD}t@7Mv=5&!48HrXCjtr3RK*^@9X+;1ekC=sjz1
zBgJ8y(!KB|E-n~w!9zzQfe6bXjQor^0{$?zCax1KiV1$-q$IjyFsQ&27APQnULB?k
zlLb>49ymDW=jZXtjpt@(r=b5s^}%HPyk^sepo^^Q`x|B?q%d#H^E@;>+}|*NZwWgh
z<Nem$mKr=23zwMAH_#q@aKAvYgBnnXn_jrRz0JVKce${z5O)7SjYrv`@7dBCG`<p0
zB$JKU&`uWI1#)V`_JC7q;L#Mlf7A#e-4O*~t$`oScdwa?01{f*k4G;V@CvkV3izCg
z=<4bk-}&pX_y`8e8SyZ;-S47K2Y6!Frw%JFbj11l_j;Jc!(83PmZ%^6@}$tX0W*|}
z_rmSlx8qKt!G8r)qF|P@t{=@N^TBzA0a!r0#+^4*mKksmI5M)cebNiBUb}`C9|*;I
zNS^333bKfI#X4ZhSqdKg1n-4o1H+0`yBn~BQAG?-A<sqt9y4OUJ+G!j*K5BqB?AhP
zS^W_t{7co8SWVR!)+6PlVBM1P^gQ<6iHwYV0d_Dg6<SLFP9h3pC=C8ru=h!Mpd2(2
zVCw%}Djt(eVE#f2#Vh2W?<hyO;orX)*2U5}%O%OHg{RR6-rbW?md=wje)+!ui<4&}

diff --git a/reference/Rplot013.png b/reference/Rplot013.png
index 0db4485cea30d3c2b4ce6fff3b9ae7bfe3677dd8..9ad655afb62121141e7c790dcbe1b0b4d0b2ddd0 100644
GIT binary patch
literal 8521
zcmeHt2T)Y&mhL8sNKg;r@eoy%B%pvolSM@u5EKatHmw2@T5@h^Kt0G66a)kgNR%Y0
zQ8G>Ra0CI#LX$yKlabKm@K&F>cWP$dy*2gf&7D_M^{C!^SNHC{``_zd|F^#HTfDfb
zd!3#27ghv8*wLC-^$~<_gtoCT!zYAqRgrLDeyDx@DjeZ&^GdlN91c2a-gQBcLq};F
zUB{sB4uS|G=&P3vJmcmEy&VmxyZcMz-Z}g5!Pg&-)`*qdI`{PD&$hDx(x0`1i;F+J
z*R<T}3X0~o%QZK>R^Q!y%gVynEZxu~=Xfepa^vUa&ZSGmEz!YljAghOr^aiN4<D8a
zSrkOKE^_+yV%2{?`y`@5?k&Z<?t*s%YSAUXA;QJIU@6W;7eSItnQ{)mLGDxyg8VF4
z!!#L-Beut0#O2f@NZ~WYgRY4sU0-ymPz4#UPNE_K*6r`Eb)QC%W!~$wE52kS)q7jB
z3X2shT(2}PdM#Vb50=Y$o1O}58}t~?eZp{HMjX2t<h$~ASR_X0kwf)pkof9cL91=!
z8&NTF@y=_<F{y;@wdq%KLv2&-DQ+ET;pva{{J4)*t_r!r37+a1@$Rt?KmKN4Nj2)~
z>Wcr7)2w$H>-6~;elo_&bt2L@D<?;X=h9>ON$LH~R==4baiX;ohCry)($+S_Vx`ce
zu@FTrj=*Cafo|P*t!%#k9)P0o$~=1MKGzdg8K)@(=OT486bm_>?SzpL#!@AxA0wBI
z_4P;H=ldq4V_x=G`&GYH_48d@Lr0t~OWd8aTKE!nnn)zJ3_8}bFOX)5O+zY9qgRa$
z4JTB#=VYR_(gtcdRp(&L-aAY67<2O!Mb95eJSsk={iROkYc9Ua5s9V!_T|ldDn31F
z`l9O)4U*GX9X#6YbRDN`quj=pix2-`De+#nk8ZGVmXwRpA!!PYW@Tp=kR{A2dN6*w
z)ZB&s!l6Twr8T)`m851jMasbYTPXv6``g2F6VIPB3pb?cXS%On_U=E3$oqQzG*TPL
zS-!mN>@iaF#HfT%$+HdZ?B?dyJ6p9edPumTi%eFeRIv@t=2a(D5-2V4#P{#Nq;*cu
zxm9luE)K}FDn(!tg~)AfZ4WWRi9Y$;Fys(#BZ|oZ&xY_bsA%#4%=P@<4n@^UD$%6{
zweXBnMSgO37(XlFL5cS$F0-dNA1JLPv<<n_BO%zKxThf+DJGTpBKzuH_ZzXY=mM)&
zqZ>C~31z0IYqVP%glP(S?^hAFwZd(2xB{}Fk<lYnjsSHrDJf&YANz6_j=m6y)Ix`=
z?C-ds^%GSH`5CUY-#@G^48FxIE`9BbI(g-}tE=2p9goAeE1b$glsNZ=fy}{jkL;{0
zG4E}X+pMfjhmfIxfe0_htm5!yNU_84(Dw;B@{r2Z9E?ywGS7@j+4h@=^7?>Fc<TDF
zANI7y%QhGgSMX;8W8(~naO9gen&BM0@`C8B_wVJ2Zl51sICkt<CXuL{eDh1m-M0s-
zUr@aG%oe6I5{Vrh`h?Z?>n8aYFBZxu33C+TqX#jb-vdm_-E&*y$Jm&jU9Q}me7n_|
zxaazH0^VJ`bm@_loS$#W>Fp#Ln8K;jicL`xVcT5-TcyMk>?ohJwS~8oJ`oumjT`;r
z1!;e8J5uLtS5MFTy9JM?XR`C`oeTy}OiWCW*7|U6!-RE9?1(F*werTuv-v%KJL274
z$HmI^nXv2p?WaSP-r@2pFL@KhBK09z#l*z8*qDp__I;aUFN#z0&+5j#_ga}0jc5=F
z)12DdUThuehB(d4Gx`smbD&qU_;UE7tgQ9d-!6zrNOVd0ZEEM<E7Sip5`AD=J6h5Z
zaKN9A!F9PoI2#t~3Z+#w*$tLSfdcj0?ThYncOs*rW*WuwzD-19hZc_DybBWEH$(`}
zZc-A-Js-`xs{QuosE`rC+!7sf)tfi2rQB-%?ZOqg0mmyXmXLIWzGAz#u+-i5HYu|m
z+ER8--b6xM7sRYGhSH}vz<?lCO>a-%M-co^^aIbYo;umO(zmntJy4*f-;x2rbLd`X
zK<@j~zQA_)-|xn|6vckv&m(HdsP4Cl6F2-h`4m#Go_e6H5lYU`6F3urhUdN$`c&x{
z3nMKrFc>>!*5y00zeKu7ZeJ>r_YKobZ7#Vn$t4RFf#v)^VfVC~!8Ow0Y|8#_JAU>8
z2_wR#e>UQlLVPiQnkjqG8=I{UGJxX#9O6AlQ$)AHVnG7^;P_XI6e<hSCK~sY8L2_&
z{?nbm1069p*HDR{e35)F<#X`yl2W_ge9PENcCnMqZ-psw*lb25seW0a24K9aBTbt+
z8Z0&Q<9lrukr*XpXl#tz-`h3$aR14vu)hH2ekY63AyXeo<GCWi!NGvaXVB&D^Bun)
z{E3T&QPy|I({7MtcqNb{QizsDFzw+&HxgAahK7b!&9A?%64%ui=7WNQ49v{zVIoGn
z5|moa{Z3}Qdv^-0fBsJC;+@CMWaV<Z{!4>il=!XglB%@)d}*|;Q)BN+1$XoTPX3%l
z-}UnF)V<wp@i5JeONZzdFo5!Tp^55~UJ2^Shqn)*jvYU)eKhnZfnU{=FXgRYtg(u7
zdLAW(B^qN1hNdO<T>!PR)@_2hcRs2Eu9CA1vrTv>I8I1kz4DwbOo&gx^$S_bwb9bY
zlzTbRB}9OW4<4-tYi)e~=W(aei1dPk*H`9IBcZB$ca}Ww-OkYMdd|)x>$BmA*0;1w
zYiw+kb(=Bh`u5F2Pn7{_d+Q~sXBIVZ?0Svyek)Iv1n1`b*X7^%`CSsIKP#&X9=>^w
zyQ%8tQEP2l;^|VU)b5m3&oIrakbPa$9sYkt-u+XO`Tx~TVG+q53{Yof-sKUFL2nnI
z8?ROqOtO}>{kQ3LQ$%RGss50zj$qr`NBbd0`4}BB$e!YgH%%L~D|F7LkVp!%7x2Hr
zwWFgC*N!^}X{0!}WL8xT;otB}9eq*grJRvOhn!dQ|Npyx7=sa0{}Q|YbWbIsO=mid
zs!7<J7C(+jzwtI5N>Bre@-N`wbLhtjtGMJe?P%LiPnohZGuw}2eNLhQaJpex7v29v
zf9=$f`JRupd4}{zn>o|2*?m|i*RBOXZ4>%Oa8pU`HpOpEXPiNo4B@luUhz=+c^h>4
zN-R(ALtz)?4!#@OZtj^-zo)MIq$axF>htH%brGvR)2{u>%NJ`}P?cLV*+KPVy;5c?
zw_6e@MWsG1D9RMEd?8$j{pa&)ft&(scHHy><rdN>umY+9=MJ;H&&heY8xW_Zr6q)B
zXJ@C~?Ym=X^DN<zqe6W5?*WG{S~hZBI~6uZea6h*5p+zPh7q|YMOpxcz5PI*4e#C+
zMJu>Yy*~QlSL~R`gmjg}q0LrQhJ~~ZByZbls5#`}!N6J{?4}SGYmrx_Lo1yhjfhlu
zeoWU(Bto2(z1K9ir1LE;En^kjvTSW_^D`0wpPQAUg{8C?f=-WQ?^D=^qXKu_A9?9;
zhN4>WFZoX%W)a~I&Lolg@Lb~`t!2e1aWk{Cx!0$cPK9X(%hcZ3Q2zIo^gk5V|C+aq
zxd#w`ABx?cnq*`?e~M|Ew$^xD#L<JZw@8u4IhtPO%tW~zxsO=4RtR&+`?TSM?7KGh
z_l9S6BkIH^_;<8Ra<a(trl4akw;+lX5{?5XLS!5r|3%w3W}e@f_)yNN<&$(slJS=l
zBh*>4ICt>$yI{!<jK^S_p6YI4`6NA(lr+KSD9_uyUcFDqy<4DBGT<C+U$yz@Mx6XD
zTzAeiaT7sAH0P^Wnot>Tv)$7r)w{Vu(^cCGoo^kgGGQxg3S>Z%Zcgl6Otnhz(f}6R
z&FQysr8z;_lt#0KYz9i5SQ+VK6+P@r*bV{{X*e+g8IBvPd&L@{E<s#Z(u2HO==cP`
zV}a7U%*k^p$IwUaagQJx;0Ggj3_+MAt^8Yo$8umm<tYeT`Cm!CnJqW=Ln%-D06c*l
zJe{^=*;N7GjR$MX-MOaJc?ZApra(B=HsN!mTVU_Ufq3tQvREareEKK;QRnWyTOaby
zD}MyzzCXeCqb>PLkyR_d-B88d7#$5gmCe+rm-qZZ<_c#G#xg&<{OW{Ey5b`UBl*iF
z?~f=6Qv*Z8G~mOLk&%}BK+c5EQjYximU){BF~pp{9x_MtLXfFr&ir)b?rz&Z{&HmS
z;vod7)M!EWmqPu%HAz(u%y>MZLuy_$c(LNQR;RP_@}g6@9nif!Jv~LY>5!Wv&djBt
z&dMi2)EZB>4Kt`Xj;MKjrAO5A!enati|sl=W_Fc049~eeJHWZHoD8vZMKLJ3OzKqb
zuJubK><^YWV52#iAlywSM!K?%aUhy{n_5r+18$o)5rm5rN0)H^!Bg65i6-Y^^E{P?
zCa%CwPdQhy;#=ZS00UZQBVsR@|H&GPaAbG#W4J5_vP;SH!;lw+j~1^?11*=yueaoR
z7l^$uhC46@80nda1|zbZssuaCmXwwMI%t|*`G^MVrP0q7ED#ETakdW>uint$pdeYh
zKG}HZMp0O~w$Yr-h}ucqdi;mj{&J5zV8rFN+>p_);;z>~SPjG?!-dj1ZGg0bf-E&<
zhUt3^(+4nTI)wUdWdVZq%$YlK1n}~rGxsI#;G#{O<_!)3mAQVw1d8b4sc*MC%A%v4
z0AZA$B?4LME==sf#<$HeWs3Ot`Z;*kd+v<0{pi$F&8_rapNTTH4--<}-&qN|dMZ|h
zK+3B{W2+kbTIDu>NZSlY1?*6~_#KXRUQVEVtX9Zu$0M#htt(v1o8Duk^gF@W9rgYa
zht|D?MQ{b)(=jl+qWy1Yz5$f;YjQd9=jCy?uUvWdR{|t-^nst-Q%amX^8z1f)Cw(h
z)MjNXuD*A7i`uy`SY8kfLCkJ!)WRNsr<QB<VpQ_m^C67!47aULcLI5rg}1=v-u-J*
z_gW?9&i9w#RwkRBTc)2J;J@kQ<mAx|5&mSmzW!1@`L(X%ye#NP*Lo!cS!G2fG7NzX
z(Fo<w1&#P9k4MSV@m~`tM#gGpzGT=)gsagEvaU)}fEDpqkCv&)HqPs=dBRW-9q+P(
zQb!P<*D^Ifoz=N{<Hn7(<t^&$vC#T*9}xs$#k3rM&>SOk9mryXg}%(AuWic{O+{c&
zEX1-S{!b%iYWDZmtEnxDi`Fn=tu*~u87mG4EWjhDbHdXqNa_i%gcg<U$FKMlqc-S~
zk%%}tUnm1KqAnKkoe)Wf{J0GZY@=Sa8zNHRm-&8L6+s*yI;$MGXKYNyfOFNBUFgN=
z1Df%X>QKI=b_qKJqUO;4$lt0pA%1rw&ZT9#_yH_j3Als}K}dBM5^3wsA0R_IMrUp8
zECH5k)OSd813P9<SWgNoUuDjqcemGDeFrRB6O=KkCjhH*nvunUvVw97ZS8(X{WnyR
z|C(C#_wKU6JyKVv@p;S%UY61^+$9pG#X6noH##f4R>tF2a9|X!-l<}e=jFgncchV4
zJG4#jVKJCohzSl@4J@3#kLH2@BCc4sDr?k|EIU2s`_c~nbXMdri}lXNQXk1J`#A@n
z7#a^Y*lLe?C_0>GFBmPU9QiA80V@GY7p-R3t|+Y;3x8v#A05Cf9tOd>vgv&~QVTf2
zBAtrK-xy27ndm7Tb~`pzDl`d)!x2oSKpp94zM-ijZWcxmT`hYvj0p;}${?8*hk4GN
zIRkYlm$<l$aQ-5zDQ=Y02Ewn%wo42silsxaMhcXn@Klg<qBOQV^s=eYPnheCYpkEE
z+tu4TJy<>pO1Krz;>uH9Ef+%Nl*eM3_(JQceYiXu@CUcXBlLvOP%3CfAruM2+qWZ>
zciABGCTEZQ0IAtuv6q!i>@YOOOi;2Q{o4Oqn8)9n?f(&<0cEm23Ukl4B^T0^N-*Wd
zGpqhdMK_j*2j}uanmiMzEK?ePgY#yOB&ak3Y`!dCHbLa5R>OC{{+UOXIS15Ambbl6
zFEYgGW`OTB)xWGC;t(_R2Z}N~mhqa2o({6jtL26H$WZO#;wy8$TPu41qgV6)`TWxO
z>A8TJA^p;Y{X3!U^S`WV-I_hgCL~5Q&hmUo{n=kAgeC<q|L1zJO@hws->M)oA2=?8
zd2U|*+1c4NqfX+^2Q^Uqitck$GoW~0uakCiMg9R+KzXoz{P?TyoL7RwEOmT1zfFd>
zb*#R%o)^ztHEFHqp{zkts%h3kc_)xZm&Nlc-UagGHN#hH7&xbvo21t5Ds3pT=0b~`
zeWq+8uij&;edG5kbZjD}(>`O)A6dSI-i%oeQrwrf`OCgkS>1EV-&i*5#9w8N%lk%+
zhwGf}H;bMf6}D6b=ay!lsBX1~7C!Ek2Dq^4`S2h-6@;{_f&>~^o$BQ4sZtff7IY1=
zlAj20Tbusrb=-DyE24^gF$Yhu1qHsfX=uk7s6CKLMr4momzw{G7Uu|?&jh(xMd5XL
zgsB(tA4+Ko^;et$;;JQdwA*~ulb0?<8Mf2%^lPELN5C(!eudCH!T;Nxpu--&BL)-y
z3lC3j{nQdjq+@K%V0h(Tznsu$A*}#SfvvT99C(I3VW+Q;dnJGn%mEPv2Llt6zL~9x
zgXecH;JVMz_%~^}QJi++7C7%*q4h=16I!#kUf1*c?KlP0K4^|Zb>iPV{VZw?HYOyV
ze>IQ+C3ZfAZ+N!xk3hGf2F+f0O`(whre{L$#GP1wK@f(&T7Z&=r(I3-l$L%aR&CkB
zH-Y-J;)TXD`}#~O!9VUc7u4(O?iS+@#Q`QmXDEt;Pr*W2|I;X=-;<tv%iy|~CsGpk
zcPPtBt$5z?GM%&L%Jj=UFHgv<RxT3sKnS%53i!TX8ml)AHFzygFL^j40iR_=yq5{g
zcv;E_5w=(u_)}nTOWu3G(yBU)k9&H}|Ii<3;rLYS?u;=F{asp>Gwk|{?}joa1(Luk
zFM^~Y?9O71?d)=?@=U?V@z>yrA33ctmER=U3C3h@Jzd)suLR-N6<2DPF%BHd?lG=&
z2@H~lab#i_1E-Q8`WIz<p)cHnM~^WnLtIq!78u~C!hq|2ggXWfGtjKj|IM>`qBL1Q
z>=yF*;b<Da+TO_;5fR|=pbWN}uzMYutx)nLBn2D_cS68bRQm45hdYsx=u3h|L0d8^
zWJr};LFS6-`h>u#FLI1OGfjYl-9;s1^RDxIrQTM392)WsoD8RX4%1#0i5^P2u9!@N
ztlITvD(91hj+hgDBnJ;)JO2<t_*I%#q&3)H{3LAK6eS^He<-kat6p_4`SLSno7JiI
zzCxP_q3ICCg`3hb2Iqe^kmofz8)4&A2<@&S*J*urDA(q7FWXz<6{%2Vv;6k=NK@~E
zO?a<e+OLRL^swznrAbKEz*>_MdyKo6RP|0iGnl8>g1M*1LRGszAIIiEKWWgl^G5EF
z)@oX`S%+vw+`EtF^~F8ule52odj9?U2U_0_Iy}(MaK{h3J=&k^E7Dfo_{3>oWR$Kg
zRcS!$*qNNm*jx*!{cdhw+rA$8Z8E<<_WPZFLeBQ3VQhULrM~ZgTC}6ullMfT`|*2@
zPh48cUh&A0fK?ZlV!};J9h0>)Iu~F_?pE<`Mr*}j1Vhs-KRTt|dM#h5#B=Fkv~I?r
zsYB%i_|M+!gB}=#cz2-5F4g<Hi>3rKu}EhIW;Vyg>V4nfiAxfT0msc8r(OF%D1ow5
z1vlyv?fRX~6^s(UgVS)C3x#ALHleaP{*&DO8YEihtZ8$PP^4BF(;@CsI9XgK(ae5A
z`VUwz?)d#weNj340r?WZXc*MMP^I@^j8(#P$FytqJkEh9q{@M4DX@F7v1rh4u*61n
zypK}0MmHiy|MKY)ObThDDO!;d*JL4W|K;^bVsi3H@A6b`)i>L#(-D=ttN|wHW~UH2
zg3tJuBXSmBUeE2iFAmKUNi$hSi6swenLT!?<Puay>SM?5JnW)<#ZujzU5rlMwUl=5
zC$?KXD2gvMoJh@Y<w|0g^89wQ6=!n_?ul?YU%Pf~A^okrt&3?aPP~S%SM}{BJLhmX
z)3^tn!f)RS`>NK8zfWyXnyj^BQ||Q-b`##NT_F+@Z~}<$7?&*TQx{!M<<-}tOQnzk
zLBYXA=Jgzv&?A;uAn%}R?td6t{G)HxD}j=klXK3SAb8k%MQ<BL;bP(4?$6$|vm0!^
z=)FhU{0bf#-rgIu0e&VkqYzKEJ#+M+U0)%3+Lgp$+GTQmO%Gf$H!>!puC8v*uLbq_
z;YV}(+eABS-{FvR<qa<$dk_h}6`@Cx3Rupw{th0Z>nEn;BJsLbevXShAFpt#Y}^l2
zsm{;Whel{svkbKRXd-Y>HRyu#xMt<fa#LRwp*+ro*0qzY+ISeCo;*j`TPvw<KxJUc
z-KS|OZ(P0A#oeSSbQD@&hBh{t;SH($V5AHer=VAMWoWknQ*dkK8K=UIddXUGGWu`R
zT~?LA*Gp0J5UgoSmIlFu4ATA=K!in4nfk`Qe7=~Q%+9ZL2h?7o@0Lw@;{L{1C=TkQ
zgju1>si&WkhP)S*p*yDy9;AfXuU#-V9o2hODO#fhctBpoa?oUJ;_#@-6E!uE6J*P1
zOuF2VXNsW+G#b(YVX**MSy@>fknEnnuL$IB?um+tbwFQqbt)xP47#fzN<gHcRI4lP
ztdFt=gp|#tRBMzKE0W0tr?+{hICd^DBbcn*&Pha`9$=D@j=3#Oev7G3<L|JUAAWRG
YtH0{@9J$&J4~n3#>0TwO-+%hQ0HGIaP5=M^

literal 8483
zcmeHtc{r8(+wX%AHg*F_p+t$$K$(YBl0xQLy9k+E%dnQYwrxuYVUsbL$H>g0Y$Wrv
zmT6f+re%m_k@>yX{_Xd=&O2P^ocDUq`Qu#Y=gPCn@;vMNy}$SUxj&!JU5JjBIy);b
zD}o^G8n<ugA_(0$?fW1T{KU5(7XvR$4>i?qz$<)hs@3?z3ybS*6BL559j1NL^%DJd
z5abl1aYI$#D{+zN?W#}R-CrTd4q1FY`?Dc~@i)UJ!Oy?{;#e2MozIoj`|0hen3Z!}
zlHz3sEtaX_1NfZw2A6!Tybm8NUva+{J<z7jEcwVC$BI8RRcO<Ep6B%MAz!0jSxcsn
z1oleme-(OzoWr<W?P~ey%FxKrhV0N(Jj!E;nuyXukW|f0JOhGsA35{@L4NvqTmiL9
zB{=MEQSpxuWLPyoKG5bsbn81WQvu|u)n{yg&)O)e%OnCpKD#Z@F(404WzpAqESg&Q
ztTc&=iuS%fucv?ieq>cX4rhs)=^SVXWT0k9`fAkgQHx@33tf)WPLR^jR@!`*sg;yF
zG4b%;9~V`bIZk$q71h4&NmnO-=+o+3_TS%ryb*UNV{JA)Vt%2t%kTnsUxfe8qk;bZ
z#MS(JoT`64L}BIE!n$=+E*>5S%5;a51jTB9EAH&Qg#Lxv;bBuQZtmRja>FR}2GLXO
zaEQp^kl7td7h&~VTWP24<Mv~VV|DVVYFK6D?Hf7zxoRV)MzHjVR$$wqU`_##I`0h+
z?~Nt*IrK1}f>*b=MYR-abE-9(sO`6U#B*Wrl98U?q%&^wvFBviwZ{@EGH!3h#Kcf3
zep@-3XQQ3>b~YurL#x#JF@H)+NmVumbJl!q46YG3E4Oy0Gz#o>6Wv<)mS%g>CF1W^
zpG)!SweZ{gmZd=M&(R~wFV{xLJN)_kA!icKS0YKv*1}mZ(zVB~-@wrDai`h)he2<o
z9SlRsSI3q!;w<O!1!jbKU-_BQ?EC4X5I9o%Ty?eFxmMxmR*wo*Z!!xagONQlo~|BI
zjq}~ERtx4Rt6cd0wNWc7FDIupabt5PMP8$@yc{pPadQ@5Xz`}Xrz=^pFg3LyLpP@#
zQ@`2aGI~T?A+kzYqY%D^e3RUok1zFUD=W^KBsm-(j}bF^Y+<PfXYKC4M@hMoC0YCZ
z`o`Y&as_6WVCmgKM0F_^j8&k97)Hmg+PNswA?GA*IaGPLxa^75?$wk|d1=h5wYYhu
zj)8$e)VthVQ7$g7^Soh?3rR&*${M=v?(WmIy}iBdgs-l~zT4|D%lrEVFK?yaIU61I
zu1jhAZd8Akc1rtc;%%X~FJ8Q8-%W1MFF1bL`nLMD=gw8%xE0sB)t+|R!=8pKTvEP#
z`EohVWwi2s^f_%q4UG`N$lnXA=S3HX%kmoATypE2T;D>(W-Al1Tx$@}wSGNqji@p2
zWyP>#m##ye>RjN~yLT^aety2c#?wWkH%%>ANJCgy_?)}dd*i!|jEuQCIrn8waya5M
zKe|j|EQ8~`J7s6Gi;Hyx{C=bv7MkZ+?amv;j}Qn1a!H#+-*4<E&`VV_qDNWh28^r*
zQufxeuEz1O2K9G$zmg@cZ4$#BpC2*NMpRn9wY&6K)Ogra=Lh1AZwMY5z~e=ewDMd?
zxCBT(ey?#l;lnJDY<6R{n1riNrloZgM|vt;tcb3S?A6P-?aPv`ay~zb{WfYyW!w99
zr5(J#dN0=*v2kDMe#Xd#Ze+h^-Kl*x`iY&L4#eep+A9uzg=`FE+QtI^XULH<>(;{=
zef9&e>_BGz&*u2CtFsH#0|ChwZ0QxOKmR;1Fks*Q$0gAV7y7&W*00p<u8*(=;RZFV
z%AUl`lgZK#8W39Eh)PJ{dowh(=af=>RyC5`@g}_T9{H?nZ0?I?g!u%ALVM4MvN{v(
z0f3RUwLWc!g~9jpq<a79owsiV6*opvTU&(sLil?}vZC2Fk`D@RL-Zv14p*VFXb))>
zj+^}=R^;e`DR=4~f`e3ypBWw@0=xyb#VZ27VGq-fzS!ErVv-5-^_!HLnS~NMgvcD6
zN{3u*;J*mKeemC2p3d`ec_|)4PLV!Pr?sGt&ZviH<8Wixm(E4nDN1*Q4(I0OmGU#n
ze%bJCdUy#+)HLGRNke^op&9dOrzdW!Z+q<WT;8;wwxfaTUkLl(y&T{kpPzryH0fsH
zze_cJ|L|sM+n2UB=|{~!iJO$%=&VXzI*bH3ixndqWP)~{VL@+cmr@>-|6`?vnvxP-
zW={V85}UT8VYkWv;Qs#Q{^M+m19@>!4MO(IV|BdBeziU%LZ#c}hes_O?0j<iQThf3
z882S2YUn}%{PN2$wlDkAf8dIqJ);l0p0rwUlmGj!<lfTsrDu*lq&QS~iw2_5<v`t0
zsaWVtl6UV?+?ahs+R1zo8Y-MKblSFyl91%LT(`0IV=_WBYN?tm;X8SPbkH%@TCRYE
z+t+%~MwSRCH7ho~n!r`tOfljgp-&{w<Uqjjk4^<k@1=2b1c#lQ+v}Y}=goLajFa%4
zvUO{{np>-J_4)VHZ_UA$`x2xb(0%u=<<!=i+t}FfUUf7M9pRIGdV@-(26jZE?eA@;
z7}1;YKOMpNK1xuYen`Gl%}Cnd3T?WqeT1&yyr^gtN~^4_44;nn?y=MFvHQ@p8K}s-
z)1xkMo<G82Yi(}07E}5gr+|cpsJOU+o7?+L?UcgY+}!rBwvcEg4I2U4+};f`Tnlub
zC%qeH53UD1@0;^(fQ~!)?~?4F|NIYi_g6@+;~At_gRZYCNEUw+?#*e44H})nBx5(0
zoD^?WjAQsm*cRdKr=2S@ECI_ExS}^#=(I9)0l^MBVh&W=x^*&c{b;qtEtl4H7d9gl
z8CiD#=z`>wD|8;6=aaOUs}<HRs4Dqk>C1Ua;FtHjtFoTtsVgx5gapvh|MT)ck3nDq
zeJyH63vj68k4tK8agr_`CKycB<Muz&gf(M7%kuPF&?DVWjNIcu0E}oj1gJwpkuK$Z
z^C*22lbq+woKJ>IY+l?-AFlKE)bV6NR4TYwv4Obdym#+zKvRu+2Q=)-&X1K<U#rRH
zu)c6Uc`5X)jz(|f8FhG)um-dneOj{(N6Qu8OnW0DB2vtsX7(2pJ@!6*qKh(x;g5($
zya4St1DOV8v*IkV8Y^B36t%InSEVzU4z2pl={MN59(7?28d?37<p}*7;YcmU@(WWq
z9g)|Y>70ucg^0zVeBSg!AvazE<ml$$y^k6P=;geQm9#3%(aRDAs?sSSW%ml7Z;}oq
zkDTN=cHhLrWV%En`mBBLJB_G>Wp?J%bAyaa8d0s*sSznY)7!X*?~jeJnE=yimCXXO
zO1@uRXD2m0e`u^BnPKmHBWKyeCf1HbS-ll6^X-l0IH8!>*xbrW<Gw6yBcMss->)FF
z-u86Lrd2)s<b7XX-v@1))gLl<yTk&;Ija_HahEy-Q17Y7h}S3iU2SYKs3M<#S)gM+
z#~XH4{_^PW`~Q_34{T6oXF*oOHvZg?4IeO$=*gJhCuN<&IQhI%855O=eB*8uH_AoF
z6tM2|!DOtb5wC~NX^tqh-+jKeYMifcLEURV`HTr^K<NJOUsUjj{7m%|4nW}7`E>l!
zPhKZurjPRh$;g|gLsHd0^N!zpbM-uTsQss3S+>4O`sdKJNZvF(a;nIN-Bsvtk7xb1
zMS)elWd+Hv#<^zk>b*pn`(#4Va_%Nb9?eDE!8X~fuoKtjf#Jpp(Z~muI$-2J;#A?j
z<%%Fvc{=56DP9vSG(t<--`gm2{d%3oe4^g9N!FX=mK|0mnk+60fi67j5CBJ81e!qP
zB*!&*5=DVe5&J=pnE^SKVxxFK(Q&YtdxZ!+MkpscJDZXTOYE{?|9+FlqCbs-APpg{
zyyLDiqZ1u63SH#>Km?g(DPj6yM%s#1`Z4~zeGWD~J3`v?$l_!~RB&xug89ljUpcF1
z--b%rd^x&_D+1;|4;xs_9fF;inJ_3oZ7q`Otwze7^yHH8k0KN^bwtSb5JZLfgIS-B
z$h%9An$b-c5M=F`NeaUl&bJ2Gw7#)%_Qb?QyE1~fJ}FtEgC1?M|D#1&>gm+y!USd{
zfd4d^-__l{?AFU;JqD#9G#^>Be;3&Qp<eg>6Px&+B=9X6X%kM>F35Ihw^98I;^$BB
z^2&LNBFL&a9wGGiqX$mHhl=oRDU5@BasPV>3^e!&<5x5Vt=g7&&FlNPmH;af;1eg^
zfSPXaAs5w;Eo_n)m^si}I&d&G`E-^Q&PhxhC;yOLOw?0VRsB0KyyGjAEqS0jP}siA
zdoNlhla!9a@ko&KQhCHp-+3t%-VjV1Dz$Y0<~>~ei<(gf6QVNqg?Iepb7pebwXyDU
zr;*op&z9Ns2;LNoEKFcW0%~KV8{mWW1taa;{Q4Su5oG*N$gZ0=Z%&iZas^yshUnqY
zVpdkx{yd|ihS-@by+CocsxC^cih%NFJ4K<Kz;eecnR;+mFlnXq>vlo?sHj6g-C53R
z;9E4bwN1uk0^8u9b?xOTD%Q$)7W()FvLT|X?6(@fyzMBN$`1D(Vl7J^&Zkqdym>PS
z$T7q5S+6;?X{+_+;%^z|a>X`j-UnA#qPuwad2PMj6K4_!nU`dr?G4$H%k&@@;P~24
z<>=oDxp7_0F#jMLjtToVpKh$gMw22|@%{umf@s~vzddY@Aad&XPt6bC8}6UbO$VOI
zr1Ud@lPVtBhw{1)AMRYg>!HyLim|{>DmVU$tw*aXtx)pmaOA?84-SOF_Wj+uZ?R@l
zAQGVMHk|*m^~+CLDSp-Kiz9Ke7WeO`f&BaXY~4A%=6W->h6%V#coL9qQ0Dp$`24wl
zO=6#qj68OPLW|*Yr#Fcx?Dvn%m~A-(q3>SWzrq^aD7U>(YM`sz%LNtGea70C!)vB9
zi5Kc_i%O1@b@@L2@$b`j2$*S)PbXOUTYPnuL5&46Fw6OhKt@{Nks`ASEjZowM2}AQ
z;g&<t<)R^_f2>RbGRMf)+4r4onq2vNz0{k=q1@uS3j9Wbk=+YJrDa&^6Q{xAw7kbq
z<}Ogq_4~Unbt}y$XzPt?ea9_s+CM$ROOFJEw_y)%b;>Wlp21X)KVy^fSTLSoLsV3t
z#=iy&;Ax~DEk`u?$3ED<bNYQ}pfwC&I4^Dp#)IWF-VfWW%*@Qpn+DFQZtu?d1B7gc
zPaTM8i4#mnK=RuGMAE$SB83{nV>xKk2ocePTaF<JI{a!1gA#i7l@G~CE~(Rpm`y9|
z%TR@zxdRC2Ng17)B+q1_9RK~j_@Wbl8TFKNu%C!B-f>0mbu{&_a{YgTM*)i&?e0#6
zB8NW^&xMlJ)u*%)(~P|kiIT{!Ie?^&uwG~YlZZxPVvH<@7IwaTxdWz<PFt+Fo)quE
z60zoawI+g87wB}et?f?VBh`2oHAe_Yk~XBBM`acV->U&?#Rvf&-<6h@juPskn2xUN
zd)cpl@J=`d1)uLG|GrKuV8%o{K;r0H*KdU8$#dTkfugy82qnuJj{@!s#-}u@_xHBl
z2MmlDJ?cZyqQy3+H-fI82GI$^g}sY1Xn8JmnDS@Jn&R{2ZBdpVwrAq+mSg?0n7z7F
zRZUADhk;Zn^c=&egBXf$%e))^_Pk!^?WpjRvTp&#8<wuk^)6bmVBjvMf3RjT?oisY
z;<Q42$CFP3UEV7_6n2Y?BiJlaVAjt=fu8^!Egu-r{A7f3?0?EoOj5lYAZ$;lJ5cFb
z1Pf1#SDw&}Dw^{EPA;khfa?C|<$o1}pG){t@2jc?3P#?3&_?-J8D#kvkpvAyJ|L{v
zg*|{yOZC6%Q&06JCbATxv^uL);)0WdmN6|}$vi*0PQ22lLAwLZ34{g&_R-*Klmy>k
z$*b)|RG^aIs>!6)q+?MyCGp61gQ9x3@`<mml>-zE4Gb6#{C{>iO{POM{hmhb{AK~h
z!+Fw13_6H)0B;=8`>nUGQ?EL;AN!NaVY*wKMmqbEg3|jf*q0J<3Kys){GU{OKVG1J
znfUR4*X}`U1hoB+-c4a80LfF+EauAp;M8>DXm43&)pLCttMiuj+wlSl=Qi1F-xAKp
zD~HY&Iv;;GH!bZnrECThNG!@4j}2P-YR#{#sx;lL_+3%myL$do?;M>o_VW;>_HmY#
z&&o}jH5&DfS-?k!V2--?VB^hGty1-H7DvoyCkEDZxm_^eet67%x}3r0Jy9dLakp+e
z`CJhpL|JQoVqdc`t?<a%>xC<<q5a!JesR{(w}njWB?+zCU;NgGY-xbwTs?O-CN3^7
zKmTsyZ|u=R;2&n_p4ZTIa&mg3_I45+lyqQL)pC9&sqVOCfSa6>l3wi5sbcW=WM}lv
z%p4T&RPX@ggxxYrB+Yfv#r-=GRJztA`OH-&-&N)UX@+qKI$C<)Mu7bM=g2d;MMV|-
z=_8Lgk1hVfd5rHPzpHEeI^d0p=Kq;&mZe}C0L;N_D29*8D=07!IjSpk_&qp*;L4K0
zU!NxwrO;Ft98dHNW}aA6K@}ldg1Kg3Y&<xzlgM)M*(H}T1q*b~&Fb}GhXQrg@GS^9
zS40bSeZ<8KT*URyXCh#1Vb_@`i%*{t=TN0hTdWn4XYMOaJPxznX*4qo#vG#j5oQsA
zCq04rh#VC>loX=YjUdOyf0m-znXbvVGjwSRSK4V<3dA~}jB5i{Xet{l#JZi;Hh6@(
zfsv6II9l`lISJQXlA$3yRMZ`tK>U*jf#Ns6Jf2Q-rB@ZYuqUS~(Q;0T^iKzY$xxG)
zebhl15g>n3ArDO=UdIhGbRMxya*rMJ+jat$6IgFdml)L)%H#0m^?6gAPnAT~)M2vQ
zDmPu{k*p+-1V5M;<bkTyR;0f6SQ@ogJRIOWUq0fj2R;IBYoI8%x_TI!SbH;oavOx%
z?}yHyL25aGJi$*QvzZEA5La-z6Ttl}XlXT5U`{-D)p0PDmd{aA*fqP|37-0k$p=+D
z31HO=M{9t24RqTQKRLy>CjbqIN#+1>^?&1XOckF}BFJ)whQwi!s$k?ykx;Zo%<I>)
zMgF^F7Gfdju%Wr=FvITmnnH)Oe5{<rClgVfJun22lWJKRY55e=-aYKTsdk|1H@LT!
ziZ=rjG8US*>-Boah=~4~6n{TmmpM#Hh5Yd>tW~RZNh6_SJy^v^HuAV>jkA%TOF;Ok
zhR<SbJQDq*RVZn<i5pHNT-}fj(2xC{8D(j^?o%|yV^-lDBSiGwAcFr44j2%=J6U}l
z>#^Y98Wxyls6J<+neoG=wh{c^3zw+NB&#E5@7k5~46S*1uP^k#9Lqpo{~ZiWK*&Ch
z-T1^NX$Q;~3xfzq6oI)HVud;|dvYfiRFr#(^}wnvX^NvcoNvT2DPfEN^~Du(<7j9T
z8fYM3&evZnh#`(CVAjlgleUw=<#qoSV>GY4zo}jNP0FJFwovc1+(~~6jRJ|9vg5<1
z%jJb5Xz#MJj*(#|l`L14<m~)>G*~k^sLm>o!<DkAX{j3XC^N_y%?#b8^a!P=w8%}D
zfc%Nm%DR#j`r^gqEa589QI-0l-z>csr2!_0W-fK#baP&tl~{*tFS_`TOn9_f_p%?m
z*ig4I=G_rHQdtYTXa)$1yDc<2mzA;vIX6eUp&FeN+A`TuSmU+wFz)VIVvB(P0@F{&
z#t(<w2t9rRGN;0E=yHYE%7h^yBj>c*Z<R3qIWndMPp6ITmOu!?n63ugaiCW-Rr;a>
z4|j*nf+vgKI1RP<N0bzJIuM*jIflw%DuEmbL(aG;tPehN2000%q29R<CoWt6o|l)`
zW-gI4B>7FrcgtEUxbf@bHaVq+Fe?Fhk9PLsmxWL?+Fk`Ts<3JCs>|5I<Bo)Z`NXKp
zABR5JN7sOQx*P}iYNW5<e?ceA3dVsEersncoJPvIuk1lEP!K>ITW}+7u1Ca@3knJ~
z^$Hj(&y3iT@da8@@J_sclsO2PP^yCqUwFN9xsAZS;+OKV0*eYadFzqsp>n#Pr8rd2
zNXpDW*Wd&T9EPgdP)^|8RlwMAWC43Gh2f_lxjn7?unLNTc2iSRJjIvfLQUUIM6K?Y
z``0E|;)ki`(KAJFIu|gOp)=(h%cLTRwK*(7&)2uE+?kjQ!3!*Vl5=L{T+E%h<`XXZ
zYHDiJDJZS?#`zuYU&=Y|6^%sNT$78Tc9wT&uV1216rq1vTkK9Yw7||~+{w_5w;HYS
zT*fcMn2Upm`|v>@KsvDF%9DPP0+Z5AB4^Vv*{AO;y}mNS#80zRw!pkf*T~#0=+jr%
zX*t^P^jl&dbXO`&ipgSDn|DfW`T;axdKVNF1htl+?C<x0+><@Gew_9g?3{2NaB@Ds
zG&65<x5!9I#6G``*|H<4E8G#4D)#e(sUX_+JV)KsODRm8{Q1!CXm%5EM0xe|8QMgm
zlxHz<Uu}&UL68dC{{?sfE(=&nMljFTE3&Lhs5_XK0}T!)U3yn+JM}?rgi7MFGc@C_
z)`Tx_!(^<!5V!TDZuN_p`1MPUgBLBHwhD`$KM($6yhP1HiC*%)*S!jDAdgp_N3(+k
z{ET6e0a!v)uh{K%d>V`@ol$=$Y5B6Pdbw;j*N=-#NK$TD<1{kJ0EXQGI;QTN!EHuU
g_5XyffA^<bq`c({vp-n{TR=2!YTYQj{@~fa0F0+q8vp<R

diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index b659864b..cffd6502 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 e2efe491..a8be0244 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 5abea53a..311c8b5f 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 d0d111a8..28c612f7 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 d60885af..192c3b8d 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 4e7a7c27..65f08df2 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 4551abee..ae20f318 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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  1984-04-27  39  39.60274         15</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1935-07-26  88  88.35616         64</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1975-06-27  48  48.43562         24</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1961-11-22  62  62.03014         38</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1951-05-07  72  72.57534         48</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1946-04-17  77  77.63014         53</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1972-02-03  51  51.83014         27</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1981-04-25  42  42.60822         18</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1957-03-29  66  66.68219         42</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1934-06-02  89  89.50411         65</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1998-04-08  25  25.65753          1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1972-01-04  51  51.91507         27</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1997-10-15  26  26.13699          2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1968-01-21  55  55.86849         31</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1954-03-04  69  69.75342         45</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1983-02-12  40  40.80822         16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1971-07-13  52  52.39452         28</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1931-10-10  92  92.15068         68</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1941-12-06  81  81.99452         58</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1983-03-09  40  40.73973         16</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 f312ab79..d439c9e0 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 91c18e74..8397afd5 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 32e603e4..ac21af11 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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,10 +627,10 @@ 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> S     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> I     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> R     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> S     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> S     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> S     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> I     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> R     </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>
 <span class="r-in"><span>  <span class="co"># get AMR for all aminoglycosides e.g., per ward:</span></span></span>
diff --git a/reference/antibiotics.html b/reference/antibiotics.html
index 50d4fd46..523e01be 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 606ea7ef..f0cec634 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 666abb8a..c91c4e9a 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 f18c0939..1294bde1 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 686f0673..6d68f320 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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">
@@ -244,6 +244,7 @@
 <p>Using <code><a href="https://rdrr.io/r/base/double.html" class="external-link">as.double()</a></code> or <code><a href="https://rdrr.io/r/base/numeric.html" class="external-link">as.numeric()</a></code> on MIC values will remove the operators and return a numeric vector. Do <strong>not</strong> use <code><a href="https://rdrr.io/r/base/integer.html" class="external-link">as.integer()</a></code> on MIC values as by the <span style="R">R</span> convention on <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a>s, it will return the index of the factor levels (which is often useless for regular users).</p>
 <p>Use <code><a href="https://rdrr.io/r/base/droplevels.html" class="external-link">droplevels()</a></code> to drop unused levels. At default, it will return a plain factor. Use <code>droplevels(..., as.mic = TRUE)</code> to maintain the <code>mic</code> class.</p>
 <p>With <code>rescale_mic()</code>, existing MIC ranges can be rescaled to a defined range of MIC values. This can be useful to better compare MIC distributions.</p>
+<p>For <code>ggplot2</code>, use one of the <code><a href="plot.html">scale_*_mic()</a></code> functions to plot MIC values. They allows custom MIC ranges and to plot intermediate log2 levels for missing MIC values.</p>
 <p><code>NA_mic_</code> is a missing value of the new <code>mic</code> class, analogous to e.g. base <span style="R">R</span>'s <code><a href="https://rdrr.io/r/base/NA.html" class="external-link">NA_character_</a></code>.</p>
     </div>
     <div class="section level2">
diff --git a/reference/as.mo.html b/reference/as.mo.html
index 30ae35e6..8e300267 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 49ce145e..977a7732 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -14,7 +14,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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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">
@@ -567,19 +567,19 @@ 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: 13 × 13</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    datetime            index ab_user    mo_user    ab   mo                input</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;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;ab&gt;</span> <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>              <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-12-03 <span style="color: #949494;">15:55:17</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-12-03 <span style="color: #949494;">15:55:17</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-12-03 <span style="color: #949494;">15:55:17</span>     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-12-03 <span style="color: #949494;">15:55:17</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-12-03 <span style="color: #949494;">15:55:12</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-12-03 <span style="color: #949494;">15:55:12</span>     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-12-03 <span style="color: #949494;">15:55:12</span>     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-12-03 <span style="color: #949494;">15:55:12</span>     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-12-03 <span style="color: #949494;">15:55:12</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-12-03 <span style="color: #949494;">15:55:12</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">11</span> 2023-12-03 <span style="color: #949494;">15:55:12</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">12</span> 2023-12-03 <span style="color: #949494;">15:55:12</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">13</span> 2023-12-03 <span style="color: #949494;">15:55:11</span>     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-12-04 <span style="color: #949494;">07:24:20</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-12-04 <span style="color: #949494;">07:24:20</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-12-04 <span style="color: #949494;">07:24:19</span>     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-12-04 <span style="color: #949494;">07:24:19</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-12-04 <span style="color: #949494;">07:24:15</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-12-04 <span style="color: #949494;">07:24:15</span>     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-12-04 <span style="color: #949494;">07:24:15</span>     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-12-04 <span style="color: #949494;">07:24:15</span>     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-12-04 <span style="color: #949494;">07:24:15</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-12-04 <span style="color: #949494;">07:24:14</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">11</span> 2023-12-04 <span style="color: #949494;">07:24:14</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">12</span> 2023-12-04 <span style="color: #949494;">07:24:14</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">13</span> 2023-12-04 <span style="color: #949494;">07:24:14</span>     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18    </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 6 more variables: outcome &lt;sir&gt;, method &lt;chr&gt;, breakpoint_S_R &lt;chr&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   guideline &lt;chr&gt;, ref_table &lt;chr&gt;, uti &lt;lgl&gt;</span></span>
 <span class="r-in"><span></span></span>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index e6200465..6f460ae6 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 916fbe75..49c67ec7 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 4a4276ba..afddcd22 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 9a202065..75aa0aee 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 3ce3b621..f95d2222 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 74d70ef2..73493cd5 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 3188fd23..c18b3076 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 e0ecacd9..88f5d15b 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 832fa59e..4bbff98f 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 5ebe5520..51a676d1 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 e3211911..3cf4a626 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 96818f8f..c39971be 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 a4569796..36b38397 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 c842f35d..8be5bae5 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 2bc1aa2a..38215486 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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,28 +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] 16 46 29 25 10 45 28  8 21 31 26 42 16 10 47 22 10 39 17 23 44  6 42 40 43</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 37 11 26 14  5 35 47 22 47 30  4  5 30  5 29 29  2 41 46 42 22 46 12  8 13</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 11 35 18 24  2 11 46  3 39 17 18 23  8 13 27 18 31 47 43 12 26  8 37 25 36</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 46 24 23 32  7 28 26 19  1 33  9 15 34  7  7  3  6 24  1  2 46 20 10 21 38</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1] 43  2 27 21 48 28  6  4 21 26 36 20 18 20  9 48  7 39 13 12  7  5 19  3  8</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [26]  6 13 47 16 29 15 47  3 12 20 42 23 15  4 25 32 10 24  3 30 46  1  5 37 43</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [51]  8 34 22 31 46 43 16 33 22 29 22 18 44 15 36 21 35 44  2 33 45 38 42 43 28</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 27 10 14 16 47  5 40 15 27 12  4 41 11 26 22 32 38 13 46  8 29 34 17 47  1</span>
 <span class="r-in"><span><span class="fu">is_new_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># TRUE/FALSE</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [13] FALSE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [37] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [49] FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [85]  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [97]  TRUE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE FALSE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [37]  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [49]  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE  TRUE FALSE FALSE</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># filter on results from the third 60-day episode only, using base R</span></span></span>
 <span class="r-in"><span><span class="va">df</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/which.html" class="external-link">which</a></span><span class="op">(</span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, <span class="fl">60</span><span class="op">)</span> <span class="op">==</span> <span class="fl">3</span><span class="op">)</span>, <span class="op">]</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 2 × 46</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-11-07 430011     82 F      Clinical B_STPHY_CONS R     NA    R     R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-10-14 FCC668     54 F      ICU      B_STRPT_PNMN S     NA    NA    S    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2002-11-21 450741     77 F      ICU      B_STPHY_EPDR R     NA    S     NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-11-18 956065     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;">3</span> 2002-11-14 058917     76 F      ICU      B_STPHY_HMNS R     NA    S     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>
@@ -318,19 +319,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">patient</span>, <span class="va">condition</span>, <span class="va">date</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [96]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [99]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    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> 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 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 022060  2004-05-04 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 023456  2012-11-24 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 066895  2002-02-27 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 083080  2012-04-16 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 097186  2015-10-28 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 0D7D34  2011-03-16 C         FALSE      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 0D7D34  2011-03-19 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 125492  2017-09-15 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 058917  2002-11-14 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 065133  2011-12-19 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 067927  2002-02-14 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 077922  2009-08-18 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 082622  2014-02-08 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 092034  2016-08-07 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 0C0688  2014-09-05 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 0E2483  2007-05-29 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 110918  2016-05-08 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 114570  2003-04-08 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>
@@ -347,16 +348,16 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [94]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    ward     date       patient new_index new_logical</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Clinical 2009-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> ICU      2004-05-04 022060          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2012-11-24 023456          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2002-02-27 066895          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Clinical 2012-04-16 083080          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical 2015-10-28 097186          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> ICU      2011-03-16 0D7D34          1 FALSE      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> ICU      2011-03-19 0D7D34          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2017-09-15 125492          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> ICU      2002-11-14 058917          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Clinical 2011-12-19 065133          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> ICU      2002-02-14 067927          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2009-08-18 077922          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> ICU      2014-02-08 082622          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Clinical 2016-08-07 092034          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical 2014-09-05 0C0688          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical 2007-05-29 0E2483          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> ICU      2016-05-08 110918          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> ICU      2003-04-08 114570          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>
@@ -372,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           62             13            39            50</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                27             10            21            26</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          5              4             5             5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           61             13            40            46</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                30             10            23            26</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          3              3             3             3</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>
@@ -392,7 +393,7 @@
 <span class="r-in"><span></span></span>
 <span class="r-in"><span>  <span class="fu"><a href="https://rdrr.io/r/base/identical.html" class="external-link">identical</a></span><span class="op">(</span><span class="va">x</span>, <span class="va">y</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> [1] FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] TRUE</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># but is_new_episode() has a lot more flexibility than first_isolate(),</span></span></span>
 <span class="r-in"><span><span class="co"># since you can now group on anything that seems relevant:</span></span></span>
@@ -404,18 +405,18 @@
 <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 [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> 550406  B_ESCHR_COLI  Outpatient TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 987C84  B_ESCHR_COLI  Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> F8DB34  B_STPHY_CONS  Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> AB0003  B_ENTRC_FCLS  Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> C56827  B_ESCHR_COLI  Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> CD8C33  B_STPHY_HMNS  Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 0D7D34  B_STPHY_EPDR  ICU        TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 022060  B_ENTRBC_CLOC ICU        TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> F462F5  B_STRPT_PNMN  Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 083080  B_KLBSL_OXYT  Clinical   TRUE        </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> 329C35  B_ESCHR_COLI Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> B8CB09  B_STPHY_CONS Outpatient TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> F54287  B_KLBSL_OXYT Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 532360  B_PSDMN_AERG Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> F67215  B_STPHY_EPDR Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 387C40  B_KLBSL_PNMN Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> C36883  B_ESCHR_COLI Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 114570  B_STRPT_PYGN ICU        TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 207752  B_ESCHR_COLI ICU        TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 966513  B_STPHY_HMNS Clinical   TRUE        </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
diff --git a/reference/ggplot_pca.html b/reference/ggplot_pca.html
index 49632ba6..6105dcc6 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 19e75a0f..a56eae49 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 071278e2..8fc88ae8 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 5e0a7f94..d13ac09a 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 90ee69d2..b2dbbb68 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 e2bf7c80..ecb4a4e2 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 82def528..40949a0a 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 f854ebe7..1b01fd5a 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 48d2def4..bc301912 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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] 3.080482</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 2.965336</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.03543362</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.01197974</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 9be7869e..6197b965 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 a01874a1..d9de5e6d 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 08cc990d..a3adc668 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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] R S I I S R I S I I</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] S R R R R S S I I R</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]  1.8973666 -0.4743416 -0.4743416 -0.4743416 -0.4743416  1.8973666</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.4743416 -0.4743416 -0.4743416 -0.4743416</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-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] 16     8      32     0.0625 0.5    &gt;=256  0.002  0.001  1      0.005 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 64     0.01   0.125  0.25   &gt;=256  0.0625 0.25   32     4      0.5   </span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">mic</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.82035688  0.66129723  0.97941652 -0.45212029  0.02505865  1.45659546</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.24197617 -1.40103582  0.18411830 -1.03171076</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  1.2031622 -1.4359065 -0.6753484 -0.4666250  1.6206090 -0.8840718</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.4666250  0.9944388  0.3682686 -0.2579016</span>
 <span class="r-in"><span><span class="co"># equal to the Z-score of their log2:</span></span></span>
 <span class="r-in"><span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span> <span class="op">-</span> <span class="fu"><a href="https://rdrr.io/r/base/mean.html" class="external-link">mean</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span><span class="op">)</span> <span class="op">/</span> <span class="fu"><a href="https://rdrr.io/r/stats/sd.html" class="external-link">sd</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.82035688  0.66129723  0.97941652 -0.45212029  0.02505865  1.45659546</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.24197617 -1.40103582  0.18411830 -1.03171076</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  1.2031622 -1.4359065 -0.6753484 -0.4666250  1.6206090 -0.8840718</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.4666250  0.9944388  0.3682686 -0.2579016</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]  7 15 31 28 22 45 13 21 18 41</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 15 42 36 45 47 50 16 25 43 49</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">disk</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.4040837 -0.7472024  0.5665601  0.3202296 -0.1724313  1.7161023</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.9114228 -0.2545415 -0.5008720  1.3876617</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.63113065  0.38907704 -0.05985801  0.61354456  0.76318957  0.98765709</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.55630815 -0.88290558  0.46389954  0.91283459</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   28  &gt;=16    0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    I   31     1    &gt;=8</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    R   23     8    0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    R   25  &gt;=16      1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    I   17  &gt;=16      2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    I   22     8      4</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    S   17     8 &lt;=0.25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    S   19     1      4</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    S   19     8 &lt;=0.25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    R   19 &lt;=0.5      4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent tobr</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1   A    I   26  &gt;=8    2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    S   26    2  0.5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    R   26    2  &gt;=4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    I   28  &lt;=1 0.25</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    I   21  &lt;=1    1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    S   29    4  &gt;=4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    I   22    2    2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    I   29    4  &gt;=4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    I   26    4 0.25</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    R   17  &gt;=8 0.25</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.64013819  0.32815059  0.24520983  0.61863348 -0.14954667  0.11665680</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.69000290 -0.43800225 -0.58498190 -0.08625517</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.423532301 -0.328588957  0.698154916 -0.575069322 -0.739389038</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [6]  0.531053275 -0.298538277  0.531053275 -0.241739536 -0.000468637</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    R   23     8    0.5   0.24520983 0.00000000</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    I   31     1    &gt;=8   0.32815059 0.08294076</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   F    I   22     8      4   0.11665680 0.12855303</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   J    R   19 &lt;=0.5      4  -0.08625517 0.33146500</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   D    R   25  &gt;=16      1   0.61863348 0.37342365</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   E    I   17  &gt;=16      2  -0.14954667 0.39475650</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   A    R   28  &gt;=16    0.5   0.64013819 0.39492836</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    S   19     1      4  -0.43800225 0.68321208</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    S   19     8 &lt;=0.25  -0.58498190 0.83019173</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  G    S   17     8 &lt;=0.25  -0.69000290 0.93521273</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent tobr amr_distance check_id_C</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1   C    R   26    2  &gt;=4  0.698154916  0.0000000</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   F    S   29    4  &gt;=4  0.531053275  0.1671016</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   H    I   29    4  &gt;=4  0.531053275  0.1671016</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   A    I   26  &gt;=8    2  0.423532301  0.2746226</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   J    R   17  &gt;=8 0.25 -0.000468637  0.6986236</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   I    I   26    4 0.25 -0.241739536  0.9398945</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    I   22    2    2 -0.298538277  0.9966932</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   B    S   26    2  0.5 -0.328588957  1.0267439</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   D    I   28  &lt;=1 0.25 -0.575069322  1.2732242</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  E    I   21  &lt;=1    1 -0.739389038  1.4375440</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 8894d33b..3ad9e776 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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.groups.html b/reference/microorganisms.groups.html
index b60dc8d1..3586f5b1 100644
--- a/reference/microorganisms.groups.html
+++ b/reference/microorganisms.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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 15c6273d..0a9a844e 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 1e3e2d4c..10969ecc 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 d9d419e0..18a7348a 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 2e485702..30bc1eae 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 2df5b33d..3782b6bd 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 7b7c810e87c5a2cc778bcd40d6601c5174d928b8..4e896bb40eb2617ed6f59848d9e3f762a35abdc4 100644
GIT binary patch
literal 26193
zcmeFZ2~?BGw=WuJZ3No3oj{;%18AdwBJ<?XiV*=7AxvQq0U-<mhA@TD+CsN7Xc%R5
zK*5B06p|2>77Pd|kOT-MAYdc`f`KGJNOHf#{-4w5y*s>h*S%}Kci*YCFrmJx`gZNw
z`?sgUKQGzaD1N8%9S8(cgq;8N3JA0*8U)&KZR=*Bho1dp0r=Q_&DQ2u;1g&oXYgp?
zW82O1u8|;+TC(hCUHbG_KM?3A5aicWSECDN$6^S6P#8<>@cfqzki?Teu0L?xVcUmm
zw!fZAI(H`}Xv6J8R%NMzXNT@pG*%pKEHhcJc=V6PL%$qaKL6~U!tLAdwtsi|<i7QX
zGS)pjw*3I)`D!|f{W9ZIQDpLnun5m-WmeG=C}we0L;<(Joi+8@ol_2z)ApbL{BPpG
zfPh7rh6nGdtUc8FNAXUOzUvle8O!%~DqYpCtU*_x%G2cC+T|_ZNN7CQrXc&Ke|f#9
z>@)Gt9~RcjzFf@AFJA|06RadT?E!(>zS;rfE|MkeH8uxp4sF7Q>eHn&?1L0M4(S|*
zV_3zl&DeRev?$^Lni;9(azmJrgn1S1PP}0xdEy&w1s{fvRje}Do|Hfe6WaH($O+~D
z+7wx(?le}{V$UyP`%%K6VWvs3y_NG&6eU<xn?w_NVWH3}tmh@v+TO~Vu_!vcWfv`U
zIZkRwfnIIG*;iRzCbq@~@=Gb2<{q>tIuzD4K}^U`VxjVrgj24ReUvOkw3I<zh>Qv3
zx3D91%8=S2thmThEBHEKr<PMs6i>Z<ax_>tG;Y{i#c235-1^E`z|OvjDr`4xNVh=E
zI)obVk#FUNn!D_q5Xk?GV6RQGr|bq@5hC_eL`NaBi1z*I`T8+Qo@B+0U%@I!LSG#E
z(l@c9C_PyN3;i(C$KoaZbn~Eub9+%*ao}Wu5Ee3Li7tzcN2DrJmoS@r3Gt_-D21Z-
zX-Z#tWCcstglni;j=(eX&A+<J&SmzP^)U5JQR?qXTd)D@?aO-_Ykr!cDD<LZ5Et6Z
z`%^u*_H|!d>wPw}&h^Ilsp6$?wo#;`pEwJ{Y+cn?9l22=c+2qkLN$tlrhBW|gymEj
z2x?+`ZgZ^Q8(8!3tr0XcDXHqC)MY*63}uUI!VAvug*N<`ymT*?8@hI!U|b%_uqPNd
ziRyL()C}DT9jMu)#JQ`aed2ws1r<(cHVZ6d)gDTT56RDez7nSB<&NfR!Pj0O*mRmc
ze!<1-ew7=`%y(q2YQ}j3BOtgoZ6yT1fg#d;HUB#466%rp5fkC1cFYDFb84dS5<jg&
z`4iG?eC$u*=O{E)CWmo@1McSMmwS?`o)!;%pD-J?^~?MvlowQbPi&c;BDGZLV0H;?
zITkr*eWsinE8_32qBw)XKQvhqCq!s_Fl#3^-}t>Z496|SI?|e{E;5E>B??b<E?YF3
zk6XT6eRCVmL>5LC*N+oudSB2c<Ki3bDWA;^-@mh5YqfsT;@^H;waQCh@PtjLzJ$L|
z6b4Y6sm|*eh0$T5!hoXyiPbi!YCWa>lII6*xb!JvH7Z(TUw`GCcyH$MV*%mufg{7r
z?+XfGVk$<GjLkp#GJvShqttN<KUBAJe5o_&vWd-(%o7~+X+BrwbirA173py!yr;vB
zQ?RE&u>IYJqn<bc#MU$U*xYAYy^+TLBF3kMr3FC-CDr_gSA`y9wG-Uc0J<cxi4EN|
z*cco#vEgV!sL<<XuNbE=vdsG#UE{rWpJs{#NG}CA;J<-U7#kMK`kVBl-(6-L>tALz
zd9R(J)Vc2uUhBs!CLqZC?7I*57;lWS5hZJ~_G9N;J4}^f{nAi{Aa|pTm|>L{NVl84
z=UOYRlg8HasGsk&``P{wk3BF1`#i|r##!3ee$>r_^;9($HFsN*(<I?(sUqevEgjoG
z<!mBYH`}M?D@G$f5u3+~8vqWrsW;x}U@D(@A7!yyO7NaNqv&<Yb1F0GQc%TW>xWOn
zN!@SWiH?}C_T&^Se%{0?XqYOn0e-bqSS4LQC2bdkO_-(z8k1f$tc)*w(xf%hFr4x?
zba#AjnAZoXsluvs<PXC_!njH@7O!g>1~5XK`ZBz39oL>{+_VTt_Ru-i73@w>+b=}_
z*OJn!IYz&0ki5h<+o8>Up}wTag3(XI52`|3(h(24vDTh9XG_@c6+NUksywQt#n}am
z^_xW2jZ*~%)FEWV{haLOI!#}SzUqQlA#KdBFtUmMi`PJf$x9#qSvRZERbzj8pf%oG
znqE=ERiQNLevzt9W;#-K*`|%%`ipZUlJbY|+*Dj79>A!?kk8idKy9Hy63sNBE@|H#
zhhP`!;vEW0HFW#ZF56ynIJqWuW8nQa?JA+?>-QDka4|<5?Y{l?{_a`pS5pNI2~u}~
zn?-|9Bd>O@dv}4z$+lxG6qjJv^l7tgnq`%b(R3)UR6)ROJ+PK9L@2DbKI79mD<%vj
zyd*!TqOqH28q!Y?Xz3Est9PcVuX^`(Y>!6rh|MtI%-W200%ig~wm9MfI>9YrU#8@%
zycrpweyO`r_(A3NeZEKS)KKlT8nt$I<)}irRg1UOAKeL%Q}CfWZLT)tp`UR9T~5oj
z;l7DE^PA$HRS&+oLK>?3a=J#{W9C!Ww&cP~sIW7K(3klfO1tX%E{@@moa0htxD-=U
zS<~AP^{g;HER+Vwadpo|0>CDuA0pvC$%;@EXY~HW=)1ykW8dN6t{zWLq;1;Ke8uIv
zn?%TNZggqo!bm3v-a@zVdo9tJc_$iA*<GbUxUu`DV%3U*O7_jY@O>$T)km&ZPQT{Z
zyK;!l?$*FrAePVW0_EOzFdF@7#-0*pSpFM+pD<{7WSQWgH-lcHb<=8RIZNGCF030%
zij}_H<%KpcUo{-N=VzVl&UM+9zbK?6Q-{z|2%M|vH-%o5fA^hbZk2j9zu)<D2_lUd
zzteYaDK64ne(+l3n?Nt7!f@QcTvU|vneV@jQ8HAiJde*38%xOord2p}@+cA(F^f_)
zK^waY+}1ji_QkjlXWt!<uK`||TyGw5P92-z^SZ{SSF)z3kfxU>c5j!KuJJIF(gvRj
z&dvaovb4~=da9r>qENHbzPxwrFBe>FSlS9;cY+Pp>4EgmCaZ*2FXbh<CR%%pHTu}~
z3Uy6b-RZIMuJ>sp;*o5$=Gqkdi9#Ce<0pg%5~o*hlIeLX@<@m9?ry2r65m2sqSo$1
zzw(v>iv0-&KgUYOHXYfwIGe;r(0INSJ;Sv^VlA$Z>UpboNXd{uqebLvvc`NfXs-OY
z$do=ekazyJ=yi#cWE=PRffo(8i~S5X7QdPra%fnF50Mx=Lr)~`Y}MOmBWtM{_PB)k
zp|0V&gm7|=bYQhRxxhud96cTUP8++YvPN3Z?%PwaxSXx`Ec`RZ7hN+o1k2v9O1C~T
zggynY3Xi+cUb`i~L6w=GFD~B%YJ8Zu2Q)O7P`$cpl;Hc+{m78C(okR-KsI3x>l=J6
zNQ<vnS*19tu4kMrYW+<G`HWQ`rH}eFI}~f2hBYHj;1-L^TEhtaf=rh4mOcCN_U*yF
zozBLy@3_1zDz};3at8DJqWO9+*J^3Dg1{PC_|>XzYKR69)58|h_8~7;!K$UdCw;$q
zb1#Y1;>$-;Qk!lT{sXm>Er~uan9~#ktmvv2Re$H)LSBgot5?yAq#`Tk7z!QeB}}9d
z-V(6QJoY9QF`jHH^ok&I^h{VKnk)-{azkqzIVLP@E4p&{Ax->O5@=0T<#xl0B%k<k
z)Ok)oTheqd<NDZEHawi;Y5Ioch!u@D($Ay%m~GM8h8xH37cs>+`1{qO(Q1#^nj8<L
z>jE*Wc)-$lIo`O1=tFLZ`UkWlOm3NE&tZ1=MVLQnx%oSsP;uafn}1XCLy^jxrekk@
zS;zI(c|Fm}cD1c+Vl>_Z>=-Gey7jEV&2&MDVwy2YyoT}h-9ixI(8JeJXvU|$d_MrW
z|Mp3Sw6br2KxxPv<Bb>Yw+a%R&WtyGId@t0YZn`*68gspzhrFkRVkcucQ!m(CEMNQ
z?G=U2Pp+z87XM`PRrhnX-Qo}a)v)HnH^~2jE>~(?_P-AYe8rxlUJ2J89wr#mL^5&s
z6A%ZJB4U|OPdD1Fl(`E)qtFlap3E2xTx(5>4S)FPV3Vp^dBS6}s@Tchy=dEZTGO5i
zVpoTUllT^*j_sFk!hOSzqF?#AYIT(uT4?2PW77Blp}YmvZvD8N1)&@qS-JVuNzvE|
zA6%F~avH0esPo4~EyhJYlS8dZH5+h+s9(P%Rl%74jbp6`mRiEw-5!)0#%nH5Qr;@s
zYOeY5X%riym<n2NN2}|Zn{lN{kD85xmhUausNBvXg)C$FbQOQ9TDqiWqS>p;$F8TU
zQi4LzlW1$TN%}09;_Htb70;aXil;-9L)M1ndU0b(KYfL(Bq%k(Uxib(Ra!@+If`Br
zXl78?npEs@W~k|%f7opSnLV%Aw?fCoIkAl1XQSizZ`eY!AC6RBTi@+<B7Qf@man0j
zaIO@}eJQDr^`B%!2jdy}<}!@=@3j3@f(lu9BKZBx!L(`QP|w$q4L}HE?}7l_cAy2P
z0tW&#@23Fn|DV*_81-S4O&?m>ne4$JG@^Rd1L2CearfJ{Z)Tz>h1lXsN$Y{XVD-f3
ztB=??>`v!PI&uyeD3@7%;9Wv~6zEaz7;sc%o!&NcxP;Q_b@QdT^!E}ED!2JjkDT$<
zzC|A>XGUzXoz5($QvTbz2w{()*xmAlk6?an#bNXzR?cX_t2%tFiRe{Q{>zY#Z4`(7
zhP|ma<vV0cCmOEZvN=6msy6B3P@u|TrG+1nbpt}Wn)Z9Gu|-Es>#fjoV~t4{d3X7w
zf!a2|&R3=*6E(UTKJu~NZ#uT_cMY}rV{CQ=Z<8;LfkmbG%HO+FdweXRssLV$Oz|Cy
zsuW{=_shvnM8rd(UdF<bqiK=X_({z*t;kHae0`TMne0WiZT@=L&^q$5P$#h+)C(;f
z+yUPxd#rVXiB%XnIDc78xh#^rjE&-Vu-hrxI34T;AVzehtWcVqn@rfFVP(3btr2n(
za*<4SSK9kGV_i|zu?zNllw|9igq5xivlT*ghlqsO(|k>Huj8`rYIoPCK8E(eE>K}5
zC5F<2i&UX<h~=x75aIkZHl@y5&kOQgHn6QybKLJ>D<Sq*#G9?Yh0bFotMlv)2UE5H
z&r-tB{C3JPPWL((?Ia$?-Uqp4v7&<ETdEqwpVO>107JYDS{uLCB|3!`s|lxn8=Gvy
zDtP~pP#$a7PGYFx!m#ty>W!O#an<I9Zir{9V`W>c7JkE3`gJR*nGFsUOP2C1HB8jE
zMGyZWbaL1iSgr@(8eO$N&_cF!egT5&YPtMc*%PtP-DuCkn{eAUb4%p>yAg7gyWas|
z2&gS+TXZQai}Gh(WB!zkNp0#;Z?NAK*&F`1ChpV(92cPF9)d4~l2lVHiY}?kelOcd
zFrPrFH6NA>X4{SToBtkW5RIgoV{vKWDUqFr<foNuwT>%@vq6YlMLO6%jmhYo0J4lj
zpr33{%>E92-_YmkB$vUquQqLXF+-o$I@g7j4FIK?uV>5&sm%gtWw|U*1{!~L5D+D)
z1+A5iy(jAcrCEp8Hj1rasP1yq^w!D3<8SuLy4%7}w&4vV(SOxcs(ce=?>9$2%AWk!
zG9&*N`1$uu18x)0+I|K67TFiA3;)gJ%Kt}}Py;ac;+q)?OqHdvG1N>H$=oW}(Y7Kj
zK$H`ntu{XFB#7Tl%H^TxAkZgy+!ED*{=FvDeXJz*KaBP~PVZPKVJBl9QcuW*V%9aZ
zR+hZ{|2K>Om&ytrUwEa^bIu*{O=af+@plbyW_pNk@;|U`f$)qJdzJs1y-0aZ$)ea|
z@pBg+$qu0H$Nj)T$G!8#dAa*aeX*tQN3@-)u)WsUzHJm@0G$g>FRvWQ{zZ1oiDdmd
z$bfh+crxBeS{FNBF6N-ZU&YniT$TEk$g_%x+jauVKY%OkwM_8h-=Qd9<rdAwIRl=M
zb&om;+v3+Ap(w)TL-q1iCreeb<75<o1p0v5i#pN>y<ruhl<$`%RqRo=B7n~dpI6tC
zlNN;7VF4p)dLQG2@%#oE9D)QV<TIKD&v4x=b+3>58BJ_Koi)08;zf{+xd~19C0tIg
z<vTlSBU6nvvZo?^tpbRj@-=;XiqV~SiH)5uXz1Fr_0<^y!y|}D3lkSLH^dIm{<_I&
z>1!o4{d<s0&E#~>{ju3|k#l|J;cK<e)X|}2mqk<`BjRkn@YQf**k8xOj(>6i!A+m7
zirC%Guy^M@y~Z@928#NAeU<91?4Qr^z9va^iN2J(pf*pLWrJP?*ehE7Gz_&#egWsZ
z;<&GU^+MWp!=lxF-`_TWG7+=&P~uz^$A4meoAyOf_Xa2o;Y2CK!JUiULJUFs?<ime
zb97oO%D1<0$hA(Y3u{^x0#f8Xy^%oY!W2o%R|{QHOJ$QZEB0466qSw7Af31LX-u7f
zP?Vjx8i5vx&qE{g=}YycmLU|s{TU*rRDzn1>~0-j*Os|PE?$EK6ohwRyN7Cvr7Oi;
zKfSnNY&Qtx|HATlpo*t4t+h|3lZzOf+@iaWlMp#)9NPS|>^#O_{RHd|eVmpMi(rgS
zx;yn1G@yM2EJwFE)EK9)*Lrrvch^?g$cq_?ND;Ai^+P!-h~LO2Qr=R`ad5-;9jM@T
zx2DqGG-))VbXahZVr^Vbbm5cPddQMk*+g$z?Pjh3k8KG<T(()y&+k>UcCoBqjpx5(
zn^GVYJ>7kaK8nVc-^4>7uq_?#Sh{nVo3FH4u`UuPsb1By?Pw<Ws4*05DwSm`=KchX
z>cwNL%6rQy-BH-pAr)~##p*Nm4hjr6fNg?Sm3a>756JyZz(lMsE(qz4FPpYKA)5?x
zc`B1IkT>@KX8!(<vjqQ3VM^{b{8vg2|FVioKzTxIVjaa-MP_!6i563KbgVaG5!g9c
zM=0#wRwZYWGx0j0QFI{l)KuB>$HO&uKB~^zr)v2gn}u}*)NpHMS<xlpwYLaR+nyZ@
zwL6qw&KvS_St%Ck)vY#Hh3<$Q2hDO5_oN}yalM|vFROKIWoOvN*~eV$d>x>*w*rBJ
zNYsIKda7S7fzpJ?W-mvC-QpCc>T|?9QUD#3N`%}ZA%TU357#1F7YoIo!zBKxi;p(W
zhKg|N!dIP$3OEc-X$T&UELtpJEWI$!>N_eZ5<4l!ez>!mSGAJoM62}+i|KZcrPdWW
zG1@`1SJrzPeX3<w*{E>V)mbY8R<arrP>hN~5+>E4u#RjPg5reJT{q;@gddwTTYPUI
z?~I<f3v@cO3nF_TEpgS0#j^oW*m}^BX)U-+HbMU{^G?cY)-zaFS?MNn7XZZBtMdSL
zlb^)Ku(x12X(x2$G%KW7P6}cvj@Wc3y|UI=)k?XVot(T|)l{zTg$fO28ar22NE%`<
zB0is|$?H{*zpiHpovdLnd<&GH6WQ5YUgRNm=d&m<8-je%wj#r*53zoH9-E_@4UY~!
zQyn)X#zK1p;`99H2fZ|8FZS*m>U~tNQBiaiMlvI<wm19IUM4j7tR&@JMOF#Id}Zl=
z5U8`T(B+p2EISOF45eY!U5Uu~Wg-rGRii3_U<Th3B&R2rQ0S>3>}R`Dj;h>d#L%z_
zH7zBv2t-p5(|)(ypVikiS6e6=dbkfy!j~{%SW+d!ZR{2u_ig&)!tbKPsQTtY14Z~e
zBV>LEj#a>B;1;m~y=vxFEw5T$_hxRBQKPR$-?!lTEcOO~q?U>tPSFW-K{FeD)fhYP
zCO(UZ;iprOP~%F*aSk3$mE%~VsVtv@HNQ%t=(`KkRs1K^1tV-#EF5a>h`RCG1jtI7
z2$%D1DtF4(_vR_3oao)BScgDkeVpeB-B_=Rgu2x>t&Vu9hsZYVrI~D0;^YUHbzG9s
z=*bX<s!F!=ayR?l(Uh1kF8AfzF)2#jwV)mq(;hq)aErh1mAhY{-1AG^)bU-k^u_93
z_VbXC#`&N1_I~re6DPZX<zVMj<eW-WH1naz0|rpFp>NOln3rWNRdStQu2>`tq2#<D
zA$h_~uUN|H0Cf@p0jnx2vVcnmwR-Uhe0ZIJ>0Gt%rCi<;CmAlbCoH@x#h>g7kP{xF
z-wsmb1XgRO7~T=8N6sO`J`vD)aQtOD1%~%YT5JVE#ZqT?c>q{Vmkpu<zCh?FLSJ7)
zpW4gp!*r-+S*%05TL+NWI|e5`YvHml$PG|bK0t}V=MiYgC&HP?Ie7Zj?$F2xK4w@j
zs3{gerKPJ<Y(C(UP$~CSLcNWteTp*rbE|7^zd;wmiwS=&+84mlu_bO%`BjzkmUKpA
z33Del%p!<s?JT`H*vc(Sh_9E&zlmfOopIEdhbSA!G`)zNqsd-nKq`OZrS~N=ivKJ!
zz1X?Xxez*5Y1R<S8~y54*1Nx^N%>vvzwQE@lfBvdw(KmfRf?Y}#Gz_59>GbsWbelJ
zH84q!``SN`=#{sUR!2u$`=Hhy;;*BvThgzn$tLQ%`feh~?EbH+_<cj@vetn4uNrBx
z-Qt=BtUXIBNzDR>Bl|eotPy7Yv^)+=oP6`!!;Y0`{xX}?r%ozceanX8($y%!7K*ZS
zdOlqUrzG28{hA(m1w?y6Nj0NB$O5<*;d;5Sw}HfSxi?bcepNZB0R8=|f!V%{b9>?V
z!jILTzXk&F^TsWzq2odZ-)#Pvv@%tEXYj{(!h}{zPDRW2-t<}cGPTdn*`w2iafujD
zIST^4U%@7A`?K>-`c)DX*33RVlmKkTa3euj*;{NWsj8d9u(>##%A3r(bTh8q(c%U(
z1o!2<KD^i!bt~1X^nF8>%W>-KW&t9trm|;wh3$S$eR1?*CtXPz)*jp0c^|*@)|f}<
zBvc*b_D#MnHBTTZuG`MxSqD(grhKVok5Hy@x*I{>pI0b~P}pC8Sbd=6I8B=v`nScM
z<u_0UaNImP`p$4;HZySR$Lza#j>0`^+aAor#IIFQo>0_SIqC}k?k3-!zRj)IGucL;
z162KYb2WU*;|$+_LW#EehBU#Q#wL`IUkHo6?ueuAf`{qxB{`(EX~Q@xkDdms`a<HC
zTdOmrRV~>^<0e&^Lvf77BA!9g<X8i?*JAO#?yK?JPPB-NGE;|G7=P`klF+n6R{D7h
z%v~Gbg8cNSb|no-i>2T^DO;?UU-P7Y#C7DZ3sWRLMkCw%w@YKFR;!%3;)(?PfvpLh
z?`X_aiGxk3mav4qi4u^;UMx@BNMJdIdFoRuSR>{!jxFf2grJg|qQUPMbib=X7B2Q#
zlaj61CUCmG-I95(Wd3Gb_j={Hq4t*7io3<;gY(Fl=Q-+1(Z5-am)G^OFQ>;2V!KVW
z`p}X^^XP@~Rkd{>=W$@y*Gr3H*)peAIbq>W@&-@AA2p%1QT0vG^q2O<A;twE$r{!#
zh&$$;iH)(+a<L|*8w*#bu$n0oNJfSVb;x|AHEDdU+FHHlZ*6JR87~wLCrxkEebgY#
zJ44y<S-qIK;AZh+Ld(<e$mOqDipF_(cRqo=8p(<e<j*E)st0YogN)cLPZCrs%>CMC
z3#9SVnmbFK94f6o>eE+pRNv5x;alT0M!y#%v>y0TN@KeRuslEBtSiSwJ-sQ{QlUzm
zqUUarIO$Q7-WT?L4<I94F`WqnCe;&Keq66--&XI;eT}b^U|T%-Lu_9F6^M#;v0-jR
zxT-9bEK7;u{TCRITl^5uTBCQfkN1rhMMP!kofthoM+P!jdR0L9{<NiIc3D&L$^2W&
zSxP7L%3;~WYFw(?f+U%}Ptj-EdG>Ciu=)%IAD}9G)b=8^`PcSzXFWJ);+q-I*Qai0
zxI2+7gv(yIVw|M0rQWCU7ui_QK>)GDl4gM_7Vngke!@uJ3EvC<GbygGfu!?ofwo3f
zopIt<4-xEOs@&GK{QxMZ^f=ARq(4_a<H#}RHc>$2+<=XW+*l=Q0vJ|o3FLdu`+mdq
zzW_VJbS9a@rCj#l!w$I>@%{}!W~}t8CCLmI8;KC@=#(3y@k3kAsj!;sYV7kZTM_(h
z_D+f_t}pav!Ispk@?fDYJghuXn2*~@8$uVd83$o<oCnOQ?zdD?o01BAGuP1OUsg-D
z$2aFE<&;*Rl2s~zmV4-5u|aCXuk9auE7Y%y5nE7*)M3d0YjyOMSs*n5iMWv;B=>nt
zbOC-BxmuRCcyB;)uUN)W6TJCv9?CATfIuddGLG|A{6F<3<BL7|r7@IF|G83U(K(=O
z0krW~#?Ec{Dxb~s`|3LPI2)H&I>Ktk3v_UueIv$|y&5lNmpXupFh0Ppdeyew(8JC{
zVYR<4dRovVpC5iBU}z`6QIc<^_zQb{bDyZqLsa?iCUe&U!?zOk@p7lqQB&?><ec7r
zSW+u;uDj8s<M6>jIknXRDZ3UD{40s*ovcC&S_1RDto9GwaoGkOYE?eGIA*X0mtBBd
zY!<+6u-^{KVJ~3VW;{f#fCyiXoZFLnRUSID73l-#KH4nUi5p<4>*c+U3+11QMExCw
z<;xy^WU~V146w$~CfEnzNq#l^XrxHp9cFgrn-3TF#${a?rSH~twJ~>RsSB#a3{lzV
z<(%V$9(tHxLwvgGb&&dvYV8!jy>cCU7Rw%O<)~3uo@(2oa7E6rOKSUT<X!>5zxP1Z
z>K=OwF5iiC33V;i3ee%GFn5%6cE5awMl)?jsUio8LvN#_3U%7@iBBO6J|~yY6mR@`
zMof;A2IDu*H*OsE)%%w;$$%DU7Y6~KWwd6*_>D=Jy3cl5*S9lMr2Kg>#o*j|c~`ae
zzoOBn9eJ-se;DoFU3_Ki36NsWt3#2lz)oCI3r^oanUiJmDvg1(XZc(vo8YwP7$)6G
zN?`w-7=paRPQvM41Mh(r0}&CZjbR{TvYkL$!~T=<496``csYTd8Y(QhjH12sEi&gt
zg9h*8;>uh8*fCZY`xeMqH}=?Jkx&s7u&-7h778le!qtE@F|Z8Y6?)a$WenT$IMx@z
zVRr#Fv<SVB+}GwEdQ9V>+_$2KK!7*S4!w*R$Y<1V*y7ADUiKAED5GE5>JjVNpSML%
zL`O{qNe`D6^qaB@>ey~+<hOggJP`KnC`fDdNDwHI=$|DOBFk1EvMVS(*ey_W{hL^q
z+2)XhY{AbC*n~p{jq4hFb`~xCUWp{mRQ|E3L*nTWm*46E8SgfwW(tsW$|zo&a>@z6
zD6@H$gno}*Aa6rwR7L}`w?U(}_8V?#-Jq=F?uwkNa(CS&I|$IudUm4luVz7@&Ns*1
z`?j;%0wV^{iocW6xsRPT6O3OL84H(JfQo}`jyFc;Qll#cVUL-u>=ue8F7Evti4fcI
zPmOSxVRL3eJ6;1<<~sjP9bBe=P%JJ_Xl_a1vv++HP<;sC5nDF-tlUj~MOgh65s0`^
z!jZpb))Y`Iu6p3#LU<$V@2thm?f=bmMJghr!5k_&rviUS3t3#25ev#V4v0Y)`>%%`
zZrAY}uFJX-AvM3sU(xn!D&P?xP&5c8wXD`Oi-FsEE<}>qRg^1&$u5dS6`6449(<b?
zp!<?Qggrm5uCwZ;x*O_7YAeZY>~U<=nGd33oL3dY{NFXx_C$dP>?*7-7JlX?-uYGB
zkS2u&4a3@3NGi=jO59`=0L4K7!;_r@dPmZ+l|yZ&TLMt<tw|)*KOaj?XcD|#fvh56
z{7>YFYibru1BlYqETE<R15wP;b&Wmc&*Qp0M1TDg{=Cd-tu!E*5P684{t13o0hMAr
z1z~)%w*eQ>XDNC1&q>m<Rhp|Pg*`^u;1)N0cLN3GkLoR$6aC8H@^5SGcOi8rd3cUJ
zU+qk~Bs8NGJ3*bo${4O{*ihJ5Gj2=w798F==bxmzx2KG{JL_S4^XJT;tg->e@IFq|
z+xrbIcXqfvov0Q%HC4?ISL<?L8?NpzFM^^_?J1sr8`Rw?rgvl}TgRW?1TA%<l?$A5
zoQogv<xn@iH`u1loO|iaW6`6KRynq{6&VPAkjEvU*#~oSoP7Y4eBnG#-$v<Dvz2kB
zeO?2z&`<6FfQ<ZR6NT@S@^P^0-&&C`i!9;R)v*)rzQO!{T8GEeiC9I0a8~=6gYFD~
zIlgrQN7c|ba^u^!8Hf<);km!Xb<BRfOHsseu0nx3UR~_3b%Ipf;=gGCU=WCrHtR?3
zV?|Cm!Q+HIfV&X$&qL?t!mV4(UcFwl0xCnCe`=I47w&ayu;z?yuV~Ff)ctQun&|hN
z7(ar0HNHJ&zwb%fWRKKwuDGGNx$Cq{&=SW20P_gcFK-Bqf#~+2eG!}#R^pbXO`=Hs
zxV`Pyo7t;hNvzOe<h#@BeRAx6+<4vir^n?7etviD`}L=PJY|Fqw%)X1ohx|#FST2L
zPXDQP>ml6Mc=6`%x0(O8_2=In{65R+=^;Yq<E18+4z!CenjT>*D~o8H81^If%mAx^
zZRRw_pK)Y?-Qzgx<@N5i;|Rr%3(vb&59k!pEvFDoW##Ca7xL6QD0nM^KQ6w7NfuHy
zFjIxTt@B77jt1_fZr$f<1ffwS(fVhaa&~c38bNmCiD@{UHc=}$j9o#pB8wc8Le6g%
zjuT;+0BHYvc%ra;DcRK}J<@rFd0KHrZj02MXx}UD0h=~AC3s`1G@IuV>)kOHM&zbn
zq;a7bouF?8!M3DJP-O-<#uX#dY!1M<Yp#T17BgmHki|#f&XS9NHBK!;B()u}@3C-9
zf%ybH^opxAFeyDiZpec55u2l{?6xr^F_-{>1o`FO2~x|auU@6w2X4Yr`MHLBG)*o1
za+7E;f)`)?HUgVb=H8rK#mS}UmTTcUM#<6@lrzQ=V_`_<YMS0Sn}@@!!MbvZ0fQcr
zBP}r(K8S=@8dm}#>W`+-^zy;qi?XI1uJk=nx3z2uyL!fR5YEk1=Qjm6t0PvfV3IXm
zgYiF~^i|J2Uc+HL`yr~W0peLOH5UTi2-^E)2SlPpE((E`Y^H%@>@mW6*bZ+oTWLXe
z<uWE`DcjPqV|py}c<=l<RXEZH!*t-Kfi>)Ti;#reAM{a9U7N<r&5x507_yq7Ju5W{
zO?DBqMxD#glEJ1X&-YmB7pr4<`waEecdhdT<@zZ*MEpw6D*G6|WBhLOC1@g&3sxZV
z=X8qjX5_x0UrM{}Z6oTy+L|#wTy93j{`@KWQ7U}D-uZ3kXdmwgr@-1THa0&xWlUP>
ziR?ODS`SM_#Jt&A^gySIP&*d{a*TMhO?zs{H$4Qe0vAxK5)8EqZ(X5NK%kDLlmLr^
zvb5z$Wk+6NEc<259Ndc@WtgZ!*)>i)A+EW$CrNX3yb{8D3g+6+^u*!7%nQ8LO!{$T
zBedb6ZpGnZ9K0(zDVRYp70oqy(J3xDcQ=(D7&<Q)jqI~8ZW1u!)X(LD5>wle%HGt$
zj|UANaUuPA3uBq|39q5JwNY?@R<n)!F1ZA@lvaYckFpRjR!1ZZ11;T7Uq}TfYp-1E
zx_(Sl?;;O>9v@_Xw~+9(wiRs`6Z&I-*2?qD@Ia(?%oR)|#^Mlv?pv}?iL&eDT4~p+
zIH)V~;Bev8QApYa-rdZfR!T9!p>@C?SO76iuuMUUA(H1!62X_ZcxRSYvjaxE<l;NI
zxanUiJOi@$g&cs{k2(J5kT@gw<uPgMwPWPCD;-m)n|^Xwb$L+<nia*y%*|U`9Ve4Y
zFM<UXVC$KRbY58=+dx^@o=0xfk&k>|*|MI{sX5%zB{kM=b_|nuK0b#~`r9G=kwUqH
zB<1ns{oWT5n}FhZraUqM`MTLA3b)ND&n?WWaO8Yy+erOk92Ky-6RY^$!guTC=K4f=
z<pC9E745BZMQbw)Rw<O%+!I~F-zwD~E`Ng<kecTIu%p4Ru!`h|8N;oi7xxA_FOoRr
z-=d_X8U~1~9CV@Xx=+O}IjuuCwtw5ghs*Gp*P<T7Z`LJIr9$&k9Bt%VG}HFizYY3-
zPQ?G1%>TV3+(#-wg$p{6qN3P@?_W7`xvhp%fHBtBY1E4G!>BgF9_Gaxk=<=dVmvUu
zrI&I7P4vjN7?0tovmh<awr&&qi@c${MZ(#h6@XFoGxLxlW|U^oQW+SXKh<&|Q1UbR
z$-v9rtMOK3>n7N?M98*<<7olll}nf&!zun>U}byWoC*&(@7!H<%+!}>>Ahb&HJDK_
z>h!Lv=(EQ?3EluYb7T6tJ>%vmHwyEXo+zUZF~#%942A%7D;1<S`O1VWf_HIp9M==@
z@Gjs0z5VycFT8G+in+`vL+bQYhC}bCPoIWnxN%I8KS?ZrSD))K;}1IK0Ebj~9b+g{
zlf<+izTNxyatMH`|Lpi*!;g{vs7<*;R$2VHif>8k8-?nG0R&wp8@IvtA+3+5&O($5
zeoB`Kl)IemiWd`+v64e%WJbY*sm(;`*fFwBMnUmZ%~6Uxa0bqYF%#{9p>2;zfMbMO
zF*dW`lKdBM|Jg%7NT&ai-e=E)A0|epU*!D--or17i@=~$#BxMQIrURbjPeEawfaTJ
zjtTLt3zvii0N_VVf;BkLV{Tmt^AyQZac__<eb*2u;aP3MHH?lkr0yWOJ%gZ2j?A#o
zA~!(N9BT11-=$4d1JY}GibWSnLMso*VSDJq#^`(`t!p(Pxy1b<j{v4UzxYnD3^vcO
zcrNtFXFQl{3hG@{GGxhP3e_}F*kY)&D=9u@N$-3u6k~mUUj{M&u(J454C9g|i^^xT
zxv?v;UnLHTF)|oxOVVni6F6EINx4(55T*0`o=*G)1`Np92j>SuAQh)nTCy>^iIyq1
z4#6&3ydXy3FC6#I_?~MRZOxS%+^=;RgxU@>Iiy9NOl*o_R+MY#zve_~$6Uqq3DrsZ
zWLw{2`D4r5cY8!Ze&UXut%4CSsc4Er?9{WhoE(>PQa;)1Wx4c|iYLi{jKZuvE|O>R
zL5rtl%a)f*M^qMvil!<d2`!SppIrOK)$FOSL_Uo3j#UdrUf``EX!4SJuEKgk55O}<
z9<N2;uU4*=pflg9)VH!ga`v9I+4e1=a4YjaI{<n3pW;VIAb$O=H>WYG&x<rR3UCLM
zL5VSlc5qxH>`xVs{HalyDX-qK6@Y2dd0sgH?M^aizcuEFArR*-41Sr0NJ{1|0CflR
zb)FsJu^0{QVUIJOTeOCa$-88xL*F6c7(_4}P&`W%GD2v6JyG+ckGl0p7LfVDDBy4T
zjMfA5zET-ik^u+T9B}*q%=WG<xcO$A>HMonnTLj&vGwY*_2gk1aR4bkx!2|K+v8^&
zzg<c*yYQ{b{+}KH^Zbwj+)oM+!Npo6rUz1K8{ve(WgKbz=6rg0Y+JBrp2pz8F*h+b
zn$43B>Y4VuC*b1qyeu$YwMt$y`>=04VSv8?Mi)+%9UG9whs6Y90DROTZ+R9VSJv-+
z7wo%FV~|=aH#ToUR-KPX;Bte~&hsQ->0XiiME^KBQBOEd&iExAojnx;nSXGdnJKPD
zW7=cU#(W7{1n#q+A>yZwK|E>EsWMPXe54KF-@yz*HE-DufOxOssU<KyQhZ>~?l`G5
z6l1*9PkO~$i^S|7yC}bNoLKq&cnHJs7fzTxuM|?5ub(~!@ywda?2;xR3;A*+GqVTq
zO8I3u=~`h7G3aEg%nG$_uKy6V$tY1LV|KuuS<tVFw9HP5e5FNhM0_@^)YghQ#a=lz
z{sFwDbR*8o;^z=Lu;$$@`){69G8s>7<kb2@y-<i=Yv~$zB_1PEgsj>^?CC8Cc$&$l
zKLW2-91AE!IPc!GCu3?eL{|l~WCIC}{cDHKbq=+{@umAt-Igy;gPE<C5Wuy{J^=B`
zpIX_X9_=k)qNOhfE4G<O&A!{T$KwIG7{Y5i0709Q(Y>zuR{CVWc8r!O`<!vh<;LLQ
z<5?|+6K@ps-aA2ISzre{Ueg&&5oT&Qa`1)qqp8<tFbo~?OL}8S_e8RW6)<*M+j@oE
z&u%^3enl}N6w}Tsv$H--#wUSMju`7NvH7iREG}Z=?j9{NNh@agK?w;nwHP;BW20m~
zTMbZkILn9_fGIqK@dT{4je5*=qcFy3G%@c=-~g#`N&{FX60=j;?91cXCT4<clfQ(l
zwnNfXF-y>lc>ms!rR?pb4SWoEi#lTP@^Jl2ytq@A#GD<fIS5hDpF*9%v>qip;u$ZR
z!k9((bz2TWtR75#JcE(AVH~1}c6z$HpMlz$Tdc`1N>OJqD1dsYKSsIHL+!<5JTnvT
z3uP-TIQQv7s}2@J#tg`FfEC8(EyCXjF;lhOy4`*`iuX%zbqLQ{NHf4tSY(f39JKWV
zV%QX-tMTx29B@AK&8)QZ)NS`6lDJ><xSHhWIi7j4%<hVcVc6AtD+6*Gyt3K9$~15w
zz%TlzBZs-<%PinR%a7OrlaSTbgv{%#N*G>{n_-0VKZh<}@dP+rV#l@TiFX7Vx#dfk
zU_1bm%^~(9OUjOBKHC?GV4<mKwyyM2VMprN3%%wkj7J1nvxim|^9&f0;ZYaK>aB?E
ze?cn#NULJnMx+DRqe~sj>?bR2d3SaM*3X2hHV|zC=UaXoIT3kUneiEALarh5%{5m#
z%y=y*40nlYT{QKC^A7$)K4$c|=1ExcTX4W&CUhValaScjoozp>qrK!l^B6ofzndz|
zNKr}(fkfaA5BjO-+Re-ub$x^gLSN|)JhrO}EgD(Ugd`Z9Yl#UQplPiXr-Tk{(Vhw2
zlQ*4E@X>lX)NV!TxN=9xfU#XIw9e_#y>R-{fy2n?o;wB^vwI)<1JmC^dQ}gO^<0TH
zLXH_8eytl4+Z+N3{TT1`;?q+wEB#^UvxXT}aI?=M<<UJ2zoqnU)f&4Ez9t8ze{as6
zg1d^Udq*mM_}5*4@7y!un=!Nj_)9rZfi}!N;^A0VyagOcsDY1qlRYo%f;#@V1~E&f
z>xl^cU)yi(&zOqTkqDn<Zrdi&nT{gbI)*+R0wUtx3CMi*RCu!_!~<}F9D8JcN)F7y
zCYPj~ZG4qB-IBTQd%3%mTYCpnka;~oOJR2Y0uP({x<}rP+57a#QFq4<3K5B+m%jfH
zJ(>A6w#q&ts%v&30BqVIL_&28<+)GUy8j2Y&!a_<qJpV*i0;J*Ka8F>U>#JE<)baU
zQEReVhQ$H0Dkk25T-g;drNZgF5z^3U)=f<?N(yYEn9(VxG3^;^ZWwF(;Uunh^AWND
zT&f)d#n_YtvrG~K&Z5p8EzW=3x_B)wq(hR6vfG~wYqY^c))HXqAA?fab%)8v4zuP5
zFdjwMZ7>?(l~ORN@H(mSmriV>Rx_&0R8(=8#a6(~UX1X>^l8Oh#?VtA=J=vo{KcaF
zA6T0}K?r81GUn}pZk(gls6P=PI)3U8i`^Of4NnpGdb!Wl^wu^Mr}~V9G|WfwzZ~Pa
zyET@2fKwyhY>d&>GDX~8?Y$G&v`^$KFbv-xHLMybo-0ZQapy7$vObEITflu64VdA%
zqd5kWuPblC$%^Fe8Y@fKa%-lE9_Uit7QZ#+a%5?%a<*1ig@MDmmZ*A)I!D)C^aveN
zPchPS$<E%B{?74ac(u_;iujl)&qN8&-ZQ}LfMxM3w?v0M{NeGV>l&oTS$Vbn;B}0*
z;2f~&^^=}y{F#|ILQVPZytC22N&GS9rK4%}ho=?zT}3~p7krH1^e#?7BnQbl7$EgV
zg$UTw_-wt+DOBgU;HSZJ0j&)bXHF=z^TntHdAdqse6hBoNm1c&lQEDJYIbcs+N6OA
zFnk<cx{ZCDI}&6d=$wUrGMRl^0ZAyR4MFEd#PJ9lqj9I+s2y$+Y2-<)7{+8`-I_;h
zZvXBZG*L!D!PIY%Pz>)8zMd&KAAtjF`>iC1#uEwqIRgWCxwgFuAT?w+SkECs*r?OL
z*g1oCiPxFF-xcI}1%kBi+R|5^WnK}o5=#}lP5d|#ls<3-V3~4ABZYEetWscSy-=Hb
zym#~`O5!Iq)iPUX1I2$fedQQAeCVw0soH^z;NG>3(ZW97`1|U~n{bSVbHCM#uOpXp
zvXD2nn{}r9GSc}*JzX*eCZ?I4Aak`%4a7Saj~%53kh70yY`Hn4my(ZJtH%g(0?J1N
zL+^uN1~MXmbDL>3qO*S*xB(SbWrmX<+**H+M)S|FvHslss?&!yY9^j*L2%KFKa5)f
zUrpdCOWMx;(#v=FPZM%VNZio+UczU-OBlU8-Ydd0@!pHrwv#XcgjbgNTF__9gC5rA
zX+oPWzuXm?B{@=T4VgK1?A<)L>ZL`(my|3zweeE1k?@J29c&a7x8mj}ZleZ$v{P;9
zxkQSwP%_qDIUgo=aP)sstexXTMW#PYsHsh`??F6qr8!fpJOVryqszm7oSZdhZ7TbI
z+;4XXgr{?Oa?#__)CS1><roR)utAV|?v!<@C!T|c`iU)lOQg5_#Fq`6L*418Q6r<t
zBgz>=WpjRgU8_iU+*#w0L8CL`&tFaAqcHT6wdL@LZbaal=aAMBcM=3cSAyU*$&tUL
zODkSpxQsW~Y(5nxCSg2Ud)GdHbzvUr7)JIgTsqL!UG8!|A{kueP-{tMIr<NK@Fv0N
z2U81~>xP*b)1;w_&&`K-)(kf6H+Wn?ccPLkp4vlJKEY6PZUMs3r=yLHcUSA1l^Zm)
zYA(~e#X20W>Y}0ci>3E?{b>W<5}13DSDi_=H@fE<Xdti=R!o}|_!&cZEsWI~NM&G+
zuH9+{n8v4)3L+|QURv!G6hY=O#}5zo@g>4FFw3DP?P6$T*TMk@Thd~$Aw=E%3}Z2>
zJPbTJ4{$MYU-;FoZ34m(jh|4*$Zrp4yc~^Bjj={&S<vca<fdQkPci6VzPT4KEV|XM
zas-)2zqXy?4<JA(tWhw40>t@LUMMt9tNC$`v;m@|j%hUe%&GQ^!!YfU8yFck>UxGW
z7JV_3)e1(Mrbqqa7_Yh(7msh|VxBqPPJEX3wi~mbc13O9{I(h7W7iO7VP34&9oC#n
zv1Z*8>TtLx=tj>vAieQO96JpG5)qD9wDeuMZ$H+rCzLw%uZ<?2(1Cfx^eAeNVEwxb
zKR0guVEC*;U@`~5;XJ&qLaF~c-t9bZ;(~-^`Lp=dy0_1#?F?zi-3`MsUDKZlAKK(#
zH=M0dyO#Y~b8+{$-35mgW50#3!otjB_(yh~0Sm1n&fwyPc?)$;-SzBNy`um{xwYE<
z{GIc7#||pJ-;+X}HJ=IVd__#f8N^lbyQ6ka+ef-@{F3+4Ij$gTc*H^2Fzmb~uogya
z!3dcFOX<1k_Pl#wq;16cF4p8}E_dRv<>TIpDZp*mVMvRi*8ht%6ONK?vti6JGHP?l
zqb3kHOmq0**Mu7}HW<s1ms)4GD=g@~Semu;DfD|!ud#yr&xo#kB7i>J%OVC@=N~_3
zpMyFop4-=C^YLyLt-QhJ@_(H!EKKaG$y9!xV(gL}0<pSG7LC3au6<WG<c~EPk$lN}
zk=EXL1ia$0dg{Tc&xhMY<x5R|K-I-A;zn0^<AdwPV4)qa=R(Use~%Ja_3h~keT(h^
zE5}-Lr|!bvM>5j*t|x4nIR$$_Znd{mT@k|%rxYOx2gV5BuijXtM>HMluiC%!X7RpX
z0I~Y{BrT<JWU?Nxx-C^bjb`V^=7J9R4Lx~o!7N_YJ0Y~+$GFko7O<!1TE1)G!MXIx
z+>Y>}q|TDyzG;X+4HN3Qo?uf#Qp00LqtB1@94<Vc-CsNuJy+JPHo(nl&7FF;&C|T9
zbM;7GmK?f|nu9ezxQpL3*Lz^5o<l;1-R87}t4kd8?A{q+7caz<bM%Z|rg=}uj>qtG
z?sMTIesJqCn!meRNpDocVY0c-3Q?~|{Krb;1=B@~n0H4SA5nrc#UD2fSSXdwv@M~}
zM=$(Q4`3+DbCv$})3JVLIYu(NnR8Zbe*w+3M82oJ=hRr?{HH~j#r0QBW<Dm}#}F+2
z9xUc-uVjF81V!fh<nAl2DL^4j*<e_&$*Io{okTUu_T8MhNbFiQvAicM@NqMha~p2_
z6G4vk&H344l)*7qxL@%Z7P{p5q%IM+Yt^Ff2S%1r-DN>%dA=ar#10AB_X8Lr(QGG?
zoXzbDoK~ccrB1_nqqtg0^RfP7S66Eb{>9O^x8k4HCeV)c_bt{~ajAH2!Jfyb6LT8H
zhsfQIv3$uD3<=VFRQoV#v*c{o#=}eq&-~Hs=|D$Jg`w`9_?lYD@5k8uwyxDJ9p|lk
zBIqN#*#n=g1`~4sA~fb$V&cujMfqV4D{Dc#({*M#OMZ&k1C5pSk5X%`{asZ%ecX)#
z*0@!adKg}*T&bouTLYfbG_01trM$}jpc-fKMH-4l0O?OQKKIBJ!z-<SZ@-3-o?rQC
zuVFT$YugwVFT<}2S1Sf1Bxw+!Ndwx?i2TcF`@pZw1Eaf}hK&CMQq(e{8jzT(tGsB(
zJdNGneMgE-SECejXfIrY4Rk_E#K&+WCQ7Aq>s+P6ky1M%m9yBf#Ifp~a<>Us5kwt*
zOngYx6^jK=56l?7`L}~TnLJxO_0`pi<A>PCYAg(lj#)*lx@{INi=SO+S*(>PXK8g6
zQe~)B3ZPaGfLbdb{M}(au_F`-q_>P9F$|QPj<oGMGGOcHS+G)k$)7rMk#cTSqwYoO
z<V~trfAMQfjK?ay#-P1(CnIypF>9$fgb+12t?rsoA++7lZ%U;b>c|z)jQuV%9MNYd
z{VV=r{w}PE3Atg0#?b+C9Fn_ZijGzUte1<rIheF_K;z(C)eDzU$C%1<iIt{+Bdpb>
z{_EeKOL+rK4KqzV>(!c6i%YZP1spC8Pkuhy@#@ysy2I0`xa$~c4^Q|xoO7f}VdMs2
zt&9gz`+M)lJh~p@$6fBu*k3&LcqzTpGGi?QqZhDJ6HN+)X8WlZ9uFTOV)o}nG=1*3
zazEd!v$zLC(Cik{16?f_ST12qxvv5G^6GA;ySi7-^afnh+|Uu}hrNyQ`t9hK@#i$>
z@=IMpcgE;m=R>TqF&_A?MWOn$qV0gISdIr=MM=X)nX9O$G1+h@TkK5cF0Z4b#}cJ_
zS}~mu<_e7mLjRrCZ3|lDJI5t8q<TVWR^AnU{lx?&;!k&2p5f&VedTDc3jmzmc()-!
ztW3=6RyA04{s`F+gvg@*TBLB0x3_*Y;C4%GOXG-dA%GaF?e+8^0LZ2{b%VPB=a-VL
z<EW)Me52`wz05F<T@r?y=mEHzpBZDO+Z!$7Pwmz6+r9m}1tm9$)wGf16yR$baF{vS
zCVD5|t87JxE@C!htVLmLz|CP@AqPseS6sSg9|uI0{KJWOLOdc=hDZ#aZ+VZxj2<H&
zy`me9EFtK5+41@g?@XT$F3qdRllgnzQETp9mkyKiri`zI5?c{n(W3#{E9WrjS}W%<
z3hvm0-9(u`(?KJKt+GCBxROvNI)w?-UWx9KSdy~b`uzY8_&?i!p95`6!49=LWMdZL
zqJLjwW>mEfIXUP((nS>X?4tMNa2f0OyI`rdAKi-@>h!t)H%QbA0*Uk?0tPY*aijyc
z<>pZb#Gt`S@E+}9i`N`(!zVr-v)>#nrZQ^%j%LB08FgK+52E9zGrNMH9!=@0OFh1)
zA00-z<lC(Jb{#~$c&Z8$Z%OupM1f5W$Tk=Pm<%%*ZpO@TK806P&B6xznzv{-hlPm|
zA<iXd^RM(?#$yPNc~UbgUp+e@Y0$_|-%%_}bMmLb_jR)4>=#yrRlHRjB?t+Z^LeS^
zYE<gTp^T5%5U#W1p)mL7gmh{yw^~3s_Xx7>hof1dX_f9mWb$=><jCXcH(*k6ZSf;Z
zn1vG6jg`7=+GI*@K1>($vN`=P%wI75L)}-<u;Q96P+rWC8E@Uthqcq2PpV38zP}~X
zT<Ou$S+B3zscEX0Q8=IknVA-qp9|W!eeoR_xR)cv_S~xvo+&__#YjVclHSiClr~9n
zc02>Q?9_Guy_nfRB&9=YxqD|cF1w<oxqiX6Gf!@bwy_&LLo&%7PwbG)$txY_E0vlT
z(!j#=+dhRtRy<o9gv<622`Q6tM_<8c#MH+TW6Y;YHOYN$<+k~|F>9V-;yFl^@zq{j
zEE@3X9w&7HqCkBTtH31caMIN#8%l-!2}hpOxF%;#v|(cQJ@uh>U2KVg$GV3WOt<UC
z*9l4C!51Pfb^!nB0SaJBiwnzWR9h^ZnLkQ<Zf9&OMZKcmW3eSE;sm{_s=)_9qUTZ_
zdsCZYM!b>ur%rw23c@_pAR!Ssc#%o(FaB}rOqP^sN<IupcyN69qcDSTjNF%6#)|DC
zATcESM=pUj7%mvdEr_Ay$#W11m`uX}aZ@=s%q}8-2LkW<d^R9$6f<=>YYACc6Y^-V
z?0#Ph{mo-<PV9*DaRREs`Sa-umllpf5=P_1v<$)t@)ORH$YO@Hs)zS@y6eyHk(x2g
zM8Y1-s3uu8b|uVVA6&5WaLCewV{GFaOmPIp+F>R9h7ETGD9sgLSiRHv&Ki=2CHRk;
zZ*^Y0yTmLtz|1zM5u696M9qvw{M2Kx1BB;rxKq@dIq{3+pkMF+-jA?tS_#5S$^7$6
zFNZRdlG&J0mC|ZnQ#t3s3D*zASB&IM?TMpH8DOUEqvfEut`))2!x_IR#wt_eX46&+
zaBgAw!7Y|)lh0;I*6mu^`B{B`Sz^}gF%DYI7G%xCo#c!GYnDa*6<S>SBW^#k3hp@K
z?KHNI5#Y=-Z%JAM6hXyF4;1=fil&pE%)b`rs@Kz-dH-Jc2EsF~+phb*r)N%u)vet|
zPV=5VaX0xd-Cb!|QtR5*T_;bw!L#eyyPPslh^eV%sX5Y|;8ZxJsHKK(2Xw0;A_kNV
zd!I~=!FgzKC_%{_$N{lzYfwtzRH9%hnz#|e0YSlUxxec=f4~3V`nj%$>srst^FG6U
z-|t%3LIf$}H+QT6xV1EMK!W+2+d9@xN+_w%F%E@74t4_5uxD(ER$?jY(I3rJPkYYD
z5M|q1IC395+g73X0E1SJTPTJ5IeU82q$%*5XENzSJ0ULn8P^-u+80(M;|cH|tUVYl
zJq3)QnE*>ka+}@MQFmWibSMhr!PVV1(U?D-^L82;Ihhnp>Z*EP8t1wbjAHs58|5a5
z<+T)Icqlr|b`BJWZsb&rOuVd-4Yr-DD80>lQ|__#p)PmgD}^}IWwGAI+p7et!<q<e
zZVFl_jV1~#L!8C~WZ(UOEosb3QRcTlH-$AgR_bsgV2rAYLM>S|Jl*1c%B$5*{da3`
z_liSH__I?hM`jh<HgOYdJDsIKbOFWCY2?&yl%*b|bM<r9&N*u<pRmZn*{!>biuknn
z(P1{qT^*31FuOC^a2fUiiIaVI)Z6!$C)e>CH%zsyVHs-~*73Lu9V=1OY0`vuX*W75
zkr#*<515ZAX`$tiIN<@9*^sRzJ1%XG9o3RWz}k*Kta7r^GwVbI7RO6Moa!Piux{yR
zMw%hJ6Z2*j+%Qy&EwV&V*)y>@O_x?d=(OMs8;y@q@Xo7YJ2tc=cENh%UfegP9(x>V
z|L~p*!uIm5{^PYdEkAF8<l-V8;@qYXU!z{Q98ZesMV1v#;-SlPR6whzQ*G=Q?79AU
z89>@#TZ7|aTiwQD&#JflBd2Klyf+R3wu2Ix+07r$2w>g1^VU|*B$p2OR5JzIrb#*5
z8t!UzzG=pbn$fLilVtLasT=|Mc<5O_QgzU`N2pcAwE)4~J+fi`u1~>ML>$~yYLop`
zc7)o<(_>*bU9Tqbo}Ty!s``$vV@f-)XYuQ~li3?c8uMAcq7;t*3nw9FXxd3Vrsk(z
z4TUt`DI0cMbz@iTLzKS2aVF_`UTPaKvz6t`@kSIrf-rO4<uK<oY3(^lRvcHeK)N`6
z%Smw6cbcE%zv&Tk?}O%E-kaNt(-xOvJ#yS<)T~_F_^!|wYo9I!0~B7srVluVJY)C7
zXds~?#L*Ktfb!w-;1BJP%Sut~$v2hT%8jcDuLOQXg^pgvPxW@lUsfv{&ky-c&6w{A
zqqQW~5lrlV9g@2O`zfhO`m0kXFrF0-RA>vAns0-FBo#!&^yIeNS9@N1Nm;gvJ9M-#
z<8hTF$9_2Kx5HOVIJ1^9yj}_9huYD(loa*8dzME2(DlBbVrZ_GJ$hZKc7rEIA|ys;
zjWdcA7D_Q>DaWlm-Jw7J4Ym*RUNVty{h1<`uI{8&Ji|Ggx$Yd|Cz#b+0mFCr$(APX
z7xt2p3(@}@SByZpfn8K;arqxTer4?art|EgUZ`8s<IyAlwOHoklRFoHsG*&n$WoaA
zlHh`kB>-ScsLhmWLLfyz*B80##Xrtxw-S%nla>pLxNAxiu~h}c<<AHb`TT&4XAzSK
zG`L<mY1J)O<f3DpZNk5U2fS_G4SA+eCy*aj{EDnIXf%HPys6qa%e~FCk|}(y^_DBe
zf7pw5S83lnsZFlfd@Y~9Hd~;qn<D;<cKOW+TRX70k$MqQ^lIx**d4x7G%L6>wNhdw
zW?T|0TbU^=ZDEo?3Yzohtas2{M1DkOpZ({7mTQKCis;q7GlDhG42)QLH~a1E9ZQL$
zMQ7V(Q|ZGt-J*Za2e30;>Z)9{?Qb<@n{CmWtuILaLIU}Cw)~k2ZK@vD(XZ<f>$x6S
z3ACK;0^csKcrOFgG)FiD|9uSmdgx#bbt#-V>JTn$uIy|6a83Y&$rRz%-h?VeueqyL
z^`rDhZZ$@LRDeqDQ5ZbHV@SOFK{;fL*`A&53oBez`40D^+0<7HfW#xN5-j35jU=F7
z-VV%p8&^<ithDCNr}UB*;N70y0lEnRP3SD^!iq8PuUXvmQdal*m>Mr{9K@fnqWpM^
zQMw%cH8P!mF;g!7-fsPN{E<h%f+cl{P(F^HU25Q}ys9r*pO^+TAs_Mxbb4UVI1VZU
zvZ1x4cyW-jtuDNdPM6so_Gcjjn5!i}#n{m3Ijz*j1OpTT9J3A8SX*BAHYL}`Zz!kk
z(dflxZvvsLbk}A*F~njPWB6cs5j30?l+OdV)G#$YG#7TRW-=$gDl4-kV7M-=9c6^|
zw^MKI^Es;K!jF5ZHs=jR<N#TO#HXd>5<h=Lqz2@LQjs&>4=$4Jnv=2uy!Z+EhbrQS
z?~&IKq=sa*6v80k2UhCQF)#l1c~d*Ypdc3Azvc<_B`Mq(J%-iwjI3iGdEl>W=eW9=
z{qV7=16BX^c!8Yph^cuk6g}x@`=_`vm$KtZu6%lWuL;Z@4Gp@i2MT^Rr}Bz;f_ev9
zihF`8J>mo<O`1`cVnR;H0)vb(QHu+fvrp0|OYKgE)_KW`gep|BTJRrPiS3O*ctW|b
zw5cuP&xzB4UUn^2BHmK-nB;hiXzu~W$$)IHHjL`V8&}_(2#<F|+!t5<9y0DnHpY@t
ziz)R;cA>lsV1BgCCt!?GO)mh4*>6eQT@+957y1mADFS^~Mq=>bIYiL9X0I6hj;HSW
z>%pW$`fMh6HV(Gr`fT<5&%_pR=e85Yc?pCL1nl7qCOwA%J<6<m?PB1tH)x0cq3xc7
zSzt-p*e!G#4ym58ETd)nvXV3Ap;B-87<VE(GNrCME2*)CH(X=66hecJNHx%o(x{OO
zW356kO}jfr1m!m-DSF2&X32}H+S7KO9g$q*rfWrjstBcGF4`O~doYP*EwQ1j34eIj
zLJQ>A<-{lvs@oGo=Bg@~`x$4O0tM3U46i2UYz0s;9G%sIuJS?+s&5tS*um61qhJ5^
zMvZRZkPqF2eRWyLqt-B|bM$vc6i8AvBFg@8kVok0i1#-E9r{zIW&*@6Og5Ai^CL07
zD#3O4ZA-;V_Ktr@-o)P3^&ISw;N0dmM?2`1f}jLLdHHf)OwIBr1oPhq9x22pw&qt5
z;$(=CXMG_x+3zs(duPt~2K4>a3eC$gc6^%&`04%c#-fWNGiLRAX79xyyt87zqK;08
zv!d#M5wq9=cmmpobUvVr;O`~&GrO36LQ*)8@Qa97V>F|K)$JYGlr88tp86UV<hJ(u
zP^`Q)Hiq9yBafPJbbN0<7Wm>pwaa&04^Gf%eGNjeS&~0e9aTFR(MaR3XRraZ=-EUp
z{`xgiytlkUsJiSER*R->8RW%3${_Xu!pny!OPl?DeR4rjP`QW2tit#~Y8**~dTxD8
z=5Wr1a0Mn~S8Tq6f8L#3qg|QQ4W)b6tRN2X6TAr_b0Fnf0lMhTbieEw^H}{v`JyJQ
zY;vH8tHhJmYg{xJBr`!yak6RHVEEy(w(Jby=hZfIPUO%7A73y~RU%SUtWclcZ%JXs
zkgv)riOVc1Ii#)M*tyjSJ4z4o+`4EcUU@0{eNiX69iZ^~MN@<@#Nbe6x*7N71b5TF
z0I}$ZqV`aEyqL$IyNXzd!l@ckMMpEE{V%&0X2h;*^ZIurdMAG(PTQMe&#Qp<)VNLb
zw!6Lk%wjV+-(-|QqNo_2uG}H7Hs1|1<=lpPU-p&WX|w0haI*?ey>;A-{d6Ewo^)L&
z=)L^Pu+$fvZ-_~5yA8tlKn}964sAphCcORlJKTMruQmXe!A*<&kl>BwC3bY%n%QxZ
zp8wL;pO}MrH(&N1154)b#oAw-4oW1GSNxFba~uDV1gELnKIh1~HfP-P1V^y(k&EK!
z!|9_9FFJ;d_iNjOHe75j*p(Zs51F^QYZiU#o_VCcjWU9?T4fCSRJ7}wDvcEF!;C$4
zr5ptDOb$_X*~NS7?O8}+t=lNqhl7UpSSZ)S?kKjn*s06txT=ts5H~gPO%;VWy2_Vb
zEC%`Xt?b_9RikgHY~!k&eHll|B^R(6`JibKHWDBy*PgyO#u+#z`z|G|o#b|`!AZqH
z+TI9FnHe@t{JomgZe{xL<v=FZr1I{hl;jdS`UeO2wm|R3Hv-H!y8}7XI#A7HW{0C#
z=as{9n6Hsd27{udZh&`FH9ek*+lA2V%%)48@_M0419c<YHh<?kW~7h|%z)D$jQfSr
zyU}GE+tDX*NH!X5b#66;v_4a7{1HL8qH_I>S+RZQyAsrs{Xld|6?vQO+P_|Z-Gswf
z9wOv^WDRO-5zSS}+_SGENCxx+<q-Ph!dsJ>)Fu9Q$xn^7B;NU+g9>}<qE9irP*z)E
zjQ*k~!bVOqFYohvHt}5idJ%WQrYdXJAx>cXN2~yW+Evsl_`8c2cGMv8)|}|0=@6SL
z&)DPdpW2s#bPaM9bwYW^&oe+X__MvY`WJG$v$}Koxpdz&YabwR;I6%QlIx3;%w3Q4
zjA<nDHGg^Bg4(cJn&2U)q7x$FH~q>B_m@{9o1i+ypZYe|rCH#-^I&9?*p#~DFmz$s
zbfRRpB$n(|>e17bXv)T9y9<CCU3*lB1$YVw!=*!EfgNj?uf>+HTlzyH86IqPR&bd8
zes*zyeD%o@uFk_#x&Ws`$OkE@i)OEadUJfONo*&o{>NLE@S9rem@};a%0|=YuBO3q
z=Bdrgc~r8dq<Gh_5L8zC<pSII*I&~uj^D{=q-7*$B3TZmTFdnpw^~~J03BtMvq98%
zHGPDd+_n@qRLE;GKkedTIkB|32Ib}u`&(HV{D~`89n?wl$O_z<Zs+FWngu$OlN4Gg
z-)CC6M?Uq-tSwjJ3qH@f=3Zn8zvJ+1Zo!CFflHIg(9jOIa98_E5&oQ2rjU2nZ%70Q
zS85rQ0R<y|`(>Ekj}y1e_lSloH|MxflC^O(%D(n%f;!-+P{_gcP_9%0=zv33xRfLt
zk<)k+d8BmG&HQAgqI%8!u!R;TjC=es#z)U)B`Zu_=RQ-ZY^Q9k40AmfhJL!Gi{UOe
z-jR>N!(^P(@TeLB0+#cZ1{dCKAZOSjv-r4Weko~EqOI&5S#9ClK>_{MJjLXSTiLGP
zM@r>g{Q$CSUunb&cXtCAG_>n}WX2fKPKhX}v9et+)4fPIP)iUg=W6<mt|mjBxbNAN
zB$SVL%u$b3rLQ^Uhtb0v_SJT2!i$Zp-qUpKoT8Z$?jQA;>D&DyKA1%CQ5t?KOSX1A
zqW)r#UDrOf79!%88p)u_aO6nY=hfBwlt-uy#O_=xI!`pRGnbNmVY;fsz>S|ADuEkG
zuF8Jq83kbHw0-LWNu$kh&1uBJ4ej!`rw+gncl?F8RjWbl&<}wa4kd>U&CUaCSW^-u
zhc`YhJJwDMTn<XgKLVH^t}>`L{;&d&$=Xr8sYTrPvH`$6GLAcc)ML6Wx{fq8AWSJQ
ziD2a!7U0MBeLSTEesrSeP{n2pI}d;1OM$)R=J)iwRV4>fO+QzQTj@~@&^iUqI{@$A
z?#;!{5h+L5gc40lLg2{EBj@+V)dSM3Z>$Y8cKi3|i<yRl;w;LQe|EyQnUhy~V{L@M
zi@~s{5Aylc8pjVe%*pds;Fc8N*#P^f(O7L^9C`F{FHD=>^-^0Xjfs|TXq<^7ew*6&
zfUyWq`j%^=FVM2wNf|lA%(MU(%Dsh@dC3vxH?9D7{~xXug7lTi#%d5Bt}{Zz|326A
cfB3bs`Ht!Hi}AKd&4wZLtoNC^Q&(>O5AwZn#sB~S

literal 27286
zcmeFZcUY6z);An=Y~vt09z{T49D@vkpd!6FqGCi~q=gnhY0?Fx6JT_N8Kn%NOH*l*
zkc1*cAR#Ct7^;FH)C8nNLJ0<vKthuDPB`az=DEJ|mh1ig`QCG1mlAh&S$plZ*6+90
zzVVM=tjwjpmHQS10!cxxU$Fs!c1MFiyYB4U1GJ3iK3@fX?73rMeg*gmJey{%iNKHj
z_pUpIgFp%?;y*hw=DvD^KtF&WSAMpOE?Sz5DGG$bn1TTksp!!6yM8lz|HF>olJvem
zbnb_rZX@0tc;I#q^z-iDP(M9B_4vnU-#vJoB>mVV)$Jd@U=9`S-|>%qLyyk={@{ln
zF6Zx8>4*`IL>T2{VHnd(D-1>g(H$!=KylpSmffLI_69V!#>gEKx&Hmv|2G;?#}R8d
z=vsnL=G9Q;HfvD(ph4Kj-5^l=!AP%&Pv7#PV_ly&Om=`Q7Jt7gBN3s!b6>RNOmef6
zBrP70{r_qxtl0r-pKo4!aR3DJ@IA7+6V&4s65+sBAfu7;_EpxLL=5i=`&R~m+=}Gh
zR7?ymrZl@na7m5*$hMX-Em=`1N*9WKno1O%Yb(iFs_w@ml(%?BTxN3^kH~8%&0alv
zB-soZg0-p^R`3cLA~ZGhINKG~;u6tAiY!j1^G%U!NQ%8C)&zc>G7>nxtUviXN@r_=
z*21e~_>lh~UnR?<!ckB=rSZ=#I^!h_l$_h5ZtzA+$i(VXyiY_}gkQ%1tyQi~lkO1m
zvh7t;EN;-JO$Wyy90N8#a&?7r$Zm<&9?92so2g;I7mss~kYU4LwYOl6A&-`|vu0Fo
z@_JjSd8iOWuU-^11Xj^+icWVjFSd7w!fLx;4~<*MUw)5nnk*e6x>mH2U0bI!_6G<|
zwwyYYe$we#KyR^^0`~2seD?J%61hw5`21>bV;yBn$oNVQ4X9ZlYjtjn%L=%?8*&``
z43{})&4N(sBE@mhhp2=5ye*@5LR(sjQNVtM^qP{W<1@s{#@!HlpPncL<tguzgPDuP
z<)=omlVytn^yx}2;{uuVmkDtX2RdX><2BQAo?|Nm3$YJ7c5&=Xah(PSCpqW~oatCW
z>Y_=a6n({SUl`OtBm@1DsJDYDWSo+s4Uq%EQ^gT|UDz;mUY{P*5><pditX!5zyekT
zihM2~75!_6|MQN+QVr_TT)7Z*y4zep!O?3aG@g&25Zci-Z2G!ij@ftv9w+A`qqq_t
z+GCH=s$3Qp1z((ka|{;qsXB&JgvHcFx8Xy`f$%k1`bvmn*wim6@~bOYjliuR5>UIS
z=;)wePTW~w#aatvRL;ZS=ojPvA$Xa*>KS5oDQb;z8}{`S2Un^kH1ka*W-dce@n;*}
zzE2C3-`vMeaj0hg8s0BxW%MSG_M6-JUhMUNRWp52GtlN?$0mMwOJ))`@x(l(ZgdCp
zBN^)B%EzFJ_^)K?gwSiET|1a6@;(=7FK%C3`IRC#OtzQH9gUtzt>Z#P;W;gx-$g6o
zx*K)AUk!d25Z*uw09+>t#yADjzqgT*{Oq=N71R_4Ure2;y4Y(_bhHSMKdC-CeyGS5
z6}wU-<f9e`s(l;JvG62z`dvpF`xa`QM!Wa0I?j@(bPEnQ`&|nq^3(D+^t&*8gN{e$
z_+C;RU260%)uG26ABs${3J|=R{-f`pwRE7VI}G>m*YWdYDfxt9;>i47yggC7tSKho
zfYRs^c6mjszd0_VYPb#mKEO9sB((2W(3%od*kc;0Nl_@b!op2Az^6e=HVv1v517k|
zZfkYY+zHP{-*jfp7ja#}F}j+m@rh<0Q7=V?^dbRy*+Gw<5Y8(#2A0q&prdccK9Qx@
z%+2sTNBRf+(58AtIPe=^`3I9R>DUC%923viKQ}BEMVMhj3O^>gqclV69en$%1A2c*
zaBJtUp+3C^#83mo5NwNar@?1S5Zw{j)$uh%tCLDwJv{4_9<;B*!GNjOR}!SBnTqd8
z4KLB77vcK#=ugA@W2REWh2Gah(19<B?Nq6FOV6=wIpRe{ixZ*!5yz&D(XRAeKI@6o
zsX}Ynx=K$USI@+VaeaE4?5as*jvPgPHJBU_t_2)nlI5%141*mY^}$8orNnFO&E(Y?
zYh>x&ji0!U&f`qIu8VOxvzt<jb^T$X>?*Bv1z2%Q@}d$$$#+Ra(Wh@wQw61fOeD1>
z!^%+$3w&6=qjv9}t<_XdoYUMyU(<W~{Zr||`LeBu3>+_Qv}p|6KO)LM%29yAnW;je
zsg=Gx>;ip+k{VqcqoEX9gN_dh9tNzxmbA537BsRV^vIc^gyf&!_>{~xHMM~^Pj_CT
zU8Lg!`t_S~e+Y7jcI=S)V|eC8a-%Kuf~F(hqf^*3U(_(jOk68@;;Yl^P=bT`b~fXR
zv{rmv*27y4R}JWM29rm#$4P2FOQM$K)sV5M-Y;>tQP>QZj_@rhsU9T$*>tjh>D_3w
z5^qhfr;&26_<XADYVaIj^i;9NPEYLyHMQn7HG%GqeFS1S?&5EaDm5Q`hYg-<e<Oq1
z94Yc#%Z+j*;jtlZ9&C~<pTak!;_07%PmTzr2Q~DzPETyhveqWe9DT5erQ{(^i$a&;
z4#sS~loj~&?KGMConbC_dGi30hHk^2e1^Z)5vDq1`Xr8?8ZmK(GM3)NYHW65HiFtu
zi;-!3vV!c?C)`-|ZzJ5UoOWLMhN!saV~gQByFU#Nqz1NQdq;?{gf7E`Un$h;frZGm
zR9U{#<QvKxQlFb?^sxGrT*+FVuKM)3;S0xIZo9pAU3*AD*AE7Sx3*Dsf>5hZ&VXva
zGa0(~u-wINAjol7l<~^QYTZ}A(!wFphm1U|7qx4Fj;6IDt|qPv8xFJyeH_KQ2KMLP
z>TO>$FpkQ=)QX(RX{VRtdiA(5ebS$m+~AZ>3zz&dsD47HLFX8QGVg;27Aw5jegLGN
zr3;k~%7;hxCI9gG4S7g@m{mkyNih;`6t&^p&CcSA!<Wng^b!pVxUTV09jW-Vz_rWw
zFo9I=bX(9sK_(xi(yPaLn3b65-}%+4Au(V>l&vzLFKmzsfGKG&#7+6Gyw|4(=Ge}k
zFhm-JD|nt|H0sYw%<daJsQtni5SS_`y1hHM{$QMz3J6QM*Qrmt_kQL{Az^q0r!6`)
z-DSru3|&I_U}suj@QTsr>otX*=i9Is`E;%`dDO+RCl-IVQ>YY@|E_f~wLimwnXfh9
zC^t-jkvx$q+FQMDV@G`h1`K=y`SNayYRzAZ)`E%si|V{a{m%ao!-_@np}q2}nDV85
z_ok{}pL3v3c$~x3Nlc?G`wxeI{c|{Rru+!f-4GuZiB<u=r=#2A-`^q+q(b|jy4nfe
zeap9gDGck>&j=A-kP}ZZrr#B;MIRXvGE)Un{&U*F89|O54?@#SKsZ5SP2Wqb=@g0?
zxU74+<xQ%9>2jNPfS$T$CZ%-*JNYI<yVSwB;p9~DoKwKdP{Y{UYI}#wEz{AFGcS=x
z<V_3`Z?S8?-Wa!cvw`W%jHpUA=qJ|m5)C$5w=$*PFs1F4g7;bD#zOi>5<6u1?)BZ#
z?)l+M!&)5o3SO3dr^3*t7Dwshq0379X1ESCM*_NKWe=vo9>C!EZ49pS)$Uy%hZ?uG
zSVR;j7u?-D44$-w5qOypT252APpas5eR@q)+}IiSo*1ouJ`nOI;Qef?!qEPYK;ZmT
z6kr_PAH($9mxvjBLkB<=wAC;5X6(L*O}!gj2H+!)A@wOrq)&0~X##{S^bYBedNXW8
zD@EVNm&rd^adM|kqGnFRGyEJeQ=TZ-D7RHYCUXdf{kjNS<W%ZY#vTJ^Oa#mr1Zw^C
z>xb!kO&Qv8x#Ne)0oPu4w#q%IjA@EH-duGuUj9_g_p1kWzCW>2U1Ca)MFl<C7mZ2?
zPGk2y{Wb1o6*?5ZuuP$!kT;x~bP;qJEb@DNh_v1V(YViz&7+c|s=KlaR6DdBurJ#O
zz9e8Jw}%X;y%_$igmTfDIOJEbj9qaN^uIVTI>*sf$JPE`aqM8%8s!811tTrs1hcNM
z?eOOtZg$4O3Ib`0cVFA+=NtX#mC3C+6(6T$%Dlg1iNk<37>=UkhVfezdmhXN?%pBw
z)M3$Z*_LdK8i%@1T!N2(^d@IOb<sk<U36mE^vrm}u$y;~1~#F(C4sHGsK?YM_vuu;
zAj4n9cASAHlr_?RTm8&floKY^KdrKt4qWVbN70_JTmEd%Gsd;Jbj0;t3!+ozoh8t8
zZ&u8{9p9ajGl_)HkT?-i&nXe|!w-y}PoH{IilNeK?cTaWMZduB6jKZmFL2oM55`?C
z_Vx-G$r;xZUz~J|3GXmR)5zx<f>mOpIw%Qg$=ce)M&3N&)B~IEq;B`~<sOvjUNq7y
zb-q$(I6~B^(d64p{rnj%-zKda@H%w(s+7{QXfZisHSz9wZz0Y-U?1PdiD~)4#C8%h
z9guJ-qD#!QSj=kS3*OAZJx`wGx3k8Qxi6U2ZLQOB_wTSZ$!bWt_DWip&SGP84xrWl
zm#5vT(N~<X)T%8hg{l)fFd1}3kjGxbJK{#*sXf2bP5d)SSs6f}e?J~$)T=V>iH7yl
z{JN?!;*_&QCHd2@7;R)F2j)wT_HQkFo1P#k4yLw~FHf#ZbmsAE@GpcHYRSz3qZ&2A
z4N0+*1n{Ne81Lbv8O}7=v0KuRbT$l&IsT~)6&ue+k#}do^Bkm+m|JjLb}b_fraud}
z&kd9;H}ZX#?r*rgJIDB#4|EONE@tBUx<v=g#m6U^r*u({l0FA{(+Br7SQia3>6JWK
z+@l#&(}=D5<f-H0Z%5w6e@a{<;9KbB@L~qdcij-p+b9?O#i&a;L9;D(fp^V*<w6rL
zxD|xM&DiaX-w$^hJa2JhPx+VvIqOoqxm||;hC+;r9(Fn_3TQYdBEKoX#nIQtwa82}
zEna+&U8zi}<BY%CV7D&ZuxMG|#nBX~mkgYh6Gio24R)_imt)KB1UWuDB?D{MxcAnM
z&(argtQ&p%?nG1U_y^@NcLj>JgtpBcZ0AXoL2ImNpXUxxEj}G<AXp!2<r0{LFU|*h
z8cNtT940OC{!IL5DUb*38+;-2A-N!nv!5*Evu+rPgnvvmk+E*XCgew;yHb$8sTYSM
z<aSam%;ls3la6Gg+zI>%y2%rbnOY;d{=mYZg&-E70?EX4A#J)=jUk3rG<4-yNd8CP
z*uL3;pw~Z&wdY}eXf?P^#<H<=a<=Slie9A}2EzX=>uIUUUG49v5fgooW7tk=AD2r`
zQCVKJW1?4ViXC8Oy#D0Ih!DMn1}tw)))SV96g;gvAhD3#C)&}vv<fNRV{wbKU!hQu
zua!v2pJPCvX_JMh4oxY^oIX3L=+K`d3K?Xw{rq~|FYLGaT{KttK)HYudSjQkOKwh5
z)MAl)u^Zeyg2-@@FA)I+ftnI1JS^wDdXKmVXiIkobC`FBJwXzeut4`5C%h!H|E&)3
ze<@7-y8+PD|CoYsI8W3Ol<^adZ^YUiN%#iuviONXC0pBZQJAL7r38SyXV|%8Ox$74
zgcgIifNn|0+&7s|G(2QBNeorBr9?Y+Dun-q5kYoJS=WDI;9D<%upg4=3T>3dlh$7B
zotl)B4w$=#W8hG6H^+$MIUSQ`#<jehOoo^SfO7MbqSlHXjl&sVQ;_BkrfzVLdgdmX
zjZ!KxN`OUlB+tol9DMB(wX{1mFRF9JLqJP+0E>+pIA}7!tO@>fXhUcf;lr+E%rfR|
z;VT~w3EfOaO-5>sI$SC{3FhJf?U>V3lkwalf72IZy6g=^asl4nU3Zh4DWz*~_{rNA
zF0CLbaE&~g@CsUk&)D%F98D*#{n;fl@~v4|BZm55zfQiG?hN+a`gv+ND=|aqwmJy&
z#Sq1GyMOr9rX9PSu?DEo<4P2|E#TwT)Y&ZZ5tQcHmP4SCWwE29s>a+Mr#IfE7?p4j
z4Bn>&1igO2j=LX0%<RH{d_S|}7b0}h0~q&Zl6*i0_D%cmC6h-*B9Bo5n%8huW(TOX
z7*G<-M#0dJS<O)jiy!zlLwdQvhSqbC_)0tOJ{u>c8*k{!^>g&xfSpR+-F{TTh5c-=
z@yjeL1HX@rfg{cIlJQoWU<EmI40fRXeL6b!i<#2c*Dg)w-Z3EqD@1bJxP&>l9H?pc
z4(5EEJG(E7Q!S<B{S>IdDPlkQR<y||Cin$#J~H%ArA3q_Cq-36B=0!>rg-Ik6(%$-
zK)oeZDvlXPi~C_}_ekbSJl!ygMN-iex6%!1F+eM*X@{=Uczj5{Kh68mOq9{=SL6BA
z2wXMC^uI)^JRnlpPu^#IO+(Tx$B3qzTv;@}ZN)EZO}cjYsO0P=(JDjA;)I<7t(LR2
z7sZ7#(N_NXY5Xj58>CcPjAnQ0jazs)#+j^86I%g0*G^hIGSFohFoHa26k6kp$1|a}
zZI>o$1qyHGy-99;qy#e#?a$|iypE9<_pN<W@TOIpdTX*gw&z>^Kwy5c3;PA5YCg3A
zds~4@Np)3{^!g33ZUZK&t-_$0hh#L6s~o;?vl;KmyHMi}Ds}+vY2!UfE@%_?1?{Bn
z-strzq?h%%zmQ;P`}dMy2I{#1q;$YjTMi^w;>Y6O4PrI?FY2R^se;;Try_Pf;PLQ1
z3;>{tL!u45DfU*x6C<X$wSC_=X)cRGvZ;OPOGSHFP~Duk71VRHz4bU0RpJJ(kBx}n
z`!jz$upOf^lA;18D|xh(CBrISE8_(t4;c^?aZ5a=Jq#%Lq1RA+hblX1tcgj)(it+=
zPN|yeIEglhMIG1<nO)+Lna8`yjw3f9L#h*6PHq@a<&xbU^6Um)CJ=e;$0&NsE-0no
zBGY|E+MC?p4tMSxrnitikux%|_xm(ZB`^U{Yu^F#puE1tK0>a0qT%%oFt&!;{N-{|
zhsqSJMj$o)7uQZjcjC9@JXC;Hx{|$dY(1eBAZXnT3l~><8Iqr7G%s~cQQC3R44HDa
z<@dv|h8F&dCxDVD(O&GbCmMIIbU~#Z?;mcTKC&9DRO**s&0k^^%3q%3TPv70#C|Ln
z?3GINi|aZ@=DcKxF7~HQwc&XE3~|V*88~l`Yn@zfnL8WO{KZ*ki6&g8#V%O5J7;0{
zf<R60&)d_B!mZpzY<Hsg>$e9qmvXT2-kWf_$nSPAISs_vaI-_aGAS)zC1|k;nVzCD
zUUC+>aD=RsadEg$ekZl(nw+#_l{{^ub8@pk%I&_aJSP{2pSvV>9+wp#-PTbXkqLYv
zv`b-M^sfqUEr*+M0}cb#81gw3_v%`!gmbk1krbuBgrzzIoP*4GPBxcuJ}f@O+Iu^x
zb8F3vW^$tpY@ejX5ol>l{AX(M<ewRZqm8*nOA>5q$$vnsH{gj>6bH;1aUv%E*J+E3
zk`L;tJ2b@~+7aTC0r330;eT2m)d1lJX~7x|&||i6Ja6evk0fk1$!kU9@{Gx%m%zo)
zO*WPB7Q%naz&uftMAMOAG2Z4g$XUw;;k;$E5YMBL*-$-UBN>IH)A<r23I1u~TbgsR
z)+klGiWXwWHS(ghqC|1;+nCq{pH~d=c_mdS17I=Kb7rd})r5jfh-G|b+N;><qJte2
z+>POkjUz}~^BRfqI9?XBk=ANXitl=}$d0dxOo6&T9plb1RFI~{V^O8IklTbe7Xb0e
zyGX&DEPTa?oUl|>mym#jW2K;y7_qc(+qPa-b4vV0-@@BMkpiK<C;T2#a5lyElR+^|
zaD4`#AMKRb&-*;zOt<(#i+(2dn!p5~XWjPzX->$TJXE7>tuV2{3Y3J76k*~u3%uEX
zFl3OL>Me(o*g%|WORNqy@hf$PhdnasvTD>U&>Hr(UA8^gfMIXcbxObKKOSQ=^1DjZ
zJ10)hN*`HCqviLY*+o>T3&3((+}U`>6ERuz_>4mVkpKH(ff<|rL}RB1L9Fveh3}#V
zs)fX(Jp6NBx|kEHX>~p=k=m-eg>)%2zqn-{%-rW`T-##7?myi5pd;cwxkE{~YNhY3
zCi1y}ff5+@uzPQIYj4JGgqTB%6L<^88*ilD?w?JWBUvYe@j1)mS)$-wpz)rM_8AH5
zWri!S0XEZ<Ojz>PTr_6JSOcNN(MD(<x+aKWe}VA*$UUtrbCVL<n<Q=}*~K@N-DtZU
z-gV}ll!-mzetBKL|GsEVB|js*KwKLeZ3yIQGO*5M!g5fE;i1*~2Pii-a&r1$l;eHb
zl(}kaxIZ9(%Y9i8NX>x1)X>^(kE#E1L1ziS)(>>wsje($H*}~{$t$dbz%t@X;-;Go
z+-oqwxx<-|GG;3n{xoB%P<KsiS|0n;j;^-V-u9_%-{|H*Y1-_Kn&i2oiuT1uqfw9!
z%OMl$J+p>9hbqhBa5iJNl!ei!LwiEzzLOL;Jmlrn{v=qlE0d>KT_~)a-$e0e1v1y#
z*yMR^Y{V^gNwU0gv8}+_Y$UEUxt7}_r8~4az=%_!yV*>hwm2bPza68?k;7A7mYg4T
zyJcK`a^vW=;nIt}cz8_2;3uKHbyLoXxc4&|b|d?v5B}?2fT*P@goH%3Yv>GrN0oQT
zz_wj%WR^%R4hVfa!oI0WzmN9jL`j|8u-2J)9f&p=0itdIk{fgxCRy@(xqv;)6r?*c
zq4BoVXqN-+ynduVFwPq5W^Y_~a$^$R5KA1qcdD@p>T5^)WwN~G=ZJ~fjV`&%lU%5b
zU8&pk3duZ8I-KvN@*ENkM=@^3&v?xY|E!s)!ax~&qMIO;P09>#JjO>!-_#LzPKuBZ
z_#-(dzW#P4!;kDleo~oUY$I^!U`b&y!O-Q&zqSh^kwtyqMN7ZN^XLq|T(Ab`p;V9b
ziF;OTu2j#Vt(y^jXJ76Y&*rfZbhX`Zd5yd#KU^qyW0qe0sn&$qg<O*xW=%HaypzNx
z^(^$k=nTeG>ZIw@A*K%5)Q(xx<}-wnK!D?Am!qq0#M_Z8GIGNc#&L|1MU<g^7Z6iQ
zbR(83$$ZohuJWct^0~T#9n4U&02yU38mw(w`IzMisIG#?U^I~fP;hc9YA=+6rk-DD
zjT)3BE=j7Md+~9|Lg+wHKAQhI+3EG(BKOJW7Jv3@MwwRU=DmoF>MpKgvz27}im2J^
zGer~UT(~lFK66&BuX$*OKADL1?3D%z5Rr~#$!3-=dG5xGM(^!v^b7HKbe_hdEOgGz
z3p>t=-!K7rsK~2L8GE>Q1Wx)!y_0<{@9igvtx2+--$sj?V=qSp%NL>zdwR@INU+hv
zTvlz0(06@CJQ!4a&0M`j@(HBlQzMIyLz&+kE3GaecCHD1BN`$6D3pac5+Dx1LS4W@
zf=b3h7DuyY20w(Xx;YktaWl0smW(%~I$B(e2MRIR;ZSNo<rw#PwfF)bxO%-^lf>oN
zE=vQ05{vy?Z%K%KyFu#F)r4g`{u7}1+GD${Wsa0oH9Vllf$hW~;hP5i<EG>`#`W!5
z<kGidCFqk)d=%&kK!Ic8@9pAj=AHr_-e<>8J4Kcpa;+LLe_JF{Fa*s15ePVcpC3MI
z$N!ZKqulFPK&Dt3Cw%<-WThBIQ}%{EImE6C^MQ*(cG)LtH8NGnUH>tIUf5rCitfd>
z#o94j4Oz>c<Z)CF3X8==ypIW~Ry4e$AW=x`TSu*Elty(MI+l8pZ;f4<s159RKE0yk
zfGa4H90i~Q*;R*Sl%i{~lW`gEGk`UE`jJ_TpUKc`7|GEC+6ez68Avu2wMVU9T0LD7
zxvHgXr!h4{KD+TlZTY`Q?9Su9r{+h=vhByj<#6EnPo^_gqaAIH4R(Y_L@XKf$5H3A
zB{*2Sma4EyeI6Sb@ldKnbGuaQSav?|?#2QmWGwpizhu;Y$h}6+s!|mBvIEG4r~xS7
zyafnIz;gsR6X{ZaVzoi*nC{?+q^-uIMp>@Ez~A(zX$^5hdnI5tgcUnJ{8XC6f!j}b
zp8dG0L}sfj15`2`H#T&ytfkPd%C59pqlW4ZYipMnWKxh1U^h8r(bHGffv@Z27NaPD
zZ!|jSaonW>6o~gN)FiuXLf7TqjecXtU&`#9P<68vECZ=sH5uisKY?y>W+NEQQVsE9
zT_(YTf%yO|wH!<QMZt9Nwc#6_bx=cm2>Xa_hNfS%iIR)pHWcqSDGilAj=Lfj-9r`t
zh~Yy<LZ^s62AWJs)8kl02Achp(C)5VL*SbMwS~R*D!S?qL)#mWo=wP0l0k8D0aDbw
zo1F%?SsMYUC_5Q@ksUlVZDuPYli_q42;ix7QO$}QeC|&Z_u%MYlV4!C=@?;C^11CY
zYX#u8OqfFBTcIs7{8~$=m9~Pv$PRiiO8WJy*!ygvN(QrdyS5hDShv$nXC>EmnY?qH
zSn8j+wo%c0zl(7@t)aZ@*9t=`x!dZU5m$hk$Q~d|0fz)`#DXFppF+`UFt{m$PF4na
z$YEiPK;{PieAZ=}i0rx;|28PM(2nS+fKxsigt3rsBhocn4jp4ul7W(s1#U^h@AY|(
zJiyEYpL-&!F7ka=d*&ySl{Ig7iDOFl^_it>ltTZ+u$;Cbk=ea@K%Dg{Myt8vTI{Ke
zuIW~%4s}-XXE!nvS_->=5_D>_l94D*e<mBI;k=%3o>6rRXE?h-S%`_9E}D_{+t(QN
zn2;ti1ozCDBl(&wzh^FIn;N`vo~Vr7c=6=;$I0(k>&<{8>UVZXBEy>>2CTX@-JtcT
zj2~8TWk#!QIkG<|yAMiJ9?A{NCQ$Zyp2w6StxN^$2}@lGfgc-B<f<4=?}x>IeK%+O
zZF_&19k~$;Ush!OnWEm3+rdH+c_>)yLPeajVCZLad%-7bft^b6E4-30X0*p`c$_BW
zILAO5{LJkq*_fzh2V4uelG5m;fnR;=w((YGnBlHzNV{bpMdVK!F4i<iC=!2?x$;gk
zA#}6AhpUfdq-ynl*_$x6SNz>FjYxDC&bez~Z%3Y+?)qHp4yTk8aMLq^4L3y@ALu#_
zFU{hcV&|@V78`GJS(%-lUMeNgcW?kv0{GHxea6eOgFxNFupa^lxy~Gl<E|_ZTF?dE
z;a7p|?5rXCldW#ui@peI3>}RU$@&)6eWJ|};=1yWv|EKel%MdZPOQ9*Gn~t|&E;w1
z6Gg(Sd7wh8_SVK=YL4%MkZ;E?XAFh+mkI-hi0StK5Sw~!kq!{68(KmlT9XU?6<*)^
z>knHv#zn!{FY(!!RH97`|4diNFM^?>nW`F3b%}GN05^rkjnkcnqnyoX<93?)ub8(4
z@7_16m$mAeP7%J^@goXdC4r~54|og2tt>Vqg7v9w-~=mr%mU?m@wc}FHNyI0{U_Yp
z=!9LFyG)4PUk$ArDY*RYa?uPB^;i7ze~tU07jDTmBX=R;==iF)7N{<$b%-Nox`ttS
ziri4V_2zd^LUZhDx!~8sT@u{M{ouHRiI&?rhCG05jhHL^13ilcs{Y70oYpStc|zbn
z6VUN4=e&cCeO&8CrH^B8Cy|Mz{<O&Qe-fBSbvvo!){UBavm^M32%-^Ln4IY^iQ^+j
z0k6jDlG~ymdY&-6{7-=B1eTPk9E+obQqKeUm}a*faWUr{+WE=Voa&Slt?~UazBd~O
zl>UyT6V)6TFvP5K3@i8dc4gb;DhCxS;}RfX_c9VK+5ZHBnhszc6_k7FD{BnZdD80|
z?G%a+W#*4@v&i)S05t%1(Xp<3DIW>9*(;1A<gd1HVN1*F*jsx;Iyqc2Gu2VT0@^X>
zeA?suBKV8~TRtZAdZ}ULxe+vvz_22FpBk2I7Jyy=)?hZq^}yZgZ;Tg5dGXaJM+gx1
zDoI~#1fZIs%)*N+L<dvT(exn4JTCCUNhG>aviWll`o4{>g1N%u4`8-I3YAI#Zji-~
z%awoC=Q^EVOv|H;Po=I6AMTWVCs8oXPC@&vp673WNt#+8D9cGc<bDExSZQSJ?PpI^
zAygWJxiHEtB=0`8&8}(##6-cXSfFHU+!%WWu$e5R^?w{i?Mr1jjcP@wViy>iSJio-
zP_o0wM^`a#T8Xji<!}MR<Uq|fb6HU5oep3Y`_rOs+e;Q!e|~i@KJR8D(ev*O=9Z1t
zj*gNVD#+sQN5JYT$7IxNBxEj0`PKU*ZY<dXK-<v=k^~s!c*8vXBJgTP9OXlZHQSzy
zgW^iZh}c-p-$~2Bm&c0>m@aR!0?In$Uv^acURln>*0|XKZ4mNn#I{Hkbv~;lqqSRa
zotID=NE7#Er3K!$y7~bt*?Ub+a>_~C&a?llik{f>|5!nhTRa_rLvnx%GWC#=*{>4S
z<aPtom^zrJ0gZ(UKS)ka{pi1{G1b88RNU?4Wt>As!I-Fpp^21+0<YZJ0rh$~a==za
z@VZ{<CC6%Pz{TsNSgdxA7T^qz8DnH6Yeixkko$f-$`d+7#IheGKjWICXlN5Xo3n<b
zaKqQ@kG5g)^#gzr=vB5nYq`PhPo9dbxW`S(u%|f@Dh%3UT_WE8r`r0a2<{P#a>1Vr
zgmzK*XgSkG{=xKKy8*@OlI7V~9ePm)Nv4FBtv_c<^-}A^yGv5m1*Dm@UB;nj@KIKc
zOmhEs(IUdb9`zIHBFEdblEa<b!Q>Obg^P^IR9yO+MzMe5_}|woR;2&NI1pgO9I56U
zZ*avmSjY`4x@9chY&0Fr$-65#jL145l&qn`PcIufU>#>-aE1QF;Bx1tLTh_U;J(_#
z1|DHp@zctp$0~gJtA#|#xubyM4;UU_72b-t#$K@RZ}w+DsP58Ktj=AY=aFrBqS037
zIj3}<+Xl@Ta{2qm&yv2`nYwSMXL}Oq*zt3F9=<;<e~y&z)vmcfxVGm=+MA>_jXfQ^
z38x?KD7^b!%kkQ)RzL1f{q4|YeMN<Z>+~hQd7sHp>lmbUa%iZbbYQKwLEBK<o;*Z0
z)*@D8ZU`@u3bTxqz1yZmehs&dv{)m2D@#<3gU9%-?o!@>GJ78z+qA9q^-L8FRK({!
zN}KhAqzAPg*49^3&JBl*OFfT?*d0yFyI{bc0`pZi{Sc;BtcC3A{SL!1STNHn>=$OD
z40u!I@8451nmM}wp=QpOK@zk`1Bfke1k`)e=&uIGdB}=Oc!Bw_t0D+=sc_}bSyGVh
zi)&mfRum+%aq>|93uwh(jq~q_UR$W8h1!;#c*Cp-eUh|I<v;X(Aa&VR{-~!)%E(eb
z-3;k2bc+Cg!GNP6VKJ6L1@`XNVGqHY7Ob~ano9ZBg>}NQaqaY~%5P?MDZdO4?wfa_
z`2gku34|czsjJB`-L@rzkuJk?S2bgA9g~q+bk0_2@v=aih?)o;4IeNzpDT7!DY|#r
z%4Bo4yzRA;7N%c8Fa$PN-n@b+<O*@BB!xH}xd?IL!g`f<lV>ihVD>7+>bh)SoE?IB
zItGrAQE7fbsFZ3nCiw=OS)>w(PqcFYM?R;;84n>&2syZrR@rug2~HEP4|vg^9H}+D
zbfk3S%DAORH$!-J<yE%ozLk;-noR$^u%#QUU$gz>f)Qy)CeXZ}5rq}0vz7?@X?^X7
zyQU?^2_5=NS>_4E>L%+;_JSOyVAcR~(7HZ^nV6V;;Wq!8;=5)wQh-fm&_*P}EGu4_
zWSF%yd8bu8G%5XVtX1(laNcQsEfUtoVP*XN&y(b$r?WU)2mguU*{`ZtGGS;-DE2jw
z!A(%8&XN^t7;FyS4C}s5A1E)m+9#PtpKO=J{Q}msWNm`!<*A<u_pg?mvOOkic!qS@
zZ28Mmt*i-c@7O15F2UQNGSl?QmHM;l6Vzl}D&V)Q0mAw&#8yCG&;s&ZHf41PqE3*6
z-|y_``=}4Iwl4NOY?V1k68#FMvj;=cZ{gL7OTV9mwMgVrw}mD}o%H@@MM&V6Lc)r{
zd%afec0rY6Vl?4isSc6=kbfPvgKAi=^i1G@;8*mj7<N~kS=dYdw4D)4J;#8UGiMfj
z!K2#qYgX8Drj4zOcw-=)-vA@*vKyp1e;xV!Cw=*4d5HbrzoKBvHQhaB<Ay&-60jtx
zGGL~Pob~zrB{*|sxU*%DM8uIpjBi(kP-Xas$6b-qG1L&dLHFwFvyvs`F9V_tI1F-&
zr(&!z<)*j(K0gy%?q2Fu+Aa9`RCI<FtLTQ}4oS5uY5%9AQ^qPJwb%tgR=gIeZ_n%`
zV)ihk&1I7op5^*q#D|2r^47j6=FIMe^xvq5Di6>Rt|haC1<lULI|w4SZkznbUoPH3
zMIlaP&GzMp6!1R|Fe{WsED<<xa})xm-6RQV9%e7K+6%$Z(=iSR`O`7phyxC!aHks{
zTpx(AhAXL|flj}wcpjEmGOJ7&FHv1%1>Y#}rMOCr4W#{2t-TeBc;pt#f83>E&02iQ
zkZ9*w6`-_7kS5OHfsPB3B=VPxmiej1>k_)qo=pa}+KAA3u$@?c3#c*yiJ;;tFGxlo
ze*ui%duE}PVs~1iP%}U^0w!2AW<fN*_Ej?9MGOWMf-nM;=!g^9fF4#dy)4q^BzyYh
z78Jx05b7hjD@rA^rU<~@Cc(rn73MM5Ete$=<i`PlPbu4L@r;O8G&@X?5L=KoGW@Zm
zt^=xki8+j?)KqWpztawy#C`m9`)wePn*sY*O$-Fp3RW-cwvYR!$Jrg!s7m6qv1cIc
z59h=ZU+Q2yeQ~=Y^g+8s{+f=;k4}<L`B!&tUwkSkZ!@hAxBmMLF2kE!^2(!xZjo+A
zrmwcBp`Rm}Eb#cE)M|;1ZHe-MfFQ|LPW!b6Do8VHJa@JooW}`9>8q2>vL-aVFRtUV
zw&IwQdx=Yk#@*4xhE96W{k^C4O-LPTBK{48xw1Z*MWm~279Jgd+cBBYtgQsZ0eSyZ
z;*~y}4A}pPis3l)5(88=ZzCQ$Y>BKO35eNbNdI-#YggmfE)jgNsZ{}G1HmhllpyYt
zDx2hMf8Mgl-5aF|N&Lr36PO99hazxL7XAVWmNj8aDm)`HjeZ9gFW~X;`>7ymA7Y|8
zOq2lOScF~b{(V9%YvL>kl@+)=*KCQ%18>?Oj$|3N=J}FlY_IK>oV0vCC}b@iUGAPa
zn*})*$0g>@77*44X+#JMZQs2)psq9>hm{+bsOJ8kK;IQ72r(|F%e3vY&{Rrw@odhz
zV0hw3i3A!o-kI8`!`E)`WKc#4oX7kspo2=z`q|-$7bN2!yr2GVkZ|brEhck^b~gD{
zSr%T0L=Dm{-_we~pCqY_1xprT9|pGZYtH&nlu=v2I{}%c-duxd`})-7VspyrX7fI8
z#arPqmeF?eA?2??;?rn9As+D#f+1UImYa%#$vF#}wM}C))kaN*-r(h?7CF7-s`6e@
zYjbkF5I9UkJTbZcX_G!=C630QFX7_pFY#K7*|t`suU$%|pBhBsz2u+ViSIMi7J!(F
zkjR>{nn&wZkk@w==58`rVE3Bpn!W47g9p3@vKL+H2F+x2FaTEKVN?F!L>F?G!MNoL
zY|iYuJ<CXcCJi&;3=stuFH4-xz$ytBBg&bD5Y{d0W0SZr&)i0LWx*u-q9nF|X|pVA
zsI_uOmuEQnI+@!Kx;y(y%>GiB?3;1CQq|3&KfyRhUnef6oQUtQ7cZKWegsfJ4kQ?6
z>tuR^mFmW;($3koplnbG4v$^lcFBg06aVv$^WS%^|HFH@j0J;^jJG1FRA)8GX$;H0
zF@)(_u&g2dkox>tLx@|pmuP?Y>mNuJ+flOi*Zr$j1Mc9>pAjmjn;n>mxSOnQu&+wY
z6^nn`$c>~Z1I2>bMl(g)(^&$9dYCV{^E;m9ac7Nloz>JW&_Zk_bpJ%{$THF(#Spqm
z{+xx^xl5KmzYna#q%LTtMn-lU;Y%&|GlXYI`yrUZ*&_raX$#rD0GhZT$ZY?QI?OjY
z>q7|F`Wqz*kd@L|Hi0i~y?<-WRQ!GWC17Xmd+xQ~;H{al&Yq5OL%>uI)El269fb(X
zxsHX3h}q_9m8p0yCi7SA?A`61k%i#IEH7-6yv;)t0&gHtiv_0X{IPu;FK;&}laVRf
z4Z&p2%BqI5+yE-<r~5um1dc*B_jdSeNGGMyKSEYMMxOFtU*9LL3?C6kGtB-qO);zr
z5Jo!Q&M7^%*FH2IorQ-106gky<}_f%GKW}Uo~wg&nk*r#slBFp+}Gw&GkBHK_^@<S
z;l^K|fD4j#xqYiTObP@uY7t^tAD&8AKOGZ)<4^7mNJ-ZBv+!HHmgT#0AZ^aJPSRKa
zuC60a#D00M&-+p~9^Cm<Tv`j#1rYDcxl>o4av$D^B?2VI(0gV4NF3Kaf3~7-K&-4J
z#W!!~;bn-nmEQ&kXGm~FJSs}``jeKW#OKfL6-R}}8$5@AXyH-F%G25G*r$@{+k0RK
zbsk=Y5DK(&>x@auh^;U|p9Ej$A6*@O%3TC!Fe<v7Jc9mwf|xKMtx+cb8EJtng`6kF
z0W^9d``xfu1klax%K8WU|HB>ff9LiaE0*`1t1|>UeW?(k`jRDjUjBY+xkU5y=$M7(
zcRdow>eaQ~evjjRwgiztm(2HX-)`K`){icXa_pPi-z_<B$T!hd)34TLu1fy(G7Y3T
z6MY3iylz~UBFz*Szf6_{bPuy5Q^go1fUfjkNXL|&JksKe82{ute^NV7QumNg2XHtc
zdsa7YVH`YK*UyUd;n|uPX_E>Oftcqtbd?x8gwm&9Bs4zot{BM913(s$wN*~2tQp0C
zY3S;jhJZ7YxpeRb^LE~^v(79OHV#W5$YVw9FL62RK`sH3G~rwnV7^iQ%5YqhoWwSJ
zmBN7@pTW}13M}$D-Z<bV$#(L0?Zgj#eIwU12J_s;tdxT7ch{bkeY5?Wzy>$As~`Vv
z_+QtDzs0!J4+kKen*bH;gG4GftCQv+$6Nv>iNLuTz`{aKl7h0fenzB#o9F(-(=1q-
z;L;ncMsTZqh$OA~APXE+ga{l03HvL5GqE8m&JUrLWu!(*@${1L+e6{2Ry~&yQKvVf
z_lUV?SR|9_f6#*U2F!dSkdTQh&+a+970iCk;S;S`crfmIy>)lOh%V_Qfmj$TvZ_A|
zl-{@hUjSkZ0!V(TFxDy<8-RZ&cA@rOF=3g8xH&c_x&kOhQPI~Yaa`fukKR#5iGR+f
z5w<ijMnXCyJ+QJ_Jm3;kY?9Vz7G|=x>=Cddxpjsl0AilAh$`3yn50M7exOHN&bm9c
zp$01TlSCOKNyj7*=7%7}E%d3Dg;G5I3{upx0$qHaW@23tGUX*o-yF0G^SDvVdv}V}
zv}_M?dreE=dlLnmfY!4Ck(+aQ^reOYD}Xgmz^@O}tXOQc3vRx)<6z;nA-QngLX~f5
z=y?bxXBL0b2}tjFDGHH}O~I1}IZfKrz`Gtj;<r$Mk`dJayhsDb2!(uRDV#eQbtWj_
zZMuSCSie49oPA9M0CPiFwD937u65YQ+8Rju>;4E#)>)UPn-xKpdfbWd@KNtPWl|Pm
zYv|9Kkn5}>ea29!6>G0qJyoBS*Az6KYbI@cADFgVGvVu#idhrYAseYMAA}kGrM0OE
zsWsUP9**$6Pq2269QD=*=F6I;Atn-mWi7)#E5<ElnjO^l0*2qHux1v_K0fI*00~2P
zNShiJ>V^d4VV2eF3tiw%`bnn@Yu2k>2lalS;ODig2AfXX@z%|=jP3#xS+JV*7l&Lf
zY<>Ib0AeZeufyhELzOG(O2BXZhSz&`rGsOxAh^;bUK7}w5nD=agU9t7GV$QeUl1u$
zBpx4PGRZa}yndZOWNivxSb3>8q72~_l$i)VfR%!q^>6+hWvUw0)&EIm3S9!za5vY_
zYOzI>1!%0*KkW&4E1fm_;)zE0RT-%#Rrfok&5eXlz<IEkxtutAlMfN2ScI$5j|0+K
zuA*M8ffJeNBge9~qOX)FohCh!amzoTiLc!}rX6BeYNAa_SHt32a^Ztj)&r}T9BtgP
zP9*@pOJVt3KW(TAyF!OxMw-LvisJA4z6@xY-VFOvw7xJ2Nx1Oiz_rC8QI;3|DActs
z$cnc<V6*4;cWWKsDC3z_t;!EYooSO*ny;rGxB{;&_2FK|lmT53t}*Y9LIaDlOaxh}
zLLm?6y)~zqsQ+mGVlWh8du{e(Rcp{Ej>cT`<Q~RQ@BUK&kN61g;tb-fSj!RF5o=%?
zv%<7sHevCnfbR<t6F(_mf~C9zn<A@gDq)%e5IpZ}@d#Ao3vO@+q{UdhhAAVf@ZC6K
z_ND48Z#j*dvI{!hnGlZu>$5}8fUEZs-uiAxg7LMsn1vyz@}}Q4?!vCD`%(M)!m7O2
zrQ2L=O&<0>4CSx0vs}wYD{sDg4d*?}R>RM~sfI+RzSpvb^R~dgX_?GDs;3HDSGu!3
z@=OR5O<>~3c-zX)c(89qW=I)(Awan~a;>l6ajEZmMvr`*^)AooJKg)k&y#c;IDSW)
zPU~0O4BH0yZ5Lp6Ef=s*bQ=$j3nbX!wydrdtMP`cp_Wovj@avyBF<gyxDQlk4yXya
zYuUT^w>=GOran^5yB-K}x<dZ|##yu8y9zE~_~6Z(;e8S`d&X!}4bMD_nQ2n<-YvO6
z2URX50aenltEUevt=wcGvq{?&43Yoh`B@j+c{0HQQCL;;A$l@<Ggi|&>{>Tt709zH
zsI+4AE6Ek3SeE}EJ^A5rr(-T7GEVF3k}4opH&}yU%CaLNBBwb7;c`0WK0^2OrWK+%
zXM8#!P^qkuth89;A{sqjISE}{f*ybzv}ExiLTI<n7MOGu(j*S<tq7wZybZg)cBzeN
zF*uL*j~QxKj`}WTj8gsz9r2C>Z`$W_dpewhZozew^-s@D2-sj56`)|A4OY6&$_G;d
zQK2>d0l+B~HHgm7xx%dwYKWqo*)<@yn*DOVJFLc<Qj_TB{233rgkH&IU8~od<vh*S
z#W`Vdm<vjJFH+xu&2N6t=%hF#)-(hQd_D6c-O;V?#(}A<+~9HBHgFp2ul?PwH(3>c
zXwsFF{~=mPHyIbFxD&5y9Tt0yIRk@~6!@6ToNLayApE+S15Wu)wWrR+7`B1W*3$(2
z(h%pnrCW2vh9+-uggxw334$4pF)|`3Xi+awhv#4D?wA{_sd%e0>9a@Bx-8$5qaAu8
zl8hdtbr$E`r|iNLGrxaU;H5--mXljQ2;M<`2bKZr-@W9N&R$q}OIN1v2KhH8<|ZZy
ztq|kouIaB-=XSBXGyfr7^f7i(V@(KY%b&$&ohY2`gkV0ZMV(dp?l>AP9Jw;d8;B1;
zVTUKN>6Xn~%s&VmcSBMWRY$$tmAcUm_Vw9pnuxz%Ku-FMR=L}Q4?qo!C^caJn5lgN
zc;i{`@si@O7#9AUXw=Vd6;$*1N<~5wstO5KzvbGNKPYpTvNsF=BZ+`;)tobq@*^&1
z&b|a|_OJw;=^fts!&OxWO7n_jKn5$<AZ{hI2Z4eQJ+VUM^K~*?`V1-tqD;fuP@{d&
zRKK7eTz!-Dp44H7#3CQD%y%2Gn97BOMr+=$dGE4g=J!<Z`A5j;C6^W?+Qc)lHv^L1
zq2c^3qPWN_d|su!H6(YhZ?Zy)OV(Bmf;*jtOK+*cU-tZ<pKxL=p$6yYV4|t73A+F3
z4Wy)G_S3p`Z`Z4l5@nbAc*XYH#B;$nSUoqWw1T?Ws^+sh@AutBnOe053##~IOQ?r8
z%iJf+Y`S)vvG)Ju1}lVj3iCB*6jNZ~GwZm;PJ*b<B8mHc9XGRno@I(gh&1H_W!SAh
z2;fo05xLsfuGn#(xi!SvPP>cRJNGc^qYx?OH=7b25Q*3IGc}v>Y1h#A?0Ben;g8;b
z{q;j@7QP9n;AuI8xQt(hk4>cTq_aj|3g!xP)`jTC7lk_hrOy-AqE7@{vFhA-!1Y9B
zsfvvKU~AWVq9a6voNxM2gF3TdL2(*3Qe2dOr^oM)*>UEZ=z^;*h^^r6Eu*~C0OT4v
zD2g1qA3p`IteDlf6~>Aygy@^PRf;ZGy5PxfYCQX?st^8BbncI|F?UW)dEy6WwHCiJ
zjx0kLcta)}F>!IOD+Bs!BKNdw{;WJ<osF0XyiPp}5#qx{v_k)XG`2<{0@#D@mSJBF
zdJ4Nd;bq5tY5JO%9)UC)?wll@Mc_?H9I#4dO?~t1EAYVeu)E#AEip+f_a%q5iR?#?
zj1~p0XC-B73t87*sj4dBQ3J3=2G#P@_;AxNr8?Z_!Va*Ge`2$_vOsvgbnR7kW(>U&
zZ(dR~TMQAN^RCNEyW_x16?}vT=pXbQWh3yIJQE#K&e^64NMg1ZR1<E~9rb9}plK8L
zX4rW4)#t&3eA-%8k?}j73(bA1Ln%hef;WahJ^zZ7_rQ2vTV`r26EI+(zYeRaj5O58
zKUjYUrdO#~hIMG?3byRKT?dx)cd+AY5WYqF!eb8Et(0>4VGqL4#If*~I%Q~~-f|1O
zbS0nxdvNeRaZHP(PheqhgiZa4C+oYXOg5>++-#9wEx95wE2XRxDX>~q62-QOZizB7
z(F|YJ(7&L(Pmke<|B3X_+5c3Bv4LR6MbvVuW<?2iD#mcwm!uANy8#I3+~AJrs;o&M
zu*&1EB6Q2uJ?g2N=0m{600Foe+r_H6pD?FSDY=V!ijI0Z{^KP|Y7=kf)#7ks3%0M#
z;Chz8|0Ky=ZO+u^iZFE7V+))vWrFJT$)~i=biSj!>$Z%Ms<%r&iDmILuh%6>SM}5!
zt>{e`jcYr<<fCJ(^N>5~VlyE9dM&zU0O7>Lzxpd?hex+!9@+Y}N_j6DS3#&mk8+1-
z>7nNGP$<W3F=hEQqj<h)-v{mgsv|FAtYyVg6u=Jhr7c(#NO0-wvutkHBPz|z_S&Ul
zCslwd?D7v@tMO|9;?&yh!I^u*3WzX2)*VFa!S`ArJE*2N>QBuGKCsfkaj%AMCLcdG
z1-mIb%Ks~3_<Tqgucn}4z~Ya!otM-c(vgDr?i2bjPTxAtcjE9>x<g6B@ZqbLpA7qg
z4nGUH<{}6ki&!+Br1-cilvgLP88@1hAO#_{2gecdNE=Q;0h4{yr*6P5=#}83wxvQ!
zkkfV6qxFYBJnXei;yNva^rVBWt-|hghc^A`#RNxLu!?WAVXF#vUDtX1C_9s`+t2d6
zf1Y%J;y902SZuhPD~V9AycRChGlI;;D2u+o_T)p?5G{8+BQtTXC@F5>7qMOKXz_VP
zR;q&GghTKk4*6%s3iN>L(804gn{Pgeu7+c?7t&5k#YcWr=M?1V3<|$I_B)Xh6dm2o
zaV_#HJ-Ior+#cu18?VzMMWoD57G3z=OI0)^7orf+?9D41l*u|_@+O?lb}YTxz=|Qo
z?0DwAx8j>vl#*UvunaiH4<X+;+(IIl2slcH*MtFHn>tuF;`#sWS=#s#$FgUOb6C{U
z`GmjXT`Edq+>E@A@q7Jsx`kgJ_$j6gy-MVnf`J#E@N3^s!QFV{Uq7E`(Vihhy?e&5
z3fyvqZE-940|gXMxI<sJ7y)128!VHeE62ojgXy|AS$PnRCF7<<#EgweDiGF33zqW6
zk@QO9<p2eo=ble%9XDc&4qv69$`gxNdm4`Ymk=`FObmpuo`W-(lcpz0r?QrUU$!Yh
z2iNd7qM^LrYokgH!DC(17bkVRZ~O_~q<kmZa#pw)8apSle(K;E5JtbjJK#BM+K4c@
z$X1_tcRwD9Xq!B~N#ArVjar<H>Ob(y$##qJgp%1g)w0+`Lz2j<SzSeyxJL-<-l<Bn
zW_1-TJsGS7y9D5+SUER%A3a|!y5+2=biOz3iya?3#u%D6`IMOd7oL-6jEL6}WEO^4
z$B6t{PkbWmzdVtvsS1KEXvupg_SWm9cQgg|Z<M;DVp=)IwFd9HofB%#(|n==75{YW
zyJj#<w^R_LfJbML#ik7>q?z}RgHHgiz`AzMUxScypasp1>`jVo^4W}!(^VL(w1ilp
zW(h;T2OY2cLyU$Rbs_)76TAole=OJ?mHl=8qUqW85~sGX^^Z~%N~P11mReA`;5=$f
z?_kw(iIa#vR&|p=UR<kOA2;d$>|*Y-$%#DsjF3st5C}LgPHyVFtusMwW8<ZirNY@;
zPHhZtwobpd;m|5;eSE#|JH@YjnVfiEZ$Zczz$?*Wue1WZ@+shzYtQ@ITAs4kQShv-
zm#i&H<)-FS7aNBHH{{w@ujs*rhGAc%&Szo1cF>8Gh85p}3~tZf3ZeqkYa{+`AtJsK
zAzBl2go*P##6<xoDL$PYxou)e=>|sLZj)L=rstK0d>)=Tcr(nNx6E@!xRi_Dt&FLL
zxRIsRGmhI(hXzYeEh|+zhS+*zt|ejggV<fC8H!g#1=4_1l4}~>6|(2buDZ7+x1iE3
zS&VG%Ycm@SPgfqRL3J)7&I2JLu_*JIi#50dV_&p5=DMHYC;FenIC%xlec5=DWu!ye
zv7nR@cY3oJtm3^{7tQt4&GlByt-m)`oOPlotZ{zO#N~SPnKc{&uie8Pr!>S)4b)NF
zoHp^Zc+iK?1FCsOZ5ll)4k6=pPQuFbOPuNNL=~)oGcg&ZcL<i*&3}?*1TS+#$!9WX
z-l>rn99;x;D*#e$Qm%=)F(E#cey{}=p2Jc!^x#KHZHVq5qP`oY#%L`A<m<lKWY;u4
zKM%M-o-mwI;#=UjuLf<9B?!{MbGp~+m>NJ?3)qr43zBN~#Rw~LEKX%=o8A4vBxe{~
z=hpn&-!JT$Trv3B#R&#1+z%|Ac6$uoxRTJwI?w~gL3ZL%lNy#z*<NL^rv`ohxnvb6
z#AbLw&va&)0{!cvYJ<lwNl_n`Csp&lN`H1N1&mIDJa@>KUXIfdOQo~tA&P&_2CL>h
zDk_>iqKbN0GM4!__xep(KVb@xpzOov{#$!z9@W&@?SBxJwhmNn#SyH8At0q9GDAcw
z5CT%h$Xu;a0f7S200DyaS{#@>1P}<s5(smmOd$*jyeKpgL52VlNKg_W42gyzhCp%;
z@B91nx7Pjtu6zD|&RS<b<KFxGdG<lO#k_$qo=P5|omh*K42Tk_|1|&ovRQ-A@Y1<;
z^}bB3dx4=q3fNi-h8B-k^z|k?0#W+1cpyvHidt@7Kgr3#KQm>BriNf?qI}7vDJYzt
z&(DF%rAxm4@O;qs{J-aa=z-w|J7zzGSFmDTV8`*?=<0`PSG}CPwpEj1eJ|q{vE<NU
zV3UW7fRU$2edSv@flnnMW%njRb-vLp!a^mLCKarz{bG}YC)`-sIlx$XJSTRIS<2oF
zz)+3DLzj*<dFT^;<lGFB_pL+8*SrfNMrhfJaJk^v;*`NULQ)A)X7dB!KZ4!^vkGpX
z$Jd2N<}>?qT|+dp?l(0j5a|P34nW)55GB0f2jdA`Oy)!Ze^;(@?6Vf;8h|Wct&?6(
z0tKI&qj30P<fO=~YX#QATG6(IDEos;a>j<n&xaAOIM%Fp5J|uAnq88$DgV#7oP!Ym
zYH8WA#bUHNYAtr+Ifn)YDfNT`yCB>BqZ6|kU+k$?%mOH9OOnSKA_b6mw<3LI*dXys
zbzhdOI}WGz;&0i5y{YE5n7*VjSIIlQ<2!!R)o_XN)w8KMi8EzM{W2QAIx>3?zJIw~
z`S;tu8t(}4ad1G};unPs&K*W5lV2IAjJ{$XN)6rkMJ(>lSvu#aQ1>3vKGBdF0oB1p
z+B>w3f}`->a#bk8++dwxvZ0zF%a#dsm^6kG-cZ*?JZq*h$29TVn_Z4J`gdF;v%wo7
zIh(Don;S!aU=r4cqTK7-{!R>L%P}_qjD<HSKD^k^Mtl)@!eQ6b=Sn8u$RFW67&D-X
zg_uP>{>!iCoN%^W7(t87b8q`p%vJWhgfh<_6(=!Q<33x?UoYbPKDHWCVFLys=2NG(
z#y+eYY1PQ>*7ZB;>Asgh`QgIb>JSxjF@Hs<ZuJ)}MUcSA|E$(d^xfd*DN0XiS8XcI
z;oNLK4);0}q%hpzk*1}^i&ZN>!nr{Gi=j*ictV##<YdpDxNTG~N{?p76v7o}nQl&v
z%e!-1305%(AkACCi|lDec@pVKqf?r@cLj_MQ-Kd#;Z4?>o`3!s<rd>FmhrapC+d`j
z{tk?iVff~Lo{{Fo$pZeC8Y|d2h69OO%4OK0$nV|DR|oI++~z$`mfFA-=7Qe8Pj>Wz
z5Fpk_rg4I}39%}b;G-$0uD;D5#ulgGZVbfXnhNzo2G-W6bk!lU957R2#ickGkUu_w
z#ujnyXN(QdzW^|V-$PMta8U|wXiSVBMCy+=6^GmH*ITCg1msLsQ@6x!l5X4sN^=E1
zidR^FWc>NquN}RjN-3>+ZJkMy&sf@*C>GD%xkmF#aG%s+YU|7H0#9-Rvt#hKKWu@;
zF%2U+-aHfhn7rO<SgzsAJ~^Fyv%Fm=+(1J`rP5<<PiGS_SrLOBH)x(oOdvbUJkLg^
zqDL<NWTbYz2-x(>!+r=#zzn`K#<%wy!|iR$=*xbJ2WwS26Vk>XBHFI$@+@PuVYLAE
zmsDz9M8SxqD%V<m@ldi+!JVf~b<mJcX>8ee+z3tju)c<>LGctd0ZFLzIYoj?_U&x;
z#s?>LT$6hq0bOF>v#zf@UB8OA$&}%9GyMnih+|j#Pq}rJ#H~#kLt$sqheJwWrTCd1
zgPBG6{(^t~L0+?b*2wcsPP#zPrHV;A_b!I50MVL$HAHuFwsx;iavk^lY4MqMeJ(^d
z)xI))#cKx%dsW5@>NT(sW>qIk4YR=Bs7nb>h}<UtWwZ1CN2jOq6knBUYQ*=?;tm)*
zff5UWn>*SGh@(|z{hC}1`|4b8Po;Ph=V6g`vLTsq{<%m`t$moA2X{L-T}L!A8>9l@
z6ebMJPm6|@zYedBwR0%F@8y`AA>X9#3+1tv6(iX(<bs2D-*elPHG4Jw&=Z`v8)~AY
z`N><qHwhW+w?4m?ILby-QSBFaLlNM?iC{VNqTkRA1YuA0s12DaV#}@Out^p1br;4s
zg=B7WRKGI-Nw~8RXifgj5M_VoXKpj^P*iqJ7Atu9k5HB^6(I$M7cEaFcECrAV$<0M
z-AY;SKDI4(hBcaY7U3Qs^6329!<IBJffXX(!2G~;P-}56Ujfa(@?+V~?;;BYU5~uN
z$txoew0k|0(r*XqRvQlGuU8o(A{R+5?)hsHZhF|mXu`rEe&j|fdV*tG1-b@ts}J-x
zd`(kQ(ZXgOCebi165-dl$UyRsn-4{M6S&^cTX@+)&HAJwii-q?6CSLlykVUhP2P>8
zPW(Y2@ExG{>exG4Oh7-E{cv5&iz%NYT0}h;BUwkkHz<5%7QDTzW{^1P06emQf2>1d
zzQ&@*v9glgkNwim^95lJRCU@V%(CBnE;<dDa&=#$+iy1dcKb(%qVn6%GFLo<DQcdM
zizXeJa(ysqO7LOX(YL!Z?n-5YyLsG?Cz0pB-8c?PPO_4gY=!?WM6ys7N@Qq)JZeis
zp7wDBHF`%oTV*x4#+LiaR?60fBCmLXM@!@FCKYj%uY&6TZM5*oK&TM=A;Pc|<FXt3
zXuPog@s=mIJG^>@k249bp#_i?m+!o*7GQ45G<(?1M4^h<jEeHi*&RQ|(JY(~VBS#W
zp1j1Gz}Nr!!IMiRzwEyuc~Dpln+VM9>Pme8p-}jCU=`V~8e`f9`q)lq$ajC%RoXc5
z>oRLk+}h7!d#i;$sX~{$BmH|1I!-YVD~RT|Q+13`n`deULRxQl<w?Z>wLpbv8NX_I
z6~QQe)r_->O4}tEZT)AWGWKF|a(z{-u!ZgejT*tfkD%*oc_nP(ah=LAbA4Ig<3w;~
zrBvlhht;&APIm?rAG<Z85e<rm-_?Qfyfe);@hp<SizK)xDtr|@Z*W)9d|2Tl(em;t
zW>}TcL13%ms;lJjfn`jbuK2BQLi_*Ee%MiuxqG?oNYtl~4sq)7JP)Qa{Xhb>EPeF&
zVHH2xlvInj4-WhFtii7UE>+}Nf<4|a$zGzCX2>bT+T6kvyD<*Bh8P)QQCfSgnn*_O
z87F&plx<Rw3GJfgz^GL8WQxrr8zhUtG0d{~e!A{IgYUGq_TJu6Va_|`UTK@cIDiVm
zT()uA6;JVF+RQK9*8_)s;8a#^m22w0YjrD+R67&TkdmU|KyP{A^|mtWp~Xx4s52ka
zgAZ&T&s}|S`Ga27iu{sRh^vIn+F~Czui8k|wOaz@dVQSck@uPt^8xUqTlRf2A!U_r
zg(?%6c{3`r7Sur&7$s0lIq`YL{5`)l&!BQwU#dxLtAUiYRNI-WM{Rku%zEE2$yzN@
z>{}5K|Mp@1Uw#`;#qE1xV`r?4Q2qQHVA(XEfZllkzOf8R@rI9Cg(cxg8~jG8*IF8Z
z;QnPYl%a3mE=8k(flPx%{N9q*8|N7TaAoh#fdEPfa%c<;L{y6PJNH}&;3DD3xoHes
zES~eEk5~wgLql5rqBR2ap3Xopl|Cg3$@mB3p=-C`In)}_7*SAW(l|&>p_TSI*!#e>
z{VsJ7mvR*fTOHl6Oj(*n!hp<wFfo8p@0~YuIf0`HCB;W8#2Nd!caPU>S71$z?<B7|
zv%dO214wzQ@cw3wv@>t?dKT_-8(><Uh!Hmv(QTzM96y?I5Y#m6WsiC0U^Qqa@Bp`*
z7!6=SIe<*xy5%FuDugxv=(f%b6<36%O2^b<>mm!qk1!S3E3(9%MFio5&HzyUz>-lc
z>7H)%rpjJGNB6u-02!4=!4f1yR30)8Iz$`!VdS}bZgj?>y~o#3b&ssk$RVTqKO3>9
z=<qw+#wJIs)@f(-0}$C|UAqjEcVo3>y+KE}mRu4?9<~pINqbPa<{)@xNJi}!bLgIU
zU4cY6<=2MrorJ}+19QSR)&iq=b^ST=<+H3~Hw2T7m~w6B$#c3bO?Nr|G~=V+&xg+(
zsVgkw>7gRui_6+c6z7-$TtYcAQaQ_t^)0$j{rW#PF8m{Zqn{));~kP#m0?XCJD8GK
z<xdz$!tW+_w_nmp-XS@ySZ~#5;oBC53MF%#6Gq=;sHl8%aQhzt6*~(REoddnELLdP
z*ARXGDf@ZXzd8fo-Y(5()4S8nF%njg<7=(m*I2SH{U#fxhM_d=?OR%jb<g0eeMk+t
zF}6-mNR{i!f(wP0;uaGLwY!g0B<sS5d!{U?lrsIJYXNCtsmZ;##ohB}AQL{ZDh7AR
zFAb1^#d0Njp_l?($4j>yYOv?zk=8fqi#|g+!GE?NW_v_9Wy$ahx5wa4)|oMm8~JIl
zb6aolQn+M1c;lR(d}N1@c3m04_fi6LsiVZm$7DeJ{K;28v6nXoaHpmr)K=1~XS+<C
zV=kB^`vYmD6TR}X^zkX2;t%bSi}ITt?pI1%UrhY17TZMGD9mc>e81*+3qC|h+syCa
znE5z~2v&ktRcp6Y%~bQCr;6LH`DNHpaR4W@Kd`$04SM>B%&E?|f2lP%Z$R7XpAI7-
zT=Rhc+sc6)&akp;_Td=@9+TY$()d9LqGNo5Slo<5Oy%(J<@Sd7c-gTp<3t6ChntFC
zk2QojZ8&i6H>{`5tglwkT4M9u89zNK+zf7Nygem=M?U3uLmdW}p)kPLsaq@iGn+l@
zC(g-f0r6Xh@VX<*^<atdsQem}g_c5jdOygXXz>sXl;mbz!1>CQusv&Pck@8}DI!3&
z>tp&EMs2|w?Kwd2eb^q5V@vC5e%G#^6`!QU4PxP6?=7zHNvu{akDi6s{#gCRNk<ZS
z1sg1aSVi}lyM27M>a<{Ny!0i%gQ2M}^K@GSbws3*6b2+Z=Jii3(mdmirO%Oxc=Wmg
zRBb-R;f8T=FhCo}D{haOpjK@uS;s!ddqtG2*;|pPgaapof@~v4&yaR*<isRRCjYEZ
zI~SZPofSr{Fly^U7d<-;q9zjrst>_$UzSJanKVll8r#N4+uxTcs;AJbX&<(x=V8JG
zx^w1k_h<P2qo2k}5V5mzh1YhD%UZmTACzN;(-p3M`@VEop>VuY*xdT(-T=Oc&p+Q3
z*#crJq<p#;Ym<k_w_+IP3@qCGb3ISJEwZG(h2QdoV+^5P+HjERHmoOtN5?laul?-9
zk`7`+;0&Xgw+?Mqg7b_I#}@G;klrr;r7H{=*S_1y6pXdr^cXZeG9O4J;9uP`6fQQ7
zJ|3*5$l6Tf`Kv=T><Nv<tqx0O*4Q|Ct;I{XV^sT;sySqPMKnJ<nC)K(`y@`gb?YJ+
zDI7DAxd3hD+K}<WgLgM>0CTR?P_tjf5Ew%8e6=Ec9B*netC^?_ktoRxWD_JyIlNbU
z-<R@Lr+QI=<n@+^P#t1kzLU=-C>~Bg5-#?H9J%eup8iK!RmLkwEH30f%9T^yBsGvI
zmzW})wol&S0{{6bm^Jg9=ehu^OH({Hz4dvmb^{JzYbTYi0JVJQclnM#nUtkx+gdXT
z`U#VU0zAMMCxZMA>??Ye6u*%4Va)mKcQ7MVuuzIh1WBcs6Sc3e1MaIs;KmThn(RT$
zeR{jiyS6}hCmQ<nCTtgzV-AASR@AV+k)!+~00yIJYeP~O>`qZ04r+G=%n=+B7?;72
zUpVKsv^ko<X0S=Ji({5A7^9Nr%Wx)NKY^2*GGj`DpmX;wNtTxcN6k*(4k*WGWqF9*
zjAR7Ua%)}y6SnX~YG;(79+Z-Bp**8Ia*hQ1Gx01cnBm9CgL})lVNc$TO#R#O`lRrw
zTiFA*Ck)CH&Z0cJuYot=AhK>%lz3^1%Q&sP1||NhCzN*`I5eb@w4Wo24qkMizbNe=
zs3X>TXcd?qjGbJja7!322@&*?nboNXIK8<)!qp{vA@&fi;ch_0V3%HVEHLwH-PU@Z
z+QQZ4b--oA?R;Yb({k>=S~qTZ%?(8_dqKs;paZ&90{)W#9SmyiQASd6y^Ehktu1{*
zu5@8b$Ag4Yf(LbGHx9k!l7KzyxTWHKq-&4Liug|mqeyYuvc}3-fRI>_hE5m$4tM!>
z8s@~ugaO#fzv=Fz^shof!^O=pgM@QlJC;MViA$O!*P<6KCA%{}2#iFG(ymr+(LojY
ztIG86H7okAwN2#iYxt7ryX;Dv+-O=nGgpm+YL(=Ec1%>97C3c=1_j#-qhB26xk>bY
z<6|!L*fbY~t<*}H(LsfhW4fsCB(sM(rYv{Q!%iK)JC`6lNfuS2m6J96Hmq0-5|4#1
zP8JP`VZ_M$!2@#NA#MDNl+=ChAdG1Km(r!+o0$jD5IVYiXO=x6*|lDYJJ5cY(+}w_
zOY%^_p!qdo7r&NIxzLqh#Z2nll`u5WM%tNc|4gFORjD%R2VHr{{Q*Uv)?S-H!&wGz
z=gQ9*tQDSRRbM)PBn1wbm<RISLy7ttE`C)CFqv}N1d(vE-x<6nXyqavc_aM`lCNP9
zH5xpSOLmp~2}vWls;)3`7e+)l?GiekALY3*csvc)V1o)C+wz<pv-^RmEW5L~j_YKH
z=S-eu?gNs}4DUHX7Fb?=f-dU|mp{hYH#8DpITD@Drku_29*#(lv%LfY5wUlp5Cy)d
zykrv;dAb53%fd<TEkoykigH+T_tV@td~r=cYyFHJ6jtlXIfubAicOpLfhoIAXHcm^
za8v=)Zx{M-vE9A?k%*vbui~Yqk1sD7W=+MimR*1%p9Mw;cnE;)PsSx}I6UYE@3s9D
zpjD`leaOz^)CZ@L7{)bkiJRkl_baY+w<X3Aw2())oB!4txuKeo;}15+m{-6aOHsyD
zlwC8)71nT<j+r$~ppRgdhQ02L0b9dS95w$+ZSbY}XAf}GB8y=S!xLbRKD8i@fs1|B
z55Z6;^VoqpOm)wRgsUuk7gNdOp8RO0^0UWx9nRl5+uF=qU(mU_$EfSt__w8pvtFC&
zo^k{;4VQMj#qsesHjyFin|;SIqSDWE((s}nYFPgR(GMCK@AGKfZFp#ZOX#7PI}DW0
zUezz6T91$DYGnJ|GB;e#UB;i4w%);gO7?xiYyexT=tm+u+sNcw`*(fX1KStREAlGY
z1}8t=YF6V?7tX#8>r|qBrjYJzgihbq?eFsJkm!t4|E{gE{r3O<$Fju4%JIszD$>H{
Qwz2TbSAHg6{PoZO26SB95C8xG

diff --git a/reference/plot-11.png b/reference/plot-11.png
index c1aec433ddcd2924d136626718d503154f48592e..731816299b55fe33718245a8c08d2cf053476f0b 100644
GIT binary patch
literal 38848
zcmeFa2UOJgmNklPt8H#fs0g%}K|xeNK|ouSMpP6DDxnkvRFWtZIdt19D1xF`A|eU`
zk|l>CXiE?g5Rq6=AV|)s2t^fd{|b9<&%N`_yYt?6=Y4OjajkBk_{U#3XP<rcId~pF
zrm}F}>Un&8d<#{7QP$w&n`O_(H`DNk+4zL<@OeMJ%r;b0QN~yN8$UpI!<V_2e>r`X
zk5A|(`EQ0#%YZQ--%ot1%KJ6#pLEwdJkT@tSLzRUq$K$MG<W^>tzz#*e_62k`?<fr
z5<Iu^kj&zQ_pFm|wj~s=HN5<Gm5Sbv`<K0$CHjVM>D|1u3%=L8dvEQGg=&UBuYVLX
z+8fy*qAFIeI^t_%t5e@w+V(`TO}i?q&!w{`BbCXmj7in-KeBNt@7dNLQ++<4_uX0c
z5B4+2cS{bx=6!Pa_;&{6XZPQi^nXXbS^vOYfPDSw`S+RRE8pA=jkCztUpCK>BwzRa
zJolftMEmD(#gT}YFJF4xx^>HbxJ+ffeu?`FAKcrWxmnz1#=e0|W@fh^K78om@$USN
zS+OQ(KNXORTc!Q>kGGc_DYkOmxx@d+`5pd`b{HRiUPRvE?EL@a(PwJP1$u7^a^4Y}
zIrx6}SmQOLukY@iIDL9mh>DN*%*A`Rm+T$-Fvc9s7P!4)+pQxT%PpLa9z81M#OmHX
zT6eX%$I8t~Q%9#@k$m@$1;S3|&f`TC?<$I0mWr*=)ell9PMqLhzI^#Wo6^)CQPDHH
zx<;(-8f&IQTb?DoXGKLtMSR;+r~FWw!D`9O{+~;zD<lopROwwkdgRgewKo>5T0$OT
zvD?^NDbtcCzl4`7^u63x`$Wp<&>CDj{_P@pWm{X@%x0lJkNFa5KMA`GmtC;1sE?(l
zs>BbMlW{c{@==_);L}A(IIrs5V@A1su{<oVM85BdORtb~{~PO$P+ER>O=5FQDznqt
ziP7|7XX%H^$!j8$X9H3c2H&kqWRyHrpqGz)>af|%?oPBWmafYEa#KY3?ajqLwY9a?
zb`37gbyrL8?77;iY-D6)C30AM<Nd-)Exh)^g$wH~PwMDYoeOySzRmh>-_Vbki@OJI
z%xG(&QA)Zqx?=r3+RI8y-MB*%i~t2EYFK1sB!gNa*A;z4UtgbQarEilJ#_BXQU#g=
zXQXOpbN-#KgnDwgzl~gAA*Q&swe`cEwkPE+6LUnIFPqe7*edkK85cb?W=?TO?bu_~
z8e`fAoL|*UbqYB((J@#gSsFX_Zk>;f?&zmbwVn4j9_<{s8W$S6L6TF!oE#rY?CHy9
z_bM=Z@5nOWS?XwL_+Gqlq54u_Wo6|DeY<);Tu(p4#XLDV*}o>y)Q;Zpbl6%hu=gX?
z#l<DHCzg_v{Z^*FaP;3^HbC5d&LgcT?L02KPb4mjb;h8UKG7LvRGV~BA!GFbCc?`u
zt4lxLr1-ILG6xTqE8j3)aw@~-BCV_5zWL4oX5uG|b5rh8buSTa|4seaso`?<g1MWX
zd<<FbI!bTI8yjdgdh^??`dGSoO@e)?6LYDL0_&7dZ3)e=J^ZPCljkPGx-{#7ulLnk
zV~TsM``^qdcy;crsNq|`+}i?@y=7D-PKSD8QQMQN$27IHERsv2PbW5c?JV)YINCA{
zFcC)rWVTu6a9G0H2D`@<7Y(`yll?EZsZr>xNy(E{BO@dH{8BdUAIA#SU6-iQB<^5Z
zuvYIK3lDkzd@Ywdno|(sqqsU~^6RFMu&|A$x>wsu?g(0@t#xvu=~F%D2;2Wu8LKbY
zVI%iAAfP!<fZ|oIuB1ROF^kJuQ6S>x?4xLjM|6|x?CNU%cwq6J>+=N;VZ2|IcU&+x
z_iEs>Ql%{G(z-KfdRJ8S?7v(e=zqId#lpg(&bmNopf$kikgl$7QgU)$S6q&;X^;z*
z%5fNK&BHzFTevg{{nc0n?~iG1zw-56T2BhYaD1?(thRPF9;dUj(~z0z5I@Cbo2CZH
z*<K1dDtTA!IXhz0!>y;6+~1_$+fOfbWhD+Y-IhFb;J^X$M6gvOT~!5Yl3B~_m=30E
zY(JmKVp>UrhK5?V`01EfH8^&~)LY&!Ja5?g!M}!q0XR+T%3;^{dCT`@?lf>{@gpx~
zBPSFS6Eje$Yn4}*ezn<s=Aw78PTcXff=I2Xl;(TGKH0k$4Lb1VA>%~5nnz(=y<LL>
z`yR~9cqya)*ww37O@`acYEl--wLg<kTEVUFb4`6)5F_H){`^T-a**RsqC3c~sb_xO
z7NeJbCCbOzM@U{~2sdoeQwlt0dTjTX-@7ve^e*oY9|<e(`0)Iu@MHbanIdERXg+Z<
zG25<oMueMGDZv8D>&uGV3Jr3Ub9p^u&YHXWRxqFbIoy#r2KU)edxZ|AxbozQ6ZbA!
zTJ~Pyz}QL9xeO*N<rsUSOhu%4??CR-KxU3Arl>VKvE+RU+39u}mTSW=v`01nL}^=#
zrS{Az7Hh3CMwh1V%4RfV*Y|t~Qc_|%4;6R!5W@o-7~Vy(DLZIAIZ$9~MRDVd)b|>F
zcqBD&$I5w~MucVw+YXCiH`ch^Wbad_Ue9~$R9f|v{0`>{<c#HY_nb~NvCZf^czZ=2
zY`{9v;LOau!WbzD5sIp+>SVi$(tB6)sT77~Q5WrkZRlOj=cT0zqk5BAl<%3Y-SGv6
z*mCV!0a?jiv2>F-84J8Cwbr8#`?IEn*sDO+$UPO|RU(s(bL6w!?)&=sj+NMD-_PQ}
zd(gu}N29Xk77f}?Pbb+{-g^h%br0HQ4+ZvcO(y8Q8RB$jR*h-FBPpYd`qq3ws}B;A
zr(Tg=!)TcZ;tq$0L`O##+19#wx#fEB4`9dT6pb)$szzzY+=A(P(#83@NvTl6t#xNm
zVM$G`9~O36{~z-cQ>VrXl&JKhipvs$9Gg^>CQeYt9~pUfY**O7*5%85$~y@+P8X%m
zCMzr~EUo3CZbEA5?q;vdZnt-L*Va69%Dc6^?DOXbH0n@9ocA^7KtLHj_ujcMd1kTc
z8|lt@%XM-w+N*Y&mUv;~r7&J6XC2iUIjB6z&Y5!ZNvXkya&^7EYHv0kds1x?VCBSM
zBoq;&%z9tAEl$z=;>E&rCTz!JeM`3%Yr92zzTWK~ye*ks-Q43CLZ-n-iEB?C556r?
z+e;nnd2#>PdkH1D@Bs|^&NfG~3PZ41MMW1W41cV?7#^5mL63;o(pnNIsH10naE<HO
zm-zBy@&}ELjWsnjZN|nK4cv$IVM=Wly%B#mB`j>PNAh--pDQa5<=&9YnfOB>`^P?~
z2Daf?{}(A@JKBS9!`MD;AC4>roFeX=MO9a_q-ba?aq7#mW3i&*vTIu=6w=SUdU1Z}
zqz(3`LS)FM6%u-n^cCT1LsC*?0Chq#GUOtoqCyf9cCgD8U&(hxCnhj#N5=-qx(fvU
zIOlkStPD;{U+?G7pKZo|PRHeC+Z-v}L0V!_dANFC0(pQ2HgnXl`qepWtj~Pe?14M>
zgN2)nTHgDW)zz)pwr!h`Ypog9X<kT&po{IAug!bE$LtMzx!dtQhNX)>lPu;saGR1#
zJk8ok-7H7jx+_K7q#Opnu9Uu{SqHzbYmw7Z5OH(Cs!z=>eQC|!H7yep6B1QDy<+9e
z*aqUFvkZ3{9_ZJmP(<J(%BrhZ-nnxJcYngUC{i6--qB6vNYAl)J`u4g#W{9?kX%v&
zt9~hs;_5&hSEEdP(jJY|OWz@{WOec4#UuVZLW@|j>8+2)uwo4!oa;&H>}r0NI&B_I
zzt5bhi8*}Y*cm~9(uIo`Jww%K`9N<!im<B-f|HVViHZ^*1Dtnda@1|g?xscRf*<Jf
zFEMnJFKJQJvAzX-p7jlz^2vR)sG;@b=tZquWAkx;jbwl>kkeL!%(S<hX-6rbZ*xLZ
zTbo*2No>4q-Q@!;7C}Ud701qIvTDuZT{#oP3&4Z}R<jcuT-hz-{3CjHLrhkI^~V4n
z3i`P7JLdjpFJ7!C2xT{SthpK1<@SvmH^yqKvL9wmO>uIj1k5U<3z^44HH5;>oWeu+
zu<joVmp{_;3Pz^&`NX6ee$zVNAnC%1o5y3rm3neCEngkRXW5z-MSRI04<A0<bTx>r
z$6^87J=QNdzeDP3>xb?hY@f8ElwM3&_uwkiC;aMr2b9;qJW9Dvj=hYDxdY=A^K*I5
z6sIrC<%c~ZU)72-=znD9_*}D4SWLjQ!n#JG-`^J%HNO{+^SZW3ZZn&1`qUxpt=vr^
z>M3e^V!B#tQVVU{9YNVx0WDU{I-k8e=zFc0ncr#qI>Tj_NHkCx7PF$)r?Q6nxm9i)
z9jawrTacTgcJwKJetvp)LXkFQNm?kY^nOQqxSi9i?#_xRdA%~GV1%X^@L@u#)0NQS
z;Dfg_^uzBK>{l;2fM?n_`hDiLYGAA&eS`EX#y8o=lsLoPgLv`UkY}Bb&0-5B)Sv8@
zy0KW~=}j?qet{w@zI$-EqdX)cBEr35Jp-1nta~udbtGz$j<vwGKs)9hSfrKwg024b
zyV`o~;GetY6y};UDEenkoG9yY%^5GYvQ$qGyyTXdGG$0FNy?E+-<fxLjm_VT_`b)F
zA2)SI#r2+8$@uv3$DGL)$;8yuC&$ixdZ8+H>GR9(9zb#1@jMLz6Fxka7I&h%RO@;z
z+TG~h{rNkq>~Rz4_5&iF1GKPh`Wd?v*)^psV+YT{r=ywS2Y#{pd_pBJ!MJGNsj|v2
z^`NKv+=;3jVZ<fYMcY!(yN%xSael#&sa48nomBV=+v1aJTcw{W<VWrOed#e+bvS~K
z{#h4wGXQv+ew`!So>Kf5L_u7TW!je;D-|4Vo=|Hq5<pcTXqCwiOu`?3j#-jyR+ZoE
zqa+OIb~f4|OHNc2Gh_J2?{kG}w@6C%ZEtIbA8pp}bJW?(sy3>T)K?2HAHaIay)Ix-
z{l%z%>84}dKOR~hqA9j~w872o!2|Q%-wVSSuau{n*TJomV{Lv&3<wA?s!1@mp5lxa
zNENJE+Fan{BLbIoT`a5pg+|1pa{K60@uJjv+bTH5LkQo*Yqs!<%KYvYmpyR_QHjF9
z^TjTk*>&A!Br;=JaT>2J&i~-QGjT@8gDofJGX2Z^Vg0w!CoAGyrDM~YZrKBTtP4D*
zqO7c@rj|L@bek8ceU3Oe#9dhe&(}RTRH`I$GVF*au!6CO3ONdX)Ow;LyuhI?uqs4`
z-MRZ+mBSBMlkLAQn0W{x(MHjfaoD6ifhoXtI+iDOjS9SrVO}H4SsT@#KG7ddZ+qIs
zk|M!Y%?Mycon@7knOWCybwFHN7uIpP|KQ-DMQ@^%QNE3?n$<EjC4JZNmKs}Ohp+b}
z7?VL$<3Sd^1qhHW&5CJwJ|)wI0N6ccEX<ZahsB61@aX|SE$L1yRjgseWey%Lp{9oV
zlq#~jh5M!g8YWF{GV}}EtUn4&ThprmTl>Vs#hcxxM%|hpoIKW1HnHxIm&Z*J*R-N2
ziyT&RT%II+gK+U4$J&eGc};n@jj;FIt&6YASU2UKN-;l;h#{tc@x+Zg9)J1EABxdp
z{@#09AC1Agt{_Y1xmsbzCpF3XPCJCgLfPwM#Q~28@FW{q467W=D$aYI>?N`d&Q~AM
zXjWGP^~c{VcKz5hpnvk@QgtPc%@e2IbOlS<po0CBCp^ee;<r45Z_q5rh2=?HApwT=
zh;y0&T5rvozap0ae-dhsGMx(84O84lG8SjnSm*Me(5~d1Z2Wvu{mxSLy;8vAOUY{d
z5Fji05MhC|w6ql7=h0q=D^F}IPscMX=_7B~eaI2AtCQ-b_hp~Tc6OK?q~&-uOt#7n
z;3{N866nYriM7l7eeP1j&d(82ww<3>%9x*et|oB?=QvFQoB2!u{@f0lnrxGTU9<<V
z3yF=DxUo=h1zyZ_jeX;<)}TQ~$Hr-reGa8gh5)khhIzNT`y^l;E#{q5@m{maZK6D=
zsVawSTj$E|A;De#U`r8UF09+1-^}M%S;H?f{!YcPyE@)w;79UMy;-A7`&NI`CP4f<
z*bZAs2=n&F!rO)SHx&T3tPBsNo+02yU%y@^Ik2?(ndG!-wTw8j@%|PYek^G|K6Ck#
zyLjLHr{vG@9|Vj15~`8K-P8T*?L5x$d51(u%xJFk_so!(AL97y5<Ei5-J)&Yzl35U
zPyCN8)yssR1@`qx%gU-CbbDUZt^xB2tK#ADGAc^^vUDE7W1^zql0H{e38X!4x_dY@
z7~!j^DB|(p`1ttO%a`B$^y$;f$jDnB9zfX_E?pA4d@%2Mbo5s29z+qK6%f$Q*E?ZN
z*ez^g4-Xte0Qq-1nrm=ONVNIekKyt0Qn=zgau_a!E8+>_;(U&5JlS~b*0p#w%X|r4
zGbO5Oc=<ski9X4EiS$+Uui6F%!q`0g=ej>V#UVWf5};cUag)1krxtEgHKGCJcc)+0
z1srz=76IbBE)k-(VZ(-+rI+KYYJ+65PNgO%chK$tC?s%v3(pU$$p=h?CMRp<n1AMu
zf2ymCrpSm%N|v(J4jj1VTJw^lq*_7`r~u^Loin!S;!Go2-I@csW>aTAfBF<mk$Hc9
zN4~_Km3TC5?aH<9K1&Lc@3ES`Op1;%UsrEP#j9aWc)lx<$(oU-aHNd4kp5M);(t8n
z|0QPfKfVN6Hg_cf?X=?zge0?uH9!yU9H2LFBnUt8dgfv;@D?d57Q`=t)>*EuFrqm*
z6g1_P#i|weR-9-bYn-FB5(Y0TGER~~C}O_Z;WL)@!yFS6?-k=3bS&H{i36OrlGq6O
z=qXyx<OXc0oZKgSt`gb+>}0xr@`y2mocy{``fS*R&D*x!Ij~q^7x7|aurVSe4j4%3
zs*Je}7^MP=^Q5|hv@3TgsDRLY4|Od)-NtEdo`BnXEHgU7dLpC#e3(=`O!jD2-<?vI
z-m9>ZD!IqxdzQf(Dll1qSUxE!DUWtt)NmdS5xE1mk13Th`S2)hAYU*9ID5s`Q$LF9
z#MZTDOe9#4=R12@aQlot7M6!~gUjea<y?eeDHR-C&l)i~e!j1+czTz`Omggk33t1Z
z&I$yT%lP?0_Z6j=yqP1ihM%99{j#Km<e2U4Gnru2aAJE|2)SdM96ahB504x~(+A6C
z$T9m)KcBxj2`J@IZtF8?vJ<fNEG@n9=*QmHW}CAC*u8ZO95%GMICaOXI5*A|X+LrF
zx`sx=c-HS0{vr;qHgDNdCMg)I5z(FCS`*EY0^$$Db`WPw?!eZIo!%J|I@;Q-F<Y}|
zW>d})(b3%>)vujq52=BU05|!a_Q}0o`Wda#jythay!5Y_O+7a6PB_i3`U;|ZQEAYd
zXijx#WaRs5;}BNC2`w$Z_@YBS6rU%$GK|lX5t@<h>`>XZ?ENDBDM?Anxi{Q~<;uBV
zvBjMxeXb}nT)*B^X&NXHDRpST{|P4PIB_)ZS@q(VKmYQFXV{O2)zn7R79l7Sn(btM
z+`z!{W59uf2M;35U6$b$d{RqGt9{9>Phql8JKmX<RpRk>QVWZ#H^@#uYnPbL$`7}!
z@$#IB-+nK_8*#Erw=G<?<HdoGdPjV>Q)?cqv-H_NB}TvaEdF9_ogOS$LJ`9^Y;<~2
zE~60!fC&ckXWEG$5nbGrjh%P?<D5*w8+&*x7uUAQI0mz;Z2p6JYKu|qxH%ilvll{r
zxi%O1-ZZ0V-PG6u+vPul#*=w1!8*e(|M>jCI>WaWjJ$qJT`5eDCvJ&ZwXi4_UUyBO
zE&kh?GiUxZ%doZGeve?!5pC+hijp^HiTUK`=Nn`#-Fr7_>Vgr_)lJ#ca}t5lyH~zA
zuJdHsI^L_NJUkp~2zrA*{!7yx1hm9dlgU$}5(aC~@Y$Q(=}|(Ao+$7cu;QRxpv2{a
zLd$g(I2XY{9~9`fTusLUIF;k-@@rJb87svsvSv?&9KxDa;tu#6YkOTkTv8<L)P3Sr
z%3|RCV|`}k=36H=U1S$EE;N)ea|_1WOImC{Qe@IYS<k4gC8n9H`bjb%*)0pvFn*gn
zwb@)v?Y5h+EVkf#MN>GMIU`CNdf*yNx)YLFL4N>pPhe#Y^*Y|^y-;2~ZP+!zXfGt!
zg%?Q<iZv`BUA6rFn@JM~Den!kM+NWw9<OHg$H0E2O|L!p*Cosy2Ur??(zR7DZ96y=
zurI+E1<C$8i<v|?c1*70g@?x&&|rK82mWUO)=ybE_uNe(?Z0hkS<$AqBHYXHtb~hh
z0&*%T`7#DtHeX9ee>pI!)VV)?U%AudgEm7E!GbkdiUI^Hw9yn2ZSrO8INRE20ZNo`
z!cI=*PehOn5orSADdBQ&iN|`V-rs0jO$7-vfaj2k&FG9wWB1aVai8AHQzXd}#OXG@
z+A9lKPk7*zl-A4~*=ciQWBmI2O#ZTt+}a+uhMMzL?4DE#!BbL*yidJ4yFYWJQa8TJ
zz$p(AK=aEG@Au=gE-F;ercb_B<v!OwDl)POHnC4jFyzpkTO<b~k=FQ|u+>iE_YX+^
zDQMbeeO!L^e{0T+49q_Qn*R;X?SC%u|1gXB|G|tHUzc#7gdyyWR`fe;OuL;``7;cI
zdClSp<7=#f<6?fFU?%$Ja1#96)GQ}LohH`HauTEqK9arfaHpi$?1bgShSY6SK9!P!
z%h*GqE-u%O#w)4cPETPTHU{i{e*2jnv8kDvnIDmxhIhUcH1RpS38}HoHmhbKxnlP&
z-0`{W_){dg2*d=~5Vu*S9~l!<oPAQGJDC;!{J>3+r8(!2MEW&q%OZf!6S}&B{Dem+
z`}pxVvCJ@MU@_s}?z<vb{#9ITQA<k;yy0?w{(o=3;eih+lN@7GQqr=t;HKm7m_pkt
zs;bDgCg%ZBoH%o4H9vn>Rovn}j@8+2-+=g{O3?ocR_$0n4coJ`vjN-Zz|z<H=)-0b
z0_fWZF!E8cvEB&@3$1}#^^wc@PUrK9_=@r%Bp!5ZX7q){t8KjRiR2D~fmkg~P4m%|
z@0c@wx?i}A^ZIOgqlD<K>`Lxuu5t)P=7LCnC#|?P=a&?Mu&FYf`!6UmjAfMv&Bwye
z<PdlKRN*1Uc5)~Uud2n`Q(jlM_vO@<i>1W3u>3m${?r1{Vv?uQOyvSGM}B^O#y;!f
z%7iRd(_zLsr;+=NIM<pF0M|!L{X7;L(G2Hj&lw76$=m&K&5rZG!00M_={qj<UR+nW
ziA*8i?A?DKf&Giq`{btoW2&H*&;%ys`)Qm<PK;FOuw8QgZlTxpNq1)sl}J&$t6du;
z`G#{RM!Jm3f)8@C8%UTL5#j0K0hR~p!S2!3)ar9Lt6fIxaT&gk4G>@q*A_|Utg)-N
z)p=gD*~7?3LHqUmePw6j4G)quC_=xVHXeEOQ{$|&$G0EkVeNlTo$-I-^l53ge>X1%
z(KX_dB;gpR_glhqkxI%s+M_i7^}coaQCZvc5?HB~ea>z2sS*0*9o&JV4=E!HJaQq+
z4uT0r9d+aVjug(3jfurQJoW*xM=Ie-a;CV)`Y2$L34L|%aA*@iO<gZX&v_t^1S}S#
zEOI?Q-5qnRWJ!A6!(%sKOGt3AA)SGsp@RH!pR1}6{VsC6mC>j9`D3$rvY1=m?y2*M
zh6JdR<WRan`CpfqLymuTZNJhSD;<;4r$YSv;ZGeeVdEMkOWXC<*@Mn8?D!NaWti(x
zjdYpe`v+U%p;2JH?6K{tJO~1^gbi&*nfi<}uG9*rnCpnds}n?qi)Q!uJl7P{vf+GU
zTs`l*oZS$zvP*m!=aYhqZ-8sfW1|a+h9Y$PI}*$s6{$*{&42X-#@mDJZgU*Yd`KR7
z=$^V1xf>}r?j+uGvj449JrnEf36ExvMtVlrZE~R6Du>eqHAffKwE<L{BKhpes1W{d
z4L)@=BcGc9rOL95--Az{ITJ~_vRP8HN^%de=Lk<gygWl#_Ho0qBZx9iD5)c%q(MRx
zh!p1O|9oP#l%eu-watg~oV^4NtEzgs7Cv8DAaQNnSqIV@8#f;o$(3bfWPCJU7Kn&o
zzd}m)2ZRdqajIB;e9^u|{Pdm3&f%VtHmmk*0AEsbJy2n7V^1yuVmKMXN5&m{LBdg_
zVtBM2QmB~s;OuP0rw*<DW0k4d%S)A}oSl&h^+7P*7G*=`?Cjki`>9Q)O6=3h%1^Gm
z-;#C76a=^~Cl<7k_wFW-YR~{pzG@Plgn_)ZT%6E&fhmc=rUl4oTxH54-(nCt$sv3Z
zTk5)DT(XjdqpA4)LS-{EGvX})u;0IzdGdG|Q2=|xG<^M4yz^ysXNP)+O-6f(8S$sY
z;|X$Q@WD4es(U#B)%Oa|6GrL6)an?D3@@}ZHp^3_Zb@;RI2oUFNTB&q?D6TKFQ&Rc
zB2Qc0O)TZArE)^PM3zJE5B66Hi@TMQy;n?3%n)IFPa?-lP*wsa<VWzv=7bv8pPfkr
z7vZDQGBWv(rOhUSb2C@%xpJO0i(YNkqfUfN9t*F@a}xHmeU481D`bs~0Mz;UNeU8P
zS`uNC^sZf48NY4Gzj_(|ei{mFxrwNZJpM}fFo;qPDl5YypIEeS{yCgp^J`yivKi-O
z*1c(NOq><3hF@cmJc4-)W;<bJnJBHTMZOVBcUJ7n-Oy*5h8thFaKQr+;J1KI5Tq>i
zaS=Ar@_NAy*BrJcQ+sN=1D@s?etvlZ(=Q6YUT^ltL&u$2%*Mc#FXj``iigMjV{%*M
zU-gL-rdC;*1PCq}BE03$$lq`I9LZ)vBlGj03_sR0#MyQ_VZG?BtA>}!5zo@*+Nbs-
zEpZSNj5L=7vGj`dRb*{^`Qti2KjEiGJF>~K?!T(Mre7yywy5Z|m7A(I^2saQ6tt!a
zIwbAUnA3?H5!|HMBc~wu!L1rEJAcJi4|V4z+<X9PHCZY|W_vXkldCP*m?u4C{VO@=
zDU2F+^4Gfu9FvN}tQ3n!jyi+OB7All%!*vSYhTu=H&(e7<qbLY^|OtQ7N!uv@bg>4
z<s8HwjbjL6Pm*kK{Mk3Zol3iWZYy4MwV)tTToBuo|F!UbGXy7g#ESLt#DgoHzt8M>
zV)IGW`jhG=i*gx~LfLXM%*JsFnHv(!d4mN?Pi^6ad^Tqn{WsFU|B8?&GWz2zzV(I3
zj5H(XK_wm;gqn*r`1chV3(nph_n8{=Ifa}$`AvXj#+Ji}^?YWyoWnA(#{4eN@cM1{
zM0-dxl68REd|&Um3!D`Mr2tjcb%~j0k6SZmP5g0IA$37z!NTo#)7O)k`X7{qG5Al@
z5@eA6HK>P#VoY&xQV4ifWOzyVJur8bd|qv~?f3PQ3)yO7e(xn{4<D}3&w+j8Svzs@
zuHimF|BBLzWj^oUzYlhL3fpBui-I!?4i0w5rwIwgZ=b>rV$NqphuJ5&Ws@)laoLQh
znltRG>u*fjKRy@AKc1IcZ48F7Nz1^1+0j5;VNlc-Vc7ZzWD`JyP4kdf%o-%2T0AIA
z-BMZA%iVtd-Q8e$SJ|v%;TjRa@}m|JvdsoF`uOg>So(|ar5<$>LT*ap;fEcMuHA^`
z3QvUE2ZiUIqC9U$>@=zdT~rz8{;o%U4<0NV8A^I&)}@~3YPsq|Tp53$lKPyhIfy8e
zc!&c*nA*S&YDXY*FKt%l%zdDuNeqQiy0d1_4t8uee8)V!qXQ(_tZY6e*hyQ6jD#UF
ziXObQN^lnq@ANb6_;#c)0=WvSSFfH(f7}E)$tj!CazfuN*Cq0j&!06BPrkjo_CSJ8
zKow{?U?UP1f^jT0xEK%X9!!_JuzjjL1+089TLr^rmM@VP6&0@rE>KD5<X-Td8v6P|
z7$zjS^=fc~ZwVNr$%<Tmwg9<TR#~atcuP(!C0^6*44rCmQ#|_io0lg-MEwpQM3yY$
zYQsaQb`$CuE2=zr88dg`rT=%#&&$j?nZ?D$<CaUv0(D<ADBSNYtRP32EaHW;19&-t
zXMs2j`k8@HNtZ48cLW7ggdNV4R3*?~wjB@AZ*Ol=Xv{(u97{-4RFuFlUakQs`6S7z
zlQD4aTSV@1_Tzh}*YePVoJzISpX}7hx#hWZ(;?;D0ITd(L>IU~L~$=f5<YqJB{T2#
z)lUOtIfupe>qLPFcxu$}AXhm9r=H|A=vj%ZQ&iLy#9Tho7)z1KP$!wu;ZSpOGd@Oy
z`gcrLzK@6qXg&{Vv&vkE8jYZXfUEjrzGUu}@Fz<MF$}~c^H7q)tP16wwqUc1aKEL7
zw)P5m(>p}7i3DrYZOWt}#6r7>!^!tr6+cuW&l3j_`X6Gin4I^#r~M_`b-q1=fvkLU
zWK`^}yxRf=$kFt6_lZDfK=Kz}SbdPMcBs|xZkBPpvO)gC`5gmD5G#_52w@TB>tru}
zdhtlf%@usKM0Wpm$y^8;g^0AOX>zEvuW!d3sAWwKVgcp!r9!a<vO!sSmy8UH&0Qx-
zgv`Hn%SM1d5J)sF?H%QWX+*q?j`s5Ku#wZh>yTlG^f|Hf2;yEhvWQ9pB8##<b_~*m
zzP=0l#$~0Yv8*~qS1V3_SzLgnJ%MnKZ`g+@0x|EnXJn+9sLa=UfKHt3DdaiEps1-*
zY*5dcl^LZI=S>boa)w`AJNg~h70AXKVu?HiOF|^0PxMBZ`_*tcgzo@zIp44?(9Rpu
zj_jPnLLa%%S`lbBPyf*VAM8_)o;-OHRPZZ6?Oe<})czCoSRX$Ujo^G7vIe=7?+p0d
zXPCo}&6;aJ-vSnjv!tKZv1}pKv`?YV+THTtq#?;tLw9cSwm!sLPRw;Epdt6YpLjFG
z**^U1un2FQXV;p=^;~Xg9I2u-(2RNWxn3hk?+yJ@MdVnSk1J1hMI>r$Ht6rMx;8}t
zBFpj;l20j;@kaijdvIsz-g1F&r=DTXWD?ywXSAW=iygZ!#|=nj9XSqRLEj1ao+?2v
z+GXAzvf0!(qYsI+2m0B-xXt&2CeIUjeRXV#BAENOsI6qNxX&O*L3rJa=e$D_YtZdE
zRa6pL-d-(Uu(!Sct3sp8cnfWv-{BVeY2Fe`Iqusx`#PQXJ!f5?4g%6$yLO!?Mt>+p
zg7<Mi3uhh^!s~<6SU8u6+j}Mm&Zcs7C@#_sExf}PoWfQ#EqxlOpAFSvhW-?IgCdDi
zh=~4rfC!WX-GdP2e(aebFHIdsGVO!i9^NHpYGY7HHln8G%iEiFbS{FX#3CXq7}V#P
zh}Z6Zqwb?51KFCdmSF{sv88SWIn_NDX2ylVU_R8hymYCP%7N$V9z?$2-<^2(z@kD4
zN$BPnBU8{Onb4H_e_i~QzJ_;&8R8f}?0R4Qrx5O>cDZ$^QQk|aLudZi=T}F1VLH1G
zw7n^NB*qGxp)kF76ymh80UtNy1wo+<SWU64#;4=xv#(*+bRiQVJP3=0G6P{qjl78R
zoVTwbpjXO;kW=X9nk&B$sd&u@5w;V7MmDcfgm2}m_Y=Wo0Hb@jLrPOS6~_zJu_B?I
z5i||7)ei4+YZ0e-Vr?Z#9_C@ym9GX}XZ39i8q3|(ges2C?VI`@9^2FM;1pze&O~Ju
zwSza@v!fN$f3v$!a==81K{Vc&<~)ct*4;161qe2r92=-fcjR5Pn(DF|h7Tkt2{XDO
z5aPtk^9FAJ^U|;jybC_F`iJ5g7nwO$;6jO{ny4UQjk$L@za{r(4u4W}(c*cR*Y2M-
z&FCYz)MK5uM@tcH^xzQha>^p#XCmw2If~5h2^}38r+)t&p=EP~Y>p$EYIU;X9dwPX
z8Muf&g1x=*1;T_CK;q`e-`o#JtrBwhAY)ozdYkYU-jd!YQt0%WZa>h}J&4Q-t*>?Z
z4L4%}q**s76d@5lZYj)rxjXQD#7NY%AS!F2JMiu)gBf)y+(0`|Ybyy1`0MFp|Djmp
zwuc9d&~~h3x35mTiXc8^<<r@MdXVQFf#{D2+0r^AqYPo??huKeHPO!Xe|d|YX`9Ze
zjyD?8|28%cM&0dF>#3yJsJjQDV%p?jkyEA%7M-0c?_p+YFvGtMzuQ;r)bXLVHv06h
zuDo-4&BowKHXP;ItGm~>tmd6FT|d=7RYRY;uw}lSTVqgqj+?vQcgr}z&wk|Yi}u=1
z`&s|v=ldIx?=07|Q!77gW>)m>*eNrU*o4}6YVqd}^FCF4{BX=aIKlI`*e)^g2v3#!
zKYBLkNsKbnhd49+kDJ5_Jdz*UYiAI5b#L21$<ERt|I!b8htm7l{R{Z^9rl}Cvhcb&
zGjor2%$el~lo826ssF$zb^4Xgz*VH{Nf1G38WxICq3;Iyx|HJNDg!}c4Mato5USqJ
z$VfO}!aE_NO7h|*6%`et86^Q=s(xx#mO?hXuL>`>zk=wueSCSx&VJ&WKD!Sp(|e2U
ze4qd$Y!);${jp(310GUbq0wT8e6t7<UuX0|g~d;HuCnrxKsjk5_0LD<4LY2Z#tCTu
zN+st{*ON`e;^3pQ^$#ddQ8iSy(=K(@t_#Oq$Nf#8Zn6E-ycN!5lFE{ty+|)kUI92u
z<FY7`tck8TTE@3~M&U9L@jjqfnw!@}uq|s6LUVci9p3`I4U6rOcpWUNF=t82i(QGh
zQBqPeIS9#t+Mni8YtVfZKKp~@Xp8TBM$mvfa()`LX(V>mZ*QZ*$mf$oMNpJYF=A1X
zP}N2w;`zTG5eVbA3oc$c_n?6OGNex!86n@%F4!ZrZ-_Fn>8ctcR*U%4I2{)5$7tjO
zKCKfqEPgCa3SWpYKNymwoDyhlmk1cxe+iH%+z#$AkgLH{L%3hkt`ZUCyi-wJg2FTx
z=fV3yUZf@o&SfZ!(cl<UPl|DfJLGN-RfmA%uG0OqN8+(*qKo$Szt(3KfNp6frAjIy
zF1tjWMd0Si9y(}Y(Ia8S+i@=qHYi=Q3jh?8G=Mg7H#F<FVo8ZeKB-xPZB#6y7!RvT
z&~BT{FuL5*^(<+rIW`@iNJR#(!UpoT>I7poLL~4+-c15ID|J)Mw|oiVnTyDSIZxiu
zi?Q1UQ<;utb<h>WJC6_AgGXN%P@E4ivYg~@cgf0*LakdnOF-|(O;0ZWteTpB?(L07
zdr%8AJWO;aD*##@0nhSDX%SJH6ZIx3<s-+aj`FCA1<o88-*QNH0WUqF$a!F7N00s}
z@TMmgB#C@Njk$CGH4!hk1o^2U)RE*b*U{sL0@{RR$+ctkRuP+BI66(d=y9l?vr`Nv
z&P_8Y(24e4c0ypn_4)!@@If+fetzP7pUJt<Q=2^A)#bffI<iqtWsSA6vNF-m8b?j@
zCo2!Tdfp)8n^4m&(J+M)kgeyW<=cn?kO$w1Cr5CyV(G>s9$;?@Abnizf5ap_b#%J&
z5YlI11U9p(YCtNj6Kz73Ro%!RWN_UhHL;LyDoviVv9;|P<cP28&&H^XxA=+c<O7!(
zaVN)lI!I|VZNQc8&#cNgiU_~kT<iHYtb<nr0|W0Bo7|rL1`=wYCb9$V83btW?nx@2
z&@7MrzG7w`Q95)ixfK}^p{nO1BqZb~@!Swt^_HRt@VasA#ywC@-DZU%7x$rJy$Vu%
zP0SpI+e1tz`C(R+s&__4j+X-Bzk5Y3VyB9|Q{v)k7p&g(vYq|1)|AE_^Y+mArKwwE
z3nS+cxV5EK2(}*{rX82cDwa@X|Iv5l@I?2g&!3aZbDS1yGD>HY^kaGX$v2mLjo8_^
z&SvYK`Wi~~qI3O?Z%$Asl#U%sHry|K(DF!kuwgw>a~`y_vnyjbIXaT!uy}yb$x@<*
zxF!5r_sp55ok8PAjy&GA1@tpmLuDr?C)5k<js^C%$AmXS1Mcm=)3o<9HFZ{f7RNA)
zGv~Crx_X)WXh(REH(ZE7riG~@U(`75#rnl_LB?5+XbtU8Pi+f%JoC}x$E#ho5Q6*y
z1#4?OtdxE!0Sv4%{CsH9W--r#v`bvC*tj^!3B}0PY|PJk7A<#ui3IHY03sBf46j>6
z_ypve(`cc(m+5!ACiE54gtq==Yg?G?gvO~QKGqeA^z{RKB3=ag`%~L~ukjUGiz?K*
z@DZ|@NpVrL($tVr^Q*UuZtGfQB^%C(hUB8BKM^`c61*6Z>cR+h7cmsFtVEpQfjz-;
zpfiL^Q@Z+BByd```pUhY`O1tGRE>?7x*2rr5NiTny$!KX#wTMwt@DVh3HPprXI-h}
z>a6G35$Y!~lker-Tb#KUposQ@@^%|BPo(}Pnv$c~3q+L52{l4IBZc_P9#vmP$dSk|
z?_b2r^rDpDgiT;^fUHVx<@U7d8ah8eW$X`urr+jEY_`{h><B?yn7XvqkWxpxna}%+
z2vhjuM;uNg7QP<kkocnF<gxnt`hyfnki?s>N*9*Z)SOO|?CI$tYgJB8?iMTbv83%M
zCi7`pvnAQhlnV3eSI?{5tTpGVMuk5i3FF}pH!cO~`%=Giui4=LLE`#|4BfmoiMPP5
z64gRs_FE(a;t`d!cXvl$K3I5nxF%F%_QKT<l+<i6Af5rseYMs1#OTv2Yg(<aTFcvv
zdVBS>BZBoyp``0cuF8kPxQXf1cZV|BBtTR%Ited+%l8%%BsEbGA3BEj%HpX!Jcy|M
zwgF`n9vxU|=Azxtsw_rUY_+qo$pw#K7nyP?NuI*3YPgcFhkAw9#i7ini(SfSshu4i
zWwh@cyVOF>-CR;$ROwjwjybR2FB5RIyGztFQSDRbmQ6ur*E`hCsqSsHoN``2Fs89Z
zHAr7<Lx+oMr>WhZ^NBUNfocBVySUuxEinsk3jf|qL`gAc61eo$mFvTXkoNQQ%e!oQ
zgXKM0v$=>SDVbJ+$__vdPM_P9r6!Tl^J#|Mnv=;0%HTjB9`>8xvK06V=O3It?w`~1
z*=48y5yC11(!l=rU1qly2Q))1X{@YFG=0^@Jdo~w>EwXB9lL9(cGE5vpk*GQ!!js0
zKLunjhzSW<M;0y-3BfF)(80$Ag6x}YrT*75i5&A0%-)-xAS8H@QfWc}<%NpFuW=ia
zU<J~?`l<!f>GB(oK2ADW#o`5i9xwZ)!IF^LsjsxD&NyylH@mdu3Q>ALlC?4@vn3Uo
z#NE7Mr0DmBR_B!<;kATtE_zoAHxS(Z2<37CmLj0ToIBJCZ@1X~sRf|aj_|UDe3~)7
zb244hPjOPL?$S{W)I`EmZW}|ArUtv<JjHJCL5*xahLVhNSy>tXIu&m(A`c}pd_w+H
zyF|-KWJJJxFE%4#@rhuS5KGW?=n(;bBQ1{Sd@}=aH=@O;s7Nj!4S=eN)LDf}gsUHd
z5S=hO_+R(1OSpQFFjS{*j1eMbN2RAF5$e-5M9D0^UL@wakO{Vqj3=qygjm{u7iaFf
z^k8xUlOPbd*0?T6(DM<Bl3W6*RaODD5>Z61z_+p==!eT`m~x4bol8F0HzU@QeC4~V
z0onoo+#h^vP4ME+)&!x4xf{%QC17+q{c`{*Q-9zLaRvTe)P~z5={vYRKgYyxS4iFL
z@R|U*cDSc)x+%G!LY_`J;2}ssKFC*sP~_z0hf=eMLKbCX8Z;i<-~J4UFAzi#im*43
z0MNsO6b=xiGJY9J99mHx2_ng;ptf@zan-1u^|{M~PiHqh*xOiak~r||V&|U-ZD)_d
zLP1g#930zQOou|=`rX=_xo;OMtszVpVtFN$j;tY-ThOM{GI;#I`;3UN&w`oF-tvPq
zlQC3GygHCZ&w@`v{3D1h1!qGIoX&*@9>=S1QW{rvbwJ9}iq1s^&?5>L<*a8qukZ$E
zb~NUkRJ6IKrzYB^MnKXdsWklYK<J-wwwS|fI!D^3DvmOh(q&bbCY4hMLC;^$E)P3e
zB#Gj;9$Y`uVQ3zc_p0tpj8hhfrokc<eYx&M!v0{D3#m&GnHmronwr8xWPJXU<p2ox
zk?VZ98%M1Z6$R2Gg?1vGc9muVe72%4$`y;f06GW(QrJzxJ#fW%*|BCHpB!#ij>Mng
zKqbR%e(f<LLWZFz@LIK#XF5GRupo%4`WDl4Vz`5BQuLVk+e?nG%H-G0+1f)&hT*6S
zP*-unCJXK_kKB?Jff2>2(w|hoVb|GxGH~ET<xM(S7(v3!!>KUWqN0YxmBF}dn!Q-K
zjzZ^c<(2&t+ZyYc&-Py<@jofSyVA|u70<+mi#ALLknL{9d#>3HwH6cLLDuE85nn^+
z*_)LgafRZRD@2Z!OZrHtJ=|LJCB-5ZRKr+#5EnvfVq88~_-(k#Ba(l~a#cMkFDKW8
zfbTXyXl73aJlg;&k>#gzjf5O^dqAo|`L;I>7fIWbu*Ese>4Q{3E^G*t;MeV>Eoze{
z2d^zwtQPq;SHEDcf*^-TgFV8#qV#0|sV|wZV}YxAxKjk4-SzZzE0K?OIM@mt>*OHB
z=(nGy(~B_zgGHr#hmQO;)KP>D9&eeubmLbV4E>vt)G3W*(puxM>w^NcFnPtusQFmE
zUD3mB8)A7cdA1P?lu=pvkWylj=vH&$o|?1`mD);E@e$Vl>mns2x@)>5O|P2k)qsTL
zgTID`5#diCQ?gO~-$3OMT|<s@{wmXdcLdf^FzSg#MI|!YgF&U&R|+jpQ+`Y0Fc7}p
z9v;XC<tJS%Km3=N5k(i$qyU+ppYSc#&G~uTQtOrguZ{C6x=3AigN^Eq^s8;X!?XmR
z1=dW=;8wS*C=T9B<4$z(NJ&C|mLPzWt>;#n^)N5LT}Z?!BPv^X+jpjRVQFK1D?wRA
z;7^F?;4Wgd2Y~a}Dh_z659_S@cI1B{vf@3=>?D{5QtN4BW220Sj?`|7iXtmR1P-JU
zKw~<^@az(Hx(j+1gy7%j0N!G4+;$jV01)J-oF_#shqI<B9wsqIs52{+j6(yB&jGxh
z(YO$6ghVxMG&i(VdFVLJQ)ND<NR(Y}z9S1(4k%DiGH3EigdOj}_6@(KMUzGmw_vmt
zvj_d+atQ%Qgb0!@9clxzZbPyp#jc{S-$$=Q7^L<m?}Gry4%OIja3f(s`Y6*Qtr}Pz
z-0VlZii2lX2)=mBitl~MSJQqj3PQz4Hu7$|`58C_qyw@wtav1n`*(W5ykGnjO6^*}
z1V)||h_t0rdoMfL*^N@DnmU8`uk#LwthEe{CDZPndKcl!WDlZZJ1TFOUhAeQPiwRe
ze<S%c-e0$laI7(x$wo=L&iMvuX}57fHAE3LqYZE+grzOYraa52CoL~fist8%13LtN
zrL5WdNRWSE@l^j}(#8U(^6`b*3>C{3AeZt!yJ7tY8^W9;-;*iIzVY+-nLqNIRmH~G
z%v~Pu@_NB>i2zxv*xF`Gs|I+EyBh;!EFx?DV>RCFShlX7_ZGiw`KBlQw<nD}U)9J7
zcbf<oifv2h*tX8AH+YAniGJiaN+`*9Rwg>!6kFD3-<fV8^vvqtjTzbDngBic_v$`X
zyio`ukcdv+&u2HK|NX%HDPQ~t2%xDSI{)k_gsdp0inCeesS~XtEnUI3^JW^z+uBw*
z*?*+{0dR`~1AhdVwY6suXQgIq4q2zh#>QTtVC=}}%n6NRM5jyHuBuIw{z;DSBf`S+
zyEWXimsK)MZ9>hJc5aBzK3v1y`IBed>BQUqy)hqb<ZJ!?FWMQ%7s~(qs{GQWOQf8@
z#US;}@~#sy0o$%_C@f=`g=15YU>6IZEF0>Whv|>MLZGs_mWJjjJ9O@^L8|W{`xA1I
zt(Sa5($mu~P$C`L%`7ao)za2;o3tga%~>o_OCur1#F(84cPkA~O+sE6TNB!Mc;sS<
zS;I2)_50BZL`z92Z~Z`)IaP|DS%EB4q+_Mz`ul~$<B#a_iAP4V1?Sv-`t<3kM3bXI
zRWaImj+(_YtgPY!0hRsmSna*NxYI&GnFr*D?(VI%G!~0Ro)Mw^LAFM*+vbZ_R+6<e
zFl6LY5;WD)dV71x52OGIX{O&&wb<RhNt7iw7YVKA*A1e*D4s_mrT;iEI#7Q!Kt^jM
z`c)R$7;|UhioeuF-^J)(<V^4~z5OYdp6a8ZU$^3o+gkbiHOWay;FoP&_};Z#(Gt>N
zX~hd`UF~yp>d_p!>6^VQO!E53@Nm1@jI5Cjv?B6S(~~b<WRmFVqQBmnd*qBl%h#P5
z+g-M7^(?6C3G!JlOc66?m%6W4v{L1GiQP1pF$)v_DWF(;WP{kPjxOwGOt9Pr-m-L8
z{FdbX8}9tp5^Kw!EwTP#oBS`=?Y}|S|GC6JF`N}z8Dt8c4f22>O1^bioJu7Bf!LLm
z;qnh*$2lz|?#fG8A*0cPRO4lW);EsbOay+NohkV;AR0Zf{u8SDQ8=e`$ZO>Z7Uw&8
z6&_Z}B`Ig{j!`zNmP;X=4xZ8HyFsl9t!uVjJy^KivJQIc7w&4)MX~?H^Zsei{|}pf
zTR(}P=8^^(WPC^hX#myYB=t*d7h(U#KHgMZh9+D65>`&=Hbpp7gR1nVTjD%<Y>NwT
zA5=ti&SXN|Q9#tVZ%auZ9;6`WkOl)Dq|6wl_aO7B;i*AIEkN_xJ#xI$<fCvJI+hSo
zn34CMjfBL2Sw4Y09@xbJVEF=4Dnz8SKt=iB7}JZ`>4+hkh(78Z4}k7Vj+!v*UnIPD
zw*(TmB=lM!D6<u5S)|uU(Eu8VY{;Idhy!e}NUdk3m^QHxymjjG9Q=bvp9d^5Ne?EE
z7}^Q+OgV5pis#+N=FjM3w0CqAO3KQ}Xuq2F@UrAi*@0*<f{Q`>5uBdxKuaC!qD;vl
zyF|$&9STST5a8Ba^qAnatU9uBC}q?Qyp<tn-dR=*=(7zWv}3l^Mv|raCP-(fg|w|J
z%l=%U)%RsTWnNc|Bz<thgPCC2W3rch)TKm@r|IhG=p;$H_|KUg`8U7R(X;cp2H}cO
znfpk89t@lFApsaXfBkvov_JmljVjm?m2)tj))iVh(;0^(U54YA>jHyCsMqu&Y%iKN
z7&Ya3N&%R{7qyRYNp}+j>!1!dJ+(J<ZWe54KPgl(`DPd7L%%6C1e%G5>l0=m8(5Hd
z2U0m*O9SX3rXK}i2iXboZhUHV<kEs&B3j+XNj+YYWX0a$<dl>ZJ!;Z77yi|cIR&g0
z3q>~k(+15Wc<q`{_lXI|L|E-&3EYK{Z;k=_%-+$FUq5tfJOYuq_P`Czk!Z><&`1n@
zNSgL#4Tk`W^pJ%hP1SaHytv==?AoH*&>obH<eDlD`IGPlI&h?tJ>kYqW!hWoA?Gwe
zx~dUv2gsML1M7I}a<<$Is~Jd*5hc!8-xRlxRCGaL8C2b3arE)7i#LPt7Wps*LWuKj
ztGjfbB;5{9L2?gmNkTi73-(8hn3Mh#^htSHYO33MB|Uq&A|HT&bkLiCqLy1MB!Rc_
zUd+)EtYTtfA^`=kS#a%&W|1H*E>JS)^dh~ZS3pzj>0R-WM@2FyqdB!;8bW~zT&SwG
zr}r^RdW%}Fd}9qU^*iayOsHF?hiQAF+BvvtEspD!7pZkEF;vrDRQMhQc1I7p0_a8D
z@`z%S2y1fmm5l$6Rn3~6365v8qb_oO=5=ZD>g?#&nMdJYhu(za-vvr7gF&7TY+tZT
zO{T+D0-NCd$%IoP<>lqU>_2vkU?RO!26!du14zko(A)=_96tjUe0EPwT@|b$V^OQw
zu|y2u>J$i4X^J-<p7-6<{@35Wo6|r5Xs4RpGT)+>iM=})uHJQlHhMqWGyad1>-5D6
z!^a5?4^dA|-+>V%c9A1PH8JOJ0^RI$?8~DHeGck`Ycn2a4H2n@G9lA*zUfp?J&_gC
zeOr%KO>(3miG3BFxtzkTt$M$tHx|7{R%|=7j6c4J(!>h~G~*(X_F`YQ!=@pMmR`*?
zHmU`35f&2VKhmg{^%-d$VF5%M;8;Gg1z|Ul`VQ2Tx}vqfBBjZGqUonjz2U7lt<cWW
zMi=C?nn`)GhX;~M8;STgxXZOozQGfe!{||^u8s~*a~a+K`9|PtiT(?er;bek$<%)U
zks%Ppi=HA+SAaCdipX-E|Fy*R_SJuq7exM|+p>c^&A#Q4D8?p=q0xG~zCq46c2Clg
z{qEj6BD^Bxs6LZ-w|#51+!jtVa7q8b!2J)5`Ts90_+Qeh{~ePW8T)D0D>huX5%M!G
zXHvt$9CvaI72ca98pp2R18fg?N5ZCQr}O6892$O@j-e1X5Dx@ZC1NPJ91=r8XmWu9
zn&Lfd)dJzYX%{G+oso81i7STXMH=yiA~(=qsVMZZsT>R@e9pJzBzz8dYjPUmDI|}{
zJ-5>l|8;9%SCLCY^^br{T>nro^u5ClCdi!Bv~V>0=+=CNEmuG*RJ7Sfk&t9aa%NT*
z^_xL&S39Smpukj_bw2SlFZS#%Y4oL%#1mqwpfcp<;O?8gV_M`S^?sN<Em1MK%3|82
zm$v^g9J>8m?j>NM?^#omuzG(sx}fcY@8cQiF72UT!%q1`I;3^=B$qRp26#@S%2)Ih
z!Cvs(iJhH551fxKc`=M6@y0=Ob6^mO;eK@ve50bzybHX*jzpO&`Yq+@R;I0`S89?j
zo(xrcxpI1t;8=+NnhxYNuU;^wZi!B<34J{E(<>ymA{7(qcl9Ky+Waqme72vS8Fc=r
z7thuW`+sX59Qxn2lyF=5Hp<ipMLeM)BO@k9@#~fJcUVgeQ;lz~H6vFl$#$K==X->}
z{w+gjK&6@S`z_$OC>tajJe!yBkRspz1ay2q{kKfnzcN4~)X*=!q=^|iy{#e*l93SJ
z$jg19PZ(+0iZbPZ>ghWF3f0%_8>E{c@`^1a7ML<G^xY7DzR))f*_<Zbh6!yLg^iXB
zp4S|?;(5b^L=bSsI~^Szo07_p-6r|#UKGgj8nX~p2}C+;QS29(_U#r&Ukmc1qoN%!
z6i=~DKmid30i*t@FafW_LzgH_3{K&#Ma|U6#r9XHK>(P0bP5x)M6X28rN?%!6%{2i
zo=4M{*K~PJhxD5WY?PI~{!U=xS;Nzy>;qmvqtYNiCX`s=^>r@?B0fP%zyO7hx#oi8
z?ViCRYu2JHbzPI>ezUbOuPEiJsaaKHo^s(7BZz@cyg9sn({C8wNZSx9o2_~B=+P0A
zi32wmZ5tZ`aA`g4O9WjPD9EA_JA@7z%X^Bj1<4Q4FD&apLS2nuNDyHFlvJ;{LlAzz
zjw8PWBW47R1`MQ*PL@#((Ul;YP^4=PHA}t#F?U4AeOlh|Ed=>@fdd5N<Q|BTx-6(2
zW+uCS#F&!kE41jB2arUNg!i=B9#{xkj=zjO!-*|x3X2-l5FJ{_LhIcoKOF<;TTs8p
z)+;B#A6T}xJcGbt5RIgdBkr&RbRO(1G8&O7k`T!2lx2IZlnTDY-hp~Ayb&fkDn*ji
zrru^5BkQBZpph<Z7bs{U{%R$JZ2sbhZ!o!9rKF1&(e09-;oe}bPpAkj2Lu)a^>AEA
zN5KC`SffRSqd7X0NKBl$h>)q4cdH8&$bAfwU25E>IJgHu9PWW;n6EBSnBygO+7=Y}
zG&DFomF$+*0L}!*41O()N3zZ@J@|aP1=SxNK#8K^!}1LWFhFJ5q!r;UJqexGTVipL
z>6H4{_kN%0uP05llP6h7UTGvM2=Zl-6Z@?Tr>-Sk)6p9Qf)8ffrmzPL?k8IIGLlhz
z!yvtd$Dj#jhCe2&%KdytXJ>88&Sz2F1x!SA=pcfUxLdJ_JziDF<^{@CWIteJqpaaJ
zvl6Ln^tA1~s_(ZQ4W}oY)f{75b~%srdsI)T&#Q_)ee%mC-{&YsU=DcODd$#RV`SKN
ziRqo#fi!8G&ldQqcqClr={#5fdUf2*v6jgcM)GTU?B-Rd#vh~=lby?*uM|~J@=;U6
zM2Ru(cJX8niaLBn*6YL>Wa*kNTCm;(fwhGE4*D`}%mSzi{&Uotr&xJdvXjO;Wi0Df
z;#TCUaEm=q%8skKqWCT>QnD;j0dAADT?5|%?;r0t(s`Ix9<~44?4B#Hbw>n7Rzr)7
z!b0SE4lbTYI)*DNuetns2HB>uIg?g@Y5_2AWXs~-<2jQk)XZ#@Bm9Vm2N6gAWltju
zFx{mk4QtFU%>{0KpoqfVAu6f}J@$GNp4H;hBE`|9i1jZT2W3-JQ)Tlk6KHSsmH?Fy
zrOnDcSH3P9bpfYiNFo661in_&mO)l)YJ(YarFvh9T2xIUeLbmzM1hGzdC#92m|1;{
z^75rfVgLZCWn1v(p811)!*=jXY2&Q{JdGg{E?|EVRT0T(<so}E*r5C<>6@igdrc3-
z_~nt@4@ss6_3d<-7=EPa;+XTzM#;v$;YsHH6H&l_2juvF;lBu{Nu@xhgo3XZpNxk)
zqbM9+Ltbd+n$REqSZI-|7q%^A1?V>$M-&y;qf~EHMCr7#uRt?VfG(S-zTEQtGTs*C
z<Hl`sLoA8hW-f@c)8u0;$lJP>=^NlQ6vw|3t0j&t!jlmaEfK^t$Smf965xG|&e5LG
z^Vy+R=enfxT99+P<RaubNCF<YPjn@;FOX-RARn7i*k?#xIJhilbf=H8+2d*bW|n|5
z1azdP2yKY1G&7zkpF-`FD|Hoe!p^-{gQB2+dIdUTjL1Iu`AJgNx!XvD_c4^?WNkp3
zL%Ik(L57*^D_+qER0T-&8;P(_twAeH@-fM)E>@bn4EYZ(dwZa{KqoEu{220ef=G*_
zRNo35mK5v-F#!n4FOvSDqM}5q_cFrzn5i<4AwrJBi}VPX7NtEgsHm*$9dseJYha<8
z8q&z6Ae|@D6xbD=j3>FIwK6;>N(stovcQ$jB+wXcSqLjIo(<yp42Ag$owS@OXzcxq
zi^E&UDu-PBrHpQ5XMTZ8DI5(A2{}MvqB>!6Z3E5YBTaU)VTwZ`9Zj(#htJEaD~_MH
zv9l{cbybKYqlP66EoB)^)?A4We|{KO$DVMeAPqU%Q6y*p-qo3cxjm0tu@VX5A8A=A
znLTEhEt#%&4EG`AF6my(uiKXXqD{GFkSP4(f&EF*`s`t|yhI+t_$RiImQKfaFBkE8
zO~O_Z+|Z%1q$Nazb3s{|v~>Q%Z$0Ufnk@+<5PMm=ko>ueR`w3;_<0D>fQ1T2jiEtV
zju3+M=ys;SuAHnfT=JFFC%}t)c&tRRF_yPCDd0iHfT$?=*7QFr))%O53S5R<<sCFi
zB=_v&_Vy8p2=ZHE`iBi69&PhUM-7)1IT<A`Y%htkNb;Iwd`G04&J@yUmplV{5_^LR
zh6iEu=?dX5XpFD2W0<StVlKXr5?!E!CpjEO&K+=CEBD%84pr;W@z;}}MSW|D*}a!G
zT@vt*snCD30if62e?154*Ba$j`Q(ow{F(d5UKCUjveks_N&7sVex-p_$AQObBAXOc
zx(Xm5audA2>yT(te7LxoY@NN3mV=~M=M|=qOTlgC=6Wt|J|Hr2d=37thjCO+P6}Oo
zR3BZeKHv{{RP`8G=PkE};qDzYstuf&Fr$OmB!oZdY(V6yq?;_FJ)hCcHid!YI2Q|=
z*%mDqPI^zhgJgGi*9O(naTXDTB7ts2jwj!f8Zu&7@T|K1j7R0n#CnIUzD^^_ws>RR
zz|d~pJwZc<x7e0`8cb7r{v>GaMUBqWW<Tj7&*(haEaIalA#iQ>!dpaC`e}m}(Grj<
zJ)*23-SwfC+`>Y&JWmTn=;v<WQ9p_JuZL|Xt7}eg?0{U1{7I7d3uVD$*ewmDA1lyg
z9*939$WM3@br{h%Z0(}>@MWbAXS@~s9_gnx*lGBvsXkIKr*;=&tLlZ`{;8g{dnGMP
zL&C#NZ!$<A&@fS%O0+%EjCwz|1neA1D{LNqNLq^%+qvAw2&qWx%G0JJXUbtJjo|KF
zCPJyt_U7>O6BDFoTcMRzX$v7iJ}PNG7pR;#^~o^>)@%%V2AYs7$i<rlpanC^Z69Q0
zb8A_>*#gwo5#OY?y@p+{sYK1=<2oD?%*cW2J0!MO(ydGA2L(n&6}xvY>xz)B=;0|v
z@wTf5TQ~z})ZR8r_+4?i@j^AiH0IZ>(3<H${y=($V-rH&?20-L?X<|jE{KQFR&qB=
z1g=95f>r?5Xvy|4K9ZYCFYwX#H~!Sv!0l-;gyQ?4m6e6X9asbEO}>cL-U^|PCFM5V
z5xL!~?{zn8gtnC@2|M{}EsRL~F9_^w$cn6|24UVww=}2*d21F;4ZKLJVIR=(ntS1^
z{!6K#8mo~_F_H}Ww{%c-#N(oYYAkPHdnxGn(1>GQ6WTs|3s9V;NC}x==h{B13n#fp
zBTInUJK~$$wpX+XZHIY{rBV4L5X7!)YjWvxqL2U#Zi{rmAcA9|-utYl2fHV_vX=Q|
zDfw*U=ai>jQE2n~6cm^2@l~-`L#)8`m)ZwcDp$9Y9+<>QoIJK?1EFU-u84t@-a~3#
zNn>eeQbPvq)Nc55L$Zpn+;hp_5g8+G0Z5k>(#Y3OBK16VbSz#x@yKe#527VXQ<FS8
zn(R8XkO6lwP@u$>;_1xsfK7mPJiQ@2#^7kw4I}l4r$f7hoW!K*8^_Z$JH~g#6bM%}
z8mHD_he5L6O#aBv6X?-Mw@tuABIYE26oCjZ|F}M%{G|Y6MsIAL9h>b8IpS^bWHRI!
zQrznrxQk2_f|3Fh67WnY)&Wvg7HCpHYTJla(8-yo@bDmiQUzw2rOQ$6Dq>x_G|~5w
zmitr)%inq+PoRJVQ6xq}cIH9nmxnK~6Q~i)`BtNjs!dn3A$a>%=*RnO2H4f4a|j+5
zbej>3`2f^DjyH4U!m~{I>0C$2Jfr`sx$kht@_*mIwM3<<AtR%*Day)7-joVSWF>@z
z>`f@;Y1n%!BwJ)<mLwxeNiswBo`v!|@7|y9_xSw&gRjGJbacei^Stisb&c~nuk)I0
zGCV7{I+v-_<eWS=XvW7@>|YX6H@z?DcydhshFqx9zdhEfvlBd3e|(^V<{xUG;Z{J#
zA}KU~Iqu}qLMtB~E>Q@(8X`D>8-A|b>zbn<ONn@W(ko4qSbEYQtyHWou0Fwr8{|5q
z-yxMOz)>~^2Ka`o712#{|MYvq((@FxCg*Q(K2f^CZaQiGZczh<O_lMA>F3Y_If185
zF8N95UJR}OG2^jC0)pR;MP*PoT5Sy?XGDz1s8Cp<{N_tV?xEk-b1md_#fsE%^RFKS
z<`)m8x^vy-Sjb>p$}8t6-NSvMd*bFIY0eZ1=2G*MJgk*%nwGS=n3pG>sdaPzE^<`R
z(lblai|Q6hw!<<fIV3SLP@uOI-}L+&+#wkPD3s@hHM?~N$q-D*e6>q^zLhuF4iytA
zTTh{UMM|#JDKcIYrz$z<C#gNZ;BtD|I#pV4)KqF=Bc$NKMENWA2#IfBp+-^m|Cwa3
zm~=!4B-0EEWyR-%wuJ=e-w~HKSXrUKqN$nL*_FPb^zrPIU)zsSQ`gOEE1enB6q_?~
zKjS2z_N2VC?IvOb$$n*f(r?1YQEc)%bC<unqgt9}=&g<t_RQ>K%>wTyqg8*QS+|P7
zrK5Ifm3pda^U*bT9{69A-#4(E|MV`?2T_OoPZ&{*qn?^3^F<A;ZR(r3UT`D%#}3oL
z0rjW5%Q8NntJi(_W^=gW2OXO|A~H<!_abMP?{s%;h;W~XT`x7+YIY^t%XP9CrE{^#
zM2y&ChhAWC@Euf^tQ;I~TEG7cQB0PVm0d%8UGXb0X<{a1+6yc&ZzO$jM(b_&zRep<
z`){ISsQc}BKs$4BU5rIj_gIUMjAeL8+Nf98!q4sq1Dgl6*It7>IE7(VeQ;=+@4V{m
z?F|SDx?NNxn%?dXMf{)Os_S;?0oj>C5pd~eH!v!K2n-B7e%M+>+I||NYD$y!!FHW(
zUm`6UeD6sQR%tprI}>#kV<6;w)5(4rl6?%!no8giKA;r?Gg<>y=Si$9`Bq>t`Z2ro
zk5fbG$=aVQ-*s{{^j4lXJbds#MN5m8xc>Rsb~+|;ZwMESwHI#H%2Z#9$(c7Rll<e>
z5HfJCEA)mo(Vf56CZsr9zR9UC;+J80?P83iWg1V}6;eQnT}tZ8h|IHLfE0d`t_xQ&
z>W0oLt=5a{UI_^YhU~=M&~o}(Xvq>KV#(jRL-!MxGhbh}_cl?FKPLv7;<qM#q#&6t
zK5<a#K%t~fh**2v14f+R&G3+yQd{N<e3(k9<TiSN-hLGvWUw-0)u!=Eep2pB2UuBO
zefRO)_B!*I6I3_SR<etV_EvW5`DGl5H%Eg&kil0;^8Kg(Ike$rTdA1)sV`orxkU9N
za6Y@dqL|F1aV|`mmXDKD=HyAL0`s=p;AoMF`iJYnbhG-t(#%4ZDo3R}ME8ufghP|!
zpWa!H?z?yI5_J;!XmNUj!JybaH1C3e%zZ$Q-hwN78(T@5^?8l|+-eBvH~;teUaYkV
zElzQE3>Wc>lpct7s}G%h`m(N}!TU<Kf{V+`>{HX^BpeS!+;3wQfj(d)`Y_XcEr2dU
z<dEf!H>F*TDkCsAM(JCO&{*6idzyWRWy$z)az#lq-%um%T!Dh$QIqyr5tETq2?b{r
zuf%U~X|JN|B2-jVJjdG$`#^aOE6?b_wvM4sDO<(uhCBgQh{dYg*c=TC4mP@9e^rpk
zk>=={c?j`vn~{gXhlgM0WeT-lo@sRxh5a7={$8Z}4R{5l*+xX{t?t#})>Ss7-L$C+
zwiy@@;7Orue5S^Y2R_zSwjcUR)n03<1#Jh;6~;fE@ULmuAM&UveDJo=eD%tyXz9@6
zUtx2Y5iy+TC??;~(&D85)RYx)g0;9_RVW5?ZnSW}sjg;~lIqew;bqkj(hFO>sZC54
zuC)pKdze8r4e_(*%lk(1)$Orczy~8jeJGZ#h9wlwTaA3?N_X6(Q*nz4iP7OK-IBM4
z3#%bTVbdC+)Oz&0b{!B9*oq5cy`=DZ<imoK)_}R|p8-YpjV~O|43B=2v2^|VYIG3T
z59QIL&BTuiHq^U}_wV1wU+1i^1;jC2m!ipdzEWwk5YD39Y;U4%QgB4s>w>e#f|CTx
z!ba99XfXAH`}mK60UJmI`qED84FcG4V7U(Ie(LG}fL;6n-F4J^v~6u|qK*?W+B?&h
z`;N?RIM_G)qqygsdu>xw_%SIVWh{$GKuj9?@OW+9ttC@a&C{nh;)z-RUa}wFvy6e%
z?wh<`HVq*?ur=~{3f9_$|M&5HZ^ZE!3houO_$Dl;ppXcmfpWT<Y@m8nfR9cAy+ZGI
zv#{Bh&G|Q4ZY!l!VcuyPft*!BV*l)5Q+V9(3&FMSxU%3#+y*MKmUH!lxb47ZOqD%?
z^7B;;a=&}`&gy5Cp}nc=2`<|LNe|m(sdZW<{l0(Cam6g-*d={2=NI_YvEueC#;@&W
z1;p@MdBsX+&d_+y2xvC?J(%Xubu6$q-ft`R(^krSyX;kT+`ksv9{yHn=?_;dc1+-^
zJ(r$IC+xSG+RIsqMdR0h4$H^(6+`_Jn}%E1iCRZgt;vgJu8RdPEfy!hX+`ZEE?oC9
zN=Dq+CYWc^<^`YU;y0?~x{lz|l6nn`l<e8_U55vqcfNyAi63-Uz&J>iAL!l<*9L_W
zDgxVB{9x?ssHsmStDa16c>>VT36ro1t)r+^*jN-sS^7)EXm*`EdGb2OCZ3*)yp1MY
zFG>i!`IJtJw2SS1XCm{)xd#85R;_kx3SxrQy6pI6Omf~YuxK|x*A86GEvPuw5|sP*
zPbw<XBL8C!Kcp8v%W4Kv1VQK&S-l!4wI6JXrzV6gzI`5ccMi&uXcy1({S{{5(dct*
z;GPw3&FRypE1~c#oua^bDSXEMA5@rAkoW6>ECIh|`ZYJj!S;)aZwI#y-sT%vVpDJn
zbq=zuZ+}M4+Fw4em)@c{iF9^5BcqN{tc--QO_0Q7Tmhe_<2R~<^?%PR+#*E)=au}%
zdFL}5TU#mud4F1N!->ni7%3iVFBBk1=YPF9>3(bPY-q)wrA;!w+`<POQga()B@Cx~
ztG|}JOF;bchTUQM1Ks)O4nSYU3564oM_!Ql1d2du&dk#2{Kl+|FzP=#&l>RUpygjr
zwzG&&X3JyM)NS<icaf(WVpmy&r0a2Jx2cniQf_-EOK0ge&@qzb>w&|Esa?vt^j!vg
zGK!aS7XtF(mrSoDfC+TDQ%^~Wj_3ga&{n)DE@`x}pwZkg&b&Q-_Clo5sl6;L{@}Hh
z2#cp8nDY2BNgNulVfwGIS*@ejQ0TRMHnJ6!HtDZDE84T_ApUZ9o@dh=!$W%x&P<rL
z8+57HI>-zkU98S@FE^KPkF=a&PHv2rF&QuM{$Xb_u-dX~VEdH?afOC@-pQ_v+Ww+2
znrnU|C+*E$`#EQ$zAY48WLcA}JF_rvnouY?*0bdRcPK4}!>hp5m<9#j0NW-{pF8)a
z+<jTlenf5aUO~dLY<~B`M5meUGbgxnY%&<1F~d)(_d(Z*inwNEbV>7ys_JbBJMNbG
zl`Wms|EZHqBt9OO`8CAi(d2WGbsZ|2`xfm5to;0RAmQiMZ_y{OTdahm($bU3i90ka
z(-F>hf~J2}6<_r=av%Pf=+i#k)@xeM;@rQTsKoQnd|F{xLr2KKrzAJ3=gCMK+o-Vp
zy>PjMks@^+d$zivH!?ix7VOAr-?c6mqdH$#`1Q-_FT?Ow({Hj5nICDIbb{NCX4)YA
z=O;UHKwSLgTmP<Ov;A6!0%%y1oSk9gX7<kZ7Oow9vr!!jMcOQD9_!Au%$p)}z(J|t
z7E*kDN!7=I(9pXW?0F34@w>*xx3~q5kiWO^ScAexjq}tlya^NHNlM+!f2EXUGh*f5
zW*QnAbr!)~=UL;q@%BAft@9v*jDeXJQ1~Z8MEJb|w%TUEj@~Scw{PFS{~`H`<M(o2
zh6t!!2?JjL8VDuN2`h!{R(AMKtT9+mkkuJB;o6KkIY)^k`$dXyhFU5&FZAnJC6fYR
zZzk(jAULkz<Rp4)Wm<t(yWm`u$>*zrS4pRkbCrrvbFz}L7d4Kv5}E8m9%j@iWchC*
zv7?4}+syg8pjoZ-r-F`jpWigrzk7Gulpz8<#U5BnGp8(k7}SxdHtpeGN5D!dO{|yp
zJ7ycLbRviYpFJ9L!dZ3c+?u*s`<0*8B#TzmWsVb>?gz9|Y1`Eo3l#1j&2F^tKRo}c
zyZxXZ?x9V4;*K!GFI+vkWiIqcRb_A8k^=g$K6`Ao(rYbfnz=3He4-Ozv28ncs2a5a
zdqE28g`6s#-MjOAYp2Dy#o7efJ3(=Aet=<q8c8X|iXVJ04Qau#M&)4qD1M_|XX4Dt
z9|s+z7T80olHMLs{pL*%6kw-*s&Dd;Fm@?p2GA7r2eVnt<BA0%`4S;@g(ar0HvC0e
zdMlX?UNhRwn6TyPkiTXMzUw9auW40BYzxavq8%;a&sJcL^&J}hQpR3Emc>q^LL33_
z+%qrjjPTdQV?Z337_}<R%E=)G0|GbrU$#Yd&Mqlgre!bZ{OwkeEnnXxY-T9O@N{|$
z**CfL%`fW1!aLmoFQgI6-&z{taaels8*a4s>Gj>OHN?swG7HBdw$g$ooCM&uz36($
zIyfBX*DHSnM1c&+$f11NE4W=qzYcySn~=~>V0oo2!hD0H);}D#TMkwQIX4=))`vdQ
zOU2~{;cN|}vjSel#>U2K?CTL^p~5#lZ^R}32chrdOM5d-sZw0qwlwOAFJ{Gk7sV|!
zn$~NKK9mk~#@Yxne3K4=%(h_v7qH#{@SNo7^XKiIKC(Qk**sNRUJ~^8#ByuS!=2F=
z`)eljYb$mA+)Sfpqhoeq9=!!GGF`3lV?sB2)1Q@DWn_QC=3ln~YWs<qzPpHpOXBDL
zacaKh<igkI&&JLk7#Vp#-s8`{635B6s7qDgmY|qO!>9E^2AL9)CMlo7TN<qeDdJ(p
zLZ!~*H+FN52MJ^;ugzz+Sto#%a{qo^@a$zQg{Z=RzNj8B{a^bVt(bN1I$?$__+FUo
z*0Wgnrz<=<nkRG;C6lCL{RQ3WfpW?_>6Q>%5j<-K-wjwXc{}?Q&1DJ432*ttlQ<3U
zZRK=6lxJ@ZsPVyDP9yaQEiaAI!@?-*8`|{(<pZtgTcl?k_V#>r72g38Zt)Wj>omVS
z#u}A>7L7E^<8FCjM5(kmdu7FKc<;dApzDk5k+f&eHp0DBK{MxL+9jUr`C8sSKJ2Wl
zRKTqm%l|ByA!qJv)&FwcOT}N;_xT~Wr@MCVHUK;$xOX!-eD2QV*9+1BwXggg=pZPr
z2KU)!Als)rd{~9OF5Yk+b@cq(w--~$N1|pJS%J6A;<57lVmlx7qv{IOgd*#^uM01U
zhj?<BnAq6cB9SGLU+4o?LNbQ5C|2a=;<0oXN3DsIbQSdY<3>7UkUy)i=q=&Xup5(u
z@2-vWqT3AS3JSY#?Uzp^SIP*3KiV^DwadQm?G_Bw(QddyMMAfCjcnZf&c{nJ5!eZQ
zI^x_Re*^T&7C+C}Ls>|!{AtS#GL^n|?HcJ~WHPl1q?vu?6NQ(mOJn)q%&si6jlXxl
zaMiGE&cla}={4}BhrPW9DPKewd?Uo|xi@cE+jVQ%;%;JMRKm;nlIrSe()|$xq&udp
zh3o2TYpDpx-cZBB10;WgLCSjc=nl{?-{K6XvH!TXd@CDUu0OleeLQJb468qGx$*eZ
zaE|SuQpqT;R8upbZ%m#)rQhMtiu0SA8jYcj^JmXib(OhZ(9zi(T)Qr~);lO@2U!^E
zxlOMZcNiP0qTFB81Yl(={t2Nf5fDu|oq{!Z;RpmMV{YWH=n^;b82}TkC%|rfs<kRA
zBiEn(^%WQ;$GR|2?>#qXM^u7FGnOS`(#S|u0)@xo^JFJ;IW^mjtb$i73DdN@NQ`5|
z?P-x_%IfGa0?u0-s<=K>@oqrCHnPz0SpD-8W6D-Nl~fq7ud5L|FyjG<=;oLbz$LRd
z8%%)$)uth?R(euB7*ElwxJ7uPu|$?lm&~Q*<gPJE;8ZBY34myXCt4{9IXNFj#Bszw
zku6dYfKII<o+hRQ3=Rw^)+@(LZ6QS6mxM7){RobS4eS$ZYikJZM7@tV(bfvDb04Un
z^mTM1URPCp%s10OYcscQ#Tn~l$Yc^qURQ7%-XPdOsjdd4&iLCo%s!l1wi7PY!+jKH
z@KvKL_tWLK39~j*Y@s)U9w$bv{2&-0liotkm7J27zgOks+V-s#^Tm%pUjOj){QhAN
zl$ohBQ?KD=wa+i&BuRJ#1vrtZ{*Ywfh>7h}N$m(Dh&_U5<W8z#DuW6M$JpCzndgv$
z-XoI}q%j-8zem_O;4Op8i<h1P3@&aTgNkDfZsNbCb5*JZuaSv~;qt;bQD>RlSX=uF
zOEX74qs%C%MpJPtt8c>kVj6RJNXP*mo=u3NvXFODK?_RmpMSnX4S`g0Om=U3@@aSq
zAN(<%2q{Ojje+3-o;6vk!fh9nWHLJ2q%ccpukvDNnLbLc)5^*UDN3>1_U*e5TF(pf
zHd6nw26d!`UxeMFj%{*mz_MFNy6=l0Q0$R4HRU1>aB<Zpe=VJFWB0Bk>rKcZllKBw
z{M2Mu*)&?+XX8_9Yij|+IAP=M*i-wdo|6bJ&suJ9aBzs`dpOF;%d;InzMCMuL-oQb
zIl1E-(M)7`R#bGE*hY}jmt5Z4p5WltctQ^0af=1ILfixeQdP99-VkN*3waBOEiJ<X
z$&cwTB-3fU-FYVdFIG^ykz*ar-JyE=`ue@l-^ht%(OAq!#uUA*sHC(THY~f56&LF;
zlBJBS)`XL5tp^(RMIUiT-?;hZz?`{hcX=6c0CMs)6_n0>VfNQCORL@*nEuH9l7>=@
zC@WwuOItk*<k6$Y99_RGj`IJ#FrOZL#<PI9kJoqMg5;H)x3bE4S67$2@8XY@$R@M;
zR;(&y^?r8QXA>>0`BQv4KwPTs`=xJ{cG_DwLp3G&Hz`qgGg;p^rRIF&lF0%P8%j=&
zppShI5_I)Ky*y*zs_~1es@_T|7kQN@J{xL`#BY-Y=2DgF4g$`}UG(&|I}*3~wbQWn
zOSAk))Al>Dx-z@Qlj7%BP!g9d<vQn5Hq??H{@%U1rsg5M&c`xWM=BXo0>R-^w77j5
zaR4}uo>8PwykVBpXlCI$0+#Ci@%o&oBpaIzv%=Jl?c0A>ATdW}eLmXQzS#Men06wq
z<a4M;aVr-TK(_KjrnX2(XsB~(Hm;B%^0(vRmVhdd$+9-aNj}7lkj-w@)}3rlK70Di
znQ2jGjdeC-Hlfc&M(Z%p<O#0bmw_2LXt>HgjH5G8*6)KchBH69_VCqJnbkkP14Bc9
z2$nT8oJ&u<@;-4IH}LR#jbgiD)e=*Sj-m@`mT*B1MV4mEken0qocYB&9{N1J|HMt3
z&lP|KSdSgM6!qZsC8YbZii!`a#z9lM!z}5dwog|xQlyFNtlvmH59oP!;pv_2CoUE@
zDOiS9VXB&r;FsLkpdBwMyAj;BUTnt9FIEE6OI20Xd?GOy?}w;_Qbw#+_fDWBYlx7r
zuwH25J(vW5&-?SGPb7u%Zcm19PnpYn+FZrT$_ni$i<H}CE%nQnIlTiM*9oXdF_8OA
z_W+%IeeEdComU4?67m3sWz9reZ$tVoYkNH;<D_kq^*Vm$KAs>><KX8T`NFE)tgI)A
zZK!T`?cvwiCZBj=@8%7GNLZk#=)jeUxgIUwGxxWbc0K6am*v+ppY+IGQ{(pS+i%cZ
zN_OuovOYyt@VJo$uZNB~F3cnRoUI38&C%6I`<jV~2E`2V;YmV*40k)ogZBZYnieB$
z!<W;|?%BQjkks$Fi`GBt==G0Are#PQH|(X7`JAoSJwbVa3W0`rayFdbVOGB$e4?a?
z9Xoe+DpoOw`9;UfPa<)qZysqc%m&09kNr8@4+Wor{oKbd+y@}|5Fn)bzE`fOD^1&h
z1i;c%$=j+gxHoCxYEztK^N>7YfbQ6(-T)!xEL@4vZnTx;@N9oV>gf%<Z*m{nU~do(
zs(~WPh4bqs%|S-M)!%T}>*?b3&%cJwh>0fV<ftePLek?!NtS?=>v792-prjqQXY?k
z?MP2e$G8pHA$@PI$nDk{x97)SYfo%14V!=4_0EEgEr^8-bI;^+zr5n{-nN#SZkJ4p
zcE(}s_aG<;^JiCs^X_N>B}bB_={t|9u4WeiFS#%Mc$QHj?c5`9<waB@08?%^>y8(u
z!7cL$OG);qD@^Q}4vIUK(U%D6jQ@RNmox~<@8w19^C<wqUzoKjX-$G=z&|+(!X}->
zi3VPYF@Oga_DsRG93*I2=*BZh9<amWGAvke6j<%25%I8CPC(rS(Q$msi<9BaPH6o7
z@8hsUC~p==Mqnc*4VFt1aPki9{Wh?bO#H~{vM|O)P$VWx^XhEGX8RQ-9rFK(Rb3Z;
zfJ^;te9ZQsJS$^-iDHa@T-Y5UI!4i+DWTU|=3Pr;N5T^``}pOYozZb>Nu}#TBW+`X
z8|_xJ{)wKJVLMe9$o~Y@3~%2aI4k<kTKsVrrNtWJ=+UD|?K1UsbyE;lq9RZf(zi|G
z;`t&tw2kCK*X9X|bixyOVO?%E)S52qhDAkjmrZ_7-O23KLzO-Xr@sSkdObl_>C83#
z88ZI5en%IKb)A6$Cix7g?Pg?r1e;X!fT=GsPd4q2Rq}z*3>KZ)4I9kvHbFK7pyTu>
zZZ`;sID9&<tPCnZhrVMhrrCgOGZTWqUeiY-{7;di&`3#2hT9B&sT9B~m4wP0DKd&E
zkC65_g~lvFfOX8j0!3p7DIv~^&Q<7|QV~#vkU;93Q=FxhN#Y!viFZv+h08KBmT?!u
zVp2UCRnl7^>$#b@ivNK*Wsssem?%>B7&p;{g`WP$oI}^ovEp05#dGuWs0cD6KwY2l
zG*LYrYLIJEdXHzDSf(+F-Mx2D@yB~E1`4J0;onkgHwnz*KB4LyHeHZ#81uZ6?E{1t
zxGsI0CGOQYzlft??U7bfe`ZN@{=AhnW|OrYKwglFtXG-dl-ImQ%%QmMYqWj!#~5EU
ztqSM<An%)Z@+bgbM&1Q+r>R|61K1Fg63nbnBHpy(*6)~atI$-YBEaN1hT>UAUsF>v
z^7HgEZYmom=ety4o^;)kg1Pc%&)#JUb6@N&a#mgC?K^Y!>>b7A+-P+p6xyM^3}QAM
zFSPh%Pn}BEfHS;+^yj)T!*$^(+SqaOGDT*Qe!TIEG*M*rea%rJp}?r92MAY4DAnpx
z<P!r2d|-4~(HVNIu`WcMrR)NoMwU)sm(RU>;$^WSQm(xIqbOwbMdC1Dc7T_+VL}`k
z<~y<w;5d93A4+LJX$+Uy*&-g~Sh_1nTWCMuI0oc{nt+tlA)*Iu!u2X$tlw`A`mzrQ
z$Q5{ddlSSX`NW##w2LWz?~MimMF=EYrXozXJ|PlY*V$+ssNvVx=bD$*0fioi@bs1&
z!j@f(gjN5$?f#1<f4$}+3J|NJ@?!Rl1O(a5vm6ng#q(EDUn$0NVb`+eT_ZpN!SX&@
zu2;kI7>?cGC<`}BdbXqHeejYaN{?apbLSpaIdSKWeHGff`NOc?htc`wbS&>88*O_x
z<D0(G(ls`&>qH8#nD#1`MQ$OH07zB60RhzdUx0!uK6Lhm;NEM#c}J5Q74$;y2$fE^
z8UA9Iv$K2AX~!$^(BjDIX?JM)Na(gwD4bT$?}TH0?vB}ak+_BWuqyQbm^^3NTS9wB
zP9L`%tB*b+*8XwC|GC83tcaD&te<_)3&yOT*R-*i-@bDPlg@HPC5kVe&#mB_Q4!$%
z-bUA}c<*pGuL9M?*XO6EFGPG1we2{;Wy$KTFwEKVd@x;n?A&kdmv*VbEpiDq3vP4r
zVwaUX46^fzk6OAdT#jS088gGg0O1MhTVrQHhbpSDgkFDjIk}`04rG3FskzA7(Dcm(
zU_L|w-ZtuuRDmj5(J(zJCi|W^DR-@5t9M%tE5+oLbfBw-GMq>l`lT<%JpoTk*ILL(
zHCku!b%E^tA&JlY1IU*M>Ar0q_s|Y~LFVLa_4FgCzla}9k?8kMaY|N7`$ZqD|8;40
zc2>8m9L$a8Wn8k8A<}~1Qp1JV&;RzVy%sd^WeW|>D-63^A>Y*je23tRNLkknZbRwr
z@QM~5jmuwHi&HwLLVj4=e_mKq32?~RR@2lpRqZgul=_^ll(@OL0;MLSg-v_&f8&Gx
zEzUB~6~gDt$;o-$-G8D!P&IUrFCW?5!HVT4=YMc3E2y;n`MsRH7*?oXQq|>8gca_A
zB36yVr;nra<l0Dr09K^r&uo{3jhf9T!UjyW8`%3HVx|<mHPN;jN0PjV7FFKzRY8-V
zRn~d*O^|vSoS{@>3gf&>g+VoKTW?Ts%%^glQm5@eNY)boQ8(i^PTAQBqs)7(p3bvE
zF^)59*?(k7yUgaU5tGfJ!iIyIQgaqie{^V-wCSgGF1%V{4^dCIHxu9GsM*NJxM$Dc
ze|<zq9r|#uSo{hxxAFV&>3hY}2v7RxMpkaS8-X60Kxq+gGx&LUc&eb9om9ajd7ze|
z-e+B#Yme^b%Mo*x8Svi*==vXTjTO|tZO2p5q3jor5|AKkFnFYDQ0CV6O#0+Fr@<=>
zA^3RC_?)yKZmyoFdd15mZud+vC7^;)BoA2|SyUsYCP0#kJ-lEm4NaiDn2E8m0U)^C
znjt!q(dX&BgU!d9q|M%wnTuGTMWB$pN4iE9LWGQ*+&a$((kj2mY7tcwL6Auo9tMkg
zD@t)XmYan(KNN`{7tcE9UHqM0@h7OO8>>67v;%$mdlBEI;W5(|F5dI;Sr$+7{DcV<
zQ@>hFzfb{MKr5SCrAsUVeOTn-DobpNf4I<0fP`d#{KI{|@{FQZ1e1ir8#o*yL|VV=
z<0-F<=P`~Buq_7#mkN-Ao0lg#OW4`jPci5VcvoWnK+tLGDsUNsGhW0I?N9!iYs&bX
z$=apCK|w0GcBp%iAJqqygP?)60zle`10o`Ouxeh2Y{VgFRgVw?n%;vt06a@RK(JQ8
zX0*n0W_<dLYdg5;2+}<v`LRZInJRQ~qZbN?6(|(!m2z_mz3>2&(g9t_Iq1=HM^vrB
zgG^f8?<-FNV!&9zQ-4|2sH|M9>aR=gDLXUivt|E1e8|)GG8?^+fRY<v(9*O1dG%Pa
z;as81587G(&DfN*Xw7j+lezWhPbbjPbi}Daks}!xI2r>~e#buv0vLI5eLHcrr_!r#
zgU%U%yq+^N1uKE@h9Na%#9&jE%hbvzsUlRItFOhbe>mWM@1AV3DyyjIUi`yr<Tg`7
ziT+P?OB|&9!ZHv6v6_(!VszF3`_RgK4E5;ity!^lo2*n+wgC$sQ(pq}BkCKOC0zfI
zK&8e_|1Wq6G=(=aIwFFCp@uUa{!9|P!DIDNOuns^DG!~1yW2A!?h%j&2+;YUes{i>
zFZM96Cz3weuR`>Z46SVo0FLfrY7@{3@nf(N?wG`;z3<*VnXG!IhLf9{mWzuEETrJ~
zb1UDAG;g5sdzX$xHWT4IQU9x+BT)h570F86X937Hf8I+70+a$ybAW?GPW(99*0N;w
zRPOEy$++#%T)e<5?P)gum7c*@o*~s4&d6^3+oiO%fV@xufq}dZY!Rq54Ych2oq47B
zHRB@E#Uv$DkHC-+Z`j~k&Ugh!3?`|z@87k{8~N%^OzFs?>G$#RDQZkt7=*{i3)s^}
zE3A{~gA{A{$eqM+z5y0<NI&+@odPlaH1k*wFh;g&C}duF8QK~}K3Vje94w^|b>mr7
zA;mH0&%T&KhkofD1pbmTf8?}kzvBM|a&L|wUxtD~vX4^R4!i>>#BPQ$J4hUIMFdm*
zJ_%P@Tka3sqz`zFlE0H0QatHfC$6{*A55?RjYCvKo{9F>Hb%y=FAH#nRro)68fM4M
z$O5M!>RA26N+T;P>(>%T0W#6et{JkNuhT@gFHD^4{nj&cdyuHXW93Qw0Dxivvb&2Z
z-Dn-t;DDGvu%*!%f8~Lto*|?6cuL9CBVtjqw<(nV{}|>uD=R^gNCQpk$M9|+Zsc#=
zwCNNCBFo`7NiNW{OX*?RRUG?aVi-So2-AST!j8fYn@y-Et$;$4`A;<olivzZ0^~|&
zF-ghEk6{iD62I{?0q7H<rYFTMDE|HmFyPm(Uw;4;Q3^UUnX{30?r)Hrf*KqFgxYgP
z`x76F=)n~DJq$VQLJ9X8YMPiiQb9L;*Q-~rU}j|F5FER^Al9!z2~FPZ_o>%lk(Z8J
z^~i8pqDYXxc8vr7JqdFqC2?RRa3|bRu>4VtFNq3UV<a5uaAZ}e;Xi`d!KDmS1y-^L
z5^7#CF^r`c*m*Em6Y4Vd01#RKzyN6vLtSMOc<TuO3X%Hbxokp<UjZne+m1x(FFYoo
z9h}{&6pOdwpP0(c!Lbg$qXw9^C*Z0l_;4F(XilQxi?NTLW1S^?@I;$Kc#-El%W*e0
zKIA#WB3o+Ol6HykMA6fk99ShM$FVikYJNKZZ`<Tp2-rtxc|DS6C!ZHy@0U0Sn++E6
z1<vK<<A4)^cS!lYI|iPaYRw-+pO5Jp0z@TbCUB+K6P&!fazG<Wcld+d2Gu(p%^K{b
z5y^djR!L5-v2P>kr`XsIzmJn75qf}WL(Rz#v#VIyL_Vi$Y=s0owaWA>cdrDrUddW<
zZV}DW!(}4Uq7zVPoYorTC(OIcnbxmg4~kmg=eBcla$VJbogW(;HEwXu%}(**FB1q9
zGpw?5R1I!)0+(}$Z~?sqd(j}c>Rw=<uhDs+idCX!UFW^6$YGoT5)Kd0gB$ynzljJy
zT92adbURwFHUH*w=|_~|K?qFUu;l1+u+3~&`iQ6rB)STGF$%ag6?Lm+&dWmExk%m;
zSyq8VdmnRfm95_if^43kQPKL{1&!#RAYAQ=rtZ*0KZgVj0>F@h9e^Pf|Mrxe+QsSA
zLw}zFKgs-SD?Y2X1(PKVz@8TD_wt)z<POiIceYWN80sh%5;cBAdAIntwncSIIx?gM
zl@RoqLYcHI&d8Sb)MatP7q1Tj3k@O=UV0sB3Z(Jgka^#wck9<d0FPd98O!2oY-}^^
zF;BdZ68!tcDP#TrwbuUjoBp@a_J8+pOVVeK+E?EE;$1}!pPl(fNiIwF>h1prRkqhU

literal 37955
zcmeFa2Ut|uwl#|FQIDe17(fM~MNuS*fgs6%(1?f#2ue~Akyw%>ht^h61QZ2SR73;>
zlqfkWNkK#jl8YocODLcS|5%0H_ndpb`(EGs{&?T-cTNLUwfA0o?X~6{bIdVk-8^wz
zan*`VE0~y=Rw?}|f0Bu5i6ax!V#B{L#VZYgp~LvG)KFPb9zXGK>Tsq9ek{NA>uFmi
zrp-6V{}=gnj2JU9{lcUqe^A5maetH38&2bga>J2BImTNLuKl~?-uFD21)c})oIS6&
z^!U>CZ?C>e^kKHLmM>TR{n^&uU2X4vv1%z{Te)jd-IZh7ZCCh~$}hij!0T^`O|zG2
zLoD0NvOhHWk7a8H(5D{XyVu)5$sM<|*R-!rjcNY0-n-C{F|a$5>y_9UzvXqZ4*x`c
zJAdDk@yah@f6HRLvyr!D3Hjwc-y#w6^MJx~$3^6q-AD77$<I4#Kk1X7p10Thg;Q8`
z$j*)UDXOTbR8>_KG&wXsv6Ix{E!}_<{CZTgVhPh>fsk@V6B848`E}lfzsJ<=KV5|P
z4xH3|`){uH?$lt3K-_J^gbjs;q8C0rerP9226F%IzkdsqTkBU`b8Pu-S=)1O;ajt`
zX1O9C4))~aWYKf)ey??Cc5A=NJ#*G|$fenPM~Lh0TZL_&v&pHc#f|B<?PHayeyKU*
zuhk3;xEm~zR5+c!-5m*tbLD;NF*kLv=5hh6qWq8h3Yi;=^z!QN?Y)(5+f}sD<S{G7
zxia{9PL6EEv4?BALOk51M+(+vPmETns}>fr8*r*e9`}ieh<LE;+@YD$+!^JM!Qvt-
zuDyHK*F$aQ4boks$Z0KakyIu|t}Qi`W&7Cv>uGCRlY^p`R?T)=dU{3TZ8EPxy=nBp
z%w>A>d&;HP8qn)&+9uom{034QV&4o7<j&7o&rNkP?j=A=f1{m8a2vVXsLmmed3x|z
zZT@PhS7Wsp@kCwh3BH2oN4(qGyhVHuua?|abbI4kA0MBDVlJ10p2!fc(atjOl#~=9
zH-6qi!vqa2-1nQ5l+}|DIy*bL{OZ<q)U%ajbCVTS^6FQ9nc1<*!p#ni2^(0iPSZ*a
z<`SFdIzK(pc@-1G5g(#{Tr#}2u~GW0+nx&_`D8kA5dqoxnbE=z_jb@4XeM&>I>XQt
zd~8^?ii(OOZz_-XrOwXLhYWNxFAqEmtVuL3y*1?8CAG}e9n0Kp1jln|gy`@Km3F^l
z77<L&?TgJ^`pTuJBD}DtGLpr)sjt6Zu=IQH;M--~g5&d@;<-+r{akv&gO2*eynM-r
z+p?;Ph>3}rtPGiZlQuiiz%tpmiG#!2w(Ha8OF36h7hO9Ps@N<fB(!)U)2b<h%Wvat
z8!P4xDht^b9bGG^>&~Rx822aF=#MnomIs9AmV3;NTF;CWv-Fx3U@XFy8!S_`vz^DE
z(aF#ZgY+)n3|9`CXc+unD&j|;#oh9*_F5x9AMUx~8?z}MldU(}9~k*=yfimY&z<Lx
z>W@DxsGD{vFQqh4$UB=xl^RU%db+3~P`#q`V*Fs{P|gEsCmZSEyv4?SwzmCv?4r(N
z-Cm9ZN82KwI-8yFqfeE4=s%JjcvJa2Hr6UkOuWfX{jux!4+$1^iHqpwR#v|4esZ$z
z!&kXiCVoF3V5`GNbN@T;ZNsLYsOui>F**L`%^P|7f|qJxZPR^mei*v~9?ZHG*Z9`0
z_)=fLNhE9dP@@~IX(YkVO>onuP0j=6b2C%cnBhPxO7850HSWLg(LVF%C-~%XprC%1
zgzWHdEcffBX^pnlV_y_mru)8z%zWDs79P&KdVlvb$8UEPpX2ux*ABf&PA;T)&>P4t
zMh!T1Jz+Nqal71zU%u4VZjhV);@8#@WZ>&6%RS{POE#v&c$K>H0K1^}&n$8?mqJGM
zGwe){g~(>_)p(m`-QHGj9_Pbu;3}GtkwJ!IYild09skP&Uan|gEjKf~g+u?DxRP+#
zTj$P)CWhDsGIJ9>svi5<MD#gdzkaR8w~i;Iyg0+YuMMNp(RFCD9~pGWb@A?M2relp
zN$Y;@eKa*Lz4Or`ZgoL6qfd_|!yDLjFCEMsXr4$(Ewr!EV^<CoyoohO=B~PWeO%V}
zqaQ=$<R<D&LQXbd8}B(4tDC;D{QTs77ahK?h39Zc$>7k(BI-=1cu>ywnMk==(<FLN
zcQ@bh2fIS6YTW4qHA6M;a_LP&6O$R^*mqw{8V2)O<mE@MFbngo5{eI9FL26YOmk4_
z-uCqdP8|XI4eTqfwTTvUs++ldJ#8{xH~8%8YW`#?EFrp^`;=>rg!$K3C+U@{a@pl6
z9e1u9YY47(pY(K_sEe$!YD}{(%$=Vd3Z8pW+Ko{QRjcD)e|L9x>a3BU%qg?^>*86V
z<;GYL4(vl%ow7p)A|d7Ms*)Y|PlgywR|HL41dsi^>TrV4eRH|LVV$iM(i)EVT%T;N
zTuE{3(-F@MS;p<UOW%E}qhi2mwDX9Yn_I|0xn$R4iRtbz<<#7<aFJDJvTJu7zfEy%
z=eS$i;hgP(CFWCkT<UdkvsGH_^$p@yx^V-x>AJ2{r3S)HIXw}<&X%-q_f(6nvdC^=
zWv#BRwl3c6Fh-x@=jU%LmYcKgF{jt)yI7v~kdKj562jx}PbhBl^O!N}nUJA1uBAAY
z>ZH6Z7fNpTl?sgAJJ8*|;Zm*FkUK3iyr<lKBFRm-57tzWIv(pV?lkYbe*OB9Cqu50
zcJzkkxrwvN+?W6HZWmEjY`$E3F1&|WvEbR#F}c|uRpm;uS&u!Iu+A&i#jS_;Tw`W0
z!me5B`f-Qc)Q6YR(Y>iEw7Bnno2A64Q=c3r8gg8oy|L*if!nEnSvFo{VDM<JDpFQ+
zQ&O_r`1rUrmQ;|{d@GB`hGEf;J5{?kz2csqEDrD4>MQZQc=&Hh(~VuST90ztZV60V
z)KIBhS_W?RJrf^xgy;rNiSOGNaAmNgG)U3K#pU$0P-<u`TS+p*z+Vsa6u%~%Guc)#
zwnKL0=7ZhFM?XH?vx80O%-)xI_SxfFV@Kq(hTMiYs*El-yV1B(mrbk1dwH2wMy#ss
zTt#s_Z0bBc*0We&CcU-##*-&cIFi%h!;~wV;-tCWFIvWV;*oxq<H$4aR9^ox3Rmri
zvT1=4<l&bMMmG9N4W?C$4Wu@6#pO(!#SOTR1~<#ghWL4TU0uDOk2+Z-zPi={BPKfv
zV^b~Ia)WaXStMa8DPm@3X3jHoJZv@RkC%KKvUXlK)ZwdH*kNa2>FTk14Pm&5VPTD%
zoviMXrKLL-OHo;kif-SuZZ9gtDAr<C8-!?C!aF&(-Q00Bbs62Be(Tn)T5N6Q)DUcu
zMcjKH#4Hiu*Egu%e(b@nmuHrKf4|l5egq5b_(cng+eJl1FXQ6;rl+T0zJ4t<+s9S=
z#HM6tc=4*vser>LOE2!aRcPqfy76+IanQM7+5uuuXP!0sh*N9LGvi!41j2jjl1yj~
zCJEZNG0QH*)=S_D?HtXM3d9K{7#7~bX7u{>=@Zv{MqhV#?G=+fcH~}*7w*;hC+hwE
zGsF2t9VG!HF$S~zzLK2}xLTW|HDlU(W8!=_?zvDfInv%9sAE;vJ;LGsBqJ)y^z$ec
zZcMq7xWN?e?xU4Lmd(M3LQiBE?rBSIc@1NI=FFMrxS{&``sZO`VPkPFXSMj&9rfdg
z6?MF)t#CEDHDk9~)l1ycSzX80YvDbm!kHFfbgfs~YMVk*6BBm>(A7~qV4JO7zis7K
zveeFux^AOWTQU1HOvJ9Szh&(_rK7`<bfN4Pu?awof_fQytuhBvCWmjxaRvkgu(Bpx
zD0?K)`up0p+_}D7XX(rNo|kqV9B>xUiWO85-@Di1?Vb($^EY~04T$LmHhJg@teOCT
zsPHS38U46t1kh|eZN5ux-pO?OvF)duxDi?UH1;oBkiN5N&jeXYsm<;##Azh}2fXhZ
zg*SMvEf_dA0Do-ku5eZSfi>lZvreu5pJU#rrl!V9PztBp*ca=8<QfHYb92`La|3~<
zdCL3*CBb>Tw_-q7xW?$^HIt`K7fy`sT(?5z`sG@fr_vK{Qyn(xT<uHbroP>iIh6i(
zu5T{PW~-)fP~S+H8OPF>O298(<*uE3!W(LIZB<M&v;~VEOWGbyEr-o=r^7kAYdn(0
z!R<NpLGLi%{roUHH^?HyiuL)al3m~NoN~yaxTR~Ut2<YWwl=bf*)LdRnMD)@O)ahB
zBkX$X=mV(+JrqCL>5G11FwB=sGvX4I#ox5D2&p`kc4Cg^Jac37Wo=XEw^x=dKjqH=
zbt(of1If!zRb&pf56^XZ%$b;4G!}DvNC%1-aIup4m{pKllNLJI_o2ToX<62^eRZ^^
zOzg$xHR-y-y}iBIRkq<{_f%yiU*_DaXIq-|r{QU5c<QlR>jj(}X}__!KHKY7wy$O-
z|I3WYHgDz1$_N#2QKO>!p(UXsFnnoyWn3ouFH$I~@sBL%pKr)&JenJi^Jr@4AKY7u
zrDItC#*}rWenV1UapNr9xQ^ML2YD&<>hOL0_AUNIL$J~K*oI!^<}xssf7z|a-QLE-
zpUO7fz(9V7mGgpk4-5>90A0DCIA?(e+vqx47T&<II&zoW^w<VDch{bYkz(%VAr@sl
z00rwx74ZNo2Nsvgi?9<rR|yRR{}sD5)2RpNFV<ItE4KrHj-3b$+UYWs?cjH3uxZHM
zK~N_}@a-)zG2BPR*m^BpR$S3~yjm-0Zeos>>yam$Ay+(jSZ1s<HgoWni2I0lu$pNz
z+0YeZk+S1aTynlCq2_VfVq~Kn9M>7N41G-Bf(>={;&Mmz?h0iQpXF<}7bxv`vd)3(
zWRf*jp-fN-Yn)F*IyO@pjp||qBkrRabLxn^yq=!ku_ybJ73JVRWr{f6hTkqTN^QFA
z?J}4iITmJq?a-D$!P9F9K=X@xs~Rl!T5&^w0v@SV_W0MAFC8uS<&1ukGOBo?WL>SP
zRp`&F?EHJ(=FOW44ow^Xs?+YZ)z=H2af|!+dm-C2oqNAw_2)YZ8stb{ZnQ2=`{u7~
z_`#nyd<!d&KJ)xj*jl)Hj<)O}H;QQ!r<o#`)A^p{8~}I*?(($j{P<8t_G5P`?hX&$
zZ+_BmvS5cSYq{LKE5Iw_wf_Fwh2HGNBwoA0?e16?l25$fBX?kTBOE*ez!3P91g9i=
z8^Ln><&#AF?SnL_bq$BoCk|s8^L`fa=eM-9EcB}V=7AuoFR9#HIOF2I=|_7_Pg=vk
z&VH4I_c%#MAZ3x)1t;MUP#@wx-Lp8QylYg(%*@oZCuty`MNaosY%KMgv6yvR!J@v}
zHKwN($mWbH!@{Yigv^i1%_n^*O-M?z%{x=t@o`UifAaOI(Jq$W5j>MZ>~`DF<pYR5
zga)zG!yAAxdy<<~P8R`F^giqI=m^l7NRzo^W669tVPP*_7jRUMfK!~C>5?nHx#OwC
z%L$`mUmwJpNzE~qxf988g>mlVF$aAlohy`f6soJrtVax7_RRb^_DrQ=U7|4~!kHE&
zR!bWG=diY>*k<bj))9cFtrH0JUnuufPj!XleraYn-d}Y+_yq*o5y$zF;pU|n%=T)v
zN5{n8!iHCgO_FP#pQ9~n%;DIysjc+}w=ck_+r4Swnv`AZek@oGUOgs`2EfYpA`Z&!
zAOm+vD+Cv5KxBrk@2-u^jFu|`DfVad#g2S($l2p7H#aFU_W5vFv{_4#_19OYtpVwZ
zvYbZSzUokXmN2swV9SMthHi;a31&ki>V>$JmpT?9zAAr@V6J6qlbBU{N1)?KA$xmg
zFvXWXlq<*O+#RZ&VsTmnmJu6@jYRQycG4tp*dXI<SHT<kHMn`Ea}qn3-D9@Tpgkye
z#+U>cKu7D!%F2kdCV;6Quz2JtEz9I{pFw&*LOM}AckLWkrydHTg}2+U#kUvvc*`Ne
zAHn&ylhCYSF^lxiA~}<Ww>iXxNsvVDt$lXL!{Zp%8sF1HWKci}8;GISwJqCc4JS}Q
zc!4lQKZZ{yaq^BQb|?3Wi7D9Hj&7$J#9E%?V=UtXQyoAZqCGrV(o9UXcGoX5e))go
zfE2QFXF5cHzEdWf5m`STQ&+leOv1)HEB`ff#IGgD=B>oeppo(-Y?u7^AeP7g{{lCq
z0gh?-5wOrjQ&Xjk+wPjDPAOo^$Y-6RAQXMKK3oyIS3@&9MG~aY5!n#cwC7_NFJAQ0
z6=r8;#S>eub&m^Zp71cNtT^xsmHPD3ksdX5^|dg9tgQH(3okF%y3Ym7t)@0oZ<3S}
zSp&aK&f?{Tz!VoCZ{y?SC{|Wjyf1Zi56M}ywAdNI<x54y8q9y|t%|UO1W_Iy68NU1
zY}ZwB*3i^Ef)mI~uu)IYj9R~b{ffYmoUSi5(lFt{^k{Z#)of!$!X?!vziUr)CcZT$
zIy99FZDyub&1y?9cLicp;m+a#p5nZC!o8{)HtD)Od9Ra__Kc6OjvQQ;JmpGF?1=#W
zLL{_1!Ivd6I-0-l7<Y6`jLYL~XT;*nEi43uf@5Qaf2*300$n1+PJi?iJK4pR$+Rvj
zHZ(M}cw*ZfXBAp|Ha^sMOuUJ<Pj**NRBUW)v9(IQ>a!c_#>U35<QVtYhpTF9#$rKy
zy|H*DE~BZTabNavvaWv3tYi89N_E=kpdcr6-25+2wi})^7R&!AR`M?{p8vtz=)W@x
zO$JB1OM8KCxbBvNAW6pTqNU~LiA_8_V5ZhS6k)ofPgvMr_P9^xa~B!RPuILC{guJc
zz@@8XtYrGdc;y#z{{J9d`|k|tKf?I_^C_bFdwz0M5f1WJ3sd0LQ^@7#*PoYuh80je
za5px(cU&b378uL@O7#n6;UIz8kO_NNiPr|gtZ}d90?Ya`D601M_SiS~&hG0udHVF}
zM^<KLN8|nNdU9m2mFu5o^yGZ1s;)kQPvI1$*BjImw2#F<vOC&0Q8k;)VOrrVo!pub
zKhR_Ed(EY0RyQ#tqaN#>KB0jfjV-_Y)IH&*8jik?eUEh}gv^WIH5rtu@V2PjeZ&3g
zvcVVZmfpV2$D4vwjvOguv%Iepyy_~uep2gxqq?k56MH4TKBPK%^hVKd-eI}mQh&+d
z@K8mXjL$dPwKs$98I;4=+&@wEUyLU!-?A;uk!0iI#Dy$W-Ad~dh68m4`C3$Ng3XT6
ziaQR|R1Jc>`%BnXp6A)wGLM3T*T(Y6JbLs9oSiTa&)3&F>{th6=MyekLqkIz0U%%*
zuikMp7>UB#1S1?77Pj?ktX?o|%a_lee_pj}6)Y5N3qT_|5*}ViuNpCj*^bZik<Xv=
zq|{vqX7JWWXX!ncu;&Hz2Ac5sA0`XPWv5;tqN+{JIa6`~az%dJFoR&)0*0Dk^^}6{
zJUA43r=;e5)l0STn3XlLdQ#5~!dCfk%gJKq%nUML5U=z=)QG1o*{IdN?<=panlte~
zaMbehd&R|JgNYF?1~qrIH5^X~GbRd(X#t$=Gyl2`2UOM6C>j|V$)9i6c2v#@e>gX}
zi7YZt{r^vyiGN<F|Ec80|2@TD&J{%;%|K4cA5WCz8P+^>zzWdN$eO6LP*zq(=I318
zxvnP;zDNPE&|MdG8-Uayi0iIX&DXCAn$_l!fj`V)_I0qBg+O0o{i91f_x?QmQ{Hw*
z1Vn_cfP*ji_-LPU9`l_;g@)GhxpJG4`+@ON5Inq>JgooW>8}3;D<axo_!;MZDXI1s
z_l|GUXjrQ%EqYvLyh^2a{<mdZUU7h-vnlB_-%E{<cc^>e&hV=#1*cet739B-P902c
z0GBSFK4h36adsY)c8|_T|JAP1Ig+QNr?)wk>TDiDi_=cv`6NC1@qLF)!cY#~YQpss
zP`pI%%P=we2xDeD_VN_9WaB*^o;L7Zw_&-!*gZFt7ZfJ%|FSh@x*!q!go=36I@Z=+
z9rEJYn8fO3S*o&A=aFGxa84=|XZ4B>@*dOuvQwf<DIUlhaj>!y+DBJ7^@v*;n7u(@
zer?eDx50!Git&M@?FC?aE}ceka$sIWee_~#U|^sl;?u1>ZFdf@u4|inilD245C@>g
z)?0&BEPCoPxY1yyjeQwsGwqYq&~3T-sq$=UD&mPEP~%C3`&Ng8(yy?CYk|qyuC0;*
zoS3r{IL`8mcDYXQAh)}=iGGdSu^~XF(uiQhF%@>OoPGlWt9twT?g?*EgM*3EF~}S;
z0bo+sGVsr!$l)a!YN=wzVCi#sK43DqE%hTuj_{{O-p%6bvPqXUxCgj;E_S<Kg}Zch
zv$^;hNwz^9U_YcRxKeRopO1Yfycs<ZCRJ!^AkOZ|zM#6pEHdj@SwW;yZg1LWmP9uN
z`eYVP`z7M|lT9SB1D*wSH_{#ES447}jtFtvZwbVDF}TF?FhAK%;?1tMakR~LpAU+H
z{V$8PPSe!X3>UUj@&*(3LiyKlU19OIs|h(8r%s&_bNjXZ2Jcokj=0#^<Kxq3)YR_w
zPWx-<=?!d4V8MLBF&s5*daCf9g`4Iey$=*yOmy_g^qkl(?KH|KA$nkuQR|y{nek8Q
z#?6VB1haU#zgkthd?8PRmDL)&s+F1?f~%%(3X+i4-Jv&%j!O-!gMrXTB5W67k-+{p
zK6hd)=9OPhaSRKCC((BuDSR0fbyH@d*64lb9;ff$9_+U_6Fl>V580bWN**1IiQI*c
z55DxdA%988!chJs!RY8{@+5e8_V3?M2uuRPb8>RVlujTygdOs`z)?Sdmm|P1@YUuu
zu__sltGef^ACjQL(ozKh10iztcpK{LA7#Wn784iWp?ByxCha86T@&;lt_3d)Rs|1$
zc;S8fRF%pu{GkQd7apUIBZ=oGR|cN8E38F+3E3&)`)+f|?C0V6KIO_!bNb<N4HIg+
zWF;(zg7RPEAp0RzRxE}#Ol;GQ8FN$9jbG?lt3Y4{<P_d58j#tEH@_kj@aYQVsQ0IM
zTO}_Vnwc8KzQ8Wx_%13&GSuE|LbtT^os9D?t4AE`8P9pcb!Ut>q+Cj=A4n}?-SB05
z`*8P2(Z^V>rpJB(hRN_)_4)*#wpf#$ff$Arr6ac0jefk{ykfSm9)XPgIByg^QK{WL
z=*6Ic0dhk>56^`RwoiuJyKMT<&P$^`x;^$Y-$1cC7Kwkwta-&JA(!49i!29PmD@Ze
zJuB9wGho84^-^DsMPhtho&UMhDJ6?uVHQZ9oQH>zs0(Q(!7VE*R`=%b3oGGOs^-!x
zKbZ+_?AbzayWID-t8A)p5(0t5h2*`L7h&md*fHb_Oih*ni-t(R%*u+WxZ+uTvu(MI
z^}FRe3fOZe3w;K4vYqX9L1QMI|KJY_QDin7Pnk_vcLVoqw<4x*fa2j|0rt!IB^R+e
zXD_8>h&pP;>2LOvn{$+x=e(4+=&JLv&=Uv&oBPr<F)M^mNb3mHnRcB4Tem66q@0>{
zg|URiDo?Qw3xg-Xy~$3taLGMQNH6l;%t2BzWW|%wJ0c-T*5~%)k2kpVCn$b=Ai9-`
zq~iGGK_X0H@@$Q-UXq2ZmM*75qjm7ugNJ)eijbM1XL+<0++^I?@*R)k!#fyPgmsl%
z%80}Be*NVyd-1=b_#k8X3xWCnl-NoWl+giy;x8QGAb>g$iZX;I2u5#K4M(ZEMQbd>
za6L%oIBjmaZ|y?|*kVMhUS8n$Z&qEZQd2CXx(q#epA{<ilm1zGvMREM-!Ur%-F<-g
z+ip3zSvxzs+ufs)a5*oOJ@q&K|2TI2&j*VCO91%G=oic__6Tfx)=Vd#b2E)|kgzvk
zOV|CB*mJeRU)EIDpfV>;Nk=BXZ2vtWYRJ;!M5ibA+h?bpRkBX?7%Vl7qe#@%tUSIc
zNTt44=}>*(Z$_;-J}->7BCbP*g=7FKj8~ok)I|uhLr;O<2iCl2&B>iXrQtT4<6>fz
zGk%vR!BTW|1^v`6q{m(;*S<#{&L7wTo-e8~uqFl`*4|CYY$0=qC_fyTNM5}|{0M&|
zY+R!8cE;}oV-BA_*VRdWL=+8k%wJP8o_IM&{IQw2ImvwX>^`~Er}*7GxL$%v;E<xI
zf#zmrC-n^cNrV{{wX<jUbTaQyM~_Sl_c>VkS9+N^Y8nVYbA`PW93w(f;-0|j*d>yP
z5-}k88%HA01Af;|wbHBTusHuBWaVodYrlvBBm~Kqyu3UTBe2Ja{8Zrpfec<k{ZN%{
zK-ixvr8waqP88>QvNts~^+!xd$XwI;n#M*><P~r&Be!QKkZ(&*muxi?3rwM1YprUQ
z%>Pv`qNl(ASQA}ce%kNaJx~N2Nz^-1Z;rqr5OHv;wnP&rvxzbQ6uEA$R&4WxxMIeq
zUd4FApXI$l0`DiPt8B=$^9^-Cmz^yGIN$7XBZ+-tVu3kJ?-to#cyVI{5p<N!QbecW
z;wcz&)obysGQTJjhxbg3c_=a;k2GMlnUs{2P_R{o$JMaxY`r|XM}~)e!U?_?Hcxhf
z|3t7nH(_nc{M&V%Gv%sZ4TL&pqap{j+9E*@9Hn`S0K=<0^h;Kh+gCaY>VoUo&vv}e
z#o;7~xueDJOkD@W-tab`{JzzkSXie2&N@AE%D-T>37yJxI4(JPACYIscS6<F`w~gW
zA1ua;>m%*OiiZy$<{ABzhy=!#?^84J<*8sW0FHThh^7Z9YfaQS$Tc=kO#Q@kXEo6@
z9SYsmKl&O;aeyW-uZs{Q0b9wNK^^xlzMQ?*^(Xxei{=2{imSB@p4e@?DG7a<5prmV
z_dcfgM#mTq)F;Crdo^8d5F&BOi&CJgEd<aI7FADyX9B4aiN04!{=$oE|MpkNZ89By
zP2l(!C+>fWyZg`cAukh`Wr3IO7+k}+bN%}=El-Fx5&AP1q#$24>MbU3d{(JjOvN@z
z>rX5-{Qm8OHPXq2SC%jXtloDKBcEW}s*jH#2gZl24?;osP9KNtKE075@f^|EjNWMN
zqzfwPCUCk)>Kg{&GSHV1YvYb|NikAOIEDziNbEvHh(r?Cj{FoK&4Phj6dq%wtgOJd
zjC2mNFPzA8=(^60hWK5-e%;G!k_cXqUUBJ1Cd_)YOq{O97?@|--ffF04n$0+Yx9AZ
zB;Fs$dALIwCd0$?6j}}m<oJvLsz$DfxNae#M5r($5<VNV``e-+XIMgO2=j_@w<P;D
z(jnp@so=9|J<Oc-2i~9ps3X{kYI9~HHP^>gR!-NLG2ZiE<CkPLA)9o0WN3bFh^Pz-
z8vxrXnuoGRKRu9jb0+y5Bpcfm>&ToiO^fy~qJY{v;>}iwY$PWjZ12cb^U6q7Ke!a_
z%*&RpgSH{wM2@nrMt4sm?}Ci?9WE1d>h&$6l}o@rD3qd(_)gZ9yR)&fwio;P3B+aX
z)^{7P){Z}W@Rd%g@Lcme-Gh}C3Wl~<NuO>Ji9%Wl5o0mEzrAIZBlERG(#S87P^^f^
z=8#<TBWfV|g3RXG!L<1~x)BMZTd%PfEf9~8y5<aD6DfdjR(aO7N7-Og$!^93?2a<y
z+ph<K<jiEToUgJ-_Ff3wPEWhQO+mO2a?|#c<c{qskE$r#iks~<OsBsna&Nx%<Ivar
zi-wRu=O!G4UoO-W`i!YoQ{22BQTWx~NS91VP`++rTqtF!F^l66pkBoo<QN>>^x9%W
zM2yr|IkMmH`rVHaBsb^z`Z$&+$uToV`|5Pk^MnLz@9Ak|4Amo|$w!z{WN{*rqXpT~
zF~~+<@?52HKl5-agUQGn=A*C25(FO=-UAg+VlrcywAdTxUU9(6_(8l{*PBMJs-43_
z7D)Dh6suHkH91q>sTkZ8nWf4us7yQu%8^m77y~P!F=#_Rz?5<Zm!}|IUoj?2@85Hl
zo;^_?v)2tOjG#<T@&V7+r*IE)Gp#J)JrFyrtaT^sYY)j5b_g>z*4Y@%2~Qe~rCavs
zt=}@sJ8ZIL7w%&YJI*bigL>kT6@|hb?}psAsdImA!ap78xp+07iX3#5i&N(5&GV3s
zLRR!o<Hv^7ew2fJ{89@K=#&B?5c5ph1Tkzxd^NvIo(uBzNAQT{<r^>MuNrwxaT5Tl
zh_fVuRw<I+2QGlKo$1S+GfyvNJil5qjLj0X1rbw2HHq~1v0yQw*xb2kMn08j4%;CP
zK20JkhPbVMwq==|*OxHGf0>x-6L!udgcHx5Dx0h=mc{BPu`Q7tmrpP<&QL(NoVd@}
zH1XA&{5{2a+QPVJFLK&`6die3?z-J7qbEYY;V}$?sL7|twIIh*9o<=^hYz^IKn<mq
z!8mbc!u(w*H-cz|XgUfB_d@h&{g5h?tnLmX13Y4E+;M@%(6Gl#UKecf@v1eAe9}fz
z*D#<Yi<||?iW)?sh|Urq9=u=FD|7>XbjsB|Pb}Dcq^)oS+gA*^ksgW%WQ=Vh9#agR
zIE=+wut>p8a%45+MQp0@bjSudL=wx#9_}`N-(?Sha1nNi=2uxz@*D^>eGi5HOgOZA
z$M^39C~OZ8(!T`(mLOrpCZ}t1x$qg`K3B$rm{y<QKCOJ_$dRd#ir1;sO@Mk4sv%t5
z)1PmUTm<kQREna)xijBizIt_=s1(7fmB>;UYct0J&@UYo2PDviEe9!C-#rJ*T(LeM
zvzQnEmDEfy-M09Ny6DxJWd8bwhOIorm1L*XdCbouu14~oD+OdR{$00N31r4iBzGk6
zcgJcBazAVN3v66-%Eg?~u5v#J0=EVV>oGVkhz?|+BHKu!V}x)jgA@obSXqhGA0zEg
zE_<PL4?`j<$WC^~Zj8TqeOrrLZ&YO4=ff;S7i`U!F;oNTf!-ti1j8e*z<LfMJ6{WC
zpxxVG#t?wk;-m-Yv725sha0IRF(FSR&7g^7ueOj0waS_5)E|=Ses;BuC;_%t2fl!f
zs2Gii#8%y=_fA2<kL!uu@|z&(G@uR)t)T-MT~B{x_Ym$@LvwuY)UI_#k4#8DE2QsZ
zZ*|NKyk}}=)@xh$;-E)d)2}sERqFuY0e6m)L{J6qi<59oU=MK~uyn@|zJ|mpnV59#
z(z+*%vqb3{)btG{bM)Z-lTOESB-y<zh2Wc~bqx#v;TCvC!A9_m6~?W|uTV=%xrSr)
zv-eZyCQ=naf%Q;`0IVO<H#Hp{ox!?*y?gf-EMeFEnW!HUjEWUNj1jUGI_`Fz=IK+?
zbCd1Xh3mBnAng*5Y941!&8^Q|mH`ocxo4`j;Dpoq(X+8u7tRvxHsTynBCR!qB2+18
z(E$+#3V^Tj2g<9x5Nt_Es=o0YWR40!)ku6qsz~2uU_IeE<7h$<ipsOh+kX@-mN*!0
z!4L$2fc6*ODoPY-{qgy$aZ;UZcr1qz2>T>^cCQ)Dp=FB%aDTnM4pue}c;sXnJuo$k
zm&<kd?E?vG!*r9RyHV<qR%5BqX%dNrQRI`$w;)>*A=FQ4kVx|j=dT8JDejz9DxP|U
zorhMI4~KYcx%gKIsm8i@_+WqZOko2s^7L;Kpwa;yXh>)s37AorY!RQh>P!6VR=8Oi
zY@N*y091G$cf4CULA&4fNrKFHwhXW7?2Q;xHxFmf*X?j+${Dxi`!NqhDNl1YfONyl
zeJB=anK*_TIwV)Sp9htJ?B4*<NZ+{ZP*e8M)ygyq*YVkGhg@(KTb*4P+E(}!oQo^*
zl9i-C;gmg!-+8l(aDAaaqG48|=z%IUH<i#6wb6cCO1OsS+SqgXRGMMF^VbZnK94Ob
zYTsL>{pO+?1pJQo%+Ac)(*X%+brFaLAjrB(&v1q@g~Rj4bj8)sf%MzpgErggDS?&U
z=~kT!mszY?zb!7;{$f*xeZH<r22y~ubc<>F@P%z8i9_dner_9g7MAUJ`lnai8740v
zkWy-*YhqRR2uu*BkyF8F+cFVo)XVL+lbJNLv>dRlL;hf;?Y^EwaJsTVDkze{>gT$4
z=&eo9VaS0)N-w+!NhPqyey9n^A>4LgVq!w$X`Dsb!OsT}chPlCkT#Vf;WH)$kdBP)
z6*hr=aTWv=3yR?E%cdSa2$#jAwu#W0yj5k!HB6lWJ_Q|U!ImZWce1hu&y2q(0g!wF
z$tB2YRY5trlSe<(a3is1XVVC(MjeA`MsCdM8$|5CKwmb!DE8Sbl`@uZK`JTYEEl*+
zi5AbrDbEg(BRy5rCp;Y>VG8egqnnZII`#eJ-!oB4VpU-TjeF0HgHUQ2SlW3I2_kSP
zku<&}$1&xH15DCHFWfM{)KeX!RSX2hL9}6_PcL9E6J}8syHG)X#$#eo=BRJRNABSU
z+uUp0<PUk?`F0@fx@W=9UpJ>0{7vKX>E-dl0)ozLSK@_VIj>texmKD-T=adc;*!4^
ztF1lvTOJRm{5#7noBq!AJLk_oO9<Bd{N8OhZEp6i3dj4g^Sdi6^{Qv3Jv1w-H7VJ8
znzI9{H5vr$PiLjiv=w?2y&l1m6X`R^z6kGrcuab-<!Zv&w^xWn&&w-7K&yyYoTjEG
zQ79|r8!4oIjOiuklKH#I#Of1y6=6OfTNiD#M)3$q7ie@>XQ_$>`w$?Fl;ihLNw5t>
z|26GuF&g(vC;i-&yIU2DNHrFz&|s*v1ht2Aig$ou?Lu;>g^^8SI{Whqu3=d9U>NY*
zlfa2<$;V;4x8$JWq6iSu@Z0;lcR!q;cAFChGHB}Kgl+$WIVO3kEM(t^PKao_7O$50
zh4?5WH|ND_nnGY}ic~$OE7MT4MZ}FG2$%}LeYn?-OpWj9qzk;g?)l_i4;b?~=1D;%
z2DN|5Y$oWKPe6x@<m7_OR-0v$GfUcb7C`))LQg0D9(f&#Z4QP^5V_G{WBS#dtmHh;
zo~>|aSs=h~g|%o6%c7*>n*KKO7Lyw;;qrdVjdjj<8Gnzx6=EdXnNI#e&YfJ6d*rZz
zm{sEjXsU062LYuH)%>l5GvolzL@|p+6im4eC3~N6M)z|l+NMtVSzgA@E)J&TY-D96
zE*1`q*Oq|-e$76oq~6fbz_?i=-wYm2LA?)wSRmz}IvOH6bCWpA0Bd|w`8F(6f?wDN
zv0U~LE#AxMUKdTkni3T`te1Q>hEG3mn%^-mlSoRjmf-G(^I7~*gpo?3H$~!BN0I!a
zrkgH^)bjGyOSfc0Mru<DI8pA>F?aziReBF(jS-)JBqCp5S(XJu`AJ3f;ci~>CwS72
zJxaMXT@YQYSU~j$>Tpdu^upgF`uh4(`_d6hFNtN`<1<%WU^7;PRYqiFmxw@#ZOnDB
z8;xTHH`g-%<Ixan?-iH1qa$qLR7k;24qbr7d^$^590|N`97FkHZrK#6E@~Vjn%3@x
zfT85n+r?BoeR=RM^705OBuQ#ZMWDBxZ52s|kYWfP9^j76m@58-nn@<(n3hEpQvC!Q
zz{7Lu^_lhecBuMtP_js6l+CC#QfLHY=MDv~WM&s`9OO1;fcux{_vI&iCJWXYy6XaV
zL{Zv^?MV3T(cI3RRWnFRoD{j;#x5;j>=P*~+?NbpFnMgPkTu;KV_mW{^4pUxQl&^t
zr1f-9B#RcqIx-oXYsa=USpe+$fkN9!aKB@_k9ZpjTl}6reM*qH(YxQ5!xl?Cj$wp3
zeCGL^hOJIPM28^x7AbBrvS%#Z_2+7>7SvC9!#`3MFErj#zFb0Sro5_Z`Lhs@+3_0o
zc*g4X{H{6dNvaM{gQZ+GJ@tda{%t2V!{>v`jyO0tP>bP2FcvDYM4fY#`B|DDrs+@+
zV`ZNB3Iibv)U)^z1wrvhp@_RE>JR1wRs-**q4el^L`2IUOUZxseLW&(hNKjGwD{dM
zW+MBxJD*f{GJr9~clPr#J8tEH5!6Mzj&vwyq}XGg<`I;*5dLZGG|l5+O@K7JE5c(U
zDI_44R7fy+-rwnzm)YUw;DMr;`|%4zjvZcWfMhZF^1`O~{7qotL-W&d^BKPfFsAE;
za#@N=oose?_Ton-B&dNYWjxx(d5YvJ@{t4cxJ9wOd*$I-FUt}7kEm-8Ed+cgQjWTN
zUq>1>4OpX{hz_Eo{TJT4vuR206&e(|-gtuUT@VHOB3vs54mZr5ogj(jLqUv~<HQ6m
z;0|I#V2p?HLibe{o`u2v!JLKvC{W({qd@uBs4MgD>*Z!E<;WunW#?dK6Xcs*U=Au?
zwJaJU`ej&4{xQQP3#HB6Cx$&!F?KvUl5QoWPvbmj;-dRI)p_oHDEQt{8U|q`tyU3?
z0py!}b~_nEFn*1*5&124wKWNB<qK|a+(T+1%dcg!vesFM5$O3q%E5|k8&S~sX>iWJ
zFI==C6dO%dRn@iMh}#=Bjfb!i1tj6VZ{LuC%JzFVNmVkJ`(&#GYH}F*Xi|WKBG>1L
z6F>7ZX5)T%^dXU9=$6Zx9<`Ecuv4vrfskvpld1LciVShDce~8^WXfR}1CmEi@7bvy
zVPQLmk?jzlB{jJJXwFz<C(l{|hB$~Lzwk*#4nX(X0(bDt0`{uuJ68rW-A$b{eKm3A
zDm6%6XDlqfL~Is<MACb7tkR8xM@7!Od0F1Y*ax3;VJA(V*q^eRhCux`At;=>+>o_w
z3z?q^v7IM?Qu`lm77EdL<_3r6Aa8Sab|%FbjEI*+T#krf+hAtY8&RWejR38vDoQ;J
z`ZOLM*{KhzMX2H$`E&WD%nDp=*og-yl-jt)w)5jn(0{P}Y^VXnns`rtOg0)I0G{!>
zf4L0-$E{+s+Vv3FuP5O>C;W+1S1<@Ua!H2l8X}GxVe7~e@WgEkIEt5^-_1Z5r0!2U
z*WE2^q=;h#d1e4U>}ey2`+ZoqDy*#OWju-!DmXbE0N9(jA*l&CcEeW;5A}>^W$6#k
zy20Hf>uuE^T7V<zR~+EV6Bdg4Zh3h@$q=?7hQTkv*s%>?NUCELN|0i9U~kHJ?FEt|
z&H_4tp@38!h4yN@O&CM2;t1TE44mK#7f%XmQzR+Ce5AB+L1Ixf)>C;SjN$n`6ZZ%%
z8iGr?&+GuwV<Wqso!UqESZ5cP)JF?X8-+h781?^0;xDznbNv2chjQZJvF-PQso&#V
zy?Y=f;rrkmTH#8|Z1zDVN#wRZs%z}dYNrdto+p*dy42RFW95*#0azDQ6O%AMcXogh
z2JsA5GJT~Z4BAlR7%9*sL=CeZv0%fCfcb!(^m})E?ymXrMJ=I=h`FD?ij4luob`v>
z_KS|5(?V9tKiD11?H_$|rsGIk;~4h0O{LD<RAFGsj9T(Zy;z1(yQ2WlO3Gmy?cCgE
zFUzE&Y%Q;v%pKGHI4tEb1)mZX+Su5P@ewDh>iCXqKBV6NX#xAWkA<c8{MKl5u2jGs
zllzbU+yx4ot_YyKIm=HT@Ri>pRQLD1_;by|+<ijTB&z!WQAoKNlyMek)VNbGl1w!z
zLj-X_ss;9$pZZ565F8wAglY%Wx|vl+lcMNGI7x_00)o4sfbzyn)7?_fYo}dmy*$sy
zLGI-MZ_GyDYwpvPA-?9Z>Dw8+XGwrS`)J7g44rGfCHrz*=3oXXt^Mc4F4cZ}4~gG=
zNL|E`G|IPJXHe?ID9lJJA!lad)5*7ib0=(jqg|znHJoZOAOve%?ws@3*jNEnRh(<L
zAM-*e-Kr}?jyP~y0B#li7!=@9;qy=l$d0@aXeDsK>)^)u$9l=<nD_~(AsHkPM9kUR
zjMrqJwa{9cfH!R_>nu_}dow^l%lta&78#`YZ7N~0gvQz!dv8(>NHrgX8(WaBjgq|l
z3^*=dQmA`P|H$c*^Si%PRcZ7hzp1D9BsexIO35`lAR;4U|B(4f0|SF^X8z$A5rtxA
zc6~f```S1}uM`$I<hwCSzVLHd^kaZp_#<%6H}YhijlsZBvOsur^c9cDr<-Q8w{wVF
z3EJ%Ya8gGnI8_{o^GNLW(|FL|CnEg)BIjiH0B5XEe{{ZQXjCbjTNUx8lS@*EN!HQ(
z1)_)7Oj<k)DG!`N^09Nkr#x`6RLx4`+v>yF6hJwzzPMajgf?%8uVFY8a1QI7_ZjcF
z_dy;C*{ISD@$jj)<eYdx5vfq!UREqi#sHjL)O+aGMn++tsVoS8ooEk_a#x|0VEgoJ
zbZ$-TeSXP1xUCZUBaLbH?X#Oz!7h?9!~Tt8%!{KiW{v3wMcNW_My)f`9D6n}b1>5i
zT^!tzYISlk5|oZF-+_I4RbTaOc_$@j>Vhj6-rJ+)a&p4y-~0)!@)#vz3<(N}kjljG
zK#CatnK%3pg+f7?ol#{x20tWBsuR6x?F!4Tui`kW%c|3hGFBMl)be7;pSAE<jAy4Y
zS?WD<E2hx*pi@SKHZj4L{^%PCiZaU)ibcGy-d2jEG1nTnB}3Sn+g>VhdTR{ALRWsR
zh|SED8j?-I*5T2*Cx|$ooUHv7_TIMv6<&iVEVkfOkpS1HH*5Dsl-2}~_tmiDNu5S=
zn@WYsV;y;Hlw;~2a(7mtgd<fvz+K?eT+zFLxgaHEUrOj)O_i1E7-(2-!tk<WkP_40
zS71trTCI0UHcGAWzt|0*M+K&~F+@A@GW@hnret+{-WQl$pGAsyLfIiI!B*jhjo`9*
zzva*H?2<PlqVT-GsbYN=YE#m=HPG6kv3Eqs<HNq@xHk;=xJ%;jQN2uH_(c>0kQFw5
zCP{UnuNW8eWcl+9f1u)j7hLW9QNwfeM^5o%bi@hf>F+_goSK?L<=(i!v|E-4Y8PoM
zG#OA6J6k)CPU?|<^`mTGP!w(0kh)Mv^lQ`>y|;9jgLTmi56F~KdFLl8!f&=e{=TQP
zAkcmB*GKecQ2GP0-~W%_)c@wE&`^nDM*in}i9o{Tf%@lhsSy#|@l0Vb0aLM7z4Z@c
zcZ2f}@9rZY!E@UhG*Uo?9J{LAtX)(o-%VKFG_ViKdW@B`?aF`sS=LnV{b_~qcyBc$
z)e0Ehh8`89ezoxZ-K|EwRZ(aQ;L1Y^zYmJg?<#WL1VKxaDmM<&W25&cl|QRt_>cJP
z5}p=4BwHUl_eSZ=&Z91JEhqqAQZ5SYZ%EB@Qq$ARZYnLmko2XpGO5goY+0sTQG!2F
zk8NKIqEi$=l;jPJkepM~)Lf6^4J4RV3rHs(<se}nk~cwqSGs$g^!6DcQZ&zn0C1)L
z>Bg%L1zxPyRHv>&ay4Y7akb44k8OuZ4nqW!GvY%5hAI<p&MFhIrmJgevJEgWc!~Ux
zZGj|bzSXeOavianZDx#-tq9}!iHd&&>$oi!VB93%<HWROLn)-79bm(KW)hX*oMScw
zf2V-}YXe(I%619?pA0AZ>#Xw@EtB7VudZ`61d)>?+Pi>BBkVXD2Aw}(uQC0a2VU-|
z-XR`Tj&}{HfUPAy5)LUVd*eqIk-&RM1HFvup}#)+OINZDvKAeVC1JVkQ5q?YT6C9z
zqf!3NnRFKw{#kDtR(V!-6x5Eyk7{WJ!P2@)8}ELY<%T>4KVGb8)~+47KkvAk?Kt(p
zmgTpvjgHps&PA#PhkYv#1oKVXH*_|@Ew7=jZX;2GEHER7&wTY3$$1d`M|Ot`^#MdA
zOj;5&NPlTU<+U}^9ki+1PVSo=Uasek@xBLIsHiyEyL(L(wjYJU@77ZB`STr&NVbJy
zYRWo15lWDQY$YHCK@P}-f9YzS)6YB^{p|pJ5dV;Q1pw@ypn_j!1~p724Z%m}n3|fk
z(<&BI>+8=LwMtKOFl&7`DfQ}h_;})jQR|$n&gzcm={BFqXYz;8Xo=if!tjKv?8Xuo
zr_&*2gp}}C7QRUqH!1E!R%GZ|AjYwdME9GBWPk{l5n>{eWGKFu$xR-VhInQKHPa%U
zWx-l4LX6e%KF(q>)k2JeOq4YG1(2>j2r8$a1?>ah`g$%7sw-bq`4Yg%=vO6pI&mA-
zx$iY;v_kE0ZCe}SMY0j)#g~!xMrbta+1oQX$fezC%m;!pO*J3_o)>dByCMqAJ8onw
zM(=B!K?tqH$3jepILye%9hk$fUr&*VLUeB3)ryS-FUOkDliZMIZFEzhzCJK_*$Gob
zC8L9TIK(XY$U0!SVFcy`uwbdd@kd5R0tF~~7_}bdt_0TF$lUb>bLcOpqadGa^ynxT
zGmTca`)2zq!(NJDV_n^8T+ulH`YNZms@LBVE_s9q$zA00IHw!P;4)zzisxs_=NTct
zIeKix&pH*NJ%$ldR*VgeJzhh}lfpd7=C^sN?6{I_UbFh*lK|JV@*AFYR905r!%~@3
zs02pGFEd+24J${swKScfP~zHm`Vj;f1?;sXYc~6GxW<Q}CIH9)F2l<X4%kBBH|$|I
z08%~_tBVDfH3S`H>BTaUditGPwdmakjy>CcOSt4NtJ8_l=&ty)R|_lO<MRotVD-!5
zZ)-URWf9pE&isKmg&N=7XM}tO2z7*76zv)YUWgA*T;Z6y(gBP>OIphn=3C#lt`y0g
zv5}W2g#@)VjNmi=bY0`~Ex~0)BvIr@`ct7{&@BquuN+zK(2R9JXm0s}XC4KN$m;B_
zlC~98q5LMoZli_78@<-Sf1vrT#%s~nrtLb1l@}IVha2stIfdfKs~lL6JKK;8c7;@!
zBbeSiUBp<OD^Hx(eM<-3QcUDNtgPkIqsK^s-l=Pr24buh4zHQ!0s0D-xU!37E#eAB
znhL`Iq1}i-o5{`pvcMT`c%1lm$JF~}7wEGc?*?W&a)^QZkrp9cxr$0faycRPBSmN=
z17nD6djjMxirepPH0xmury(3h9%-Iph)X29yUL%+NL?s@`h+$@G&x}44M9&|)n^1J
z2SNi1Wft1!@&D1K?%(iO{|0LPZ;nd-L}+G5^_ZAWa1kC2Rj6|({Ov&$p-lupy`6(Y
z(2MIHGsPaaksJ1Zg-G<JE^ykjU#MtT<p|nWSx@1^<4f<BhYQ0Oy*%)Puf22fzbu&h
zbK3qjkNJP}^A9Gqrzr4Tx|gD-*MzLA?!#jj^4y~LGQ!$Dh6P?E(n3nb$))o1=M%)#
z5;UV;Nz*w90N}n%8&R@D$Z5#x30PowImjJ|i{B0UBP;uZ!(+`W1P-`;xR6AQJbs6f
zPft%Lp&l?DLR7dnhQ$xr2x|A1u1X>#3JB;>SxC+aN)CSj_AnxLS)B{JAM%{?7i7f6
z$W#w41a*RqwYA!0cw^mPh#Y5ZN*kZRA-;(3xT~6)WG2T~PCs0yf&3N{{;MxiL1{xh
zk)9Iyhj&9F*&7$PyL`EGpzOr)XB}rj<~d!BJi1yR{O0$;JwMzO28lbU$iK#Lg*^iU
z1m%2Tgr2ZG<Q_Ryr|j+Qz76;!#Jfd^6up~*536Z5Q8qdUfw|+*r#SF>LqYLH?-rLP
zT(?p4@)X~aSZ9G=d8;l`k8)Kh6nN5+o5nS9ndaZ2O2#CC3P8a76IFI>VxqIjgkR=P
z?~r5k*uepG#9VlLYWif4K|N}HI^cPhoy1stBW1^E4?`=8_aeOajg&@8|NBIdiE@Y#
zy)DU@IG$7(y)3QXX$#4C+p-gLZ7*!*=NMA6UpoHFtn>eSBmZ@xauQPWy&+l%XmZ&|
z&qPCHyhKqeNQzn8NCzSar3!=@)ahB50L?r)wBv;}xpU*)0|RBV%}5d%O?~gM20kf-
zif$9^+)W*Z!Z`2j{W76Vq)?x9OGT_j6vd209}%g=0v|s>Qy`-H6ZM#zDG*w?M10Bi
zmTZ_I0)SUTolN>ylCCtM8;LTQ@MSNNHY4Z=GP^a&76gNMzUBA!6bBw7Sq+}HJt0#c
zPx+x|Um@xF<mE-^{xwMppA6;m_H;lv{N>9RR)!RK$o44&i+g!^h@5W6g$32|VKufz
zq*o(KZ5cX0n5c3m(t-{rL!kHP$zJZXUvw=VWQ5nG^5^;>&<hKd`mlvr=LRkb({ISl
zoFfSoH(4>u`Zp42>$*%s9TFYSP60*4ugF5{kw}U`ucBid!&r-p1M2>;&qxm<htW(~
zqN!;-vbp6M6nEd6Opu?}Byj;DVku&|+^3?!9l^*RDBj%h644jM0LG4SE<&5CpdTf%
z^+e`Np?uG#XkH<#?H{2dDBh4%aYPox(qarSl29_hfhYs|?|FEPRp5`HRn$<P;WLWf
zf#@WkR`BKANEGBDejAxt1dDqI1~!j5ml)c;aoSaBa3ZPWQ&mHQRLhf?JEi)`W|}il
zd{aXFR8Yr|w@(FHR+RKfJ##8mfgR3uoBp;#?sNeh4v5|N4Z#4D>Cat~kT}GBkv525
zwonL%OC^aI!u9B??H)@lM?Gl9bH7L=yE_KTAcfQXl5J{g`k^5hbZ#vKl;mTiW|U%p
zJL7i_sYCOx?-Li$b8CH5@Z3Z&Y3>V&P%4ks{gt?>qIXVX4$=ciBjRm{`EYF{aJ9d%
zU&YI1kM_kF=1Oct855NX9wGu4o=Xe{+)jO-n`LET@v$M8biH&~WQ<;xzD(SE?|X{h
zE4z?%)&24z(zpzT#*{)N?%JiAr;dk=5&_n6w4?L#B3*WuH8vg+rXzm+FnhLPS#nBB
zk*1d3zGsgZ>-#%W8vD9)>qWc;92GI?tgMvm@l#YMB0XW9HFz!7SV~$3k5aFPf(nD8
zT(TwOXed^dL;5WInGwP{-dH|K%z=%EFOfssnvF;m!9Fx14RsJoHB~-R=_2d~@G1nH
z7+P$>dR|4WoI%xlHLrDo=%LCy(Dw(>E5Bhmi<h)W)n7pm&Rb}&D#|0a>K1aK>TS3D
z$yRkR{yIJ0ComB`lXII>a<{mrI}|3@?F!{3Kb+q!ih^V8k-<S<7@eTB=iku$v3%Cl
z2I(UB>j1p40n2Pq<oPL-j>5~5VUxlKY!(E%?cibr>?LnPdKpZA)dUd{60#!JM?QRM
zY<!$KP>rUkNLeRg=*58^O?Ss;UOY(2T5<rg?n3>Y4P<{dS~^$kVzWYBuw9-Go49tP
z^xxeeT=}lQdY)u13nJu<R7(;We9-mh2y8GV9agL7p;I1{EJuedD01WGdgK1I05B)w
zNVO8aft5A2(Wdm2AEhx(ln6JG1}&DINGK3ouxxyw(0sfkkeVUMb&}U3+1RGY3sB`+
zzg@yEkF-50zrgcKt+r)HgI$ulWfsYbZz*Nal^cYON4A=?2D|gMlfKlXB;-d<*Ri>s
zw0}kDom$=n6s3R!JC%F!hCgmZx$bXJ=o5h|5tB3e52M>$8z$2m9VUuNjRCYUCA0O0
z6@iS1b=L;t^=OEIMZTRh93ZWqhiwtnZHAVLD{w*kvN9+!ec3|ms_-A()Blh2i_sBP
zOX8Jaf3Q#!k#*@qb8lZ#(2SfgDRm{?BX!kmpdZNff{F)TA_q;rh~`!ki@hDL&<Dv9
zd2AD1Bu>MHcZec@516d4$$`@T2AA_iQk)`y^~vy$2)#G6vVur*hLZm^S)@d5N3w(R
z@<iN11jRUQD?aCgHslKO1qcoq4W4fb9QDQN_=vC(gn-;kz8u=EbE=U+$j!COF-To6
zFH-G7HrN_iGtiCc?WUw1Ar{IraxpZJ+z73NDm*0GY2PH|f)E)RlsrYG?Y39#-icti
zWK-s&cSPKJl)rra%C=R}_cn@D-c)sLE5cIznWUo8R|lLcv0S(gC+Pu7JRD{Wy_1P~
zQ^t(x+I=}P0)Ykw%i=MazeejGr@*OKURa^xsOg3fNCG`Z$p;zrK@C=!LOeX=j3|D@
zm}Zgv;u^En8UNY$4=uowtmV)Yu9-jRhMd<3+$uU0tOg@dP@{7!E_>oktT^zwbJ8_N
zlQ?9~k0>j9=U5PHm|BkV1Yx{|jt+Zjf}x%6DPzMnkSioN#HgKe9`!)HU=<P-6H^%^
zlm$8{oyuunrAE#NSynpreA4OcDLEZ3RhXNaAR%J8Yl6|j7iS_>M7k8jI^!3Zi3awS
zL9Q&?Gb*~(9ReX~74lHR`Z?9&Txml5=rEm>-jf5o{*Je?Nv%RQiW>fow_yX)sWWBG
zGb*QPMgK--`0tVcgmUO1RP|)Pi5v_N=|_4KuAU$oMrOni#Vow=)W^{Wwl@CUVMz3Y
zGVaSmQgdw3u^tXm84(&Mnp~t)iTu6*F(jIOtVJ=_ad~+(D+)?`^bG}wp9c28zzACJ
z`;bU<R?bQIFWx#og(4;{<T6d<E$VO7z5w*VY@_UhToT=W@AQ=&T(()G&CI`p6qSHM
z<L43cv7YqKMd6E|ukY%vhb$YUE?W#bJ_6}X1`e|*0qnwKSZQ);u8lN-2b&v!J~qUw
zZ&nR17PClfcBg9|qwI#xNT+u}6jkf~|IU|?sro?5+=#Ta%^{brN9rxMt3Kr<g;tzs
z)p&R=c_LI0^622Q3+*J+Pjo{gkk*JY+-$J>=~?t=JX)PXl+b7-8AYmAq>&{d+Jg;}
zHs{d{bRVP5GPbQ&)$|SX^s7#TTm7WhKuS5}kdB5kr;$>Ty-JM;{VJhb3S>aWLvsFY
zDC_b=PfS5jwrwp}S$qkXcr`Zs&c4-Mi8pL?S6;|fsxZ$DN8@txr4fvt3Zxo?(975|
zKBSi|&{RX$bVXxoXg{rxIuXie*Ie;t;ILYEPPl0Ub7<|5faz{dqXe5|j8+28?|FjD
z6hH|Or9!xH)Ol<GMyUcC$P^+~%?(1?3kax)h`%H{9~hB7{X6Y%=088t<v*~w{l!5n
zU&hVb^;Ar@bI)&}WQ{10FSQ_jWJvo^GNtI~SJP!H&?BwkRU@m?_57p{MLbUGLs!&E
zzjKw2TqU3;Euy@ijp3MdM%@iqOC1?8gdb^Wy-NCybeD2{v?X2hC((AkzUzC%8zJZ#
zhzKLR*%_ve6~P6^@Qs>Q=O^B?n-t}xp&GL${XKPRNPAe417J$!$$c?CK&F@&NTjbo
zsFE+hs2|*aJ*=qp%)|*l?|~+Y|3tl_#irX$;BQBWM9V3Nv{65zQf82oFLWbk)#Y4~
zi4>M2q4dBAOYU2(wapcY1J_P|qy_BV=$oLOUUDIc@%<8rh+rX6+Ut%grNFf43S{FM
z6%(Y0GHdj)Q|Ci#lxVC=h;G}^n|^+m(c?F1DB5iU(0osKga(zk0-Ys_0XAIxRpucn
zwrWvDsY-IH0X8dxJ4a7^=YQV)uY)QCJjbxJi;>0KOavZ(1XUn<_0@u89(2XRU|B()
z1vNol2v#oY!Q%=^j*nE;*9ZQ`QgpAzcSMPB+YxI|;;Vt^bnOOl-O|?x%YeEWMIuDa
zNW}ia*<%%lENu>&amE_6_oi)l?|!eKMwX`y&8coeZ_`COK#~^tq$$x&q{9d<6sJ0F
z9Rvb@{ZxIm8%Mvp!ACON-8yGd-1x4KO0U1$Zz=M^FgxyrN@%fRM?c9~Li<$=9Thuj
z+xYDzd6S`(Cyh!;IsPZP`I%a*ABax3qo#oajfb^ndbM(Ik+LUI#AGC86ICkoGW4nP
z(mh2=-cK&q?<B3ABv7+tNYZ)OlHEN$H_;AXh|zeIYz_l-7;GnB{s76Bi+=dy8!N`^
zBL{RfqDL$%%GJX;^CPCDzj0+1Ad1;2BO}A83yy*s1|bH#m|<g@wKalCQq@E<N2k#A
zyULiQGoADt1|3y&?#5=eW^`{iBm!Sl{G*dmf0Al+it%5}f^y=T`DZ-*r@w<#%y-$O
zY}ib?x&r6wlW%QFKzvQ0eW+OK*?p^P5}ECFSDw#RYBSG;(ryx>Cdkc+T(O;K#etcT
z@&h#CAP|$ZRMv3|)BOui#*8>>2q5GLZX`A~s&r@if)p|5dq7+P*82u1Ysh?{V89v@
zx?&<cHLMJ9>A1kx<^R^#x}xpA`th4azLMKXjP^1n#v3aYwa%iZ6)za22S}O{b)X}Z
zR?W1mqY^CZdy`e$(_d<|H@pamJi70?3f<}DZiUx7A@5-$Ux0yc)sWlxbsTo5QCtT!
zfk}#U7FG$(rx<qn<Qwu38k~>gv}P&BzsO<^x&m|2-27aOM_QoNW4eCmwggI{f0b>1
zibc7#+O17DG8!TL<mKTZ0^lp|!B59>Rz)7Nq@TDSO;M_y2>rEvPQgiuE~>%TjDEhP
z`2=a1Ow)7HzPZ3q0wBTo)pbb|v?y<}B5cyTbrY;B;{V&|gu%ljW>FijS1xp8^hBt>
zOV{(<Zb~lSjnS%012j`PmgSCXUqA&KD5S$iM2e5?DwK%vBUu~iSADu*k)hI&m;Xl9
zki9tib{5sEITwjREj86yYFO&B%BqigC13OK8v4m!mHKrOwv9X12M$OIPm^5=It5Z(
zZdSG7m^J>?)K-m`*oP;_g_bwSt}|_H<`XfMyS}0oIs4lrPgIjLkxVqg*nUBHqR0la
zvO38X3nA=X0BX;x1MKo8i<GW{Txbl)#6qB7mJuK53O$rP@#)A=4eIGucSW_<4wbe_
z-~ZTmOW;@JO{5XjG8*@ia4FbhlzcJAEhyf^NXK8<5E`Q!@K_kPC2g93%E_;(IRSLq
zzYsUysrTJR<96i0nKUHF!nyA%7mBpp=!JB?FprqqOG^ujeg|r6^p@pr>3}rtcod9{
zPAb{a`spT7%7T2@^^Ib6uQt_Csdwa!&|(?kl;q}ZBgqCR-3Pf1m`+N<(c9UNECm7#
z2x7{ne4}sAky9FKxWr!tw-GfR_&X-ha7-ww;rMQga_v`~<eQa9aR)(d!h*lF0XTUZ
zmj)Ih@LxYaG(VeL3%24pKovm+WN493oe5%jOkaEPy2I^z=K+C8{wNJy;0a$wK;A&k
zk>mB{hp#yfJi#{<y`JS6z@%=-56pM^HBaX!96;bFDOhiZXZ$oEPs$ufkr7H-bIR7b
zhy`!1lDV9bnb}MmLgH4Tz(AI1+<0_RC1e9IDvRgrKm9R_b*J=@j7>MVCXLGN>&bJi
zXRJca>c0oc;X4di3D{ru-<talx18he{db{46HzJ2h(bhBX=$KAp`s;J+I#OPNode8
zT2yH7r>Q}^G_|J^nnEh2`rdD!&-Zuz{)BIr>vG}oJn!c<&biNh&biMH=YM)@Wa~0C
zNiFP7{#3Xz7_c|7`jQvrYkpS;=?px<#j#}aH58JMMCRkCMFHe9QKx#P*x82D>+g?$
zg7VLE&BOgl7$RgW-8MA|FDukxMFkhbKU%z=r8phb2=x3r!cETRz(5E+J_o*gSqLdA
z$pXiJlIV!jJO=eaaS1w2_mN<R|I3cSHG(?&k$YTmU4~H(ZcCa3b$?PDfE>C~Aa#=a
zjV<iSaITYpYw4}YZ6=Z`44rHg&PG}4fn8eYh9!|k=C{>6r>`~_E-$T?=^d+~qvyX`
z``}{3x(jl<YZ-*k3FsV?J9e%ur&YUP^p2ZuiEFB*sbzt$(yK&G{;iTJAB(lVT-{@u
zuXcO;^f2R_BS#t{2f6=#v7>$B!R;);9poZTBN@{q`rS^_s1dYR%&$Ll+G9$!kTkqi
z;<5Bn_AcX_ORobfO)9IacS}kROh5T(DonJs_53cSH_6qyU&`72m~yCEBO&WafKqb%
zFtWuJZ{6mDgM+<iW~^UVeNVBUddRnPCjrSYd3$@I+qZA;d|az~<%<9NyG;6Mz7lcy
zx#vq$jMcBGHZGR9<Ti&rDjpK-`ePICS{;93O-02|mz88q2*{VZ%?qIK@;098MwvGi
z9X-9Ajg8>kRPSAwh8sX=#=Vq7FJHcFs2Vx+`wM-bK+(QA;VS2g-BX_$Tz}1GJ$CE<
zshN^gTUYmPy1xh!EL(EPd$nzs({u!#N6YXuHgl7j;?6VPzh70e$JmH#R^HP>4qHw`
zW9zP6yAG~=%1D}(or`vxlONS=6DZD%vHfDymDJ2+<J~C_a`sMW=oZ4Tl<onWAhn>N
zARQy4qnS=&(drmSHqWA!bjRP@`YJsXPVKO|8xNSN(X7LQOLd~6qT(7H(-$8nYx+RN
z&VeWNx}I@r{4H<YoP^9e=piG1+SOIe*3Qo2>dyYn6Cc#YfB!b{7f#=()cXOwj3do#
z4wHOEme&-M+sUmWn|I<ZJUu=AgMzB@l@jzu!10(L-D;I|;*8ztZi&ov!HTvzOD3a^
z=dUB8`l>scZm8eWO09xs84CwTKz_c6)7=pp$LT&YFaOeWc@b5w0?&?H1fVV<HY0=C
zZGO5E+(N+YtUW>l>QkpqO*3}x7Fj$NxX%oX6ve!oI(AZG926NeM;I<%x@0pmbSgeR
z{>idn7XNSAxyb)-`R4vDpUZ&z1izvei*drmds?}sE)~1J73vw_8$X=Bq^7nucJh9x
z@G-whh2C)e<cpg0EHc1d>qMMqcJ}011)&u8O7Tie_ITCi@ycLyddQ4_beQ<n_3pn*
zr4}NQem`Kg_o1bQii+4gj7@m-{8(G{P^N_IEJ5fLJ70L#Z|tAf{(QG+@?>;Zr`qRx
zhIx037B8yoKUr{hx1Q{PIcUwArX~_LBpLoWcOg*?br*cZH544sF)`guPd{vMls!~&
zuj~Bu!%jUfF8;6$&=z*I%ZYv;5@S<*FDQtK15pm*c%Fj?=_3y7Rh9eDp4)M$eUZnl
zQDW)kYUV3lXML&BfTj%f7u>`2SGWC{&|3`v`qoF415^nQpwV(IfzLW4BSVdaHEO>-
z9#~kb1sNcM$g}J}T6nx4$x(th_e?00|FBytWwa|vEj+-Us|QyF{WA|q0f=l<-bYxb
z{@*tgF|fnta}7)1Ter?}{V1-u?D}cC=tb97qwf>%n01R<QZG*{e7(B5DUsBgr)j&)
zAJ+Qo(W6ZZi;EgP)!QdNT!_?kRGBoJbuq=&YApHKZ@911uF9-N+wkU1YJ$u*m^`<<
zSnos2)SRv-MU<i4ss*(~5tU!h<1nsOrIaM31tq;fK^}QV=DrUG;eeP*9a$$beJn8V
zQLO<PtY%y*r{)y3U5ncKl=9`I8&U>M1x9*mRXvWMES5u)CEsh@@vJFwTXPsZC-bIF
zw|Qj!b_xr#qHj(v{pwrmFAeNaFJSVaVR(l)EI1^DDooMvxJ3WCjua2I;#w_L)!>}Q
zCY%TQFJbsc;#*f{oVp=ppM`c{s-j`b>%kZ3e!h;%MU5sITaEtw?5hp6wY4EXGsE_E
zJWqBWpHQe~N#7`IKlSRA56upzX;Pj5)%u)etCrNN7p`BwUa)-NXNRlZTBC^m%}X3y
zDgs3keccg-MU$Vk8eJJ&PRb4n`!a`7F7GR3*L_7JYu`JYK9e%d`GdW>_o*3^dM>wZ
zML~L_N64Y6ch493E_?c=Zdhifb?%quef$DviA~sa3z9v)&>P&v%S%%o#7&k+9<d&h
zh8FKes52fDn>r~exkH;`p1DYtMJi_Q*@M25*49@3QQRwEG)e4`?oJo!2yg4iu@LR(
z6VyuWFspmH+qVo#m6=w9k~tQ=TY;a_&T&1<Zp<zkuZ-;L(-~8GD{+Ezroz>ZRb^^B
zQT<kczt!pl0N8Ae-6{xUYJy_Xd-KTh8d}sGqu_`)RV8WU!|$7iFNc!rQ1+|dlF8|J
zLbR%*Etk<-zv6Br(;j$sHtWtMtMMnSs#mhxRekHQEw&vEXra0t<F&$0FmrI!br-o#
z{&_Gm<;&b!Se&YzcRc?s|GX?EdTD%MTX&B@aYBr3wb2!;?{`JYCT>bfO8P%|P=SWG
z;P7xibYwx{k$P-w%o$}#KQIg9q=X+Xh79lH>)!|7o;`O?UO{0!F$70~qC|d0B_#|C
zu$bZ9Rpj*jG>YnG!1IZU<6H<k(i4%A9zDr*FDIJGQ(IGWwitlI(ZRS;tSK#R8$p^0
zs7KhKSH$*2CoIKT6_sj~tx*vu4HlA-kugsZT&n+?LN4Cq_DL7rE4`NH4_lsk)Pk_N
zUsfjl7m_~^b&JX=c>|jqE#a17JE}<Rce+GaC7w_kZ`_)8ut*~Eg4Mu9M>mnUf#QV8
z&+dUM2Q|39(NHH%lo?uEXXNZ@z!$fk?h`fn604Z-4qdGNV7I6U8b;1<6cLG#R2Zdl
zc<2nveleXA_kzCpOSxJPac_pe`Bb9v?$g(=cM*+*our7($~KD3tG_**^;*|iR%$e@
zDPv%Osn&O;&*3NA{P)4?7qWMQqoN+7<5@(a6d>;gE(}fH9X~&^R(IytujCvHXrY`{
zP&j2^V35#VKKIIEBJ)hpjzf8k*7AjcJffoPsQ3Ndm8DZ)E3c(;miO^f9V6bod)F~+
zKQ2_*Kd|tj{b6#G&DE<r&|YwJhAj$^0@;gxo{00#T5l88`000uUs=>nZdZ)p87uvv
zZazYp$tfw1?!0qosw$i<sy{-f$dLgTcT|9-^@RPmW<~C*;uix%n}d;Ak&^?=*EiQ+
zud;gIxBUKc&d_Pg<&t#g%|`B9lgI5Hwz9GL<1zA2a^}_4*S`n)4vvYjvX8-}ovnCB
zb<3IBfs%^wCXoU1=-j0Bg%2R-Z6<Oj3M>c5HNDN7m7iX4-{|ZqHQI=U>tk{mh`d2f
zd`wc`n3<XB|L~!Mf@erb2x$Y4TMaybM}<Y+hWwwbjt-~m+@wioy6;@PMSUhx$h;#h
z%VLK0R@>7A?gv_aFuc?o#Z{W!nmgJR8@rQq#5mqHH8s-b&oip=vvLR-d&7SKJnS%T
zPYQcK@IX9s;6W}eN~(wFPm=d`LT?)-XS<5{JP!{K`2Z!WD{hm$c}#Fmr=b$j0$qkZ
zyu8nruYJeewJLIwCqYyvAVdF-z_b%q{6)J9#yu*vMaQ$*)I9(KFlkemkyFGQqo0N#
zL9+kgK{*8GEbQz^08ClYZQN+*^yIw0ir$UyMw}|FoSY9pri{Q_R(^VaH{|hSAIRd9
z^K6U<ibZeSxY3-ce<nM^{qm^io1|zrrToQThlX@v^rhar+G&5LzX~|^-=D*k!p`?F
z@#8-~#an3qul;G#daQLXR7vnFQpD!n#4n!t+J=VE#ve#bTAZ(bL>aCt_OJP+7STBk
zN)HoQj{uiC-5t(l+#ybPN9NX(Cv0>)eO!zzEbQe}_~J>ArUy$8d$_bqG)A2?YRO#G
zb9V@WrQ+zjOh=Wg#gMBtRWs8c&J^}~F!0f%N0HAWRzxXZm2&o4RI0le8W}15j);n~
zu#;5R_4Jg)8M%u>tyqMEs{COjpawukh4CSGlw&(D%)BUipF$~4;L_e~<lwAQi(7z>
z%NH8SKQMX*_afrkV5!uW4eNm34=*<j%x4Pd7RFliQWg+yW?1wdKjWt)C&yUv@3FJ&
z^{zSu!I?L_93iu~V^@+&>@B3@TJleBNgsK0>vPgLj)F6!<5;$A@kM_nD?rp~K<^D3
zH~yIUB+Dt`x&`5$Gz_xp>+@VlZ86-rb7z{dsOLwx<K!Wm!a5wg7cIs!$f3qwed{{S
zSUnbS|9+;+ubXe$O-b?CQA+oc<Z+`$PNED$Rb$&trvk(L{W;V9iq^nC*d7P`yvxMB
z3&saE+-DwgR1K~OaXb|ICGQl;2Z3mTKf9)q+-sH!vQjg2d#2IHNooVDs;XXVS>bp{
zgIPx2FxhyBC{8YQ2leG#ZB<oo49%k=&}8@di?Pn`-MiNis>vFMgscYoUYIz2AK)r4
zFVA=V&F?tbbqnK)2VRVAW(ipq@j?AZQZe#Kn-vo_;Y$MR#@2eEdH(X4?di1cGjfgA
zBUKD?^73KZ`_3sUz5{=b#~@NQHl}La$3?=_S}HxSWnnRg@y}KM_loOL1^lAjw57zu
z&G*io0_<B?zRhmp8fd=Ydafm5J%I>_Y_JpFs47z*<EHiZFJ>k0(VIFql(Ym#M$!`y
zu)9_3v5mx`&{q|QCyPWTTK%vL9X+Rrs+K8_xHu=`C;;<~%@hl5(!?EoN{?TNMCce8
zD!r-J%z!N#g2sk%cUHo4CF#%IaI^`+PWzOf3}JC(5jleLq$Tiv&3rDi-v_w~>y^JQ
ze~~UfU+d%VZ(jZH7;PPJ9$_HLaBxE+B8;qKZr`Rh@5xzD9I^d;_I@kg?q@@TvdI!I
z7Zm|nXfjdAvUMwsmzNibW{w#(3UNg2{liv2fsI;#I?+9B&dwu8m`P<Eq{I)TzKDp4
z2|}C5@KdAcTNe}MoSj8bqrIlD)N9aK8F{&gpU3jj^put9G0e<<M;}*FoXGfJj*%3~
zjk7qcj~+iJk?#I5Mf=Gv7Ct^c-UvRy@J^s}$fzO<$g>O~?U$_|HoiU|Whyik8Occ=
zWG*p#Z+sM<frXnp2$zvZN@~zRlRhefd_j~LD;&Vg{QMcHcJla2U%A4DJBO5x;ROlQ
zw=itDLw)Pkt^EQ5ly7Vva06YXUQ*s!N{Ppg9-V>YgSNf-L`SNi`+{{`FPE-Spm9Bb
z?O7$I_e14A<g<QE(cBCt@U1<08-nXyqlU`Yuk)ZwAZTTIX#@oaKBc8n@7}*hTdXms
zq<dGQVOB1ecF)S}=-03MOLJ3a&!0d2wK0l?lan5cjPrFJ$EvHyDZNGWF{Q%9Lh8C%
zudO4uNe#-|ZzG5xq|MD!YCZaY4*+NmymkA5aeTW)MA)EmbPBp7GsuW3e1HAp#}CNP
zI{z7s`0&bU{3G9%ty^UTB6f?3^-Qi%5Lur#FxW#}gYLt>voX07=07PGXMswZVCME*
zc)=`#zoDa&M)Iw0ND!$URzePauD;AN5T-w?I0D;A6I5XR>2^*NYRV5-NV(3w$ytU0
zzR^puXdPtbrlO)6#>l!HK5khTz|BVEt9YcBIXP-{JQesKcVc2<%9jE4_ND0--8@o?
z5n(btDiPs=Q@wfHh>GO&l5v(yZN*Y9?0lnnA0=Av%qv3+?E?F;M^`d$+-WH`Mc1t7
z>atVv&$<sEgr7yPkOTU{T0a^Kk!(C~(68UWS&@v~+CGXfJie2%G6D*8i%h6hH5dt@
zXRnxLLPJB(PFX<4j(1-83;LTve)i^=JU(Zl_W7GwcHW^0cYxhpJ9n0upLCuXx>Y`c
zK+$w=!Pj@~g)3LSg&yth2~0KdlA*hxqho$S5+{)P&!0bGbtX!Y;j^1%x&|qcEolud
za0BZI@B*fedQQdjZ@^0wIa$U1f$g~mLxZw0CMsz%4Ro^}5Rjfqnx5@QZ0m8m@A@5R
zp$;c@;*vBQ3ppmB-Y2k<y%@<}3pCEHBaYa8QTFL|n5cjHOx-vLQJ6+yc5cbLcQW>{
ziU|n`j$d<cRBoW>68rdVF6yMyFp3Jw(H7d0cxfLV!e^<!z>aqP`t^?0`V3YN`$N8V
zhFKV*%bj!|4=oSx-!HAEwk1uk)Y9o{I0}7y?d|sHgSDceXY<a<5y~Dzg1m1i<#NAy
zF%G%XggQ2{!$1pz&VzPMqG@w;wu0O#wMRX@@OB@*SnO{C3`E;?TkA(rieKDB1Iv^Z
z=A55ZRt^n+nbCn$5E2}GZEgYQ<fTzlblA<y8lUSrLnZB|nmFz<a>>k3_v;p}B<}7F
zPi`!SXIn>T4AM2QewUD;1I8MLDA9>$DmQQPZrZfz!7Hm8oI)xBoI~~ko3{OQA3LFX
z@#1a3a}i<Kj;u#TXPyA?M3y(x4=l}pS6Z!aY!t{_MHm=w;o{;VLs#82w65-^tS97u
zb{#&fVw|f5hg}IDAqR#m!2`^WiG!ry&kc->TXEJmGwl#()=Jgb!peFNOTz<=?Cy)G
zTBP=dPHRcN!$dgtPX>MkX0_$bh24CqsP9p)YtlUCtjkiAkn*(Ltm%(~ffgl)m7ALz
zDQbSc^x@$fB)tIer)fF&EZ1cjInmZRWG>$8INV2vx~<KJCxWtl#V(h`@?NXNY`u5y
zUaKSIrZ;TZ&=7uj=T2#N-1}kJ2ASk`jUF$gv8cV@pj50@(*$Q>D<OxF;zM|4uy&rM
zf?#DuMOWx)`NpJUZaqH{ywoSOgLAO?yI^xcO>Iw(R_gvkhgiYKvH&A(1sjkg<TH;(
z{MJl>R#L%u7=#MGpVD$UPICf#AW;D~5T(Iu)|;6-m7bq}1yQp<x~oqkRMJe^m#T4q
z#9xeDVtWc5r}z`*L3gq>bUqU~G`5ekg~HjLb`XwfU&1e3*C+jh?cXKvx#5(h#l`Rm
zCnZJ23RFVLD=RA(JZbna)b90`?b)ZP8usGFsj82xR7jz?at`g?^^(7~nMh}rq2~}f
zON1Rxj}|g{MC?SeWA}1X%bH?{Q-1#Pg+uu(p0w2yAfF-@6X3FL?OOldJge<}<k=i8
z5nq{YQ=yr!ud91Br-?qHgsDc3AqV-%@T{BOozcH0YI4lkha_x<ean{>6&2;4AGe5K
z27EJ6zY5oMRJ7|t$clGAGCuUvaqXsL7w5U?!GO_|UMt15?x3X(Ou2#A^I7`F^m20G
zZLhf|y(r!*v<fYo`j<FZMdKPLE$YDmgwAOKI<y<QLPvJ3>hU4Z?*kHXOC~}bEZes2
zBmBW^iKHrbQ1s1uWA*}VefyaBxRy%FY&a)A##*k|)}SbhT(J)&Qf&8|aAOMXjFSe0
z@w$%G=ap-Up@+3ax_i?OKM`B+yo?N0#R=rU@^npDSVHt|?$H1(YhZX56M+CUL|_g2
zAu2)9&=c@kj#>jKGOL0jjH$IYA{ElI5M{U}oR2PpSEIL7!tIX6xnW1|R%H3|yLazY
z(U?k<aeMu}?xY<4v!jd4#Z$Li<Eq!P!&sFl>z~C%vZlFp5K}3A`v0(B0>O=7h#+uG
zOlLP4JyrIDCYnM$zdPD+c-zjMKVJo-W?~zIl<6*h{td(tr)eFm=lBbR-sIP-oqf<!
z%BKxbV4)}rg0mrd?y`=~1JrSG5Hk=o{)E)>UBf$nR$<sM7knd829-7DEn5ui^$K(X
zQ7W~KKxl69)6YB2{oGh~{IVuIs6H+e;mvi@u`4QCw9!~QO@tQyBsBW2ukRIyl<Yyb
z9g^<;2t<i85*@rcx827Cdb}w*1+ByR4olCpOsg;aU0zPG`>>b8-(P&=Ka{9tGFT!3
zRzLP)V*JT&ZV_t&3@DJRZlS%6)_{$T4R78A%@fYd4ilW4hn8)t)Mn$;eZYpWmo%y?
zO4->iW|M*9rD^5|zI2$A%aiaGnf>QjM7yaT;jurcH?XkPOSs6#AQFWT>a**s<)!(&
z{i|bbuh$SDoNtp?tXBh-w+w#~$1ctM_>sB)Lx5>V3ZFz%Q&S!vgU3Jf5aX$=pr8<3
zYrxx<^bNJ67tJ9ya{FSUZ)s`i>>JH&Ui^>scVwvU$Xu|@SVl~Lp6{{5K?^U!dZObH
z=HYU}P#L$zuP0Z)7Fv=f9$oNQ@WUcPjRBD@6dfBz<Q4Ww%+Jr~jbAY;o&VN31|(p5
zG#pKzyWxsIOG;}>JtEmgu=6L1N_T&w$v`EB?jwwM)AU<Iy2n&3H%g?ah$CJr?nD`?
z0oTTwA9>etYrE37k}d2bU%%24q(}V<O6O2quYI-^u~S5(%RsD<ici~;&fviRy2AvN
zl=9})kJ^%11cIc4ihdpY0^HmRH}L#<zupP9wFHph>3LE!<xriJfWUbURZZyY6j%V(
zJ-&IDqwsoo0+@uI5>6G$7mV7UN=$txEzU1+Fxi6Y@lyG(HIe})=)x5DO2CG|O;P^~
zKy{~oTbMStg{AX(gi}hfOL0gekbEV%S3tDz;E9o}^+_7ZTpUL7IEB+<wBfdMZb2(d
z%m}o2+nTxeAD5q(b-?x<v^2x22-|p*F%egP!&3mP5zOoBD)Bf8klP+r+w;^st)^aG
zQ1e*LxJjmVUC0k-E$tsUg*0_c`A=?)1sz9u4?1X%64wypjP^_-(LqHZQz9QF=8*DW
z)@#;?YKMq**;w|G16etZlcIw%bVaQ;9YfJYJsEqatl%PAFK!;Fdqf!xu!}97y_d)>
zNN+<vtl9euf81C8d?mc0lwBVlY<>|zSnOXW4VZDye`ehD_4W6Dt>$s)aU!IlRM8x-
zu-VCP)M2*N{n_?1n3<&P_dMHiPij9q!o?ywA-pf??Ox0tZj6z#a`ake&*-=sV9@}h
z=0q4qXmEoLm+m&KDa<_!xkTg3i?#)vu(7bK!6@WBU)1``S1kFg*TeS7N%Q2ObiLA&
zS@*#b4`#y?cPQVk*D7C9fh|wSby)uUcLs^%5%BW)UaOKq91QT2Y9$|@pC~#gpkl5a
z-fSfmc-8X#)kO!>w83@WgI=rspXUJH6VJ^~^>&sF9mFKWJ#Pn3SoU@8b=kxcVklCE
zNWZ-mDH4JJ3K?DDtsiR&P0GKSSaQ;7+PQC=#bQiAJ&T(CaK-wuf)&HAj-&Ity;nvn
zF;C!Wt%o{4D|F*e64C|+@s-CeeK2W`y_FM~U^%w6pS}P-g6%DPlrSpK4oGlIy64w!
z_jx+9-r*)cDS+KIu6bWY{D<$XxUg{hbsN!uxCr+GkEP@A(o6)XR4zXz?m+awt)-!X
z{fk)QIhWUwbYOV4f?~LSc}~BciM}!3t1S-*?@8Z0R2y$D(ewwYDkikP8dWuaQJQ8A
zkfi%)-~YRyha^xeFuKxFDtlb>^lIbGp!=_f<sQDwqck}+zhEdgVT1%tURZcIS#Hug
z_{H*(TFA<|+YSAb0zfu}*HIl*l;QOKYTVNKXF>{vp@S_>ficG|IEbBx4l#75>s3Qf
zh4}lO*L-fgHDRNe(=>hTq@OBCQehXnBOZWD0w<1q=5u(Jj`Di8BiA63MfC>c^2ekR
z>}tGbBgAs6Z>^!_+!2?XVp84Fs;6{0k0zA|yk2+*DsV$=TyOMd$*HO`!(tPmt2T9;
zu`-y#1*ZbmhKzZH@?$iTh28W|5+qIFoi&=EBmBnm$FTg^9}J`(eI$O*zvk$F&NtG!
zv3&_|5q?fH)=nV!Q<zY~)MFZG@%SnxP^%t4@+2(m4%iq4J(*g&TtwiBiHWTb1RtLE
z0a^SKP*TKocE5Ml$%f}ef~xY1W{r?%s{X8OMJ%8wDB&w|bkd570Yddx>24ugbiF2+
z2d<n-m0~%aas7QtKyBptC^3Zym+Gpjm$9(~B4IRL+nim5b3yQg2$JvyZWV{h(i1E(
zUaM}|uL`moalAhE6%;Id@*#c(Ef<+6_4w^uXuV-I$xjh+7!MVC!sjb}>J*jd${!=-
zbYHeASK^i_HWfKc_{GQXF)%WU13X+TJso!n{4^uC<O9e-KH>VCb2oRYiz7(<r~j<`
z!ptWT>ml!tG``IFc3&CMQFDj1o+mWy>?5PQC<k9G-MWrkjb&i`(PgoR0RitobH~r6
zx0~85&YDzIR$d3x<!x&*%_aF&;#za;sm6`@w@C+W_*HB54ER7>DaM&iz&qz4fOm_W
zHAB>un1efHTUl9wtDE`#TOPDQCd>mlX5P5%)x+m;d-cH#l2HX3!PjB)@H#MJG?0SZ
ztxG*QGU9`3^D9x5i;1D(!U%zA5#i82Ri^pp8gHSyJiJ#5DJP`&!dG^H4I1xA-H3k%
z>S%6mwmo*GGey$}sJa*a^|P%gvL_Nm@Xao?Dy+(Y+~x{DbM`FV(PPJ6sPR*UzV$?P
z<t?lW4=M!EeU<b&IG7obdk8t^qff&3ebkgEdw5O^6<&W&lVjSx0pK?v89Vu{HQ~O{
z*@VMFLTXwZYX}$#U##rHpFau?m*P${d_+SSTtzhqCmVo>*J0H?j^+#qGCp(^V<Rx?
zjW?GHPdqeq4Mq8z5OSVXRJ1ku&!*fL-M8-yNATPh(Dd*%wBA|5_IK&ocl|CxX34na
z<vQrM@3WuiAc-5|+5(MZcXxMdS%#%X#$L?4JD5vr$0Tbn)rBD8<M8$?u#aZer2q0a
z$Dnz+v7=XIhlhuQpFK1E*{W}wj-v!lqUPHia^IiuX~ta{FV2mn>l9?QlF;s>X|BCy
zUJ2Nfi-lvMf_MN3JxKV`v){O+`~?AWPTwFR07vH?sam-*mX>Li$99a`ib6BZAGP*_
zVHEOYhek#|fKCSTw>|cMXFk2p1R-K;=27&RJg8_7IZ{xP9TUTiJ}EzxEH#djHsa`O
zT)0*uVVdS%G?^&_Cg6=ILgZP7m&N~1W?*<W(IGzFnI6+FB{|mPQ*cHejAoeSE2G*?
zo8SSpNDHxR*K-mVlWFW?mt*+Wv1<G*%*@^u6>{zf)fdnYa36IA`6rc+p2BDRUHDPc
z&_E7Uo<U7^d37}{yzhHpAYX97Jr2jBu%bh-(by^(xYGv4g+B`mJ3-h&KCc`*&BDsM
z4pHdZwQFOM`B(t?Wdr0^3?-lA)duJBUM<;1DsZH)CI+qRLa5iQfxwRz-j5b<Uj>6g
z`e!T>rd#YhdUO+zwphu^qS@!s(d)?d(?mS};VX8`0C(_WH)1g#9GwMxJh&?y6GY3B
zwzjtMPa9Z&Pj+ucqcn+7aGU*Lrxivwppy-`Mid6=AQ5&Ax-RDr-6vNcw-jGl4!zgt
zyT0Y^O(0J|o-FK28Mve7EJLNdim^nC`Yn)18>>o0BG<-FC=6T;X*U)SS+^kE{fLs&
z|JHm!>-QEaZOWUPRI~yUz(0qzLJ(NgJBwRJ#}Lqu@J7{{rmz{>qjY3>Q{Ltt0=dX?
zf%VnJL}oTNI#^~zEwQNbm}b1^pMs3n;ePWeU?$^^l&8;kXPwv32p4)&3UYsTx?j7;
zae2|f*VmUIe*XMP((<pXfiQkx^F9G&E}-^{lfo;?!XnCOL>eg;mNCtIYaZYYYHI4{
zT(iqgcV*=?k}kbw#CfHQ{d;by_>_qWANpQ|(b>jzGQ2mf$OQ?!DV?MF8ws!-)qp51
zv8Q}&eLmobiT*<!a&o>|x59AOl_H!}qQ#${*tF~C#lp_-2=Z;_r*)m~?(WVt+lF00
zlf~c7pwpRUr0H(aGVQpA4I$IS$YBx$p#2;0#RVf$nEpYOK}&fw>&ZTqXi(o2bM_^<
zUAven$(YCA|BV(YL7aioF~wD<_R%J}&zunVE=PJ0qr~>30k5I|6G4<L&uPz2bT&<T
z;>PAX|9IKfLF9cz;YSO;HhSO4WWdp<4XHnvSwgNCPptp93F~6qf3Bx>x>wu>t1IX@
zdBy4O^;`rhWF3elci%d11nAy&?+|%$M;Ie#fvon<i29Znvb5&?g{&w)rWC#BdCC7q
zB}Njtz%rn*W`wnC*R4Ax5D|wm1+u9$!=#N@r_g>q%!RGf8?2&yzT6t})BpX1M4<lU
qzo|9+cDRxx-T(LJ|L~uFuM);pI-}p8=9ZD2j0*DS<<exX-TohIb<5cR

diff --git a/reference/plot-12.png b/reference/plot-12.png
index 0b2a1dc4fd20ec8bbf60d3683901eb46b4bca8f6..a9b60dcbc1f9eb03ece34f32d0740f86244bf9b8 100644
GIT binary patch
literal 58410
zcmeFZ2T)XP*CmQMixHKml2Jf15=C-Gaz;UN6liiVyoySaCJ9K+(Bvf91Sm}oO$L$J
z<Qy6r?moU+|36cAs;27J+`4z>r{3?gf#&o%PuP3ywbp*#s3=LFIZ1w!goNabtc-*z
z3CR&R5|Ts4$B)8K1|kxd;Gd($^3oFUFMMr_SNg&~CmdvSoJdHh{E+`02%cCrB_X*^
zA}b-L?)G7B$o2gtjsE@pRs}BMH%zo*D&Kgnzy9(z<2vRz>C)3i<DUl<p1yvbFZvnt
zae)Psdy<8r@Fq)c?)7$hIaRthhn^q)aqZ2a(8`_Ny`KXmLtIqm73t~A#ERUS+?h<Z
z^aTNpZf`=In#PIxtF*uGiG<|dplkr@&ufyW=o_C;{rTp}+r#XCUVdY~Q1$2KxpbMO
zga5w1_u=OM$~XVREGlZ`QaR*t&BQB$LdY#&!))}+%Ll>P;(ljw1YDjG&H8$*f1^kI
zf#0_irukC)7|FNfFJHbSn0`=7*Jv@iz>hw8>Xi7~Q+wg-B8Pszi-}e0e{}oj=#!-a
z(Hv6sS4*sW*l?r&KIBhIiRV}TeM$1`(h0*qFJG(Cx&8aOB-fQfezMX>VpC1A5%}c>
znx6F@qdcqbEatm+b*^2zX4PMuxlleu9e9mPO0U!=go7bPV0Cqs$D821j_;I?G;oPh
zRZ~L^yH91BGz1Z*ME5hRJvU#eEBl?LdR#VOS~gJPL-deEe;sXG!*{O#d_kIJSnVOF
zsMt-jw{%RHFrD0AY#G|>QEE4ob;Zz4tT~!Tt?upR@Q{#1(f#e#XddebeKswNGa4y1
zkw!i`R07Uz?o+YpU0v!1KHC!>(}{k?4x{()QU>ME286vhMmjSQX@o=d7^JVQIh#Iy
zoFN~{MlS48tQ0G7S<?W1U)t{r({KPQHO7DP+o(f^d25`e*A*kLg0qzTDl;C!Lr$&2
zn#79?3dgPc^z6#(bX^E*cpq%JK3k4XkraE?(sSK1yBrpcEGA)L11$qoIQ%+Ur^t+%
zojtEO#+ajC`$^xt%f#g5Q3D1+!2#<i2Z<Sd=Gn1-mu1+E7Z-M5fSV<+7(AwXxkmWq
z&;A^D7X~vFjlNKv>$zCn^Vr<{7$#dWhF5dDsY#*8b<t3*%x>uEy2xr1SN(+JHIo2l
zCZ;>p9_uHy_Xx9jeCf*ZXEUoe7Dw#us+Q{$1~k)^s6wNnuBpa`{BkUB65U%4e)@!-
zfgu{-nI1DZsGnC`Igp(p_Ts3H>11pCqU%tIK+xL-d*7B1cgIR-a%%`yPBUGZOXRl?
zk9cp!mIM*jXZ@-MN5A@2_Y3jym1$q|`}#;^XO2rPT`4wUK0GeYE=@U}x})O7JXa)k
zLc>)_NvTbs6}gxK(@pnWi7_W6!jO=J(FFWtO@u{)pUKX{#R+@f)SPNd6z@)zk9;RZ
z>9g{Kv0|n1mN>PBfbX7{!IQen{blw>pB(dQ2w4mY@2{tKX6o5jYtVSFJ@~Y8ODk7>
zswMVC?*7hVZO_Xqh8dS{X&z>+^xgL{aBAk!Ew*^jRv6L&7ZBbYbUJ|jsLzJNcStT)
zZyJ8XQ3Q@Ly`z;5%6KwXkMo)C$_&-aGt6lWza{Nu&|~CVt+Ch=D_DY>#l4Hz*<EeT
z!NY=Orl(KUj)EAJ1q-IX*4MX<P*_w1_kP8DYt-+C6t!N6kX9pM>)+U78hqIPL^V83
z<BuO9bQ)RevhhBI%#Hbh^ykkH!cv0&V1>+ldUi<nqeCLK=Nw0BYU*~5{lZ{5xro=t
z^%_{N(ZZgkg@uLVj^*kqDhbUoeA&{$)S6Mko*Nl3@;3}riQg_NGchtsv+9+0WocxG
zg@)3?F0QH)Vl}GKhr2InJbU%dJtASfv&wxnEG{lrHk1KB-Ja|y5DWkHSGwjcR4$5S
z?{=ihmpD$y)y@u=*~jaaSeXvBB*H(@{7;h3QVTKpeZ2vfotv{^HK<V6GV(4d(cjsa
zN9}Gc!&1}jOjGRq_U2;FreZXA`^p41hqtl0xf{l^yUN{3)_j0d^`<xFkwW)XGXs}C
z)BbX&^pv6<_sOQHM<cw~)p=tSgGKi~uKU2%#3DKBr^B@j3x-K4`R_d3eszXoCRACZ
zJ=dTzEHaWY5=-y*HF2yV*ct}Osw3r%MydTsjeyIX_KDJzISGP3GxpCO`zC|&JJ*m6
z%T_OvJI|=LMjdte(xvwS0jINTtn;dQf2NKkO9yXMq!424YnF9dR?*(FW<NhY^RZ`i
z82=t(9BI{)YcN15>N9BW9*H#-a9ywo_l7vL8)4m7n5vO0=}&f`tQqedUAa(!Wf@6V
zrl~chO-xAmq@HIuq-zw(W)Sdobctf1dUIG06D#NB|4N2h`k7sO{=?4)L*Ku*X!aco
z<dZAORhb{I9?(r6vg12)<j4W6xtW>ngmqWOXqoL5Hhl{+cEdT>8ohS!jShMCBe!X=
zdfXCY`ftXUkNn<Djf_%D5pA%ebMRQUN{l+ndvnNDz+)|A-3N!!f$+Mnw>RoX1F;|$
zv&mk)rrL&rMIvusvz>O~!UeAu(f!@k?rbggyjtSU$i8NYRkv4!vW!ey{-dv$O;}&+
zI(FCyRsyULI$8K4OvczBw9_*-P7>MMGMO#heRGjfYVC%OBrLur^6n@!I;mA;M}aq{
z+1>``D0q7Q^i6llZ7#b(e#k~G<d+2?#N~yQv^%#;UeTddJazJ9u}xp$(+OD9wu+(<
z*?fX~Alyp&5<25|TU_N86uOSlcs;E4-6w8}pQ&z=9Mfm^|2x5CCx$OnOho8m@T4MJ
z3F^vm`*TID82rvcr7}Fo$%>}zyc#RTJne$}IyyQBu%gS~E@r7D-v7jDJ5XAZmaUnS
zMPXmX@zA~XpY{TihH(e}x8d7soys|Q#&|EzlyM6yt1MVO=G8`Jb_Q*xa*eA#dCDT&
zkK3@Fp`oGcWwk_B<JsWxC+cAwQp%#l;_e7$W@g<=mmIrV;>PP7+Dmbpywn`V|BN_p
zZ*P+ex?t98AZVP|@rAsG`avHlgFZ_okg~hG`?`z5vYlTm$=&OBE`GZ53<(=cUryoH
z-rW#i^Ap__%d1*>3ln;gyH7XFvn!5{II>SPlEHFYb$y@p&i6|%U!<Xs2_)yi;5Bn}
zk5EzRI6FUruL90fSJ;Zvgr%vDIek6Dr`;LDXMfhc+`&DFsd~P2;J$7eppf%=zI4H~
z$_+tONP=1Gx6YFlsI-TdSxC-E4Z5ozH!on`LK(~d<coRvkyB*f@y>E+-BO!O$jV1^
z1OeYTO|^8xt#(zQth+HfYCnGbC>)qK%%c)?(Z+_=dB@7%B%hKi4*C~}srbBu1dyFu
zAqRh^;o(t1X9+Rf1JH%@5UM9rE}SJxGbftbXX_EGVO8(ccTGN%0AAbv$JMUE+@~2h
zI3AoK=guEq9Ih68xUC{}h=E~m)8YH~@5h;g9>T+$Dvmf}S>=?KwcyGCNy4L}v&P3C
z&rU?WtK1y+%$ay@t0#NSr0Rlk9BK5a@#m-5UTdF5Qr}E(LGm7P(N`W#&TWy9qgOWb
z<rI5>_TZ?Dy!@&M(+I@8iK0OOBg)o<KJ)l9+UXopCiMXiCK|)L3rwV|w<lv@OrnA)
z?<PTXzf4BvQ7r@kC(PJ7iSfUG`j?OcW_t@v2rF3j?s6ydyu<h(p^Q8b#Y!wYrC>w$
zKmwXC3QCGp(86eQjIYQ0?rr0oA*FsQ{46yVQCh{$7KtSfVUAVAOpK2s;osfey%CF5
z6BB#3zM}BGeDTUHW~<Ggto<9$7F=fl#NADLBJqp=<fXAhaX)8B?62!7bCKlVxxdvQ
z`nFlrar`w;biY|qra`64fmzSdmsi%l(*}nPJhuIqgk<kODQ)7|iD6YaB_*7J>rg7-
zoy`1v703gfbA3hKm9F-)j|^b1&GeUK0}_li#$HiOIV#`f;V4R}pxWlyP=B8e{jFV{
zyJm23@Lhzzlxjh7!-EH0<}K<FF6m+wfAQG#stlCc`nwG#R&4ZJ=N#LZA1qhXE3;dV
zUUX+4_oMOQe|W(g-tljKg!C58WgfIK*Ov?zfpyt9;rQdKNi{j29pxzNNdu<M>cEZi
z3;4gVi-yjPmI+o6YNqP}ghcKqza)?Z9LP7EKe<1_?#s-J=Dcy^^Q`76LDz-TmIg4$
zv$(TY44fY@CkI#k^UvWt&m;DIg>|>^WHZ>+XO1C3i*Ik`<_{mM3@#Y>{Nh;hg<w6|
zpyVXT!)X8#bR!qd&CO@CvU58ijU|y+ioSXC#)E)Q&)J0NSe6#Z;V}`eh1n$TY?5mC
zq{xP1@PLP`mVea|ko|4oHu@4-$i~LT1^?im9Xcjgc|znRy6TMSVGo_STOs^4zjMI7
zZL#NkZ_#M<+SXX`ENtJBy;6_$8RH4N3Os{#{|HgmpM`KIRb`Pz4`)|CL1yiN??~kc
z_*NFds;ApI;<c(MgKdfz71bTxx-|1dUHwmVU!Uz!?&u3?00er*vd?0viga<nzSee#
z!u9K`GXl=j@8~iCp43ra*AAO{vIdd&C>7CTWn4C|eIYgE-MfUauuHQ<$V@NTilC%;
zHxtxduG;Z;B1q}nu%EiMjBFKY?mDLQ?otbTXm`SxkTPFehi#|b2|!0HoJB+KnyK^J
z!q7mp&qkklczis~SBtl^!_}2M#8%%uu4xPGmoN9Lw|@DzpT(v>YzSdLapD95^QnDz
zpU9#+@#?FS%_Wb2pfkQ*{eI+%e!^sPjJ!aMjmwCW>)Ld?W|Yc>(zs;#c^A*N^&oPd
zEV@y`L^+KQOi;pvur%Yb3$sqCbPfO3O|OM7RMEeSkI#es^D69hGr*f-%TCN@ja_P6
zmc}g&NctWlfMK6*x)aAkmAO$f>a*46g=JNi08*m4EpN&qX&Ffk?`Wa{vxo?<cd50X
zRz@<Ndby*itofqvAb^NGKTUVe`ssFQnr=w0HwzbJXr%Y(=;)?lk+zNOZSc+7^Nn~p
zeW#6}#X}e>Ns|t^nz*~`6-XtBBgB}08KP;GNSVr^_KFhq_4#&jC05Y2G%en1MK;eb
z`7#eI_~tla!4wZ#@7%ENKOn-`AM(u^8WDY{^JZ{4F)&K$U;Rk2qYg3xF~^%48#~HI
ze6rINV`j#GgrZYmVtK4_7;OUp1csZJi2x3qVHsPsCrRSOd-T~NUFQ2!eTW2igPCDK
ze|i6?xrf4fxW;A1#IZb=$ZJ0=)SYXf2OvBS-Z>HeosEg9ZI8IaV^V(_HQgo#<zFI$
zavWv%)|^XaeZV!7>Ud7mw}9mn;bXN6AhNP>ajC%|6x9b(TxnmIUg1AES$D-~t)j;Y
zHuW03lrR&&-vvQ=R{K4K2SfLX%eTb(a}5OZe4V#CbM*ME2~d3XK*lPDvg#Ixk+yaQ
zEV$Xv$7s|cn9<gp0eD@U#%I%;0C#8!2ngqLiHyt&Q0`27vLChA(&u-xf%WC85q}rQ
z`4{;U6BE~DAJv*QM_<k#ZlLiM!VmyK+6GYxPL|a`{?az(;^KN?*R#95nzQ0fSUaIR
zjCb~^11K?8HU~&qQB_s7*H#l?Ny3w`2<!ysP^ByB-LywvU%6Mimg|emQgK_n(=glH
z-L9LICh(s``37I(s?V-j9&3oijLKyI3>GOvQ1K1cMF)O`vHC!9yF3`y7^y&Vokdp|
z>9U1~J5BR7I}4}Wi9iypc+e=Mw1iuDEB%2TFVDjY|L_3=$wtR@@QJj{1cH&=S0|59
zS?<(R*iU2GYfs~Al7=c!owyu5q}YFXNgTstKdisAxu^vp{Jvot+y+z)8kdp<Zr!*c
zhSWQ+&Qg&V&xJ9oVRrf=G>e0h9|EdMXI4woUWCEUhP73xj(Rl)E1q?OuW~3C#_FHq
zs%EoJG`)P+$0uV6rbeFgJOHCT<>cf}3bx#XGVq*pEtE=@kb7r3)0MSR(lh#R{x0W6
zghDx&N6urF0!5=7K+EnAcb(Rn`9>@Nc_9T4z=G}su|q>{V}Uarss45~+h!UW=XBLZ
zfH0_7$LYa3yWRYrLmWth?i%l%u!x8>*b_)CUIBLjTfLge{?T|W<YWR=-l(OYV(=?P
z`H0)?q@ueC5Y2BfGs|ijx~Bp_N`q9N?Y*;stA2vL524l2XWLYGcj+rRmstR;mDE5A
zJ{Ed<Nmkur6`)F-VOPvRu^Bx5H7^N8d8D)2(-o;3%Z5F&>F@;&)SXdW=4<c<>6E>D
zx#g4O-GJud?+W*L9e#ewN9V)$od8Bt0H#fUB^B)|G{ri@{b^)tDk23U3<73hs4^Rt
zb$jn&dU|?1VC0UO?ra{PT{pM~8OVF;2%<?-q!{v;%|XIJM`vevY%G-vF+@Pi81)CE
z7KT0y;3zozheIPdCt}zBI~l?M{ZBD&{vQjTj7ibc(S;FEor-*Q9%_xO{a1fq;(E=y
zpZ``jBv1Jz|AV$tf6h_=P2l*SkGZ#X^?xO8_vcgor=I0MQH}O@3(Z@pf%$>|a*S$4
zaHA4|*oh9HyihyyW!W&{INlu(D3Y0RqxCOGumu<MDp0cwu<Bt(>IA|rl&`i30$B#2
za4I8*R@GLWte~FOb;o6{w|#22qjUfYclh=CbaHS6g96Ex0kBZ9-N6IEL}0#(y>FTD
z*@EgDxj><*{52C}s<R~5NiI~K2gJwh4b+Oq(&u9+2-YmXS^-s}US!t1w)B;Bb~dk8
z)5WE9WFnA*<@RlLC>^dz8I%Ta08k9w+no}%hEiPsAYw^#jiFLH7w$&GOQ+@DyRc|J
zjn~%pKnyaW^5AfqY<lqMQKH?)(O24j7kEtqF7LCJ4PGc&mq-e1WWl+O+eJd$xDun)
z?;_~Fl5+GcWd@SJ*E;0uCgVlCD<q~?fM4?OMp#AbJ=ja<RJ|ag7e-tYa&!2O4V&B<
zj7Mq`&D%g{obq&+B>>B}1{gXUfS|x))oK`k{r(c`*|ZqD4x_!5E5uo&{SH{~IW)hN
z(u*YKjn+^NRIdL}Wq0Dc0R3=VcF-X(2O%4!q+THe=JrJ7EJVo8fNNY|2n&wo`Ut-C
z*qB3V9c0k>1|42NJ_&y(vQJCZ2^g;!%6Z~?o^SX5ZtH%A-B1M--5PMg?nLopNX&w)
zZ}ENL$_WTVB^xnQ6+oWiH{+*5gp_Fk7O~<yN^SaJgu;%+5kET7zuE8{@}1C;6`?@D
z8^U1`_I4JLbX$1(3duRP7pj6zlL78PLj<HGu*Wo;L2$JK2Fky?2-x0ieKRw&)1`C-
zGB*9Is)FT4z+b*beSb2lFXW<$(LRqW_~lcspR4V+FaczZrVZpXe-!^CK>%}?_cup;
zX~IzwS%Hl=VW#?OPLbVa;;k*7-++>sLKe6^5s@i#Q`7KieG%trm4XVu17t23M&-ET
zh-=&yDxV5N2qK%NP(>PI8G&W|@ZrO|2%bqBL0GyR;~P5w5Cb^s`6+`gl=!yy*p>~E
zIb!UPG?=*nXgL~?)6ty8t>rN!;T@PIK#0TMPICyFhXoPYx7lf5OEk;bgj`Xyhk%M&
z?`)a4^bnZ(TJ2ewGoz%^xRr<V{Ux|km~KAUcHb5)_v_?EtLWm-)bDO?>ctA60y^=x
zvmFkQJj%Kr)`%o9C^wmJ-MW>sqLi)%pjHjmuA%q3MxOinOt+x<p7mlY6n&<O>_DU;
zcvMvttrZ2e9X%ssB+BB+JTj_zhEyAzu%92?zkmNy5_36F3p$+;`b|&MGDpFhks|iK
zRi_A-#4Iyu??j{x0hPA~IYS;D2QU+TL|aK>WoIz*#6<=fG@zZ6Cr<*=$L+ac1Gi=%
z7Rk!Qq=G<L$ieT7{rO<9)n{=zKyI)=`Gpd}j!#Zz0edONZUp6UC0wAwWuAQf{g-8A
z`0&m%z=$%T3`kTWkQ4_rxW)b+kpRd!8A0v>bR<tn2a^&nouv`Mz-)RDuTp|O0r$md
zYHIoeDya!aW<EZxN|*T#V8#;>vgFnIhGF*F-JAHi)O(OmZbuA;r+kw*D=*`Jg}pQ_
zm|B>{M4_z*LYncFd>YZctz;f=s3hy}pjZ5P-?FuC<Uk^lnDv>8b%p2bf{8@fdoe8O
z)jQWyocgXNBO}I*yO%`tUU1-F1GY&HZRoWuSz<q8i01a%T6z~j1Moh4P*F~<18Cq>
zC{}ge7y~B^C}0+9=I*XcwQfMssVONkXd7O=PcGCvR$(P^Fnv3$d{C~xE9+sUr4<JS
z00*F;7&eWmxj76K6pna^(g@qy!_ik_tp(g{JPIi-G#$$zHtQBXezUT=I^kIE{PWX+
z_4$DwmI27kwPkIuA1k1{N^SK5X+#Yvcx~DsCIFQLj|X&RI%M}52q#62dq{|YMNFnU
zR;S`FtbE{`6o3J!3K?X9ZaBBEaO|n$TfkqB10DeLf{?hfR&5E-$Zl&V2%u&z-HHKf
z4T`!<;Gipj;96g86}5)tZc61?uA-uHU3T~SJ(bm|*2v#1GY|;DPq^vJ9{;!?s|ss5
zJR*W@%%YL8pQ&PSejrKG|MlLX=1~Xj%|Rq5i0jsy6-n9<LsZE|rU3Gk%+&7h?I6T0
zj2d8xwNRJE;T-tzBl<o-jN;ZH!gharVv@HF)mD~vK@y85CPQ?0l=M-c;kppRO(H4I
zcW*V`XG#O3{Q$OI2P_!m-eIfB15N~1wbB{rFSqdKA3xe(pQojZ9Xb{j6(s;vWX?9w
zggC%_>WTM{1X2s@0wqd-$g$QYPAbXDfS=p!e17DV7cLx7Dnbm81&eB?%7w2%jFd-{
zvFfJm@6_(EQi!{&P`9d)6rf<8&4fr(w*v@YgZIuraU6(}A$fZ9DvQqjTbh_QAie2h
z=YQtumNZTUiy7rs%&-VAeL7UPM?H4}Qxlh835@lbYn&2@GPIr$@*r92i1(I%UWLoT
zVCGc3uOU!wsz4LA%DcP5PY~e>Q4RnxY2@hgAjQmL?LNZdPdFLG@Y)vQ)`wh2WYK9#
zvAT0&RP^o%y0X9e3QYXap`nnoU+jHH;$F_yU}O&&P!!C~QC!mEuTDSkCu6Om#;t&8
zhHwLqi0Oi`EscD(Q$5zE6aCq1w1IG|`1$<QS}i=k2Qa|ihH<)R6LZ+@9(&tUNK(7S
z!=uro?-clolqNTnQTY|6b@2xwcU2ILBIr<ay#-zCAgRef3Jn4-J>wMH$9r(iES;h>
zkmZsQ#SLcYfV9OmlVY=Ga$%S%tD%aLEcMJJ(ARiu`_+|&*TXb(_3^IT`v4cvDM-PC
zLKFyun&sr=bcSL950&EC?M&=hKXHWltMwrwbt4Ph8KiFwh+yIsId$7p@$8jDc7c>l
zt*t#!Mqz*?%`mQe3xr~S{v+{%m1pRi6RCmE>#PEPPb;w7GtZ7uw*i@ugUFSTqmk!~
z^WM;z?=7JHDIk}`ZA&ZL*Vh*fRU{&H7&v@Bf(VZqS_Y{|F~3%fa@{Gl9l%ZPs%$=a
zFygyky{-&Fum5F<jr)bb#nq%iThIBDo-9c2P^|Ag4$LP4W;(<+>%d>^xoIb>3MlF=
zz3Z3(fbVrs@^lx624?U;mXx%FK>G5ecNMM%GD{>q`Mesx5Y0jvlmn{Wmr3OYrue<K
z@*!+Pt@4<d1FNf!5ZEfZUo~>o(a~`YpB_KcBDkmy`y630kDej7`1JIESnVxrVKAkP
z?9P^|%}!eCkgsX=;>{t=&tYaegCG>cY;dnnw~I&WJHCN+rI9Lk8JQqN0BVZjl3%;t
zb`RzQvltJYw^Xqm$-RFhrVVRq1(A~1PIZ6LcVF-(>S(1{?bM;GK&+Y62T{##CSD1@
zrNs+sLD2~6a*lOJifr9X252f8P{T$ebotL0yud&;AuFZPPU_BIFMy2!{Ed?g>5KzE
zW&KqXxV@a(?aDr1%U>Mz?;-1HPar}<?G7ymN4pFsa1|Td4q-rvzbl=GEXfDpZ>3Un
z5Wt6BM@PqVoGZXk<APTnb8|zLJx$R(So<MMOG`7rF=8fxX^>lVmZ3I3MxWaNw*`Eh
zUvY2^aYHX2WiwRKji9~h6__iQQp}XNwN${>M~+TTiZIi=I1clc4^Ib*AYiIN&HMBT
zq=JUULwAH|c#+`*0*g!ylvZQZ2T;Sbw_l#RLI}(jDt^FJ5Oj@;A;siTSH^<_o8tU(
zoxJr|SMz*{*xvb#r`RAG(cwjc@Ia5&z{`qYZ};&K=>R%4C?B6r2$>w;cvti=Y584=
zg;zX+5;Ix}L!{~Q%F1Om`(953VsR^wU<2H|7Hf8LHTD6n&>H$O!SkEc<-^)EUOje}
za(bPLOa{2~oI=>gLAnZ~y&$Y<^Z>E!9dQlvo~)c4Cy+E|Q1+(k8d=g5YWA-d7ki&=
zJtlh8LzuYMDbgbfm_5NebHJ{$c~Sf<EUY>E*i`&jLxsI=G*Jt;!=`F`c}5&3SLt1U
z)d|$G1aC3lkt_7x-=ha^<y9HeU8@{w`HCY+puG86?_iv0>4l3I6%7pyC1%br%5FAs
zwH_uKE5lvD%`TO*wN}J=F5HdBdhS^)LXMK5x-L5j;cH1(i~B-V>YIkECcqxyfjrhQ
zLvZ9O$U{x3k%m@uQBa}o5JRq7HK?F1AtHTZwD8>fezxS|JXuQtmrZYe!g^1}gRj8R
z5CVDnr9e!oD};=5p=V6#-piH#B6H<}iK*t8D=RCtdj#u(317fC)_dvkK31p%Vl}Av
z<9zL7eGH!sX{7>|bo{2CEP>h<m6AdiA5XC`)>X6%Jc>6?$FQF%O#9gBtLGdsA#T51
zEeFh|+Y)cE*IKmSjOTDGT?FXq-%Of1w3`V6M#y8r<|0kLzPr+r)a=e+r{H3hNzT_*
zX(ZHOYS|5|_#aZm?b9ul(8wnX(YYD9jUKu6YHn`Mc$I?B&W7$<OfwmG=Ff6r_$~mZ
zb_?`5yY3S29hZ31VW`aWgKd2q)t;Bpc?WgS9T(nzMl**3L6IO7*9enn9h*A;dlEZ{
zSNy%NWR{+!|4i{_-l<$4!Phss&j%h}1bPKCLG+F|Kw|6%1fZMGT`5OyMSfWU{2Xa4
z?9KO(C&)qh1lR-hj5UVlK3V~&2Cv*~3j<`=t&IPegfgN|fE_aF5{sZs?;WS{@8`#y
z1rz~D_f?>>foJyT8L=yi!C-F3&)T*py$pE_2z926>N&j|?PX=CIM->GfDMWP0@K<M
z5&~wTCr59J4+q~n4cL}NS$3vHfsZ5_{0d`^<pIEo!Aj=^*`GT{x1?|;n$JG2)dMPw
z(Go>~f;^C<G`-LIeWet1X}Yaj{M{Lniuwsd{M>Y~FVup#0yS-I3k2Xg^_fP3@1Z4j
z*0nM@$8&Q*lQJ=YZP^qureW+h$fNa?cOAd+Q=YYs38uVjT(dn%0mUApnu^NLl3k!3
ztNSsK!pwjvVYqb*u@%5mH-m)J417xy<ak?%EdF(OfNssZYQr0I4M^_0P-Vfkt{-)H
z4}K1{S|9K1L8w9Bb{BbVJ6ihyP-=oeYP_*9WNj<2sTr}oF<`F<K_|eO_rb)iIDq-?
zwrYSG-60iW+zy6s^3)2IJjmA$<VbT}9G-*^MIL_=C|b=OMCgWK8hu0jl{QLfdpuNR
z_PB=SKs^`p`>?RbKnR*5J`u{ZesDvRV7|Z|SCLJF^d{o#=24oL=iC2Jhh2>ugW`+8
zLiW}Z!xrB0m4JuUDqU=8e*hg{*}Hoy_v05Cb7`9+oWR=Vjg3OC;<fI{WkvmJf8WdK
z2EGpyKtX|YtDs5j+#aK@8wN=^VcmVtq;4eqTF7hWt6(32^fDIy7#O_Zk(CgIr3i^)
z2m^R0H=m$aXv_%M5HxBarJF&vnFNnST7G^TjC5#Bj5RLTz#77UNjPH6cu{Xe<~=U6
zv5b`;;r{S@z5ggZi6af}+Mwch_!K<?SQVl^xf5Z{^427*B&1a4a$gxw*!N;R(K>&c
z`z961ISM*A`G=4saghVS97MkErm#cX!S^Dwh|LBuJZQA^eE*h&x=i(X=0{Nx2RwJY
zDH5*+%JMW8pwwU0$%Tqu3SB-HB)FT)uKk=3z3djm=CZ%EQWdrY_+*{JJOeCU<;(RH
zhwNMd=3`Kx7IMy^{&AY?op*7XZo3h`PATHm%fk2Y)6@L1*OxZG-`fnP+%(O8W+)k|
zRb<{;I>YZcE~7o$+T2`%=0rC^o{}%7f*n#ilVMn0F>)S_z!wd>?Uf0`Ri$_lTNbTc
z8@g=;2~PpHrH7vme+GYmd2^n6rfOUJm4y|)VK<Wk_lZn^Q{+JaScYUcLHJ~QLX~Pu
z(MsdMW7V~^eQm)7#CJVYZ-a^jyAh}p3HmiD^QDiz9<{FiY&ZWiiXVNcV|x%-^>~z|
zz-Nk_MW-^rb2{rg6;1m9x=SZ%M16!F8Uzb(yw?(}Fam_n3tU5Ol#sh)Z*qR%8{6kS
zkgb6xrNGaL=6MAsxbRboUDS<3^zJ)i7v8-0x(l2KYPZ6EaeUhYpBi~^?_#PDy_>ve
zoK#lpGC~2YikD}75k{8+^Nh=R<+VK6pr!vr^3xVJE12?!h!0a^l0A9Lo_}4<DGesu
z%NQE!%=y)-6<RV{3nxcM%sMHRKygzKDar8wh=Ulz>VATw=W^W@T1|V1hDNl{cI&2R
z_X6TjPzijq7X~P)S&qo;`cpv0VrY1f#nH-{s<<R2KyA`8yxC$fHL}0wI$O97SzCH;
zPc`0qBPygNh>nScoxN4pH<Ur~pdrhYGJk_ozEVZyMWiBw+5RU<lvCW@0IU&pGs{&0
zw+FG#Mjm*2>%L$SLdLg&Us2-&`Hx<VI7$am7BpV2rhn<VriHNl6}GRM&A8A=^iZ`y
zDiX{(@XMrPvyPFQ-EY{HZ7<!%Iehf}2b8{M`rPDV+p(zQ$2SfwfS8)!NT{$+uk?=h
zm|>2`Mivht#L)`rCi+9?UJdQd*q?#8&2l}U<^t$KLqbMZi-wA9A-hr)*T5|5itZ7s
zVZ==#p^-TT6v!=A=(El83V;j33_ytp7NU^$@{tNcLo=79DD1b4Z{t`PF|P$uAg(~z
zx!5^C{qiPy$})vOIZAgNvOPw`C}9U(>27#U&3WANHsO27+?XFrzjvp~rqS&UgO3MG
z!a1JpjD`%>fWIj_p3k%~3~jH%{IP6e*mE)P2jKw89{tHj@=8jjY4R)TgEAkXkUiA0
zKSr}}p|}r`=l~XxrG2J;#|0mNV+V1e;D`eBqlhjB$?B={OZH5QZ(I&P@BOA6)&R|C
zfx?Z)<D-F}yl_!mP|{~-o)0Na4Jw@5=_B=%z=D{^cw_`Dd*~LCyFJ7%ccTGr*lfUU
z|5Mz8cC^nH1$7{tj!MYwPS%sHRiIj5RVzSA_m-Fg@dByxQ;L-BeE_$X0FWR;*gr7q
z$WKYmYxABi6aLiW=d)v9f}{m1^M-8QfWDjtJ$XfM0}0#CkOeV#ghK@jAUXxuhAgm8
zKyg!I2<02d^rb;XCoi)gh7Hw%F=0VLJy<*;bf|?v9jH^iKWzzPM?eHITy0dNIO1Po
zF$gpc?xM0#VvJpdEU1BXaWlfe@yd3XMjB`)*|OLUj89DHaGVB@B$OAjpH=|Hm8JRn
z7`j8&aH8vSSw)CNoU@gcl{Pklv3*wr0#!Hsh+ei;Xf>d<bpviM6Xbk!3c!#f-l{t^
z`&-h@v4UEV)^We;{MP~X&%y{G<_!(AzCzQAxkBt({QfTEbG?f?Y?1O%I&}jF9u9N}
z1Q|Tc&xQ`JXb8%s=QsmM?uv{crqHK3@W(14DofUb<X2FZ>dX*+DeA1>1tXh<_u~5E
zh!M=_fm(LB6I)i#wdn`7>-9;&l$jzvRcneS1&eQ46!pR<Hh}1}29$$N0eO15Vm7xE
zLSzmULSPj!c~qyN3NItZhu9C1gn^zd|B0)73AC3wx>x>e6-+;OzkQQ1fN+IQnI9-S
zc3ThZn6;}yp^p;jga)Zl__^Q#8Gk7upil@vuvYJFfFhX<+3rT&Z$cY#^vp<Yty$Ci
zL`dWiH<Vw#e2K#r(JpR}siA?fvr(+Ph;AQWc)tyn(VMcGNq5x2&c+sTd)4b@^wQ>T
z0VfnLQAJwhhrJY|I8(KS!DI*c0GtsY;8RjTTh0Qm5*Z)Rc(OrF?KHn{K2U0_IYqSh
z-O<yw{b>nI4Q}n}fkOu)3_xYzncv<nv>o7`b$e2-4~E7EhK6zLEI?3#<plM?eW3^_
zsS#@`5Ri(~;@y6|Nm%xbu<yzU>8V=jl2ZMtJyZkG8?-Y6+x}vN_E`hOf`@@LoXVUk
z@5AU6Iq=r0_Lu%>YAQ|xnuw;j$~>tADjmaBp@A|$KXnmjQipEZLIr#yw$sRaJ-l^7
zIP~;cKiU+ON8A<3&`Yq|;_o`8@p!iiZ*H;j!4{P50QIgI{`TEWF7Q-)Yw4o+H;i$J
z0~rNiz!r+a+4toj_*Dl5uY4JGm<D<P2dfqMvb3hArl%v`ms!-`4cSFHmj*ruvEw6;
z0qCX>#^hmnLPFAKgAix2xiExqF36I+$fz{^io&i9vgDU6J~BDaIFGlQ@ySfBho69?
z(zYnyDk7Wkj{y?crpFr8M!3m#TGT8DvM^<NpbsDpXsB9JX?%AdAlVXhl%qh}G67!+
za{Ok$FUivpQg9*sylZR)TjS9_Bj1Jl+sYmp`?h6$HmPSCF3h~{DZF4MMB}yetY-%V
z_kW59!Bw)>Q@h7A_fg0_sQ2y0^pHjFSG+Tse8jfgha*MKcvWkGUZ&26z(No}jYX`}
z5LtBdA3j4=TCj&%et&l(OSdEoo@ufq!2D+WYJ>Jip-@R+Srk7Nj`-~4q!h{4L6q6T
z(CSM{$GPJs?h+bkT2~}}>B7@_Pm*QR1ybHs1$eHZsj2zBAe{TNUVmvHq%s}@K>P_4
zT6u=Hiai*ePU|@HN`3IWz)a)po~dVRHb<YGig!;X)?~u$@laWeM=-V$4S~?ebBD=x
z4IYn30jilmoa#~J8+sh>2{=W*I2UX>h{@CgzROt`h*k22RGvEU`ZyNsQLw;yz?p$a
zst8vL!U45&IbhlQ=wjg56OumwDzj3&BFuR6n%Z^Po1i#%fJZw;n#NllymO_KM=0<*
z)Dne8+GIrX%(WB7zQ*m+Y_?G66VeI>T|+FgA0`!eBhs(P?vgmNIv^7wq%x2<DUh?y
zPzk65eGiB>^k$7AzIG&2a=-5^$?NKs@Ie2I;10skhl3aawFT=c!oFN|r~&y95-c6_
zG=0sp$B!RtcY>mFTz8o3(YZjZOY-?vD2;PkVs{$$pukK9+4nGJV8YR|EkO+35_E4H
zghGVmjur9Nh3g`wu?bEXfZBDpJ(3~N2-|E~@~FMn+Mm*T-zPpAtHFG9oM=2hF9hIA
z4dO%hdkzz4F!jt{_$avWQ5;NWns;0EB-{))D03&Uk@9GuWvb9JHNeHlqY=jixXMim
z`fR{id?PT!vG#4yM;$Q5r4&u6<e%4wn}A|g|8}BoTtAaG2GJD&AF|=+wuQ}_t`b4a
z!A%>qu6D&rM9BI0zv?J$Mx;B-)`4SN#sTf%(q+ca&0il(rW^tm8}$45$gE>lWe<g<
zr6MNg^&yN|D|#|?9$Fq`T#!iAE3RpUx@bNeL%K$Kr<G<O$p2-65X&22&~-W&OcI2?
zH#Q>7T`_C{U~4tt)=roE{!)4_7^{>g-{8GG=vT8>a6a?>mj`)<!l?OvjgG!mwyyT6
z<FQlb9Z)=fA=KQ)Pk9#;z9WQ*39^}$-s<bsIqpEk$5yjt3>2;`#0ym@=1|ta`gph-
zWL`W`US5tnJ|;8x<tWKH9Y`A%z^dTZ4v`8aK=IFM;M=Zu@)FW3VO_yZJ0~QKDqlQ>
zSB6*%Bp4gs=F4^RWOrIBW#pQ^AAtk6YK;@dWwZl?Vf{(O1W^lTffOQ-7TF%Zh%nh%
zT6u8@KM%<$?>s4RTPH1Jh5^DPB!{+`#%&(12E93%*D3`VRszB>RBu*=H9HkQVcPUu
zYlzKQfB^kz9!9EA>Sn1`ccXROl*N~h(wBnxcF;NU8~0oHca{HC5How2;y#=H8t+OZ
za=?P0u3BwTdwKFQW*s7>FjS%Fmc6UlP<y;7%|uY>>odHZ8^HhMqa$nVDo5>%d^bOx
z?y~#r#-NK`p;3#AWK;gY&yk{6>jmC=TydVBhQ!#8Q151_C|hK9*JjJQ0(HdXZa@kI
z$86wE`#(NO24)jnS!oGBw7?DAyS-VvKVLS8p!8b~Y~|zVr&CWXO-^e0_|))F<(&7Q
zDttIqF=dX<8{m}`|92iEdul8bkQ$OvGB@WrGj<-aAcIi|vuWf@L`lrLZnmfX)G|Ck
z(nyWCkMU_S7(X1ag7*Q5o!oY8hw^Ers8!@vH=!YrVhZ&mo)PTokcD&?UkLxa`L4K_
z+d5?oG>l@mW#d{?u*X==O3OnSl&fkfeA{p}88)#R$b4a7e*vQql8E|>%x?jvfvty#
z@gqu^<~JL>N$(l~QILI}R%$CY9>kE!#Tq>{Ld`>ePQ87fQ|#37_bL}dB<DwJjbP!Q
z;J@E^H5uVs7h44vg{=F%jRa*8twH{hI5HSkH?>!qxbAAM-7r~be+7X8;OWVVVE`_(
z&{)B~u?eBe`tdZlM<|P_TUTnRYczgu;RQc(uyR%QPHfvP_+3XjV><f$+QQW>2N0SG
zw+4?ujMxEnrW+_YS##glSE%~t`f3p6u+%Hx<y0C#5uA6UaOj!#i0Ei5?{v7|ky)V)
zQ=|~zw3U;4+v<5nny@oC>R<uV6GXJ7Q>JU)z#D}xT@&$glbPLUaM}hpf2lf3@(ZXu
zT@V)Fu9acywL`*sJH#&V9%<i+_5piw)k4uM9`uE>v?1Ef<jZRO5LeTnwv-Xr(Ya*f
zEYcz;FJF`<d{Mq8B_%~Wc^NUK8zi1nY@eZxOba%OBcvrR)N0QOGCSH{R-h|e1a+bd
zFzX?PLE-&^EBIrH?uMpa5ZPbj&XBw&d2s<;8MOri^HS)L$3TlVLt1Tyds0wR3ew1h
zJ^@M~Cz?Lo?JNfAL535AHs=BY;2qQM@Te#qn>|q3a<<U{&=-J|k4Op3QIC)&&@yHZ
zbevhZ<v?jpYp?JuIGXG~&Fj~AmG^i+I<|HC_3ea700+eSIp{1{o9pY0jtABUQK5=*
zfpH?2oeUCOSgNdnx*<Ck7KH?B90=<JEL@Nn^4vj1ESp4xPmwW@V9FYic81#q6<z&{
za79XCkFEg7b}6Z;?sc=nMsYsGb*(&3&<?mk-{J(hPSYDmdroX5J0FPq%$m|jkxLYQ
z{QVs54}B<Y4`3y~!VujL>Wl|96rLM6hC9#<!~<3^E@1AinkYc50}#j!fT08j%sxfl
zgeyYuu@AeAopAy$6Hsk|9OkV>fK8$hrVgB(U;Cxwz(--sS_=dCbh!qCniLw+5Kdqa
zw9EPRZBAfK^5zk?3j&%M@RE}N^?1=ukUS67kIil!SN8!kM%`p20$7k(UG)omkDT=%
zgwvHi@IOKX2sY@RPy?f8HUg=hmxhR@+QvZlkeheCFLAvGY4Xx_frl`I%xgHS4J`u&
z{6Yh!pxz&t+OaBA5dsZU3Y}?G>+{JGEYi3N2$1SYD0c$%+EthO0<1NIzeYH&t4<qL
z{6H4E&*qdV0O6;x@PbriNza_Fwsk084BhlSgjRf*&DE1Y*tH(6DtCuZZw4K+84SV-
zc6Pad&g<V7H8?_s&?&JB#}AelX${y6e&m?;fJQEZ>|G!w#Dn-QAzW!CE?cV=T3o8W
zp@cVjO*B71O~nIjZvMu02(5GzVE?L`&7mm|ZWE8mDDx%|W}9FEfsABcB@z!5XEU%i
z&EN}o1lkX#7ZjDzqFji?2y-3^OAb6I4}QIuWBIql2Z^O%1`vPpUGTYosu0?_k8Uyv
z7B&MzsLjgC3WgJ=A0p`&42ZE+gqiF~aJ({U?1s#QN@e}teWP=*`zmEhHS&GjQc7Ei
zL`R@Pqv2+vVc9nm*c>*W<kjwZSPLUz^%L*$9;E++s$rpqi6mk7`e!{kNb%fI_!%1Y
zCsxVD{Dg|!p$*k*!wbY3b^H^*&I6qF@1fNDr^*%#vu{Q`Zif5}ln?@-m_G?1e_%=g
zh{0NIQ$*)1YN8Dmy5LNN&Q5FJ?U}3OCQVS&+#gPJ;`uxP{bqS%Jwy|}wrtST4N-0k
z3ooj{-q{2)f`8qpQp8cu?i{_IDHktLW;LTAVILcu{Fi<Mt#9>iEdZBC-laf6r)X0d
zc`d)>8Hv4p`dd-eR4}RXZ}F3Wl*ASRQ1J62PV!+8WLw1snBH}iDz+cCOXvYRzBg{P
zuLi)zqcS}vkj5W(k1APg{rb(;xyQoffER6|tOXX$E0iI(HLgkSDB)t};wl7D-BqYB
zDIGn*Or(oFL&4i*ZTOKxmJ>1SSXQ?yEb)SnHs`$$hRtovEG&jJAj59h?tsIykuD8@
zNKS8s@P4Ms8fv{;3t{%bM*%gKW;tl#BD?i$sfcrD&WYP@@T0b1MGtY%srB+L<Z3Tb
zai_0wrl>DdT#OQNq}$n=NVT_8aNA)g`z=HLOWW-pGtSon&Hw()>dUXhZTw={MUv~K
zA0@?^k=_B&Cpw6mBQ&bp0C*6GHMxMZMJ7%Vib3Qae5SMj`2$ZK*h?G-kFkyL>rXT>
z&1n#P)uBO9Sps)0#|^jy#LppX9<M42=B;>a@Kug475WtrZw!@<T`6EzT0I3Sz+y5D
z3erkNRaZRl>=un-%px?e);veu7k}I%rC;&7TrGhC*ObRhX8QBoSrC-KR2k#^`N)+^
zF?{YTkAXpBv!Gg#=kj+PVMv6yg;*&N10Eu3q!cy0XNSaHz&3v>1&ApEa3Uy>@^=Cu
zx(XOZDiFrlAe4C5MqY@FL_!wC4sZ;)Zs*iOUz%>YV`>k5V5;|bRnVxuy*^(7%{~X&
z^pd5{n3|aps>9z@8bIWmTJ7jm*?4k?Z^$`x{UKlLv92Q*8{L6Lxw>?r3%0RNnb>he
zThOiXa&J5KL-N-S^yiJ?rnDi{S5fC)L_EehJBBr&ZKqZ!&vLa2C4;6M;kIpY!nAg0
zU;(TFL}Xpk2&_Sn%LbLj^g<~6p51I0IA?O;X?wq(!)D8TNDsLK4Pvzg+x_gMLQ78(
z&kNuJNgg)kkOkVv(*Jhv-wElhf%RqyQD1Dw5wb@clz_-$m_hFC#X%ZSSzmXbB6*$A
zI~m!^3OXVeROQ?V;|u^$UI9#8kdxDZ6!<NhAo8Q<j|2{SikIbfLjs*(q(o#6lcK(+
zk{-iZ)U`s<(LKKbD1~ex0>*IwAIAgjZIJ(>z~b;8@}^)4mXem|d0EObh!c6()iV1L
z>ij+6sX)OqODRe|HWVr54t$;&ED%@#ybP?Y&A|3|La!7TWTjcoDu`f5spv-|!oy7&
zls;HMkAMrXt&gCJ`0@Sw9f$~AAWPl>V&!&eQ~90ee2k2Yn2<9IJs`H@i)uiniv}^`
zJ@_Qv1G|RA-p-5%w8)bbxh?-PjwI|9LSHBHeJ2<w;K>w#y|4sk2H%qx9|enTBqSJE
zV@|ZfNR9U)+@ky4Jy5X@MhpR-b_dv`07a65u5L8sQ)JkX9!awwX!-+X>45R1(1;oF
zxm}U@HZ0R4tQ51nC+RgoHH1es(=C~OEe7Wa{Ch5dl__uxh%$=r&W=Pr7p3IqQTfav
ztk`xC+8k}b%<>54-4vc1(qs)D=&vYf`)(aDbaO1rt93bHPIGJpy6&1~I1!W02&bg<
z(N~1%yG~|p>og$v1waRcGrpq^8XU27;6Oxdg@Ev)eRs!b5Ivc`KNsy2Ukjd0&0R>#
zr#!0>o}_h*2qA0|$nZOe`vu=ulnx4WW+pHmvI+{^KxU`GR!9RZhzOnsq}6s*BWT^k
z-H+@HyYf>`0-MY0I^tdS`~4tvBkRL=e`mzo@bkIm_mI|_z>nL!H2PH$cBmqVe3<q(
zpiR6)M55pM6aw(`dW~Ud<D3)<bdEPcAjHzo&j@}tEUR2X@qEw&gbqt2s2s@bW<(BO
zKR?@@ZH_dg8iFyt2;6}2@u>yVw9<va_6pn6F%>T>_ZvM%B$IOPU;C~4Vw;<Jz|>!k
z2WcId0OY|CdkFHdQ6k<RZ6fz&11R`f1hmBQ;)h5Y4WDy7*y|CzISB~2nEHJoG)d&8
z7ak;0!9nmb6}CZkgCS`YoJFwQI^mcJu?z7A14zn+Bqofzae&0@C)pVik^~8G2pJDu
zn1HS1|AZSBLPrFfK^D?;4O@6-u-pmr^#IA17~=5`>xKA13$YlM7#_BA!P#RZBob}N
z4`mT5$F!)=nDPwCCmQ4ohlFo1xn{!WGKxvhfmM8>0R|aqUIwGA0^&V0`R#jN_)H=F
z@z~$fACv?B!&P2){69`W_)kCnPiFH=|D!V!{_mXW{~vtwWn-#)RX<u<G=X=-d{u!;
z3LqMtEc5{aHNz3a<N@D?A;fWGYpa%+m{<VqTWT15s85kI8dU7;?BFN45Km;$pmBo3
z*o0Ei8CouWm=(#Q;fMfQ69wc?MB-Z%<Khu+8k!INpGdT?dlI~U_pJTu+usJ^NT9x5
zqGu7m`opg57Mvu322-RK8zHZK1$m#0j0#v&=w+ecgd2mqs%RXWQiHayuy^my&4P(&
z>Hc#*1z`Pw<;6XcL5JUFQRa{oM<@kbp85}+11v<>S^>(Sk>*l4fvGYcFcDdg#9>bu
zzG+Q&>Rw!4#c$>t`TK~(Vxid?V~Y}qom$&qpr<F=1(~!Gb+xs(D*JFw-nDWQtE)e*
zio-HgS#a=2jy*xX{=365{(my@|IL9O|L@+jI`rK*u*q$qk`<I()O$u{WFI^mVw2^(
zdl&uneD`{$ra@-?k#>V)=T6nr+iG82@4l3ljx{Zc^>!i@KUPrhiFA-X6!kVdx#H~a
z@jvHD=azhZG@CR$f2SuSH~Hs&^<a|lrGY`8V1<Ut<SMf3NA;!NB=4VJ?;iJ1VBD?M
z;x6B-jZC?f8?>VP`wI6kPyTB*{|7<scYuJD4!+6*SpJI_9yc<@6&e@yg<XAInOtty
zihnpy(<+4QspSvDn##b17r>DsYC*l2yIDx=P&wPu2c$pKjT<)@o`k`c+}q)4oa!ux
zEteBFHC<kl^XAPy)xf*3u<`XheYLfsE&buL+Vob&)>WP~Vmc=h01lEQaLX*cLSh3e
zE9=9k+cEPW<gbG2b_;^JwqGK28Uo7xCJ?|G5*7xWOp3PO0|uZ{H129PM0RG573esr
zLrh}Mr2J3>bzQ;P#HOWfXS=ufDYetPai!r91wx1H_J`;W+VT!8&U|2HADD40H>QHF
zrMh=N&!_>@0FJ~%R~!Yf4DUI^Vq&tZE;1SyE<nHdt;{&&+p4Pf-yV<&3C;ks(b&=w
z1Q8B#_R5+IHm2|SZY&51WD)lEw`Lhae<<)?xEDt9{J7@5dyhjTQ*J*mz07?-)vko4
zmnGrS?7=<E+mlHsOZALi&BTlZnMA80?cxjE2~6LOFNH8k^c}hp)%4iR$9Jju{X1Lq
z;E(25A)2Z257@zp)f(3YeRPl4!qnuHo|?oZA47WN_zuq7geC?$Iwlbj5p`)<*<$aB
z_0Ynebl`L@U%8^E|6m-<OE8l1R=PcmwIg|ubG7vqAH#6|<8hC=aJr&h1qM=l)Tr1f
z9s>NJU0F&R%A19a4H8CT-DSz3M^`~c4)5a5MY>~7try$h?n#G|QO5uV@AA1Noa&vc
zVYRRBF)>`VJ;Y5pviMX|OuNti$DwEU0vkqJ8i!wzwUm>w-X7Ab6=gX_OM3WV#LJ$~
zoIRf`_M0NAMI?93BWBe)&&}`XZV<*dcalAPV>%X<P5t^`Z?xK|Rg%STMM3Zi_pjIg
z_rxO-lIX(+|0eBx=KrH#`gI>6ad~936(7)J^wxqx?5m1T)AFLh^Un#!2cNwzP46N*
zIViwYX!|<`l3X`F?)J>#GF9lt!W)Z=VzPU$OC9ce($k;mCI9ygP4(vhtNs3ZsCM}8
z30eR3@_*YQIh%dzj@q58T_Do{Ct`02CCACb2L)y^MQi>>yZ6C!h<<ccGxBezW!jtQ
zr#-XlGl)12d>^(tE;cp?4gxv@#|lB4u%EH<bn)qb2kW|kgyN@|sHjXtIY<drLK+{D
zM!0LQ5}}*f8gL`huZT2i05#V?qx!q?n1tlhr3dY?>rf;iK%ZU~8vpW@fDW&#uV-Ok
zkb(lZ6Ixksf4#HTcq=ah7}8%>fB%s3!TBYh)n-0)3h-80V5hk}$w)_sNNVU5IIAT^
z%=%CGcq;Se?bA*82y}{?vT#YGDTwW~vPeh4i>|}}-aJVN+2sTFj*f+Nco04E9Fa4Y
zWY9?G<#nDvpLZ`svQ8YQBskA4+W|Fb4p2hOtgJbMyGcnmp=U~#z&xGP!qcOl3>i{x
z3fjVCLCDB<A(|8vtoW&Y3<QRtE<H`R!$qM<c|`o<kX>CvgPy7%`wcP4h+@jS92^{S
zrPJQR1wrcBGfO+DZ_yF7EYM0EB()R;9ZwK)i&KJLwQ1)npZR<zpslzQU%bFI@X6T3
zB-zIZ8`scYlUGnskcb~2A7^m#26+7rJ5iV){rwl=Qgw94`U#S!gx7DMmccO1K;<U_
z&io;;Ljim63d9CRS%iw_0hYFneM#d;nJFABqF$~K?heYJ8B)DIBhF+=1qFq`ogo!e
z7*R6s#x|=JANurHi%W~ysVIrjDGh-=X(JOid+aOb_Ljz3HSwYqF3&c#6by~4UWW^v
zf%6Rht?l8S<a&o83nu;eBsI1Ep86F}eR0d%JLJa?W7rOmJUvO?u#aZ=2>d+?%UZ?+
zwihtVvGBFdyC6m!0<?3IcUMET_}XOz=G#w{_<e>`!BuRaGg|#8vR*$4J-E2Uz`!sA
z9+nvJgb7zevlMX2c~DU#0B1TyXtwuB2Gu~SL;34n^(o*A^Bm(E#@e9_&oUS}o*bD!
z1TONd{8z-Fu&pgO=#YLn!^Bc(mT-8imqWfkFy-ELm9cF~S?HC1N4HJfYx{bE;=>60
z>`qhEA`tUv$wgZrdMz@ZL&E(&wW^~kE$&dRFQ=doMhB<iC{PDC{Caz{0S=slvs2J1
zzkV4bCOOrH5ZZSBjJHUq_FdK))cfdY@{^G{yP}CV!m33krl$N*=8*<Gsk3VO`XAu(
zbX5BWMD0s^Et-vYP9yF29m|3j;WR$hT&6<uv32~nQIZ2B7N?UKeuf8)Sn*kPF#*4m
z^`#0qn+e?oHX-sdwV|tT4fD$Cm-~}AZlk-H>N8IreSzyfe_CqD(;B}lbYL;N91_ao
zb`I7ZL*6u}+ZU7u`8G;MXJ3;AP84-qwX$FeoOsXokHtt&y`y*G!5ui<jV@F6w93Th
z4iZ#k(a_y%@r38k)_NGkaDIsmP7Z@g5s@+B{E&yJyMKTAHse~-BhX)v-h4Pm?;?5L
z?_dDUK}fG8_Ri^{Ck<4b<ex8Q{oVJcVVcRv$Yx;0<~bXJNP@J|!!cpy&$9otq(A)*
zVXF+-OTudWJ_h>d<q;zNt-n8VSlbzDA#K>ZIUAoX|K5W%T(SP!w+#4;nW4(E?$kfO
zxc9>10;$g5C}JV;>2J3;ujGHdM8@cU>v5RKuYgCqd1G%n+wqcpfSVxo*LQSvhhNAA
zIOx&0P_rnN3w_B+C}29fh5FiHeRDWy*>@_R?#PSJugf;~TV`^&&}y{9NIBc4ehyCT
zOj2vRb>t-Nh{88LChR~$&S#G!^di~vcMK99i2^-Fa<9we^<Vno|8S7|pAbIa-Cj6F
zK^4wHD#2djr)05A@F0IXFdvca?j+yOdzzLz_T9VdWdpXdRKwpSF6(wUj(-E_P?xm1
z{!JiSPs48{?<=mD@&RzUj@-{%Z6L+d^T?oE$J9TW=&YU}bruNkJuXtDl-^kgzr54G
z=O@g@%Br|rPyi<Stz;)7IHQGC(6`Yr9%Aq9%*4d7p&pQzz~HN`t@!m#aBw6f;);Ny
zqYnI-9b)FQZ{K#iXqfvqFGIe){xgTZc7#2?RcoH}*}a5kS(f~eQ&!wCvT~GXrKhi~
z15zLl_D$JBk|_jS)5YwRHkz0S+~}rWr`<p9)rR5P&I++g>G1B1v)J4>KD7bSk%i&+
zu0QNEhtoWzfF0{t-al1sm`9J&?zT&D7ot8ABlBr?-Gfyyn4)<-^FSDp_+x4{Glfo|
zl`(T!Kc4*gqpOK6XEpcY+f)YaT&J;b>kIQzr=S`LJaNFDb=yk>DoCwL1%*p{1wU7}
z$61Th_Oq}PCyCE~t$S#wt3Q^ddeuV_{^&uX<YM-k+9zvEDj#3<AdRtQH#+|yOTY+B
z_n6t(O6TOG+-gN<_Cnz_lm`Xy-mjxfR}!?>qjK>34=Y(%SkR(ryWJW5=VFcSAvLSZ
z9?aUSTxIHD#w>B=vH^pI&Gh;UL6Z0N_4TI->Z+>7_(k3j7voP9%{weqiy>4yzD7Pg
z5#IE`>vBuAzqf`BgnZo#z4u>{85s!P-_a{jWl!uHO-_&-SKK!VS=H<3-aSyiw7l{B
ztF(O3$Jb^5X0|q!<8BAkoh@nuCQi`~D?Ey_r2Um6`}uP+{P_2nsz3UF9+)~08Rqp^
zZ!r8x;w0gBgn!z?S(=E+8Onp0>c7eO-nF!2Rn)=Kq{3_O`b%xIK?}iy2SVlgxjU8D
zklTSTixmY@w{*oAhV)KmS>0-nl2@m%B>@7^0WG%}+G>nl;B@NWUu}=0sFzy6pa>dH
zH>d+N$dMoDVmKof0qDSPbT0aA3L<9UIkP{vmhgi^_-8mBoGV~NoY5jc=Ri2HL5Rr;
zcrbJd()kUCAR)&k!ts@y)Qx{*HtJHy(=rU`A(qgn3CwyAVi<=$RCzRVt}z@viU<@S
zGzWt)bkpG9^Ke1s2!DO7Diyl1q=G0jp<nu5rRyRNF$4k+1>3p#!(BCCx1dKj3^A1g
z=zPWU7lhbke?B-|2%T0u(2fLvJp;7u#GVoNDJlfwK$jjkg~&)v|H2n5ZnsYqr;nCE
z^A2*dF7$At%8%tDZ-vqW=|M#_9MAxe({j%k-25|uz4u=nsq!PG!66DSh`Mn4ffk%4
zil)m1tr@}OS%9T}PY@IfNQX7D%G&-paS=Jdfmc21&t)D`oIm4s=-E>d!Za;nYlaYu
z9OC7(HF`|811ht1@QGPN!(OzIdm$XfLN9AqriYAG1iKM+e+#1O|KR+K{~{<udZz)i
zBd4zjZ~c5B0393CC^(=Naj8OAQ!><<2J^gZ75^7|?-><k)^&@bw%WF!ZQCXgZ50y;
zCJ;dZZChzTf<(zGf<Q?SC~~m1MO#I*5Kyv6PNhJBWDx}cL5W2MB?(2&nLBr(@AsZ_
zzkA1b#yLOk9piJnqld2)RZl(7-fOQl=Uj7r4gEBNI(NspUEjZqU)Q33s9KYuc(kIE
zMrk+)RuYZxt5>gHq^Q`YA+(x$uwVU0#)SjM)D_fA8{MmRa$JvpvSnZnl0q)|`OmA}
zKE<at#T+g@`dp!Y3bv6J>YD7|5#E%0L5b*~e9!Gh4~Dug2S>^!$Jh06A0wX9#0M0>
z8;cPShaW%Hb?o1fSG@L`-f-i&y6+mFRWf_;-ZOb|C3ne*O6-qWB*1Bb?40)cnU?7r
z&(n8KyTlg%SbSsnOiXyO8FdrKg<}zJB4=KGUlLq-BU>_Qs;a8L`q^g0&X2_(DgKrc
zbGTk|T-}77Mx42@kcq=0MQ09XIX?;JK#h=8{O$H$k1}+8o#8w=^l1bdob#<iq*=sx
z3M}5?jLqNf;~g#RQH#vMGseWAA>rC25za&qH^KkuZNTS!vH^u`sv`-KM|c*dbx(B{
z5PmFu!HOkKSUt1JgHND)*mx$K_5EUFuHdeL=KExG?b<bu;%VpXPv|R&scrvu0VgUC
zNwh#O=w>Xwdv|0$5s9tw+j7)0<bQlc37kRY(T<pu-@X+#;h#qE>^}&BTV($U^}%X@
zVcb6W3d=Y`uL8-4;@*v%>gheuE;3*#E~AW^3mu<VY`>Q)KQj<{*8cJfX%2FqlYo?i
z1QaMH%h7=qN~9!YbD;T`jwTCtpK0QS4kY{gZIM^~?Pn!;r3qht|4_Em_wi$6X!(oY
zzgGe)4;U71*K}C<o`npLIA!q1t>s)s1q%-$uO3huYC^n_*>kI#%eY`~SP9qU^SxHY
z@Eu-<XuD2hX4rIXN7zCOy;iDj)ses4+wQzQLyUhV;C@TI&34KV;XAw!)Y^y8`&|aB
z<xT&9qsN~UYe%8MCQ=e&oPEoIn7TolnhZ6%6}_{ggCDLF^sF&IJ}3{(#9`KZYM3kU
z6KNO1PBaCRmkxo2sjh}@{h4+M=i7!SO?65;ht<+`Ua^=){tjXd9pAM8Cr%y8T5b_d
ztbWnTp_X>gLGdxH-r*FYObijXt1U!S;~O)sIdIE}ffIKuZa{m-(wirtNIFYw${@)?
ze~1<-tN%K2LNZtp7hVA)J+`gSu82!E<&Zou%<9!s8?5Bwod&B@%{Y#p`@?a-hg6^-
zqWL`wo|D}GlmUA-GQjFCV2};mu?vQeug?;fWTLW#%16un;$webFR$mYM1flj37n|u
zIZLdMZbmCcICR*Auvber14sq0k}f|=LK)Vs@TIqRUa(>;>Z3A<If3rtpVx2=sR5NK
zN55<WP!2`(Td1Q&V1*rf>z#P}0k(5A0>g#A$t3P|G_;bnSS_NM!I0_<%?5oYOw+8X
zWZoZtXtNP-w-JZs6a0|C=@OC7EeF>eebT~3oY3J|CjhHc3CEF7y{XL!;Oy1XN}#+Y
zLM8I>+HEt4Z*3#G0)d68c(a_*CqV?wM8==iXdXzd)=Y=_06>Xce&*g|>-zw)3158k
zLwIB)5hO#MREEe}EQlrIC>E#yA00Uw-f6A4B=}qs8PeMGHtiP;u%*Nb6)cY8nwnxC
zL)W8dFvh`sWMN~Zftcn00EYk?pBc1_rK@G-WMs~PHztZ97Mgx9(lwe>DBQzU{o}=*
z!(?aLyPzS38=6JP*v*J(2_S{KOoyZ`4sC0o(r5hMvhl|sgbj;+C10TE!-q=9WcK1o
zqm8N?3Z8S&%L^Q@*|(7sBMnTtVVi_5@L2q?sCCd77zA<ntAaMitmehD@;bSKH@dK9
zhXqeqXONQuMA+n%gs$-!)Gl57-6rL3wO;#@?K>A>&uJ=d%P<k$JSw*Sgc&LJ@aKBe
z5IiOSq@f$&i)<%!ytTA2H0#2*T&8O5Yg{SR9Q-m<Xx7ZrD~L;>u+S1!Mcj4ZKZJZl
zO^>dDm5oFQeQLyQl%LZOMirZ(;VQx!%)POckoQRFm@GAjiu)k9|Ecu{7>IYnC{P8_
zg8@a;x^?UJ{`}(}m^1_ZiObZZlRW9hjT`)wK%BE^=8Ol-x##B}fvYN^aVmhXE2ZAN
z;!3c~E}3q0Hlri~A_Jr}>5Au#+zVejHFBoZ;vbxQ)$3k--(b<-H?J@3mOs2nETUCH
z|1R4Z84*D&I%&dSuCQ8SvG$0KJaKZu0}_a{O}Fb8lEKUe&o>Dr_};NLPyRytO*F)k
z0BF1}ZoKR1N$ey?@Ctq~gUQa2!1SfFgk+Q<{U)Ocz+=5X!1?aoyJ!R_<TySG;$2~%
z#BuKWiBn^US16)Hl-v9q9NZ3Zo<im4ci`d;@}x<#B*e{X)ph7t#&$T1EB3j#(JG@c
z9X*r)(~irO!$hiBP@nq{bNrbN!z@+Yh<D|0o7b$gpLNZF_A?rt52jdy;;r`&SK<`s
zCgV`>r+Wtsj%bw-`}6xg6*i$kG$G<VVJSll=tRgY1K7r)x9TSJYD93DTxZJ$k{K)Q
zOH4CTkgy2KR6X$5u0|&*uvoYeN5c%*oly#<-nt)uutDeN`(9g(^bhF8+$E#+^3rMV
zdg!Cn!!JSwt0y3%m1N{`_wL;{G0{gpTxG`L+3eW9$O7vE3n~(g0$)kz8_d*0NLV4w
z3?5Po*F8E2O}re9#Qa_>(qD-Sh=gntfOc2m?%+yd(IkTvNE~_?=uhKk!U8#*uWG8=
z<#1g>JhECm2e{nIkPMahrx6c&wFgUdxDWWcKm5F>cc(Lan0%aSG;4#)LmXgWre+>#
zv+>?qfZt@80WEB+>%_L6^f!h^8SFc~DoOMSjCQR{#iSwITA5W1f%|A*qxRt7ppodp
z$*uIDp!E?SKKB;G8QPX*oEt+HEm_76ZI&(9g>q)B;&sxLp--%6%5oCut<_AQ1?*X!
zR-K-rtBu&h#DPNek|r1e;)tu`lR+I#Og71318veRA7Vei*99lvRT&=T1BZY9v2ub#
zET>t&Jrn3Ue<zkT1>*EIn^LPk*p`T|KXDXE0d&V*O0Vh>KjU>X)X9NTTcS!*T1QY6
zq^GC1F+*c_pbd?5gTZ4dq~YB{4e-ZS<R6{|I{*_zj%s7|!eNHE4Z=1>2_!X%&ll6m
zdo?z2o{8y=QQfdU1vcR@==+3LlUQ&qFtL*(2?J!mqj2pee&9G3IjgqK{yO6R+=jDx
zr<{**!>el->2}1NJUk*oU7Rj_RQ~MQxZyFLP~D^lOMhNfaohNOru{YJDOeSleX<nY
z$k~m*RdI<ngfR7-<jE8e?9Ndn;uN@0rGIwkK}}wMVU)d!uDff98}%R$=+5*=T)kRg
z-@Z7Tr*J}*i<zo+O{ym#jjmeuOYCy))P9(#!OofO(um9o?GAgvP%qzN|6B40vCe=U
zGUP0)q2hekrV#-6c9w!+4EOFD)~LIC-km?1E`M7mNI;QMKI<xvlsWPkJ$I*ZM;>Cp
z49o>1-rd_kfeC_Ex=r+<!-pXgjanAJuylkou~NY6prNbNjOgNpb;Z@Y{~<m>GUaKV
zLE4?RrWGj{H=>`+Kdh+0tORA;%Ke#2tTA{k@<%&ISVO}5Ck;CI2*kBpj6f*mWobmT
zid$Zp{y-UWK)dif?o8NP(!yY|z84aS5l0hx{nV;@rFz>~gX)(YZ!RLag*fq(&DE=M
zwf^*SD8u0pH!DXQfoaZHsAheEZy^xgyQhM*hKlu5{P}>3>cVpQbY}z^r*c)6CfrgY
zi6bW2{NUy^5=47YZZc4m5<h3!2#PZ;H~@KL!%Z_**t6=#u<Ccqq=OPcMJv!Xag+`*
zuQF^;VmJGI!C6%aFM<&~;@fqcKP)CQJV^8Q?62Lj1*a;&is_dRE`NgwAi|aYHT~l#
zHg$>qGHu&t6l@}}EtDy6I=5dlF|1+YEsiaGLt+f??d`4Bevq_hC1eg2eM$jVr3YgJ
zU6^Xo!XPosY#0ich=KvmE%DXG=Y0R;4iWFjPc|;gHqqnB<1HVI{QbztlN|Pf3mH5L
z(fdxBc~oQqf%-Z+ad;;kloCj^;(y(+VRznv%NyOvNq_*wE8(b$bGKRwqlEbDiGvEC
z40gR<4WlZxmsr;kH#6vY!wA2Lb0t5Y%y&VCSBWA|%Orz%tr2fHqS>xA!XqPDI!tXy
zhhJ)=t#%rfU>H2+uTCOhRiMSh`^l3%c?aMFSPAx%)P3t5NxstScf`yOX;cJED|B!u
zJ)5=8Xe4g=INTEWZ)ZJZH<}^~PK2+*&b$M^Zrw^}cc<E5_eH~6x!q^J*TPLe26sII
zRwBR*@Lx2>c=$CxbWGM>dzihEmo%Y&f3GmH67bKOlts==qM`Dng+Ke&ov0vfHGvKt
zPcf~+?CZ$^Lt=49z9Vt|#_b~B2PnFbRg!CSg`AZFm<0Nlgdv|95L?DD%LGYcmv+#a
zqTHO)Xr2nqyf92#10i<5>)}Bhl1C6aNt%pYTP3^~gMyMA(Wo+-(LAdV8EESV&XRbV
z;aoCC9#e--)LYB%ynFlB82;8^WpBEUXEaA+f8pJ#q9cQ1$h~DT=}a6*I_A8{vPo)y
zFh{BdA}1$YG4zG#Q7GfJYj{TJX`Ul-MFut)d+`+_?@#MAbe@5Dh7|&t>re^3Z<JGC
zTI8Fdg~ntbk_iF%n4EP5015!#vWX_1`t649IA5P6!HJ$G<~PF!AT5>MziVtDpa|&R
z9bFSO2e4Q_!4fMJ{%tyF<RuI%X#x$znJ{Y3f?@~angrXYPi|Xy*}CZVr*M0<d=*%i
z`N=O*GF>O(li*$~9hGzE9_^%VoOhDTmmA(^a!mO~iT2)!*GcQHIQu_;B9<!Zd~(ft
z`w@NRH!D)rCui?Ib$%+c^t4io&vbb3=!>vkXusjpBU4bo5&Kb4d323i+i9`mEJ3`H
ztWIat(RNe0I+&|Gds%|G!ZRWin3%FfENoM-+f|wRN6Ge|{uDDPa_iUIJV2SLvlEQj
zV`VhjLqDv-?<P(SBdRP(NxkyH=B>{sKWCVy9vhK%1m1Ieiznnl3Mi71hVAN_=uH^q
zb$fYGpto^1uiL9~_}>v$5^ci2=goObzArMx>8o+}e%EZ+_U#)vV?shs9DA_2x~*qC
zUTF8em8Cq<K0>Lmt&^{9%9)?FAO;Frnf5PT;ojt*Sdz$=4q$S~JP;QuoJIYzXCtDJ
z0<wL$Ck8%$V(^|QIlJ}Y5!7^`-Yb9_MxhV>E2{b`H0*@pa$>=}wg*j|e;Tt)h_2AJ
z{|J)6N|cSH^1syqybYb4vWOwdXU?24Zg||iPcQRT`AJ52tKvywn9E>IU%I3^SvS@W
zlTXVGK}v=yzB}O)q=Xd8#;#mAd-i^ScP9O>346`8g{OTG#uXa$bM&j+3=I^K!Q3_Z
zA-ERIa&f+-=mU|4qXS$!j~p4BaJc$cqT2^8O=;(AHci<bR%ySwy-8Zh>6Sc8x7KlX
z&NS>)tnEDY7IJ|pr_*8Hjj84Jme18{$E#rDY3nNTcVfQ*fOpmYSXEcI=PvqdHW9~4
zGNT3Go}By<dMj_{h7foUVeaoO5lcDL56;s25bu0h@$G~5!tiH#!KBOG{!+e$v3&Iw
z+zg3uIia*akVC1UXM&vkz~@+~TdUD;8G+Q4AQDyP{e*%|lrA{6S|W^~VRfUPe_VXc
zLUAhjS)EHp`NdyjBlC6F^2OTjQ?9>wA2kv0e9hUpa%rafMb%eJrD?JaeNmhQPPrWL
zD(4(G@sN3^HujVevMSbo^|7|pxY76U4zxOQgZ)+4H)I@NXYum>GVHK*i<@fpaM|k$
zX@t*@3nxeXx*iGTZAT&LV*+%=lU2PIPwReqjDy_j_9Wl<)B(;@9-mo%L45E~)lm93
zVFf599A^d#NRtu;UsAj?!1`>xE$R#OwT(h(QWK#edi|?miG|cIf!S)wpMU&{MkOwZ
zbIOo8yp1~d+y=hJ#0Yb$Kx*z89KB*?J;Vz-q+-5|tDo0(j}GWub*?;ldAtxQdXEeh
zHXVmUSvk}S<8wPT&QMod{*lu>(;>=cr(qmM%v>X`9!Ac!+HK+{OwtHitdg>VV-%SJ
zrFv=75pYkxS0IT^uz3pC%5LQB1Rny(5|g#FU(sz!#k=_f&dZni*RnzfwRP!C0k@sg
zx|hmo{2n1sQ|@xw9CfkB@E9;8?>@?>&}$ENz#r2<dEjp;rJ1tog5g)tu&mP-UUspz
zKIq=vyKSjoHx@j8EPQv1v=KBYkC>t3jGh;qAg_EpI!&sM_B>LD?`-o53Hy6X%A8yh
zP4BDv7O(4WG-)4=-u4!Wxnu8okUB@UIG)<$<T5nrEF!sohjQrT)UO8TUi(Ae-My*y
ze7<@@_eE{vOq>P`gMw8msU{oUC1*!eR8kkdIO(KI64iX3xWq!#qA9c7u&AlLb<{DI
z%YJ`GT=#Mzoa@Q?Ql<u>2U-Mijda@Vk(s%ul}d~MIuYLg^7HWN#_VM`bBjK9ez|nI
zRsIZ8lDlG`6FbMH+p`_B^a?{cN<Ulvo$wO0MEdQx$=R}N{<50@p}bq4O%Gpmx4A!c
zU(2XtmQON|2}+Hh)Q4c!*hYvow=ZA5{JzKnXQZms<&p#Um0q)kCqw79QFMa07qkwZ
zUq9f(D;xeYAn%9F6PI1E!T<x;D66({BLF;G9;`OXSBn9UR>j|O`Nq?yUkmIN?khn%
ziC)(XiEgwo^jc_+eeYS|IG}R#hs@KbPm@_(WR}5K_#yoBCl9fQ#rA|DS}bw6dv@@J
zvt%%tV>db6DW{ya{Ka=jH}G_v00p8ibc#|jWWW?q$GQ%0NBIAGW2~ACF&XM^$f(Bg
zNJftkTOL8p#6K|8Ao|4z;*^?HDjus){|z_2p1*7RB06L<q!%@ByJ{rB1ESjEGr<BR
z6Bz>Q<rNi~NVgQT;C4o2UBvkoS}A#wh5>@D#M%|N;9=(@930&KcYequ<6mxNAcL!d
znOZE?IRDQ-s-Cw+RDae5-lS3hY8ELIVpa<f{c2Xqx0}b|5!hugK;{ObY)IqlLhj5Y
z6)fy%^s&dih1~KtUHLl#1|tUl4&nCaPJ6n|>=2%<G4R~GD`JXM4EdPwEU@4w-_U7!
z_35x*XDI`F0JqD<9B%6Vh2ymksyvN&t#y8V=%O{QJ8-{f<(^?BxH67?$F${rcI-M+
z(yFWOyNKh?Z>XszkcFM97#w6wkHx=wRnunr?K}VG__XP!D9mrAW(IEZ750zccKoU?
zqI#3b;*v)XSyPV{`-R5oH+CLcEFG7yeP8YqBigyiVJ8j_wZjrEyaz5^M-hS}_u)!l
z7zwtMi4v~MxwtQX`<BAG*~j0_9WCzWf1_MJb+Yi0(E?Yny6oYjM{E4_(8}ylOtQ(9
z@}B7E{`PSIXiY(vAwLhdN_()nMG`<71V~#gqG;Q=iFrA0mke?JfE%~vcSsvJ7YGCY
zCr_e?|0~S~Ms_4KCQ~w<CH0M;B2$(RI-b_>kQ1q`Rs7a}@n!N)@#tjBu^vXy*d<Sh
z8yFMPNkf0b%-VvwKq<FukYe8fYWBr7-At_{9z7uBFheY+$dGtGAb2!d=5amZ|Gp?f
z)d|px0W5*AG>bwi(N7R8G=mGG)Fd=vWRPPF*l#}n?@KyrecAQY$H39iLyD~Zw!86n
zlEUxrJ6!*oZgFSdzbO;&c%J~+nsIdtWFkwRH^1~<@bq&Q!2{gp944K!#p#OwBBVcq
zSnNe=2z)#yVC#=RB%}2hB!<+87NR-u+!CR0JsTXMez-RY`Z;>&T8<m)#Byc=S|T>q
zrq}{(PpZGG7ryR+Q~yCJ{4|`9(I*Z(77Def1{Q#A0GA2GRtU<q&J;OWSwdM7{tfs7
z7&f2>Odv`Th!>=sqc+*995(*+8{S|Rv}ctNQIFyOV7iUBQx*U^6a_#X>C}2PvkHEX
z_$|V#BF0;|G>|YQ!#$Tc{gCp7OhE%_r0ah1yxK49b$n+#`F9LH(%bgd`@!-TlEL)f
z?@%_n2ibpF!394t;>L~aTA5`#juilOl?;Vz*MonU8k*Wkqnixz!LdOXX0_wAynL6F
z+FHORT~?nH^!?4W!e3V1%+Ce$#kh#~#JD4was<d|Vn(g*vv8L}|8DMQ5`TCMT!Sfk
ztU3#8O&>Kz6^2wOv-C1?uTa=j02-<y4XS`}NJ<WT^<!rRZhbNu%!uv&-G5#R`z-o-
z=e`_Tz_t8M&$>VdH>Lm1{+1^y?FrO_hB*oF0E}$yngg8VZ={k2A7IKb2Ox)r_kG}K
z&}(l3p(>GSB1!oVB7rQ{_CsqboAC?3axNoabgbMzPa<A;MoAPe(YxImd2Tyw?08oS
zEX4M*OYqX8h3U_H*+A8D1A#yb15=%$&LRg7Eev=7cz~DctYwQAi3OILZv8_FASYQM
z`q`Opj$=CjD`BA~BEzy!w?+}OGsG+=?siN=2SN-ROh>f{jFb$?BeMkH;T2s(1**NW
z(WXM4{41!dQgPNkM0potHR;WI%)8PK_mAMNWP%LbvCySzjHJBX2c64Vs9OP$?v%kh
zt>E2?+d(#e!_epZiaZJ#3^iYaa~hxTAI`+~fPL9%tWu0Y3k3obLr}VWGiJx}J@rjE
zM3A^%#+h&qoCC3iHPokA>i}ri#256~c<}e!3oqWxELpya=q-UNGtscC-R1hnmj>fK
zK15@%TUfXD+bN{P19+b>39jfM1V#Exq5jYRnT!Bk$0vi=SO;z?SFhL@i)4W;WcM%Q
z(<1P=ATt19Ymq_*I|671rJ?D0eCQ6+IjwCQSN^b=Sdf#u1O&eu5Wr)cpjd6AfPBaR
z;&ofDuIF4v45z96O}eORs_;YP=E<<1Zp4ws1}V_wZqgfW@L5Rbl@c-62euFicNT(h
zU<)aMj2ZFGnF)V0c=TGcoSVY&Wg@&8b;&#rrZ(S8k1+}Oj6oaSNbc2)j3SWes$udK
z&epG?_k_w}!N%Wcq+5Eke2kP?_zquDd6$!GfC^}Qn#J&>iX~vA$S35UbYg=?NURrb
z1Xu+IHUb+vGSqtASYD6y^Jkh{kOSG-VS%q#U!ZhD0WUfKCX){Ioy7>0+n=RM8-aVf
zdsZnZVL=%p{@f++r)p-Qe3+<q$s|pZ2jgrjVvQmfcn^XG;4vT+ty|CdA+UIktedRk
z^Dj<d!X^^iA;&Bj)0G9<HECW9Xu(g3sRe;Ba9Bqoy<NI^5zaCeKF*uTA_FTiQdh|^
z9v#%xsLvT#Yj_3bi**AA^x|u@tv4gwHlGZRceMi>RY6Pf$vBPmoI9|Qb9Sa%BPXWn
z;7_TImQSzk`(O)jgYxC=KSV<fv>x<(7?}n@Bd7>3X8FDmr;4qXC1e|6-H~!dp7<@~
z!htB<xN6GQZYv!ysYuPpU;|VG0%-9T?gzbe4@WMBeD2YO$B1`|$yi$1C!8y!$wms9
zI8dly;;4;fCz;#_s^0k9*&p)HB!c%&8Q?Fm%ztBB^mZfPfbj<{47>#am`U`*VM<)<
z$++9mm}vg+RN6<(eSp2?ITW^>c}l20(`~v!i3J)2CC|_+IZU8)8A5Q7>WPqn?icq6
z2`PX@gKt=pO}WhOTh*}5{Y0W|=;@W<(oO;k##m@H7RbuTltCLpxFK?@k#NN&R>OPP
z1T;8V;hcF7>wBx=h6pQ~j)hqX=9A@?FSA#N$C_nS9mGtxUeTOMk06JRO|Vjvb-(x?
zvpWdk3W#T$41u)L+F4dx9*bOh`{OLEKR@k_3{YmhOb}2BZmq-RDM^=;`3A`7$z~_r
z_F$8Y(b29}ZQPM|aVca<5R%l?)R>YqAKl~v@=p$Iv&nc9a`Glf>Wlxn$Av{jG(KQu
z*?RS2y~!1PRYEP^@P^s77e1Ttr1Is%WM6Fp%Y$Q&CSwdhq7bu3mRkKkvRl*D8egRu
zk`Y0O-7ppbV07g?3+}U8;QUBm1+tUyVjVcy(Za~6rnEqWFg5OK9EE^Qv1y~CqV~l3
zndY(i2P1#<afj1=AMC|K)c1AD66!puiT9@O%{7mn+QK9b6@cQ%IRwCJZMXak2D<IR
zH0vVUc=6pOmnMJaf&_?Njl$EDIqknNi|aZ;vuFeqb~KAb-vCWDvOWobbS&Ol5u2_E
z!vT>^MFYqCldW+A-9o|PIvPWd`+p;bRO|yMzH0$|-3|YjNunh1FB(&hCjGsnj-oT$
zkMD^^z@%!?`HeO+VV3muiq!N|pM9F4;FeATwy8j)gN9j#dZ3rlwI^A*$aa`VpI8CO
zMJh|Oy-#M}GDo95E+I}X!|vsym}aBZX@;&tGIfC)*>=R)r=d7XzCt9y1Yjfr(+Ute
z%*U%N{xe32H>Y9>LU{H>8X{vE!fo^73v?bTyqJ29+tPbgu4Z6&;<NvhO)|RY;SoPF
z8sk`7jc*3QLA6O%%#&+6ysK_Q(zM+LwlTB^o@;g1#+J$?5mnMyYL1AL*Ft4+5iajT
z_Qz3jkJc%4O;z2JVvtQJhyw#MGAO04Lw!~We+J+^Li>Pec@XjfjITP%Z4KB4VH`Xi
zi;;!NDd&)`U?9lGm{U`GTUJV&?EmziGD$6PN&C(u-Ky%w<}>UV;G~Hah+r!y9v}SU
zYcr}lG8ZUjcKf>+>+*f~|5>=$P}#2Yp`f{<n6}8q_D6$rX2tX@i7je6q<>@|l%vr$
zjpXjWa>1Si+oes+N{*N}L?OBZt0fk9&kRe&IycLd!vi2M0n)i9S{PDKi5@DyO4ZR^
zJ-Vpy=6n(Y=ts6UCTJGCF-0Wa9-Upl0QQI&{Vc3CPw_sUb!}~}BaG%^bw82|{MHEf
zTMQ@KoM`Y+OmH;ogq+WtFA%u#s9<ye%y--)<O<dzo6SU^^-`Uj2*s9g1T1OV*aWw)
zouu9V8B^$0%VL>wSZcuND+LO(sn;>EX*5P|#7KBviG)eFt9P8Orz5V7NC$t+(yL2K
z%uapJOlj<XLfsdq?mPS&t=n1$2wuMDRyqz@6L>=+h4m!|HBf8$U`Yw#BX))#j*G^9
z7r%zeA{XGh#jIzDhqIWwT8M}19A^ER0?Nn1p`RA?ir{>>E>g<Ll!JYu;7sw>o(C7<
z#ixtx5z)fi#`$<TOf90prK_zvHb`dBV9+O-N_NT&870Q&n&Q}_x&Aa9*7~dq%+da?
zi6x(*uHo*M?-`#aj0pscNe%JS(b3Vw2{WuUE6jJFrn0&7C8#oROUQSbn(t|Jc%nmn
zx_`ieI_e|5V#UMX&g|Ma_FGZJ>mP33*)D$Qr#<GcsY<Gu8qx_r{jhoegP%ALh3qID
zee>guKYteDJk%1Rv*>i_)mH91*YBPS{q5nytPB<1anC15<fthL-9^#Pk{`Wphj#Dl
zukWnvs%RD;JqAe{_t2FQ91utQ9hn)+d>ffeU-)cvH1@mN(V%1!(lnS-(@@f<R;lH2
z+Zw1aGbHmSHIL6twB8iu<S86<pwtG;UNF$X&%1hhKCtx0)8!McSi2<<%_x~(&<-U~
z3DChozQQB*SG_FUrt4+Y-3x%c#HKZs)QTQSEjY6v6cIFp$U=sOipAl4aT+u@G``!s
zwl!xyR@B$~1BK<2-hAy3c*8t-@ZiB?*>L>tDhA1l^}T9MG%gF>Y~S)%+E9@I^XYtY
zg+eh@1&@Pgd#(_Jb=h!bOt#V+OY}v++`V=3y|ih<IPyb7h2w*7dmtFO$%6Eayb=vG
z-pF_aw@%j-R6hY2T3YDTJl(WUGm+22p;#L!yq9wH<FT<Z7%~e@w(XWmD^>Hj5^(K|
z<W!j_@q=-wuW#~!|Iey1l#Eel1I0xS8+|x$@bw=Cu{2Ku!*%G|m$$fd8!ELuu;2L#
ztxY9(N>vX>AN}BL%(R3Hs2l~%ORlT0uc)nk3L`1AJf6!NS&a`%W;In~t47AhS3BMR
z>PYVTDSq!Fqw!Z_Qq0{!_S?a<%cf^!3~!wu+)BBhIt`bu<G~YecMsvPUA-)YQXk-A
za8#mNyU`-i7P$$Rn8F9kxO6_!|9Zg%Ip<@H=Mlh(W`P4EQBzb}>y_n2GUS!qSjzpU
z8QZ`X*}F~_>vy2GF0#uW4kT`Fu&~j?{Y93TdKUYSJl^3VjqJn@`Czy=dm~>GMrG)V
zDV=^~1cO7DoW7r3&U7Qm6|69SqDrS9g||;?R<9Wu31AJ?#1)Kh1z>-6mH5|?0Gt%;
zds<prD$-#>p%lZdHfXhT%aX}*-|WW_x*7~bSV;3yRhz(pUV%JB#~=ugh?q}fh|jb&
z4v9|GaUan;8Bq3I`U=!N9}v=?0zq)K+*hU5G~G1b0UE6oN24#fdQB)m^ssh2*9K4g
zf%74ybVMamp#&+D6)5jEWSWH#MXE%rD#xpf8hKqEa}>R7?Y2HP;TMUoAvcwUd_^6y
zMpMM5Pwp`5{>aG5ar1b#OTF=^ITZ+mIVMm0=pc*5T53ux<!b28vbdkDOjT*-;`xNg
z`>-v&)X+Qyg5vPhRJ*K-<k^Y>TC=3&@9RA7cQ<DXR6S>AIbH0kbCd5{-fZ&wX|Ck?
zXPb_WexL>kHCj8#9?og_`v!MpdgEJFDV5f?mVcxxY(H<>p|5n4OUFk3kYfp5DqLBn
z{`Lb4g_B&u1LN~gdM3*w;+*`=Qe^Dx>}cKwe~YjxJ|x^?Mz~Bak=L|)9`{x9w=4ri
z)1vhH`ugPslC0id-Byb7j;_zQhOJ8#`zb}~JY75$4`e&F+*(FgsSb@f^&2an_OPBS
zUR9`PKxuyVstk3xS3*JpUm*-XxvkE<@wtRKK{qev!!!~@KZbT`R37E!<*mgE@`{_O
z>#!`i(x4+1IDfWu_T5cf!;VJ#8dkY_=dm!0I84}Fy=-f&xlPqothYwT{x{h>qt#;t
znpeBz$W5zsie?0OBwmXAxU07n+wMvFzJ6%0OQ8evw{ULd5&Qi2+9M8g2=Od2=s?jC
zHyM0W)a;VIEqG-T(KKIN$ZdJ)L?L6k+R5IB0z64Z<F<-he4=9Y>`zTFRSnO{k;=--
zau~?X323pgvAK*gTP9ky2n>G(lPNk;hcR47H?oDBoXmp-o4pXhwjq!xG)+~fMkKG;
zs*X(@01eztjRU_+5Zs^^N}-k44EMZK8oxe{ttD$=VbKIqWVfc+i%E^_A@5vEQB8*s
zXBhQc!9~po#l<EV2%Be(s&6B<K1v(ft;C2CJyCzn;A|^hw0!f6vf(DT`Prw(?99m^
z(l<H``GX^4V;#?KZz)R69*viu`n0GzvQIi%Hk_8X>exOY0#2)r54>(bh3!x%r<a(o
zpv~_MljKTgKzbkb=STHB!CIT^4c^tby5{CDBu|Y0%-e4-jeL-{+U4sh9tlN;R*6Yu
zpbwN`9j{s+P%cofdZeePW1kF9F>|tO!$1Ary=8##^fyl(o~h57)vl|*o&6`;fjf~*
zD$-^EQ`zkx*kOn{;<f8&tUj4&(D>B>0cMVsGbaFxLfcUxr5~wM$}Yh9w>pz%&a0MF
zM5#Y82mzROKN~NuS$rHdFIL8_?5FGE!_~$L)0bxglNoPm9o5asD2mAl-BmcAJ)Y(0
z%T9PdCE~(tZEQFt^<G(iUKXjJX+PM~ijec~KZmsP(M?Ya+)XY8H{e^$0JiAw`e>}v
zYo|JsNG{2_*UKdzf;1>Nr7#WgDv8KNE%Wo^^K;Ft1vvdgaSUFJ{HoJpe$2v)&s%oq
z^39efnkGx_I_jI}Y*Ej9kur!FV_5;rzk+L)cXM;2wUH1Ni!=3KS9HXAL$bUozqb{*
z{WjpyCFHU46~e~rFci((Ivq+VdR{n7#ln@No7y>E_&o@>3m1Ozd9dvE^Sb&+b5hNh
zlN##%%U_>3#nk9(*zH}~$eq3_WYB!3k)HG-hyIN9wWnuuW-eBv#WHSZXL0-6yoaeh
z6YdF1{GQo`&?v$7ai3XTeSKSIc&?#p<<f6H=w(~DO1F_qe>F#?cH@$!%k723kdFBE
zyYxGWp|Rcy-=->{FXZN`B7i5sprVyutvs-}&R61LO3_yC?4WgSa~6{y=eeWnj;Oz0
zDcDjP8T293P|i>HjBam@gw|_0x$am__@4(G+is$c7p*wPFnSH4nR;eRfRV<_YefeB
zx{FS16X9!-SJx|?j?u{Cm%_Q62m`ne{-XOaolli^8F`w+=au?E+w+A@iEQgc^x>{2
zl|B3%#v$%YGh^$G{LK;zwm4me`TWLzs(>!OR{tn!xF}`Sj$hb%)*Z20@w=8RDZD#p
z<ePX+T%4xd*uQl3r=c@^ExIXJHBpg29T}(3gdf6Ojz{MO@d;O}VsfUb>NBmk{dDus
zn9Mg+?KKm9R%^)dt3ux5CR2tV87fMS2cwTcS*4U%XI$U=t#dDi+@*piKU^tq>I=Pu
zx8b<%QT9-n3PG1xchqw$oMcxm>wsi+1kZH^)7S}$)u)roMMC-5FZQW;m}}OAqG+{y
z2FaYT-221h<Huqi93Oh0TR;R_JBrxgsj&=owLR$za31z=K1(C#_<aBTY!3MgW_@;y
zIQ6_NXfasCHW7QBPuBapbsC(KKtAu?&a|@gHcP2B8W`N~I(YA2%aiPM9H}=w#{o3u
z7GM!}jKnsp_7aXZYoW!$SQ8&hh9u+`=<4eF3zL-=7`t#qy7&>iqeUlPDM!y3o<7A{
z^@&7Rd-T7LF7z#g7*<KN5L9{jR*Mf0SH|iO9s`Q{@1MT~_`yw2<Qo0vmQ(Y?ZgU@7
zT0yY%{ts_}I8o8q7|1s{a9b*XWGd}<O*zXBVAik>q~J0%966m36UNysG(HH%_ARnd
zR8&NqPUj<uKoT;vcFZD?b#t3<5k@*)bX#)dnTY%4SIG5_Oh#NK&w@ic2?0oEC_*&L
z#PaK{D?tvs&~25${E_r-`2Ym88JGt#FtnLkdCp@G;XZ0)xi~p5gQ6@2IG9~ZA<3Qi
zv17~$W>u9pjQw|#Y<&nxx@eUtqr)n;%5;_FL`x55mTua(v8HFrT_x{N$3~W(FM=49
zU2Yqzt&q$3;Qt+m#Df|W=bF-1ci|NGF9W*@kpX3Y2s|c=B=XC{ip{udlT~zAZxSCp
z*i=#t8}Ua~pg`=yse0Ow-A+wU<6=-OG-HLO0nHosV`lC`x@Uu=RD9S+HryEi@<&D2
zA+H9jVnKi1W=qqJGO?yS32L+E|15m?dVDxWI|k5QdMRDKy)Y#h_Md54F7=*#Gy>Uf
zFfAnj^q%Zhi4aaC1{D_sRHId`rn(}pAW!^=@=L1Ch7=kq@#^^B;R6RALNnSSpg$=~
zYdh9FsgUsM%U!==UaR-p9LnzLJ<h>o(5=;KnR(HRelt1odKxLDFxIv-NdR&?aetH0
zbaEL&)2G0Z#-Mb#566I}SaO>GNpogtHy2^FNgz5F_J=E*yzf%a+3Sp>AECsmXm4cO
z*16AHX?!TAFP2Q=#KJerB)8QL`{0FXV*~e@B4DylvE2i0>!PEn91JXA7woJdMDKPY
zAQ=xOi~mRw<ey%A4tYFHFEod9y5uqbmt-fW^qysy`YAepS?kYu;8;08PMEE@U5628
zaGm`7ac&PqE4uI_FzA$Y33$t94|-Uz4-Vv3zCl4jnIqx*OEz5zK>q6x)^YrlM{dT;
zV#0Zsqtbw`QA*|z6wD&|yxDL{T^8Bf-~SOZvPWq4nyrOLF{yq4%XU6iQ7FVVt{9!m
z9K-o+V{6-iaQ-pVVR#5D?I?g`1?-RqN59-@fY^`qA!#oo*C!^cX=T76L)k6pbmJ3P
z&a2-Xc^O}pV|47c)XX*_NgO8e8Zf$fjU%RQ`rlk7z6TFkA2UpANu9@~&8&;5GL;;A
z>DdmTR<Csu=*$&V&0=t@w8Bp5z`4Th9IqVRhE{@)fD|+GkF(zwiQe(x>4wfBz}Q9^
zy(!wQqgn<7=G}?v!8yv&aR(Cyx<zTzU!|q|NCczovqt?vDoJZtFLZ!N|EPH-P;K~1
zqUq*F5~%x85muis0AvvehUpklP$JiSso=(=!gDpc+jVKbKQt}51uHiQ#f^U<Pqdl^
zR@9Z&_Qc>pZI9tXkj?B?qiY%bc#FY{1t>!!57Iv?p(Oe<9_uC2DM4ySBFap<TARqp
z$=OD3F{zZYv$Hqj9%_;l<v8}LG?}_aUJU7h<<!*FA#4H+rRYT5D3!+X=aH>sq2e=2
zs=+E#>Vd04(2%q|$*VFIAvy7K-{~(Ka*j4n<ckiWNIy6`J9|@t0Q3OK3ejydguEjm
zHDx@rQ^Em-urCN>{v}J6V4Q^}q@Xc;g^2Ef0CG4LGT2YKZ&ANf({NC3fsg^Al+V;5
zx%K74i(HO4G?B9k5Oras)NB`@W~b>#MlbFlzWnT0Y5&ZGlK6{|REuFEXA(r4oghj+
zY`eXg*4NjEdKtc^NATgMb0nM6Ot&#fK)ISbxdp{3Um<Gw_8#1ZuCHJJj8>J^(9j?Y
zlQ^w!l5(9nQ}s%$SZkd!eg6T>ajvj_vtsvU6pCk^oTe`*S~ynt50OehhK9X=HH(qe
z%G>`w2kE8}GKIa~vdC~sp|=bm1+PqEsagS#HhIk1OogY13<nfE$wi^1Lc3p$EN4y=
zq~|g;Y!eI1I$**MmYG#nX#v=L0U!hjLINfE!{-mgO|yn`Cf@B=IFxzaPKEM{m5@Om
z9C}Nw-}~2K_RXLS4SivT18HiaGSjsmT~lfqM=ojdu-4J-Ptz(l%h^$JPi;#&HMUl4
z)RJi|XqnC1I`{Cor=&RfcM^Nf1|1h8(8L2wAnySrVq&2`&!0MS><|*&t1oUhrKD7D
znaX@6E-qePR*_UX?9$sCUHK&YJyP#8RbLt9Ro>aVDl7gpGc)T-C}X{jI@e|PyM#wI
zg1~*f*k;+C#eOOZr>J&zkvazTMy}dgz4G-4Bc)ndLh;k|R}mBo3q_}RJ?Yoo8i$fo
zQ|Zo9A}8(i1+opiP=-gw>gcsXdvV$;#v~38*l$`<Ku-{WM{V+WQFmu7@`1f{h8u$>
z*fEiOb<lk`e+X`2a{MT@_b*2N=d0_`?PppycWO31eG@bP!9N*e6N!aIpQxi3_uNiI
zJ;Nu1b0_%f@3-<|FIHjf0=l4DO4_PZx+AW}_IW+#BRGNNMDFSiw;9j*N4U{D$zvo(
z=vhBu6EC+7OlwUF$<wWo=(J%_z<WB%k&)5S__7L2Os_sRzfynVjo(LldZ;~o^z&j?
zrwCK$S$0TISeqXUWe&U{BYb#7=6xjXscAY*Ei0_tRxZoz?d|RA?$+v@luc_e)jU^M
zS7$m_$82h{TGSsy{}^X>T3T9eS!Q5h;NJK~i+k+9nb2RFX^&2*Hpx1gQ7CfK9(w-g
zq~i?={`~s&t8tMdPkd}FCGdKxmPyHpgy+wncg$7X746{do-yHzn;X80jH>Ip9TiEO
z$=3A<)JF`nJgTdz7z(fJ>u>ZkFMn-a`z{$pI3JH)-vADMk@?=7*;GCOix;DB*DAJ=
zNS`xXpVLmVwz=8nd6%r5NcDIFV4wcF{SnmzBxDp8y|z~SD)zX_Vq*%hvv$x@@(75J
z$f=IHCfn<B`|=kAbYq{}*i<}f))KyqbVZkL6)_ZUqUn)Z?o(OJyPZ4_g@0=?qe5b=
zXwg6QoSw2S-tHY4CYm^s)>-Y4U0Lt1e(d<z_;_a;R+(nGRhBxxw_ldg=QmTH&528&
zNV&O|XH-Xi@s^bvOSk;|CM-XNmvQNI@hJL1%SWy>>Sat#Y4!Q)=<DmRuX6nO;5vXj
zIR5tSr*gKge)8G4+L6Z$%Ihv2fydpv#tcs-4bl!2BoIF>&2*nr5(q^AtDciMwpcyq
zmump~Zl07D=>GckJ$l9b`H;Zqwi^AuBU;Vk0C97VUppXVS|(t>K}hFGXADcKwb?wQ
z_e>PGdu&F=F?>b3gIZ6W`uv3`9ib~A5=+pY7zAO32+>0l+%$gtjCO4GLEOob1Vo7Q
z)Scbnw1P>M=bxMaf~_5fPNn2T0MT<9Q73I?sF-wRv{?sF>yT+iXAz*@`g-$Wa-wl5
zN@N>5yDKO#VcD$(06iFC2|(H0+?>zs2`=~NeQwj$+)->aFf6mjaDOq0+$3&;>#k{=
zlm?hbaA7sNqgvB!pIs+(W33PKL?qEfDMKS7`|~0evRvq2xj<_J<I~u7-Od|3y9dZZ
zEz|%*xvO0d`06>DAUj^&emHpYEXmCx_OYPkQ=sWs748(d9bsI(Jn}_2>I(v1W;Wd;
zDPN88?JbVRcvbcc_?;3${Am_HA^912h#5ezq~x^*poz*7&0T-eHUqQt*Y4ZJe9;|2
z!Bk4B<Yb|u5pFT>SUO2c_yp*oW|fKRE<3K`xT%Gy67#7=Rq6qEZmm{w5Zu<SS307~
zbG1;b*FPN>@LIi(9dz5!sX1x1|G6rEJAp&I__ods+`hfJ?_!lW_nLuKYIzt8K_Egt
zO$Wvh9#u}hk~*IAN0hlVP_4fasNH!kDR}m3_S`7F6Iqpu`iz5p;a`9KMbbo)R?zs!
zrV))vDbcKsi4CCRg!Pm9s8-(#eBPc!G|mV6XOP8o#3hv$bxMw>dBm7mUyV9aL*o)?
z>Fw&$bQmAnmM^9G^3uB&(${wV(E;=V@D)NSc|5LtGb%hWP(?`>a&I{IQuJfRN-#0(
zF`rn^i#&Hmf_yxrCZ+F5&cMdIo$BikK}x%Tw37srz@SJ860w<b9oRrHV#EiMz<&ee
zi`&VWLuw!_bstZc9s?dVX2(8Cl}DT8Y?mTE^Pr8B6S8cwym!iwdZeo&@(OlbEugC9
z1x<|?Z}Sc*&W|V(Y*)BpYv)7ub8ufbfIYu@F4hos_c-E>Ymey>*hV`DyTA~=*hM({
z{XxlbQZ!=|LT2AfOVW@fiRfwn8-ndGQr&N9y2o2K4Kfds)pU@1I)*InadA7o)vo2d
zHcF+(hd(snS{wj9NxTX`La+})8_HZ?|C|uX4KX_GFa|bcc8Jgm(G?bm40Lr<nDwb6
zS2Vw2#6ziW)2T>0ocX<FQ6ixzS?)B|XP4u@-=#~Aq(SA?)jnkN5`M*XEGf7hDpxlN
z*8mYS@)#L)T=^tpw8E5wP6Fxx<@8yraP(pz6Ag>qI-sL?bV>z)!fiX1JwM?&kFuoW
zaByuLH|ty;_DB$Vv<{#G`Mk`RRJA#i{yBxsGbPPel~H;)Txs;7!l%B2<fjkmsi~=*
zH@D7QAm?DUvy01LEadnpP1GEGJI($Xo*1qa)qJ+{R;%>ify`40Z{pNr#n8)g7}Y|q
zf6yY~h5lD#v2Q@+7Njo(h)kFs!nBJyvbu@uTt)RRy+wWnYluaiu}r^x!7&1nIDb90
zHHJkhSWq^}B#|YDv#u}Ki|G5g#Lgi(43UZyc~pIKR9kMdOt&hRG!Fl~bqg+?ONsRj
z{_KfL=PI*AZAd>HWshpyQJ>yU_A_fidv`)ER{Qnz<VQEx^K|<5g<q*T>TXPa6~B8?
zH+LF&X|x`d{SPnx!K%Y5P8p41BZSxGRZ|ZV7ntjUawY{bd)<0wjC@~S%YSu;^MW<o
z9wtPM>M2{_G%b?x69@O7Y^kGQgepH6r$`_@2Ntub)K52X=KH}tcE{_oE#!kjLcUR~
z6YrkG_+?>6z`wrHo(0I|#L2Wm1m^o8I|ZgH^y81%@D>-Fb(!s_<0P|ioSx=R&n{Kg
zK9f3K0WaZA0k;-$y#8@&s5NQ$rqt}qTEoh!HEVab=Q;J&_Z)%`hwS(7{I7Rkv0!iW
zlk9>(Q%Pw-+<E=R0^r5*>*Iy~=6_x6|NR30`z`kT*Ken)Q_{*PUm)+O!}&0i!;J(2
zLpT_iSXg`nvgC)b*oh)m5j<d0F*yV|qWpbU*w44?&+UZvk}3Xi9#cF^ND;0B2b;+^
z8?qn5X5+{+aq`;hQ<SII?cV&oVv^v|zF9qnPY+!D9eKWTwCWHlQAu(PlLR3E-T;#z
z>uAc+l|5D@?r^xr8|JqVmyBU|(adeIos`8j0L%a#NwASNa(rP4V@}$~HdIAdZKKI=
zaZt++E$W{loaX8Mj^}8XksQe<ut|^*$rPAvf(9EXYD5f5E39JwLZx)^{akH1Fa~I`
z@g{*5P&j%QozZ~?VM?`~w?(*et!cqPqu*3Q6-8i7pWmCN<-)i?FZ_AdTs|v;I^L?@
zL)lZ(P3;{u-%Cxtt2KQscFZr?)`C*+SGqUlaqAl&W$D-&zXyui^<qmo;-9xKZer7<
z!LE+L5tc1mM&sM>Say#MnM@=5IwRN$pzp)obpoc@wuAwSdj3GGe`aNUy^2%c7j6kh
zn=@uPv*I83cl9Y)tnD@l1DJMI<vFtng-IR9R@6zGG@dip4X2j8LEU7GGfr1l!l2qY
zQMu5%WN+j%0%|<anjXAiwM?srLj;39l9^u_77iNx#r{f4OQ=+;;aPTekMdQeTH=Uz
zL|keaQp*e*?_$dF)Xefr7S&SqfO3*tJZ4{Is?W!VAhsCMQ7*_wMZ5&lVmc;X4h9&J
zzwt5EGk!z_*?tOAvq-b}Pf5?|B2Glimoz&u+FuYmm;b|cL7C#EnT18MS2f1L5ySIT
zjGRzfLw_UKr2HW@)9N+Z=apjytew#sRVGI5&euJ<nB%}NT0$+2NIU`SrSfTR8Yu;~
zj?Pp=qtbw<1jm^4b({3%(%Y6ulvitip(mCcspoW{_VWXO7{1$l1IT7&PsTc_+ywPl
zZ5R5f-uct1@F99!-IsdWDPEPIHRc!3ny9>+wQ4kocLk8Pf$=L0Ewj37q28W~?ToS7
zb%Ksd*~_CTNxNduBudY1bjEsetU+J&S!jMOwdd7L<CguJos;U4lJPD}Es|U}h}0<+
zL{>2vX6sU4E(*DTFQBWNrc+9C7q^MqZtsac;W(@qCXuB+1Xb*uHB5{OPGzS+S+MW?
ziwjx9sf?DwMyP9&;?6XOXJ;qZ?NI|*(iLCDDi0TAvR=PF(L3u<7V49^q!lXl;1T-h
zT%4*_A``me-6AQyQR{o`z>;+BkFQ5ks$V=yW3gDV4$j;wP!xjCYq-D*^BhxIUO1PS
zqps@(-lN#5_3UK-309yYpFry88!6Q0!1#%i-6)7m=Yo1Ex%AZW(b1|ND&Ci@0Hhox
zdZ-m)2X%wGxasultb9zwONe70FXcI^QnyfkaMakxkJ-7(hb!+T_>UJKthO$AEuijE
zp7GmT<h6!lekObL0xL!BhfF*(OPwa)%*%~~iR_(wH)`kNCMd@`36eulY>|9n7LY<X
z;5;H|?<6|71CjWHJjnXTn=N{+RFrFQivTc(HujImjHTLyB_t%$2HvbZ43Wf|IJR$c
z$Th9)E$j>srVnC-w;6i9WOW;<CZWFe!Gylc1oMRf2+-WyVOd!_>)6NspXD%kpk)r+
z+W!Hmyf28egxYZSmEOPOv+*XIqq{)i`<5g8*MszbpLzdV=YMaB5C_M`AZ4nIvSv*U
zHB4ej);%x2s_g8?>ibN3reu3J?NK!TO3o{-zmQ%0l;ARXs!M02pG#k{zrxMoczQ02
zdynFW#NI2y_Jl)wcV)qP?|<u}{=b#im|EB_I<3O*O*A9I=VErKl->c}XcAjy$51u>
zUBpAA?T9(0-ZX_$)b7I)DJ<&MqDYzlF6dE>5<=NSPfl<m2#`?hWRTfAz1!lFj7xMG
zz)98Be!=n(89!!r$2a)-Q{RtY6{z!TN;+l6RCoTkilM7b&A|*y6KzVc;A&3cXuteA
zoRJ*K>lgL!>IT*ckycWZ$$Fn+&4a&>-hYg-PllBfgRJ8@VX*>P@==kGkVquTd+0ey
zdzR9^0fg*>@8g3)_Q8iXQn~0WAN&;6`5h9(+J!5@kCdOINVz5i{I&kr379bR_lh|7
zYS%q2O5F8p<q4c$BA$u@G0!WSFIm(f*B=yd<URbU`EOHh3-s)EX$h#F*E4x3$_mC<
z*NBc3vv*3Q5EOChMSnYPQ&nxPW)kz<$NTJiRyk<mKi7_MI0%d*$NY6YlNn~pO+mAe
zNNR8QGA-eTWg#^`Wco*?ri#k>#7TAVM5&&M@_R(2C?n`(75}(8xusASoO=+xj6&7C
zxAU~7!wsz@#BqNm`Bvyh4`{xumT_2_t?xzBoV`^wDZJjYTD|Enfx1U3KWAF$>uU)L
zbt5Du0;SS#vdUUTb*}r=-x5j`RpQL_@|SiY_{IqIrNh0fWdZRU{q||6#C5nfG&ehL
zRRzk3m_9jFy;4HJyGWht?1*BJxx#(}qeU`cW^$r3Wlri*!Tn81P0U3hoA6bPFI>2A
zb9cL0RrU0nahyZ^B2z+KoXI-pRpZqu=B>&rml>QI^;;*PWp%v|aL?slR{?LI9xANL
zaMFflX_=+Xf@Q62@YEhXuQM#69i6Q6`WWuxySvqyF;Fl`g)<g6&8_FMzwP)@Jv9{T
z$-VZ}sFq3YYUR}Y){44C76Pt+K8kB_kFVq5h>u@q%^sw1J^sdjR}KGNL2>*attLsx
z98E!f(*WVrWSOVyV`L&%U_Mez(Vwm(yx3mf;u4|N<opjY*Wzyp1Zj<4qc|{VoRXqw
zTlo+qag1O(rBd@Vs8>W@vRl@!PnkU3#!XTs2oEn`xbPcMds?B1pc7b$kx)iYA`yH#
zpi|x&{&1ohXUPX#Pd9mbecVUeTqaz(5S()n5i5c&QUFS^Qg7gfj%DsrT+Sp&(I;@v
zORo)I$c9eKk+ez#wx8Ctw!haZobMb3CDMt!$%RJrg`3Li$lG&pha=Mhw-$y_B{LMd
zAuFmw7|lbLw6^T&KAxB93onYsiwI0BLwJuc9U*3b5v)aIX*1AVZTZ)WvTB!B=DoSK
z(raet+jv6=@MH)?2Kmson=O1#4;q{y$s@CAEG5+tT)3`<L~&7jWl+W|R2AizR4e{*
z+}1WCXT_+nvXhfjI%TA;xiPTmJ3SO#MhTDHUF@f%_#7d6S9s7tilk=r<!jbOCQ+bm
z9#gK?|FyJTRlA3y3ZT?EhNEuvqwXOR`yu@6iYcQo>H_~dEx#w~FO-&tQqItyYb4h_
zvJZzuCyWwr?bYtRj%2bZ4Rx*SQy7f5)a8_~eSHbF6lrPcwP27?iTP#O+S!Rd^ULS=
zEymH%MR}JLc^OgPM8F#*7@aQmPWU`n=@PS*9NOtVKiW@EYn-_cn(356l4HoR0|#C-
zvBh^qch@oIqa2BL3U4~fOk(Mo@Q65ORs1U7xpG%kkJE*6p+d=NPv?_dm2(;y)lK<p
z^&bAUp2ZM0pZ3dA&o}p9Cs<9P+1Pr@n)JFZUshgrBg^*cG09$$6tm{9x+=XJRSX_{
zG3^g}Xyu`&ao_PA{}Lxswe0n*OY5+Ww~>E;H>kRsQJJk<(poWb?s?Mus$)m+^X|Ux
zv(oi`ox7@J({?)XiaOeqm}Pt%TYKo)yV79W1|xsJEQMOzjD5y0ulKyGe-K;CQmDU=
zz;3Vn@kw1lWSN8@lahESQ~y{CZ<V@fp<XKQmx<(bK+kJpmT?@>i`I%)_t$-EN%S<6
zm64L(0RKgae43(=gbFB=rQ44cH4XiQBb-WCiCunweH^;!;&alxA~Qs_u;($}%V!4Q
z<-6)%G}y?Q42^g);r?E&Eux=gfC3b4kf))m+4eot(b4gc+uTe^RAM%ss)YT!A*ex@
z(=VBy#v|Dz;n==T0s`^kp?1NsKvq@UoOcdZD^TgM!gV6mn2YEYcl?|yjzxbRc>@nP
zP7Tx$P&@hc70M~C*@<La@;0dhl%=s-gQ39}x6k{iUfI+XbkIOuZ#GMWHy9F?7A2*4
z)6v!nAIk?7f1(<>snN-p8jQ}!aI(CU7~eHf3C%g^o+D{^Hr}#Ca7l}Aok)f-VwHQe
zcF~|oRdW!>i=8I_T(<*w0P$j%q8qoBb0Z<hWeBdxC1l}Ju@3~&y`v}fBsRyW@}GLJ
zso^K}dG1P_(Q@NjTD>d_h<C!BbQ`NbvFiG3)mPbT^v72<C*iWST%>HB>%@~C>7~J1
z6%e?jOgY(7j;*K91})_<rTo+HbDwA2_h1gZiZrbKh<2l}=<|XJq1H*n7nFAeo2}2%
z+T3}}5ns@>)D9>?j<(sh=Hd=5cCY7&=gEJ(_U9v_8ziAtM0gE$sB3yS@Sk94*r0zE
z1Cel=sIW6zmhLyUTBxc<%YHE!*d?$$WB$VxNiV!;H>`s{fP-P$yMX=_gCC%uDldsm
zCuSLE@d4;!v>=vO?2t`jA(U=HM27J|ygO<$M3o{I*=(ptNmXzi6hYv1f&mJN5Jomh
zj*UtgNBL~}UdiqF|4Ai>0w}~7i<{KKM!t{WX(34@ceFO}^p?;|(L2^xo*-NaI?=rN
z#GpePu487WV1bvCs@fUzS`}%VZ9bh8Yk#cbr*qDL*h<OJAjmm5&vKik@6xC^PxNZg
z9{BT-p}yr+RaI?wxjW%@=14Rle1-Ef!Sjd7o%Rwi4IpZG(tiM<pbJae`t2HNVXW;*
zh^`LXJBznHJVo@TqWC8^do)O_4534^CZ9apDm7<-mFCNr20OQk>gx31dD0M)24hqj
zAJG_~KhKwZA3`$B5$T`|jp!u^vxGNjC2HKsngU55K8JPz{ik-Bt-SIHQP<#UEotuz
zr)w)hyg&$kJ{W}FFtDh|_;^8rQYID4(0nA%ELPH4+$66m<O>4EU-t|;+Y1T5pg=?3
zybosxd9xt5xyf8ToWdF@HgqCm$x?W7;90nn{Gl3_{%n;#!<i11$bKx=06qcF9q|qQ
z<c{Q;5r=1=zEL#0^7M>?0;kH21MECj!y*j7PoKzS@t_I#Zoy_2A@cO+r<gJ{@Wz5)
zjz^xuy+8KKY#OYxV?8nVx|u~_Rl!CUaH8c-E`#^<8_Kg1ToY=bo-fbZRY;l;nn9kT
zkAX6&x9GxA=Na~VssBQbRMph8xaK$^sp{%A%(FLOOUfriyd>&twlal=C!SGQB}}5@
zawlT8hS=B|-%Z7|YWak)K|Ne}=k+D4;Mtdb%7smmBF@^d^|0iP@Ps_$J0vmy7p@+I
z(`zMJU%)hPX7#<uTZLB)HbEmqra#NjKnaqc5+)`P#@0JE(-cz^A;+OuN;To&AVFCk
zGwfe5eX~cx$(!SbE_X5;%~{0OK#@iOt+|>XIP%nD)MKlRHn8{j>xjdDu&I_4C;uPG
z1d{&EoCau&cVMgLAhv&x&J03H673`D$PsIE#?xnO{W10)R1%TJJ9=l<9!X_Zb-F?A
zW`%!kgTG4&ZKoXR#vu(ZL~ZvFx;&E~(rb>6c8?+m!7kgHXmWfr+jg>ljJ7Vfdl|6<
z<ijh1=Y(O*uS7)QAA+T%NS_WN6Epj$^kQg_fMHv}MtBCQvZC)QQ3l<`Y!!S?Ksc`H
zzSPPY$^6{6VTak#tW|cw8%^?}Q-P2{npcR=31+u0p|ytK?$8Dqp)*QsW*`p=8L=CU
zar#-QC3x52pz+Mz$Rts*%V&=<=ps==@}dEH{aDLHyvov@Te?B#A!%Z0GPFo>G^<Az
zD&CAf1U9mUzV%YHARmHiHWR;Gf(~e&hIje34SM(N=Y$)2wZeuY9Y?kP#(!t}_LNUn
zSWXGnO|Ip*|5%x!6@Mh-M|C0{9KyNh7}&Y`Xv_5gv;>|iWi~elljfS|)z{FG*oIcQ
zriNcwM%GU9>SIn=KOImyZng3wEj;9|9%wkkx^y&aY;?4pG~D0>QW+kFjg~M(vPN}v
zDfjOU5(Nd&#cNp=nP1k?--E0*oqGuj-~hs3K<;|JlR<j6NH9dY+O6Ji$(hRh+_P|N
z$2*0~-L?B+szHNfm-61h$<cA>)_&)U_kPUp&N2fNP>P*Pssb5;Q@0^7$IHd%i8Saz
z_1NDDO8{^HMAJz^_QfjA{i8K0BzbSLH-H6i_cq^a74o9tSy^e!pYT9K1Esj^GS+v^
zn7qnb-;4j|9J^~X_n4F3ygg8A(d$30miDhlj(!CaQ!yC!CjlYvWai9KNj1V%$}B4*
zS|r2wOyZ%M3B9&FN(rc3^*_=?>pS2%PL5jK+#pgfKnGBYl@^F#v=68RDQeh)&tm;K
zt5tX$>_gjfH_wp(J)$%NIxj|eAo6udF@vne0TJICjhY>hU|uAm1dBBq7(|TEBq%FR
zh|5Hn0$Bqgt&xBo$0ZZ`+zL)co#>A&&S)A<5b4l`NQMZ0kO5}43tAMe*d6c?4L?L^
zOthIpXu|J=VzU$v&abl3&%J_jD0B8w7#G(6T)>$+OI9E*OLE|^)oq6Roiulyeew``
z0+c2*Ftz*$b7()(L<R|$I(lK~!n55k9WDH^)OMpAq?AzE4UjAD_>`LuZ*){XS|rkW
zUTF7^+%nq)HykvcQOc40c{;c4a6tE35YFSc^Dno<=c5?S3F2>H5Fem-&-VM0|2(FZ
zJRJEMOTKPW<xr;UJ)60a`TC6E7ZC}Wt6Q3{|L~_yNK1Koi+ap<{`h0E;o@IwmN9HM
zX=%rc>*_@8=x;5*q`{KZVlYloyR#oCzU&jPNWXZx;Y7R|>juxAJBzn(`-L_=m+N)x
zB<-PhTYi71!_e_<<849BX`M7DE2}=SKmPbbMD{mNZy3Txsq%kDyRWse6zp$)#Vr{?
zh!NX;V8e^>IC{=pdWdrL-xx*VRUdiw>2|#MBAg)<9+Zp42~uE6h@budRt*EjBa6mp
zv|qNtxlk!u^>-PWf9{1+6VQvi5>?+FPtOe)TP<Lw4fj;?hL97fI_Tp?2jF0GGF*8D
ze3%lVEqO0R$3+}v%{TI16^u=4Vy$}cHnz<8Z&<soz`J0PxZm4uvqif|OGjrPC!93T
z!!g`)c8W^g0e?h(jc$z*V8I)gTvJa|Ry|jlm_D^V%ewP{{cIYQ<->ztm!7*4{>k-_
zx~^t;lj|X)=(wh8*O<P#&t|>5wdvl<=2C0ctP%6N(%}1t(2gG$!_bZ6#4pbu#Nh9h
zrXn06a6R2svC;gQGe*dHylekSBSB{o2b_L>dG_p?T8hB0KaKR%uH~?V294XJL=VOx
zi<QoK!UEw7>&9<)cFdhExgDjn=j|~3s2Iz(Qv=cx9d}3<@iSW6{>%h$W?UY&f+GZ@
zc)MPT`3oBAzPPXm69xt#yGVDroG1}yyG1-EeaIYEE+^h)CiQJ8?AqhRQoq}~Th4Ga
zWy~u)(NTN4u$+;{Q?IC;q5jL7H4Z=74mhSkCwwAaeFq=k513Nkx2oXcq0I+4%fD*@
zo^rxZVj0I}L&K+M4UFUPEVA>zSlxoJ3J1v^KSY?oyqBW|r@qK9UeE7$x*rZ&negJp
z&#Sje{=o6_-29%r4gXhfR~}7e`>tP8lvxM~QHqib$&@KkA|*pfDosc-&q<SHOoo&>
zQ*3jYMP-&qhzu!&OxcN4%DLXY-}lE^=dZKQT4%3Tt#<8g@Ati*`@Zh$exB=ULx`-=
z8CM-`o(K_?pmc^th*52e%+H)ZPe(vUWTLaw;(2djf~qGMbg1i41~@r54z5mCitlXQ
zt$S25PlRa^hb{?%R2j9E-)5FyVxQLITWD;0>4N%ENlHmk;@0CTl?A^y6kXWJ$r+yU
zL9o)&9_<_9N9xtyP07;d-(kyrAWrcrVpbs0=j+M@-=8*%KYwcFn4X5-hN9~PH-x`K
z0s@%aZ%y0*_#g=T_mwsZ1_utX5g&l1$gjo{6fbY{h8{^~XcEWU8HgMH{tu4NHslwU
zoH`SlA!lZKX=LxwG`F~^+h!c}{Z*IOLbmPdfs7iQK~Fxo*@8d)@R7r&Av)KwX-7;_
zQg2H2uIPnHR|w(v!0!M*?{-p>2-aQ_ba|`?tDdIj7DP86Gd8|aSSU+qV87`s#?vPu
zqCkG!NWF~^1YnBNJL|^%D5K!JoKE0$#zgak!QY!5y%4dZo9&XV`o4MdecIY15<Sl+
z>ky#6zvs;e4M=0grZ^@*^Z7I=*dxVu{G{NEO{`I7EzqSIi=g7`)22GbW*7$&1oYpv
zG&O0iUBABNqO_D$9i%&Hmc9f9Zi3kLYO~~J92zsV>4U5Yp4}fH;V<m~!SdIiUCvcE
zde9>76hb3SY#W-QJs?IKh#8s&2fbtJQOxycAvqFI!s{)2;pKz4I2K%&+S=L&t6qJ!
z%k0Lni`#8;U%%eDckdQdU)IaYa^aLC|A<rB{?o4h6U`U+e)9<k1VSs9VbJ$iPN_jk
z`$_0~_f)t`Tl)Su8_Xy3P{*qH-qS=GBRln@hfOcpsGFFXN|YqpJ$2jr^!JAOzj3mO
zI>jrfGy?HFD5pKz>?nV|q||dRy(ydt2k=W>KHuFi8b&!_ZM~Vi(nO5x*;UX1W7Fgi
zVWNd*54^DHH8H1zB-ac}k-67XA)NTsz@;*l<Uw^kY*S%MVL16?;pnjRhWe6oUJuB-
z^H22eqE5J!>y6o3S_-u$s!Jz)NoYp+t6vfF{ytNOVZ}jQD}ldRl%kdV44Ez8s&3U1
zx{{v4v&?VvPK3es3~DQYhbvG-C?Cf!o;UDhE%6?#aA(K$kXpem6pR!9R#*ay*yR_3
z<KVOeaupQk4y920UWB*tWfmpcVI}q%zKt}QKyJ%j_x`o--HD>R0RfF24)l3z`br(e
z`~vqFRW?CmG~a`2C2#$jz_~t6NQ@n%m`XkBvYi^N79PB^ybIbL`4AnWXJ9B(vABgz
zpA1m@SPw0ko51EKy}W#U0XW1&?%5UE^(7698N=?YIHVz}tSmq(Y2HmY%?S(>-Q93a
zLOK3`&rD`YP__i6#341?NaesnZ69==>;}qtH0sJ?BO<P2$Z;C-Rf;a-9H2`_4y8O|
z$(Ev+QtDuG%gM{@5C0(Y+Sz5A9qus1b~`-H2=StNT-Q6%(f<AY7GcLDTYA3=wC;au
z8HP`J3K1|=?B_>(`!XnuJ3qAdHEB7bGgNXj1p#EM{?5oW6QLtPG43-gwp2-d|L=ub
z?fKRuAx>OHWi2eIuED>%){6h_8*6#!x62SGaWcfZBb^l)S|p+=$ykyK2r`5nC|7k-
zo@0XEFPJloRa~|F#~Virct3vp7}Z?n^4ZAI)w*UnAVG(N9<W{*DtKDRP%@4~+7ZtD
z0y@i3dU!BkW@97a7bq>4(9=^=oc;b;c%k03qLP>;_7%%t?Bymi+>4qTTzytSWtYZ1
zoPBN4g}KK{*dScF2r#s({7;MHsAo^=zSRYEJ=>*`K+-CqgT|BC(9jU8zk2OjW}?(>
z`awfTq4N{_v`*i`v}~hG>hH|+@H@?0<l5xlXGEg@Nwz~wmeQnV6XB<q_I12IE(dC0
zE0U~)${;QpVFSgxo48}cAD&;2fdttG72)6?KYu=ijKw%SgQ6}%1&Q#3C{L%$kuF&u
zeierggtGfgFm?<#PBn7wKK{PUxnXL_0aa%OSx4WvYW6in7wW}}osH^sbaJbdz0U&8
z4lZb=gaJ+rW6y%S)sxVIqHO<Ta~M$_J{$Ydv=0IsC*c%9_>t)!GA8c6AKV=3JbR!i
zB&hBy2!(rRqsZ3N7d%5U`fwU>lYaUk$*7?@<lV&|Ka`|TGAgFnr@iqlEXoD|cy}z%
z=%V_r<~K#Vv2YHn{`i|=n^eEY?s#XA(Qyj;GK9#xW9MJV1alXDORLF$wR()-Sv>y0
zt$_-6I>KvV>hq|zq}(4_ULKyCP>K#Z5qbUEwc5JdEm9s%-^LFS8u&c%!ufPSIgv^T
zy>*++>Lza|?nffc=rHl*8!eW9KO<pbl6UmzQR0JRNm1WnOH2#p?fdzjE%RD<N1Es4
zM!sMDpU<3;jZa%PbmeVCpW$c>Wi^uER%)vAoq&M7lBfzdA#Zx~>sKedx@Rb>+~`b9
z-z<ohbJZRKrd4dr%yTjAn{sD?_)#iT5F$cyvTTnQWucv?DyZl{fcdN?eR-zu$=ugp
z5v9jK^pGYt(`jjGP_<?B3*^*Ec#%-37xmBmGN}a2ac1>u&KX>Yc7@`250tT*Zhcg6
z09{x$x-#)lZdNx|XaQYa1TV8oYNdbKdDi&&Fg*hU2I7hRfO#BUXMCJViIFvKgQ-Mu
zqQ$)WWajiHXVm}HUf;sn)p=2<phnNwETu__Mp}YYEZnI(<OBRQBy|o+rykK**M3SM
zWCgmbD^w67#BAu-#9iLJxN*B39ScfnU68~fL2(V@P8#A7r@$!+QTMPc4&Ez(O^_&A
zi>~}B>pD@7G|O^d-ygM)Oh}uzY@s7Y#>T`XBvzs(jQ5v4ZrFN~L<IH!EKjaWcwcOj
zzYZuJFeZIa#%TuHF^fp+j-Q%&=;`T2#Kr4P_T)dHOw`YMjz}c#_d9)7N>cI#l7$1r
zob;IaZR7<~)6zcTL(>zgpnE)U9N&VgI!7?456!0#a(+ERJP;o|z}W)`YpSn=9krCf
zPmejjEJ&{HwBaRnGNg(U1#`?K@H@(3&cCq9xRHL?TcRmPUVs&LK(*D7-1VSP98(lz
zWH=!gt56mO?Y2sIR}qq?SJ_xtTu#+4IHzXA_lHm2R~4QoEi=nlf4UF|)RpgFCoze#
zvmGjW5x-0%qhg?xuN$IPhWe_wDMMfUv7+vK$XUHcpQo1>k3t4}1o4hrH*cQ8**Brb
zLq#cPUF(;<4IERmLxnOPjP9+3rcalf2bxAOy$#c!=q=24`u~RD?pm}Q&U)FQPJcg&
z2e@#lnQBPo#6aV}LEr2{aQUmICQX=@rhVoMh8lf~m@;j=tI+=B-y_yXk=vY}WFyBb
z4fn23TZl;c6lL`5c0j-*@v`MA<*eF%i<|X%$0j1wJ!VDx0{ik+sV{HKc)t|j=Dq<&
zd;N|bJcyba(DX^Bl=dV|I&B>tE67wav9r4$?O(_*$;MGgLG-(F=r`8l4B=WKHJ<<|
zIz9w|3<wFCk7=bpOs|=*_&q)ID}>IiaI_j?hnnW*0&uIj1-(46ZQIy@faZI`6Bi<R
z9G1}iOi58vzPK_T8)ju?-Q(mW3z5%jryD}oZ`s0(W%uYrwHk?TwRLq<04IbT_y0;s
zHQgDSUzDw>sd=RE%u1AN2jm$5dd-yfBy6t$*xUu_=XQAGmAD7oKYeLH4W09mDj&?<
zdeASieE?KsVq>cZr*{kOmS=4kcbL<NYP8X>mHBzufLJsOQ6_rRo6cLPq~e0=cmkb^
zii$ez2>q}TfBy5hySerGek{&^9vco#{kMN}n?*bFpT|CK6%X8l|2#GXuB-g_RodEI
zb!?XZzN4t<Z7W9Ue_zEJu3d2b-oLL3*!!^OfA!<0T+k{4RFSw!?Q-wuUu}(z9N!b;
z<EOv<?n^<vf?b#g=CKsJ$DcgL=e=+!k^wT(*6^oVtRlrQjg$dlvDYpIdhCzP@)Ba~
zp(TDm>RyV)<!yVfK5k|Gss<xMybB+^2P<|v20=ecbK5;JfS_w4r7D8txB9A8)W444
z45z?|75!N4h(eh~C|u1RA_T1ailxZA1WnXV5DmS*S6w4=Oed!t3}yxoD>FPXm%=af
z(fEK19!%H#aO14dTbLB{fB6paQG{dzU{F?S$K<?%&Ww4k+M3j7{A2aQQy9ty1P9X-
zB%EwhoePc?a|%UwhjU46%JFQZA4NrtW02)juVh4-qR--XsK>HJ>3y0(4FOtw=|C^d
zxr>)2-Y`rJa=H%4Wh7byH&X9ML&t%YvbgABQRY-PaLPLk-{byN|K(1sVFR}rE>E%D
zn@UY7^D)9Mai@?P(KqlZIi<c6?iFIh8>}F3l7>;}I~@;sllKYhB1rD%U+hz`>nmo3
zymbS38T$MBrW*~89EmY=tyOI99i}4f2ezU43<fn`1BqO{avaRSEPJPYFs^tq)ca<s
z)Rw`Gp4*Pp56^j&Us+ZIi_T2Mz=sQMQJ&i6pCa<|+&Br?^VEAM?9<2p^F@O^Mt7bS
z6<vb?JqwV(Fc3dloyN8{*v9K_w|TPx4Q1fxh`V>Uqd4x=nYxS*z(@pyhLQtDeYcqj
z7iE+OI^qvlr4)!N3iXxk*G|6-A&=LS^W!k&0%RLl7kcc+;^GHNUKK47EUccO?!ket
z9)6hGC(F6ZG+5;l4NB7Uwl;RS*^Ix<Sqs625Zo-x6|Qi0=*KB?0u=06m(?vvRwH@4
zp4WB)!>wW1cKqU#3}?7A6fc9EXV3|^ziRjJhu|J9k!w+Q4Rx_xN#Jh;ij(WoOB=CU
zU_YP?1^L@~{5qEW6~4cfN1T-K>p-H~MW++yIlQquFX?D$(ZbzeCEy2QlKs%3Lmrso
z72pm<Mn)=fe}OSwog!427~&6{@AjqFe1<>_zjMbA&!-@u!2C2IwdC|>qzzLsLJaEr
zr$L34)M9T+7$7<IDf-^5CsGOurv1f`Z>7#pSOtfM`de&kK-*?u@1B~Qt+a*(@|?5S
z44wpK$AgklNL4zp(xHN?N`CaHamZUvR<_m$GMO|4?&@AWJuMFpMOr$#b~r>~lju5B
zFy8NHnavW`t^h#pDRbTgYtZ(`=MB-|i*Db}0cg$#{(zJzo_?fzxM2(mp^KPAtCPeI
zYOW3}2o)d*dse6u719SuV*E`SGq63{!0Xc0OI#p$OocXrV>yk>%BSqInN&umU$NpL
z$`l`>305@czU~6X#rM+H*1oZ5j)WJrd>iO6<C9HGr_9UdW-TKlF5DmvG*hS_=9gJm
z*o4)#{)y?xJE0!?)!j9|Y*KY4D=W{MH*)%#yUBz(!cEH=ey`%nauuOLh#;8WPkcxB
z5cp+|O68OnFi4w5rs63{gi~AdFJ~vG8@N%oZCZ9cOi3{qy)sn0Qsx!(FZ9!~Im16j
zTtZ?W!qoI$TMslfZ$ig1CPW4##%pVNEyy<#8XnNOqD<Aip)O)4d)6+tw`##*-4I-?
z?SA?4rBrkQl>2CjkKjAA3SYICXU$k}&}(A3zX01KH8a@OW(eRI@lICN>ww*0)xcC0
z_o|z-2#I5=;%^=1%T6`cJShJHE2x7ozMiLI5r@3HJdYcqdL96FBfwLP{u(YWQOGzN
zd&l7diErj!6-1>NOKRqrnt3Hs$AZ%uMw%kxqch4*yCKt``qUg{vVfK}$oA#(Bg|D!
z5F$5j-aM*57OLz#<|*qus!!u5a_=P>xxZ=tR<S}qF_fhiWc>9&69j?ve^2^E@z1B%
zL`ce}@zpEWeRg;fN&rG?e-=*@&k!e6oYJ~)!O|*#(^HZ_&310yIyx(chKG~et*3gc
zH#xf==f}}DJqw3s!5q^doEGGP6I7Pl6{slJLYL!=TZMU!4kT}3KxXfpU9bANf3KmT
zE}qDKQ0;>4e|!pdG4H0aujn}r2O9R5yE4OSa{Jn4G#klAnOjFm6Dkn1XxD>2<GT1m
zLEDs{$Clk}<bGUSFxVV3&w&IFZ2x8=6r{vWBV0#wRq<{sldQ5Hpv;)_h>^MXkSkeD
z&pe0rYV8;(p~9b+%gV|YF({%T!o$NAeU}trO_JO_iC>4z%>(gDD?rw9`0N?Tz<3HA
z?Cp}pnRkyF(eM}B2-m}?s=#&9l;B~efu&6fG$1Yfw#mt@h7C|1X$}pT`!0%H3#Iw-
z$=6S#dyC?&l=D^fSv=_T1=n@UMHQFvI|FBT)J3_Tbr@;n1f#CC^b2`Y3#^KZ@;Vel
zNLGaDjlssKChO@ZZ^*7f`E?saD+7=)QNgXjK%P4{gelYtV&v1OQy`Gs>R38k%1(iV
z&i9-<hrOS4KvY9i>22F|yu6gXzR$2GJ=_h9dnMQH3W&Jf;D%5PL(yLbxR%*;h&w*7
z!ohnnH8mmIA^}h{HK0ywm75wHNv4z_HXVq2hV5boqY?4(Apl-91RNmqp=XY;)u40*
zdL}43YQ>pvkdn$VV)TUw`g$hXR`_IAxq(ZNTwaYgaWYRBg|;}|s++X9#=Mh9Ip||m
zL}3&H31ujE{BG+sjxUpI%g^6VRT}&FH*PaB-_g{7(r<e&A%MCCOt-$u9fo^R#YfAh
zm$2<+s2Hb2`*=z+B?M*$tEFAw8BobE*zZCVj}KIo#I#}7V~{Q(ExiUOM%Jf49#inS
zjx&&te{FwlTQpRKEpLpEKgY@Jxh^-6RbIF@U78R90O%S~`{wm@yVo~snF0I^N~(<7
zCh&K6Vq-5joj|JN?Z8g0`drzSTCWn<MvuEF%Ls#rr&14X=GKDEWRnYar{=nN|3?0_
zk{!TRlX`nggy{ub5a|gm2Zwxo-;*+bN=p@K{AO_$$oQS_Ouv#$9@J;=4}{6hao=ce
zVDTftNRa2TVZe<pp<{=CbmQWP8PXM*OQnN*&#HU!7g)Xpg&``+jEu8b`Q%CG#CK?a
zb7R^>_#s%8H%6nXBqJ^xTUxYHjc}}+p+YxO04pjrJslmU=O-Raf9uXDgMC@T-Up}6
z(uSV`%VpC|DFv4X)d&p))~omRQV~s1ccXRe{D5q8$*~$YQwz7)!2ZJPBpO^<8UjDy
ziHg0U@=hNgpY6U&9>g;=0TcuE3vajHxN#$<|D39MIrPbKu78bwIx{=FF62&WlHM>K
zqeJGv<bj3&kO=~b97Mf>Q;38gi2a_Yr4P5v!IMZEZ0=Ox%OmhHTwH>nI9BkEL+58&
zAz5>9NqCH#^>4}8N>=~EXCA&Uu|<e7IQHdB7<7o~2sDJR)Ap~yn2!Ux9Hrjhb6+`5
z^_Q&%USuJeYuNaG#Fz&IircS#c^X5mc5w+*S3wL?PB9Y`lY^q6;qX+sS0q)&7qdI5
zbhLz4jI%gqCe?abV9lEIjwb*f2uWYQ{97umA@CIzQBvZEy|NZKOin&NCirQou{ft;
zS{fM@b+q4Xu<G(Fd%2m{-l(>((j%JAkWGwVbA0p)P;p$7<8YkvGs@IHc`|8n_WSo+
z)z#H})u#?zA^_J)_^Oq1Tbz-b-0Hq<uKC8|cQG***COFgMzUN_*PQQaB)s<Fl;{dN
z5z((_>gObSl?$cTuctxCyZ}hfx9ySyZDi5U%f)pKjP^<F1wW^IN&qwW@3muaYc5f=
zZR2&H>E}#@(n-ISIXD6^T%~6sDHTeObA`_O1hYC1n{$Ewf#((Rh;K)(v7|w|oD0|e
z)8h_ZP#N|&-)E4x771pxZmjukN|zQkoeWrJ99Z|bk40=V4d7{~l^W(jgub-=xqi>w
zF5BcTTdA3sM_ku+j+V-{0aNwyL_F@)j`!3`_#5J_^_*y;cu`u9`@9G36+1XseDT=U
z6IFsFgl%qq0SH2doVC0F4#4tYi~I{nD^mvAAf#P8Mylezi|W6)k?ESj=d-f+4}W#N
zHKA-7XJQsAJ7Zi}+vR#FVyqr7xH!>Y<X=Qp<SKa@KNjk6Ho-qrPmo7YaI0F$S=-nL
zkK_y+=U}l&_yKAtT}&iD+Bc8W=;6ZoA^JbmpQ)y%=H@yp03`ho2$@gOK?EG{4P4XH
zpalp&=v#|y+46GeS3{VvbUn$IVV?H*%{R`4tP|B$i%alW<?UE?%@0#*#kdSPe)n?Y
z?yIr!@fW+)*5y!i`NNhfkZp@Thm5rpeOhokPsw!No!1@YJh_6N{v>80rC#%rWF71H
zoYXyu<V&xq0W5mlvs4eESUU!RWRBq{qo-b3+Z#4@g!4_ui`E{CijEFUH0cTn-bCW(
zLSC|W)#sp3ep8turW4F@>AC9)VPWA7;^Ki<mcjLORb?0^s_oss|9V&$J3Lcf!(>?1
zWA<6HV(=Ob*{%I&TG2zszsa1^uNPzZGEi||VF0Ckdd9jiBR80TaKUoG>Wn~$PFw<p
zB5x+zD{~JX9@FvlRl~=oAs`y|eD-4vNrU53)HF0?7;UP`FkrV*WnTd1jxRp3U){7+
z((t@&C>3p=eQ@m@Ut2rrl)6(#i@Y1}Z;;J)*g;Ac`mhadGyM`((UFm7I@As%sNM$A
zb*%E$K<Vz5-a1mvJ{0}n^X~37$Vqh=5^s4wbAcUo9>x`@M0P!XIFWu|Kcjn621TG^
z&XH%>GaL)TPBuh@iEpQU+`G%AS-C98x}~qXpl=?Gw~sYYfsX{0cL^KSy3>8)a?)E_
zhn3DqNp-q`%Z7wr+l-IJdJz!<XYK_EGDSem*zL>y<bwfi_)ni&RF7}mym@cjrX{fc
z_M!EU`NI6az-4@`*n0BjTzUcWz-#LBycahQ&w8MZ6FyW1EiEl_yyEx^MWP)Bh_MTv
z%YQD{*4IA-bJkOJS>@~8Tpe32JO+pGrsLgti81e^!!4luxD}SB>+ijEqz>(Y*G}@A
ztoh;xYM09wEAhf3MYd6jvPUvH$h0`#krAfrw&CWjTS0UFSZTcQe&-n5v`t#N0fmhU
zSqFYRv%P}d>}}L@Y*MHlgJaT>C)S*+n3-veT{M6$*I^_fj<rBf%+Af#KzQP!vs$a^
z>M?(+F$Vy-uB~mB;w6d*6H@awvLb_5t50XBvu#GgsvU!-JlJ<ym{s`Udj#ge7mk~k
zcL)@145Xl&LMOo0Q-5G7NrmopH%-X>24xRg0yaIzQ+{}rL)n_(SspIl){j}Dw)Pn|
zg!p*DS7<tDY`Yi44&oP;57VFZl9H=Pubni87PaLiXGk%;n^{7yNfV`a6VVq`63a+W
zpM;<Rf@M5d5cms2fs4JDz@Ryfw(tY6TU5BQ0!@-RdP_a}@ROj@2uYp8=yU|JA?&KY
z_-?oYz6MW)$}1`^z5)gC@fLQoOcM$(X@WxVteeNApNWO#hQ9dq#6;oV;)_A>)&2nG
ze@#qMw$8jXab+Od+uQf<-OI832Pd341qH$3k}DMG{}kSDXaNLq3dTYTW5aek9PPme
zRWASeMM$Q<3Alaxs#Y>bm;qoPdioI1=K3+)pWB>uj?T}|*HdSL1qOl5Oqv=R#2MN9
z9@!Y0wqtpd6EP(vC6fgxcX0CauS|M)SRTW6+57rS*|JqZ&yISQ-~H&**4)f>r9~t_
zU4bMiZGw79+|5Z+T0$z=9PJY$ck&rwQR+a0N$CCKlnhJ>)`C!qvae7`11Z<o*!V~x
zUIM);*?=8HvA}p;OjMK>SgY7m9di;$Ppu}szaQHmH;}`KKAsGU!2|hyakS4P0i?1|
zRKK5^UfyxYjL7$zw{?_}afT>E!JfoZn+bx>ZJ)NLF*@+dAEU8upFY~{aJ9#L>cmvP
z{6?%tjB!X<GSylW<<Bl0N)qI6;$ANtflO9ZH%p?4f2K-Yd<Ny)L>IGDnIKWiAS&#R
zFR*&eA^D|8nq*XsumE~IY<PeU7{lT14j(j-GOZ9BrS4yZ055LN&N@_l$C1?_Y*}Il
zeOd=zY&*<e=ouN2=onE-Yaxzy6@Pxf0K>W~D{9~e_F>Z^JMD3B*bcFMFez7YVk`Fh
zFklUE35od0w)Ien{c)0h2h|F+vHRRPagYPkp&d~e-Q@$p!Fz!GH@!42pl%d`7kGd4
zv)kZF@p9_dg{)liGFi8aT2y*)9!}TSG&bhOGZ^`EtX&%fIlv(hLC~DtiL1k7JJgTx
z1Wmkxoa6TN96{J4#4!3k2^o^o%fA#5vy-V@Wja7O;jytn=pcr0Lv_G%*ZpK=X0CyY
zY5;b~e1KI-%#I7uO_yCJ-?E|+t;be6a%o^>Ri<iaMn#&yegT#wtLBw|_o)!C9_-i+
zGp7MTRx+?WSKmKrW5Q3SMNt)`!`neQ$MN|=5xO~R&!luuQsEpcDlN@^tk_Ny-Xj&e
z|Nd9$7bK9t?Q%hTR|9lF7+dnqIJ#iJ3wo$zG&Q^#s(+JhAtOoGfxFtz&CQ(zCn<FM
zWOjna<4X5iBfJPeT{Kk~OOtoe{nlU3!qT7YvB4^C#M&tUTqd5uyktNy#2bT5CO}V&
zRpc;tnVNC<OFl9?f_(h<5w88;|Mq{OgUNR%AOBD6^FKfAfBd-l<$h5*szDQRhTP7+
NZ_fekT&<JW{tH6{C8huX

literal 60234
zcmeFZ2T)aO7bSQNASx&sBnl!qNRS*92_ga_2uhSB86;;=M52IzfMf+pk|bx445H*5
zCC5w7arW_rzk8~ttGcVFdupmFU#ZV~?>YDT_P6)iYps3!9?47NTq3)KLZNVE?n^vI
zp)ed#sB^klnDBpwBR;ReZ<xBW(h~4H{OsQ=_kiCnzP$g;28E*ZLH;`vJhN_qLS0A6
zNZeI+j9ngeawO<IxUgnP5S`8XHc$DH*OKRRyz_Te?v{MVIAb+&!57Py5li$e^Yxcj
zuLH=_O2VIn{0g}ALGGCWfj+?{Pu4so#_(iY%jlo`$DIsw@<Xg)FS>XZb~lBc;$`N3
zMme<o<YBOE`{{*6bKdvgAI9ILN0cbMe}9Os5>!b1`*X(sq89BxKZ&S@^Bn)aQ1O+n
zXXJlA<_>3#?7wd#{Pgkn&41oTd+E``HT-|yhrvki==bmY&JzBQUyktn#>U2TuBd5Q
ztch<UX^KhuQNLpN4u!MZ;)GhaDMeie=9Vr?-K=c?`)Z8eK5ROmB)$Y69k~`8WU6Ga
z&aqz1OohM6S%ujAm#=&I-~OJ;-algn2*k0lXgYHBq&<A@{qx1O{(F`LlSxwXn_knE
zch|Tv;l8CGKE$rAt;HoL4`>V|pNcY!ugQFt|8lbaA{Na^Uu0yYPkp@vHkB}`!?+tC
ztnH&xYXjSbE{xUcQ&D!UiZmwVYuD*>)#!6gtWDIRPyr2|@DAbAqs=tUa$b1HTCm5_
zIgaWht{_UG*>CY-3<|nkUu2Ai3YZd;lJMZVP1GI~rhS>O6B&odzdnjvtvX~EbXa-!
zBb?<1E$!Le5u2-8juRMWV-?qk1CpO^J1@b%IPQ)*taseIO2f>2DK|HFelVW_A0Pka
zQXgCJBH3+|4`!$E-O5=rb~&em8g%bgyC3VjI*d6nuxnQ>+f|yh3va&5^cbsfqGCIo
zPYV8FKtMnc7okLmak#tM^hGADqsUxcIrAx=qM~BS>B%9d<Jxmr70lAo(lHBvN*b?s
zzx26i7#Nz+T+g08vu`y@o^yKK)kOMNv?)HqC$v2|SmLm1qIAGQMQgQ2u-QD**40hK
zx_Z??UE%cPSW-nLqP1+O*pj1_;pR=h01^&=wL+89Oox#YD{)0a8ZX=z`OmN^_&W^t
zXMe>6ynBcJ3mqOC%c@pjG+}>e(wE5;8XC&ezr-e~SnqMNNgc^~4I4A$<3~noYwP6`
z3)7rhsUQlbR<n_k&V{mVLGMeemWEv1+~}RVb>27)S?a~Yrnhk1kGEAzg9PmsjkH!4
zdo%3K<HN#~zPxMD#gmO-#k+0VXFIF~3qZ@ssn}gsxXdl7xV+fj)@HA6`Qk;&DA&ro
zTm1a7hyPz;o|ZX@HFn+R_`r_GYyg*pU85tp%8!5{(Xc%}T8e^QtpE#lEMZnLnVip}
zzH)agKsJ)Sly!H^WmN~Z;hS2P<8p4(+AqHG64q+Nb}HMYJ~<`qa(i?wx_CTjwA`Vb
zEhaYh-32N~lzNd_r*d(zH}*A8zH!%XgKLtC9r=a|uImjXWm&4Ldd+b?J<9b>O|5Pn
zg{G>@!^KyLn3X%+G$9}&x8p@zh#3^(dkRJ%o*7avT%qt?TU(<wh~Ur;az8$x5fB(O
zcY{4e0;=ldz%(%AFmh~8MuuAN@55H}?&8>WZu21?eM7@@s2`CW!3_Z<Q(eijw_<)h
zBE;}dyw1RIA(BJ85%z6;F(ZeTi>pgVbE!Y4sV7}&<}muUsV;h`@V<hAPa-3{h2Q;%
z|6m8r(yCGN@{DG=eXp&+wrNhK_wuq?fl2Qrm)#XfdwX6&$-5R7?Di`oeh?)sd38Ql
zn>s$<%hjpFl#rCvsqw@pu}70-s<6N>IFr7H32rJ8<5g}#JIjMp*2j_Tn&L6M=F@DH
zy1KfzJWgCSO06-71CV=VVYxh9Y$**vF=HJkXjdCZ&NpI_z^9V=^!5JcT<dNi+3i|5
z-v;C})6>t}<3)`6GOxYzEb0k}Z+b7(6inST>M$OdZ`gj8aiBdzHD_l&;!ON4vOrSq
z7w=rf99A@nTd`<v!D8*Z*ZbnJxAx~~QwI>U)t1`Ky^o2xEUEZB_vy>2Mx0FTYAU!?
zsDTe`Dy$WWp6r7lj<&E+;l{s{sAqh&4{li1Vo&-F4r5W*y_dO5oH4&>d3ja(dcVjJ
zL`J$X(9sQO${%+thzYQ!R_Rl}BIVTe>K?xMB_)Np^q~+tyF8q&IvpoTMTugIQT;&@
zEyo(;3jai3l`OTEJT~<r+fp}`j3>g|JxX~;ziZyaMQle5nh`(wsvNSkIGCUM?J2AL
z)Z%!xM~MB#EHREV<vsC|D#^MOxfrjS=kGVg4(4y<^d<Mgvdsv}(TBm_vLk1^Wuy1&
z6Pux;7(Pp4^<oP<!SR$eQJ1+m2aSl`IW{s^yZCvhcYjx@a65_`a(yl?uIVjUSIuQ-
z<b-OJ+sjpH=fA*#R2m!M0a4xwVZDD6=P+hf9t64W_f)W$)cyOub^A{;R2sg&K8HTp
zsk<t6ou0l?XaD_s+=o$Il2zJOuBF{}3H(-Pt4|JCP}g~Q2*r-K!dlVXq}Y2q!<IA2
zaO3U$$9JFc3fV8ePZF%FtIO4I!6yxrO11hGC#2dxd~MziyOhhYjly<$Kr!f&+{1?j
z<j<C59Y(BtD2z>bV{)OWM9vW4<4<puSWU%J<phf!Fj6^9<E3tzV`HAHI#^`cKWXKt
z?jdvb+w66EjQ?-Gd{%Sb^1ahmr}WI0s<zvcWrlW+XL%CxVu#E5P+q-<4IoR12voZ4
zT6{@OEoVI)GR^r6G0fg-JKu3vUiGW;MK-m9m(R4~Sj*gx1zCv$>Z~E7Ms(*?pOmGX
zH<pk%?|p@md7N6<u>;N3@VRPyX(^|AWv6TF+qYX4+kNU~S=u>z&3H8D8-plWhB<|W
zDIhQ038oUURreuYbRkzr5FIrxt*8+G884z<wc4MPz`hh56eKlTW_Jd~#KhFx+S;A0
zRk^<?ygtJz^;e=$?z;thNiP>omnt1h73gs^Mg5W2oNQ-xe3f_N>kIP23#ijwkJD7+
zC`=r(fl7znHJ;&PJ<W8Ltms&a?v%jc&XBj#B(rmKLafD3n=b^isGOGDU|U&JgQ>-`
zodgupq(9iNj%jvt#R)m|nIA(uzSXRDr-W5%yg==W`t*D}Uf2o$s_5RQeomJMquEP+
zS#^*CDI<mpj0qr7pguvkq-j-_4VP_hY<zP+c78`CLS{Z(B)PrVi$_e18P=k|D`+$O
zPNT7Z*Or}KJC31B@So%OgO=X$&ClcA@!;*H{u@w(Q7?CvpH=M7#yHM@_IZ@6D_LJ(
z|GR-iyS^_=Jub+CNc{IeuHHta`IpZ^m~YO&6~b2A6U0{YDk3^xVb+~q=^Pk%DraSs
z>#(XNa10fh7CsYd51jrxuzdhfre)(kER9!JYqX8-5c%NNveTrvcf_(3kJ`sraL!v{
z3qT4cIa;f`ihAX|y*M%55>|4&Gi(<yOb`+hVt;k!aJ`9|GQ#Ebcz0%NZ+%L$kICyh
zl=MfR#W4^#L+x?IX}>)18cN5<UoWQT=7uYKe!j>jQJ)g35>#-t`}c@SK3v26EFUL0
zaj?C#cXGJenWfHGPG_v9M)smTK5z#;ob(`^`6+;;keSQc?39$0Sx%#{(Ba*KgM;j?
zW#oZN=1zu$k|9Z4uRW*LAh+k`=ZD0^1dNPmz=ii8Gt8LnzQgz(=CVd?;i9@L^yKp8
z%iXuHSO(KLaHf3u@*CE(tZ_L#<c9Q*h0~)sG0EA~l$0NxJyJ<{ltT8l&&C10taZt9
zgb(RwrMkMs?@f{dib8&v13v!7d90(O<G7ff`t8LpGWeEA;d)wb&jv9_M?DZ8A0MPu
z={%9&E}E}i^pdt$Gg0N&&dXaUi&e@c4(FTxZl7P82?z*8M{G(y?u^lE4(ZKMO@a!K
zx`gitfzXt$lxiESo&izcd|@Z<uTonOlT$^q5x`M3&*kU7*u(TNPVh;U<!})jd=sC`
zB<$C@xd~J<i2M`pV9{u=udfSQh8T{F?iSIt5mW|q{&nk#dA=9NxV}HX_36d0==q^S
zmf7}%;MiCSSI8OGCoDM?x_r@GbaeGADwpAIdJCuks#u_30{oiCtvnGI7hhf>aRo?Q
zULVsJdGOiVxzT>La`(sX%8H(u&CCy?Q9Z@YEmCVbdV0*(NRG(JRYL=V3E12wSY}tU
za&8D&y{4e>)w#AfmejYnaFC;2#mok7McT1F{dPxwcd7p><o1T@lWmR>_d~R=zrSbA
zbH>nHm9G1F#WBA>MEFFMlE2pKn)9RjPtvPDZ+VT7jLe@?ukn*i82yIj;SM^VrMt||
zQ~<qv^5rd&`^V6}!={6}q+n6z)MCr=m8SdtCcR(7V^0=R6L{G2t)`^3-%h=cfYkM-
z=9OjjG4Va0D;SS%Z9w{MjE>mG*miS-B(LOTIdVff==#l@7^p}2FMiQp#btfyh8;*P
zHin+>FDT$C?_3$Xbn)U{N5>M^gpiO4`zQhi`4YCN_RTLP|GC{dxZS>QI`;(PqN7dt
zaxBNItesazN~1#+!|3HgyMIOBzSrPSWarz(hXhk9fP-Mjm|{|TIgmcB4<J`K2z7CZ
ziBUrXuw(c1N~xfC>_xb$xcJ$|ch}CL00JWDqR4!BHjGrW6kRmjk@<`ph0*e2Si}LU
zivBgWi|X6WkHcD~?JKzr+gRmG*wc3#KHu{hiBJuGWS_zl%g`Y3Z-T;y1a)6ai;7-8
zHjU|8Ojy_(A{LeA-M5yh9Vv3;%IS|Kt5%_^w;om?*c93I)!vq|E~qzBMm=eGsNX|{
zrt_UiKC?b4nq{^ZEi2Z&+jU*0L!^<6fx_4oqY`%fHhM3k#|zhSe<spub5>5XFKdo-
z`oaDCSfT(1kixQI30SXNSofL2R8w$dcXz6SG~5y-3bxY}`4XWddGW87+rOKk@p21&
zzuK1-6AKl;A5HaMW#DLkGuIxiR%~}LDa@3v_wFB*{oIqU8IBMU()5g$^YNMuyaM1=
ztDB2rypNfZnmQG!?S6NvF)$<|0uu%OhIDs|9D4C04o+ct&O8)E|HGB?s{o-xu4+QN
z0|8wJND|F%XW5q-rJ0w`1A$QU^-0F_TZFM^$$8E0XlPJW?M+^e6>?}}k22?t2>}!i
z`RudJTpN;Lb6-w~Cp5g^in?Xm$GY#n(3Na7n0FJZ9LLm;_IByVkMUt0eFSV~=gZtH
zgJ{_372?et5_+>W%XJ6y3=YhErC@bKnrh1ImJpm6MS&j3O&YyQ*|xPZsxI%bH{nAn
z;>-h}mXTm{e}5l=%kds3PPU6ZEf>@kU#@D$Kxlu0!^v+o=`|7oO*Ms(J+|B7PQzxq
zSWdb;RIQu;;wuc1yLWH!@u{NL_6i~YrP>8u<8DkUo1C1ihwK&C*I(u4@{E^>sRhkz
zK2o9>0f6D#@P<l8FMB-T@yMCo<-r@`_wI>U<OA#~32Yz-^eF0fU=(Ed;{%iZDv_ks
z)79pX8wODTqlu$(b~(S;d9+90Zq2R&z)PGn;cwjhp5{ui>G8pKbVTt}R$5U}EgKgc
za^8nLMjdym05HdPmyM#i3lRWsgAGAm;Iir;Kj+7BqVNwyGysSw0rhYVy5`@04DlVx
zRgaS&41Cjh)7n`??Y4zib$a3=w@ZYE;E<0O_Jdy8G-z-f`VQ~uY5lF`L8VQud*0YJ
zW0fv$q)%#^TcCZ>o2>V<Xl2(dQyy#YQ?KIpE+7@OWsG3gWFEhIjq7}Z`$4*@o%7^O
zq&E8oUs#J5R5??%F(V$`;UaV2;9v*!oi|rSzmsUYzV7IF6g*{X2pyfpuBN^|9W)?s
zYTjHh%~oyStk?cGnS5iOTSeX1#v$YR9xQg^YucZ!16XPg(%Lrwc^Vat$hS>X&7p#R
z_cgR^iO?A_s<s`|to0}<Oyo9E)xr1qX41=SHeN-Ev^Q`m<QpR8*W>gAhzI+NW}i>K
zs$}_xv#3tO8a&O_#eme}J??&p)6&v{g@e=Jwma$r=si&>ReruFJ*+}3I|rKR3OFB*
z0J1qDo{^Rxz?-C_BfnaanIAMle?DEU@N4$f>Wv1@FOmtOZjY*5orHG=^iZz=yAnl3
zMSZ-b<H^2VzVZFs)lX7^WcOucLOjT!7m=13`1p~OLeLfqnz7n`ZI3`G*uUZ4eEt0H
zW~gL!WNQj-Ep%V7va+fgIFG_8R@n#4l506G`ZG?51deRYV7{RuWS;`dajIaE9a87r
zmB6$#MtuVVC*@*@lIoy;%H?xHS})v_E1rKhPw<;?lR6LX-!X)T_uof`g^&bMiTFb&
zk)sXF!Om{V2Q@RjzX~%g?c9HZa!bRd@mh1h{fDNKkeC(-`d>iM{d>Ltd3<20?L;lc
z$A|RrivkF~@rk{6iH!FjK9qna;ZdctUFokNt;@u$YYru6K4(%0z5eR3I(94S;XEX>
z>U&H@3<<9I^kEkv#y4e-oeM*9rm&TZcF<kP0d@OhMe0xjAJP+Ox$hfT*3!{3hh3o(
zW<0clFg>~A<4^PPa8k%&#j8bM9D?LJEGWN(MDkgJ3WM*k8{dpNX%Vii1Xwd%BBHnR
z^F}=8Lxdbvd$cOq8h)9XtUj%mXx=9z0Q-1^A5=CC<RP?=!Y6xEPb-~oKUPwj;T3Xz
zmZjq1LxJnLK2T~k<=r}6o!<{B?1<7C54whX?(U*g?t3~OK95<&u}X2EtxHqr`z%c!
zE)o0sM;|-13~XHO!}hYWvUR?AH;`)q)7GRD_3qs}-MDtu9Ie6(2H=p|4uQ(yX>b6J
zuJk9=Ssu$szJ$3p;l1B)xFVp8I~QdBO7J-G17d~*X+vgyghRl-E-B$JuoxxFso1!5
zayWiE35C&KyEaS3G<T?aZ3!~q8Y5(Ae}F8{fe1koS2VA=KeQ7N2EXH7R%!sv20+Df
zIvPx7yo7*G;CVhnj{qpG78<H|#@#8U$JiZ0DFESgpjz(jR-Xm}sg{uTB!d{j9NAyn
zm62=OuIm_3w`MzcoR*-dStq3TkA8i^k}4LzWEZr!Q13@zEy5rlyEf?j;GCTp`%`=)
z1LM;(uRBRN+D<W1Mx$l7sT_ZwSsp693}h!$`b$6G2Yh$$vT$=NRjk!sKKp7oveSqV
zz6K#eDcV87m5-2l@L;1mVy_Rlq}zod=-ZZK!hi46V5Lj3bdx_inbE)cUa<|Jk88vJ
zL@Y;?^0{BWd}%fxC^U^+*<R|EstV$Mls@bL-%E1VW!M5LB@wFr54|Cypuo|$9~&B~
ztJ)546%M-1#wN$kZ9RRzcxHP~*kSr-6t{gV8Ssj6aaqRXUW`U{P$G;h%5Ta>G#juH
z%OV?)0Ss026p^?ulI6b^Ln+b)7#qD<0dbV3U0v0BPz4DU->)TX${EO;n>+hkyW<|M
z+b4hrH&y{O+6)zUEm8D#!_G7HZ_Xun9GHnD*StP=VY*1G!m)FFVm^@-Ek<)Ti9;*)
z6o<EH^(7FKgen<@bhS5WnR|b{_Uvj2WB5Y_i->3{IYB5eDWzNooCyd&{>TLY*qd2Z
z7en`>b!mZ0n>l$N(?0CapFi6h{CvR;b@YK?!7Ji-O>I?fhr(JZfc~&9UR=KmVG6B^
zfZMp+?mlPeWCpa!3c(zeL(TnGn9L67CAsosfLahe=TYw{g^C={M9@0B#S3x42BBWH
z=z9*Dc_%U=ja9t!B2zI!RUz0m2s(GB>^or*5#CUXbXUhJk#0FQqP3;vuB&Usu<XF$
z*1|a`u+W6<3)5%OKm3S-?*q+&lO_qCq72kYN?koY1cJeGU4tsO?Qma0!o5MA=lo|t
zfr)_o?X@wb1IgY(CqN@2LJ3`!BH{G(^zV^Uo2Nx)*AV`=$@h4vUF`JyqnAvNAfx!x
zIh^_a{CB$ecQ_j}TZN|m*S%gI3OcTRIz4MY37Zw!T|DkyPJM%^azLso*<u{9&%D|$
zKom?MUIC(y*tCm8M_dziElJsYhV>el<R!8kmZ~FRKsbAQQ^99YfcT|S<>OE&D7C!>
zuHxdJ4_Casy(hyIL~8&U=_d}D6w=<fan9p-n*<?ZA(n0k3u~}j@{nm3Z9*6t3<7=@
zVk?G<FSkBa-`J?zlcxBz*n$#DvJd3Ar&%hD{+_^+XKI%Bt$bYW%^)F^v{D-f7Qn!o
zkDdJr0F`@yya^?1W?CaT^_y{@6+u^W#q#rKhliAcw%=iStfrgsM#}6i|3!@Q@sU8~
zZ-Csv(u$;=#&M6+tgQ8;w1W5~iD@xt2$fPEo<Y5%5C|1ZBT$TL!mGF|h4mUx)eRvb
za@3<7EfKS!f{PHVtdDttP=aNZf>2!F>Q(@{?gUu63l9YKtGQ!-p}upRpYDSe;0y}x
zO*)+U$q|LzIwU|G)T87FL=sX`2LjPue&*BaMLXt$dCA#gpPsQ2JGGAjg3#QwmP%4A
zCf%A`YTrZ;7q^yOz$SeKJ+clky8O2DxNQky!H}!UHQb@cvOa*z0$wYQp~lDegi0YH
zEj>kjy64k$L$$Z*ZG2Pn;cE4&t(L7VPnkX1U+naV0J&{vXTi|0FsqdjfgUJ0_xAw`
zKTHs%yi+53|G@)sU^i!uAV<S4U4V>z4{8}4tO(X;o(REe$QjO|O$B(z`l;&Er=*Mh
zIl)Mu3SYDd`jm^PfjooDC#$C??Z(*2ca4Rm{hCkXT{mPZwz_2bZDz6EPmdjVjJxW`
zY4Gs&aeQuKMu8Hb2MGpsNpK%BkKLX@M+n?Bb-T!J?CAK2h+A(bfjtmpL7hp`Q*A=4
zAFf`D60k`bzEI8ob!mApAF$b3G9IH>zP?yKksF8@0L`oT=Ik##sGWe${^WW0{hJn}
zWiu}|n}R6AmJYW2wa=iSLFCx@6f`OND2tynPQV5ecoZn`7S%=oBOSP;hHn;`0Igh$
z^fAs`Mg?YrT`M|laLj~@EJhbQb4GwR`9l{KTWXIu&Bb9|zFcQsJnHRnyrjK%wAoIn
z6|EMl#~>hZje!2)cahzZH*kx>Yv0d(6trXR>gwWYT4XUcHg0ZiMxlVOYFIjW{P^+O
zpkcyi&{0aDS;i$M_J*UE1g#IEjfH&pFm3Hc{OCPusM<pe63HvbIElIq{!sPAp*>u0
zB)3Ee{VPj*`*R6rP!K$k+sh-R1jsEzj!^^#OZa%JJ367nEcYqG4q{UZ62b>lBNZ`2
zg$<jG=YF?28$j$!VJ&phS7v8sCWbAmC849lqol-vBnFKczeeK|-7h=^Arbs<aghy0
zBo$#$^o$0+(SR6%AQnW@fz#a-#cimO-K5lDP7(trnpLxmuwC?!)uJ5DixhH%jDZS!
zTf}^{uL@4=OMdO86E?H{Y|Rbnau61s3(Sm@cITXQii*s;zFY*F<gGN7lSI(B<AbFf
zO?Fez8BUIzP<NmX2GBX2(@cI4e#>b?AJA9U+vAN^jt$``LA$S-)~aY|WnS{513nf!
z78_XwJg(JCgjIpI(WrDL0tg2!%X<&gj!$<(+^4)Q62vyXkBbXL6rdJ{1PSPsk=22-
zk4-H)f;Kde*$L5PvY@73vmEEa-Ax!n&jj%eUqC@4i}WL)`vgF|(6X{(12-W7yTWNZ
z|0q+da%jrul?f=LEMjkfE68#=mXJ6jnd-9tn5i>ITg)lxfZBbpX6ayLG*<f<<qaH~
zFLVY%Zu63FFA>!PlR06l`F2U|+w;32f{0+!s-C5?4$DyP+973Rl!k<1K;{x;p^mK~
z+y`R+cmY0L321<}fmTdR`{Y;euainY87vw=9t^E+fZXJF{c4`$q7d!GU-<e>4i1Ix
zBETaWkTP2riUxo>^KWjxU%YMb;svpv(o(L?`lMv;pC(&cO3EK#M`>Vh<j%?{%hW!o
zV*Z-Jy(UCSQh{9s!S4GrB&pl6!cLEQOnRElDFGejs>>gDL@#uw1^~&|31W9@YmRzx
z+suyHaFHCO{yGEfHy5tjAFN&8u1f*2ibg(`pXMu&I$wf7XA#tR0Vg`SD6pVW0P?R~
zQynBHP4uN-{=@9Nr^l-vZ(H=OOCi{8;<B|ztAd8)P0Ix~fHS>_O0-80S+stg>e%?i
zZRooF{&uBUJ3>~>ezO>^TS!byoSsX#0V)yuI3Pbwz5IPRx-){%XD@`=mE>8B3YMOn
zyKse{m0PzStGu046}FeY^@YCv9xHuTTf7L%QnZLmQMWa8_Jn{zXnA;)m&Yp02bMN>
zXiUdqlf)gz=N^geb@rMr59D6yuXf%xDRxU=87&ubYu15aip%Pb5v{5|OnF^&x@E$V
zb@kb%{UIW07jeulZ`Q{6WDY)z;gv(-(uet7RlkwQ6$oNw;z_N+Em8>!i|l?o=g=>p
zzs3$<-GNTsYJbDPXX$bO_G}ESnbvW#+wbqMqXorK^?3%Z%Y8E$=X3ZtFVc7=GA06u
z&x1uYT%L{j^}?!O(*c$Wc<w9JbS7xRv$)VK*zcb=-zG83iZdct2#Ny;R+3c>VkJb=
zxN&Ax#QXQx^#&pL<u2vk{8UiEu2J&)TM#fGM%hz9O695V01IV3HrWthaA9aL!*zc{
zo<L-g*J?Lf)UB*eu&1d;Xte_2UMNq-A5o_+8bC#oH77UrQ^KP0zDk`fpkkSDfR-!A
zqNzu+1V^<&E3pq}+VC!P3zD;@=6uqSZO)@OfwL_(khSsbCrOwyNpRbV%G5r7dko6#
z#wsGtJ@Yw`J}Z6LseU5ACLhfslP$)=(y9}+x951~4k%&8G8o%C6e7+&hMdORAeyz7
z$tQ@S3r3*5n_OQ<-#31+Mx5F{A?Nw%c&f5o6_id2D%qQZ()I=NmWO*MD>0ZuC*2v9
z1$2&;qoSZg0uOYXZ8hWkD&%H;%IuQ_=*)$HxAZ+Y_c#adc0Ap}D^Csqh-Csu{a_0S
ziHu}GsI}_zXK+FFu`kK4wUdO?_4YD}KcX)#lt45MXD@$XQj#z+`3j6Ga+r~mh44OY
zd{GZ+MMOp?oPkSVLiqy76fnQQc2TQR_s5SPq1B%K=}OYmGczqt03O3z5w%Q*!pX@g
z5eh974x&le9a;tkX-0oqLP@-9*RJV8{YaFH;mwPOjpWY+uMfBVaCe3(2NWN=rTnL?
zlc164g83m4u$I<M$Jd^n)X4Fh$qh?L;J895NVigTXz}a?EQ9=RNY3^`w{+uY16#iv
z(D~X^?gQ;41LEx^$V$Zmw{Jf=0_>Cs5V+Qimn3}(xLJENAXdIya0`UQ$Fsvd!NL5J
zoa_g*if?LyyBgr$0X8wvyUR)6NhN*c)bj=|26@p_R$}B9|K!Fveyha$6wqLQ*hJbg
zVm388gl#Oo3EjjI6b2+CoMpWKm?%gRvf<Aty<!o}H+NmvYA$e5N%yq!Gb^bLHEYK5
zzQM%72T)!Lm<S(sD-Y+_i+p~UolKxF3o_>bLpZ1f3yl>82r`k9kukq$i)DfkehXd;
z<ffrx!~2Ai$Wkk$a9>a^&Pk#+FDO#iS^Sb7p}3PQP_q=!ZbJ?MqoEOtx(@WZvi=EJ
zC|F*3cB*A(suliNaU>P8&*Xpk`&GZ6G`R=8BR4m<q_Xk{)OCP;Qw6c+bS|*SqkZWo
zRt>$q*Tx#B{o%@B()cEO3x`U0V1~>2rei>z>P0Qf1B%7dBsKhPVAVorSe|^PBW8Vi
z9a0SI#^&bRL`Eb4DEMFA0S-zl0y?|Zkw$HNH+_-Az2sy|GOR;|_8sefl72lTE3wWs
zG&KbrAMPUlm1~yr@<IH-a6T=0`8kDJJK$brT((p)!Cw*IJW=N}<1-9OPNHmFJpIBI
zYSHCyRQZFfWV~jKtpa3GPa)QmRC{|U1EG}{U`=B5C*{)jW!(jdk)O36lJS{4!t3<}
z^8KkdYcdQUF5)#7acD2LUK|JII5pQqr%+82j-!SJ@G_M%2QPkpoLCnW7O;Ov9|kdD
z^|T#?EQ3<G2^R_<EwdZv%(bn}A~VaJiR87iG|N@`LZYJ=L1PpU;Nm=Y2Wp+OM$@Oe
zZ>BfE9bhFWZVfObZv=V~^sIrtzV9U>W-OFEK_{<jwuV&{h2zek;mpy-OsgrGla6`{
z+=t|Bcm%ICNouO|);tZ$7fwI1sgvcf<S|Azq)d6~$jdbKug;v)e<mH7H9S-dUEP&P
z4vTV10c(kD)z&P^o|YS^=(YuDHb~N&NG@t=yT%Vw2s=LNL(g-a0=`yht43&?GA+05
zC*`~al?cHNpI2Y|_Ob}oTl1-$^Eps`!S8{8rzTjnO-ezXmAF`jtq``V{2^)qPe})8
z%#DG<(IH@~z^X8E;`>+)zXB;x^Zj#sz^u=>vZ*Q$NOd*V*AI-Eq}|#UtpY2LW~27w
zKe3?pK>`5JPJ)WsP^+f4Mlf1Qdw(LQGaociE^lxJ9o)pEP3(FF#VHTy&HV{pfMS}9
zTXZsWMs)A<_b5ga6gB(dgva%Tg@@m4Ei~?KoDqbWo{5b1#vvDEO_KIhUH$0ASh5<I
z)dt<Ex>ng3IJPubI10hDaE9<5Eh8)N{MqHu&$Dxc+cbvhHEA-8_Ps_Ls3xoV&uftn
z*>Z$dN|Nr2EXp?f+xV>@^(FEYDxrTN+aldK2!F8=vT}0aGnd9gYk3b?fU55{=Y~9j
zx(+!)SzoKrq<7jG#6CW`;pgg&iVRf+1tI19A_j-FV~D!JwrXCUMsQ}O>N}_;mU)>;
zF7`u1yMcUTFH2mlhRq?VQ@L4jv^k;YZEFACLU7qVMd5<5bLF%+WB4WwO^vx57!lrU
zAH`J;6&T+D)p<rS_T>H=vp=n65&;zzJ3xx1g3Lj)i1pI4v&~X*1=?`96m*$cxw*S1
zPQZwx+n4#wy%HTl>>T%J@7Cz<8u7*$c(nJrwV3y)HWE@fEe4C`#k;v?xsLL&p%2@Y
zvWH}``rWK5i#T8fcQ!!<SRBQ4swrZF=-5@qmXJ7kfx-v`=Y)V}EW?zu>GxM>*yqH6
z#IrsCvcTcl4j^G$!BvQN>x1M-E$e3r%F2Xg4y#vC{H}Z7T2pIX>PR>PNjc9#{GCNT
zj2FHJa2V-IbaiR5F?Ul}pwkZY@;VPCi@<KFPf|j{Yc$Lge0f(t{Z20}N^KJwiid5b
z0l61_P@yv{Z%D>xfsHD$p7B?hdN~VdV#6^if=!)xUme&D1dO9F6fE6O_UCc|6dVEX
zWP#MCk6Z?qP@j-)X{B^dIEYC|NWEx+KtcF5w3Fk;gC9N+3TP%t;RwV5oq1L42p9Eo
zYhDqt1j5e-5j0z{0#31@E?fce8s$&11gzbCIXMgzIM;B%XW>wevuFTxiw<ATpTM{b
z*BmIbW6^R!-$wXM*k;N2WfAa5p}vFJ2ffbgG|UeELhIujQt$2nQ>+=0^ElZ*mi?&u
z0btZNJcXgGZ&2iaEI?xz9KmMpy6pshy*FUnIfnxFU~bLBWq)I)v)sWF^&J4fh-mV0
z%?0XuD8XQWcnzKVB+yj|Uky#y%~rsd=MYCHtc&4jk))-6;&afZ?%%(E2gDBGpMBvx
zbQ?R_4I3C5mS>3pjF9*7_CBDa&jRa+mg~Bta)t_y%g*w8S=Ak-$8JF^s@cu$l|Vay
zA@j$~oB<FnGkK5}ZPaqa4w{{}*UzO}E(RZ~e&j<xc|1%4>j$9aEDC9Xe5jnUpw=@X
zS`m1^TnNMXn3dB|->WR8B>uQ)Bzi7-Bame8V6|lGO5`RE=DC%!C3e(zXb?0bvYzFq
zbUQ8Te~i%g$x6CH=vumsp<Pc13<tDj!^h@8N~9^LhYlYAm#2x`HBcjUpl~9FmFd}8
z1R+)RP&#dsD4<H5x4*^~-K2AC>0`2?2i69qpZF-l%gc+_k84}jv{w7rzyN>{E{3XD
zi7T6CS;2h~uwBT=$b95BykgRmhIr<Z;7-$2vdEAQ6k4nSW3D-XmwB5fed?A@Jy&?4
zKMv~#10Ng|U}3G*j;m)7`01!fhymHL`PZ*-j{HGvsC>cP+oBmDHH``)jYFz7#EsnW
zC#{sbZ!qmQAIOrI1}OdcZjX~MfsZs8)?x}6p#~5#(QQw*_Xi7%m9k=JA*kT~tert1
zv}nyB$O3W6ezONnPED<?|11lgQVccER4~WmXuXNH^=lY5ae!p^LC@UVB)Ydbq6l}-
zmYU!+do6Valq?KXiR}VDXhC1oSAabd-e|tzh%W4Z|M8<Q6nKD{T`M1*z{R;76x;=Z
z^ly;!8UcR;RP_7ug|0Zk4YuM<i~iY19r7#S#k(i3nxXQGfs=?B0y0<=%z(TxR?wuo
z!chg`x(N=^I{0~}z&J$JyL1(*&)fa4?TQ}-@5Ux1tnO?+9%Zl!&)k%zeikh1{%Kq8
zIQO)t!aOH*qzbs)Nq842|I6zLgH&;_nBfRYGU7D`T>#YcUW-#aybw!pXi4-WrGW2e
zVx6OOtZPHItWSG5P%5c-;=Y<xc?3@ur`vX~s{N{JmfDPc6vk!Z-{Yqz4!M(giopXL
z+gKO1v+GO>iDf<rJcusMcRREf$TIkl&H^+6qOd}4cpn<-2>@AVzT-2%j2ftDis_GU
zW<JeLY_?w1PdvCB#n9uI2n@(~gF$WgeT+MI#dE>fc4cWzc_PGcv8*S_Lqm~6X;1dC
zvGENDtD&DCInPx(Z;LxSm(A|^hyC6z(hQ;ypiN!sNuMe@g0DSo3)U+1Z2IsF6djJd
z%m{lMdU|>(d6xsdc)kRI&dyHjq24sM+uNc!z(9oTR~-l!2To(Y0@xvNyq*F1Hg5!o
zxo4SnZ@s*J1H5a5zcKZj7OLf%4RWpWiW@?Tf^TyUp=lw-Pl4QBG8gZ{!{!2X`&kq)
z+$;89Hi40!v7OiyZ~yqm;$dXOxB@4)0`N2l_$9G(7GDgFKN(hkqdU0$YWJe9;Zdjb
zPEjzmubYy`ikQeyD`jOd=vgau5YRaJgYUp#ikN0e1+3|;ZEQHLCMAFaI0t%Lhh3aW
zQG0K#SP21M_|0UFP05BAw@9ZA!XYO^D&gqdhJsi#<0`5666k!?OBcT!7D&9-2hge@
z#{sjd%&eb;6UZ+G`xP_o9dI0S18v)4TnYJbx;X@ON$Qj9<}W_LtrTF(d|s&bnbDtO
zCeL->I(0j(+BKfvsusQTK?U6Hd95L$YSjY+>@3-jK6_?UHX&pj<bsd4O^JcOo1U>$
z5MDnIw~zku)so<I)z%;ZG#%$r!0!&-d{6NV44$Y@z~x<;g0c;rTeOt&pw?UI5hPLH
zso9^hka#j-FgZ09K=(uzIs62Sq%DFkev+av=5|4+UIXRiM`!t>O>e|~On-*}Ov~XJ
zID6J=Zc8X>FWf&oJmJWdTHe~u#=a^D5*x>;vT}PHNfG8eI?K7oz~~8N$)}VjjxiL`
zeU9c3Z3lavWn`wq_PLJ-0jF>U|0A)D9w3ls3ecpCI9=V{oseM={T&$VTA*7+783^W
zCqRl@*|3uCIqc{RCU<W5@&xv+6Iw#J&A7hKxi4`C9$kQUg%2uN+fJRoJGkjv9_+my
z;@fUIIk#oX;bET8X;cr^RzCzoLAwP;>B!<8GX9sJM#BZ2p)m}(@ou{$5C>23lP)-6
z-jQ;O%ZmY_*!<%MbFLjpRoopNpR3dn-3^qQ7Y2eC^F~R!qQF`QkR6&h(mfNNoH0(2
zZdzUHd%=qg9nkw5(&Y}TD_ij@P_6DsNnxU%cP2_Apx{xty*V)Cb<b}N1Ue3sJLIIG
z_n`$H4SIO##iEO+=>Bw=DEV!CO3FY4fmU(2GQ~L8=SCcg2<plzI{-&JV-I%K)(~Iw
zp@Q6)R4SQybM*myDnzw$j6(FqzuN$Ywd&JIs3WNg35~#lC<0<p&epgF$uew7g%AS(
zjUdnfdcc|QI>uC(li1PrjW!P$v_`Z{CnpVC3=H)TirgA4jA2=nFqJvEm0V@(baJ#G
zZE?H-U1zJYbn#cz)~T?=?%*_N)>`92s&T@sE2Zhhh+qW8gx`6K5eQ$a<pIt}KUL`-
zu@%HcDc=f2-Vc_Si+x#3Tf%)e=oJuVz*sv_1^dNHo89&)opiDJ28Q-_Naey*WM7rB
z@rcJOcl3<BjCn%M^Y4)9W)2|%E>>Mp7o&XXu}y@hcuNm944{viXvr+libh~^ot2eR
z0FMd?ii9qsHnTr-%cm87>E<F(WTUeDf<_7cwQEe$f)=2pAoPqHWa``v*;ZJkfXcSe
zcQRP75oI0PZ8$RnB~~{;L_$ncUOqlx^C5wiwj1Dl!eDK-``%_6*o%)qCUx&44#<Or
z)H5h#)&l}NHUh_f5${$!9c?eP<cRMh^2Qf0+>d;g@vhoHgO~3YxeTBA4rpo43LE$k
z>mIN2=_o+~l|350qE2r}HNdA>m5+hDOAlg5@+3YchDF-D$h5!BT;y$})fOtdt4nHS
z^89sbGeQ!Qxix&Z-yT=R5nle4=Y>uppJMdmYIiq*O7Qcg&H&x;76j@ujC-_Nj{5m!
zZt8_5PxPJG(6bMKvz`|D(c6Nl9pLNxKEW8FN#=5IAn~41I59CHzj`}!ZmzUJw+3c=
zP=xQ+y15QSSy*K0T~p-az8Y7yrA1nHeeqMZTbO|ShuCXC&-DV|3{os5S4grN{x}WC
zT{q>*50}5neY|y7epqVdkeNOUT93C-9N@0RrY&qmiJ;(r=wAF1dIK(NP3I1ZUWIr~
zq-(GAPD-$L^g&9p+v%Bu!bl-!^Klpy3Ig<5_OK+wV_>u4UPq5AD2P4xcMtr0&w79Q
z6b550(1yc68rGYd>tNSo1UjD{T(JfMfPxSjK?P8VpzZv1lrLD!hkETmiF&30@<)gr
zB`^_f7p}wGpXTZNHUIocD2}C*`?MZFjU+Jr22nsV@xN2o><1{QX)%R#=zWI(OAxl~
z5{=g*LdjS$53Q}GeucKHI5<SWZG%n)UBh`4a0v?hn%eH}Rhg#XW)cltfWd-rWK6_@
z&k~q=>oL$416X5#k(*NmGa)2G%@rG%#sS5w9++iGef=+*nMKFRJ5a+0!xz9a&Tqf`
z5vBt2svwm8fWGqwnUf^F4qDUE6DnYdP}h+n89C#M40J?K+0H`g#Y0IzpIHyeRYS6D
zq!*Aj;#lAoW`XG+i5#uUX=i|b+FyczPaZ%AgE8Yipa)4%Lun*xN+Uu;Y26PN7&_r4
zr3q#TMII>v6j7@qQs({;n$N0#0c1s=6a%oRvv7ggv=aB@vVkhMa^!?ypul`oMZ5H<
zX=;A&r9|aV=-eNeBft}j2J;Gq5s4w-5ZuJy6=hDFDPV>nbQraZOoQsjTKv4`tQ`7_
zLpktwL&w2zijpBghqlIxx~YL=+GRm`;VKm?zE7DZ0vN2T^6hQr-jZm6yZ}w%NQ4|D
z{Uve%YyI3l!%gVNhRsi5w5$Ojt|V*-az%v5OK{!ryG4qfHv+z^nLMpZ(RTCGHz?n0
z+%JsA*wtMG4^I0*onD{tq4tLY9{>s-q9#BAhY#SFS5P1UUXutKt$fp%B<WxiwOuHo
z?2!Ua8((HWj)L<d)LacJ0FW;@Ig2g;0}WzfEAXLMK#B)C5|MaTY{u=g51CWoMSkFM
z^ab~Z@6VqP%TE=6Dw+iGXcA5oJ}~`U*>LkhS(Z@I5Ypev+uI+MOcJ5&$&O8m-i-E;
zs3@i-Fi!>`>)%?|<3@v;>{Zn!0v9a_Ag(-QD2vZ>j1akH#MiI~7WoQ)?VOV|Ew`ht
z9zGne<5WYJ(xrf<T(_e3NHAdg0;3gBeR`tqPCRf>0$4h7>1l;yZY!E22$&iLs@9?t
zMm)u5U_yQ`=)9E%4S3#RN8iQ<eT|Sw4`cB*d7zXPc%FPXUAp%1#C-u<nv7)wcO{S|
z4fGKeCqhQGQS%tRud}Pz_`#9~qY*CtKRp(bBS*4_^|=Po9MW;(G+s!`okd^lJHPs#
z=H7CU_ArU2Y7V?~sQ0t{P`S%nAD;lQCHmwJ;HRu0lnQg+GO!37bB6l*B_p$NEU-|C
zARb+ryGq8>oOH^Po}Mnb2u_BmSW8*rvLr33<C%L|e*{Jk=wypI8-Z~IOTmv_=xBVr
zRjhx;*yD*4%KR>K1|F|ZhjMY}S4#_%N_lBMkO9wp*gj9Z6LdO%r@NFASXm%TroL6-
z-H>v$)dCllGW}W2&Z*4`KxG@N&<gdA#3Q{_DTo^bzczWOP`YcsYohzn8RsoQ$r2u0
zh0Gb)eE@TIk}%A~V}1(edN(Si-IdXROx5Eg@d;IEJteiY;=9p@(_sqwgHWKH`UbSR
zAO!N;@t`I9LTSF_4tO)*1HwcJ3o1wjQ=y+6iO+XS_vHs`s~x0>pKnAYgpuur?E%s4
ztG+8*fD8IZ<~F_19%=cj@)8mT7?z#5Ul64oI1FskTX&S4z#Yyv=6DXGlXXWBafc{~
z?$<9Ml;jiuy0TFPi;3E|8#L$JK;vN5svt$CBiWa>3?4#9ih%uBo(#P(Ud6BBez3K$
z5xM|*bXX*i5{1yHTk%16YHmLBxk8y&UeFT-Ku{0j_zJbRvP#;j$im`hiAB|k);i3q
zRPW#(>d<9K>yCJIk;#p^eGo4tKxQB9(<>KN`eh&E1y%w8T|$~FSg%1<Kr!-HQAFJ~
zji|_M4~I#`-;fjUg5@BtQ7Qk0T)8a0W-c3;N+?q!2_n6DyYLOcW`cM`1vI5WcR-|p
z@>a4+r;boQ^jX5AaiC1gTMaUvWOzeEnp(`2TPO?olv2z7Yx3xb@n~70>$jML30pNI
zf#S{0%{VP@n16ZbM1I}@ICn2d*(T2KV~Z2!_$)@=pEg12wcLG9=>VX7#*G6QuyZ*p
z-GUY){BRV?2U-vPBivR@%99ck5vy*ATUr;u!~n1hf4Kkftw4Fd5qL+z?YcsH^&V?h
zg^2VvGFp|ID=@?XW(Epg^C2(rBP28?r#Mg#4vV@QFUDZjo^<C|j;z}s0vq@SD6(R=
zQlJ?ofJcZvbX6OLmRgi`4LG;1LJQi&S5xChT;X2O1_eNl4>)rU(-+i8f6)DOxS}M$
zZbS-)7dc6FvY2lf#~6QtqUsL>jvwrR4iA|m7$cV1@7gzZYZseC`M(Jq69X`9tU!T6
z^(TasN`e@JQ(7suDQeV5J`zgimP?#M&SPJywp|DXM0S>u^sZ4k;g3e$TwkbO{@~6H
z0F4;AJkUc808*w6907&e3q7c%2f5{Ef|&N!eCIvz_gqTqL_nz|ghm5=WCQ5i0jvbr
zHyrcx^F_#dpS!rhAkUR0upAP=L<2r-4dN*wflP})T3ui}biuhO$-eCX0=fwD_e20y
zwMIPtV3_UvboU&hv?KGAK1tN%JVpR5XzqEJWU9LfoB;aJh!BC4=m-Z9K@mtPhi`+J
zwUKrMB<No=J3Tqt+9+I(iZ#y^a}^G5__Sh!<3TC4DP=-Q=<me~jJu`4EQ&`!a05yu
zBiQt>w;L;12z-*X8j>`JdrO4Unh2x{a!(N0zR1cW&bHFRdpbosc70$u*H#^KUSd0Q
zhsSbk#Gte`>0DtIKp}MA7_z6xiXbT$uoQxum_eyQFcP#Cr@n~1>@w`X>2w0}Nb>-n
z*}(60!D^Vl^J#K{(cL}pVb+6xiypYaKU<2t85{F`+JXB&UVt}1z>t8~0T&2TA~>VA
zLeWDZp=31~Gs!bH<FKEA?fnsrP5G;`3{uS?IszcRhbNw3SNSsma}4sj5;E!oPJNl4
z%x6kL@)b~b8h~L%RJ0p_>oU_TA9Q1BS+*%w9#TN_Lkvk2ALy&%@=?hNmWdvivag4T
z{i9rHI*i^t^Z{%|3<aBj+I8(U(va1iCZEjTSQ>01NwnRPGe4_yy3nbmCbhPh>n2V(
za(1?SwTb}f5`0ch&f4d<{)9h7fgg;g7rS{)Msphm32PVbB>DMzKJmpBJ&B6(90Ih;
zPW{mu%nRiVdGPdr@B%<<Ek0R*OMa}-*nky<kOHQ0!RZ0kSs1wXg%Y(VL`O?oJ;_D}
zK5IrJ;D{B+@MpkAvSz~rub;k*OxT*3Fe3yZ_=@(0z$8+w_vax7o<Cqz=Q$4<Cmelb
zI(2*kJlY{`u$UK6dmui-IXtGo!3#P4>nR6!ZvvMiirXCH;{&&*xR4KaMu3JFfMRL@
zSJ}$yOJCmy7-MfDD{5W-^XP;9tJ44Z3s}GZYYR5T|MKT2z?%H^^FPm?{jah8fB5MT
zY1SuKUR4;vd`ny$x}OvpNm%<cDA2)h#rJMgX)|h938TPE31<6!0kUHV|0{4&)TN+w
zWXMVSOEt&=aNbdO<mIox0BXXGF70m#0W>r;zCl5lC_v=Zr>mP7@c}i+0}C+k)vV5g
zfbJe7<zX<PfsKQMj2NJ<b8uXJkw4gux4;41GvqSVEAZOEdy&t7E=B^pH#ksGC~znO
zymSw`?~#nwfMi1p18zrT=O7|<U^wxNq~g)Z3_l&61bsMg^@Nh^rovUvhec8DmX_L&
zR_orsfB$Ku5pK6MFnOY49Rrd_ai?zXc>~Y>A~$j0Pvbs!UY=Al1<dJwQ?%6nwsJ42
zlXPp2_SL8H;2L-Kufa+gy<{JTpJr>6KHeVW@Oq8}@&n4T#Ml208!-NFcqqp|F(vW;
zwV=AgA&v#6gb5(|2Z}AJk@g-omB(U)^z>x6`gSkOX?a8Gnu6qsjOQZWnu&zdBL-w}
z8sJ#Y<fg&szh6$77emg|0iGX$So{KxG!+TuTB*g{DWD<EXYl}m3d|{lU}LC(@&krI
zmCOOxXMF!2j&RMpHUXGPoyf$y4is8MwP*~c&T$$9`u-iY7?pqG@ATC8T5$g$oIX?-
z#6nrG?Q#4TnkqsTcI`g7e{aP=y@SpX67gN|KNACpx`#{+U%Qs>GzbEHjY%P53?aSs
z993IahX+~=l&RlfS$G5N9@v@w$mtqYnKA#y%#Wf^GHb+<xMx8~I*)?kukz+2zzRo8
z+NWnx!1^Th^!(@A%CiI&h#9iA^&G0_>l1M30H1UY1p<<i$s+wflPR>!n-`H%c@70g
z0!}k!gkM0wIaDn8LI0}{Ya2harw%69SEo1CDB%$?C=?9h!l_GbQPb`daoI70k)7s=
z3Ph#?3ACRuEawBuZuPx%Fe$metKWsuc4n2#`PEytB>4EWsdDs6k1Uc7j{N=oL+7+_
zDO&1*Des8XZ}nPW<0oNx9PiWP9Wr9#7rUpopQZ(OgQ4@2FiGzrCuy)!q4mrUj2T{H
zQIdQ2?j4f`S`waU5Q^_{l8s~S*eH&AT*kq{`C+cSTDP|L5^{~06g&V%SrB8qSnBG`
z+}t_Fd6+0%Ib!xt6aWjvC?Mfla0pPg1q24NJ<%3?pu}2*3(rW|8aBE`x-8gT(`>|J
zA{u$_$v5g$VUjoZZqa|cyxC+G9c9`0*|cUI)&DXHPcB2?G`E88!`pW3_<+|rtgh@4
z-ZqMggw@#zzP`;NzgJsIb(Ve(t%NW6_L_uu$Gdj!{1vTjbcP1HN0#cxl-}%<v`M*{
zn^PxOz|!jLo7Mx{qBU&r5a#CPTfw3ObBhDc8v(iTcGWOGjyyS{&I#<*fU!F$A~}@P
z9^Iuc=<e$B+=xWOtkgNi`#;9Pa@gKE&jF3}m=;3xL7RePL(n+^wp>8zzjy&2p+f=M
z<Mj3hV0th|XNr(a?B{m|1=b%Yme}XITv52-QvGBW8vuED!$0!*W0+arFI@?4pWpiV
zTYwMJrY!l__6A@K1`RLM!zlX3gZ!;6TX;W`jluiYa+mOAh2szgeeVD<ha%Jv`3SSK
zbG}=MxCtl|bq9vKf$u*i3(l&9uzC>2mGC<Y)H>8}02%hqS4RN)o<$)9YjK(RMI32(
zEzkf9ie}DA3?YP)7k`}3QM+ZKJz;*S(VR7)$@mt%W3Q(b_19t<EW8iHX`<|J?8tkM
za@}frQceV=e$-m2^%ZfF7AqW=J|*7K`DSqgphWSHBat%*ytC}_K-_)?X1i5xAce`w
z{U@nN7>L%8!x4oucMb*9gNL-6HrCePfJa5$0igPSf9Yiu$eR36a=zIusenyac`R}h
zEar%_n)S4Otg=a3ar}_lqunBJP~*PmqiGYyvv1E!+@#gQ^&+ew4Czr*&ydb|K9ll+
zSn|k8HM4l}u2*93CCLtEJ`RxrBHXu(j|#6Br(O6ge#;XVKlB%U`R3u9FmrL<NVyl>
zKWDdHg&l>x<Dyn~x%0WpV|LrzQ}Z6f{x1TBnPmq}dKPemi}1XN!V2?0kHA8q(iDEa
zt6AFI-^x!oX5Bjdnj0m0vZn{bcf4DBIUdKRIM=woG?qa=afV?G9%%U3v?`v$^CPl3
z#ctfV2dwVZVar>j%GYtzHd6?H8I%A0v5N%UXL9H;&c4Q^&RO!lholBsj><34=rDsh
z7R2T_=bb-u`X=z`6CKO<eNQ{h{(kSBB_eol|57gmbWE=lJmm)J0Y8{1vpbjIL@+Wi
zFff~+`|CP)+(_S${C!CZ|5yL#kFXa1XC3|ui2sLmU~XGE+aYdm5u&I_RXBUDr6qLO
z?MSSlf$Jf+iCa{v;RBf#MN?`N>bL&4rFlHctS#v*H_HV@Ct)fX(3#VjSy+<#RD-9L
z3uV`&vW~-gJ1<q+6H)uA9kNHtGR-v6$%Kc8GqbS;s%dMf#vY_5;1}+k0cSnlS`mID
zi;X_T5xogIVNbEkS4|<*sfpmRR6FAi-0<`2n=aKIsXkYSG`(-Sj~c%6cFhSJH7F=?
zGicgsE(%7o*Wr(bKHeHX$5Bv@jY8pK-sAZ@@L%1-TRZ#LpZ_=hv0+dX72Q5#&BVr*
zHD>TYgFT8(S)m{q%$uX%cchf`c8UqEdE-UzI0|!?23iyg@x;Z(W<s+`p5Yg?IQ$VF
zo1k~IbI!h8Z-d{i^kj3?6l9ahN!`_~vIDDVAnU^Bbhqa^gQj>SYlv65)s~&dMb<Um
z1qWNMlP%A4s{!Y4=0Sy?7Zdnxxh|SCqt8!Lsg)y4r4Z1MLVa&x-#IZcOZKc8*uR%e
zQ}g_h_pf2{fWz_wAH!}QJ$LdqHP0Vf=-K5~xjkOC(0hU!B5P}SI@-9nJW%y?IMv=f
zcyun&xba8-CPUL9d%Mo&VD8lnZLgPH6^6>Eq4=m*VHjsDv9U1UFf%cwJ6yX#`ay9O
zzfDn1jhTp~*s&TO<PaLPx~fZl5L~pkx7YFH8W9l@4waI;^6}TvygaV`<6N63a^YKB
zTOC9RH*enL-1SM;A^mK_iHlV~T{^$+D6Wd$KXwP_?$25O%zn5x5Q)9TQ9?mb`n&#K
zjV$-x?D5rNg9H^7l_JN4&dJSvGbbtmk}SRc()n%YaL_wsAor?*6Dy$q(I``Dtgh)P
z3guNtTJd)r{eE=*|NIfw;{Pw}U}X>WFzZK<f`PJ%RM!5FY5gdRV!9Sa_J}{Jt`e*b
zx`9pD`5Nq}B#KMjx3Dq%hwq1azJ4__)0Eg3`Hmk$Sj<=J5QVCLb!^a7P@TzRf_4$6
za+39@lMzi&aIY3KadYFS$#^%-i)74KMl`=MUJ*|_?;9`7holvHOeUyG^*D$AJmphg
z?8$oJ@%qLFaV2hp)=iJX(YZifv6PI!2g72x4OA%9%c|XKwvJGd&O__so0@(5Jb^+Y
z-78!ulrQQ3$I{&YTd5Y(=c`d>W@cN^()dgU!Ic55o*iBxAkNh#=sUkUL`hS-DU0pZ
zT%|Sn2j{4{eP@w*edm*6>-Ng1&}5NZx7jzhZk`(!|HTWy%$5U$OrHRdFpuDofce;U
z9nTEodZ*njDz{ZMofnejw4mJm`H`<Dt-yi7+$_3<P+9hnrYU1<A$F2-vcLZIRpEWg
zC7tLL<k1&08g7^W`oF)w-21K`3}Q`sL4h)~x=K<~-lH>r{Tu2IPL@0N*a5=%hT8T%
zQEj>P?nNOYWF2qkc=Uq!n+08ifq?-N80W!*Z>l^DoPRIKBz0}F4<2+ul6t&)Q1hbC
zgUhOXlxuQX#CFPTMT~63!og_h*1L}*jf?k^OGYi!i#P`+MWhs90>HLb)V85x*k5z*
z?zT<mjCI3NDQU*=)40*5knX}+8_o#ty}Tv2;)6M}^5CSWxE9onT~<S6V__&%uAf7W
z;D?9^6S$GkF9GajX@h7tc-F<|h1yzi@U)u1JT^Sxu6hMJb<Cz+cz{z8NMZ!`V+N6$
zDd1B3G`1aFqQObP3WjVctA&N4?N$5oa0|UtHfXQzLJhEw#Crm+grY5S)49Y$FPj=x
zj_{n06i?O{q~7Q`XH$L>rN@t#*=ZJ+`Gbb)f3o~q|K6}-)48<$V`;m{u{xKK2WrFM
ziSSUT$Aj<VlWtP7nhCGb{CtUEhW=bLMMwHBu3r^(XW2JSA&~eGY$`Wp4CCw~Ko04i
zwukx%v!ZlhSY-h*!CNN{b_*s?yI_Vl0}Kd@;7jfS%^{PS@~^GC!*ch#x)1WexzG<W
zF~gbm;5jfAiGZ37Tzoq6+)8+m2awRVzrUZc0}7(e9+><znAP~U3B-9S{EPF_EjjMI
zS_NJAYVFsUMSNsmvlF@Hl-xa*H3AhI04RWD5K4%3UisNGV;jl7fPjF@$I5w$iM0_d
zw{+1OwsDT^jUA;r(J$WQWOaToB_)SqKA$>aPa&PVC2GeN8vsD-()qJ&TK8Dv$f2MX
z2?yIJ1i&BI#taL3?ARN-4xueETH{Z5)<oc(_;>O~5NeelJ-Qy;lmt|_WL5(BsF=aq
z3~g{9$aYIOjya{X(SmdPuA)RFB>lsYc-YJ;QWI=!Y~f@BV@7G0904f2IUM!_RVzFq
zf_`C-`UdO?ud03}=(NB;KL~|kA+w8jG&l*@s9@-%uXO&aaEe6CVs5l?bW!XQRWQR=
zQ_}dVSXF}F&z6_$QtHU;HBAv^lOnWO0lU}O>?>F4>F9d+NzenSxrDK|XE#lFUb3sD
zW<%&|)g8NgylIlTw<~%E_5J^1?>(cc%(iV&EXxdrszMM{$`VBZK_v+aXj!5Q1SDq=
z5hWuaAlcFqBcMwGNurXo<P3%qB<CzaNdl6Sti^)YCsJqcbJ~6P{d=w5+qP}*RthV8
z-~8qrp^rZL*qAKzTfr@$ReLBLlFnD_tsh(gEkTY-Bn6^pmJ_63XEu*L`*ri$FA13)
zRBo^B;)e$r!yWlLR7o+n<ulr4@nas(x2D2{h|*G7`+?e1K=bdJ8Gu_~4XAw&#f>&~
z*UVt~#TPcM7+u$Kt(%2Xiwb;ubnm|<l?ftA(a~ohuJICThH)G>r|GUzy}i8y8EsaN
zxkKD$S_VI6r><&PzA_W}tP*XJQ>RX~=Gez^o1$3krOm_6-00+QS0|hf4&ecVg1pLU
z^!$ebUlUF^zkCG=94o9vka<7m*1PuU){9&hvD1X`SrwWDteFTC5e`CCzY2<DAhAj7
zLHV?_y!?qFd&S7I#X3F&i&X&<mIyjb?lj^^Dk&%^giJ!(F&g=?8Fq8UflbR_XLg=h
zfBCOh_WkgG*<YiN<YG-;Q*__FJIuT3j|8{f>`~YG2EKXByJs^BqNj~>lvy7PEoCrR
zgPPN?H!vOlQMaJ#$+;BaShsI+@-AV`iV=>_OI19!5I0U<RJ568=`a8H#8Ll=ipc}*
zI)`}jdY=&UNyrdR3;cZW!PeNlG&E0L6n>RoQ~#7P{D+OrqLcWQY+WRH0!<zTb@%Sy
ze{32E16_Tvej;Dybe3JsofnzDIhFSQZI&lRY7CpQM-nqOwOcu!E$C3aTs))ZA@3-W
z+u<0;73C1Z*U*_6T$yOs9zC<|sa>+upsPX8kyT8u9g-*ShOydZ>&nW>#W|u_>VIQ7
z)7+Q%=df2~(O2uJ$!o_Zt{o!|7o3!gDHm?fA38u9_~7<7`@A35<7KZa(`=W2_+j+D
z-#FLbyMZ>=J#F*O@NgF9iwE9#&p!A?s2WbTtYoZUXxh1V+F2*BQ*-^A$Nwan*(rJN
z=@0yJDo-7)^fDR0c8p~w&ztk{^J=S@?(FgNFq@(?4skJuSloE?95nRWuEWVMv$8a0
zR<?1n3=9lV!;k;^9ILl=RJs-adGfFHETDo_OAv}cBx?)@yC()^t@q}4((ROZg6}7m
zUU*+>FBoa+>1Ju~@B6+yGYsxELNxE0x-=U?COFfU&mw>5z_tIbab0w3=MENl%Z8^_
z;x%2!BMny5T&3n*3$`Zh@~iZ!tyR`}R$O0SU(FinFlC^uTuXuqc#GUkB&>+Y%gaMp
zAtI7~D|Q9b^Kt$~&U93~1CKeSKr-Pu=#iT3$KD>4PkkfJ#9XHu&s@8C?T_3+i(Pjk
zq_bjG7uOjXdGF_m-I=)hhZTs>9Nho@=F$IV9lcsjYn#dn>t-YF&36K>HznHT)3Vu_
zR~t=CM@k&c5Zrtxgzwt0ghJe=n)6LI9C8NhTc-<j+>Y$6eBZYrbCc1)5lfa)3e)xG
zi%yMQ04_i5_K8O0D~FV87CK(pRIF*s_UB5<t7BauqL$hwcRWEJFacRd0{X=wC@1eg
zoAThu^6Q>Aq~LX+(O|!lZf`RP7*NAO_%MSKJ2qJz`qHAo=+J3D@ckXrAMC6C;Q}zF
zNhodGSld1R<+L>I5s@~8wwwm&u#R8$vU<?!LZA5hMnJLw63S<hF>&l!{?g;+_h}4w
zRPZCAM|%!#5KRWYQ0@MW(h7nh&~C&RkuD?Ir&q07RU@!!`CS)e@3&V=LaiC{5%qX8
z8cn4nr>akyfiCPS6}l4@ClEljh;#rxcC(#h(DFO4o0ueD&&)xPV-A7=#0NDlUApvT
zypS<$&4E_Y)(p!yknC+#M3=uP`t<!Zd6A}O=)|MVRe2<W<I<4zsTDM}9@}hHUETQH
zksLY5urzEC%&V^5^AG&AJ5BSo3#4Ko(P2lteWiH+b^;hv>mlF9fTC|EdRODYm5m7x
z{{vLELhk+S%w{O=lSWGI*t5&ue&s>*>O7z{P;z*IrD#C+qI~cXCDQK4jpn%D3CVB$
zh7BTUj09a>j{4KjKih*BWP<ji7Y@*o`qRX3-SS6y|H9@avuTG!IQmn*fbG}_Ev?^u
zT=MnXp+BF~>!*X#W0Z4S7Bp2(*5TCLlL=UUXP1fJnmnVT2Q|Q<&5t=0ZM*yhEo1dy
z5XAz-kx5r^%RYb5#MEo)<$p`m2@earpfJCCmHQ*pm0!wMb`&m5C%qWZvCdaR^)eT7
zbnW38?$dDwT54OnTyJkGZ7vius|d2n<fT5|Ls?O1;913%U!YtUVI}#pQHn{pr|#Vv
z)`}z_6<$}{Y;T{x>`{~4H^Xflk*;>5Y)69>6H}#8V5F?9>{o#>3SxXCs19`P!zF_Q
zQit^qi%ZOrEm>sSD$)SP?Sa_!SEP*k3or5q??|7yNxc_0%a;C(+vs)n`i{f9?@2Np
zXYA~pi;?ByBS51EyRhnxpMDw^SjlvS%DZWGT4s3Gr&WqSw5uqyj+!OAyjgj?9A}I1
z`M%&c@$Wl~=g%a$d-iQbv$!0kt-42)hx1)c*D*axnU6d47V-DeACql<25<N%Ncdh1
z{QWnr(Cz+3t>s_6_Rw@+HH!HB$&)9@BDmYHyklVzkT!h#SM>xs>5_A{FTe1P7VeQx
zJ$|ixr)}8*76Fesd9hoOXvj9R7hitK=2ZSo*PvxMTs?(}4J}<0mxFC&OlWAF_#Ynw
zk}SnU0)XY4UZVRPxPT6Z1c5cnA9KO4cf}~k(u;Ljai98F-mT3QSpLm(cU%K>R@Ta6
z1cX?YD~_*;1jGXdZI@s0>m{w7V`vmSB8(2n&aMfxFBzNAAcv9p-|qwL)fWResjuGj
zayj)ps-8k0e*AyG0MaZl?YxJAPKTUlZZlc|k=q<vK*rSv@#qORddP=(r04E7^e%t%
z@p2e5dF0OM7XOL12p+bGN%gN#06#<Ykf))UXg>b=JqNTqQQYRz9>I22h8n{1`>(6>
zvNOkme8nMg)uee285X1+1IQ7~w!4h{h8Hy->4kBhY21oAxMS&!hvZez;gnb@F~kqD
z#NMXHCk0zNR<Y@l9Lu_3F0zC4#_hpBZrr%R;WInjrm@rKG}dd&te!^Dak+c<Wy0X&
z8o(b<fIyBOH4Sp!jL&R^(ROpiJ6+B;>AP48%dS|uxrBP^9=SBIdT=+<jd{dC!&0~A
zyEu9k<8;MA+}jN7N@_TO(rAb(yqNPe`~p6EBQ$&n1Tt94m-HYjF>=Oh3@E;ul2T2V
zEz(6pfAg=jM``QQxXY5d5^UQnGY5z|>Y=@(cX8ujRS7U=G7G)bw=G@7b5`V>fl$MN
zMqWf}r9@oOu{vQ9NbZxYij=vK{URSewCd&wHC5FwxTgjXt>O$8Cj4!)%}(>+s!1=6
zJ-+6YE335~ef9O9PxY?v;6*LHp3^#SS7=ofoNUbV=f@*WW3e<Sf$EsVFDD*+`ID7L
zdHMP4QK!GiF5~5d?qHHX9oy-HjQa`dv4L!CY*9pl^xN1cxWsGC87%Lrcl#WB2~l@_
z)Kt}x>VyrMS#_G^fCJs8_rqq^0~2ZwQEtOZCBmAYLw6p!Z1UGSF0K0U`to3L73$R%
zWB-Q0S*)ZS6<$ht_j#|su~)e%#MAvTBoZ}x{@^~J;@v*QD*cDyG#(ds*FZMUtYX8D
zKR5%@vM<@=|K*8_f|9LmO68GmX8BMlJ(6#wR=|mvLLhdqF3JaHydmuLCSvN*G!kPM
z0*#}yP<%RvzT78IpGG5R9{?QIgzwbomuM({OSFkZP#h#a58P)Cl*bX}sT$3JUQyCL
zZUW{9HJr3@%=qAX$o?{#D|+DH_SAiM!xOg^f7~!<e80)F`}ggu#zKog0tE?uLtrS0
z$FQ>IkFB5h1qQ}~mEs0DZIB4hg*BO5b+UNPaR9ndQrcA~Y%VE<AM4pwh!7u692^2G
z%k~^Kl!CLscQ#+;4PORDG$jmL5e8)fD484pR3xg6P=|{G`LsSKIlwd!(u{$$+0i6W
zw9T-gC+1w?mxIt}C}j_xAV7+ZIxY>GSvdHrID6A?HwZ>!o4kMjUK=e0AmN6i-zTMU
z;fPIJ+(Jm!CXQCeM^kO=6)kMXxz}D>zEQ1As}OEe_!7f@w5|qF!vSu|2MWh@@JS2_
zIegWmkien(i+%jyQDu)sdS^Pst<dab23fHQI%ECno8+nxp+Fl}-F)ADaz@dB=!fOK
zv1)^=s%kj)L1AYSq=wre<dt5u4m8XRqVtCjA*El~etZak&RR6!_0G~ouynppp44j%
z!BpA5XVowPfrq@}zyT6l{7Ru!Si6TQN;6ccR}oEo5S9moB}XMfFLlBv7u~1AxK5?{
zaI{$)X(bC@FZ#9XyE{76i{1h%H@@vwNa(X?iJ<GqQTr-G;t&DFk!VrcJx|}MmvtB_
z*Gi13(M|*E6ruys9ML$Mw`#+|mDs~77!tzD#U=Re;1jUI;F<=Zr+JP5Hf3zAtfmkT
zp@yR@J(x3;r~(tp{O%lh!^A8gk{WR7r0bi6P^mx3gXW0`UI!A62nOXi<?C<rd;uYS
zyi)-((Q2qE;zE2S%qvPuYe6nTJi>!lpfc8ewN5?|eOBD2&|(qsOIjZg<f4*uhMwS~
zM*qR&LG-G;KaU?rCukyRU_w|!WL42usc{o!9r7p82#k7aID|$e`~!qdsiIaNqe0(4
zLxp*WA|3?BH38ZKi3m^K(BeEjGYS0}1Lcb=lGNNz$AURdRUOUBZeTzL?;*Dyl&Clk
zo<APeh}-i*QbYQ2;1WFb`ii9&lDSRMl4qYG1b)>k!(kS&kH1pTAd&z$j6+R@JN|1^
ztlJ7<8Py*;urm<<$%CWk47e&Cs!(odX{I5R;F$mJd8@ZC(wYjnDOj~Q$85Vw@zaan
zilxck0_Xh;JUZYSZ*EiUNYeQT3|6I|hVa}!{EkPC^{LKBr4<!wcoJyy2!|BH0Q&rz
z3ZbkcQM@8?{nNPLKNLmh$bJKNE8ZqGb#O8EMjzhX)S}REa4Qew$*Z?r4&FtPxYBhT
zW|E(eo(}BGYs+Q(n{ZkZn7Ki~&T1p*Sdn&5--i#++dF<=Zjo=UQWRxZSJyB<MS1xK
z?EWYiYek&<8a$k-y3hqx^03?|9*0JQVEENHL~R(xS}eOUa%M-2ih}qlVi17Ara?6v
zak<B1ZfurzgfYb3!18R?UVsVn<qmNkjPV)?<DF+-eUqi*xWMMM_2Nmec=nY;2)Q#X
zT7L4iF;Dou;+_a$;46OrWCa_VhO>;zuNk!Ze#LJmobz#<W22)@YH4JTLIQ<2dPFv7
zkai5BLnEO#wlztR{egO?eT*RgSM=aO@#Z-w^X6#PZ-uTl(HobfeF<~M2J#IJO#<Wh
zufc~4KTnCuG_V&W<<A6?8y0rX{~4!zpQNPZ*Sy#+VR7;7lHtrh3e|@<JU_(G_3{(I
zL>74rUm5x<cj?-mpHlPM=7NlEZ>AEX&oCk)!q8tFs+-|C9<A2)ot}n&Me_0Sy-Uo+
zURvEY>zpq!SuP}E`1VJ)i4q<nBlg3e*LQ-lQhgXy?hI~IWCmV|E>Q5IhG%v-$JGq|
zrP6fd4H7cp?J~j>dzT-xq0{T2&`_?x#GD}RrOP-jCq9}t$xT57YHG{56fWkN#n=B#
z8sDkmFy5IZj6Z5K4cW2JslT{?Y<&6hw|q2mZ<%#O<v=brU|@diw)7KjlKsKmnW!E`
z;)Z`>E&>S&|F&1n23q@Wqxq|A;}<Bkh?|}x_^s|%(`XlUZ1();tTQ8>095T6*>08D
zQ1Kl=ttUEr)WL#45m;4{YovpdM6~Ec5<MC484y`KOmZbEsVMQmsaYIV8$SKhm}urG
z2}Y>lLy5TxsJ8fCbq#L9^_c*HwcjX5L<P*z<4c1i-bpuzIgxah=<`p7p3{)n87KwS
zMXGn_<`E>tYxU%}ul+F%eI$}lI1%x@f_~&C*j?U%Z)){;^x9tIcip5y(U<yy)UF_y
zA8p4)9#GCqtNBSwI>VjhhGHMD+~gjBtgxF`Z(QPYm>K_|WBjL8Xy5G|xp$;8yu$6l
zCyKrYf`Ol3-WQ;910X*3b$(*PmI1D46UhAWXlUGrs)DEChl9)r+!PRA^9l$w;-F4L
zz^<XC3Ojla1=5>_Vdik+WGA4zARKqU4}mS-HtawYTVxd!8qo!?Gouq_tpT>eZ?}+Y
zZyl@~cHqOya2w}{`wi-xk1UcvH$gq-a>XN38;FfdR7QLQM}R^UF|5enqZ(P0z>;c0
z5eAci4l$;pq}9yK%uMJAc6<W@Vt{Sei+{bvEs35=ZM12UHihpF2Rzq)YB(DF4ElrZ
z6uf#DhYA<us8d}xH<fme?*j&aKpJvJ4(}At2+=I>u)-&hwOaS{-oGLt$zW_h`Tdkn
z;~d{dYf>1x2X0&aXwZ%ZVG`AXPpgOpD*f<*_$@?`2vv}tGGyT%8-V-|%~KXoiAzU7
z&a(Z;tD>jbET&eSckkW>dH^17dqkbWQF*IO9a3X@1{DlI{iH5rNDq<rC?LHV?bo`!
zXm~V&nQf%Zhap)e=-os}qm#gSCtFuQ63X1Ic}}TTdE+wn!>wxgtf&x&K&yheOK1wG
zL_Kph^Rh>^5?v85;5A4Tu7=>C*CDqdQl1lGz>xRR5mKW-_&p{uTSFcLi5R69=ZGxf
zQBZdDY)kgguwqw%4%BN)K}{M@ubNdu_XQXfyqniXzkK<7q^W4%epA~*mgEb|mY!tL
zX#cYB_0=$&|27VlEzLg!uYO<63L;tydYn3zJ|hu@4vtAYZ|G(<KwG9A8L7P4A}-`f
zIEUC?b7nr80)<ioX_@%jT<%$odFT-}!#IKTov>IruoL#!?596=k_`$6D3hjuz<a9M
z$Y%g5{`a$_DKIOwFHha)$e)KhY3gG6gcg?_Gvh>tR5--XZ>v(FeY%#O-R!FB%}8Dj
zAc%$V))bEL5Tqw0hSTb%zNS{0p%j9C>caKw*AFt5U92veI@RGpMbKA%C#lEcj%gsm
znB000^r|b;m|hDYQ4f0bNXh89IT8{mR){&f#Ti`v9z+gxJLFD7_E#U<AOxNMKa=8)
zUpi^gCf34ZuFRmvR?B^OJJTP3Y3y2Bx6O~;XHr9Bpc=eI?^@&LI$`^vgiKyM59~m{
z^bJh%#&fKBpd)AIP?lbQ{Z4kfl^a&aFT<4GlTZ@n+J3y=2hc$hry<_zr|(bWP$I3O
zl1X^y|C%JACH2S2BM1SBTr(n0ZVDQgOzv8JHzG{GMxHv*B_gjvhL?~S8;M9lV;(PQ
z@54%QQ#MIXJ^cJxo7;{|4<&z!@5=@bPR<EK13VvPc@_a3ZSB}j#)u;|oM0{BS=Q|P
z2X?xkpjy<G-xp~9`==3NnMhZufX25(nFs7!0`<{3D_pvK8P}g)bb3v%@>oy-sDUu+
zYRxGc0;(4%K%W6k>gxp3+Kuu*|HJS)-i^C@hk-%tf$o@8G?-_b2@FWqgoZ+H>N2>X
zo$%m^D#Pi+zT7gCCs!43wC`cMz8io<qJF-FaEPxjYoI9eZr2qJR<ScMbJ}_vmu@dX
zJ-94F<)=Ic{}oJkek;3e@(og?zt^o>_sET|uCH%pBeL`|P|tGt3vY;_ioAr!f#X@t
znq$w>&^1dxSqHwby8n`cIzD8qUb=Q?dhR`$LwcsvEei{hOxJU870;l5Pf&&M?vn!O
ze~RhojWZZ`d9#X5^PdaRIQ8ep&hiwzGv@2mt6!QL!3242gD_#2n3$L_ac-hn^IQvK
zx2vZ_nskl+JMM$c&X+X%jcJ4=T*&dqz27p|yh1aZB(Ps<IL<wxoGxD^?&wh2#C0)o
zaV<=Be8i3Uq?#lV#~`+NaMY_06LW#Y#GJY0)x{F(9qZD6HbX){uhE!nEpp(g+tTwV
zGC$hh2i_CSX_fV&X#VHoRua^T*!Fxdd9sX+G9BXM1tk`Ph4lUPonuI&Cj-dp#@w^e
z9^L6NZ!`U+X1BJna49T47YFZ40WwLzee5QeaJCPE1`{9~G#u=c8lsB`De7UwdmZfj
z&n-WbNB6Zs1tEqDG2Arvj}r77FtLS>0{d06PtxiXRG{)HoNFyyC(OF`M-JV{7>rDe
zfs&QVoAU>!nz1lxmTjW>7|a9FgRSpWmOuH9rs~QLUicccWNRQR)p?n_Hy1CmM>Df_
z>m?hTWHh?IIDasjoB{9!(g}+m7VyiX(>rT0_2dQYxUA5n@>gm9)R2>_CW7L{1ImmU
zBNzo1fk+LA!V*5ApQHh10$iyx8FvTvguj0j^3yW<@~UrcTYD`GDIh$*?owRS6c`F>
zV9tea5H7Q>X<feLBcZ(~h0(H6@Mhd%XcCK2^VaOEJz!~ko*WhG-5d@9h}|@-^QZj?
zV$VQ&VO28m&%1*WGlwor@c_ROc5*wqvI9LE1K>i(5q)Oh%?Lc@kiMXaIF$L_oveK5
z*ifkGcZHwZ;Sd0%oI+h7Q1`&Ce@flHz$2kO{v769qJIrys?I_K^!PJN`k}Mkr`X7T
z{}wvz|L=9TZrvj24jw>#p@&C1WP`ReT|?&zWpSO&JIdL!Pq@JY#EFx**@dMgD9O5`
z)`)6p1BxEn)(48gy7b!Lx&lfay$bT_2_F7s5vrWDq%mi;j?XB-AuP!g{rYaOUqe}$
znx}7lzv)W(!3%x5XEB9k=<og-kF$S{evK(MLwGIOBrl}&=BIxuV`;T^$@>jHK8uI4
z#FN0My4}eaQwItoC0d$Mn_+Y?qgZwCzWF1UpPSB~4y~a+eQH9VG&#LU@lBo>NEop@
z1i3y>vzPC>$D3_~nV70|Q6KvVg`6-yKHM%uX{Qlx4m}X6tj6}Wq;C!a2n=C=qC1CL
z*<t3BNC1FwKPCVuK~~VB9gc0cMJZQJ<8agLizpgb_M7vsDz7`@_!Ec!wi5D$mIqx0
zyk49mL=zhxi=+WTjoul>uvY8oq1rHx4O#8?Mnm<6421*)F8!eIUuI1AmvG4M_`5ax
zi`2NTa5pPoGS!gX(5Fr|Q|AQd;9bu~SAilbpnvTuBLqzH4Vp=bcFB9P+eaj%!%nFP
zTQOPqqdT}Q^z>1hHB0}?9sM$CS?wdMeIB1bs4lfCZ6`n=kS_<TU)%%(Kc8dL9e#2U
zhCfx`d0>y8%W(ROV)?py^eY1vnI=CkNh$^c>x@p@bfko&GeH6(frt>F1CAo04TrdG
zIFy$H)7=u@liUGG-~cqZG8JI!B>Xus=@;2?7%^yB&51yDX~4^-Ve$d49C%qUWL77@
zqa%4lym>}L4K3<Zm>g*eT_+NT5*;&y$7OzeW+|!Ww~3kx!l0*ww2uIDA5sn&|8rPu
z&UUK?t^~F2F;5k@yw94n&7HO7FGp49KM3cRz546X)A$U*q!dC}2FWiEQZ^>Y8zKCs
zl;DJ0L*^OH`jOM~1!<NAB2j>;EHMDC4}W&w1Y?S3Wm8xjk)54rXN5X;9HJ9h3HL)9
zXb%6)sxUpqIgvwINok8ic2Oc1CCEX%W$;bOo5r$B2pWZ|j)ei&Ab2TRK!PkaYbhT<
zK(FTDkRfW_5s$WLnP0}#-S|LZ`cuMxKOf)YtH+oVN83iBMqxhDQ)1W;Xl(%68q<vz
zimJsb5WM)>e4g3L+M;sym#2~27UuX5Sk7H|8IA(&8zWH;MD!=6R|)RlpWG{dsIl@?
z$k?$QUZ2v16^`*+m{-5s88uR?{JwNr69wC1iz93(B>!G$l{~B~Y}Bjm90Tf1$3!4~
z%w$|CC^lJNum3_C0@yt~TwJu5@$qM+LX%Jgj*#v^2ll11$)^bZa_+qKUI1-MC$Gw6
z-H$&Q&Kfp!3MD`PUbU^|TRfkH5;Lk>vEb-P48^DZrtOFvZxE;o(T&%$dC$5<@1b#E
zB$0@QagW1nC;~TC9-BN%pni~s5Ja}77(*IX`|n%&O#FuQ(ch3U?g(4}m~pjsRUY*!
zARKd2BOJ;7u-XrT^C8>=z$g;zT-yQu%TVhPW;(agI%W$r`i~)yq*7^X{t`Ybl=E(V
z+H)X<tIQVGeq6iS=n_3VP{TpvZiJ<<yvmz{ZOuP1)Yq-PX*g?__P(|_^Z2jlhIEB3
zo1<z}o3h#Y&eo;%9*cJOeSk&cUq?#9Jb&}NvoX^^t^3qpdi~DRZYHxfzifCre9~Jb
zxV*!ue+S|3RR)W1S=4Sm$SetMz8qi;=}-_yRwC@&j`V_<6?i#F7`+f=j_77HNr#9p
zqzId^0d~i(W6{ZXPH*4yhn{(}%pa9A@h@o2E*|u@PK)?(D>dmDWWGKo`GmpEu0Yf{
zbIS>LYR96(<|VJ9X@sgPHM~q9H=Z)&vrR~bdKEp2r_(x!stN@a*fU;NG7kY%1II1D
z`$QE|Gh7P-!e|jeJO`j74SW1`UlNcACsCsNfsn8p?JAiDS1Fol*%k@W4N~!tJ$qIa
zIFGQ+=f5SaX9Orj!<&@q0m|$HqX5LlIyg#$(f2keG58jDBR+amFh3zjut*#Sb)c9)
zHC2WR6i^AJ7I&{R<{{(#hPhC`Aw|rh2~?KxbEOj}PK1aEM|PeOF*XoZ(`(ao>l}ek
zBOw>)pKw3+fIo&j7WzFnERIsUpF4X1L8(C?Meu!W>wKUdeir83bbE+#fvHhiQnHTT
z+YOuy1k6Z?HxPiuFmpFYv5Z`@WLLt1UFPHQwoagKf9aq3Z3kQNL1wR=lG@ZM|HAo*
z#`%<#l<NC6(8y^n|6VJ)&dvJEFD77#5u*j_V_>}u?hO>i>6+7A1Bjix^ac0qIYmta
ze6&}uq_dhm4p=IRLFtE|;LzYY1_R9#YaoPq_1l;sO7Uj+tR;vmAV7<ceZ%UTfrpLn
z5u)SUp+Hcmer2NkaY7X!GjeA=f{<eX5vD7Nv#=lhb*ikJ7nO9lFTx%r7&H!BS^uOd
zkmMX7f&}oj?8p<h7*;d-1nKv4#9jmXetzS|4`3mh16RdRj)$21QKC)n{@XH%=J;94
z#H907t+kQxWi0>6ZstNvtRU&$Qgs0-7~Ca6Uj_1~l)+l%vj~zG-xy2NNi%swU<p8C
z>cAS+foP_Bu+%(Z5M2(EcsOHIf*uj9-R1~;`30p%A_IW8=$jvnmlD+u99}URWL>Z=
zPztHLPTnFxyS{zC54K;D*+=Gz{>lAt3`DwwdjNT-I!wKJ0+Hz_`7$yf>*g5@s*(k|
z4gA3jWk^&MsNS2hq|jETrmhYq=FykQZcBO5@pe>WcqlLKCk7He9yOed>a7_H{%<9V
zI7-44a3eB59CU`r4C_t-lpbJKU}=Eqnq$e+J!8q}bh0kkb_93BO_M4Hok3s>l!Ud+
zgS+tH2*+9(AA&NPs=9h4;#u5W1vEEctr6fQIPNP!7Cdy1FR^-oL1$%Nt%l?eNYV-F
z6o4QZBKE;O5NucZ$TYCDveNJBd{YfbItvWYLhhMxiDYyZrCc!39F7dKs>OiaX#~jo
zP-%r>C+djY1BtmKwNO<yOQ?I&{k#+bk^MUsF;d+@(16VYuUygU8TnP?-N7l$CW(fl
zCo~+Wj-Q+)BVjC?U!5SN4|%cnUosTqe7yWF&9Ucs%{jylUfKpTQhgxv<4?|cw5xKc
z*Fx*53Gl{{ZX`@b;2|TKW+%07VLSlOkWidHwDO)Is1_vQ(yxtw=9m;Zd>GbdD$@FU
zfE@klpVEp*TnN@ejw%IByy}N6ESQ<q1jPkH%OFFsNp%Btc~Uwwg~muu*NqKN9zCjw
z&v_d|+dr4*G+B?at<~KK9S7Solb&7se3ye1R&J$u!ycIdhkM}!su`(hB=AXr+azp1
zs7g>h6vEVz%9!XAbLGVug#$}i7T8+%NKG58>?OJl|1TU+_Z-BED;pa}5atD`qi91J
z$7C+HH}JnoDR0fB=`B@L7}RuYVRYKro-y5I4iOz^pg#mKCv}e(bL9MB5LFFHyvL6;
z*_&3n%Yzw&!w>^L^Z-)87kC&107vk^2LUVse}>p=J6SZpnc%yIRwQuN^B2JzZg_EW
z4en3im$e30-mF5cB0VQ~HL?nGSi&3}V}wO$n&JjNMyi^G=K~eKsoYM6z}3vr$S*J<
zBwQrckJLQMdX<4aiGbNHiFq`@^S4@US$a$fZO{Vej%hhDNRU-Z@yd=fXECz@^DXKz
zhK`#8?5A$=@@VC|9^N6>KRx1R6?k^>r<k)}Wcl^iEj=<?o@zTzuUs2_{n&%o*Gun2
z$9La*cw*~l)<?ebJ6*r7W&80L$E_!hZ#~uWX5UY&4<&V?>U7$rFJumcOUOk@_^L4G
zjwwEivK<Vbo$rXXi;XRuZgdgI?xE(P4pVh0$kGopc?1Y(tr3&4$1<%(hLTe5WXCp3
znoubd-i~=jXQDIt5rCT0=yW^euN&8OY<0v~0Uip_!Xm>qaS)97JktRyU#0edU|fdk
zqk43tuTlj=eJD9PL#Xmd*yo8q1@~c=fcV9^Gu}7fyY&f$#%N~+#nZZTKw0R6$W$ek
z*0x^hG>iA%f`Q1O!|<DivpR7`DcZ48Hyn*cgoS%L7a5&)eF2vfC&UizPXFY|c?nSJ
zP3e5iZE#_u>-FUA+U=Vv0M`W>`A9l&FEOF`zGN0MEUBkF?kC+trYuO2nVS46mOmgr
z*HY!~2PrfR%H3Il(MbNIZlf+sKg5j)=YCC*v&!!E`-%pGIMwd!H#bV`<9T-Ng4Fz{
zP5n6a<>Xu19oh~AS)@?j=NbQce&^aU^}k>5`vfG`a_lz;IS%#@v(P@<*jD*kc&nV5
zrDX+Y$CxLXA?O6j&ebbt%wqc7<EAxLbs`2%J-!HeVg>3|2ZxPXQq=DAHaht7I~kk`
zB0HN9HAA!M%_dv8VIGQtc<+;5eR`~V@x^pi$*%k!s+`}^09zv?qegv~VT+8GODzs<
zmUZY^8Ai(v)Ad7UT{lMJ0>zjuq#Z{-Zpnlu?cZNPOK-s~+tpHddO<oVHN3sU564G*
z)Tzp40(24$<JWD7QXc~@;6*y%Trizr-3w|9g?g$mZ2@L95ChS~!D3kGqCr{cck0EP
zETWp9+{nNr%GOmDWkE0Pv|6e$cE~f|y4y>v5*jl{cqbdx?Ft*5`C}8HZ2NiQlT3?u
z&k;>sIk~dsJB^Ht%p10}E(6H?=wi*WH)SeIkALTwd)G>?Xb1F#FfsAPCnOxu)6+vL
zsukg|I>SKyTWU%pAaK_qoz7A`nP4C~`vE;$h_+mO%-Z3uW%y}tkOdVe(lMmzHb8gA
zKiW6x;Q+`T2BXY%{Juds?j`_U!1a}P&*+NId+hA12v4G466>+vIy2m9vd<XwL)KBw
zwcjKpBxF7=3^rS*@4T<gSz_}l%S@r_p=!SkHj2w+grJ-0*dp-dYZw?ZV(k7%ncRVy
z5Dx*KUhmuXRBj6EtsUV2Ve<Ff?-pHM!u2Nuo0vQF=XoaY-!^`ySI&5Gd#AP)-O|#s
z#WX6!_VZnyzCYLO{D9!9cWQdN7ruO_Zoikcs}Z%wlhaD`Q;s8SI(G>y3xl;IlKQD{
z-N?wu&ftwka9X+%ZVzV2CaZ77sjEqg^%;Vxx9$3K&0Z~G#^2J5lhXaje=9uZi#_=5
za<z9nZuo7fXg^qr1NDsC2`Pm}ObB5aQK;DMmTGbwpK&$pd6HLb(k?2!&czS+#2hR9
z0#{>)>qwYdSlu^A%1Ueek=wdcsH5()xkPGPJv!vi4eG>z&!MngSZmLG1ZfcO!u$f5
zKxe5K26O-n5l&sHgDJLZ9={c)(DnSxB)6uE;xq^+ly++i_}d}r?)TNuFF{>41*f7P
z0l)|3$ssT>MpvvxWMiEy>TfJHo=5Y66KPIm<s8o8U)h#)_O%P5seU6ax+c=C3^K*?
zq|9eT+hubjj)g%$%y}rb=&8Si3d6|^>At5%RBjCAx`_F7z87m;Nx*ZyW4=#p)6wC-
z*$T#P=^|g7gMQVqtg3~Dg>po77~rl;Exhei^0Io$E|jiIJ;nA{E-GtlPX9cMrv^Sx
zWj|^myQJGgg-w+KmtceM8;DCPaQ-m=H?}ibBC;LH)_f-=v+3B_@s7oX*-aVk?d>5X
z3;%9iQETH!S$Ms65ZQ}`Z)Ce>3qznR_Sja$2xlQNrmd~5J~W@_`vB)^i@%<O7Jgv+
zdc~UftCG9jbPMMytoz`Cm!7Sn>*t>-)bZ}(eqeGo)Kj0vVYPWj9Jz~&&d`r=Eb;7*
z>$Sj;Qn}F^#^6mS#&r*+W5O>peoPd+m-16=dQY(HkHQYP2L=VH@cJtA`lbL(?R$Q6
zV=0J^skq7>6#Mkd=sznQ*~Mv@rUX{(8%$CVk5Jz4<>l1^-e+A+%_ARBM_6a+P%`bg
zv)lWFxdFZPjhm>b=p|(S*(imiyx*$RLk0jov_wW+?g}Kf9F!Hi54&!MhlTCNhsn#!
zw^*cBOvEU<nZ+o1h0gcz*p=>&x(G)u{`J*6;!WNxq-SQ5`Pbs`&bQA>CWnJsCas}o
zuhxkBdm<Z=mXXm1A7DW3f$OvAn2Ho*(emhWRwTtgH1|?rp3>6Nda#1p3qPl<r|Ug?
zB(=5IRvd-&xMQcUrju2FR!~r|W!8q<X9!nYyxp$+kg2(O*=)gV{;tX4f&qE!QuO=z
zBGYs~_)4$#jJKECfKj>{<2Q3`x1Lv%f5+eZb5{+qb7d(ddxI_pS!R?VE)GDE-{;Hc
zGbj+1AZZNMb7(RC5S(3>N_;1XFdxuS6iDuQt|7_Y_wqBRy;u?*i{w+7_UyCW{o5xe
z7)R~#mx{x~!%jGycJM%bBqN-FS=nQK?H#8rK;HhpepdK^0*S6oA+eMjkA8in3nYvT
zxIYXk$=Rm|cY%jep>%qO@4Jmh`GH%V%rG@E`G9Pg>cMF8sL&{+HO!-^x+CvP8@OSi
zQ2LVMw0QOAp`~nua;5a*{B{^$Vt6OQxET9@shi-$`{UXPmqT%*)VHoT*{XbVU2CMD
zuH1C&ASt!F&v$cO9{HF(R}32!Y~QFA08*LqkYd2$J!r|)AO{J<QFfD5hDM_)3;1jF
z?B6!-?teMl=l$z_H9%Y<lap;CW_2ugi*J;vE0s#b(>fU$$ewlO<7cVKfT|wi%#qWF
zoZKjWF=j)S8ogPwUAEU(lG86NBEndeI>hU*rIC}9<9BqE{D4Yv)YNAK4V6=2af|hn
zk4tozwbY&G=AKkaB+9U=X@R<I@NGC^tN%!Wc!afE_Uct$H+DG6EsjSe&9pmQy&9gM
zFIn<(lQ|A`T)wAgowq_?UQX-mQ4ZQ7qpU<GX-7)@i`gVo4<{Kf-q=LjcYj??oXw8#
z6SMDl)acaI@ciZAkY(GR4Lm!OTW53k2Hzhoq+cG`eoHXi{L@hGNWipC+iiY2BTszp
z+sb!~{3&M|tu3pX9NX>EM>EsY?Z@s7goK2YZNDX~Ekz$=%vJCSCeARtJ$)=wjXG$7
zUVeoad=v6#T5ozB*`&MA)ZW>ml25!lb2gs5sL7i%bn&C{z?KJ{0U|;gl9H*bS=Bn*
z#N73~-55`d6G6Wm;-BRGYEHGy&igX@_lR`FKvI8WPB3e2ZVekXGJTDKheiYVKcNW9
z`;T_cDQpB;-nV0c81XHqw?85^q?>G(7aA-Oc3~9eCCmhBh)-|SP8W!}1h!c)$v3mR
zy^pG!T|LsEAy|B|;q(}=kpp<3T3J^NM<5~lrnjP^q6H=%h6uQl5A&Rn70e(-M@J`J
zj^wgM(T)X^AzCOl*dmVXgM(L;ji_C3tpo1@QaQ8t`M=DF?q>?f=vyyb-1q+6^z~WH
z!>9lhJ_%QGwB+U8ibZ<iqRYXL@>}!IN#THr<NtQ3zLF4Oj+EGY2<<KQWpeT%HodD#
z-k3f?#$!5lb9QFEZ6k0qWJ1*w(cJj<L2D%YRsr3o28=<Cxi_2KUnv_%yiQSNsKq8F
z30gaq=`0--5{r)HO;%bIGG<P0Y*miI(3Hp?j7_Loq!}#oA#SmAfNd7JpnL&e{9Gz;
zHh;7Ny%W!TTzhu&<;iF3R<7d-en{Q~!_4u1ko~^4j*g0e|71pHenMl!xzn*b#}GWG
z-&7HrZ}MPh1O|F?aer)Xekv!B%}tr8KDjCTA?Z6lCjy&I+;=D{Rd%;B_xsAup?5e0
zw(IXNde1k<F31vWm${<@kH9aN3=)yN23$^`_Es5hXZod+L<3LCdVe=4zeiIhk8ov2
zn^msm*i4Gd=tlOeSWD_Wn9)fN-`V5#af2(Y?d&GIh7qUpJ2DW5v2<90r1x*XAC-bc
z^ffvVBCQb`9F^O9%O%i4Gb46Q9#8O<w_U?awuu;&uQ`~HbH!V{@9CRGk1r>=V*mYf
z01-j!zTZQEO2RA>U;!ze?Iqrk#EfKS*BmN4fnnYfys(TXot>Sj+-NmEzc9|VnB4lE
z^If0NYp}|4kFRWmE-0u0Qf|(qYRFAVgz~U1n1%1GQh_q{p}?XTqx$b(Z=Lexf+@-c
zvy&vO0QEu}Ci>aEAutw2VC1bZnTzWap}ec=Os*biA1l|^NWQ?q)0p$a_1`&suZw93
zQyr1!mI|WaUmheTh|2ld1u*yaQiyZ2K%N$G(D1FvFlh|jm(E=gRG+h+Nu~z8#rvGn
z?yecFW^oqj4eD`5gg|$&Z!UuWb@MCjr5?-k)4cv=6c3NuHkBb|^|N+%%CWTct`&nF
zX6vr8@oPSWuQ((rdA~zd6sp1v$vXG|_PSCJ+DT{W*+<&`$-f5{Tyv5g%8P6?X8NTP
z-w2mUsN_r57s;2_V8Mz-y2s+^F?azA6}9uD^75-$m+E!#ca$h9xj8v0sPXrMVWK&b
z0~0pqv-r)2yJXkx?Nk_eZ<+5j1^dgYdo#rWf2?`ePQnsGJ*lfc=cIv;t?C*k`)s+;
zA1$Z0>6!;Xh+ag{XQ&9hb}l7;k~7V_vBO!LI?dt|R$FiQ&eK)b#V)mW?dH6hiCpKc
z;pvf$?9%S@UBiS%@?Xy#yA5^cvaVrxORF&lJl(8?&unTgpKh_mey^n;Z;y3;O(*+l
z%)#7zNY*m<%BQ!y8cX+it`J8Ma~w^_91ILPI~|3~RaxL9Zf5c*KGPkx#gZ~H4XWch
zFo4NzZ06qC>{s9JbYdR7TJBOW#`PRE7%FnQ^W0Ej5p-mrMmlse6Z?J4>^leGTqgO7
zP$@}d78L4Z1&RIO3hSqZtyd9V%7+jWKjt=1%6Gt43;p-^z;E?{O(jbu>e($9?jNv4
zpbwDb@|6$-*?e4cA5MFoEx7_kfrP13ElZbLl!E1;Oe8wyn_n5cMK%b+*Qtls9f1PQ
zm1-0m{<cU=3##jj-)r&@lo$*KNnA-pBVgZosCYYOkNfRfgrQ1pxfIk3qvHWGQXh=R
zy<xwy-mh5Y7VvQDIy<F5)6^q88wReg+;|2tFv^lGYG#-5P54t{0QxGgn!2R9t>vp@
zVLy%SEkVfX57uli0!?;@5R%suLh2-}@0GMta`i=|dd>^J_%(r?FE1lThK7eB^IrAP
z0}q5GM3bO{9tGfFy%A;|w&Fm#WsGX6f5B7)GK9hsaPf|OzarD;8EPWcogy`Xx}5w~
z*!Yx*)}{i{PFiDT3LgD2a3JR13%Wld@ud?en{_QM0eAqS$i(MN{K%y|IN|2zCXVqP
zsqjaa(3Z8+A>Z14GHAbl8U8mgI$8xj=>&mADAc9!uSl#w$tG6}k$wvZ%ahiNGuCm!
z_Z-#Cn9j)T>T-L>+3_$Tqm`GS3tcH#V1gGQqS7XDq6O#%rq<R;Gl|52Qn?A{K)?Wm
zVU?5^RSt*z_k!yUczq9}4~PV|bEvD&a+lyCXxQY!DS;f!1Bv5Oz?&(u>E3Cc4Y+74
z3cQaDr=@D0#Pw2azy&zbGU5f$$&lJAPd0!2L(~U_C=;NRx&6^rIHWf!OT};Pnz!Vv
z93mm#?$*;HW@Idq9g^Wo*xrgRE-o49DRKpksRD_;t_=fWw=1HG5+tWj@fMyPJ9apc
zyHy0^mE=~uRze@Q=kc{R5~K$={t<4NLX`(b@FDM=7}(uiIfx^c3_OWibu81>km(<G
zn&?@&RXp<C@?vu|iU4VpgHm${39@-Yt}5?Ud=~8O?M-l^xf&n$w0coK70&pWz}WUK
z;(`g5RPvHi>_2^g^sF3DmxMKPLaLbp6KITPyReK<5Ya9H4TZgTA+vpr;mdcVyB&zp
z73fFKb4>t7XIB|%Ng{Ks5D3}XVkeMy+(c?QZ45eHIdTN?i$Oq(_kk&OuHf5y!9IfP
z0K*aLS&+3GOSI6rZ{69{Bz95%(|bW~N2EqQWuTru6upcT7iw_AKut_5(W(~g&}z!c
z_4rSxt8gc++Z{jJoSeZFz|39(?BUBFqdUkgW+CB><*Ue8+S(4sLORS8CaS6o_mO?$
zH-NxIk(xIdGP>P{6MWK>)Qk8ej>EU!Qh{+l<0f1F&}TQVa8Kf^vSD_Fj7y(<#B<TY
z9B4p{LMTt^0v;I{8L1>rnRtDxNmMz7K~}mPc{YGb78QpP`(IH*Lt`hJL4s{d_wyY)
zXKmc-To=^w#5VgFyQnl+$T#ga0+yYxlV;SN&s`kbwD@oo+k^mc7z-rS9EH?X3R{I_
zgp<G^1yVCS=KMXDYy?3>$q7SRObp&03R-0zkO5schZ4_{n};zMT$~WRnaN^Ah<xgq
zV3_hyQh<mgOl1%+6}mVV>I#`_MQVhMi-76v9S&!x^T@b#2i&~UJaJpS1oi~gF9?QE
znw;yp#zsG!By5O29LS2rIq5|n@<})vl3DF!>vGQ(F3v7qA{)`p&JJl6F_3UMeK@F9
zz(VqW7x4~H`17H&)}M2b5eYuINm3Xo*onZvz}56A7-T+aAefK2VUx!Xo4bs<bOt54
z4V!CuFs6~e*W&w0e1jj;sTX6Eiuts$mt)=QiRrzm;d~5sf^-#_jS@WTye3J(s27o>
zm+8$$hk0`ZTc;!HB@2q3N>XO?#O%Gq${)^LyzTMrHh0`sY(<uT$C6#P&<Qw5u?0-H
zQGhe+Oe^{4XYJEr39RWz{r6JdXJ2J=L~yRETktKo=$s;~2x7ieam3UlW)DwI6?)90
zSc#fZAP%({>GPd{#}}9+N;<D&*|XT2?p5ABda(HGXSTyf2cyG0&z=+yUc!PWP%gUk
zqpx?o=btsH2)bGyZn$w^!TQ(hJF*m%soSqspD?wuszgEI)AlQ`SIi+sS?pEB7rbJ-
zqT^?lkseNVB1!a9k(Utg=%(A?moI0i#}>YImwj}{EhT2Tp8vz<^5uTsrnTl&ctvul
z1doKZynKatFn@v~C%Lo_rJ&#-xO~xH1_x!S!eVgb?POovoJ^RRnYo0zH34KM3>K#i
z#Csl|^mBQX@TXfjs>Od#V_9JcbgAKmg&qgl^(Q)C-+H^X@O<+>FfM_!2>ZW><UIPb
zIZZ5;mUL{Iq$?E-7UnjgjIWndaV5PsHVAyc6L<>5K`>R(S6Eb3UAN%n<c5<qPc?tU
zf=2U^_+hKpJ-uh|`*kfXEXpB#OPdEKTnaP)1e`m=>?Ssj=3;=qGP<LsjRz0@G>w|%
zPTLc&WEY=d%*(DeD_|Sh0N+y2zqvtDqq#wi!a&Q6mc5{+eIO7n*`s{Ajv{TcRJ2hY
z4xKB%Ot$6{mIyB2n$sdU)mI%IlT=*}stc>-zLEV|ZON4g01Pl9k#in;h@C3T^;2ux
zGBY##fiadN!|_G6OoA*^U?A`5eNacaK)py}?TA2)NKb$&dngkKG^7a(E>rK0tP#dA
z>MQ7a;)wnyeUn`GkZ8vi5mG;A=QkPo)*Ku?DmO{<-pB0M2e|1QyP@bF9<w#<P;5JC
zTzI{{jX>@A)*gZaindt@y%Z(>mV7P{Irqm)@E#t|`{@Oc-}X`v24z0-%dHh**1b9m
zmQYoc)O1W9%#lH_+c5kLR{!OWgbei5JmC%yv(^`FK7TVJ1C=;^>Zhp2ER^=tvok*N
zCy8o44tPmy@-iCQ17w-Qh7-^b@U<o?H{4h4t2#;MuSUW@bbK;<`d`4LN$(Ocx&8J3
z048si6^`8!>>(LDiCLy*W&k7mjFQ65N1Nh36j=U3)>un!OO^+=1z%Ijc%`1LtZL(t
z8ox^-qiuQT+u&)Qpg?lKVE!|kMs&s_O?}H(dvzkV<iTd#T;mqubZ)i6827t{Co9e$
z9}rZGI_5IvZd=#X==ZF#k(-j8DzvRa3=K{4jaqY|H{Jw3e=#e#f7)yQw_RmwW^x{#
zFYS_F#0hzYT@#pL{*BAxA1;8H<x|`4a3%B5Rwu(xH|DeL7NXNTVV!1H-Iv*NKsW2k
z*agWj!*;*MyhNj(Nzor(rIAd4VvFh{@xb5iw2^Ab5}FB!OKqtd^3=#%%Pa&2N`L}H
zG|%{N`Zfv+iNPk(3fMzV5sE6JUuUEl1Bz>`rLlj+fp>fAIo>~zq4}xUoZHe3MU4-{
z0DxXLIft}2w5X^^7-cTh7p*$Ry&W$ih9&3S7L6pA;qvukE0Rz;ovXermG=8|LVRz-
zYV#B|S-mxh7mfsz=|3HXd2tFq^zbxAeky1?oiI02$lyE}C~dfp%h{sTWp4BFL+Ry<
z6b?42BhE*khVaj~RTSYB2ikw$q^M{#eY)<Pi(|o<u7JznU2T6QR=U+IQ>nCunRJ1b
z&l4?hWD$p3E`=TdRR_L&VYksC`zQs8RWI;76YnFR?*JcV?hpfO;iJbQ171^4M!0D-
zw*DNiuPx4P|F>?RDuNbrp%m`~#8JrVV-^WJk#V@$qN2E|vMGqTrvESO(c;XapE0+k
z{QnvSTrCs^CravB<f95^(vy0T;gu2dgbBxjT=eGR!w5N)HeB=9;EXR}jw5)@U?r?Z
z5W%JhLXMM?Q_sK%7bk&2OrOa}#e?3+IRSLIQ;r&p3}bg}GKUC3sz^_gEm%zlGD9*l
zGV;22jA{;Si9sqT*U;KZ4nE2-%q|`(Dk=(q5Q0%yXB{<A@1l{196;|tI_ICwm@vC3
z;ww(l&FeXnm5v2MAmr;4q+4m*Ev@g+)Wyg0qTBMmY&(8nseSZ%P95+W@Y44I`Y#8#
zac+7BN(>#O7GXfE^{=h|Reyz9F(08ko%8RYcg&K&x$3mk#G}{@f_A-K$8(Wj;a{HL
zjBOQtU3z$p;L=MuI5{WLPEas7>?a#B4+J66IhSd-;g96EOvg{G`<@f8k2O;f4h9QG
zPM)`;t}eBl&X*0l6RY;q(#!PXv|rOnEzEa>Yq<+l^H8J-`5n`~Xf=*EbQ}`ZxbIwd
z^;+IldFBb}>gj_^FF3zP&2l5@u|8j++<N}8u>1T+pa>WCvj4IA;7>nvNK{u>zxr5H
zKgq$NtS>+PAOkgwD4V+relA-t>U#~wWGKg|j?aBHwN}(%8QjK#!hmT~b@8f-ih+a^
zl3_1UJv_ilJ5u;!7egfavM>R)S>$GtbA|E+n<Af?agL;?7k+%UAmQ`|u3tgtmefpz
zwXBmN%X*Gg0MECH*$hZwVK`KUBtYhRnBIESlb_Q-EJ^rX=zUAUjE3idH8tosPWAy1
zDH46@>H|n6?=4&~H~B{2bJ{F<(Ys)zp`fbf@W<@t)>iGCW-_PE&CT5wWYZHQS=vTa
zhj^LTPvIVw1e)Yrb6tCFonnBZE%HrY=ATOLsHabA4(OiEpH14>;KEhbYpb`z-}gbo
z?0aXSy`4g4=iX^H_nX9KF7TVmA5n;lQRR&Y3p1MI`{CR*vTU85p-z*2lELxyouSU#
z;)FdG<}X$T?<$j>>}!x;EbX=J<FA1Rh`oJ-JQoryzS-ocC@WfXLxb-sR$BA9(;mVA
zmaJo7VjcBc%~ciCSsVpK4`@EbXVur$J-&q(HMRv6anuWO04}e696{Gq^mq;WoS>aE
z&67V!+QZ!|Hl_dtvwQs)G&J((6Zas*Pi!vk=y0CXlS@G`aL;YKC4nF~IN9=FHe6Ul
z>>KA68fKhjhY4R2b0w!erP<grfi%ZQn#CH8D}80E7fd3Gy-ZB2_I&R)-nVbX|JbUs
zP|CuebLYM*hF!n$)A#<3U!Hu|sDA!@SybvjAHnp$SqqVd9IWDb3)(QBVC1oT!-`+@
zo_czoGSVh<i|)C|W`w3G1j-gwF)_u3l7)@Fo65zocc#<L^<>m^X?-5$;eCGE=x2Fw
zqTs?(55fO2kIF38eueoB^izlsjh;#L<?;GR&S;WWaZ;dYfu|=`){BVScG$EbWj;-E
zcH=}L6m*Gu+ugC$>2*-lYwo%uI56T!Lj1HBNT2|Oqy&Ho6$Azm!nA<-)yQGkW(Nb%
z=uKS024AHVxxUr`?t(@<0y8)<h73YM$d7pOVi&UDY(S%S#JQ3}zM6)fFJS`g?x-S=
ze`fx$rCR(FLdZT;G`~F$0uCQYqC~z9F3k#GN7BC5)<9s1z457)vQ%A^UCMUc&E;od
zF<N-B^q^wT4rXmXI-I6LJyo|4=|*Nz136Jl^C8zA#gVbEvChoMXneI~`>&(rW_w=Q
zBwRfYMHIkFT4ttCRtQOw=00umcuG)NG{7qZPRRWVHI5eaRO1r-av4B@9wRAM%S(cd
z#soOsz8MDJE1#Dp78Yk?VoXbJ4J73`?-DuCQpnxw=~-Xa`wi*ud#T1cn^t&)DVxCh
zPMe%RxHt#DSQ=+_U*%@|sH?)#RLtsRz<bXVgP+{uc>wOpP22EqkD3-{G+Ze*m7Gql
zwb8a7Waysd^^i%3>b}aKcbVy2Xr9Y~la7v#q-4omLg5KXleMe>A~iOHig754w^Ag7
zb!axc?TTbm0R)!AnT20o-nWI@R?iy+SmYu#n_YFlj;_JUF}PO~@|?d1?v>|Ai7&i-
zLO(%CvOyh>)Aa7bo|3mV-G>WTPe1VN>+5>}Kjn1bz(6ALQ>YYLveGoI`!96=<i;=f
z^=#9m2yb+$=TSBndRv`PE-5Vn$AT%H{n$5U-|+mo(m_O15#Dv-1;2kKkWy{d_(?zc
z=pc>2Q-8`u*d;S=J@ObYhy*Gc(_HMlJ`lB6jbxwciwWtCrQwYkyUL1Y8_IZsP8r%q
z^uJ0-NO;@&zP`0J=VSNPaf53=ybgTnE+wL_<>BE$ig5%Bb^_oQfVAz>AH#5S0;GT^
z1aS;d+x8>JfbGsktz&{@O$3w@Kw=V%^iOSsq$Et|Mt{s>1)3X-X^2ZjB(ec-a?N+$
zX+w+spmG`Dw<U}W@$v_hxSwLL93`on=*KJX4BM8N10Xq#7oe<l5kmpX;=^<k{kdiZ
zIkeg{|L`blpB9q%jq<)f73tq<-v{2r?YPB9ZP}8apU+As>-vuB79VDptSg}5zOndq
zwq|0gU9zM2=%Z6jpj_PY+TgFPE{NqG8gNTaN=h2(WOH$L_M<zcf62+sO+9$hV@Gve
zol2NltTlh={rj9F)`yv*_pBKG367MUek3@BAHXCHBt(m_8KFwhL4`^AoYe0zX3sTX
z#VE?2hrYTY$qK-L?ZdNbgQJT1^X%yWG_+n8M$AnPMSAqwW`Ca48XSxbk^%w{nXAm@
z;yf7X1Ny~TjayQp^-8ag!jDH(zW3~yi}B}@-vpm*Zy%vAklpexpX?kUk`fokC#jX=
zGd*Qo2IhoNrlZN`=9U&MTz^twVd3X&O+`aPMMXuNCzUH1zlCbtx56-4Q?s44-crpY
zScDA`pcVD*j6xDqX%@ShNnMvwe#c<d%1<LCeZl-RV!mk62Etva2)a>wdi@P{HZaJO
zW|}_znl5(#b}lIzlAyN1wxNwM%P4~jFMlR4I6fWla@YO0?HdHLeg$dB#R1u*>!3=g
z_JL0$NSyr%tV5A;-6BR_eEuuP<nC*1n;ad<`2&woE9S~9F{7BiH;DqBa}1r}v!q}%
zhve<Z#b;TGiHQVXoXhl}LvtIMdl4y!#dR#H2%SH>4WG9NT#l4f6{*KiK_cLar`{~#
zM@<5<cleNk?E|P^EpM$1@N81WCZv~U(M;q-WK-{sCxta8_A;32+^p~B+qk3fFv-zD
zQ$0eId5Bgq!TbjX2TM_RdJ2A&6z<HCAezcCX|WMY*50W4>85K0kp75{?cE*j7|&4w
zD%sJm3<9kX1Qj`o&ozQ=F){f*m|Mykn3(SUC(8L(a`K<G_}5y*#x$;aH3&}`80g1P
zo$;5AiwUf0Lhe{gWmsCA^{_16#_Id5%J$^RQjut5VP?nj{}+dv2GZv0h6moCXqvI9
zb~aALP&PMbsd5#+g#$h(-TjN_QH7xxA7Ae}XO+?Z3(9jsW|BLij6O-OyiV(BkJ|`n
z<02>$WxD+ho}M}D{7C*3xrf%)nfhx|WArmKK3`eZ(5hSAMaJ$VaYF*N&ESR4q_%dg
z-c4tjlSoNgd65KFzAxHC)6{PcNbEOPJ?D!gWM(Ea>aqjL&_GFIt$II_T`@2ed*Vdc
zdDK_rc0^I!ZZ#vGC=a*kzRe$WjwEXym8Kpq^2zNG9}2(l+!U`ZW8`UHC7I~n^b8g)
z(Sjs>sTThAFr2r6d9pSNL^d`y!UQrH)04FI#~IO~ie5&VaESVD_ATR=B;7W{j$6sf
z%^=2W{Y7X!JOTXA#}+M;<}KOQ8ONq7t`i%!@}JR&kZNqne!7R&TzyomLL@e-6|RPp
zjXyd_tO|zqs`?irJ4MCz@=x_B3Kpz4Sm9STJrQ&V37fd-=*W%~3vi-DVk2pu^k9Ob
zl6(|yiEkzu?v6O_mX_>~RdJ`pP)iX`V`ey5z?zfS;}5UYZ9P5v39s|iTW}+@M?#L+
zeEx3H^XI)JB7Mtxdly!m<Mme&H1fsEse5QTgF|sa3wwMQpYu)6Hp!FBlg2xp?Co6#
zv-pH>Dp~*c)E?{NfuGzgz6>YCUC;b%Zf;=Ep69f&sW?(%y)>OpAL8YX3r|Y2j**&~
zo^FT^9ON81k`N_W{=eBXs)|}m7V-7d@0?Vo|6}rn|0J0I|0LTDszX0Cawiqg%n)cn
z!o$C?99TN_Kt}U#fJ_Z$&_;s#MPl;z2~|dqug_W&Di0}fqO!-OI|GW?68)c~Ou;DM
znOa)vb+<0%JVgR3!rbIMD@Ze@re<gRAD-M;LU@93!@CHs2p~TdWojYx9ev_xTGDDg
zn6d8KW8$|5hK9;?Q0L!nU#|rIryTeJ#N$I>CLHxK5)449X-*_|Y4F#13(m<E*2`f9
zw>T7J{c}8Ejhx!rI{df^<E`;&#!}3T;DU})$|Z!ms9lS-r+t<Hn^}k2gEFa>(f8|S
zpIk9YP<C!Ya;t4_*0c%n5^dc_nLriG(Chn5u;=gz^{q%~sPmF0351kLsYT3-l+*BC
zYmEh+)EuCbg5Vk@vHiEV+kQA~9?)6+aN^!CdQ3p-O@oivd`Pi%yxiCH-EIeD{jo?5
zk4iYO!Tem6iHVt+EPyiy5wWODlG*?l71sFDJ+B;NRr#Kvb%rHU4poYsW$7_XX0NPw
zW~wR<_WF5tws-<yB<aHay##>6%DLS72W~?<QRv;_9Vh+lpU}-z<)_gQqI!(2t+mzc
zT*ViYrKBb@k~SCJ(b1t#(wet_tqW+bmAKfF)gj?@sA8=D0+6;_>Gw^u?6xp9UY(wd
zvH6Q|xcKQeOFq9a_wZO;zb3E2f)41n6qHo$@d8{o@NE86zmbFt#W@j9fux?_O#-si
zIsCs^FJ_IKc3AausHqw!48v{JIuAt^D$ttKTDG#%n`c`qR9X|IYTxuVS!gEvw72E$
z>UFX+JEt_A{(vjg6aGuUKKx^{C1H6gpFG{$oo1Oo)kxvuY!j1L0p$3=MUR&H90W@P
zl{RO&{L2Vh8}+31@~6jrl}``VhOXS3fr`MiXtdI)hIA{P-r4tFMT*fuQdSv_;rHA=
z+SW=8@HG`T-AEc>H%Rt5nvi*dMx&dPug^>qXedrEwy&?S$@!F3TJ>q~&yC0}tVC^w
zdl&Q?40ww9n5K=(*W|6-y?b?EX+n6?=xEq^4i0r!_4_pzF2-Kc19f4IGl9<yYb654
z1_YaO9w;^BO^%p$IL&JNABt_=v~b*ZY>k;-Q8b4~DVv$z+h|^qB>%>e%k|`yM-0t4
zc+Mu+Zwrf^6Is)g^Ouri$A}C0?{v=i&y%6n?MaQs4`SU!+xh7hIa&#2>}ot#i$&W0
z2L}ZLGZYi#*wum*gH>nyKey>;I(5wCRG90nW_n<1B-Nz{$4%u%hWPQ-5WnUtlV1S2
z*RA*INN{M23bvJ1IP&SQd$Z}_Z=-`i>r;-*I}|8auY~5{<)&V-Hi9}*PraCbJ;ga4
zj%^5)Eya{Ca(62$D>*b&-2naGlpY8Xv+n5HM|WOglQ&TbAk-_dZBFF5DlZ{_Qi_VQ
z0hfw=lTuPdaxM04$S?VdKqF1k8KI9bvwP*h@Nfla@#eaC5NT=QVMaCeY)ip_hK3hk
zY{C1g_fVUR%v6v`7qmiF&awRuB?MB49QrEa9*h6AwGKE9>O6b2geu?vS<K1Q$W87W
zMfk_ugqilrt_wv%4|%FZ!Ca}EkX}Uw=ojAxSb@fxEf`vjZ;nA8E3mTT{Q;?o9DRPN
z8+p0{O~zbo(h9^u7x;i{WWQ}}V{{WT{@HuZ!`+`pw@f<=2qf;LXMQs;(>$Uul<s3R
z?w0(lVaP_Ju|tUIJhzOs!u1<Zg$G9Mo=Jjl!P=CKHkilUq-fprFRKOgYJ!wCD7F<M
zP5kzYgi`^j;N@<DL*MQ5gSqQslnzMvM5*#Fu}$!x0uT#vmmq_BN;pDD-2)`-&EA{-
zL|U`Xg3E^1_ul(Y6J*<#(xI}$ef?eXTjig4kP2<NP*pkk2)G2>4-8UwM+Z~My|(|S
zx-XB$@@?0?4Mjpk5<-#&LzJ0h%1|f`D)Sf_Gi1z=A|+2n(I6_7%9Lc*XiB6MA@fwq
zT$wWM<LZ6)yZ8RSZ?Co2`quZyXSLRE{T|PAd+zJLu5&of^E?jr8V0%69UD#V{k6Vf
z4xFR&@6hXh5mr+cZM+s_a;F5<Y0~OO`VLW>nt14c@~PbIf0*mR<)czZ(4+IOL9>Yb
zW|(x+*h%~MFJk+*fI<C#gEc?6Z@Tj3BNsHxnYv^g_{2v#-)7OOwJWyfs!Yn)@%?59
zb7`oGidK>O{9mqJw11;G8Be-+^kdO0B#!nYC$f);ha@9IaiRq0Ajv#ALZr5j-l3bK
zq)_w`M!M(RqqMX%mr?UX)c`NTl0n|}7huIE-lk6w)n1E{z`sX>^pOzEEw;B*X#N;7
z=Dqmz2pO~i+u1eIs)NseUXhipZ}j_t5s6i*EAyLdqfZRl38i`NXuz|X>_cCbVJztb
z+Sfimk>6Nw=SOk(IdM|W6w_Cm$iCnJnCSs|^XJ2keVBnTu(Rvw{FWF<8nW1uqJivM
zsQtdZtbu$GqetFoa~9Pn**GeSS@*~5TLzS<aj5h#@$vCF&ub8hfdGtI#fkz6Bc-5>
z)Gq`mogo2v(SX(8NxuotYRUZcYBkc$aw<3x^?QqnF*NPepiAMp=uubK^kTJ%-@jSa
z&LB=tF9uo&<c4Xc0K*sc4nhR6V4cX$$;pwLnL;~3-?Gptt=PNY7xMi^Y>cnW2)=w#
z>QHb^Gi<Nv)#WG8oqPB|^lfdu8=JGQQoMu8Hi!6B$#2H{2lFI7?mg^NySsj*v4`t^
z?DytAHm*g6^#%sq`_#2B-#Gt9I;U1hHK$g1YiVnv#B4~CW0K?5+#?ws9?zoXQ2WfB
z9RC@fnwnb1sT8kyo1>aTJzApl#}8+jO10oWPu~bEUAnYf0G`*(o(4j?9iE<^(X$4O
ze2vDiHh2vawzf1-3AkQTf>3;O^!Dxe&p&^vxcU7dNBhqo`*Un1|I&2U-cr8U@?Y}F
zBG+sgHvjvlI4>Cl=&z=7S;3vGv41~zSmY{gMuG4D-V1QT?9M^UfJGFCfPjRjXzdu9
z+s`TyJ?3tw#1wqP4^FaF7`O}d1Y*2dh1AR?Uc@U_KLxe8e^O*bgg##N>HnZnBZIye
z@(Iwqj{g45_~F>l(X)hP015+i6gNvmS)F1MtgU}iUj4vPfB%B3b_NFL@git{1ZL;J
zbPR^GD~f#Ic$K_FL4e)WRkvj(_o;KkPSxGurrh8rZS)c3pE8yG{Z407)`*CB?Pk&7
zV0?H=_&;uXAh#y@$$zZRFoSF7x_|vPcBB00f4h=zcm1H=1TP5>J9mx+-4Aq1N=k}e
zz0CE_a?qb11NH9p6UjO$uV4`E>(mITXbC3SXe`Z}^1eDw&4bvQh+V%H3Y|T9{W>3r
zs(3&FBnmdQE}pHWDw`_7nLq^Mm2a|x1FIAh&K&&w1Nha!{rfvXuz+-v5zN15Ko$ui
z#>Fx+GQ1#$*pVZN-wSWswi?tfI|2ffa4VxQ;nrZ$!wUOo@Vu*ZbfHZoF=Sfr4xw!b
zJ@|ONQHDu02HV%DsPL!mPS)}ClmXw$2dtZ@s3`dy+76^@Din1S$n^j>P#PQ`9vu)*
zw|dd8f61&iNnq>Nt=S;^%xOv99;$|+_a(Y#++=jG*c?5&(RZXh26qYy3=vsbZp^;>
zV_@V%o}1ZvN1LP!rMLIo8JetUUJp7HH|hFibSQQgjSL^>5AwRK)fNfG=?3m_VdlL|
z8pBXiV}eaO`ZEx8f}@~(zwvi%!Br;lMc3JR6ZA%0+3KY7zB0-7f*m6q>?d&pfY6t$
z)j9uI!JxP)&d$POH4x1hNGhdNgU{pwShoEA_59YVA2_fAafYMsO>m3Z!s3X%sOjzN
zvjJ_$hwnay@jJA&t&#SRj*WThmE=8E&<(1k!>Vo9z5GJFiT@kA8_t3x{l*Cob#;p9
z$Q>=cmQt<B!H6D$r8o(TDC|cTkdJujrRP0Ss08yu7d)}_%sg-dkxiT4W-7Y%MQ!0`
zq=SK74T=ayFMdqrj{c0jA9`{dSs^<QrMI_3>^#UaH3hZ#O%}0PThWFs^Rc00>4QdN
z^^=m4qApw@hvH63is$!_>ri6OYMu-T3bF%Xg;)Ywb#1}XxMu@*R7}iq`!^=pa@(n<
zl7Ouk@b4NKxqwFQHOk6-mX?+e9zD|3(OI15-gfTkQ`z4?8kXAF*cjE8$p(4NB4@go
zkZ|V1hdt!hz({{u^R_y;iZFT;1%3io2vvQw+{qF_kH@TMV4#gZ&B@CPh3;kb4GmqO
zhybs~=8HFP#(<o(6FH#U&v{rlB!67k<A}WI2@3$os5(JHa#h7o3SW+FE4*P}_#j`?
zjg)QQ!o-{6lAl#p92kt*iv1KPW~d2r7!E!@77q^(r(9ER9-eMM$`#~LAx-Qg<ihEV
zcpf5Kw{qcOls_;|8Aa)!SoqXerA?LSgk?g5zm)}Vp@YDs4)DbhRz3fKfUc3y1r<!i
zGgw(!)i*Y#6cq4+22iT@kqoxxuC|JHY|y!ic7eV<FS5TCZ9em#pU7!-``aj~Xx!Vo
z1l{_VELxhuW`Aq%!_xrxlW9w8G}5a^0PFMY-*n{|=u=aw9c!+xd9Z(z4c3dD_E9bV
z>mf@^DZD_g09ACSCnfjq>*(#=xg4L^vu|I|U8f<x*(p!*Ye)fU!UM$hfz*!!zkZB{
zc(H1bv7QD^^pZ_ib{2%p6^Xyj)%R9vuQpz&%(Qh2p#^4%H*-0<xn)R$_K{o#WJ<^P
zo}S1NtHkrL0g?J^kjh4gAIxON6?mcf7A=x%;jJX7>c3~t!~L&8e=ZtT8}hEt56x0z
z-aQZlU#{)6J!pPqTduoz)>p5~E^`$Z3kA$H=k6B{gzS3Ia%iSmEWd~i`s7=W#maeY
z)Zn<7l*CTCH=n9n9xkk&VZuNu`whGLte(rb1_BM=!{#&}>|#nCn)Z;e|7c(M;>GsG
zth^Kjt9N>rU5*Zl<#e)_4<A2%JjEegIBFY1OiWt;$jIiTlxx?n8PV!}zk0bY8LZkZ
zRaudw7<}Rc_;Hvhbwk6LQaf*M7ccWC_Df2hJsZPlmA)GLeYsw*=gp4_XR!em-?EuK
zym7=l`%H$zhSVZM@8oDn96qVa_&qOV&_=rPIDg@ZJb1}MF8R^eT{pLf3OeWVy?XTu
z`#eEe;Kl}Smfyo|{OFU|V~zVs2zPHQDwL4Y1uqyyse)Bntnp~a^KDco&V$t1DxOHY
z_iZYl&3EirG~E7dDb<}274-eZ8wl;y=yQH~Z%&guxox_tuc?VERVPIQhmGpQtdFOY
zInDkk4dl||AOMna`yxB_=TDJ{?3qi|(?`U;r{R;5L+4jf#PS!&O6fkyW$oLaFOy)m
z>tToNWb?8&#UXaXMIC#8$a_t@u7z7%FK{ZsoRF$gVT1t2WLwTKVV(v+K@U>rbr>mS
zAkDb&Ag4_;DlpU$g&G{p4?W1ot|;%nLE2BLFz_124REhq$v{b2mh{J7b-kUeeh>C;
z^w%$!r-NXNr@}5?<cQ;1{N0hIadOI2_dgy|yy7B_mtgbFwk>DDImT%EVt}Hxte>Rf
zdk>kJMMLUF7_ow@eJt0mYESTkOu+{jA37BE@};`Z(3ce?O38O`YyIP0XC8uR=s{W<
z19dtgq6^>kB_8XsAN3m<85wWED`E?a1w|AsHOpG%^{7P_i}Il3YPE6gIRCE98LzCC
zH$yowa6LC4pG+{<$uQ}Gfv2P33K7Z#gA(xq*mA8wrg9ZiX(<kLbaYb~;P5*STI!Fh
zt`3bMgruWjxr{9>X}50O(y1P4Ej$Iv6KZN<v*z&q%uJ)i?D_5UJ=?EKWIcLBKe}M$
zbG|NACOs|flu4T0w1fVpcYPcDCVJN=*x4B-CTzB<fUjS}9Nwgrft8#>t9zMQY}=)K
zO84*GyPcQE1MaL$mUlMk8!O@R#sc7SA@7tOx)4%UR@R9KIDGFzALsNuC#mhhS#PlV
zvuIYH!r)xFLvC(vQ@)1~nDft|7B5IRV|Ur+#b-3KDmA!CR2dJC-@s8eo2&RT@LXU(
z-fQmfPEi;>tdhd>9Xv{qt7<xw%@mOcA~L?AIasDs_zL-g$(c$}2gMthC~Nr80<S(6
zMvX9G<_#M+YQR%7YETqR>aJCfjA8Z>caW%J|E3jSoV%W$Qs+cneZkf^y6ZxhWb*LK
zSb@Hpq}g6CSJ$)q(i-HIS7L1BQbNM|r1!%W9|eB>{P`GaQ5b|@g{BTq&&w0pvbxBy
zN{~Ds$~nUJd|^HaOiK*tx6<+Q+H!g4I^h1Nc0}_OD*pL;I5v4ce$*`Ay^A;u_=U&d
z`X%p1wQ}JUvYnL_j1&zCZ;@=st|sqy7h(6W3-p=3$QIRA`s|TjI9#3UzBd28JVGqL
zGQpDGEx6dC57Knet)L8E2}&Ye&|zhR=Fn%jbrpQ;p0ozVW1SRc0Ql`49Bjbf&dkbs
zS=sysl0yb`_p1>;bbR%!x-HwcZ#THMWl?p!q<69B790&gr6)0gxB{;As-owey77_{
zKB>?@kxT5Jnr2M3-V78!d_BdyIWF0p79;5idU8(G!Vyoq^Q>HHH~yo6ID5!=oOh^>
z*Kg;lzIac`S(fhv@_U%AN*G5AfqTK}8+GkUjc`h=!KsII;U&n;E?v120mX;>Yj<lt
z&i?*((<oI7QAYcTUxuF7FkA~lo=60**^d1{ar$DXByC3IwAhdHyZrS5SgrjpvL}i*
zR~E&zs<q&ftyg|0|M0QeuxZn4&>jKsX$!Pv-&Ozlv+eZHJ}Qiy@=cpqfIT8qVP<B2
zi7CctlFL5G$S4PMnJDeEFFA1-2^s~nhRBvJPmDw0r??%HKX(lGvomVE1jUml_|1L~
zwXFPf-*Bsv;GO3Q*82KqtA^SNy_wWYSBm*fd)XM$yzF;}cqz%#qCS24#C1XSCo{2e
z+B!PjAZJnpC1spQUXq-W`<JInU`?(<NzE)iVIxhogOHiaQv;RDu3VR!hSY=UiKNSy
z?R{=S+=6-uqx)U{+0Q{qEv0(5^eW@baekL-W7;_X%O?ZR%?IQIhv%Dhw6%L{n_zBj
zVZ~5;-r47SMc-u(GBgxl#lxlS?D9pm`*v@O07q009?Vq;C8YC7vIYbO+JbQkG5(=A
z2QW-iVZ&|3#mW*XzpaQWQ&ju2Ad)Q~3A*23J&bTxtnyZI$ec2D3x>LO$(Nm<ziv?Y
zYgKys6<4q<B1x8nWeIQP1))mtYYXsZxTU`{4y~TYGruA6spCn|%!J!{!EJohC}Nd6
z;IE}EYh|fb?0}y>4^*!QfhzmCkG`M3Ix41DVA8?K=Vn+KH5Py<8;*7L%ExR1#*v6o
zv*pQQah23nYVa6#82-B#WQM2yF2iu^NXzD2Mbiu(1Xq-Baf?Sx-K6T4$$L64YAh<`
zy=9S@APb@>xPD<z*_aod<rNho5btZ=+;Z~d$!>d{`(k^mYHJr$zXuxMXVbO3j2GxD
z`)e-}SEQ;~I1W}B!)gTdSH6}tmy&b5VyB@&N9l#M6iZG|PfgtdV<0sj`Z_o0VZ#rd
zfn8Oc4*f_z%>Ej^RSVI>CNE^l>&Ftz+A0M66f3cPdrz~K^!gwuLD01gzQDuR#H#Sa
zg_uK!4mtgdP7l!;8XY}W6_l@73j4v7YYIQYoZqjX?^Guupz6;7uI`tZc6F*-sT!e4
zcV*`y3KYd=aeZJEdW8{F>elVb*vqc(jHUh&xE%Im2^XeWY#5j9&ih(mU$uO&weVBF
zR%o%mx_a2u^~;R{xFc-srhbvWyI~W(sY0hrI{E{$YHAE9b#3j_ibfB(1r9_Go9AcC
zk>yVuf6;F=&cCn5Vv<Ayl{fz$$=+~sPbBxCIx*}PtGK+9dC3w^50_o~`mf5PSC(56
zPeH_VBft;O6ISA_7BnFNv6>4A7Cj@sBmaaJHa!B+Fr))Jcb+pl@k#~C9-uQLd79by
zB9Hn9#yHQ!_JO4Id{L1yrGEJEs=fR68CzLhz{cIB+;!=hQjto~&$#OB?De&{q-)b-
zI)tSw-tWG3JGHH^I)UWV-3UuZ$H#YQYKG_Rb&Ah<s~H;Xc}D2%U{&^$C(F}JGG612
z{DvX>5ilSjDFNz8g;_oe?80Y#ch0`c&Szy}<2wy~;VwA!S1?{>o@#P@Y~*GjrbVxw
zvZTrU-KB32i$A+z>qw3B2UXX#4Jb@lPWJ7|zf|qWj|et#17qoo&{<YuwBRnfJCtu4
zl~{a!EOIk3@%%{!CcZWu2Zwc-l98j>wi?b%Pb<mT4m8DCA;JUT77jt;xE3K<Ck`-5
zu5-Kkczq?(<C<$*EBk#J=;@_B+EuZCkj9+r@!iDDlG8JcWQi5_NiVJuQ>v$+vXe5h
z1U4HkTk5;Pmx-_aQ44mCPyU&Xayf#IH;2s@M)FX>vD^03bhYA3=X}j_og=`nrzC1(
z)*NStZ(<obcRZ)%!nt#=QN9x8fBurw;gGrc`QF}Mol+TIJ_Yy0yKJXu%DdYNk$wKn
zJ8z^EH+l$olI$}E&nk$d=XxxO_AxbE<l1j{4SWq*tB9u_7TNN$_50F`Ng30N7B99%
zob;xqrVNyNmy(m0;Xoi16A=?z3=&dZd;7bey7MA4lt8y1HwBKb$57pvMe|TW(4-Xd
zSQ+Tmh(do_EwcL=qlUDKTI$1JviK|%zjOivl|hhsY~Zsbuq<n6s`z7~xb2bdgAAoF
zGogb7VHpXssQRL)rKx!_K0Xqhts+1Wpa4_g{f%8yOKS{`m21`11i>E~_d9+vsOp}?
zpp6?1R^?E(?IK*8<f&k*#8VcLkYEJ@qh)I=Qsnc!n`he<x|ZruY^e&kiZK-UI>B#T
z5IDXGa&V)F&uqbL7(37GxjCqIpI=r>e{*a~;tz!|H!Rv*1!rS0UQ-m&Ev$EgK{1cm
z_Fu3$yZ;_-`k&)=*(Vcl>3{s_-EVri>tA@E=)V6kxb=Vda|*}$-mchiWhee6ss(?!
z-J%xo^KQWqNF~p>x0pbf>D1nbWtby&^(nkpsg?T42KfZiR?TAHp|VMWeZ_oEgC7S^
z<5>N^-M6tJy8}Vq=i_8K;q^5@cqL6);ei99S8^G&DT*K85DQN%jj#<Ig9w4^yEu?{
zUAi$Et4xWA6h6qz)H!zSah=1?d&{BpqlNIFWA*A7IAVB%We5nfom!Awrqn5JF;8jn
zO;}79qr(uRbL!8Zz?5o9CBblEYp~`w75jO_IYhQR3!ae|S-aK~R}vfe?xQTe)=$bY
ziOH)g%DX4TZ+<oa@ig=)aRk9%r`a7PkaFh^Jw`<YpPEVnqz~0wO%o-WV91^sbZG(_
z08x;S*RLUX>Lq^bWq?`5`}vcHgP~2^2|LzQ=)E4gLtzkOTq`ZjfkeK*=X-3uO}-wm
zDTOZuL0M?xUFFug&iUc*m`=W!3b&AY&(jzu)JkjU2FaT2v|Y;_T2>ZOVL&k|heGcD
z1uc(0X4=eoi3@kJ6wCe^MVH8HTOBoT@8PxBtg2eFL$0i;I<{vF{0C>>Ul33VhxILO
zX(_G>1fwQJL3>s3%rc=0<P9v#mQBtE$9>cI<$r#7_kjZkrjR($Q5!dIT&}w|<JBpq
zwW6YoARcYXaa;z>a?No)vdcteCTAmeY4?7`JU6QbN7)&~i--t75`PSo?<h5`22|Dk
z2f}uTK-_woGhY>;2Ln}BS(y^LFt5Y!muo7CH&aw7blU2&?R4|80wSNFNh03wqfCOj
zOP4O~J+pQrK&2Bn@>Cf5R!5nZk$WfL^(9GGeh)hJ+k0NNwD2P-kBW{iMU`xivGGYX
zErxP6VoIM6QW)l|oudyNJjg^jf#136I4i#z(V0!H)YhgQw6fYvD^x*FeKy5&8CuWj
zD02`7BiBwVtNXhF>&cPo70ocseGSPtX{f!8$pvSn1z8k&Ey7;JKftK+MKoZ)NUmg{
zKnG2TC2DGFPM_|x5oj2wgAGV^A3S`Rt<?VRhC;Lq=4a?kGd|xRVh#^Onr8#Y!pz3D
z1E}G}%a>1QnB|+681Ad=fxPTWs|5sP6a|Q|+htPiL~wBVq|sIB+jUQ{@jaUn`IR@`
zh?aqA!}kCK!u_h_u9D)rY8jrvnt?Tp2}_~{q!PwT+O<h~7Cb51;1X?~Oi~Tl+q#<|
z47VOUV8#=QI)DB&l%pUhe-b=^tY8v8lJCIgn8Y6mq&+)m(p_}@dOJ{>B3d|!_u=r!
z05TAOep$2Sg$kN+NQl}zQYo&R%EvX~n=f9x7zSS^yNW3n&YGYKgmn@zqxOy+UFd6P
zLK#c)Ehh!|9I9?nGIkZ6=phKlm5~`rgMSsyi8uH?FoN6rH`V33930C<z9c{WLeJ3f
zc$3<@)mgZ~yZ7(k0bely2Q43;r{&Z9%3i%uQ>SVn@|%9{RkMRwLjbfKM2zmH3Pr+!
zMMVwU(Q|ShzWeCWPD+^KfP=Ojn}PO7*<^sfKQrPU!_S2$rk@nlf*|F(#AYcep4YEm
zmmN3Q28(o~WD=yd-9O=v_+mWKNY<^4RSP#t%~9O0g@VQkoeP3)Tb?6HMxJg0K$M$e
zhRRJz-OyEKL2wY6<y5}>c&01c6!L{rfx*GgngzgMDo$~b*de8QXk*&fS_V`rGEBrl
z>-TOj4|UrJ)H|-#bhUe9wM%>RPy&hQ2wi9!l*vAw^Pa7A?$F+Ol!i3%K+7wgV3Ec0
ziTvYOiPG^OmpcarTzsB&c3R&qC@5&QL;fZ8s-vUBbrv8WQq!1rNB<0&Nj-gi&nC5)
z)ma4o!%_mIg&<;jb88II+oRNxFDeu#aXX0h1#CgELKlW4Zc&Db%QPLSn%v<zLmXOS
zI&dL9Jw1xTsWmV0uX{APG(2pLRwSgr%DS>)UQ1B$LsrE@S%V9D3L3SBMvEI0k>zr>
z<a;O-&LRyVt^**YVGAY*B*dSAqdzLn@Y<a^r%}Mjwn(ktxqHCQ`D0GmK<Z#x1Fx#T
z^pAmo3|hm*;+y>NJ*Du=l6)_GkZAKFqN(Zw(R(>zG3o+hNmysA1kjzm<jPJ5Un^|T
z@SXR<O*7<+i7eSDzLCQB70yd_N482zvLWH|_*s;Z4J>a3m44lz<_dO_8ssmiTQ&vP
zk?EUpuO)^)*MRs}ualrXKKK6DuU{E~9{T!ALKf!yD0Kq^R+`Xu8iHo53I3sjfr-F7
z0K4m;_ZppV277d6=eqWG@K{?KBr4WDYGQ@Lq%ABY#V1Aw$EXz$P^d^};qET=XJRNC
zbR`QrOibbpXZpc^ub6%Fxu+exPmEZ}))TGIf)1V-fyy(#qzaPRcZJux)1Q1)3H-eQ
z>IrM-=P*Kj=jl^!WL|tRi_y!ao8s+;Ua5EO!^pQ>pSrj40n31OU*w~_T9%IuqOl}k
zVxS1N1jHq+r@_0t&_?gxUK?y#68m8LuN7Rt%?YUZvZ4^l_~FBYS=6cJil2dWN*KNZ
zDPBSFOx~e*JUOoQL&z>P_U>Jd(+(>B(+C5i`n-Pj>Jx;N3PYPIN?-5$Lm*fKz9mLV
z-P&6CbEZXfcekyRET3ocdZR>+Gb^j!zICpT>VPg5%qD1f&Sl+%OkUMOISRb1^LE>T
zn0zVVAQY-BB^)(4T%Av+r>AQJZlVs2Z|`}uCC)3ktE;Qqn^sCfB%fq&w=*^(BGXTf
zM=jRiI1Qz4jT0kq)i)#*{92|_ttoR@x!Llmvb&v@?EV7>mSCy4Jzgou353ZlW*68n
zyk146rC%9bBASr&Dj#=!#%9IAxJFH_eNdiJgF}`trr;(rsL#EDG`>5p+MhT}dCZM2
zqE3T%fUhmmD3wdhC~-q({)y?IVgtNMT<A3hVkT3R0V?q50mCHK<{u}1n+Lng>ZUcE
zo7s{pRBG1?z#Em)RTdsVPh#A&762l|WTMFGm}h{$*zVuMMi<7x%`JL4A>l?$D8giV
zstZFPPETgB`?{Z_eCX(<LTgR!8lxA6ldBpGkvvX7gbNwjyygdv>>b><8!7leZPK=u
z!6M?{>z`zk_+shQ%uMuqAe(j=pbY5c^bZWAr+`Ec(fY{I`gm_Cb_^#EPvoy}?_26`
z)L%5s&^dBMjOqlRy*iXG&S!r6{{8I2{K!I{i`8&Vor8m3hKU_kjS52sb-g6Q?Dih(
zs@Qe57hb`IRSf!md!Ky4cj(J1i_b`yA#Ex|UA%F_#k+Ob*WKUW-x?FRR2UwIY%yl4
ze{l*3xcXePx$qq-w4Layh^`xlxvYcoE#*{SYO*_}&KmJN6$WE0fPnu<&jLh<=qUV+
z`~a^Vjze3OlvZId?W&<nTiVm7`%lc{*JiV72QOc%pZWdk7uUjjC2a<r_PV(kQcIVz
zR?NGXoSb}MWPEJw6^=6<1-N7fZu7Cv_r2sipx^1Kvl)(c1t@t>0wqUrV-b!uJpJnQ
zFOf3P<mmoIV6G#LF*I5v3f^rqKDsoCw4hajJs45DW}zS~tnNyYR)FU0-T0KVuNnHt
zDZUWi#}WI#kuE8c<-qLR0o()chY*@u=uh_E24}e+KYrA>58%Md7uG!1AeATi!X#ws
z2$v~Y_owv;6R#gKLJI;rJw1Krw{Pp!p!eC?)3dfBOQ?~bLNr!W;c+f!Lg`2i?~QI5
zo$aa&)@`}0p)ofpiY1<C1bkZI@Rfb0USY9{cdG}9#JoZ+_cEz#`)rpM*i{#w<VKbQ
z1sei|rkmxn19MuLu!xDt4%|Bg%&bbf8c3w)re+};cO+==Fk!Im{smQ#>lO!Z@3{rD
z%|6ogLrUO)$>bK*ia*(&@6N`=l;ii5>~Fqh%*@h7NzYHd;SN5PW|EdGTd#9hQ31Pn
z?Sy>pX`PgldmqXc&VtZLy3nBG)N)EwQ?q8cva*sXY^<t+mHz|se;mzbw^h!WC%<qz
z4&?w9k}vPk%iOTluW3E8>YOhH$zw+3xke3pKF6>nibf;JpYg$iXApE?(q-AzEe<Ts
zE-o^#o~Sz5z%L!imw}$e*fb_@9KCq_T$Y4eH~e9Vc)e!kO8B}MDcT0{pjGl4uJsH)
zIW}IH4WY|4K0isDqXrXY?k)^P+Y)nk&q=SNk<+V|f5e|3yH8~>=g}h;ii3ye>ti?4
zm2hbmHHxS=Rj|tC+55Jss=B&&HvIbiTN}<##<q-E0?@&~B6r~XixK%6Jom$Cv6X<d
z8!wT*?ON-)f{$;L+5%?s-ern2(<8;Pn^ap}_4w7j!o{sf?xOQub{}r5e%#mrt(xl=
z9mi_SUCu1>6g`;459mX{tg*3iCCF@E0edmFuwctDS$flmNrOX}nI7aoZtWMgqP4-~
zM965ThK$iJ!T8_(z6rr!xKc7oPe0vHxU{nlz8j~lC&5Gf-}7W7%B-2<soMeTH8x?U
zJ2pD14h71oNd&(hzH=n=5Eox6C@82H@KcodK?DpfD^7Lw>i*HcVNiIiD_o233ch|q
zC&FffOut`W4U74%rAvxyMdm+KP*`;sF@>V47Wzoap9S1}b>*85uqecybQB=0m#E5d
z3JTHy5xpucO)=JbUd+a6tH?8f;??Rr3-9fR6kU>O_Pjkv#MYfJo8zU`wLt!3$y(IH
zL_{8v%=?W#d>R4B2ce#RLQ+ny;m6P{3NC=Z!kW$6*!asOuDPaKy$E?zRdq5obv=x0
zG%%{O`G3BM2n$naC19dlo1ZKK%DAN{$tblHK_*r)hnE&z5<KIZG5}wPBEkDX-$Y}R
zKorTkMGvC4nu}dP(b}sGO$}ocGwAWE?haNwC61U-#{Qk*XW#K32P90NzR3($x(?W$
z6xu0uQ&T?ZW4g7+V{&b(wN={!o*;*D@#1rK5ink+-A=91HW#K)?cK?{gd79?zmJFg
z&ZqAXeL9O0H;4<?GqbZ-K-;UV50W`r_|EC=?&zn0Zctt7ZXtVn`&-b1a8)k>qyy5t
z7=(aP17=_15Hnl8dG{^?nLhmL2j~InZ2fFD0JxtkdGh-wCP<TT1ub^THBD6UV~4)H
zZ?(?dH*fSjTR)J(3^c+xE7xacW$9X43KDuoTNFx;<o6)NxuN2hIi)Hi!--e45Wj>)
zF78JpOWF;}p+rqls4e(|kR;>FnXLssTBQZpZNWDLjEcL`Z3QD8EOi-1=b|4x*pMd1
z?R^Db?%aE><;$g^(~yW#FA3|d8l7_?@}zEL#Et~s`sr<DMa4rWo?E}7&w2K7b?$D*
zKnTUqQRq<f{2tO~VPe7)7P;VUCN?7acaNVUK0}@e5h8LfKcjg&44Z(Sfq|2sKN`i#
zf;z?{=w6V4DB0kbZx}#D=K%T}HnqDC4-7;@^`^5a+m7Np;wc0vtn!w@&l&tUu?z@v
zX5sy#&YsmceE6E-7@MFfFF-b?4<F*ZaD)D6qPw+cLuX%K1hnIY(F_5J3S@#gM}=y;
z@gh2p7}d43=5Xz<Z{L`JPNSbfTUXZ(H41-lFOny8B>&s_C-h-cQ~u|neKI?PHVWN6
zdpNjR7OASLa^TPa&^cR;2OERhfLZP`$72nJNY!K@<Up~N9z_N9Wk-jVsv3%eu=*kh
z)n%}%XL`TtAqa~J;f6-n5~O-aQ<g?(t`W?-bxW8e{AhSoM@|zrgu;|C;6HV(6sKdy
zq|qGa|7=T1+)LvbAF(+lt37*!=Wl6ngdQW{rPlg9RJ9Sx*$_-12KIeQ+F@$6OEGj_
zm8j$0a5NH9JSP0{<43+WUpE6pq@G~kI?`Bt(B57Ylhg{No{b`vCbD$Txj)C#diHPN
zo&p#17#Ojxo2TwdkOJ;;p+TnTHO3{&*KnL)rR=i-;I`|;=TOH4<Om2k6ZLAi(R7Tq
z7*5PqJZfn1TMUyKy>c@Tze3CyU~I(kP%VDZlq=-8YI}$(<{wjadNf;Xkr5eMezMB?
zUFxS8m|Xi4V423l{q$jq`n_|*Sle#xbAN>7NcP%4|F?gS2_0Gp?ihf>ob2tzp|kJA
z+en3+bJeP&jd`Ht8w0M|10&Y-#9=A&(iki*0w+=&@`otMW4lUrV9s|?jg=qj0n1A%
z`nfr|xle<GgH+d%37B{gpGhz!bV-c@3rc~`5Wx6y)TpwZ8#eWR{rdX-`}g;GZ@vTc
z0t`zR7;Pl`>T}5O5iQyQ6m5DQtP+A;1N}AE+9Ji@zD4B?$FvlOOxmu3wXCAzHC};5
zL#|wgxSMeCkO66Vw~oW+$K9u<r@N3Al1e7b3)+^J-P?N>x=N&s)tF_ai-ezHi&qln
zXZauv-SjL-fuP(7TB95UusZ>T@t^@z+t*kA>-%I6AAW4A0{<})D9xY4nE+ta@_ojK
z2m79MH>sCi<YK&=n#w?d7ta_S9cJB5WX1KISzfgoNRwDtdwE)VI`?`r@Q>1CuZhz1
zlu^*ej5Y_!lCYwp>(=S7{@XpMfBqjZ@0*NVwCX`SndyVSZNUr?QQu=~dJfX*Ii*Pi
zTdJEo_0M+>LD+FETAYxg5u=0(+lJ$MvHgu%LWp}J(aDG6oav8a<U74#BcLCC3ZLPz
zN*sQ|NJ%3OIh%5+0_dVAdW=X%3X!=|79gj>i)--Jf5wFW>;L`VAjIVA<mZ2BB>jH{
hNdM!H{cnG6PUxEWoJv_iFbipC*WY2JovCRZ{%@;HOX~mt

diff --git a/reference/plot-13.png b/reference/plot-13.png
index a4ebe0dee02bc6b3ec3ac340858ee6ebdf4b8276..cad5087f82f30ec59122bde0885f28c7bd7987b0 100644
GIT binary patch
literal 26204
zcmeIb2UwKZwk=xbHeq8zQ9!|rfQW*UTTxUL6a`e0f`UpCB`LAnR!R_15l|3NP!LHX
zp~$5zK_p8~g_4n+s(>QAu}Zt|K5yTB-nr-PebaaRx}}<``v3K>Fz1+Kjye18aaHBT
z3wRe$D3ryA4=JfrD0A#6lvxHp&Bbr(e4qE@$6NyyWhMN?pRxUE&iFC^>Y+2&DHJ|e
z^6w0<)`5!@$~wwnrC(0jJ?(C=f2?7hq0nC(bl%)WXZDKa3Crc4JhypqV*jbE9Tq3n
za^*g{nf~%(Q$&IO(r*z*OVb0ls1&O3EL7Vzf8IdpZ$Izq|D1hv|IXd5AwT`$vSWvY
zeP5#hzviNX9UtDf7W&`F2r>?8Ph*Y8^o>WIF)^}ZIIwIl4vsm<a|U=Q@Sy<@=apjJ
zPj)lNEA=Dq7LuR$)o1FFpDvG<_Rl0QUOaN)e01H*+3DoJDO)#wnL~aa+B!pw{8T(L
z|37dEn;H63gMOju>9U{l^9?Jb&SZ;j9&u2>y<LhzRN@v=1mD(}mRD6ND=Enbi(T8@
z+0LGii(9QU`ukzLS@>A?#<iBAv5)OTmQ8mzuS{D@2BN<2A3p+(dM!n#AV5k?G-LSl
zp23eop|*XD6DLk^JF=M`OPohPSXQ1f&hDW#@{45*tK-s|9x0a1IgcgH&OWv8O|ks)
z>%4;+8XDc1?B0O^FK5{p`qa2xvxn5#-9?8t2QF`IZ9So<$L~Bf6f7hd^8ESwuwwx$
z+XHR&x@nD0Cp0ux%v*a^(P6+{{~nLNLtLKaN|Ce6we)UWT(o-UhE&@=eliL*r$KLV
z!<>5`Tdzg451NTHDzx<ZHV0a%lbdp`!Dn^cq4#>Q`<Zy71N--Xu<=R>U0}&apJ)}^
z+}MX-?zWF=i^&)Al3m)I>*aN8iTs{a>#mg;+dzRt@$&Aq#nN3-Ey=bG)>Sq=_J7RZ
zyn(G6AQ@fbl%gXV<jAZ^9{eQSTy5y(5hQ1SkY?V{v|nKSIC*+9s_HlAKX?Wm5ezQg
zZ0+Ocr)*|s=FX1Nrp1)XM{9g!C&@WkkTuxq8@@%)X{>buV-E15YC291`q51-3oe(1
zwF(OhYp*q_PqrMh?y5Aq9`*Hu>*mQ|Tz_JXMfwAQ9p~Oj=4MO`<_}>!!Nu)E*4EZz
z@x}7?0h3;`gC8eq6HT;7CeOaTaCoXC)XRLJo>^lYJaN5PuIjb;!so}UEGI?>4hQQ`
zk5?7)TjX~Q)|$k&vha~jUWw=4|Mpv8ySJMBlY8tb7M)(f&KRlG&U4zhapPERZEf`U
zu3fuYoUuH+?D+$nF**?iv)Y7}UUmL`#-e^EyO`r6UD|6|4YrMD32G_}92=8z`xfJA
z*EJM;5&6wWSS#nbD?e{6ed^}>ob)C)VT1BlC!+no+Vy3ya^BAqSi5`o?r2_i6@AKj
zBA-5?vRyCTE?_bytv5BfD<(}apfKlhc;HHfsR1uq&2&U~klRT$xy0<|>0Vp9`>(U+
z<xGqXX?Lex$a}b_`^^UfW_OJUv*ARKB_A!f;E6=@vs+wl8&!OFrO4^Os|ir%zj0x>
zqf|&xP|tCs;&j5L6OqiczD)K*GFyB;K0ewbPo%A{JiXEOq%bJAtuk7hC-k6)8&)CQ
z$A?Gld0(ADBU#CJF^Au2&-UJQ%x$C#hce4Nt!Jge^jNXsKvVV!EiE3b5l&QjWo6Fi
zmn!5u54;p}+?s0BQ`>FlB|m;i=X&Apye{mj&HPTIUr)yy9c#Ik@+vaY{q{nhoN$H7
z&KJd9v2_0Mr`L`|?t2&OG!hx-G&#OX+Uk<*<Zu~zjdKup{=*$R9B_koE;9}{x{Ic6
z5l#N`n_YKYZiqI`e84++VuNPXY3>?RNf?jxft)o1Pl_Ejbt>5Q*4urH2=|v`Hf6gT
zV(aEz<I1pSd14}Dd_}ZZE?&I&L4K=2L#nknKDuYPWWV?1LC>|T`_hM0-P@Cd7C7?J
zs(zopEF>mIluNe%9p{c=VVm&8Kdesq3FQ^tr(eE&Y1#SGZ&NJ3ShSLr*FGeE`SXjG
zk!&9Q^uj5Di7)e-8TNf1ReJU!lBU%^W6pSad7A=l8F!Th9CvXkO!U9#8*2|15Y~z@
z{qUrFZI5N+O19H1Oux;E1Az+lhcl)p`_$z3O|~mc-*C-&9T}O=>Zy}j-A5JjtZq{-
zv`FhoIw<hfspWyPe>ZJRox=TqKHB8&-O7`c;4n5AEzirKJ5Nu@^re?wnAQ>XQy3{f
z>75zOu5b76k+SM2dC{n>FkWgFq%9dx=(Sp6Q>SxpO1oqo?dJtI`0Cy&?N@41+uQoc
z!O?M&i!Ut^`_p+tu85deaaBcyS^PAPp5JgI{tn1+HY)V@36?Ncjjxl+Gm0OB>D*}O
z)TP~cCCNhE@6x4McG7*;8a!8t<>U9-vrVdEj@8cNxBJ57G1B6#mgBZU_+gcVQ33V!
z>(@qXeY>x>EkA7y-w;b5iMB|zyNAt?Ekdhb`s8R>UXOiuobprbD-VV}jB*If_%UYj
zg`ERE7S1v^<gCAyZ(_s5s|?_}2bGl0oH+yAAyg+zd-(9-Xs4R9|Mpo|agce2pX+FE
zYq2(UfBW|B<DD0eSap8B7{1n`(UEn`D4?>UB0K%YP*TlwQk}U<t)ITrjd)h^{LN2)
z&gHY!!82~%y7jKWRKIIp7g^+J5y$W=c*JVXBfc?N+Q0HWK72m`enp_S<ZJ|eG+XQ;
z(^!7!Nk>(zzB^k7Hu$jp)WldE=FN;b{Y{HrYe3y&kVSpb5UCZrXS^enR^vS6a;5c?
zPiaZX8;#)L>52Bk?6>)%DwQq`zL+MQgM|;PoF|$EwCls8$$B+S3>8~cuwLBHoEnMU
z+!J7)8d2l4M#}u2OmDK#4ac@8#w%M!8`5mOCRvRNf`SZ(p~C89OT%AsL|!mcE!-XH
z1P7#Tnqk4MbEDPgFk4uE?8w@y?`DuKZ3pY2y-1sua5?OpQkL^Xu5-eb;Qd^CUzB$F
z@&{?^>NYezh6yqL%r9wr+C5&J_O$f0zCK+e7+z^(PoXg%?ZQx^F^{ND^|#3+t@W{n
z+E1-MAMSCwClcs1-g(%*t>8)Am5SG!*pqEi^t+~#Yq+`hyK;GCFl!^T<D|^%R}quq
z&?>Bd*U(E&k_prP>eVai;Najv{n+%uBX8C0W8>>r_E`UQe2&dz2#%Jx$}cBhw1PqZ
zZVyMttLXd!V;_}6jEjRx(`@^a`~O&ISoC!7u_Duk4Z+2^?qZpb(;2(s<KP-L4*a^r
zVcm^MFXsuvfJtqMS#d8~f@$iFnU2~T$|^w^_zOpPQ6;!aVvdN521Ed;c;H~hPw`wM
zC0Y~v@_HTj?Nm>*#A12&a)$z6tDf4#(*1+{4*l;pv2~p%M-JQn@%#L`wGy~DK_7BA
zhpD(<vt_;rEel)FU~I6JnA?$&5syqsEiEnDEaNiy+OA9y<|F~1-Tt%F5A3|w^6_-a
zwTt!6)0394dy)$dX~pXC+16VsFA|WK9UtyownT3DxVNF{7<W%^LmF*-l$@f^dUU5r
zNp{k%HMYuZsf~X58zmHl7z+n0WAz2Ps$#tsuaV5Uvv>_Lf@8I^l!Df4c}_hkb1jt4
z#~5k@1Mpa-SMn-2IegB<g3xL+VR0@vGCqI)yk{V58Er4aM@w%t*|)ZNZ*1%nS&rHT
zY~nPlch9$Te-#oUm~(ISGIHq0$Hz~n+gZv^^nb7{+S{&l`SN8YrKmIUo8(6#)UsKb
ztc+-8<IY27TVFNQfASIbwyBEIt+Sik6aMr1fugseRpMrzdzz>%Gj7Iaj$he+HsMt%
zliiypcA3}_tVU_~X=ip_W0Sv0%watNJh=GvwgS7!k*a3+a}Vq_m}Ma2!QFQKUuFiM
z=t@lJ?I}vOkg4NLuxWscEzb#c^`-3Yc(te3K5eyx^&se{9`G-ZsUn)P;mVaOyglA|
z7kEVy`@coTCVe}dq7zg4nG1vH<I>c(gV`!Q`<~#+(EG88`T+{Z&5bYRTOSP|CaJb6
z(>FbHs7S`!Mn2f<u=l2ovGo4iVy4%lf+t!wA7%r&-P?P;Eh}$x@Y-4PxbB%Zq#ihY
zI8XC=C;YDM@N)lhe^=kcT|y4VjkLh89N&?2>|L7sHeq3R6|sz6oT<q$4!U6!>6E+n
z`q9tk=5pmCW@D7_8MEdl#C>8~6Cl`=a=m?J+`}Z39t^9n>gyz+M?jPZ8zv<;z#?-s
zcV9Gjdh4voq=Yf+z#ZrJxl5eG4r{o?9P|8mVdsf6XP%_%rP%-xro;4#Ft@fj)}82+
z!eT$WF_WQN4|L?8;3uY^S;16u9xpr0E|Tdp)flyI_0ihY^X=QWj+*#(F3lQwtp3v%
za_9f}ofszW$Qp4G-Q0v4`@W3O)KqCfhPJUynSUCs!AARY`0ihO+TvBT<HPz}^1SQR
z&EqBMqPTSM*>3t+cS~FM0+yL_S|di_(l+1D_N~VnshkyBI;F4IB_$<E0&VDTj14$@
z<UFuJX}DT&%gCz}p-E$JUgKU;VXA@t=?vNKhKjX-E|#NTU4eh#qMDWkk19n9_$S#7
zG>tk>_f02io88Xzyu1qoe&JYlOe#CaV@<QCOz$CvO!Ga7vuh29)?FKV$?redr9Uk_
z)kU9*T<jy+SAJ6MSgoI~&6&`7FU&fzM?75xoRYJ}>zXsIIX1YE8~$T=mCiB}6~r0l
z=D_Byw8$9I1WHxPvhQ+<!P#)amd<finD}}+<EFKe(kV^NocrtdC-Fu`MMafLhpEYr
zU04evBW};^Zh3BkEv{$ZlSrHfuVX@HYHI3<cZrdC7j}v}jt_6ydZSO$k$@`a=_$*u
zXj+a*Y)0jlk1;@N0G3(9on_50yj9%@6fJgQ#@j^4-men(kOv;vTxA5)O+3Vgb#gfM
zYbJB|U(fO63rMg?{(5KhlUC+Zi}ZnmfPPf!tJqjC0{(8a2l5Chdu|`yOF-yhHUN;<
zGBsIoy_=mcTV%g=bu|M%-6Q+Nl5wLw@k#-_lMI`47<WY@QtT+`rB6>KPfxM6D_FnI
z<G+-k*U_dbH&ULAz1JKTVD3hxBDUIi@ZPGp!hvyCp8&##L+%34#gcx2>E_3Vo_C4W
z!PMzE3}jmlWb^Q(B`7_QF{~vMnbIB<P>@bs(G%0O?zj18cjs&kf4cP6yd|FP!Orr6
zg61i$zR9h=+WtM$x5XURw-p7h5lip?gX`3k+O4^Z-HILBBo4olHZFR4aEWOBXKc{s
zhbp3%E$f--7BXGmpQLaRBQOd^5J53LtD`hjyMm4rHGuFdaZedDXN|=@b|0Ot(e>Dq
zPezi2i@>h-kyo}P;kcYe40Mlo_v;GwQ|GC%f#EVWn)b0CYre8Jcm0Vb%|6)X-2Sg0
zv=g0SN@b@;o5f+;04&>O8t-abWbFR*=~Gf#ky#3YkF)8Xx@k5Z;XyaI70I#cHNCVy
zvMaxjFn19{a8Jwq{Y{8q?yV5k%p$?Y17-fZV?*t^h}gK{>^L6MQ+~W-)$S{&);doN
zl)hBy5-ocyZrGGirs}?0!iel1!`}LoI2@V|gm9;{w8+>D5eCLJI<XUnR<C66+jnyl
z2en;0X*)TZ+09-G{0moZr(*XJ1jpIP7e3x!wfEYEdu#XZyoms(cXwiy^-=E+Tr%4c
zobgy>ju{Oy2=3NhZ`#MmXvY3IIYGb#V9DmT!T_FpUlDgkhJ9|y^Zm`E&0by-MSFy>
zIU4!Hf4+F};=q?%OL8QNWtZ79ZWtE?$;puD3CqH9psF%G39DpmObL!az(mtE<Qe>N
zR*&T&AaICthoPZR&auygaLAN@mn-R9t_Q~ivnexST_B#joPFx-%lJS-r6?Nz9koI@
zo6PD1oXfwNEcnkbFXX%b?tuOQ|MN|~d#1EEf?;qC`{VK{wXX<y^XZeIph0tvhf~mu
zOWsE}EhD>!N`)6)BWb$j+5yT74b0{vUteHvI7u9QL9N*d*eM#1{QPK_^=I^{mY0<L
z3^<c5I_pv>5M0OS)(riC#Kc6-72y(F`VPwnvsklTBqLwHJ~9<Xte#|m$h8BC+8U=$
zCEU<g*~OWTe-bhEpPin6E<N@i9K~zczh}*#T8H99>yCHte0J{bi1i7ramKWJhPFPB
z_2Q8OF+VNXAP}d0=1g29uK8^7?DT|y-HS&oi+-!YjJvEHj(BxXCelmHW;NbU_;n*M
zx%0o4{X6Anz;k>Hg7hh%@0>C<1wO))83Mq-TKMhx;xem=uukxtqTmK;dvm^3L>hi8
zkB9?pb2{;g#v<NbTjZH>UfGtpd^`xbWjc>?27Pw3H&~)<(U6~sJsw2>Sl7)2KFYSG
zvm2^OTw0%b_3IzWpp=CC^34*>N}l~fTopox>gT*BSFVI)W;(g%9P+LhvHtJOPs!y+
zj~->gKl5{QW51p_dGch78|6?WF!~1X8qMglD{4%WKCYNyRsm|^RaBH|Stg&++&*H=
z2<mNq^MT7<j#({4jtnRsFcHn{#%U)2)Gea)i9rta<DIvw))pawI3NW04soM`$HdT_
zI&~@whI$2v1G97t-*Tu>Di?f&o0Sdc$+f$7nDmnXLlxn9wQ;ax2#)5?Cr1&)Ze##3
zXA|^*04B~L+YQblPm`@0EH4L+WYHSQ?egrJ;)6J(7j|-@Q4))uID3|NsJ+;$HQ$ft
zYXRpL{*~uvGRz_nWdSEDDP@64<TcB09~vmxzvO^YR&|^qt(Jy3-f}Q+GvE<ImD&{W
z;=o&#UCU=!I66A+yl(sD-LD==(Rvxuk_h3rAN>AKTN=T*kYE!?t}D6QIEE)l&GpPJ
z+E!50jGJB2$=C&Cw&;^}^aH^8Yevo>uu)PP2JLY~MI~TuI4}w~_rNFNSkoapEK8p0
zmoWGg<zRWor1s_N(IFeku5G5ciF)TH+z@v@$2Oair9OPPRKb~&aOQBHLVFKv$gZ(3
zcI)_(9E_@&9am@c0qv|L<g^gDO?vg*MXP>pgy(4P|FER-^|b$P6Tzn7_2wrLa|;TR
zSP0V?|I1ZfU0of7Z-t&iw*)5EG3zYon!zfy6=vO6X*`OqkMb^r*t2?Z;-p`G{;ZC>
zFVFH_R_kIF5gThUl*xDP?j2Lfx(?@PUon0Dg*>9BgKH8yGu+(VjB@K_OGfDD$xObB
z3Hfj=&Y_Xb;3*4N^P;kTW8l2xz)deZ8FuvU<{&%4O=>~)Ti*1*gj&20v$hL(SZL(U
zY!h&<R)^bkfGah#VH4n2v7aFgQ&H%wHlx}a9!qtEHQ!CdJ8wgL6duR4`pt7}<olYS
z2M_0*(AG9l=Y3HfcJJ*m_R2S&x~f1Ci`MSh5tBanDH(9cpfuzFu%22L&ZFOOXHC4Z
zl2ZCuTR@@bNp0;l+<lIr0op<91<9T)+S7c`h*nizzQNFX?wW61Zn`rm(f5nnWhxps
zZ%Kl&-|(fd^_tTZ<x)I&m<{28<NHJBUr|i${`gjx%#z5(olo}kB$NpXHi5r1OE4?j
zU(9e~_ZT^IXM)1z=8gjnq#62<`J&W?pPZe}T^Ji!2NGqAn3xxpiV2gfY3~dV_M}on
zJ*8hex)FAba_N>TcYoW^*acn26334H9!caj;2p6wr`UasR~o?z+X49FzkwAmw;$nb
z)w8ktXQxMMM!S(Hfr0q%RV2GTH5R*Y0E|SohL-LM!bT7X8JEkSRxw3FI3e%6tfzag
z8+>}SHE)%$W)$`AvdstKQ3>@A<U%VeB6$wVvyD$2kod6SmbsGcw!#uToO!$&A>m~j
z$5b)<Z}NJI6{a1IKHU?SXU6WK>DOQVuo!_?%6{w0@^U3Y(Rn=B6xr3)^mI<VyY5_y
zNXN+&t8Fy}^x-DTwt%lfv@0jb2)KXzZw*<#YRuWhPx~v^Wg`v2XzPws`PF2rTc#sB
z$Bfpnl3*}|j++P=dKDe*LChK9LkUg0*1G%z?DtT(48Ub_dyu^WOt!f5)Px=K9tOnJ
zf|Xb$ZlE-H>Iiv27u^G{kKYH7e9jx;ows;wL?!HIY*{X0_q@6K!RmBAgT>$TPDO|Q
zaTe#Fk%%H=`Om<i|0VwZU!0Wtuetd9<RY1q|74EypFW)xFRSNRZ35(ZkaxjNH%Im4
z$}s~!ilQ(f-_mAx?2?>jo!jI+Ff>mwz~|A#b%q|SKCt)7INo#0-G_{}d}+7~9w=1B
zuV_fbqB{9`^+rm`0^kC~HC_gOGXmB9M0F=7W*q++w6K`X{C8Z4(czu~H=EVZL28GX
zskr>=%UAw1+{l?!yw)II%>%X@tPLzb;CU9}I(Hpz%4LFtwt#q|Qg@qF{sr1KG&U*}
z*QvZqTh@9lMRg=UNg_~Kv34wQv5cC0uthl&!`C*OlG+$hI36%F@R4g2$JqYg4Dam~
zM;L!<0sd!(bpK_;{#EjZfBMn?J0{>ykp&3>w>+wd)XGJK!$U`cusPOw(j@9^;<lU2
z?$v~(@>Z4J$|XPgMbkqZ`LNS(&iz8(ox7NKxd6L5w+R^A9V~s|)s<w_l<2DUGZ{Fq
zS;h+NnrMbIz=a`l%!E076%*q*f7zy8Ysy7+l6R1(1wl%lJ-DuYpt}|lUBKgAm(>xj
zB-HKYT+B3<i@V=w=M#buNbZ3P;avv?i%?1lkXaTix+P>2oG1`Py8ct^$}`$Mbfk?R
zgH{Gzuu8({=si$g+qP|Mil#B#0L~?epdc9l(-5hW1AAo1ja<U4sk`lL>&$3`L0?%>
zQ9)?jEg~Ww;3QV8SRsz=W->DIz>R+NiHjHFYoeJ55pLqeDx|0!nDN0L2+Y93l*a1Q
zlY3LULJ|^owG{^o<ok&=)`XMX3Z*0p50lh_KmbV6L0$mij#+{TGBx{`$SvpQHq7;G
zxY8J-o0db!d2a5ZwnCG?kRp(1Kx|}Mt8^-`s3+*>gGyO0GiLeMPk$8hx<{pgaeE!O
zZ8o`0wNs$r7v1Em=atfVzG!M_?5<6^*7}J`?Wm(!#4kD5)kt>+z=k-Z=k!MM`FG6D
zpO>7e^975WjGQ+xD%i!EE9}2Q70KIwKs)iE&?sQ>Z(ZNMHQ6_^_2Qcyz+Ydo@x7{i
zN~`Ltg_sN1dha}vyK>W=YsLHI=%&klzP{sQvz`@77H=lOPH-^~@gt8OB{=e%yQ+Rc
z@>>U?1j*A8sN6hDVDz1)Blub&gRYlrBxz$}1v;Wtrth@%^#u^0T()_N?0q%}+UnZD
zld(yE#bu@=^Lfs-1CbKH^$WoA%Cy<%=9zxlQWx?;v=qTXGhsi$Y%d{;xMzA|D4@IQ
zWxoAt)?X2h=Zj7<5tQ5I>x~JFC!3=g0TC7CD2Y&b9haM5m$PSLo~0Tc;%f%3n3xDP
zW$Z{!sY&DRo3y9_B^%Hnf9{>jg~QaMb7s0j&-YT&JTd%;DfwUG5DZiU{vzCik_Xu^
zeNNnuh2FHRis8s=IJo4=yw4Z4BNryT_%J6u;E#q}0cY7ei&igPw&`efTU4FA<2WK_
zgoF*<<EezWS5oQ*WnCw0gGkC@I8?yQ#{Sr`W91bUiEX>2f9HF0mg`+n#S?OCvnh)*
z2l>ACB`%V64rlIwq&^s|IQR3*^z`&Xw#}=Nxspq4$<*X#-9?J6SyC_rtZ|;yRgfvi
zm^a2d!?7D)g?er?eb1R7nP(qnrz5mBPwfn|n;6LDkP?wGsjsuIN;PG8eI(geZf?uz
zNtQ)o1`;Dgt3jpiX?twAK%2v|z2oZmc}8E@Rmdb#2#Y+LBb8bD`l_urQ7ZwJ7$A2l
ze(}?z7Q<_QAKO&vg>y#nreP<>px-TMQ%+cr5O+~GD$A(F+@!D}&wF$3yI*I~ZcdXl
z074_llwyQ;JW};n_lG8$)rN$Hg`JF6NlVQXEjqI!t@<LR<Tv>hK9<HK1AoGhYODwr
zcVsCT9XAdN0lK+Rlcy1>dFB?6dKBVtvm$<(mi?7UBMYNbWbOOEytgctV`Y^`oHRrZ
zegMg+tY^R6GHChuKpZLf9)IpdWY}*ctf;HgFQ1<)MoANtush$5pv7gM_$?l3PrfJb
z>(*C(_uL)#{(tG>$esQ^9EtdCUOJBOZT_X?eV0wkWxw>m8X)=;_uYO*z2i9tB2^!K
zKZ`-Kw24)EYi7+|L|vx3hm(vz{;|ZB^O26>1^oRavqI!)+}!lZ9*bsT|B+c2Hirm`
z2y>n<nMdwYa(RX9mq3{FDBU#4DVFoJ6!a!Sf}oIAkOYZxagbc|)9XcdiGr=fl_LS{
zu)@_3DuLR~B?=}rxsg-pQ{!Eh*(<b^K;B?4<|<5CuD$kgz2(RCu31p|2rs$#Jpd22
znQtd0b@j`;<neEjq0rXwI}Vo;(+pDw35z&5eu6J`tSdC)Ol#gUML9Qow*NBA#nxL?
zH#O_y10hac0kWu3CXLPqDU3FVjP)^@<KL<gpmS1Igd=%d(_OTUqitN5Xmj>mT1p0s
zA+t&K=_>b?B5q5Z`fug2z2umu2{m?;)yoIT)8KJQ&a|6Vch0atRu%-CWRdJpK?f{x
z=)4%r`1T`5ju?Qq8yJaomLuOn+MvBil$(5Q-3oG-n<L*w-!F0c86&ZEXb}>)yY*z4
zl9Cd9kilR}9x<YiWo*sUks}@`v~ZFT6oh%@i2I&M823i)<Sd?gsO~I=jwlZa!vWcq
zNnQgP9s@$QaC4KrO3t()Bm&}26Qjh<A`z&e!672b!j7rrj8)PyD}pY5*Kw-*F;`hZ
zP%=;!Jhdw(rOls61_qtL1UmGX=({fzOW%Qf2)$5TRer4H#Uv8X3Cd5%15qM0`(11y
zX(P$PgMEBAJDyvPRA}WAuZM3(^BNC9LKyRGH|IW9v*#?a6S&dx;Kd}#jb#qM6wCf)
z9$$G_oIK=XJg>KtE4pxnf0@yTgWvo*GR6%!f;b|ZOHo8qGv_tY*;1Z0Z?${J9?Tb0
z-sHV?_zn3L#q{}$l35FEIg?}K`CIW94=QMhW3@;x%<1AR@jHbT4s-h+Zd3_@vo1|E
zsoDd?q229VdVpu+<TM0K%Tqa8Q5UXA3?Sih*+b@S9=&RVX=LEVE~^DfCziBwZe?|v
zJO<3+3rFxkwCZW_p2un>jElBgeMdTcn(wQ=Og0NlKTZHrsxg>uu&EQdJPnD_HqIx0
z=H`Clr%!!6p$|i~pshiK-zqq--Tl=3<<<1HE62q2&U9~655*u}YeYV@Iea*O+3yko
zlRIl2^l|?!FC0V#HZER_uht$5YZblEm0~*D=T<2^x^yu|XTv~(+<mgEtIOLaRxe|L
zE*BZJqN_%~3k&A|NG<mEmAL7~=_%HW$x<(;gui_%WiS4~1ZX9`tz_%Np&z!#(%u&3
z*nnprw%NV2hZ|AG!YV0&>X|h#+2^b<Sh#&~GE`u43(~*A2RO2-2{wJ&{(1g)EAs|+
z02pq!6Eu_?VspI&1c1l}hJvSMou=81xnx<1$ck`Amhb2AY?uVU6-3f&e_bFoA@^DE
zczJjeeVR>gR?#0<$L+Cp;^y_qMr>!2x{NQ9j+Fb(#C5z`Ab-o&dwQaH`W~@q9+fQ(
zpK-nBmwtL~`J!o28J{?-*zu<J;@rMXBq=*jz+ndw;i>p;zk4y?_W;f{(UoBjdMDoG
zJVmur4{yIYnA6ontxKd&GR;>xmkHdLCQ{0IrO5uf7^>E6F$4K8h)V8~d?$I<mKi1@
zV|9&Fm3kXFSGL;Hv$S6n#J{J))adCX(=+yqmXOOSChUKwee&e8>G9ZU-mc1M6^2X`
zRS5rhQo#l96X2}svof+KNXu{f+6!`0fTZ?^q0jkm7Jlk};`CVX^x@hivi&YsIV9P$
zK)4KDs6RjR%i3Li?#fx+FVpxX-;Q&NpG8GPM23lKokE!ihOYsTKU|9w^KX91qic2I
zv(s>?@<KUT&PS*JJhaerAj!T^G<hB2V)qGf4!#SuL%m~$ALNx-d&|PzRaw9&h7i<w
ztT9hsk8C_QL1afa#TQPpS$+B)4>{MAeu3K)J`>vS&9PEgAZV8@My8PVEcr2chvw*i
zPpi5FhJKN-3w9XH+qZ;6nkp{CzH@?g-8y`qbG2RXmlBE5-w-$vzloKWJOZ72I?mt#
zM_-<WNu*0~am+=@^F-};0f3w&$8F)zyk_8!g<__OX5M{HtTf_xs8o(~(M|1sR6sIj
zlyxJu8;>=BrY4DK<dv%o8X=I)9jVe6Ktzyp@9z5jcM_BjlaEsPRMVo~+vlt{-te^-
zIq&9yTmi3#55t!1CPF_s$OD*LzMs1NSYbAjL-Is6&dr_6Z*R)UT@$ez$$E4<m;5qs
zquCF=eHZ+61{{YsvrwwBzPq5|7`WS@glQ-V{*86(u8H?%u6JGgFhSzUQSV79=U27B
zq`Do~ID?ap!o<gBFwcIDK|U<T5h}aWU#@(AD+X_6+#ESlTVu)$o_ED4;tpbs7a7Rc
zulQT@S*k1$n4lfs@<*G5lPeeB*}uIqFqmp>yip;n5Oi%p3B||+?DOOJ{*v=}fXVW3
z;5Z*2pwGOGeoDuV7240cVsQ6PBcw+p-Gw>;xI4ovD)---raENblc8ot4jM$1_@$C(
zqj_phOToY&4kq6ue(<2m&U)KM$GXWMUc4wu#eR|WmGW1~lgzqitS?8*fNVm;CAP0g
z&s2x9g4+Wj<s{{;oQH>9H|{sT1}l|C1j<Ntn<Nzz)6(ZWZBO(TJsO<gP|>vl47Swj
zJy*|7bQ>$UL(MJhE2_&&><i2R3~SZ2aUY{ODyD1VS9)>%<MTf&={#I{`zP-GS5GWF
zmc8&!N?Md(LG-1>N|m#9ya_L}V{03BS$G|4C`|v|ub^a$R{E*h0|k#x{Zx9|a`&#I
zj{<hwdspyuZ~Mg54%J%)jzv#C*tU&1$hHlP7L7S&2KTX_jy=s!Z<7eN;1nHz<u54X
z%=hr+1B>l!U%h_q27{Z6N3n0V;ymi)zEa;yoLA41e}LHe8vPr20f^HP88^r~G170$
ziQ+u&v%Viz=%939FLU5Wkw_7Iw0-~kdCJ$XUk_l%*O*2@nglC*pWY+acS8+eWJT(7
zat9arXt+A)+AAV#VCdY5L}q|ElugI{m!n3){?w`E>EAuGeB=e5Gi&4>>?ZnM748v8
z+Y5E|p0O5hWO037fB#U{)-&(ca6dTmlF0h*QmG`<VhLO0^Y;7uN?R}Eed0VOn4l5P
zrtafB=hCp285a50wgSK~OEo!W>;CqQOYGM0@($Mh3Fy-w&Px}mYH)<-(*J{#yP!OL
z8PdE-*SpY2rosrwDh_GoQEXrzdPXY;DpGoc?cQnY>hg73rRL}I0sUCkUJn2Bu*d^z
zSZHChXKQ5+`aFhA`jL;1LpC+!byU<nNFdbxN=@cIdU*uNvB3LBUWVYXm0wh(KR7bk
zDgk%&q+MV*#8g9LmtX2n6loGLYfN@asOJ|`b&0<xil?KS%FF|BB|^L0<Cl{rNgAZ2
zw_B}Fdx=>7)vGNx!Wbt0yzFAfIfve!+O`57ahvt(5-~8z_EW!z9jQVJDZ-udZ2#nd
zgu1P!QuXsM^XtzT2WoVPvhU&0F*{s+b_J9jdnr1@MfIamJW=MW`^}g<2*$Y^;Rp9X
z<-9SBd#Tp!$wRujow2*P6kR`eTG82j7m*8U2%6oM!LiKip8vVi{$#ke{4i_#R!j(*
zOb@F~FE1=Cyxl7aGDg2&p5s3sMq%^l+BU4f^p-R%_+D<r2*WR-M_S!!CC$5LjbYxy
zjbnAFF(E7wHU^1XO3TY1HQIJOcRh$;>bc5ytWpM_ArGx-X?67~QhtDdqtCI={l-vR
z>xTv^6?hxLp$@5g8GueGH^{zsHLKB?e*e2)U5Iak-`ex-Rj2{(Xo-t+^m!{*$OLcl
zIg)M97z!FiRKRyKT-AeQl?R|-6(fcL>wjC6<F=luZ4<U~CG{RdDiRK?w8n;w^=1)B
zmy$4@N+n|J==kscX%0|m9|E=sCer`Xrq1tX%xj@J_umru)6$c@)faNWeXy>lkkRlQ
z7oksrVfx#*E%J9;(M)STpJ#&%k)Z1WE&s68<HQGGKj&MBoqqG|1Cv#MT`e+~b1X_S
z@fMHH)nA;52-FLRDY1shqE9<c3@J=spJI~({HJ9uCZ+*WrYwbt4+;o!HhJHLHhcp|
zvw<q4RVZ(`M}%`ukbUGnF%DY2Y_sY;D``G%Zcd2=W?Ae9sCLxM)%v9?1RIpZJTMo#
zK{Et{OhE|@iPg>cuS2eyMN;4qr(XX6wZmuT1ixQ1P?`Oi2m?vl))2{7vm_Z*%QTV7
z30V|)h=c4gc=Y|zj7f~Z6>(~tClZ=OH?oGv$B5~wgyMjk`-AHeFWbzaKqPVPmv;?w
zEQh0B=}d+%;ZWfb+)>{!lGDj~WBhi=_8-`AVC2&x2IBNwsHO!2RUwOj5bkDk!uJcD
z#Ragr$g(##PER%(VuPl2*L@`hj8upS3W}z*Jbd-4!{-Om7;t+SCW-6{(O<&V_Ppsy
zGOGip8AGK~p`wxF!UGyS;!ubs?aMDNW_Tgc9J|UQ@jc3bHhlVYR-pnR&R`v)fo%uB
zhb@lk;0%b2;E&r25!@qZ3&=hp2+b=m3dN$61f<M$oV35EU`uXb_hD+<CYbdp*Xy39
zq<sKSGFV4Q=Y>B)j$mSfwCLj+PDIE))^loG#TB+MkA^ng$?;EcACEJW2^q^+540p!
zoz*!xIWx7sLjhYrfd&xSLv>G%wux=NVi<7;jL!rUa@;?I8qOU6i9cG{8s**gm2e`}
zV1GghV|-r@`Tz_HWpFa4&L0*_wa^p>AN-pW&<DK<FHk9jBeB5R5Y)3O@18vq@|7Sm
zNT0#YLKbLPn{fGWx3o6Y3`7p7q-0u~uobG-HAH&+qO8*)fDnE}N7I|I;RDKfYFgdj
za*WHc@rvw@VU(VD63olduVXI|;c%8JyD_t}_n1_}a)>#^4t@t4js$G<UIlrO4bf9G
zqDi{|Ga@%c;mFj_?N6_(#{CFn;@x)MvULU3C1p;ZWImR%&?EbmB<A6%2Rv=lg@^{_
zRYb(rwocAa#uIRWN&VKHJ9og^6JU#@iL+1q!$B{8-Hx*FL)OM36RG^AOP97-(KvfG
z{TO0fJ}~i4GJg3hQtdgvoFYaTI@pJejJFq6o~L~eDT=YSq<C<w2lYJ9N*XxJ+HZW|
zOvrhF2cSDddPLB*&~X9hDj`4doFUk#39^}U4rBTHo&<J_1D=gG@z7TZjF-3q9dkpr
zKebi)-l`Kn!h~@WCXhlkE9s0fGg3N9ic|un8MkXVmz56x@<SF_B7@M7g`+EM<;Qs|
zAq3+F1<u%K%dx(S!avUI{o``}@3F`M^k-*Jo-7k(2LuF6Ukh>jO>HFy@^n<)e3Tl7
z<$hP^59M$htNmI^&{NK1xX|L1I8Um$??+x{>7S|k<3FI$?>_>?4S&|p{^j^IPQ3C&
z-Oq}P7iHSB;n5l<qsO3BJ@e{&M1+N#ldh%jXzj)9Tla%wT>InUHk|S@>W|T<XCAla
zJX^^DxdnEvi&m?@lIHw(hv1(d{JXpUoxA-XANc=imw3I!ddBUCNLnK^L-v0b9LfqW
zg(*AJx+D=ur`GCEe$$ev$VC{}Omz5-Q%qVMDpiRD&*94~0ji<r-c67sx;t>9bxLYj
z@$7Vh?~!opN~;e79JHQ5MM`s%yBH&45+wp0vJ`B3?nOV{m0)DIoX+5^i(G~AOa|~7
zsXQjmiPRJ4fcR-bMORmO98nOF@=0j1o`R9LM94^zMI46F!@@yG4<dC!7dmvR=x-bR
ze#wq>`DOk5Kd99fI<#n2GLGHgHrF7RLnPUIh6*HxXnm-lwH#~pBc-CGb~6qF$yET?
zzjS@y<1tRo4-(;)i0fBUdWu`8bqgS-A@x}>m#DO5UNPf5Lr*7bMjxgsG%ikDP!Q#k
zHCF;Sq$Z?bvZW^09BX3rqH$h2DLSK43C)Vh(>9a9fu>T4k~6k~!{U}akdL2hVQW_N
zcBA0b(xxO>{7r&_{{H@gQ0=XrEd`%<fJe97NP$y94WBOeO7hIkV;&svdFZ7&NknkK
z=Qf{D7JlCm?5Fa|9Hu(Y3`JK`Uw*&%P+(=>ECvT;U>z>SAIn#i3MfokO~4x|=dA5E
zM&$x(wkisbc!%%w6S1C8vD&xI=bKia+8ddz!oounxAY#xbg<|%XKmQ$JaI2UD74$t
ziLSIiJGk+SZPbT4|D&6{8%2e?SW7s>z?*;$mUHIXofi%PP=W+EORCA7jCO8<g!0mL
zrg@gO%HDc7I<wwbBvp?ENLt5#Zi!Hl^655;djF>uAayoHdVN44Gm^D=OCkhu6UHTN
zZEX-`h*=&eac+@qq%2(@s0zS%0yRe=_<(jUlkH*))f|LyV6!Bvs-VX<Q&PIOS|Y3=
z6A4a|)W9txBfCnix?Wt~JG9!RA)v~%LoP+fJlw2Uq2oYJl(XTSLq7#SkdAGn(|W+m
zjqR30J#X2SfX%@UI|T(vnW|nS2aY}ynw0-?3=06F11tLG+<Q?r&7zSXypy7m5@Gi;
z&XOumilY6vBjPVo#i_K-$L)ao%4{IG(1_0HL_@;y5V8zU#;Ioxc4Tg~e975j&ZWkc
zU(7CDqIx+EhmQ3jo>WqrAXU%=2|BYuXf$I(GCHe4vSe-a(^*QcL&_0waobvjA5P?S
z);G>xOpU>D<u((`tRH0h@+4lm+>~{fQ&$Hi9G^Rnm?t!RLd2~TbtR5{;?05GWEd{$
z-y~*OAY!Noc`x^k)DLsK7^X)1*=x=~-Ew);IWOk_pJo&Pp;!8^2l;nG)BpQ@<v(#>
zoH`J(utN>BLkRvYzc}n4w&}ydb@SCDPC--Vo4Tk&3NM|~($njQmfSoMmMZOkM0YlY
zZyN-={!Yx*5m8a>p{pCOW}rqiL|Gx~MMS|xl^@i|c!j{a^R`W6^D-h+-m1S_c%MS}
z3dy?3wa4Doxg$JU2|Pt^nVR6GN;!PL(8v(s?Mu;F;~ub<)ew^)sh^Uv7dn9>I^4rT
zBO{etXCHEbDRN@Td_r*Z-KgHQ;DEbBe^C?vwf_G#7ij47zp0JXc$5mS<#}q?gs6I9
ztWWBqEmSZloo)V9DyX^>H6_QJ+@4+CS>bvx$sicOi8ASio<7w*K2q|_R(RyA=+0e!
zbf}VUs^t^2XiM^)Pbat$!*po;;D-MtEB`vAd``Ejqy=LwsCwH8B=9|eiLy~vLUcun
zYp)lGL$RRuZII(-Z3Mqe#*;QHDDYd0LL%q7{~p#pf1C4RnRqm=K&B_x54mSNza`R{
zxunI<X-KR{)i%)<*g?@i<O457mys`>+dPv&O=dCdiCQ0A3m++%CS@f6FQkVFk-m|F
zf^2u5TvWmw(cMPArKm?=Vs|}7hu}Iyx<KvSZ=F%|V)^;-X4J@pddb&DCUT%iLO5V?
zfRu$Ns1GWY)G<byg&lpel$%>kc0lPbSnMRw55^kknu)d{xSvI0A(b1gTu8DbLz6>5
zDk^U~qN^D3kFc`^A{(Qkr!__j`s~^&10WuPov(Q;=3r-{&3(S#)i?E?&2EcWH&eri
zNXj!Ik{x~fOIn}(ks*HjtV#}uhWswXMrxYxWeH*unpY2NhJ|z>YA8t2cum;FX90yq
zb&JTe6J44av#h+lye-bL^xbP{!y1~gqbPi<PMt|%(-nFKq#i_f>kIT#9==K+=R1)k
zLl5ts^n4}X`Qc^EOc$<4^y~D7Y1>CLm-RCh4`gdEdGBd$r;T#@!MckVdt$GYmQGE*
zNDA30`qb)lL_X!&k}ZwbuMEd}*;1D8AEQ1H@Au|`PoZpig~{VWO$8b~AQqCWGi}U7
zxx<26b?mNRP>Cpu`~e3DyF<QV6|erR9Gb8pl_YEw8ryX}<&w&OW3rvS!4>%=3sN3l
zfmVq0b>QX>kTk2k{2TB6?PRt9tj+oA`oaUaAO#T=ghZ^dZQ)m_puwmWJQn|JsQ`l0
zP#MuSU7Lu2U$d_Jv5!6IN!D3ivVACgh^Q>E!;m%x#rfNug*G*G)O_0^ID~EydHin`
zwVV&umLZm*QctSx-3Zr7D#(aZ5fU=Meh~2_qp(X#D)+oA-%8S^;I1$y%o=q+C5ntm
zDz)J~f<Tg>zHHqHVy%g2F5m(A14B{H1d`rsoN^@hKqY0%Y@Rc-o*mb@uz1|_ms@kK
zW$dH2Tot*y+p;N(R69437@3>^Qv3_?qeo|1crN%w6#Ar>Z{$#`-C2tmdKc!3Z3tMM
zPFemN`O9r}dWr4ug}Jf2zti^r14POHUgq|dn>tTPFp<TJ`UzXFR+MT$crXwjJc%7Z
zYNtt0vb(}F*WJZVS&mgVM??e-f#uiRJicTveY>;9oQeuN(8AzLD@fTMFi43mXx9dL
zO~99J+hptSUm#tiNFnt14lN{!V|jqGp~92pJvex+Z!^WJE?<oP)LHGaxj8dv=H#Ov
z6`cQpX@%jSD5{fU>VY^fN8A80{F$aJltZrxyVa=1L|n8~YnI}}V}a7U8DmAZpheMB
z;E2xR<J%(8JxJJ^qi>>E1^$2DlR!X9bs&V4cBl_DM8Q}bB(2q{)+VIviNsv4Yp)$T
z8YH{-&JqE=Z#!okdQ61AM1Dv*vXCxhBG!8;8?roEUcT7!B*nzxOh^wNLTaAcrV+B>
zSM{I!XC|CSW%s~Xv9mnL`?Rti(z%3W<e@Z#{w%dC#vRFB-w-9r(rwVYA~m5Ss`X8s
za_Bx^pMV8aN2#Z2=DMUukob+k7LJ(s;>D@UYsMGO5K|O}C=0yFW|9^l<Rd3*8DpCv
zO!Tp+QbaL$bE}`eC*s?&u04>@Mar{MinGBg3vgRZ_I^gCGm(~YWU~+xjAE4hkfa&h
zjhubc-G%4b3X{sHyCfliHYMCzy4D(SIqfV`zW?R@EyK?*4wG`#rJA5Ehm}P(KY5`Z
z0fP4~Nr{pXp>R{H9*pozy$<Dqs(F{Pi2zv805rVJ?KIepw8-!D3})77^|}saB;KN{
zxxW!6UVasEOKBqH8A%%!Zf=CTmY|Swp+LZ{gl}U9q4O4%`go6Jh{<h51(avGXp(kc
z;b67V+hI);ns{BF7!FtPATnQKdgh@&-C7tgafi`<bw3RHXAch#Quog(brozvp91h0
ziWUep62A6L_4XN{3BW)`pQ9M5f+VC7(ddxYI8<siU;$B~4<Pza%kqJ7narbQjzlM;
z)eIbBKw+DoPb7*{i&08U7EaxF-tbO5jSREVd79JZr!L9Nov7rYYx|i<X142R%IbkL
ze!Sa6QwM@baac8VKd`yOLQjqw`PC6=&K{%%RgNz{eq^Sei|Q({VD|(R<a3~A`q8F_
zbjTxeI}V{nl3^w~n8%E!>%nXt()|Eg&_xVX%ya5*Nk;=ne6xxEoF1&G&?IO=X?TN_
zQWkg&bP3GNlqWTW$e3abJR%?JNQ45T(4;WctYFYl@|;s+2`Sr=(|jd$SiFW^;Jqen
z3=IwE3*)xqY1oCMfAC~NX-4ScNR>SlM{n$^0MsV?G%~R4M^0lE6tj>zByQ;hgxPfT
zhEmbxDp4Vufd~LePej7sqcvMyXKW*wNU~y__9lQZCzSbCz!$#UwgMEDAkyexNivX1
zg$F3zuGg^{uHqSzveGL>bykrwR$2o=aG+YdUlO9ERtkCy!ln{Q=Kyr{xj4Vazddvj
zT!uZ+L^{{?Ikd|RbjKIxyuFy;1eCVl6aWY({@yBaK`!ZzXQUSv$>_$Yf`RJREK-=B
z7^OM0X~~^o0i3dNw*>=BhA;kG`}D7NHCE?FzEu!hfOHD!t@tSQDYaV8<XZ&Nq^*5r
zk+GSzp_w<k20Gmp=8exY<e`jnA<13R#kIHPzQY@m?im>$3x<|tg7Y_59Wo1t!pk10
zhTA_+Evn(em3&!Sk$Q=WHQ1JQ0~-6GW=n8#bE0Cbb@`^PbR+niW1iB)GVf3nor#yc
zS%F?Z%V7xf=Pd-;?T#cQ>&oKWi<UnB+2&sE(M>0ZudklY)_R>=UA&Sq9u7~2Jtsy!
zNhLkkE<rgB%?hFM2>-k>Cdv%vuD0iohYfLI4R>?r)wb`QNpW<AKUa)}<MFg`>_YAB
zKw_+;NSInMgvEY(H!p9^$1y#$ojj?D(`1)^F5+?E7}CK=%;D=od>$4cS73THSKSxn
z^Zi4JGM-iGKrIaLO!DZE^m1CW0Gm*$1aU~qI@P?rIJWSo42XpBeRNmKA+@xy8z{$L
z26J(h9OXFV?sYx&!F&?+D|Y)J?bzcT>l@oWW6?UP+e$}SE5IT;2Et`=qCw3?R+dws
zisG1L=stx43VW?gQJvy|hIMYF-xNxq*N_&P9DN})_%;IWo>#71W;1(8Pl8b>hIpZG
z@&p*pLV0e{p3WEE9Nps3Zd<EhqP8Z8>?no+nzrfPtR?lW$(W$65P!sGJ=%IQ1WNlm
zTztI56>!S$wX~|t1EWc$J83<F<QyORVUWf{xkTBG-eP8~<RV#l*l14AL!;s#KB$q{
zhUhQp3EF%Wa<-%;UfiY9kcKw>YI|v>P^!X|ZFQ2Fc0G!;2c9o++(HC+=tD^qQlqfi
zd_=76*JWWLn^>8dX81hKFhzz%+w5hjmSbpJROeH5KS(xqp}5Tq7p@ix<>q^&F|Tny
zaHrN2YIdTBXahwBuVI)eAWv-Ar&FyiXL^ygJGMxFw9}p0RZv!5hn90Xt!#i`nt&c{
zCta)312TLph<e*uBKn!>A5t@sN~YDYP`mM%9*okPVhyx7t2GDZnu3y~gt60Br^>is
zSqc`T1o{JeqAkE8=|-?-tX?4W-gP#6+jRSGYGpcZ^3HSox={ZTYb{h3DRUOCwEEUg
zB-r&HQjBUNeH29%O``E<AG5ivy1F_dZU;&hbg<%H&Rjj%VJewkq_I(SQfFs%aVw?{
zflV(un08%VTliR9h-Oxo#MRYTV7IO1bjP<8`)kf=>{To)S)2Csz}0EDo%C#NyJu2*
zByRCgI#!^MLb1hkPvexC6Pw88sZ_{kax9#N0#sR~UMZX8{%I-B@K2V=LmY&1O6qk_
zCM>Er>8M0YnI>99j#(r{<=o0^xzVmNI;jqdUl{RF<wOUxe)2>!)4lZV2W?3YInukf
z=bC+f%}2No8zPzSVS1~EHzS99bvqGuT-O6u;B-?;afXo~4$}@fSn2LaY{90xdzjUR
zwgFGlxib`)B;AkmanQB70~6p5TD)hc%4CnUM9^9C^aUvk9i10O&~go*2Un$abxBe-
z=tV3uqCD%%H;PZ;7CP7>D9C~&@0#Bv5z#sw)UiKXG}~RFxIPWthOQw5F1i?Bqaz(y
zB!?QJ6w->Yu?-Jg|1uaYhFVy$r{h9CjHm6qB_()`Nau;-wKxNM_Y_mffVxaad-M0d
z%}F7tk?o13_YV(u3YppzAij1qzz_{oZAXJoU!=k(2OR;*uQ$BDjNn<O!U}!y+JG~H
z$VEhfAN&IXt^;!vAO%SO<OmJvW!t%Zp8ohEvmPMmT8*hqcoMP%jEEj&8Xn>h>Q2c|
zV)68Qk>4-si+%n26Qb~!A9CX$x{<PAq)!ynkQ$?*AfX=0*C8`i*?}x`IeCDf6hwF}
zQ|-=En^|aF(IVi7hlz}hEha6qQa}?(H<FUF^5`L}gIdP@%nRM^*L2rRlXhl<W_X6;
zdQ>C%YNJ$xJYOyoo!_pLMwFQiM0;?4vd1I5vX*sWyH#ub?Nqw1qsP{AyY5dnWO&oE
zZ|bowU~fjl-%<`h1oU=7tXIWPwBh13v2znsNP&bFI-Q+62c9gYO5Zu7!Ui(nLK+(;
zA|rnaVNA>iO5)3y+39FLS73%l5fx6E5M1{yx0)cGeG?my{~R(Szp{-CBR!Sq&Y)HJ
z7`e>elS(Z>A{9n;zUQlu46M5nfX9}BsG&AP-$J1s-ImI(=p%?tLD#$1I<yJ7=_h&n
zCq0N&dx_lRfKo4dNSP!a+d7jGbZ=58#-w?gbYO$oL2t-HH0X^ev_Y;@3RMX@N-d<)
z(59>J60v8S4WA3Qi<VFJd^0&}Y-J>C)0)ob(O@7OYcCChR!O=vZAm4fYp9qx)gWp?
z>G@M6yrxg$(7ZY6NJ<Wgsv@+)k*I-$Jog9+3X+zOF}`&|q#r2CMWQMkks-V0#D+rN
znZUp3By1?1Mf|e(F#6J#w(>%kHUzcLL}6oAJ3<3dR_SMw#3Dv3l1=F9B?=Q)5htSd
z#Y|L~$Qj|{Jm0>hL3)Y)4n09b=y7|2G<~RWgk=*ayNpGEr7P>X3|NRJgr6iw1_7$@
zr@g76v>YeUG?25|!=+YeXk|maR%1kv<tVl}FE=;oA(6%-ZvwL)cHi)M#&w>qsg*}8
zJaY}?Vr{Fc%qWMX;lGccLa~t-8vpHuC@FKa2|3ragc_)ko9;;zA(xA;hc8Zcsi3J$
zM#H4cZ!HF~rQ<dr+D)$O=YL@dOb-aunfl>j2*9IK0f?<r?!cV4(2NWHE4~>rRuGwo
zv~|o-u>!rpi4ZZrl#=bxTl<m_Z)uKv$ZL=F5JfLEPsM1H(LCN2>qTrHiB{mo0KR;t
zYvY0jF^M4&5fOFmTVF7E*+kDgWo!lUF6ll6QmTbc`nezj{82#@io8OBG(;<sY_q?8
zew*yxo&4@2=?q<c+KhFbK*owE5DGhv^`I6fsm2_@3)lnUPQ=N0P1}O2W-4&RN=oRT
zQ}pP}4$?_8fNfK7&E3vK^13~_9k-dj-D^2=jx4+c6f*O3=?(hRBl@%yi^=hku^t#b
z`iIQ3MPC>&MFBlTw`0Rb#@QXc{t$AL0s^k$I)5TEAfXg#+Sf$d2onf_{=ra|wbRea
zPa)Hx-M%#ePc5=P35jkJ@IdP`p#|mduHCy6$4@8n$R|k!ojv(6u7r`|ZtW~%V$16V
zlh79vTSvKXMc~&fqB)yj0(sf`dsGf~fpq#rgOs^Tx|<drukQXb-g-s+l&{3Ig_c3k
zFYvSC_UGSElM9SU+suLkHqW1Scl<nDSuLjdv9e;|6z5JVtG8{sA$xE+^TuLu1z?)D
z_>&lyp!_yETJ_2l9yA%N*r}6(C=wNx&zEmx%@?Ukc9<G#cfT3qEAc=JR^vRh*(T_0
zl2Bs~tPOuwXw-~K9c(@%pRMc|G=Vfjkuo5~WVC_d1mVDGkV2vARftuYO(lYkUiC)D
zJP7ZH>PQE`De=w%En_1`8%^=teJU?g>1oY&+bf57DO(6QKfa6Xwlr%U$$*|j_p{c<
z^M7y9&3E2UZ}T^iP7JeLUsO?AoQ8T(66$bsL&0cjTiJ*ntEJ}p#j-<3ozfB)vJ#Cy
z+*wS*EN*U6dea;gU*vWo^k6ngETKVE_?bH-67?Hb^=IZxW6p=_fEM~ZuAS8=h$~T#
z>peI+e+d6?fok&q2(VC&70>4NlDlCh{C$vpnb?<v=7Sbbs42SU9QulWICB+_snB&6
z!QZ7<)*xhcN|WIcuWMMmYR5Wx6pDgvLI^3H{?<{A^zd<xi$IG&9)c7l>+}G}#-7v?
zl||Yl!>a5UA!#&OyKxUR;`E-*3|%Odp_`wmVjDG9<4?d{=2)SHO+?>@j_y&&7>e{K
z`pLOOGwXzo#Kf@2hR<K_V>HI3=PbV_yYgFN^yy*~%CkM31I4Ll0FFXXiGa9OweTA+
zQJDa>at~<k7$c`^OCqVPqdTH{Fbi<##G|1{pP{4iZOp_8Fo0TP0Isn0!waZYw3AHl
zB9h)-B+u?9tP-twgy>}Gj)1$_1Tzz$5p0Z|Lz=yQCk>F=+exbUxY%-|Uv3dK=~yiw
z1E(ZCi(5GhUKR8$G=M~mCR)MPavsqd>p{_xFey!(xcwYt5D88pf#E@L&}b$arFlqq
z^)wNqIoXruH(+z@u!)I4#@QZBQ(=HqE|DB*=~x~(v2Vb@<2FqgPU(}O&c}h%AFGmJ
zb7#2x!Ew!`WD@2P%zbC`RIC2fM!F-g;);YYK3GRX(D<-GglYr~UkTx=^LrX1o8_(P
z8J!I%RZ)FkMhY42itQQ8;K<=eu-&$kiezOz>r?gU^eiV`MWoUKlO4)KjYRE7YO5!1
z9Q5E_p@2HYLAC{2sI5Y&P?}?r|88Lf6-|Z$?9-(68iH~B$$D|vn+Tpkam<M){nkXQ
zv=IP9*6Rd)B&LNZNC`%$N<$ij?4M<jag!+#Wzo~RK8*^XLu5TVe2w*y(z8|Q8~i=L
z@@ZO!#6m=&*90AvC;Y_n1crg<|9h@vF;`9C`zUi*s1I+cDv|3=ZnjCaJE4qP&d2)G
zq$Sw)TAv;ZXsC6~O?rN_I4p_6yvGX8PDC<4sY9v^ruLmM+lo96T4INu{B;@<O5$+M
zuTPV%ZNNnypwnpii3gPm0%fEGeoqWT-&x}I_e_mWH!}D_l|KJ|p5hcR_r3ViP297W
zEjy;PX~#07-OKJ}D;f%kpX{dyZtIwFbY%9yw%>lePT>~%g?pLUjy2n-|Dc<`X=X;P
zlvOJ~tmRxWX+1}5&PdPxW@qbL!_#eTMlrFm67up>v7gw%=UIQm`uq2->r2jaGQDPI
zGESdMxw9XF++Dpe!0jUp21Ajhso^s@Ik_Q^&9*l;H|LG+QCPTe;SD>xk3~hQM#jd|
zhkqJhU0GQ<$YlBs4Gl%b#Dq1NhsSg!)b(r^6KfwG-Q(ruwR+7Oc4T|Gbzppae0^i1
zv8}BXJ{!>`9jz(cU@jFN9)82ou@F{Oz(Y$zBZ)>U>l%5RnCNr&?p=IIHQYNiG*nhj
z?xMMQ?}rgjPtUNbuGXd|L3|Y#5E2qPqoY%hmv<OhyqyvfLth8zslTw%kaTNtadAp&
z>ZhEXgJI#}&Q6W+-soA|(%-*>Mx*WBv*%JmCFY=Smw4kZ3`_6H>XzEdVduq^MamTd
zZ5%c1tkkqLmGH8|gUwgt^78W3Vt%50>3WOc3xA&dDZl(vm$~3a5@E{^LFBXJ8uZ3K
vXPfU-_M#%L?_H<<@yCD2IsXYCaGa-*VgAtj-9}e3(!&Q-m16dt`|bY$FFJA{

literal 26160
zcmeIb2|Uz$`#(JDRHqb2g(8#|m2m9YbyAX0gzP6%D2D9o;69xqYoS!Kq$Jt0jb$t?
zmdc)GFvf^N7(*D#7@q4hI`{89zx#DR_kI8W_w##R|L1jkopW@U`ObIwe6H(#z2EQa
z>eg9(?Jb)GHeoQBEjp*P3^AB>J{Zhe+aK4%PssNkPr|qLwz}F{@EyJujuV66+s13B
z%-k^;p%C;hNA#De%NWdVjE>f^^FEKpDgO73Ju5UOo0FL9N^fo2WEhsza8`Ni)zGjV
zecUylZXa6k(XFpGdLXuO*7QM&uZnMed$~v6%+r`_KZ!_eK6boS@~VL0p+o$~ZYTWQ
zfTL4Is-4%{-M?tZoghE$r`D|6>`kAwqRyHXbT;&p>B~9i55&IzfqizjjBeA{u>a&B
z$RUOPp!v&29}e_~t*2jcqVKoQuCYengMZ&T$$sg+xL|(tgWZpRC`aEh8~69GL*Gvw
z{3j0a#<{=VX4x$+E>25FN2ei4O@;bpUlLsm-rr)p{R<JZJGHV>{i>tmUQyB5_n%82
zex7Ebb1mB>`?u%SwWZgKjJxyx61=qfmRQn#x*PjMe*F6<(x-Yly-nJsue@aGTm9g>
zz0ncY6@DkKT)8sywM|TYu{FB3+df&yyU*9Ye0gyU4s9-P=jrKrCRtsrNn>T{=t#=-
z)beswzqtt^vE%@^-fM5SOfkqV#aAE2>MI{Qefo6j)2I8a0~fx8hCa{C4FB4eUbl|l
z@~5>MxFWuN`*w8l)!M;un<d+FMvtRjRDnZlYRTegCU&Idacj0k@km>`LBO}z<cJ5d
z_9vASohgb}6Q*)17(GY7K8;QFruUt*wiezX5^ybG!aX^>yTD%C%8H^N-ECc35@oae
zExv$ChaW2XXAR}l4@PSUZxhpxIL@WC@36S|6LeZWpKd%#9E1x@RGUzn>n$*1CS7~8
zu^XRmklg1~<)JJjRXJ~KiJ$Fo9nY&f87-`qnx8MD{_Re5^}=wnh^&26L}P+t@!a`*
znFnVGIWaLY&tJT_>Y5xWsHo7BUgYLW^{S?CfhVy0wan)lo0UaU!!nbed@Ixh&l=#b
za&T>c+hPCV!w2(Sj&FY7_yFEFaV_i4UTr&O)yzlT2gTGtmA0y&6`?5qFLzDtK7RFp
zg?j1g)vGeYN&XXDOcCGDcOGmJR45!}7I}RA*wCsiLK!Hf!P_3hTl-}gV~2jp$r-G^
zwXFajIGbrB?_Z9~tskffmu1q5ZDQ;ECQ66hypo#LnND84+<}wVv-@0X!g#w`n>KBd
zF*Y_P&t_z1)-Np$Yq&5}1p<vtOzfV)jTvyYm}Z?xZ;Pz$E4*S9K3KW3%#37Q(aE8c
zqvk8nUfGwhv)uQk-|Xno@t1E0vWxpZbl*3%@-&XvDf`S=b{D;BW%=mm+sADwWuDmr
zOw+1G<E8qlCEX)t`IkaiIaSMxC2)Oc+3RbtX69R?0}J0SH*2f}Jo4(fA|bp|T*bm|
z-tqJ9q2^?&Ej3LyzV=gyh_Hd$?D=p!IdgB$VAFkhN0VIvldtpOt{f<~cRT7ojaK#q
zg{ZAno#0ZrGn`N2YDXZq`uwj1JlutoW@g=9_-A?veD;Z+CI!Q-Ewzz?*oOPku2lS7
zQU153_p|r}Iukw0F13w5)4z_kXXIUJdlnkng^gAlu-9Ok!O8D~CnK7uudSRI_2R{g
z3j`-Kw4Ezw(xgtnSHYm#RP{DjiYMu^4ILiQ6uh-&advDkyhBe<?}%l|&+5|;nlCZS
zXFDxiM>En1hksZaHLVgzP{4(KdK*&r+d59$wr6^G^wY7^Lyc1nvdvm6%d7&tRO#oK
zl9AN#f%js`5wMu%r=o*)WtwD%EiNuT&&`cSt4N*M-E7BfPE=7$3R+&Ui>|ozK4yos
zt(KQk2yFM7in%_)`gp16va+&M>1}zggSGcnyq$M>bzSUc!Lk>kSIk+54|fWeRz|5f
zetfEP&d6xn1|g5LstccE^PDN@P2YpgIc=f41z27_zS=MGHc5E=9L2l1#Na^etqh}d
zI~yCnuW2gdE1$T7j!wWLxKQrn>eN@R1Pi;pqoc;3UcqmmI;FLFr_4U`+#61*h>lFt
z;!kJ1BBM%Nrtwv1X%REZn?xp3)#qPx+iCp5`c^Mh?3nfN;X{Z=`20a3*J>V>rRNJm
z-o33OdwZibmVIJb0+Q=~;(4GeRUt=QdP6YDu`H!%zh%yj#rwi#JseNgPnS(k^fD*V
zht=mw?U-9c)K$s!L6MbtuI6l5gR;)OB~B~T%^FqRm8G}q$GYzA7Z4S7hX-T_QJL&H
z-nq!6t|X~BL->C7?3rB%3tgqt3fxm-H`AUm-u*zyeMpXo&xGgE@cYJX`PjfQ3+h#Z
zi+a4n$aAJb{G1?MSc~ud*9jX06`bA?xRpmzydr1E3z}<R7-#0^+BZGg`Q^)(Mn={A
zK=@$0kwIhSa%XX6$AI)AgC<zq=jZs;FylZmy@+J(3X566j}H4G3ZAQcx5nMmHLzW1
z<72Q|<-6&#B%5gaWW0i?Xjpjo;8dLm^;0SD_U+XMf!|`sWiWGn{x13=ABwUqt?LK}
zB_*Ra2>a{~3k&mlKgFO1t&BUh!L7cp=+ei<q`KA#bu;doT6d4L+}~^ztA_t4jWe<#
zb_{ILm_NptovT`5b>6Gg^=$vY?VbMLx9Ptl1WjHSDRj(kPhMFX?q<LS>K-8%yM!|>
zgIKfOjHQKXENgKVmP$u%U{TFauI<myb$c}@sSS=iiSE0&a+9NDv?KFLPL4BC9p2iU
zPZQ565hbo4kBW<ruRFnS6^CbqXe>Rh!S@`FC*?^<mQTJh!5g@J9kW^SBjBeS6&1<3
zWo60}Wn($xV+Bph;$n65&TNZa*Ise(@JuzS(6u1P>DM-<MV0+^<%w~)2%}uk%`mO}
zb{AzXEQEonfp96p4uZ4e*qPU%p$0*VZP`7;EyuZWGi7NZ=@6W=YNX+|(w+RPLwO{c
zYJ0s-VsSW{7v8QpDG{gm$g?-*rem|DWy#A9CM^ryca+<dmv)eq2P0(jX=Vj>H4o(-
zACAw#xhs#3jqMe+ouB-a2T{B5s27~2Dnym3ySV}TqtqB(UGQ*I3k&5S?+V~6rfLPd
z@ydRQUkGTOQQ7P4rT^B+q1W1w#C!&BiJ^QZD%uw?-8jEUsuC7qcGab7M+>)Rn&y_k
zV#78)QqpU3q8tV|;h0--4`1PFht)-o__)a8S;j1NWqD4B;nKLd`nTVL`cC5)XRa6v
zNtnI-^%wyUYeMVt<;&+yOiudx`oeS322jDsyofn^@y+k!ff9)p{+~yc2_1n<TKu%M
zh2gn#ts{GUqgB71ie)*Me7fo64}nHymn?jAqIcg;3eh_{)<9j!xni~xR-kp3WvL9r
z+f)L9&}w>IUS6JdG$E?>+#Ifwt_a)d*SUTDjj^pywCiA@3_cDK4r|j_$v&r9=0)o%
z8OtHsetvf+53)?{lW6sx&pXJ0T11Ot=WO+5Yk%5ZoJ&vPl@Pqe!$@-9vYt+QTldZs
z9*f_~^%4|nAW7Il_|5a39(taU@jg&~Gp6mUhgVgU<#k0-MN(ci+<G@<Ye&6DN2SS0
zGM7Jikxg?fA6O+9zkK<#K0GX;DDT-0)4E}el?94S7R5{mPaT>LTnp#yWw54C^{|9Q
zB*fpEh6l1w2n2<DN6fZHt1&J-0t9yM!i60?JY%HXXaoGH(Uiu@v<8`0g}dEjc$VA(
zmsvoAt*Vf8tnU4ZQ{|b3bIJ!Ad9-)k!3X#Kk@5;zuQ!M^5CGK-9F&m2d1X~CeUVyC
zNh1E^dD4!ZSw3Ug#RIH4YBWTv)v%s#bA1DM)6~u)Yu&NFi7+N1li~tr`zmUqkN389
z>(=E_1DQ1$=}7`8dYm^luF+GZ#8CpfFUQxEd5#ItVo#?DNEA&DCAbhqFMRbVYyHT@
zq*n#0WHwivKiuJv-A}R!syO$K)RTLYJC4lT<0cgQEG1=kC8H?!vJK>4O1IY^`6K8P
zr%l(V3mVH)(FHWLZHF2jY)gOSb{fF}1nN>!ekHbebmw2DsogkGH1zngMB|UtjyarZ
z2^CH`SZLei#4{B6Aa6wPjXEmI?BkRwe`!^PjZ!*5c6L^4$KjZm^ko*aIPXK0CoJJh
zWcT5wM(lnZsb}oI+!oR&)`WLef|cMLM7~?_OvFS9Sv=*mwJbu%WSRa$xr~~fFC9ra
zI5}pynqkKIxVv{R+qiVSgh*r!k&Tb}dAgF8wHokMIq1$4FW++26JUXqQW(tvL$cir
ziZ_+=VsdOWGq;HlvPF<j&2PrR{;tqq`E*k~K}_%A_KuDY->heN^Rg(N0(vF0_T|O5
zqPF$Q1s0^<ioqzAe7yO#E`>){JrCt?xDaUsLL52kCh1Fb&=NMBCD^3z+%$2G>P28<
z8Hc1`Z~n}joT$v4vKPk3oB;DJeT%PZsC2%1=myW;lhuGSAK=yO8tx0JXN>}MjfO08
z*+y}*zqjJ?o11U#Iet@1s~U3D0Cky0HD|RH?$^Cn9mFC9d0xN)R?v~V^6{w?6P|q3
z=;$cgcKP%~-=PN*QLR6RI+e5^H$t$qW`!BFlDp-u0==+Jzn+j=G7xr>`xLnoffBUz
z!?9k~_%ZeldAPT~@j4tva&hMCw!ymSXec>kOtLQUKpf=ByDZc)J4UK=37k%tAJNtj
zfaeey8k(P<zeCw$#0$&I&#!1+Hv?!t64d}nexn)V$4P)aj#!r;l`I=cJt>kcqTqDl
zNwA|gtXbRIh@I!ozWkzq|Mp(&iA`0YE1>2&K+l5fx*^;kXn9{6d-9RTM;+;3Uj@&9
zH3;f?Jp1LF@_|+WVvi~m3hWxg5b9a`ahri^Uh9gFL(}}!U;$0grCb^kNNzRRrAp|l
zhq9<B;0WxeH#b~guj8*CX?@}z$c11if%QQ=7gcdPa;uj87^?89K}hl8Xq}*!7G7<D
z>_l8-p+Z|O`yh3l$7OD{nX{@hEyuG*nUin170smzA4A-ekgQtzR<baZuvc^-Qn4@e
z+>?{EYvqBg#TqDz`UbQ|rg5)=Ii!P@myQnI$3jR|=*+Pagc9P4B|w=4NeOXNlJpgT
zmIF)E&CN~atRcm!2NbUwUem&>5k>}T^6R;UcjcCUJFTVF>o=C|3L!*+yuxWS|4RcP
zPHV`SUgwt$uCLz`)*Q$v=sxQSX(dwFvLu`AOq7r$j_32$(cVE^=|gcvv#p_@Qgd2Y
zcMy`PQG}2R!I<UG7~g52zHljA7Uxp-^_kDe;}G+rsIPE4v8|~mT8Z9tlaAXiZ*Oi1
zN7Vp47W0bc8~oNgIQfo@ynLuU3Xzb%YQBcnCw}PAEvT;uS6AM=dE>MAH61(I|5}2<
zYVxk!1~}P&J3l|&BT>bzS#7S+M@ane;Q=W0q7nG(7##Xm>B+{RjndZ@xw+J4T6{j=
z(YEb)Va$%3OH*~&<)sBw{AxqO3m7>r5(ddd8J5wuI+37&?Yu=3GEm`3qN3)$k~{1w
z>AgcuiGsTKj@*L4y#tnB#4aV71844|>Ug|gwxI$lU2$RjOzVZp0AI8-Bhr%tm0?qs
zUMTap0_R${CuG;w;~`v;DAB>ndEyUcxV4eCRoy<NrOCHXT&R@@%v_=pp`7$S{5uT*
z^%9f^5vUeLwM|XA@3ig0w=XE+?@$l$*%h=j<vR4h{$y1kOL<^>YDvjaVJI@8PUat&
zAkw4Kll%@Nv@p_F;g3!hUCR!QzyQedwNNs7UmdsXE1p0JIOR~r8K_phdEn0&%($wq
z9QzOdk7S9}o6OuwfsFGnC^mJw+|N`Rq#2j>EFhA_!}!0GF6RN0T>56UO53P3Z~k|3
zGXH?qd7c`;-*VTfw?rDE+Bd89EhqQy-+#{1au*K|1n0mc4u{zDhk4<Phv%G)jYxu`
zOOyKv%syi?Gqde{d?&TEAkIE*`>JaCL!mK(Msab4S8O=wlIKlL`HPB*79`g?JOM7@
z;NhNcjs-7Xd}x-%;0({6z0LBEd4Fk1jU%P;Lw$WgkP&=3Dw3OdIdI12<~>7riB|SK
z{x>sJ|KM)?GbGnPI0U+(x5Z~?XQu!aDe)b-@RL;4lG_mr!V%aP1FzO{M?jUW5T!Cv
za`4ch?oT^VV24ap<KC>s50K^7vFqz=#MGy59i1o{Onv$C8h_$ObR#s!o&qm(fO_Kd
z8{i-Wsumhu9#X8$%yv>CiDRMob9Q6CxxqOIVK%};xq?DK$7#<ndQw<eXeFOxQ7nlH
zJo)vvHSXTMi<l-J9;nYk;kLu0)7%PmlNP<NVy`GWU}jsy4~Jn+y#S8EUaTP7tl$7(
z^=V6<7877O!XXJM(8yQT^a1kGKwMdfNTAO+M02!k;KK8u9-r@<tK<h_B1|2>SPg8{
zHrNQQmFN@Qo0P=hXxQEoSLwi|d4O(_yy7O+afgg-rv_?VXIi!Ep6bN*7(WT-kI{R@
zsVVuR563%R4k-^|+D0FhMuGBe2hN0|I1RC>3U1*oSf0R0O#OvBV0R92qU_+ogQ3Qm
zCN&?^bc@N}DDT0t-Fq^E{lO6SMem+IL9N6OE{^3!L)^Tt5fq5vH@7{?JeZb3eSlS`
z5M@ZGYKV#|IQMorSO8?x7QxGjiq=MpR8cBnH@JQ{ln!tKB93wiu*3kzI>)whxZrR&
zuc3)xj<o_f3!)c}f$g+7-j5T4r~{Q4<Qwl_@1hrDRMJs~dwS-;HgS`zP&jLGxFv(s
z6&CeLYHI4aWC(5AT3SE@zzTTz-W8Y?ejXl|@~M+`e4EkxUv5*jdPVe^8kmPbx(n6?
zWPUBD2M?HyE`hQ)H}A~1S^@N+U9EAv_n8y^xgl^e?Ie<-;18ts_Uh=snJ0F2N>FN{
zn3}D|`>UeS`I%;$2e9)Smn8vNUYUPI{q48kXa{y<G#%xaTw;LTbmCgG&*0cGGQatV
z2ZxK6(_H(zyW*y`Xw5-|*r;yhmf6$O6WW!p@8T}7{02C+#+%9z0bEH|-tsC<xAz<$
z2wuzOkhk0<n)tr@X3xWbcn&3_1Rd>mC$o?H4SCM(>rZn(b>cA8sB=7B@|!q0*Og;F
zYeAf;)W!5%bUfM3mnhlKdbL6QCt16O&`^nE^!&^91C`8)a8%eQ0Te5t5y%4T3N7qE
z<E%o84{cdH$awnIs<G$c=nmPjPw;t~oQ%V{p;yGB8@+eJT`WA7&gmm~_{fn6j<xHn
zJ4|haOf6kc95F9Eh>nIfU_Rb&W`u`_hh9FdUoZ&uz=`U6Kl^BlyqAP!d&uY+Fd>k5
zBB3%KAHTA%lPTXAGK3jdhn*U~$oyg9-s!YdsKfxxiN1zf>zgGHM#tFNIw`S);5v9x
zS5EUc9C7qj(?~l9-6Z4uVU&PMzTC4IsNuJ9+CB;NM-nU>NL32N%84*uaZyooOY6ta
zpC1Goi!#pe9P6ZAdv?v<2<y8(SnJ&-8LLtHw$B!C4Sr8+yP^?<DKvZg<v_8z;*Y1E
z4Gat@(8-rO1sx_<Y-h*2WfN{oSrD?`s{^PA4Gnz~rThXLhRQaK!*xlXNjsSb<7MR{
z3-7cAaJp%RuC+VuVX+_QRx6}bLcB+8-wCa1>AGEQukW(MVWD;Uk3OU<vu$(KprCRV
zgM7|ty7@8(!h&d1H_DT$0V(o83602S=i(JHjfMB8(hQ}64)W>$%Z7YxmU+?P0|rUE
z0Q^dOjI;oOLYGuQ!T~1u-uK8?NJ8iwb`kYrGNJ|%&RM&Dvx6H`JhyynteAnb8~N2=
z)(+MRx<o*X^6DrBHt%_MHjcDIC!at#(BwanvAPJ3NQ4tZgp%npDfK8^K>pXRzPEAX
zSZ8)UJGsqGPzvhxbIb~A1<G&#3Ng>oozZnjIKLCP^b)8`2H?qr^IQAuLGS@+@-T#L
zxPa+m!w%2(bKPRP3YP(mv0+K!l{Q-hrhqu9NjY}ic4nki`fB_010t2|kaOE0(RRIy
z;r-W~uO{AYw(crw=wG+nw4wh-(-SpWAC($`RUyXe&i{@w^AD2Nzaj7a=MevzR`#DK
z^50SL|CaRlcW$R~9DPk$3?Q$A2S=12_&xJ;hisC<3#?zNX|6S()3T?jsiLdFGU72*
z9KKmUIOKXLQ-<*C%86(3cs%6IVPb^Uvz#1B>V8biCP=mr)~2o2d+dae4QXocn`RLV
z&B)U75i7wEP%pdyq1cWjoyTkXte%4mq03quh{fr#KN(U(IcQAilOrI-BKQ+3u?@4d
z!~x)n=-s@&93+xa!`Kfg1z&;0O_-x8kFf<<jEBts#0~pb<let?&;N6XzpCfhl=6dr
zcme(;CH+6Q_TRYJ4}b9HD9s15+~;dr{D5~A(`sp<IVeiru~Q3Va9fn8KkA6p0RQmu
zg)|aQfibbnf~sfz7J==_^VMPlko3c$Sg^XrhY$%Sn{;SRAEM`!h94DBn7~{*tIoC?
zO@W+M0~Dq$ko}G8i#YiuBLJDm05)e-nA+gw5qX5jk~4|Q^1unHjPGI}&C3M9lTpU`
z%^=pDjM}vm;Owt6fYDHpdiLyqb-+|j$=7EIwy%F%H`RZg8+jNiD9fmp(uqBA0t8w_
zu>*YsrJfw(4~?FkxmC41o9kLHQCtnR)VFJ1?9b5~+wM3ykyj@?Rg{aDxCwkLkT3SA
zia&fe?BmCe2)tN&b{GTZ1Q&xSR3ydZpntZ2ax+a9K%b&npnT#LIfl)qYC+uu&{(eL
z-up`fpyvaDIW<`4QtSft+9S6Qhj@69SA#2OJ9=ZvY?;<8@--_8j?`)ewG$8sPy&G{
zoY1?1^zP8m;pCvo>xbDSNtdscXunm-wToI#8?V*Z*9+n-D*QaPw7}<)-o4=^JQ^ub
zf_w%exw5vRga1105f+j~I|X%6uSc66505J_`nX~|=yE($%|8_%vN-+;)Id;}T@-%I
z0TNlzx#V%Tt2*neK^;I!3oHMR9i8Wgi9cY>_dxwv>`Vcwgq;A$l1GlrOmEOkkZ%w>
zeE2Z3wd4t;sBPNRqt0Dyw4oe0(Pw8KY(<s5Y}3)b>NAhIainx$B}EA~Wse`<toj)g
zmjVtKD=RDD(4KU=>Z>n&J}55kh+DX2`tWKgH)bLJbXr+ERjey<`}Xbg3u||adBr(m
zh*jA;FI#x@>=%HHg05)_gj@BS+#<q&OE1Q<!omobdM!wwaHk=M5hzJ=Lg+s1j#vJ&
zxev<D;$Amh)#(OVX{WB2z)_0};J4>I7FP2En6E-FZyWakn9q~9f3veQ!&wUzVZ9(|
zH#$>6l4Cm^ly2x>tk^Gr*}5lD-#eqq;I<1APwIsIwW{wK1ml2Cf*g4JJXFf7ToSBS
zhnd^HyUlv0GjjC#C!M!=CkHNm1v1;=%tN^=AqCEJz3$DSp+2CoCs^5dgLMNQ(kqS)
z<C9%CZrpI~x)>r)!~+tiJ#<c#gCb!;k|Wq;^mI`2ZmPgCSuXZH+?kX{ft*qcQ&ZB&
zws)HOh4v5b>KFBCzP&d0M1<vVCP~#dMAmt)s2}jJQ0emU<T-WcA7CE2@N&1PXq58k
z^WN3kx`iw8K!4*U8COtN>)H%7*z|^_d!xL>O(Ktl@DcYvRYMH$M)*KQBPu#@9~<=^
zx5`=3S|B`Rf12nmbw`x!RHRG56XQ=4Cdo^m#rA@T{Yc4u;4d45Lt({*hF&PTY7FP5
z1Wb%Aatal@P@|OD89zAj-Um6$m-`<h-7MbHO$RFcJH#jQ-bf1B@$;{*yy#WmK8Q>E
ze*1i2Zs*Z!zxKj{r<so*O&!aAP5j3N&up&R=bwTJqfq{Mb-#ybc;Pz#)-0%3aZSQ1
zUygTr&2VOys`~$fGA8jM&nhJ$?h&@LT<79?DGYJ1tj|S~%ys@?OX=(U%F&F5ej0=x
zc24s+@ox<5e`8t;`(}lf`S{kczVP;X&Tm%hKA*vvnOzE7=Ak+DY|rpeu3C32XJ&lc
zgV)EWtxnhiw}ior2$&oRZ(r;EnYiiQgVCS>+}#hRdu}_1Z04Dq_~D<SdeKMzuUPBu
zP6ro5fF~Vi-<g)*A8jZH)%n)@Sg|@_uiVvES>`RDRr@LBzV2rp$n0O7ql<_=y2h3w
zAg$zZvupO2FJDyqE5P!Gd|;xYAQ@4SgMptpUSQA*l5`%ZBbFju=rmL6Klr{<@f>aM
zdU^5q5)e){n*|k)h>DtIoAV-#1Zva0K(d$n(27WI_zUPQ!IEObK=>d>-y_(vh{me3
zaH-%$CaCl0&qKsOgwjzEY7h|=iL7eEA6Ch<lR{f3734rrDgj3v7IrUiP6l8d0Q=tn
zQh)NWY$MvhL&uz3U+Uw%Jr1D{#3Y^$*-&l)v7-iL04!`Hq)*K=imQY`*VRTQ8)Td7
z@}}YkpT_Ek*(doTe$w06jQ#FgMfGd?ZX)gRzN)VqVsq4&K5^SqgFyPi!iOVy;J&iw
zi;#S_6>|KQB)5+&pmMMXxOSS^p8&N$K<ye1UU}~9*`H9F%?)CWv0Vhr38J^>t<_I?
z37=BrNUBB75ca8HMVJ><!AJpt1!?iPVhSIM`lar}wLp}LP?v@j;kpy`>yR}EOkJHh
zhqs|a?Uq)S>(@(fn}PsX)0KyP0)@#`jZ~m?pYL#DXy^|4tLIf&Gi`ZpUq0MF>S~LS
zfv6~u=7Z?2A<tdi0y5Ctxx9)Q4bN$BE(5#T{Ck7It-!rmWm#7!GXo)n2hbdC!o#I1
zj{==o{8n0D=}Vjw6O^TqP#N}}*eWs1K?l7FiG`7UD#-5E<Cq(1q_4CeWM&I_{kMUT
z&C=yp_wjlqZXXd)Se%$h8w>cVYZG>zTfIaNi(j5jZvOr(67`$b_91djo@BXgur@Lr
zcpGp7T^Cu}t!>QyP!DxD4hT3^075>@zGUB9rzg8fYd3kbfA1CfsJTBf6iAj21W5Gm
zoost*aL|W^&3&McodhTWi?A998M5t)u4L&x@(Mj@#XqN>{qB)MH{nTruy>NdB@k{g
z9t2Y3B{CS#>OGa%AC+hVCkScl2w7O>(y4G3H(a)pe`l6ispJOqf|NGcFHErC>>*Ep
zE)~w21MbU-i4^ERe*{oPL&?|q3snOS-@WQ)!#=dv5xAYe`6S{@O-+ltsvzf+C&0n^
z=l2OCu85I(BHVl&IRPce%ky;_Nn>oID@HjR0s^)!s*#Wj%bkyD00Dq3ENge>&qqiC
za_*do2_Fv+x5m=70J=Xl{LF#2OH`5N$&jhG<YgeOkw-vdc~Ha6iX8$p(^1@ksy7fG
zl)a4scsmdlMAoBKY`i>I6^$rWloOE`FP{YzWF=C`{`$dT%C;?R-v*+rr_!YGheSmY
zPQCy0#a{|oRnv*|YCx$Jo;3EI@Gw_OeogEMS{@FnMd9J3<2Pr=@vgin;Na_cO)Xo`
zUH<+$A(`vmnMk?V8?Cw(w5BK|fqwf^zc=>17LfK>P<FeE{Me7S%U4KX(iwc5d<ZY^
z0v3@taE*N!t6xICi$|Juf0H4UowoFW8|1#My?(<ZCE36gCe>c#WoHaBj|dsF!J=mR
z$2}Z$cqjw&gVE6_E>$DnHwL4%;fHeI2*Z&nAQIG1JF3b+=wA3IDiq-JpChb4$m{lR
zDQmfo?oPrp*mki0iq%Vd99NiCD+xFakTu`16IL)+%yh6f$iLl;{@2&t)l}J^w{jaE
zRM5(Dx7Wps7jr_`3$kAXR&*37ujD?6;D7$1wcGps-3*ZD?~Hw7-=X;sSU*6JhOTNC
z$Q6L#l{@}N_R&RC50chO+El8dr;h>!LLtZ*R{~ZmESS__y+;E_tI}HqhJjK^whWbG
zg!0F={#U@OHdgkbwDjm`UI)`&=7D8A8=AKq`Vw%99sV)wy$hFb@2<9w{gHa_U^C@K
z<B$B2^8Plxx>af&Hv&|Jr08=N7J@uH8^FkxbMy#0fM$B<MGhCF#t8fFs{~wC4H|11
zg^*pzq|n*xM09{mUH00}ON(hh3_oV~l=413lszMa)s%-C6G*mHWPIA9*!vR?4+=<+
zkB4|^>7bWl67@r}Ui*V!Z1<J|x_T|be(Tohi2zp%n-oBsaw@xE3)VjbJDVOjN4&3&
z2gJM!veFbXv?0^l!6QeU@>jr_^a#hf>S;HZf>(q8BLPQstCwhO>ZQB@jMdFZUY<#}
zj9*RQS0I7o!G)Pm1Cm{ite<A6$8ecHTLdXik@SUqcCd-KefXuUAK~Kf-J58y1a(#^
zhkc(@rs0{83+$Vnh?SMg$s4ZPW!wa4>Ez%4>Mwr|WB#D6*^{%)+#Y|5pn?f^xa|Ao
zh{Fj&;whj(bSmyzf&AY<Xol+G&u7PKPgmy!{(iM|LS`t!uIIP*3j{LB)LMz+-mN@5
z6@If};Kum!r^C9yJ5=ZUuR~6>Ykasv&f)A51h^;=iky<E%Zy@a*MaJjx-#e`Dy*{#
z=t6^YvYzi<F9cz(7xJI$R1JR}qWvK`;tKKPBCnwNw<5KG3sh3sWn-|u_^_-`F|6%y
zWX=xTxb1)(*&YQK6i<;?GU_n<9;dX8-riYmu?5Ukfs1X)wMdk#zbAoA7AK)Z0)wi0
z9uRZL?w~C!jLsy*XsjjJJ2NI`rMa)7&diMDi&;r3m2L<QF4-rso@dX^ep|kWVf>pN
zz0IT^Sae^_j+ZNzcMuP!^it$pa!*kj%YTn=XgO%QU4kZRclz+}4p}7v0tY^@p2<Sw
z8Sd7I*!He>xM5e)gE{8xL(<p--@s=2g1UX+@S_LKOG9(#Yo4EbVhd|e%~hFwW7Hp$
z?>V49VN(3R_i-4$7}1q`1d{5V`Y+1(C0L_j7m%?Vqe(ZO37)%W;e5+Uf&6t4q%`zJ
zGlCzcT;~b{Z!h26@btn3sG75EswyXo=E{fF&Oy;PZpb(asvRiA)}u0hXP#a3&j7+y
z2=X?nPSPaTE<XM6;dHac$g%DUMi@yKObfUdSy>Sr_;LHEo!{CC+tvD!$%x$HOzSCf
zU0xWjL+}tG7u3#i?%cT<H^#xp$jCeUbTaBkq-P_yq(Ld?bt+~bR6wV#*3axj3@ez=
zMMdN5YZ$cUgIsF+sr}yDgXP|Ral=n|$K`xZ-LHEd`N=c@*kQrm2w>N{8rV`SP$b~p
zK5cARTyIxkWnL+YBiIY-TCKs*Ztv3pCO5up^N1{5%O(yN_2jvw>q+e`{rZELLoNJ4
zCk1}~RWm(W;;TQBdm*lXmkIg0OTY=JYqpv>U&Jj%$3sSza6(%-O`IL@c3(a%JULNb
zSq<>#!kg3V8~riuGY7p%@$QJO;%@fp8+j44p<E@G$OM@><@Z$)_^Iv*vYzsR<mTec
zM&!gq8qtI1fM=7liN)*y?qJorwh!*gJG%lQ^$GAmA=7AS*J?bNG2d^K`Zz1=2s^HW
zi6}KI>+|Zbo}O&ApG52jtO|3S5s3ZB;09Z>hGWC7pFsbwkzCypByqo2{!q?tC+f0K
z`{6}B_9X?!eb1Xu|KQ})zPAG%GM-7uV!hQ^IxZ(K&r2jDYkez|{iag|sT;~sZ_TBG
zZd-5h{&nb(KH=~~<PU%!Iyg9l)`au(S0dX2GQ0r~fsFdKwY6_5=PKta&H)KB&Q{Yg
zens#;WB`+slVjV)K!XihVImLjjcbacqB=1?kXHs_*G3`qhCEv!W&ZSS6`N|peY2G0
z*WTr-h5T@R%)U9~jTPYKB_@H7r`o@7I%yu<*u01;vsoJ8p90LIfy!+5%~{QKriaD7
zLXbO?Q&%=%j!30Q^is?qI-n{WC^BeSxM0r)qbX~{geUu;&bmPZdaJlQaD_D|<+Rej
zLF1s;D$1-dffKsH$<IfyNT?tlhl5;Xf~{Th&%aJ2wIHD}fo22V$~RuH74yDh*djQ*
zexh>GOEqB26v)U$+9=F!-_jg|UnRjkzd-~0h~hm-s~%f2GK5S;ugpi^XofzMCEM>Q
z#*tU8Uv2dHlL7kj1buaLL6+LZrZ*88flL_4gTlsvGi?UZ5J|NZ5`eSg#*Z9FvMnER
zHD6d~(ugUZXJMCsZ@5NBEO9$heYLcZKMp)#<N;~ej+VV}ny?qczJtzO<C&f1JT84l
zaEQi)Lb2xa`&bJn?{|Abs*#b-XY%z1WK5)-L(O*>P4??mF3CJNx;XM=P_b%354CLN
zL1A;Dz)nv~3ze;XkU<bVM;x0$@4-}97q2T<5rlmVPCJF#C?WE;^wr(Bt?cr5Oj2eO
z-O!&6og~N~!M;3zIdj!l*c;BT$eGh8cHb@Nm#CYfuPoE^0v5he7_@81<c#cGJUsk1
z0j}rI&zu@!lODJIC^65Rsg-JoHAZ&t1l-u@=m2u$hK8cTiA(A8?TLe{3ySphp1h9+
zBQKiw4F!30g#+h59Taz5K5vw+FX1Ewu6dOY?9&*z3y)P2dT^jANQ8&Y=c3jE>B}GD
z4oXS65Ll3`ImzF76b9PEZF-8l1pDSB%0L4}X#M6LXS<du^gz?`)k4BA8#WUHxSV9z
zc2Z6N*6hgi0HY#s5b*x>p^k9Sp|9k8*90loCL{{y;Be4Qe)YDR!s>l}eFHziy|g#k
zp#6>E7Kq<BXn>LaYe~SnFNO%2bU8Q2aH=%Vs{ynP|F1_MJoh=)K+<UiHHsCmpmD>d
zYq_gV-Q>?FD3<79$R>TOkr}-1o`gl8>N#0mIaNj%RvJu`Pzpnd2HbhkUnAfNZXZW5
zl7g8EObiIuLG?P&Y2gy-q+sDNje3$$t!;Jh5)$o|1B_MyMrBs2in7|L-?t4Q4-j&o
zB7$Td08UZ;a&b<P|6rtIEr|AIPgW6zb>@hykN45xNA3uePC;FrU!#Ef1D8;x1kUYD
z;s^GP8YwEfyq?a58q!d%L*@pQV9SA|gGfApbMdz*9~7d8f+gE~`0Mu-2ag7I^3lk}
z+A;eOxdN;=Z2kxV`NJn81&qhr*sq&0gKJHOcBigNynh~%9b5Y)!YbF(0Sa-Fbz-&?
z{n_WR{1l!9_-rq9^+7brBd!(=1}IK|r{x9>D2&`L3VT;fic#{l-U4O-HU<S!a82<t
z*_VvbQtZ7%14B$C+WS)wDdpK{``w+rgSs}0h5?`VirfMOseR(aSo$uI4f1r^ftS5-
zqrgg;-#spALj+zK{>gD5O*uEL5<==HY*N|R6P$Do;z6|fqC*~#>hP7a6E2VnS%CMi
zxoCCA2FHzl+}sC<@y(VF0YO1;GPS*ZW_X+Nc6|QN=#84mooVgz35|Sf`i9!u+qW~s
zbUxlSVt>da-*>!p>d^O|(bIq6ra$^$4ZrWAzfE|D!#Y}_$1gR@iBx_xp^;ElrGzM)
z@b5KZu1R6=+>6Yd(T~eQ-*Y1k`{y%8dn=O-8!*bxbvfwZ{0K8<KMjn~r9WQychl@2
z8tVVTiT{zQ|3?q;;-Du-P0T(WM9!hEJRg97gP;e5gZzD8?usGeo*Ye)eKZQW-PjZ*
z!aSgPOugm~{26f#5ZmZO;^>)TM($g0o0NpqT?slCoiQ7rPR$uK1#Jt&jZc!acqtoU
zgdEm!@>QqBTMK}UBW_;7ey3H3<C;Fyj0*t>`|b04q#;y)xGO&RQCA8_$|DnS;kf}{
z#P2i@55^hk-$F)0<gP<ZolC%=;1qP~RgZTU42s(<oL019?=ww+=fQKJyhR~`YjOda
zhdL*)bfBC7kh+3xy7p^&vi1BTSkVOIt-Q=oXJ;NX|6TwU3({29b5Hhm^Ds%SdT$=H
z&lPHL=-h-RlQQx$)M@jRAsXPeMcE^|b9I|MR2P|ahC3-B0Nr`Ez(h6@9srlArKP$&
zKd5HHMje_Kivh2Q7vJ85zD?99RbF1+t?)L48xjxr@)#G`yaERIRo-#Zs}r#C-ht*l
z&hCgn=HWr`8=&Fl-^Rd*32i4540i<7p(%oT<7(S}(#wi=usU!75C;YH{HRPyGq}rc
zKu69d1pM`&Jg^xR#W)xN`8GqxYV6&w^YJT|8SpBh(GDD>ki{hk-AXNu!_yM$%NGLF
zlLEfI=VL<uEu#PQO&+S>U9e<V6(C(D`vv``c57H<=4F`riuli(hi7V%?|5B`OKcsE
zcX&SECb$&k>5~v!&r*7RM0{+Tn_bnv3>ldYs_dPTas_70JRCPVMqLt10+$D$J^f^P
zY1~`r`JoOhg9)sw#1$(hu9w`{U27PR(Ny_7y`Vn3{6m@v@J7%H6cwsyf7OXh$gbu+
zCNi+F{`RJBCqgqT%FxKD?W<WmUcFxk6e=w(P(^ZTW<8O^jfV$l5$B>@)QSNv_i$#h
zQ}@TTubo$7n}^wz#%FoK({<C_erMI`)C(MjZ<<fhNW)a}`d>w)um0f$0Jw?-HXej$
z?8vC=4eDyZ@c;GLrrA6P(7Uiyz-8)1wgDR}tQ;HQ8=x^%%^dYvf;$ryfgq17bibVh
zJO&W67DT5fc~gx=SV-d{sBHskJ$8dK;6@48H1;M5>U8Yvr$8nNSQ-?O3aG>;MxkmP
zso=bo>h41gN58$>>#gL~l5&h)fP)rp3pBj6_e8H1BO2m6>I3$~&aw|CM1ma`8fqy?
z8Y0E+yFzG$w$K68CWAIQpM?2#K}F{XX>4sZ^1(rqVPjtayF^Wi^V54}VPz!*%AY~}
zB9a0h0a@e<xSl`bFgkSb1a`}+75;C-^ZzGN?*BL8`ac(P`|oG||I?S&`4btOBf1b<
z<L=HTo~e+s64&hUZM>N@-8q~9fp&MZVsQJUtRZuwkN;UPL_jt3IHVkS9`Wxy50I6T
zo;zE_fLr%lKF0llYu66)=|6a$zaX9maY|U`*`5o2TefTgf4vP*MGa&B#pDoh(_@k|
zaZukQ`WeLrevs_<=lr-BRX!}Jc^J5Z*;48`pm~+?S;55{pasqIP^3XZtrM1=7h?9^
zy170m?s`)Gbd})Hv@c{Go$f5bR?JgPn<b$%2)%7}elF~+`o9A0{!f3ve?!Xrk3zlw
z#EySU?BGq4gsMm4a%mCILYZMa#|fn3Ei3}HbVpA9gc)OYtLYClu~IAHq4_=VYYaXN
z{NG)J#+89V=jD!wd+t0dw?%NdoKod+S+f-<;$ioBQRu>`3?{`OPm8@XH2;NS=U?9u
z2=M#Iz{Hq3D{l%fYDYrzJfxu!a2|-S9oj;k=b=qLzD$*!$gO_#S-AwB9#`nSJE@*5
z6@Y_2Jw&ctfcARSm)V+YQ?=EEElj->*Ok+%Cg8{e2!jJ)JNhNgXaFSGiw(&d8mOBd
zN#a24b0Sv2FrH1WyyOIn0%!zksL)1sF%WOmUSwv1a9I5ZE=S`OK-IGaUOG*Z7oAs1
zO7n(totSFy3JCG=KtJH9Gt=?v)q%Gn%hv#G0|@#v&LRTcg*ePmFfg2yBiliB0X!gR
zgmZrd+tVC$P}2ajC*v8npbD`gBU2yPD{?Hmv7YRrv@k8TeO+A7-$mp=A3^J|V_tH&
zWZ6OJpKL*h{7RSg=vItF2m+lzf@IV?7#rb@KMS6=T8F{y1i~wBOP4#<=;3;<2*uS<
z{rq`okJ^%VoNfK^bfP)|uCv<-CS^daL$XasTuXt9%Jx;lKAm!~jYu%sy1Kds@+!{h
z85=+Pmg5REf3U*l=UKhe)a3Qc#-GKRo!mZ{E9b3QgoET*su9E2;(XBjleC;Q!3uFz
zEFu48`oR+i`f0y~g(-^sCNwswAQoTGOQ`=~Zqt#P&BE*8PF%M9dFnQ-V@;{E>OQAu
zvPI~a5w0(9wY3`4r4D-T#GE~kz%~d(T3Tp)k^~_GIJ!{9xBZ>VerG`kM6*=bSbHnX
z44_|1)6D4T?Bu)W)J?!yWCrb66MPTa(`!I(7vgbQR_q4$=rnZOTmhGf{|SKFT3Sw^
z6U1-4s#*5Ey<WxBDLL60nyFjBgH`No6)yEVDgr}85g+*H2MU5LXAsRCh@1kPSHlNr
zl|AmC1$!6pDPd+ISP@nj*bZTm1*oA!S}vS6a4cXyj5<0HDxAFvb>-pWB14Y?&PNLp
zdZv)8rM0W;`v?S>i*drp$Y___yFGbeCcXE)rA(uKpH56%S*Y4;*=E&kfaR}xQ4s}$
zdi+2ZkW9pafOV(Qj@Z88tg>_ddQIt)_X3!jfdh^${&1BkZQa-tcN}%Hfyu3IRHW|m
zrg)knKMXXr?ZDPX+(K=Ks6`M;$M*ef0%!cq=04#|>!qH;&?C(D>*zn>JIh=AJua`$
zm0y)J4gWE9@~=me|B0NE5oXBW65rn0c`{}nEbx)1;C>ZDQs7A~WL6N0J)n2k^#tZ=
zEASF*J}fj8%18~#lK$Ty6l<DW0WXg%gQ21GJ)}xLc*rid#MdZi!rg1D+XPtZ#ElTa
zkEjoltto0%kL6YggPs7eC%CX@D$vl{dV=*su)aT-kT=l}0rKiIN{P<@r-L<ub(mA(
z*SVArLVKtI_^u!hownS9xnc}!$48^vrHaM=Uj^WaeVAk_w0J_B`e9dj&5TPx&7in|
zzJ%=mA^T)}ZgdTXajDc&G6@E&TmYYK)`dK_pB72Dz=|E<QlIZfybj_w+ApuUEkm+&
z*F(+v?7n~S`dW>;VNTr=qKl~1Uy{iK4XqAoPe>R5!+<n^(_4psIDPCDXUlIe8m*SU
za`Fc7`i+t{Hn0_;+LlCxBM%SkUR=Zu>D2A}*W5OQ({U@c+^1tWYKS>?2M+C01fFih
zvZw;tBMsvjkXt1+t3d;I+-6VzItO^rsGA)L2B^Oqjd=4JR-x{Mc!2mHG(7-3Z-@9K
zEk|+(p_q<dgz;b^peH$Ll`jzM88q@BaxFXNlpX+SMS!i0K)9E3y{l=!Gr2|%J3HDj
zg}gyv{2lndDc@8=*zW?0$abLm7LvEOnm~e@IiX@8^Zt@dD-1wGeTBA-59M8l6TNF8
zdG7DOp<W$;54J-_t<@G&-4c*@UZy`}b3WxTL+&2OZ|Yibvm%5ZPXI~(dBa|KkiSL)
z?sGs|I0PSv1ZegN8tH-pAM^_ggE=cS6dXCf`QOkKvE5=FYzK?K)*c3Pm4K8o2rYOz
zU`W-t1r~@})O*kN(ZJ9k<Oyb{)t>;}BO<G0x=975EdXD3$n}J#0c_U7ewXDT7h5E=
zSJ3fN5N-L8Q4YC=gu#geloTvRTVR%^a=a@tt5K66{(W)fY<9`eLq`ywlAHPO-OYp?
zB^B_A6FoV@dmCnc=8)19?*sL!j#RZgiw5kWK3<qtAcBHF>YzrW_kiL*X$e*rX_&lY
z7!P96%$`z9=i*%C4MY^my%d3zIEX;BvoO~SIXsX%9s)ELs6SVj@=%SsM)T_>!;zlY
zSpsL~SB>V^90i$S??B_ua@3HG<X>T!xz?3`SvLU2ddxC6&g_8*+p-bO`a=W!*a*cI
zjt|=#_)2jvE|+@H$Wb>aNN+2lV1TbiQ~JXBr6ezUY8q^tT;uT(=J6PJIfJrtaX&mE
z8&hLrUZg(4y#*%us@KL1Dc*2%Jw5_o$w>yowf9DGzzm^iC;{@X04CzATI|R@ZN=4c
z94@i(LZ0mjn5`p*sC_uqddVPGALK(6<CkY`R^(Tc&~s>AGR}Yn!!tGXaSM18!O@LI
z8`@3%BJ$~gBc>7bWi&4XwL)jo(1-_q%WKEDje-1ZDMNP;sVd+T3=I+XJBS+B4dZ|C
zkcEdO%LRT%b{i(RMa~?tDw9KYsyc*#Aj?gDdOL{P-NDKw1AWu<i9(pOBm4zGT4c~d
ze9$d4IwVScapd{)pH?(o?&-wrJLI`KV8P?j|J%8y@FKDo!R?1oFa=^~eA%PWE?LLX
z7vKir%lQiPaK0MasLjsL)Y8}Dujg@MDnbB#kGP`ojC(F1DadbW33Z8lV*fXR2BM*p
zf*_EG8(ugjtK~h*=~;LP7i4Zj$=ETBFv>;MCb0L1cF5;G8BC56@4)unnP$|Ie!`4o
z!jsgD_5-5}_Up&A8^2xzjT>re>J$0xvZsEx?UELDFSRUAuAip|rujwST{u!)5ctMu
zQe{A3f=QIne+m-%yWweex9OquM}`9*%oW@|zf+Su(!I^GC)Ot*#WQIyro|t6OffU}
zfe@Sr$0!)=`K>(8ok>uT5EYe#xqF89;ECTh2Sp^M4h`!I1MWUF^eA{w*;6e65ThO!
zh<A_U(qLIWjX}3WI^HJG7ckpg1w9f?*@2mPykJcNIuq>k#lA~mWad=-$qz<8g35&E
z451ld$mI&YHrJM88*28)TOy}lA8j7><G}NX5YYfX3MlFPi@j4Qep^L3jyX>^cFZDf
z9%YIhYJMIF#i7Ou?_O7Js1dB9C}^v~EV?i_6FhQ`p}oJd)VvabBNK`iFBBTLHGxYQ
z3n*<0riQ43xW)^*K{%QyH-(1yErTbIc-Gy5Gy_x6Y7ynRG(W`-*!{t4y;LTkDLW#F
zSsWA&{%mb%^hcBZqBNH0+1_RdzuBGLkC2EC8xpza&?&%%aX_5|V5oB`^t1FAPL{AB
zR0FDDkK5!9=wFLQpP?ofEQC@ts|5Aa&)pBYNFVKr9$A{FK8C&PT*YF{ztdLVir9V7
z4(m!>2L}q0Sx#tTp-@g$(Nw!7vnlFEQ`DCxOBYk&!JLS?rboqlbN5*JTJvMa*I;m`
zAj-W0>>nF?N>p?KhESfLUyKJuc%NttC~HqMGBP^U!Tw-4G6<6n^<ikm+4-ex5ujz>
zg9yGd;kJY{4_juUMkT1obhlo%Pz=O(zQWidh@ddJ5>18qq#Q3{aSt?HMY1!Ph2Fy$
zFN=U9Juj|=EKCoJ!O?Km(*TP42IRA$+q)D-Lwc(WCDH@zALAwCbt~s<qzHadAQ4=G
zXGB|E&OtBwbW_lL96p_K8vJ%t&&8=LP=b*zAZs@SynB*CBIX4kwf!QJ%<LV0h->S}
zOWv0#vI5ZrP4G$>bb#qfI^Ziwm@T$f<#j*eG1F^R+SjCBYb6w&sN~{b>ztQNN)#eO
z!i2tS$OXWkbCQw6)2d5-EUN%kEy4+C#tdzOj<n?}7P$)N8U)AO1=DO=L36xyRfT?2
z&^Z(h9+a2}f`0Y^73zXMO5CV%1x!rj1Y9vlHOMa*e{}&l*^!I?qFF>!8I0{4h>&gS
zqK&CEpHzpI90c#3ijpCmh_FVq(R#%tO(P>V*u2tfSl}IugubsDNKrj@Hdd(qtOJx%
zQP=P}a%3Sd2&@1o-H~@`qZ<Hnxo5H2s7puERAGT_)D6ZXVi(EcjGCHoIIFzR$flTM
z_w4D!pVwk4Y}AttpnWJwOY0j<fATA4p}A%kPg**9C2iyjdRXcWaOD7ORQ+!Y0Wpns
zv1odZFFX<}hiQoN<DJc5)8%A>GS_Fv5_<4jkmtQRb37Jx*Z6|q9~+>a4E`%Im^P=2
z{8t6-$Qc344-L3_4{pL3OUZcf2wj2@_+F)ND(V*-G|Dyos(Go~7fJa<7)<pZo_7pb
zclRYXivf6k4{0U_xryJ`sWb9S>?bFlFA&Jix(c|SI1~_iB+UyQ;t9yFfm;9G$g@zl
zgBy%N+s=T*yC3zrOuHVDk}?38Vl=<3ASbsElC?gR+-Du!VE~f%C|YZ$U`lKfM3E(f
zZ{X_S7mkMu0l`SZ7hVwysV%>y4phOejOjvcZTm^D%j04?b+s$VK=KP2JQHGQqGdj)
zJo`YQu4TmR*Np+|$Fr6R$fFJg%bm4G?lhtdpR(J8t(A+m4K_?(SjDZ6Q0wfimP?fJ
z;s_oB#X8uz7#bknNKL?WrEc5`vP!*K2LCaktGVgeF$kI8V0p-sodHzd@JeQl+k2B&
zK+q@bOqs~q%i#hyD<2FFc1*PJDs)>=cVB9^7fc>GScrZ^$#|%*HrxJY8QDL5BeSiH
zwDyUc<~Zfinl6&SCfVkc02lqpv(qfwnq<+u0QpjpY>LHVWdPp(LIjXT>wLE3wIl3d
zF0jwTLq#^VZiTcTeTXuQ*r(XR6{F<E^ILh|!w`@duxS)^NygXj2f9dCRJ1#2g=LXl
zm5pLpPQ;C<N5l&xax3XR!=c${{GBgZfJm7tpBU|0hk1zVmJ~AVOqQvZ7V>K%;7DO4
zLy2;OhWzfd(P;$iiYsWi#tFcq7tqjGplF~i)3dNwvUEJZ9+?;$Cse@vv571)|7ybk
zm_%>{3M3>f#F((qP-OQmxd~ry2IozKW=*G{Q?&9ee%uLxS(rFc(2WNw8yT2j0>&L}
z;qHO_t)P?Ul#RYPDDFR9*9-x!vcnzKl~KrxN(7-$hP}d;z;5L<Euj1aJbU0uX@>Ws
z37gJJ+V(T;UCnj{Y$z=%ngf239jZRp!f^m72OMpf=8$<oBg^ia&w^0@2zGI26UB;T
zaYRi?m^kKJkzVP%R<nn_PK-e$RHS$qX=z!)m@BYfc{$30S^Fp?ZUC8(*PKa<F>vD@
zJy)W3ml8=1_)M7UMksL^?w><`Ckv-|Xw^ihEi@FGTf9nc!Xz4gf_=mN)^Thf51I(l
z<Cz0ATX9Dqbis2TYXzQ-GTM^{v%LH=@j?KZZ_tpGm`%Vn!mb{GnWW*{^pEaAgLhfX
zxoDvL-_%9T#(_&JH7_r(ZTQf$Bmrh_<>J*({vOcqasm=7Ox~%QM1<f7NSL4U9?D!k
z{izFhtKu#f$H5Gxnq8dPi9}*f@m@yURF_rrnA)tTAm*b!Of>h%1khak65n$ry{O9>
zkSsj>I*sK#s{#}6hHE$-cyd}=pWR9sab|J=<eglpQD)9OE=_jMdeHSFn)*f1pa^`*
z@;7Jzdp+mpix**(b3NZ2l&Co`p)jc;HdcBiy|w~$W=r%2FHbhZ2v}RhrG$o}`JuR^
zVkML+u+U!R3YSxZT*hebwi9^7^1GcrVTbE95*ocmRcktputCGOB@!A>LMDM<S4<*4
z2$cCob(8EH(b<vdL)+bt6nafel=U%sVr#Jw5$4)SILs*(FtfB|OF~D>8wOASUJoJ(
z({(T$^PGb>bZrs3T}<uMyy6+19f`Aa)wN|ih7W<U!c7F)jopf$sd;*T=|OWx-&A#_
z>ls9{CN^~|D<_31@tLc5A39zm7hM-Rpq|SS90e5%hBCw*G=Cg5ir#1j^Os~ntJiXu
zl4U8>k60#ymUghzw97ZL9%_mli{_%~GoQhFK<Ew}E|O=?(cvCJY$)n6P*0AA-d%N3
zQ8c$^$d~Fj9#wQEGc$7#`IAuvjtU#7?jf`6bLopXiYD1|%~BE&x$u$&zE^(XSVlmh
zeW$&@=kSFtvy2>XgI&>-+4A+6GBz$(K%PexPfPV=dR~ILr`^Wi)hJCXHv_@8SL~=a
zX!|HLn?46w7|pbUremlaP3&0|aBOBXW+9sK6B3B7HjbSjm?M8kXecTT(a@V}VB1j7
z2~hKd`Xg_}l6+E+<J0vV2ZMlnxj}>0E{2v;<7iXf%K~^x1Z!-WqpH`JqHJOk38OhT
zIRPs&9MJZCHGeOyawWkd@%2SYoD+a2B=2u5fxlZI3;i7d2Y+9Snmda-On}DenrP5#
zV0a*4ifq&15P%_13UntbFTkf833@DGD562;Cv-8;r2UJ}7|?>=cC|{e&j$+}O=>qD
zqCIM3<5hPVtJQNUn(j$c>0EMZs+X$Th5Sn@?cM@~-b>Ju#P1yFLjlGBlGsODk$k#J
z-J7N`-wGk$$U{RuM>-uXV8L+&PXLjEDXT#(aHt{=4b2Ul&7?i-0M2O}G~U^1mG3+Q
z9@(Jrdp$R~gv`4tfltN)^rpBa8J5AIK29>=25V%AnSzkb_vYz79b4$3nS$BJwGZr*
zcA}wH>CLmKMfN4WLAs9JDF!e@@{v81Xs)o6Yf$eP4-YVDt}x@UxSM`#gV1&uWGc~q
z54e6f#;vzpDo2oc7p#)$`jKEu^m^V`H6LDe&?y<7;uOdM+nqPx1#?o@%RLZ^5i3B(
zI%k=j5!$(eCO%#C{}6Ww910OWFmfsN@#Dvnv!GZauM!%`iRMi@Z>%9Y9w|4@gQyej
zDqV+_wjq~|`EJ2%Pew%$A1Z<_G7)b-=ejauuyVeu63}h9c^ema>Ct)v(hyLU02*(2
z=73SjCo<F*WnaqGzFN`!NRqGHxC1Az`!xIaZG&tMVH>>MN6_#A<X}e4-B!vZG!`Dg
z3eIGkYp>TyUwU`@jW3!OpaIjvH!)o*7lsh)WKMI3u!kZEGWOcS+C@i$X0HSKk9GjO
z0mF;SeNQOOyi58Z79WMY0^|`4n?&YPm;rpKod~$A+RQ$Y7Zwt_CtPz?>0|HaMU>nw
z^@8dBMsqHtx*dwnmdLAlAofsz4a^(cigwK4_bKQ6MST;yI9-gh#%S-bmJL%E8c2i*
zAM3Rk%5jL%+bJ+xk<)QR*u6oT*jxTw0_M3L%v$jQYQ}?{NQ3oIOR4Pa-9r6{QZBNb
zJkQD+XSh?qQF%k~MA6goa#d6jd97PUbHLEF*BTaLWze`**wUm==6gk99<|kvZyp+f
zy9ABWM;$teqd^9wJ5xbuTQ>(SPa_@0;BImFgz$emRa=eKWzSk+OzcRz^E21rq{`+W
zB5(r7Ugou){AH8M9tW`t;WzLveogP^&^q6;wrg}_`ES2o<l1e!|Df&Qy8N1a6N??*
zmaKl?7guDan;R63mUisGq_~0{Mko9G`)^|rUc4Bm)5Uc9`ug1Pc*=-V5a7_^<z;mh
z6%{i}%OxqE85JjI=b_nI`QhQ=?yfEvUaVt9g6>N*3yb=xDOX`(VHq_wmO)*{n6kaS
zeJPPxKQZB4MsXf3(<f5&tEkOizg~eBj{Ksc*~ctn<GY`(-EVb>d;RO}2M->!dnQ`v
z#y@%TL{(kg?#h*~ZPWUCdY9z{z6=bAvH~?|UMkrp;_#)Ur1XAz+MSP&PrYI#+4<va
zRax1?^z?K~E33=?{wmYc({z%zv$G_a$dpu78yXw+xVX3k5@$0>Z>VxpL1IdEdO39m
zl5u)e66O`@d9BTY*<}z-Hd6Zfo{`4(FR)zmy1Tnwl77VW4}XKUarn}F{KKl@=a-GE
z9V<7suBr~3_OG^&Z+{^WT{lP<W~&v!?|rYYI`Ge~`6u6g8lo9|9gJK3`%lgu{L4Ri
bfLTt5ru?>O{&Q{U{W>S~wQ_#>^|${E9X;#b

diff --git a/reference/plot-2.png b/reference/plot-2.png
index ad75d2e6b3039adfb1d1db85e1370e9609515b29..550ad8de6be855f5897d422a0284beb02a339925 100644
GIT binary patch
literal 26523
zcmeFYXH=8h);1hPMUNZVZqF9!x@o#W5D`KRZrP#{0i_3|Ns}4{Lr=hsVxeh5lNJ?e
z3B3v-fTAEZQbJEa2}D8(Ed&T5@11zgdCv1a;~nq!=lk(~<J@CF!n#+PYpyx3d9Aq?
zPj8rA5&4_M-#{Rc2=wZo79i06P!LGy_Q3-{$$0APW#Hq$ZIdg10-wOMWkiSqJ`UZz
z3JU^(q#yHt_9V@$cz{4BLC`<{unNsupoC@lg*eiA!$hzoH2OK{l*(_eqOp7aNR@Rs
zcY5z%Z%#7~{`F+_?jH|s-hBSx{r+D)ZvNf<z|)^j0x!iqEZryfDSSTu=cxN*(C9nZ
z($2l#oBy6x%2<jpM<6IDh-^~$dR?#1By-D(UDVq{Xl5Dg7fAM>U;p1|;O-O(Kc+XW
zPEz(-4<mp0-LWJ*SYk2?<l>;`Hwvh}<*$XJBZkqa$35RePP!$y63A5po4Z1w@v$Wj
zF@Z=e4~{PH<$o(ay+@7z+4Ag{e-?mYLZE2)x<QvJP_A{Y<uJ(aN(64)Dg+;3ODWX#
zuH@p$Uic&{Ssc|C>9V?m&(tT?*-Yx`4Ey7JZ3&9g%~j#Hh*|d?r0`1kMjgH(h^0ZE
zBde2}t<(y83wyKs=&EERJi*4cXtyNXk=2Z2%lv6Dj9ap%1g~zU#xhw^HgFu(j##|i
z|3{Xa3IV5QWoS>y{o1g3pEbrH;p;S)NIq4yj4_XQ#}nb3GLvt&YdeO0ZHEgJ@u~su
z0w#x-Wx^1wA;ylvAR*=WR!(q&5HOV>O7p4vBO#!q0j<!)aVuHs$9Gu&gU7(%WN}1a
zeJ9P)sBT(1jNb67VF2akR1(hC)ogmJ8yKVMG&{&Jn2*=vhTcQWnC7@$AHH)iewMr$
zt6H`K4NA<Ur}Xf|dn*fl*-X#%EshSd^vkmFvl^#%D&y&VW2(@-{;V}hK#ZGyxG_)d
z!oDX1s7fJ@6Vo@8Ydhj%n#tW|W~@kT*d#gAZ>eSUF?%G75q-?Ll1=VUfYin1?f0i1
z^ce4b*ovb|ecUYb;okUes<FL`L|C<6rzB*}>nTn<mTa#c;55EYpt!k)u&RZ2WU_|O
z#RTIip@B;YgPTudzc4NeQH2g!iG?i&)aEE(Fr;y6bm+Qv@SJ<S8d_gMY>l21Y<QD)
z)0;7eLfO_>ztE@>`o+Ce7$A~e)Lc9Y?p!cw(^w$J<%k19+1&%rO?`-A?R`iQ(a;dx
zkYbi5rU&J~_AnhJQX@vbhc$g!URg^DsBB_lEgeL@4#XL6LMDQ<*W%}{k!`hLlM#}s
ze(5z)IXwr$<C=oOmZV=Z497Y2*{0Q)5Ry2Z`1Y%))Y?R(@g!2j<j4ZkMTm+d3p?<V
zej7KKqC8`-zbU&1nmXy{9xDuLvDy42K8|&CEIVaIp`1I+e#mIP@X(q$I<;v?E?1m+
z-{2v<v9d7^e&{TTxYXK^GCWQT%c<?%l`TVswlxjgg7HV-o7y`f5<`qzU3h#h7&iW3
zJ0|vdh=y5-%mvgLU;FhM!p$q1JB<N4Zag8pSA1kImsslxeZXBTZ3@b663waLE|Lpo
z*EyG37y8GoY?-S}c24a4Y;VtztMG~PoHd(z_dRX_pCZBux26I0wP<a0G=;SdM`?AN
zIgp@aHSohi-}-At<>!4pN4s$I;C&|vlAebl5xpxM9L6ilcjzZ-mkc~3%QvJoqrUka
zP%IJfcNP~j9Rhx+wB}izqn%r;Y}#gzC%r7;w)0vu4CL0&X!L62`}SzFJ(AM2CRCV}
z7n#N)r>4Uv2g0=U+=5;VFB#A4;J&s+S2;0}S~t4va`ba!!+cN3+8~j}%}l^cBk;_C
z=`M7mXWOP%*+59Qcw>?S{Z?l7dxAA{?y|FBCeJc|eG+;1?MhT|+a?D`2kX7vr08&g
zu1Jm1?1k8u_c@$l9pr{}2rQSxrAtN8#cR0hS&+4%-?)k5NUhZhP7LdbIGsAYT(Mq*
z3MM!h(z3lY9#G$uQ4$7&+}BzuEYIG=#REY;FA+v%dOg}G_*&YZqw$urgPQY6zi9@v
zaMBSz6Mij(UjdhS*R}@)iZ*H~9*t<eAszADjn^Ju!PYDe((Ae@vS+}a+e96!nx5U?
z$WFhP69yKFV8=s-(+B8#G`4rf<EME6Z7XS`L7*~k71^wyrLfl%BJ_1hjj57PPK0@K
zkh{?)Sh;w-vj$y&bTKwHgiLRWb!+d68W+!f7N?KcQtp{Gs|!(C0e9<0qeJl2fw-o&
zJ<%~PB2FL|Lg-rjqIp@<(9iDrWv<5b5OC!EC^=rLPG!SVJQ7~ibfJLxh-~7yp!deL
zq@yRaHGYu?DIj6HM|MByAQK(j#$WU}*?gM`YQvp6y|WpQ46!R<zSk~xO&F}nvPK4*
zO;%;{3?v5Llu}q(R$RB%u`15^c=>T=V`k9VeqMS7*LG+m_>pH>45#~EXA$F#4o8bH
z#Cp(h|6@h%ssXXsSBme~rwoU7#M7!g`*vZh#h^CgQr50yJ#38BJ;#&wl``}_z-&CZ
zg$nAuhZjc%ljf?1L|)7yWmUZo?xP!cvXDJl!-(=y2))sK@**#-d(M#L>E)-&7;`Mk
zfh7e=dY)4o=<6wE+H<5MnBwh7ml*n(Bjt_jnN+$h-1i_)?Ym^zSC}t(36DbdZo2hO
zac2-tU7nuH0W%TdeZ$(IyFc$({|XvWb(+`)>y1qw1;R*_&q0So*mOF~7d3Qu`V}iO
zytgT=OK$;A^&QvqnxuRAO)fM~140Iai$(OA>RrX+58cw)eN1z|S3KiH@m4@%LI{FT
zp_d=sHVWc4DavF=mKa_gT!6KtjZ&6{)75O4MLB&x|4FU=nk00El`y=VqvPi2njPeS
z#bGOl8UV<3?lM10iiv?E2P22BJQxldX28cr94TNosvoH*Yko(EGmG@&%xl!b)1um?
zi3@vY?cn)KcD3U*oVT-&UpjaUsmxzNZ220L>LT0jMQL~~P{>^psdw#sq3A^)BDSk>
z3V|<X{bMu_!cNj2&_%M22v~1BkufUbI~CA2M=s*{a~N6EY+m7}y;(*ToLYI9Gmb02
zms+N>wIlp(LWfgY|6q4m9RFOz?qf~Ft0il$M;EVdx7iA7@5ZUYNt%waU-q$edU&~?
zNt!B)<vxjaUOX09eaNP{pl(3(2<SR&!*Ck}8d@!76i9la9dl1vg<fS1GGgY}xm0dW
zlxJ^6f&Z&iz1~rFg~<A(Dxh}MD_2j-1O3_kQ^LMZ(Yx7_-=oqh{x<qhy^O+Yj0$Y3
znJClEo#{=Vu;p&VBSkYJxp0jQl7m}V2rD9J!?0m{D0Z}*K-jT2@H4}f1g7Y4j+B{=
zezfZfH;2yvB7s0sZ%T*m4sX;1EUbOgOyqrxcVlbvrYTpnR9=+ZG!p?pT!n#QnFynN
ziAzZ^R<?F7>1fb)xBbAnp{EotUZ>{l_-GF*+ctZENz>sDWttL4GkyHqJOKe2It{0+
zGFiG<N}v%H-(5IA5esYdUF5j0`8M^&qvk0e7t(dOvy{6l7fT<*!0McF9b}WQ8Pb>H
zUQ$bs*uGfG4^!#y4}*%|kieV+*RPaR_*4Cw4YR746+OFGSsEG5!Arpx<~hq>w4#LG
zy5T1E-vw&XU_l$)-S|ZU&d~niS+|je8bZ#RWWevWLly_E4Xq7IW*#*<mpWCnZMflV
zd%v%JoPE5k)IG}1(BUkd^O_vlMYL@&0~R#{l6($MgMIay3flQdgg6+wCwlSQR}qa7
zt#Hh1NdQ~EYSt26dbLGMokq?nFIOg=#*X~_GbGro*^qKEVZ7(Cy<RdTvJx%_p4F}W
zD!1%hiVAM*_YCjLLW<&c-?$o3yHLTy{_nPi48)v9XO08x;-f9jL9_TpL#p$gcPnF+
z-GBQA*LLGHV#9izGq-q|72Id!wIT74>+qKq$PlB0$kFY|2%LirZ{qG^z>p2GAPp%X
zYsypRgvhxVFKc#TQ=Y5Ms7IA(h-Tyt+be^6bCy6l!K2gHM;E5g1Ua<_JH2@wTXWuv
z#kpwoB<PbWFGrU8Gb+m5=%N;K$1~u3$hqEh%e4oP+0lh7t76E-fa;ui8?kP2-pYLA
z(&f>CpD)2_^i^BQ6U-+Jv^bZo)rc)Ur?c^y5kM{&)?tpAT$n(_l!fFb!Avd;4gnnK
zhlG!#yY@be35#qP)ffu4EtB{v#q>Rx;5oXqhgll?vw!>-Z~R{Bw1lUBKz^<0M$cFB
zx?7HrNT?WMF(5xD(^`zALn<p>8xxxurVn1=rfUj?M469Hg$^W50<OCd9b(SHW)?G3
zdUmBX)&7n1*uB{U(zaUgKloVnWd*N4_9W|(@V!Lvh2oHHR?G>v(G6=uEAC3=;n9ad
zxN*&$c<{F%k@=Ed`?O#Jj5$V$k1AQZ;Kjp8r238cc==7GtJ%WGr$U>D?rPK~gu6QE
z#cZJ&yP4X%WHK_ddFP`FemO^GO+py7Avd)jbY#DmR-`_6a#&~S4WnJ+Lo+Ked*c&>
zgB!rD9eLHXIE#*b&h#Yf9eKrzkc7k<_==D(hdLtyS+5a^5%AXe?Qb8HCEAV4C_SOR
zYr`i|;jQi4b^Qerj0}3n*k;0EwPG{>&D^f=91DY2C8A=JBX=!p4g-UYl8F*1L+QfB
zogAl+d>qmd>~pT~M7CZjgr5(~8vFUXW1XvGyPE`r%E@Ca#I`VN$c8pp3ay@cUYtXV
zo!Zco@SJrbe4XwENI#THUapv9*X*`$+xBrJo!Df_p|(b3YfnSK*fO`N{8aMRT_e!?
zP%N{f^230+sSm+~l`C>;7AhjkMVYd87_wubSG7}18iT<Mxa6fC82C5`OWu;6h~Mbh
z?ujjjr}j|yEoQ~~ezhSd*%sIqT<9+6U1U9r&0KaouA=G|*ySrx`arf60LSC=735~?
zC`*HadvN{QLiT!aBcH_lZ=dMJJHwTSL7=JU74VN0J9>zfokkGo$R0wP<BvAN#y~6r
zp7J;QfEWLH{@-c9ije9EQvQ0JEQF)T#Urk>O2|ey^Z0Yr-?HtvmyCM!I+XFlX9)*i
z;goHft)!b5F4c}?;?h(J2Z8>ztr`o*z^l`w+Vx+h(kJii3={vB#5?gdLO6a}$$ppl
z&_ln;NgDEjEy`cFkdey6E($x>ShGH)gKo$u1f8*Pw9URc7atHYJ|2vBp!kf|s7!3p
zv6Deq&O}CIfQy5610&heY_591%pvfM!}Lp1q-UB__}ozuUQhj<Q5GPBU&vl3t#5AR
zfh!X84ibB*aaSbZU(F0ygG(XJoU?@ZM|$+EAl1X65Bz7hhnsg3Hw~;<3tol<6E))f
zQ6N<WDvnnlvJ&KNTn_!ia+LX-f8hC-DgEDAaKs^aPc>c_r`s@Q>1dJd>}a>>a9iLj
zEm}%blyCyh!IoW!DsR}zawFk(aogjJY;xY=GCs8c*@^F^mLQl6bDS@HdDBuUiRXlD
z2oGiTcP|K3Re6AEGiuEZW375VCOG3E;H`#K3@*(o>Lpf^-~RclyZD`8)~g~qwn)Yr
z>45NSC4Id{eu^n0D2>ByxE8Gol&+n-EZQSm{$?NK7qOT6iD1L}UPMoVr+?x+CO6yA
zSv@AI3z>dVQLO5Ym1al{?<g4|X35XafXaX0*BHlsUbKO=F)vgdrJYE#X|^=*@EJD}
ztrS#n`E)2$jG1G(IH~`+0_D~Aj^C=~i2RgeBRtb5YW8IN_D=jgKHx-4Uu_|TMih)i
z90@F*!wx?Z);Z3vT>gzeL~PMU4^W<IRx=s;+)V&b%4R@)HLQ<ef$ld@yG~?(RLQ?}
zr1pJv=I;S8BC(-EvHjgmRw_daLl?6qN#^PDdv)=Uu3gw09DNucVZ}QahKgedk(+Hv
zWz@dAYc)X<e~q`|rg6R(_B8;RAD3ozrek*V_YVRw7fo9TnoiCXyesTcS3q?zkx`K;
zMek?qlJUlPffDUtsdq+nd36o;tdBlSMUIn|L6L67wxQgxV9kn8YlPMfrQzE(A2xz<
zOLmmv1{5NjQ5dTr4YAI4M3#pS(B?gjT=`;7{j4<Qm>7qP%GT%q2|Ds5IxQj8oi!=x
z1x=DuaxT;SU{_9|)NbP$*Sb{Q<G2V`i-#CrPQ3>}P3_k!LO8i$!+kbXN4&2p;fcb#
zsJ%|W+mT=R-l|T9gL{9XDp?ykAn!k{06<|%bk{``wH%Y?*!IEke&1yZyNT@>%ul(L
z=N=5TB`x9{F&hqb%Z>De3yGPZDyF6GeLO0ST<_~rb^EH?@coTP8c-Lcmlz$wYJ9C5
z*-zDEUgVcdebH*WvLskHyS@J-<>$MsN`=ZLDJ2W@>;ArnX|rjUHu-lE{$DN^JY)Wm
zD&*@;7;hpP7;o8jdLRF#9TKotjtheE7RZ3?7uKOtRkrx$Aor)SCCl4I8;DeELB+e@
zj{;+i7mR@&?SJK0XgPHSFdr||8aT1~cYZ;%5g_!+t{V<X_xM#Hs8slbyZ=g)J$Lyn
za^>K(wC0BsKU!YoTfq5mc4>*)KTPz4N+18t|J^|Ke+FGXlodam#t%r+MfZX;B3bSG
zLD7qFTSPk}gKvGvcj2VUIKa9N?opFmX(uNo>dzL*B>_3I%>Zkn>*!^b_n*j6vRJC)
zK~PKhzDB=~Rf^8+_;W*NB|KM9fCT~zT6_$jXt=u>fLhB`Bcz^PsjVZH99C;wE{`>@
zI0Wn;{LNdsjCZDK>ahhE_BA?7dIOGed?6Ox=$aHUF`eqzmKr)GBs-#HxYgm2wg*)1
zI`oIY>+Eg{3?CHzs{%kIf#*L3d?5I5`k*c@7BWVB0DdR1|618S%pu*^4RF>I0Nt#I
zwLQ&QUl<tje)2Fb4&RJlYSi=)cqV?T+(WE9M!#}9MzfZ8o3#$*JYgh|{WtVHLlEqa
z=`eB(&P2>Yfj?gP`R*x-gyHzu*8uVWj&psC^gXkc!Zmmm{^2S@Fs$-*z%koxqAsv@
z+{mqX=R(N&(O_eM#9LzM@Zx}x@>{JrjBWCKep{$tYal>r_yI)`2q?_?RpuIuoFK7x
z(y-L5i0UM5OY~!;GyM)msb%X!#>(|u4NVgwu>2O$(g2KyPJ+q1TRzOewKxgSRhw+x
zt?lL5Oxz+9UF61=6`WLzJOH9kNLSHD#L!685Q;RZ<5fJjTbC8~cYZJBa#DgQ;%i<*
za&+T8;usi4_1X=zJIzNck2OYUb*sos1D=u-X%GMycl1_ifBA($a+>4k;}KU{4Gy~~
z$8W)Btnb}qy^W0k&dp5tvxvjxDlR&bo46ZH`{}LS_F}|>g0S;gEcZ^UM2lNP@8{_~
zpveUSp4YJOTj~@6S77687kp~rV6z3qgYRKsfS0&9{0yMoW4wdun35HC63$CuM>Gwo
z`$}`($Ef+YqVmH7YP=p+$k<To!Y2;`;dE`WsNvJufW9Q|NYYup+dWj$f4$bLSJt)_
za@g-<4(_qRf@^l<YDZV8$Jbun`QjXQBRz$ewlCVhH7Z$*S>h<OOwHYn<8EM^Cf7Jt
zJl{4uc7{*$^pweX`5JyW;lhxCqO(_z#Q~6U@Xktm$h^a3_^5~9(^gT#$WeuIBg%R{
zcyZ9u+>zJvYsmZkVk(4vAQwYD@9aX4usJJ^IX=_Wp!p^%3(9$kDKm#JvJmE3>&@NH
z3DzeC3y~op2@FfjMxThuvB+v&!uAbBUhL?*q~Z;;#H~9lJUQgLOcHK4x8a+6RuFDD
z0Lo{rpq5&Xr?H<1)n9uXm~*Qax#5-^wW1|w#~TKP;eR0hY<2YZ+IkV2Stqbey>#(L
zhiM|&6dwg7tj>s31>v3SxOF<y3;uSG+17Hyg78&*5{Og1fbwnIt=ny#i<;g68MPZ+
z4^}iI5jces#tqw+-ASJlFx!(;j(-IyCWS%BI|>qfc|iY+B)I=G9RJ@}!>2f!y`SuF
zEG6*TXhi(4pQ&Zx5v)0e7;gHCguvsX#oKc3MX(riWHEf2b)9pIjzBMW8kbqI<YV}?
zf?A|Az~+L;YBoyo_XQ*qB%wCNwPU?wbOPsmz6BfEHw<dFFR?lqiE=rDK3&=+^zIPf
zZF3j|iB#WEccb!%ml4+REWZdVM9mA5K$>zll|aQsI=;Y4$)>KzNxO#mI~gOH3g09!
zRLME}hXhD>_w(qpykAsHs4%V_B9HM0`AWgYBrzPx%468#ef|D0709X##}9wt+9Qk+
zF|n^g#!_%f*4R?26{UWxCgqdBl8VtKM?yuJtKtMwcF=@0E~>Z}S6a7>6EwH^;_7fe
z2ZP6!%G{K$m}~;un%_BiAN~bkrr4|n0t^w1$c}wURB10|*e9$BKTu9Qci`^#k%487
zhmuY+ym8MNpc|?3%Lf{53zsap#zr^v7IzqIyq7IDV{CVqaZ2O?QyG^D-XZahN$kCy
zI_*tXi`Sn`FqRRuGc7AIa|k}_;OERTBAcWEff@wD^V31L2p^*pn;7I;JgLr#mmBVg
zSjoBvq5gb?*G}6)9$Qu&fQcB!8323NTdgY8viNhy%eMny2r}NOhOjZY^v}Bh6hd7%
z`Bh2CQawF*cZ<&S*%Zo;2G%G#M$4up;ueC(s36y{$3t9MGzJN0?svO8$-Jg4{08}6
zd5%F?{MR#NHEXQ2xBk@6%UN{&0=FcC;872i330EiKH#Tf;XEL(_QUvJmr<o(5BLmF
zspZuleDQHdT)L6M4g$<>dF{8LAhDs<J%qHG)D~i2q=Y<F7wG*6)NOwwvlvAPM+j><
zgroxeSwQbvPI&-!dqhr<7zDK(klwCS5qP@xp9z{VK%#67v!O#ah9BK^#^cS#NQJ60
zMKb&zqm8I`dzf{$=GoP<gr_Jao2YZ%&G_)Os{-f&Nv*cozxhhFTx_QN*=%cC!_=@i
zD-cBQ1JKOdaxuy8&1AEA4W;l05kA)Tw@|n~83I4XRZaK7p8xmS_beApz<uyZD^8~z
zSzxN=a(pcW;E*)MZD|O3mvOa5(D}kaV3zP~pUJz&xTRn+YW&~J%U=5MRu#7md~jUG
z3m<{0jvNJsb=D=LE+R-G>s!5yf`XjpyKn6UodrLv*h^KjHqQ!2d9w7#hkT_XB3YXZ
zgys0|tL^T8_53(Nd*~RRU|aW6KWd$}GRJVnnc#UAj=s$(o)vfO3F4oU^-PsC6gF70
zvbeQaE2MdAr3mLSA<Bv3+W!L^Oiuu(VPg&kZ*}v+!x2=8_AKyd$N)nLUzT)>f5r}K
zNjx|Ei^u@v2KO87-gQJ?$3|Ig@OJ^$wkV$ceJVTH>5^dc9o?5e{8P{b<nZVJGtJ<0
z(|0+?ic;PXj2Hy8;iWz!5Kt<-?MNtayTAq!BebCQgGP?LQct_HIm19mhravAF!7o(
zY-2Lh)PQ%3l}RSx%B(rYx&n*=9RqZ42q--QLHA)^brXzV9$S%m=N-q2qjYRZuyQIB
z!15ys#$;u@uM5VVJ)u0sB^7Nb$R!*SOi~Ky2H5$^>h-4!Ds-#cv~YHcHnOis9OD;6
z>i}yuX>AbFzl$aJ$tC;{>?fcVkiO?yBN7-Ca*<r3z^qzOM<l(o#7x_CJy&<y$Psuo
zTV`SJ_>{JxwuQmtzm#p2YzR1#l`||r0K_f98i1otGL|)Ko%0$vSLq{%f~^g2aGemV
zC=SHRpmMv}!SM$<GDxWZQ^;4Za+}aGoir;|SFk<L;H~$34G^h%Ln`k5OcIQLr%}Ao
zR?0iesBe)Fd3?>8q_Y%)V~)eeId~+wC%@L9e0z!p+&=<#g2Ix%ir<H?giAeJ(jo7*
zi?`pxZ_gCbqx#EpR(f!7d}3*iZVj&vf6Tb}D8GT-9}q@!Xvj;SsK_>T!}Da+WmXV*
z%W_<`Q06Al-DjL@Ty#WG55~`W^jUHK5^s+rS#gGE<5}rN8*JITm-(+-PPrCqhO$Gh
zv5Z8jY|Tqb&yAuM2Gxg464R><`^$$GUVmRM+9(}DW!Gi-U=6&Algw)1$a9zd`%Q5i
zaIfsX0K=_t+CjI9$O79CCjeX*vKXV}`Yu&qXZotatd$#{Xvb_Z`kY5L!L!d2ejYgj
zn3;K@(+wp1KqAqIwFBiq08%6MY`3Ig>n-vUYfCdx#|MY(%c@X)>Ek?ea(*mc$;wcF
zH61J+rk^_Pft;2N2!0kMc?n?n(H;?gtbs1o+lS2XO8{kb(F0tF7|wdlcvs|4UtmX$
z#o-IU4|Afdh?Pb`$C<tj`cuRRR`am-Yzdj7xG0x_Y^|RgZNbXqH6(=HLfG($V^cwc
zBWw3)+wHBylI^G1&8Hs26$;d?-jI!5c5^f1Syw5r#d7&Jg43hSnf;SCHZ4C=yFdHV
zE0w1f16=jsA5)0GOM6sbhLf52`O?y&WK2ibty=~a;XbW_B6USnh=sv;hqG-`Mm4to
z-1I$OQZTk}W)HIm7eYEQ-)6aJn`Aw8AhK|~=S7=t>8UA-UVo^ckZ9zT(0GmSaAlX>
zJAl73EBV32#i4#6dufoe6kNv=y>(A^`^#f~Ch}=TKxHr?HoBH!Kqiij{4~%Epkl~d
z``XMpD_LxHnLV)-zN<VChch=DGxt8&&91|TuMV!I#oNj8&7%A-z{zB_fgMECy^@hI
zh&s7x`f80In1hQjH)u9B+T_MLLZ-Lg#AfCr^S{PgtCgB%F@kDhS<je|u-%T@-~(!c
zZbTA(UCz-Wqev*uYzaQ%y%p!U9Jx}OSO@><eUi6b#<wnjGfw&*ghy4KS|B<bjYRx`
zaAMUnt|%eZeBS**$#b}=E$9fDP;-D;XI7)8-=dx<@j7vFAxuOA?rh`e?ZYuuOsZMn
z8Em;D!qe1#q(~NA+<K<6o4iMIOxN`Saoma*KBK+6uN%TypBZtP-`Rb!Fyb&C(iq*q
z?>+k03&1Uqy5KF{Dqu^IJqCuKc`$EYGYLeYamuh{z}t<%*x{%+Mm|{tr+j@Qs^Qe2
z0l~E+PVH<SaDkA&29nBCNJN@&BfEGvGKMRoONIo!wYT}y#E`=XqG?NhLd~D8art9W
zcG7yRNMJNeoO6b*XTkm-=Lo|5D7;37n~t?xGXv~`UCutXHnbpy_>9Zp%Mz@9U|ixk
zn-&MwrmFK5b}X4AIrPmSoRL0kBW9zvu$oyxY}%eaI?ope1cbGpLV+d0@80nlC$sft
z*HuM>@w;!gml)`OuYy;_$v9=-;s&#30IzF4HA3`e1z{k9KK%M!4@<Bo@$J`Tu4oo_
z5eTl?j=qZm43BrYxrbSO7*FzhA10_9oLrH1NAS%h4mbzpf3q311J3p;$231^Gi6)_
zsl#Y#S74Hh<gaq^8pc-zMdfn*BRAl2xeTxk_8xx~6$q{&jP;!H4CCMIO!RsyNN9qB
z<AG2t=D)h>T(n!hy~TJ>X4*JQ6$uy&&@FIyc+1M5F&u#)Go%y5v;?7N;b7OTm=I@H
zA(TU7piGJZuLZ`LQQ;{1%4YcRzV!bfq;`LF9SK#-@R{`Yw&vFW6~FQjZhUNBlLY&b
zOam$38QsHN%pYU^SHVkw`PiuCgzws#-~@xYC`fDdYm4GH{HESHl2^!%_<{UdW=W3b
zzw?*@P8;h!cpA-EXPEqp$fyK8jSa$0;?0Vw)gOP%)~4T1Bh=j64&^GhVdGrdWV0wa
zw<C~EuNQ!pE5^W)A@D?t*aLJxP%gFaf21A%Ss*d5=v#*m1~#cGaL46ML3L%mwTS==
zk)YZ2M#x>zS<3CF{4214FK7bRDeIH&8o^=M=GQh?gkNT@_&Br9k`3?#GwHR*m}x;L
zBYb+)TvTew{Y2Z!#B*%1_R}Luwo29{_`z^l8-v{K@BiXRZfE=My0dZ^&&V*5_lx#l
zmpmYjNL!XUxsPmU+aCWf`vykl*eYEg6D?64yNESWY;Pi*I<dRLfXR_t-^th*<loyp
zd3Of5j|fn3kbcwG$zysQTV!)vUirc$kk-@)gG@&7GZ36Q#u9ly5QOf8uvQtVg8W^r
z>&ros3gPGDaA5Mn`D47srzjvr+HAOo8H~U%#^jR1KD}rca`6hki|FwXtJpW07A<Bc
zQg`Q_ZI@Y44`Un`qDuJrm9I71KKQ7~-5$mf!5$(G3{VDo(FWCYoe+vc7QFCrjZ7*;
z)!p-4hBR##@sFSOM&oi;;=S(I;2r(>g#M*h&gee~z1CtIxappG<hNr$Rys9wJy(`;
z#gK7aqnsiYwX<Td_L6ifSlr=ThdC;c8QQLw>UhB6PH}Wdc$OP32t2|pEZX=gNB*$6
zp;?@%ADiGL3FHLZWuqc(i41Fgnp-+zp`uH5&s4M&YV)h!H}-vzvR_9~8w;aVZYWXd
zFxrbQ)dy#_hD?X3=gAP{G42w;BLJKitgnDetEKxG*6E^zkfpZ_q8MAwiT_$EfRv??
z>57ZfxFjofz@mrP5&V+6&g{dES~Xi<#D7ufp()DvU9ToK_+f)>k&~07J(0M5qgA&Q
zTpBP8KG2nB6;iDFU!GhXT^B1}4=(O44$vB{B{Xnp6{%JD2(#@UwEqy_kX|NP7ubaO
z+oiG5nu+yq!|$;iMKr=65d=~Ty8u_|(nf8GsMXCCMmk_|r3_zkJ;qJ&R{J1;PX&v<
z2k(;{m;ZrXS^tGyDn198XUL+~A>MWv_TMmz?Pk(J6vh)MM-Eo|1Ewtb>}4~Gf9Lyx
zt)tp5N#7x7;n1N|doG>)ECG9T`sb5RUPb#|dTtHd_g?vydwu1teJ?I=o+>=O^LGzo
zbjyAZO!VhBPkzf>FmXS02zD}J^*L>Hmfb$LW!iI&;z)5MQ^;$mW+!e2<E3SR84{n*
zS+6tCzE)p9X5gDlv_#i!q%zZJT#>pTX!crD=W?t18M%A-4vNWv<R~xn;fSs>v-(4V
z12T}NX3CV~HSq@#e=@foV{Yknynt@3!@S^VL&jO`a~dsn?1x&<Tu7PXJ}Oqc)0|F&
zKzmCnsE>c|67?%QD^ObICCfw9$wC!g02-+|tcS0Ryk_M8WBc^?jBCp|_ORV=4b5jo
z?U<dNt0j^?KY~^M7puS6+bJ{nwqiFgp+!MYBNu@BPB&px-4EfyR;i@_HbPXHifqji
zoFiNu(%QLN@Zb88OPPsCDyL2>cgg;@HX&B2&M#@tJJ(Qhq3|49QOfyWe#BF`JHNl@
zOv|e+ot1q-I}8mNDp;tM7d2g->15`l(pLX{;-+XZcZ3W@Qei6`y@rvpI<wX%Z>ta%
zVFPd5cq$*&=b|T&UF(tJvBn5YRtAlnGAUhE+D)m-7%@c;%h!9Mks`G}qJZU{^Y1g|
zBhdN^9Z#W7XxcZC&K-G$iij$CUT&R$j)UaJhAfDaCaV)vH?PjdMhA=8QO#jNrstv%
zpdFcH_oBK+U&>_ZwLmAMae<m&6%_4bDnM)5sc8p(6`c6I5;yI6Kd<O5kj!!j&@?B-
zL+(f9&3^^d2G;Mfrj?T5y%4avNH34A01@(!9Tvz`A(SWA!HMXKI+pvRk^QjMUtp+A
zGA$RHcx{y>-<<C55W^Bo>PDZ{-VJGD!v;IYS*gQNX*7-21x0;vkeU5Mq(%^kT)qN!
zhIBzMO75V1(c|kf@k?OK+v)OUSPvt<1kqb=e|xmG(NL_|s~{LIT9ZH1u^R>g`3468
z`5Cbc*q_50E)<68a$*-ls$IDk`znC{{?&9FbQ$s+{%L#Ng^|?D2pg>&Y^W98Z<&yH
zfFW=LU7xIdOv%cO@`bdilzoCIb_eDFhT$>$sD2yrIw2nsrM57Lo}s~I!HmkE)}%~%
zkRL%4O`)MYL#PvG`{@`3W|}NJ89Csir`>S|rl++0u5^;)9S&$Ln%0s`a>$%p+iH@>
zUR%Y$!24W|`sIV4!*tX;u<~IRXj`SQOK4&FttAyn%{R^0UIynvfv^GasA$#gfn?It
z%pM2yPFu0$p7Mk8q2nPQ=t=16wmk1SdSu58ZFqIHUp~TXxO!~Y94&|T^M6&EnIHen
zpy~min>H-zLIZOpDW|W<gwcw}`x}5e1s5i_hw9K&l+ZbyL)5vgTWCr7Fjuq}3k6Z^
z;9?>@Vi$4K>(tysW!F{*<<qpRWI>>dbc5}_q+aQzyTDbtT!i!H2eH+7FMYS69+2H>
z)9#{cNWf_II-t<rtI$o9j>q2~3we$RtnyWie5lv-JTxHnJQ@rIoQDHF&YQOvtc?0E
zja5}@9bFd2E4#L6H%z2%ha_4`zcpB3w$kczQjLZfciw^KN&DPx<0d`Vh=%VRC`z?s
z8q=uQk&D@}M-TkAN02@E>74gp?D*KuVmpbtQ_^*Y9nK12&gc+@dP}q@sroX1xRwcx
zOZS_yGHJa~nHPaZTKux;rZ(~SoILg6+?*MCxJh6*8sjw~poK1p37A46a=OGtPApG8
zOdye#`?DV$ClUQ4!SVg{Az&K`bn~AAfhYZ!KE|}>4}3WkVzT=7!rG&jl5j&&|5to_
zI6iKH7E`G2D3(0$;ia_Y3=JkVoNC#@OywoEE9sPc)iw9y8$Reb$rP>cHI$J4qS<`4
z0|wrk9`#G(;EEoUn&R#&gfP(UK%yh_1SW3hH;$pDyCrsDa@OC%>O6j@?#zPe5tAIJ
z{_&7#SNYJQX>>CDNao!FDv2vX1|X;9FTKsFn4n<-6*1J4{*2ws<0>C=ingC{7trBX
zx$-|yP50Vgg4Ei73jTNc@EI?bZ25eoRE3!VQx<r_OO3xm8Uj*jaLkT&M<7~FAuJdz
zXIwb_P2P50hF_yaQSrT=0qHsrC6Y`7?=wT{uCJoy4X>?!5w8)1e!z&RbD?(VG|^4Y
zhCJMSbz57J-|(U-`st$H$&UHoNm1#vG)v<ZC#4R!e0@2)u3dhMp#38Viv03)k>F(m
zkKf2m4huCzqX!L?IvmhaSXvD6d_i9PEW(f9S@eV2o`yY{EoIiJ*mT;eNawAWv?i$2
z3z|1n2JH?<Ur`vH3>Na$Rq2t>7QOT82q;=nI>+4`FvvH=d#z5O=trmCk2j6mrW$I!
zng~P}0AVfAsP?f^y>7>JcvNPdq1h@&WH_ufc3uc{qTScB>EYz{RLhO6GB3){AdsRG
z&{)zcRSkc0myMB1r-fL~(ulepO!rzSbq#$hnQ!BZ*Tp|YSPKCMzt<UN(7>q&!k%5J
zpRlKVNjV0i#0a(pTJKN5K3z^-U9N>sKAB0w=qt=vyuXqcU;6HM4@N9ZA&ghezViW(
z*4Lcz1pfUn=qtGlg)q}!`N+rc0xT-rX?Hb^)F2K5UAVLI_)Ir7EM;a<a~Ni}`dywm
zZxH2!PP;H7(7nqZU=Zef%1rAOJ9rdYSYZpGgjHyL!$hDl2=qk`Hqu10O-+)$M<GH{
z3LRn*B<JUzv+o6{a6Eb+oC9%yHL*_2J7)v%+j}Qphu^H_&GRY$$+X|Qn)N-U3Frw(
z$0!CYpagb*ANQn0n@%;#i!#qLb6(|`U?vnhG!z2_xy$mOfiPH?MOzdhBmU^@8RGW^
zy51-F_+tGJ3MZ`qT<r#)FE{^Fz}Lh7)JKi~kjSfJrC8bn@7co-u=Csr>P12Rzq|;#
zY|-9@)_)7&v5x?cK_mD1K&k-ky<S=Kpux;Ea9n=UPXOtlkwN||6XKO)PATXqBJTAz
ze>|6gK#V5;%YTC7|B)>4qvi8Fc|D92;Q44I6osbY<hwNd1kvXlT|Tq`ex_p)J)ztY
zgPsVyI9etjW{wtB*z!YjOMdJNzW)S(W&@nRp9tt#t^00}gQZQ#n?qNZPK*lN;G<OI
zKxHyb1WHZY?VxmFb_&@+a_tIXw&>=#X#uPG^UYm*V9(K)LZ>T)g`=^ifmb{4X{&V9
zgd5haqoOR(1^Mw*$Cc;uWp{|5_zT-IfdSkXf!4>b?(9F48wzZte4)WJ1qHY4mbkm~
z(A{F&U7eI>o)h}mn706(zx?`3<6^`ukF6T$?zxVpqw^zJS{~HNdW$lx^kcGL?g2Fj
zAs$<oj}5W<AuPcLGxJM-v1Iw7TQ6u+)YYNnzIPbAm%Xm$Xz61^*28f5EiRv9s6$I%
zpo>wx&nv4o`sGQwJIk#>n_nN38qSuC*TJ1po2{~n9Z8mnmeO6&K;W8%m$&zdvzcns
z=C@m@tr_S`BTkB@O_&WjO(y*NYn|24at{9E`XkLzQN0k(g8XPUEjk15h^8&iJFy!^
zD?L`4gBodQlfY4rG=+}C82#q9-_5VBX2gg>w691btnmJsVuqXVMQx6YUJtZRu<pGc
zNc45)jE&a%JNPbUh^09O!&K{O=(pFut`AD!_4PX(M0LNvk^-&^mel$?Wg&)OFefK7
zfD~sryQQcp)qkpJm&ugY%O}@lWGk1x`%TR8{!MhFdWV}&aUfP+cBDSYD^Vvufc<K`
zSBDP#Q#k<)4M5YzHEp(r<qM>Oy46R48h}*7gy6-_M`BLt@=;jYFwpoKI*L-^b|ukZ
zW5i}$ORd*{Jptr*l%Qs2tD_S5$det&M9B7csrz6400fh{g&<pR^(CQ_<z-C**%J7P
z-#XIj{Kr%Ia}x+2wYycn&A?-5GEj)UTS}c`*yhbE(kXymLhpPnB>=C2fU|9-4mxI{
zwC(qHrLFg=XB`45^BV*v_x9FGQdE|5S>t)AOcsrz5pcw^d=vZ76CRRbvTRc&i-4?a
z%_KqtsCTmsz27xyMan@{iR=Bh!sqg;0=h0B-9A==_2!GK#(cUOw`Wh!s5bAcrhHuX
zRA=a{A0`4{EWpN-*D4!*hfDJu3Bfg^Ibmy*WHw2+=>;tuxPomK*YnZ@L3#~W8s%ZI
zJMJb5VNK#$X{-A!q$jTi#_{j`e46dfYoLFLQW}jQTig1NyVJkq!6I^}{{Xs3cKYC>
zQ510msn$UzgfJm4m~124{K!MFb})K^{?}pEI~6)XMN2yOgVD+xOO%Muih7SX<hRUv
zDkra^fqQ(|PE^xB?*iPNIh@|}2B`Z7`tSyGGHRV)S3$>ZD8WVdc+_Xg0@n!5VW+||
zv}VP^`M2`Ui)VRmoll;5kDzH@7QYOd+L>|pjTSqq;SX*1d~3GUJ%(7g9vE|c{CtwC
z$!hD-PG@k(>$5c;PDpSES+i^DYG5n>UFp^HoprypE9kt*tL?^XSn}dp{GkDZw;g8t
z%q<MPpUV$ls}J|o&{3X=DoHFkL;vE*5OdC6wRarugO-k3ILwkoEvakscN)qj_A5Uv
zV1eV7=n`kjE@yUxK~+m(!DnWq#;yyM+x%h<s9DZp`_IgdB=lg<kg9@?`T(IbL}tNU
z=P~2R8@&rNRimDPuAO1~E=*ONf!lXMo1U*Y->p;Hx}H}$8SwVUsrY)0#>{F~%EtvU
z%*6eVx&c||Lk6x%6EG^fG{Na`%f-w&i)xszW=H!lcPZk`vDZ8=8~W36OdzcH=o#<<
z9i5I=3)SJG?G$<0fU<f%sDZ2~dL7i_#1GQ+3bmOdPXuMxM_)jl(gWS%ZvH|bU>YyX
z91tKg2ztHmobtHkEZIPz19~Rpxgo@(iHf&a8jCPS!xguznDnKW)q(?GK{x-u`Q=io
z0<h=uS4T_&x$<>a0|U{Pn2F+5wxs-)EAW3hSlVQpU;7%m(XSgZKI9&6;|C2)lLvsX
zKpt#XY0xnWZAzyhq0~&;>Pn`8rvFDJXsu$sFZ!`Uy&L)%X5pGnJLEadpGaTxJJV5v
zp7>os%P@^LOPusKS>?)OO;(rWWubxOCoJamrz9>Wt3P75MxK{WV?lc}?hD%wc}9-u
zsuh&Xov1;Y^<I+XR2$47wrKJp-^s|^onZ)QCvVg+uhA@uSYhDZUY)eH2ilZI``*bk
zyBfIkkX2ihaDwZJ9!~fY8)Xt$ceK-d;6m@~ykuUDuzdX$w4}l)hBgj`yrdaHA=xy>
zN=UA?Y5SeN?LmL6QQViZ01e}~F9l{}QShbkW?gS3<GB8U19o>ruU6{Q?op012*`x(
zZ37vN6>4?v+zGzjNI!ICEt#y+y4hm409~BPexdPrkO1z8QSwF2o0)KV4;-N~>X#@X
z(7>7Jy3VOvkf^a|<_`23l?&3jTBHt`w;L9saVZ;XwgrNe<s-X!kul*(ndQB;HAi#X
z6K~K1(dL@9;2vL&l<paYFwNqnB-2{S5+7aTxS@i8H7WaK6v9E>J{f}OUy4}!Z5@x9
zb*sLL^of3?Wqyb%r%25V1_qMMzklw^(;g<cT-M)v+LT9=K-kDOYs{Hd-%0M>?wr=q
zWDw~GSww}kadCfTNZg>fzpk<Wr^wW?k%F6$lV_FcwL5N#ELmdm!@A*)MQ$M;VK07Z
zM7UMMjy2}y7>UZh?!63M9(vmMhE+7K`}lZ~GsQUmcoA?vh)r!g&1JmZI&szlE8+5*
z0`6#*54+i!cN%OK=z><u<BBa{%lxJ(XZ>>znYI^h=SO&So{n>~P(AB#4d5^ee~`D+
zFt>tM9lb9PtmvHX$V)+x%mSJ6kMloz`Ia?_dHF{M=x>!)f7^vpU#|Yat3A_x?}|+l
z+x3ieK~Pn2l$pd0`cYV>_LfE2(jqZDsmna+Rm8<A0y$ml8>V}sro<Z<wIrQnA<0=U
zO&)$3Az$y*xm9H`x#vt;QuAF$<l45AR*74a0Y3NRt`}P4cSKLbUv&v5tdBL;dE>uY
z_7CaYPeaV8U0p47;wmF#lWB_3oaeL}Kv@HxTVrF7AP9#Q*jp50K;6C?SfpNHky!s)
zB-6P#Z{B{+Vv7I7>pcHz@2nHjsWtHYI;k7M5oo4WC&YarwYTjZ{RT^DWfXcu=0@#y
z!m4n)@9c!OyssKIVj#Mbgiq!KUi0#oBb6lUDdhzXTjzfCdhXp=+jGrQ-3Q+k_N5I{
zBFh?J@+uB1CXhOX+sg9fk2EAtmG~x~u%09xAWo{GZ+@$i^Pr7f8ztq*=NxyGEHiRs
zTG}T3g6$bBE5%9X_KX#n8ArgW@mz-c>TcI>?4mu#uZ^pXJho*tpQJ>_NGTaBSq&9w
zKzYZMXRtcPl3v~uLEqOq!`agJ^c>Ak?%cLv&wPV;)OsxLxWpLO`a$QulqGYw+U#{D
z5#Kbr--H-vKDn96>WR_XD9U)-5Nw3#?R>XVf6s%M(&rqPK4r>izoVfTirHQX3(T8H
zIRpGl;hT=(*O$Lrmf3<KnMKY-r|c8{vk-&@lNhGK#$!6R)#9iH`5tl0p8Nma>;yx3
zqq$W+pOYQ!VWm~1u9TS|iGZ#~TyQGHHh0I+DwR2Q*CBuLaLNp7jZQf|lh_1ZjY)nH
z$XzgBUF}@s#7|b&-%x^NIs(i1F}<$BJVLq4_JS3?IQ|&6<V?skkjlNjx@hchA?o-F
z?+q03tty!&`a6jiGPLpHxFd%C<+qKZ`8F>=viXm9G}uL$aAr?ty>qsT4ewFni>XJS
z%9|{CsW46V1FF!~E$S)@J>hq8)E|l}TiwBq`3z=_>fYY+dEC_d{b5*bRpkx~;<01}
zLpdbq8d|_mUp}ABPy@ys)s)V?93M8oxt}S2g`LXN=<pC3)G?X<NH2m0WUPMO{FG34
zXIJGL?=pt*k-iP%Hbc?iT5`G$c~Gai5Xop*8SUmWbk)bYf$stViFdeSy2gKr9dGqV
z-zuovAwf|WT5G#Mlod=Yg3o|swa<3EfDt9<d*$m)UUu&)5+@DhGL_7ni&Z9Z##<cg
zRQNbwuVTtw%<q=7vneyA!NN7+`Jrq&VfTpTzZ43tFn6$2bw*x7^S*Nf%+Zg{zLbWk
z`$U$e(S9Y)a0))U_9X-zF;MqNUfT~1&Wryg!U*kbS`X{_t>_q*!Qn(H)t3_ic9-wu
zAXZ~;a4k~Hx4FSAUdsU+p2eQ+87gz4?H&dpt91%`9h4E1#IFqn-sltA&sXys0ATk<
z3u_Hhy(PgA^Ri+#rC9oPIn|(2%PB%QIXgrT$c5oK_Yxp8)XcuwUHi_l6Vey%nRw*}
zM8?8sTOTr>-E;u#_8xog=$Vj_QmO}Gd(-OpbfknP#KA(9<7igjx)~m)EzCTvj_ZA|
z_q{^7LvDch=X+yD8+{Z;;n{AW>I`P07F*Ax{muFL`OZ~wnCWfRzZ9Jv#PZA?HO(Tm
zjG7y80rAI)=9G^SYj4>2@r7oUKt7mOv;J}<jxUxbcjYzs^q-JUr;$fDdxCX3Y%OOW
zF>v>$gRDBQ#sh$PHPFZAiuPFr9mS5S%CS8qZT=jZDYhXmIgDhp@%4pJC#uw9Nl~cN
z+R+L|&zJ@Wc^W?@or@b2_djp!KL{3894)w#$Ma?Rp6AIfGfpT$n#szXX}>IOyXt++
zLUml`lw(+9LyC<#>GVpNW8Q?DB{j3Rdup@sJY@;2*wa+2YJm;^B)<Y%N3ovWyj}er
z$p8YA7}1&H$@93$83Y|JC=pv|w`Cw*V_3Z(<kh!X#YDIHSMBo{sV~<t1wQCa{qwBb
zRjcpIw;SUs!eKV!yxE^*KC#HxMvwUpITNShVi*+w_tGyf#%qb^YB4f}F$)8)M6Y(8
zk#mz7cX#u08Qi?3jDH%V$39ba=MeR#+kJZ=m#w3t&{tVf*IO&!o*!SV3-%@Das2Hp
z!STOf>#RE=Iy14h2<n>Qxwq7?VVdv!Z>%EQcu8!}mog`HpZMeT|GpwVz>0jWUipid
zTmyeH>|02MiGz*Ji;6=$t_gF~lT94c&{A16RcMpd8Fu}BxO>}M`j;{w<rt%<kaWFX
z=OQb_F>XNCt7eheu`GEz^0h_N($$#5zt4AbuEwy86M*Fy;Rj{YVX$b%L_uD19}etf
z%M9#1U8o9}nh6w=L*8d(7?(WdKhL{;1ubgLfPg8D%+G}@VMcj7oq4U;YcG{q(aAx6
zS30HA$bHYcpfdfDYXxuS02pOhDowY0RRQc_#jRR=dvLl549^E*7B}tkf~AnkTP>$@
zIHpD#Un;3&+-^MtY^XQ)c+@Fw+2!pVYY&+7yKwJ_G`j!m&P5wNORv29*UY}B)LVP#
z*<Sxb^>(<niYu<=Iu;GzjB@tK#`p#lj6Ki`&1&mydAB0&`9e4MM+EM_urZeki#X($
zHv2beFhq1NrCDVL(SW^tb=hoMO82xcMh$`aY0YI~v+;uOWF{5!{^_D2KADSZ(0o>x
z5On9o_8{gXe-4@2kAbBjzThKRo-^?Ul%p0m$ft4sjV{f37G7y;f80_xi^qZWLd_CZ
z!G+0&A@N$h{ngZU?2Xahc83WwOs)Ik_q>p|yH84NZH5R@K+N^@zfyfz_L&mjFZu=S
zs4dbazusJ}*pKcFkQeXiHu{rdMLDMCTfgCBjRX3RaY6mTGm1Ab9}9Ge7qi#gxDlgA
z-Ks;5j{*EB&)mS9@7UoPK%`x;6t$oOQEMG9{PHcY@-&~k4X+>Gc%8Dn;kiq{k8{g9
zK`f~3mG((yj%C~9^I7>kwUkBux=)K2JRF8{gyFq+q*;u|-^7MbM`5mQ!4n7jN7FAr
zT2(H2RRcU)dJUGo0inDG4887McK-EWu+F&RIxs$jPW@gnQLq5ltd{l9*w9&z@2r&>
z{uZ2Z-aFE)q?kaM)g=!zGn2|oVBYfp(S#t52|T#k`EkQgflNL?WdJmK%$NBfAhYS~
zIlzal89>^bkB7I{zjo?2-^ktBPW<kg3qVT#N`6%2P#fLztbf57VfV$E2W4H~CwH(`
zFdj#<lNXS;6K6azRIPaw>)Jr&Yk1(vR&~#9tXYvCGy5#u*8<a4kTE6AUU_(6BiFP_
z`|&QWk|<o)SONu_$o)P)Y`Sbi@62NFgJ%NacD*R`8R<7RzJRMcSOY;wBLKXqcXn)-
z=cbhc>_sa<(YZVgodqjmwjCP+tF=At!`cD_<|X$KY<!f_U)bQ?IM<w8nV@lg@@Y{F
zI#LV2h(xscGB=8|@hka4odF$VJfdD=1<~94cS!5~dX2IB@%g{5d1sIz#5a{aUgoY5
z(>}jJ;&P_4Kj~C!%*@_!yy~PSj)mJW>W7|J>Q!w>Wzf$^jOjl<{@R@49(laR*&uHC
zwJNJ<9=AqqEaWm86z7`n*PDx!7hTx;%Q3q=>Zqy*46s`nI~bkuQ%+ET$x!0;&5@C_
z*$G;c>uDCct7NlnM+vGi=1A9=Xr&s-U7Bu)8)Q97?wvEvft?9K&9Y;z53Gp4#b@{B
zyItr>H}5LmC<+go4n$)!KWMe9$8AO`QMRKpFUJo#|Ao9c%btxjZKv<1G*ETkmZsTu
z=BU5d8Xwxw8Dv2a11qqPDAo^CDD_Qd&t9Il9oF>b<>C3JP|zW^0Jdg?e|(7O!Q8uD
zjY{tIfXbxMJ{Jd5gB7>7<gp!NU<yH#ynN;*O=>$&o@BChGU)11+iWdt{10cd)!GAN
z<Egoo8{@l%KCgOx-*yw~Ea+aC9X}h)-r?>s(N+Mx##(~MzZgdzn7hq4b5p(9fiLTj
z?9{;N7kd0imss3%<ZRxACdURA0pkXCQWogyHz9a8YF=hBz>_!y6WP0i$$dq_?yQLs
z^s4S|wESexSkQOZV*zz%{j-e5EmWU66|G^>6Tjg*Qc9pGMGvRXKJl}x{M!SYhVy~g
zhJ;NO`{srO{??|U1keD(*1U?>{|Tbma>=3d4%iqLmSs`3Ycxbg+>P<arslidCn4sC
z!n%Q6UP93KJw>va1C|i^UOb~P8ddR~t$qI@k^I8ERfgFcshEx4_%^WNJAMHWwe~i|
z#FRO3ta63d-vns})H9td`gHA%O?#usA!@$cdSN{32(c-}z}MJ;{zar}WA(dhQk@pT
zA;E{kE1pL(YQI%o<ubHx0~^Et)!mu@HF3RroNijbt@2gcuSFERB|yU>1%yCYQtK5Q
zRtW+wEGh)bnhHe>drPm@N<=1M2}q)afDj-85)2{4rGgWd6aiTRi9!Mz2+>4HLr8K*
z@AqH0uh)Iu{E#0qnVECWoO7P@e4h7tM&>52*-ihqdp5lH)y6+BRz(U?7mugSJy&Fj
z$AcO6JSV6P*n>VC)c?{FSvz_)C0%QUwD@A_WX;ksjF#l(4RNvPFQeN-?Kix)5b$6w
zV%nvCmJy~mt{lKCkGp<J8$Z!VRAua`E(tY*rvlb`Q*7*82jrFJtNlqUpWDwn;b#sC
zZoz(WZHB6)?FU;QF<?s1O(3S}6+?xEx0_#O{t&t`ZdVNt;B`i1;Br?FBVYDqP%p|c
znV0jp-s#l1kE_c;f!O*3Od1kW*$E7(5!)$;4de`HaSjFx`1CkbFu`T>ENJjo_K`>W
zKXFN3u;)5LX;^f%I*?6%d54Uz!ca3jrVT-A%xs{n4vDHJ#Ph8f*#KLzngaM#N$^<3
zwfpx^6_O+-NY&V!732`+W3-RzY%486!~)7vBy$N<4cJi<@j*%pq-E9WjfqV7x&eG%
zg+vADeIQ<a$+@|f5&w*He7dC3N>fhWDXy%Kvek*m>doOPi&M8kysHYb3SrxnuH_PT
zZcJ>v=cfPP2u=Sh6;Yju1m}RhajecWXH5~Tq*kz;nzZp<#6~zVpZ|@vatQ&@Tf#Cy
z4~BDS`ZR(N4mw7%+C8DqlDiAsW_<8HaQC`0oPvaG#)y-}NuFOr6UcV<M2YZ2Ba>-3
zlw)Mns_jN}D^%SKFzUL50rXMcJx?o$ZJ8dIs~AlXpUYJ&^{&TObj<YAeQ>h=SK|l^
z`0s1WJ}Btw26+x0@7d`_R5e_!_Nx3lDFAteTc39}qtTQ_PgDEDT3RmHd#*o?f~rIi
zlE5V!4F_RkHH{hj*9Z5jSVKK<{;_2i&eim;{`?Ox+{4C$i4A#A;5hg+VE!+t?&K6z
zQtUb?+OH#VzALQxk3)T~ka)c!wnFl|DGL{)BPf=FNVB;W+dn7*j>4Ho&Dg<Ux0NQs
ze^=Qnb~sp^Giab@*s~f+&{6&wHU87Ft@b=Os0^v&ly?YHIPLdmbG`%PU^>iW@X}EG
zRjg<klsL|--fbkyl(_&ExurENS|OJIDXR{<>#`t7x!|vnk^?9qHzMM+Q)LtDz4-pL
zS4)wdGyR?+#{|W8YqOb0rzel|%{}Yw=SIibfA&{&>=6rw?m47QgBh;<Uc7{ntF&R6
z=Cz$m`e#NZk5Oc!JM0!(?2jIh2(jB*a}L~X<8c5Y+2StL4-InS_H36JXt}Py0dwqn
z5ntK%ubB^j8mq;|43Z>PovBB+=D9+qTq&mdJ%4tSCi_%mM!X}M>%4$a7`{4oA(CJF
zgm<uhB*j`YhiGgpIlw_%UC}&7;Qf_PTCA;_eN7+aMu9H5a(Iz@=rDh>-4dz;^S*&_
zTsIyHiUU_x%9~td9kDmsB9rj0i&|Tr_+_XACworZEWCF}st##u=NUJX71_moUoM!B
z)$0i)a%g3DfHIM*<Y3eP`S&eyKDya=pJzu;tfFaC&jR4UtAy<gb;JH~6lR{gEsYis
zE+oyOrG;ua0EZ@?ih5#$l#xi(^JbTqb+IeKfGMEYk*D%qp-$3X)}eiq!OE?$#O`dd
zauU#^ar&{)z2zMtilB@FJV(4D7u0T95j^0oD~4wbwM2clX!PNF<lC!KfsKZQh+Upw
zb0!zh_c}7PZmHB4C(VTf4<_}-gzCkwJD<VGTv5|ks0TG<W5{lqN(1ACPy9RHq<kdH
zNqA-*zQub-Y<K$H#|mN?m|zEuhHWLcF8_&G+VR8k5#+X?(Ez*PJo@Z+x&@zRp?kYh
zYd9H43t^Bg$j@sfRn}`GH3$zh)R>aGpnhuD8&t62H3MdtG#|?H$vrCcbs}aqC0jwL
zl{Zo{VtW5_T(<+n**ea)OEHn~yz94z?CsFKWodrdqgAmHlQU;@#VIWu<;CpJgt4$`
zGTaJ@zWn*^Mw+akugO>Qu3GL)u!~t1!eH-!J9FSLVw-58bNx{UkA3m7RZa7@N9a;G
zewqD5_N3R2G<)tjbs{s5|J(RkIrnQQz)pZV{7d%Jxa#o$tU1Y<-?e%n26eMdMtD0)
z4z13T^$rxFm#d$#kB6fkaBl2cAYL2&eXTtgPeeQVo0f0hu1>o*0cVs5px8F7>Z7Wi
zdwP?>kMSnL*ifQ$0PCBnW-R^nfzzv{asEc*#5b71IL~EO^5cpYeMo+tF99xZRWq=w
z7oe=3!Rd0>kS_MqcQZO^Qu1Ir{sxRFj#dO9EuJw+Fa{%{jGFYSnVY%+WSDtiGE%Bk
zCqG>L8M&>JPS)T<Vj>%^)X!Slu5CWN?$&n;d*N6{8}VaB{lGy}^HO@tJ~pgfn}AW4
z4AiH+Nd@S#X@xJ~sT>=SZN``xpN>q-;)oStvC*CAO1(Wa7M6bVVmzO`Jpc){Sc0>j
zP`0fwM_$z9_WPWgH0uBzI_bTr_6M*`@=4$iMSzk_u3xG^oDPdAZ9cD`Dv}!j`s`!C
zyfP#1K^iyBqDpB{PW!V<*PBuT=tGHHQ#)Jb_%8;pVn?n#a=G|L&b|r9Pt#A-ZQ7U0
zTLg^eF*`VUu<N_{_uX?(KUSQ!UB=XfP!2&2wdHFe7I9kW`Ns;yas7Jjc+J(WYo3uZ
zt~;)}h?p9ngj#}*1%l+<6LjiXl{lht_g4p>GGD<D<b5-EMzA_jI)RvuV78FGQD%bT
z9v{k2z8f|ftVH=w|CluGwfksT7S$Z*_sqJ&c+au6nKmX)9;9zx?Py!c07<Y7pmbf~
z5U&kvE9Vv3m<b;BoC^SrBlw1uEw~EXLc>r|&&-T|;{>(lLF`{8va97i**lP&(A)+>
zY9d>{roV~RKXc`Obbt1C=HX9_&SYwHaBMhhOz{fCz7YSAb=<*<a318X!22-4)7I=e
zw>AnH9h*~Rvz#=Te!A>-cew3`<*K$w?=2z2vf9<j)4@s}2r~nlQwS6z)R2VC%t?<A
z0WmFJ7E6O=U#jvB$b&Ut{9}1?oBA&@(#B261P(C03V{uqKbZc?-Q`PW#J)l}@~=m#
zQq`RptNw`#!Oe2HA%TB;)!H8C>Y*W#|Gt)7J#c}_imt7`HL|?bXlOf(SDvX#{&3~K
z(=#!=isDLb8fL#s*8ZAyitX_%Ge-~-!p_a-#m~7nU!fT9K<1`{rKo#y!eqbG+>=MP
zgLrf71-$>m#K&`&$UJ+TM7Ey>Q{tHVmHn!M1NogDd89siM0ACO@sYmoh6H0LxV(=e
z2(Li(cueEf1u^dN9J>)g@-E#0SHAJs;<~zVdLepW6MCf5am<IM>X0Kmm>qe#J<<=(
zq^H(o!Kt~~kwITYc_i%Pl}Uui%HckYRnwaXaIlKfskB4Z4a?lyx>xyL41A#J+3vz2
zR+{8FIp8u0L`+4;)f&fN#GWrZNC-q_9E)&tG@RX1S{?Pqv0Qq32U4pc|2n!q@_5C7
zCc~1VW8Wq3x~hFE>rLVlVPCH|Vr%|5rL!w|rP=b8z!b|u=Va-~A8xI`i$abuTk@`S
z;^qYLa-Y_`7sr;ioG!l0)iLRLXP=T~%WH)EfHl-`oM(tICRTs%eO2Ds{719B9h-Ab
z%kFki7s<;JQZyhitHRutzu|bw8=5&ba&4FLv#|7@iTDf@u%pSo5cc#F-DWSr8kf`D
z(X8MXJ=tA`P#j_EH=*67O>a|bYI9u0($lPWX3)X+M5B0bZ+O<ZNF8m~vwr2KJCjz!
z3f4CF2MvX!XcLJi#NSQ`vKImc-~PK~;`*iSMuFwXJw`=mn^A;n$)(`kHiT3BPdiW3
z5eee*iJe4spc0SF_OlrG(?mryZgsbX#PnGYu0s}SAjpQox!Dwl4xF2cFhK|82MmuK
z6wn`GeM3vZ*;>C&pKEFOLh<XbEt{;7%O$69;jSJ&s}r_H-<rVa*!}$jjkAXe9(V7#
zof!f;+7P0_%k?F{d3rE1?R*drX-i9Cy8rxZTCSiFHZEhSU^g0E>35xE7ZeNeVYT{L
z9%oAJ@(OO1wXbG-@l9RVn(R^D&KXhg{8xa1%D7S&l9#*GH|%o#CNmWPVh+&rLY+e`
z`C&#zTX(;EM*y?=jdrqy#a@l`vvygQmo}q~HSJ-d3zOk~DKyW{2&4O7!N6+KA!^vk
zzWobxcN44fk(n%!10yrE@5~c)F3b(#{!vsvJFQoY&Atue*ru_gWpm%HL|)oWp~&{q
zCU1x8pP9f`Ag)K$)^hFRzVv6o(|-w&<x<DedtBC#ENY`wBw&D>sr<_QiEA^Rm=r%x
z3yP-84w7=Eo^(x(X1msFe0{wpqE@}J#U<qkD%@mVObfR(I<psU!S68Hfbvhi3KQs(
z39hS1EuurZm!Df`ST@rB&_*>?jDm8<qCj;tmj-k0%Ih7I{-)tx%mZ!qhWYCqLXubC
zE%~*az)3BKuVfk{Iq;grR)BGuXU!axXC|dY__-9?K3a0i|NB>AiqH(EmFi2j(2lQV
zwTwhDg7CZ`Eon0n&(5j){t_n%r>SvC`NXK?5KK;<z^8!XKqbUi6jVu=11$<PU|#dW
zQoIAm7!)b>pYwhW&cUtLz~JbTI#~JhL6Rgt8mA!w*ItIDr+_Hb9j=?4FPmFZR7o!7
z^Wh1Vz~5{wzDo#X=o>mVW#qD6-R4<lG+>(M1Lchd)vUAcVi=hm>Wv2juiSu`srzoi
zx4X-wD7vWk;pwoxFWlP&;=(B{VeE55;CTPK5LUmGU5R&eZ9Q=~O$nvzL!<uvFw>X{
zP;y@{0#vGV?2?&XAv`a(o#aLp92bI{Y5u>!F~0PQuIxWB2c^F0G)U&vW4OM7s-CHF
zKJrMLBPjHME<0=J<20DR6)8i3z8YtTKl#7$(vWbP%%2u>-=<@I?e)C!C0elQE$*&5
zIS}lxECr~i>iSrvuYM1~Wtod>kwE3;#H^l64#;hHvk`=J92ZXI-Rc&kjXE_Vt2DoC
zrTM}Ck9_Gxd=Mp8`w7tZ*ZuXG3%(#m?g0N%upkJF>1<XVv8a;x0#s1aOWyfh=Swu4
zruW(4ULO^?vBV9f$1Cuj#q#V?EXYw;2%fwSRlp|t+i)5H{B7S@A`?av?2QR|7@c2k
zMC*9h=xxX(Ikj<Psus*^o(a`xwH@uPfG7;99u1^Qyq&Cm_G%f9v?d&pYHGFPsBePp
z%p;nX)(_99yURNsE#CHaUc09G1khhRYF6#u0B|qvt(0`^WUW<@<A;4^H~hj;t>nV*
ziOS+YZB!4AnAYk=J$+KI@>wJ9;dDpxjcc~NsI<jthcUel(!w0FD%~T+k;B}W@R3Hw
zn2AT{*Zqjn+dG=Z4VU&v6JZ0LAJclTfWG3Aa`z*n#ou@K!rlrz@^jj}Har}mI;?M9
ze&WM4{eIl>`R-)0w<GS)>63A(iLu}qxG5H?IE^LoH3&#MM>abi?S6BpjU2$jI6b(~
z@M8XRi!1pF{@=?~hh^2zoPuD%3Qv|~y7GPOa5-gCr|yY{Bw7G0{=gIcYNf={Y$`^$
z-f$x`1mKQN!y8G8-eUX=PPjkc=GZZb%Z-Gj9Bo?9*Ej>{JfFW@)bWM7&7Q}=BaN!U
z;9-4-9bGP2A)A$RZ6QnSqKEeZ$N*5NXR(8T9w~L!3mZyy=mary98#VYu0Wi-&eBZ~
z8BMrYes85>#T(-aVG=tA>v<IC?&Srn@9XGt@Hg#`eEQs^zfx>6jtMeQpNbOch(I;H
z<XV1+|JN^lk(L)PQx=_qKvmcxsQWJjGsweQ3r0~h0;$xDu=Yw^UqiwP{LIqR<*<3f
zJh`mT&Pn?t*l5L00M&^;Ci7;~H0Rx_7f8br9sq7A0<J7HhAm$2I}DoD&;A5wlaYs*
z?#t(qe-%+o3sw)Zbu4a+I@1pn4&UA$t(1ra27h+Od!+eH0;|5HAT}5{I3^zMKzl#R
zPxzm0BSi?PxU>3R@3Ru2vp_`NRo6NHk4U)d8l4GF9hQ9~+C6g5K_!D#{s#)w0_)uY
zqn7hDvP8Oy*eZYzy(A#tXc9_9@9(lWgyj#5OXhV+e)Y5a@gCBIviE2FpZvOSm^9ye
r{aw*M-7xg*`}y4~a{iY-KmPN8moUS0=MllX8vsXw|FiA;Gr#;dhR8B5

literal 26421
zcmeFZ2UL?;`!5>DJ`SSeC`uhi$}lvM5<25pFe0Ex?}~sJnqUYJnhnR1qM>&c5lA4R
z7!X2;io%4dLI@;~pp<AJgq8#nlAJg3`~KhezjvK=*1hYVwaz*B|E^^c_WSJpKKm)Z
zr|frm|GcA}-1my#gFqlT$eEMQAkfx05NPw|9ov8rTHcdI;A`7ud%KgsH*l?=z^4FT
zJEP8c#(+R7_oV+eWz8%Ffj~clASaKz#FflX#J698`!Xf&aJL`xejojj=lkaEPK%Rk
zH#cqBbbQbLlZUQ%?|+wcNagyL-0SCm+N#iX_rj}GvtO4VI&6LOOZCZ3H|w>3PAdg%
z`U7qu5>B}|xfglEIBXmKh;>r=V0VS8s4ixJkFaq~`mI&e!4Q;vC*$nDKK|!Oz$}4y
zp6$KpF>9c(8o!k1YEhREtHiMd)mN0hWC5ZNcu;b_^u|vjN1ykct6hqnj_8n<CGlpE
zC6(@~AY<v(hrNq39i7Wbm5l^E-O?_*vu{Qd3IavJ<UL@UK%n{y-}!+8v@D)j5ZfYQ
z6c&%{*~BidwecV{wLMFS;f{>0I7KX5wbXV*$6{8{#cqh;DM=Dnp1dn$O3f;b67$TO
zyp;@h<<~f3#jOc$+;rCR)}#eb>$WyHY=Y%W_ID?`6P6CLS|QxWEc@WBVsJY}a)E$q
zt4>JfHUye=d+=P~*p4THztZMDe`E!b)m&02FH_u$alRD&PFxfrjlZ@FB{3GRJSS(M
zjZivD7#bLyc-qgI&@AZto;Bg<y<Qlbu^HH#z4g<>H_YOG%0h%MDl^?98E;>zh3(h}
z{v3%;f?D}m(NYBS1*e#TFm9z?di-sc+}!ZmI4ehPB<}B4^1HcoOG%s~tkj__@EkZ|
zM|vK4t!Fo7?X5<)-b%in#M0*q8Z)7w_hkiaFYu}Or0^4zkeNiDqQvXjP1R~J@pId{
z*GOAMwjcNWJRoe&Tp-wtE()*>uZv8DVvgscBG1*fWuR3b&=^^%7KXMRqAf8(0Imbx
zB)3(_hnfEPbBTvYY?v<jJR*PB5BHeEaH%rw8=m;Pb>Wy2XB)X2Jj%=spI6<5K>OSF
z@F$1ljIOrORDzlGGZ`G{j=D_KN$aBDVLI4}{*joBynBhZxM`nm7J1jedb-@|#L%8;
z3|T_NUf*cg(!L#?61kRG$GrL-{S?#3z$1lzD;euu#fVLO-Xb6l0$ja%n{>SUfNHJ6
z&-390h4Hn_xD&8t<cjY1asET~<DI7mS01Hd%ZZ3=uJsK_xXB$Sh0H~pM3M#b&=3yo
z6xP@QHq{-gzbZLaEVtS$piZ2#rd(YQ<8ZtMJy{c*6-xNOcN&=Gt-sltByXx~9`!6x
zE>7Mp5-RflYkoBqZfP^*odoE#JK%_s6$sSa8K@AJk^n=eorgts>W&+sCF6VCeA{0y
z5i2e^^aR3~nG17lICKZml+~98(}~29RyG6{LSloUZL84FZ=%Mc=F{9_OSlI*M$e$e
zk#;5AZq8lt4|=~@iy&{w-gC&!AFl+v*2$ohD$Glsvuci%ubeS}dN@y>L7)x1t2izC
zqvAG}$X<~2>{9I4b+Vl0MsoT4s0p9<pHo+N%gvcb=5O{sIt$1T-ea;Gkl%cOgw7mX
z6J({0h0d9y1r2F?V0x7B9c~BubrH$1;xy2e$j-3WRR-qb0NC7CrkC+;{`)D{rWkg(
zhY`PFPC2Fi)9DNHr7Fah!&aWA72MOiuHkuMwKze0JuYQE<?@4&J2vsJ<GXHTZ)Mu7
z#`$&jFYn%(&=R@h5C!3sKQ^D<U)LTB_8P2_18?(LO;BsR>D9ITY^#Z`cjww$R?IFz
z(#$Ozf6obQhJpR^$E{Puz|xMufl1LAYydZQsGY_wq_d#Pz)lKYp1S!r?X;o<p^%<Z
zpAh`u#9xxuXN>FvtDXlIJ1Q<|PCOC^LCSBFttnqt{?zF9uYcUk@%b1s=JgEj`99=`
zKi<~O_QmA*cBPKIjuFNLeMCM!f9%}j7BXewG|Rkl=F>ugQAl?zO#`Rf_JoqJZ<g%e
zn}2dFJtl7$_a*-qlZaQsp}FCgV=}X#U6;9f_svsH{0?H<tYM}oa#xqlX#D{DmnzdO
z=b&7n4|Fio`@mxIyIU)|_(P*g2Uc5`kTzLf@0q^4GE+X>nvysF^sC>H2fcZEy!Ve*
zn%-A%@GEa`1RLW%s4e%2@w7g|l5)0;KeE*%Y3kNgIc{>z|4_s8iw8=k0$^DhqOKp}
zDEQYC!JFx9!MR8-pl;>OPylQ#-=P63J<F|0`*|u$G57`@`w1;nTKAmIVIA1TBRm(3
zB0Jn&27T)}(`h(O@Ko-uX2~4V#>u;0RADbDY3ORc=+$2P)?fD!I_>cyVHa;AskEc}
z^V>8NXUg(()@^%1N5u^1LqRi(>O1I3)=?ZOv;NqThKtLeD1qvTHg2(PJGz>oFXB|j
z8LCw!D4xMs%NP!mHR5_C6IWXP)zx=O>ezRz8fT3375blwCRh*h(h(0dMBwPA7aXsT
z5`CyL@#;2C<In4t><5<K?GnuUehjHo`b7_+w%d5itzOj!f{q)cISV(iPc*$M?6D*!
zf7L&@$;h+?U<q4xDyvs1_$c;cs2+x+X{Ril+}cfm-DXm~ODXj~^%|jx&>a$68X5cP
z6qKx5E2bfrx=UUQ1LxZF`uip)1_oE%{HH*#3>Up!K><~9j&qFpFK4vevoPX@!(rx0
z8G#4t);&8jZjZ!#MJDy;!OcE4Qko-49r6aF9b@HFc?5Zc(#SSHp2w9BKfE#26|(q3
z)AuPyy3;QKz+C~OR8)tAmDh*^UUy(EKd*ZcA6CC>N|hg@E$%AFa#L`33g7Vy@!6;R
z%~i2n=-M5PK;OX981_lpdLccOVg@>D_i7ht{wH_SL~`N>_nVX$4r`D$>N^1r919!l
zFPSs4=jjQlJm!HghPG{YX*27)Jdeod3m&mlobYYly+T^h2i-ZfuZvLYinhU9Q{qI@
zC<4s{>wc;qL8@Dl6H*L%Z&BEdBOwV@fSz8JlrGC}2Bo5U6(eGA<g>oYK_?@+l29>O
zqdbyEx7xbv60QVyh0z$Kkom&*($p{I9!u+4T{HH)Qo>C!SPA`5ZuBoG|EhJhAlpsS
zB(`<u_y-CdP_#j+yyts9-&<_|hy(SYUb^P!7a|EaH5`dec@F;w*m9pIS3U^@g0A0V
zSt<o1Cte<QS>v%NsFu1RzD`!0_@+iT9l9Ae9!Too0~X-eFrTzmlvW6{Tk$xMs)i2Q
zB*+hcEV1tX?aIEc_E^eF-q`xcay{!%U2NC%YnFn-yfAO9+_o)1(rA*$cO$l6kvO@v
zgcZo)TRJJM`}Tsc{5kzGxHD`(v&)Mdl3<Cw4jApE8SHi%z8MP(EN9kU-w+;9M%2&v
zb8IRv-M@nqu%T@KJcBk8^{LV^@}2};6zB9VK}q|w!KWq;lJM6{PQK1G6rtiBc12(>
zm`H#Sxxp7BdC$Fy8^)k;LV_c72l)VDpsI!Xkl(h8)z*IL0LM!xCd`;H!j2QU5tm~H
z$mHILmvP3F&Zor%A~Mp(zvEd4E~3%Ra>Xdg7%+~gANnS@f}Vfr)a%$ZR09q3Hl=ag
z^XG+y2U02pHG2M*a4oM@8>_Z{2I%W5YiGCHK-$ItGD!k`&9f#)h8@=n9G%DE%La|d
zUBc=r_n<l|1Y9?T<>dB+*NQYJtT_63d3TG|9oraEM?N4OzJ{=iXRxc8fyGf?TH_9<
zGipoM3RQ)Q+d(6T0Y+l~QoCC4y7@!#4->Jkc`eumwx@m9`Uq=GuIW4Zq*Lps<u-j9
z)cwl$R;s>U74HVU_fe~#7e3wPLkU~^exn=BQNg~rtMAju@kU98>Qy;Uh<I<~@x-~C
z-hN}3yyMvsZ?#Yc5gtcidJIO?6wcN2r?-rV*Sw$<CN432RucJ|2X#$(G4L`lq5l>e
zq4dX>6LTr$=O<bPRcTOoQ}dh=;UA$TmBCv4xSe=0=@e`w%`@m;u-ZcCnt%hxt)ct)
z{zt`ud8=ddQzU!8Zb!eTPttJ56u1cJi9ciNb`zOeCU+R}S9kn9o5kpJn9Y1=lsBCC
zA}h#Ln7dKeA&q=`s6qWh66Q$!g!jyyv^@z&QVdd>Z!S4vcI$p2Vn40i$QWy=a^ctM
z`!d@D4L(G1<T~gXHV5=RoTsh)Gx(Y9R{nlZ=FIib2O+iWIzOv7=JfGBih7Mho9Wha
zhp7jj48?A34>9hej-LyUoLlKcuXi7_Q(BB5<M4$E3ogE`(^j?(15n0ql5mK_O4cc(
zsI1j#xlFKR?Jl6h-EmIU;=pXKDCmJi38y<bk@-&ytUtLK6xBXT*|S^4qh5ka`<Xk|
z9hK>BS_>Dn1|AF~?{<^NCdZKPhP??Q`znbu!Jkja&DH69<;PZea;OvODK!94i?yUV
z*hE>w%|IJJ(ZsfHVNF_bL-=qLjee+aJIXHX^IE=(|HSf))`7w|AqjmzxHr26R10RR
z?e(ALzDn8#t_#t2rgu{2R4h3aWOr9S$|mV2F57s!;vXHBu2|c@#F1fZioB;LE-i10
z(cbR)wK3yLN`4f(miDLD!&U)4D9wp-pR0@$>ryNU#3z`b<eCh|%f-J~<7xhFwM-JZ
zf+~($dYV>@@@*Kn?u1nxUSw2N;IeIpyrpqI#?ePwqZnm{u6@r{=u>5yZb@jl>Oomr
zO~dk&YZL5FO!6C9`^nqE@fb>9R|o7w6e2&ZuoWD>*0!=;=?`Se)ivsBv9|;&y11H`
zMoH>S!x?f$qM9(4rtJ)O<2%P9BX^|w(H6^Uf3r%G)HWmB81MI7E+a3JIr(mbwc_TC
zdv^lI2B7c?G3xNJ&yBzaiEq;Lz~T=bo=#VH2oH?SJG|G2zC6(JQqaY+A)Ct?%`?0R
zk3VT9-n;eA^;|@JXs5{{j7%}^yG#h?VpxM{M&!6sRyY7`T7J@K{NKG^Ilc%XZw2bK
zaWk{e9?6aq3E~bAD04Hy-S^uZJ83)uuA|Zd?*F7K08VXUeRtIfb`9nQ`vdk^a1M3~
z7Ijx@2!J^5Sd)EG<#poL!*6|8;{v%c<a`%|`*|Ii1dQY{bjtF1_=hQ5)V-h)6Y1cq
zX6i-J@!rkjPHt)?qSpDByNrsz6~wd+XLtEfgSzCGZ5Lq)<+eKT!7!mYIZ!E>Gr*US
z!)p|!^8@nn5O?_yHA<8bu7A{9G`x3e{PJ5x88;rCgRy2gNmRp3E;=UA`qRN~S;-xs
zl0x}(o;M$;Jhv?-knpeJe7IST%GB)DdtFrU8xI+GcQW>xHI66l!H?nKS;i7R?44mI
zpmq@GTuCZ?ju4GWssfhDjA1{>ysj%92aPO+`zB3{XJ<v1WTPnk8C>5Am+jIUul}fV
zD`!U?MO^1@Emof5kr{9<7w)9ga9Vmd;1;j8E!Fq4ADN-r!1hOnxM8t2=Y8GSSjXCd
z>Ik1w|D+Qz+7W@x<AkM=T$yRTYTxeW9vgRH;e*v~7kS#k8`-9-=iF@llQ8{T@j{e8
z3PTiWNNaD9Wv+&z+tjl(7>sjaqNdFO)|AFgz*f`!2^9(6T+~>((9Ky}N?0GbGj8n9
z6_lMT!tUVQDl3oN;?7aJ1eAFmm4+#9Wq*mt9M}BXwml$_>Fk@#aP}llm58sy0#lp2
z9w<pdX0)xuap_=rkXfu2rVXU|sT=L?u9bdt<OF(`V%}pAD7D72j`c)7>1s%M5)TC(
zi{>Qr@rVx({9KwSa-iC>)clM%CvMK8uD19SuMjh5rZ$0I^-Kuq{DtwDL0{M*?}eui
z^eujpru27G;Ry@WPq=J<e9s?J?o-J>E;<hCptFO+!6fO%Q+>n06JPgB?@hk^1qi;t
zRq*R31L^mxlb*NXbEPKBaeu^1|9<@AV#GcEjkV`jrGJ4c43&P8eg`}S(qF$wG{&OK
zaNtk{uyJ5au%+Fb6Habz;wiY6TX!w-f=Dtg|7>p@b}xSr7uk&ZMM{`Dl_fQl2uxCU
zuB%Kz%5dpahZwe`vGKQWB$)t-h~^`_<+}eHNy_+@@VTT$L7S(rXK$A!?2h3#!qika
z!V3Pj0i*cM+5+C_evsbz512{4|KoqJucYyR-Tclt*~2u?{%556-){+N)2-kR)Qx|&
z#DB;5H6F8UZx{8NmT~*Skh|~Sridi&BUc4rulTnnD1&ggNVxGk7sVPv>rb0qKig??
zV;Qw;?6kWpw#KHF^+$l#sDotlr!S&duD_k?%J`#h+V>1^>mc%}+E=#j%(}K6Ake5r
zG9h6V^}yq%Ek+f``XzIpQ+4tUDa9_-z1p@NqdT{>hrLyEr-T-KNT^-#m}pEG+z}X#
zYeGjP3>C-n#zL@dd3r4=60v^A+UFud1Yl6!CB85rjnQE=U=~Qmg|#{*e%|LBP12ZQ
zs03QzStBhSFbYx3b@%Pf!*4A2B6_{)&X~h%DbgoB2+lIJY8AX@?K_guGNZbfx_$L;
zJDX^7P*`iPKE4*aUWE089Rhq?Cus$o5(CH6Cft0x@(`U$^!HifFA*hSZQKs=9I*p%
zvJSL<V6XJSNrU{vK~!(5$~%V<nT`GLZz%t(SUkM>A{y$3aPtLh3DC;Qj<^;|A=%yC
z*2Vg1n^>{C<h*s8fX`|oSD|#!3a$!aPK8p!S3i{imLB^^4U-&{!Op5HI|eQH@pUOp
zd25J33kOwGT$1cz<UE(1QsQ%IK$mC=;cYoyC*ZOUH}NhCH=_7wvQXmgGv9*sKF!IA
z1WIjk;KDirrB>ZROkjr5j8NY03`0cn1sFbUM$xf4;-ZK<e$W<ZD$2r0{ezuxEp&I-
zT2k^wm@w@XAB>JcQCve@2FopHdlla>(7{=7u<qbuR?L)*x|ELq_kD{I1Z)x1_Bj>I
zPfY1NM@Pkkq=<j-bRcKm2v`_B(k%n!*u!8?S^~Tb>fhca2CFP>aPrel7?OcqSyaV9
zU!CL{P`x>VmLy?YomUxuyM$*m3vbJD_JTl4O;wk6_DxK`Z+SDeHI`=kr`xCJG3;K-
zXv(|2gSJgqYS#lJqlfp0)2D*7tdC^I_wMcf&de|AIu}gF$>1RfhBZB~Y(waTj&cr^
zqg6dcW2jx5Kn1DUih1o;aKh#+Bej~2XP3sDGGo4@*R>EWU?cP)rX-O2_xl@lfg={N
zmLUuC&^VRAjb><M=iH*VdMdY+p*uc-hr`c(Ca_Rwlzz42*Oio=ZFxdh_E=MuHKJ?7
zdV1i-;^gbys#bAlI}z#tI(slOitpm_^C7G`aH7!r6@C|B7<8IaaDZ#6XVTiAB8oZC
z80oHs&C@aoFXV)kV}U<7VUp_;I6#b4=BsW@Zs(t{T|EJKu=lt`%#W0aMa2vJ+7N5B
z(!`h3-se9IEVnbQu~jzQ8npgqP(XA<)NQ33pYAGP+S0?9UUpk!9_Y7SB?r}K#CBu#
z-R5vHY^+D1Bq=ja{7@s%`YJ{wsKCf<)=Xc@+R7}I=sFR)u+By^%5f<O9`m9XB56XY
zU!e9GDl^&oUa7t4p!tK;D%Z#e56QF&Swjx0)6pULl!l9NDrQUWv-F#~vs@%@zEIPF
zAaZYWWrECZx*NA~M)0VF0NC|=o4MZoY}@nJPl3Y$J#rH&8?B{(Xk|_*B0+j22b#Ye
zycm%Mc7xZ7uV=8C#(e|8feg38zH5w9znk;G4kIt6D)`wbu4RyhmN=JQ@Wl#FazB`4
z3UgUbK&r#9cEr-X2<-{SJJ0z`X+fJf-}{&%bXUZA2HzrVz<t@HQfvNy7-0Wr;-<xQ
z^46m}<uR%>Gvc0??D;{X(+78fJQfnjLntLo+rx04fTiW`y9ERa+rG&_X=#yVb0jOi
z=~4G)kPRc>J<9{OS0{?Yf{^WGa2jSJB`O7SRB6h|ck}lq#NTNErOr53TX5P}5{4^)
zfbG@%Zc3H^QlGf7tjJ^@00R1wG>q;i>zr1cd);I!pJ}WLs?VJB<s?k355WCkhiISQ
z?i0oB0=-)JEIpnBu6_S&<x|xS-_b){nOSD4GVbOM>O4&H;I^?ovV`cl3}b!S=&p3@
zDP9`+A}Y&m5WCR4l_?v2y!3`bbIroq7`3p`D2j_3O4Ym6{9~)^=GFF8zBPH!jZ(94
zkq{QaC?sQD)oR3zZQXw|Ww<?x>)P#wtrb5PECT@}`Q_nJ>*?d<Q%&Kv&JzLCE3&9D
zujp-_&Fds*qm^8l?t^7C_yh|g*9&g1ZVQ3EIWQtC%c91|GAn<?pu`;sS72<GHwr$;
zCZ=$gS%G9H7cf1oNXCz5B%bm{<N};yHp?C7v_svUYW3^<Tz${8#|A#jD4t)zZ>DEk
zSOxOs^OfOzp#M;e@(z!8mEGL;!gmv=PAQn_N3Wk<*cv1B^PRw2RJL8@3S)!|E`$mT
zD53|jH2^I#>wbvCUa)=&oU&rlxG<+Ow(uO+7FF!VulDm|qv_5`2-pKwMpK|ufy%df
ztfT>GJCPOKoFWVAgj#Y<QS$K)+*Fo@+TfoD|M@NedC-;Pe{=wWzSn0hVLh7r_N?}O
zc8bjOw6QkZp`$u*`hIdYicv>zxo^m@q;!Z4U1g<3l(M4Er09I7-0&;`b1C$0zN;|n
za^LN4FIkoHYALKXmH#kFt_hY>g&urm?UffS+p<RhFwQ~y*ZO_@&_Ciky?*3d1smma
zNN18DJToPusz3g()<sC|p>{2otU{atx~$=KvIN&At`!ZldLFT41%uf_#{R|R3tVUu
zZ!qjBBLn4Mh?6`?;GW^iR#N77c|HB~I)+W8o+K&^;?#~g>&b55-*_0saZD)5Oih7k
z&WDyk#VlCJ8I|x|)T(V7sL@iQ)Y4$!;qU@zO2R&ojU~k<<eAs=FefgKj8_~v*6}QX
zRx4^|-9+oiNvTIeyS|SbEP(ps?k8_&QYnXO@=Af@oKsERk-Fv!cUTg)6t9Vd3=zEA
zZ!~H%zClcvJ!7Ym&aWHqeS|p<tCpb{5$VyjvCsv#i4<Pk3UVsBMu0lfOsEv(A8Agy
z$lX`*P59?VJT`HlOlk}5B+<JcCy99G6<f3(wBN5`vY^<-)|9^yO8!bNMM+#r-9*%J
zv48D=@;@tkfJuJ~in!sfT~dcyA(VJUIu|j3W8fzXu;ozVV?hVYD28U^EjrH~Zw;4M
zs<e>u8PEt!EC*APU6g=xvV2#DIe%m92)S`+JQ*Vz+uCgvfDv7^?-G1%<(<fClU19O
zFQY!6nM$lpNaQj?2K_y(8xowkAC6=a{J5LRQ?t#Yv)r4~-Of@D(TB*9y70eCnN*I)
zu@O9zDw*;4i~5Y_<}U-{-uc07yMw!8+n{a?A72E}%4~9X0jh|-p!Ca;om(=SWT}%q
zmx<Q@4is<%;1s$ej^kfyix6iwbyt#Y-Q8U!t(OR6@siPHPxM7ThP5k%ZG@J`Uhk`k
zVT<g$ERIq-77RylhluBsCjJgAGg^+T-v>y%7_EPKs|^4i<Wr!df8pIzUb231o1RZg
z=>-D))xd4-LbO3$GFs5w$`0vQg|6RbA-q(tIZoJHDlgKBf+>^C_;47*Q#cKrqIMOP
z%e9x<hKUn9`#$eGeQ?f3t|^XT@y4Tm$QRGbgtrGWOW|~B4`Tan<uB%g@s8|{L%pEx
zCa8NUY{YY7&X4bPU7I$w)gbP8zJGE&87GbY`;Gz!k~pk@msWYG12JMF`ZLhRSLAnM
z&qnj3LE=6UV>jd60*SnW?#(irJ*2Wbj^jeO^x6Zk>PV);S8=7F@KIMn^odvaU*D!p
z4a74`DHUp>FRu9wGdvC><=4rrlV&k1#f(Jv4Pq_ppS_NAZ#=-BmLI**-KMp+@%?F7
zaH%zaqk)|n)shDLm0=0>Ckp1$#y~6jwc@0a<mgT>f*o~ePl?*{_+F?CWi+p%zoW;O
zN32~Ns%+v##MCD&j<2jJ(I0fXh4eMEBVUG6x1)BUm@eR=xtQCmLOFY@;XT_TnLo%H
zm;u|VnW^~+ft~$%yUhs#9BWFhsWheaaC_1pCq{+!Y4!XjxhHG)P>}`P2}V@Y19Wpm
zl+22miU>Ks1Hy{5!j?e}3;eU-)>xokmFm(4Ln*?UM>qL~MzM#0<cz{_1J@?M6nxPX
z5b&4WICZF&$m6nx>Z>i`<R9owD4Hvny%O?7e?{nhaUgTKHBG5T<OM5cwX-tG;b>?d
z&!4)7)lt#*QZRb<w{LaD3jmc3(8*PYYpoRVhbOJ41GocYval2|)aCQ^Q#XpZ@TK!x
z+t&0FfIcnQ<oJd4dnhdz$@wJIrDj=^26RLUz8$T+IY2~7M>1si^GZ<)b>bLyr2R`-
z2&kU{93j$>k}NzEC<|)!Zvogy>BGsV8*56X0kTiuzbJm^BP=?SAuH2f{TR5leXs=T
zfAnL4j6m1W?UhiTtTsTE;4Q+RU6(<w6vJCsmMB|vgb(3~1<(QdhQx2~AIXUM6jnPF
zGRQekXb{A41*{<@WhT@PB?}poFTucSWHJOAMvQ<-9u3H*y(%%x|JLFPP|7g5&G$MY
zJG2MA+9n0|h-cSjjEn-UEZL8Ly`m)D?HQ(vJa)me)Y~_(SyU9$J^s`pek3^r7WLrT
zH=gt}R2IuTt<i0aZJ7iFx6e~}n7r#WMy8C(m!`8n%7McQ?pvxY_%%<jF<sP3aVZs4
zqs!l7L^lD*W31(jq6Q1BQ?A2eVH4LRw`|<qvdVFh7fNma6-hR6d@YsV`}tT`x82w*
z5?{lJ$VbTEM6LsfIC;oNXh^;($3rlDgsT63hYrOgE$tQV*8j>MYvslNr&~Zf_uYle
z>#Q9x*~aG;0o?$-Jg3o<#EY|3&Y>D0Rg|_AF98u1sEv%WM&V>+ati?I!Oy&8Q)2G|
z{O9-K)L!0C&MJcvqyBw-7n4f#@{L(oe|o5$>0)aJPyffeU;6;7vGozXsZBb~O=D&5
z%Cv3}2v`|0G{6^z&)~i>^F6?ft1aad>_((J5S{{H)Nw-tG^V<2;!|-0p<U3wcTPq)
zx*vE00$aP_D(V_<R#Ls*mt>(l?`B=s<_`;aD+?^3*t>?C=_nCd-lYYT+#py}>`r`s
zc$5&xO=_}{tr7O|zPIrL(aqKxQ9`ZP=g`w&v2{3^i66aH_kA4G_d-&D(!jTt06Luj
z9EV9S+R1;m5(D)<L@}=o?wD%7^sRRZJQI)%#Z@cg=)l3lhEnQRn19w(_Z6YrI2BY6
zkHl--yFkC0QWP%qC%-#Fem!E=V9|0t`EXR{-mU=VOE;L%RiU9@A590kZqhZb0qN-*
z2UW=w8S9o+(}5F|lkMzKcb7zt+;E^w82EdtK{2vA0uO|c$tUD;th9RvN(DISr}~S2
z@9ZNAU9s4O^S-T56Fe3)<c#8+4qmD)HtqW?n%oiCkkC@sHo=Z)VOcc4yJx%cNgqGo
zh@#cDNzEYD%lDNxtX}Yl<v^}O-*ZiAe3RfY|HjnT9`Q)a-L~Kmtvi<?W-}rN%cdl%
z_ni>bA;FNXXvj5R>L!blT7f21YA7Awn!q5<tK>}_aVsy$-A(2yueQ`#Oj?Ixk_0^{
zU;>bkK6c&S4lf1zBmXfYcN0es%>)w3ru}4@^Bsj~Wf~8_-L=9dUs{v7D1<w|h}MA>
zls@|AoPccrDaA)JWoROOGdT&BmEj^&>MKlrkA|W?I=Qv&0vEM^<R6O#_D@<@U0T1J
zG3uVwE^vWGJ^M#KZvogMM>$mb{t<8ta5eWIND=kJKVM?}zZFLruxuRO4RKl#`iK&-
zv?iOFeGCAn9@eu*U0zqvo3BX6QXviBZ0XfWDKdSMGYaFliPpw>4^Rp&oVwj^V63Xg
z1Y)7Uzf?traIZ9_fEo{LVoCbSh;0ccxnh&dBxjf#w=eB6ACInb<EZ}2Z8a1fYxFS~
zS3=F<m%cjV*3%zZz37x$N3^)cBI(~<)y^ekfSQHjMLr(9Io4pZrITUy@7P1>!%0H-
ziRi|Z<S+m3p9+0Ae)v;HZVcN%<zG)tg^Pp3i#_f6!>v5XzXMK3Fea(oVHMBx5kCD-
z8Zx1XJ6Q=zUt&sGg)xH?AYqgVOy)zjH8#f3@(YBfgea&1KI$@ee^cN<Nw_eM+x;JF
zm%J1oR%*nyA-H*I=lN}9e;1&=jn=Q(?FO%2pptLTY$jWybWWpWmKNZCP-n94(&+^@
zO2G|Y6i)M=2<Lh9TB5cO2)-fePN_TpjX=eq5#ZWhL_kL1ZkNHDj`mBZu~D+ay2)SD
z&2RG`-X`~kWJT6GVll4l8XH$%8_RD!lfe4@n>g*a<!&y_cqhsV)KuS)c@0I`rbacr
z0Zo^%K9Q}JMy3f}VL}sTX6q@~a;<1UmnI{r*ACp?9%4G~!%kK*<1LVlLfH3Q3=Xz_
zgX1Y`fxYo~{UyzX#FvOM<W%{^q#GmRjI`o<nHkp~2aFY=7(7{Kh!B5f&9mCb;;l)T
zT2)&p<Ecf;zl#<hYxbD%GT}Vz>o$Ri>;s&x|C@wF&s%wcsLe|Ad>{+3{wBLgNeE}4
zGpLo7@F|5~7=27j{mQL9+jibOy6e}9A8vhj?AJSo_MhK|jcWZF`-8&CpI)y0;`8>C
zYtHd29gj~2KZ5-J2okKGy0ehE^l*B*q=}=3=HsD}u^h|-hPA*FCze%}`x5vlS9G!~
z9>K-B*L~-)!$BjC<LfDAwGs6q8|mcS85(%_n;h=e*F8yy@bT;jerpkH`aUy$1qx~A
z<uT0q(_~U?s;b$-arJa~AK}n?(@RC@nm2g0T5n}q4${oe(~unorJ58KJ^kdb(`#2N
zq;)uq;5~!ZSLATt%;d1K$t`{$MD?S0@_8hf?85=;^s0qb>ov`OF&wGWoXqNX((D~n
zs{l?jfU~rzqO*$~I;1&7FBY;~mJ_Ok6d#F;%$**~J+@LbX>Eia(oLT#kxOnF{+%G5
z@VlLf$*In}5I?%NjV{R@Io{|r77kI(o}SBPSZk4T|D6jk#II=D2C|ShJqzh5oxY{M
z-K8hdibS{=@wWN%MTq#t>)1Zj9J0i6+5(KyEzj*|8p#atz`5+5bZc!A&DL?bkIu>T
za-U6}E0e_c7|S7)!n$i)%}9pYL&h6KZJ`hN0^SlmWU0(Z9Fnq^st-N(x;W<oYVhnb
zRh{@~`VeHdzx!-AgkEwigacQii*?&V&wdmh(iUzEtIInrcZQl?I|C3Sjg2b1d;VOQ
zQmo$frNh>Kc{CJ!`3>gm7<148fB1Lg^eOG3yLul9au|nYZ-_XVDtGCyGIDwd;#d%S
zLUVpQBw2rE#Q^jI^>qv9FUi@jy2M{e13B^WEzkOz@K<Blex)C8CI=!@&O{gIfQ9+$
z@j*R*Gd<zA)$NRZm|{7~_8UV}*~%8|)8|G%K~(qb^efn(<rqx>nD|~*ai^c=R5K*P
z7P$Mm6j@R-{a`3!2WSNg7|JG36>dFrf`NfV`<<YDZ8Xqmg&^}a;*&YdY^0Sg3H*E%
zW04HjI5hEg2R&aaKH)4<>1W7ta|=OlyULCCFN#03!P}=);+d8Vb9OLDDGn&6@|75C
zT|*J4=WN7FSxhcAMf9Th^>-FupJgwj+zHpH{RMwAZTPM0Vm{Fpm{b2dU_*X+<krgy
zUzeLN`Q}e=h0u$R74ZSBmra{M{0gF5$7|bapCn*Ht5pLsl@k|V?|L*j5lIw1pV;y^
zYqPx7(d}x9i&9=heE8n|Lk;1y=DTZZ_Q*Q#mfiYWKyueEpA0_607IaiE!pG8g483O
zXOk?gNxoI&pQT!Vi~u+&^Yb*l)lx=)_~jl8?@UoQ*Ca8s+qFqIFNVp$@BLoDCvAN^
zZJs@`P<Zzhl57#=M@@nxTa(PS!IPn^Z^166x@OB~yiPAaw0huFqXEfZv-MJsFIgV4
z{6SqaQiijFYrnk~Mnc35EgKZWzu+!R&DIcPch&eqS+VgLt62q#JBiHFGXG^p^D^I|
zvF^1%;axPcrK*o4eAV-<q{(>xV?BpO#$ovz+aO}|nbVj3ot7);%Rgsbt+rm7M5?P5
z#vYMwEp?3Sa*Lmz9mbgCduNY7;Y$ZWkB>Vze(QI?+F}B@`()a;p3mdw&wp&En7YUs
z=^&E~<YZE!TUBfv^me!mWCM0osK+sK$Vw=#{o>j0WW2nnt<hE-L1%A~`Ch;e-rJ;y
zus~nq0OZ>l^^Ke@vUB*~?f%CD;Yu;0^0SSRw;7Rj7lM!2DmPh6*8=Sd9N)qTmCN;P
zFury|HgX_C`&(eKxR$fG-CybYH$p|@vrl;g87(qNr#>lsD&yrbz_#p%#o1djW&STb
z(CmQUbmPsSM!Z+i`X7_K3FX^O&P#b-3D+jsXOCa*VHdn;Lbm@*f&or^RHz<TGxZgs
zIuun3hQ5@h^|OQbA%4dIS0~j#Y>e2aK}}A#@-4*PNWR7x^><%l(ezD7$A{mgm2h8+
z3M5)I=Wi=bTc1zl-Cx5Kh4_+W!B<EmW7D=rla-nF$o8ryZONJ%ukqL?0$@%-4B+?Y
z7Z41gBmU67CFu(u8n1Vqe^6X26Y&2NW&e-O;lC&ViGywoH-~~#pQw0v(oJw~(h<<b
zkS&}m6URsl_12@LXe3r6{y4HTt$OOCx;s~vdA<5Bd$P2Isj(i5)Y39<<l||Y@u!fx
zkXFHG*)rb%JOO@8wRk$qbX~|(=bTyYGSif<{JR74KAUDhQu=Lh&~bT}c12v|!)f<y
zpK&2A8`*A@DJvw--#&R+sQQqsRN?#Zm^`Q38QI2EkB1_svJ>mwXLE8sv}ek|tiC3E
zDB{(3Yq>qkL)kv9#|zQfR_Y|+LyJ^_oQEvGRTokt0_5zp;sc5x7Uko@R@}`tDHj1x
zAdAhMf!rCVFy{z!QcU)|L+fGM6w;@7TAM(07@9*`wSBUPoQO)2QrAbR$I;-~J<Iz|
zdL$7@QT9e`Pf0sPbG_~ym?Uh=dDQKY-bS$R`IXKA%X|r>YrK=rW2-c7L?c5q%#DNo
zN~_Xp)eK^#g=)l0aQv%ppcj8^$19>_KzJZeDIUjZ?^)&*&FN~bbJeSOWww?i9mTMH
z(x)HY4m_RD?pc0vqPE3=bOf1*;%}@&k_|F}cQHVq_eVTOI}F_Ovecp{tRcyUBzMH1
ze^K!4YgxKAo4O@Z*x}*XA=)wLUp!p~afCiMmri@t{%|s!LHVthc=WOg9yxAK@|*(8
zYM}xJ+VhFjtx<l+Zf+ht>%!m+WZ~g7yend_bly<~fSZ<*X%#s#>_Sifh;$5e?i<*@
zcm1(l_O}Y)veF;#FZ|blR1W`d<beyP%01qfhg8lF?$~4Y@}`A!q0}>r&Vv%i<=V8l
z_V`Y&6cS&(k>Y5ihWQcF$TpURF6lS~6ZTkkQs;5?$M)eRcY@tMzvAgJ$N;oj)|c_{
zh-j1r)BjS>|A*!()z{DVkXTLgpGhO?i0lnBk_jZQYE-6)fG)_QBi$KksSzK5v{P?o
zYX$+ye-gw7$dw^H99^c|$42ULT62dXVk?pyG>_=OSwcVt9F}X<IT?=#QtkiV_u5k1
z9zxHV9$s}?@GG3YMIX#iE}piA&<}OX0P)Y0pPse<Lc+S2mFG{lLLy41ALmR(ok3P0
zY+F{7QvfuoN~ilSRjXqo2=AmzzUs>cU_cIOMO@yf1i;uod)gZkJEK+Q<FOzT(;$8n
z9m$&>hQtoJj~Xi5%KQC4wzCmugVqg@8_7t*iID~al1_Ge^D>^H+$4?qpx?Wt;CeiF
z21u_k?z|dVM&$9ky%efn{zke<n5omQxZd4xth5sbiB0!(mnIGHp+1H0>@-^a&Nd3}
zZtiiU>110;-k*@~e{xUNg5CTgf<q^m3+J1%r{CmExpYS(l~XpBJiUq}`Pudc1Y>u<
z_#o%m_sI?!u4U!Zxj?=iwcB=M(T!%hi^rzrHw{?mKw`DVu(Q|lHOyDj!0nfs!wMxF
zWdooW=X3qte#mm8I?+8aH$;7XMVj#2DPKQ{4lmwsEBKJ*c7X2`4J<rxCc0uO(^8+-
z91gAXZTkF|4(9KmeBZnr?UFLzz}#+)c-p4z$`6lZSv8WI`~NZ;v@+`L?S(|2L#{w;
zm$~XK=CcKXje*_I+T4a>$gb`)NPB$<608;PoZ+fkGQHUnzR-8Uj?7lQK{IETWLqP6
z>Lfj6BDU){336K1P6g%?yD&a>jTZbG<BN}8dZ(a8VrZ@BDx$}akcji64M)0_W6nvL
zW|ko$F!+Tw^;UbN!HCDqW{7Iy^dr03)XlrE;=-FIi=Y_NRt2Aj>g8vmiNJJC5~U@a
zmIv$&BV~ML(AJjXhX_ZG+mgBg&YRV<EI<EwBzp4Z_T9SUFzKxUTgis{dNk6K>@l;Z
zZcA+pvX6-COy(2H4HW$1E@3(ZEcN&+NWNpM`MFmcDL)o<OoZyc_U=y}UVl%^!E3a-
zcEZFjKMAOdrRuG~dx$aXGx<(<z3kP}!@cz7KBK`fv|bYn-<gA7?$L4ovGc*@(U>nG
zi2I*TIfGA23a`XdFuwNqSoXCh>!#Uz+MIG&q82G*01(@OVxw$U*$IYyBd6O|yp(r#
zIdN}E{_<956$T`_cxAv6`);=HSsU{`KYPA)wg}p+H)?((euVxd&IlmL@_Tdb(XjPB
zu?`7`hjZwWuLqu>FLvCiow5XE_~DcSZnUJ(g|BR(Lvls%=FP7H_verskAufJ>ZErH
z{_V?K`<_-KcKhZ`KTQ(yR9XX=@9FAQ4*0$2x;Erni#t-zEZ5VQRgfFq2Vtcp)5U}t
z`O5U_f;)PU<li)oPu!Uqc6#VQ%V;cm?Ee$P>Fc@S1|yP#S6HuZ+b^WC6FJ07$lKo6
zdTW(Z$KC(=E`Z<?5(>?mcr+cX*Bo@fH}^_G<f%-DXb=1FLf4RIVuhPD<aqnL=Dw$D
zRmmTJhGaUnCImk!DO@JHb&ur4Tzw>XM|s}vMuA;H&b18ZdBS3Q5XmYI{9Js1#?lLM
z@CT8P!3^%|qmumTk3~WG&I3<QDW>9(aVW%YmAsEyUg`?!HN|zlXQPMCE&RsttT&iZ
zMp^#3FqtzL{9yWX&dQFfud*-FU*u&cYE%#>Bb=7+p7nKtKKphyvWhdBSuV+aJMW%d
zVthqK>v`YA3+L_y^%YxlS?*I`bE@s9@S=s%>Fl{=zQ6XqClZ7k^FCgGrm>{cIpT-t
zeDy4cR-Y=CLU!T{!mKRwJkNcsj%c*_9-h-p&$0YjHg@#VJ*{}po(#P-$ozuia!-zu
zj})mu>V~H}UjXk#y7N^bj*hLjH<q+lxPIBu6#5V{5ljj}*utGED`lkrXMGq2g;M2G
z&0%MdN?NTBNW6M09O>;QPR>>jq14U|Ky1L5E&WQSU5{XB&6<HPF54p!8tXIaaHr_Y
zNH%2P>@r!sN;5tMsbd$(d;4N<x%ybqG!toMN}5298<Q|OG4q=tbUMPO7f4`Ar(?An
z*1xK^utX8w$f4{+Z4x3oQI}+LVuWa<VIyxJokd@X)K~}Fftuzq<0@A@i<d&@+Dl$M
z4;<#1o6CjI5Akv+GXRfJ>_YML68HSdjdIb&p1IW)C0cguIY9v@f0~F?_FSLX2^mmn
zqMPFOR`}a5ryZs)wyN_FJ>5`u_^j-8cHJKlhZJhH#v|vDi3X&q>_ju51><8WhydDR
z2m8It+t@KzRR!emF5q(*BINY@a@@7pZ?F0ZhCwmxPmsLrRuN_=li-*O{>1L=E_!jS
zu}X!yxq0R7qt$c*q^xjEd<&hire0|j-IbcaSC5~L>yMn!u94W*>yW1IRSW$f7}fJk
z^f4OK$y>I?G+>Lf=H`0978TN}S5~yuUWJgKWv!Qoo#!+Jj*K;%US6F(%<^$u9_!*g
zj}I?Dp;e`h-9{GOUy7}8b?ClI7Yv7&omlyZjnFy0^0CU1niN@fFB$eRF@3hiN$w~m
zSo<|%bQCd^`8@DOQ_k+$qYdj5+jtdv;q6};m8VO|-H{pieR_(|n>v=`E@dRB9X**8
z**_n9n)cVA73_3z<^^xV^5>?!&;t20y%2qe=##gF!_Oe9D>Qf3sIO;P)t1PKgL>C)
z!2x)_eqz|%U?<(eu&Bib=FNO>#YNNp{9whc$>!0EnU(&f#%dMutc#obaQD>L&mnEk
zwf-~%6lhxOUeuJ=;=&$NI_;xr(fb?esK_?=s`N&)-)25GR;q8W^!d@HF2$V0?Plb<
z8LO0UM*8@9@@v)Q&qha`O>E||5b+~j%(qMM%Kh^8%L_U30{A)eOv}cEc6rEGv(jRm
zFlJd3rkaPlpN-|R=yWuHbYpr)+dVMeJ0tXn4e5qIt!U&%I`yx0V_bt12NGY}nu1iS
zEV0$$vh$<Y*Lp|DU^FKv+hUg1WN~($sAXQ~OsUn1qy2fo<Tc`6v!c!6@X`}}FL&`%
zb*FhU(V4#q67gud1|oj?I_VnK*xwufzA8e;W@Q)~VR3q81W;0ZWLedJD5?HoM-k7z
zo^fHU%h#KFy7=_{4~IR4!3i{n9sn(GpB=Ny82|Y7AXgcc{IiV?>1J_GU2?_7>kmcd
zM!S2cy-a!|WK6-mC&{|9sriwDYfowR$JRO2rO!=;koIN=`-_Ix&>f!dyKL&zxI-LC
z!>+E3!Jh41k(KJZ+j1uBpalnA8H1(>V!2l5+Yq~+zZ-HJ{m(+I`thcI_uA-H7)4E+
z2g6tlN~z)$`=VAS0c>!YXmN-rIX0MdEw%L{Zx`=LuE5|dnDMjS{SP~HVXSi>C97xG
znHlf9LKV5nf-^ycdq1?6Vzl-w6qA!$UpN(pds^C#1|RWmes<%Fdyn{Bpk8UF#nPcG
zbju2dx7GcE;Nwa{7YAn*%K6fvW7iTLYinDM381R`+99HYdY5m3Yt+g^+<JUVKZ1RJ
za_HFIf1*5r(6;3HESZ}CyZqwsB-S%JV&xY;I(tcAutKkT9<;I;y!EFnj4tsQsUy_n
z${T&GE@g~4)3a<Y*AnFBYH9C}x*%5jt=E<k<*muq$(>1FVNO`hWOhK7D{>x1i{|Z@
z?Q)s&s)SIZCyt2+e1{B+x(iwwoDjeDx|_H#U!?z7UZ)M8azrwmmI<f5jS;g;lBW>Z
z=cb%#ja;V02r4|Yf*}FeA{>TIHT^AOSr~dv+rXSTg!o57GAWVk|K%XiQJ0^y<VKdd
zop?UksP4a@$M}_`2iC^xktEetlB#A!lfdTPo*mRDSR;!|dF)!<6ueU*-aU`uS22*~
znx|%X<3X@}>6&ia^FZS)!^nhkplJV_zD(3=eR|WPDl})!%8~@pR?GCK$2|xhv=aLp
z*El9dl#nIG>hUq&8HE=dN>8j%t1wFCrxx5P_doo?ubJxr8$=Tm=mLWq>01o??pdn0
z9*<lv&-OX`uK8SN#l;0)agNf766Ew^Ej<Gkg0!qW7o75d&PmpKu&)a1mKW(>v2jAD
z7asOfFFTgevy2zyw7LeZ?=oR+d}xD(tYe6`hwl$Qg#uo2a7B|B3hkLeJ2@;z5*R>}
z-Z1b5)a?hQawUy;SmgR8?dt{bijosfPKRa^FCcxjE8YTSP`-17n~@XiZIwVQ7O5+=
zP)Z7ihoN)ryqbH!x;*sU+p8Z0!ximd121Aina}{V`eC-jA`(5EL`<72dv^WujX!#d
zS<9*2GmzxgCp<@L^-_F95J4@Nz2h!-p&YkFZGwz>wiuD_dQN1`akcs4AHaNy^GMg1
z)CO-071)%~-&TVPBQEJwROEs5Hm5A7*3MY2K8@TRVx-0#s$UvIMvrl#dsMn8#ogv{
z_wHYS?WXsu;*nN|C+vR;dlr%C_mC_~ap1sd7sV8tqUf5%Q`!}}DOzYqU;O)NU?;0J
z=+pNHe_2JNSzTA@!eNJY@F0TN)-Ue0;@51NJ?m{SO2$ttoNe_%p}R6Zh#`LE8H}*}
z>_np=ziN!4iH+T}^tT?K{1@u{0oIPHN_9Kn?8VLUG5KY<8u9DCmYidpu^t<%OWBS7
zs2uz|%^8$_O>K<mL$SFD00$4_+3BW-Dok0$Tc_rS_6<pJf<Ysp+9K<qh7Iw94&suj
zqjH}&fc^)`4vQEoKgL<KR!G5G`xEB{k~YU7<jTrgyXM3KShK&QdEjDs!aK92LVhy$
zuS=JWIY}%{AS@94CxRtGenKF?R@EuYGiry0joao*)2?4${ZdN^oD0qZYmQ+HHJygd
zmg4_ly$hbXeTf^d5XeQ<HcKL#)_=uBy7kas1dGU);#fn{v2%&r3Mm6uvkk9Rba);e
zunFgF3N;V9(wAKvHvbb~O%+W=W-mj^kFDfQs+gXxQeW>>heIGQ!shCl^ng>lBj|yC
zYRuOsN+ZK^oo|`!+{VFkt)E;=`5W>-RKrJ1)~OawNv!=9T_Jk~WSz8(4}cbm<08xW
zz<>54%8zFQ(XG_fuRgz#C%1H3j%=w{(e=eMmy2=y`dBSDx@OK9xjB1WheY{prXyz|
zqwgSJIpGEp+7w?ky;B>!y;_WcUKjX#h6{zq*3u68*W_R=KTbaFv1qdS7(lorwYFGk
zOdjI)-_qoVY6rbw-JfImIv(0eKGoS3qD|6jDhl`#QubqexX6G0%<`wR6U^tue3e6{
zHj$_t|JEC8P1-S)3;EHR>@$T^jTT<l%}EtSk>ZoaA`4?+UsqPwbk73dZhiW}`zlo~
zfKCFk1K)qP0mvlssd2A6PK?CXwngL|RPpu<fg`5?bTT1n{Weo>6K!8raX;qE<DA{h
z?Tyqz3!}=5(SKn3*uT+QucZTi<&2~R<JcSsAyZJ33tMoGu_W&vzgb}%`~B&R!Jk)#
z4~1Kt4u6+eq}kxq(oeMyz#F@N0esN~yRlyzJ0$8maSQ$<^Zh2z;>4QbD+OCCx|q41
zLi%b)SlMW@Z{_^guOq+GO$VL;=|$GQ@>5^k!Pj^9$CM`=fia2|D*XwMt_uxThO4#}
zK*QSuh&bnve1qdYhG)}JU`rtDSq9hS*uw9aIu1Rfua<j_4QP3fJ7zauVSlNFSBn3v
zqqvM9JTjJrA>no}cB%c<eIMZXqm1LOL@&)&Cj)dC6G-7ILIJkwYc-FknLQ4p>}$`q
zx`&GS7(1hRe(G(N1>yJ7l|T_<?9!1Ja7C)cz1d19>xjeyPyDS(lqdSU8t_FXAs#TQ
z;zL!EV+PXDN?F~-dz~xbUEwirpaOFa60nT}zR(;FwbTo($$c&<?1}Xo{v2D>s0SUq
zP3(_S;j-?1&ZqpE^5E<`XEzy08NfET`%Z+s_<9hhvJzUbYBPartb@OJS^7MEUwJvU
zwnYmKXVSkkj91M^8oy8rFIqKUwag8-u6)Nf4jNw@$2Tr46wSH#6C+LDHb1Ydi;*V6
z4sS!~LUMMp3d^fJ;h_bme}#@!y;1_;(Q3`61Ahz|j5^f}^Qqea$f$Vxr6L!W+<bbS
ztMcJQTIB5Txz7%gwc3n9J#VVxMP4tpcQfPRC*rzoYoqup&{~hJ+)&%yS_gstVsrZj
z!H9YzU32dWq`1pwqN0%iZ)vZ)o}p9@B%8zC7nMe{OdY0_1-(5y)v@K~F7nC5-RN3>
z@N4f<otTk*?b4(e$hv;BSsBNct<IgN2!>(9K-$GjhN(=g`U8p0Hjjf29RUU!<`vG2
z`+*~19U$*2cNwWMDirPXq>ZsYR<}XgzY@`n8AHct_iHvI6AjVqq@>eO4zIQpz4Q#o
z&PY@V0iRJ%fQ0@AFx)C*c>fBdXvBul*4VFbE&x$+?H8MsvdPje^A|=lv*&%!_?aFm
z=eV)V6Mi2n^+fFMU;at%AFLj;S)pRfy5`R31FVt(Rw>CaUn#5O0IR<Oth#H>m*2DZ
zbW8uS!XHx`6K+}_6JbA+d2a3P-#`Lo%2>^Jwpb=R3J8ky)7iU8RQbk~oF$8al=C%n
zI@+Z}8CF>5g^j+2?S;>$nhG&eAo-vkXrnzutzyk&^g@yozN0C>Gyc4C`^KCkT+z@g
zWhYOgaH3erRHgi$D=UGY+9s}c=Djd%9&2tMe1ZXhFLTg}ht?8V4C8EIzMVj1@+P)n
z09W$`a8S2I6Ub?uYvz^$M@;Mi*$OULxU0usMs_w)<7tJ{A;`qTP{s|;kV~i5m6Dh*
zz*)H2%<aD8o=U}*!QtDJ%t<t*tC8NBe^VoclE*hKu=&S0^s}Y@=c4CoHMe5QacXJ#
z*;dbQvYVe|tc5*)Q2GJLd%hMp{V^oGakeMJZlP?tTHUfyVDTa+nleudVh3@1wc$<W
z?@q42$c)dAXarJz)x2o908y3hIAMThcID+zmhNe-Um7Vpk);xY4-cJErshRMR?n77
za;8l^9WY@I%NMm*{%{L4MuYbkzm<6A3x~r2cK|BJw^z%6LW}?&yhuzyit+(}-ZV>f
zPQx4a^h~Lm%-LS`_1$hd%7cVjoR;@!i74&Xg*Q{p?x~gu8rIMB+<WWks<QvR!2yx#
z_DJVQ*!0ljZiG=Wr0N-A?S+VH3UTPJt}Af5I3!#h4%;BU0N#Mk&-N);K79Rv!(0Je
z`!(%GdRf7z!6)G6#*qH2bINU=BYvvZUzVDK;phwDl5!ZqX~HdWw#I+rw6rdqm_@9#
zul}PtD?IG0_MLpwHQ}}_RGrcWVWF6+ojU{88Z&V`QB_Skn50{2ln~k<PW)x&_Gew_
ziZUz2AIa2=4>()(RLAtMQ^f9Idik^%f>HW!-JSVcQ`gqVQG21@D!kgkqD87C;1SUZ
z0y0SI^%i>q0Sy8oqaq+fh=7nX1zUTa5ji;!AwaYwAR!o;4O8p@m<U7#!Vn-<6CzQF
zCO`;D$a`r2g7<mepKg9UdCv3feb%%0T6?X}ckN?y3xM&;(@NLOUrMk0C$I;5GTqkW
zdhX{V5q+p`h_i251pj*&y}Ij9f4JjHfaK2}pm-IjYW9P3yS*^qTQak~^9d`$K62iD
z*34hKjeRL{4qdDb_Ej{u)gq2}HT+5BWpzK=UpnID9B|;N#C8oP9^fkjD|pGLHkKSV
z!m0de1Ej|an9+7s9hMd4QVdj9`eN+SIV_>9Du6PvgITG)2>V<!2ep^A6o5)G&@UK&
z?|<Y~ky=?|#|Uf4;=n$0T}9GM;EMag+{YW(3nQRckt1fZ6Pj?5t$TJ4sKopEsPa+P
z*vvz`sNHpEi#r|oJm$@)wzweSy(9R&fH4T#XQ$Pn=%8hH+x-FG)Ir#X?+>bO05)Cw
ze7Gl;4S-U6W7PW8J^xNOgJNaXCX3l>&-vPgzjcHEUCE~Z=h-0nZ&W)ar;fQynpa55
zrMV7-=rD_cgl)>_)qUTjxV!UjQ1qeDQ~UJ1luHe*AVOM2a+0D+5LJ|HxX_e4bs=z2
zzWGKXz^@+6AGrj2?BO>9_1sBVyw)Uo%w-m-jn(PGAP<dJ><sS3s`^n9oJximGj;B^
zcyubeX{>d0O6OK<pfcGlDK-8jZ7FRe$bV5QUQUmMr4~AP(ml#!(B+!C>PD$2bqVwV
zu5~hUPN!;s7AC>MH<g1LL1!+&V#mb2J}Lo<N0pW%*~bPV%VF)sO@xvRq$QY$@HD~k
zoZ<CLlq;yZjS~83Z)f{KjYx(KIy(695Z^4ZxD#BqBmKDY#g4;W&V0#yab%H{1+>Hj
z89=2R1h*eRc)iC55iaFo{>0aOF-0GT-CW4$hC}PJo*GM2_q0^qbPvO(Ucrt<vi2Ci
zgMJTKCfUbCPGm&?ShDaQ)jMBoOe)=2a+=EM7(w&tJ@RP8jIl#opgo%HttU0DOn6h$
zQ3lE!nelH}tqk@lA-dP}EY{o9&bp-w2s3hO!+1~jt>Z!)`vuRaZ^tkk_)zS(A#Ig4
zY1i@{Vw}4o@1%x~H=tz+H$%w%WuLbWD75cy1SEfAa`O*Y*yQ0!k#OImva|ls4N8tP
z|0xBjb6FNSdf=yJll!lks*J+UQWVvES9@ekX7DG3HElC<07nL@uE)DD)^(Lgo2FFO
zzKuJOF+cN9|47+?<)o4v;sI%R1bjxYp!^BX<?g^+JMApW8ng`0AYeDEYr!c<x;_Ml
zJ+aa0C(S4-ZhpMcgKuLBbE1zzcDCB{kbM?`oCn#V$Hwdf;)Y^)2Pf~pm`do=1d(~q
zD^Fzz+jxPkDHMT{9ul2reH@S|O>^zN4^@E%wJlJ&R|!kgJ5}xY<o{Xv6V7%2#oNlG
zp)FEbt6#YVM$jNB*PXAyPfv$oUUjY~(0u~MlnF0cp2iC7qDWO!Z4zG<6#>CmPH!qB
z-^~>|Li%}lG}np$3G`LNVJoEg1VS7}pILS+#KV>tFMN5F@orE@DU*ojNZGnH4Q^5X
zI6|j6J8K;9Hijw_PV4NKyH#<JJ_RB!C?+No)w}%q6<r%k<9;aZ%?KK(jf-8#Ie7Z&
zsv0k9r#J4st?Y<O&?c`&jkz>HNqUiO`k{S^l-;yL=Hac$lOHLs0bpa1^i8KL5ITaR
zl(mDQ`#|vHAyBYzV{kof2&1TM%cljAjgrK7YM@9(L;uk0Rt0vdZNXc<D(zPBlJ!j9
zEn7_Hb^^#<KOCFh74@z7^8RaSH3?|G>zfY?FlsDT)QcpLHOYAS12*n9hVbpS3a=>L
z3_;CwUX=TQx2B>D>k`@Rsvn4-h$HKd?=jx<4>u#={V~Ia9G`sEpl3_t`3Q7kqzyeF
z%?g><ojWO;J9-fcSVm6!V2*VO{Pc4Ab_C^8mJSzY2HSD_tFnWH9{?M?S+j<P;;=m<
zfBs1MsP{k(mEpNN22Pxu?Kn+oW67WQ26)GdYSb&Vp^y>A0F%|Weo6*^NxX0~h+QzL
zOB~7s1^1<PqNLwvUB*^g;F>dvIiU=wd|Hc?g<a|mpAVlT?~FM>;$@jnp==FE;JpGk
z3;flie!7lR_2^n-fTZU5Dt2R=Q1%fKU*&N!#Q0;bU<1~rZsJ{>o2)_nDdipAaXb}}
z{l1LUa#8$tr<|WOr;B)zcN}HEJ}SoV&Ewc6k=@XLHo%U?*>F)&{7yi#ggu1uxSNk0
z4JY@wjd=e=nusplaH|(Dx-~ILLGqUmsKeVns(|UfXBXR#zqqBB*1PjYdX9*OLnh~D
zauv0Sr{pgXP{vhedi_eZ@7O~a>O=5@OGr7ap^i7oc#waFlm+QfZeQ2->VE`4MUkUD
zIFF>si=g=l=xn0k?Q!P;`si6*UKl`%hpHJ9C(nlx#ky)eFQ*<q_c~WGjtA7;xRx=|
zqU&`T8j$~SZ!G7tEUV#tA14P@>JJpmHVJE41t&z7=?NQ<uXC>Z(fX;@Ad#`$E5^mg
zWtPo07H(>xCsn*O)CnZy+gWM#q7)&vlUn8b>BB+-=vCgl{(1_OT2MFSbZ$kgm|siF
zpHFoERs6?(oN4dt<f7SkpixZ%_=&q?g#A70yAS+r%Zpd8mCc5Dl>fHTMN)*ry$xeU
z9~IdaTZ}Ton!_c6ahg7GGBJEihO*ND?M{iGlD1hDe7ZZ&c-W=lN_uxO%9;)H7EEJ`
zkw?GTrZ+bm7V14+X?cg8*qk86l-u2R-m@jr`ts?Pk!+BupG}0#E|wgZU;d}b<1@O9
z7_Q{AjkK}QkQL5;F}@j=%D@%2M(+bA)1<F1D~$O96(u0~O>^NPgxGuL(*8?bbX&y2
zm!2NAq_#++8{bGlkO6fxLPdKUsu_JV+(M*yNtS7MMc!iHk)_3x1XPs$+=;Z#UWTt*
zePJG$8Y9!%zrbwD#X*=lPszD?L%{B*7Ct3$?ett=|AUsaFapsyg7;2$Jq^_I`PS8c
zkWNyNW!5yS7}}5?fia1S{T`t-FP-=_N>}i3B^~q{4kc#^HZocY#;S^F(VY)9dK-Ym
zQBv94zH{EM{&h`^5U1jswjO#rez0m=W>SonXa-MGp!Xpu^ffZh_m<qYlD}Z5V;N43
z<h{AA4LLWum_gx%QW{N<92$7R6&CIph({w{NNcEGAV+vcwc8H}6E+(noCOvyrWZBL
zvDe{NHSPlHK8jaMW5X=Ujnk0xdaG<rRBRG$)%BJH<Gu_#bjAvS60!km|4K9#|N0W>
zRqPlibH#hphEtM=lSP?9k}}8Nk|kFO;wL`>RC7Bt_^`dl-TKK(#w*Ww)tzMNMRr64
zIm5-;nfuBK!RyU;>16QF&to63_7tdO-j0T}cmVx{#oTZvUXcHmrS1qa%N;6dZ1#J{
zvY8QD9&2&WN;kl3b<8GLV35Pkxz-pnDLgytRhRSUF}Z0dEk0W(!D@eF0K+41)yu^S
zBGj8v+|t>luXh%#d)#;X<v&bJSCg$*Y(y!s&}*pUAfH%`!fbz$&0abwK!2cH9}8aC
ztU?@a+wj>`SJ0fbCyz7j9(Q2ka>$5u|K#`Set))+nt68{JkR|x8@O(zVuPQ{@c#a^
z8Pip2#pMWlkZ3-|a<8vl@t?CimeF{SL#MU)=~&*lKK}$=oOy`k>tP|O(pUHmKib1b
z91$sbB;RP_3nN(V#ltMu%&qdvepK5`Kf%Y1VkRn9LK)taZ}Gi~3%6GiMMt&xplY*&
zJNX^~b7fP-ZT#0&l)mt1L;I~5$w{^A%b8uwsyImgVh2!p{|Y!a@JqaPZ%ZqWbiVN3
z2@0I<UDv=W{mObF;d7Ha|6Gr>K6gU+=fmXgJeOng^i}G6Be=cDap&A#M1c6=I9O57
zUzS&)%#B=)J{an7?YGUWwc-1*xdZvzCdf3!ym5K5yNjMuFyqbYeHoPNQ<r`shC5SO
zSXnCK&bNc+N(XwOv=DGDb>Ah+i}As#ke&Dj6cU&(;hk;nPq+4PtcWM(ogB`5Qc&`~
zrTu~XDcwX(^I8+{uMtizY5G4!vKx-$xNOrgnqwT&u*-dm%*TwK77m$J`L4MQdx(v>
zr8IIvFw=pA?c8?N@apBxfPnJX>MUnuTkCr$tk)qo3DmFN5ipyd>N_GX8ZLb7+BXht
zTjm~((Y`&B%yAfWr;;l*>QYpzpLVmfFCu#}X7-%?cc=CYG`FEOM{^+0iFcTOWqgV}
z$Wlj0&L-5osY>{lem>qA8RZUSl=EpElt0JQXgJ_x7mvXVD6EDG`d$_iN0<`_6*ir6
zgg{?8K$YhDE9J!~-ZyvOJqIeU#|<-!WI7~BJH#itG)<l^n8{MI_h69ZM;%xZnYmK4
zqjk6nr2B+6x|eDjEj?RjUiVByh^K~hTy)HVrAI7Ibo%ruLY9s&PL*P^o(^yO+;J2v
zk}3V_J~#Ph?W$!v>p-#tzuKPX;lYp0Ke>uBxm`NiWd%!HI%T<*IqS;j1&Bj5%NAP0
z(sl8+eBEV%ibnZLR6QX=<%u6JjyKuYlIXlph_(Q<!qNi#G;z|G*4w1u*gxg?Tk^$1
zrDnVcem?!WZ_8v8GFV-Md+Xcq25m~)5s2#iu;0ZHAER}sapk-h!TbJ^JT6zpX~-4u
zuk>r<qhy-bsSvN^e~Oi?_P}C)+9`XJsE-gP@^LZDHA7@9TtJ=P#Z_sLZ8$7wAJtma
zg36;nQ8|a9(Ae4XHx_=}Lh+Uc_kuYLV<o?8k>UINe1cND52Zcd!-JOx!LG?rubq60
zfU5tTwEWQOAnQ3p7bX=<;RIK^jU1I;4cIgVpJ_V8=Yw9bbj(?isJruEDJe+)VX_3e
zkQo+Koj3|X-)09xTLMMdFFqD03^IgF8Jj$l@;y{gjT#TWr4hl}=Ezd1{l+8?p&G4~
ztkPS9L_H`-3`*~MW1viU@*ANts^i)Y$^8$)Kt;B<i#1=|vnZag7pSbN9~$<a!lv@3
zRPmOciq)XYR`Ch2o-Tur=eFAy$kr4L4(1_EFtOp=@=HDM^<=OLCXsU)%c_V+FU=?5
zR9#qZL7X0?#06}Aa%ns#9SRPvkTm+|(z@fjqwN<aGQZWWRN*t8ebs!WdTKwSYB6qo
zcG>n;JbvHyUR&;&tAtKxbVy^NyZrbtSfui=J5F|@cu|u>qeJZrwgeU%8UDGy_sm%p
zsV-F=UeaR6$Z89skCwiDx+8R8{OMdRxyD~xG}1$Aeq=Zu?Z&>edx2Nut&QI<j;9CP
zCx-#Lj;*tZ&p3l<5cU*10HCnwC`OLXJR>;QWPOv{Z_T`k)eE=A2z@M5GNwNkkI|$s
z%2=(@lL4Et9%RjYBQp)$Ld3@g3(#Wv)@TpP`FPWUKfG+vI~HVX(s7DAwzA|!SAP|A
zYYd(4*!e_t^=~6_>@u<WsTMd@+^S)+@dMmA=G2>a*67S1mg$w&Sj+vLQ-Z|T%kdGV
zQ)C(<6yh;%{vc@sL#~?z7E1<OKQrmug{+^GNh2sXdzp6(2d7$sGyMv1DiSd0bTiS7
zk70)O<n_YO?-{3Rvq=z<(Wlg1oND25Q=FUM;Yu{B$xgY(PbIWeI?gDo`ev75cvH>@
z1N922W5sKpgIySJ17)5A%;u7@zg-{--i&IPsGpK69DgF+M#2-68zyG&7#*kD0`#6G
zLiPc-_-O&jyBAq~qM;3Mam!&@(O7+Ch2sknI@TJeDnpI<s|rf`e_rxlWcGFEoD&$e
zp#hua*#WPXw6GgPSt_*!T*KeB5_Nd*qnHEedn9jDx(6<qN8l(76NOU0fP^Dd&qj?J
zgMSeAmzLm8sRK|cp$2U3pC>(K`w8E_1X}-srV#<s6SnQ%f{N78*s)OjnG3ODf39BR
zV$yfDF2t%^*8m`8W2@p})Y6gaiN95I&fCkNj)`*VW8|+dIuD|~B>B(VS6_L2GX%@k
z(vEjvW*)-Zqz=^+dp55=|L^!M@n(Nrv)X~+;$0(0yy^b`VOC~q8rS#6_5Zr-<?2h|
NcYgnV@UN(!{uduLzvln|

diff --git a/reference/plot-3.png b/reference/plot-3.png
index 7480233b17ff2ba32dcb3a0751dbe6e48ceb970b..1f72c26134c2fc50b84b39696e6257370adc364f 100644
GIT binary patch
literal 28113
zcmeFZcT|(v+Bb|xM#oWfEF+)-mIOqabm>;$1_ROrM2ga+D+nP%2!kUQs&@iNjYyN;
zK{|+n386`E0VVVj41`PwkoQiQIp@6JbDs6B?~iwV&mV8rQo_E=zV@}R`n#^p%UcFI
ze7~Idg@=cS5751C%)|4OKM&9D`#<l2Mn+;&SD+tz?(6GZhkimI=Cv9O^kd&cT}vMx
z9--%)f4iclemL^*oaO<pUorJhS{w^_<6wqTUbOApwP(+-AxYPpc3*f$(|)<vH2TF}
zQ}tg%w9m=DyZ;a2e}LB~Phyo5WLi2ecGu2}351_8x^>j(<=N{IXWt$9ZTIUJdtdx=
z<reQ12Zvc|lo^`7oHAUKQ-d_4FV|BSh6nP77mD!nWX0Wv`E|Gd!6oni{`Y@|14Wx?
zb;7h}D++tymj-?wJ6{XsIcTQ0ll^eZ@tME|pYW*h{X9h%^5P%w5Fi=JE5rGASqE6*
zZp~xd-vdJqd^|j{(=UL%JUor_@TUDdd8Teyb#=ldR$Y#;1upifVSK;^Fi?$vfmcZq
zlmiOAY$kk{<0)Ur<-#eHWgzp(BnD1^1072dT6KRg<i}0HYuH*C;TxbNTBSgU2gu2k
z*aXce1noPlA;lpMHV)7Vfo)BKa_q02WFRGha=6YOkHgay0qL7GCQJmNVc~bv_$I4m
zhP`irGh(Q##5z9@FfL=%#9AqaVs0F?%@RZ1qITAZ4apNafMwk(TWS3&Wvv)W7!aiS
zyML<-4xdpl#)ekhc!9o%qqMG_jcg9BZE3~^y6u{@iK7s%MQ+8z5?QBa=<~|!!@brE
z6|m=|lRlL&TcKYk_hQ}E9Kz*=lPGSxTk?gS#j4u=QP>@8G{!GtxJq@CMf>S`2O%Ue
zmljXj1lPHKA4&p$KGl-zx-lLNUd~gM4r6KD6hm2qOQA1ju!>t+V_nWU(;Dsuw3*!n
z$lHhpnFEL2<Tg6LUfQ<dg=n-W8F2XVGVR_G!38j>_>Ui*Z4;E<XNqX8WQS|Sn`8G1
z=tX4z8hF*CFPiwahb)CWfHr+&`+z5cHhZR^JJX2F9|pjb=tI(_^7SmCG~E?Z_~9Yy
z6RPk#s;S=DN?W$pQcsZhKJpw)OSh^pQBtYN3fVru_ksM}Z3FFcx#3Y@to9b;EJr>h
z);qs~0#A<!x*0p!NYhW)B1#a=zVk<F`7_iLv=)6mbx{YlYxajz<N1o=@O^%__iH`Z
zIq<>2N*irk7C%vU{wcLsOL!w$hGgPePzj$3dnUS9=~E37zpjs1F%YXd+it7<_)L>p
zWaroSR1A;Z$I$rXT|8aC6~0%&JOKkTU}gj9q>p2Y1h$^{eWHDLv%e8>_>De2`hdZ4
zy3a$sBc2vDnR$3r;ZHU*?YrmkaTH5MUp#`=2wN}_ZX1_zZ0`!vjB#N7)KVdkRxdOB
z_~D*$dy{k3>pzL>|3a!1B~0#FLtklU%D|cTt~H!Ac8b$fCoIQrS?3{2Oo*yIzWcsH
zqSX=nVYtkZ*FJKxv^Rq#!r7v!py+((6l?6aBliO`)Hi}2BDSQ(_oY+|dWrzvc-(bT
z0?sllOSueh;7v_%>uaA#R*_z`c0&*ostN_Vf>a%wbDY<Q3jyH!Xm3|gRKlR&d_-Si
zXVsk6?{?Pn1MD$VpJb&7TD|UYa+8$?Imuz1L^i2O-#my{zCId8&rGmL=syYx?s`Iy
zPXC&U9O0<^ruS*zg~PT(U4=`6wS_{z&Rlg~iCidEnCDXb_BY>`@e+4Vu>VN-k%g_5
zp%cIc&sj!hf+k`gS;E9=tsRNFhM$8)E%nR{@hu(7f4TH$s3yYgon~HU=fx<t%;)#i
zFb9Qw<Z*Y|`e%cMXELk#>JDbRG^n)ezn1*8i|<h%TCm$MgrT_m{@n*5$W!=?N245#
z<H^rXyzyrVOil99Vy<gTih<=!MMo&^x_LuTWfohqE|Zsvbt_m64b`;GpDT5~hPQXy
z2+Ydd5_22ww5WN(=#7O08er`sAFBAZ$GF#H<+ifVpQMC!OwawBBmH;nRSEX48)eB8
zXnL>!f5L>&fU`?4LyPC)z5a=xcy5C-y-65-5T5}vB_~qSajngaj)!cGG7n-JZR;+M
zBF2Ztyx#a@OiA3$M*7o?YX_z<wR6O^gZ&}3vjg4Xk+|Uq*Brih+t`VJ8;KZ8+q-6+
z1L=KQ$s2n7$Qr-m4Eud&)sk_;!DaS<!6g8+RqB;`95MH~y7Y5#3)6Cbc<T_vg1q~k
zh%Hh@_2fD%3yylw{DGykCL$`x07JJAE%elT?(s4?%TzvD@aPr-ugHhq@F4ZB`3!<`
zCRKCq7XpHsS+33Rm%{`-Iw!0vqm`BaF_NWOQ8!bLzJsXoI*7_w1cDSD_u&}us!If4
zz_V>MAj>m<cn*d!miHTx_h&zB46yuifcz*ZRvXRU&2w}*(UQjwuA<hSC`~U#fc#=i
z2JTa5i>AkXzc7NhNBimBky`_0watMDs)x_DF}mUm|HgO-LhHGrxZ7@JA>Vl?xe7;9
z#^>{QlR;8aI$jKAju<PQu3Ki@xNNMo-@hdRC!-kzSxbPN0KN#k4vv|`DrJ+^+)lO(
zdp4HGra_ccKZYm?JI(PgFeD7+KQ96ZQwFd}*l&JuwlC&FtDoInnBnt9L`99;_ykpL
zR!*#+6UJ1L`L_<NK5M#En=!p9A<yy|R3Us*T<UNU2ta^Q>5|{Nyu_oYa>NNq3Su^`
z8RO2``j9LX{oFRCHNT5znAU?s#0kez)^Lgs`M<Bg4y7QMr$g6QMJ%b#g`w4%j{MVZ
zddH%g5l8E{jl;j!3p~q=ADn#b0*b7wG$271ooHA%7oeTc5PnJ4(dBu;kkjQY^zn=R
zAGGwXtJu4OZ$xusE=M0cg_le7=)_T4_G33aK#4tT8s6juw#$Qn!C#BjGgFu6&uqx>
zLku0)jsI5pCQW=7xk8B=7UQl;V4IjQYU;EMv$G2mw-Rw|w!i(gtz2+a-ce~WfkZxs
zwTZg~__@5d!c&5O3RleT1a}OQte^gnM*aAnYt9T8_Ethgk4q3Ka0CZGvOyn7+P3{L
z;8D_FrqcVG@5ho+k8@(ErmtJBjakojK3}mf;VLyOeGJi`un|5YJts0LC0^>!>f1Wq
z9z`2Z%N&1;ASo%W<&MlgEY_N=MvyeSyJq(B{h*IHNLi-fGd@FV-uOp6XD4qDWCfjj
z&xh_%Y*$q;PhG}jZFetMW}=oxr`|8mtbCUYJeL^(*ff+qyi?i5x(~0BCA4lNjlZEx
zDxz)TrZcYldAwI^NL}vc^Yy5yo!&g!gNYd76K@li?DgK1ggE^6Da?OYa13QiTz)Qe
zZ1F)u!s__E&oU|WkxevZOT6@`vv3Ug9AP{I=D$#jejyN-DBq(cURQ6f{NP*;Z0O9C
z(dJ2PQkTtxa&44t-ea~`JCoI)q~+G=U#ZZmku$v+36Rz7MwP5heS#2rN1iy1EtLbp
zAY}nqxBleYLbvpWq?U&#`Nuj*8od$;Gc+hMBraCOx3**%3ttNY=0&oDjNAW|@t7^`
zvNvgFS#;<tz#Q8<s)NRF0-{TAhVaY{9EEXM{AIN(>zTV;r3K`bZqFa#0{}TP?%VPl
z=EVJ4570e(u0dr=lUy+1Hv)??^j->HsHnT%TzH5X^ju>;_JMB8s^tkf*R*sc#9wbQ
zj&w88^6^A~t9L%MIEoW;RogV0)M7xA+c~CU2QL*e9x+K12vCdgP%Euk@WZOd3GdqZ
zA8`<y#ry|EtDJuSfmWwulojCqtv`0&eDe+b1P_mshXG*hk)7Qj4}ZO}4Zl0-0|>t^
z`Ekb_A*LcqU?)F5Z7(-lZ!t&KxSn_tdsm&}UuZBC?qNYSq|NMq&|qo>st4>^f&#Jk
z3Nl(oS^M!BeL?KqjU{4`wA@NcEQy?E>?vb8f-{-!8w&3|`l7Jv=Lq)zPwVS}ZSAoz
z8GXo;+uB@bd!?%%w5g0;@RnUf7lT_D3H*D@n7IcU?oG&m>X)Y4BCjaHRg@+TrGqpb
zP0DQ#JU~7Hvobg9iY(fgrIhWx!3TFj;yY_!aXM8Ds?Z_GFXMPWdy2am6d+JICJ~o$
zL|T{T1r%6KluOS?psBb|OU=ek(`1dQ;)MlcP%$oDy&i2zbgzq<)-oY8mc`v3LjmDi
z*dbjeihUNYvX+m#-pg+iB&sEBA3j+tb311s3&xt4e0;PFFN$&}*3oKV&&5<uJ36tH
zv4N6=0J%hqq)(r4t0v1)&TwV~&N5F8#xwwZz@*oH%EBl6oC(|w=D5)R_zCaqO^1Xr
z_|@F;);k1t{=y6|&t=e|oihl1>>fd?!ug`A7sAi^`F}tEb2t!8NJx0h^Z4U6?4|*z
zC>36Q4Mby4#Zl&uw{UmwZIdOCX{Bi(vY^HxI{3E-W9hr!9yI`HRWLUzfra<5=Wyoj
z{r21qzNnpO?6i`iFn5`A@7sl83zOeC--7pX+!6GdJ-^R}I}i!}HSpdSdoVcvCVWVS
zup3+iDOo^)uD2toCMLiYl_HYvinNR&;C%<IWA%<jQ$E3*qZBzA0gv5K$@S*h<Ty%C
zT^b=9=s>V3p5Uk=!4fbqjGx-ixux-ihk@Lf+Pr$!SEuTM8Ee2Mh7t~|?9A2j`{PIC
za3+rN@N4>RF6jaew?dHDKr0E44#Sd1Hi=7Ml8K9tKIoxycu_!?o10$Nm+ZcXdM-9p
zZ@z5=o-;X8Z&nFcQ6==%4V=WDl8c??Od0H`AA+Ps7T^p4%g9u`8dzIG+j#%_1}B~3
zc^tw^rD(h}uD829(s`S>w_JpSr|@*akJMt3oqEiTT^?R}xI+)Lj&X+H>cjlSs1<ss
zw%`indZfcb#2{xl*i0LmK{^LFaPWaz%+UByd)huIMTVIB3gV?*jLJo;&aYcR8MP)L
zUSZAFRvc59|CVz-*b|%(D%9WGOO2zn@zHA}?IbzFcF#($H`BZ+!5do=Q=L(Azj6ne
z@=uX#247ZQuHpIKYe6JGeDsZTfk)yQFLkyK3M!=m+D9Aah*Tt()sLfjy($C!uMTJ^
z5kxYQ;Tr3UTUAy&a?zM0+SGPY7)!Y#6;<WdHpyXlW6n8fEJ%xx$rYn06DMBV?vECn
z8H#d%6={(L@Fu)Uo)EjQRc<`lMdl1^GPZ^DV6d5C2vTlc*ZTpO1yeas*arH|=P?N-
zslz`3+bV<@AhY$<InHZ%eq+H^#Nd`S(UY%WQ7M;e(~88WG?M=*oc%XdgUu*^;^IFT
z+Fl=LiB(-B1l;de<UHARu1QU}^Cm5lxX^~J)g(Y5LmkpnALP%J9DjHVJc<o;Azy0E
zB=Mx2a4h0Hz;kRwtm<58o7AbEtahvfy+N_ia~vkpF$zCvqnTsZ+IR%QGN3Hhx%PbN
z%OPcjG8R^^CSWZagUATd*Zck<Y{x<dcl@cFaI{i>{e2lLSCei6bQG4URE%A0)!s3j
zckc6%y8~`!1R}20h?o&OmrS&hDSa^mI+F17ocF(F!Tfc+>@xzLuhq=yq3{Vxac0CQ
ztH)eWuJP6BCbcKy`8ehN3OyxLqH=#3^F~JP$h&h~;N>>&K5}=>2jifd9=Vj)F*JU+
z;hSbeWf|2SWrG4rp*n^+k*ZsQ#w(48s^rr)b}QPOIrFevk4$pkplT3;T+>XXGz3hc
z!A)~eOl;^JVHrq?E~!{X2Y4unF=rBrm#xL|1AcEg)LyR4OMJ|e+b9I2#8YzX29Sm{
z8NMakXb6+3&N3t7EuK8!-WCU}M79oq>Z$}W?BZb8@&}l+Qm-vYv8<zIEd9a3A9)%t
zDv6>Vf&0PH1j;(hR+rWa_$Auioh%b4JO;6%LO*kEdYmj+JL&5N_5^U%r4bzDAWRU~
z(*E{O#3OtM+@i`>pEb4|Z{b|xvD3}UbPw;J{!vj}&$WjZzmp~$1<Xa6_rP+<TG|sO
z$yRp+xGE4VJB*Wi%18(Ha@k?+jO7Yb@IP(ce=&alQwF$3*x-X3D3+Nl!@Ex1nrq{l
z>tI=b3^*4Xg%OxJ$>BzD%$EZ;p+EXziP$`kdwEZdoqhymJuBv1;t@zgh|BvMCOkgP
z`K`;h|H^-3@&BhR`k!>%fiTM1Kb~T1&o2d@Sy>_DPg?!8p}RDr9jd1$MOv6#DYJvi
zJ&n6pdzR1uvmE(o(FxH0fW?(xJkD7#kA0cA;~px2J;=56)g7X4++iUOa0z|7jE>aq
z3^-!Tr<^Ykf&k%Y2y)ayc;5geu%jwXA2^qT9U<e6Lg|4$;Nn=;awtqpR3#wqFxN%3
z#llZ$Q)^-PWg&zC!rOC042h)_03CYXPl%GX+?Q*+`+##~qZySLrJg!Xsva!|<_xPs
z+iVq|3rF@UWz;_ZTNxTpKRr@=5*)qb;u8c$tPZ=!QIhl$tw49RS9YzJ|28)-LkVi?
zg!MXF6nH8gT*<GNB6I@<%XQ>8l<4B?Ts4xk;yACz8G(94?*m(-uPHH*J&KUzT8+0y
zIUekA4DF}g!$B3sn(w!6aTh85dLp?t;5KpK(1QTTT3u$Pa;djI+oXo7G$UH=DXS|*
z!mPYLaoL_H$C<$>qt@^8NH%G^!&4Y>iF5yDbFTd${XX<0c9|hDl?-mCr?NNnm;oL?
zab@o@mY3>pt@<{o0cPv@e%x`_PLv{%1V0fQcMkG{kZ%ma{mz}c4KG-mhP)bTn9g>;
zyakc`ENnk_eHP-7O{FGFMfw6D|2lEp^U+<-1DyP?W~v!`ko&ZSCd^;3<p*Gc_3L*h
zS21Q%q{6u*<R<XSH2d3u=sUtbt+A~f6B2CZ?D}<A*FF<qU9Y6#S@E`{qtG`j*4_1<
zI_F&$<s`_`VzHa&2|CzO^=}r(-BbyRQW5mhzx`ifgrb?tdMJ#F@HPP%VknEvQLbY=
zuB#9^;00%TL!dY$q}F05xx{rjLhO4q0K+6wHemRh-WJ1_<6M!oxB>HTUFZfh6{w?F
zFi?~LCB%si)JJ={lwZaqnkb1U79@?R5cUBD`MqXQVOVuVf|7m2V|7T9TK^?UTSsc;
zGmVw3)zr3*)+J(V#R)<7FCVM_?b9CUt=wKpqA-lLav3xnVz@%YGJW#Qj#@l!DcVOC
zGy#I72&^8hZnb2}8f<Tc@SOin$i<Uf+{NqFXAQv^l!P_IHNV$8)qyfja`Cns0T}3)
zAVJ6u(YYoU_IhIJ)f~(gK^rA?%x`_WzT?_N4MHjdJPj<LGKBw9&o`3$$jkHdC%7tk
z8H%&G3a07`#kLkd9Yn|}&YkA$MR1G`<kF;5c8V2^M2DALf&32^y=0F}^BX;HJjZuP
zONDb^*BDJs;g}C0do)*)ivAG~g*^2*N)adIajS%>i7|oyCUSN!;m-6gs{xsjqCf<k
zSqa(RO{T-ORJfX0mBtiuqe1i($G}Jg^U7S*GXaESC=oz?EF~7EoasKwXyFt#MndZY
zL{Y||7J~K~Hm(OrjTQE83S|sPNpWcY$Ng#~WNq#yQl??}S!;XOFWV=dpq0f?qyH$V
z5im6Heo(lXdDzx1!vatF9k7X}1#BCG3npOB0G#<4G#68`+hxCuqcp-Ak}2(gG=jO+
zc`880E)Ort%(Y1pd4YKjF(Wv#m@qv5qY-AFv00xOX*jT^<@BOnzBON*P<bVxMP0rb
zK0+RK!*u-W5qIB1?<`7{u%I27A4Aa>+^(-WPY~YS5-|Pi<S6=g*=@ZH>g)ZBoHg4&
zx(sUR1EY8Ga&FXEl*c;4dz>u0NK&bWLPTGG&rrjXa>&xCY^R^e3@{z8J45gj2YSy*
z%-G6Jpf%nPc>3spp18<@PvtW&3d=!BSd&_^Tw35j=nw7J5JthEZ`k}+$`K6<Z9jy!
z%{*J|LrwzElVJgShZ2~-dHpqch7aZ%Xpdct1-~Tdm7qbEn2IK0#H|IT4VH4UsMNac
z5!04IaX3>+zRh>q->%&sGoIUU$qJMG*t>AK0=D3~QHbz%EF7cumbtVgzy{U|=-nJ{
zGwr~Jn~;BDrNd~>%kds2^`@I)q&jEK(Tn6BFi@JXV6seL(OYU2^z~Od0xd5lQ(oLy
zgXAo@e<?-osOvWAeKjw&8bVV^2SiK#&G+sj$9N=?wnlA1ht|WkKF?w1<^{}UO^^O`
zQgyNcZBdgRV7j68ep*!?m?(5u!`KQLznpn}uD;)u{)x23$o7<)RkdyVdZZSxG<h<e
z0_j`u%LL+R>wT?wheDgN={3U@QG&z;-zWj}8_C^AY9&V6<XG|bQUvRk$78LI%l!JQ
zOLw!Wl~w(w8Qbybc}77mb>wR8(?Eq%{VTog=MD6(qMgzTF*!+?2Sn#3B5u6760C(g
z_A8X;*lLe@{Ei;cUAe6#Gx?zq+WNQsP4Qd!-oi|EqI#NmQ$T~>*h%eE=h~j~Qi+N&
zCDZF9=ZzTqT0h0#N2t^U4GCXXZ}=nq!fobihatSG$efX&6e472pWuAX+{46$)s2fM
zV(?X3Va(QCog===X4HY?<AaqEywo}g`=r`0vYaV@^Xgn=r)#>}Set|(YxKsRr5%WN
zycU9-sy3e%J(8$Y;A*A#djJZ*;rfq1ccJGKomMn+k=yeMotYkO_hKv}1-mK|ChATT
zEa&jO$r$x}ypNFW*W_5Me||l?QTcizUs{OPej}1&I`aQ?a$@TsYf!$G=JOlz*)@(1
z-Ni||D+PBuNsBW~qO5IAwacU%tG5vF)+yXpX7y5U&tdGQHm!|gFTFAFz7_UEiJ7Y>
z$>2_ztWuyqB;cNf`$VsXL3z&muhTiP_cc^X^{<ybI@ND{*S9}YQsi-<6We1ri8l4=
zDx@?BBB(7t>3;Vk$I}+U<o89-xz{nfAY-kjeO##RCB$a>JSix}a48wWe=D&`aWr@b
zAJAdwtw*e`@ED99(pjSF(j*j@$USbWRhqsHaocX>4$=#a{0xidMu=0k6X!Ml?gj7^
z=<*8+VGw)8_6>+tReY_8z_Z1NRGVsXlSRkx=WHyIM59>N)Q^&yDkHZ;809gKf_(Q)
zLWDJfrUSA`?4Nz04H?lJLuw12ZVQD-^L^r^)!CXsdR3>|zOT-tw9N5PCK#A5M_xTK
zyln2m$Py=XXXDbplNQP5ro$q`YDg1sNn(Z?>n&m%L+OX%0ZYAm?MKM1;q%6aD-U)D
z1%)7Qg{&|xcpS2Nj4O=|2w@C{y46YfU<&v5K@`0qUh1^`n^kJ{hGIkZHrBp=)WE%_
z^JFz5kEIf1E(+x3S*RdO&`s{HF?Dk2$uzrYyIQUzAXH%H2Hzt{4NhM7OdOIaNVz+Q
zu>hqMw`9J29he<Ul_NV|D=QTB_aaU(*hP9QdwvloX9yq7GI3fLuKZFwqPHS!EZDlo
zA7aQ&lD<4k>%Ghy^8wt%m}xdE-)PU5k~2*;-gOc_N1f%P8rgUBK0dwxKZCkF-2v(S
z&=>bq@~t_xVLYPaAnh%TYUu5wSF-K{L=s0SvnK;4gWh?2#*sSK&`9EmN;mLS(on;U
zO~VU@QMt~vX!zc2QGYFs>#V&H7aP6^)VN-7B!saXm+Rz{DP~~;h55YH-(wz;Oa6ES
z5oZVFoIE!6MsB}HOa2^wBEN$?2HB$S=LEUa5P@dOdlP|bB`K?wX}ytLxlKuOHfhUy
z_Nky|m0EZ_Y*q;H%THpLl9?iFRW@{4mQaa*fO!k^&tI2v_mQKZJ!0pPc_EHFExRv1
zD*#4shg5EOeVfx4;Mhd7oCw8pSlanj+jS!3bzSwqbiA*4sc(ak3ep?Immk}IQE)t&
zvGECpR4Oa%NElTnSciUSNr0kf=2P-QDOOz#ZZr^DF8*>3h5|ql^Ld+5)+%-5Zec<=
zdhker?U=iF*B&>?c4avh^|tYH8t`6v;nBz+_n~FKZ64NxOd}prJo9=lkbTqJdfM~8
z&lS)%U0qm1e)n=Iu<aH0hzI+~F=Mk02BA6_E3nYqX58a4%NNkZQIG+J<B28WW+q2a
zsRp|7QyX*~Tr6iGCH@;TMsv%vZIPAF@^%yGi|AX2^mWqPo9KPYL+E*g;zpJJLrJ)7
z!?8XYr9EgT&K5{`i274?nfTR)+@uk-O=7b=qkFm%j=Ddbh~9g%V_>iHkX}Q16>CU|
zkY(IYM1V+9RM0SDc{yfC@m5rd@_I##_gK%K0s8i+<38EVTI2eGBQ1h)ia>v*fB497
z0_~F7QKmWKJSTclb<b9-?_{*WWDG4uR&M}7T2^9eK`9gw<0DPxWr1jIdn!zalW-nf
z+!|W1Yo%-{a5_0KdL^DwBvB34P&DOC%)mfz*@z~gA;Y~t7AMG->0BXvyLS_=Qfj`f
zHT0zFWjjRAi5le67OLmS_Yd-LqwQRAYQQz3$)WHTd5Nh)#QD%I2}ial<gbb(J#^z!
zA6E|Q=I3fgS0y@^KdKGLqXs`hX**$BowHDrWy-gQZ7h47vT*4GH*1s+3iuR95*PQl
z`pN@^OXVsVhGU_6;m>7cW0g%?su{r*N|si&PvsfZ^ry!M8}bqTnnr@o;wRT26JDej
zVSju|2HflvC}^IAB4R$5nZwgM8Km!9g~wa&GgXuced39kLRh({YzhvxBxACi8UROG
z6P?23ZHAoltWA{MN3$3kbYS~2uPpTqMI>NqeD?ED=eQUO0mi{q6n)|zUV3M|O*=Bl
zGzGPmV?+}2osXJO-@u@Pf(<clj~0T7HpmK;Ekc7^#{G8+L_e@Krfg1DW|M->Jah!D
zM1SQZBaI>MdO$@I1d0j7vtU&k&7IRhw(XY+69<+f4>VW~TunLdZ|k**<a<!*Mtt(E
z2MV}>;|3Y9dtOV)?1i81R(2eWM|VEGFZUE#FxkTv9x?U_QYFxVpp1K@?6rp0J!6Sc
zf@jGAw_E;fzBdlz%m@Qk3Jx-Khc3F_@@6Pz+m4_h>w2aYaxFUa;c@Vra1_S4Sy3x)
zUFjFKO6BP#mlPG5CN*>GkjiC$L!#ViMCS2J)1*gVe*KYh%LUV!N<IU<mDJOJgfEKp
zec*GFfo03L4VV_-ZKW@}3%k07quYz%X@i@Gp?nMFuq^>}0JKzGhL)&fB1~jC29Jei
z)RJ*zzBJEp@A4gh#lcW+Aj5gNgirs+0Fd%E?8g8Yn4R&+yc#LWbSG|9KhKoh>w||O
zfq1h3N06;clY#smE$!uXl?BH-t%elZGY;HzleF1t7Uz98K`z&&1_F;-J|D0Va7Q>P
z`>HvAEWUW+(3i!A0K?>m91OP0H3T{RLBny+Nr^CCnFBM*@+`(T;iHky*6Y-!kgTm<
z852%^v%9?fdb6y!zQU;_O4NlJt;CX83Wi}bes0QWsnvYgT@SVCkB3xB{dOWw2iu9D
zeSqOz#0`QA{+xlau@0ROn1EVxXimKWnZRTl=BKjCGEQQW+jW1SeaRUQi_38LTq^`p
z;=rU?=StkzH+%wR27qcyHFecBaHbt`S_c?P-YyVdSo?}j1UIjM*Z{}l)53za;>RRf
zQvq@;B@!pom1k5hw`l{$W#-ke)*hd0V%6a=g`6llRVm#)Rw0>^>q4fZA>+!wzA=h(
zVCg|U4^jCY>M4OY6Px6WVjox}l=f_UpFjA#S$5W+lY3dj4&Px=hXB8&7$|&g`xU)>
zlg6r}8HmdVIlCJSJ@9BT(&yX3tutICnph`eXv)XCsEIK&`RP7%y|Jc4(+-4^_s|3G
zpSy3ceg7;{Cu4IE1%-M<q}9XgMYKG?a`J@TsNYVqw>EG)1Zka7`)Jn|1eGq#^dZcN
zN*4CzBg&50v~v)kSabm`Nw5+X;-EcNZqS^c^_WFJt>t<S)1IMxM@)(4QWu3STx?Pt
z@W9?(d3Q_zo8y>65EmrXAQC!raO^XXi<vFG24eDRw;O9WtR<!}ws$Rx?r(NNb+g-b
zR$P>_P1kB48EU5}HYY0*DnWH|pE%Dq#Y%)pV<n4`QmAJDMok`AJ`+P@N`2mEO|JyD
zMSTV`_Xxyc483oHB8I9Qu1wFz1zU%YVAVwl%Em`N)QB-1Kq)}lz}u0SP|bp)ObZcx
zseor9a+wK1HQX1q!LlIlgeLuAzw0*M++iUD$JvHGTu+7(t-^qYuqrR==rGRLPsF-s
zCID)dlS@R_Pd?H4{(1-F$uEP1HJq9bLy6!^GM8gDJ)liXh3TY|W|!hd5l#ae*wGz?
zFs)q>!Vj>UZd89yFaq$qIrKZr8StDd-*tR>uXyRyt`?VVIX!58$)ivU*=<A??6H^N
z4_~|TOQ^39Lm^`uSXOtPi_Y@c%gqbc<{gOAr?FgS_W!;+0JA)}Q&r$O@X(3qebPgi
zdg7m@EK_-ZWf<xKxP={+Ago_o514xK{ho_~uD2ft+@;q5kvF|9|H{y%hQ$fvjz3CO
zEtyIgn+5*@Iz2ij#v}++P%Ffvn;dF*T+51G`bn4YBzJEH4Hktc2>_*H{A$D?uCYy2
z7!BCPVQwvrN1*hYTn*_X66<c24Yfw-UsTWY-WIoi@p`Ihr(VznRzOKap)nLSjy#`T
zje!+XW3-OT`#VFW5ic-H3>5@Ar<0y|E+Dy_yx8g(pBz!MT3bDTfSir;Wtq;~$bJ{7
znGgqpqPI_WS>q{|*!}s6PTX=<qnwYM)6v(f&Ix4lt;z~x2H|k)CGi<3tEWEjcHI#3
zn-R%!Ubv2m+ks-B+fC-3=WaWvdoK1MGnc20_FTH+>-MX;hL{ib1BCiW5OSe{aTP$D
zgSAFpBpYETI79_IPAA4AGz;+N$SWDk!mIO8wPso1Q8-rad{fOCALq+>eE!jIBXE_h
zuhX%lu`dOGfiZ949v-7~x*qB|$`_xF!+6+?ZO71llluHs@&B~~mkWiR{1>JII&#%2
zjkgm?qVfY`DE*9Od(P83=ESUY$=0q;A;88Gh3@@wmSb9ZZpS=#@M8vJAx(!@<r!n#
zAPHvz(*+W07-ne9{jMW?apv=k6BqjnVk-D6f17w?`Hm}lcS;H}9!cwa+Y|=kQNBGu
zq%KVa@H2>S3iwp3Bm>a4V(-r-{8y-R4H*aXA}x}}q{QV>B65VcEp}Z8$R{t*O|FGk
z!b`Opq~)G+3!ti==umy90$vEM70K^ClwhP`<`OU&T+tTu7ZR494?l5yKJIAsa=Or)
zd}s3QxXeLu$55YSdJK&*{0q0hIGb5<q?Vc=PEV3uUrP8d6~N%s19w90Owl!OH@5c(
zVPx&{T5k^vE5GyCY5!Xe0jchygrsPP_Gk}`(%bD9dd!cXpK(<#?^qkuHd$J*n0z$i
z{$ujccMHgY-YeW(I^N0^O4SEn_mTM^THLH;C;x?)ipEbQ>(Mre3z_Yo-{fiO(uNN-
z^j^otr*D)0hE9j?AF0I?7E6AS&naw(p62Vx1l=JFYIS34^6dS4>g&2C`fc`}0;62O
z{lUmIj@L7>^|On!-}$ss6ENB85;>NprsY!mjT`6?<q7Z;K{&Y)h6bP+8&g9VzKY;h
zosFH^w-pG#0R<!njJ9&6LdTL+1b1b*WQc$*;r#I=2M<S5Cj10A6kkK4<6v1C?2R&I
zn2Ic6$UcHwTC%7(j-6Oi4qNLWiTYPcY9{?QS4%2T-24#gmz9Yc3aJrQksurePl@dF
z<_OzcxZ3T5(>Vo}cV|@MYeauQR-6mfr%Srs%Kxi2ZLzcevoEed>;pXW%T%-oEhvu)
zeQ$$|b}67j=thw}r)drPNLk9y@qGCPR8V6uILa5?A6|VPK%{}UFO}W`dmau~<=kX9
zbcb}Jws}y3fX0q$Y$-eD`m{XwXxaborD{3C^CyK-dfrVx?^N_|$G5_(<a`FgtiKc=
z;k)zh8%=M^W_QbQ`PcRD75_LTudl#)^JV?vyYIdof($sgb?20i;s@u9z^&j4WvIYi
z_IH8XL#q2>1I!C@bw(hR<HHD@CEm_672hgI1x+=Mmq*kBS`*ys4s)waMZ~h035{Z7
z2xq)z5-Vy~6b7p2o7*Io^m`^}lRB#FQMfBy-D|UjoTHc-vGs;`WygPC1u%i`LQ70}
zl`Bl^J)VQg++bi;YEaxyI|w}#5_pvOAu`k-2wBbxsk{wh>oHf;4seCaVtY8DiPa6m
zbV*R7ONvi?-Y2N}T61>B?|Meyx9=ahMBIMG(XBT35Jnelrb1y^Z>8gSYc-6pKVZtM
z@{%-%K}Ezm38)U~hIQBaW?@mUlrbtMhTwW;p4sY(eh6yhhcmNa0isM-aBt-$CC)QE
zs~rDnSy!yIZZob$PzFceP}%@bA@8I#t5;k&+3qtGb_AG$baV$5qySRZT%ir-kdx=W
zU>rO8z#fPivl8GA>jvy23t63bJ~bx<M7p6!yYC2d+Ch14CquVaRw^89>&b#zHwvJt
zUQHJ1dtJf5s(L^smXjZF?*3059q*w9BvXT7tuUyyXgGg_-a)<PQtAbIJel&!Qm^37
z(ilB#u(F&$A;An!y<1Ad))txvJprT2xyUsS&$VF<LWH>dBj-qFVQxRXDiyh%12dWY
z1^2Rq0JVPc@RX(JEBZt9O)QTFpl!e!_z;{R<F)}6n|$kN^?)$hnA^#~lY14~Y8@w~
zE39&uA;Np<*DXyWagn}%zdD|cvrTYli{7edvrCaP_e#v@W3vrt(SuLFq`x?SDfNI}
z(hKcp{E9}C?hjv_KqR3RT`!~i-Uy^U2sgxqiB7k?d{D4kbVJ+oz=<l?q^wK7M(`f_
zN%rj3>njtlcR#PkERK2QOXpPknNjD*`shsc&LCIcrSksmzJjqn>xMh!w~guz^>-?!
zq-PNC#g0!EGL{zb0hMK?=f|ruEI8}sndU6S>bEJ|n}e<E$G>yO-kgL2N93`ocKfoC
zwDY#Tf33<VmE-MR(SAp>3T#uyJi=%*R<F30*G?MJqphrWn-j9b8foV->3_Xkpc!E-
zm09tI@(RW}#ww6rkBO9C9#5ud_Z-6dPL!E;G6~i@CG66I{KK_za1_FtEJGLoPbsD^
z$HE%oDWl)(O~B2(zu(sr3&ZPsnJ(W4^;tohVgz3_11&cxMQU-E|ErMrwf|>wy54BY
z8%q0UwDMA}4_nf3x*ks0ZH(yVF0N5v_$CCBlmjVviV{?Ya@8aUX&J^0YFr@rEbJ&m
z-n9|zs3f7?{*2<yorm&=O7^t=c>@&5Z{pxf5Zj1%VE*ywO2FHAIR5M8GJUDy_y*U#
z+x;PLg2?TfUN2BYb5*-&SGi&c(gz&RZ_`4oQpS#APnpKC&k}s4K3}UbK+wj@<U<%i
z+1fu+2Ci~ztC#mj>U%j%x3xY%>UA%ZO<si2ThF?2X6*u%v>ikV&97)f_GK&!qagqP
z#|E<n(#9CCN)GQ7fbAbZYWw_MAYEX|@Awp?&Hvi0vBLAVTG}<A-vv&_-sf7EH~XPY
z$K1s+pjY(23pD%pH`|^k>V$VM_upWKNqy$7@*+PJpa<2SZ}1QIlaVB{|CW*PZ^5Rk
zbJ8A%JiDfY&>o&j<+B!s2Kw|s{HX6~Xa%I&XE1h>gE?sKck&l0s1-{wJEg~V{?hR`
zYK27FA4_<c%EQZbyN&B+V}04~9#<WNxcywyL;W1J*8?j>nZ{t7F}zF~L3;`HN_wyT
zu_XhmGKWk(^9d*f6uggG-GDI=rR6@JCap*yN71LlfYw;e7OfcYKxUknP?S1kKo|Bg
z2ho}SNfA!tuvSsjeXs``DBq`YclcoP+fJy|m&anc<}5flLv0>`rwLy0Dx>CloA`Ou
zmccM<U8SqB-xPE4IIBV=bK}~|YnYZm5j)qie(=P}L{6l1v2#zImv9AIlh9<phQ0~z
zKe@(wd3a0R=~)F8QToToobT45sKe|JN?CemWkgZ*V^O8u>T+p?udTv|W@G_r&o1gR
ztg~(Q&@V)<S6Yur7Qtr2u@oVf?bi8ZmvzFKlh1c%X@Po|GEbn@W=D#*QZ8!aCE)&E
zmc0SipoR(DSme$qJMVDusBE24`Cf$=Xk)S8WaHP1t16DxRw80P2+dRn0Z)U*O$O>N
zYX7(@7O6*f8H*fUiSyT~qkidlm!{9@A!t-*jlc>4nj3IXKj!in&h`4FFcA5LFYEH=
z#0yQs*<1_?6oXd*-3%LGIhqm=Y<oYekKN;emQ_CGh|;U`at5WY4SN~TV>Um-422If
zT;28P5#K(;oDn}Ro$PJ~1684RI^oxp_3VOXFQ*b-FJ|iJ4%42fQH44;FFcGfw}6rD
zqgR1y$9+W<wACB`fa=)DI{Jtj;S62rf!68`j?&we?R7xOxer#_R%V=-sxhVJx@dN~
zG$69I$D~D3qrqEy`CF?dqcvl}Mq6N&`9$nd;NdonEdL}FjUJAl7*lR5?6Eh0U!zFC
zK+}x8Wv}+sqy&pwZR{=@^gW#y!0o1J$Gsd$Je0j!D=DIZnlwA*)$p$HN?5JbF_wsm
z9Xs{&cC-0moukef%6y-Sx<BbxWK{YOK7YlcCd_Nh|CHS^#stVX*Ys8O1XxpmfA{qF
zJ#@TvFXqwHjVZdulG`s%x2=5MEP7^h&e^>6wl*Tm+Oe;K=Et<yS3n8#N3~1mA}ile
z=Br2Xx;DDrPKR4><i4=S)tMmVqhZuG+NuJn|H%k=fu9x$V}le1I4a#|uXWb!>W^BO
zjGHorFSnLl;B~9vl)#_Od+1umI78QChc6aW(-|*`3JoDmi(KnzS5}kG&}8Xfn;)%y
zU;4%=tT;dYR8v52@Rmfx1lk?Vz9Fdb&ad1+^1J`dryC=$HfGZGt}9#qyf|<tGN3Ne
zf!E6zvA^W2Z>fWR4uxqvmZ&salcYpZv;V|<b0T7HE2Ln0;k0`om!D5P49bJr<*|3M
z<YT;*!p7{^b9MX;Z=X$i=_#J@lO?3>U2Fgz)p{57oy<!3ZYN6^y8|s)OZ@u>kEa`s
zAxM`Rg}(C>XcKrrW%`{1+p9N{_glT7<JK~tKd@ITe)c9bUZE*qWUU}E*BCy=F!bV?
zScf4yX+ErvvK#CN-5tXQ7jG~~#MPC?Bb+|bVB*mp{ZYOXS2l+7k{$$D8Zjd1Xsd-F
ztytHDXKmO(bwZeN`)f5~&BC^(hTZtr&FrmJvUJ1?wA<6|kz1l?E2G{gj$UjExDqP%
zOQmR4`uh<|Qa<H|;O3}7b@B(I|7|&!5asOY)~);6tr$m8Ct`>p@oF6@Tq<=jGh<(e
zj3IrWz=5-z82c8=I8^K-8FVN-yfl8h7vq|9xPm{wYsUDje}?!mPxIcbW>Z4<Gt-x!
zGmH{s&d=kcZN3+TGp4i2Z0k3!WU^uAiJ_|D@?fIN*#coBB!CG)nu0}le_s6b^4(&5
z9IqF+7*A;z6lPT#xBI9Uv>rpN2ZgLR3RGlnm_C#x90EsWdhp2SL+7}}Sc*5*C>XD2
zOO#=}j2Niw<N2;2Z1Z_uZBR##`GbJlIoUAKAqp1P$6!C{-u`47R(!}6V{ki8VlZoV
z!HRDL2c5H$f3oy;^3{f6f+Q)vEP<Cg`86@qzIVODbilx*mES`uXz%W_m|%_4WjB}4
zpP=SoOtwuIgeY!RtH1i~@IcmH2z$8A2He2W)cUc)XZ4VVI1P>WS{cKI7`omTIqA##
z#(e2dbaFnww^4q(rFetM=eyMjXV$^k2^X%^D)zk}9S}ubw`QEl*1i#Br+e4SknYQh
z8}MZmur#Cy<5_xTa6&Hj6wWoWw{(HEZW!|kvUJtYXEG8ld=~~ZUsJXLn|R8h&{F|8
zZ`Wrch^}qhuVI)sLN`#I`yyq%pfF;sdNXWe=1|r~DC2(4>oKIhVl`tBW|-|ojdwNu
z^St@-scXag1O*%h1FuYa<{4tJehtPYYcGYMr92f%oJzCX+y0Z4v=S62U9&{lb<Euu
z+b{nFwxAc8!>W=d{Qh|hgCi>kC^O2%8(bSY|7g`Ho1GLnQ6a9glG68f`}K`2XM<lS
z^Aa3*sb_8^S_7U{SI643!A*TSer!cRhu?$TU&KfH&E$O7r&4g!*YnR-)R9gD#ndM~
zg<l~ONNGOUTG2lB4*>nQKb6<}n4aUEod{}T`O{j3zFA`Wons3vK#=Mc_e2vo7CXQ7
z9mCH`F&eK|QQj2wijUTi?yIexyr2`PWN8;M_vETkkRuodnNu}F&(|7H_IUz(Y(l_s
z*>&bpQ&TM`AW4hexQE_A<%lZ}7b(bK505}JNT{jR@lqe{Ubnr4D@1q`UTph`GPR$C
zg^#IY;r@86D{es<Ofnj6fY-flu@&^*)HjaUP`?0OYkSt`$%(@K^!6AQ%4Y9{F-^m^
z^84$;ys<N@AKwL*n)WDf20|w__@|5pE|D^zKzJa$fD^-n-&>8QfnGPeW?c7<oB}Bb
zUuL?bi0obIBzozYC7FEIAm-y_9HG(5aIp2xFwRw&5|NX16a~8F0ya4}DYloIWbK;W
z?7KM$!CQ2cB+*u+h@Ay&*GYRJyjNaqSBO>V|5!cL8t#0C5U@ZKnF%$yzIcJyJUyuK
zzP`@;%eGO0p-gd|`OTiLa*Pa7OzAzwV!TsrPye0eFYf|vo^J5m9CFFl>{F{+xC~9v
zUu;XD{nWdxlukbPN>$_waer1_{riBXU+AGI(<l4i^PP-&0$9)7*uCx{6NzE(i)^6y
z-q5Oaxix;)t^H=nm*KC9#c$?E#-8Whf@;uFztOe2R|K5-Jw&aO4%s23U@B(`&Dc%9
z9Ibxjmli<}DUSY=a-pEhEC;3Um2lz52VAtZF5Q=5t4A}pOc~vB4HfgOOy3yZFdmB%
zt1@{4Vcmdd90iR=YX*`Ay>PDEBcEXnwO8v*7F7ACLaFv5mZva^Zp_ib*_m#>dHoe7
zc_0KCkW&>CH*6h40kShEEY8o5o+HGSY@Vp~db-VT9C5(*rgu>Do8Z_}$*zi@AS76_
zFPgP|kMTT9&q4TgjMlv*F({k^X1@n7l|aWhrOW!c5aQ~5yx?Y#7bBV#N8T@d@!j}H
z<_Qgzyr}J0tb+c(djXa-j(*xssa_I1H!t*tJc)A4aXEGzYU{7#{ed@lxcOCcP9xUn
z2MhvcV!_NUD^$c?Wji)Hbd3?L(6Am`!8o`$7wTzNhI%xq^K%~YcT3IDdW?id>Ie2c
zH-X7JEQ_4$jQ54YwX*FtyyLM$1~2qESm>&&MF?_meHq45T4cpqYJ$)&v~V_GcR-&9
zGJVLLBJ$zm53OXs<3cRmv2jJgS{`eNNmb9n@zK^dy*GbBZ{LA>?H6Yh1-Fu<PzK%0
zxA{hRav%1<%pI6A9_-Ex2yHK<He4)CF1rgb#Ro4&b<$SLB>J+VWe~KE(G~2V7($lp
z!bMD{`!ZpbhKfStYG5GT%-9{7Q&@#hbWLA8YEsvllFr_nenQ~!qa33*aajq?YeREV
z50xT4=Gt@BIwta(p@x~htDZGrpl08stJ_A?(XRnffl-Hj;r?-n+K{h1!Z@U-=*>#Z
zE|^;|MhyJ;1~Y8?b6^5FZ-3~H!><p9uEus|(7M+|`)$OVm>~+7D=B7aM`}lUSP8`Y
zIZSYUIk(g~hrc;PRSjH}jj$Vln$934$SoJI`?UI8E%Mpir3-cHU#_V}{xp5Hs(NOi
zB=G%~-oB0zewK~$lt7K#g(g<?eRhUm%7-QVCAPU$g!d9xG`d1{vKYe5iAeiYG*yp2
zYLgUEx}u)vhKVPK&DU+L=i??uO9vT4E_()3jrNg|$5}dvx`)O_44L6y9!7BgbU;^V
z`&`6#v{`F$SHafTHjH}hq=nts$X8=6D8=4J8Qo3@@N+h*_t7sVC3w5O^3m?yGBv8V
z;<lcWYIWc!&w(pNPSObPQWz%MHF9ulEcBYbr}g-@df!?~C-q`%COL(&Wxcm4&=oS5
zx$ic^_OS-ZS5KAB-oC*sIqX{qWn+~bxT}#=;|Q{lLcDICXWI7Si)9yMC_&bHySrLz
z4hA#(`cH|fy`oL0mV3TW@>+ivdp}-r>io13UctuJi@?W!p9|Ma--PminPXGCS?kvL
zZ=O~-t#M<?(#*ioG;nhNoQ5-W>g^Q7cpkgk|0TumFSW;>>Z!E8yEu-#&dR^R3|I<<
zs__?B4fJSh1y6aVze2sGP6JmOT}NSceSC$wC5FY+`TMqWv){MJ08fRji)zIZb*(C{
ztf|9jp}V~r_If`IMqIMLYjG`JFyB-`HrYxE&2}sua_<>j{>{SPBVwXXlHfK^3*vMh
zzCYs&8KCQv{{#t~hOX%>YL%SFI3@fJ(M)<Xl3vI7z=N$`n!V6fASJa<CqlU)9r%10
z*p?zhndJL_pd^{*-ih^T54u3WR|>Q~Sxr)4i`koktSdK|rC1K|Ty!QmnKF`{`EmE`
zM<$>->icWa9V@8ywEcNL`$lZ1L>m!WZ|{@DKEq5d#Bj518s??Tu<foGa$l|7x-l%I
zyDy>~{mnX&!psK!4Gn2p*u`=4nHgYPm5_){8le49u0G_)i3S=~E7S-#toQCBWl+Vc
z3KmYkG3?oJ_!a=z*m#YYw71oW_Z{P%9!}PP4hiOz$-DZe)@$T(Ln0o#g7TP&F&stP
zm+1@?$gFRjB}Cm(JvcU)FrRC%KkY(fYC9)%;<1y?S0ebaP17DzN04l1uvUrCYTSP9
z<Kl>Vwca@|U0MiKk4qpz>wb%P4zEHFT;cJV(E{%d`u<AF0(4e90a`sQO1Ommr>Vr7
zZF^8BGa)gKSOMD$8#3~GdJ3E$6^^@5yb%EtDfFr-smTa}ZSLX;cG(E3+r=aCXQ_hi
zjg>;xSC8scP7~rSgFH3kC@b|(WQZ$1%nZ|2!OoH%V~tpB%}#6kba#_w%42n90vcSz
zUts<z0n`th&%`EQuMQf85vBx_%IZW3slIh$hq6sP<1&@Ue@N~e_6k0zAz$Y(S!pcQ
z*yrVw)19eLw<&V!&Nsxj(_l+xK*9N-?HO1Ae8_B+kzo3A^(Z!pJg^<E7*TJ%(>vdl
zdMGRIf%?5?Pg;MYYu4|1ly9!%i1J=<nv?QG-hBd$DgWlXEcX^a$=awQn5Lx&?;JLp
z?Rqu`7i8Q?B@5rEYs(Vpucm)p>uAp2y{;wEcC@n4Hnp(wH+o8!=Nq@b&e^CwMmzyp
zo*ni@^83#8smvum9XT|J(Tx@JrxsncMT*bYWsO}N2>+`B<IuzFK}=tM|7mG?-^TcZ
zNO9sg6mztqwQS3-+RpG#sTrI)%-Q6kGdIBrNA<nOrrh={QVl~6<&;upZlJmz*m17f
zMe42?jGNs+4dRXu9G{BOz9A!8RWI#jh2Yjx8y81Pi0hU5GT$zJnU<XwB_PcOJD)th
z2R@yr2?Krw?+Tx-fi&}icbsIE$8NWUM+hS%b|Lakna6STIl|Zi?Ft|*d}~I~GUb4X
zlbg|Yr&$XZcp`o16ZIEd+7G1I#8IQ0AmggIxX^NgIoij&bG;roQahehG*-LeZKNqn
zP|2NLc=2v?$ZU;ksoZ(6FxMzIjaLy%<0gonXc+RYqwS&dM7)(F7dC4Qmp_8sC_s3}
z#crs|5UBlA><8I~TpG23m5x{jlA~e}bAsIGxpfL29#L+V1DUM9&*eDbRQz4;2Y|K)
zY9c?6zN@!>kjim8JUrU|NbqxPC9+`d9Ou_yzAr!9B>Y(edoDUOdeycPq4<iiS89#B
zjK&kHQhh&@{}y7W<Qq`P0ezhQ`g=2t;eVY-eDn7~4f(%LtJ*<ya?v%?-zP={|2ot0
zZv^g$!vCq4xatq=x_C6wfR^Yov-|gezRG~IuAP&#=aS+bil>&W-8Q&&D7)QqA#tMH
zr=fa*yJu>lts%sL@jJ6n&<Jry@$sFU!?j|_ozqYx)v!D+#Q6W;vi?6XxHq<7x1DGb
zj)E&&{k`!UeQDQU`|5*$7Azb~v5{h+blbK#D{35lJ(2O!8HUma+ojg%Auy;LU}*;j
z4z3by(my&N%JkMpYgA+eark1lY`Jp|>_2R@<3TbVN)(pBQ!x%~&RHEB2z<Ode(x^l
z!A8|{O*QrEmk3taQ>u33Q$R{0Ww+aj9bNZ~e|K*~GnR6cUI8kLGIjTG4(q&yIg6sK
za*Vh(A4((&U}1D6(qx!wm~WyySgSx#!`|(wWCJGQ$YBVc6);%dsS*VnX~X?1#j2{`
zul|4qF#4cBF7!O?e~-a<%03<A8>_*9b@Mdn?7D*4$I3E!0su(oV908OA8tpuYF6Y4
ztoTvW-)+7#?U6m;Z4L4t*V1xz-D!@IzXBbTV4Nq;guiEHzYDBfzs8jhr<c553{Nwh
z%t<50t9OBq|2nKwdL6o3EsVAdg+7Iql+gXf+`E0Wp<%oXF;S=2T9>L)<Er|N!z-TB
z`;ZKi;_ZE!jjH+ir_k6<hiB_nVgD>qzd;<Sbz4Y0w>~aSh%+B-U<;tR?>m_!exg6_
zdE_9*!DySLuya_qU+bKI7FES1MVCGFV(ZWaB0gDiCmu?Ro=C2*tQ;IL$ExQ`vvtC@
zxT-6!8-lC|ENZr=#yg}w3%U#aO)}`?Hrodrw<43vGNZV^E1gagcll0)sd1GjKf9pD
z&Fa6=opb)qof<uf`x*PK_i$%;3?2Jj4^-__*bAtIrEp1?cQqN{e&M+&_}8)Le_0Mv
zlN$PY*(g3;oilax^$?`gT^#w{11=%?vL}vlzSwCCHq}&g=zDKnU|p(?xXc*~9uk8d
zoq<=GSl7FO$+?SO<~Ny~3p|hjxP3FZ!Hl*3i94;k`jOfmM#j59Q)eUY4JRXcscTzq
zM)d*zK45KuGn~D!V?HK}zYMQIX<xA~v-<eP2>B}4n>6l$8g!MmD?Zm3colOkuU%;T
zPW!`u(3yW4N68ZHqbyOCGfRP|A0}@2rS618JObY|I9%_r=+W7sD*AA(0@P^-p~zLw
z>LUTjWPSX*YQvWt>&i?0XE~~4r{Kc#znkXE^7}a_e+yuRi%Phva$C^NSYvNP?;{8T
zSP0=5W+;!YvIO^vGMix-JY^GRE?T8ZsN{64G-KUG(#A(P9e?`Z-5AQ^hQR-7@4LgA
z%D#4EMaRM@BPdmeP?SDOhcJjBp-NGT1P~OE7U@#M$S5OKPNYaxdJhNzDG4|z7!W~P
z=qMdRK!YJdNOE`h-RIute*b-cfA{>sL*V3`z4zIBul2s`UF#e>F@eTStQ+~aDJ5xE
zJDK}mMX~EHin<q!sgi1uAcFM+K4U_6kn@R6`b;**?joTo<h0m^J9t{X+>OMI>}tsp
zLBB@jTzb`*iI~Z9JK8!(*%9+)-{@>mzj-=TiBth-?!?8EbCFe(E*}xR(&LDFydm(%
z3_u=|b8sT|3u-(H^O)`XU*ZNzQ?=ENGB;<@_GXt{n#Z^i3KQ|SS@4ar3CFVqAWy~F
z6j-YEwXkatFFe!}YLRS0LOx}uy^oa<<2WCF7&OcKbRA#W5TUab7M~0%Wm|4cya1ul
ztt_m=4RSaQ&RhD*6d7eJwp0oFD;{PGnM<iF57Psf)=ziQZb3(<i{7zaARhebiy-Lr
z4;WeR2%s62CLEk>IXpD>+;fQP0(G4j#XR`TPSQ)Ndw!5@l-Wntd^#6zyRQCz?jsiG
z4lYud$q8NA1|jSb?j=6PGK<pNTU^@NtT@(n-qE%jYnb_HRxCf07kyzmH9K|s%C8*;
zd<tV})3bNPF0HqDm2+a`4V5o#@50eW{;>@)Ij4N!5A)LTEdb?2gLFG^$v^&TQFG?>
z#zn@SSaH2h;50JVoeXJXVKY4wM}iN9yDy}CU^Sef_ZcZ$Zj0DO$?r6#<3;H^WP?Wx
z6@9Ui`riZqimN>jR?%P$L7FoW&1#eG4(B#*5_4~c*adG2fi|SJ2ayN7m*3>?^13zv
z1sKz^*RB-;wgs=mEVg&1jyLZnoSXw``FkG5;DfgOh{b4@jl>u#ok#B9;2RcfUkjpN
znD~8+I4KBwc(ngOJdNDx9nJxgG1?rQ*Zd5#7!FKJ>ijYNsm7|`J0(gARkg1PO+1x*
zcf}M$)~=xtf5hlWgGFTT7Izpn`V(+lvcogG6i8UHaJq$}ktbTSF?LRCgZhHbLi@;!
zp6V_;*Z??j*}VKaO2gSL9jB9TV;wAqv;$LXiPAFWhm_WXXD`j!A%(22z)3Q3QR|ae
zfu+0Lb;J<{8?Og-ZB`Q7Svhc>bC!&obn15`Tk)oU;Dwtm-}@+$3TEi%>qpBB-hmnm
zjJPP@+*Q5#V_1ird2Cs+pDmTsd~8MH1SWT3(C7+1L!(%?+LYGyzVEt8Kc|&xW`QWL
z108WrItvIcp^3a=)qL7i8B{0}8uldlytWK!v3Xi_CGi(FJ)iZotT^oK5Ib8|jHOu}
z8Al`z*O;n<?2&}1T>uO6uGnQ<E(2lfE&<lZIhP>dBm(cPKa(u6?G&_)kqR{`e>Y(S
zpuAa`0gEj=+*+Q8RBl@rAIK_U43`-k!dxMZ(Ic59Mzg*~sU}3f^1r_kEE5|D7|5o2
z_WN@ynO%=ZTO8<fGUmF)bigCmk1hWDh<Y0Fzz8h<10uXN-(?FKs!>X$nPOF1!-?xf
zs(Bk+uGo5p6SJ=?+~iarf=`supP!8J7%c{IoLezF*ZJvr>bePa<)GEq1z7d9H$=en
zQvy-6=;6`l^EoTMPnmxKCk8!F_4F~Ly=vaAgmX}9;Rcb+#eH2ee6PDqAFfg2{IQ2d
zY{M6R6V}uOt$C@(#Y`ri#!#Cv{+T_rYYKIhWV*eQ>q9Dc(}j?qmNmCt1#Qb57^j-}
zBT>15->dxn>a$D%tEwSEs^)LxBVXAeO}>$K`lFs7)_%AlQ(p=O%Ww)W%sj>*()-Zn
z%J17t)!n=N3?bFw1?+1rzt-y(?6GHC=_8SAI$ytI9G|1L?}&Nbw}PrrJhh$O@0gFd
zhN)lTsAJ|EV@Rqb=hTeUP$U1TebHlh8wg|O&)8YgF{ka;XHB9EY17TST}a|YBgV!;
zRHbWOmrhO9+e-G2EKlhOF{5WRme{u@(&xCGEZ3N|YlOIk#oN^530|gR;3jDx2sMz#
zE^b5I{G-7q*$BN4f2Y7wp^Vb%(N3i5Cor7!g>f=FO{OtB{B~Z&Rr({J<ab^KDrv)_
zU$`AqFl|*Mxet8u98ET&=|B+`z;s39gPb9pgnA`=dkBtEdptJ@NOY@ouz2x$s|0aU
z4^~ToBvcpiODxZs1qIyiX&56K)Eq&cd;nLPvNKc&#ppsJBAsBK1kBZ2i_7l$cFx|o
zPc-zrL;B*e;3*GKtfyq1lW>ZD(&TkZHFLyzP+GRo=$#{KhEw7y9P%u3AiT9;7Mbvc
z+W71(xucY_j5x7Fy!p8+{&o^jPMy69ri_~nh%IGT-G9Vz3}T7g-%4fjR6qD=UXr8V
zg|K9Vm>OUT_NYsfV1n?>%Z;Vq=;&epNwCNZ67}l<y>Mazil~v-LG%*+Iklin&~}e?
z0L?LL{unY!hV=9tg3zIsX0Q)!jJ~7Z%xK-&5<<$aDS|xX3>oe^t8=poJJuZeX3n-$
zICXk?DmD;EeEuv+_;Lv3(xURFJwAiNLvK24OIz!SEM2Is1?a3^dU0o};yA~QR?xgV
zDSzMskR<z~qI}B_Y5`w<d;qLr*kx~H=z1XF)D{!CwV0U5PsaFVL9dO^bSke^Z+wJh
zY;EAZ>*d=e`(WH;-dlIVp*D)fk&#Itty|GJ;=c*UOa%QZ0yK0Y%_sN6Y{mY!gyjE)
zaP4;i)m%$CAKg@M4t4zJMDFDzfqKDdS>uSa{FD|+A1OKmR1<$P{_~%;>I1OF>AGex
z2Ftm?Q|9M}^4j65RcJ=#1`lim7tnGNmJ#k43##ExpOl5G%adfFh|Am@iQIV_Jbk25
z2e+Z4N&+<i#B*g}wrJ6;`NTc42?$i7`68|qM-dGW&MZ8h&s)cYw)~O(VHyxJxqDdF
zzQ$aV+2RYhxQa2hHVmd*aFyJ76}k*%r_S^1t?tT_k|`6qCy}&9;HC8K>Fa)d`Y)a~
z4sWyC-7SDCnD}>Di(^zIfP3?nPA%R6>=6*}8^<*OE97pKe3t8@*)kdeMcRecuJkN*
zhTVg#uxpO5dR?Fj?Cxy>L48>GHm-`1mkm540lcsbOfh!~i5Lp{wS98?4%Y$xh_xwH
zwHdj6Ym6)uPc%c_b3!Tc?75MOmx&pUmRpMzYZOU+CnrD|pi;n80d_ns1Hh+s+vk}2
zZlb)<z(zgm7Q{&nUi2o~MTTSlFPPJeY=PEL>8esqQD-7kkB&H1=I8n4JexO@V>G3G
z=Q0%SPwM-FU;$q?uv+=@GZG}#Tc62FNaD?OjuJ@^{H~@V(WF;?Fz7ZbXToxivVd7_
z4$0=JhD`j;@;0Rv<>TD(|3ObMJs<PemkICI$XH=@H?c-@T55hW3c2N}WWXII=feQ=
z`DACzV}brjffNo!s1MJ20nq4E9-6{1#-ANikP3}}Cg}Lc8&I;T0x+%MFar5HsIY<u
zQe(kVp+D?-z&rwy%Gbc&NHj^#Nd$*TY-8a(RgoXKe{T=F7x%>1+f*619tjC!=Npi|
zFFc9UPVj9UTmY`FKys%{pmMJ5iGI1~|NrB^IRby)dqn}8S)3_y9Xp?b1jU3);S*SZ
z446nF76>qjne$FqhbhwxSO5hiNmle+m)cG~>AEjNYJq}odk<1*cAU2PKur!BRXGmO
zF6`uRscqeI%#AGH@Zi%I+jn;?!*Fk}gKe>0>!K4T%RA55-&rbU|CRbOa9@w%7;J<J
z>D8Y6PN<y#_KCySV3dr53hkY>P7tT@=XMt|H+y~&*-#YL3v|gic%vaOP`fzm0<ch>
zr-fg5u67ssSe0K}&w*OoN<%y#s}U{0t1W)o9AI7=JA~X?R}qHYa*jJ3?VGT<!)(Z3
zPqj)q=IjD?Z*O6Mr2FC@4}vQxo5^)EJ7K>#=Kxx4RL$4!dE0~?z@#-w4%3XyEwg;s
zS=~nh&T~JbED*2vTsK#>(v2mNoNN0O0p@D&{GP18ErRqV-#ib#w6C>Q8lz59MjhG@
zYmXR}8ZLeG-bGWD6aWHy!>xB<mAw3R2bMca$um`S76!Y(vEg*vA36fg)l?at^^DhR
z=mDt(^RJLwtI`JC4Zhiu$X+*lT`?N${*BXbz5xgI$QMTtWw&+-k{x^mV@^NYqTJ#a
zSf$)i$7tW@xVD0Z%UI!Y@YrC_yphVv9r4hv-jn1tR&c`NAzQ8inmQ}>wnd!eH}&^X
zZu~!E{worZx4>y7mh`-YEj~M_@TY1wc}DXGbpo3I1}|~n=5$}Lx)%+A&=ARvolMc4
zdU8O~hTF8yKj@6d`h;Uv5*Pr<P<Dp2jvs740;cgR?Bf}3bFM_PfPd4JzaCI5CfI&g
zB?wS6Id&$r_p?heEx!PD;>Zgi%(@sAr3X<(-tVvZ9eimU|7_m(eV@+CC6Lf#8w>KR
zZ=rw_yRzp{sD3My&5L35`*!ThkSX?nEqA`bwKXcNI_2C=UU__2@tpX>eJV+f@KA1G
zz<wo!1HWyRIAj{x5&|${Xb3?L6msC$*8vFXtdgBKUl0_EgPT*hb!}AM)V+?l<~vC3
zhVumfs?e?lBuOuYu&r#-oAqO-3LgFy)OiFnZtF9=(Udl`H*G0HA<(WB3Xo14fdXJ7
z5*iz^4)|Le6fA(UbLJmeiwB03WL{pI<Wgat(Ct7zNf>Z-U&>&KY*DNFmP@3DExkQv
z`M<ex|A(FKHa?6Dme_V9|8=}}dd{n-!8#epCwcKhOZIs!p`q2zzmj!em3&!Tza-;a
z7S<uf(Q;jL>IwGo?`eIBpMAXuJ}(Sz$k}du$CpvNnn#wZd*>qM36$+%xgX?rg>8EE
z6_lkr1;n)d?UP)wXQl>%6tzMq)A@rWqLFC$=&wXq<1q5(zk;IVjsBf}`er}<`@ZO#
zd#8r2L^E><i(Jy_8|LTV{4kH%b~tZk&xQ%eNehRE`a<c2JDwYrqa#5u@k++ek;_Xb
zN0Me#VYX5Ut}ecD;1vU=+;;?UZ~O471wxxt76cd?p2|qIy{CMo_SrlH2Nl(Ca9ZVt
zOQ+t$^U$MxmOx~Ku%5(_L1p8n^Q2F3P@moEN#90G$W&Jl{d;-?>OjL~kdc6=F>BN|
zu=5}$UpcpX3nbHyh5RX|YEFxTI~l(gC%p%?f<32aEjm#zqBwAKW7=OkYGgR57Y~Y6
zYmgL5?9bz7YPv#`K{$~{<&JuJfTO*kKf{{DMvo{t<<76c`;3)m!=L-CXot9;VFAhr
z2RT?Xm~=SE&L}>y<L$rRAlU>0U`rduc-t?jK@;fVF2sf2!&hZlCnH*Pr!0uir?=Hy
z40Gr-O=}Is;ilaO<rH6cXwx#M3y>F^YAecWrBj~OIm5g1aBN=8FoL&&kXFL7x3{Ny
z8Qdl#z$kqzYAI%Pwq*w}65q38RhCP1UNv4MX};E~?QbJ^|EUw6>|y0ACfpxoZCS1J
zNiImIBgro)O^Pp9`S)UrO@38VL0@EQtEa!H<Ip!hHtX3I^Ec{Aqtqd>ppV!(n#&zl
z*G%Sof%s0uz&`;4^OHHl=eOR&mx_&sa9a;el}*1@$IiSeY<6@Ud&#oF3QvCfeuZ#&
zf*35B=!#!*#`kr2;uh|=rODr)Q!c3T;<Aj311$sL9j#7&9BMoh)26GlAoL@^GVzEP
zWcw3Oj2ijlZMa#vMQB0NCKf(nC6SW(j&3ZIT_TCZ`rJ=bv>OKuxlW2Fe5z(kwR~a{
zB=oonGknBF^+I<ojy4xjFUtHFb9)q08&#?5xbQtwQ1$J^!bX3ZwfMWNEx&tER>DIq
zQ`}o!>aB39$?5AtOU_lNTRW;3@P^+S=$W5K@Vuaj0VO7|h==X$%>iS_<C%wFS`&4h
z#)0Iy#(Gc~0JTiv7Yn4GW3fLP%Sty>pCn72Q+Rv3^T7-}eAv&|oJJ`tcCsz6d;VZF
zhZ}NM&$7%(7vB*bl)81w3EI8q6tRKy_lC47KUIn}N<xsS5ty)!F5vqm8>JorHK`l>
z8E31FX&>P{ceew`d4Xa5&$<+se`;FwGFk(*y(`2z1emKQgieivhmkw~IH-+TBFJhA
z{Iq3E`vT|K2~!komMeM=qSM>-(9+|m6wkP4S;Jk9hCw3Jb?bE|-O8a_GN>3C{Ow-+
zWu&lAPRw1}(yJ=3P<vdF57DhYk_tBE_Q{7XVd&?{VznHE_|7UOCQA2kpZg2zr*Xz{
z%`wH%w$fXe`|oOv=OiDt0o!vS$o#_z?8&a<Wi8r0eE)WcGE0AUrwqoIofgI}W3tol
zE_^O$Tv~NZ|BC$ZST>J12OZBnP|x|Pc{!pyxfhAB9AZ^mppP59@ikU9Ump0rl}Y;!
zkxsXwc29~p)^GP6&y5Kq70Y6#*GC&MlU@&OTZSDq=Q=+xsvAmT<h=4pc&#e(fQr-Q
zapD%hA<n)Dg0F5TePc0CMbg`J+cy8%>62g01x%s6#KR2`t38ISzO+hodspjZGo<bL
zFKBBFMrHP)%nBx(_pAjcM}KNY#3IDF{Bw|u1c8~%sXrAddSi%CjWB3a;j3oICx!g`
zOamqLu;r&n*v-#wH(tM<d8^N|Vs0gdpE&8&IPT>>sWz^~Lki?;B`yD#k#$h}ouK+b
zrngqpJ83!!%zc?U+I|P5zk>y)e?QVI<%`ehC3St4g-oN4MgjI@!EDRxW!L`JV$;;*
zfRJ(vw9J^@kkkElvyi}VbRLP29X=K2@zOz@!`k}tKIVkU8&O+f$~nE&z!zVrt05j2
zkA{SH>>&N^rWOYy8Ofk|p5#vaWnW>R+?cyNN2e{ww0cM5iHKeg<~UFEiF^Iz1sDue
zT-4u2$qZ={q;(qZ%y6L9M21oDZwuN&TN4eEe(Vqn_Sb)!fv%Fu_pZ)8>?zb^C6PG(
zjS44M*I;lzK;;ALg0$-w`RuxqN|`aT7-Fn?i?rDEOSa;%GX7>J3od5v?+3_xiORGF
z<M^FM)ce}vqWGCt+Lm&esn*Dj3W|?A0cGXA(4<xBTQ@NKsG$1oopEBY!F#3N0L7>D
zFgf#0W!GEmC|G;uxgWzSuxOt${$GqCg~G5H#78oys5ZP`50l|}=7-;O1n=eYWPCsT
z6D6J&B)(d`rIcFmg;?87G!jT2#T4Z4<~)gHzmcBtzc#fgxV6p7k1*^|VVyKhUAujM
zH8HAV@e9>bpiPgpIgk|Yc+03hvH5W9edhSNGhJ8u-o6>x#B24E6YRE``(S&Tg0u5B
zKtn~t6$&0|fQp(M4V9%9+RQG>7rQdf2I0g|5+vHeo>H8Zc|o7<mT8dBx{mH`NzEnG
z#DEiN|EGsZcFk$zRfZ63G3}xtELztQc;X|cZr>kr(J-mr&D<=#&pU3Nlp%D5K|QZ3
z*Ii(sFFID!2hviKfhv^%C;UCCU$%G+Av-Kwon^&Bx86YWnDuiEY#e#=kQ)xlQw^pU
zit)|CX_e^#HPhVf*$uqp2L!HO&RjsQ<Kwo>`^Ni1)f6~`YbF5Q4pyRO7gv86_|5#@
z(-x)uF*1(UB)%$|c6Z}&B;uts2B*u4GRL7YDV~MfJXR7=wV85vjj*oTF>&#Uq4|*I
zRk%(?55sIz|8w#Es_GnxK?IMfQ%`Y_TqE6HgGxRQd#R{^egcbLjB3G62HqVvrl@2=
zT6a&(%JQAvtpDfJL_F=H*TYGMz(QAIX^T36asi1Le#x0RTZ?J4F8B?5>8~K&7zESR
zUhu-tv4q^N&7-bcI`NX*A{qt6sppIFm&_*WaXC>wc`<%@u??WRgfugzGS~Aw>ud$d
zSQ5TEnWUb*znZ4sf&<Kd)hOmx3_D47RVTnOM{J0RGv4H_4jJ|#YTxC&@gw3&buOvX
zD)gs#OwZ0x;}QII5qD?RIwP~Y1n42ff~l$>%k-yu{`lE+F}W?{5;Ex9Gq#Gv_6-Y0
z!Ug&*jgVty)!6rN8@Gj&^pKT!swtl^+QI2kQpme!8kDag%m3u}Q3kyK!u6J&j%ZwI
z!Ay2tE=38EKfUp*4?UTdu&HG-XP?{Ybw3MtZt%_4KIaZazywOOjDRF20NM>qXb>oA
z%xC3bg{NH{IwGoxQ`z$vH-rHVsHCgj_lX(P8mx~d7Hw+_Kx?U<>pfVkR@39TC>2sV
zg|=l~a6a$Zv<*(R$jCA0#X^9ZjzllN-8gvZjwDdHIyKE?uPQ~nCSpip31U(F*oZ>;
zjjYujgbHDPbkSPOvh@!VS#lY3E0L)gs0(o_JOX^n3%`CwZb`3FUtBu1vuhnNP1G5D
z5u^HojUPk{E;(l}-4P_yt~eT(urk4}4Lg1#DKP79=Hn86s?$^>T2Q=3G;^U~Fs%Va
z4_=H`sY5&px!8%j`^{CXp5S39HkXvE1s@h}H%(@$mO;H8q8*k5bII*%9f-V^s}TjC
zrfOZ^v1$3ODc8T5(KPFU#PT}_y^(~fRGWn*VT7`-lpVZ~%DGl^n(|w04kr3B>Q}iR
zVut6_Fa0z6^l?t&=_5zRrETqsejPZ1<nxB23!CPLT-M))W^7JP6S3*c2<JPY$6Get
z+)92@*U)J`J@0En^y<}befy*oTs-7jtzxU@q4QBY%|<DGBqHF+84xkxl>u)Oc-$9`
zDVmr&N`BKu*)<YB^4dt}W*_1k^J$JNknvkL2nv1m5&a&CK_3*$Q?S?y6OY}Tkmx4*
z9&F8vDx54@T|7-@D(Kh<q)RvYePC8%FZT7fB@Uf;YMeCcnJM2KR^X$&$tw`l4DX#f
z%tMWB>Y|k|4&3ZL2Wyw#-wJF0cfI$~x=OISPN`10l;%?2O?TegWyuc*KWx6Sn5u}P
z{)`xBng>;B+(h{v^k94La&(09956E;d17v@8x^ZPt0qAeDQT`Pr#!-~Q9j-<I*Nx9
zU$yE$zZq2W9mx!)=kGM^<TI?SOoCccj{V5$?C#K?5>s(B%C3xB`+4w1F+vYrE|e&s
zCm<-J;G{CXxnWTApe|)=A&~xZ7{6kXm_u0fj=9KET(WgsaA+=9--C#@dRA7NFxakw
z9ak3(h=$^W+;V*YK|hD>5sdAbr}y|on5`A)CHL?$ivEvsX7AJggdfGBJnz1hyYPp%
RE^)hy)Hl0UebxEV{{oPxJs|)9

literal 28142
zcmeFZcUV*F)-Q@nmt`xmEK8(`Wd=m5ARrwpOducx1w@L{yMUnwuq?39oC&?zs8Xa$
z2Md@;Z=r>t1dtjCB|;!MGr_gLefIhG^W6K#x##|I=JROCJLi1Mct`z>@#e`jeJ$>P
z@c)C0i;El7zHG$B^}8Pz*Y-QRcfu`0aW5C(kDYgPwJyV-@U?cSIt2dMb64BUn~O^*
zoc(WG^!TD37uRtv@bU#?zm!>0V1ny)jOd0(`d-1dZI6yC8XkXo;Mx<yWB$X2uU@@+
zK8i@PzG{3f`>Y>$ZsJalUPR%yh>6~s2fkJ(ViFGEPG9UX1S}tCHy&uby!#&yk1L*N
zcz&r}_-%l*Z|dOnUQ%^#fNzL;dr5kUbKzGenqCmb>>YGLaHjWv|NGxWfv@B&tm~9_
ziel@F1@CQKH^R}~`{AK(x?4aim^QjfGv#L`7uVYlNlv>sGidm(z3?0RuTtC&Y4)e4
zF8Fr?vX6_)+9@i{2X4-@JXpikpi`!RzYPY<<6mPpjG$VTNe`r#1tbit1w*>npu(l~
zzTYh!SU~f=0<<Z_5J{YhU_}DFqDmEV%-Mr=X_j(els2sx&_WF0C_|vW0qr?Z(Yx#)
z1jUQ^UxX~M8|F}m4(&cbHoK_G0Q>_WEp!wHRYxQOl`{BvY>+HIQuqDULn3IabK@OA
zeJTYMqYsvWma$$2WdnMUmG&A_IDv8^HH4aMTL@GGl`7-GmFLDsHf}*7`m}V^V_&Fg
z&C+>jlZU+|qjp^|xJBywd9P0{f^ihu?-79(P*&9WRbGfqLShcN#|h<|uL7wSIJA(k
zLEhRCA@R1112!p39YFj(zKVd9Sc>J|nyaWLv{jJu!w}17QzbUglFJ?c&1|cM-)1ci
zwa4KukDea6*3AmT?YPss$85O$wgTQ9J1cWhH9dcdwYCjo?_3uq367{z0v!658HC+M
zB4Z)a$nW%%@Dv-MTCryaf|1Y{(|F25-J`6UeFpj#rrq=<P~lBWkI?wd=-G&hKq&d@
z>{3QVxxvRIfO?ZcA6*5)qwhwFL@w2t>YenwmM+wlx=5lP)q0>P_T)=2k@00W#=+=d
z<>oreGkq1_@HUY(Ljp$a%bi0tXkySz%nasLCYczvoct-!X}F$u8$1<$PwTk2Pe<dv
zm||s@ymE*??V-7yx3Z)f0}TnU*IrvrhT)n=S(y8aYA%|tAow74pn?9)@KQlH&XdfG
z6!DWLECkN-TxAk?C!FMoLrJv8568pzJ@!pkpNmf#O+|W{?F>2E8McE8jOdQlv9^VZ
z3E27U<kB>+shZeu0)x*Ya;ik^j?BA*!Af{>qhrsGebzPVYr2&i?%-FPo!<Ng_;$6-
zoUoo)|Gr_S#zlM61L5zEB=KTZ&*Rr|%`_fuGr7|AcErH@hW;Zq!}KfIW7u!>{+5IS
z%mo7UTWufU|2?KoI#-ER2521XpoZZFGQtr9r%36a2LY9=JUNT_<CtsEB+rw#pn0>*
z1UyZ*Di%zc(ChPB13nW2@_dpf%6$p1snIz(WO+m*O7Y_y7CaUMJvPJ2x-6D%n{&Vp
z*H7F;%lS=4?NuS(#1`AnzYQ-<M-IH3HcMS~F@nxl>~pMlK)R~<Hcb;JhnLee-$|{^
zu-pqO^|4L<RzPdpX#O#(PO()Ly{AA-<0F~>#Qf&~2c*QqzC)Jrl!Bz-=ALCG5j<9I
z-Rn4d=781N7gpVJek@z<l)b5qDmnD7_f)o32)){au$OXi+`u|Fr6XyJJ)*iyFU@-2
zzGXh#XzfY6t5${7{XgWADT|nORS!+ZDd#&Xo|@?wTwbXcXSSb?W=Vg3Pkm;qx@W{e
z@hJJCpv>{iD(>22Cf&ihJEgA_|FMhb@!R>2k24R|c<>(_yLhMu>j!f*ldW+a^+*yQ
zOb`Q}Pi(Br<W^k?$`xpZH$c_;O11c=!xXp9f_mA6vWIZTWU@SFmA_;1XOcSWMmMuW
zer__);uEn4=Q+X)F6|kqcR8M!kv%k;?>@0GB|pc?ZA>UHtZZ_Hn){ZWlp7gMC(cTp
z`{$ai33-isx$*$393|E~prH$92T9=ZV$tDLY$r3sk%7}1XH=fXM{ZvqNnC$K@)2{f
zl=>9!+{U`AnNIIZVNHdqS1&77V5Z|^&pR}jf{7MCh2_!VJX6)iV^z{kc4ueg6sIKR
zCqwGnD}{{e_s_G4dgnnXohRG;2Y>f7w829gB(1imoFNR;!1S|a%zC05y4eEMN75c|
z8=F^r!8(n9AJ6@R^+kPd#(rVH4xka(AiqC<s>EJ1Jy<}FdtKcXnV6&cBYP&08Cv*u
z4?OC`Ikktrq>FX$&-N#*_peSlF(Q(D$O4NuT_9BnyFIvQ(KTmi1{!|8M%O3ZEGq$-
z@9bwY9Tw_>zYvRK_-e30(vb{!Q!-mbOJLRRbz`STRZqJQXqiN@GCHV{yk44P9(Ybn
z;3&8ETxivWuPV#@%VlnS*L*RpYkx88M_*7sCgIBN?-D{!+si80-J*X!e=8PhNy%jC
z(OxE1O|I6=(=TWmY3%iDOTzJ}2PaV=fC_?_)z9FMiRmUAQ&Y>fHx1tYQWp0btcxGK
z$J);I>^Ntad_|QcR-yr(rAL5+Ln&#T_l}Py>0-f3`u6FaYU;rzt!v{n)&qfNRi;<1
z^g7@8_J^RKZ|fQ{lY!|+;0@*H+K$PrCIRVsW*=UXjgEiqeF1pOo?lcJ+uRb`&?}}=
zEEEq{2QC?<U=d&obsP0HSUi3Wsg_O-=WidRs~3;7kHCXTR(H5ud*ye~J(0E&e@75r
z;l89NY9LvkHl{vF2Wh&gG&z^`V3~&+5q?()UHjciNHOcXB&_qm`uIVwe=f)vHi2jD
zt`1p>;UjrP*QlVBKo>nBjmQer96F`-c)V!)bOHZMme<)IjD;C7xs4;<`*cDT^YM&3
zh-4&<>^#kMnIsc?dx)(}B!MhUJ$j851~9T(!Yr`!YO-_aCs<qJHuMZuuqL!9bH$Q9
zFc+72)4W)9GkwVVN1pmzVS$rMa$|I&M|$z)i}k_gU99c&DrDbIxBcjr(4VV$QzfKO
zb+pS{OS5jK+V(px*uP*YD@o4do|bc}&J2mD$Y}XKXF`9yFBr!Pmfs9>yHoC@Szi^o
zpO>LlF!X6wZu`2blV;GSf|+jIWT4Yox(1hwojvSGyzO1dA@6p+l<xh|UMNlW#eB38
z%aI-^>o+$%o;}Z4=#mIJm5BsL%1iI^S9HJ&t`@^*t*4N2lx}&<NK&KjlUaoq^Bdb>
zS<7}A^mS>|P}(HEC&d)cHeQr$rbDnm-PC@-%Vi1%E82;WvXg~`u6Z+Q>XZ7yGHuVG
zl;^T4p7VxNYS<05&V!0Ja>O5FUfu!gq8UWr=`gp;v4BdZ>eCPugiYF;-*=w+EOwp+
ztB8iAC5Qcd)befUdL!@PEI?R5)*UOAt5h$7*rQf4zd8u;7|`+ohU9l;Y=Cqn#|-rS
zOuiSd?q>yMi3}*(`3w!)jLC^bpQwj9*;pgPe#2z{kCG0XrO-kfCF#x>oV?1+Iz}3i
zSc<A5FRh5-sjpE7(Y>pC2W;JonlM&*JqUgXvaLb9CUvu9KKKnG25xqT=n^nBm$K$o
z*)CYwrGla5gWLv37iWZ4vdv$eNNj<PHB5NehqIYD$fv7RfZS}Uln2{fM)~72fx>AC
z`VOj|j%?u*3K2L|18a~QUJn#Orp#+h^tAox>Y(a(zuvL-T|M%tqZY}Oq~Dw9Q#~yA
zqqxyjwj03N(l|#ht{;OC^k(oTD#SqN<VpnM)|f7MEVg*@rg^J~zdpqB9lWpi<sIWr
z2JB_Hx$Dq+4>Skb5bRxFE1$wA^L7O1l#BR}{5BXOg)ic(*|?mlP!oTH0Xt-0(_jZw
z)6<=xoTMSxH9rYj#uQI=zbn74fuy;BQF>mCli$tV;g_#NyF}O4Pp*fEj(aXtmEDSe
zW(e=wY%|F8*G{hg@<U+fNFwE>n6S^j5+(d%VvyJ3SFz+=lF}QJ6PT7p3%p$vw-ktn
zN0fZ$J_sA|b3bCmqP>Lsm5wD*m|}aLl2Cmqw~}e6m;MyfMcj&^gosqS-zQdO%dKvr
z4pv0#B_;-vam@vVx?ta}6xz?#46%}x8%eBK8k+jN`0At$B$z~bfuqt>#qck`q7E9e
zQfO*xQ#))@D3~InT1mu!iNnj}7o-%*q8OdvflxYwZxoXos*k6jK=mZ|JD&W9P;Ca4
z8fnQCBFesKK7m4pQc@`ooqWcMJZs~JS?~t`$E$(TqNf7i%}#K;n-{yms;V>K;sU@v
zP9xlYL<^P`_<E56__4jZ|9k!ahyn=(iB7vT#Z^z@_hR#$tn-Ahv+<NifQh`!G0rTv
zrzF~ze;X@(68t;+`@7%rlYO{KKg>WuV)((GP09-R=b)5_wFKv35l3&rz7cGe&~EnE
zQj0?_xtusp=65)dV_%X8*w(^Vhtb~+Ww1EBi%bM|0ZOOw1)#gWml-4u4a<Fg&weh{
z?&<?yfB%~h3On1KH6I2PYJ2rvKE>%YPEz+=1lb={CoAn#Lf|W>(ua{yps11@-bt(^
zh{I?{OC&*i6|K}slff3B^`O&u0VqfYZ=tr*9DR1gb0~!-pQ1Xa$sUL+j4y7K6hm3n
zNnXObPCJ!cf=a~Q+;xjL&p$}z+GELn#PKnLKa-jb2&jyw14<%@Z{}z%Xbig5>t8E|
z9}_t!#D3_VE4ZLf_Kc;?7{%HAn4AX+^J~<7Tn}*OlYhKX1rwc%lRnzD`Ye|AvNe1w
z41ThMx;$qkW~K3F4jD^p{MTlZp_qqI*J@hZbJywv0-O;D+VBWhVrhdX+#I?#6G_Tx
zciHWs<)(^rTsIOg70*eK-inW>Vu#PaV6E${g(H9G>|H5#2h|o6sJ*!jtW$pxO#D59
z)0}rV&e7B|iq9y-I%8wpb0=p?5+U{rQDl%$?K!jL#EO;)fmcdOkUffZM$D*CJzep9
z-)GQrSd8_e(UZNj&?C^OTfBkZR8_O++UB{EH_eu*A-=!(!n7Cg<NIubRekgAtgnlo
zD!U(3G`o!o45Zk)ZMWIHK!_Oq%72u@95>|mjEvh@K#2ey7*HNJ4Ip7B4i;;;IdUdo
zx&ruR*|Y;%0L&Jbu!0G;m<;9wj=NV%o2CKXdT#6U;Vfqf*E}_$5)@RnS4m3O>*wL`
zLgB4qR^9mS{X5v>54yLOZa2N6ub23Q(Q;)Oj<WV*gU;Dou)P>Ap@TKp#XNxewub2r
zRUrIbAP;n#8<O@NH!iRrNqY)d&G1eB#PK!AjqN+aej)UZ4OHE2;r>ktGpJf-#1c?L
zGZ1T+C!_}!s>lA}^P5B``zfx{CfzP%OC3hDS|hKt+A4ir@%nT{CJ;5m_9o!VG19>P
z?suQIv{;{z&a7Y&{93F+v!cMnr!Blh^HN@;N^o>Ou8^-|UNn}rcfF@w#NTForBing
z8>8cL)Yvn!IAknFmU}^R&8YD}ChLlii%Kb<WZ$&D!rr-%LY!i6xsHM{L9w^AvczZv
z)49c);tzIEe`3mvf?eI-QaWR48pP7X9Gr*6Jr20n@Dyg<U<YFYRkygvAbAd(a?^ja
zLf+=O0~c%N;24MCH}xO*Zqy}EG?d3N*dPr&EVGHW(SU)DnK}J_s)9MR5uH>tZzYya
zy!V1VA<gPMSeLwQAc1MIl;l(*9Z8GcK3IPm?<S9K&&Fw#EO)RU3su05rbg&Of@zcz
z(1*Wc{t=MHlU;uv@2xWKp?HX&{S4RZejFtOl+yMJgsPz+1YQ^zz&!Otc1-{!pnjUq
zarQGEKK2XxeRH7x42O}pbnjs0+3lfm&?rX|9L03c$>geax9s{Yng1w<6G9K9Ld9oq
zVw(d+*Z*Wc-0%<Eozk!0pTtLF^W3cSQjP2vNBSB}*|)g#Iwo*@HKGP8f3UwfswC%e
zr2fA_x&9Z}>;G`WmQt_9sw%Yx9lvWmX(cShUILe110QHFpsucp=iqc)H%`jIQX2@l
zg2m<ci}oWEKQlbIx70|(4mbV8#z0!>c8)$MFWG;F-NU~?d;f>m_)m!O-{;X&#j$`Q
zc-<~|=flxVQqQjq-M3ir-z@(vcEbiL<BnL_fO*@?X}b+)mt`&_qwE*be%X^3bFRf~
zko;dP-9JsAf|+@+JtP=Ic>z?5R4U=^zyfWr_QP936vqcEzi}rxNG~=>uM&W2PU6iD
zMRM$^X}LtFOz<RPEoky61qV!KhIlE0^Qn{;AS<JV#^GS=mU19*P7s}D<s>&Wwe%A3
z(55v4zAHV#8clx9Zr%jq-CrBTb=2PUf$t?~NZhT>pg1S1bwAivP+BR8Ume@+^V^oA
z_TogGV?y0)$aNMM0#Oohk34#Xz$jg>>ys;)Ky<S9J@x_{iV?6;Yrak>)HREGnO=>p
zDW|RX7hU0K*-}`kEUV=j)mdu~N#7uZD+qJ+RENmHn(m5_jG)b!a>eU}U5fwG?5mYg
zgVr7jRMsk<yXwjr;mj#`1m5cem+;b5knZ3!<M)9>^1(YKSclu~$CsDfD=fhI>U)ia
zGH1lcg%$oh%zm*$AJ*e5b0=1I0c-1_>lVB+9A*9PgW0Rw{z~@RoA+aB@y&c3;=bER
zgcY2q-SXx2_OKpd3o)zr@3+iq>_u3ujgUu8c}4v_vo;>?Z03*}jsPnx)X&bb2jU7H
zzw{v9FeQP4bh2-quux{r_inM!yIgQV_USIsfeP64Isa|?>@$V9@@25LRKP{x=!^lX
z??5mTYUPgLz~gV@_-e-JNq`3Er4N~B34XoPDpHyGvM9K(<2-w;chmAknP(o>s^OcV
zVTcj|L`P8B?l)Hl*OMmvdL&?F0OR8(qLuV}AGgS)_rO;f=97BSN_D&gRxr`NuY$9L
z8wd7`;FVSJWO_=V4kQg!is93N0f(*&oYy+YaX2KwUVPFA^fH26#L>NDZ{b+Rw))9c
zWxixoUDMxwUW3f$!5VLSBLxc;@y$cE=1`3se%qlZ_hh%YD6|ib=JE#-_^&99xAbbU
z<We_5^EcQNTb^KPQ}&(_B{`6(3(0k9bgCp%N`dfm$EIw5r3mtiI(B&U)<Q6Cla>vZ
z%b#ya?>Sr8d|SUThf<Pk(}D2JmTAt4v`;n;9Vr3p5-Gn=wM}m>8gIFZnfebZFz!gR
zhxFiI=08Dd&&aCt41W!qaGIBX1tvG0*$nl2l(wwg+;R4u&{!?DO;i50%dz-_-0bH6
z#*ek*w!C^4OWEc$vHiY<z~9DW6A2B3MbnYX;_SCV|NOGg^6Fw4pe159)L>dII)K1O
z{wMW`=NPvCC+ag_p!@wUQ8)~47WH?8gp?<J^GXM#@jj_E9;hWsY|BCUGiPcC)t#OG
zpd1)HmPQ$aQ6y|o?zb(=b+q#s=&qCaM8$WxuHa@oC9G{t9NVII=31t+H=%ul;<Srn
z;oXQm{55i7a(8{FYSg9i7-%+$GAWOl*QfRA`_}{E@`pJNTtjY$@dJA2l!&7=NLvPo
zQ5{sdSXvSHXHF;Y&YX)K#oW%=AOPlCv%ctzjsCDZ9F8;nGf8LRn3<SW7m8TD>fS39
zOZ&+GbW5>acRbTr4Qq_alg<4dnu1*7cs+=fXsZh;8Ymv-FV=;sje;}lRma)uG2I6D
zGjc<$&_c6*PJH|=+=r>UJ+z?%`MznHub0Fl!MZ*r`lA+>n#`9lKw5`}2Ndr$t>1(+
zkY4q_f4av4vNH1y1-lS#jv7pTQg#+3W&%Ib-iOXeHKDMAonrOgEySB*eWLz%3AJ9%
z1T`;=j?qdLkZwS00(ME?nH8CDOvY|p5pAnSdb5OJI}nOc615Wx8vp`Vdq{>kGw8b+
z^EPAqV(e^S@-krZe&|;_kB^<IYo3W}kCy2>kjScjLtc#MOM8Q93uR_Gl-dqeE6=qb
zdpT#6hXeuG?VCv`EQ5k1KT<0z$6mQI$a%_0(nFB8H&(ql!Vd#e;pkhFOh)tcvw-QH
z2tP%W>0q0bZN;wI3kCb7zx)8pZ|@lqmA1}{&QNdksn@Bl5FI#ycoLvDzVS8e6D>x+
zT2c(G@>DK3NVK%6>(eQY*+F$BM9@fK5d%GHrYnp33~`$yY^UIB!+avEnHCjWH6)I{
z-aAkYCz{SNWz2R0ekOINWHr8_FF|9dV1qmm40h9_y#Pc-){?i`%t4S|s=&+;c<edN
zkC6lfiu(JuucTd<>)WNgV%1u{=RNV>^t^U)K_+VuFu6BadsnjsX^N#JwUxE;EtTC!
zs@J7Wf@wHgGVU^S7*m0Pc8U1wPLSo&kIGnL>DIl&;lG!FQI-uvwo<iOD!<1vtyRTe
zNL{MkGlCW?K~oD-LRK!HvP**JSw3f^PDu>(uu93m_$@WZ7S&<bR|3e!PQJ+U)B}|w
zB!INEzDzFZVx5pDCg}baa_V&<vD!5H?Wd(5XRTbyrc-0heLdvSJgeURRdlxP(IZs>
zR`?B#gu)qr%!LV29|vsEiM>M!kv`Z_ivi2n`9MY#K)?CHbVfGhN&GGz$7&IL^cgqd
zUR1qqMge)^rd;fLaEUZMr-!OYGkNFdJ(J`CZbp261N2nfiwen33As!NoO_C+ej67n
z(GxxwWo@3fe)|(<y+_fXXBCC1*ZW=vOIzs6K8GQ#>$`-gQ_HtkVn!`0?V(%g^9)9r
zt|0XV!PF$OgXt?iNA5yZm}Iz<lb99g>5%Hl4LxYD3fhAov49xFx#tP<b@^2540#(t
z5yD?a$<-c$x;=BowN}3KC^AK@zkO4D&PwiLAiV7UrWc8~pDixoH0~;j`hyS|EOs$S
zhOzl?Ku9X3xc*yg+~2hTVTJ8}v)JMT*AEG76Y5&4m<o)Z8q&bmiWh3sd|KRJh%*p=
zxjA`ed<@zE$5&EgX_@L6hclBNQ#pb9qH!#3TKuU`MaI#2IE~uSU;%8(b4ul<!OaR>
zhFqJK^)2z%kKMIa^=Xtob+@FNU5rZE@%rQ$Y|S~m*r{7=&tAm+5@EKI@#(6w+e!r=
z=EiDv^Si_+rR^nMn`@Sx4Sre1O#*h^xsiz>(btK181tsdw9j`}R2foE#4gcw=m$10
z@g8Bm+Ps2@+qKWhJhjo>f`5`vOwP!`NL^1!27e`1!9?Nkj7yir$yZOtzJz_xEm5#T
zl^((l$Ii<htvBti!w0@=a}b|nV1B~W;o6S8b7VXfWYTvOeEbO;P;Mvte2NtazQEMq
zFEX{<pNrGzUGv2dBD#1pTf*Q65MY~bqTBk|wz2EjWMb6aO_cykY7Fg@CNzwd-M;h_
zm$i>smo?{^8WNI53Ax^uo<uv*>jX0G9vw}(doM%v2cx^4hn=+X{;K4gr7F4j6KD1%
zFe8s%)qb*xS|;)}Ffo-3Csp(-tx~MOf#oGF`OV~-T{E|E6tPs=c5IN#qZ#(Z^&;i{
zObWWYQlI!;B;@tKEuP!gJ?*J8t>IYpzRSI*wb4Cqd7w6HK2(P!oYfMX3MR@cD^}Bc
zV^_8AwUHoMIqx=%(fpV=>R^tQwpr85CkVaV<XV#Y8#lP8k#KG&7ENd96t9pSaYpv%
zWOc{uCkeSx!gurO_RRLO^h|1Fa2m>qwQ-=3Z9-(^57vkir=~=5En_K35pg|?d+Qp6
zV5f}MO|6J;TCwVZ^qdfU==nC#H*S4(%DrKwM~8I^>zY3mav_ds{3$ASQA+3~M!qpn
zH%xlZ!WSLJ7_YFs%RZfjHp%w8A3~X9?{@{N6?Bd4^n*u}Fg+yK22nb}V<lh4I>k!b
zRzd%iKOM8G&y3gWfbJLsBIo^yaeC`2cr1l7t2309)pBRHEW_v+nlF?)mPW!%lha|)
zct(dMVK)^fExNV>)W<<JNT?#ywP9rdNS{g>l1Ds&Rf86)Z_*;Uc=k&w7^Op-I53un
zvUrGosXMfxs{`GQ89FoGyTDkr5d*1-xb&g@Vsf673SZ6BDceD~3?M|1Ze2K?8T=Y}
z1k=b`qWn#z);+k6;Z0r?<)gFhPAcI#NzhdRuVK3ou1(D?t(6^WQ&-C}3hCcXER^z)
zN&f6%ioTY`B7r_{Q&`<?Yr=LzE7@<O2dMAA%!rIXESPSYxScEK*UtA6_NZ4yrDU68
zzsIzsN7fpoD`4O6;wdQAaC@}M-W~&#oL}-iZHNxQaZh)q;9i-k5UT&?QygD0I=4iG
zuA6wkeC45zKQ1v+Ai$DmXgD{$Ozg=N;BN+{-<Y->T%#9ur%tJ4B}HH;Cks@vl*dZw
zGcV1^AZ;?1*gn&3e~@mCHj5rX4#J~ZXJ;O)X$QSrA>ZW`)*XnLwefAE2FL9$^~0$|
z$&Po4Y(UE(tj$3w$&@|ZpLa(P|BR)zV{fUv*%SinuKQ!s)7Gii39nnyhAWJi!C}%S
z9qpi4$*uZW%B9$)nXc4tYmw@k^V;+oHOB+QR20e7tq>6*CsqjhKX{!p_T|Y{vPJNz
zsq}>OPim%{);9ft?1-?*nG959Ru6Q%pnRGalN+%|9pvwAb(zN&yH5_EdRy^XuRQkC
zL2hxPRARk<@98?TDet=mq=({YlPH-!aadO?d|!FHTChwdU2{QY6u5`YBU0BDCBF}P
z_Zb&>Gh)i|%khqW78BCoyPmNxJMY|l+<c<|b0d8n9Ddk4u9l{8hn)`oS)Y{DSbYLv
zSc1}l#>Dt)E_AGbX^GGmQvXy*5y}@y$Ri1(Ej@H-5n<nVG)+$6%$|V*G0yEL<`e;c
zzws4$wUzj+<kKV42qiNIB%%8^Z>Hy$vcOhAsTRd7ajhP{EPvagqG`TXg*9S?(s&x!
zmD*c#R(+Vi!r?k0emRFt6QQNz0}OaFnq$E#9~~-ImO5ZOEAVQ@{PH`agvRRP&6^YL
zk7r5e^QVPk%T0Pp{arFz6;TJ9H*4y;=Bp$&KEAc-CTZr+^AmjrYYGfVVT6_Fo1<lc
zwY9Q0sCwTmyVDwn?4$7;10TctN(Ja@KNEH8Gh92^4uP(hPgTeZ_xjM_nKPShb2)F-
z=P~H*XNy%~|HyU5=$Ku4AT=$WcA@Q-k*gcD9nR^k;maKQBItX?1fpBZ7+0b2drct0
zOS<>+qAMY3WN#6Q;I+GiucmE!NZGA`P>!#5xL#1-{aYb<=1FW(n%bNE9n_$9kQN7o
ziw>L`XUNe{eAFWxI#Ca2Xc9x(Z>6mBoNDstX?xT1M;bCwavwZLl($V)NdNw%BBB90
zpOl-ZV?m8tDUIJjCD20wU%O?riH5pu&2--A?Pk&91@Z-9>hfksj8ApOhEx&~c1sWb
zLk{+?+#mdu=JlHk_R*uy@Ew66;2_aV7N)3dV#AdHU8t9_9rh$WWSFei2H!=&gB~rc
zZ0$X={@7`yXrda%7keX%2mY8l-dL?XEWPAF>l5-II7Sz<oU7!7W}<wf&)?`Re8bq*
zeY(CnO?GtMN@sJ7u@~)LRnJS@?<m@+VrB85V*aNil&U2dC`ca#W9t~wFW3xtZocLo
zOIyu;+h$bmG9$>qLf&(cwDXRwKkTHa!F4fSaDF__tWpKfE#?wcr%FQNua=!f+^0|B
zcw)=nxJIm$OGqh|TU5<VOWB@k#$am{?NIL}K`9+tvXgr^0Z=+gB8Notcfgoroje#U
zW@qt}=Z!?xT^l$-p#lYo+BL0uWJ-K{cMVB?NY-65TOJx^hjt><kM3c2Dgu?n-54J|
z#mX+}fp@+W?ZtQOVn+Y^*7t_NSezAW{@^Ewn-3XFQ|E*m$A=u4$~D9cRRYX}LuF#g
zyDco7LUbXafI+o<qmT{LSN8mX-|chl`gGsXG*r}I6BuCJArPIEy2&2$na|w`>N)ix
zf6Q&d)eFLUX0MAYT3rbR6SZx5Jyf-c{zSn&mPcC$?>Q{i*%695@+`VGsY7yEg6vpJ
zvZ8}D5$>-^SWn^+EZXEj9YbzfrdJ_ji;;adqFTXVX}pWF-I0khF@c9g%CoVwr8-eN
z60tf<U_ZB#%=o3wbVTKGL}&FdoWii{-p_U!@d@C7>RiNfdVaM$o}3}^ZM3MTw|U=4
zhLZSDU6$bfaGT-gZ)`(iHeGRb-l$b%Evs$u0WR^qN(K-d5=SZ5=cFmP;;aStjN}gB
z9?iSi)UoRUxf*h9p6qZ8PXyqw@CO`H=IIn7y}pz_gl}1!kEJz!B`kab>aq6fe<bMs
zF$;rmZ}EFT{bZj%8gkKajSb*`jg5z}m;L9#nuzZRFpad3P~X4cC!U(<-B3CgOBs32
zMsiJWG{v%$IS0V~dLYG3u!!u^e3(ZU_FqdNHfYOAq9g$E3Nn4puwN=|P)x#&aos3f
zf^I2sqW+_Wsc`0=FyZ`6$#hL2Ya`D929PC7&7r*|Kk4xwzulEs_47|!i{XKZ6(+Cr
z(3c93k;N_#ZGN+W<HuHbJvTB!kj3c13-C<e<%=k^CJ9WIOo{l`!^KVD>X!|T-E{4N
z7vt?`CYh)0?7zGJYhbJfv-*qR1WE^BrQ?Nx0?*797<l<ZilRz+-t%tYu~bUae?`kT
zUwx}MGj4*Yba|vs)&}R9hLAx<%lxL(rNvUXG;up5h?70FJ^{odDo-w9$Mf{F03~mD
zT5sFvS)6Ru7}}{yplB9$|1*pfyHOP$8S}k1QAONoaTKko`o>n+CaBbQ@Y`$w<)-%T
z28ss;s%Jl1Y@hDCF|DpLaWreZ21ut0K1_i+ePlHxheQZNm$#A`af#+e8oCwAr_iYM
zI&XAElw5;YZku(%(ngEHcXyDs1x~gYK<y$*!4Zp5$y>;dgdAB{aqWFw*8Bq<(q_PP
zpUL$6G4F_OSqa!)EjehWr@I~crUEEccTJQ7L(!-D_r!3}`_Qmusl<1t<XoKZY!2gM
z#)ehE^!_}Yw9DzZayZ@Hq`xK#MuFhZ8>Huy_kan<w!MFHnFF~=m?IH>^+sY;GRoII
zW5Z-hM2-l@qZ#uk?$2Ec{{h>~JHun(yB11Z?r8-oON~MTp?0A1>=H3{&Z6#i#?kW2
zAAQAF0(tmcDs+Yl75*H3WcG^fqH^&U7rgY8LV8(dZG@&(4FFoAYeb;>P0OfSRaWa)
z=oaakgj>n~f{kj1&~<20_Z;Tkk%@T5g40g<Z6ECyMy}<g^WCn=p9*FT!q^hKd&kNZ
zKFP$&gZp$B(oi|V3a<k)yH+z#xW$YA%3^Axbk9ljv}fHTIjI0cZ8iB)$RapxJE{CX
zA*V1wG;Z+CtR0#iQXn5Q3ekiLd9umqZChY>gl)g<j<M;XoxOz~{fluYY}D$yRv(@H
ztm4it)?mwpp39T4UdkK5<*F;=-!q7&`}d4gqV1@O&WFdAm^+)R&f}k{j0>MT&q+FT
zT<q3gaL>jS7Px&*G5A$PV7-=L|G-xS?_pxeGk7avYP}W+fjZ-pj@nA))EjI;@C~`;
z2|K8~T^2WP>#wYs$ohROO#}q6s_(PNtop~M2@z`8*};VbfiOkRJ|vYR5ch{Di@oRM
zRB(#}N_Z)5K`L@BF<o_Ff&GB>c;duCZVfPTj?oFE69^<*x0hS6J<hB|QM6J5|7YSn
z{YPI|Q{~&2p6pdy_nPZHs35;yF^BT<Ba|GUguPMmj$ea?sb|?Lef59NUgv)X{1~k#
zYeh*rsC}QqOHQW7&)@uLAlNaF+h<umIs&%o(cS=}S08YaRgPcuV;`>Nx*Q?;2Tv4&
zH3)n-RC5Bq3l%4y-S-RJXIC4-SLvsBJE&nmg~?z_x-H5eSqMt8aPl^X=9&-8?)W>A
z$S%(CGKL~kX$FuW7Fx)!I)(QH3#MyEa1_r&PdMt@wERfPPU`7ZeOd!RN3xIu(?NGt
zze%|Kt2`*+$-b7t$&?3Yn>aXKo~(hM*OiGv-s%_|1pj}QfiB8H?m`2a0l44sZcDE<
zOJ{BUgque$j>lb{1KqzsCc(-r9;$gwTNedK;waw%jjx2%)S*WzT^0|0XJX3f_oCzn
zd`>BF2p{WorjhYfXAQ2|(Kbs8{RX=M5&Hgagqzi9`>s?pX6F1u4)z#V4~GN>IXHvI
z6!+BsoG3@3_Ka+v8UHH4?~PbrjalCg1z|Kd3-)g1r%k^l4cg8n>G=067x$?Adm2Gr
z{vkaDs3(e16N-!YKeJQl>az@=dl^CBzHg;1Zajr2A#9-77<d`-7U1_q_=P;Qu}GnO
zh5=iCK~5srbX*;0tAH;974(&k#1*!R(eeLGTo>fX`(Y^vka+@c$ws<gaz}AMY0c=&
zILGrPa($U?GrJIL`cN_yq=uh673F>F(juEmTzP)5R7WF=>)O{Wu&Nm^T{x}RI*lL1
z$GTY%AOWPrRFT$p8&0#6RAV*j(%3uIT50?q?r8tJAII2I(U98>W4i@mO}G8mZ^6D4
zoCiabab`6{`K{y%*P&7+yesr~Zs5PG0qKQ7<l6oEv=kuPz^ob_-nJ$r?zXC1Yyl@%
zaLub6;XG>Cy=R03rKC~tr%KgS@y#mZ4kByDAB#A1lX;~E4dY}F`Og2qSd>ZOxl@-+
zL=qE?U+BfM&kt~My*Po)Z&ZPC5a0N=nI&jg6fP|Zw(N$>F+ApQbX_mgOIsb~{R5_m
zaH{)*RR}OJ@S5Absg4p89=ayM8RqRpm=Abw5DN8*(Vv1%ObF3#r;o7jgkFD{vxE9P
zmWEJ6*Sb(|z(pDwc`vu1^c#P{yUQ>k_)2+2aC3j!wh+=^y(BYGQ02Z%R!8aYyeRTz
z$0M<r`(__fj$SzM$GM|B4M(rrRvmZz?H}2@FJ4=?a5DSn?u$}>2Tpzvue8?m;=7aZ
z{KSLHuM#wmYsSRH-2DRTuQQ8$>&vQ)dduDhn9LOvv`_l4qTV_emaTf2%;nBAS8~hP
zvpjOue9wr>Q(E8I!MW==X}4dQfWJC!JfI)CvNl?WQ7q`3-+yIoO!5~p|Hq)t0@K?t
z_|wt3v>P}w(P)bf5#NsF96_1ud)YyoPcg(J44vjbqp6@*$y7Lg=Uw|;;znt~cJ{V~
z`V;$hkBCDxucU-yDBfU{kdd!B1UoXf7yGBc;Qqh+b25jbGZfGGD&c+C=hNYILtV3a
z%Hk1wn>xNN9VY4Ivctm&;clQ$oBV83G5dBYCQpB&P91*<h3sUnjjQ44px%NA9(GWY
zDXSp!bZ=12W-#tdQJ^d2Ky>3g(jV$0q9lPoP!z+Txn-65T$3Bm2B%Pl<j!w7q!$yf
zJcwWOWx#lUs+iim1$o}_<yNNq>Uovk(to(Qdn8Wr!M(lXlSHgJLL|^~(Cu_7B@`fL
z1R$v+o)R*=gZz!KqwLW$F8s!yHg5t68pX3@@!XQ1FIBf`)5=Qa9?%<et}a^kT(p8a
zTCxv>R1lR05F<;+nxu|r<}lNkUJ#FnzX22?{F*EY>g&*c06cloMQU(nSUsJRQq?Z3
zFiTwpEfXk);3|?<1i)T)I*NOc&&~m2>3iLU!VzoNK8{7re9LKLtOJE<U1t?uZ(@fP
z@D?bGXQHA?<^3Vm09ml4Js%8~#UFxHkN3*obIWy^tOc0`bs7X7Xu}hV2mIl3Cb($G
zUZP=#zP5+$1U0gAe)$z?d)6Pk0?}7s!3w>ynsbgdG1iO~9DLC}h7Eds0d{*-MSHV}
zWvV`r>P)HDovfPj0#@2iv}l<;etgB#QvLIot3sCTa+%lLvy7TRNLOpw{}R-EZkGDu
z73oxS#P10mU%LXwNG=gR&AfA#@_)VW_hYByLa!*mv6~V;Hs@;Ne(!MOCqtg=L5=*I
zq^fK>0SL^}d81zJx50O+ZBYtcOUgNj?)Gv%(0v=F+GgMF^MJ0-y)ItiAU{iYLvQMK
zwJAQmf1u5P8d=3UI=3n|Xd&}o!>qQ!Rb@0e&>ef`eifoOd$1M~OznM`9fz%PiDVKU
zEf&D293}2bIs*X*AkwQV{?ATq*5-_`@Wc1sPze=xeeHhYqRp|lZV>}%{GNrxIDniR
z?cH`bx`a>d%=KfF5kP&6vvPE8$vVGN(kMw3fBj1JR|u}SYc;aaFrTTjeBMhWr}8h?
z(xM-X8+QkBp;l9uNA8(7J60H%GMI<I-x=eCHAm-Onx+0R<f56n$(SB?i)5CIt`)wT
zAKTe806F)}c|pxQ{UMH>OsPvzCD0D0-c^I&i;jsNDH`^8+H3}-xBuKTl4Xnb@+Hep
z$DIl%6W_54Gkw*zp?oX?Ji0tJ8cYV~oK#LL0Bk=o)V@HE>M?O@=d4C<KPz(Qrdmlh
zYiRqb@U>YD_Xeg{OrIG1#SFfCL3PGcKcHJP;-+S>mW78e<jWgP7Vjlz^JekKZuA0$
zx?Ypz4^t0e0Y9=;seeyG^ZA+!o0GOa#KSH5<r6Y%?uN&ftv=r_=N*4*&PnzuJQR3J
zli$8-bsgv7+Cla*WcGz_s%Qy%DB;V{YZDko9PH7=hiLRZFz+t*2*7`;a9CM7*RmQg
z6nBP~mI=V&T?I6JwzpC^^~_5@Lx{IbfR>3SzuFksxxy+s&9Z&CKCVqh30&E+HycJ}
zM4!?+ZAz;x44JmNY^%^vQ|$m<nx<vR`CaSbF+zx8oz=-U#2+5!H$t$qhufz&-k;`K
z&)qay{COS2IF?Mg57wnkNxurdXc$aQaHE5<hl2@^143}lX|{a|ZRb+)(;=77@ht{|
z(98_2yGiwkOlDSwqAfGurj#-BDz$J{dMD}}Jn+79`CejQdfJHb<LZ)tyT<h@Z}=Ol
zQqJtz=m&OXDq_C30d#%Z;xdyNJQ7n^ei)->-@r6KjKM8!j;Qt?-t`p>z7uIWL~Fhx
z=<9ebM9VP5j-j8sV~m-T_SOxI!cR|5K}YVWsnt%M80^<~KaqJ`B=Oa^*H@B7_P)eq
zX0u|$nonolH+6}!vQFJknC2m9opW3oty2g`N-8TH<ZuO{@J;;t83Roz(aPhk2i>$X
z)^E(dP$$gg0@24hiRLp^lRW(uvf&=AnhFPEbp6W<d2Xi<Jy+4{LAoc6)}H@(=&vE{
zEz2G?uhb%Sjn`K3p5<5~U;9lFa6!G$aj7hCGhjpSM!GIGM;@Z^JXN4O_V0w%L-Bg#
zdNa8H*fr`4Kzi;iV|w7xm!0fW8(i1?jlx7}mg&yQ_cLKXb<$;-o^dYOXff(aGH;en
zlvIX}L_x&-X6q{^IE9G*>KCoOLMJ0~CgwKp=5~IbNj+11>&M*S0kp}osGk;M&)3gC
z^wUlg(pu9-;dE@;E7IqjJHyo@^*Bl#tbHwwDpb?w_~wePY>J+X*qhL?3Wo(qji9<%
z%CPYv8!H8CmP7X}ck9H~)Xc;it7VORdTtegw4ckF+DFT3m0t5|g-r9$wSyiba81K4
zLk;G_t4+LF>auvnQgOgC_5G^&`nu6a1-l3I+~v%|qZ5x_F|i_hy`_-QC=wFQ94M<u
znGTSmMpqrdQa-(^`%Jao>GS61lj13XYCO*o1zyfBCEwIpSy@#<_}krJ&24;;A5^Qz
zt`P6#SE|sHH}bJFEX6`WMcMR$2>s#_MDHD2lPsOSv~=fya9O2wQFO@Uk!YcWk<+ae
zZ<5A*bYVjk|47~DQxVb2(ev1(yemq?Pow7r6Q)9z!5?EaN#`1qjajy)iHZUJtDlVb
z?uv_+2Up4Y*{rIwW54x%>jz+v2kE{ZR+l;AtLM<!iQvq!b3U&3we_yn-vj-MLVO|f
z!cKCZF}^i+z5SL$kT}>OP#h4@6yFnV6*r<y{&U=9j-I^mUh4>^rs8(8Y-6DQ!}aFF
zD+s^jA?fP}>9t^;34JNjnDy>_Zh<#FuZ>6E^H%3X<e^W$pDQ)UW&LA+(wiW%vBtgq
z!o}&IPqI0uL$9*0b!z)+{N7ue?hl#nCO!2*LY{DqXKYov6?LdWR(@>n&eEak^GpMz
z-|R}%XzZwvJDfTeNwX9j`^Y_Xv~lmLJYTP+KQ**h(&I0%FqI0uJW*e}gMPaQi?Zpx
z@t$3x`}$c8uZ96LAJ9-;VodV;jer}uzz<$1<+^H}WbN~&biNLElYl4VHlnINi6-Y=
zKd9SJEgQdnJ2a@D=CnK)c*oE^=|#Q2p=G;<h;{eP_D>TTYDL%Bbs?orGcmNMH1p!G
zhn6)!{n3TxtA=Swl%_jYl}&9t;iW8nQuF;of+}FJG0sErws1))f`$-xPjzlA{gdk6
zU!X^^>biOE-IG%J2XyF_s<XTf+^Kab>M3n<*DNdgRgf1<l5XGnDZy;<IB3Jdg831y
zc^#^+KFyPCLyuWs%{?1k`@PBdR5;do2d!-n<Myhh1&$?$zrsBf>vCS+ZM)v6{8VeW
z*U|yBnd<}_pgB6nG^@2<GuW5C^y3Z-opZHme+dG=>*>01((%mLF^jlwuZ^S&XH-KP
z>QX;13d=Swn$#5km|W$aPJURC=+xR+jidZ!hEYpDca`D&%m*vgw(H#8`sESVtcdKd
zcd+asj`Z4~BvV!!fC{}>zgufZW{q;ic<0k7g(b>-s{{L(<+E+ZOM?YH)yjCR5i;bR
zaZjZOWU#WLG=I`TQCFS?n@~ocAvL0^Eu(U(BFsQ6Dx~CWv{k^}&UPFAp7>EW`>q{S
z1Gow-*TuI!uWofdwwGmUs_${w?~rcJRdxbz`siHfo>c5KH@y~M_zLb7h-ZUZ@3Pa<
zdY=@;y0ynN$763jr@W9~5BkCH7Vb6%^xvq-cMt4)9I%Ubaw*KX`?N%c&T>BR*h;=}
zQJ0b7EA{$22m=NA0FqHb<FCBkz}&?>Ma7+~UmZzboCvOS>s+m9cHE`s7zpuX($SH-
zvTCmk_p5GsQ1TLuDz1SpN!%~i69KYE|D?FAUt@Wh>I?TkWD@2I(}8%Nx#r~1SwzoJ
zl>eN)^nBF9O>B&XvQ~P_t1T`MF3f{o0ZmpFQ)X9$D}+iUB_hfXzH=aA^7GRCZ6TI)
zufWd_fK}nw*C~TWs--grU}xOt$au9kCQx%P1`Y^Xu=ODAx$)9W8jj))&c`@QCX+xZ
zeVPZz6tii?So~cJ(94xeRhXqe1otE53+JRWlb~<<IR|sddS#~vl)w?}w0Xr?|8t53
zdTozWxy;ZmNHErUq!(o*nYTIsgd|etrpEX8ja|=SvcbKPoXi(51SWw>2Piy?-!PbN
z%u0akb;D5>JggY!9rX8UD01)#JYt6Xu&Fug8WU7h$gD@I6na$F`e!=8a?oI3jHvyc
zG}7%Uq1RkAHU39%!I-J_B>`W@4VmihHWP`#r{O+x*lCTHvEWFD7>CT8{ww~VW%tDp
z_+^Pq7^ilyP?x~_Do6aaT8qGAQONB9#)Euo+<CVP;}jG$yxC{nJHqm(BEMtInu|IL
zws#5CGM0pze-p4Y_g=6h8fm~Cy*s7_R9X-($jB9fG*QqJM|lkf54)W&rI^eN6^d5M
z;<s1t%_!1EMJj|Px`=b)CV@s9sHS}8ctWKc*fyiQ`=)O)FzG9F`I59=*-zn?;kW`$
zQ8Smd?9~N#Rb6mC!MW_qcI?J+{1s3tYR_j*4ELe*U`;c^-xW&N^CAL)#AvEX4-BA2
zRc)l_h_qSWi`J%v0b2X}VHR)Kr_tru#i`c85*bMkd9C}Rv{#V+50?@G;p0-80pdcd
z9vN0r$3lAc*`$>50BhH3^T*}+m^HCO0;tU{*}^tG^sy{7`?$!voY_>0Rrf6QOmeGz
zGMt<-Q+t14qD>N&?`mq<ze(2}GK$o((Dwo-RGcc~NPI!e3{l&arBW5VS&qn$U~gz<
zeO1Hh>7qUdMwa2u%4ATYTJ1~J&dOxPK|yC~pRH|z`wQv$v7;NUcgUD5VSCZ52tQwu
z%JS@`Mu4%}JD`FOe5y<Y23+_X+d|oLE5j}NX5IN75igY7THZhO@He^gjEvy<c#1lD
zZ3zsP!jE$grkdk~Nk$S&6DPpcoUddg?Thgqa#w*dE3&S%uHFMW<iI``(h&3${-pr0
zOk2Jo4@P=Su(vuq1tngT!(fyYq5iq8!ABqRX~MI0;V9HI+7b%cEc1mMOfwm_>Une?
zep|-FfM#N`Yn#LyMTEaD@xr?VI8aZ!h0`Ecc=$*9R6nJu-F#{{f<vKF6kpA2J*63x
zZdKIE7{CvXl%Hn#eNgu)|D##8%FVFu&SjGLGn(hz*5Q*DtefPDH!@()V17>KA;(v@
zPS19|EK{hkm}+fQadv(tFyp4{UiAk%r_&oCBTQA^ZT&5%WQNPSwhi<sYq-Q%ojbF-
zqEgULujt<Q?ozef#s;>xos|8EVPr@r96&4P%Ar1o+$7$IJAi#_7ni4DAyS0sqwpES
zr!)pU?Nim}&={lK>t*GpRw>yM$Eqf6)%{;VKg&C2R%KO09o%=U@n+Nr2}`l><|#Qe
zzI()Q2y=BA?Py5P6Z@><c9rw%5t_PiC?0qPGU*wI0Xz7p-=%4HU79W^C2>qe4bNl#
z)GkfU>l4%FDXm^lj#Hv<J?7%_ybSPng3@(pp=>0c4ySTFwiN+N(s+E%kvry#&w-H6
zJAwkOC0(k|;X}lm?_LEp+J0lN1@_m~@H1UOIuGhwrv2^AhH}6(BM-O8x-@x?JI~dy
z)3@3fr4Xc{h@7@ehM|d;jy_lWt%FZ8T3gt}K+WD9Hy>#@)sy>qp|6^haHcVELa&|E
zzrxG%iBS?{Nm~uif&9eTxP_!pxVx)?ya&zb8K!)I0~N~L4~ON-U77piTF#Lj*iS>M
z<>jTDW_nvNNq)k;9n^9F=AVQU3>cbqhkxtBODDIGjv9c?5J2o1Iv$=C;BKHDdwBCA
z#M4({G0<(K@l|q#qbT%#^j1z~lWq@L`5qp->U|9=DOs;vGlgESPpfHsO#f<tP_n+d
zsQ-+O4Zxt=rEq(6*Ww3&N5{)Lmom1A4Jt2e%U5}FZ|waQh-!DYYqbi{>RU-ueWPEA
z5nZY^P2EcQ-1{*#g%GI6Id3ZnHiz|@MGie#?wPwy)$zC3Qn--0_&uu=U;qOas;f_p
zpDbbF67#}MGr7n*i!EYyyrjR0cT{zX3=loMqJIA2dxcz^5@jXE<K-jiDko~+%+EYk
zrVDnoKf!Dc-^n#Ji2i$6Xc>xtExt$Ls}Xvpa9`NUhvl?zxt+5iS8s^Avuq>lMofDc
z<31l#_}D%xd<wM#J%!+lzuH4W^;j5BX3zzPof?=QOOzV}C*{|x91N*$b74wyzh(tV
z9x4^XR=qx05h(H_q(rIibO@$_NnIt?-;1oPyNRR9dTyPq$&>*f#4idO;|c}d)obig
z&u)7v{O9<E*Y`R4`1g}=^}7l0_-)k9TUIzC|DUxfl%}d08?~)6?In*P<stIf+DBu@
z&6~560V{I{Re??fxIgD>AYz~_sxGcemta*E70g~hDAF4CVV{{7s5p0)`!D|m&<no8
z?9&vgZ18p3_NUCyGg?T#948H9-IlM|_|-98o7PhmG`UZIp)TXLm7+9(w?OnXyDMuZ
z9FuH*e>8WbH|rS<54M?WS!wZ(@9pd4Vc&kYM-R$Yd%1F2p@O9?kGup8+ofXEN>7Kl
zrm{T)E-vpj?cu3vb-bGS^vo-u-Y}k3lA+F7uo8Trz-puu&3=ljp{XcihVvI!Ld4d-
zHKhDHuakh97|nQ+3eIDFm?!SOUH8fPtB&*N(Qo-+ocYLzYPTHwdnoeDZp);f;c(sc
zz~DtIUv2rP^x`AyoQ!~VSeqW~1pgDjba=jXCJ3Gc93{XuAnR9c_{6W@s`;1Ef1P3U
z*4avUTI>HhV$veE#V(=$yE_@|LvywK1y@KK4X%YZY@Z&gz4?PP>(B#j`o+Vv)wsko
z4zXP?UR~(=L=|1T2<1yIuPhk9_G8ulB38mnIaK7RTK<eCd%e~pX11Jk!vFWH`RA_w
zzo2V5T8PX0TMv+xl^U{J@H+X}7Rt)?t^@FM`fdmw>+nhsuNY=moN!6NbreZ{HzA@Z
zn+xg_;beT>Fb9<V_4qoF?w(WFT-L+kU<uV{Tj#g_o9%3AtX`BrRN6o`@Bu{1F1YN(
z%M%h%iQo{w-x}~!jDyc7UV={Tnq^o*4x(#}#H*YGF|MYW@R6FoJt1%;z7bCXlmPqy
zIFjIugMAM8LY1rFy=u9a9=&SwB2DB0(t5NBfVeUj(sg(&wOkIB`q9Z^s~%s5kiCQ2
z1`v;+)e~&Vb;@uNwSnOzTuhBT)z9}UEgqNf>SZ7gSZrVcpJmj_)cG0bgHV#kXRK^u
zuqo%UKiDINa_c^*2+TS%KADvibvs4?QZ0PX`jNABhNtECJtOm^iqq-;?pgqT)xJZo
zf<8a4GC49nHps(C049hYtRW3u$I&CQ18r&%iWZMK++->PH#7VUN0eX98wC^&^mgyz
zWZn~ahpP5lHx5fG3S}@NU)6*_)WXi-Ktm?A`~gQkC*X=DSB&Q;ri#egGCzYy@HK}>
z)>yeKADd`j4lts{2rSuFP0lhR+joyl1>Q&!?Fu=6hxPF(?RV^797E=M1U_&?SCm|Z
zt19a)VO8@vcuUm)Y*o|yt%$B)+;dT*K#9{0Uw}U}9#=tZU1pbIaakXdO@c%Ubi9yk
z;VDz=Mf+kn;SH=EE;(evKF2@38@UI*%wg%;%DWn!cE{Q8YE}S#lkICcnM&G&W?S7Q
zpv<c{*$24P=GP&Y|Kc#a{UcK<HRDWRoHIY*U`@$gr+{Z$l>?<sj@Q_ohAP>?M6tk8
zn$WABw*>C9+qjkt9{8@qd`PScf`5goZ-6|XK;y{%V=;dFZ>O%T^;!JR`R=ODrbW)H
zAXf)N&YQ_m@FA^DbHh5{e{HZZ!Wm4Tfjx7W082$*2A3^TDW2%Hup{e30~a~+)F1+%
z2^FBa78MGZ&vH0F!DcJb!j*vf&ocZhuk#ZV&T^=*{&<hURR0oKu84(l;H#vE!+#O|
zLA(f)%C`Hkv^Hn)e+~ry1Jz5uaL&s7n`Z84F@mB+22v>*q_E<5`?b9+a*3n!aFoUM
z?gX3e9X&?SM`*(pf`1*Q8L&cnU5EZhdtVyWRMK`EoM>MgaYh+!37|}(7^a{&0$~(H
zL6J#NW)Kh}W9X)pRutrfd5R(kK}MNmMo}=(66OQ~L?H+yKp+q>gd|^u_x88$dVk!z
z?(h5MN7f<<=Tz0HQ?>Vg_VXNXY=kZW<f%qL*{&<$T#!8ntT%75S@v?Sco%MVFl7uS
ztKS~b!Cr(b4NlowF6m@`<)ao-Xtq$J7D3`#(+w3$qU#Df29C*c3y093s9^um2s(6g
zYcz*VwlV0)^dY@5nJFnCwwP9K8~0|cGd-h}T`3vLPa3mmQ^MFqkcpv_O08riG3IGa
zf{z*~x%YA}*iF)$CWUzlREO6s_7ZHzbT_8WlL4bc2?nm0&CqzpyhZZQ%#>?!X}dEg
z0<<zc;UGfn8%#01a{$~ee+zf6zssDAS!<{qh~|j$OLQ|T+D5T1Dx1JT<Ho?T^7FqV
z8hVfW8IcW;k5pfjHx$PRv&^CWDLDes?AZa`>EPI}jTCeZ2uJXxIAp#F4ReZNx>yQd
zO~vXLCmVyHjUm`AotG&m3Hh@M-^NeB>`t+H?FYV%YUN*wTSXrU%u0qYy7xsikE62e
zJ_WX%kabUtI0p`*IJiLs)_*Wu@?h$eAC}E>+`{Y>;ffz$mD6?>SXT&=M7Rm6t8#-E
z8@+Xvnmms_ey-?PA>Z`5ZQMaWs?4TE)FI2uhGmOwR3~Ipc86G0C4P&vxQ7-lKL{{_
zcE8@;f(`{}?P+A~k-iQDn=cq#`)LjBqDQun49mUA+TID57iwP@Vl0XhJN-N9)47;%
zD~6SSgfIM|ztc)Um?_9~|669)KF~%nWE`tSoGh5kZDdCCOg~TBvgbkMQB;u=2HBcR
zI$u&cFtrvx9D)PL8{ximi+`Lzd^W5-xW$`9nkooBEDAfni7V0`i%LvYiq5s@5pwGF
zJ@(dIddea_Wqs|JLUH3zerab~A4k<3$N2qSBaULd2i%0UjK4#Lz}#}hM&uT9+k-#7
zpIBLW6YJrMtb3I9X0{zJSJc(vwrBwIETdD>!MdT<k`3}p*_xnwkEj@aZK%GRvvu{X
zX3TWc*@mbMG2iXTi@M3J-Ft(vgV)Ze7GwmW?Ir@kp{}@kqf*VGY4>^j(e^P5M|XX1
zPuHi9;hdOUTzJ(U30UjsDFAz-wbT?sjl$&bV-SS3*n!BKk>Pisf24Q*l_q9wzf^v>
zb<y4mTP03OE>7N>x1R&SNs65NMV`__+y<~4pxWf_va9x)pRI}ae8IqOxC97hcCI@;
za5~Z15poFZDyn<r!K?}jzaA#9OwCY6)u$BP`}s>>5ad(Bm`@%r{1z)QZ)t%TY<syn
zeV08$4VbrGVdp>g?cCdFdv}F{yE=gBb93p=uQ6QAv0JJ9D{fE(2J~Cld2h#b8k)`$
zSg^eD`~1B*nQ*i@g1#1u|8bp{3S=w(#jxd-X8pm!Z)>2QVANcz4Qf;k4-vF2llMfO
zFX|OumA>FCOWo>^wMrg>vLlgv(t)WaC7t$M6^U=i#!7&coqrdeDwAj(W-ytGZPaW^
zto7B=YT`tQ16>5g`+0Y3{2KXK4o^{kA@PbF)0g~4`X6~4ckaTo<)V_kjU5MhRTWod
z{uy&N8KQli{rZHvhLXjNf1$8PGH7GLoFgcH0eP)zeU&IGU1s(rN8@{i|M5=qLw2sK
zohNicg27Opj}@ZXw1FBpkiveehI1%zOJl^>i}pFmUP%m~Ob?>x<QXh?pnNCOSoQj|
z6ZTUR9<k=+4%O@&H*_3@p!q!NG++U#;w9T*<xfi7dv^lemE?&3@sWpL=Tq}C?l=!*
zRZi;Y6Bu+B{${q$_}k-x`^H@6K%}(J_a)4K>(PYO(wMZ0(@Rk(+Y2z*1Hgb37t(12
zPxnu2D0az}%Rp0_#{$g@1my*BaH4qwVJshxu}u|d5J>B*O!dyTALO%n%}rik_*Q;q
zh`^t+`0h~mqR$kvPW*{Z31M$xKKI=VY9C&)r`X>M6PEQ`wM;g)=cMzM@KA+s_=B)r
zg<?|4VWAGw;Fg$Iy%X_8Z{p$IUgEseK<$@Xn!al9Li~D(d2zGgzDLLdJXwp~Fdexm
z#_bh`(Nl$3JFO%J3#0~LI@cW@x^y5us1hy!Nb574B#vKu0|y0mbWx7r&eG8@K8^{K
zsn`gDBnGC!r{2gvneDa?BXHxexBFdy&7xcb@Q{xan>?g_l~v3)>=yHEb|!so*XgFv
z`9w)8<~Mjaz24s#@%*E8(dD^n_GFpl<olSp)NxMyQ>9bDcxJuBN&I!`Yf;1ux8{mm
z%UIwj;7@zNa;nj?4r(v?nD1{CFJw4j?>W^8h7s|hQ6o1W%tZ!cNOxDXg=uj1oo=MA
zCt~YSH>?CTY8_%Q4eb%TGhk;QDVHZS&{_NY=2X_?jDc^g#RQ?mWTVa{(w?9!x)*0<
z+AB`~>!DHDuCCsu>491&<3Lnw066(Y;Tn;qZQp0#Gk;d5<Kh%~#gNIr-2vjP4?2GV
zoZ61^eD?Vv9tR#9a(Gv=#87Rjf^Kcsc^Ir-QOLhu^MJRuw2QcKdQaeaNQpG%USQI?
z6{cG3>j2=RMn{bT=TT{l^Sy2p7T}PXv|O9G(o^9Hc>k7UFGt!n<g<JgQeFl|5_TT6
z!&xRokrNAk{sR<rvL{`5ArCcHGLGu82I1%hy<cF?t{PW1(c*sq3G7Xiz|_(h*rC2C
zlwW`F9>7V35k8G{0~G7Y=I47+>gKFJg&vrCrOj{LLu6p(i#b9Ldwvbz<k}>V>n*BO
zcQ>*D&C`LE2RM*}VXYsRb+^Hc7eky+0G~7eC_w@{nnp7Mb?InG_Iv`p0|5U%_}X*Q
zzhGJ!K#?^kU4ZSH&48aYW_=W%%kE5q3F|q$YrhZGgq8NU;LAAR2E<KnphiB4<=w6w
z_Nig}2=>CFGpt@!RwU7i;XoE2e4%Gx#u{4>dC>-zBLZ?Fc(c>TtaMZ`Ni^FyF4cn7
z2uGt3EO%3ghn2oX^~1{<oFn)v)HQl=-vfI|*e4+>Y<*l?!hjuWO}u$ld&m?d;JFbc
zeN(WvGig-DJn`Ds3bqlO-!BA4`Dz{if<1G$gwSZ2ZRPiy2Zhu=jwarhsls40<`{@8
zPVU8(Wu<8`n~GMN6wd7AiSSQ)-1;lMr0JnyTibtg@Rtfg^3-r(%D=3#Oy%(k($~_A
zh4ggq{?SIK*jM#z{<rFxo#V5VY&U9sBZBapG4s}}oc~aU_l%JTNBh<hZ?=mI8=u){
zO%hR!#+b2o1#@yx&E@gU@gN(he!~(K<tG#Q+|?997MNVE9i%=|V{Z~04TL3u9vXx;
zBNIW~S9v|mP^EVhPiqWx!yEcc|BgCGIOVz;PyolBSSM$@;SRZOGQJ-#0REn&!Q~dh
z=UT9hYJ`GoYR#)La8f~r1Si@iE)f_)_Cuo;W%F%Ngmc*UP1bWY>@p<PC-n$Ps8J%g
z-je|$FnAGuM>(d@>Yt^O$FgY&Sn1Q;7s3`qKkqysHb&0zavT#?&^<?xfkyQPBbp2>
zSYJUMTu@<hJ9~b?;@D;{Hjnc^Z~t#2@bcXNn6YM`Q-sQ<3B*;<)gpAm0iX$k%HW&_
zz`)L_g_A<|E4F@Iw}bZ6Spg`1Wt$!B5Q@X00N2Vve3UK!Dij1ogc<@2*(z9Sg{S7P
zZ?B%MK`SM0Q7yI1Upo@<0IZ6t5No-Xuv!5ZMejRt{*sU=M&CGljIbRQKc@#IYw|YP
z7qqxjN4Jn$!7ZVcuoc>9`OIS~f^->qXwI0O-hv>UL-{4sl&~8XMOJ{mmV3mb5W!QO
zH44{{t(Bt2tp<>%3A36B;J}ZTvsRi-LIR-31~JiSL|U%MOR32Sese`(_+ZlHmbA3J
zjj+rPz@mfhd<Xs%y9CXrEdHtJE##M*=eC!aD*N{?yPL{rXsN^=hZzFRfvn%`n3OQ9
z3IHfsdiQJt#$3q?_6#hT<)ItbtfH<#$dH48Rr+jcu}w0_rq!2j5rH|MnoISv`4Cv)
zkVd<SS^&X44VcyrAiq3t9hhdWt}nHGrBmNB4c@}Qs^^0?t$shkdNKbL?ydmBkdb;%
z_ks#t(WObamT+iJz2@wZ4dlu-<dXxSi`7m=2Qg(`i<g<5C#z1P5GEqg!$4=6G30QN
zUPvS%aqLe3U<frf*EIDF2;rI$Zp>8IGbdY%ft2^aHESCafwGuUGy~!5xo>a-9BuL@
zuZuyc|Mg$aBEnz1-q>ggqBa9}jR|X{nD4+L-`oK@XP%uh*z#Vs&sPVw>&hPzFQv>4
zFgV+R2KaRrSfjL(^5IkyrUWVWfz<BSi@@78W7tom=ELPw=;yrGUx}FAGbM?@deW!h
zIMoHYk?TjnW&EJ3#HpU(;}nO7tyE#&pbvJpK_%(j_X3`91f#`f-lDqkT}Z5cHJEv@
zZ;CldgF%b3!@?$fJ|G4gJG{2MW^sk*jh#a@^}rNex1DVLu>{P5C=d=vjuJO}cXrTt
zY@n8_SZ52>4pE*igWA*g61NCLS6<K>X(|%h2#W>#b~zy%J18HR>1V5;`#$EO$f0yF
zO~%q_%WLG^uZUAmCCJXtK;wLvmVvQwL4UBY@fRW$2nOH~*bOiAEAV%^uO-5WJc(^Q
zO{fF$V8lhVWsz>1x>;ZdQ~<BLuI;i#i1_PI&rUO!t~9*G&UqMs3HU#+|MLhqmpWv+
zp`nu@GGF#coo%j}GY-xH<#-zM&$;tP)jGYm$Gqo@ILDCtz+%=qO3t8lu0VlKvsziI
z2P-0co`p~tzLYb6czrNTC^PrPF^X{wS_x|vE2Y!OnjWY9*ydOdTT)ruJ)Y|J=tsip
zEoXx7KwJB`ulZ>JKb<+YbB9)f@2msSR8zlnt*5<*&FEn-i9`nrb;yjc@6jDOy32qM
z!G0QS#2$iqOo02zK9!n9`w3s;jX%)>j~MV0J|n=KH3tw5dvH9o;xz+iNS;~pb<07f
z$uPBH<fC9_!7_eM<!+3?-3O-TQL=j6`<sK}apweK3I))|4JtL!YhWP|O3<Ej&;Pmr
zXR6D#*g~4v+gWb5P?=(=!($?|!GEknjJ;%AGq$y+QnX60n#C>GkxQbnQR?`~4Qoh3
zVHk5>&IpiQIL;Kve*QqqEeee@I)c8t4#MSOP)k`tkORbo11Y2nJE}CeC6xC#dm7Ad
zPv~TU9&rqxv)pG50h8(~rXrpbj_NjNW!cC#8x1Fpd!sFSnFJJHkB}eSg0o~n@LHc9
zckHxZI24{I8OdL@iQDdYy_RPkIfw1@Ir^zH{9Bh8J)VVM$w_z}J1~5l`Ks>&KBsFf
zuYMs!q3-zL^3T>{p1wtx*lw@d9B=ot%tvmlY3HW0wy?4(PfSY65I4Pds9K16cFj7@
z^1eHD*Kso@mgJ>Y`f)uJh-Q8>+ir&Hc;+Q8(x~c0En3XOK=}koZn~x(=hE?B>n(OC
z@$laM!qB)(MX}m^6Gud-Yz}o%Ul3r-<vk6F%`>4V=>71#8D3G&p9FD6{@%!Qo}YsH
zXm!Yf3v*p4b+hC`C+1Ry7qGtm!hDri@8~%4k_XBVjVwlFIL7!oA+hZh<NsTOOFbqv
zUzd0bCB{R2_I=zKPV~eQ@?e6%FD9zfpoeIRI980h^WA-YJssHO8f{*)3}vRdsE{`%
z#}H2#3*P#c=8z(?Pu1n!yXPj0QO5_3>s{vkZ`9V^g;Y9p7Nm@_E`@Gb?W|9pCk@S1
ze%;0lj4ai5nqJC~)c!!33iq%t+B;#+eXmSVGt9E=_r8C%f$fOIe(G%x(s;X#S?(Qr
zXy<s%In9xJVWxuf_oSWCYrm2)R$+v=3;nPp&_df9COp)p$a8m!wSqaYUDBo$F0E6n
z2RLSJ%cyqK#gtPUHc%v82dx<TuxM7|2E7<Ay$TQYD{=#B8L_K3a(d-e@TXKbW>A7k
zfkxE`<G~U3)@KXW%#tH8UTw=8QIJuA$u@REo;@8I3&i@fgbO!$BW$H?SuL9M4jGJX
z5husCG**VK8}Y7eynOE~^PC2fVyNR7^LM-<rc~cu6drmR5-7*BZM|0p@BUHSwbp|>
zG+%0lxbnq?U6E?-5WDu4tBMUY?{+WozF!i;s0&ei^15XDX!=I52jf=Gkh^Cl?uf6G
zFnPONBTAvkAjwj?LU2KToi5nQoA@<{cpAU&V5&s0sJTdm&75H1FW1y|^F>fZ-|-SX
zCn-}=CSJ}O?S4b)&)95k;m^**{x1AJY3z&vv8!^`V^H)!u>Y4uIL-QoB{d*)2T^1M
zv*B>$++fELoT)<RvtNYyD%?irWhgzEddM~7JS4d799JK|WOUG%uM#u;(y>C}ty68o
z%Dmi~r1X$q6RG=sKov(Cj>V)PdTIaJdc)^EYDPc#lYcd@3(mK6{IyP0rRV573ySwO
zq8(nB<-=_yf}KuHkjqr*vPhSRsV^UF6LiLJtrM4D$<tfv3b|79z-EA`_bbUm3zjgE
zmvN#8gZ&E=ddt54$=Dh<nSCbDg0$JblPV*>n%r1LRuy6lsm%dpA6({#!snk!8D$bL
zoF3cee|r5t+O{X&f+<d`{y~<}GV*U>iLbnUx4PvvD)6Eere_PP(s)tp$#P>Zzc861
zhwVkhS}i$TUpeLB*#D+;c@*n4K)DrikWG@Tct4>Xw;lr_c{?+CI|gQL)kDyu(L7(p
z+v4gVpZvGrdb7n4w(Kp`$H+1l9=tBsFDQySIq4V^Gg2M!PxE-&n1$Y<w{ZEsQTM7M
z=eM@LIX%M&guzg(XSo|G2zpb^af4D9svv_d&aA$DEose<>`%$~#4)(Sv6rViUI)e5
z_7KNs6-=5_l|2W5Rjw}TIggts!PLI?{FZFKncJA}<uPFNWy}5;&5f{$S#ML#zcsUf
z#)5jS+R*J(WtZxAkp+dA*kEbzTlEjc=aap9i}Oq*9qs)a==1e=RB&CF=vv-t>N<2u
z={NJ<?l#i>5xW&DtiT!=b?@&kqBtxq{eqM4Rv0<a>s2|NbGgW%CzcZd`4`-Bp81Tw
zaY1f6f$3t%KDEnyqOsyQRU>yHjEI-szV;}1_4<1IUp#G<PA5<DG&+t|Vl>cH=z?=P
z*%_<t)6e{3LujskGd`p3vwK`UcuAIyOAQ&FzFTscQs{jjJRcz2D!^=6_b|z@Ii-M;
ze(I!w0nGUxK+w?_qV$@|PEZX7kC#^$4>Vmb(mf&YH3>K+6W(4JJ~^X|x}jue7?~X=
z8M*r%rpSA_b?3<G;h^yW9g;KtpB}cKvLvyJ$EmRLa-rknS5|oBT5ST^<n^I`m%u4f
zmXUdQ&zrzcqc7|HMeFWb$s&|lX^$hv-yFv@xMcS2>NEYzA;ZgpM#;-)3-&IeK2N33
zf7`iEo$F+LbLtB(&G19M+0$QKntf1eN|!uCVpSPv!lM5G@q`}cB3#_gh+A-PHAq&y
zlX(VEVAlBQO4HHXnd8S7?C-KkWwD`Gt(xy&9;3jAYcJr$)j9=ZFQZxthH4Eg5PcgC
z_<bnS8_BzN@kg^_6BB*CShDq61aSsyYk!1Qm1o9ab>*EA;)Q<VJ5Pr$-^dgTuI5(Q
zan(+_OR)1ng12R(58Os}F@$ABM}M7A-G4Z)>aT9<fvJA?hok5NQymF~4TvVjZ>V#9
zF9l9uaf-HieE?*51P8>N<GS8D^4r4;hQvuum+PuQf?}w6_I0WsYWd2+0^bpmMN17X
zCcr7S2F#uRby|S`olPN?YrGFFS<0vS21?>WaB}4sqY6RR4xY@l0nGXfz0^Ujzwt8W
zHnWrx5&DH6Fc}eUg|P{w6~xtxXKFMf4@RoGv%h=_cov?cbcl`4mrU0F`^c3smD4|~
zPb7fDqJn2$@N3|qXkcpkjXe~$kYeqi)P*YT9FafC9G0Lk6m`bmpSv#2ocS$S>tp!L
zOfFHX&*%5D68yf1T4s2}=<<<)(&ygpqdFrIyKg*O)-#*DmD9etQun`K6>;v@02<iw
zF$3U-2}MO|7*hQ6YIAvKA?d+8x7#9$o5wO}g3de7Xgn`S`@ovP3)*x1K1r43aCL=Y
zrNPnE0)^1PT^&tF2?Y#Rx6SLL7~Q5aM}JguqaO0@^nHHy8GAQRDqN6E>z$39it;WB
z`gx!C^C?x%U_(_Y)X8DoV2~YIy8^k|U*lmX@=@osF9?>sM%Q{iqxi)hK`upk-vdyq
z%Jlhc<-O~pHbLXf^8M*C+Ufl2et${g2c5FEGo@3W5&xbA;Bvf_p4B3p*=2cRq@~fH
zddATC?CG~g1tmTWjQKec-yf0Nm?qC~gl|D|RcA5Aa+C2n`uYM)_!?32%AR(SpSB*Z
zt_r{0h!Qca*ykPRJS|#YzUOk))$$t}H;&y=`XfZ^>Cs>KBHL9|c6~7HG4#njs?~cr
zPFpm!?e?lxgHooxxU_0Vxh4{c{M=B<wAuab4SU>ld!}~%W2?GUl;auw>GTuxlw#)Y
zuRW_>t{s%n?f#kW9=6Jb<f@ZKEd;UNdb<yl&t%X3_|kP}w;^s1+it;C-Ml_iv-sQg
z=o8=#X1IEfXHq+@*1dFp?q`JZFMS0d4R&KvFy`IT%n&%GT$B2))?GJ#68~+Ivg7W_
z{6HOn=hams<!`(&Y+wO))a!op^G4Iaq6>A8)P^+SzB#X`_<^JD{XY3q({Lpy!ehAI
z^9LeCF?dY0ay+)QBhV?x(<x{NOv5l*0(STaRdpuH3%z<1M0ct~8kGpWC0btl-{SQX
zcA;e9oTTh!Pi7fh0y}3JsDAJzC#Rn8kGCu>D_Ea4jAcie2kH>OLzb?2>fW&ay~Z7-
zo~IREpEA7gIS_J1#VgfiuIB+l$c5WtrN68X9Pk}OO>Jp{ZiVW2ar*~MpG2Z$-KV#u
zkDR;o7UlQG@z-p#lE#fRIuVC={(eV!zUu=#q0b4|?LB8ke<waN8mrzBi2HZr0UXgd
z?|Tgi<OS0ko1Q?}uSqZv0tJNU{LcT&2f|<d|M99?mWY~Fls|m0WmEY@U9q@adeQlh
F{{rnMc1{2Q

diff --git a/reference/plot-4.png b/reference/plot-4.png
index 455a17f91d8a9a32325cc097b230947b434ff3fe..0e3f245a5b97806b7a4d4152add86488f5558d62 100644
GIT binary patch
literal 40093
zcmeFZXIN8f+btSY#Il5?s4NSh^v*H}NY^DTbOodbl_p(!O+YMIsG%8Y3ZXZtks1{h
z2u(sKG^Gh4v_NPn`-$s)_xXODAN%}0*UlwHopa`S?lSH%#+>lN#7O7FvGd0u5XcFb
zuI6nBggqDnIe7obVel`+)OTy(%i;U_I-1}sc<tV7i~wJbKGe1HgFtwrSs!fibL&nJ
z$R!9&^M+Y)#_~i+2KN@dZ9PaK?8C)Z8BxcM2pq#Zo#Zm(Eb=WJERMW=W=_YGJ<qME
z)~tyXi#_YXuKM<$=Dweg3T<B=IUoW4U~}5*tKO$i@lT!O{@f*m?h<KSChZ2#o^0>h
zem&Z;ogTiCxoUCX_lo}Sr~exP5P`z+d|e5j;3jmp-aUR=CIoUlFD0GKDr?Aor7bLk
zvqGi$+47IoLlB5WS%!zje}gv7#RmV+_l1}vYyYXK>%v-*JpcJ;3GuU52f_Dv<KBNy
z+gCi$1cAJT9@SqGDvHK%3)LnMw1*-}FtMl>)Mg&0S4g^&fs_C0%bDb#Z+=G<7Oi*8
zYBxg4H48IbMiX?s7@w4YF%`DEym%EhC@h_P^#&mrMzkaNCtkI@tq7|XE=#y-NWck8
z>*cCP>n;f{29x?U=ff+Ku9_15fXV9bU5SO_ZM0MhkOQdt6=RftDaJu)FrmhZ5RIBd
zZN9{8oh!EpISwlpq`)=w=0C)vLW~uX{oi8Lpu<xx(1<jwP<LXD-0`h$%tpAkb8#8_
z@12_KYM`%ceQC>eM>+YUYNVcqE9xz!e7<6kX7+O}xPJ^jG1gYrbRSmmWzNc;Ks&UR
zAystgX{g@q3$Wv-W-si&7UF)=Rr3;QR3KDnFA(d5G|;84uH|%bou11}%!n`06#4UY
z46Xq)CB%I_CZL|yyda43N-}%xn3>-&yI$VOxSZx7mgw&nRh1P4Q<UszNZk&T<Mx#P
zy|}{r+U*euqUg6b%P|FncBY{)kM5gA6vGb2(H<jVnBO#0N?YoTnKlsV=Fsz^KfMU!
z+EwLJ5ehKMiMeFH>G#HM`ukbbCRT`ak|_pD2x@SyPgYTXQF9r6z1(!~0x#8A^y7uZ
z8tr-SH_x*n6*g$Buo#Iw&7WUbH|@o?a|pKf_cGodQ`TE#zj%tB*Vj?oD&OW?IBfT5
z+*j$plx&J(3FAV3#6A3JQm|3f-cv_yp8PPGIAar|1c^PRtqaq<nfKN1^Uv{4lgYQe
ziVRF9^lj2=PNKy*e&$`6j@7j;o<6va=3I0B*=#lW-(BZqCHP&s7t>YtD+Kx}{=GqD
zc^O8sc3YZir?$at)@LC3f<&*K#oonaM`zm<;$SAYS84>Kv;k}98oxM9tCRM7Wpbm|
z?b<_5?0GrarW$OM6oP8p2Itzm{@C2@z|}*p{10K<?>ZTQk=tSDlih6{G3~We+e#=m
zyg~K)JN?O%u!E-tB-<gY-AC~o+|%7(!m68y*1uz6qE*({!WJC>ee_K8JnX#8qGlSo
z)=8VUf!zq6dNlQk(*e<F-B5x9^EqaoZwq!hCc`x)O;8R;dVgqN$MNiI<+d>mo!ctt
zOL0U7NBuxqJHAuAo8-&KhL+r}cjI5X#&x5(eZfpm?V;t(l~1PoSN^$es&&wd9Tk^Q
zKNM6*JJ^Ks&(@!4nm^l<vR|3Gh?+Nm6-e$bYE1@qM1(}u+&CPpBO)d_2=UIJOrIMa
z`rX=*5_sw7Raf8AD*QV%1QwO*ITTi?x<T1GA@EP_b5OR%;OsEW3*Duk3HjM=jDm)N
zZg-*T;fwig^%&TEApMfrte-?4-?hy*sJpKW?hfnA!-7OcM2|?%!i}-)%|<?>IL#LY
zim*HG@uBSJo^Kypi_<k}GdtLX4)#tBvN`@caK(RPPexdD!~`0&4a<b+IC|X(^oukw
z!HZAG)W<7q9@D1!!u-;7-t5Y_o)5*;j|g`kOQRPwEPEf{zm|W={NEMWuH5Qz<(qSC
zJ*6~E36j}2emKfxKuBiOx3x719ej&Xf2>U=yp1b594xmrDb-td76M7mb@U1VQE1P%
zlBv*;a!of_n>hy?ZXd@Zo}>0-OfPNsB~&}jI|NXwF&#3*4dFq<99l5{ho%<1VE2qn
z1#>!a{(AKAv03%nFC}~-Fz2h&SQ(<SsIJXqRfrM2J?-2%lH=o3vR$dJ*oGzs4>(lV
z?pGC4<8e`(kSn&W&Y3NBCQs^P6Lfb{s^a&G<dhvD5R*Q-<R|JpRPeA)M;EhR`*vm5
z=j&~u824Y5(&+1NY}QPm$4}+mukIQzGHN>T>bNajc1w3=bGMgdt12L8Jxc2PB1~TA
z+fBuKfD%6+;*l;S_ohl9<m=p)0`wEkQq7iXSNw%Cqc?vMn})tKr-Wu7RKPb4&s69r
z#wLl09s!ji_x~*EH@N4dV`dLruiOwmk-GW9;C)>~tGXBEiJr*A#P-m5Pk6t|wRL6n
ziparjnTmqFb6_R2?OhI}t%ozU)3za<RHdy}(&~GmgL4IL1(-@1;@&rU#OqF^S8k-I
z5~@7mC|)*U^EKv`<ALN8j`{j8n$NcKg`5!)D-poYf(9D{4QA5A8b*;Xz2Y%OzBt6S
zL@%h|i6pC|>Sy4&;-=E>1#JoyeUXi}@Cvc)^<t;WW%^deovU1pO~}lg)yD_t)Fa*#
z#qM@wP|}?8A0BZ#A7ij~45~l*XxP9f)cei=EBZnoIn2Quoudg=UnlsWvXapU70(oO
zj4SZDm$Wg~v1uyn4Vjbf47liM%N9~UwNsXBRJ{NhOy`a3vXs7EZ9=e)9_C6MAna|A
z%D85uf-WJSW2$Ku((W7F9vZ4oo1pYbsrY~M{O`m>i!N?Mb9>L@4+$KGg_=0a7|XhV
z$UJUqu}doK?BFA|zyuIlKLcctl5zsQy{(c*;t(NpUKx|G7tftb+~i90JXp4%(dZF$
zfi8(&72gi_V3u^*4u=f2Q03D|i6W+MVIG}H1IkaEs<tNosA3JaxfqBnU<WY*(Bo3w
zsB`SWv6wqhKi_hHSikxTQ==16K4ChG&<}ouLCO#VI}v=tFWu6{9}~P@Ib05IoJG?4
z1QrMW7!p3iZ3oBcIiIfRf8JAzIvX+@^1O@IV8jqu^g_D_##8yq$f+U^PNKIPl5$lE
z0fv<s9yrCv58T-x*Odf6g2tzcPIV&sL<&B}4<Gq-i;u{V*(Sc{Pujj%aVCXW|5xb%
zk5RGAB6YLa)M;X_k}NEor7mPl*!pBHDxNOfJiiti05i2EjEk(gUR?_H2qQY!xWs$j
z*dL$U>Yr0>BeOyK`7p%-EsCa|zu!}U^_~(9CBk&;4q1bN&vRQ&oE3&^?F&$J;)~cb
z&1JinVDasTf+tiHHF+g-j{0&MELagwNnaF($vb*wPDw4|r;G38smc}&IN5lj`!a_0
zlr8&uH|n8}raFZXlH97@HDPve4RGNF?pf@F0}&=uF`T?<5EcITDsgV>BKlGdZw#0I
z(xpXHm?0uLsR&Hby8lkmuz#E}_AfAfs8E=jfZVC>tfZ?#MJ*V~QbZ=7%ZFKw0YSs!
zc#cySI}OtOS3@yM{kct#Z3(ksm~->DhAzeX>pMni$e&SL4S}+)WkDa+j?hi*9`sbO
z$j4rxeMEc}DkM30)(-v|dOS+l6vva)E^9CHog5hMq9;*9l}<pH-$g|EHXoQmGK?lr
zs*{fV{2|FH|8vm4ta{A3s5;b%NVbW?C>|7>kwafkN_)u{^GC;_si-4&PEO0y4sqT@
zeG5xY`;{0AsSu(|ckI>2evI9|j@tdIzOpuQ)<05F%GK`WR=U78^_%3!^#5M}ZN}eP
zfKiT2rL-SP9`_29O**<$FMT>ChD(T7w))a-r?ZLvk1#sbc8L-)0&)}oDCAq~w(ST}
zN2L~9g(!_TR*qj*MvE=ZpQajH6pi!P_-~|Q{N~i?Ptx&glLiA|(nb3I!{V>Yz3?<N
z#n(KF9;n}->-;ERbN}1k4T85&KuS%k4qYPWHp~L1Y)!D`U*zc+Zy_seOQ1|eTrrq=
zRDNE<iXp5mSwHrajijql6k^3}<JF%GsiN2}F0mJ?mlp3kseib3)A?3yHuv&22BQx3
zjI}?r+l=;LO*#AxuR2LE>=Hhjpo!)2ReYX~QE)@2`KVGEKmE0MRBER|%32&|TiDZ}
zvUK#$WVh1+EZ`npYG(6i7h|E1QbM3u>j)9KDzAvmr(Knb320M_CJcuf(3{U-N^y5t
ziEv+gBj^W5wre|WJCr!ir<DnE>#D-$S0Bc7eYQ$>@*+p*%%5d=SDAL(kIQf``z0+2
zJkWqG3HWv4lKkIbhM>7~X}Y0?g#MR@&sJZFobyE26;@!T@U&PrUF*w>XJE$SBTw7#
zq-Jyn3&H+RUmqC~$-h;{TfOIpUh`z%Gi|Ns0I80jb8P(IdNtzzRcHL4zQzAIuDB@`
zrB~X<ZB?${@U8u#&aiJ!Z^=a*QKISqY(f8x(BcJHqflAeW*tUDU)lP$n0qZ{;W8Tc
z^_-Q&_U0dH$IT8K>q(@VNv>?2d`UHZ!Dlx^kg0^PCTZ>-FGEBm-NjvmWeTfFxjw>>
zQOM-0=7d4ilJKq6SsYVsax9{#Yj;e@H6Nqm6o>mbCR;k&YeRD|IJQ+J?bnl)P@_w@
zgQl$KWAq)CX67KUo5Bc3-hN+L5X{ZQXzrPCK=Rew1dclmyr_Ar3VDN^9^{0eU!094
z(_3KMZzYiIjoOUEND2==6mK)yf30J;Q5LQzRF+`Y=7h6FQ>vkn4N7^h=(avMOux{X
z&;ep9zCPS)e$`g`MK~J-5~;Vq2Rli+RXp4B+}w<rsuWi~myvCugv6Sg;Zkd~`rN;e
zeM)bR-GbWJggRsLi>zc!SM#kTus+W^*(DlsohB~`^47(g{Zwd2`p4?K;}&`hayYYX
z_OoUxdv8G>z1Q6O022|L7an9N+KW8TC|pJlF@6Y91Hx!3H|#u~!e+N}bJ(tlo)9YY
zf!RnbVtmCE(e6tEt2ejFNJ*w(DN`|JU&%N>>nmz31QW2o{`NY-!#z6%#kpBXsT|v;
zFJiqqTC%rw8;mAbbIp33{M?BXe7kJd^OBNS^(FDd7G`0^gv<78(3HalZ?N~95^PW}
z9kp-siijJ}D|e*%7k0Hzx<Umzer7t8aZ(2Z47DER*zXOSKk|KqpFT<2y%mqhO0Kv0
zNLq*Qn%}Z>)IOw`2AZvKdJOt#;366_3PZt@{i`v2d?CAw5&TK@q`L(e1~gZ?btw0l
zK|*+8j;B}AcyGU|d-hbl2Y>QgnaauJqtEzcxPxo=pWAnAo~RY>PNB4SyvJCfI1`U5
zDAW>$QM-wM>o`9l-(XAIe~iJw++>UL&EsuLXq7|iy)d`TuA}XdJMJ3xfRD7G&e2tG
z7SXTUi}_6&Co5Tyh3K=D%#b09KHHGAx?OpfJfgTOOiXG~9p-0CC~(We06{3QdRGB-
zh{>XV(z)*UCi4ny&%1cUgNakxi^@eJa(fB_i&FfH4mxq>HMf39J1xzfPVUjH=Xd&G
z`!=UqXEiQpH0yy-PTE`TwV}jwxBg13r>kUKstAOdihqFBGSy7_6lxu!s*=_dQ-+_i
z&CccJca_mk!qTpJXz2I#)fr)DjqB>d4CST^#x*Bv2yuorxm-x?wFbNW6K9%bLWR+F
z&$^P&QnxJBZXj+#`(;kMuRgkuB&9Cz?>eIS#RXn6Ag5(h{KR3Rmc&&969tIb`Iu>T
zh%P~Xi1HXp$%7HZQA;ib%7xcMJ7Zet+5~rX0x`F2sI#lgBC)16tH7yf94lulW6~G<
zK8qjkCfzh4%ROKxv&aQ~Br1D+j_zPoO!w9&)teDSUr5+I@-V$RGBkK^e`|;$4Q2Zh
zOihMFB%C{U-mLz`$fq_Lb%HbDFwEYX>6QJ3p#{yw65C_E)NhFVxia@REI?RIx~TLb
z>8y7?=Ft!?8XvP^G;E8mf5Q}zYxoNyp$14_r1i_Vu5iQogDt%6q=iJUmtE~Wbx`}$
z+W7FqiOba^T_)&{Z_BE?Jmb=ZJX5dUn5PaoZd3^SrIQ5EvdC9LCzAG`f7g8VS{_v|
z>{myHpLU7N(D>!z)>k*;P%cvaa8y-`=S{t#^VQoT0aaOPnAhbkU6rMEj49oHnfy~K
z*>F?zQ_K8z0~-@5zp!=s1_K(Do05hI^D&0Wws-L~!RI^ci9b~{%NCUGjFm%&f5oF(
zu!NyFeN)MN2K+eA%+$X!Ye)5dX8^(4+3RDkQ%~zLbkP;m?x(ryu$w}3<N4+~yLl>6
zvUWAfd{ja<<toXkr`E>q*crRmZHs=M`XtL`_V)^%<8M?31ba1Uwk3-f+Ym!_a45O|
z3~Dm1zOK$~>gfrt#1Q+gI_jtxcY^DTkHMKAsyz4@0qK-QeTkfZv<@0th}T|9<JO>8
zOjL}SLd`@pEPL1eisr?~WEj1|<lAU>L7l!!K@D>v4)I&d@}4)ePF7}dO9zI&#TX0o
zipzO^F7o9pZmZ@I%dm_K@S|kpu>ERLr#v?o;oj*@L~FBbvcgT7l-+5%PnUah>F`iH
zz4b%$$Ie0Mjq?RhuS_QH9tchEq&^>CsI8{pv_&kZld0}X6`RZQYM;&d0$#M2KFjhz
z-jJ<w=BK3i+COkk8b9bV_X$pGliZn^4Gzg(ICEv6Fa7S+^YO=~{FcP9&aT0Q<iO~R
z1<xAqR&_&yq>SsZ`&8e3(y0L$RPawhXm0m7-t+u+s3l=WX6t$Tq4UbY$x4=eHf@=F
zy)N}lX8otFD#)lX75|vpUa4r$ps-}_M4Zw)ItVadG@_XX7qPrxGeo+wKd0Lucw>Um
zdztytH_Nz^n*FoVxUS&AwOf5NzHfTv&C{$y@(9dtlPk!~PW7Vpfzu~YyKEm<X70=1
z@m&~%ACVe_WZTqtync|^JmwU}s}-^7o_c@shEbo1eV^Z75wUIgWs;Oucg=Yjl&bKm
zoTMF%>j!A)rTx*Bii{N`Ea2tgj;;XS#G`yH6ES7-Hk#`L?p26%p!t#}+sN~+)mFy?
zf7C<$j*Z>O7=_x0?{$Xz9PbGK6#Qwd<<bjUT1Sjqt&S9L*)N{8_}Wz-TP(y4_gd9E
z>74l+2eqa4u881RYRV$SThn>dMqi7EtaQ5%H+YaUB$X!&sk^^kgIR&zc;~1py-m4W
z-MfDaIt<sH|G;IssqAyUFD>_1Q@Fchl(9~y?c;iAZhS;dU0d%Wn#a$e#OZ(&b(gdA
zkZ+(B(KudzA7swywtw8j+*r^PJCFLx+>XyLd$vCO<J|M<;AsRdrmoI2l|t^oN}R`B
z5Rh{lZK)%5bg6~hINM1{%FjK;L6fPb*2}L1gsJydI30+VKiyou)LEm`s<sg@vtVtw
zaP59Y+H*{ha4m|W`{l}zI>kwQc9iUS0?l5yysg&?A@R(Hv<%_hpR}oua<0M4f9(q#
zLGDk9U)lFaR+25iHwBrd6hT&DFNc&`vUu;;g|L@qn_hj-t62|UlGvNs)T^JWyd^3U
zQPGGZ%mtF8osec#6{Eak*z&-!cqe2{&D3g9%!9i4e%B|pQw@20NIpk0PJYok%-wko
zEB=-Sk{4O(TK<bCX(#bLHA=+mlcvgFyY(5~+|5cNt2+?1WB&Q~Se3H-9t-wT3wQ6I
z(Bd&ty6ly13X!+(i=0?Zeq+E9oYubk%EDc%7uJwlhdP7uZ=`ZUN8`1iY+MyZ$6Bz|
zvW03|xYj|_b-~#4UkB!#l<cFM%g9uTjk*zc=1HY&<FHL%nwYIhp?t?>LtT-NXA>#E
zEE>mmeJboLesS>`Ey(Hg-I}nQsSCiur)1<#$(%#W^cug>uylPEvP_AoHKyhK(_c0m
zZ%|cw>4P1>BAw*`W%$bKesvilA5X8N<E-{=Pi}{5DfLoyJN(qBl?VShNmiNDrwKAt
z51pKjJ&~LznaRMK5K68rI`B_*9ui4vo)O??n-tKB@My%}3**s>psjDbubm>ZrCca!
z=nCKti~b~oUNmYtd!!o(BI;N??!x`}44%ykMTm+dvxq;gP3bLM4IT5IxP4-6ESD&F
z%(=M3?aFQlB91Lm?~zh4+grEBuFxz&im=$w1JbTu$kgYck_;YnNN4Ee<pttmT}KQY
zMdiJ9mIPOd9~vqDmDc3wHLMB~fmGi)!whUnKa;sFn~G@RH2E9LAu1@axC*tu9}U|R
zaJIRCzPq*kQs&~>5?zt^ji!A{f11|X^pPahKLjLi(W<*>9Y(`H3`j~kVG)n2NsTw0
zHJ!g)E>l~$Pup_ga0ycxD9SdtyX~qJZxm#Gx9nM0*%k^t^W9bE3l#k}zGj=26ap30
zA=i|oSmuK+(1zZ)*CF+6<{Re_;_P;)DQR?->p1dv8lu%ETAk60(i!Fb;jmtOP3;06
z(I*=g`gG^62P+pp^+~944cSk*sv{A@{tJ^S1X9E+r>MO$$H~r;`*nj!uGNa|hvurv
zt~<|$c%pZo@*4`u?(Z4Ta~NsN&AYDhAKq~Cn$Z{&?2f;K_y;P8ko(l~trbe2(t-L>
zhm*FWkbX|($2&68&7$4_i$(JlYOl;j;R_XkUY3Nswf%FNJ+fG`^q2o3BT7$C!tSYb
z+10_^w8kbcj<3s!CPvG$=i!p~jkiarkG8^5ZR!ePSLcM{_smXvEz}tFO&eBW@3e?7
z^m*c7l}71K<w?0t^N^Lxa@HnL!R*PwmTbx8>nOD|k?C$wtgmr0IxhEGepaJXi<DP2
zgTIsSgn#3>1#^;@vO4m%9??B6zHqnUwB219#%iU}{44hWGClA8GlP$fnk%_qmwg=;
zpk!$ZGDB>2ddP^hyYPCr0Ur~YEnU5K2MV>z%D#%S`rG&=<Ne9i>smU@HvVYdF0^>H
zu2mR2_a?=!EZ^@U^|L9~b&51KWH=x9d<lv@&tnsBH`H1_)i}f;&JZk;DIT(y&<{=*
z2&ol4FzF`$IQz>;<k~MPuWQ*>_>)emBl{pzCgte7LR!57v7_rnlg<2JBKmHL&UXEY
zl79Nk3ZZ7vMOCG3c4Fy5cnA}*oY=F@=7XF2HummUEqChf4`3~Yt#M1nzr4g4lTEIF
zwTKjkAMtAGlHYjT6(7sr9_9}cJ>OQJx521X$ZQavxl0O3kJ?QXroIuY;C~9a<NyTb
z^}&EBgX`CQvrIkHFicA(_04LJ^fl**hm+(gwLpGZxF7Er@w`xCJnwUxq%SR_^MOWr
z1Gs??v0nNvFQdz#xxt|w<M+kUM78uUWEYOR&DyjKY06jc9E0iQBj}U(%G^jHZlSp0
z?oed+z4UIlt!FHiGa>Vy8g2n4BP8dmKNgfI7RLC;b(Ot#CFN)p4Zh-cXl(9V+>>Q+
z%q4HCSk(yo(sB(`FG1l>9bRA9&=Vawb*CQ7Mm@4(T;u)sDjSTallI&{v+KdqDRiWT
z=q_tcY+qY;|6UYZ7ZAT2Bwu30(SE3N!(quKV#WT{U3!#iZ(xEfIx@*-ZRi!9VeC9`
z{{%^?MY^unjx0p+;WlGlD6w=N%fR7lz6MT_>aJOa9Pg~@o^aHTqbBb!JX&>N@ZusZ
zq{5CJs%V7V79Tc5ca49G@1$K4fpO2$9sKim>ZuM0(SC2bkQ|fRs26S<XrJ{!;;BC=
zwY_r4&qVN%g9b-lXe{LV)0@D6DJ~z8MQF5#Brj+UQL}urL>0N4@MTVF5owz0)WW2j
zgc75?e!HGrBAio<ITG?<=Ac~Q-ClC%$T|w1xU1@0)@25fcWQY{+^W&}+`^rvfO!x(
zEcw8j!^}P=MB1XS=v0d@%tA-Rvd)TdHk#~h*;`=UTjn$mrQ15U+!n2z`*v7tS+;EI
z1E#uvjFOGyqwIAI`O(TK@ZX(4t@+awK>XwE_2FlZQER>Um>oB%MeH5;f@EmtLkSw3
zH6Y4!`p=f4RQ73nWnXfwZ$jCYE-i_&hh_0t^>T!*%w?;c!WAvR=e@%Vw^p}&h=dbY
z-v9Sm0QK12AeUW>N&4zxSiBXJdY;V|zTDTU=ENwsn^S{^IdtJB=6`X*lzaBD#0M0!
zPQz!2iG@z7{0|zIvi&@sN%bYOh9U8H$=+&V(qAkmeTD4Y=tL4nh1nN|ZtFkp|4IxK
z`N8j#l%Z!S!JMrg6IsE<Z3-&y6T2R8hN%xwQtH|9#Ze=74Lsh;V;($|M;<CA!%4eR
z=)}lQCog`ij(D`w*@H<`yMe;2oZ&)Z&g~GW>EF5p4F@>(vEr13@`)R&VOybCS(IPt
zf}E4O@#v$K7GHiR&$Rt|Dxb7tyyN!y`oJuM$RE;VL`jJn;k%?~lR?^oXslXja9t-g
z9DTiHSRJJ_B#(llj#_4WHY5Fx1tik!L1?4t4g(e&oVN$pMpAXPlzaI>?$ow7db7@c
zbw8=-x_Sv7eisqlrEAn7)$?ni(JX(@em}a`Al{%W5xu~$h1uf|{h2wx8)u&LKx3sw
zti(~fi?}e?8HqRi#@GwFSKH-(LdEI8kBW|vB~g|44OWvHS5vUamvNy%*3$!A`<&VQ
zr@LwoK&)7|x{LFxOBW`ff`2t>hfO$=_lN%&?h9<r;a_qvPqLb@ekpT!&Z(|zUE$VO
zw0=dEq=`RgPsdmo-}utY!<*yzlGnb5GCtq4(Iu$8Jghad@F~_#Y{`)<DI~XQ?}<KH
zTZzr%cTmHf%oclw&@U!l{7$W5$Dyv;ikMK1mH73;>(~1YM_$=vUUo4QimhhQ3qE*K
zpMQ2dd%o*V2$C>>&B}~QyNo9F@C|;r_B5QV<k+k&tFj*U8>~0^Uuc(%E^Pliw69d8
zyAYDK72dP}XEZyiWs6l`LtkjLM~g1h!<j<dBN}>y$9gnGaY~M$abDLZt{x?WWzfrq
z<JgXOblse^7x`-hwnE8mYb1uYz<T=q$34_EiVzWNx<Je?i=W3Qhc@2oD??djztzmw
z2)?z?xEq?>wNNIS(!6y%&UCZqwdm<_Gn;6eUZdk|zsdgRf6!b@+oF}LpN3jalAA3%
z%}BL%MlT!>z)zyT28}n75~DLCz7%`wYvDHeE>~MVZ<a<r>Bg0L+ReamLL$9Cpp<W8
zuCE-uNKJ%yGG4p&%_~7RIerpo+50E83JSzzUG&Zi%SAPm17qhO=t40TQ&HC7L1@AL
z$s-Y3uF@WII=LA#MY*!r3KiU8h;rM$crZo82v=Xfr8z$|*$wrxp0}L4TDK9?e&|i{
z*SzNbvA}o4Pm&FP+lIv>oW(<9RFZ>*^6b25Tz`-qHk3^JZn?<|ok%$9tSNNDuf1B|
zVC>yXIL~FYU+6Q;g(_PxToGk-Y`ZNNFd0{WK(R+7xRYF#AG9SomJ?^3@=e}XG%i6+
zpM`tpEmjQdG~c1~MGH;bYt9n;8+qG+PtY-{j_R|3Z;CKZx~je3!X-%vsUyay`SPb|
z5XMCNY~Ol`STADnhpfqUmxcO=)!zMDuk*owB*;1A*rBFB24Y6xH|N{3T}lz5-#qlO
zOiyVFc3E5wuM)@@IDlr%&|mwn`{lOn>%JhiIzBnA7EzM2S97ZVCEUATSiTBgk^d{~
zat@-vO0QsC0LIlpD{~VI<&Adgq1RrSi}S}{cUI;PvyOEZPtGj%FQ;p|+DPt=-mjuE
z`hI#3k=m3n`dBZo#ebly1xBc>p~-CaBy_Hd)wa!UR^|g8ARpcexRw5jo|`{PtsS*L
zyZSst+LUdQ<kS+QbCHiU+w}2`#lx+`X-&(~{V(UuuYBB3Zt6{<zb^YF_A%J|8`&nO
zd7+-Pl(>o$wmVB%4X&^xD&u4F1Mm*$9PHh1dn02=OshgiczsQ8wZ-?qU;`_<D)p7@
zu&eog;~XMO)>qdd?6aVqX3r}rrv{*(&C<{ZKDka=IL>RtK9~wYFy~PsRG;YE!-Ikv
z74CzpKDvFRyu8-B;1`UnlS;jfc6~k7ypiPTstL{`qvRLEGojI&>`=CliqO?tKV2^h
z^&3?fC0J+@>|P#jd;BYcC~_+wanUPx(}DfWwC8Dymf<N8B%YV}392zx&ucmy*;zJs
z>&~)6&A5)+@QYE|QCt!K+_~u#09s+C^eofOU|c19`%SLm1jKuJ$}^s-#>|6y##!**
zP7$QcJk;E09Qgyp)a)3Qhw@Y$vv@CW^xd!aVgvSIB0lDNqp`?ctd8@elpntKU&kds
zNT9U>SCXxsIK_8G(}EnmTm#;4=13e4F6ofE9~j;Bpg0z~;1=Cwiw<fJzr1-{%&!rc
zDzXm(zl#m|K--%2MRxWxa!h5$-ST!bZ%(R|dWJw3eyXD*BVJ&*91nOIQI0-4Lnr)F
zI92$r7LnT-NVFP4Qj&wSzK!@!+>z3-nm;=#4P9_Z?czFRbYm%4v^~b(TF|e2xZ_Y~
zPs09#c7wDuw>R2Q!AscoLzhK6YP2q+Pg<Nr-@;TLbJR9fm!dEx@9`4<fng<^Au&_#
zgS|dNewp9gC9B^LLD7^(^Z5__SiE0nfk389<5V!-Da_-#Sf3!$EV$GN`bn(Ob4-R?
zmsf=Qz5X3b=O=p)(6=Uq@4#2_o3~EPP`PrLCptForRkoR<qn_n;%#$7D^PvOYB?kN
zA?(4;e8+7!5)7vN%4&Q0(2yB1EuGE7c3uu>l^}SUD@7lu^oUD-CwS)(Bm0Jt7EsTO
z2@9r;bB(`dUr52@^7Q`wdb4~4!ag6NWY?43Nf_*qkVPkMg496>2?p=E%}qUldxeBg
z8XOZ3EvfB)ZVO?IXwU|G0<|I~dRpY(S=341=A2Aas%sc6KLXBrj{~<;6{+p%SFB1~
z=Y07_k6cn~Yj478J2nbjKjYFXm%aR84gd4+E1|3hxZ3|Z(DcwRudCL_>MXv;e6wyV
zz&BguP-KLIlUJ|oYS9CTnOX(j!2LF#sRnCJ&jD@o$^yh4nequ5KhWaGUWdQC%le<`
zc29W|-~qf`@+XBj9q#n-RAWlHR(0Js(T7^9vyS-x;p;m4Nqiu?$(E)-;$va?_CU3N
z_m~hc_2i#--J|82PO0D_ySI97mlmIU{P%%OE9_|K$AbTl&)BgZ5cvHvft{RYKQL71
zNtE>U^UJnr@OPCjAa74aFi-L-`~PKIa;J>L5B!IunAlEGu6C>!X}q4Ig&p_p>`Pbh
z#J@7`ZwjIOU}tA{7%sIkP4J@AlH)gP-G^6RKD?&7o@(Qzq>Loqi{_;cv;N*8n(cAk
zu?14qTEhRUFSpIR^~c&5hj_I>6Pm)<9==SXmU5=j=(^U-5YGtxIxY9@+q)jDH(l&6
z=tUprktzL=67(ls>(8zB(_<GQy5M1hKi~Sye3OSa1+TjnWQ8v2>+l8)^o)3>D|+{M
z5-=UlHJH1-LE(Fg1-QwE0Me(tyu1)$VPSbikCBJ7%cIr3^}F-w-fsQ*-R(Q!I<e=s
z{9!QIRtsW3YZdFYn9Su}W`k{!xX5YTv^^OX|BzTvS}Mi*Sgw*@u9H4l5zgkAWub9N
zYpOa?*D<^IZq3#i9x`oG;(li2%P%Fe@251@<54Ko(gg*N2V37Rc-s=*-HeWy3M6`#
zjc;(};Ev?*p-(xcCmDogNuR0rf=H+zXu2M$9rKq@y^z}4$AhLb*nmZX)Ayyp65`X=
zA9l>`2<G;5j@By~Vy(Lc&aN?VYaeVthELIJymleOuLnmODr=NcCo3&vRIg7z=3<2R
zWGLZwf4-6}-Y>FIo@=#nbuHq3f7Gc_22#~o!ms<JuH|P=CP%_c$Gs>}1xBwl1rX%6
zRB0QTi*n9gYh$(U5!^2{|52O@r^HSn_seFEOkCP~b!q9=IrCX+lfdwa>tA&ud5*My
z@R>PZVS`=yb*Id_d8*v5kz7e^+4=cu=@pNxx*<wC_Iv;($yi;f(J);>WrIQy+}+(x
z6fu0W+^|W|A8rDlyphyV7vpPl%mNL%Yn0FlKGhw?q9N($8;Mz8U-4+1e4)8F>ECad
z?E;pLkG9ZAkOC!B0!qew(eja*Fp+0=b~gDd16NpB=)X4oY04m7fqVxhAt~9}%w+5n
zKjaw~;Eq)Bp|7VOguIw@ZaffaPnqv7QF3fg@O$~{RsY_gvi58fr6+xH`*EvX(8QJv
ztYHH$IrV%>Az*1h8+H2FQ~a|(&Q%eN8LiJw?7Mw=e)6l|eAjOGx7Z7!{Qlo>G$t8d
z(A<TXoQ%DwwDCI49$8<Fxvt%K`s~@2zd$VYkq2tv^y^g*NNktnK@q;2Yz_mecD1F1
z-z>|MSZBAlT;1EUAnMtGxDn0CTX*KnnKB})Xzjz-wH#oS466R`4FFJlbh4?iW(BM@
zX}%{jZ0P6LSB)H-*T{W3{PfK1hEjW+I<r$2w|o(-`0$DIn}#$hsFbI|;-_BBp621%
z51pD@SkO`S|Fz~Nbn55?VtYcI{*q5~m*e8Yk4Zls2LA*-?WXK$k3%9_ny=k-bzOu%
zN+l2o-?xVCr&gW|#(l^S-CAP)5#7q|Hc+^3*_kR`aZbU*vJG^La!=9LCl3Ar##TiH
zV&w)0uYVXEJ}JjSi1e$j(4SSEGAd3p-(t&;A405s;;3y5T16u1dt0mc?rucBb*-C2
zoa#pVJ?vztyL$oMfd^*=AgLDA6WpZ0D080$QYEGZJqVX<M4)#8`wKo`fI73*T;<fM
ztWU6K?hO;~^Aug%nSShDwQU&a^V|$?e5ZKfV4(qD*m9-*Sy_0vwF%<Wc)ee51D#4V
zHmK!$vG>T)sk*FJTSa!)okXv3M~;P#g}8Lch+&<(-$cQiLo=NQN%c87Inl;yTLVbR
zJEdX<{;C~t?#el7o4V4q&3<DI?2X5VneAW`^KTz>HmE(HF`T2peZHO%eb)Npg}nPv
z_yBpYw%48&s~1!A+j1~-h0x7k&i(m@B%bM@s1<GzgPq6Ol#6EecRM>eUVQNUH`_&Z
z8pyrl6$+xGwA-$|!bKlGTwBNrTX78`z(h|Jf`*$22??1we(cyc1+Vd)Z~8Lzm{&Hq
z`GOM$wO)|vC#*t2GIkeKVao5xeZ@f=M_uR4H(KNOsJm%q*4A%UMd_x-Y5^aF<Xs7~
z{hvR7uG%4sW`}QR?@xiGkmyS#6-Gy+Tg&;A$1?)QT#ti#BQC@$PF@QcD7-~UGUU<R
zP1F@q?E87xh^Vixe-nhG$!iXul6l{Ls?tG+KG&HxY~K>T`$9ie3cWLA<K29^kq&Tb
zaSJb5VS6^s?h^~zVlOC`PXJW24&Ueyb(rZS5wYI!9Z8~0b!zR;pFg9VI#UB$7W31U
z<M}lhxxMQ9%a2BINzH{{BrBSHyAm$n?3ro~+m_A!tmr*CK3h8szYsifFM10N!oF3R
zyNAc)smk-ZLZ@D83RE(CV@DN#{QR>hHTw?@R$1uj>r;dlzm<#?-BRm)ee0j3$sOxe
zM9q!HK(gMhJ|YKs>CC7bNp7M?pD`ASBfrV6%L<&df*!{kW-4zLYS0&r6_>~BtK*tM
z4||?)>3Z!02Ow;0|KZ^ebED%Y^Fs~4Fzi4>hay?C<+Z14#4v1&7RRR++7ok54q5Bi
zfig8#-<^HenI;=?Nr4QuqbzM*^Q#7Aqk9#{WH_wP?a~cyr+7}as2QU;OOTO_fu-*?
zlnd$+PXp7md|CNTju1PZBWwBo?u~BHgnUvky9R%&rP_)qhCpE`W{<H(wEs}6R5Y8W
z7bXK^Wp;PWz2ZcStY7yVdC#nnd9;FT%g+6&dcOrmUI1xG<>%5H-wUtZCLkY=3I^X=
zH1{5}JQ3z^NV>KCWQI`O3PvYa8s@CDwUpl&5-(mr8>n&Z-$iY*Mx1SP=+>2q#vl!5
z9ns6Z_U@+xZHc#y;xrgLCr~wRgT;YG1G0r1^beqnt;=oet4!f=_&UJbfEiE<vXj*=
z#yA!lUIW<rDa|f$wDrXKt2<W|x~D%qHm<^rXZqsBWt#w^Ta3IqgaDI0%|2kzd|Sb7
z;8){L)w2^9hI}?=J8-?7okX8ObBl>a5Z^~()a6AisG{Ti00T(w!{u}`K1DKq74V9B
zqW}bbYgkroI`Uv$+&MYtot{jU{Z)`r=18SOg$kI$!^<O;xyX1vHSI5P))xS77V8QT
zwgC>l7K8<j`?R%>Xh{rJ*he@>EJzG)aKpC4At@d81&VziDK?m`2Z%3^S~`sfxG*_Y
zwOh!skPdqre$B>IJsW+M)u~sqE!PUc%p{2#WnA-E=*gr9k;evC>ld>2O>f=mYXI!w
z4G)+A?CY*HDifuI)zZ?s047cl8BA-L7%;6th3w<<{r*7qu9jL=Gpqn%inT{<4Zb*d
z_>W)CI0oPcLx`U*M9Wh!5p<G0_A0>aFJ;SbD^iNzeqsx0_%M3IRpawzW`TTW%Ub|1
zF0`HXXzH)NnN^e-NTs0#xR`InRpdUH`ac%vKd`umNqWelx&=@t6M>)Dd1BB|Cwu}w
z0Ahjtku2oiqC2PB=J%&6fy;#v^Jo`NpAs7h&%56dCnAeq*hfV|!nX!3qV)-hI(+rt
zJhPSj=3|xssgws)b8ip;y_;dSdh_b$V!yoatnQi9r#(mmMg2D06G2l<<$$G{LFssV
z`jUl>P!R?^IR`44(%kY_vd%8D3oTbrFGQbL#D!4zNEJ*1vKg?ByiAp#Ndl;AbmhMH
zWRuc%Q9;&u30Rt~Z-?MaTYUD(#%3@ZiTuc&AMrDtqYVM>JL_%y{35W5X6jgW@3om2
z{$)=P^E?Z9$Xu~pud1IWU=7)!tIgYcUgICu2Y2f6pMR{agiz+`wV=YjQr!=7aN17f
z>8Ig%eZHJD_8O~MT)UO4UHg}M_zs-k_vSkjw9wrAe7?Lg-h0<5>KZ=;m1dxkP>LTK
zDi~vd%--8Ec@0l#a`+PHmfFD4Dkto4;jP>OBsu4mj5RiFdu9JH=f!JopQ6|c(o$2^
zJ>#L<L?-drv14^oR#lFUAZZ7bzWMiflgDbe4c=T`OjSqhsVdz2{6r%wV8}`zT!22o
z&SU#G6!3vf(y;fY7LQ#`PYLZ(#TiE<3B;#@Y~&v4;k9wQJ*O}8vX3jyD|$6OTpB3i
z`qmPWf$6u$m~!D(xisicc{Fx~iCOWyDuLQGcUF*Cl{!Z0)nN93#AsB3^~W7QD^)lO
zSg+^$e*W0u{M(9<ho6tYFF`ISdZ`+q-Y9yvjCy8+M5UD4)^DtUu}*yhc;fEY^YU&q
z=mDqUayxkzrcNFe%~+e|XRL7y?~2^lr~wEmme*%_BY9N^u(1df2E<<8*qIp(GTB~L
zRW%OYo4zw(YAj5@yb6es+Wp=vHFhwbGS2K@mb;TAVi*Xd!Yw($MBN7fFZRb<he458
zIN)?g-^jaD{kB&o?2|D}#x_n=*rvdY-3s~V!olkss6`Hx`RLf58S!@;n>D6(*R=o+
z%47TRlVid3z*8Rhhda>zl2W@yYFbexXxTbIALxpO)8)yGUGiYbaQ>&q92#P<$A?ce
zEPj}YyU+l@PP;o@F?)a9ueUk9kmeB~@<^kI%1$NIDsK$ZXf$3f4cZ#+r#C$aWfYNU
zq(*Depl$NNqk3emo<4o*1a#VKahPeofscocspmnqOLpKHrUUOmmj8hj17!Iudln#p
zrOMrpkxbpaURK8x7@!Fc#y|LoM(q5Ec1cZ1d8!l7hwualSFX;aQ53%v#L}N)KYSP&
z-dD`rpzrKYG1Vi$@hSlE{jD>V1FSazK6Hb!l2Y4Wu2vi<w+l0-F<20A59Qx=rL7C*
zw9*dZsgQ&L3?Mr>J)L-Kh|4lj_e)E!jF8qsylqQ(h#jotKIPX~Ey=}eH;6PueubSv
z+5i-ALwjW2KI6E1BZCXlp`XXEivhS<R7XMK>eLGZrPDnT=57l>|6nH<w?KGw#ZF5A
z)uN;lv_f-=gW>2n@)vI7KQ>3AuHkZZ;<M!3hf1m05sVPl00@wgk{VY9qa`{?spa2D
zZ?c07WY#_W@wpF$)(-?-B@d=Z;1Ek5Dy=qA_<~7g*k@UQ{bco@In-yrQxrY59i7ei
ztp9!YYZ#?lku({$+H41i<@gWKIm-T^&^Shj%MLcRZsxoNHAQugAPF+sYX{icJ3A#)
zF#wSAYyLI{Fs*l(i;va~KsyUuV4LweDalj<7Bm^+A`6)Bg0-ZSl)?T@{o=X(J`60$
zjul;V5c@Y9fNjcWsfKK<asU`8Hp*1yexu+CZt8e7mYFXzZ0bD3Q5ZnbmEsORq_lEr
zTogldr2^&4&Qiau4<{$5`XRxKjlqxln*vT;Q1Is!_W@jdH30+2mUYp9<e3|({9kq<
z392}HWYYh{rCN`=E%TyGSuwGP&0nvbK1SxA-UQIY!l_PUWyKqrQ$W=8Rx&3*?u$Am
z|H&rz3ayEzv|JJuT}a#3y>>Cqe|f}*2(~N&sDPWcm6g>B03UzDoNdoP=})smcMuUf
zi?U6JGVM#*4j%R=jaDykvnVnXz(23m?c28})XP6O`29fuSaRTc!(X3X>8-Zy9yhNN
zZZ0~s?O`0ukz4>IPk1B9_02owwpK)MzJd&2ym1>~{{sM|x2!-`+zSw3UNbvARYB?}
zT*?dlg-lz7Qc_Zskl)9f!>}Zd?}6koPv)=O_^e6b2Ka&Qa{b$Lti~DSX>uL#|7-VV
z+Y`z5$lbXjz?M5qQD$alHHIh!&#~DZ_Ydg+yq4d`%{=8&-<jSuBaF4|uQV=s5dlTF
zG(;UcejK~gq0&Fc;iDdjcl?5&n3p(*1}P&q&=nt0n7eyyHg&|k4X*{^2v39w*;;`J
z)JPC=Kf=by=>5zcP}VF=RRUw2w9Ld&dQ^Cf0LZt3bt=a#ze)iiPw9I})*x~5=Qa1_
z>EUU{5$84S*T78F7zHFdiM1HPRe(Kr1a;zQpFO8GmSvlk5_|Rq2N?qWyD$QvrJNam
z-}}rjyoklo$+(K94SYPS;mSZ%!j^CKv)En4-sU30w1WqN=VpVOS#K>35+z_?-G@tp
zJwNw$z{I7bHqVHAjaJQ7u@GQqF3p}#!nJ&A1CXy~bJXV_?`NWpfzZLEVffzOsd<-^
zPyO+Lv`NZ{ix)BI+fzK(@-j6dke}xk+=0{>!$mN+==<CDvaVFt@|FpCoxgS|3)>lh
z^3TTcs(6t`DrbrnCxdT-R^L4e%Dh)7EZw;+j@JV4bn{ndrIl}>DrD~iLXDJ!Wvh6m
z1N6FuV)53BaYEa8>b!o#T-&jqfV$ndckjm#m=qT`aNEO&Qwt_=7=c3Mbv)cAyC@J2
z^)xH~ofc)*h~8Z%GSgfT1SQ<puV0l|gY!8M%28QrVd_M1=~Zojt7NA%JB2F!G#Lv~
z>ou8ncc%#8l~tFaHe1Ul-q6U~k7m(nX%@C-X2~1RM=tF}0nJGt2mFC2-#B}6`&~3&
zgFh&?;YPAe7X7J(TGWFG6j>H8sZl|tjk;ue3d6`mYy=5Rp5T7h><S#C!AfFFU#sCa
z--5_Wl<Dw=INq6P2neFBwQ>zcwabc%>HuPmCWX7eja1jaq_EBby%O?dY6I&%#m4}L
zHNtL#kX<BQ30fI{EVTH(mD6Sxdl5IM_~859!D920CHgjaEWOw`TYWz~lqJoONp9%h
zjRr=N#tLB1E5HD;8mM$=^R%!F7_1_C<C^_JHnxC;;!9)Ma$HFr?j!H-=`+{kBbEWl
z>AcKhnm%wz&&FNgTp=lB>{QDTK)z-#ify&C;U|^VCciA9%&?Vuzn}fQ4?nVfMb-Gs
zXb<-(%vrT0UFzX5IcM<t?;pSE%j>GE+O}Vdfj*7{nls>D@nY034iA=&8|=|XWwQoJ
zw=p2#_6#th=Y%IHL?9qvf%YAs{dUdp$>J5jaBF9gN>EP=6Gs14XdfjJ3B!0sc?6R|
zvM9Cm=?5!cVo!0wdQG&*NJ#izeE37Suw@#gZO<ME!hOchOni4%@Xr^mjGZ<OB)P^u
zgvtZo5{sv{mEn#k;~d8*0CmG*!2bxKU7iOPO9c+#=?tMLJL&D-d5Af;-&zhq0=#(T
z-3CN|bJi~oK#|B9sco6rmt?a*NK$B#B(3>}$bX*&sKBk5*xEMr?z^$bd>zY=#nI+u
z$pwb#cU%B}#nC=gx%THb0jXc*3M>g7FJfKUJ0W0P`4*e9hMo}zYzbg*so4@x_<&G`
z+M}`%)KTUIc{j6HK$9dmdTFSFt;t%|Jh;VGP_@6g=;w?>(v8A)=hC>wK<Ud;5~b}L
zYOE{Z%{`O#el8OxVrD~N9<K@&0Y=ow@yB0l#<25hp_{ef^2%YXu}iLR1jgf?oirRR
zj~=p+8Kmu@#KIM|2jAc72rUA^aBdP@VXEhid`W6%IZLa6O4Ay)3$lv_bB@+)6d(;=
z52jk^WKduc=TlNsp8<J)6R<ruz)>1)wwFguErGE2F2^zUWM}$oAN2ja01E|c4h!EW
zW8(y;P(QHYqJVk4h5i~UBhG{RJxt(=;nzTZ0~CB-r7Sd4_rHz+sHFdrbuwe5N7nYk
zd+lo%v;N|Y7Ht8>;Rza_sR^jA7vsS*v7XB_H5H4Fq?v8nB<rv0pcktt6iSdmwmO|J
z?CJ&pwJd-N^Uo?;_Ljb|W*<djs<-y%w&ga5pmvPqDKm|~k+hw2EO9|D;JdNK4#v@F
z9{_!<@FG8RrwxLo)2KX)L#?a(t;P{Qz8WJtY8C)c+l#|kFuQue>%+UuiEN-*u6XaP
z{ow6U+a3=?71<X@ExAL?3|XA<JJ=!$WT3~o&ckW}Y+a!l>|@(ns~&?9YI@KIo=pM#
zZw!n;(i>yIx-I}klL@jnb{ba(j;Oi&Das3VHGF67E0FllH&%hS83ICYT?tC9wW4vQ
zA;K2O{K`cE0OZVt2nHov<4XbY{k@xX7LvcY>WXr&XJJ5dC00V6zS+O(J@Wot4?qsY
zkAWi72t{DSPJJy<qK-H)d6;9buQ<$mOg7bji(u|gePWRW4G<EB(cI|qKfbDf)3d{X
zXp9K^@svm1AADM=Eqnj|A?1R1lTTy6bnY-bj2sP2kDqVNOYQ`C0F@^9&P41KuuM6X
zf4$9P`RHG_J|2{qGHhTG|5IBBJMhjn*&TuKjo~4VzVcmH_wC`pNw`>H&N$~XmbrcV
z&Yk=b_Qcyi7HGgh!2aq{S*4W-O++y1*gB8Vs*%Y%pzzdyHlmdw_BKO2K0i4cp-L*P
zPPN7+t+w{oqIxO?{sMVL`GbOP9;tTewXd+M&Yu8IZuobWpMNDVOqq4_V~z6L&RI{g
zhmv<cK00VI1$w0#<ZWoTym95c4>+Bi;sR7r+Es9yqx-j-b6i4~{);Ap!H*)xAGV&5
z)g#QrYfQ=^iC{D{$jRcS&uqijzsA?P4KC3Sa;ZKH@bX$IHxWBsbf;{L3)n>I!(axB
zrpnqQM*$fl2fMH3#;b?!tV}eP1T77?;sN5lA?WqpNVd1Mw5+@T^(8LbuSbaq+K!41
z9HWwnxGg|IxXu9-Gbr!}7}F!i%AB_f$Y%jx@bn{hUteG9lhz*-AkVvdK)NA*lwl|L
zW*!3;1q*KgmM|$#+%*3WrA15<ybdqf$+CFbFGowQOyQW^vdx=>Lj@Zm##uCK8-Ijq
zVbJQNG3!1LjJ1!9j0^&>mm;PB0aE%c{s9W^H=F(ztNnnja*~0|;0_E!TYgXiFJHbK
z+FBl^jGmFaV;k`KsOU8rXO@W|%`IwlaR|)6?Gp16>P_ID1Jd{uXh=PcoL%WDePvK8
zZcYEOll_0&$^D+gw3^y|2Nf2oFQHCzMh9hsX`qpB?G?fz4{2sS-abA)MgS)naNx)e
zgT%W$<K%5Hepq2q0Z(UXgttP#1N)UfqE&T2rL8uq>qw4l0!FUq+DtUy3J3vM#6EFK
z=J`~XQN&3zwcDN%ghknmoetSiYWVukuUuT<+;=Qej0OVZO?tWwP;xU*0g!|{0;d)`
z0Gz9AwkwOriYwSm<jtSklWx_5JCIZqAuIR2fbwj@O)qOO-1-0?Xeedfy@~4D|9+FJ
z*$3DQp7Xug8ihBbIUkjyYzBdc?D*xkpUbk*fM18}2t+{4;EU9QHCuDhbx7|tc<5r0
zu?Btfdv%Yp`*;ZeJMB8s!N(+jrb*V+QIAa?2vyGS=DR=X@biCtI)3OEun@!aQ04XW
zZ<6Pu^;y<#2@a4@1(pu_%yA7;_<^v<@qm;F15sN60;<{tDAQHPMwyR{{H7M}kze4)
zk=McVnQRTTjZO=G#Ae@WGoZhSG#NW<>B8`6AoN05^#ROg4R9L<5;>jM&-Hys&{R)P
z?;lBv@?};ZzKA_9F9Eg^NjD5Zh`#T$hd_Q_Nz<o372>^A^ak@Da~q~2OqUX0)KW0<
z2?uwv;`KvS+f^+9r3y;eWrN`3r;w3#d}vg5Hov&Ebh8+73qp07ThIKc9l-{9t`n(9
z`3I$}w<Nr%3iDK>+DR>H!I(*#m6$5u3f_P3(?;q&)*6D6q|o+0Tw95O&6pD5=C^w4
zRY4JO#}oe^B7QHi_UaW5Z|5gMu_>Fy<BuDOLI@W%6;~nGDh%^E?!v!^L9S@s%%|NX
ze0<IHPVle5C<-H_<rch_3&#_>GMWs*PcRd<plop1lB8=H#=W!p^PESD!QcNm*_=2J
zek+Ua?4RiAGWrLY^Oah&S>1-qGTHfTLnr@p{pq`yoExM57PolMBn^{Y=l}hEClHA4
z^i8eDRU8Fq3;OG(`2zHRf8)!gN931>ogQ0W?CvQMiu~`5X|ww`4qf~qt?+01(s<+g
zeI{Jvf1eSl7x%xod()_<vTkh@MWrYkN-af2pezFvA|Rq5y_RJYS_MPsBO-khX+j`@
z1UoE6K@$|DFBOo4z6nAIK~W-YR1956KxrbO2?jzSA>?jCz2~j(yZ4N7f82A&cTWB=
z#@=hMcFt!$bI!FEa_}YbFXKb!fXayJSo(QGV3}pVlk3xhd9jgm@#A={iRbAJr9Zrg
z{`-|2RN?#~=VM36CqG@(9{=e0i8g><VFmq1$4_ef3}oL4f0p73XcUt5r%2qm^}sI^
zT41uqn6>Ez$J5|!kmqkjXFLXSaO}fW?!OM0UJ*R02F?Mz!l>ory692wfb)>DpJOPv
z)_NfS^LnxdZYK4T{v2e}+KUSpfhC9@ZS5eUD_=a<P}M7{=!m0O*|_Nh*1gEb`MJ?G
zT#K~-uH|2UZoK=!3pC;eHU_sT{!&)n@x!<c$ZpFovTYP{KQ)MOe&<a=%w3A_CvhTw
z@(#I&y2#%s@4jTIrCgm~-N*r4(Q~Nl!fZuCh*g5b5jZcLVC{YD1@^b}?F~qY6&k6g
z+wa;dma?M!)xZgIiboHEH=Me@(Q4DFpEqD^f4w2^vEkySs}1*7W)I<idk^}}YxGCd
zBUghP9-CTsZQT3E$sZCA{3O5O==L3-_L{OLW`@)uuAav%vbrggmw1t0Wq?tsjkXY*
z40RPn<<0>iSWih1VnHr)b*>_#=qmfWVMCJ9Gqn|T61*%kd!gb??Yc;fVbxqR$tU<h
zO6hPf<w{<x$Kh>2`LkD=>k+DT-jZj`KL01vmAik4p>bdtQ{L_i7glFD;dtnuDTAv!
z0_Do(*2}INN_ezm?XIEwsTMID-dTCNRw{5#7&zFuj%U3XWTtmdwlqif5KqZg?`+$T
z?8k!JK}<|nc-v18R!ho_Xbopm^)J<C_E=r=tjV1V?RuiL`urp*z(r9#s|a5C5}@Be
z^Ne#%W?1#yA_p%QnTR(L4gy~q`f<&4i-E)1a&ng$+h@CmObi8--3;J@B%qt3SMLXw
zJ)I@<)s21$OWRa0uZ~mh@~)p|OYhezo#-X4<H)4#Y{%|3Wk09^98&~-d$iZdB){pr
zV$534tyga%kdr&&_<tMu+7(NeUu;-YvHw%62z7~)zyBtj5w9}7^*Ym*N2yyKkDM6X
z)b6+p78uIYW69S!tIL~k{2cJC!4E~nB-G7(xVnqiFW(`Xmf(zpwERWRMCcFt@Ex;Z
z`vYV<hFq$qZmyoa`)@os|NpGAuqiqKakVDw<C^3vsIB9*nKq(g1oPaB3_-MkU%cQg
zcaTd6@<G@M*jz82ZkgmC*`%_Y)wGX)pPNrU0i-A&cZ-I(rx~8n`y#WsE8R>L0u8Vq
zpEP7ku+JHgZCGgUmoSDpROx9Cc0ia&HbdJA2Cs|OWZf1}qjSz>8L`U@t~R3#3d>Ow
z6S=z?`u6JBm-Ptz^u8WwZLxjs(-CAwh;X%1xnl42>?L%7*@{{2MOFcLSggg+X3&T}
z#BRTq<pBIFk~tq8ji26YX=2DbEo-Ic*gD>_MN|PMq9%6y`x8x_SYntl1#68@B20%&
zcJyU)WCGRm3s8&|Ua&H+mt*BqNXzYO_Nd|vh1Wh`Z8qV!ck?q97kT@PBK@IvbD7bo
zxG}Zy3{~`3OJsGNQb=WG%%8>^8nGzs6aaZst%;h<FN0S;KG-ta%$VEF+8`$$yURGJ
z%zArLFNm-B&Sp332f1PdFchYvs%c3tgo#99SbAzab3dq0?F=^9X2H;IK~C+H-KHF+
z%l^ohnAneYTfWhVX*H9^o7e5R!+~lYuD`pEQiYm)mMND|V-L(EjDU%8Qy&`5o^hp3
z&Bs7}qK_|Z77q>JBoTr%hG^Y5%26=OjRX{^Tx*iJjr@Hpc}(9j`Xgm3%}_eKE0oz#
zm$-!9lkm<JCP++USNSAc#sDv?(i#^cC395I3z*yu3Gz3v4>`Q&(?7(hUy$&!bErJ~
z6m>_*yRdQ82U`hzwK-4MY|9TGO6hD~*yE#3c}Dxg|DdtIM5EPX<lJk$B}mw_oe3Ak
zkH}dc1j%MmJb9%HaPw)Mq_A~z>0f>go)gv@3UVQZUFMB;g8D#-RiUsfq*pwdbHqaG
z#@j<UwYnUavo<u$3H2Gq1%fYjB+V0KQ=;e!A_~uVMGvU7oSdDQqZ4M#DHc_xg{DEK
z^n8Yb^9%Iqhr<cJNr_8LXNz)Cl-YVgCf%G`gSv!(2wrjR7_S-XGu~b2jO$`#T&O(J
z^)>mZrF*tVe1tO1A+XZ4mfOj|4mF!+W==JW8?TFH7U=AIz>>`6bL|-wjBo~$kc2dt
z$!E9|XqSX9lV4iG;>%G`{Nu*e*5%f-H@=EOG4b$fj_y9$laP<HKS!MZyMp<DidXv%
z4aYkn($>j<T<)@d;*VFc1W^paOEAd@m+zF>u%@srl&=e$7&^oxVmE=@`6XC38y~KH
znJgi4pwO=U=m5bZ?i+3q<GXykuI%MLy<tg^fXpyp#1oY|%#m?|dt7&h)g|Gc*-4qg
z7rUNTDCxZ<trdOOWF9wv4lYNRC_vOR)X;ti$#tsCP&8#2&>vSTL-fn+U(PsEV#n(y
zo%I7N<D1b$^`ahnh0LrcK>RgG)_u<L&qV#)Z`^Q3zaf2yD!MF~=DISrLi4m%`;+j|
zeS&h$*cl695x^hJCckl&h;sxbsF2W8auvAJ6ZrX5ep<&nHSJO%PDAfO3c0yNLqaB<
zqO<xgVf#S&?=TL4c@T%PZS09UY)K9i^nn7wCzV-XM1w^PSB70i@szJY4@AqTLuLKB
ztw$8fd8IH_(l^ab<uxL|ns@-jBN5r$7iWwO9<~!~lvx`NH*F=H2GB;1G>UYT+je1Y
zON<gx%~6t~d1|^?hiFCca*y{JUwq2gnX#dfM+h4l{TfUU-SJb^9;}B%)D+3~8(vDF
zh?lrqlftf?#9oq&11K}jRVOF_sB=9ekgr|iaJYWE%PFddgbp;DH$=>-{iZ2*+5fac
z!z6)uTv1+qNLaeKd>)Ve$)T*Yzu6oXyklFgVf^y!hK8i5vv}S+0FX>ct%umWEk~5g
z&8=K&zRWheV;5tTzlQ-xq?;C6TtD&*y>5Ia8KR($Wc7IZ=OcHkbUk^X!i*M--y}Hg
zn5`rY{>4pyzHR2^L1%9B^Ja2HcTZ#d1Y^u!2^jQgi4HnM@RExZu~R;V61*HGu>yf_
z$5PEx5lYNZ6;IZ5Gk@~(vM8y)oVS$VYdTS=_6e+n{;*0q(=g+a@iTS$Zc!>tKh`&^
zTa?`_Lr<-~fuY8N>t}DOdqt^~AEBcMR8e1n6A<efk(l903sI4@;hT}%<=Vs_WAsBJ
z*44PG!z*jvC}hNeLhGi8GL~Mha2jjx7l~)omranN!!yJ?N=IZ&wTW=-Qj_>D_clY!
ztYy@bBL@;>>{+h((CLj0Nc8}<Re_Ov63~!#P)255MiSj#lN(X|>c(mjQ6onf$q*C>
za-Dm(e3tRnCW0|g;c13Wfq-{-q+ur^&3+PFwt~pR$SQKC{6z|gnYESV_+|+kpNbC1
z3uO9JuDNB`EE`?0!av$2E_*s~dtj|y@0STeu|HSmNjMu~DA4|AX*Dw^xO+=1)1T|J
zi7PXwm+kf(8m3$;u)MmLqk7B<W^`fAe+zzdVIA+BKi6G<q#=|3SzYDjnyMXNtzF%p
zJLJ+5OV27AvifKFp{~y<MQX2ZMPjN&`A=zZwSRuZWX$=iQOTm4+(pm(7NsbAgs7t;
z&6%V0c@1JR%DtQFa$qcKef#`(xE-7W$t@y5tX#5Rb;srwW6(`9K#=RX^_TOkb7;|w
zD<!OO#F&72)=JuHc86S6He+eA)<@qxM~6!WJS_e)%}4nn-s!b?7{t$va=$Ye@@wP-
zn7O($&Bb)6LpD44Wpa)hwb=7cqipsLcQ>qOyFx*qWwWzq@Pqp?+4J(>|97%p6g&MI
z{hZsw05kq-Kfy!H1<Iu3vS6?2u;e56IHP3Yd)(hX!H%s!d+<wzwY)ESvg+E8eEyNm
zyriEK8|N*!!5tz#U@Tm3l=&KRPJk3qjhwIz_0XEwygHdP(RUk=fmc#n$>J@ttb#~D
zWYFDDMK<!CimMNr)Bs_?L>913KV-=YOuYsc(9EBEP$6UI>VpIeV4>qjY~#zWkIP)0
z%SwRoODUrEKna!5tdOxbcPyY(iRc|ym9drR0I5~E7AC7Ly3#u@mTj6n`RBw4ugucj
z(^2A%c(;QS`}U-ycoXfC)}=|p9FcdJBny%ZpELvndX}5#xt|(_kX~<WaVswswQ}Dv
zfU7xXk{E^rY1Jn?*}xPE4%7x*?%h_zHlt92lty}>Sg6EqNM)wyDrBBaq_zoVZdSmn
zT@B~99-{|E)kYUzSs`287vJRmWu|IYHQ<$P8aY+LP%ao*tuWzu$jirhP^BpM2Wlsr
zq;p{{SuT>6juEJFKYj5tSAoz>gm#!q-*6Y#p=Hx>_Wd~thj-48TQ=?2@!X$_gixJ5
zO(LfV+zAHLKUwnm7nZD}&ouzok=gMX3KVnb_)MkTsmrl&vI@yHlPRO~?Y|a=S^e6K
zgPFx%6i-Co{Nf`+pD;I7^AhUd)v|uZx4fq)Px4A6JG{U$SSd2w!f7ZFo8eZ#bWRCM
zH{LK~M6tS>P&Yok$W^o>weKO90MtZZxBiiQM>au0A3*asvS=<^dUnSV%p}0xjom|3
zZZ5e9a?Tj9lRGk!!${Eu%6MF$kOnHholU3yCC?rq8bgHcZ~Dkkcvg>6VCC`GLGzEf
z3*Dkc?laH(CQ$|KZfT6WKX-D*AJ+bTkXxvbGdFsjlX*uAqVE#5Q@-8_FYWF7BCuPi
z^U?+AF!D&bDXS61dX~B81A}2u!k#<=_~LUUZsMx(ft9kU-!#*y2jtl*mte)o*(T8w
z_9_095|l6g!yJTRRc#9WzT#uHo-KxADM<$Ep)|8U6l%q=C_kutuJL)K%^aDrca{E%
z?s7{RPvtv~!_PUZqQy>TqEQ|!N?#n(eOnpv#VY<K_vIO3gq&$5w?)d6Ft5FhQ4Ye2
zcjj{WRdnqkAD8LmV$;#Z5z{ZU8OpHp0=-u{&SN$rCJ)$QcJBg$4+{4V5_6)Nc+;zr
z807JI;4V^b@dN1Nq3yl*|60#R*f|e-sf;(4iEe8i7#(jkOK<2o&X^-YkM);+(PPjQ
zxSW%GB*U;!&<;?ccI3V}C_u6uN-S$K>-?Nr9>*z+CvC083HmhG@y4%@XOey3$RI6?
zD-F3{rCpq^2BTqL<FMsCG4h*YFDyz$95Sbo=AkmXKDg;XuT>)t{kd70)q*h*R$~Li
zJtb)MAArz_gVoZD<iR6v_tm~zq}!Ce0_u3Mhdccz*+?;fXz6M3GQZ?VHVYX#NG+OT
zpCgpnO-@1zg%n<1LyalYjoJXd+*pNR*!ZbY<D1lETC#nW^-bAIMjO#(eHKe1+xV30
zD3cE%JhJ}Rs5H$lLMLX$*H|08<RZOnhH+JVZ>L{Z9R@GC$Fqu$3tPCbrfP7&7O)Kk
zg-BGGgP7Y@s!VM@N!kCWB@=mP_}sDnjITKE93v_7R;_-(j)j#=_;MkEdk<iV{so+{
zz=-Shp*kN=tisE+;eA0$?99&3nG4~`rxm`9oLorM)PXw?lXFZk%!yEF^a?y83^5cP
zB0G@;IG3kOhO;RFeG$=rSzawz;R3C`Un#0TCAiQ1>YIg(#zQE^WsS$yFg;=WzMze~
zbIc0*)OW^4L;7@}&UN>$&+2<$rpdDyc6u)s?rCCI%r0p`YYE#jEwNts3&LVecdt0~
zfoz#>D^vq=A*?+(9Di9L0?hZ@ry`cT;OK59QQrYBgU5EG&%3w6vx{KPswQ(WNSzpm
zq8uYbzmkn>0Uoh0Fj3FA!a_j>qc9`HtXxNha1NTAZL)AbXyhbCRz<NQ0Q(SnAkDJA
zwzMmxQknO~(8uyZD1kkgoKz8CF2b)9%L=;eOxzMvRy5;D2^#O)3V8HG(HqE+veFr7
zsA{>4PXJEv`-Ivc8$l}Iqi-hKL>r8^X}+FmWt7>`WmtCksZmEDTS~~Wpr{U9g|R1(
z_51gFtr-^ibZC=VuoGhC$2b|5Cmi?v_O}n@a^PRi&%U6fL^J2fP3asb`3_l?GBSc`
zFbznEP5j}m>`~8#zisFJ&lhxJ)Vn{u`FfhjggU%T&QKFS=XT2r*1q%uELS7q=?Jz8
z<tiBEDif3;%Ks(>FLn2kE;$sjVV-58+QiM7YgOMmGxM5EL5){8o)I{0o?4?aQM=<G
z)#w8p#A7YoCwH*=TLQA(R^qdH&EvRyYq#pG+A$~fit;rxd^X_YI-aLL*Fk?R9+<G*
z?P?RciW_Q}GE|YbMmWv}HlLg`FLI;a3ZEp55X6^+IVO#DsLp?`TiFy@*zK8I0=PQx
ze|P=8?moQ|#ju9if9(bE^2ojrA9FokwvP8d0kZ;ltCBa4A*FgnM$SwHkx2F?xC=1d
zX$l!KK9Qi|Hu`s{aZ2Go4KbefygFUVsJ}iwke$*ME8~p`7xx|-mZWj>Rv*SHyq8t|
z{7RCHk|sP_)d|2>l~ddWnT9m0OBABWt%f3M<X&gQ`?WNLn99gVf-k@aBx0^6Lz-i`
z(hCHgjH3+}G#C#E#zu;$+)I)`#KONPBJ|_6^MVQPOYVKm*VCnMSi#v)NsOSCJIl2q
z9Q-%o1X_Mh7%3F&B<k9n@SlvDD$Ll>Yz3qE<ze>p;0gZ5fcr$V<-t!hdC0}pav%<?
z)~N0k%Ej`FJhA^GL!22hLfRLXCxR!1t(S8_13U&BQLvH%Xnu>Wq<lkz0)gqQwbh(+
zQJ$`FQt~@uWYyzRF<$!PVS=)AnL1&n9`MQL`?zTYqB0QRDJQKG>EHr(!~MC^r$s!I
z3;J7l6O5#Nej9m_1Xyv`zRP-Y(O<UdW5QNFoYmNP7e<mP>Y-vnK8DKajJ{+JR^qX9
zMM+^k)VQx{x$K1!cV*Tlx$?7Hcg=QnMgD<U+CevqDzFU5^V-8+&=hMbc^8#!m0S3D
zil%1BO+ZTix^uXG<K>N>{>`VJub2@Dh{@dm?I=&&ig;9$((zg7*%E7Y)CmiGFIz@{
z1g~cscYemYs@C3$OfF)dm|N8SC(&=rufOJ|?jB!<x<+P4d!H60Or(z#()5Z}Q2(w1
zAS@m%ifI-2C7Q*}W{|ie4CTzJ5s}2MG}TPyFuY{uV(7kqQ21I+od~!mg=~sIO_?%S
z1+|_gMAY!ShpbCaya7!u6)?EbjQEVHb}~ZQhvW<=Vj5cSd99J&Cd)k$8+kP(sCpI~
z(`fq4l;8#pE!N9TmZ|h*s}3MIUqb=sp_j6#GU02=Fr5Ee^ot+HmJD0uqpk`L+AWM)
zgrJt+KQ%Be*_P7->mtb*qFnpYs3vqAK8eVJEBf%fDB*5aFHpTrf1_*A>9CL2Zffd;
z`!};}ghy6F8SlD95Iem$GIeO$0W4H$aOHYo-^7RzVq9A49@^h&(tC-X+hbfZbM&81
zjwf^b2TVQc0)oAx3r)9`%w9*y1_0plk1^_IPF8gT^>61IEuDsZ{yo*}*=YLbTp(;P
zjXuF6JQZ#G=VGx#3fR>tk^4<gs;}vP3!wjFh5`{F(C=*}jDI#@W$L6(?T%zFTx09{
zb5pkb%XvBi5bl+yqU(Ssa@SBmR``c^7e8q$spP(YN+Y|!Mq3N2pBnrP<Ey$&c`1?v
z#)k-sxTCE5tP2+PqN$Dw|4S<Wte^yCZ?^D}f<X8oP9YXM(v>b{5{zp{u7s!;uU!2P
zw+tYD!2~q4EW;%FW_HV9t?KJA29YR+xGPM_;%|Vbx$2fVTIAQC5xn8zJnz?40wJFW
zL2&n4_{F7QYh;FyO7M4p-!bY>6PnsB^w;#tfVxQzm|LZ?9=l1MXjB+roKC{lz_AF>
z0~_Ma0ztjS)-|tY&*|yclfMSaCQ>H^u)A4L2Y!@kO~S6#Ny>RD`u0x`XvoNE$Uo0S
zwuF5*f$CBqyo?^H4sk7uGamLbp_aRyp+FcR8WPn@jJBLuOY|8g{&;!FG&`6%|NSmw
zg3-gRV)PaW*ydOM?X|CG-+?Mje_a%Dle<;gg+m$3#>FVsuPU;(wwaSIoG7P|RA1Mv
zrGpmr00IE`I5HD1X9L6-(1Me5#b>pqXmwS}ugMq97EUzwY!n+9ua50Vgm}m7iig<^
zn(>yt_8@^Enqu`mB0f@?*0c49%!NPV2$X1SRJ}env)=0fK-B>!F{^X(*I*mP>%AGe
zjM#Q_j@XYIDQ2&kcffP<TBmR3;lU~g4@=H5i0-Hh<T}+;OLmFy(AMOaGar#W#fGvl
zBT6mh?ez%~qjNP(-c{TPfN4VAzy$zF;($Q<a0a)T0Z9tmAlFxNGh;a{?%Ok!y-iQJ
zr|SxK6#ocB(#dB8pSVy06hggZQEZBSWT)F5oDo7cc){Fit}f=i)%@#Qkm8VjaKxi#
zJD{5M%);Zbb5S*mNnB+hVkTGaPA|p4SEKAHnak!I?`I_-S4s((8k8r(4S#t~hrx5k
zez^Ls>-tO?kZlmicOaOW#F&y|^Vz|2x7wBR(`F)4tt;S8jD4c7_%mz6Eb3dik?Zt}
zy|kQFqrW~do!<oTa=_bY_f;V;>qsHpR!VZ$noKLWq;u-*yLZ$pzj-b6Z_G3j*4dQ(
zW`%Ad92oXAk+Mgh^XNoOFiN_aahhnjyRX-=0f|z1)1KLIdNKR@xX<M~tZ#|gA}fr~
z$Iz*?6pICD{W!lJuoC6Jhs99Ur{5|_-^wCdaa=<QXR}u&5T8oW5RJJHy`r(d-dZ&}
zD=UL=!D0#~956ca`>r@Zo`l&5m<%BFXt#cdZq)zAy8$kh3D;(zPxlRp_{`$b64Y6Q
zJ)-u^ahZDDPf0+AlbrQ~D(?xcGN!PiM_j<a+bZKvea|JVn?h#>$#Xx9ddq+uv4B}H
zJj=Oc<zZ2QLI9C>E#f)N1ex9~T*k_?t2XV6EJ26|-oFnedN~0p4m3i@jo&;ii=Ler
zc0GW)Y*JS5FNn0$doM%Ta(8j%4WXepM$M**f^q`#ReGCeWKEw)n6|lq=Da3fhBmT5
zqifyK_!oUl{cn;l{ZB*e|B>?kFBnLT_s6YAeiRmA^1azVExw+RT$E*AujQS1g}R8q
zpD{lAu$ySbY){WEQzNaX6yMrR7$O+y)o)K20|K)@I~1##%x2Z@i2=xN!kPMDLG@~w
z_znc?70PN(PlNQro<=*ronV*&$+4yg#TeInuoAXciTdSI8bpcEwFh8EatZS9PC>NP
zBV(wsZ9?7pGzlLN(!Zu{#1dW}!K!Yq#OzA*PgFg<79w^2fo1sjmW-8Hxt6m)#@NG6
z!a5nribqjH^HyEEZF_pnM)TAnK7C)MQpN62X03kwvV2&a2TjeK9rJ}pm-N)E({K8%
z?!7E6^FJur{$D9P1LfZ~xsVR}adme0$aJgx8j$lX#uKS8^#~+rZV`rT8of8t!_m`{
zBEyg1^aSMC@>ztRV3CXJ_NguNa`AMrK%I)0y#@9wc<!}wqQofC)h|)%P@auiGV8KK
zaVLlOkXvJzLcPeM0x5%?M4Gd*L$3HXS9hs#wTPU}FXywU;+l~+0m?@GcZ3qV-&t^H
z_{%Uy3fgr1k)89Lh%GCJt_H-qc%7ArlU32ct0V&`M5)xv(c-yif}6oLV31;sU;S~;
z*!El8d$~38pcn&vlkLxylJA5wiT=*+nH~?P{fR`PmTj*43#;Os<A9LwUlnpWIhRNv
zDT$nWDyr1Dk99`42u3y0d@o=dOw!g^dRe3As&JpqEdI(m2KXPque?Aph6A5GN`sf>
zII4DEO-j@{u6R24<JaHWP+R!vm{>uzrZRAo0q|S6xjD9TXvt7;%EsIu4M1jgH_d_Q
zb>gza>f5G6zpQRQ0fO&9Xr8o6DhgAuL=h#9zWO#n+xyFMd_+NG>rpzT00@G0chl&B
z>G9WA=R5&&6386qrWf(bl{hd@R+VXRx@<R90^|497l7A7O^Nil$f`3%N|~}%a!vx0
zLYKFmpo;nfDX~`LOZEsFm&!w)TWzd~u-cVrMy5i>q`RFSNrumt|Mm?l{wwk7f6R87
zHQ+TSs<Ds2e^{QKU&&iH4tS$>rS1}2MBgguInEfmG~^O>P)?4R4eWx6xhUucw#;yw
z=GMvGXBiUxfvD~}RuQTL$l1xcOmAp7{BAR`%z08FeUi;kg1}a>HGwgjPVm7DrzSVN
zvr}fZTQZ|oHhM0@a|x!vh5%rj#m4nsPre$iCdk;JVb-w^aX@2j-;t6pVarWo-TDXd
z3)2p9q5;70B<vdgbuDfCf9igt|4In_e=pLjyPm2`O{+~C++d+4rNu@NrgEPwIdUyw
z=WJ;Mf&m2NFQvQ;quv1=CEiQ6Q~a|5BjL=dS|xl0_K6iMK+8()-M%g|?ch{sHq;_t
z#4KJ5QB^ANtX-j$MwCBU32E%CY|lfEon<hIwWDI027-R`(AF<jGoD*q=00U8T{>s9
zWVzon`v`^FHNRNI=*}o+Q+gbr`cKg`nHH~e0F+<LnR<L~(ZtUAdt<SP&b`-&Y`;C-
zJ>u_-HCL5NJI$r@+=974*$DP*UfpBkU9eKctz-1~c2$%B>9{dNTF$H7zoC6~Yn?*Z
zXZ=2U-O6R-Ia&NO_(S3u<MK_*O}6nXm@dS}u<`6#nlpVhZ4m}^ZAC7!<WG3Rq=o0~
zYbAX^<Ve$8V%qVQwz6EN7FOaK$@TN~h<vxJeV??Bv+O--bYEE3tefUhU;KUO#5BwE
znuyv_l)1zt1$I}qz{0zr=cE~I6obFg;lDhy*}WFiP&Uz-=22PvowG7+W+s(Lj}?ZE
z!|Tc>+Nlv;-(cO$Qg%b}ci_14T<_;#(Ii|d1|0JVpxG6Y7jWLG1-{Jhe~twfV?4w6
z0hLatlx>~t?F5<>kKb+=t4UV?engatHm`nR<W<+e<7w%!`#gulMJ9-<qonDEyTe|~
zixat_Z}le{V}Xu&qP}1;HBjt?%GxJY4NAMPQ|@UGM8_!|X^{}&5{+J5)O&2in4OzS
z^NB>ft@awaO1>R`T%}x(SNmErC%sg-#hmk4o^Gs^TQ(5U-$L>rg@2@M`7(!&T?uA9
zW|BN27a>E7<JR+r@S$QofWOh9#>}YKw{<>r4ThFAzDhF)o<1ILk6@5=d-s#9y}DuW
zN-J?rT%##){exHc!J69Mc`O79XI73qgzz&g3n^0bxg~BQar8K)MD)q4#n!8PsIFLd
zsGn)&{k$9~-Om^YZfjC+SgoswH09gDA)+y3!Njk;Vhw76enX6tvR4C++St*_mX!z@
zsGrWOGSbuEV0ALS2)Nltw8RbbhczBrX>cc2EgT)6gD8g%d^(f4us{_9|E=P9JcAo+
z$D5|3r_;^K{^~tOeEa86%AN<^ggf?=X3o+I^~h|u_%JtVF87q!pf|#!upWX>K>ffZ
zRy5p}#!vt7jW#tv?GrAHk0FREUDWJd-)k1s5<_2xQC4}a4RP+tk(mO<m&h4kjTk%L
zKoH6f_UV)5Ql*<$ckd-w7_V$%gs^jbsO#Qh5E|Po%+s{GS-i<6-fpPaG^DYl_|N>t
zf)qGStD$8kD+qqK3HTmMuD`4}66U2UlGY+Q7b`sxlqPCCd`4sEfuGLb*y8>0r%gA1
z`6KbCo9mT)&tKTI_tzUghRdnlOquxW{2z&T<WK#PsIcDVr@b3e_bOgFDes*ckZ=cd
z_Rs6-C*P0ZY;YLt6ahlkIiAHWB{)GOOT`H1+!=O_&=P^+Tw;`U^`l$jpWaa~0FmF$
zpC#i5BNjZLCQ0o-jjFtx-re0x-@&?W*3xUZ(mpo5r~9OQij9ePsn$|RTk93WXblr0
zVN%g)LKef9J3XDtFYz}v5Z8fdwl1`fU`tO%g+4L7X2&Xwly6K7NKe^`pQo?z1t9Fx
zQ77%%$#|`?-FGFp{TUH9-^0ObkAm4P2r5WD%M&SM7cV6qZ7x?Q-Catp`43}}`&a8p
zINDF2!+Shx-9Z-P8jkp0lTot-P+~wpdueJoBE=zsoVs@(9Cy@<r-X|;=o`HliO=d^
zsw;b(BLkY%O8y7^bi$;d6gz$?NLj1Syww$qF>bYcQp^fu#Gc3b;LQ)Uw&UUsv^ECS
zebf}wVnW}I9AoabVm3GUATq*ho{YW+Ne{M0I+4EUfEzQfI^ZI44F_6pI+CjH(&h#J
zgApwoB%ZtG?(Y@*eDC~v!o#oEn%^06zg>ki@O+~G(dgUMNMS!%&!*D26^dU*;Ld5)
zMZ0JF<avU_(jvMrh_*Tr6I^;e;vz0ZGu9c$G<w-yVF^oG!4$Q}u1hE~Jur6rYW!RN
z*Hq=&GjOCEBFDTSSpYK5$%7s1bvC!J3jJPX(P8FXs0vjIy#Pb@<M{^yvuJh~I4GQ<
z);HdvbYw@LdJ=p$?aNU!i{8N*$oW~eUhBra)RZ!7{@admi*0x_oz4`xgQm%qKRlBK
zORkARo4bI;af%)~hJB54DiFRoniO5=TDZZ}Y~UU(uvQo23{$BX7*}{Q!=ExhSpT-I
z_w2vgs1$vlCxydm8mAQ5?ggL#&3+m^Air=v6ZD##Gx`a1XKN8KJgfFuOsi~k$5e(+
zVh^-tJBFPbc*IYvms;P$D_64udzYF(>JEG{*xouK3MX$W2pfN}Zlq>cN>zaSaxsZ?
z1u+ngaBQ2#rcBODH-V#(ByZiZg%&*CBmDt0g1jBkqxjCu{sZ7RJO8U|M+Y8{E~kc~
zBig20iMZhs{4KOon9$0c5+8RBH&XT8qcLa4=IY5%u-C&;OK?~QKZD7F_gY5~L3DbH
zWFh$g!lZ}ezn86VqAz#2PTelT4M!%i9wl=Mgjc@5OEo@p)4cGIurpOT=S(oti^;DG
znOW=dTnNzRL?a)>LsuH(^@N63k5kK2l>+<U)XZ)+9ww5mw5+(O;`iTaf0+p~(`xN1
zw!a~K7-HLX-*g*NW62G&;BClL?f!(l(^4K8x08q|t_{4n){CNM{PJ1c+$S@G+`cQ=
z`i1tEaJh5w&94r&Vx4`l5w8cbIi&L+I?uX)Kfxotqw|9eo$ow7=OKw=wB#Rb1OMjb
zlxg6DEq+o!`%-CQN|`pTpR0v{XVo6Fqdh+4Ef+zShH|{A>5VqsOr%xiyLxAV3!M3^
z0T$tv&{kZUa6QoEw^scZTS(Z8IOvP4_hih6vxTC;Lljp_>A|skcfCvP`8cjntnWe&
z4c*+`J#P84mF*RBOS?Z&aN2$HUBp1CLGygc*YH<{tz@%FYT8jl$)TmN8Vuqlf07|G
zE*w<$n`{e`@O67??$JciAFmFX=$|}uBkfEz43}%YH<!Z)!5t!Mxzb#lrx)iwfTZR^
zwr95mL11kBoAj?BiSq7Z7KwCwA}~_@p1Nj*=ZLQ~NCNw3%Zpa{{doQuZL`}<`{6jP
zR)5n;W4nmV?Y=@Aekxa}L?<}evQ+UN)T)&tP+Dk3BgDL?Hc3<56}#@xj)uecYCyFP
z{Bz(1(2`5r;Y?4C)=~-RT)~$2E8`){EnyD}3vAyWEg5@zV0w_`W)*Cki{rPDF;jm2
z!kjbz+nhK+C*h%s=}u0i9pn>Z$N5>HG6#M_YO6gd>C9aKT$Vz|Pk3B4w&Q>55`n>(
zzAG@li7((%ZgK8ozU!Cz300<8t1hzb#f93L<>?7<<8hkh(YkEy<~!z=lq4i3eN?&d
zf{>s($pm-Da~kBze+kQqxIy_%Md3WmAp+cX^-yi!RhEPL1&;HRop-9|W(c-;gOwf;
z*W%izt(o5Bxxw8&FT4I%NkVu`=Z-S7MP;@Tl<mHg2C#FwXq>red**D;A2Pv81}8WB
zmLF{G*JehF5~O8qdm22?<%8DIRFj76_`^>`?*me-dFwMyiDx=&Imcrd$$~SL=Xq&6
zI2#jsJhWQ1wX0yl+^Dkie46&o^bkSw$A%pZ{!rgAix;+38v<?c^0ShR(AB;v*7pbK
zsBu`NMORE{3-?IXePRuWN8n=T)A@Eg@3F?loMw2x1{wNIr7(_6gumK?IqvJ;nEjyk
z7_!9ehOsuZjcVSULe<Z|-`{z~RHIqQ%Jnsc4VQkcXgt4rLgJV<x4tP$;<zdI+ED6I
z5*ss(2<>i6Wk(;Q47|$eM_0i~{vT(|YtP&WGXgL&7Qo0Su*?e6j>99|cMul5V^QBg
zJ!4de-=8*Gp4v;R>7pNWDov;_Cq!Db-Ygj8oay!haEj>tY2?~R)khJ*d=w77O}i>c
zk$p$2KhqCZ-JsW6Gccif@V@nIX`x5I_?0fHB8Vn>=K4a0)+cpDWdun;+a8nlsj7)k
zhi;vFdZlVr{W|yj{vZ2Q{FQqKLgCr&g<snjtrd%f2yeSiFYVfG;1|RU#U9RdRlO7H
zY7=o51%Bx5to>U2VxHs+$H8nOV%ow<Pe$`VTA-!hAv05lIU7ODcW!NuIp_RG4C-@6
zpJo<Et}bIWu#8#Ca&Dg}4~o4OG-F+HW>-zDexPVkLQP6fEv*==Q*z6T=G5u#h^qSN
zY~Do%?AY?aeTH{|Dl}NTc^hIf&b>f-YOX2u%L7fjIKAg*?mxva1F?sbV)x$(jd5vP
z@OUyhynW1B<2AZ@p5z0=W#0ddY&iBSE^NukpKVq!);C{j4T$!0MKv;kCi>MaRcO<-
zSx(pNu*Mg7=OH<{{ae9*oVxVUo%&@;FHLia1+p4&<7o=dO$ekfHjOF0ZwX~j>7K3%
zK;|%iJ!Px{@PY<_7qpjkx~TdA#Nc4-BvHi9=#Rg<ltIXb<d|RG?&J4xy3*>&Yx9)m
zSkq$^{T-NS+kOB~Ep;i=G0`{q#$|1=6U`Wdc)A08$fD+p4}hnzOG*4yTX@JGRsDsE
zZ!q$GIOh&p$_5QhEb~5q=r*y2s8cvC|4MjRu!9{uu_y4b*0w;-5J8{`{h3wmCXHy@
z+~L>p?4LN-_Pr8@tJPW>>*B$!`G10-^p_NU=p@nHX0h^ZM|8h>QW%@|#hhj0d;TG4
ziFqF*b%PxXKP3>tvZ4NkqiPJ%-mPu9&=U2h6Sjlz;u@%KRGXW8Vq9@qeaVa&XXDHB
zv!6(1S|++<1a|IuK1aKD3^c}UvI0N-Wy}VwhHtg}ZTfs=@V)jUxy3!|j69gIsAq_s
zw`|S~4R%k@F%tf@=)HruPaj}Pf6bQ;#)Y;`_8zth=&AZ0i%guZ4t2faN1jSK)6){(
z_ar-TWu-=s9Fi+PdBE9d&iBE0qcmFAfytX8g+B2NTOYt8$Q^#g(pGO<(d*s+#@nKm
z=H&H5%Y*!0tG}4eX#kW}>8Q|{W`2L<MuSYKhtNU;=8?9;tCsQAJIw#8tj;6cCQxoE
zHzwB4>TuIa|B1-?Q2#-%Oh79{p@ou)mjfrZai-b*BJlu?PU&@zM4{s0N0)jo_P?UE
zKl#A!^2%Ui&^>=fFu(lAx?aA!A2<4_|HPy(<yc*)znZ;GnL}>ptPTcCK7_nTT6qR=
zD^AU-7IXtzu*&B40a|d1v;%qvWKxS-wmB+R$`I#w9A$;h;fhyo9ZlM8STp^~YPX#V
z?aMQ<oAZc(|9T>nwrj6N&TKMBy|@h<HBRwyn|bmeSAe;4-h_rC?;exj0Q|z$Uu=6-
zuUvq<Vp-9-4N{sm+BPo|OaK;)cayc%(W`-Le3*LTS))_8%E9Sfks(ND#5O?k%>c<i
zJfL>=Zw}Mh!tm~osreR|89<J9#3|=Dv;csm;v;OPC#Q0zM?un@2lUQ^q`sM>0S5uN
z9Xm2Tat%`41`3uyX|N}wsi0mvUd*6XD?m7PR8rodJIPfcvma9LcF#N-olPYlCyPUL
z$4WcQK(P>`nc6DD6W=*5@F5xNkaLL$)~+>gJf@=H3}=G-7oQmf#hyEhby~`V^h3KU
zSgxPzp1j6mJ|jF#hNU#)Z(7X&W$X?E_*bKmj5502q-}FAwa9C9N(_-gPOmiPj3N$_
zkc<wqe|OdThB0_1bDV}j#zyK`<S#7RVzx=56X}$%F1fj9u+-EO`f^7O3cHTO=0$1U
zhAYk=!8?PxgOIxsr4NdH`XcCxqPENbbR!1B8Pe;%IA7cbUfvi#6$~aZONwM3gNd#9
zgvTyo>abm#xoX;reoXwSE%?eG5;bD(=)!I59$@#-M9YUo;(R^M#y?%<y$39DqaQ#i
z_Iv<<UkvV!u*V4tI<}$MxN2q(>4-(>%<1pVpttR30p~FnurGD~fP*u5bWEPdPUVal
zf>$(szkbvinD8Tx?=@UdIGn6hxaBe55R9=L>zRD+)H1Si7Dv~Lb-*FD>R#nrR(=e|
z#~t>KW9|H8cE?L=EUCUsb14nPv+1V}1?8t5He5Rj_CLr~{QrI^moW>V{<P7}I&94(
zf28&PDI0#5c8}Si#({vHeHhZDiMMX6)r%1E+`x33wdt|eUD|Y>s@u%wCP(JSXazZ!
z*xd8_>uU5{HNesKvy13?3k(d0Kbtzla9v>9`WqKLFxp#|Oi|Bv%B=eHb~u9caoi0>
zpVlhqn~4t32Bp~Y?}2h{_$&|_pOrSs0_WgI^`1_7v@Yw8gqQbQ!h3t`a_u61_m|{{
zM!z^?=Gb*nj5B{O5+C#Oq2fnxYgY)Mk8**K!fk{zPS7|uv(tPfR9+3s|C28^_3i5a
zcMse<|Dv!UXx`H+l;>ZG4~+0Q5SN7R`I+g7xZ^u(651CLjvG4PPd}XFYrf5h$(dd>
ztu<`Dt<8*gYmX1?u9$e&5lWysOdelAK`fN|ez%ZgX29Re1vKMTo{*z)cRDH$%0=>r
zLCU_Bkpte^&?U=2O^fwsO-x!JWecFy{g0j?=&nOH{IR{Cv0$7rvPXI>;%B+cucL}h
z<`l}@oHuw|*oBo-3=wl5slsgR$9$&Uhq98O=XN9|1In`6qoZddEJoh||K&_q<1QK2
zCgyu)5Ao7RvH2brKO|iyXYY&##m4$e;P_=|63|~a9E?{?HELxT261j@=bqE3<K169
z_d&{Qyv<t#JP#G~g)IAiVS$H$dG*gt-`pM_*tff+^QsAOqN3fdGQ97$e$-0O+hmYd
zLH`nN$-QOd@?P;^BDz3m&Z-$}tezO3uu!52B=CW<3fRPF!G!keNeJM7YOEXH1h&lZ
z!uh0TLQ=#}k2%aHXHKAzDEy6vDv>xFw;YZuE3l28e+(+rsuQGR!ty&u@XM}kZ>`bz
zIPKOd-2S6^$?9Of8Q3y&ln+t{#UgM%E%Vdk5T?U^vPP@^r7>RRW#-YMaCOT<)y>Vg
z68F0$SEJ&#21V*>XfF~#9Hg4G4n)lyoz*49Uf}Scem<WnvA@2J2eVCI%+!F8_WVkF
z3EHtGBOYsgU#%w(+q}SX&|GRx)xWb4y@I`f!@g{Tm7S7+BSyFecD!HqjP9JUaNub6
zV>ctV9&P7D5-XSp7Kn-)Eptj1>NqA67h~G`3TXNLw<7LnEOn;d{iesApBPMap`L3Q
z%05vtJvbG9Byg}NT4U*Z*8)|em6~rGSEDr+Cnlt}HYHjpxLZWiC|wNFK73U&O_Pmh
z&lv_?sXG&E*Wiq!ftF6<+HoEk5n1L&l*ld#u~BWPoIQgs({Z{|ZZy4tx05JJ&iEbJ
zEZX!lLtU;kcND|mJukh2_A2byrLBG_Lo<eEx1l@tC+4G3so#hKdu7b^VC^-&5#T{4
zZ=arSZBZ(A*wamQIyXPP8&ap~qi$7w$m;NG0I+Qd;2X${iX%yV)|#1DL!oU7%NIj)
zDsLMp?Q=p>8hlPtdL8(!n^NMft#JYAr@|LY4<J;t9&oaU0?H*|@T(~G$lAn|2_&(x
zaWEP$*kVZJM7mV~(yP4L?(5iu4>#89rfHXb#M}L($ST_F7vb(``ojoGyRy@c#BOdR
zv>V)0upM7@k5<6taJTxj>Aea5TH>_hTQm0+NW)u{z=aD#F2FyL2@4P8SB$4Oz$KWm
zBBz(Y&ZzWfD;sz-^QFI_79P^3Z0pwhT8t42t{N$_Q(kx!eIAwP#TWFAlU1sb;5LYH
z;jyV9)x>Ix_6@v-T3<&zD5h}x=BhtSUc}xIKHr-=IIWk$x|-<@-l3Wk0dei7QT_gq
zifYA@gWS4k>rcK893k8<s?t!Klh<xGrr$NrDLGM6mfL-7ZMbHgJK|ZsE;o?WRGs+D
zo;g-3`HWv(cK7*Nqq|JE?hQPYwTFklb^J^aZaCZ7wu|dA@cAwzTS?W4G~N3)lam4U
zRdUmF*vlb_(fAF#?T{t3(xS9_XM@?Nq$+IY+R6*GV(>@9!NSvBd2d@;L|PR5V%C`(
zwPcUf(d*i^_NDotpOaf#M&HIdh0Qg9gw_$43p*wF<q#A&Uoda^+3WErSR0(As@+=X
zE)c+7_yJE8*|G5U7n<N%`-8jvw!4GpHo%ennWK*&nPex;X%VL};(2M*e&ud60xIKv
z+N&oIm~p;1TH%(o3s(9PaItu65&T0m3^)2(`)<i8#X%0#7aM1bbtrDL^j#j`D#$0~
zgx`Gz?ig7b44P`JENi6NMue;e(x$(Cj;E#Si!q4v7FZWXcwpNFrE}4us-7ZVsdl)F
z*1&j0HeO93^DeVAO(WK=Z4SXoB?`#&k-xwgz1Cg=3TBdTiF{zDWoxMEkI)Mx*xzDD
z*!CO2cJ_YCB<88uC|TEu(7L{TiDv#I6(2n_KrxdW=C8}ISS5weOzLZk?`Q*&Yqw*+
zy%zg0hBj$zC#%PGIq>9p#XA~cowG{Y$&P*%yeE{8sRQO(V>f$$(HhNAf1B9p)`&I2
zT;5-;T4g`m73r>dJn#mRxTZTcvoop}d%IE<H<Nu~HLXVYR;?fcwYu(TGk#q#c;)3G
zwD%^g;%6#Lc{~Gpc!3-aSrPcO^+27C_BKa9G<`(MnMmGgI=PBG=qOmc(*D|0r}sk`
z-)pw0QLBT`8MO$f6;hurMBAhGhiHarRhap9FfW4ZI_)csX0ncSre`tgs*C6l!2=aT
za%b<`okS_tOyj%N`!10BRB$c$hOooFUunyd^ze=b!G{wgjei206vhKC+(7D%8BGX0
zBIC$6iF}8bE0)9!yjMy;6*~JmWI1M989k%a%qJGQIPh;6NYED{3r4^sPHy0tuj-Iy
zOzpl^9lBb%fme1va1I6O*D;La=LKrTz@U$%B?dqQtIiF6Y5fZ<na9ji0_%Gl9QMYg
z-U_Sj7&=~zd^kBT`2IonGXvg3=Q#V+HgXs8eYpGb8@Z?pZ%D9sn<d_=7Su)(71;&h
zW_Qt-1i43srB&9m_G|0@41-xX_S?{S@YhU&bO>wfY5Z-H^J)XHhFIA=W0?*p2S$ni
zr#3^eTsI`z+(54Ho*-3856rjGuI-CvKv9(V7Rjr_BmNttwl$VPj<3K2%b)&~mT4_r
z5{UEe+6DPTC!dGa<=%!cp9Hr2u2S(hl{j>+4n%p%MizJknkWer1mWS=d~sGUG1T64
zK2*!(xwlmgtR(l?i;jatf$~=E?mw{nxS`!#t}$R#_Eoqm)y{r3Ks@*)!SSeuB9Csw
z#kTa;*5OgVk`kZlVBD+hw{;BBv9f*Y{>}y_Jjo^O_c?*0x*4zc?HvThD|_^`4_6eO
zsN{L{y#r(tYxR1B#HA7hnVl7$3He&DH=lH0A-I*%hSB!GzmjmY{7nDk?`V1LK}2i~
zrs;!YcW4!R2A-@fW(CC$mb~aDu}Ho+mw<z$m8!BXZ#Jw%{rK%@n#mE0Wa&XF==}-x
zvYr%Gr-dw#RY+f2isll=Us5N(LVdy>O&J33Rfw!Aof5|jcXJ7yqE!u7d&s`<qjDkW
ziP4CgHa=QojKH<X_J#Y`J#$-t*a+<(h2xKt!teKJ0%~28I*p3PDQVUH(mS}4MBtCK
zq+~yFZ5eG4I%N+_%KpmVl*tMHdTJuusms2~1qHi#)RT4hgjFv8-EhNaW?ZugX><8J
zC}v$ido3>RS=CBM7ybDsG9*%`R$#;c?KPTd9ymPEQ18Zb*dfS_mTFe44t1qwyE`XY
z9|u}W35r)!&nxpRG0xsAac78L>G1W^^Yo#bv0#5my2l*pt69G7@Z(fwVOiIBd>K#J
ztnegbusD}q(h_E2Kf_V^eB4&rSFKQxc7D)GqYk)D17g$r>JOL-Eg%&4%C4=i5_Ue;
z9`<mQtvzBbgiE`)1~*%Vvv04BFn&y;q!~A54%?|z+C%-6$GSRFhfNLESX$~5mA8ug
z@-g-WlKdZ=tntGe^Xyp6+!Pz|F^hsZv65k?JJkE}al5lU;F~pn<@@>Uj&BHhW7$A*
z!~Q-b<%Sc)G=<#H4Dd>gDE@O_mV4myyGFt#KV2IuV?ekpK&{lPMh3@1+tu)h8{upu
zuEVW6KGLJcvK2z@zM$17?5Yb*$kznqDAO{Ft&luq%dhSd<@(o;Kpc<7veb>l#!0;N
z#IZ295(m^~zTanP4U6=}hfDO-qI?R^g1<nb7k74(JC}w*g;70L>77ct7tqie4EJZQ
z&2HY(6m%%ZD(u9c7rE2Rv{cYAsJ%Mzt;+`b`3P2*XbG%_i`cK874dE+d7dOL-z}>B
zW?*s`b*1LuohLysNtSW;@KnJ_5@_PV>6P4U-yE)vP(Le@DQ9DMLpj07^AVd7MF;bG
z*wC8p?8lc<+L4q^W3*1^uCMihM#<_X9q~i~SZn*ftApZJi-~ye$dQnSY;^hvQJ^1I
z;N+9lvs7m`<}3u6)QO~<3qRXi-2Fr`%mz>I{=QT^ZKvOgjxox;Hi%~*Q5L>$`J%l0
z<6$c(LaRi43dhunJ!kD0<<OS)Lcl2RwTtZL&OM`zf*N5ZLk%@v_l1&quOS{T*q(dh
zy`)9CwF^WYbd^@Ml52bsj*^Dm0}3u~I~wGwOQiB|jVr&C{7B=Uf+U5sRMz9sUcWwN
zKOTp+Ed7v5l;UuEL|jc~(N1f-7I3i^ByKUi(yUu04It7z<qr5o7Zj9>(28Ep?xMHj
zvP|-$8*!sf3?8o|s`RjDHKz(@v8BbS_5yv<%nAvL?c2?L`WT#Yv$O9hn^EfTw|t^3
zW&fPiRS^5pr?QCHtzuT6V;=UgxDX`5N5l;V+b&J!yWS8+PlV15g_H)nI}Y9b6y*^s
z_bVVT;>Pp`_>zX-rtL{JK?^U8gM}=^IA=jkYHQ)Py?pGGW*z)~gHfy*u0f9?#KLW>
zp7!2ZI?Lf0?3LzJ+AmVf#|}}wG5Ws07lG<dw3=jcSpk4DhWkrqv`4T=cqGPKQ@t0N
zE(o!WX6gAxv=-o*B^q_XDDYD08MLLCf%G;vQz_e*`!?5k5`MnQAOKll&H=IsnfQ#+
z6MgrI-AS~Oqay2ZGtF4cO;i7moHHq{;J9)(>7yQ$ftMtUdY~EjPxU$C%$NWU#~0k#
z(25Ct$07<kG3x;10iIp|fh0)1bqTrLWTonvrC3sUKX6dc3IssXKz)yKQNTs4Qj?)l
z19=4?S%y<6H1=rjN)0!le_N(ZV&N4f4wnQ{)LGcp7(W!WaweDmTJmT@0~GxNG|J9k
z@2Uaw`;O)A32;P2jOr5vz5exGHvCsyp_$f_AFdles6A%$cn0JYoIM239IbU+7y}^3
z6_%Z}7}o<VFoVHUx8-M~-nt_Eal9r~2Lu$-24ezGTEOi1TG@hZZP*Vv>{we1uf=uR
ziXyH2`#KWn)1f^L`27l*6*;4nY{6+<9LP6hWX2@UAD0P=^}^AOiX(T&d(Ee3y}d&a
znAP+oeeXKYmja2Ysp26miq18m&E8KVK4ANx3qx)wpW9TUIca6QZYw>ihnn#nN(9J7
zWR!E;om&D>@6hiS4y9a^*gxvxvyV2H{xIOln9JETt>*L?yPP!;X9K|uD)7)y-#aW!
zEQ^rx{7F(b`3B0u*MoY7`2_sA!Z=_@Mj-9Y;VU|ORbhxsf6!7u3y&j61#dmKSGgO^
zPdI?!O&*3%>tLHxiElFI;TEl#pKRii2WB+sf+PO(HA|0lKOgTp=vewTq+TN6&#x2I
zEX5h!WwF4Ply{-F);R9Lou9isH`$q<NSe+9#3f`<&Fsa4Q|*xiL3iN?PN^p6R^YqQ
z;;wu<RS$+xWZ=uh*qNJlcIlw;%iaR<cX=*wj755?Oe*2__7OiN<%YM<C4NR$5gLcW
zK3K}_g3hjQ;*yWGI^-KGcKyOBj61*5;emR4I8I+faW=)L&Ei0-PQeGZ*s=5nUM;a|
z-a!=UZT(C#wFzNm=-YQoP!d&sy<3FAzTUz_*;uciqKy3LtY-u8#t+$BSA}39e=tmf
z)9s1$ZTm^d!MaMv0!V$@G{v&KEGNRt_rh%XI$PT;e(Ox0{#&=(opPSP@VMPj^{(;$
z+~d^Ni&VpB9YV)M<09b_d)=5?-%>0DN4M)sQJr{4f92aZw-gBkEi^;aFEas?lra4z
z*D>);j9=Rw9?=nZj%T|hhbE@##JGluaarm7Q%m}eVNmKJ->+}1&hHiS8K>3Eiir3@
zLye+&QmVdUi^i~?_1<&yrP?DKbD0xELdViiac*t59QDI4^d9@%I?K~oTD;E`JGU|L
zck(+fNi$M)ex>H}&EpQXDmb?MMnM-2s%tI1ekj^Ky)-3k1_1`-YTHjocsAfaJhS=l
zy0vi2xv3{m{ePlL?f3QyOtnWQ8?{@hg&~tUsc#uJKzyaO6W?GqXR|+S8~}&j{QJS;
z8>#6NGaRLYIK^u>LD)<`rbWA@KFZdJq52$+Y%4#MGzD{P`4JO`qdLT@_TeM+Opa5&
zs3a5A=1M%Agk8zT|JRn+Y&6REfAi;0&8Z7!pfS8;S>V*(HfEKlPAj;B&+)#`+o^v!
zh`+Qb;r{==75~cLTYlH}%nROH{~uTZ0F_U>qJ7z0>&}X&`xv^PD!!a6-<PpdKe{xf
z>b6ma%+p{ao1fPF`7gHAI^IbIUHWNKGWm;;RQlFC;t3z$_`KJ;_k8=E>1%IHHTvW8
zz2^H7#?*6f{=8={eiMFu;mfaY9d)+=d&~?vGq+B8@-7`{&zu`+?Z5%G|5J*O>{DUi
zdS|*LpU0=`nt%5so|<vc)AD?*dg__?pD$Zqf9q`>{-W>Gohkd~N{7D(EzME3QP`{E
zzIV>-Nj!`%wofzayuT>!Xte{|{OfJH{5i{KJIl^8;=Erq$r|W3pz?%+yj~yTW<Hsg
zTgH{Z4IHWXzGUvn%RmW+Wy}0N#LanPYPeBq!=FB%Pb*aNeLgLnlJYK8Q+V25)su&V
ig${z$jSO($&7b<bwKwt~xR|+seC+A!=d#Wzp$Py0p$*9Z

literal 41063
zcmeFZXH-*L`!9+W5f!(HZ0XWF5)h<|4FU*Aksef<bm=`Hx<x>Ugl6a>MS3Tcgd!>(
zBy>ViX@<~45;}Lr{l52{|EGJ${dmV&LuyvST+e*wugw)B^>sDQpJh8sM@M%as(IId
zj_#B{9o>niXHJ9P;FCVAgD<C_YHQpDU%|0+r!f?KVR)`-=0!)x8A1CvhM3>5qod=Y
zgWgp)@=sfy3V6?a@34JCPtfZoM_WwR@$fg{p7n3&MHfXQ8ZyEvMY|9_Ci;)8yiFb{
ze<y#lV70ub{5X+pKJfL#!@u<JUes3y|1R8%^Rj&`*sNBFfAxI|s;JU=js#cH%jn5z
zY$#NkGVYWgHoo*{NdM>4|EU0|z^!>XV}r=H*%+5AXM=u*9H*m8eB@TkNUP0qo2S6M
z0%moKtulhjKu2d}t}rh7-=ei}AIJRXdwu9%KTiGoeVA4hoz#DRZDgQRNm~sGnbZG1
zjpBOJ{}|mZyGuz!W(HEwb}c7?f(r8P6(~D@hyXzwnh7<3deAKJHTXi3cVVK51C$<m
z)(n4Sic^M`nc)#R6>7S-k-A9lf}9Lwp|-iOBQhrvSzDh&5Ow^Nvx;2OG{5H9kkc+8
zq4iOjUTaB+@HcV5Xu-cMaqC463JFWvGGq%#Ku7uN9DEY+n&y@w2tzfr3a>fF=P(Ii
zMF=cVBE+(E^9s_)WWij`(!QA~xn7VRS}5U&?%AQDdiFN+aukrhwjVGkql{7eye0EL
z7pniyxpxdkcY~E11W+0d&~AgV)zi=rgRzLKNG%R7chl}73u4{8i8$d)ovYkCSv7Tq
zd`(f!4{6AuN4W5l_?Qr7Ddtx_)lqPrd_iGr-UqgD9ZgDz|HB3Ps7;({-<}~a^BJ9Q
z)>b(81O}dO4R;Sqci!YkBhSW*56ULHVrDDh9d_JW{8R6F$`&ngy;_yU^C7PG*`@!^
zh;fhb4$~$-vv)`0)?GGy=$+0}NY&@iqu87S+rUJ@_?dwb3R}n44;{hYJuSDxe>kAj
zJ>?5{0UszYg2#BvCdKK;_bW(mE9Cr}&;<T5-v;~oIVI`H>T9T5rG~pi&JjJK7WTO6
z`wJ=$zUYOGO7u%JYzDRpOldIS?0!v%uQgoxQzRqx2r+Efo$RbTu{u)S-lX?ZB5JKo
zb*K0o#A;wE>~?Mz)~Kgf`!)5O-s!A;_C|aKFT-GPPc09A0yAqMuCe?Pa{?1$wJDLv
zP#EO6h?L`%nY)GYK7siQs?8G2qdItOTE{YV-f9%|FCAT&=+Z+4`b*!sC!;cinD@_g
zpZq-mZO{ptemc`@vlse&yeYGtlY#P8;%~y@&&4ZC?w1nQjw7mN_-o<_D`|X$izu#Q
zU7}l(k%T%-z2JBIkX{&dS(Zv0!w%B7VQxxZeIm#T7xKHZiSx&SdY%Sp0HWf#LR8f-
zcz}8$r|LcKdl#2=a{er&CCDZmvwzZG#=|wq&+5;rqAUD#V?yai`6I#a?=)?od;*+{
zm6%wavODOO&TdF6vRvoK+$|^~pqM*u=<`SA$nZFB)1CQ_w`+>Lt-F7r81nkcNBZN2
zV1jREYYz`4?Zhf;=MxrgC{V+C68B7NsDT_2JjQc2qPbi*i?30C6de35P=LxlhCU9B
z=t?8vjSr8(pbhw37nlv>VpqtFt`F3!Feg57f1TI8-X%03yjuOVzlKnU*f5=YUTN=U
zvGXxnNpG>tU%6|>_MIZ-H4eXvtMX)Wnfw{I>W0|IgvWK;9rxW(rD`(A4GmxGr9+VQ
zJVjDX^z6%|br8PL_@0$r^-mq`Mp`P*f8XG5wMVs-COaYBw99obns;H-+?WH?e^<gI
zFEP0zi{-dL)h@2F{NPN?dRuV%e-`dKnkzK9d&^g+eN+-3+c6owY_EpON-%6l_gr)R
z&GL467P;VykR@5+WH&XvUTCMVND}qD%x11oD)iI~{~bZyBwuC**N$!5C52=X6+G@~
zc9cQaZS(`FaTmwHMF>B)ekh@S)$shf{nCVZKdpZgKH9qZfX3>`Gm|V+<8ds~S)X-;
znsiNeg=8W3-Wu{yr{7iCeY5c)Mdye}c5ey{Yx5rYuQg(ty7+qeB+HI|$K}<wIiK?6
zHviSkg-7bRx42s+`9R;*V(duocjKf6Wkxy!1v1`C47&LS9I!=<o)t)6tUOeEDH6-?
znA~2uaBN{VSG>j5ZgWDs?9Yf~*lg+O^al>aS~ssiR8F^dy*;YGZ&1<m<(5W3j`LiF
zIO<l4#kxL(`BLuF_@1!>UCi-lMoX9!S#x%4r=Mu5EIep2P8=8#Sdr$!OSq4#=D}qt
zrWA~hdsoyPOY$hb>*Uc>vZt9}!6gJj3}rK^Zf~0CU?*sV=kY3O&qTPT@W<(01humN
zUqhntK~{DUtn*aZ(|K(+Q35mSv8zvn&*V3TM4cbJaXwt#nAd*Kf7OJ-jumlR!t}^8
z8KV^)aaY?%h(EtMf3Dw5TCrJ*7~L!9Ke3bV6p_Oq*}dC-p!V5L1r2Md<$xx4ot$UY
z3^c{<K#q02hP35=$%uY}aAgtfDB|s!t1*N5NYK#<JNzM;duR&-hx!@SG)+HL#_P_W
zlbL7BrV|PlYT9g2Chjfil4T|d{r<z1@2O3JI$|mGmat~?0b*9|WIK~D@sv2q=CHEo
z;sy2dFXI?s>h_&V>nS3-qxSboz-qX4JXjxqYhr6ZgqfdHf*_5Oer`BmxKO)cYN0%W
zXvR)Pj;?IMW~qvuloD!cRa$632Su9PMhv+rZj-CodmB2VfPrV_JQ|tFZ_Ej~J^f<)
z2~wA2U0vL%SHA!5a&02Pxk{PFF8Y0E){oPLb=hX*sC8_qI`cEX`J0!ZimFh?rm<0v
z0uerq0uPgzm6Jl^@9su@A)2NM4D$8&w~3vJ#Rg!R77L$J-oDk`jp(jy9U)m;CN+`|
z6MLu$N-9Z5#`eWTWoN6sv~IFyyoir-(md2D{&Q`mkLzhO0HR@@_rq8L<KG8>lVsny
zbsS@0;Ea-1FlopkT%;aJd2%~b?*`0Vg7G+pbyr$>a<|uHPl!;ns_}ECXQp-QGn?tP
z6h&UzLBHB2k4hyIz7mH%l9Zs)%C!MmJ=+bsrE%U7JqnE$L6i|+ZRYAXJvFOy&k^2J
z20cRfQTvPkYa&~k=IHD7Cgv`0Z!BHAIbt(DGY@B{v~6<D)?|AsUAdFE`vp2IFolG9
z6c*!ElCU{n+9Kwl4RUqA`0e6zOgLd>l8%MiDbkx<_djN|SE7}Zd^Sw4RQFrK)Xe&9
zCRc@ImemVIf7PIzXz1Ma*D)AvU0Gctptaynvy&vtq`drHk?p>cNd(l`-2r?GHF+yb
zCv3F$BQ&9cH-&$(#XF-$eBjGNq|u#)k(~!fNygG=#$8@WEvuyAI6`kgV$O-n2jZDx
z%-dK~92(L(sMFXzPrhRX3zcl8)CPzvP0y24kQut=Q#`%C0V*1TXI$xL+mMP{yG8~w
z+&i}a1tEaJMo$o3TU%mrvbqM`&<A#b+2c0I*Zeo$c^A}_4$fXqUSXnY#xKoIpWNGg
zq21u8j7wXJn>mzp+*HB6UGH#yqtPG$Y0XTD;-V^}==|MLE#}L+1-i0}CV*!LgA?4d
zG+>>|TFSLnu+I?YZ~?<6*7z}4lTH@i^+-3-=vj#ckBnt&!^xe%Q%wgLy{Y)g8C!1d
zfVsp-=PC^GKVs<KxO#*)7jbU7TS5cJer#?7rIXdEeUIt>Yuj*l^^-+s*4g04Bd$T2
zRW`M^I_`&=AWO9?gWXh~&rYSzQJ!+61H~B?TiBDT<-Tq{NDK;@W%<$jrN(UfPe%xy
z8vtdX_y|Cb383-Q-L}W!Zp`-tW<#Lu9XfA}Q1|%L#Rwl<SaYJHJI<ls#eBGela`M3
zk%R7D?_4=}u*!T*5hYIec6mh4q+n9W!W#%WnR%7{SE*gkT?GqiOIzVu3upt1U0LVb
zfO^r^z()RbDH(OcY#*BgVS*pB0XnhzF_`6HK~A>-=QYPt#8$Me+l()J5KE^>ysWta
zBXrPEllnS`uRHf{WQdTXZn%$|;b#2BL*9at9wy<)Nio84JJq_IhV}+E)|ZN@?{nY~
zpBQVFoe7;<nqZsfk;l_?o95%X9@o(b3q&nMz04kBqy8wlUSL}Y+HLn*%ijVQgp|v9
zKkDL)m#{sK*67~qQPEtuLO2h3kr)6$n}-SxR=HVk{nOJVpK#TXbQ9VfH)Ou>{)m^k
z$4rp<W(uE|CA{bU6Y7&9+i%GwV$7P#u!WGD2KK*-A3)HQW(hCGBl&TWg)+A|21-5D
z=Tdd1fKTH1;*9o^NI{H_`;Gt-mbjIW{o<>O_u~NVJjo>~f;fu$>2(eZ5*D}hDm>l4
z7*pD-Gg1RC<p1qKF$U8{JK6X)e~atJRk<4+K|sfanCkv(MQ9JLNBnQrf(G*cUyrOV
zXMut*fyycKl{wCs9=NyI;!42$te@GvM?3@$XutOEeVi_o$d45uNFih2UG6d`?AKc_
zU~dX&?_{L?41Uq|LmK)O>GTz=sx{y%I`GlLazbE)c!2B({ZO;IcBwd-uOK>yo?qf!
z^#hz9G7s8t+u(qI6S<FWZZ{=LB`Uz!1wwcTa;O8T@)1U{o!Ki#e`nqfSnA-Y(h!h9
zR^MCj$6O<1zu)v9*TX%Ba+~c{TjExbY)OVqPoU}iF-coZiEfQK0VB>aNZ~4Lzb=m1
zq>-Zs^YEUjzJnO#bdonJhfQ*4%#oWStld<TehDhZKkQ>BWwNkcd@jpHm+(~0WRkBS
zKj${W6K|l9B-M@SA4ZPRterk#QbgpbidNzzYem$O2kPMWqdq*Tt9`99Y6*>$6AO&3
zQ;GG|RC=@!{b=oNg6xfMyRIp5?H#$!=S{cn`Mv6?k)C)m{!F0s<+294u9|Yg&*_rg
z_M|!W9Kz>9GQ%qY(f0EYb!n-B+U6aI`rO@s(8nd*x=*dp?XwJBPsMbeTBwPzg?Zuh
zacs%exyV?lh~RjI{66Zm&&+B?ZRjU*s7yUK$+pW(ya20Vj^<`M%imi&VkS~htARq`
zrbqK<Dg}a6){?wyFl8T&V(l26$2qz1C&ILZglG%P=uACQ5`7308dTkv3;L>lYS03g
zij1-iG~g5$(OXdNO!j`K(?3mssC51!SC3dHy{OE~zBM3q;9PX8>6YDk7J2_&yCR}<
zQsM{MAH5&-sT86TZlSq*JI~}fC+e0{tWManKU7Mq;h}*P!ga?nlsl=O_&6fx1q3V6
zHuCYc&b#2cY#+CRNyMPCbNWo9I5#p&ykhzt!)q>HX8#)eo0*R4^FI8&iC+Dk<vC`^
z3keKza#grd<WAgmjl77J!()qkA9INOKJSbMMKwwjk4`$LI|$T37wBwn?bl~Y5uQP<
zJGbB&1w-&GsRV`9_D+r>3KC8+J#r!L<kEFt$&@r%NK=I_u$|Rzu)uL7Zxxt}IKBpo
zk+X+p)kV`+A=s-|x+WL?j@#iq<-TVwWhFFh8#r^HKYf8O#HGI?YD5f^s8gR7jze`&
zKb~7;H1hUcn~Id|W+va=x@5#O-2hQJ%LhS+Mlib+VSDt?x*52JI*Xa-`)a-OgQ!;4
z`oQS$n+AppBZqHt7&((N^Pag|<Xdd!n|5PgUtN!P=XE!A6yi4@pjT7z2km@6DuXoy
zsbg`+UXyWezbGRMa}D)`HLAuzL%P{cn-Zw1zMv8HCR>f}tM<I97OrAs6Mt#$JYC{x
z6#x)O?_6?lW{<xk(mOln^ti|c(RWP{tb23ZRv}``*S*LGVna0MUnyQBm~~N0{#?w*
z;>Eox^Rw>Mj*~vg+Pfchesp%<4mf%r@3e>S3Y1LTf@Xhy#ACs7zShUf6kb9Oj@O}+
z&QRfR;kFBWeLB&d*LS_52vLoyhT)P&W;l_i&6;^sUklW9Z+q9t&sYxef{dJe{=`I^
z@n0c4j^$+Pa};cvkRm4Yh;##jjXsuz;{y!zDfd}_kBOb?5Bv+vF)l)0*VeL&5b55N
z>K@kd6-a#VxnzcO6Ac}c3v~~1g3x$dH}?njdo{LhURM01ukLX<e|fI`mGbOT)i(&*
zwr?aO{?|DqiT*(6!Niru{$X1|$<+MccV%pB1NrO>9EbtXC<0r@a<>!l=-WgPByntG
zE2UHC3&hxdEc_`7AH5bwO|B=FxQ?S)sYzSmJ^rmk+orU}2YrKI12b%LR|LIc5BUl7
zVy@|RvNcb;)^2QQ-?%44jGVde(xf}l@%H?7eUFFfH5u9a5Vg9YBv~EYk!@*>D+E0Q
z%fkv4cRhj^<d_M06;E{;eER)GSvS+!!ffxUUKnWWk;$K2c%3i(^(lSuNmmIXpP`zS
zC_x3~<s41P7+b%EB0jCH={t=I)3HE=6rO3X*Uw{hEYPtq_=`o9?OB6m!KwPRZO70R
z-(fD~2guGqU@W)x4ZVTDjZjI)<gPS!g{af@gT3-s8%rF@o-m3=y&<PPs~ns_swR5B
z?<r>x>Qwl|)t`~|+*2W`x3?<lbk^S9<o#j@swFhG=Q_xI>2Brv#r4pyA#7ko8*J_U
zRqk&q46xF747i&Q-fq<Puzr`8?B?_29_^bxOoX%^&#$)b4#;yT`}vn7RapD3z1)^9
znstlcnWAbfNR70Y>r#3Ch-<ks6cetd8yiRUfc;gq`jBBHrbFc>xd}j8k7<amBf2|a
z^8TLOat08+&_>-L>J^LBEFC1_#ouuR*M%has=CoOB$tPX#$Cbh-v{{mKSWI{u5S5D
zcJJh-<aGqP=1&qo@Rj)3D~LC?@nyc*k6~C@w0z*FwoIC5g0xPIVPMf_QX04thAv9z
z1$>!s`_5hGg90w1ZP1(7vzMo&@;59Eed20Lj3#Er@Ka^JW<o3|wrq8X8r_(yWwD^v
zYTX3$i(IxJUfuFn<4dYd>cq>6ek0($hLgVU?#RmOZ~gr(bGE{f*tx&X7FQq5uh+TP
zqs4l3r*5V)H&6w?k~laeRd8W|2UStZ2WhndRnEd$h?0&`snTU%`?S)9>DVg{RZRt3
z-igWNWpRE%NszueWc9G3-}SJ*Wi6g(M2;OoP_PnTL@wXugX4!4l*4f1m0O$_t9qp&
zSS_z&4J*_JQ`yiog!4yC#}?c<_jis;gvc&zidf#e`4qwAsFr~ox+5r@@HT%A&f!Aw
zP_tZ^Wb9m~wt_fGS7q1pGH0@TjLtgY49e@eNgj1WZ)9^@T7~qK;#i}T)uTH71a+%V
z*LkPY!;w27s9Yy1wxZE8h*}=qD_<*bW;#&8Wzz9hp)NCfwEL#>xS+yJMsQWOdczY4
zHfhDHv8iV)e$if9P0dkJ#G_^HsdIYjEDYUF+BX+`ZhB{cRQN(CL>6b$=(e9$L|E2X
z-nkUF6`M2Sxf*$M+T5W@2cg{9RB}z`SYk+t?Ah{Qb*{ytV%L~WQz87ZY3<8c$?zZO
zgLJkkuxe&Kkv%o3g*vDF5hm3=8}rM5SM`WJJ}Az9vBI-SHqaa3&Nt~gh>dBG##0-_
zM6BEv;id~30()swrPyw#`~&cV_FkY~u0|C$Q&*+<AW34F81Sa%FeyiSrKG+F8*|K+
z3Cvzc%9SX%bmSU?v);2`S9Gdh#$|Tz$PKXD)N*q3#P{f*pm^q+y<J&h?N)dXE-=zC
zHpXJ%@~vJI*~iqNTtN`+33wj<8oobZgLEq^vHgdCDqH2H4#g%;r=`vLQ#g0A4{@(Y
z&3d54C|K{~H)*>7v%bYA*3R`R(HIHJWT<{$``{{;V}^0`f|JVHJ3)Tt$I%`2)S~pY
z{kqXI<1Koo{8`k;XJxBy9^HYaW$y6=hUB+8i;F_N+$FMn$|C_2=0b3T4_8Ns5dtWa
zi<5oB-V{EHa=I{;c<Ak%?&#U<dZg%_u00C_OJ#gjBp|O{(f5{cHZ~$SGV}{~1kZ6y
z#fwVs+`+>uTD$H#yJPK4kQbe{YjquW!_b-o+;~Yp(`n-Y?of>K;}SpZTRYzhCB3G<
zOg||%w69|>W4J8?+Ej%)yY_laVv*tCzVjN1f0+A3Uj<HqoI$auH9CRuU8B4Szv@(J
z-b2BtwgXUV`5Qy0Ut{H>(jT{T>9TVgIT(d;|Ji8P7vF<%RB=xxt$1751xi7KsKU`c
z$!S5(E{0p$FbLY2ONu#cN0;Tu7sJlNNtH?p!B7mZqv?hCcnNC|>!%u;yS(;h7O2N$
zrYK#GD@B@u<&Ad+q%RuQXb+IYRO@`|$otVf+nu_LKj}xjVk!H_9g_X9I*6V(cg%x&
zzHXEHFZ5A-ga_$REvtr}tLdw<t>))Z7DNG=ZyyFt-`GLaxgGmAgh;l5u@jCaVimM$
zh_Ma-j6|JlkKrud6JI6Uk5tWYU)g`IWHLC;6jT@S0Mcf0Gd+I?nGsju+@G+QV@+8<
zyU{up<(an9nLHv`4~K<o1eDK=dbdv};+#XH?ZS6U>`Ld2rMs89hsKF^;hy7<cm_$B
z*q-grOt}>jd;59|^tx(03y%HVr#J1~X4O9P_3AwexD8PWk!e+JZ-cDNXh3Wzqsi1)
za4)+)#!ik@qwtiMC5w0Ck-HKWa$jmgP%dJ0S(X=noC+%xEB^ibr0#5AU&79%RH?P`
zkI9V~H~O#38Tz`*Qfx4pr~T`ulqPa8rd?64QGTApHD4e+8S9A3ZcVjyFA2WWhsDE_
zpQ7YC(}XlS-X5FO&O>L}2C8B|V%1E>UhoGA)5#Cpy3J>Z%W!CT=qUJg2AfSf9dLKA
zp7)NPbU2!3A^Ev{pHy{li}$*26{UNf^$1>^xbw^0DhMu8e2sZsGA_tnT4`piLT9hb
z5)nVoIXUq}<>(U0Tpq=>US%gZt#v<-M2f!;VP1d^aLfG~epF2j-G`60rZL$HiV(9N
zhr{8tCDE4Q@AQ_UdgMA~xBBLjq*swg1$oR-WqA{8Q_?IU8FEjdk8%<j8R(&fvxz!A
zJjvzuV%0YMrQ1wgQ&k3&k6A`>*2GLMq;>KNWYIndB^~G2x!iUcDlsVTtmtXyMmUPe
z@e@dwSgd_qL{5`hqqeUSIJhrTQ{9VKqB4}8ptv(4IxSyjn&Lm5`PF}L8`b!J_2I9`
z9}C@Sd}>|$W7|!bAR+u&TX>p<=o+{4poj(JLU{&S^gXxP)BecK-G^uBAg_VHG_nFZ
z?Ii!A^sukiE}D!U_4jjYmEL<vl1!ejAo_2x5x>Jmu1Btny{NkZElzcH1F`mjc8tYZ
zt@msHG2X%Gd_<2#60&}(%5gH#mu{q}y`KQF-WTjX*>@q4@PPx*s0mU3<v&%jXu_E^
zzT7!H@~oe3Tx5jQC`kYvhR(qXMOL;;B~a4ziIOOuZtgkN`&sGkE_xlX5fbC3J(V{)
zJ*!W5uk56wjh$Gt5pF1sVcRt>i1RV^$Kl-|deUm5_lq8crb+i!o@5+@zfY1HZF;C}
zs`Tkg&nyt{n~TisCiDbNlei64_q>jfblt3T9<?unJ5Q!fhNEH2L^TvF`bP2McEgye
zuMcuEHWkc^=~qbG!oG2yWGx<s?riO{FwJvYl^pb{Mo+3S?O!DM?Vp5IEML2bSv{^P
zU@dP4v0+!^CB1yl{{Trv44{53P9n%yoknt1&o+KdcmqD}8j$_rGETyRSHrAdoqRI(
zfFof^;W!=31(3geYIxebbs)S5%UHDN4(bj_o77qFLMM^;LoVSfg3>wO!#qUOxja{=
zD4w_Q2+jyO)$2C&l*y*IoO}cpR6n0d=ebk*h6{`hR=SNs%XkmRJ5i_ovEdZoTja0r
zM?G0MMSqGVd;8dh+okfm`kEd#kb{xr$@})=gZ*~j#C$HLy1RsZKE&<DXe%m}s2ma&
zrOPrOtF+H3t_ck8>_Bap7^Qn{IF+`qhPr7Ao;iA}gD4Y3_5o)Tn~gq~|9OojR_8<&
zU0Ox!s}O5{X-yX0;AhUdkR5DL-X0J~4h~y1KO9%tNDU~po1T4H+&ubKVo&zQ)AxWY
z|GgJrVNG(g41=E`Be`l1DNDyJVawBPSi9*_x6M@)_S%9wTDsv5GPd^6m*|?|)YMtt
zzZZ<^yi7esw4KN<f%qk2uB~wup8%RR^6zeo*qrF%W-NSN>)tX#R;T*(zYfFL@cfE`
zo2zML`}LlYl}Mog@v0N-om&g#?RQi(P^nqPqHoTB`*PYG)Xro!sAXccGD8nAW1Zy!
z#iKFV)6^bv-Ej>Xvjh@>h6kdFLNX^`@*l`7_$c|4O0wH7eyMUO^V{Q9Xb)61ULYlK
z{$7=$!bW_XGM)RUZ~N-`mSs3Qbf5ftdME?kFrjiDi~H8?4Ts~#un`W8;{C}C)qy2^
zs1PeYf&eOvOc)``=jmVRJfc;0OznP%z#5P7d4yf0QO@lC2lC`MFNve&Cl4`#9`TfO
zzrNCspu4x`5_;y|!ke`13J+>Rw|l(%zi^;DR{ImSa&_ni9MjfJ1)^$ab>l0w^4c*W
zmQCk`XKa^?GFcyWpBpW|BY5$!Ff9UJd7>zF?%<AL0DIQ6GQWHV-GlPA^__>UX<~Hm
zj6ndE<)qjfI4v;vvb6|3dVZuKwD<W{*HO{k52}xDpvFsbf7|NA?7NrU4UN+(wnQ6`
z-)sMomaWp>T2lJ#R=;aqICIIO6h{)!GX>A|W#Jr?W0Bdq-=}XwW)DGf{E$7!VmEGt
zMBIpcI)=_^pouAqb#^G9-Eq641X9zNMRv8xS1R?xBAz2gxcHHo&{zw5s<4iIcB{+$
zqR@jA#BmY-t4M{lWmrtK;aI84>td5NJ0W;K4Xe2h`5wC8*xQD^d#obFLb%yqm4Vo>
z>~2mjUYxZR6!Nk`i;?D(M~Inr$M+(%8}uTZ^=ckfFBT-ADDoyafsvUt|B}DU-}T&_
zJ7E|8B7I&}H4vjzyvRPMtkWJdLb93IqepmeKKR0w{XwT-l$~Wt6t%;kWjpbbwT8-+
z7ttL&9jG&&+Wh0$y|uRiMy=;-eBO|kW&gSk)S|wKc*0H=T<;Q*>v0MDKt_CxP8G~~
zF+o%C2TL3(xV=}23tx`ruIR#R4M<@lx^%8Qm5N?_LaM7NwwNTcesl54>8Y#mo!~{`
z6{Wm{qw$nU7`0J+KsvF9wc<^7n_)t-p+HO`LETDkKq}-K%4XOEH~Pp-&S}l!4I_)n
z2<QAHV^>DlTK)U2Cn&Dqqj-kWyVX=z91@i!%<JX6CWw-j@G1^YF~z^_IGIxTH5c1!
z?wf({6H}D7q(}JJi!>nciFHD`>F)bX=Qy9%dKG44hnzIo_?dg&XtMn*?=6*fj1UWi
zy|RrZh#(J>=J)q=2<|1#W(&b*Ix)==9g~9l4|?Qmf|R(Vyr#MMWL|}bOdBU(h0M{5
z_1?<;wpPF7r^ZisL?qvRu`z2?E3GB?%z4ePw1<p0#QCp;a6ZbJbs4?dI6o~GT3w@?
zU2$tlrxxcP$51`tb4N3;B*<vsz?E2iOndD;`AWyRe+*^p1J0wkLo;ee2%J^oQxtSe
zPtdqUUb5fvcEKsgN_&tr;aB^81U2r`Xhi23k-+^&V&o?Ro-8Ue_L@#ESlELB=W9Uh
znrR8m@ItBG7?T^9RS<2E_QS&W!5T`gx9o3n2bsn!h|HxIdiNdNb;Jwrjz5i}><|1>
zB$7XJ;&LtI(B9Wj#Dc1v{OU!AR@-mCbw^Z2eD(CId1?Ld*Nul;ZJyC5i4)6G(dciO
zqyoCN8i@5bz6*#N&y2^tVs*Rn$*$u}`B!_3o`z8w0=R|tq%8(uVH?wLEYNp@V!cLt
zZ5k2U4L29o{L4(c6+5@`d?vm@?zy+VC0Eq!Uyrau?sz(KJCtRubiBu$_Ah45EE_DQ
z_;u{v%v^i-jq*vO;Z2&5S(i7wAg@4D=4AL_Ls`e$P_}{T*<IKoQjp?NWB~p|5Nxq<
z=HOlSqPAFs-Nq$s=3fekMyr9?D$cN#-<6XW&Ww{IM`z6=woXBg1(bQNJ^J;8gWpiE
zOt-w`O%9&rd@TLIVXZc=UXa>kAff%NXbb+PWM~;x5Z=LwKL$~os9!NehmlI=<4l%q
z(k6qPMq|vR#;HSy&2#Ho_I0nPMgsdq8=7ZK%YtGCQr*JjDIxe0EF!c(Cw<oVwb6XX
z{!Na7X|>}gKur_F555LJIqMi`=2$B>Q6*}4Y}yy1@_jXlVQeJ{_1G?F(m|Sfwp7a=
znU1#=d@?RUx_0D>vM^77{qj@Pv1unr{QD`<!BnT0Jrxs@GLIHYAl7HFm%Aq28jThh
zQ#fU#e5!lkYY7a8sztxwG0Iyw!q>`IRz@n7Q8pfEotEaixIM@*`TUKOZBcMXZz97`
zhj~-0UHyuzGd4g=S=Yv;$xS9HlgBH1*&a13t-V0ckk8|Tv9SwOEQwPXaR$tt-+`64
z%_C{wcwmF#dY5V!{;t1!=-xFHm&so!SWd-R+dxBA9<LC0G{yBpjzt2Dj<#+b)Q}2#
zvo-N3Q)g7q#uRVW48nA$-Zh_>)1h(7|Fd0y%Prvnz9tj@;yy^LaHHFVAhRatHRf{d
zN2YlZyEj2lCoobw9q0Iw?Q045-92`sW1D1x>_frrrrrs}FvMqBV4_N+B6;)ddZ5ac
zI+r^T*M8#>#YVg1Z*5ps2H3ru9@wr<20X~?lS(AS9X0hRc$ZV%)?|*sI)^-bEe`5*
z+zD^8XLaeV<noF2MtSfMy*#*rSzl&1Zg{*)3YD=1rj8ExPN$sN*pL(D#Rs>X);TK@
zSX5((u%tU2Q`;Zz^i>ZN?Q4?xpjXRiaA7)W9340=c?LYIybQ#O^1l748)o8d0-mem
zXLwXJx-2a|R$5)mimGZy>D9{n+j*4##?tOlu|0PTR#&gHFj;q#F<?<N5Wj0)&%}JZ
zrI`VOUQDLy%hDBQ9Ce*@HsHFWMjO+cJ7KJD8Sx78@c33`rom~OQ?-4M4{4A5=x~+O
z2OBw2OSZ%SyVE2W8<ito$EY4#eQn75KhLF|_5ZWu)~Ua`e2?jq@AAf-;J?x1tMKpj
zz4MuQb^F7Eaml-ONvSKxv$ULq3Ey2<|J<=eM`woa3~b3y`*#<N_Jkiyw7uv*$EO_H
zeE@%sTLSlJ8}ok-QIY?73*PaOQmaO7FE6i5s|Ih!8~O9pNw5A7oJzhN=0%T6_B_D@
z62ij%7?0U+HVxhc&%+1uQ{G>`#julp4OTxJcxtPz-umi>^T_2K3stopzK|6>x>=Uv
zf?g9LFE#d!weNZ>{m~8ZGkm$CJ>^ur72WvH;R{<!!^Gm}H<fojeT-$h)cm%g$+Jj{
z9DGllS%09e=9I6}#Uo*1;rHL`JZ4jO$wa@U&;Kww`@1T=q42)(v_0!{fsP;CYH;Rz
zyq@Z~?Z&UKDtd~9oa75?`|F$)-EyuI3HWNq!H1zc-PUdgTZ4L`jdtBhC$zM+Nm^Q3
zPNmk(hvnl{4w)XaG4j*jYhCdJ8+dTR%Z3610>gXMwa{1)D#oi}Y8(d_Hff_QZCq6x
za!s$StV{zR<=vI#_{zJOT1FlcX5yGgVDEk2IIQZ+hodHzL!_X>H+IKGFO}7{G{Jvy
z(_V43%z9>*JZjxsZqpu%KwOo{tHD!VK9dR;*2p_)w#aXo>7ad2l07U6K__)F>*2@y
zR)7+xgVw6I?W`JoIV%InOO&6_{TGi8W{#%N&jzxi{Z=Ox9xwK#pJ>`yNM+0j-s~*u
zyE*%|oj6>CmQ!81>X26PGwj5L?clyNh336q(NcwbA{L4}Z5ED>1)Sv!c8%h6mEA?0
zny(s~er0FSzl*Y+2=`r?c!0Red$7{J(3{%Nt_I)lQ1n>}W{$jjTYlPqmOKOBE3sjk
z;+cr%>3Vq8cy1TNn|%J(R}C-?9e<`_Wuiu-+HGnVOIg9YM_W<8vRWHiWBfhzplqPF
zF$fjP*fOZKTYrB)Vs3F!BSp@&fs`FBX->jvOJO(09Wqsxst?qTcKYM_9e;oS(5zkK
zqCSV%5{F^72Q>L{N3Yr4ww3XA$MjV(6EAE*wPD5u8D&~~XLCfyYk7o(^2I4f+1c5+
z4|gKqG9kNLsR9MX#p2YApjAg=l4?4Ix5Lx+IIVSP3yBWin<`(nQ2wN?Pgqh?muN!#
zJFco<b?-zoH-}sE0i}wcP}waRqyirYoy4YXAbeSrUCw1pOAXI0{q&2;$NMp&88Qxi
zYv6a+?T!wpGl?z}Je%}kQO~x14`?*)Z+2VppTgmD%gdkdZEwt4Z!%|*o#>JGteEHu
zL_|aw$SZhi@mljyle#|MWwdk(=a3PwV5R0b=*p<*yIfcE>C>~7BngWP+hF!mG*cF<
zVTvpF-pzyE$a7mi?&bR6UD2FspbrMGNWmugvNZZ5xB`Du;a!z(Qw{r4&HI(wv=KvW
zJLEUI!D&~May0pohL)Dg#D;D#0p81F8|j+-ml|ecl?--SRNm}U@$Sv-pMS2;1&|ho
zz0I4z>jVdRzQ*BjD#s;qb8|m9mtkuUK7c=CM_w8}x_Ti(X!z5^*`JR}%&iojetDy7
zQS0KtVMqj}C?nx#4k<n0yQ3rw29wWt_N<_+>xB0ZXo=uoug|kv3Y`fAH6wyj&8D3`
z&o-Hnn!4v*<23w@+jr~<pBrdvIbCAAF1*T{fODE^@KHj8;rJ~sET~$5?;7>g4z`+f
znJ=kqcJTGKfiZ*S?Gu;Nd`K>{c`8(J^GDbTxAM^kzMgN4HuWAAwx9T<!v){|$;b+7
zCG)BF@#<uK{*-68M0>7z?A?`Hm6c|r4j(g;_lL>wr5kEKDr8KRtx$qRmHh+tOw|zG
zsxGq2!-oSWgwnlnVJu>gE(=a%+V)3|?Slz=<iFV|lsOLiD0B`C4|{aDH*@LBVV-BO
z6m|<YODkx~4QJIk-@}RaGUK90Cf}q;d#D^yc6m2T5@9f(>CC#4IszImcreiKaiLJ6
ze12~3?qpK#Anc@BtPzo0ZRH=6^!R0pK|#MjL0#R=#XhAq7oYu&cBVp;vT4qMfB@z{
z<#oi(?J`PX%8M)-7xFLY)VR?7c*TYJR1M#mPgaH&POY99R{J?tU2D8KtG7$3Pc||)
zPgxT>VAfOic*B3gbz*Dq^XJc%+w($c&p)5uTRV2*^wz;z=#dhD?nb!2=U|mX|0%D<
zz7^^&u`Kht@ABAAXC5Q(5ooH^XPzhW=V={6YXz+5d{<vZnfpu=wsmv9n_b+xX}?ZD
zJ4pvl>Xo;SvVwoR>aZ0spJ*Z(i??iD8ZN@C?aalmuu7N@Z2}lUUCgvTIy?w^fP&03
zRg|%?va*U>)E0N2m!JG@_v=d}cL-(Nf%>gUkCJn#471r4*Y^6nlEY}JRWs%6Otquo
zpow*e51<_GN%xUrv(ayqB{4BEyiF!woTl)l$S;SP>{V``JFgk^s$GT0((9uVl9Cpn
zIC3)DWOg@0`s1sN&;w`e-az2WWWCJ16ghI@g^_JhX}`CM)J_rcV8j`|6u1=N(5WLV
z?>bT4cC^2!cI4U~%jvUX2O85=)@z}s3Q&*NCg3Y6zmzxEhrM_yA)Kng+X^%$ut~~2
z09)g;N^X;N3IIL!dyxX#x{5zvF~61qb($Wl2A4y`0Eo}{=bwL40S90sW=Vhg1z+oG
zk-^Vt8KQPjPgZwycc0s5nJ~W638vTD;P8X^o7%^%;iqn(UB*4b_<dF;d<sSz;P~jQ
zuDB)gPc-&<k(a?ZOq5*DfBx_5S=6GkCdHeo{eZTsLv{)I_$B}|2Y^t59;C{-*0v|!
zm{+_$TzM>vIdDB2S2SH5$wppE8u>U~p^<O=8c-)UFI2*!)^eeG{|mF;e!W?hJxPE-
zqqr<UR<l7{zdiciOWT-BnU=Ry<R`@2#46Zh`Af`e3PVKa8AU_YRxzZ$M`9+W%W28U
zCc%3vXzOP1L`L7WX_d#sk&?v_Fok!dz^Lfi<XpB5T~Yw1bGe7sD{XvXw)S7cQYCAI
z7<K`(OVtCUU2~eO+n{a)#QZItJ(wV3c=#?k8GW$XE!FJYi4=J0M|)M$Lhqu={(9T!
zNP*!ZK2gksYp~3^Sth+}cfz^Msv5AH>s1=(0UdB|vcjglg@IYn6439;4LsW2{d<u~
z*~1F#$ZIC<CecfgTWVY1?<{KKO3>4aioVDwAL58rW><yQjib9b6|P%$o(r81ZfvI|
zIjT%>nB)BpX>DXw+c2&7r;T2I8Z{_zE?7JW+W5*EF;r;mJT=!DudzH<Ve_LeU5Q?K
zZ@DT|QdHF3!oa|Q6wWAlQ(iS@hGGqAuLZ1d09HxB@JNY8e>7n0(CwcQ&3RQ!aKu`%
zS=FH#;HC4{A>?6?m#5D!xiuetV|O14+8WR(L*|4Y5Uu5JfX@3Ov6j`JSeW$_9?+1r
zbLgn{`Pxy$jr7_q051+;jnM;qC$1rluz}<l6HAY;o@KJ2lX$v*F7B@5VRcZupn{P_
za1K6jwSF-+6R3ppO!zJ#IA|s#aH&9yN%42qKeVDfUn<DI;3Z}u>ht)!>-n(4NbB%0
zx?u9KNrWcuNd#x@H`jCpuZ6cOxZLhUAT@V;!NoiGzL)-Z^!BQZY~a>2mdlr2z(ORY
z`ptw;j}-k@F<)KTn|FHM<+Kf;P-rhG`+QJ{v@l}-;Ju84E+cezY7I{9sTqas<sJma
zu-(vV^d?l+YbQ%`e<^Kt9L$>(%J6?$$8Y8T^B*SNw3{CG%bPT@67=H*y=rW~LwAzI
zPYtdB+gJS9-KC;Xh4}<Scy%%h3rix*cigT>SA{(EP{O?0|JRh?%u4f<w%14B5XM(7
zMEC(Iu~r7!TeQ}iUD<zq2`Flq-|r6*s<l8h-}x5HiT9lAhzkntIRDRWJ7hv?YU-mk
z;pQDBhF|`4nlK1pAW;jeOs9Xlqi}S8sAh;%P-I**;s=J*n0r5lEtlfFm>GIF0XlL@
z#ee-r1>+U*oAuSzTOy6g^)r;2NBa8Z0ifAG5=YCpJ5=+$f{8-~ReL*&nau^(&2T2Y
z6j_2^e!A}jt|?>>9!i_I*t@(6Cr+RH+wX8^v5efM*5P#u6|ZHnPRP$Zl;gNSeFtBu
z*l}Jg5`2&%o(42^NW~~3-g_e2yXz-)cYP4%zfpy?C6d58>3JJk^6As3Ezqjlt7%?+
z^(E>rPcxN*<vtjGiqQ#>g@^NgL&3<4f`s#QY2RP6o@oIh;6hT)6$x_}Pm6p|Bmn>h
zm|2uVM*Ze1W?laZaLLV-TjTX!4!tNDhl~(l9#kpqYKH?pn8-0E*XSz}S_SftF7E6N
ze0umXQ^0Y&(oO<tcJzWCyng|RKD2p_lbQ+u3utIZ5SWMyQ`jIsb<kw?U*R2Zhk>L^
zkKl%H)5mG@%i47%U{`+<K^KPFG;5Bh$h#kEBe+yx2{|-)Zx^!2GdhI|z1V)@)+W-C
z9%($jv};5R=(M)tHo_+LHZ+M2lNN!-yqy1IC}1(2nr{2rWM{Q;4bI8d?Y`$u9L(<z
z4L`f8Mc|%M4cT?!Q1t#Cf|RxGc*h>Ay8HVljW#B;??u-G?YXQJx!F%~xU?PbWbt^W
zkDJ}7x4(bpu;m2PzS!YNs1Tu=m5|W3M*f+PUB9$NK^mKynvMXhV&ZpP8Y+nOaW3@X
zq05Qp!rY<*YTj5FI$UV1z5Vs+_bm09^K7!eXOM?jnmjBp%$I`$*`l|--o~USAtuI%
zV3%Jlgkb}%Jo*$CixGP4dyMWL9u;Lo`SksR?Y)^J)gz#CCYxx?1Xi8vIKV@BV9d~4
z0E4Zq^L5jwHi)4>mC$SB;xxDvgc2+G0G;41kx5e4@L)GLHz6~%$M<;u+EZ<OcbQYo
zb7ym&%wG~Ubsxw%RWCf8x;oYDPb@)KI}H~;>P!+bR$t)$vO)I_V>I#N?*CXEK&zSL
z27)f85Yu2ZF9GavC6FOiz+73kzu&?i;$xLo>uymc-u%n6RrbA0>tG@HS=YLlB?Fc7
zfIE1-^+e~gb*)-_OQzAk*2lW;`Oll3Zv`3wjk59Ge|yuFvOMmP2IK~nX0qCXD9Z!|
zOZAH@|73b@V^#O7Sz+PRFbuFpAE&MSriOih3*`(2OX(#bF>EHbXBrLE-ms5WsuSlK
zIzl$R)WtBMg`YwvDr_{gm`Sn#h;4z(ndwQnK^&(6oSuS$LN3x92z#=Jxtecr4H#;*
zT6IoJGdE!6shy2>ZtLlKuf+njqkXS<5yQOwC+k02Z2(;=6#xPrjRD5eXL&bO-dz%z
z1Lj7Fa{4)G7NIth)I;A5WPCXIz|cN`g|#I96`PJ}ahz-b3$31#KvT@M+6EpT9wkOy
ziBUWxCK@tj%=orI?TUzoC5r-~J|X&Kb2;K}p;15U<;!)`PdU#1Lpl3=*Y(I12=@ts
zP<m=sERcO6i({dF1e~3DCHlL=o(#i2G*_advvY^c#t_jKr<<<mnhs<~4voOX#l*T*
zj`m4qI^I*K2VmPG5i`U#y`Y~0zgNDp$v)GkPGf`A6oHd_F%x=p@PwwIRt}=@^6fmX
z|LycoTkw=-eSy?LcCF{s+E;$J0-VOmf1*JVRG-gxCHm~U&C(PKEoVrPbDze*0R}kD
zR`)gd5aHOEd;q6GG310;+s)*h%1TH(Qwm^w&jY#%&|j|HAzK56Kz9ZCg4K0CUoUfd
z9{|6K{nsd#_E;{JhBhEDlvikUd>a`R6;-Q+1E~mS=y^Xwz``pdaLoGQ-kMsnmN}j}
z6KXx>Iu1au5Nhz`$xnMVe4qEBItNo0<f;!fc(@QXogSMRydYM}FY?~EC26Ih3G=@}
zOh({zI>7j(cxIR8M4s3+8mPu{Dp8#Fj?h53U}((Hc6hL-L|KkbT<Pae9Efsl{*B<y
zRq4;w>e^=tWxH#!4rGqXNTpr(Y%{PZZEjfd$jC<x#NlVxsZAFtOjleVInF5vyps)z
z>p{sl|KSUy_lTJTaKLuSA(NmWB|b|-<F3?{)q#)g3NrRRzcWE#m8JX_u%pJ!@B;~?
z(f*VoOK9@Cm#4v5M#hkPQ5H2$H7;POw}$|kN)JsT${zu>;1ZYf{O0n_51)lHgAKHi
zn<Nr?7j^eq`aWrMGfG=atMCZG(kWfX#s199=es*>H=GhKaNK-8)$-!RC^SU{Xlxn{
za>|Du?oR_*mx=>;R+6shV@?L%gh=XFQ>z8UNU(JuTplVIECjsoIFNm>U2BtkZy8IS
zc9tM`<=cVr-?T&mYeq@5*nN-31w-YJO#jS?u(<eSB{0D!j;PaqFI)%RtPTD$QsS{I
zEA2N@kwPho4mYTN3Y181ND6G)-*!Ffu2Lp&%>4TGD~;9)Mvjh->NEs!94Q{B&VGw&
zTmlZBYpTY1RP53Nf7ZGB$};C^%+3|)uE(O}gB?o5ty&Zi!Inlw37&{Co{4a9MMpSr
zI;(xp`vEXlYt6JsVYH#dA_I6qh44?INLQ&Y=O7q)N2XtS&>RUEWqkp7zxCIHiq@eA
zJ|v^A<S1`E8=W!pF_@7#lj`=5VxX>Fj{t%covOg5rEypVZ+tDCO%G65t($$+M450l
zulJn)04L1=m$BW(q_!+c)A!!u?UVIh)a0C(Osf8IGr{`{Gr;EpSSu+!$^_)N4nNpk
zArp3J!HiX5K!*RXNHx|gR}QNI6bD+vckCVlVyJ}y3)<~gKc9pH(cmaI2u!4D#Hyxa
zZvk-DbQcl2Z$kwa&4l?CB^FCbam4q6Yd&gp2Pw>O-h<RtkJLplPiLp$dn;7}gdUmx
zH0DfNL?f1zbDmwUj#4Yqzn^~6LpiMLF)jy61uD%@BPn-aR`d~2u(dP6q+UkD2dsCM
z9(O;o$}9+kA@_&K>chawnJ?{ZE}{>lqzGIyTq=QS%|M7;q33wsvS^sE8v>lK1}NRj
zt6+5nP?>daKG_C_c8#pXO`AjZo6mnVfGl9L+-1CSSKYNLh`MUc%EF@HTep76$l^JO
zH;&3cn;wJ$f3<)BRNor9JDAzzYhI>|XDstf&^VYKft|!+ZI?)(cY>i^y}dsB*A{?y
zbuI@a_;FAqGd^pAHi<UCgNcHJ7EuZ@3+bj^{bKX^6@v`OJo&AwGOay31;qFXa;I<p
z^WS>`h-J;Irk0kNQJ)(gzrMVjK)Z($Zj4$EKH1$O_yFg+MMQ{!0HP;|mdOJ2cG?1P
z%nrr<9{8BAFi)c3-Te}B0QmN6<p!(I%>d}5@)LkK+i3=BqgEWmSI`AY8*p_CpYKIq
zA$xW;0*#q}0XWM=fQgtRfP<l&2p0k_cNqLduU!CEOaB0x1_~oY3Q8u9&fIwRJu6fT
z2lCz0C7_T9K+b-0L`>CyVt#fmt<P%%abSp+i|U_qfmos!AOKU(LDL<8&r^)MbxkZS
z(_}!hl?}XX!|b&Pj!oA5%A};EE8f4q|4a%!+M9{d*4Dm5%OwClHhJt(R@}iQ`8@$h
z(NqswzWJ@*D8NH^egd%2tK=2*j3Omi`}NF!dMOJ`XsV#j`-_@N*Fh0cpr_N<WQjh!
z|IGvd7=TRR<sZ4e_f)0%`OnX6Ag1-a$&s<&B~~W8)u^Ywfj<=TJRpyvYp8>&`SB8n
znb{!Pj|Vj21;opYs?E2zN-NVHAPfjD1{X$b2F_y^L}EizVxek_Q8OV^tZxAVLiJZ#
zzC<!RT;NjnugUa0Ieews74I7qae;FhIJ^B>?w6AzBs?s~;zILiL?-2PbmoeHVJ7wW
zfK4uc2#|UqM-+5(4H`cPR?J)she9PyYX>+$=CzIW|9CT+Xk-JK6t2*?$PBm+BIL>E
zSN6$PzT;d~!pR8<uV@L47r;@KwFaW(=n74B#qnuOkAUWg+2{tj`fV_Wza^o38nKpX
zT07w#M?eH;Q1?mwWn*BPuYq8OtXA5zyENt<_u>ToA!+95kjgzfSYqAW)VjYz+EWHf
zpmYc3@s-8z>vZAvkf9zH4FIOW9Z*%kVBUkh10dVs+?fl2%Xh8!ooCw-nN<MX*+60(
z`dSwRbw9QUgY=5?4tm!wug%5l!71r}(+WfoH8dW9Pk0+MK)rdR03xsCTih>eSSn<)
z1~_;P;Mvj;aL@U7KIrpbKAX4#7*ZQVN<s0&So(zKRBr@**qi_eZxeePRO88*xw2BG
zY#7OKbhU_#QF*9;uby+veQzzdxLBuxnK$=y|3<o!pWA>ddWvEKZ2;cD%?$|g3T!bD
zKaH6|tM#dSWFmDv2O59qJ>i%yQR5~w6P@WLkREdHdbkrKKLM=2&<c=RG+TiLaxd8$
z9&jYnchlz1@+Pof|F;jP*{>y1>r48wrj=T}J;3YYZqUT4OW^4<HmSh=n&W^ux<T{i
z?(rfHmElg#bVd)hew;eKiEchvxd#oLi_-{fmuj3tYBzyZu~g0|S@+{7fP!WdAcKbM
z>+6+3Npfgj3TUU`X+Xf-R!zY>U;QRMB4$fknN+sEUjt_r{*k5hoZk9cGWY1?LZ3W&
zG9JYuc1X+mlwp7a+*hhO6}|mQ0NmK+fE{E?!(k67c)cSKF>-qiJ=AzmWYtJXNlQzc
z0xQS_1isCxgq(PoKgbM^yn!|jxs<uuD?bxV^Eqv?YKPm&CHq~Qo13-V{y$zs(_i4&
z{tfmJWIIKgfiA|70nsrL@aQ!|S`m<`sf{vVcc2<@pjtJ^$NK(Zg>C=91dtAYfIH^A
z`gXiQ9^9tnx4Q4tn{s2622@}hp#~d7h10ZNGB<$9*mx9(qU}hupytme2Y~2<zro&!
zot@oJ;68AOXK)e~*#|5OTbVD9*?2Kg#;RZYaB0_@2omL$Ce!{h;D;Od|7rVa)z0ZR
zsaLRI0o$)Vnioi%wE$2y2-Z<^GDsuIt5bV~pKTFqER!_v_zfgq(?ZZYug}$A^F<b$
z&U=*d$b>%wU6Np^yHf#lN~R{xXVl8iZJ*X1An$WJh}RAJ`K6zNEa?Y<_kPQ}Yj;-N
zfhta>84NI~Umv8%n%x8;0=-G8Wq=__iYQAL<4gaLjp0ArHC)Ep{FewkA}i8o#j;N@
zDX+f<YJ{tTw($hiaHC3xE4TM|_0dr3l%FfmXlgkC8ejAwErvmi>^($_bP?QY@VW0F
z?lgD$2GAM72(>4M$ny~ma6MKl?*XVDVCeNhU8R*yfB?;94vos!Z|YIc&+nwS+z&eT
zm|I5v^4Wpa+!p|n!oIz|N_xd_1p;G{7^dV7fb|nU8rPbf@iZe89CjisN-W(stbq$9
z3k;erxWLBt7<Q^}ZTInI=Pshsix|prx{H7I)wCt+ZOMOWaBQq9tzia3Y1|Y(vHIpO
zKFQAB-YEr;0xX742-5NR6RN>zI}(sc<oB*bF(oh`L7qUzX;)ftJ+?N4%`muBv(kn6
zznwpRavAIx1>ME*sk?arv*CBLUWM+~&IbO1{wSXzkhOe(d=?!VIa->Em7AEyo`L`4
zWaD@1zyF^DxS!&3eDSqe$~<)B-;LRKmjunUnQ8Ap`g3F<foFtBUWyz-8mZvH#t-ed
zHR5{qpW9!@B~SkQ^Z)Z_9-g0IceuGLF+lA$lGjY~zkj{u>mjl)QC1zt3l)H<TkTaq
zaTdtZ#33!g-~T<OBRdHR8^~y#wB^zk@aeoA@ZUF2A`i2MPBd;H@@-#x{&xhn9akr0
z^uf-CG}0}px+TyRoukcvBf&c%r<*_I6ZR#hEb<!re@^D%E9^Y!zCyQBe}T9aX{LJJ
z%}fR=^{k&~jb+~0^gk!v8afhTdyk#6!4jX2IR7dSHtN|lK($E!=iw|4toT|>iR;mO
zvYVGF7jo-Sk0R?y3!VQwoOs@*KB+kdxnvf)*tON<a|vl=e{fLJ^Zne0B6N3bHwc-d
ze(e8Z@6E%Z?*D)Bv6SS-U2a67#Zt)@A?vM@RF=YweM!hp8v7Wc+*wOmA`}&7FqW)?
znH0*J7~7Z`5|gnEX$-@R^PX{kKEL~WopY{pe*gS_*E!#BS6%X+*ZN!@&+YYoO{Urt
zq%7g+DTP@72XeEf&6Z!kgX;N!g9qJZ^}u^{xt{2wToDdm?at=2XRQ)G1%5Z`Ulbd;
zsEsyXPqu4QF6EY=1~2K4J2a>BsoTZ?jjZ*YM7O<q{S5bW>t6tVH~rKX%7uu{%$Tr+
zL$crXd9*Tbv54Pm`c>56T32cv%MQuS%j|#4M_tNLetMq$GG*zvBq2j<6GymNee#nm
zVU_LT<8K1AC;;uBsc^T<QZE|wv?yH3ovR^MtHB3??G)<yR<bmDG7(E${w1<6mw+K$
zWq$AGS9EN2`6jAZ^ZN-B7btd-zsN+sr6WyU*Zk(WMCg9m)b!0Ak}@74y+;40(F45Y
z$o}&(;{?`$Ma+DzVRlyJ%C=!tn6%fp%_x&KG~cf$Ec;P4{ouo%Gn0RUp4iDt>@oV?
zTKV|Vlax%88_yE?cw3H6#qK*^%X2^W<jMVeC3yHPZf8VXk4;GU?e)++IX#52ZtmbT
z?*_>y+ED2WP-hz63)M==UN#pd+1HJfAfs#)th*p#NCP`3xWU|4N?_R8QRrS8x-;Mp
z_S$m995l*XdJufpGI=g86_H(MXJqjG^!Zlm%NR1Tf&C&P==$^6Fz5^C{I7mHgb&#g
zbamW9R@2TC%BwYo$jrOlCYiBev=`ufTm7O)Tj-XjAxox=Xy00+L%up!rNlnx1X|e<
zS*ffPKpN&_*uR3-lP>P6sQgv-d)^?B>J4sZ_RrWy2X{|cTz|HEyu!7JclUZD5xL#F
zjdD(MaV|E(UgF=?>;D^vAj0rQI5*rwV=c~clf@|B7UaShB@U-zBaBRQxYgT9@j{}&
z;t+A`Y?~d+{AL}0PD86I??J)x6BbD4s*hV1WzKpi;Zh=m5SpmAWkb)wI9utzZH_i>
z=0KhNhy6s{>c=dhFeD2@iCJU3VbX)bOwtiCQLo!Lyx<3z*75<7{aYo*TEB_WK?zx-
zJ3Bd*L~d_0U^rTy|7cZpa{#U2{gDB`dIE>hRcZX;5F!)Lnu+#=#(Tz5Wxxs$nesFQ
z@$8|s;=XoL4;eL}g)f*cj*p;n&d*d;a(eL5o+7UCjppT5e6MJp-=2AzCxxglR*J9I
z?dJ$c`9&c+hlqwl!zC)gJH1kshAq90AIO2#LpNsdsPU`=?$Jh5IS1xIuHJdM%$QcO
z7Y?wHK{HUwVyq_~Rk4Ru(N_0E9t7f|`ZP|wWU&s?RmP_oMILjKY5Lyjx)U%JWK7KW
z^YHNRo1oG#>oA9VA}7Y}^X*&VgQ=jD9|W9~IN{?JWmLfEPXTLCtj*CWr-(dc{2c9}
z=Z>q?MAb)HntPTc+JowV_b9OmyAwKvC+f6~pC(dMRK-D%d&P+O%E;)$n&$NMjcWt?
z4NBrpEw7s0xSd`7n{MEssNnEC&E<`O*!c~{xOmw62YGbg(6+w-6%g}l-eKgW4Olni
zj&^~`i$Ob|q$;x|Ylp`ymSDc<MU^>}T1#o9kM2$&ud52-R~U;Vq_;d~+yG?vx4uGt
zRnWH=itr#?wVj_6QTHa*_?$MeuwnPYRTgn$T}8QB5ail_%vX`h6VGtIHi=mf8l^jU
zR&M=95nc*5VM_rvm%UfGeyNKyAv_2cPsv<kq|eE?On%*3C{TsR<Y6R`M(l>Jxx6ik
zR1yN!w{Q_*0WL%tIKY~9ipG5=OKh_HyQ13|IEv=l=nzr`oH#%}j~eF^<czQ5DNM`^
zi-1xozv}rYqtcV4oBHL=jgi-B&6HS5Q%~>aif3X2$51Zhh_)bSQalyrV(vYnTLjeW
zG*D<b6&3Y?H+}2Vu+dLUPBW3)d#IGn>(B*CDJ6#zg$v6%M88iF#1$iStrNjJcC8JO
z4z-ya83%C__h<*Q?E6RUW0E;&26E6~FAH=%^FK2H{jb5;DZ&C7gV4DJ=m-0cZ*pwd
ztbRkJ8LbsyiT}?TA@<XhKfg3KOFP3#8DQEoN@GVo2PD`wMJ)}<dZ|;wNTl@RI*m0s
zh;%(2ur>KNnK&UTp_q|PnWShTpMue+*dwu}3%T%)att?!Q?Vu;nbd7zEK!g+xHY{@
z$aZNjoAI&pWAA?K9VuHwWZS5q0-TsvYp25UWXf1=6OOHojABX%a&qR&Y9ClKeRWUV
zQ?iV|DHoDDMd?Cb6eE1vSFeHpHiu6R;047(XR17ttA*_Eoj5V(*jj97z;*paY*=+Y
zSf*0iUJAGPdp!wJse{45X}>lX$|>VG2V^q1X+Rtzd^n;%FGWu#XtuynKWxw}<p&LS
zLW}@xZ=o~L8dLv6{_?M%lt;+{++$JPL|9iuADF@lh9W&*Eq~wxBwEbVy0s|M6xw;3
zw*JlY)z3r7fIurkX-DOihcrqf;zMOfg-}x`PK?kajsAruhY}@r(3I23%X@$|&o&|)
zWTL`H^%tj%=`~$#cL(M2L;E*psY6ws`@-q^4#;$CLp%Lf<K5$4HVQ(WdNHhts;m0>
zn()+V<34VpfJv_Km{}KLI@D>2i*9%CaMWUpMf6<<wuMG6KN;0|W#U3kU?U4_8A&3F
zt#JD$TpU^VCm~s{b;`yO#8DN)BWzyTTJW|ERn;+UYg^^h%VR1T6Bl$j=1I&PtE*3j
z!0nx2e~V4B+*E#LMREYU8_4#|zf8No{XL!qY#G}Cax}VJpPQITm-$z_JU{mRGylJN
z4XL6lZI#VSf30!W79`iX|F(=Htcr1&mW)$7(Z{h@So4(DZ|fVB4qO<b!MedEZh+JH
z&zT3PQB;AGlSVj|h4aRZ<E#+wCJaZ;b~K!^TW<iFKY>JpsnV0W^^AB59!G+N9a>%E
z(68LVov#8g_>P2%@lZhvU$Mo2kU|P<jb7mF<neug{gN-JDxm!P)rk;<IN<v=R5%+p
zhTWrW_0<P%BvQ<AouZ2zztpwQF16yIGRnYFzeuMDfZEOX%qVMWMVkZD2a2=#0bDW(
zsN7F*l**(40s<NJ75gP5bwj@a*dmKE?DN4#6Y%K)`pY4uR+dTYqG*)8=j16I2J8hM
zbzZGxe+H7jQ^!qQ&~V7#VtPg`7w9z7sW<|X2YDERIx>k4rj1iR;=D!JEnRiMXQ%WV
zBW-D)DVW?PR1|ibXp9SlK#<FpOe?526ijQR<l-dOst=RhIb=L^NOy{0NhoIwc_N{t
zFMguSnk6>$^0e{-8<@YsT69x0X^Ihdf_+&gu*!(M%emxIpk?8>pUv_YIUE%NzX|iu
zn%n;Q(jWlU%mF3a_|E;|0|BA26JPl9{3}+Leb%IVo1lSt9Ln4F0G~EAy&Lx-7%nF%
z2GO5YNU+BSh2AQUrGLPMAmDxj;DzO0hs!TG{C72zP@K~DcpbrMHD<h})XZ5qXua1~
zF<c95kvmGZK@mI1(soi>C>MJt&6|e4@1NlKaSthZIJy{~gP&C>3Ew?bC8S{vrn3I<
zK)!1DvdLwNN4KW6FoK1&vt-RvtkxJ-xK{B|N%llQd&Mb^`yQZ2uQY;To<xq19<gP9
z*rsK8bo!UG>KRCi4q)fqXzQNHV*d)xno`96AVyfi1GEaZ+Fv>&`RWL5&0X8H&mNu3
z0SZgEB@9f%goRTFaj3KrDfTp~cJ6yxw2lmmFL#EB3sat&P&{1JC&AM$VQ1%FQy_as
zRggjz0gi;%I<Lny#qfG1I-wt>*;B>xO9E8!v2<xWJm4=iY?3zI(>7-w&*;&WSX(h-
z)>Fh0$$P0zj?A01x%W}R(r<Lx)4A5LStC8n2TZpmOj%=37ZPs-TQ%>T46)o{oDE@i
zzKp?2hjFY(IX|1-Jh+Q<G#XMpY_-W(n6h)IEF0FR`jPlW6rvOul5E5r_n2dBzigus
zHR|#LY?$|E0RK^FEuAl2ReZ4mZ7pmMIDnf0v~9|LW33wD@h^*LnJk^gyGg8KMh_d5
zRD)0ygXDl)vLv5%`usI9!anRWus3E&Jzopv>*CQWr`2CZ%=8nq8q_9=;<?5cqr8yo
zJfcymrJ_EXWd!@>yk4hUa6|vz_w#|_vlm@ETHiGf7UdlpBqK1k_e8cH=Yds#pC=+O
z(6pR_1!O?6#*A9ZM`JCuA`9z4r+XqGv@aleD5T-@(R2jSvUTQa!R8=^ycamE!rrT4
zo&Hp-$u(3P<4>CV8Y7m%r~BNuQF7yO@x2D$0_WC-3GH@A!$CjXcLkFif%TF1HlyKV
zJb0i^C=S>bT{2VV$F>EmzC49A_}+$3I?N9eg?%TU6+MkZE&S}u_Fqhb0}^^>;=K(9
zTI&n_)L9)G>j*<J+Z%LdS_FDXC2^0~<OrZGQsBKPk~4rEOp2~<ivHWkyEKP*y0axL
z<hAqqIXHejvs(p0ya|IRs-Xg+uu(G<clJ^#&~p$ycwOY?l@O-}J8abWm9_WIx~%@N
z#g`(LH9s`h#~!$_y6a=J<&FgXx{(iD^QhFE+WNC&w6#fd%U=XErlrrAP`EeD<=!EH
zr1Fpq;D8}hHFb}9v^0)O+&hW^!_bUKTEFKjDkN`D+lL@}u@by$Y&ahbi*S~Kw3bW+
zmrWhcV~!1<;U!jm)H|HJXAa*I@oza+pCULCsv~EGsD-wK+U79mS0Os9Md!^dJwLy>
z0te$8ZSb#eZMQ-c&r$sYLhnpyA+3;FHVVHLG+m`lcsl3}pZU!h870O6AM~9?v%AU_
z(vW<>QL(2)9Z`NkLf@dNFGXX<>%ON{hObP%!pT^Z0q0d8Wf#7M?rSIVX$eHB1gy_M
zLupUfytK3gI#gUzJ2_eg8@=kEu~ygzE;V>#mlN@Eo4Mwo^UF!tdB|^e$zg&ubA$F_
zZS<zl#54nmbHcaH{vEqjbgE^GYvMDe4p)$Z!t&r{X{dq`xM6g_`NF_@1bqVM1%Am1
zzFqIXjq07f$9y?%<O8>KYG{tAT{>L}k<!ELqynyt7jg(mReo*7QQkuNDW?||IPx5)
zXDp#!@^25jiW}^+hx!OdLn3J;;r$N%ijcP)c!{m^T8yQeAPocR3l|H1-%SWC7O6Gd
z*~p~mFGV!&TG)U?05%FD$byvvl`##BD^R0ao(}euphJVUTvQbxh5?s=v(q%RI1jHK
z@=bmi^&6$obhm%iHvm;o=SvOMzrNr!IO7f|)Ixk@&y^4k=2xXua}yhcC?788a?Dh$
zM+#v0LoEw+{@LLK4mn3tL|nX_%L!*=^A9ObRYXS9fcw3X={8zY!MnaqXqETt2%>i3
z!k0~&AW|I>f)ut9U;d^iELkSQo;~(lATWCzj&-dCeh-@d#DHU9K|JmOyRHuQv?Q?G
z=@We%R$-Od%Ju%r8fW2E$^V@{Bnj+QD&JB6b+Z+8h%&Xgl_=QhSgYge46mGMzR=3)
zR&MIf*U|+>A(z_(+<|0)E{Y0i_5aRs{Xrw|0CH=$jbEK~Ym6eEogrDnyqqzwCsc27
z*a-3^0wjLusTh==>w-ZtUQvGdteF=yl}E0(w0T1DPa-*%#a0}kap35B?D{W?0ZuD)
zx+zSE!k0F@%fMz;Fm~&Q5%aZAkFo(h(+HOM&u&z`QVY^Fam1ql9d1dAe*O2l9so@7
z6{K8S4@!%_{DVUcR{}tDChH}!@$i6@b}2^V=I$C7+JQCl?WI-gPNJiqlPh&gEe@CM
zatZ1NP+NwN)*3d`R46qZDD%(fsqu^lIJfwP{E8|4rbvow%HNTo7Qp`kD<-kU0Ku?@
z7U!oBto2)T+*gQ02!YF#UB}9a!+tQHKG+%q_$?Kb$M18(AlcTaz%4gFY6UCkqXCEb
zBM;Pgh&>2hh>Ao@*tU@S^2EAp1H}XIkd#iWt3d&@`A$d1G&jScA3B*$9C;jxt-ko7
z5BC(gU_DUQ?{urzxbHsUunk5P{_uGe#HGx@is?i{P?T^bxfKs%ezfawh_ik^4}6EH
zVvSLQOAY(E5Sh74wP@n{1PoHQ)503`=xnWGyzy9;8C_IGqiqZ!{!;%ky5Q4OQq8X!
zbEl&VU^u4<>6PVPi_ngsun^h=We6vTFah)RQuW&y4U}^;^&C&@dMeCGocfX?8ov+*
zF@dC46gV)i*NT1#luC(+fKK_GW4{6iTFm2ZNe&yOJdS{c(q?cEbW@rdBQ0rfHfgVL
zQjouAFFZFQCfHD_nW8$-bveh~M_Qv4-o$us-suF^Z)G4iX*_uq>l~7glmQYU96Gzz
zyPTwU;al0}6C;>M+)@-Dt)er~qeS}a8AoaN4*Iz{nRE#^<<7b?MlvNbIpDUeOld(4
zkQ2Im&$U*6164O=(D{={k${|?JJr{J+*Y8C;I~jQ+yA!FAMgUE%Dj3a|8*9?X8w+c
z6Bw{<X~tUZ7YLP+&b9vYZv#STx_v@}4{6`3JmGY0@4?iR@A<eurDlFxeq`_`$sY8`
zO9S%N&H_LTr7@ZL%@D|MMO{I-CuDaj;oW!~+_%FY;RWs32?V`e%<60V(G2$6f&n?I
zPQ7BrE1P*w=w!vLa5wBWlyaI@BN=1BMUAAFj*N`lHO!99rp>P7c*F=F{|d;A%|7P?
zNcWAU2}*xFBF`orDO8A|Z&Q9fVdMbyrZzrmmZC(|=60P+Ei4?;Ghm}qp_!&S3ZxcM
z{gP}7x!~R_<c|p!Y_BCRd!V9!+70;kbYwq+b;i|sU=SBk5wuGB$1bJj?AE(;>hOjh
zEf+9^MR3@%A#6OyOuqdf?6BGf?#?D{G~{npTMTFJG`(}dnbOgauKcs>qa%=k&7IBp
zwiU!^wqfG)9m(*CnSe>2<<L~c!{`A<gD|Ytt8L}iPv2ac7Y5-V6%szs+5u%py!eTc
zWmbWD_s)lMH^2c6oa|d2D0Q~gFN^e}VGz`m;hy0aU_zL4px^qEpKk4|CCssWOorLg
zR1Ky0L|@%xgIta97*O4mieWA&1I|K?TXCQ{XrwZgPex;tRDutrvtZC4bwFmyM5gXS
zUwI2NU3<HmPw+_icJNcyd7xbD!#bCFs&P(OYN8@Aa<K?M=I*jHa+h=m<V!lR6}Xty
zb)7Cy;UG=`mESjhb2JaB0MRO42GSqRZas;4zVG`OROCI(+0yjVHgxaW2Ur?L70fY`
zSPiAS&+#Lkd|~-^Kz=od_HfU7t)xM)933@!W|8>3ILuv{tvar$4!>9@3Z;jA=f6DG
zr_Dg_?j-Wjw!k$9IG>Ulex#n(5~j#F*orGIJX(r;9P>VN5<`9&vr|yVL4$J9WTEiH
zsBY=zDrNA9;^h|$Cvf%dwT4>XI9YZquaeGGE8(R9%+2X~my617%;HL_{-hs{vT5}W
zVrmIcb}=`j)BgQdg3pX{3f@x6itwg+ZHjpfX(;_qAnkApHY5<L-!%Ku2>*t5u_ogW
z5x6yk2!gIsCCpxTtSQ^JeeSDw857M0lfmNF4knCk_9vi)egMMBmvcGRFxKhaCnZjt
z0~!<fpVkXHb#4Rq%sqTEH}PD!d}Vi-r)L366NqC0QlPFVb(FJ%>q&o)CGS%%+9K>-
z-@d+%Q{PL)pduY;vp&AiR0<L2wAbBPTZS_`Hh^tq&=d;Jr5Cl+3Ph`Qa-FOg=q<pT
zGop$hvcZM_up&y5LgnTtAymJg*rc-Pa==<DB>-oFyogALB>o5cS4A0%VAkU1oWebO
zqW${rPZvu5lY|O;X<dMgQs<-b{L{qfLoHpJ4-YtLmQuC<Y3)|3>Ivi5=r4_0cdq<x
z<pls$DG{Wgf#4}ja+vxbEFd(VVS`gcuk=2_`SOhh9{T6Zg1GTDMkyr(2XlzTKQP0!
z&bg=MW5NPx*(Yeb{*kg@^Uq`G?_Vj;DCL0HHwa|GdXU24!peHER(ZgvX#A`aP6~1D
zpX;s|PnukS1fl};;DH#*I^cvFI1r*(XE@A8yOk?R)^FYfJQn4?^;tsA#~dYG9s+&N
zVNh|BgY{!P?v+ynPhT2wbD;!r5%~crh}(mslifM}#{?7)tO)u0i~Wd!KQQEo7PeV^
zU5t}w29;-I+P{ywOM6T)?_2+_AI@UA#jA~$3+0R!_SEk-L3=F5(#Jd#kp!4{XTi<Z
zP-hY<694IMLV5$fSWt9rW+M<Qw0Lx4${77EF{ZT_$95+-2Izb^w*ss06T_^eBqEBD
zeYz2IH57n~xj285fA|NjPI#V)A>@`dY3u=+c)nETA1sVoF^IG@ESsoF9)NjRlH6W9
zk7N{9YW6Qcl>epV>R@aX*$BoEqSq_0O?JdH=71<OYug*J=Ri)5y%>lpU_3`9hqD)_
zkMN~_*%jYrwUPZqYJ>hu!q_6H&MA26CF|>z)<s|Qv1G4AuI)#-S>4H<5$9eGDXvel
zT_?m=|AIUE)=H!M$@BLJMz9HX`?jy^{$lH$quJqsANK9$r9{}qdPlpI+Io0^x%e_>
z>;I9xiYb^oEhB>2PU-8b_b<&y?YdOG_QK&>5YkwmSEX7hX5uIE6(?|kdIE;)1%-|v
zm8KyKzyu6qAV0dF4+1|QPW8s^;Y8EsP@E@TLk|;ahn608o>*U!sx*l4Wp5k%EVa(~
zBCd9#Eq$4Wtj%5Oi2CH(i$-2UjB4qoR8U%RGHGL7ZF4%f9y0A3B7K0Am*J%;@TMVc
zWuo3^D;GHm_-5E7-L`RwGw$1HZ<p{^MRHpetEIYQ2ctEz;DD>^Votlcob$v+*+I$m
zfjG-r!>NZH*Ub}YM|Jj>s7{CVb>KvhcxxAAfISmJGn5S6L%WJ!&tqfGHMBRhjvd0I
zwE{drR#m#>t4j-MsDP#)^0rd$d?{>$p@NWhVH)BF0k5bu(x&$4hSdo;3pQ?&3!D8O
zhH%M)NBh-QoauLTbwPilbBaGel}RO41BfE91~X}0GUE=*_nrb-T1e$j$PRHfYojU+
zHXqlpP-S))6+LA@DY4kHhVRr-&om2y2d~1;EerIm&*;C^Y1FCKDbp#^dB=D#0%=6|
z%~3{yTwS5R*hayP)|Wa#aWIZcFQNg6-<8^_^)GVEPB&q-j7VSl(K-SY3@!FljPMQp
zG%1e6t00cC8R8nrPTU~d4B^$j_0~H`V5R90h=1r6LSe%_OHPI>Xb+$^zMGHVWv+Kn
zz&H^^53)<cVae|zaP2fO0FY?<%jL-M;mf%p`b{m28Bc{uR#a_k63NCa%p{Q0q=TJ~
z4Y8C_`}$&GPz#|8PWKBv$~hN-HD`b1ZAtQYeSQ>Kfm_I3`W%JYJuNb|Uo%x>0B#+K
zTy|(JVvs4@Pv)FaK>qVXQ676((7Kbm^f%f|3ISJ*v%{rpI>-LTevB3B-0w;P;<%ri
zG*es@LJ22<%O=w@BfeZ=vOfovM*tfVE?;-~#!SU2?FPM|%Nle4LZPB+@QSp-S3OSS
z#Uj9Wl}XXyU=;{`$AX(^QV;V@98DSHgh(K?8}P_5a4XJ7S0MZWmeWbm4}i(gcZ$c@
z*YtouQEnJT8IIax+phe-uBMlo0iGZY(UTnx2TZwLH<@0u8;?TW19^x8X&Rn+f>9G3
zza1OtzFQ)TeKhe@w54$D1DUgcLxTmpbqx}n8!Lc>Xx_if>i;LDeNCn2IOva9pw71i
z7!&hyX-C4_30qhTqh!;By}H<|Safb$nX|M0y%nN2?gT<bkhnEV+0@nB`fIaG*oI!(
z@9^sH++?-!2TJ2r+Vjdo%U~vHjc$?aV%WSRy(~niXWWBsj0tk6Jal5pNeb>DrQ6u{
zatRqET<Q#wy4iY5b?!V)3W>H>k#2!+3yrep#_GrcrBf}0xr8IBM5jil88Ci*xH4P_
zl1X+Cuw$~5>8&`cIrsXA>$NuTce?=Dk_fuYFb2|EJfVYO1<{h%BJo{hNQsKtz*h6O
z{Umhi*a>!1RU>vq+)%T0=hmaGzzWu#Af{JOFRg~My2dc*s}Hpm%tPd9^^5aX>a-t0
zdR&Cwh5jfyEb%^zB7*Z^SGfS<tnLG<^{ITc?CeJPy3nYLy=UdXZ<M^nU=uXe0@0PG
zNB(?bpy8l2X%Pdf2=|~h?$%?l;p|dxjuA6nZaHv#I<ia+@2F84Sk)!9)E1_RzZO2T
zFT|->=M`gaUr5Ef1#79G-a+<1Ae>0|Z`$~#%$m^hVUgI7h@ChFY?ut`>RS->C&9z+
zgy4m39VjvJQQ2Df)6=oll9PJ^3oxB4MU*mJm`QG62lGqo@(51)9*JFvYNLOy)mhWp
zAs6A<G;!UdecOK)7Hlcgm>uGOXKP@bzJ7PtbN*Hi%p-#e&_|^s+W^m^(0{bva13s_
zGwQq>N3tt?v#^)rZca8@e)F+(99nzyNjxK^)tmk0a-bXo_F)-eL5ePQ)^Sv3m`dtt
zVn2_4RC^!j*F3H%XrndW)3j_*x&u=ob3{en9E<*`328XwU1?zhWc&*cdz-WSun)Bi
z{RE0z>|a2Ox{JG*^k0WyfU42|6g7t58f#$#bnjWZG*)p~8v6jCJd{uh<i%h3_|hH$
z_NqA4JuL)D9dKdO6{`d2l0N2Uz76v_baJ~j&jv`FR7$tKY-4}QK50~$R#;xp(92{Z
zM<J-*0ZtC1DmmeiA{9%q;2U*8E)V*NQcZEiNGg!&sE@oD!%0HLIvu^@7!ek@_5O~R
z7Cw<KllP$61?6nz)Ec=J-Fq>&VvZKVmTk}(-=U(zwtO+SEDc{ZyFOAAhtMlxFp>7O
zFO(X}4cx3EVM@8tzLwRwFMkKMX@Xe?jX9VAr5zzVpzz#S&OlT0IEtDhb`0N*?t951
z14W#Q0%w2k(4+Vh2pQ}2Jd(p}aSeg|u6s|Pka=905k54af_>{!2{_#ms1bm$@7Nk%
z$4A>ltFj=-c%;HP{8Ks~PQ=0Q(^d<`0oQq8PUj6^mo0$82WSC5Xk)UyLeu?aKk9f-
zC2En691Xm7`D@0e>r69{ICG5z^gggBAdO_N-=tGBE+%MEs_b14{ZMp)nBMQ=9)6=X
zmj3O@9FJ?h?)rMe((5f^$e{mXb%^2mBY$>n7aI`rc(nWQ@|%VoWrNx}pzt`dNwY$d
zQ^q(M)~dbi)!M}~J`uu~e|qwDwS>hmeQ|-aWRC645fQ6wnI72-A@zBwAeZg(4KOj_
znZ<aHsVwJWmx!m0U~7PD&j&#9K-v(;!>9tY2L<9NeIR8h!1l}tTcI2YsJq2sPn(_o
zEoYZz@wI4FvoWnFiogk`tK`|;MkurseY7Rd#NA5SSP{nuaz*@SJe0O8`~T|$dZlK`
z0kMQow9khY7WVjI4#mW-0hRw9@RA`)>x|a#Z0g(M|GT91zmNXu1C)PsVnE>;CvrIr
z9NOBri5E7`Ls%iYw9Ff$^ESIK0#z&aFeB%<RM6kVk%_5#WZLBdjw3Z9#YF|)D28r2
z_Xqzxl)Cs<0RngNKjKztVjYGuIN$Eb?znsItOSwQzu*8Cr_M%a*E1XpUN|vluY?d<
z?67E$*PHBiu7ta;quo)|mu-xqT=oOdh%^_qdu!@t+hBY1?t>%11KkiyQly&`=Yek;
z+mr-b7B-gxXU+husq12&vD#*znyfi6r+X*iJm>MbKe1>XqTV;h>~w8TURu?y{tjn^
z{}iVj|91uI-zPrV$3ot{(kaz>Jz?u#ri@T7t5>c9U<KfkjKY)?>@dOsLPtnj6a1c6
zdx7Crt+k9G=;n?$wf}=`S@)$>j17*Uk^Cjr@BY!#f4yu>DXJMi9qGg+J{jzCNHh$E
zw>fZWc;Rf(w?;>a+2-SEQzyT1r^Tn8ynl4x{X0AthGNeUGzd-vr*rTZy$a?YUbipZ
z?#y^jV-+YABq4Mn`X8mJ99PGrXqWsXnr6td|4K^8hcD26oBG4G;l-@Xq`d*?3?Fgd
zi#W*o)!hc|YT*lKxnAslVH|lkOf)ED!AlDbD&ZluGv#-O;1_uS-Bewv`9aT%ZQv5-
zu0Ot*SP_?RZ>Zn^CkcnEPg4l>WNsN$OV{pz84nBiiIk=NEs6}LcDqeWA+ItYxOV=r
zKy3wPhkxT9ayzPM2eW6aICuH)B}j_Oha>6TcbIEfzPQvq3prfo+y<h|B^=NCwcRnl
z{-yrjp|#}lf{bKU<<py#OwQgiG=!DzH1n)s<BMo{d&?KHo<$<p4^HJjTYG>_t0>fc
zW(iRW*myr)zR|I17FHanzAz$s8cwId$@H$a+9Kkx`v(f{LAOijq)CpgYIDg4S_A1u
z>9!zg=a^y)t0yVas`YuDuRx|t>*B<d^!ZfZB>y!T(vF+_+sj&SO9C;imYbNuU@<M`
z_ZD{BA~o3Pxt_}gZ@os$#81QLqbzbDYB1)!SIzcfA!Im@;_q1d)^gJZzPa$J>(}B#
z!3W)j%f{p?SD&IHqBXTMFL`N3#G>h$6>BF`l=e0fxvX3dhttz-^cY>@Hp6+5z4wHU
z=S)8`#5_A7<Q?E>wFsU6knPfQ3PP~F5r}B;xmcZ-1P@v0ev&qSfBHA<OibkGmL%`g
zwn12lp3d7iC5Hv8glRE`sDf=WO!7!?9JWnvG$QOX&1QOkEKLzo9W#q~yLI!S;#n44
zDu~|85OgSSn(owLSk)bl%arh_1TEKwcJ!UQS8}%&Td3aM+mPeDxBR&s#%)dQ(fk7c
zOfCKHo+|uAUdsG|Owl1Y&q!an3uZj$<FB(dqya~+MLl^neICcm8}c82<ty63y+*E$
zUHOzWkKrCt9~w&Tlzofh8u5D8#I5~3ccJs!i%i|Ofvhh30G3I<jLYe#qC=ygh0%Z)
zcHuO{Ez^}_P|@*17ZgZ(Z4}*kD@uzS!tOeiRkzUO;Xg8MaPV%&uiVu~^W{ta*%9CM
z06IK6z%saXJ6cA&sE(yNCCoEiClh4n%QV3b?JY(AWje)5;Dt(f#@*Q54-d=WWuEjc
z9II_>nG_pqVk{4T)2VstCJ@`|^W&P-GAN6DvVpJ4xC2%euSOtfcl=uVj$ZR{ycNl_
zB3|Pjsq0!oL0cvJerC0Y9h=twr2Xme5S>dCRj*hF{15+ha{3%4i_1<TE;wl(A1ivk
zdx`%{Wupqz*5XR2#88M5_c8<q@mUo<I-r%bru3Hjc^@GzZ#wWcyh%^S-TtN!>gWqq
zuejuW3du2Nc$NR6MEaj<eY&d>vTy9KZ;aID=d>OgD{+;I;=v?Say<1a!G9~K1}O1P
zY1hq{A?w)~E*HL-YmH7+p?0N%0<m%l4oSiwXYAXCV0{VglIDMDXT~iHxfEkfU2M&P
zaC3rG_TTe7_zc{&G;-riwXWccONS;M{~jM0{!aIW_QqyDo~;9(cUrXET8MR6!G!T?
z6mNeZ^F_exlD}L2J<i`a^<NMF_bA}qtF+fyC|agbv{9fDv;hjD9`J1_*J;?h&gaY<
zE!oJMla}SQwOCklPBh)4-haDS7~19YJop^f;&0n3Q?La8#{G>Vwt|jA(W2Tfs`4XR
z-W40#^+fDp=qgiEB<Ni$$Zy(5Jo31-&T1)#dA~E6ea@S8u%95#tr&L>i^GP+iu2I#
zAVMfU$EsweUoef^n;2rQQdQjA;^A6VfoaXaRng}bso4{HDpxYDLQhUVxLx1%^G16z
za8t7bIN!u`SWRFN{L-ZxRTh4x)_=w;rc@W)lZGt5J3Q(P7BP_Zh%k=R@rqj$_!V|!
zSW104eHzjctle$yIkY65$V-jE(r!~{QnA(6YtkkiPJgmy)<&`B`jnrxsDYC$F5CkG
z8Lu<+A8o7HmfRo;ToYZ&vMb?l_S67~(cr(Gf|0*f_gVPN(yYD&G}rR_=%wC9!-p=S
zUDKtJCqHYNn=BL;Ots1!GqSoZgQ<N|fUtVPOFa{$TLru7B)veBctF2aATDeA#=d=0
z>q|CBSYa|v!!-ONAwsU>$;F9)ai{^$hTO`rseP`2u4~{{W{a9-{o8NVN%g6Pt0UIs
zSyB*_-vf4{jFCIKpk#Zzs!?O>>J``XAq^fFX=o>ZN22JDo<`r(o|7^kP)RdEe<<-*
z%K72*_BAM^U%Rhmez5Y`<TB>OX9MDX?VKj^PrD0eO6^K`6u2#TLls))>gjk-tTT4C
zmk{XndU&?lx$s6f=6i%u#^p(7oJg#R7U4-2{Yi_h<JIuuuYFO)ceM^Whd-<!G}q7G
zVnn&W^fT*l&-XuUIP>bW?b2IH<3y6|>e*|Dyp+veSWaT@x1}K7-s)tk86+J^EH2HL
zMIXtz6@9S9L0#+o(1Nz(K1Y#ESio$nm7Nat%N5-&vf6T2<kN?<%nb4#Q^^~;+$f%`
zCogicHOC6;_w-8fRgG$;JjIfVYtkiaLKh~*MDF44oR(e)z;8&v%sPE?b-qznZyau*
zpY*yAY-QG&vgO|LU0=wgk0^_;3tI@B$(SO<-`1@hxWURP-PS$5nB5(w`?(E08VgNb
zs3yL1i(qd($r`#R#X3tV&P!x3-i0eVE$Dcl1O8Hp&Z6<z9x^mRQT}T$NG3T3KJmB?
zKU`m`XSRHC#>BXHG`#7gy~|fymCHlXsS=riN76r>n(7^4@bRk;r9agzraeD0>s3rU
zd~G=yQFqK9<BM(XT(vD!`MIb&AaL^|FY4hS_f&PlYQ!>kn}D7?W2YlQ;#@WeQ`Q=m
zr*qPN=W^Ol!$%{9`nQ)f>y%DgJl*=TapS<+IcG7G1-MVSc(Hd|XG*tLTGw=59BiLU
z%!{!g7eo->%GL;D8Osy(%qe_v5J>&VjGA6DvIe!tF_<Mb(5r8v4h0R2FaqN;c}9S~
zjOZs`qzLE7$K}J%oso~_<0|9@^I(ql){KWLt?YI6YL8tcxh`vk5?V4<4_veB`T8t$
zJ#|Fo(+`mZE#j*CRz3lp6q+|7mRa%{c4xcvuT4pn^z;!-{+e3X@0Gpi%oWLq^FgOq
z?zP`mSnH_z2r%duE#!z$Eg>$wVI&<iqBWL%T3>i<%pMcFV&~?N;U1;7vakKMrSKi*
z(h|1s-1?0UvjY!>BLqKp=q|*Ovn}b3QVVOQL>L(m*@qtk5=0jF&j~#?5SYB2bA7fA
zHo{z2h6>f3G4m$(mR>JVW6A4K2t_|0+KdI{<G&q3{73OY%=oAUT|=@2v7!3io$hVx
z_Fx_r&wC<7V+{!aRaS3&*FLi6DfU6a()p&Ioi2~xi1qsWOtIzetL9VB1!*^0TmSmb
zog1*V9NiruDBa)=%lU0+OKzp*sA=l>UhQ1fEhyPEOlsv+JFk3vj5b2?eUzK^9M>ri
z9fFv?XW|718-Fx3Aeq0}2Y?<Z8+zL0-Orh20ze#Xh}h|nm|c_q1K;Cyb(yN_a~4qe
znO8r8wf8$4k7YUJL|qHPH_C+{b3C;p@iiUOv(G)$S6j-A(Wd+0ZW~srYj-hkGy$-)
zuFd|!Oo)<n^K0GH2dxOqe&T0BM5fL>Z{32`IvM|u*FYOAT}C}&%FW%tCIWBUF7cz%
zMF4kMq%ziC8h2jci1XdTM6;)AGps|x#_1p28bqc?zS~Vbes*>yYYHY^^)TAyUG$!@
z^5+4FL}z}YU3+FL>QGf`u<l4=pK2=ygNOg>NBRuNr94sZRz5yn&;t2`AgTYBq?m-b
z)6nm)W&}wEU~w6M#lg|r<!{SQR~j6|ZRxj%$9vfFzL3JTzE~}AaXaKLuSr_(DlMaE
z`*rgMNt+&&?bDVECtayg@{NV?=pIa~<#)X{WjU2mI{6@FZV&K<cf8ZxYpu_tQu?{6
zl-hpwiUxrd{RFrs=uNsTrs5lG!6WRZVYn~fxJHTZ`$^Jy`Khdn!+-$Yx?d>?;2#0N
zzhcy9TQjRrN3-7_O8JaN=*+^uOx{;*xiR>Wd{VMAXI`TaSXAkZwqJV)Kfd<h7{a6}
z*mPz2LXFfAwl(Tm{&B}kUzOq4*-*Hy&~zFmHdcpq@1ohtT>kJg=JVQp*>iqT7mBoE
zK8!mD@EL$6G1Wv-x@iVW=1KAPTrXiRCQt%VM9^vI;B`8eo7B~e*NnOB^0YelZEs^P
zuX!qEOA`lswE3nqKe#~e_96GTd7CwcmyPnf-14&?M?YD4mQn+NBkb_!&=v)gP5t7Z
zJ&J5_)cf2P<=fwtvQTYMzKhDIzL{E>ZSbvlv>zqY_Yj3A2N|S;Q`+r$g9~w5Hx~2o
zV-BXCca+@ia=-SA4n`IzCWWSt>|76zn>P{tCvMFgQ4xrxa;x|<V<cC&UEdb1vyN1x
zubr7LKB&It0sjr%oc=*a|Guj1KCJK$ChJ_=oo|dER1^YPD|h~+y`hT9rpF+o|CxGl
zHYGUp9qZGP*{)4nnXvffzp*rTU2BTB-KKSicUy6~{>VPkUY3B{{bxO~**6#Czsgos
zeU$4%71P9Le~gM0)2MSNUA)j{{>j}#-wiZktUoq(_IP3~u2fELpPi;5yM=RC%fEzy
z$IOQ=%X!ZAunu{e9Z58Metc(Zv~jT%CX|wBJ5TPB?7|<BvO2Xu=q+)FO+Krp0{+a`
z#}1b^EZ1fHbP_(CS-I9OU^HSInJ>~T*bHEj*RhZ;Jif%FP(IGLxQ5Tu@1ly$I|p)o
zcrxriFwyf%;{^AHlXaI@X^d@bM{oZ5NKz8s_p55>^^(nZh7WB-y4(mt?kn^<R9Wk2
z{Q2jvsS)y|iTEbGt`Gmx=HiU())GO#yD!llW-HjUB?n-D#)bO5&YvdjRA%G`{B@z)
zajz}JpTu-fb&KvQ9@;j3lN7oz!8WhnfO+);%&Rb9UbW&s;zqEUgENMgX)+q(zk5Cp
zXoxsGWB97Ks^hw!!E(CW(8ply#Y#6lXO%+J8mWaJ`UNYpLFU%1$?m9<8oh^2g*4Ww
zH!r#(YyWNH(FZ$mPUd%SIZxb9JdWo&e1$>NoidV@Sqwee65bJLTR<vqbHCDgWy>*j
z32ft~CI164WUU7t43(Vm($kPY5`G<q;MM6qgCdMOx}m%)2ikon%@gp4@G>#-`~&zW
zSeNHplP#{;P!l5&HaH1-$Ry6(a+J4QXwiw03(}}k`n=kBDEyBgu8{POE*!zGFZd6)
zZ|~w`rTD{q>*?dX)0Mr6AQ#u=81&=iM~3ONxqlJxoBX~8y_gqGJV>pjeRFMhe%bfG
zq-$lO(z|2YIzy4AA@`S`#(aeO{rI^PAM(p;9?;4fKr1_4M5^sW9rGUp-(lFJ-#i?4
zuX{c4`sUV|l}u^8ZU7|>@Tc#b+|oWG4k+ZF@PnJ_%=MqCmm?8lz9(aZS|9vsf&lKa
zI^Zs20aPeEo>)Df>`cCUcDx};%&asM7a$5Xzdih<{>aUjC`#pjbeQ{v&lqPN=O+gA
zI3<{x&fzP{pllyW;~DHoT5|B!l?yo~Gnzk_Mn!^ip1D2Fnlf`}yWE&+nA#Nyd&p$o
z%p>pN_Y!>8y{_)czjA9TXv(tP|5!GUp=_^Ev)`o&e;)_y0(ttY)#BqR*-dRi+Yf{G
z^d7^qu*`ij;iJD7WRrMy%yYu;IjIx;tn&e8Jbu_^!GH0M9#^>7^vFUh|4c9mw9Tb0
zpe@o^_sYPhQU&llQczJRKcByMxLq6y;eqqUTpGh@X??wxdKQr3{|W~G52HYt0W!{e
zDnl*M>VwyTV?uA^sF}8bs12VYGt;$!Xnlq2pdHh(^_kqIZd-fq@)LR(Vedwj42`ey
zdCRe~-iyp6S*~+}lY6g=hHo25r5El^`*9=2&DZXWh1b^brMzyjE+W&{r#8v<6QcH!
zroxp1yi4ZTa&)!e%7v*AYzH<UE9oi`B){T3_2ds-2qLC9{Kzjnd6S_-|6}UQ2%{@+
z@k+crKe^O<Du0mF6Q0`2qy6Z22U7cX0zhYtcgi47-7FpfJ=QPfbi*2x&3W+io~?Pm
z!rVJn<KM>c$cO7<#!LA&w_01jAs=ZTlYKO?<ZO8hJrfYsTsZVK%OP&`z<TY&fs@jF
z%=HL^wth3N9)3LR!Uvf5SC*{W8uka(qqQ?Y9Jlt1i}K`kL|@=1SyQuctNy!mP=S?)
ziENqt058~b@kPD<^l6e7`0EMN)+79jllD7~Po=zVw_eok-w4@5BkheYu4CEt-neqp
zMK9uN2IUuFWPr@=Fnban{w^l6UsLQrrR4<bPt0E2rMz6jl=(qAcl)8wtB(a-xTG&$
z`KEldMa5-|!F0p!$UEwv6pY^tHP7KS7_#5t3bKj^*2=pwP(f4SQ5UTXxw$}=#y&mm
za}iL*ub^)Z8$xL#g}|4yW;b-R9tYt93yw*?t`C+davPgS7;HJ$dW!D3TqThGj+NCV
zTlFlOd<_@)M|%8?#SjspV-W??gdmsPcM6}^g8uB<>5fTlMc9l|ua>g2xi>$569(ym
z$QiQdBbzLKH7Yzde4lr2h<-f7)Tm9I$(+WP#3K2hN;&O$@tfY!;==fM5voD^-EO@(
zhxNds<0{a@!75WstTEOJOT&uC!Ok-3y@uDTpF405q;(tK{Z#*^v|PB*qw9iw4fOHY
zec~#vqL2T=%@qM`T}7A6Z_%K!V60|?9}~tC@-!=7<d``R$-FFzJDhiA9?V4YyZ05C
z{WZ80@=L{^q`!ZIce>}*xr&`Y{%tSo81xYu&!U*VJXMO9u$}ZhqWPe$-k(kc>&<8(
zNwhzn8^zmpQJXk=;30BD&dqO#=abf}$#v`kzsO+49oqcW3*|DG)(MY1{Jk(;MuUy1
zO1#n&6RbdP$nWxP_Ga3om^f7l+ldg>AJus@9r42&^2oF<z5e47F_C6xw9cR&<#DO(
ziTSOZH$dTtf{Ma<vYrxU;r;mqe++%%&%fT=j`I`Uiy7-DUm37dYH~@2ph=PNyT77P
z$gwovOgobe%O_d@r4L;9y5M(k1K!KT;+tB~WHGV85U!xh>FZ#1I?sZyIwS0QdK*FO
zbhg*xOmWdqZ+_xifTVi-#Ix?Nl7O#)ep;?18;zyn<_3A*HF;bntlqtx9ZBWi*6DI5
zUAS`a&AeD5$)e0xajqcDIoo~fn5^SOdc^hqu6q;6VwJ6RJBwUI!9dNeFs|w32YRbN
z*Ha?XdTw+*z?z@)`<pKLnKvs#nw~vYJ%b$Zk5I5vJRy%v>T3B$rXVFe5~t6tawYIa
z+DkPYIQZ5gofUc|E%I0sV%^t?1qr>c6@&RXa*)DKhFTZ(^HPszDE>u!`ZMQLyXeW<
z1Z3{ZTwdzHKFI0WP3+dkgLpl4lc<IRmCfgMymq8BzJ_M<6Pp{}lmd43>@D_gxA}=7
zpUs!+v$N^rb4N{!r1&A3v#{;#$X}=s^uY3s0U&0~##N94Ux(F*w4eV`3Ep&=hZB=T
zbQpGTclUW<^B`<VPU$^5Ht0<tF>+aUQt9SwXx5XdK9Pp%79f1O;OJ*{vk?DNHoPb4
zGot@Zgi<O+?{u->5b9A>&AiPxAq%~4X0jeW@N|lB>NMOodnY@8Dqr?dt>V>E3${W%
z(h+I-U0&H6{%Jl-`@Cx8^)0cE(+69YJoc>o)?V>cBq5>Qpx4a&jAB!t2X-b_$=+Xi
zZ^4BO>s+}_OZ0*86UV&OOs^O$;RZ49zTfyCP++}gZ@Am=-0}9;PMG<VqYGEN%5w@*
zD4*4xzww4NMDVOgwg>UAu6=#}G4k$J7@>YkbLx4*M{oo0^6HK8M9*Jg-q!0%<9XSX
zn$m*uOE(Tc^$O!Vm&v-6EuAXEst9D;XD~tdMD#cv@hsBd04`Y9tu!&;f%*Inj(+FD
zk<Lf;I`y?bg1=Zy*25&j4^MASWChj5Y(+S7>xnkXBj{^#v?is67nYva!BFKsMe_ur
zO0nNl)FTnu5Ycz;^Fi%6l1PHvVd?ji?!~R&O;<Yke<(F?W0HcGXH-t<CZ2i%$jb1`
z0DdB$349^zk{^7fDeF5=pbb9}X}a@!^<&j!7<#c%t}f#IbUZ{Wv1XpH`kh^mIG`==
z4NIju?*S+O4;zj5x_8c4A8@cd^B(=y#K|gwUjXlc`Qnvl8C~>t<655JYXu(pSc}UZ
z*+a~0FZ-9A``<#&gia`(hWlI|-{|hva~}&8QTXb4D(uA<MB#vudl)s1QShYB=+ydO
zl*Wh4GuicKXSLd7hTmKt$J_nV{-F?%Y<ua@T0P`uCCPN8rk~%V^R^B7Ym0IkrAJa7
z{dx4`o57vHW3nvtbMF56J6aa^>D%COnG#^*yn%We<|E?4fb3-W3@g3YHEJ}A%rfh0
zz@I+7Gx39JBNtw4@aGYcOeg!BdBV$sMBdLUf7D_hNiesrSg*%9v0R|{fhhhI;?DiB
zFSez}>tEX5r)Ns|2Z(19{$zYN@=yrJ9L$7Yyga@q0ZEIL`%|Z3%k(@0WZHgQ$&LHi
zE4=cW%=v{S&%87PWr>%S<~D|aJOo7Jmb%m_6uCA^vqO8mRrIyZM1V_+OGh-`=V=8b
zYoA2yd{N#(oqq4I%jgp^F<|mZ(s$o)-h(@ZSvN+7q?o-|SBNK0=Y`UZMEQvu`kw@@
zBCImz9>jEs0N+0Idu@WSGDzjv<So3I%RG&cv{jw4DDfUHQ$f%Dqw-2#Hf>|)%nJSo
zJwPPyqjJhf6ydJRgJ66XfP0U|?g!DLR2rW2{xUFb{8}Tl%10~L9s@;dGnl~=vtF@l
zch_e&?lAv)c2*^2#4zKge0u-)&0ioW6!CNO%!$yMX)%M`8xWNxl}(lrHN*_Rzdh&k
z7yTv)U&<kW#e)sTjuI8w5xDRy#I2fT<{$9YwTAoY6<g<4n<@&`u@+}3%@2OPy4D=w
z_l~v3oql-OY>)x-@q=VsF5q`Iy=m1ZTG8dc(%L{<^GXn=*)a5{c_1ob#tV5RS*IKN
z!qI`fC!@UH6+jie$LH|%e>{31e`|p%1$}#7*Pc|I5L)YJRAU%;RMx0w`>Z|5uy}D6
z%Xk4hFW!i*W3?&o6drxPy(-kMox_~?vbt5oMM<(@vJGC|)8F0%DITjHPVd|IG}NdO
z5efCR8?qlU?z#8w9rcgTx#iW5+%>?m0eJa+c$)N736|#9%v3D;X*biA^`<+gJj$?x
zpO|;^8WckI{gx$5ekSl){F-6+jkgv02gow}Tz(soBhESfW1j(gV{rCx2;iy6HuwnL
zbqI8h$Z)fh8A03$k+-K_KL|aIh8y=b_@DX;<oOr67mtG+#VbZvxfs%ek;LbNfoUVP
zm7maUf4XRbWPB^AAKo^I8op4C6HmaGc>N$D(nw*8_J~G~`e{ik(1p)at`42oToRLg
z^syu1J2=YjkdnXMqc-`pLE9&d4^-<H<r2uhE={SnH-62>8;a_`#UE<1DLpH{K(tuR
zr27gO)c22mtSF)(@4gcV8DO^h?bSop6=>SI*nA_uUR1G>^)7!tl_`6!47Rn#m2he3
znga$^lIs9@6P%?bA)z2BfAgA6agss6nXyC_lLge$hKrs#l)N!z+y{au#Zb>_l8^d-
zAN+1W9WDJ;>tg&Z)ORY~TI8a~VOma#ND7o>db6%&YcBRq>n9tG$6q3gzCHmC8JBa}
zGV?U%>d&|t8WwNAuyeI(#^&^=wdO+2t%iprgY!L0(iP&ZdzxfcZTz?9qOV8S`3@>d
z)lU9-H)^9=w&8r>o+AW%!$el1*k3S1d&9R04A+f<0rS<RO}h_9zYYeH;RiBejk9VV
zemu07%3JSW;Ub`y7<44ixbaq4#%**%;7j-i>8HjYMUYD`>=6;GAq8RgYYDZ<pwHUh
z;ekrfB-Esfa|j*?7Ot;c&B%S1_T8tMo-sMG^}w@PJ?mTWW_`~M1K;|)f+)gs-I&|C
z3dRe@3I{0i3(W6687h9E?#oM)-hlh6vQ%OvVSb0{c&QO5HTCJojzZ?Jx!$9%ZqL-q
z2&x8!)#qeQiBj{1(~Y^ebCTn8bhq185kEt0qP{lQVdG=f_n8jj5>!lQkZuifm>P!O
zqMF@D!XTp{m3ACYkVR3`Zx5MDp(E~w9(Ws@T{mKJidYfXVM_B5e5Yc1qK6kHTjrfF
zb2Pwp*}qS+cWIC@10+Lvot@lVtXsW2w&DEK6vKUwULm*q6wFV~N+_rmSg%G%c$8e}
zoZY)&+;1SdDv+T_n-I}$!_Y$Hf?`aU9QSN%GMG`%LOkZH^b7O9xv3I${?sq2k1^*S
zka}5w_(NZap=NxyZejCw`WmA>We0*IyQP0_@x0QRmZp$?ShF_al3~Kk3;<aTCtU7_
z8D{vi=&WYV#~bF)T4uVhWvISaH1#3A>CN|>J)xmHKGJAscGj03_j&+fV3ZT>v+!)k
zS0h?_?9?p$DHd{txC2X#R!5aIy`qK4)R3$?`7r~(SN^=VX4IZ=6V$++4IE%40;=X;
zA#>%>4jPuXX8MQBs8-*Zkf%;t2jsJRb(;vhD|a$pN8>r$L8}r!Od>mzHvpKk`I%~@
zYaHHB#e3x$i=GGeb@5<2-<PecbBSDC<kH$C1L3IaV!`I`Vo;rtPn2T%F;^LxLrWoW
zX_LB`N?z8a7iMp;>pLP<{Beec3P;QQvmQV8Ntf9eCwAC;IpcPHrrw1oF+-ML>|lnu
zAve)6aMU_ZDb6?6E919ORpUeAYb_%rJZm7<pLrU%8G9afZfa8&Qll&%9RxpSdf`^a
z<HuW?pGE6HDhfLv|1|FS`~;pnV)4eYCl+!EW60fjKwBbQd-_`Dx~!E*1qsNn{yCPt
zBRE-7-0v1`;11z(Nr^G!+c<da)mYp8i2FegzPDi=Vzcj+k$t9I?16(CD!di}`ts5$
z(IFS^vr-d+-(ZYk?ki$!QV48U)wP{lQEwmXTngFvBPei6d#dOK6g<f0_VJj56^1R<
z&bM`iH?H}@vPT#qrj=NyKM#GK5yu`lPsuwfp}5^MyyLOOyOJ=%z}<GKPzC~qvdiMX
z8_4!@(~rC?&@%pS`zmvD@tu;@KDR_2yBAfRJ9Y7$UEt5_SFSuWU;HUjeh+{5sbzQT
zcII9=9(Q`JN_fC|p<`dAx8-Uo_3h1@d|`?#cjytZFMaEGoc-KTeDdD;%`Kk1)hD|$
z8<sD>VtY4g-`&7E@k61BmA}ln=eSM!@n-AY%6YF%o|kU<xta0RsZUIYrp~C`ZXb8=
z-qL+)^UvFC+|BXhZo_R3MbEFBnZ9nBo;R5<Y~x(lzUI2eW&fv`?b3bUd(B^OA+WCi
zYy}+!w}Q5Hy|OliG@&QI-?NGBhs&4W2V-CD%K!2|Z~gzdkFMY7Rrxr1tIYJE`?ZUH
z-J7_$)-&jcc7>{^RQ-15e$|;Q%V%eE%1^3~_wEmA4Q)|5P@g)bTKB_Fp<BNNA9j84
z<Bs-zzQq1CXXiKW;wyjk4sGDv++1SNE^Jk2zwywveV!f-e+^bAq^KtH+|DaE<9Ym9
za<<x?yuTY6U*B|)c=WLM$?i*^tqx6ZD7_mO2W-q8UwS~hc#8F$n&V}mwQ}EPoO!Kx
zsF>xU){~WNzb8G_I`m{k`4^4NT?TtR_ng08qWQh&+WFoCM_GRxdJ5S`df)o|^Ge3w
zFHLW~FYQTh3ZJy(=fnM+&WU@vKRm2fR;>JDdx-tUUXJh&SzCOWy*cHl{O>K;{mbpp
zkyd%Np6Z`RryLhEWtMUB(3<P_W0Hb4<Mt+lz88x*AG5~ae05*zQ0T0DWgm^N7iCJP
zD*CmpXR3=VtTq>3H}B3ogW$i@Il^7;`Buo~G1U1;EdFvJY^OhCcJM3dZO=Dfu6i){
zz_}L1ggO@wm$L%<Dt?K6sOK#F@>1^W8G&P^ciRm1y~{ih&v|>-tO+}QNqmq<@PFX*
z%3J1JvCNmp+AW2-{wha&s_o}H{}4)Gf586a_B*ZLz#@2Ncy-S^*Oo-!jaBlT$*lX?
zepo&%O)z~JQ^a%f18=oU|IV4dTi?I=!S=9w>Mq&azkaeGx?l!s>8g0n{Fe4^?b}H#
z51m##Z7DuHllS{losR+P(ItQKm%pfQzj{Z%f!*z`{o2NFsvzZ;I)2#zFLt=z_FE})
zhfVvFKO2G%*GgVFr*ivJuFTWLp8o%?JzTwZ+xp|Xd%)_0{JyJsX2e`5h*#mAuQ_RT
zMSuPd{pJV{iMnOA`>eNl&-@(y|94^U->hh-OWO}iXT*bD)jNaJsR%guvE<MtHEWg3
z4BOs<z8P%Wa(3w7&EczQzi>X5Bbm+F;(V^N#OL2plZx+}oQ+v{`}A*)+TB9y??KkV
z+1kuiIVq?gE;LDT(v{36gU<UK;*RdNyn8-7^R)4-muah1TReZHHMX1I5eIo}lF5@@
zsuku8-?KLbPcmr$_Cc?j7+1~$hfz@GBbN7T4@@seGWA@XpZ>u0!1adH94GJews4-_
u$7$0)fnyq29oX$)!$!H(4S|rk{~2%odi&(b_q>Imb)}xJelF{r5}E+Ojak?L

diff --git a/reference/plot-5.png b/reference/plot-5.png
index 801d9b876aba8f6dbb4fbe2ceab733de10dee525..d2f517e2bd833f6d59e13ce6d91b28241b7f2ad4 100644
GIT binary patch
literal 40348
zcmeFYcT|(x*DW0T!2%w!9F-;p5NXHIJ04UBARxU46#_zN(rZvSilS0NiJ@9TCm_9p
zjT(xCPADQZgirzrC6v44`~L3u{`l^A|G(otV?dCEWbd`soNLatA72{kYn?iN={N)e
zIR)3gWdwm734lNjJ^bS+_zgMf{R((E`cPNv7I*~LmS$}jc;N8Vw)BQTcq7?g2V!Pc
zkr0Rg1b*wLNkHo2n13p_?_SI5hI_@QgxgBj!Uf*V_lR2<=4J~p4_-T;FjdE$VB8(`
zP`&uU;32fg{in*+rKvw3+)T)OA@B~om~`&uLi<;DbXbVA;~%&-2iWl9SL#;4blg}+
z2vJXXEiHtewrqaz_j>-{xBnLb5P_BDoA4%1E_rTVQe8?#vRT14&!eGz2;`j&vCZcQ
zc)=4H4tP5wPO{}nT1H*C;rN30y9fJ+AWys`lzY$pCxn}tPcHoT&)2UVto!dD4R8MW
zll>OpdU8ApKEQsg_wD}uwveJfRt`d*(62#r>+$Xw{e-@Mj3Qd8)<SNv>jb<9G*s02
z@$^0cp5*-&Un+<!$MzW-nL+ovp`D2`qL?s+XSA1zLKGSJp!UM`+$j7JOf&qFm~*XW
zax~_s_JVlsbNmb@OM5#K|4g)R?lfFgDD8Bh3}$!`CDa)!V@pcG$YmPdF)V@l#`?U(
z^TAr0l;Hf@mn10MM_34<{DNrPxAyO|I@HvRNXvrVr-b^kKCyUJSPKmc%ZS^6b|#fc
zA7V)8Qg-ybUmyCtL-TrMIOhZY7=1qCBPnO+Gh6Pl9Ku02OpP9=w$#SWm<m!A5>26$
zzPBn=?PTn`Xm03CaKXpSMEn*9y<8m;Z=%`;3pcS7zCUf&;v6;b_$@KWUATQ$)dy2(
z?_Z*s%w<bD+q$Fir-yQs&{)QO>zzkGjmBT{tyOhi*}a2<d>HGeR~CJPk?npK>$ffK
zi$}U$OY$)YFWH-kb<b+4$zn;{o}Y92y;Q@er{eaXyum{LiN;?rZr!&P;ym8zsm*$i
z*MX_})+hLeKpT}Xa>07icgJTfT9eijx<fx{W*u|0R2DR<z$z7DIIOl#t!#7TWUUR|
ztx!AS#YG=mGBV3^R7y}B&>RuRX}H&|`!`vtCqg_dNG`Z;b3ydMI(?+@@q+!9D`VLl
zq{JpCrLq4k=L>IcU-+??2mcs`sY)A5*r(%FuwJPL>q;G-2d`Ll-NBK&&7qc!Yc>nQ
zxSzd^2Zy*spw~pSpJ6J%Z=b<5<rF0R<6SkR##-EA4AIzNkL9O@*6B6UyzLTkTTj2;
zMMai9z+E}^F!R#SQ@U0kzN<$iY(P9LL$Z29LGqrQ4WLXOfItk-A62eX(=p=4y>qG1
zlNz<cjI<ukpAGKV=YrWAW#y&qjE$o)dMm_yE7+8o9K0ko`;2&_o{>}}k{_;QWmMQf
zTj_LYUU)sH3QvqLNU@6{9uAD}(J^ZLnSaK-CdRhtdRv_xjVH<O3Z?o9@ipUVN9@7k
z5+PrBEc1Hgpn76iv(VTb+;}EUsNd8lEYcx5rFWV~K=mI-mAMil%ySjuFKJsu^yB|Z
zVKiZ&LA7C^eO+G{{}i8s49{8Zi{&U#V2B4BlO|yYVqJ0L;U8@VxO80>43mtx5Y!u2
zjm#=K-d0C&7w{+Ht}WEHZV$u0a98pX7(5GRf3=ArlHpPNQ(@7m!T+jF8tTV#KE6f{
z+R<_>Q4xDL_>XYw+eaBS@QM~kC9oAnE>!x)yIyAc)O*RBfgSHT-R=LH(;k_LT@sI!
zae^z^jz<awPF&eXa*&P=NBBPqFTv2hSes=~eE6q+Z{S_H_wg6v9M|?yymT(zAk(g!
zQIWPJ)!Eo)iO;oqSt7OtMK+{=g?wMfXH^onvlaVjF_O-s&4Q}qSKeUBOUAwtn!^up
zWYSc<|F90vv~Ro~JO72)?P;QFRZ7mB>yPB>z9#2?ii~*&q>@;%*V+`?GZFggQQBXQ
z21G)0>`M-emu%``n{IIaUJvt-e*H#ayoqd6U88ravbb~?AzlY|AS;04CyHKHsDyZM
zMS6`2A4-{v&1%q1Ci0TR{Vl>uzHKMP#<(4CKZ7k93-{`@B^|l=Gm#X$D4b`|ptsU3
zYGIyaFGQB`%jrdOQe(U=_E#a)gk{4!79>$gO8ChY;pCr^!=M&J|5J;9AC-bYu1Ps6
z)$Ntx-C$2&W065V>5|^m1}q8}0)NAs)QKr;6QUJigcZbz@fT6Bi@iJuI|^ntFmf==
z5AJQ4I!K>UDfk{{OULNFTR9eq<UNDGdpo-0uiRB}OxYJ98mxNxqd+Eg=q@On7-Vz$
z8&h%V^F`!o8;VcHH)`egK!Qfs)XzQDw+q@Bzglr!zXDXF&Y_NcarIuDQZqmb1fp@o
zD|a;5Mv3u(SCsM>Hso?GegkGXA}dLWi79OW)mEuNzb%R6p~ec6h3?jI#EmjFU+QW6
zpiL$)L$Nd+Q(LT81~V2Nt{WuZ#vIZcEKbQ$(~qISRNqSHmZVbswL5B@lnW|{>@9~e
zBkd=f=y`Yphw%N|BdovtF6GOKQ#i3Z5sP1fy~Ew$S;ssq(f^6xO8#|r{1C>!+M*xM
zz%L0<ym9w+6BVcmZ?;5nFC)%a&Xshy1w>l7lg$=O7DXZl<Ljfn$y~!Q`$M&=sR|5%
zli_5-M7|1sqeTBS$#-$v_e0F~VYh624<|9GX@`IL7)M+6g-=4(v&Y_M2z6rDQ}qPs
zhjIMJt~)Q=D@<d|Z-$q&e=OP2!&ch!Kp;b>*)4FUi4SMpndW{(A76^EoOUzYaHwK1
z^|A`mB#EQ$<nfu6pup<r{8Y;ED(yaF`D-(@AztB)`;L~67m%UxAIL$m_(D!<{S3yx
z0xyqz?)gF<3J*-24}E;1E-5h}gF^RXccBzIy@{P13_1?CI3EE2=+ON6?j3VD;UR*&
zP=a10{92Xqw49Y&{HLJgxSY~3W|F=;v{bTqpNqnEDo>CPKQ+Y2&&G#cUmM&$0VTX#
z+rEOay0xd)a)tKFYyY0ZyN(~6=k6lHXCg)7%q_#Rh`ns^xWYnvjzJ)&yKUfM2^6@Q
zop8<%J5oF*3921z*0E2u9iUCWm&~pbXN_xa)4#f@+X(cQc6EP~fTUlqgalpSq9`9V
zje{NzTok7J;_Ct=F*0U2+Kr1z>++GvUBT`!UyCKVX0HmomQB)xFy(LD_^070zI;VV
z=XRY_SY$OOT1T)*FEoot{|hVwT&!FrSZPH|%FtZ70=3A?LSB4>T)T#RuKfaAXt5e5
z?w{<?>HLpy+hNtz1@rDJchhw*W#72l2*9a`twD~!6g`~Wus(NfNkR*E(-!eoZQ9JC
zyCxa!u$!{kG@i_kqk$-eK2)uq)OY~Vj9A|lsf5>+d1-kL>*LNXxvj{TDtv>Lp_@EW
z+b1;+MHy}F=&=+5Y&4F~e>nkxT>p?Ut#ZIPQ=zDu!MqHjudg^^w3|BG(j^g-%KQcq
zQa@mH4$g%)<2ATbB_7;2$q<Kk;{nUESK*M|fq%IA{GV97x^|Eb?gZUEY27b%Fkd@)
zK6VyeeQXj{Egn39v^<7I-ek2;GJ4O2y(a6xzHB-qwsiaaXi<Pbw4XqJGfW|t@@3W+
z^WKrONb1enhypgG5F>-gGJog$%1adonM{+UAXW@p=#Htsj%9jZCD!S6n3~R>-|WN`
zo+@;S-kT{Y$iQPAny1RgYnx&59%(pc^6kvEA;!a3cza~C_M15++{-~&lj!M*(MjLR
z4I3~1lr4wI!F+g-;?0Je$)Myb^iGdl+E<3=rs1U=qQ@K(`<;|}*=qz>4g_K7GavCM
zCP>=_+MD085c*cgo3$+K)sVP#GIHlwH6G4f{g>#MFn8q=RN5@dxTXnqGu0((Y0U=r
z)88Kl!G-QR2;+2{EU-$f&?-1HX~&1Z7D4T`FpAUN+kg%&`EaxyeqUcFRTSJRWnlDD
zbNeB#+xVu#SO|O!O3*cQ|Dh@4!>p=D@at>JXd~Bf`WyedRhU7pB(^9iZdeeL*4-h<
z5K(R!FQf58b(XN3Wdh;)$a6ncwX+5tVZPQMLL<zXk(V0}jQjA`w)M?Df(P5QSId5>
z$R_ei`j)7t2K{Uf`f876wnRu0!#P);LkV|F(A+a2(OxH3lGq~Ycg_xI$^h-Wd%IZA
zGw1t*z+626-;m=-z4(jEKIX>*9jq)!O_=mfpWB#~S9osZxV;oQ;i5;sv&{%yxTiSf
zbrCdep(NyON9-x2TS26+obL8_dvqmHuX(mVAkmF$_6)o}-eO-BK1U4Q<PbSGDa||0
z-s{8P+{KE3!z#0j^gfNd!?Ep$_s<Ye8>M(}Azw_{H?7_FlruPii5|@Crgo#@tek81
z4U^tUUHDz0(D?iH&tPPR_Xz6j$s(Z49EqVPe`O=xsZzQqhlQEhD}fnRD}bCF&_3{K
z4mdV{G2&G(QrMIw`z7cjl#!sQzGa%O-b+yc*m-hSKT8Z$#pxT`v*#DCUX3w>9jI@H
zO(~hhRoDB+<B_lfja<-Bac4~ovNLLW%tY8TxK6Ko^f|0j*&~(%(~(&1wyi7FKxh=)
zwsNecw!eN8i0N>!l|V8#ieNW!nXm)zhG8tI@t0oNxEkLCpO<>4OP_WSCYFITA(;en
zojIB*4rI@s2zQ@Pvc=*)lxE_hIug%#qW7sAUK0OqSI}FWM~ni4+Y0dt^?pMa<13NE
zlcfh=;pRu_4IMXr=#q}W>MinhtRyKCaH;D<FIz|qoMg;@SNrdh|DV1Avn2N0a(zZ$
z<++cr$<E?m2CnNfTHt?lV*k@y|NlH6D>sZ$(hjmBg}})|ZWtL$5(DF+jK3_JYhjeV
zZhph_3fvsNeakWU)s%`F(Sioc{!pJijEOqCzxyh5@kK!fhr#Uy&pXfC4W=LCwi$n1
zYc#2lpRY;K8rV}*o%L-btLe;o8>-GSuF#pop4%N#(c)Cfd(IPr)O2b|^hAZQ*$L}<
zyOp<hF#0bF8gDs<xh2SGk~CrD3=eC0=rT)^d4psh>e9McbO9=nP-f~FRwqVjf4i-a
z3w4gg8(bxq>5=}1`}SJ6Ym**hp6eu^hu3P7Mq5z~)jo2OmIL!~Y3u%*>AG%X)jci~
zZX^><)ia-l+(Q)BVzylCMc1l}Y~)NqSAB9p3uH|+_2=VCeCpe>{TJd?lRLhrNRNcZ
zXSXiq+s>MlZIq>-X^a`LcX_^W4fjsh!f5K`z?V)N+%_+tAv)L9<A<+kOu?@AqYf&%
zVs~CU`TgUhQ;8ehS|Zq>^qKd3cDDyqyB`Ezce`7l<x0g~d#nL75Pp%Gvv{#W<_Z^8
zS#>Y&of^jE=ar1RQAe$R<%&6%YmS_Oi)828NVW85N>Yqh1EBk}ar>8vff?CBJ1j<t
z-u=bzkTr4L0jEsC!vSL34N2|YzUHtDLRK7-3wyU8vM2@X?>!3PJj{y>dL)~;Ualua
zxCFCvEfwO0t{qwRg>PstB*j@BT^4}v3Wn|LI|i4!##{yNZ1aA-`Q`GB;J=o86uHkO
zaHv^+!IWRji%4;Wx7^u7aBKW$!>P=e3AZp|`c45+>0`p?+UmVCNMW(o3SljhZ(QTx
zZPLEl&8_aXb>Ruo+!%avT!|(oul;b_F}RhBuCd@;sH}WR7m}0663K~~vBhc3Pr{xK
zy5jDy7sKjbqqLJhZq`r#gK^YRx<wMl-PZ$-ZD}&DF}rQ&kMj=InDtV;GPFF=M8XK0
zs?B>xYaq~+bnm5~#zj%;l)9FYJJb$;fu$sE*1Gcu{i<W@G629u6Jrt|&hDpHd&o`i
z-aE6*f!&+R)f@A!g@-DSdEEAn?+9jO=$U`NeFCQ>+2(V*z4d8DeOn2$JNv*ik}=Lp
z{WQAp<!#5`NBwTD|2$PgpzySzo_73w=mAb6D?Z{ZEi=$2yrh0x1~VaaVCI5>Ebal<
zS4`oH(jC{^!Q}JbE!D1+>;PZL_%)`z-Sg6H{fhw?qOqmXZtChxx=HiQ(M&<cPr^LQ
zD(|gofKV?=NnHB-DM-LSTnLDEObfE%kyQM;2yR@*{rt7JPi_Soiqh*uKbC8p)_<ka
z-StRf)Y1-<?ND|eIj2D$cd%s5?Lz36&IF>bKdB=L%~#AmZ(WPWsJ++;&BH5kQY&Am
zV70eZ?jebBZc#_gl$tEjsOc>PuGrt+Qqyk-p5^auI1}{Xh>7yH9@o2_l&jL{4T&g(
z`JpFbVES{q?%?gnYgPJ2x!ob7!p}b$knY*eR*;{;>~3Aqxg<XKn49K&LTF5K?O9l4
z2O-C=g}8oZdpv1lH%h&Ycrh-7@c6vckMZ~dsJF5+YzD#87WOPvDx46yRrGdH6Q*j+
zmn37*)8;vjrPwA?-xr>8aL-Q5tQV18xSXwqnCNZC>|OWHFOe<o-i6gSwi^w$t{u#v
zShwnFJKWtYv&?eZ5Kuh!8rm!7`3}F|c9N^ucGi!ADqp^3&MVkmigdq9gL<>*!f^Gr
z!<sJ8oVhEQB}^cfzxId#MF>u?A*p1||7)8FwY^H2(%vRSjgwpm{#lx8ZLawVBTV5u
z-6`#AZsc?MYnW=n-eX*7LX<<LF>LO2Br>SzeB0|A%6dyJ(V_c8LL*FzBQRBM-Rb>J
zgUWX!mvnt`>G_!TijLwPzv=yPPUiw|yew4nHr;z#(NFJ}&Fz?v`-*s5L2p+Fu}jnX
z<u*mkTj^n|xCWJ#-tqERcnbGc*mGt>vu6z|=c%3sy0GI$y?&Ncp79eE911F0O-;0D
zLo~v3?J5JR9Yym)B?8G4H*NB(SB;m&an$iaFuNERqA2629o`3XjB`6;ZVpEwUID-N
z?sXb|ULrrY;|bNz8t40J;uP#=X+V5(h=@0<(0b(V4d;SluF@H`dsZ*;YxZ>7QVH5(
z*3YRe^u<y286DxjE+kd|i1tN03|rBH^Jza1`|jy4O=Z|(1$KLHP=f;viW1kpt6iSq
zIe8*^cYyjW1RrLx#B$8ltT_-h?!~wK=Vg4QyY2FIibSLg^=u>7wgP{QyKjw)lTp^b
z`%zD0DBaO0m2v6VCqk}!k+p5~<J?Gw=ZSz?xSz5nCf(mMEJhC^$d~QrLuLl(zbR1f
zL8j?(^_(`bwy%a^2AwJfgKi<L37b=%1C{-g!jZlh)AK;_Wt}SNs`iU)C!^EOS!SDS
z%mg9F<ibKzk+SDbeU)8}^S3<J^E10%*C)Ef;Fr^ueYnhiPlLK%K=mEWj$IMnYgaha
zZ|oN%IkSN2ySV2$GLh@*{o%@`ojzq<M?LRKpUM_I-0#KFw%1{NNn3xir>7S^%R7z?
z&z@adJ#+FT@o>A9*hs{}quUV&GMp!*Mww+9ZR?m<G`LT&LtwEU*KoMDny*7MPZ_E5
zwQ;4fAQ9m|Bv}b5n($gXn|5>WI++@I{gQ=}pnhN|QgZ3C7QGci@$E6{dCWQCH55Hw
zu{|o)dkCsb&k>bI&z!p9T-T6oj0}2a84u;X(rYg+PT`2$K1{Q)4jm2RZnA%4x0R;%
zt{|_Y;Z$24HWWI>BQh2m=Tqwt6g*(+lQED)$@MOF+qJRgHE%m?M%Z;^Y!08ZL<gnP
z@7zi1jK3KD!3&>miWG)le<>bAdx?~i7pG|A?1d2q8mP1(WScuGk4!bYAR1K1mpeZv
z3FRK$H-M&Pq!+ZgJ8AcHk9*<P;F;Q?F7Qk5=eK0#UeL<kysS`7zkHR-_1IFR_rN&7
z&nw^P>JFyW(+{jJisb8;6~1z<i`ZU=aVhn7!Oy`ZAAF+;PRe9h<r7AJoUi-woY7k@
zZDq0#aLQ)C-kh@OO$zIUt{Iq}K7dfCjWr4q_2Guiicx5_u0)RW)@~unxbcz)xLWzt
zg;}3B(5*%Ud}jMDJ#6gPT(Zy@%ZgsnXk2aPUAsiLUgnG&tZWU*BA_C9a4#=NC2oBY
zH@z!3<9bp6I4{WN{ZPu5cuy2Z0LRhuZKI^~`FS6>t5fG={UUxHTgtm0R6N%6-d*bY
zc9VEge}0GaL&<E2N8XH_k&M9LKeGozou|XH5pUi9fgNZMu=~Dt_7vV$c)6}F`_;L9
z;`F_!hB@Soj|~2^q3X;>%VcSL{>UbL+V#12HSv;hGGyezHH1ug|LVo238|P{N&BL+
zzSLJ^4vG_2Xf1~{lubJ?)vz$Me#m~TyP`QMWs#}W-}Fl5wz_rOsNaH<vWIC|`szW8
z;V9-N^=xU!NOK@(kw_`cOsXwFbwzxjdi*%OO7$17eeThK2p1H-K87%q9x?FmLw$A0
zbK2WQ67{>Q@p^x^xmmoipm467zdmBTQlmgrzP|nO-<0gDRMpdl)x~+OJj%@R<ywdE
zyZY)iNWst4xlM!2`Zd_9d0|JOi1?hhL8A7a&`7XC=B+_(BbPz3T$@IrUp`~MHvW@|
zu`1hqc-Nq9ZXYYCsZs6^E9C8%(g4~O$l|jb0S5#E2C#7^Et>1U?%|4CAG(>Z>t^@T
zK5mHaU9dncenG<Qqnhm*j`PqpB=nEmBv!<Ssix3t(yp4`aF5pA^9mwDQRC<ReL70w
zkqv(n?yXdIjeVT|>y@9bV0Yr#4%*PmR2P;q_~TYev9Pe)RI9gJ407iBc7%ojZaf!Z
z!R<o8QUcFLmqyF#XYP7qL@4KQQay9Tz=wIbxVa&Xa#@ovj=0HVzY<Y)%c^7)y3&;1
zSg-H9>QecE)k=*yfvzac>xjK*mK+doo!EYuCo{A~%{TdeXLm*A8<iqPRRekMYJc%x
zX@`dgEd13v1{$~>qF<=k<!_RWplcCuUEGF8rkkZ3+`pZt^uiItZj%{e8JDa>^98ir
zv$}%r3~cwm6JFls{+==hvlX-<xwaBfqYQBzq5;{oyc!lm>K#uL;7(;_r*^9<I~;sF
z95talM!5t(KC2{}NR=1SAC#cfIdVL-(_Lbb-;m3bQ%n}>)#xFvXJ)n@cpR!n7#vV|
z0uF|r{IvX1I9rH1aus1<Ml5SxYvUx^2UlAb+;2^h3@nPHBwo!_+cJus(T}~zy?h#X
ze_07<%}PD!iJ?^AxF!6y5+1yvRP*h<IBKVR@XR!=1r|A|d+t<8V0Gt?ZPPN`x3DE>
z2Yl|c4+joqw=BIaGh2E1ykpwTZDvoXF}`CnuylF{smMniLTj%^9LDsi(OoBs(vZR{
zxq{wQ`+L*HV)ReU{>V5+Wy`d4Xmz7q&(sY*lq&1HO4_uCwa`A9YI32r9hQMxg{e-w
zIy=TyiyUus^O``^>g%ADyAwDZ-(Z99`#Mc;4Za;D>`F_|GH#LiVr0L>W1oDxCbaij
zVfTeV;EB`CwT@hQ1P;+4l;2|2Bu2(|b|+qB10I>wde}RqoyWk<q50Rigz-KHCOOk$
z&}6z*FWIjE9|N_`*_>N;i*uryd5V}B%nd!Mn((rx8Ln?~w4FRBZ8#gSr-CsEjBQ`#
zHwnH#bom(Ewy2fuUB~!#=bJ*Hg6&oK7aMk)N?P>QRVuO!9~#84_L6pN^E30u;~mg?
zyaLibJ^aXnpI4h344&=Q>kM)|gD|fiX5;78)o$5@J?p&DW<*(1zpq6@@1!sFd?kaE
zC_xqME|#`soinLsz8pw5-9bD_%6ACbQxjObo%j6LhEmjSxHAK9k@l_-t#D)sKOMB7
z$iUOj=v|M!m|*~W`mclP6^a*bgD#A-o_d8ms6v}6n2@0Fgn@&=JJVZNBWEn5j^@$g
zYkZ4$Z7s8~7D6~Fr@*KsF{+YtG1GBotMM?SbimpnxO2HeXRmTFS2D@lp`joe%R!gJ
z4)YJ7KLwp`NV#RZ>zbX|>>P06RlhDOu!B0Vw*{N^t#tE$cx0<?6t;N2&e#4(SX~*n
z8J7lY>q<_=>@6I>GJdmVT@r_I$84-RzH(?Ts=MpB$wSq87r-5n_$*ehd$<cT+p2f`
z66;&Sj0kz6xH6t>sVPv!&^O4kk<Wxxeo~iO(|iGaW4v-eNPUNI-^i0@D~=jncdgEt
zLRwE3Y+U=#y#P{4y|S3I9gL_6s=WID7f;LORy7Otnxsk0b7Gm+Rfp$2!$RJisuC}Q
zs*3H3wiG=e3ZKE$=E={{2dvtNDXTA@$+8wvU23}@zj<XNc+5QTK^*NBNi9tGb+H#-
zDCgy$KO(%A#?0&-U#qmON4Z?{ew;ygRP?cym$b(d$eFj{rQ~yOC*8zdHCjA!c#r9w
z;$h+V$G;KCpfMW(>8|nHuqo7@tYawZAa>|;Y6{P7kGB1R2WiPLyHPo!-t#lo<2^c~
zz=sO2I7<!IgifHvg6g&{sl$gf&=vjd-OHfA+=f-=HVAo-PF#~-yeW(OoKU_y5b&NK
zde2Us9H=+F6^!-uf-+w0?3%LkWO;6_rnjQj@~=QOg_kmIB|%bhezwFqd9&qW--<!d
zbQW(8W}IuB+s}-f8Jihj`d*4~B#E}wAM>oSsE@2A))l2qk4pzf&^)q>6-%MK{9C~<
zzbUmPQ4<-89lZ@x8Q(rV&kNKT?^<0Qxm}rFc+;k6vl_h?Jcj8)B?&Ogr|Z~#Ue~E!
zzHR5HDctd|Y&BTMMlW*7DzI5A?cs1(mHh`<2*+=Jqs3Azui{SB`J|)9f;cP=BpJka
z^d4_bohs1}y&Wvq6y3OBo;UN{A?Po&B%fCu1p}DsPBny-IO_HA1&5&9gnK?`&Jb@D
zzZ5KJOO`Ym)(bEjD9{+zp#@(KfqjLkJ|B<eXt!LZsotPk)^m>q5t~X5BGg-}=VD|X
z5w1nwO`6|SGzf%=ZQOrTK5jlzJNG8TEzyXK$ga_L<k5yJS!c~LV7UAL_6JKsrB`tY
zqYemkMep`vb!N4p@Fzz42fH7c^LsDH?f_h@!Ka6v>skdYG~rcur-f;}-%Iy%PT#UN
zHVuwhqsWX`q-DH6P@rLIx$zG%>0-uO2z;V-eb2i#UlVq~Eq_d9>_OUW)DqU?;Pt`$
z-Qv#GZ*J-qm8@*k=$t@d{EkiIR=qo%kt`I?Qc6V0%HQk{j_Kf)-p43n`2>5>oJI>%
zvsUV-cM5)X@k5yQYz|W06ZC%SkH?E7ZibMJdd4-{s!V&VQMBt~N?%(3RUnRayinm6
zom-uFeka{YG)T-l&q!k93hoAHcKd7Awg+xC;BvcO)p_E=#mTdHl=$4Li&NX->z8tO
zUPt@|Ma?eV(mV|%UNV=hh|KEezJcRFqAvuZTaanofZyzSt!8Y~Zv~!5EjHa^H9J3)
zQYT-}tf+U7e{E@(-WXjfu1mTab<`lOnfSV;+pp`TO2*`;x;XrexW@f6KsBisf79Mf
zvvGHy-a0&3ZnOr74T_Wd{L)u4BR{ky_-;8tQJG$6J)1f|5Yf3H<Zm4gdpM(AqeS0`
zbQe1+uIm`ysRnzx%7oo~EX5bCGC|n<<}=D2$d?&Pjx}j#e7*GHy~$Gj*oOJQcL!OU
z0o)bt9Cf4dmNbJqrw8Ha!igP3<z~I3DA#`lo07K?bi2sc=+p`yUtn~a!dakEkp;DS
zToIr2mS0Ma1oKqn!49-xuTp(t;QKMH)U;pIs>4Ye2XW*)g4ARuGDz5h_%Ik@;cQJD
z4vq7Ta&RoI47zTL-TH+}<duqv7bK=O_qZ0$t8wIw7RC+A!>^asr;BhW92Zl%_k3o)
zl_~_QFDocMDb}_wH|8oPg%DUdPNt_IpGSUT`o8aA1-j{7l3LCsvy6BwvulV-H#cEM
z`peMXG;wL+F%DQuO}Tnr>+7OzW9Wq14T{qB8mVKVHKCTU%Hs4Z6y{qQuG<5R-!s*g
z?+iF!UfXV~pg-5nv(HCGcLWcclC){8t-!xAlJ|a+tfZL4vi}W{EGLvj)<&E!(NjBX
zZeia+&G-RLRp!YBpuPwaot9DPz5I5)q(_XAOFY>ssQvHmAITN9qA&1dpas7dKff~&
zc%`k5)~rPzy3XxN;0aXKbqsiM;p~_Q;TQ5<-$?S2xIw-R!@&r*8H@N#UZFKbie#^M
zr<$;9L&w&ly>-nUzV<DXmobc6C1=O{^AmPHol%5+>HXBfB|PwUI`N!p*4L4Zqzx0I
zM8bMP2g}s7XU#y{aev~GSn#9Nb=h;gW*^}gq=;DJlzJj_X{43vA&P#|N74<>n4>x`
z?^<dJTkO@u)WG+O%#Etix-&IR-Lkqh8|4WBVc9{1S--KF%5nL2y-x!s!TS&sTgM42
zH?0!?h3`Qs7_7Ac`zC~hxB-|Q{VNCGx3XooPl)iRmF<U*{+g*aTNRmKq0b26=Us{V
zF+?6x)|sCSV|QMhl*NOl#=Avv9Ty@#bzBft7OOh5eB*A9)PlaMs)vE$;Lt^i*gsF?
zwR*O(*Y*NZnUSF<zba2RsDFihi3>nz$4dHnWpxV{@lVFuC4FFtjmMs3O8wN239vt6
zHPg(et50pZd`M~7t$c3IDR^vw)RxJ&AG`J7`?j(rx<a~#<>j0zW8`x=MX_#4=6vO4
z>dud@2i50(9v54kn>LG7p(77c+{txXFC!nX^bYX21lQ-*6^EA(%vF^~!U%4j3pie}
z7Z8t#xAd{`%h~U>IFl~M3_7PMWxgL>kenIjzk0T@((f)=2{B>ZXr#Dj?7Y0-yd3(V
z+}L<(`th4H%fw%AWe|tz&_(ee-tk7Y?r<jCu8cIOk23wQlNWzS+#p!nyTT}*@MxvR
zE8LfTQ_7uxVD-ZVmVU30%~d;wv)H|DPD<U;L#Vcs@J}YQy6YJ22K~~!;9a^P?qx6{
zky39iD2-x$iyANCHMo9Y+<|!NHk|`C@v?SNGP<DDDtH+SZVbUoBge4>7%STY>Om#O
zk_kI+kU?CM3B&s-NZ~KlRxD;f?jHxno9XB8e`;79jySmmt3Q^JG|aE;5M(PEi))46
z`#gCIHz{MLMMsFOH7%W_jlF_7<ZITEvxU~GkE513;vbeL;dY#z@pXi_8a1ijDFrzX
zshQ@&IT>R8pc})gu$LK>OI(GuOi1Eh+8|7QPHN|4lY6<8UP4RLl8haK^xR(dIcIe^
z^*H}?HQQ~ygyvq5ZZD-IUU{tQjOs5&dj(308*d?4no&VKY<!G(m{zA<K`2JYTK>Ed
z))pf96_(+K5^QLO)gNkUU*DVH8-8vIQ{68d7*~zrhHE_;q)iT-H%+1t<n3m6_Ub!q
zkDuZh;QBDCi44-$$84!!Ti5X!!rnZ*vqlqoM*`wi_l(_^ty+0JnEbMi-z^Pbm2DH(
zO7|<Y=)3yD3c<JzS(6gqQeEb64<yQ<COH&Z;@6i@ZR9<DWD56@fZaZ2gIUQ8Cx@=`
zS_h>|9av}SvBJ1|7yjHzY%Tk2%kZfX>&Rh9Y#kS}tK8k*@F3(gp37k*J>VuAZHrpq
zemRZpUHw@bWoYlY0}!6moZR*PphP(T0{!rv>+7WIM8&cA%LgGVcDVO~qrw&7?BX*z
zoPF90t{2KIaAU;(wbyAavn;VEhYS>W)GUm~^ajD++1JI5P&2cESv~U)g6!KFJvH*g
zas#u(K-9qX<TaTm@N@Q}p84;8f^R>$4j}&f=bU%!`xAd(8b@ybAMb8FI8ftDMR|F7
zA#6(=;7AsAtj4!i;Oy}?F`?6Qb208e-hHW84Q8sKzJwn!9izLClu<gjwzfW+7a`J?
zE73RmJ{FWY_s%98UX$4y4_;PP>IJATN*y^M8pNqK`__KDMe@Wi9*@AC)s~b>)S$Zt
zW1&BzqpdAaR$YCc|I{U!sz%L7PAvG-dM%I9svGkCuut-pa@0@XIBO-qGWca(Or`|Z
zIuqy?BJb)RqfS8g=bT5PqG%c}Vvq!hgLN8DnqOb^p8s(BRZY6zh_eSz;B=faji{rm
zTdJ$8t63cL>({UA)WIT;tuEzdo1Q}3+OW~E{auMPI=@=TrfySHlW7oR!8dL~>FB+f
zl861WFY2O|7ILWny#KMO#UEN0czWwduFBvk4X;u5rVuA0zp-p0jy#T@s0;Mg|9I!k
z^BqP}Sm??tsfNwn0fIG`q^M|{grsC)1$uY;s$*xe@3`v5sJDN<8R7Z1#FWPLj0$bQ
z(bA2OQ4-;LBEpD|dN@JE-R))`dt3BZ6$dqhf%ZNq<IozLFGP7MlKytFOrJVH$o}`+
zBx1mxm?VLH&7(-4y(H@r!p|95x>P-vUW?wGjI3&G&F~)&yv(V#`LoEeJ3Vx1&@RkY
zD6uBXC?+ZgkN<u=&jDE@S={bD27$KdD*uGO@D6E-=4BOGmFL~Pc6NjjslGGW_Uyz3
zL^*1(aJ<%!wy?XqF=40X*zxvqxAJmbSYMtgijc9xWs;hG0Q!v}q0LaaYkd#hV+Lu3
zf=p=q&csMLD#m@dWTwS!q-=Pp4B_YJm%F?F_3Ky6fkQ__)RFB8ENE_7natd33%|!q
z!k$#v7Eu9y>F@iWt8@G0`-2jm-F|hx{xoM~@L1@^m>sf&5AyTbpx@`a*XK5i8ux12
z*{RkctxSGfz9{R`S71i4qO}r<C+22mo?Vu8DWkTF71``IU-qbD&0y^serBUR{RGM_
zkC7@4wt1mWgew{Jnwi+7svp4Xvd`o<W&M{%T@D@NR4K~Ixt5t;AUAnJs?PKIM6=(}
zrw13bN#%nGR&>TXZKRxRW?@m~2Xb*NY?m<@sgr!!qy9_8u`p$js}IAaP8qcizCGsv
z1x}`A*O^ccKxV%Dc&{0@F`MGy7kgIQ0~a11&U;lWI^>(d6S;mr4ILVfdLVuJC?+8>
z(NxLv=jU^1Dg<&4{`m3Z0i08M;FlQnJqwW>73)g(`sqY-#8#_;Rb_=h&YFzd5s1Kf
z)qr~sRM&rKige?o=N3WGd^zTO7{g8(^&JMbpc1hgo$?btt?ljCX%mh68@cY*AQeN-
zmIwr*%C^>z|M|Dcf=GU}0zuU^ZQ%yU)+O5-pXwa_G^KBBJ}9)Qrng>=R(QAq(%_$9
zj1UqMvaB2rLZ!@hrc4-S>LfNs{`3B^X}(!#A^33llYA<hRRrtGC27ZmUWWs1(~O<9
zZh4Mp|4d;eZAWfm+-qqSELuE~H)Q3DzcuyzxpPQ$@BtF~YFpC{<u3g}3i9&)u4we$
zye60GdZAch)d%}JC9B1F!2(3RQlnN3pOY4|JOA0UX9gJn==E4BJH&m1c)c;mcYv>M
z+u}z(9|~`lAMu{;P-Hzl#-|`U9CWy!6Ymv0QI0a##(bUh^t*TO9%(Qj@w(}ybH|@G
zcc&>=TGh>fgc3`;48Zn+kM!-PPD%7;-OXQRP3-UO0A^5)O-W&Sv6pq{&81V-3wina
zW1k*qj&h)P$~2j4>lh*3>;4OUlwZlRD7B>c_%)Z#WLbXYxm542*J*~=aBF3Q9PV{V
zX(!cLSI;3tIOrpM&1Al!mVfK(GIg=%Q_<U$xj};UhKHh}qSRo%`SMeN3VGaaaHs5G
z>RGTz^L#U!W%ktINSK6GS=ALkT*lP8hWx|tFNBS=^eDVP{lg`vn%}VEGj>yR*no6<
zPk2XI`B*?c4ne-+tIPR>2DNGfU$9sfNDF&JOQ2iTdSm&vf)aIfbm%+yu+^puTv$BV
zTj)JQL&M}py8*M^8Fp^$D%Ujv^nk4*kO3cTfv{586q*VP*<1-kx35{pAnJpBQ~rMN
zm7i90?%cT<DchQ|Z)5%wV-FUGiZjq#GgyP64NW*4ZuaWDgu7Mo!`s2ZHN47xeU=rj
zmT5?0Qd(KS>aW%1`i=3+%$Zf;6WVe`B$Cna+8>eMEGIpO_VzvIzKqug`-ib;m8>TB
zwT1qC>-rr!k$?dBLx2TU&*XfJ9{IC2T2}PybX$DP4$*GUi`A8;jIttDxRK4mw$~{a
z_<Z~BWlLFn`l*B}dE>BfRG<Na!PvlSs5NpfhGbdCgdeEokn9*W+adr8q1_qL7k;0A
zZSaJ(i)Ooi+FKf{-N5bdE{BOc|K~~z|4I92-zHOUahH9!UfST1g3qP-BVqt3sCjR(
zYvu&2e!!JC+|End3@xs8tMj|r&1dtLEFi3`E(K8um1ubY@>hP#<GW;DjTCtg_jM-O
zV?%lI)3>0mRK+#3{A2#GIcF*EQK)f+IeJ6udY#^x1ij!#*u@(U!t9Qny5w^YaKkxr
zNdmdYVPpBlpI03XGSqg5nqFPV@B`~TX;tAm%*`wVZ06eNIr+8l$dMx{>U*10a}SAY
z-l=@^6&@4mV(`R;e$#I!y7d(sXRbD1voXT#Qi~ded3W^s&f|m9D?Wk(@+4k06CU~R
z5?YDQLs(+vbFrkU#pk(4UO0iKRt1$s4Y)d&IKPUDDgk9e{sdUcU&jbwOOBl$;wUNA
z^D75c$a$tc(QT)1&_neo7hlNezZ~3qZ&Olgr)sE$!9J_Mns%9s!@a@mwx$ALTse?)
zZz}Sfm|5zNQm5`U8ifzE^Ydb61&=aPQmkcMhd$K;zW3cqR}BvGAXm^Z7o{CfRsm3^
z7Xs!HmSX7172S+DN;nz$tv*@aL(Lk)2k7QKvuy?tqCd9WonTd7VH>jAbX7z@RlyS=
z9cx8ql60lUetdfH?TE79VvhHKrPC>&{0R_~@kT%Z)aDp|^?<pqv`|0VNI$FJ+-_I*
z!Gp;WpetOkcId4p^up24V_VtsMvbqMGuIXJwr(~M4KjIO%zz?V$j#m(RXv^x#H_RB
z2LiBW9Ghk5_gKpwieY;@RjP#WpBp^t_dh?0CrB-3rw1*Bsez243gGC5&0nwbi)xo@
zv@Xj$TKTB@X2P%4orH&*o8_4}Q(NP%dW=_lJ7uIP`!g@92Cd&c#_RKAfekRq0D*iu
zf6(&B9L1rXDfnVHPO_~m^1OP>zex6<pFe-TkYC!d;|;mOtrp6|xv@>j&T!X7Ufx-n
zz)3sp)w}fPU2fQAlH<3TH1crJE&w%w@%4n%=r#EMM%cc;N5s)nQEBa*+ZKwar~7jX
zx5tz+cUq5EH;>y0xts`B0Uh>-SwLrzO6567xaRWT0+0zbi#Cbz`TnO?fqvQ21-p<{
zmf^L&+uO9ku?h4eMbO1A=%uS{wdI-SCsoZnUMy~LkHfPg%qC}VR`_WX)e85qOF?^E
zbH{W^WRJ$(LFq1qDJPWWg9i`VK#Q)W7nF8gA^|OWL4AAvBjU20>t>NG-_YW4X^IXB
zXe3rUp>lltO=2O~oDi>)&k*UoX5>W#l_p<QP*7k5Z*OaRyki=)KHt-8Zzm=$E?y0o
zX3)l`=QdY=uJIf$QOulA9wf|#Ed<U>#Q-uYvaIo;9Abw0Q!=rIWA(us_Pg7R%WB|7
zy}CL&h?0$j6(f1bj5Um=A()#w<<y<7S_j0gd;#dJLx5~dGn9N?igJy!UFLthZ}0A&
z7-$G(ZSVyz7VnpPOrTMDjIu=BdSKw%Y^Nenm%jwyHNT?7(l3H4Ma)gexsAAnfy}9w
zHYVvPJ6t&a%nvlQjf(RUR%b1X7}P-zQ-I6mN8@!{Id3k@^8vNH;wV26vgV=gb<{VV
zX<QNij;U1xCG%}73NO;v)+)sjbpemS_6`j<n=n1zT#{whF-K4v0HABtkEfb<w-!sg
z5ni)6r@a7n*EkjVZ5V8t?=gG(zGCXF_D7H{y4I)r0+TDkD;|bD5`!F$<g3$w$hi)A
zzJ<!Vjrf#e83gOF#hd+gb#=T3>bvXvO|`q~NxKK#C%-;x2y-^b;_Fspxvl}nF<tqn
z=V8|F*UyFbKHjN~R-w0Eob*&cef^i?6k!nP`TbW=3D9tICu*{;7CD?fdp4m0*o)`T
zyQvDr?|XyTCH8N?fo)yMYKJ!t?jm-jj&F+IYd{k0+A0pY8!5KPKl<@5pegDcS0lY$
zOg`1CU9<@BH=`197YN@xxzO$P69y`)-|vNO_h#tpm8YLqpPR|fKySYwkw~fSiDDi>
zAO@<ttymEIK~PHjBaJfF$uiD#6p%XzEIw?XH6ao_mgI2Q($A1})fVH%wadfp2XMOS
zZ}`Pll(9?xs1@_((9x3tMwso5<**H)ht(eeNS;cTb5ojQ^UUA(ws0!?lNs3m5`DKr
z%FYFgExUo!kslEk{`d@f(+Oy<*GxM{qeYqfSWtWTkrQ{c9mVsu*5=H4RRUIqOC39v
zmH}`>ezBWuAJ9RAlgAh9)d6XTghs~`T2d9gleI}DNTPmMTbrVO9RG{2lb?Kp4U^9D
zdZUI*kmXQ90v<?z@A0=c?ES=Tsy?BByh-t;4$#H`2TLjfoii|)bI;xY#^8h%1&jl&
zXceQj{ip><!g96%zqB-5nvE&%7^wgV8t~DX$hw>2yNc)riroo`Oavly5fIpR;|7;T
zb%LI9toG@-O#p*J3b}GwU1--E_|ZUa5q;OcL1#4vQZc?1SUb(DcV1T&gN`$32LMVn
zCKP3?(Va3v{oX=%m;4)3XugXrCL>pBftC%WnA`#6-H6`b-6#jKI*(XLC=eiWx`g3%
zOK9&i?7uGI<MogGki&->!Mnay1-hcbE|g(92jrRGwQJXgRP38yXV<&h3C9?3V)d+J
z7eIXrs*Oa|CvE_@<_T_!KP(_GUkU!N$<ip!^I`hp;^Kt+Fc7|zQ_;%q<PMy4OS$W?
zSCF%_b5|x75v2LyM&csz#PQ=HM`S??y4CkXVjU!pvh^6C4X@u{y1L$iF|navA;BX+
zn$fla@(NKC4ZGh#!<qTP!7aQ~Y}bhXh8iePECkT>|7~gO2b5du9x`a;O7D%OF}t@g
zq)rBZ*v{$;wgn#WYjRDoe<G)@KCzkv7*E_T{t@KbKF0aj84h632jAU{`1RYMf&H7a
zDOBCb$qB1X0%E-HYJZ(j*xZbSb;Vg7BR~*SOyMYzM8DQTU~!|tDLiPg;3oK-oSd4$
zAfc<RB@rY16pU-|{M_45`H1>$Np(u<;qtI<m9>uHfeFC9Zx<PI+j@N2E8QN}Kj(ml
z{FC3UX}mqy`hbAK`p?_XHuh>dM>bI|yjkesv=P~Rpa#N*K#^VnLLg^SJ_a5y{KjRV
zV7QH~ZT{p^+q_Q%2t?D$mcTFrU7J}9>hp0+_^BE`;7-P_;Mz`sqGJ|0thx1Obu!t!
zlL>;<sPy>P_Zpz0o#{PV{Ar&;w&>iEoV+7UV4G5Rw&pS#Ed~NDvkWrOKR^fH6Ng{0
z@%*A*SkD~k9w~D!C4j^P7w{coxAR8}eYy3RF+T`Je!4g?4<S+BW1zNAGPi*n{Y`r!
zls30%Y@o`(+D9uo(nqVkgW29HCxDuel+?WIRT;eD-Xay+mX1Af;zT8!)coc$@A8Wm
zi7v_xTYwYt6(q>Oa3JB=K`s80-!HkYoU?lmu?a}Kq%?w7dFK0GntB+zeDYi5gv0Ls
zmt*`k^bu51C@J5(sH#4N1`A9zGr5f#q^5}2X)9)s#`YS`5BHo8P&CjjJE#9hj9JlG
zeh!lQCy2W#pgsa-omL?jTI-f^B`QSp+O-wgI1QlRlO(Mx7V#bpTUqb%ifH;H627en
zNR6HDzFgyARYsq&IVZ2ux>>fb`u@(^0ww{At?cYRj6yFw9(~+GNL2|e0irnI19alT
zF_04pN^f>|jauk-LA(qKi1cH=i$jmU*9ETCfEMQe^>GXD+}6Q<14IQmjtS_ws4M{w
z^nAlc#{SOSSO7Hy7}C3S1D#yiH3vM+3=Kc|0{s}dvpgmHbjG<{s_l;tyr1xEK%Rs7
zz|eL0d&5UXtM|OUy<bJWdX>Mk-fOV6O6p9JUw(HhFj!TJ-+%P6*hJtQZz!YRTqG$W
zp>A<zfc$RcJ+R+ZnfRh#5-Cc)3vrk}Pz4@S5(W&FG@aq%@Dcu*XBqZ_V+=TQpKWGA
zZ=h(hL0s#<yr%;^Ss2fahu`0r+xqtZh~`yBWIQ_aQ6MI9*EU}GZiNnMi9lZOEwg+&
zjRV5g#KPjO4_EBFk%QT5WxQ^`iJm+G^mo@ED<8fFftKqy0A??2uCP&ju~Sl7>f3K>
zt{Ck<JqyUo>V`83O0X#Y5P01;fUP(O0Spi+a&9hk!2LYTIraUm+5l=NPC7ds%Ii1u
z;DoWL6fOuD_JFpDJ!Yk<b%m?q^ft9fecVl$>W~_=klP3vs_O_)mjrgo|HeT)V1cH2
zCb`-e(9BP7Tv+|^;e!fWGreRzLjg_cYgT9zST|8q4L6a8bTz;6AWcpD=U#xz8`HW{
z_3O1HQi5>7-d&);{YL#KLQi1sUNBJ>$lTy*3}rEYh-8G2EHS`DSD2@mSGtdZZc$hO
zeAhm!6*QW?vnkA_+GREQVR~v8anRO(jC71I;GF|dIOWGUc>=xyx4vO;X6BrUvJ9AH
zc!z<3SS5QJG$^qPaL~2?GXfkB;DIL#s|d9;oO4!3D#OidQ$^9yFMV`;_x&iO84^%Q
za;lp@BN~$x9{(c0H@wDX{@mZaz*t`q`2#Rex~DGxba6=|m0iCxMC?Sp4}~;xb7r{O
zdv5voi4(jL`TF6HPK<W-`jwqq?J-+)3qy%P6zoqTOf10ULg-s0*M11F$Gs5&ulZDi
zww<%nW>L(w{Gx`SYAAcoLW=^eIjqpC+@<`Z8@Xaxm&DFcgFZEM<;yV|G&gu-NqRRa
z(N)!Du&};1Y=5s?n<U+>;_VGWCizy;+tC-5ngx=xsOUX=cHF1;E{#)tXQgpujXGR9
zX9?um(l!`J4UpNjY>$z!EWvxl@Tqoz^*a$jS0K5M)$HaR-kI$$uq<5`q5vvfWPamP
zU+kTFr;C*ogHk{U)z^S+^(Y0plm|WnsA&njYIF%qd&0g`_jJuZ08kEqcyt1N!-?np
z3&_=VKu+EHU{fT!g$S2pV1~O{Y~Ld13g}q2a@0$gENYz9SJq{ZDFe-H6bL?9_nr?;
zKR^Kbv3Nl3`W4yBJs(?IFzbK}b{=f5Om+e&mqNW$wm3vmJ)6EhJ5k#tHrO3l4Ln*c
zi%Dbo!!NPX2jrH5)85Wje}Np5Ldrby`@_I|Z{=k0rAAt;EtpQAf#l-f1Q;29hsQ(n
z!50<y3DghJGFU+R8XJNc@3KcdW58q484M3uqGWg;%bq<B*90SC_S_p7i#)1-O8Bq2
zw=2I2YnNP*ZrQ$i!GxHJ-C$6v<=fNo23>7LBKd~zLZ4OvBC<EzfZr70fWfv!a8UiU
zMYDzs`=;fJC9dZuFP13e_}yn035!9kY&TFnQ+^~jJ)8DO?2%aA^trx0h~Zuj(0>|i
z7iL}d=!Q4g8SkAKzOhZf`wZ2!d0=G`%j5N|WiX{5n+4e^0E6K<w@*@1l9FA?pjkM<
zYqn-nE@WD5I4s=onr<Bi!-&Fd0Jh-I38Kc^dN^37L0#DZ{$vvH5ra5+4@Ar$BDk}-
z4w&M-o?De-S(w2$^5dIrY?B-Y9Da+e`{?EjC?HQWGc)J<AVyMwZ7p*g=mSE~{QF2p
zN%m|AEbIA6V9bhCfPQbR0#D{Q0*gB#l4oCXre9*74mm89<0p{l9Rj8tkANevy#NL&
z4A7i?ZKTA+^4CG-qI19?@G`APojGLhZ5K={pSdjWuCkMr;=WD3D?jF7z`X>ZIkCUh
z9kwSbr`|X>0~8l!ioJ~xpa7+CDuHxlyof=AxZK!{7M?YA);^kirM4G{f_^T5lyG1e
zrgPb@p$N&Io`AlPcI=_YA<hLATDGfv?h+U3VHzEFD;7|H9D7<Na$4tk#;&qcSL)YD
zzMy$Icn~=1SVn>J^_Y6m50r6t;~t}k6~tWJ8fD9f5azIx)XUKi4P5FiI@ifj_n|H)
zj8qNC^!J2M?+Kn4zW*n^t+dLCy&9-0=%-`GZF8@syEdzV@X636@q&i+c#*AlnJZ(p
z{^rhXVfg&i<)cdWW!NCSw|`IW0vA=V4`#?)M!=F@n46wnZ13ul%r(kvH(=}c(57?d
zD$-!^tv<504X6>(um;8x>fpRanBV8e&HU2R(v5%rc|QhbJUdHez51+fa6Yp!2RNGU
zEybXxm;;?u@tR*9?FkyMI$O<j19O%Srut_&Bg0tl!S-((Y%EXg=duM^d|H|<CO+QS
z2ULRO{9w_9G|+KXl|Y<7mMSrx$#jRbHwuhAHR)P42V~0y)ILuDm>#MR0>X{qQks8f
z3TC6VB_$<aK~vac2f>@QPFed3o-PamM89$I`G<G!-uZ0NXZ+JarSIq5``FB7R>PJI
z^3EjuQ^2|ze-@2`5BNQ7{QUv+Hj&1QqNOrm=-hH8lBXmGOwy$4R+}$RJ?!0dj$D+i
zng1X)3&eX4z^4b8!n)bAOPf9U0lurT1gJ%-J}`)(!i5~{+E~1`vlIi?XBLMyyjI2n
zZFwZYwVDDrK|9-l=>aCset>9~#KGwh4M39!z&kP*nGTwOD-SsPh{yCbhV9qVxRJw|
zQx-ReJyGncux4W((<b#|_rSXyu?vj@Q=iXpMv`@O0$+cn&&O(VRtEz)t|ettwUWm^
z2hrBLc<QoT9owT3z?6Ql5lk7LcD+3T(Y~8UgUoHNJNM=E!~y|Ueo@hDx)YesO|@P|
zTbWo<9lZ<y#rX#~K2V))1OrcHTp`!V=-yq;nnvy)W_YfQn*#Q;4oKuGPWOOnz*EQ=
zI7E}uA)S&RjqTg?MAU<Ek?%l(Wp5q`7kBmBLr>_yAw2O`X(xeB5>4#t8kYt`Yc81W
zh5KRgUCW2d&Ox38fFsHSHQNjM=DeZnJ^Y~{m-R{FmPU&6JIBDV&{to-tB~z=#OCV`
zKyr06d4KZ6lo;9Aq?SKyikhnNUsh}QU);TSSd&@XFB)Z(84JwltB4593<!ft5fG&7
zFrrZdQbP+xnv?_;LJ#0DV;K-MAV`f$PY9ufKtc#MkQynWCqZeF01+?*0)g`+zVG+V
z{`T3|KKt6=KIiP6f4E52v(~-t^1Iv03Q+8O3s71`1J6e81OldWrYXE{znSmUrp0;m
zt<1fP6{q;6DxRQoH#h60@+NJamY0`b0k!@tf3i}`)+reKJD^ShS^^U4e>P4}{G#S!
znLUP4clp|bJ!kjSSM$P`zg+~Q)bvZ(hno%Lq7&JbU%#;p(nW*;+F|>z&g?&@`d|9z
z*rOU<*bawp4KI`3>>@zXf2vMjCjZ*E23o#Sss-F8gGJB%l~G-d-t9*|08$0h()Gc1
z-B+PSDUiqE%|$m$PD;ANEn5@kv$aRgn-^&GYkr>nX%~%o=);oF_a?IEe%z|)!W`7)
zm;Iw<OU#Nykq6K)OWfmqzlf&sRH^B;D(qz71yJ;p2X3jx4pM1nRr?v2C=V$S+~G)b
zdiWX8n_d#wOoWH0UxgN4)lcBsAIiF`2iq^^N}0~LpI_k=cTC$KyJqgEW|4u%8a=-X
zRauDF)aVXB1Umb!v&Z<y9!qpa@u_T?ulMn2|NiOmcmHJRJJ5gQlAeE_765@9t^ubC
zzK(wO`_C<V|M}pdfBcVj$iF@a-2Wq<dYjJ5Z@UsPgxpF%lGDQv|9a`i@10x@sP4G?
z%g_7n|F~!8&YyR_`2E`?-M<p&Wl}ySPW=AcdE4;a<HLV?um6<%?8iM)-@dy(eDGD~
zqwf#AV{v(DSX1&1a&9cehDk2vuE&{jY}sL)SaU&o^OG?WTM$bVE11>guk`EK?Uc0l
z6CWS=+S^ab_}bX_D*EOtk5rC-)zc#yJ0!;@S}uL}l?(qqMeboH2wr9Yz38NXTVVJx
z4l#Omtx9e=stDW3B9fky;Yd1X2LmrSEtq6*u_OoOiij?%iI@*w`rkAKbIlpaST5n_
z7QQ5njqNE{a-$lYj1}`basDO6$-qGy&l+aEW+vlSO6ak-uk&*_Pu2kg243Io8R`hb
z-lHGGxS3Ux{gC15^w*~u#8Udbt8|R3S#vvwi8C#WVU3%J?;ryWn(g3i!U!>=T}yho
z6(3RYd<>%)HJiEDq;!^EwiRW(ozT^^#brF4>DLmE*EzhCwH`awwMNIXE9(h0t*M+w
z#+=@)5;74bSzkqcBA*u9oq|Cn5(_9<Wbs2S2M&DhVQU7o&MJA~R|Iwv9B}>>m}yK`
zj}?_j^tbSY9`n)^kM)}RrfEf>tv6{eTQ#WZ-^w#;ah1&R?z^a2-b1~~EQfmw0r{4t
zL%ebcMOA-@A6Slnm)>;cZ*gLwE|XInDr2Ff%?(FWEc(jSIs;Aeo#Qtz0BpyUwvo!s
zUGg2N6~c4rxdhmNY6H_j(G6A#ezx(5<4<8U*&s)n6eO@SXt;wn8U;o2)W%M@BMXTN
zP`a~Uz9J(DN7_FqFQ!Y!wf=^)$@VoEF2;%I_hblxk0+5M_yQ?`MBphIhX8TD;uz-s
z(WDNI#9HGKuFPkn<Gxq!5gaghb4L;POEmGhj(Dn@j}Cs;Y8~WQl%}0tYv#xu^?xgn
zg<#T-JUd(w*#@;KOLYlX37%I5zD6qsi>~a%tS3=H{AYK9S#c9FRZ5~bzQtkYo1Lb0
z?cF~E!bmha__^kQ4VJ~MRCuF!AA?=ALtRgFtzs$KB4-b#E_e)?AbP1?%t1wy4UDoG
zuHrqg=fpEA6Mn~=9jG^+xf%u@_>52}Q>ut9Rg4TzBab{tM))jNj#p1&B}U<_vXiyc
zh$4C$$FqM{kcj{Al@=58Z97F{#n9m)$+dP96A|xTh`&4w$aeeN|7a?!fVLczu2j#E
zu=~Ugp6gi(%<zK5FC0l>Jd-@9;<t-8Ds&)Df`apOe^U{^*Rm#72YUv-WRi!|vS^8M
ztC^NO^hopQ;46xMtD&>QLCL_E7h6mcco=#1b#IttHfcpb<xz3|abtgqkI#WX$HK)L
z^k?=`z8vEl@f$Zk-%2O0Z#eOv%|(rY_y)4qBvYUL_S>kT*5KV0M4x}^<o%Hsk{SL-
zz~MguU;Y!O5JOa96%aeV-aI!kDm4HIXJP!=^oG*nJZJNQ;SNyMft?;sAGNWb#~Nld
zq=3UxUQwkEm@<P?<i}?s0+CcsZZhH<&;;cNK*d7w)_4P%Yuw$8?-)b7%XWcU;+PGi
zRZH(wj6c5No+4+RxivT988llDzj(%lcnZKz0Cu!bE^+33zAc5O5wwn!DS<#?5nY0U
z@p5`p--|KlgUUjNdgQv%tQL7cDDhBO`Wdlc{-;p+KY?riA5TGPhF7Lm0wVZ9%nUEl
z51%XXlei5i&BLsLJfk!dQlaFCY9u$28%CX|MDogLoy3`^yezq3SoK@MHPHv99*fGD
zm*H{F`~pq{rQ4{8-1cRO#CVNU44XS3p7hB6lYovB>Sk|}IBB>I>$Zf^$h#Cu><#{y
z6#pxtJxz?<O0D!b8x|MAALa~U=@7aIiA?9vAZcv-`~hFe-G>YaF0yAJ$|`*UkSidz
z<7$AJZxFfk^+`rMWGCCA+`63Qspv+H_wPy5|1Kf&s&atANWlk7JtR*86;%U(Nk-DL
zmwd3AdTnmG6;pUJ<I8$A1c9xmEa-(r5+u>ash<E-&NtB8dZ*;Ey@qI09>0hm;o6LG
zPl=cH(g<-4m%1_`)SJAr`dN60qUc$l=2{y@Ah8wkEIQOC@Tu~*?g7F${Ena<ppA%p
z&NSn@WQ6ZS)Uz00Vp#9Ps(;+w^oTxH??iK<2KGJ#fdJ=SMI1F%4E<!X{k+;+wk>v}
z?cMzNf;4ONFJ>dm?b5#K9I>r5_rprl{KA6xb)2RPhOg|_itlcFMDJ570AO?Q&*wW?
zS<nOrQEYnd@70|FSRN)djnKnh;Ny4^O{GS$IUD6tq42j#uzU~rv1fz!*n3WxW6utQ
zszMd8i(8gM3r04Z%@+hUYVq@OEY_dwaXa?9W%$#q{f_F}quR(XkkF=29y5zC(oiq-
zJeO;hw~v4-6fAc&S-{MS+D|+PfNJBKPhVT8j`gJMWW_oq)Q)i@#}?L_8QUXQ@Uiq1
zi<=X8{BY{sy}sH<%49%QzqWZSR9PF%4PPKts~N!EOW5cDvyr%kgT~8uhqf0FUR+!z
z6i_}L1|>50i4;G7$Jm?mM-+jusB<svv;iSse%mG8Q@*LAopGgP(gI^nduGNX#4gP7
zq0!81`z0arq`t#ij2*wCS+v_*fMbpMI`SrSLd>dCwu*%v;c>qF2b?ZWEu$3YlT*=(
z`jzNsJln-7XUJYvwy9{o27|lKzThYZ_nC>MUWM3y=yL&cN(&1Ot(k5KS&NEG7e&)N
zL<x-i-J1<QRfS|IyV-E*AubovHinaiW*Iixo@aP7cn06aTU;|Ezzl<M!fZ9ePzmT~
z4!=Lot><8{%E2|T*9UXHp+FlW`2};0>P|yP*Cq*2WgNm5bwhU6Ca}hs#5u%BU$qUm
zl5X*uw0~S#Opng5EAHUfcw|gE)hBdFwW+D&OismRGeS%-|23o4XthQuu7nIv-(Jmi
z8midp{IXeLQBmnBvf|HhV31W7>LxOTFB|+d`l@2VU6azP3x!_%T81{%g5hg&FZZe^
z4KQLn$B5wxm0rQSXy=%(PM?I--w>}38paV>dj%iWb}V*}64~>PseuQA3hYI}$l0LR
zt_BjXtD_dI_*rSxm$*p5(ni~wOq_U?=B%l^zLE*%{qZ|lx%w{ovEX#GNS^7+D9tgF
zAVaXmd+4r=mNNoy2Zu@^;-QI4PXk(Fe@j<LLcI{i@dr3nbHQ1TH0G55^+@bi^{8FG
ztyvA(mR~(L{;<DMGI`e#;|b<9CRy02hC_Oe_#RqxWVwl=kbF)y1ff>1?pd*D5*D|8
zXG7wbk5C~}45Rw?AZCER%M%msUz})$r-P^Kg>LPh6hibl=2v(A$K5?q^x)f4L>FFY
z4e^x;7QbN|HhafF0$(?E6i!S~J2J)Vjgts1OwW3M2`R(LfL+Qu(aTw^E&L!ecSzP*
zf-w`%bRAk^+wO2AqpE(rcZw`o2DD1Qb~4J)DJ?ry8@m<r=a9%9**&*rgM&-)C7N^d
zJ+P9fnUhvB8Bp<&91Kl3tGFG@5B>L#gOcxVbfvIs{^GI>^qP6+sFEd4i2;Jrm105q
zi`$bUPqCFCV#|qrhd#4_sAcX%B?b7?@%Pa_0j(xZx0pTIOAKj_WSd?Z!0-Y?J@dFj
zLyE?FTZ4ZeF6d6Naea$4ERf%(-HDOx#(56_5Zh<<;+IcU#(wNtTae;QEE9mhJyD(}
zdhs`qghTEtDh%!JW3=nfBsmf&^VPK-JVR^%@K$3C0=cO)qXadpjhXFgw5aG&ER%%!
ziN#fcEv|IzqAe2<vspJcna3$)q;hBuLt_hMSx4GwFNu|au6UOnYI1bLDPuiq#?}ww
zltXLauNOZoUcs4I6TWWg(A|AexO#`Q3hQ!@YcTRXqbzGr$_4&?PRE^C3Fm-KAbNGU
z>5R#ev_h;;$t;agVCgCO$SKfc2e0DFL5^fs`w*WrkA8hb<v;rLfu_|7vufjVay&8m
z&=A$vd_gksSlnHisDz@JTgX~blgHO&vFcaL-Ay)?@d+(470QN{i)<aYn7HjP>+b=7
zGAR%-U~<eiM=3=yF36=9;_%pO6JVyz;@E5E3N`?`&6-lKGLaUZJ=Mx{l0DimQx3R}
z);T0&Kk(SjW48ItpVWY*kI(>h@XVK|(a2#$zh|STSUd;MGI6-21#y~31tq$+tih<9
z$A%`=-S>`d3PhVNyV#s0Id^yD{0ni;I5D9EC~#W#lFETar4Vxi)V>d2)OPR=Nin2k
zcG}RU_fv$=SIE3s;nGGx+}zj5e)s8t+vN(~DHeLyB&H2o^)5>k;PfUJq`rp8Udq5$
z*k|?3W1i(m_%r_+(1lL_)<~r?G1b5od%&t2JccKvZJT0z`<WyW1kJy_wj-30fb)RD
zN`*I(xE;X~Q>n@Y3_F@pH)z{GnF}DQR)skr;8(`7N6IAHk(k5+W*6Zs1vj^jGR$@h
zk4Tp2I&wQ%lEs1s-vhQtFu0~DdEe;<Ky1gqS?oWN@ZS^m{lp8e7p=>coJ9Z$ocnX@
zg#k0;WyT@KTkga#>#tULECY~t8o|SZiP{y$bEbwEH;3{|?uZ!*0-Y_}-+1BmcMzwK
zJ$ET`3qD&o+}@H&IVXkP^Ac5^cxLF(LV4c4XWXZ>EfiPj1}hvTX9d?g(sNQn9hiu}
z+t0$-q4)7c<Va-Cp32zHuC=YdTb{CkUi?)e>dzrmpnqKH-)%KATRy>;G!(HoN$w12
zCCUHG+QeKp)0;fGTH89aLnvW~^HIRIv$|3YD?gH72ebyr4oHBl#qP+72^70)ZH?(M
zR-ML080*FV7Z^mMr|^h>ah1;K#jpGwKA=E$@2O}O)<ingRO*n1$yWJV5pfm+*9wlE
zotlO>cV}ML4l{JLut$Z=j32}%{~ec{%xYm9p9&oEZBcmR+x|T!*ppaj9oIjEhu!jR
zF_#dX`RdUQUOh*Pu{WS6ziKRxLOeN)kFiAxf;JLSk`br={7H(1#WQ?xxeoMlt?}1+
zoq%^Hl>x4HzhnTeF3=iD#}=5QLJ&3Dyq_SeBg7#|&7cJ|bLevq`Gs-heskawJ0P93
zb4gCj5{2<Oql~+1JJt>5#w71ovG!4=wWa+n`H7qr#swe(v4OM!i8Qf6d{Z?jk?#+n
zR_U4V)MW?mNtac#j(JeMjkiMh!Liw->KHhZMs12;;dC?D4m9V5BUKm04|$3G6WdeK
z_+0)^zkcM;$S}-GCbubR(ewqA*GxTZKBF9{rwsa@;f37``d<9R5p_5HF7|x=9v-VR
zkLzetU=(kQbV&CSWHKHzl)Ia@@;GZdVkIup>IOiNEZom~X@)b%P{HAV;QT!Q@g1Ra
zT6~oM=38pldUp0wF4mK|!0*I)h93CF;%3ZZDNatd_eb$kI@W-$5L~A>OC9J0rG8(F
z5jGA;&$9S4Q`t+?vDqt=dXwzoi}+H~$q7;W*OFM(0I(rwa4>&Z?ZYe+C#&E1V7Pu4
zU(cpC_F(9Zn$pEZ>s<MS2xVeVo;-W?T+XO$n_*X`(#3t(lK4J8$nh7s&OTYttW#tl
zTS=5}Gw7l|ZoPg{n)mB@XX1rjO=rF{#yF#z$l!EMX^+O1_?hVyNPTe`_)^Rkkn$AB
zhcYkX7xX5Bk9m3GmZTZ!yDOt>?{KS+Y`Ze!dm$CocnBhIjV{hsLC<2`+41ZGzoi$=
zVaZpVFDC;I#oSCU-b*^5Wg~52PZZBq#8jGTA_#lu)~Yxi)PWpP;J8szI7v4E>KR<)
zx^hmD;d_YZCpB<=3E_zx_s#{nv#(#oW>c=z!+9MGCNgl~EV9@;R7jI>qYcqv_l`w;
z*8a$BgvX9)Q7Smna?HIIa>+7L0Z`o5Cy#)KW83f=yGG6z4j(m3h}=d}wl-|==1p0y
zh8TGos%$rO!loqcr#ug{W+CSs-&xu`jHWz4krv672P!re8!03}p{q7Vw`cx!7GP_9
zzLz#kT-@}OW44aNme*^AY3kcEFUAs)e)r8BW#7!FWv041%dPNPoaFwcGq^}6=oq{Q
zht;-eD;-j*t=Z35@lW;C^GXxzL(8|C#uNEW%8JTf?)ByfCqcGRGc0}KkkXLv!7n)#
zzRhqX0y)cJFo*$_jZXX;H8;}%)qNhFha|<)7UQ~iiGtXiZ?b_{|97GDUS*t;L0Fta
z`u_LY73MCY`1H@KBal}t4C275hX>3xA8O_svoOd>g)APCq^_r`pRZ1!!cS6m4Bh24
za4H!v|DMot57TSfTn5{~C3-{1d78b#HbKp|&oEPI?o2$)?JIs<2?2b-F4RUm8COjO
z-&lWmC&q=o)oA=&_=GdZSUTCX*u~LcC}80$ffBShk_&*B=$0*C4pOh);B^O8K|Gl|
zerX{Mo9jd>N7ynejIRrYMvz~bbc2!HDEU{RV)l4F5qtE&8qurEz)5Yv{96d(Tzy4^
z6DId76;AN7MCc{SR;pTMT*4*Z4m7X)-z*(lGJO|T8F%jlEp%_pxJ#U$mjkfIcCm5z
zGuK!>9!OGk^l}L46|WD{v9rWapuEx#)kl^U=!R{XF><lmP9``7CjoZRSZ{W{KUy-b
zLL90oU=<t^^vt$MoR<vfs*WI<@qhtfCN-^ctIjy=-<^`1{xJ_!5!sc$r1o;5;1v^>
zXD@Q*Kj*yTSYQix|1H2YZ!nHGj&~p;cMXMLdhlSK&6U4<uY@4~O=VoeB7hl~V}El{
zv9sArnU3xxxc{c*-^T}p4%X*T!wu;vvi}x6iv1ZYdx;5zx3csUw%#>K(On!aCJLtY
zCTZAIx0h#tCcHt|X2;+CBcY-vSL}zN%u=&Z3Q*~q4ewd%50i6BF#NYE`XezlKf7T~
zoC5T}LlSJM)uXmlnlPMLOO8fvG@CiIJecL=zX!Xa5T~gE2Wq1+GG_4+N2b56Ag-P~
z^u<-eVkhr1&7+mKBY=>i60$nYY`$kShJ!*a27NCOZc1WdFN=MRzY9*7;36T)7M_ZZ
zF#PB>m^(~2U!oQ*JDvii%HV+Xa{{zc0&p)hfQH3-Uk-nDW)+X4@e^jnF<$)Fkku)(
z>oHrOvW*O}GP$W1S@5srRVTksiGnpXLnviq&kU<NW+Xh0&4EY>Bq8t3YYMlM?;gyl
zc$2?BQhT&*6AG2P+NK?H`=G&B>VcRk(lY%}Lz{IP+X+S@TM?1kLm{|=Gm7joGV|~L
ze~fhUndlOd$H_b7F38MY68+t`n}_&sJ`LK~L)hr+TC@JUba}c!od!Wz7;i&n(NjYI
z3rWWMw?gLw9(GH8k;GS3`Ud+QX3-J5>J)Ov&%uw&VB|4o*R=QXlpyu2BOj%AlAf9?
z>z&gCt&MPIfs*%8N`(;5Nx5LSvubB9R!+aMdR2Elj?cx%ZT#xhTmZ|j|D-lJJcMm?
zl+z~vFcS*s4vK*)nVigRdQe&8qdde6_upjQiSdq-#m8Tt$YJZ<Gy`S!*J5)|kss_j
zONr@wkqdIZGv>67>V=$ocV(kTbKf0e<aPd+3x?G{hCVev`wl2NG*e+ac+{ND3-t%m
za^z{z&peK>3URdH8sm*~W>~T(e+kG7T1v1M39E|69~zPpNTr5b{aL^fjcxb+0<&W+
zO>nI7vT$f2HvYp;$%}rFymd5<`&U@AQ?t|SnCkMNen#rzRNL0_i&&R~p27{o@TF1|
zz2WLz;cql-%!lyJP0kreJ-m!c5G%@N*RdTuArj0Vyb~n)^d;KUkS&$y*w`uSQL5k}
zD7!#99f>g+3mx7uSvU8o&}4BVYqELNGj5uDn7Ok`T0zz%B(PZqwUE#A2;W;#{Txvf
z5zja2U#e!@8zT;J77hLt+SRCkD^{QuERb;iGq4+&YE|~crRHU?q;me^99j?}w<8@B
zbpI{WdzTpLhRlk9Gp-?DA;K01NxVtn3(jI=EpWMwc&7dGpPk@%rLif*;QxJKr%#~F
z<vW_8gu~;$o-E6p`PyItO#E!(4uA?J7x>duZRP^;BsL64uf*?zt^)G$aQItW0(AHE
zfKn3zEy*9MS^<cq>FCw}{?$(R1G6;y`NwsgJ0sD@;d_8{fCAyL@!!*-ZO71@)a^*8
zC5eG`F~zBk6gJYK4I1EJVFy22_0<RH-QDBmc?M7PiHW0f@)@ffABJ4%ByVQNzZU|4
zibMkPlTuG;h4nuj$C3As+<^O>fmhYtyRI)|iT{?(0Pz`A#z9iJNjx-)NfgYE5{a+b
zGQ*Of9)zp1*ulFphO{J7cQyU$C7vPCNCBucF!8G2NH#kGI=0L#6@LJ#Qu?oYm;W&x
z{;%4f#5oXw=0fz5oi(iV>M6*JP83PzI`vR$f0TvE`#fC8FxyJ<R_4QhX4zIj2~MBm
z!z~Ct{P^dvF<6uD<A;(FT>92GL<^lLx%qBSr+e0IUss<P8~#^cC4{JxFl3$>93ZuJ
z5T{6?ZV{!*B!HNb2b7_k2P)x*W!^vqHxaKvl4efg<C?F{qn1l9FDViAPO}xuISM@~
zwDCy9SC4t>w7BDW4OZH2us`7%wd{#B(QTASeZBuKP;;%cW#YY^;xMMD`WOI#pQV<^
z*G&rr>#Km^E&w6qgjdzoggd7?AXtlvtyummP8JqZ(c|uGkNZ-}ummDc+#TRcsi2hJ
zIfjb371#7aI0AH2Zt8pwG(e{r1PASM54P&?W*k445r%^&2gBcPy=dRh6sPkB4DiE~
z6M%@GW(7kPSE%Zd!?)VB$XShJF})<=j64QAmtY8zwr-(BY*ER#_%v)O1d~uL#+6;G
z!~?t>^Sd`=_-mYxcQ|4aSo{Qzy76LtsV4bhBjuCN_J|>7osx`@ns|0yd4NbH3LkO?
zIJH1EKJCoNs}G<5*`ZE(lo)xsrwq~SdpwkJ5UcGF>Fi)BmQ~Bzw^4EdvHVzw)6&*O
zWIoViy@D$|JS?#oodY{rZ#RDBix`DCMWCHPaEheQN_2EsddEj$RUuF}5pmd9A1ujH
zL2g8Re+;Oq`Map0tT3!HHomfb|A_c4&}vZs3xx@j`3esYpn<{s{cE~C2#8F`f2j7;
z*M_^&|F&JX|E_WU_s<smYl_jjPrHx&sqRP*0h$=cj8V;7AR@rPvkmY{7L*y+`>>)~
z8yZ=r<s7ckB2))jx|JS^XKr>|(l*4*&m0Fc;9>>MbI5n1`T)HRE(Yi(uVENr*!@xi
zLMrDp!$oQU05-4hjzuSNk-6+`PoVh=*_`E>5<=rYrUQy}<OiUMhg?60tluxjqeQ=I
zZ_9hf;)h>QoDV9<+@h#@A>$Zgse=B!^zuKBH~-IB@;`B6<6m6;UpWOauy=n|(8cZ)
zZJ4vfXj)zY5LJ(`6=67=K>_?;jv>|uYCHLggPxNFgwEH2e$&bnCx!C^<4ox+0%lff
zOb}-8`ez?5BQX+gS|k*qn&NNp|Kc29&y(=_r0Uf?+G`vw&uHs1GEEH^MSz-BkiCSX
z+D?S7SxI@ydB^#Wn@lRq(8`3+Zr&6cdVmv86pnFrGjdDAl!krJ5a<$&t+D~y#4QKb
z%CnaWamfOm*=3G7V+E`3Ad9Vcl*LDMQC=Qufb&1!{Vtz(7G(~cEdYU}Io6Q+{?V#W
zR)g=KFfa}n&u|r>#eNn5T~SNd8fNu$XaN6BP;9zFjVL5Nv{~5*1%F)NU=}rzW2oGq
z1Zvreif3<$Mr+PC37?1?(Jgll0@(R5pq1_Va<kOHg(-Zh7Q5^*GL_4_aJR{(VykiV
z>^VH9a?w?MxB(y_D2!nrKbHv;{GlSp>>Q_V7tRX)GR$|3&)ox>c=i*}iCn<t(Q0Et
zkbE^aeN!^|Mf>3X<UP?eJ8IN3SM@XBMUnP9$bu#kMPJN92Q+P(TVISlr2t=M@Hhk<
z3A*{{rV3%*B+@_b(;mXeh%bH2&^k@o(=4E+K+OKcq(s0k^*ojLL>(GhC{wyd4F;;-
z9MZCpM5HBu{JA1{p1ri+DSDxv(}qjCnuZzC*_e<-5YjsUCZTTn$K{F|wmLZXuymPz
zNfqj5mDqh;3}_V$(~o93SzJS{w~R>w6Pd#j37sVgN9LkBcMPoiBVGALQj3z1?CdY!
zM$H1;{_9Q<irU^SsaS#jl{Y&5zoGK~Keb&r&=yX4^_&4eIwQSvNdB25EP4ds-+D6V
zgVc~Iaw0}7%PQbpNX466TrN~Wx(xXmFeSP?(1rzGr_P9vF9`bEzPBbQd7^xteH~vn
z?klmI|NV}G{3j}d*fHI(BsLn?j5@;!TDZ!x2(2oK<Mzrw__>n0p8?0kI?0wHsA-ML
z1P>^+Sm;IcS^V0&EBt8!<|ZijaDXNJxe|H?wdsVk1`ZhzT}C9)t*<PLSo1t4kl(th
zwCLfUZ-`>0AH)qg0Kg_;{H1FRP6hU6aWiY<oCgd|Tw!jUQfhgn8Oj{EUvz-81aabd
zOrK}0%&<;N1iUCdL=?m5_fN$Dy+_^(Zo5Kj!Gz>KY-E;T#c%6h-}af|dlC@(m<X}C
zC02{=P$i%>!ATTBL_IkZ;Xub*V~hl4Qu7k}ju-(J%nbJ5oR_NLk5dOEXq)+7eEi}Y
zgpr=P02G{0%ObC=R&mPruSnfFSVA8<`fM;KsyCo{^d#*jON=ydlSsCP?=)h2P?qG~
z;xUL@A&iqfheX}kv#YY6jb0OoL5!mG&4sk)NgufT?}oj*HrAD57UbwWPx{783$wxo
zx;RXW?4v3zrOGhFKhqvGFLi5fAen9~(G%;92Zl1^-NNvf7odwnNZGh9%2?d+OWNv(
z7s&!1_dTg+%|Tg6ER~FT8$FvK0LOlwvk=zG7;S#OLvcx{2fiK|4~uM{rMu<`-anZI
zE<RB-7tCtICx0LuYslpXv_07nAcf)+0j9j?E3{_Mp?v-j;Zrgp`ZYkCg-QK9TVUy?
z)pR3}1^iiSec|Ty5D-J?734s8Q?*p*Isa|Ot+zV{T=3hj`MNi|J9k$a%3><OKi1No
zcU?l=ei9bC)Ckb3Ao^irAZP~G;O8cX7%^yz7|drh-$NwK9KRw^a-GBUmg4f+qh!=;
zQoR-f)0++1+H!wj<78;Maz&0_osSGG<~^r7m}oVJbAQ5^2bXVYnUKgg{tUBlVRGgP
z?z+H)#ZQ{=nM2`Y@o%5xYHfEwXGiEUE8Wc^tG12hc8)bPUNo`oy@+rUDjDO*x7!Bs
z_q0c1KP_|S5A}$AkvvUyLlyaEydvJ>BuW-Im*Xow00oS=5zJo~kAUp#(sG~kOpyK)
zSf|+og_=!O9CEJ_ykF(iCL?|)-ukSKbZHub3UX6za9fk0pnSl^8E@U=u%xdApOGm?
z45~g;de!5k^hk4bKhQ<ePNtt(_rHGJ0BQ(agU0P8VF?x2xA-_*cX<|{(-l;FMNbBY
zFmCf0EWCo%#$Vrhz^D%6_)(21Pqu%&X^-qX7VDCx6+Hd?JcEdvoEhkh;TNlI6Yy_Z
z)p*bSgw1OmYMwYKC+FcO5@Gl96Sag{!khQ(lW8v<U-n;4*frmv=9!$?-iSBFGv7~{
z)m`0NRk^1?%$)jm!Ec>YO+m#LMx)o5MeTyY&g&P`1@AA*^}_J&wC>FIT@cpA7LZc!
zlr}yeC@^emH{5gLVaoZPN#WuwqGg*6910$b?2eS$9%q05!w(OPGQLl{AN`B1{ZYpt
z8T^sIN^NWz=Ee9A<<DI+PH0b`ceBBrG5_Uq?!Z;Z1%==3^q<)M@aFsL!b7xuf_0z#
zl{_RNwr6BEk4g_`^M<%hi{^q#>fk7wN@sB^D669&OU0bqvDP%7)k$zFMkj3&9aq#b
z>4kpnS^-2efNS_Yq91=FIou8{2-#pJs6{)XWdn3<#&>CurjKP$b%3oeEhlD-A%h~V
zmsc0D5^y-TPzl!R^7_Z3J|P)B9>6*z$&Y?CI?>*5rxbD;+_v~qm3}q4MFJY<4%q9T
z>e$MNMuz522{mjU(Of&?s1{eFgLp3Bo~z4uSoEa5<r-pI{?B@~*o`=c@A85uKAt)X
zMm(MRLsk8FBZ4moR$IUQx(V@kD#?CuvK?G-W||BO*0VyzqVt|kvA~G*sRq@J^f-<7
zw)DKrsR31XZu4kZ|AjcTZzvjLy_~2@vc4UHmeOb&&P6wo1@YN%)kZtCLg||s^>lZF
zfPw-yKblHW4ZXCSs%nv^vu$brG3+*aY?YN@-0p^MQf)V?MVxCRr`SN-rkjY0g_UXT
z7d~CjT`kSavbl5{=fP?#IR<50ujf(qrcFiJgY`uUE3Db9OUoFrmZxa(sp@Rc)6gvP
z{a)?k(M#VT*SyeUHjm;9W^V0+7sU-OKAB1dSLRRsu8M&yH>-w1mY=Iy<izV4Ga^z3
z@en5ebe+rsN6V*92F@wk2wuUGaOsHabz1PCL}CO%HP^?(;`I4=(v3&#sv&K9(;4Os
z6D#m-QO5394RP9+m*1TdSTvCD+t?jd2}o-fyiyfp<AwPq$Ga`0q|v4~e{Zt6x}0=6
z+WcfEYBT&0rZTnj0x$tgDLuLGtwFx|`2yw3>pPn(W~g+}D$C}J^rrzsz)mdH-i7J4
zOS_KctRhkSU>3zILGCPG0sP;no<3ctwZN$q)5$3s3tlm<!=<nK)LDzEuD`0-bg}0v
zr9+nky{r%9vID(M$bD}wZ2z%4dXV6WL8=(*gMFymG1rsgc>3q#30=zuR+PW!#%HX?
zQf;B9J&UyJ1JT--a=|?|w;K<W${{P`vxeo%XPq?(_R^vKM-~QUSm3nho_Rmgk#iI9
z1BJ+7`$*(Iygh}Sd<1WwYdp6&+5}KoBohC3)C<p4Y2QdUHJf(Im_)nlwyXDvzT3!j
zln?z>mSRw+SSWn4k(6P37<#pl7^2etL4))SV?9)@@zs28--G(eFlRK+fg7*U4oi18
zK5iZxyKbi9HW@Z9{xm(kNozWJtJ`jM@+bLuo{HU3>sf#9s(Zq31sDB;+uGG*qItaO
z*zowcZ<y3kX2oFm4;bI-+4_31rd@Bo1Pkfs+V|*1UcJrFm@LJxkJ}-X6GrPdGx@Ft
z1XQy{lI?X`_Eg0Qf*)^U;b$wPG!H_-uH}Uz_vJTeilV_v<DE2&z#CkdKJ@|YG4RoV
z2!A{~=y=0E@(>0Y1SKhoS)<N$&mAg<<<}_}B7^Lu<}WMT2-N3?9Q?+yg}P*YNJ{Fv
z!Q{DzRz*zARG8!FhBd7J?bFpGSlagq8tuhaMfmN)&6zoDqrMD%aBSAY{O5&qTsY=x
zV8y}|*pW;q(qD99s4mI-Db3bj2s~*8n<nie50@+y#@|ILL0?uZ%_VqmhF@-bc>?*_
z;0!p0!yPH(ij1>W&F>YZ9OIUnsT5BJGLg5GT=@n_IC^cqBm#*KOo<52HO`(NZBiIx
zw9hYOArbac6;CQ{hO^3-Ewpjbck<M%+8nt0*+ttwI11Y!wrv-3R*%HE5m{zxrvexz
z-^Z&Z!Hp6w<)B84Er!b;YsT6g{UWL(h2Tq)dsWRRD`I`>9v(qvvvmP$=U8KLbs4iS
zt}0+Av3y}6ZLm7YFi@$GIs7tLKaH+}3%9rwsIYh#UT|;lIfM%97Zb^kfLyQ39UB1G
z2CpCxQ1x1(=O7gVX&d}-eb+w(xJ*p;)W-{szCF$Mnua4Y-9hUoHHZ9M7!Ql}juvfG
zg4RpjDm$A{6|PDK2`r+0!KYkR&#UqphFx#L1u!aY?2Dt@9>~YqF+fw0DbaFc;oihe
zQRcFHM&QR<!|A|r@bZ8v22Ql<3{bR?g9jbJJXEDYsoTsDxC)+PkoFuIVsH464iIMe
zpcjF#SMRRurZmFxE1(;H9x6<d8+^TLB|0hR_;}Y^1UhXslTa{4R_R;3vOLDvh>UP7
zKVBR8>I*Wdx&6~0ei1i_o7q1FBJ4G3<nsl*vdjeUk4H7L)RsmTMpJu@TbmZ(<Un+%
zAk!jmilRByc&Y!*ED3!Kvpl^fj~}|RUNJfQ0s{FM_HduMA$Yl_@<eUXsPWxFB7~`L
z4$#C@wW2gam|sSla>p3l!FcbtpC<m~-|Sa~E@*CBq6yknTFEzQ8Kok%>6hP^sv4b0
zDy>$^nVQi^AMq>|P}=+jZ{{W$%MTTbXaU5y+Dxu)s0Bc3#HAdrV`r)1yOrdzLD)>`
zR%*YhIR!R$+O_Q|sTvY%kMKlAp%WHGi@&Q1FwZ?YulKFFo3)3<bgGxW@n%B8_L=?c
zm$4EJmMKa(5F3c5l$uuf=j%VPL7}$ORN3>D##hSmVO(;3x%vY-0xscmu)R$foCROt
zAQ3c>&Tm;^oF;6?hK%N{nN97RPfs(FIWtd(BGKcNVqwo%-BR>bB5Sr5`Nyk>$gaUC
z*x8>KYE1Oo4Rwc8J7vI;L29`h!76S(;lo{LU@5$RY|er}iu=I7op&f%k`KtA-5dPX
z*h-is(j}(el=zMak?`E$WK@p6d8{2`gLyUj)mjAitTa#cG<J4Ek#GEH>bwgz_4j=J
zhxCKG!&|ef@g$4s+SSzzw?FAu<o(u%_ZgoaI-ff`hzztJDgkzN13Hw`dV@JO00$t1
z3S;_h_~nlcfP#y02O~svV^SKVD|oDnPk6hkc2|$wShp(Xa<*KMBSZnyS)B6b6Cu_K
zovwT2L*3)4zraeE^HO!GV_PFQ^GF4al>$EL!+Djy0^4Fr&;4*>s3X_iTNtF(1t3WP
zOra3oT9&+-`SR4*mx+BA&~2B@?Y$lc0lo63*0JC9C`xk&Uz!A_<V1X4_0*m(8eGu>
z$9cFH$6o3n&dsN!(!**;7g~#$VO(Qk`G)@kI+=vqP<zlzCY6sh7!YD9<j&PjKyo_<
zt)c4kp5@CZ*W`7rSEo*sJ?qV@kptZ0V69&3C$mABYo@<+U+>?(?o9K1>uh#1Nl5#-
z@Zv2L_Ht~<>rJluR^@f|&i_cVK4)*Af5*G0_v&0mc0JWMhju)hoQSaOt8kO%6`eLd
z-rk>{_o%P8hCu3RR)t#2yC4zuN>>Eqr%M?+z&2pTDBlh#LXP_iTVIXsH#F0T%pV;<
z^|uBX)&aYC*lYY>??O&}{$U99M-OUooSfh25i_hSPg-ODmy;#q9P;BSJFxZD<p(F2
z@-EcJ^0i8qf-B2~DToZyU#35R_&g^~>x7K+O!m_y**9y>Pnzd0C9PnQnW&<d5$UY~
zdB~8Idd0%}6}R1RM88$X4aQ{sG$mViPtYOAQ2=y!?az|DpCUOE3!Jc9m(V1qXiP36
zZt-2wQgq;x<^=9%X}g)r)ZaQzM_lSSmc_sEwp&#IrwPM)SEFwL+iL%^G@`k{@f99f
zxNE?#8=7GbR3a#%npANxG4S@gjgpbkDpzFxn@^vD@{_=o20t&bRC$$s7S}mBT2=~e
z?>}hl?=kdy|I}E$*!K2S?e2%T+szi1s9Cs5`-*Pa2DiWBdAuvJ=ezx#<q9{ma!P9U
z>cHb#T}oSTjGgA3m`T=8gOhFRSvx70!~V2Zz-+AcB^XYdnsph6f9{z)VtmTY#4{&C
z_f%5g<Vsfv)qr}s(4-#YSuFb1Dfl0ua&7Mc1q%QyB@jxwwGSVb8>0>(bW@69)O43I
zZSFwHZs%ZFUX`cIbYlnU$5qI|LZP>`O~|9I97kbTY1!n@-P{-3pRsv@aA)h>RbTF>
z;-QlD`}kQWZvOa>qT{v1pU8VW{{j{`%k4V?2V%F@INO;<hz+hII{czv9ei}{SoZmV
zDOhU}j4#8AR<h*h)!~-EFLU{5Z=?NwYHc`P)8zJFLakq+ZSR3AzXAY{a05zTF|GRx
z&ausL&yBRC#ALXPYIFMlN@L-eDs9+wq<3b5b*Wm(gI)z362bUUgf%NC8W57VHgLBK
z2E2{nBU$*imnU^yEU8;|n<=~J2=>JmVJ~vDS}OqCRXkb<Z!6<I)qd4Pnsah=A<R|f
z)ps4hVDN(!outw*-j~s1=v8k`_{FRl)IPKN6Wr&Dnf;kAlVNtm#g})v1G79X<l5j1
zAjZL8$t6ErtB9q<ux6h-2HU6gPmMM$E^u!72hu7mfxr%WW8)9e`xCTT;v=^1Q#Gql
z!r*%O?m3d-Z)s1Pa`x(_C2uim&X@xQ+q`=BpWQ-b<8G;K)3^CJKJERFqELr9jJdbV
z%AggX4}7sc<Xr5Uh5s-XK89@?Lb?xD_&>B^zBF0je$WiLn05HpK2fwI3uUYo>;!)^
z`z}aSqS(ZD&+cTs90MX^AcC*|SlhF}iN@S>0z&)W(t*I3gv)(eEUMuE$_y*)KDcUy
zuElMp=ANecora`%T*LSK>TdYd5UYuo3pq2ldK2J|tu8K$spYTHajHqeW}SXUWI}xp
zBWm-0U2F}%Hj=B+k(*WjQLpEOArLF~HeENjNggekb?`IymYIg&#LSZB{ha#T(q2i1
zxF<gg-a6ZL0(0^qIQB-pl4Ymq1<NczW9!PtQt0G*oE#8y6&oP!A(h?S(Mm*6=4$5&
zQu&UECk8gd{69q8n<uZZ^-q%{i9Kn$F+GiDBgVQPnD#^Ar^!v9LW}gLxK_dknpwRi
zDmDD%`C2`<*Xy#_CiBd`v&{BMY`ACVa{S{!6Z67~AfLL0Bi(v4D>Y?sY-s5C)#dcC
zU&4+i->1*kxMD~b-rU&G9A<Ycn~zs5tmU~+^U0^9%_x^+2lx3!;JH3G7=Zt23s4+m
zteDH<U31ChV1VF3fZ)N^PAmZ85%~bY+JxnpiIix~^uX(NsEnS-bkno#w(|Nc8OZHU
z)zSd&1;HxZG0xiG=x)40d%At|yJH3T>PDA(gZGB%P2@j?5!1IvgzPPg8$Z!IOS&jS
z^c58_;?eoimP0lC&d>hn4bnA)9Qi)|7u>Me5LZ&yP3x$T(jwESDFblj)2T=MdMp(*
zY`U9o)w7&v*~|JHe)GS04w!ou->U#(xODph>jb-wPXkwcZ-&f+jnddB+h=R}M`Bu1
zrXz}zeQtPmX!eRs+1XQf<-;rIA<JyLnLjIh>MCRp<+ja+JQ*8+y$N8BGGK4Ss0o9K
zBYHDBATY5L8?{o4)w#Tl9J{-&+^k8sLUa~H2bx$#j@Bd6hjb0=$!G5_KAEYGcI(J`
z<L8*R=g8q?Z^D(dcO<2C{YC!WQvs#+eXuyPIjP(JD<}@E8km`yBxGtGUEb(cWnWrH
zH>4aU(xK%^q=h49XVaA}wdZ_0M|&Bk!|@?hvzT$N;{w77N8ZZA$K;Z6YZd=W#mJq(
zE95#H<$f=KlP*8w%)e2}WNayV5UD1c)VT`_8A0oQV3{tv-d#a@R=i7rDFy7Rd5f#-
zFB-bYrg!f)o^AI*j~_3#tv(U)*W0S0UrN;)eb9Sbi(<VyW^aZGPtYCRmcU6!@>#9f
z=iNtuyU2Av1?Ao)UhvHBv*qIhPf$SI2Ktx*-RILe^!DTB&lQfnPI2a0x|ap>yZyEh
znKUzp;Ef}$Sq4Z?w<VXh2qe3yhk+X{Sqz>WZK_=0G`slJRl<V~-^kw1{bsWPh_OAX
z30p5t)cnE9zTG*ah~A9r!27fnyYHjrO?jg8GW&+lhMq^d7xkmZ^^2cJmu9#<NWHW!
zy8;Ac>KnNgTUog-)RWWa^<*zM`tjdnxGkFJPj!R0bh`__-50{o0<&^;Etn6$h>Yc3
zpL8_}?RqXR6TmF=ZS!s6uR-m)v5x2jYx$SqlzpksRqPNN+u`Umwe>Moo{julvRi)o
z)NqDdyAAmEY{n04wsoVUa3CXi3lSpA542A!ftig1QlK;&5G*OK8<Kj||5-(*|K#0x
z$sfCPTc=&!xMTZ~$Ch+@Q+1)PKa#YM6E*fzpxT4}Cumcnb_?}&>nDPX5tm|LtJ1G5
zw_{V1zy*B`tI56mTea9x^UPtY0lG;Wcgy@KNhN*rm*WP89yehiFSU)supOXhVaiu;
zC;ybN;f-EF$DL@;2Ak(hiNL_o_!JQpngvf5Q8AsP@gwh^r7BqV=|AiTgIRi0p<_cR
zJ9Mcmm=bx_DA^!w(*F=K`qa{-ft~RxdRaDo>{OK&jB*8iFx~ypl+oVG&YJZIbb#8r
zNHrmUN(k2SxbYC=bvgDc0UNrX_Kj|l!_mQNjTg~v#c}PT%V?mQbuL^<^VODWDB|gA
zjy$Vz?>>@(@jHRqI*zqmi;hdUgLHAy{v<LrZ->db`~Z6Tr;G>4OC1VX=BREL^gVdD
zIexa?n>w9vc|<PO-bxXn+87A@8VzGP8GY<YUo*E9b$jT^uFOFy+P#sqS(;q&?!bmq
z2T=>WrP{0v^i->gtZiyWVqpPeYy&&1DwtOB<YzFr*|wN{weiXNaI|B@eM{XkdLXbl
zok;q#R8sCwm<@;Z@xZI27Pvl-=&P<y7v0(pn2f#qvAI;cK?^pLe%r8B7o(T;cE9df
zrNyQRGN{F2^WFhaMApK}UW8hsPP<`xoN2or`dI$d5LW+QQCDZ|JJS>IwlT41z&*<8
zs|Og%cVsv_D@w+S@;cL}WaV5QANpLb8o<xo_Ii8>Xe1?ibAD(VD)6G3_;N3?wvB#X
zxRas&IN|!$0_de>1u!d9mpp$_Bmb$g&GNFUY{xVE7Y6O$vI^7lm^k`NRho_(>fk-q
z=$mMg+B$;JQ>wN;t$J^@PhTEsbjlh^;JCGIzTgN<sGK@E#D*KJ^$d<}QS)+j>(?jo
z!%{+F39}TuGO4Cfs1;f;wNCvaZKw48+F%Bp?4D#Q)9yuKIg7UZ!39};?JG$@IWjvp
zY~#MbARKjyv8vt(?g$W^0dHxxN5*jDPqbr7O%rkL&(gfBDe#U<%i2Y67VW_WkEZS`
zE;n38v#%^yXRLeC!OL<QD;VpKw>8GXgU|$ihgmJjj3i%emc?OgzX}n}&wm+-flE&d
z_9stkrf=Rt+X$9ThjA<V)}3Bst=)P}?@*LeZ44E?vr4JiUS@#xK1~iZiArBS-bh;<
zvNIlu=;MWKe!1VIl!ebfQRtC1Qjh4DVNKc@cMJ0i)gN9O8>j~NDB2E%7KeYUKbN6!
zxYWmL%3=YhH95=?&_=v+ZOZ%7I1~AP7`5)yT-C-nwCtH*CP{jmM<DT=XGhbQzsK4}
zn|ohns+~^rDIerbDF}qVm(@pp8S^1&w<}mpMgQn#@-6{+RZ;15$>x`ixXVckMk?)3
zBAmDF_75)5SntoTqfFi|^X^U|*Y3yNEhnu^@9)#T&DMH-3%F?RqB;44F|aEg!`krA
z9-3~nQ?j|qk?sNZOz+{TGZ1MWUiV10AW7BmSfgLJyQbf7oCaaMMY|qOKzW`NIf%;9
z=N2_x@Aze?WV$KpHxK@;FO?a#IgsV1$@`|cIYZSB!J{uJ*#{=`S8ds=!}+5>(nE_=
zF2~<|Z9E?J+xmuG$zOqFGd5Tr=8;>RM0&Wq!EtUj@zWPn#c7%StoAz30iSR==}YoB
zDcQVIxa#{kTS(eH2k5a^rT^Rnq$6Bf#OLX%b~p5tY`u;*ut!kLwAzo`Te%^M;#_D!
z=vdWg;OA#2%o>3st9B)(PZ?Gn3q0h#ZmPYpyMf&d&CJ^^$G~`6$$5Ik-iNc+cVeNe
zr%}r|Du7wqz7`eY%YDb(n{H~_?xz=ZZenSDDYeU6_Oh|6MKhs!5I6b5*m6au=+&dm
z9M^&BFPo}q;ONAUwi@;ZAw}W-irG_@U~}jb{)-=?7yd!fR&7L~U+WIfMuO*x7E9+M
zUwCFr*=pn$#G>aRM#_v^@q+uy+YOf^<I(p@Or39f66UXz#Ce$86~_)eYFc#&G}nF6
zRoTJT$YftOQqxNBEqtF_wtfC4e)pVQW2hX;oxyU#>n#k3zn=E~fs09$C(y+l{wdH3
zX`twe->%o_u(68#ycNSI(ThjiD<I>Q9fHk_z?~5_+U*-P#H8z)){W8*>nXY0^#vYY
z1D9y^CQ)O<VlIr6Pt3mBXAy6RHYHt-MMM-xBVz;lT;y4gYc1SL?Hf3sAo78>ZFUFm
z`3AQwd#m&@_`>jd^C?2a$NIWlaHWOn!t;^QTcrN2vn9ff*_sv83ZQk;)Oa}|NwF`)
zA;ALmn+NO(%`9`)|BJ;9HU82Go@HARv)p_Ikou`u3LDqQE;=6ray|-CDg%CM2!Scj
zya(yk>A1jHPUvyY8nr?PsIK?3HuTWrzqA{=b!>YxmM!g+J`vORrjOH#b)gra8{w1~
z<xQvEHe@zJuYLRSGM}|^QoRw8v}ps*?hjL!Q;iPd$LA!Ze$ia14%eB+sG<x*8(1Ry
zlDy$|3$=9*{+6s>lZx;jc&jLe*8geao)b`l>#8;DdaH4|l52#k?A$KSuw}xB-#rUk
zrrCWoDUV(p^E*K)$a&trE(OZGD|S73WT|<yeMQ1~v|u$;`SCKST%<QxzJ0SoeU(Mi
zoSx&qHs+StMs_ttUmXogZz_FTlLeF82v?Ua%k(_0w(zHhqB)ABoW4cTP=Q`tzd?*6
zo({a|vg$L}6|`<_X}>?tu)Wl36Q$RF4=0#hWy&*_t!33W7%X~dss@P{EFb;?GyJ3I
zEG#qO)+m$Bzr+Xxepr+T0GywCI}|q^tba)sbj64L;v{g)gi3xrA#Fdi#7>Vhn64k8
z*~|?@g`p#hx?I)?8in0CXUQZ)LIESIIHigb)j?jEveO{Rs28VCcqJiO8B6(paf`Z9
z<n-6N4b;s}d9$Dzo(QOawibzQT)x-)3!9Kxx;|@Fv*r`1a{O>4cRD(*BZ<q2_TZjZ
zhRlS(4^U!MMbOqF{6zu+V>fX?gAeKWa#ED=aeib~Z-fjHC7jidZW;UqmbE>Xk?^#x
z*xWM#c?0`lrZF_De12gr4e?0nUrYxotQd@LS{T~>czb&Krq$)yHnSK)b7ax@f$is~
zqZy<}33}7d-QW?6YV98w%K-|NVG*53=Lq;>fBrz&9zzsXG=!VJrGlVY%<$URdP>v|
zN1uY7X?IH>zxg}zZud*K-~$w)Ui62jb%h_BP>4}AJ`OT=+Jdl5&(@*c;_xE-uhMns
zD9Tm8P<rU#<ZjSR$3OOiTF&w<3;d&>^{<1K@^xR$w`wTX66jvPP3EKHbf$rG@uR;4
z`0ALoOrtlE9qIj)zPgo$1?w5d_k-q&rGX(_nf!;(%MS+>wDtX<QCOxvHx9E(W~ITh
z5_;EE50;x~<fgd#JzG46Sw$QIIe)9z1Zw#OdL{bzI5v&+Xm%IaJbUUbcrjP^=fywv
z%{VoMqCFL=w;DAR?`^-2-ChB+9z~c$b07P*opGN%s+q|yR$HKX+f*z24+27sQFaf#
zfyGxkYm&@#Z@VTNXU40y+ft`%)5q1P&)eTCjdNNp3im)1Z5H~vFqSsj_Ho9)ATRmX
zep&`jjatS}8)Z>BoZit{t%}1Som~>zY$`J8o#C<z^0O~8jNC#oFWob2<ZF9&ffv!b
zyUy7aglv-nLxts1jxa=lzwGyvl{MA9_VlIbk==8lx<1kU^Zg4lzB&ii)N7C(cfApA
znhCdGEt6}?eCE8V7>ld7lQI&1&+Et0-;NlMu9ux6NP(M&+?pYy2~XJ#JWE&>yFP}+
z4F(9pl`nq3{p!Vu9iaaAFZY7>g<VHqbl_ofB4$(-XK1=nzYC}J;-|)TX~?F=xbZ}0
z=)9a&<7iLzMx%N=9jIaeFz~h$I90hG02FsIQ&86vk$osK(-Yb$P)LsmMYlnDY!h!6
zSdO5&&M>LBOZnYeBP8Kg>oR$@k3~1rD0~^<h-u5|B92C^!^mgbX<stA(uZ_eON{00
zy|`VVtLLS)K~+qaDlKCQ#o#sPO=*{O@vvYe^pXl&#^!b*Yx%AGHYoo~-?&P9ZY+<N
zGX)7OO&7dnEO(-h8L0wK5^g+i(o%dkF}DJArtv?`8K6x~{I&*d$>XI&T16&sw>UcT
zY3VBGNk;EXZI>LgK3e&TT!0RV`<*-$gUFc*)XW$uwkXf^Ebw31!-K4swp3egZB4W2
zlX_bwwsO;va|?`R$HUjQuw*1LZtxXw#fiO`m-FE4*v~OwrF31-*-k9Y^U+kPUIQ%N
zZUepPcv*V#Allu~4f9*VT!wUGe!)vqazfUOYz|q+@2|W4F}wt=b~n8Z`~dIDayDyu
z8Xafu=X!tZJ`JTIdwAnoX6zS)oz<x=3`ca&&gzE1r_Q3CpWbx5J@m{w0v9zZxU+9&
z$xOeve_BrOX{EQ#W$Dr2bklNIURLQZxGO8>nFe}mrENceSx@?US!{N!{mfAOWpo<x
zn#T~3-qK<_W9>`WQRh31a0S{zw76ex3vSNQ-5K|P?Z%3a{9!-;M!EGrdAsP3-rmJg
z`))Fwig%Uve0L$*PW!R@USLn*K+N2EmmY4OX|(En!q;0epMN>E^?zIQ_4BRFD^Co0
zPpyn+54M`0)efu+b**pDe$pGdt336a-@W8us|m-i{$%%@7rb}>-3fo(j;?&q7;3j&
zB6$D)RhRl^FaEZ|<o5IDsy`PSmS!Xa8<39*OD4Vd3%I5oY?WPh>50WE+4!aP70q83
zpZOiJE3kRful4Gor}ZT!-Cwe?+IMQ*9TN`w=%un||3B=Ta{i0T@w;i;?v=&w{ypK#
z-{QyF);jf<BK%%`(E2~!%ws>W9sJ_)s`pZ%w~m{xU}w+~Rjy!6D8D)R(#xCmyq~YC
z@cT*je%mQ|`cKlS6-VmxCwyD2seJC-%tdp$C(W7kB){tY`w2#qa;N#-JHOm!!K>NI
zmt;J4rvBb*JjIy*dHNrZH=Bd4me^UTt*?B0d5O*0f44l(WlZ??QS)+lj$dRLa2Qsn
z*65_O^pf4_lk9UB?pYT*qv(vS)>*godc%`@js8f~dY|fe`S#cIV{b3-*%Dhfec${|
zwVsk6_m#Uub?pv2y<UD67sIqEz)JYW-MSf1yfyi?s^ccHFFR9QRWj-SY$MylYs@C^
zF@9?HZ}!q2zP|<f@0&gUnWom=xBhzS-<5MWO^O0f?U}y*^<I0;llCdwZZA3SGxPS>
zg__Dg>SkOL{0^L*+P!|t6Z^Ci_4EE|F5TDf|I%QuMrz3$>0qm-b#slH%I8$RyR7mv
z>Qu}o`>9V{HGe+=9+vKXQyti1TybObrkG&k9P{_dFI6=^*1MhZxL<eX-n=IlJ=aZm
z@_zFi*+<qpEmHNKonBIN4mf61SQqFeV?V{H{ma@(F~Ewe`|!56kEUF__}%B_1#9ca
z{d3JuzrVG)%AVh|=rilp#Hlu$zJHDndKUv)MaU2_16aV^HxIU&CHZcbq|f<+?X1_q
zgDeW3Me}*A^ww{AuuEt2^yNoh%-L~R6s$w2+F0V~?=7sriDB89j_N;b#bdxr$QyLu
zO}kWCX>f9>Sj_a)FHffYm?OCubmJrN%%#o1VJ!2-74>%}YVx1B?Nb?{0y1jEfel>$
Y<o5+g@E9(A4_*Q7>FVdQ&MBb@0Na#LP5=M^

literal 40180
zcmeFZXH=70+ck>4!`>odp;#!=HK0fhY-yn?y#|pkP3aH_hy}$01PF$z5<qI`ks1Xd
zLMYM_AQb6@5IUj5S=rC?p7EYvXN>dnjPD*J6ir#{Ds#?ju3O*S*VjCA^3q8*HnuY`
zEj2?nwj+UTY=<5lKMMYYivGL^z8!s}qp1eIgKP6%br|?|;)#}p4;veAB<pb?dUDB;
zjqM5>Oik4|FlBBiAm!ZJE^%pn2tIm4(<|!A@f(*^#Le&LJopQ7Al~KvJzX`y$2}L$
zA%4EHIka=_;WM>I$DSW~kb5m6{A5J9w%NHH;bQ^Y+vC;a?4<U&xz;(ZKqda@(7B=Z
z5K?P<djPX^WD_a)?{fanm;Vz1Rs{Cv6O88;pGbFJZKGbybDhlX*n73h!Nw+9ma<&P
zdP2<AzhRZiU6XgQD{*EQL@h&^vU8x2?|*ho3^>Ai0_)oQ>(76G4%d!illspevKbp5
z4m|LmpFg1<p>Bg89~vl;st<x6!p&HJr=or?w&#H%2aKrmSR&`?+?oXHj@FiCml;Yq
zvFt8$A1y<YGw-@sTq3Xi_?n0qdS4hdrJZz+1ikbSan=zguilk_s?y07a(#w<ifYmx
zn2O0N#Xdt-Y3E9~R$@g^dxEZZ;afa6a`4#kN6}f3?cf6JMO2nfuwIwJftKSsXskX;
z64j$K_03$ErUc6n48=Yf$@5L<Ek5NV-V@tTjD&6J%~ig^YM>s&1|)n2k&-JHgEYI`
zVG1pu>l{Vm(p^71{db3da&fx9ug;ElHrik06_n7sK5_=~Lrp46TU38JP@$s6(w#TE
zBuXGPCB``vwqn@xGy)qE?N?ToAOlseV-j^xkFzW^K3-}*{BCgeuHKS7yN^Xjn_49y
zQXk?sr|++|Qm2!25W{~1<)K-Otu}Ih%m3b{MPb;UFU&`a@IWZsC7^PLLI2vy<POX?
zs@jH<>@G(M4#j@S-@l7ZrWF@r_H+{)H!uFXR^vzaCZG?;1;b;m)B4#q2?af>pD(hz
zjwBkZXJr>AmV9_WX=d9c6z!VTOyxP%kK$XY<ftI6ev)vDY-(W|5=|hgVuS;5=z(5c
zzG@mdTV-Cg&dR#w<m0S+7<(mb8|uV_kWQEtYVG;qzzmcrDWuMDiSv)2sI<w$UB^gY
z{%kF?^XW9*^z?s=Lq#y)W5f{-!y|u{I0ic%m9S64DkgfT9IPpIc!gNBY}de0JIt^a
z1Rv{JA<Uoduz&hEh?zHpbzh?HWLpqkLhjwUD-jUqsUp=)^psx{i9vWRs1{oB4bs>r
z(Z6=Sk7lLb8~EB9bLdUPQLq~HjkV}&TuR@qSS#QkXMwMjk|GF8OZ~%0iYDx_B&Ts3
zn)cGl%n*Tj*c%ePxv%P^+ww{N*9e0l{Od5GCRa?_({V+H6eQlbJOY~?FPb|9)6{B7
zsN}87Y&B19uDPD`ILU8?Zil(zB|o5j=`W-Ss%5p9Zo-9G&wJjmtRtwz<&AkW9Cy+1
z%7Y55r$`rkYH^E*B7ehDZ**6eWnhm+EiAlled-gHatIsQ@^0GNR2vfGY!Q+r)^dye
z-wcWt^$t`MDVCUF*BlwNZ-(w)w=n~dXI$B7jyRaSnh+aGqTA|8JZb9zOoFGyd-jK$
zlGD$Y7W75wfG1IF84ynOR8A|Xl~CXqIivjZy`hu#L4rEcu;#Fxj#!`Q-<muvC%T`p
zJ6c62Itr0W4+a-FM!d^m<|O+f+?|&D)-2OSA)JTgJr*qZX3wG{d1n9IdG+)IHkF;$
z{zS{?71n4n)EpJSyKIZT=J8P}Ff!|g*brZh;~J)Y^?x=XmmU5K6|+oexw`)q%RR}1
z{Wc;vbdTM2@L&zeA-GF$t6osg*l=3Fb*m~rEb89S-VCbAL%hqLw=1xcq5PH3)AFHZ
z5S=zxOER6kf=l*27>rT&uk8`Go&PaptmNE4?#h(Z=L}ArD?%0zMykPxqmpahTMyJu
z%6?Z6Q0MJFvxshVt`h%m_ZD$HnXL_YkDWcRve$HV;cM$%yngPl!yi$Z)SQXhaj>Xb
zo|dP{r`^-;C22^yN<P&p9kknRW~W<SQ?3vZ*RgK#Kh;w14dZqSH*1+IPR>={g#3VJ
zKeVy<kl>E*`>ap!F%L^=*y4yZ&kl)%d_n2|`&`-H!vVCTfuvdKRGK{x8{6UU7i!qp
zK7IK}TihB)RkR$2q$ScigK}F7w&8`2%YwIk%<t%Q8A!T@#mfA!vq)<-kE4AA#iN}l
zW1vv8m!Xqn34@aoSBlPheVY)(sEh`%ljJkCE~|ZLy^zx^jw<^h$beKXWZZO|?bFLF
z#&S3|rRf=qOP|M4C#*5Pi4AmF!Jq<__VGV^(kZiADE~@voq&8dg7&@EJaK6Eq~E(k
ztnv%jo_JKb{>^t*UBR&Hf#l{LAJ~FpNtu{U7k{!tXf|Js=d+1Z)-87juIg3jBsp+i
zt7Jr;#e{#NHi$5)C8=D-hZ4Q{*JF?oI>E9uW?yR$D`5K39uTFEBqI|!%EI>-ejUE%
zUd6<c5<y-O>2svFC}q@%J#N<y`##tFfv;FX^#s2Y$M9t%cO7}9K+^L69Y0(yD}I5n
z9AO3RcwyI1SOdohiC$FxxXe_xgAlv6V=4)PALTt;>0wn&D&gmW8?4K>dq5pX@6OCI
zpN#c9zj@jdkHjs<43p&Te)Sa7DND+;oE5w%4Fz#}++tV>zkt9r{5#qm!~YN&FJs$f
z1bOyr+yTk+^@~#U=xZJL5s{YM*DcG^Hl3`}dU!9Kn~lx*T(zU;?SLw-y9tFTcp~0n
zsC$%5l};`3|0eEJ?SaT{pmR;i7d{R$`>vjwR%MstLY%)@c}$uVWh6zvd~SqniK<e_
zU$4>`?nlAnF4kY|j}hQ9$z5-hShO@ng=UEju)4}!w1u0M9@v(JQ%Q!s;Cs}?L$bU>
zg5`RF9&broZ}3sV-F=Q2YSF1TEuwuh4nA^;3&cB#j>iJE!tR@MEnVRx7TVSd?pjTT
z6%bUqk_2%4H*);u7D{=#l*QKh)sHrxX58<e$TUZ4T?$HAbFR9^3*hs6R*lpa_*4`|
zj1~=1Y6c9(RT#7S6)Pyxl@`0WADrk{9r%?5lO)xx#ngRyLgkolUd>-wd2%ZJ*yMSY
zg{iBd(?z1FS2v@FjO*SdB(@$wHRXmNbTtHb8|?bS`&Mju(beyZQzU2y5+}pre2a9w
z`rI3%dwCLN95X9OCDyRW>{zp)&@9sOg=4JZWZV9_1u3l%PVSq|6rkh0&1FT`snsiv
zue7w#h33s+;sHqxZLa?aH6K<=nWg-`s+Xp7Df^Zl;i>t)NMcn2-qCxwJy?=v`3<Yn
zn=C&BEANV(XVs^PW5i>9s+{)Z<%t5ueVhlRHZV@YN@87}e<DV*SHP*)x~o#}+st&}
zlcb+>VUn&$x*@?KE+59VBF&g)E$zVX=d4=Lfc^?Pm?a8>`_LJ(gO2?L-gTK<B9+mp
zR)5PeBA;o89mGCH&7UykHPHAbj`%&gCJr-j_#|nkwce-a7}<(_)coq77%WsPSa*_p
zVn~42CV(@GlL7K=$eW{{;%C7uB$en(lIoc+8|c}hn-}mV4iQVV+}G)}qG(W&F$WL8
zfqHvjE!O?KjV^Fcf){R^G*SLka?@JKwMG}GLO(zG3UZ*{%BD+c{PPE{w!4BH+S5(w
zAk4?Ss#b}`WC0s4crVW`(XpQm*3tZq=vEuh<{&g8uQY!9Eoq{d-sl9=B)yAGYP}8N
z#3gWNtAvO}Qig_onnT^EIC<f?tF+B?o3C8a4fKA9s*Bss!fPx$N;yu>zuUw#owlsp
z^j}f1_-^bT|GStT9YZ4w+|hKQK^#L3!^N)@v}Vgqgq7<g`SM49bJtYo`=Sc5ca+bx
z66gGx^LazLBjE&cJ^n;YKgGZqRe7bUs;7UUL9Yrw;k?BnE+<r!^)lglqrbDZn$U5^
zWN1+1J!B9{o2QGL6q0uG5q(N$_NuE*ly?K)m(O`b#@g1COJ7t)lRJE~Sm6U#5l7L%
z<Eni0i9ve_t1jx*_@zqS-@jn$9E(oPhdb+!%O{wG<I%dfHs9F_HN-L89EU9OPz^@j
zzdNVnZ<K#^ypK<mM@KxNx~F;X$?UV_nZKhq`}x<a#7`-FzZ_e3r)^6wenqZD;(tq&
zS1zo=j(UXobN@}lvLQxgc7x4PH}2wsuXDI!i<NQLOH`WpLKJq?8Ac@45aA(G(!;sk
z-^#f3a_wb#ZMEe49XD@cu3l~#Fz2AVqgG>yJD#zacWrq~qEx<CLDW`O@ty*zJz;y1
zQ(v^fS-zFUMgmv9pJHQU9*J}CG_b`ys<lB$qEGB)T2kgUVa__U*IcWkw@hRNA*yxP
z1=^Nkk)K;V`t<F;I@M33EVZ^o8-q_dR?vy>C^vZE(L=ti=<N$Xqe+8gTQvDs52-D5
zS^4Rx6l$PlX9m@B9VPjo{}^{RNjI0N6SbxRo0afEF6Uhf%aVS|;+*9F3?nM7y%79;
z{_}{kgcCEj<1SK)lUf<IP?)6<=OV(OD-v}FYeCL8AC_=9h$ptJwt8Iisa`pXxzcQn
zp=LqNW~p0Z8B&fF)z4b{J_`TRCHHDLh3#MCjJFWwWJ{7LHE0nFtP(QCw}YAB#G^at
z%C&79n3Q&s=z?l}QT${vy?5UsB1xa~?QS}j_ar$($!7i6;q4Tx!ij+n2(i8sg%r-I
z#x^(x_er5wvswj0Odl32%HwOqd`_>%`ljhhk!Mk8onV`;(vtyW#kv5v$Nnpa{w=Kk
zw=bWrwTLdT?1qQwf1kM}RcIs~y$%xekUz#|nCpLDyzwvN{QH}z$U&ec{=Z%^xB5}?
zuwd)15ExZpSHQId>n7Oiqa|x-Sd5j#;2zCfLrKQ1#<nug3kQW5dX|ep6BtTuXk+Ze
zg6)_+!hLsn(LA3$JHco(M^W5}0KYoP?SN<~)KPa}q#JR<*Q*&B4$8-FbHe$rd8MDp
z?${aYD;egSExJ-M-!Dnu@Nhd@UeUXKG1^st_N{MA$AL-FfJqAs3776}R`^|Cu3I?E
ze_e^3UD3K1tkLxk%*ugDq@s}N_xXiQ1Z*T|<9&A|;$(CUpPxowj`e+q{fx?L?D9;M
zk!4z5=U8LX4`4zEA<Qr%xrLQa#QnX;Us{!2&4#)94UFUIg}%yGxaN@gJhWaf2;ZMZ
zJCL@htiVA@5#g&0!Xr{u`~#Z?8Ot1e5VEqjaL2e}z3j6gA)0LeSg!X0L^bg%)@joG
zn5>WEY=D;5=8^v4BD&$<7TeRGUQl-3xBo7dxfdsXS#%*iT2gXNvEiOl-RlCxhlb@V
z9(rGnxziJG_^Ch)gkGoQ&RwjK`J02TptP6pMHyxM=W2TTIgSc}Zk4Xbk!6A?{nq=H
z@DF)!ZMu#vJrUnGE#6OV4oW|!w6_}!7rN;m@;V4DNG~<Kc(5iR)K-UUx=Jjy!}M)m
z$u=qLF&mR>vbXyv8}nGIW3Wqk%xb2tRKWnm*1c4)7quC&5rtI{Si6yE`3i@|9w;V+
zT`#S*s36)+8cA$CtTnq_K8^S|*IBM8dV@2hBtp=Ql*8@`v>NX=LhtzhY*>!LPoVCp
z&27RG{WL_@rpKSlwCI|B^w9f&b$b+sdz-oM5w)C-qUqJ$GlatY9yw|Xm?WM+*-E(P
zNa(#uS??X}lLxvPsUEduK8!x`g6|q<U>o{`2ERl%>01R>PJ38K@|tTF_K+Z$IGY?u
zt7Ck8+lZvr=!bS_F&I>Ps~US<u=jPZps;CVXR#kV-ZwCp_r6BU)<#Ec{ACh1rm;?v
zU(5k1Lx4@~oB^`d+gP*96Jz^Fvn52;ryD-SB!{XVt6ZOP&)mfy^K$fg-ilcB4l?_x
z?uL<<6j_LhkKOe^bUQNAqwoD9&DJWA?J9ep-%7PRJy$>T<Fdb1_iZ%gAja<K7sxYR
z;qr3}nL)ZyCAC|3(Ie_tClhtgVC*=)pd|H5c61vN)bj!s%2z9Pa$-npV+`}H&K%R#
z9|jz70+C=lZa<lJziIMSCS>hT!Q8fGZi-T%V7HsRsPxY>Y=Qr9z}bGii*&4Wk&0Ut
z#tdtFp1+Y2uBLupkhx=2Nj_+ISCFY#ZS6MNzJ*fEw03*o&%`tI63fGe&s@b_EuJR+
z^GnRA-qWq{trAp}R@*lstdqM?grxWRyulh6nN%F?&kcN-se_u7C8jOJUqr~p-gY3S
zI|NU^GAZOXRVgp+SY;EflY@*0j9@qXZnJ&6254hc?0(4W2seR*tyZGPqvP8Gytf@a
zt8H$qsQZ4#{_y6L?M$n<-z5RD-N2IuqaFw3>q>q0@(3C!n24)MIZvWoa$Zto$Te%r
z<Kwc7=3f@?nEl$k);Ey24+~Vf)-64Wgsq%QKRs=O88)fpn;kHp@*l7m@G;ET0|WV*
zQh_K92f>S4ac&PvbZ_U0`$a2BEn@1*TVJS=Ul=4i1pC`cOozuh1Rr5XtwJ%QS1Xza
zB|{UKX*0P-b3qlY9#|U(Puo3M7YF1=%z(&j&?hX_VYq<-%&A~~L#sp?4iRNLGcK5!
z_SQ`_^6ePD%#xluA7da-6+J>7HuiHpFBb5nb@8Y=1m6o4FO81S3Q!RAY5!)Mwf;D^
z^+IXG1ahu#J=!MM!@&4T_wzEfz36@2Q+Wl&J@K?kQJ7Z?56P=(Z-E}uB(G_C4`M6?
zZA#-L3bdQ-+}%pQHy{WhYE+D=&VQN=E>~dgfCO+oOJ^3|6W1g3?Ms(U-+t9?bML+5
z!DS!E4>UiBl2Pix37YkF7|jMJpuN7OcM>@?Hkp)}&n%zt2#b7LFx6yGTk24Vuti<W
zLu6yU915j7PJY(Ugg}oviXkO{pB)bIj~K(}AH^J?Fe)JQ^8~s>gj2K7?M;m-rVYLf
zDu^v^QU(mK<|>G4*ZYOf2F?S9nku+{_0mqf80Mk1@zg&Got4FoZsqF*70-=&HZNC3
zhxzM8twsyyFH9=cYPWN4yT|+76nAG@;W(JFd&tU#<V<$jQBfo*s6_Ko%y5-oZ8es{
z+m&y$4EOIx&FekrfZpxt7F~~q9I!(q!C+*!^Ys-+hv4`so=HOv`sn#Z|G0U74FM%a
z$(|>MO%0+?ovC0nr|?*XeIdzDDyiKw_jo_KUR<MGTuT;X4m=j*k1UNXV3)m{A6Hm%
z0mw>^7{B&%1+8HwJ-<&r^dC`*7`<ZCElxZyBk-@n%IF%><JU)_44Yh^_|UUZ62B2P
z$O5r{b9C|&Y&op<>;wq3|IpYPE6{#pdrt;NR4e3q|2l)5O%;^Rs<f)II@^U+P<!ss
z1dVRlc@3C6-1|vo>yiGf@Xf#zM>QM|Ix@~JsQSGa`w?zXw$AN|7%*@MZWd$;R0&qp
zm}f=0tBR*@LG0NrX;gt6Dy-NMch^19DxBg~85GrVB@Dw@dwz~XoHq$uvj^c`Z+jHv
z(7amZlCg0&5~tv<X=@cakER_!@gjO+FA|okUdX^lx^p14_4zOqdjjp&`GnQi_d@Ia
z%L<e|Yu})Xn{YcCLibH=oJKSphDk`2r!H!~(7Y-YQmb_NMx6n@d9|nVcLlPr;6t9n
z!8|guG<aw3odonYEa<vDX{!0O=7Za&9kY-)frOuEVdl@0#LEe*b*;DJ@`XQ@>yMTA
z;&0C|t9sR=_;HaUdzEj09bUKnkh#(wcYBEO?#5ofm86ey&e=Qz8`$-8P=e6W;?#;;
zy%oYfq3*j^CF$`2;j;M^O^;ITk<N$$m8H;WU+yL~s{CaKCP@UckjU@&_aCJPOY*|x
z(&ru+tM6Nlee$v|j6FsD90!uVw(^QKHytgsClS<>HnYXvvEkC0^Uz{P;mjN3;*C&#
zXVT%f1$XM6>w5KnZ5_I-@8?scf!eXf9j-*i?bzZsDxI2F>(Difg)5ZDo)jA-eMp44
z<%H=d^JBzZmtGocgg`$Y=~XmsZ~AK)c;De1<is=s!-9_yi4Pyfwn})s$rV$MB`vYL
z%H9b2Q&=^|O-<#UW#*6Bww|@9ZAlTD@;<qER05wfcA%0B;hxd4-&a_x_vMT|abIZr
zT3UAC6-K~vI|)%`-b~QtE8IZ9&r4hGt1hkE<C!%|(o0XD{4<c_&7P}3JFio!Cv<Z`
z{gf4N`u*kIWfk|$^s{h$U7sF$rC>5Fy1*w>r_!Fcr5u+Sn7`dm{^{L41kbJtjLqI~
z7E7h-@48R7MNy<J*u<=s_`+<?qAjR*J4V-hD~4tTG5N>R8s#Zgs(g6O5_@qMRzfre
zR{FH(<XrS_Os$R^KEuko(-_hG4iPZVhQ|UezTx=$OKA}l0gGXaC4Rv{MLw&Aw3rq>
zW4)=q;&tSR2&cRER%e0Y!5ZX;{VR;r#5V+Q$99DWa_NZN#$~C_v<8t(kcbEyRw8s7
zX;qC2w{^1CS)f+^wAwT-1y>!>vu!CzxO3dfq%peGfpL{>?%A!t16M-GiLsx?uLduD
zYBhIwQz5dK*-c}1R>$w0%D>J01Hs%<k1GzA_Kn?yoPG6a5}Cab_;i7En)+M2E6<y7
zq#gEV4ByBbTQsMJk<xWLw^!g3a6`H2%Mhy1hwG(}g1@LRb??Kkkc-~I`7kZ2IMcer
z-l8&U|H^Nxtbkl@@(WA4V=$k3T)zE#BiH?u30Sb|l+J3UciP9tPIGd%?t7duDS|m|
zJad>Fpdg6Mq!EvV9WR`bP0c{&hVt^(ctkoQUsBrPRf16eglQ(^fTrt0u|cYk`AR86
zvnh=dY(2tQ`P)}qL)fn3HaV4}w0!+A=K7-!Gm*`TbIm&syELYDtz4~44Y~>-#JM9^
zd!)aHV3?mPS~uzqj{YKT?F4P=Zb-<QA&zRUICxU^-Q&cejk9rr-6VYehSJ``eW!uy
zafb+>ee_DDbG0s;v{f@ATfyc!Y}8u#NF~x|%y$UY?1sJx*rkpz^vx!(@`T~STJdy7
z_l*t?#O0Z_;FI5x@4z9^i;k22<=!@8Jk7x+mRXHy2EOKLeWbQWNAAIWni21HaXca$
z6FPQi1z^C}9CD1Pr8{^sd`^CcWlcBzg?Tt^Fi=YA9N}##Y1$7FQ6EN%`vle+FI`Da
zq_&QjE~gngBl3w}_8p0$d^ev2&uMG99g%YSrR(X39VAQy#9oAYp;HLr!uGt>b&;SL
z6_k8a8e_XWul2BUuY+f(c$AWV6Cb%Q7+SGc@j|gcYCS*<sVHP$;GF(3`|XZL-b5H8
zb@q{&$&|D-JZl;eJGO0?*t(53nWwr@)M;MRG{}$qC2x-W`PWMOsKu)CFejm!w8zxA
zVxhq0vrjH$_N4!v&HuN6*MWKm%A8&K?Y|qn+Vpv3tx;K|l(6LqW!mqvn1`OHFylG3
zt>%N(4zo~ILsGcknQNL(U1i{)>IyAH5E|z7Udaj{p->zwFMRapE;`wzdW>kG=JfTW
zDulR_T^u4BafKLW&ak<b_kR9*DSvAF5}D(&9%^FL_r1VN9~MbT4AIfL@X{B>IKlN@
ziOp(Ll5wqY^Ug>4`%W`ope={P<KBnzzu2v9>EU?E#=Htn?XHBpweKiT*tE(WY=W1e
zZ$B}wYZ&#TpU1DUlO*VmI^IazY;&1bGT)HXjF;izXyE7X4PReT&#geM%WLmMxUON%
zQ@<1<?;e@Qt_IJ_tznnX>Wao(OgDf$d*Q2ejdm8ZzI+s8HU8G|pdxQv{>XLaPM9m&
z$8v7-P~@aV)UjMfT$Nwxu8m1nqB$2v$~h=%L5wc%TFi8q+$5Y^D<xYwAleoxwD<6o
z97%MkLtXxd#1qREsD6GjvMBhkx>OCDUH9ySCf7jjx4k-ULG^U<-lpQHAKoM2(UHxX
zLCD<s8bA9ZVKrr(rW`8Un^*HIrUEhi3fKwasy+tpiCSNBdg}lPF}Zb7jvTGhEOb=t
z)Zdu2QX9dxSj;(@rAQGHM+Je?OBi4JO63VXHBG<LQ`^zgF3fT&@-Nt>?8QUcNYF}|
ziv!ha<ZrZoZzz#eQ90!<{6F^sz^`Sy35cZ7xd;?5WT6!#sO@Z19eQvbKjK!d+l#2i
z-V->J=o+o@>vTq`(G*Xx_NBEa_5}Ef&oEn2`c;<x-fm?E2ouZeM`hfK&ZUQLAtERB
zYwzX{Yn?HQ_mD7{8=5h@FiGxB`|%kuIapl)RA~^3#?`AfHKuH}1lPnXV0UjZc}y23
zb!W0BlyU}xc`Vo~b{W%mM!vTGb^O?`)hamyr<B@L4o#FDxB4yeVaYeo<YeWdMo|0Z
z4f1{tb>BQtnA3vAHP_>-rY+FAf4bp?e%p1srmGGhL8ZsScii(5(nlD6xo;gjjY4gv
zz7gO~ea|mJo{6|^7cBiVqLWdFtXTQlw}O|XPiW0@ZEwGQK`GcR6&>}<_6R7w$qZ4s
z<l5!926vyTLI-)}58Kn-agn{`zUPHd(V&j~xAr7NOYIQMskRksghFuq(Jc<<SdR~~
zt^QT(%sfgR(YN<;g2~@uuAhzc>yiN4&gWxxEfE@NcgDmgx+ZlzuKca1l1;-m_>#}=
z)OwX*97Wu2&aF8p>{z8K$)Pq3wfQ42s`aM+u7mPIcFSP-@{4GB!IJ$aL^U@y!+&QW
zs$_Sm2825hqe!V*J6m*6oIe|r%@rd@a!l2TT6fpx3G2mun$&OzzF?Z*8`qjoMpd>c
zTS$q!z3X>&2v#q65OVe`>A{;fkMf(7B=7g@2AY!dRr<9Vp_fDCzd)2;!4pojSS&Dj
zPtYxDIfsHtf+YvxBh8i5(YKx8k8nS)jB8lg#t_hmq9)6QQ;hzVrj82j9~Gb{P#2FG
zqT1tWLAAO<7wp#3-u}`J5z3UsB&IXUlo6h;?TIJcYcn>ueMRcR&f+^gs6!#=5dN2>
zAg9Uq&w6rJ!VpK7=Afc4I?2YAwDA!6_jr$KXBRfH`zGYt-zAPs(~4$YW{}$b!TH%3
zT@~tMSpz@w?1ZuH$-J1Bwa2#ZK0DwXfXvv#Tw0fVM;CyCBF9-pz)Rz&>)5>uriAi?
z7todVQ&7ls*CEG&jy$fAL2LT42!5{N%|qXnS=`~!Wa}Wg$R4-))iB+QdSm$V4PIF>
zq+5ZFNu%(_#~6po<cr1A4HJrc)Zcw8;*DO8?4mA}>&@?;-ZgO=r0lo6BU06z>dVzk
zJC0{xv5}UGHdD|My5DKc<;?T*riFAs_N9m`Hso))Z<J&T(q7YaZ>%KutyoFYdAJe!
zJoMk93n-bEQgeH$tN~elPQ+%vsYoBQN)O@`8ng##E)j=u+~8C6yCfxj5lWR4W`-m+
zEN7vbe(vq*)I;3%1=z2T26$Ii7Eg~`Q%+9x_N|<Nc!YD(t(DCX(d(DW3go1jH9Au%
zGvw!Ovx4jRbB+QnvA#ib3+qFsr!CN}hm&_54vzCWMvTD+`4M$C&5^Wk*O`ji2>eym
zmbLmzUp^bp*AA_lkbgRq+mJC=Iln@6hl!~MninWAWZ}pT9KTWPlyiJr{#SWYGJuoX
zF^atEp_<5_X`I6B;64tOi*%9hhAX1oh%d=Zp2&hKU6tj{K6xe1u6;3PaH2qvLB(XP
z%2dT;x=x@NChY{d<YyYU>43ktznOdLHBA3pL7Mh$$GQzmM`6<Vi#|y9QyD9fI)i#q
zJYsGwU4Ux<-Vt{~Tb(QYMuWH7+}c?T+>&hm%ETc!*|Q`eQT(sK9FNWSkcNBa+g10c
zc56hhzE525VT6i&C@|`FOuZSxCzkD%MAMJI7&m_xV?Q*&-|Nt1wtE%rMR?(x$~BT`
zCRP_}0l^oi3DM9mWY!zWgkPD;UPQ7SWOR+wWAaR_@rWsf2eV#Mjg1}HUh(k~x5@pU
zSq>jdbcM1ecp!PTvYg$Fv({t%NKe$Vrf2sZl#L!R<YdCR0VZi#B}t##-!V(Xh<DDG
z-@XeABJaTlH2`}U{iTDqTDtX`^UV8#72TvD>ig))Vs)WD%iGLgbnD_@9bixz5F)Ak
z7)Ux&OyOhRryO#hG>^;Vm0XddiFEt4DGRyRwQkPcv#QGCYuPl<iC!}<IX4oJ7r$3@
zRu1x``)ezQ5c%VT2^Tc$%fL2z{nO-m?O@%h-Q2>BP2p>$`#5}pk_>E1K8ho+Q?ae2
zn`>f&qifiP3$g1b$Pr_?<<hYda*t67rIQYmY?mI$Ht(-#$I$UtC=$p*3rH<4vu9gj
zraX!2mpBq^D<%EI@)Tq9(0x5js9QNNZ8#@xX4D++sniILXzptaG>0_5%?do-J&gYm
zeB$V^IOhc|^t7d5`lkj`V&dzuQV9hm<aEp(t#FD#<(gyNL-mB6JGEI5+tXhlw%ED+
zKiVZknMT4_g|*chL3JBWXDsgYfnlCTy6u;V@uvg)%v;CzCD(WVPB`&FU`02|_f4F1
z=vl<>{m2~<65Hli4n<)H0)hoDi~SarT{8E!l<L3mo93CP1cg%Rris8=-AHWZxK19S
zEtjU|3@5&g!^VzL`?>&q6n`5spN?c_Cl#=n8RtNSWfdl3r8u<$s8d7QO7EVhS4>@@
z(j_L|bLE#S6B&x}t{%^gI_A{u4hLQqj$dF7-#w$`9o`yPqfhM-JTyu673tW!@Oh%P
zoZd%X+DhB{Ptb4oq;1zf&dw5Q9@owsPHa5kT5~jT7tWH%aS=9nETRoX3-uV`_uN+a
zb*I`UV6$L-oUbb-=V1vK2i#1rSQ0qTEm~?>vdOnep2e*f5*J82T_eA)rcxe0w830G
zfo=(T13ycmxSIOmY~cdZPdna1YS*<LoID7&OI8(eC(i!S!w+hSr+;OpeIw1+_sQp#
zPa~VrG(CBvsnGswrD0pd<%+t~l|wBfx>@Ug{=w`LU`}UKNaX?1i7kKq@euMlaFk9;
zQ~DJn)s0wuirFo;$)Zdi#JtfpJi_xK@uI%HpZG#K#CA@<JFWJ{^$K}`>QGBadfr!N
z%1x063Yg|}bW;oUY#zNEqV$1tg=y$H7OY=7h!`@(P0D-V603N`e0CV|m|v6Xjl}S>
z;2gQ#PjTAvR987z7O`i_Jk_Zs<b0}-jQ4<s6m`C7R*sq9;Ef0u>%DG)bFcmYQH>IW
zY`Z4w-t;Td{oVf7mwJhQ40D8UC9!q-n&?V@h0vIrP`AR9eBFh8k75sV!S0m>Z$^K{
z-2~mkfkS+r9uG_~!@(<#?F%C<gPFhk>~?RqC~0L)PY7T-eBS69Y`H>+oj)YkByenA
zRm8C0%);{4C8zxd_8O=)0iWcZHORJ?mH3F4LqsVduJV;O-qWA<-|X7ru|93r9Q|!|
zhM55|9{OB=){GVuG1VbyF>;joc$&*i+pIR<Y7J(tef}_fo^_j@iXeKP`!6<?t>HvD
zO4WPS6KpCUhvQrks3WXqE8<{jI?VcIj1MDbx$rpKL&B4ynOa~O6^*bC=^X9LS_@h+
zX@h^Uh08j;ih7dV$GT5w`}ltkfUeNy^1$!^f4x-BT1?s;m<#*TIdcGYDLz2yKO4P2
zU)R>sGGIKM@U_*urTSo>)a{s_+#0ce514`3h8JOm8}x%${x>e+(EoM2B1^#i=Sn!o
zIx+wE`ieci$hvtETq=U<;oQe9s{I*-t<B9rPn%JKCJfyAOy_uwmH<R~DK<SFTJ?0i
zDS$aYwEgbLsq@AGq-yoI=Vhm+r=#Ju!G3ikTQ46(mvq&IZi`)y{k5U6P_y!Sx$qQQ
z;A9WG){@WS15I8(^|6wh?MvuLe&jckNOs<%<a~>j&XklC?v<65{oZd+$Ey|mW__1Z
z1BQcsHod>>^Bnz5sj}SS7=Os($Tje$4>B}vpOPL~HvF4@*jUEX<JrW%qMp@*N``^Q
zk?<1M4mv;H0uExC%Y$_zeYwfr26hGa$WRMcS66@V5LkL(ZEfwbyS3&q9853JQShBv
z#8ofURlhgdYl!3sEByBDn`OFksN|v*@#gFU)BLJev6NA;T0McY7x(`>=cqV&op94+
zqUwNFw3Wh@#tyem7hjxP5!h4m9gh~*fihYQVQ&q$j%4;b6NXA0Ne2W41uGjH8*h_w
zwqY~*7NzZ#;~x|}y{Hw8`vk|i=$e%5p#kx{f;A)mj~;gBqK{I;qka}h91l**D){=%
zMT{+8_+X97>sO~QdRGc4E&sY6mr8b}6b{9^$P5sJ-G^&7zr<eG95x4e^UCOSA@c?d
zKBWeXgeI<XZ~C;$IX4_Q#<SQs*I(MPw@i}CJCfrT6Kt#j7G-*0Ft3J=`g)CWMkTnW
z?2vx_U1Gre;AWIbo@sfs+BJp!#Ym`P)sxYBlK=c*f53EmYA9isN!4k3chP58ZaQTJ
zSLH`9T#MV^i&~Kh_x)CWM75*4jEjpKWMWwjWTN@sOn`;`?J-ccSrod>q^6Kb?d_7~
z`?luh=8z|UzI$csV!RUt642-=#ht|lkJPUHNvW`l!mvZf*cBDDLZ6c}#KkSkW-ws4
z(@d(@{uf310XBG`$Fae~a>TIB$;96C5|%wSs8<~PNaEKA8BXOMRDT2<4wsRVk{T#;
z?M@}^?=F}Twr2CZ!uB?&J2rCoQ$Vqh_sR-Xss;xlirT@N6S$`h*f1y~aO%91q!8fw
zUiJCWR3l^Kb6<t?^j3FPI?_k+#k_ai`+`uuy(VV0lft2(cq`7IKVSH7j%|^fld7mG
zAuF%NKR;|aE<&&_%(;GNuf8I?e;Qt$3D^{oa#3RYbnSw??~E55!6?^9{X>&5x_`eY
zbmCVmZtKMFqaMew52rVp<Ai0=*!=wbF0g`vMXO_MUv;D2zAe><?yj!X?eA@G*-iEr
z+Efcl)hyN@Lv~e_AF)f#b`@h|do%Ontv0=GdtTvbdy1U1q-EJxE3N2x1Le($g`FP9
zp(?*1+t4+WY}R{=6@D9|exjmNQ+fR?(TR!NjNhLdwmV&9=zH4>9WESJ*}=NWcMAOR
zo<ovfZ3%ltph2heObg_ff8XQa4WZZs@Xp7Z!N3Vco9xJ79Vi$IcremqwH&P1W_!~g
z4^^%CJwL{w>_kFKAl_e`l(A5e4^rA)?QUZML#9rmKMG6OWq1Wpg%cJ2gdg(6lO;q&
zTabUA9kWai9DB1%Cl?^XJU!?8c6N3;kMa8c_DF;WyG}d!mGud$n**>x;^4LI?-=Ra
zr%s*Xhfc;DZAseJ)qGDAN(HSspOc+d<=gp1eW>B_si{_s&y>>opwB;5Ysd3=k9&U@
zsq}GHLw)IV@qh5(!2l)DB-i*N*BiB_j#LG_M#&`jY*J~v0ca7#;hx=;af$9My}VuO
z$R2a>)tSq~ammTsAxPxjOqO0Ud*xgSNq@M=?q1gk<WAW==E^EcP$$=))-_o#?>DO$
z9~ZasC{^B%PoAD%s&9~T|3>Oc8Rdj$4LX$_x_$jPF79xU2S=PoG{wFiKHQb5b4p)n
zt;grGjLTv)E9RH)xCa_speDEP)h@S)8N61zHtyE*bqU+O<i;S73#@DtzqNKets-2$
z^+;_+#3*a^%#wmC9)R?2a|cqt_xxcc11lFX7qOii^ooNj{a=nri57rb6*NQ1%jReL
zaO85|z?Ccb&pwkf%fVs=It;d)(?gkm!5#w~b3St9NM;V%z-e!1^LB-MzjwHR-~3?E
z8*0^1bwE1Qxjkjrt9FeH1F)Gsovlb%o9WIrh(5t7w9~m~2?DzZwxckF+-9UUec;_*
znobYfdmRdmkB@gK_Z-@K#U*CyTb50&3q|ZYlF+@j;1f=~<(A^xZwI{b*f!0*B;0pJ
zR6-&_DcVIQiR--vV}C!GZ;p!h>X01?@lhGO11g}3vC;t@VJ4WtY0_Xp$?VXbMaCPt
zdE7PKG{wy#!p@`=ey*=L<3qVS$m;tngLLE`3(aREj+`ni7NTlpd$OU#L`0esu+&0V
zT+^Dhy@p8bDp_{x&-mH^D3bx(w0f6g;>eCA;Z)zQqx1zpZfSc>m%Vh~sa^X3y&x2&
zks+5O<N~W0T#$pK+5s%WafH1s#}iW1ILq?fT>yatQr6#!CbQF#@&k3h4HO)DYs<=H
zmbd7*eW%}_RJrE{%IOq^@H-v@J*%Ldc%Cf&IJTZ9=QGu2$}#WT-VGP}2FrHG?aW7C
zsnI<fua9s^oWErkW{a!anmq-uA+H~O#8b0-h;Uuw-AAR+t<?-}DR@W=3@msJ@DE>c
zHm{7!ed5bg-2PHGZuG5!{VOM!r=^ekhT%P^71prauA*m2DPc~3cF@rmGF)IVrW9cZ
z<-aIxV)fUmqKBrHs?{i3^UE@eizI><zjP_oIGNaV)!2O^V)P=8ymoF&@_Q{%4l2a8
z%JpqjR0;6|FBPj9&4<@EEPvd4hlO{f!7d&^Omsol$(97hZV$yv=_m(ZNb8FeoO>UW
zldE@=+zNx9fP<w&{tLrH0V`8&+@KMRWGRI<+tr{{cqr8Y3qA}QU*Ml-WHHnH8So-2
z8TY;-s%e3xU-SG>^|mJfoi7)qole()p5*iT{pp7Rd=}#gHv_QO0_Y<fKvbz9Z5Xk@
z`#9YiJlhX%0gA#Zfc}yje%E{K=bPuqEn4>50uRJ|<#eH27q&TqLB&&`<L{)8R`xD{
zBCGu3)RshVispv~f<5lCXmP!f+jd9C&Te#IY;5dOqP2JPOXTd)??aW@cY4E5Sso4M
z8O}v7EI%(h^kye*oQ1~e$+z9^7@+=@AGs!ZcS@}Ap4@|>>q8z>9qH+1*(Mjj6OXa;
z1b$h2xjPYOfZS~0fYx*+O-z?|C|B>W0#yV$e1zJ);So6}q?fe1EozeMeo@YQ;=O|Z
z+zj5H_yL)r8C~}ogeDK~H3BDqT-?itJKLpacZ*Qp-ehWKVY~S(cX&9_usEUJx}u^d
ztU4_m0er6B=~C9g0on+Eh59F8A5h6kdT*ZD$l@BsHvKmtY`>69_af~24>_j=O$EcY
z2>aUvh0C&@)^o=GeZ-c%D>#3>+q0d5i`T`*E+KppawU$h0D%Td=r$p0(3I^sM{Ps+
zUm?3|lt`_v&yjpp^1W36a{9fl$7;#aD7FD%yPqdNJ!iMP8MHj1nP-NBkD-a3n*6mE
zC{XKe`Br$z4#uf}%-8x#9CapW+39@ZFt57JDO&>tMj3yB<I9&X1<h>ydRwI1@7im<
zJui{A3sl<{sFcw&Zi+?yrOx;mEC}TG%Vh8}F)<s!S2_Ty%PNhs^`&dbR4=%Ng+(R`
zAouu2-s((eMz(OBDNrlk&4P*fm46~m&F29|<P<Y2RQwki0ize)w&1(%Mz${XrF9|Z
zw&%y*O2Mn$D20(nPhYqh0^l<n9UrggydW}~>B%Nq;XClmI3i`-xg$-f27D-`z`AmI
zCRHJToFeb{I6cQG`|-^0&n+DtBLl_u!~nkFna}%vbA3;Beg_Y<=x*24xOQiyuweQz
ztZKDOC;b9QI^XmNlR@=D>?{$X#f0-%-jcU!*Q%%5Q@8P;!nrMQXD-})XaW@6{xB%H
z2OwXH4jYT35?(b+O}1eZr|F7}Y<FQhMzk&rue9o;+c!Bq?FFw1T>2fnHv6*Vy(-g-
zF;E^r0H61-{Lf)g%x0@}hqX6onXs_Ym)z{{H8T2v#N&Os)X0tV6N9$eA8{n=Sp7u~
zN~(yccw`IU<3%K2jmmK#qn;EAl)H33ic4H8unL<~?X9V)VMIgsHueRpccHPn2R%pY
zU)F`W8f5c<j&aBXgfk7aNO0C}{r5t!eFYAMxuT0euejB}IH8wMxqSQaYN>#PO;y>;
zkt(NaINx*U&c*xB{I+`~pqFyD_)T{(H#~6kg~NfZw~|#Z?;SjaZA+cr<36jf8C%mT
z4tauXuu8b*QDfA$ZQ$rjy1qOOYnE$<+jGNZu`=^fIdp52$RD=z6}n3^ARa5oZtMu!
zTq5#A%K(;VKkm(iDs9h|rXeRzb+PyR&GyjFY$rPD02m9Skqf9|sMV4Ey>&Gl74_jJ
ziQO&CLA#3aIo-a#5Y+en8L@9-M@9&>!D|C|fh5)xq(uRNw%cbPT^r0|Evqt@Thjn$
zLZBv_lR+u<P$>^p^J&+Cs0kM_rg10rB-`lcV^V)b*i`#-X&LtBniwIAU04$Wn9<(F
zw3-{QOn2av0~h~Dvyi%db2@$h7vNYQzxDYcn@F*u^*wP>(d9KceLSDfRI95b42U*`
zTf)NA7aEaQ0KbtLsuqSJtpzNaPAD@(c>>lCvTu6VUk7G`d9Yd6egHRk#QJ>gM1E<z
zr7ckWL$n@+)*4jMHUm#r-uUx8l^dw^QJ?`lOThC)$q+ZHX`!_RQ3O;BgCdAf0%|=e
zA;IL*dyUe7xxUf;VJI7yp*%xH)GlRwdwqeB6}G>(k6vByqmw6DIb8yPrN1?k5#4@6
zLgM|q3%AC$_>_XJ5kHP_=W|%vLZ>HLSo;vR)#inirqcVORR^wCOWIV0%o}R}QXzz_
z4+WHaPqvWZv+;%hkDScE;M70vN3HMs521pPTqkUdy)D#9lw=qK#qJ8`pJ+sX-Lj(o
zsI9z*>hBd94|VS{E=2AO7<?ANJ@Lm?Jv}{R1sHwB*C&4}_V@P_hD$i#sC^;w__UHS
z(#{{;y0h9=ySlnk-b&SNR2kcg_9t?mJGTM;xtUcoD6(R-gXB?dZS7?pZEf#=A38cd
zkD_0P*0Ui7fa;vz0klv^>nk4r2}ITACzj@V`aS$W1HC6ly3nH3DU7f^Urh}x2>2Kz
zI6FcJqogSzl%*Y8;*ld^`@5gPG}@cb(C)iKWb;5G>&7Jj;#t%Qb+X-G%Is#xo^6sF
zE(8tU2xhPye;}WwkU)}zwS&Pe77N}OXZE{BFl>6VEm@XZ+Ypp3iYcTmq^00M`TF2G
zQNfY@?w@c5${1YTZna&1JN5rBT<OiX@X1d1)vq5Q0710nPG8VZmDghiUk(l8%U<m8
zvidU(*dmt4qcKf1*y_L)#nnIRnd|dadIK9eMeIh<g_HhzJ)cycFWm7O4*3(sCH8o`
z&Atl@%do6)4;ot^2@9L4T_2`80R**`FQ^7AZ|mji4ier~{IH==6M#Kl$I1ISz>r<x
zp%5S@35@Y*DAJQ!;UT3D%IZhFh*44)*e+4Rwr*$R^SwyE%>g%@-rj1rLAnIJMjU8d
z+-=XnZ&01Cpy||gTwY<-Y#a-F3v8;Ho_RzS*39&g1?0YXUX`gcK`v>J$;a<(HD{-9
zM~T5sX7d&~Ec1jdHw*8F^gPhiO9Rv9LV}nXUz&R=s0gg>ygy@LawAh}XvG_-3RBp?
zx2GB7ynnxmsJMq-AneyAb(fsEe8)He8xaxFhFp=#D`^<u=XwdiL{dRv5GiIiH?p}h
zO}U^PvT=sIzW}14E>*kQr3r)~Y@oWoP%*l@CD(-!9J)3m{cJ^KXmTH+e!=5e;!2sC
z)#!_gM+V!LRtLUcJODSg1ks{igV}mXbWyC<FMauy7!h&Mmh(gzKw=tDmiimBdAKC4
zq;cWsskY?(u1cTj#BBZ4f$3r*-}dhB&-c9iE!VpZpamkZpr9bDUEQLoY(7>Gw16qs
z4In&GXF2rgeO3V>cee`Y6x@hBtQ2T;c%IL6`*rZ16rcIQO3n{*Qx`h8zap1QhCY-<
z0wn+ZUVt}fB6gu>XPM+BY&8v-+;zU(6M47yOn4~>i$t=lm-1p5f8hxUgS=3f<^@K$
zVBB;dEElBcJS<A>8sc4a63~yvzzSl3Y2cRu+H<%jsN8Upu~rk(dW)DJLNCCt0?6gD
zH8fnVNwo56cpRw={E0iLI;{%#*`Az8m|>|?Tb+J|;!KddR{xv&|K#9W_u7e)FqQ^3
z0P^)J7$G;65X_LzpeIM7Sr|o<taf(+JdD%3{pP_(VoP0N(8`pRfGY)Euw^%pe}B2P
ztxZByTwJ&Mn3lQ6v+kgQ4;9zs2BMT0ZXQS2oDT;+a8+9R$tewZp?Vh(QvM|kBmkHy
zAbEL+3f?~TCxr7q%DAFT^UXU&wRrgubH)4RK#Fu2KzDm~FwSXm8y#VLE3(bxWNByp
zdoX!`&D=*tq*8-V^C<>4L-&@VhyINoD0(HbhY;O2C1kl73eah%4Cu-#mW5y^e_+^m
zIoB{#J66D>ujndGYD`^SJ%}Zl;#N;lu&}sU9FR2T1V5j+Tu-)?_m^eoJ2T`y%>B>3
z0MluRdD+a&XF~aVCM+2~;zzML)uqR6s&K`T$wL4`$uCX*&>j;MXzEJMWD4ka&>@BS
z>nsv28m>j`$9!Z0GYG0Mw4BmTqFDR1bpg$u?EtuB?dX|HzJt*H&5mfpNiI_b8DKq?
zvfxk__;Xc6iCrKm+rvOxv?pSHI+Ow`LM;H7LLC*FjjOHUKoVol`R@DE$&4|u><WNn
zhw47weL9vLt0f>0I4{RGWJ#S82lT-#phKlGv~sJxqb&tzOYkElN)bY7U72h3Eu|ph
zBj?Vamp^Kj`l9pvx72Kgix?`Sps%}*Y|8ee=|audvXiGy=>XGe55Ty6cI46prQp?7
zU|2R%=B5+Di0%#Bno9PPKgY$jxo6Gtw6<e4`8Ep$cE|bmXBNu96jMu4MFlhG<hs2q
zXygoFz*YlSCrVg=_C`4ETQQLQ(`_korCGQ2jleL@Op)_B>Gf^&6?-I)_b*$<<{Hby
z1;ea=7^9qW2>{v><yJFV+`_ONND^m2T^XLHrlzjZd`fj@Cy^_U`%5PAs8vuEYa8>`
z3(VQ4zYDDJT&Pu`z|)W<34GZ|nXA!<f9qi#jK_0Nzzn7Q$8SGV%w&k|E*;FcS)Cc0
zkzMTXcoqD&7DpSVO>l4}hSZu}`61N4&kl$}a+%l2UQ4oP73~+WGJ1;J?NMcbh6Y)d
zuNxTdSf6+Yg$0<bUy;4gn@5R6t=6BC+OcCP*|)$X1BV!!Pl>z%wECB)5CUS9j-X0b
zShm&|_6=Z{Zaw<B2Czonjpb+L-*E(~IwCvd+a1etCR~{^Nb1#U6biL-Jz8-&Eo^^#
z<UOF?5<tTx@L*bI6Bq>vZa^^|0qwNM1i9I3NfXLnDN8R&Jv_vJ>b&?@K42kfUW;7<
z^MCLm0`=T^DDee1e#qa-%1xobe!wksXMTk0SzW*Y#qDbfhYvG>)>nSGCZ7V-<=0EM
zALs7_Q@~&b5Vje9d6!2FiTAU;>F_J25yS{IU#jxM@8KrM*;p`B1*cVH6nrXJM46dy
zA5v-5<bYo}3<_3~H3YY^{IyF;!M>${oLbgfGk^n$$OPjC!3G#-+Y~sWU=;Wir9bLw
zzJ0sP3Wtp#4dl%FT-iLW#~v7xrLrCa#=9)z^gGK`N`^RU6C7L%U>C&!NaLVh!!>Zg
zDJc6O@Lr7PIi6;xQ4}yA?stmeYP=g;62zii$@%>&Kvi_I>_*_4NwUrrQV$(HZSFS`
zy5448<?EVl2iA2F3<G>YcOLh+Jk8K}ZyLsO&Gk%(zL~jJeUk@{+nO^}VthiLK7Hx{
z_+p4#(z<W=$1#3iYbi0Yyj8H~8XPFs%M2WJ_4hp=Tac$o)@(EJ>ayns@r>-?Ljz6*
zpcN?CN!Y%~Ehu4nk_A2uYjg@F2q-|QB*mcR1tEj9o$8;y;B=yAe{O#pOw}wGj+>>G
zRwS!tz7Sbol+aw~&bfm#1N=O!=FHuHGd~0}PyQ*-<@ovvl&B_}nVDH)a3vl%djVi>
zehJ=xWJG`l{Fb^rAX^C^uA8!yF@UD9`PrfBb))g7_uDG~lPd-M-);fy5mT+;8rAyO
zwWBV7E-3n3@PxZ*52&(EpedUr@Po@y0xT0%>G_1ufNS<{Uro@8fglZRZTsaLQaS+Y
zdq6yx6o6XcOqOvyJNvE^K6}fq{zU+Eb0SWR<snalGAp|)EbQ#;@9z%-?hMieboQJM
zNaq{C-+P^D6o4%2I|caR;B|0bbGwpdB9xYv27t=80a|}^D&9yxXcL^zY_4QPD{ti_
z25+|IfiX6j2yBsWddYYA!7J8?z_T;4w7m32BZIK_8_arNh&X^w#7n^0G+}+TzP^5^
z>M`CjP|^ns^399K+PBu|!nMEHTXcrlj6>|o4ym>;v4AjuQ&^wJ7YyHuy+HbMxb^0i
zi?Y@a(5Z|ycd>+^Cjq&eW&s>TN1y=r;SKj$^B?eocgWxbWZIV1vF+Lc6S10g(ym=t
zRhDBJn?HDEdIOv?P4~V5_lU>?Qnh`XU;$)7_3rmW9M(Mm(w*U<YrRk3xB_F>pWFJ$
z4`(n7R91oLdXc|Au(x61Bg^;!;<~OVWOLc=1DIfIg$hrwrs+9jVAuiHGL6G(36#*m
zOtB#{<SpIUaVr)^n;ZG^<;xtvrXfp1Llm{txnr8;=G7u+XaLrlo*g=-EDAHTe%i=j
zzA2f5Jk9^){-4v8^8+UbqI{Q6*@v-x-4OkWTk9jJWprK_Ji?bzbWMKo`ynsZ@b&j8
zZpoT_K%-RY2O4ogdY)FLPI^=zG;BHnc;0tzJ;HXFvyAr-Pr4k)7jFp&BlEiEhnlB<
zzCRm52ZXjzStVrz8l^I?Lvf|`7Rx5EnzZ4+z>~fGN;gdSQ^7AD<>xAun7D+5MrTR3
z;KhSis{qHQCt&G?)sh8Eqcy=RZL)NnMQN4?aLR<eZyjUfGKldH_fc%=0%u?!n%mol
zl^*?kz1~tS`MpjkZsY{82iTgyf4cIIFF4e}$&bCht{k|(yS^=MQG$Kkx5>e$xUmc@
z@l;MB-3^1jphIjCVAOu{LDND+QnKB$_)+66ptN{KzzO2mav?_%uKEAs?!CjB+P1z?
ztZXaC?NLw!+={TVfOP4)*?>Wc)X)*>U_gOT0s-8%tsrRV1c*vcfFLap5`qn+O9?%R
zN)LnxF+>tV?n>DEyyxEc`JVg7_ucO~_gnw)WUjU59COT3eq)TeCeu;d$M=d|R!e3&
zZPv&;JhykS{oVF)kqjdK`E<<Z2>TPl*l7?^(EB?TNGLWM9bVrq_I3&fuqCwy0n|h;
zC@D2H5*D{Db*ZuQ6C1XRJp(p#)MTAmkOC3q^Hs|8yYNZ!#8V3i2*c<0xhvy;6<y0T
zvVAIV<twqyg&dX(90B1S2fEPH2C<wO(C}8F_1RGc=Y4;wMt7NJ7WE^j&%$p<VTzdE
zeH|K^8dnBLA9%v!mVoQ>{{HKZo4*7mG6ZadZ2I>G;5(MK$$Cy_58_xFE~kiQj(1jQ
zJqLozS3Zw`E1b*oI_LYx*w(wFB#7|K%JLJx9wyYw;<_wKGE;7WaPrfG=ilr8Rqz!<
zNTH*zYt5fWzk|e34qyEHkekbU<&<R84Nl(hU_)Yh_GJU#c#E!+4<Jv(ecxrD=;_2<
zy8riwnD#flcAogsEBmKq)Dq?QHO^vIV$9#HnEvUTA5~+5X122%^OV6{*v9&M=%U+A
zYbUg|`}_@?5QYsiP~Ttcg<tv$uS@7t<yTi)m*PN=igV0@L8ySfl_<<ZC$p{FVj0&R
zW573z`b`Fg?vFT{!)yjlfELg2&j)4|odDI#Ya)hh222nx3PlX11xB~S-_+lT!WU7V
zaNe?6zdnz+;tU2p2Nqo?$(a#ZMfv6`)vo6k3_<M9md?NKoIU$6;8(dOwJCam{K8M5
zM^|;P`Vpv}0JrNb27U&q-|YJ^V{7-<!+-y|pCn88_7w)gUF$sf3-(V7iP>vso=W^;
z1l)h2{~)H)&3OqiwyZki2AoKAQmK@1F46pDRngmLEPWeMt^WFYKIR)X<J`Skpn@uv
zxc9D@3PI}Bg52Ix@Y{<ZFv#W5Z^GLB<p;Ole?r<v2VeyL%-$*a=0%u*q>u)GwDUJ7
zU&Skg7at{d9{PRTmCN=!wd4PM<#xrVsnL!2MEa+iJx{*AeRT@C_pQm%E0_PNd@||x
zpHKdB_wq@3pVK@Gzu8Tj48065zxe_kGP!hdJx-r)g9@j|w(xTzic9Axw9Nt&oNAP0
z{EtF7_d!C<yp~wvvF+5ArdU1P@Q>Ex@snNRx$Qk)#l%K$YstmkMoQ>K^h3HS+r;Gv
z^GC%J-G7R1pYud6dAY7#7m9geaf5~SmQajd-?=4Ir_XF1y(Fa+`>mJuct@XNy67B)
zv)h<1KjQR4pNRD1q7>$eNX|?<_fqTG<w3mo-aD)Rcq&?mDaFtEBx{GL++muFdlQNU
z>Bt254X~{tz-b>dr#!TwOhNcN@u^v>UV>a+xwVUvNKjfIo(A5u^P@K_SBSPt+<12g
zAY#ss9;<@hBYfq?)Sa~Yb)F0R^dL8P+pJzhqK>Gi1D9KywLFYIyG@AaiQbe_b=45w
z5lc=N9+?5WS@ho~xJ{&UtylMKohoH&zO_f=qV0Ck293n$KX2{M_)qNu`uUagjek~o
zQm|g}CvP_|u%zM}Z{LOr=zp4M*R)YR;a>fgz=;}&OC{Wb%thMV1Ukw=@&f+(fv+Fw
zvB(YSNatHvsyiIo|FjiWZIN)dnz>oV?Y}!m7;I(ryz2w2I7J-Z_s#R^6brBp(r;K8
z0E#`{6%A#3CxzU+_k%%K0{(8>EC;Gm$VB$#)-H2G1eXw#*t9(9bA*|*qgyjn(LO(-
z`wMW|&O1p;*Q9$rBsP>c@IaFv4)hrO^**}L8t*RdDS#y{`z|+l#DTKnR_$hJGRC?u
z>17iXym83wjaRWb&B4mViX@|zj#b$|1ZKi<qPS9T_vP*+WF6F?P4d6>gnmk6-X0Vx
zhbIvhj7u1Nbd&-J>iJ@%;RdgH)13+E%Ixx2>$sY0hU>hf5N~7r%DrXUfn~l7@MBq-
zx8w}pSRlQg*Sg_;?44nmP-4WE9{wLII{#Ag{}~-{ryZ<JsnEKBKP2SV4gR5TRh3id
zM_}u6S!Wp%QWc45ckryJs!*=1DyKS9Vj<%@g%7rUZZ*-a{=LA(AXIxU;Wezk&ae^Y
z3B|d$ow#mrgZpEVu1a2OiV*30^1~y9;HkL@c%v)(5!twuEyrPhS+0t&;a1+|iY%9@
z1z<zW990T*HsjbubV;;&$()BX1<lP_SmB{3w8pBu!l8?FclGcMSQ<lCNI>El1;ETa
zs%Mc{N@Pav&XxrGd^dQtZUbzpJDVBu^JWOju=iGt!8<d*S-9||46#<*!+;%n=SNp`
zboEQYX*qYeLQ5A|X}Od35b%Uw+p@06lvLl}Nnk}~<#4^5WBBRrDMo~>CO<5xOV&(e
zE3bVKPJCyGuAOHCas&$`8lMomHTBjMc$58fgR+j!ufG6#%v)f+-qF3Qx}Q=8^Mdk4
zs_bqM{J>kzo&WwstaEBrK#iOrLCE#QL!<Wm_%7V_<#Xi2Xe`h)YYlM26$3D;B&b~(
z8#>;zQso_~9XYXyYq)7N?j!N}7s{>A>tb539yzAE3Dw(x%)(&67uSxFFU*bia3f6F
zMn@?-#ae&LbK(!YLOMMoVK(pdTV71qPF?3&upxuoM*4=khml{_6y@m{Wz?FH5PWVe
zoO}-5v!k2+gZ{-Cy0iLcBxX6`E1NquL5=PwRy;N%GKZ?hUVGbl3U+)l7;|Gw_Hk1}
zqBp!)!ME~%v?mxglj0}~GqIP%5;Ml#pr889pgctZ$AnX(&>K&Y=8cyc+O_z*9XIS}
zaqdR$CeXlqvNDzynl<&vF`?;EldQg7LV&>4_4PS))B%kVjwOmyXMQZveRBGnF`l`n
z>ve6<tR)if*G?BaX&iC4o}bk=ym?TjQU#?ug)qU1iCr`oKM`@gow{yCi~hX(+f39(
z*DKc>Pn$Z%H~4%Dz9L!1KP41QyyYTT_`Yt!h)<v#E*bG$lzSNT521WWDQ;tK@Pnbf
zb%unF;hp}DrC?N5N=VIdPB}SqAzK~eS=9pPM!T?^=w%D~l3=D=+Okk25}{p353q1V
z*md^n$ldf>?R#Ux)4O%Sj;ZCF4Z4jTGP0a$8_N)?$mgC{Jr_OFrie~Mr!LKIbXYph
zITG<i+M(EMY4B*8;cek@puoC0ziEy%w4>DPHsIr-An2QrHUliolAT5-qEDj-(H#5G
zkeUIJO9XtTn54B_Y`9e{?UhJETaN<g766y`{}THkI>J#(>3_z={4eXG{N;8ksd8EC
zbDU^`aXXB6)ffRv&kbYmBeTVGMGQ$akb-?+9Kc9ANZN;1EUP|B6>;VAy9ZcYWqc|A
z=IrD<GzUEAKys4N{?snAKQF#)r}lwKHZpb;ENrejxZOdeqQ!;Jq<id$cN314SgaZG
z30MFXG6yh5U&<~2padH<!f4+o2hq~|H&#SLWVQjHxD<F2U+BKXyRzvyBUNAnT*umh
zP)rMET)%y5!>CqX{peY*SoRlsJGv0lZtveq*i57wkROm$z}hbN3PdwA4Xxz7CDy@w
zp-6=*%!)z`4cp?zcZD*823@p7NbaISu*^5vq243S*wL=WSVv~1Re6XGN4RZROw4q?
zRg-%OhmLQ6nM1!RWBIXcSIg~`35}-paqm(r<+Uym@0^xFJl|GAS2)1hakp@H_6{+p
zChw9|-_;B{-9#IhPq0_PHl`QZ7$YFdm*qoE*y3aqc&<CosGhr^aF>b1ga(GO>S;kg
z|D#qa!3iiUhf_lUqm+n^nxh+A#wP{k<hfHC#%tzH0k=YZcraSqAu8zS-G&WV&z1E}
zIt~-%FtX%ZP>a0(4uzC8(%;5Bl|L{Y{u+QDDUg~c9K^QS?P6=o)ASeb4pJuXw9D4a
zdknwV@oah}qlb@y5*5w?LDCIl>9d~=8el%`MY3g73<FJXBBLBUoj&CG_YJi(!BI<C
zBb4F8Z-3A`*2N{oDsmphae81M<R*jrAr+5Z<K}44%?IEMctB&E)Qxu$=Gbf!m-9x!
z^&Fvg94`^RJW4AOu~e((B`#oez^8usTJ!SWNjUr4wpr1Q(Pt0$MjN>q)WXbo4K7jE
z)Jva55+f$vd3_txKs;BpT!}|?Z}e}eWp(I7mp9E#u&;G3jj)-$Sl$Z#M<BnQths|N
zir;`;7Dv9t2eaP>@)t3U%lGLqgIptYf?S!LaJ<9=p=B42%c|LtphrfC@RIoX%R~_!
z=N|yd!RsFKulS0u^$XGt5_RSzY@O&E%EErdpYx}uiPJ^OctdIbk#DkkcA=ghpn86E
z@7@2_T%c_ySMy}?U~V}{>$=Dzie2+6OXTcOXG6euC>Q+c0`-4yNBPrBf!<4dhL}=i
zTN+q=(Y}?(QD<8_O1Qkyq`C8#x>qp&KD37uzqfnE747fP&hT4eWBl!zxjGyIeey0$
zq)ASD#SdN@VcJWSEo%Yi+$>CWkrNyzFak%4Pu8NLEuWqU|9jGo-y9*8Ew!*Q<vHsL
z*-@W~hwkqvSzu0{hbV+-J-h!H@I-k$UbhKm16>bkb2Ef9is-M&<Q*JQAJzYSIQhzJ
zIFPJjC1+-DX5E)iNqN*Fx>Yei*iLoMQXJZ{V3VKz3P-9<|DRz<c?{!C>`mwdy@dP{
zSTtW&plI1|OdZqx%wMJ#lOby>u)l2R-UCf0?*=hZ^~^8A?>WT8Fc*jRQYRexa&!!_
zTngO?eGMbC1AanuuLO`T)J405YJ60^?~5i8cSfJSYzT;MwcwB5Zx%fiu5I5Mo0P*<
z-_auiT&*6!^2P_2P_;hgi5^(`0LUWJkA7M__pq=bktlWcGn{MzXWpF^!MPhMz&L_J
z*oV5!B>K0zvs+Rk0W@ObOSq5drergW-hoTnqTZS>-F^|{p_jk-=fVmDV{I?#Act1=
z{GxB9aotGzjVgH$xr9DRM|@}yiC~2`pjQ&ugX2Bxiw+V}^WNw0S&}6j`^rP=yMj?w
z1upzS7j4ma71qWf{jJL~wnPXwdc~s+QboPaclVTA9`<qg?urJ_vP3RaV{$LGaCff%
zX}p;pSe4|ZGF9MUa4Rdk)KL$u*P9m`!7g6_4&4T<&f^31KYyp+m6h(l=SSx(dv#l)
zOZ!fciaO%kqAFUNbP2F8-HUw{Dbm$uqUY~#pamQ75exX5Y@2>iNqji_KK)5fIM~s;
z+`}k*`H}d7@CyntsS5y5poEmPgh_bIUa}L=J!ZM}Ib89zrqiNsjHQAksP6f02Cq8k
zWIcyRmVI(M>a$15Zw9%^3b8#Qzl-+_A;<YBma;l~AvR~RJBM4v8yq@Ic?t7*w{iKi
z?BJa7?(BWT&47QfL}hg}V>svWd&G9XZsO+9+mb?jp60s{BZXmM#rsd&n0LrDM~>&4
z(O5@p?yv-;M)Qs7_c6L_3HuItz4=)9yaf@e5)MI@V{s^WWm~9&k=nOB#RK|s6=tbb
z1<mscM?dc&uOx+RPrNdT;SQQ;zdp&twA9Tjh>5j4|78bN+7UoO`8rW6%I&otU}70)
ze*G&w0jCOH*$mg)K^3=8s70#Em9_Z0$W0c6Ueazp{-f(&1Wt`)lRx0It9=u81Ikgr
zoVrn{S3?)*ZO$);zb$C_XUK_>TeN<b74J8)P15qN#5X6Lq4SRwBi_Z*!i8W{g*YSQ
z9zNy^rO*s_iaFr`Nz~SKz8eeqV`YtAntT75D?a36Ol2^dR_-zC)BLd6LGDBuiamXR
zJXpfsht_t?VyMk#F!o0?o!}7?;gtB2`1b1us#;4iG?{=ZZ{$vb>+W2MVPdmfLIf#d
zwdW|MZPJ|x=hXvBD&6g+NG(Get$qQ*O3OR}mPyhA@+ndeUWU{}aul{f$n9uxT+NY^
z(EM_3dQ>tK+gmW)4rbC9!8l?A_iJ7Jm9*A4FcQCvg^}W0Wra$cc<4Bwao;WY@2i@@
zOVn;<Hh$zXu|iu9{iyo{trGNupTuxmA=GzR4)#_qQ+#+&4*OL#T}k6Vk-KQHc{8~A
z50PngdIT_nscx5WD{Ew}0lS=`&dwL7`x<b6A35+QHK0cGg9$m19G-h0N1Bjd;(t-_
zVrGzM$T8$pD=cMvdN*`p<dx{e!W;bKfRKjfmSe};bq>nBNM$c!krf2EH}re=x}Jqx
zbM0b6nu;SQcy250)B3Y?&@SeZ`%hYctvB|g_el(O!Pb`P56O0zeU5i1IhKxWY7Mvh
z#9skjK-m$3T)>=REf78C#6Ut__e{b{;swBzqrlot&&T&6H`bYM`Sz3&-CJC47V<v6
zRC{do>)Qtr!o%#uDuMx{!3^+k<-MTKoFgpXQD?jEru&|cwD-3V`9U#^*3i)d*!*&o
zr;JWGq4Wqr5o}#>toGJlMmGK!fD1@mVj%n$yI*1A;8O2hav|EfJ1;f}y72EV6YXCY
zE=QSgEY%uI;(W_dWmZ(7Jt)1%*Thn8;WnO-7%`{4#=8k4_MCDL{qW_7&B;xkdiN;k
zEPD>N;lQZK(6`!3seP^-cQGi(JFvUyuPDh)uRztYw(R>0!V}Jc2@Tv0&*fCmM@mwS
zkxN~%m($>pjCzrax|kTVi%?sI?sdPHx`hDjA5yoVe4^&5zY=-nfXQ#XRv(xcW2oDD
zLQKcRzWwjL0K)D?9{L{n%8qXJ->>c$wp9P~R=@DC*hO38%Fp}`$D>E(T;SK(gJhe*
z@PzB|TQ3Ynw=>%S*ANWW*~~)Efvqdz(XdG9n}0FL1kzt!53^;b(0|a44@hc>=sW+w
zWcf{VA#A*^#ew~9-_n+|h&T#QtGDhON_E=G1B#uln@@~dwBQ@;TNHup8~2X_kX6G@
z?sfH+-!l#9-^Qf)(^D^OB?=P{x%jm5EXj+0DFUx6TOK}n;O>qd){h|8-Zlst$dcjk
zeckI9$k+ZIO|+CPE|)eRpFr~*Bo7X4xqVxw>7xfE!F}acWt)(@fA@9$T(osa4ganA
zt#W0wa%JTH?|&ipUVsV5cJzp**ShyYSdz%oh^^iGA0>~<MYbSl@Nzh#Lwr_Wn4A`C
zEd$){W-#=Vu#vFCN7$BV^V(#q*Q*EW|KJ?5bR4A?a*K0VObpd6-<?qw;$cvRXLe`L
zS+|Rvd-YyG@&!(m3NB`0g#=Em=pE}BopV%l#0LHR-LQo_MeqI>NHT`>-@eLzO)sOT
zE4*PWzoi7jo48c^Y4R6xJLdF%fjVH|=j1zs+&kpqBW|@2-L*o?Kfa*KJan%c?O$9W
zV>P=acBbSQ(gG5joCro3S;D-+@aPB2mRbJDD`_EB09xR`$>B}`&?X&lbU%Nq0!NjF
z=zhyH1N=zRN+XaF5!0?(Mv1uPBrdd326my&AD|=MLo}W1D*KsA<XUOJT}*W}s@zKM
zhVt-ZyB5L31mI<cTWgJCA`{@lU{SJ9tW}_H->RqAcZlo@=>4Z0?u)xHuV}s8C8YlS
zj23OF=Z7WqqLsE&PfLso)8W8X<z0rXASRTw(9Txzs&csS9c+=j0l*HxG?69oCQ$wn
zw{QzKI%jHR|KIW<1VENhYMo(&ZXxVyGcEE<E1g&3oq{ZAF5@Eqi^YsL&Bb_sXi(a9
z4vdUMGsxl?YwfXi_8OVe98yiF#Dk&af2j)qwsR{!5+UqNddgt9xIHJ^FmmoY{mNjl
zXl(&B4ruZ497fN91F2DAHc*ns9Enw2s=_(ggDoh>yYcY|VPxEf=+FJ}nEofdEXWQT
z2px+M>9iQnOLiNxLI#NCx@I>-c3dp8_rFl-EU?hi^h4w*&9O92^}_mT|F+3jy3sDE
z=MZTjr^Fn6=My=N3fkai!QM7%EsR_jAHbfy8!Mu2^b-JtzdW>b{M!4lS(53yv54MR
z!cIa?-WLTfiAMkrMj7(iwfuT;3J2D%ssckO?=(m3N$QoMHWbK<t@t+cEuc!2iDRGQ
zD`2<TGe_Jw!#Uh9|Gp%026jfT#~a=*wp_HM1^@eNa6ft~V|6@*=oU3&0iXM?Mc754
zY1nzzr-q-<y}V`quXzI@Nlgxnb+$^+r(|>E-<Lq5d#D}gW)0|OF^9|l_pxcJc18h5
zMhrqq;=BI+m66_|K5R;!4s~!ZH4UTKmwafeYEU7Z%{rNBx#*2abyQ?{E&ac_5l7GR
zgQ#PyUOJjiW)O}|#G;LkSBokqiNzOvT4ODtDEbHWxsb-LY+k+kXeA5;6$DNEE1m%W
z7rK(1hIV!6t56>A$v&66vsux>I@@E*h@6$VR2tKVj)!nB)pfKG#5KnJM?AJ9X9pnB
z283~qN)_5nJq8^v&b=gBa|<Ax^l+2WsMKaaPKsLI0r=EI8zkz{$r~^?C}er%mY;C~
zQYr)h)}+b?Sc#rpy9w|as?LW0d*r}3A|p%Lo<2vmYA=((2#);g>|S~!eTd$S*&&{{
z6{{XI-c^mw@2!W!;?n5u<Ocd-^4K6(di~{H?v})T12k05L#7VNLSmXN<SM8F+BC_F
z+;w#9C*kPTo1?#Z!FjC6-E&*joX@(z3#rEgWJR<&1^~3t@6L|>X*HS}>>v6^)J;9k
zrIumvns<osfg96nXFl^+B6p`I7~D{iCQFX<H{WB}#gx1WjaGv2iPo!(YpuN1$laN-
zd!rw;3Y)~jwE!SgDZkT0%N3)7UCl-I4S6mt;zTKAvCL7zc8^H>3%pHQD^CKQRk!*g
z@|xbgRpbHM_!Ai$3TAP64*}Z}$h{T2=LG<ca2N28H6xwbn?VzRB}MC&;LW<&#11l<
zq`B^Kc=)YM^YYgW-)~LyIw0rL8ukw$L0yTSa}W?=ci6RL344F#nsNtNU>ZdGVMOWO
zxgBi_6mo~KU=v@(tp#4OXXn!Iihg6cY!mG_wvAA>r|@^AJuV>3`lwj;IUrVXcjm{j
zYv@lc|LEy+B-t2X@P2nHD@SSe?T$$C?8SqYjw|u;iA{+s%^)%{H2RjfO!bOnUw+J3
zMm}`RL0ITnd~1nbj-Qi`7<z6zDH#RVn>z=Npf5;fVT~*D4`UAMfBlw%r$CNUx^jPv
zms*ET907*}ts?V)Wt+8XZI0Y5#QU-*$XE+h0vhH7?cC0Dd5p7^GmgH(o~9%2&hF4k
z1jn^A^k!c?6@UlAt@yw7ZBCCRh3pu8D#@RvaAzmnLxn|9PvVzagUu16>Uk}v-yYGH
zN+>G{25@06C)J3rjbEzu7v^#@KmH>YT@&Vt@r2ZflNT(v)2ubd-hO$uYfS`IlAk3;
zsajQ91=S#M^m0qBFQoQY$3-rq&8)Tg(gfOH+xY`;MS-VIB*9{!@3-?rH%)IQXzLR!
z>*3mS+SnW2%Xv*GescdDIus)dCKkag*!Re%e{L0NRqSihHs->Pr%l6cqzBw(2-d@e
zSPp|j`{;~)43TI%aVq}d?%Co7_h(O8hI|ykjcPMq%^w^i&Wf(1pBWoRo<KKWXcWQz
z8!{7FFV-f+nSW54szDz`5U1L;VM`|eLz1)q87bobMg<)x*R=jRiQ_VbiB5qQ+%PDy
z2~hLVQ7s3OD<!`FX~k<5N0L3nIpTCHSMjs&8CkHw&Cfcan&0Ap$8PE4u$yzj5{kAx
z(>>zw)+6yPFnB$XsFbxcXw>!ntG|P2-RU1w_!(>d=&M-g!~UeT1MYX$B!jvB;y-|d
zQN{ZYmhoYi?#Ei8a1t6q11UW@`%Yr<N9-g-D8S*gO_h<|1hI2p6@r1AVq*VQ#Q%>-
zzW+DQ{%2I$MeB=}QML1I*$OKXAJqO41<AMP`$FUE3%PxCFvc6K+HOMj9TbIX)$ex_
zg69^<<z#QnROwtxG0YF@!7kgy-m(qpiBXV^0Cpac5PzLbr~9sNWzf#aTjY_9(MBj8
z!&2DgGzWrqxvabUML44rJu<zuC#NFu<eklBTCa3r{)mqpHA-U-lw{9`LTl+4233LB
zJa=SHq~@cT9g>vRpML;=dWBpJWN3WZ&w#YG9Y(Iasyx1C+>p5&JU{<%Prk&l8=`#E
zN#U-IwH&VJnp%h%yDrEzO}d8f1ckB(2S<)Ba4?>-(Y>w``XZluUPhRk3M<(h-`ge#
zgF3O_E5xpPxbx$Z4#f0TDpzPpTpW1`*n1DnRyU!LRSyBxP8=j-D$3p(of24M@@@)w
z|D`qL&M(Y;rK!IVUckcAkUb)A&3p5dFw2|-5cv_0+CsqIl`O2JVf+t{ic*Tz+kT3k
zV-DqTvmM-UMD9zv!Qhl<dAvGGT{z4QbEiuQa>89Box#|0Sts}{*hcb0;B<fC%~3Ic
z2F{lpZZGdPpG=N&ER`4(O}yGh*r$;{U3_WkL>8Fl0ly=d5YeLbM8v~OIPU8}qOZ|x
zQxX0e+i0!%v}iD6p&w15lXvv6$qL%8B9mPGR~Y8>|JRKo|68khy0`leT--~uHy{AJ
zQocb3=k5UsNg;1Da}%>Nq9fU-cl5=y1Aqi*N-RDNSj_@wc+0qcs~e}hrJg$^7A{;S
zVa2`XXMqlU|Ce2s+o>2J<0k4O6Imfz#sAbjIsaQ({Xg8FB-|PF!jk+Fh~{U5T%jgV
zhkEb3a1rAc^Ae*N5cIMO+>>og#x40SDUprrLn{s4AgI_VA&*-Feu^F$HU^SZ+U{R|
z=vm5<oZ(GCB8THVCR#@y32J>!IV^@<vUXzG!zEuEP6cq>2pHQjCyMs2UT<_Pa5nIp
z{V_=oBx{4swAS@cxaVJl8{U9zrjXN+6;$GIs(oL6ERcr+hQkZDiy`evYT+Bn3Ych=
zC%gtvz|z9J+P`m<ljW@11${XqC|k-+Lxu=UdH(`Dk18k^6mctqCeF@{dKh3}Z@Qb>
z8UCK44nOVzRR4-Po4Gva);Ioc3$Fhxl*{vXLkr6LD1A-9W)1>tZJwSbJuALlJI|1I
zBe7}t{WU{Yu?MS(CCcd5dXMD)=D55Z$_qg5Uh*aC3h0%*2#RNZOo$+&ch`=n+Ra<E
z)L_zFJ}Q9qGvTrFXglW<4F!)EL{iTHcMXA@FpUb5fGz3i&9^=kDB!;#E&v_4(qgTm
z);F~eOai+t-h2Qv2cfCaUt{&Ye|}0@`||Y~hq3r+#ENe(xBkFWwh_r*K(l%UZTBLl
z230oF4qlpmcDLC%p}{?7#?U=#%)ieim-C4{$Cx0=^!^yk!mU@2><2oo<<sFjUHD8^
zuX_RK)4C_6bg>sUgVE!$1($AXFZQin;H~jLWhN<m0Iz56Q+A8kSD^}+e@J;s_AqjS
zwBKjVQwGdv*T=AB$Q^*feh_X63)I}>v!<DTtbEW>XRSzGnSu-bZnk8HITqEQ8H^9;
z(hR@lPjP0%&M*6WG(<38W^8J6BkHGuU2zcZ_;4{dG{P^9WCZ?NN1yeN|1zM{P^(<|
z-Qasp5U)5Z)Zp`={{=G5cg|4~dwVI6oNt)W>kD+~?y?X&pG?n%fZgGrGv?v~3-}e<
zSrHUz8D>u)nOL<+ZxeVeD?4&!buoAtZ@BW&`LWpfPCDz{iC7o*=L?b^_U;;_lwnjx
z%cB-2_lBw5;1stS&Zl8|t?&uU?cK^Q3!VwmZ_R1Oo|P?lZ{FHe){;S8r7pbRvRX@P
z(>CivtT($l5S~S!;;D|vU<A3t0(*mKqgj`yJJ1svd&(YF7iNh2Bt-(z=J&3z$qF=!
ziuW&p{WPOpu<!NsJcndbAap1X=8WyFaKvj&eWnkGFZmkaE4XjZwxOJ4^h!O3F@3mI
zxt+33l*klfg&DYR_0tRbeL6Rs?n~tUmL?c+ycwRx`J@K-jDx0O$>*SPr@0Kw-Mm5I
zc$o|-ZtRR|qgJ%b0yfc|)G_kPH!S3wb+EQ(jKqb(?G?fIN`a}TKvoU<)pW2f3)U%G
z4!EFIBD-dkI&DxlU=m@bxsDrCYkJYa`$?+R8@W*ofS&-~<}S_)`aSh<{^UuD$aGYj
zJ<?id=LO#zOLd5HnmK{P80xFHXVSlIixpJ@O#^b`k3gO;+Yw{4!u=hvXv3ji_}2!l
z_4+(-jI=`(Ccdr%yVwo8!CqV6%3rq%Ai(}vM)Pd*-Gt@PtEV3Sr263JuZMp5DX2`T
z*gSZDrPPyBYa6m*ape~!hYRKzS*tH9OUcJkw&_~sIk`_9cNIS_u|4~T)NdA~hZdZ5
z?|fDs6dT(+HkU{2i=Z(_775FSoGRk*IE~mxU94zc8?TR*Z<4=f(>O>_whR-*Y;8nN
zoPGi-c)ofg38WjTV!pbRE-nH%V)Cjc?_Mog=YTl}K~`5|{@AFuon7R|ciP4FS%o<w
zB-Y|R>Yn9_jFQms{GW53&v<GA78@Qq1gc7#Rse<MPg{XPocMe^sAcFP*7eN#r*w97
z5Ms`vDP&|k*@jjiuXv`(6EUHvqujA6?`g66Siba(j%G(xDRyl#;t)!H3_0DNrhln}
zfjEJjzTBz0HY<-^AbR>qgQ_y8-=~jm1R$i@@i>)^xwO23>8BuS&NT1vY{FIZI4i5L
zM^v7A8bPz83z4U{xI3bv>qi9Ct=DxzmCns}yRY03n9v!sJ`4((=;Dp0PtjeKP_<FT
zd8I~_@yrNsDsSVnydY<~lgvy3g;A5&Bg>Pd_;H9VtLu*>&NQ)hF3bhWwtq71^k=ky
zmUE}MAZ4r79C@boYJ<F-)#|+k?Ls?9djMs8$X(8O@l(~Zn(5-F5-U7O3kz%3T~IJx
z94OiC6wI-#(V1nRK0F<T*}Z-smjAZfb?|9}ce=b{k;XsTW?};o?LJL{H)NAI#DJ8J
zzeP)ye3Rf7nK`KxxOwc-v*}+BPs42y``V}1^UiZt1|8z?y2_F-8B)*~3uSZ3iSN(%
ztZv-yl>Fwa$%Jpdl36u?wdpqxn<UE`UMWC=3`fU@>#&R7^Y_zxF?V7}{tZ3z_7kcu
zI4x*a`zL%Iruj)fzOFni1lt2l!D>9UU$?$|+wiy=^qZ^>YdE5iA?2=8d{+l_E57yt
zW8Pd+lJBbhu{NIHSs~s35_Ei#KN70>krQ%wnnOPy>RpHVQDNs@2T*r}WkSD+R9OF`
zE@%1=d9(UPOGxgVA;~!d2%1)Pq2IKg_J=S&=YN;tHtkt;%Q{F^5D^7#|D;=wY5r44
zM%r>!&*H$p5k*XkJK3Rb7h(bk(+na`je@EUwaZv(OX&<So=`=r;3Z3vYZ`+(D}ALw
z2d$gVl=UX4cR2Xb(yi)bP{wI-%`TiI(DL)?Ri%}&i7uw|*m2a9@NQn-G+W8@d+75T
zIf>3233AT|ZtJSJ;^yujijmE!lu<-2%@9dh%>MN+haxz@k<c!Kz+!zUm>3_9OvXQ1
zKLvel8G2QxZ&I_P-Yx|dA1_`yX}FmTS--GYf6Idxm$19=ef))vF$a$>>YE9ZWcooW
zGRk2^XMrxI8|cbqrRi5>B^WV{(<V=L6e0*kA0R;!r}`=}pGua`8ZHi1h3J_s4g-SK
zq=mI>)(tc=T^uUeJ(^+oeA#*wTiMwNG4qWG%$1UPUMV?<Ou5=@)Zve*lgP%GB&jk~
z?Gt|4yoq>cT2v`0+{j!&H)$N~8=jc+&^g7h!$hFW11lKQN)C9HQjKLtvi!<1U)i|^
zlfZMP?lZXk_|XzZVf;h5EEqUpej&k2U%hzhMuu)QGFRS|&Av6nj?cIF8FkOrG=)7_
zP%yAkw~W6eQ3*rhwLo!^cFp)<4b$d&%Y2JS2=yt0?z6VmrHccE%X~y}>74yK3PmPd
zwmMwsjfUo03<&1W@(-7mO`Wog-A^RCFsX+#Yw0pS89jf~;C4~Ir{z|@+^wOHnFdM+
zxbfo?b&i7{0)9r_878WZn<nGCLytwgwuCB@HC;NxZAzZ@-66yH{ho`XZ;%?P{UJ-A
zEpyxFR2}g9?8YB9n;_?2LIdnVM>GtZ%iW3YX;O??E$G0~H~~39?zqLsf`-}+zJ@kB
zZTqkTGvlw=bj#*QPHiZ-%d#P+)@3uS3+n6$^<MbCdqL3PvbmDEs1_=R&3x2@isGj$
zauqrxZB085ggYbV9GOfVI63pTv>!{6fT57_rhd?Jx4n>nE!LOx&Hb@t8FM@ep>NRP
z?^4;n>fGLEg3NvIf4YNd&rHyBow&MK)#Du?Gcja2RSOVid9w~VF$Ag&W`%@+6&K0z
zULWQ^KVVlAZ3J`^2cK;%8PndxnPA1HFMrnY5F4iKO?P*PppGQ~T~l6!s_A;=$N)pb
zuI5gFyRd=J=JYT#sQgCLu3})Rnj5_9QdC1@ks$@soy3_0tJVCYt8PVsUs;Qw6zlb{
zjf&ymy13z$@ct5ol_sm*D5QLh2{^;q79wN3I9?KR97UO|3i-K^GFcJ=gHU@IbZ9WC
z`ewwpx3I<-MDSXsz_4TFs8g0n^o`EJ__Wm<f7&73RPU9(mPJfwDy5ClUT~TfeK_wI
z4wF|O9~hvOy0n;dL341ZvP@5H`JSifnN*FBtbG&1?z5$vDTDHc&F+8+YtP2Lwv4q4
z@r2tW66pNpuksSPFFm?$4*YP_>tMmU6ieTGQ7psv8|eC`v(`Zei;{nijX}f~>sR>Y
zYdp4w!v(4GwD~ICYvq;Ui};3e#m9Xi5U}>+{*Yih>u?Aa0!$->BzE!ltZ@2<ZwANR
zr8l;~?{UAXk|eoD6&tG9<av#qj|-dvD#^q?-^HIEFqU&GSMWZ+kNZYlMPU7_Wx&S~
z%R?4goDtK8w)syv!FValDfM36KFMLnWPE4nF^gtP2~f=2NPaql%YIYQzM>Hrw^lT{
z)||6?e}yr8=O7hy)4uPG9vynJ!?+eEvr8}VI7-pKn%~Fdha>=wNk$2`7ll&mT-|dl
z;%3!7t-eaY=~P)BMo~UhRcSu$$K%Q;8nv*o&G@drl@F}A#0|uW+lFMhIMlYyhk-ou
z@>Lp;px&!Fl0goZ(x^gP)0^KDC$0O$#7_8te!pTrVxZTNuO{`S?)fwtRFHmUM_tOq
z<`~8>N?M6kz{Y)fd3vD0qqzCapAq$;j*D)-+#uy{z>@g8OBX`g%91uR-<+TLUcKK4
zEC6K+_IVs0d_VV`Sm)W-D<i%*{6;S@IXCj#ny1Qg(J)IL6zAbm92?zPzmS)l(#NVD
zXS5Yj!WRK=!1H_DhsR-f3XlKqvjSFb+prZdE6<8mxM|Y5^4s&Oup14Auc1SWzMz94
zrJdoL*WzSz{a!C5s8-OhH!BL#uJAoG`U@L-%LZg8E(*AhNtn?NHBele^GI6&Qk8y+
z<a@D8>nRuTU21BxUm%W=+Z3Mmk=5oeHBLR#*rM4AwAw9?vswrk8*%mbL|{sjD*&I7
zTFhI@9t_HsH^i0?7%I%%1zT3FhsvfgYl2ymcq<6KC2*=%dYlYTYYWJq7=pMVM~Lne
zU!Je~#E@8UY0}{}(*}=!U@5jONotT}S=Y)aFY_IIv=R;<BCm740|YX3F4i-^XsdY-
zd(Ynm#XswRig;9_f8xa^1^r<`LamI4RNK5OC5Ii*mI=HaU*B7ksxcZe@FTf4<!OI|
z_fTYf*NYy=_|;>Tu*rrvZ9CH|m9Ickwa=%C$09E7ueFjPxWknXny)sTWwL5=`($!7
z3{|iLoKTs~8=Y?D;-x3N#f!V|IHx*JTC66nVT>dps7J%)fQgqwQ2<X}0vOu>JL^~o
z)sjJPm{3_91rX3R_q^)Rg31FJ2W`vbl&ayTUpwkeizvux0|%~|wL4(Qr=)cCi{Grz
z?muofSE6B_vQVt^`s`e+`cM>A3qd$}4^R4~=QzF8VQ~`gr32luTpf6}S!}S)KMxv|
z+#pj}b+hFvYqSLEw|Jo%qXC|;TZy@>!jH1;9eh_|EY8$Vd1+i*&nga7e5aPJW!Tp{
z96X3r1ERSH4&#0P^`<M4clKA>Az_(6mNFxu(f|O#l}8PHA1Anull5}y`88IMpv3y&
z4|{lIhXPF8zMC`+RkU2>H`fCLo;dRa>OY}wMKSK*<s33t)Pr4tg9W!_h~M!Va<ADN
zLBuraB9dE!*6-ji*H+F8b>es-q`j;wTcuMUw{XlsCv~wbxdBkR)9Uld1YUL>hWbXY
z&%3N3Ez&`DJ0Q38g<ZKP<R-AbW>z*dlX<$7OO_V9VrA?AgC0}x$nmwMfq5F>5(2=f
zYS#cM8V95Z%Q(C?gV|8-SnXRFdat1hv#algNEdn5E7lLsLi+`m9eV9_&zD}{)vzx`
zJ17K~jd(smkx%jupuhWD+7Eun)-;@|FcyJ08J0;lM~l*McClV2b1>8SD=Uo*%kuda
zv7GOLG#)UlDQ3(M5K><%+WQ*3dKWgX77U!@R2ggY4oYWno+|trY=hT*I9zN=F^wB0
zx*ITApV0N??SWws4^AZeQf-~*@Jq`B)#vKqZ{vT@pzU+{2$;mfg;Dm48&3DWPe{Kq
zv+(G7kkf7=Z~>s2bfmqN>%rdPi5;G~9RgOuZ}ppV(nSLDS-!gB`C#h!pM94wR4Is_
zDeKR5!iAg2<?9(7Zc0}!xniYUFS-<NfCd2Uz^Rm%MwOk-3GKc;=%+tUI9Jl@?%@i~
zg^%e)H|swH=%F~q4LAKwD>49}buJQm7@*aW2+$f_7xR{SHOwl5c1L{{cfRCtf07Ws
z_$630Xf-$n+EetExmZl+CA}_+Dl`C*>UW(c>5u0w_YF54PnCNfY26UN7NTtu!y0e|
z%*{+&z=UcpxO*<pX5u>m-L2U7k`P#b2nA(+c7LxLakcZ^OUIY2nw}qd4m08Ps(}(6
z!`=Zor2+G+QZA3QpvV>Hkx2HbUSrHqNeH^5KE@ru2|WYx&NEt?tyKfFdzuTX6J$bs
z7my039L(_g71KT)oT96l0>Pi2t8AJj$$y&uFphH7sC-6kJmU9;_~-Btzu-#(kBpIa
zyW^#LF*h@oG0s#KHAuUEx&uV0YcXwc9!Kjf*^H-1P<+HeUn}oJE9<u$7g-H|N<m1w
zct~gJBk2YiR2qihVWfbaa}4Y&c-dVAh3^;QLdK5@?`9Zv?xjPpoi>1$V<_VQ!Q=7H
zWFf(WvwL_M4jvLYs#sq&%jAaCfpsgyqccr6cR$4$BPJC(%xc)LV&@vp8Y<SFFgD7W
zE?4sO0nqH|<SAF_c_heV@HcpKn0>=0PQY>b$TC-AEwfp|_|gB9((Q~}d^JMO^py+g
z6AzTXs&}5%GMz~2CwLo5KtczVlq6)E;0TO@&ad}aK*VQPYu!COLD#k`@FOM5%p{G^
zVZJ}BZ}5%?>l|EQrmN|)KkrX@YM?Z?!c$mxYmhaTD0n?t6>(=j<66@hJZi2PF)4qq
zH-iY;bnPTOgC=LPU*2T>$g2!P;*)+<xHjXHqyUS9#{{#0U}tVD-uVMCf0v1mJ`$!2
zq~%W+1@CY(P^Tm)Dhn7B2U*mLxe)G+N%Ed=36w?RO5;Foj_k5Tuh&v*_>Di~7N1*B
zd4zU{Me3fRd?;NEpU|)0GK#>=3Ts&Y3j@E9XcnvNbd|?l0XDoi0Ko%Of2X#t`n|@g
zp+d%8#(1P_c%rbKxLHH#333=g)jEXQMIAvwgTPUT3ZX%EQ85sYtVpP&s!OSs<~1Mk
zqt<sd<D_?(hNwp*ZDLuz?FG`Qj=Roh@s}ZO^Z80o`}ZBs<nxp~|C!|sM41<}&cwta
znoBj#I)1PMXg)qOBp+oNwvrv8VzquE#L9D~Dd?PGV6~NG`;30wu|nll*WK=r!Rm&2
zjGZpJMaR-t@`em2W@0vGzs%KDBU{;m`m^It`uy!o7YYVnbkllQagTx^Kny-mvK)NQ
zaB;M189CAfbC?){3mt5|J4HJ<dAQ!PXZr<KLRz9+!*d`O=cu^Zn`C}!whb90TtlEh
zP0*#r^rSCYh>dHALEGcfb1G#iNf9mxWT}P*Gc)X5{~;xTSA1wE!zUr1EC^G_M3w3X
z%)V5@RTQL$by0FaRK#@O;L_vPR>y>bX}A(=Fh6~|M9DL;>Y3WvnI(Ba?sTQn91DA)
zDD!+R$zs)7>2&sT_8ZlR-#ahN_$#bCAxNOryXiI+&EzIfie*#AM!LLFzS>uws}jx}
zl^fPWd&+oe2%-1aVIH}bYC%UvW}yM#VAB6Nsips~W^(@C4v@0>YDdbdQCXJ21VkOO
zIaZ7J-wh?ad!~{0ejx}{kUNb+#5H&F3iXPJAcUm+y1hf238-MWaV@EzeWw;ZZkRbr
z1fYl!=8j=D?sVG5$unAt%8klm7t`QLRbpbFnt+56`56gr)Ugf#X&?ibdS?AHf~9cY
zJAp~|ow%96oU3W@)KV*(YI~+(ITcYV&y-okF%}Kabf`ZnqUe?6nIPNm)IJ&4&-~#f
ztt1l*T7T5RkaWtbq8I?E4@f)_c8&Os#hvS@P1^`Tkj%q=Lv$T=IW3kwPypoP#O5bk
z_UqnjASt7!@u21W>BmZ*VWhn2B#`Whe6yr#qYl^OCB%@2QOn!kF&-XV1q{<G+(w=}
z&Gm+RCOHXalxiK8YT~$4%<ttrNwLum%`}2S2dOmTl$w#Ef=(T7BUOoaGqkhp-BWpO
z>;M(x5)VS0E2(3015x8p-@C<7nmm|!L9lY_T+REIoUqDk2%{%VVGZYed8+)_5;3Hj
z5h|^8dNjp+;ZmGA0t;TywhQq!jP%Hm`TAl%J$(F+MYV1sz#SR?k8_(2KxC1&W{s``
z%cW(K`-fk@@6}TKlWBI;Evsq?)Fkbl)0flrwe8pm2_xcXyjZLK#-pFbBC{B*eIW`>
z@*UcUxKkaqh!gqKSr`ofu6D(K(m(rAfQr=wDNCiTeGXc`EDqh~ILNT;odK=#k}5v#
zy>z-`j5tGc^)UfxzL5>v$z&@!F_p)35uAjStFb3%K+~ubX>$&UjUWWBG+CK<#awY#
z5kXMvFjk*WFSAtpgEKD=?8ywbL7-&PS{~m+=%4SHK*W`T=j_rpenS|;0&|n`Cytf|
zgV~kd@quh!z6W&tS_8jQc?wTv$_?I#O=vJTTG|GO4=xWDt=~yYx5>g;tiJW&?og8W
zDbBT1ONM+h^`6>jm9_(kWP*?^idc2ao>o^14-b)Bp+2liEgs*L*S@yC)S}fvI<p=b
zN>N8_1a|Id%-zqGI@+vPlq@fZGhgbxx;iayw)CuB6R}~1NG<Iaj}1W>UCR+f{A^Zy
zYp@*DGJcLzL0y}Sf4_EO7$Z0{#vL15sAc01b~2@pc1_5yzmxZ0TP2i%=K}LG-!wc$
z`bR(KMLMTo+I?>8pHP1T0~mNwaxn6n!pya>1PZn!qJ~jK8;hR(lTeUdnSZv>13cOg
zGI)?WWvko6%`c2P{=A{wJ1tN9RTa%*;U575O4{eG+LJ#fjDy|VUXz&#m2b3Aw#9Pf
zH+o%$mbo(8ps*QvxsdB^p*}xUb2q--sZ*T!#lCPgZZ#Wkc~iFCwvyJNz0598x2mye
zXb<s3Xs3K+U2cecCK$-p)rVQEFJ!FO?VbpSAux>UO|JvP3=(zp$~s){!)oZGY3PqX
z;~tjdSQ!TfRKjS=@9t#WGB7i&`l2hGm3D2!H;;3!r1KKUq$oFkJBrunw5Fvv6QVAa
z6Xk_KCQsJ*Rb{B1g1W&;S<_==9_7;;y+wd%sI7;lZ+h@xn1}8uEcX&Ds`J+#g%~RI
z_X5kFMJKc-<1@wL@ro6%EHrk>3i50Y2+PhGRd~r*ov_(#NiV;d8`6ifGtC<DTlfqq
z+-T9wWP*<M7@S9SrT*D*F$z6wRD6YNvOHlT2ZqP0{jlJ>-uo`37Yxv=;ETVv$&Hdj
z_yGh9yo``aIErl6beK}%1#R1w3QzS8Vj96PE$Ul=8=t?ZWGCAlbb4lugMT+0uOy=k
z#P>8R%r#d_cShEBhUM)||FL?OQP$g}tQ+l5Ded?XeamO@Bjp-G|7=HwTJ+`5E9+lU
zy1gXKb$>MiHY|=~rVdT4R&?<<o^9m1488vTRzB4_Ch_YLyOLX@R~Nc<)jA9iaX@f!
z=Je{gQY6YcY)<}>Uv(d|U;sq19%TMb(&+HE(>34#MS?Ix^wdVdp&5Z!#_}KXsaIpF
zKeu>{WnEh*#MPN|mVb$1ln=y3{GQ{UL9#nf$_cY@`=!wArM8XW-e=g>VsabNKwi;*
zyj&Gv&Wppfk>6VIE`mMA1IhGTx<xJmhFv-;dHFLxgC2^qtZi~aHhO0;cPS0-T=MZm
zaQuVCKb+4Glc-ufrY(RN5L?Th$3vpNHN3V?TUlvzcj!HHEPf+IJ|;e6jj*IIL0{`F
zs#PbP_D^WAD!tv)k5n6Yl~Sy5uyZ(N#@MU~vk3KTFr3Cl4m8vuK~_?TwP&{&jT3<h
zC+ztA+OZhm-+>x{sJ6u<;9vD>p-Blozk2`^Gsv9t{caSXz<zv|X$+)A$_-hQxTN#3
z&9w3XTE!KZnA34f*)rgCiV##)<|E7gi=D;f)r4NBtZ`F>|C#kEDsM1tQlmrLrBm>n
zy!y^gcD_ChSi7=fHLwYo7tsup+kox1#?wO7I|Syd^;8~4vB~S+hBYW>FkDemF$Ttt
z&rL}Aeu4Em!lu&*#0?p{O%yM-(0QGfaCMbJ=QI7I&AxNeHf-4OrTv`LvP^5M9RJwt
zF58=KBjJwjSpt?)A%3Fz`IWipgyQ#6wgB~A_K^mf#%U~ZvGWIH2x6_5pyH!5B~F5`
z^325xM!GZGY<d0_c7iWXByy}^ExmL^VzB~gN>OEHss{F5TcsZD@`!X_8qC*kbcrWt
z*JTw&{P<3ZvEVX`lHFuxyveKeZACJ^W2wcp=o#t#mYU!4<^7X?@ca-7Rn*jps8Vp3
zo<ZJH7R-pGS~A&!_51WV-uB-2sR-vy-@vGZk<$*P>vLTM4x=VLU*5Ak6FYd)K<xZe
zk<YLGPCs~WUupLgNpanx6H=RyHBi2iDbKXXsa^H7Gev6Ni3p`^>SM51k9kFnr9&q=
zyp(VU6^qk8zuLV>(3#RZG6F*KA`~C_-Hu()QiBco(8SR*$P^Iob^5_Vn-=f|YgXS=
zpOy9jQ}gr7V_mEt>Ea_~7Ge0FVQ%->xO^o0Dpw^H<eKV1F)VI<qr|rC{C<v~@O5cy
zO??b+$xpbX5z{*St9w?0U#F49xGf4xQqv&c7BPKo?Yo)wRSB_c#^Nes7khyOYoBFK
zdlRVY`E)rbUbC1rMJ0l1dUhd?1>dp>bk~oh=c}J8we+IWroRQPs~;HADV@<h->k)1
zu%hccKpK)agUPFnhj27$7RM*f-|ldder8q9Gz1i)_D1*J?B`0&$L{<bf{(?x%^j+t
zHYANpE@5P&!0U5X*|bY+PIF+1fA(C9dr1v$PJ8jr4zX}w;54BddE8&DYxO@Z01AKY
zm{;UY^Y$faHL3n+oV=WQj4roKt8?L)g~V-p01w54!N9qZvN%cyVej~O>6FG(2<2t1
zss{OMH_J))l<z;;^7+kO0sXw!i>oR!D4$bMMc*_V%>JSLsX=PxcCmdz;3GBTqGbJy
z$>SVdC0yz#MG!PPcG#M}r|8~mIwJRMI?Jpg!Na`$3ynh+SRk}ZC{|RM{MelXBTZIG
zGg0LrUg)UZ(xV(GYPpCiu6;Z=2!nC#f}|$r4FkGQvk3b@UDW|CqgG#(zq2zu7i+7l
zqHVirQ&U0z!8hIw4dLqkTI(FKo`#<Lg~ZM4@_@1f7_6g?`^2*UIOrjEBb|oM?CXn=
zU>utpNY`;?=Dl%Cx0bH${Qz1nP}_Ccw&0dPJ1~@6zQe&iB*#zUAH0PX(9x2DDV8~q
zQNPu;S~6BTA@lKu{I^t}#q<O3CSSU24&4V%__ApqI2~(5LQS_R33lq>z^JYoXdUZF
zE#aX2dPwN{S|AYiOtnZr-Qy?dF<5MKwM#__-gtwRgx)D;A(EeN5J=XYm;f8kNsGu9
zbbj7L2lxJX9x7R?e~Hc@ayV9DLF0?laAW3NfxMBX0)uR8dPD`Y4?TmDN{dWDc-|_X
z1aTH36C5rW-L@Dff(q=33AFpZ&_HVY0Cm5qdcwu2IW2zEv987Ou2>^ZQSxq-16(#(
zZ6s)7CTgKZUNGQVC1?LJx*go*f1%>2*u`B!QxX}Qwh@QmfJr=Cgb`AW6s!;v-If}s
zr{7^2+m+?Ju_I#OS~ycabb&}RLui-gTT!zdyRcWork_Q`rV-E&R`C%h@0Iq^lsniD
zizcqFPNuKBnk|H(hBpZ=@pn3}QoRbO7_hA=vQN!3VqzA4-aYfpWEHM=o*%)I?+bX@
zt<1Nn-{{mpf}=w_jdrETta4P?@v^8D+GG5$q-)HwOzi8#RWO->o~f1m*D70gPTtct
zU;UB3uIp*T=YN$qDtN<KO&iaeR<YHULgh_A9OKG!yGr#xGEN`sF67|?H(!)rvn>g@
zRLR){B=$lr&78j}k6OMUmoXi#H2B+hvkk_znCj6-wUdQWX=*oD1olj$Jhk7N<qG-0
z)`it!c@p&`sfrUw6Iah}=R8Zd%0hMBz&|ulk_o_GTTKrldS<_>Q10P5jdy=W$(qT>
zM46k#CL}N|b3A#0AVcbJG46VL9fIWxKui3TiPBsJtYyCIOjA6fU18n4^QUiKg>6Rm
zGn}qt1_)fzYV-Hrp!K8seoZ(6k#D*dy1tYw#}@9(3}-)2KZxo{w}DGKV1e>VpZ|}5
zJ{KcwzNw|`;EOyi)W&?yj`4!dEcNvV)~6hB`rXuy*jwh}tBtyz+0!v(p5DQZQ2RWt
ztlLaDMwQJ=I?HI(3BqRk@isQ(6E2n<ge(mfIqRnY)vZ09FsQkIk5%pov-&B__tc<g
z@#!&g*R&zm9R=+4pmh`DRis8FwsIg9x%-PErtaOW95rh-r(n8q0>}$32Xl@iS`tFy
z+#k(Y|6h|j?I|1g^#3Qem*P9~#cN}}#xD2zeT3~Ra0O!$i$22}Jzze!{k=YM-=rsr
znu{;mStrko_mG_W<2~=CI@Q!8H+Ke4DbAb}Jn2vA`@gY4Zkx_tI{AC&6!wtXWS3dY
zn%i^s=eHF-d)U+?-&yPD)qdspu_vbMYiCVaely<w<V)U5cABYG6VGa%egzzcUFxq|
z>C#;C-Sg9N-6_|%dI$CGJihGai#PfzJM-J*7w7v*8t#q#e`iPStm)fMzrXZ7Xq&#K
z^1bhU9^QrhSwDH5gBcG@x^$46VfXFtlWPp0I;QG-e3~$&(y!m|Q++V7fWDeGseI|3
zWA)urE-w6k=k)JIz(Eb8{qOHqrOw}2Y}Oky%jo^n*VXUePkHj*_;&84^rdIs{_2<_
zSaaY1Wk<F9skL{*y+6qtKe6}!KO^YA`qGjaakGr9zWHj(I$rmeJZOE+=6mL(8q-w0
zoATbDCQYd=%AE9m*_+A7m)nHAv5Z`|QgYku?;F2tn)1V5J9SCEecF4EPdik?JwKI4
zp5yyCH)fiV_-D}|yXWiuURvxoQSFoWo9X;(o9DXOpDr9tyj>P~>cxxSOG;kMo&52*
z-|VO5Z!P!EXII_%wCU9bFS*OVf9h+N13U6SpmS#4l#B0YYs#MGDL>4!EPcoGCdgLP
z2`W45*<`1OM;F9SyQv+VRFZe+A$VW0PUl|9o=3IEnqF^O(|2Zp@E<#F;O%-qa6s(4
z&&xe~G)^XRuRCp2mE~1)uInOrW7UC4H$5tU%nsaR|K`LL_9wZ^Y;=S`Iz}9bVExa(
XB49h;qy^W(M~-;9`njxgN@xNAPVqhK

diff --git a/reference/plot-6.png b/reference/plot-6.png
index 0701f933bcd57589aa12d0e85351cab2bca30285..eedfad695bb3c4cdd39a8194db27256c4dbfa17f 100644
GIT binary patch
literal 38677
zcmeFZXH=708!d{WvK0Xp(XG^t6zLi%(nUlFRp}j-E=@Y21OydPX`vaaLIA0u_oAXA
zT@nZ-K#*z(MF<Hsa97;lcgFc~?;ZD^G47u`&O1g-B+2`(JnMPpGv{0@iMgk*$#UxQ
zDFy}x7O2)8Lk5Q9K@1FxkN!FV{(?_^{~O$$c%-9w2i${WN4+^5+?{-)W#P-fz#UD$
z9f_Y`cVuATV}RaKGY-mJo`hwxYaAS|2MTq3d=k}N#8=35>T}ae{+FLGI(l=YaI|n-
z^jCiHHOl6`((gOZIlO3P-BqW$i$DCD3FCYB@<ZPD+6bmX{wwu2t|bw8hdpj<1vVw=
zLm1JEvx%Bc7#o{mv*Nv^CDD_A2K2xG`QH%$5#aN$*Aev(YDE4_ScrX-Qsa~2Y}Y|$
zVqoB~gqJhZL*$@kZkTc&Gp~r!akNnT;4(ipQb9YyaO-($8tLeNV`!)zaq&NoMMaLb
z{O934=-KJx|2~e;ex-&34<jbC-v0YG+dt27+&4FrgN6zErwy4J+LOqA2%OGt4oVQw
zmRj?DH@tcvlr_~4kzytXWzs%n(Q{~w35B99dg4))D(klq!O*5VhP+T2fiMxG1vE*(
z!(Yp{6!j1hmt<^!@qw;s?G~bPrMt1l7zU`OCE5vs4~|8}3-lqRZ7|=YH~!MrGGv1~
zYcEOpT9>A5)}aao!b%@(rPz%r1U!s;z6-%OWTDi{wipFv5XNR0N#rcm4e2|l2lW;7
z7*K;%izF>dci#N-0iVd23;j9+{W*-c=b03cpj1v!AfN6?O(hwpPg7pVw7!suH?ma}
zpuDkKID)t!ATlcrHBn9-40wwgND`N$Qd&?7D&)TmuOK55tuCn=*SraA>|JzvF|qYN
zNte6%1~;aKgebVT!1U@4>At9|JHj8TVV}0&6k`32z=iQjILY_za`8}|{~ae9vvO+J
z8kJ4HRJ{n5ku*oiRBsyN=}9O0DsU18{*3kAInJ^nMp@gVf9)W$b?tY&uEOs9x)NQp
zrd=$AH5}2gZLd!aj6gk#cU4KQzkXpuU@~V$c2o!(DT`;V+@KnM<8_EMEjkfobn=7K
z#wf)q`*tJK&cQ0etjS4nPQFWhJVBRF?*1+(dvA_@gdD$XO7BjJuILflLZzhRIJ+lW
zTTq1G*v-NlG}`Gu;}LBP(3T2H5RXU@#zJmPDqYYLebUt_@=;N<pqUB1<DLN94}Ctc
z!Qv;9;SgysaJ+&$P8VU2@K|Sjt~yi$Vk3J~FK|}wT^iAT!~k|`erkNrXGF$;z{|BE
zk+k!)Lr*xm<}6Z@X(pd@I#$cFbWZh^@g{?pY(G(#cNSCti>)O<ZU%>rzoG|n5{7OI
zeMlF^o(fcjW;sTh<b+rs<T&o4bj>d2Q-k*ILq18NsY%58s^<fts|FAn7u5NtZit<s
zCe*}%C)!H_Yv#=FrCq#Q?OxPmAoQKo`4A!bSKHN-j=Q6j;`H8wrI~9qB`DkROy`z*
z$ENcy(}aoJ0<Kbi+xzU$5*v(1f~(EAo*|<~eW3Y515t31f%p%EChx3caUvBN>)Vve
z1x5^xcSo)Am90X{5?!-Wb?u=e-N){;7YVbQdq1|2wJ{V!GH7M%x_uJ1UWnIvOiV~K
zVz%9*B&L{U>*h3GLG<z_Ub_1DolJPP?(Z*U8gA;*Rl{|uDOda4wD)Jj+cK@5=|A}{
ztfj}jQD-Oh{dB4`)8=^hu}euFMsjc~clwlDW<Q27GAfj<b@6ncOAg`gp2kIcx1r8O
z`w7dV<e`SDu(i}ViRgJL9fa)n3oZ7Dx%v9zUUmP8IDPyG-%~HeSzUJ0<i%C_iI?P=
zL{<Z!foS#1^$cqeWUAl#g(g&tmV&HW`X@>9md{oES4r22U4B}t`emv3$wHE7bjuY;
ze7^8_AWWNQ&VN?;&-ClSio2B?GD_#&e^@pre|5cu&SoX2b+_uAS5;_8?jdTP6&Yn%
z`z7GG$vNHkO+G8up6gFImyc&!uGxqbIi>d;;2w^hMZ!I^jFV1Y6Vx`#{ZckNakPcT
zz2VJy+Wo0|`dvxaet)g%iH8SBRx<vxNU71i3(a#Y7n0p(5t82-(8*)=au#45#||?i
z{l}KY<Z=AbkgVBjht;fP!o>&3VuiW0iGFW%n)n!7x=u8Z!ANlOSw#9sP)}8Y0J3Ua
z$Nwb9AnLv!g9!E1{8|<!|7uHfLlz^_6?HSNxaR4M+X?FVzBT2;j-YsX6++uEf_)vV
zIfu)L0?){S;_gPP7&GfsLFBEUTdde%0cb{CC{o3ceMcJ;oL18_*A^R@Tx2hY{Dx3T
zAcn}=7U|lxct-g;V#-)^?9!&IZ_95*?YUh0nkca1hg_&flZ;cC8cN->v5gAfj?lw(
zOVB5E!pd5qHaE=L&@63UHW0ezSW%;6jX6~Lw68A_G<mcu%6elvOFdmFO*-bp9UnZa
zBjku$eVWmDy){nEhQ)d#>(@Ut>9kGH{kqZKp~{R>C4F=mMB=S)QB!8mh_vUFszPu5
zcY9kHf;El!YW@<Gx98Ylpv#v1Xc2n+C5mK|%Im;9<(5?XI_E;mm{Q@5us4hh5z@a)
zL>U-9T+KGy_!Kw8p><h^cmw%BC-xZmCS^wi`7{b)L4x#^g+vE=l1!H%E5gwOG~3Qb
zk7y-i+tW!~{Y=X<CqAtVuJJ0Nwjc&)ApXk*#UZEWPmTvb4ditdudE*4QPtAwFN^Si
zK~z8PixYjJY+c9r<CAy1-=znrzUYwb5!FSQX(ac7O68_w%ZVel3=H?~FC$<>6U6(|
z4sl7FRV}egtI<|&2C6WRK;!~-G$5v9kz-z=Jh+^Bn%_ca@||&w{gz}S(~at{MJbfw
zSLJRt&@irrkTJ(G7^0xZ?`OgX9mFfqF}OE#i<3_7e=l`cqwzYJoCK7e!wJRRR+O;A
z?ng>qJgQ?x1-}dl-_M(gkq$sE;8t$8xF6@ta_{y&C>mXYl*L4EG95QL!v^tQE_fV)
zD(a@y9;6{mg|}OZP<1$hup%nVa8>n{wIsGy-O(t)Ay|yJr<*EolNjgCz;Ncu$i*;l
z)tKHize-)5s=E-i=dT55>X;b;SA$o3;aNQ`t;)&sf2X+;U|M$f8$6=14wkt54Ik!+
z!XAkTcuVwV=LwTDypc))Nju-Vr4rQ;LL&7NLRS#0Pu>PRrNCo5{OVOw$pW#y$OFIu
zdTL(u8Eu;P1wxY~DAolgi9??{t9<<RoymU#&H|2*B1VV19tP4C1LTtnho2r!y`11(
zD;LFT+|KpO*WR~p#PYf6GeV$3zkV9Gy<l}cWsSK>aosKJ*k@}@mKaIxf+=qWLPs!y
zHdVMGIMeV(#~M95haDpy>yvh#`EbsaE#50HgOmla>sbkIL3rm9B**xiWUMibEDdkF
z*Qcdlj)mJ`_H%T0&aqSpne_T9r2Jdj7XT}I2ib-8GhQ>%`Hi%4YhRbddM1#s46}8$
zu1&o9?y7h?>F`LxW348M)|sG<w>>o>Tq<nPU_M62laT~auq%+LSAt8Y)DQ>aMEJbq
zcPnw?@Ufhc1nG`{`pg@des1|9si{3RJd)VRx*tEuaP5gs4;kcx7CVmhOx9g`fS_mS
ze2nAk6XXSVTc%5oSAOqcj^!wmsxp}c^%7k<TvT%>?g`xriqdJ)R7$SQg_*`gVN6P0
zZBHx|i;({ctwi-iilyf*S{K;x5$zzf_3^#(#@=bG@b5ugxe(ZLa3vJ8=CG@!H>Zt!
zI^y$H<P724Pv815$;Pd|(3+0LS^+)%stLY6?`<Ump}#z~4!Ki@G%yz-o#lXX75dVP
z7#tDW(`PlBRf2R4!=Zf+mMLRpZ0eBsLtFkuO{BpS^8*e^*Znr3hEh$9)m$}5n4?0z
zl>qyfqWoX7Xnyv6mHR@sE-1F=s4ZZwcjfmMwM}e?38-Q_%SSe((`q^#cjSaE)^tzy
z9DCoooOV%J9DU0WslIE7Bp3ZiuP;WmA#g%na=#=m$B`S_Z0+=Iq_xK6|HT*j&{`w7
zZ)q*on)XZJHUwJF-r}+AITo8q=M!2&FE8BrA!2o8stHmiOH1~sq@K3@+BSi@Jl!``
zNh(z07F_Y^ayCZz4<wUpy3g<VJbudQ71=rewaqgSdBHD2PTVziV52XA9GGksA;-Ds
zR}c>>Ea60x3q7x28zQIgAv-pGkhhkSr8l<k6|`d!(y57VXQAPU%?IVoGaXWhrk-Vc
zDR?r`Yq-d6{FTsHC8_f^RN1D0Ac%ETuhZMOW>ATWSC(8`gG5!rWHiP+K3NO7R>bcR
zlKqM&nsc5QUg{_E(XV<Ynn8+zVU)8)h#a)rEkIsL_Dj|MEj89s2~YKVg_=Ut<=<<2
zRiG>MedIo-<viwMm(q)sq3Fj#p%O*;C_(6g7{UUbbHg_GL6C9)?XB3B%1hyHC0veP
ziDUQtf<BD5;kOwyx@-RzqW2hdQFQOqR|`l~F)iJpO;~^>VF#{lqM=fF!<!E3fA2I(
z(jz~A3aR-4Z-MS`I2zpNxa(i~4>@S<F0{wtDBMeD_ZB8N2i8}aI%z2MWG@7n+Q`(c
zwAx}Tqy@2Cs3f9O_A3v%e{muyo_tujh5L{w|Jt;%srK$;j;Y<pA{M&cldO*$m{~b0
znqrU;wcc-#czC-Y@e*{cD<t9C)iI@j)?KvjJ*?}4%0pq-W{lh5>WByAlZr5$No`MK
z!F)Rl<tso*98xQIPUDB7yH9_1X1d@z*f1}Fw4Xi=E$pg!R3_ruh)NSwE_%Sk(=#M*
zbCw?F|HlW%{i`E%CH2wv%DL&P2K_!ID$rXWZTY1B{Q1v$P%r3n_UAA*JO+rw|LVaf
z0Ye09rC$Z@%}UTCS=tEm1iGh)3b8gULQNs19!-BnNG5Mq_U@(%1%;(oW9Ic8rwZY7
z(DC<Q_LL85`_fe}uGV)yxgED*u%Lq6ps=~Xh^1aX9E)BquVAG<)fnRrPa?_h^dnvK
z=2!N$Hp42v?}kQ1Lqc8qLbMS(hGm71YGXynS9liU{ZT1SmA$ffKH?Q<V0US_iCbGm
zi&y>j$ShBfp@CC~GJla4#tG@M{sKj|??&j#K+UvvzgQMJB32PYeCn`hLGFKC-=Nsa
z{O|&O^(t<2l@mpO3s=WlSsltHk!1}QM+qZ+31gC3J~jzqcQhKE$i8sBH2JL(=R$hb
z?ZpKkQgvPlz$OJmR3%qb%UoNljd6U+`E#UwSig3fVhSv0cko`<Ry!?NO4Bh}_oE<x
z5sbBG+Nn)<$MSehiyuzzSC#P{DpmgKC+T()VK6=XO~>Z-4S3vUz|}=4Pj}^y^uTvL
zO2i?f%5PtLt%SUu{y2){^Qmf4ty*9Uc{@U+7_iNYY*u8(zB*x<DV<Q${ZAMYm3Jed
zKFxlqRA63zI1IOeH$Rk1`}1iGIvtSj%(ocQkRH@V!%Ih7LOQ7BS4Z68{peI&O>?!8
zG((C;xh0n2<J62fGSyT<FzgC;yg0j;<#9Hu2_grR(r&UaBxEK-g8T(-9?-%*^zOcR
zWV_;HB<_&d8ZYOv6_)eM-&*q2Rrb&-MnN|p;}dc)1l*a{st_@sU)`pbme22lS1Bqz
zWW?=7K^H=9cMT+NDK8*jy;~{@g_>E0qiZn-Inn#P2-o{<HkdO|N?A(>;&Jz}ZgfJ;
zP<p#=Ki;)XW<Z`5E46Wtr>iDaSx4xtolBX{)86Y9=1zOPNxsaD6{s;px_0^%_BUNg
zu3gGgyL;+L-p`S}d(O}i9R+Jci4v|I(*pwwveK0z^(vMG!7&voS<s|1^>wd($l|wC
zNZx*Q(#`>J>Tabk>5L1K#dc>Qa+aP7JxaMva=-YuQjs1tYjx9;X4Vqb@pj++)vRk$
zL}q8KFAC^TYblhTDV3aK72?g5Re?0vvgsRmGbAC>?GvYivVUf6rj%pT-!H!(yFNK&
zQj@=M7P>&0VRy4|K2aeqT<g%J{8CF{;9<6^==gZuwNIO_xXoxtLVbo@X^nwk#`WVx
zHPd?YqXwPl#Rz#-nO+H^M$A*K4@1npU1&kL%5WzVXHGB(3`SmLz<B5M_H96*Y27sn
zKIHt!lj6q5hD*0%<t2{$6s1vA<O=hjI1~8Vldy&k18sF}@G<;i8AGbfcyPOFgrlQj
z0%gbqx2G!5>Oq?{!W@z8adT@;gYJr3JQRB=@#=(0uww6x?%;Nfg0;z@fO>9lnSK_C
zmt4Rt%IJB_(GN-sU7LiktlW_~2C6pz8$OxmuLABr$wzIRPn(r)P+#Wb^mpLNkU%sh
ziX)_NuZHn{D?m#S*C28$cn2QgSV{;Ir$YED9$tEm4d)YCYu$|gg00zmAOh!MrX;Q9
zl+L3Q$j?h#C30TxDT!m7<~*Uy=ed6@NFXm5nkXgLR`%Lg`qu1yyyGl<H9jrO(gq^~
ziRZ*KlHa7bw$A5^+n3gW>!f7oE)#xiRZg|*+F$Z;JRwlU6e^nP$^n0#8Fd#VxFoS1
zGO6yK0yEx)tjPZ`VIzf=_g+D@I`Y^}T_p-5A80AF&AW>d?;>gKdYEA7A;Rx%$NrY6
zg1MOtG)-&wqjs~!V5h~(&cQSyuns3@VUcbH>rWs~J&5kTLfPta&+*%~(6nMg`Ubx@
zNu7suBCIN|2kd<zS4p`)he&AkBu}m9xT*~sA;#FkYYyNh3+C|Q-S7$>g}uGuRmA(M
z?Xh5kAzp6|jrjaS1(cn*Z|I!J<vCXVHHQF;wRTiOU9MJs`SPRuOOI%Wi2?1h-ofKn
zQ+B0|M$BTiTMv406n#;=ViI2AB_#l%-KY*3=^5zR#M<x^t&k*a5>`CE%zB~oostH+
z6QEr}WZwC(W$CQ@?pZu6)x3kv+CsllTpl329C_OH1Y~L78vFuyU%-5Lua@azioAQ2
z2OSSy_S*L#LN2lt&50o+EblBt%1;&HYGlUA-eYH>-TP$|d)JyF(A^ksvM|0dtqb-b
zo5hFK1&a9!?cRv2V!sm;w!AxiKFzy+V#LukQo7@O*o4xcm`a0}YSWY^riaxP*WLKs
zCL4uMN+u7S#Ek9OinE`N%Q~z*MwSWuu9`t2nWmOYI#$@}e_D0eFSj?xbV!od5GPdx
zX6oX)s2Zi&xRx7;-ZYZr<;dbf0b;0|e9pH}9AVczC3A1u{k+kO5}O6GC?}wK1*=u<
z=vi(7FT8)8%)q513t4Yy-}iqX!!C(kj&Mu-Tva`+p)Tt0She;czNXNagw?gN6SQn2
zklNjC*0v|7kP|p!dA${gMY5s*HmA|5sa^PckJm*O1d&mhpR7)2F^1B{3%SKN`{o6h
zPuz7lYLj)|<H+#+LC#%+l<gPtva~`-+2o8BBW*I>Rup@??uRAr2!wWGoQM}TKe&#o
zxyX&{k@%SLxb66>xTE0@dl#8RF7qh}sKK3ktWk3Hsb>+c%7eCp2dC@;%;P^@pT8uA
zMO+yO9!?`hZxlC3+fs=kkg}#_wK&#9*L99W=}+&)g~ft<v-o{|-OxH0k*UgOk*Nhp
zs-nio*D}FI_U6NGFULqn8AqI;xG&e~L_ZJfbgMFHK}eZ0=hY@DYMN_4x$x~y$(Q7H
zCgjKB*1i>-iXd(i&N?4Dk=}NzK<Cwxsk~eFX@s$pUc5&vM~2rOOf#g@a)0NdqFruk
z@R&8h!Lc%)9Pla|{SY~Qz--!NY+1Ey(^-+bxa@;md;i!JMorp$o4cqLdIs;oom3Xy
zl89@`O9B(h;B}9Ze4YkZ5MHRhtx=zW$8z3yv|uGwZ4=zJe51YU?6k7w;D(T>ecD^1
z=Mj=~DXg6JnwRii*U<g5NMW0E6lQBxr!k2zaYYWbV?jnmVmZ|X+(`oQeoI(gJG*>e
zTG|SUTMDm;#Vbrw0-Bt3YA2LS2jsdk2dMt)ZN2YaJ9q6rxbW<PsV(PGOCCVRRJz(=
zJJMrspkQuS6JX*Jwt5;&kBHe1nzG=n=a{A+iv|ydma30s8*iQv%btYvx<*J8GI%xZ
z$Qnt1z?m-G4k@C9=cXoiJ#&nF6XRLHe4gcH)|EBH3RXiqGzz0O7{(KhHPu+S-}O@W
zmSW;%({YGnn`)h^SQBrc>z3w?Svw|St;6h0#*G**ufBGZeiAR*QTGz>y_s9RH{Evg
zPZo^H1>TsS5Zw)S%huuA$eK&=S`LkYAM2v-Hl+w6k7^7+RpYY?s^ap_OE~8;m}cin
z90YgjRgZY9Mf$-<2%dt(p`!y%BkTe1I#)Qt-yA<X%~G8GO1W;vie)@1MxJ&}5E(|%
z?u9(EQ|&sIG|_~6nL=dn^3bq4WlOv^Q2FZM+E1rk8G^@=1&@+{d?&ut!KD&U%F5Gz
zrM_nH677U5_~)mowPVT*ZiI!UtWt84bgkC}@KeYsoNYr{ee!m?M3xWRNcPBaq@m5A
zy~O>jzaH?a^R_S~T;40-&r)G&ZO|-`stmH?Xm#}q*(aL{ww<iqW3v{*%DM0dlsub)
z$emZyk|V5ftdLi1ke;05TEWoO_)2*Zqs_s(IB#rRY9rC2>;Z2$Ky~;zdx^TK64!xF
zczkjr@~tRV;YOkdM9vDfF>=vIH2B*-cWUD$pWrh6gtkUXTYGd%@zq`R&kXYDaHWu2
zW&V(|IR29hm3u{RR69=z(5##?vPBo47CBk1RX%;(ToU;Rxyp2Io>P&K;hnSiC@iac
z=BvI&ef&u0nvq3kI%Lvu)b$*TyNM+GlVs}h){sYpOgkyOfztMEb|0}Pf9_8Bo0wxJ
z24e=gy~EjzZYoZ#c0!Ak(SOKM&=6!;1H@_k0O6S+@5z*J(eG!HQe?K&wJEj#Aibx0
zKuu~<LlkB<xcX`EC{nX-mIT4yEfN0*Y1%f1SgH)K-XBS^J!X>Qw7V-hNoo&jY?$iW
ztfPMRXw5<yt@`8k*7iAW2v$<wrIAD!Lgc|>Pr_wIm*H>z<(q<!Cm-(p2v!|;%)V1L
zjB>eU-=s4>3@LL%Z8F_I1tGXX!tgRFC#mHrFr@*J1R>;wzw;cA`f%2UklvHHH>&p5
zLshz}XqF4VVU4*@tF}#b0xbFy8jD6BwrZEAwMqu?EqoMk3{sD=GR&HBWzjvO28sU>
zjc5rF((+=GQbAmrSb8E)__dWvRP>6=^h#x~9C)pma#M>BI$6549p;nS%cmmaz!T;-
zKDA~^_KJnN5hmhIHgD>G$(DlO%bw~!*i}gRYHG7!oxzWN1dq<eKPc>N!}D)ZVu!5`
zM%LLNpGrl1*h)R?r@~|RCZ<%XYYQDnyaPPbU2Y$Lo)lCy$b{edeU8hoDVr@f`;^$O
zc|d6REJ9jmp}FK%7gMmcID4;$h_9}HD)DtlVXuO2(vU)IRlyZIr;jxRXs{iI=yNbd
zc+`rIk5sI*QtV{<itWPJ=?&Toi(~bA0e#qT#z90Q{o-iGOWIPA#eeE#iDIYGM4zI#
zl<r{X+zE8o{#ymz0#fd4$D<$h!)S$90_+@@qHi;#`~}QNtv-HIYc^!hJlTp6L#;U>
zNp=t1o`CCmWOexAElJAoFH6S9Q@oaMxv`0QyQ$y-O9}T%YP?ij_@yj*#_RkF?o0_H
zd047&I%94E)4w_^V<2?RurHXy9KG!iHEma{MQxnZ6-_2)7(kvrGuBP;EARDwQrnxi
zo)0;a?deUX)=nMf3@GVWOc4U#@)%0r<5qo#U%wvS?BNxnDD?_Suw4jGN*>5wD`^<;
zt!&eGOw{e^v2!?DqV5p+eE9t2i2&x$a-qpGDgHIsoBqu9)mAPN@$|W{6V{roJBS%Q
zqJoY;t$4g*V)PTQ6y^2g(Q60If-i%Mn|s-~4QK3|?i8eC%%Ra^+>kKy1HA$g_g?h7
zJ5f=NmgWV+%if5EuG2#4zoJF(24GD7(e{B+)41D{UQ;p2JxZSsDtg)eL2Q;n*zawK
zrPvcvwQYzR_b9FfXtZJDL5a(VBEYIT;}J#n`6;2I6x2F|GH4H({FVGYG@80$enRRI
zdTbx=#W2bY7C$3~LeG)|**Y6Bi?ZXDQ&w4^iTt}4Ksj<VUXpyX_DhA;c^O?qyK-0w
z$$IK|;u?Hh`MYm(rqu@-1d*f<Da&9@Zqynus-gVQV|5L$n~Hken#sC1xQkD2kula<
zm53H#|EMdNRTGlaRHU-NnMgePK1R1B1M9Fm&MAQHT#&g=9*?RQIMplPWwx2Pe<<H;
zWVi6G%-rc(vUxx@_q<1lK}^>OJXDo>ee=$I_2O%`1BZ~X$!;H1??-7Egz<H4%E`OW
zIBWu&(Ld_LlI2qTmmjx=FG393PzN{y^Q=mJy}`ahQ(1cw$hw%$9ixZ!w(hG6X=8E$
zq{>=vY~+W+M~vmFV%|N6)ulw??$&;vDt)JE5fPZ!^t&;MXoKW2bZbhBBX##}d)Dsa
zY3Ob%W$RHi%&<%G5|9P=W)23<T8E_*Nn-6I;T-G1!dSeewpZ&7lhs&=YLH11@w4m8
z-o`0|g`yOu(9}-oGF#y3niCPgCqcPn=rUjGvi{(>v^TVp23OSDfS&59WfT)`?!{^i
z;-E3R_w_WIc3wDIo-$4I%j*3#gn${V+}9CpMvrPbSjv@|`thB$8ri;cA>?De+QwA9
zOTlQo@Iq6(w#enHRz=FZQCngFM1Bb(KW2tmPjKCcpHvte_~;$*krX0dzhAl6t1~2e
zeORS%C1dumOZlGtK>fXtx~4z9c%Fwui-(kzr*$2>vW)Y6h<rLA5Y7n8uZp9}lTsJ_
zkRNdwucqGV46Y=(a8Ke0U7ffPp}nTMW`ve(0{+wW@Xo^z37*O(M$KF6#34dJsd4j(
z3PzJL_vfj?Sh>X_MC$jNeczDFUrdW#TJb=Q%D(c<5Cnu*x13b`>a&NULz4>2(r)(}
z#ZD3(n2B+i9T&`^1e`N&4D3?6PR{HNbTvZml20ASI+xR~d>S~lu*Y~yP!ntcFx)aj
zGS>zm4&KiZidHy024{z_YVgL#n%E4gDHI64&F<C2g(%8z{Z#xGoRjzKN*7UEj-cqc
zD-vo@u!cMQzS$Y_t~bJMeHq81|EX@lXEiV&PPgJc(ua`qQxmK$1Z+$hcovN21qhQO
z`8Way#g%2!E2b~uCz9lcg2N{rv#*qG-Jx-f!?H<N3`EAa9#whF%6>4b8yP7Rr^b@y
zP8K{Dh&7T9S{kx*;x8(lRU*-jMHBl3ls#y)kp@>P6*?4qN0hO*uYM}tFH1~W%3@8k
zYlvHaIru@_xh+b%zA{CV6js<9SY*X4+x&cjfDl(r427zfwG;d^uHX6x`BXmo`>}7$
zUB|w(HsOQYp)t)%4P(LKw?lBM#D$e_tGVy3SIZ{1OsVf2DAo&Ieqon~C@DZfSpQ)<
zV+{dN=hiHT;tA6E*8Y?HAMxG62GT)SfpQ2{xL=TR>rTP(FYDv2s<r8mBVAoMCE;)R
zhlLc_TEl?zH}NeUq-Nd<Cs7ts#=PtrW2rw%R1|#c)I6N-9Nqh2Gr%oR0V0PEIEYF0
zPL}B_QtbuPp7d^G#XhX<zTwK-0cM9towFKDEfxMXDpE<Vu8vz!bG?GEF5bHEm`K>-
zSKW5gf{?#LLPk=@a?-x$L+cDCsn8-BgREoN{+A*>F342Q0E^EE)`Z5!@Il8Nwe4}y
zj_LCl9to_}WFllS#^&HMB&_tnK_Wy;H{G7YW=-t;r0hRPO>={U&8>#e)tUuWY`(ac
zIhiZ_!T8{Km=*6CBU~tQ_FX)xvvzMMusKD@Vj7bzH5lvnXF{3FTn9vU8=jaK%rAvI
z_J4gzUB1kRG{&v}ek(03vfFy!$SFai`77?_v7Irz@ZcXDx-Hfxsj<hW@9;*3a787R
z+wD~fyjr)Swuu7MDhPS0d45tTTF^2=a5#8Lhjh3HoCc^aPbFi%e}cS$ezI%p1-z8I
z339E2?GZ*+2QeV54KEdDH}u2P-VHUSd`~<1?ydt|x^hntUH<Dj$6$7ROJP!=2Xw1v
zxg>p@w$~n`D<>MzW`7QaM!VEsmI$58cm=w--%@u^>42T-%=8C|tX*mBh*^>C;rvW+
zXAiZ1vra#-HLHBgP-069c?4(qc#AiD>ASmG^XhN%vDZm^rSpxo7r@d^1Y4Ga=MX>C
zHV{x&i=^X>nq3nU!j@B)<=HA0=5ueB{(9M^kM`xl6tGY02@)6`Jd^pg_dnR&K)&94
z+1qzdTu}@0i}F5K4zFJ(bC``PUBA-fEc#IlnkFEkb7$}q67r9#P!2?JHU0*bgTVBY
z!qXid5*f-1MF_zk6d05Zuz8!uC*<PCixgjsW;`i03vCYxXj|`mpcJA~*p^q_*yia-
zTrqqR-o5|s(cwxO!9N+XmQ;NXm6%H!9d}H}wmo?ij`s6LcCz}6E#~9hj3YNq9FGz`
zNi8~E&E5(7BSuVLLvfH#8|Nw+YbzI@2(!V)Nk4}a6iv?@nfm4pYhJlnU#^)BAcRz-
z-^$qE9H(PjiSA5p$Oj7$u$EP<alY?zp^=&F&?^3OdEt~!#T&YY{~uBh{l_Tzuhe5#
zM(yNb(h6OEHw7bLz)PQ2H!m<rSGM#7%jGF+-TRLS-~Y)<doT@$Or8}_X*_A`E`jwh
z_CsI%intWIcnN75<OsQfCY1fk8;L=&Pg63yMlJR4G_$pFtQp{xN^17%fOmOT!OE%K
zJ#|dQ*{Y|`%VmP6(@PS2szS?&_k7Q3ryIs0b(UQY5oVBhN^EkY>)7M`9n%G;4K5AM
z-~G=PHZDA<@Y<Y-I&I=;$)=w?mWp?<w1tb@cpGE&<9)NP99K!HBRa9MNKvi1KKFEI
z@;`%lScE+9mGQ6&)E$Mc(+4#}-M-Z(xM)X9u1-mUPTM-UG1ez1mO?R1CG>DL3qqnA
zl=55-;{(KG3U6sZY)7u+u0tdWWGx)iC45;GSzPAo;%v7xfV8R<wpoZ_@evI9T5ldV
ztS5A<(%ebWBjsd4T*Aq5*nDAjRrs47Oy|a)rE8r?)8TChfpZa>E<ir^(bP>Dp5VG8
zXWU$WH6SU50gdk|V@=Y1;E0kTNFq&JXF(6)^qXSps!0#kTL_g*a)lng@4fC<p=068
zF--|sF0?YMOOeMt3jeWv^;4+f<3D5!(|FKBrNqsJg*f|I6;@Aq9+@)kw&5c`8(@SG
zss$k|=T*{*ZcI{Jc_&MKLSUci``F~?7Ec^yNC;c&4mD_|Y@KAd^<yfvC>*krrvjcm
zdJA+n(K>a<wnELtCO(FUuy3DoDZtXXm9IvBrmfI{$3B2$dYmERT?;?f<{AE0BzW5g
zzQ2C|*(4W%Iu~1U3jF2&uZO^yZvP_{YcY5D^#o+T`^*3PITL&d&u_m6#(6HJX8=5J
z@R+YiublbcwW)|qu{v9=`?mk?Go-&ki-o>l;?MB`^`FSm_nT<^-|Q~5z!n)5>THn7
zITkHJ-jr?Eusy1>1Q)9TalDqKv5vK@bBB2h7n|f*);=~F=Ig$1X?gjwDm;{QC0=P`
z{{+kBiTnB5DP1PT#>mi*N0=sHbBUVS;ho%pHDVGHEXNbg9C3}li#nfw{!X^?Y|PI~
z8@RDD9mRHFb(1T5;|sfi^i~G0thdoJM_1d~YF?Dk>a99=ySP&U&kJuHCf4n(Hly{@
zByC;{7a1+`?(FOg7?)X6a$-5<c<_0e@ztJ<^Qm#1vhE+w<-AZ(l@qnhV*AK@v}M%I
z|JRS7-A`^R&1Z+Kx+amT!1kcR9Qf`#blYyR0ou0J_VGyhBz2oOKR*uxx1U-9Rh^Ws
z?e*D16H80W**7=(|4#Ol7c$76@H?b!9d-_z*@bnsz{n@|H?am~fh*%C{v+i!CUWkh
zKORrDz!>kw^Mtw4b}77<Z#eb7CoY&F$M(LE7A>wC+#C*_?9MEqbfNs}Ov*RPT=xDk
z8bKi2?&?v@(Jpvi4y!7K)`o_g?H1KedFaN4bbR~v%<DsZ3(PmEs;WvfKR>?~S7sIX
zJyYKI#8fD`PmVia^r8I>)^Kt0u0{#@$TrwL8d6qO1yQ_LF>rX9nStZeufe=%ZOpTi
z>`uFSich9LQuNZLEp7&`P8hZAEM#0RN`2V-_Ih-7;1rC#&V3BiU|MGBhHlyD4pE_P
zVqe#J5mX$&r;8c^m!;}RwffBy3v&*>l-o2Hzu{I4cw^Ngzz~AgwbAj3ebuT~r9d0C
zk8k}I%?tm<#Tu=1u)nB!nD^nsug?es;*+4DU{pJpMqdzpVj?3G>;58qZ>3&HMZ#Z&
zVLL5{zMVCqm4G!+4f~NU<E8*Eeh}54rRb&ScqyDlvdd{*Z6bN{%DRt=R67sAabCLv
zs)sE&kNU}gC;@Kx_D`=q<c-Cg=g*(dSCXaON1rTye9Ab&#&z>|S(#ORTgcDn7kP5h
z(k?>tTSBVA>@S^##?Liz!5dN<A?0jmr283zQcCp?7c#sahf;>k!USCRx7X#^cvV7S
z%bQMp=_#4v2RkMGs)zd~`mlS8W?Z3i3@MECLZcd{S^IR|_g(B?;Tqal0&}!K^IEE{
z;qYK@Z8L*f-n^=yhmdSut{O4w3;*)+>>;Oe@MavShU_XhZP%5BQ+CrNu6jUaFH%bY
zVOFT0HJlT=(RC<x_3D$>m=cf;V>PbWDeYRY^X1q)$U4=BV^xk4k(RdD0zI>Vx7Y3O
z-sGZk|Ijrp9LSWft`q=JvC$*d9;zWapV!aC5dJIoh=o~+X_+&bOcpjn+tSw6S>+wR
zl+{m-e{!7~eX0Ov-J~}B@E}}iI)ZVvdte~EAYf&jJ%q9(6ST82|Gd(b2gLWn&nH3M
zn0%cOEezp+T3-qN`-=7$gX+>l+G;X<_$xbjsYnOJwPZFbxG!CXw7EXpS-)i!SL-%%
zLENGWrFr$dX#20+*KIofVW&==;<st?gUOwXdA8cNx7x9fvZ3RO#_J1|WE2?uewTw>
zux;q}&uB`V>cO^}Y3rON+GDihy*3<vaDzS)P>1u|4Xzdz79WBsOYzS;eu^CK41{0)
zYLIj7;q4N2Hs#GKkVh(+IXQ>Apdi;)hD%1KK{SV1s#>}PIG^O#)JXev38rxkqo7Gv
z0QrPRKHQ&81Sw~?zfT^Jla!R~uP4ocJV%8}GzG2CEVYJg9T?G1Ra^hHOE_mg`VJ#i
zK&+Z@#36D#r)W88)GaSxC+z~2G_p2CN5sUO9M#5$9WUwywPz`pMP1-qi5H2PjJDX_
z)>LsZG3MCIGR3|bvL5Bd_w&Bx{d}@LMj!A{od>?;?wh~8zby1+bQFn?T$pPleIqJq
z%?B&l%C@mnoydy=XbMO%+w%@tD!vQ7zJ&%kQy;x7T84<A${s>r-QkB7tr{(bE`>52
z{D{10QSVQ}Q4uxvopHrFX_716SUow)TWME}uw6Kf@@%`)Y5A#wQ-9{zDjHN8q27yN
zOUSNs>`A>_?bN5xsvgZsYun%G5nJh}_4M>`;7^7MoI9z(pE!Cbzj|buy}P@+SPMgw
z3ouIA-z+cU4R)%$AW74}*L!VozlCjd30px8!HL>l9%gTq804tr3}nc8eI%jV;k^K7
zF9zw!!8YciR@%`GGp_`R$!duHo3n4)Kyo+Vq~53x_5ip`7^}4JWPA1M)$UXP-eWQ+
zWVJEyoWxdTCy!!KXB;=>@o;gi=Z|-4q~!q}9UXO><^WpH=jY5Jo&9#!))VfyQj5Mg
zW$GyQU?Z)4V(W)GTOV_7OIHI+Llum?@Fbd*yWFldnBpZj2L_F{G&UXz{5}0CEc*1N
z4VR{<+7|HPqix|k^HBk-6Fc}=UvF>kYLI`F$S5|IppVOA)tX;bWx3|24T-A;B9yR4
zcATw$-s1h0BT8FG$L)(Qe)e+bfQ)g1;h3f;MxJTEfZ{7*VQPBeF}`kPSj@Ea*M;U~
z4}2YWh5J|)W2%Hzz)-Hn>w*>l(o*?8v6nYN1~^6t5=Le#tJbqB>hV>MI&A{aOD-0F
zJ?@;}+Ok&I@(wd&R|DqkXuE6c5V4cXw>Nli?Nb!f;m;H^TWC@KHGdTVv}@bPk6Ua_
zg{)B~KwVDjWyogjfN;bXo1v$+z&LLDe2h3!sE`j^|9VlX*r>37T*Rp0&1hTLUIHD&
z2b9RYc5Wl(tpznTHMqvb>^<R-DY5c~M~(vL<nzGUd<BVAycaKf%$@#<KQFw_NjeF(
z$~6|&VU9;x7E&JLZq8rVmv-*YG(`+G`IGXA<vod-JdOGY({gKK2`MHwH@5&`eD7XG
znfL6sd}8uLfS8)P8L}%gq9(=e%^TffYZf&wgU4-`YQcqPSfIfxwIljsVq!Ws8!&nC
zD&q!-gY8b$w)1;CP~j};CqF+wZzXSRbW65v&zy9_mC8HQJDTdwT#{-a5i=jFC2%en
zzziCx1oOeZ>&_@XpzX2Qf^2vQxXhS0jWQBH+2B2ELGND#(6Mx^>OGYMmxhYc3Nkv~
z(5(UR+Q-AP0HbC{JPB=K->ED3XeG*!kr};d4ue`|{e`bzb1C%TO7^2VpV^zM9kEqx
z2lz_LrZ+;XI(PXS=VCI~0j|>|;3}#k_tZ`W^XB`qZtIa2Eqx{$ygkfH%?Hc0Q$!U(
z2Q23d2cz``#6u>iCso23zB#DbA=&c#a}3L6>Cs<-jfT{LNe4saRC=DE|1v8pz8e-&
zNb5!;#}rzf2eR9xy{1B+3bY>Vk`{3Q@78DIRpCEIEA8>1y)D+ZENEmI0PduCwB>u#
zRBMPAOLRx#c&%HSO~9C=7@d#|0`OhjTWb&hwo4(g*PSi_NwNfBZ%WqTdqOR}{T@Gl
zJh8f8!L9F04EtINir%K}Lcd-*^}Jh9L{(LF<pK*s#1L&Q{LoDh8qMYNa`u6!Ep0Wh
z9WMa=!*R-ONR9J@;OrzF!z=}VoI>9XmmlvAUx!(b!?T`zK3O<QcAsjI-~Zjg7N3Bk
z*I{}LyD)ql(2^C974Oxf;dbWc<}IL}7z^~X#s$<am4t$M?9{>N$xUun(ssI2#7bHz
zI4ft%ocOTi%FYE@&xr<UE>=yDkae(6k;f00M=NJT5Ymr_KB#s|-pJZ0ctmf60BbK@
zg~o%)W~m3cU`AOQ#+%%`cZP^99QgM2^~J-y`+0X=>kCdrcPK6n<Q&!m@DDQsW3dG{
z_^0C+_bVQJiX?UXeA4xTh0`*YSGCQ*X{Q0|AAX|NpxCsm$#pPS!~PG)ka5F_`-(b?
zf^_)Hhn^0oBwSDJ+(e_Vl{QACFmq!KTuMUz_eVy+sh^+#L2(4EVsvvZ$pF3yV!OxK
z-qS~IBx#6t8rHS3Cn(#JHUZ^`^BT<k>WnZpG&Edn-I`Lg2mG(zZ)Kd41GxR3Ga$q#
z06L@V@Q@GWBJz<S;6}=ilv-3HK*ENdkGXRjz_Q}CL8b6rY)*k-6HK1md&5j;;riTg
ziP;|f%U=u$FwzKG)f@rzf<@+P)g!B!^Bf#7&*K6jt_&rmrQ!qd^YT=Vm^<)h+u+}y
znDEQvwIu)qJ)CpE%&H1o#u>F<V2!>4x@?9dlwDYVnLTF}Ad0FIU<%-z@@O!tipvAM
zVVi^M0!4Jb+WF=ZSua;<t^M#|QNVR&yq4Rn+}c9o<wn5_y+7PRT$XmJn2ThV-2Mk1
ze3L8gG_T4&fjIXM6vQh?Fo1K+vc_edwBE^km@7a7j8$G?GIRpfq#89YOxxQ!j88kl
z=IhVGF{h%v$fYG*b`f;#T@6I4q|G?Spvj>sY&AHsyE3_K?U+OSh(aqJv;dAa>=6zR
zwoK?S{2EN<{$RE#2swZsi^9OQDOwC5(>2X_$Z~rTIgeVaz#AdAsqw0mIl3d~>hA1q
zEsPf}Q361NDpYJ1>$f@~{}YX-m({(i#yl~1HUKx)C#W#oJF+s-SbYxxz<bs0*z%o6
zd%y9O_R))^zxU1(0T|2pr7z~E*#@g)IH`wOih*sY4<B6WGw409HUR~C1$S0XPWZFZ
zUGZ}<qjE{*lyS<4o$B6vnqAwIgZ&+0&#9IjBq;vF3*txx|D{{d%L;zK+$v!gI5=dI
zP;uOf@FioaO4zP@Z%+^2#MU-j6)1~c3CkLD_B$||Wy6!7YKWmCBjL`ra|ZJB$tELq
z;bFxVT8QASRaz~!W;RZ7HKTqiSVzpP+&#lohzC_g54t9|e{vx$xy0=Q-`0JF#ajxl
ztqnh4a9&UXk_1nu07GcIc7Fi1gukyn_&AefpaQc2a2)`%(Qk3jX|_fAh&z%LkBrUM
z>#Oc9SDWR8QOAq~^#CXE`1Iz|jmxUwJe{HY>z%?WX=%~CA<LDCK<jez5DXgcWUU!f
z!^--ZrdcF{68(W5JPvL<I593fu?c%6(xk-HKlGWz`BVAIqM{6ZzQx8xRqBS?j5S|h
zmkFO@W>#i00CB3Z+}L{SY->Bk<39kv&)N(kr{n18Xwn0CQgTX)$+{&P@G%eHBq6;E
zscC781pg76_Sn0$pV7RyJs_~g=N1>&{+9Qd^Nha%rl2uZU>I$8c(H!t0yuOq06E~C
zeJYb1yR~2<(-AcQi97<*3)P}dxKg68LP36xFG!a`lZ5aBu7Di*WBP=V##HBfdno-Z
z1wq^HxBqi!T|i290Yx0_SnoOM1Xzm{6UdyE8D`0b2ce(}b38y2PyloESaXKe{m=1D
z($AU#jS)k~IJpq&vh!5<A+3FGem(_?$qJkrQyttN+Ucj})04YqS_20Nqa<P+NG^s7
zbi>?>##4*=foq3fb7MscJ$}6Vv;~Op<EBSnUj@5z+%{Z}wFE+_E=Vu1Uw*NaOF6hk
zfH<hh>*3oYQ7^75cnFBHXA&w~Ii&432%Ab;Hw3&clQ{b=mUI)aNu$+<**Jb^6S-e8
zJ`u&E9Nhbocen{)n3Z5rL&K=d-&8<9aVaPo6~8vZ*F(|-f~8&?^DUN>d(UK|;-UKZ
z(*xe{{Xy?%?<k}ZvozG_&!6>(3$xD&v`a%OT|FhEE7Fk@nt;p`QIuk!{H*ANBHUxL
ziGsXz!$~@5F)Prr1qeV*NxQa|J)qH8b3mc=0+F{2Rqg4eHfD&7?dp%3Esr<p=^U(U
zjrWM`$Zz=v4`eHc(;b)I9r7ZZd83bG^d0iOMMZoXpz>43%VO$$4A<jPV3$lj@L@6p
zUB^j;$4m6hdbk6Zrf9eEnj(8K7GZ#qHlk3SRB>o?{C9B8(l`N*^XJ{yZ$JV75!YT$
zB=H7KKV>%ZsP*}BR<kr2m7B}oslu3a2|(fq3<h%qYEfaCJfMmOCdlRBwbrc@+8DrF
z_Tc;b(LBMw*btk2as;lQHNA8_B_SqO!VjHn4m@1xSAMy%>;3C}bU6ZrZa>(4QV6pR
zqYNwGrBO+MD?f4P*a6(LHVFl!&7ss}Xv^<r)#_FQAHnZo$^G&P`j#0ZZe3t*Q&}!S
z99Gy3l&(7it;?>mJsqWU`~5u!(3*w&b5z6Q57Z}9o9nrR=|RK;fL$JGX=%xtR}5S#
zWLrehMDcCv2!4Q|6HE2tYB(ajQHw)=KDqhxR^rf3%!(VJ!d@<)UbmV8@)n?l0c3;Q
zDgkWgb;qEf^({ceK2^Rx2>PDg-8e3yqD#Qgea*5UKs0MWg4Xmvyrx=SApAi8y11ja
zM;A?9fO$5B&~*WLusZ?5q9=Lv>Tk-+-Ir&tTp)ONayQF*j1T#3|NhyYbJIK5o)@MM
zoF|(A5dYpxIj^Y*yl3;uF93<2u23kn3`p8A)dwFVa%L9WH!(UF2_b8(<29~E*ygpi
zy#&zuSFZC@e*f%Xf;zoR0$q?MYp!!<o-&*JTGG-7%-3Vk2UkD^jR$>C_@|jNM%Nlm
zARnVq83Vwd3F_V=gdaWz$q+y)cmP_z37y(v!OkQjgRBfs72EB}oUtk4#&iGadLB(9
z2;~s!ett#8lUcxUx2&ohpetA6Za#WFGQTR(2?Z2`8c=3gJHGyrk!|8PP{+q)-`au!
z;6Uhmwx$c!hKYbUvxEcO?SvYVaAoY&F};7OrsZ#b65we~IW(~)&{Q@+ZkX*Ym7rHK
z#U>?gk-dcgEeTM}CK0;_2U^f1%37Ae_(aqR7E3u-49Y^S^;;aM+T{pgTNZ8wzea&D
zU@O@KERT*UMc4gzFF+!$wiEBwKB<AwS6crv2FC`hO@(1)My!1c1^P1N)=+n2FUNAq
zJT_hgG|nu(EDaDUlP%!>{b~jZ!hR;LlJ4fT0Q-U`0mZ}<G(8R^QMN3AJq0+a_Gd?Q
zy9D%xb3YeIRJMcr2z|wsnzVC$c<=$ZL2n9HLjYe;*=g>3q79g9u2dBLDyqA`@&*oo
zj^Bl1fQ>~xgxt49gLYfr3L<qwfCx;8_7%`0U7Xj*0O^NUCmPB5C1z+9@ySrS=BAr6
z^?F$fwcd0S1aPZOx@|#!RatYuifAd2bb&FRuWo!DIOwISK)=SyO$C|X<jOwB8eN#2
znp!ZlA@Sd`lNv!Vo;ZEem9BaVfSGWOdVh{S#5F?uVHeQE1gZ0<QntXnYpV8?o$ide
zNUyt#)^tq}Rf?s%X^ut79XeSmU_uxb16M=4Ku-(YR$OZ_YHw)Ru7BZ3_h$e2yk0=@
zz6F&jjX+(u|JJKp!}Z6fm;$@8Edm#i&TV1fpVjro$u9UkP<%V<z)A}m1dKi21$3gh
zdsok&e13Z#m}b^3V2-RJdzl%gOX;i&fL>Os9}&Z2piD6)_eeI2=bz1>y8$^s*?1%T
zK=r~?x*-7Lw>0Rc3pePnwO_w}?dt?Caxl<Yab#ZK-s@7pB6Y1lTMpoVy%9Vub4boP
zJRJf6{Y49CCnv268;0GS0jXF59B#7{c#E>;RSsR(5z<b*Z+G;`z=QLp_pbDPz`_+D
ze|~l{JmcEK&phNz;Iguv=9FD--X4g$isl9B5?Tkml`>!$j=(p64c3p-_{LALa&6Cn
zRFBqfj!#(CY=_gbVOx`d28w`auf?|)Too4=hXXO=rQ<(V^e=kui%LnEE#Fcq`s<Hw
zM5WV(0#Gun<`oar4i|I6rz)2_qS@LDL8n%viJKK~cgC2FZR_8n1{GmJfI2iZG{We_
zYQlFwIj-jv2=9n($VwJqzl4MbmxgwRb{In69ha&q2Mv@N7-c#eKu-f{v~C3Ic#-ZN
zv-Rev9?tNQiGz8a1$4*2h0sQ00-E4Z9`N?=o}P|Gt!KQl417HY2V3p!SD|dG`@ds~
zBxgS{@w(T7{&{(_$v?w;`YBVYfI;GD#lw!aJ;2DL31M54a&&pp4%)CCGA*rM3?w4J
z%@Dmk>WZ^X(9h@WY2p?>2LP%I1eUhE07iO+?Gg(w(tfgqZ=2=ajlGa>h|coEK&8gR
zK_0_R_w$x30afcsldzKg3974MJwcsy=R-xs?=+BGU=gH$DKAc8X<m*HN|pi?Eqy*&
z<>f}O36MrM^x^bfv<>=617h3!98k2(%*^3LpcVIkdf)s`2WLhoUH#EiB;7crU4C37
zFZ4C%f_g^dicQ?gTG#0C6E0=fw%@%v+3f5XQELvT7A8-IA(++H^8EUr8e@YSQ$qoQ
z2@{@lu-Jn_R;c!zY$^dE4*(u#7Kp=P9WZgF=-yEHPN(X@I+8FyPJJ;ez)3jyz1+cn
z_s4tn_8d@K^NV23LwyBbfA|iZK^3sdv}d>9YXLwG_XH|%{~z@iN>#vbVg{pLm138O
zQpf>ZP4%?O^U~LM_@i}Bl^SR<+?xLZ+~*9y60wzZE5CzP(LIB(Nr%8#Iu^NumVD8l
zi1|u(8UJ7|q@OwZ7#KEzvX6&c1_73Nb^F5via?f|iCflu7y+JhFc#oY!_|@bBUC|-
zb;ToH`BsI(>RIi9)B7*j$hY7B;3>oW<d&d+gWD7=GEkw=rlsN%{off>u=Jw*0E|AG
z&Yn-m1*ez++;ahi>kKsnyouY2*AWjIdBz{N@n&6wc<~3qNiE4N1?5Xi`>l+NatSu{
z?{nQUJ<YAK84Ws3+u>^ST6QJf+J$4{{=WXm1rCRIfsdQrW4v?b&CJZq{vS6OtZK;E
zwZp?Wx=t@|d}fxCcE=X<`Ts#;F4i?JunN}iMFog_d$u#)i>?5p1dG7yRfV8OKNfax
zW-+W`im*xV`_W1_+n>IQlDwSY?>7jxI!~3*mwUh(z<`1t8%UZpV5nU;v+*C^a8DJR
zlBl1+tb^r<gB9;VkSpyFAg;m}t8_n3eW(f*X80XX<~)-7`h|49jDlpss|>HU#zYj&
z$A%Sr?XU&V)eT9TrqBvdu>co6#Kc8Jihu*d4~(0`4d8CI0yerCBMcTAcCFLMfSS4d
z2K{ZToNfaaX8Lpwnc2eTQ=YulvFCG1nO8g#5uQo->&FsUx)UTt&8_MI?o^t0{6Alm
z69?b6VGsLvh4#-nBeSi8jlj90D@Aw9d;Z5FCF}Fsias`f{bynF|NFZKIp@Jz>OGM+
z$$m+w7KT)gRAUVc`0DquiWXf3TTC_L@mv$1g)9`q(I|P00g8E#uuU>n9XZ}r6)2D;
zDuN)<SDqOdD&!h$7K9YPk1$%;L=8<8O^-A~THvQ2%^vydi(T^G+B56c;^P%G`b!_6
z>C0H}4F8rOvL44qZb?GZpq6JpR#nY3u`&@i)YBK5{=QWI-k}h_wd>p{c_QLizvtk+
zK&~nNk+0uh$x4OiVm7qOU;l|%3i!@@P_4wf`Q#HdnWaUS`;GecpOn8&^lnd0S#0`?
zf$RL-b85`mKhRSm0@#1ob*DAXNI?D#H&}<KueASr{9pc*%>UUJ9p54NKmPf_8t~qf
z^Z)PHk?EHNzf$wRaO&+t`cF5x2ihzij`X$4O^81exW#wwN5wP2k7r_Det4OuYGM61
zhuZn`W`7^QbL;-C;~Edn$11RTwm<b&d#h&s;LMZ%qrLZlYO4G8MJWpMDWaeP(rkbV
z0*Z)~fQo{ANbe;CM2gad&_fXv6$AyO7Zs%>H0doQg1|?O2%)DSA`nVI41t7%w-dkf
zKmT*zJ8ztK$36F*Gsa~&gzUZc+H=h{*KhvjoGW|ZGntl*{_D74eVmBkjT?Xc(Sw^$
zhHLr^H8uTu2uB!GH?~7Y3fqbY)e4y3gFdv-zyunwSycDW-vd@M<6>9MqhAUBHs!>$
z-zs!^A0*$*Icc>5Pb#msrXw)cs#d(h<81X-ec}rlBh-_YNw2WMR#ffwk5VPf)-ZEQ
z1qnUf!u}q%t`54Tt*tIB6gqh+8AbTDxgT2$FSf4i>u2BYgy&jChBsCYF&5l6vkJw|
z4bwZ+>cYG!*%1V`GWR@Qn(M@-y45Qp@-1-<>TNyLnK;tHVR~Uva)B+VuxA;Uqgfv|
zF|EORW){a4O-}L-u9TLQwIX~utCPNjZNknsZ>Q|%El!Rqp$#mqWAY|;Q?VI?#b8!@
zC;2_C8&n<TSwg9!%?iZ%1vl0J9^fWPf2Fd?e(F$SZgenHQbjp(=(s2H`!N!GBZmD;
z;NYr;a+}wSx{Aif&8(i#$IcM*P$1>m70)siI-}YDMIGyK^edsYLBf=KmwUy>QKWm<
zZdI2ZyZK*yA@gL4@~pLmUS;**;No^Xf^B(T*SYZ9^x=aSiv6r8NhC+PGJjnP1{+&6
z6^_uBe6PW}*r^tnlb8#{E<o>7MN<MLg9wE(M@wW)Pv=;LkKpubiBZ|=_?a)T2q;xr
z1yx7eX%z#ucLD0T!bzrWwUBah<Pm<uk4KFv^HJ^Uyzp*IU(qt<-(AZORYfwJn_(0K
zZ2r;wmWHtV(0CGtXO%6T$T{VZu`x?5MwKrVQ_@zXUejz3oqu4RDlMT<s%4i4Va)!D
z{P0$Z)m2pwUx=`aFLd?S6&{EqEUKe_i#fT-xX3;7=*4P1Rv9654EL8hUE47IJ!{?m
zxP$I{s97Agj8-A5`GLlt=9_?mhYaP>LOBldf<S{zWlqJu^<@%SBQU11ZYzo8jOFDm
z*(-*-Xej`i`z#49P8G)WO|O9bstUphk6oW=0T-2t0T=oEQ+~!gz}4xaTYTSyRn6o<
zf37qB!Wn}D#R3}W=$IU~?K|b|3+bN!gsorPf*hM*Lv@u67k)i7ye>c;AM~D^C1v!$
zO35u%;16KNN&9|(LHb|U&?sO6=DZcMX>4tu=Ol+UmgorIVy^^|#ECcT>rT7!kZI~D
z^{TGpRMB^bS;w4q05c4ZgrXL=`VeBHHonH`5$v|rH#@?%TC&#jgt2>A2dcLB0cIni
zJR7c9#-0$T;lqG^@w#=n|C<A{Ze0Rk3nA7e=pVDEJU4>9DdUSF1P)3NzX@BM@jZK5
zmuBm@N7a>_F0k4;eU=B@GVt^N0tI`3Dm?IWTAK9;2o4UBbDV4^h`!DDKWgINMU(%8
zE=na5e4<UqO>rn^{GrAU4iyd#8|`49CFGNqlIFWZh8!I7@zEJ`TMQB}Peo`!%n~Pu
zQY+m;s;vG(^DF3P6UhjxlHjw4gP3r5ty<i-Vz8`Uz+`C<dk$L+*cS&nBG1u#DsuUv
zL;y(wu(0N>>083VeuTE!?0&mr09uOWvwDXNPaPU8%{K+BnScOmUXBaT8_L2&ZN8hb
z5hgR&3rJ6l!SxGQI5^S=Zn2(X_8-FD{{(IQ*O;?&oaC;0gnHX#{emt_7tt^D07v0t
z4-2QHVrSt~5<fCmu*nt$Wj-Yph)ql13dv?IZ#MY4RJjcCd!59TMXo3%@7|=?53dhl
zwJikf9`>7JJBk~$EAlNQG7U0Vy`nubKecE@mUYCpSfXrUQ-M2#=FrBL5g~-|!4b9#
zQ@RVltwtNIQh7?)(zr6;3g$%{m$C{jj|^#M2w*|k@?%xVW_!wL)^Ut)^)!3wR6S;4
z_mBiFn0XDVn~J73Am|ok0CSlSe`M~CpV<K^A;Dkng+2+!j4*&C3^2M2hG>nb<a|->
zx=H04WJAv#Je+PwF2H|(_rPGKKrQJ0Z*R0;5LnE%%Cl5)w_V<JFVxb$Iya2=(y?Ur
z$m`<(LwDML)!QwC;k-#`yhq>AD^Uqw&a=V|^@85g7N3Ob5R-=KQvxRYIj&Y~SVh_8
zRWIm{PG}&c;0G0&57)<?gvcd#;z{!eRr%(_9M{k-lABg7MYG<x9f23#@e^$yv~}H*
zaj4DF^p&>~b~o;xZ4hge<nRlCXd}H<+^w|D!EFn=<ARa3GeAe5QUR`jesTf;y<`i4
z+$3Ln@W*?*-sxUatC<}V;mk>U`}$&wd5bCD63Q@E2(iHftS0e^dblrbQgN{pL;HD)
zTCKoDk#}<{n%#_XJBERo8Qzxenk#x5OrK)K=8UEm8bfONk##G4N1KO3><Qp@nICjG
z$)^$8cGbIL>0VLx6oT*DQB_PLp@}8*wT`{j)(0(kIc$oAd|`pqrtW76J}%(p@wV4m
z(iq+9rGv$R%U~n=H{PUa{tU<Zg<~Ai(yd(isIh^>sNx<y9^Z$$l;?|E!NpV*c4ll0
z+3{;9XJ^}lpFIJyEEnHkopGnT+e)fTp+w6L)~Nor$7|Z%D!i!M!30!Hd%n10i<O1j
z8!tJ487s|!0<7uxvPt*IL~&ya;ncvhCI#SJ&nQYG>4}W+`K@8n0_lTZ$u`bV0ncVI
zUe0c770Fa<Y6Tva*-ak47vzIQAl#+i4(7`&t+lxlnQVhPd?_}V5%FHVMg60CQ*%)V
z#BX^FK4xKD2KeNPp1p(2iZGqjtTt9#4lexO#;`Dr6a)32g8b|w>8uA+0QfEUUjo1X
z7a&rpgq$W5jJWD9J(%s{%^F*@q3Z|dm8g=S!9uo+<*@4dd+?|0zKXW$VLtpO`d0l1
z*i7{Qf%sZA^C;R6FJc>1`^C5fa`9yGH^-DB1<KkYhYZVVmJrsKV;6u`#KF;J3{aQW
zS{8M|h&M_q8AUnbTv^oRB33QI2QZ!J^&D$-3xf8O<Y?#?CE3!yk*`u5X_Et~&@%Ow
zdNbOQ-9N4o6>W#!!WEI?S0f*^Bu(xhc#s>tp5bG!$1L+27g$1$i$6ISV(cNvqXm6E
zzduB^h-&PsbG29>9X@-F5^YEfr6LU)CYrXjEq=;LHE$KM89dL$?~vhQt9dI~ej7F+
zh_+W6nRiZx<EP*HQKv~uaC10AxjWAcR}(hV?}DlH(Ll1}sH!_Uds`u3T$FlSRgc~p
z!4YgKk*T)&oOBwyAI@ti6>dr)l4`gq?4?m9ec<Stmb2SV?E~ti!BFc|zXlS2)+e@(
zt4`?*5|KUH5;Kk72KBp6Mai;kGJ~$>Kf0E$rQ8<O(-x~d`+<`ztvsuDaD;skI$g;E
zplfasem!k+Ze88-6RP2y_3;P(>1_C7e@J%<Y#x(n>{#tP-@i2;6ULT&T=2;sAp{L&
zt;n9XhJi$kV>Q`Pd3J*h-cA$1Ie;u}x*BXE{oQsvC9+FfYG~zIFkg`pwo8b<;4H~W
z9#fp4wvnb6w|>cZ{%k9y1yZWAW*xOmen<WG?O!Pmt(Ri4_C>QT7bb$M!fsMxNS|et
zL!>@_&y=+m7WgMQTN-lW>ua<o?kzr<x72pXvydoZ7KQmx@?&T$OXV291c;O|n@uV%
zZpg#7$<&0iM`81rav;Qg1^ngr<9Ws}1Fd#LibiM0)*V=vMPKkNiKhA+rh`jf$JctQ
zv4wZ)Q-3h@dy!YEi=8AQ?{BWgJPu-asB|geU`X&lqN1Y>yDi7*+P|WM?I{f9DYApb
zX;z;cF16VSWyo@!zVp-fg6IYCSiP%J_E0bAkCYAOy`xBW8!uY~UkIu>hqtvxvif;8
zxr9kQKlqzeRv&A+*)fNOSP<}ME(g5=m>3}EQJaAScyN5EmvJ4e=*O#c50B>E1PS&9
z=)+|)M9}n|DQ<~BLa3E(66_nKd#Z4fXQqSRsIx!H51Vk3q1;&ZAe^#}h5qiBWAxg;
z#I8CQhN?zNu^{*`94vR0e01YJn}9oQh^iAA$yl;wFl26<3$Np2j(a<41-1g$j0dqr
zd*Sw%^zle|m?uIYI4iD+U<+$)Zl?J`nSl|Jl#<T6-;jJ+XMhMQq`l5s=|c!x?%IK^
zCBzq&5{Js+sO%(dJJ8Cpq$x*aMcA(k%P4nB7bzJoRdVpaI9sDiH-J^7t)(2PNBQyq
zbFHp>6#<Vo?vC=0n|1s;(18<B;p@iahAz{y`+vZC{>9N;9uedhC=lIsYRB2u^qt>f
zTo4Z^mN9Uc{yvBGH++PnTXkEZF4pXJV!e5n+4v^%_AM7)F;6t=-ka>4PQab*GL9u}
zuV$@_W%oa2?)1B;T4>uMgMNJMKJb;TWhFa6u#CY(s(?j6%~cn-h>i>58&9*=F_Ldb
zH{7~*?_(v{3eRab@my<b3+oDuh)CU!xcD)^t+gERH>+h?>w3v1OOLYFCp_;zIO;Q{
z<hxH?`5OO~q!nyWg3sMNoCz4UAOq;xEq7e_hd>T4hSYmYl~b$}m`;THku|N_u-R)+
z)!1ZfY5|Kp_-DEV4J1;5`!6pqq>he{{kijivK-@yhY`c%yR@wY90P@xynIuk-Gtw)
z5niyczjCU^vbD8GFr#V?Koh1XMH?<_xf=y-X!GNrC|}+UJWGUyP-NrPen8;9xk<?t
zL4+IS6T!1uDz}6C0!%53GBqk=q(+&V5RmqjcwXzgh+j#-zP0)V#~-US7<~%4iyoAz
zS=|dnK4{&wH}I8~An3?YPLv?|6L6Ngjj@K!y$g?daknJ8ffSDrf&<H;oK`{N<{p(o
zpi1&pBnr$KuBy8sRH>k|L{Lo+iZC-B;I^ZxqtbW)1w!)A<jT|_6&ZJVFG)&;{<5y$
zp2dYR=?criTHi_mB=ph@j_MT%q{nOB8}jbQQKV2+ROSdqv6+9|garumwWI#SE8$k;
z$_hB%7Uq)$Z3}o4c_k&Pf{AQ4fVPmz4cn(DpwD;RDJi5{8P0`{=50IV6g*?V3l*fb
z!Uk`bixz15ibUi^a%#4`LDg%CG9Y6^2&7*(Ot%hkOwDSsR<#}8SSBG2N0pcmta*-n
zf(evPQq}n7yWKMy%)`dSDo%;I1)ln+RBM824a^~R@0UvWAR_XEehB@Yj5FB<-UkOv
zF|w^SZ0FZB5^Js6boUHv4OTtoSBa&La$_g@nT<XDQz)-$t98Rw6{N&qh4fTGS=-y5
z6gG=OA5$GUfX8v;uCz2*7F%G-DjYtA0$Cnxco^lC+OOZ~nlC2GA+~J*n|i+~hQ+~o
zEvOZ%juOha-BOvit9l5kMFIGBG3&PICo)8EZY;LDNR{<5`e?x4X!R<43_vSvhH6vD
z_#*aWpC;Khfb<(qh5<MMc=jBr6rl<EjXi*q<Z1mMz3cH-JxkwJlg4l#3KWPUnOU<&
zrK`3`zaJmxtsC<2tos236<Dv86|3435F1ccSUB_+)agf~96Z@Vu|)DRZ21;87J>O^
zUr3M3S|5hv`mWA{4cl>W)qB6yj(&bXEtV>?8yGiRe_?_do28Y1h<$^;D;DT*TL0Fh
zH2vUUVg^rZMt`D|+CTgkum;<*);~$pD>6l;YVHx1_l`?m`scGBlxHOjHuJQVwL*K^
z@|0&?cu8y(I~j<aC&I}6TU*j}{1s)b@Se7Cz{j$uDB4x*JTVVhHJNc?g4&g}UJ3Om
zS{)=cxNRbx->_*GM}1uAo>mCz9)S)ID4re8DeIvZk%qAyZb{+W*Z%e|d<J8E;Bo;g
z->f8Z{XN1b(qSwwTqviX2>YDklJ5Z4{AW4wK9ZAzw0o%^#PY2feo!;$8(I#j2^-Es
zVtW{;K0sV>k|(?%A0K1|pzP}JQ5+prCg#-zUx)m5o5LccQ=Xo6NX1s-akly(pWkug
zTPzeksv|n4j!m(@c7<+~zx(Woy=8J)J_O{)36Wy8bTYT81iUDeOzK9+s@kSFmqytZ
z{~qg=$DzEfvK9nOP^CIUiLPzOct8=xy8oE|&2Wk?B}Y?BNOA~wtK_D~F8S6-c(cdB
zzk4+hxkLoj(b`CASbc*{uw&k(8pbzH6zc&%9O(4Gk>eP`#P>({cWuCS$Xdk%!Mn9#
zCaG(|<m0GgtR@`FRvNKXNkfJ7&03PE!1%<!>;+hmrYn><j^6|0maGWBhpJbd9Zh9m
z8R?q!sIcu{K}@?GHY^Ym><!W3m09a82nZbSup;@M?a?^WUCRNF&_WBTbC3Q#P@5R+
zo>tZV#Hd=@HK;SC1MB_7gRQY>MIXSGdn0_y@ah}m8CFpyU@+h)|2pr<o}8*X2;10T
zNU9&T9J_*$wZN47sN!}dhNrMt1B5nQtL}%9?fZCZWADr_O#Coih!sE*%wgnrIX3PE
zm6300U*3sv+B}iK`l@6dseK*MO6!pkKEr#Ad<$#K@<6a=+A~t~E!Fm&av5SCu*8fg
zIauzT9j@@5K*BRaE_{a7uE~nS?ATrZd>dFFS_S1r4CC-JL|NdVEdG8ATO*9ygT9mt
zX3XDG{dl6X3}3S#6KzzU->@Ka?0aRA>XoKCo>o;g6C|QXK3mqB;K*=*QWu$(;D<X@
zE8mg|iG?L)h;b?N{iN2la;Z{D+`Sby4jY7oC5ry8l9ZMjd;y4Z!x_8C#@%&yDa4Fp
z2WS6O65Pd@p3=5Vm)h-2!W~fv=`0AGE!F}@T6O4tEPT*io=i?G)(#y)mL(+YE>||M
zb~q~gNN;TELdNddKGBA+PMi^su!D#kWcK`G4j8)awv|tU;vGf0D28p;I$K?fj88En
z&T9hnUX7p(MKvFmW9e4-$*19z8zdeTA*;Q{$%>kH=$_1op$i=G9~ldU4gHw6#wZF|
z7{|5bg%`d-_e*sZOG31jhs~!jl1uO-_bxP94>qw^6A*jhImw1Wz-pM0Lkz<U$oqvu
zwcuf2)&C9_&XrlCHI`Cjgm0>q(wb#H{U+6NwSRS{Q>}dq@J4XS2J~;!(se(q93n6e
zCj|pD!7^-grq|!4iRh#Mw_3%2_k7t%(k)f=VOUfhOg*ymlo*?UT>+wzu1#L-;G)fM
zpA*4paG9kEj>I%kAZ;A4lB*$xF0hlZsoov-EMb#>cG*H<^~<IGp8ku@l2cc%fms(g
zz5hp!7sxUcAhE?(A%kGIu7c$se|Kr03FKHRfa<}$tS69iNBqy&NsxpcerB+vq25c@
zlJG@Ixeb$v&jA6IRucf)#z$%Nh$zY^iF8Yqt4h@C1LQ=)!!gnreAj_7M$$v<T7awm
zDzaKYStd(0{$TJ_0G?Dyciuv~5m-P(ES4(Y%ojay4aklG{L~8hj@Bph=|?xBpwiK7
z#oocQZ<B7Quuu<+wi75>9ctwA0X%hRlMa@Ts$N)VtmQw1?8o5|l`Gi-d63~<AC6HY
zbW0?&P8~_>B)Jz+wM{_HG&C38E(w)`f8u9ENhCD`mJetSf1j{^AunPRfC-n?ipbq2
z@W!JIg=YR}!%p>*B~M>U4K@p_m$Rph>{}hzQGV=q!At1|7rt}L1WJ}s4n^eK!rsx~
zw^Z0xnV1|M?7wNf`=Li3PqhjzV>X4kLZ`XtY#`OWfo=&YD3P=QeNZ<6l{VMXiXvEV
za^Z+RedvVG0bV!(VT53os=p00sDr&SWY4--PIR!#wgsgQOTE%`LX6cKePQzB0#9RB
zEVjT3NQl-F*()TP{|>svA6Bpb7u&1&0l6kt<Nqqj`TqsUo&Sk0ST#%CnF;Lv<3IRg
z@`mZdEYAUyLh2E;3{rlA&%HcYH4V-RN4UHqxE#}GuVDST$ELSC1pwtcCA8>Kq5-_;
zpq326nL$G@IK&EADgGu>C$^sR0V9J{ihayI0?aLtjolm!CUK&ECa@4Qm)@tilq~>w
zhbz&CfntJ#>H!OP!Zj!`9pmTgy_ZVtC6EgWqn-7I4hnoWqT1~E_&-vE{qK%z|0pK^
zy8~IV3FIyt_g9|9T==`PHPcT7L#P!@7B#L4g8(b?nOup#C6w{&??fpVp0Z(%jfYE>
z`KZE{nb-tGAA;;?0%2J{t0XnnJ&S;-wKMa81giD-aQ0G^PgU|~`dBhP^>0dJJ97HJ
zA<Zc;?CW8ewh2;(@S6*Y?s>LBHI!&pnw&Enonhnvk;4b9lyz_g{wnB43lOJMekaJ1
zJi6bBjdQiRxb38onmfb;bSUN6J~+VU$~P^I%MSLpd~&_o5@yyBHwXbCwcVoaI5<2h
zDu(I9tg6T8&?>0`k*vtdAOf(Z5e2!Z%tYy3U3H?AJ%~!(Ukx)(6((q3#x>l=R7k4&
z4TK+b5a4i9i9{+!AnPrs;k1uHFwKFUWECTRWv$osU1h2nx;1Fk^<=lU<g{)%-usJQ
zM)JmPay|eR(P*Stmc`m2z?RyKLh6cvky;Q7JvH#bw<;q$9?uP1aB$?XGVGg`Yg@6{
zVZ_vB+jlePurCbLeQYfL3fHHEb7PzJQlo<j*C>F<%NLV(zOIIM>9Y_N*l81K4tOWD
z%*+kPjo^v?koij(wefocQ)9*r1*XUlbUtfVq77L{FO@AyaN9dCQPNgJYgydHSfE~#
zMOmknq~&u_!I(sHYkL6I5+D`IxX9}rWwC5v^Wp+3HQ{6ZTbziiQNaK%>c#)g@{F@<
z_&_kzVQo7bfVH+La0q9Y$<b~fS*0S*3`>Ht1ld+6&l6q)cdu+>vsfqdLqM(N6A8<W
zrQJzQC})GN%{%rlr?P+7O#go^bpB5O;s5u6uzZZj<2)=k3pzCp{;n3^M)&>PiKM)b
z@yrKm^Q^fVf4HYrzFQ0tZUvNgpcz2^L|f(B1@@V*tTP3MtkiUvE@gu4aDkX*?vy9%
z^nbPL@&6X3{tHoM@w;nNa4_~GcJo0LWt-GRBK}Phu3QE7W=vV-fkD-@K@wB%>Lxd~
zz}gp%x0J{X4`wM2?XeHoe9>T~SZQScW1X6V2Ld1q$}bW$Yl6K(?(yR()#YKX6q=9P
zG_s;OA}s1^u~lWcV=9@=A6~xkL$)@CeeK_L#n!-q6r$?3R;~%oIV@`A*Sa#o{c;vE
zJhj_OF(<s6eY+>JK)Fl9Qd_x(@d%jTD5QD=%|R9NaEAD6UBD8h24XfT)1#_sU$<-7
z_fLEbphu*K+l~fyKY{^lTzM0w4;}1x(XQ@lV|Dm@FHE6Zm!h3ZdB*gO-;{Je%i!vx
z>4S-i_AcdeK5tiBVGv3#tCpFz$XMYmsZ(%dzA^|OkX3-N_G^%dUtixyCx7x~Hq`Tv
z_vu1ASCI&Ha<W2W8LI7jZ%oTX$icFiY2TeGY6EP)=CcZixqt=eZse`qkZl$2;F^mo
zT2;;NUkfAGe5aaRHng8<g%9Lg=244KsP{E(a}-t+a42OJI0QCk(1Rq9+w)ouFdQlJ
zAejDkBb+*%uk5EPHvA$3vfe46o+z-}MGhP(_fY{3Vwhq+HrUXysGar;8{(6&Z4xtR
zYn<Fxz0%$4M)bLo&)s584WK<SP@Gc7yp_|cfo~}6bXZf#l?()1@MT-v(p!)<80ng?
z6JD{i{LbDf55RX{W9W2XE3(e@L`@WQy77s+9OWfRi+gNm2Tl1g)0(~K5`y1Vm(+Sx
zGMt<YZfF*!oepCDnbh(C(^fHA<D0bNbyW^_5VZAZsbM<6qiI)Hs^Xv{@RgN%PpVI8
zRN?;Y9i~Il2E4_=Zyg%o<*sA58nAF08?&U<KrIn~G=7N80CMI?pg4qB4IYvn!+gx+
zzu$y;n`}u3%FyB6{231Fn8+*Hp0xJ;5>h>(*s*11|Boo;;AeAM@d{-@QsXUDEBj@&
zKpp7NrDRYg?FXm;$aOr3l<?N<gB^rbH#3QCux{Uv^I!0!**?upU__bVx@kyMPW!_G
zoq|%WfHic?ls9mmNh(b6c|`fRUEC~>hgc=&Ct=|DmM3=ZR#Lf1yUny8DkFB!3gIoP
zd?oRIRdc-e5`r=g?)_!o*`3{*X_ExTE(R>So^GyhzPGo#zzP>;g!Hlyw&=^t_78+M
zsBKms21CHDk7kX_jdINu#jv+7?7l!tU_n0sL;JOzE_K`j_f|cWeUa*Rl($;FYUn}l
z4`ZDzIXh*J6;mqjj3NBrQ)EyZ87>QBy)J&{YqitK(RtI~-G{6m+V&ZHHmI;J;ImQP
zYYdD$Z~VIoa3ZvBIykA`GT8g)WEkS=m+xw|)B1r8K0g~KtRA|i&L38amh$>(u;fJX
zEobrq`7{aTx_r&sY)s&oeg`(x$`3GCqUZm;S*#-KcsShUA7z2^U#7LU!fYt@(#c>O
zBs|PLe)QSY)OQy(Ss+Z2v;ejBbVJ=h@51_aCVywfMhoFEiR{NM*;7o?#U<SDchf=5
zC<%rNULRAOf{iIa;NHku&>SVeX0fvxIb{gC3O38I;zZQE%n}7Z{vD2#Dj%$5`iG(1
zPv)_C7rXg?r~h^<k>Sbd@8JR<CTPC@!0F_}H?QBkw$^KY{gCMqy~Jxbubnvj?2jJH
zG=qm&2Z-D$l4V+neBoh1<l)#;>zq8N_8dLD?%yfazQuD(=FlPNO~-e4Li%T?wS%Z6
zoMEuFCAFf0L?XMFJDShug2Tx)D3nr3UB*l6r=0nZ{)4}6f@_>m8To_Ahc=Jqj*g81
zy+e@?>|AmO8}n93ew6a%#cO|Sb2ShxtPgdP_LE=pa<X<hx3-^1M}I&|qse;Y&Ch9v
zrK0x|o6rU^?wl<go_zD;u4s2V?Xd~*stZ*DC$AWDZ+bC&`26-){n5Cukt^hl6QhrB
zUG4bQ63PYzoe>=nGt~u(PI)a_P(9eEZy-@vjp;d`=6}b4Z)}b`nj6TA-nd#BX%LbJ
zd+nFU)UQ5$uKRt#hGF#X9!Uv?kF3)`CMCTzQG_AtXB4C5z^_?(ZCgM4v)X07ka7ub
z@jo>AY<Q>lMF?$OT9Y7t8WJe9D0LaB&23%|DB%l*W?g)6!-#(lrD`1R$UpbF<eXaF
z8I{S4=(}CB>w8JzVM#O|kmJS8p|sP`M2^i<XZG1rd^j8pkh`&n#I0+$b$td(f<bHF
z)|(;Cvw!U#x7pv?dJQKRLsuq6Xj8PJdY>EH&buBp>n`aJs6Ov1KCH5rv~zHVI|OV<
zQ`1HmBd1>2x=-{z9g^EW(zGu^V`AvN^`=^_u=Cn^#44goBhl<blIie6(k0B>qVHJO
zPC!1DG&+7duJ!oW?h<{Luy%PoAr0bmkKR}6y2fYDWZt^FVa=CRDDT?3DD|>%aBE$7
zR`TYv=Vz8yy6po-!fj$`gT-w<9=7ZE%`RoD>$-Nf{^=@i{z~9>0vd!K<x4*IL0@a$
z_ysBC?4-|E4qv>;0ExqQC}6>LFUhNy!#7_<<wCK-lK2BNN3d>UcAB|PD0#rJ2XPX{
z`e0yID6uzUe~7>g;%p07GDqa?ZQ*72o8Ar<W@6{wCz<XPg=;&fcV3CBOdsIP5o!}W
zGKSix>9(VD?iOjw>yK%%75aYSWAw4OE%{oKM(pa=vO4o^+BXm4jdorJV;^Srk~)U^
z$Bl2bPgZ9qJa6aOe+Bvd?6ATa*i(GEJKVoWq;6KFoI9;$vQl@UZsg*5xgVD2XEU{o
z8wbVzSiXHVYLeo8V~e)62%=yqNG~(YwwZd(XQrTy1lE$uiNAFBh``#ay;ZmD`?3HJ
zSL1Ds7$JK~!xH|;IR91AEsu7WKg)YPmo9%FaqTSD4~3Fgx_I&spOcejtwR%0Iai$i
zKI<2(7v&Un<-sgEW%BIs*^749sX2>yonD2#KF@pG?tRa<av2FY%e=O;->K%L>+G&6
z^P2~*?8U$$lQtcy)7u6*Pd$C3dK7ctv<Y%JrRBcm8Lf^x-zKeITU<PkXj4Bsn;GWL
zI1mOhiuIozW}-tt&P1ndo{)|6f`wZQuW>po^~f{KrS|@hK@*m7F~vo4v+9>u)SzXz
zBiznaCe6JVD*G{FvWyHpw(&qjJL>*JqYL^k%r^JZUzsw3FXj2ZEd1<I>`|bZ@T)-Z
zb=1Z_SlQQ-`7d)rk$OkH+$VVtF{1}RPAk9Z7i=Em6}wX7n*Z`kL!Z`ZTVup4SuNY_
z{KTTCrdbs1b<yr40%jlu(>zO26|ELsdYyZeihs25&u))nydfu}A{@nDw-me-8+@KN
z_EzTm2=Zr_dpfYWCG_s)J~fr^;lBBEt;f6iAldomh<k=1H7Q5LrMywX<2IIhGRt@m
z4a`MF-6_<c(;3arQ$JX$^+uhXjP&`|c4w0MZsq#YJm{I99wfRz$gP*Z`tVg{+V<0-
z7OVZC-;|etrTFZk;%w%q-V{|DUUR<ivwMu6s!wz<r>e|~DdX}w^p#ouRzD~CX=J1r
zPR(rigJyhoruqB}jQl+I-$<AJ8s*V@6)mTt<7*ZbX(>^P_KhLe*9Y&}6fq0pTca(^
zSEgf2vu)4XXc;YR^c$7b%nfZC^Q46a)iScgp^k^Wcl~E1u?E21nnx}^xZ7_oHQa_S
zw4d5NxTA1A&+@pm*6#lCytSFF#P1+@flQl%S+7um?3Yj+M?`hm;D`l0prlj{ir?yg
z=$I#~Ta#-(4`ZpV`Tll7Q6hJ%ney^}FTy1A_*%{%bhF2^e8Kd`elAaEqstejUqIEW
zw4E=~adxP1p&FrLvfdQ^``O)h9^t6Zu&i3`r}c^=CT<uHdbT)}+3HSECs0)XNl@`&
zu9+o-Ecfmx4W~{t?pm-0A9;aELi5^9=?Q)N5?Gk4Q+&uxjlfqX-7iSr<9BApO~o)p
zR%@M3kKzb^J(g$pC)C^fff4wOR!z3`{Ij95xsk$FRg9e@?)%QIl*`w$JV_DiaQgPM
zrTq8)cWZ@a451fi{T2PZ-Z70POV&eOY6$~@7?TC)S=_pv_Ioef1>V&+0piKWO;!b;
zmorrKf)lSuv=n3i5-X55bX1hLOzeeM9@GUDWeBZSNf2B$A|rC#a*c1zDjRQ2l26SX
zoJD3g^7y_I>GWJX7+$v5$ce`D2dzh}z<g1Bm)9O;|7S=!?D3lAj0RtgJmIGMp&C9j
zNBf)<^KRW|82RtmkF6IUgc;?1LpCh}K4se=HQ<5%gS2Xe@pYWfm|&ZNN_p3dq0`Yd
zi@R<u`yBLagdf<wI9^cBr+g83cOB2cBIS<z2gi9r_UG-noHX@yy+zAEAP$O|?DlJa
zS&ex2u!aAeaEr#|{KdlHnoGC7rG6;w@#qzKZ3>Y{47ekEY0Hjrn6%5Om~8rO18y~;
zv7qhurIr)_?qaV7dMYv({AZ<X@$HDgXT8XjHGH64$Lz-SA`RcT+ObiYxe@Q#&&7by
z_OC=#K*dJu_~~D*&HXzcN?E?e$X0mST91;SUxh!PC{#GR*ygfS)!l@ax!<g5I{SHk
z&(F>x#wR6a=y4ZHq&j2wNQb*WSok$g+MTg35moH}^26<j>dPvkhN6X+NQhYfr2FH%
z?{BsDXId96d+mMR<!-Oe&5IE=DZ0<yddnqHd`*(b(SEHjWmL-`x?9lAs{Ae8A<UGJ
zU8M7BD?;Wx-L9R#@@MNjB;C{(_o21^%DG}6F%_+vm(~qOUznx_kd6SZ2!rVBhh%31
zu4p#R|5JV;o!`IvCdJBiL<FfYNshensEvOHQ4xT4L;p#PH*K=KL+DTR$Gn}5;T6qK
z%e~g9c5SESe!?();TPj>weQn)WJv@*izir@J_0McUiogl=j-Qtm!XMfW7fRqlJ6%e
z*+a+j!-V;2-V~V*0k{DvRz@q`PUQ*d3j@n@w~1qsPZnFrw}-YOPMs$(Nox&!o*#T}
zT<uOjJldG(E~mhys83)#yA6|gU}nT$*zIoh^MMFRx8|jJG7Yb30Qi`l56@UrVJ0fP
z3|llRE5e<<IH@o>f6^)bq^oc=;@!{U#OdJ&@2|#Rkv)@}F{EGQbNY<5MqTf+P+b5)
zgppUPM$`$UF++b!lQMMa;xB9RuEtDxr43p+jcncfR}PSRwFtS${A2lY`BC);5sqKa
z?`pI|!(Pf9STp)2KAE=qDWf&^095Hg1m1ueKHPagYMkk3v3ab>^O&#byh-XqlK(el
zxlriyfRY|HsCFnJ$6dN|)qQ&B!*7xTNWW32Uc4>$)VuKW*|v#K_5o=Gweu*qI4!ID
zX1+98y_E>$=ODA};_%I{d%qWaq<r!~6$Ye5?ZG`;xEyg-lI2`d5{r^dvo2Qlo=IN(
zRg$NgHlq8Wu*=;*J@!?+ds^NmCtg2aXFa=i_@PjV|2H8;#h3Ft3oym0hjC1+w`BnU
zd7?C~XFYBWOBs86zrQrTX9KUfKa`?0`(4qnr&PLh-3(II@RVe4%oq#obx9Kei?0MY
zCH))@DjpqwkN<@_S{GpVY~_7*-0B9={D{HGtU#yx_p>N_3+9s>pz^Lpz&7Gow$Ymu
zdQ=8>hga7dRu7CxR8}kgCcV5kAb2%0xs%fs@_ONF@8!jS1w&JN+1KMn=V!a-i5`Ub
zhpR#m6jlC<m1VDbe0GX?@l)gB4U#@2zUV^nV9GojThjf1W&rLo<+2bUtMPLZ-Q*FC
z<dh}?lb)Q<QtPG4ypwwlU_@%jFd+tDPo`!XrCv9vW89dxTe~~JD@URXl73b`>qQki
z*{7zT(y}cAi5f~2>VJ;-3cp$u`)*S~zNy^*g;+sIbnr-b55ObuSmx^N9;%~$OPM-u
z{d~(ybmif8nLP)`vB&y1uUixZN2@x@)vR*20_g_Bze>$Ji+e&T?<;kN)6M5!0V4N=
zLL~w94(FR2eC@v-`YE5==LKmB+D{|hO%usGx{~UCk)F3;R9|%83U>zoOY!NXjUke^
z=*r%T55t5S(Q=f*q9ekedeU`%F>(du8Mi4TZ5dI0CxAs=Q=f02v4q}{dOE2I<yv`h
z{#Hb`7TUg3tv1&$pya+t>mAVov3Fth17}-uR|8504KAmJ9#lD5Y$RGx^aE?@5MOkz
zcu)=#9$>yfYVGQQ6sfW3TguNz5{l!5xXS9<7lMT@g)qr`TiF2{ftWju4*>2~*ssb^
zyKzcNc2Q2K;nmkanzjGR?+JOf(Nfslrgz(j9vWb=8bqRBmw`q+$r@!DgN*2gekm#Q
zTcxT3mvPRuoWhb*TB;Ypl?~_bj?j-Tx0I3x_|3cL7fLGjE0fff&$omnUg@*iRAZ4g
z($?jRmHEG*9+MAAt<PIkRWDQydQR`S+5zq*TkV|U`1~y>GNQkkbT3VWGWc~{!tYeo
z(Y){8YHJ6G$D0X(1sU*JA>h$2f&12i+Ih1E7Lx`d17#Ny(C&i28szPV87KzX$Yj27
z-_mN`QtPphOL^C0y1y`-Lk@4H?paBHo49pA`9+ThNyJe7N9s#jX42{Dkna=dE9gt=
zV{g^k!8O#kbWch`T+76m|C?6$d_=ZSb-KE)p3tgMl#+80NhWacMQA&8M}+9sjCq@p
zG~r|0do@1&P@5pGVgrFTUpP=9&$0WWO5vV(VKd&sOR%!${$ObzVD~>sm+p?d&uuQF
z{*al&ruIXME&{Won^QRc!gMk@_TeZh)EJy2y-a`qK557qME?;wqBe1UR$Tqb&c~+Q
zwUZw!zS(ld-o3c+vGZlvY?iTYaze@c8=*Aeg6c}|)U@AmPigYvJsK+g%7HD$DL>vB
zox2j2lw9Ls4quW;-tF~(g=w=S`4`oLZ)LwSC<|rX#lw<TX0E8gB2ck{oR(oPqVK6G
z0DPASIXNlT8HWo2X9|CHzko{-i~XvVJbt49H4ih_P?%(%sS3(XvO4RUSaIS^A@#c#
zy^>Gr$WmE<fXB-hXt9_MKK;(x1>uD2$<7L#2ltM;rfKA?sXK@x`-EPf*ZMwQoVf8&
z(5$N@kw$t`=5jnOA>UY}q&Xab@Hfvep$}3u<43u6^ZYi-?!P*(rFz(H5uaT+&|tb7
zaW<VM{@_m|T>5z}!+yk+475CdG`IOeC)?!f{ar>za_x@7H+E(8!y46yQF_`@jqs$A
zFV=jJi3qJVy|~Jxl|Mt2ccj<2iDoyd{oQW?!N3P}TineJrFQFQR)?7J+e>kksSM@e
z-5ECrYeApO0bIa#4LLqYQ;X!*sWtzfxWhJP4awYu6J^E?g5x=BoC~kwY|kNLq_`oc
z957Ml`ihqB1w70bO0kP-frD?4##N?41R{jDgo*ZXwq-S>D^9}g);-DGj@L5R8TReg
z9~4iv&SUOsjkp<saziOjhP|bIk-k1R9KD&R{-a5c|9E=j|Frzi)xdin&zSgVDJ$Gz
z!@AS^=7)69*SUM|d~>irMw$I4IAy9HfL7(h0AD^@`E$jKPxJQE0j;CdTPg3mGAo<8
zQ_kG~;b7>FhEvxyh;BqP;vHg$Q_CZYqBki042dkCRk-2c0QQH#ujtJ?WQ&=&nayX<
z{|ZzSx0#q^UVAN3`j)^&md?c#bYKeE!!-Qh8Qu9P8N#6`P2d>QDTh@U<JLu$^kjdG
zSxjfZCG=&F0aVpZaDKA7L@FbFJn5?q$LOK_%3y0C3Jp7w7eM>#IsKHr+379qB0#v~
zUIGz3TcT9~ov>H$uP1RzPE9iD=QYe+f`uyPIilhV^x2uZZ1r_uOKKSNieBc27L_VR
zzvF(qxSCL@JwaI(?(T`oAsRpXiFte6*Nl=wiPl>VbL;oi=PCQouO_gweCN+f5@BXZ
zKMkVIL$*@*`+7;l0|C(u9h{CwDdOrFtg_r{-{r<vhY+5K)u(6lhX*S=Zl}C&winou
zBEDP*p5m^QG>N?6>^&lNur%P@ngub6t6*>BAJbElRCS`%K2`nRRJjX<0WQ@Eg#@WR
z5qlc<Hli%arRe8cP|brOylWt$7V!$v1-+^^ne1(Nwa6fP%6<j^MLpkLKrMg3jsX#7
zta8u@`^b+3Cw;|^^tp3H>DVl70`KKf?JJQ(<O#(n3i&Jt8zV549O=R(vX~~GH4&l;
zdM-{hU!Z<+N6SyrkE_#HW*ifQE)TrB)jdS!#f|%o&k|314{*}CrDVi+?TAJ<?m!H#
z3RfQpYol^&?J1MdB&c$^udj*j+IE4Y62bzO2v9Wq<Q%-s%>oxWHBlZ#<qbMtRlrsu
z+-69$^<(laI^Ia+9_jUbmvzQh(CLsbvwCqciOyl}HVT{y$Ia&Lnt9<&JzXiI9*+X6
z9CE+ECL-FKzKpU>f=wkS{ON%zhsdLp-c$_4k0|#m1o}L}lKoYktIlB!NAa5P%kkZ(
z>B|MdJmiYFPo!H;+_>19siO-zJ5QIMf{t$)B{3kzyJHJ)Tyl7s7Yhf?<44BQNfGj=
zBKh+&OzTOWy4aP56~UE_C%N?7ENgv#T*N&(n75f%kXGKA^DsL2mC|rE0c~%uY4cFp
zx!%btFIdR!d46V%0R6!ID899FuI>OuXWjc=xt#bTD-E3=Tc0b51)6~D4?OERp>fC!
z<3?H6A|i({g$LIpGYZSME|NINF>zU|32|8&#*5qZ67E*|=6z4GcF$A367vTZ0>~f1
z`k4~>#e+KWBUwKq<bl_Q49;HawSo<lG&AZ$)hpi?{5Y$~2IU8Lb2%ONL9Y9fqe1|u
zC`x1~t?9ONj9SG>i~ZQgebAmuagWdQ$?b)g&EGzyY|b7dhN6qg!!jCZVGxTVP-Y!x
zh=lXY`;s;%K1=7H48^|O+?6>WEZ`@&X48IcOnhx$d)S*X-MI>Jld%X38FF*xxhb-6
zUrUS&Uu;2#TdZ5wX?f{G0?QHxB4_itubh-OIGk}`TUUbUP4M%4wT7jF`PMTF101~s
z#P>S<<-y&mrx%6d9{0Zn`8l37$g!nC+kqvmZaf6}U0OS<u6lbqFMgM|_f3umCA`g7
z_Or_^<2?VCh68F((&k+buSf0EyjbXk9ZQ5yC4(hbln1Nj*zj`yQI`Y}q&>N72xI2E
zN2?~g1`2F?tG{>9G<gVeuBs|{tr_9uTFL2}F$`+_>bvGryg*hRiYo7~4<#m;Zp%`E
z_XEm!mQImh%pHG%$yYel#yJX#bLFAgaz)e>OBEhiQ%K%KMSOP@kRmenH_sNh<EE}l
z>Wesl&&Xf=;;Y24H4R@9-J#`iYu%=9jQb*|@blp+vAo;qUy-$4o3P&ZT2cvHkrvjY
z>VuY!%A_xm%MzyB#s8Q?r)f^Sc_Bml>pZ!XC*<Vx(^A}MFQ;o5uR$0}QYxpg#)x#v
zPgj>tPUu}7nkN_QMPZb$)p=VmLEJR!d(o;;I`X5Yyk1@?@J;k^FWm{eG{3GW5qx|_
z+lwb8J(9aMATFSoLH88(-JF$)qZA4A#ZK+#?#&ac+s;l@&-fy$BzgJlI6cChe=Se&
zHK-9oFfT|B?X1kHQ|q-39VpSEe+&^#&G<L+j@_b1y#pE^T=S8rqmVdV0rLv)anvRD
zmhAY5x<bU+{Y-It1iOt0wG`H28fZJ^3jqJyoVD>eaUi8guoBrKueS|E*@X&2Ym}0t
z)1oUOG~82pNe{-Q?Iib?Au>x3+68%Hr={vNyn?)@Ai8sO{(Zu*6;06jsJjKIVlAnS
zNlnri^k0Q^gXN1Y04rE4-2%r6{C@N;>p3;q6eC`x>bJ*vr3c5S`tmui#<$AX?&S!+
zHE{d2PNm>mQ>fmv;l8yvdL7wtALFsoAzZ%NRl<g1pp<#|%ZnJpmru^MFqUGVvw=$0
zqIuW90J+}@`HaJZ3I03h{7%m_(XE|MJ1bHCXfK<R;@-7<)3#zqZy2j(oN<0J@xtZT
zx>tMlFiLv5%=?Sy19SCxq9R`nkQ$FI3U^N%*qCfmoLrT7TJe)|2$C8J_9N&61~MM$
z5ZNL=C#`QLb#U#^l=t^*+-qSQPoZAMncG*F5j{wr@=szdiY>RtoTh1s)g3&JVPi!D
z!>IA9tnAP<9MgO6l9=0u2fZtoKArsrHx=E@=_}js1pc!zX57>?OD;P2u#d@W*If^~
zLOcIpm*_MM<SaqpM=OhHZ9o$|=*4PFyN0z$9o-4d%Dm<_$!{17fg{twDPxK1^-^Q1
zt15tQv#?}0USRn_k41qa(_BTY4!Ic}6P+$EEUUCM4yTL#30EaYFI?p={umyuddMww
zRYxR^p_ym<IiAy+Tli&OP9;~{&?Nr&mU!$~-@wB&GrAre@h_u@Vn4fOB$wsr5v71i
z1k8S9)xncO{33FF@7+$hJS<Lp4Y=BSyiUan^93(Vx*?qQb@jf|Wui@|ozv&JPHJa+
zg6bukisusC@eGJMY>+PEjvH04)qVg89%#Y{2~wRUW^~==ITTO!D}gw+sG|f3*G{Oe
zgy%l)c8DiqM-P4Lh}3sneAT@@Xt~7$#|4DC{V*{fn!Sa*i*sM$j9<^YM7Y#-Cz)d8
zpSwF&mX-;poH1164UyLWdO6gy7ACt^aC&4NK8h0HFqS#+5~nNje&RN@tfRc7vJOqQ
zpTfwj@B?naSiXgkHu}{T6CCxELfJcUtE)Pu>L7Vz;nzx@+NM3PxRK2yC((ll`3v=H
zax*YJcFU7SD5)x_3v`pv&R>-l<54?1$uu1d(zTr17O5<3-Pkkb{V3$xPC8uur2g01
zfM{z#u7ua<b3+*NyRER~{ef;rBXgE1vJk5(roN}Z;DC@@bdp?>dp<?Uya7^#X<+8@
zGL;IK>*KPjQ`aD9X!(j>s;|tVdiwyUqAw%jh#%iXY^y!T*daFo$iCKcCy2JNw^V^?
z5NC+NuMO2d>Q$b@2fJUO1?;BQ2Nu%2sUGwvy<vbXX>3`rIIcB!v}z%NA-FZZ59<BC
zrhbX@K*3ytq91La_nohVTT}C|e8Dq&+lkW(+)Uur)~J@$Jh}9tNZY|@_1b)1YHy~w
z)=KxRcpKX=Pk72K{y^i)S6<vBe1?02oSmo%<pq#^4qe3S_z&nYdj>5E-FJ>Dbw(<=
z9wXELUE({qy#7Rgy_73*`5jzS3MJ^R?bF}v)>HFt1^b$EBjx?Md5+36`tY34_U6QJ
zF5fd{sq~%&@>2Bt*X`zz!wG>rpRG8o1$o9MWBvBWK_dx#5x#LWS#OoKhVqrY?PEmD
zsn0&CCDW&)WjQOkBMmd3sd*GFU`=6BgKJr>uC<VKUoP$Y-oE_PcWg*+U=arUJclFW
zFV_TTaP01z-kbZ!^7TyIME%~GCoyARY;~ynkF+#Rg|!RvXVgbBb%=eM5hkHYenJh!
zhaHXMQ=(3&0shUCM^RRDSFy0hp+nR8%`Yxutq02b<!TYM!y;4*sDY4G-M}?>4~9f~
zhO0~vN?x)lnTkKZ^Bd?ZrJT*T3m-Gr8~29X)n%-N@eGJeYv^gLbl)G^wB;t*AA8*t
zcr9z(z3``P-wAQS*Alfd%YyCKpm>)D+CgM%QNQoeKUd}#9tln<9`Ab>bn<|g8)YSu
z$UTGsh&-Vxz`Iy{<yTj5ycXsAvmP!#e~Z;Wn|VWxNyAq8-Jf8SlLxoJF|+CgN-xKZ
zhvvhnB|AObz3(GI-|Ipx#$^9Nb!2b45^@Wr0Lstd&cea-142CSCX=s6^5@>pga!|1
zdNZFY5ns>ULKBiFM$eSV_FsibY`f_*#jo;gO+=%jo(&o{-d&k53FeCiUIMx3*8YOB
zdfd$I!VH2z5UD9I5c-xfe>KW5lM*`h)Z3dQiJRF(+1TJy{&T9b)H|$KabSDFoqq<}
zcwP^MzhUF(dJ%K|j2U)2L~5pv+u3RZC?WjeDB>Lz>2yv%C9Q|kQ9s2(R)7O_Vp@}=
z69>H^Wt^$9WgIsrYIe23k}MiGks%gM5E>nd;0BmDBx@Nxa`lSf=uOxeXVB0FUu>4x
zKJIh^=ir`$dxB)9UwVG|=zXT&26ou_%bZm;Z?9QBq+V>FXGi|c%*E|%h-An~dHs(U
z)};6*ZTGbOX_M`&O@zhG@sA#M>t<$FCH-=a3s`SvV!zkN9HQ^H*OodE@#0~6dt+YJ
z6N++7vf$mxNPe)sjh(9)k#WcE{u4*bykxR3qvgQ3_H~#cb#fG?eIi0bht06`Q_d?J
zXU??V7P&m?6#m6Ff95GGAp3oeqcw97Jy(B}`eAVJ^yh^uJ65G^Q%iZDZSzJsf%@w?
z-OSqltLUC6Qy^gb`;>y-As$63t}BQ}Md+`f8xcO}iI%@_^}sF3@3gA>y4G}hTn_Gn
oppVws|C50D->U(O{$1XpKj&}C`OlTIHU{b6GP+rD!|Bog1$gI;K>z>%

literal 38499
zcmeFZcTiJn|1XM_Z9%r8vK1+60HtoD^d=%3Lhrq(5HM8fHDK9_fKoz<p(+HB8afjC
zMx}%zp@a@n4WUVBNeG-LzWe>n+&g#X&YVBboHYYs2rKI;-|wfbgh&HD4UUtSPqMMG
zalkb18?mt+3uI$E^60nY;5TE*AJ)Oc@kiPk_rW7LXlixg;Nip*O-mm(Hr@!<*P+<?
zpKvxd0XEouRg=K9<%xhaW7GYEp8-Ox&EHhXC$$o?1d5_>MBNA#cU6NQtDDIxIc6qS
zlx5NUDk|y%v-qF#lbr>hvZ8HO@5Zb1s*j$$Sa9w7#3d)8CY7Fs)Ze{5S9Lv5mjade
zV-=wZA^NrAJCpi7N*afM4e0-V`@bsyRzP#Y7Nx~&=iwxa4H9*bDz@4h87tjC#CA6)
zIg`RFZnjJ3l1;>4`qIvjjXFesODa|l;Tck4WBWL;;ca{9-!;7J^4t2qWp($0`cv+I
ze_e3naQ(kO8mQlDzYKmZE#&g~by~A1>$&&PliEvH^E0s-s8MYfCuE}~F&K7`RB1va
zp)Oh<cy3$v975@pbuL{+sKBm@9`r)Q<2GL<g+t!XM{=VEtcmj|x>kW8SsNy)nF2u+
zs--wUIO2Vau*Xr2Nt+qiCYXp;wz4=RU5xyMGHB#vi;LeZ!;YYGwMXCmbxHLEY)O!O
z1t#3F%<U@JAWD{lW!@NepEs}Gwta{E@S#h7Re=0}f>eR&3J#)8ges=O#C_h>iz70y
zD{>z_rQsXzocP&)&9LNn=TY8kH|yzvV%ZT`xblXrB$v+S%n?}52|G{AepgGXY*LjP
zvCk_=8ddoxj5iNfuv!*Vtp-76K&FOC+NdR(*mX@^_~E}i{L*qB^RD?}db>~8da4Oy
zMgyGXu|ZRUx*xhY&qpR_n-G6M2&gD0iTSO~cWw5(M9;Vr0$(o|4Gj6+ccPtA8tPc1
zbIOUS<zvSZ61TF{@N#^V6taUn&s6WPp}s%KlRt1o+V1dgG*pJ}^@Ey3#T%PtYNI=X
zgK>y_N>0&~HBAa-vV5ysEQrV9sy^}h&5{@HQ1QnVD*}aXl74%JLXVSNp2{RWbrIUJ
zZQ8n-7!tQ8gf1sawSDM<@eyA+9<GffPNh89_dQ&H7FOsOgL5=Gu`Zv45i8v<SHtTk
zU<qGurIXj3e+|dri=RPo%L~Ute=A~=G34Yj1EXi!a(ag*YoQZLf#S|Dx@H$eLx*rp
z+7l42(BNB7x1I!|yq}wx6NNIjL{a4O76hKB=}?2tT3y(Z@r|9KN%LBXAo~8afk$l@
z=M@jUEcR`?uiWpF6KtOMiRT0l46)_xffZgl&cUp`L#z}3IRZeK=apRO{u}HO`167w
zXz`Ps_yJQPi>=zWy#q+UFdUD+S=BZc8+Rfss47;cDT$pfwiplT??wAow^nir`X!s_
zE_m%$Ly>+$8`anpWlC}ZJN$Wl*p+MKndw55LGF$%&ZXTA=W(WAGI2Ao8U8iIJXiZ!
zU=S)s8?}8dqE{uUa#V2QIA$nE2_j|Yi;RG8r%rmGiQ|LxXZlnpIt%o=UFlDP|66TI
z!y+q_Gp=uSD3y*WFubbJ>lDo+nC2*BLOB^V+J5xzhNIOf<ymO>eIwV1@-(aUQCw_s
z`GzCCi#OSE|8>`0LuN6J>iAsPL)<D=cA&T<$vo?h=Z&AS2Q+Vwv-CJMIaQbM2Gz`9
zOQ%vrh4&;oq4sxf>G+>xk8US0N=Wp9xJ!S0Lj>tl4bblurw!O^l;2PVlVq_9U#@oF
zM8%+YJYbVv?cqVFO4aIV-XyG8lXzf--@hvkcHK11_^u=DF3p}C7k-~e^*&=XzKB{q
z6miGn(BwQ+oIE4$4daUU)p>sBi0#7Kia`y*hWKeqogNZ#$BwT~pHy`QuHne1tzWsa
zk*L^C`Ko_cvY%0crkkKcp2%1dM&4KX<wy5FwbM}OvKQHrFx>kwXC#@&ua13ir2cxs
zK%eJR8J;#@>20rH6<Est#HAtNEp`;Kz)V-0Jc|kQNFRth@u#4cdDiFR+3~~m!g7hT
z(tix!i@2j}OSGAeTd<CxIm>r>p2{oLQMH^gs<t*LN!P{;9H}>Q+L>_N%9r5U^Eo*L
zufWY&MDs5BHn#3b%61(*c<NWMYVg;6qM-!&`RR2bp6MPi66-eK+#N8Ixa0KcV{B|m
zU#>*-wrP)E<7$5=)}KWU#Axg^*bq$61Dy{?ZD2gM#C;(|N^9j|OrsF<-TXRD3w=jl
zHgrE)JB5Bixlm%!LvVi{g?2prQbksWk_2&=-+<FKb>~E36kDPMnjwGED0h1Tlnq@o
zcWopv2a5cO=jcg-1;~enIXv$@IX}+1YTRO?fvW6>r%W}L7@MAbU^k+e>r)jA`h<<`
zsmPp7ZOtcN7j;G@c2$B_?G0OlmsS#Ni3iFpdwSx56NfvF*mUlutEDKS??fKI?`_RF
z4?Uz>gEk%wut^rReQVpvyLOd%2fgXBS3TS{(3o1JtcNRxiof&8&rPF{u6axv^DbB~
zmlY|(B07D)Y}8}*9iJa4R8o|e2h82?6T2m7>?6;2UO@;mdB;4ZW63&ev!H`H_6h)D
ziA19lLrb#*kD*>^(qnZ>bIhIxrP22iyP8!yiu^DOLk((*HE>Zs%yvcVVi<0Ad`K-r
zXR6slQdm#?w-?jfKXzjIh#?r^-vI6!58i%BKk8nGUA&T;&bt$y#Seijnl)D|V)!3~
z#c$SP+u(=eBM5u425NPytq;-lCleA)FTttrO57N-Y;3PpSxjhh5e|(_QBXRW)>VeG
zOQ<oNU_NnOA?FpXNc4~MjY)Xz)|cC~4R-k*vw^tg^CWgwuT6^XJaDR(ttxNS>w_0d
z=HpsJakX>l!U(($_nAmMB)<sd&Rx^&S`CrU6&+JP!^ZZ=B$<b`J21MbQ)%{;cJN=h
zoHi<SEqTalMYjaCO+_R_^EMjcF(L7pU{>1Kk$VN58C5LNpAw?k6mD?grvMkjqd+hD
zj%jVv(18(g>1bw6+`uHAaVMg(x09(6U+9SU|LAfOrQ<n!9p}d1pM+o`(JgOeA9#ps
zKMX^6R6<-uxJ*8o5L;2n5Lk%T_yNUcVP*D%ghs6nV^WRY`H#C&+RgrQi6pc&o1(49
zq0L!EtcuXbsNLV^8dJMu%z`3M$K8R|y5G7K?_1Ma8C|?X;mxhvDoYba6cIL?wB+yR
zO1WiZF<ct8Q``{K(Bc%Vp7KWL;H~s-<dt8Iy!_#E$D7fN#}6{m=eiEETkFr(s!ZD2
z=0^X0pRAR%+vc68I+S+Y5vB93H9t)E3i13Wtk+Wira}abKOo<_L>x`^UZtQ)s<iQr
z#re!L1@jS8NEu6{OXtzSv}Ed~dFl4C<_~t(aI2p}Db-r5ev?yIZOc`=TxzjCJWp;V
zF<TJ7SA^GLX)0*C;AKbMg0wbY5mq5+9uW@&lFD?mB8~k)LHzXXnxU{+o7{<Oiy8&|
z=#Z(}r1<{eKdv1d5g0_>5o%Zpgtov(nP)O1AWA9E@JCzL!20-ORKJ|_dno`5M{U0L
z=AIKz-VA=;>k3Qx9_Lg!{$ic+NhhQYZY7CEs9Mjh(|&4=x4Cm*9@N_>{d{-k7t_Ih
z{|~$vU@p4Zv0rkbtkcSmW;RTtdIeFr?Ug4h`3*g;aS7Ca5u8ZiTe29bfB#vP>@svm
z@`%r1a?sI63u01>X?I_=M88DxW&mbCaK)XZ<+NU`;#luwh#3!P7>1Aoph&Ec_uH;!
z*V>u$uRRynYsaL~;|wQd;&-Y%N=UdvM$?B^xi{g&y)kBZgrHx-=F6@|ig|Sm*@o4_
z;CO#B(5SD3Q%F-DW~7ZVgZooj<GN;>&;**{0@sy|rcuGSQzSJBf+42vah#4lMvr`v
zaMWw*2EM1T<7kt9;)%E~J!{T!wZ1yu`91}bGGY83y_=1cD&=Cx%9D<RZ3rR#=0l7?
zC3<BeDq`;>BuN1)nIxBSvN)(vdr27Kj`Du7n)TfxmO$B>A5edhnC>9o&)P$93?CUj
z^tZ2_>-_j5aeboop~Rn6I^Wu1aL)Btj?W*f9!)R5FkLL!@6xY7k^FdP+H{$qTX1Mn
zX9ehzeoG^aw%m1;SV->pvQgeJ+W6FXAZJjQ<hCE0Q2G8y{X>{*=#b~Dw5Du8HzTsS
zw;KT3KE3lz9dz}uaboAuh)&*I^Y)`gd04}*VwinBZDRX%(lyln4RV={`R53G!L7uR
zuXcNo{;2}vrphGUawI8M9Tnq`3B&22IYy*AS{1*blz+aP(uKY#3zAYFac{AaK)jEo
zO(pxj8n4TIVss&fEWqNS-y_&0!9}_1uTlf)oe=6uqHl@Ly5vZGSy;R;9;=M1&M|1}
z%(W3}Cs`8r&J(#i6kn|jM7Ririsx5hb6^XiD9aLis9pAhz=;6nJK-JW*KGvFp-kOE
z_|p6WUl9MNbs1Ph``!;!ml{gKVEaXM1^l=vL%bujS5w|{fpOC`iT1AN^DkJNTg0<`
zMRFmW@5AbYhBNUeepI2zq_X6$*#;g#arB8@pxUp)D9B_fQfFP2&h+*URNQALA!t0P
zK_|}fS(ih<y(rCrY1$_PB}`c4dUjoRJWg4<QPCKlaH3Nz;RIWEf~9cn$&8ZfCI2^A
zAIInKx*hqLVH!j#N;z&v;Gscz?OO1bC+2-_fAgaQeWHI3DQg0E3)-SA9LBE7Fm<xu
zO~+CNw~_{6xi6WIU^v3*f1KGb`t*I8=fxnW-C)k0m5++W$<{C&EZD5&jAC-W10K5i
zpIZM_RsX-=M6wM^M8RJ@Rr(9kT>nY0Td^9@N;98;B<aF`PsYAt?b)xx#PBEpoB!QI
zKs*Q)47)5z_JLUox+mT-CK|vP^4Jh7qkOC~2KQ+CACyG=W@Oh!vQQv0xngu)&vY_3
zYz{X1;q#c%epPph3O8Tb(vy2Jo%#!^7<&47gD|p~=QqFnH_KZ-q0bTdVh6XOZK@4N
z`~T`3`x*a(@u+Nz*1@;5o+GtJhAn7sDPAZ<>ZE6G{uy4>T6{;_acJZ?j9(kC;Y2I6
zroNm<HhgKy*tS3)hf*jom^w<DP!wGQu|02$c68CiTM_eypyFs>9QNxa5d|^wpRjC5
zcRA5Lp|Y7?l;0Md_o%2#-ouqSWz<7aOh<-$%BVRt_;&cIZ=Xw=PwDRcDP_AbjKicC
zfCXGulGmi089_QI(lDAA;=oCll8}QxPL>n2U+DEQs~gYn92<xg(rRR`kl5u4vK<dg
zoP`y8Td>QVa$F(_z275RPQIrYT^gY{9~|x9lL&Wq-8VebuhGG{MQr<!kr()}?V9W4
zz62HPlMy8)?KJ5fbn5Sm?MLGil9**u;lr)<dbp;bkNO`XLZwA6KlUP85Je(3=TR|T
zcSr2D^L-Kq6ihj-Xf+l4o`Q>h89j}eF&$9VvW!Cu829ZmqYH=YL;j(ch>_gFVsJx4
zm5g#@DK=B}603f;=8Ty?Fv(`cg2?OrqXo~pI9xKYbf`=aP7`ly)RZ;=4crp6bz>q+
zyEa}uvg7qO7I%zqcq{Xm<evG%&rL$)23KhL5kXgP6Ly&(RG2ffLH_A~CtF*bX_9<k
zNMV*is7l#$ZS4_!1RZsQ#r#kh$s!zAMcmJf*x*Ma3>$5U0x*u^@>Y}!;b<o=xw0#z
z$)<;bcqY|L10HG1fWM<MS;<`Jo&95R?Pp!erT3kfU1*<EwWU}&l$B<RDA${g1Vo2Y
z4?QHgi}RssGBX;RD#$C6A7dIDTDZ4Z6qJD;xH)pN9p$#hprHyZY1gP0Q?+IH79yxT
z@Wv*v!Ew2-P@Rrp>fu%ke-U)eF&ZX2M<?bcp%v-dlNaklqA8BmKMA!ZucNo2el{pd
zlw-$ab$!?fWwD=aquhE;&l}U`@#RO2=#iVBF4n7N<i%8N(2R1UpS{-ky<ZopZtcRC
z>}V&cT(u!D{Iou8AfCJ}aE*K~B1q4)vdaD8b8>$XIoA2Tn~bL=B2!!1;iM6wCAAam
z;!U$!4aeGX0n;2X3b2Jy;(>zwF7ns<zi_Z=W*w7c!_KN=Qs?JUC2<J9xdrWGToxZs
zyI8F8_*k8qGxDS$?etu~_cW@8N#<3xXEeA6G0RE43Ww&Th{55Ir}faA?bLy)Ax0}|
zvT9%1%IG?JZ`68i9<`rPRG#$tqWTLF<dua>4;!Yg_V0Ko){Vu8I$A9rx2)z-cpt2D
z5^>0cmkOt^H5&H0db5Sdfe<Gy<(_)ojZc3WsYlUdIaYsHX#YzI)8-WI=mCj_a3q9G
zMU;^#T6ow(E;6-i7F!l3*+06-c(<n^`tyOfumx=tDVULO%dY*CYVk4C`{40>)4d+<
z@@;(RtyOBN4h6-4h@1G{O$~6g(ln(Sker~gUwQ^hj&P-;-z(cyBXnUTf})2TXV-13
z+^u9Z{!Ka2BO%BnII28cZHg3p0DY@CN;s|Q$hm7G)-ST>BFFxANgJ<4Y=Yw>hDE3!
zH<Lz@?+fjQ7>XDTO-8$7W4$4<7uphcoNsC59<dlY7M_aTLhVbCe+M$rz_+yIGD-ry
z8K2}|kri7pN@cd>EW3$&mg6hSJJYWAH?*9=Xe{w3TB?xOE8bM=LEAR36-rEXE^B+V
zd>!86>LpZ{Ug)e85H}BIgy$af%RqJc%MQ{Rei$Upk8<!#g1o$DUZ?%4V1}EbWElQ=
z@caaNe<dy~vTHv+?{S>M>+*z~6_eq*SKZ<9owenuNltNF2W_KUqo2u$Y?Gcm48Bq8
z^V*hubxDAc<rKz-q$*aEV6w!Es<jJ)<z}v)gH3hVWM(8gA>A%ORgTZ!3|0bx_0#iL
zKKyXVBfoh>*?jzt`FgSns*1aRBq3Coy6b+ej4bmtr-JckR|4ZMVjk7=ny_;pO}h?_
z71v(1y@NF>aXjpD7ISJL(AlDY=<!Y)JVG#^8sNRwx|{+bx3zU=x~1CPTznQJ-7fcD
z5QY}aClEUIeiz&>qZ~2nnpLiqB$OXTyt+aE6qIEi`eZ81w*iMGT_F}F`JAd#garuZ
zFJ_*@RuCF=g#NgqaKLk7!FApsOd3rpmYA?zdeD^ie4=C5_G>9t*k(a8;e;||rut1s
zwR%x@agZ|vBT2Hoa}+EyHo7QOIhwW%p;VZ9ufC{2=<t^KV0sJPeES42K4>PA*E2lG
z8s}3S)N`hE*>PE8AwuZgkU<~Y__LdH>BSP4jpWRQ7%_B<I_<5{lzd9zeHx=-pD?r)
zGqsi8;g`PZUFX*qr`4baWn$`b>Tar9hOq=H|Btg6es31qWVJxKO}`)(62$)aBmRW1
zpJC-O6K8eLA1cN(JPX5{nH`n>(ViT>2~rIvxi8&5B$;2wgdJJg<mH+RPn24@5Hat4
zYCYG=<5^aAv;8?LZ9nSx>oZyglR;2!a&eL3J!rA8yvV5ich@t7TYu&%XTz<$=PYrr
zpiBch9`sj&H1lq*DO#z$PZcWOcn!tp{gHr(TJ^~zjE|2Jh`PCO{rkB&h+HNxoL;W5
z)z7O<8w!{QmhKq%3Boe_3&_Op=mkAd-AEnR-mg&}(MY%zdGD6fzRN9E99Zgt^Qo)S
zkCb8tMg%Ln>)PMw7gX0R%&3ANhl$kWwpD+P5|_C~Mq-fS`@7NUl7`w1ZW5qnh8aQZ
z>anC!ohJuyQCkslOQwW_MW4gAHD>L@Wi#Y<{2kRk2Z-|P6|kYnDw9uKC*xrY1iz;;
zAE}AwnPKuO3l;a&NvUJ~JhvY$SW8ye1rywEH<h2ARx;|N3l%ujyd!%YqAV5%m7FSd
z6K1rhWnY8p;~`7jpC0N=79;1<qXZ7u=ckF<SLT9{>WwdGpT<V5MY`k|Nx^O?AeZEa
zC#?8(C%ZI+SY~>n<T6$$uR<}Z+`UP(7O~&ht>Esz-2hSe(*_ihx?x#<DM9n%>G7*n
z3#<Cks5765w_AJ_n8AW)ng`7`vuJ-r;FSu0aF{99!Qb_>S%ZMnm*AfN*r2$f>*Y3-
za&TY#X2J==(MwztI@~ud|E^#^DL9rJowR#ACn0N0aX+^>r7IhC7W35qT2)cyd}nC5
zTey+0LNbD+aeLOD9in;gEbYif<Q3=cCet1QKh95wm)~^eZkL5C{lbad5t)G7^W!3P
zC)W%DZ)f_PfyZ)aWZ2P;?G5~(Am*@oEKDUfJ-7VL_4CEfS!`w*S>pTj&$<<8uZPcl
z!_ZS6g5-h2y-u0J%XeePM8o(`U2EnU2omw1it?0t%qg_6*_!BBJ=pYU<28~g#--y;
zvAS-Sd!*j)g8R+Dx2=k8H|VW@r~VuYbvP_GW~S}b6zR^iyT;|_P45%uJ~U~v&GhX_
zvOCVy+6he|Qwn`?2WgHo!NMc-o=yDrKkl_TpGj`yfsl{>O%m;iDN(Dgkv)-Y+tAIH
zQ*8NVo+3nY|F>ucoPI94#<VZ>ubMWMHItcCgSvy}c_{LQ(4!iyAJ=`<&i?I7V5;^h
zPfeo9)gRKa=JWf1q$YT)^Se{7$gF5$QZoimZvU(qyRagBYv>%M;gx^*^3D@XYGgjN
z_%_#wkWWRDa5(a6-pr48O|4KFH9g$m31Ut8<j$6XnUs3CrmQ7c_Fg^%*L0o2Y|ZCE
z%V8q3v1Ny02XU5p&h0@D3gm`D+}@9_7QDB}Wjwn-|Fvhwe|)jl!Y&UVSZ3U}HM{kb
zVUk={trKv`Kjr=rYt#0lS8^s8N`5>Ky4N=NT^evdWt-;0-W=`YcetjSp0_M4w1C)o
zCM9gKX5JYj=ik2ffN1E%Q}PB=jl)_yZjT*84BfUJg!hPYIMTVp#JcyE9ljB~;<ZKw
zD_x&d-d%`a+4aG=XPctqbVR4zV183gw)?$Fc1Qh`yEnH?@ucvd-d+s}WWSY{W8Mm|
zyh%#Y&J?ZCN$XMX3%im$w&m~Op3hyE<@crvq*@~SqhEx3@>Up@pcrXY2<v<L)fZh^
z2)80>k~y=^JJ$9)(yLvsaxL46QUf!L1$3d}fBw~ZbWYlZG^8e@kO<$Ir5T~>nO3Xo
zK`*nOmG7Eq``h*;*X9pDY|tt~H;DNQI5k210<|NpjnY>UCv<*Sg~oo1K-K#TX?n6t
zDkonWUow!J`mqyFR`4uI^GxO{i;WIRl+_e~DHZMPx_cLO2`E=N@*#b#rq-;fo^N5U
zQ{%B_zAAd3GbF<dGL$>_H{=Jum>Dlvq+aWP6c&+1d63stJ$7wp{_UW~KKdsow58~#
zH)oMY&185qW86-~r?SqGwcpbnuFc;s399I&h2392cf}W<!8xON!ECc^d3XP-Afmb}
z!2B7CbMw=Ep?70ePMJ$0{oFfx82CG(eD}+Kx*CmLPZ3QCn;)<hb9)U<UxI7+j|Duc
z@sHt*$}_HZPt9WJS>&d^D|FnRKd=ZgIZj??0K97WZRuB|nBWdX`nU7|P8FFXD{yUv
zsV%e(T!q?l+X`{9`7cpac+18_j8)Db{&?@#UR|_a<47E7%NnQaRpv?gW1Q<+7q=Z;
zC|7dFhOE|pUN_4V`RMJyZWW>vX-yrGh)2*A{#tPQ`0QK_UsRJ}rL|g-mXSH&TThga
zwnAMjNfFbm$w4uF&@h7*9HC9*3nrl-7=6&03PqiOU}vtvxZ9W6Ngaxp?M1kz$!BFe
zRVd5@n%L}73R5kDd{zC(;Ljs?UT$j57`>WAoq0!FQ9MY;hHZ!1e?ewM&-)cbJ6hT8
zi*Q-+Lb$|=KKzg`wf?<vKD#7eEIa*czV#oe6Za@%pL$oesD97ycn~sQ^G;Lg?WM+S
zgtxqVKfS}stl7SX*BtfASh`77i%1O21T&f!qETG^BXsza!;{FtZTnYm^i4m&Tueqt
zg%n|F&=-+H^oO0>K3!8D6W@m?1U^+6>{$C>y8w+XRk=!4dktxL-*q%`PYXU(ljB{o
zdF>+=k&D9_)$SL%krXg?q-qm1*oR4>{I^&y=wkK>=){l2_Rxs!Z3}kEN4Sx_Fi(&o
zot-}RbRhIBH9)ehmbfTATBh`TQ$JUIy7<5E1(2Z1R(&qDJ}(6`YE(iNQfwxV8Lldi
zO11l-)2u&AC6Ot5(BjnXgj&sB<I1gX?q?9;Ws@&l8q&@%`slZ`CNGOXc9PXlCm!UY
z^hT@nCrtRM;1<}kZ#KDu-54lxg(HsaK&8J6T4}L9cWfbTPL!^>AI`ggxZyKvCU*M|
zEwQ?;o{j3pyw8cQDvkV%KZ3L9Bh)YK;pGkW9)5B*P7hKPG0(n?5{_Q~CrYAj!u&^_
z@=|Ii)W2r3DF7pEPlOFkMb9YLko5PUc=4u$Ym|oCHk$Fn8auandGv_1Kc%e7tN*#I
z{+Hu6;f6EG2a8ty`iTrVLWex&Ssr$-_~{F$nk&kNPIcRc8_6RShkgI0%-az1&d`+h
zl?7N1P-nBHcOw}p8c!Dcb?ohF4f};}el5RIFd;oZ*fWvVQus=TTknNq%+@SC!zyUN
z8JYHZ|4G|jS2k87L{)cG#>IENw90MNp9mw@yntlp#^HD^<htP*xlz@6S_82zB1CZ+
zv3{e{Tr3a#ue{{0?2Sk(qY>m6<(vI@L{-+2$YFe&aQW~N368j(M)liY!W3_jkS1Dv
zcSp2V_W!82Ka07jhU+}Ku*{s<eiyVn6d86rrs9a5N_*{m?1ZyjmRV%}ww(Lal>_tD
zXO}}7)khl!b*ovLcE@@xud@<wC&Bfm)VlX2{J3($9>-i#Cv>!}$U3FM@vyb0Xz&XO
zb&`G-+}AoxIMZScvrHLX)w(uv*Mt4@9`8Z+J^W(+=x9}}e%^kyL(ZtwQ{IoAPNJ2H
zm`1tYxJr}U`OL9?fodc5-nur0u715fzluA}<p~{IwFTu*tT{2tnaBN*^E-4&G)X}Z
zQSP;Z>hV@MQ7{RI>UY)OpxTb!Ti6S#dQQGg+K->+K1O98dLMPY8E`Qp8muWhj8l{r
z;G&^!y%{KVudmI)VbH`kE(UQTSD0G1HL2Qz+>I%pToj>edgF=WJA9b1lPYoKx~)to
z^XIDY?P)8;I=>gjrNv2UjP!I-F1N?|<2%l~WjY2QUexa-q~6^AIMIO@(0n;j<KiZ&
zTX!KVv&HdD_2iT<X7LHIOezun81CI0#!=f1@7yLnaV#aR%=;BaBWL$?pChiq94>HV
z$Zw%Bnj!?*sbH0shr!w~uHvSHb28m_Dv|hjP59H=V?&JZB|bTerWEFH7@r6(h9axl
zf^`=a{R*}kjTh<$ijM*8S;fIN^da`d2b8s)38&KrnobXTRH4s)@<9)I;Z`dqJ&k8d
z<N;q~_N^{v`V#yd0{RTD?hLJlh=drFAD5sy(nBu~Y$Z)mnrv*=Al6eOpZsCYwdsxp
zla%ufJtwX;k9`f+zY}-^M0ug|hPg?1@8=%->@`}YQZ))a)X_1dDEu|&AayG!^HZ<$
z*EvQ`S9ag_TVDmt(6Q~x`{KgOo3`h4Dkc!!6>3f<!F5%JN|;phy1n~BS03v6EOAz(
zXHg&@y%|=So{1(h3)I7yX`}mnha}z7i+c%hE2|OYxuH13EvqZWc3BT5U*78Xj3e{?
zV>jgouU<^@LZIA@Yut@ox{W1UDk~h8phmg#uWZq!*uS7MJGf7C{D0$$<xlHeU5SS>
ziM$d%X~SDM!Tz?TUbD#;kBC>Ye|Xy$|G=N<Q2ZzOIW~2sv$iee;0hXF5AXJQ{2Za-
zLh_rqky}E8GF0th`mUteH3?DO^5z^R`z#)^n<UQK_M&CKoyn%x_fj3gU^wAQ^x2h3
zsk_j8vDpu|5PF82A=%Yk0@41_#Sc$(R{Xb9UYeyq)fobMj)_uJ3CbHWQeU*1EQN-x
z`ss?0ex=U|Q6&j#=im=uTZ&sbTL&-rmPQqG-wZz^%6D857VfOHi(cWb#&_*}*SLkS
z7P`4;EI36<IB^rd8fM}$p*2T1YH%H@k}}LhkxYCuqaN>QO!nWbE5T|wR-3x7(3w*<
zxjYx@#tlypWlSoq-yT6GrbhYxQoiO^nN7K$TMVt`f5BN!FcTe3;gzH)^i$*~=Kb+b
z+EtUS@Z%P)#kS#l`N9=;D?SmK!WL<YkLMSMtXQ|clzroC4Wl7J6NMA}&bk**U%Bez
zlX;^_%A4;&H$mOYqVH@%y4|7zR#&(=Rjc-`qetR3t-X)7+L&m@>#lACF$GQ34=L@w
zRQJ506dA#M*S+=)%*k~v;yi5WoT2ZNT%GpVn|U^ojM+EHFFUG%6%q8Qr1#^(3D`*f
zcjVg?>WeGM*RenF{!1}ew}r;Z7pB%SY(4gr|LD!=&0qWBCIL2#{%PR5CsgI*a5!T=
z;8M=q*xdM01oj8C8r+ku6i*wT5}mMFD0^YE?M2?c94~<M!`#J>LD4sZWX_-tr~~`A
zGOP6B?63L1m)`zkb>@Rkh+LYLbK6PKC1NFRH7heiTbe%Lo>Y2rzJ4>D<a1MWTS_(3
z+C}CKri~)4YbwtOlV9u<8uhasUd-n_Hy6J|yVFlHC)*sr8NqE7de0nQFQ7KPWW=a=
zCy*1NXG-5V&tXT>fwE%t(BBA^S```u@g#EL1`=bxoGOo{o;y9Rk*n|=4wY%qE>fKM
zOMNHUPz=)&kby?LG?%!&K}SX@2d8VwAF^wje^nfMZPahQI550&!7|5|q?@4={Y?%!
z2CwL%%k_4SHGc34xzd!RBieio<8B~!`(5{gl}Q)DghO^6ibFCs3%T&Zqy+^`Y6tZK
zZ;Jw#RfqM{md3tlPN)eQp(JbPWb2WD2%_b5JrMFxjmUsbJSi&Qu)FSK9Pr%VUHwu_
zzFL+>o}iE7UzL;xut?wdOM3{6>4H;XiGF*fY)to*cI{7U?OX56xAR*@=qbW-ognnZ
zCq>-jgIIr2sl2=DP&@RkAw#HmuC%3J%5|U93LKB;s^8evs9*ChEOWM9h~)4V4Ea)H
z5i_VJbhqrjlahPViQF>@Cq{$j7Zu?Le^7H`_ZXIl>YI4xJ?In<w^j;-dbHWhRW2+M
zL6fnltG?l%5XpucBdlBz!Zde2aczWR%o=9TyZ7<<jxY$7DWPf$ff8s0Ohwy?U%ok~
zr1s=GePX9y$-EjpLV6VbZCAD>)X3#O-Q&YVuTXe97{9jExpo3L{DHc=3nwx);Em4O
zj+bwQO8E5nj%|l+mM*Q#pEw2fcP=iI=Qp;y+YORbrIn#6VKz3^5c7q-gbw~Kklg&v
z20~7QT3#`#k`k13;Sk%h)S2Il1Hdx{r&-U?l!U2&R9M%Du(2JTw}(!sf8v1r22ug7
z=l|Z5(G=<Xtq@%1|J38|;SV<EY$2JN5TcFItPP3vMg(xk?I3TQ7wPd6EGXY&J)iRx
zH9C(!_n#-*YadZwo}Zupb$gHXtEU6MZcqREQ6%dB>u%QjsB1uE{O2$|f5;AGYErg%
z-&#c#l>?ffcJjcR%psh8)9u#p>xruqb@rE4iv1`<GA1}XX02(VnJH%$UrtWW2d~+$
zRZ4s7t&%R|pMFjZ7MP~m6kAnwyuB=iUtDkHZ2GZUx3+3vWp(*vR#8EbE2#t>(fa*n
zz_^!&vt*|8=ppti>!c^Lit`xf48*)lv30snl_Dmw2j6L08#3eH{?cT}Z%Ad&TOn_Z
zFLb@de**8vV}!G7h@eubnc$H=l_KRTjW@^HElzs1@uthT4I79nb1d$Se{@?6W!wLK
z`U_v7ah@LOZ*bL}sqpYR8`3d00o^oNuLE2oy})yAvcZ1k+lSWeUGjws7lOdocTGt7
z*jC3Uui1S&D=RC?az!s+oQIN-e#ZEtDdY}v7f&gv3)$bJ2_NiHd)*10odxKmB-5$V
zhia)b>SCs%_guRIkF?wF?nlGyGkP`k1znRub}GI1kpJW-Q_L1^#Px-8DoVUfJ>X+!
zF!<!IO(~ZGMljs^;Nv(dy+1lSnrdC`CbvPS;F>7Wl8w7f-KjD%l9G}*GcX)yumbGe
z=?XOmD>YMLV^<@tKt+_r|DW@%uOB~ietE0u>*2fbKf!2PP@CV>IJ-AftHTfWDXB7^
zjgKemgYv?u-7-~1#jUJiHm?73ihr~mu3aJTw^Y=ykm9;}046Rm(THTcFE1~DMj0wr
zSQ|9AZ&)a*=n2j(Dk>WN(U+}JTcvZjbg^@w3PSog%mq=%<M-*hh2GztjkRt4{-h&w
ze={#4Ix0%y=FOXzER2kx>x{LgrUx^hBU>3eYX>#R?Gb0)P^%sq+q8YyuiLWQp<Kdx
z<Kf*YQt1l*%e#i865E<wRGa<&2AbQW{^!@aSEny|)6?X9?ABBFsl6(=+fH5YtRZAD
zL8SBQcx||-m{`&4^gLLCkOH_wQzMx2n%e|^i>WP9JNK!+zFt#gYa#);HE6D{6$~Y9
zt+y8Un0f_0eeZRpxzKTO)3cG5J7jK;95hFLeajQT`1V1q>23OCIh=rsmcTzAROhy>
z?94yiLrY?x;<!6_7rZIysnWna+CJ=aeGnCYJjtF(--@;mnoly{o(Pyq59^-{S!;0C
zA|{#J(VPnAIeDa)o33lbjNkH{tnVk`>{W`vSR0qTCW97juSDM8SQ;#>q4(>nFvE`>
zJ60m&Rpm;O$dq;;RmdL#mwKP(H)JU+X5YBi{C>l=FYC+FC9nd&MYJ{^N$Kbz-*)bC
z6M}s(_&8HgSYj2g#gtt<@>IpQ?`aX}f}T?}8ZE(fsED?y%FcUdxkq7bdG3zq@?G9S
zv*Lm<B1|}a6cj_quimn*S>2s%2;tn@9`iiq(69LOGZ*_S&_sk}af%=;oJq0QV0H3#
zVGwnp1|EFr(0gd$YVD%L!BQbE=G2l@$o6stSU^&rr_xY~t#zp{nP|rv7g1Z1sXRD;
z^Tv(WzLcRArY7VZeyx#l=4XOGK#xIgNxRTWh^^nCX|GUSANA2tktIir!s@3(LqQ!|
z_0<nsU%7xu^s+8(kK9U{oz0z}pZ@?rKo6{e@jk6LT>5S1KB$H&x!vg(xFXxSZ7$Xc
z02tPvvF4Me6ynbmprq=QA2Qd{)>Z=>M>`8Ttm(RnO1L+`u8if;Dhgb(VbiE$W@aXo
zkyh`}7L$lmM~hh+Rp@6bhr11zem}B}mtCps-;aCToZ;xVt?*RGVC;61`?(PJO1F{n
ze`aG<_TPZnPo-yOs?>u0bvT#vGnnJTou;w&Xy2GaI0Vy9I~k3R`0LFdeO0z~{-mJ-
zQ%e35*}Z!!qgDK#Q;p23)>j+~Zq$YD?<N~n$AXseUh-#*YWZT(Z`b}-8hL)~)KdLM
zrzrY(kY1*o&%&|(JblmQ8VS1|vY?>gLs-=PYeD%Q#yzw&>Y-h=Q+AFML&eq#TErM$
zg#t<I>LQYR&BTx^5ev%<V{VZ+zo<w%a1Pw^S?D?wP9xZRj5Z=e)Ivs+#jR6%GL#ra
zdg=1K2cX9790FGD4GljG>rG#e*Sv8q^7DRg80Q0=ft{V5E{d<VDxzRMFF=>MOVzG?
zJc0u+Q@7UKRne<F_7}>k+Kr~Zw^MJAWNb4-S@_vRTS(P-%Om6Qf#jPYtgqa>&j7_^
zm!iiDAp`JPm2n@fBs@~_QNXR#tu-nr1g!2Ef}`n{!`IEwpI^AAv=i6<KEZWnxXeN0
z1q-)${(R6Z&!7^CM1!5xiG%vbeObz7RBmqW8rH589Ae}ax&XWNaw-FaqQ3a(3H3Nq
z;x<_?H=b{tmkLOP*~GK4GFD?QDI&5Y^JKa??8R}8V3COyE4z@Dsuwu?Qo$kCD5l=}
zczJmdNcQ2(nImUpr{};9ym=k&CfnYUL!8JkS{nP@C>^{~MLN?+Un*ozOimt(!c>n*
z#bmmE6v!!mJC5}^y{k)Ev?{N!R~!HkOED|5=({ex<~~*}Wz`rOls!*C^OptwoVn@Q
z#M~~-x5++^1Ql@ULC4NkV3Av>@G`mDZ3HC=`=0VretpKLzh^DtretB|uDSb2c}}yZ
zmE_`Pc8t7B19PYO*^z^FTsTuSC;6W=s@&p{^%#4DI6r>CrhRZY{0LZN-yTq}%2}!}
zj;j<|l+COs=quAs=iR}90?XN28njk`cP2g@tMTMFVIeqeG4nthun>tgt=j45r}iKB
zh5$Ily}5tQxyF^`kpY?TBiUwOi*Fy<b_L~J<K!TB=zaO8={M5&z`J9WcH*fyieDoa
zdeT8vj8?nXiA})efP^5yh@DBINIxY*6O(~^sFNp8R!ae}x|1${8enEAqCeNx4D_cv
z$;PLf8O<%(I7|py0R<DLjhYOceS4cgAaI>2*&Hy|=aq!zWdtu3mStvociv=ji(3r{
z1OD7ACrE@m2Gp_$2%BSXvtR#UpxC;m=32bwk4WK+PhlH#9pcXmJPY*X$=GLw<~U`n
zRh5f^M<Z>a4^*jQ4HoM-4Jt82eXQDjQ8!(FE6SGut}G)_V3_@NAultG{t8qNCn$Ty
z`^AiqRXlx*f&(+O&JJVJ-}+j$sluE?j+g1Oh8w*!R9xr5V!|4?5pO-nIXT8+X86AA
zUT9d!hv(-vrL`9SSWg}5t(pVnJ%+O=%hITF8T20qWKzT8SMEeGhjBnla{S?YKjQ$q
zIfl-DeJexnHt*aoOVuf07)dvBZD0JpG&opkpIK>7tGXScr$Yac9qv9@FnA9Z4Cr6-
zqiNw#e;aSW_)|dU0ee8uPy)rHeUyQAnmjwLKD0&dcXpM%62n@jy-rb_4eblJ{hQMf
ztqLk&$0`7QWtPG%8iKdX0IIlky;prPbn)Uvv-9WA-|tb{8JC)Eiw(bvQU*$Cc2++P
z;Qu|;29?_H(Z~9%O!xs~N*d++O_g2lOzzC!TG&pVF3N-@azNE&So0OzH#L5M3>KPu
z7WXS2IevP#X}B$Cg>*tV?Fn9~ccDAARUgpOpRiy6VK{!3usvs9dEepH`FiQV^=bZ-
zr%pxJxQ`7zUK+^n<{Bs)1?`GVgG~63xn~Y%;%sWmzbdTN`^0R~ew^SE>H?K!i2yU*
z{L$w?{paPWgP~fVMNSCf^Xs$WQQf!G>A5pwo=xIu3IQJBuwXhl&$AZjz($vE?^P{T
zRaLP7vv~kTY&_}D)$RAty>KQXK*FMQ8mIQ^G_A3;v@{ER&CEng?t6Xz=cNqbFBAul
zbmb)(51TPxf>*-Q_Gy<?Ag+=9Ghd=LY<>IG3tfQrSvBc30p;-f9IG5Og^SUy9e{7E
zlCdm-z<>R(Hx~G*Fh&wkx0+zh2q9ZbRpb%pOy(~C!ET#I7_}R`EkIp_VN~776{lp^
zO9p(x6EOXZeP08mrKPomTyJ4_j=e0k6ayswLGfR2FNaem>UNrejwSgKUi?oT^i%;>
z!>UD`;n%np|E&_yzpZ_zmvsq5q=#LP++x}wD(G|&z=}rxTZh>kCqdnF#$f^Fa06I%
z(@x9Ey4G9#6e7s+APJ3L9ErWw)(GI?pajhqvRvj5U}zA)i^}5PTzb2LhRS-2RZnEE
z$bl-)(<bizoMn8?s{?C&=I#A!AHZw&vgq*)gUV`g0ayXhHKT^ve<2e-c4_bh&8fqz
z>ipdolSIvje#>gifA{CZe^gNeK+WfH+lT&){n-z6spF4t9}YD0PQ!rKA~iiC#ji9U
z;oMvKG#eA5j$&yDK8%N)htWias(V5L0E0}s<BDB_QYLX@H_{yh(kt!mxQ}j{!vLdM
zx~h;-9sjRI1_&c+TlVM+5-gBPiPF-?Y`c7*L-e;RQ7Dvrg>$cRp)<&GY`nf)P@32%
zJy=NNuc}F>9tu>m$F}2v2*}S;k@y?J#Ho}69$34MfQP1(*wzW{ZB@O0FL3VUOA&xr
zliMp}<S}+Okq_w#0T;E5z(tX7pQdZN@rME7ydKKypmMDNV5X2BwH}a=CoGt--^B7?
z+!rpacpFQH@9!NEM9?<oH5L{Z`GqK<7bEX4r@~0o(QcV3#l<R;U7cgg^JBsull3$j
z-jA{`X#w?H8rVnO0nH`zh#)2+;&KxPuD#!tzX~XQ;vE`oZf0m0uL5-KD|WuX=@fw_
z3MorHdK-<Eu*J)6Ck2A8!Qlbv8;jpV4dm%(;?i?@K><wFQ+pJwYQ5o%%9B3@l2$Ga
zNXyN<zOLw=XJe~&toAKY?l=)f`66C3Uj76C=2%oz6kQsqF!!b~=A=ArE&-k9KZ>AS
zzVp~%K`JwFMA^SV6K>x*6mYn_ZB32|UfmiA)U|HX9Y4?{$ADgbEbTS(Ia?W=YAhlm
z@(-7g&L5M&?0)#kOw>-JrY|-AXFGsyvQ<}CR|Q{<TPNH6@vED!AAl<7<$rkU<vm1f
z)JeAXG?&4GmAFJAoBPj4y<9I}zRY+b41BbuI4z{>wxpzIjZd#+)1Hw%R7M*p)j>c~
zg`fw_slj%XzU;OIfMSvbA3wG??M#Lo$XwnkvaGnwg5ebalL4psl|#{Omt;IAZ8T7q
zfu$_8MxFw&CWrvy@PMaVd4f)_0(dZrs_a!}xcR5#0XvS^insyOO_iQlxKj+C8-pO)
zVtBWR;=&k{YG;EntX)H}pxx5DLLfzI4CUMI$|D*ckCekZoHLRBy0LspPJ6(4GW1iW
zSIU9=47354vVRO1qdQw8cJ+s_igk6Yt)$Tix_m4B=`w6FZ4wNbcvbCHsETt>+9Hb<
zR2JvwleCEd|9y<IXmX1RW2wO5)qgl9SuSxd(l=p1g0uzR=J92|rps7XvLWO^@}j4X
zoI7Bz@Zm~?ar6aIvpbrF=TMJ42k^e+@-MD<VD!T0+vBeb!t|B4OzMCia4-~^2lyD0
z3gJa=_DS}pNKw9+Y{&wl$&2MxsHV<!B<MFWR_mf6WI)7nTBzWyC8_ISCKOQ09!c1l
znMb4t!$4e_*`t65&768(gyRQJYf=OTnBI5U+zU(_!A=jSlZD&PJ_kvNy)g<ficF4m
z40l)!SVxE?&by}nH*cOCpVQccp+eB09!!>`Xaq6IqI1`~zTJkMNd=IBs3`6M=2($)
z8ThCMie8z@lAsk~8(rIFsW(UHdc)R<?i0B=oGKW9Wx=Mo{j{*nK8=IXhL9c1sf%K=
zLGztS>F2sz<)%g^eS6rab>|zQM-Tr_)jY|zYzkhp%o3H`Kugc<vA_(uuIT56e7Y!Z
zC0k8=LIg4dj;aL4tCI10uQz<(SpS!(+P!qC4o*lG+-~2BRi^(C%&)eRTP|%i(=r0x
z>yY`Z<INSh4GM6|8zAT5-2i%zbW>cMgT)n0LGmjekKI4R_Fr%+?`pv43#p!Gd^&x$
zmq)f(l?^lM%}_cBSme8pWXb~nWey{<SodSUBCctl?vWkF*y_{Zm#dE2n|{G5uW1B)
z=YFb(oZaq3#>k{l?YaNbTsNi4k;P~19G5G%K{SM^3#DyDfWc-H)IJzE0tOWZ<ocjy
zUu|Mz!gxEu4G9!6%V1dB*-iFDr7LVvi)s-~oi%H5SWOUJ)X<By;}$oMb6j>y#y*iv
zd-7hhhZecw&XPIbo^yv3U6yiLj>B$IND9>ghn^~pU||WXfk0Lq33-$S)~e|Yzw&s%
zx8>K@V=R7t<?(#{CF%l#1P3NY7ean|<jjqY)a^AOXDR>#IrakEn9QQ0V*u(iYzz#h
zDQCBUaTTux^+*6te&7+{pC%w!>K*ul^nebu4jX<L(VeCezTe^S^^M%dutTh^nURrE
z9!rv^g>H1HwDpF6xnM391gIOZZ|=n%5G|+z`X6?`zw`m{a$MJ4Vc?c%QxC*d2S~Bn
zk`2D(Bb<uwK}q|k$@{rffLB@}Iy(mi1^tNE;JcLQAy?tlEzgYL4-0Gn6Rh(!E(Jig
z1f2M)CCc~fCFd^fnk$lf9=&d!2{tGGt#auJ*N$vZGo*k1`R6TQ>?vn5F~^TnVYyV?
zj`~0QFj|SIm<8M1Fb_luhufbG0R4-Atf*OQ(SISI=Q)9w+UpR`ydnw%c1L&ES!OYm
z1rON(9z1|nV+=QCtqzx6_XMl!hpSt~dw_}6Dz|$BA<bxj=w>Q6OmV9087Q^aA9^qH
z2e5p2V6eN-EJ+1#{=hwASN!R+KHV~<MGTlilH39IJs!1K`R{uH5Vj%pU>7DJ<j-9C
zX|po!pk8Hc!<kz<n#4UCRUa{0Ngh6X{V!kJaz|MAFqODGQbEZCF%=Uum9I%CA2@lf
z2Q2TVAuJfQspk(8ZVCf@bN=E^y|nL-Zvldcg)R(}AJCeyAi3*yZ>UsXJ($2qUtPc&
zS`abU9-sY+lYbHkl-NU<73(V3V-+{*LC!Z52)hip>40z_*|5ZlB>9wryW+5{)Ts+>
z_e9I&0(G$$HwN}p)C?#^P5gW!U=kG&?zQQp%U4-~&HV@r<tB(&q$nW7NC(2|CCBAE
zyUKmKUb(v?tRBn%v^8YSc>-i5|A1f@IORmE#{Z$%d8>^%VE*9K&CieksU{)YhI6ba
zSdolP&>I7Aq6`##mVHy03az6?WLenGk)rU>^9hK$N=|R2g#p_quAjpPGKd5r-BBD%
zY)k>C6VV8`jRWMG2c%Lr0IP!;K?@i&V3hc)K;`A4?f?+OL~eXf>y_hw8c+#bN4igs
z+*$_sR)_QmDCbZ7-Wm}O!Va7b-g~~Y6?if!x$`I0?|m>(2Ny~P{Id`vKsd}M`%A+!
zwpSL#SP_R$uM%kqoTY>KyZ|Qp4cM!&BFMy(Ru20dR2y(rO^-<>6CAA(oJ}7-efl)W
ziV;9QGUT-ntn<<!D5@3cKU<)Nm2lwcZ5C=@T?3f@9!y8_A?17xbu?%(y@nnoTC$4(
zAoCV2VH=zX0nxY1v;IAh#H9`8XrmVnm}}v&fj>S(?9)LkwIbd7lG|?gN8DAl#@GYJ
z*K|57b>Rl-#efqq)w~)pSAy~;IJ1gDZrQ7ssf;YGr2Iw>y8=93Z_~j(!<n@#v7haY
z&jX*u3Q!!3x)m+}Myjrfv<K;R6z^-{3#y*kzA?{C`h#neZE8GhvtOR#&R|uA+z=8V
z&yEa&=$Mxon$y{o8JP5T?Wkic+9w!+Kz#c6@uMdQSf)ToJ9P_ZaKpr_l|yFS2Lyxe
znsMyE+BEb%Xwwpp3H&LL5^8U3Y;?K~7Hs*j46$wC_m{CO&r>cyAOm5Yd($}gG-bGK
zRs-1hJ;8I4f3vh!yyoBh(rf|*4?H>796|=ZTlUtVBFhIzgJ`8_5U7kxjFlRD*v9!t
zj!V!v25{AgA4mXr+N?}xqV!>F5-4;ys}jL5T;=_jWf>@KiAzm@=%SrKKMNW*g#!~7
zvIuggx=qgT-PWm8X?MJA5_R-uUfM<!GXQ{sbDK&hUm@^hkAMW`oB*$1!v~xwKljCp
z`<G9?yvE8ske|<L)Nh0Q^B@Q$Wfkc}c0+p{OJ!~|cc!MoIt0;*M3%8&4W+bnoz#=A
z5H1UZ<#!f3YoN{p3rI)W3`sv|ek!@pn;Gs0)Ri3$_!X;=vGl;1$b((*+Bot^g|pdl
zi|Bdh5Ur63q1xYnS$|C_me&Ii7O(+yFBBiLvwE9C!ZnG297F8NnKf1j82}_g7!BM9
z*rx)OvB%#;8{Ph!3E`PK(Ov?Q?3Neo2Y&)SDU|p${k-j0nhv7r@UGro$rCT{#e>Xr
z-y86W#2<Gae@h^sC7b2|_%on}eE*4wB3km|{Ngp|3}DZ;PMl!-c-gA*vDX+lOCC4~
zTkrO(5pLAfFc44G`GLiX5VQHTP6Qhg#HY)XL;$XBjFsAC<m#qM*wy*3xYw4%LO_v|
zm%c=E?=%9z?^y?sh<g#Q+&qbeh6xMQ`u37Lp7c!JeiGUmLHl6vxW<gU9&-`=TMGfv
zzhe2AMG#vM!U^x{GJrmnu>zUHRi)s~cP(%222Jhk_%4G9)}nj?CM#4ccUA)`uSvv$
z0JGflkfn)b6IYy#{Nkpg?Bd!b*~VwfzwUjNKLSLd;=ejhYX!H44whL^x0&EST>9_@
ztGL0?w;$y$MLamq&Ak|~GP+d`a)L^$rZA*b$LZyb4T7W$0szQcR!{^1TXF?>`5w>h
zP69y<NLkl9pv8|s$RMgYxCuMQrfizCb~F&(Bd2t!hi1y&CSwrvO<isEC1fzp#MsEf
zs200|3QMTe*fvz-<^Z3Us*M6Sf>^hap7(D)k*%lhGuHV1K%^L!+8z9*ZZ<|i9vJ_X
zgAkiaATkb8fJadAwiJG#Z(`cW#kSk_^DSGSx?0NPmQ>_bSQGk=77>jSaXgIYffUzF
z)>vn9!|=Am?~kkxflr`=)aE!G1jtSFcMdU_YM=p1K$xyT1<ehxta6V<l{O|OzLs!&
zpX;~xEu2T#&!nvbhF8j@;Mqd53bxbPniXO^-*3D>=INg<LOuaw<iz<GV?Utm%r1D2
zXrBUi7g>h|7><zDOD7FYq7Q0caB+I|B22|{E%Hvn9bKYH*~EYTicPb#*YDW&xd3gv
z?81Q`Y8Abij9qiYJHB>L;z5xUYLc)A33u)ZHH*TWwXMVvfkL8b4@Ke6NB(pAaNPy)
zF~_@5amVL1+Z1U`%fMcHg0HcSa`EA!>;GOs;F)36ad@WYZJgJwptrEw|NXSz-E)~Y
zE+@KYIN7~@v|;tm>ECg)J%v<@Tu$V8^yH2Lj>xw0?>}cTczNvXlfUbR?-orp2F!l(
zz)cam{=KDo_kzY#8LHEly$QMQdik$=N($YekpFYQP7jqZ7cOGo=}W;fzs~su2~_=i
zkC#oh;3^^_>)A-Jpx-)1BLtR-AngaZ9=Fi=_f%7Z8>9=v+MDs4s^iY0f=ZHzMywwy
zEUD7is1Zv?rD!c(1^<A>eU_MUgIwHY`rrQ?^E-tT)p_3iWol=k4e_a)`F}p&4H`=-
z&NmNx?tiuS-ce0;U%O~%A_AiDDj-diVxg$?uA(3!B2psKML>EDB@hU&SWpBN=}kl_
z2~B!QAYzHss1Q1#DS<%fArMG%H{t!-8267e#vR{1zweBb!GMIl_F8k#HP@WaeCFOO
zTf7UY*PD!gwG35U*c%Am@l5GhP(kL6)+S>Uk^*r5CEblSPdEGJWzs3D2yFU7am-B4
z{6`J{$Obxor)J`j@MqaExzoyUR2#4Zf$|$wS@;fc9BzML^=>0#@O1U4P_VrKF!E`G
zfg=}FDwEzfu@NKQv-Z1rOVTm?<a8FyRTRHluufrTa|}O!``6fkLhCm4>+&}>C*Zp}
zgkR5JD;Be+z71_GH~Qwg<CCANzjMDF3EV+&@6bdU6nbX3_8UqewOR3Pl!yZGG(RXZ
zJK$1m+at9ghZhN*XHR{H01tXz6lX_S;}kOVePn63b~l*<UK?JKy%$;UfM1oy(*LzS
zzR6q|i^zWO;jl!<-FJWeQtyypo7a`spf<Kk_k}bh_fG_ADm^{%&X~(qSAqN1q{Z^_
z2I*qrr$^H*@OOW&zMVL1@fVEe#I^lAoPzsh;yAxwf1S}4#3=5_c$XpS1zjYOnz!lE
zXp%J;4;yP`bcb|@Q0vQE`~Xqlud2A0rgHQH^zwCg#k<85KG2384zp0*{RIDXho7~z
z(7D?-%jIRf2)!q^(~^d&tl3G(gNLms6)&nu#9W0;yY!D_C`z$T^7&bLlo9P7Rph1y
zC=LYj(Pbxm-5$tT8B6O2w#@*pe{z4g@X~0;3jM$Qqd;Z)i6W9`w}ta`;H%oN&2_ZI
zx$prHB~kJ%OOKUo`@;vm&F?F%^}yWSZHIX}^o})#^Lx(S2?T*o%I-cp4+4ptW@D{9
z%r&09hir|m@9F&9ZFbhugTE5o+X*S*&E7Uh|EgV-_;&iiEgB#ce*U$`n2g@-^Qgvv
z`;@1oK{t)6Z;VFTW>pq2Rc2FPNRz(hdAKlu(=NXodQ$95AfDO#+hef%o;jtC)Z6LD
z+5fP6ohuH%orj<1E{~{)omXtLM1mEX<7LBRrZ<7rgfUuvj;AW`{=<yo(CK&Y;bsZR
z7Wm7<KtQ{yvfz}9m`>ej7_=1vzf1M3dPaT6=A}67X&q*;lHQ{|neIld3eX@Edb5<b
zeax7nK#!T4Wu&;~yrEb1`Vm8Dh0$)XQ?DA);a2pb$S+T8Y+l4bViWmv=c3zWs6!YG
z+`5EXJ@z-#6c~o#0u^gJo5_h9;J5OhY$5m5lQTTV1BZMSMvKBmM{Q%adfe)P+0XhV
zA+`NtjK-ikgo^QoQMP;LGuNWshkSjm)yJ%#Y$AV_L@lTvU8E)1k4ENg3w8Q&^rxI(
zc*wGBO!WT$;r8+0Yv=?Dd6v}R)mbIRT4()IY)ivUW|TpaEq)qdxuN3WO?ilyM~ETk
z5f1n)<dZTpz!-sP7xA$R<;eP8jZ9l2ZZU1>t07VMDM@$^n=Y+)(BJDD+xTRJ9`79M
zCL<C4v%s>p9EoYLqnP3~%&|--Cy~YSbv^uZZW1f%iJWI!nvww1JG!QmtPO7K70{N~
z8^_C9YG|=@(=nxs{r8(6m*E|d^*w#zF3DucT@m1BH!#iN<G)&3iNQ#fEY22Yb(1lr
z0&jvBbDxQVB`=5J)<Z3l$)W^3OKKJ?OscB^!@xSbHs|m?8CVSs+jcuh#T-3JwXt~k
zdb7t&c_~X8pUZ$lYhLQw)Z5mIUVMgK(!N$Uw6+w9v1MI)VWsa7zYlv@wy0BU-n2$p
zc+}@hUfn(D&j=mukR-pVs_>^8oIRO@Jk^Ve@E41r__Ihm<>psv8+9bN;2zjLN*vcl
zmE_ou`vwePDINyF4-ej^-^lXMA1y)@Sq~^RA3kahT$u*g*c@wzK%Y(YAHq$i1aD}B
zQ77xw>#-U`9O2i(jx|VPjMlsH)2U-$1a(oguU=U3U?;1bk3anSiv++-*pL|rlz^GT
zuK^8S?|4##JN^FtDzvObc!JnA!`7FS+XwD^Ig&)x@Q4Xk*4*iz+4xNgLzHp!L9bH=
zOSRe4vHb|+?C2nakopnj<}|gH9Oh<hD0!^;gK`wd`o%gMdPSOEgQa;Re(IQ=JYy=x
z>6bsF{n4LDO%Oc7w`@4NZ6$}&CFK~Z>^=3`Ai{9KaXEigZ@O?&2p!J+)dHtl;FroY
z8T@A@V}dDJ+{Kjij1?V$*4oCgTWHAJyGfY@sRt<+KxaoM(+g-#z3SK=b-Q{W&jErV
zQ*h<Sc3yvuf6M~A_FX5X&1JPtKQ@r_o5aBubn;?wg|dDi$L8<xov|uA=NFCNho|U6
zU7KKJWRI?XHLYxJbD)sgI?A99==nk!ij1h@eY>^~4-^EHGlDcNns&|fF$=JOxKKWk
z;^dHlc@E_4p2lKmG$o~XBp8uogEgPGcc7CqLjX7e0+rg;J-CC?!xtc_HOja0&>~%n
za>73vKSFO)jPb9`%9q2Bj}QHx@?{y1oIBUjaJUnMN*ddaU`U$T5N*(f51kH2dL+Zb
z$1eoz?oA28?6>{Y9I9_M)~a371c8`QGU#2A5tLz4B;tt;)`kd<aYBD=zwWf#7R0tB
zXs?Hs==vZL^?VPF*s+2;C?VxvJMjJYI=25+5U>}12XBw%yATd(M#GPRFgrK13F^t_
z);g(UoWS&Qu_>=@ejtf*4Cn?=KtUMcCUZ)U*LIbdt!tW97%~)Cut0vI3bfL!r#+|z
zBB#8X?bpa|P%Q}lu-UklZe#3ER+pEkU2yFG@*%G&A062o3<*k30T4}PK2LZC7Fkp;
zjd}-lkDg$MtF4(i#S}#Yg|(&y_5LpoEj07y)oKmJW+1b>qoP#Bn&N*|kkeOZn9VG=
z&JI4c*o+xwnWtDs{^MF^$#Bb4Bi3h4)w&0)HzFm54xb`_Uv6T3ns{joJVXk-{ueH-
z*7p)5sl4T#cC&VYwtLT7ZuQ$}RwwG&`5XixL|%DrOUD}59$*YUc40yftzDrVfyrbw
z635(%T$Z#zH^L?tBk%)OMK*xv&$*jpjSin_6t=0)Ah4RH_ugV#GDJk0V}-#~B*D?a
zmYk6h=0?dUUBz=0;?VD*&Xl28C@X3X{`L4kc-}dcXro%!#9#tmX0#0IYO@DF#a~N<
zmkCo6+!^(5U#G#i^_952{zriRMOCJ~!Qvx2DvqMdj@l~GeHYQJgFXigxlqmSz}|%7
z%|Y%_$Rk*HWz5DzEOhA9&C(v9Ad4oUv{9D2Di87>S$0%cA=FI`a;Z$)RcO}1+@rcK
zq7#NvNp{F2D==8fXO$X8S!ew0^agAQup)mz+HoBfeZQ|C>$?+{TBinwRHk`{(-RQ{
zT{OMp(u{AJqZ8ee@&O2cHk3kAnAqYP%j^;cZ(W*Pc!Y1c|MjCrcY+h4C8cQu>6ELr
z@hui=>n~}g7X*!DUYbFd(o&D$U~jekzXqF^<{I1y+Z`A4K=H%`z3B*+Q2>+vBWkws
zn?6sn#1HgzMdB}_OEs!T&g^_<n;FfAE_O|Wt+6)L(iW7-DMm-ev~roBigOaHll{Q;
zwzNV!*Fy)6U^i@tszb(gaxQ<g@a-zWx%RNAw~qZ;6&a#VL2#{cEtP0jN)7382GOrH
z*Bb3N)95euUT3!(=Ndo<{(gePxxF&k_H#mJb$**$B*a{BWafhD_7S{4Umq44GSjvB
zjiXD;!+pn<yM*$0#!8GMgq2TY9#{JE8}zH;*9z;&_;NX9q(&22Wm=KU#6^u~tUTf_
zf&A<W|HCzZbZ&tZxQpu_7E+D*Z}Ijw3n8Sk3I1~aNJcaeq0c=n!wXo|JB6O~Uf{q>
zDL3-~!L!s2qccAv3mbLYyarjC+f+B(IPN$%o3ZkV;TMWaFxQ_bokTa#5@WpyunB0T
zq~1r`BR7qYoaV@zwxL2GzNvhCg(86Qx3HutHw`w>@>jki%M8YiGHk_Uqw8|(i14z0
z740FtYb%X3*}L)zpUBad>A=6!eyJ%7XKqDQxBV2@&{HBgc;A}SCj@H^!=IL4uPw@{
zS#Uh+H;{`)@9ZRjC0Z98K_Xp&*2a0!cZ>8FqydO;X1`I`>N!9e7+A+01XU7%snRcp
zO-|=Ou6Yu?D1vH%_Jr&_Bk|)YXJ>Z&w%G}hHq2=FU61YrrhD-|;_@ewEC*h@#01kE
z{1#fdsJHw^2ujdftO3xyA2wI79>@WG&edzvL&vrPlYnHvd#a<JxuytYf|yf$kXLF4
z7xIv%h0~UZ`i)1(5k^D%qggLOcK;#s97PzT0@~__kz_^s!*>PPmK2d;RE65-Ux(~q
zy<OAXszZ*Gt!lR2cavdZOHK}sdZn~vQcXs%pB>#LSy9qUa9_or1FWFpEO9p!qZ1kU
z@x@LgddWNJ;|Du&J9JeOLc5jLC^tzq&5T2j_scAxKho?WSGVgb8XBS3#54{88}xxd
zGpc=(DCEZvG(rY;$=>Fq_it)eDGFu?Y3o|^F!$dMUVnzoD{je$+3D{#2W1U<u@mZR
z{p}vvb?HYNC;Rdoyl)D*k^DTqJD19hoOSad*yP;RtA$>IWNG1=i=mDbVSM@5n!WYf
z4V?UB{Sn(zDR;%YnN}Mn^GuIefrOdT`;87#IUa^+20Ph|c|muQ%`T7eBB@q+4%drz
zhs8A2btxVze^50{r6M%ywl?03*}=l0EEKJIAITFAUgWi_tsd64TywTlRn=pBo!LDN
z6mSSQMy>x9Y7Wfq7}B40&F~2R+N+;Y!n~~0osR>)4M_R+4rxhzTwuuxx+C##8U1eS
z>qX!&<l-F(*nT3t|K9MPn+<<_Fub*eMj>_DM6~<^Zf+X-{ahX;m6hp_vWS6+LwvP=
zQ@cn+cS$D;^m|%8smW{U;@)<x@REFXLJ?qXwa`1Y!Eg5h)B^UFovLn-`wpFF_fZlM
z=%`;YoT{WUEx>OjwEG$UP~^-6+Q%Ig`Sza(@&$0+PCW@pV#RX14M5!ItuWh90D9v;
zpFyuDg%wUSttC`$Ij~wCbS{S1leiHE6@FlPB&34Po28G+wz^o-&Pq-H$6l<5^%Ali
zL9m7S^=OZ4-vYL@0A6AQU^rJK8NiFbNv}9ye60Vv^EK{nNe8^V9~2)!VFmt8p}?YB
z6e->%uRx&Ss=YS<FD!{6`BU?+pLnp92iU_3+Z90wKHA5EvzW&!A(+U^lwN!<_&;fR
zAF2pUw3ZjRv!@dd5ibG4NrXnd@~B<~EtAyeMeRaaBC8R?I9+NRNxfHWPk>`*CSWWl
zHbsiYk08$?^;Fi%OZBbL#Zb(8W15vfslLuF7Lx<YY6GrQ$o(6xIJ7IUr#UmO+1kHr
zZ^^+8FZ@10utQBBU#lw(-yvn_=N{VYU+m0;o~wHl`I&2^$G5W_1XGW1Nymy=>?PdH
zr5GMI&=tP)%oW^|;9om6xWF|isr#RYb5oi2J)7uoPNjwN%yq=$8<ww+6;?5Yl@}5m
z%BVIT=2)yXxLZ8Zj>6x&LPsXy#C0Owb;UTVTXa7_FMUQy2TZLqLOJ^GZABOCQYd#^
z!Qdn$p>@G%SHRs!YXKvM?8w5RG24YC+1`~-WWAM!sx5lEQ)P{yc}tmZX@QgoV9V$U
zr~+0%sX11*0Y-VsqPsBK=k8-7pI0CWDr=hth&4o{dZWll3ZTad#Le6cDk2u@5{^Se
z*SXj%w-nQ2No{OiA8%%Fzi`^(0^b^a8ohxsrO}@o)Gny+3d5)X%%7@Zn_&mpi=9?P
z8+o-MZ)*0D;M`H7{}_f=RZshUv9?^Q_~88axq9s&OHLHlcf4ug=<fOYIADUhVJ;7J
z=63^T_@!igmOMBT(OMFX!a1$%DNY=?WMZHh1vTdzS&MA%xV3vG$i_vHgJ7$nJU7ka
z7JWnv?Nz<^+aW6)fPl68a;;i`Q+x2wGkwOF>;BZSTAfqs9DFxfOtQf9BDWPMr&;Fi
zv)}v3vR}!fqh1*_C|Oa|hL)yAVy%2<!#ga)CF6M!DjUH&Z6qRc0G#I-uxDOk9VgfU
zi>*N9I>1KQW>9ZwpGmH~o13iRv)W#=EzRMDkVLS2g=Xkg2&rp2?cio0%OR+LIC*ew
zXY*GefGGFABY<qCl)hn(cf;e>w<Z^*tOXtjG6+%WQY;m~MUeoot(OxvjWmM%e&#A{
zt?XA-u?Ru>v)~u}p{*HayM^R<Hh07U?FDU~2*_ex?!<FDGfd=0*X9_WSxm4ei@ZO{
zl5HlaA#%B;nRcx<7|senAWcrd%lc=FGH*frAb}JPe7vD5O9dF=`b;=g9se0%N_4~0
zfctmx_&jR?M>kgT37V<NJQNB}4xmorOYqf5bDTI+8LxxDS>Y;f8g#K@BWN(`vx8ft
z8|4|PhQx;Vc2CT)qThhnQZ~G{U7{6O0=e_mzG%xOIpD*r<*mknxG=K`u1IH&^+vD`
zm;O4j(T*;sp-F!DA%OfC1A_e}Ac-BoYvC<;XIZo8Y-qRs=!gCtJ*0LWZHAO{HZiYP
z<~KT@M&_cjlu?<lpgn>9nn-$q2U~}gM!##nK0c(MTVwPOK;E^2o~9a_6uuolpvn`?
znkdaHBdMDo0fID-aI;*p{>z@Wj66iohEs_M(f});1A<$6Y1&@&fE&vEf2Wgc0Xit)
z*0`N-PGXFA#tW7X=9A!Iut-QPO#A3w8jy!Q%9?%9NjENlkPj6h_Uv0O0!P}2Gy7cn
zSP{_ZCcydt4{)gSKAEnf1A8OGS*a1`+P`z)r4tT18sI$LFTsntDvT>m4SU|bGM)$E
z+g0%7OrPH6H9RuYpm=Pkg)FhC8s#0VQwM$Uxpb59dJavNg(ED1mDC)s77C-_@QZF5
z>{gI_l(*^wR5=|)jMpk!uJlpl#@2JN`okm};w~Ch=ia5vJSnTBCrGD~=wccUf3?$x
zbchb6jByO01~3$OAk+?$#KNED(XIfdwMN%zdkmQ=d@=_s+lLDI90)4|+@V~mvp*zF
zZs0x}{LwDa@&a#(97hm-$PDgWqX^+U5e}W+zJ4*ca;$tM-u4ff*{nqS!0%!<$MQ)o
zMY(+&C)F8KjnB(lKR&N$Eh&ugb9QJj#B(eKk0cuSJ)NH__fLx^J=PDH#Q$MR_xH?M
zk0k09PUCi}0LEIboIdf0+%ox1(JVUI62psW1F9fBt=1k^2G;c1b;dTrzof_Ep3_?R
z+PZoi*a}x#E?O*E$+pw;5J&n#7Gs+J!oen{=?f8Q3eEh^2GLvcQa{r2B37$L?lg=?
z(v6`VyiB(t-%1{d;3Az+9FyAE>E~*OqBa`*q)0V}5BY*B<M}=oomp#cq<xf&yyY+`
zvkY@eRuoUXdyhrpVD|Hbr%iL<$FfR)mqA05%{HZKN+0i95`5+GvJ!5Q<dIc61@lj)
zX8;8OGHFnDgSFlh;^1Lh`gg}Fpx0}Qptpf#`ZOw<b=t#2$IAsG5l$70chCje`B2kZ
zNQN0}k<4cSrnz;Wg2#txG#+P#X$+e$z~)B9qVZDJ{^gRDzgY_h4gm<(Xjq-e_q|Nh
z>E9Cfe+}a1UsMXOkt#9gzgo&^laC_|Ck)J%lBC}5Mo+PkRFW(nsI}aG0ec5^tPLJ|
z0h-T)r$y{IQ^*_xJHKM*f$6DS$+o5g1)n>w2f)nA1vxmy9H^A!-bI%WYhNsrw@xbQ
zk@%;(4Mf4sMl+A7@i0YzoegZ4YHbly+PY%KTmU&G0R7sJ{m%I;t$QEZ>hTr|2;dW7
zm(*xoq&v&DYn=9s)YfL8mX`kfc`3^*{?*H5{~FWHVhasJ7rHisP3KvG>W(&0+~^-e
zj+d5~ZrCs_=yxE$r285WP0@SVk~&b@7>@9x#FDm=mW8;nW~e9RDkaDCpTfs!;AnUh
zC74^Q1r0T$*llI+E?-cvpqvuH0*~~Nbh@io)qaMcV`W~ducEgB!+WnquqJHg_%(Z!
zam`ZO1F-7Q6RLk^TvM8LtJ7Esv^S)uUc<I~KA071#rx{qG%9&^(lS;o5%U`=#BZc5
zgi|qqf{bgCv|KOTJF)Cu9)2NhDYc8N5Othw>F#Dn#>%+FeFA}`g$LN|``hJS#uTR_
zZ0ei`f+%3WR?fkCxEyX~48$ytu7rvlSH>FB&f46+N`5JkRHCTy8;zp*?2@6z8UPvE
z3y`6}%h__b0I_J8-C9q3MfxHKBwim(L}&}C!mBMoyVXF1hkE0n_-@kx5&Q4nD@u8y
z{&{QJXrP+Znynx0PWi<a$x^#Iz<W=@oZX|Qq_gXbX#J$6qNJD_T6<K_?#b}eE|XK}
zNT5b-s2c``+@$2rO$)1a={M{i#Oymh;eZMQn6K(*YhhMS4i1_(SfmifNE$f6Ocyl>
zN>S4X!`vwGpZ7A@!BcgL&9P<^tEA?_>6|AP#7t5PKE_}nku@0qB|r(0$N@g9`Cc=n
zI#w`u-s9roAOD9`q5t<TuU!ar?ts&6y*hw|Zx~;X-u@4Jxsa4s*5W#mNfmF9+*P-a
zHoN1@$}f^DzMstt=1Vz(=i=zwwF$VH*=|+Y^`EM;2EP?6pH){Bwq-4Z|8s5``0tpk
z-MIBu5&si^9^da31~G(K)`rEy_7FohJdEsHvgo9T02Ug7J0sGMLc}|Pmk=8Ys69GW
zl@sMXpM?ORdUh}aU09!2s&7lbM)9y6Vqu5-0)*PC4*+mc)(L2cbbx$akB+%n;Rr^n
z=V|QD>G4aGcOyJ0?=!GzU|dNHO1r$BI2lK(nWG=>B`(?ORkxGI?4pb*yu3>yyY25#
zIZ@BUo{)?^BwLFC@90$8gVY}o_G_#RqwR1boHBcuD;d)`#9~!?=<X%JKOO@7PE3v{
z(~C0YMV0O!v_zLezjg&1gs1Oa<4Jj7=^Nt`oPyG89Yg;?-f}gpO0Sc?O3ThUZ-)qY
z)ANllq^(^(x1@J_<lrrDGZe`%jWV3%_;Ht`93Z6VJnCAC^=DA)_y#+nkUxo8U<hH!
zAtWLOGUu^x(VadNEJD=Z@gE=PH(NeI>pJ6P7!%r_Lhn5?z&F}Wt8vAV98HoKj8@<6
zx);n7v;{RCpaUo7=MQ64F=o&NP}{}Xqg}0uu<c%EenHacrneMurw@cF;IJLb3#F>$
z8U$znUI+|4Z7EO2ayxAyB?9{_IKrwK3oR?(taHNX#!3X$ihK!h>7vII0p_rOJ;kO%
zq9KdoflI{G4Peu5Y5utbKT`4>@e#tzMenBHkeKs8pSau{<aYD}qBYn*bKpl0E-G|L
zvGN-*4fWO9q1uGuNw?$G29VJZ5y(OOLu4eM{o3Q*`%kvic<$SXbtLp{J<+5tN&%vd
z&n69WJ-M)i$Z2l!B9?R2RWFK@yk}#D9a`rc4c8bFu*%^`a(8pRedJmpO{b~2eE=7c
z?KHOaF3G7L6WaeF!pTqyv0+bb%u3pv_?kuX9{PjF2lwc;HVt5v(9yBvQq#4T$NKi<
zVOVdXuZAOZ=)|_IfBD>+a!AxUB3NK-W$p#jeenR$NU0pS^K)yaKz+!2_8ZA{w-abr
z56;orp|&BhKMxowuef}?*?S-`Ye6j}nDR=CnCp}bsz%PxSL>y_wvW+5D0Aq@jqIv+
zN5f_$Z`v5Ax9hYr#I{AlYW#x4cs+E<rLW0@!kF8vKw!m<$_xXqP~6PeNzx0x47ktG
z;%Eyzx_UDp*<WrZFa+|AJ<>L*yi7?iZY!)5c-C5Z9)A^&GF3?|U2MWQ_7}_}lcd^q
zdXdRT`#PbNk25hR1MDF6dv_D;<X^&j;>(10kF3Zs`)5AZwtGKNfjOZH+L`z@?GK0P
z8~BS#zN>06l7=xAy8G%m&DR(Q2FtQ`oN6-c2|J$TRJn@$?i$d1>Vzj@;D?D>i~R77
z^5Pj7@qsDjgIP;GL19BRg1@`@>EfoGL6)yvp69AI`@UtmS<3@*83T=HK50hN1~TrN
zOYRj}KnG`M<yv!tP0wxTk`@e01Kla*8OL;xuKN~%iYagpSAO?8@<Hc%Eq=sCH!P6y
z1g|qvZ$8>>7OhBpPYT6zAg~%+kQ`g0mA|ch^X?g-E@((C5{3)_2af<O&Rq=_&3Q4$
zo^F-QYbSoavbh>+o6Kv^YHJ0Q<x|OK8+h0Q2u=?Cvehz~4)ym6!V`Fryoi`g!jk<S
z+0APGKmFHo%y2XHfeC{4V|qNer|aCR$fduoaB^1Y9^pKEHSo)R;Jx6h;+OVU8)d-V
zl-d*T9IwWATsS8EQ|$aHK`H0smv0?DECohMC-~pG&(3CH{9Cpo4y)TkcMYo`jD>_*
zLzYO0az=DNNe$97R7)*)0)v@Q+@iy48I%9?gYU4%OT0Yh#kI^iaT>#h`Gk@DIUcqz
zI-|P0hy$E7m{iZPBo#Pb^&!DxM7L5<^Jutw<=M)=Ho2Bz6SpS>C#VHsk@q^D3Siim
z?I%89s^Jds+PL6_3ll13dGkI82agUuIh0kz7Ficv&)L9rhs&PRo=x{wCF4)rrZ~TN
zA8iXdVTx(Q_)be+Z0|@gw<Z30{~^(0h<N`<hi2i2xcOB!Ol(<Gm~=L{RTkCLa=qau
zQ)cMZ8`odBEjdgKds1R_y-=ll7qrvLD1pJJS#(jVd|xj3?T(Dulz8SzRDUAdL9SfR
zQVu`P7M>{4&4bGmvrjA#edoRI-gMZ|>Wf1)b&04+7d>7b&nnWZcpP-E?@jjI*T={r
z&gZ9BHrXk9dd9Gak`*G`4?13H8-XGZ3&xc~H9!>~2+U8`Mp4IQPS(5kHA{xCgpVnY
z1^$lVFXeJ{e7l%}p^HLV@}PMJZeNQ^*QySbxLVC<*`{1boXcc~L_b+(LzT<Xv-9vp
z1oF4iY9F^RvngC8d(M`eg$KXRZi^2;KNp^2O|_nuFe<r?E%wxcWDsvzu9B*D<vZ2^
z^Y^>#$Uo=W_kLH{vYQ+zyF{4kpKB5Y@`8e0Cq8Z=Ik6V07YOSD-z_|LHlGIyyt{Js
zHDzPEOpByfdJ#sn9KT;vx~Y0v)J&qF>Yn3=3yCG)x!+%%kaV7p!@l_?lebo61kwG=
zSHlyo;h*3Rf!EJ!tyi%_)ZO43<_VdpmT8cKYNsodP8ykYl;oqRGljqLFZFjn$d>#}
zWN+a@Jz2JX;}B~MGI+nkyP@(<UFl58i@$DTPeu2l^UihN6Kex^&cM5QoOqtiJ8?>?
zF!JA=fJCWtExy>Gb1h$X=Di$s^e!dmQdm@|1oPJQK-B>0$%l;SIAWk^4l$BTI`FO`
zb!9>AeUIXtq~?|ja`8hMw0?S0Wj4_y@=p7k!&1c?!>M;kA}L4K&ZGq1$dkACILH+$
zlWjnzsY^$}cGh!gB$}go2{Gz)j_th|p3+1TVjJWydj1)AI8_ljEp)qItEQ@GCkGQ>
zMjL_nA6VFz%@?IQdH#dVpIXSVAX3#-?|YOsWLFo4T1(w#9Y|?dLgpJw(_c4e`hT1%
z4a8~#olSh-c)k%Sd%N8ovLx-6#;$SI&FMmrIr2P7>#vyO46e$dmsKmwQ!#-xe*NEO
zLSkTxC~3EG$&~HG(zf%&n&Q!l{q18lX9V+H<N|$>*AXHq)=m;{0&k$JqxYdDi#|21
zc*Z!Ra?b^vGvh!-9ErEsiB?~rx0pQp;vwoXbEkRXOdH0sHziOab0b^ZMn=E-4H&!n
z?SW0O*QpJH?(+z>guGT&t)kTTMyI#`rhhMH=w$S0e7Cq)V_9RKdzEG$-_aTor*Grg
z7d*TAptayYoeG&_f6PVVokh`G?mT1j5Bal(E|_1N9dXNhRa%7qE|jNWW^QEprMQbm
zdYj<-jJrfKt+)q~a4gTEfIeK^nyHE5-EviZ&VhPqpkMK#W6b<JzsJ>%`CCFkB*%zp
z71Ibvh3@&xKiS7t(HgiQNB-$Q%4WC{>nb^vt;vDJq`GllpHjq0p-}&t9Adg~0oh4*
z(bVB<`!9s}pVmXZ1{#4*a^%RL8*eFVxmOwrlrcCSl|TE2_GgRIqrS{KARp<jWI#$>
z`@W>71>Tr1Aa4ueZBs0!sxLN(X<(Y+V#yoD(V3e~*G`*9&A`L17_`1v6fc>(ooi^;
zRkHTYBXy1RU!?2qa8h*>pGe8f*C;V)MI>5H)MLWzMs(OC`A#=;hQrp^z?~$kZiT-T
zq~zBl+~xa*Rv&E3b9CtH3^Q&dYF9k1V>SdNkz~!I+#N_FYUgK4l02OzewLAAxTDkF
z_MCYkn8)N=xVae+Wwa`ZHy3geKK&;iCp3%l1L@n^czB(`YxVVIYx_sJYgP0J71;Ka
zthMZ_ZLDVJs^vE}#}d&Et~!6;82(MON3fE%mAGd5<%aWL0x>ori{F~W2lFb^>3(J7
z==h=dUTOgu7W5{@q6Y0W)pBE4>dJ^P->GVk8kkw4b_}7~KWB-S^&f(sPV|gjrr?uf
zW4!5p63g<g>qw<%-#m;bILgQcJb@3IEPC=S_g7~xarO(k$HUk)Uk6lY%C!sSZPMum
z@aB&Bn~EQr>eSVWlmzo^yOC>O9`py1EC^X1iWPoAj1wlu-gc=$^d<20oi7mcUz+EK
z<ChDY(pMUUHPtO*<bC@#QRj!3+?za3t!uwo3@?+qUALIZ5%xnX(U|{K7|+*!MrMJI
zQC8wuuh;Jv<^W6*PCaAfh6i&ONcMK}gbgMxRY@4Mn5py>y<5qUk0OV?3V5>OXlDPg
z{#wG6TKE&aes=kDFb*#I?-#g|kVNLgvT;RORDa9mO~i6eoNcQAJC&zHoTn?w%-Ty_
z3%+<9T_xQih^Xlm-CQAzt^+Y;=R><zt&G}rTj7OGzj|*Tr?gC)>2I@#F+=My)efBH
zCrf$NfGs$1{c#y0WEhx(yEkJ}mD`5{_2?%1F|6<0rbAwXR$G$?*;Ui!+K{zH<JjXj
z&&MRlYw16mZ8J`+wEyb6uj-c2QCxBGn^vKaXjB<vKZOZT!=74+utqLOtV?M=7zX+O
z6!{}D;cL*N^kE>`QbwP6<&UFDxPMd1<jU6Z-W-j~!`|M>L8Q9Csa`<nvTF&Mxt2x1
zT{cih2Y1G=zTMbTRLZ-7EP$Gu-|;{4E&k_9$oNOd;IzGSvZ_OFao|)i`_{c)hO-D$
z_r*u3K@KD4*<^J?`SXs&*VT;8#MWNT@3&?2Z8I|y3KJ|uDfmyCSk(oNUngALyUtpM
z*0Eomu2#&6eMsax)my_xcz0g=V7Nd4$mOk@iFckX#+63}+5ZEkgf8|s>&?Fwr7x5M
zQ=EJZjv%ZlcNW(#-gdOhdShAt;#i*TcjU;kZ^i9ekY_+BBI4a<l+C(<P!!nF;Eel8
zf85~u4vM_smEb5$4l|IxH2!$mdO*ur#aVXwbMfezLVx#f4a6TSn1_7k*KZyl6+g}x
ztNA(y3!z1yAJX`;>1d_DbmO5;0gR;I`xg9j^S<Z33z^zRz&DvZe1larPA_ZnHb*~?
zv%S?@`~dJ96}_U)BJWK&P;O|YR5qtXlH=zPLfHEUQTm5d{9_=SBXPC2HKem$JNJ9r
zf2%$s9GmujiE-t93lLC?9{-$HISaUD$pYK&CB`uS+z&vEVf^~CI~64fyc;bc@;1GG
zZ$x~B$!muyKfkQv#aLTxSsE>Rs@={u%n}mp>713ZtUvtvb<SP4jrie4{{+U(Vew^Y
zZ5UH`OORq(06X}7=w>#?SN*!j*>he|RsVqjOvHN$Au(K`nf(VO)by1-Q<xHy+IrW7
z_Jzv_9`wCVoiHU_daNy?roZ%I8$EaLv4BsE=9x&|UbW}-3BkoCS`^Kdj1-jiSFOI^
z*-d$<rS9t2V5*8A<JTTY0i@ru$m!iV@}<t=-e2Pj6J=T*OX4X`Dwm~@swEoq<bu!^
z$9p=byL<H_=h#<qgEZ%w@t;~927fPJ2|1?!SJG~9F)^~l7I&qC-CkoupnW}J*S${G
zT1;2V=6w48S*7FVHfTu(mmh96?AgfEr@0cJCj31(dc7shSL<>N@>ahV0G^<un_ZV3
z_1fousLu3#{vF|;`v?V14_r+v{N4AuFT6x~(C!MQtcc;Q{pbAk1f|3ct#ig(p3Rot
zKDYg8<Ije*%D#l&w!KV^SU&wsmbCI@N+sycxZ;@@!~9$u*HOSWF7Mig8y5IRQ~g4Y
zf;xS>dpacvLV1So=>5HoI$^EYDR@=I^$>Bl%yq5x!s4>z>pt=+fz!bOHA{wC)cA_=
z$fFOCXWViO0pDWzrD!gK^1i~bH`UUkeQnpbXm@IEnF<AYnPl<+vdUkjz)oF)LC#%I
zXb~i@b&3Cp6#9AOE8rtcP;*Nc!=g4$mE>5d=Wox)5^wFqFsRQqT4jy52Cn=W2Q~^f
zF+H58(3_i3nD|rXp1!BGc<&{PNa57c{)TTa%ylt3r0L%Pjx0RWlOOYRI5M!^_r=+(
zQFRF$I30{wMT#wzjc@^%FZa8zWUBW!3i@jx-?Ou1?K>dmZ<KZtpi)m<iL9sldz3Sd
zt=@=2)^>+M0G;+c+i0&&r{4^bx9e3!`U(2egs=FP77{otv)BiI%`FWj^pAfCslYdE
zzpPpdY2C<GyBwMP`i#D9q1G;3HTfF#8lhb%aK$%QJ9fh;<%GVO)I`~o_}!ZgT79Z~
zj)e(0eha-3_csnVsajS<*<&5LPckQwwn-q+kzSK4m#kh|7A2Tlu941^8}`1jB&HD2
zjU^Ef$LZh7z1h3)%_QPeqVR%$8`yT(DE{ZipZWq9qPiO+nmpv})d1{fF_Xm*mwuI$
zyq*$2a?O)#OzJ-FKI+TXn1#dmNtq%#O6yFR4uyU^SzG_}4ewoJNKV*#Zw0xrG9V@#
zTV(dO+rsK_URHYffZdVvB>I7ku|Dd|<C5v%5UYVlqL3WX6bC({EH@wt*adBnsLXV*
zIZa#DR}12Jm5`N{3MQ)gF)ow=;iWtKjqt+SyCz3{cL&IY>j_Ygxt)WWhX<eCT&)ui
z-xt6?=HG-f#jo&)62-MS!*wPfcFlxf-3^+A)~`;e@X+j1%jOv4j4=7)HH$b1br|Bv
ztDDjD7UMe0IEUK5WAb-s=PjeC#~I)5t3ndwB-Tu>!ERs=`{}OwIEy)p=FI;PpDZ8R
z{z0#$U2Pj%nAg1Jh!55`)37y_C@A0wD>6twrvnkvCVtbM)Q;v0P#GisFva@RE4XDF
zn(lXs_Z!%<o;V${4}28PG`b^vA<@FY|BQP4z>q4j&+SW*X9Ps_yw~lU4*ikA$*Uxj
z8Rgz|OVis0-4+YqPLZ*fwC2ZAMdjUs8?f8Av9p!Aur*y$wogjnK?y^~p#9Cwmv_J`
zrSMB1Mb-!JT|=*Q6_sMI_67go>3D8FG*D-9eJ}6n!-ia-JDG~@+lfBh@NilBV<H0D
zQv@VEkc6A>H?>0iP8+8h*%E&U%`u=M{nNdk0%uFAoIHASEz^$V$^F5*eE}RFBm=<z
z?a0oj7Rf<g`0q95v1ueP&pczFeBAh2ONoTAZ;ap_otwsI-&`;PAA0>WGN_I|5GU{q
zVl$(q`rT;a1!gkt{k^;E&%eIKo=XEgVV}Rykz*Dvp_EAY6My}PRM3Luw+Jns)2>!V
zFvzX`^ZXrGaq@gtV|suK|M7*WTWgYQ=pD<v*$~lRbL~i8*8b`c|L&hNBgHZLf0@D#
zs>v4lnF7+z;C+*uY|OoHj-^hqOn#){yqDL_vIF?7m}D8fQSs&0f;<CzYh$ljWL$-h
zzSQQ)HZV3+7A49M+++(lEj`pw{Z8Lz?zXej<#!PxlgKM)_cK55K-vb{85wiT0G0By
zJQ|r=vCAp=l(>pf2Z5-=o0?mT`xQz?u(AG!`ity%7R)w5>(|;!-{3JxvC4<biLE8?
z(-76>989D1PwV2^#2*LRz#SFbExbFt%ZhCZ{k9OXO5RE2Z!DYg@vcpV;w17{+9AT4
z$9X9)l_JR=6tq(APoG<>hK6*7dd#c;!fgC!mgE1v{}<K3?fP1bAw~eX__T2NaNOFg
z^u${>H@U!a#pkrZz<Bbh9Ic70IO0MMKJ-Iq9jBzs7x%np+b2wJyLN%c*i2rl2A3DA
zIODfBB?43eP6x;Z=vF#>qNUYInhH|FQoDXeD3zBtC|hS01S@s(pHe9a?hb}Fi61QW
z@r`-gk=XacKb9)kL&QxIEm-;~{H2Du_X(>EPkZeTpU>~tA1GSf<V!CQTJt`$Xo^pK
zFZ3LMsw(lpzP5cyrlvl|o(drE{kVbVvp^QA_pC<?cK<8vl}yRu9VtsdIQ}|reU2Tz
z!N#eUYrl?TK}o*8OjwFU$;W1%fna#+XWV-h5oeYYzHiA-FDC0`*RQc-gTk8p4G$NG
zPy+1DHxSh--$YRo5$?-3|5gbv!s;%cjVfOazmT&=<2pjU$~yhXUjober;WE{F{gE-
z+8?{QK>{9YVMZoF70;jtbBLsjBUHCzqt~9|YpuhsyngRV9B`2_xjk0K%@7E<w%$yR
z1q+;NO|4WX2|Vd*{44y-vOz44-GFP+mmDdvED)C^^QS!}^=ISxp|3xe1laZ2N7+Zm
z5mYPZt9jaz+$fGs$pEPUvE}p5RB<x4PENd67DFxz^?x9Nt9~Mmb1!35JdX|o(f#AX
zF7c4-`Jeq!fwxMRLLy`4m$KaYQt&<Tm^2=Zjpiae5e(|&?Mo)wbA<CPADakj<HK>=
z`9@1=3TVboX$UQN=uFsXpWm6Dr9SlY(Od{zepxpIr^gBiCB`TQ$V(Si$Y%4}?$aCJ
zW|LyK5z1W>i>(gdOkgTZ=O$f6H&T|go$)V&tesR4ey!w%{?=^{og;(hEEQUp&hilk
zvF~91@_ZL49l_H`)4ANky0a@M+b(`PhgMNY0}1n&1S^hlSTj!+2o&9~F-LZX&1mLY
zW9ncV;|kaoGWM!$&3M0Zs*}jAff+-RsJpPX#wQZBA?w`W8<L#2zvM5QrRi5N06IMk
z1GhO-PE^J&ei|YlSeK6e0{J4zA0>}vR1`72Lw<bh=3u5<5K9b6-lh=!qla4`_jI1J
zqo@^-Hbz3@HzEvsU@Sj(n?FGX)66l(!9(w#GSk8|UrYBK@}DSElvHSZea`M2vZt9x
z<*Iqt&=c6>npVzDo7m~bv~vZj>OCO;XB#6^cO0*#^J^F9Dn9;l|E0wKYL9AKxYROX
zmT18pp49o%W=8}9r(SHkLA~16)mgN@1M6cWz_x2@`6tz0)h7n;TW_QemdkV<#90#a
z4M{g5^p6GxSON5$8?wdSYAkw0H)r67dGMPwmauB)dqB!@6>saQ1}GpX@-0V;gr9T)
zd7o{2%^w`c_CzsO7$C>UQ6bkHR-8??19_KqoqKK2opvy^@|j-Au3-==@!WS+0fj?T
zg1DC`uWQ>eLMhGMnmpkOE^oaLhI6{;{qQab0v{~))<2UR=Fs(qOnv@m4D&JW6V9dj
zQgzqiRKcg*8;P=ff8p4&4yAs0+F2u2aB#WKzoGWpCTY7oF1+ifmU10;BD>OkAQder
zXdP!;(0r>Lv2eo!v?Bpy=o?cb8YMMF!~e<=lUeNf%;a$UVOB%a8?P6d`uMJ>r(w+Q
zvAAK!+Q+Ax2AsL+7Ih?VBRm<al(Zr0F?59GUQ{nlA6(9rA~Os1V{j^%EbN6Q?rn96
z+e(tB8gtLx8N^+e)UT`>fLC?SN!rh8Y<{#{r)JHz+PIJCE`KfFN#1^Q8k$_&N2Y!Y
z;{WVnE_`?#G%wk9frGBV)-u$aWU((i&3M~MKd9n~z%qktYz0@nNIsq<!&j~(m?|=>
zk<KVBMpO8r={;;x@3$is>IuF}Yv{~R52H-y9Pher>$}~~OS&3mfH><dK|E6-3VC3#
zkyyNA`R{XhZV|Lp@{=Jow??(%Kppb?(&y*>2YvzlP!{c!l+^vxRvvO#^JD>?dex0O
zyGHFTXeEli9acZX%w?mWy@1JTq7&{&rWW*|dY+T?)C+u;Uhga5TUL6pA*IftYud_2
z&}wV!WzcIAG`0hU+MvD9<35oevHj_JF&t%Plw&%}Cn9j{uLW33^}fxU@g0(*#HA7(
z7Bw}{JuLnQiE{7Dr{6&(w444HdFS8J4So`rPIHIXCk{g?@Cz%>?dbc;Cj;E9qU#f?
zloMI~klAW<R7mk-KZl8SFosPCfd94w6*La*GqH>xAULEJ>;PG|McRW+s1^2ALZ~j?
z@5)hun&^xutjaarWQdvz&%;ZLNy8HAI(1~_f>rvyxaTdQxsoXcA93TBc}Wqzl9c(T
ze-~1>S|7*14me>cQ^X=1_<L#P#@B6ZvB$wdG0nd#H-0b1iCz2pP-11Eqq-l@xvAvx
z_Fj7PJF=788??soB7K-D7st3P^3)F}p1rgs+>}(J_dT5`ckT0=F$M(#Y#uH$l+bg0
z7T|t;Qakq(ziKl6YIwCgN<Ulq>RdXM%cY;36w5qwYdo}!KH@zb{krno!ngCZaCMjN
zxp6_ie)U<k+S56~%V}}8Ikr=mdeJH!GZExbVPEROE8s2Y(+ZPTrG_OLz(9Nqlv*7U
zS6|DN2ylnXn*6F6QW<WE_@Z4W-xVdkf&cCJuz%vkSenCo?{j`Iqaha#Wwdwi%$$?Y
z;EitG4nJny-xU7ph#Ht{56sW($D%K08eT8tUa2HIdU2t+xa$a}dA~++M^#J>On7pi
z$28w!OKxT2(!L2%zPzobt2OlAYzk9um>^x?lRI$J!AW4n1HpY@QK#M8NMa;uUW}S4
zWAdwu6jse)^7_5@^HwE;jthKe_p8W1=UeQz=pR57q3Qgx_^hytA=$CLgL)XT{nffu
zX}*r=+#ZFg&v0Zc@AsZ=Fx&V8Uw{6n#82~o+_hc@oK%Gyem7X=-*Oca*hqo3SOF^G
zKE2j;*V<TDQ@=;!f{aO~=fUOcK&Y+asI**P!x<G%SHR2ej?@eGCyc&2*BKo9QmVUF
z(k^MVclE2v5<@vhp9o8+_Vbn)ma462o*5<b#BWz72Ar%8hNm5JPnQJkM9wcMvoUlF
z64m0^CM#;A87C)BJQG-5G`w?xeIg}f--{>lt_?)Y?XkM}I?JB#i$xu4=UYAwy8=da
z^s7q6fK@-Q$?L*w4%BNI&rFosaEs6;?l39bdVZW6E-$q2yWdH^Uq0_6`zLMs2JTK!
z%g7$d8;|e5%#lwWi@xqXS4wO)*rL(?UO3@8bn(s;YD5TaqepzZjN_oZ0vQybx~%-$
z3F;fE-Faz8jqYzXh`Xy@ohW5aea-(+{4ZbTDG!|j#A;N+fCVAqZ?gI&-Q&@w);TX_
zJcqS_jeTAhe!V{NW|kOc5rxKbX;&X;HQS&iE1$i?d|%5=oZ(Tqh&_T;!9mkYMwEMr
zcFZ1*m~@L!yS5ucCY#C=P5m1M?Hb7;5|cCVwEAfM0}XKtmk5e*@BP(JlsO4Dl@)o<
z>ymJ%nn5U8+LjpC$g!)|#A%}m?lSVGdq_uJWDU&F4GqZB!IFjK$F`|5k@a&ankUL9
zu1Wou?Fa?*7`HkitO<)#mz!I9M_&70U%t%l65yA{7Q=L#A0KP)Inw!{Re^YAB#*OB
z{1(uI)!!R+@(M98)sjPkotOGIjH>+a;p=kGRc?Rn$0>6vxh@}Hx;-&p7EL#p`12Q2
z;B}Jmh=-8->cQ1=8@og9BS}?`p%&J;Nlx)~QX1|K)xT|jZjd^l(k8#&1jE6vW$@j)
zE)L)HVl@Q&+v)e$sSr%?T$BUq=~ZoxduQQic^-O`FEwzrX}2zMwrE_YC)XX@9O>U+
zpY&e#IDD_(#A@*{CK*1!)+*QaMO@W#omAXn;IVmwaA8=vQzJI7rmlXUpPT~ZhklD}
zT&-uTVdhY?DLjUAk^Lsu#__I2pOL=<K4ZLROY^t6o{f$A>bb-}HnlTgN-w)f>KE%8
zH^h(h?yo2^Y&Uo*zOA04_ApH-mznm{w%jH6+$|_uz}=ehv)96Un_LjOQa}xaDpp-?
zd!AdjwHBSZ;BR$p7m~ftY<PU`N7J=*v+Y~!ce=ty*>%qsFhcbny7MjO6y$77*F4xR
zWuquQ@37Z?dt;&6Vyo2c(82hQgLj2Od0gIVFP*QIYNjIjG=nZ~Z3Ks0iYE)daI<JW
zv`@X77HY5@J4+<;75fi1)>$ToLZ_Pz^PsC=?z1&$o(Yp3dx(;!c%H>gPw4yla_^L5
z0&~nozRwrUuAw8X7{A%vZnsLV4(lT3h5jAt2)(QF@A)YJKz_Ii;0JG~%<ynnkg>;G
z_uZ7~YHIfEQjfVJvfQzHVqyvF<1N@P<euG<7*#D3b5NXP#|JasdW9%w|8XO@ubJ~A
zX`?elW%3&|jQ@0X>N1|;pD@&q;|XjJ&IV?ShVuPVrw+ohF-K`zTXCYm4(WaBdVkVp
zqSmV)FKgSU6gc@yD^yga6ORj)kfKmY%fqqfkP$A|Y`K&Z>I@7j-^iGB{03FXm>`n5
z;ZBGABq`Eu+WATHUB`Ch+gABbXOAGLd~FMz{Fo)4`3Eg*01~gb5$fzEF2>{iPXBdf
z?(A0Fr!M|Dw$3Gx2Rk>rj*#DXwb?;+LHE*@r{`va&JJ<7ogPsh;g73zF+b6@9`zQF
ztvHnWe(>mK5+_-K-APuVyHaXdzioBj{Qhd!m>YMDY3JG+!yTAjK_eHR(jS%O3G8bz
z(lT`!y?N&|EdyiBbKbZ0ak-2_Srz|sv|P2SVFjWGORZ-(>|4lt+fo?mJ3lUUs3k}G
zp9D80L%u7(QHJlBcctE}0xsanZbG(q4CHvjV<Kqe+4gM@;^BKCV$nz|7Wy~2ZKm)e
z<7*`JE35>mILG&QYcY_p{c|Yo<o<_g0&H2<qiNbu9cg`yi3Nv$hEh{8Zg`bd9WLc(
w+Sa{zlt)7f(C*%8|M&O*KN>hQ!{o3&VnuH>$k5uoAIRkD%`4@Xo&WxS04TF_3jhEB

diff --git a/reference/plot.html b/reference/plot.html
index b61d51d5..a5474561 100644
--- a/reference/plot.html
+++ b/reference/plot.html
@@ -12,7 +12,7 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
     
     <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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 ca13bb40..6818b578 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 35e1b1d8..f4ade5fe 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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,43 @@
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 64      1       1       1       0.025   0.025   0.5     &lt;=0.002 0.25   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] &gt;=256   8       0.005   64      64      128     4       4       16     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 2       0.005   &lt;=0.002 4       0.25    64      1      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 32    1     0.01  0.005 32    0.025 &gt;=256 32    0.025 0.005 0.25  2    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 0.001 8     16    0.001 8     64    8     16    0.001 0.002 0.025 16   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 16   </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] 19 13  8 13 40 16  7 20 14 47 19 26 41 25 14 41 47 40 49 40 46 30 46 32 11</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 31 19 46 34 39 11 18 21 43  6 50 28 15 48 11 50 42 30 25 29 49 22 50 20  6</span>
 <span class="r-in"><span><span class="fu">random_sir</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] S I S I I R I S I S S R I I R S S I R I R R I I R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] I I R R S R I R I R I I S S R I S S I I S R S 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.025  4      0.25   0.001  4      0.125  0.002  0.125  1      0.025 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 0.002  2      0.002  0.0625 0.001  1      0.001  8      4      2     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 0.5    0.25   128    64     0.25  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 128    0.001  0.01   128    0.002  16     0.01   0.002  0.025  256   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 8      0.025  0.002  2      256    0.25   0.125  16     2      0.002 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 16     128    128    128    0.0625</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] 4   8   16  64  4   1   4   64  0.5 16  32  16  32  4   8   1   2   32  4  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [20] 8   0.5 32  64  32  32 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 32  1   16  16  32  32  2   16  0.5 8   32  8   8   8   32  32  16  4   1  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [20] 2   4   8   4   16  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] 1       1       2       0.5     0.5     2       &gt;=4     1       0.5    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 0.25    0.25    1       0.5     &gt;=4     2       0.25    &lt;=0.125 0.25   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 1       &lt;=0.125 0.25    &gt;=4     0.25    0.25    2      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.5      2        &gt;=4      &lt;=0.0625 0.5      1        0.25     2       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [9] 1        &gt;=4      1        0.125    2        0.25     1        &gt;=4     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [17] 1        2        2        &gt;=4      &gt;=4      1        0.25     &gt;=4     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [25] 1       </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] 49 43 10 16 28 42 41 41 48 21 20 46 23 24 41 13 46 46 17 27 48 47 41 20 44</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 48 11 40 10 50 25 40 49 42 18 32 47 27 36 36 13 42 50 47 18 49 14 50 39 12</span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"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 16 13 13 17 11 17 13 15 17 17 11 15 14 14 17 16 17 15 16 13 14 16 11 12</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 15 15 15 11 17 13 17 11 16 13 12 13 15 13 16 12 12 16 13 15 17 16 11 14 15</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] 24 23 23 15 26 16 21 25 23 22 22 21 16 19 27 23 25 18 26 17 24 25 22 18 15</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 26 16 16 21 17 24 20 15 24 23 17 16 25 16 19 15 18 27 26 21 27 27 19 27 26</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 01265907..d48ebeee 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 1bb6a197..c8b5619f 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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.04515028</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.0707631</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 1a077e2b..6f6b5699 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.1.1.9003</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9004</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 a2d5b9f5..4ef63d3a 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), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #> -------------------------------------------------------------------------------- #> \"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: 90% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 712 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,712 'phenotype-based' first isolates (90.4% 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,712 × 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 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  8 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #>  9 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> 10 Z1         A        2014-09-05 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,702 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:2712        Length:2712        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-05-03   #>  Mode  :character   Mode  :character   Median :2015-06-16   #>                                        Mean   :2015-06-21   #>                                        3rd Qu.:2017-08-24   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :42.9% (n=1163)   %R   :36.1% (n=978)    #>  Unique:4              %SI  :57.1% (n=1549)   %SI  :63.9% (n=1734)   #>  #1    :B_ESCHR_COLI   - %S :41.0% (n=1112)   - %S :52.0% (n=1409)   #>  #2    :B_STPHY_AURS   - %I :16.1% (n=437)    - %I :12.0% (n=325)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1138)   %R   :37.3% (n=1011)   TRUE:2712      #>  %SI  :58.0% (n=1574)   %SI  :62.7% (n=1701)                  #>  - %S :51.5% (n=1396)   - %S :59.6% (n=1616)                  #>  - %I : 6.6% (n=178)    - %I : 3.1% (n=85)                    #>   glimpse(our_data_1st) #> Rows: 2,712 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\", \"Z1\"… #> $ 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, S, S, S, S, R, S, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, I, S, S, S, S, R, S, S,… #> $ 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, R, S, 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       1852          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          1319 #> 2 Staphylococcus aureus      676 #> 3 Streptococcus pneumoniae   400 #> 4 Klebsiella pneumoniae      317"},{"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,712 × 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 2015-10-25 S     #>  7 2019-06-19 S     #>  8 2015-04-27 S     #>  9 2011-06-21 S     #> 10 2014-09-05 S     #> # ℹ 2,702 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,712 × 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 S     S     #>  8 B_STPHY_AURS S     S     #>  9 B_ESCHR_COLI S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,702 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,712 × 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 S     S     S     S     #>  8 B_STPHY_AURS S     S     S     S     #>  9 B_ESCHR_COLI S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,702 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 1,011 × 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  #> # ℹ 1,001 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 483 × 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 B6         A        2016-11-20 B_ESCHR_COLI R     R     R     R     TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS R     R     S     S     TRUE  #> # ℹ 473 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: 483 × 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 B6         A        2016-11-20 B_ESCHR_COLI R     R     R     R     TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS R     R     S     S     TRUE  #> # ℹ 473 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.4288348 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.342 #> 2 B              0.564 #> 3 C              0.372"},{"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: 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            S          R            R            I #> 2          I         R            S          R            S            I #> 3          R         R            I          S            R            S #> 4          R         I            S          R            I            I #> 5          S         R            I          I            I            R #> 6          S         S            R          S            R            S #>   kanamycin #> 1         R #> 2         I #> 3         S #> 4         R #> 5         R #> 6         R mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 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 171 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 14 July 2023 08:49:06 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 transport (XPT) file (48.6 MB) Download IBM SPSS Statistics data file (17.8 MB) Download Stata DTA file (48.6 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 ‘Microorganism’, 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 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (44 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (72 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0.1 MB) Download SAS transport (XPT) file (1.5 MB) Download IBM SPSS Statistics data file (0.4 MB) Download Stata DTA file (0.5 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 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (17 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (13 kB) Download SAS transport (XPT) file (73 kB) Download IBM SPSS Statistics data file (32 kB) Download Stata DTA file (78 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 29 747 rows 12 columns, containing following column names:guideline, type, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 20 October 2023 13:07:11 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (59 kB) Download tab-separated text file (2.3 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (96 kB) Download SAS transport (XPT) file (7.9 MB) Download IBM SPSS Statistics data file (4.6 MB) Download Stata DTA file (7.8 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). Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software. CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","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 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 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).","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/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Data sets for download / own use","text":"data set 521 rows 4 columns, containing following column names:mo_group, mo, mo_group_name, mo_name. data set R available microorganisms.groups, load AMR package. last updated 14 July 2023 08:49:06 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (49 kB) Download Microsoft Excel workbook (20 kB) Download Apache Feather file (19 kB) Download Apache Parquet file (13 kB) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (81 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-8","dir":"Articles","previous_headings":"microorganisms.groups: Species Groups and Microbiological Complexes","what":"Source","title":"Data sets for download / own use","text":"data set contains species groups microbiological complexes, used clinical_breakpoints data set.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Data sets for download / own use","text":"data set 4 957 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (22 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (91 kB) Download Apache Feather file (85 kB) Download Apache Parquet file (57 kB) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (0.1 MB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-9","dir":"Articles","previous_headings":"microorganisms.codes: Common Laboratory Codes","what":"Source","title":"Data sets for download / own use","text":"data set contains commonly used codes microorganisms, laboratory systems WHONET.","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-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: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 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 public 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.s.berends@umcg.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] \"101498-4\" \"15-8\"     \"16-6\"     \"16365-9\"  \"17-4\"     \"18-2\"     #>  [7] \"18861-5\"  \"18862-3\"  \"19-0\"     \"20-8\"     \"21-6\"     \"22-4\"     #> [13] \"25274-2\"  \"25310-4\"  \"3344-9\"   \"55614-2\"  \"55615-9\"  \"55616-7\"  #> [19] \"6976-5\"   \"6977-3\"   \"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] \"101477-8\" \"101478-6\" \"18864-9\"  \"18865-6\"  \"20374-5\"  \"21066-6\"  #>  [7] \"23618-2\"  \"27-3\"     \"28-1\"     \"29-9\"     \"30-7\"     \"31-5\"     #> [13] \"32-3\"     \"33-1\"     \"3355-5\"   \"33562-0\"  \"33919-2\"  \"34-9\"     #> [19] \"43883-8\"  \"43884-6\"  \"6979-9\"   \"6980-7\"   \"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  1984-04-27  39  39.60274         15 #> 2  1935-07-26  88  88.35616         64 #> 3  1975-06-27  48  48.43562         24 #> 4  1961-11-22  62  62.03014         38 #> 5  1951-05-07  72  72.57534         48 #> 6  1946-04-17  77  77.63014         53 #> 7  1972-02-03  51  51.83014         27 #> 8  1981-04-25  42  42.60822         18 #> 9  1957-03-29  66  66.68219         42 #> 10 1934-06-02  89  89.50411         65"},{"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 S      #> 2 I      #> 3 R      #> 4 S      #> 5 S       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.807 #> 2 ICU        0.551 0.780 #> 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. unique identifier. cid Compound ID found PubChem. unique identifier. name Official name used WHONET/EARS-Net . unique identifier. 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 codes associated name antimicrobial drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). 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 Antiviral ID used package (ACI), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. Combinations codes contain + indicate , ATA+COBI atazanavir/cobicistat. name Official name used WHONET/EARS-Net . unique identifier. atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem. unique identifier. 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 codes associated name antiviral drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use av_loinc() retrieve quickly, see av_property().","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.76 (18 September, 2023). Accessed https://loinc.org October 19th, 2023. 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\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB #> 1 Escherichia coli   S <NA>   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, keep_operators = \"all\")  is.mic(x)  NA_mic_  rescale_mic(x, mic_range, keep_operators = \"edges\", as.mic = TRUE)  # 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 keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range plot MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). .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. rescale_mic(), existing MIC ranges can rescaled defined range MIC values. can useful better compare MIC distributions. 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  # rescale MICs using rescale_mic() rescale_mic(mic_data, mic_range = c(4, 16)) #> Class 'mic' #> [1] >=16 <=4  <=4  <=4  8    <=4  8    >=16 >=16  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMX' (amoxicillin), 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\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMX' (amoxicillin), 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 }"},{"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 'Microorganism', 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 = 1.25, Protozoa = 1.5, Archaea = 2, others = 3. 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.25 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.381\\), 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  # input will get cleaned up with the input given in the `cleaning_regex` argument, # which defaults to `mo_cleaning_regex()`: cat(mo_cleaning_regex(), \"\\n\") #> ([^A-Za-z- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )(e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   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. Currently available breakpoint guidelines EUCAST 2011-2023 CLSI 2011-2023, available breakpoint types \"ECOFF\", \"animal\", \"human\". 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),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\") )  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. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. 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":"Note: clinical breakpoints package validated imported WHONET public use AMR package endorsed CLSI EUCAST, please see clinical_breakpoints information. 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 29 747 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) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. 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: 13 × 13 #>    datetime            index ab_user    mo_user    ab   mo                input #>    <dttm>              <int> <chr>      <chr>      <ab> <mo>              <dbl> #>  1 2023-12-03 15:55:17     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #>  2 2023-12-03 15:55:17     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #>  3 2023-12-03 15:55:17     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256 #>  4 2023-12-03 15:55:17     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8     #>  5 2023-12-03 15:55:12     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01  #>  6 2023-12-03 15:55:12     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #>  7 2023-12-03 15:55:12     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4     #>  8 2023-12-03 15:55:12     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8     #>  9 2023-12-03 15:55:12     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #> 10 2023-12-03 15:55:12     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #> 11 2023-12-03 15:55:12     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #> 12 2023-12-03 15:55:12     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20     #> 13 2023-12-03 15:55:11     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18     #> # ℹ 6 more variables: outcome <sir>, method <chr>, breakpoint_S_R <chr>, #> #   guideline <chr>, ref_table <chr>, uti <lgl>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), 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\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), 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) } #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  OK  #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB ERY #> 1 Escherichia coli   S <NA>   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\" \"30273-7\" \"30287-7\" \"30303-2\" \"78772-1\" \"78773-9\" \"79134-3\" #> [8] \"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 29 747 observations 12 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different types of breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported from WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response from CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"download","dir":"Reference","previous_headings":"","what":"Download","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI, though initiatives started overcome burdens. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","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: 29,747 × 12 #>    guideline type  method site  mo            rank_index ab   ref_tbl  disk_dose #>    <chr>     <chr> <chr>  <chr> <mo>               <dbl> <ab> <chr>    <chr>     #>  1 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 MEM  A. xylo… 10ug      #>  2 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 MEM  A. xylo… NA        #>  3 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 SXT  A. xylo… 1.25ug/2… #>  4 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 SXT  A. xylo… NA        #>  5 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 TZP  A. xylo… 30ug/6ug  #>  6 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 TZP  A. xylo… NA        #>  7 EUCAST 2… human DISK   NA    B_ACNTB                3 AMK  Acineto… 30ug      #>  8 EUCAST 2… human DISK   Unco… B_ACNTB                3 AMK  Acineto… 30ug      #>  9 EUCAST 2… human MIC    NA    B_ACNTB                3 AMK  Acineto… NA        #> 10 EUCAST 2… human MIC    Unco… B_ACNTB                3 AMK  Acineto… NA        #> # ℹ 29,737 more rows #> # ℹ 3 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, uti <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" being resistant. This note will be shown once for this #> session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) \"aminopenicillins\"(amoxicillin ampicillin) \"antifungals\"(amphotericin B, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) \"antimycobacterials\"(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) \"betalactams\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"carbapenems\"(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) \"cephalosporins\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"cephalosporins_1st\"(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) \"cephalosporins_2nd\"(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) \"cephalosporins_3rd\"(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) \"cephalosporins_4th\"(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) \"cephalosporins_5th\"(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) \"cephalosporins_except_caz\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"fluoroquinolones\"(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"glycopeptides\"(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) \"glycopeptides_except_lipo\"(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) \"lincosamides\"(acetylmidecamycin, acetylspiramycin, clindamycin, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) \"lipoglycopeptides\"(dalbavancin, oritavancin, telavancin) \"macrolides\"(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) \"oxazolidinones\"(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) \"penicillins\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"polymyxins\"(colistin, polymyxin B, polymyxin B/polysorbate 80) \"quinolones\"(besifloxacin, cinoxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"streptogramins\"(pristinamycin quinupristin/dalfopristin) \"tetracyclines\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) \"tetracyclines_except_tgc\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) \"trimethoprims\"(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) \"ureidopenicillins\"(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 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,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated 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' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,373 'phenotype-based' first isolates (68.7% of total where a #>    microbial ID was available) #> # A tibble: 1,373 × 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,363 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: 434 × 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    #> # ℹ 424 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,373 'phenotype-based' first isolates (68.7% of total where a #>    microbial ID was available) #> # A tibble: 1,373 × 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,363 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,373 × 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,363 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 857 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 447 'phenotype-based' first isolates (69.2% 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 (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] 16 46 29 25 10 45 28  8 21 31 26 42 16 10 47 22 10 39 17 23 44  6 42 40 43 #>  [26] 37 11 26 14  5 35 47 22 47 30  4  5 30  5 29 29  2 41 46 42 22 46 12  8 13 #>  [51] 11 35 18 24  2 11 46  3 39 17 18 23  8 13 27 18 31 47 43 12 26  8 37 25 36 #>  [76] 46 24 23 32  7 28 26 19  1 33  9 15 34  7  7  3  6 24  1  2 46 20 10 21 38 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13] FALSE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE #>  [25]  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE  TRUE #>  [37] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE #>  [49] FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [61] FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE #>  [73] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE  TRUE #>  [85]  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE 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: 2 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-11-07 430011     82 F      Clinical B_STPHY_CONS R     NA    R     R     #> 2 2002-10-14 FCC668     54 F      ICU      B_STRPT_PNMN S     NA    NA    S     #> # ℹ 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 [96] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 001213  2009-08-03 B         TRUE        #>  2 011307  2011-09-20 C         TRUE        #>  3 022060  2004-05-04 A         TRUE        #>  4 023456  2012-11-24 C         TRUE        #>  5 066895  2002-02-27 B         TRUE        #>  6 083080  2012-04-16 A         TRUE        #>  7 097186  2015-10-28 B         TRUE        #>  8 0D7D34  2011-03-16 C         FALSE       #>  9 0D7D34  2011-03-19 C         TRUE        #> 10 125492  2017-09-15 A         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [94] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2009-08-03 001213          1 TRUE        #>  2 Clinical 2011-09-20 011307          1 TRUE        #>  3 ICU      2004-05-04 022060          1 TRUE        #>  4 Clinical 2012-11-24 023456          1 TRUE        #>  5 Clinical 2002-02-27 066895          1 TRUE        #>  6 Clinical 2012-04-16 083080          1 TRUE        #>  7 Clinical 2015-10-28 097186          1 TRUE        #>  8 ICU      2011-03-16 0D7D34          1 FALSE       #>  9 ICU      2011-03-19 0D7D34          1 TRUE        #> 10 Clinical 2017-09-15 125492          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            39            50 #> 2 ICU                27             10            21            26 #> 3 Outpatient          5              4             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] FALSE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [97] #>    patient mo            ward       flag_episode #>    <chr>   <mo>          <chr>      <lgl>        #>  1 550406  B_ESCHR_COLI  Outpatient TRUE         #>  2 987C84  B_ESCHR_COLI  Clinical   TRUE         #>  3 F8DB34  B_STPHY_CONS  Clinical   TRUE         #>  4 AB0003  B_ENTRC_FCLS  Clinical   TRUE         #>  5 C56827  B_ESCHR_COLI  Clinical   TRUE         #>  6 CD8C33  B_STPHY_HMNS  Clinical   TRUE         #>  7 0D7D34  B_STPHY_EPDR  ICU        TRUE         #>  8 022060  B_ENTRBC_CLOC ICU        TRUE         #>  9 F462F5  B_STRPT_PNMN  Clinical   TRUE         #> 10 083080  B_KLBSL_OXYT  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, main = \"Base R biplot\")    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result) +       labs(title = \"ggplot2 biplot\")   }   if (require(\"ggplot2\")) {     # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"ggplot2 biplot\")   } } #> 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] 1376 # }"},{"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.080482 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.03543362"},{"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) (doi:10.1111/j.1469-0691.2011.03570.x ) 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\") 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() } #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> 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 S I I S R I S I I mean_amr_distance(sir) #>  [1]  1.8973666 -0.4743416 -0.4743416 -0.4743416 -0.4743416  1.8973666 #>  [7] -0.4743416 -0.4743416 -0.4743416 -0.4743416  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 16     8      32     0.0625 0.5    >=256  0.002  0.001  1      0.005  mean_amr_distance(mic) #>  [1]  0.82035688  0.66129723  0.97941652 -0.45212029  0.02505865  1.45659546 #>  [7] -1.24197617 -1.40103582  0.18411830 -1.03171076 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1]  0.82035688  0.66129723  0.97941652 -0.45212029  0.02505865  1.45659546 #>  [7] -1.24197617 -1.40103582  0.18411830 -1.03171076  disk <- random_disk(10) disk #> Class 'disk' #>  [1]  7 15 31 28 22 45 13 21 18 41 mean_amr_distance(disk) #>  [1] -1.4040837 -0.7472024  0.5665601  0.3202296 -0.1724313  1.7161023 #>  [7] -0.9114228 -0.2545415 -0.5008720  1.3876617  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   28  >=16    0.5 #> 2   B    I   31     1    >=8 #> 3   C    R   23     8    0.5 #> 4   D    R   25  >=16      1 #> 5   E    I   17  >=16      2 #> 6   F    I   22     8      4 #> 7   G    S   17     8 <=0.25 #> 8   H    S   19     1      4 #> 9   I    S   19     8 <=0.25 #> 10  J    R   19 <=0.5      4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.64013819  0.32815059  0.24520983  0.61863348 -0.14954667  0.11665680 #>  [7] -0.69000290 -0.43800225 -0.58498190 -0.08625517 y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in .subset(x, j): invalid subscript type 'list' y[order(y$amr_distance), ] #> Error in order(y$amr_distance): argument 1 is not a vector  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>    id amox cipr  gent   tobr amr_distance check_id_C #> 1   C    R   23     8    0.5   0.24520983 0.00000000 #> 2   B    I   31     1    >=8   0.32815059 0.08294076 #> 3   F    I   22     8      4   0.11665680 0.12855303 #> 4   J    R   19 <=0.5      4  -0.08625517 0.33146500 #> 5   D    R   25  >=16      1   0.61863348 0.37342365 #> 6   E    I   17  >=16      2  -0.14954667 0.39475650 #> 7   A    R   28  >=16    0.5   0.64013819 0.39492836 #> 8   H    S   19     1      4  -0.43800225 0.68321208 #> 9   I    S   19     8 <=0.25  -0.58498190 0.83019173 #> 10  G    S   17     8 <=0.25  -0.69000290 0.93521273 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 957 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 957 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 957 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 957 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 957 observations 2 variables: code Commonly used code microorganism. unique identifier. 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 957 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 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,957 × 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_ENTR_ENTR #>  8 1100  B_STRPT           #>  9 1101  B_STRPT_VIRI      #> 10 1102  B_STRPT_HAEM      #> # ℹ 4,947 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.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"data set containing species groups microbiological complexes, used clinical breakpoints table.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 521 observations 4 variables: mo_group ID species group / microbiological complex mo ID microorganism belonging species group / microbiological complex mo_group_name Name species group / microbiological complex, retrieved mo_name() mo_name Name microorganism belonging species group / microbiological complex, retrieved mo_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","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.groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> # A tibble: 521 × 4 #>    mo_group       mo           mo_group_name                   mo_name           #>    <mo>           <mo>         <chr>                           <chr>             #>  1 B_ACNTB_BMNN-C B_ACNTB_BMNN Acinetobacter baumannii complex Acinetobacter ba… #>  2 B_ACNTB_BMNN-C B_ACNTB_CLCC Acinetobacter baumannii complex Acinetobacter ca… #>  3 B_ACNTB_BMNN-C B_ACNTB_DJKS Acinetobacter baumannii complex Acinetobacter di… #>  4 B_ACNTB_BMNN-C B_ACNTB_NSCM Acinetobacter baumannii complex Acinetobacter no… #>  5 B_ACNTB_BMNN-C B_ACNTB_PITT Acinetobacter baumannii complex Acinetobacter pi… #>  6 B_ACNTB_BMNN-C B_ACNTB_SFRT Acinetobacter baumannii complex Acinetobacter se… #>  7 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex    Bacteroides frag… #>  8 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex    Bacteroides ovat… #>  9 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex    Bacteroides thet… #> 10 B_BCTRD_FRGL-C B_BCTRD_VLGT Bacteroides fragilis complex    Bacteroides vulg… #> # ℹ 511 more rows  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> # A tibble: 5 × 4 #>   mo_group       mo           mo_group_name                mo_name               #>   <mo>           <mo>         <chr>                        <chr>                 #> 1 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex Bacteroides fragilis  #> 2 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex Bacteroides ovatus    #> 3 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex Bacteroides thetaiot… #> 4 B_BCTRD_FRGL-C B_BCTRD_VLGT Bacteroides fragilis complex Bacteroides vulgatus  #> 5 B_BCTRD_FRGL-C B_PRBCT_DSTS Bacteroides fragilis complex Parabacteroides dist…"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 171 Microorganisms — microorganisms","title":"Data Set with 52 171 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 171 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 171 Microorganisms — microorganisms","text":"tibble 52 171 observations 23 variables: mo ID microorganism used package. unique identifier. fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. unique identifier. 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. 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% ~37 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 171 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 'Microorganism', 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 171 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 171 Microorganisms — microorganisms","text":"Included taxonomic data : ~37 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 171 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 36 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 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 171 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 171 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 171 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,171 × 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,161 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 = 1.25, Protozoa = 1.5, Archaea = 2, others = 3. 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.25 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.381\\), 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), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #>  #> 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.3809524"},{"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 'Microorganism', 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. Especially scale_*_mic() functions relevant wrappers plot MIC values ggplot2. allows custom MIC ranges plot intermediate log2 levels missing MIC values.","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":"scale_x_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_y_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_colour_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_fill_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  # 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,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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":"keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range plot MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). drop logical remove intermediate MIC values, defaults FALSE ... arguments passed methods 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. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type.","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 = \"nl\")    # Plotting using scale_x_mic() # \\donttest{ if (require(\"ggplot2\")) {   mic_plot <- ggplot(data.frame(mics = as.mic(c(0.125, \"<=4\", 4, 8, 32, \">=32\")),                                 counts = c(1, 1, 2, 2, 3, 3)),                      aes(mics, counts)) +     geom_col()   mic_plot +     labs(title = \"without scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic() +     labs(title = \"with scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(keep_operators = \"all\") +     labs(title = \"with scale_x_mic() keeping all operators\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(1, 128)) +     labs(title = \"with scale_x_mic() using a manual range\") }   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":"Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. 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. 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] 64      1       1       1       0.025   0.025   0.5     <=0.002 0.25    #> [10] >=256   8       0.005   64      64      128     4       4       16      #> [19] 2       0.005   <=0.002 4       0.25    64      1       random_disk(25) #> Class 'disk' #>  [1] 19 13  8 13 40 16  7 20 14 47 19 26 41 25 14 41 47 40 49 40 46 30 46 32 11 random_sir(25) #> Class 'sir' #>  [1] S I S I I R I S I S S R I I R S S I R I R R I I R  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 0.025  4      0.25   0.001  4      0.125  0.002  0.125  1      0.025  #> [11] 0.002  2      0.002  0.0625 0.001  1      0.001  8      4      2      #> [21] 0.5    0.25   128    64     0.25   random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 4   8   16  64  4   1   4   64  0.5 16  32  16  32  4   8   1   2   32  4   #> [20] 8   0.5 32  64  32  32  random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 1       1       2       0.5     0.5     2       >=4     1       0.5     #> [10] 0.25    0.25    1       0.5     >=4     2       0.25    <=0.125 0.25    #> [19] 1       <=0.125 0.25    >=4     0.25    0.25    2        random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 49 43 10 16 28 42 41 41 48 21 20 46 23 24 41 13 46 46 17 27 48 47 41 20 44 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 14 16 13 13 17 11 17 13 15 17 17 11 15 14 14 17 16 17 15 16 13 14 16 11 12 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 24 23 23 15 26 16 21 25 23 22 22 21 16 19 27 23 25 18 26 17 24 25 22 18 15 # }"},{"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) 27.05312   72.24652   0.374    0.708 #> year        -0.01286    0.03601  -0.357    0.721 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.7883  on 11  degrees of freedom #> Residual deviance: 5.6608  on 10  degrees of freedom #> AIC: 50.745 #>  #> 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.04515028"},{"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(\"Dutch\") #> ℹ Using Dutch (Nederlands) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacine\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negatieve Staphylococcus (CNS)\"  # setting yet another language set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Koagulase-negative Staphylococcus (KNS)\"  # 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":"breaking-2-1-1-9003","dir":"Changelog","previous_headings":"","what":"Breaking","title":"AMR 2.1.1.9003","text":"Removed functions references used deprecated rsi class, replaced sir equivalents year ago","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-1-9003","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.1.9003","text":"Function group scale_*_mic(), namely: scale_x_mic(), scale_y_mic(), scale_colour_mic() scale_fill_mic(). advanced ggplot2 extensions allow plotting MIC values. allow manual range definition plotting missing intermediate log2 levels. Function rescale_mic(), allows rescale MIC values manually set range. powerhouse behind scale_*_mic() functions, can used users directly e.g. compare equality MIC distributions rescaling range first.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-1-9003","dir":"Changelog","previous_headings":"New","what":"Changed","title":"AMR 2.1.1.9003","text":"Added 4096 5 powers 192 valid levels (192, 384, 576, 768, 960) Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\".","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-211","dir":"Changelog","previous_headings":"","what":"AMR 2.1.1","title":"AMR 2.1.1","text":"CRAN release: 2023-10-21 included many isolates patients altering antibiograms within bacterial species See info issue #122 Added 1,366 LOINC codes antibiotics data set updated latest version (LOINC v2.76) MICs can now used complex number calculations allow scientific number format input (e.g., .mic(\"1.28e-2\")) Fix rounding MICs latest R beta (‘R-devel’) Removed unneeded note used language option AMR_locale set Fixed non-ASCII characters documentation, according CRAN maintainers","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-210","dir":"Changelog","previous_headings":"","what":"AMR 2.1.0","title":"AMR 2.1.0","text":"CRAN release: 2023-07-16","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-0","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.0","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added clinical_breakpoints data set usage .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations EUCAST dosage guideline v13.0 added dosage data set clinical_breakpoints data set now also contains epidemiological cut-(ECOFF) values CLSI animal breakpoints. two new breakpoint types can used MIC/disk interpretation using .sir(..., breakpoint_type = \"ECOFF\") oras.sir(..., breakpoint_type = \"animal\"), important new addition veterinary microbiology. Added support 30 species groups / complexes. gathered new data set microorganisms.groups used clinical breakpoint interpretation. example, CLSI 2023 contains breakpoints RGM group (Rapidly Growing Mycobacterium, containing 80 species) now supported package. 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-1-0","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.1.0","text":"Updated algorithm .mo() giving weight fungi Fixed clinical breakpoints errors introduced source import rules mo_rank() now returns NA ‘unknown’ microorganisms (B_ANAER, B_ANAER-NEG, B_ANAER-POS, B_GRAMN, B_GRAMP, F_FUNGUS, F_YEAST, UNKNOWN) printing microorganism antibiotic codes tibble, mouse-hover now shows full name code Now settable arguments breakpoint type PK/PD, like .sir() now contain name guideline table subtitle plot 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 Fixed endless loop using reference_df .mo() Fixed bug indicating UTIs .sir() Greatly improved speed .sir()","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 (January 2023) 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), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #> -------------------------------------------------------------------------------- #> \"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: 90% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 712 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,712 'phenotype-based' first isolates (90.4% 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,712 × 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 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  8 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #>  9 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> 10 Z1         A        2014-09-05 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,702 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:2712        Length:2712        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-05-03   #>  Mode  :character   Mode  :character   Median :2015-06-16   #>                                        Mean   :2015-06-21   #>                                        3rd Qu.:2017-08-24   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :42.9% (n=1163)   %R   :36.1% (n=978)    #>  Unique:4              %SI  :57.1% (n=1549)   %SI  :63.9% (n=1734)   #>  #1    :B_ESCHR_COLI   - %S :41.0% (n=1112)   - %S :52.0% (n=1409)   #>  #2    :B_STPHY_AURS   - %I :16.1% (n=437)    - %I :12.0% (n=325)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1138)   %R   :37.3% (n=1011)   TRUE:2712      #>  %SI  :58.0% (n=1574)   %SI  :62.7% (n=1701)                  #>  - %S :51.5% (n=1396)   - %S :59.6% (n=1616)                  #>  - %I : 6.6% (n=178)    - %I : 3.1% (n=85)                    #>   glimpse(our_data_1st) #> Rows: 2,712 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\", \"Z1\"… #> $ 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, S, S, S, S, R, S, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, I, S, S, S, S, R, S, S,… #> $ 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, R, S, 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       1852          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          1319 #> 2 Staphylococcus aureus      676 #> 3 Streptococcus pneumoniae   400 #> 4 Klebsiella pneumoniae      317"},{"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,712 × 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 2015-10-25 S     #>  7 2019-06-19 S     #>  8 2015-04-27 S     #>  9 2011-06-21 S     #> 10 2014-09-05 S     #> # ℹ 2,702 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,712 × 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 S     S     #>  8 B_STPHY_AURS S     S     #>  9 B_ESCHR_COLI S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,702 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,712 × 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 S     S     S     S     #>  8 B_STPHY_AURS S     S     S     S     #>  9 B_ESCHR_COLI S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,702 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 1,011 × 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  #> # ℹ 1,001 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 483 × 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 B6         A        2016-11-20 B_ESCHR_COLI R     R     R     R     TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS R     R     S     S     TRUE  #> # ℹ 473 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: 483 × 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 B6         A        2016-11-20 B_ESCHR_COLI R     R     R     R     TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS R     R     S     S     TRUE  #> # ℹ 473 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.4288348 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.342 #> 2 B              0.564 #> 3 C              0.372"},{"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: Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          R         R            S          R            S            I #> 2          S         S            S          S            R            I #> 3          S         S            R          S            S            I #> 4          I         I            R          I            I            I #> 5          I         I            I          R            I            R #> 6          R         S            I          R            I            I #>   kanamycin #> 1         S #> 2         R #> 3         I #> 4         S #> 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 171 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 14 July 2023 08:49:06 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 transport (XPT) file (48.6 MB) Download IBM SPSS Statistics data file (17.8 MB) Download Stata DTA file (48.6 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 ‘Microorganism’, 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 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (44 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (72 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0.1 MB) Download SAS transport (XPT) file (1.5 MB) Download IBM SPSS Statistics data file (0.4 MB) Download Stata DTA file (0.5 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 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (17 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (13 kB) Download SAS transport (XPT) file (73 kB) Download IBM SPSS Statistics data file (32 kB) Download Stata DTA file (78 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 29 747 rows 12 columns, containing following column names:guideline, type, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 20 October 2023 13:07:11 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (59 kB) Download tab-separated text file (2.3 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (96 kB) Download SAS transport (XPT) file (7.9 MB) Download IBM SPSS Statistics data file (4.6 MB) Download Stata DTA file (7.8 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). Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software. CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","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 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 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).","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/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Data sets for download / own use","text":"data set 521 rows 4 columns, containing following column names:mo_group, mo, mo_group_name, mo_name. data set R available microorganisms.groups, load AMR package. last updated 14 July 2023 08:49:06 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (49 kB) Download Microsoft Excel workbook (20 kB) Download Apache Feather file (19 kB) Download Apache Parquet file (13 kB) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (81 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-8","dir":"Articles","previous_headings":"microorganisms.groups: Species Groups and Microbiological Complexes","what":"Source","title":"Data sets for download / own use","text":"data set contains species groups microbiological complexes, used clinical_breakpoints data set.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Data sets for download / own use","text":"data set 4 957 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (22 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (91 kB) Download Apache Feather file (85 kB) Download Apache Parquet file (57 kB) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (0.1 MB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-9","dir":"Articles","previous_headings":"microorganisms.codes: Common Laboratory Codes","what":"Source","title":"Data sets for download / own use","text":"data set contains commonly used codes microorganisms, laboratory systems WHONET.","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-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: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 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 public 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.s.berends@umcg.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] \"101498-4\" \"15-8\"     \"16-6\"     \"16365-9\"  \"17-4\"     \"18-2\"     #>  [7] \"18861-5\"  \"18862-3\"  \"19-0\"     \"20-8\"     \"21-6\"     \"22-4\"     #> [13] \"25274-2\"  \"25310-4\"  \"3344-9\"   \"55614-2\"  \"55615-9\"  \"55616-7\"  #> [19] \"6976-5\"   \"6977-3\"   \"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] \"101477-8\" \"101478-6\" \"18864-9\"  \"18865-6\"  \"20374-5\"  \"21066-6\"  #>  [7] \"23618-2\"  \"27-3\"     \"28-1\"     \"29-9\"     \"30-7\"     \"31-5\"     #> [13] \"32-3\"     \"33-1\"     \"3355-5\"   \"33562-0\"  \"33919-2\"  \"34-9\"     #> [19] \"43883-8\"  \"43884-6\"  \"6979-9\"   \"6980-7\"   \"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  1998-04-08  25  25.65753          1 #> 2  1972-01-04  51  51.91507         27 #> 3  1997-10-15  26  26.13699          2 #> 4  1968-01-21  55  55.86849         31 #> 5  1954-03-04  69  69.75342         45 #> 6  1983-02-12  40  40.80822         16 #> 7  1971-07-13  52  52.39452         28 #> 8  1931-10-10  92  92.15068         68 #> 9  1941-12-06  81  81.99452         58 #> 10 1983-03-09  40  40.73973         16"},{"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 S      #> 2 S      #> 3 I      #> 4 R      #> 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.807 #> 2 ICU        0.551 0.780 #> 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. unique identifier. cid Compound ID found PubChem. unique identifier. name Official name used WHONET/EARS-Net . unique identifier. 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 codes associated name antimicrobial drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). 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 Antiviral ID used package (ACI), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. Combinations codes contain + indicate , ATA+COBI atazanavir/cobicistat. name Official name used WHONET/EARS-Net . unique identifier. atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem. unique identifier. 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 codes associated name antiviral drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use av_loinc() retrieve quickly, see av_property().","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.76 (18 September, 2023). Accessed https://loinc.org October 19th, 2023. 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\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB #> 1 Escherichia coli   S <NA>   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, keep_operators = \"all\")  is.mic(x)  NA_mic_  rescale_mic(x, mic_range, keep_operators = \"edges\", as.mic = TRUE)  # 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 keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range plot MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). .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. rescale_mic(), existing MIC ranges can rescaled defined range MIC values. can useful better compare MIC distributions. ggplot2, use one scale_*_mic() functions plot MIC values. allows custom MIC ranges plot intermediate log2 levels missing MIC values. 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  # rescale MICs using rescale_mic() rescale_mic(mic_data, mic_range = c(4, 16)) #> Class 'mic' #> [1] >=16 <=4  <=4  <=4  8    <=4  8    >=16 >=16  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMX' (amoxicillin), 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\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMX' (amoxicillin), 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 }"},{"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 'Microorganism', 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 = 1.25, Protozoa = 1.5, Archaea = 2, others = 3. 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.25 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.381\\), 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  # input will get cleaned up with the input given in the `cleaning_regex` argument, # which defaults to `mo_cleaning_regex()`: cat(mo_cleaning_regex(), \"\\n\") #> ([^A-Za-z- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )(e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   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. Currently available breakpoint guidelines EUCAST 2011-2023 CLSI 2011-2023, available breakpoint types \"ECOFF\", \"animal\", \"human\". 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),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\") )  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. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. 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":"Note: clinical breakpoints package validated imported WHONET public use AMR package endorsed CLSI EUCAST, please see clinical_breakpoints information. 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 29 747 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) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. 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: 13 × 13 #>    datetime            index ab_user    mo_user    ab   mo                input #>    <dttm>              <int> <chr>      <chr>      <ab> <mo>              <dbl> #>  1 2023-12-04 07:24:20     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #>  2 2023-12-04 07:24:20     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #>  3 2023-12-04 07:24:19     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256 #>  4 2023-12-04 07:24:19     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8     #>  5 2023-12-04 07:24:15     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01  #>  6 2023-12-04 07:24:15     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #>  7 2023-12-04 07:24:15     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4     #>  8 2023-12-04 07:24:15     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8     #>  9 2023-12-04 07:24:15     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #> 10 2023-12-04 07:24:14     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #> 11 2023-12-04 07:24:14     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #> 12 2023-12-04 07:24:14     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20     #> 13 2023-12-04 07:24:14     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18     #> # ℹ 6 more variables: outcome <sir>, method <chr>, breakpoint_S_R <chr>, #> #   guideline <chr>, ref_table <chr>, uti <lgl>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), 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\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), 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) } #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  OK  #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB ERY #> 1 Escherichia coli   S <NA>   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\" \"30273-7\" \"30287-7\" \"30303-2\" \"78772-1\" \"78773-9\" \"79134-3\" #> [8] \"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 29 747 observations 12 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different types of breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported from WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response from CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"download","dir":"Reference","previous_headings":"","what":"Download","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI, though initiatives started overcome burdens. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","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: 29,747 × 12 #>    guideline type  method site  mo            rank_index ab   ref_tbl  disk_dose #>    <chr>     <chr> <chr>  <chr> <mo>               <dbl> <ab> <chr>    <chr>     #>  1 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 MEM  A. xylo… 10ug      #>  2 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 MEM  A. xylo… NA        #>  3 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 SXT  A. xylo… 1.25ug/2… #>  4 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 SXT  A. xylo… NA        #>  5 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 TZP  A. xylo… 30ug/6ug  #>  6 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 TZP  A. xylo… NA        #>  7 EUCAST 2… human DISK   NA    B_ACNTB                3 AMK  Acineto… 30ug      #>  8 EUCAST 2… human DISK   Unco… B_ACNTB                3 AMK  Acineto… 30ug      #>  9 EUCAST 2… human MIC    NA    B_ACNTB                3 AMK  Acineto… NA        #> 10 EUCAST 2… human MIC    Unco… B_ACNTB                3 AMK  Acineto… NA        #> # ℹ 29,737 more rows #> # ℹ 3 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, uti <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" being resistant. This note will be shown once for this #> session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) \"aminopenicillins\"(amoxicillin ampicillin) \"antifungals\"(amphotericin B, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) \"antimycobacterials\"(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) \"betalactams\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"carbapenems\"(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) \"cephalosporins\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"cephalosporins_1st\"(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) \"cephalosporins_2nd\"(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) \"cephalosporins_3rd\"(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) \"cephalosporins_4th\"(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) \"cephalosporins_5th\"(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) \"cephalosporins_except_caz\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"fluoroquinolones\"(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"glycopeptides\"(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) \"glycopeptides_except_lipo\"(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) \"lincosamides\"(acetylmidecamycin, acetylspiramycin, clindamycin, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) \"lipoglycopeptides\"(dalbavancin, oritavancin, telavancin) \"macrolides\"(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) \"oxazolidinones\"(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) \"penicillins\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"polymyxins\"(colistin, polymyxin B, polymyxin B/polysorbate 80) \"quinolones\"(besifloxacin, cinoxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"streptogramins\"(pristinamycin quinupristin/dalfopristin) \"tetracyclines\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) \"tetracyclines_except_tgc\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) \"trimethoprims\"(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) \"ureidopenicillins\"(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 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,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated 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' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,373 'phenotype-based' first isolates (68.7% of total where a #>    microbial ID was available) #> # A tibble: 1,373 × 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,363 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: 434 × 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    #> # ℹ 424 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,373 'phenotype-based' first isolates (68.7% of total where a #>    microbial ID was available) #> # A tibble: 1,373 × 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,363 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,373 × 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,363 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 857 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 447 'phenotype-based' first isolates (69.2% 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 (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] 43  2 27 21 48 28  6  4 21 26 36 20 18 20  9 48  7 39 13 12  7  5 19  3  8 #>  [26]  6 13 47 16 29 15 47  3 12 20 42 23 15  4 25 32 10 24  3 30 46  1  5 37 43 #>  [51]  8 34 22 31 46 43 16 33 22 29 22 18 44 15 36 21 35 44  2 33 45 38 42 43 28 #>  [76] 27 10 14 16 47  5 40 15 27 12  4 41 11 26 22 32 38 13 46  8 29 34 17 47  1 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE #>  [13]  TRUE FALSE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE #>  [25]  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE #>  [37]  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE #>  [49]  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [61] FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE #>  [73] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [85] FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE #>  [97] FALSE  TRUE 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-11-21 450741     77 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> 2 2002-11-18 956065     89 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #> 3 2002-11-14 058917     76 F      ICU      B_STPHY_HMNS 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 [99] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 058917  2002-11-14 B         TRUE        #>  2 065133  2011-12-19 C         TRUE        #>  3 067927  2002-02-14 A         TRUE        #>  4 077922  2009-08-18 A         TRUE        #>  5 082622  2014-02-08 C         TRUE        #>  6 092034  2016-08-07 A         TRUE        #>  7 0C0688  2014-09-05 C         TRUE        #>  8 0E2483  2007-05-29 C         TRUE        #>  9 110918  2016-05-08 C         TRUE        #> 10 114570  2003-04-08 A         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [94] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 ICU      2002-11-14 058917          1 TRUE        #>  2 Clinical 2011-12-19 065133          1 TRUE        #>  3 ICU      2002-02-14 067927          1 TRUE        #>  4 Clinical 2009-08-18 077922          1 TRUE        #>  5 ICU      2014-02-08 082622          1 TRUE        #>  6 Clinical 2016-08-07 092034          1 TRUE        #>  7 Clinical 2014-09-05 0C0688          1 TRUE        #>  8 Clinical 2007-05-29 0E2483          1 TRUE        #>  9 ICU      2016-05-08 110918          1 TRUE        #> 10 ICU      2003-04-08 114570          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           61             13            40            46 #> 2 ICU                30             10            23            26 #> 3 Outpatient          3              3             3             3  # 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 329C35  B_ESCHR_COLI Clinical   TRUE         #>  2 B8CB09  B_STPHY_CONS Outpatient TRUE         #>  3 F54287  B_KLBSL_OXYT Clinical   TRUE         #>  4 532360  B_PSDMN_AERG Clinical   TRUE         #>  5 F67215  B_STPHY_EPDR Clinical   TRUE         #>  6 387C40  B_KLBSL_PNMN Clinical   TRUE         #>  7 C36883  B_ESCHR_COLI Clinical   TRUE         #>  8 114570  B_STRPT_PYGN ICU        TRUE         #>  9 207752  B_ESCHR_COLI ICU        TRUE         #> 10 966513  B_STPHY_HMNS Clinical   TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result, main = \"Base R biplot\")    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result) +       labs(title = \"ggplot2 biplot\")   }   if (require(\"ggplot2\")) {     # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"ggplot2 biplot\")   } } #> 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] 1376 # }"},{"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.965336 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.01197974"},{"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) (doi:10.1111/j.1469-0691.2011.03570.x ) 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\") 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() } #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> 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] S R R R R S S I I R mean_amr_distance(sir) #>  [1] -0.9486833  0.9486833  0.9486833  0.9486833  0.9486833 -0.9486833 #>  [7] -0.9486833 -0.9486833 -0.9486833  0.9486833  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 64     0.01   0.125  0.25   >=256  0.0625 0.25   32     4      0.5    mean_amr_distance(mic) #>  [1]  1.2031622 -1.4359065 -0.6753484 -0.4666250  1.6206090 -0.8840718 #>  [7] -0.4666250  0.9944388  0.3682686 -0.2579016 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1]  1.2031622 -1.4359065 -0.6753484 -0.4666250  1.6206090 -0.8840718 #>  [7] -0.4666250  0.9944388  0.3682686 -0.2579016  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 15 42 36 45 47 50 16 25 43 49 mean_amr_distance(disk) #>  [1] -1.63113065  0.38907704 -0.05985801  0.61354456  0.76318957  0.98765709 #>  [7] -1.55630815 -0.88290558  0.46389954  0.91283459  y <- data.frame(   id = LETTERS[1:10],   amox = random_sir(10, ab = \"amox\", mo = \"Escherichia coli\"),   cipr = random_disk(10, ab = \"cipr\", mo = \"Escherichia coli\"),   gent = random_mic(10, ab = \"gent\", mo = \"Escherichia coli\"),   tobr = random_mic(10, ab = \"tobr\", mo = \"Escherichia coli\") ) y #>    id amox cipr gent tobr #> 1   A    I   26  >=8    2 #> 2   B    S   26    2  0.5 #> 3   C    R   26    2  >=4 #> 4   D    I   28  <=1 0.25 #> 5   E    I   21  <=1    1 #> 6   F    S   29    4  >=4 #> 7   G    I   22    2    2 #> 8   H    I   29    4  >=4 #> 9   I    I   26    4 0.25 #> 10  J    R   17  >=8 0.25 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.423532301 -0.328588957  0.698154916 -0.575069322 -0.739389038 #>  [6]  0.531053275 -0.298538277  0.531053275 -0.241739536 -0.000468637 y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in .subset(x, j): invalid subscript type 'list' y[order(y$amr_distance), ] #> Error in order(y$amr_distance): argument 1 is not a vector  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>    id amox cipr gent tobr amr_distance check_id_C #> 1   C    R   26    2  >=4  0.698154916  0.0000000 #> 2   F    S   29    4  >=4  0.531053275  0.1671016 #> 3   H    I   29    4  >=4  0.531053275  0.1671016 #> 4   A    I   26  >=8    2  0.423532301  0.2746226 #> 5   J    R   17  >=8 0.25 -0.000468637  0.6986236 #> 6   I    I   26    4 0.25 -0.241739536  0.9398945 #> 7   G    I   22    2    2 -0.298538277  0.9966932 #> 8   B    S   26    2  0.5 -0.328588957  1.0267439 #> 9   D    I   28  <=1 0.25 -0.575069322  1.2732242 #> 10  E    I   21  <=1    1 -0.739389038  1.4375440 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 957 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 957 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 957 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 957 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 957 observations 2 variables: code Commonly used code microorganism. unique identifier. 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 957 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 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,957 × 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_ENTR_ENTR #>  8 1100  B_STRPT           #>  9 1101  B_STRPT_VIRI      #> 10 1102  B_STRPT_HAEM      #> # ℹ 4,947 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.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"data set containing species groups microbiological complexes, used clinical breakpoints table.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 521 observations 4 variables: mo_group ID species group / microbiological complex mo ID microorganism belonging species group / microbiological complex mo_group_name Name species group / microbiological complex, retrieved mo_name() mo_name Name microorganism belonging species group / microbiological complex, retrieved mo_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","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.groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> # A tibble: 521 × 4 #>    mo_group       mo           mo_group_name                   mo_name           #>    <mo>           <mo>         <chr>                           <chr>             #>  1 B_ACNTB_BMNN-C B_ACNTB_BMNN Acinetobacter baumannii complex Acinetobacter ba… #>  2 B_ACNTB_BMNN-C B_ACNTB_CLCC Acinetobacter baumannii complex Acinetobacter ca… #>  3 B_ACNTB_BMNN-C B_ACNTB_DJKS Acinetobacter baumannii complex Acinetobacter di… #>  4 B_ACNTB_BMNN-C B_ACNTB_NSCM Acinetobacter baumannii complex Acinetobacter no… #>  5 B_ACNTB_BMNN-C B_ACNTB_PITT Acinetobacter baumannii complex Acinetobacter pi… #>  6 B_ACNTB_BMNN-C B_ACNTB_SFRT Acinetobacter baumannii complex Acinetobacter se… #>  7 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex    Bacteroides frag… #>  8 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex    Bacteroides ovat… #>  9 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex    Bacteroides thet… #> 10 B_BCTRD_FRGL-C B_BCTRD_VLGT Bacteroides fragilis complex    Bacteroides vulg… #> # ℹ 511 more rows  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> # A tibble: 5 × 4 #>   mo_group       mo           mo_group_name                mo_name               #>   <mo>           <mo>         <chr>                        <chr>                 #> 1 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex Bacteroides fragilis  #> 2 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex Bacteroides ovatus    #> 3 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex Bacteroides thetaiot… #> 4 B_BCTRD_FRGL-C B_BCTRD_VLGT Bacteroides fragilis complex Bacteroides vulgatus  #> 5 B_BCTRD_FRGL-C B_PRBCT_DSTS Bacteroides fragilis complex Parabacteroides dist…"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 171 Microorganisms — microorganisms","title":"Data Set with 52 171 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 171 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 171 Microorganisms — microorganisms","text":"tibble 52 171 observations 23 variables: mo ID microorganism used package. unique identifier. fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. unique identifier. 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. 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% ~37 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 171 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 'Microorganism', 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 171 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 171 Microorganisms — microorganisms","text":"Included taxonomic data : ~37 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 171 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 36 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 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 171 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 171 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 171 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,171 × 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,161 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 = 1.25, Protozoa = 1.5, Archaea = 2, others = 3. 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.25 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.381\\), 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), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #>  #> 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.3809524"},{"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 'Microorganism', 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. Especially scale_*_mic() functions relevant wrappers plot MIC values ggplot2. allows custom MIC ranges plot intermediate log2 levels missing MIC values.","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":"scale_x_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_y_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_colour_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  scale_fill_mic(keep_operators = \"edges\", mic_range = NULL, drop = FALSE, ...)  # 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,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # 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":"keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range plot MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). drop logical remove intermediate MIC values, defaults FALSE ... arguments passed methods 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. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type.","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 = \"nl\")    # Plotting using scale_x_mic() # \\donttest{ if (require(\"ggplot2\")) {   mic_plot <- ggplot(data.frame(mics = as.mic(c(0.125, \"<=4\", 4, 8, 32, \">=32\")),                                 counts = c(1, 1, 2, 2, 3, 3)),                      aes(mics, counts)) +     geom_col()   mic_plot +     labs(title = \"without scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic() +     labs(title = \"with scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(keep_operators = \"all\") +     labs(title = \"with scale_x_mic() keeping all operators\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(1, 128)) +     labs(title = \"with scale_x_mic() using a manual range\") }   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":"Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. 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. 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] 32    1     0.01  0.005 32    0.025 >=256 32    0.025 0.005 0.25  2     #> [13] 0.001 8     16    0.001 8     64    8     16    0.001 0.002 0.025 16    #> [25] 16    random_disk(25) #> Class 'disk' #>  [1] 31 19 46 34 39 11 18 21 43  6 50 28 15 48 11 50 42 30 25 29 49 22 50 20  6 random_sir(25) #> Class 'sir' #>  [1] I I R R S R I R I R I I S S R I S S I I S R S 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] 128    0.001  0.01   128    0.002  16     0.01   0.002  0.025  256    #> [11] 8      0.025  0.002  2      256    0.25   0.125  16     2      0.002  #> [21] 16     128    128    128    0.0625 random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 32  1   16  16  32  32  2   16  0.5 8   32  8   8   8   32  32  16  4   1   #> [20] 2   4   8   4   16  1   random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 0.5      2        >=4      <=0.0625 0.5      1        0.25     2        #>  [9] 1        >=4      1        0.125    2        0.25     1        >=4      #> [17] 1        2        2        >=4      >=4      1        0.25     >=4      #> [25] 1         random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 48 11 40 10 50 25 40 49 42 18 32 47 27 36 36 13 42 50 47 18 49 14 50 39 12 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 15 15 15 11 17 13 17 11 16 13 12 13 15 13 16 12 12 16 13 15 17 16 11 14 15 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 26 16 16 21 17 24 20 15 24 23 17 16 25 16 19 15 18 27 26 21 27 27 19 27 26 # }"},{"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) 27.05312   72.24652   0.374    0.708 #> year        -0.01286    0.03601  -0.357    0.721 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.7883  on 11  degrees of freedom #> Residual deviance: 5.6608  on 10  degrees of freedom #> AIC: 50.745 #>  #> 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.0707631"},{"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(\"Dutch\") #> ℹ Using Dutch (Nederlands) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacine\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negatieve Staphylococcus (CNS)\"  # setting yet another language set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Koagulase-negative Staphylococcus (KNS)\"  # 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":"breaking-2-1-1-9004","dir":"Changelog","previous_headings":"","what":"Breaking","title":"AMR 2.1.1.9004","text":"Removed functions references used deprecated rsi class, replaced sir equivalents year ago","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-1-9004","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.1.9004","text":"Function group scale_*_mic(), namely: scale_x_mic(), scale_y_mic(), scale_colour_mic() scale_fill_mic(). advanced ggplot2 extensions allow plotting MIC values. allow manual range definition plotting missing intermediate log2 levels. Function rescale_mic(), allows rescale MIC values manually set range. powerhouse behind scale_*_mic() functions, can used users directly e.g. compare equality MIC distributions rescaling range first.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-1-9004","dir":"Changelog","previous_headings":"New","what":"Changed","title":"AMR 2.1.1.9004","text":"Added 4096 5 powers 192 valid levels (192, 384, 576, 768, 960) Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\".","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-211","dir":"Changelog","previous_headings":"","what":"AMR 2.1.1","title":"AMR 2.1.1","text":"CRAN release: 2023-10-21 included many isolates patients altering antibiograms within bacterial species See info issue #122 Added 1,366 LOINC codes antibiotics data set updated latest version (LOINC v2.76) MICs can now used complex number calculations allow scientific number format input (e.g., .mic(\"1.28e-2\")) Fix rounding MICs latest R beta (‘R-devel’) Removed unneeded note used language option AMR_locale set Fixed non-ASCII characters documentation, according CRAN maintainers","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-210","dir":"Changelog","previous_headings":"","what":"AMR 2.1.0","title":"AMR 2.1.0","text":"CRAN release: 2023-07-16","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-0","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.0","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added clinical_breakpoints data set usage .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations EUCAST dosage guideline v13.0 added dosage data set clinical_breakpoints data set now also contains epidemiological cut-(ECOFF) values CLSI animal breakpoints. two new breakpoint types can used MIC/disk interpretation using .sir(..., breakpoint_type = \"ECOFF\") oras.sir(..., breakpoint_type = \"animal\"), important new addition veterinary microbiology. Added support 30 species groups / complexes. gathered new data set microorganisms.groups used clinical breakpoint interpretation. example, CLSI 2023 contains breakpoints RGM group (Rapidly Growing Mycobacterium, containing 80 species) now supported package. 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-1-0","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.1.0","text":"Updated algorithm .mo() giving weight fungi Fixed clinical breakpoints errors introduced source import rules mo_rank() now returns NA ‘unknown’ microorganisms (B_ANAER, B_ANAER-NEG, B_ANAER-POS, B_GRAMN, B_GRAMP, F_FUNGUS, F_YEAST, UNKNOWN) printing microorganism antibiotic codes tibble, mouse-hover now shows full name code Now settable arguments breakpoint type PK/PD, like .sir() now contain name guideline table subtitle plot 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 Fixed endless loop using reference_df .mo() Fixed bug indicating UTIs .sir() Greatly improved speed .sir()","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 (January 2023) later. prior versions, please see archive.","code":""}]