From 1c32c669a04909946cb3b24185f11c996351d6db Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Tue, 24 Sep 2024 20:49:01 +0000
Subject: [PATCH] Built site for AMR@2.1.1.9080: a558f4c

---
 404.html                                  |   2 +-
 LICENSE-text.html                         |   2 +-
 articles/AMR.html                         |  10 +-
 articles/EUCAST.html                      |   2 +-
 articles/MDR.html                         |   2 +-
 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                                | 238 ++++++++++++----------
 news/index.html                           |  27 +--
 pkgdown.yml                               |   2 +-
 reference/AMR-options.html                |   2 +-
 reference/AMR.html                        |   2 +-
 reference/WHOCC.html                      |   2 +-
 reference/WHONET.html                     |   2 +-
 reference/ab_from_text.html               |   2 +-
 reference/ab_property.html                |   4 +-
 reference/add_custom_antimicrobials.html  |   6 +-
 reference/add_custom_microorganisms.html  |   6 +-
 reference/age.html                        |  22 +-
 reference/age_groups.html                 |   2 +-
 reference/antibiogram.html                |   6 +-
 reference/antibiotic_class_selectors.html |   2 +-
 reference/antibiotics.html                |   2 +-
 reference/as.ab.html                      |   2 +-
 reference/as.av.html                      |   2 +-
 reference/as.disk.html                    |   2 +-
 reference/as.mic.html                     |   2 +-
 reference/as.mo.html                      |  10 +-
 reference/as.sir.html                     |  78 +++----
 reference/atc_online.html                 |   2 +-
 reference/av_from_text.html               |   2 +-
 reference/av_property.html                |   4 +-
 reference/availability.html               |   2 +-
 reference/bug_drug_combinations.html      |   4 +-
 reference/clinical_breakpoints.html       |  27 ++-
 reference/count.html                      |   4 +-
 reference/custom_eucast_rules.html        |   2 +-
 reference/dosage.html                     |   2 +-
 reference/eucast_rules.html               |   6 +-
 reference/example_isolates.html           |   2 +-
 reference/example_isolates_unclean.html   |   2 +-
 reference/export_ncbi_biosample.html      |   2 +-
 reference/first_isolate.html              |   2 +-
 reference/g.test.html                     |   2 +-
 reference/get_episode.html                |   2 +-
 reference/ggplot_pca.html                 |   2 +-
 reference/ggplot_sir.html                 |   4 +-
 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                   |   2 +-
 reference/like.html                       |   2 +-
 reference/mdro.html                       |   2 +-
 reference/mean_amr_distance.html          |   2 +-
 reference/microorganisms.codes.html       |   2 +-
 reference/microorganisms.groups.html      |   2 +-
 reference/microorganisms.html             |   2 +-
 reference/mo_matching_score.html          |   2 +-
 reference/mo_property.html                |   4 +-
 reference/mo_source.html                  |   4 +-
 reference/pca.html                        |   2 +-
 reference/plot-10.png                     | Bin 26103 -> 25812 bytes
 reference/plot-11.png                     | Bin 38164 -> 31245 bytes
 reference/plot-12.png                     | Bin 55829 -> 38164 bytes
 reference/plot-13.png                     | Bin 25676 -> 55829 bytes
 reference/plot-14.png                     | Bin 0 -> 25676 bytes
 reference/plot-7.png                      | Bin 25105 -> 24961 bytes
 reference/plot-8.png                      | Bin 26027 -> 26216 bytes
 reference/plot-9.png                      | Bin 29649 -> 29217 bytes
 reference/plot.html                       |  28 ++-
 reference/proportion.html                 |   4 +-
 reference/random.html                     |   2 +-
 reference/resistance_predict.html         |   2 +-
 reference/skewness.html                   |   2 +-
 reference/translate.html                  |   8 +-
 search.json                               |   2 +-
 85 files changed, 321 insertions(+), 297 deletions(-)
 create mode 100644 reference/plot-14.png

diff --git a/404.html b/404.html
index d0dd8829..776970d8 100644
--- a/404.html
+++ b/404.html
@@ -30,7 +30,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 b89bd7e0..2122b812 100644
--- a/LICENSE-text.html
+++ b/LICENSE-text.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 dd553d39..47b94436 100644
--- a/articles/AMR.html
+++ b/articles/AMR.html
@@ -29,7 +29,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -95,7 +95,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 22 September 2024.</p>
+generated on 24 September 2024.</p>
 <div class="section level2">
 <h2 id="introduction">Introduction<a class="anchor" aria-label="anchor" href="#introduction"></a>
 </h2>
@@ -151,21 +151,21 @@ make the structure of your data generally look like this:</p>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="center">2024-09-22</td>
+<td align="center">2024-09-24</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">2024-09-22</td>
+<td align="center">2024-09-24</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">2024-09-22</td>
+<td align="center">2024-09-24</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 d9d18aaa..d6400792 100644
--- a/articles/EUCAST.html
+++ b/articles/EUCAST.html
@@ -29,7 +29,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 6097cac9..3fe7fa7e 100644
--- a/articles/MDR.html
+++ b/articles/MDR.html
@@ -29,7 +29,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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/PCA.html b/articles/PCA.html
index 19982c27..fab61d7d 100644
--- a/articles/PCA.html
+++ b/articles/PCA.html
@@ -29,7 +29,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 bfb8a546..888eb94e 100644
--- a/articles/WHONET.html
+++ b/articles/WHONET.html
@@ -29,7 +29,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 fa5436eb..ee27c9d5 100644
--- a/articles/datasets.html
+++ b/articles/datasets.html
@@ -29,7 +29,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -84,7 +84,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">22 September 2024</h4>
+            <h4 data-toc-skip class="date">24 September 2024</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/main/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 ac08c6a7..2acb56e3 100644
--- a/articles/index.html
+++ b/articles/index.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 0c6b327d..dc6d9855 100644
--- a/articles/other_pkg.html
+++ b/articles/other_pkg.html
@@ -29,7 +29,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 7b3692e4..bdcf2c34 100644
--- a/articles/resistance_predict.html
+++ b/articles/resistance_predict.html
@@ -29,7 +29,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 758f71aa..ece52ce0 100644
--- a/articles/welcome_to_AMR.html
+++ b/articles/welcome_to_AMR.html
@@ -29,7 +29,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 6ec4e372..f0e92e45 100644
--- a/authors.html
+++ b/authors.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 4574e80a..0ea7d692 100644
--- a/index.html
+++ b/index.html
@@ -32,7 +32,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -92,7 +92,7 @@
 <li>Generates <strong>antibiograms</strong> - traditional, combined, syndromic, and even WISCA</li>
 <li>Provides the <strong>full microbiological taxonomy</strong> and extensive info on <strong>all antimicrobial drugs</strong>
 </li>
-<li>Applies all recent <strong>CLSI</strong> and <strong>EUCAST</strong> clinical and veterinary breakpoints for MICs and disk zones</li>
+<li>Applies all recent <strong>CLSI</strong> and <strong>EUCAST</strong> clinical and veterinary breakpoints for MICs, disk zones and ECOFFs</li>
 <li>Corrects for duplicate isolates, <strong>calculates</strong> and <strong>predicts</strong> AMR per antibiotic class</li>
 <li>Integrates with <strong>WHONET</strong>, ATC, <strong>EARS-Net</strong>, PubChem, <strong>LOINC</strong>, <strong>SNOMED CT</strong>, and <strong>NCBI</strong>
 </li>
@@ -267,115 +267,115 @@
 <div class="sourceCode" id="cb4"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="reference/antibiogram.html">antibiogram</a></span><span class="op">(</span><span class="va">example_isolates</span>,</span>
 <span>            antibiotics <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fu"><a href="reference/antibiotic_class_selectors.html">aminoglycosides</a></span><span class="op">(</span><span class="op">)</span>, <span class="fu"><a href="reference/antibiotic_class_selectors.html">carbapenems</a></span><span class="op">(</span><span class="op">)</span><span class="op">)</span><span class="op">)</span></span></code></pre></div>
-<table class="table">
+<table style="width:100%;" class="table">
+<colgroup>
+<col width="18%">
+<col width="13%">
+<col width="12%">
+<col width="13%">
+<col width="13%">
+<col width="13%">
+<col width="13%">
+</colgroup>
 <thead><tr class="header">
-<th align="left">Pathogen (N min-max)</th>
-<th align="right">AMK</th>
-<th align="right">GEN</th>
-<th align="right">IPM</th>
-<th align="right">KAN</th>
-<th align="right">MEM</th>
-<th align="right">TOB</th>
+<th align="left">Pathogen</th>
+<th align="center">Amikacin</th>
+<th align="center">Gentamicin</th>
+<th align="center">Imipenem</th>
+<th align="center">Kanamycin</th>
+<th align="center">Meropenem</th>
+<th align="center">Tobramycin</th>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="left">CoNS (43-309)</td>
-<td align="right">0</td>
-<td align="right">86</td>
-<td align="right">52</td>
-<td align="right">0</td>
-<td align="right">52</td>
-<td align="right">22</td>
+<td align="left">CoNS</td>
+<td align="center">0% (0/43)</td>
+<td align="center">86% (267/309)</td>
+<td align="center">52% (25/48)</td>
+<td align="center">0% (0/43)</td>
+<td align="center">52% (25/48)</td>
+<td align="center">22% (12/55)</td>
 </tr>
 <tr class="even">
-<td align="left">
-<em>E. coli</em> (0-462)</td>
-<td align="right">100</td>
-<td align="right">98</td>
-<td align="right">100</td>
-<td align="right"></td>
-<td align="right">100</td>
-<td align="right">97</td>
+<td align="left"><em>E. coli</em></td>
+<td align="center">100% (171/171)</td>
+<td align="center">98% (451/460)</td>
+<td align="center">100% (422/422)</td>
+<td align="center"></td>
+<td align="center">100% (418/418)</td>
+<td align="center">97% (450/462)</td>
 </tr>
 <tr class="odd">
-<td align="left">
-<em>E. faecalis</em> (0-39)</td>
-<td align="right">0</td>
-<td align="right">0</td>
-<td align="right">100</td>
-<td align="right">0</td>
-<td align="right"></td>
-<td align="right">0</td>
+<td align="left"><em>E. faecalis</em></td>
+<td align="center">0% (0/39)</td>
+<td align="center">0% (0/39)</td>
+<td align="center">100% (38/38)</td>
+<td align="center">0% (0/39)</td>
+<td align="center"></td>
+<td align="center">0% (0/39)</td>
 </tr>
 <tr class="even">
-<td align="left">
-<em>K. pneumoniae</em> (0-58)</td>
-<td align="right"></td>
-<td align="right">90</td>
-<td align="right">100</td>
-<td align="right"></td>
-<td align="right">100</td>
-<td align="right">90</td>
+<td align="left"><em>K. pneumoniae</em></td>
+<td align="center"></td>
+<td align="center">90% (52/58)</td>
+<td align="center">100% (51/51)</td>
+<td align="center"></td>
+<td align="center">100% (53/53)</td>
+<td align="center">90% (52/58)</td>
 </tr>
 <tr class="odd">
-<td align="left">
-<em>P. aeruginosa</em> (17-30)</td>
-<td align="right"></td>
-<td align="right">100</td>
-<td align="right"></td>
-<td align="right">0</td>
-<td align="right"></td>
-<td align="right">100</td>
+<td align="left"><em>P. aeruginosa</em></td>
+<td align="center"></td>
+<td align="center">100% (30/30)</td>
+<td align="center"></td>
+<td align="center">0% (0/30)</td>
+<td align="center"></td>
+<td align="center">100% (30/30)</td>
 </tr>
 <tr class="even">
-<td align="left">
-<em>P. mirabilis</em> (0-34)</td>
-<td align="right"></td>
-<td align="right">94</td>
-<td align="right">94</td>
-<td align="right"></td>
-<td align="right"></td>
-<td align="right">94</td>
+<td align="left"><em>P. mirabilis</em></td>
+<td align="center"></td>
+<td align="center">94% (32/34)</td>
+<td align="center">94% (30/32)</td>
+<td align="center"></td>
+<td align="center"></td>
+<td align="center">94% (32/34)</td>
 </tr>
 <tr class="odd">
-<td align="left">
-<em>S. aureus</em> (2-233)</td>
-<td align="right"></td>
-<td align="right">99</td>
-<td align="right"></td>
-<td align="right"></td>
-<td align="right"></td>
-<td align="right">98</td>
+<td align="left"><em>S. aureus</em></td>
+<td align="center"></td>
+<td align="center">99% (231/233)</td>
+<td align="center"></td>
+<td align="center"></td>
+<td align="center"></td>
+<td align="center">98% (84/86)</td>
 </tr>
 <tr class="even">
-<td align="left">
-<em>S. epidermidis</em> (8-163)</td>
-<td align="right">0</td>
-<td align="right">79</td>
-<td align="right"></td>
-<td align="right">0</td>
-<td align="right"></td>
-<td align="right">51</td>
+<td align="left"><em>S. epidermidis</em></td>
+<td align="center">0% (0/44)</td>
+<td align="center">79% (128/163)</td>
+<td align="center"></td>
+<td align="center">0% (0/44)</td>
+<td align="center"></td>
+<td align="center">51% (45/89)</td>
 </tr>
 <tr class="odd">
-<td align="left">
-<em>S. hominis</em> (3-80)</td>
-<td align="right"></td>
-<td align="right">92</td>
-<td align="right"></td>
-<td align="right"></td>
-<td align="right"></td>
-<td align="right">85</td>
+<td align="left"><em>S. hominis</em></td>
+<td align="center"></td>
+<td align="center">92% (74/80)</td>
+<td align="center"></td>
+<td align="center"></td>
+<td align="center"></td>
+<td align="center">85% (53/62)</td>
 </tr>
 <tr class="even">
-<td align="left">
-<em>S. pneumoniae</em> (11-117)</td>
-<td align="right">0</td>
-<td align="right">0</td>
-<td align="right"></td>
-<td align="right">0</td>
-<td align="right"></td>
-<td align="right">0</td>
+<td align="left"><em>S. pneumoniae</em></td>
+<td align="center">0% (0/117)</td>
+<td align="center">0% (0/117)</td>
+<td align="center"></td>
+<td align="center">0% (0/117)</td>
+<td align="center"></td>
+<td align="center">0% (0/117)</td>
 </tr>
 </tbody>
 </table>
@@ -385,24 +385,30 @@
 <span>            antibiotics <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"TZP"</span>, <span class="st">"TZP+TOB"</span>, <span class="st">"TZP+GEN"</span><span class="op">)</span>,</span>
 <span>            mo_transform <span class="op">=</span> <span class="st">"gramstain"</span><span class="op">)</span></span></code></pre></div>
 <table class="table">
+<colgroup>
+<col width="12%">
+<col width="21%">
+<col width="33%">
+<col width="32%">
+</colgroup>
 <thead><tr class="header">
-<th align="left">Pathogen (N min-max)</th>
-<th align="right">TZP</th>
-<th align="right">TZP + GEN</th>
-<th align="right">TZP + TOB</th>
+<th align="left">Pathogen</th>
+<th align="center">Piperacillin/tazobactam</th>
+<th align="center">Piperacillin/tazobactam + Gentamicin</th>
+<th align="center">Piperacillin/tazobactam + Tobramycin</th>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="left">Gram-negative (641-693)</td>
-<td align="right">88</td>
-<td align="right">99</td>
-<td align="right">98</td>
+<td align="left">Gram-negative</td>
+<td align="center">88% (565/641)</td>
+<td align="center">99% (681/691)</td>
+<td align="center">98% (679/693)</td>
 </tr>
 <tr class="even">
-<td align="left">Gram-positive (345-1044)</td>
-<td align="right">86</td>
-<td align="right">98</td>
-<td align="right">95</td>
+<td align="left">Gram-positive</td>
+<td align="center">86% (296/345)</td>
+<td align="center">98% (1018/1044)</td>
+<td align="center">95% (524/550)</td>
 </tr>
 </tbody>
 </table>
@@ -414,24 +420,30 @@
 <span>            ab_transform <span class="op">=</span> <span class="st">"name"</span>,</span>
 <span>            language <span class="op">=</span> <span class="st">"uk"</span><span class="op">)</span> <span class="co"># Ukrainian</span></span></code></pre></div>
 <table class="table">
+<colgroup>
+<col width="20%">
+<col width="27%">
+<col width="26%">
+<col width="25%">
+</colgroup>
 <thead><tr class="header">
-<th align="left">Збудник (N min-max)</th>
-<th align="right">Гентаміцин</th>
-<th align="right">Тобраміцин</th>
-<th align="right">Ципрофлоксацин</th>
+<th align="left">Збудник</th>
+<th align="center">Гентаміцин</th>
+<th align="center">Тобраміцин</th>
+<th align="center">Ципрофлоксацин</th>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="left">Грамнегативні (684-686)</td>
-<td align="right">96</td>
-<td align="right">96</td>
-<td align="right">91</td>
+<td align="left">Грамнегативні</td>
+<td align="center">96% (659/684)</td>
+<td align="center">96% (658/686)</td>
+<td align="center">91% (621/684)</td>
 </tr>
 <tr class="even">
-<td align="left">Грампозитивні (665-1170)</td>
-<td align="right">63</td>
-<td align="right">34</td>
-<td align="right">77</td>
+<td align="left">Грампозитивні</td>
+<td align="center">63% (740/1170)</td>
+<td align="center">34% (228/665)</td>
+<td align="center">77% (560/724)</td>
 </tr>
 </tbody>
 </table>
diff --git a/news/index.html b/news/index.html
index 204fe3bb..b6f39e05 100644
--- a/news/index.html
+++ b/news/index.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -53,18 +53,18 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.1.1.9078" id="amr-2119078">AMR 2.1.1.9078<a class="anchor" aria-label="anchor" href="#amr-2119078"></a></h2>
+<h2 class="pkg-version" data-toc-text="2.1.1.9080" id="amr-2119080">AMR 2.1.1.9080<a class="anchor" aria-label="anchor" href="#amr-2119080"></a></h2>
 <p><em>(this beta version will eventually become v3.0. We’re happy to reach a new major milestone soon, which will be all about the new One Health support! Install this beta using <a href="https://msberends.github.io/AMR/#latest-development-version">the instructions here</a>.)</em></p>
 <div class="section level5">
-<h5 id="a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9078">A New Milestone: AMR v3.0 with One Health Support (= Human + Veterinary + Environmental)<a class="anchor" aria-label="anchor" href="#a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9078"></a></h5>
+<h5 id="a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9080">A New Milestone: AMR v3.0 with One Health Support (= Human + Veterinary + Environmental)<a class="anchor" aria-label="anchor" href="#a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9080"></a></h5>
 <p>This package now supports not only tools for AMR data analysis in clinical settings, but also for veterinary and environmental microbiology. This was made possible through a collaboration with the <a href="https://www.upei.ca/avc" class="external-link">University of Prince Edward Island’s Atlantic Veterinary College</a>, Canada. To celebrate this great improvement of the package, we also updated the package logo to reflect this change.</p>
 </div>
 <div class="section level3">
-<h3 id="breaking-2-1-1-9078">Breaking<a class="anchor" aria-label="anchor" href="#breaking-2-1-1-9078"></a></h3>
+<h3 id="breaking-2-1-1-9080">Breaking<a class="anchor" aria-label="anchor" href="#breaking-2-1-1-9080"></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 over a year ago</li>
 </ul></div>
 <div class="section level3">
-<h3 id="new-2-1-1-9078">New<a class="anchor" aria-label="anchor" href="#new-2-1-1-9078"></a></h3>
+<h3 id="new-2-1-1-9080">New<a class="anchor" aria-label="anchor" href="#new-2-1-1-9080"></a></h3>
 <ul><li>One Health implementation
 <ul><li>Function <code><a href="../reference/as.sir.html">as.sir()</a></code> now has extensive support for animal breakpoints from CLSI. Use <code>breakpoint_type = "animal"</code> and set the <code>host</code> argument to a variable that contains animal species names.</li>
 <li>The <code>clinical_breakpoints</code> data set contains all these breakpoints, and can be downloaded on our <a href="https://msberends.github.io/AMR/articles/datasets.html">download page</a>.</li>
@@ -101,7 +101,7 @@
 </ul></li>
 </ul></div>
 <div class="section level3">
-<h3 id="changed-2-1-1-9078">Changed<a class="anchor" aria-label="anchor" href="#changed-2-1-1-9078"></a></h3>
+<h3 id="changed-2-1-1-9080">Changed<a class="anchor" aria-label="anchor" href="#changed-2-1-1-9080"></a></h3>
 <ul><li>SIR interpretation
 <ul><li>It is now possible to use column names for argument <code>ab</code>, <code>mo</code>, and <code>uti</code>: <code>as.sir(..., ab = "column1", mo = "column2", uti = "column3")</code>. This greatly improves the flexibility for users.</li>
 <li>Users can now set their own criteria (using regular expressions) as to what should be considered S, I, R, SDD, and NI.</li>
@@ -147,24 +147,11 @@
 <li>Fixed a bug for when <code><a href="../reference/antibiogram.html">antibiogram()</a></code> returns an empty data set</li>
 </ul></div>
 <div class="section level3">
-<h3 id="other-2-1-1-9078">Other<a class="anchor" aria-label="anchor" href="#other-2-1-1-9078"></a></h3>
+<h3 id="other-2-1-1-9080">Other<a class="anchor" aria-label="anchor" href="#other-2-1-1-9080"></a></h3>
 <ul><li>Greatly updated and expanded documentation</li>
 <li>Added Jordan Stull, Matthew Saab, and Javier Sanchez as contributors, to thank them for their valuable input</li>
 </ul></div>
 </div>
-    <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.1.1" id="amr-211">AMR 2.1.1<a class="anchor" aria-label="anchor" href="#amr-211"></a></h2><p class="text-muted">CRAN release: 2023-10-21</p>
-<ul><li>Fix for selecting first isolates using the phenotype-based method
-<ul><li>This included too many isolates when patients had altering antibiograms within the same bacterial species</li>
-<li>See for more info <a href="https://github.com/msberends/AMR/issues/122" class="external-link">our issue </a><a href="https://github.com/msberends/AMR/issues/122" class="external-link">#122</a>
-</li>
-</ul></li>
-<li>Added 1,366 LOINC codes to the <code>antibiotics</code> data set and updated to the latest version (LOINC v2.76)</li>
-<li>MICs can now be used in complex number calculations and allow scientific number format as input (e.g., <code>as.mic("1.28e-2")</code>)</li>
-<li>Fix rounding MICs on latest R beta (‘R-devel’)</li>
-<li>Removed unneeded note about the used language when option <code>AMR_locale</code> is set</li>
-<li>Fixed non-ASCII characters in documentation, according to CRAN maintainers</li>
-</ul><hr></div>
   </main><aside class="col-md-3"><nav id="toc" aria-label="Table of contents"><h2>On this page</h2>
     </nav></aside></div>
 
diff --git a/pkgdown.yml b/pkgdown.yml
index 4d5c93b6..46a51486 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -11,7 +11,7 @@ articles:
   resistance_predict: resistance_predict.html
   welcome_to_AMR: welcome_to_AMR.html
   WHONET: WHONET.html
-last_built: 2024-09-22T09:52Z
+last_built: 2024-09-24T20:45Z
 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 385e2f33..387725ea 100644
--- a/reference/AMR-options.html
+++ b/reference/AMR-options.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 08cc418c..6e1d9d57 100644
--- a/reference/AMR.html
+++ b/reference/AMR.html
@@ -21,7 +21,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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/WHOCC.html b/reference/WHOCC.html
index 33e1183c..bfbc51f0 100644
--- a/reference/WHOCC.html
+++ b/reference/WHOCC.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 f1766767..02252444 100644
--- a/reference/WHONET.html
+++ b/reference/WHONET.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 cae4dfba..c8f41d1f 100644
--- a/reference/ab_from_text.html
+++ b/reference/ab_from_text.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 2135626d..3e5137e3 100644
--- a/reference/ab_property.html
+++ b/reference/ab_property.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -105,7 +105,7 @@
 
 
 <dt id="arg-language">language<a class="anchor" aria-label="anchor" href="#arg-language"></a></dt>
-<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
+<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the package option <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
 
 
 <dt id="arg-tolower">tolower<a class="anchor" aria-label="anchor" href="#arg-tolower"></a></dt>
diff --git a/reference/add_custom_antimicrobials.html b/reference/add_custom_antimicrobials.html
index 439eb483..e64461ac 100644
--- a/reference/add_custom_antimicrobials.html
+++ b/reference/add_custom_antimicrobials.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -76,8 +76,8 @@
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
     <p><strong>Important:</strong> Due to how <span style="R">R</span> works, the <code>add_custom_antimicrobials()</code> function has to be run in every <span style="R">R</span> session - added antimicrobials are not stored between sessions and are thus lost when <span style="R">R</span> is exited.</p>
 <p>There are two ways to circumvent this and automate the process of adding antimicrobials:</p>
-<p><strong>Method 1:</strong> Using the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_custom_ab</a></code>, which is the preferred method. To use this method:</p><ol><li><p>Create a data set in the structure of the <a href="antibiotics.html">antibiotics</a> data set (containing at the very least columns "ab" and "name") and save it with <code><a href="https://rdrr.io/r/base/readRDS.html" class="external-link">saveRDS()</a></code> to a location of choice, e.g. <code>"~/my_custom_ab.rds"</code>, or any remote location.</p></li>
-<li><p>Set the file location to the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_custom_ab</a></code>: <code>options(AMR_custom_ab = "~/my_custom_ab.rds")</code>. This can even be a remote file location, such as an https URL. Since options are not saved between <span style="R">R</span> sessions, it is best to save this option to the <code>.Rprofile</code> file so that it will be loaded on start-up of <span style="R">R</span>. To do this, open the <code>.Rprofile</code> file using e.g. <code>utils::file.edit("~/.Rprofile")</code>, add this text and save the file:</p>
+<p><strong>Method 1:</strong> Using the package option <code><a href="AMR-options.html">AMR_custom_ab</a></code>, which is the preferred method. To use this method:</p><ol><li><p>Create a data set in the structure of the <a href="antibiotics.html">antibiotics</a> data set (containing at the very least columns "ab" and "name") and save it with <code><a href="https://rdrr.io/r/base/readRDS.html" class="external-link">saveRDS()</a></code> to a location of choice, e.g. <code>"~/my_custom_ab.rds"</code>, or any remote location.</p></li>
+<li><p>Set the file location to the package option <code><a href="AMR-options.html">AMR_custom_ab</a></code>: <code>options(AMR_custom_ab = "~/my_custom_ab.rds")</code>. This can even be a remote file location, such as an https URL. Since options are not saved between <span style="R">R</span> sessions, it is best to save this option to the <code>.Rprofile</code> file so that it will be loaded on start-up of <span style="R">R</span>. To do this, open the <code>.Rprofile</code> file using e.g. <code>utils::file.edit("~/.Rprofile")</code>, add this text and save the file:</p>
 <p></p><div class="sourceCode r"><pre><code><span><span class="co"># Add custom antimicrobial codes:</span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">options</a></span><span class="op">(</span>AMR_custom_ab <span class="op">=</span> <span class="st">"~/my_custom_ab.rds"</span><span class="op">)</span></span></code></pre><p></p></div>
 <p>Upon package load, this file will be loaded and run through the <code>add_custom_antimicrobials()</code> function.</p></li>
diff --git a/reference/add_custom_microorganisms.html b/reference/add_custom_microorganisms.html
index 4740481f..8648b571 100644
--- a/reference/add_custom_microorganisms.html
+++ b/reference/add_custom_microorganisms.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -77,8 +77,8 @@
     <p>This function will fill in missing taxonomy for you, if specific taxonomic columns are missing, see <em>Examples</em>.</p>
 <p><strong>Important:</strong> Due to how <span style="R">R</span> works, the <code>add_custom_microorganisms()</code> function has to be run in every <span style="R">R</span> session - added microorganisms are not stored between sessions and are thus lost when <span style="R">R</span> is exited.</p>
 <p>There are two ways to circumvent this and automate the process of adding microorganisms:</p>
-<p><strong>Method 1:</strong> Using the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_custom_mo</a></code>, which is the preferred method. To use this method:</p><ol><li><p>Create a data set in the structure of the <a href="microorganisms.html">microorganisms</a> data set (containing at the very least column "genus") and save it with <code><a href="https://rdrr.io/r/base/readRDS.html" class="external-link">saveRDS()</a></code> to a location of choice, e.g. <code>"~/my_custom_mo.rds"</code>, or any remote location.</p></li>
-<li><p>Set the file location to the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_custom_mo</a></code>: <code>options(AMR_custom_mo = "~/my_custom_mo.rds")</code>. This can even be a remote file location, such as an https URL. Since options are not saved between <span style="R">R</span> sessions, it is best to save this option to the <code>.Rprofile</code> file so that it will be loaded on start-up of <span style="R">R</span>. To do this, open the <code>.Rprofile</code> file using e.g. <code>utils::file.edit("~/.Rprofile")</code>, add this text and save the file:</p>
+<p><strong>Method 1:</strong> Using the package option <code><a href="AMR-options.html">AMR_custom_mo</a></code>, which is the preferred method. To use this method:</p><ol><li><p>Create a data set in the structure of the <a href="microorganisms.html">microorganisms</a> data set (containing at the very least column "genus") and save it with <code><a href="https://rdrr.io/r/base/readRDS.html" class="external-link">saveRDS()</a></code> to a location of choice, e.g. <code>"~/my_custom_mo.rds"</code>, or any remote location.</p></li>
+<li><p>Set the file location to the package option <code><a href="AMR-options.html">AMR_custom_mo</a></code>: <code>options(AMR_custom_mo = "~/my_custom_mo.rds")</code>. This can even be a remote file location, such as an https URL. Since options are not saved between <span style="R">R</span> sessions, it is best to save this option to the <code>.Rprofile</code> file so that it will be loaded on start-up of <span style="R">R</span>. To do this, open the <code>.Rprofile</code> file using e.g. <code>utils::file.edit("~/.Rprofile")</code>, add this text and save the file:</p>
 <p></p><div class="sourceCode r"><pre><code><span><span class="co"># Add custom microorganism codes:</span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/options.html" class="external-link">options</a></span><span class="op">(</span>AMR_custom_mo <span class="op">=</span> <span class="st">"~/my_custom_mo.rds"</span><span class="op">)</span></span></code></pre><p></p></div>
 <p>Upon package load, this file will be loaded and run through the <code>add_custom_microorganisms()</code> function.</p></li>
diff --git a/reference/age.html b/reference/age.html
index 227cc346..d80cfc9e 100644
--- a/reference/age.html
+++ b/reference/age.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -116,16 +116,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  1965-12-05  58  58.79781         34</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1980-03-01  44  44.56011         19</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1949-11-01  74  74.89071         50</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1947-02-14  77  77.60383         52</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1940-02-19  84  84.59016         59</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1988-01-10  36  36.69945         11</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1997-08-27  27  27.07104          2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1978-01-26  46  46.65574         21</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1972-06-17  52  52.26503         27</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1986-08-10  38  38.11749         13</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1965-12-05  58  58.80328         34</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1980-03-01  44  44.56557         19</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1949-11-01  74  74.89617         50</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1947-02-14  77  77.60929         52</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1940-02-19  84  84.59563         59</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1988-01-10  36  36.70492         11</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1997-08-27  27  27.07650          2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1978-01-26  46  46.66120         21</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1972-06-17  52  52.27049         27</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1986-08-10  38  38.12295         13</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc" aria-label="Table of contents"><h2>On this page</h2>
diff --git a/reference/age_groups.html b/reference/age_groups.html
index 03e0e137..a73a71b5 100644
--- a/reference/age_groups.html
+++ b/reference/age_groups.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 f6d1b409..957d7c27 100644
--- a/reference/antibiogram.html
+++ b/reference/antibiogram.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -117,7 +117,7 @@
 
 
 <dt id="arg-ab-transform">ab_transform<a class="anchor" aria-label="anchor" href="#arg-ab-transform"></a></dt>
-<dd><p>a character to transform antibiotic input - must be one of the column names of the <a href="antibiotics.html">antibiotics</a> data set (defaults to "name"): "ab", "cid", "name", "group", "atc", "atc_group1", "atc_group2", "abbreviations", "synonyms", "oral_ddd", "oral_units", "iv_ddd", "iv_units", or "loinc". Can also be <code>NULL</code> to not transform the input.</p></dd>
+<dd><p>a character to transform antibiotic input - must be one of the column names of the <a href="antibiotics.html">antibiotics</a> data set (defaults to <code>"name"</code>): "ab", "cid", "name", "group", "atc", "atc_group1", "atc_group2", "abbreviations", "synonyms", "oral_ddd", "oral_units", "iv_ddd", "iv_units", or "loinc". Can also be <code>NULL</code> to not transform the input.</p></dd>
 
 
 <dt id="arg-syndromic-group">syndromic_group<a class="anchor" aria-label="anchor" href="#arg-syndromic-group"></a></dt>
@@ -199,7 +199,7 @@
 <li><p>5% (15/300)</p></li>
 <li><p>5 (N=15/300)</p></li>
 <li><p>5% (N=15/300)</p></li>
-</ol><p>The default is <code>10</code>, which can be set globally with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_antibiogram_formatting_type</a></code>, e.g. <code>options(AMR_antibiogram_formatting_type = 5)</code>.</p>
+</ol><p>The default is <code>10</code>, which can be set globally with the package option <code><a href="AMR-options.html">AMR_antibiogram_formatting_type</a></code>, e.g. <code>options(AMR_antibiogram_formatting_type = 5)</code>.</p>
 <p>Set <code>digits</code> (defaults to <code>0</code>) to alter the rounding of the susceptibility percentage.</p>
 </div>
 
diff --git a/reference/antibiotic_class_selectors.html b/reference/antibiotic_class_selectors.html
index 04738b7d..2d67e7e6 100644
--- a/reference/antibiotic_class_selectors.html
+++ b/reference/antibiotic_class_selectors.html
@@ -9,7 +9,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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/antibiotics.html b/reference/antibiotics.html
index da180eb6..93392aa5 100644
--- a/reference/antibiotics.html
+++ b/reference/antibiotics.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 7a3fdb06..c718e0c1 100644
--- a/reference/as.ab.html
+++ b/reference/as.ab.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 7edc0ca3..23f1d588 100644
--- a/reference/as.av.html
+++ b/reference/as.av.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 704293d8..4f542144 100644
--- a/reference/as.disk.html
+++ b/reference/as.disk.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 139448b6..ed293600 100644
--- a/reference/as.mic.html
+++ b/reference/as.mic.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.mo.html b/reference/as.mo.html
index 86b3a3a4..98066fdb 100644
--- a/reference/as.mo.html
+++ b/reference/as.mo.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -110,7 +110,7 @@
 
 
 <dt id="arg-keep-synonyms">keep_synonyms<a class="anchor" aria-label="anchor" href="#arg-keep-synonyms"></a></dt>
-<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate if old, previously valid taxonomic names must be preserved and not be corrected to currently accepted names. The default is <code>FALSE</code>, which will return a note if old taxonomic names were processed. The default can be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_keep_synonyms</a></code>, i.e. <code>options(AMR_keep_synonyms = TRUE)</code> or <code>options(AMR_keep_synonyms = FALSE)</code>.</p></dd>
+<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate if old, previously valid taxonomic names must be preserved and not be corrected to currently accepted names. The default is <code>FALSE</code>, which will return a note if old taxonomic names were processed. The default can be set with the package option <code><a href="AMR-options.html">AMR_keep_synonyms</a></code>, i.e. <code>options(AMR_keep_synonyms = TRUE)</code> or <code>options(AMR_keep_synonyms = FALSE)</code>.</p></dd>
 
 
 <dt id="arg-reference-df">reference_df<a class="anchor" aria-label="anchor" href="#arg-reference-df"></a></dt>
@@ -118,15 +118,15 @@
 
 
 <dt id="arg-ignore-pattern">ignore_pattern<a class="anchor" aria-label="anchor" href="#arg-ignore-pattern"></a></dt>
-<dd><p>a Perl-compatible <a href="https://rdrr.io/r/base/regex.html" class="external-link">regular expression</a> (case-insensitive) of which all matches in <code>x</code> must return <code>NA</code>. This can be convenient to exclude known non-relevant input and can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_ignore_pattern</a></code>, e.g. <code>options(AMR_ignore_pattern = "(not reported|contaminated flora)")</code>.</p></dd>
+<dd><p>a Perl-compatible <a href="https://rdrr.io/r/base/regex.html" class="external-link">regular expression</a> (case-insensitive) of which all matches in <code>x</code> must return <code>NA</code>. This can be convenient to exclude known non-relevant input and can also be set with the package option <code><a href="AMR-options.html">AMR_ignore_pattern</a></code>, e.g. <code>options(AMR_ignore_pattern = "(not reported|contaminated flora)")</code>.</p></dd>
 
 
 <dt id="arg-cleaning-regex">cleaning_regex<a class="anchor" aria-label="anchor" href="#arg-cleaning-regex"></a></dt>
-<dd><p>a Perl-compatible <a href="https://rdrr.io/r/base/regex.html" class="external-link">regular expression</a> (case-insensitive) to clean the input of <code>x</code>. Every matched part in <code>x</code> will be removed. At default, this is the outcome of <code>mo_cleaning_regex()</code>, which removes texts between brackets and texts such as "species" and "serovar". The default can be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_cleaning_regex</a></code>.</p></dd>
+<dd><p>a Perl-compatible <a href="https://rdrr.io/r/base/regex.html" class="external-link">regular expression</a> (case-insensitive) to clean the input of <code>x</code>. Every matched part in <code>x</code> will be removed. At default, this is the outcome of <code>mo_cleaning_regex()</code>, which removes texts between brackets and texts such as "species" and "serovar". The default can be set with the package option <code><a href="AMR-options.html">AMR_cleaning_regex</a></code>.</p></dd>
 
 
 <dt id="arg-only-fungi">only_fungi<a class="anchor" aria-label="anchor" href="#arg-only-fungi"></a></dt>
-<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate if only fungi must be found, making sure that e.g. misspellings always return records from the kingdom of Fungi. This can be set globally for <a href="mo_property.html">all microorganism functions</a> with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_only_fungi</a></code>, i.e. <code>options(AMR_only_fungi = TRUE)</code>.</p></dd>
+<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate if only fungi must be found, making sure that e.g. misspellings always return records from the kingdom of Fungi. This can be set globally for <a href="mo_property.html">all microorganism functions</a> with the package option <code><a href="AMR-options.html">AMR_only_fungi</a></code>, i.e. <code>options(AMR_only_fungi = TRUE)</code>.</p></dd>
 
 
 <dt id="arg-language">language<a class="anchor" aria-label="anchor" href="#arg-language"></a></dt>
diff --git a/reference/as.sir.html b/reference/as.sir.html
index 1249901f..42b4d258 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -21,7 +21,7 @@ All breakpoints used for interpretation are available in our clinical_breakpoint
 
     <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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -189,7 +189,7 @@ All breakpoints used for interpretation are available in our clinical_breakpoint
 
 
 <dt id="arg-guideline">guideline<a class="anchor" aria-label="anchor" href="#arg-guideline"></a></dt>
-<dd><p>defaults to EUCAST 2024 (the latest implemented EUCAST guideline in the <a href="clinical_breakpoints.html">clinical_breakpoints</a> data set), but can be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_guideline</a></code>. Currently supports EUCAST (2011-2024) and CLSI (2011-2024), see <em>Details</em>.</p></dd>
+<dd><p>defaults to EUCAST 2024 (the latest implemented EUCAST guideline in the <a href="clinical_breakpoints.html">clinical_breakpoints</a> data set), but can be set with the package option <code><a href="AMR-options.html">AMR_guideline</a></code>. Currently supports EUCAST (2011-2024) and CLSI (2011-2024), see <em>Details</em>.</p></dd>
 
 
 <dt id="arg-uti">uti<a class="anchor" aria-label="anchor" href="#arg-uti"></a></dt>
@@ -209,15 +209,15 @@ All breakpoints used for interpretation are available in our clinical_breakpoint
 
 
 <dt id="arg-include-screening">include_screening<a class="anchor" aria-label="anchor" href="#arg-include-screening"></a></dt>
-<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate that clinical breakpoints for screening are allowed - the default is <code>FALSE</code>. Can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_include_screening</a></code>.</p></dd>
+<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate that clinical breakpoints for screening are allowed - the default is <code>FALSE</code>. Can also be set with the package option <code><a href="AMR-options.html">AMR_include_screening</a></code>.</p></dd>
 
 
 <dt id="arg-include-pkpd">include_PKPD<a class="anchor" aria-label="anchor" href="#arg-include-pkpd"></a></dt>
-<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate that PK/PD clinical breakpoints must be applied as a last resort - the default is <code>TRUE</code>. Can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_include_PKPD</a></code>.</p></dd>
+<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate that PK/PD clinical breakpoints must be applied as a last resort - the default is <code>TRUE</code>. Can also be set with the package option <code><a href="AMR-options.html">AMR_include_PKPD</a></code>.</p></dd>
 
 
 <dt id="arg-breakpoint-type">breakpoint_type<a class="anchor" aria-label="anchor" href="#arg-breakpoint-type"></a></dt>
-<dd><p>the type of breakpoints to use, either "ECOFF", "animal", or "human". ECOFF stands for Epidemiological Cut-Off values. The default is <code>"human"</code>, which can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_breakpoint_type</a></code>. If <code>host</code> is set to values of veterinary species, this will automatically be set to <code>"animal"</code>.</p></dd>
+<dd><p>the type of breakpoints to use, either "ECOFF", "animal", or "human". ECOFF stands for Epidemiological Cut-Off values. The default is <code>"human"</code>, which can also be set with the package option <code><a href="AMR-options.html">AMR_breakpoint_type</a></code>. If <code>host</code> is set to values of veterinary species, this will automatically be set to <code>"animal"</code>.</p></dd>
 
 
 <dt id="arg-host">host<a class="anchor" aria-label="anchor" href="#arg-host"></a></dt>
@@ -276,7 +276,7 @@ All breakpoints used for interpretation are available in our clinical_breakpoint
 
 <p>For interpreting MIC values as well as disk diffusion diameters, currently implemented guidelines are for <strong>clinical microbiology</strong>: EUCAST 2011-2024 and CLSI 2011-2024, and for <strong>veterinary microbiology</strong>: EUCAST 2021-2024 and CLSI 2019-2024.</p>
 <p>Thus, the <code>guideline</code> argument must be set to e.g., <code>"EUCAST 2024"</code> or <code>"CLSI 2024"</code>. By simply using <code>"EUCAST"</code> (the default) or <code>"CLSI"</code> as input, the latest included version of that guideline will automatically be selected. You can set your own data set using the <code>reference_data</code> argument. The <code>guideline</code> argument will then be ignored.</p>
-<p>You can set the default guideline with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_guideline</a></code> (e.g. in your <code>.Rprofile</code> file), such as:</p>
+<p>You can set the default guideline with the package option <code><a href="AMR-options.html">AMR_guideline</a></code> (e.g. in your <code>.Rprofile</code> file), such as:</p>
 <p></p><div class="sourceCode"><pre><code><span id="cb1-1"><a href="#cb1-1" tabindex="-1"></a>  <span class="fu">options</span>(<span class="at">AMR_guideline =</span> <span class="st">"CLSI"</span>)</span>
 <span id="cb1-2"><a href="#cb1-2" tabindex="-1"></a>  <span class="fu">options</span>(<span class="at">AMR_guideline =</span> <span class="st">"CLSI 2018"</span>)</span>
 <span id="cb1-3"><a href="#cb1-3" tabindex="-1"></a>  <span class="fu">options</span>(<span class="at">AMR_guideline =</span> <span class="st">"EUCAST 2020"</span>)</span>
@@ -568,7 +568,8 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'amoxicillin' (AMX) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
@@ -578,23 +579,27 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'amoxicillin' (AMX) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> column 'microorganism', EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • 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.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin) based on</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> column 'microorganism', EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • 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.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'amoxicillin' (AMX) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
@@ -604,27 +609,31 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'amoxicillin' (AMX) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> column 'microorganism', EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • 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.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'amoxicillin' (AMX) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2024...</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> column 'microorganism', EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • 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.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
@@ -726,8 +735,7 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'nitrofuratoin' (NIT, nitrofurantoin),</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for nitrofurantoin (NIT) in Escherichia coli are only available for (uncomplicated) urinary tract infections (UTI); assuming uti = TRUE.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Assuming value "urine" in column 'specimen' reflects a urinary tract</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   infection.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   Use as.sir(uti = FALSE) to prevent this.</span>
@@ -736,8 +744,7 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'nitrofuratoin' (NIT, nitrofurantoin),</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for nitrofurantoin (NIT) in Escherichia coli are only available for (uncomplicated) urinary tract infections (UTI); assuming uti = TRUE.</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
@@ -760,17 +767,20 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   all the details of the breakpoint interpretations.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'amoxicillin' (AMX), EUCAST 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: column 'cipro' (CIP, ciprofloxacin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2024...</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'tobra' (TOB, tobramycin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • 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.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'genta' (GEN, gentamicin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2024...</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>  NOTE </span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • 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.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Assigning class 'sir' to already clean column 'ERY' (erythromycin)...</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism amoxicillin cipro tobra genta ERY</span>
@@ -778,20 +788,20 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># return a 'logbook' about the results:</span></span></span>
 <span class="r-in"><span><span class="fu">sir_interpretation_history</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: 59 × 16</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 57 × 16</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    datetime            index ab_given mo_given host_given ab   mo              </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>  <span style="color: #BCBCBC;">*</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;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>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2024-09-22 <span style="color: #949494;">09:53:01</span>     4 AMX      B_STRPT… human      AMX  B_STRPT_PNMN    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2024-09-22 <span style="color: #949494;">09:53:08</span>     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2024-09-22 <span style="color: #949494;">09:53:08</span>     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2024-09-22 <span style="color: #949494;">09:53:09</span>     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2024-09-22 <span style="color: #949494;">09:53:09</span>     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2024-09-22 <span style="color: #949494;">09:53:01</span>     3 AMX      B_STRPT… human      AMX  B_STRPT_PNMN    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2024-09-22 <span style="color: #949494;">09:53:08</span>     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2024-09-22 <span style="color: #949494;">09:53:08</span>     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2024-09-22 <span style="color: #949494;">09:53:09</span>     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2024-09-22 <span style="color: #949494;">09:53:09</span>     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 49 more rows</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2024-09-24 <span style="color: #949494;">20:46:27</span>     4 AMX      B_STRPT… human      AMX  B_STRPT_PNMN    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2024-09-24 <span style="color: #949494;">20:46:34</span>     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2024-09-24 <span style="color: #949494;">20:46:34</span>     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2024-09-24 <span style="color: #949494;">20:46:35</span>     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2024-09-24 <span style="color: #949494;">20:46:35</span>     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2024-09-24 <span style="color: #949494;">20:46:27</span>     3 AMX      B_STRPT… human      AMX  B_STRPT_PNMN    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2024-09-24 <span style="color: #949494;">20:46:34</span>     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2024-09-24 <span style="color: #949494;">20:46:34</span>     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2024-09-24 <span style="color: #949494;">20:46:35</span>     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2024-09-24 <span style="color: #949494;">20:46:35</span>     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 47 more rows</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 9 more variables: host &lt;chr&gt;, method &lt;chr&gt;, input &lt;dbl&gt;, outcome &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   notes &lt;chr&gt;, guideline &lt;chr&gt;, ref_table &lt;chr&gt;, uti &lt;lgl&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   breakpoint_S_R &lt;chr&gt;</span></span>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index 2481101d..1848d69e 100644
--- a/reference/atc_online.html
+++ b/reference/atc_online.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 8fc4dbba..02fea686 100644
--- a/reference/av_from_text.html
+++ b/reference/av_from_text.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 2dea35d6..0ea938dc 100644
--- a/reference/av_property.html
+++ b/reference/av_property.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -93,7 +93,7 @@
 
 
 <dt id="arg-language">language<a class="anchor" aria-label="anchor" href="#arg-language"></a></dt>
-<dd><p>language of the returned text - the default is system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
+<dd><p>language of the returned text - the default is system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the package option <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
 
 
 <dt id="arg-tolower">tolower<a class="anchor" aria-label="anchor" href="#arg-tolower"></a></dt>
diff --git a/reference/availability.html b/reference/availability.html
index d4128a2d..a6b4126c 100644
--- a/reference/availability.html
+++ b/reference/availability.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 a1643792..2746bb42 100644
--- a/reference/bug_drug_combinations.html
+++ b/reference/bug_drug_combinations.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -101,7 +101,7 @@
 
 
 <dt id="arg-language">language<a class="anchor" aria-label="anchor" href="#arg-language"></a></dt>
-<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
+<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the package option <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
 
 
 <dt id="arg-minimum">minimum<a class="anchor" aria-label="anchor" href="#arg-minimum"></a></dt>
diff --git a/reference/clinical_breakpoints.html b/reference/clinical_breakpoints.html
index cffd31e8..3a6822ad 100644
--- a/reference/clinical_breakpoints.html
+++ b/reference/clinical_breakpoints.html
@@ -1,10 +1,18 @@
 <!DOCTYPE html>
 <!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><title>Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints • 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/Lato-0.4.9/font.css" rel="stylesheet"><link href="../deps/Fira_Code-0.4.9/font.css" rel="stylesheet"><link href="../deps/font-awesome-6.4.2/css/all.min.css" rel="stylesheet"><link href="../deps/font-awesome-6.4.2/css/v4-shims.min.css" rel="stylesheet"><script src="../deps/headroom-0.11.0/headroom.min.js"></script><script src="../deps/headroom-0.11.0/jQuery.headroom.min.js"></script><script src="../deps/bootstrap-toc-1.0.1/bootstrap-toc.min.js"></script><script src="../deps/clipboard.js-2.0.11/clipboard.min.js"></script><script src="../deps/search-1.0.0/autocomplete.jquery.min.js"></script><script src="../deps/search-1.0.0/fuse.min.js"></script><script src="../deps/search-1.0.0/mark.min.js"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints"><meta name="description" content="Data set containing clinical breakpoints to interpret MIC and disk diffusion to SIR values, according to international guidelines. This dataset contain breakpoints for humans, 7 different animal groups, and ECOFFs.
-Currently available breakpoint guidelines for clinical microbiology are EUCAST 2011-2024 and CLSI 2011-2024.
-Currently available breakpoint guidelines for veterinary microbiology are EUCAST 2021-2024 and CLSI 2019-2024.
+These breakpoints are currently implemented:
+For clinical microbiology: EUCAST 2011-2024 and CLSI 2011-2024;
+For veterinary microbiology: EUCAST 2021-2024 and CLSI 2019-2024;
+For ECOFFs (Epidemiological Cut-off Values): EUCAST 2020-2024 and CLSI 2022-2024.
+
+
 Use as.sir() to transform MICs or disks measurements to SIR values."><meta property="og:description" content="Data set containing clinical breakpoints to interpret MIC and disk diffusion to SIR values, according to international guidelines. This dataset contain breakpoints for humans, 7 different animal groups, and ECOFFs.
-Currently available breakpoint guidelines for clinical microbiology are EUCAST 2011-2024 and CLSI 2011-2024.
-Currently available breakpoint guidelines for veterinary microbiology are EUCAST 2021-2024 and CLSI 2019-2024.
+These breakpoints are currently implemented:
+For clinical microbiology: EUCAST 2011-2024 and CLSI 2011-2024;
+For veterinary microbiology: EUCAST 2021-2024 and CLSI 2019-2024;
+For ECOFFs (Epidemiological Cut-off Values): EUCAST 2020-2024 and CLSI 2022-2024.
+
+
 Use as.sir() to transform MICs or disks measurements to SIR values."><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"></head><body>
     <a href="#main" class="visually-hidden-focusable">Skip to contents</a>
 
@@ -13,7 +21,7 @@ Use as.sir() to transform MICs or disks measurements to SIR values."><meta prope
 
     <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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -61,9 +69,10 @@ Use as.sir() to transform MICs or disks measurements to SIR values."><meta prope
 
     <div class="ref-description section level2">
     <p>Data set containing clinical breakpoints to interpret MIC and disk diffusion to SIR values, according to international guidelines. This dataset contain breakpoints for humans, 7 different animal groups, and ECOFFs.</p>
-<p>Currently available breakpoint guidelines for <strong>clinical microbiology</strong> are EUCAST 2011-2024 and CLSI 2011-2024.</p>
-<p>Currently available breakpoint guidelines for <strong>veterinary microbiology</strong> are EUCAST 2021-2024 and CLSI 2019-2024.</p>
-<p>Use <code><a href="as.sir.html">as.sir()</a></code> to transform MICs or disks measurements to SIR values.</p>
+<p>These breakpoints are currently implemented:</p><ul><li><p>For <strong>clinical microbiology</strong>: EUCAST 2011-2024 and CLSI 2011-2024;</p></li>
+<li><p>For <strong>veterinary microbiology</strong>: EUCAST 2021-2024 and CLSI 2019-2024;</p></li>
+<li><p>For <strong>ECOFFs</strong> (Epidemiological Cut-off Values): EUCAST 2020-2024 and CLSI 2022-2024.</p></li>
+</ul><p>Use <code><a href="as.sir.html">as.sir()</a></code> to transform MICs or disks measurements to SIR values.</p>
     </div>
 
     <div class="section level2">
@@ -96,7 +105,7 @@ Use as.sir() to transform MICs or disks measurements to SIR values."><meta prope
 
 
 <p>Supported types of breakpoints are ECOFF, animal, and human. ECOFF (Epidemiological cut-off) values are used in antimicrobial susceptibility testing to differentiate between wild-type and non-wild-type strains of bacteria or fungi.</p>
-<p>The default is <code>"human"</code>, which can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_breakpoint_type</a></code>. Use <code><a href="as.sir.html">as.sir(..., breakpoint_type = ...)</a></code> to interpret raw data using a specific breakpoint type, e.g. <code>as.sir(..., breakpoint_type = "ECOFF")</code> to use ECOFFs.</p>
+<p>The default is <code>"human"</code>, which can also be set with the package option <code><a href="AMR-options.html">AMR_breakpoint_type</a></code>. Use <code><a href="as.sir.html">as.sir(..., breakpoint_type = ...)</a></code> to interpret raw data using a specific breakpoint type, e.g. <code>as.sir(..., breakpoint_type = "ECOFF")</code> to use ECOFFs.</p>
 </div>
 
 <div class="section">
diff --git a/reference/count.html b/reference/count.html
index 6f15b415..c585a0b1 100644
--- a/reference/count.html
+++ b/reference/count.html
@@ -9,7 +9,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -109,7 +109,7 @@ count_resistant() should be used to count resistant isolates, count_susceptible(
 
 
 <dt id="arg-language">language<a class="anchor" aria-label="anchor" href="#arg-language"></a></dt>
-<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
+<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the package option <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
 
 
 <dt id="arg-combine-si">combine_SI<a class="anchor" aria-label="anchor" href="#arg-combine-si"></a></dt>
diff --git a/reference/custom_eucast_rules.html b/reference/custom_eucast_rules.html
index 817f9274..3fda4da0 100644
--- a/reference/custom_eucast_rules.html
+++ b/reference/custom_eucast_rules.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 3559c69f..5735ea5c 100644
--- a/reference/dosage.html
+++ b/reference/dosage.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 45827ba2..28b0419d 100644
--- a/reference/eucast_rules.html
+++ b/reference/eucast_rules.html
@@ -9,7 +9,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -109,7 +109,7 @@ Leclercq et al. <strong>EUCAST expert rules in antimicrobial susceptibility test
 
 
 <dt id="arg-rules">rules<a class="anchor" aria-label="anchor" href="#arg-rules"></a></dt>
-<dd><p>a <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> vector that specifies which rules should be applied. Must be one or more of <code>"breakpoints"</code>, <code>"expert"</code>, <code>"other"</code>, <code>"custom"</code>, <code>"all"</code>, and defaults to <code>c("breakpoints", "expert")</code>. The default value can be set to another value using the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_eucastrules</a></code>: <code>options(AMR_eucastrules = "all")</code>. If using <code>"custom"</code>, be sure to fill in argument <code>custom_rules</code> too. Custom rules can be created with <code><a href="custom_eucast_rules.html">custom_eucast_rules()</a></code>.</p></dd>
+<dd><p>a <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> vector that specifies which rules should be applied. Must be one or more of <code>"breakpoints"</code>, <code>"expert"</code>, <code>"other"</code>, <code>"custom"</code>, <code>"all"</code>, and defaults to <code>c("breakpoints", "expert")</code>. The default value can be set to another value using the package option <code><a href="AMR-options.html">AMR_eucastrules</a></code>: <code>options(AMR_eucastrules = "all")</code>. If using <code>"custom"</code>, be sure to fill in argument <code>custom_rules</code> too. Custom rules can be created with <code><a href="custom_eucast_rules.html">custom_eucast_rules()</a></code>.</p></dd>
 
 
 <dt id="arg-verbose">verbose<a class="anchor" aria-label="anchor" href="#arg-verbose"></a></dt>
@@ -173,7 +173,7 @@ Leclercq et al. <strong>EUCAST expert rules in antimicrobial susceptibility test
 <p>Before further processing, two non-EUCAST rules about drug combinations can be applied to improve the efficacy of the EUCAST rules, and the reliability of your data (analysis). These rules are:</p><ol><li><p>A drug <strong>with</strong> enzyme inhibitor will be set to S if the same drug <strong>without</strong> enzyme inhibitor is S</p></li>
 <li><p>A drug <strong>without</strong> enzyme inhibitor will be set to R if the same drug <strong>with</strong> enzyme inhibitor is R</p></li>
 </ol><p>Important examples include amoxicillin and amoxicillin/clavulanic acid, and trimethoprim and trimethoprim/sulfamethoxazole. Needless to say, for these rules to work, both drugs must be available in the data set.</p>
-<p>Since these rules are not officially approved by EUCAST, they are not applied at default. To use these rules, include <code>"other"</code> to the <code>rules</code> argument, or use <code>eucast_rules(..., rules = "all")</code>. You can also set the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_eucastrules</a></code>, i.e. run <code>options(AMR_eucastrules = "all")</code>.</p>
+<p>Since these rules are not officially approved by EUCAST, they are not applied at default. To use these rules, include <code>"other"</code> to the <code>rules</code> argument, or use <code>eucast_rules(..., rules = "all")</code>. You can also set the package option <code><a href="AMR-options.html">AMR_eucastrules</a></code>, i.e. run <code>options(AMR_eucastrules = "all")</code>.</p>
 </div>
 
     </div>
diff --git a/reference/example_isolates.html b/reference/example_isolates.html
index 678c55c0..bc92c6ea 100644
--- a/reference/example_isolates.html
+++ b/reference/example_isolates.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 ab9bf26b..556a9077 100644
--- a/reference/example_isolates_unclean.html
+++ b/reference/example_isolates_unclean.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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/export_ncbi_biosample.html b/reference/export_ncbi_biosample.html
index 87d8b7c2..091ff027 100644
--- a/reference/export_ncbi_biosample.html
+++ b/reference/export_ncbi_biosample.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 a70d9616..a484f7b7 100644
--- a/reference/first_isolate.html
+++ b/reference/first_isolate.html
@@ -9,7 +9,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 abd0de62..674de1d8 100644
--- a/reference/g.test.html
+++ b/reference/g.test.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 8730b558..195a05e1 100644
--- a/reference/get_episode.html
+++ b/reference/get_episode.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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_pca.html b/reference/ggplot_pca.html
index b07b0d2b..a9003e4e 100644
--- a/reference/ggplot_pca.html
+++ b/reference/ggplot_pca.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 511b676d..4d3da888 100644
--- a/reference/ggplot_sir.html
+++ b/reference/ggplot_sir.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -161,7 +161,7 @@
 
 
 <dt id="arg-language">language<a class="anchor" aria-label="anchor" href="#arg-language"></a></dt>
-<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
+<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the package option <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
 
 
 <dt id="arg-nrow">nrow<a class="anchor" aria-label="anchor" href="#arg-nrow"></a></dt>
diff --git a/reference/guess_ab_col.html b/reference/guess_ab_col.html
index 97441605..7a84b37a 100644
--- a/reference/guess_ab_col.html
+++ b/reference/guess_ab_col.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 30624977..60b196cc 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 8758aef6..08361af8 100644
--- a/reference/intrinsic_resistant.html
+++ b/reference/intrinsic_resistant.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 f4e81bb5..5674b0b0 100644
--- a/reference/italicise_taxonomy.html
+++ b/reference/italicise_taxonomy.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 e7d10cca..8522b8b3 100644
--- a/reference/join.html
+++ b/reference/join.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 5c44ff99..f9d80d7d 100644
--- a/reference/key_antimicrobials.html
+++ b/reference/key_antimicrobials.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 0837879c..c100ba0c 100644
--- a/reference/kurtosis.html
+++ b/reference/kurtosis.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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/like.html b/reference/like.html
index ea151780..d771ffb5 100644
--- a/reference/like.html
+++ b/reference/like.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 4dcf6bb5..a50f94f2 100644
--- a/reference/mdro.html
+++ b/reference/mdro.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 b447dfd6..2db543a9 100644
--- a/reference/mean_amr_distance.html
+++ b/reference/mean_amr_distance.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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.codes.html b/reference/microorganisms.codes.html
index 30374bbf..5c30abef 100644
--- a/reference/microorganisms.codes.html
+++ b/reference/microorganisms.codes.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 2a063bfc..4d7b34a5 100644
--- a/reference/microorganisms.groups.html
+++ b/reference/microorganisms.groups.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 61909f49..5529033f 100644
--- a/reference/microorganisms.html
+++ b/reference/microorganisms.html
@@ -9,7 +9,7 @@ This data set is carefully crafted, yet made 100% reproducible from public and a
 
     <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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 3648b12f..b8d77249 100644
--- a/reference/mo_matching_score.html
+++ b/reference/mo_matching_score.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 ed07fa28..cf21418f 100644
--- a/reference/mo_property.html
+++ b/reference/mo_property.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -330,7 +330,7 @@
 
 
 <dt id="arg-keep-synonyms">keep_synonyms<a class="anchor" aria-label="anchor" href="#arg-keep-synonyms"></a></dt>
-<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate if old, previously valid taxonomic names must be preserved and not be corrected to currently accepted names. The default is <code>FALSE</code>, which will return a note if old taxonomic names were processed. The default can be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_keep_synonyms</a></code>, i.e. <code>options(AMR_keep_synonyms = TRUE)</code> or <code>options(AMR_keep_synonyms = FALSE)</code>.</p></dd>
+<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate if old, previously valid taxonomic names must be preserved and not be corrected to currently accepted names. The default is <code>FALSE</code>, which will return a note if old taxonomic names were processed. The default can be set with the package option <code><a href="AMR-options.html">AMR_keep_synonyms</a></code>, i.e. <code>options(AMR_keep_synonyms = TRUE)</code> or <code>options(AMR_keep_synonyms = FALSE)</code>.</p></dd>
 
 
 <dt id="arg--">...<a class="anchor" aria-label="anchor" href="#arg--"></a></dt>
diff --git a/reference/mo_source.html b/reference/mo_source.html
index d460ca7c..4a7dda2d 100644
--- a/reference/mo_source.html
+++ b/reference/mo_source.html
@@ -9,7 +9,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -85,7 +85,7 @@ This is the fastest way to have your organisation (or analysis) specific codes p
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
     <p>The reference file can be a text file separated with commas (CSV) or tabs or pipes, an Excel file (either 'xls' or 'xlsx' format) or an <span style="R">R</span> object file (extension '.rds'). To use an Excel file, you will need to have the <code>readxl</code> package installed.</p>
-<p><code>set_mo_source()</code> will check the file for validity: it must be a <a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a>, must have a column named <code>"mo"</code> which contains values from <code><a href="microorganisms.html">microorganisms$mo</a></code> or <code><a href="microorganisms.html">microorganisms$fullname</a></code> and must have a reference column with your own defined values. If all tests pass, <code>set_mo_source()</code> will read the file into <span style="R">R</span> and will ask to export it to <code>"~/mo_source.rds"</code>. The CRAN policy disallows packages to write to the file system, although '<em>exceptions may be allowed in interactive sessions if the package obtains confirmation from the user</em>'. For this reason, this function only works in interactive sessions so that the user can <strong>specifically confirm and allow</strong> that this file will be created. The destination of this file can be set with the <code>destination</code> argument and defaults to the user's home directory. It can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_mo_source</a></code>, e.g. <code>options(AMR_mo_source = "my/location/file.rds")</code>.</p>
+<p><code>set_mo_source()</code> will check the file for validity: it must be a <a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a>, must have a column named <code>"mo"</code> which contains values from <code><a href="microorganisms.html">microorganisms$mo</a></code> or <code><a href="microorganisms.html">microorganisms$fullname</a></code> and must have a reference column with your own defined values. If all tests pass, <code>set_mo_source()</code> will read the file into <span style="R">R</span> and will ask to export it to <code>"~/mo_source.rds"</code>. The CRAN policy disallows packages to write to the file system, although '<em>exceptions may be allowed in interactive sessions if the package obtains confirmation from the user</em>'. For this reason, this function only works in interactive sessions so that the user can <strong>specifically confirm and allow</strong> that this file will be created. The destination of this file can be set with the <code>destination</code> argument and defaults to the user's home directory. It can also be set with the package option <code><a href="AMR-options.html">AMR_mo_source</a></code>, e.g. <code>options(AMR_mo_source = "my/location/file.rds")</code>.</p>
 <p>The created compressed data file <code>"mo_source.rds"</code> will be used at default for MO determination (function <code><a href="as.mo.html">as.mo()</a></code> and consequently all <code>mo_*</code> functions like <code><a href="mo_property.html">mo_genus()</a></code> and <code><a href="mo_property.html">mo_gramstain()</a></code>). The location and timestamp of the original file will be saved as an <a href="https://rdrr.io/r/base/attributes.html" class="external-link">attribute</a> to the compressed data file.</p>
 <p>The function <code>get_mo_source()</code> will return the data set by reading <code>"mo_source.rds"</code> with <code><a href="https://rdrr.io/r/base/readRDS.html" class="external-link">readRDS()</a></code>. If the original file has changed (by checking the location and timestamp of the original file), it will call <code>set_mo_source()</code> to update the data file automatically if used in an interactive session.</p>
 <p>Reading an Excel file (<code>.xlsx</code>) with only one row has a size of 8-9 kB. The compressed file created with <code>set_mo_source()</code> will then have a size of 0.1 kB and can be read by <code>get_mo_source()</code> in only a couple of microseconds (millionths of a second).</p>
diff --git a/reference/pca.html b/reference/pca.html
index 7135664e..272a4c0f 100644
--- a/reference/pca.html
+++ b/reference/pca.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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-10.png b/reference/plot-10.png
index 66295bbe82329fd2596e5539dc3aa693c41c9f90..a923afaa9ca7828d9dc115e1df67d498fb7b4470 100644
GIT binary patch
literal 25812
zcmeIbcUY8Jw<TVN);7|#0Y!lpF@ZoE0Lj{dh=`~tIj9IIQ9yFE{ZteIMFAzM2uK!?
zA_rTgB<BnTl5@^+)+xKc>AAm|Xa2eO&hO5AJdZ66RrS8_Is5Fr_S$Q2AD%xavtcdk
zS_*}-LH4xNMGEBy8wzE`wI5gECk;NYhw;~{YjQGD_#0m{C)1tr*P2_WRV^qKwg=?T
zGS7|?T?*wFimcR$OEv-hO|~`~mYI^n3SMEdYj|T~N-w^OR@Oamt6)?o{2=e|&%gX0
ztz{MW%P-Q;rGwmNhcBr<SC?ka_)+D&+N~4EUq4T9{q2Mx|JS{n_is+C^WnSstZ;s@
zrSrvyn@42zL}tR`YR1}oUKUOT%(NHQbv6w-C`d~Lm#k*oU0%dN>t&4ZZhN?}kZ*pu
zuw0A$?IN|thVh%9_q6;#esKEvzrzcJ4zXz5Ix#-jBx*M`$fg*6j<+{K#*;meckT;|
z_QBqSo9YLe71BHhhb2n<h4_1Wd*4_O(MQ@imQsoYXB;G~=(b(mP3hJSlZnBa1zW5*
zn!YXkZuupRnjLD#mK>X@K%qo15AO|&h&aH?%KGN@>s_NW4i|izG8*sSzyF5Mw~D7@
zPIjt{jo!uYJW~*VyQlnJRFvD160yW0!7W?1m@Q1y$ecWRa(=|q`SHz)u$T_+^aq2(
zP9M|WY@TcIR@QoX@99v+*trWnss|&qXx?)vwSmow6qmu{IqOP4Wlp!c9kLy5cXfU7
z>($>bDJ#cO2ZHPex2N|f$Vo{BnCBlTtE~K>WUz9-kNJbAn}eq|Q?3-P%n&cV86M~}
zVLn|Eym)EQ+~u(0V7$7rG7F8(S|fcRE_1Tp)zzje&^qDDHkTw?(oPuAt`_;if2`TW
z8C)VG5$t()qsY4=L3ej|JK^I(7r#2GbC*cW8J!K55a;CN%bp(<n4}w1r|9;yC%aB^
za<<Nom1uX_jrfc$EVrZn=E>hQpjK?gOnGI$X?Xeg6<<v&RYAx61L2#GD(LF!YS{IJ
zGBY2tpEMGxgf+OBoW+x#be#V7V1y>Qc!-nJs@ZX>_C|>N+MuZyIv#mpaVf2juKALq
zu=$}2%c}=zW5uG0Jr>2n;U~vTK9rq`AD}jzlKQN@IO_XCz)<Oe;R?L;(aD^KH40)Q
zQdVtlo&GE_#d~};ypjg6(HV=geNo2h+S<WMeKm2~?dGYM>osnD{6W><N88`Tz#!jg
z$xVBnb8caAZm79;!r$4d(Tw){VzmYz3zPWx`2fesy7($3b?IOU$7{9kubQ<!+?V_O
zfMR`g{5JDc4Y9@PHnVT{SaJu`huBxFTJP%T=eO<Xjr08(W5tY@Dmc$p*i2L@uVeQg
zj7g?HGK@{#>v62rwbrK1J+WgTYi`i2Sh(x+kkeH93rT0EbW8EE!Xsug9lkXDYR3+v
z_a`c=s=iD%m~w;%TB$YK4`p7^*4BP}`TZ&EtC~ZXX!FCe5E<G&iIIoh72yi=4cQCo
z0k)kl4_WqB-Y_ycXuAPl@l93@x($^xUBS(RVyPN@8zrV&jDim7<UTht`iQsd$BnhR
z@t^uk(_vj4w9a;`P>>YAzhTE#$Jz0RG1Pi)++lzX?x{he*f1`0tFN|`ZGS=mUp$tU
z_Ugpl)~~xgALGuFTLzph=LY;X>)0=RV{(2W@3~Vr;Z==sPo<(lQP@!WP}ath>;wmi
z=H6o;jOr4sx>OUc%SPGOD?Zkdc|D}8-k=ii`SOT<@nfFY6i%xq%NlaDPTXDfg;{1N
zvryx$lLs|Ye&yu!;n$`cux+sq=B_b|6CL<e^eC0@OwvMh%tEwiz&g<=Q7xME^G>x`
z724au+ZqRbs@QZEhaX6OPVEZX5j<0<|0Xt;kN6G+$%S$5F&2Bt(+dIRY_amot_1po
zf7;5g72xUWAl2U2+dG=7VUlG0VEuNlBzM<&vXxa-$KHtW1S@j1{Edsnry8S+U=0b)
zLV|)+yTC~&Dwg`PkGOgJ*Zvt6Et_4E_LKed;gSnI0(|;78F~CF?_aGjjB_;27&+wx
zpTRS2`ts<_a#mj<i_XG%iMf8o;ZZmqCDl_pIy#FUqJv+V*hD@w&5*mvo@*LfJFBid
z<rG_t<@RmX@f5F*x!PU&nq2DjE7r8uKx=xQvXYWsoc+?mR9yUmHQp0FkaK6n7>DEd
zg**dwTYIOeChIYOql7%xng+PcfPoSorRcB0a4v>M*>i*GEaO7A+a39GC;dvg#>Toz
zO6rLt8ab9E0{bfQIfO?e+o-`;6FC_w=Svk;C}=ab50AdaCc4%!`;2X&5e}8MRh_P(
zhSKHBmlxr{^7z%M(N#mDV_M0fmuQ*4S%y2NZ0>t=sX^huRN}?x2OdGI*Nw!OI`XJ@
zKHh#r$u<jH*fFM=?ZeY?D58<}Ws+V|tdd&2{fJ()RfE%L-oC_{GnPhYCj!cw$hK+j
zX&HF??bCx~``5zy#Q~T3OsY3~X_$T4qMGipis{Qno4EABG>7Ia$8~De!{0uQ$;->L
zY1}pT7qvEV%ABa~D{W2)bFr@faFb0<Nvh#a-CNmbA{hbxrdg>?*~z;(jDl@iA1Yln
z*d>W*W9%GiUDlrWEU_jkHnzCLPavwuiucnWolN|pmFD(YoqmRE>9HnhJz);mKc~uf
z7k)@;wr+N8hzTv7N>ynvMBJ2|AO583k7H+Tz{aPM^1jM2MkW4@V!=(N{FaCpG>_ty
z+rNnEb(*Kn$J5x=hnvj?l4_`S8qqGve_Olf4GIyHWbH1l%(&NWQe!sbV77vOO`C)i
zm9@NvY?4k6S%`d5F+&Jca)R0s9_|N%6w~^W4p5@q)|Zva?hCwqQE;JF$1|y}GjCsT
zVb}wlcxL8`FnPBvJW3zxoLWCWtQ*&|AE<h57a1AJxny>wIg*N)rkia#GgdCgA7f^#
zz0j-N7UC)K2&+%~aI@lC*&FGn1s!kV;}6jt#)^&&rnDtc`Lm|4i4EthV2iZ2%=P5p
zkn`npcXiEjoXZ_ZZe}Ov9oLiM^L2yEE%4!Wn`(BJ3_BOdN<Lf%`(tRKYKp(OwdIy(
zYqHtnGDgoFRHq(<_dO~g@TK*OTiZm9w&%l5`*QEBW>3kTB}eeZF|%uhFAnYQ?dwal
zJnXzUZ_{#T^)<NA{Q4lX-0g=<=^1>nPd$qQgpW+t=?C{m*%0TAEf>}+^4o$)h^M%g
z=e1`9>+=ORlQ?tAowaJPW;)%Vzc#*3d1ePIYwN4K8`U}tZQQo<KDrQcO4pN^nUbYX
zeNEP6l1kd`oBc^OT8H36$@hpm@8aS-;RqDs^Y;2*H%5f*Kh_tW*!pob$K$lLw3LZz
zb)CV+R7CjAFwhYMlw52}K$3HRJgqe%JgC>){R>?yTp>6}eu&y&5*Qhwo$Yi%Q!`N9
z31?k2DIn=JF`oUMhsNMGTxFl_)%CP)Fiy51=VidEE<tys@JPvLTy_&PGyKKXvPBQ-
z^S+dti`I1y<dXREEsF=D2j9!zzHFWD;kJJ;NyEA}EbZimdui=na@W2*+7e$R*zox-
zlf<@lEPRhO_<UpfmZp{#o4LoHn@gVl7Em4-M_lNK$s-*>-w<j_7Wd5#e_}FCEZVLg
z@YHj9nn%HT`V&XOBzbafW0r#|PsAm!<hWEVn%eFX-+xYGraig{9!+VuxiX>axKz7>
z_(Y|^<c~M%cC@_zw2^1pviiCkFZHX>3}Tg)oiO59cEvf-B(?CRX_}-+W=4c!cqfN#
z`%^3XTmb=r4h4~(xBZsc3j?Nc@s7KO^!a=XhOi;3>2TT>?&1lE)T25ykD~futNNP*
zOLsIsILwUBSF4)_W_BV}G(-k1Of^f|o8Syf_gzid%VS!iJ(I7jG?$jBU!oQIAP-<@
z6#mgP(GefbVO4uowE;NL!aeE3lmv^teNop~4E2uaU`j|uL7lFzW<rP9c<D*a$cX3S
z>)b5+zjle%D8{JJ3OfpXlY5ga|5&px+Ug~CekQS4#L(L~S!GT+!o&Vv@42~K2dbqb
zic>=yOU}fz=U3fL7S)D(3`~c6wA2vxbPG)|k9oju*KLr!rQ#wv=YfhBQv`o-v2=Gy
zex?+y@>KKfB_*X;^Aj%$Iuh1J#_P~JeGjU7C2>eP&2ty{AJ#oHIgdk-Szn{6zHA5q
zy?#Mt5@$hm{QT9@S10O5eR$QYdpg9hZZQV-gQ;C<8tShlX1hcBEmt$KXXH}vWdu7f
z%{3<qR#jEa+*`*&RsU2TDmRvtlq9X{drz&&CWFT_J^e=68?PF#l4N=i-qkqxfa*=_
zbpV{IuFdKY6ui}vBS1ACa^(9mSwGrG(_EwHiAxv>CpTHC`x<cT4quAak&$Rl{Uroz
zwwlA?SNp8k*x06QU0CMKofWIME~qqKU=tqP5(!AacA-0Mf0b}@rH&>`Wa-5DSeNf>
zrpaXE=E$a8+;%PELv&JUUzA7h*Z4!B7H7C?!YJ?g4oRKdcUf7Pc49T#W@e7&Z<AHZ
z+Qt*}g)fgVoSds`iSy!EJl(GEi!1YP&Nmav(|%1BCE|7CFAnLPxoq_@YsB63!>oao
zx?gr|tr6UZrc=|3jmLiRU(8c*D(^}E*lg8cTsPib7NYJbA6r?i?YvNHUckGXvlYk6
z6^3Aa(>A%;$zIU0OqxYH+i9Ub5a(UOtXfrH*E1L^&sTNcRbHs+=pf)_{|EyX(QR}z
z97ev>4Z#3jcQ+)P<{7Hi5f9W|6;;F9@L}iRE9a#}L=yYx_yxfRqi6ESi{j+0A7G(p
zi$#a7R}hdH?weS4YKLwGhr{p*tad1ZxkwZin)u)tA60er^juvftW0v&M9juZYOG%*
z24kYrhd%LI>S;dj3s653O5dB7Z>iCf95HzQ<m=*NZI6GCjT4DXoI7DH8UEJXcrB&x
z=VhiW4&T;ke+}cnttyoy?JSA0JsY*@+_7DpoLWc|R5EPLq9&~y&13|d>P8N`MLc2U
z=HbyHCfIh(!6tovv>>s^tS$G8lDhGhHkzlWevs|nt-NZNhRws|{e9$}d*rlx%{7Yv
z5ZRf;hL1nqA;dS?WZg`%i#K6mdja~Idb^5*nhQI7dXMQKniquu<Cp&4WhkuG$P<@Q
z9?H5lY1Afzw`KvJB3<e3q|e&AARy0AMs~rDlMf#~dL%#{0t||x0aXX`@SRD_6!etY
z!93t}TH_fUicwltR+gNA_r-V*w!q8LI-Q#o#GcA?n19{%L#CCz&I9Yq!XEZKeSCAb
zBC4fRi&F!u*r*S$-C|R&H;xpoJpYb>0-K<VgR7es0=&vesOG6|WV<g=@4U2-*aKg(
zyI68*zJCM{#m3Ar#aWLm0@l-Vm#H{tsZV=}b#5S8TS}_XPk<+V<d64PKV8dlSr*Ed
zsd;a5+ORGpa+`Q3wb^No1jE+u5KoUiaz3BcO*6OnYT4anBx)lgvtpCAI&IT!o}QUg
z^z<TjO(e}h&WkhsBjFMg5qve?C0%W~J4_!VD>F?JQdSN0plYiY`0KLW%2`&|+~}a_
z*6HluXH;ET`CLAGVX{Fp^7U?$lyCQK=0|94?n3mhPS&L-R)6_{MdN+7fr{!baXD_D
zrHLg?Uddm*)ecZ=TwM_e`5PwFewIj{&#Bca2{z}>jSt~@WL8)Rk7~zE%`mI=TfhDA
z+gDa>my6rz`T3blzIMb48!j~6^xwa##w@gn5x7`IZr}K5T$Afm+Ej8NLeqbFPTFxM
zIv+W5A%I5A%ypWXyCt%0ZZ1aBM`#?u6P&Z-;gW$x_Q*(eD|nZzGdlt^3nDUu6he<0
zRK9y5WU6&GNKAO6X#aa9j(P;JpM-Gw9`6)BylUglZ6wktzjW?c*LZFHnp-4;b6)In
zj-6n7m#Pt4^=0_c7M^Q8<)IA907zhVc2*_+n)GBvY3Y-N4;d+1{^I=h6TMZvh6~Kh
z;lWOJs>u-^S(EkANt+uCr9SKV8~e!f11(k*%pj^J_I$j%+BzcaVqY&=oA{#W4BqI*
zPq!`oN=|-Jifz+U|8rHwrfZr1Tov)``@dPXA4?OQygTS{PIjbzGo|{6<#fJx(b12A
z;Y94`|5(Q_CH1*4E;~qbdZ*cE=DIOB^tzf5HIL>=SeJ<ZV!ytmdbywC1x3Y8h@I}p
zLWGd5T<a`+X@*7n0+_-I%+Jgm4`+X@_gzTq1IhWTQMSri`%TzS#wBVwFHEG2=JO=d
zkZ71T!m3B$f<6Pog@AAYqHCATx_PyIY^L_=1GcnrzoLt?w<?Y1r$=HW`cFwYjJRp{
zSGOhmD8?t(=)rC+1;vqGo#PMhP{}IFtgR07nC$G$j}K{7qHjgaQYv)_{c(G~ZDXHF
z^*zfAU!AHq)!gknCc+)M@aj_6^UVaWX#UbN@WzK@{b2UeB3Kg85{b<uE03w?uqZsl
zJTg)<gNNG$urbGaMe4cn<MP4igoMNQH?pxJ<lblm%8f@Zn*!jU&{ZNjl%XWPnTMNO
zErwR3WgjCK=iC>QtXHuw;MQ+qqhEKA)Rj013O3!YAen7`e*R@Xt7a?$U#4Cnd`qoK
z`al9LE^F2xifO~WMTe>MX5KU611}{U?HtDZn+w^6n%m!jkpdLG{K0?Q1Q+n2|3F$_
zY~6VC(&7}>L3r5p1{*8O$z886D%(xp9<RM%0#Yi*Wd3ru*;`%yzH0}%%;M5z9W^%_
zO3FEkM|)s3IKQt(B_osCh1I~h7xiEK!tcb)yp*Oh;G=G`ePM3Ov?{B^##BLK=6VJW
zXx-9t&uxb|ftE7gR4d2E7oLeoOB3PC82+Q*q?(x-srBtB!QC<*g<+;yGo5^yS_L~|
zG|cn%3`}aMyuWfnaI5yAop2b&)#Xh{>fcvQ|3h*nPoedx413-n`$BT|0x$V2bMKm%
zEf)61)rVU&ZI|{}zL9oQb8l{_V$UE?l{>=wHhDDPnmY98HxITBDi&O~f=Ocf%89WL
z>q8!eHqtT&xsog|L@pdmnmGS%(20$u>_}Y4Melm2^O1jreCA=RvX+l`6a8;yz*&vJ
zvwd#!lw@Z%_WVSh>Gap<$Z*2ae@1ST(B&byIQ^y)*|4v?kmtUdO&d5Q#Qe2pc)GRc
zTUio&$R3Q07VuloTB=PB^IU&SU9)NL?b)Pyb5I6)6}}qgvZ_M?St78d+{fEDk+i|p
z^%Ik%Sk`zbzw{72v+dghj^f<k0>S-}e5vDLk~(+iWW5onyW%hor|EC!eptzSGT3pd
zNhmTZDqTalV1e3E)S;x01ET3vBv4iA{f+0$H>4~@VKh&U=D|gJZSA(D3GJoJ<0AQv
zjeX}XYOsXXmR!_ey4USdW5(Q9oTOoJv4QD~<vH1J#2pC09Ynr+=Zdg($bQ~C&S8(g
ziQ!HvEOncxm64RxS-+zPOj0|1`cr)}Inu9<6$zDuAu!gxIcQ<5lI37a%=F;9@J|W4
z1+7BaGxC!u9UDSH@qtoP;<$yFoMSVTIVEygxu9d7xDuU)1Bzjr#f|DfU?#*l6bFh5
zVQCbHYpRjQZ`Ve?=ccBh9-G!18NHfze}~Do?D-D<L@nM=_cypTm}ZL`is}`<@Nx(h
z)BVz@<?q<KDcJSur~A^MX>C20ojh-N?K=W){jo+fGQ1A{#7AEHcA0dHNo7I;$?dD$
zA1j3;V=@<QaaobT?m`F>hnWIx6H7%uACSI453yXkEK@!0n`9sLfxcCJ)c5+QrV$Z7
z&L+duAikvUPK0r6cDL~U4m$061+V=+<h&lnR8#gLV*tPylT#BfOB}-XPkfj+n4HR*
z%Cs5z!lLe2lqQ-EKS;2R8S=Yal2&1duL_!gA@G!T+xmrM)7W^AAJ%P^l9DnuHYSW)
zjE~}l3uOjpGhpVw0L&#$7h7j-I-*y2BT0gw9@Fdvt47Nj%|lq0%efDY>*l`oM#Xs$
z%mnt$U-K8Cqenjj==@9q%wtx8$P}LTr9~eg%YA)6%mGH^BB^Pe?ThmS*YY84doF@j
zEBt{QdBrJDb~b;Lw40OO6&G!1d&1ki<oNQ~6#_+)E|-M3y0&?U^7XAry7pyl+eqx&
z7Y&ATT|xFHf(sxAZ>Pli=xlHrv<U7So;SX^ee=?Qsk0kc=lxoa6IBOY3~t<T1*s@Z
z4%o4U@rrd?CIC<!N{WgVy`83#OEV=pNO3*8f}JHAHX`1%nmW&^?*yvalYT+tf83z+
zO#|4V0c_C0?;AAeM6l;uG0jPU_ahw4F;2iYo>kOf0mEwU0aOk&OAQ0@cy(fmVP|h9
z7Qu8!k+?)<oC0~B1*fKs6q`fBVVZl)9g*H}4ncDBr4r&ZY!Mk0OU0rTwY9U)6y2LA
z>}-@~CkOJ;jr?)1U%#$8%(`R87~sOmk7KA7XcwCzo2hFfJQg+UH+qR4Qrt_pM%pK5
z@`0k0r*7x`ac|ui+--@L;UE84^PRYEzUIc8KqY05yx#mS(JXO=mxuQlI@jL}Pin}D
zh={1N(@MMDW6-d5R)R&x-na*OD}VQkN}sw!ef=?yZHL~R9HVx%KU3hF9`c88iJ}=F
zn2Zl8or=0dD?}bo_^5S@qOlpH`AVJ^sTwDeqGb<wBJ=zXQzJ@JztBt0B(aN_vmf*x
zv|{ruu^v>5eco^>6{%<GOEo!Lqq8GmP#NJgbhRn-_)xQC`qN8^0`8v#ZH8M2A0E{#
z(CnSM&A`yGEjE2ntz!yK@OypbwfbaGbVS6%rG@4tV@sJnfu81UXR+y)yD?dh(h>-_
zjl)`JAXe@H66%o*hvQLX+7GN6v@EMGlWGf#ZgjafN&+S$bo(K~6kiw?(+@B^h3Z9S
zcaoG8z{D{`-bDJ72RqGAN5xTNqr<|&s%$bOr#~`X%YS}gPXzDfFST0gtcS0kuD;t%
z*s=#%`OOJ3BM3tSZz?PL36868Dyc!Rvw<sb{ZMhv(AqZinALMdX=&;CPND3FIAKW*
zR^@MH%@$|6^gW}Zq8c)L6n3Q*fT2EZskzx+QqEF*^P6-{n)F+H-kOTg6prVkf6<qF
zTX?;^O+T9fmB+>}fS9Z7H7iIz%<>6NYb(jfG;m7dmlo$}AadQ(<}cO(D71ng@({M@
z{EVssE1{#;?+`qQbSVVv_Nm9)m<d-w9`6u5>F>Ge4X~lsIOhe!jPY{05p4toLgbQs
z5!Aq`rNsrE&#ug1#`HgfLf%eX(Rgo_p||e(ZNL6P;6Ec}fM;`ieewZ08S8f*`;|m7
z67<?&aGq{_Y47%b%kOm<eHQ$<d2up%1O*ium^lulo<>I0I=u^*FK@xgibv)^d#N9^
z{n<VR50C}9NN6_`zandpN>G%40r~8`3PFv7&A<-+w9gMWCDL?qA3wy?K7X5aX$!IO
ze4e<%Fl6JwESFA#Q|;Vw?ADdCY&|tiO*YW2)}(e-EYcTUYu6VO5*f+8YW=pKU^}-7
zUPCRazt%XpX|0yt0eG29xGg{jV?r15Wsa9`lW?%X&!oW@x0Rk`a$i~;TJlJ>=*m4r
z+qsGG;hl!U64#Y2ecQCGpR}g!|KjA+YPbIqA<a%tsl|rNnMv;N5Dpb(<QvhP!9$;8
zs+OJ3h1s)~h>e}Ctgg=e{fBkPNA=tX2(w%Zud$o+8raqtljBlT7B!mIx|yp>kU^*P
zg!$)dFjFGT&n<H~+Vc?=LILMvQAi$uGZUL835h2qwVqAnXx8vO{^uVA)AsrnB&EsC
z0Y<6j8c<HZv{*}dD@Q7e1F+dTm4LQfclEZw+F-lh2x7^o<pIGNTmSfD{=VQ68ma+1
z`LpNEr5xtBGy)C96<%KUgtKci<+Q&G%N4d;NZ(EY-4~*+N-{dZ26DFGu6MV#jqGdK
zao4Ln6+x<Xu6fA`;B8&}t#5zaFfe%J>S?dctMdMru(L0J-hJw^YgAm8h(EzBq<-WZ
zb)AxS0N3cAdHiu5rKu2!7)SPORoq&WY{ZXTBqotG0ZP;@EJ2V0la`7MG2jb`f*rw~
z{-!ZJNhhqW5mITpJ;hq@9;0Y>1}vxCH1AyHV$uoZ`Vhv(PnePEvEZehq-0hI$`_gX
zwXaWh5mMwc;d*4)EH4qeJ!qXuxvf)tfKob!()BBU_|}KwleN1^#4z_=e!Mk6k@BkR
z$SQtP%|8By+%UeL>|gfh4_0Q7|EE0sd3ZVbo9j%@zt;=iX?5`ZB4E)~%xk@7{8v(!
zL)36}C5%aB&3--c$iK7zHNL5wuP)6_4(tF2iahMf$KOdA&_eon1aZrD6SLD7?dch|
zPfNNAG?>qGuUNhDF;b7O9p;C?lAHUkczzmNOin!~C#XYapj2)P>G7j?S8eDW&#?P<
zf3W|AwfpBK?7Y)mF1`@Aw_+ro;}r_D{<_4rXTkH=2~%%2{E>k%RR%}N=20HKk@+D5
z<i{Yg!4w1-wFM`V<^q%D5*L}hI1v}39LGMPPwLN<zIW{2x6gqc*n2KuTc+K_qd2FD
zsQA9v^izOtM+F6Q=Z3O5P(n9Nm0L+(zu%92(=fri<n_$Vl8YmrI>Rj=>nxCQA2O<a
zf2=FOBL6ZwdFk=8i5LFS^7w2{P7iRRO5gYxKUS#Py`1hK!2uo%^%Nk;l)@_V3raMb
z_%+x2#I*vxadKY6=Z@4H#(hEAs_h<&mMcuB){Ms11|Go^<=x0aZ-%*UW~e%R(_Lfz
z4(Xf<u%_D{x>5Ry)Nop5Bxf)950Hx=>v*nModW7FOVnw;jU#!cksu*6r`IpIxw$!8
z+vwfLOR6&BWNMpVhbLx#O8d09v2Wv?D2iiqz3<q|?pn``c0djQTbnNPblNP#ZhL(v
z5^Y8)d9<UTtxSf)9R!4g(?Xv%4RwrdaCKv>zDe*Ug24!@edYQ0Cu_5=G+lLmVEJHy
zt(tApTE)7yx#ygnRE|1aIWse$1<@27gU?Io0^-mC;TnHE&nu<FN4*t3!-E6m;3!Qc
zaP3C#Kdv&Cs7W@}UOIVFw)^9{zEw+YOyq{6Mf-<te}1?xNM-P67uOVc!vf7exT|N_
zGZtni3c_fQw^!)-Kiw^p%bVQzGlAVlj~<n>w6ydekN{kzbpf<iWmPw(TBIu-jD8Ce
z_W}eN%*=8=2Oom@Ijp?$`56S55U`S*66}&$@$vD6Tb6~EXFD%-SM{~Y4a|&nt#f>}
znuN7WmoAa&7=GfLzLT={SJbY|ecwMqVcgP=p3hl*L6FzJ(FwWFjYN41m#xfo8|oNl
zaIqTpLG%cq!K9=PqVQZKh}xTR6~n52u@vWQad$li8XpWIu#@rF42{ECjFXcJg1f)Z
zobee4`VK7{a+(`p!JasYjeOp8$gK6V3e`weN(v85(&E-If0IY9H!N2Ok~g?KpLh`)
zooPSiL4*#u?mJkX?UjFoT2xGV=i6uJ9--owwZ4j>3fipgxyEKUry$*?ZF;7}nH^<m
zZ86*pqw?jlY{fMKNIo;me8vUT27hL}=TR8WBr`Mdf2d;Q*2e1;Xc8F}<+$v`i$mYl
zMo41+1La5m2@0owT>=~W@1hm^*Gm3RS8{^edRat7Obi1{WZEql3PmGn(Ajf50-;~G
z0>B|=()pEsMD)C}<fHof`mbGMy3wolhXN<`YX`F|D=)3^sF6^$Dg{xXJ@|9?M*{-`
z;MuT7U5eoe=%n&Bm%sOcY{@%)<rUs{@7@jDGXKIXK48P!GVlsO+9!Rb-3tlF+3Oth
z5ZmmWn3&Lw{c*oH1Oa+W4-@|lVCf5$G^LA)+r0jtxx!Mmu}p>=)YADc4NU&yaN|F*
z&%Z9g2orDqwGQ9cfq{i*0aLaUDiDdB3Q99=EZNi2sd5Z72!Og{xN~eKr8hE)=y^Cf
z0VPN_im&5l6Scco*`4P{Y<fa{iTv-N^#Sq=%AT^_E9hU`SZE+2Syr>%KEKmp_+tkj
zLn{1=%kFxPJ!E~-z)1m?)vCziE)0Ih8E4+me#n3@gdsZROY45~j<_e`@1I!_Vv?Yw
zt<BLqN1tMFqMBB9p^61IKn$d!cw;OTPKp#y(k^mFzX45DbsKDYfy##SXS}_aW}T~`
z0#@?86BOE!{FMm*W*o8}S5ZPgj4p0GK2-x>CeGcG`R)FWH(6N{fGjmVx<uAFvM}VF
zUDQSJNeVJikxZi-fN_p*@ShI86)NlSp$tbiKG2ZdxCfpOtjIVdrtpI2U4pDK1`laI
z(6a6DCN-tD{=^cG4T80=8ao(|^jyQU`(s0C=}*d9wz`D4A?l(~UE}lt>Ilcu2nR4}
zoOU+BS-w6@JbhJB%BVWXe5N&+Lsj;YXZe{>)GzDaA1v_Y_tfB1?tJ8O5xHvK{i|jR
zKZ>i52@Qk4uB<^W$VypT#uitSHtIge&OA&9>L*z_*;6%l=gRG(10NLoK@CJXIzf7*
zsU{H}jmJ~XNq3krXSr8;_cEk}%Z5OS&Og{VeubA-2cj|J5S(#TOpH588@t8`vPRl?
zd|6uCh+QC)4Us9hx*nVBPgJ&zO|`Bh`mA>$9w>Ei%(twL2cZ*}G|O0oGp}V<W)#7y
z(#FNe500M!geUe9GnonwM~J9SNu7)+eGTKe$xB?yBcV1AtrpvBs!Z!-h|0T7>>R$Q
z*`<nq>CLNl=eB4*lNYSxf><TU+?RnJ&)@#9oxT1);<@a++oT~;7?{TK;~?Z`Kg3_8
zo<Zcz!e<y;d0MG#1s&Sc+%AbJ7+Wn~t^>9_CMX!PzW|5Pycj2Per&+S>OeBK-|D*~
z5mzdEaDyC29cVod8P|WPg_lwn7Xlx6`Hv=7S5kH%a(l@CzWnL3Xxw%=b0D-N{OK@B
zb@8dh;Dv*noJ7WmSCO++3uza4G$P=Uod3r3_cw|nPcgC!aThe0Xk>C4zDtZ56l@<M
zLP-|+TeB;X>1{z)M{Juts(aZG$nKZ&HI<duE5<sD+z9PRYU*%fc6ADly^3|?!AtX9
z*L)eAL#fUd@s^mlIMcByB7wtQJUO}X=ENMlp^+WP+5h2QZg-a&*`Xp;H~vgPVmmW)
zgGst^)Fk)~|3R!(d;w!&yW=0R4->+pZX7~yA9=D7Ad$dBQVk@Lvm4n#(!ulJmvaRj
zX_#IG2_d9>N_rQ7?CeOP{;^i3U6Mg_W1<je>pJb}-~M?8yQJo~IvY`RsJ-=RgU)1s
z-3a;#XvoWh#HZX%9dx`Wl{L(yr5wbz4qcF8yWIahK-fjUnQ9?=eld6!qC}kUlji1W
z1Mjb{JKsbS*C43gU0qWq>kZYLZf#(!r~r>06W!I*^ur{oV7cH~S%~%&Z;mb+rc$Yb
zgpp)sMw$Ac^!M;3t|Ysh?&?Zv@z<ZpSJ&!+jODE=V667IjWov_#wxiag>;MCkUj+l
zz3Dmx8U7xBMvS|nsSIXq?2E<~M4%AV>Nz>rYTnlGJmC8`;47u6sfmPKE8`gCsSFm*
zac<Hbju3<%isN95d>AC&)DTCeonxc#HSl#!i>xf&8PK_%LdgMQQqnAtTJYMR&?5*#
zKQV9Gdv?F|nkZ6i3GWh+V%+laH)+y24UP86V0;R_$&ygshV(BRA{8|wJAY&90i8XJ
zpWf^#m#;>kbHALs$uLV*P3kj9T3DU2{#URmL;#_zX?b}v9WqzT(C^l2dB%4+9W1)w
z4z1U`!HeVJq8~CylLpWC2p6rGFClgEGwsAM`5mF*|H{-4r&Zpaf<9DR*Y!SR!!n>Y
zTwRG&9)Y_)Ao<N3hN@s2hz}B3d2|^!82v0wOzKlUUXtKqJw5zQQ<V`iD2An>F3G%v
ze~D*VLtc4&2P}9a)Iqgw44&=PhNjlNhK$d+tx;w_ENBQu8mtr7Aj+CH(EjRFN2^9P
zK8fLt%U-mLIK#j`-51XMJPhrPA*1LLt(tfy9t~Rfdb4ub5DIi{&8SxCki#@YN-c!c
z#_nCqW~@w(2sy_nd<5T1S2s!3Ww0hFgI&vBPd*|?B(7UXHJ#Da0==+Y3WFj(&neAh
zqisKsWMub%&1(N-E5p#HCGk_Cy6ex3((vT9ZVVG^S=ub#!iI9Z-~!09E%qbiQz`So
zZ&qjM2Rm8`F669W+WhyQlG@7rWO6o0LP$$_NYS$2m+_`wIPJFB-$~RfdIZTdFDU?~
zfWW_owgfjq(r-k)zV^!94R7AOx#m8`L>6@q<G#jE<GzSo94ffFHt<=;APrp?BpF=7
zlFmhOS!$*?J*X3Jp5br~ENqu}dZYZjkYt@ymHgc&ugc92`02*|L{*FQO{z*z(Y&pG
zSu?63D%s@G#mJc3zV7MO#_vD;{v>J7!&80K{IqqJ6;eMRdYM-^v+yndW^|+Z-hIK(
zXl)$L!d>>A8Et+;g#leN#a&p#(&xQd->sfvDAQEZ5(qz(Df!*J3ocCMh+6g6+Bu(L
zJh#uMpBWB<a_{HwoYC4n-}A@KXTEo;?Z4E-pI|j!CKH~RIHoDNs4qFE$`&4x4bhd5
z-Acc+p6t%H!J*J!_aG>(2w#?_C?_XpY~PY|CqgM|L%^!;a|P@}pv(<gxQ<&#UE-Fd
z&t}s5q+JdlZJ6pyTTLfUyr;X{rp8mdX2p=#9ywO=<?>-Dj%~FS6%}o+*uj;P7IQJ8
z@{NMNzCI2ws~B@%LW$#`g**GQ)8@e3f_5vb&0=CqGoxdbqO|yzZ@#8E@02;-m6vX3
z#MX7%iv&%cg<z6|qiWU;9cxSz6(n|;a-7x#d#E}Q-IVPvy^cbGx~MA)dS2iUS1GK#
z?F$!Ey?h8to9aAmZi<a)_EI7@_`GwW7iE*wCMK4jceNauo3Nj88^m+0X1BSLG-(g9
zn+4>3T_k-V`a%tKe+)%jV)&qFQ&y{|Nl;~Uzy}vY`uz<0gTr{^tE3+p##DX$({j_%
zYPElWS=aJvN6{t^6~W4{W{j<RR9>3n&!ujhblG?g*@|u3D#n}kpZ&CAD4}nVjsUeG
z;QL8GxPd7HWP6ga;rGpq&bq&vu3OX81i{RXW8b}ls+w|UfnQH=uUd>_XK|qa4wIB!
zw4D}b2PSos86T{YipK&u@irtx$DKpSq%nnLFca+GGnktK4iE3Mi`%u60;&aWI84U#
zz9-{3&p%EJ{y2wX0#{&QAWu_xXy_h%_|^MN96`p^y1fvpMNe&GJd%9e;GL<V#lfN8
zg#+KOxzUi5@tePypYIKorv^!W*cC2WWE~eHE>%}6GA?v9)I|KQ^|wFnr9zi~7*_p(
zN)02Xh%jz9-u)Chly)fOi&11uvtX=@OIVfhohgttB|tKZgl>Ncf*)o@w_1X>*#ZI-
zJv0%eA}dHUWH>3jgIDgT22w)d?pJr|Rt>1-1_xTzAMif2hv*zFp!^AsisBg<7!Zc2
z{TUZ=^65I?BSY9FoHl?3hhD|tNJoeEr!t*H1&9*tFm(ZP-RGp9UM$U``J77_(t{&T
z^V93u#Zu_I8H;f=G>yOPR{)9Iw{LUF?mheBi5!3CIGdS}?CeCJFULZ+Oj4pX4v7Vf
zuEze)D_)*rBo0;764ZPzaeI3YE;S7~B~u;II#d1k7ePi+LzQ{FEk1uisM%qxLt-mg
zco**|`xawU(>UYg4<DlKT-cqrzmAECp|>%1<!B5{0+EhNU4RM4nlIUobyiVjAi^8^
zZliumO)G|`N7@V<NPCBJ>QVxWlKNyk<IT|;_#J_%^^-)D-H1TQ(>O(XqSovSc;854
z#GCi#mP{FlB41Jazcgoqn=C<Z<OnJIzeI~8J1h_iv+S=hc3;#ZL#WM2<a|l#=AXA%
zJvjXqa%er0an_HnL-9tRh{U%HI)B~updH`!d0b%J5N@`lMc&KD$A_F!q(}CLVdPr|
zr=EH`a9KB5D#vEc_I{vR$r+LsOv(+lCbi3wvt^#0C=nDP_Mu-VAOlKlIJ)hEMk++i
zh-%?0(O^bZ;Z;P8cZJ^S_1m7{?($jF8JD!IgfTI`D_uzISWm~wCsLb|O`FpO7{M<`
zyK-SYoj?GfVmZj(&0#ZGXDEtdsY~doQ2hHsZxCuc-yqTXLPsfei2%d~5~%ycH<Ak+
zuZXm7$wZE6*Z{F~8}}3eu!hLb&E+y_4D-67hNUJVL1TMpuc8{A;j@zlh+g5JXS_<B
z6y~P*gEMH6l8&JlRR?wcyK8_WtD?eRX5=r3iij9A++EESJ9UilaPm=ucdQ}si87W%
zp(Ltt$<ujW$Jib$Mcm(BF$I-Xtg$nMavB|r<hq6p#Ebs@_5kHh<IH<;Wlw+MH~;tp
z%UiV=KI`V-`SyLJ!0yEbXHvN9!On|+TNYC++hLrVdK%H1VrPBlyPOyG^@;;tswV1n
zJmQJ{3WCH3<@7XaGaB3yKCaqP`Pa#)s%HxxM>kVG%)y^%|6~tCZ^3Ah{<cUI9u`QN
ztZDoIdQAOcz6ph;afO*rD5X&aY?tDY{v7j^T(rr8KF_-5Pd^u>UfiN-P{5m9NP49|
zBqepA`uNq2KkEfN8;F}@NOo+EV;I#MO0`DvDthSbc+WFb)%4oGJ~eFXVO+0zT@&@s
zz}_VHXLx@8J>x&W{|<xVe|3KO_X_;$mETK0zpcq&y!U?@-~X@ufcW_fa4FyC0#J_s
z=dZ`R>QhYT`H{O8ptgPlJ*}jq_Y$3!t2VGcNBW=(-A5h7?5yI9kat{DK)NLmxeV!v
zwr*U6tmk@fWyDJnO9NuV0T8O(#8=Kg7~45fv-wW)#fa;TDQ0!ZPY*-EgvfDB+;04|
zy}dm+f~N%FqJPktVA-8e%(}CGHxNF*Ya8f*Hl5EE&*kx@_j~O+dH*d!G~yY+O>v4@
z+vr4`v$(7|TD5`s5<gZj9CM|N;!67EI(XY>TvY}F>$V=eG5p<=O~h-hq@w|;-U^A{
zU+7{Xn&r+ER3&m=MDNrCan;>$hU<9e8J6<3KL0~<a#wU>@fk0YAmjKm+%1xT4!Y3w
zuTLB%qO@cB97@Z}FE$JUSK6T)Am^sbU}gQRFGo5wfeJ}##w|xF(F`WBZ1;N)Aj_ns
zS-WNXPbNBMoAl;10PaB=*+ABtL{3P<?7T@!^|>&G;H<_u!Mf|4M%+!3jOLg5sh0$a
z?+{;3iTXIS6dijew6*VtS3ea^E~MQwyqKg`q^ck24acF2rJkAZl5FmNiXEVTI}$u|
zHbjQvg+7SXvfY#n9{KGyQB?+nsw3)0(&skX!S9?psedHu@YO&50cgQqkQs-ShIS>U
z>)jJTtIF#8S|4s)K<%fo<)O<Usd?9ne!<#)B|un=nG)4H<*ed-jDB??o{xP9DC%3f
zlTpPF^iZ=Yh~A3PY(*5+fL>MEK8=vX9YOEd7Wxu`bG6RdcK~;G4OYO-1eaGN7!F!l
zS&7h>t!=Rvh?d+r^nURMwasy&K!2H!dwPhBXECJ5lhk!8jD0%#EKK-rvRX_h_}XHk
z`Tn#~v>ieb7Hjfrm$2&1aD6+h5&ON56dya;_yaLZKP|<8k3<%F9ki0H7x9-f?fWEC
z|8OipvyKroY=(vmqj52**nG!YwaUOUblo0)`#U?xyIs6+0-B5xi_F1g3)+2$UrCV%
zs=vEB6^{RBUD^K$_w}!ULiw){R1J*BDWNxwC$b;U_Lhav8mNx$C&nV-4UK6c$G1CV
z-=BEU##YTyWR)RQldZ?QP0Z$2h|H^p6MZ%OfS88k+j7)?MeFe?PfCu#@SNm7{eotT
z=1IZ>g~+JHq7|81wmZje=#3kn!T68SZOE1VL2B-i-O8u&qPVyi>2gkFbX4}ziis|p
z2NSe3n+zt_qurX4O868uHa6tyDl#*RIg#UF38<N<lN?k{czdUU@?K=#;lV%eF#Rhl
z@dN({V)eg_{lA2<|F1Zz|7$Vq-_Amkpq-1IKN>G%F~w-UWNBW3ur|=#9VQKglZ_T7
zA3l6IYA42sq-i%JbLJq`?TFG|FaW(_kSq><!4|p85#9XfWLAzW1FY?0oVSIeML%yK
zr~?HSKOi|G04@Yk7DzZD(yT?On|;9!hoQtg7eZq&DewHl)?|>TPZ3ekv3O6%gEBkK
zq)5(kCe({0G|dZx))nRDUbs1aqNEOyVIYKeZec%W06*4fJ3D%{D+bS2iVhBeuEAKJ
zY_2@aBS=*Gt|IN`lV`T+D)RS534Na|Y4GV7OoWJZuPo_8i%v=<cTP!DRMfZ*W<yKP
zi-^B@d3g((x>j&ZANOj<v#9lSsR3RQHot>jgPUO&_j~hjMN`hy>S`%Zc5#Oy%I2IY
zgYN*V%!p<Whzo7uz8SgCnn4iZ?3Jx=XsD>GOa0>~2lQ9O4PP_Dv=~{FjFH@_W4xu&
zbaXKZ*sWYkGRUKLD=A8Mg8`~;Wqg_qsq>h^gTnR6deJlO<8B4(-ZfEHu35XnG=k{)
zyO}92BBP0L%pTU{@^=PHf#;JZVw`i!Ep2=W?xtoYRJ<3ezY&5tFnXy|8^AelefC-l
zyw(N#Pp=abkDzq2A?U|$z5>39M0nIoQB@4qvbwq&v=7(F-0q{PLE`p%ZTniAp|!j@
zeDt_=1mePCyG^+0!3En<lcUltY^afVwTJp@seO|`d!n9KvQwQ_U0pf=to0;lj_+79
ztKh)Z8RGL77v}ca_Vs-LBlL08vL;=^7-S2orrdh1z4rCP4WO<jId3h_&(KTn>=gu#
z$Bp2&$lNJ+_SM~cu|0LDbUn+M=o~2T`0ce8dPiqtIT|+etOcdcC5tw&xQv0bO}gNY
zoX>bY-gf9(OcBFuN(22khc_a@fu8t`7nnNz)Hxzumh}Q%Z~XTcDRFzBeevrqS@R-+
znvAwZ5G+UV$HJ>U1caGdAcO3Fm5xW3_rjc%u!|AxXh+E3qO9?Ba&nT(H0Gr}nu&B#
z(7>vnC5net3Jh80c@A%bO`0R$Fh)r89K-@0^yDvF)!Q*g1PvCB^a_iVudEZ)e(7q2
z#BNT*($7AbU+Xh$$26{Q@T*N=QAI(chVgy5TQo!;9caO_2%#-Y%fs&sO--$z3iJ+U
zYFv*=@~}AC`0hf;;hW`eHSng?p{%)4(7nQ>fP&Fh3fIv#cn%zUh|FK-aBW7O`cRM)
znJ2)4_J>oRjD)Q;#!qj<cMf2}{l5-Lz`!%GQ+M_|dx=?RfWngXDlR^!tyB7$Or(N;
z;sXC}nQ?Lx)=fc1MrJ^VCVDiE@WW2jlZj+JRDGbOQm9&t(hl*J(Iv=n6NrRc){9h}
zU!pF4ci-}~0y2sPEtg!fq|?O+#azZ=B3_IglT*0zkn@zIa?UtY7&0IZg0~LS6U@Q)
z3fb*^<xl!LgwdP&EW@%f7;Qm#`{Ez}yJE`!Cs27CAd?;c>Ai$MQd4lDsa$#53su^>
zn6JjTA7?1b$B@qLl_j%$&<^yT9K4RH>?KFy*0}PJ0+!>8q>tucOT*P-NMU2UxZQ1H
zU9#%x>Ut$Xfn3{h(21HEkK?@S&k9fe|L$%t8HTK;(EUMCf#>aDa-KfPj^?NNDd#0?
zLSCaItqU2U>A1~%EfSc>g>W)EQHv{r-1`V5^JuK(#(0Vn`0t8t<~t@wtp^)-T2@{l
zl<BWmj+3o9<+-vF`&qPtN$d%kv0;ljD5GdTzK$iRv+W8@M7I~irNiJ^UungaXgkex
zG-7apEt<qe(PZ2Od4w~>O1`8U811lqxz5W%f3|sj3(cTk(Ry2C-AG3(fy+&o(9V+J
z;N9R?*pjp1YY4T1=}LakQ0)m1vNKRqQ)B&gS7~5ml|k0h!jL|k0I@uRZY$+rXXk`F
zo{P=2KQm2VAVYn|N+g3xfLt18T6%)Muj~_>mb;H?X$LDuRn3q3W*0io)0{H~CP}X*
zsTq^rU2>vt8hek~h-x#RPXY5x26KS+Fa$~BFE&xBID;<MithL;naUBD2pdh>F}4ev
zUth(<9)N1g+ssUH@>qnEKpTZ55ls;R!70ymm34@o&mM3%9ow|;Tp^0C&D~}$B5AFU
zct+9iNXjBJ7{}y8Dll;0FF`b+=I<31o5sze?O=w%KjB7*YhZ~~+~|FMV??x0rrW8h
zt6N}4^f2p*RQP-_EeB<^>u9HIIwrnn6PB4Mr^wsuX{b(I1l8cfii$N^EG&Gw^$>YP
z$UpLgFcXIG_@qn{_+_2^brf!dQ7uh`*zG#H6t>vB&LjIO>jhbcFz|rmz$7HC9q7#{
z8NyH<F@j*Q=Y&i-<-X=<j=inpB92BUY(T+lzFS7pu3?81A%wT88$CtqdY03t@=Nf!
zX&+I;I}DM_JZ4%LkMGYBF+i8#+0p9Yt7yi0^|697aU1HWF#VDsVNi665tmrSH=dUP
zN<qsH!q84(^VGS13>T24+a<1kmyLDk!v7VZFkIh#p|{u1Fjm%!)W(Vz_1%T<vh<>2
zwwp{$B*V|h020~5n3=Ik;fLrbAI%3*(5s<N_b!}}(I_UB^n?cofeShcr&7%AeFkck
zXNW!R_;E2>km>Oy2zSr8NT){4Bu<)2%B`z=<^7(Msa7aY7hq^sfTnem0NR&~#%~O%
z;V7|LH$LU6gGy(I*oHkn+k6x6hCq+ZUqRcZ0Abo-;a=BKUH^)~mxS0kIAunL?GUx0
zfKwJa6C|3abA{*?g*j>8{w;~ui+T_*(H|ZL6ah8~D{G@PwL{mIkNX_E%Q64U(kTCu
z7g70uuFS*Io0Gv0P`A`!a}(jk1ne%|I72`yft3*7@RIQ}I8nh|q?^+`XW8oO=u?SW
z*xQ#jT0aj<Rsf~xbseNoF?k4LnV36u4xO5Y?pLLqg(=JVqhG^Gq2@10M&^*V{Cc5p
z1R9g0Ks+QI`DG^$YYTyaQ03ND`PFoK5aCB<M={$Wo)~~R8t20CU_iNms>{;K&}!jF
zYSXFcu^U7Ce~0nZ1iHqwr~hC{fJX|KVdCNZ%^LHIWF*F4Gj*Kgm_3gkofN|H;_~W;
zVe!OZWxdc3t4qpQ(C4I=8)`=L#1#=(%e5W7D5OE2OyEo+LZ!o)Q+YN}L;w?=Zh2rt
zMw*0B(TSFORpYR4eeh|ifKf+KOyn{Rv=u_{39(4H^-=@p*pW6G=^|_r;C{am@h_jW
z>lUJ;3gwfpXlrche(EA(0|Js<Vkfk!hU22k&W91lL?(-gnmA)^iI>pBk<4PrQ7f&l
z_ah8727cW%H7z0hHPQysNeUOB0Pw*8A~>@}U!U%7ju%|SMmdbMev$PedYaUh-`5?+
z4U)EW;^j%yCS6jbNs}Zmq#{oO)ZKl0n!AVpFqj74tT~tHiGJEnVn?8$4@0B1N@3M=
zlzTcs6X!#CLcE~^x?D}iPakJPMYLVLc~*&9d(F*(^!tn-J1zvtXoEQ>km@0F%q&i2
z2cvufB>_3b`8Xloq#K>UDGcB6y^c;W_`2#H0F?P?o;iZ*@j<l@`%%*?L|N?#IVqrw
z4T)n5Kr^sAyG5!`kZvPrWpdbp=Nh{VrY3qS_L1ne!!+Z<T;CmXL_vpIKF{8Mr|NzG
zmnXARL&0F$)As-T{uGYfzomv}*z|v*==zD-nv-EL4g-eT78)m?85$ZEpg8n`YX<3s
zFL-MaxU{p-9Khbkgq+8OX6CY&=12(%g9nX=KfGTwFgBLQFB3@}%fwzt?oc#uL9s24
z(Lw8AEH|tiD3w(4V+y5(13s>cx=MBqh3IdMh_9)Tw3);G0bu|i5bR8ZRNOU9n$>9u
zPek8a9du78eZ<5sDJqCpr8$&Jkuoe-9%=zo9&<ifvKbKn?Yv!jLe`52Teo9EfSNzk
zyI?YtDo?$SXppX_&N+;Sa1^23MjUa#?Q&WA^qr))NMk(3Mo%yHWiRp|6exJT1t7<S
zVw=U;xFr#29jZjx6Js+3wXI}*r!t2e3!1{6mll%-fYrxgl_n($Gb^=JHlTJv5;GDB
z9XgK$=ixrR$xsa9)QZK%3b`UQtIWwjsE#e7HQx6c?+hjzHL}4336l5L>Rz_LCen!-
zSD?RfS(JW{ss)c5Rc=UqGLCX*unap+)QmG#aZcW33`bI%2^pTaZ1v73I3h7e{}GE5
zZ9g>_2&u+V{*2+@I&r%3{W#kk4656B?o$G8@g#1M41s|+^(PaC$WsqI3M78a%b|TY
zM;<9?!+uRtCC^qf?(lMqk_ALr<m8i)9p)G_;g(+d51&Qdl2I~$P8h=M3KR^;bWcMw
z?pLBDe9O|)7+Hr;dhQ^&wr5=GM)CI&tzYjz8YYJR<Wv-r%`piv6gWaQ0e(sk&DMxE
zg$7Ia2GYjs=TVX^2GIL-7IPKwx+c*<Z9An=C{bQkD+zlhk8N2tbOPrex9-NmUyNGk
z3j%>i!y4)lSp@Di&sHb1itjC@6y!ExfjS-^DgMd&s`!VagRWwwJCX7EK_y1AbIe5!
z@PcFIfx*}SdzDvLGsbU7&efH8ae)~KXBFc;8jgL;q;8!&wZr&18Iysl*pILXfbI}K
zf)t7PBmz?wCry_Gp&gV5P9u6Y6o@5dy^=LuHuyy1*$qM-xag6F8Zx3F57;1x-~;tw
zh_`tW2UP~zkX9TNkM?z!B@sYkGTzg&?_iF$*wXx1(!?<y@BA}0jpF#9M55Y`DRW7>
z(KGe?vK6bYkGAI_w|#e)Amo2+I`<Xbfmwez5;}&cZ|RM9On!yIXJDLl9d6lBzbcN0
zz$+p}g2Q!cFkfFVi}^2oMZ0|pwr7-X!2GNi7$dU}+RhR++pH}y+duRV&<pP5s#eu&
zc_>i!)6ivV0o_w4QBI)!_9Y=^h>OFFGlDa=Xcew`=Sj2?WxJy*fswMvkWI{ENX4yN
zV5hoJ+AhEZnHPAoFi{^p`%Pt+{+~I4!53$KM!uUPBL5#!VeW0md`0;<t<3T$<v211
z601jXnK({T4T_82g&3uZva+)7LllaN=drtg*0lf3k{FavwD4c|`j<kDBvr>N?9jAa
zfzQOS1|D(@z1qnrS6@sN0*}CnnWkUa?fah+#TAGXQ~Q2wR1m{mK|e?wHSx4dup%Ff
znTZ~r3Bo4Sk6|R<NuIy~GAK`=M&lWQN}nDuDS$gmB&&+7u>j-S&ihX-^>%lEg@)Rf
zyaf7{(|8FZ0b&;yA=4HJ6vX-5VL0u)mf~_z6;I|8hPf-zWIVR47qlmkH8@&J!1nPC
z;&~Tjz$DEl9s4BG-!wF|r#YRxzdnx)$aZL1!C^ylBvTX!h~j#QR&F9U>yW4c`Sya`
z1WZD$XC4De&k~@-kxeWR1-?--u67)t#JvE=B)!}b!j_H2*y<~pw-6Vje;wSLhjZ_P
zAr|||xLS$Pr=ACe@I#`4#uTTFK4CJCY9|uGsK@C`%7B|tvL)t2yqPmA&G?+*B2%X$
zCm(ENjDtpKxNT`!<s;i&))u4frhv47jJr|=FGnPBC{FYA^!J~|v1Mp`vN1^2i;F~I
zQgp~YLY&qN4VhFujr7ov6q8Uo*g`Tf8zXs>2xKB7KO5NR@Ms+v_#o>={18c#Ap9z?
zs=7Rv?69L0@}`yN$-faWKeV)HN;1zaLBi`P$H(G{q(a`XZVxMwRS^)0Rko!$5vh+k
zw0t!ZS@4>p7-K)rHYX0RTL<M5vi`k;Bmh$9l#`@Bk+Ie!w~_UN@OK~P36~ozsRzLU
zI1JzAIO|1b;1^<0rqUdwP)GTR0l(Lp#(eSg#uR@pB6?wnW3){g<-MR5;wEz_z1lGY
zODm*H8-opa2MJOXhL)zLdxS_u;4ZzmP~Bf*72is6=_H!X_gZ9phO$j_!nY|*zaL+V
zp*GwznD!mOWlIEN-7{T~yEaJlynRL_bloGQ+K(c&50@|i8Bxy>l4J&Z_l(Q{ahJf^
zD>}*8&|eu<<>cEN=mfQPpOGX7;29S-!Ek&Yqrig=8svO!RTPOQCFIFY{2^+sa}fOY
zBc>6kOB}zcW1qUIJ=9Tt!8o!xc2_M+UT9VvF;uQe@XfN}FCk)f;;9Jc#NhQnJgG3z
z@Bkb$Gzq|2W{Vh(lgYk&1?4=2C|;_6cNeUGM_s^_#_X;V!tp{#txxbaNhm<(b`gfo
zi`)?z)YLqNe>dX&;3jBYukhC1u8=oufOL`GP~45Nu@E!DCC54vuD51lYz5`L2`M;S
z;U)h{!baitCtP{RcSZ?3ac7sr*(LL(cs6{(NsBbjMxHQaavsAHII$TyYNLTe4&hWs
zfbLF`z#``Rd3bn$V5|@Yh9_Z*jM^X^PW>Vor2<p-CLIJwtZkvZFpRebp0@3N{U8D9
zaphz)AV76_Hhjk^!jR!1vbKR1AV<gnvp&xd8G<mz$Y_0A1gu{aHSrg=(1Y;deR<b*
zWaAjEFipSz1Lf6^<fywOb>l&c3F!%jIJT^f#JdhCCC@=RrIgl;NHR*aS>}@1s=I_c
zG^~65fZY#v!As_2ZamiF@+aL+ww8>ICjU49Szv-l>UChA=7oo7?I14-$iMVJ0yl8N
zRU*nH(Vu81$lMeXUJ1LgV#yM-8sxnVGWnao>)_PBt^fbMeyMk9g~CAC=ZuEsW+XDn
NN}rR8{q4%{{|&{EsYCz(

literal 26103
zcmeIb2UL|=wk?dQEF*;pMM8-f5hw#F*@Orvs7OvK0!oyegW3uPKtVu3K&24L86=w!
z;SeNeP~ebrJ{-b7_o4fBjeGw)#(QJ*{l|aD>l$6H;tBiPd+oL6nrp6A4=%_{uUpNw
znu&>Noy^(OmzbDV*fB9JyY}lZ_(`Mx>tX!z%QZRa)A$wt&`xE!;+Ivo&Z=25F>$z)
zf0uYuNA#GOerJ+7ed4m+%l>BjXP2ojB!?rWzMlEp@lB`mt$p6VTF);T@b0}^xrf~M
z_xeqT%ipo+wrx;&*<p89bA$VrFE_rvJF)RZ@>ao%r!}v=xzTipO)Bi&-qjvQem!zT
zYl8l{C&=_hpmx+dm!PsP_VwwREslMW8dJGi69efj8vbQnV@t^Dj$0JTX_4PBF=_4m
zv4Z@1_L&<i`StgUOSQ?bZl_n-F<!f2*T3Ke=Zk4wp<LC~)fct2I20q~`MT4jy*YzT
z==WH)_jae<)HtZ4;NTT9EaE!+apgr76;`}-#5Z*I&k`Y;lY~u+eb>9VIIlA2K}(~I
zPa$D@vb7W9ZsjgvIzF|^ZewLt)h16*&+@vutu&|HSB<7Ern<ViC(<dso5v>p?CM?>
zKc<p9>Zh7?U8btKI)9tN%X0moq@<+xgPDDA5)%*3k4H%6r`)WpvG5Z=rC^tHMeC>2
zGA6gdjl)aFEd;WMPo4`A6XxdLeeU^hN=i!6CRtq}j$iq+`Zut!><M+UI3g$*>&J$@
za*Jabo;(>5;$S#wT_CwYD+}jexi_(sCCl2{+PpupATDuEuvT*;3yWFKgz}cP%dpGh
zzHUbkZrpv&!%2b*54v7#_=8YmjB4ViT8`H%d%oFg94HeTJ9jQrLY$i$-<V`0JtWlV
zIFzIN?a2-n7IW-NtYw&;9L)h=f7}2k=8z~SkaI*sg4W?Hnj&v+Z?9=lxQm75pg}1+
ztHe^Qk@MV#HQ(iO7Ut<A5t4KJxVddwou}$<gn5c&50*=F1@q~+(5UzL*I{vce_JAO
zT)?`3!}dDGAk^6=qNW+IyVhuu?&;x?H$M@7&~dW=P7S#Lo9?@%ui<o^9qH%RFJTo>
z4}K(&d(21!haI0g(`(o$bmYkOftiUu)(lNkKcTKrSC^W%)Y`W}fq_Y(3!?#f#V)z6
zF7#A~*-lr{!S}lEAx8WGk5+Oy{ZT5?7gJ{#9s5QhRN|m<UBa=Sf7^Ji=-ED#8r5Gj
zH2FCl`xD>)xU=TkRI{!3l4ZY~K7aoFTDBv5iN%nYwi!s$)v`y6csW80rah0gctpqN
zimaEM9j>!$_e>rb$fXaOPu3e047o1QpG&&Vv-LU5^hC5LQTQJ@PuA}ds=IRcU3B!L
zf%H}hdGU#=_c-}CuV26ZE$fxmVf|u{A(yGFgAU`}(_i*TusF|*KX9d|yFNNxdTi%g
z`Cv9)<(Rz=>tLCQ%{GmC1y%N4!RcSEEiyFOt-hbA7t#Itcwd89d6=|!DQ6e%frp28
zSH%3>kSkY2u#NiK?Lr4;#(Oqun4~Jb#9Brw<OEVPg0~&k|DqS5wFR~yH$KpK^p|yP
zo21#zPd8bXiE~KItJt=rMf_IK=j}2cW^CW_?J0*tlfS$$^_elP#c^n0e1@0OH5NPb
zI$SOw&OA8(5o@}-!THtYwpQa4hJ9OktwM#3YGU5cj#6}MwQM~zGc&gyxp9HrW%{T2
z+(fOkv$ON*(+4!tVyY$fj|(eBxy0`Y{#>#;L*SwHY)tG}%$`|(&ERSdQP<gauJ)If
zr4P!SIuHNjHdiSsq-J<-((d!yoSfIaYDkoc>4tQOJiR;2dz9s=w}+FKmX<^SB{pr~
z$&OP=X)I3{>dRcx8qyRbXxD27>vX+Ml1qfUUizlKIHV^#IkuTsImO|n;9R3kqlrrW
z<hQ3glj)(Z^R(HQ!j_|<xYCWyrMNLZItf=!?3ru{%$aO3qLtuseJ<0h_)})U)T|~(
zjaKF|nat6mt*hI<zfm>un$-Mcqgfd<hlrJDUu|_Y6;{z|+no_NIH4JA+hV^buYl7r
zCh`93Q|_JQyVh5K=OA}EH#=L*v57vI72iDBN^hA;N?W#aeX)Rg%DWq>u})%nbCZp<
z^FsB1HqY6VOR?&8jg3+%W5ji24cOxLtrvGM%`UxnOnZ#x<T5`?QwxfUin5_cR=<#N
zc1ZJlx>MT5Va|_gk)fO_pq6yqvoEFJtah9?`hv5xv`+lB$rmts8m@gxvx(B>%N;{7
z>e-5LIgPn&-gs+`ht)&YmlZ_ZA0?7w+B7D{`_-kpf9Ru^s(ouIHY-(7a^%ZKDOaz2
z7gwd?`8N?cLrhGsOqRCrvq?DFO}@41EPi2<_CnNlaKD*b;~E+MyxCFymCX0n+r?u~
zXJ`82TVI>3<B||-t*WXj6t7FOAM2#nYMAB7iw8_DZMj+b*4j{m#bl+v@9y)x<2I(5
zJ#PgiT1%Z0oM%T0H10)m(2iR7RtXM`n+A&6TTI%)#nS4N4bto5^i=C+cced8=PXmv
zakh5%j^1vTeK7A@{=?aK7sEuVTtb~E)pYqdoP*a`XLpX#W=}DTKTF*v?qC%#c@?G_
zU7()pWFL@L8T0(3;tsl3-16*u{f8|xH0Ph|di4yCz3&V(Qg7zJ{6QneB|gldLRj;$
z^Tp!!2-PmNgOjHcm$i(v7j#8ON2_SG>MYFEzL6}rmYcU<-?dz^)s~4VVZY)LtMUhX
zLZ0(U&UA;Fq}jJU*po!P`uV=p=`RQ-*Jz_uleExd=GW4)YqcG%qe31&eE7|ky)He<
zq#@;IeVN9*<48VhV{=Pw?qsTJ%8iR_v4?NZ2W?ry%KuoCpB3K2qgKaN+)I42E@ohj
zK=yA_t*)*Sy;{LoSAowiId1N2xRl<FrdfRYC4rkM0RrB58=Rs)zZM&e!1P?Oh#)>Y
zKHs4)wze~^1ujo1*MHvA%xR}KoV;qL)y)ozj2niA54|O3_G&v%R6oaZ*>8PVGEkE~
zkk<J1%Y%)&IQ{bP-=7Tl(#E<9=B8S?L<dq7YbM7l6}*`xre6g)cIYPSmpmjFsa{2B
z<=U;k9c{K!EDjMDRgO_*!D_Y$XtU$<Z;;2+FspiZ(P);<)z*_kREWOc6>*x~?#JzD
zCnd|DpY9zrta{f!nOdve7*%?WK2w{=Dd&IS0j!MotwJc{_jtf{>(-5QNiGNr)nE6G
z8Bj9_-fR$JuaCgFjCh*#CJVXZprZnTfq`!#Bloqq&<Bq7{OOxCNtPgnsMs8r_`RTS
zyr(jm3a=b1CpghpD}ei!)JV20AT3#FQ_@iP!;_OQ(py~|&jlXYmz9Gp&flmY_LL)C
zE`Z-NBGg4hf?i*C=Jb~pteO`Ry2|}8O*ryRJhObSN`G@X&oV1&5Bo+AYn*NYF1l`z
zN!o*zoOZwW_Vw)ypy&;`&$lknT}|Qwij1^k=HKkeBlm6Hu1EeGr{Kl)!ZxoL?N1PD
zeCaaNL-X*?+cH%kIe*Y-q4;oFOoh$IJ1gqvmi@9;b-?4H*JCST@@zun+1x`FDJ;8L
zo=Q@mDK>BjS6F=c_S&7Z;b+0kvMn0MPff-UVY)|c5Pe(_UJO$efKOa)>>UBdN)Qh}
z8?kSzt*UxPd_i)-T&Zntr77JjI|K)q2lLe%n8ey_q^}DK3Q`NaID%3oC#n={XP0N)
ztWVOT#iqB2I2K!$3P&i3(+ARZY+7+cR||bg5a;D8)0yj4QK7%L>?~H(+f)JPK04M_
zW|r*CA3))9=zgu%h<F*+tX?xN!a8GDg7D;ZyU{E!htgP&K$kQiHvQvnb5!K>oom)q
z+jfj;ZU3n8PQnu38hd7n1BfHKSzl36aUR>FNv-3nqAC65HpjGP<cpO(Oyqhfe&;Cn
zs5`sGH^aPvgrsNMeb**f_hplv7hGb-%BPbn=D1TsTRXRCrMo77Ku!;*sEx79NL#)d
z9k(q$DQBPJ+v`)I)-`I;&P}PChu5<mx#6i(;DQUdhI2nb9E~k-xmnr407_{}CS?+I
z<8-6GcT$hG=y{9U4gaudwCR|b#YsL*jf{#as;#Y!PrScN&cDOR$Y@QHfT*GM*hrk%
z(BP+gYaVIKNwm(`af;auvq?6^i>Y+AdrP*M()|nSKHOf`Xp;4|He+jn5#{Ff%#FpI
z)>RklZA^0}YD}vy7ypPvOps_zbxXhC+_{Wd>`AkZic0#|t|TYg=q%p+Xv4708H1S|
zuU?t1TLxBEI-B}zO%uB^2j6)Ox?fwF%`ul#zd76`_EELYpQE|Jz^(_SPO-ux=igq*
zxs`=WXBEv)Mf;}pLX2ASwemMoEG#4U1e|u%z}s&<c<uD*l#qw7>zi#`gZaF-9e%5-
zXIpnPk5;0rQ(`JNma?$~uAph4pxJd{E}2R~v{o+LEKDbm&zn;`vsz`}qgb=n+(fFs
z2Cf!BE-S^Kudim(G;1KunD%Lnz+;!WnOO5+3FnzFFAPFnG`j$~WhtGKHbzJ>Cnz<Y
z8J7J1=l$(%Zyxa%xlI1J%lsAbNoQPLd2%A&ReV1$Z=*@2Mdsc4IXWVFf4M2$B&~k8
z#ynn_X}x0P8hbnm=V{p=f7xzjFS^|%<zm__aFccP+iUwTx0Wm2>pko`*Qb--pl@Pg
zlGPX!74>joCVrv!ba?*7ZWl8>@i}(WNM42$cobPza9TPTmzZPbKW-|^u+3-Iyy<*n
z+Q*e##@0F%d;6d+anbqd_MO~q`K&sRaiQNS(QymJH3oZ~UfipC%2q_7=zf27qJH3{
zlO4bxC5dX@{xx4&!(?-NfwwpDNn7|e>wXTL3liefm<Ob88psUf(?~lon71&$^{A<4
ze{z{bV)>cvQa}rrVHGn|*cyXAD_j1|NW}<!3NFW4_gW+2_#YI3yrx(-5ko4?PGgX6
z6qlhN`^x~Ib%$Nct<UR{sl?S^R93DrrQ;-0GMnq_>QdX@94jyyb4p=J{QAdhaX5*3
zi&Ljgr5o;ldvbz9OX;1&*hm3anLi@NkM-h{ft~Az;x3Il^7ifPx|KL773tDtqoi<b
zw}|0*ce$3jz`fc`)j26y0uiTG>7TFOsD&F3;6sKmKvEvP^r6hYIFD(&P32#=o3XR7
ztmLq|V6)IVKbc+!JhhYi+GKxyeZKJhb=$YVRqnOvF{&zOapjY~y!qOfCLla65=q%{
za}w=F+7K0ww)x2MKak_k;Ng~N2`yl^JjZU^WS%(H;+QV{hBvgV0N^^HdA=$_qIw{6
zl;+fgeJ~%)=!%=<wvVo?pX4>NPmDoqlyodDVU@T!pO;apk6o@G4KmBE$4<6mr@dit
z2ecgrQu_@M46eKcd^C!^?`M5|{GvTAZ@#5^^saT{=5{+z4^`M;l5V`{PfN;`tLMW$
z%SQg@EN#2#O<6H~WA3_&(N9+gwjH{D*1f@6c^^H;&u@mEe=>J(^-xo3uMBK%9fwGY
z;((%k?4x>}KPPdEnReP`=~4L7ANTh5dU*6lwXksIeKZNN`1!uwi*g2eOJ!(jO%9$m
znd-mu4|VPOtY<YxMkAk}@nqY~<urVPq`&LM$G<CcHLxB~{q1Pety7QLg%AC*o_%W`
zy?IDk&6Uc0^4{|eKS<iNFk7~u*~fJOI4hd@904Wpa$f*fkT>mMV`C$@s6OxO*RTCL
z6y_^NmK}QdCpvyY`t(bihMT*@--^)djFM|`6<JsiIn~lMb#z*(1KCJe>qmclyql$@
zm}s3o)a`YW{V*@r8eZ=|w1PWZPu){SHo_M!;r=K`K(=1e=8S^KZjq?uF6sU8)`>HZ
zHWA47`;P(t(b3Ukz3;-38p|XXoKBz4p6QLQ4{HC+EGd?i7ZtUizFLc7Z|6D|)Owu~
zN^k0VsBXF6(9rN&e_f(^nfTOc;FaP)LEb^^)-eRyH*el>b93Y3ZI$M<zdqY7EoqoK
zSi}_)*mZI+3ZPXm?tR<C{z(aX|3)OJI@uF78Y4)ur4X=yyuP_Qm4EuyHJ12!y{J{+
z!JzQb*LmRxH|aBBz>opC<Kdj*u15Pd&)Auy;hhE)gwUQ*8}(9Z<E+WwQX`YYHf2@X
zK5Hl{_=MOanxcL1&bv#Kj^ZVm2?8P(A+c-dJHoqEW9GT@r#P6HeznVr)%)Oxd;=d&
zpz@qC)?`*aj|9xi!#hInxu~rvR%I;W?y<L?JzQK3?7><Nkt6GcJD$Anc^h=Cry|^Z
zqFTjZD%5c>BlgT*e?Py}25;oS-8Jp478JhvQCxB^_~2VkgO;I>&L3?)0*iZ-o$chu
ze43!Ebk1Zo{9~NnY*Rm=qHP~uy^`WJkAx{#<%vVhb)>r^v1ZP^S<OyQ!(bs>1r0BM
z<iA!Gw2ACMUtE?xWnsENGBZ24Q&LkZWxeN`*E?TdvORO#I&ElgDhM5A*7@EWk`)%u
ztY1G%YVEsusg?DfNZF-UW{#&7mIstwpEl6fGcif*{xR?t2PmpBPZe<8#<GwZHR7*f
zx^0d=WmcU_&CXE}8#$dl@^yRtjfX5d&wK%TR{1_7dr(>@kwijZzTbA9dHl^~l4P`o
zhb=n38PnbdnfBJSr)FPif&0$>TF$p-%Ykp5m-+t&uaH-w?hrULGow6qZUIb_r#qL+
zv8+$itqb#0gu0Mb()L#V)}E?HakHh4g@q9}ZaCjE==Fn-m)A(p+f4clZ~9B!q%4sN
zoHaa%AD<+^E{A#qm22~w@Txg&1)ql8y*2j!4KCdet3q^P?w4C&?!y90TTI!+>~7gy
zOgY->beK3FJJ3+vZw6>q_`z8J-C8qOdgF5;6Lp(b1W=VHfjF-uYN!2e$FQHD-3=(b
zt}Eu`bY?E4&ALm@?$CDV3FnuTr?9wiyr7tU`r9fkmzcDd7DfB&NAc8}6}%Dg@}O-F
z>VEwK7=uuj@Ok|s0aqG@kbcbK;}?Wjd;hj-W7|A^NI)-A{L&8ZT7A)>Y|FIS@28lp
zd%VT@P9deM-vczBsii_0OQYsfl?`U6N19!VCk?wx$2aHSDn3|noq~v`(@x7pCOAEr
zo~Jb|BHKJP!Lx7h(Y2Qb`v%=hWe0?}MCYCT>AaGODRz}zR%A@f0eR3t{gWzrGu6f!
zu{0|R!YM8_n6aA`f4--61|`$gy<GaeN{+UQX}EO0Fj$>bl6n;=lUQW*sj#agsmhxh
zFiURa6WF_%C9&O0G;PMs@xzjpU+@f-;hE~DT}VspvrHn+y|^@-pa+y)l>152tR;Kv
zVf}ONd1(@$R;Irm&As^Dp}~Ucr=lO`B!oyZT^;Y@=jp^IWUSf*E<>#m`?rb8OWnuY
zG1Ab#F?9Mgp@O(2LM#(`b#|HxTl7u0dk-m#mk^iCz(vN^2Sfdutt!vQ@}JERxz{f$
zYqBsmRhC<rc%%HybdgGKMeipmKI#~az<`S<doN8nipxBtzuDTQ_K^NM`I4hoey_kK
zyH?PtMoU|klI5l~Sy;7si4NB3(>v`QS%KSnuU!tM6&tL+q(F(+C%lL^tG3<i>e?8`
zB;L69+=PcBfs^E6BRF7#u{5OQs_$=IC4hv`ajGC<PM@x-sUg&9g`p_ier%_Z%TUhL
zwd4|^M+_<r4o;b_OLo08$m}a9mu(=))bv8?{C8fD%j}IJ50DKurQZD={DU2h8ql6n
zDgWqV*qO~X?z63y8Q@@&FD5XH4If{-?GR5~)?nsyVN3n!HE$09;bRfO@9_#<po~N~
zG<`+)O%z21@y)C{PUbd_y;YI1XP!!*W(TKO?=eZG1O$28?z$(Yts&C&(lUvPd;7l9
zI`yUZ=ve52Q$($q9OczCh(kw`!HyL1#$R7@8Sx=|yh6^r$-E%{W<+q!&w(vb@J+}@
zm04Zs`2sF1Bs~&CqE~PJ9eg#}$abJl{)T&P|F1^e-NPWtPKB7#hd(oqv6T0=63(+>
zGTER^JAAIYJWO<470Z)PD}A<4vB5ams;9!q#AIN<_eE{(ka(mTDoRRJcV@2KB8Q#Q
zUd0U(3$tS!Q3k_5KGus^c9jl%7m2R?{yjmqgo9>_2p3}$<O)0>l9PiCR%UQwF76yQ
z-NQ3Fv?7&JaKBnMj^G5MW8-(m8zh6oI;5kdRNd2c7)efP&TqjNbaX<8TJu~dRY7a3
znl#?Oe}9%FpsC{c;z!CV60Nj$dl0y4bnLvf=Kv^R^?@#6gqSoFX`QZ<?D2d#I3tc;
z--bg5r7w+};exFUn*~XxD>6F^68?LyjmGL`LRs!t4t+tPj$(bP?x6*nRW!?cZTJKF
zF7OTP)6c8DC{AVPugTpzIn;DA)F8isIhZD1cTuZ8J>SVI--)23@h>DWrj-2Jva}mZ
zw%HM>KTr}u(ltVRMu&1ZkC(5Ajz~)r8q6LmRdNZTP)WUjZToh|j_yJnDxCOStMT8)
z0>_71B{^XR$~sb7^*EIFiCP^qL9UwyAmqO6^cLHIl>ReYqqaTO&%D{XcJuYP3O_I`
zrX!`ILtlQnbG7`mmY19xe-6U$qtOEofCBR`EYjD*b`Zp@toSS@=Iz_J)lS)xvp<=2
zv3pXHd`ch;HQ0ayg^K#)UFVD<a*J9mPLJ5;js@STs_b{2?{clN3yDu}aTw|FRrnei
z5t8|JU~|~e-f%?9=>ap>?d@MZHFO(ge0S&LVgxkDMMbH%-+L|cCSu%C{6rM}&G#;~
zDEjNem#|&^0uGGWsjTop<9A-23j=P;*562<1N~LkI|*2>^4)>BBRkyYwy5a1hq$8x
zz=x{e2Usa^YOJ=+)+)upqDM_LsQ$+$>vVPN60X8PIZ+uoc<qbFbgxPto8sGZ4>Byf
zY;Lr)@uk&q1I_2<ql~bX;Cfw9*@^QrebT@rWUtRW-pYcU#{u_@gSZ=MJw59F#;t!`
zIZp1DIow}CVgcv&Q|{|Mf%vu_yLIL9w!^z!hVOEH$r{St4%c<{#3#RMTE`yAZ3M%%
zA!+pl!r=E3?tETnoLoYXouQGDZdb6a7vb}FD}=C5OiY*~S@?=zul`Iu4uy?=?%QB`
z9~b)Wi66-@%cXT5G;jOTKl%Ki?zO?D45>%~#vx_4J>*TI>ddyWazyP2Ei>p_$9^o~
zhmI6B{2@FPgWMt<mNByUix)4lAZPIi^Ag!lsM6<$4dnY_C>$;N2WPx4MZJ6HfrM<g
ze(B3?0h$&vgjCzVe?Nl=Jhfh!XP%z7Alg|H#463@Y*id8DX9@pWq;FLtvHht@_WAX
z#m8d@^5?#*?UN|DHpwd9Ljq*9ihr5y&x&3q9tP)6GD-5_Aet^JDuM(m;Bpn4L=x=b
zLD<3QH8K@rO|X~x^y9>0-vcMfX|jA*>=9sMa@eyI6{w6(=3$U@BqNVWoFj0Fg@qi1
zfXm1usaVg!LaN0G%uh7S87BTLf$i0vN*yMqaqXqrZrY|KYIe4<!_V7TPoxpTj#w}F
z0KW95q_6va-y4id8LO7nMdD^zMn-B=0AgD=sH_-2J+p?%t>yfOH3{np1walEcjxYV
zSWTm`Z&?>3QlP}bqEo5awy7*UK$}f+`Xh523X|SIXM_gz@Rt6;r<(Bl+jB2A0OEN>
z$7Sx<AONI1-K_PJ-`Zy$^C+QN4lg~<Y)L#ku3g{y^j2ht?N6mS54N$@oWLTO9{;#!
z{e@UALR|BFt<y-Xb+}M>4}WI&8@uVB?)L;gur2P^&>+(*_Y8oKc93hHq})Xk_b)Kj
zYbZ{XqpW%A{@MrNe|M6?;IYwfJKIqcy&g$fA$!(!36mQtwhqtXhEN<4zveAIxz~E%
zaps6TCZ-SU*(k~}F+Di6632ql;G5-t|G|b~JOL9EkL(95l!@ud-X;IC7wnhQI&KKt
zQ|aBHO8Esu@aD~%S$<Bq4|X@En<4I>Iei+e{1G7`|M%Qy6+xho`W3P#@WY^0`OKxB
zye%p!B953*WIC{gPyKS+!{4>;{<7|&hX?%MG$Np!=DI(P?yeK^07!&IO1iorW!a$e
zrJ<@Rz~&yyfB#edt2WYUN&WtRXaSfW{KsQ?S9FQ>!dk$g2Z)6NAr8Hf#1S}+`i4Fx
zbohFa?pJjnA>_0;$tfN`F&^c16g-8NZS!V0e52^lGLoetzsLVX+d#sdzpOkN6+x=H
zOfg{&N)^KPqaEZvUshKBN(vBl*0ow;2y}$BC#f2#Cx-L0kk`Mu;&A?hC~z!!{pr)Q
z@R<)j-d$-hMY5rUtDoDzEb%MZlb15Bs5RnG62fPDc#t$({azO1$2m&zzuKX?MJf{9
z++_6|R7m-oDZys^;XXDn<GP>)0LBq|;XKa}#vud@38}qu*ft#`j5w(R%WCc;?>heT
z8PKd#<fHDm7l#eLW^{#YCq{x>AmoD5V|xAIyD+bZz6uf<%_fMpT8l~o`Y+6!FH6QK
znPEr=GzM2hta<j>a@Fbxnv(_piK*%4<@bJS-uZNkKekalcRsk9_slRq=reBa&azN0
z$@vlQc8{H29%0@RA~TZ%+d)k}Le9^CnA0U@E*nYNx*sTEz%)8HH@Ae2Oe!-qSthiW
zYxU=h#g8_ZIC1q@z^gxA%2}Pke(>(!5Aq;@l0TR=#7R^GHafTzk2%Ff$dy2XX4wQx
zKN7|@cO$hiDl+oHI-$B(CG;8{S7+A~YAb1L*f!nA`U`&5-n%w0h<t2L<*Gd|FZ6D>
z5(~<-QFgMfZ}!&~kfwSR!04OFB`A`%16X^JY!DzO40ou+MrZmHYug(9zaf`VOSXM8
zuYbqdt$+MZ-}wm+=|Y>~?^@3ENzaCc1`iJc=l|3F^*^At;XmGAr&+#SP~U#I=(Vp-
z+~wvbwHOIh8F1|1t;36*1L+lUdj+m=?5ec*GO$Nt<bhBlq#1gY64vVsyEv<c4Kf1p
z(*6B43rpgak9UL`52z*mspLq`->qumq1#dJHgd`y9v~wkO6Xib#U37YNY=xWl2nS%
zF|;c&?J!*geEONzT<3PM6W$Lt?$IAB7ZeiuiW*%T=)=bzH>{TkF+TO#MBwWf2u}#f
zQSjcp{Tk}TBt2AWcxl)6AQ6}*;FSpDm7n@hH8}l+u#cc|1=<iEJ&84tauWd|kGCG=
zW~dBsfO1;g<UPkfk~_-H&@tHb*KI|8AySU9$h}e8hZo)Shs-nodbj+qa#;V_N&O3B
z$G;cJu#x{S!u0>>ttN5tNg$ljrGO9W%F4?Ae2#Ok`+$IxsBpN->9@V2k@EWU^777^
z-r?Ubuu!WS@bKa4t__=xtEs)PTy<7G%K5olx-VR~M(>8bJK`lboe7n2mepE1z8X~v
zAYR4ZL%-Ym`T4bUomlcLAV4(0?a%NA_f>YHH{l$^`EREhe{fq;fA&<oq?Hz&N^;))
zn%Y`v<oyqL?;NSFsnItR16}fehG>r0`W>3OIVhL)=^wc5KjMLZU$uWZT>T$?5B_Zr
zi}t|4$>+FSrmvFf(bKZ7FjSC7C_3{=Rl69$b<?@{bp&~8f_X^<VeH|7L~p;j6mhpq
z_o|H|ZV*bGQFPtub?i-5IO8uiNyV?VBeI_NP>r>JSjPPL?s}1TRn&j}CDA^;L;ila
zOzbeS7FjJ677*kwj%T_}p*a1Zr!t}dii@qOsi{zblD~U(!=YNL1{JV2dh3D<fr^O~
z{w%AT+s*RkY_jn^CM_x&8ruoOW-H5cf=~Lkii%1=!iKXNQc_ZBnrdo2+qZm|^7C78
zpetXz_|tZy)kR9H9F<Bf-L=;(Dd|wxh9@bP=?U7KhqYbjCZO5*4g5~us1TtGk>|R6
z?{tQK%Dl;Ws#&W=sHd+sUMEt{P5X6RTwK+z<M9_XH2Sv7U0?#JzleW{7sO{v99|+L
zm&)8HsCXoMc9b##qCTHUZnhgIoQR|>!k0|cozg*zky_VQu-K2;1fw(>8$kQCOU}1T
zHe|=^<hdk*mozmA9fwBjv^}lBb<N1ksaho!6$2f2tu$jbMiRIDW>ic}@fkKDptFaY
zd1W<O{)~jO4)wQ10O>EFqfHV*BDC}%idnD>yW)O%)hGLceq<_KtDJXf3#pkSooELg
z+duizi-?u_K@msixDssJAklMEc%i5*|B;;Psy}0q2duH%&c+5(FY(Lf6M^78lHF{P
ziOf&`s&yFwV?{PpSi=&`nXiSPeWO~G?)v>^c>m`bn%h*pK`2D9$)zGje)K?T4-kdY
z<{eL^K~yliPJga*8Y`()cP7Wql>Z&eBIV%bOfK^0-*@G3|A6%vsW`S`wH!oQOJvFM
zE)&tIs+-A6j+^@hWV&553h_<PvK(V1?BhprBz`c2+TF4L@Lau{Er-(#e9sF#0L0Cz
z(j#wW+Vt{&P!jxqEvAIu66=OKU>l5us}04-M;tbFJH9^Nwh_j?Pl}P{G8OK(`;c|L
z&}VwKOOlI)1;*lh?)e|DtLHZEk$>zfFA`Z@MkLi>?KO=P^S9jlyPv7uKfP%kDYucz
z3lS88V>F7UgS1bUeZQS0@z&2zb;#~@^B->h=UePP&`F6;qXp)u-aLg0hZr~aS8pyZ
zB0~f{RtGH>H#cLYBp3ec8%42XWBV{qAw%m{V*Dg&H*;#=PN>YenF-3tRu2!5%$qaW
ziG8|hNB>wd)EA!@!Uw(CbqWy}5WyZ1Denbd`|Q%I7+T~{MB$tM@(we|NrEI7P+{8!
zy$6@mt?1BNfGx^lgVF<5!sLUQa+E(VYk@RZpYn)RpwvGUIU5o}xFL;H^gYyD<hjhP
z{=1uwR~mM+1#wvBZ&3XFDPJpIge(&!p)^B?z-Nu^Q6=a5>&GVQ7U)yJO{!;utvg7#
z6EO8oJ#sn^;rx{cf}|(UoOT*{r1Q_UPy>UkO0T+eY}s!5{%Y}y!+S!IrxL%AOwXm2
zn8j7hk5UA@!AG`<gV$U0&xNsMliml&*}e!h8jr=V+$Z1-d6l&v&6cFNc95r|vKnX<
zchmZ#Amh0kREAlyq0PE60BzO-B2y+QInho8{RE+4a_+^UUEJJfyx7$qqiY5KIK(2)
zU||6}nOL|xD5X&!T5rCZ&y2)-++juN8-`zZOAY(6(@p?tUj{YG(7H=$FhbcCEpWzN
zWA~b_fWHSJ0A^46XtSTStlnQRGC6)0ZP#wETxYueSRxc}26GbMg%J=5n+h@^+s^!e
zR%QxuybxxExh~A(42<iOh!z%L+G-tCb==&bH`^f3IAAWgsR%?5Q2UkGpg*pjEac3}
z5Exjkc!cptJW<livrEF>gVB)HTt$9#Ttt?0IBj<3D|S)wlPu#^6&10MVu<UFE`HJI
zl$he-0TIHkB1&WF6UbFaeIgFM0{sSIXFPl57mcd#ndypb=s!)eSPN;W-Zw`M1fxdX
zyl-(Mf-jBkW8;=se`f)Av;aCdt=`2w_9>5L$;QoWf=rl@^w3?NJ}rh47`COnGn4Fn
zi$h;NG<mwv5Dv+2V=S=mPg8~Rgd`}15B%VO`r1~Anei;5nVW~xsHjaJ7~jn}oExWL
z>pM=}-{j!Scw@?IY0c{lcF(PpcluXGycq#qT7VU7BrPNm<U0DTNlK+wtLX44%P`)Q
zBYSaa3u!0-Yr%?oBLCM;#)o@wFV9A;V`OMyeuyZf`V9yfjyfFau6WJGKsr}~afPNJ
z!=ij@1~q?(^nPrG*5EZ4X$N7t609=(D5e=TfcjCCarZSbLf2lOJ1euH7y0IITX)s{
zq#1*}bX!owWkeJ!^amrhI%kncoL9gDGH%_YEqwdO7Z)}yxq{iQ3>_iHG@>E+>rWv%
zuAFWja$#j*A*B?YW%_q!#?u@>eR+$+T|Ax_^uBxqq`XJzK$p~<3BSMo*bg^!d8~UA
z6BE-s;l6g;rEVX_?l^>Fv7hg+dqlKKHgG>^Xb|SmmJBUp&E#QXnwNC6<+Rn)>T;cR
z7C4af>o08*BTRzlSuS4itvJYf#^4sOrSlQ5w{N{X8=gf{<MonCcAc+05Wa2uAAC*L
zDNT9@mapAjdk!kOwb$K)=n{F7PPaZ?XA!$K%NbIZ7e|+<74EXMd|&DuSDP`|hXt*R
z?2Nd<SlE?;cQlr4fV=34^9*c|uvU<ntn{CMmM>?#^1|NRjGnGn7nUxv{I8cU_I91D
zo;_6~FE;WeB|SYJ(nyrD*yI%*a~!AQrhbjlD=Bex=K9jk9BtNP5{W*o$jke!U;a{*
zI-ZsSqebrsKlx*IRn=uJl(~{??Jq1VDJe<Y_38!$Sk+>~q@n7(hDM{I&cYn09nxXV
zAr@7Ny1IH4h0|5lIatIxia$L)Jt8bD%&YPOFA7DPInr*agYasRQ@>Unx3sjJu-2BA
zcCWP`=1fVO7v!t+ck`(p6E^PYs!+-`UDtKiXD#%x_ZGHtaB#d3u{MN0Tzjqs5$vZG
zR#X!f!vgLcpB1A=zASfoYWj0;A6jj!H3H$_9UTt;_9`Ts^TyiP*w||4C+LH5)ch&l
z-H>YJlRi0RB6qy7m&Tsfkzr+BB{nR9JYdK$2aOC=D1J&v84JbS^%?LZt%{Khb62gc
z8aP#hU>tzJ2DMkR0+Ak&HlNahU&&D<tnS@n=bJ83_XA2p86Q%%%z&h;Px$X?Lob`1
z@Abae^f-PZ5sGd7opFBmA{~Ed&17dm)M(4Ghhfco<(iib-C40Fic<QKkpc}5R*Mhw
zJGV5W43^`y=nbBQTT`QB0=>MvY*R~7O|lp(IokE7uY8n?YtJG|RF3Jqoo-Ycchks7
zgW5;BH{3ZLZp0QWIu})INvTsf1cp#O1N3P{ljf8;V@VG$j_tG~{XG#mInMX`Qc_Z`
zqZ)H|VSX+dl=EAt$x}HQf#lUsVhCfB3zo5F8^~MT^lr&7XZ+^ms>L$Ry(ro~HvfoA
zk=Iddl<|qv%6c0adDEns5!Q~MQV)|JE=Ax}(Xv*8l+(YarpBtThOar(S`KTwzn&wI
zH$M9i(Lwm`WUTE-jNleKGZamYQ2-=*fkRh6{mshCDtllQv~MTsi1J`;#)x|3yeH#H
zzbDju+s8)gtWbvUFr&9DS;_t+*rs70932hbB!Hw7FflcRB(Gy_9z2Dp)#vX1y0}ee
zaqZCiP!u6C5!qV{eWx)gF#m}QW2S*}i9Kz~bzw@=Jb$x{4=EeKiJl#5$uSaVY{&6a
z<mu0#2{J7$ji(UQyk&`CZT8N=-7@K>&7+^W<`W#oO&uK_p|%aJc38wt_m##zIHClt
z93TMc7->AbHAf^|)l|63n!mhA)Ma+MchqgkGUd#9s4o(W`xZULH7pqp71u8%CC16E
zGtVml+`76q<H)`z7;@SXg@H;yghFU;#RT*hYFeC-Li{hoz}xW{@Awx`1XAmnk#kLG
zsHkQ5_AB{#vp1?By`!W{i|D#C`Xt7`pAsHOsr0vB>^3E4XAAyJxc%|rC><_zn$RHV
z3n7;V-9bet;P{g=c|B2xV?Qs~ib7<Wgo{%9k7ujS+-*AU*h<$XNp5csD{3dXO}HNv
ztp(gk%B}#-q}^x!ZpDI<caF-y>sSn=)^?&9qG<T%=YXshX^GLNP56ckRE8@XGS8?V
zCf0NOvwE1)1Sz&~qTP)EHqse^BEhA|%N59AjnnG&d&<KK0<#xO5ckuR*9Q&2rKF+W
z)>X&YgLkh5Egmu)0#i-4pvCf`S=v}M1=m`;q=xZ=AMu7R%ZFgLKBmo?;Tq|t!q7sf
zWX|u4czH={0er!`iDL{?UKibYdkUqRIQ~$p3K?Fl1!%tF`Mo(r(`wrPZtH<7NwS-h
znT-lxoYfrihu4`-aHUoM*ecix9hG6F0LO{m)QSo8YN~0?!>CpI7Oyg!a>=qGc!zn1
z_7dJa8Vam>+Kh1FwmI7V#{l>NYkM^1@M`73OJ+7@*$(~HPHaI`^o~MPo>ehHRGG>F
zIEAUdz5*%8_ukQ?xg(x_aj4~WsRS^i@b}kONPDrrz^&gc1DC4P0rjw4_$9T@Op;(&
z;>>o-h*<YNgE%(kuMdr#(}RGkI$i<EJ%sT5G=fvky*zf1m=LOmNq}qAFB=tN;*O%9
zC?;=yCY5uMfw`I*_h7qt$CFc|=(3a~`VpV&kTF8?q3fSDZwny^I}&-LYn#XxyWz6!
zv<sL{M^7j2gsWYnu>C>}%qS25V>hXq)l_X=JS-zm_K#U#pdo#sg95%9gl<IWL$t++
zob{yBG=Gc6<+5sq!~PJZ5q8`50iIj`$A{b7j@|mv@E$^Ue4+IxHc=_YO=L3iUn~Uu
z*Ae_5K6Jxkm-gyii-rA7vWqOi-e>>*fd7U)h@Iekr3~@S3rKzp+P*xn?~RN&gyQOW
zZ#6GU&_zJWNr;0rj*Kw?Zh?j#A4DPhbb_SLrC>@2KC20hEg3{>5Av@Am2-JHIk}P)
zH<N#80XTLug5<lL`@d!*3T-1jm<>kpYuS(e0eB{l$Om1-vsD{+cidUS|807t-4YdU
zDm2`2Q|}qpC|Lem*N*{oP?FYZaz8*tD!>a?pu3A-EA#sF@J||&>z6zX|JTx@-F1`U
zFAc+XEFCK9hhRX)M>gCCA5d%0#<0r<)jdniq@|^;GZ@H^vA$O}H4i?}(FM3iMhH^k
z7^n`cLl~~_l@MFosT$?$Xb;MOyxE6`=;#rKpo9)31muf=iJr<mIx`gkh9X=;t_-Ys
z9XU{ZJI{r*nwq@%qMn*qjs1SI91%-Yowb>d+=plCwTO@p7K{5U&J?uzG0@%p4f35(
z<S^GE5UbY@GEsI2CfzJe@69RM#+B!fp6@CRHWJ^xVr2T1i4_!{EjyWFgyL7SDOg%2
z7i>0s6&YEWwtQ1;Rae6Ob=iKhyI3`Eo!EUo@EPRKU57(y=W?W%0=bAl%g`&nG{zdu
z+Ca!m-+yB}G_1VePt&Sg${vy)#$l2gdgJ_ZBPpcXFCf~{eG!lfcmz@>mECVC@k2Ln
z-jvzkEt$O%7$(}~JGH+)IT`tth{Ey&hip!_h6FxAFBJKIFVt|AqQm>w*t5A+tCY2#
zmkW_ok^a1*WtaIB8nM28e|^dly-#@q>`}ax06^pY^_Cd{=#bCZqI>Dx<m9A-H&ed)
z%*!l5m$W^vR73J!2^q_I0%_T4-hP9Ak;y@d!4iM3EXa!rNm4C7%D^PA%8wMYFm?g@
zI8LYGj{w=npnwZ`&+uGFQtltSW83py^v3sBP7~2On{A2VxZSV)O?o&NJ@)pP-Qdf!
z0Mrwp;4<n<(V9ZfdI^CaX=fO2O;wkTdzjxuZ;!Rk%qbU!waV7~cH0*4v<yk)rJ;k2
zpVdU&KlYD;_}PEEvwypEu-g9)YyaGX%SJgX_ntS3c1^N=QNX3FV>zbNs%Q+~5`HPN
z{RmTZS>KX(>l!b$-!wEFeZN$ScS1O(II{1Z?NG}E=WUTuctYT(u)ll4MbD6tQQy9r
zxWPYe+iuPQ$7!9jK=e~_Q_K^$@;9qgIW9N60(q(&+^H`QbmJwcq4bHdeCUmw>N{~`
zQ(E}f@@SQK9vOrQ{jw0PuA5BCI^wQJ`Rw_%IF=6WM`a~?>eqzQ#Ad<!2tt<wKnnDm
zuXsqMtug$ZR%N%}?_t5_z3P!=S0xr{tp7||{2TDN{jbFN-=L4_-v5nzpx!5bJhtSe
z@L}BoFNhAuf{LFX+^J!jp*IQkryr3V2qSXJjuAx#D=*xh>WK&~C5?n&K`!S_At~yB
zWdEB<db7WobDstp`s6tFEaJ`J`@&M60Z0h205P{S6gp2!z_KpjkWwWTEkE>3ci|f-
zQmk5+hYl`6#<y3O4k2*+0CG6>>vB;rQK-jipg|D8m83mmMCQ%M$7heq=pjtKaPTJM
zvzRVyT*qR^>nBTi7oI}Gp4e)(#A>AX=Pk_3_%Mj5QU;VvczfjZk6<+LpeOD*Pd$n!
z0U4!W)&hBG_~fjbP6nx=>PrA8nQp-&1AeEnq9Uo-noNh_DI6=4%=^?Bc+^b0votuX
zm{5=vO-;X@XMcDt%V;fDX{IsxerfpV?26Q@8ir!p?MuRmw*(MIgS*eHU>iRLg2DhE
z!v8chHU@0JL+B-{%hpEp00d&=sp9f$VxpLxek_A)Wzzt@?-O78!EnrR6~nCs1_g=7
z9WR%4UT@^_p|PgMp9fn`v8YuO>9(=5I&gG2x78D^?{LM({aWQNY){+8)M7SkddC9K
zZDQiwSD<Ra*`jyT%q*TizWY|6r%=OQDCxC2^-yw){Cd5HgYcJ<e1zT9m^pG3buW3u
zfU(mT-gb6&_HM5p7#Qg3?tVvpKtQz1X=&+##z|H;rAmNg9y4dA8HO8Q_e{=JHJ#zB
zaWbF_{CMn<fBR>Zg23?2PECyI?rtU>lgM4BECe8!nlY4@i6qmJdKX?mO`2R<c{~Gi
zke)KKdF*xHiZwBB@rSn{!(@C`tl4r|r=2PKZEC6@Nn%E8<N;Ze5kH<qL$4vz;*k7B
zVq;9Mc8-J6&Q|<Q&eJ?EwNcGXks>k6;nr>>Fg_jVsL>e|9dex?3-#q86EKV{8Acc*
zL)JVs7+e}Gx<>|cmokg3QMe4{sfU@@G-xs|gVCi^%UiGoq;FZq;`6$r+3lkkXwrpd
za0MTy@h~o}=;Xyu+lNo{?LbSGJhWh>cb+tkfHIREtr14mbgJoqcJ?tGLJ7p5nq4xB
z_aJPC#C1OVzSC6;BU}ql@v@`H2@AnRwAj#AqRW7k24gC%7)wd5{p0pg8T89NL))4j
zdJxI&KteXVi*b>`>GWf(85h}u@dk2{kIJAq)_0@)u^oF}-a45h&G=f?Ft*OW3&#4`
z{wt>c|9@e#T777VEM~S{CPjfQ2UMSQcIM@>wk<Hlgg`S4`{j`l5fL$#O9;f3JB)HH
zPa&+-1b+rfFj-}Iy)f-^<Yi;IVa@~UDSKh_aV{o~ZOw*J2kIMt@$W&^tBebb6i*>>
zkSS>nI?I&{YB8>?2`$PpKE$upgMKH*cN4oWjGCM;kHJgxGhQJ2k&5X#zyn%VU6kG>
z1MA4^wOJ99Nh(LAs7yM4oO4#jWRk&F41$=4M%p)tGP`u+#npeW(ERTc4~9{f_xm|8
zFBvlMmYlbP(ma%B8zeM=K{*0TquY_&mXS(1Pdy6M$)GE1?YZ|>f|ER?SM-dhuywAv
zRS$(T#)T(Sm!|R-oP9c$aZMjjYcPz)vryS2U7V0gi`WjnM76NWk$rCsVBHHO_j_a@
zn2I1NF<JOOtY^IxBO3hI4}b{7bR-k}0EG9QsP>=Y1Y<S}2F?tf9|8D|4hWl~r|c5G
z79&jg?olYk5TP;DP4til_f$u#5W`0)@jB?k*eQ<-DahSBKyE68Uy{KT5JJ_~IP&a0
z8Gfk{oOvLb9b=F4IBYxEG>$<%gjOaMJL9Cn-4mQFEv$x#T!#@^NI}IO8XWR_!u~U8
z6U0Qk$86og^6z#qCB`by%wvzaQ-?8fDkUwAFmUx?os%%v?JZC(B|B~|`D+c#YySl2
zQnq@s1R`Y^nx2;z9e740I!3O)tFFPkB|lv+Vf}l3gkTXy!G}a0|F?I(UW~kKQ7YU;
z!t7Ze!0erbF&Mi%JP);kKjcEZ#D!SY()tY~gO;s7c7;!V#gM{~p5)t0ksa^>dh>mG
z^F|qck1-x8Hr7k{u97*%2z6nim&PEqIm@;T1ox=d(F^^df)ZtK6Ydj&0fbIHnjA>|
zrIT1pdhSH5gZB!f%Wz=#nYltp!w9<6&Y|{D+0^usjHChSNw}Fqs1j(RHBT57u0C=8
zO<jZ}CxedeGD{pIW1MmdZeJt*k4Q{1t^52@0o_B2;p!S1he2zReq|cQ2!)VB43Sz1
zAqqQqud$xcp42tPG0fsI<uKufbc&HKX00q6k~omvC+{_~bGUJi=p)EDC4JJ8ik=n{
znoySPq6X-cLUiH}L5dJzi!7kZkBE$nbP%T-c$TqbC-|R7mk8-fW&cPKF##DzYpBij
zCr+M2v?l9I!fGg9d==2mN<&i|ofLS4F|&x{<C>ug7HRgU<ibEGXkmjfL$;b^mP{AH
zM(Ch;f{AN2S5Mk4IHc1LBKDNQxB_@GdZVJV)s`9+qPN`=oDTs>q*#)SY$>m=uR)SG
zlvzzT_%JFzWMmPoP{HNW(8Vjkso>{#+xL}CE#^h94z!~2pFAXKDlij0v`jS-*9oiH
zC4-L1_r=yWAoO_5a-J@Y3Blg%kg@1~?fx)p(@k(%8R)h<jM(qsog|xS)pN-+6Gp2Q
z&iHc0BMI_1jEpE478C-(h#=T-SszR$dRMCWF*6#a*32eUZbjsm>b*E}^Ad@WW2K@3
zIFZ<?V;7!b+sLd3^z42^A8`fhKejQ4(agwGNSt6=!QJ~8VA-$(9vOl)MHH4rqdFwK
z4I>&bCd7}l%@g28)=oluOIR!fg&Kqg=P4u%kZf(LtFpxHfcw?u<xk0xLZ@Ot!s`Ly
z?S&ZYLB=SMlJ1MzEOb0sBIS%3of|+&haBo;i2i-+{7MDMU<L?GMiIK&o^9`E)Imps
zhn)5h8Vj6QpZNMsJ@6%Ea5<Lb+VJYoWQivvRZ7(3GVs8Mq1`b?6KXxC3iXQb-_(PZ
z7r&8u<ikU_$q-08$Z(ezm_(OpJEYyrs?l<BeAp!cHPE-N3-cLh5w!pY>IAWM-iOSw
z5JtcI;p^X?C^>{VpFesZCn<@+TEtc=T3SLBoZ2>m&1~G?959zWx+?p~GrR!Z<_FQF
zszBPadLKO^>IoufLP0aLVh?exK+{UOLnune*Ayqj5$ws2Y9CKwm&8;CHlF$(Tw5~A
zb}#KaUrcbWc$f;}lM3j4GcKbukU$NmMm^#yh$+Lz{9aO0dVOUyndBzp12Ik~lt_iR
zS;{%asJjv_+LAmHq@5+`nbnBccQqflb?h~>^Ioo*@9voI5Yd6|;UY9*J;lr+D#NuA
zP0LF5TgN4E1LDV>QjOjmob6F?Ey8fsr?TOf#Aj>>sYg1?dV99C@Zrjy_z}K?DALf;
ze1#x?GDoFQL&20hJHu>xtNXNCYrvo%LPxNm;Qp9OzyJ#rjtmewwh3EYM+Gj(!F#zB
z(LgbljIg2=-g@(cXb!Zg_IPFM$Q(L|J4u>?$%e)T34x5vfrfkT1HSzL`7Y8+MjSK7
z>=ly{S(tVtM$#!_gg8hMg|)mj4Gn=O?*5{Oc}ryX(fj)nUXKrw3kuqTDk>^`NPjcz
z)QoXs%cNBmJ%5^ojUY0Qf)Y1C_Z1;ZTB}X!B#qdY3gpu<eM)Q2_W{{`VxTBQRzd_N
zqVUUsSU7&d<o_w-d&p^e7`P%da_a1bzo9DZgfTS51U~j-6x{^p%7-=(YEdB@Q-G9h
z6qUTA#I3`<lF&;Z%9E6wDffn$%)0|E*s^f<#HSk+K79-tm_!KDv#KP}2bBZbr=Mb@
zl)e94fHL?({Kcz&)`LyL(2!8j(02$fjMURe3mR#BXSDlbn!zZbj&*EtMV{*d15356
z&LK5YjCwnyU;JDQ?OhpA*0feX&7Uk|bI%ihV<#87HXG2qr#?Bt_s(bfIYf1&kIxtr
zP%ywWcle&bfw5+jAHk#!PP)=C$-ryimzKN87&^#<`Z#rowiZId<tra75{@P^V%J1f
z+^I89)k(r7&_vnXI%G>x3g8hcjOdfqi%Z7Dx?M8bc0cc>q^8FDWxT3Ez^X*%kv<oy
z6I}U6)kzdx((0}~a-#C;6hgHX9H8y6j|>l69k06(Gji-sK-&Nc%k>aOS)!^*#Y;*6
zuI6|cOF?+h2P>`}zVR{riQv1~T>_k>_n-Jrc(ydl?Vt7&QMnIK1csxC@@tIl?t(QU
z{<!nV@aImqp@H2swq#{E*2n6TZOz$&eCmK@Fqzp({3#*cUz&g2W@B@8GoQ1AFUc+`
zni1H?YAON9*mEN%{&)A_CP;rYEp&kvDuzP4j1Qc+6QmhslCz&BiJC;abD~CB7xKL#
z$+=2NDjAA~`6~qM@LQ57D)S@Uj-=}7QnLhj>OwzV5mM$*Jh~{+oa9dB4DFJcs8lC%
zEkBoraAvi;4Qey_pE1PGg3P}fSGeb<r%^xj)`3HCX}GGzpFbYH8StU_&#yW7qqz_4
z0!}WOjNg5MB%b^pK?TN@9?Lvr0HdTq<?w_+JR0ME%q3LHi&CMsFGkOx^33l12IIB7
z^f|qS7<1w}Nr*xfjLc0X(k1fj)e2cJ;i`Q)c5>0qPPV!(5SL7G;-1`LbYVNG=KO~`
z1}k#{oBym{Q4;AMCuo2e1ptmdU>KD!7QWdNJB*+y)$A0uDe&ALz(f17QnI^SOZ7a7
zZbaVEfo6OPu*;MeC4imw9>eP1rYiaTm?JV43}%4qakRiS)kFD9re#Lb5j7D5G%-ex
zt9&wwJ_xkmYj2P1OxM#k#dFyUg<l1RyDT|ifl|9YtcIc0K{t6JrbhU{2~mSuXZ3Rm
z{&qiQ{E<8PbF|J}6rSUk1FJ5a+!Uh;#^dmn4{k(SDBKs5Jc=132QkS=0TxbjD=d32
znV#y?p%^-IIXL2;#Q>H_%<L;3FLbWofQH${Pa&}ofK-&!vc}rE7LLiZOfE4VcCmm)
zR;8>y7h~h7Pfo2bgxW%Tin;YAT69e@)s`?$^%x0V0bjynHg^xA`)nUFVVMlq%Cs2>
zL=~*v1d+dH8o8Tnc+05|4M(6un8j#^5_C@ZGDd*3wjz#OAPH8^8$?0Rr^K{pPZjB_
z;G)+R)J%&d2$9x<>alx5(7O!3l*e7YNiJ`yAls2=yBgJzHXH)?;NZP%$Pq_Z3{T}x
zTvtXPS)cG&@!=fvPa;D({RO1`7{&X}M)`t-6yW!-+xKOgi36<J16wBJ<dhd?+UKqy
z)#i29{Sz0CHV9FG*BtL6;*7C$nCyQ+CKLhim#Jr!QG?A4dWIb1@103avXrOgF@I>N
zfJ}n8Bzu513*tJk1WLC37?F?wjNQ1$<+H5sO?9(3xpar2PiTUVvHx*<<tQM99;8&?
zFcIV>x=qfCwK)%%dAm60k@k6_OP%dJn#V|r$Sg{X2_|4UxmsC6k0b!#I+PuHH)5fM
zf7k!tQ=dOr&ma)8<NsSofa9Lo(`}D>nlda&dWkU+*)7nfB&@#?JB6?Pz85EsM!jBf
zP<ef*5Hh&BO;M51)AWinvP`Dv(toV=uVn7`1k$ns9iMQpsBI}RDIR+`n^7bh65xH#
z;=Gd}4(fpTRF3djaimn*+4e}F6tSxU7aHR`glL!^8-g@fU}|35X(YdQP8`z}d0(1f
z-!d>Af|wftbc6vFf^?Knj~U42qQ>T95qX>73WO0!$<0FJ%B~!Ti6Y|jFygn9!~#6C
z%81TtCbvt%q)@re2%W<97>eP`BakzGi39_7%i@C+P1`RXEE&KG$PRtT91Wtx$E_Up
znjmyeD-r?Fl;>N_>oMN<2?*9bGP~VYaulJD-je(`0)RUp>$&=3${N%AIuO{4VM)rz
z77$IybN1FkxM@hzc+x(^o81CfF$Vf0{uZX%u-(Nh4kpz-n%31y6wfRf;*_WldE>s}
zeg=9wb?l@(&XO4giA5^s(c%S2w?bfcH^R-Q%#`-~!N4VWJ<+`%qd_#IHLF@Nx~c-0
zh2(9>{pEqpq9SB&n7Z`oji4jQ4^ZllvCa|-L`=`g*kVwR5EoL2q$`h}l_%#z5QPHr
z!2M-^fW4R{dG16XnOQ<e0`QELNDP2^yD+8w8wju<v}3iI)H;I@7=?0gH-j;Q?BP0Q
zI}%QF{s5U%MEC;!sc%>Dyxv3#{yo88Lh2L|(7_%c3Y8dA9fB(KDjDA1TT4*41jI#o
zx;aF{gLrh_C*A9dI7DV3>WbvcZ^8d{VOXPr52@@Em0HV0*(jOH8y%Y_>oYsz?OF^`
zUCV^^5~drPUZ_o92_6O&?fAm{s0<lv&^t;5X~pk@c!*{nt@?lrNT?HKr}EHtVc0|z
z(UyR(@f8#4aA8PHcw~@@<;g-s_X<%C`@NA2TcK*FSxt)rQ3YgaBaKf(z~Ctayj1R)
zhY&(tO9D%Spd&@Lb_f<6hZLWu5JBSw#!pkBFfBBLD3FY>i?-5WVmh)O^p2bL$+8gf
z0LOYC%i-OGCs(l()ylMz@j+=Irecmv1CHYt5H9%~B?7}A!<KhKJXQi&YJv3{Ag;<0
zavc^xV5w8%95#D;(KLo8J?fRjlO~(hXTk(pD9*;fza+vCp$dFe2QtVq;*<%fBN;bg
z31+)o=MDJI{KE8#iD;8!R*+$<)-<%v*_Wl);<}J>1BMKJ!<?2twPbxN(fs*zkR{<W
zTgK2^H9WruPUVAo0@4Dd0D+7SpLC9LjWtjr6Q3Wg(+UqOn1dI#gpzftu0h7^12x$J
z8KMg%!y47Y`xG$X8Ph-)R(~GG-HM`+zP{ddtI^5Fc#j;o6f>m&%%JZe(l8?TsQ{7F
z5j!?siu{FS1ehuiO0aZosGyNDL#hL!1KXuRG|8ShB+VcxIl@Ln<~)*&+6sjgOvlAj
zYlx0eRfRwr0#hV#0()c#4u+;sz;+Jv+{ZaugD`Rfa*~WsbYN(M^%!U~C3Jv^N$S>e
zvT0J-Eqx?M1RTd!Oh`;7dQ%aD&%yqc-)oa30s9qeB~H8nk%Jl46XN4&i`~vzP0RCS
zrVJUuf&xtsLJSCyP)$HmGG3qLzBxphBrnqQC$Xap{HHPqfMtk%p+UlUmnURI5s9;8
zmN=dw!Ap_@U!kZNUc=S8sB}~R`71Ua5|RJ2!sWcHsLgQ_E`IM`=(AZaa*B!R`G!Tw
zu;LwtLh*|1VmLXsYVq^;Eo!0v*tIBzdrNi)Q*fRwibwu8-@MtB&nqF{@q8?KuZ)!Z
K>9~_u?)*PK`_h^K

diff --git a/reference/plot-11.png b/reference/plot-11.png
index 61ddea79ef2fdddc5a1d1a035c51b5fde83c9edb..fdecdad6d09875de62579b8295f18caf9f988233 100644
GIT binary patch
literal 31245
zcmeEv2T+vRwl3<ZXACf?2ohulF#rN05+v$?BA}oI0Z9rfDoJt<qoW{Ei7H7#OQt2K
zZZHre=h)DM7NJQ^&P~6yo0)l2b?d!*Z{2rp)vb4?>Kp|A{=@#)Uh7-m`qtvbbv32^
zd)W6dFfi;_zM`nXz_8PqfnkTqKX$=S2odo!@MV{Ys*)mnh5uF+O1<FAkB_hD*)cG1
z`Jn%83m%!h$H4G2gR<g9E$8UTewQ%Ld&TlIW)ZQ^lz-iRV>|O_*TpA1(H{)7BEBB@
zT~&7<n-=cC1#CjX%$JyBLI#H};!pW;@b5arbLt;FzyHK?<HgtSmzWQ2|Go0%?^my!
z$aSP{4kks%*0+kb$;x)Dx;MTF9bX`HsFxcq-s~t$Pd5+YRo;$n&bvM}(|#NJ7ehdR
zH!J%3bK(y;^p)Yr@xh(w>(^7;gwfXvmw$AoA9_~h<6iWGmp8T>p|9Qn2WIGJyBqc&
zIECnU1@5)$=gyr|R8UYjZG<aInva!rbCja&=63&(H2>af#9jV~eASnA+@p@P2M-^<
zc>etP%34=B(K?D(*@S{$4uT&zw?z@pRj~wdlZL2I8lEi*O4lwLIoR7L&09Wr;LEG5
zB5uv#-SEs?!qnB(H6cA+proWkrECYzrp(aL@OX^y4uR42niY|w#L;EksBBAT=V3uX
zL7S>0W($P(@86#gDxJ(38z1*G-kgifzFQL_l4a}8#zbMY5UR~CGkpAM=R@6<Z=vcD
zcVo3Eaw#J_8B%s_H}d9R9(>AF_4(P}V?4vHs=|Q=LK3$LUHEB->?XN&Ma2r~fz`$_
zGWkd-`!<zIpL6?swmwMYKj*c%v2gYGfz74DaG~8P9|FxL3-a<Ra4z%DExc-uN5W@A
z)#cvo`of?UL6rvU;u&msttyN^7sC63S9$ou7siRgYfesuqRh8B`R?NdBi$%?i3lM>
zc4p?$7$@R8Gm6#1a|zrp1^tc$Uth_Ij9l^3TxWq*&u#mXTGySbE;D$~s(##iy;5%W
zg?dsO#eG!T-}S1crKS4@i96WWmqp;_%Fr=*(`?mX8`|S>v<<V3xybSWUtj9-fP6vE
z{ip<Px8WBj-?xp%d3mO)?to)e6yc1Rtm5x)?bqr>n>ag73*oqKkL7+?p5=0yhs^q9
z?(xk1aOkQ1+bI9&bLcW82OC&y%qINiK55FWN)SJHt|Bp5PU<#cX=y31KS?>1C$7o5
zm2N-1@0YvYySciy(r80WUavQ4zxZ%!%xrMbjMjU*4lmxCUv=;ET%VdHE|*C-_S}nn
zU}Y6_MD%_Ifw)wloA=;Gxmd)na&f`Z6r5<|`O)ZZFB;XfHjJ;OyPHijSuGI1Oq7Nr
z3o9kcR~uFc1DiJ&9LA1%ZOj&}4EvM1O@jlc3J5|m1Dop<ZnIdI`+bkU?9X;x9RFpa
zWHi=o7&qVO|CCYcR6(C@9Wr5^^0f{Tc*#ZN_fZLWJpPd3nG~g?F1&K<Jxx`UJ-Mdo
znFW5|zkgpT^ja^JBn60?%nnz!^!FPsv4i271j{a6iA>FHlrsNX{cV0#a%1L8TXp>#
z(PWD*=4jYEYcfo7E4LMK_SDZDRz<(4Nl)dy7BRhiPC}v@EcpPs!Hp4NFS3(du*}?*
zXeXizvdD_xe>`Y1-kxgHXH#8yO`>0GVNSl;Rr<BYX{<4IT&In!mwTUO5r>a)9Zw}M
zG)N4{Oja+4^D2Lm%)9gD`7hkLp47D`)%!4qOqH@JI$m|Usnzu(b&=JpqjB8p)1}sV
zV8ZRGn)KDG6E2szrLTXCCm}I0@m;VAUQPQ^ABXzH%w^1^zpbFWX?|>=kL4Xc*uoY2
zCHj7vA8iT-V-<WG6-8g0W5F_K%VwSlS7@rsYPY+q^wTiC<s5a{*@b3t9^z;j8Ks^F
zwmWyTvVXlm>JlvMJ3#TGt&;|5)PY0{<~Tb$`*5(=2I)kw@S;@2;#7yTCwANIzAJ16
z4ilZnnO`X?wzjs0z}jvjSd~r{JS6yDDO+u@X6#;?E~Tgu8lohy1LEk6ZQ}li1yyL}
zrKP2VF3;BpV9pY6mNWEnTi3ar2Y<U;>Bmx&ZnT(oaWof}nAf~B<H%*o{wesVTh13o
z=|j|8S@@;ii=&0^t8?Ez?qE9Y>Iohxsy?x_RJwR=JUx`$mdv!e5)l#c?Ky|lsquWq
z1y9Cr<m5OtM#(|%U(8?2dAQEO=MHIqc_6d;EmRqH=^CzlrBZm8C2h6IOU|-%u~Yw~
zaM_AU&!dS_8TrL_%^CrtS-*?xQ;FQv2PJY&j*chL4&QBAPTO2(U1WbgFBfUzaxH{c
z5AW*Gdm^%Kzm(ekyX003S>}GjTQT&~n@0COvNkv8m=nQQ6XM17FznKP9_6*??=LMZ
z@W!oFoZJ<o1CL=#3Y0j(A#QPMh4u>9Mdj-%(#e?3V~k7`uFc;Fvy&B2lHcbfts9{3
zwbn+Ki4@cqzq^hM_Ti&P>~msx>Xfy5C)QYg42RxtcR9yIwvDO$MiXtL>0OhizJ3(i
zWnYedQNatJ>l?wad2~_k)kW+tB5r^SxWcWIWh0SJNS`ej*vmkA<L&hOQlDMZFHXDS
zyf#;_IbPVcSGiH1w!us>h?E+n*6NgnT#c5@PH~wk9*tF2S8qDw_Q6X)C+liKw~7B9
ze8i{i#N(<F`^=4)sk`rY8M#e;7`3Zp(b>1^>SOo8zRS>w<@eOe4M8KE^Ozbp=Gk7>
z_f3&?BOzdp1p|)wFP{T<vyHU7xs-vw@HfgTgJ(P0-``)uti*XkYaM*UgRi&zJmOUI
zaVL~RU;}bJjOxiX3r=Cu*Vo@0o1U9%r#Rn}68%Y&uR7?}4>$~`D0np6R^^i{R4Jk2
zZy`?zm_5#QV$&?<GMQgS#{6xC<VS8b)wVE={KMJDH05?0Wq?t7^2~!VG2(WjN<g4;
z2ruj@;k8vExT7b8r-64!4#p{1;>7YZR-@MtjrZveAp2gh8DV$IEyCB<y6tBmJ%d#g
zDj7?#Hyf@Mz)lu6G<j{#=QRWz5p5+01qFE$C?ykF52KRfJWB?|D<=)g(JLgJ*2_s6
z>uPr!#V!Z+ha6W8$v5vhvFa{Io}N}a>Nc5umxy!OIrUu1E?0Ln+D=WX>BYg5Cv*%Q
zv~yrnB<1Fc){M?8%f+dSTXesanXebE8LspXW%8VPS_59Hoq|K>xMtMkBfl~9ZODgP
z4IKwtHz_&!q+X$w;oMka@QJ;LPhVk_U1+|zgV^shAglM`_Qf2Fo}45+UUn+9BVFfY
zA<@-52i_~DNgFIH!=Tu<xl4cYQ!8>XA3~+?)rNiZ6Ue#}>#@|61bY*1sb+0)B6MKm
zyTndzx%Q5Z<LNgu*@;nSwkOBBK3a>0d#XO+(cRno_G+w5@!()W-<p1`F>S5uq-vzl
zwcg&|5O=w_yu!khXpQzZ?x`QKCI9wNRaJHFDfh<Ddd0T)THD$}7hpfB%Pwl!*77AE
zsxMsbk)ZN@_YfMHd&~RGOf?QX_p#|}1EI)9vph5La8YOek#3O?@4_(C?@xB_-P1c=
zIN({sy*cA!U)=xUj)HBI?D9V6_fDxhh#J9emF(&hkI%0q7}PcCf<;aGsO-X(LtNNv
zw7fuW3yrcaJ3mEhY;2^jshZsCw<nHRxBiJ;22Hg+v|~Nx=@s41)Wt4VTr7Anfz>H%
zFa0ym`@sR$K%kY#5V62f_AYh~tl`0h9xv>7)Nk$Wl^QfZ-BlEoKcyW(G-qHF{sDK)
zo<?0xmOfa`X?L~UQca$^U~fi>(6>@13;=40$}`Npf9;c6{RL?mu%~6Y$J7REPt67M
z@zQyx@zi9-wNwv^`ed-&+E_xI*%=6Qno>;w93NNA!yDQuU9S25s`BP+uvdVyr$4K(
zn&)D=@%|&xu&jqTy*<8*#vRG?5TTfXaT&p@Vdd0ibo|&2>s}utEnz7S5jx&@@Dv20
zL+%%5H<!!H-^D60p6A6=e2)d4(qj;NT~;^04v=D7oD(?uC{B9|2o^Qt9qH?qaZRJ4
z2&`DT0gBvrtL{3*E;X`?S9wpwZ|T@F*NXWba1E`i2$UqIrAB{JO05dwJ>v3F-%lhL
zV&Y(ZT4C8@=8nc(uws|4Qlj?4w)w~5=6wR4&bNH(T3APVzemtLs22a=)a2yV_i8b3
z<(2^i?4C-8=!$z6Y*joG;YkS3r77ijNpzZ;nwgp9KrBd}3X)yw1{*FNDDa33{Z#eg
z^d!6|C#u|dO5(1K3k8L?fu(xAM)#)hyS!(A{V4rwOiT<pNYT=A>V&i<Y}<bF8)+x2
z9EkRLRB#qWH5-QoZ-o(QuntZiN4e6yod85Acyg6ej`(2y!Q#qoVcGrRPQ`pNrEGoA
zqf+?)%ZB>dM((qf3ogmmqQoB%Oo&b8n~T_oQDDh=1qF<H3gGoVE&ia?7Fo$Y=8E&c
zmX<nB_2zVi@II@X&wJSRT;{{LTV`YFbcuQM5<W6J6LxQNfdam1MAyhIuI238+e^P6
zRJ$@N+FZ!ur`<T1sAZ}Y5^#D@u;aB0!LksuT$q=)Z}ryNb3P2azmK^j$tb(3O-hEd
za_LfWLGeggr$e^il#j|zoQLoW(dLn7uF|kJtxLN(A73c9tkVA|-Dye!C)6f>?b<a3
zBXEy+**E7Nw!W-$yt(vDd>rq|s!w^m->k2pb&21cBE}HFn*Yi7n{Bb=<cBXj!x-au
zDuR%YX>%iWq)Jv}z|9C(W>+58uYfmrjK}2DlbuoZlqwGEtI4DFZ#1)V{Fhz@yYt!>
z_r0^cU;p~XV>jyBVxlKeqHH#hynz0nnZ~{mu4D8@ttnPkda2hOd!y@S#*YV2R5VIc
zIGLGY=Ns7D+Xp=IM2=O;W4d^>3IOzT_p5excDM;cii-7s(||`}T09%Uy4=ISu0f1E
zWg09i4n}BQsU*MFvOu#cr!Kvgv@z*1Cr{9*<uumC#l@!u=NFn4+Q>DbC#$#Z<~;LY
z9l^91qx?r5DW0E-IqN1+rlMvIws<VINt|F2swThOXNOE)Ma(fkE48Ygo3>KDbKU}C
zzI|-5fsh=Ptj?6!I(KTZsH@A_*vE}S*;wmQl)l=C(TU3w<LOwnWcBkSVXwt4dtU~x
zZj8#usnK9-218JZz!Ye(Ph@8=vpJ&YJFIUZ@?gEHs!Ec!G4B&?4ew^nZjGGGs!e$u
zXwSt#A*7!!?_#*Fyq$Q%xlW%LqBa1#apyAiyF|HiGLy{AM_*s(3H<>`o0w!5u4m{M
zX1(*E><FYT5wPF#8FfU&+B-X|0MfP*Fp|!YI?T6{0p&@f{Gw>)^IlS{+w_sn-`XMM
zwUV96*ZUK*%o8C@7QrqgP3ATQ(Nh9Qf*x2{1V9q|q`dm5+i8z_@E=Nx(a2pT2TP5o
zBycZt(`LEJ3tyPzWzyLF#GI!4Bmu?&cur4Ge@799@Gr8z*G=HQi|1;cajY5wo;Nf#
zMIWp~3h{&hK<t=+P;D-*AU_||roi=e|NHE0kr*p$Yi{jpBU)+Mrb#Md_lYRoT6m>&
zRIlA`nNhqh{s76ym~@XzNC&OHv<B(U8@5d1#4QT7_!ES-qdN;Dg^i6`-`3vAsIEe3
zQ;gjA*QS21^^m^!ScGCc;>-M8JUqhf{<h9f;~2lZV?6)ur9B{9Y!D<c0(g&phptN%
zs%FfV5F(hFZB~YSl9y>@buYiCOmdPuJSgDm=0DO_#4Ws74dc_SHC%h?CriREAJN80
z3ViFpdOGyEPGs7A{_$i51Z2`|HFq#V_OsyhWq6Fnn?lv3_)zq6{=z|QrW`R;4yk}7
zHIC>xB4B)eyaZBaYmW*2+25Glf0mM#_F3#6DxjDnw7bADuu`=kHafrh1pH_54Rv*O
zDQd+*^?<bJLq!{NbtKqX0p&C*g-qje?7lM_&*br-{?S<a>s<Lq=Cnl@9m><UwgT02
z?96CmC)E)jd>$q4c2J0k(NxB;NncJpWO_e@cjv$^mr4Pn8|^ai{Dg$w{W{01@n!sY
z#>i4({`>~6tl7M)0hdE~XCuouj^pvOr@zJ{t3x@(IT=^Tu}zlyorF~bF=r!8P2qH(
zZe^QxS5d!xx@&2iQV7`tYro^^&g|JTeC-@SxbScLh&Q@jMq?7=<A32X>OIoqTx9@H
z=34U%HtKm<|1oW>tM*zqivBUv)E`&)lA|@2O8iCI->8q+S1>D8q-m#{41IoPv(Tc%
z%9)4N%RNDN5s>njOk@@Y#Zf2CqGZY_Y7h8?etb-H8Ljl9Eqev8ZhIsbC)|ApLRCOP
zLBRuabAL$UA6Q!l1HxFq0wY76!0(WWFf;1x>SA@zl;;`FYg0=fJ1f>VdbI9VT{iBr
zA~;V*vc0+agzxA)08h~vq3;6q;pcj@P0y)h*Dn|zUW>gW^)iqUuaVwf)D@?K{W3D`
zuM!meMI<)jMax)e*0tAX;>W7XChrNWCcAlQn#gdZXWJy1>Qb!z7Eb!F|BByl7I4(x
z!9vCwo3m-O<HGSDot5GX3dGeUhkjpJ+QB6A6EibFjRz%mwy*`>FOS+5F9=-4W52io
z4oYsbc5REQy=8avoVa*ZU$GtOeUz17R#uj7nY&A$`+S29;FZg;85I>X3`@m><TqDV
z#&ybX&2*PZXK`Sk$!MTc8vvO^o<fenbJpJ&(L6^cIy3!aV`IOL&cDJfBtCn^tBm_D
zhCR|@XB8IybdxBAoB8~NNsxz!I2+^?FfmbhQv-lTpd;)ndsjdu$70nf=BtP8BD7QY
zFQ2Y#3E&Fvbkc)}tZ*Y(K<TIJH8$3`9?rFd*NYi%*WxK9;?eIMNfKE+CSND&4x68D
ztUBtSoo!&MdwBWTWggXu*URh-RovSsrxqEVz2Fvsi{f(Xd$ozE598)dv_E_!h3aND
z=9`oNRtb;(#LQB9ne2R1U!S8bSv@#0NQytJXxI<kfB|3tGL?Jf<L*6;*E3R6`Npb&
z1-Yx$L_-)j#uNEoU`nvV*Q{MNEg<@|w6-3|&(DvVd?^QcK%#47;G;*6_GGOt7nV~q
zZ&#OfmlNgpX{rIj4pjG?3nfnl%G&}oXHnv`QLOQ-NO>FP>eByUz+?GZGQhp^AZIxa
z`69nl`vO(tUtc#pXEwCYX)-16?c29cxHtJ7ImsRo4yjtUeH_*~L{`kLrW_&@zN5YU
zkbC+#xEbMbn^pI+!B$3mIiJW&+hDt6H?p#`fi4_8t59i_xB>u=%eG9fmz6#Bbf)P@
zuaTt?K!LEQ-cDh}ndcHoZIG`p9UC?-=P#Xal&=0(6S}u|xy*`!@VfKHY;~J@u32NW
zUQX^s@w5uDwOYZ*x=Ns?4vLyJUZqjM$C+M?0!jwcrek1JnG%a#X8P^{JQ>H_<P$OT
z&O^~dqPOr~+e)1TN!QHH%|AK3FP{yxuD}8WUg&)ed0QMQ+O9EG%Y}4{5A4NtH_oFg
z*d)`iv|w-zpD6pZ5Iu=hS!Hx)-#WWjqIP}vjfYq->O>nE@O)-U^}^=$Y%PA->A;hE
z6aKcDW_lAo@e4$+3F^i5+iRPTHNCpHxYBL1!q%NIoE&b!cMAJ#Rc{3A<vnP5X_=EF
ze2!gDzq&Rb-^&S!z^UC}Pyhu5sW<XY#yazCLO@S0|G95q(cTG?Vf$)YvOM)6<dFcq
zfoBy`z6SIx+5To0lf(hH>0&df{$+tNigUGeD;c=R(Vb>}`*bL|x_-q$y_iTNso~M_
zrqtxvw`yLnKIvn^$xOU)P1Vuo?OKh$p{O<7Pw{kuoR@CNMidGnYxS-1`5~AfRg8g=
zL@#6_ZDi@`B2&dX7bwj`@18RH0hv2q;)*TAdl^{$%xdI3loDt6f&H@Gs-LYSIVrT2
zyjK|a`0FAbaz(ktRP}INkV>!{N%`=40_TL@;q^Ob@XN(z^D&e|EMY*&x{w!8(li*X
z9c~^iu)Jx=S5@UQ{~gn2yz-g#xr}r%MEVqw(|gx{O$^U>$S@$JHw*zhxBY1*NCPk^
zZpzYH)w-PGK~YU!FO9VV5(s55JUob8T7kukBX+G%R=0EmvCu|_rzzx}=iJN1#Wh=_
z?wOPFG-E%9cm-l%790n#%4JLWSV76_2-uN;X*znt5I+ic>TcFt0Av@xOE*1FHXbsD
zBo(oaV^}*O<1!gJFz3j;*i8fbmP=&4!@^#xbtC|eH(bBh06{REmY$_TXoSO08}l{g
zXb53BEb}{VikMaf_&Sr{IvrbOH=~G}5!X5kgVJIHgCL``UjxEMa784%3^|M^+)12Q
zfc;Q$BXJD8_6(&1XT;X;l;>>I58<_0>M@Hvo|LsvBoTWzTevnm_FgvkF1x|sc2{-k
zTgMRPmby)M<K@OsV(cjz@6=7uIlm@vva;?J&c*?J>EP>g4>c5Vhkk8}llN*CnFNkH
z0N(4JudDa(7(d9%DF_NTcgsJI1HgFr$3#a+BaSm?*9<)0&#`9d1^$1TPzEf`*HKs6
z`aoQPG2)ah4+|Sb7eHp9L8s`%C}_I|yTL6zw}|6aK5N;Vw;<9aPjkN!eB_Foo0}B&
zpt_7mF~Gx6V2y>y<Krq&n3-F3hs^mcB86%Mj8|*(EHyPX%RQ(-YaCv%hF3lJrpf(;
z3wVsZYl)DF=oMJ#<vbqx{Oz@AkaC=LB8N3D`?ehSTC-2c$vF43WHK4ZA7#Kgp(yF9
z*;t)l_b^7}+n~A7ck0y;UYEI=lcB&+<V}H33dMR%nb(kl<zpdzNScz8k_rJ*_oPJM
zV+C7)1H8<yu11Mx7D?Rx9SRJ$W?W(W$uAS8!!*^D36nsjMJ?E+?ssxAg7xV2+}v1I
zD4>wZe9rxF-#ZEffy?Na>m@)A6y0bINsmI=`!b{Xw_QoW#%1oSAGinN%CPe<6&RI|
zdaev1-bFbivNPG|sOzaW64plL6PjKsvW|yJjUvqJH>RD+^=IB9*#50-eOfj0DdH|Z
z?dHDPHCyHdo;u~$F3m<8tnL=54YP~V4_eGHpkAL`yU8fgZ?AbV5MZobj`QsBT}ZB!
zLvVQkGMg);nj>b>H=0rI!(k7MCGBL*%rb>vOnh@pNuJ+XcAZl0HCHXaDbjCDhBSN{
zNYroOAJ{wD#ABDAt+Cgv88+HTm_w?8?_xM(^bcp%K}edr@A`~*?_gy6K!t>%RCyh^
zKGsD8U^uM1KOp+E_uKhL=H{W04@1^?7m~NWZ#E>pL9WIDpuElv%D~<-W_0uP*pWLu
zJ^kdJc}h9j2{pik-DqcAe#~eAS@tw9P`B%gVRlM|`T1gRWL#|53?hwO$=;R(0wFZU
zu{U+_BPO~^RWgjXvb+fcnX}vXH)ek9p=-G&m3|A^5NDuB<I^fV$vuu-qF_;foJKHL
zIHNP79_vM_4*~U9H24Il$A382od@a>m+@s}+~3yPP8A;;p3cpGWCqAg2r}otuuGs?
z)7_3VZH30dc4{2&mx1#1_U_kBqr3NE*VotkM&)!C*u;;*iiw6SmPV7T4j1a^xd11R
zd;H@0f!FBf6*M^ZJIeMyY<ph`IoIAz3Sf=Xda~gDW<%pP?uOEuM(0}~*aO5urIMUc
zfpEzER?2DX<$&J~`aP0&nfq1*b(%e8dwRMcO(8)VBT#gd{J5i|qY{NS=LT~l(YpkH
zp^{Um;um6&o`;2GPdL_djVuZ7!{4(W`9pvgf-Zv0%#caIo@511|AntFR3vf+4;=Rp
z6Bj>h5WHMxylHzwJ|pKmUnSUg0l|s`VGu>d4RFTXojR*-w6SJ0x%oFC?YS)|HT<P(
zUa+8>XBuAHYv7$;&I?p`-%u746Ps;|+dS7Ow?6p`0Z8Y3n@&A5Orc$I-%I&=&4Agn
z(}BD7ru;RqW_nXT@d!_4!_H60a&ZM}xDxK^fIfKHmzJviH0G@(*VWWKh$sN}xzISy
zoT*^Xg~U5lh6!f^D?jFRmgz{Jk@h^~2_rub3cf0nPjMWJ_hIba1ai;q(-d%DNlA;G
z9t$nA;F&8~q0Aup?WMw=EK!NrDOgM!z?_xyP4e9GE1#H5fYn9bJtZ?U5Xu*?&)eO{
zL4fkV<bN0)W8CiG@6`J+c?F*D5K6Dz$2H^pz(H14yf~N$p!<Y+EGL*?K%2U}EUFr=
zjLOrF0OJr<j|y`(z#3Kq?ZZC*y}=){93}847Wl<Z5r9l9t&wGinq=m$MgulD{-e&W
zxtvJ+Y0stHxJuC`nS+srj(XAdt;*R@e^CTuIVUDoNpz!dnMK=NK5bBR2I^8Ipl2Kr
z;JlYQGVCv`=EeIM<u<_TGp_a`M4}7)v8!8S^!Zu9xsjN%41V;Qcd{D1RP&;^4G5$?
z=T&a4wuBpcc*TGpSdA>;s&q^2A0n#7&(Nt~Y<zs&1U(1JTUm4rm<4WT_#$Fq%tcS9
z!Rb#eK!oXJN)nX(ioS)Yn)Kw{qi40Kj**g{?hiD1)eR*s7BFxc2b3xTQ1rNoHHwkT
zS{CC}GRFnDkuLrTIO5stMjHb=J3DoY9^Z)uJ{i3mdk<+8<n7|t4NmJ9oJPz1`plhQ
zZ_J-oqABh3qGf5An!>`m!_ox;t<5jDTBBYCX2=3hbV4nfE!V6mNZ5m{nhg%)wS+bC
zLuB}Dp0L&<J%j4nVtm?n$Q4vFPbgoWX&Yy_TLrew0o;!|TJX1G<_X!^HqA>;{SG>~
zq5amrzLB1~Da%aCXE!&#os?HD-)Rd}O*H`fsXaPBFhu3xw|mdo>=M2ZPH<-EAQF#u
z0Y~+6O2X67aczM-8&QbEWaNuTAw(Y89t>D*&&?eS)Lir_P$Os+BaRxsi-bTqyz?Ce
zcqmDdpqLlr>&v|{xLd(!`;%ITi*jo%!Bwct51_<62QkUd(zkp6TA;&l-4jas4IdFJ
zixyuy{buDzq%mEEfKpX|-^i?Ea_#vQd~xdT!v|+E!XA7_frxovX&DIF8=P)m3c&J;
zgiHP=-|OGZRtkHHc+^8E&|O%(xb58`3oOHJ_s9E<7}(4ZTd@N4g@OG#QVYyZ7}I)>
zbTI_*5d;|6xT8Pqje3D1Af!H*sfDxEh2oLDw{hzbj_An}=jk11vU-fRU0Cfd+5S;-
zo=WkOmz(*GsbZ>d;3#++$}o^TFCd01LE4Y_YMYPSc30f-;W}K+?d6Vx<T%~Fn8D&b
z{f2&;fm5_W5gbvUoR2?l3m4kSu<NedP6pCb^FKu%fBoY>p!WDL3r0G0O1v{rc?6?+
zs(5W}4TT0pMZhK%{=#LtLw;!k5FCIS1KJ!w`LjJbnpEUT78iy0J3)oUk5`%B;D&=a
z6ybp!^Yzs&b+oj1bi7%VFy0A|dGMqfkg;0?Mf&4Q9hq5KLhrA>Il#;eM$^*UdkbCQ
zroJT$WTB9VXWYt9YaP+TD~F!A1nLz<MaaeXwzRcr!eRPAtU}2f^5YVR2~_0&%%WXr
zAjGO~ReVoT5h_2`@N>AAMS^o*TYo<ngpt(8VjWF3P2F!{55gw7q^Jmqo4tdBHr!po
zdCp}EPEn=LNB*g5od5Fs`FAxzS{|6ar+h#{QXvc!#|nv?#)f=fB!2SVEac>JjPe^Z
z&H!(W$a5eC0o_PK+IAwSTA;G%FM!464AOvjM7#eQBB^Zvc`JE%XyYx=vA0FFwUtLf
zabpTt@`kZ7H`>~!knaaVGCMXs9R$*c6ILbU_bQS9K*wJ{t9@`L%b@t|;nTXn?V$3U
zX>Z;`vIqD#pxK#`QUX(p)GG|9iqlqK<wFFxtXT2m$>{4pP17Y#TIp&3a1P~tQR&aB
zq*wvfN28%f=x~Or%i0DB@c_I4Xak`SXPy0eEVu&hjr7~@qrMOkou|x=IZ)YaGN(?6
zCF>CS)I0k}fX(?0D;@}fKc;V6FlSQ;rL*~1kIVtblhKcV#X&O0X>SBIXG3@DgfV5g
z3@{O<Yc*3G@B-PM<@5nk?B-GZH8%?~B|EvPI^wTy3bUIQm%Bd%1PfAS3l^5UTL(<B
zy@hY^k*PyzexlCOQc^rTCX3@8=wgCF;6x>7D-N1|{{6?6mKJ7|Es)?={U@;Ha!6KF
z1yNIW3<vRY9goFe?rFuuuta?^=TzT1v#M9HtcTnmmw|8KnoA3-=$c#Kz;E8C@eF2y
zGxha#m*YlAx;{=`9*+ek=zdcy*F+aK7}cO{pw3=_Bs1GaJ7ABZ4OG5-En3nhcO~rI
zEn|{%Lir!hI7yz*#{Bh-_Il41(zSd+lC>Lwz;F0#N6~m%I=|uP6m7zsED_d5XNpkY
zu(^*2+ZWSj_r0E6*Z?%<@cIDFQwAO!fyrWntN}-B&-o}4)E(!&oAPZ(YFk*O89TbV
z5My&}7$f@H7+}{P9W5%9;Gk3>D=Rzud9Scm(c5te0GugUuZKnYprq)q+E?WduN^6m
ze0^Ds-9_-1rACmz=>O_;c6d(swDvqo&rASJ1Y|YD9qp3nG>M0;Ne@8U=IaYVMG-vt
zGl4X#hK2^jkTEl(l>>SeZmQq5*ueFyIwY5<eDRq@Bv$K-c-7y1Ohs?Lc_PpY$UPCO
zWkIfyQcH>r)N8rY9`PZ_kL*!31rD#nIx0|FjrkY)He*QpRr?2AU|^t#$Jzo!wyRG!
z7u1$GI5?`4gpd_`+ot(>OYjUs4GwNF%Bm!FU>&L>jlRC!P-SSto<;{T+|}#&0f!>&
z)z@c!nTG9+K$QjLKRiYyazrSa3?me#sQ8KL1KlgZ@zJ%t&CNf-+Sx=yS-@s0zpE<0
z%cxX23c-X~U{g!BchHXwGlFw7GeeSY=ni<yAJN&Kuve;~oX-L^;TLa2&8h&ga-d=t
zM)e1DKd0WL?QuTFgCs`NeZ?YBWl@Qw@A2z5we27<!++ilf&U#b?%(yH{}El~Ki`x8
z>n{FtO4tAI-pIIs;e}2BGTJ4-hk%C>c%4<%C20f<`WQvzx~68RngoEH5MGvy_iG(p
zH1oEQx{-u}PO}#y?WN@t6BB`a_d4BNvNAI}229^k*wkDWjjF)O9E)qx`S5le)KzOS
z?`1fb&%A!5dvq;mC`^YUf{Blh9~8%o7MVTXPP~I~6u`uEfQe~dfh5qzWo{ld1?o6l
z=uU2HU!MW_fVjZ^{rg**o3E44igP$PI8@DuXlZIDmREN}_4o$*J-E5;Z$!fCMt&bZ
zlu}@MH6I^4+XxQSwl9}&8|6%<L2*v&@h}4q4-XLfoaf;IhHM!4tPDVp)*ysnW(GWX
zP#8D!>$CJ!&(M?VYVuS1`Hw)WQ<nik#Qslu|E~}zX7^Qe8PK+9AvD|97wx%%v+6H_
zA{!QN29*y$S964!d1`7Z8-Bh=r@~odfAw0BTU94WKU;IJfa>DUNYF4;WM+Ev+<`KQ
z|AMsp|2u>K=PKp@wVeM?8xQ{Z%SlgllA(w|mtbEB;XQHn^-rkkCt!F0!HEksT9zN7
zivd+kfU@MGgGZJudTR16FKy|-ey9wY$pA%zG}+oE^c2B6C#BZgslUWwHXQ4I97LTT
zkp5f1kdb~yJ*|5m*U>Kk_tCi~C}yfe(leOrhqYN}0J7t=?a8f@NQ9G`n%X*oKE@Ds
zO`H1l7NA7;p}oewNbL^QlsM)F5|qvSkj8;Z?1I845;Z<h;fw_Gs+9~C0zjZCx5c6&
z-@aw1%I<QFs~G@zrW~RL?zzkDYAP0+)=*#6UK%_xJ|4h#@237bwy7#`$TaZ}XKq()
z@aeT0`N)^*2-4AAn)~aXl47$voTA7a-$w35oi9q0nkxgL1uAMF29&vpF1bL26P1Y6
z5|x1xM9E<nvx`EJ{suxi$b~~*E&|Y4B{Ey@4M>$Rs@)kDAitnHe1O{E%)^CDb0Iaf
z-p8!~>C&2808$0C9=Es&z%Q}5xVZJ6g*eE=f8T+;eE{6hNRgSv`RN|54ugatNbpcv
zbc_h9zbf#idSqMr`qgIfHx5oghsa)`qMuRb2yAaf%J+OAnX0|0U0#cB1E97t`SN^!
z;#-=t7AQ<T=TKY#X&p;e%9^E&^fBcSx}z5Bz=Ar5x^~sgtrW{2t|t_!S}xbt({lv!
z3OKZ6ann`9$;s&tR^TQ?Q6rLkT$2*~2PuFju;FB#qv<yC7PyBG9$YD}vWn941lE*X
zIBFqUhh4S_wmjjX{YCu!vW>bJE_OBxzQRXAE{l={SMFsv@g+F_GXZ{li+gA?|8^qC
z6{Qd-n&2<Qz9^=Sv}N7qSo|)W*GO$R{c((qjXxwJ`9I2n#Iy2N-Hp70e}m%1^jL;*
zIq}n@H~D#aNzzgfc;wFU=K?EluapeBUa%lU#sD->-9e0vJ!-nbhNMtnvR6VB;S4~0
zo*M+=>eG+e_3(D~Za3oIh}02^wCnrgop#4%%%iWZv-5jVay{&;>yP_L3W;;$@UxB%
z?eJ>ZD36bBkojLytZ*AxCtjN-to&FDjLYx}DHvK<P<1k!6eJy_=RtpgBiC8BQ7$XQ
z+!@?QPX^w-)w)FANU)t^q2WOi=?x%W16|G?ct?BdGury(?X{L9F&8B_%dPxi_Wk&d
zt$#iGvs)@9t!NkJHYo0OD!^QI$!F=GRcZX6&g1-lg#J5phLz)-hhMBfL&Z^~q(lOo
z7w7H1D+0%NT!kJ;zGj5%#sOD88%JA>V`fIlsFV<Xq4mi+D{xE6(Y7j|XxHAJ<3k0)
z?uW@SDt|ca4*u2S?9)Z0Al;n1%1Gg`1p4$R>o+rWvz3cDn6p9m>fAqJ#0t#<7@^(B
zcHTV-ml>qOt$@<czWL(LWsgzm0jNNM;NVP2X=x&GPRMzKb`eC7!{DU&9M02iPCNbE
zHcBf-wT*09(DQz<4DA8L7a+k&A`qP?uDuO=UdGG}DtOD(I{H(k+&a$W%nfeez65Co
zLDs1a()hD#vWx90nbfYfvbk{V)nu>b(t+?2PIM9PH0?R>LSQ=wXf&vbGBYzHMb9T1
zAbm_*U4)>(-|q!v=56G~36M^Ct$g7I>Iq5N9zbPWN)~*$#vfrTU*+fwS~c<l)U!g=
zj2$|(nVGYpR>GQR47`ez$IPeQk$<~7B<{uJ1z6(4>N2y6sG@^f-;g>ap{%Uz9koi-
z?HCVnE}}5(uMf%FhYp=bLJ;VRa)FiSp}!?0mROgYdlhWax(Q{TU|{$w-Js0=w~L87
zb3i8%1l2$YM^nb?8u}bMMlK^Kx(4u|=|KWecrmI%#Yuy^yXfzL&7h`fFwmLo(+SOe
z<&{v};sT>VrKklCBJg*WP#=JW=*-X?IYsZbgtvWsFwi$8b(IEfp|1_@y^$D9E^$?L
zintlE?MLn_Jii}*ap6F-<U5nEAG_Ju6qRtCyMEve2x>g8a{C7yC$q>qi>FWbG=BVv
z*W3H_lV5+0xR|4?^@GAL#h))6xcaq~yr8j2eWl#<OAMwhf8o5xfLF}4l*4!`2&$W0
zyd1{0PCRGiD(QEq3gXgF^P$_{6?}qm0^K^i=T5C1!J&E@Q0TymA{}x_|CW)K3%GuC
zTOEm10#Kni>8@KUuuT8V7{y@g!#~HbDSj+no$Lp9zek5ow7leGVRF{Vyrr${+2lsl
z{G>u(vJi|;*PtQP&LBt$ZWgXqxAO3S#mXycYcC(Mh0u?<WRO1Vtqg!FYanVXBCmxT
z?Zo+T+Flu&+tYtU#6&T;z-e=Jbou?3nR;S|BOmy7ANrx`jp)heOx#9f4f@3nB<h&W
z$Wa&C^bHg4w5Qy7RW|~!1G?{CHQX=7Tb~F;?Wf(KRW)gTcM;D=2UhQl#}|*Y6NRE0
z4ug_7@$%yRdHT65l(5^0)3}9J)k-2S{U`mWTtAjB6Wv(dLh0YzC#r9JWvBmBR%b!f
zSz-d@k%*c?T0_v<_@S+s&V6^H5mijnLg+_oV0gDt5IqJWx!X7h$Cz#z`Y&!g@m_|K
zsNb<5Ngn8%GF};gO3x9r|Bwc5eTaV0T4us-98z!m(kDCUy~6}HOEz4EW&O_9uki`A
zuf0e-_jwM=l*jw%MtJHKd`LCoG~el9&ht6lQS?_lNIN7u$R%a};Ldq?a<{E#-iU)E
zQ3uQ&m#N<TO5)a?(UQluQINo`4mBKROE95peWdZhYJgCo3h*Wew5CGu5A3~!ZYH{+
zTu{_vb$g1%FWm~@kPt%McU6#9bJ8dvJzr^bDmz%s<z%q$$XVXAZ|WT><!Dt)>8tFm
z#SiBNDfcBXy&(#eJXb)IQr@-<`hZHIAJL_M4)^nXf!ebf7-|#8%w`&6qzk*FwgNxL
zB_`);u=dGobenA6ANhcO;FUkyo`3y=o;&bo+w=8Hv{(6{aySW8ztid_Xyt?bbg#_<
zx&-1Qq3-V4XCr`gwB)MG($dmY+#)ZEM+u&0I&wDYN%#Vjwzk*m<OguBfI0bfudO+7
zeF5qN3g87#I+BdLmOwx%{yg&2cah_vH4i9f$4Z(wWt<-)ymm9x({T9>&=-JajXynV
zZNm9XDJyuLq3~g|Ojkbswqr_EwH{}-?ss%%bER572nb=rGB0B$MDqh1-lDCo&Eoh2
zR64?&vazXIn|1o?Zjnat(>rF(Jv|Sr^-bUjo{fNt=Ie+pOU4OmPEUpiF5v8&tMT~x
zRos%$Qwwo@wl8hXM0%M-^-3VHti`Rz7j6NM^2^U-larGjFV0TtcDV$LL>H<mc#TO>
zl)ucAC+gj5)8*^kO735hEwg5x0E)OJQOUaS6{G{G3Vk!n0Jbvp?}oho<^g$5xKR99
zT6+54sezW3SGA+vT^4fE$0F+<QqDej^oajzY-gta$w9$vK$UD~ZeM`XT0y~OU^1Qw
zs1yQ#{QT)2d;^6zAVuu!?&sdn(P3qdV*D03gwX*>>YJ-4=HOZG?|nGNv}4!4Q&+!>
zTlKMJW@fTvo$5#8()n0eH?4(V{7&wt#!ukPKpOO2_PF@t!H>TV7D3;uQOxAmphX`S
zb?dSk%>{2KkT^-_6H#La3K>xK7q}eA&Vstjup#uykoV?$6ZxD15O`IA@b3us>Q|*<
z$SHh-LA)tvNVmDM-~4vsn4_{xooI`(HGgUW8pOJwn5e)cdq^JoTlw|2621hja}XXR
zXFl%OTPF{lP69gg^zp)HEt$b7*ZzJbZjZbt;dBe;Rju4X%ql-L!H%PUFO41EX5BS0
zT?Y9b_V#i5&uTRAByCq{`kZQ)Lgi9OV1ye%e)O4EDnxg7A3R`xAPa>UU%kvB@9B=j
z1eIIR<mY^T&lk_Z%8S71fxh6#4Q=h&Eq{Cf?X%6n-SWO*P*Yi<4fjc06lbML2<$cx
zz?C3z$*$YlXn1fTv>7Ja^}n`Ym*UoM{@Q{p)C2noAx)zQ?C|i6PfQ#OtqGfmr#lXf
z)FiW+Ed4?uROn-qcC^sa(NTixEE+KY)(u+36X=Pnq3)roM_=y?kHSw6f)jFshL<H@
zyCzu)R1YjRu<|Fc3K_6L&%Dtjh!>E|C`s!c{Z^80DhstdhUo)UH7Db6l{7Ud7)cKM
z9^(nEsX##;HDH5u3+ddEGX+5SLft*#(8$(@HClEMkr)6#%FUJa0MSO@iL6qgU5uPX
zm99Wf&H@ZMZ-tw!g64b(MW(|QFIw8$wI=`Y|EXh<4~hW)puCs|)hkHfqpXSieSyA^
zkNYCIy>K+104XEn$okn^K<)~1`|{9Qv$qcQvtK=t+rNkfRpsY7c)6OBTkl9C9o#fb
z8Q4<?<^GS1U8p0d6i*-az(CMh@GgXX@gch5zLUX)4r3KiHV8UyA<I<l1@C2$>G7S$
zLgS>*1l9;&@<GP-+gFn<4EORD7|ltwXkFb+Xw5D9vRJzL;a1l=eevlA1!|r8&vTbp
z4G%Fv`B%Iv2D;eYL844qDx<HMg)ywy4o1nJ%N8)gESqvrog;nW-hA8#oebFzS`t<k
zv0hwAN)r9}^N%)2o7Ncx!T?SXVEkp8X{y;RsL>gTRX&ffqAXqXetq}%HPnDadTXA=
zcZrXFF?bqLC<Nv7SfI`l5x1pDHhIqt@h+4{vLZ<mYIjLXR}B%P?+7pj%?>8_!5v6@
zqzetF$caTjjT(C8kW{A|8vRTLKmLYshp`}lkhKKr9_H@Y%@_bdzFEwXZnJ(Vynlq5
zcMB@EyC|S4-BXABQEv(TmNqW6G!1$zcIcqC4b;32Hq$+{26VDe1`V`%ETvnprX4~b
z%6eHMkY<o8%M0XUED;pYVgCJ1aJ$cZ`aFjohbv3|QG3egIq)i4e>Vc8hWkAC@)rfi
zqRn>~pYEwsm#5nQ-ITyLtkqSeJK|Qao@kr$pg%-+8Q2(-W8ZNhRRu~Ll!J@-(1#57
zZ|2pa#BHc+lykR+v5PhU-T0s9pxnCo_q#*gU7zO=mW2BU1j!m9zmy&P_a`Lu^?{&c
z5xRw-241<?Wy}q-AA*C|%v0_PqzPkYhRB7aQn>CvHr!1x9{_G>*X;E|+V@}^QWd>3
zr5dRPS`sdafEZVDZ7dOq;`uV1>I4fb20uOZ|07F#q#bFJ2<ll|dNmOV7a#?>{prcd
zLb5!*VG)a)t3^9i^#+;(!*Jmd3w0l{VRJQ(c0Lxm%>}b+)*Vp_h#J#<fg*bMzr9G~
zV86x6%#aPFK1!hWz(Hr!EHEsWU>F6GETL@hbG|EmeaDJJcHyE><@v*%FDB4HG2$$V
zF6ZqTfA>%8$@_zX{_zj`;s1hK{utKs`yazvc>hf3<NtMvf9hJKjH|F-Kb@|F4Fb^!
zGCw3r3q*P{*l#A^zP=K%8Lp6A8GI^W$V0cL8yKEJ)CTPi{mMP#G^CaRsg?{HKf)$q
zWpMS)+2i1=cJkBl>!~uWA8>$bs)D(>k>(rO2?UQr5c$wp8|Z`gP1Q`U0xwTT9T2PV
zts`_teCQH?)+gx)&F@fK5<Bc*f5>SC;mmi>zCnt&SyFX%`Q}79Bzg$A(5cJA=my_O
zYB0}Ce?|Vp*B9E95NEMRXNz;@q{3{P5!+`Y0LAv)q+jQ{4Ezi=ph99b)*LT#`=j??
zN2jj5%Aa}&K@;u~uEPp5KEOqRG-Cxi0(++{L9V860J5%2nONbk2v|e%$Od?LXFAy!
zU`L+Qk-ND)pXb13@#`wnn)C6Ho};WEVQK9SW4UysHW?ppr}PS>O~{ExHL!oFyKNU`
zcJ|0r!{OFu?viQIzoTyv9EdJhJbZ`$#MRaPz#!|pyG0L+QhLg?3NJ(YiDsGH%)G?{
z>I)H*3STaw83;9ze89@u4H~z@*Pdp<t+mTnm+{ged>e7(Ub4PXkA<WE4mXuLx!jFB
z2}4Y#e79LdBm&C%URMZ!k^_cD?h$kI+m}9qHU`CPB%EEDC6RLDs1_JiSjyTl&A2r!
z3;=IXG2mMPz!6^7dP_iSONWjz7cANf<m5n<`k}JRrXabv_<RtM99GtVg0o?kl1W7G
zNq|PIWo5`PKr#YVLh^Eu6YdxkF{PzVVb%vr)(Psa{p?yRiVmO(det;4U~r>E?A*CS
zp3Sy^%v*>=qanZ6Ojsm#sLS#s02+hg3)j)l($e^!?>hool)tKtVV(-l_q~9nKqdmS
zaa1A|xI?N)b7iOZPxU(xbKz!THcsl}OAE&zj**`3W)h0-ctF&2H5`>S@5%~<#@RhO
zVOH=RNK||ws{^vxJt{ZB@KuSolU>m|sKF~>$_*0L>Ki1RD#3l{^_zD9U6sRjZ;8+F
z3kB8@8EwXUS_^Tcqo;>_A-ST&$c;a;j!ZiK9xtHk78$wpUVs{pYi%YPjz0S?i!)?j
zQ|NLDa#1HcSQ=LkVY(cMruznZ8&Agl*eup33xyXF=z|@v(Xsf?`5Jb+tif@oXO-~7
zs1%k&rQjeSe-w-8HPobAs7Am(9mIM5EXd2x4$-wTFI`h5pDx1-3k2;mkku5=<x<q$
zTUa~|(iRRhIHy>JzL!qDft_tQHTG+r&{_KRk}d%|AFtq31^ukXfAGq+{48BtW4gwI
z|K-R3seb&gWaQuQ0so4u|C<~6AF>wOhUD!b?@OdSu5~V+zjyWxVrzh^Q92RIcUlMX
zN4YrcZ85Tr_F`lcV{T7|oRLY7MZpIHZEXx*HN%_+6iwV;u4Czqg*yA%Qx|m?2TO{D
zcsgFSo~_K|R-z9CD<EE!J32cr1L=#Y8<PNUs4<Yd_VyQr=UOGddt$P)vw=Vn0C0;)
z9rD?=!13`%rp`z1(F4?i&zy?BTh#K5<HHHkci9m!U?Ef@o3XE#Ev|heC|KhcZ-U&V
z1ko}9z&N3DBhVOBaf$^{E6{XY@VO&t0EnTzaZ8!dw>=w|5eo(8aG_tsP_hYUG6&oY
zVi=IZa!6PO(0y!}6(9!@Kn1?OV`F2!z}D*&B`k12%mrA0JUKYJzk71fNgJ-r^x%Ae
z@!?h{;F7T%z{(6gO@L2s6)9B;;oknDYO1ONIUuUcE`EP{WSccpeqo^wkY*E7W6*d1
z=S%34BNB<z7kr+a!_i8N&c1`vAxl%L@Wfij8B=E$;KDxZ{G2agNM;%dFIZ|Eu}yVT
zTTt721JK&T5&?vlMvKo{PS!k>7(4%9Trd1v9`ApMt^Nzz|NO5Uh2g(9wxyM{?mR?*
z$t3ie7Mcf$AS9cdyE9VnqKQIZ@8^aK(TV+c4>VY2<Un9zGxUrV5VF7q<&9bF3#7eA
z9Wg7Ng=H*25wm3cM9&_aHSAtIhv_X<Fx`U(L~0;8VMn@`K4710+OA1dqM?eYr5}U{
zC9U_ia+Pb3wi7`xE)PJJgr%)vNuqJ9SKGU~z+t~Yc{A!5hC7;tZt*H0V+9QPw^FGj
zNJmEJZGgCg^aAL&f{rO*&`}o_aI4T0Sa*wqeqbsbXb9Csi@qWe9v-NH^-f7CaXDxy
zD#`#jyO&N!bnn76W{;U$m#yAcR73<Jsu3BQp^>B@@P^jmQo<wXGXclv<fbnk6_}Q$
zb$3|bdEHKhWH(ut=i~yO74m$n{gDOcht4#JI)V{xGtuCurnp`O$%XOuMr9$Fui!>7
z%aH|w+Hk!HkSMS!ZOzD=O_}c-xCIapDZnd?f9;#z$9Cpt9v<+n3DAigb#VqL&C&*L
zQ<R0UEDv~j38zmHK)RCvHHFrD3miQb;>6WPr<)}Ko+F5h#i+hxQYNfhfArq=jLL=4
z0c}Z%TzlmIA@)E>_#^fRvTU<PRlW*Gr)I+){RTpX4c@Hpu%$q@2mqm7`jySds5dIF
zt$Lg973GimhIsNri!w%QCwO;z>j=_;>)6e4tV#WAk$xgHN|v&G{&ubgayxMtiKd^&
zf`L&s2brThfBpbtu^@mMgXs)Sh(2^@S{5@DHfw8X8A`u%{3fjBN^>ilkt@_hs%GZ8
zaZLedo<}|v!Qo1Rh5+_MArG`BC2y9);vg`?mq?HME{i@M_q#~MSd~j3rSE=y2_<uA
zCn+p$1p1A~qz&rWxlX8+OcLtz1upBg;Q~(CwPoogB~lQ{;Q+PUP~$=o))6Q--){Tc
ztI%n#UG#Rr910Vh^)MTyDyXmmQlq`bkq^NVps0gV7<hnZ*x&P^OabHGP?-V(_DZd(
zl9G=IZXbFhhqI2Q;8m?>20z_^5(P6eq(3a);oaWbc0kXZ2#<J!4(M@EDu#wpd=Eke
zWV)U+%rk0K7M`_g<}9iL{kCKGWss%9yb<GaqZA_(lsZXRT^+%h&A%=d(6G5Qj1qhv
z9;7vBc-kyM1k#fSjg`#l*oij5b(PeAI7dNs){Gq}%?yIW_l77|DCl#0*!PUnx8W(w
z7TEwCH1xPYAD(`H8Pr6afzXGct~<C_F6fzW<u2iHATx95iEDmWPoN1F0noC-lC@d{
z?G$K)D!kfbP%bzK9j-dh1n5^k6{NNC^;X4u?py0<3Mx7Z_2wX+PS9$=x|});&G0JE
z(zecD){f49OerV;+Cz>5xe)6NUF;+n6JxiJTTTW|TS0G;C#vCQ3B8!$ouI7!5%d*c
zaFwVj5J*}_j4GXHJC)jQ@RUCL_+2^kR+HO*ue1HDu=t+`B-+p(mjt^970qC90KJ`p
zr<Xv`T;*JU+b|VVHv$|9a%%9iy<X<?t>e9&YtCc`M@L{nPDR$S^p@u4YC???xX3Ml
z*IT-8%cF?${2CQ`u}h@ywT3Hz&yIXN*TD!Ve7OK-1AH9(kM(-nF;`AvOG`X{;6&&^
z9|yS*8fOM7!1;sfn43DLgxZJFEiO_&LZS}r4>Z{NLjkxH!BXh5XGYzL@MACp1US)F
zL7mDlUjU30O|o!?(F(>uE=&Q59EiHKd3ca65NR3FZa^(lYEtARsG1-mcWr{sXh;B?
z<~-jZkqBES7DPNMk)f`r!P6AFFqxTA2a7YvR}6ceXiUq~=H*GK&umMxai;7#J1WAX
z(k>4V>dHh$h^_=rT#e@b`TC*=h$b^2FMx&@f{tYq;4>m$Ky^-k1OuB(XqGXs)i4gV
zsyo{hok14(JsUD65~2{Qi=RInRisF_<o^sTJqr~EV=_-l28y1jQwkbvVE&>hP=4rs
zkZ#S_HwB9ghWe@wxFyuzZvwmx+{(9CN|%uz0`CJe0r-qyf(0zw*t@3*APW7=f+0XH
z_XrBQzP`|Da}oj|v_7_40xLMX(54QpZiuU_@MT8Vf$@KbfaQVcX9`X{T<GLt#A&?)
zsCww@`|6m|WvIQO>%eT*O5n<17#-p`Orbyl8hLU7<PXlER|5Zmif>Tkc?Xx*2VQM;
zeiW_)PR|5%80b2l>x2R1G8GjAxTM9?(xTgRRM24C(=dDl92bo6KvW>Q6jFqM91329
zf)8ULJV5eimPNrochj8BR_XNroB+&e&QU-9J7DMDfFn#)L_@1Ztckc4Xb(FG`X(S3
z$JxX!bUE$nMQlJV3yI#8IJY$jNKj)wdQejsf*=CHhV8uVU6?p4g6=y<HrUp}X?1R7
zwpoFx5+-t(!oQ(C$*lqiKh%FGO%<p^3yMaj!M5JVDS5^Un#&D6<tjBMmm0SSHD}Pb
zm_q$|7TGZpcKL97Ivd#59GA|xr?cLUCLX}pHRALVD*T~$?Ya?No7#=_5$|`vu=%gK
zMIBbKu3~e|(pq<QG%}WPyb=nO8H|YyHr^O!MRU(}%RN2NP!D82RWDA)vVoe|38Q*7
z%p|a-QgV8lX>HgbOI~?m<3lvRm{Z?IcNL9D-fP!TR#N^I(lqzVqcI^+AQ~Np2Dt#h
z2_2SSe3*jK{52@c>vUQoAz2`d<+iXZ1)kLgD&7{0Rl11!UTcdZT3th=G@s`Cg;W3F
z)8<&bUkdh*CMK*P1ZZhRLvpL}@hPv%p-rPmuIh&%Cl3$QRoP$=svA@6rP=TV{Ag1g
zH%xYuC|IL`OqUttOFiP0E`l7usEpU3eR8CDjfCq|`7$3XC{;VovcA~-zBEhA^oEyJ
zn@LZH$n#i%j<VR8F4kbKRy01g3<gwHfvOH*!>HVHG3uDC)78#dbPN#cv~luk>H2O<
zz4Ug}XXIvTapG+GGQVus<iz@3x70)W(D{MLdyr~J!&bF{X$Y4fdxlh;!v^YJ)o@bu
z!h+z5!yE{1H@zuWVG92X^fv+~vz6SZ?c)4lV}q4UqIy>g6nvo$rD6bE8NDm|1VS`_
z2i*8)DyTLBxaH;K7UG#Ip?U<noDaB%gv?AqRO&|bGK?Flgh^h^Fud3G5+S9K5Cfy7
z`(Vz^4MRgNWB{g<-Px$87RCl;!{}T<^1B_=f?#q<HJYk`LOU8Pq|_9DNTq`a*b-GB
z5M<_rY9s21tU#^vTtuv{$2gjYeo##^UP)|uC&pP8EN?nZBd9BCu~1y_y&;$BSh2?B
z1o=&w<K#>6w)fZkF{+Wsiy)mmT`T~e3mP@IvI&@AbO0)d%Ose|>I*?4y>;Zouh!LL
zCR|R-tR4@Ay5f=?JavBze=E&SbHldUHOQ5he+|8bYU5=<iKBOI<v@VZf%EVPwGt8%
zqXW*QK)Kv0pg%UM<(9JDLFBm!t^U(39w6m>X>DcI7zg7cR)LU?DN#?2RkAK9g_1Hl
z44se$)w{(po6=kGb~hpYXf%d4<yBOAUxkkI4OH`_%q{uFhk4|r!&*xXK%-7M$R*tJ
zW4IPm(ex|y6EwS<m|mS4W{W>+h{0cT(&jVv-|T&l(aHb|B!qj&N@InON+&g(gc<$x
zJA|}pd}#@ZK<Q_sZLZfD=(#T3MP?`w73L<?Wt`;V+07beKK)=r7_ZSN7W$!l=9u}t
zPVf}D_Z$3>4D`51G=!8D#c7ymKp0<wlIiD@hhfUYv?w79DknfTL%@Qya<d;;E?dSw
zTkFg+Ed8>mx+vpX+K<L?C|1D0z}9s2Y4|PW5{Np`_!oV5S0g^mqy(n5O)i`_+*P)<
z?|mu%3(EeKL#9_AF6Nv1<iWJwt=3iGtR@^|(3ChH9#Hn^6qLX?8ZM_?<@2MqROMTv
zJ`Z#8a?yFSULahf&qhIVA+m;RQW)vVfhE@M#ItCqAoOWh-HS9l90#)`OrZ;F7Fha-
z1rZ&r5f@^%d{0f@9k7~bm}}QmUwmU(2;m%(OQ;(ox;=QBuvii<Z5LCkAsbAzK=l;R
zg&byPK6v74H@Vuq6cu7n{p`tJAzujchD0@y@SK4#74>zk5UugWD|TSbyk!#aGy;CX
zv>`Wf0z@Hn#8Ysd6^-9eROEz#k@wQm%lYBmc-?3$Ht>4&ef3VS1(xZg<%Th62;dI|
z2--lnt^#yGg3*unc;uY<IwV8FsL#x2BCbGqglXgzFcFkKBV~g|jp!e1Nre7|^Ou8<
z_D@ld!jP6Ca3pRU&WV=;{ZKvsS@{4=A>4upg)Xnw8p@kjU|TMXWvgUQfupy^&0g-a
zZ@Y#ZiPy4|7b_&jvS}0G?)`nQZL5Jm>{#TP+M6Ol@PJ_`$aV1Wpk@FhT)rA7Ckw-_
zIKgW_+sw^Wr}FTimI2hj%L$X4p2b`-zFsS*$1hDtKI-!Al`~BFB!Oh}1+?W$q6s9&
zxL2>BHSt(#n^nOdeQ4EYsGZf7AfL}i?q~yBPsW0+x9FM0u<T_O3PAXQ-l9&Nk6l)T
z%o=sm!zoQ6%!;_L%%D>W7(N<jAr(bk;}?mX5N?%`zZ%80IK&%BgSSZkD;4zn05vZO
z9sy7eC?L)u@F)p29k+#x7qe}%xcE8@METbDZnI_{nO~(3ssV_ii~4b%F`j|zpow81
zC%W$=U9weMlJ%SfuOPT-1R+at<M^Sm#_x;+P+WtYOqyzrsq9@sS`+$w8c;0EDAzT|
zE0AEkhwD)LS`5&_H&?_egrNoJp2yM3zG(m;$4oSv=i$#wAd!P{kvf2KG?Ho-dKju<
zpB+FWYYGWyS{^q@b7qBUbHdUY`OzvpCspH5dZbMV$D_e)NQ(kW7lg&CU>qJh^vE2~
zbkNZnUc7=FuPy#CHT9ZuvSCkGuHD*rwgUSU45gZd!3>gCWvky;U^ISCr6r2TfL^Lm
z)YsN7d!Y9S1^gy{**{h{G=}^|nVpuNmNtyW<Dm(bXzm95(E|&#V5lDI4E7B0eq&|U
z2IiJlfx<86OR+L6^c3I7p9_t!94eiG7|Z%jf}H(WGg@R$hxQu?GsO@)VLA}fL*cVh
zk@~5?>y~Sm#2ukX0{P>+*96b?C>R+(LZ40)?{l=I?T*5~Ezri47}Kq|e?x3a9{emC
zAyEz8Im7V8&Inl{1t5}+_raeRumPA_0XvH{^Mz@^q!fw&(HpQqQsR_>a0R~gyV+9~
zagUJjYAxBz52orU!gw}_x#;hF0EDeZ@)R`Vodg5${7@)gJu<0VY#h7^up+G;d&$c}
zv(-#zd2v$LSkCcEI>^T{1nawyvdbaaIt>4uzZG`TI=D1-(jcq+%KXL|LDyEFP{~aI
zOx0gs9Ww>N0IJ`@xZt4ON1cEE-WbDyCjD55bD()Hh@AsAqjT!WhsxUG0!+JIL((LS
zUB@rLgsPm!C2KGO=crkX!%c(^5RKv2sSN}TroWH5w9Ub%FI4@7U;Y&Ot1kbmwkwTl
z`p%+Qr?pncrB;C|G6kekw1@~%mf)^IMOj(|frt=P6cEKAXn@wXj;LUPfCv&7)={A#
zix`0x1!PwiQN!ZKE<srWgpkaAXwR8`oipP{m*bz`_TIbi-us9WUnHdzmn!U}ZL#yH
z$bk@uo6MYg(fFvx5{InC6!XaewnA<ilGj{S!vLN~7DdDmeUXF5lKi9bvlYB8Yeh|D
zcN<`q*#x&2_J_*&V3}ougJt5Ih~oMPW<#@G9Ke%T#B-)1p3c*D=BV3UxwMBTUi+r)
zgqd^;We$b&#xu6DqFdhdJS`{)d~<#yv5aZ=GKgh~cSaRag)(#66QWlK$x4GJyj98f
zZ9<^jWZP5a!{7@lhLrcmt0%45E<N;RiGmsxAP`cy;o#sfVS9@uDyC-_Jhem6c+K{K
z*)u;o>2RfCL}p=%EU$HH<B&!*ZVQ#LOdqR}DuI+fSmd}DA2B;a$FZ~Q>F&fQTs&Je
zEQHJ!i{S{OqE{$83^&ES!ePWhA5gtYVNkiJ>9&v0A0I0Zb{dB#dR%Kc=m${f=Qem6
zr;5e`JJ+eB#6ta+dZ?Yfe!}2~dO(yW@%jTU(lXYHm<<hhWu}>&uWJ0LdrSFHz+kdb
z^LP9c-U->;SYdlYzdCp`UEL&sJVI&7z*L0Um&wMnDwI_ITINQOlU(AhFp|GhSLoBL
z4z^+1q3o{4*jHXTwx>VDuG*o5naMt~^t7~4FmabkJJTG0xxy$nY}{Hdhi6Ux3YVgv
z$o`zF`*)x)ESX3U)}w^fyh_Xj)BXnwopu-OR2H;=U5{r1*0rL$&adEJ2oVX{4}~qf
z9x1AJTmJ4*Sm27Z0%<q-MJ#|er8zBk^qlNJ`u}F&dDzxmV~BdCN6-4fWwY6<5S_K(
zns86>L*Ylnn+vNG9H_euJfoml1fQ+M^b~+r!q#ywBBh!P#UV!<Pf`hal-%Nlih6?X
zH6TzpCVX=yc|rQ7paY0eUBer{6h-<jE><aul1ekyJtMaN?2Insv$3V}+_B%MFlUkP
zY2`&jU1Bay<yfRJN}GMt<BsIXHL3>gY4z+^x2zaxMaV4#C-oIP&ipH3;I3hm-$z2x
z(pFhj>wO%LC%xkqz?$3Q4rp_NzIxu92pFv|pi%e|)p*!;UboFehK+#(Uy_S3SdLHx
zEtXwvNwK=d9ocfS_|Awgo+UU(6E&I$ibO2CDK<dq`W`MhKDaZniF-e4?*_l*p82DA
z?!sWGbS%1hpKilIXB8I`&OHL2<g^`|X9$lmHPpQ|-w%84-~V*ac&^Awp);K95zD{R
zI=C@IS})26P%?WquV2?FG0;rvic4xy$f$jiq{U7xnRTbp4oQ*wfU21&Hp{!fb5rTP
zL1+C?;Zuja54932TbH-8>{SpRZw!!Pf^NsYPim#LJaW+^^EQ2uOVxgfDVG15eYl3M
z-mJIttbqLkeJlniRGGvC<h7?Kt9=fqerznS?>Kvc9STP~?wI!C$HmD8F<WUS5>`SD
z*2Jyd$_9*sPi7Hycl|+WLQ48U6G4q~TAS|^ms3ZNk9}w7G?(&Zs<{?LJ7!jRzorDy
zYZzXar-{Ey%?(ODa_{g4zUH8^)pHaYXneLe%&!CGLntI1=6KEs#55Uq3`xb|VuU<}
zmIv`?+7(B(EaRWng<)e8i&em=eU_xP3yYQWxN%~!hGftc@pqynk*j{A>Jpi|N<jNz
z`b)ll_NLp1(X89?zVu#pnww2oB-9R+^_EcXO7CG-cJ_w*NlYUst5gi!w}us@I#;UO
zU$1vGm^wDC_2lAT5itlqC4*o>#cp?AJ@XQ9#5pnzr4cikj>iIO6Igf>$iR$n*rHg#
zw|t*>#mdy#MJALaQg0w5(pRW^LNSmmD@8<-F{&cp^;hUAi|1r?&ACZ5bsvl|n}BH0
z>L$LfOd%030jBfA<dMR`TiceT{1g&mH8o_-I;VAxpMIY8XrIP|lNJpsbLRMIKAy60
z@Q=-BH%=}o`Pgu+<BuEX_$_QIUi7KP{m-pF-#k}&N2<%xVvjL1m9H=FSnQNMJ{~Xj
zt<LYL?7AeBVVHu`<L1$GXx#G&d93q(E$+Tneb5gng(|=!pozCkF)iTdJjN~uhknR?
z+fi3pgga?VT4IANXXW#*c2@Ha2l=`Su#Gkdwy_Yfctxw1dY~+XcIz-KXBLf)MO4k!
z+~{i`E422LnL`*YP8SDwPk+r!TzRxKFMhnvE=^4uQC?nNWNU)V>;c^HKGVDi6ny~U
zxE&somf?<=B9Q;M`iBIQG~w8-0<Ioo$6&|Uy*;%tyxUJg6|mE>OxiApXSAL$0LE2?
zAz9}EVH=@VqxofZR}SUs4z=gI>&NL?Ac{Q;xG9;m55e31?lB*b)%YaU5cTZJ*t0>5
zV!WB@hdm&()TZ97*=S%nBUoBvji{op$jQg8$``+#J9n->ihlWkVH*N<#<HLtEEY>R
za2@KRUde%KVVx5%t5CEpTo5E*g&b2jeW3LzE=|Lg$qI8G<JjBhaCZt4H1^DBe$)!G
z9Dqh0Q&<&OnV-tJG;;+1A_jgPFMRe&QqRq2v;+C@>PrMmTR#TYkpj5|+fHFV*d^}?
z9WGhjSC^JqSgK;2CafOvb!6Y+c5X-3b^)f%hOrn7;Ti*P#H5^@@84#I86Q6@?(PxG
zZ|JpD{QZmZQTcDlLnZmH){do$Fmw4zBv=*5Dg8`-PskmV<h!%Y*(33+ne&&sZHDN?
z#>uH!a|pd94lKBE|LihBHkY9xxeCpM!$<-<uzEf9$w_0kda<2|-(TaWpP2Flxq;i5
zq?cTj4FU!`DZfG%)b4yLtIu;rbm$4MM^3!@nBGtoeGPb6R=}2+OnXs%%v6P@im+s0
zLy0MR$L?G&9L_R-BO8`T&V-6>NYfU7qQ8vNEl9Fhz(sIyj-dS63xI~qhDnRyY`&^*
zo8LmsPdw=Cjj*Q=GJ7p9nUy^Baq>?)RqzsI{W5se4?w-}8tDwpoT#g>k9=|OR5Ea(
zX7yB;8sj5p#Wju1PB$kOPEwcFP&XXP@=;SL%swjA>ppk9szA<M@#FhO$>x|39h1!;
z*ia!K=){-*XTNdz4Eg4BI2;{a-7V;Ac{8Rc1y6b&l;4bARi_>fIcB!iimG4(r=<Vq
zXYujuWe;&Rsh_3Pxl;4}#LB;ZTxTvSr1;Ft%t$`J4UmjQ_zmZLW7vFdf^>)f$H^%O
zCe>w#h8F+{;rYPDUl`DNg=A^C5~%;SQojk17$<Cq{L^=^@pVE^Q33C`bKq!OeSN(f
zl5`zCy&5DthtU&nhb~ViYq%9TWj~HNiePON=@$O}{saaS7MKS=tbXKK?xGw|wKtF@
zgz#74)A6NCcSVsSDytv6=7u>8dGIvj?venDcz`2h?ci_`S#}&oSMK-nl5fw$&E+7I
zS_Nr}e4q(UU;(N?Z5Fbp>l8+XH+vvT-wd1v9nEK+3Lq{vR#sNW$TudA`)t2G0AFFx
zIh<WVpme{GgEdq?3x475)zn@aRuOBLAqZU}Ix<}(6zJKaLkt$e+z~{DK0gz}A#jd4
z=`X~E*onkD@JuJ-<K#0i(h8pBf=H5j<3=SeF8}7P+$8*!W!s7_uL)w$tGS@BNp?9%
zTTl@4q32r)WYZ37Mq|Oqgq9VKoOwC^!1I*o;lqdLQI{mXJqEOA6pNb48<Ri@)((5^
zt*)-FSl5$iBzZ<3ZA@ni__}u5ES&R9IALJl7NL0lxv?L4KpQqv^y-0&l9E*2W`&Z{
zL+@VG4fl|LT|kS)9a$jq9F*g2*qU!m1K~k?1Y0jpZo*KE<#?*Jg2L|SW2Ph5KhWD|
zg(EiKA3dIMEqaw<zgbX|&H;~B)hxg_+zs?vRYQ+@X8JUx)e6qvpt6}<ggUE`)(@7G
z);lQ{`OU`)L)9vvdYaXbTGB5?u4cmhqNv%%a@8VaEqxEA1hQIe*%G0J=b-B$1S5lN
zYIS__6C}vqVKu!AWONLVFR`<>4$p8c)n)}E<CxK)KtiG%g+{6*GBVP4-*|t2zbQIt
ztZ*C!I@?s?kbybU`5B(ml!E2!Fy{65;AN=8&6vYA3+}S4?d_k6x#blV5n5P5wSOt1
z*?~Gs6b4o6HlZ`^hTH&#vIl6+8sS4!1Ae2cYh!O8Lv4fT030R-aa5;&I%d2l=bGk$
z;f88+-lG^}nzvCI%g_VCeG|kknGjl#5(g)`8k$r-PQEGG``WEgRSMSl2aaR#!b8Z>
z=0-s~+|bp_kBV}~h08+%V{K;_jbV))WCI>fevvT6==4>?67gt>Iwz4j)@2lNzJ;^i
z+fHT0z8&!0o)*SNBl_EBrjimbf(+jRR^x7xnqR97p!@(z4XhXXS#3zTJs2upX!m1C
zW?`TLQ-D`nQO|hw%!zSV6=<rvra>J7<c$Fe0IPr4G(VQ%U5!{Bh1%H&_ggoz^{)RB
z65oRX-3I+iIjMhK`a;!Atl4Y<BJtW$%mK+e<vdqODZlIed#AFPI5$*R&^s0GhPF?P
zd60ZzMPoz5c!xJTaFj!n{kT1<2xOGKRU6Jz3ck9V&e`B)yp`lsx(Whd<E$2#KP`uJ
ziNsR9QS;Hz#B*5C2+hvm%!x&E0R+DVcZjkb%y~-A%v_$Bn22k;6*xTIO~Ayqwzgk9
z)>*o=3P)6c6LS{@Kny?uG!8GWIr#|(Exf#!A-er&%68zjs6=y1bS8a<QgFO&?c)Y>
xjA+EK)nUv2e7FB^Q3U_ZUtj<K@;B-gllJYK6{oXYcAq|-wZU?I+S=Ve{u{x+<s1M2

literal 38164
zcmeFa2UJv9w=Jw~w|1LoOsFKqh$K+~5di~=5mZD(LMezSsRSfPwN(@WC8{80LL>`F
zPHGbx5HOGn3MB|qKoKl*_~$<8z25J>8@?M}_}_Dk9#m7OPVKY9T64`c*W&siHPtyY
zm(H9rWy+krdsL20nevPMlqu5;ew~irFasZU<HvM^{i-VXiGM>oGu-gwxAS|nt*1;8
zyhi?;>eJF=G-b-NDSK76AGHtZsCV$!HM*<Z9Ul3?>HYnKdzZcZ_1Rj_Ws47a%=0)U
z=lkdS1c&O|n!lvDzvL{IPW8EY^Tw}|;*#zwr{8fGpDrzKxqbTdpNazSEKaoX)qlUg
zg2VGBNnzy|wIg~JDeOM^@Uk>bE-NK;;8=Z1RE`UqbwG(xHiH^mgr9`XRO*$P;8ZE{
zV%xso?5W=z+4pi5`NgdxKk1X7?*8+-e<ClQ_`CCwpUc92&Llslh_3qh3;DT6^xt!f
z>*}t(eup(R7iwy1_Pm_N<DVX~y-=3S-OO`)B4$mQ?j0K&+t$|R;o;$|L~AsezJ|FN
zZ?0Xb`p>_9TVt(hoR_nb@Q}08>Vx-=wp)>Lv|ag^2gq4=tGK1{wyMze{Zd(*=5GGz
zzF68o<*1fcLEF2>h7B$QUViFI^4SAfoV>m=W!yJg-6d8hMe<B($P(ia%iWpW7`j(&
zZS7)ttJ4COxx76sQf~74PMt|gT<gJ4*HrOPM>RF`7!#wd9v*ES9XIc8G|s<k9J)k-
zlWARES(zW3(Y2IM_x$#)BOQtSoyM;&{bHH7P%C$Qgd@E3+FY-9k5vn<DUW`-qv&MY
zY?YR6{%p>0u#$_Tfa~BVX{+YHp2fs?rDS!QTlUu&7fj>X`uqL+_jT%8lNYaLe(__B
zo<2f;`L=bK=J+LSu(m3Dk;c;l*E>@hlpH1m&%c~%`RW(G+&6bO8s^<t=+Z^sAL86w
zxVJ=k@D)$;+4`M4ikr0UKEJukZ|+yzVlX~BL=A1EVPgEOnc2<Z;o)lQGR3Bw8%sTE
z5{*@Lbaa+q_5G{0Z?7Jn`W+^Py``k2M6vQq)Q+xMW72$N8)g0FXCjq7Xy6)t-?m6q
zh2iQt-p3fIZN(V+WMpKr`fZ9t!<&PHgXNf2x!33W^{Xp#kB%o*=@<L(%UL9jxprAI
zid(JHoUvt7Qc_yg6*^y(BrAV(pVn(y8U5u$|A`l8507VYT<CFz%v09{d&%b+!{UEj
zOt>$Z-uCFp*w{crgK7ONKFK%gch)~F<K%dIdtWk(>k@ML`tHd@N@k0Mi#~_rHsO?@
zFB@EvlAPRcpP87r(TyFG^4YHX)HVGAO&X2Ckhea=2u+b<ZVoEuw&jF{g;lv$#p*E)
z@3R&-(%O8|ekB|4{t9~yv!ULW_yLwvK~!A!iRVhn6GLSM{-PSg7gQQc<QfDx_5})$
zA|fKxT^igb#(MfwaugRy>ZaD%R_R(F9Q`;$*#p~u^XEH;jbs~~VJeRgHd%gsr#dh^
znln<*F(?qUyXnyPnOkf7?$NHESi3ASA?NN_`piWqB2qMHilg0sN?X*W+Be@;omtsh
ziTyq8(Zh$!Mf8<@?XlNfPH@7N$Ic}<*PaXCb@1Rpp8`&1U+LyAPy7sUyR80-x;g=}
zV}dQx&&^sVb$<uv`$D>`_;@gW$;LA(`}glxQJKvzD{hh25_mlI{HYfyDXNk|p1P8J
zF)=YcDLG>jLiQgo4(6^=;<d4{3GSemhR9oTE40?6km*bv>B=zVwpZLPZh4fIr5Nhe
zmA1JjcfOx&T=uYufKB;fm*I47xDq$w?74H-FVEewHq^fHI(d!zo12^WFdN2Y^S$_k
zUMNnC_BDlAmtMyWrP|r-CROF(!{R#0;_2z>kD{W)$f4ZKE!Xhtw{9)<DiC&a_AARe
z|LOIe^`~}N-MhrQVt1~W9BZ*BpOklLY3W}rR`2la<kGAGmV!3Dx4Cf4*5u+r(H7hG
zs33hu(bZ}p)lJ!D&Yw5-)LED9GBq{D`D|-%zma5Gl|M@=^LM!hXKMl5>Ql_oOn!~S
zhk5a#b5<i)`7PRP?!!cFJo9Fc1<n4`m0+`xQoHPp7TH6e?T1=|9>>H;Sf%M+u(i#<
zu~5talNDd4G_umXYzsU3c((J<G4CgvhYe|Kzv}*sEoOG{i13a#l}^PvEMMpPp)$Ae
zK3Q%Bixn!Y=y>6MgX>6VN=@7qw}Fg?&K?`K6DP~=ac4TiahXUjpT7Mms}mRJNa&@1
zokMF9Qm{31g%#j8XB4;estUVYc;DZVSjIY?K_>m&08Ah~(U9HVUL@=`+Ov0LW9eo?
zKl52e%gn-^vpL~B)y51LU)vSCZ~ip_6Ij!`o$sw!T&8cihNfl!olb8s8wn3}Tz78b
zvs{kDW9IP18A5+4V{-;O3s#bwGOUV3_qx#rU-QW_v;D)*w#B(Tyk*UcCwy)s@G95<
zhkI{e!*FGag$B(>Y4|Kz*fd3_{tg(x`qLw@Lvr3*+MhM|^JRBm(PtRGxg*_ELU-M`
z;qIH=!fqdeSqorrPWX&i<c#&h!sqU08gIBe*vOZ2r!Kp%R6(w`Yp9jsgU8+^BC<|Q
ztcm5ssqd&xs4*KIEKpX<PH=1Tl3O$?aw1qGva?)^7?sg4>Tdfilm|avjxUzXFw<Z#
zP4E@_yk*VlbPo3gZ^KxZonK3tOP4i&edRSF$Ft5KrwLa#v!BDPcyXLt6$(2i#yJx#
z-}j!8IsI35l<vaAz6|8;ep>zTn$SIQw^oIQnx|3k8ywj&g}o8sp-T<(Z+@}4ZyKAn
zT02yZt{<(R<(Sy1%#BdbyS03$Ec59|)!;QAVIhtS$4QQv?R4jb^H48bj`Pl79gDP8
z+T&ltmG6hd*;t#Hnv#RE*J7f_$F0NW{tnR!>}lbN!GglxPuGN5O$&YryHH~kw5pgk
zF<d2AV^N=OV>!mHT9cx_<;xRu*RF><udQA_;Ja$S0p4NO8N2<sT0dus+QNgaEDqAO
z+S`%Nj+Mr^?<l*u#+_nctrV`{<Lwci=n-}~VeF&W-)5PS;(5tSSUI~&sbTc9+?wL~
zs}Hns+Y0CSD0Q^8+3yUVA!NTyyUVrQl0J89_si2mX|18`K1XKcQD#J(kYn4!(?d9Y
z_3f@RJF5+S4hC}Y{_!-cmfg&;;i?=09XvcXw>`LQkkOgUG|ORE#(2tGf6iSMq&p8b
ze#8*J_H1u&e-;_p-qTl=GcKbYUfpWm6*XSVH&dSSSUS631{=UC8N)@bfn8bA$el&g
zv#l}e2_48>vy`9TFxP|EvMa4M|4$y}%$gOleM8Q~nHP3uyVffOm*jV4a6;=`TLQGO
zv!zsLok^T<-0v-<n67T~_4D;Lp?d;(6u-WG78mCOhf3Tz9OtvxST)!58MfgeR{Ik4
z>4suYj+lpM!?h}^m36~KWSuRm4~AV6;`7gF@>Y<o?JA~?TP18YuYGZ_Kd7v=$*EyP
zf77N-xxA_ZykuUR2*L^5AGF)a$?3v{3ttDn#Aao=@T-1M9yX<|EuS<c@>A(W2Sc~Y
z2TIX|at8CH8rvTGbn%YHoJd+1n=?LqXS1cj&80Hyy0E5R{qdiwBCgF9tZi*2r^{bF
z<;4rLWOKUeT?^9@ufi6q!gu$0<7Ut$BqZLwe?JeF`dww^qR!6FLiK@{l0n6**bDmv
zGQ+CXT#`OH8C5?&wack1JGJeRr*Dgt%a{Fhd*?6j!wQES#MZ4dc>iQ?a0mN_SgePS
zONZe!+35NsV_8xQ3?vEsOb&6k`yKP;-Q=UJbfzp+5dY#~)`?$f`uaiL=f;g29v;WD
z9Bl;b>MVO`6I>eoxZ9uZ&r=>GXS5Utttp06(viP3uJNWjQNS!!F@vUSx~!U>Gv@1A
zlJ)id{`ixxE(!Te;P4y_EK?k)!*{XHDobT{@6dJORupy)<V=iN;*DJR_ob#)v0m77
z@E*6zTKyPV{k2iTyUXpe?hhm{9(kSo?TpXwp1YyOOcuW3+UE9Wj~ny(={GAYD+xXe
z-0Iqs$ET{Hq2Xh*;qCz+4T(&Q!NoCFSF)<9d@j(=2iapZ`@0987NlKbxQ!19J=CSS
zrPB_@h8S(QE5xVCT)#~s$xN1?G1g)1$CRr(zcV4EtQALaNns}p9o=tiv`tlcUm!Wk
z_CTmjf35JjDQH(GO}2J$N%r#fV{oa*JeHdsrAeNsWFG#U$Kp#q^AB@<D=IqrCc(=6
zOnOdp_8NwB@0`xLN`oIyJ7}~@*1x^Vr?XVfqVCwSnw+`V*QXu2>e5z4pFU4^Pl7Y7
zXy9{SFSe@?i|)eKDIBt7xDJ0go^X1vib}`xKj+d@_nfq=Z&>r;=|MKPtx7ZM7<cnM
z7acs>vxtbj76UDNzO*vjva4jn>iCAYd_SK$tNUTEPdi}C(CtTa=c^wGq^Ewms&qwD
zOV@H&!dBPOK>*ge{B<J*U&0xo;_AV&5|uGJTCYvsa~=ziolO{xqK!os9Il)83Qr~6
zRN&*|QB}4vV>~2-vf{E?SCZ>}#A9G2xbksW)EEgnzjRJwy_8vsXuXdb%m3nYsjsr%
zhZB5+m>J@VU1k~p6*mRtj2c-v8HOJrSc4p)G)1E#{}O%O_Rqm|Z$ttc)9MvF1kVD)
zGn!xgR2(Sb$>Y+t(<S?C?dvPEnl>_q4!8vdZQ(dpWjOwE;hLcBaq$x`p8c^f>)nfU
zAADQl+{W1PFw&{x!)(71rQX{<X0~HpO>EbD*Syju#z&eWqhf1|_Q`ePJgWsNk9|=e
zNZnR@)grSepPUk>&O~MSpR#}SKNVUu!N;mT-t*NqFNgKY9t7kULSVt$Gc2#56{jx<
zi*=|2Z^WBaM0$8&X|4lRPt0-AJa(*qGY4Ozw3Oi5##b|h4@jm5BEo73qIp}F%7+(J
zeJt=1Zdh@1=~-;=H}_=35^Aa%x(4d)Xg38FWDyOe6A<L|a}8`o{MmPp?#P%PBf(BQ
z>|8zx6^{fcEhAe!yoYR?ju#))q+N!;k`MW5h^S-=jc4^1iCF^o6kJpK`mlMdronr2
zqenA0yEW9w0LNhOwk_x0KM|UEQ+<a#pZ0jWR?br5t1|m*O@Ts1L>@hUyn@1^eQ!1z
z65O}ps-M~xQElwha6=fQp3%OtHBBTW1?G`e+uD=68CQ;!8@qMRx)S0EqvS5(za{{7
zyq7mVPdU-JjAfPs^!H^ESI)MhdbGEtSgxjlL^sI<NW?XzW0Cy&NjMqTnUS9ESpMPt
z`-H+|ALViT?1Tg>&y<=w(uR&PhB|ZnJ1@N3#kb15D`#T7q<=_xqEA^TQ$k_O7RQ*R
zL#057UX|;OOGEUlIy*Yva1b`R2vs?>-VbUp^ilL>O6839t{!3enme~gg!iXiHI2(k
zF6b-~ZO(p6qp;RnIq#1LBj67Q8z#mY?rgC!Vbt;nD{Up4K;P%Z7zrSWXBfV~dPgR2
zk@)f7SEzb-Xv_(d#UVS6*z3UE4Pj;M5SvPEpm_DKhMHe&U}XvjlBl+8aM`a{v|I1|
zt6%7;agmXc1-lw$!yY{naqSCk$OS;JFlEL$w}@HR+f?l`GHN+iktR=KQOEiMV8q6r
z0%0G(&c|hAi>zpEag!ld@bWN8_n4FdA*WneF<x?Z;H=kl0kz)&NFs}RSVxB+58#xE
zDBep{<7w{lYXb9jUj5qHqJ&_o>5ifIb;Pd)(b|ayFjmBQJd29*>}e_}z#29AYp7kn
zZ^uews2;bcJAMdm#2&qo=gC(f<u+722#h%&IEEa^wFEZ`a_m(*usG5Vz0G&FI#|I8
z`=>Wg?UbN9>>nK;$nlvN$(isZbbz#7R~>;xo8;tFckbLtkWxG+dnA7bo>;<>XVL2n
z7B_bB#xn=RwG&pRabC}o>ahM@!64UT@B?FfLC!cguIXv8#SK*<hn0(@^aX&tJqS{t
zE8l!;@Gn)Rd4>hvopH-mjEs!xEDHpCn*G%C=g8Il&Z9JVlDL$2Z{Pkte~sErLvQ)j
zYMVd(K>*0-&z~jQGj5ISa4R9kU>j!xcobT@2wqQ_Qf;O7j(YL05<t&?33d2<_pj3%
zn4{L+uVw@}u3crwPyF-(@4qEs0t#FEhK^816S&v<=l?l$6M2Lu<+qOTy$m!pF}Z=@
z|47hnz`q+;uU_@=IBRb1g;|)Vb#yBn^loo~CA_=<6z|H*k2c=8VOsv|@a@9WB0<Fn
zl*IPwsU4P)mEDaQR#AyQ9xsBZ?Yh{yP@v=82&GkKXAV8fsVFbcefx0d3Xw-?Y4Rs@
zboT2W?m2qw*lt5ZLlu=5NlAINNv7m?r#IYPEMsz1MTNwDk(yEabPrp43CM3i1k&6$
zgt*TkqF6K%V<bcM@CXpo+O4IfMZWGEYV`1^h|*F8yd%HE30^E~b{yaE;spuN$?t%J
z2(^Wwg1)MZ*47{o^tJ6BFYmjGiiKiYvEr68c{0v}-HSIgbL~&oBp9uVeVTf84*#Nx
ziV9v{V(Jl0h+FQ;)4+M+a=G}OZD;LSQ&TbgZbiW@!`Zn4hGU$EF`s_@FC_@675mR|
zjDP1XOu#!<pTOQf7IR`DL3&$<n*Dl!1td?LIAK6YL4>vm>Mqeh#$Dh`>^tHM3|fi;
z;+Ym1dF1>KzMP@-`@)3_b@X)HxD;#pR?lP_YpAca;OmzU4d>k?gV-O20UC9k!Dq4G
zje`-qZXD{cngCc310GmFiP)%|VTwnsK4hZ)?hqJ+8G;uM=~@-8>KWs>DL*|JT-j<<
z6|FrVV2Q9TgwhxtZB_Om6eG8aCOpwkpIAi5Hs>b(hU&(9!%;Lc5$;}l&0mgm+2trG
zjntIo6Jy9UPthx{sNg!(YbT!Bg^hLK&ids_!|!~^MkZSmW=Pk%MCLFC(f7H;6On|)
z;e%rp)RBFe|3vm<J((^N86e#H^v8Twx4oX8o`6I1ZC>6UAWZ+v$*(>rn&EC&5vfVw
ziigKy0L9%*0q~HxYOu*C=*O!-oAL5WJAQ3@_Uu{p+2DA?g54^)#Etk4P&4{mbmu<3
zZSgVsSzAQL7baUAK#YM65AsP%t7`Q$=6HKbM1<&5wfpIXuGu|a^js3sn;r~1gxw3K
zF--FDN*HWI9BI6K1~8(cayqdlLC{GB@!X1i$M^Qw2s^<r|0X6HgHTIi%f!gZBN`g>
zaT>^Hug+d_B)Ly-wVx<6UR7nbuu|q90SjmY@jU#p(SHQ^AH!&Rmt@z0NhTa{MDg0|
zIDiSEoFaz~FE6iE(NA6ga6it@&Mr6d|3l#M)`6i{frkEiFPZOfBI9e64`j@UOVf>2
zpGsdoQqtN73-qGU6&A*awqsh!w%C}QB~A_-`g@O-8v3l|^zi@l|IsXMlIwr<u;VAz
z@}2s^y~BMi76-7h2_Yr@o#KnGbjbM?n)NGRgPH3ca%Qxz3+z(J+ZKiUj<9cLIs5lj
zuNapZw-Rzv8S-kVrWtp%JPs)kIu%QctIMZ%#PR=XsEk9gUvEcFMoXa1KD`|(cQ}<|
zDLwon?CG`DDXY#)Vx?Wqr=KqLJ(zqBX4Ru=Co@|hOQ+41pP#=8{7-dr6LwdjyxWXR
zfC9~?wV(^Zx#_|#twGrQ*X<PuwI8R-*)?-dZZau<2B!jeW&qP0CK>(=f%oHtgbgAh
z$6|GtV4`vtE-Ztg^^03icEr&1o$>^h5?ic7EZ~N?pvy%?Ma_140OZkn8OgX_eL!RW
z-<aE>*4}NyqlahDnKP$Qt6VGQL`4&Wds)xL#l_0xl8kAk%0C*|<`)adfZxAAf&qsE
z#K?2Y({0!WCHG`j#Xd{j?IR?}8z+1x(W<3ro|cC0pVxTQ=bl)Xl9qjR`fJ<Rn3#iV
z#c#ndVxQo0`{u<~H!t2XjGj<@Ayd>PV#=P_Hd3HG9$(1w1vEv&3K4@KJzG(S9CCoC
z1Rt@T%IW^}r{4<caj*gAFG}XCZ{_9X1y^#iaAeYE_$SP=-+1?cfKx|24wolwv~i9P
z$n5-jy9PmADeQdy$17KeD2;yNQC;nK{hF}rW(%+)%^?N^OBGAyY~7-uU^p>0-~%Ej
z^He=Py53u%D>bz}GHPb+qy-4v*SV__c(;+nUKVjVFW(7|cVFAwmD=PxB9+$cOX40M
z8?x>gh=H!_P>Ur@PM&#6ePvS*z?HmG-`z5^uMXDWJ#B1u85_6q3o!#-sk~G2QCLoo
z>gK#R=?#psR=L_Uh`?@ukQODTmtZ{Ndu?$)g0~3a3M&<_DZ|y8oGku*<}Y<{ZWGUx
z)IL?(?X`3vP`ho2OMi`vzA@0eG@^k^-%LtaQLn&c4(sy8zlAG*S5k|t(tk29_Wy42
zUxy-=9%&~S)IC%(d$93H&|6L{g7_mrQ`WEDeCa=vyZn!?5j@uvo!IpBEs;@C`}KB<
z1dmls{6@S{+uMh$qMxS18ztys8y_>|Nct7}*H?oE^KAjr0|iLl$EAKPIB!#Bgt;kQ
zaZaGHe3+N@<jc7AM(|<$Bf||gEt{)&mh{H?6yZ%HnJPPBCzu-KA_Jb^Yiw6a(bCl9
z-kF%5(Zw*o23KY~GU|v=1nrZjw_aS|-(~Ic{hn^g5(5H;&s~!x7+H3|7oJI+)_(cS
zK;iP>lE4b7D_t0BjaSx4?(tYdACH8YLn5rr{TDZpVHrxK48@MH^}VTE_s^NeuuAw;
zT`c;s{(Lq&TVi^K)wr2XsbRw*d7rF1MGgu)f5h7{*m%-6T%%_K%FI}~>U<^p-A8r<
zHb2I{a-)^-6IAv}1ndnTa*M=r0wLc7P!<t^nR<*w8Vq~Yv%`-?{0dc&g#v>VkRI~L
z#LVn~_h~(_fJo91bWd`t_wL;TGnir9>3+{=SO>nSm&O7OhZsPDpj>V3CGgaM$1Ii*
zcs=qvzrxc701Oml*0k-bCq62;WVaGSDkENQ)25ZGv9WMIKnsBHJ>^wZsuU(65#B%g
zjc>p_DQVZ=0P{?xsyOY$r@2ejwZ*<`0q`uyL$44i>P<9{@b9w~`qeNF6ft%JVihF8
zl9Q9k(^$=x&)*ipu9^_4UD{$@y^!q7m&;cCJ!$y==vMx(6$AYLYZN5RoU))YkB_F?
zK5w`lbc{~>Jo1RsfBqkc7swlbr*?vT;(w8wp}@Dzg$udAtqFM>o~#kB=B1&om{jJX
z-22xGz-?#4MDy6R&-d&{m<_B}CCZh{h5?Owkc75Uk`t53O5Qd0xo=2+q_nk9r+f{0
zn3qohfpu{5h_`NT+8-q8l~}q(3`T~~jXGR`*86t)B&^WUp;(D+jLkDR(}lnfBJODP
zSn((_(j;p5uQTSy$lV@H>=nrX%V3F5?N-_R6J_cbcmJGOzZJ=1l9zbA+v^4)cgkDH
z^;67_)!e^qXHCQ%yu2iyLhKXM1wu{Ul9M%%4>Hzpu=`UyA)B7;^)n#pfTxovC4GMP
zxCRdN*5S6tz*}H?+=7Q4LFN0kAXv(OAGW^<S-l%@J7Tfv?UDLrov=H#sT~Q$vO|MN
zJql-#mlenN)R)QYLJWg{#L%bD=*KH?HHTiC6cuc%F5P)`)O1(?u{~IUdB-$#>kIU0
zG-2T1KPnbz4GhITeYzUXVgK=imNpCy%;of4*W)u`*yG$ffd+}Cc9y%)_BP=jJHstB
z3N#mtAa$SCVZ@w5oXf9bM|5f0+S<e+)R-lk73iC_WZs|gx;mqbi?B(@MexxkU&G8&
zW9F-k{k=mk-g{y;#6?8<0W4wKs*iCGYiaS3<T6ErflmN#CsVDiG<4b-o54Gr;kqRo
z^i=`KYgwkcv9a+ef>CC36W$nhzi$r@P-J4zAsJjUx4O#c`I58Dw2&Rya{@jHXYp@n
zm=itr{5Wws-iihvOLFo~$4aSx9`3DcEp~~OdTPZgoo3$g+0oi1ZHbw+%TU)V{=u3u
z*G0U%*r4_8O8pR7$kl0K%B~4m?deEnT3C(`wH9PL^cfWTu980U=1z>O5ZMXtzfPsA
zs1R0<kZXwG;z1wx7hB)tmy;wnA<W&@fjaBpIrjWZml}Xi33kqeLq{}HBWz?5fLLSk
zmJ4Sm*%q({#33NOB)S=oDxXaK#4`s$%J5A4G^T7;{k%D+F6vm!x~RC$%8H6z@Vxk(
zcH(MyG>R`m42fu3CDYY}VZ*KrNPX0}WW(t_y>o)Bg4tMA1fN?)MBsG{pratM2Vx_?
zIO(~645i$;I#=+XKpGSL)v@p=5meOi92*bh^;+WNu+u0e2Wp+A-y)H8H_a3XG42Hi
z<GU@r7E6nW6j{eg1z3$_y|3T4*a?0Tx+O$a*4EaDwu3O5FQJB@vWNtN5KUe3yH!<H
zzr|Qp!}L1Hb<UcYth13<q{5q@Gkb=2y%Q1fR_w2KRTOut(zEj-%m^qoSteFJpJbK_
z3xe<6n_hmcql+mXR7@y|-=aigyB_Mp*G9z$y~k0gr;X@JY8`X?N(bWTc3iN3pen7d
zf2gZfR4gUlPFY<$%_}RzO2A3J%&ui?zf~wZL##Dkb@t7&;Fbp=DSdbpyi;#|(~5uO
z>Wno3AFAax-N_H_%qskdMOX;d-rK{Y&~MEE+nS^Sd3g&DZzDTn3iDCNG!_vvkhloR
z7!Obr{mec>(-Liphex%`K>bLk1G(0{_i+DI4k4y_dDn!T-@&LQf&oh~vU!?XdKFFM
zPoF+b?aAkFLVl#nQY|0;oJ2IvqfNp-9v*g3_yjAC5$HN)8!dn<Z;wf7L<$QdgRJYh
zIy+i<M$J{eg+;J&n8rLkyZWR;8_?_ncVx|LEBR)VPrf~<JtLC{Sv)*0^C)djvudtf
zs^o01>o&%frn53J<TZ_9LHalF-Gt}qKn7jfvN6}5=ntB9NRV6LnWLw%kVB9qizad6
zd)(xuB#R?M;=IPxCT}qn>Y1kmYxcK(gC1i49t9xzg8xNc>|aDLSN+qc443^=&+R_-
z<nuDS&s$_SRX6nU2D>%{^;J)ua?()X6-7w>tGqaQ#{YAi`@c9X{~?7ZdG!A|>pMr(
zW~x~lY%e&&wKhwp?SQe`%TV?!Tv-fX*39+yy!iZnVvXCFTQqDncrVJR^r<5%8hZBY
z^w&<=BW%Q7(#uTNEwXkwHwm~K&c|}bo#@Z`VRL<2{=w3G9;RX+@2u*{*hTBuF^dan
z0{(rvoWxG{bf&J<$Ab^s+f6PODbEqy@}hjz%6043O+Tu5xn>))6h=2p^5JPHaloKy
zFFwl|!k`mIR-DW-lU4Yr@AE2>SSbFHlfzBM`{8|ded7?9@4PxYb-*D04%;)Fx`Kp$
z;249_Z~CrnElX|*F$84UE@L~DJ~KuyLw3uSE&KHH-JhG)B={=1L3ng~g(^%p?DHlW
znSd9eR)^cG6h$7z$4d|W{v6aAgbO65B3@%OzM;JQw9>ju7rR5_kn_*a&qvH*YU&An
zTOf>n;pq+1VC5!Ntt8A!ebl@Dch*4IhTrpnNf@K^>2OB~p7aSnhUq4$1YX`rLCAN`
zZ1>H@u#6;K4sy*OcU=nE8j>J3HhDz>V*7OuIxPORPcLHjAMsU{m8)k&!K=t3?j_z7
zq3kZuv!HyFlXt@x5!Yi?CQS&Qy9ZW-DFrR`sJ!Lt^YMYVm1`NC6BGoUz2V>7+nU|(
zDIu}XsWW|O-!DA&s-W_MXs!+<>Hb!48rjZo55Ahlg25boAC$eIDc{SJXk|Z_-scAr
zd#g@ea;Sf%P&bmkVMN=^%S%$`L;>aj9g-wTa}!C*L&jWkw+Chmw|=}YZMd5_eOGQ2
zEpM==36vjlFqWUL@R4Lu2$Ih|(Bmx{K1V%Aks1cz;Q@q4X+ueBREy>!qXcy+g%wmr
zyRRwVgt1=H4_(wCBza#RnUU|Bq7y;;iPdEb7jy?YVr+xF5P55Z*MIy5*orU6FOSf8
zjQtRs*;{lx)85i8h;l#cpM7<DnZbh4%m5j2lDj0yUS|-CH&6X}br(q00}Lg_WC#v7
zL)F&=)u%ZYabc7=`AYZlbthgj>xs64n#beMm$8OQ?N$#oz*R|~di@7UOhK{t=dK!Z
z`4rj5ZByw=3?G6D_O7|VfTS`lUnTuEf3*s>Fm_6=QIOsulJVrXNPSqniW=dQ*S8E5
z-ywC@SgAwz`tl*X00K4N5moF5Ej=5}5XbfiX`oS(;fuo@TUKal?E*oNSf->v4I4t7
z8=C7bzx<~*pA0AY`fOt+m(81*rYk7~K9%IfZvq!drhdG%vQ81Yl}5Rop@ZUj>6?he
zcrl!-iVD$o2WaUp*=SsPV0h>?U-nyu(d0Of<OsaVfHZFq>N^1}nvFOuduv(_kUN!+
zf&1mh1J|1gBei=vVHAnme$~5V98)5Wb-UXY`HM<J4JkCxi4-@HK5Rz71u8s2ee41~
zsJLb3i52A9mnRQ(yF+%&focf~6H0zdN6?iV8Anu9SJqMc`{Y|u`<FyQMvaw3JYX&8
z8ngy1&&;EfJi<o}+z7LB^T2A2HVbO^Rc}jvD>&1RdVS;ZN7e4#<P@$hPD)Dp#gw}7
z%bW$Hzp{3DF4_g;iqulxx$ygyrX$eME1#Pv5{p}qE<i@<zCG&WR1TDNel3u2rd0JK
z33evI8S&bpA1^>`abKK+rOHZffQHqt1u6dUx05m3>=QVm&@L*kE(Tqbl`M?lC}9+;
z=7=9J(2CU^iYrabvSSpUmQ9x=-#sN*3lD|_zI8$-(oy<My9*aq7K5jkx*$)zfB6{B
z7;x5lZT;sbx5sr(^akauEapI4H&c%~w=W;SR@k+dM-=uVt><Ju5hmp#svWw)Xy3zP
zYHk+4fDIs9<}e6oUfz@jS0^e2a#qTDmkb&GK+_uKAxNK)5zfznGJx-gho)oV>WKEU
z(^E2iZN87Na7vxkq=o=Oa2|?4M;2vqYlyYl`z|5{Kz4XX5M_JTpPlo?N6iN;{b1R|
zXc@Kmyu5v_Wj-2e@<x80IlTdKxrJ*Ob;4oPlVT2)FWF`JxQ#aTKxpuF^BT@oWX_hB
zDNi^%4}V~E#ciOjn;zpTkL&7fnG(Q!-ozVViSrusJXbKv3LsJ;a`XeG6_Z;akX_|&
zmxTbc+NMg+5cpIg{{uBG{#RTTc2NVJGPeJ3t4i8ath;St|DmQ7ARwGPY~e4Jj(ucc
zT6-r~W?#<FnX?v&d+eMmPt*@}!u8bcejoe2TNW0L$hOW}Sg3U&k{C09<d<kXcPI;z
z4{xhkXaCX(3X@fzx+F6?=J`NPd~?ahr~hcSU2i85^;}^u>LeuVsB}u(8f-E?@#D9|
ziKymE*JO<7hC3-hU4J_5(W6IiCx_6jjw_+u89eQPOwf;4Iw8_rQ*8bDjp&5|>M2Gw
zu)m1(?pxjzE7=GYuIfVuWhmS|79VMw%ZKoj2-2V~+#(76PBjivBjjo(B-8P(x_a^5
z17{N1K7tC#Z&y*1JDa#HJC;K$V!S;TDUcZK;?pZ{<wBPFa6fh9#r`v0Z;%3;DO0G!
zs|3#CN*6^;xqGd(e>nnSYxr9|>e}bL|4j9<Zcuco?9-$qnLr7hMG!|IT?qm7f~HBw
zG(E|6mOZ|U5}izpH%xfqNPnK=6EhG)cM&7Obk9UhM&B}d_7=B~jL?mIr<VzA|1<vg
zKX3o>tM_)fnLjPRk+J>Kg5pb_9U^Om)*g#c8Rbn5Y+2{A<8Z9|vKyvv#UtE*z2rOP
z@K5q8fBb6j^UUQdKmE1KH_dT)K=pva#k;4^ysuYR?#tBIjBtEECcr4`+d9@6I<U3x
zf{HFgyC5fSzga>aeHpjN_i6Hr7r7|LFhD7ULWms_>6BYg$t7}Y@XIZ0e<PQkd?{M2
zXs@n3_SGO2hq-_#eFbD>>gnxBT1%-Ze|@{NWi3@eb#mJ}hnE=_zPwLm$7YC#5CyF_
z$yt+%4MGN|^!Z?`ZI+k}kJ_?)XJn?Z98E19QDvj3pO#Va{M4T}KH!@!M0~R#&-V#+
zmj=tlZB~SItnmVb1GeL_v`EOB;sU-|i>Xn~Q#qbe*~ddH%*;AIBp@xhDwbN`lOHi0
z68wjNVsmRa#FJt|^crd$D3rn^CrA7emyEpPaecnIK3GTcLRO<4l43u;>4b`$1>wS|
zDiJKDWbol+CXRfwG$#W9U1ZHq%wD=_tqA23kEdAF2hOpv_Pk2u^pji~5{fzks2lk4
zz6#)>U_=x|L`cq*Wcmj`@whF9?k~@Q6yp$V^`b;#39&RvZle5TCAI}t1Q>=fV9+Sh
zY?*6+V$U!;t^mTxtdc%@PE{AFsX@hxsH$lF30Uo(qEDf^4lMze5F-tkjuCw>(SIY9
zJvKW{9a04XpB@3p(b%M%Vv2o+FYQ%E1vGPfQdwV*IJavs+ATw2HCK(p`sW%WQE3(M
zE@sEW--n!CGbUzU*^yH@Mqm?0AV`92qRasiLh2K;`|fjctFrr(sEmRfHU47(Ei+j$
zge*%P>t{9v>R4P~D0VCtdXjk%P!Jg_kscd#e|*(aH#+w|1iqGt&jZa|_+`yJ0BTf0
zmk}sqNeXs=3yB1Um<6H`dJ`hQ@u@mPKf#<jx;2`W?sidd3Z&?#(S6$7XStspV=|;%
znM(k>>_8w60wW3--?ur|(}TExf&j$-itDDXKL(X23TCwSrpzJZKCND3@$Qz)l^x3o
z$mQilr9-Vks4ya;9+OYM%vyBxg)F)3<jHy6fqy~L<T+3!2su+qAF1F0u*5mhil)3S
zw&ak+(o#SY<g&)}$1ww<r(~FRNH7<GH{pXu(Taf5>Ucw<y(Gm;2ufT|RPoa@5h~#L
zsRCNrDxfB&11=RFYP57A<&A$g`qiF}jdm9G7X!Tkv+aYVX!;>2lCVLg#Fo!x3`*Eb
zN|q2d#8oA^jtzSZI(abf$I#Xxx>$tTzJg`;khc)m%1sR=Fo_gy4WuVuH2dq;^1VT~
z7H6%AVzceAI)~RTm>2ytp}l>4yi)q?+Xs-(sXxDG_Ux*4Hrs^_wPNI>r~AGP?{9$n
zJHQQnBF<?wY0F|CZ>X+LEt!~+9?R)L45(?jb=|6BLl>?5;iAG`*VwD93|DXZ*|Teh
z1{P>0iu-Vtn5!Sxjifa*%2yw_^E-^KqEbUm%@VO=(H>Pax2!=Z$OS9I*V`D+S+Zee
zHk6qp62kNmWP31JmU!kSR2+E_x{BmH3FMEfN|PxkmclYLcG@27C!eWwQ&YC><t`os
zC_OwA-8@;b=F5tEw>=qXkLL!-X}`#l_IV$XY@Hn&E2(ixT}$a_Ew#V_>m+VyOFR@T
zN{KmtMZ@T%TgM+k+;zq&?ge>VcGkm(4<Dr+kSXjnX5v`_0@K~?dK&Yx?vcQ-=Zci`
za@4<!OU*?c5IGED{g+HEEL;l=Np8-^xp@U;5+G<2MzP*aoGT&;aY`zUNup=*(CyM$
z=_31cmR#N^j|xOz$%h@#1~XQ|YaKeJ)C9)LuR3lmv62-3OKRAFhE`O@(S*U;sxvq)
zIwpkthuDwEh)Kal)?9m1KEulkEga^iBv?*0H*kGwc$D3W<R`;g`VK}uWyk`s;t}xZ
zSIE3Ia!_tl432y_5SwCD4K7=)-tImt;%XC%n=%3;2F}~}{H_2}If?QH-uRZFq+nU|
zeW{PIN&1vTE8aTc`1b6J#rMz$q`pqShos)(O=l0On5Eg18n90{5*{us9YLkZDv{*T
zq!tvp&5vEpANeVDP1sULvPs4RcJJR`tX6Na(H!t5InC>Hzhosps8$mL<dJzlC7Q3|
zewNAMx;#^!mo;4xszu;1KExJYz|eA}@RCGV{-^iy@>;&#J|hqD5-CaS;BFwHm4`=_
zzEe!W2s;)gMnr^E-*m=Cp>}Y!dT3o!A7b|6@{fs%+AJQ&vZrKkGoq4HQjFU#pF9%T
zl1dLKYmFjDU}^WFnOA-|0kp~_TqW6Dx3v3=dFK8jG99fk%E$THVrz;=(v~{LL9;bI
z6B}LgutwN|nO6*61}DX5o4#b$)ZC3=`IQHcWp12GZyflIP?eUBPBigjdx=6%MFqQ_
z>v$J@YNO^{oR2o!P!fIQ20FD-*03WwcN!~JYX%-;+Hc1a2)*FBy#wO6_v{vI+5`8u
z$cTtQemCabDo1At5S26h_fFyAL%*$~AYg)Ik9!JRaTF%MCIv1oJ(XLj(}cLF?sIQj
zU?5fc=sZ+R12?<EXX^%tckQwahftcChrL0B=N$Vk#B$zH>Jcsg()XyraI?6aaYtR}
zp1gOEeF1P}Wyeh_YWi0?@*ut^LgBnGZleWm;v@a|<~R2h<Y0lBO<PI+0wH%6vlTQn
z(6`;luK9>vd;rD7iOPZK=J6e-!L0*GR}7*UD%+Ye<x@rv7EWWK#8JNlNw#|gs5B-r
z#>{$pVn4LJFE3vpSARi+xPV0xCl-*Yg@!a2C(p1h)zXrHADEm)pgCx4VP#imszQ}`
zR8pvb&2y6!ECW$B!s2uKi>ruNm@@nr0Oi5<%fno+cE8mJZ@`^~mA70lZT{=FG)k7h
zRi9u4-G_STK<HM7j6M=umm;;c87FmQGSByN?kZOv7HlbEjNNY-%E~4t^Q0*JvP@>5
z>n|MQ^@&67BVjk>ON(X*oZlvZ^031+8m;|X@RA9%#XuF@{;Yk}u+l$;k}BPQjhBsV
zrX@f{*-yv%9B!}32SKwhTaA3ieUlh)6QtOiYMIRaStllm?w3q|z@bg&ju0IpfdSeH
zPX_HFA0x#L*k%M4fWNv?h6-hl=l09f1JV~zcbgi6DH<K>dkkEyrZm*-;Xw*!>hxd7
zn0(g)SQSg;otG1NbZBkv#<H#Rk&m(<*+wV>7hs}%Zc*9I2Ry)wNU9FLy{5Eaf1vnv
zXx?3@B3W37`U7waf6i497eWSgGd|md0*#y3=dU68NlJ_OEri%36Q=(Oc~R|5nLkN=
zlieQ~dKH*iGR?faC|d9z>7Y*4*X`I#C>5BHP(uh}d##Va#Jn$z(dIQjLcNi<J9!p{
zr`U13j)5Y``vQ?!>bI2Z?BlC=>@!$9?Z$?=3Lz6QDXevBkW%>nh;6}c(LzE|?K!uV
zp<ri`Qal-&xZsn-|2KYZRT@Ymc?`#p0g@e=81$J~J3cXsHn`(Q7%gP|M%wcI-Zi^a
zR6s6~Lt47I>1HaakO6x0B84$Mh^*F;I*P^E+hh$@atoCD<4J~N-?y0GJ*kPlo&6Zc
zm_(=NK0M8XPXHvsVY&hJEI0K{bD^Ih3JD-q{D;qI_KMlBNOsn)#kQVL;_%1bTOtdF
zkYsDp${E%qMhUUpaqlB!GfbHtO+ct77K^yS9uRnWI`k~y#Apu?t-Dl6sl-B34Md3o
zt3Fe4-}KCcUo!RPpb#6jW<CnOB62@dciZq#JmoC)>cQwbt6w;uOM;sq5BBNr??=)c
z-z*ldP2P5&8e=w<{_v0oDM*q;&g*!xS&c#{vmL5lPeLvN-Xlwm+K4@$sl?JPN29$O
zI#5J|k|I@df~6Ul4x$T$<t*1wCrWxNe+pKw|LET$l!*kdqjVieNy8@8nR?&5*Cl5&
z+Ec(6E{v0E<v&SXEJHw{mww?~9h?;$69T6KQs6|k>to<_=1{@SB^n`%CYwKe)yMwB
z+$3#QL|`oxS66QWXPbvj;F|v925T(|)(Rmd&X!w(ift6!s-!f5ZmWJ+ABy4<SCf;K
z?LSuo70^7b$>E&GaLkdtR70^s4*l6R9T}uL7lsp~`eO(*hD!b8AzdXBeChf<3Xl~3
z_@-iuzs8LZsJ!?%w>1aZKF<$iCVt$SYN$w?K4<9yUS84*0t$VL;;ZRtyZ$7VRA3O{
zjS1)C4O-#H`wAk%OyX=r;IQP2L7h{qFBZ0OE1@-<zwD>geh!?C!bep`jz4Aomld}c
z#lKf~Zk%t4V!V7~<&heD)b=)!TJO(8DGjCrq$UkjGX9UhS*ECFt!@h&5DIxH`&+;m
zE)RDMX(d%LIioF7J$K8TpXwS>+iUi5qqIwQQ9$u>q|7=Mx?rN#?E&3K4jhh&0!i&I
z-fDkdUXF)+Wc>roF6mM5I4o=x+}kJ$*x^5ah*{Qhzina?;}UNO)sraKgxc};!M+Wb
z2hcJ^T#aw$l_PPJq)d*e!%L^$!Zm#1RdKNW71T0z%Mn{4-x|{RRm!!;^B=D*mRL&q
z7T_SjhBhG$x{kY=dKixl&V{w4q*HjLx}Y(*Ve|}<t;WMx6rfC)JJ`HNc?m$HdU=Jp
zn;&@*@r_)$1p`dVvyl17E-@thE~yjEI>F*gq(=Q!t&l!hNVCnze{?3R0TSLY{Z-VL
z)~|(6fp#RPJc>Ft5BM#<*W4)B{KA30*^~ARo3r1$6*XVu*$>lwY2uS-@ti_HI`9|Y
zG*;K_B^#a$IzK#AefJ>sjoq^UaF_4N4=Y1mq#fExCDz`cL$-(|T;8vmqIvRxj~$br
zJ>8MRt2n@DVbwUqeoN&3%dK2ijrb;^-NAYjljIUlCX<;m;%rCBD+4A^{(}JVk7H<X
zkf>2c|E8gB6Z~e7_C(xIzcc_wO-z&G=B9jor}j%Gp<uuN|81R3)Xe-l@`n|x^rpCI
zfoQd{nX9LA+VLAYhejX-a%-<04{x26sW~*KAPZJx^ZlfOhq0~Bs6;->*;_<~UJXi>
zT00MF-)b4tJ(x8KNVPdN0WITP{d{haO{YI8vrit{u22jd;w!man&4ix3+xRd!`~`w
z>mURn>clS_=Aq(D$ELvW0l9H93uV&xF8p@)uz5kYZ)C&(J{=ipjQGm6(#h5+%`Gd)
z$6fA<EI=n1fG-;&UqeOy{q}7xh&A)h(~)8V0=a#D*EE`pzyJ`0!Gi{btOy;{QXdte
z+&UgG4v9S+Gw?}b-(rU+M|W~APoHyxO5Gtu(SS!=qkCBP=%4ZG`((Z<AssTAzJu3T
zse2H=w^YBuN)#&|W4nwbXY+8cVPL&OnLIUael24U2FxO_vQoxh3iA>)v`}Wwg^FY!
z1qFqu*r!(Q!{O~<2Q;$Qh*CJ7;~0<~pKX<p$%u-uGjwS=?V!w7%t)xqVHFnyMN`}I
z-?60s&8>&X&icP`6p@l&fS`t(F3pnMlm16S2B{mC#F{*_`nQk!cMI}g)BNebZ3Q%g
zE==7EZLc{g-HHbxYybJKF~u`t(-Uy#{PnT07qYf5Xly<3gy7DsGx~mD3Ms3jXC(Pi
zFUQq|l(TZ|M`5TuNkB*BVvV`iN%9R18#+Iv&$_Y$bedo(<!cVjygSPtl?(^&Z4xDN
z8Pa|N9ezX+mp?*WA1JOpkM#B-+A>0IQnkZLUL-R{N{Q!bQDoNhm^by8?NIY^osQ})
zqQ@aQQbaeqfeLY+?;yr-X6rPd7LepB6f&2ltdWtq%Zwr8-uBbV+w?xxK(?Gna@{`A
z6?1-@L^E$UPUSFB^0Fu#wHWiGDFc0SWP=?KOV9zu=SVq2-7Ib2{n0h12_2|>NGlzE
zxIJ(RH=uILC&(6IAdszXsxxfdRzNvLC1q%U7J~}RG2uVEbm`K6uw7Yf^Rp;&a*~OS
zw+3xtH`Yj+LPb6kodvVN4UJCm;U3*BBQWyhs0IfCWn}x3zo<9#w7Y1WmK7g6$#fA7
zsfPzLt+R%+LeZ~*FPs#hM`^`*lk70^<fOHM!q#WtR&J2IuA-7#Ux{1+8ehEQ3{Urk
zB1-1Vym^mdyOLRB2@xA2J5#Hws%AN_ds6G|vg%8g<7}a=sSSKeZ{;d%JH#UH5e6b6
z(s6o%ILA24SSxU(%4z6V`-!J$0Y&kw5bhDKfRx!P#TkMY?8%dIl?IT9_FNPZo>}b+
zQIh2#ofo#E-H;_<W<Iim#cwI2cT46cR(0<c6RNutWRISE{Z{7@R@pTsJS}ZV&<9$P
zO{9cB7rO7JKE{MI#m1t>iPTwJDk8;cS*dNz9UMjdk0Hp)u}I4Ypbp<U$!hN8fKoiH
zmD19QDAFd_DM&-8;(Q&cavgYDh7z*M%E0rxhzC>>byPoA6`zgig$CyJLZhA3D(vLw
z#2uAdFq2}gC|9W{>R1*lJ`gw1$-J9$r^xxG&e{bANLBOz53NQ6q{Xz6+NvTe<-)^{
zckcr8NNM0uS<^W^^YRQHR+j`N)JNkkaR;w+{@-25wK@F9MjxVQ)+&U~^JC9`jJnzc
z#RzS-J>UaKBk{k8YfOL$CB5W0CumE+VKU^3w<DFp(Zt<63Z1-ya-Q^t(w{SB6he(Y
z)-LT*0+b|en?8iAH+-J8YG3Dr%X4u;(1|J0j7gp7gcXTX=~d?kJXUynAZ217O#fBt
z8q})GMMU72i_$3=vW$O&gXdLn{9wS$w<5hxGzzKBzWa-Wx?*+HHV|fn_g$RSdFs5|
zXS~sS#gwTNgjLan-os_49l{MhQk4m^*{p96{+!Yz@X?&5QOn@zgI*~VUqYI;sHhM*
zGilrvwW)*};@!YBF?$+v7NltxA}JEl5@~gT1IVIbQbeEP5RL7Kr9&$hvp#!-Y-!f5
z`E_a5PPz@GoRd8M^>%8%jZ0cjrE9@6_YRHPGB`0rZ}{bDu)(L-S4ejSw4dU8goPlL
z&P2vSBz|)hI-Y}a4_iAq7fw?-D5q#d3xKYHUcWW!-q1wajnolFsP@G<!r!>Y36p_8
zNP!`ltl7D^<8QON|C_su@5Nma=}$=R+P34LxW<d?nlfj&3tIm|adZFe9TCZ7{@(~o
z{{0OmiFf~6k6bA-cd`UBLt}CK!f)5#!3yed5I?A=|8d}1a+4A=GlWxrZ*+P`lHka`
z_fE1#X#*Z+uxMsKyzWKQtwUhzz&AfBel`>K>OlG*xs&8RDY-{$1P>2TyvSJnrnRYC
z^G{0@;YeIfC!GOmYw!JoQ7wBaJ|J|vbDSG`5V66x*V!(}XLJq>|B@+Mj!GhA2KELW
zUI@4!@@>F7IfN5)N2b2Q{^(R#Y&M&n@|%6s!*7Q0e>h|qWcMn?|K84=|8E~oTC@M6
zMyLNLOee8_d)^~~YlxZ`ig-i{!2n$%EMNb&CRe&ZU_SP$X3FHe#BSj4Miw^F5-n*^
zvuoTFZ&VzZmta)fi0(Pp#bQ%MP>2w9CW}1y6naph&L)&PEJuc#^b)c}3z~eAzo!xq
zM7}g_?&f8r^%(fB=zCm>;=QoOZz_jWEF&@|1<D25#`hPJh!*TC@X$@9%{M?pYe>AA
zBey;B_@sfh+rUS%PItf+tEhz7)}G_oy8@|^Ogef9T>53!Jlf=i>bNi#l2Ul(N$gu+
zYF&O<6$~r7iG>b2QZCfdH%&_031k_B3TXA>0Ss%=3c}b0z8RG}>Zh~tIC)%~a47gp
zOg03S*ohU7Z0FP*os)&ihsGB@&o)G!61G$90>)iuQgn#|mKuRhK7ZLxIF_x>GXDNr
zit*-`Om-EFP0qEL`X!*rs1_l+lo%Z8=Mq(pgwM*nztfI%iX_EOw#PLVb!3lpQHg0|
zjU;Y1l0Pf;cC0?iw4|fZ1YyFH;=ledQRokNGGJC@#o?_1u&(*xb&H=EY+i!J!=kO|
zgwsQs{t);?x*?_X5hSYyr3cVA8i$eez$3OEA}S<l(hAHcLvweJ+4`?^v{J%aVg`yk
z)li(FHqbw>{YY#IQpEtpPR_0%FhGT|qSDtb4=P?b!s+O!ds=oe)|3NK0(tVh*k=jp
z<GzpXl@{&;wJbJX=ve7U%&Ye)nAh834f89J;FuT|VU!W=!|R2bYJmmA9yvaC+5+sv
ztt^{PMbjp|s(2;Sru*@%<MimV%Hy2Gm>x;|zrbTh>zgdyleK=BSdtv08mIJcE&~O=
z!k{=<mu^vZsGU0(oH^<63s6l8_|elaD>7;xA{hfxn&Kfbb%4sfKC?mucO$3<GQp!2
zmJxrTV<@RGMJDYHmryB<A2SeY9dKE^6bi&iIgG4D-EkZGjh0Qs4}EXQvY>z~4woX8
zT}A9Z$m@V_X=3!9K$`d(BihT3v@1fT>e>Y}@3LLUDBy-Xsy9>`f4P=}o(7BPQpuK0
z`Oxz02mN!-%uJkh=@~LdDEjcn%}9e5qPS5p8+vF*MSn-NiEu(iWwkOB`nZMD7}3;b
zSwL4r5|eJUu45^7+iZj$BFW7QA<_O#>!>`6N_We6b9EZ74X?1alVc4}LpD9Dvgz8_
z$s`2Chj;$*h`6KMMuhz;(z7)EzVW+9yP*2G$m6`MXYwR}T?rhD*^1Bz#}VwPNo?pD
zC5Z^WoI#{xoZEH^?{l6s6pDqqFZp>b!QhfEvS^&S7TmUGW_UF_E=LFu+7h6b)E=Se
zw^y(j(kLl(LRo~SDQmw>p4Z`Z*0h90@h!!-NxC9+u+h^H<yk~CYaR;LeyoX2n{Z4i
zwivU`>$1qq-pHO*_(dI<4uJ`g+6g16DUG5((#$q<=yNd9A>4telL(jyv!^-v3E+P6
z36d)(?MF$*QeSH0x4ut>Rg?zut=8Sl8I-Mgxoz3MNu~bp#jQl{M+wXtv})AbaTq7h
zjFl-bB7%r5Dl*v$W+RUUmETiGACKxx2kY;9H46t9hx*1u*^vn#9jIhPL^jxUfULd|
zH-uhG5CXKsD~a65GVToVAr;J`{UJ##W^FAw-YWgxE~t~XOh<5|k%fHA8*i?jGV@Ff
z5StGd0uyFtS7NyvRsa;nZgO=Mj=6H#nW4lO0mGA@7yrasKq{NwuQH<q=-;yOXc@L5
zd$=NQweH~-q6DHkU8v-e-d@m&TEL=IqN0<Z2&~|06iKt<C&dxZ$eK>pbKw^=(07ZM
z910>Oe-o+*(ONdTFX!VX^JAY`kxmq;jW@*L5r{N1#4>*gxtNqZqS2~6(pX44=Ar2*
zQG_Jo<Tf66gLEg)$Mx&uKg1%V-NswpyoquQ$|RE0-5aEFm^M_TMd`{_R7mGhk~zVp
zAyB+8C;d5Km51A-nm{1!Pku0ybdYOm^pryK1h!g=$g9Z3Bts*OR)a`yfNE-NkBTF7
zF;q6V4vHHogz|ppWddx_*scIw>EHw5Ns%&VV3>VGujvXw1I{aiutKDTE#|5eO*<A5
zas$J<BfSDDVc_2Y^luwooefp7ib^i&Zcgey$;D7vY`kwMfW&J&o_cDKVd|vr_wR|J
ztge8%zrg#130Tsk?l!EUqCyJ(Nfjn}MzHxL^$X`r>?Enf_;h2PDXKZqffG(k$r}MY
zSx@Eh9v>pz!CVl*Jl?@|tylQ;sm56<R8u$-IbedclT0)-VK-ooQP7YFjN@mvec=my
zc(6%$0u?KepBoEcTaZNtG$E88FE5cT;UQP)9yU@$?>o}(6a@odN$y;bU&w_ZU9>V*
z4~b%Qxb;BhAJ?^zMr=J;6-==ct1pxk4wCJ}vTyPtf<6_MOl&f5kSpZknp;;<O)>d5
z0*G%8g$xkIhFA{+tOSOlO&SKG7dMocP>bEd!gA3wd^yQ1@bZ#ww~wE$R;aopfpP=#
z4OIUnU1Ibx5ym7@NBZARDt$;}cQO(f&iSNGmC9+U0#Z5A0L?n@@`A;C<gb43kCM=5
zO3CHjr|$ljg8rj=?|(ToMxGu?+UulVnB4b!he>bw&v!th9yF_0lu#f<3sM=Zp22sj
z!h+;Xl7{K=_C1aE$OIb_g)W-flK#EEdt#V6C}mBeTHBEVYtlrE6o(LIY;>@v=bex1
z3no2XyedBO0*9!@(HP6ZE{iC+1Rzsb_~l_aTVlaX(#6b`;Tg~_Q8-RykC6P)#q~2c
zQxZrlG~sbchrDWdzsTf)@l1=9_A&?B!B!h&TS(I`LI=4G{wYk7ouv4gwCNInfYtJi
zbOF&C`Y@eFT$w0YF#rgSM~d7Yz2xU9C+l(hN9*+6vgD<b?bIlfrUK1BwCHET`%6kQ
z&xpB{a`r^f=2ukG+yV@vpFJJl_pqE(axP(G>(I6r@QRzE7$<TN1j3E559;Yp5=8Ml
zn5@ByIM;<_;mqn%rHKm8zF~yLM_N1^GF<xirsukfRhXv7afT`$lrsw7ZxQlutkz`O
z-zqmwj$x`<Wj?!FcDh1Is2Mrg<zGae=|gR4ri<2-dBQ6*NQss%{t^HYEcDpW={2Fq
z9V?M-oZZwzR24)!pkmT_u7=C5Dj==fJ1aMVz$V(mo*9W&f>HYhgs84yxiVF{iS_BR
z*~9Idn{VwbV(pZ#%pjwWn;4F>+sX>Ijz22nZ(XnOf%Z+70DCFS-CPE;{t>zev^#Rj
z*vV1Zp#v4R`fjAQ9Gvh#DhmiHAL@YtZyx2W8hTdDLpj?sIoy`fIuqkkPgcl$mx!D-
zV=g7fhC>=|AIVuA8Iv=<uIl(<iLrovq7A_xP8*l?U3`jpMO9A;L=f7O{p~4zp{}L_
zl4u2T=qN@`s81hh;O0pRCl*FWUa;+#sb>s~nj9`IJAH03&pw-uNXxBz+BfRFZ`$=9
z^SnXmXv0~R3Zx8ol5#01x0;Af;)9xk1ZgCV#%Px4V@gc1AxtyLFWiXD2sa{qep9<&
z&srhUSkG~_BPArPGxtenHzJi%f^MY%%>}4x4YDxT%hMkl{e20DV%uonwydb{NeHD1
zUGFXXvRDXpNTPvi!@q@3tU||ktOU-_73ImK$_%YKY1fH9h$vu5KU5-R1`N_j${OI>
zF#T8|0~PlAq$PJxTA7O^k+2fWNgAWz=%5r#-U4lU?a@2C@sX$G4br6?47$%q3|O6U
zh>8?JaZ)vNXtzl|;WixZb^|fyDqDTkuj8W~kqcV$Dy<EGa0w@lI7#Y@C5L00?Ato(
z?cXGW4s~2D`GTSt-;Ox{eOy+EY}l5v88;wT&Lu%A5#xb3U9G344gI+o2|ZC=d7X}C
zq?T<DukFSIM$>YXFuKq|^m<>46Ex6Bx+Oy^y;{$L(b-{|u8b4(=;-7LYOmI8qE670
z0?#MPeqm>}uHD8%riu?v@&xhL4Lx;;Bxa#!vehY64P60_*1Q0#m%;5pgV`^F#kMJ>
z#KK+yN?wGd%Hf_9PKh1;L_}6?iki)uWWS>v9_7*V)Te1sq`O3>lq()JLA^d-vGz{+
zs(R))`8x-%QN%Y39S<Zj@vRG^;*PLgN7((H!&a>DPnlhj_-hs2*VUaLt+#0}e@)60
zlq%lZ<iy}%;|-ZXeTlF~`k7-PYg-)}G~EiGq=>c1=d1{*mDAHqz)5L!jkr2q6mc}}
z@(boW2c=sG>L0EL4g4BMPRssFSkO%J&7<s`antuk0VO%3#W@Se4A?{Jli@Osm0pJo
zO451s{MAZL=xr-DP1hxcNQzO&lAP1DJ;Gb>ME>P{E@z_pdme>gZZ`=H`X>3;Ab(A`
zc+&hZCz=UEm)CFvGW2i3eO`mJ`0?it4A@=gYGQqaVSYKslXJL%k1OxTh>A2q1xL5!
zM{q4wY#W(0kiAw*u;MK(DSNkFK7tV(EC^a^y6CPSYMrX8I#H@R{K9ONiMTNb375$-
z*XmSDLxxFPdIL74K|yj#t1*q+4?}4g9=Fd1hWg0J(<9h#OUsr-swXj8!@l0<IFo+y
zO~8iC&yo2TpTVLaQ~^drR-)ZD6cRA#YFQ}px>2DiQN#_U&2b#L8?7*DI1)AqshCYv
zKRuPXwl(eU)1GZFgMR{|CaKI+pa!b7Ir&on`k?R=EUe)NNe>6!!_L#}Gh(C~QOcM3
zeJ&vXsh4Cj9E%ULODh-fGV4_1umi-I5tXcwN4hpgce+&!FYSy&z5^1alVD8Fzy9rd
zg;qqBxf@5A|8{9#I`)@75)wcg$Ucl5{gXMMGp`_7>ff4zUeYp?ct?^ZGI;x7J8-Qn
zFcFA>6(WwKX;x_1jUJDX_+tj<6b*f!0eBw&_G%;Ztsd3m@dy93KOAel(Y)!RQ}?k5
zMB9|T0PR7=hBMtpBr{PMnu{H8h$7Z{Ng@c!MbX>DR|hBP4DCl--Nuc3Cg_<x&__VO
zDx}ET=E6={se~3VF13}V(J-(XO5@1IWiX9KH0bgs^)>fIlATZO%MBE+P9Fc9RL+dJ
z$|5B*sp!v3b+SelWiiBLU_#_^psS)9o&>TNqh;c;opbhnCE8$88Ry|aiYfr4D4`$@
z{RU*TP6&+5-O~1;yr0FjQ9z<qs1;|3@w6`;n}gJ@5+V$L9E1ocNpjI8@>A!C#C7Ua
z#yMK+*CBq*6O#s4-Gs6ij;*-(K<Wpruq~~2D<h=S$o>oK-+yH6@RBUWvJcTn?2u+N
zge$tSeD@*}ije&?h@OFh6P$^$9Q!gS7Gd-VD4`w>HG!0Z7u6Sjl1Y!SB#bB7uB+K<
zNj@{eHrr|o^4MN5i*m_aTV<T^!fVD)taV4$E}*(ckhXxN>2l-sO$e7aBkTS+EzRND
z<?c%5Q=L%={mjR6sEUh`853P*E}uxl5D;5jxpQ4_(w$BuvzrtpM*0i<B9r8bEz}X?
z_3$r~LfSXMJbbAmXISDsN%^A1Z2?5G1l^IpDsdJfcpaX-(J4}qT$x%LDem!**q)0n
z7mG=R(vt?xp0v|=1Cl^ZzQunt(u2jvXkq#(%*4li*|lYCl9H3m?0yZRC9mPB4_dR2
z_bE>#4z_9lHDrth=Eipx50TXPKxAm>Fk7w48i6VqLWbb1V#ThnyF|-|p5zaAMx1sV
z(~KDNJ?iF9qm}k;f~&~p1CP>E5jQ^3-=(lMa^2XpLA%wb_iUK@dLHlP-=AEaw|?Ha
zsXw186uByLY18(pvkuDEgpHouuC-;4^a9?M?(a8kUAt@1g5M6Vm^yn`*nCH+z3wme
zejXkFtF(Ua2A9vJb;}#d`kEb9TQi-yTsUbUO+i6?c=-P{cir(=zHj?RMY3855hWst
zRLIImA(ccK84pRevS%e^l|(8TMUu?2GE#PmY_cLFJK2%m<L>wV{(t{`ee_4)Z=UCI
z-Pd(q$9bH`d7Sy@NO#pMEke6??J^#3&r*4AnWKjYbi@?{DB^V<q(Al^d^_ZE<3L<Z
z(2W1@(ydkL60NkkT>AWNY>wW$XL5i0G8WO>FVEYIcjhs}NaV?^$qL9$m4(Uf1|<60
zFHXN7a#B%M-6<{obtL+l^md}QyEF9NnjdrSkKb*Pd~JKRmgAkBZAbr<hmekb)IrsZ
zHp=hW5o~oTQ&UqGR@U9!IwPZ$!J2H^HEWEa01pfaQ9gZ|MO$bqdYJ8heBp&Kf=)m)
zrWEzeG`TtbbeX7`mCQ)3`ZKEAY<HIU{FOsQ@tf=}d<G!^9Rq{1t?j<~$?jla1TsC)
zGU(BAK0BPYCwHjWgq?$b*lC)l!M3*~6qiy0GB{RFj}XfKyj~dx>xr8B-6tRI;N$yn
zMJ9LPmV+i><vP?(!IQ1|nrCO1z3+ZuPgZ2=)t<9X#Zr^|;+_rkh{o>Ysi|$1S#VC)
zeDVRG0<&c33QMla?t$~$m2BF-Adnm;yQE~?XJ0f=ut}va#SZ+i5U2EL@kn}%t5Lj+
z>$A?8dhsq;h})$yx0jBYzz0gv(^JOxgV9=e%HDu+#Tr^#4~cYfbNaJocfUMmH`+VC
zlvMf9>9Kz6qSw`0=}j42SzohX?NOw|ur7f`<mRv%z6H$tF?&1Bsi^MeiT!$Mthf-A
z@CPmL_PYcGzJqIHrIpt0FLBtKgqufPLI@8`0+}J|^ij{3mX^T9a@^sOC%vZ=9qtw-
zj1Sf6pSAwHj1$t3B*u~da{S<x=2EnLCN5<dy(7sAQz*72?Y|NI-@ku8#J8==*!G=U
zfBV;nxb^GTgE~v7IB)%V!}pk<b8~A?yH<r3ygfbXUd8G-P?S9Cepcp;oN7(6k&L0-
zy*sjQlb^AXa5wtH=<3>Nb4^oUes|rIBgkY-wIO|g(E1prkeq(5vCYif+@wBMb`ci*
z;W05G0E4`Og4IoZZ$ncvu+*O{#A)naGRH_cCuPZH4z~+smDpGPTWYnoKdkg-T@l);
zEl&*!9D~?1yMETzqWR`?UBr_ojPXA=_{qx3#azfMFc0lLocC(y^v8{<BDJgnex;E6
z*ncaflCWxJK+p-V3=AJTzb9$DLKd|Tt+h7nR#ja5lbpI|Mx{ny0J^JZ;E`T&jGdq8
zq!Ao<+o9_@DQ!1l9<$)@aIly+!^_k2bei5lWR>e-=2U@&BwsvL44bcV+<T@xD@Q<H
z)bQ=DxfqFxh9W`kcPalCj-$X4+tAA)Rw(Y7j9Z$c>e6xU^iNllAQj#&E-t<wiL*d%
z$k4#RfH8Wk2wzCidH3#R0Be6bMf=N@oF9!z8+yE#ZSW6v@bbPdYk2!WIAcl8bjm`!
zba|A<BFxY-m3dq$SM8N(*WANTouf4K-{vw&oB7MlFE-x0cQ4avOa};yAaI8Lqodg+
zY`!+9zppo(yPKmHDMUp;@lJ8p$i?TOBCfQ)vTV!!-^G0A@ZG=0eEV(Pu=5k4HK*Ms
zx(nID!^0QJhIhVV>j7yUHNiruoGUFK`pN<v{;qm;eEfEM?yFMD@QY_5cEezxR!tqb
z({%I)eE1)9e{~z9Q|jTY)L3|4q?4lUia}y<F_Phu^JGWE=DnIFhAO$khuP5lcCg^z
zA^%)oR3wv9l_qBK>x1@6#h7Bj*mm`SPj07L<|<__$f>&h*5h|ss-7FDzRItD^5j~A
z^l~njP!foN??(du5WdJN(JRJb8+=Oh!9GLk(~{}W6Ve6K@%YXcIP&8;2eh}hYc>2>
zn?Ly|Lpv8?wDNc9LyGRBQ5ugsX^o>BT>eE?g$|3$d*ZcHST=3CvHEA3g7X6#F*#|M
z$q?*ta?;n2retP>B)|Ljx8OOQH;n7!wVGeu>Qk+E`t)6i-StSQPudFe^RFeoJXP6H
z_;LKx+s`6aE8bdK_x`)Ww`=l$LGn@xW>VerXvElgx3}X_iAhN(I<u5-FIS$s?~cv`
z*ulI&SC{W!#!E&9IyzCadNt;GgGEk$yi=*#DgBXdHa6o|d6mPB{?IaVm^uDC*N@|#
zPnJ6z64j_MDk1};nCfKAg0`XEw~=2`ADh~Q3Tjo;`E_GGXwLSA`myjomp{Q!{AusO
z5A4r7evjW1xFwvvq-Ifzv-pbHz+pUg_IGJGB{lK)hwiwVqBJ>Unv5GSw1t{qp4)(Q
zt_-LO$`T1>6_q|f5g2X=xi3tHf*JV+S=6OMZzMw$*b_Vd#dA(m-YX_1M);POmv8E<
zsjI7mHlI2EXB&q{?Z}UR>r;|&z0LK4>i5W<I{K7NipJQg?S(F)k0dN_K+N*^RT1`J
z?A}6tG=AMLxvR(d&FH@?^&OHw8p66W_w&H)pXCJ_;!0b3T6=b<d(YQe$tk20Q%-Io
zes?Q<F&ZGeW&{nu6(wHFrwbg-VP$you>r@;*MqMG<QXY(9Qk~rK~-3~YpTVRpd;jA
zmW>a=(nYihx!k{FpqehD`xdEb^dDQZ{OuP~Thyl9tn6gZGEg+o!rEf}tOBhr3<Mn`
zqsYNx7si-^A>k)!Sh^fJ``PwL+~f_E)ce0boW*}iAy-pzX>oCfj0_i4JxZpge8|0h
zk=5`?No|9MrxKmnyF3`W3ta-#l0KlbCe!<m`@rBJPH|6hFdBmR<mGvAMtAeXWO*#u
zqW(+6<Gq+r+h$|ik!#aQEhsasq^Ov<Z?>*dSoKwF)Ir;EI%ei7ysBB&uY1^YPsg`y
z+jji;@lxE%!7}W-1q5hoYHHA-AVGWs<*IP}cwmQDzcrWRP-d#&9QXya7WkExDy$%`
zpMQNRRN_#gX0no&)+S`-OawXxGWlw4u^^v%igdq9{r&cy2Ax>zVCoSbMMZz78}EXF
z8)gRi_Eg^9-dct>w(r1G=sQ%gW{S#-MAo+!?T_4CIn8Oy>j}YAe8c6Kp2K1G7IpeN
ztE3VVe@UsOzg65bxN}%4V)&G}5=}+K*UW8PTzeTmi`#Zd#>o3z9F2^Qh`5Q#cN@`!
zLlCo*-JKK%_n>EOp8WQM|Mv8Nr1L37uWz5S&MA8J)zq8yX!E@AbMU#URfML}{%`MZ
zN_zd4fZY-A^1Nn@<aMm^qZn2Wjv(~TmDbm1l)ph~l~+!VyRWa0-<|eIp{-TzqqFE;
zHYjvH`P(R?O+8QlMaz{D=NkaN@!0jYw_Cchfq)`Qic+<Of+-)%tE!&q<y^_$F6{C^
zR#tX94K0&ILCDeb=h>fYJT#pVVF@eewO|?^7>Kv)EouB)S#a4iAt*RlI6OE#=xEAd
zq4yu@{{H@;u2EC#QeUb@TH2(@?(mt`((oePMk$|#NyAj0D{u5f&?0G=*yTI&XSd&e
zkKhLa8M5;O$w|K+QexP02mEBG^}ikti+w#==VoQ#r74)^8Fuek`f05tgNn$uOLqMl
zvGO$x%l!NIv!H);=9*;o@l&U&ATPTc9&X|siy1lV9UL4kc4Q8YOHEWCG+J-)=iw(V
z{x;flIcK$(%rest8Gm|u^^IV8wRl|H{;ctXyLtjTT7R@>J=4!+<L3ScOaKFqYid^F
zz@9<98h~OwI%Vuf*<>wRZ7e%5K#Ci}`F+#g+S=OTAHPI9DBVcul^F<XiSoM4uG`Ug
zP1jmAY;pUALxO^I2r^2Jj^bKcT6d$O{9|Icv{SU!hH@NKT%Mn3h(AhGxQ|P%>+n!m
z%Jg#X%IfpxtIZ9+Zu$8cV;aOF6tr0`Qx}0Y)`A#Q#;0mX)6e5$vr3BUK7B~PPM=2g
z*ToZV+qt+x;1Sx7CX5Q8IP!hQ$E`{2=!>(-Or*02Vts0!$c0Wj+!#t37mH<_fn86j
zezb^Ti*kGl`ntNlz6#{FfpgcBw1_S|wdxB3f(clA$~(an&-8(pR<HB257*Zeu3fv9
zmzS4nd0|QwhYJuZ;MJ?WB*enDTg2Qie-yyor8SZzuWBCg_`I;i#cTIjN3U;bRdqU(
ztDn{hrk4CH$9AvTGyjdB@4sKaw770QK)>*RzN*!;uKz##TXn@gqY{SDV>F@1ZUUdn
zi*@oX;Hr-dn}U~FjNXGB1Bc<<z~c|qY75}qp><h;1H9^orUcg{93q8h4LgK{=oRTs
z1)%0-Oe4B+W288SBHb@3;#jSVlecTit~Byw^jVnd6%~tPp_YEaB>kkWrO)G<zIL@_
zfGLGy-W@eP?KH3c=HL5h#>t6Hlp)PHl9MKI?%1()sD<2wuUkB_W8gG0qcJnv1tSPq
zPcUSzD~nmlWqVtSc<)SvW=R;FZER}7+~4Cru1R}>Pm5(zbw*#L-?3-!kuD`I#1x0+
z*miTAd?fK6MhZ7<I&%xe4fyyRSvXy92fk<)^K?77;ssaQLn3+PT!LDy5i`kEY>HT>
z3gLomv859;i_?@M$iC_5=|4QSE4l6Gw<bo~i5`Zq_#|RsTv9gxxk*&?;&cKv301Iv
zP6ZeWxhZjbD1}TOx;mt>Wy=<0h(2Cur`$^}3qObS46=kZPc#G23zbtXVUa;Wt0Xmn
zk+BT!#XTeEZwFROnagY^Hf{`0zMP|nX>IJ&)6*!p(|^1#=5t}Mpx|BickEFI1SBMy
zZHyAT3q*d|eo`Mia&?H|qUW@V*`-TgC47z^r2@xDk9Wa2_{g<Aa^0!l1&<#-yp8xu
z5P%cIeU}Fw+`C6j2<oPDfqebm=#*#G#`OOE`+VmK4tT3vM_s5QX$*zL<xE=gA?tzd
z*@uWnrlmmW!82%+$Y>M^<$8T5&|m@%<k;_mjrma02cwk5ci_Ng_hN2*cXV{*yH4{#
zq{I2fx})*t#?5YVw>GdTX0$y6D1V`!myTuW#$`+p;G3`OO?=H*y^_O${B$jW;c%n3
zS515at2r~tQ>2y#=LUMjM8X%12Nz;oU{pi+qQ`pYu3gIW?SU_5Srp@4rg|DrZ!j@2
z$#<U<LZTOd=Ms;o1K^MEpEEN`;7K5lx@F|Ov=*7Q0>X%_0X5%XZGHWN%C7APE`<a<
z3y-^)QHA6WBbq%HqRct5tJV<Yg^EtT$9p@GC3pVk6Xm?WNlQcI+I9!c&R&a{!Sb5|
zV-UUwU3!MeImvgSgHmhCFf3e0kSmM&XCQ*ghu&Tua#x}k{!`_^r(81hplHJL0*-go
zG&BvlHu@xwT+Z$e;6S2c^3h^9_}#kI2Q5}5Dzl#}Upr6eS$ecq&IJbr-8l9vJnVWh
z#f4v&`+NVu$E{~IpGe=z&zD380}b+D5xqAGo}NW50Ui%K@vQQ2>3>1lWuzDjALZ)W
z2Yh@o{ji7#BO1~bp`%Y|xpF4UR0Y<E6x5EZtE)5FBT^{$5R7qEKLv5{b74Uh3&-oH
z0D({fUajD&#pC%V_(0>OS=iYFF}mb&lvot9Qm^HCD#4;iX#jOl{5h5#NFGc;e_l#1
zbdM|GyYu?>>+tC4Kp@4Z_&<W^30G89Bwr8I$MLUGQaEjBT@i7gA18+bty^7PrQ5Kf
z3}sCR&?6nS1IM{LANf=w>&x_7b}p}|NWi<$F){hSdnZ2%D@6noW8}z}JWfixr+1t^
zB`B7+7iA@*yAK}F668&3m{l<Lb*En`fZtEdp4=fR$-Y%cTLJT{r_mU!-q!r%$7KXT
z%m?ITZFBlHZ~|HP(KMZ%;^K|ZCpv}k&v9K4zK8@h*^GRA+2Pn7LMq}14y+}p6j0bQ
zq~lcvieF1)nO4w8)IxNjN3ftWyG4->eZth1+d(D?i~R*^OB$&P+b%5j2Ws-hS@>=Q
zB4VBR%l3Bz9UTjbUdbK5+6&Y0lhNHe*RH+6HOHn%=P=$b);BzC;aGya^ENQ}<B(yD
zDY-v%;8kr5s-o)&(#1kTs=GU@^P^+{R@nUPco;Y3)Zj<-kC6JrPqwM>-|I)7kmsQf
z&@WM_`5jqm<<<*EM~_~IvqVURxu=(ximB<-j_9BV_4XGz|DvpQRWb0Xn<uET*JE20
z1Cdqk>8%XgZsl<C>hHNR0UNSOk16e$r0&!Ki<x?3>?yt-J4&xGfeNY~_=UVU=dGuP
zMo9I?kN46v!UnQrmjwJ+3JMAi**wG9=G(cmj9-l2q&SvEv7o^G^YYX?Q6dn0Nbro?
z=+}sdh@Ee*jhH&?!vlx!$Pw10=4+U#=66E*sJ8wayWWcg3#Otxs+c?ZMEV@TQj9<#
z_Bm=SIt^7MUV<+4*iL$S`WQX7jT@!HWdB_SkN2BU6UI>R?@s2dj6Tqo`ehp!)_v1v
zRupW%%Wdh~f6dH1>1oAs?KdtZUN^z=@ixl944B!Z08|tn5kYY*@mQGT-MzbV#C5#y
zb5`Lfd*K0Hh#_vEO3*ew`{@&ADk*<M@YS@dWkswD=MFIo1Fi>zxf>mQ*~tt3?gu-@
zTE1{*Sk%Whx<=v?<mN+=>3m}85H7jY&O<q$k!4c}a$zE(SZ+Y-!b9O-cHlRDw5C0l
z*mA3Q)22-<n>SOOmT<zKLV&^VuFE=HclBd*&dTd51geH~!y|cNJ}=9=vMYeE7zt-t
zhEIlV+`MZLll;Ny_l(Oxw-$K&wpd|kf7CuhdV*cjKK|s)5rje=!WR$Opvd)1s|_xv
zwXwD)yK$EaoRxLuk@FNRb^))+Hxno8q4OvzHg=z%y$$ol_{_rtcq0*9)3+{Wut`7B
z<dSvQMsY&*k;QP`lijtHsoWbkZ&o0SD#xwihkt|nf=^8B4A6Z_vbLF7BC!JwAHv8{
z$!F%LnY<Yv@F~J~<6F&GnG2>Kj&t9fRL66(^Jp^;RJBJGfPdSm^XfdWjqu^ay5K?1
z`vnBBjT8@6=R(uTZ222mi;1O6FbD-c2XcFKm3Zk(=R)7M5rHh?xs?P*_``>mIi6Hh
zRQ;&oZ(`<_VR0`mDPIBSv58QIs6k|2&8p>PB(VeAg_6ZJ1gN1Jv<Eir2~JxC+T^b8
z{)>tAr_Bsy-Dg>Fo;Tw+!fhA4vf}A5)gw!0kPXSF;x@^;;=v1vaBkVM3)%{ibfb6s
zu1P=9=HZfZR37c7Q@{mqv{k$#qH2D~$ksL;4`n0dH);8fgF$cNX5EWj7k?&5y8ev6
z-1I#3O$idx_ap4LGQB5-#PY1e@c`0>p+k5rnIVuaTj(+sH8edpC!)15G&qO|t{DhR
zU_OTnqwlReOQJ{nCO&c(RZ3A(+77|kJD9Nu9*i%euYB987%1oUn=XDpq!p)mGog%_
zn6zNfQJUItxg2ES$x8RJRuRh*FjbFZs$y-{u2~a^_j+Vd52vMIPlpvW>uA)$5^|4a
zEW+D^=zY308AnX>B8wS|>bMYs=n03FMTdy7n%dgUp`3@KhTsI6-Q6ke_A9Yv9W%}M
zb%i4OxzRCT&4bAcRi>n()}`;m+Tc!Em&q83sp~Yf8g-Pez-+8(@YsQ2^uIMq!&iVN
zp!G})*Yc;1m9g%^Jc)WxmgD=Hpe^P1{jhF<mYF;HNk)9U0#cz91Pk1kB62k52eOKn
zEP`*`pl--ER}T*LnlBgho4cxeyTCjc>vg{PSai^59F;N$iM-xhf-*e_%{eL8T`-r8
zT9E5Q*%sYHKQEb^pBRI+%<5n>#<^8Ha6P>q7)VzNj)sZ=hHJEm2eZ70Da=#^Fif_!
z3seoR5SyLUOhp@&Uas|eLJ~x|dhWRtE&hlmoXOqAwk<EWqUX>&Vx|Q{UJ$Wq2>@Ll
z%_=ityF1-mtJ<Fw{DRm;ow;sLU0WL)^6|T?e_<yP(-TWxoX6GFs0pBq%5jl8p-6hj
ze(w68Bk5w1^uzo1F+md(Q{jeLhPUuRiBi;lPu5Y|naTXDGuK8Wy`JlPK=!#;=Nl57
z*dwgsq#}F}p%-C^KoH<xWLD9f->DP*w{hg!;;&j!DguJ0qu}N`+*+<2gfS8Wfi(Y3
z1uga4nHcd)>Z=`!X*%SHIl>q2D3Zl;R`;XzbKj!5dRBVZuJWP5E{6#>;Ocu35mW?F
zg9<j?$#hlx3|9G2g-vvQ<LM*m{Zmt-+pU-y6qE;~tjWBK`pc^e2i72!6A(~!fAj}j
zBBC)(nocl)PHlEKfY5~)+snp|73Y(Y`0hXQd2z$5B!R2o2{1>EPN6~cljF=#yP;D^
z_e0^<N^6o6No*r=UQ_3RVccbnW4Ic7`-}9_bgtM-d#~hIOlx?|k6Sj)Cu=;UCfc*j
zH%#`vGcwcj_AY7uxeTS&`>Lv{=T5A;5X+1>9XsZ)G`4^DzrYYe2?`CprIwVPpWcr;
zFK-1#MC=EyTU=gN_W^)VfyXhx6d+WPL~d`fhi;U(R9Wi^jqeecNn@0U5$HL=Ca?GL
z@kxo{2tCHZb4XZtgPWTh27^fQ4@ISM%ed|+o?lqVbCYs0@CaELL)Ky`7Ax&Ex&yaw
zzYNJkoj5^70NClrw4GyMY{!LvtrpfNFLoXJ3E5skrUm446oLSGx0WDFDg-^}E-ss*
ztjeEB)m-xO@`M6VK~txYZhB0IrGL+1f`yCA+CkQT-5ynLx&cAEu<mo@uG9is6WoM-
z0FIE6kn~wCB9{|Dw{Z-g=KPc1FDz>agvLw5sd_mtPj*f<r$jVIXCr;*YeE4_c#i4d
zT<KnY90e8kiJ;i0juQtgeof(#HjZUx?oSolYSERM+%$4GGV&I9h!IgyQD&^emyv7u
zR;ja74~?CaNe=0F<O8#_qu?LJu+kuU*IHUyR@c;of4ori3W;fw18Z`5*S*I_(q${<
z75)7E^$hMfP_m@_c~Wru+Fnh^O}9WHv)l%sZSHl}y(QaK!?@mq<fhuvlfIA5!y~(Z
zqCXi_6MIZ2slt|7w<7V4!I}P&L$>x=<*hu{z)fP_E3QN-?!4fEahybgpjpSDaEpHH
zc*v|zhzAw9b>=TdS9H9Ej;lwJF1dB5Zdq)yV|&z!ezALwM6+L>qpEGkN7u#8>Y<-2
z3ci1(czWlX>SIC%HBkh0UYNgG9<T+W;*$vqV!`x39~SrZ$x(;qEQ%_jfEJO{Xw*IB
zKX@+WovWTzX|eOfqprTYH^Bo~JG@1vgMq(P3av9``MO=m&0f{nb<woOc4mse_|b*f
z(xd0K_|t^AmB-6j$%m8s>g<?qYRixA!o$8F{NcgnBAp}0KmNKuq)Jy7=e@fYOymXk
zVvs$7A81uNXD!rEolR;On`>-;3qJCE&XukEE*1rX2z(kJPq-If6zT;z+{OA})74s?
zN~wWS-or8GMMh~Y#l%nGzQ<3Z9y|~jR0c|Z!d$lwTc&ZYgseYw>_%EzzV0G^>zz=M
zqDwG2nQbY~n$o5Iaxpro66MI`e9?|s`HFy@f|KOkVD-H-bGyk%0P(#u_}yavhTt*K
zu<wy0QW1dghZeZsJO_wwl#KE>(Pxky7;Q<lm^ZmL&o1SdIO~p#g_VclQs}1nhe^?L
ze`e1Xdh8|peHzD5hk(nNuH#^)D3Z?#Bxh6v^!4xI@x=m86GZNdmQg<W#BG&&PO2el
zpG5Sx4d2}<FJ4`<m|zFy@3rI<YAPbF%>FzHZ}ifX$`T|$xEk~!Z_PJ<jH`GPNmm4h
zz=B*@W%aPP+Mx>;D`tx@#%vvsQ4Hi`)Jv49eIQx|nUsbmlGrL3qa^)Jlig9X<$J)I
z3+~?x6%>4DOJNr8Oco0-4R1ee8*@$gU1}Vcyk+AqLIH$0g3)!<6NtrLrS_PXw@y}X
zuC&lA^p(Yv7-zcAxDw@<vx#Sp?^*tI9x<vRRaca_#dsQ0yaL18<)x()#WAP_1%YEM
zlsTr_{-|nRoLjwZ|LUtfBr9DRa=0o|j07fIw`}o?kKcjK8n1N&3!{AO7&QUGqworP
zhjtG)jm_!s*yfp(ts`zJsTZW4`2!_u;}|%~9+A#nd{6JSm#Skh>8>3+;;Sc$uV23&
z%T$xvjM?=ZMvjoALrF;E=;%mnImCdFM~|HuRpNKg@t|en8YD&!+=KD<-;nBF?#Si`
zc|#rlbNx&!H@#WVbpC6wFxl;$9sse8(1vyHl#{zSY9i`aiYvF_osSRrWEw%P!!F-S
zuRB+nodD!d(l0vVJRXRnhve|u#Mc)7G2ImH;~E;EpQwmLIPU@dR3ag^hjAw##eejg
zG|U2MaIY!>6`le3+r+4&)^1U;jiZ9f7$5yd?>l*5+C2v^(evH~SA)gfhBRSMgSx}~
zct_(HKr-K<L#)7#$AAZCy+QH-SCdIFob76_d{2HoUPJL9nbO8FD5_2VuKv+tqT{s(
z=!E${H5d^co>xPo?2)*1#aF5`DOF6&s#^D^y`g<B1=vWus*ut49qRfY%_*A^hs~Y0
zgTF!fn(ze*1O*d5FknX9s`|R9iZkaZ`tQC7uZ6wcI;iyCQEl<=fJ#Di<<Fl4t(0$L
zW5KvPDTw%_p;80nV$7=QL*<o~e2CN}b8Bq811blYW!*$dq@G7CFD{ZiF;kimsy#}a
zP;1ac3Z1*5mIQ9&Iv71Xw<Nb`;D7V%j7I)~^mzt_F-hvAwvc6@#+y#~X+fisA|;21
z&va6!0fMM~n=#Sv?~1_3D3P&j8$Un49ccFf9iq^;biip;8;wW=a6Vq7QI3B7`lA{e
z3>YjR5HY6pK~6Xw<BnB04BFE41K>pk-t)M_xfiFYkXl7?q=ek^_g7P*5T$6JLj`yp
z?nTR9awSOUgsrq6LEqq=x8Z*P{FloTTBklEJ4^s-)M7$z15pDx-4H3fs<rhieTudz
zLOhF$p5CKo!L%)ivC3f7skVeY>%`tmnVg%RK8h^%C%ll!m$;1P6W@ExSw|3Un+2_Z
zY_twW*j8IIo~Yka#+-`_CUc1@N?Ccp{U1Q$d%%I9eT_3?&l72<4|pmfJ?<K@Tfx+k
z6}BfA(+#AMbgY3?=Bg_vB8lj9tY-2}&EyE%i9?GJGA9OTKK%au`%TcpPksKbGF6$?
z_)^gXt;j=7@xbmG_FBH%%=6E(+_>#Q0R+RJ%!vQ_9+SAOY;0@+h>m6Om`E5z@zf77
zXzRAI&L(oFLWfk}zgUMW0jO7y1i5)tFOZt5AS5OoQ!7*26see`WrBrZ4JfiiuOw(m
z-cS?6qQ0*ELk@SiWye>iYwj|)t_BtQ{4JT?FKbn%%Ca%M=wFOb-ZzLHn3%W=y#ed-
zYv0gGRZ&nN$UGN;lNBm@A5uVZD&Pbw3augBvK+`O(Uisxd+u$Ei;MBlfGt83Yd`Vz
zU^371CWw7d`QpyX%7VD}dc`q$9v&XVgztdN@K3?ODZX!5Azxnt^aD30ckMyOdJ`PB
z)Yb@ogb-D@9^oQ=WV=$jN0**~p&WM$nGKS<B!m=__XAV_^kYHM2FCcDy`D3SB)M(X
zx;H|pM$jbgVPo<so)l{=po+cyeos$Nz^;(6?MF=UM#t6FBizN=+7gs#yNcX4cjnnu
zm0qVIt34?OaGfQ^4k%QGqK*z@m$UP~+L2U}1RjjsU;%rF40k(r5FDZFu(wD%7kgxN
z%^60$JH><!=DkAV7|9(YjZea?diGvi91lqklf^$IxC%h#V4ng&k$HktBOm0-%1R>d
z1#rq|&6ZHep%z@>EjJ`NZ{o$p;<tvy{$RN0v_JGzwF7RF)dMLhDU#+#ID@X@3n+?H
z0m{nGAFHeHa_2hFk6&m`H|#9i*fES()GAv=6#SB;&PJ3XUxajknn2A=6>!SzjtZg|
znjYRybmnEb&0KmAdO}lKIn0Ea1PFY5!mvEPgY<6Anl)s>FqSDGkn41U;#ycyvMMyt
zF1X!9f?kCFzsA2HOYdIf<mPIF#x_r4lDZVsB&h*Iu}kI3Wsn~ACM3uLG~9-SuD!&o
z@S4>E@Ws*&UOv%Fk^yj94ns}JLz=4w?9F~kB?Ec8f$6%zLaj&#0*nsn!%<gPNhWR?
zI)cRXLg!xY5?O|ODnXE?j=Tzp$^jZ-L3>_c)5bkSz-4fXU=@cT<|~D_sCv;<dS~42
z<8r~QA|FsN+z)UIU37U<A3;D1dITlvvQab%%jI7ixo7>|x3eGn0Ym{Kc(riQ{*h{f
zS?7WIS>o*B6^k47Cb+DS&_d-?zEEkJLWdU1RAvh?&M{~yR5@L!;=wx^%VYSNc^?ZS
z`4h^Q5XDHv6qvjUptPwG`@kRTTXL*)6B84SAw4DU*c&%)#OtJ<NmAQdglYjK!#jaE
zLl8|}rM3C^w04k5+<(6YlG^`&m(Bi91-(D=z1)>8_lFBZ$u92`Dw@jaipDqo2Rh=@
A9{>OV

diff --git a/reference/plot-12.png b/reference/plot-12.png
index 7e906d1ef4abe4115dd9120243dda6d8f7defcb0..61ddea79ef2fdddc5a1d1a035c51b5fde83c9edb 100644
GIT binary patch
literal 38164
zcmeFa2UJv9w=Jw~w|1LoOsFKqh$K+~5di~=5mZD(LMezSsRSfPwN(@WC8{80LL>`F
zPHGbx5HOGn3MB|qKoKl*_~$<8z25J>8@?M}_}_Dk9#m7OPVKY9T64`c*W&siHPtyY
zm(H9rWy+krdsL20nevPMlqu5;ew~irFasZU<HvM^{i-VXiGM>oGu-gwxAS|nt*1;8
zyhi?;>eJF=G-b-NDSK76AGHtZsCV$!HM*<Z9Ul3?>HYnKdzZcZ_1Rj_Ws47a%=0)U
z=lkdS1c&O|n!lvDzvL{IPW8EY^Tw}|;*#zwr{8fGpDrzKxqbTdpNazSEKaoX)qlUg
zg2VGBNnzy|wIg~JDeOM^@Uk>bE-NK;;8=Z1RE`UqbwG(xHiH^mgr9`XRO*$P;8ZE{
zV%xso?5W=z+4pi5`NgdxKk1X7?*8+-e<ClQ_`CCwpUc92&Llslh_3qh3;DT6^xt!f
z>*}t(eup(R7iwy1_Pm_N<DVX~y-=3S-OO`)B4$mQ?j0K&+t$|R;o;$|L~AsezJ|FN
zZ?0Xb`p>_9TVt(hoR_nb@Q}08>Vx-=wp)>Lv|ag^2gq4=tGK1{wyMze{Zd(*=5GGz
zzF68o<*1fcLEF2>h7B$QUViFI^4SAfoV>m=W!yJg-6d8hMe<B($P(ia%iWpW7`j(&
zZS7)ttJ4COxx76sQf~74PMt|gT<gJ4*HrOPM>RF`7!#wd9v*ES9XIc8G|s<k9J)k-
zlWARES(zW3(Y2IM_x$#)BOQtSoyM;&{bHH7P%C$Qgd@E3+FY-9k5vn<DUW`-qv&MY
zY?YR6{%p>0u#$_Tfa~BVX{+YHp2fs?rDS!QTlUu&7fj>X`uqL+_jT%8lNYaLe(__B
zo<2f;`L=bK=J+LSu(m3Dk;c;l*E>@hlpH1m&%c~%`RW(G+&6bO8s^<t=+Z^sAL86w
zxVJ=k@D)$;+4`M4ikr0UKEJukZ|+yzVlX~BL=A1EVPgEOnc2<Z;o)lQGR3Bw8%sTE
z5{*@Lbaa+q_5G{0Z?7Jn`W+^Py``k2M6vQq)Q+xMW72$N8)g0FXCjq7Xy6)t-?m6q
zh2iQt-p3fIZN(V+WMpKr`fZ9t!<&PHgXNf2x!33W^{Xp#kB%o*=@<L(%UL9jxprAI
zid(JHoUvt7Qc_yg6*^y(BrAV(pVn(y8U5u$|A`l8507VYT<CFz%v09{d&%b+!{UEj
zOt>$Z-uCFp*w{crgK7ONKFK%gch)~F<K%dIdtWk(>k@ML`tHd@N@k0Mi#~_rHsO?@
zFB@EvlAPRcpP87r(TyFG^4YHX)HVGAO&X2Ckhea=2u+b<ZVoEuw&jF{g;lv$#p*E)
z@3R&-(%O8|ekB|4{t9~yv!ULW_yLwvK~!A!iRVhn6GLSM{-PSg7gQQc<QfDx_5})$
zA|fKxT^igb#(MfwaugRy>ZaD%R_R(F9Q`;$*#p~u^XEH;jbs~~VJeRgHd%gsr#dh^
znln<*F(?qUyXnyPnOkf7?$NHESi3ASA?NN_`piWqB2qMHilg0sN?X*W+Be@;omtsh
ziTyq8(Zh$!Mf8<@?XlNfPH@7N$Ic}<*PaXCb@1Rpp8`&1U+LyAPy7sUyR80-x;g=}
zV}dQx&&^sVb$<uv`$D>`_;@gW$;LA(`}glxQJKvzD{hh25_mlI{HYfyDXNk|p1P8J
zF)=YcDLG>jLiQgo4(6^=;<d4{3GSemhR9oTE40?6km*bv>B=zVwpZLPZh4fIr5Nhe
zmA1JjcfOx&T=uYufKB;fm*I47xDq$w?74H-FVEewHq^fHI(d!zo12^WFdN2Y^S$_k
zUMNnC_BDlAmtMyWrP|r-CROF(!{R#0;_2z>kD{W)$f4ZKE!Xhtw{9)<DiC&a_AARe
z|LOIe^`~}N-MhrQVt1~W9BZ*BpOklLY3W}rR`2la<kGAGmV!3Dx4Cf4*5u+r(H7hG
zs33hu(bZ}p)lJ!D&Yw5-)LED9GBq{D`D|-%zma5Gl|M@=^LM!hXKMl5>Ql_oOn!~S
zhk5a#b5<i)`7PRP?!!cFJo9Fc1<n4`m0+`xQoHPp7TH6e?T1=|9>>H;Sf%M+u(i#<
zu~5talNDd4G_umXYzsU3c((J<G4CgvhYe|Kzv}*sEoOG{i13a#l}^PvEMMpPp)$Ae
zK3Q%Bixn!Y=y>6MgX>6VN=@7qw}Fg?&K?`K6DP~=ac4TiahXUjpT7Mms}mRJNa&@1
zokMF9Qm{31g%#j8XB4;estUVYc;DZVSjIY?K_>m&08Ah~(U9HVUL@=`+Ov0LW9eo?
zKl52e%gn-^vpL~B)y51LU)vSCZ~ip_6Ij!`o$sw!T&8cihNfl!olb8s8wn3}Tz78b
zvs{kDW9IP18A5+4V{-;O3s#bwGOUV3_qx#rU-QW_v;D)*w#B(Tyk*UcCwy)s@G95<
zhkI{e!*FGag$B(>Y4|Kz*fd3_{tg(x`qLw@Lvr3*+MhM|^JRBm(PtRGxg*_ELU-M`
z;qIH=!fqdeSqorrPWX&i<c#&h!sqU08gIBe*vOZ2r!Kp%R6(w`Yp9jsgU8+^BC<|Q
ztcm5ssqd&xs4*KIEKpX<PH=1Tl3O$?aw1qGva?)^7?sg4>Tdfilm|avjxUzXFw<Z#
zP4E@_yk*VlbPo3gZ^KxZonK3tOP4i&edRSF$Ft5KrwLa#v!BDPcyXLt6$(2i#yJx#
z-}j!8IsI35l<vaAz6|8;ep>zTn$SIQw^oIQnx|3k8ywj&g}o8sp-T<(Z+@}4ZyKAn
zT02yZt{<(R<(Sy1%#BdbyS03$Ec59|)!;QAVIhtS$4QQv?R4jb^H48bj`Pl79gDP8
z+T&ltmG6hd*;t#Hnv#RE*J7f_$F0NW{tnR!>}lbN!GglxPuGN5O$&YryHH~kw5pgk
zF<d2AV^N=OV>!mHT9cx_<;xRu*RF><udQA_;Ja$S0p4NO8N2<sT0dus+QNgaEDqAO
z+S`%Nj+Mr^?<l*u#+_nctrV`{<Lwci=n-}~VeF&W-)5PS;(5tSSUI~&sbTc9+?wL~
zs}Hns+Y0CSD0Q^8+3yUVA!NTyyUVrQl0J89_si2mX|18`K1XKcQD#J(kYn4!(?d9Y
z_3f@RJF5+S4hC}Y{_!-cmfg&;;i?=09XvcXw>`LQkkOgUG|ORE#(2tGf6iSMq&p8b
ze#8*J_H1u&e-;_p-qTl=GcKbYUfpWm6*XSVH&dSSSUS631{=UC8N)@bfn8bA$el&g
zv#l}e2_48>vy`9TFxP|EvMa4M|4$y}%$gOleM8Q~nHP3uyVffOm*jV4a6;=`TLQGO
zv!zsLok^T<-0v-<n67T~_4D;Lp?d;(6u-WG78mCOhf3Tz9OtvxST)!58MfgeR{Ik4
z>4suYj+lpM!?h}^m36~KWSuRm4~AV6;`7gF@>Y<o?JA~?TP18YuYGZ_Kd7v=$*EyP
zf77N-xxA_ZykuUR2*L^5AGF)a$?3v{3ttDn#Aao=@T-1M9yX<|EuS<c@>A(W2Sc~Y
z2TIX|at8CH8rvTGbn%YHoJd+1n=?LqXS1cj&80Hyy0E5R{qdiwBCgF9tZi*2r^{bF
z<;4rLWOKUeT?^9@ufi6q!gu$0<7Ut$BqZLwe?JeF`dww^qR!6FLiK@{l0n6**bDmv
zGQ+CXT#`OH8C5?&wack1JGJeRr*Dgt%a{Fhd*?6j!wQES#MZ4dc>iQ?a0mN_SgePS
zONZe!+35NsV_8xQ3?vEsOb&6k`yKP;-Q=UJbfzp+5dY#~)`?$f`uaiL=f;g29v;WD
z9Bl;b>MVO`6I>eoxZ9uZ&r=>GXS5Utttp06(viP3uJNWjQNS!!F@vUSx~!U>Gv@1A
zlJ)id{`ixxE(!Te;P4y_EK?k)!*{XHDobT{@6dJORupy)<V=iN;*DJR_ob#)v0m77
z@E*6zTKyPV{k2iTyUXpe?hhm{9(kSo?TpXwp1YyOOcuW3+UE9Wj~ny(={GAYD+xXe
z-0Iqs$ET{Hq2Xh*;qCz+4T(&Q!NoCFSF)<9d@j(=2iapZ`@0987NlKbxQ!19J=CSS
zrPB_@h8S(QE5xVCT)#~s$xN1?G1g)1$CRr(zcV4EtQALaNns}p9o=tiv`tlcUm!Wk
z_CTmjf35JjDQH(GO}2J$N%r#fV{oa*JeHdsrAeNsWFG#U$Kp#q^AB@<D=IqrCc(=6
zOnOdp_8NwB@0`xLN`oIyJ7}~@*1x^Vr?XVfqVCwSnw+`V*QXu2>e5z4pFU4^Pl7Y7
zXy9{SFSe@?i|)eKDIBt7xDJ0go^X1vib}`xKj+d@_nfq=Z&>r;=|MKPtx7ZM7<cnM
z7acs>vxtbj76UDNzO*vjva4jn>iCAYd_SK$tNUTEPdi}C(CtTa=c^wGq^Ewms&qwD
zOV@H&!dBPOK>*ge{B<J*U&0xo;_AV&5|uGJTCYvsa~=ziolO{xqK!os9Il)83Qr~6
zRN&*|QB}4vV>~2-vf{E?SCZ>}#A9G2xbksW)EEgnzjRJwy_8vsXuXdb%m3nYsjsr%
zhZB5+m>J@VU1k~p6*mRtj2c-v8HOJrSc4p)G)1E#{}O%O_Rqm|Z$ttc)9MvF1kVD)
zGn!xgR2(Sb$>Y+t(<S?C?dvPEnl>_q4!8vdZQ(dpWjOwE;hLcBaq$x`p8c^f>)nfU
zAADQl+{W1PFw&{x!)(71rQX{<X0~HpO>EbD*Syju#z&eWqhf1|_Q`ePJgWsNk9|=e
zNZnR@)grSepPUk>&O~MSpR#}SKNVUu!N;mT-t*NqFNgKY9t7kULSVt$Gc2#56{jx<
zi*=|2Z^WBaM0$8&X|4lRPt0-AJa(*qGY4Ozw3Oi5##b|h4@jm5BEo73qIp}F%7+(J
zeJt=1Zdh@1=~-;=H}_=35^Aa%x(4d)Xg38FWDyOe6A<L|a}8`o{MmPp?#P%PBf(BQ
z>|8zx6^{fcEhAe!yoYR?ju#))q+N!;k`MW5h^S-=jc4^1iCF^o6kJpK`mlMdronr2
zqenA0yEW9w0LNhOwk_x0KM|UEQ+<a#pZ0jWR?br5t1|m*O@Ts1L>@hUyn@1^eQ!1z
z65O}ps-M~xQElwha6=fQp3%OtHBBTW1?G`e+uD=68CQ;!8@qMRx)S0EqvS5(za{{7
zyq7mVPdU-JjAfPs^!H^ESI)MhdbGEtSgxjlL^sI<NW?XzW0Cy&NjMqTnUS9ESpMPt
z`-H+|ALViT?1Tg>&y<=w(uR&PhB|ZnJ1@N3#kb15D`#T7q<=_xqEA^TQ$k_O7RQ*R
zL#057UX|;OOGEUlIy*Yva1b`R2vs?>-VbUp^ilL>O6839t{!3enme~gg!iXiHI2(k
zF6b-~ZO(p6qp;RnIq#1LBj67Q8z#mY?rgC!Vbt;nD{Up4K;P%Z7zrSWXBfV~dPgR2
zk@)f7SEzb-Xv_(d#UVS6*z3UE4Pj;M5SvPEpm_DKhMHe&U}XvjlBl+8aM`a{v|I1|
zt6%7;agmXc1-lw$!yY{naqSCk$OS;JFlEL$w}@HR+f?l`GHN+iktR=KQOEiMV8q6r
z0%0G(&c|hAi>zpEag!ld@bWN8_n4FdA*WneF<x?Z;H=kl0kz)&NFs}RSVxB+58#xE
zDBep{<7w{lYXb9jUj5qHqJ&_o>5ifIb;Pd)(b|ayFjmBQJd29*>}e_}z#29AYp7kn
zZ^uews2;bcJAMdm#2&qo=gC(f<u+722#h%&IEEa^wFEZ`a_m(*usG5Vz0G&FI#|I8
z`=>Wg?UbN9>>nK;$nlvN$(isZbbz#7R~>;xo8;tFckbLtkWxG+dnA7bo>;<>XVL2n
z7B_bB#xn=RwG&pRabC}o>ahM@!64UT@B?FfLC!cguIXv8#SK*<hn0(@^aX&tJqS{t
zE8l!;@Gn)Rd4>hvopH-mjEs!xEDHpCn*G%C=g8Il&Z9JVlDL$2Z{Pkte~sErLvQ)j
zYMVd(K>*0-&z~jQGj5ISa4R9kU>j!xcobT@2wqQ_Qf;O7j(YL05<t&?33d2<_pj3%
zn4{L+uVw@}u3crwPyF-(@4qEs0t#FEhK^816S&v<=l?l$6M2Lu<+qOTy$m!pF}Z=@
z|47hnz`q+;uU_@=IBRb1g;|)Vb#yBn^loo~CA_=<6z|H*k2c=8VOsv|@a@9WB0<Fn
zl*IPwsU4P)mEDaQR#AyQ9xsBZ?Yh{yP@v=82&GkKXAV8fsVFbcefx0d3Xw-?Y4Rs@
zboT2W?m2qw*lt5ZLlu=5NlAINNv7m?r#IYPEMsz1MTNwDk(yEabPrp43CM3i1k&6$
zgt*TkqF6K%V<bcM@CXpo+O4IfMZWGEYV`1^h|*F8yd%HE30^E~b{yaE;spuN$?t%J
z2(^Wwg1)MZ*47{o^tJ6BFYmjGiiKiYvEr68c{0v}-HSIgbL~&oBp9uVeVTf84*#Nx
ziV9v{V(Jl0h+FQ;)4+M+a=G}OZD;LSQ&TbgZbiW@!`Zn4hGU$EF`s_@FC_@675mR|
zjDP1XOu#!<pTOQf7IR`DL3&$<n*Dl!1td?LIAK6YL4>vm>Mqeh#$Dh`>^tHM3|fi;
z;+Ym1dF1>KzMP@-`@)3_b@X)HxD;#pR?lP_YpAca;OmzU4d>k?gV-O20UC9k!Dq4G
zje`-qZXD{cngCc310GmFiP)%|VTwnsK4hZ)?hqJ+8G;uM=~@-8>KWs>DL*|JT-j<<
z6|FrVV2Q9TgwhxtZB_Om6eG8aCOpwkpIAi5Hs>b(hU&(9!%;Lc5$;}l&0mgm+2trG
zjntIo6Jy9UPthx{sNg!(YbT!Bg^hLK&ids_!|!~^MkZSmW=Pk%MCLFC(f7H;6On|)
z;e%rp)RBFe|3vm<J((^N86e#H^v8Twx4oX8o`6I1ZC>6UAWZ+v$*(>rn&EC&5vfVw
ziigKy0L9%*0q~HxYOu*C=*O!-oAL5WJAQ3@_Uu{p+2DA?g54^)#Etk4P&4{mbmu<3
zZSgVsSzAQL7baUAK#YM65AsP%t7`Q$=6HKbM1<&5wfpIXuGu|a^js3sn;r~1gxw3K
zF--FDN*HWI9BI6K1~8(cayqdlLC{GB@!X1i$M^Qw2s^<r|0X6HgHTIi%f!gZBN`g>
zaT>^Hug+d_B)Ly-wVx<6UR7nbuu|q90SjmY@jU#p(SHQ^AH!&Rmt@z0NhTa{MDg0|
zIDiSEoFaz~FE6iE(NA6ga6it@&Mr6d|3l#M)`6i{frkEiFPZOfBI9e64`j@UOVf>2
zpGsdoQqtN73-qGU6&A*awqsh!w%C}QB~A_-`g@O-8v3l|^zi@l|IsXMlIwr<u;VAz
z@}2s^y~BMi76-7h2_Yr@o#KnGbjbM?n)NGRgPH3ca%Qxz3+z(J+ZKiUj<9cLIs5lj
zuNapZw-Rzv8S-kVrWtp%JPs)kIu%QctIMZ%#PR=XsEk9gUvEcFMoXa1KD`|(cQ}<|
zDLwon?CG`DDXY#)Vx?Wqr=KqLJ(zqBX4Ru=Co@|hOQ+41pP#=8{7-dr6LwdjyxWXR
zfC9~?wV(^Zx#_|#twGrQ*X<PuwI8R-*)?-dZZau<2B!jeW&qP0CK>(=f%oHtgbgAh
z$6|GtV4`vtE-Ztg^^03icEr&1o$>^h5?ic7EZ~N?pvy%?Ma_140OZkn8OgX_eL!RW
z-<aE>*4}NyqlahDnKP$Qt6VGQL`4&Wds)xL#l_0xl8kAk%0C*|<`)adfZxAAf&qsE
z#K?2Y({0!WCHG`j#Xd{j?IR?}8z+1x(W<3ro|cC0pVxTQ=bl)Xl9qjR`fJ<Rn3#iV
z#c#ndVxQo0`{u<~H!t2XjGj<@Ayd>PV#=P_Hd3HG9$(1w1vEv&3K4@KJzG(S9CCoC
z1Rt@T%IW^}r{4<caj*gAFG}XCZ{_9X1y^#iaAeYE_$SP=-+1?cfKx|24wolwv~i9P
z$n5-jy9PmADeQdy$17KeD2;yNQC;nK{hF}rW(%+)%^?N^OBGAyY~7-uU^p>0-~%Ej
z^He=Py53u%D>bz}GHPb+qy-4v*SV__c(;+nUKVjVFW(7|cVFAwmD=PxB9+$cOX40M
z8?x>gh=H!_P>Ur@PM&#6ePvS*z?HmG-`z5^uMXDWJ#B1u85_6q3o!#-sk~G2QCLoo
z>gK#R=?#psR=L_Uh`?@ukQODTmtZ{Ndu?$)g0~3a3M&<_DZ|y8oGku*<}Y<{ZWGUx
z)IL?(?X`3vP`ho2OMi`vzA@0eG@^k^-%LtaQLn&c4(sy8zlAG*S5k|t(tk29_Wy42
zUxy-=9%&~S)IC%(d$93H&|6L{g7_mrQ`WEDeCa=vyZn!?5j@uvo!IpBEs;@C`}KB<
z1dmls{6@S{+uMh$qMxS18ztys8y_>|Nct7}*H?oE^KAjr0|iLl$EAKPIB!#Bgt;kQ
zaZaGHe3+N@<jc7AM(|<$Bf||gEt{)&mh{H?6yZ%HnJPPBCzu-KA_Jb^Yiw6a(bCl9
z-kF%5(Zw*o23KY~GU|v=1nrZjw_aS|-(~Ic{hn^g5(5H;&s~!x7+H3|7oJI+)_(cS
zK;iP>lE4b7D_t0BjaSx4?(tYdACH8YLn5rr{TDZpVHrxK48@MH^}VTE_s^NeuuAw;
zT`c;s{(Lq&TVi^K)wr2XsbRw*d7rF1MGgu)f5h7{*m%-6T%%_K%FI}~>U<^p-A8r<
zHb2I{a-)^-6IAv}1ndnTa*M=r0wLc7P!<t^nR<*w8Vq~Yv%`-?{0dc&g#v>VkRI~L
z#LVn~_h~(_fJo91bWd`t_wL;TGnir9>3+{=SO>nSm&O7OhZsPDpj>V3CGgaM$1Ii*
zcs=qvzrxc701Oml*0k-bCq62;WVaGSDkENQ)25ZGv9WMIKnsBHJ>^wZsuU(65#B%g
zjc>p_DQVZ=0P{?xsyOY$r@2ejwZ*<`0q`uyL$44i>P<9{@b9w~`qeNF6ft%JVihF8
zl9Q9k(^$=x&)*ipu9^_4UD{$@y^!q7m&;cCJ!$y==vMx(6$AYLYZN5RoU))YkB_F?
zK5w`lbc{~>Jo1RsfBqkc7swlbr*?vT;(w8wp}@Dzg$udAtqFM>o~#kB=B1&om{jJX
z-22xGz-?#4MDy6R&-d&{m<_B}CCZh{h5?Owkc75Uk`t53O5Qd0xo=2+q_nk9r+f{0
zn3qohfpu{5h_`NT+8-q8l~}q(3`T~~jXGR`*86t)B&^WUp;(D+jLkDR(}lnfBJODP
zSn((_(j;p5uQTSy$lV@H>=nrX%V3F5?N-_R6J_cbcmJGOzZJ=1l9zbA+v^4)cgkDH
z^;67_)!e^qXHCQ%yu2iyLhKXM1wu{Ul9M%%4>Hzpu=`UyA)B7;^)n#pfTxovC4GMP
zxCRdN*5S6tz*}H?+=7Q4LFN0kAXv(OAGW^<S-l%@J7Tfv?UDLrov=H#sT~Q$vO|MN
zJql-#mlenN)R)QYLJWg{#L%bD=*KH?HHTiC6cuc%F5P)`)O1(?u{~IUdB-$#>kIU0
zG-2T1KPnbz4GhITeYzUXVgK=imNpCy%;of4*W)u`*yG$ffd+}Cc9y%)_BP=jJHstB
z3N#mtAa$SCVZ@w5oXf9bM|5f0+S<e+)R-lk73iC_WZs|gx;mqbi?B(@MexxkU&G8&
zW9F-k{k=mk-g{y;#6?8<0W4wKs*iCGYiaS3<T6ErflmN#CsVDiG<4b-o54Gr;kqRo
z^i=`KYgwkcv9a+ef>CC36W$nhzi$r@P-J4zAsJjUx4O#c`I58Dw2&Rya{@jHXYp@n
zm=itr{5Wws-iihvOLFo~$4aSx9`3DcEp~~OdTPZgoo3$g+0oi1ZHbw+%TU)V{=u3u
z*G0U%*r4_8O8pR7$kl0K%B~4m?deEnT3C(`wH9PL^cfWTu980U=1z>O5ZMXtzfPsA
zs1R0<kZXwG;z1wx7hB)tmy;wnA<W&@fjaBpIrjWZml}Xi33kqeLq{}HBWz?5fLLSk
zmJ4Sm*%q({#33NOB)S=oDxXaK#4`s$%J5A4G^T7;{k%D+F6vm!x~RC$%8H6z@Vxk(
zcH(MyG>R`m42fu3CDYY}VZ*KrNPX0}WW(t_y>o)Bg4tMA1fN?)MBsG{pratM2Vx_?
zIO(~645i$;I#=+XKpGSL)v@p=5meOi92*bh^;+WNu+u0e2Wp+A-y)H8H_a3XG42Hi
z<GU@r7E6nW6j{eg1z3$_y|3T4*a?0Tx+O$a*4EaDwu3O5FQJB@vWNtN5KUe3yH!<H
zzr|Qp!}L1Hb<UcYth13<q{5q@Gkb=2y%Q1fR_w2KRTOut(zEj-%m^qoSteFJpJbK_
z3xe<6n_hmcql+mXR7@y|-=aigyB_Mp*G9z$y~k0gr;X@JY8`X?N(bWTc3iN3pen7d
zf2gZfR4gUlPFY<$%_}RzO2A3J%&ui?zf~wZL##Dkb@t7&;Fbp=DSdbpyi;#|(~5uO
z>Wno3AFAax-N_H_%qskdMOX;d-rK{Y&~MEE+nS^Sd3g&DZzDTn3iDCNG!_vvkhloR
z7!Obr{mec>(-Liphex%`K>bLk1G(0{_i+DI4k4y_dDn!T-@&LQf&oh~vU!?XdKFFM
zPoF+b?aAkFLVl#nQY|0;oJ2IvqfNp-9v*g3_yjAC5$HN)8!dn<Z;wf7L<$QdgRJYh
zIy+i<M$J{eg+;J&n8rLkyZWR;8_?_ncVx|LEBR)VPrf~<JtLC{Sv)*0^C)djvudtf
zs^o01>o&%frn53J<TZ_9LHalF-Gt}qKn7jfvN6}5=ntB9NRV6LnWLw%kVB9qizad6
zd)(xuB#R?M;=IPxCT}qn>Y1kmYxcK(gC1i49t9xzg8xNc>|aDLSN+qc443^=&+R_-
z<nuDS&s$_SRX6nU2D>%{^;J)ua?()X6-7w>tGqaQ#{YAi`@c9X{~?7ZdG!A|>pMr(
zW~x~lY%e&&wKhwp?SQe`%TV?!Tv-fX*39+yy!iZnVvXCFTQqDncrVJR^r<5%8hZBY
z^w&<=BW%Q7(#uTNEwXkwHwm~K&c|}bo#@Z`VRL<2{=w3G9;RX+@2u*{*hTBuF^dan
z0{(rvoWxG{bf&J<$Ab^s+f6PODbEqy@}hjz%6043O+Tu5xn>))6h=2p^5JPHaloKy
zFFwl|!k`mIR-DW-lU4Yr@AE2>SSbFHlfzBM`{8|ded7?9@4PxYb-*D04%;)Fx`Kp$
z;249_Z~CrnElX|*F$84UE@L~DJ~KuyLw3uSE&KHH-JhG)B={=1L3ng~g(^%p?DHlW
znSd9eR)^cG6h$7z$4d|W{v6aAgbO65B3@%OzM;JQw9>ju7rR5_kn_*a&qvH*YU&An
zTOf>n;pq+1VC5!Ntt8A!ebl@Dch*4IhTrpnNf@K^>2OB~p7aSnhUq4$1YX`rLCAN`
zZ1>H@u#6;K4sy*OcU=nE8j>J3HhDz>V*7OuIxPORPcLHjAMsU{m8)k&!K=t3?j_z7
zq3kZuv!HyFlXt@x5!Yi?CQS&Qy9ZW-DFrR`sJ!Lt^YMYVm1`NC6BGoUz2V>7+nU|(
zDIu}XsWW|O-!DA&s-W_MXs!+<>Hb!48rjZo55Ahlg25boAC$eIDc{SJXk|Z_-scAr
zd#g@ea;Sf%P&bmkVMN=^%S%$`L;>aj9g-wTa}!C*L&jWkw+Chmw|=}YZMd5_eOGQ2
zEpM==36vjlFqWUL@R4Lu2$Ih|(Bmx{K1V%Aks1cz;Q@q4X+ueBREy>!qXcy+g%wmr
zyRRwVgt1=H4_(wCBza#RnUU|Bq7y;;iPdEb7jy?YVr+xF5P55Z*MIy5*orU6FOSf8
zjQtRs*;{lx)85i8h;l#cpM7<DnZbh4%m5j2lDj0yUS|-CH&6X}br(q00}Lg_WC#v7
zL)F&=)u%ZYabc7=`AYZlbthgj>xs64n#beMm$8OQ?N$#oz*R|~di@7UOhK{t=dK!Z
z`4rj5ZByw=3?G6D_O7|VfTS`lUnTuEf3*s>Fm_6=QIOsulJVrXNPSqniW=dQ*S8E5
z-ywC@SgAwz`tl*X00K4N5moF5Ej=5}5XbfiX`oS(;fuo@TUKal?E*oNSf->v4I4t7
z8=C7bzx<~*pA0AY`fOt+m(81*rYk7~K9%IfZvq!drhdG%vQ81Yl}5Rop@ZUj>6?he
zcrl!-iVD$o2WaUp*=SsPV0h>?U-nyu(d0Of<OsaVfHZFq>N^1}nvFOuduv(_kUN!+
zf&1mh1J|1gBei=vVHAnme$~5V98)5Wb-UXY`HM<J4JkCxi4-@HK5Rz71u8s2ee41~
zsJLb3i52A9mnRQ(yF+%&focf~6H0zdN6?iV8Anu9SJqMc`{Y|u`<FyQMvaw3JYX&8
z8ngy1&&;EfJi<o}+z7LB^T2A2HVbO^Rc}jvD>&1RdVS;ZN7e4#<P@$hPD)Dp#gw}7
z%bW$Hzp{3DF4_g;iqulxx$ygyrX$eME1#Pv5{p}qE<i@<zCG&WR1TDNel3u2rd0JK
z33evI8S&bpA1^>`abKK+rOHZffQHqt1u6dUx05m3>=QVm&@L*kE(Tqbl`M?lC}9+;
z=7=9J(2CU^iYrabvSSpUmQ9x=-#sN*3lD|_zI8$-(oy<My9*aq7K5jkx*$)zfB6{B
z7;x5lZT;sbx5sr(^akauEapI4H&c%~w=W;SR@k+dM-=uVt><Ju5hmp#svWw)Xy3zP
zYHk+4fDIs9<}e6oUfz@jS0^e2a#qTDmkb&GK+_uKAxNK)5zfznGJx-gho)oV>WKEU
z(^E2iZN87Na7vxkq=o=Oa2|?4M;2vqYlyYl`z|5{Kz4XX5M_JTpPlo?N6iN;{b1R|
zXc@Kmyu5v_Wj-2e@<x80IlTdKxrJ*Ob;4oPlVT2)FWF`JxQ#aTKxpuF^BT@oWX_hB
zDNi^%4}V~E#ciOjn;zpTkL&7fnG(Q!-ozVViSrusJXbKv3LsJ;a`XeG6_Z;akX_|&
zmxTbc+NMg+5cpIg{{uBG{#RTTc2NVJGPeJ3t4i8ath;St|DmQ7ARwGPY~e4Jj(ucc
zT6-r~W?#<FnX?v&d+eMmPt*@}!u8bcejoe2TNW0L$hOW}Sg3U&k{C09<d<kXcPI;z
z4{xhkXaCX(3X@fzx+F6?=J`NPd~?ahr~hcSU2i85^;}^u>LeuVsB}u(8f-E?@#D9|
ziKymE*JO<7hC3-hU4J_5(W6IiCx_6jjw_+u89eQPOwf;4Iw8_rQ*8bDjp&5|>M2Gw
zu)m1(?pxjzE7=GYuIfVuWhmS|79VMw%ZKoj2-2V~+#(76PBjivBjjo(B-8P(x_a^5
z17{N1K7tC#Z&y*1JDa#HJC;K$V!S;TDUcZK;?pZ{<wBPFa6fh9#r`v0Z;%3;DO0G!
zs|3#CN*6^;xqGd(e>nnSYxr9|>e}bL|4j9<Zcuco?9-$qnLr7hMG!|IT?qm7f~HBw
zG(E|6mOZ|U5}izpH%xfqNPnK=6EhG)cM&7Obk9UhM&B}d_7=B~jL?mIr<VzA|1<vg
zKX3o>tM_)fnLjPRk+J>Kg5pb_9U^Om)*g#c8Rbn5Y+2{A<8Z9|vKyvv#UtE*z2rOP
z@K5q8fBb6j^UUQdKmE1KH_dT)K=pva#k;4^ysuYR?#tBIjBtEECcr4`+d9@6I<U3x
zf{HFgyC5fSzga>aeHpjN_i6Hr7r7|LFhD7ULWms_>6BYg$t7}Y@XIZ0e<PQkd?{M2
zXs@n3_SGO2hq-_#eFbD>>gnxBT1%-Ze|@{NWi3@eb#mJ}hnE=_zPwLm$7YC#5CyF_
z$yt+%4MGN|^!Z?`ZI+k}kJ_?)XJn?Z98E19QDvj3pO#Va{M4T}KH!@!M0~R#&-V#+
zmj=tlZB~SItnmVb1GeL_v`EOB;sU-|i>Xn~Q#qbe*~ddH%*;AIBp@xhDwbN`lOHi0
z68wjNVsmRa#FJt|^crd$D3rn^CrA7emyEpPaecnIK3GTcLRO<4l43u;>4b`$1>wS|
zDiJKDWbol+CXRfwG$#W9U1ZHq%wD=_tqA23kEdAF2hOpv_Pk2u^pji~5{fzks2lk4
zz6#)>U_=x|L`cq*Wcmj`@whF9?k~@Q6yp$V^`b;#39&RvZle5TCAI}t1Q>=fV9+Sh
zY?*6+V$U!;t^mTxtdc%@PE{AFsX@hxsH$lF30Uo(qEDf^4lMze5F-tkjuCw>(SIY9
zJvKW{9a04XpB@3p(b%M%Vv2o+FYQ%E1vGPfQdwV*IJavs+ATw2HCK(p`sW%WQE3(M
zE@sEW--n!CGbUzU*^yH@Mqm?0AV`92qRasiLh2K;`|fjctFrr(sEmRfHU47(Ei+j$
zge*%P>t{9v>R4P~D0VCtdXjk%P!Jg_kscd#e|*(aH#+w|1iqGt&jZa|_+`yJ0BTf0
zmk}sqNeXs=3yB1Um<6H`dJ`hQ@u@mPKf#<jx;2`W?sidd3Z&?#(S6$7XStspV=|;%
znM(k>>_8w60wW3--?ur|(}TExf&j$-itDDXKL(X23TCwSrpzJZKCND3@$Qz)l^x3o
z$mQilr9-Vks4ya;9+OYM%vyBxg)F)3<jHy6fqy~L<T+3!2su+qAF1F0u*5mhil)3S
zw&ak+(o#SY<g&)}$1ww<r(~FRNH7<GH{pXu(Taf5>Ucw<y(Gm;2ufT|RPoa@5h~#L
zsRCNrDxfB&11=RFYP57A<&A$g`qiF}jdm9G7X!Tkv+aYVX!;>2lCVLg#Fo!x3`*Eb
zN|q2d#8oA^jtzSZI(abf$I#Xxx>$tTzJg`;khc)m%1sR=Fo_gy4WuVuH2dq;^1VT~
z7H6%AVzceAI)~RTm>2ytp}l>4yi)q?+Xs-(sXxDG_Ux*4Hrs^_wPNI>r~AGP?{9$n
zJHQQnBF<?wY0F|CZ>X+LEt!~+9?R)L45(?jb=|6BLl>?5;iAG`*VwD93|DXZ*|Teh
z1{P>0iu-Vtn5!Sxjifa*%2yw_^E-^KqEbUm%@VO=(H>Pax2!=Z$OS9I*V`D+S+Zee
zHk6qp62kNmWP31JmU!kSR2+E_x{BmH3FMEfN|PxkmclYLcG@27C!eWwQ&YC><t`os
zC_OwA-8@;b=F5tEw>=qXkLL!-X}`#l_IV$XY@Hn&E2(ixT}$a_Ew#V_>m+VyOFR@T
zN{KmtMZ@T%TgM+k+;zq&?ge>VcGkm(4<Dr+kSXjnX5v`_0@K~?dK&Yx?vcQ-=Zci`
za@4<!OU*?c5IGED{g+HEEL;l=Np8-^xp@U;5+G<2MzP*aoGT&;aY`zUNup=*(CyM$
z=_31cmR#N^j|xOz$%h@#1~XQ|YaKeJ)C9)LuR3lmv62-3OKRAFhE`O@(S*U;sxvq)
zIwpkthuDwEh)Kal)?9m1KEulkEga^iBv?*0H*kGwc$D3W<R`;g`VK}uWyk`s;t}xZ
zSIE3Ia!_tl432y_5SwCD4K7=)-tImt;%XC%n=%3;2F}~}{H_2}If?QH-uRZFq+nU|
zeW{PIN&1vTE8aTc`1b6J#rMz$q`pqShos)(O=l0On5Eg18n90{5*{us9YLkZDv{*T
zq!tvp&5vEpANeVDP1sULvPs4RcJJR`tX6Na(H!t5InC>Hzhosps8$mL<dJzlC7Q3|
zewNAMx;#^!mo;4xszu;1KExJYz|eA}@RCGV{-^iy@>;&#J|hqD5-CaS;BFwHm4`=_
zzEe!W2s;)gMnr^E-*m=Cp>}Y!dT3o!A7b|6@{fs%+AJQ&vZrKkGoq4HQjFU#pF9%T
zl1dLKYmFjDU}^WFnOA-|0kp~_TqW6Dx3v3=dFK8jG99fk%E$THVrz;=(v~{LL9;bI
z6B}LgutwN|nO6*61}DX5o4#b$)ZC3=`IQHcWp12GZyflIP?eUBPBigjdx=6%MFqQ_
z>v$J@YNO^{oR2o!P!fIQ20FD-*03WwcN!~JYX%-;+Hc1a2)*FBy#wO6_v{vI+5`8u
z$cTtQemCabDo1At5S26h_fFyAL%*$~AYg)Ik9!JRaTF%MCIv1oJ(XLj(}cLF?sIQj
zU?5fc=sZ+R12?<EXX^%tckQwahftcChrL0B=N$Vk#B$zH>Jcsg()XyraI?6aaYtR}
zp1gOEeF1P}Wyeh_YWi0?@*ut^LgBnGZleWm;v@a|<~R2h<Y0lBO<PI+0wH%6vlTQn
z(6`;luK9>vd;rD7iOPZK=J6e-!L0*GR}7*UD%+Ye<x@rv7EWWK#8JNlNw#|gs5B-r
z#>{$pVn4LJFE3vpSARi+xPV0xCl-*Yg@!a2C(p1h)zXrHADEm)pgCx4VP#imszQ}`
zR8pvb&2y6!ECW$B!s2uKi>ruNm@@nr0Oi5<%fno+cE8mJZ@`^~mA70lZT{=FG)k7h
zRi9u4-G_STK<HM7j6M=umm;;c87FmQGSByN?kZOv7HlbEjNNY-%E~4t^Q0*JvP@>5
z>n|MQ^@&67BVjk>ON(X*oZlvZ^031+8m;|X@RA9%#XuF@{;Yk}u+l$;k}BPQjhBsV
zrX@f{*-yv%9B!}32SKwhTaA3ieUlh)6QtOiYMIRaStllm?w3q|z@bg&ju0IpfdSeH
zPX_HFA0x#L*k%M4fWNv?h6-hl=l09f1JV~zcbgi6DH<K>dkkEyrZm*-;Xw*!>hxd7
zn0(g)SQSg;otG1NbZBkv#<H#Rk&m(<*+wV>7hs}%Zc*9I2Ry)wNU9FLy{5Eaf1vnv
zXx?3@B3W37`U7waf6i497eWSgGd|md0*#y3=dU68NlJ_OEri%36Q=(Oc~R|5nLkN=
zlieQ~dKH*iGR?faC|d9z>7Y*4*X`I#C>5BHP(uh}d##Va#Jn$z(dIQjLcNi<J9!p{
zr`U13j)5Y``vQ?!>bI2Z?BlC=>@!$9?Z$?=3Lz6QDXevBkW%>nh;6}c(LzE|?K!uV
zp<ri`Qal-&xZsn-|2KYZRT@Ymc?`#p0g@e=81$J~J3cXsHn`(Q7%gP|M%wcI-Zi^a
zR6s6~Lt47I>1HaakO6x0B84$Mh^*F;I*P^E+hh$@atoCD<4J~N-?y0GJ*kPlo&6Zc
zm_(=NK0M8XPXHvsVY&hJEI0K{bD^Ih3JD-q{D;qI_KMlBNOsn)#kQVL;_%1bTOtdF
zkYsDp${E%qMhUUpaqlB!GfbHtO+ct77K^yS9uRnWI`k~y#Apu?t-Dl6sl-B34Md3o
zt3Fe4-}KCcUo!RPpb#6jW<CnOB62@dciZq#JmoC)>cQwbt6w;uOM;sq5BBNr??=)c
z-z*ldP2P5&8e=w<{_v0oDM*q;&g*!xS&c#{vmL5lPeLvN-Xlwm+K4@$sl?JPN29$O
zI#5J|k|I@df~6Ul4x$T$<t*1wCrWxNe+pKw|LET$l!*kdqjVieNy8@8nR?&5*Cl5&
z+Ec(6E{v0E<v&SXEJHw{mww?~9h?;$69T6KQs6|k>to<_=1{@SB^n`%CYwKe)yMwB
z+$3#QL|`oxS66QWXPbvj;F|v925T(|)(Rmd&X!w(ift6!s-!f5ZmWJ+ABy4<SCf;K
z?LSuo70^7b$>E&GaLkdtR70^s4*l6R9T}uL7lsp~`eO(*hD!b8AzdXBeChf<3Xl~3
z_@-iuzs8LZsJ!?%w>1aZKF<$iCVt$SYN$w?K4<9yUS84*0t$VL;;ZRtyZ$7VRA3O{
zjS1)C4O-#H`wAk%OyX=r;IQP2L7h{qFBZ0OE1@-<zwD>geh!?C!bep`jz4Aomld}c
z#lKf~Zk%t4V!V7~<&heD)b=)!TJO(8DGjCrq$UkjGX9UhS*ECFt!@h&5DIxH`&+;m
zE)RDMX(d%LIioF7J$K8TpXwS>+iUi5qqIwQQ9$u>q|7=Mx?rN#?E&3K4jhh&0!i&I
z-fDkdUXF)+Wc>roF6mM5I4o=x+}kJ$*x^5ah*{Qhzina?;}UNO)sraKgxc};!M+Wb
z2hcJ^T#aw$l_PPJq)d*e!%L^$!Zm#1RdKNW71T0z%Mn{4-x|{RRm!!;^B=D*mRL&q
z7T_SjhBhG$x{kY=dKixl&V{w4q*HjLx}Y(*Ve|}<t;WMx6rfC)JJ`HNc?m$HdU=Jp
zn;&@*@r_)$1p`dVvyl17E-@thE~yjEI>F*gq(=Q!t&l!hNVCnze{?3R0TSLY{Z-VL
z)~|(6fp#RPJc>Ft5BM#<*W4)B{KA30*^~ARo3r1$6*XVu*$>lwY2uS-@ti_HI`9|Y
zG*;K_B^#a$IzK#AefJ>sjoq^UaF_4N4=Y1mq#fExCDz`cL$-(|T;8vmqIvRxj~$br
zJ>8MRt2n@DVbwUqeoN&3%dK2ijrb;^-NAYjljIUlCX<;m;%rCBD+4A^{(}JVk7H<X
zkf>2c|E8gB6Z~e7_C(xIzcc_wO-z&G=B9jor}j%Gp<uuN|81R3)Xe-l@`n|x^rpCI
zfoQd{nX9LA+VLAYhejX-a%-<04{x26sW~*KAPZJx^ZlfOhq0~Bs6;->*;_<~UJXi>
zT00MF-)b4tJ(x8KNVPdN0WITP{d{haO{YI8vrit{u22jd;w!man&4ix3+xRd!`~`w
z>mURn>clS_=Aq(D$ELvW0l9H93uV&xF8p@)uz5kYZ)C&(J{=ipjQGm6(#h5+%`Gd)
z$6fA<EI=n1fG-;&UqeOy{q}7xh&A)h(~)8V0=a#D*EE`pzyJ`0!Gi{btOy;{QXdte
z+&UgG4v9S+Gw?}b-(rU+M|W~APoHyxO5Gtu(SS!=qkCBP=%4ZG`((Z<AssTAzJu3T
zse2H=w^YBuN)#&|W4nwbXY+8cVPL&OnLIUael24U2FxO_vQoxh3iA>)v`}Wwg^FY!
z1qFqu*r!(Q!{O~<2Q;$Qh*CJ7;~0<~pKX<p$%u-uGjwS=?V!w7%t)xqVHFnyMN`}I
z-?60s&8>&X&icP`6p@l&fS`t(F3pnMlm16S2B{mC#F{*_`nQk!cMI}g)BNebZ3Q%g
zE==7EZLc{g-HHbxYybJKF~u`t(-Uy#{PnT07qYf5Xly<3gy7DsGx~mD3Ms3jXC(Pi
zFUQq|l(TZ|M`5TuNkB*BVvV`iN%9R18#+Iv&$_Y$bedo(<!cVjygSPtl?(^&Z4xDN
z8Pa|N9ezX+mp?*WA1JOpkM#B-+A>0IQnkZLUL-R{N{Q!bQDoNhm^by8?NIY^osQ})
zqQ@aQQbaeqfeLY+?;yr-X6rPd7LepB6f&2ltdWtq%Zwr8-uBbV+w?xxK(?Gna@{`A
z6?1-@L^E$UPUSFB^0Fu#wHWiGDFc0SWP=?KOV9zu=SVq2-7Ib2{n0h12_2|>NGlzE
zxIJ(RH=uILC&(6IAdszXsxxfdRzNvLC1q%U7J~}RG2uVEbm`K6uw7Yf^Rp;&a*~OS
zw+3xtH`Yj+LPb6kodvVN4UJCm;U3*BBQWyhs0IfCWn}x3zo<9#w7Y1WmK7g6$#fA7
zsfPzLt+R%+LeZ~*FPs#hM`^`*lk70^<fOHM!q#WtR&J2IuA-7#Ux{1+8ehEQ3{Urk
zB1-1Vym^mdyOLRB2@xA2J5#Hws%AN_ds6G|vg%8g<7}a=sSSKeZ{;d%JH#UH5e6b6
z(s6o%ILA24SSxU(%4z6V`-!J$0Y&kw5bhDKfRx!P#TkMY?8%dIl?IT9_FNPZo>}b+
zQIh2#ofo#E-H;_<W<Iim#cwI2cT46cR(0<c6RNutWRISE{Z{7@R@pTsJS}ZV&<9$P
zO{9cB7rO7JKE{MI#m1t>iPTwJDk8;cS*dNz9UMjdk0Hp)u}I4Ypbp<U$!hN8fKoiH
zmD19QDAFd_DM&-8;(Q&cavgYDh7z*M%E0rxhzC>>byPoA6`zgig$CyJLZhA3D(vLw
z#2uAdFq2}gC|9W{>R1*lJ`gw1$-J9$r^xxG&e{bANLBOz53NQ6q{Xz6+NvTe<-)^{
zckcr8NNM0uS<^W^^YRQHR+j`N)JNkkaR;w+{@-25wK@F9MjxVQ)+&U~^JC9`jJnzc
z#RzS-J>UaKBk{k8YfOL$CB5W0CumE+VKU^3w<DFp(Zt<63Z1-ya-Q^t(w{SB6he(Y
z)-LT*0+b|en?8iAH+-J8YG3Dr%X4u;(1|J0j7gp7gcXTX=~d?kJXUynAZ217O#fBt
z8q})GMMU72i_$3=vW$O&gXdLn{9wS$w<5hxGzzKBzWa-Wx?*+HHV|fn_g$RSdFs5|
zXS~sS#gwTNgjLan-os_49l{MhQk4m^*{p96{+!Yz@X?&5QOn@zgI*~VUqYI;sHhM*
zGilrvwW)*};@!YBF?$+v7NltxA}JEl5@~gT1IVIbQbeEP5RL7Kr9&$hvp#!-Y-!f5
z`E_a5PPz@GoRd8M^>%8%jZ0cjrE9@6_YRHPGB`0rZ}{bDu)(L-S4ejSw4dU8goPlL
z&P2vSBz|)hI-Y}a4_iAq7fw?-D5q#d3xKYHUcWW!-q1wajnolFsP@G<!r!>Y36p_8
zNP!`ltl7D^<8QON|C_su@5Nma=}$=R+P34LxW<d?nlfj&3tIm|adZFe9TCZ7{@(~o
z{{0OmiFf~6k6bA-cd`UBLt}CK!f)5#!3yed5I?A=|8d}1a+4A=GlWxrZ*+P`lHka`
z_fE1#X#*Z+uxMsKyzWKQtwUhzz&AfBel`>K>OlG*xs&8RDY-{$1P>2TyvSJnrnRYC
z^G{0@;YeIfC!GOmYw!JoQ7wBaJ|J|vbDSG`5V66x*V!(}XLJq>|B@+Mj!GhA2KELW
zUI@4!@@>F7IfN5)N2b2Q{^(R#Y&M&n@|%6s!*7Q0e>h|qWcMn?|K84=|8E~oTC@M6
zMyLNLOee8_d)^~~YlxZ`ig-i{!2n$%EMNb&CRe&ZU_SP$X3FHe#BSj4Miw^F5-n*^
zvuoTFZ&VzZmta)fi0(Pp#bQ%MP>2w9CW}1y6naph&L)&PEJuc#^b)c}3z~eAzo!xq
zM7}g_?&f8r^%(fB=zCm>;=QoOZz_jWEF&@|1<D25#`hPJh!*TC@X$@9%{M?pYe>AA
zBey;B_@sfh+rUS%PItf+tEhz7)}G_oy8@|^Ogef9T>53!Jlf=i>bNi#l2Ul(N$gu+
zYF&O<6$~r7iG>b2QZCfdH%&_031k_B3TXA>0Ss%=3c}b0z8RG}>Zh~tIC)%~a47gp
zOg03S*ohU7Z0FP*os)&ihsGB@&o)G!61G$90>)iuQgn#|mKuRhK7ZLxIF_x>GXDNr
zit*-`Om-EFP0qEL`X!*rs1_l+lo%Z8=Mq(pgwM*nztfI%iX_EOw#PLVb!3lpQHg0|
zjU;Y1l0Pf;cC0?iw4|fZ1YyFH;=ledQRokNGGJC@#o?_1u&(*xb&H=EY+i!J!=kO|
zgwsQs{t);?x*?_X5hSYyr3cVA8i$eez$3OEA}S<l(hAHcLvweJ+4`?^v{J%aVg`yk
z)li(FHqbw>{YY#IQpEtpPR_0%FhGT|qSDtb4=P?b!s+O!ds=oe)|3NK0(tVh*k=jp
z<GzpXl@{&;wJbJX=ve7U%&Ye)nAh834f89J;FuT|VU!W=!|R2bYJmmA9yvaC+5+sv
ztt^{PMbjp|s(2;Sru*@%<MimV%Hy2Gm>x;|zrbTh>zgdyleK=BSdtv08mIJcE&~O=
z!k{=<mu^vZsGU0(oH^<63s6l8_|elaD>7;xA{hfxn&Kfbb%4sfKC?mucO$3<GQp!2
zmJxrTV<@RGMJDYHmryB<A2SeY9dKE^6bi&iIgG4D-EkZGjh0Qs4}EXQvY>z~4woX8
zT}A9Z$m@V_X=3!9K$`d(BihT3v@1fT>e>Y}@3LLUDBy-Xsy9>`f4P=}o(7BPQpuK0
z`Oxz02mN!-%uJkh=@~LdDEjcn%}9e5qPS5p8+vF*MSn-NiEu(iWwkOB`nZMD7}3;b
zSwL4r5|eJUu45^7+iZj$BFW7QA<_O#>!>`6N_We6b9EZ74X?1alVc4}LpD9Dvgz8_
z$s`2Chj;$*h`6KMMuhz;(z7)EzVW+9yP*2G$m6`MXYwR}T?rhD*^1Bz#}VwPNo?pD
zC5Z^WoI#{xoZEH^?{l6s6pDqqFZp>b!QhfEvS^&S7TmUGW_UF_E=LFu+7h6b)E=Se
zw^y(j(kLl(LRo~SDQmw>p4Z`Z*0h90@h!!-NxC9+u+h^H<yk~CYaR;LeyoX2n{Z4i
zwivU`>$1qq-pHO*_(dI<4uJ`g+6g16DUG5((#$q<=yNd9A>4telL(jyv!^-v3E+P6
z36d)(?MF$*QeSH0x4ut>Rg?zut=8Sl8I-Mgxoz3MNu~bp#jQl{M+wXtv})AbaTq7h
zjFl-bB7%r5Dl*v$W+RUUmETiGACKxx2kY;9H46t9hx*1u*^vn#9jIhPL^jxUfULd|
zH-uhG5CXKsD~a65GVToVAr;J`{UJ##W^FAw-YWgxE~t~XOh<5|k%fHA8*i?jGV@Ff
z5StGd0uyFtS7NyvRsa;nZgO=Mj=6H#nW4lO0mGA@7yrasKq{NwuQH<q=-;yOXc@L5
zd$=NQweH~-q6DHkU8v-e-d@m&TEL=IqN0<Z2&~|06iKt<C&dxZ$eK>pbKw^=(07ZM
z910>Oe-o+*(ONdTFX!VX^JAY`kxmq;jW@*L5r{N1#4>*gxtNqZqS2~6(pX44=Ar2*
zQG_Jo<Tf66gLEg)$Mx&uKg1%V-NswpyoquQ$|RE0-5aEFm^M_TMd`{_R7mGhk~zVp
zAyB+8C;d5Km51A-nm{1!Pku0ybdYOm^pryK1h!g=$g9Z3Bts*OR)a`yfNE-NkBTF7
zF;q6V4vHHogz|ppWddx_*scIw>EHw5Ns%&VV3>VGujvXw1I{aiutKDTE#|5eO*<A5
zas$J<BfSDDVc_2Y^luwooefp7ib^i&Zcgey$;D7vY`kwMfW&J&o_cDKVd|vr_wR|J
ztge8%zrg#130Tsk?l!EUqCyJ(Nfjn}MzHxL^$X`r>?Enf_;h2PDXKZqffG(k$r}MY
zSx@Eh9v>pz!CVl*Jl?@|tylQ;sm56<R8u$-IbedclT0)-VK-ooQP7YFjN@mvec=my
zc(6%$0u?KepBoEcTaZNtG$E88FE5cT;UQP)9yU@$?>o}(6a@odN$y;bU&w_ZU9>V*
z4~b%Qxb;BhAJ?^zMr=J;6-==ct1pxk4wCJ}vTyPtf<6_MOl&f5kSpZknp;;<O)>d5
z0*G%8g$xkIhFA{+tOSOlO&SKG7dMocP>bEd!gA3wd^yQ1@bZ#ww~wE$R;aopfpP=#
z4OIUnU1Ibx5ym7@NBZARDt$;}cQO(f&iSNGmC9+U0#Z5A0L?n@@`A;C<gb43kCM=5
zO3CHjr|$ljg8rj=?|(ToMxGu?+UulVnB4b!he>bw&v!th9yF_0lu#f<3sM=Zp22sj
z!h+;Xl7{K=_C1aE$OIb_g)W-flK#EEdt#V6C}mBeTHBEVYtlrE6o(LIY;>@v=bex1
z3no2XyedBO0*9!@(HP6ZE{iC+1Rzsb_~l_aTVlaX(#6b`;Tg~_Q8-RykC6P)#q~2c
zQxZrlG~sbchrDWdzsTf)@l1=9_A&?B!B!h&TS(I`LI=4G{wYk7ouv4gwCNInfYtJi
zbOF&C`Y@eFT$w0YF#rgSM~d7Yz2xU9C+l(hN9*+6vgD<b?bIlfrUK1BwCHET`%6kQ
z&xpB{a`r^f=2ukG+yV@vpFJJl_pqE(axP(G>(I6r@QRzE7$<TN1j3E559;Yp5=8Ml
zn5@ByIM;<_;mqn%rHKm8zF~yLM_N1^GF<xirsukfRhXv7afT`$lrsw7ZxQlutkz`O
z-zqmwj$x`<Wj?!FcDh1Is2Mrg<zGae=|gR4ri<2-dBQ6*NQss%{t^HYEcDpW={2Fq
z9V?M-oZZwzR24)!pkmT_u7=C5Dj==fJ1aMVz$V(mo*9W&f>HYhgs84yxiVF{iS_BR
z*~9Idn{VwbV(pZ#%pjwWn;4F>+sX>Ijz22nZ(XnOf%Z+70DCFS-CPE;{t>zev^#Rj
z*vV1Zp#v4R`fjAQ9Gvh#DhmiHAL@YtZyx2W8hTdDLpj?sIoy`fIuqkkPgcl$mx!D-
zV=g7fhC>=|AIVuA8Iv=<uIl(<iLrovq7A_xP8*l?U3`jpMO9A;L=f7O{p~4zp{}L_
zl4u2T=qN@`s81hh;O0pRCl*FWUa;+#sb>s~nj9`IJAH03&pw-uNXxBz+BfRFZ`$=9
z^SnXmXv0~R3Zx8ol5#01x0;Af;)9xk1ZgCV#%Px4V@gc1AxtyLFWiXD2sa{qep9<&
z&srhUSkG~_BPArPGxtenHzJi%f^MY%%>}4x4YDxT%hMkl{e20DV%uonwydb{NeHD1
zUGFXXvRDXpNTPvi!@q@3tU||ktOU-_73ImK$_%YKY1fH9h$vu5KU5-R1`N_j${OI>
zF#T8|0~PlAq$PJxTA7O^k+2fWNgAWz=%5r#-U4lU?a@2C@sX$G4br6?47$%q3|O6U
zh>8?JaZ)vNXtzl|;WixZb^|fyDqDTkuj8W~kqcV$Dy<EGa0w@lI7#Y@C5L00?Ato(
z?cXGW4s~2D`GTSt-;Ox{eOy+EY}l5v88;wT&Lu%A5#xb3U9G344gI+o2|ZC=d7X}C
zq?T<DukFSIM$>YXFuKq|^m<>46Ex6Bx+Oy^y;{$L(b-{|u8b4(=;-7LYOmI8qE670
z0?#MPeqm>}uHD8%riu?v@&xhL4Lx;;Bxa#!vehY64P60_*1Q0#m%;5pgV`^F#kMJ>
z#KK+yN?wGd%Hf_9PKh1;L_}6?iki)uWWS>v9_7*V)Te1sq`O3>lq()JLA^d-vGz{+
zs(R))`8x-%QN%Y39S<Zj@vRG^;*PLgN7((H!&a>DPnlhj_-hs2*VUaLt+#0}e@)60
zlq%lZ<iy}%;|-ZXeTlF~`k7-PYg-)}G~EiGq=>c1=d1{*mDAHqz)5L!jkr2q6mc}}
z@(boW2c=sG>L0EL4g4BMPRssFSkO%J&7<s`antuk0VO%3#W@Se4A?{Jli@Osm0pJo
zO451s{MAZL=xr-DP1hxcNQzO&lAP1DJ;Gb>ME>P{E@z_pdme>gZZ`=H`X>3;Ab(A`
zc+&hZCz=UEm)CFvGW2i3eO`mJ`0?it4A@=gYGQqaVSYKslXJL%k1OxTh>A2q1xL5!
zM{q4wY#W(0kiAw*u;MK(DSNkFK7tV(EC^a^y6CPSYMrX8I#H@R{K9ONiMTNb375$-
z*XmSDLxxFPdIL74K|yj#t1*q+4?}4g9=Fd1hWg0J(<9h#OUsr-swXj8!@l0<IFo+y
zO~8iC&yo2TpTVLaQ~^drR-)ZD6cRA#YFQ}px>2DiQN#_U&2b#L8?7*DI1)AqshCYv
zKRuPXwl(eU)1GZFgMR{|CaKI+pa!b7Ir&on`k?R=EUe)NNe>6!!_L#}Gh(C~QOcM3
zeJ&vXsh4Cj9E%ULODh-fGV4_1umi-I5tXcwN4hpgce+&!FYSy&z5^1alVD8Fzy9rd
zg;qqBxf@5A|8{9#I`)@75)wcg$Ucl5{gXMMGp`_7>ff4zUeYp?ct?^ZGI;x7J8-Qn
zFcFA>6(WwKX;x_1jUJDX_+tj<6b*f!0eBw&_G%;Ztsd3m@dy93KOAel(Y)!RQ}?k5
zMB9|T0PR7=hBMtpBr{PMnu{H8h$7Z{Ng@c!MbX>DR|hBP4DCl--Nuc3Cg_<x&__VO
zDx}ET=E6={se~3VF13}V(J-(XO5@1IWiX9KH0bgs^)>fIlATZO%MBE+P9Fc9RL+dJ
z$|5B*sp!v3b+SelWiiBLU_#_^psS)9o&>TNqh;c;opbhnCE8$88Ry|aiYfr4D4`$@
z{RU*TP6&+5-O~1;yr0FjQ9z<qs1;|3@w6`;n}gJ@5+V$L9E1ocNpjI8@>A!C#C7Ua
z#yMK+*CBq*6O#s4-Gs6ij;*-(K<Wpruq~~2D<h=S$o>oK-+yH6@RBUWvJcTn?2u+N
zge$tSeD@*}ije&?h@OFh6P$^$9Q!gS7Gd-VD4`w>HG!0Z7u6Sjl1Y!SB#bB7uB+K<
zNj@{eHrr|o^4MN5i*m_aTV<T^!fVD)taV4$E}*(ckhXxN>2l-sO$e7aBkTS+EzRND
z<?c%5Q=L%={mjR6sEUh`853P*E}uxl5D;5jxpQ4_(w$BuvzrtpM*0i<B9r8bEz}X?
z_3$r~LfSXMJbbAmXISDsN%^A1Z2?5G1l^IpDsdJfcpaX-(J4}qT$x%LDem!**q)0n
z7mG=R(vt?xp0v|=1Cl^ZzQunt(u2jvXkq#(%*4li*|lYCl9H3m?0yZRC9mPB4_dR2
z_bE>#4z_9lHDrth=Eipx50TXPKxAm>Fk7w48i6VqLWbb1V#ThnyF|-|p5zaAMx1sV
z(~KDNJ?iF9qm}k;f~&~p1CP>E5jQ^3-=(lMa^2XpLA%wb_iUK@dLHlP-=AEaw|?Ha
zsXw186uByLY18(pvkuDEgpHouuC-;4^a9?M?(a8kUAt@1g5M6Vm^yn`*nCH+z3wme
zejXkFtF(Ua2A9vJb;}#d`kEb9TQi-yTsUbUO+i6?c=-P{cir(=zHj?RMY3855hWst
zRLIImA(ccK84pRevS%e^l|(8TMUu?2GE#PmY_cLFJK2%m<L>wV{(t{`ee_4)Z=UCI
z-Pd(q$9bH`d7Sy@NO#pMEke6??J^#3&r*4AnWKjYbi@?{DB^V<q(Al^d^_ZE<3L<Z
z(2W1@(ydkL60NkkT>AWNY>wW$XL5i0G8WO>FVEYIcjhs}NaV?^$qL9$m4(Uf1|<60
zFHXN7a#B%M-6<{obtL+l^md}QyEF9NnjdrSkKb*Pd~JKRmgAkBZAbr<hmekb)IrsZ
zHp=hW5o~oTQ&UqGR@U9!IwPZ$!J2H^HEWEa01pfaQ9gZ|MO$bqdYJ8heBp&Kf=)m)
zrWEzeG`TtbbeX7`mCQ)3`ZKEAY<HIU{FOsQ@tf=}d<G!^9Rq{1t?j<~$?jla1TsC)
zGU(BAK0BPYCwHjWgq?$b*lC)l!M3*~6qiy0GB{RFj}XfKyj~dx>xr8B-6tRI;N$yn
zMJ9LPmV+i><vP?(!IQ1|nrCO1z3+ZuPgZ2=)t<9X#Zr^|;+_rkh{o>Ysi|$1S#VC)
zeDVRG0<&c33QMla?t$~$m2BF-Adnm;yQE~?XJ0f=ut}va#SZ+i5U2EL@kn}%t5Lj+
z>$A?8dhsq;h})$yx0jBYzz0gv(^JOxgV9=e%HDu+#Tr^#4~cYfbNaJocfUMmH`+VC
zlvMf9>9Kz6qSw`0=}j42SzohX?NOw|ur7f`<mRv%z6H$tF?&1Bsi^MeiT!$Mthf-A
z@CPmL_PYcGzJqIHrIpt0FLBtKgqufPLI@8`0+}J|^ij{3mX^T9a@^sOC%vZ=9qtw-
zj1Sf6pSAwHj1$t3B*u~da{S<x=2EnLCN5<dy(7sAQz*72?Y|NI-@ku8#J8==*!G=U
zfBV;nxb^GTgE~v7IB)%V!}pk<b8~A?yH<r3ygfbXUd8G-P?S9Cepcp;oN7(6k&L0-
zy*sjQlb^AXa5wtH=<3>Nb4^oUes|rIBgkY-wIO|g(E1prkeq(5vCYif+@wBMb`ci*
z;W05G0E4`Og4IoZZ$ncvu+*O{#A)naGRH_cCuPZH4z~+smDpGPTWYnoKdkg-T@l);
zEl&*!9D~?1yMETzqWR`?UBr_ojPXA=_{qx3#azfMFc0lLocC(y^v8{<BDJgnex;E6
z*ncaflCWxJK+p-V3=AJTzb9$DLKd|Tt+h7nR#ja5lbpI|Mx{ny0J^JZ;E`T&jGdq8
zq!Ao<+o9_@DQ!1l9<$)@aIly+!^_k2bei5lWR>e-=2U@&BwsvL44bcV+<T@xD@Q<H
z)bQ=DxfqFxh9W`kcPalCj-$X4+tAA)Rw(Y7j9Z$c>e6xU^iNllAQj#&E-t<wiL*d%
z$k4#RfH8Wk2wzCidH3#R0Be6bMf=N@oF9!z8+yE#ZSW6v@bbPdYk2!WIAcl8bjm`!
zba|A<BFxY-m3dq$SM8N(*WANTouf4K-{vw&oB7MlFE-x0cQ4avOa};yAaI8Lqodg+
zY`!+9zppo(yPKmHDMUp;@lJ8p$i?TOBCfQ)vTV!!-^G0A@ZG=0eEV(Pu=5k4HK*Ms
zx(nID!^0QJhIhVV>j7yUHNiruoGUFK`pN<v{;qm;eEfEM?yFMD@QY_5cEezxR!tqb
z({%I)eE1)9e{~z9Q|jTY)L3|4q?4lUia}y<F_Phu^JGWE=DnIFhAO$khuP5lcCg^z
zA^%)oR3wv9l_qBK>x1@6#h7Bj*mm`SPj07L<|<__$f>&h*5h|ss-7FDzRItD^5j~A
z^l~njP!foN??(du5WdJN(JRJb8+=Oh!9GLk(~{}W6Ve6K@%YXcIP&8;2eh}hYc>2>
zn?Ly|Lpv8?wDNc9LyGRBQ5ugsX^o>BT>eE?g$|3$d*ZcHST=3CvHEA3g7X6#F*#|M
z$q?*ta?;n2retP>B)|Ljx8OOQH;n7!wVGeu>Qk+E`t)6i-StSQPudFe^RFeoJXP6H
z_;LKx+s`6aE8bdK_x`)Ww`=l$LGn@xW>VerXvElgx3}X_iAhN(I<u5-FIS$s?~cv`
z*ulI&SC{W!#!E&9IyzCadNt;GgGEk$yi=*#DgBXdHa6o|d6mPB{?IaVm^uDC*N@|#
zPnJ6z64j_MDk1};nCfKAg0`XEw~=2`ADh~Q3Tjo;`E_GGXwLSA`myjomp{Q!{AusO
z5A4r7evjW1xFwvvq-Ifzv-pbHz+pUg_IGJGB{lK)hwiwVqBJ>Unv5GSw1t{qp4)(Q
zt_-LO$`T1>6_q|f5g2X=xi3tHf*JV+S=6OMZzMw$*b_Vd#dA(m-YX_1M);POmv8E<
zsjI7mHlI2EXB&q{?Z}UR>r;|&z0LK4>i5W<I{K7NipJQg?S(F)k0dN_K+N*^RT1`J
z?A}6tG=AMLxvR(d&FH@?^&OHw8p66W_w&H)pXCJ_;!0b3T6=b<d(YQe$tk20Q%-Io
zes?Q<F&ZGeW&{nu6(wHFrwbg-VP$you>r@;*MqMG<QXY(9Qk~rK~-3~YpTVRpd;jA
zmW>a=(nYihx!k{FpqehD`xdEb^dDQZ{OuP~Thyl9tn6gZGEg+o!rEf}tOBhr3<Mn`
zqsYNx7si-^A>k)!Sh^fJ``PwL+~f_E)ce0boW*}iAy-pzX>oCfj0_i4JxZpge8|0h
zk=5`?No|9MrxKmnyF3`W3ta-#l0KlbCe!<m`@rBJPH|6hFdBmR<mGvAMtAeXWO*#u
zqW(+6<Gq+r+h$|ik!#aQEhsasq^Ov<Z?>*dSoKwF)Ir;EI%ei7ysBB&uY1^YPsg`y
z+jji;@lxE%!7}W-1q5hoYHHA-AVGWs<*IP}cwmQDzcrWRP-d#&9QXya7WkExDy$%`
zpMQNRRN_#gX0no&)+S`-OawXxGWlw4u^^v%igdq9{r&cy2Ax>zVCoSbMMZz78}EXF
z8)gRi_Eg^9-dct>w(r1G=sQ%gW{S#-MAo+!?T_4CIn8Oy>j}YAe8c6Kp2K1G7IpeN
ztE3VVe@UsOzg65bxN}%4V)&G}5=}+K*UW8PTzeTmi`#Zd#>o3z9F2^Qh`5Q#cN@`!
zLlCo*-JKK%_n>EOp8WQM|Mv8Nr1L37uWz5S&MA8J)zq8yX!E@AbMU#URfML}{%`MZ
zN_zd4fZY-A^1Nn@<aMm^qZn2Wjv(~TmDbm1l)ph~l~+!VyRWa0-<|eIp{-TzqqFE;
zHYjvH`P(R?O+8QlMaz{D=NkaN@!0jYw_Cchfq)`Qic+<Of+-)%tE!&q<y^_$F6{C^
zR#tX94K0&ILCDeb=h>fYJT#pVVF@eewO|?^7>Kv)EouB)S#a4iAt*RlI6OE#=xEAd
zq4yu@{{H@;u2EC#QeUb@TH2(@?(mt`((oePMk$|#NyAj0D{u5f&?0G=*yTI&XSd&e
zkKhLa8M5;O$w|K+QexP02mEBG^}ikti+w#==VoQ#r74)^8Fuek`f05tgNn$uOLqMl
zvGO$x%l!NIv!H);=9*;o@l&U&ATPTc9&X|siy1lV9UL4kc4Q8YOHEWCG+J-)=iw(V
z{x;flIcK$(%rest8Gm|u^^IV8wRl|H{;ctXyLtjTT7R@>J=4!+<L3ScOaKFqYid^F
zz@9<98h~OwI%Vuf*<>wRZ7e%5K#Ci}`F+#g+S=OTAHPI9DBVcul^F<XiSoM4uG`Ug
zP1jmAY;pUALxO^I2r^2Jj^bKcT6d$O{9|Icv{SU!hH@NKT%Mn3h(AhGxQ|P%>+n!m
z%Jg#X%IfpxtIZ9+Zu$8cV;aOF6tr0`Qx}0Y)`A#Q#;0mX)6e5$vr3BUK7B~PPM=2g
z*ToZV+qt+x;1Sx7CX5Q8IP!hQ$E`{2=!>(-Or*02Vts0!$c0Wj+!#t37mH<_fn86j
zezb^Ti*kGl`ntNlz6#{FfpgcBw1_S|wdxB3f(clA$~(an&-8(pR<HB257*Zeu3fv9
zmzS4nd0|QwhYJuZ;MJ?WB*enDTg2Qie-yyor8SZzuWBCg_`I;i#cTIjN3U;bRdqU(
ztDn{hrk4CH$9AvTGyjdB@4sKaw770QK)>*RzN*!;uKz##TXn@gqY{SDV>F@1ZUUdn
zi*@oX;Hr-dn}U~FjNXGB1Bc<<z~c|qY75}qp><h;1H9^orUcg{93q8h4LgK{=oRTs
z1)%0-Oe4B+W288SBHb@3;#jSVlecTit~Byw^jVnd6%~tPp_YEaB>kkWrO)G<zIL@_
zfGLGy-W@eP?KH3c=HL5h#>t6Hlp)PHl9MKI?%1()sD<2wuUkB_W8gG0qcJnv1tSPq
zPcUSzD~nmlWqVtSc<)SvW=R;FZER}7+~4Cru1R}>Pm5(zbw*#L-?3-!kuD`I#1x0+
z*miTAd?fK6MhZ7<I&%xe4fyyRSvXy92fk<)^K?77;ssaQLn3+PT!LDy5i`kEY>HT>
z3gLomv859;i_?@M$iC_5=|4QSE4l6Gw<bo~i5`Zq_#|RsTv9gxxk*&?;&cKv301Iv
zP6ZeWxhZjbD1}TOx;mt>Wy=<0h(2Cur`$^}3qObS46=kZPc#G23zbtXVUa;Wt0Xmn
zk+BT!#XTeEZwFROnagY^Hf{`0zMP|nX>IJ&)6*!p(|^1#=5t}Mpx|BickEFI1SBMy
zZHyAT3q*d|eo`Mia&?H|qUW@V*`-TgC47z^r2@xDk9Wa2_{g<Aa^0!l1&<#-yp8xu
z5P%cIeU}Fw+`C6j2<oPDfqebm=#*#G#`OOE`+VmK4tT3vM_s5QX$*zL<xE=gA?tzd
z*@uWnrlmmW!82%+$Y>M^<$8T5&|m@%<k;_mjrma02cwk5ci_Ng_hN2*cXV{*yH4{#
zq{I2fx})*t#?5YVw>GdTX0$y6D1V`!myTuW#$`+p;G3`OO?=H*y^_O${B$jW;c%n3
zS515at2r~tQ>2y#=LUMjM8X%12Nz;oU{pi+qQ`pYu3gIW?SU_5Srp@4rg|DrZ!j@2
z$#<U<LZTOd=Ms;o1K^MEpEEN`;7K5lx@F|Ov=*7Q0>X%_0X5%XZGHWN%C7APE`<a<
z3y-^)QHA6WBbq%HqRct5tJV<Yg^EtT$9p@GC3pVk6Xm?WNlQcI+I9!c&R&a{!Sb5|
zV-UUwU3!MeImvgSgHmhCFf3e0kSmM&XCQ*ghu&Tua#x}k{!`_^r(81hplHJL0*-go
zG&BvlHu@xwT+Z$e;6S2c^3h^9_}#kI2Q5}5Dzl#}Upr6eS$ecq&IJbr-8l9vJnVWh
z#f4v&`+NVu$E{~IpGe=z&zD380}b+D5xqAGo}NW50Ui%K@vQQ2>3>1lWuzDjALZ)W
z2Yh@o{ji7#BO1~bp`%Y|xpF4UR0Y<E6x5EZtE)5FBT^{$5R7qEKLv5{b74Uh3&-oH
z0D({fUajD&#pC%V_(0>OS=iYFF}mb&lvot9Qm^HCD#4;iX#jOl{5h5#NFGc;e_l#1
zbdM|GyYu?>>+tC4Kp@4Z_&<W^30G89Bwr8I$MLUGQaEjBT@i7gA18+bty^7PrQ5Kf
z3}sCR&?6nS1IM{LANf=w>&x_7b}p}|NWi<$F){hSdnZ2%D@6noW8}z}JWfixr+1t^
zB`B7+7iA@*yAK}F668&3m{l<Lb*En`fZtEdp4=fR$-Y%cTLJT{r_mU!-q!r%$7KXT
z%m?ITZFBlHZ~|HP(KMZ%;^K|ZCpv}k&v9K4zK8@h*^GRA+2Pn7LMq}14y+}p6j0bQ
zq~lcvieF1)nO4w8)IxNjN3ftWyG4->eZth1+d(D?i~R*^OB$&P+b%5j2Ws-hS@>=Q
zB4VBR%l3Bz9UTjbUdbK5+6&Y0lhNHe*RH+6HOHn%=P=$b);BzC;aGya^ENQ}<B(yD
zDY-v%;8kr5s-o)&(#1kTs=GU@^P^+{R@nUPco;Y3)Zj<-kC6JrPqwM>-|I)7kmsQf
z&@WM_`5jqm<<<*EM~_~IvqVURxu=(ximB<-j_9BV_4XGz|DvpQRWb0Xn<uET*JE20
z1Cdqk>8%XgZsl<C>hHNR0UNSOk16e$r0&!Ki<x?3>?yt-J4&xGfeNY~_=UVU=dGuP
zMo9I?kN46v!UnQrmjwJ+3JMAi**wG9=G(cmj9-l2q&SvEv7o^G^YYX?Q6dn0Nbro?
z=+}sdh@Ee*jhH&?!vlx!$Pw10=4+U#=66E*sJ8wayWWcg3#Otxs+c?ZMEV@TQj9<#
z_Bm=SIt^7MUV<+4*iL$S`WQX7jT@!HWdB_SkN2BU6UI>R?@s2dj6Tqo`ehp!)_v1v
zRupW%%Wdh~f6dH1>1oAs?KdtZUN^z=@ixl944B!Z08|tn5kYY*@mQGT-MzbV#C5#y
zb5`Lfd*K0Hh#_vEO3*ew`{@&ADk*<M@YS@dWkswD=MFIo1Fi>zxf>mQ*~tt3?gu-@
zTE1{*Sk%Whx<=v?<mN+=>3m}85H7jY&O<q$k!4c}a$zE(SZ+Y-!b9O-cHlRDw5C0l
z*mA3Q)22-<n>SOOmT<zKLV&^VuFE=HclBd*&dTd51geH~!y|cNJ}=9=vMYeE7zt-t
zhEIlV+`MZLll;Ny_l(Oxw-$K&wpd|kf7CuhdV*cjKK|s)5rje=!WR$Opvd)1s|_xv
zwXwD)yK$EaoRxLuk@FNRb^))+Hxno8q4OvzHg=z%y$$ol_{_rtcq0*9)3+{Wut`7B
z<dSvQMsY&*k;QP`lijtHsoWbkZ&o0SD#xwihkt|nf=^8B4A6Z_vbLF7BC!JwAHv8{
z$!F%LnY<Yv@F~J~<6F&GnG2>Kj&t9fRL66(^Jp^;RJBJGfPdSm^XfdWjqu^ay5K?1
z`vnBBjT8@6=R(uTZ222mi;1O6FbD-c2XcFKm3Zk(=R)7M5rHh?xs?P*_``>mIi6Hh
zRQ;&oZ(`<_VR0`mDPIBSv58QIs6k|2&8p>PB(VeAg_6ZJ1gN1Jv<Eir2~JxC+T^b8
z{)>tAr_Bsy-Dg>Fo;Tw+!fhA4vf}A5)gw!0kPXSF;x@^;;=v1vaBkVM3)%{ibfb6s
zu1P=9=HZfZR37c7Q@{mqv{k$#qH2D~$ksL;4`n0dH);8fgF$cNX5EWj7k?&5y8ev6
z-1I#3O$idx_ap4LGQB5-#PY1e@c`0>p+k5rnIVuaTj(+sH8edpC!)15G&qO|t{DhR
zU_OTnqwlReOQJ{nCO&c(RZ3A(+77|kJD9Nu9*i%euYB987%1oUn=XDpq!p)mGog%_
zn6zNfQJUItxg2ES$x8RJRuRh*FjbFZs$y-{u2~a^_j+Vd52vMIPlpvW>uA)$5^|4a
zEW+D^=zY308AnX>B8wS|>bMYs=n03FMTdy7n%dgUp`3@KhTsI6-Q6ke_A9Yv9W%}M
zb%i4OxzRCT&4bAcRi>n()}`;m+Tc!Em&q83sp~Yf8g-Pez-+8(@YsQ2^uIMq!&iVN
zp!G})*Yc;1m9g%^Jc)WxmgD=Hpe^P1{jhF<mYF;HNk)9U0#cz91Pk1kB62k52eOKn
zEP`*`pl--ER}T*LnlBgho4cxeyTCjc>vg{PSai^59F;N$iM-xhf-*e_%{eL8T`-r8
zT9E5Q*%sYHKQEb^pBRI+%<5n>#<^8Ha6P>q7)VzNj)sZ=hHJEm2eZ70Da=#^Fif_!
z3seoR5SyLUOhp@&Uas|eLJ~x|dhWRtE&hlmoXOqAwk<EWqUX>&Vx|Q{UJ$Wq2>@Ll
z%_=ityF1-mtJ<Fw{DRm;ow;sLU0WL)^6|T?e_<yP(-TWxoX6GFs0pBq%5jl8p-6hj
ze(w68Bk5w1^uzo1F+md(Q{jeLhPUuRiBi;lPu5Y|naTXDGuK8Wy`JlPK=!#;=Nl57
z*dwgsq#}F}p%-C^KoH<xWLD9f->DP*w{hg!;;&j!DguJ0qu}N`+*+<2gfS8Wfi(Y3
z1uga4nHcd)>Z=`!X*%SHIl>q2D3Zl;R`;XzbKj!5dRBVZuJWP5E{6#>;Ocu35mW?F
zg9<j?$#hlx3|9G2g-vvQ<LM*m{Zmt-+pU-y6qE;~tjWBK`pc^e2i72!6A(~!fAj}j
zBBC)(nocl)PHlEKfY5~)+snp|73Y(Y`0hXQd2z$5B!R2o2{1>EPN6~cljF=#yP;D^
z_e0^<N^6o6No*r=UQ_3RVccbnW4Ic7`-}9_bgtM-d#~hIOlx?|k6Sj)Cu=;UCfc*j
zH%#`vGcwcj_AY7uxeTS&`>Lv{=T5A;5X+1>9XsZ)G`4^DzrYYe2?`CprIwVPpWcr;
zFK-1#MC=EyTU=gN_W^)VfyXhx6d+WPL~d`fhi;U(R9Wi^jqeecNn@0U5$HL=Ca?GL
z@kxo{2tCHZb4XZtgPWTh27^fQ4@ISM%ed|+o?lqVbCYs0@CaELL)Ky`7Ax&Ex&yaw
zzYNJkoj5^70NClrw4GyMY{!LvtrpfNFLoXJ3E5skrUm446oLSGx0WDFDg-^}E-ss*
ztjeEB)m-xO@`M6VK~txYZhB0IrGL+1f`yCA+CkQT-5ynLx&cAEu<mo@uG9is6WoM-
z0FIE6kn~wCB9{|Dw{Z-g=KPc1FDz>agvLw5sd_mtPj*f<r$jVIXCr;*YeE4_c#i4d
zT<KnY90e8kiJ;i0juQtgeof(#HjZUx?oSolYSERM+%$4GGV&I9h!IgyQD&^emyv7u
zR;ja74~?CaNe=0F<O8#_qu?LJu+kuU*IHUyR@c;of4ori3W;fw18Z`5*S*I_(q${<
z75)7E^$hMfP_m@_c~Wru+Fnh^O}9WHv)l%sZSHl}y(QaK!?@mq<fhuvlfIA5!y~(Z
zqCXi_6MIZ2slt|7w<7V4!I}P&L$>x=<*hu{z)fP_E3QN-?!4fEahybgpjpSDaEpHH
zc*v|zhzAw9b>=TdS9H9Ej;lwJF1dB5Zdq)yV|&z!ezALwM6+L>qpEGkN7u#8>Y<-2
z3ci1(czWlX>SIC%HBkh0UYNgG9<T+W;*$vqV!`x39~SrZ$x(;qEQ%_jfEJO{Xw*IB
zKX@+WovWTzX|eOfqprTYH^Bo~JG@1vgMq(P3av9``MO=m&0f{nb<woOc4mse_|b*f
z(xd0K_|t^AmB-6j$%m8s>g<?qYRixA!o$8F{NcgnBAp}0KmNKuq)Jy7=e@fYOymXk
zVvs$7A81uNXD!rEolR;On`>-;3qJCE&XukEE*1rX2z(kJPq-If6zT;z+{OA})74s?
zN~wWS-or8GMMh~Y#l%nGzQ<3Z9y|~jR0c|Z!d$lwTc&ZYgseYw>_%EzzV0G^>zz=M
zqDwG2nQbY~n$o5Iaxpro66MI`e9?|s`HFy@f|KOkVD-H-bGyk%0P(#u_}yavhTt*K
zu<wy0QW1dghZeZsJO_wwl#KE>(Pxky7;Q<lm^ZmL&o1SdIO~p#g_VclQs}1nhe^?L
ze`e1Xdh8|peHzD5hk(nNuH#^)D3Z?#Bxh6v^!4xI@x=m86GZNdmQg<W#BG&&PO2el
zpG5Sx4d2}<FJ4`<m|zFy@3rI<YAPbF%>FzHZ}ifX$`T|$xEk~!Z_PJ<jH`GPNmm4h
zz=B*@W%aPP+Mx>;D`tx@#%vvsQ4Hi`)Jv49eIQx|nUsbmlGrL3qa^)Jlig9X<$J)I
z3+~?x6%>4DOJNr8Oco0-4R1ee8*@$gU1}Vcyk+AqLIH$0g3)!<6NtrLrS_PXw@y}X
zuC&lA^p(Yv7-zcAxDw@<vx#Sp?^*tI9x<vRRaca_#dsQ0yaL18<)x()#WAP_1%YEM
zlsTr_{-|nRoLjwZ|LUtfBr9DRa=0o|j07fIw`}o?kKcjK8n1N&3!{AO7&QUGqworP
zhjtG)jm_!s*yfp(ts`zJsTZW4`2!_u;}|%~9+A#nd{6JSm#Skh>8>3+;;Sc$uV23&
z%T$xvjM?=ZMvjoALrF;E=;%mnImCdFM~|HuRpNKg@t|en8YD&!+=KD<-;nBF?#Si`
zc|#rlbNx&!H@#WVbpC6wFxl;$9sse8(1vyHl#{zSY9i`aiYvF_osSRrWEw%P!!F-S
zuRB+nodD!d(l0vVJRXRnhve|u#Mc)7G2ImH;~E;EpQwmLIPU@dR3ag^hjAw##eejg
zG|U2MaIY!>6`le3+r+4&)^1U;jiZ9f7$5yd?>l*5+C2v^(evH~SA)gfhBRSMgSx}~
zct_(HKr-K<L#)7#$AAZCy+QH-SCdIFob76_d{2HoUPJL9nbO8FD5_2VuKv+tqT{s(
z=!E${H5d^co>xPo?2)*1#aF5`DOF6&s#^D^y`g<B1=vWus*ut49qRfY%_*A^hs~Y0
zgTF!fn(ze*1O*d5FknX9s`|R9iZkaZ`tQC7uZ6wcI;iyCQEl<=fJ#Di<<Fl4t(0$L
zW5KvPDTw%_p;80nV$7=QL*<o~e2CN}b8Bq811blYW!*$dq@G7CFD{ZiF;kimsy#}a
zP;1ac3Z1*5mIQ9&Iv71Xw<Nb`;D7V%j7I)~^mzt_F-hvAwvc6@#+y#~X+fisA|;21
z&va6!0fMM~n=#Sv?~1_3D3P&j8$Un49ccFf9iq^;biip;8;wW=a6Vq7QI3B7`lA{e
z3>YjR5HY6pK~6Xw<BnB04BFE41K>pk-t)M_xfiFYkXl7?q=ek^_g7P*5T$6JLj`yp
z?nTR9awSOUgsrq6LEqq=x8Z*P{FloTTBklEJ4^s-)M7$z15pDx-4H3fs<rhieTudz
zLOhF$p5CKo!L%)ivC3f7skVeY>%`tmnVg%RK8h^%C%ll!m$;1P6W@ExSw|3Un+2_Z
zY_twW*j8IIo~Yka#+-`_CUc1@N?Ccp{U1Q$d%%I9eT_3?&l72<4|pmfJ?<K@Tfx+k
z6}BfA(+#AMbgY3?=Bg_vB8lj9tY-2}&EyE%i9?GJGA9OTKK%au`%TcpPksKbGF6$?
z_)^gXt;j=7@xbmG_FBH%%=6E(+_>#Q0R+RJ%!vQ_9+SAOY;0@+h>m6Om`E5z@zf77
zXzRAI&L(oFLWfk}zgUMW0jO7y1i5)tFOZt5AS5OoQ!7*26see`WrBrZ4JfiiuOw(m
z-cS?6qQ0*ELk@SiWye>iYwj|)t_BtQ{4JT?FKbn%%Ca%M=wFOb-ZzLHn3%W=y#ed-
zYv0gGRZ&nN$UGN;lNBm@A5uVZD&Pbw3augBvK+`O(Uisxd+u$Ei;MBlfGt83Yd`Vz
zU^371CWw7d`QpyX%7VD}dc`q$9v&XVgztdN@K3?ODZX!5Azxnt^aD30ckMyOdJ`PB
z)Yb@ogb-D@9^oQ=WV=$jN0**~p&WM$nGKS<B!m=__XAV_^kYHM2FCcDy`D3SB)M(X
zx;H|pM$jbgVPo<so)l{=po+cyeos$Nz^;(6?MF=UM#t6FBizN=+7gs#yNcX4cjnnu
zm0qVIt34?OaGfQ^4k%QGqK*z@m$UP~+L2U}1RjjsU;%rF40k(r5FDZFu(wD%7kgxN
z%^60$JH><!=DkAV7|9(YjZea?diGvi91lqklf^$IxC%h#V4ng&k$HktBOm0-%1R>d
z1#rq|&6ZHep%z@>EjJ`NZ{o$p;<tvy{$RN0v_JGzwF7RF)dMLhDU#+#ID@X@3n+?H
z0m{nGAFHeHa_2hFk6&m`H|#9i*fES()GAv=6#SB;&PJ3XUxajknn2A=6>!SzjtZg|
znjYRybmnEb&0KmAdO}lKIn0Ea1PFY5!mvEPgY<6Anl)s>FqSDGkn41U;#ycyvMMyt
zF1X!9f?kCFzsA2HOYdIf<mPIF#x_r4lDZVsB&h*Iu}kI3Wsn~ACM3uLG~9-SuD!&o
z@S4>E@Ws*&UOv%Fk^yj94ns}JLz=4w?9F~kB?Ec8f$6%zLaj&#0*nsn!%<gPNhWR?
zI)cRXLg!xY5?O|ODnXE?j=Tzp$^jZ-L3>_c)5bkSz-4fXU=@cT<|~D_sCv;<dS~42
z<8r~QA|FsN+z)UIU37U<A3;D1dITlvvQab%%jI7ixo7>|x3eGn0Ym{Kc(riQ{*h{f
zS?7WIS>o*B6^k47Cb+DS&_d-?zEEkJLWdU1RAvh?&M{~yR5@L!;=wx^%VYSNc^?ZS
z`4h^Q5XDHv6qvjUptPwG`@kRTTXL*)6B84SAw4DU*c&%)#OtJ<NmAQdglYjK!#jaE
zLl8|}rM3C^w04k5+<(6YlG^`&m(Bi91-(D=z1)>8_lFBZ$u92`Dw@jaipDqo2Rh=@
A9{>OV

literal 55829
zcmeFZ2T)aMw=KF+R7^+`6bS+nl%xnq29Y326eI`9Ip=IZiGpM#Do9R}Gl+m>5Xl)N
zv&pbQ@|~+&|G!V&s#A4d)w}QAQ-|tqX=Lxc*0<(2=a^%R`T5F9i(foPdJcs`U6gnz
z@&tuC<%B|=)WJCoKN*hrxCVcm)_E*00)N8S?t=<X_~WeALls*TirgFd7b|FHT_1(I
zj*<|$uizBBH0o?e^mOmunq|3!p{~Tk=OVIR*4lT@y}X_&a^;!Oef29sB0>Q#Z|ByZ
z!XqPljYT3WM4RPjhI<Q-Q(x;;9R;3VaGa12wy^N_O8F`!x4UPr1Z%H^Jr8+xg6&@H
zVo$c3%xK1=agRO4@B}>J=RW`Xato{-#=^t@^Cj1OyY{ijpRehps0mu?KVKVil4}Hi
zei46{fzHYI-)}=iSo!BwA|e8QXEp!4ikh0T0h{$-FAEORc^Ubymo<ss`G5X#0t~FI
zm*_$zs=e?WTHlg!KZzKubS`L|TKtjhuRb13BhFV{?U$0ZL-PB>cdH+b;Xe0yl=9)j
z7yYaL4b-jNk4~V|KYS39SJ%^0S!Mlw$s6uu|M^8deb${S<BfMh7{_k0r+Ikt&+-L#
z{8yIi^7BN7fiheAF&8v*q1hmTwzf774vvtB2zE55xgUv^8-9U7``6}BdMdB)3Wl1R
z6a)kWx1H9Wjd&g(;+#7tj9KjMDl%1aJ6LZlwOa^DaVfW3I1$>69op<gBOZuCwHe%n
zSFE)#=6<jkEr(Zp9Y5N>SGoS}8kfgG>8Oiz9M9{WaZk$jn0w+gE#a_8FAU?IPn-5-
zy+~vjBF%W{PU*gd4{!Q%u{V>3fdS_d-x^BO9rM&|tn#Ws!Qe6v#s;(a)NQLv+-WJV
z5s!f2rH>EJ*3uy1`ucjQJvu_o9(gFm$FuD*aS@n$>*;_&GqD<vLp`^hF;~_c^|B|6
zF1?y=>!K>hmCl<Zs@u)<31O{tH*Rn-r81n`UL6lYE^m3bM7+qP7kPVc3KyJLXD)q<
z<}iI16QedH73_t_#sc>n8%q}1s;93%$dnWwKPRC=sr5S+9WUG$Snd=&CfXUX4MKfb
zC^8#li?oN2@cHsZDAFFYI<5sT<IZNJqZ5medGv@Nl0}2SezC_|b#=Zg>2)H5Fb>tm
z=4Qi}7boK)EC=(Go7&oXdNiAxn-iaADzcPhJ1h@T-@GXyALk-RBzmw@b8Jr<S^Es{
z?Af!_^z@Cht9{$IOzM5`^V`0?y+)p+mOGU;f8;Q|y*$jhKRM}5NnBzvYLi>b{tMHu
zHNykzoa$U=+MhF6=qxQQoyTTSpu(h*FVd5vF|6<U+RMww%L_Xa-J4%SB$}7b%gZ~g
zUsYl`Uaa!%a#bgx%t6BM08SJpt3}uS`0-<Ht?ts)&j$bUUT%vKE_gKZ-9B}q{=^@(
z>)u3*hg*!4;$IT@b)7}4dZ}<^x;gZY<rtqb6EPpANB-CLuw`6?jHIN<&dR7pjwk%L
zbbqBH&#;psQa>~_biIit=viw7GfV5De$zWDr`4*R*a$hIQ~a*m^-5aq$-^%E)@0nF
z(b0bM^G0Qq<@V?|?)%#xO?orRb2If@Bl5>==Q<{P(&eKg_K)^gXSQI8@vmG_&T8A3
zY3<6@61+iAUy;Si$ao%k$9v;$Nq1~kyY~5RqNn`-P9O8qb=bL=V%Uud@(T*EP){=y
zYT;I`cQ^E>=jI;B5i$6^gt$;IvpE%W&+=Q0Wwr0b#4~S9wpI-VA-#0iDy;L{BGZ0q
z8k&=SiPr@MDe0wSg~qGh_22uGuqLXNSVXg=d+aZl1jog_<uo69wmMeT)Y0)Kk)f%*
zy&*@VLN-;JT*YDFv$oIMw+(MDUPB`E)Oq5GJq-G@G86m*yOKcDWr0@3qcM>Dp`@f;
z=}K!PYm!EV!-fMc?Di-@Pk|iGs&fT{7ewXWg@?Z;=XIEXponO-Um3Z2&tk-?%sjbB
zr{P>%f}mEl<&RHiA=+q%8R+TH`1<-9btRs9{<XNrf2=Y1E?oMT!=3RUSW_&9k<Lt|
zTnBV9*2-<tw@&EnlIi_2+qrUeF`O3?p>)kVb>5d8RjcKa#FPt-@H-L&gGNTw8T?KZ
z3<g}gXYuTC4`cM>lP?pmUK8G@<mB*Yk6Yf*cZBBiRsYV~D-Xvgge7T}ay9v#B{m_=
zK6<L;;eq_^I}C?uU)w_RI3xhhNQL8r%}$5bbk@N$*WX;CTv>BCk)EF3z|tG&=SKi{
z_gPI-j;O23)lp@;S4qoWIY%mnGhZFummOyj)1ZS7yS9=^5b~Y3KIUCQ0_)ehx|uzf
z?WLP-1_gBkdpoOIS#ghS{ZI1;(HNE(4HO!O-oA3d=EyL?T`|Mn*naZssWR!%<{Pkk
zA&ehA3Yme#w(!~fp5+)*vH9?<RrS*@_ib2h9wv0V8oSdXU)ScZKl|q=*UNryeFKA*
zh5gl<8U_2qJ#=oV$6>i!jX^sp_Ni0cOvgi}xgQ}$HV(ZhJ?3r5gM)*A!R=1Y%^5m+
zyd~whZ8aejQ*-!hDhTKN`2w}E&dy7Obdv8@BU!a9N=6{5ucLEoPM{7B57#$41$jp~
zU)4Tet=^Z`j1crZa?_v;dD_zv$2*hO0eK2i0Jd0Cm$n%^-Cm5tX%`Cdz_#~y&&2WA
zhtNDABp@&o>vQ?RzcWH39y2>Pr#sgXC*9iE*x0(zl_bu~r<vfkA;Gs^Pl!9GcJ;#P
zwpecY>SMT}qBoi;eD?8S4eO$RXG=SJUAS%j-RV#pm)W-W$u1iQA+(RDw;r=rc{MdX
zjBJ&R=Tnhh9V|F=_3BmW)|$iZ;WUNxkZv}J+pzABA3qxPW`uWdEPBbQs*<)D*ygdp
zMvCZOt=tSunKqJ@#naK%o!Nijja#Ok@~LOX)qO6`QC%~h0uS#wWFesv4BDCOGOgE_
zG`S=_wbQ3h|AdqPS=ieG{ax7Ia_Xjh3KvskWTf|Cfnn<oglV__VK}3b7<`9?x_R?v
zQ)_E?GQ{K}-}>~QTN066+be`Bq9xtf&@gG~xqppLD%$ICf2TsSm{^~@><sGoU`~*O
zxx3U_H)bb?BHp0NGwUuyaai~AP?0S+PyRek-OHCRb@VwQZc=-b0yUhW-p*|K64JA?
z&aq&8exxRNsCKhyl-qTgAHtI{F*Y`yAFa42uscnNdcD658O{kR<YV%Jik{_ii&37D
zO6P8iGKlqBojeq3sL=S8YLQ7<7B65Kbbqe6x;oiViDeM{jOzMz6kTZZto`<qN|~g}
zNdKTlJdX^Yz1wd%BS%H&<Ua7=62BJ)-A{Al1~$rSWrVvDYAaHXWwTW|yk5VaEb7;+
zgLq#GG%F$yp7^yswNYjN=_BLmS6CNG+25_Qs+Ud_Rz~2zI9+#49s=(i{nJVxGM&vH
z6l0Nx4{?Nrh4F}pygq!mj*X4o6v;!?U*qXn7Mp3#c$3OY>WSpx2X4caax}}R&UZA|
ztqe%2zt$Tmu~6{tU()4Mt#(Eo(ZnUZFJHYfr)b&fmJu9e-hp3eUAUwBjVoIo=Y>jv
z0a6v_hl&^ljt^{?M#=~wO*D0Oir>HgqWv+mpkNJ=+SJwm{nphX&VwT&-cWk{!Wyk`
zERlGZlA5Z!y)@|K>wDkHiAym@-MAz$F;Y?~M_pxe&$K6vDz%`XATGk5gS4b@W*G{0
zU=#K^Les&)K}hUk78Wcvwzk2LYP1%;Vlf_hC_aZvV~OUgOYx~DSXfx)-##{4PcwZB
z3nLmSw}0FpHOiq=kHdX9etc9iaM07Ez#Tng#GWXhDlLt6JwDu7hdl<UB)fvoJ>Kc(
zzjBMP<eDN1-p=W0cP<ao2@w&|1e84G3J2!X7fEkW_Js!rztF65(f$^2wIPBv`k{Sz
z+S397vJ1~!T^n6qQAp^>+#=PImJUpr;R{w^TDDf`0o>44U?_unEm0}<mUMD!p}V{>
z`zfHu>681AMZDpX2HTXz&+kGo*hY&8y6>^mNyjpb19qT*d|TJxPh!2lZ4Q+m$^ey@
zo2a-rx>9tgtbEm6C6?ahUua6f=j_<IZ_jRjfI2kamwj!vGa(2{tlRdWq0Ldv5hhoM
z=H}tSftf`S5{XjiCqxaieYgO<WNs$)C%{*G)k~RpKI2fk?!701veK)+DBRZW?~e7l
z2V_GbTnu)~dSpX(`7$x_o0-<g*2ljJ^7GfeKe#jrS%Bj0C_dy!s9McCkO#xNg>fXK
z*(ItedF;}<%ZZtkucz)~(B9_5#gmlBzs{^w?^}3zd3||yo9J=0W|>WLVa&702=9n8
z(ifV2bG{Uff0}~JIxkCJZtm<fs##XOHfWD-t^vTAt6T<qro~u%hn_iO{$zOJm|$_%
z--!`Qxn@9pH2{L9g#^zdm2NgDnp+B74#xa}er#7R{9374#k+Rx{0FOP>+TdO4rcV(
z#r-wu7*46NYddfs4<#h9PypyE22Nu8KcN)Y{T5)&eS(vpf7GDR)%e%$F4gVZvelh!
zZFXgCP$o1Y)@Plc{P=@;e4-|*boma}>TGy8IEn@is@?Zn7NEGBJQAxqKH9e_2XL3B
zn5}v<X)ECVtJBTMF1yak+Ueg#)SoIt$$bc0uY$~6MOOCt`c$JU4^xFYx%f8nsR9BN
zmQ@&H)EAw+5AY@f)$SGII(D-;6)VF2#LOrnx|r;pk+(rXk@|%<%zBd^OVNe4Vx$uU
zs%}j3d>XsteTmXRMU$UrFnGf%K5Y6=w3m0^sYNGkY;4>H{3+!-0MU}AoF`me;>h?K
zf{2QbPrVunN^19hC5vhy4#1<x)!yc@jT8VXfI`lq5Hy9<fLZSpjcT{6P$F~a>*@$)
z_+Df@%{;+SdAvSR3z<bdna=CWHOtBu0QDC0EvkZO#19S*)&>m|CSP3=c;|`!{_)i;
zeya=VU4wwwcsBiW$R)XMo9*7S|2m3qPyNI_^NcH}#Ymc~aJB2sip^e}<5-@vkgD9~
zTxa7@k*P-Cg74<1tiazbVj}NV!b$<NpY=!sEClH?PrL54dWFM9gMzC<+SIoJQUW#*
zh36j}ACHT|xo|;bbGF^TcV>0f(pIZW%k%K^#cQ1P5zK1S5BiBjYj-#2@ULAnwM}=0
zwKgM=o_U*)KnaiW)T@tcR^y+wPbMZNt^r7zJlNgj^j$hQa07I#+ne!p{zvk8B-EMI
zOTQ<rzn7$Ii{^M-tyOM!Q?<n6E!4Tzfph21y$cKT!X@W<))C8Ho}<+{)f5g7e|W^S
z2rg2&*zCQ)wM4o89F3X0&rqL`T}Ahh*M3oN^MN-_mFrGKcY?>>&7VJiS}pvbeILcj
z!0-jC-(P(tY{YWQ2hh?@ZvoWkN|&dP<#T>w0ht>skWw%ZqVs3Cl4h4eYU+OkkT2by
zSXktsCbmu6qdBC}?toE8GFWfjdIW%zJBt-*#-tuSvMJMmy%jcd<`TtHer1DBo-aML
zJlccx^&*q2tE&z%qGDp@0ZD~KqWJE6TU}(`US|o-#u)u{O2+VM#F~(e$;7F(I`t5J
z6whHAA>|I2%dAot{{0=*gC&c8h%63fOU@WkJG;W!ZBoc1MkA$pZk|U6&J~#QAuSWu
zs;!V&j7);S=xo(pmw5X4J;C2dN#xj@#>rhlNC@R|eCWuxzf=(2;{E20PTiY}EaF2R
zkPm+WvSc4sDs)^O<Fa2Q%23M9xp~^s6fk>8Xeg4b+gmSOWy6M8!#q=X4YB&!X<Y~K
zcZdF9^5e*s{lSQc)Ib^~Kumdd3r}`Epv8*fG*?Yuv}=Sgms_%=3q5=1&YkFpd!%n+
zukt1)C22$)PKU}MVNyFjKEBKq_x_$`eCr`G8Cd|V*aZqcW!oyai!q*m0r?x@mE@>!
z^{H=f*P$>^!h$H5Sde=h?HVot$b(i`7(g2-yU}w9#gB%a@$=t5p1k$+M{xxtK4+v!
zR4y>M2!Hoi;{r7d2Nzci0vL~w@YT`beiE<_6l21Ny=ihM8I^MCdoz{tpqVinuO<iR
zcn#J8o?;L*PKnN&v-2ZmcX=FFm{#Aa5nnicQebbMrgD48G>XHNxGziPm2P7o<VCz}
zwGuJ7tnUCpdeY<`^q+a=yvSvf438-7N%FaPm&Kc?FG!;|Tw<xaG>})`v)V=z#P<@w
z>!(kjnrbdm3XEjmFjH2(f=ek701#{vez_JZq&4su0G2+&kC1!Z+gf;)mc}4sb^^iY
zur%7x7Dn+pvJ{&QzJwq`@Cty8T6r1%*JD+#2=-D@QL*UFo^$@0{U=q=OHa~!;f>(}
zDe~uQq*0Ci4_Ac$UnJ0iuLY9xo(3@Vq-Lnt9K9@cGjgE%5979?{hx4Z2VQtzhwuOU
zbA$J}{*&MSuP|7DKK}m@;irdC8Mog{!arO#(>^72>sO#}e)sM<1;5J&2t%8g<thLI
z6U$caU*l|+ekH=QsncWo2=HeNH@QCEb%i@hlFn{*Y?KCr9u$iY>?KhdE&;@f+Zt9p
z`g3YZo9+GDw`-PR?2^=pynP=Zc<TwWaB~k1Pri$}Wh3YYDH1-~s5|8%@?5=r(nb*M
zP-c%NCT3RkQqpuj1xX#j%(s+s0)X_ILa=vBIAd^l_>7e^6*gpIS@?P*7s*V8jSwOT
z-3G0?n2AZoh=D7sf5Xq^ckaTXybeIjOtP=9&f8CYyJ+dH*#^H1FMQre={Yj|G0X=~
z*rF~}MqnY>e!f>sA3u{dzgS{_dwIEo)x07ZFz~OnNe0N$(3vWmc^DWN_;$>}U0%*)
zq@udtalBkI&fegN?qe=%YYL{}V3m*Vv=ygt-;%rf*vu?zxb@^0O3#BAK>~X?2=xXm
zBR=4N*bar}!^FpX{WWVf$A_0lSk&KX)iV=6_8qF3M?;;p=T-D?co|ABqf`6x6fh#9
zQ1B2+5gG@+wJ#@~7Lp@BoAll)5vYKA2lw+GD4w2-r{}4tsGOjqx?}v~hExJpyiard
z(vlejR@1iYVtVSMrwNMvxmuCvO6a~1Tw^%RV~?zI=A1Jk;gec0P;GwbqHkX6IV|-H
z5vh>h(Q;M{IlcrSumRck&=u%HfziLpf*&lCKD~^3ND2G&3b)M-Xm52Lk6xTSV>R&w
zt1X`YnphG(AhFu0JGwxxtA7i28Sl$h%kwyNvGl$_GXjmwqaF#|^XE5(*l8o<<5@z5
zfHmE*VW&k1E}&0PLV%;~bG14-H|(;iAC6Wts}&cjr4%l6I&bI!u7>P;WpZ-Tp>-aU
z+`mUV#FHIve^p74)MaDyV5H2J%WnRin;?*Hk};eY@87>4T}*ZNE+N$3Z>%*3Ps}tQ
zJv#T~$&)pp40NC?Ks~2@9Pz<&yc)G->{&3lw9S^6mj`50^{8{IOv1N??$kV^E^05R
zM}QEF`g7vC_bkRLeF4$_g#M4y6Cw3<bg0K%SNYwbPx&<`c&uV@hkFAUKN@CcscKe<
z{qV4=Lvzj;jUy|~u@HG${_%9Ti6h2@M;phJQ$d1a0D|w>&C9}8B0qhyF&!WOas#&I
zDXYbvn|#{?x=l?@-xbDm@}7P5I*Y_15R2xsy^y=VIzIQ<TcGEzGVNz6H0nBWbace2
z4+IT99-eI9$K66dhoz<AlFnuQXm;Zhf`WpVMC5JYjv~5YUv25!pjFCLWDcTGb14o^
z)y0Ua4wbMkM?kYABX~%Jx^2>vM$jv#Ilt>{(Ft@i3VP?WySuxxM5iG38-Qe4wHXB9
zgnTZrW#5TnawTMB#9`ayIj(9Vm+jCxJw1J$hi7PJ1`T-PMYEo8u4WY<MJSDU5JdwJ
zF8Eik`i6ytJ!!ZvGHp)IV~0@nP{r0;S!+H3k{ZMHg_JNUqb0Bch|y@MFugsp7U;2`
zYm;@bB*6B=wQzHDb9o-|0rGnT8O!;O&gwoaD2hn)Tu+Krj83x#>fmYAXY*lBZui4I
zdmJkD>K>Y@7Jp#9TNWx-tB3uA!?et3I-itS>gj!2!E{F50rC<7>`oIe&ZtLFa+*b@
zY^vbA0RCWsB9|uqi0@uZJHkw1p{5#x#Gz%zLIL~PQ|RXARw=o%x4%E-&szNj0H}WA
zfKJ|Z2s_WCUHS-Ct-#t>XK0}2qMosn#uaZuQ#s=z9m_TOc?6I*yJhZExO=fcGGBXi
z9|B98T3TK<=zwwn40%1=zj<IQG_m*Ph$`&gQVMF)IVL40es<q?n4Xz|A0n*mgEtp~
z_4l_Hrq+l_UB2lBHR#mZcJiM=A^ZUct5SSe|7Ms^W!<yeNF1S_1EgDPw4<ixMYy@M
zRNpHcE%giyPofZf0(JW%v=a?2z#1h2>_}59VbOG&JaqufG8Zs$D&FcWKnkBk)!@C8
z2Uv)WQb>Q&FiAUJ{R{#C^?Yq@jdvr0N%iwvzSf~?h}6Er#=8ZBOsi%49lWbXs^5&*
z7fD}HwEWz3gV4`E!a8~SuO<nQIf5k4ldvEXi*#fHk9|h0fYk&F;F$UB{_gHao0*n0
z^)j}j?UI@@4wt9y>htaah+=~~_cTZS>S(!r9g=JzA0jj~$O=esEcWMG%5(DaUXxFe
z#F8z&6cQ35n<RFTTkzJcbGEZ>_mdxm<55xuK`<lCU~ctZMx&069;7rbXzT$ox^Igg
zZaBpg1UmvJXzO%{>9+<7iHy$)50c@g!$T2~nRDJZ_dWx${tRvhbuLsEaA?uK{`Yu9
zVS$umlUGyWaw4;eekq>I`h>N$bt$k)Gq1!_WD-`kCRw)^xgA%?z6Fx|gQ@|_P}5{`
zB}7&okflKo+0=lCfZj%Wlj@^AQy@!PSJ)bZC?nDPAah`$pvz<3{ty_#C!2j^J(k~<
z7}yXftkSF9XHesw$5jEHF3#q1pp1Nlb-^Pc@rG19%$GF-twb#(v5~!GUZB7Q57tiZ
zZ7=(~u2zx28<e7RD%OHL4^C=%>?V)4%0ISQLV6@XfymB4C@gUbXKV<45f_*8S!I4I
zetz=z@86@ILo2@c#1Jy9L0i-d_@AFh%L~XJFy8B^s4IxP^$>ay9^uD0FQB19-qC2h
znjbd7n|JT<*v*HCpebb`AS7I7v8+-ukdzF_G6baH1eXh#>jiK#Q?E%ht<b)$&>SKR
zpP3mGDW{na6h`0%&%8Q)@rRwMKPiXF7d^J-;8)Jh&IpC@J^3+-0z?QTF~~m5ieoBI
zK2;V5XDYwO<8s|*s@|QwR(Y_|>I8iTKF}p_C43uAG*|8#T<D1BN89kPFc?>)>Feuj
zFZ@VGYOhtlh9ecC;qh<b!9$zdu(3DYcUT(e(!QF#Uz!G$vXyd~$9{3TFMr0DUZB%I
zzt|iIBt+vtsAC(iWsqQ|>{LJ`fM`cCRLa<QP3PpEzj(0$YRZf&x;VppwESs2J*;q{
z#7c(yMl-!bDnEWGKdeRF@xJHrB@oQQX^L0bUAFGQGM@(74lbm%h6BKka*Z`CEAAA~
zaNhvqt&iAtQbDjoB{cf}0Sj7$*^PqyPlwYXTM}_MB`C*RV%)obtkmR>Il7dDGbRrT
zd|0C>XH?8W<Qusf4|kv{KR^bA9DEb$pj<GE1pL@N;UG`$?%svAe-uqmz2W@QO%YmG
zY!sHz0r2$YJ<ibisTe|`&D%YLOZIM)RkM=8pfjF%oW%WUw(3(PnK<;z7si9gL!?#>
z*^RRmO8Yuw2rhL>6f`re9`HDH(EFgo#IYE<zi&67^1?fH>ePlMfT4nli^;y?I8*=(
z>08}_7RBB12Bi>%=xgC+GDLs803bRxv_O_L9x8^t<OhXiP$NiHSokG$R}L!UfXVzD
zGB5*WAo)W3^|r43)vH$x(9dgpTf7O|I6Mys{sIMi6(-_4Hq#HK_Kg6UIG~{k4MSv|
z)|vh+72N`LF|jwX_w-wcf<r@TkjHMd3wgY3Bp!KtXqQs0k$w^GuA((HHMP|S))tRm
zCY}f|Ov7TS^QJ-G1~4rSSCpKMXqfXlfOP22yY0Sbr&J*v8dB^(bbPcU2xvN%MbL3Y
zy`nW^xL<DAc(if5@@Nlz;yI+}oNk*%F0p_slYKmXs(CuEvrJ(bq9f!ild3STKR4Bv
zp&4~RQ*xMup{@f3Jw2DePwX$sGM*xJZFFjXqm@<vFjYG4N0kRNBnNt3B+2LPg0NMx
zd%-pZmLcEFz#yejCqEV1HO{$0mvQ@r9}NrnpxcuG>i9Z7t_3Y_YQ6O_WF(t7&qGY)
z0m8jtPn2pU_d92Zd(zO-igq6_0^d0JRvSPt%l;F<8HEs`4rLcr_nMQJLx<E1CH8*_
zJJndKMjtBm?Mvqt+w@-QH{Azm`)5Ao{8B;Ur(?=2P#kWca6+4>Kj%t_*rn>c>=#ex
zT{`{h{`BnZ;*(rniE`jhDh{l6c6LaBs<u|`gp_9JIGCt40AZMxeiB=VNv*ieKt<+;
z(__LQJYfbuYKUmsR!E(F1|A^2l|lx>M&VOXtgJmw><gqqbrl-RS4ikEVj|75<BS*`
z1LMvT(v@a`dKH}r<_GPpcp^$l)~SIKORe<9e7X;Xl`NW-%4WNOvy3#4KzS=v*#^{N
zGX|Sce{QfV^HKOM=}^8!2Ww0;o4(&DPfuelbQcWJ9xoq_f2K%X+<@BUfM#Mf|3upd
z;<9ldCP?tes+6^mL8?Oe?X`Q-w&ZHXW;cr~%iTe8c;-m1I@BKg`SWcop$p_ZJ;r4l
zu@jh{xw4^vt9Pe)dbEb1rDr~_1{{=XpXSM6Rml1{gYSkDR0sE~4-^#@^LD$sx=uU?
zeUl~h+~P8~!%|eE&aIYcyp@r%f`b^|vtz8)zrHT(4##hVO)wjKCb6Ft#$5W9qnWK*
zl<&${HY~$po=`Z?^SHZ_<m<kBcgTvM<q~hz(4)sMOA3cm8T^cT(t=ZF_`@egfe2MU
z0`w={N`OCV95sQFTf8LBFWy}m`sw7kn)$YvdorI=Q_qXaiD+uZ57c<p98hBq91F`8
z#)I6PXEiBoy*VpYK^_U!b|5U_w)V@1Qc{;8mVx*8fzH%7p5L`)7hEiQdU^w+-yoXL
zqY^<|#T~AF`cf&^DL+4dI(GsBkPs?^jV5$x>PO!{KETy&Z*3(+B2pQ4590r5YHr5&
zOT>ZefXD~6nFs`|P<!)%&$Sl(z}*xLra;E>{q*UEO2VKSF{o5Jpx!6KIwwC`JMlV6
z@CeKc&AO@Jh9MJhQ$|cC`E9TX$t_CgF$>+|-#+N;`O?5s=8W4#c<)asDIi=km2h)#
zJUsw>i3sM@f`a1)yTH{97OKE@7S+*71mKGYR|RI9AKl#zK(#cSXRW+$V`F0$kpLY_
z``%lzq$og5K#SwUqC~YD1c!y)fTBs?8VAkYO7YTA(c_48jf!FrtAmmI9Ek`BxR7U$
zRs@8gfki}@;rETk3lDHn-XPtp+Utn!b~UtMV|z9-mDA>OCZ6yGQuc>#yEBo9PXnG*
z>vn5rCken6LclfofsSL&jTYppVZ|C=pQX+L9`=X+$$xrUPn$F5HOSB)EZSf*pyVLi
z=p5JdE~DqqTw`7~2;wnbH2LK2EWPHkxH<AjjtKwqWm=REaPF65jwfDSI`_e<KH_es
zVs<_^1!yv~xMW-(Zm!S!l@L~f>Ou@%?}_J#G`|#)7pP+i!PdIhBbdWg&h{WEst5cG
zqDDq(plAOCB)zdZ_HZpCjGmw}dD$}UIMPI-PpjHZCF0V>i<i$6GvPtbz=t9uEcaJ3
zhYz~0qobo&wpw#MHp9t<rbqYE_htsMitH}LlouRV=B;j-F)AHe@fWWGH({d*>?abn
z0NcaXXQ!uqfbsT!eV(NJV6x~_&+vko2oHW&oX=TJO8e<1{N2gzT+hSDB`%{<KghXl
z>Mi)8#rlbO7H0ecC7D!Zy1Ft&(|NBUH?AfoM|1~F1S%_;xz+h<h`bN?4BRMrPA7zR
zr&CXoKTx|&UU;05gwpYRgW9pGP_?=;o-(Em10b<1>wvzyyb9MbkQ{`3sLM-zw#!2t
zDi+|muxR{v2Aw8^CLu%9W_D<9hbTdp7mk6bEWi8!#4*Vh6k@`$ux$Kr|JC#c)Gb_b
z@s+VEwTNNxOy%tY^h*SUcjEb|NZ}ALlW}x7h*g8T1~MIsxR!Ej3H<Fq<wlQKj*dMb
zFn(-Q7tq-R%(>zfX*Kn|St{Kt^ER2#2sGu3vTBqRTLRfn&Z70hf!Ad#O+7bLjW>-@
z9K{~j4PAV(TIASSO&RxiHRu{2_F1m79V1$QM~(H=o9^;4w@s-Shr(*$`0Jlzovi=*
z`ur%xYi2J;!b;c?V||F)<{&N`({2!XmbnNZD6bT10bgFOPwlU;Zdm+5>gxPxEn=3h
zx1a`kC(kA})trpafuAm(KOb5`nlD}zL<urm>hMHHLY7j3LasoyqJGysd&6UA-ErgO
z<ZN|J9cDlP^OSOols_gej#>B0J&RZ+o$J)Ma*=cg9a1Qz1$2-7*_w_acH3enxc&0x
z53lxO>Khukv*{TbA4ixYEJHp-cEnDWJAk0&h@0jwl~$d+7%EreiaHRHeIp+OwkNcM
zXF9MKI3KKT+?OjWE3-M2ie|TVNspyjA>+;AS?H5C1H3XCm{jQJQQNaoJ{Rx0)R$Zx
z&^Fp?2Z;Yc*;2{4hgzb!9Q|$}1^?n_b>PmJ3|AwF`W|0MN=o7w<*YMeKZnxkN)&CF
zg{LH+gN7H_szer5R!O@#o6sobmDlajR)PzGR#h{|L5}`}y1Os9e8%+#6L*#ii&vq`
zMqBNM6b}PX<M6a*ZFXLszbm|ootrAqnSC1K6$NxIPQ~$XuQ?$l<!XNQ$uqc3tjB?x
zkZ%crt>`05Dj}%!OKcjR$3A`95Aeqzb0mn$Q??G6pl}}J8Yl@t^`8t5Kb8WxXxO{3
za>J=gDtA+%^XLul*{{&m4bIuxY1wdK!taQR$D1tEqX&@<yoxKcBUSWQopR(hWu%JT
zslyCa1NSu8s8()gyug`8lr{VVnDN{OArS?Nt3m=duU{9Ej+{;}b-8l;+4JsQp!CvW
z1)SDC)Y)|M@5FYy08XJ!1u@D#RsVso@Y+_l%t=%r8TZeP<~7<$Unel_1VY9>iTV~q
z8T9hy3D8roQ&C}^epTGPm0NQp?B>P?ejHyY5=aj?D^Uxvc}Divv^rXTZrQvW$VITj
zq#DQ3>W?algQxKvs?-IOAwKna4iJW&>wBcFJ486W?;q};M7@@=^njk}vwkb_0e~`T
z^xc^DsN32nP}k|`PD4+cKYT~u(6Dve6*9;=h{D`VF(Dz;sWdb+=ChYULkF7v6pD=3
z;R29e4`gNExt+qsz78uuVHkevDNqww&vhDI6%~n}$jf7)Aian~`HQo7Rqh74%4{|q
zDHf((r6uOWZy;c<0fmTYJ$b1vopHP*C@bK}DypPh3Lk@R6`&0SYnoO~bvKe%Y*Y`A
zAB|QAcHn0(8*~CKIAaH&uGShsAAi8t+1y+U<OmijNj#`{zorVZ3t|pIA(RG7LeJ5B
zQjiY#R}jtwI@`5{)PzJxHaKU`2J1VljQB!BO<8lW;UB1$#40Lx8<J^#V<SS!c;k|P
zt=btgEy*e$g=(SEry(nQJ@xSLke?tlyg?`UFb!x0IopIuX}O5Qx4<#CbXEbM4V`)Y
z!kj+r=$U+=RUMUc3q0~u_nKTV>+Z>xi*MbP6pV*5vWi*3dID`8Hfn2mm?VgQ`wDPV
zZ$Lx>d9LiTys<*I>gDI=;{iTCsO=N(VLY`~zt*&K>#ZQFxZ*5tU$Gi@-@!tG+Bo%D
z9d<=rUy}42V+ki^UbN6;q*|3TH3g7+Oq!Jgvz8zXi9o4Ki9!^go-7qY*q9B_TO$Sn
zz{h}Ag{phVoiULzs8WaJ=-6Vq8~n{fcWiGU%#>cDtpBfHzjS=rFpo|1wGKt~8~iTg
zy;kDka%a{k@3GJTR#!qoBI>RoF3>A?z*uFsG=LB89ucrkt?kYw3`@<&3b?B}j0ygl
zIN5Ig!2vozZho_Y+o}4O$a!w0`qQx@Ks1O1bOvw%!e-lT0b>e4ZoZD5{VXW#oc3|N
zj?&VI7mB6izDBk6)VGG8w^+@wxq^C4z*UQL>5{ml<b@Q;_b(CE7ho6XT>9P!SZK@o
zq=L7MA_0(b^8=R}In(Rg2P`{xw#7I&CM#M^jPF$e9+&KPK7`O7)X<F6yB*UW-Ip%F
z>PL5zZ`Zln1!KZ}_|u=2hv^=4dZ;hpnSeI>j+8whf~zuo>)2x+`{p-p+(1Y@fG_#n
z28coyGnG^cZ{#%jn&dXD2=<vXG&gTHFBob8t@MoTJ&LF}m=WB0@48`~wjN3<{x%`w
z0}lg@xQS{cE5ow0$&ByO8=A!%*5J`;?R;!sQ?K&1Lq%{<-d&G>?^kutJ<PXic}8=!
z@R@B4gb<KFjbP@oUYodIxjP$!5dMfZ0C`k0maEHP93Nk9P#fus#3h$U%DR`eY%m{Y
zBJG&<1H_UjCLhk2Z~65(8Fa)NZ+gJ)j*d|K{0!^paMcrFb+k);M5_3ziwQZgf3k97
zo92(UaPXrw87t9976Getg-s6!yd{3%+A$j{JPS-YK+XH$vJ!sq0FfhO^n02`Fp+m0
z(+EX__%?jH^8v`7l8uth0&82H%g9r^>G$O<n0ZR^o*91+iCZ$})3+2+09kKA5B3_M
zX#0BjjoM7{3Nn5d1?m1wrB3}_FuFD`0RPZzY#%cMt-eE~eXm6a2#n3fjvj4{%ZAbr
z88d|i!D=RphtQI6#5hB)C<&ZB{TzC6t^=$rNI&@_{aT(HiS_`nCV_cqg#TmiH_cQ2
zY&Mwx!`!O_yh>epy5dY))nthE6?(|^FDEaRs;|_Zp~ObTa#??!VVHvkquCh4{n1ep
zT3iz7w_mKSSs`n#@2r)mH2#@sk6qE_hVOD$K|)rMjOvg;buLD#s%&-3h*4>4tQsEp
zPmoCOdw2*SJ|b|->VTOU@xPW@PvHR_4phi|xikmbFr$ic#Mfs<Z-$XjEE-&f&JxMM
z=R#>{<$D7zK%Tf<hI8N+xrkz6UAL#BrWTe?fbLb_+5YPn!pLP8>Ud<$I^r;`N6-O&
zHtwcNwP*Bu37jvAf$a4Ll;@ua$K2ND)qrr!HeszGH<R}z9i4F5n3jkfR-mW?U%RyU
zuF>HW-KtNe0N%<S$xMO51JzUq6y%38GLeyA_(7?Ms}G;)De;xn+Fl9-FD@1e@um?x
z+|E)dIF0&_+~a0e-j%mvz<x;4WMt(g(pW$)KKo&f%!VW5k%j;dPr34wBEBLZ<2u1S
zTQcTyUTAWc-?Wbj!kW@%D`$_dh%V$s$Y|pIAcr!m$(ON;;{snOsIU=x8|rn5*XKYR
z?4w-wYwSi7Yi#z0%d>tidU`5j9m(Lxw^5Cgbrh@8%JLOv1i+|OYE?_8vbrRG8xwg9
zPPxGY!CSr{TeTRYtz{{oW&8lz`9PlT8Hi?N@3$Wkni7oY<PE6vSOmFH^6XhdKLIq-
zX-HsTm4n2}BRP>dm4B4|IFcp0@BUEwF}?YC^=NiyYsf*(8NPmT7AeYclKqsi0nlp9
zXR?>?lD<XA->z)6dy)wP<ly|=DAokXQ&{#$oE6jz8?U@fwE?`pTVritU?RJrShGRf
z+G2MoYI#$(2PBYbI|=a+tm35dtew|(H}2gd0cegoM|e8^N_(awAM&0Q)?k|b3P!Y<
zrY>+)4lVF!=V;XgwzWy3z9fqJuL0wO_z4g${le*2?LOWBt4)SdjJs3H$l?^_(pS&y
z0cq%LSN{;U)_TJ6fq1o&R!0hjb=HhW(6%yRFFa}ca^&)Dh;%9(mi^k5g6NpcU6n&A
zfP}ZrJOCHpj?QL_{IxQ_-o2V1M(jVK=SOr*AZTT)T<jGx6eM!g<cKOaJ9ts&Y66~u
zfUs=-BT1vDSy_ojH<DS6E;LfqvO?Qj%W&t5U7tlx8ez8nZe7^kj~P%`Ov?{jfkCB7
zT^`N(N|-R0BalEQN0i*N)A4k?Jn>WG$1&hU-vA*x1y2(I<`;y~qtoi`5nMsYN!(W8
zA=ETq$OE~VI%jRH`=mRhl2tWuWNJ}e=~%|b4oz3(oDrlRE#Tq29K$p0`TO}jQZY}c
zeI}%?9_v<PGxKP)Uwb+AWKM21HFbISZI}@ND*+>=x-Bpig{J+|n=^?}C%%H|_fgRi
zx9#jiy)U7|9MG6xRS~In#JoFi2zzDbVI#D1+QY@>xUGSt9FIKS`@Vh4yw1~l3t}7*
z*`dh>5UvBZ5}+)<K?e)IejlivcIdu#?No)sQ|&I4+^#Gd<z9%TH<l9oza*MYSg6mQ
z#~$EcYSkX}ljPqMH6{2F4}CcDlZ8X>*LYE2XK~YlN5O4gl}nC7q)UrjK~`3oz-X&*
zE_wQIOZ<9mJVW0>ctqwB`rT*St}cyLRSb;V+S<-EeFq0rX_mOg*jQc3UyqsN&K-QA
z$wOm*&3H@wJmocTbZZ|U9iq-r3M&yLo0EK4^QOxL>WYV{#C6AF3*CQ7Xp+R*{)FUc
zwfRtCUPWc5gDovPyTVwidYsu>A@KRT?;~Pk&1@-#ZIM>l`P!8$Mmw5yE}rqwyGh3J
zTo#(d5oAtU1y`fq*VMwu{me*9NKNUBKkC5J+yx+59V~8;fWE=QH(w#iZUB-0X6iWT
zv@!cj8E?sX6{Xe0S6pw=ZBzoc#GNh8G)Q>m3WN9*V)kYv;%k<7pZ>A6-YP$?fIiy%
zR(*2I6w>%mHK>O=@VKNymlr89eCv4Zn5SaUc6C*GP*W$+HKo$h)1QY98-;`V`s}t3
zKp0=>_WVJIS78wp)B>$eG)uEe6|j>W3NK0Q?JdP|L@(3;Xw@)F$z>(fapt-tU8r)t
zo^Pr9eleaf4iH1oM^H!Kvt((7mvtHQgKNj8EDknazRGH$ad$o7<kx>OnJnt1*P%?%
z&+P;Cf{@+Wng1XPasmJKaey!$)Nt2)h+V~CcVmWg6O4KcbD%1YS;PV<mM`h#R0_Ms
zdt}uw(FYV3e=tP)!2-oNW$!;mrhf`=c7xl%`rwx};_gLPz--b$k!j==J}0X@o)K;b
z_2tddQZ6hZ$RPaEtqbPhV6Y&M3^W5l1BC}Lh^WA@lNg-)#4wM8LnQ(&04PEPRW6ti
zw4bkUp2`t$$(;K?3pxb|fw@D-Jsdfw_~cKYd=RD#FtpMNO(tSk(7!~+HNoC@^{xRd
zwGn&EUN7AKv(01u#h!G|Vck4s5mnV_<W>-LhK<Stjb8_orkn5R#>MElG2N`Q*@`46
z`-v|vIIRuz^l+%ob*2Lm?+0^1)&RPFA;GuU04ZcOD7KAIT6okP9KExi2f*}*Dk?_&
zMPwo+oD<CrmV-J@ZtI_3qskgZF~o?Bh`J8M+gu?c4ygD0;L|)RWGRB!88SQmtX)_C
z{;r`2z&*UgwMvAo({fvX4GdNO2;@ofzVx}dGK?o4>W=-QLi@13xs2=aNwq>FDuKf-
z`8?f5T<e*Z%ZSzhUOizVidM+OI$)bj1g4(T+!hK~B>E5`^>+cV7zZl(11cWO0Y&06
zAW;Tu4a@4?lz;*#k2;<4{5A=xDJgzHG7q|~sCC-Qe4F+gG>f<cGc$w6gFxP$_w@8c
z#29dbPvu3Cb)gYn1o1bkD1jCw3M<^b*W*rw`q_SOoCvG{ctAts!)O{YjD`@w1zm<G
zMV#Qit&(1RKUW}K)BRwh=QmrjFsPWbH|b)QfGJ3ZYODja>`&-~LlRE*9hpPYnc*R3
z)m*aMf2;!!YlEwJTNEq-c!ZUgzrY%RGsvgiyEsD0n6MHC^z6!Tle!pycb_k$$o4G+
za>-<@7=(Q8Eb$=hT#9uBPj*nU8@(H~KR|08hv*{`V}vuPxf(g+dTfJBtghq_sJx<p
zkDoQq0B1JUgEs?Y6@9Gb9h$&3Gbsk~Sg$T#hWr2?1^-@csfcoyULe#4@_|Qr6`Sz>
z{eoSL>()FK$_Eyfo9V96_v<A`CBUE&XX*~->)TXwsLThHSMIfXt2!G4Z*l|=h($Lb
zFpwBHjqp_<h#e!%rym**HDnl_=pQtNPOl+Csl*Z{*L;Vh{J{a!#FKUQqHB*Y4Jx|B
z9G(hdclWjj#e5`t6EXd<U7h#QOqhex9KH$VFQtq>G$dr&1_ot5zn`;^MAd`0mm|AB
z^z0aDD5X`a&}FGr*dvutL`=+NXd9f85fYL)0MyFjp`36r?>CTWHRV@0uCjFPJ$e9~
z%IcArot<6Yp{d3Wh$>212hiK2`<w|#NR+a09rv4Ewt_K>Q|IM8_ELmPOa3B9P5vfF
zWe%r4W-0-7z>e7&(LX$1n6DrNA~c}HC=CT-trzqY7p~kEl6MAEy5qPz2~<1AUKepN
zL?Ft;<iV|{8L&%F(pD#^%Rwt0c8S`m9*W}n&jzRU1`>Of)YPBNFmwR=I~I{ZvVefV
z*vbaz{lSrs9YLv@l~_`Qtx)7DBc2HpK)}ck%x*jp2NUjRu!DME63LkF*@?5;7NW+q
zj?HKzLy-t?WrOI7l!*1VVx>HDpb~goWFCP9{aG_Q-JnWTSV4gZ%xOzjDpc5<W&<dc
zG-c^s0Itr)33nlu>wu8~PU@ofonDwYoDGo>&zeC)Mp(PAHIw{Sy<w=#){qaTx^Vlu
z%I!^W(9sR4_bEr8k&j5x$U-{Yzku5Y(qBJ$5;8jcUU~QvU^ZM<-roEm4ddbBY&V~<
zJuLeiBkq#(=g!4yzTpAM(D@p+5)3|gK@^m^y^Eztm_xeH<5nQC%_wrF9sxgHxjI9i
z;PxbgJ{O2sQb@)u>l^Wj`Zc^mD<FI$x-1K2#@49g_($m0^$FxfQyQH!yaB*)1+<TO
zI0N^e2OS0UU(W0-998>G$;(rbsnzMc`<>VJr8|pZIA9nu121qZ6-$jk8WIA%@}p<m
zwh^lT^s5sHL#BbIqt3vqjM1X2N={Dph5F|Y+^-K*E+pN6)F}ejc?EVW;-{{AeEK!R
zAVV8)8NR@}_(5B*%}y!`owOOtgW}X1G)~#j3o(m<un)A@EogE9C=r95R|m#{qFHQv
zOtCE`rsQCHV&mYhVFy?CF?2gnFF;hl{)l<Pzyb9&f<@yNERl$n)o18(6QO<5fg-ZO
zRtaQw1sSb2Op#E*d<Lrv>~I)s^Xf7pf|eVJ2A!6$n?J#H))29d!LNkj7mK$hpQ}N-
zKI3f<6Eyyi*nD9(`9K8Yz`b?BXcS`h$^$X3B66Q3JSvLe4KDdD*aSC_D?fV{AC`$2
z8f(P<>>w@x)ma&Z2kstg)snp@2f&Y%2h2cG`w4^<A=G`6+S*#U8DuW>j@vJ*JTL{N
z4tJ-?(O?Nx?k#4r^e3@UUb}|Q&ng*y_&5tn`ejB%AK<{x0z~=x^=m!sDrDSpnmZfg
za8fn=lZGFl*qC{k+VBYoAQDTG>&aA-0aZ}}8oF;Q%j8*E%jhhrk-^3ex3$_cC!QO@
z7;hb$sQ76U_iW9op_#qzA3y4$f{Q|J5d~Kj6g6sqbqL%+26``pc*fl25Wcl}06Ip<
zx+N%T%NQWHx>xRaLRDEGwyg1mitgiaxaSKzncw&Cvf8(=h&+4t0r8U~*QH!)^|8CF
zXFF^LN0XUVDPbRQL>7!cSFU|Mk9^cGfIi485t`g#!fx&MA1^@eGY0=Cvh^AKN?Lvy
z{;qK@+t~oHFMdMQ$+exGNX&2rX~!*qz*%Y~(nvZQfmD<q1TJn3WUz7_X1IKyQ5rhb
zQvKm!WBeD<m)-JUyr*UKFTpyf_y^ldrJ!X(VIP>xSO?#NKOz!>E{og&5R;-{kPrdy
zLHE&pW2p1u@wuvd-$g_mNd>9+4hrr)WdH#u?2;s6MrfB;foX`AA#hJk*Y!bsn{R&L
zhREA+hv`}{bHGs7!-o%rU<X%{6X460)&1p#4(`lQ%#N<4ZGjE`bH)fdpNE#b4ogBN
zCbxjHLvF&-`+<l8%iqTY2$*lpcY)}OFnWkbcG(JffjE$>r%`TD8R4%q1K;?hx&3{{
zfSanaa+KS3S!2rUkATdbX@ny4E-K0g@#elaj9+))f*%sE);_kF<p1|s1}&EY|HGjN
z|M4(@|4Y5oaQnZ%{@*y8Aq_cLVFd9MgR1SsdjY(siBFQhK44&Gz9@{tDn8A<XkG;l
z-pHi&EC?<jS5PB;exHCrgUyB~e4UxOeR$G|sH8~e+@(w2F#7@?VMr>K<bmSWYK$qs
z6QZ62odn6FitMc+{0JeCy}Z3oB8MD+uv|qJJQvnzj@j8kjtZzGKaGzcuKORK+y9S!
z?SG!k{~;UwKRzxaq~s*SO)6|yLhHRPV=&)d0`Mf};J}F-LE(A4KOVgZ%vmFpA0*99
z!p1?oCToxu$q|A%Kup(HcT=J2-*0Im5Hm4a<0%Mqev*!-5|L>41~QutBV6V!lpxLk
z-l>D*8*YQ$8%$cI<dLb1|2|;kR*Ru!7uZd^z~uwlqBbO1aI^)?>fgP4_l`l^6`1Is
zOYo!spbc`>39x3pMa+MQUo}NKZqY$9KI0!Ji%=v;tsz%&g~No1$8P>PGEvLLrM#IB
zdJo7!_n{ZP{p<@0G`g=aoDK8aQGCv90b(@JHoSsi&JvxCf8N*jFSC~=pS<vt%WP;-
zA7HAdVfM_KGgHW@A?g{J2{d#6@zKG&EVVK5@qv|<d?+E18kQoA2lHuB*YDivLSz1Y
zf(rM~f=eol>4k;tD8xz(#dMTSPEHQ>91xC6vZkn<6>KQ)&DVIhuT&<)>}+m^cEi{%
z>?g4)710umv|JbbXCxOKK#pz2CoX%|Y+T9tb!)E}`J*)Z@~b`d?D@veE^03}^0fTF
z!820mA&;DBZ)!rVc{VG$!dNpLO|!cTCl%ll7RP7Y0|zSd$jSQvbC7|tu}5E0|0WYt
z+b~twduR+@dA-=`%(J6b!pt$7n^VP#LXJO*NiUqXFg;~QZ=Ts@H2wFF6f+dk)y*;o
z&9)tI;4?c$t<R2udWaGd5_(?8wpgE;$Pi6X`PZ{@lkZrMtR#QA@{*K!3;FHnBDK7x
zVXAox!`!1WTo4F+T0X*Js--`fq*GgsGzF7zaJMRJb60_8QkM^O1zfR|(BTlajDew-
z*11g9*{3lS?wt@)NqJ~-QI>N7Kd54@qGbBD<=MhM=LAjshgI*4N(`&^wbUI?@@m&a
zl$d8Xm3*b4rgk5JD+T5l3k6;SvIy|HV97?^_|DU!*y)m~kp2>A1)f+>cqXYk^URDe
z@6MJN7aT12k(Xl8ocWUZssxx`H-5n?kO2lmvX~d%NFN))&ms=jz<a}Y`S{4-QL(Jb
zYvC)G^bR*#sg#Bmb5K*Cc#bw?R=|eEjNq^=N`=?KQ3qH=xT@(*`$c>fnKd<nz^;_k
zU8hd8Y1?-UVAburgswT-Yc&wb26C+*g@XC-9hZM>!a(Fk0EX<M=U_m7DPpj~krg!o
z<n;gcTbhtZ`3|?bQO{wD`s2U>GM}kYL5%udY_68u|Br)!njmscJx2ys;2s8w&94Fe
z^aHIL^#wlsj>D2NICt1B$H-tGHAIZ&>z_x|5umZqs{c6pr^0QU$`rb71QWS|Ab^^H
z25-JM6TElG*n5$wVSyRs@7vm6u>;6?iGiYS_>uhBe6~MZjRew8&M4-V-wFQ)ogL$h
z<n({+Hw{QSrzY044Hj$8Q!PdK1_piuuJsk@VY-0nK&m(mj#>dbI8+0aAwa@Ra{nP!
zq%lCM0OvR|E|Hu;1J4P_kXy(}H|?!(z|UFO!9S}0oM*Imyfo_SCXYF6Tz4cTb$RiG
zLH_1L`jZ|)r}V>Od>C%ma|_*KOYQ!6qUGs(r^$^?HauB;E6HaQ3KK7`3+6qae?#)@
zy2AO;x91+d#yXVxBK+dzkD-w1oijD{eRSrbv7m0Ecb&HKbUV1mSLgQIKL$8TSD!&m
zWTvUVBKhkuDHMtt3ybylw^2m@^DVLz|FaH%2gE<uK_SkH1odH7M{JyUOTe#Xhh%H)
zM&rvOs`*pUUf5h5+b*$+d{&wjf5=}=A*Fi?^&zG7Um+&x_xw+^{eSmuhIHxq=c~}w
zCPhW98E(#)BEI2RX~Qd-XLBfnIMiFd_Svp^*$TiET6P*u7!&d1`XCO{@qXF#i<?(3
z_J4lN9>76*Tq#z!zepgZdokQ7TISo{tD!YZL6p$4*cVe_!~m$8J;{>v63JE-UhmSi
zYCHz^1jviyU(v^Is%V<0(-0-<XA%3;X6Z8Hs&&@NU(1QJs>%IGB&GY-*H=3WpCS4i
z>8&pIgaFJL5?0L%a<nK^0rdpOM<iV-9?*^hsqgsR4Q4ZZs$Z2HD9a=S)<<!;edSJo
z>axO1O?~M8_FEoLoOB$wEuEQty?6H9#M!x`?$6o}RG1<@!zWFUX4Xx92YsMULt2)@
zq~~GC6;m(kx4jl6nLsPF^@>D1Jm#(BgBt_sm;v01BE4|*m(TNluUP3+GF<V})-=3%
z9<o3mTqjSyJ}cjPR>Rk}0;a9|q>qYbcEr;}x|JV%<ZPqwx6-rbiCfVprFPF^QLn=h
zVQ;6`J-mP8nD;#DS-`_K|KAzs`YpV*6MujITmt`pzJ;aupLO`ZDjs^zI%0hU4|xhu
zbA9szATf`E?!#f>3KCiLT|?>cM&uBMV~p1E(<x4@zi;hJOxk%T+GdNA{`pcMN%wnl
zx)-vF%~QJ<<YWH+4b+5G&#6ja!BlHJs`?MXkV`7yR?0-|&*QK(uS5y5*$?KDk)M{n
zzkgkpCaZRz20Zb>H;_~4IAhv#IdycR6o3D9tvG>7VD~}~?`kED#K?>DfB*PHAI${w
z91vjTU@HKS8Ws^jykhhFB_AHim7KPG3YSMOLCU7*1D`#<Y&KFV=Xr?M!XT13<eWz`
zGD<KcV~^=o>QB>1?M~0nXUp9u#}yaCoO)oM*=RJ=NV1@Nv1o`bp(r^}_F2}NlKK12
zp(o-DxBHsvl_ztNBzg`d)Q-P)R0F)W5qQZ$K3%gYrTS2eOTjlk#=^iL3n~#Dmz0Ir
zJ;BkI<6u6Xm`Dvipnmibct3v~qDr3`!~A~fW1ROePx%?+&SS=ZMuuyypb|dlGkAc%
zky1B|du5|Pq+jfpmXwr)^iFieR1cDMz-15rlwG|n!BRLc!RHnhD(W)U>hV5U7ilE`
z+$jKOb!b8ZbI#yGe+oJlXdj^M+QDgHU@VgN-0MyVi;2mM)O3LZMx@yC?S8MFoZs`E
z<0?#_TF57ehniuqt*33Nf`8qja$O7#4SWI=lcIw|F$_R{WXvi3YRU_2Ewl>Z{fF?#
zi+;+hXZ9{0@yMB{(MKg3XMH5@*bPY8DUyz(^ccOX_=_=i^QzP;qwZVD93<HfE^psf
zB2@2U@00c45~QEG(?`ig7Kr!s1nM^92~7#$n~Q+MXNhS~0mhMs!JXZ-PZAU}0LYQm
zF!Xin<QV8<+3ICK&_}Saar~~FSM>L8z@+-2=Y+qX-?SZ1ox0pw7^NxKoB%<B-<6JC
zvw_bavlLAS&^WKbw008?*pN;Q&3p4uXTSwF-l_w}-~1q4pj^~z)dg^{!AzEN$Q8yD
z1X7#L%ARnXjoLDsC+hh;v9EJ*C!)Sekb<L>cj@e#gu^AnkWbyIG}g3Ff3M|7VhmR9
zs6{_;v^ON+d7L-Vg41Cl>=rC!fBy!KLeH5>WR%=){ii60`H%vL(Pvc!fhdp#>-LRw
z5P<Ka&;0$%LR&t2&mCcKG33)<`}G(6rSaNCt;^m*Dr2Rlg2JbMO;;(<UAo|yuT_t#
zPoG49(slt4GOdK*@or~$bhL>q=Jy9DswfERWv8V*geD{e(I$H5$-L{RDn>OIBvPeQ
z<-tSV3#(ieKMV{6TvYS%%ijs$Lu?wZ6O1I@k|>7}rpuI+l(K5Dom4BG^1y!?9vYei
z)|X89a3yu?*E!XDCZl%UQYPSvhGoT1KKc7z?9No4JbmFixV+tXQbF8Zghr^*9eD{D
zi?d+h_L>~U?@Lv<x!6AeNbRpLfE0he4gGKTZ3f}W3DlR+sIHPzRY8dxho`FUHRnCc
zZtQ<>r>|gU|GbOkSmQYqPHye+5%CJag~;9l&(g=REI5oS|BYAWzuja0uiOw45)-_c
zy|?@u2v*o`^*k#WM3S1alvP9h!J3LsyTN%ia*{fL|4uP7-%Knf4{SH4#-(mcn@7p`
zH#}in#CdIW#gzTX`R$t>j-Etgfvcu^85UVH$IK^C&*`x%>5%ca%wAG>Z}4$@AcY7H
zi1}TJf=Zyi%o2A9(z77I-<}8o<&*9gvyDhi!OE-qdi-B+NWv=ia~VRB<|@TnL_~yG
zZ)*0W)#TULs_T(%Ac6843Ba(a$at-qN0wnn>{(lmVA|+e$h%@-DkCB!q=EViT;H4Q
zz|zkcGQLSSEjU;e%GKAS>NhV<vv9p1h>D6%ve2i&yfA}Az-6q-)qW_#o-magmsbAq
zG-`sk?&KJl#!N>_tx5S^3W2pXvD^Hf?0IEidD|*dj_P~S@G?I6+L2S%B!RD1#|CFY
zK<|i2-6})+b`SndlR7t^xDHi0=mPeX<D^qv-@kcCnfbU-qwXUflKE-m?RE8iPosqF
zFC51tLUOxn&?XBiW)BSKAk)6M-gWa9e`hGLj=&lqeCrA=DN_7FM_K^GKtE${Wg_?m
zu8xxb{zVaHxMuK@EP|oa1?1{pm~@u-0mcM&V39bCz6-(65&$|F+Lio%1)lxO{HUOI
zgYH}p45K^P|G|UZ53|$Z@7`UPaG830FDyPjXKTw2#+?x|^$PT0e|-tn-#wr*6?A~9
z0uvBck&00SI<QoNfCfOlZg5<Ly?>t$&L4g_{Q>06FgSLCVCio-C4>j8&#e*KU&&yH
znq<L39T4O<TKA>Pi$g{028@M)83j`~C@2Hw03JPh1av8Ta!ShLY>Z_eNLd6=WhDP(
zY|m4NxSBFBcEADiw)}7w%3^nFkgL?#B{=gE26JA(xPLC75#zR~JMc#5#Q#Q!Uu0gD
z95Rp4_9!cM9w8TSf*_yQNduZXkV2C|-hT}BDShor5zG(Xf_gsJna~dhZS+FtSOqHT
zM;83ws~}0GhXqHh85TXOJposk0S`kJ&cnNL69!y852h&X!6t`1%yEzX?09g!NQ6MY
z3Fe<Ikk!32{ug`i9Tw&Fwu_?1m}tZ#wx9x0M^q4uA|NPW>;oc*6zM8T8=CYE##o{v
zItoZfqzE_+0s}IX(O3|WUPh@Zbr>m9rSE%z=F4~X+1K9ZI{W-__Vs!BOY)<<^S<j{
z>nZnrKhJaI%T<2!kN!3n8xpO+61PiBlaKKil0FEReUn1U0|{`ft)UT()!HmCuSdrL
zV<tp;sGyj~F>Bzm^2FM^XTPS6o9CZh-1PU~d!Z0HLJCn9E?U&cM1M}+UmGLK(XQ<Q
za9yppFG;xE)C9@FZ$;mHxr^h{yWa_eWUpnKn7n5}(1!|dOLkk3!7_v>_g#uaJM4G<
z!1(&)>(0NQ(`zz4raLl>mZF1bSo{EzA|KWesz-#hSA4nV{x#T-*rl54ibHoU{U8+c
z{P}agI(<;KziY3hzqp<++36iF(QH!gd3(*G+Dp;EMRHf?cH6y|dTOtyIDR>Y+}soU
zOAB%d7y9D#Hn!fED?bVN#YcMGd#Nw~_s>i3UHeot&z*bZxeIcSRMRh^g@E#J6M{{U
z5$Qt}t8(~oImA{;iauaEds@JjS~<yoxxkN)epuoLEVQG^2Sj$V;?(&CBKCG12vQFQ
ze~B;zek$(s8v)VoXlLTt&8iV;zPE3|$S~?i?7m)RZHxWRYQVeDdla`!L7Od(0xp!p
zsi>)GqbCTuMmwP#idIP9Ai`<<=%i4CdO2rs;ewafM~_YLL?eefEB48TsWp2I_;XEd
z^GD6zTFVM6`{Y*Ulb(rY>4^^>yz0nLwpv+H&?n;ts-(Ng78O3M0#uwd=S`ORPE~b&
z$yxTA0dgIKnLwB0t19ErA;m#?(23IH<;G=YWu&d}cv#8!NUtucgc`;rS6l-Fm4HqU
zM<Mg$+GI7h>)K2WFDZkH>H!qT;sKi_BnCW=sFjW+80{B**85Hob)ifA3$&WiKJJs-
z?3?fldDHEpcK5g6Q46dIK1$-Fqe4ViV@?)?NhD{XA*C4uVBBiIQwv!l)L>m`(NYU?
zymy;Aua*%8{wf~T&u^GHZu7cD_jI5AESwu`<Pw5THXEp<fdynbNxSnW5*8yu{Q7Es
z{22wA`Dg((h=%N1kMF6`(Si`Uhy<d1C@nXLiLpl@&pHI!QwPep8kpDso82j#*I%^&
z23uB?+}*YhT5KkoPsYM}jcFM~Pd-z|(kyiS{>t1-zLYAcv`1Wwjg46a=!^L(&%4o?
zD`X@%vw!v+J`%G10DZ97WGbyP9|*S!y&BGE;rpbmr0*y-6jiuo9p6@Rp1r?WVs^X4
zY{26+l-Fm{-)10CRvG{3l0!PxlVlZAZB67xVAY~gZfJ=2Gg8-%W?M2o6K=4u2hsl7
zsv_nhS{2=g63tDq11)CCK>^mp99Z<Cpn%_%%&di2G8xtQo>(V^$3$-flXE9DGzpmv
zTE`yV<=XSmsT4&AXVc%_fo_lr3!dodV=ZfNvEz7+6Qdz?*ywnE>Acq^eSUJ%(p7ni
z(BxVLL~S#@<XJy-jZ9|1sXT%-Dh0~pMz<D!oU8{K9JnQVEWW}Ky%TijPAuv-h(i(I
zvSpChuxFfUTcVrOn1Y;GKB82GInq_5iu&LLWIPYRiFKkfv#6w`22b+<Mp%2Hu(04|
z)W$K9rRk$=mJ4CNmZoM5G65PSr0n)knz-Vd*F2}LibJB>*i|f){t2VFdc%edbvdrg
zNcVOj8OzH3U?P*WvS`8$AS_60bPpuw&Je3cDEk^?pX)+9J6Nf@)jb?#c#T8HeFUx2
zbW)h!x-XjD{j%Y81%LVNN#2%cAZQuNlRWjnDf=AKHJ&unq`Y|fvg^jKp5NGOW>&;6
zx}NQv9IKjrWh2ri289eiK&H$XzH!u!)HYJb&_d8lq3pqw_YkUjt#H#MiNUEzsI1hK
zUn3ZJ=MK7`czd8LiiD*3r@t3%wV0Y1O?zvt58cyM<eoS*`ua&=K1sXOz}oL4QRNNz
z^F9`A^R8V6FJ8QG*tterT)Yyk1+?*#Bu>Dc51r@$PqPDU9FWByfuli#v2v`dI5l+V
zxtOWZGGBH8GWc}(zwO(%Q>Zw%x2t$g(-U2~oPNt2Uc4NI^VkiA*bPYjiC%P^1Nl}0
z%!vhx!o~`er|v-sY>0X@Eu?WfP%t%e4mOvK<~rA<W^>J7JC(*iN>eq_Af{jvM>iC=
zPO(HdM@%Ea9`Z|hC|^?W7_{&ovuw`Kqwr9gHI%4ye{3X>7IGfy%|ul0T=n-y4c;--
z71Y4amP9HVppMH))C9RI{5+M8>USsjJ%F`TNQHqP5Fi27O^Hzxts8qB^PzGi<_TCX
z$@tL&Cmt~hP!Vh!OK5kAYl3W8V{N+lRz*c4bTqRf{n}StLkGJdlmMYI`~i9_8a`+#
z6fEDqU`#{7cWn6i6?Z@R`E8G`Kq^>ErY%g9CR~$fOGHo-K*zBNDT*hrsj~+QUqeYJ
zd>ung$e%xKvDEZf#8u1!ka9XG`5^HNg@<NjwWt(uLb%3HP@YVLhF}OKb-HiMv~`U(
z6pr|Dv59J8sY|Iz4vh`{2o2X$D;Zf$Nwk#g_=6p&fYZZkhKk@%+_$2LBb<&Z9ge;C
z+%%L%ir=!JCc90sd7E|sdqyUyK=<H~&GX$)!vFZWPo?tN66J?PvHW*vu5u89I25FG
zJ}MAdq$4zY*T0XDGIjbLI$g8v9297^heW+&ft7T>d9;tzlA>{t1QmU@(Xgp27P1mg
zMbu)yq_<Xahy6b`>%tx4CDuT+<~&d$$4B{5?etXdw1?4xH_Ly^`QufnedC4+oD?0m
zH+rL@y5+fc%}N0_kAqS_Kf>!ug6@wVOS)`57Bl&!ChMmG0mp^<Pb8=ac&gz%v<wX&
z;x$+y2(80ugdZSZfozh5Cr`J`h6TTNA{e9?dA!t6qiooa2wn0j_*f;BKqD|M@;2`l
zc5QesBjC(JztT~^uAwYn6T%JvX{klmr~4$hbZt0y84~;y6mB9`qymy$enZ*4KbArQ
zbLKhGl)kF>_F6NKkkcqd?U|l@1U;jtjWSv~(ErG^WgPQfy=}>F35fipK$VQWE%S-T
zTPNybEr=)@mYklAI)2-wTY5}Kr=2^BE!(r8V&#ez9^T)DCQl~qeR^`ZS55o;DHO+(
z(HqNGt|Wb4JP?ti-PvlOI;xO`jX_RgbWf0XIXX+skcK85dF;QRmF}K&GoU?A5~x`o
zE+!^c`>&;>KAD9>e=IcQzgV$i#aQFP(FK={P%7234Ve+Wb&@uDzOR<^;`BK?lU%oo
z7N9-ZHJPF-S0>Pyc{+gdYI_=UWKjJ07J&fTyL!JyP~u3f#JjUHbj2ko)YY=q4?f8&
zx7+x?gW(%-_=SKp&E1z{?AEu>Y2W|#4x(`(Rn0xF2hm!fKCfF}VyJ)=K2W>rSjo+k
zpX+cB$6!t<Wwfjn%a>cC8I#h8Yn7TDm3aRK=H!Q!oSPKnEtV)ek+DiZE=rGu2jHQ@
zhZ1)!6>80)$6H=Ny}yB~=rO2)PB<66VVUT2P1sMP@)ft87CCwJo7~wwKZne{q4c_@
znVFmOv7~wERvLroMd$I-VRUaRDk^edp5Fx}C)5dLrn^#xy%!^XLD%TsU<yINkyQmd
zSu(hIy&&3bjf3Oeda^q*P$M~s4uR)Jc=kK*L`5;lz=yH5)qzqM<9$Cr6U7$&wE>&D
z!F6eUw~H`D>v-46sekTsa7aVDnGL+k2<S1HDX9m~QK^4ns0$PNQcKtr5q?9SXBKH*
z?3x2fEy+oM7>ZFtce&ceIU2ei+lmt2-Z=S*?)s%<&9ye3Sd32~1_3Xp973QJRH+p6
zoOC>!FmPn~L;CD8{PE$^YTKI>hEa|Vj^M+LX#~Gq$X$~c^T}aH8D%4X3SRvX-3f}p
zaV?YR$pBO_Arz`bDg{JchZl}kVWeSmvQraW`VN#dFekBn(<;5x5JEvRLp-z$s<8t)
zvj096OkyB3N2<o0gjl2-T;uU^%w18;C&|BB_|9WED@hr>=#i-np^!x0R8I5c(XF|C
ze?am{3fKy*SR{di9cKf8&Z|ASzq#of1#<2ho`wYnCy?9(^4=O)?F_U%@y2H>U@Qhp
zdG>kDs?h9*L|tfl%Z2<?*U}el3!Tu{Qc^$TFbV8cRga@>jJ0eS+(`mDyd4JXa11~z
zm)R19;$?&%n%MK=4}%Sso*xFX$%OY-!>9+?#o!t%ZM>@?7z_z`Zy2z_H@)!OEcCmE
zm+)qHB_*F>=?8{~KO_YVC>uavV;8sJ%8TdEEs#PG2S&6PFm6Y5lC^O~E`ocOW5-b=
zpV7AErH@W*303sW#9<hGV;Yc%#{|YtQffH)!RJfWG3(?I1gyg+I`C^lQ1^GDJDVoZ
zYCH`_fH2jSM)#Avt-z5y8$t&Qi0-Wbb|YHFhPQIMU>fc1xwI30W6Mz!CfjP+^5uzG
z^W{DvnDRq~Db<9VPF9>o=eYZ~+V;ao#Q51x%Bf)Yc2#FPEp<C}>RuV=$@QP5$1+m~
zS0A}CpQe~!dZNT1APzX4SrA94e4f<Yz!Sf%wf0_6>>6D2G5OTfn`lmet~ZyT-6ON2
z7&kN?NSX>GZ9K)_bt27Uc!@zXB7K132DStlG7zp9%-^o#X!=kYHHX@OhxTguZ$mzG
zHff}2NaV4P?t;^(uUNI)EtLe}i-i?-yc_nhCXr3Ioo_M+z4yDCmA!nK2k2-k$%Cv$
z!E^W_Z|dP3sY_ccNU!e4&l=ICme4i7dlvmVvvu~^Y=Z!fVErgOsDM9N3vJDbdf?#1
zYTy_*E~%O;u=zXH9l6+;J@A4)VUQG%Kl|q=*Cas?)rC*0!!f>R)6v?x3B_VKHOG$}
z(a>r5=A`DO>4TWb;b@1pAWfa^vu@3b(LB*EH<KOsuQopsh7ZFsYGMxpi?KYBBe3qm
zd(|BvJYG+x?ntfynl<xz0<54Ks~QjhKiE{Ae$<I>o^ly#0=J&^?Q*;PgV2X2CEuys
zijpr$@TJd4Fn|}jKUsAI>47WBq`R@&s~UIDUQFQKG{R<M_qIU&92W+~vh~$11^C4Z
zqc7hUSoWukTL4lAl8k0|L{{C|e7ri>-7)X;hifGGLCeWs0W-FZ!mVy&Q@;GxmBYXQ
zP~eYz+Hu+y#!g-RhLb|X!Qijx#ZPFfvFhtb+&hJ=5l2>zP5tsEzXkYx#457?`71Nu
z{gr)o=%Z-Q&jP<%rGER5_($t-&pSyeDWFmb$W+CsSk?oZ*k5obzbh*;{J1<PD|lIt
z_7HQ@id<#f(Aa16EV6Y&`VQ1y)FeJjnng?Q>YaZ2r+u)7X|s{6T*C&4_5Ps8BSRwa
zDCG49tODc5_P-;7&ZStQ7kSaESKl4{dgDKy`y=h!UUbao3A);`d18~O%-20~y(0zi
zSW8n=+F8}#ioReSepk-8JsHPg+XrCiHl@-2*<wJ30Zz{r%e}H<dF;+d1k__Q*Z9kl
zJdg)AgG8kyPZ5$trfUxyzN9Q~5{BTHFKI3I;uic6SfT8!s;a8S`W4q+w0vq4O>#kD
z`2FI4KKHEK6HioSj=12wdn=5<Dabwk`ZBH<V&&mhdu(zVr}iB(4zhx9+1V~3F79jc
z{N+>N?Q^ndX{~!lcln@n>eN?EMPLS+fl9Tp9(^~?u?j#u`MTIOyLaIA{~MZd1#@-v
z+O^vh(i0WnZm>ds>i%b_QQv{*qiQ1Lt-+Xv|9snFckezx??fsca@hN*<+ef;LH3wv
zI_m1MtyBJ{{{R=$KYGvl%d-7g()G>#3iP7lA+AX$Gd5u8RB-X+)ae3Rw-k~?!pj}p
z{PpJ_{lK}vJ&R*NkX1Y1aRX+-88fpkL?Ixt-BOGCED)>0_}B+3qa|Hm&Lq5L7rI-M
z9xu)X!mj8nNCgsi8&>!H{n?AM{GYwoz;7YgV5*GwaHf3#6ERLaius$5Gml~);#b=2
zch2pahChL=)<oMffTW<-m`FAnF?mZL1*K^6vr1#UA{JdykYtVlUd<J8L`;rmnmja~
z3>;?J)a!se&+|&$nq(!n#>znP!KO{FeQZN=y7RrVr}~3Aoe1Q|FpcGGR=qQdfs#>r
zb~PYiiP?xT(tN9DI-v1&>q+0xNU#3Fg`ArRQIko1IaVwbx*XMGGmrG+J($)wl09f%
zkuX|lQe0Fde(^CfIM}=@XRc8Kl#u+)dfS2IUc_yQP%kQ=yyYTyU|=8+annr5k%1Ct
z`0AHTrI^3?lSwLidLdj>D~EjL?n_|b7c8GI^UnDZo|C8Un-n!Qm~gK%<s}H)I0M`4
z7pcRT)kTov!uR$TID=$jL02s!8OiQJ0Q2Rb4`r~62yL0FG_&vbbf3(smw}oRqDmDw
zM_?R)auN}M5q?w#$#%e!WaiZ>o)!=%XY_Dk*)<!Z3t}Z+ZSv>OZU~P-F6(#>f2_E=
zT*AwC^`7n(HNG+aQx`MQ85`dn!bCX&NCEIV1D5^8a$O4)G{c1#m6qy21#oY22J`jn
z^F*;Wfrn8i^Xl}Y&rT^XPFJAO1BoYbaz`6n(K`<fEeO~X5y2n;AF$B06I+swC)`*i
zXZsM~5`U}j=rv5W=yn|MvxakWP>4X@OMR^ReUgPxg5Ck=Co~H96bNEf=%`Q9xAaBb
z%DC-&B;*$}WM|)?7pbtLOkzt6@+WXUsB|J6AILWG9txx+qR>a>$dN&wAt>Rn60xw7
z_My8-=?l%$EnzeQhw;EfBGA>$;eaiOMOx+DS^j%~^3-F5wY{tovSlVdf3m8I_eV-g
zz%BxjWA#3HlwzFYJ+$aZ#`UoExERvFAd||_FKXD$Yt-2u?Pg-p?P3#BFO*fo!Q4d8
z2|Zpo`~e`<%?N|&)rj*(Cf-=f0^arPF{QC(ZPdn7Hk)*;)o6OD=i?I~yel4xTM4xA
z#&|e3FFtHAi!;fn%k<6`EE<6qJO*QN6hR^2y(+}4Yx;J2hj7ty0cR-@WVA@Ihvb$m
zT8KS>kQkBfZv36sAItt=5_1ZcVUFUFkK_%UulchSY{C%WP*pnO{`OCIQB^~Z%Gk&B
zG6Ef6PMdYJKki4{7hM!f6Ai@%3gvUnL2zOuutO-En3}4AY*9uj>nkD$a4CwzGHe`6
za>+45N)-6V7C>?Mt|ej?z`-RY+PD@O7m4{mNhnk7@dkcCTDG9f&E$Rf7t~EZ_2hY?
z(m+%0hP*PkKMZLhs-BCEhGmMOfCn?}np3V{zrJwXi2n|Q56Se4<WxJ@Ln7QkO#uT?
zK{ekC1lmG9-BI}mg>@PE!$!+}XO@{4+Kf<EtLU37<W`7=Er4-~1WOEcDA*5WAydK&
zkN?~KeCw^L*L(n)8EDbtjjkXh;RU_*W})foo%Yc{H4~tN(bCVXZRS_522AY@5^E6s
z2Sz8Cs-Qh}_4<I_F(~J?K%Xh3Ln$~JlO9j>5sFe00aM_7i3FT$d^v?0-1_O5*`v-#
zM{Yo^gtTC;l{vf&Jr=R?^MrwvykUK+Ce9+-H5+sb#~mC+Zo)#%9S+J-tn6`1%fvN;
zmjO0p0K`y)Hx3L+CgtZlNPcWBOGp|xDgxR`N^0Yn5*w*9X9(;au{Pu?&|8R0Nd>{)
zA3Jsn1<((XF@s%DC5%#m0zu)BMRmaj<03@3M3mLkO7xZ(B3yvCHL{{MCxymSO(>E^
z*w(1b8LMG>g|0UlOF0@n@Z%QD9rZ(}@kC<i@X7%P>9d^@DVC_QMwDwE=QxoqXh^_j
z)PxhKfRBN30Ie3)JTxxNgoVcFzhijA2z7V1wY6oB<N;5uLzz8cF9;)NJTB8!M_3qO
zQwO2r9Ar1Yw<lf$8RMOC76E%lW&BRcqj#ET4j@xNDRme%3jm2pYF-mU@k%#RwNnoK
z3|^Uvg$iu69a;4aTHNTMC)!9|DUf4t<A;iGyhgPuES`?`|L%r+dDFrN8~Y2*f=E4U
zkF7ah%;18r788rtss3ppQ3pZDYRS^49T2`nA-wUy_^y}wH5}$K2<hKKb~89Q=vVg-
z4(Yu0t;W(Xuq8O*1Qh>T0lXx@xzA{^Nf#ztXn{{6nlTNV$jA9A`Ir&__gOpX0rU0+
zs?7QO6W(@Dj=Up4$`Tpw;}Iap=qjKCM`(8O|B6lSGPxzyIJ6sM&|n+E3aAj^6|YJ!
zv2>P?&7SuReuOMB+wD_~h)3sIf^4E=L5lqi{+m5f?_1TIBY)Yp<Y|9c^Ta{YxM129
z%}RRmMvQHsTqBnw=M}TLYVw++_|dt@GD+Yu;Lf0_&kf;%x#&b5TH`O*^uT1|!^)!K
z;^Ww(A_&3=T8dq$U29RzI_37nph{*P*q0qBBg#XwF2pt$(BwWv!TE=+1^3ZDfpph^
z#!BVr(IEIHtX&3@RG{g;WKt1n4H=LX;Mu}f%Yz3s4%jRTO|2kv4s+ROlMe}(jYZ2x
zS;y|z02u#X;5+{h-XnkJeDmx@mVpRDb^*UaG`HSIpDTEb$?g)T2G2D%A)kgA2=M6b
zLDXgNzksP3X9|C&2HU0@AaL=S8i-n;W$K=?x)CKw_km65cuv4JQK$qakoeO>n@l^#
z(Zz7NzZSkXa7TKULt+JlA)Y_TBCF(WdmxN?0A$s_z^KOcOa7bz^`36WT#5kZ5-=@T
zW3!84TQ*FmT<9l^#J<0cHut%Aqbft}$lYj?<6%&Qb92cw{soJjSd{P2mfd^%frtIu
zv%zGA$w4EL5r}0=xPeP~^4gy=1gZZ+@m$P78}{FpT!q}oJ0^=_lhl1t#ti1C%b8PS
zwb;Vwr}V4w+oXxuaNqrj%jOk3I%dQOGHXKIOx7PKs$~BoHU2eG8@~BTglNbp^QRW;
za*Z1Ey=*wSIEVcE0ZNs)ZR9(~MDs_K*aUn=XKQtY!IeN=AkC7Sua%&Rh!Zu~4454&
zScg^HPXEaU6@wq}c&$X5HBtL{Z}+E!eNP5xj$HWY^ZLF0VLG^wj&mH^_t!*|Ax9@1
z7yz?QShF6##=|oh^*7hD)+ECg(PJTy)N*Si`xXl{>KwW8;A=km-$s*(l!%LiD8$}E
zP}XIazoV<}JA)?@Mq^_i;kq8;_>h5aL?D4U?TLL*EWotQ>(}o?rd%0p;-lB%mxTak
z24;3s1VM13GVZs>Nja|Qppb#!j5!V=pc9A}asD>1b8Y%h>hB6AXK$<RTt(Zo12{3{
zi?ETW7|*ggR)k&1f?Dy>rM>^C08j9*?0+Aw&Q-4McG=aN{PZ8e3&@HdU%MC=iOrjD
zIq?)1{mGvI@wK4(C_FpcwKoL`5)B~`__S&O@HFE4*ey49X<?33U*){YxanzcgqZ}5
z20O)FAnNriuTpnV)V=j5ViyRBI{q2pgNo+G1?JiXfvlZt1YOJ9{j-*+VVCs|g`+U9
z`)&G0^fX^ZaP=RzG&xAw$vKQU3g0nr)np!gO~Wg8DwfRZgh-aI#hYW_^oz62pNhH`
zjck_ZILyR%CTrU!KAJ1vrbH+i4Fqm8iYh0KhWTNWXa{nbu8)zpCoj%Ki_x-wAyXTC
z_VbM?hX@nxzLo&=e2_Hpu@p*zcmY*fI@%{OcJ?^&knl+a1_7k7oIr6Pi!`mQtS(+I
z2`*E&Dso=giTXK--5+09l_3aJ%si%jxP9U0pO;>6<o_{q9$6Qaxxc#~Oc6NwJQq!P
zEt+!Od#3XTN_QnMzP6zy#XogHZX37J*}G_|?TnVv@_c_NOqGkThdr971QcL$$zeL+
z>lOdp`#HvXR6qZsu`A_rrRR8;%dbBDx1%0s75kpe_d3zu9kS<thKXONO*SJNuX)@9
z7>Y_qy9kXIM;~hxREd~uMS8sT^06wrbC;6=h~LZX>rnVEXivuwm^^Jj*&B@XJx&9O
zD=I9k09Iqtoqf<~^{FLpMkc3jS{2mog>1xr!6PuXiJ#ozo}r1nNtrC0o=}gQ#7cT#
zmNX^tAkBU@lN{(o6DP`iuZ~tg&lD=m=HiT46&Io_a8X>N#=c{ThEuBjxi2jcexNL^
z%h5N**=OK?6<>EF!_WVXucxe@o@?|KUbkB0n{wgg_h*bDkLt-CAaxouZx_icnanJM
zRl$CBVU~3JALAZ;Gp`AtD0hZ;pP$D8;gp9VW(wd9FD{4yb-D={>JsIN)L7Lhiktqg
z9!O&dq!)>)I4a||Io+~g`G~0|EG6PH{8&CgoDq>|9sI`EF6pZl;NZb>rJrWyH18{j
zeo7{%iY1;h07M@XPKU;ur;UN}R$zXlM8jX6sO%-uDD=jd(a;jgb$KZV)@1{gj72B1
z1tb02PI$9OC&RdL8%Yx{r0RPKiqYT=N7vTTK|>Be_xWxhR`niFbgFLwHCW`kEcA03
zX?%`&9qD-u+B%7QIV(f`gY8du;vMB7_t!mf|1pGPkO*MzKzarcivVYEB?efgtei#!
zijXlA*yA>(Bw|-qrF=@x1JK>8$}3k-4R%wb2kg-@5>e<|>&#T;*OjoO3dpMik-*@z
zesq+aD&=Dw-aRBl>S*c8H4RV{qhi)xB+)4IG~GUWhy`z)GF%<`((?1ZTC24DKl%68
z0(q)}%Ba&PZ^9*YXT(v$6hQbp<bmN!Hak$5954>A3Miw1xn&3RXuxl|001-4Kh3qS
zhaMCZkK}20>MXM4r{D2!x?wN}Fc_$X-sY)E5GyjSJy6^IjRVAkT#Pw51|8B4gsiY(
zhkz6Ymb$mzIwbyZTbBdidbJ3J8k#Sx$-^C@$WxC&{6Zq-#X{Skx45U+ziC6Dz{M*a
zf);?s<xH`-Q-lr-VB*CY5VjFvns_&9k6Q!xr^1}>aphDIZv(vB66g%l26U?eQ5R&J
zH>AUq`K2OD?)>WuRlFbE{4LgxItpvOKvB`dhp(C2#-y1<QH>mr3F<iybKjSX=)Zv!
z3-_o^)&mly!CC`5ck8k!+Ow*ii#ZqMq@<4OB(sX5-n=<s<ns0`@us_e?7`?x$i@7n
z66k2<CW#>fMBN9f7}~vPOjjX-G$4!!F5@FHQxHR<xXfXoqD;^<MlcH+$j+88U3wpa
zI~sy0u$hsb70$ECygby7Nsz)2Oq=L+CahXO^AN@XQM=ZuyoOLxT1pzPBkA5OEsada
zl2G#{X2;<~2O$EpL?t;))ThsZy@*ng8IY913awcm>LjCV;{oxrNNzxD#1;795IzKt
z-<dz&Q$-kV0N{8eR5j@0Dpdd|Borxx$59R1Qh|)v3GKKD(t=edS41!66y)+<gn6~U
zfd~@~M*>0a6o_~pL1aRB7K9*Z+H!AWq}yIXvO|zmpa5f^f__4KT^pT)QSSjUPBq8Z
zmkd|&z;v|TkyU70LpW{l-&#0DjZZ_Fs@KP=W?n2`ssi#BJ%&!y*y3-A75n6DOfai0
z((gSi4Bg9i4_qhF3l6ELVX5}^p1RbXi;X|mnx&84xl{1`c_(LjoI@mwNB~ypsXT{f
zBgy54DXIx$to9Z>dNN?doylID{AHFAI0SDKXqum>{ZCh(|M5McIr4K}4>bNt@)-0B
ztC)V|+VRP`#(C<qNfyue=DLep5C3%LvSzf#)f4f4K{elN?mu|w<eF~|X`K7za-7xz
zuTFvO8d^_|t&v++wEee>zt0gWYT9eya%<s%)OD(Q>^)VomJYtYeX7=$x8n=dDjf&B
zltjGkvpd4e+&R5!p6bS<t&S>jnxUbg{n)5OCxn;waPkUD8?~o8>;(Cb9G9$?-BOq%
zEro%B<)+Sq@gv&I7x7#U!VDAHI*a?ZN%7m8pc>k1B)Y@5M{e4nQ3#-32_}p>KvUHQ
zvdXBV1qy_&HDKAZyEE(cZR_@Td`x{N7y|xsg_Plm#~jr_7tDAz2S}9-W7{a2bXj|h
zpY}m@$HeCXWn;dAh>VQPTYN@(iERBD#6CZLBqseLccMNQ#VJJzN<)cvRN`Dj4Wxn{
zOXWMxAgr;@<}KB#RFiAGBkb~KEtEUmJk1BGS5ZyTw`5v_x0V>CT2EXz8yT)6qOT69
zB8rVYyK8z(kr9Ld`D}x|I&oG~{lTA*8+F_|BvNSSGZ5xH_H^EhcP2mJ_x%=*zBX67
z4RxKY$!L*oo%fM!!_v(O;dCR{MwUU3`u<+&lTZBa6t}HG&mcvkg+|dIq|v=mK)@pz
zt4;bt@tuw&Y84?4uRE}OPR-F7vV4!W2iRl}_BSWg;y6;075I4p0S%4iQBOT_o91A$
z0!3tD_7Xqeo%z-QolkxvY<`OBzJ2@RE-#-gG|WBpVje*W;_uyCivY3=hsYqZ7q1MR
zZEtBN-a#_1Ff=qISwD<q<%cypQ!C?UE~dr862axTBIS#`e?vi>x*gM=pte!A{ND9;
ztf5o~+QAf}TTVFo$C+aUXf{%;i?h5sKl;NQJ5y8BVJQ1BDR38BPPhV6e>&Km(`AVr
z=7Rk|+U^L+*&1RHdJ14oF`!b1A*Ime&2rL7no%lC@S^21x0Ljmpt3CaVva;|VqzhP
zkQPcI#)zJcnBkuMoHafP<$}$2E^YxD_|SPe!lf>;?UM}G@b=Q9JMUF)AnV*{QD_!C
z?DV}r-oY2<eNCY5B?Ib1^XebQ$H%vQ0y=2GbC`MTBpobQAh+Bo*X@)3h;K)PtG>uc
zZ!@Q|ZFW@{SHTTF3h>?nYwJyK#m0C=-562bK83Ar)OG?t6#Zr_+(Sz}xZGAv`7V1n
zLZH@^ys@Iq2^qVmAYQl&`}MHK+jk_Vxeau!_2~3gZ=P!4te`5|N_+P^#dm)59N^`|
zsH;}5P6wCM)(a_(BS?cY;4?;_iB8=_jhpnwaQnRg4ni(nx<n~Fby+wlz-RFOe_Y4w
zuS<Bnq|6M>;a-sqODTj;-hQ^|j!uA(vX2*V+)&L#t^as%^FFcOrY+q#`y~JfBG4Eu
zt7a0}UIh6x&SbY8*~BTEX2>$!sMoi4>G*_sOLqT;5m_2dU~b5KE%$B~mre<@$<$No
zJHO-%XsVA%RWpQ+R-V)%H{Hyq->yD`XL${c-5cSAneTKiXP<#+p8R1OXT5%Bgzo&r
zl<e5CgF?-0bgA#zDM`M$N1LDKmxa9tVCFSGFBrSmgJn~aKa$rAywI3R_ZqKnK8o(V
zborSJFEb8~O@y;4UVC{B9R!vyW4yMerfpaA=uvv>UDF$dkXYu#%+Qg3NmUzYeLg66
zv;E$6i9%;|1GX)%%Dg0D>`j4EZU1M4c)Y7$c8Ml-2^0?$^h|K1pFt_XC^7vQMl1zG
zLTm8F^I5xZnXR?4;NT<?m7#$MCb?(VgyfXSzBzdzsDLxx*egE6$?eIqw6ZFa%K1p2
zC%E$@%LWeZG`M<BQ4~6+oxxfbnk$dLZ2)7E+>q6oSJdV(j5l<Bm5jKWnwoGDGhN0h
zc;6Dm9YD_Pvh9wWLv<#L|1Klio%2QF=H85J9}?Z3>_YkwRIvWwbqjYx@xa>0(?xRH
zo=|j1e7T8iMBWf>h8ueD;*xC)9-Th0YSk*8(c>m2QRM!!q0ZdyGx2$i%bQb{*4BnC
zZ{jpJH&6Ds4xrs`N05OnPs2NcaW7{FSLgc@MW$UXm%S+x&kk>Vy0`^T^04X=Oc2vv
zhP=zh`;Q)NBkvDayNpLks+lDCO@g5m`J0%y89M7yb);aFLeOjV+CIC+@{}gtFEIzg
zI|>P7-Fv;<2*#Wf94!dk6`U-JTLOLSs_HZs6Kh6VO!HM{c*Jr^Z2jglkbKF*&KgXr
zwV$cE9;+pO7CZAb<nwp!yjoUM>DQ##4{A(R<1|Z^rzbF>$S$xs##lEZ@!l@PxRPxS
z@&?wA4g}QBIiT^$&lO!2Y3>b?8&>K>enRW5H(x&qD*QVX`43mtD>zMTRQmK6r4Zp&
zeRxEDZZo3KA;E}*pJgTxV-_bSM1~S?0p_3xNlXwqp6-}!Q~TH#b`ydPHd$nMR0u=?
z)INg<unguFf8EVkllA%+vhv83RtfTsq5Qi|0om0iPFq629ox5AF!czj&8K)#Q=517
zJT`?ypAH$J0@+ps`jRzCN4&X#{5Isu{Rpr+GOCUi<KRc&(^{i12o^!PkY6;#*Ib!F
z{0ICJyX_NkX0?;PgZD*QyFs)m8_k*yb_3)#bW|>gFA#A%2}x{2T!%;VcvCR)_6{gw
zOVJMfExyEb$PQ<EchiLA9nMS*C{Ig6(6blhY!GolFto;*Z%$u>yYLJ&h23*}GG{?+
zRn(MI&*PRGTTZ0@>g??7jsUJ-bo!I%Tbu;lMVAZ=F1Q*M=(}Hk`SPW9t%&icnS;rA
z9oOO2+RLrbZ@h+?4`#F3c$-^se9F==8KoWaTk9biOJmg$VnY@ve|~C+&^tuV&bX_q
ziwyZ_1=wFUf2ConzHfKpqPqJZ=JX<j*$zaBQfQeF5roJ%&of45O9h6v4IYWyEl*8D
zAN3AX(eV>;Gu(Nn174R2JvK8l^O<Rb*FXuC4jY+T6DJi0#AYqEAA(b-&tAfb@6(E<
zicx@)4)V?nV7wlz9>Re%s8I<Oo5*CA%~`PKCSGMi+g)OVp-?<YeCGrPPpNx*dy^lA
z#)|ykGH(7bOEx&;#9Q`tR+-W`9JDz^98@|2^6ayX@3Hor$$E~B(8xZ~F%7c8NaH|D
z3kwULCE7&@Z9j8Z>}dF15Nw$xbxO!$I~JLI-is)RwL?bcEa>ym7h8R9QRF+q9n(;*
z<(x9RG8hZ*0DCV+MND`Tdq#=#`NdY9(Zc6Y&kY1Jz0L-15CWZ2=bXQJHO~B#v3J-I
zN9osp*>*Z2fRUVBjQXTxFTO#u3LP!>&oK(FuaVzQ?MI@)7#LO1e}<>N4ZW~pm~|Qz
zL{r2P=;wrX+Mh%a(KM1j(gs0ksqa*WZ+uFM6xYyEt@s=gX%+fJ-(}_3#GInRU>uJ6
z6Tdk?UX2{kM${ZJg{^Lcuu!u616zq5%IM_d`0-Ie`}8DdIv7xS=HTF8>R#)z8eI(N
zWD{AZXO?-jOOHNX;&T&0=N6beWDc*t-xz+An0$5m?$7To@C|WJg1zQ@e^?r2q37`)
zpxLVqrIBpyxg_*z#{sh&okruU0{PaP``9rUTqxitC5Qb(>CQPnfoqkgHCe%wlY@%F
z2_<qe7t1x2r(AC(uZw<TK`yon61Jnqj~_2p;6KEGE(`w_f=?ZxH#ihaN|wnqZ|X)g
z_ECc&k=%NsTL!@zMbAdEaYO;HtoHLn5r5S_-Oe=8pS<2LGI<4IoI}I80v5XrI{OF+
z1C=&LIBDtzl31y{E!6Hgt57T~gErkhq@$aE>n(X&#DGag1tbTc_QT#YP2+@__uPTA
zn@8mpsXf)1s#^183OmtGz6bJ@qv(Rz-?r6P9^yHRsd3KqE?*e;`rN+^XyWp<o|9zD
za;EqkGmJ`k_3diw^2#dgB{~JgCzb=Bmw3IKNAt>eKX}f_$S8sKrwp%B{+)phOPjDV
zq@lGt*fw&GS`oCCgv&c>>gomq)!0^Vn`5IJgonUW5Ys~8ahc8fBa=X7n$nuOK*?_h
zzCipmX;u(udP6?mNbaqbQW;RV#(N&SG@n60A4-8Y)^CeHDKQN<cZ41^EmjD8Xo~cn
zl%M+CGEm<<B^xzXozRa>k$Tpq9<5EYa(Yy5u+oSf7ut4uzf^WBeK*wndTD2<VTuf@
znp(-KD7)UVzsrv;U*d+)cjP0?+FL|z`jPx*j&J5$voPYck-HZk-PK*)rR78RNQ`Cv
z`-vh|txU5v8C{x{RT@H}Hq4wZTVY^*3uaXwPKC);I5^-g+hG4pu%`ajs!;P7V+^iH
zZdhim=1Z(J!{H-bb4YRuTO2r03GkjEl;f|%$#Rs!6Je!AUy-fp!Zj{@L~q6GEFqB<
z_{Vl~vbIAk9TZXm2ME8)-y!0Z1&<ChX-E(+{#CNnc`rpgKi;CaLu0bbX#&H;NQ_A-
zBnRLj)GH;E%?RZvh4_WH_XeC}FCpCCMRkC;bNRf6oF#lC1OdGaw!#S<+O!?Avh7%6
zmjHifd=P~y1@3W;bM>*eAR!EFGlD2~&=e?ezimu}Z7x!k%IMHtNbcjRE&Q@7y~Zph
z<r+BOv-suL#P|H1k=YLU(-HbdH2f7-YG&7#d$q90f<T<*b)eL>{PzVL++A1L==#ez
zb(T{Ku{P;1TSBAkY~1}-rLtqISd7BDu0Mv8+@9q0?`=R}k}}vwK9L`>&GaROiWxD9
zf&s_G1N$$CPW(!BsIyF9WjE{_a2FTu%hY}bO^_q@tC+j%%YI;5oT61vNJuJOw)-})
zrr!V#*||?OPfs>GLZ{jh7i?@5vb>?X`VPrFi4~@|Vmh9!t~YF!d(gmEpHJ6h^5aW-
z8->inZvj`!ZM$Sc7^zZ}VoVhHP8`ayGSH<ZFRDw%@<4_>8dT7&CrzU3=uVKF!ITgM
zXRCylZ|yjfX+QzZL3obhq`vL)k!y51PCo<PNpJONE$b3)P@4GDv@?bDiN@whBVux4
zPKiZDbsBNP(&s)rudb<Kt(mD;MAU1TS!b1u#{XMkCrPgE!DmRr&ROHljB<S^xh^%e
zw;oNs7oCD1WY~F=2u2;nF;yJj>7a(B(a2*UG+zPogRJQ`k_%8mGr@Yw;}2I$bHf?>
z21ez^Mrr$>%?5@f{lqG1j}eP1zz;<I<94#KNwSH0p4j82GG)<|9oWY*P48%EBpssY
z=|U1+YiK<p6u9hK4e>zY6*|baC+i8k94Vm~(xy`+^GPpNkU&KI`jGNiMUZJqZhuh&
zo@f-ST;SEYPZU)yY7owZLPOG#l$=roS4ASIjO3IX*IC4?L(V6UA;am25E2mXE?&G?
zQuSJpN*oF0vp-yw*pANfaFrVozn#T#DQm+My;h#AQg$A0GrZ5LncrQLRXH!ezeqwJ
zK#2n&jaCefEF+N`c{`-~CH=(;gIK%fO!aL1ht`a=(of3u>HL*vFfeO$i0K=FBk#iM
z)-`h0PJ#HCbpy($yR!T8vEioG=z@)RA8N`F6ehbf=9)vrft3vBhve|1QKOsE)Te-~
zoKm2n+SU(S8}$lFzLQ)J^e~JZSj2o?tFp3&^mhXkw~6!wjl~e*WU`|b#YOsnnARpU
zR#!H0`u<v-P8`b%EdzrvywS6OcSfrdlmd}`esTmV5)Q29Exee4t;e^6w#!Xs^cm4|
zNl5o`8bSfhwgZ#l(;YFVR~pi>VppV2gS_>%bJ!=p?FBG>Viv|(_+C0{^hha+IlS5=
zOcLD=Y61pA;(Z2_oJ-*7j4B?T|3D5g0wgVu!?-2Cy$|pq;9HtEm<FrF?FP4Kv|U!i
zu)Tjaebh=Y>k|~(9@}=w3g$1_#su?^Ow_BhKHR=IXVcxa1M0o~j$5KQm80wl>q2^o
zRQILy)cm{l)7^?jdtXeJHLt0y+JKLVC{L_rq5I*6cSg6NIm@!%8eAM9zZ~BY5a>NM
zoB8^oN@s?jSaxT&kyv!}mokO<8)g&9O%L)FXD|;9qfnpUSP7~EoieY#e(P$<J4M7Y
zRS9KD?&kmih1GLg>8etRT10ZXM-KY`6Y9YN<;hxG-XUY-)F*bAe7StL>DL?Rs{Ww~
zxJI7lEL@y=Lt%NJZAQhxz@(Yg@N?FBB;&?YA}MZT!lTt)owfjA4O#{~BxUo4Q;d^u
z87JR1POcg&rzL9XZ|!;@md6{ara9{yFuO;mmiRTPJu%pWj7Oh;dBUJkOV!oN=H+AK
zYii8AWNw@<uYE83ys@V)v*s|fF&WGY|A25!tXy8C2jeJ>?+mo7QR{nw0~_8+MkA)*
zA*<68&dHQCe4Lt~+9`{l@lgBL$x*oRcXBnWSZ)s*aF<i4h?gL*X)txxT5s~KhRXES
zhG9Wyl^T{bC;G}ax$~>5t21h&J`D5X_1VX1ihS0a!MYp|#>-zdzFtUMDwumsA&F||
zp*W-;QCo|L>xx$q*py`TdiD)^%%ANjxaarpXFxrHg(|bfE*cuMvfTfLSG(!IF7eMc
z|379e$a&qPj#lQUNY+iJ&AUTYo_6x-AJ#ZkBo7u;94!BcG*Ece2)M5@B!l%09Y|4M
zlOXWkCt@`PbZYr?o1i)D_;cye6WyaYpo$<ti@_ZdL>6h&HXKO)4wr1hqo$@U`WPdK
zKM(#iUfBmnLxRc$!cH0x+2)|ZI~44LRAi1MmqJbMPU7334GJss8BP~gC?JqE>I8HD
z4xBmg50kizr#bI0t!{sqURrc_n`s)d0!+IQBT3M=KfHq4YXA;Lk?H^tiRmnBOS(Ha
zZ<Qc7P(F`xtM?HyZiGFXFA|~6<>Z+=vxx8;QAFmdFS6v9-=Y^t%zn{;iCo?W;)~l9
zA?T+eQmVeUjimk!F7-C<ytv@)IL=5L*P(!^j36fP9fc0$cm0fyJjtPtjg1+4eR@Hq
zR~_BOc-Hb7%xK#u2=1g2zLI%zWU+~37zCDE(y~%g{|>=4YP!Khmm;rfYX4<XEu(es
zn=`l7YCq?GF-m6#a<XsQMsu5LXfl<w5%?p$|76uL;=Pkt0&(=yVgj*39_2$4;kvrI
zj~IHz-~AG`9s?u`LIGVV!ocI=fh1D_$JK_Munayl5b-4iOr*7AI8t<A3oJdFUHJD6
zVIH+K=gO~t^-VmCOu8Pd_{W~+@mK=Urr+ec%W04biveU@W+40Id9k+@c9a6t)b+H5
z-dP?hvUEtdI;xMWmjGq&N0o;e!gM?5a0FNWvULw?y2*~nHtf;xKT!LhKeVgRSXa=(
zql(rf>`}!}<aT9b8hcjJ=IkjL93vpCIha59cjp(7T^N4urI1no(#rSGE)&>+gjsl(
zRc23eDh{r01KeQcJWik{h|x3M^R03{jsG#V!j&b?P7A*HkDLO~q;!hEzrS8;^s1E|
zJo)@f@F~-T@w7QAFxL+@w~is-K=i!QnA1RZKZ-IMRY_*FfeO%%A+>9!G`ZY!u+Go5
z&E6GV(?WJwYTEP!toy13fX;+H7*60P`WY}6MjkUAq@rCr166k*95Hk#+>i|oR2q=_
z*5;}1X7=s|QbHz;<dniIU)(_Uw?I=ex8$9Xd;?U!XG#%tIxlohPzwt}5pgSqA{n)f
z;$^m>%GVP5+ZPx)nA<jrGR3pNc?fzLN_h)#w*UMRujuV1GuO-0XNEl;59Um4n1PR4
z5#t!$kZ-@MGeVN(C<X%Szz&?7$~SNBV!Xq{elKuLXz3!2sw|y?dgN>*7(c4Dgj}sp
zH&5!Fk=~3+Fb%7(rxAh%QKYo#%j+bF`U<^460kd`JJUcAc=tyzF`ENb0yoXHorxZq
zp9_6(8A9sH_c(N-Q3!IG=j!nWBk_zRxD*x<C7%_Y=h3)omiVdJ`~MTiH#Y19+fja7
ztijh)Jy_%1^nl#uA<#ntPD^Krx&QLvh#LPtjc2;*tLCTnz+v3Z_pbNhhq4ocdaCuy
z{&OseaB}AFbdtL0K$?JsLGNhw!*!?xKZ?vNY&^F{jpdYp8n={B?s+T1Nc5;`((|uC
z5)mKyYiX000wf|#d`|QO#C#b}yh?x!!%jktwy6I?te#atOl>76jNd8f(QTBcvp!E}
z<ILX#){s648D-x@{}VFe1cG#v9Z7s?^1+f}{^gTve)*=0<vOJAKd2uu``6<*Q^3jp
zzrsX;|2~!ZKPJZe-|!%_VIq1|oU#Qhu^TcQz0{MxXQCEh4R8#3u)#n>(wqEeO88UL
zj92%ShDdJ&RPRE<s7OyV=^8*c&kjP|g1ERzm^QhVnOrhgmuVRD9>9Dl)V5W?lz@1O
z5$YN;{&qq#0C%(@kSK@@_dKDQO4XBU9%r9;LOBr&#KLz#&X@4$YXQ^|g#t1E1hhiP
z8M4jvAnHgs#@A<WObjkZGPszaOY~Nv_OKa8_~VGOsf|<=vrUPJ&RjlPhPWm?ED;uv
zVDIy)k+(oZZ&M)ivkwTExmbB9!dKj47?lpd0Foy&|8eU_FIG_L%77#km1f!!?V%Af
z-e?0{hdQ+?Go=vFBb|ag9jL9fOlo)1IS7!#p`}f!IhPOm+8mugY--ajZ04^l2l<ox
zvSUc!nw<7p-S<DY{&&Z|4ymD9pnwKw>vuL57KiDW78G6Mts`h078+W&yidoW0Z<X4
zycsvDn#!~52IC`<ApUduzx>CTZkt2)jOFn#dQzX&n<FX549*clh$9&=K4{r2z9LX0
z3*k+-f*q~NcXD2YLjK{|U;VawtT<BYUVSGE1s?Z?no|>J@?504^Zl9_-1)hyZ8DD0
zTTvKg;~a&-Zes3o88*G@HzeeH5Ni@wuamV^KVy>}iivW%x>V3(!{+-;G@&X<nkwus
z%1c>-jyQF|W)1R{hV&JiFwPalRZ5$KizR87bS3h164YehQV{FI))I2kgB>mv$L-pI
z&Zv~$sVBZ@*rRBu#;v3cA#8Yy$eB(-T=EKq8=jA2Qqq-%>zF2-pkBE-*insYwV}!n
zO@K^mn^mWLM9!f~w?^dg&#T1ZpwU7(;&WxHzEKAWAE|Ug_x$@O3=ls9L!x9OC()_T
zhZ&y$<9U?+5!>tEKNm(hB<!pOk_h^lNc3>pfK5SdGP>Xh<Vg>-Hi7mK`gpNS{}r+^
zIv<m8Mu4BhZ9F6CK61&Td1^RI+Ojg1Tmd>8y|d$AfHz0~0$CZEIGhhW@PmJTPxsqg
z>UM|LS41pbOcY0`-D?H$S_H^GYM-DyMRfd40XfUYvuC-_I8XMS8l9{%8sIq`RT^z|
z5tRnReqB^K|HJGFewb{WJzKuKN9Ic#@&7SE^uNIv{lB<GO;*C9Xj81ZdhksMr4j&m
zwM}y`hq6`dx}4GHfLGPQR31-kH^yAhrb-i;k&xW+{NYUF;<hy7<X0G5F{FQShP26x
z;gao~IE8OHs4}trJQ(Y+>4$U^4W)uT+238|rAJL#Pl4s5%$OF?VGk}#bSaSfPia^)
zN+FV+O6)$7ln4AZj<2`51LM6-0XLY`b*+x5nYQK)YLeIkT@{C&<c*RtGi8~%{VEV$
zL_yCqf-iLu9vDR?kpS#EpkU<l9N5(u6dsNN-bB?xTK+UvwK*jc*^OSV+c{Y%RvHk7
zD;gaQMggWF_~bNH6t*Mvp84HFO8vL0xm<JPUuD=7b>w$JAH*VYB!M<Uc~2a$<5I!s
z^ED3H3rzFGi0`!P65VQN=rGdY4>nLq9&ZR~qoUz4u3o0K9+6m43V{~f0dd79YtReH
zwczePu+^xh>%V3)5o5k+uAfWl{+X2i|4B@z0>jl%bwJ|?+C^yLY3LNp0#_d!Ol*o;
zIYVxNuckNE@Bs{HiU)e&%o8DqIp{emors4nC-d|Pr_;sfBk?6^Vx&}pDyiQ9?|e8)
z$vX`XI!Kn9Nb11N5zrr^0kZm5AQlPv25ul7x!%l|P$vswP6f<j8bnb;<fmXIV6J#z
z&``!xLsqoic)<_9+(f3Io>0u&4%!M3#}PU<$R?0Ko@6cIG`FL=jRKqyuhtwQ?U}`d
zSrCD?m{JHHG7YOdWPd;))#WRIm(*l=WyU&a&ua6a!~6QJuduCFbEK5tkSek=Sik|~
zfM;>TAxhpJSi0?2)ek1>Ig<v-1u{E!5btQimA`=+n>D@@p900RpDEPwiweph=^(-l
z^pt!H`eH^zMc9fp=br!c_VhJL_PuMviCRp6DV})n+weXgu^))ugj^rON88RAZwM*x
zLg=xM2<lLr6hgEU#8D8b7|{rUU{lR``4~Hs(ClYn#NVQD+!5^&JN)Je9>!slbE;5^
z;IYz8mNqh^^K?GYVs<&lH$h{ud*HQn2#VTBJtOgZJjjm8h9rFIf;IMgaC(~k8#5U6
z-jYA&FX{*Bs)QG?+B)@j!rQu>YU8Ke&uhXI)R5io4q>JysF{2VNd-IRqhR9maRop%
zXmr6TgzBBJj)bET+T~&`sPy@rHBLig`GIk#SnfJwY3E@@$x4~yaUPO?%N*aJBz@JP
zq&md-noG$ydwR9RgNxfDrT!Qyz-0)<L}PV~piVR#3(FAUmY3fo)KRxW0qV%okmS2$
zJip4bU>4>~MmpE(5hZH!xYws^Ca-@ww5H<ic8M72yjm`|1LI^pu;%G6yHT!dLMV8m
zaNzuy>h|da(X-n05LN|n#G@KJ1@dxmh<9NvlWpqB>JmBzB826MS<(viH1m8hwt=|^
z<2iS~YnOE%TB}>4sZWnifG}hjM9aolIY)0pa~KdIFe4k)l_#C(XD%$3eFahD@kjc*
zlBM%V(L^?opZeXyG1sJu06;YG6eRAY_tLQcAV0VZdNZk}1-&KWF-&>DahXCLts*5v
zVLWmLFElYd5C7cEn=n6kEG2|qI;0;<6BF=YMsgI)^2i~CXu%8|bqSGBkbo=u-5-l;
zJq&U3z|v%8u)T?z3Rn}4J=u9GK@F#byJe^tXi5iJV}@GV8KFqAR1TP_d}1648$|5Z
z==&wUcOeLo05R*n(lyN`f;U8DFyQcKj3pkpP`2KhaDSYMwylJd+KxcR5cmuK#Si!K
zWg@5`3MJrz!N~mL5wQ@Z40NrIMBah5Co;AHbl!4dwZLX}6O0IN0#J&n1C$<Scn?IQ
z=s<+VJq_7pFGBkAW?myBDLv1nofebh9M3JyKibGhA0h$yC=qR<-|hM^Tec-6s=+u3
zxzGw{;{*(#fV&<4n-QvsL><s69BC&&E+GPmn}I5{J6^Dk`Ey>RL(yjWiN0q!+5OJk
zx5jpl-(Mn)_*7uv22jRR1_IKXh>XCPuS3HG2eM!yomM6Pckivi{NSyBy|+i(Gv1@n
zVJo+`HVB+|!%=@nh=c-ZG+Hs_O-sa&pICV!*m%09cPhouz`y_!<jdU0lelXs@*8&9
zZ9xll^@O^+onZ^wfL%J+*w~DMs5Y?~N4L5n=p4^vL(G&58dxeR(*fAAQ3``0i4wG1
zZ3KzRoYduvX_FuEBJ^RV4Z0Y$5xL0Br(vnt_ZyDt88Cab6FGdvQ%0VQ>PL$Aq=%$X
zw=n^+O$_-ts6(b34lLI>>gnl?BUTL2>L%Y_&t{3TFgfPT4?tmE<sax`Y>)?&m`853
zABj!Vz8Y;EgS>pSn3s%_Cq8_M_6d36$#MNZY4L#!Mp=xBG~*$|IJrC2(k4o%#;GJD
zB`V-RzS-Pp4~8g5bicMlaB()QAwBlT^nluUXb+(!q7pojaW1OeB*6>PG&Un8r4RiO
zw^7reTQ_@?dMepQ6umv*(E}({;x=p<jP=8?`IO%L%OKW=#p@x`EPl<AVfgQK>w6c(
zY=-)jb4{W<H`9Y53+rmZJZ|14{M*SrD07IU5S_>iT5`tl@K|H7j~r;V;+6S*7e%51
z8;%_qSNM26(<2WtFFiM>$6CFt_2Hj4a+wEm&GhTdX);FAtQr~%{~QWAX2U&lVBG5)
zKbfEUD%(hW6pM!;;;BqPqwu~}h|WmxOCbW9+Q;ex7smmn*V;HcUqt<`7*z@TC6ir7
z1S1pz;$~G>3rR448flVwPy7m^x{cK015=(dzDvgtAGsd87+9sltcjP-ThZ;@btDf2
zH!S@Wo$}TynIW#Pt81ao3{V=gK&!?O>C&C+kwtz?sT5DKFu5F2q0fYOfKAYy5jgY=
zv)OwOH4*#Hsxim&FuE1iB}UTXGnJ&1x<eB!q5=d`#cJQh6*tak>WFqHH9fhBkB#F+
zUI9_9j=q%3zeRNZ$WId?FN4N1h&V&Yd%Piduc(T1DS~GEE`?AE`i&iJ!6rxPM1S9?
zdE9(Q^WYhXONCIuBwpWy51|wSjn>b*cYMGoKg^u>u&l0&Rp%7XjmbMIoJeHINMnj2
zI}U+G@PZcWHS*n@wAWWp7%+*z!!>^(f(TnT>=92I&Sk<&9KvE}65AmJ!735p15-7J
z)J&q<oJPx&Las&<6*@s>5gJ+B!bt4?^n58%=b_(rKy__xrotj8@9JBenYV8ch3#C8
z^@sn9EW2)%Z6@B;v0mWeUw*+-+Ta;bEczRDJEp#hq{KU9LMJwXX}M+U80is?z#!Rr
zHLgpN4iaDRON{8dx@Od7XJ8cx0zm>=?M(EP+X0D+dOz1rzg8FbC+Qla+?`Q{{0qL1
z;yZcij9MrsB$>%nhjcZ$xq2`IkeQl76|KTJ!8vgR%A401X%dN8a(jz45%0pszwMWJ
z$xk019D|tsH?mfoiDHhEx#e<h(+H;0XG;d4Id>FvRUIH_O3^aM5t&@P@AQ<BG0hy?
zec)pOk%oX+D8egjN<#(U*$`P9eH0=Gf!I-q8gJ-eGum%-z2a=eIk8fY!Wx0UxaLKU
zzYvbU_!w3y!)!929@B?%?|YO&s800FWVNmlckG}3bI=w&;>=c@mds`efjuWLfKmuE
z9RbBj+>A=O1F3fj;t0qLZj;ovvrw}hpurvJ36!B@ISf1M0$F^`Fo}07hnW>A6D5U3
zocL@dOLb-qA`5b84(9<1NcM_Ary6CVejC*{F<~WeF^c;PD$wMIs*k6GLmAo=7+4W$
zjDFeSXem-Wir6X=J*?V+$CN_V-@kRbe=7-ti4=+O7m6B_Y?#~<PR}HA))}_x*dgIS
zBnb*c!;ykvh+aHZ6BT*`L{;u^i|o89=ZXqnldCQz8B*RWCPNby^YBkgBZOBzC0f;G
zhXgFH3FSH^Le?Txm?L*2QH*S8BFrJd8FAFaX2!walY<90bX#<?^AG`vh-?PjV@5)8
z_Z<=znM`)+4nSJj3QN&1UJtJC4ikcnQP3QmrW9X2h&G5M2ZD_fFpQ3s)QyaDoP6)*
z$&OU{Gbe82umu(HTaMfx9@bwxyUlJ?LsMVh3bRG+@8Nc%8a$j#Sqa&GRz<|^-FYwQ
zs7>t5jx!!A=E)-bCR(d>l&f^y+$YF8FD`LEua_Sh6!i;^1Ie6-Sc$AVK~RWFmf!7P
zSXV_G;F>~BK!o?<U~?twzZG0_mju+PUb77O-U9+tXM;(8jP!K=G9K1#Y|EHT6?;&>
znilUo`Fc~o%<*H&qH|8#)JCZrB$eXHgRv|U<ejax4X-dJhhVv`;VsH&scZgiltjwI
z38(^bLpsv`DZqF4^yh%-yI_!JIHe`J_3juKUPy9J@*ay&Oz~JHio|LLJ<A#=lK<l0
zM)Zi%#}0Hne}xRq;iZsy20Q-Lz?LT{mSNR=LfLO<YoncYZPvAEXCA9_b|qD+4G{l<
zY!Yw&{8BCr;8{Cq^hs7xD(P`cT|J)^)(~n7k(wT}IVV%Ai*JupEjh=2pe~vp1`mb^
zmf7|RIbHV4M}%0S6q3Ar$RXay9OfN{T{Y?e$4s9)lJSarq@->j<k%oB-t53A{MPVq
z7lNfor3-~>MWb=+7v<de3=#O9)<&5&SwKuOJ?W?m>p(Sx9t=Z%II4gzE?yg2Q(fJP
zWTxcaWf68=CaE>0rlA7U)m6{NYAXIC;)N1$qJ$rlHNUxo6O1m#9?7&9q|%s5hmXjl
zUG0f>?q<FEvItxNP5oKE<5?s)BwRVlGNS*eaVcdF)=lt7iSEg&KGe5u81JbN>To)R
z7!8uKr)<uhCq9{P3!_f_Cm|#k>gWmaEBQsLHo4Q2y(TS6cyX5QhA66lI$1mO-O<jE
z<N9~7OS;ps9>U)0*W5}n#B99HmW_s5s?~OolgAty*=4Yh0l*1`4K(_)F<lF8tb477
zL9^cuJA>xhHOUz`77d7Ysq_G^*7b^pB_@mswYRWo+W}y)e4gzFxE2()jO8*wFb{Zo
zlv3!D4?oO2P=n-YSixC4kKe+f3U{+UP1AatE`%x!OrPh>`}uI+-1!%+B&;MCUb#Ai
zri_B@%;?%WDMprdg1$k##4eSr&#cTQ=Z{Iku6jnjBj=urTR3wi#dY@6p5{DUs5Sqm
z-)&`oT`SK~z8h|GlX7!4wR2qNcF4X`$H-!L!S{WIj**ArtOhGz+a=~TN1nKEf--c0
zCp{uIa+!#_QaUT+7Wqwc-ql@Ow(!7(!QsCfe4OuiiXE@xJs3Gs``L)a^%UDTIP};3
zCTXG5>Ri#Ee!8{!mv<YIA3L-yMB-hJQtt~A9~IV>tU+O@QuVm{1GDAU7~z^D^w;Ud
zmj#9Y*n4jes)4)B{tW;1yAwGsk|?pdfERNL#8Amt!jW~iepOIdC4i#prw7NAlatS(
zd4RysegBW=6K$OLw`bH;l-_1_NqqOm&fe&}-E(bK3@~osGWh;3FH4d6uCA^tn;i$s
z#P*@l_w!$`DoQT1uriQwEVKF}Vk-uVEf5$)Kd|t5)wNqHm^bXp&RFdd{uEiLAN6$D
zt?bN|dmNz~<ll-@-jsFgwy&6%duBQAd9FY%PJwL7Uv2K5p4S4x&?)L2s%bxLdK4PE
z3NC*7DPS~#j2pwvkI&6R3GaiXq@Q&!NJ&UMgMUo*9I-u2`I$nYys1$>iw0f??CpPp
zM#{Qc`7C(e%lp?o1p@X6osAG~%oRYFBQpP;%~n8hV7b(a?c1{$H=c)QD%81ePsm4+
z{F^*aIg#CNzZ&Q4nf#88`L<j1GrmKo1bauveQs`#S)t|DwVkU=I&La@iC9Xr7|WM0
zf5Uc`KneZoEoNHBk6%E=trv1J0rX+|HX0pKbdovSUh}wcQ%li^>;<ylKT)WD&CyLf
zP$f1l?i2)o0_7*?$Qq<o%UJi09BI#}s^|%M-F^HJ+kE?o-KF)7((-l9ht{oIcl_`-
z-5o+aS7v<tw`jxhq0EY<@71b3J|_A6tbl-!4R!zTTHnekDT!bTvBJQE2M?aWl?qfd
zzmvRO`0#{jRY+BBf4>99YTt{A*=siik*yfIly!d)YYNXaW;=aP>Xt*8IXSy@9-cTQ
zxBi%jlGmov;?1`X|4<s3g?6vRdH6SRT)J2NymYCvNJ~e@WwgS2^P-E}o>}uVhcEde
zJX8Nes0FpXIt#;e3ZDd%YcY*&23+RW@>Z)wlIO>ZmDJI745=gcas&nMC-Ie$m&nXM
znib7;9A~Ab{)p)Ti{nkpWznG~=euv_24!Coeji!b;G$5ecstw1Io4B5b)v)`$HuX~
z>+r~t{rd;U&x)31-7>0>Gru=Hekp(DPS4>jeq)EyK7JBiZWEtb^X%C?G&DZo;h})(
z7WN}OMw^x`B!hjQK7ES$;y+AGPBL`tj^C}Tm1}aFhhA{Y(Ln4xI`6k2X8Z2D@AjaN
z#=7<EyTu;#t^57QA4)liy{iNT1z%#^#m(?=^b-4FxA)jGbb;BgrL_#mlx6UJWi^}R
zYz{y3q?JL5V(p6S3}#lA99qqz+GM^V7Tew3{Xt5~!GasYpU{_Z{f-^Wz-O?+4%M^d
z^_%ZLyPN6Z=5`XoD9oXI0=3kw;NZ(R4WGxxVt^1_xqf~B$&=9~7fz4etz@FAoZJcN
z0|MLu6-&GQ5)w8d+FcAJt5hmKy!=Hq?ai&85P_;X-j$IfewP1UL)DC$pL#>CT<ILS
zxZdqA%-f#*vu0VxyZ@NW?x68Q-@nF|Z~FE>{p7sd{}}%+cy-R#LCM&%3tkBPYx?tr
z(|-S&+5G#qC;u8R9StjoUzq*#KmRzv&Z)`qn<{bm``BYB>BT@<QPIx>TQ_Y=b(@O+
zMbTqNtmb9_ZSx|=!#s~xTgjj&_aCTF|NQy$l>+b|alf;%n$``EQDb|34{XqLCv@q1
zWRdgwY&Y%cPba$SqH8y9-u%60;xaPthLL<)8a>J`Xo(-Nu-Np?@2SqtWR+emtb4=$
zZ^d1CG*x}u-h@u32a$@9=#dmMBuQi{Au@#{nIeh^AycA4ri4rhA#;i{Wu`%qDP<}$
zq#klIr9tntd*5%Z@BRN<>udFgrPDcQ?|uL7`?{y=qE}ZhGBY;jsi~>)n2FQQo~6-L
zQ4Hqb;0Sv9^dNvDH@VKY%Sx5wwvqS_OUtz7fx{{)c}55Fj53Rh^(I#)QrD_-NJ082
zRmtamr}DHPNW+){0|S+O=kFRQmYbikds)=h-xs{)UUNC^LPA{JrT6bo5cS|)dsSd6
z$=COE7dWqIK=P{DM@LYHD)sa{eG<LFk9{SAK;h9~%u(0U8mQ7HACjFlf5TyQJNxAK
z-4P`yC$Yh`DfrHdft@H6)%$uJ6c7VFefhH7v)m#ZG@NM-L%bvth{M^$yK-F&_3_%-
zLw*^yYd}yEqMhA{#>9L;=i-G@r(SWQ9&I0+^HxVW@h5g!Avp2s({?xlAyH9A;K3$R
zi07clb<I;hfBrN#7HZ{6KBor-9}$=I{ec2Vr9&bj4rh6Qf`gtwD~u60T&=Iza%9Xd
z{ax5sbH|MxonMaF+l!(My^1(^@ZdeSGp8jXo<2N0EG8yaAGY>y@+MlC{;^?+r^>%A
zM1`F~C)(3kR5_Xx&5Jb8oY?{QPaZ%Nk%{*9cAM{DaD>|V>&tR3{$TZDBq(fbEl83*
zn9duE^Wen<LGJl<LR6)iZH6n>1y#gNuqK=_Ry-jK(<c+Dsj2rorj8OS&@Zo>6@vXb
z*?$w<&S}8X$v#XUq%M3hB7z0BAqBGVLi2KFa7=u|EV@`u(*8hYuwI*2<rkUYn-TR-
zo@lvloUVTY5^=i)Mb23J-rnA@b2E5^?^?@C1u<2}K#WaHjA8|@)a}e4`@2pan)_S+
z<5xL(ctmS+H+W`G|JT_V{&_=N6v{T&z{`PQwpAnwd6lsWO!BiRvu(k{L4uI-Y+(pu
z2*;v<rVeBuO}Y^+L?NB1jje5GsjU{!79H$D0feCs=6cTSxeV8AtNo3#ARPgH&6cI(
zez2pkCjc7{8fszoZtt-8*u0dIZ;SJSqljX1#_q^G|K34oIs#Wc8~A%E5D5xpaA;^`
zYAOtEk`LfA+zW~cR)LiGc+mtyeP~7ExvJRM2*W*Zj(hg1#A?5U#Y0xyL8iG~m*q;>
z&LH?I1pHJ$6q5$gs`rHpYFpzP-n|n<lcX6@KZSn*{j#CQ7kH6lTD{8B`m5~Bz`Bu<
zkvE{w$nw$OE-pR`f=o6HaR(z*`7X^wA}BH$8ymlL$~uryk86-}8&xNJ12NC+J`Ppy
zhBZZC?PyAA0;LZ49ttxv*E<$wW~ceRu{UozcDl2rk=*GbTek{}iBWbXvC`4ey>zO3
z2#Tx-s|i$3o_|z4_MqdmPb9u<M8wpooQ%ydnM{)du$+Rt!a{C>LWERQRGbtvH8K(r
z0H?MHQgGQf>FMc`Gj;Cc;q6Kg%VM;$vXV}#HO0PTmaU{!t;9^=?E8!DKhcTYnR7@-
zhr7qg^T9ywG@=&<+t$v%mJ|_D$7%p4f*2#wh*YCMM$mt94CP<lTbCwk%Q||&o7S@Q
z`O_!Xhi<@z^n~^E8`~6@Qo2oFR<1J=kCzHu@w?<xT~R?n&fYU{nYSbie&w;xvvKzk
zC^9j196ERGNB^sxxqE)?hou8yWWJqrB$XcKHbR!pdx%=;t^o|yoz&jec34b8Le~2h
z=u8+YsV?_sIy*aoTOH4)E>2#{Fa>F=Mq96E?aaG6NeqEzb<%*BcE9nmL@j&^!2#!y
ztTWK%f3m<?-4<i?^n|K-JhOOwzR%w`$V2gufEGg4+s&Y{54mz>6@lXlPBMocTCmUw
z3{Q%Qi{JMi!Y`2rMWQmzMcnh5J1JpVWi)AX_N6q)fB2!#^JS&5Py#Yww{vn@@BExj
zll!4<i;o`-HvBFYudM^IQrw2qyXrux`yNSCXSG#^KAs>wwt6-Dj8h(4@_}|AU&itE
z&ulofModC4%s_cV1Q~7MdszE=(DDt--$+OhR#Y^1RVKlShleaTb7;eNc+3;%;zeqP
zCO_{Q-zq9<jlxOf@b2tdFfS8C7B81`p7H}@A3_Q?Pb_rzj!jPP{=A-yoc9CCF#VRK
z2n`zm+qc}OH(;O|tnpb(aPaeAOAlPx0OQs#=*3?WeFOw3gV{0^d!q7t-}U#KBThs_
zFJX3u3%%uC`7Zt7>2U*XEU^$lfK4%@uuz8@v~%xXK8&oj*8TqFYG-G6(@0ZaKc?bd
z+SUqb>&6f!mf=%%ko?&xP>sS8(+}8{gS*8-sfpDoYQ<SPwAgq90XDaR13Tkr9zr4w
z?^DuH4zM@2RdD%u#o5gu)r>|sxLs4j?^M1~JDUp(Jl+_|rXxTN_6<HOvbaR^FqN-A
zGb_stWO7R0vjlwQ=yFMZ{(+Mxw>CC55<RQq!S&Z`7XVOu5y%T|Alg4~WlAN1j>LBM
zC&t7C0S*8K!u_uUj{)Zo(e2w=z%0f{P;31*fUw@hNK;jn4wc?D#O&;BJs7(6j~%06
zd?exg@>hE|r&z!~COSWu86`Lfl&x343{|*gb$)3Em)H*T;+>!dxI*3e1Vlj10qYnV
zJ_^}sXfT51nyCNyE-~Swj77p~A|N1ORDN=V1U^n0=3ezuoSk1H@(g7u!9x5HK~nNU
z(S&VLZsF-NFkbU794DEo;i??RyKoffPD&~Vm$)htwjrURVdK;qZv%&9BsSKl=i4Y6
z3O4aFs3M-p-Mk`12?mgvLs2ne*drl1vth8-DSs$=iiMz%v|UM8%!}5MN*y@^6>hd!
zvi*G_M&dlk@H{3KzR_%@hp_b@=@PAZ*osfrAkWCg?ECXhWi9tgD)fswlU%Um$tF<x
z8}7S6W(Z71Y>Us(Ok^a2b8~a`O-xSSn=vpjpeHg+OO8h_zN_*)EHMc(C*QeJkIMc@
zmY|rFlmWZ9x|Lqj=5dq8R-4Q-JIt$Uc(-vgOaDUWIYs9PiCdyBlHl~88`Pb=kC3)T
zDlVc}8T#OX4DlZ1;V1jXai%D&tm<A~@_zpQv2k&>U5-c3Fo)7lO-&I&Xu1CdC*PIS
z{`Tz#l2zb^c-t+rs**B%3UV+y0wy!B+`1$7;60ZiMYo>!STj6wX}OqM$)&8Uthj`k
z<TW5yT1D77IHXWrFI3AT>~rw)t|k-^AL6D=i>YfQB_-2-lxgW8E$7EZXF|Kj%E}6q
zvi1?O>+M;3j^vesPL!wzVe<Qt5$k(1VA-Z8z}k1S{9b1H^T_CEEj(V`;zUiz16B-y
zX)7zL+$;TUl@fv2Gx}vuuHzqYvF}gFH|#%W@!W1#Rumjg3rvh4kPxnyb>x72QZ)3d
z;aE1t_aR1g0wOB;edD-z@nQwY0ZDqotgo-K!M!}Vf=ZN~)EN~OVsLQq#m;U4v->5-
z@AyYezDTl_DypuoUQg5lS~pZ4$;!-Ro#5f(qQAWoL1*~pQ@{7uu{FqLq+A9SNJN1+
zhy4Y=Qxk`c#klVl70KP~Lydc3rknkfKN|7A-G@ZDU=piUn(9UM16}0&=dl-9KQy#y
zSCWojWmQ#UZ?AD-^+`Qf0v08G?7Ui`@eBt1bc^HUU(T}z(b7|1&&XI{0%r}y;@q$+
z>FJ!z&YZTS6Bh2$y`ZdNsQIv^wKWs<^ka{G<v^Pq22W=;I5|EZ3Lj(*!04-G;{+}S
zi$P`o?_~{~7g})zVHHEbb(c<wa;<?FlrxR9c(L)Q|AO%JxxysAzL=O84*osv3@X3w
zx}ofmHYH0Z>@Q1a8n4|um@j`K!r2yW!BNNV39MWK2>32N0uS;R<(Cv~Vs>#+{#aB&
z!S<lmh{#i`JL0uPG0f25S0=}kD&K5A?lslbGNx!2UjF07>v0k*8+>lzL<;344({*4
z0CX62o^KHnBEX%m24o1hM5cCR-j2i{grXrOC6Zw2u$GF(?9SBzOvpqH#}7t|Qi2Vp
zM7hE=o|lJCFdUcYG@a;T7vEqrUF$gI45Fw_nvCaDvMN1ymCxibb-c7Ma+mAAakH(v
z+i+0c%Zbl<DXFNf8=i%MK$dAPYenAX`<uv2?;m~Gq{8`pXwyEUJI?0d;NbE3H5=Zt
z1$sUDW@ce10}upS*HOSekDs)*w1jz9deel_3miW2onlCeM-Hx_1<RJh!$1d2FH@~^
zxQo3?mZyG)n3$ti?ZkX<M48sg_{4;K((w!JR9ivUM|Tox<a?aT6&@9*r0_j-eHVpV
zjFGW1k{s0{6EzM7cwMls#kG}|fm|<a06Z_8pWmdKp3^)xU{RUV)6ui-fcb+@pPXoO
z`FWi*(ua&G{5d-^!9ub(&wF58YII9Q!syso2&ms^lMrXbm%VzGf|yqS?AaQq@vK+!
zmI4MmX|kz|SEWm$|4s+oumqRULy_s&V5H%_DaB=FJ%uW9rT*EvKT4N!)@=c&6KAdi
zg`M4H(eb#m<1^>1J9iimbBQ2;7+VDL*||A2JlK)3u^yoq*CU1@jvbdCqdFBaKG2iM
z^IE*`XxZmPxUZ(<H-At2`2JY<?9i0VK_*n9WWH>t#m&qJG<^}Zt%xtsjNF*k0TdIA
zmKL91kL6ym*QqUD*x?NaN^O9%+wC%l0fAM`TK>8tGc!@>GSLy>s*gtc_E9I-q(IvF
zwFK_rx@n(SIIcpONFmBMw9;88Y$I#CV%o+>g-xLh)Ce%WkfVF>ActVxZwy7HSYDPZ
z8!OM)ccn0+r61+8AY`M-#tEXx0!F|YxSD`s+2(!whQ?~f+$$@FdJb47Nc3$~Qc`O6
zX@oYB(}(^yg43KdtV=(#*8N|p%;s|Q$nbDxxY-YwRlA&+$crbxa|U~=j98Dc_Na}I
zk4N#N8Kbc=$;si@uX9NUefzn5jtW9csK{`2?>;ZmhwF_=OJmD33WtW|ZFF$hOp12D
zzHi^wJPpEJYvh%qPfx^ahXQl~d^gSnA0*y?`6AiQhson~8<3Zd{%nR{tpF+_d(J2D
z8>TrDz+ml#Iv9nIC(Zu&arWEFg#Ygqe?LeeBId3l>RVbEF(M(C&+6=$=d5-?@hVo0
zaT_dCtBpAr;FE2T1|yAlWWW+$9s=6Ehyf%cH+Q=VKoD>imqGK#*Fs&4ED%A^qie&R
z#jjtv9+?)I+n-gh5^XC_fcOI)f#OuBjlE(x>Q2N$-DHl$@FCK^7sF6`$z1mpEgeAO
zaLF)rdK^`6Z*L(H5e97eyW9(Ui(nZW6LZ2O38{i65GP0u#gtuUCMGVUNW57_X06IE
z?HSmXtJf`TQZ?YQ3MIDD@GOKC6xIU*ZtW#gZgi69^!HzPhdn#?6>k#ZT7#c1)z_<l
zhjojR5<gl3(s``TxOz5BGB^_p7r!I<d}_A~m0Bb>LU3-7%WB5l!xa*HCZ)@LXC@A)
zsd4i0ZO1ImWO`F~_gbzn20cAJoR=n42wQ%U-VmGGk>X7o%|G?S<=&KWU=R8}CEM84
zv^lY@W$wfDbR<^MGK!1YQB!?za6qD^qobsO_W<ZV)gW&%GBLpvrY?MI`;j9@SOt{U
zTlvu#kxTK7f55>YODYSh1_<K#inIrxT5>58#>M51#Y=E$v^LiK+~r1+8*-h+n<&y=
zPe=c`*C1YMNmRz|P}S382N&S>IMXA4v9PEiwYj8K;yKlmw-&0j$vR8IC>LPhXcHuy
z)Br1kgM()Qt+GC&x;l#k^8uqDuT!>4NpXM}SE?#%hc$**M!6|f>KYo>n5khB{PoDo
zimskSlcCM?ZeCuka7?r4DQ-xsBab2tZxBwWXNgb_+mA$BrLEAtkjxwuK!tf}Plj$O
zLZRlDQ_2OhhUbrEQJukA!+^}3xXPk_^cQs`Ih0$@%87I|2A}Iuw2O^An0=IN>8;=E
zC4mGx7RL?a)T5BS4XUfFGxOQIcdsp`8ljWZf^q|(KZCcgZzCKhWa{eis;gVHqTXYH
z&YO&9;#rU{guEw{(!PBLRO+?cw}rU5x!0#fBTC|4fmwO~D9ly^4;YW>^4+^)r-!O|
zfct@cw)S@RQ>oOLgoMj*__!erKo0Je{J@<}cz+r;Ja0onglWz(tkxYj28Z+PWcwzp
zsqs?Qthoq`IOe_wiEnAZFJC2}uMC0#-!cv@TO2-Y$p_#9H~;35t04XzMzlFzn^Qm_
z3KK8uApWGOq7uYtZnp^+qHbWo2_@Mm^r$n@W3c)CeR-MOLudu7vm0$xqYxan4gxUy
z1{AZUT!)nyn3x({TCx#~nRt15{h&ERe9BF|?F)8(A_z~B<VKb+W+S7&*>!cPvV0cu
z$Jk4dPUhgXs6IEz?z{NUsSg|9CYTqsq5*tubkv4~BPhZ=EdEo8HRB-jTs*FVE+{;c
z6)lw}jgf$o_FMZR@M6U9jj4+vq^<I={hwDFnwVThB7*`?Mp+p*hK8>f71+t3@T`Hf
z356W;DO#9bA^(%awSQNG@AlH>=bJ$+O%Q+{WvIDLA{}`8;zcv~wWT5V`=8er2K{&S
v_}?E%UKA(ip8x-PG3g)4KmSMN>EC||dsb`c{uKVBfOSYiPrdlSiQs<$5_)mp

diff --git a/reference/plot-13.png b/reference/plot-13.png
index 63e86fc121a61ffa5293e632045fe2c8111637a8..7e906d1ef4abe4115dd9120243dda6d8f7defcb0 100644
GIT binary patch
literal 55829
zcmeFZ2T)aMw=KF+R7^+`6bS+nl%xnq29Y326eI`9Ip=IZiGpM#Do9R}Gl+m>5Xl)N
zv&pbQ@|~+&|G!V&s#A4d)w}QAQ-|tqX=Lxc*0<(2=a^%R`T5F9i(foPdJcs`U6gnz
z@&tuC<%B|=)WJCoKN*hrxCVcm)_E*00)N8S?t=<X_~WeALls*TirgFd7b|FHT_1(I
zj*<|$uizBBH0o?e^mOmunq|3!p{~Tk=OVIR*4lT@y}X_&a^;!Oef29sB0>Q#Z|ByZ
z!XqPljYT3WM4RPjhI<Q-Q(x;;9R;3VaGa12wy^N_O8F`!x4UPr1Z%H^Jr8+xg6&@H
zVo$c3%xK1=agRO4@B}>J=RW`Xato{-#=^t@^Cj1OyY{ijpRehps0mu?KVKVil4}Hi
zei46{fzHYI-)}=iSo!BwA|e8QXEp!4ikh0T0h{$-FAEORc^Ubymo<ss`G5X#0t~FI
zm*_$zs=e?WTHlg!KZzKubS`L|TKtjhuRb13BhFV{?U$0ZL-PB>cdH+b;Xe0yl=9)j
z7yYaL4b-jNk4~V|KYS39SJ%^0S!Mlw$s6uu|M^8deb${S<BfMh7{_k0r+Ikt&+-L#
z{8yIi^7BN7fiheAF&8v*q1hmTwzf774vvtB2zE55xgUv^8-9U7``6}BdMdB)3Wl1R
z6a)kWx1H9Wjd&g(;+#7tj9KjMDl%1aJ6LZlwOa^DaVfW3I1$>69op<gBOZuCwHe%n
zSFE)#=6<jkEr(Zp9Y5N>SGoS}8kfgG>8Oiz9M9{WaZk$jn0w+gE#a_8FAU?IPn-5-
zy+~vjBF%W{PU*gd4{!Q%u{V>3fdS_d-x^BO9rM&|tn#Ws!Qe6v#s;(a)NQLv+-WJV
z5s!f2rH>EJ*3uy1`ucjQJvu_o9(gFm$FuD*aS@n$>*;_&GqD<vLp`^hF;~_c^|B|6
zF1?y=>!K>hmCl<Zs@u)<31O{tH*Rn-r81n`UL6lYE^m3bM7+qP7kPVc3KyJLXD)q<
z<}iI16QedH73_t_#sc>n8%q}1s;93%$dnWwKPRC=sr5S+9WUG$Snd=&CfXUX4MKfb
zC^8#li?oN2@cHsZDAFFYI<5sT<IZNJqZ5medGv@Nl0}2SezC_|b#=Zg>2)H5Fb>tm
z=4Qi}7boK)EC=(Go7&oXdNiAxn-iaADzcPhJ1h@T-@GXyALk-RBzmw@b8Jr<S^Es{
z?Af!_^z@Cht9{$IOzM5`^V`0?y+)p+mOGU;f8;Q|y*$jhKRM}5NnBzvYLi>b{tMHu
zHNykzoa$U=+MhF6=qxQQoyTTSpu(h*FVd5vF|6<U+RMww%L_Xa-J4%SB$}7b%gZ~g
zUsYl`Uaa!%a#bgx%t6BM08SJpt3}uS`0-<Ht?ts)&j$bUUT%vKE_gKZ-9B}q{=^@(
z>)u3*hg*!4;$IT@b)7}4dZ}<^x;gZY<rtqb6EPpANB-CLuw`6?jHIN<&dR7pjwk%L
zbbqBH&#;psQa>~_biIit=viw7GfV5De$zWDr`4*R*a$hIQ~a*m^-5aq$-^%E)@0nF
z(b0bM^G0Qq<@V?|?)%#xO?orRb2If@Bl5>==Q<{P(&eKg_K)^gXSQI8@vmG_&T8A3
zY3<6@61+iAUy;Si$ao%k$9v;$Nq1~kyY~5RqNn`-P9O8qb=bL=V%Uud@(T*EP){=y
zYT;I`cQ^E>=jI;B5i$6^gt$;IvpE%W&+=Q0Wwr0b#4~S9wpI-VA-#0iDy;L{BGZ0q
z8k&=SiPr@MDe0wSg~qGh_22uGuqLXNSVXg=d+aZl1jog_<uo69wmMeT)Y0)Kk)f%*
zy&*@VLN-;JT*YDFv$oIMw+(MDUPB`E)Oq5GJq-G@G86m*yOKcDWr0@3qcM>Dp`@f;
z=}K!PYm!EV!-fMc?Di-@Pk|iGs&fT{7ewXWg@?Z;=XIEXponO-Um3Z2&tk-?%sjbB
zr{P>%f}mEl<&RHiA=+q%8R+TH`1<-9btRs9{<XNrf2=Y1E?oMT!=3RUSW_&9k<Lt|
zTnBV9*2-<tw@&EnlIi_2+qrUeF`O3?p>)kVb>5d8RjcKa#FPt-@H-L&gGNTw8T?KZ
z3<g}gXYuTC4`cM>lP?pmUK8G@<mB*Yk6Yf*cZBBiRsYV~D-Xvgge7T}ay9v#B{m_=
zK6<L;;eq_^I}C?uU)w_RI3xhhNQL8r%}$5bbk@N$*WX;CTv>BCk)EF3z|tG&=SKi{
z_gPI-j;O23)lp@;S4qoWIY%mnGhZFummOyj)1ZS7yS9=^5b~Y3KIUCQ0_)ehx|uzf
z?WLP-1_gBkdpoOIS#ghS{ZI1;(HNE(4HO!O-oA3d=EyL?T`|Mn*naZssWR!%<{Pkk
zA&ehA3Yme#w(!~fp5+)*vH9?<RrS*@_ib2h9wv0V8oSdXU)ScZKl|q=*UNryeFKA*
zh5gl<8U_2qJ#=oV$6>i!jX^sp_Ni0cOvgi}xgQ}$HV(ZhJ?3r5gM)*A!R=1Y%^5m+
zyd~whZ8aejQ*-!hDhTKN`2w}E&dy7Obdv8@BU!a9N=6{5ucLEoPM{7B57#$41$jp~
zU)4Tet=^Z`j1crZa?_v;dD_zv$2*hO0eK2i0Jd0Cm$n%^-Cm5tX%`Cdz_#~y&&2WA
zhtNDABp@&o>vQ?RzcWH39y2>Pr#sgXC*9iE*x0(zl_bu~r<vfkA;Gs^Pl!9GcJ;#P
zwpecY>SMT}qBoi;eD?8S4eO$RXG=SJUAS%j-RV#pm)W-W$u1iQA+(RDw;r=rc{MdX
zjBJ&R=Tnhh9V|F=_3BmW)|$iZ;WUNxkZv}J+pzABA3qxPW`uWdEPBbQs*<)D*ygdp
zMvCZOt=tSunKqJ@#naK%o!Nijja#Ok@~LOX)qO6`QC%~h0uS#wWFesv4BDCOGOgE_
zG`S=_wbQ3h|AdqPS=ieG{ax7Ia_Xjh3KvskWTf|Cfnn<oglV__VK}3b7<`9?x_R?v
zQ)_E?GQ{K}-}>~QTN066+be`Bq9xtf&@gG~xqppLD%$ICf2TsSm{^~@><sGoU`~*O
zxx3U_H)bb?BHp0NGwUuyaai~AP?0S+PyRek-OHCRb@VwQZc=-b0yUhW-p*|K64JA?
z&aq&8exxRNsCKhyl-qTgAHtI{F*Y`yAFa42uscnNdcD658O{kR<YV%Jik{_ii&37D
zO6P8iGKlqBojeq3sL=S8YLQ7<7B65Kbbqe6x;oiViDeM{jOzMz6kTZZto`<qN|~g}
zNdKTlJdX^Yz1wd%BS%H&<Ua7=62BJ)-A{Al1~$rSWrVvDYAaHXWwTW|yk5VaEb7;+
zgLq#GG%F$yp7^yswNYjN=_BLmS6CNG+25_Qs+Ud_Rz~2zI9+#49s=(i{nJVxGM&vH
z6l0Nx4{?Nrh4F}pygq!mj*X4o6v;!?U*qXn7Mp3#c$3OY>WSpx2X4caax}}R&UZA|
ztqe%2zt$Tmu~6{tU()4Mt#(Eo(ZnUZFJHYfr)b&fmJu9e-hp3eUAUwBjVoIo=Y>jv
z0a6v_hl&^ljt^{?M#=~wO*D0Oir>HgqWv+mpkNJ=+SJwm{nphX&VwT&-cWk{!Wyk`
zERlGZlA5Z!y)@|K>wDkHiAym@-MAz$F;Y?~M_pxe&$K6vDz%`XATGk5gS4b@W*G{0
zU=#K^Les&)K}hUk78Wcvwzk2LYP1%;Vlf_hC_aZvV~OUgOYx~DSXfx)-##{4PcwZB
z3nLmSw}0FpHOiq=kHdX9etc9iaM07Ez#Tng#GWXhDlLt6JwDu7hdl<UB)fvoJ>Kc(
zzjBMP<eDN1-p=W0cP<ao2@w&|1e84G3J2!X7fEkW_Js!rztF65(f$^2wIPBv`k{Sz
z+S397vJ1~!T^n6qQAp^>+#=PImJUpr;R{w^TDDf`0o>44U?_unEm0}<mUMD!p}V{>
z`zfHu>681AMZDpX2HTXz&+kGo*hY&8y6>^mNyjpb19qT*d|TJxPh!2lZ4Q+m$^ey@
zo2a-rx>9tgtbEm6C6?ahUua6f=j_<IZ_jRjfI2kamwj!vGa(2{tlRdWq0Ldv5hhoM
z=H}tSftf`S5{XjiCqxaieYgO<WNs$)C%{*G)k~RpKI2fk?!701veK)+DBRZW?~e7l
z2V_GbTnu)~dSpX(`7$x_o0-<g*2ljJ^7GfeKe#jrS%Bj0C_dy!s9McCkO#xNg>fXK
z*(ItedF;}<%ZZtkucz)~(B9_5#gmlBzs{^w?^}3zd3||yo9J=0W|>WLVa&702=9n8
z(ifV2bG{Uff0}~JIxkCJZtm<fs##XOHfWD-t^vTAt6T<qro~u%hn_iO{$zOJm|$_%
z--!`Qxn@9pH2{L9g#^zdm2NgDnp+B74#xa}er#7R{9374#k+Rx{0FOP>+TdO4rcV(
z#r-wu7*46NYddfs4<#h9PypyE22Nu8KcN)Y{T5)&eS(vpf7GDR)%e%$F4gVZvelh!
zZFXgCP$o1Y)@Plc{P=@;e4-|*boma}>TGy8IEn@is@?Zn7NEGBJQAxqKH9e_2XL3B
zn5}v<X)ECVtJBTMF1yak+Ueg#)SoIt$$bc0uY$~6MOOCt`c$JU4^xFYx%f8nsR9BN
zmQ@&H)EAw+5AY@f)$SGII(D-;6)VF2#LOrnx|r;pk+(rXk@|%<%zBd^OVNe4Vx$uU
zs%}j3d>XsteTmXRMU$UrFnGf%K5Y6=w3m0^sYNGkY;4>H{3+!-0MU}AoF`me;>h?K
zf{2QbPrVunN^19hC5vhy4#1<x)!yc@jT8VXfI`lq5Hy9<fLZSpjcT{6P$F~a>*@$)
z_+Df@%{;+SdAvSR3z<bdna=CWHOtBu0QDC0EvkZO#19S*)&>m|CSP3=c;|`!{_)i;
zeya=VU4wwwcsBiW$R)XMo9*7S|2m3qPyNI_^NcH}#Ymc~aJB2sip^e}<5-@vkgD9~
zTxa7@k*P-Cg74<1tiazbVj}NV!b$<NpY=!sEClH?PrL54dWFM9gMzC<+SIoJQUW#*
zh36j}ACHT|xo|;bbGF^TcV>0f(pIZW%k%K^#cQ1P5zK1S5BiBjYj-#2@ULAnwM}=0
zwKgM=o_U*)KnaiW)T@tcR^y+wPbMZNt^r7zJlNgj^j$hQa07I#+ne!p{zvk8B-EMI
zOTQ<rzn7$Ii{^M-tyOM!Q?<n6E!4Tzfph21y$cKT!X@W<))C8Ho}<+{)f5g7e|W^S
z2rg2&*zCQ)wM4o89F3X0&rqL`T}Ahh*M3oN^MN-_mFrGKcY?>>&7VJiS}pvbeILcj
z!0-jC-(P(tY{YWQ2hh?@ZvoWkN|&dP<#T>w0ht>skWw%ZqVs3Cl4h4eYU+OkkT2by
zSXktsCbmu6qdBC}?toE8GFWfjdIW%zJBt-*#-tuSvMJMmy%jcd<`TtHer1DBo-aML
zJlccx^&*q2tE&z%qGDp@0ZD~KqWJE6TU}(`US|o-#u)u{O2+VM#F~(e$;7F(I`t5J
z6whHAA>|I2%dAot{{0=*gC&c8h%63fOU@WkJG;W!ZBoc1MkA$pZk|U6&J~#QAuSWu
zs;!V&j7);S=xo(pmw5X4J;C2dN#xj@#>rhlNC@R|eCWuxzf=(2;{E20PTiY}EaF2R
zkPm+WvSc4sDs)^O<Fa2Q%23M9xp~^s6fk>8Xeg4b+gmSOWy6M8!#q=X4YB&!X<Y~K
zcZdF9^5e*s{lSQc)Ib^~Kumdd3r}`Epv8*fG*?Yuv}=Sgms_%=3q5=1&YkFpd!%n+
zukt1)C22$)PKU}MVNyFjKEBKq_x_$`eCr`G8Cd|V*aZqcW!oyai!q*m0r?x@mE@>!
z^{H=f*P$>^!h$H5Sde=h?HVot$b(i`7(g2-yU}w9#gB%a@$=t5p1k$+M{xxtK4+v!
zR4y>M2!Hoi;{r7d2Nzci0vL~w@YT`beiE<_6l21Ny=ihM8I^MCdoz{tpqVinuO<iR
zcn#J8o?;L*PKnN&v-2ZmcX=FFm{#Aa5nnicQebbMrgD48G>XHNxGziPm2P7o<VCz}
zwGuJ7tnUCpdeY<`^q+a=yvSvf438-7N%FaPm&Kc?FG!;|Tw<xaG>})`v)V=z#P<@w
z>!(kjnrbdm3XEjmFjH2(f=ek701#{vez_JZq&4su0G2+&kC1!Z+gf;)mc}4sb^^iY
zur%7x7Dn+pvJ{&QzJwq`@Cty8T6r1%*JD+#2=-D@QL*UFo^$@0{U=q=OHa~!;f>(}
zDe~uQq*0Ci4_Ac$UnJ0iuLY9xo(3@Vq-Lnt9K9@cGjgE%5979?{hx4Z2VQtzhwuOU
zbA$J}{*&MSuP|7DKK}m@;irdC8Mog{!arO#(>^72>sO#}e)sM<1;5J&2t%8g<thLI
z6U$caU*l|+ekH=QsncWo2=HeNH@QCEb%i@hlFn{*Y?KCr9u$iY>?KhdE&;@f+Zt9p
z`g3YZo9+GDw`-PR?2^=pynP=Zc<TwWaB~k1Pri$}Wh3YYDH1-~s5|8%@?5=r(nb*M
zP-c%NCT3RkQqpuj1xX#j%(s+s0)X_ILa=vBIAd^l_>7e^6*gpIS@?P*7s*V8jSwOT
z-3G0?n2AZoh=D7sf5Xq^ckaTXybeIjOtP=9&f8CYyJ+dH*#^H1FMQre={Yj|G0X=~
z*rF~}MqnY>e!f>sA3u{dzgS{_dwIEo)x07ZFz~OnNe0N$(3vWmc^DWN_;$>}U0%*)
zq@udtalBkI&fegN?qe=%YYL{}V3m*Vv=ygt-;%rf*vu?zxb@^0O3#BAK>~X?2=xXm
zBR=4N*bar}!^FpX{WWVf$A_0lSk&KX)iV=6_8qF3M?;;p=T-D?co|ABqf`6x6fh#9
zQ1B2+5gG@+wJ#@~7Lp@BoAll)5vYKA2lw+GD4w2-r{}4tsGOjqx?}v~hExJpyiard
z(vlejR@1iYVtVSMrwNMvxmuCvO6a~1Tw^%RV~?zI=A1Jk;gec0P;GwbqHkX6IV|-H
z5vh>h(Q;M{IlcrSumRck&=u%HfziLpf*&lCKD~^3ND2G&3b)M-Xm52Lk6xTSV>R&w
zt1X`YnphG(AhFu0JGwxxtA7i28Sl$h%kwyNvGl$_GXjmwqaF#|^XE5(*l8o<<5@z5
zfHmE*VW&k1E}&0PLV%;~bG14-H|(;iAC6Wts}&cjr4%l6I&bI!u7>P;WpZ-Tp>-aU
z+`mUV#FHIve^p74)MaDyV5H2J%WnRin;?*Hk};eY@87>4T}*ZNE+N$3Z>%*3Ps}tQ
zJv#T~$&)pp40NC?Ks~2@9Pz<&yc)G->{&3lw9S^6mj`50^{8{IOv1N??$kV^E^05R
zM}QEF`g7vC_bkRLeF4$_g#M4y6Cw3<bg0K%SNYwbPx&<`c&uV@hkFAUKN@CcscKe<
z{qV4=Lvzj;jUy|~u@HG${_%9Ti6h2@M;phJQ$d1a0D|w>&C9}8B0qhyF&!WOas#&I
zDXYbvn|#{?x=l?@-xbDm@}7P5I*Y_15R2xsy^y=VIzIQ<TcGEzGVNz6H0nBWbace2
z4+IT99-eI9$K66dhoz<AlFnuQXm;Zhf`WpVMC5JYjv~5YUv25!pjFCLWDcTGb14o^
z)y0Ua4wbMkM?kYABX~%Jx^2>vM$jv#Ilt>{(Ft@i3VP?WySuxxM5iG38-Qe4wHXB9
zgnTZrW#5TnawTMB#9`ayIj(9Vm+jCxJw1J$hi7PJ1`T-PMYEo8u4WY<MJSDU5JdwJ
zF8Eik`i6ytJ!!ZvGHp)IV~0@nP{r0;S!+H3k{ZMHg_JNUqb0Bch|y@MFugsp7U;2`
zYm;@bB*6B=wQzHDb9o-|0rGnT8O!;O&gwoaD2hn)Tu+Krj83x#>fmYAXY*lBZui4I
zdmJkD>K>Y@7Jp#9TNWx-tB3uA!?et3I-itS>gj!2!E{F50rC<7>`oIe&ZtLFa+*b@
zY^vbA0RCWsB9|uqi0@uZJHkw1p{5#x#Gz%zLIL~PQ|RXARw=o%x4%E-&szNj0H}WA
zfKJ|Z2s_WCUHS-Ct-#t>XK0}2qMosn#uaZuQ#s=z9m_TOc?6I*yJhZExO=fcGGBXi
z9|B98T3TK<=zwwn40%1=zj<IQG_m*Ph$`&gQVMF)IVL40es<q?n4Xz|A0n*mgEtp~
z_4l_Hrq+l_UB2lBHR#mZcJiM=A^ZUct5SSe|7Ms^W!<yeNF1S_1EgDPw4<ixMYy@M
zRNpHcE%giyPofZf0(JW%v=a?2z#1h2>_}59VbOG&JaqufG8Zs$D&FcWKnkBk)!@C8
z2Uv)WQb>Q&FiAUJ{R{#C^?Yq@jdvr0N%iwvzSf~?h}6Er#=8ZBOsi%49lWbXs^5&*
z7fD}HwEWz3gV4`E!a8~SuO<nQIf5k4ldvEXi*#fHk9|h0fYk&F;F$UB{_gHao0*n0
z^)j}j?UI@@4wt9y>htaah+=~~_cTZS>S(!r9g=JzA0jj~$O=esEcWMG%5(DaUXxFe
z#F8z&6cQ35n<RFTTkzJcbGEZ>_mdxm<55xuK`<lCU~ctZMx&069;7rbXzT$ox^Igg
zZaBpg1UmvJXzO%{>9+<7iHy$)50c@g!$T2~nRDJZ_dWx${tRvhbuLsEaA?uK{`Yu9
zVS$umlUGyWaw4;eekq>I`h>N$bt$k)Gq1!_WD-`kCRw)^xgA%?z6Fx|gQ@|_P}5{`
zB}7&okflKo+0=lCfZj%Wlj@^AQy@!PSJ)bZC?nDPAah`$pvz<3{ty_#C!2j^J(k~<
z7}yXftkSF9XHesw$5jEHF3#q1pp1Nlb-^Pc@rG19%$GF-twb#(v5~!GUZB7Q57tiZ
zZ7=(~u2zx28<e7RD%OHL4^C=%>?V)4%0ISQLV6@XfymB4C@gUbXKV<45f_*8S!I4I
zetz=z@86@ILo2@c#1Jy9L0i-d_@AFh%L~XJFy8B^s4IxP^$>ay9^uD0FQB19-qC2h
znjbd7n|JT<*v*HCpebb`AS7I7v8+-ukdzF_G6baH1eXh#>jiK#Q?E%ht<b)$&>SKR
zpP3mGDW{na6h`0%&%8Q)@rRwMKPiXF7d^J-;8)Jh&IpC@J^3+-0z?QTF~~m5ieoBI
zK2;V5XDYwO<8s|*s@|QwR(Y_|>I8iTKF}p_C43uAG*|8#T<D1BN89kPFc?>)>Feuj
zFZ@VGYOhtlh9ecC;qh<b!9$zdu(3DYcUT(e(!QF#Uz!G$vXyd~$9{3TFMr0DUZB%I
zzt|iIBt+vtsAC(iWsqQ|>{LJ`fM`cCRLa<QP3PpEzj(0$YRZf&x;VppwESs2J*;q{
z#7c(yMl-!bDnEWGKdeRF@xJHrB@oQQX^L0bUAFGQGM@(74lbm%h6BKka*Z`CEAAA~
zaNhvqt&iAtQbDjoB{cf}0Sj7$*^PqyPlwYXTM}_MB`C*RV%)obtkmR>Il7dDGbRrT
zd|0C>XH?8W<Qusf4|kv{KR^bA9DEb$pj<GE1pL@N;UG`$?%svAe-uqmz2W@QO%YmG
zY!sHz0r2$YJ<ibisTe|`&D%YLOZIM)RkM=8pfjF%oW%WUw(3(PnK<;z7si9gL!?#>
z*^RRmO8Yuw2rhL>6f`re9`HDH(EFgo#IYE<zi&67^1?fH>ePlMfT4nli^;y?I8*=(
z>08}_7RBB12Bi>%=xgC+GDLs803bRxv_O_L9x8^t<OhXiP$NiHSokG$R}L!UfXVzD
zGB5*WAo)W3^|r43)vH$x(9dgpTf7O|I6Mys{sIMi6(-_4Hq#HK_Kg6UIG~{k4MSv|
z)|vh+72N`LF|jwX_w-wcf<r@TkjHMd3wgY3Bp!KtXqQs0k$w^GuA((HHMP|S))tRm
zCY}f|Ov7TS^QJ-G1~4rSSCpKMXqfXlfOP22yY0Sbr&J*v8dB^(bbPcU2xvN%MbL3Y
zy`nW^xL<DAc(if5@@Nlz;yI+}oNk*%F0p_slYKmXs(CuEvrJ(bq9f!ild3STKR4Bv
zp&4~RQ*xMup{@f3Jw2DePwX$sGM*xJZFFjXqm@<vFjYG4N0kRNBnNt3B+2LPg0NMx
zd%-pZmLcEFz#yejCqEV1HO{$0mvQ@r9}NrnpxcuG>i9Z7t_3Y_YQ6O_WF(t7&qGY)
z0m8jtPn2pU_d92Zd(zO-igq6_0^d0JRvSPt%l;F<8HEs`4rLcr_nMQJLx<E1CH8*_
zJJndKMjtBm?Mvqt+w@-QH{Azm`)5Ao{8B;Ur(?=2P#kWca6+4>Kj%t_*rn>c>=#ex
zT{`{h{`BnZ;*(rniE`jhDh{l6c6LaBs<u|`gp_9JIGCt40AZMxeiB=VNv*ieKt<+;
z(__LQJYfbuYKUmsR!E(F1|A^2l|lx>M&VOXtgJmw><gqqbrl-RS4ikEVj|75<BS*`
z1LMvT(v@a`dKH}r<_GPpcp^$l)~SIKORe<9e7X;Xl`NW-%4WNOvy3#4KzS=v*#^{N
zGX|Sce{QfV^HKOM=}^8!2Ww0;o4(&DPfuelbQcWJ9xoq_f2K%X+<@BUfM#Mf|3upd
z;<9ldCP?tes+6^mL8?Oe?X`Q-w&ZHXW;cr~%iTe8c;-m1I@BKg`SWcop$p_ZJ;r4l
zu@jh{xw4^vt9Pe)dbEb1rDr~_1{{=XpXSM6Rml1{gYSkDR0sE~4-^#@^LD$sx=uU?
zeUl~h+~P8~!%|eE&aIYcyp@r%f`b^|vtz8)zrHT(4##hVO)wjKCb6Ft#$5W9qnWK*
zl<&${HY~$po=`Z?^SHZ_<m<kBcgTvM<q~hz(4)sMOA3cm8T^cT(t=ZF_`@egfe2MU
z0`w={N`OCV95sQFTf8LBFWy}m`sw7kn)$YvdorI=Q_qXaiD+uZ57c<p98hBq91F`8
z#)I6PXEiBoy*VpYK^_U!b|5U_w)V@1Qc{;8mVx*8fzH%7p5L`)7hEiQdU^w+-yoXL
zqY^<|#T~AF`cf&^DL+4dI(GsBkPs?^jV5$x>PO!{KETy&Z*3(+B2pQ4590r5YHr5&
zOT>ZefXD~6nFs`|P<!)%&$Sl(z}*xLra;E>{q*UEO2VKSF{o5Jpx!6KIwwC`JMlV6
z@CeKc&AO@Jh9MJhQ$|cC`E9TX$t_CgF$>+|-#+N;`O?5s=8W4#c<)asDIi=km2h)#
zJUsw>i3sM@f`a1)yTH{97OKE@7S+*71mKGYR|RI9AKl#zK(#cSXRW+$V`F0$kpLY_
z``%lzq$og5K#SwUqC~YD1c!y)fTBs?8VAkYO7YTA(c_48jf!FrtAmmI9Ek`BxR7U$
zRs@8gfki}@;rETk3lDHn-XPtp+Utn!b~UtMV|z9-mDA>OCZ6yGQuc>#yEBo9PXnG*
z>vn5rCken6LclfofsSL&jTYppVZ|C=pQX+L9`=X+$$xrUPn$F5HOSB)EZSf*pyVLi
z=p5JdE~DqqTw`7~2;wnbH2LK2EWPHkxH<AjjtKwqWm=REaPF65jwfDSI`_e<KH_es
zVs<_^1!yv~xMW-(Zm!S!l@L~f>Ou@%?}_J#G`|#)7pP+i!PdIhBbdWg&h{WEst5cG
zqDDq(plAOCB)zdZ_HZpCjGmw}dD$}UIMPI-PpjHZCF0V>i<i$6GvPtbz=t9uEcaJ3
zhYz~0qobo&wpw#MHp9t<rbqYE_htsMitH}LlouRV=B;j-F)AHe@fWWGH({d*>?abn
z0NcaXXQ!uqfbsT!eV(NJV6x~_&+vko2oHW&oX=TJO8e<1{N2gzT+hSDB`%{<KghXl
z>Mi)8#rlbO7H0ecC7D!Zy1Ft&(|NBUH?AfoM|1~F1S%_;xz+h<h`bN?4BRMrPA7zR
zr&CXoKTx|&UU;05gwpYRgW9pGP_?=;o-(Em10b<1>wvzyyb9MbkQ{`3sLM-zw#!2t
zDi+|muxR{v2Aw8^CLu%9W_D<9hbTdp7mk6bEWi8!#4*Vh6k@`$ux$Kr|JC#c)Gb_b
z@s+VEwTNNxOy%tY^h*SUcjEb|NZ}ALlW}x7h*g8T1~MIsxR!Ej3H<Fq<wlQKj*dMb
zFn(-Q7tq-R%(>zfX*Kn|St{Kt^ER2#2sGu3vTBqRTLRfn&Z70hf!Ad#O+7bLjW>-@
z9K{~j4PAV(TIASSO&RxiHRu{2_F1m79V1$QM~(H=o9^;4w@s-Shr(*$`0Jlzovi=*
z`ur%xYi2J;!b;c?V||F)<{&N`({2!XmbnNZD6bT10bgFOPwlU;Zdm+5>gxPxEn=3h
zx1a`kC(kA})trpafuAm(KOb5`nlD}zL<urm>hMHHLY7j3LasoyqJGysd&6UA-ErgO
z<ZN|J9cDlP^OSOols_gej#>B0J&RZ+o$J)Ma*=cg9a1Qz1$2-7*_w_acH3enxc&0x
z53lxO>Khukv*{TbA4ixYEJHp-cEnDWJAk0&h@0jwl~$d+7%EreiaHRHeIp+OwkNcM
zXF9MKI3KKT+?OjWE3-M2ie|TVNspyjA>+;AS?H5C1H3XCm{jQJQQNaoJ{Rx0)R$Zx
z&^Fp?2Z;Yc*;2{4hgzb!9Q|$}1^?n_b>PmJ3|AwF`W|0MN=o7w<*YMeKZnxkN)&CF
zg{LH+gN7H_szer5R!O@#o6sobmDlajR)PzGR#h{|L5}`}y1Os9e8%+#6L*#ii&vq`
zMqBNM6b}PX<M6a*ZFXLszbm|ootrAqnSC1K6$NxIPQ~$XuQ?$l<!XNQ$uqc3tjB?x
zkZ%crt>`05Dj}%!OKcjR$3A`95Aeqzb0mn$Q??G6pl}}J8Yl@t^`8t5Kb8WxXxO{3
za>J=gDtA+%^XLul*{{&m4bIuxY1wdK!taQR$D1tEqX&@<yoxKcBUSWQopR(hWu%JT
zslyCa1NSu8s8()gyug`8lr{VVnDN{OArS?Nt3m=duU{9Ej+{;}b-8l;+4JsQp!CvW
z1)SDC)Y)|M@5FYy08XJ!1u@D#RsVso@Y+_l%t=%r8TZeP<~7<$Unel_1VY9>iTV~q
z8T9hy3D8roQ&C}^epTGPm0NQp?B>P?ejHyY5=aj?D^Uxvc}Divv^rXTZrQvW$VITj
zq#DQ3>W?algQxKvs?-IOAwKna4iJW&>wBcFJ486W?;q};M7@@=^njk}vwkb_0e~`T
z^xc^DsN32nP}k|`PD4+cKYT~u(6Dve6*9;=h{D`VF(Dz;sWdb+=ChYULkF7v6pD=3
z;R29e4`gNExt+qsz78uuVHkevDNqww&vhDI6%~n}$jf7)Aian~`HQo7Rqh74%4{|q
zDHf((r6uOWZy;c<0fmTYJ$b1vopHP*C@bK}DypPh3Lk@R6`&0SYnoO~bvKe%Y*Y`A
zAB|QAcHn0(8*~CKIAaH&uGShsAAi8t+1y+U<OmijNj#`{zorVZ3t|pIA(RG7LeJ5B
zQjiY#R}jtwI@`5{)PzJxHaKU`2J1VljQB!BO<8lW;UB1$#40Lx8<J^#V<SS!c;k|P
zt=btgEy*e$g=(SEry(nQJ@xSLke?tlyg?`UFb!x0IopIuX}O5Qx4<#CbXEbM4V`)Y
z!kj+r=$U+=RUMUc3q0~u_nKTV>+Z>xi*MbP6pV*5vWi*3dID`8Hfn2mm?VgQ`wDPV
zZ$Lx>d9LiTys<*I>gDI=;{iTCsO=N(VLY`~zt*&K>#ZQFxZ*5tU$Gi@-@!tG+Bo%D
z9d<=rUy}42V+ki^UbN6;q*|3TH3g7+Oq!Jgvz8zXi9o4Ki9!^go-7qY*q9B_TO$Sn
zz{h}Ag{phVoiULzs8WaJ=-6Vq8~n{fcWiGU%#>cDtpBfHzjS=rFpo|1wGKt~8~iTg
zy;kDka%a{k@3GJTR#!qoBI>RoF3>A?z*uFsG=LB89ucrkt?kYw3`@<&3b?B}j0ygl
zIN5Ig!2vozZho_Y+o}4O$a!w0`qQx@Ks1O1bOvw%!e-lT0b>e4ZoZD5{VXW#oc3|N
zj?&VI7mB6izDBk6)VGG8w^+@wxq^C4z*UQL>5{ml<b@Q;_b(CE7ho6XT>9P!SZK@o
zq=L7MA_0(b^8=R}In(Rg2P`{xw#7I&CM#M^jPF$e9+&KPK7`O7)X<F6yB*UW-Ip%F
z>PL5zZ`Zln1!KZ}_|u=2hv^=4dZ;hpnSeI>j+8whf~zuo>)2x+`{p-p+(1Y@fG_#n
z28coyGnG^cZ{#%jn&dXD2=<vXG&gTHFBob8t@MoTJ&LF}m=WB0@48`~wjN3<{x%`w
z0}lg@xQS{cE5ow0$&ByO8=A!%*5J`;?R;!sQ?K&1Lq%{<-d&G>?^kutJ<PXic}8=!
z@R@B4gb<KFjbP@oUYodIxjP$!5dMfZ0C`k0maEHP93Nk9P#fus#3h$U%DR`eY%m{Y
zBJG&<1H_UjCLhk2Z~65(8Fa)NZ+gJ)j*d|K{0!^paMcrFb+k);M5_3ziwQZgf3k97
zo92(UaPXrw87t9976Getg-s6!yd{3%+A$j{JPS-YK+XH$vJ!sq0FfhO^n02`Fp+m0
z(+EX__%?jH^8v`7l8uth0&82H%g9r^>G$O<n0ZR^o*91+iCZ$})3+2+09kKA5B3_M
zX#0BjjoM7{3Nn5d1?m1wrB3}_FuFD`0RPZzY#%cMt-eE~eXm6a2#n3fjvj4{%ZAbr
z88d|i!D=RphtQI6#5hB)C<&ZB{TzC6t^=$rNI&@_{aT(HiS_`nCV_cqg#TmiH_cQ2
zY&Mwx!`!O_yh>epy5dY))nthE6?(|^FDEaRs;|_Zp~ObTa#??!VVHvkquCh4{n1ep
zT3iz7w_mKSSs`n#@2r)mH2#@sk6qE_hVOD$K|)rMjOvg;buLD#s%&-3h*4>4tQsEp
zPmoCOdw2*SJ|b|->VTOU@xPW@PvHR_4phi|xikmbFr$ic#Mfs<Z-$XjEE-&f&JxMM
z=R#>{<$D7zK%Tf<hI8N+xrkz6UAL#BrWTe?fbLb_+5YPn!pLP8>Ud<$I^r;`N6-O&
zHtwcNwP*Bu37jvAf$a4Ll;@ua$K2ND)qrr!HeszGH<R}z9i4F5n3jkfR-mW?U%RyU
zuF>HW-KtNe0N%<S$xMO51JzUq6y%38GLeyA_(7?Ms}G;)De;xn+Fl9-FD@1e@um?x
z+|E)dIF0&_+~a0e-j%mvz<x;4WMt(g(pW$)KKo&f%!VW5k%j;dPr34wBEBLZ<2u1S
zTQcTyUTAWc-?Wbj!kW@%D`$_dh%V$s$Y|pIAcr!m$(ON;;{snOsIU=x8|rn5*XKYR
z?4w-wYwSi7Yi#z0%d>tidU`5j9m(Lxw^5Cgbrh@8%JLOv1i+|OYE?_8vbrRG8xwg9
zPPxGY!CSr{TeTRYtz{{oW&8lz`9PlT8Hi?N@3$Wkni7oY<PE6vSOmFH^6XhdKLIq-
zX-HsTm4n2}BRP>dm4B4|IFcp0@BUEwF}?YC^=NiyYsf*(8NPmT7AeYclKqsi0nlp9
zXR?>?lD<XA->z)6dy)wP<ly|=DAokXQ&{#$oE6jz8?U@fwE?`pTVritU?RJrShGRf
z+G2MoYI#$(2PBYbI|=a+tm35dtew|(H}2gd0cegoM|e8^N_(awAM&0Q)?k|b3P!Y<
zrY>+)4lVF!=V;XgwzWy3z9fqJuL0wO_z4g${le*2?LOWBt4)SdjJs3H$l?^_(pS&y
z0cq%LSN{;U)_TJ6fq1o&R!0hjb=HhW(6%yRFFa}ca^&)Dh;%9(mi^k5g6NpcU6n&A
zfP}ZrJOCHpj?QL_{IxQ_-o2V1M(jVK=SOr*AZTT)T<jGx6eM!g<cKOaJ9ts&Y66~u
zfUs=-BT1vDSy_ojH<DS6E;LfqvO?Qj%W&t5U7tlx8ez8nZe7^kj~P%`Ov?{jfkCB7
zT^`N(N|-R0BalEQN0i*N)A4k?Jn>WG$1&hU-vA*x1y2(I<`;y~qtoi`5nMsYN!(W8
zA=ETq$OE~VI%jRH`=mRhl2tWuWNJ}e=~%|b4oz3(oDrlRE#Tq29K$p0`TO}jQZY}c
zeI}%?9_v<PGxKP)Uwb+AWKM21HFbISZI}@ND*+>=x-Bpig{J+|n=^?}C%%H|_fgRi
zx9#jiy)U7|9MG6xRS~In#JoFi2zzDbVI#D1+QY@>xUGSt9FIKS`@Vh4yw1~l3t}7*
z*`dh>5UvBZ5}+)<K?e)IejlivcIdu#?No)sQ|&I4+^#Gd<z9%TH<l9oza*MYSg6mQ
z#~$EcYSkX}ljPqMH6{2F4}CcDlZ8X>*LYE2XK~YlN5O4gl}nC7q)UrjK~`3oz-X&*
zE_wQIOZ<9mJVW0>ctqwB`rT*St}cyLRSb;V+S<-EeFq0rX_mOg*jQc3UyqsN&K-QA
z$wOm*&3H@wJmocTbZZ|U9iq-r3M&yLo0EK4^QOxL>WYV{#C6AF3*CQ7Xp+R*{)FUc
zwfRtCUPWc5gDovPyTVwidYsu>A@KRT?;~Pk&1@-#ZIM>l`P!8$Mmw5yE}rqwyGh3J
zTo#(d5oAtU1y`fq*VMwu{me*9NKNUBKkC5J+yx+59V~8;fWE=QH(w#iZUB-0X6iWT
zv@!cj8E?sX6{Xe0S6pw=ZBzoc#GNh8G)Q>m3WN9*V)kYv;%k<7pZ>A6-YP$?fIiy%
zR(*2I6w>%mHK>O=@VKNymlr89eCv4Zn5SaUc6C*GP*W$+HKo$h)1QY98-;`V`s}t3
zKp0=>_WVJIS78wp)B>$eG)uEe6|j>W3NK0Q?JdP|L@(3;Xw@)F$z>(fapt-tU8r)t
zo^Pr9eleaf4iH1oM^H!Kvt((7mvtHQgKNj8EDknazRGH$ad$o7<kx>OnJnt1*P%?%
z&+P;Cf{@+Wng1XPasmJKaey!$)Nt2)h+V~CcVmWg6O4KcbD%1YS;PV<mM`h#R0_Ms
zdt}uw(FYV3e=tP)!2-oNW$!;mrhf`=c7xl%`rwx};_gLPz--b$k!j==J}0X@o)K;b
z_2tddQZ6hZ$RPaEtqbPhV6Y&M3^W5l1BC}Lh^WA@lNg-)#4wM8LnQ(&04PEPRW6ti
zw4bkUp2`t$$(;K?3pxb|fw@D-Jsdfw_~cKYd=RD#FtpMNO(tSk(7!~+HNoC@^{xRd
zwGn&EUN7AKv(01u#h!G|Vck4s5mnV_<W>-LhK<Stjb8_orkn5R#>MElG2N`Q*@`46
z`-v|vIIRuz^l+%ob*2Lm?+0^1)&RPFA;GuU04ZcOD7KAIT6okP9KExi2f*}*Dk?_&
zMPwo+oD<CrmV-J@ZtI_3qskgZF~o?Bh`J8M+gu?c4ygD0;L|)RWGRB!88SQmtX)_C
z{;r`2z&*UgwMvAo({fvX4GdNO2;@ofzVx}dGK?o4>W=-QLi@13xs2=aNwq>FDuKf-
z`8?f5T<e*Z%ZSzhUOizVidM+OI$)bj1g4(T+!hK~B>E5`^>+cV7zZl(11cWO0Y&06
zAW;Tu4a@4?lz;*#k2;<4{5A=xDJgzHG7q|~sCC-Qe4F+gG>f<cGc$w6gFxP$_w@8c
z#29dbPvu3Cb)gYn1o1bkD1jCw3M<^b*W*rw`q_SOoCvG{ctAts!)O{YjD`@w1zm<G
zMV#Qit&(1RKUW}K)BRwh=QmrjFsPWbH|b)QfGJ3ZYODja>`&-~LlRE*9hpPYnc*R3
z)m*aMf2;!!YlEwJTNEq-c!ZUgzrY%RGsvgiyEsD0n6MHC^z6!Tle!pycb_k$$o4G+
za>-<@7=(Q8Eb$=hT#9uBPj*nU8@(H~KR|08hv*{`V}vuPxf(g+dTfJBtghq_sJx<p
zkDoQq0B1JUgEs?Y6@9Gb9h$&3Gbsk~Sg$T#hWr2?1^-@csfcoyULe#4@_|Qr6`Sz>
z{eoSL>()FK$_Eyfo9V96_v<A`CBUE&XX*~->)TXwsLThHSMIfXt2!G4Z*l|=h($Lb
zFpwBHjqp_<h#e!%rym**HDnl_=pQtNPOl+Csl*Z{*L;Vh{J{a!#FKUQqHB*Y4Jx|B
z9G(hdclWjj#e5`t6EXd<U7h#QOqhex9KH$VFQtq>G$dr&1_ot5zn`;^MAd`0mm|AB
z^z0aDD5X`a&}FGr*dvutL`=+NXd9f85fYL)0MyFjp`36r?>CTWHRV@0uCjFPJ$e9~
z%IcArot<6Yp{d3Wh$>212hiK2`<w|#NR+a09rv4Ewt_K>Q|IM8_ELmPOa3B9P5vfF
zWe%r4W-0-7z>e7&(LX$1n6DrNA~c}HC=CT-trzqY7p~kEl6MAEy5qPz2~<1AUKepN
zL?Ft;<iV|{8L&%F(pD#^%Rwt0c8S`m9*W}n&jzRU1`>Of)YPBNFmwR=I~I{ZvVefV
z*vbaz{lSrs9YLv@l~_`Qtx)7DBc2HpK)}ck%x*jp2NUjRu!DME63LkF*@?5;7NW+q
zj?HKzLy-t?WrOI7l!*1VVx>HDpb~goWFCP9{aG_Q-JnWTSV4gZ%xOzjDpc5<W&<dc
zG-c^s0Itr)33nlu>wu8~PU@ofonDwYoDGo>&zeC)Mp(PAHIw{Sy<w=#){qaTx^Vlu
z%I!^W(9sR4_bEr8k&j5x$U-{Yzku5Y(qBJ$5;8jcUU~QvU^ZM<-roEm4ddbBY&V~<
zJuLeiBkq#(=g!4yzTpAM(D@p+5)3|gK@^m^y^Eztm_xeH<5nQC%_wrF9sxgHxjI9i
z;PxbgJ{O2sQb@)u>l^Wj`Zc^mD<FI$x-1K2#@49g_($m0^$FxfQyQH!yaB*)1+<TO
zI0N^e2OS0UU(W0-998>G$;(rbsnzMc`<>VJr8|pZIA9nu121qZ6-$jk8WIA%@}p<m
zwh^lT^s5sHL#BbIqt3vqjM1X2N={Dph5F|Y+^-K*E+pN6)F}ejc?EVW;-{{AeEK!R
zAVV8)8NR@}_(5B*%}y!`owOOtgW}X1G)~#j3o(m<un)A@EogE9C=r95R|m#{qFHQv
zOtCE`rsQCHV&mYhVFy?CF?2gnFF;hl{)l<Pzyb9&f<@yNERl$n)o18(6QO<5fg-ZO
zRtaQw1sSb2Op#E*d<Lrv>~I)s^Xf7pf|eVJ2A!6$n?J#H))29d!LNkj7mK$hpQ}N-
zKI3f<6Eyyi*nD9(`9K8Yz`b?BXcS`h$^$X3B66Q3JSvLe4KDdD*aSC_D?fV{AC`$2
z8f(P<>>w@x)ma&Z2kstg)snp@2f&Y%2h2cG`w4^<A=G`6+S*#U8DuW>j@vJ*JTL{N
z4tJ-?(O?Nx?k#4r^e3@UUb}|Q&ng*y_&5tn`ejB%AK<{x0z~=x^=m!sDrDSpnmZfg
za8fn=lZGFl*qC{k+VBYoAQDTG>&aA-0aZ}}8oF;Q%j8*E%jhhrk-^3ex3$_cC!QO@
z7;hb$sQ76U_iW9op_#qzA3y4$f{Q|J5d~Kj6g6sqbqL%+26``pc*fl25Wcl}06Ip<
zx+N%T%NQWHx>xRaLRDEGwyg1mitgiaxaSKzncw&Cvf8(=h&+4t0r8U~*QH!)^|8CF
zXFF^LN0XUVDPbRQL>7!cSFU|Mk9^cGfIi485t`g#!fx&MA1^@eGY0=Cvh^AKN?Lvy
z{;qK@+t~oHFMdMQ$+exGNX&2rX~!*qz*%Y~(nvZQfmD<q1TJn3WUz7_X1IKyQ5rhb
zQvKm!WBeD<m)-JUyr*UKFTpyf_y^ldrJ!X(VIP>xSO?#NKOz!>E{og&5R;-{kPrdy
zLHE&pW2p1u@wuvd-$g_mNd>9+4hrr)WdH#u?2;s6MrfB;foX`AA#hJk*Y!bsn{R&L
zhREA+hv`}{bHGs7!-o%rU<X%{6X460)&1p#4(`lQ%#N<4ZGjE`bH)fdpNE#b4ogBN
zCbxjHLvF&-`+<l8%iqTY2$*lpcY)}OFnWkbcG(JffjE$>r%`TD8R4%q1K;?hx&3{{
zfSanaa+KS3S!2rUkATdbX@ny4E-K0g@#elaj9+))f*%sE);_kF<p1|s1}&EY|HGjN
z|M4(@|4Y5oaQnZ%{@*y8Aq_cLVFd9MgR1SsdjY(siBFQhK44&Gz9@{tDn8A<XkG;l
z-pHi&EC?<jS5PB;exHCrgUyB~e4UxOeR$G|sH8~e+@(w2F#7@?VMr>K<bmSWYK$qs
z6QZ62odn6FitMc+{0JeCy}Z3oB8MD+uv|qJJQvnzj@j8kjtZzGKaGzcuKORK+y9S!
z?SG!k{~;UwKRzxaq~s*SO)6|yLhHRPV=&)d0`Mf};J}F-LE(A4KOVgZ%vmFpA0*99
z!p1?oCToxu$q|A%Kup(HcT=J2-*0Im5Hm4a<0%Mqev*!-5|L>41~QutBV6V!lpxLk
z-l>D*8*YQ$8%$cI<dLb1|2|;kR*Ru!7uZd^z~uwlqBbO1aI^)?>fgP4_l`l^6`1Is
zOYo!spbc`>39x3pMa+MQUo}NKZqY$9KI0!Ji%=v;tsz%&g~No1$8P>PGEvLLrM#IB
zdJo7!_n{ZP{p<@0G`g=aoDK8aQGCv90b(@JHoSsi&JvxCf8N*jFSC~=pS<vt%WP;-
zA7HAdVfM_KGgHW@A?g{J2{d#6@zKG&EVVK5@qv|<d?+E18kQoA2lHuB*YDivLSz1Y
zf(rM~f=eol>4k;tD8xz(#dMTSPEHQ>91xC6vZkn<6>KQ)&DVIhuT&<)>}+m^cEi{%
z>?g4)710umv|JbbXCxOKK#pz2CoX%|Y+T9tb!)E}`J*)Z@~b`d?D@veE^03}^0fTF
z!820mA&;DBZ)!rVc{VG$!dNpLO|!cTCl%ll7RP7Y0|zSd$jSQvbC7|tu}5E0|0WYt
z+b~twduR+@dA-=`%(J6b!pt$7n^VP#LXJO*NiUqXFg;~QZ=Ts@H2wFF6f+dk)y*;o
z&9)tI;4?c$t<R2udWaGd5_(?8wpgE;$Pi6X`PZ{@lkZrMtR#QA@{*K!3;FHnBDK7x
zVXAox!`!1WTo4F+T0X*Js--`fq*GgsGzF7zaJMRJb60_8QkM^O1zfR|(BTlajDew-
z*11g9*{3lS?wt@)NqJ~-QI>N7Kd54@qGbBD<=MhM=LAjshgI*4N(`&^wbUI?@@m&a
zl$d8Xm3*b4rgk5JD+T5l3k6;SvIy|HV97?^_|DU!*y)m~kp2>A1)f+>cqXYk^URDe
z@6MJN7aT12k(Xl8ocWUZssxx`H-5n?kO2lmvX~d%NFN))&ms=jz<a}Y`S{4-QL(Jb
zYvC)G^bR*#sg#Bmb5K*Cc#bw?R=|eEjNq^=N`=?KQ3qH=xT@(*`$c>fnKd<nz^;_k
zU8hd8Y1?-UVAburgswT-Yc&wb26C+*g@XC-9hZM>!a(Fk0EX<M=U_m7DPpj~krg!o
z<n;gcTbhtZ`3|?bQO{wD`s2U>GM}kYL5%udY_68u|Br)!njmscJx2ys;2s8w&94Fe
z^aHIL^#wlsj>D2NICt1B$H-tGHAIZ&>z_x|5umZqs{c6pr^0QU$`rb71QWS|Ab^^H
z25-JM6TElG*n5$wVSyRs@7vm6u>;6?iGiYS_>uhBe6~MZjRew8&M4-V-wFQ)ogL$h
z<n({+Hw{QSrzY044Hj$8Q!PdK1_piuuJsk@VY-0nK&m(mj#>dbI8+0aAwa@Ra{nP!
zq%lCM0OvR|E|Hu;1J4P_kXy(}H|?!(z|UFO!9S}0oM*Imyfo_SCXYF6Tz4cTb$RiG
zLH_1L`jZ|)r}V>Od>C%ma|_*KOYQ!6qUGs(r^$^?HauB;E6HaQ3KK7`3+6qae?#)@
zy2AO;x91+d#yXVxBK+dzkD-w1oijD{eRSrbv7m0Ecb&HKbUV1mSLgQIKL$8TSD!&m
zWTvUVBKhkuDHMtt3ybylw^2m@^DVLz|FaH%2gE<uK_SkH1odH7M{JyUOTe#Xhh%H)
zM&rvOs`*pUUf5h5+b*$+d{&wjf5=}=A*Fi?^&zG7Um+&x_xw+^{eSmuhIHxq=c~}w
zCPhW98E(#)BEI2RX~Qd-XLBfnIMiFd_Svp^*$TiET6P*u7!&d1`XCO{@qXF#i<?(3
z_J4lN9>76*Tq#z!zepgZdokQ7TISo{tD!YZL6p$4*cVe_!~m$8J;{>v63JE-UhmSi
zYCHz^1jviyU(v^Is%V<0(-0-<XA%3;X6Z8Hs&&@NU(1QJs>%IGB&GY-*H=3WpCS4i
z>8&pIgaFJL5?0L%a<nK^0rdpOM<iV-9?*^hsqgsR4Q4ZZs$Z2HD9a=S)<<!;edSJo
z>axO1O?~M8_FEoLoOB$wEuEQty?6H9#M!x`?$6o}RG1<@!zWFUX4Xx92YsMULt2)@
zq~~GC6;m(kx4jl6nLsPF^@>D1Jm#(BgBt_sm;v01BE4|*m(TNluUP3+GF<V})-=3%
z9<o3mTqjSyJ}cjPR>Rk}0;a9|q>qYbcEr;}x|JV%<ZPqwx6-rbiCfVprFPF^QLn=h
zVQ;6`J-mP8nD;#DS-`_K|KAzs`YpV*6MujITmt`pzJ;aupLO`ZDjs^zI%0hU4|xhu
zbA9szATf`E?!#f>3KCiLT|?>cM&uBMV~p1E(<x4@zi;hJOxk%T+GdNA{`pcMN%wnl
zx)-vF%~QJ<<YWH+4b+5G&#6ja!BlHJs`?MXkV`7yR?0-|&*QK(uS5y5*$?KDk)M{n
zzkgkpCaZRz20Zb>H;_~4IAhv#IdycR6o3D9tvG>7VD~}~?`kED#K?>DfB*PHAI${w
z91vjTU@HKS8Ws^jykhhFB_AHim7KPG3YSMOLCU7*1D`#<Y&KFV=Xr?M!XT13<eWz`
zGD<KcV~^=o>QB>1?M~0nXUp9u#}yaCoO)oM*=RJ=NV1@Nv1o`bp(r^}_F2}NlKK12
zp(o-DxBHsvl_ztNBzg`d)Q-P)R0F)W5qQZ$K3%gYrTS2eOTjlk#=^iL3n~#Dmz0Ir
zJ;BkI<6u6Xm`Dvipnmibct3v~qDr3`!~A~fW1ROePx%?+&SS=ZMuuyypb|dlGkAc%
zky1B|du5|Pq+jfpmXwr)^iFieR1cDMz-15rlwG|n!BRLc!RHnhD(W)U>hV5U7ilE`
z+$jKOb!b8ZbI#yGe+oJlXdj^M+QDgHU@VgN-0MyVi;2mM)O3LZMx@yC?S8MFoZs`E
z<0?#_TF57ehniuqt*33Nf`8qja$O7#4SWI=lcIw|F$_R{WXvi3YRU_2Ewl>Z{fF?#
zi+;+hXZ9{0@yMB{(MKg3XMH5@*bPY8DUyz(^ccOX_=_=i^QzP;qwZVD93<HfE^psf
zB2@2U@00c45~QEG(?`ig7Kr!s1nM^92~7#$n~Q+MXNhS~0mhMs!JXZ-PZAU}0LYQm
zF!Xin<QV8<+3ICK&_}Saar~~FSM>L8z@+-2=Y+qX-?SZ1ox0pw7^NxKoB%<B-<6JC
zvw_bavlLAS&^WKbw008?*pN;Q&3p4uXTSwF-l_w}-~1q4pj^~z)dg^{!AzEN$Q8yD
z1X7#L%ARnXjoLDsC+hh;v9EJ*C!)Sekb<L>cj@e#gu^AnkWbyIG}g3Ff3M|7VhmR9
zs6{_;v^ON+d7L-Vg41Cl>=rC!fBy!KLeH5>WR%=){ii60`H%vL(Pvc!fhdp#>-LRw
z5P<Ka&;0$%LR&t2&mCcKG33)<`}G(6rSaNCt;^m*Dr2Rlg2JbMO;;(<UAo|yuT_t#
zPoG49(slt4GOdK*@or~$bhL>q=Jy9DswfERWv8V*geD{e(I$H5$-L{RDn>OIBvPeQ
z<-tSV3#(ieKMV{6TvYS%%ijs$Lu?wZ6O1I@k|>7}rpuI+l(K5Dom4BG^1y!?9vYei
z)|X89a3yu?*E!XDCZl%UQYPSvhGoT1KKc7z?9No4JbmFixV+tXQbF8Zghr^*9eD{D
zi?d+h_L>~U?@Lv<x!6AeNbRpLfE0he4gGKTZ3f}W3DlR+sIHPzRY8dxho`FUHRnCc
zZtQ<>r>|gU|GbOkSmQYqPHye+5%CJag~;9l&(g=REI5oS|BYAWzuja0uiOw45)-_c
zy|?@u2v*o`^*k#WM3S1alvP9h!J3LsyTN%ia*{fL|4uP7-%Knf4{SH4#-(mcn@7p`
zH#}in#CdIW#gzTX`R$t>j-Etgfvcu^85UVH$IK^C&*`x%>5%ca%wAG>Z}4$@AcY7H
zi1}TJf=Zyi%o2A9(z77I-<}8o<&*9gvyDhi!OE-qdi-B+NWv=ia~VRB<|@TnL_~yG
zZ)*0W)#TULs_T(%Ac6843Ba(a$at-qN0wnn>{(lmVA|+e$h%@-DkCB!q=EViT;H4Q
zz|zkcGQLSSEjU;e%GKAS>NhV<vv9p1h>D6%ve2i&yfA}Az-6q-)qW_#o-magmsbAq
zG-`sk?&KJl#!N>_tx5S^3W2pXvD^Hf?0IEidD|*dj_P~S@G?I6+L2S%B!RD1#|CFY
zK<|i2-6})+b`SndlR7t^xDHi0=mPeX<D^qv-@kcCnfbU-qwXUflKE-m?RE8iPosqF
zFC51tLUOxn&?XBiW)BSKAk)6M-gWa9e`hGLj=&lqeCrA=DN_7FM_K^GKtE${Wg_?m
zu8xxb{zVaHxMuK@EP|oa1?1{pm~@u-0mcM&V39bCz6-(65&$|F+Lio%1)lxO{HUOI
zgYH}p45K^P|G|UZ53|$Z@7`UPaG830FDyPjXKTw2#+?x|^$PT0e|-tn-#wr*6?A~9
z0uvBck&00SI<QoNfCfOlZg5<Ly?>t$&L4g_{Q>06FgSLCVCio-C4>j8&#e*KU&&yH
znq<L39T4O<TKA>Pi$g{028@M)83j`~C@2Hw03JPh1av8Ta!ShLY>Z_eNLd6=WhDP(
zY|m4NxSBFBcEADiw)}7w%3^nFkgL?#B{=gE26JA(xPLC75#zR~JMc#5#Q#Q!Uu0gD
z95Rp4_9!cM9w8TSf*_yQNduZXkV2C|-hT}BDShor5zG(Xf_gsJna~dhZS+FtSOqHT
zM;83ws~}0GhXqHh85TXOJposk0S`kJ&cnNL69!y852h&X!6t`1%yEzX?09g!NQ6MY
z3Fe<Ikk!32{ug`i9Tw&Fwu_?1m}tZ#wx9x0M^q4uA|NPW>;oc*6zM8T8=CYE##o{v
zItoZfqzE_+0s}IX(O3|WUPh@Zbr>m9rSE%z=F4~X+1K9ZI{W-__Vs!BOY)<<^S<j{
z>nZnrKhJaI%T<2!kN!3n8xpO+61PiBlaKKil0FEReUn1U0|{`ft)UT()!HmCuSdrL
zV<tp;sGyj~F>Bzm^2FM^XTPS6o9CZh-1PU~d!Z0HLJCn9E?U&cM1M}+UmGLK(XQ<Q
za9yppFG;xE)C9@FZ$;mHxr^h{yWa_eWUpnKn7n5}(1!|dOLkk3!7_v>_g#uaJM4G<
z!1(&)>(0NQ(`zz4raLl>mZF1bSo{EzA|KWesz-#hSA4nV{x#T-*rl54ibHoU{U8+c
z{P}agI(<;KziY3hzqp<++36iF(QH!gd3(*G+Dp;EMRHf?cH6y|dTOtyIDR>Y+}soU
zOAB%d7y9D#Hn!fED?bVN#YcMGd#Nw~_s>i3UHeot&z*bZxeIcSRMRh^g@E#J6M{{U
z5$Qt}t8(~oImA{;iauaEds@JjS~<yoxxkN)epuoLEVQG^2Sj$V;?(&CBKCG12vQFQ
ze~B;zek$(s8v)VoXlLTt&8iV;zPE3|$S~?i?7m)RZHxWRYQVeDdla`!L7Od(0xp!p
zsi>)GqbCTuMmwP#idIP9Ai`<<=%i4CdO2rs;ewafM~_YLL?eefEB48TsWp2I_;XEd
z^GD6zTFVM6`{Y*Ulb(rY>4^^>yz0nLwpv+H&?n;ts-(Ng78O3M0#uwd=S`ORPE~b&
z$yxTA0dgIKnLwB0t19ErA;m#?(23IH<;G=YWu&d}cv#8!NUtucgc`;rS6l-Fm4HqU
zM<Mg$+GI7h>)K2WFDZkH>H!qT;sKi_BnCW=sFjW+80{B**85Hob)ifA3$&WiKJJs-
z?3?fldDHEpcK5g6Q46dIK1$-Fqe4ViV@?)?NhD{XA*C4uVBBiIQwv!l)L>m`(NYU?
zymy;Aua*%8{wf~T&u^GHZu7cD_jI5AESwu`<Pw5THXEp<fdynbNxSnW5*8yu{Q7Es
z{22wA`Dg((h=%N1kMF6`(Si`Uhy<d1C@nXLiLpl@&pHI!QwPep8kpDso82j#*I%^&
z23uB?+}*YhT5KkoPsYM}jcFM~Pd-z|(kyiS{>t1-zLYAcv`1Wwjg46a=!^L(&%4o?
zD`X@%vw!v+J`%G10DZ97WGbyP9|*S!y&BGE;rpbmr0*y-6jiuo9p6@Rp1r?WVs^X4
zY{26+l-Fm{-)10CRvG{3l0!PxlVlZAZB67xVAY~gZfJ=2Gg8-%W?M2o6K=4u2hsl7
zsv_nhS{2=g63tDq11)CCK>^mp99Z<Cpn%_%%&di2G8xtQo>(V^$3$-flXE9DGzpmv
zTE`yV<=XSmsT4&AXVc%_fo_lr3!dodV=ZfNvEz7+6Qdz?*ywnE>Acq^eSUJ%(p7ni
z(BxVLL~S#@<XJy-jZ9|1sXT%-Dh0~pMz<D!oU8{K9JnQVEWW}Ky%TijPAuv-h(i(I
zvSpChuxFfUTcVrOn1Y;GKB82GInq_5iu&LLWIPYRiFKkfv#6w`22b+<Mp%2Hu(04|
z)W$K9rRk$=mJ4CNmZoM5G65PSr0n)knz-Vd*F2}LibJB>*i|f){t2VFdc%edbvdrg
zNcVOj8OzH3U?P*WvS`8$AS_60bPpuw&Je3cDEk^?pX)+9J6Nf@)jb?#c#T8HeFUx2
zbW)h!x-XjD{j%Y81%LVNN#2%cAZQuNlRWjnDf=AKHJ&unq`Y|fvg^jKp5NGOW>&;6
zx}NQv9IKjrWh2ri289eiK&H$XzH!u!)HYJb&_d8lq3pqw_YkUjt#H#MiNUEzsI1hK
zUn3ZJ=MK7`czd8LiiD*3r@t3%wV0Y1O?zvt58cyM<eoS*`ua&=K1sXOz}oL4QRNNz
z^F9`A^R8V6FJ8QG*tterT)Yyk1+?*#Bu>Dc51r@$PqPDU9FWByfuli#v2v`dI5l+V
zxtOWZGGBH8GWc}(zwO(%Q>Zw%x2t$g(-U2~oPNt2Uc4NI^VkiA*bPYjiC%P^1Nl}0
z%!vhx!o~`er|v-sY>0X@Eu?WfP%t%e4mOvK<~rA<W^>J7JC(*iN>eq_Af{jvM>iC=
zPO(HdM@%Ea9`Z|hC|^?W7_{&ovuw`Kqwr9gHI%4ye{3X>7IGfy%|ul0T=n-y4c;--
z71Y4amP9HVppMH))C9RI{5+M8>USsjJ%F`TNQHqP5Fi27O^Hzxts8qB^PzGi<_TCX
z$@tL&Cmt~hP!Vh!OK5kAYl3W8V{N+lRz*c4bTqRf{n}StLkGJdlmMYI`~i9_8a`+#
z6fEDqU`#{7cWn6i6?Z@R`E8G`Kq^>ErY%g9CR~$fOGHo-K*zBNDT*hrsj~+QUqeYJ
zd>ung$e%xKvDEZf#8u1!ka9XG`5^HNg@<NjwWt(uLb%3HP@YVLhF}OKb-HiMv~`U(
z6pr|Dv59J8sY|Iz4vh`{2o2X$D;Zf$Nwk#g_=6p&fYZZkhKk@%+_$2LBb<&Z9ge;C
z+%%L%ir=!JCc90sd7E|sdqyUyK=<H~&GX$)!vFZWPo?tN66J?PvHW*vu5u89I25FG
zJ}MAdq$4zY*T0XDGIjbLI$g8v9297^heW+&ft7T>d9;tzlA>{t1QmU@(Xgp27P1mg
zMbu)yq_<Xahy6b`>%tx4CDuT+<~&d$$4B{5?etXdw1?4xH_Ly^`QufnedC4+oD?0m
zH+rL@y5+fc%}N0_kAqS_Kf>!ug6@wVOS)`57Bl&!ChMmG0mp^<Pb8=ac&gz%v<wX&
z;x$+y2(80ugdZSZfozh5Cr`J`h6TTNA{e9?dA!t6qiooa2wn0j_*f;BKqD|M@;2`l
zc5QesBjC(JztT~^uAwYn6T%JvX{klmr~4$hbZt0y84~;y6mB9`qymy$enZ*4KbArQ
zbLKhGl)kF>_F6NKkkcqd?U|l@1U;jtjWSv~(ErG^WgPQfy=}>F35fipK$VQWE%S-T
zTPNybEr=)@mYklAI)2-wTY5}Kr=2^BE!(r8V&#ez9^T)DCQl~qeR^`ZS55o;DHO+(
z(HqNGt|Wb4JP?ti-PvlOI;xO`jX_RgbWf0XIXX+skcK85dF;QRmF}K&GoU?A5~x`o
zE+!^c`>&;>KAD9>e=IcQzgV$i#aQFP(FK={P%7234Ve+Wb&@uDzOR<^;`BK?lU%oo
z7N9-ZHJPF-S0>Pyc{+gdYI_=UWKjJ07J&fTyL!JyP~u3f#JjUHbj2ko)YY=q4?f8&
zx7+x?gW(%-_=SKp&E1z{?AEu>Y2W|#4x(`(Rn0xF2hm!fKCfF}VyJ)=K2W>rSjo+k
zpX+cB$6!t<Wwfjn%a>cC8I#h8Yn7TDm3aRK=H!Q!oSPKnEtV)ek+DiZE=rGu2jHQ@
zhZ1)!6>80)$6H=Ny}yB~=rO2)PB<66VVUT2P1sMP@)ft87CCwJo7~wwKZne{q4c_@
znVFmOv7~wERvLroMd$I-VRUaRDk^edp5Fx}C)5dLrn^#xy%!^XLD%TsU<yINkyQmd
zSu(hIy&&3bjf3Oeda^q*P$M~s4uR)Jc=kK*L`5;lz=yH5)qzqM<9$Cr6U7$&wE>&D
z!F6eUw~H`D>v-46sekTsa7aVDnGL+k2<S1HDX9m~QK^4ns0$PNQcKtr5q?9SXBKH*
z?3x2fEy+oM7>ZFtce&ceIU2ei+lmt2-Z=S*?)s%<&9ye3Sd32~1_3Xp973QJRH+p6
zoOC>!FmPn~L;CD8{PE$^YTKI>hEa|Vj^M+LX#~Gq$X$~c^T}aH8D%4X3SRvX-3f}p
zaV?YR$pBO_Arz`bDg{JchZl}kVWeSmvQraW`VN#dFekBn(<;5x5JEvRLp-z$s<8t)
zvj096OkyB3N2<o0gjl2-T;uU^%w18;C&|BB_|9WED@hr>=#i-np^!x0R8I5c(XF|C
ze?am{3fKy*SR{di9cKf8&Z|ASzq#of1#<2ho`wYnCy?9(^4=O)?F_U%@y2H>U@Qhp
zdG>kDs?h9*L|tfl%Z2<?*U}el3!Tu{Qc^$TFbV8cRga@>jJ0eS+(`mDyd4JXa11~z
zm)R19;$?&%n%MK=4}%Sso*xFX$%OY-!>9+?#o!t%ZM>@?7z_z`Zy2z_H@)!OEcCmE
zm+)qHB_*F>=?8{~KO_YVC>uavV;8sJ%8TdEEs#PG2S&6PFm6Y5lC^O~E`ocOW5-b=
zpV7AErH@W*303sW#9<hGV;Yc%#{|YtQffH)!RJfWG3(?I1gyg+I`C^lQ1^GDJDVoZ
zYCH`_fH2jSM)#Avt-z5y8$t&Qi0-Wbb|YHFhPQIMU>fc1xwI30W6Mz!CfjP+^5uzG
z^W{DvnDRq~Db<9VPF9>o=eYZ~+V;ao#Q51x%Bf)Yc2#FPEp<C}>RuV=$@QP5$1+m~
zS0A}CpQe~!dZNT1APzX4SrA94e4f<Yz!Sf%wf0_6>>6D2G5OTfn`lmet~ZyT-6ON2
z7&kN?NSX>GZ9K)_bt27Uc!@zXB7K132DStlG7zp9%-^o#X!=kYHHX@OhxTguZ$mzG
zHff}2NaV4P?t;^(uUNI)EtLe}i-i?-yc_nhCXr3Ioo_M+z4yDCmA!nK2k2-k$%Cv$
z!E^W_Z|dP3sY_ccNU!e4&l=ICme4i7dlvmVvvu~^Y=Z!fVErgOsDM9N3vJDbdf?#1
zYTy_*E~%O;u=zXH9l6+;J@A4)VUQG%Kl|q=*Cas?)rC*0!!f>R)6v?x3B_VKHOG$}
z(a>r5=A`DO>4TWb;b@1pAWfa^vu@3b(LB*EH<KOsuQopsh7ZFsYGMxpi?KYBBe3qm
zd(|BvJYG+x?ntfynl<xz0<54Ks~QjhKiE{Ae$<I>o^ly#0=J&^?Q*;PgV2X2CEuys
zijpr$@TJd4Fn|}jKUsAI>47WBq`R@&s~UIDUQFQKG{R<M_qIU&92W+~vh~$11^C4Z
zqc7hUSoWukTL4lAl8k0|L{{C|e7ri>-7)X;hifGGLCeWs0W-FZ!mVy&Q@;GxmBYXQ
zP~eYz+Hu+y#!g-RhLb|X!Qijx#ZPFfvFhtb+&hJ=5l2>zP5tsEzXkYx#457?`71Nu
z{gr)o=%Z-Q&jP<%rGER5_($t-&pSyeDWFmb$W+CsSk?oZ*k5obzbh*;{J1<PD|lIt
z_7HQ@id<#f(Aa16EV6Y&`VQ1y)FeJjnng?Q>YaZ2r+u)7X|s{6T*C&4_5Ps8BSRwa
zDCG49tODc5_P-;7&ZStQ7kSaESKl4{dgDKy`y=h!UUbao3A);`d18~O%-20~y(0zi
zSW8n=+F8}#ioReSepk-8JsHPg+XrCiHl@-2*<wJ30Zz{r%e}H<dF;+d1k__Q*Z9kl
zJdg)AgG8kyPZ5$trfUxyzN9Q~5{BTHFKI3I;uic6SfT8!s;a8S`W4q+w0vq4O>#kD
z`2FI4KKHEK6HioSj=12wdn=5<Dabwk`ZBH<V&&mhdu(zVr}iB(4zhx9+1V~3F79jc
z{N+>N?Q^ndX{~!lcln@n>eN?EMPLS+fl9Tp9(^~?u?j#u`MTIOyLaIA{~MZd1#@-v
z+O^vh(i0WnZm>ds>i%b_QQv{*qiQ1Lt-+Xv|9snFckezx??fsca@hN*<+ef;LH3wv
zI_m1MtyBJ{{{R=$KYGvl%d-7g()G>#3iP7lA+AX$Gd5u8RB-X+)ae3Rw-k~?!pj}p
z{PpJ_{lK}vJ&R*NkX1Y1aRX+-88fpkL?Ixt-BOGCED)>0_}B+3qa|Hm&Lq5L7rI-M
z9xu)X!mj8nNCgsi8&>!H{n?AM{GYwoz;7YgV5*GwaHf3#6ERLaius$5Gml~);#b=2
zch2pahChL=)<oMffTW<-m`FAnF?mZL1*K^6vr1#UA{JdykYtVlUd<J8L`;rmnmja~
z3>;?J)a!se&+|&$nq(!n#>znP!KO{FeQZN=y7RrVr}~3Aoe1Q|FpcGGR=qQdfs#>r
zb~PYiiP?xT(tN9DI-v1&>q+0xNU#3Fg`ArRQIko1IaVwbx*XMGGmrG+J($)wl09f%
zkuX|lQe0Fde(^CfIM}=@XRc8Kl#u+)dfS2IUc_yQP%kQ=yyYTyU|=8+annr5k%1Ct
z`0AHTrI^3?lSwLidLdj>D~EjL?n_|b7c8GI^UnDZo|C8Un-n!Qm~gK%<s}H)I0M`4
z7pcRT)kTov!uR$TID=$jL02s!8OiQJ0Q2Rb4`r~62yL0FG_&vbbf3(smw}oRqDmDw
zM_?R)auN}M5q?w#$#%e!WaiZ>o)!=%XY_Dk*)<!Z3t}Z+ZSv>OZU~P-F6(#>f2_E=
zT*AwC^`7n(HNG+aQx`MQ85`dn!bCX&NCEIV1D5^8a$O4)G{c1#m6qy21#oY22J`jn
z^F*;Wfrn8i^Xl}Y&rT^XPFJAO1BoYbaz`6n(K`<fEeO~X5y2n;AF$B06I+swC)`*i
zXZsM~5`U}j=rv5W=yn|MvxakWP>4X@OMR^ReUgPxg5Ck=Co~H96bNEf=%`Q9xAaBb
z%DC-&B;*$}WM|)?7pbtLOkzt6@+WXUsB|J6AILWG9txx+qR>a>$dN&wAt>Rn60xw7
z_My8-=?l%$EnzeQhw;EfBGA>$;eaiOMOx+DS^j%~^3-F5wY{tovSlVdf3m8I_eV-g
zz%BxjWA#3HlwzFYJ+$aZ#`UoExERvFAd||_FKXD$Yt-2u?Pg-p?P3#BFO*fo!Q4d8
z2|Zpo`~e`<%?N|&)rj*(Cf-=f0^arPF{QC(ZPdn7Hk)*;)o6OD=i?I~yel4xTM4xA
z#&|e3FFtHAi!;fn%k<6`EE<6qJO*QN6hR^2y(+}4Yx;J2hj7ty0cR-@WVA@Ihvb$m
zT8KS>kQkBfZv36sAItt=5_1ZcVUFUFkK_%UulchSY{C%WP*pnO{`OCIQB^~Z%Gk&B
zG6Ef6PMdYJKki4{7hM!f6Ai@%3gvUnL2zOuutO-En3}4AY*9uj>nkD$a4CwzGHe`6
za>+45N)-6V7C>?Mt|ej?z`-RY+PD@O7m4{mNhnk7@dkcCTDG9f&E$Rf7t~EZ_2hY?
z(m+%0hP*PkKMZLhs-BCEhGmMOfCn?}np3V{zrJwXi2n|Q56Se4<WxJ@Ln7QkO#uT?
zK{ekC1lmG9-BI}mg>@PE!$!+}XO@{4+Kf<EtLU37<W`7=Er4-~1WOEcDA*5WAydK&
zkN?~KeCw^L*L(n)8EDbtjjkXh;RU_*W})foo%Yc{H4~tN(bCVXZRS_522AY@5^E6s
z2Sz8Cs-Qh}_4<I_F(~J?K%Xh3Ln$~JlO9j>5sFe00aM_7i3FT$d^v?0-1_O5*`v-#
zM{Yo^gtTC;l{vf&Jr=R?^MrwvykUK+Ce9+-H5+sb#~mC+Zo)#%9S+J-tn6`1%fvN;
zmjO0p0K`y)Hx3L+CgtZlNPcWBOGp|xDgxR`N^0Yn5*w*9X9(;au{Pu?&|8R0Nd>{)
zA3Jsn1<((XF@s%DC5%#m0zu)BMRmaj<03@3M3mLkO7xZ(B3yvCHL{{MCxymSO(>E^
z*w(1b8LMG>g|0UlOF0@n@Z%QD9rZ(}@kC<i@X7%P>9d^@DVC_QMwDwE=QxoqXh^_j
z)PxhKfRBN30Ie3)JTxxNgoVcFzhijA2z7V1wY6oB<N;5uLzz8cF9;)NJTB8!M_3qO
zQwO2r9Ar1Yw<lf$8RMOC76E%lW&BRcqj#ET4j@xNDRme%3jm2pYF-mU@k%#RwNnoK
z3|^Uvg$iu69a;4aTHNTMC)!9|DUf4t<A;iGyhgPuES`?`|L%r+dDFrN8~Y2*f=E4U
zkF7ah%;18r788rtss3ppQ3pZDYRS^49T2`nA-wUy_^y}wH5}$K2<hKKb~89Q=vVg-
z4(Yu0t;W(Xuq8O*1Qh>T0lXx@xzA{^Nf#ztXn{{6nlTNV$jA9A`Ir&__gOpX0rU0+
zs?7QO6W(@Dj=Up4$`Tpw;}Iap=qjKCM`(8O|B6lSGPxzyIJ6sM&|n+E3aAj^6|YJ!
zv2>P?&7SuReuOMB+wD_~h)3sIf^4E=L5lqi{+m5f?_1TIBY)Yp<Y|9c^Ta{YxM129
z%}RRmMvQHsTqBnw=M}TLYVw++_|dt@GD+Yu;Lf0_&kf;%x#&b5TH`O*^uT1|!^)!K
z;^Ww(A_&3=T8dq$U29RzI_37nph{*P*q0qBBg#XwF2pt$(BwWv!TE=+1^3ZDfpph^
z#!BVr(IEIHtX&3@RG{g;WKt1n4H=LX;Mu}f%Yz3s4%jRTO|2kv4s+ROlMe}(jYZ2x
zS;y|z02u#X;5+{h-XnkJeDmx@mVpRDb^*UaG`HSIpDTEb$?g)T2G2D%A)kgA2=M6b
zLDXgNzksP3X9|C&2HU0@AaL=S8i-n;W$K=?x)CKw_km65cuv4JQK$qakoeO>n@l^#
z(Zz7NzZSkXa7TKULt+JlA)Y_TBCF(WdmxN?0A$s_z^KOcOa7bz^`36WT#5kZ5-=@T
zW3!84TQ*FmT<9l^#J<0cHut%Aqbft}$lYj?<6%&Qb92cw{soJjSd{P2mfd^%frtIu
zv%zGA$w4EL5r}0=xPeP~^4gy=1gZZ+@m$P78}{FpT!q}oJ0^=_lhl1t#ti1C%b8PS
zwb;Vwr}V4w+oXxuaNqrj%jOk3I%dQOGHXKIOx7PKs$~BoHU2eG8@~BTglNbp^QRW;
za*Z1Ey=*wSIEVcE0ZNs)ZR9(~MDs_K*aUn=XKQtY!IeN=AkC7Sua%&Rh!Zu~4454&
zScg^HPXEaU6@wq}c&$X5HBtL{Z}+E!eNP5xj$HWY^ZLF0VLG^wj&mH^_t!*|Ax9@1
z7yz?QShF6##=|oh^*7hD)+ECg(PJTy)N*Si`xXl{>KwW8;A=km-$s*(l!%LiD8$}E
zP}XIazoV<}JA)?@Mq^_i;kq8;_>h5aL?D4U?TLL*EWotQ>(}o?rd%0p;-lB%mxTak
z24;3s1VM13GVZs>Nja|Qppb#!j5!V=pc9A}asD>1b8Y%h>hB6AXK$<RTt(Zo12{3{
zi?ETW7|*ggR)k&1f?Dy>rM>^C08j9*?0+Aw&Q-4McG=aN{PZ8e3&@HdU%MC=iOrjD
zIq?)1{mGvI@wK4(C_FpcwKoL`5)B~`__S&O@HFE4*ey49X<?33U*){YxanzcgqZ}5
z20O)FAnNriuTpnV)V=j5ViyRBI{q2pgNo+G1?JiXfvlZt1YOJ9{j-*+VVCs|g`+U9
z`)&G0^fX^ZaP=RzG&xAw$vKQU3g0nr)np!gO~Wg8DwfRZgh-aI#hYW_^oz62pNhH`
zjck_ZILyR%CTrU!KAJ1vrbH+i4Fqm8iYh0KhWTNWXa{nbu8)zpCoj%Ki_x-wAyXTC
z_VbM?hX@nxzLo&=e2_Hpu@p*zcmY*fI@%{OcJ?^&knl+a1_7k7oIr6Pi!`mQtS(+I
z2`*E&Dso=giTXK--5+09l_3aJ%si%jxP9U0pO;>6<o_{q9$6Qaxxc#~Oc6NwJQq!P
zEt+!Od#3XTN_QnMzP6zy#XogHZX37J*}G_|?TnVv@_c_NOqGkThdr971QcL$$zeL+
z>lOdp`#HvXR6qZsu`A_rrRR8;%dbBDx1%0s75kpe_d3zu9kS<thKXONO*SJNuX)@9
z7>Y_qy9kXIM;~hxREd~uMS8sT^06wrbC;6=h~LZX>rnVEXivuwm^^Jj*&B@XJx&9O
zD=I9k09Iqtoqf<~^{FLpMkc3jS{2mog>1xr!6PuXiJ#ozo}r1nNtrC0o=}gQ#7cT#
zmNX^tAkBU@lN{(o6DP`iuZ~tg&lD=m=HiT46&Io_a8X>N#=c{ThEuBjxi2jcexNL^
z%h5N**=OK?6<>EF!_WVXucxe@o@?|KUbkB0n{wgg_h*bDkLt-CAaxouZx_icnanJM
zRl$CBVU~3JALAZ;Gp`AtD0hZ;pP$D8;gp9VW(wd9FD{4yb-D={>JsIN)L7Lhiktqg
z9!O&dq!)>)I4a||Io+~g`G~0|EG6PH{8&CgoDq>|9sI`EF6pZl;NZb>rJrWyH18{j
zeo7{%iY1;h07M@XPKU;ur;UN}R$zXlM8jX6sO%-uDD=jd(a;jgb$KZV)@1{gj72B1
z1tb02PI$9OC&RdL8%Yx{r0RPKiqYT=N7vTTK|>Be_xWxhR`niFbgFLwHCW`kEcA03
zX?%`&9qD-u+B%7QIV(f`gY8du;vMB7_t!mf|1pGPkO*MzKzarcivVYEB?efgtei#!
zijXlA*yA>(Bw|-qrF=@x1JK>8$}3k-4R%wb2kg-@5>e<|>&#T;*OjoO3dpMik-*@z
zesq+aD&=Dw-aRBl>S*c8H4RV{qhi)xB+)4IG~GUWhy`z)GF%<`((?1ZTC24DKl%68
z0(q)}%Ba&PZ^9*YXT(v$6hQbp<bmN!Hak$5954>A3Miw1xn&3RXuxl|001-4Kh3qS
zhaMCZkK}20>MXM4r{D2!x?wN}Fc_$X-sY)E5GyjSJy6^IjRVAkT#Pw51|8B4gsiY(
zhkz6Ymb$mzIwbyZTbBdidbJ3J8k#Sx$-^C@$WxC&{6Zq-#X{Skx45U+ziC6Dz{M*a
zf);?s<xH`-Q-lr-VB*CY5VjFvns_&9k6Q!xr^1}>aphDIZv(vB66g%l26U?eQ5R&J
zH>AUq`K2OD?)>WuRlFbE{4LgxItpvOKvB`dhp(C2#-y1<QH>mr3F<iybKjSX=)Zv!
z3-_o^)&mly!CC`5ck8k!+Ow*ii#ZqMq@<4OB(sX5-n=<s<ns0`@us_e?7`?x$i@7n
z66k2<CW#>fMBN9f7}~vPOjjX-G$4!!F5@FHQxHR<xXfXoqD;^<MlcH+$j+88U3wpa
zI~sy0u$hsb70$ECygby7Nsz)2Oq=L+CahXO^AN@XQM=ZuyoOLxT1pzPBkA5OEsada
zl2G#{X2;<~2O$EpL?t;))ThsZy@*ng8IY913awcm>LjCV;{oxrNNzxD#1;795IzKt
z-<dz&Q$-kV0N{8eR5j@0Dpdd|Borxx$59R1Qh|)v3GKKD(t=edS41!66y)+<gn6~U
zfd~@~M*>0a6o_~pL1aRB7K9*Z+H!AWq}yIXvO|zmpa5f^f__4KT^pT)QSSjUPBq8Z
zmkd|&z;v|TkyU70LpW{l-&#0DjZZ_Fs@KP=W?n2`ssi#BJ%&!y*y3-A75n6DOfai0
z((gSi4Bg9i4_qhF3l6ELVX5}^p1RbXi;X|mnx&84xl{1`c_(LjoI@mwNB~ypsXT{f
zBgy54DXIx$to9Z>dNN?doylID{AHFAI0SDKXqum>{ZCh(|M5McIr4K}4>bNt@)-0B
ztC)V|+VRP`#(C<qNfyue=DLep5C3%LvSzf#)f4f4K{elN?mu|w<eF~|X`K7za-7xz
zuTFvO8d^_|t&v++wEee>zt0gWYT9eya%<s%)OD(Q>^)VomJYtYeX7=$x8n=dDjf&B
zltjGkvpd4e+&R5!p6bS<t&S>jnxUbg{n)5OCxn;waPkUD8?~o8>;(Cb9G9$?-BOq%
zEro%B<)+Sq@gv&I7x7#U!VDAHI*a?ZN%7m8pc>k1B)Y@5M{e4nQ3#-32_}p>KvUHQ
zvdXBV1qy_&HDKAZyEE(cZR_@Td`x{N7y|xsg_Plm#~jr_7tDAz2S}9-W7{a2bXj|h
zpY}m@$HeCXWn;dAh>VQPTYN@(iERBD#6CZLBqseLccMNQ#VJJzN<)cvRN`Dj4Wxn{
zOXWMxAgr;@<}KB#RFiAGBkb~KEtEUmJk1BGS5ZyTw`5v_x0V>CT2EXz8yT)6qOT69
zB8rVYyK8z(kr9Ld`D}x|I&oG~{lTA*8+F_|BvNSSGZ5xH_H^EhcP2mJ_x%=*zBX67
z4RxKY$!L*oo%fM!!_v(O;dCR{MwUU3`u<+&lTZBa6t}HG&mcvkg+|dIq|v=mK)@pz
zt4;bt@tuw&Y84?4uRE}OPR-F7vV4!W2iRl}_BSWg;y6;075I4p0S%4iQBOT_o91A$
z0!3tD_7Xqeo%z-QolkxvY<`OBzJ2@RE-#-gG|WBpVje*W;_uyCivY3=hsYqZ7q1MR
zZEtBN-a#_1Ff=qISwD<q<%cypQ!C?UE~dr862axTBIS#`e?vi>x*gM=pte!A{ND9;
ztf5o~+QAf}TTVFo$C+aUXf{%;i?h5sKl;NQJ5y8BVJQ1BDR38BPPhV6e>&Km(`AVr
z=7Rk|+U^L+*&1RHdJ14oF`!b1A*Ime&2rL7no%lC@S^21x0Ljmpt3CaVva;|VqzhP
zkQPcI#)zJcnBkuMoHafP<$}$2E^YxD_|SPe!lf>;?UM}G@b=Q9JMUF)AnV*{QD_!C
z?DV}r-oY2<eNCY5B?Ib1^XebQ$H%vQ0y=2GbC`MTBpobQAh+Bo*X@)3h;K)PtG>uc
zZ!@Q|ZFW@{SHTTF3h>?nYwJyK#m0C=-562bK83Ar)OG?t6#Zr_+(Sz}xZGAv`7V1n
zLZH@^ys@Iq2^qVmAYQl&`}MHK+jk_Vxeau!_2~3gZ=P!4te`5|N_+P^#dm)59N^`|
zsH;}5P6wCM)(a_(BS?cY;4?;_iB8=_jhpnwaQnRg4ni(nx<n~Fby+wlz-RFOe_Y4w
zuS<Bnq|6M>;a-sqODTj;-hQ^|j!uA(vX2*V+)&L#t^as%^FFcOrY+q#`y~JfBG4Eu
zt7a0}UIh6x&SbY8*~BTEX2>$!sMoi4>G*_sOLqT;5m_2dU~b5KE%$B~mre<@$<$No
zJHO-%XsVA%RWpQ+R-V)%H{Hyq->yD`XL${c-5cSAneTKiXP<#+p8R1OXT5%Bgzo&r
zl<e5CgF?-0bgA#zDM`M$N1LDKmxa9tVCFSGFBrSmgJn~aKa$rAywI3R_ZqKnK8o(V
zborSJFEb8~O@y;4UVC{B9R!vyW4yMerfpaA=uvv>UDF$dkXYu#%+Qg3NmUzYeLg66
zv;E$6i9%;|1GX)%%Dg0D>`j4EZU1M4c)Y7$c8Ml-2^0?$^h|K1pFt_XC^7vQMl1zG
zLTm8F^I5xZnXR?4;NT<?m7#$MCb?(VgyfXSzBzdzsDLxx*egE6$?eIqw6ZFa%K1p2
zC%E$@%LWeZG`M<BQ4~6+oxxfbnk$dLZ2)7E+>q6oSJdV(j5l<Bm5jKWnwoGDGhN0h
zc;6Dm9YD_Pvh9wWLv<#L|1Klio%2QF=H85J9}?Z3>_YkwRIvWwbqjYx@xa>0(?xRH
zo=|j1e7T8iMBWf>h8ueD;*xC)9-Th0YSk*8(c>m2QRM!!q0ZdyGx2$i%bQb{*4BnC
zZ{jpJH&6Ds4xrs`N05OnPs2NcaW7{FSLgc@MW$UXm%S+x&kk>Vy0`^T^04X=Oc2vv
zhP=zh`;Q)NBkvDayNpLks+lDCO@g5m`J0%y89M7yb);aFLeOjV+CIC+@{}gtFEIzg
zI|>P7-Fv;<2*#Wf94!dk6`U-JTLOLSs_HZs6Kh6VO!HM{c*Jr^Z2jglkbKF*&KgXr
zwV$cE9;+pO7CZAb<nwp!yjoUM>DQ##4{A(R<1|Z^rzbF>$S$xs##lEZ@!l@PxRPxS
z@&?wA4g}QBIiT^$&lO!2Y3>b?8&>K>enRW5H(x&qD*QVX`43mtD>zMTRQmK6r4Zp&
zeRxEDZZo3KA;E}*pJgTxV-_bSM1~S?0p_3xNlXwqp6-}!Q~TH#b`ydPHd$nMR0u=?
z)INg<unguFf8EVkllA%+vhv83RtfTsq5Qi|0om0iPFq629ox5AF!czj&8K)#Q=517
zJT`?ypAH$J0@+ps`jRzCN4&X#{5Isu{Rpr+GOCUi<KRc&(^{i12o^!PkY6;#*Ib!F
z{0ICJyX_NkX0?;PgZD*QyFs)m8_k*yb_3)#bW|>gFA#A%2}x{2T!%;VcvCR)_6{gw
zOVJMfExyEb$PQ<EchiLA9nMS*C{Ig6(6blhY!GolFto;*Z%$u>yYLJ&h23*}GG{?+
zRn(MI&*PRGTTZ0@>g??7jsUJ-bo!I%Tbu;lMVAZ=F1Q*M=(}Hk`SPW9t%&icnS;rA
z9oOO2+RLrbZ@h+?4`#F3c$-^se9F==8KoWaTk9biOJmg$VnY@ve|~C+&^tuV&bX_q
ziwyZ_1=wFUf2ConzHfKpqPqJZ=JX<j*$zaBQfQeF5roJ%&of45O9h6v4IYWyEl*8D
zAN3AX(eV>;Gu(Nn174R2JvK8l^O<Rb*FXuC4jY+T6DJi0#AYqEAA(b-&tAfb@6(E<
zicx@)4)V?nV7wlz9>Re%s8I<Oo5*CA%~`PKCSGMi+g)OVp-?<YeCGrPPpNx*dy^lA
z#)|ykGH(7bOEx&;#9Q`tR+-W`9JDz^98@|2^6ayX@3Hor$$E~B(8xZ~F%7c8NaH|D
z3kwULCE7&@Z9j8Z>}dF15Nw$xbxO!$I~JLI-is)RwL?bcEa>ym7h8R9QRF+q9n(;*
z<(x9RG8hZ*0DCV+MND`Tdq#=#`NdY9(Zc6Y&kY1Jz0L-15CWZ2=bXQJHO~B#v3J-I
zN9osp*>*Z2fRUVBjQXTxFTO#u3LP!>&oK(FuaVzQ?MI@)7#LO1e}<>N4ZW~pm~|Qz
zL{r2P=;wrX+Mh%a(KM1j(gs0ksqa*WZ+uFM6xYyEt@s=gX%+fJ-(}_3#GInRU>uJ6
z6Tdk?UX2{kM${ZJg{^Lcuu!u616zq5%IM_d`0-Ie`}8DdIv7xS=HTF8>R#)z8eI(N
zWD{AZXO?-jOOHNX;&T&0=N6beWDc*t-xz+An0$5m?$7To@C|WJg1zQ@e^?r2q37`)
zpxLVqrIBpyxg_*z#{sh&okruU0{PaP``9rUTqxitC5Qb(>CQPnfoqkgHCe%wlY@%F
z2_<qe7t1x2r(AC(uZw<TK`yon61Jnqj~_2p;6KEGE(`w_f=?ZxH#ihaN|wnqZ|X)g
z_ECc&k=%NsTL!@zMbAdEaYO;HtoHLn5r5S_-Oe=8pS<2LGI<4IoI}I80v5XrI{OF+
z1C=&LIBDtzl31y{E!6Hgt57T~gErkhq@$aE>n(X&#DGag1tbTc_QT#YP2+@__uPTA
zn@8mpsXf)1s#^183OmtGz6bJ@qv(Rz-?r6P9^yHRsd3KqE?*e;`rN+^XyWp<o|9zD
za;EqkGmJ`k_3diw^2#dgB{~JgCzb=Bmw3IKNAt>eKX}f_$S8sKrwp%B{+)phOPjDV
zq@lGt*fw&GS`oCCgv&c>>gomq)!0^Vn`5IJgonUW5Ys~8ahc8fBa=X7n$nuOK*?_h
zzCipmX;u(udP6?mNbaqbQW;RV#(N&SG@n60A4-8Y)^CeHDKQN<cZ41^EmjD8Xo~cn
zl%M+CGEm<<B^xzXozRa>k$Tpq9<5EYa(Yy5u+oSf7ut4uzf^WBeK*wndTD2<VTuf@
znp(-KD7)UVzsrv;U*d+)cjP0?+FL|z`jPx*j&J5$voPYck-HZk-PK*)rR78RNQ`Cv
z`-vh|txU5v8C{x{RT@H}Hq4wZTVY^*3uaXwPKC);I5^-g+hG4pu%`ajs!;P7V+^iH
zZdhim=1Z(J!{H-bb4YRuTO2r03GkjEl;f|%$#Rs!6Je!AUy-fp!Zj{@L~q6GEFqB<
z_{Vl~vbIAk9TZXm2ME8)-y!0Z1&<ChX-E(+{#CNnc`rpgKi;CaLu0bbX#&H;NQ_A-
zBnRLj)GH;E%?RZvh4_WH_XeC}FCpCCMRkC;bNRf6oF#lC1OdGaw!#S<+O!?Avh7%6
zmjHifd=P~y1@3W;bM>*eAR!EFGlD2~&=e?ezimu}Z7x!k%IMHtNbcjRE&Q@7y~Zph
z<r+BOv-suL#P|H1k=YLU(-HbdH2f7-YG&7#d$q90f<T<*b)eL>{PzVL++A1L==#ez
zb(T{Ku{P;1TSBAkY~1}-rLtqISd7BDu0Mv8+@9q0?`=R}k}}vwK9L`>&GaROiWxD9
zf&s_G1N$$CPW(!BsIyF9WjE{_a2FTu%hY}bO^_q@tC+j%%YI;5oT61vNJuJOw)-})
zrr!V#*||?OPfs>GLZ{jh7i?@5vb>?X`VPrFi4~@|Vmh9!t~YF!d(gmEpHJ6h^5aW-
z8->inZvj`!ZM$Sc7^zZ}VoVhHP8`ayGSH<ZFRDw%@<4_>8dT7&CrzU3=uVKF!ITgM
zXRCylZ|yjfX+QzZL3obhq`vL)k!y51PCo<PNpJONE$b3)P@4GDv@?bDiN@whBVux4
zPKiZDbsBNP(&s)rudb<Kt(mD;MAU1TS!b1u#{XMkCrPgE!DmRr&ROHljB<S^xh^%e
zw;oNs7oCD1WY~F=2u2;nF;yJj>7a(B(a2*UG+zPogRJQ`k_%8mGr@Yw;}2I$bHf?>
z21ez^Mrr$>%?5@f{lqG1j}eP1zz;<I<94#KNwSH0p4j82GG)<|9oWY*P48%EBpssY
z=|U1+YiK<p6u9hK4e>zY6*|baC+i8k94Vm~(xy`+^GPpNkU&KI`jGNiMUZJqZhuh&
zo@f-ST;SEYPZU)yY7owZLPOG#l$=roS4ASIjO3IX*IC4?L(V6UA;am25E2mXE?&G?
zQuSJpN*oF0vp-yw*pANfaFrVozn#T#DQm+My;h#AQg$A0GrZ5LncrQLRXH!ezeqwJ
zK#2n&jaCefEF+N`c{`-~CH=(;gIK%fO!aL1ht`a=(of3u>HL*vFfeO$i0K=FBk#iM
z)-`h0PJ#HCbpy($yR!T8vEioG=z@)RA8N`F6ehbf=9)vrft3vBhve|1QKOsE)Te-~
zoKm2n+SU(S8}$lFzLQ)J^e~JZSj2o?tFp3&^mhXkw~6!wjl~e*WU`|b#YOsnnARpU
zR#!H0`u<v-P8`b%EdzrvywS6OcSfrdlmd}`esTmV5)Q29Exee4t;e^6w#!Xs^cm4|
zNl5o`8bSfhwgZ#l(;YFVR~pi>VppV2gS_>%bJ!=p?FBG>Viv|(_+C0{^hha+IlS5=
zOcLD=Y61pA;(Z2_oJ-*7j4B?T|3D5g0wgVu!?-2Cy$|pq;9HtEm<FrF?FP4Kv|U!i
zu)Tjaebh=Y>k|~(9@}=w3g$1_#su?^Ow_BhKHR=IXVcxa1M0o~j$5KQm80wl>q2^o
zRQILy)cm{l)7^?jdtXeJHLt0y+JKLVC{L_rq5I*6cSg6NIm@!%8eAM9zZ~BY5a>NM
zoB8^oN@s?jSaxT&kyv!}mokO<8)g&9O%L)FXD|;9qfnpUSP7~EoieY#e(P$<J4M7Y
zRS9KD?&kmih1GLg>8etRT10ZXM-KY`6Y9YN<;hxG-XUY-)F*bAe7StL>DL?Rs{Ww~
zxJI7lEL@y=Lt%NJZAQhxz@(Yg@N?FBB;&?YA}MZT!lTt)owfjA4O#{~BxUo4Q;d^u
z87JR1POcg&rzL9XZ|!;@md6{ara9{yFuO;mmiRTPJu%pWj7Oh;dBUJkOV!oN=H+AK
zYii8AWNw@<uYE83ys@V)v*s|fF&WGY|A25!tXy8C2jeJ>?+mo7QR{nw0~_8+MkA)*
zA*<68&dHQCe4Lt~+9`{l@lgBL$x*oRcXBnWSZ)s*aF<i4h?gL*X)txxT5s~KhRXES
zhG9Wyl^T{bC;G}ax$~>5t21h&J`D5X_1VX1ihS0a!MYp|#>-zdzFtUMDwumsA&F||
zp*W-;QCo|L>xx$q*py`TdiD)^%%ANjxaarpXFxrHg(|bfE*cuMvfTfLSG(!IF7eMc
z|379e$a&qPj#lQUNY+iJ&AUTYo_6x-AJ#ZkBo7u;94!BcG*Ece2)M5@B!l%09Y|4M
zlOXWkCt@`PbZYr?o1i)D_;cye6WyaYpo$<ti@_ZdL>6h&HXKO)4wr1hqo$@U`WPdK
zKM(#iUfBmnLxRc$!cH0x+2)|ZI~44LRAi1MmqJbMPU7334GJss8BP~gC?JqE>I8HD
z4xBmg50kizr#bI0t!{sqURrc_n`s)d0!+IQBT3M=KfHq4YXA;Lk?H^tiRmnBOS(Ha
zZ<Qc7P(F`xtM?HyZiGFXFA|~6<>Z+=vxx8;QAFmdFS6v9-=Y^t%zn{;iCo?W;)~l9
zA?T+eQmVeUjimk!F7-C<ytv@)IL=5L*P(!^j36fP9fc0$cm0fyJjtPtjg1+4eR@Hq
zR~_BOc-Hb7%xK#u2=1g2zLI%zWU+~37zCDE(y~%g{|>=4YP!Khmm;rfYX4<XEu(es
zn=`l7YCq?GF-m6#a<XsQMsu5LXfl<w5%?p$|76uL;=Pkt0&(=yVgj*39_2$4;kvrI
zj~IHz-~AG`9s?u`LIGVV!ocI=fh1D_$JK_Munayl5b-4iOr*7AI8t<A3oJdFUHJD6
zVIH+K=gO~t^-VmCOu8Pd_{W~+@mK=Urr+ec%W04biveU@W+40Id9k+@c9a6t)b+H5
z-dP?hvUEtdI;xMWmjGq&N0o;e!gM?5a0FNWvULw?y2*~nHtf;xKT!LhKeVgRSXa=(
zql(rf>`}!}<aT9b8hcjJ=IkjL93vpCIha59cjp(7T^N4urI1no(#rSGE)&>+gjsl(
zRc23eDh{r01KeQcJWik{h|x3M^R03{jsG#V!j&b?P7A*HkDLO~q;!hEzrS8;^s1E|
zJo)@f@F~-T@w7QAFxL+@w~is-K=i!QnA1RZKZ-IMRY_*FfeO%%A+>9!G`ZY!u+Go5
z&E6GV(?WJwYTEP!toy13fX;+H7*60P`WY}6MjkUAq@rCr166k*95Hk#+>i|oR2q=_
z*5;}1X7=s|QbHz;<dniIU)(_Uw?I=ex8$9Xd;?U!XG#%tIxlohPzwt}5pgSqA{n)f
z;$^m>%GVP5+ZPx)nA<jrGR3pNc?fzLN_h)#w*UMRujuV1GuO-0XNEl;59Um4n1PR4
z5#t!$kZ-@MGeVN(C<X%Szz&?7$~SNBV!Xq{elKuLXz3!2sw|y?dgN>*7(c4Dgj}sp
zH&5!Fk=~3+Fb%7(rxAh%QKYo#%j+bF`U<^460kd`JJUcAc=tyzF`ENb0yoXHorxZq
zp9_6(8A9sH_c(N-Q3!IG=j!nWBk_zRxD*x<C7%_Y=h3)omiVdJ`~MTiH#Y19+fja7
ztijh)Jy_%1^nl#uA<#ntPD^Krx&QLvh#LPtjc2;*tLCTnz+v3Z_pbNhhq4ocdaCuy
z{&OseaB}AFbdtL0K$?JsLGNhw!*!?xKZ?vNY&^F{jpdYp8n={B?s+T1Nc5;`((|uC
z5)mKyYiX000wf|#d`|QO#C#b}yh?x!!%jktwy6I?te#atOl>76jNd8f(QTBcvp!E}
z<ILX#){s648D-x@{}VFe1cG#v9Z7s?^1+f}{^gTve)*=0<vOJAKd2uu``6<*Q^3jp
zzrsX;|2~!ZKPJZe-|!%_VIq1|oU#Qhu^TcQz0{MxXQCEh4R8#3u)#n>(wqEeO88UL
zj92%ShDdJ&RPRE<s7OyV=^8*c&kjP|g1ERzm^QhVnOrhgmuVRD9>9Dl)V5W?lz@1O
z5$YN;{&qq#0C%(@kSK@@_dKDQO4XBU9%r9;LOBr&#KLz#&X@4$YXQ^|g#t1E1hhiP
z8M4jvAnHgs#@A<WObjkZGPszaOY~Nv_OKa8_~VGOsf|<=vrUPJ&RjlPhPWm?ED;uv
zVDIy)k+(oZZ&M)ivkwTExmbB9!dKj47?lpd0Foy&|8eU_FIG_L%77#km1f!!?V%Af
z-e?0{hdQ+?Go=vFBb|ag9jL9fOlo)1IS7!#p`}f!IhPOm+8mugY--ajZ04^l2l<ox
zvSUc!nw<7p-S<DY{&&Z|4ymD9pnwKw>vuL57KiDW78G6Mts`h078+W&yidoW0Z<X4
zycsvDn#!~52IC`<ApUduzx>CTZkt2)jOFn#dQzX&n<FX549*clh$9&=K4{r2z9LX0
z3*k+-f*q~NcXD2YLjK{|U;VawtT<BYUVSGE1s?Z?no|>J@?504^Zl9_-1)hyZ8DD0
zTTvKg;~a&-Zes3o88*G@HzeeH5Ni@wuamV^KVy>}iivW%x>V3(!{+-;G@&X<nkwus
z%1c>-jyQF|W)1R{hV&JiFwPalRZ5$KizR87bS3h164YehQV{FI))I2kgB>mv$L-pI
z&Zv~$sVBZ@*rRBu#;v3cA#8Yy$eB(-T=EKq8=jA2Qqq-%>zF2-pkBE-*insYwV}!n
zO@K^mn^mWLM9!f~w?^dg&#T1ZpwU7(;&WxHzEKAWAE|Ug_x$@O3=ls9L!x9OC()_T
zhZ&y$<9U?+5!>tEKNm(hB<!pOk_h^lNc3>pfK5SdGP>Xh<Vg>-Hi7mK`gpNS{}r+^
zIv<m8Mu4BhZ9F6CK61&Td1^RI+Ojg1Tmd>8y|d$AfHz0~0$CZEIGhhW@PmJTPxsqg
z>UM|LS41pbOcY0`-D?H$S_H^GYM-DyMRfd40XfUYvuC-_I8XMS8l9{%8sIq`RT^z|
z5tRnReqB^K|HJGFewb{WJzKuKN9Ic#@&7SE^uNIv{lB<GO;*C9Xj81ZdhksMr4j&m
zwM}y`hq6`dx}4GHfLGPQR31-kH^yAhrb-i;k&xW+{NYUF;<hy7<X0G5F{FQShP26x
z;gao~IE8OHs4}trJQ(Y+>4$U^4W)uT+238|rAJL#Pl4s5%$OF?VGk}#bSaSfPia^)
zN+FV+O6)$7ln4AZj<2`51LM6-0XLY`b*+x5nYQK)YLeIkT@{C&<c*RtGi8~%{VEV$
zL_yCqf-iLu9vDR?kpS#EpkU<l9N5(u6dsNN-bB?xTK+UvwK*jc*^OSV+c{Y%RvHk7
zD;gaQMggWF_~bNH6t*Mvp84HFO8vL0xm<JPUuD=7b>w$JAH*VYB!M<Uc~2a$<5I!s
z^ED3H3rzFGi0`!P65VQN=rGdY4>nLq9&ZR~qoUz4u3o0K9+6m43V{~f0dd79YtReH
zwczePu+^xh>%V3)5o5k+uAfWl{+X2i|4B@z0>jl%bwJ|?+C^yLY3LNp0#_d!Ol*o;
zIYVxNuckNE@Bs{HiU)e&%o8DqIp{emors4nC-d|Pr_;sfBk?6^Vx&}pDyiQ9?|e8)
z$vX`XI!Kn9Nb11N5zrr^0kZm5AQlPv25ul7x!%l|P$vswP6f<j8bnb;<fmXIV6J#z
z&``!xLsqoic)<_9+(f3Io>0u&4%!M3#}PU<$R?0Ko@6cIG`FL=jRKqyuhtwQ?U}`d
zSrCD?m{JHHG7YOdWPd;))#WRIm(*l=WyU&a&ua6a!~6QJuduCFbEK5tkSek=Sik|~
zfM;>TAxhpJSi0?2)ek1>Ig<v-1u{E!5btQimA`=+n>D@@p900RpDEPwiweph=^(-l
z^pt!H`eH^zMc9fp=br!c_VhJL_PuMviCRp6DV})n+weXgu^))ugj^rON88RAZwM*x
zLg=xM2<lLr6hgEU#8D8b7|{rUU{lR``4~Hs(ClYn#NVQD+!5^&JN)Je9>!slbE;5^
z;IYz8mNqh^^K?GYVs<&lH$h{ud*HQn2#VTBJtOgZJjjm8h9rFIf;IMgaC(~k8#5U6
z-jYA&FX{*Bs)QG?+B)@j!rQu>YU8Ke&uhXI)R5io4q>JysF{2VNd-IRqhR9maRop%
zXmr6TgzBBJj)bET+T~&`sPy@rHBLig`GIk#SnfJwY3E@@$x4~yaUPO?%N*aJBz@JP
zq&md-noG$ydwR9RgNxfDrT!Qyz-0)<L}PV~piVR#3(FAUmY3fo)KRxW0qV%okmS2$
zJip4bU>4>~MmpE(5hZH!xYws^Ca-@ww5H<ic8M72yjm`|1LI^pu;%G6yHT!dLMV8m
zaNzuy>h|da(X-n05LN|n#G@KJ1@dxmh<9NvlWpqB>JmBzB826MS<(viH1m8hwt=|^
z<2iS~YnOE%TB}>4sZWnifG}hjM9aolIY)0pa~KdIFe4k)l_#C(XD%$3eFahD@kjc*
zlBM%V(L^?opZeXyG1sJu06;YG6eRAY_tLQcAV0VZdNZk}1-&KWF-&>DahXCLts*5v
zVLWmLFElYd5C7cEn=n6kEG2|qI;0;<6BF=YMsgI)^2i~CXu%8|bqSGBkbo=u-5-l;
zJq&U3z|v%8u)T?z3Rn}4J=u9GK@F#byJe^tXi5iJV}@GV8KFqAR1TP_d}1648$|5Z
z==&wUcOeLo05R*n(lyN`f;U8DFyQcKj3pkpP`2KhaDSYMwylJd+KxcR5cmuK#Si!K
zWg@5`3MJrz!N~mL5wQ@Z40NrIMBah5Co;AHbl!4dwZLX}6O0IN0#J&n1C$<Scn?IQ
z=s<+VJq_7pFGBkAW?myBDLv1nofebh9M3JyKibGhA0h$yC=qR<-|hM^Tec-6s=+u3
zxzGw{;{*(#fV&<4n-QvsL><s69BC&&E+GPmn}I5{J6^Dk`Ey>RL(yjWiN0q!+5OJk
zx5jpl-(Mn)_*7uv22jRR1_IKXh>XCPuS3HG2eM!yomM6Pckivi{NSyBy|+i(Gv1@n
zVJo+`HVB+|!%=@nh=c-ZG+Hs_O-sa&pICV!*m%09cPhouz`y_!<jdU0lelXs@*8&9
zZ9xll^@O^+onZ^wfL%J+*w~DMs5Y?~N4L5n=p4^vL(G&58dxeR(*fAAQ3``0i4wG1
zZ3KzRoYduvX_FuEBJ^RV4Z0Y$5xL0Br(vnt_ZyDt88Cab6FGdvQ%0VQ>PL$Aq=%$X
zw=n^+O$_-ts6(b34lLI>>gnl?BUTL2>L%Y_&t{3TFgfPT4?tmE<sax`Y>)?&m`853
zABj!Vz8Y;EgS>pSn3s%_Cq8_M_6d36$#MNZY4L#!Mp=xBG~*$|IJrC2(k4o%#;GJD
zB`V-RzS-Pp4~8g5bicMlaB()QAwBlT^nluUXb+(!q7pojaW1OeB*6>PG&Un8r4RiO
zw^7reTQ_@?dMepQ6umv*(E}({;x=p<jP=8?`IO%L%OKW=#p@x`EPl<AVfgQK>w6c(
zY=-)jb4{W<H`9Y53+rmZJZ|14{M*SrD07IU5S_>iT5`tl@K|H7j~r;V;+6S*7e%51
z8;%_qSNM26(<2WtFFiM>$6CFt_2Hj4a+wEm&GhTdX);FAtQr~%{~QWAX2U&lVBG5)
zKbfEUD%(hW6pM!;;;BqPqwu~}h|WmxOCbW9+Q;ex7smmn*V;HcUqt<`7*z@TC6ir7
z1S1pz;$~G>3rR448flVwPy7m^x{cK015=(dzDvgtAGsd87+9sltcjP-ThZ;@btDf2
zH!S@Wo$}TynIW#Pt81ao3{V=gK&!?O>C&C+kwtz?sT5DKFu5F2q0fYOfKAYy5jgY=
zv)OwOH4*#Hsxim&FuE1iB}UTXGnJ&1x<eB!q5=d`#cJQh6*tak>WFqHH9fhBkB#F+
zUI9_9j=q%3zeRNZ$WId?FN4N1h&V&Yd%Piduc(T1DS~GEE`?AE`i&iJ!6rxPM1S9?
zdE9(Q^WYhXONCIuBwpWy51|wSjn>b*cYMGoKg^u>u&l0&Rp%7XjmbMIoJeHINMnj2
zI}U+G@PZcWHS*n@wAWWp7%+*z!!>^(f(TnT>=92I&Sk<&9KvE}65AmJ!735p15-7J
z)J&q<oJPx&Las&<6*@s>5gJ+B!bt4?^n58%=b_(rKy__xrotj8@9JBenYV8ch3#C8
z^@sn9EW2)%Z6@B;v0mWeUw*+-+Ta;bEczRDJEp#hq{KU9LMJwXX}M+U80is?z#!Rr
zHLgpN4iaDRON{8dx@Od7XJ8cx0zm>=?M(EP+X0D+dOz1rzg8FbC+Qla+?`Q{{0qL1
z;yZcij9MrsB$>%nhjcZ$xq2`IkeQl76|KTJ!8vgR%A401X%dN8a(jz45%0pszwMWJ
z$xk019D|tsH?mfoiDHhEx#e<h(+H;0XG;d4Id>FvRUIH_O3^aM5t&@P@AQ<BG0hy?
zec)pOk%oX+D8egjN<#(U*$`P9eH0=Gf!I-q8gJ-eGum%-z2a=eIk8fY!Wx0UxaLKU
zzYvbU_!w3y!)!929@B?%?|YO&s800FWVNmlckG}3bI=w&;>=c@mds`efjuWLfKmuE
z9RbBj+>A=O1F3fj;t0qLZj;ovvrw}hpurvJ36!B@ISf1M0$F^`Fo}07hnW>A6D5U3
zocL@dOLb-qA`5b84(9<1NcM_Ary6CVejC*{F<~WeF^c;PD$wMIs*k6GLmAo=7+4W$
zjDFeSXem-Wir6X=J*?V+$CN_V-@kRbe=7-ti4=+O7m6B_Y?#~<PR}HA))}_x*dgIS
zBnb*c!;ykvh+aHZ6BT*`L{;u^i|o89=ZXqnldCQz8B*RWCPNby^YBkgBZOBzC0f;G
zhXgFH3FSH^Le?Txm?L*2QH*S8BFrJd8FAFaX2!walY<90bX#<?^AG`vh-?PjV@5)8
z_Z<=znM`)+4nSJj3QN&1UJtJC4ikcnQP3QmrW9X2h&G5M2ZD_fFpQ3s)QyaDoP6)*
z$&OU{Gbe82umu(HTaMfx9@bwxyUlJ?LsMVh3bRG+@8Nc%8a$j#Sqa&GRz<|^-FYwQ
zs7>t5jx!!A=E)-bCR(d>l&f^y+$YF8FD`LEua_Sh6!i;^1Ie6-Sc$AVK~RWFmf!7P
zSXV_G;F>~BK!o?<U~?twzZG0_mju+PUb77O-U9+tXM;(8jP!K=G9K1#Y|EHT6?;&>
znilUo`Fc~o%<*H&qH|8#)JCZrB$eXHgRv|U<ejax4X-dJhhVv`;VsH&scZgiltjwI
z38(^bLpsv`DZqF4^yh%-yI_!JIHe`J_3juKUPy9J@*ay&Oz~JHio|LLJ<A#=lK<l0
zM)Zi%#}0Hne}xRq;iZsy20Q-Lz?LT{mSNR=LfLO<YoncYZPvAEXCA9_b|qD+4G{l<
zY!Yw&{8BCr;8{Cq^hs7xD(P`cT|J)^)(~n7k(wT}IVV%Ai*JupEjh=2pe~vp1`mb^
zmf7|RIbHV4M}%0S6q3Ar$RXay9OfN{T{Y?e$4s9)lJSarq@->j<k%oB-t53A{MPVq
z7lNfor3-~>MWb=+7v<de3=#O9)<&5&SwKuOJ?W?m>p(Sx9t=Z%II4gzE?yg2Q(fJP
zWTxcaWf68=CaE>0rlA7U)m6{NYAXIC;)N1$qJ$rlHNUxo6O1m#9?7&9q|%s5hmXjl
zUG0f>?q<FEvItxNP5oKE<5?s)BwRVlGNS*eaVcdF)=lt7iSEg&KGe5u81JbN>To)R
z7!8uKr)<uhCq9{P3!_f_Cm|#k>gWmaEBQsLHo4Q2y(TS6cyX5QhA66lI$1mO-O<jE
z<N9~7OS;ps9>U)0*W5}n#B99HmW_s5s?~OolgAty*=4Yh0l*1`4K(_)F<lF8tb477
zL9^cuJA>xhHOUz`77d7Ysq_G^*7b^pB_@mswYRWo+W}y)e4gzFxE2()jO8*wFb{Zo
zlv3!D4?oO2P=n-YSixC4kKe+f3U{+UP1AatE`%x!OrPh>`}uI+-1!%+B&;MCUb#Ai
zri_B@%;?%WDMprdg1$k##4eSr&#cTQ=Z{Iku6jnjBj=urTR3wi#dY@6p5{DUs5Sqm
z-)&`oT`SK~z8h|GlX7!4wR2qNcF4X`$H-!L!S{WIj**ArtOhGz+a=~TN1nKEf--c0
zCp{uIa+!#_QaUT+7Wqwc-ql@Ow(!7(!QsCfe4OuiiXE@xJs3Gs``L)a^%UDTIP};3
zCTXG5>Ri#Ee!8{!mv<YIA3L-yMB-hJQtt~A9~IV>tU+O@QuVm{1GDAU7~z^D^w;Ud
zmj#9Y*n4jes)4)B{tW;1yAwGsk|?pdfERNL#8Amt!jW~iepOIdC4i#prw7NAlatS(
zd4RysegBW=6K$OLw`bH;l-_1_NqqOm&fe&}-E(bK3@~osGWh;3FH4d6uCA^tn;i$s
z#P*@l_w!$`DoQT1uriQwEVKF}Vk-uVEf5$)Kd|t5)wNqHm^bXp&RFdd{uEiLAN6$D
zt?bN|dmNz~<ll-@-jsFgwy&6%duBQAd9FY%PJwL7Uv2K5p4S4x&?)L2s%bxLdK4PE
z3NC*7DPS~#j2pwvkI&6R3GaiXq@Q&!NJ&UMgMUo*9I-u2`I$nYys1$>iw0f??CpPp
zM#{Qc`7C(e%lp?o1p@X6osAG~%oRYFBQpP;%~n8hV7b(a?c1{$H=c)QD%81ePsm4+
z{F^*aIg#CNzZ&Q4nf#88`L<j1GrmKo1bauveQs`#S)t|DwVkU=I&La@iC9Xr7|WM0
zf5Uc`KneZoEoNHBk6%E=trv1J0rX+|HX0pKbdovSUh}wcQ%li^>;<ylKT)WD&CyLf
zP$f1l?i2)o0_7*?$Qq<o%UJi09BI#}s^|%M-F^HJ+kE?o-KF)7((-l9ht{oIcl_`-
z-5o+aS7v<tw`jxhq0EY<@71b3J|_A6tbl-!4R!zTTHnekDT!bTvBJQE2M?aWl?qfd
zzmvRO`0#{jRY+BBf4>99YTt{A*=siik*yfIly!d)YYNXaW;=aP>Xt*8IXSy@9-cTQ
zxBi%jlGmov;?1`X|4<s3g?6vRdH6SRT)J2NymYCvNJ~e@WwgS2^P-E}o>}uVhcEde
zJX8Nes0FpXIt#;e3ZDd%YcY*&23+RW@>Z)wlIO>ZmDJI745=gcas&nMC-Ie$m&nXM
znib7;9A~Ab{)p)Ti{nkpWznG~=euv_24!Coeji!b;G$5ecstw1Io4B5b)v)`$HuX~
z>+r~t{rd;U&x)31-7>0>Gru=Hekp(DPS4>jeq)EyK7JBiZWEtb^X%C?G&DZo;h})(
z7WN}OMw^x`B!hjQK7ES$;y+AGPBL`tj^C}Tm1}aFhhA{Y(Ln4xI`6k2X8Z2D@AjaN
z#=7<EyTu;#t^57QA4)liy{iNT1z%#^#m(?=^b-4FxA)jGbb;BgrL_#mlx6UJWi^}R
zYz{y3q?JL5V(p6S3}#lA99qqz+GM^V7Tew3{Xt5~!GasYpU{_Z{f-^Wz-O?+4%M^d
z^_%ZLyPN6Z=5`XoD9oXI0=3kw;NZ(R4WGxxVt^1_xqf~B$&=9~7fz4etz@FAoZJcN
z0|MLu6-&GQ5)w8d+FcAJt5hmKy!=Hq?ai&85P_;X-j$IfewP1UL)DC$pL#>CT<ILS
zxZdqA%-f#*vu0VxyZ@NW?x68Q-@nF|Z~FE>{p7sd{}}%+cy-R#LCM&%3tkBPYx?tr
z(|-S&+5G#qC;u8R9StjoUzq*#KmRzv&Z)`qn<{bm``BYB>BT@<QPIx>TQ_Y=b(@O+
zMbTqNtmb9_ZSx|=!#s~xTgjj&_aCTF|NQy$l>+b|alf;%n$``EQDb|34{XqLCv@q1
zWRdgwY&Y%cPba$SqH8y9-u%60;xaPthLL<)8a>J`Xo(-Nu-Np?@2SqtWR+emtb4=$
zZ^d1CG*x}u-h@u32a$@9=#dmMBuQi{Au@#{nIeh^AycA4ri4rhA#;i{Wu`%qDP<}$
zq#klIr9tntd*5%Z@BRN<>udFgrPDcQ?|uL7`?{y=qE}ZhGBY;jsi~>)n2FQQo~6-L
zQ4Hqb;0Sv9^dNvDH@VKY%Sx5wwvqS_OUtz7fx{{)c}55Fj53Rh^(I#)QrD_-NJ082
zRmtamr}DHPNW+){0|S+O=kFRQmYbikds)=h-xs{)UUNC^LPA{JrT6bo5cS|)dsSd6
z$=COE7dWqIK=P{DM@LYHD)sa{eG<LFk9{SAK;h9~%u(0U8mQ7HACjFlf5TyQJNxAK
z-4P`yC$Yh`DfrHdft@H6)%$uJ6c7VFefhH7v)m#ZG@NM-L%bvth{M^$yK-F&_3_%-
zLw*^yYd}yEqMhA{#>9L;=i-G@r(SWQ9&I0+^HxVW@h5g!Avp2s({?xlAyH9A;K3$R
zi07clb<I;hfBrN#7HZ{6KBor-9}$=I{ec2Vr9&bj4rh6Qf`gtwD~u60T&=Iza%9Xd
z{ax5sbH|MxonMaF+l!(My^1(^@ZdeSGp8jXo<2N0EG8yaAGY>y@+MlC{;^?+r^>%A
zM1`F~C)(3kR5_Xx&5Jb8oY?{QPaZ%Nk%{*9cAM{DaD>|V>&tR3{$TZDBq(fbEl83*
zn9duE^Wen<LGJl<LR6)iZH6n>1y#gNuqK=_Ry-jK(<c+Dsj2rorj8OS&@Zo>6@vXb
z*?$w<&S}8X$v#XUq%M3hB7z0BAqBGVLi2KFa7=u|EV@`u(*8hYuwI*2<rkUYn-TR-
zo@lvloUVTY5^=i)Mb23J-rnA@b2E5^?^?@C1u<2}K#WaHjA8|@)a}e4`@2pan)_S+
z<5xL(ctmS+H+W`G|JT_V{&_=N6v{T&z{`PQwpAnwd6lsWO!BiRvu(k{L4uI-Y+(pu
z2*;v<rVeBuO}Y^+L?NB1jje5GsjU{!79H$D0feCs=6cTSxeV8AtNo3#ARPgH&6cI(
zez2pkCjc7{8fszoZtt-8*u0dIZ;SJSqljX1#_q^G|K34oIs#Wc8~A%E5D5xpaA;^`
zYAOtEk`LfA+zW~cR)LiGc+mtyeP~7ExvJRM2*W*Zj(hg1#A?5U#Y0xyL8iG~m*q;>
z&LH?I1pHJ$6q5$gs`rHpYFpzP-n|n<lcX6@KZSn*{j#CQ7kH6lTD{8B`m5~Bz`Bu<
zkvE{w$nw$OE-pR`f=o6HaR(z*`7X^wA}BH$8ymlL$~uryk86-}8&xNJ12NC+J`Ppy
zhBZZC?PyAA0;LZ49ttxv*E<$wW~ceRu{UozcDl2rk=*GbTek{}iBWbXvC`4ey>zO3
z2#Tx-s|i$3o_|z4_MqdmPb9u<M8wpooQ%ydnM{)du$+Rt!a{C>LWERQRGbtvH8K(r
z0H?MHQgGQf>FMc`Gj;Cc;q6Kg%VM;$vXV}#HO0PTmaU{!t;9^=?E8!DKhcTYnR7@-
zhr7qg^T9ywG@=&<+t$v%mJ|_D$7%p4f*2#wh*YCMM$mt94CP<lTbCwk%Q||&o7S@Q
z`O_!Xhi<@z^n~^E8`~6@Qo2oFR<1J=kCzHu@w?<xT~R?n&fYU{nYSbie&w;xvvKzk
zC^9j196ERGNB^sxxqE)?hou8yWWJqrB$XcKHbR!pdx%=;t^o|yoz&jec34b8Le~2h
z=u8+YsV?_sIy*aoTOH4)E>2#{Fa>F=Mq96E?aaG6NeqEzb<%*BcE9nmL@j&^!2#!y
ztTWK%f3m<?-4<i?^n|K-JhOOwzR%w`$V2gufEGg4+s&Y{54mz>6@lXlPBMocTCmUw
z3{Q%Qi{JMi!Y`2rMWQmzMcnh5J1JpVWi)AX_N6q)fB2!#^JS&5Py#Yww{vn@@BExj
zll!4<i;o`-HvBFYudM^IQrw2qyXrux`yNSCXSG#^KAs>wwt6-Dj8h(4@_}|AU&itE
z&ulofModC4%s_cV1Q~7MdszE=(DDt--$+OhR#Y^1RVKlShleaTb7;eNc+3;%;zeqP
zCO_{Q-zq9<jlxOf@b2tdFfS8C7B81`p7H}@A3_Q?Pb_rzj!jPP{=A-yoc9CCF#VRK
z2n`zm+qc}OH(;O|tnpb(aPaeAOAlPx0OQs#=*3?WeFOw3gV{0^d!q7t-}U#KBThs_
zFJX3u3%%uC`7Zt7>2U*XEU^$lfK4%@uuz8@v~%xXK8&oj*8TqFYG-G6(@0ZaKc?bd
z+SUqb>&6f!mf=%%ko?&xP>sS8(+}8{gS*8-sfpDoYQ<SPwAgq90XDaR13Tkr9zr4w
z?^DuH4zM@2RdD%u#o5gu)r>|sxLs4j?^M1~JDUp(Jl+_|rXxTN_6<HOvbaR^FqN-A
zGb_stWO7R0vjlwQ=yFMZ{(+Mxw>CC55<RQq!S&Z`7XVOu5y%T|Alg4~WlAN1j>LBM
zC&t7C0S*8K!u_uUj{)Zo(e2w=z%0f{P;31*fUw@hNK;jn4wc?D#O&;BJs7(6j~%06
zd?exg@>hE|r&z!~COSWu86`Lfl&x343{|*gb$)3Em)H*T;+>!dxI*3e1Vlj10qYnV
zJ_^}sXfT51nyCNyE-~Swj77p~A|N1ORDN=V1U^n0=3ezuoSk1H@(g7u!9x5HK~nNU
z(S&VLZsF-NFkbU794DEo;i??RyKoffPD&~Vm$)htwjrURVdK;qZv%&9BsSKl=i4Y6
z3O4aFs3M-p-Mk`12?mgvLs2ne*drl1vth8-DSs$=iiMz%v|UM8%!}5MN*y@^6>hd!
zvi*G_M&dlk@H{3KzR_%@hp_b@=@PAZ*osfrAkWCg?ECXhWi9tgD)fswlU%Um$tF<x
z8}7S6W(Z71Y>Us(Ok^a2b8~a`O-xSSn=vpjpeHg+OO8h_zN_*)EHMc(C*QeJkIMc@
zmY|rFlmWZ9x|Lqj=5dq8R-4Q-JIt$Uc(-vgOaDUWIYs9PiCdyBlHl~88`Pb=kC3)T
zDlVc}8T#OX4DlZ1;V1jXai%D&tm<A~@_zpQv2k&>U5-c3Fo)7lO-&I&Xu1CdC*PIS
z{`Tz#l2zb^c-t+rs**B%3UV+y0wy!B+`1$7;60ZiMYo>!STj6wX}OqM$)&8Uthj`k
z<TW5yT1D77IHXWrFI3AT>~rw)t|k-^AL6D=i>YfQB_-2-lxgW8E$7EZXF|Kj%E}6q
zvi1?O>+M;3j^vesPL!wzVe<Qt5$k(1VA-Z8z}k1S{9b1H^T_CEEj(V`;zUiz16B-y
zX)7zL+$;TUl@fv2Gx}vuuHzqYvF}gFH|#%W@!W1#Rumjg3rvh4kPxnyb>x72QZ)3d
z;aE1t_aR1g0wOB;edD-z@nQwY0ZDqotgo-K!M!}Vf=ZN~)EN~OVsLQq#m;U4v->5-
z@AyYezDTl_DypuoUQg5lS~pZ4$;!-Ro#5f(qQAWoL1*~pQ@{7uu{FqLq+A9SNJN1+
zhy4Y=Qxk`c#klVl70KP~Lydc3rknkfKN|7A-G@ZDU=piUn(9UM16}0&=dl-9KQy#y
zSCWojWmQ#UZ?AD-^+`Qf0v08G?7Ui`@eBt1bc^HUU(T}z(b7|1&&XI{0%r}y;@q$+
z>FJ!z&YZTS6Bh2$y`ZdNsQIv^wKWs<^ka{G<v^Pq22W=;I5|EZ3Lj(*!04-G;{+}S
zi$P`o?_~{~7g})zVHHEbb(c<wa;<?FlrxR9c(L)Q|AO%JxxysAzL=O84*osv3@X3w
zx}ofmHYH0Z>@Q1a8n4|um@j`K!r2yW!BNNV39MWK2>32N0uS;R<(Cv~Vs>#+{#aB&
z!S<lmh{#i`JL0uPG0f25S0=}kD&K5A?lslbGNx!2UjF07>v0k*8+>lzL<;344({*4
z0CX62o^KHnBEX%m24o1hM5cCR-j2i{grXrOC6Zw2u$GF(?9SBzOvpqH#}7t|Qi2Vp
zM7hE=o|lJCFdUcYG@a;T7vEqrUF$gI45Fw_nvCaDvMN1ymCxibb-c7Ma+mAAakH(v
z+i+0c%Zbl<DXFNf8=i%MK$dAPYenAX`<uv2?;m~Gq{8`pXwyEUJI?0d;NbE3H5=Zt
z1$sUDW@ce10}upS*HOSekDs)*w1jz9deel_3miW2onlCeM-Hx_1<RJh!$1d2FH@~^
zxQo3?mZyG)n3$ti?ZkX<M48sg_{4;K((w!JR9ivUM|Tox<a?aT6&@9*r0_j-eHVpV
zjFGW1k{s0{6EzM7cwMls#kG}|fm|<a06Z_8pWmdKp3^)xU{RUV)6ui-fcb+@pPXoO
z`FWi*(ua&G{5d-^!9ub(&wF58YII9Q!syso2&ms^lMrXbm%VzGf|yqS?AaQq@vK+!
zmI4MmX|kz|SEWm$|4s+oumqRULy_s&V5H%_DaB=FJ%uW9rT*EvKT4N!)@=c&6KAdi
zg`M4H(eb#m<1^>1J9iimbBQ2;7+VDL*||A2JlK)3u^yoq*CU1@jvbdCqdFBaKG2iM
z^IE*`XxZmPxUZ(<H-At2`2JY<?9i0VK_*n9WWH>t#m&qJG<^}Zt%xtsjNF*k0TdIA
zmKL91kL6ym*QqUD*x?NaN^O9%+wC%l0fAM`TK>8tGc!@>GSLy>s*gtc_E9I-q(IvF
zwFK_rx@n(SIIcpONFmBMw9;88Y$I#CV%o+>g-xLh)Ce%WkfVF>ActVxZwy7HSYDPZ
z8!OM)ccn0+r61+8AY`M-#tEXx0!F|YxSD`s+2(!whQ?~f+$$@FdJb47Nc3$~Qc`O6
zX@oYB(}(^yg43KdtV=(#*8N|p%;s|Q$nbDxxY-YwRlA&+$crbxa|U~=j98Dc_Na}I
zk4N#N8Kbc=$;si@uX9NUefzn5jtW9csK{`2?>;ZmhwF_=OJmD33WtW|ZFF$hOp12D
zzHi^wJPpEJYvh%qPfx^ahXQl~d^gSnA0*y?`6AiQhson~8<3Zd{%nR{tpF+_d(J2D
z8>TrDz+ml#Iv9nIC(Zu&arWEFg#Ygqe?LeeBId3l>RVbEF(M(C&+6=$=d5-?@hVo0
zaT_dCtBpAr;FE2T1|yAlWWW+$9s=6Ehyf%cH+Q=VKoD>imqGK#*Fs&4ED%A^qie&R
z#jjtv9+?)I+n-gh5^XC_fcOI)f#OuBjlE(x>Q2N$-DHl$@FCK^7sF6`$z1mpEgeAO
zaLF)rdK^`6Z*L(H5e97eyW9(Ui(nZW6LZ2O38{i65GP0u#gtuUCMGVUNW57_X06IE
z?HSmXtJf`TQZ?YQ3MIDD@GOKC6xIU*ZtW#gZgi69^!HzPhdn#?6>k#ZT7#c1)z_<l
zhjojR5<gl3(s``TxOz5BGB^_p7r!I<d}_A~m0Bb>LU3-7%WB5l!xa*HCZ)@LXC@A)
zsd4i0ZO1ImWO`F~_gbzn20cAJoR=n42wQ%U-VmGGk>X7o%|G?S<=&KWU=R8}CEM84
zv^lY@W$wfDbR<^MGK!1YQB!?za6qD^qobsO_W<ZV)gW&%GBLpvrY?MI`;j9@SOt{U
zTlvu#kxTK7f55>YODYSh1_<K#inIrxT5>58#>M51#Y=E$v^LiK+~r1+8*-h+n<&y=
zPe=c`*C1YMNmRz|P}S382N&S>IMXA4v9PEiwYj8K;yKlmw-&0j$vR8IC>LPhXcHuy
z)Br1kgM()Qt+GC&x;l#k^8uqDuT!>4NpXM}SE?#%hc$**M!6|f>KYo>n5khB{PoDo
zimskSlcCM?ZeCuka7?r4DQ-xsBab2tZxBwWXNgb_+mA$BrLEAtkjxwuK!tf}Plj$O
zLZRlDQ_2OhhUbrEQJukA!+^}3xXPk_^cQs`Ih0$@%87I|2A}Iuw2O^An0=IN>8;=E
zC4mGx7RL?a)T5BS4XUfFGxOQIcdsp`8ljWZf^q|(KZCcgZzCKhWa{eis;gVHqTXYH
z&YO&9;#rU{guEw{(!PBLRO+?cw}rU5x!0#fBTC|4fmwO~D9ly^4;YW>^4+^)r-!O|
zfct@cw)S@RQ>oOLgoMj*__!erKo0Je{J@<}cz+r;Ja0onglWz(tkxYj28Z+PWcwzp
zsqs?Qthoq`IOe_wiEnAZFJC2}uMC0#-!cv@TO2-Y$p_#9H~;35t04XzMzlFzn^Qm_
z3KK8uApWGOq7uYtZnp^+qHbWo2_@Mm^r$n@W3c)CeR-MOLudu7vm0$xqYxan4gxUy
z1{AZUT!)nyn3x({TCx#~nRt15{h&ERe9BF|?F)8(A_z~B<VKb+W+S7&*>!cPvV0cu
z$Jk4dPUhgXs6IEz?z{NUsSg|9CYTqsq5*tubkv4~BPhZ=EdEo8HRB-jTs*FVE+{;c
z6)lw}jgf$o_FMZR@M6U9jj4+vq^<I={hwDFnwVThB7*`?Mp+p*hK8>f71+t3@T`Hf
z356W;DO#9bA^(%awSQNG@AlH>=bJ$+O%Q+{WvIDLA{}`8;zcv~wWT5V`=8er2K{&S
v_}?E%UKA(ip8x-PG3g)4KmSMN>EC||dsb`c{uKVBfOSYiPrdlSiQs<$5_)mp

literal 25676
zcmeIb2UL{Vwl!L6tEXGh#)P6ki-G}xMg<fEY(;HFL`+ClP(TSK8Og0jMWTv|lEo}Z
z1d1GN2_h0qq=G6WODcjCp@4dGf3)ZCd(S)XzVSw%asT(;b&PYgrNZ~^Z|}9{nsct@
z)q@B22>c-Y1C2%#*!!#cAsTI_3yn6z<ZrX^H_Y4j`taK<6OBFU_#MAScV>Cvx9`vW
zs%uZ9iCiK7n-<jCf0{=7iMCh$mm@CW-3@Nxw;Us8_i^qnGrRmt>$3|NLSteD&r039
ze8T6mhxYB`htFyXlorJMYwl=xv#6BWY4-H|7n3iKVxIfPURwF<+PcCGJJ(CJivMln
z_WCxv^2yJ3CMRq*nwyOXaE80&6RSDl?Ze}doJ|#*R*dw8v4cxm?J}r~`)TX09z*I+
zH09m-bI6~rt(_)Ie%~JRT{iihc6CADbn^S^eSgIZdOGG9kL<X4`}XcLXU@D0-<q6L
zx;K)u2A}^tcHJ4y^b<PA^!1m2`t(Uq@Oo)$T}J5FQBU&qS;CuKrjg57AkjFJ{Qm1r
zZ=t$(@o6mK3<DXv41;i&rmH=M^T>~`3jXUW?)fRKtSEe|ebb9l8Nd5Ms!Ey89MRLK
zPrr-RNgQdMt+up1(#@vcwpgUUGd6LzOo(OGoiIgu;F%AP3P;<c#Ab`RpL6J~-|G6c
zLvT%$yPf-B7~5Zw?VhaL9PaRbueP3^@WY1>`?J^+GUDQA&z?1@OF3iva;8whB#$E&
zq3j%Zah}pz)!~eaLaD^;L!2#hgk=2jr;W1&gcoJ?F!aB6ev&HRHu%=1JE>SatW1Hk
zJhjY4$JoP>eEPfldxARZGwfH`y<XY>MaxUctUP>~yu3W;{M*~>3mnIP7s|cH_pHF8
zzBHA0FpR{C-1+(BjulQdC*M8P2w5vF9Ux@na_>aDOK(PdTaepugLB?v53Mbq|304k
z;gP20b7O_D03l;{xrFS2H%k?)jyv?!$!9uzSs*r&Kf7ssup+2f)NO-;b=}AJhf7LZ
z?M5^AX=s=>7X@hcCVNhdDe*SztmH7OM(k(cA#~8}Ql6^uM=LTWxJ+3g!LqS2TykB@
z9eh*it&kAKtySr^&30YYiFAj!&#$hu^YXsF*T}$HZmLeBvv(Kgj1QFB*IFrr;G2#f
zJ(@9CuAKO8a*vpYgH1!GW7(LewC;=5&R8df^ESNREPC(55TmnIcP<@#(zWH}?|*lX
zikj#)7Z9a0yIxqli>c4$_3CqyBHem3E=06r5eJ)dIUXEKu4ie8Yz0T>$dQ{&T#u6n
z9-5unXo;5awxIYt-29C&1#7+FV(aqZO<`qK%iLaF7SIgjrR7b;m#b>7`|80I_Oc<H
zPUPaUY-@{8&yL!Te7;h=oSv=yTrM%a$#<#z*(1qjTUgF)58IlPR|-SrEkotG6`tJW
zkt<#!SB_`9*xsK=$m-2Z$4%U4Fcc1`O?(}h9L{4~@Y|!jR1YZkq(}zwON}QtjtzAQ
z4Yrk8zTn)D&}i~m73lLg$}_VhSNfB1b$`wsIn&)_XC$2}x#61D{=*ix!H)YufhydZ
zRpR1CUK2yd)6bnu=DIchHhZ84iz)l2v^1@2lVj({E$!j<<aXnY^Hg^S2rnLHxzRUC
z(bX>H(wRI@@-Urjrn3|_pMG<*=K0B;>gwHC%>HIE{+1=OMl0}au9umu!m%m}SZ?~|
z{X;qXwznhW?P_9+7cUkF9Bv8LDw3}@2=>b1<noG|gVaPVs}lmO6qe(SNhe-j7#S&6
zi{uOzEvFYeeH>XA_hX-i@z^1&n&&Go&t0})u)QKkV7Y=icBW>SLSb@+>T(Yrw`@3P
zq{+{8e5Aks<6*5`Au@(dv(-j^i8IL9c-GRAtRl;OuxzAYjp}udnj5#<WpcEA`8IA-
zp`U3-<-O6?739<p*V}7t&}VGG6UR|2!s?oGyKBkgYad>|)$UX_7D+QwUt`gjQm#(0
zq^9q)XV12bG+u1RW%|lnR*`EmkP$-o3EbLt=YmLVdioZbtnL@%U3i+YB_0S$`|oa)
z;E&zVkU5jW=dt;d=~x1jcQLz?5Kms4C2Jo(ypWSUcwpOTOR#Or^*wDoBbU#YlFoj5
zCbA`%@lJTy+Ko-e^5-8&Fl?XCF<}ko4!3$;8gtI$8Tu9Ba^4IfUZ}CO_lSJzNDO6r
z@_HOSFY&IfiF}gAuF{yMuHK99E|JZ99=}-XnALFXXOFS3B{{gSA#R0Pa>j=P%F^uN
z4^fj27bmdTH#oze=X<5UvyY9BFAG?<Ns`USp{GBmuUs^s)cbmYfZ%oIp^t~{5uK%#
zoa`rt61~dA(o#}3>l{7$$$}qZ<hqXSm6*dl+c$Z4tG$^`Rh+JX4Lb%;L(!%_ef*9w
zf2?|WH#1UWb4rzm{%f89Zmq-RZKL(huB!ObwE3zdjY|ULoqOw#XV{&d95M}3S%Q#h
z^PIm+$Z*l)NY}HIL)CecLy|%7vYa{TqitcUf=fPTc~qzj`;*{M?lxcL>p=$&D~C0C
zcfVwAe*nG3SSvy)mF1b3J9hSMgtDTzxRPV%BCT!x>i64^9XYZ{ZT$26!BSeieTB+Q
zkG0i|AI^(7t3N&v(S&dvbmPVig{>^CX-Jf{-qE9rv90kKd(zmEbYsuaRsojUn(%Ww
zR(Or~le>KKWNj|5fzxK})vnAwWAnxOS!yqno6E*MdPjtLrwK%y`~CY-E*@ROlK5L=
z!BOL@*^}6yf;n!(Hg-{630X4iNJY9)oM9H@-K6o@`;gGNf_wazUZ*>ERY{X$yqiZC
zIT){(x*i*r(KSfUA3Ji3t%;{VO%cgSML}XwUK3&L@kb>dPDfTIHV3Bn{XQpbNM+rF
zME6#yQEq@DtL8*rS(svRgfr`|mq+>5_C+ltB<-wlY5Yx4u)j*5Uf5O^HfN*F%G4?k
zCTn;(uKv0G!al}5lBC#^O+tA~XNx!-B>URPy}wZMRh6~%-E~U^`(^n9vSoGV`QFnU
zjTDFaQeIx1t+=(#$gSrVeZGiNN=fY<X1PUNLINwH;_cl{gFW%)B8sQGQq6@n9Ix!2
zV8!k*Di*PQzjsaQm>k2gXqkBnbCcOypHHzm)l5#i8vp#qs;b@U1=m*YG~wi6y}HR=
z1Z$}-GahdeGDTEMLeScytE&rSQ8nt?lUhB%OW`V&D#!e%r{K{zL(B)6dn3tff`W;8
zldf1B<E!&MI(EKGwXE)7<+vF*yxS#bSrzAM&aeRpX}YCjRFcQqn4Gk3*REZ*9rv!Z
z8S}CCty8@0&3;<4cw%BnCoVL()8fte=-^<_!UJ1Yl213xbhug`p}eQPJmP*_+y;KC
zBW(*g2cDV{2r8XQy-z%b8`2t06&}XK#FXzG5cM4S?8@^1qIjFOMl<wd#~p;0-t^|c
z8k~eCgwen-dhXV?w|5sx9gFk9>3@=tkT95<ia#w0*X**0=P`0Pig;ot+9eyUO;_y+
z^gkMVtnlJ|)uoRkob)2RQ(nB-*o&yPRMp+(Yj^D?QID_hT#IYCIw{Uf>ohYlFPx;e
zX^K`gl@{zrX3dNgFOL_sR-Usg3bKA-T^3kwg4{<US53;9!$*!DZOvoMqb1`7c~u4%
z6=Qy`w%v2<_U$DO*=?af9l0KO2sUXRg}#eNhtB)?`85|T)UtBOCL2k0@NPx-&67QD
zpXw0eSX78B*UV?md-LXv$=f?}{kY>@j*gBSjIy_g;(U#Ke5|^-u&_{2Fv+Q>ZcA5O
za#P-9S001u#r!GtX|$7N?6LSaX;SOgJN3=g(^|QsiShn@*PYP&flBN7w47>VFO?-S
z2FJ~LGv;r*MmNUO)joEts`0qj*oUa5P|JjpJW+rheD5ljOLM>olRdd4H8qtaHDHgt
zS@TvLZ`^b?_fb`jwI9z(CyP4LZGwG_WIVST<n?Ccpa1}iH3~NMOBL(S?eydUiwI)}
zJx$h<41SvY@%OI8JXW0P>Ev1^4dw1Mwx@JlZr{ec`y)~>7<&wTQd((jpU3cwHqfuR
zj_bz9jtqq4g?o8a8#=c#u?rsUzk9=LqPD`5@h-`;@1j@>6Dj+^+faF_16x~fc2p-C
zJA8RB;p^+mn4^hgSoi+$6CHa|y{eD?eT-bX^Cc?OT8K{L9C&p2@d4Y~(;<b(8MnMR
zmxPRJ64-#dA#}wQ(M|@#!}~Bh*Tebwn<~fOzhBeBOg68uDc<K~V4rAumSJ>d__n@H
zNn!wRpj5V4pPsW=kdq*o-7{l?kvilUvH8rQ;7uo_q@=pus?x9Smt5G|+B#Z|*luYT
z1q_>7qS|ww?euZ#VnV&0*Eo_~%fxQ3vEdb~P4>I<0EEsS8*yyCrPIc|ID39z0-_<V
zrT?jx$9i@ozQBr=ogor?=I)~e)3e-K^QfiUT+XRyXO(x~mUpJ-O>o_#+P-7xSIAhG
zhyI?%a_tJd$&8LqETwz#n36oYigLzE<yRiecfI7CM4thwd2xQQ4KPhAba4R=r<~~d
zmh0nPW48}2RdTQ(hlKC?@ribTYFsBUkKfb7kK2stBHUi9z-<Gsw+y^qwMyKi_06q*
zE&f-nGEa*-AdF@<e}b(a&)8vHyht;2^E!5Jf6;PN;5OU#2<JAoGOs&1Y=vppPj+1o
zMLP$Rqb4>?HmgmV&R%a_bLMfxZMs(YmZb6-?-`CbjRk;9td=|Rw(Lx5*FE~13$qen
zYGID+kZ+P{anWHdmBj$CL7}0cJ}%B8m55+PvY!2ZR4H@o)-6FnZ6hPmi?amkY~l_?
zD1Fi`MyAN1fanJ;wFs{cJ%E^9eoG2R`kTAP&rUSHyx8@ffpQog-iOCpK`}AT^a^C&
z^<!VZEKF-~(%+z$^5noZLu5mZ+Z(Qa`S7@S@0y536JtYuViO&E;`NMICYt&lP#tX<
zPrVB~O7eu*HByK;PB!0LX<8gumWGf!HbN2!J$KaXRC2A458_zh%sER6W(pbnh^Vz;
zWNWy6`PNZxschbgHIXhR*<+otql4sCI!5OuR44m`it*CQI63{U+=fq7$cwg>=rPPs
z=y*9>%pWz{b6pQH*N%HiU6*WnQa&8;E0xLGV3XZn<m2OlsAN*$BNz}^{a7ms7q%vJ
zeDN5!D$zLa4zlkG=XzUhLqicPoo$IkNP$F%!F$%j*2SGlj~-=bZ!1^hkB`4)CVKQ(
zj#@8VbHJ)<DZwRkS8Vy&2#~<XhoF+?wlF$Ci@6%F_Ku316Cj3{#V@U1)p=fg3X#q~
zYF-w4wEg8JX68_pe)D?`S!=ucs%*ORr>T<>jzZ!A5{4%rV{ym3`(dB*^wVqz(3Ri%
zfqQwmjSqE)U3UUSlob%zma4dZwKyiwW8K&Il7N4z;uy|A?l+wrAB{hD*wV20qkFG?
z6tg$y{rmSM`X_T`Wn==)BhO1By49Rw(>=QMZIJ_Z0sFA*BLXr|i-ctd0>JkJ0T!e3
zWp~@oIsa`J-g(KqJZtXKALpx$pCg#t?Cl*v0;=AIDasPyO%<tFe_K>%MNhQvH?0yI
z{q^R}&71*$ph{BUkowjHn@SGgoRmOEjvOh#-ZLHP`z(iJSmVW?&>x*Uhfc5^O1{mv
zrS+EtZ5#L%rSYbIz_mhDKrtkgk&-I<my0GXudmD5wY(;&QZMIGRc7G2t*DS<oH;Cl
zYFgP@EjKh+hyTU|+8XJhdo3rGX*0`>6R_33t>DG!(ipelUb$1RuZ_Ikqq@L6%ERd^
zHn;qNl>{%6+swvt+9Dhm;@F4~)PNfhm2)5I+cNR>gK2k75~;9{=Xp-J31?j!j-Psx
z`z4V;>azZZSVN<+lr=U}fB3&5Qr_R2z;^N3FZrPf_)R$>N9&=kQ|cgLJZe6D|DPC;
zBmeQ^|4#@K@_j#PPd6gJd#nHF_k%(CfB1r<?^!due^@Uib^p<$M>(Z5r-OU<?sWi8
z6&F{avsRFh-|kEM^{BSC_ScSgs6U^@#+sIe%J&!u(w@FKwecO&3eNr0r&p2jof7_L
zan&ftwWlxF>|YZ%<VycyE{c5OUrBfEtIP7f{VYB{0I4iU&TDdfq=Dlpq!A($fKp;h
zNAyJ#09D)Z{^C90zV4eIId-h*<I}^<8SRmNz>j<QlM~JN#U?CBMWJnAP`}%p;@$dK
zr%*{I<oH=!CHN1)-FS0)4nEbkR64By2>U39OQL6Mh_Ps`l~b1W1aCNK-Qh>-K*N4#
z<Kp7{ksOu;OiPKvRdiIv>#M6HiEhOos>>HoyY>ud13_kwy800vono*Pbs6HcL$^v!
z#h6z_B7LAlMKHvJt6YGjQ}@{;c)klKi<3*<v%<DOFbRa&ZiEd|<`Fu8J;_Zo{rvkS
zLZ}f+gVboX&R}f%OSC*mb#4lvCFj&#vsOyVueCI!IJMenx!)3LUz}V8Nx<G1;hEXj
z6hJ~=5^tOteek>N%A}OljhdbUEZgRyLe$>EgzX^=qGa$@vapTbGYE>iiW?z?;|ARq
zr?NZ{+(iN6<QzIGM_SgXEdvy}j(b8pux)Ux-eqfROM=z0xa05UnG@ocR+-*1gH?3%
z)~#K@KgjCHX^sr=q%L3I?ZJQIgfn~ewY3EwhuiH_S4R!=_?8q!M7nU49P;%I4I`p5
zn8+eZOdJc6?ga%$e{|6&e3iQTHWbqF$0f-3<OdR(Q*WnC2zB?U#FpVY`z!e46*w*0
zk1L)XjTLWd7?Sq&^Xn49ZK$F!tFuf@wRuV2PE(G4^<6euFIo4`b5Naty4YQiwaGq@
zo0?d7eUE5{As--McL956{TQhVarT})!^2^`{AmPVb~VVO+f*RXp6ng(X){7SWb(^n
zk!--^F|+2<l)QlwTEzlq(4@5w9ctP%)9Iv$WMhEOllb`fL04dT!q_bR`9!|cZ~Fnz
z)w7pZZ9dhtT@h5}(!MskjNMV*;lRzoC7X5CuFX=bpe^#PSVa4w(ENw)Or`z#Zu!$@
z7a+2(YHEmf232H>Vy<Xnm@QVJ%Co9>?TUAtUU%b$vzAAxQua`-($6yM&$?tZ0gM=C
zIa!}`!}_$?Wtc^2?D@I-omiUl_q5F)x;Ir=a~7Nkc`>Ax@0^;qYWl(Bs)wVSElRxJ
zJKXVhwnW+R4v!^$;Ej}NQ^D1wbDw{A0dQ;{X%4Cwu3hjt7dcoUFd2Kx$3=0jjRn_6
zT|G!t#RPShfK6gt+}p&_IW*<vQQDPGz}GQ*f<y)Td+9gjx%ww)m3Q__1{>eL_vn!%
z9y&8aJX*qas5A8yPhp#M>WtT?HrkGTdAvuxz)v>!xH<E-+INJZ>ACGxV=_9>Dkx|R
zDvn`tYwEE++BrL0@VZxH9V64R>$Y(SS)L*8T{SOHb@dhYZ{^|-uOKhnKF6WMTM=oc
zx^*Idw(3E1eVl?#<y#PAMcw;e_HY~0ZB4gLjx^)rL1U-dJ)}OKWB7g=2UTh_L9v8m
z#ikhG=-|Z1?DA`R7MtK(ZR92mMv&Cf%pR|{yXNG0=_Z>M;_*a@nF8d>ogZi+A^Vq$
zvvz@GVRna89~~+ctT7_zC#93%KUkrb_fD16y#!E@Wp_=>1C2}G>6+G)$Dg#F7^>cL
z{``5r&VK}^>!HbQ<8-$W+V)K<8^5-2Wu`eT6MZpj`#qP}!VVjx&%f5&JFUyYo*-T(
zJx_%&xFE@dnue;4g94T-7U3_J5n6ukvW=?=5w~{TnUT%2=dD;uXw3Z)O7dVdgb2&_
zmBUus9k^oIs@?uRO-)S-+g6e5_iod0okd^&wsGbObF*2pDI!RtYZq;Dxo3K&WG?GL
z^_1FBbL+25o_`WB$OZg6^7H?E#Xo69|FhInn%Tc=9i|{5fy)vSxu0m=;Rq(otnX@0
zpW1lWJ?qJn*A-$kWvi}=oBJi3Nm@BntZ)#eDZ+D);VjxmOH`MZB#s|3Fz9Zd?|q@~
z?({5$Y4qjC(`*bse*Bo?yo`1*@s^Yh!}<H?rEAx(_Z3xfRaaL>5{lDJeiR`!{imZK
zeO<ZT%LE0XiD~QV)&ky06Br`GsuuotXqjXw|4RJ$ZxLMo=OX_q>H6Qal0gTVzkTxp
z{Iy#9Uv$AwZg6Fy9|GVsgVppkp6Jx+2U#a~EYU~=uq@!W8MBKB33Nro>3DL{9VN%J
z+n}r^0SI-l^Ss=@-WLl1i=_%U%WT|0E{Vp<+AkAQn(8d5e72`9mDKyYd2>a#Z6WCY
z#K9~e%yfVTD2g^|@m~B%Ip~fk7A&<RP>7%&`4A&_$i6C^57<Yuc(mtoWIanFU*<jp
z7^2Dx3PPSrGAj#3S?PV`^v1g#waMn{>Ifm~kolE$zDrS0G|F*uVLveMGuwD~>BdvP
z&J|PLHczP|niNNi7BAifVKN)?qU|dI#R4$;&A-hS^?^d<oHbD$uP;QDK&Y3dMgCX8
z!0kqrwZS-dTS5-EZe%cuze2IW;qd;@%}+(jDKA2_?cT(fS*TcwL-NL330p}>MJxs|
zGO5rAYDob9=;Jd2d0ZH!0JBF8DjfiKz`dPUiq=4jUMnjb1Pl!7B9O>Lc(W-h`+Sl~
zp)W&Ko-C-hq=ZPHLhI{QLH<5IkR(xm$0kdMlorC^AS@^d+O5Hc4fMLD_2yx5ag*}!
zt?>ry$Q$$Bs_)HU#aDl7a1v=iDPEI(-d<h(YY#JxH4&sb)&af@%BlX-9n`mognSjw
z*3^A|;uqllMkf%7<qRkcy9%=AELHqUW2kzJsjC-QCgxOi*aBag-~|FUYF{gN-bb}s
zmav>wcL;?qkY1L5OiW%yA^@`IB(3J;-TjXaFsTZ`DqkPeBB9XL)eT&~JY-rM1Nf_t
zs}#gn+&-B8?Adx0kjv*@AkTr&Z|A~+1|Pp`rfqktL;YBXd?Rt|=FO4O8PPvsnLHll
z%f#)Jd3UYMtQjR#0IKZbW#-|6S43SqoIJoutTN#}T+U!PMrRG#%_sLrQ@%J)@gneb
zp@3rjj}RLZO<!MIX$!nr#Y}wA(r}plVjkTC7Xby!E5b&fSUS8Ws=chw@kHIa1(z$@
zSUq!~SqQ1#kM2R@BTvr9dCiZTxz5@&3;&8m9mg4lM%<i^gVX3J0K;rD*F}18Yst3Q
zPiWuJ&H7z+sg~;M*;G}M)+&}QAt50kQ}Lr9Y9GOclKU;rxnUc}8RzA0eN3ZSmzyt2
zi9q2yu2y7eX*n@I?fEN)fQ!eY?R9z!`kd}a2s8ekRk3Yw|6JkCYsvBIh+{^oxIsw+
zlr}Vf)LV61)>u?faJHz+iO+MWI@sdgJi$I2kzOJ*_?HB)QB-PH5RU-?Il5-QjA3R9
zOO;6SK0c;_TOU22Nz4JXMcW6c+kxppF7kZa-7R3=NKJ8eV|{?ju+FmbEzQ`ME`2X&
zr!jL;Xt{s_StZ^CWlPHH9r*y-%xez$SrYXTpi2ptnmhI>Q9-J{q3P|W3V-bUWV13~
z9w$!?n+n_apGy(_u0_<xI31s2#C$|jUHY5SafVT7F3Sjr&v5ICPumT4j^V}!PZEgx
zs?Mq)o*aln9-i+8M2_m}5-W|g@G5!pvQajw5N|WrQynEehSR$@ek=S02{jB^=L|(|
zNd}jw89(`_+VA$F=YdYQN?V29kJsJq8CtgG+=+TOPL3Rm7KC9Yu7Y=<f|tT!;J;L^
zNu`W3j?pYM_Et1%URst->wf#T@e;#y78nqdS+XdB?!FAe!K3alYvaGwokhOm--&3R
zHBO@=y576;9r>nc(V6pI+=e<A2d~izl+d`n$kl@UHH~qo&)XR`AzN_uyTQgZ|9#;B
zA4Ksz3SrV;Pf{;&I*+%?!fZiIO+G$E1t!E=F&JGDqEiqRz48jRJ8Moa-qskg@$|kp
z{WO`$cCX1bv*wGg5ELW@tA<R*>P)8|;i$2XkBQ8??(0daaB$j+k6$GYQl$Co2dyCD
z!y(cj(TQ-_#KpyP`4gOC@Fyk^y!#P%UDgt*oR&ZD>@9E(L=TBg%vFK`VxgAm=&89P
zN}J)qIp2B<T)hKvRV8G0K0D5^(zOhsIKIkzDX#fhyFjA)uh_cLtRhl`$SZXB=H*Ew
zbv)7xYl0mu5TRnt0i`bw2!R2U3nTsw_3mGfh0V;?XM(jh8E7e?7!F7WQC@svR6!Ei
zJ>1)1`sU_3(Kk~}myg1H7yAqYD#yVCpdO{_(YfuMHJmZp@I)Ya_z}OrJLH>m<eR!o
z%E{=xIz=~MAE$&pTJCHT<-w&Sb6ftzFsQ?dNR?*L>{Nj5u1#)++@|l|V`=Q?<AYQg
zHTm^1(&aMiqmpEiwr|vvZ!9xQrg(hNi1$Ig_h(di$Uv@(_wiXOXQEDMev;paeQk<X
zR&wrLp=0QHbbpwFv|2f_fmCf+NIvbSy%O<q9U#q`uBeTlG_Ws|C;pjn9tgkwR#~sD
zGMODQ9niAwn}*xHSvSg^Bb!|*e41Lf)$xtfIFKiZ5aGyD9`AeAOjh~ufvpm#V?M^&
zGI~SG%;xA(Ji+!o2m8E-VXb+c24Sb72&RP5EiKn}I$6Y3xVLS(w4QQLM!#C;l22&B
z^v-9oM9L<zz><I=5W#8Nk5YTfVH@@qAO5I4lELe~J}37;v%3GJa>ftN)X(d7zclaL
zt!@P|l8p>%|8k7F*gof(Q7^L~?>u?(#E0Z^P#U4#Uj2na?L6W}kapNgeU!+tmor!p
z>06mXh7Q`n6SC=z7u?-CKR&%AGn>31`qg@ud>+`ZcIF<@^QVF*pl<ZJyW#QthZn#`
zBFXMWE()H2!aeLx9B<b5N~tUCc>aTEUxHE280Vspyox&%Zf9fayM=XdaA5#?lcq>#
z)t};bc6PdFA$9!ulil9R6}K?qd$fANH=Y~_ap%1fn>_dDPYx7SQDWyp^9$?tLIh}I
z-rpUt{?B(u=q^;3NFn#Gi24#~7d&WZ4=;z~A?pdexl5h$@R*A6j{o^{VfZP~@*D^r
z@A`hBBvG510b^~)J9YAWi8G08<zl(w6$_h-!3<`BJp!WOuKmXs@3oxkTBU1V=!F<U
zJ$<A!tiEY|x~%}0UzL`-m{><GZ%!TPlZ)MFahCA8bp8@zGw6&f$%+SKUW~9HOpr_b
zMry^B;*Q;YnYD{h|DUgj1rm!Jlr59m7pHMcgsmnd+PGd0UR+t{E2Em6qv3tQ)jZZI
zwyg1@(~XJp`#pv`$a!jrfjmh-EYTV2n$A(5p7kC7B^3kzIi{aYm3IMRFhz(WZi~W1
zuZgbl8C9VJkJTogrtYI|qT`^RM57^GgYGS>#IBw$y`5S_%*`~Ky3}{sNP}0s#*4lD
zhq|iU*~*<y?l(QTAL#qy#fu$c6!JY0auf%K!L%v8l11<Z@n5+P_ZoJ*qCTU0;D^a;
zsr*R}zdQ|E?aI$G<gd3&;rwKQqjh&{%>V6@s3`eMZ$9=FJfXRxPT=kDU7_}IBOhU1
zWRuzc+#L8pcg&~YTRvaPCEtyl2_}iVe|~8XOcLA1I_?V!%6X2DxbS+?=6FmAbK)@%
zDrd;R2uSimwSm3n{>W`xxd2G%lVe?`(29vK2v{|smkm08M+lX>Dp%s`8z58O&&*Wf
zyCPf3!E|cIi7IXV!Ega}D_4&6NeGia(JYqZ>?*_9wqySH)Q?nffIK^Pimm^8je5by
zR||+4?oR^Ovqp{0AI;&dO|ol!L!@sXAGlYZOV6XiOy#{)z5Fm(lgOq?^c;%qC&4ev
zTEE_|R65D3_65p`BE?)m2?^^PTd5teI`QcHk7RqjzP`#71%M{E0ai}RzU<>8XIfMM
z5moR0YH|(U^By0qYE*$wVeoTr-{)7&cg-Uqu8hr>hj8xhh8+{HO+Df5xI^z@oxCwB
zDvOK5BD93)s)R#^fMr1E@0_=FHG9dFsJGb|fr+?e*tuUGg$ajeWEI+E_1vcO;dPb$
z$0@^WU}{xji~f9Kdu~L@sm`9fp`D+I3vWjVbt9E0vG9f|7TURn$BuC$xeX{;ev6%o
zOX*lvC#aC@g!uRg-fzOkpWQ>rz-Hkw&6%=>Z@)q|B{qCnT3B++?^T;TugqO`sKbuj
zH%%$-!t88#tjp8P%fo9=@s)eiSFu&G4*%iJamnSr0|Nul`r%h5q9#Z5Nu-3Z=V+;M
zk)~q9B0<51EaxD>Rl65uQjER#yjY+fVo@b^q!015QBof<tU_{Y=Z(Yb<ByQ^QTN7Y
zyu_tq{%Pt?Yi`|2DT+q$^CcHT@)(h~!kt;?9U1hjs$Q5ua|nw3k0A%qD@c*$vI=J0
z>Jw2U<d7&!oPheVbID!edXAd)*^t08@-E185yHFk2E)wFw>Ri6K>10Gbj4V1A!5BO
zdqrJ|gGIb>pA9j$&t7qE`-*e<)2wZ`P@iSEBUX9}!f)^T)+a!=uD_U?Dyk%B7e1uI
zEbmX`#WV*4WWGEgr#+62L-RPYQ`EXeBvu_#A}P@~r>nq;`~IN@(HlmGS=bvyE4`;t
zdj<{xb?xh)ex}uIbp%8~95g(%w}hYM%&|RI?KqjwHaEMoY*wrIhP@gm)&IUSW$mR$
zF&9o+YZz^;eo?3=dnQEQg7@&<Y3C2w@lUMohE%?t8(_EV-Fq36M-O&9De#SrIeDSJ
zMKa`MTR4X^KjZ_=KFYqWFXFtaSkU=xxtrJ(!-F1P74GGigrY{>rMB^-gRNy8r_oYE
zEB3}CIt`bsiLyGH1y^tZ0R|(mYAwM|3S`=3Nv~i3gHgHa%8=4sG9glq%V?EP+9pkx
ztc`<q#D5#M`f9rvZTrGZX8VJ{mKX_*BSgAToA{z-`u@RQ7_*!UpkI)BAM)kCqlex>
zh`i4f*hhQc3_Isq$L}kxiDn5<t*(A5S+_#1<J4rrf}d2#=OO(%iRr%|PD2R=dB<8^
zy&fllXl}P(Ol{30>qfm!%me+AH-Rkt+~E@SoF42inZdf;rLhfWXNfo}-2G&@PqeSM
zCTUe(#Ol4@OHs$|*N_{tvjwUfC>`qeebiguKa6RWv<@z9)%#=yx1bzi-blB(S{VQQ
zD{JZnp(K<eWa8TD-0PuNE+c~Kw>14?U#|L2up;hV`fOiR>1*G-*=IBrYtAl0LM7*`
z){0T90CYz-FiCbzjTh$wGPo|voZ8+pi9mG-S-KrE)MZ-yU0#s->O<ceSPuPRh`9O3
zj(u?CCH)1LSh%!}jg32Ohz)!uX9``GA*8U*w?}A0E9<bCIaP(ZtwolBUwgNqp&^W^
zMZaH~GpNSFStIBjwmx#4K#$yIJHwtrjEwg*rUKM^e3~i<5pDFitch?qghC(3AqX;C
z>#GJIpVfPtU}+10`DqQ<grp8;8XYRN*6XR5KMSV^cFPrxAGHa_-_rg3RnxmYVgbIs
z4O+n^r<zna=e5Rro%8(qn~RI-o`Yd7r~<@@R7|bTRBV@d8doVY3G`VZTZRgM{6ylp
zw0j6=>4?dwtxIl5RMk?lw#7vpOE?wXJl)`}k!E-eXR#yLlMwO0h09D5E<pxV&=nQk
zoI~&-<J?#C)eQcKrqquGsw+u=_UmDzd>VHGb@7i!jiopczC|ui1;KU+6Bx50K$N=C
z?SuGHq}Sx=DAlF_Q$hVHCOHw5NIuFTDMsjz*eZkA$|0bQ*w3JWB6<K53P+8%tf6Q-
zfR;i~cS3n!6iiS8$({Z9<VkES>Jno3B`Nz`S~;ESE|j7GZ;BkQXA2DZ&BO!lL+Z|A
zlr&-6+JKpZ5Y3eFfdAJ`s9scTDhqoEJF+ZDrF%;iZ482YiULKJlW%Myb~M6-{Q(M3
z6Hq7vnS$84M{wePq-Xc<CJrh>rV0wqm_5%wEq5qBi9g8`>iSCUT0^6E(^;1Z93jRn
zP?g!64p0E7QhL$pt5iWp^G!UAh|bPc0f8xm?FNhk-$VHpY4Qo%Lyo0*EAG89GFss!
zN&!-^aSfJi84?oWU?&$Bm&qMzdh(>>=G$fD4L=R}-grdLItZgh#B}9noo3Bk5@PIm
zUR^!hweu-)Z<ySif<di|P7AQ$iBb{k6@_=Mzwgz2*sz-)hZ1AD8~kU5Yp2Q%4U`>O
zXvDdLw4$y~@`L9@mvJ$ChxfCyv)^%FU724&pEKof(j!N>OpzVVj)aLYc$2epExerr
zOoF6;_#=^1=#msA)czdpfn~~qcUkeMJ_y7A^>{@4azQ1J_TV8Xi0I>2<5_Zxw9EwT
zUD8NGH&3q3i+pnRp)hq|ML`Gu`Q4&$xQzBxZOEuRSHwZI(*5)1CXvgNr<gaY>DNO~
z|9p9z`{i+z(Vt&ITEvj!VFAb+FU>1J9nadPy-H*AHg1h6Ko?js;@u_GUu7$GT@Jc9
z<b)EzTB5F|x?q5+;AFM@_~}zClf1FNP}b8nO=20bhAXgdQou1<Id<*t$HXjIf9{n)
zKhlo^*$brdc4p?a>t%hTrI$|m0q{MjCQD&GT29R5S{|K;H5srHA8slXGWJK8P1f<#
ze_YTm6ey)k7MGFU!(f^K{Sid!GW1D@wEXC^25!6Xm~2rMH|~bEFI1GvOu^cc<R_x+
zq<&*HaS-BGaP(I=RQ_UH`OECZV-D13H;_`5a4XnP+8s93n`?HytZo#6_tsN+?~NVK
zf1r941#V~#XeD)}K}Rq3$`LgzRfSSl+&CApL+2lVyGu9bB(4(v2XGq&zKf-P@F2aK
zG+NBx6m|7e&mMIL@b)DZ&i)9F`x??@#OLrQ@<wWkRhPgii`u$PYpX?N^f#n0K?)7*
z3p{`xZn9KDx;P>1kBM-Ktf<e8Kl}~ncdWpw^3Zj)BvXU>k+3$Pfd|LU_+A!uT%rYU
zPf=XIKAl(A*aIjydHF0U3@p7oJSL2_j%fFl{7${ILGQ|;>deec_k89Z__xL<SMOD_
zTTlIndt&O?d;cSUeKYbs{6j%p_f7v__Xk_J?+^FFp=U7%MKs}wfa|WpudA~&w1Ism
zHX-xbK?!P29nQ?0<C2)s7CNtoy=$u7vr_5LmrQ&(_d2P|hz?L%)W?NO@}ML2-<7++
zz3`vD^<O65|N9sI-|`VpeGds$YVW;K05IJQ6KoJ^93h#xhGDHwtgN}CWpu_f%7$X-
z+_2aSF`YC?$l=^l4(#F;_WN&!gb0mJ?ZCP<L(@0_3(aUT;2Nn_wA#fhd7{=Q`a*A&
zCmcUX@bMFtn1~<R0Cmq@sps;8#LzT4Y%?q1PA7U9X+txGhsgHJ!w^PijkG?afb>YA
zQ{aHg(8n$CJjbB$AxVX>bxm;j`z+gJMqYEIC6;<x7Fi!>X9HnbtU%Tp<rus5q#hG<
zgWZ;NwUNG9(sIBbMLn`K#L!7M+_q>Lv3?y-Hq!({|2*1psxUZ`mQ$j4W3??>NfG4W
zUuRTLV!Mv?T~PzYN|MLpswvV@xIv+jc$20YdBDCbx88(10f_?MRym%k{=KU@8Phmu
z#Dn1u#44=oEQ>H=H&QPcXf6H6i}p<jXZNJSx9>Az>BGD;C1{}21_4Q7*>`l98%gii
z=GqFO+`dah;G6wyrgzg9lx0sfylo)7wWO7nmZ|{5=V*6Mr&-8H1?wd;XJu2F6RZB|
zRM_R;Y|#6=u`wQ40T#ZL63=o(nkR8_R^|_B2Mt*Fqc=k?+s3ESLL2Q5bvZI6gx9ZU
zy=6GZzhd68QV3(qNOdvhFD6U<JgAeg$%O|4J=%?OxO&0X3_4p>kbe24W*IBMhk(3#
z1Tf9sL{#}`bxcV<L|ZGv(XKp?Zy1Q$iBsAXpg8_=3vIh;CNu9amZ!ScG|M`l2^GP|
z=QvJea90=TI3-lz^F->bi~)}2T>2U%hw0!DJG;7+4@%P(X}!ujKFwEZ?~R7s;qi;*
zt(=Y1-oI*pP}RlY&`BapY$b7hH*;Hm0WOquK|1SAwT8!kvYx?02|-wTA0POoyHmY*
z+#Xv%Har;8d-yb!+NCMG(*(ep6NVae2{FJD|9f|R#wKxbl8s15!PwZ?Qe`JA(r_k`
zK&dt-=yy+5T*^OWRvakOe^tv}obLg3IMKT5oM8iLy9UI~sqX)y-9WK!7(HN3Z=@3a
zQ9;c6R3lQ|s4{xp_;%)ZG`%l*L6Zl`BPQ)u^WY2haT%1fME~x3+g+78H$8eE9D>VC
zsx=`i>!XCjvuQJCrSNKGY=cuDEitqi8GK~dt$lxYp>$gP0_O%toejsI|3unmNh34_
z-F1=&!fQIps;Se%o%wXWOKfaxGt6gS4vG=SEdlLFIN{TeQt<hpdxNXMl<#`;!YKme
z!G9g?nnE|-_~r%p7P9|aBH#aKLiqpO2<=~^f&b07){$LL=XA^i)30GTowoUD%<sk1
zIyRg>?G<4RE`(4pt@{w6;@c2_&p%N5MN>22nvl20F(`(3gM$XTS0cSCON?Z{@ic21
zd%j~bto;ni`HN>fr(-n3;cwA`%O<h(Nn&D9ynfp4ba9%u$6;rl^FBypbsllvX$#S)
zgrCY%^bKGc0!hQ}R}#Vm-d;S=Cb^mR<ukbqFDfnm`aiqwFWq$nhd}@dH?n+$K)?1$
zPvV4Qmd=+q-Z3>weVup~w1z+k=j7M_Yd8CUogDsum=M<QGtAFD0TqO5y%L-3y8>xp
z=iKEA8&pSL&MzXw55Uet8LCW-)^1R3G=!*b0Dm~-vjH{zOouasiz5zjOeZ*lrsZ4D
zcaUx3UF6sWbBtB(0-}<lsbC8R8#F`vIzwbC(ke(%i+=#;o0<EmH|=)p@*YOYzY0;C
zG<J~oM&cq0E-Cm1l!5k(FU*`{0$t#t42Azr$O8Fl-dNoW>%ET;!RFjLV|3M!yMcrW
zQsK+TI`Z)}z54*6un_sz)zv`<hbid3H7XAw0BN;Jm&czdU{R^pz?HPb*c5P6Krrg4
z3hrBz@iBseXauD*5)EWRIEiu~nclp~w7xwrU$xwA5$#fw%1rMa{gLlo2@EGLuW|VT
z>;2H}0kzSfj%Meuxfjs-ea*Q1o*Wtk?EOVmGG~06zP+E&{SRgC=`xL_9B0x}s&XeI
z2V9@dp+$e<4h`S**bB@Dh$=3QisM;{g20Rh1DWbm`K2t;t)qt@!bT$#)9z*?<@i0#
zL2&l?*J1n>?S};1=;Fn6qp<`>m*v4_W`oQ!%{df-Dx%CNnLyz)x_#NNQDDfu%3inH
zW#uT)w(D<p*V=nyHSnwky2#E{fno6Ji=1xwGNIkx&4KBi_N`S$li$$J?P0EJD*HJ-
zqc)4O%_ZjLmQ0YPg#?zGd?@<k`t|E$pePFVw{`PTKHWsffBy`yk>7rKXlO`v)$~dm
zEaBKNM@*1@;NW27^e+l0^1YqJnASQ{tReAq^r1_dH^=`2b)P|!!LO8KSPp>W<y7zO
ze;=Y=z4yi;A?<zNP;(}oxY*EDy&E;omGUIp=H1T8e_v$j5}aCBr>CepBf3GDbt*m~
zp<KY0W|4MTQ8yN;5Zx6>h0&{&?1EE$r&nFyN3<w?n+%EG%&vsvumNU6ASJc#9W-Wx
z#FC>@wK!Ra?e{Y$=CaC9%#wW&hRD3g_mBUpOm#Rli=Jk5ajNsM?7t)|{x^dtiyz8F
zE2Fp}VvOOe$^)plscKFTn<lb?mZE=S_2}?TD}^o`w|TWgkvB?Pvmb9)yp4^!&QXxY
zdw~H=D@g;akIx-2qy}gjmVi$+MGw3bk)6fG=fRFK0v2Dt2@RC7WX#3izh4Mu9$o09
z;SU=%`pAYU$?e)d2^s$~i9FqZWA)yrezckpYbHaQNPU8W#HED6OCi+ONB3SNs9g|}
zsM6p|izz^F;4$1)5;$8QpBnJ5q{kK)yLRz6Qb{+4+VemCYuf4P%}gMvqo5Q(O^UZw
zM2VH&mi7b0+6`bubwgsBMiC|#nLzD-D6`P}CK(*F4GIZ0Gz%@Z`ki*PU#}W+!~|gF
zrCR-n+(Qh-yMshU;2c$7JpCaW1uck7){H4hc5!GWO^Zr2%u=XIFkC)o$p&by#5N0c
z-@tdlv|pbhcw?*-c_8a(4_+q>2dTvCCQE`cTu2&yDOzVJp1w=>u3F9IUiJJr&#$cB
zODsaf(oEO{_sPMiAm{965%d@=BOAb`L0C3#-0p3Z8k>*KIa)*~nP9a4&d)2wS>tJ?
z;6W*!=I$o*A~GL<2<G7!1|yNMpkx1ZBX1QV01!!L55|iaz$6BjVFX(T%@HJY5d{|}
zDGky+SScbOe(J_lYbIrPBOP7k${c?T9MZ_2)8N0AM{^@0F$ne*TkX=$;gp>)mZxZz
z<EdwFo%W6n!)&zflR8hx1P9&;LP~ajz#()a;|{<#*QKmWKz}~TvR9>G0<mC`flY#f
zIQe#oKX#bKy~J{0feT4@J1FnvXyhN+1@~Q^&*TKJxF*T8`P$BTS21&B3z?hIxe+^r
z>I~g*{6`4aFk%w{0lTQf3U|JnGL~Qu76-w%<AP>6Q*6rq{2B8LV0QRXP>}A%WRekT
z{pHTN$pyD?K@BCJbc{tdnU_;e=Mdv#3Gn0Pj<?DdV;Aky6+Ji|pDUT&Wyqn7K}p!|
z$CFHUkp@f<8(IZa`*!xgKGGN_lhHyo%RkjXX3e~ArI1x!A-Vs~k5|MzUA})dZJ%cT
zoXQJevxp-NM?zduD{_TC!|E!bfFnJ}zNB}*C~bm=C`mp6h~hy1Ls^e?<o$y5@<u}t
zWd<PC`mtS$h=0%0m>235wOz4U(voJK0)eME<;(}1YaEFFv93gN3Te?<7E4*TZ`~>+
zXo6T{M9CQ~7W3Lh=9m25>3!(OzUe7D(R??^gj7#yvmL#}nJ;BLimp`RehZNKOmi^A
zA~+q-bwBUP^PVwp?Mdt%njjenLoDU!rEek=q@I>eQ@ZXgbYea^lcdv+IFDdt$(rB{
z<25EPFU;(Ru}no=JW#3g2|Oq=N1u|<>2G^4fKe7kkdq<mnf32bY{EUc5m_z6zP$*R
zwJ>WSiRUn$%~5&^&f2>z0INsbA+p(hJE+qQ&Mzc$b@al&xlH4pd%f~X!7zLQ$6uV<
zOGdts$wFwQ_ke+V>1K<AWT=@fx^RnOU1^9|f=>9y#01fw$RA6z{h+B>h%m8y@!}Y<
zj?RsUvkzskP4K0RWH@N?Yx_UQ@4q;gc$>u?PZG!K-^W}X;(I<6vQUs`rb(HP$K`Y2
zU=!(#O%{zx7;%es``Kw)v?Uo#7|~g|bAH+EIm9jYIEoJmrj+`B%OsB*t06NJ0Wad9
zVOO`GyyKBqmiulzIN`DQ@XGRJXqn?K;pnfJ7HessU#w=W^Q<^sy1mCYaV4!X0@Z={
zfk6zDC`61IeEB=NqD%lpBJ_5yyr{nR?}p8CVP#7u42rz^Z*|IXvu1kt#>RZazHcbT
zD}ml{4^Y5JJnMzXN#L-Cf$j&WBQGj0N$^ZGc?*K(Z?3Taj+VIu9g^M$AeD=e!G!AS
zlvuwvSQ2C)#$_CO^8$;02xo`p;LD!qbtXp;*$xI=YS5C851A)I!d=LV&3H^7i3lIj
zgm45v`)Zyt<-#Jo`IK%3Htu~>zn_q7IeU8tjy}x3_*VHxXzzw%7zFOO$c@corDME<
z3F-tlkvv3c@U;HdSM6!@Qou+E_o%E~ygZj_E8Sq7o0LgLtda3LD|TL)7eHncVs4fg
zk=sxOGz2z)6fnR@o_?5XWbsjpNw+9}B#7?=l(?C9JmtvYonUN($k>QAs{L0<nLxO9
z)>u_q5lmR0N$w6y%y?)C20w%vae-^-fQq~V?YV9u!{iAmf}bWzF`4#AhWe2?Vg}$G
z$#5mJE~~egM?npagjTi-%_>b0Rf9<O0Err=k{};cK>`YqrwKngTea^ubYyQQeI=LY
zi;0>?I37bP@`@T=$PEmf@ZkpW4H?jHiI(r)Z7SwR2z3B|;%uXAw~_7xB?{H-dY7|t
z9&W`u+=}ho64F)$+3qPabt`AyuD%wyEpd*V(=_j6ztU*FR%qqltG-(B`Z#<YrTp<&
z<B78i1oz@HZ-Co1!wSKg6+{NL+=Y%Y$y3S0xH2dSQT*DT5lGJQC0v0#V({;Es>gtr
zaP}}9)@jG9gS^I@C3&i!|GsdbdK7=P25me6j4regy#OyQDdu<kY~5-2VfSikYWh`=
zV_e|o^P12uf3?XOs>%sGU#!f!PLC=x3nt#>vPe`1q9vH~sW-$kMEtjdTSlQ)2az+F
zI0<?@-QiBsmtTVNDg;UI>8rdeZDc9}yBPVba5vMzp?l3<Ua{AW)g?K@EN0V|&~4}K
zUSKCL>7tjptZzAP(UqZWm(%0nudF1>v}aZMH|$VLWGZ8oZr^=5hqkBzo`FH87k}6*
zin5TQ%z|sFpU39sewt{2(Yb#<zi+-~FB?kI3MfiAPVB(5Ob+hLpHgFcz0e)rgx7l#
zjXn@P6-cgo?)P9)jTo5t-h<NE_QOrcX>Voy-WicThH%6nw~6e}RxQcpN>XHqry1`l
zqB2=p;%Zn@aUQb|3K4ObEt3RU65xf2mD1c#RE0^dgZFkn%coq7M@m2d(u_h|2hyWo
zaCPBu=)>H{RsN4J|FCt5o_+5QWBN)*uFHn6gRaIN4YRyu?tT1z6Rk28BNI+lM*o5>
z5;gkPoLk4oc~Dkcm9SO7{6ZnWtUe3<55cG`BoS$FaT)}5wit3;b#lvy!BIzz^a^o|
zQMvmKrJbHdS6@A2*4$qK?m|$MFW)N@q5;4iiTMj_)=5c~RvcOmHDQ5Z$x$7{TQL1A
zl$a&&g)8R;`afDQ=fy2I5w>`Sp}e$lu6tT2nM~9Ik^TVr44n4|xw)#k$TR~G<P^4I
zl1o^`%dFTo;@YYO1Oj?@vLyXz4Rs_Zm0&u?K=s!=J}<8XM({gqV_n_5WFS>xaT46O
zcjYaQO%B6j5VpY}{pV$v`<Ywz{hIK~gyP3Q*LSgj2G|%4Re}j<H@plm(*wu+c1wS;
zm{uTKt=z>h|L{as`3GU^h?mUkNl~k<m-D?~Djcvz7!M=E5lY_Nk_ra-I9_9fLuQBe
z{#IrKEMn4CQ-^m?(GLA`!zW$VU6%Xr6`AUnGvC)pR}E&aG8Lj(gksps+GmA+Lhby|
zxxn-}Tz<zMwKp6n9Mxgnk53*vh?~jg)>#HH^mAMta~s+*rZ$JG2K%G*tS17g5{>as
zpYBBjs<u!gJI`s35-djS&2=^qFh>>0U)3G`KqgqR)!=Mcl9-fX>FaX}BBdt7dZ|+b
zTsQ#?3?43l!>OU$vFCg_#t%JumrHCH;2M<JHkdBqmby;8FBFG(Rp1u!t3E9^4<9&_
zqPcE5E6{&p^%>>}|LbG52zB-MuzsB)gIF1*X2~TF_6FbZ`IUuKqp0tt(fl-tE3#~k
z^;YM532E_(a`Ep%`)h6wGB!K;^=J2X)Xb!Xnn6F0eu4pVlTza1WR4N8x7L!6CdQlW
zNiwANnJQ^5aVgbjz3<2+{f&Zqpk@kcsSF*_FYUQTrb&SrV0Yv$)Y>MOH}Tti_n(0K
zDlM`AW%nS);IKo>wNAK)=g!|U*}$GKbpN7ZeAZq}0Q`eAt3S|rb0!^BbU&Z~(k3LX
zhL#r#KsY2odtWQ%Hh8}s{b!ZkTh%ZruK+Cy!VT4kXm`jC<B{o4g_agUuv$}dv;+mw
zSt#pg7s&01OELz4P#b#}BrZ;gWVs$Zg<1x94Wd+|?F&z#x;vmEbh%c*Is~!a`oc`s
zjxTTfkH@tS<&I?v&<uYg`y><{fW<K2;I2`yo&*rfsp}@=8|uzH#`VG@QvYm7f($9_
zo;3W$E~(n0;R8ZMSbg=+BNN52g-bF?xrX)#AY4#k)(Izxp|c0`(-g+;q!kvca+8il
zbfFi@k`aY+qV-}7*$uU+8jttieQ#w<glSJ6;+AQ$byzaE7GlLF0|W_x-Hqf$AQ$GG
zsI(#^7ee}FdPMH%j7!QRtsk5YGO8G#O0wLbF~}rny0^UI$b3vSC!{Y;E)&Ua|H|SW
z_U$rNLyW@QjiP=-*(@F7v}w^&fY`KM_6T}yX%%Q(lVlRVgt$0Nw0S9Kt2z^wC1^gS
z{Mc3s%+QT<%+NMKw__*h+5q;O*&HBF%*`InPuoz3D&?ubGOZw%_c(8YnP+XsMnA<M
zljB;QrPm$%d2TOOS+Ta4gsJ2SxHt=+pL~VqhSjy|&kh*nrsatcM;NARs9|7pqzeHQ
z5J`a%L-=P$Myfx3O6}TqsY=&0@8s)ac<w~ofaj(qj{rHiO02#not1I7ve_p8=$h%h
z411w2SA9!k;h;iSBTj50lUBJH@Y_2k1ATIXWZE9fT0!qsBAJ@VCJc{d5<9SbpY-jj
zs-thmmX~|W6r2aaqg-DsBe1i#E#*;fpaB!}w?p|0c`0A8^Wv_>$2UKvzA0qmk^O@%
z{%gAjg=rRI;0q2e@<P>Y3VY!wC%LxUCi$JPr~F(U8<dbFt*zVFyFfU>b`+Dn77rN+
zn2XCA=Vljj1*)r%M$LnJ$ebQ4HDnB83j{TaV%4v`VX(%~@-A+?cs`65E~Bj>rl@45
z#y0L6XbbRZCes8Dvkgn~f15GLB*p!t+?g^ROEV9~F}dO$J0E7UJZ!fu={he!TNFgL
zy|37K<Ln+K$j^>-n(=kX-~FDO@Hy%pF-OGfeMtYY{p^?F9CXwE;b9Y&e^#sOMQ~NJ
zhYC8DMth2E>Z`+HPcB6LgeOV*OGr{CgT)Ag5(EE0n(k#XDlKg6Kv-K5A3lgdGGnpV
z-%j}G+oZ~aNeO8WtM8Zu6bEKA7EfK7^9fpXBWO?3LWSbX>Nz%E(}r}gC~dEPLkHUf
zi_}jaKenVX?H49{U^L%R_wi;ifayzfgcvU7yg<xsDPdc6qG!qxxG=ATL0Y&6H>JYt
zQE$e}f$@{{n*{U{$`8&jWxj`oqD|f5SE(A#@uRhO2$Uo3Y6?RUv*JbgfMug$Vni4x
zeQ%3$7)6WhH*7xgy34xM5=YAPo)Ob`D0>#ocMmFnMfDsnK99I%P$r-s%<@xQ0t#v}
z!Bf1c?8Jbq*Qkc}SpxDr2_X>#6qB>IeceM1*__RJ9%wzL+I7irAl3c*ZmcG=#n6^)
z5$;%}n}lU{it18kj~?*k!3pO_05ag*V7o5x9`UP?In>~@K%ju9e^}^AQdALvWvQ6M
zNoq}Md=*7+5iSm$*bg*^Cd=64nw~t;c#8I@)n2AgK>nZ#mqWh`cz^;`d(+e%XG=%&
z&<Z%fBxZZWv?5|LML|9q1vg<08NfpZI%7i$Ni34BI$m=asYp7=7OS(;_>a}uNv#fg
zQ6t%^&HkJ8JnD&AWt@uxrB@m1^yO3Rk8>?V@b3z|CjUl&j=!)xe43=kU^jY&h=qkd
zqJTE>nDDesIfD_LdTEz2SaTO}&R4jRQVt$fVhab$Ms?+2a9GC9b|uWKY+e{OqCUx+
zBa{9UDvuDg3Sy@~llfjxJ~2Lkak61lkXu4fZN`w|Q)F5x*iO>+NEkOVu--?Je#a49
zWJ(4L78TNnhA2<g2#qylvsEjDD&GR&a3ApM(SeA%w#i{f>t+0%m*-w3s>djYSj-5k
zLTWs;(ejN*6-2g5^Y3$H{W0ZZNeas(@RG{nPFLo@QX#u-O9oQomsVKPqFq2%ZT}?)
z>0ngeAqb5T4K_v}Z@{<FTJ4pMXX5K*&O=-EnZzi0r&np4$?*2Kkt)iV450nhzQKuU
zJ-U3C{6nBM8w?9QHggg)1OqG+G9HyopuyM+<1N?1>6n(9QRPD%Q!N*t7vUO<$(T*j
ze67RhWitHvn<}<#BJR~a=qOf-&2CuawxRp!!D{C1;`D3HN!JpsFL@fxpcSraoJsqk
zGf=trH8phBT1f#y5su*y_*6(RFqlL~r}k_FJx4W?p+~Pjaya|(;T@HSsHuWjQrp2Y
z#o|3k=%m6U+7fzBn}`t^roHt>C^0+WA-qz47-S*g#E6+v2BQj>qAv=s-h*0+Otd78
zv_;50)B}wjE5%?c@^2ClGLoc9QV<ez8UCGs{wP#x<exsEs%ocd5}U|;MzV&uk@P=C
z_AOQObSLw2iNlP{UdrOJt5Y4vF}hR^1L;!JL2r?UQ=$!wbDW_)^j{Bhr{)}xiJRo#
zUXZegFBF{<u&!W;(JCj?;<BN|QvY65HEnzUsT(FNJs6Rr1tu{WzUbr?ktKp~eOh6<
zC3r*H2{xuQ{fXCU<fmB{OVaXbb6<7v_dHf~SU>B_g}0KlA0?(-H|pO{3B%gcr{49k
xmcd>{-cNIBN1=va|LT=DrwovP(T@%NRfqOZjBdq00z#wh-E}}cVaJIJ{|69qQKSF>

diff --git a/reference/plot-14.png b/reference/plot-14.png
new file mode 100644
index 0000000000000000000000000000000000000000..63e86fc121a61ffa5293e632045fe2c8111637a8
GIT binary patch
literal 25676
zcmeIb2UL{Vwl!L6tEXGh#)P6ki-G}xMg<fEY(;HFL`+ClP(TSK8Og0jMWTv|lEo}Z
z1d1GN2_h0qq=G6WODcjCp@4dGf3)ZCd(S)XzVSw%asT(;b&PYgrNZ~^Z|}9{nsct@
z)q@B22>c-Y1C2%#*!!#cAsTI_3yn6z<ZrX^H_Y4j`taK<6OBFU_#MAScV>Cvx9`vW
zs%uZ9iCiK7n-<jCf0{=7iMCh$mm@CW-3@Nxw;Us8_i^qnGrRmt>$3|NLSteD&r039
ze8T6mhxYB`htFyXlorJMYwl=xv#6BWY4-H|7n3iKVxIfPURwF<+PcCGJJ(CJivMln
z_WCxv^2yJ3CMRq*nwyOXaE80&6RSDl?Ze}doJ|#*R*dw8v4cxm?J}r~`)TX09z*I+
zH09m-bI6~rt(_)Ie%~JRT{iihc6CADbn^S^eSgIZdOGG9kL<X4`}XcLXU@D0-<q6L
zx;K)u2A}^tcHJ4y^b<PA^!1m2`t(Uq@Oo)$T}J5FQBU&qS;CuKrjg57AkjFJ{Qm1r
zZ=t$(@o6mK3<DXv41;i&rmH=M^T>~`3jXUW?)fRKtSEe|ebb9l8Nd5Ms!Ey89MRLK
zPrr-RNgQdMt+up1(#@vcwpgUUGd6LzOo(OGoiIgu;F%AP3P;<c#Ab`RpL6J~-|G6c
zLvT%$yPf-B7~5Zw?VhaL9PaRbueP3^@WY1>`?J^+GUDQA&z?1@OF3iva;8whB#$E&
zq3j%Zah}pz)!~eaLaD^;L!2#hgk=2jr;W1&gcoJ?F!aB6ev&HRHu%=1JE>SatW1Hk
zJhjY4$JoP>eEPfldxARZGwfH`y<XY>MaxUctUP>~yu3W;{M*~>3mnIP7s|cH_pHF8
zzBHA0FpR{C-1+(BjulQdC*M8P2w5vF9Ux@na_>aDOK(PdTaepugLB?v53Mbq|304k
z;gP20b7O_D03l;{xrFS2H%k?)jyv?!$!9uzSs*r&Kf7ssup+2f)NO-;b=}AJhf7LZ
z?M5^AX=s=>7X@hcCVNhdDe*SztmH7OM(k(cA#~8}Ql6^uM=LTWxJ+3g!LqS2TykB@
z9eh*it&kAKtySr^&30YYiFAj!&#$hu^YXsF*T}$HZmLeBvv(Kgj1QFB*IFrr;G2#f
zJ(@9CuAKO8a*vpYgH1!GW7(LewC;=5&R8df^ESNREPC(55TmnIcP<@#(zWH}?|*lX
zikj#)7Z9a0yIxqli>c4$_3CqyBHem3E=06r5eJ)dIUXEKu4ie8Yz0T>$dQ{&T#u6n
z9-5unXo;5awxIYt-29C&1#7+FV(aqZO<`qK%iLaF7SIgjrR7b;m#b>7`|80I_Oc<H
zPUPaUY-@{8&yL!Te7;h=oSv=yTrM%a$#<#z*(1qjTUgF)58IlPR|-SrEkotG6`tJW
zkt<#!SB_`9*xsK=$m-2Z$4%U4Fcc1`O?(}h9L{4~@Y|!jR1YZkq(}zwON}QtjtzAQ
z4Yrk8zTn)D&}i~m73lLg$}_VhSNfB1b$`wsIn&)_XC$2}x#61D{=*ix!H)YufhydZ
zRpR1CUK2yd)6bnu=DIchHhZ84iz)l2v^1@2lVj({E$!j<<aXnY^Hg^S2rnLHxzRUC
z(bX>H(wRI@@-Urjrn3|_pMG<*=K0B;>gwHC%>HIE{+1=OMl0}au9umu!m%m}SZ?~|
z{X;qXwznhW?P_9+7cUkF9Bv8LDw3}@2=>b1<noG|gVaPVs}lmO6qe(SNhe-j7#S&6
zi{uOzEvFYeeH>XA_hX-i@z^1&n&&Go&t0})u)QKkV7Y=icBW>SLSb@+>T(Yrw`@3P
zq{+{8e5Aks<6*5`Au@(dv(-j^i8IL9c-GRAtRl;OuxzAYjp}udnj5#<WpcEA`8IA-
zp`U3-<-O6?739<p*V}7t&}VGG6UR|2!s?oGyKBkgYad>|)$UX_7D+QwUt`gjQm#(0
zq^9q)XV12bG+u1RW%|lnR*`EmkP$-o3EbLt=YmLVdioZbtnL@%U3i+YB_0S$`|oa)
z;E&zVkU5jW=dt;d=~x1jcQLz?5Kms4C2Jo(ypWSUcwpOTOR#Or^*wDoBbU#YlFoj5
zCbA`%@lJTy+Ko-e^5-8&Fl?XCF<}ko4!3$;8gtI$8Tu9Ba^4IfUZ}CO_lSJzNDO6r
z@_HOSFY&IfiF}gAuF{yMuHK99E|JZ99=}-XnALFXXOFS3B{{gSA#R0Pa>j=P%F^uN
z4^fj27bmdTH#oze=X<5UvyY9BFAG?<Ns`USp{GBmuUs^s)cbmYfZ%oIp^t~{5uK%#
zoa`rt61~dA(o#}3>l{7$$$}qZ<hqXSm6*dl+c$Z4tG$^`Rh+JX4Lb%;L(!%_ef*9w
zf2?|WH#1UWb4rzm{%f89Zmq-RZKL(huB!ObwE3zdjY|ULoqOw#XV{&d95M}3S%Q#h
z^PIm+$Z*l)NY}HIL)CecLy|%7vYa{TqitcUf=fPTc~qzj`;*{M?lxcL>p=$&D~C0C
zcfVwAe*nG3SSvy)mF1b3J9hSMgtDTzxRPV%BCT!x>i64^9XYZ{ZT$26!BSeieTB+Q
zkG0i|AI^(7t3N&v(S&dvbmPVig{>^CX-Jf{-qE9rv90kKd(zmEbYsuaRsojUn(%Ww
zR(Or~le>KKWNj|5fzxK})vnAwWAnxOS!yqno6E*MdPjtLrwK%y`~CY-E*@ROlK5L=
z!BOL@*^}6yf;n!(Hg-{630X4iNJY9)oM9H@-K6o@`;gGNf_wazUZ*>ERY{X$yqiZC
zIT){(x*i*r(KSfUA3Ji3t%;{VO%cgSML}XwUK3&L@kb>dPDfTIHV3Bn{XQpbNM+rF
zME6#yQEq@DtL8*rS(svRgfr`|mq+>5_C+ltB<-wlY5Yx4u)j*5Uf5O^HfN*F%G4?k
zCTn;(uKv0G!al}5lBC#^O+tA~XNx!-B>URPy}wZMRh6~%-E~U^`(^n9vSoGV`QFnU
zjTDFaQeIx1t+=(#$gSrVeZGiNN=fY<X1PUNLINwH;_cl{gFW%)B8sQGQq6@n9Ix!2
zV8!k*Di*PQzjsaQm>k2gXqkBnbCcOypHHzm)l5#i8vp#qs;b@U1=m*YG~wi6y}HR=
z1Z$}-GahdeGDTEMLeScytE&rSQ8nt?lUhB%OW`V&D#!e%r{K{zL(B)6dn3tff`W;8
zldf1B<E!&MI(EKGwXE)7<+vF*yxS#bSrzAM&aeRpX}YCjRFcQqn4Gk3*REZ*9rv!Z
z8S}CCty8@0&3;<4cw%BnCoVL()8fte=-^<_!UJ1Yl213xbhug`p}eQPJmP*_+y;KC
zBW(*g2cDV{2r8XQy-z%b8`2t06&}XK#FXzG5cM4S?8@^1qIjFOMl<wd#~p;0-t^|c
z8k~eCgwen-dhXV?w|5sx9gFk9>3@=tkT95<ia#w0*X**0=P`0Pig;ot+9eyUO;_y+
z^gkMVtnlJ|)uoRkob)2RQ(nB-*o&yPRMp+(Yj^D?QID_hT#IYCIw{Uf>ohYlFPx;e
zX^K`gl@{zrX3dNgFOL_sR-Usg3bKA-T^3kwg4{<US53;9!$*!DZOvoMqb1`7c~u4%
z6=Qy`w%v2<_U$DO*=?af9l0KO2sUXRg}#eNhtB)?`85|T)UtBOCL2k0@NPx-&67QD
zpXw0eSX78B*UV?md-LXv$=f?}{kY>@j*gBSjIy_g;(U#Ke5|^-u&_{2Fv+Q>ZcA5O
za#P-9S001u#r!GtX|$7N?6LSaX;SOgJN3=g(^|QsiShn@*PYP&flBN7w47>VFO?-S
z2FJ~LGv;r*MmNUO)joEts`0qj*oUa5P|JjpJW+rheD5ljOLM>olRdd4H8qtaHDHgt
zS@TvLZ`^b?_fb`jwI9z(CyP4LZGwG_WIVST<n?Ccpa1}iH3~NMOBL(S?eydUiwI)}
zJx$h<41SvY@%OI8JXW0P>Ev1^4dw1Mwx@JlZr{ec`y)~>7<&wTQd((jpU3cwHqfuR
zj_bz9jtqq4g?o8a8#=c#u?rsUzk9=LqPD`5@h-`;@1j@>6Dj+^+faF_16x~fc2p-C
zJA8RB;p^+mn4^hgSoi+$6CHa|y{eD?eT-bX^Cc?OT8K{L9C&p2@d4Y~(;<b(8MnMR
zmxPRJ64-#dA#}wQ(M|@#!}~Bh*Tebwn<~fOzhBeBOg68uDc<K~V4rAumSJ>d__n@H
zNn!wRpj5V4pPsW=kdq*o-7{l?kvilUvH8rQ;7uo_q@=pus?x9Smt5G|+B#Z|*luYT
z1q_>7qS|ww?euZ#VnV&0*Eo_~%fxQ3vEdb~P4>I<0EEsS8*yyCrPIc|ID39z0-_<V
zrT?jx$9i@ozQBr=ogor?=I)~e)3e-K^QfiUT+XRyXO(x~mUpJ-O>o_#+P-7xSIAhG
zhyI?%a_tJd$&8LqETwz#n36oYigLzE<yRiecfI7CM4thwd2xQQ4KPhAba4R=r<~~d
zmh0nPW48}2RdTQ(hlKC?@ribTYFsBUkKfb7kK2stBHUi9z-<Gsw+y^qwMyKi_06q*
zE&f-nGEa*-AdF@<e}b(a&)8vHyht;2^E!5Jf6;PN;5OU#2<JAoGOs&1Y=vppPj+1o
zMLP$Rqb4>?HmgmV&R%a_bLMfxZMs(YmZb6-?-`CbjRk;9td=|Rw(Lx5*FE~13$qen
zYGID+kZ+P{anWHdmBj$CL7}0cJ}%B8m55+PvY!2ZR4H@o)-6FnZ6hPmi?amkY~l_?
zD1Fi`MyAN1fanJ;wFs{cJ%E^9eoG2R`kTAP&rUSHyx8@ffpQog-iOCpK`}AT^a^C&
z^<!VZEKF-~(%+z$^5noZLu5mZ+Z(Qa`S7@S@0y536JtYuViO&E;`NMICYt&lP#tX<
zPrVB~O7eu*HByK;PB!0LX<8gumWGf!HbN2!J$KaXRC2A458_zh%sER6W(pbnh^Vz;
zWNWy6`PNZxschbgHIXhR*<+otql4sCI!5OuR44m`it*CQI63{U+=fq7$cwg>=rPPs
z=y*9>%pWz{b6pQH*N%HiU6*WnQa&8;E0xLGV3XZn<m2OlsAN*$BNz}^{a7ms7q%vJ
zeDN5!D$zLa4zlkG=XzUhLqicPoo$IkNP$F%!F$%j*2SGlj~-=bZ!1^hkB`4)CVKQ(
zj#@8VbHJ)<DZwRkS8Vy&2#~<XhoF+?wlF$Ci@6%F_Ku316Cj3{#V@U1)p=fg3X#q~
zYF-w4wEg8JX68_pe)D?`S!=ucs%*ORr>T<>jzZ!A5{4%rV{ym3`(dB*^wVqz(3Ri%
zfqQwmjSqE)U3UUSlob%zma4dZwKyiwW8K&Il7N4z;uy|A?l+wrAB{hD*wV20qkFG?
z6tg$y{rmSM`X_T`Wn==)BhO1By49Rw(>=QMZIJ_Z0sFA*BLXr|i-ctd0>JkJ0T!e3
zWp~@oIsa`J-g(KqJZtXKALpx$pCg#t?Cl*v0;=AIDasPyO%<tFe_K>%MNhQvH?0yI
z{q^R}&71*$ph{BUkowjHn@SGgoRmOEjvOh#-ZLHP`z(iJSmVW?&>x*Uhfc5^O1{mv
zrS+EtZ5#L%rSYbIz_mhDKrtkgk&-I<my0GXudmD5wY(;&QZMIGRc7G2t*DS<oH;Cl
zYFgP@EjKh+hyTU|+8XJhdo3rGX*0`>6R_33t>DG!(ipelUb$1RuZ_Ikqq@L6%ERd^
zHn;qNl>{%6+swvt+9Dhm;@F4~)PNfhm2)5I+cNR>gK2k75~;9{=Xp-J31?j!j-Psx
z`z4V;>azZZSVN<+lr=U}fB3&5Qr_R2z;^N3FZrPf_)R$>N9&=kQ|cgLJZe6D|DPC;
zBmeQ^|4#@K@_j#PPd6gJd#nHF_k%(CfB1r<?^!due^@Uib^p<$M>(Z5r-OU<?sWi8
z6&F{avsRFh-|kEM^{BSC_ScSgs6U^@#+sIe%J&!u(w@FKwecO&3eNr0r&p2jof7_L
zan&ftwWlxF>|YZ%<VycyE{c5OUrBfEtIP7f{VYB{0I4iU&TDdfq=Dlpq!A($fKp;h
zNAyJ#09D)Z{^C90zV4eIId-h*<I}^<8SRmNz>j<QlM~JN#U?CBMWJnAP`}%p;@$dK
zr%*{I<oH=!CHN1)-FS0)4nEbkR64By2>U39OQL6Mh_Ps`l~b1W1aCNK-Qh>-K*N4#
z<Kp7{ksOu;OiPKvRdiIv>#M6HiEhOos>>HoyY>ud13_kwy800vono*Pbs6HcL$^v!
z#h6z_B7LAlMKHvJt6YGjQ}@{;c)klKi<3*<v%<DOFbRa&ZiEd|<`Fu8J;_Zo{rvkS
zLZ}f+gVboX&R}f%OSC*mb#4lvCFj&#vsOyVueCI!IJMenx!)3LUz}V8Nx<G1;hEXj
z6hJ~=5^tOteek>N%A}OljhdbUEZgRyLe$>EgzX^=qGa$@vapTbGYE>iiW?z?;|ARq
zr?NZ{+(iN6<QzIGM_SgXEdvy}j(b8pux)Ux-eqfROM=z0xa05UnG@ocR+-*1gH?3%
z)~#K@KgjCHX^sr=q%L3I?ZJQIgfn~ewY3EwhuiH_S4R!=_?8q!M7nU49P;%I4I`p5
zn8+eZOdJc6?ga%$e{|6&e3iQTHWbqF$0f-3<OdR(Q*WnC2zB?U#FpVY`z!e46*w*0
zk1L)XjTLWd7?Sq&^Xn49ZK$F!tFuf@wRuV2PE(G4^<6euFIo4`b5Naty4YQiwaGq@
zo0?d7eUE5{As--McL956{TQhVarT})!^2^`{AmPVb~VVO+f*RXp6ng(X){7SWb(^n
zk!--^F|+2<l)QlwTEzlq(4@5w9ctP%)9Iv$WMhEOllb`fL04dT!q_bR`9!|cZ~Fnz
z)w7pZZ9dhtT@h5}(!MskjNMV*;lRzoC7X5CuFX=bpe^#PSVa4w(ENw)Or`z#Zu!$@
z7a+2(YHEmf232H>Vy<Xnm@QVJ%Co9>?TUAtUU%b$vzAAxQua`-($6yM&$?tZ0gM=C
zIa!}`!}_$?Wtc^2?D@I-omiUl_q5F)x;Ir=a~7Nkc`>Ax@0^;qYWl(Bs)wVSElRxJ
zJKXVhwnW+R4v!^$;Ej}NQ^D1wbDw{A0dQ;{X%4Cwu3hjt7dcoUFd2Kx$3=0jjRn_6
zT|G!t#RPShfK6gt+}p&_IW*<vQQDPGz}GQ*f<y)Td+9gjx%ww)m3Q__1{>eL_vn!%
z9y&8aJX*qas5A8yPhp#M>WtT?HrkGTdAvuxz)v>!xH<E-+INJZ>ACGxV=_9>Dkx|R
zDvn`tYwEE++BrL0@VZxH9V64R>$Y(SS)L*8T{SOHb@dhYZ{^|-uOKhnKF6WMTM=oc
zx^*Idw(3E1eVl?#<y#PAMcw;e_HY~0ZB4gLjx^)rL1U-dJ)}OKWB7g=2UTh_L9v8m
z#ikhG=-|Z1?DA`R7MtK(ZR92mMv&Cf%pR|{yXNG0=_Z>M;_*a@nF8d>ogZi+A^Vq$
zvvz@GVRna89~~+ctT7_zC#93%KUkrb_fD16y#!E@Wp_=>1C2}G>6+G)$Dg#F7^>cL
z{``5r&VK}^>!HbQ<8-$W+V)K<8^5-2Wu`eT6MZpj`#qP}!VVjx&%f5&JFUyYo*-T(
zJx_%&xFE@dnue;4g94T-7U3_J5n6ukvW=?=5w~{TnUT%2=dD;uXw3Z)O7dVdgb2&_
zmBUus9k^oIs@?uRO-)S-+g6e5_iod0okd^&wsGbObF*2pDI!RtYZq;Dxo3K&WG?GL
z^_1FBbL+25o_`WB$OZg6^7H?E#Xo69|FhInn%Tc=9i|{5fy)vSxu0m=;Rq(otnX@0
zpW1lWJ?qJn*A-$kWvi}=oBJi3Nm@BntZ)#eDZ+D);VjxmOH`MZB#s|3Fz9Zd?|q@~
z?({5$Y4qjC(`*bse*Bo?yo`1*@s^Yh!}<H?rEAx(_Z3xfRaaL>5{lDJeiR`!{imZK
zeO<ZT%LE0XiD~QV)&ky06Br`GsuuotXqjXw|4RJ$ZxLMo=OX_q>H6Qal0gTVzkTxp
z{Iy#9Uv$AwZg6Fy9|GVsgVppkp6Jx+2U#a~EYU~=uq@!W8MBKB33Nro>3DL{9VN%J
z+n}r^0SI-l^Ss=@-WLl1i=_%U%WT|0E{Vp<+AkAQn(8d5e72`9mDKyYd2>a#Z6WCY
z#K9~e%yfVTD2g^|@m~B%Ip~fk7A&<RP>7%&`4A&_$i6C^57<Yuc(mtoWIanFU*<jp
z7^2Dx3PPSrGAj#3S?PV`^v1g#waMn{>Ifm~kolE$zDrS0G|F*uVLveMGuwD~>BdvP
z&J|PLHczP|niNNi7BAifVKN)?qU|dI#R4$;&A-hS^?^d<oHbD$uP;QDK&Y3dMgCX8
z!0kqrwZS-dTS5-EZe%cuze2IW;qd;@%}+(jDKA2_?cT(fS*TcwL-NL330p}>MJxs|
zGO5rAYDob9=;Jd2d0ZH!0JBF8DjfiKz`dPUiq=4jUMnjb1Pl!7B9O>Lc(W-h`+Sl~
zp)W&Ko-C-hq=ZPHLhI{QLH<5IkR(xm$0kdMlorC^AS@^d+O5Hc4fMLD_2yx5ag*}!
zt?>ry$Q$$Bs_)HU#aDl7a1v=iDPEI(-d<h(YY#JxH4&sb)&af@%BlX-9n`mognSjw
z*3^A|;uqllMkf%7<qRkcy9%=AELHqUW2kzJsjC-QCgxOi*aBag-~|FUYF{gN-bb}s
zmav>wcL;?qkY1L5OiW%yA^@`IB(3J;-TjXaFsTZ`DqkPeBB9XL)eT&~JY-rM1Nf_t
zs}#gn+&-B8?Adx0kjv*@AkTr&Z|A~+1|Pp`rfqktL;YBXd?Rt|=FO4O8PPvsnLHll
z%f#)Jd3UYMtQjR#0IKZbW#-|6S43SqoIJoutTN#}T+U!PMrRG#%_sLrQ@%J)@gneb
zp@3rjj}RLZO<!MIX$!nr#Y}wA(r}plVjkTC7Xby!E5b&fSUS8Ws=chw@kHIa1(z$@
zSUq!~SqQ1#kM2R@BTvr9dCiZTxz5@&3;&8m9mg4lM%<i^gVX3J0K;rD*F}18Yst3Q
zPiWuJ&H7z+sg~;M*;G}M)+&}QAt50kQ}Lr9Y9GOclKU;rxnUc}8RzA0eN3ZSmzyt2
zi9q2yu2y7eX*n@I?fEN)fQ!eY?R9z!`kd}a2s8ekRk3Yw|6JkCYsvBIh+{^oxIsw+
zlr}Vf)LV61)>u?faJHz+iO+MWI@sdgJi$I2kzOJ*_?HB)QB-PH5RU-?Il5-QjA3R9
zOO;6SK0c;_TOU22Nz4JXMcW6c+kxppF7kZa-7R3=NKJ8eV|{?ju+FmbEzQ`ME`2X&
zr!jL;Xt{s_StZ^CWlPHH9r*y-%xez$SrYXTpi2ptnmhI>Q9-J{q3P|W3V-bUWV13~
z9w$!?n+n_apGy(_u0_<xI31s2#C$|jUHY5SafVT7F3Sjr&v5ICPumT4j^V}!PZEgx
zs?Mq)o*aln9-i+8M2_m}5-W|g@G5!pvQajw5N|WrQynEehSR$@ek=S02{jB^=L|(|
zNd}jw89(`_+VA$F=YdYQN?V29kJsJq8CtgG+=+TOPL3Rm7KC9Yu7Y=<f|tT!;J;L^
zNu`W3j?pYM_Et1%URst->wf#T@e;#y78nqdS+XdB?!FAe!K3alYvaGwokhOm--&3R
zHBO@=y576;9r>nc(V6pI+=e<A2d~izl+d`n$kl@UHH~qo&)XR`AzN_uyTQgZ|9#;B
zA4Ksz3SrV;Pf{;&I*+%?!fZiIO+G$E1t!E=F&JGDqEiqRz48jRJ8Moa-qskg@$|kp
z{WO`$cCX1bv*wGg5ELW@tA<R*>P)8|;i$2XkBQ8??(0daaB$j+k6$GYQl$Co2dyCD
z!y(cj(TQ-_#KpyP`4gOC@Fyk^y!#P%UDgt*oR&ZD>@9E(L=TBg%vFK`VxgAm=&89P
zN}J)qIp2B<T)hKvRV8G0K0D5^(zOhsIKIkzDX#fhyFjA)uh_cLtRhl`$SZXB=H*Ew
zbv)7xYl0mu5TRnt0i`bw2!R2U3nTsw_3mGfh0V;?XM(jh8E7e?7!F7WQC@svR6!Ei
zJ>1)1`sU_3(Kk~}myg1H7yAqYD#yVCpdO{_(YfuMHJmZp@I)Ya_z}OrJLH>m<eR!o
z%E{=xIz=~MAE$&pTJCHT<-w&Sb6ftzFsQ?dNR?*L>{Nj5u1#)++@|l|V`=Q?<AYQg
zHTm^1(&aMiqmpEiwr|vvZ!9xQrg(hNi1$Ig_h(di$Uv@(_wiXOXQEDMev;paeQk<X
zR&wrLp=0QHbbpwFv|2f_fmCf+NIvbSy%O<q9U#q`uBeTlG_Ws|C;pjn9tgkwR#~sD
zGMODQ9niAwn}*xHSvSg^Bb!|*e41Lf)$xtfIFKiZ5aGyD9`AeAOjh~ufvpm#V?M^&
zGI~SG%;xA(Ji+!o2m8E-VXb+c24Sb72&RP5EiKn}I$6Y3xVLS(w4QQLM!#C;l22&B
z^v-9oM9L<zz><I=5W#8Nk5YTfVH@@qAO5I4lELe~J}37;v%3GJa>ftN)X(d7zclaL
zt!@P|l8p>%|8k7F*gof(Q7^L~?>u?(#E0Z^P#U4#Uj2na?L6W}kapNgeU!+tmor!p
z>06mXh7Q`n6SC=z7u?-CKR&%AGn>31`qg@ud>+`ZcIF<@^QVF*pl<ZJyW#QthZn#`
zBFXMWE()H2!aeLx9B<b5N~tUCc>aTEUxHE280Vspyox&%Zf9fayM=XdaA5#?lcq>#
z)t};bc6PdFA$9!ulil9R6}K?qd$fANH=Y~_ap%1fn>_dDPYx7SQDWyp^9$?tLIh}I
z-rpUt{?B(u=q^;3NFn#Gi24#~7d&WZ4=;z~A?pdexl5h$@R*A6j{o^{VfZP~@*D^r
z@A`hBBvG510b^~)J9YAWi8G08<zl(w6$_h-!3<`BJp!WOuKmXs@3oxkTBU1V=!F<U
zJ$<A!tiEY|x~%}0UzL`-m{><GZ%!TPlZ)MFahCA8bp8@zGw6&f$%+SKUW~9HOpr_b
zMry^B;*Q;YnYD{h|DUgj1rm!Jlr59m7pHMcgsmnd+PGd0UR+t{E2Em6qv3tQ)jZZI
zwyg1@(~XJp`#pv`$a!jrfjmh-EYTV2n$A(5p7kC7B^3kzIi{aYm3IMRFhz(WZi~W1
zuZgbl8C9VJkJTogrtYI|qT`^RM57^GgYGS>#IBw$y`5S_%*`~Ky3}{sNP}0s#*4lD
zhq|iU*~*<y?l(QTAL#qy#fu$c6!JY0auf%K!L%v8l11<Z@n5+P_ZoJ*qCTU0;D^a;
zsr*R}zdQ|E?aI$G<gd3&;rwKQqjh&{%>V6@s3`eMZ$9=FJfXRxPT=kDU7_}IBOhU1
zWRuzc+#L8pcg&~YTRvaPCEtyl2_}iVe|~8XOcLA1I_?V!%6X2DxbS+?=6FmAbK)@%
zDrd;R2uSimwSm3n{>W`xxd2G%lVe?`(29vK2v{|smkm08M+lX>Dp%s`8z58O&&*Wf
zyCPf3!E|cIi7IXV!Ega}D_4&6NeGia(JYqZ>?*_9wqySH)Q?nffIK^Pimm^8je5by
zR||+4?oR^Ovqp{0AI;&dO|ol!L!@sXAGlYZOV6XiOy#{)z5Fm(lgOq?^c;%qC&4ev
zTEE_|R65D3_65p`BE?)m2?^^PTd5teI`QcHk7RqjzP`#71%M{E0ai}RzU<>8XIfMM
z5moR0YH|(U^By0qYE*$wVeoTr-{)7&cg-Uqu8hr>hj8xhh8+{HO+Df5xI^z@oxCwB
zDvOK5BD93)s)R#^fMr1E@0_=FHG9dFsJGb|fr+?e*tuUGg$ajeWEI+E_1vcO;dPb$
z$0@^WU}{xji~f9Kdu~L@sm`9fp`D+I3vWjVbt9E0vG9f|7TURn$BuC$xeX{;ev6%o
zOX*lvC#aC@g!uRg-fzOkpWQ>rz-Hkw&6%=>Z@)q|B{qCnT3B++?^T;TugqO`sKbuj
zH%%$-!t88#tjp8P%fo9=@s)eiSFu&G4*%iJamnSr0|Nul`r%h5q9#Z5Nu-3Z=V+;M
zk)~q9B0<51EaxD>Rl65uQjER#yjY+fVo@b^q!015QBof<tU_{Y=Z(Yb<ByQ^QTN7Y
zyu_tq{%Pt?Yi`|2DT+q$^CcHT@)(h~!kt;?9U1hjs$Q5ua|nw3k0A%qD@c*$vI=J0
z>Jw2U<d7&!oPheVbID!edXAd)*^t08@-E185yHFk2E)wFw>Ri6K>10Gbj4V1A!5BO
zdqrJ|gGIb>pA9j$&t7qE`-*e<)2wZ`P@iSEBUX9}!f)^T)+a!=uD_U?Dyk%B7e1uI
zEbmX`#WV*4WWGEgr#+62L-RPYQ`EXeBvu_#A}P@~r>nq;`~IN@(HlmGS=bvyE4`;t
zdj<{xb?xh)ex}uIbp%8~95g(%w}hYM%&|RI?KqjwHaEMoY*wrIhP@gm)&IUSW$mR$
zF&9o+YZz^;eo?3=dnQEQg7@&<Y3C2w@lUMohE%?t8(_EV-Fq36M-O&9De#SrIeDSJ
zMKa`MTR4X^KjZ_=KFYqWFXFtaSkU=xxtrJ(!-F1P74GGigrY{>rMB^-gRNy8r_oYE
zEB3}CIt`bsiLyGH1y^tZ0R|(mYAwM|3S`=3Nv~i3gHgHa%8=4sG9glq%V?EP+9pkx
ztc`<q#D5#M`f9rvZTrGZX8VJ{mKX_*BSgAToA{z-`u@RQ7_*!UpkI)BAM)kCqlex>
zh`i4f*hhQc3_Isq$L}kxiDn5<t*(A5S+_#1<J4rrf}d2#=OO(%iRr%|PD2R=dB<8^
zy&fllXl}P(Ol{30>qfm!%me+AH-Rkt+~E@SoF42inZdf;rLhfWXNfo}-2G&@PqeSM
zCTUe(#Ol4@OHs$|*N_{tvjwUfC>`qeebiguKa6RWv<@z9)%#=yx1bzi-blB(S{VQQ
zD{JZnp(K<eWa8TD-0PuNE+c~Kw>14?U#|L2up;hV`fOiR>1*G-*=IBrYtAl0LM7*`
z){0T90CYz-FiCbzjTh$wGPo|voZ8+pi9mG-S-KrE)MZ-yU0#s->O<ceSPuPRh`9O3
zj(u?CCH)1LSh%!}jg32Ohz)!uX9``GA*8U*w?}A0E9<bCIaP(ZtwolBUwgNqp&^W^
zMZaH~GpNSFStIBjwmx#4K#$yIJHwtrjEwg*rUKM^e3~i<5pDFitch?qghC(3AqX;C
z>#GJIpVfPtU}+10`DqQ<grp8;8XYRN*6XR5KMSV^cFPrxAGHa_-_rg3RnxmYVgbIs
z4O+n^r<zna=e5Rro%8(qn~RI-o`Yd7r~<@@R7|bTRBV@d8doVY3G`VZTZRgM{6ylp
zw0j6=>4?dwtxIl5RMk?lw#7vpOE?wXJl)`}k!E-eXR#yLlMwO0h09D5E<pxV&=nQk
zoI~&-<J?#C)eQcKrqquGsw+u=_UmDzd>VHGb@7i!jiopczC|ui1;KU+6Bx50K$N=C
z?SuGHq}Sx=DAlF_Q$hVHCOHw5NIuFTDMsjz*eZkA$|0bQ*w3JWB6<K53P+8%tf6Q-
zfR;i~cS3n!6iiS8$({Z9<VkES>Jno3B`Nz`S~;ESE|j7GZ;BkQXA2DZ&BO!lL+Z|A
zlr&-6+JKpZ5Y3eFfdAJ`s9scTDhqoEJF+ZDrF%;iZ482YiULKJlW%Myb~M6-{Q(M3
z6Hq7vnS$84M{wePq-Xc<CJrh>rV0wqm_5%wEq5qBi9g8`>iSCUT0^6E(^;1Z93jRn
zP?g!64p0E7QhL$pt5iWp^G!UAh|bPc0f8xm?FNhk-$VHpY4Qo%Lyo0*EAG89GFss!
zN&!-^aSfJi84?oWU?&$Bm&qMzdh(>>=G$fD4L=R}-grdLItZgh#B}9noo3Bk5@PIm
zUR^!hweu-)Z<ySif<di|P7AQ$iBb{k6@_=Mzwgz2*sz-)hZ1AD8~kU5Yp2Q%4U`>O
zXvDdLw4$y~@`L9@mvJ$ChxfCyv)^%FU724&pEKof(j!N>OpzVVj)aLYc$2epExerr
zOoF6;_#=^1=#msA)czdpfn~~qcUkeMJ_y7A^>{@4azQ1J_TV8Xi0I>2<5_Zxw9EwT
zUD8NGH&3q3i+pnRp)hq|ML`Gu`Q4&$xQzBxZOEuRSHwZI(*5)1CXvgNr<gaY>DNO~
z|9p9z`{i+z(Vt&ITEvj!VFAb+FU>1J9nadPy-H*AHg1h6Ko?js;@u_GUu7$GT@Jc9
z<b)EzTB5F|x?q5+;AFM@_~}zClf1FNP}b8nO=20bhAXgdQou1<Id<*t$HXjIf9{n)
zKhlo^*$brdc4p?a>t%hTrI$|m0q{MjCQD&GT29R5S{|K;H5srHA8slXGWJK8P1f<#
ze_YTm6ey)k7MGFU!(f^K{Sid!GW1D@wEXC^25!6Xm~2rMH|~bEFI1GvOu^cc<R_x+
zq<&*HaS-BGaP(I=RQ_UH`OECZV-D13H;_`5a4XnP+8s93n`?HytZo#6_tsN+?~NVK
zf1r941#V~#XeD)}K}Rq3$`LgzRfSSl+&CApL+2lVyGu9bB(4(v2XGq&zKf-P@F2aK
zG+NBx6m|7e&mMIL@b)DZ&i)9F`x??@#OLrQ@<wWkRhPgii`u$PYpX?N^f#n0K?)7*
z3p{`xZn9KDx;P>1kBM-Ktf<e8Kl}~ncdWpw^3Zj)BvXU>k+3$Pfd|LU_+A!uT%rYU
zPf=XIKAl(A*aIjydHF0U3@p7oJSL2_j%fFl{7${ILGQ|;>deec_k89Z__xL<SMOD_
zTTlIndt&O?d;cSUeKYbs{6j%p_f7v__Xk_J?+^FFp=U7%MKs}wfa|WpudA~&w1Ism
zHX-xbK?!P29nQ?0<C2)s7CNtoy=$u7vr_5LmrQ&(_d2P|hz?L%)W?NO@}ML2-<7++
zz3`vD^<O65|N9sI-|`VpeGds$YVW;K05IJQ6KoJ^93h#xhGDHwtgN}CWpu_f%7$X-
z+_2aSF`YC?$l=^l4(#F;_WN&!gb0mJ?ZCP<L(@0_3(aUT;2Nn_wA#fhd7{=Q`a*A&
zCmcUX@bMFtn1~<R0Cmq@sps;8#LzT4Y%?q1PA7U9X+txGhsgHJ!w^PijkG?afb>YA
zQ{aHg(8n$CJjbB$AxVX>bxm;j`z+gJMqYEIC6;<x7Fi!>X9HnbtU%Tp<rus5q#hG<
zgWZ;NwUNG9(sIBbMLn`K#L!7M+_q>Lv3?y-Hq!({|2*1psxUZ`mQ$j4W3??>NfG4W
zUuRTLV!Mv?T~PzYN|MLpswvV@xIv+jc$20YdBDCbx88(10f_?MRym%k{=KU@8Phmu
z#Dn1u#44=oEQ>H=H&QPcXf6H6i}p<jXZNJSx9>Az>BGD;C1{}21_4Q7*>`l98%gii
z=GqFO+`dah;G6wyrgzg9lx0sfylo)7wWO7nmZ|{5=V*6Mr&-8H1?wd;XJu2F6RZB|
zRM_R;Y|#6=u`wQ40T#ZL63=o(nkR8_R^|_B2Mt*Fqc=k?+s3ESLL2Q5bvZI6gx9ZU
zy=6GZzhd68QV3(qNOdvhFD6U<JgAeg$%O|4J=%?OxO&0X3_4p>kbe24W*IBMhk(3#
z1Tf9sL{#}`bxcV<L|ZGv(XKp?Zy1Q$iBsAXpg8_=3vIh;CNu9amZ!ScG|M`l2^GP|
z=QvJea90=TI3-lz^F->bi~)}2T>2U%hw0!DJG;7+4@%P(X}!ujKFwEZ?~R7s;qi;*
zt(=Y1-oI*pP}RlY&`BapY$b7hH*;Hm0WOquK|1SAwT8!kvYx?02|-wTA0POoyHmY*
z+#Xv%Har;8d-yb!+NCMG(*(ep6NVae2{FJD|9f|R#wKxbl8s15!PwZ?Qe`JA(r_k`
zK&dt-=yy+5T*^OWRvakOe^tv}obLg3IMKT5oM8iLy9UI~sqX)y-9WK!7(HN3Z=@3a
zQ9;c6R3lQ|s4{xp_;%)ZG`%l*L6Zl`BPQ)u^WY2haT%1fME~x3+g+78H$8eE9D>VC
zsx=`i>!XCjvuQJCrSNKGY=cuDEitqi8GK~dt$lxYp>$gP0_O%toejsI|3unmNh34_
z-F1=&!fQIps;Se%o%wXWOKfaxGt6gS4vG=SEdlLFIN{TeQt<hpdxNXMl<#`;!YKme
z!G9g?nnE|-_~r%p7P9|aBH#aKLiqpO2<=~^f&b07){$LL=XA^i)30GTowoUD%<sk1
zIyRg>?G<4RE`(4pt@{w6;@c2_&p%N5MN>22nvl20F(`(3gM$XTS0cSCON?Z{@ic21
zd%j~bto;ni`HN>fr(-n3;cwA`%O<h(Nn&D9ynfp4ba9%u$6;rl^FBypbsllvX$#S)
zgrCY%^bKGc0!hQ}R}#Vm-d;S=Cb^mR<ukbqFDfnm`aiqwFWq$nhd}@dH?n+$K)?1$
zPvV4Qmd=+q-Z3>weVup~w1z+k=j7M_Yd8CUogDsum=M<QGtAFD0TqO5y%L-3y8>xp
z=iKEA8&pSL&MzXw55Uet8LCW-)^1R3G=!*b0Dm~-vjH{zOouasiz5zjOeZ*lrsZ4D
zcaUx3UF6sWbBtB(0-}<lsbC8R8#F`vIzwbC(ke(%i+=#;o0<EmH|=)p@*YOYzY0;C
zG<J~oM&cq0E-Cm1l!5k(FU*`{0$t#t42Azr$O8Fl-dNoW>%ET;!RFjLV|3M!yMcrW
zQsK+TI`Z)}z54*6un_sz)zv`<hbid3H7XAw0BN;Jm&czdU{R^pz?HPb*c5P6Krrg4
z3hrBz@iBseXauD*5)EWRIEiu~nclp~w7xwrU$xwA5$#fw%1rMa{gLlo2@EGLuW|VT
z>;2H}0kzSfj%Meuxfjs-ea*Q1o*Wtk?EOVmGG~06zP+E&{SRgC=`xL_9B0x}s&XeI
z2V9@dp+$e<4h`S**bB@Dh$=3QisM;{g20Rh1DWbm`K2t;t)qt@!bT$#)9z*?<@i0#
zL2&l?*J1n>?S};1=;Fn6qp<`>m*v4_W`oQ!%{df-Dx%CNnLyz)x_#NNQDDfu%3inH
zW#uT)w(D<p*V=nyHSnwky2#E{fno6Ji=1xwGNIkx&4KBi_N`S$li$$J?P0EJD*HJ-
zqc)4O%_ZjLmQ0YPg#?zGd?@<k`t|E$pePFVw{`PTKHWsffBy`yk>7rKXlO`v)$~dm
zEaBKNM@*1@;NW27^e+l0^1YqJnASQ{tReAq^r1_dH^=`2b)P|!!LO8KSPp>W<y7zO
ze;=Y=z4yi;A?<zNP;(}oxY*EDy&E;omGUIp=H1T8e_v$j5}aCBr>CepBf3GDbt*m~
zp<KY0W|4MTQ8yN;5Zx6>h0&{&?1EE$r&nFyN3<w?n+%EG%&vsvumNU6ASJc#9W-Wx
z#FC>@wK!Ra?e{Y$=CaC9%#wW&hRD3g_mBUpOm#Rli=Jk5ajNsM?7t)|{x^dtiyz8F
zE2Fp}VvOOe$^)plscKFTn<lb?mZE=S_2}?TD}^o`w|TWgkvB?Pvmb9)yp4^!&QXxY
zdw~H=D@g;akIx-2qy}gjmVi$+MGw3bk)6fG=fRFK0v2Dt2@RC7WX#3izh4Mu9$o09
z;SU=%`pAYU$?e)d2^s$~i9FqZWA)yrezckpYbHaQNPU8W#HED6OCi+ONB3SNs9g|}
zsM6p|izz^F;4$1)5;$8QpBnJ5q{kK)yLRz6Qb{+4+VemCYuf4P%}gMvqo5Q(O^UZw
zM2VH&mi7b0+6`bubwgsBMiC|#nLzD-D6`P}CK(*F4GIZ0Gz%@Z`ki*PU#}W+!~|gF
zrCR-n+(Qh-yMshU;2c$7JpCaW1uck7){H4hc5!GWO^Zr2%u=XIFkC)o$p&by#5N0c
z-@tdlv|pbhcw?*-c_8a(4_+q>2dTvCCQE`cTu2&yDOzVJp1w=>u3F9IUiJJr&#$cB
zODsaf(oEO{_sPMiAm{965%d@=BOAb`L0C3#-0p3Z8k>*KIa)*~nP9a4&d)2wS>tJ?
z;6W*!=I$o*A~GL<2<G7!1|yNMpkx1ZBX1QV01!!L55|iaz$6BjVFX(T%@HJY5d{|}
zDGky+SScbOe(J_lYbIrPBOP7k${c?T9MZ_2)8N0AM{^@0F$ne*TkX=$;gp>)mZxZz
z<EdwFo%W6n!)&zflR8hx1P9&;LP~ajz#()a;|{<#*QKmWKz}~TvR9>G0<mC`flY#f
zIQe#oKX#bKy~J{0feT4@J1FnvXyhN+1@~Q^&*TKJxF*T8`P$BTS21&B3z?hIxe+^r
z>I~g*{6`4aFk%w{0lTQf3U|JnGL~Qu76-w%<AP>6Q*6rq{2B8LV0QRXP>}A%WRekT
z{pHTN$pyD?K@BCJbc{tdnU_;e=Mdv#3Gn0Pj<?DdV;Aky6+Ji|pDUT&Wyqn7K}p!|
z$CFHUkp@f<8(IZa`*!xgKGGN_lhHyo%RkjXX3e~ArI1x!A-Vs~k5|MzUA})dZJ%cT
zoXQJevxp-NM?zduD{_TC!|E!bfFnJ}zNB}*C~bm=C`mp6h~hy1Ls^e?<o$y5@<u}t
zWd<PC`mtS$h=0%0m>235wOz4U(voJK0)eME<;(}1YaEFFv93gN3Te?<7E4*TZ`~>+
zXo6T{M9CQ~7W3Lh=9m25>3!(OzUe7D(R??^gj7#yvmL#}nJ;BLimp`RehZNKOmi^A
zA~+q-bwBUP^PVwp?Mdt%njjenLoDU!rEek=q@I>eQ@ZXgbYea^lcdv+IFDdt$(rB{
z<25EPFU;(Ru}no=JW#3g2|Oq=N1u|<>2G^4fKe7kkdq<mnf32bY{EUc5m_z6zP$*R
zwJ>WSiRUn$%~5&^&f2>z0INsbA+p(hJE+qQ&Mzc$b@al&xlH4pd%f~X!7zLQ$6uV<
zOGdts$wFwQ_ke+V>1K<AWT=@fx^RnOU1^9|f=>9y#01fw$RA6z{h+B>h%m8y@!}Y<
zj?RsUvkzskP4K0RWH@N?Yx_UQ@4q;gc$>u?PZG!K-^W}X;(I<6vQUs`rb(HP$K`Y2
zU=!(#O%{zx7;%es``Kw)v?Uo#7|~g|bAH+EIm9jYIEoJmrj+`B%OsB*t06NJ0Wad9
zVOO`GyyKBqmiulzIN`DQ@XGRJXqn?K;pnfJ7HessU#w=W^Q<^sy1mCYaV4!X0@Z={
zfk6zDC`61IeEB=NqD%lpBJ_5yyr{nR?}p8CVP#7u42rz^Z*|IXvu1kt#>RZazHcbT
zD}ml{4^Y5JJnMzXN#L-Cf$j&WBQGj0N$^ZGc?*K(Z?3Taj+VIu9g^M$AeD=e!G!AS
zlvuwvSQ2C)#$_CO^8$;02xo`p;LD!qbtXp;*$xI=YS5C851A)I!d=LV&3H^7i3lIj
zgm45v`)Zyt<-#Jo`IK%3Htu~>zn_q7IeU8tjy}x3_*VHxXzzw%7zFOO$c@corDME<
z3F-tlkvv3c@U;HdSM6!@Qou+E_o%E~ygZj_E8Sq7o0LgLtda3LD|TL)7eHncVs4fg
zk=sxOGz2z)6fnR@o_?5XWbsjpNw+9}B#7?=l(?C9JmtvYonUN($k>QAs{L0<nLxO9
z)>u_q5lmR0N$w6y%y?)C20w%vae-^-fQq~V?YV9u!{iAmf}bWzF`4#AhWe2?Vg}$G
z$#5mJE~~egM?npagjTi-%_>b0Rf9<O0Err=k{};cK>`YqrwKngTea^ubYyQQeI=LY
zi;0>?I37bP@`@T=$PEmf@ZkpW4H?jHiI(r)Z7SwR2z3B|;%uXAw~_7xB?{H-dY7|t
z9&W`u+=}ho64F)$+3qPabt`AyuD%wyEpd*V(=_j6ztU*FR%qqltG-(B`Z#<YrTp<&
z<B78i1oz@HZ-Co1!wSKg6+{NL+=Y%Y$y3S0xH2dSQT*DT5lGJQC0v0#V({;Es>gtr
zaP}}9)@jG9gS^I@C3&i!|GsdbdK7=P25me6j4regy#OyQDdu<kY~5-2VfSikYWh`=
zV_e|o^P12uf3?XOs>%sGU#!f!PLC=x3nt#>vPe`1q9vH~sW-$kMEtjdTSlQ)2az+F
zI0<?@-QiBsmtTVNDg;UI>8rdeZDc9}yBPVba5vMzp?l3<Ua{AW)g?K@EN0V|&~4}K
zUSKCL>7tjptZzAP(UqZWm(%0nudF1>v}aZMH|$VLWGZ8oZr^=5hqkBzo`FH87k}6*
zin5TQ%z|sFpU39sewt{2(Yb#<zi+-~FB?kI3MfiAPVB(5Ob+hLpHgFcz0e)rgx7l#
zjXn@P6-cgo?)P9)jTo5t-h<NE_QOrcX>Voy-WicThH%6nw~6e}RxQcpN>XHqry1`l
zqB2=p;%Zn@aUQb|3K4ObEt3RU65xf2mD1c#RE0^dgZFkn%coq7M@m2d(u_h|2hyWo
zaCPBu=)>H{RsN4J|FCt5o_+5QWBN)*uFHn6gRaIN4YRyu?tT1z6Rk28BNI+lM*o5>
z5;gkPoLk4oc~Dkcm9SO7{6ZnWtUe3<55cG`BoS$FaT)}5wit3;b#lvy!BIzz^a^o|
zQMvmKrJbHdS6@A2*4$qK?m|$MFW)N@q5;4iiTMj_)=5c~RvcOmHDQ5Z$x$7{TQL1A
zl$a&&g)8R;`afDQ=fy2I5w>`Sp}e$lu6tT2nM~9Ik^TVr44n4|xw)#k$TR~G<P^4I
zl1o^`%dFTo;@YYO1Oj?@vLyXz4Rs_Zm0&u?K=s!=J}<8XM({gqV_n_5WFS>xaT46O
zcjYaQO%B6j5VpY}{pV$v`<Ywz{hIK~gyP3Q*LSgj2G|%4Re}j<H@plm(*wu+c1wS;
zm{uTKt=z>h|L{as`3GU^h?mUkNl~k<m-D?~Djcvz7!M=E5lY_Nk_ra-I9_9fLuQBe
z{#IrKEMn4CQ-^m?(GLA`!zW$VU6%Xr6`AUnGvC)pR}E&aG8Lj(gksps+GmA+Lhby|
zxxn-}Tz<zMwKp6n9Mxgnk53*vh?~jg)>#HH^mAMta~s+*rZ$JG2K%G*tS17g5{>as
zpYBBjs<u!gJI`s35-djS&2=^qFh>>0U)3G`KqgqR)!=Mcl9-fX>FaX}BBdt7dZ|+b
zTsQ#?3?43l!>OU$vFCg_#t%JumrHCH;2M<JHkdBqmby;8FBFG(Rp1u!t3E9^4<9&_
zqPcE5E6{&p^%>>}|LbG52zB-MuzsB)gIF1*X2~TF_6FbZ`IUuKqp0tt(fl-tE3#~k
z^;YM532E_(a`Ep%`)h6wGB!K;^=J2X)Xb!Xnn6F0eu4pVlTza1WR4N8x7L!6CdQlW
zNiwANnJQ^5aVgbjz3<2+{f&Zqpk@kcsSF*_FYUQTrb&SrV0Yv$)Y>MOH}Tti_n(0K
zDlM`AW%nS);IKo>wNAK)=g!|U*}$GKbpN7ZeAZq}0Q`eAt3S|rb0!^BbU&Z~(k3LX
zhL#r#KsY2odtWQ%Hh8}s{b!ZkTh%ZruK+Cy!VT4kXm`jC<B{o4g_agUuv$}dv;+mw
zSt#pg7s&01OELz4P#b#}BrZ;gWVs$Zg<1x94Wd+|?F&z#x;vmEbh%c*Is~!a`oc`s
zjxTTfkH@tS<&I?v&<uYg`y><{fW<K2;I2`yo&*rfsp}@=8|uzH#`VG@QvYm7f($9_
zo;3W$E~(n0;R8ZMSbg=+BNN52g-bF?xrX)#AY4#k)(Izxp|c0`(-g+;q!kvca+8il
zbfFi@k`aY+qV-}7*$uU+8jttieQ#w<glSJ6;+AQ$byzaE7GlLF0|W_x-Hqf$AQ$GG
zsI(#^7ee}FdPMH%j7!QRtsk5YGO8G#O0wLbF~}rny0^UI$b3vSC!{Y;E)&Ua|H|SW
z_U$rNLyW@QjiP=-*(@F7v}w^&fY`KM_6T}yX%%Q(lVlRVgt$0Nw0S9Kt2z^wC1^gS
z{Mc3s%+QT<%+NMKw__*h+5q;O*&HBF%*`InPuoz3D&?ubGOZw%_c(8YnP+XsMnA<M
zljB;QrPm$%d2TOOS+Ta4gsJ2SxHt=+pL~VqhSjy|&kh*nrsatcM;NARs9|7pqzeHQ
z5J`a%L-=P$Myfx3O6}TqsY=&0@8s)ac<w~ofaj(qj{rHiO02#not1I7ve_p8=$h%h
z411w2SA9!k;h;iSBTj50lUBJH@Y_2k1ATIXWZE9fT0!qsBAJ@VCJc{d5<9SbpY-jj
zs-thmmX~|W6r2aaqg-DsBe1i#E#*;fpaB!}w?p|0c`0A8^Wv_>$2UKvzA0qmk^O@%
z{%gAjg=rRI;0q2e@<P>Y3VY!wC%LxUCi$JPr~F(U8<dbFt*zVFyFfU>b`+Dn77rN+
zn2XCA=Vljj1*)r%M$LnJ$ebQ4HDnB83j{TaV%4v`VX(%~@-A+?cs`65E~Bj>rl@45
z#y0L6XbbRZCes8Dvkgn~f15GLB*p!t+?g^ROEV9~F}dO$J0E7UJZ!fu={he!TNFgL
zy|37K<Ln+K$j^>-n(=kX-~FDO@Hy%pF-OGfeMtYY{p^?F9CXwE;b9Y&e^#sOMQ~NJ
zhYC8DMth2E>Z`+HPcB6LgeOV*OGr{CgT)Ag5(EE0n(k#XDlKg6Kv-K5A3lgdGGnpV
z-%j}G+oZ~aNeO8WtM8Zu6bEKA7EfK7^9fpXBWO?3LWSbX>Nz%E(}r}gC~dEPLkHUf
zi_}jaKenVX?H49{U^L%R_wi;ifayzfgcvU7yg<xsDPdc6qG!qxxG=ATL0Y&6H>JYt
zQE$e}f$@{{n*{U{$`8&jWxj`oqD|f5SE(A#@uRhO2$Uo3Y6?RUv*JbgfMug$Vni4x
zeQ%3$7)6WhH*7xgy34xM5=YAPo)Ob`D0>#ocMmFnMfDsnK99I%P$r-s%<@xQ0t#v}
z!Bf1c?8Jbq*Qkc}SpxDr2_X>#6qB>IeceM1*__RJ9%wzL+I7irAl3c*ZmcG=#n6^)
z5$;%}n}lU{it18kj~?*k!3pO_05ag*V7o5x9`UP?In>~@K%ju9e^}^AQdALvWvQ6M
zNoq}Md=*7+5iSm$*bg*^Cd=64nw~t;c#8I@)n2AgK>nZ#mqWh`cz^;`d(+e%XG=%&
z&<Z%fBxZZWv?5|LML|9q1vg<08NfpZI%7i$Ni34BI$m=asYp7=7OS(;_>a}uNv#fg
zQ6t%^&HkJ8JnD&AWt@uxrB@m1^yO3Rk8>?V@b3z|CjUl&j=!)xe43=kU^jY&h=qkd
zqJTE>nDDesIfD_LdTEz2SaTO}&R4jRQVt$fVhab$Ms?+2a9GC9b|uWKY+e{OqCUx+
zBa{9UDvuDg3Sy@~llfjxJ~2Lkak61lkXu4fZN`w|Q)F5x*iO>+NEkOVu--?Je#a49
zWJ(4L78TNnhA2<g2#qylvsEjDD&GR&a3ApM(SeA%w#i{f>t+0%m*-w3s>djYSj-5k
zLTWs;(ejN*6-2g5^Y3$H{W0ZZNeas(@RG{nPFLo@QX#u-O9oQomsVKPqFq2%ZT}?)
z>0ngeAqb5T4K_v}Z@{<FTJ4pMXX5K*&O=-EnZzi0r&np4$?*2Kkt)iV450nhzQKuU
zJ-U3C{6nBM8w?9QHggg)1OqG+G9HyopuyM+<1N?1>6n(9QRPD%Q!N*t7vUO<$(T*j
ze67RhWitHvn<}<#BJR~a=qOf-&2CuawxRp!!D{C1;`D3HN!JpsFL@fxpcSraoJsqk
zGf=trH8phBT1f#y5su*y_*6(RFqlL~r}k_FJx4W?p+~Pjaya|(;T@HSsHuWjQrp2Y
z#o|3k=%m6U+7fzBn}`t^roHt>C^0+WA-qz47-S*g#E6+v2BQj>qAv=s-h*0+Otd78
zv_;50)B}wjE5%?c@^2ClGLoc9QV<ez8UCGs{wP#x<exsEs%ocd5}U|;MzV&uk@P=C
z_AOQObSLw2iNlP{UdrOJt5Y4vF}hR^1L;!JL2r?UQ=$!wbDW_)^j{Bhr{)}xiJRo#
zUXZegFBF{<u&!W;(JCj?;<BN|QvY65HEnzUsT(FNJs6Rr1tu{WzUbr?ktKp~eOh6<
zC3r*H2{xuQ{fXCU<fmB{OVaXbb6<7v_dHf~SU>B_g}0KlA0?(-H|pO{3B%gcr{49k
xmcd>{-cNIBN1=va|LT=DrwovP(T@%NRfqOZjBdq00z#wh-E}}cVaJIJ{|69qQKSF>

literal 0
HcmV?d00001

diff --git a/reference/plot-7.png b/reference/plot-7.png
index d253d88203b775e519de59869facde74565bf56a..1611fd3e5de59fd7a8e44ac4c8e3586020636377 100644
GIT binary patch
delta 9380
zcmaKS2~?BU);5aDwW$2oDpy6Q*C4G5R1gq>#Gz^<0@eYPnIfQsLFOTZ7qv<)3L1pS
z7!(1KQ7}Lt1P~`=QidS&AQ0v-h9M;R_KCe+UH|{B-?h}0<m9~P?6dc?pXWJw@Os7d
z$`!e1G%@pNAI0)Ab#CtK|NQ%pB4zoctAEP&QlA?Cc}U}?VVI!#;HB7D&8z3!#={LK
zVxuly_0pAgyk)4C91}Z~^qv~XJaKmL#vj*1uC1yI;L53Yow>Bi+Mg*$ueYh!trzOo
z^Lhk&iCjS!Pk5T17-@pnEn8~N$*bI;*S|EHW0Un1+a?8nY$=Vop_y~z?K(PL{`R-!
zloGeQ744K!3d)`P_X;$?^l0VEE?oNgJ<Ps8_fm0w9UdoxXX3gK<SC#}L!KNs&|^f+
zD(osQ5YEuWERS30ZK>~4dspzNqZ3_}`Ofv3tI%6X`_{|(TbP?Ww{v<{!)r{+U%X9m
zQjIw=p-3M4RDKE#lKRlV>f5<DEh}rBaxX^L%h8QF5FLN*)mjEmow*(jD4%XN=oxQF
zG2EhNS=8`u{dVnr^yPk)QL7E;)59grlgir;c@N!pr;J)Kd2B($<71W8lAZi;qSI+o
z)UQGyl1QVT@2~?}S`L-#bxw;#!u;`q_Eh_K;d5%zXqKeT405?ZT|BKmhgU{#NEzB0
zNj4F3bgjQ+vTrWTD{qTVG0#d(Nl_-ka%kuGL@|7>qQN1)SMSyJB<T6MWitn3$MUMx
zuDZDyw`5y2GDt1nLmzh@3*AuLjG5Ua=z0xiR(*@UBh{9rwPms^Xr{LHO7cC=S8G)+
zzxsXcRT7E(PIPCJ%HZowCa39m%5<2`@^3~_k|lg}%X*-^&5gY{s1P{xn77dN$HrY6
zm*3xqg)H~VVeiKayAulv3ie&h{r;qa$IsOM$x1n!O#_mry)^W}<ouoL6B8gIGWl~a
z-YLfMFtK2`t5l%(wl+>jT|A{EexM{AI!UA^N8k_1C|o-nI5%>ENBz3mlw$QyKRGu&
z+h<wy6H&vn|Gg!7oWWb`7x|RblD!CzzZh5A-qsc?7V*T{e!7w`jhl8#cg49Crx#GB
z-pFHVXVdrjEw7fhJkzeI>3F*I>nU9+98sJMS0b<r3~b9oHivir7N!~<xKA=cwb^`#
zU&W2pjPcae)XnlAdwI$)U%qTA`I?Hp851jbC-Kt{+W2?3YMLGl=44)Cj91*0Y5C`X
z6*3BE+C{@A7*_mh$`F6iwaQ)+&5P_}85Uj8!F6tTO7JnAV9nGygzwPvburc*c$lIn
zixwcsy&XT<9yT_ZYieuRb>i-OykIPHyE|)t<Zh!6{Z)}O88*T_GK&7T{5DcfTT!I(
zp&u>WOMU*{TWrf~qI&Vr6BfS>BQXZ#CrWti4!>?nwSqXNK4`a@rN^7tA5e8b4n7yG
z>%v`icK$HeVncsn|IYDqu3fdl{EG<6zWHtpb7M`tJ)o2GAam>2;pWNdBku^JDgA|>
zn=z1k*1?MdkTM3%&RP@!zt%C%HF~16B&VuclHxB(7|Ef{WqzVFe~x2eVJ|P4B%Jg9
zTS=8kWd@Kgui-5(&XC%b7RqHtw6~xEA!Qk`D4KQPk5(nVMv&27V=vxiUt1=sB%I$a
zrj;$Hbp4fI7Cv(R?ohjJ{Ix3axv!?)?eMd7CD%OKKc^=1b-mbgayeNrUf5FL*LF1x
z4%#kshjTl^m%pP0nP8l#&n)Q7cdFkU&ij;n(p4abEgbvjfVz0y8J-F+x3AG`Pt-rp
zX}rDA-Bkd{WZt`QOIDs!Kt}27i5?EcRxE?DAogTe0h60((Yrtp4x2E>4fvmv|G5Lg
zVwDM}pk9|7zd4-1W6e0X12SIw=i|c_bTzDsy@}N25wo%n7tE}poEgPUFVGh~g>x+`
z#6!MgkLrU4HUHi>Y`YzB;4ZdJ>p6e!$Fz8=m0zcpc!nU3ghF?0cuL%A5a{jOO_^7~
zmZumVEmnS3+MjK22GS%4_t8x&=T4*|R6KKex_V|n9n&Rh*uDB)!K-F}wF1_AOMY-D
zIl_8Vie#fNEqv$|C7;X0f--Idw){np(@!Zh37(D&;Q!X@G}D|D?DG#a*~$uAzwN*e
zWum#9#)bweI_DhL^r`2~&P#KnG}VI7PYO)cCG+lezqf`J<}=)&EG@I4ru@2e%iFI9
z&ygj$+*u<T!`YW_cj&hjk+yn=FlRUK6?12^Of^ZI%;l*FtOhV878WJ0W(CaT&D7~}
z<GPm}lfUNXvl8D;lg5vJ+R2Ugsw1<zIUG)i^Vca^@QF6yHk3lEYhh;|;P&7mmtGHl
zyNB|=j(G%QHf+_v9lO0QonqkH_HvEsH<Hlh4hFp67P-P=3--J-v%*4MQbonXsVNhq
zoh5#C2fy59SZ=(>d0g4uEz@dybN#l9YaeDY7kT39;Wh>dq9C2I;-Zg8F=XkZ;TfgC
zwIgXw!QW1@tE<(^;zJb!ucQmKJG~pdN1Cpxn!PT5jbYCs070~iSA|>{<gIunSGsEM
zF)b<h)HtTH!rd<X(8#kBG$~T&vtN@(f{jaGFI_R3MZMsjau0>}VAn~<oKn8|2pgcT
zCSKP|)oj&}-hb!7&wkq!YJFqr>Scm!QSa@Hpv;hYtH9Zz2Z{!P`@F;ef1Ka64pUzi
z6u{H3$p1C^?^Ul09?9+7DT!8QSmdwz-<h_<aqo)I&*S@8SXfXmLlWxFemq9%CXByq
z%;P4Kv*(s1!$-0@SFx({<d0fU3!0sMT%*1Q_5>p?q|lJ2#sn<cZY4SXa&!Cj`PcF7
zD<VJQv(`QNJX9kk^}Q7F=OgDMrwr&=bH~uiQ;i*C^mQC<iVTX&fA<8dB&6`q#az%i
zlVe@F&1z+)-|P;_ZvR^UG4&(DhixV+yP{^_Zg)RWyy_zFe~rxCSgTi5#OBHDr%?V7
zhkp*+@ZYEX$e`<AUY~#DXu!(I5PTM<rBfUd7^g)teS3FnWT;Z`K~1N+nxrE)^SXlt
z4!qKN<8$ZE{WneHd^b<xXKFNczueVq;BZU@T|l#9ROmq(g`K_@bp-LU_e2Nt`sS4=
zbWJ8Dm!8-GTIs?!8abS36KtuGIrVnCSG8(ke=I4R2s}g+bNKMkGH^KMp4uk#r6jjD
zqjK_SR$(fGp+%lxI^hMa^{EhO;A6urIW}rVJvR`I=_vAu!BYa04JEDPS(xv}Nz;tx
z4qy{RDm3^p13`)Jc&xOXKJ;qevCj<i?P&J$*ao$gU6=A52LL5cQC)yZV1_&L+ucf(
ziHZUJ4;ZGBu23G^q^6k12iB-UT$&w@goI29Z@nC8M8(y^9zE-|+`Cw;#lbkk&X%U8
zhZ}aZ9pAm-_$NO}iNIk|hLk0Fd(N4_2n+G!kF^p-ihXLeGWf~sxT+hgWgFVsifg`K
z7>skb#s(`tqax}E9L>tOq?((DU#O7#UvoIvS$+lY)h*db91tz*!AHu{oj`UR*04s4
ze@#B2_5Y^*Nx~7`w&UgP9n1WP7ydiCQm(qXX1S`n7tcW!#Xmk4s^(+E!@5dIb{eA*
zgM))Wqi|E*N~V?6>W+QpFMnuuW>joG5(C`w3^}<N&coH!b$#}~KAcZK?>xT|Uhs-+
zq)d(9h3|-D38iL_hi%a++V%r&*-lun;5YpIiu?-q`b2|BTw|({#o(jG8Lmn|$)#u=
zGIam>TDD-Kq(-Reh}B$tv**X=+uPkPl53&CZ(pCi=0kHSdEOhKmN*R|TDrN~^jDgi
zRRg?<BN`eSj=L+^4jj<YNi)l_CU&v!Bx*Vt-`sn{b8fg%rK;UMy2$Cqg%)U_=I?c!
z>J;4jbDXw_)vPu<WGgJI!5qd^;3A~zAg-|4%*F_#uKV{-wpq=RJj&e-=T!*P4mYKr
zqxKKbY^+BfO?`Q%LPXu^AK9_8>r@IA5NkIvc(K}s?IZ@?;03K+g@_kTMdUQMp=^`l
zJcP8|U9~e*feOO~yfQ-a$%r~Qe=4igaiZ0Uo^U)2+u|_v@i9v6n|r_Ja)j^HeMbNI
zt!Jo1YC6#=z9%9S6Mzbo*^8qs++uPl<D~V^CFDOz1l1CUyD1}A=hI?E+i(B&G8D#Q
zd$%b1$jvnlV&Qx}#5oS~_XO=<Xhmmq#`l1F=_)02Wo;IYvL|nCQ9n@p9r`Fl3-t&I
z>&s<tjQsUbCia~9Y4yX@v+001oV@7hXz!uP`T3))HMY%&Vgt=00tlqiY&SCs3LHht
zi$p5qz_9Yg<IT<&)Q=?Wn@DkHJg3=eq0wPmRG(9_=>BDUn&0@fm!I7cywJPYNEbcC
z1uXQ20xnWEUfkR*obdC4;)k#<HPS5|(-M50uN^;=3LEPOdTL0G4;)F?T^dT>Zn^Q{
zFz}e_Ur+9c!nI;zA&Ig&lhx_hZ2%AYkQ(P^E+ETY44{jbxig`J<(<T72#Pi+J-eHG
zpL`d6MJn=FygCNd#oX0<W3C!`dFq`eCR)Z-sg;aTH|$`kugvH}ZI+Z%8jWl9ZFkMD
zShM{=(SLquoE>h|^ciWwRfXbbAG_pL?M5YW002RM>h&ffRW5k)W~*~X);3rnX?bBP
z-82IwlW$i5_XJJ)4Xi&+!>KMFS9O2qvDFPga@Ryk8>(Vn$+97VvHxEbZrnqk0o79d
z`p%}A*+vtm!J3%i)_kWma*FZN8xDRCAU3WMf%v;x>1@M5qWFfa+I!e~?}g{<IerM#
zJ>Ko0IWuB`6LSID+`Wmp9DiZub68;jHv8%142n>_!Mr8XWV4`;krvYY?e!mMllRm%
za@J;LWd$q^r)dT+FX)RFz62}|&>A~B;;&1~pw9iFi_A+fPB>J`Eox?BE2G^n2sA#$
zjaz|aG~I5ss;N@5UO!T^?%*zj9IZN6J|@LuqQ&73=FF)C%nLwLckq#Yw4Ni-zuFk5
zL}ruJ;&mCt_iyBFSRG%~S(C3^@@uvCUXY*UuV1?4ln{m54iSOEUEq}!7b@C%=j1XR
zdtcqs70xzlLR)bNU+j}Fd$e)aiOe_8Z9BbN9cTkk4i<wVx6a~$Klf(;(#@ujx-B{d
zDwyq}X^Q%$QYQYVn>645yJ_i;<yJN@y|}EUkqliR#TtM0EY#S{Mp#j&lq+wquU5fN
z-C3t_@Tbzixl^GVcI4Ss+&B%CPTnTS<86cz9k~oAl_;|s^<I5<R0hkX<t#guHeG!6
z`Gx&VKNe{+c>majs#=}yjv-Imtm&oD3z|T0PRD2{gYc+D`vvx=U0YilV?g$Wqb^v6
zy}btnOW1kr_EVd(;CpKF+nkf{X@8I}TX-{8^d%h0YLsBWi3TBvHHfMMu~Bo1_c#&E
z&!?xHO~<8o3peF@XEb26J6)Da7h&(c91C|N5{bm`@Tw1jQAU8gXVcF&<k*y1UaMG*
z)LD_o7Y)kNY}6t52t@-=NC+o5G9zABX(Kd40J^#aJtv^6i%TtKi8$2o8&SKP@g7QQ
zPD&iCONayds9zZ>S05}GZ~3}gEcAjO2qqlSSa19#M0>+9gk?|EsX+c%3=-q*u7y_A
z{!b^BTrbDu8Xts2(Ljk=(CUba3kJr<#Wj{;;&`A8!yg|XbF6vv0LXm0@9EMBdPs^z
z6#Mk-;L_odpQnJ-y7C)9dGQm45ZSESL{u`ERZeN6v0k(DBj_bo_3M=%>9|`f`uAL4
zo=qcIWwexn@@RxuB7ws5ciP60u@>h#!(4;4aWvf4gV%b_z8foOcO!NM?^=Da07YP?
zR>y>jNCHoAaNgu$&*M<V4@Nqj54UPM9w>eomG_(yGgQkzTy8k!SR0E)6?O&gB|4YY
zbh%C`jYjBC{{k!O4=meT!d8Fi3`rex(Bn6@aNM2y$F6Wx6Y=Ti(y|$&Cb0*8{PHfM
z-VD4h=$H;!R`Q(Hu(lD1$?Xk0VsX{WVh$iiB(B}POlY1Vd+O!2-dAnwDnQ%xQIxo%
zJKxqM=;>fcbK&Qi^#e~MjXxO7cbxlqi1~Ge<=a@_@j#H9PyzXzV#2Pg2XC96sVCU9
zkO+|f#I6m|gvsl2`@A|p)kW#?SeokWh2OwAi2|vjhK`xv?(WXteEbTDRP9x7Ktn^2
z5ZOYYd%>C4ynnDOANvxn$L2l)eX2)T`V?WhWUe=sdyGAkz}x3z11+CDU&?dfCirD{
zKCN7OHL7IVjlc}qMBp`5>#(QpxiFedQF4O1@`Qnd2q}TZIvZ+9@y=(N&WvQ_3?j}6
zsg0jYH%S50h9_8<CyQ6zd)Xa~2~sezh&h^F;t7;@@WbAm(^MDWw7Nq{H<4J&Y1%$c
z>SJFaX0$`4xX7(yedqo+t?RQnBfDkaFEF!J;x|kvd&{7yH$*BXD8wu#J}c9k^r2di
zF)`oiXM^AxIdzb?jm|C7bEdGiSF)ITzh9ZaY68j@HA|ufpreB4`<+{Xe0hqmJu}V7
zcp2RI<ak&#lLtF7hLE62iNdQttV7X2UI*%ROkg%M3}6U51jRn1(dt3HvRn86_B&Ul
z{9Dm7m%wd0XJW)K&#Ikn2aJd42Bq;|Ow8LmU=#GD2gpPOv!QZvGL#UHj2sh!&>JmD
zACytRbd^dZ4&fY_ZqpAUf-c`$d=*=y{@l!FcVK?$|Cv0?0@1PilIY#PqL**Ab2tTU
zE8Ia^)xmLtn$z5MGQ38+-6g-t1K}BsJ)5#_$DsoVD^t!^v9N%dX%O*)&oi<=Y%<Y*
zV5r8#IVA=RIyXzt9f0WRPnJtFp_WMQNr<%T_TN922MsR;{5;;MKC<dI9P9}xZl0^r
ztnY_DR9mG&UuKg+_>e0jTqqaIk+fpe*ASq3aqF6$Ce?Tw(o#+6iSU@+?HGWoAU1P4
zm`As@LOl&kG^fd)ic7h+N5HFn(E$t~VCZq^^v7dzDe37y0++)et;+!KucgyJX3bMR
z{q{9AOdvIKn2Y1IsXiZnnq!qsP=?;FWb>@SzA*K=r^HANm(RIDq8Yl);O7*|?*$fx
zZi}JV0v5UsYzUPE@3U|3ZKqvrOickq&$uApREcU)@UOGrgnD*(yhAp?aATUuu~GA)
zYj$<;p$k|}i2rOim(6sw7M~&bb^4eA2T^+J-pyuCzLM3v)>95-*{O>az!ZxFGhdX%
z2fw_%SFP1z8EIV_s8wuvQDqk6brS%ANYp}J2C~sCVHRY{C<aYdSOyG4RVN(I*O)iS
zRU1WI1{x{ycw+z~cN@n)vT$Q6`*j64AqR0C*bv<!eqqZg)vxhz590sPr<!QDA8ZMS
z@E8IXOf9VJX^tti$TIaBPN5A}$SBohV<i)@Il*%o8LZnANEOM3$mjS;-z(_vTk0(K
zF@!$DxpSO<^4_*6Fzt7NT^a3@af#<IJVpUKv|om>aD>`V?iN@>Lx}Sp`@A1oGJLO^
zAZ#QI*ofzBkhud?uArj%RdG6;pM}ed;{Y1&mw{~7*@&007Gxq;E7;TvR4&qxwt#~{
zj)-%&MU=z8N9-IVT;{=6I9xwo7m?axO?HhL9c2R}AW~OIugRSD*&<%KEaYKy5LSbb
zhL+>4<;W`feeI^{!ZM*NqfUBGqNzb9)WanKt$TS;2RT{*%`RBJ(TQ+{n26xnWFEOf
z6o@}<JKbMJq(T)A8+?%uZGfDug$@#nV?yK`pwmUMwKKz5qQ`jAG_4F5K;F^y1|zWB
zkspc<FQDhTj3;o-;?`RZ&(7~z<YFQ&lG!mo*&XFWfz02%v}xYt<1dKP!7ywZ8D?9d
z6H*Jwc618AiXi$zaD?bsk9d%lc9OzM>Ci$Q$;v$`{-|ivj1v&SVZr)a!LRPpbOf$T
zqyhn_L}kC|S1(WS>(WKq#Y(YB8`0&djfXi~;aI>8zZ#BT8dC6S`ZYkb$n^qH<W68E
zyt?D^Ru6Hlfa{uIt|JamO$i)}^?y|UXI;xPzgj!j$)(Wd`~~LvYFSr#p2hSg)$#__
z91~8Ha8o8wO4mim>_;f~Ko^jma|FPP`jc*M_|Q{v6SeMvM0=wSdDWb*&CO4A+ErGl
zzsWeiXREH~<zV5c4aNm4cYvIzh6fSQ0lb9Rl^FFR4;s80v!9C42Q6%-);&01txPJ-
zD9%(iQT1|N@w2n(mwU>u>jL%n0tvxQPfL7mV8DmwV@M4evsbDH2Kxy5;DiD8xoO63
zWth{q>a~z>E%8CqRl}St3y^kJw9yKz_%#5P{nX3`Yv>&{AOzCga|r;uM5=0GN5h!a
z#c+@+7Gk6^v3j<ahj<mqkYQd6)i_hqEmT8Azh&RW`?#$KuAJEb@Ce{KOTnJ+zvLx%
ziCj1^H_#^x%olz;*`OwAD{%WTQ6?54X1~~!hL6I4w>y9VgxGD~l}}IL>)z>d8YS~x
z<Qd3mEL{n^I4$1;p`00a#{?Ad%Ahazbf!mb#D@f9`6k+6j<g+0RaI4u(GTz(zfF06
ze`l+AqmkK+jT9#n<Y!x>eK!~!rxW#c3p+dw5y*LbdFucOt2^J}wf!vC-nadlPG4pO
zOVleI1%O+#?%(&hbPS(H4-RDW89AsuLwi33jqh#vjySq-%t>POWL7jEwXcQ#QrI0#
zMv3hL9)d)@7dpKvn{6;$Y^@KDMl*qDU1d!kzo6&lGXWs)0eRQLaq0H|a?fk%F&63=
zVZgt#pyF=EkjQ{%=QEm}lfyy+{ei4|@>`wMeY%nO4pS?>lCGpu1}Ww_5M`#Ol@tg!
zJ0y~#>7J;8Y(p=2k8L0D2eO#*VUeDsE@;i3b-LWlO>!@8T-XoNPk;LTt^k<P3p%RK
z)7x(-ZKY&PB4T!G9Zm*C_8|szAi9J>c1X2CJ{$t~Wux)T+qI(%V2}M?aB1WD&U=)j
zDsS!It2c4olq*`x*(|3&dDt4TdaQK5%P;}Q`5~iC!s;JY7?$k!pX`xfIvhL-ei<-H
zlq&pgOgsjx3(F8rH2uk`4VWh@LwSEd%>f+{6m`rYA7^uOb0h#<%7pyI*D84E{{6e$
z6n`)WT-FF$m|UlXXMIYMD*t9~q<JqwMs!5r@2H<kJzWKatfA1od!3>_+|^cHpCh7H
zHrH&%?G06`L#8+oSw}p$2S~5vHJe&UtZo3v#tzolFLn;7BTr4V=8XOsIO_nFyI1qC
z`$)!^ZYwe_q%s>LJ@n3k>%RJDpXpb!>QB$58KV?X1hNjATdF)T35*Q5DkcA#WttE4
z_XKSPy!m>aHTrhQ(F;)Kj8DhW3#r`cn#c$E@36M4sz{Zzzb3K<;KWru{PEm$R8Ekx
z^qO_Qpj#x^=m6MOzgSqb>xEOG96X^fI?$|qiG^;Rd9~W@{ZN^1pwjbeMoXa)Ge!+S
zG*@T2!d@5Q79$4iXAPlX-h^A1kUyLnha@2qX%{l)J2ANHeFRYX<4MJU%cvGWQKSLc
zX${~eNPtGCY|#kunW$yjN~xst=z=+^GxosMvv{D-yNM#uUW4;xVoErO>XdMUo)BqI
zfQ~e1eGvqaKd_lXXq+r3OHgeyaMKFjrglI*8!%9PxVsFaV*Q9egO8fqMCydX)rFkZ
z1dn5YL-3pEfYi(4&+W}&Q2}Ewx4pbtZQusPBw(^ahNibhDuiEwLd%hDvGl6dsO-cc
zUOk<xB>Vy0t>F1DB2=|HjHoR(m;tat%Yj3PuJrfZl(V)g61ah_R2hoN+1M4yN|i4i
zFNc2vd*NC{k~gq!2XL6-mN-K-^5f&mc5Dkhcxf2XbPZUZrDv6Lz&N7?{MA@sqmIx+
z7e9vLAL5XD0y-HJm2EfDl)l(NW1kl+0hg<_k1&V^XA-X8RgrNtnp2iY=9TJTaDV(-
zFFZlp)jSa_8(bA2pC;Tn)x>D3K&xTU2kJ4AS9Y0b$)QeRjZ~8G#m{grFwUVG9`GJ-
z(*n2RXyE*WFwq127dceuEo@OIFPKK*w{i`>B*K5l%z!3yhulC^DYX~>8GYs8@?@nK
zq|t7oS}8W$fUGW_z$r$<;Z#AJa|W)8E}BgPud;`tBrA1T;IIbnrABYbsukI$_qtIP
zfT&4s^X$<pm(n>7VlPyj34XEvl$99l?&r5kKrx(S!x85+O(6ml8yic-fq1k@hYR5=
zWvf_FO7eVY;SLj+g~oybtcRwX4IK_L$ApS5<5RN5)79!N1txGC3~q7MAvW+5rf6w2
z5{D8M5kt7o-3(6p$!V~da+;V@QdbCHCk8j;MGYma1?)#WWoh5MKDgM%)RzoKR@0mf
zWv;o6-{+uc%6V{7F(xe$3*7Tgk?gYDDE6T`wpiVY;2_O}4hmESkat2aTN*;30!eRM
zIvMO#lRZ|`HczTLX_Hx}RnY0%j-U=v_f+GASYYV}Y4M(?0K=x|axeqo(p)trY{8n7
zFH1>%^F7QF!mx#~XS))hm1R)S^^=4Tqs#6nGwT@e*tk!^)J{<qKnMUDjyT&$ONIE*
zL*TA}a|7x;vw-quvl+|&gu4Oytpk{r=HsJr?rdf@S4PUV6DN5@5=3gT#t9#ZLli7{
z`HK>q0=h#N&Ucq}*!lxKXN&{!&oX}uKPJIY-b<0Hz=E`C$0K$D1|4@ejb4W?09d8Q
zys_5&8A#v(kZ0BKtV`PoWd2xC-zNHd<Y0m}Qq^><d3LMRy>!kL0U^R@?O=2%ZAjP*
zS8h#k9ff`jvmfLEDx1X*W^5{MtCsWm6Zf_;u$n0|=p|&fjz{0?y9&CV%$8wrpb@iZ
z-n&IA<Ufy)Q%w4FH7y|;-cN&HlI->AfRl;I$YCD>g$GiWO%b31+^Zl1XZ1DCW5~Qf
zH3nQ<TV{v%nZIsV(79HI-jz>L1qc?RE3@-*^~y9$D)fd_VB!pW$W`<ck$x~D>euUZ
z+&?B~Z~(cvNV5X{?thjX{sEX072LM{z`9*}Ok||W+s>zR1XHCFV9(s_2%h%SElZfC
W-u0Y}&<mH)+r;C>KW87cz41TRgSol@

delta 9590
zcmaia2~?9;*ENVrtqN_eQbnLDNUZ`D1Y}lmXhgt@G6zs5WmF=B`9ZDlwhCxakTIYF
zLYQO_!>m>j0z`p;OhE(^8ImwV2!!w4*uJal`@gmRuEi>bXSny=bN1e6pImz-e)li&
zqSG3fW&E(Pt~R-P>xFMN98HO_kI331^}8|2_Rrv<?c2Ad6vil<SWKssI_hXz%SWYX
z?k#C;8P;*KJUDdufW@Yb$0FNliRn$^-%5y|Uq4<Qjs-qF;u`Q&hR&MikKqMjOk$s1
zXY~gj(O@jdz3FX(GC9R@WwEpCe3YEutBu;B>Dc3KV(_0+m_>PV-Ylm_Tf6V7MWnPs
znyhcteo2MUqS+tB(FK;qeXE#?mo8p>d*8|-QIR^`qBq^sFMO6ZjQ%S2eP)5UFUhNV
zwu8ZOT>2z4yLUDEIQ<uY>A(aB;(S^NH^*5CeI(|Z6H?dH+iTzVY^|D@7$zoGmrDt$
ztDLE*3>klVLT<0<bw8Q3HAdy7b#!!`+os{!k=GkMmajAL`=(qY$6#6Xl!(ogpt_z+
zlZ1V?r5DR$WwpGl4VOpEJ1e$}{u)5xnjE<L`Q46wehblWWqCf^II1E+0{!ju?Iij~
zxD-o@kB{Gs#a#08YKoNgc_3UCxc7LMo7Tt3dE(ciD-Ts#O-Ic43pxEBVJFcCV(~AM
zz7qX%^Sg;v=$G$vStbYenP;BC5eNj*W0M3`2+>7Kw&?zg2_2&wm_gI5;cm~uX4T4Z
zQdU;hRZh1izB0fxN=i;07Kqssnl%&kh}`adqK&8b*?NleRLXlv(OTU<DW_aMvisD7
zI}isVhkWqL1vCB0zh*|-lxvrU)jBP=iq^vEu(f$O5O3$xkP#)nSU`^cVgF9!$PGAS
zV`Je=w$X5m9`{#IPtPr?_78T&9NdZXTNsEcjP?`V+l^%=Nmdb9O%0F{mSLgePwQEd
zMhk~4h&*Azm1#Dez9PU@)Qp6av2ltg6vD1b9sC$EGs>WJD2bL^YNF}*@O=A|-)u@R
z{zh^cdV813tr%m<aChT63-HsA6qcXphLmS!Dy>W#tyqlx{nC7Rr*?lR!CyeaOjKc^
zufDE#3>>)0;OuvP)BfKhWQp?@CI=}!5^FbDk1VJ>`*0z#UKI7B3!2h_GOG60eLh}Z
z_Cexu!rzWS{PSs|HC-(Cke>*jd8Cl<Lr>8mWDdI1)9`)r`hl1KeS!StI&lVvj4hA5
z@0F{aiDtwbZb2atC6?f(T4+W^Sci@Ka6u*4miytUb3N;xg_#ZOsVHoD*3A-3af!7<
z?H1<whVuI_9G&ZOC-+`$Gfg~j>CA5PG*Ol5Ow>t~bUK8bt53b!itB<D_QXq}`wvwz
zO0~>_Ctu63vDr??Le<*KkfLm%fal0vpoeh@)Tze3oyYfx-o>$OcAwadb9Q$2c|H(%
zTTV~wRpdrH?(<k|X)x&HHA%lVQ|-*0OZhI%UoP*kH9coE`G@%sWJ6<B&@?=%(B;kT
ztvP3Z9_cCf)#~voxyoaPc^ev_>#;+X9lP7yDv7+b{BmaZwo1`MG)pbxFN%J1;@Iug
z2$b1peY#KhF3Rw1$(H~u8N;G#mZoSU-DRE?0h}b~Sc8DfL37=a$D<3i!r8(yRY`Pz
zdS7l(UC3B|xn;Te!GYiJ#~5*+59anbzqy^`uY)eY#9)6COg--NM-|m=W_tNom!$N@
zPxsXT!2CB_=cXfwQ$r05PMSeT!PU@Md4t>@Y_W~(@lQC>1s!=dD+hz3?vraWGS2@y
zQ3P`wyS{J%r`$?6{QbjY430x}Fyo&j!zhqt+)AE9U$~IZw$c^SF(JV}B-UW=$(IFw
zS)Vz)j=>?&4Tzb8bfcA}(YY6r3ikib=UpdaP9><~Ns4Iqgjt4F_L-c0gmH9Z@8wq;
zaikbIJr;p1u>W@w25_)$%}2+ha}5oL?^zU&6;!gYm3d6#%BR0hB^}uF=tOJ_tSxOY
z)~H68yEs-zUn}c%`oC|@D!bBZENyVW%Kpl+nngz8ZXCi2=NKI~>Y!T1=ZD+FX5M=~
z`W}TjB7nlu2uxU@uPo84CSI=R*~ZORBfxZFQ`u>>PFQr=xxYcL%+hT_b^pb8=}Ro_
zT7+v3;r!vM#Zd~%pw2=^sKZ;Mw$<pdVtF-X+a^@s0}gN4e()CwNhz;e*&>v+R?90>
z5>bnob!Ev@-EYL>()D)yub;25+#Keb_LG@s8pgXyreCgC8+uwVPg7V~sBa=08R_w=
z2sO(b-_A;X^sa~`Pi=AD@9Q@CajEPY9y>oj-~Wkd%}yNni!W42<VM-}zJMN;9-m6@
zEVI<4^{UU)nXV#K$kXKP{wSyJ@@wRVt!KjY!xm?BEhW~W=N8RT8@9z=(c2Q|q`wB+
zE3H3q$ft(Sa^;ToRT5hc4&K%(_)qZIy8#9A4X>gXYyI<9H+Hno#A1FZ?_urr9%3CS
zwUX&tGvBpGI$ZDGQ$}80#hZk(8ybjGaA4J#YWE#T)%Eun{L?yNVMV&^J)lW&f>_a;
zB?Gatj0Dk*W;x4>A61%u!%oPZ<9(Oj9KB65m&I;3$&2kct_B-8?YN3L|AUU7%N%ft
zE7uc9E6=8+`}xj8{fE6jD?Qm*z52h8G7ww>ZnqzFUQ@+;4>>gR`Mon$;NFtb70D38
zwYIjNfj8janVgmlUgu$~Cb~cMj3DP#V-(_Jh=}Sx^mejtJ^JAElYo-7zK{wr`crR5
z2Z4?h8y@50{61$ySz_Vcm$F^y2J>Fii|AT0kNm#XRSi=zM;sQ}_fKZ#H;UqKP3blj
z5q57tkN2#qC`r<rt#8PnThdRjazOu&I8qW}*ef3Q&M<XDxnr=KnAneExTA;9#tj&d
zF-=BgMC$=fzWG{j)BktVIm>6=82;@Pt3n9vm|U3TKjA<}0(;fVoQsPfYF6`E$+N2B
z9eRsW|7`v5&;^WknHz-6iNZ#?1VHh>E|dD_x|1AbZ5xS_{YU;-6&GQcikZ%;rgyl}
z(^7%FhVGt_Z-9eQhw>RO?+@<^;Z?VN_+ZVOLfaGb$ilCwq8kdlP+FBfduEBv0fP+Z
zWT!Q9%KOtGU4Kl~BNjN{6kT1`<`aMMfgaJPMSr>pu4a{xm%V%{MzW9^qCz6H)nY5B
zutasG1bl!^HBBVBo+JirnqWeVFI~FS0J19)0Bw4tHPd9<wr#D2j<xo{vq<thzcQ!}
zFdUrlHG0?SO`M${^UwZF9gepnDMrZ!d=ShLL8(Z}2Re~l#y>puwiU^)y6#rhRm`pu
zcQ&lojN}D%g3-2@K)os9<N<E9D589E^7fF?wh0-G)+Q-Jr2%;js@HoJH|)ldaxAh7
zChU>2u=A}hYYK~wjvjfJfp__I`uqRu%q%Lu3S>7W#tkX#;1-8|HdZ)E+Gqd#7Znv1
z+Q#d?u-svcdD|N(u-Uu3Z%&-D#<DZYXlVd)fOGxJ!T+7)oO|8outz-7DUS*47Mfhi
z)%2e3?uy<BB3|30{mK7v%V*`EPQd$<lbC$X_`Fw@`{1<<&SukcX5e772B<fL5m+Tr
z^OW22`}X#Gk&%&#lPd~_5t#{8o2tMoKi@x@y7#)e|L1oZi--M9OiXO;?8fZBy_b`b
zkr6ESzPo#|U~G-k?A7rP`y2GM4>`gusg!Ge4GJB;CQOsgqwwyKx$#8BM8mK}zxsXF
zML#y^H5WhZsuXZ5edqd!{li?c4n|;Yv&7|S0n3bfvYNH~^9Y)!3%Gri*`P*oq;h63
zO<`YAWX07H5`3tPOG-|rV1r_m?3|oE)xonTr&^B9^im0ET@-V&A&$u}`b%?D9u>IO
z(zu37U@!iN8I%lFUp2i)^_vKp;r8j_rhtpo=Huo;+^AqUb*H+Be;vHIZ=pkVE1a`p
z!`{NG;->wB^|9up@frcw+fr2Rb=~cdL=ddo+jZ1&QxwPL(J%o>j60wLcHyS}Fb{ob
z>iLC5?7ENDB`Zd4_xlyncdAZ8+6BPO=K1CGBw|OCfndC(BoLeYv_Vey!1CfOg^>BB
zZr-c<6vtPUd^3wJcVffiCG?ih?;mLd&wM6w`u%7s)6u@6kIWb%SZa5uTo)MUGV$>R
zRk%2&;nwuvwyd@)wj$`)KqXweBJ3jehlxt~JJAiI62`THU<w^EacoSe*)o$EobW}K
zT9zei28yog(2mP6%Ksa(4jgE&T-|LA@Tq%sq27ImgG7-VQsXBxNs5=ey%{D&k+!zB
z#ZE7-D>i(3eQWl+yo{5X4-?Xl$IqO}JoDaULL8<1Eg7`}!w&Pj+{i`}#oH-S%4lg~
ziBHGONPx+^E_qB*zsmcA7sd;ra-Q{&6paL3bo*jZR1E6QpV}VmclHB)ql_~%m~BV8
zz`x+D#+jvQI{V3^n3E*5Pe#ou%YLLbUf+^&hl0u%R!ip9sD)47;<u57_Z0bkyzqpL
z+Py_Bn}7S-<bYV*c|BF^NhA<p4)NO})sRnrD1X@kYILOJLRD9JUKnl930j`*j8jB}
zto6a^hOX6W*QEW<$Foe6;}!YY*kU$91+<t0m~cs-KNN=}Nn;DIx;!ZPqmYrFOAC`o
zcC_bM1Tcfx!3h$tgBM4#HHh3^#fCdOzBg_KF4eU<x@UEj=;&{%Z~iv!H$!>stVQ+u
z2!<w<&+V-myJPjIesyb3x_|h_TG!g;IT|yBm-^<-8-}6d|3`Whmd4jBVEUVs&6+gm
z`f)ZTZkf<cY=vF|H9}sMoM$wH0Dwp8crnc~P`F;L>K6t6+Y^?UfOviOH4uSc@0EIp
z(BqJKE_EPMb`<|z>DEHbTI2pnCD54G;q#UK!+bUwf#Lm{FagV1L12CS_78VWwYnZN
zm0s#*K<`A?pFZ^_R)MUX7PzypYU*TCQj+@Rk9Ff^oem;?fl`~7n?GD|H)6A0Tg|B%
zw~$WkG(>Gyb(JNfgl?Fu(Q<GXs3l&HHsrMZ<riy4da2VMsnbYof&3HHkfpb(E3#7v
zEq<}d8t!H>I;;nq(?UA&#O6fzG-}gFKB(O$r3Cxpmm*>5Rnn}rce}(G1v0p#MR%{c
z!R%QQ+TvDCkF%+i>(2(TS!qu<;830AnKljA#(Tpt{HcW6ly7$(FFk**$fp822LiM_
zYDBEur_XQrzEzfQe+`2i_Rdq$>2=3rwN2Gj!(VPBTxd$w({@h_as%L;?xKfl0W(?a
z61gb|c-UktJnK{<iKbe)53XT(q?SK@x*wV&nolLhi3dK=vdA`TUL#{))H(?8q3-pe
zD0I|<+*o%_q78HcvIo}7s5T)**`So*0;xuwd?QPkd4ED}ULS&eK}vt3j*+`H(0$92
zg}K3fV<{cQ@?JlaYT7leVYETOqC|DqlSl`mFrXwyX9G$L>xG7cKdgo&dKOT3qi(!5
ze0dbF+RivG>wQlR<I}pX)XSB;KQ5c;Tpxp|+C;7T9;L8G7rKj3qz;yr*hc2i!jro3
zyTobFc84W?Zl1lS8Mx;SYz&->_;ENnK3qgr#aBGe$k+h@NV_TH@Bs4qwk)Qt3Rq^H
zKP?3Zn@tW6Hsm*$y8$1YL0fJ$@?72^cxa~0oDSV>60<ra8v?g+<3>me0+P_a;nT@D
zQnF9Q9>lW-=224J-&l4+FX{Jsvz5!j#6XvCE$l|BbPuF5fyfMUCk>UhnbDwgy8~@b
zRz?Q41Ef^b`x6SO07j|}di@jEXZ!ZoZ;yivaDnVG$u>)EefRDT7$P&gej|1&(Lwj>
z=R1iS?yTVi#{zi^3M4|;--&Q%-*3MI%%o;q{ct|2+82W@P)eM@r|HQmQ=yybaqbPJ
zcC%Yj?bsepoCii&xO^x!@nUJ*-N>_zUH$3Ly$B?>V@s2~MVD<Ik`60HZoteeI+?7v
z_2A`?>h<H#dVGNQeq3W+(~_#^KHaQsPO6&iu%m>gcq*Qpn0O`4W+nT!G$m?`;Tt_{
zzSP){A2Yuyai_QR_|~Q>GPLvNZKovpk75nG-Td?4Vy$DV3%M0_MXGinICh(*JRr2_
zD4*DV<)|ukh;%AhE5A7nYkiE{Y7`z?0}UhMYVWzKBGrk-D9ug?OonmP?gqb=z9cYx
zNG{O4`j%9rAHB6jCAa09-V3)>EcpjJf4%3#tO`QBH4T2n4&~IVXSmh#%$-N*niz+6
z)c2WW2dvSzYVtVgF)%v~KM~R(7YmUWEfE33Q0k#YV}-?ce)WA}^L<q4Kc`wv)H1CK
z9lCrfIqIPc6J7w9Zf;LoE_!=6Pt%RamD~zZhZNsSCe+Ijo8I2tRWcZ(SHpV{!lf!B
zpU6r;4fueaj|v57!?S8wELJG6DZNFHXJ7qm)a=bpqtMH6r#%V^O|4eHf3c&ym|<y`
z2|0*lA)eTGA7So|wHtF)8Ddp-0MVX>)$#D71?k9dayKk#H0f2Mgh#KQE$t5%WMV5q
zDkvgCf7twRE~Vfk$*Uae3()zTexn#%gu)I<j^|*-#Y+mM04rVcUj^=Y3APYvY1d!)
zcqQK>00E~!n&Ej%&o2+Wv<E1_kyaLBSF8s<Wb!`ggGO$8uz%NlKZdQ9mQUe@vh{$C
z+HCVT$3urd^jgNTi3f6_H;A1o(j_kM(hutlVRwv?ySG_506^SvaXAY}RgKuM*=ZjK
z0Z9qyzC;Og_$d{|BH8<y4UnwkP{mjQO}l0?n#dXJ$hWJR$y9Uw>p$Oe?~0l5X^uh?
zAdn`sQ@S)?$WJ=4R?s)vSz+~h)PC1t15lVd5bsRgjSW>qd4K^PCZaV3f!Q|=J%$nv
z6*g4g5O{K*PnJZLUBREFh{$3GBnc$e$>L9iU+-Ja>hA8gEsrQKE7L>(i&*pSt`lx(
zm8|Cl_)6AZNB+r3DY+zYQ8EE`(2;@p6OXXV+>r00T0PU65`?i5y_aN*YLbEL<wGZ4
z^n&bSNLy+3hfZ(zd%L3xFsv1d=bSEGTypyz38{nWZvIHlQF%22zo`c0Lcfjg90He(
zIaM>QCbXqDoroXzSY)|C!Y^)M4ptAe1Fuhkv~vRvw#!_%hY}pUdMpX>WP`l^!5f&Q
zbj!<|>!%k6W7%^(zVuhpMk!GW;Rm7H=)zW(OCW7rKh|BNEp741FT54MkdEMW?r5FK
zw@FFNpd3}3D56b#IDyiccMCYqM3t%-x7)O_==`gx*J|NcsLlzqv)w*@6~l4lC6~1u
zx7~{~)7>-pCYlD`Y#TILWtffD**@s~7==I1f?bR99mOAXe0y2Jv0Gb)tEO9MVA&=v
z&-d3BlpV60UX1ESNj&{ZLHJ9UV6OR?4F29V3CS!_=_te!()xGEOGC<AwSDXhs^_|q
z2g@7=eSnf53BD>q^DMF)kW2LWJ@#n&ov}2k2HSz5BnI{Pb$=Tu{9@or7ibn6miW`i
zWD+%!Q1yO5^{#L4?9c%X(ET`Gx;x<yrk8K%{C{@tOFXt8I=JB&n<A&fB;w1D!A(rm
zCxYIYf;YG#jey)EO$TEl<YnR7I+Ko<*PdZTGoKdwD*R2rtLymV*xZTeZTG?P)o@Ss
zk1xxy;la^*AJEojL$7w8G$iO>34hk*mW&!9L_?7N!eK|D(u$C`k_Po+PweyeFWAyy
zijEJ!Zz|t6Y%gSlzi_U+b{Kq4Tke9b!>$(<k0Dy{R@zz&e6r=Pq<ybWuc!2&&BQiA
zmRE<&n~|yjFKKwkc~DO#qzym(l5Xm0BAjF`z*2S?M@b>Y!@uVKtu**qn|7ai+rJ{5
z-*#@@UTEe8u7JaII5BcRyqF5aLQ(`b)%1AG_Qcq*ac4@E6Q<(3`<I}pAxyCWr<^)d
zGih>U1PuTnRHh_*@X<#4YgasswDWFN2{W{Wi=DN*gWTnqN|;?ur?TPXANJVtY|z9D
zNy2DOcEyLA!!S&ETPqx^Wx>hOK&TYYGec^9o4TJLzaH!Xs-ex?D0M|pyFvqpI<Bg1
zJ(Q5SkWXI0bRayl>alh`+BS9<&Mm6HPv+c@NZ1K!vlpzWMpPTf7rv$PEU^E<<Y2ur
zE&$+DE8lxWyFQi3)Nv<=1(>>hW1g&~f(tdcqs0JDLOvFn0mSHzJ~@@Dt2y6GFb69x
z%|3MUHI5`l?A;G0XcLHlqL)}@eL-~cy1enw*~Rwl-PZx=elg*W6g_+w&`^_E`+n8F
zo<A2|yz#pZ+j#=BfNs9izsx04VSAK9!4Bidq4XP4jUQj!XanlroaXFpFO&a-d7tr6
zyGL1E?HCFRFwb;y|I+SSa6Xwt$;mbAw+x|C$5czxt!LPooU?u-nF%Z;T;bCPzL=m#
zGl-C47#6Hq^z5z9EK(m(U#!12nKw<=E094XRRqs}K+J=invBKtk@W$(pmKisyag?J
z-M&Oz)joJgKZ2)hyK<kc2EkWN)1*6;99B-tns6^o0CT#|jd#(OzF8i?q7=X#0eixY
z_wwtrKi?l+B!f;^7R=>Gdn#Vs3+lfu%akS}4j|rt5yuzaI487pE}ru#o^#kcN>dWd
zx(Sp%X8wTMU@-FIU}ZlhdllmhrxWRqLE<Lr5Zqe8l-}o1br3Qb&)V34K_geQ^ik5t
znp1c%?`^AZ%nd+9DDRR+-x%K-z8fgKeiw4sT*K~UuQT|;QYuv^PT9P`p$T;Yp!_bG
zj^31h`1I*hhzX>=9{jNd1_Vi02H&{$KEHxGAYk;WiuPwit9ox99NPs-&>w)JAwpb2
z-G3BoPYGWf;lI(YxeIeOBrltro44u(c!dk6$;vpCBf3`WXEo7i4}>skV@g1KXTxrA
z%*1soQ#3U;+h`>SnYf^DT?(t`a^+Er<AlEgR^!=DuYRy#2;e`uA*)_c?%9dhooaaT
z2}C<s1{0@@!mzUmrZUw{VRk-LSJj$@Pp;vvOVIi?pR>Z3HGPu{dp;o_<T85&repD?
zuUmZsvr_|X=XweB(ZK|V;G7Ei3urXenMWPXr7+9#{z4`-bll;`YCRBKrGVra`)gx?
zQxK~qH5n@704&Yk%#c4+fwdPsmO(?6-yR)jWUhT81K}}1YH?3?3JHzAsLpe+5+no+
z51y~qf(cycz<NjPfd`0H9^O(7?(}bwM6mt(hP2@WE5|TR2+_Q{@*M^(Y0mYbcBiD<
z#F=|9Zb-5b;6r<_?$i5xX_<%7(+}S$UcrO{cc^Flpm}<HxqM5jk>h*!9eeF8*wyuO
z00GcGdB2I4O@P98?=HP`$;ZbG`jg`2xgNF!dGV~_;``W&BB#_&FpoDV80x=@k}f3f
z5i2?aeo>=;Cq4m+k_FQ$`n^3C>d?2(z}y(}%VEIO&nc`m+nj7~22;%-Fhi$4ILEre
z8xVVFbzgksRmQN~3bR@SHU~6SjLum1c`904RT1aLDjseTk#OUNzpY>u%uGwv)Q=sA
zyQ8=N@7clXV~3)v7CzlVmVmDR=soDu9x`DFT_k@omk8d=I|oPr7z#gOx}p#F|6?$3
z1nqQ&w^Q^$>oB*t4889$PRCF~TpP5{S4Z3TsMRj{kz5+@?csNK*2Keb4>h!1pgR4a
zZOSSuo5k0I+nG#-*0ls^^f5pH<bd~7H7`sJ{6su=x*C?nU?U^M(z@sRn)S%p`Wa=|
z;yjOx8Vh7oUXzr609vWSmKTDl*p~i;k^#Buz(mOVHKV5)lz?hwgL0uG&=U0_e8;cF
zBF@;rULpcKp>5!Qs5b=v1P1W&V0KDFyY3vXGZ!Ht^%hY0E_8q}Cf+0xS-rhWHCKT5
zTH?$N6Tws%3KJmK$pYDc!$=72pcG%Jlg9w+XkcC^@~7E_MMB`LOxPf!zOZJ|112V<
zk+$r@iRb5EMT+Ql;0H0WZb=RBx~$dgLpWu$jl{SifSeXIltiN<{zAP`P19v<9CAv*
z=JSglTNseW9zZe&W)5&e&i#CUg92t4nmM2<CN?G`4&MYAy9whpZ3H363P%elD=Vuw
zbtFoPw`3CvrVkrY0tgoZ!gUy%nuBWJqGEfmAx@c17LJffipZvcwx+UM6FMvvM}DJK
zZmhJy%sYMI!XU~(a1lxZCqGpI(jcLU`Th0niK?*=us8NdHrb4Xq$A>dXoK581ux@;
zU|I~pmjkT1P3K|93SfJQz4KA2K5C4n+n;W!Wf6Hyp6onm>YtR!p?<TI2+~278p4Nw
zBd#EuaZ@d)dO;tK;00FCj=qACP#Ws2aeiHxYr-%{bNp~WI3#<J<wa5iv!1L0e(E`x
zMn}xiP%U(<mvIOjP=D2@sI&0#2BinSCQ*<6g$BwcFV@N`;?jaga~Q!w!0F0uTrPCt
z{86jg3fp?$r?0nw*MEw1Tfr#2EM|>Z`Z5~q6ghkVPcxws^Bws(56!J3_c@rcsMEud
zwraTLbxha7(3rtN9S6uUihn3H*8~_TDdJG3g7i~G1M2C|k78NT+Dz+wg1Feb@UKMK
z@MYE%pZ6je8UHo|LCCE^E+;;pjd994b9+qUgRJqWD$+2Zi0!Z&G&4u@OSkzxBJ`;u
z1W5r`ffp<fK{xu69OqK^S5|0vS}|J7YZiW_KLyRpLeK|FM#H<i6tRd7%uri<dsC2o
zfd-XA5Jr_-lqAGXi=k(fUW3IxuULk23Hvy$silRXD%c9c`+|zmTxjl<WgJ7VkcI%V
znoBRW8BP!YK)9PAV25NsfaR6jW91MuT<JE`0XZq>2UD+e3dl~@G%$kf-TmbiQ08nj
z<t4ei{CypGF5$(t_2w|jg{flQ*Ea^Bx~$3pAZy%it`fsee=oY}E*eu-gaK}_AfzqG
zXoMC)DabvQsY76)Az};cE&-f;if(vIiVnX$+weX<pi2o3JjAUf#b#p&h*J)#`K^Yb
zf&NP%cs?Aj-7F?H+kQ5LkOUK8@n|$g<AF`>6t*9{L;K*7Og@HyP7!%_$D_BE^-fyh
z{TYIAE$9nS#ona10sNzGO(D-(Ozcl5^mU!m3~-cH;BzyuU#!NS8_f4=blMY4!2+vz
zc?I<?fT&iwQjoic(df{7{6D*5-okf@?n0NLDk*pM^y17&8~_yh63aQ@6?$fZL(-+T
zED_o`Z<CcJyj-U|1PApNejcFdwye+d^T-=QU$+3Wx)G@mVCOwBY|b0>l@vQ<=kcU{
maqi1Jx^$gJ+%?0;Tb8l1+vP9f_xp<GnYd$SM+=TPUH>03%juQ?

diff --git a/reference/plot-8.png b/reference/plot-8.png
index aa3893e03b5695b4131732f793eba0430f1f1c50..b12dff2451ba12aab96415bd97ec7df09c53533c 100644
GIT binary patch
literal 26216
zcmeIb2UL|=wl0df%0y8rs3??(pdwJBfJm}bq!1AUL9$AajN}|DC@2aF0wPHyN|c;~
z0g;?@l$<v?hx@H<b)P<GjCaSm_nm(CzB9VV=oazc|Nj5A=9=@H-~8t6N7t^3@7TJ3
zD-8|J4vAkc-k_n`WJN=>;qG^v@tYR!;Box1`L3k+Mf{2XEL_NP#2??^|5d@1hUTC%
z`R_XS-U&?_nxAMSF8(58<v-G9>+dC-BRWnA6x_+6^Xo6?vdvG(JlpU|!t>L%TWpcR
z&wbqHuD(%8_VdcKshiN&9jtm+%EPUFOuLu&BA0~L8{g`L!`f_HBU{)1dFN$Gd!Fc-
zsndr)8faDM2l~z}&Ae*R8_j7*3Z#^t(4q}esIcM5Q08KwK3(Y5>%rToKfN~Jm`(lR
z*pbdn<cD96t>Y$tp1b_L)jIOSjm!DeOP}3XuS)*z^y0_y_2h@p7f#f>{S@|}xP>2&
z+Hw~|NKDL$;^N}F^)U+82W?x^jf)z$(VzG-+?X6AoEJ25*5UzWDoQr`O=2PsF6#>S
zGt^Cx=JIj9^YNjWf`WqGbO`fk=T<zHQ~eL);a4tPxKLYHC#IsJ(qod5?bde25I?FG
zY7RF~EfvM7%g>8A&L#yt9U2;njEQ+NRUw*JAmV$4E&Ph_kLKp)6D=L9e0`<9HScA~
z`v^+rZ>ucgy!Gy<a4A1}Iy(N=`xjn#dmE-u?l>Q$KYZzli;GKA`B{$r`}dy>y@U^t
zr3<JO==b+j-nqKev6freOS7py{cakbo=xgia@%Uh+Une4madrwHR<2);1jnSSUaVB
z84c49nPe#Ak<awKR976isivkjUh@7o$L8mbX`{Uv{ei9vQ~lx>KlS>k<(AcDJr!C0
zN-Lh{u)@O9H5Ig$ElW1+-L_rh>&@<V%zx(hm{qtJkaD4L_ntik4SB0GE-trn?J^i?
z@KX6)SMX92IV-a*)VF0}x%71Z9^0{u{+-OW#m6F8M~xhpS{Ar=;ErE*t>Zq&ZeAfg
z$2wZ%$xf+Fz;*YwGYOqxVF|PudTTXR#y_RVh%28luWy&Lnk-`X^n1zMo~^CNl{JzW
zYJ?5SUY;yb8dbV^({p;bDe0a@QWNK*-Gr;!mBrIJ`kBGOhpbo21u0hoMJK-;_6x|H
zP#>ra7M#w|N@}uNo+#}8u#Nl4%3OzNrui`aADeePu8|fM)++aJy8CqDS(%o4d$zUl
zV3^P6$m=0*EGg~RRaKen7pEV=I0^<Mf|&R_>`YH6r{8y;+efy8sX^7&;L6LN56w2~
z#cO0=54lv(Q{>srpSK_tqncxrWiGrll4QKl>r*&T6%ryJuX<fUVc!;JyZip8<pL9x
z7ih(#q@+Z0H?|~eSG}1Zv&>`c{`}N+F1ug2Dpo0N-p6sl=givjlsatrx|&+Y7%xn*
z;Fm22UzEPBa9o{g5oYr%`<zh7<agkd!}7dE3%d=mcWe3+w|=1Wn~PX2GjiC~A82d1
zegEmB<b{_gd5%{Cg#=a?8}d@ml)n*k?V2p%cBeah>Ehg2TZnX!h;i2=_Rkk+g_A!{
zIqIz$rX69Pn)%FVbfsDS^OL6FDL(VrrhDw8&dd&05$;>CPiN1$1*AHxEGl2@VPTP1
zQ1C6$N>UnaiC4=DHM-bin7hyyJ8Qo<7~$#Q$tI<nP*K33=0EK#V5&7~XK!zxG^I~b
zAMbpx^h8*z^kvTsgR0e`G`oe#R;=x+f!nFOpIlmB@#<N0MW@-vXHQ->q~y%Cf34_k
zx23f8SxI`IC^~5TiB3>RRYj$ZUcI)Vp?@rQX-s)-btTQ#PE%8J3_DS_(>_jV$-%I!
zI!w}(d9l(tRp|mQFy+o3|FE;Jl0H6f)g~@7@~8miu)9!V*{ZyXxomY>RMhb~m{GEl
z0VS})D0||PVZPJ4mgP+QQ9U)uRpEyE`o8kB!!ZW4%)Gj_JMDK0PT7|i+LiU1WYk5=
zv)f;mluTPN)z#~(2nu>~67Lou!i3e*c9a`WJ&y<5zK@5Mg@sSQ@dxttt}AkJ${7Wk
zWqHfJ+-YaWLfl1OB}<De^a#l`+nDy1J|YIIYBLySFl&qTSDzlJvQ{d}(yfcy%cJo{
zE-zeAZ>%-r<n4T?m;6SmexEbeR+qYyYp%M6N%|P3Q6BDKy!+wL?<dH?mg=`l6UA9S
zdA~E?YUpi5YK!Gyb=XO>fy$S{wic>-R%yR&*uvMc`8N4Ly^>K%<DBokz(?_T@1kxT
zH*wfWOG@sgQ}@cBY@ikT+53b-VwnS3v*nR{qOK1gKAfK~6lF?lvuNR45?z_DF~*_m
zk1e+=YjAPt4{{XIVK%S5{=7)T!iM^JoeJMm>~NmV%EZq<Q^To0+x_H}$Lua?p{lz<
zqN@|`61J7Ef1yhdV0{}KYml&3`}U^i>{n;z+?zAI85qRjxs|yZVp0W6`&cXZSF9!q
z7}5mV8FI%TSoH^3-u?3I(8+t{{<qQ$Rp2Qi<Kx}s)$DoUI$unyyu1BN>C2Pq5kqaS
zIO4N;qN1Y@v%C>^XEJV3u`KX7BKamYl`pYLAD?SXH&#EPlzKv|?A0E%`40?t@qT*7
zF?nk%6eVTvRj+uvBV>EXWw=^fTia!3xS_CwJMX~Fh^tSroi=_mJK*KQuLkUo&zV)M
zt*vEM^Ms`oKG}Dw3w}UqG0?KzIsrS%=OD(Xl&B$b0ER8`tUb$;l0H+f)Lq8k@nmsv
z@rzbc0(_AbPN|2e$i<6K4hmXi`AnqMeR{OZQ*vQ=XsGL@x?9s-R~Pf)`hvy;b<e^E
zHAnlTvn?$?xzk~hadB=RX+?!#mdtf^b<fMRLc+t@9M+aP3Z2$%@W{payQ6&n{icaV
zb$2nCX{*E1Xo5*^F?l0wtyT9^{;twf6;~ETCqC_(n68md%lK?p(ST6GK1%B_{zq)o
z+j|v(*A*3C38|*)D@1=L(Y^WlI(gcNW`xEd<xIN|-?Jw-_GeF(mxx`AOHV&DHxS~^
zwi1Lmz_}Qwki=%41GlS`<8LF*H6t=rddgEoT4>_aPRFZK+&b<qtxflW0`#=C8+F%i
zN(=K2+QPah<JPH~9rkllpOvwr(S=1?Ng2e0H8o5l@+d_Y`tj<?8RCGn<do(hK3IO<
zcaODyrQ9+%sccnna-|g4lSLV{Y`o*#3oA%d_(+y>wI5!3R`fkzbF$9OF{ceXe=WC$
zb@4~{e>v=aMU_#|LO(inTcZLT1cQoMm0U#@JQruG$UsB9n&He)9p`KX?%eGzDl%xh
zy3lWw<UML1G$pKNnxUK|aDT4NGR?*xo|m;-Xm!5ZAnJQ8)fZ6?E2Xy+W0Q1#Mk3Q=
zdt8C0GR#&&J+D5l3K3_IPf2c`!Euym4qB{@P&5}X7nvEXVJBYp=<(*o-5Ens(H^sS
z7k?i=&77%nL5U@Mimh67q4n1X46jt)h}h1KG#cftC<?b<7eBa%dEtwA>XQAj<HsK}
zuMCJ6b^94+zOC!mPrm>40|~u24av!;ne3;l2I^y5`1I1d-2~sfdBeiOVwf{iZ;>~l
zgm7FMC@kp9&EIaNp4j_^w?TQAX@B`s7ni80sFx!4HqI54T>GWZ<_#)obyK->Ih3b>
zH_=U|H4)P8?K!q-jiR1KpBz{F9ogI|d26eDbv~4Z{Rs<w_n*$f1m)b5=Gtx94LAr&
zyxnlP(;%$6x|$#wJOd)%hX>pIa&k3_JXm9vKe3C@WsRmPZD$q{VtHj$P&x417N%dD
zy9?co;u9?!<?|Nnw0yMELXBG<U1H?Z*PgO=KRXl|x)Q>?5?L2KanQ2$d2-=X#s>Z2
zKWFQ6Z0A`0ZHHsi?$(4$8SJOTWsO~KR$HC)34wXH2!|`B85+Oe#K7vlw%jk8_V(ey
zs%nR9(S;)ESEE@=^WE-nBEro%-j++%KDoP(968c5Qe&3&N1J7bu*h^UtwEAwjp(@;
z#S~pv(aDh~voGVN<`Tx>4WbL1Oe=&vXX|I>3F6->p5L-LXt{^oa~4+AK9Ul?G|2?F
zKu2fXtP>%2@slfe?%v^sc%%BYu`J5f=GZpwQ$ZG?53xrBSm4R@*k81$2rn?1JEO;=
z(Q$31yO<;X$-N+ZzIxz`kKLtkzB-P5r-F1$Ri5%0H19s8Rq7(imBD(+o#`NfW-okv
z#IeaqRIe!z9&6iK{)(4F$8kiRx#es3>S)I*r;ZUt%X(pQY{kmYVU&18OYO?`TDQ{v
z@MvZCGhHsDaXb!l$A?l|onnOh^tx5+=@QyR>-8nAt*xsKDPEm;(fsmV<EihTi!=Eq
z`)y99qr=%yyQr`FeLCP3UXuWv?9~X-m18=23w?e?W$BxD>`$&M`5;*B7B{b#d7Ot?
z>GT1+@%JYIQV0rnDdP`Z1jJ!FEbjIMI82Pvp3{9QXyHm}fS_eG2OBwoC2h1q<N16I
zUM0O<eSSu6fx@<*jSCMl!1t?^`tfsnbE`3>q@-Mzmv0yec^lg%V<gU-qfk%IjhB}f
z!EtSw=B|cqnPPa6$*R*DhBiq#1+EORhJcA~=Cw0B&vZIzRU9-eJvmXp?U3+M*DCFx
z!c41~phvi4y0+2iNwvdon##7c{3yb|@=>Zgm6<F=+y!j;(rB963okFRPklec85bxc
z14-;XU$bIHpgwz{$ny9{i7aEsIv1By6+%gE!|ikrS~pmYG$xSn@siI#@qpv<MA`3Y
zyn6MYq#Y(b_ny+aA|oqX5bwA$%<1N6S?TZ2xsEGud2-%;ZQh;FIYp4euj~@OWilNB
z5B@JCGxMyjuI?Lz23<WpPxtUcrhI-<Zo^-^d|=CET*K}zXXaW>x1Ei!m~B0%pl4g!
z;L>N?AE%O)TGyS8JU}ALs3Z4p9&McwBgq<y*n|9q9N>qLVIb+adOqX(U2LrJKHlEc
zWv45f`)XkGN4UGgbjYZpsUi%o5Kg!|*qP~ZW@hFsL_{IHxG~_5xUsSE#fvdYX<S#&
z4u+;rd}j1JxHNV@Zt!V~VmEH>#u1m!Vl8AdJz&-IT%2S^?uf?XctOPGFTEy3g@>FE
zREL}L9iJ|nRU{`ue^%Vp#YNh2v1Zn&?J)w{B`Nvq+-kYmb={}iO425DH)3yYHyr9T
z2nk<DVB(K-bV>Irt_Cvl>dGXoM);dtzNp{seW&2@9)wiS(E}`RZri>XD}Ma=@f*jr
z)rkam`xC@v5`3U+JDO579JJKh|0?!csRmD3uA3`8r*6#x{PJw5Jq~t3Yldkz+>-Y8
z1806d&cP898L931%&;j@)8OpAkSlDvwj4COHfi<s!-KNldk(Io!|6}nsF*Dc5*5u|
zC^KSnXEc(Llb2^uFLX1gdHUsSG<hMMge%Q!OL=Q8L&p2p?(d;f($68md3T^w8a4T2
z9~GozpJHKgSSV4u^r?^YfCWOT){5U)%Tl4}>dDpBxjc5C6<TJI?514bg=g;e#+JNc
zVPVu{Y5eO)&;CH`K3^^S&rkMwCL7^h`2ykxcTAD2Z8R=QB}q#vF~UUT0I(ltePXmi
zmW4r*eYhiXZSuD2cy(+5LBHgF^ikO=iX#1bWU;f>>_;MjWq4ci8nzN{pmF9qtCmRE
zSCLc|J-6xsk`|Ej%A(jVZ5d=gD`6-z9j&%<97(rl_Uv0}`{UfayzQ?~uz1-2CKz()
z!b8?kOSRuu2c;d)>WI#F{xN}cHl?m#C-ZE&aYe5|#@C08iuQ5d{`Rv?5=)6CTzVEY
z(JEqmeorU53k#7$!F>PRb=9T9uJ6=!IXQY_2D8_5@u|Cb^#>=+eO^>7G;24$yCZ>M
z+Z4N~UV$j(IZN`t<mBWsbF%0QM_@_V$cP{Zo5}e%u3VR!IY%RuWMp>lV!sLwz?PE3
zZ-`*llM)`y+;W$^RWovCW!29k-}&(wJT`Ke@)Jy6G)J;HLEhE6b^75AI=TzaI}PY*
zm=UiN%m%CF>gvq=gI1>_T1EtsL(JEw<<><_>6hU|y;A;=2UNFL)M0sN$7zEik0TQV
z!p6@e_Y6hHUzKB^z~v&PUS?4k6w<DIojx3w<&jH5sYN%}q@WsOPQNha(Jy~&hKur>
zO3`Y07S8cmT5vR(uWkcgFPV0o5z`Z9Q4t+}m4GuyE$El{$6B(0TebK@7W21=JoB-6
zrTS_mhhoo-RJC%1XIQ0akGwJ+$+QWqW3nAdu!0x#v{!<wCMO-cx$EP@9j@?c7cX8E
z6BB!~_vD+VGrm{Co7z9a+~h`(7*4cN9QajnzO>ZbrTq8`x(Zy?7pDhLA~oimeIz_n
zi^PE-6dz?1iEOwHoYlj3r&bfWbEa?jBify`7-?K~_+^!1YTfzU77y8X?!vRTriUB2
z37JD+dt!n3r@o(zkT6Z;Z=n5@ZrpvhGyk`u`a`3=BuOga$~s{!q*ouK75(Kf3&}BJ
zwBuuAQ<y1PJ*K&Q<^YfEqZy|CV`eH+b3v=flX7bc$%2ha=lgAu+E90iq^BOSdlhX)
z+de;K^hqlTq7@u@*V8&&AL|-?!TAzGG0A!G2jYVPuU)(B6+b>sT*_d-H2W0T=!*u=
zb(m3(&CKHvx3f`AVch@%MiYAW`RlfPB0NlwF-&=FZf#X<B#V+uEEr@JkM9*38JSNa
zOC!68FB8JCP<k>&yw*;Eo@YH1fNu=2NlWtGY@Ux26BFmjE{+5&HdQ#JHa)GHyn}U^
zsJ$tD#8ji~6|ZrX7()RPamL=>-lF~+;7~Sf-tGc_|4H3l*t=oBVj|+ER`Bc&{?;D|
z8{%qjl+o+mXxU+ZnC0&K-!~mhOgtks$*bn4n>l1r{Nk9PY{la}99`Uw3zG1&%-Qg%
zg62Y4xXP0ov#sAPjb*X(d*~*|u9z*&jxxfEbY@$RMfiK9*&IK9{4PvDNhk=ZPFx%p
zGEIx3I!`>;gy`CoXwlaG(I)%3wr<$FD=?Nrv^`nO_}oR^q?KPS<q&C>!OG~-Pa2lh
z$*Uc_8Gc2_C+D*0{CnEZpcB-QBn#S=TK5MqO!Ze(*mBbO$;$*GIV-w61gsp_M1O=L
zr>fenFWQb1#6@T(u9PrYkv_efD~mId>*pf^ZFF68qSC?!A9qpg`US1u5>Dld=sKgo
z?4^gg;yBBEOF_n;_mwd*TlYM-j_n7ybWdxy;fTxVdvyj3R|trT`0g~HKX#ry3J{ok
zE8(sf$=XipREO?8t$hulmn3oo6?0_{ym<-cB?i|x&vLe7xw{ebZf4JSxlY6y*>k{w
z?Gm<`b^(5D#G<IrkAF38x9%?xo@?EO=w$KY#S8tDmk5?x=nrz=cS`G1sDvj8aKz+f
zWo5}h!^$}PP~y$$ip?r1YEK&dic@a13^3-VS>j#r;@HhDn2D6!E_oQ-yE`AdmZvJ*
zb!x&3np5<;y_F0ffqqDp<RrYBiDy2^A^=M*MCag+*^xcJ5@Hf{u)`a?Q5lkqwkvH2
zk4x`*9J&H(!_HZk1b1UR$Y|oscUZ?~%)ZKchOs-(={`9iz!QjDL`Fus5Eo)?y#RJ%
zp~rLLE3G5AN8Gu2<dO$IlOI>GRn_V07<m*ImshV|rGr09ZCR_9<VIGry0TQr4xDch
zOV~_pM#5%V4g@>1*(#}-6deIrOsmV47F{tD0`mcw4j*P@xs5!_>vtfqRq_cQJIcl7
zCL1kR;O@BGO}|7aT7W4yB9X3^7Rdv+_Nb8U-`MXx*_C2se?XWtFIQPj#m3zr>}Y-*
zI9L2h^KXQC;+DTCb%po;;a~oDsPzBrEo5&DtgqJUE%tiA6)ZV~6b5YerHh~N(_z0d
z`gE4e#|U%S5jr~Xm&|aD$L@=n9l`NKI_vJ@Lih+A$@TIV<*V_Fqukv1CD|ZwgTHaS
z;dmPrMQ+ff&nFkJsxn|Qa2~`O;ZbqFn>TkM_u(e@10W}SDM)G1Jhk=p<cmF!UQ&_b
zm)xykAU0z~>Z$nQf3vpmpIwlDW`!dvv~p9jb8m@HA%UP3LQ_{xsO1W^FSXBo1|P;$
z$YiTO0!Q|Mi<X$iPuyo^^Zk(Bz!AF&j-`h*O@T0dggD0zZay#_9AQXk=uP`(a`8Ea
zy0;$X<Q#%t!>?JvpK*Ws^89cJ^8KOVVRfKS!dLIfq}HCCvIkGEqZE5_s1Mb?g`L+(
z@r!lj+Iu!&d(^?!owT0pIqyY$8O<}xfIc=oq|pF)p3)*23hC6PtW+?6?8NU=QV^q%
z1W1KspYuL1xt``=$W8sKcNU|~k+HEja)dqrPkk38%mldmi^Q27JbU`;nXiA6gm#<q
zG4i2vs~RYG#8rwV*XhOQ&=Yw52AfX2;5?3a<J~-bw*Zx~bu$OBEs)}GtL@T5)RdZC
z2vgVO@eOVJKK#Tn_0{XY_Ax)WJ4XFOWA*ycKBfm6t9w*yDDTUMc5_(qBT1&Ci<Xaf
zV_qG1rn2RTG(WawSyCYf#bGY%C6DIiRy-OZRriA8<ttPK+;xqYm6J;ybd_?LXSznd
z<L@{Bw{KKiG<)on22zZL1-#>v{k+G^QTpjgK_0P}-%we<@!cT;3#o)4Ncq;GTjV6+
zVd&L{t3sUf?(TNUWBvC}{@2aTpP<f>Q+eds4a+uj`7F1NUiopr(^ER`%%ZskBFLK`
zwHRh`5<rcr6$rfMyLr-fUArb8N!#6x?pMq((QJ7fCTlY@<YiX@PS)`vpC2cV-X5R_
zIB6D^H@UeYs8ZbQd^~WuxTFM!nF(i9Mdcu9#!Yc9aiRDHDW=f*Q7o^a7)7olAM`B3
zou0yRFk~Lcd<F!g@m?A=kr=hS-26RNUNUlWm(mQ|U?BmP?Gj_W8%Orb#VXdtb<Yjf
zMAQ}1_a?agu9Mj{D@?JLcC|;c<eAD$+&Im-dzHu5w@*$^4s_%>Ui>5{-@vOfQ=7h@
zT7Ueh?5tQmBb_lgE|kE)71nkQPxY0-LO1L@^V8+aXA8=AQ*Xl1ptHW+-LB_w6&N8x
zi4l8GFz)^g*A*S@3eNcxXIkrzbX6mp^~nclbn11y6TQ8>3Q`(W841p81#U7%)xxl<
z|H-Lxmp^Dl(rM~Q4nWhR7V*8+VHQ$3nqR1JWTF*azE8l0E4Z}7HgjVKKRVO86U>zV
z+lFl_EaW5S+RdVz_*ve7emZH~_37mq<GaC<)SGF`2WZiLE1kw&`j4UEpBVuDnf~s-
zq$vD<gX8``^&<BlXlnmW3qZA>|Jr){f48MQ@__3n17r+aRnGg!$V^w{i4ppf%ZKAO
zubC`zPKV8v!Iv*zew9)tdiDlVgK91g4n02R;1CU-eWFVP*Q6Y0_b@Q{IhsX=Q&JG8
z%2t`T?{1G<4(#Ng38;k!Iqy^1izq;!xiK>maaDA~(U-`jj&g8tnC&yWPT1>U$=9yM
z8a(Z`$6mr09_8fZr2dP^vyCcsam#{_oGjU6l`|46kC;gy$Ghy1p_pT14qA&KC}6}l
z$Oc%b@fuke)$L|y6Cw<hG5j#xu?q3K<QE7WbaV-*XQ3oU#ZUlgxB+3+0p7N$>{R(x
zM@MIRsE&h$1zg}=<SW$sL3cn3$#iriC2ekQUN67#bX~je?I00*Mf;eURbpl||74xV
ze>c1Pf1`Q%*IN9SN{IeXE~nS-OsCmtWQB*zk#QrJC7>f6RlIE~KT^GSyIC_8G7~0Z
zW@d(tuBx)~TIXZxk(-RJF|7L8s6Cq$z`H-~l0IQZ1;#X^Z*FeRMxx|C9G@rRCeZit
z3@U3l-_$#14ZK)K0YT18m|PUJF0y$ZGZUcRaP&>hrffnwQh8-Cv*Pf8!6o0&27ka1
zn;tJO?*yUnATJ=&CGEPsL?@9wS<JziD|h`m9igd}E{A%(iu(jd>8j7Cl&?E*`Bixi
zGCFw2O)(GS!b5w4jA{xB3i_B2Mnw(;4bvcj@DqOM)|KPqCa0|IpX~bhajEE8nVN-$
z>A7>a8{To`v71E&?IpSZQo80sT}#gWB;K1450zbdVE^P%*Vz!u<hMM46p%R7<4Cws
z-l5Ojo*4;5h%A$vcvWPL54e8gI__CyMG3nNEttjNT4_zjXlje$1Fm&eJ}L{A9#@lg
zcZd0?K8Et4@BxGBUO3(3e_Noqn=zfSK!K#(fP&O+D&KzVk1e!rj%#y{MiVKdqy##t
z<+MobO;y!E<^77tS&^j>U~4v9&q+o3`pwC2^Xn?TPPcgn14APl-l|NeA_0oe<m~`d
zV*2hEoptRfP?jL$z1fKsL^j~Tp_M&XU4_N+jNOMCO-OKXaQ>ckQYn^fjq^*=dPpPY
zzy`Uc=rw$XwY2HymDZn`uDsBV6s~P(m_t5Jzh*x9s)U5ZkK-s6EJ?E+Wb-UKz0HbW
zzY!Kih47wEY2V60+sN}=zkdD4al_X1lSl@szkoGp@c6<?+ieH0!F<Zrt4_JQ$v^?L
zF&ma~T}er)^RZKS^OA6I$(C%0m4cvBLju>@mGb$g`v@n-)e`I|?h$SgA}ML-I%>LD
z$pmQLqHXKLot{m#wSg=6h3(2rgV9V1LB?#-fd{a2gq?n~A(|=@)K(LF!1X$ZcdV$T
zKF6B+DGS~Jk#AbVftbH32kVZ_cD8x1+pzf)ge%tuc)p#R^8dfH0{^GLCDnoae+wut
zZ#Aw)iM0?})LugRA29iHh>(tuCnz1dOx^fjW3#tp1M5s6M-^gW*(oyLnU3Pjs~i#Y
zq1rRhllTcYpk`wQL54bbfHKQ(-Y!6{Jx!Y^ph!iW6dO=4)1Pgg>@7+A&hjt|?$6+S
z(Bc+Rm}L=)j>hRK2W1@v5Are@nQhxh3aPY!3F-BczXb9sMkR~y(v!WwUF12176(EW
zxTyC1x~AARU(j)NIWz~vBA@MO=5U-Ve9wHbeD05MgjIMr*6F7%=@33l{pF=2yyl$d
zaEzszf!ZW&>!M_dCg%)JO$dBugfQHl=PaQk?0iTyfu>TYSGY6w?OUCRg}jwfBRo~B
zaUrj5E+D5)9`en9e3X_v$F<NLlx9L#NSTj?Wiu^PYm6h8k7Tp3?QH44EzgE_s2h)r
zin-Ds8O<8Y1T5UV^FU+F8qlKWthmVJ^MCyE0A!}sBA_+ZC%Otw8Z;-r6m@j4TdWCk
z^YHM{T49u*y>!uT(lhAa?q4*UHR8YP>X}1C_W^CGwGecV2^Atstnv0U(Q0jP*3$4U
zE{)j?6bbf#7ZelnqBLh?v*SBC5nQmAT<vqYb1PG<Vqz%cTk0pQjb&R;bwMu#5{crt
zwp3=APDB+n`Ki73n~Xm7F~)K#r~mBDrLrI9l7Qt-+uJS&QW_S3Dg=aKqt}TLo90|Z
z9oIUeiwKR6;5+n_D!_`h3{R7Pq6tui*-(Fat=?n5i9(){Xr=ItAc96Mwv&H5C+~y(
z%Ud1JdxHuDi-k~(LD@;_hg1SM_fvnkq3iRV6{9@G+uNHyof_<&rjJ_XFA*@HlSi?q
zaNIsZy>PHPT-Zv@y4MSiw=7UETS4*SC)5{FBJSNT0PIf6B&38FNYqJ6#os*Wjpp6s
zJE1;nQVl*rR>D#@8{*rvuy2OU71pVA`l9~M-|;UUh3mE)xHfR(+e3v&aaaX8t}bw<
zYC~uEE7A-X7b{fo-=wFf7pR}|y)uGOd0kd^4~hoblKZ~B(ha{fZL74dt}fQjgZPlr
zL#o-|X2dh3YQP#6n7+LqeUEVGD3nsU&ZM|b^LkU(C#ibsEgG$@)!w&6LaEhP9>7Q|
zJbg_FmNWs8hN1C=RBxjH9hIft<Xl8G*E$MOu|kpc1lrsr;cs8}Q}dxt6_9Sr!+EQE
zgf_D_L^0!}-TXL$f5qG&^?Nd7;3`njk@(OC%>s9z-DJ@~OPW!x^tVIQ+q=T1hcA|{
z4ivG^yib*(zYf4tt0Ze*uNLWfc41PO)Szf+*4W_+h<?rjNnx%t^@Tgva3%E^I6#K@
z@2&)nc$s{!^yPEPSL*)Ei(1oKZP|HXFLc%M2$H{V<8s-<A=k4+<)COTUX;k)Vh3S#
z_aDs5x0Q_x_DnoAvO7Er4QzVfE4?o0=iG?Kh0U|6Zvt_(#8QI#Q~@{IH?)%)EwaAJ
zbb^&~=erJyi1?KBX0ehhoUR_DD4nKWTX}La_xCwSG)m{5QGb#A6J801J|#@Ol!o)2
z7<E<tCyM>zC8>I@^v>U5|JpMXqDxH`leeT+N5MXm+5j-vRpL=j+&*Ha2|q`2X_OtS
zp}ciL4!mCOf_%+%P8xja^OD}Jw|1yVbywuUVNr5OHk|{!_!mUf8wbm$4*eyv^8BpP
zV#@beJtO4KAmsFBCbDeul|U~J{FoVvGFFdI?8Aqf*NQ?fc)ieHz3yAmyS)AN1tjV0
zhm`pIc-IE5fxq;1+_7T^YQfu-ulJjQaNV7`@x~COubgJz2iySenM|snIG82FbFuc!
zv~SA_oOO`aE@e_Q*Jm2WNk?7QaB5dMgqiwHiMK$MPPTTw|Kn!TaUE>N-^wDBm(uQh
z+-ziK_7dQC&z?PW2@Cx`LF>#y2_EI-go{EhjcN!NDQDm~{dyjC5#2*uM(!?Otrj6T
zZ_Tg1u5RIMO)w!jog%QGz<oesl`^(@?5DM8W1qvxpbFg->`>yv?T!OpI6YXS4*jb!
z3^4WBTdMOL(A{d`nIb&fcz6s2bE2f{^2uA)goORQ<{WkB1%q#|gLjk+B4QCimaerV
z%YI{%7v`(^q5-}d=h+Uu-+0lD+4{MQ^4IOomwxF{Y~0bX_3`*!1-c)8*ktislFnz-
z^^eECd-FTTcUz0?zcXQGl=$`MbpK0+>;F7={yWb*Y^PS1{*Z6pX!3LDy|Z;w4r{W)
zGcq&$p7)}nL}#XNq7JNN0-0%j;y3Sf{;f{FAM0>T(pAj`X!vADNoNL1WG`QB$=+6;
zWs3@1!@F-D<?dVS{FdfsMFqZZrLcTw`6(yM_tuu8Q@$0of4fLW*~T+&aAaipngQyu
zz9cJhX0p-l?cc^lweWWuvb0u9bCjUj*;y_len_`Rz~$Ec6}=7X>>fW9v0v=5?O0MJ
zTJ!0_n^Pv#h1(i3bl8gE+=!46^+yJ1;Yh5$%%KUtqW}z0oo3Xb>qC9^YjaUd<Et%s
zD@rMr-;<B#v%K6z{g>CT|H7)9WM_`;r;kwPibzS}m8eFHesMW0&_<73?UY#?d)TTU
z@)pSd&M4_8i0x-&JO%Cd_Psy<gxYrzq$Z{)!1s=(b&Qo$mxg9YE^SjbQMSpcTK68X
z83?wX|LR=R)Ra-VDB;Q0`|jh;64YWRvpQDdvWm%<&_pV=@rZo{IQKy=Y8o6wa7vSY
zQrV5;UX!qxBcu`Hte{{`eZ4oS^h$Ve+Yd^%UH_I=szll33qt-fl2jq$)v$%h>Nd)r
zK^o8qY)jG8(J3N=&pzY=S3E}2Ivko%KR>1M<(aMzH4<F&i4qa}2sy}e>;P*KG|Z+&
zM||vlYL)Up{Oy4ZP)BpxP+VM`NZ540A)ae#SW=?=@ahFQA0~60Ght=lJ^$+px$uxt
zf5E6W@>F*|{8>B+$~~ucRu46FmNaTX;C2x{pPG^)>&>`-zqjhSAjcP#u%yv%J3Ay-
zx1k+ba$cek3MFBwLC_OxTGvKi|GQPl3U{{QEjUW@<_oyJn;qV7iRMh_q%NeS+>Fy4
zL^`^f3&_e#W7FC*8&l^x939<+CclUoQVEBA58OZnk8e6%B`&W@!CEhTV90$I9hZ6B
zlU=$T<vx!Ni2s^2eN+<5_*!I|4?4_$MMsYL-``Dl#4Ug*O3Go-s=f|ik^PlJZ<^CM
zON1MQP#8N(ebv{7vi2K|JWiiJ-2-(~2|5dcAe%gq+J=Q4Y=!)kh={8j8#xtDk>@|x
zHdHS&lN7X~&t%p48$rh?<(0s*+~o2}Dn1^qF;gdBfeJ;|)F{=2hZNnn`yD)U|8~8?
zy@RGB)cj25dfJsL>SCOm8}_ElhC(>@MEtuCTV?gWy}qc7{YDDZ^8VOh4fI(E0MYt1
zua1ADjZX&t=#Tz~9VDrsyf;umWmu}{!0SJbmozAwN~L@wCL)z^c#R;3E}mrb(@(6O
zWi&{>uDO6>{#%Q0K;Jxih^pYbp}-_$HGZRocK_+f#AR4?SaUD+5o=?kwq&EbVY#q;
z>4g1U*bSZME!4N5ItF<KO|Rlf=q$2oXGcdzy?PH_cqsE%Mvy5x<75fVaNG&f_aJGo
zHkY@Slep|#VHf_7_a+R5<^n_zD!NOgD3_QG{fhiQ-UCw3K~$|gdT;~#a?!Qr7bU%7
zsVgWF1rmvo1o0(A@AQx6ckt)i=ZF-dco@dQqhy$&35{5XMs=u!uaLD#99S8Bi1MK3
zxo~`xD`&bo2G{=m^Sl;?S8>WKNLP};P-KV)D=9|Jb~vsTq^?!DJG=lsiWmHrU}1@w
z-wSr6<<7(|qq9p%`)d1K3(nId-l!MY9dcjlI>O~V=?pOH`SN_>BlGIB`uchT+<;u=
zZ@_Y3V_Idr4Kby4R0}xQV6K-hsD`#2((*&JUF_{tSMpkZAobWcj69(F7f<^8U-hir
zfAt3bo7eoS7<KgMU+smz{KXA!{VPYlcI{uc_@}OgjC$<0NN<HCElsGld{67#2!t4_
z)L-BfSg~@n)Fpz=yazjsHh)Al5?NV>b(E2&BvZ)K>^l2NFVq;EUn}BHlSv7uDVjw>
zL2Yf`^UaT_scg&+yKxLoxX7Z#zz59}2pfk`36=(WnuNQ!hxRw$pYNP^SZe9ef~Yjw
zJmcH<TxT#H--#wTWQNMAttKTzLIBiv%<Hm_u5K}!fF=VdcI*-+b+YndAt523>%M)V
zIKEIasff*wRiYS77j#wo<*6v)+QA%_&e4&Pm=pZGymfzJi=n|i>nP9}__8XfKjlsQ
zu$2P^XY&0{Ly@k|F`N?M#E7hqb)k<xFQayrBo}cxv&~|0jAzZX-9%UCqv{KtYe4EM
zFhRP7Z`=_boTjU-{pB%7+^u1r0kOsDg+lwr@bK`{eDy0je!X9QUy04gXv$#lJ{2dC
zDgIU_>cre|Lj}c`DW$W&9o{q)>MY)v%~pB63;x#{f_4iE3YwxD?;a?QeaH~&RV>@W
z3{N3JCz?N3<+Ntq=rFZBhdM4#t|8<?v68QSj(c5pTUU!d*pKHKRw_OHZSO2}zY1MK
z<4GaK_m#0av$tr;lt8ed``%s?0Vq;S&;f}yf|qval#4bexk$-_c)MPX6t3UaXLUX1
z&{bJavn{g3DNUKHKPIWX7-ZZt6w!GgUl}>CmZIR1pkAouXOODUlZloi7*Eoxu*pL^
z;HOQtOd)(K4!pOn47eP2<Kgyw9;|}{17Bc3ddhS;5@=toZf*5v)iE$AgQ}SNJ5y6r
z%@-eVMNL)J_3p<`n--MMa}GMTsXy2w7kQ=RXY__8r=>Ndv)ulr&3;5lC(KJ^GS!@6
zyqwmO^cp^45<biBfB(aI)4g0}uYdW22Wr@YI7G}#yv3oe^!{`4At4v?CEXRq`>tgu
z)8DTQp%<z*x3Cy;oQ~X7k+aBr!f{#ZhUB8!-2Jf!y)Bc={0m<_E7sroxwXx#M#>Zv
zsBioa#6%*M%uoGJmIUopr4ZlwJmqgc!yaUp_$~2_)H6T%yXE`)mOvc>y)SP5nMFQy
zt}WV?E}J`V*@Q^{Sc}$HI@WqYjCS2^A?;)ere(agQPd32$?zsl+V9@8KZI^#=cHz+
zM-wx@vue1d{<QV}#~mr(!0&7Ex`G4Q<kmDf&%bqE|I52VB>&$a(rmk2-1avu0M)tu
zcX+A)D_>;4p31qZ(|n6wb?1pg=I7%JPfAL9SXb$HqH*qWn1?!za1^v@+c<|Er$aZn
z6ZU~OX5+2h{Tp>9)`pq3sV?!JK0Pn|(L~F7)lb=hL+R>{eLSJ{N2a0rO}|TAGD5=r
z?XR^Kk)=YB+K{>3<}HYxy3CE8_R5~uh_}%*G>kL<K7Z*%MWM(#BL;+ArMAqqk2?ip
zl;))Ev&KJc(^EO$hVbX*xAow`gTANkU46>&hJO$~fAjXe&seR|f>nbIsQdAN6!`^I
zcx(~~8lG-$Zu{joo`}p6^~v`baBK@ffI$eo?17F>L0@zqKjm0YU)xrg`~HtDjy(pO
zvQ=u^+f|2uyqz#zF{CukfuPnzd5Q4UFn#vy*=bRm+TUvqmHF{kIA6I{euka;@T7rK
zvnd6>)4M-Uf>wbVasLJCFb(8i0QX<v=sy*Xc<VErbV=Vc=@VE+=2(u@{gg@1mk~7a
zHUT^nlsP;}jr39BaqHUwHFye{9qqvBaEPM)rf?FuTrY;B6qCO0(*)$6Cs#WSz4be`
zpCDnNqVK_@l`??yP&TiV%~)L=Hih`$9vCm*v*x-)Y^&%)CAhBfn(rEK2h1R7tzTp=
z<G}s=btJ_Fijz|@uk%NTgAQQs{6zODFj$H{)WXZPJ?3=d-X*=tkgQ60K)v6;VR#FC
zk%~pr5ebvEmAN@>1L_O3g>kKKN7B&?!b8d<CgJmbSN)_qIi({KOrW}$qNyq7Yr(pL
z3-#@2VP`D@*Hv9v`R)r}(EKNM4^}9tOMjfJtFHC{Xu9`&7}Q;LgtUrASM9Ntq{Yi&
z)#pnb3a43D+!YnytpWFnul>>cBu|3st>ad1FQf{sN!5!{886ng?~EBVfh~XaNKQ#X
zDxse6%Q&)`v_|KI*wkiS(q87Bpg17Hywq5zt8!iiz3k(H;aYOH?mQ^Y*lyEIMfyKF
z%^6EkVX6_t)F}`n1obX7$}_ApvbDAK2t{Qt!GM0d8NfUP<9K~DxU%cRAo>Ol#jQl{
zv8Nq~J+Kxjj>Y5S%blxuDN0LuV`gS1<Lz@gbP=7YR%q_c`C^W4vDiP0rei*T{#@K3
z+gIl20|hnl_lvWmemyx`&X)V}$A3oD0@)K`av?D($u!t>pIO?bh;Wm!u!u6zIX2@J
zDR-m?UKKv&In$^6RdsdVw-#ii@zH0m4n_f8ZlPuJXSD`H#L%LJ{(Fh`;dhezbF#oD
z+#@}%Ba7%EvHNsffgb5$oY^!)77>V)pZ8QLf$k(JT9GaP<93_j*!}VsjjC&FWfp8y
z_4M=<6%}=X_ltnXk9WAeI(5&DQF%HNJbbv!@vx+%nhYPNI#49V{UxcXsj&M9+|lne
zKfio<kFJgm$-+piQvlXKZtZJoWU!r)Z{)C1)^hpI)=g6%eaOIs1j}1$AZl2PKoz#B
zQ=9f^%p&kg&PX~i?&OFBq#3DS_;#^f`PG9kE5dTr0?|3kC|9R6nd6$^a3nmU(MYsm
zxW7EW&(A1VKw^?~ONr}I!`T2A_J^$qInVPOZ(k5mzPzfnre@qLEJ+Xg{fkk&<bhBx
zCUYo?H;!5fdVO}N>yTcNE$!Du%GxT$->h0917aIfP%2!>4zVfq#iabWUzUpQui4|s
zu@xcbHbF-vSkSm4oUSPp(X>FxH0eYHBw`!n12>cA6q;+aL&rO%Jg|g)oqy1lzu&^F
zJbZ(CwlZbgO20LfRJMHgZCKMkl|lHgMA}p!21`=(spQB3$wuIbN2oH_lH+UfvH(GT
ziRz}Nx0I?70FmP>@i{pvYa!xj`GyIddSuEiYy^|_5{aNxc>=Wbwh9`x3$3^_)d9{Z
zSl|GVJC^5ck~@xqnj*tGNmEej_s|d~;Q{vTNOVl%Wms97HgeH>D2A~X!5w-6z`Y^H
zNIJ9xFhawVm9)R@1er-Je3JApqPa`YqX$i?=JjfhE9BRN@eK_NJA(el66Uq}LPeho
z+&pNoAnFGR5AX-kCQJ_l@1rxip9~(-Trdq<QYIGOL})qC?4hv7u1}9rxSY9o{wm}B
zFEC@5G1EqQnB}$(mCM1j2Z_YNaKCV{1iW!B?QgJHXj;AEL8=cSm!3u$i%qi;9T;iW
zVpXu8sZ092U#~Wu#m4jP&4@l^wKy;D-f!LqikLj3FO&kLj)3#3pW38_XH?ZdV}dmq
zaKehIEGG4!^{I=4MzMY(g75%oaF!fist-UzS#@*sE7m66=vZCl9V&lENH@P#HvgZq
zoXF3L3^bCb(37N$Jb3{fWd4A`)YAb0K@wzO;laUQ4^vG4=Tw%`2$jtz(eB9D8Z`c2
zB1C51y2~)OMK`ZVIKFO%@jzzlMU)uiWmo4M*Z869Z6f(UItm&xg@zgv{TYJ=2~S2e
zbNB$H6)!>c#?&9VUWmW4UG;wnc3#>V)D2)ZMZ-&0t_Vjt5cCZ%iD9}bESqFw^|Iip
z`$2XWp>v)D(iqUb@F!O+p#O+TEI!^g&+RmaP|)*;J@Ct)-|w14?N|$qH9GqGr7m=b
ziJ@t<7^F#oNTJV&9WEV{|I4^tr+Pf4`_OwReeYiXminh?rz1U(aLKh{_T{h%43=8^
zu|*%%JAto%?xNo}k5FvCkKeHM$22N|OhTZfdDTj0i0B}#ObedR6vKxcI{OLHa}|t6
zAh(O^9fgXg*9^cSu?Je+B|X5bMW`&87VMF)O+P*)i`eIeKBg-HXU!7~a#1V4hl<wd
z`>05U5*q_~E}to9(d9#=hR)DJ{GEh)$b_v~JW5c4c$T@l4gCE4{UEtl@^@@$@D=_@
z=hR!@Vw4v^L?;0O0SjFWc`r$qA-YejM^hS12u+4=4*}F3O~6B%>E!({QIAR^4m;7i
zJ3@*qixr{HX7Y}&q#a)?0$lKb9n(*#lOuJ(N$@>ATSVu7i7k0kE<4=%T^&I-{b=JV
zA+Z5%qjB}U*ZK*8j~C}fAMF=x-b>_j+)tlA^@U=|Fmo`R^o^8=F{r%24xT{ONH?}5
z?6&tz^BA-s<rs+&h#*gT?=cvNlT;H)!#t_ukS?gFbst5Ep)8<BGmx-O<kS%ifK)Gg
zx>`~ILYyg#`XQ~S6{OY&k6LUIcgpsmfR%z_+kYC>agAC6%m|F7cPFC8tA(j-fPBBc
zmAMRABbgdN`d<+;QSw4U>e_}3dDZT5Xx3tl-QtG2#3n7jUO?B9e$llByX9`?3g|6#
zResDlms0-p+79%$7m*=(2Q3;8!9>(!OM)5F@hu*#g$GQp@HK0POpmtkWB&*b4d3gt
zgRk+YBHP0!gQLBBn+@^x87NM8vXVoVL{0%gaCkKIv?bLm>h-!DcKg}JhbaL)bHwP%
zu&jYV0Vp(vB_y0gqfP|^syFJw8n~4;=DjgAmz!%<Jo~ls2#$INC3k6(=oOVZP|}sZ
zq(|za%(p~Qvn|#x!qLf#qU3;NmeD0m@6nk?x*^^x-@j%$!(Z)58o<c2JHy+bKkW2c
z5Vau85nz>ox-8)fpOQg}tjC<8$T{iE#i3|VR$vyNs_vXmM3@He&j%tl()^eT4(bcu
z`df!3CgDBIbd(x=>kf5lzHM%4IfV{6f0N>43#jV)qjuU0!PIE|oIg^BcF>TlZx67x
z8?8R5N0XFH-JI%uhx)kk!s5xde|x~2&|~_eOQ{Fxf)wgEdMZ0}&b^f>MiJUmBO%C`
zbiuPW!ANXlxQ_aiWWarSeoEVC^BlcXJ!q;eBZGMkpqiP1hUu+zHmPZ8@|VU))}qo}
zZ?0v&x3Gc*d}<$t@0El6eMOMcR8T=0+V}4PV>JQKGi0=()E&5uJNsP;C9UcbV=t!1
zIrPpj8f8Cc-G>IeyX;MYYpgBz0<FVw0V@WpX?V>2p1%j6J7JVG)U^U)S_39wnA$TE
zoSHC=F%d|8zd@q^;G@-0QJR^NkAaML6p~X@``~5n@PWO(+__o!>+3&u7NZH;galty
z&kaQ|0|;T`5ZQH{(Nm~{p!YbDM|Q*XpQLTuz`#JlLsnjemoy2-<t`3g@#Q&ER#xU!
z(dWu&ef8uhY<!=HofY+|;4}p&*;5{@jQa0>LC%(@kE5=VxlS?miIy?K0x5Va+f5XZ
ztcu9XEUX_3P<J-$4TxmOjJ}|0&KGDT%!Fs3fQbf?)`8HrdFvS2YqD^-%$Enc=?AJ6
z@ZUwE=hMV|*PJ_0&&Ros5;91LjpYQJFX>^2I->I3mQ6v4f(R*Bf<%PjPAxIx(F?jX
z+rftT4xWY!=F=A)tC^i_>by)3pKx{M$~+ny8w;_yx~|IBoKkXJ)K-S%A=Z|hMA6VT
z*c|UHfRaNJ9Gp$xdSPAk4ob8$hMGXD(uYVNAEO80gz)A?w1%W)x)ZAI{jw4%WZ)H<
zel<x(dyqMV1eTzp!)ZPKe#;cz@Q4KQCL}VV6ux>xG);~pM4=LeZ6C~GI}0$wvuN>@
zxBd%?t1HE3+nBwFONZ#jJxJ(;o}&bdF8}?9dhp_;mzKZ^9;@+A+MIZ-r2s~xOz|{;
z(F)Wk`Z&cP^bDrSWt!j8)Z~j&t}x2RrO+!Rp@zkk*ai<ZNt9aXg)Dz|=mL}zXzB5I
zw2Pg*V1?S+VuL?MrjU5){gx>zLU74*m8Ld{*4FS(%^4DIF?6b!PW(Vsn4WZ`w~wlg
z&hw5Q8>|lxl&r{V#5+R8%YyEXVKQ7P`tgH^sE5@033k8^@k7yQMD$n$-H>CF1k{Gf
zp;58$SO99pNDZp7+sAH(_mDK7cnpBipTR~_vjZGQtxqm=uFHMeDLk*{Y#p_Qu>C^l
znQyxN#}1L{PBxg@k<QUxICQt-XKRp<_L9?pS{e@&cdzPs*N(lOlGb%i>|Cd*KnVv*
ze!|GlMdS>)WHKe*-XOt%VaDryUtgacR5L_YNrlkM^AjXxl=?Hzf1sRt_M$lYFWsU?
zxm{p1xh4_*STiEPBFbD~`aEP{O5`00xLF{DYLo;+@qXm^K@vI%-NFfsEul`GM5Vqq
zQ`zRx!iK8=oP;0frOGl?;I)$AmawwzZ=Z;)6-hhXh`uqnj!5a~mGqx;rZ%$Rex#Zi
zm$$k|d<8k$NhBh@xOsK(x#B}w=0GxVwa7LoBtpv1Tar8HG|A?OV!|Jk0<*400*q|(
zpr@+g`=S^>KfhBbBlX_BF}z?|s0N5!km@UFY3MQcAxm>#juMxTDZ~@K7+>}USk4zC
zGiDE0_+|n|%dF2^nEG<fR=6pM9!^P2whX7Oj7VjOZvkq0<8aBH9Gp!I%FkFA(D?ik
z=FCsJoDs}W3R_(WS`$F-xE6?dyfP*h@Wy$!YXD%yoS;C<3EBj68;?i?LUd7_M*r3k
z5JSh%P&Lxs?uE|YC{$t(K{TV4yVOR}3NWuPf&l3yQTIG*NiQE^x->p(LV_<J3QDbr
z9U1V^5ES&YN{})mCKd7_3%2%Q`w~~bu^sG#lt(rwBi8`h83?Q-Jz|i_s5oH27xOKm
zP5WErjmLd6)5*IRnGhnfG5o6}nK>#VVzK7U0PVRdv%(BIZ_IdNlJFoQg!vY~<If-b
z1xypM_iPg7m}i2y7ukhFA-Tc;F%s>5&X%jZ-Ancu*jt9Kj#tRwxG`fR`KRBR5;|Y}
zL^v7xrtpl6jKo%)3~=5SwkoxkAT?sbM6G2g%1en{h846qRi5Lx7~xn9+@JJiG;`^Y
z-jvtnu;r4xWl53?kYQDXXJcpr5SXLG(g1x#$EGUI0&}7os#b*IU7q+^7z!v`2Ot`D
ziQYkf=vAt21l8Y){XY9IrXdV|m_Rik+J)Z?*si>M#@YlE%vyGs(hG3BO-&<EMwHd;
z=>w|pW6jM?Ie?gzd}eXOHP$wB!#`=&bsC<f><_qT?<YEBED=1qY`)E5i7pcpbZ^SR
z`iLyU7vY}#Op9DVM<G&phUCDQ7Sl0Frmk7G8jJVtO@_g1;=q-_ad__^vMjt%?=3^A
z)-?`jvfr3315^mz1`AQilc6zWrlD5^?^T31iAgeS34@>{`5JHkA;$D;6z^}AfC%uE
zRLG8joHJVj!-XuzT3exWm1xfjX_rM7fOxG%>YDnP)gu7E6K!&vI0lYig1`UZ!`#*u
zL@(}01B6)q^xf&HykAm}a_7$9b;HCtP(A&a>NWB{YJjs(^zc_~buq>a&|BYJ1+#I*
zBPOL@@e-vvgtT5`x}IneVDJkd!cK5C?mY((DSI;x?^eoCE+;EW#$pja1Bro0_MBrj
z>eLz-z^bz7ZEh*7F}i|4tf|_LQ8xFV53Ag>;O>5{5Q@Sz>E0)50}|x@5u%9K<Uy~3
zKV-(jJl1pnf%)mp=Yy<)a5{vgpfYq@<lAt1$wa^@v{_L$4ATp}BX`A!o?>T_ciC`4
z)PRbdhI2YU4kwz-T<Tb?PxHvO6gNPEv2=7zKU2bTntf#*k|YzuKgUjsUfC5@rGl0%
zIo~(K1W*%QS+RB+KD~@>DkcD*wFoEYX42WgfK<2xGKGv*Wd1gh+ZCH$0A@5rai||a
z+}h*BG!5V5QJ8eab@78<09+?IVv}!>+^nB47~~*8Gsvg1)iPQK)guD3r@CCZ<wPXe
zDKiB`v=83dgiH>brgVt5;M(&ondKw<!pJZObGqGyBte5b^QbgLqGW3g9rH+rComZ5
zNuOazI4?3qMeHgg(fs$2siK7O!Vopi<S}e}ROy7=aWC&P9VJlbrBya8+(Rag9{<~q
zc;f*q1TYfHUQA0sW)yLz@}Q!UQWBuLoT{aTh1Tj@oA=v-)!hWx$S?_;Y>}ZFYL;F`
z@!POvXDO9)HHo~Lq*Yc-1{V_ACc%KL*8xoYGvuq(L{f@j5y|AQ+oTHLy@u=PD04n*
zf?O1gooW&MZPu6f;wd~tQ`r8iwxMA;8Gc8r%uZI|^LWh>jHfO}4*3jOO|W>o5la6V
z$j1=Q8#G9ege08G=wr}t6Uk{7;wq~9Laf(T+!5+}u*~IzPlw=92%REC6A=|1_X>9U
zGmxYT$R&FQhmyCtbL=a>jU}dcSN|?*>F7OHU1xguTonqAtYmt@Sl-$yapi>12kVL`
z8?AxIkhF86v)fx@VnFmFy#&Prg!lt|@RK7br>GOA4-Fm}tn}cHdEZKinhygZuSkN5
z^sR!>AY>X3rZMu9WRrkqq{JtQU-LOD>jL6IedD)jHoy4(@lAODcV+C~37-EVjh9Rj
z5{G9bnFFI`4gDoD7^ol4LCJ(_hs|{^pBhrYgs5#m?8&#5vZIkVFqgF<lS-Y^WR`#T
zZScas)1^6O&Y&kD6!!!|R#SCY=w&U!Xq74EwFzbg;Mr4{zf6wC0^qP;d3pJRRC`DV
zNgi>}l{58M#A*^Wmm3^c<VmrmAh!dLdCfWx;mYh$3SlqdHqB>2vyjnF;4Bny;K4Oy
z^$_%2yW{}4lmQ1v3|b3x##MNGwD$PJ)tz?co9KiZd{Ynk{|Go>@~a^nEGgfrEK9AU
zxhB(xw|s3Vg)!kIUVHRlWOpe7vL6iC@wox;Oh0kcq+UbjRHLeK99W-On;+v&mS^G}
z%h*LG9?`~-k+-MNaKTyxiY^gZ8Ruk<AzHD>*fA1h?yewdm%w}W&cFsd2yp?neCWqC
zMi5p6IUPw|NAp@_FUaR}@%K?z;^u<_m<%Z)Ly93|_9Fd6sv7Bjtb}g->~?VJ`7og1
zwnP%ud0XxCOfvj&a_+qS%7y)Og_^}l^(#b*WvKp`U|@}AxxWDFS20&SD<djweF})P
zCP@~u>mDM)LG}=cR0!&zejM<kwI#<jZV4Ww%LD_f#C=7gT*jX}@w9jt;@VT_BPoLB
z2%2hN>#4q8@F-tM_Cnn0HiIQ3Kz$R1%+emje-mvb*;6wM3%ONJ(qc=dBo??G*i7?!
z_2rv&P<W?w?%qMD9%7mx<sDwPk>QkNB(zrpsZo*XJa(_!Fe}fC06Z`m#<=VFgL-a*
z#}A1Tn>q=Y6#`*7H<85w+7%;mg2_2!lOU5E@4+HgE1_$>mPc&*wfq^(+@{|*##V%Y
ztE#YCdQT+j%YA+c;Lre~6qWEm)Qgd%tl^*KKD0^kHL;2xG?(#7Rf9J|De)OAQQi5Z
z;#Lksb2+dlwZmblAWrG$`4x=7O>VRR`T<0~<Dr3RY$`Tum^38o?T$wSY~V8J06jrf
zwk8s5h5dg4diNuKpKPtq>?WFXD?eZ)RwV}p*=r{Z_f@?2V}(ai>T<w@E)Q1Fcep2J
zhQ%fdIlgj^YexPv1-hyqQ~F9FM>DOxF0P5=RgSGE$%(&3v(C00Oi7xN#;lZc@#A;I
zOD)VbMx9eSL%6+rh0*+xql|gpI(m8~1OkxijX0CF1_Hzs(FqcU4HEX%i2X-4&|IS-
zqSAqNgqr6lL7=MTp~M3z6IKW*+$$U`ZZ!3klR(8<1XTYL^LH(LJ2ucb^#&1*l}$d(
zLsfya%Q5V)QrdwutLS9mft%L$i2t(YYcw<`f=FLL<p#WLA{mG*LC`Rnw?14wOA;y=
zVA7}C>FB~uT*kc|lFzTBIl7xT$mwUy%WJb^x5Azu-TrYrP0L{SwnIJZOE=w8Q2b8k
zaKbhT9lGivv0GsYiHQdcHW?iX`%dSC!3j^cXDp$Oob=Tvh7;2-mXA%zd>m)iy1HcY
zG9yz_jn?_&^wLUpcD6=};*o`kfc6EuzzHk=si~<G^sY0@b|Mu;MG`nUlk@X02hB3w
za!Pu6Jd0Rk<@AIdt*p|6Ro2mr`{p{#!oTLPy=l_dI=#Pla*{{lhOBH<)MD>4THB@P
z0s{l94bwX8%i(;_29y`7($hGxoFSDcMl)mM=UG`<`bI`;Rhix0-L0*y8la`yGA@NY
z@9*#LD98Pcet;F;{+QWjsFkE(Xk=t+WAn-;Cr~lg8~-a8?Nz1yqM@N-WNa+1p;k9#
z`{q9|1iZDQqkm-N#M07IQ*(3i`}e=t<ft++F-^|SdTS*uJj&WYbK5i5ZmA`Y@~vm!
zu>W7-;KjFrJJ*i>_AORjTmLP11#kQo7|wtHO;Y#Z$G-|_N4|}B+kN?;euLZ%hiWo^
VS!%tROsaVjVplK5oxlD2{{U~G`@aAH

literal 26027
zcmeIb2T+yS)-8(K>S+~iOsI(12&lwXB#D5wAdQHqNKUp$kSIBa)>aV&6eUPh5Roid
zG6qDlNRo_X$#D}l;f=NNoWK8DFWss>_r6zktm?wv>~HVyTWhX4#~gFa>Aef*rRg{9
z*+54}M=$f6<Rv<~wRUuLYp(ud9bRene>R36>#oX5OX4T~%$?40#g89v{HAJ2N5_1Z
z{I|-dXIz(#Za<xj<f+ScAw#W>A&R<r5@Vw+`g^-spYPw_RyuKK@BZ^a99o4(PtjN8
zTID)Ue3r^lor_au_IcsIkG_n1@}~by|C!uXGI|kDnvxF~aBO(lvigU;yYxoeS&qf+
z-hD-{YM)TmtV@B`q=T5_sJ_^sXmF9%SYwrglB#%k)q2{^l^o`?UPb%c_A`YW$zL8E
zTE$0xo{ab*m;9u=w{>ha`N?+nZ+Js+AfNL$*^8Q*%yo5j;~x+BY_}dt)+yH0k(g<*
zlwuCfu<i*z80=H=waR|Hv*@C>HVfWoK3%7r*?2I#s`%CK?;^6ZkBcvj`xKPzAh&h<
zr!kHfF)@etFfm0YCm)%ZbGle;x-T<1Ir(K*%I}(UeI>m*ma~>iEq&sQaY_ju^Yin<
z!)Y~5LkdbtJGUJ?fB(aW53|E&u1qyA<QxOye!xc_$Af;V5W@`}v7hL6cYi%m$`u(K
zYk13frp<A5*O9A|l9C~Io%gD1Yo`)x|A8y8cFpvmP7@`KJskzhi=(odn=f3g;I|nZ
z9PA3z@ov1f%(Bq2o`GR}ATCMo%`dp(mHpN+j^0wPr29_dEOSocn~(QD6{N;%=45mS
z+*-5zIjkU4v*%lMxc3u&{WFs9*D`9ns&34w5TCF1`QWx{4J&KsM(x>~s$_>=?cO%F
z+DfN=p;suCa_?Z+mqe4&va&9w_SrL%lH4k<3hC*v!&mq@I@b2TXmgsZpgk@FL*yAR
z50i|>7p=|vtZOf-QbpV6&L_*R!6$l1Vgck@9R?Frsqv|m1D`UQjZ@`@vIi6K2(w*2
z#e+!&TD47hr(5SwV>>&Ni}#h8UafbUjGz};UYJbHCwtrJ$!Ge??DXl=^-20wVGqlC
z>IWyI_?!<9)=Z>)d-3AM&|I)-_F+et<;5AZ^yS|0XQ%IG4BA%oSd5Ro+fw{QKWw+?
zaGFAGU0u<GpHFwb?(+7$yU*ce#U9U}1Imi-@8<8!ovie{7<oo2T--V0#S4!4=|RSK
zcj!I4yhV8vvwDL91&ow(8g?&H+n4tRXxgaWXOR%kXtilJ&c#JVs`{ZjY}@Shxm8oH
zJ+c;?u2nF9vzGC_3w4+=&taNa$rtCD)~@bH^4^XkSqJy*+2b+3)3|o1F}2IFovL-8
zSyV8i$uRC^T%6|?r;at|P1mD~4)~ndYSfT8Jh2DHsFT@hQ|2AR=k#@Ba0>@+`OSKk
z5EFjWme;)M2OWmKBsaQ*;gj7}GR3DuZQFK7hgh85wEHOAz`(%O=ujJv)XL*rOY;o{
z86uVBOK)!Eb!RwmM$%`WScG<gi}~!=yT!23nvpKo)2?PhFLo6VDk^LGrAzzlYfW6t
zu=*@>P<PmIG%xdAGuhG6n<tnvt`>PXNp>G#)z;Pyuj;X28WO!y=oW7#*`0*tqNg}_
z-aDA$QoPslT(EPcNMA^N)#)u_kHrdXhMSbAjkQ&YIV0I^Um~S_Dz#iGjrx-tcXEGp
z9lOQS(l31A%>9pin%QY<M%!NGO?{S~8_sA>Y%M4=$!yK29`CIT4Q{t>cWxHb($VR1
z(1Dc;x|Z=|cCX*O_jSoI4#_0hiX4{)`bB%wkGb}f6D)Hdr3F>r75=eivPzt4oMYI3
zUs>B(KwC>IY<MQ0I?`;g?8%oeJlLFR*1n)_mRF~no;PXdGMwHpacdoYQ$Lk5o#ZM;
zrRM5Y1TEl9ysln?xf?c&etIa;cXe+PPF%sY65n`vMa8-^648R!ddr_Q?!vQ;j8U*$
zCmZ;0WztPgPbc?<IpX-0`f+vDDQlagwns>L*5|~}DHqJwtt-x3UZSQ_9!l?1{qyWb
zA(N)GFV~|(J8v^;eK9DA4s+n7G@BJfRCH_R+L;e!^@TAx$%`7!PklRL@abvb5uG#9
zAF^PqonLf(yzD1?O;SejH98Bk<Kv#%3lR!br)Y_VuUn4Tjdj>9j28<v+P3A|AF=BH
z6nNa)@S>4j^qX7jGu75zAs2jLGD~ZmDLEK^Kgo4*u(2yfA^Hp~B|9x&Z;RN}g`t!(
z-XpdnEnbwI*-p={K8a=fV*&z22PNi8UN6lL3N<ZbiQKW<X$ICi2kpGv?RuZ+r%+a{
z-}{rUt}gRF9h{$%COAk>ILq@5Yq3Jx1KcuC7PGiI)w@hpOE(Wq7E3H0G1>wHX05-?
zW>g=4J$3oH%%c>FICZGznFA*$Cu?|>w0O9gVsqN{nv_2Er4#TJOw6Nr)~mVG_3C7$
zKj2qa=O%jKEUpeWrH@aP@f9B_-ur0Uc_gc^^N;oW`Y+@$SyW3g7R4&Yv9ex;4c!km
z%NK!xG2tukY49>;Y4En;5C=-Qx}2E!cwoGU&*ezQm#dzF#q)3k`E9!2v=;}IyRb*@
zne8s37Fil(B|LU;brvyd-<NsBQG~B~T|IBpYTXcc?E0l#`2OlopC05Ll=bJnw|<}9
zeoB*3Qv7I4bl4tGM!u15(Ui)TEK8ks=b4I|Q{v9^@2wj&8IuZ@9Eg?U<Ks25j_z}w
zsvau4>+XI;=Y#RY(WT0uUw;49=CG@dj?P}IPp1ZX7?PdlCU)`boukZpa3vZj>MK(x
z0t)t$c;!rKJg8S0vYY%J&qq&BKaK|xUq`>^@wC`vIe*twjl9o#7N=hZ5Nqx*nYv4P
z?vzqcP#}+Gl$5vgV91SM>zAvgS-cL0*+tX{?4;U-idgE^FOA)m(6}Hc=19388yh<`
zzA!hraSy=+{lBt@h=ru-huL%FSk1k9x7jGQ3Qrs4<L)FSCAG9f9j%&|Se&XEoYu^?
zx=wL``xUekv3BI07XSL^wiIz6@p*$B*J%HMG-=7D=a0^p3JD09ydrlHIxRN!>2z~m
zxL4!vcbQX;gv0;cEH3G>n9HLy#nm~^XBI3bbd2w_?|!&2^{qz8{)r<VWC;PMib8E2
zb+L_HY@Y0UQr0s;9ZHq2Hyh2HsZ3H!H;fcG7x>H1gRT=L2hHXgho0BPDfhvl^cjcu
zg;<`CbD*@lE)S(+?YF0CoRo&2fK8?fy>4H-ac6wy)Ek7;32g55R9D`BG8TvaXR7Tr
z=S58-(~SqJvc41>!Dy{FwOEw#to7l)`rh3*<SvWLYXt#<nu_$-nf(zo%FB{G(tCO|
zBss9EFIBd|N4V4di&?>9N<&l7@H|3@-f)#uFaKK2^P1-t=chf560<l;%Y>ZVHJrwa
zRH?ueJf#&WZ3wsVi%T;F1s&#L*mb3Vm-3;<1#DW(i*FW-cDSwS)M251;aJun!5yc~
zoH7eE!D|;@0Ux)+M~tE(DS25@v1oCooyFSPnknHcyu$sarX~QGk?g_jg%4&3%SWsS
zYKQEy24dq<*rj>ls{_TI9V8{EhMR?6oO?2n$kM(@o$)E-D{#6+b#AA&F~VxD#`WQM
zTb<{putut?stXOSi^`N)Z_$zd%g#mOS_kS|_a-*htD9+#2{)T$YSs(hV#MMIN~~^M
zt%y51wVru90|QPbZnSP-I?J+8@AsZ)@#z?xOP;H<V_zAn9S+~ovu(9juHPqQs-f)H
zYN}0bYEaV*YW45cJs6ark(E+I6~h{&P<&h$x^ABCVlvA;V&uatno;-pN6iF8Jyqcu
zJn#E~x;RmRwhE#4ko1BHza+`3FfpMlIZaK?5SRIHja?GUb5)_S&%~P4d}g907O%%y
z+p@UKe*J>o&B^t*ohPTx&(Du(xW*#uR$HE9v9$QaLobTi+}ih@MV<{*-{=F`opvT!
z-quN4c^mfW2b*M+G%=}Z@5b{UVqRr-&}qIVys~MF#KMiZ2DQYpoY8zL;s*c{69Yq)
z#IjSoN^*qavbt#&yAflymfn%{=sOb=6a5WI+LYI+r}St@??HMMLOU&%M0oOgkVxXs
zr`<MU{z5L;KfOx0>;CzMI^*eqy79s_Ti%nvLLJW3HcqV&yr`hC4V#?cqUAEzV;o$W
z_y-jb``WO)Q|GqfwvqPb#r9On3sZk(?okb&%pS+(Tfn87^iAr9RpTud{)33DIVGwe
zMnj}ppD;bJE*fvj^|zKZo+u0QiiwFSY0?ziwwJgFVLa(j!Sa%7j_ye&26KG9^!w~5
zZq24SCX$kSoyOiY4!U9?QYZk5VXgO#K0f%FDVKYpwYF`yE04a^PMv#qT5a3K_Stp(
z@iHmN$K6^eZ2p5#KEnZN@B3PL4g}J5-si7$|5g)icH_e}assocyg5Ukzhwj9YgkqY
zRHy1!33op@-H90CvzuS<{mr!-uT}&JRDb#MWgt3=zV&iao?09Cpxc_w?f`S-Te7pW
z30w;b3L1*m{n#?0=V;km{_Qe7^Z29i1vVQv45cb&xZ`o4)Nh(`UqhSt2eW!C*mw$F
z_Zw=O=bn*_3*KVG;bb~jBsZDDf^{hDJzd!Rqv*(Moy*F~Sb?7s?LTP1Wo2~#S~hJZ
zG5cnVUNcU2o@$Q0bDg{Uw)4Wz$_7n+E+wuyp;sQL0$6Y^?1ac>ctxc*&7Y%WyNF5N
z-zRo_o-)i-Fjrw#-@Fuh%JPW+53f6JZtRp;o|F(}uD7|&8{kO*^mvef(bc+G#bm>}
zSOWtC_d9p)sHE!2QEHA}tL(98v>EL!FDorARSKAvmJG2dJ<Kll;&}F`ZEAg@u+{;!
zq|hAW#*~}I_LCJtsW!_?i=v9#@Jtt+R=1r$#K-3YG<(!>VJNi<_6w{Pc-x|@*r!S>
zDK^&Q^kxw@R<)#e%@gb7Se9ptbJBV**Vfj)|MSOfodC7>fD!^lZB1M7=;i>T2pdw!
zM6~lyc*8TkhVM}`p;q2V?D1;eK+=Q{h{l0pZSa_#FhEZN^pxUN806&S00aOV^d%gJ
zlBJ_5jq$ZY&0O!L7&U7LWIf&8t6V6l^=7SZS6PxO)G8yiUR^o$rYlXOEOX9~q;Xd!
zf9@E5?!RgjK%S9-K_U8lMHrKS;pMm`X=dxolJV;Pzkhvu8()#qvzImEn$cs^O1M^?
zj>132@5wu{61Zyz%kBbrD$`nC=#ywSymJ-qFK))1GSnE_v`jD5@*o|K_Y3i%P77Tu
zK7eG>&d$z{0|Js5KUaiH6ev)Qm5^uV3}>iQ?CRrH6K-}>mWbPziqTgfVZD96J~O4b
zLWtAI*!Vs|l-0nQYpsgOJ`H*}3*}AAGp@_ZW5N~M8dC2aWX<qYbWsQKR6Z_Kk*d@e
z!KNPW?gY><B%A(t7yc@9pxvUiO#<oh_)NjFSk90u+-pL81^1n+@t!$ZG1$DxN>RQ$
zTUf%xW)PV&2KXJO`s1B}cB~CudCUTBm*)D+ER=>}ji~~Do?mf(3{w3oDpGXI)Drj?
zyI7WmU&x2=BQ`H7xzNMsdJmtMbh*c*-orju&}jEq{^Y2%Bae1|ZryyI9w812d!-AT
zWe`=WOg#kkD?{wQMFm{_aDO*LHN_zt0NL3lGD3TKzTpV)^H4eolu|J<bL(^&9wuyT
zVIGEiQ>BImJawg{hF3Hpi?Ce)wCAyt;L%?%l$4cwL|MyT_YKvsOy*$d<8-*#1tp=p
zCXH^3tX&8t#OPRAH;WFvg4g6H)WM7Mp+O0ePCb6gAJ%L+aiR2*kZjQjtzdd4L2e_&
z+w`Y=jtEnJ=`*;sm$9(}R+?Dzljc9#iN?gob0g-x9vW}d4-ZXmR+G=n%{{?!F7PJ?
z1|)mx8m^1ejYd5B5;h+I{KM135pg2!&zY*^IaoUls<#_93^fqU>9RPet?#4Wc7c=i
zYX7Ha39CDBBfs=k1S?<A<SCwOta8by&L^<liQ3%GYaqdt(xBz28!*PFmUifa7gNJX
z@QaF2QK9_#x}=@yVHp}0CG3quoe7z3$6e;iwDtHy?{3<?RjA#`vfj4kwRwVRi<CLc
zN!=t}k>r=G^{pXE4|GqfRqm3Ye9;kA+=A!(B=AG7)Gx?Q<6A9kIzK%--8|HuYfADF
z_160Xr&;DNTpYM=f1LuGTC@WeSJTwX6UiBSyD^gFqDTOWZ*39ZWtKmumthLL<kM3Y
zP)xA=msh_hTYdZN?*1|%!3*hY+Mek6`1rb}4`#XJXN<9E<9Vabd|LKBeoCXo2;DlB
zAtFa~OCMwFS{w%76Wpvy{VdDpWmzRAq~$oA{;|gbrtaLxsAc!_d6AyS1T&krKX6^*
zCFntLBL!LZ{Z(t$y?=jiTbG}*R*C<ty9#4>MX(SbFi_$yQ5)k;`%Va}AAcTqVy^p<
zIjmjZhXsIBDfQz4R&SBsK;tu1xYhV#>SmaQ`f(u06bitosD^UcbTkqsc^f-Ntk~1R
zAMHG!>OO56I>0jbTgLX&>PdMuUy^k^ZRRH7@<WFmk;jm1?PX%3w}*!Z`GM4){!Ue}
zXUU_3#dvF^>+;e?Ma3ORu`X(9?IX0qn$5yb>!P|8UYxr=nTLQB+672#LJ<aiuuOGb
z=Ck?o`(5%$DJdz3xVSt4?!F+|>3SLI?E$3Wm}f2y*Y$p%<IqE~{Dp}!9rztjd^ve9
zzI^u6UGc{Wq4QZ)&WUwi)gHf(b-W>Tj(+h+5`5t5y_s#k{A_4wn9?2vMg=*>cKCdf
zUA%fJkfw_#O89k{D=GJ=4bmM!D%p_acbi2eCEsIzW)jP}&&woxH~6bnW`_!!U%fk^
z`ufK2G#}w^J$P%&Ug1}#SICIXtIQatMp{L49$rrMN{DVQa9t({D6Y@@_`u7EIt6ug
zCM<#K=o}IrFE1~|^w+ADVev6B_W)p)EA)iT&W^U_b&<VB(rR_f`GYqz6JNoCMcnjn
zqOlPXtS&P-?dcorg}QxZdGFoZcF?9oEs6yhj}A$pT^43-%q$0DqCb>B;rG;%eV@I%
z4v^kX@X`E()0?lSOO}Y%)z+o~ArfpsNGDlCS;ZrGuyvbuJy<*DBe68=V5Devu55Qv
z`{IbL=OuE4NZe$#@1w8Vd}6H7i-Pxbsf)F_E-!kjRXw}AZx69}4To=0$>0p6+w+}0
zkGm*0f*<LGukg9Ok?{kf$xnoQA%_%kC^A1^9Bz7_ez>#E38YQQH@?2LNl?$ldcO}}
znu@lA>2@`@FWC^hkb(4s#B73C$G*Pns#TEp0xKdw*uIzX@fv3LNoLAlbz<9=6Jsa$
zT9zL<a-*Y=T#@fg{qWkntMjhJ!tdqb5)%0U&DV^oY;MosWR3^7FL3l$g|iTzG}1@>
zc(9xX_J*)*$dGtA<iqxs`SW-p%@ka>WnT+>x`s`oZlm04D&WhbgYs?Nqxp-J=3>GF
z6nA~_^2B4>$T-Jvei(21Ok#ezE2xgNxI0eb;U*1Wa(Go8NZ>x?o#OO!rqcTTy9pj7
z@Ym4DNax$<D8Sp)>LrruI88;ec)7bHUr*0|$cAfP*&n&Z_%t{N+4%w1h-c4!HqD!^
zm!n9G=1zhrATj-$ylb|s5h25lOA~$<T#;5|Q$1)0(_?~yrmse~$)8}5KQRt+x8=q=
z`e2RKgkC<xvx=|Ku}~gx_T|f$?nR!A#qur_j|8dRlXJp7j}=(2wjS>cR+A;L_>h><
zcc#2_la`$i*`Y|dyBZ0kBMwQmq&o0Q1Y9kC{)J5c%QfT|ZjwLR(Fpmi>>Y$?q5JKz
z8_A~V_Fr7BMSlJrZ&38lcB|!9OM6+%ZpE}?$Byb~`EYl40v-`CbKmcH=mATT*6qpm
zNx~C@w&63Edj2#qkryPx0aoycJHUxt==AvQ56d05EfOPss#M$_fnZ1|QFnI(KpEXK
zf4|qPm%eI9{TvdPeZIhDaYI}EroZh0{uiv#|M(S`bz?U6Zvg4(jwFdM3}n9w0B7!~
z^Qb4`Xf}(_c6>n!FRQta?9$1LR&j1Zs8|eVw(k>av(t&|>jO)b+2&w`$d+JU%xo*E
ztD8BWPWIYu=B25h)p_Is9CAV1k$=)?t25qvcc-VPCxd?_bXE&|Y!oj8`S7O(*>Z(B
z2GtRSp^}u;aGtKKh7TP|2a~hw=(XQMtm{>yIEh!Hd)l8}Ay-dMDg%S`KKpBNH)zK6
zG-qJvDl<fCyv7EAgqz>0OwI<~*hv3Q*<;-58Qg%Y+ZY%K9nhGnU)){ts0+Bq3(3^3
z<5mWH5sH%G1pHp3{6*>jhs*jV=Pof;t0v`6oON274EJ$aoG$`<w@m^yi>4vl?uXJJ
zXiRLfX~81p_546wvr_^>VB_(E?b3kN^&{)<vW{*oroU|{ZnIa&>d&gZ8@|4Nb^)gK
zR)6#D8!Z<O^~EMuPmErZw)Whe8>gJ)?e5Ml>;Il$Vc~_bceF6LPt1XE0A02PRLyfC
z!be6>I3V}CiAm5nQin%9Bfg>mMl3q5mulXoPQKtLZ>9}BUuZwb*LgFqyck>|o%s(t
zF7TGDtO&m^FGh9(FIQ^C0m-0X^?^{r^Mgq~gNZr3iP;0O^xld{z7fO?C)0T{TRvxQ
zlj>zUO?!g;>o0y1w><P`*PUNQlrR1xTx9!O^BNIYfJTh$(?3n~=XxW2=EB0?G$W^t
z7Xu0tq!Oo|Sg<r7$gh7M-suczl;A}$Ch|puH=!Rfs*aEf<?=s=%nIP-AS)}`tg-+;
za!w;`N82u{W{q?imH4tR9r-l}H54giC6bbai$o>ktOmp38;KFLmCf?_71>I$lDf$b
z1_s1hrd-w?Z6#S7He}k3cSiU$CTSPk%;e#_%FJG4@xf&B-f(Ep^0Vy>jr5IV+vzUV
z^Q>+|M!ie;#ucP^C;?Q6gQ+yEBk3{Se(P4&4lj3M5U~eXNoII`avHfh@Is~NXo%)b
z@*cVeDW==TT!wU5Jjvea_=xR%#3AQFfHG@+!l`4(3SQHkx>~CnJ$e6r-BvwLBQRVf
z*q8&1en1r62`t&{;OvdCOX@bV7nsRgPmWs$y9u#g1u5mFz0k>M4#x1qD8PXooPUIT
zxcCvL*|A*`E>6INuWQ+9j(NLW<_5b1tfUO{_Rk-W{QmaOO98ZBe2U7h*t1d*9ToWd
zT=D<tX8sM{{y$$qjN$KyoBy7boWC#g8Fo$60^mmf&Ora~x#9o0o1}q_+WLC`>_1H-
zb8~YQn;m5x(@)qS&p4~{<6&?ThN<*SH4~FBA|l>qdDs})58>Ts06Kmbcpi~5p}j0-
znHZ4=CMzXlS-F~l$A`I(vp=w6I8~{z`IMN$)FJC1TQBMAM$P!&6gE91DJSQ}x4!?C
zhsOqZ+UNQC`L*m1_V;ma02X-`68BU`FtbW+mDzfp{|ES^&#$qQPirVxuPF+^hkADq
zMIr#pXFx}*@o7CYWOGQ;-rn9gy-taN0a?l}pkXd};J5If4Ljzpte~FnPUCNtQT#7Z
zYW(LbVCH{|=H)*t`9HOiFH0{me)0o_>H7X~bjVhe>OoO52(?-%#K_Vj@u477rm^11
zxz|YVNu3yHueSDbrw6_T+LgFw-s)d;KHR4z$dHooSs$kTLNh{rT`reWygOIoYgQt+
z5uWY11)&c4<;j44@WeZmH5dT2%;&#F6F?eMM$5zcx3=<jIO8=PXavUnlAPF)jsEMp
zZ%RU{M&RB@U6-jxjK91h>Y!6Pxj-!A;H}c<)J#lFhBBH>Lk~aPiL72dJuWUzR)zlX
zbrJpop!Glf9{84)x`s}mK<?E0i5FluwkInVJSFNJKgRux+-yfelendUkAGimO3Kk<
z`r%%UwYQsF#Eo(k3#p`V0YKM@+<?apni#$JTU=+~32HanG@EpRz~;0w7L3Pb4wNC)
zfup}Y00Jdo5aqC#vi(Q!WrirBb6fw&_7ONxSoz|i?~XO2nY$Y79^d=g7=^BK{wh+G
z@yjMTE}a{11CQRApr9aO?RTBNv*{jTtqtQfZCeGFx+In&D;n@^yFupLM1SbhCSKdx
zH#jJW6ld5I-ASF`T0q2{sEnhcl9HaRL%eD#2LR+>Flhu907|a<L``*Mn5W7t6;ba%
zO*a7fWc7qb-KS4i?yc*0OPrn2)K6^rwsX}e@b*?hM9A`HJ+Iqy^!67p5?7N@RPGq`
z+{rUgJG&qYpd7b+ED41~lHHPuHw!C(>ckcX;@%S#3!DFYLd#R7hz!FfF+vl&78-Zx
zw=&B*K>pCUr)#o1Qz>FBV@q>YuE;<@s#xYVpwJI^t&+@2DjX=d67mhT1J{NDT2j@&
z0YKO!Bc{wm)0^fEtPbLZyiN};!CA-&@^<QnS}WByG!*l>&Xw6FbJ7+%QBiAPb++1M
zP;RJZFfD7lVp%i1W+jIn`KK7~rD^iI(GQ#U96Lk^&PxF_o4sH~qu&4Hzy7}+bU9^{
zYeX!2-=h}FO!&be)QOKE|3jIQOKQbym2f%~=Agbe+kH@CHv<D<c{M<nCuoHu^$)r6
z_Q!;<L8Rv=padaQ?Dm|MLuwk=FMI49<O3)f?<B&VhX<rH98BKaTswF>hk*f^qEFsT
zn<zPBLl(r^=&}<c*5{J)N<AsWspX;EvdGQK%A4IEp^{@`LI{B~_jfTcFpwK<0k2ua
zOH+_OZN?pnqLLb)S0UJ(<}gf1Q;-C+1Ih(^2(^TymV3&}{WT<E9^bufrs9;_OizGz
zWs`t_fT|;ep2;9Hgugw16p_22oztotpqWA;eC^c$+VS~hvO}!H1SQVNxq`)EGX@6p
zk3Zi{bI8xg5Hu=)K<B^R3W&}4Jd2*v_(dW~Vr3;t9;L;}Ij8y&EL8G$r=H=lZ_Im-
z0H+ZI0-{Fk;7J)6h}24HF@RguH(i2~?6c#))^gP-N}DMZ5{~es_XvRx?zjs}WPDjk
zDPy4hM5+*LXHEE$)xSQUQ>ZmchZLR&DWrpiABP`(PYOeMl=LKLlf0$&xk_8mhibXf
zd(9>Pb)AR!txUN8FcgpMmZ9`X3Vj?<>?PFpx@|s(U$5Mq(4nlXF3{bjWq;j6+d3xY
zsol8@gQjVM5J3eBnQ6tVrE?<Y<OsfNMv1_#|Jhw|pi}+Tniq*?neJp}9s4RXNlC;w
z_zi<dXE05TiaE6H?5B9-OVSpdZqz%Xs$;RzHh&u`u@HWO5Kbz~p!pZOBrb<S+}vV2
zLA?yaTZ}d~5_*%aBd>BREla1n*TlWLt+z1;0hK+Gu)1{nnc274EhDU78zyxm_V|@o
zc|z50%|r!gc{qu;4`lTQM@dPR2MKVMmNi#Cu*}ln)_DC3Z&tVOP!@?ZFILQZ=JENp
zxv0+?W#s;<E{;08jX^F1lX3h#<csKXqaQonyW?(sYK(;CFQ}u)YOXx_(c=QQW}q!q
zHM@5Q8Vi1!-#!63(8Y@vt9vt0ib*cosV)hAUI&qJ=p4~?Ks_lFsul4y6fru*%@&o8
zp>iVerlT{Kj9%TA0ZWMfa(aa$xPwEqX5FSkln1mor2U@yx@2XOn8_wpAktlh0?-^E
z^1eo1f*C@wc?Y3uMrEk5e^F$oEv^-p=GL)Fm?hCI*)2{t<XnZk9DgD<u5JUbT2!#u
zTu_8yl-frM1n=%{@gW~ON<%UoVsZVeMp6Ary<rQ6>3;D(NACHVQSG5t+DGK}?O5b6
zA}nNm*il`N?_{9ocCn67F-M#FHqb8~Vkc;CUA{c!X8Y;sDb<{ah=?!mR>(nlsV#N~
z&jmh6Z--T1-9n=n3ng$mi4-lBLMp05UujP<8;zy7wSJ2?(Iw-=0zehNy}i*hj~4&v
zSR+!ttjUM?aQy2QS7F}VvA46mLIt~te27#@%sc*Ae+Ckpi1>Kp$mT7(etG)k`{Kyr
z4oHC$TvcNi6c56v&^6^bBU`kQq1|`urRo3!+TS`_FJjF}xghy2&DNgM<6>#=y{bb$
z)9%sW7W>NP{9kkJWVxclT^t~%+mX9i<+?P<s-)nQ=QzWQr1K1+EfZs7C)z%n!qutf
zC?{#L$N%~GalrDRXa!Hk7gholRp?{>i*2injgPlVjA%t7dLy`5-=um?8#FTF5Daf@
zbFtiF*8q<^ur=EY6~3WAeXIKNGSk${T-}9D4Uzz*h9oL+7DMNc`p#@d4yp(_tn;ak
z*WX@0k{8daWxw!igQl%!jO=e`abuU25~)dfmOGdUW~!~-KIfGGe#fcfKrb0{sku*0
zJXNG6B{wl2w~8#d27om;*;fp4Yf2ySm#8uF+8ov-M1K_Tvu0BHfQh-Q%rL$~?oNOk
zixZb};?xRy;uSSjO44G6G!X!AJ7DBXR1fsEIYpFD70<>G2SVU9L~fybF|t)HEDqX^
zuNrHaKkW!l56!ZOhPmSI8xvg!wN6yeL~90Rpni*0ja=y2SlUjt8J)Fxlul~grl@HO
z_dmVW2??$uG~I2PQnbxxzL4T31aEo@BAI3I)-$cP+AW|0qqu2)ZU13*deC~}V}ES9
zHjEX|x4KQcjO|7DDzh@Ez#v-Mszf`)5Bz=C=kknRHKkvHS`;q(!e)!sRs_tPKmBM|
zJ&&@e(L4@ScY0hE5nH^52m<<o%8y}YD}L}w7vf7jSPV!!?`Afmh}Q`r7PpNE?ebQo
zk^lozeKT{VHWS?g{%%ixRk*A_dcLbWc3@%LH8v;p!R;Tm?NoKS_M7BSZ};r<a{K7}
z$CHyMrGC=h<PqU^sAK;R+s$|F+z}!9lO#L;TQ+VFH||@%x}D_My7iYUUnJk|+5f}V
zUj?&kG?&*eC~!PT5N(ZVDWxv<+tg(#wvQaQt{R5kfzj=)!OZU50+eZMT3T}73PSYU
zc;y!TXAr-}Sn6-c035%A%E>0Nj>Sw@Y9__yH`;UfzX>AU59ojSUaLCv(ndStcl**F
zi=Dh0fo$KJ(v8kWeGYOkByVyHs(r?9hbl;LTw*pSk;EW%`JAAhX*F2S13q{6F@p<<
z(Az@SFUqV++lrGF1Fzg>dV|d>p==FIavnB%0@$ObrskjRI?-Js0>SBL)D4O9f?1Ik
zfN;eF_C17CClw0WR-3Um>-8aDmWjDss=YK3(1LpT_3PJVurJ;a2(y(y3_a(4Xa&k}
zq&pUhLZY(Q{5^wTI8pX24CzbALP_m!DCD}dus|(Xc1(QT>A_Y)<g7oRzVjSh`>^I#
z@^~lZ3}@K)Kz1DpZ5CSzL=={2TXEgrBIj$`n%zT0*SZu_OH0c{Bqo&a;7JePNJSvc
zPjMbEVvN4bneb{6`lic``QKgyH+=^nL3JZEm(JA;5l7wGW;4X7vKCrK;I_kP#*H+)
zq-bhu7fh@kSi1NYUbgwKR~Cy?l1nLwQp!y(5H9%*|FLF$hV6<a3dFUpX~T0|&TyTM
z(@scR^kr01x6mffL#Gsv-;spGZ<riQqNufK79T5IBLd|_Ko%eEO<eW3H&hS&6y(Ly
zCniag1F4l}eZ9j3*59Wa>r_Fkoamezp$Fp{K7V5Ty)lZj!{5PRg<-$@`bEHk5R}Ox
zQx@LhoCV{ZwpqgxGg(zVNTY|{X+<VFL#3Rm4mn?-OCkZZM~pZM$kvlVoh_CKBUL$}
zmK&${>^aV6M6-pLs?0&LDAtCTL!A;xWTyzdPawR9eF`=iL>gx_>V2z@l$I73BhPYD
zPW?cQp5s*iL-?7dJvp@J8-97(e<hkc?Xv#3sSTRp%NY%*t=kyU0$HI%8g)|}G)U~N
z+19d|rmYqL@rh}RsC21ZUq%X@_Scn$?lUT7k-)#GVIN3|N-1(e5Jj$_mfComEq1`(
zlv2uhw7z_%06d=7r9yIKFuH=#@%-y^iN0EwL>exWc3|sL3Nh=y+LI_ypz8^{)>4-I
z%bYxxf7whg!KRlfiz7LsiD}M|DeC6XtapV0sW6<OVVihk350SklVxDEyp%;K;Ue-@
zF!M{*;eBKKpqBL;#tAix8s>v4v6KRFL(^ZM;O=JTphV3a4jC87mwF+dlg-l5(rYGn
zi8d1>U$)TW)}?*oGg*JV=VrJ8)V#7MCeg$YLbRd8jXwg=?n8S;3A!axP^j;PSS2Zq
zX!z>2T^Ij#y@1vGTl;X@=TPDgQaCTdE_3wy=jTq)7HF7KSr+@HMdte>MI*M84Rym|
z;<sa@)@SDXkz7JHp@ix})E@+J6OHg+{K)QHPx@WI>@R@!JO%0t(h6XYBdx$2kXphK
ze9e<5<7Ipu%?eHqS{oGRs33UPpbk4V+U_cMf>wblJpSz6KkY~7I~l*>d+L7S!uKlD
z&F>9%+rQU-o<9BFdG{~3`p=fUQ~&vhL;u#bps(Y7npY0&4gFCGO5T%1y^q@JH}FsE
zHt!9DtGot`nqYHp#XH1utZqXF-;E}}xx!(R8bgW{Od1-2KdK<bQ9!fR?F}>x)1)o;
zLvGZi!vMvV(76ULEmEU#0AoN1A{wFc|CqEiL26Tu7LowSZL*tsXi+fDGf3rDCYtC(
zfH6|w=b+XQk4Z|BkGXs{fLD|FKqm;E<a~*4<+`b9qDA`3-9_T={2I}d<jdA$Ap$AP
zdB3<7;L9>7S=jvf^QFcSD8F`at-L6K7pagAvC9Y|A&y6upqNN=q)(k|-%HgiJqIht
zsO@C#+YMb%@7ZS3(>1p^>RM1vg=2jLCM;ERP(8r!Y*eWY>HEVO<y1QT5WJRhh9elr
zqO*s5*{O2ml)xF|R~L818F1<BNDI|58RQmGs%vPVQj<&XD}J&uYEI60v8K)6-(Ta#
zo3&5S%6A8D1>K5zQPgwc;$o1cY4<v#fiULe(_5f4=bArr%+s4xf4Wffj)nQXij?{{
zp-;!#_)YZVBNC>V3_{a~#S~JPzxtQ;5cMqtf6}yN>*3Olq2&!$4@jq89q%8Ud&C^9
z(q-vh1_f=hE9<cU>G6=X*AV9AJo;Xu@-tFcPv6~KL4@7qRA>qK;cqG2)}a~Q4R?W(
zkD}3vQ(5w2JW@Nqq-_;2rXGu|(j6Cn(9E$(h<_(;)|QKszET#e2T{~OF>v;3e1tW5
z>ZQI2o~ht^Lg@4an|$Cj2=x~3HGcJGok?3}@9MUquOn#g2tRdeoi0?pF>&hCMkUij
zjh45Ks>(w|QpHNUoe|lBf`j8U*R4(Nz9(&InYxWZNk&#yR=4@c-HcCW2K2Pm<}rEJ
z9={KNt!%O>SDo%orSsopOX7P7lq|A5duS2if~=w5I<qW|O7;K^U-PaHx=1I>(H3~1
zWi7ETLp8bb4$Y%2%&7cVip^+z<t49Pm^8e)ZWIzhas|5#X<+OHOEP59?7dgysJd}-
zQ4lAMA9(t%R<bbXxt}IoQN&kr<;jGX_uOouMXy5iRU1A^UZbmj3CmxhJ~i1^<WT?K
z^Zy@@{GaGVck+K@nDrKHNcb-;z~5o)FYg#KUN}ZizjSRlDshA*obT~jc2{*J)tJk%
z#zM!AJ=fq>PTu1YfjW7Lrm}Kh;5*JEO4UkmKBC2HO}`eXiV;7QJ{*{8qo_a!;v>=K
zM*;Mgo?psHlL12$tGRk@?Mf1t(4>3emk*pxr7CL^x>RJ<`-S3)@z>N0X3HOP6Q;m@
zW>R&+z*!G31#T}!we8~Y)(z3<-STS;1g$zQ!yortHh`C8jlS2wm|izFj<=B7ehTF(
zl$4&ZsiqlRBr^FPk3$>ayfmd3s-%W%%+#t>)|xah6o=H!J(VhKJ`08fetb`)e0rPj
z!F~9@^O7p;vM#q@WMwrv`Y5J!f8NK#!!u7GSB~rYX!n_*AAd7Lz1drYH-#4P{sYbE
z=>Fpf{<k^;$cg{0NcV4ybcQc&Rt=kgTF3%vF#)1OBvr4X6m7K@g{#(I3wNf-Kz*2A
zMq`i-gamesiDTS?2(ru?AkZw6f!dfSXlW<Jo`&7m+t7Ifk<$2D0||jt$#<foxsSfS
zyBi%9#SSE)Z~2a1sM}xNw1mt%fX1{3s?-Y1Mu^qqAdul?PRtXx88oBHfodVW+C=TX
zLPT8>Y`peJ!>U>e*trS?oug0*7zWS^1D|*eSvz<F%ChEqgCDV>AoG6x$Y_0nI?)NR
zm4McMb%rJ#r|Ul?z(6DC(b#F~dkuI+TQ3+y(E*u>Pp7veBxjR*pgVp^PUG4zWZ&m}
zNoOrMwKC&LLUhYapj4kQmJCsSIC}nhCi6jN0KZCdRH{ja8|Gb#x!jnDgdj^J@v6Y~
zBHz*UOEKMf#hj`Wc9HF$h*xI*?_OD9+p5tJ5li2N1MfBc(MHcF^ZCn{z~0{8o^@}~
z12k#D_aOtj(o4E?D-3_X&NBb$Zmj07&rE<S;U!lOfU3>59n~5>dMNOG=y4If8jk<d
zFEImO;7h!7nMvxkr$`-ATHG=T+od@S_UlT**M&gfOE-a%BX`qfkmu0Tk1p=<Z1}3_
zk9#Slc)YlX<mdw^zE4L-2Wz6`+0W@slSIL&0UuRs^aIyt)Zgct(q`D=Vo{Hu_^O5N
z1JM_&!65ajTLlt;RFnt_u13zVQD=wA?*R7q71M4f$97r4f-0!>$Y@ZqXDdNHJ)=bs
zZ1QgtZL5r>Qf)~q*AN7yWqGcUaG1pV&cr1pB{|VwgNW8IO7M!V!_0`L$h}a0eed)L
z752e|Of6m2J79XQp+8VD(VbPrA|7J3qe>(<!8dwjpg<evq-clh?NQ~A!#(15c<w7Q
zN1L_ho3z;ut1-OxA~_M8eV3Pzzv#xP=>~0iUm_GUil+f(H}A{aR+*uTg``4kB@poj
zH0pJ}zbE5M=FWK4(J=O>hr}xV&hCbQ*|!_*%?pK#c&?Aol!vj+p(331SF7YG!E~HU
zoPHK)&e1IoJc96fZlWzHi*%6e<WYM}@`gupf-x3RG#ed`<ls&5&$WG)zPwPiTuyr0
zP+_}<3uRjidi>RU$vhap*p*Z3DzI&gqXgqP_zi1c5@P-dCK!;8^-Um1Fcsknf_ni;
z^l~K0hr8J*D6BH`CDLTloj6&S<dWXB^0ihkgH-<s=@0z>4AK)vC#AsYhXYh`D4<Lg
z`hVZ&Ko#x&iWIPF7()~@k(&Q5*1*)%ru<nQ%y){Z30ZTsic}orh98gIRho3&VbZhA
z*>tre*%0P4U!nFZAPZXSV*snVFoU8T^Ctq?2vtgk4G@DzUaI{O$@L?)-H<A0TYb9(
z0CW>WY<f^?m-lr-mADFQGqJ)k3>3PCW@{N=((%1p#NwJCSHvOG)&|mbn+!?HqSP}@
ziA}!-7iWQ1Ob(fR@LPK5)FZDFVKiwsWS1c=UJGb?O#%Wd3do;|I)RQR8DBzepd?9N
zebZkZ$u(C2l4J5omD7vT9S>C^Xhg!(SO4$%t0+`p6KxpcgLiVPJRrqNnUpu{n6BXr
zCXz2kJ<=Zskxd4Irp(&9xp)u1U^Lrmp+v}5LTG1nO}!$y^+rbC^2di2eA$psmkKr;
zD`1U03YMmmo}eD?dku9=IDOh(`|8w5EY?WqMtTXxlBYmoA56+0GQK#Y5~PKltQlz&
z#mVH5A?2`R$Btb_y54~iFcqW~n(Z69)dbt@y0AU0-))$?rj2&2{%>HDEZgVb^{T=`
z$=o9p62l2`Ks!HsZ=A$Hop3>InQRSSeFV}uG<Nxel@uoZzX2%C>Gy@&l9@cIpB+#h
z^Ci3}h|+S1r#{2yZQ3jR3zS%@U+eT(&{BUNBDC8+u9%b36Unk@5bTnq*3jns#z;nb
zul5xEPW8~_JJt;Y_vOZ1NSsD1N`OUH2*mf@K}LySL*j3PMIb!y0{GNYVt9yDWVuSA
zC<_9WE=;5uahj}(pS1dpK$Gy1*|y~&xm)sgQm8>2bRQarKb~PSsr{p1Rr=GcED?F}
zxoaHfLjuVj!~e^JAVOU_oTyO9G>_x9Be~_yp$h3<ZULLeK|=LFE^!XbMNbBj4Lx}H
zEC@&}zTRehfgqIN(t_5n9#o2`g~PJqRVk=$97OY6`Fc}VINYN)Ltn^*Cc@dEM4n%M
z<D~{~bXJ!A?W&8s0m_#avt#n8HyeDtkLUL@ao5+=*27!w)pM)^;fqP4;Tvyde6<y7
zwa5IG!Ur&fXy{UA0c2hFb3Fl;&<1o5YA-vGz8Ox%-_qkp?9YKIA*}_db{D7)Py)1F
zL>jbRok<f1@t4;Pema=!M0&dM#MD2Uqp^#J6<%~>ghwUB5A%O)*%+db9%{=rJc4OZ
zB{)<7N4})PU8K|f03cC7E{f$@7y~eYK25#%?hL!do$TURa?mD72u0HKi9QHH2n#ew
zHQjGSnbVI@TtirdZ|w!Hh;gBqfB@!6@AGq+EX)DoH}8C}fwoz~jt5YM$)Felca$3P
z5(nJ#JJK~Wt-Hr{k2v4T@D_;AX)-dt*_~(hn23td09XcaqcLouBI~uAp98C7oNYbm
zPs&8(0HLmT6lJs)9NH}0wI!OZ^~eYzj$q?U!xpNylx9x!BAS(>11}gQd@`GWv_gJP
zH)=pr+98-n75=yWk2(b|L2#N*Xqc`-86*&g{TEaZ&H@^c0T-kJ#2%B1Ebw1%L&1{u
z*{Dmp5`C9V^y#&lT0tWP0ecMLOW^->$cH~Z8)ckQ!jaV<;du!&uzuXeaSe^=2`)pL
zHjV81A?9aDhm9@_=sXHJO4kd*#2kA`RTsWJ3=Ndfl8b}C#n_vYjyJa^F_A_{#sX+G
z{)WG#W@zR)BP&VmF}1|z;}f$ff%&J@i}%!P4hsmr!F-@eXoHSXM+;mx3wO8~2E0=n
z!t?y*8)DORoy@}d3>(MIO%2p>NwYXx5$z6J$-6BQ8Wl%lZq|wTJi){sQZ{5OAqs>c
zn2@Sj-ZWx8xzISP$6o~6sq!}6sQlR?zTS>oTPpQ}P5diEMNv_VLNg?$&Xmpdg@?lc
zz!dVMMXU4@RV3O_bh#+;0KuXN3_YZvepg%`{<!=YRE!72Z@6L^IQhHCn2yZ}Q3ANx
zXtvS1Wi;<x&I)R}kN_iz*OU^=r`r{*qA0QWO}+-Vv)6TDT(-jCCc9r*59uhC`HYf?
zZbl<qxo_^wvsLl2WOj>;1typU&*k|uA*Q(?gy{pC)$vBvA-?&-wob?#1y8CpJQ!j)
z_d~7#dVde2qqGv!0D{S23PM9e+E)LpN(9VuE;w<SOZM;b+dCh5k%ryVM%TUA8x9zj
zHHA7|NT0vikYclAdUo{{<Ex5fD%2BnClfB$3gY3Wo>x1$0I^Vf_T`>g&Vg$^D3j6d
zLKRSAEK=ePAf3%@_so9UUWjcZ=*J07_LV5_1>#`k{PKrBDWvs|>{K_dj)ni?3AdjX
zc!5-<>cr%^5jdz8kmP<FR}Z5PjleiE&PR7-hDg(tHO!^r!p-h7+kD&tJy&TJ>7Vy~
z4g^`IIp#24r$Oc;DM@Hc+oM<6H<xh_EZU*W#1<Nl9&AB5hV+CGp#}1$GE8L(2P$mi
z_MC}Pf)Umy3e-hU(Lc>g82Iu&+Xy&z4(UfATuav0mNy=IZClKroUpeb#nEmu&kj>=
ze295Z_ElBkO;6yOt`)ki@{8JYMVHLeg4^JbA?Xtl8fIbM7(cr7tpHzr4|AK<3mesA
zR@eiQj3GpnqPLyjq8qh!oc{naD+C#wWt=#-and;hDZ~~nl<PID>l9I{sMHsqe4@m6
zyLV-qpK9>-5ex(j{0QaINQ(>mez|h;4n31Uz-z*kTq>uskG6l2@{Fc2CI!eWF{E&p
zbqf8C@(E$RU3%VO@(AJgWqi$CCWE<*bGj7`^~(bvLK)o+zP^IYlS9EmB2?6N<dd4`
z^F4@)s?GJ6!#@kTQEG#d?^!osXuuQnDfgz;oR70Py!|~nNXzp{%cThZp`%WHqOz?G
zV8NVFF0Vkfd#Gu3d<yvbgZ5@ei^y%4@#e%^w4(;k|2+ti;-WV)L{7z$t57-2^-D_x
zk(NafATm;3>V+rxI6L0OkI77I#IaaHvd~9nJ)K?VGfX<yzZmAaG#BD95OX-7%&##M
z1JCS<{O_{Ax{6|DjMBM6^(!RsqKn%C>8SEeA98$%izYDv!tI0!9eVVX6M!&``b3a#
zyj|>q?|Rf${A1VUf(j#1<tV`-%*T&m&|}5XW@{)i+Gjrq9mS+N(x?xwM=S##DFn~Q
zjShG_qRHFDBJM=Lyv`^|pp`M#KRqdu`Z#}8TBag%uu3Kwskj^C7S134_FO5n;2o?r
zx7>_}OkyD60wdev<daKx^4+E&HSHlYR*=0+U^D?QI(j}5PzHA?fiP-sn*Hs?5ROkH
zbbN6dM?3|N9lM5x?%gOnKsH4TkpvoojX(IXgd?Bc3x6eoVNo>4<HD7kcl4RAz3Yt=
zNcT_Rt{TBKDA`Zkw~Y1MHny`C#b(VXH`^g2A*W*Z3A-DZzN223y;EDxa=haew`_h^
z+}u6D)Jj-p2<ew4@m3j)@;w=v^~ycSp2Osw2NZV0Qi-;K%p!yKJgBID+0`h8&yJ^o
zp1GBrMX_`}APVT99#2+DNI(jpOGX742Auw*1qHt>V2jl1GfX|w67v@cGD2V^?vv=4
zTu{oshHgYMw(B#B_J#qntGL5<RRbXq>VcHjxn`_~n*^}OB^aN`$zM#yr6|T-R(fjL
zS4m=P3POtR(!v}$^`;0IEm+Jfl<`xspWWajG<Bw@1{?T@GSGKsNtuA`GhTcAkP&vn
z%F91KJfM8tCK*dM>Fjk=&EofOBds~nC`lR>t*-Hu_?b*z^l#P!X)DvV(I{5HF%v)*
zAjKZGoC@#UhbeVtlTAUyc-eQU<?h>Llt`9_x$XoY*h!<bzAus{OsKpOXG7YT=l>CB
z46j92<q;d1gNW%?&CfwQAND)@4PI}lM|+7~d;W6(smzlGXvIYT2o*RMuI9UYEj}J?
zCb&n&7jr_MO$;Be*Mc|=mr*YznPBXX0UuF0Vffet89xFshc!tkPM{xztEE_^E*8Td
zpOQdr3^7I)X1-2hI>OH+zCB_igHTB+673G@ik^y@4L6&Ryvg{2++ZrxT%Pz>o}b{7
zPkA*<XO8iv`p7<j)@BW>*hYZFNTnC+92XkPoi9+0gEQ!F$O2$~MbYa07s+7<j8l2U
zhOuj%>qpd2JkuFz$r2fQ_0E@#3?Ct~ECD4Jqi8Y!rNnV?j8|O3p@2*z*bP+#ro#k4
zhoiXv?OC3zkm9@IQ_plW$ZF~4pmYo5G%%KJ5DHL4vcWkb--Q9Lk@3A0^O%Ts=K5Th
z`iL~Ati=rcl}R#QcU^37CF~keQ~-F2ml^kk#9IH5yH=6Y4`W<|d;24ODjD;~Zl3^c
zF^BO$fkY2CN8~(gesLNjm><ZM=Wx}L=VdDl*J`9i1j5ZHur4x`amx_Fpll`R3~n6g
zQ`eN;x1WsRB2~!Yqh)4IY1d^s2jyk^`w1GIxlEmnFr(wDxu~-(-AuRdYh8$WQIr07
zdC8938J?r+6T#uHSP3>G9-9bqAdVq0i1LRZe3y2tn9*H$yakN<Eepr|45AJ6n_0wA
zF<%m*)~w&GaeY_&MMhQiixpgP#UhG>|FAPUi3&R=V_Cla@nAO@Lx>R(7qc8XX^AEo
zd}aCR)OuZ_Wb0+h$=g}WyF%5F=_5Tfw#Ltm5os-`5wQ}-aLyzdRN(_OEM&+&A!j;5
z#uMi3-B0GIoPBxi*{Ey(NAjdXij)8Kq$cB;WBxrz5lYE`Bb++Kvm-{YIO}aZlh%%b
z0U-He*}|AT=77rhlFsuXO{K=KcUi&+SxS<o6tqS=cPth0|GIwDt_xY>>*|mM@k4b;
zCJJPsf1NOf-FXd!10XOcF2AnzA)~5e0eqfnfGr3v?cT-87`3XF-aU{rghM_?L&XrK
z2htEfG`pCB^uV%GMBj`1g&4Y^fMp5pLD)UlbCMsm9kQh)tHMZ`v~thwUP#V>dsOl<
zD>>6h4*O2T6}TN+zb!wJ)}h4w`2jK@R93U)I@|zZoARd<%-HQmYmy<EO4A(V&Ca0Q
z-Z8x<sV6%j(wlF7-K*nD`o=eVRQHzt*k@OOxh6{fk;fsJm>@!?qm!lt0|A9U*2b(U
z8Q%lm!V!knmx%OR9_?ih$GeLAKo%!xv_}AH;>??oVM-h&ml&@^9$$jKtoO0P`4W=&
zl6w3c>e^vM*t{F<UKAh;rQ12fCeVpwfpMOMVoh;LTefXbnoRs7X*)R_go7q;jiOke
zue15idsyY7?0%38d!p%&Ft(R@$%%y5N+g`RZJC6J16CYA8sPOBZj`_(lI-_|yDqIC
z(Z+ZkGBKyL3PD`8<#vEmO*ly?K!9>ekX+R-y#n&f4Gkt>g1RqhFCw3@A!JZbhJ0Ia
zH7WSd1(hC6i{gua$zsRz&ArPr|BY|c@%mRIYN5$L`s<q)3_u=7BY7=U%7`rHV7QY7
zanU^);47RhkPys0xWb&8-FJi}ZBUwI)LLwko$q8U=)ZL<y%3mWf{eUI4M4TG+utw<
zTA8yFKlH;T0Rgc%cZ7TtQEYyqP~hDU3`LvMiK&7{-E+ho2*ZU5XQg23Cx8)jfk#E)
zu2O-`6Y3BCQl`$RSJJFJl~q()?{B}H4^UP~N&+OS1Cjbf&_s=hP~`+0*>C`zDTwn<
zm@;75nYNd?k$Bw~-u(*m>qaxPb?65Z>%HaZOse6cNGu`BLJQ0a=*2@;U@$6)%esIZ
zT)BZ;)6J|abp%_jYVM<Z1f;U#2<|u+GmnXCHU+1t7j=LgFB90?Bqps*XzEn->&#7t
zFO#{U!sx{*!>Ga(=p%c{<S5L|2_cMcRGE`-v>`M9%Iud7rQe%||7{Aer=hu^0KOro
z0rL_9QYOBs2jgir8-U`3jDw2^NrHl6HBk;7{OO-}6^qG(Wp%tXQIcCd{|b%!-_>eQ
z^~69Y{PS~(8<ru2MK76DM5e=_3*`V2carIPX=!QP>7&@3(C~%sgER&Jn@HwZ&iO3Q
z`Vbv(nR7l;z2pfeBF5cdqz=Z_6rpx629^^JjwFk42glYkTU~%BPdS@6+5mjjzPvOe
zGVn4orA|p5%n2`1Z;`-4Qq#G2EK3hSXr)i^t;LiU!bQ6UO_M2^$gAXh$xdcrMAIY&
z2b(`JL8pN)ao@lT_7HZaV4+A+fW@Ez8Z5$y&S8x1!XH#E6s`z<k~s=EifFyL%qbDL
zLV!#fM1EcHcAn^-;k}hzTp%H&p)L>;>R(+5m;|Tx`mG=xUF|xu(kcf@a#Tid%aW=$
z32pU3@^1t@>L!^LYUU5gctjF=0(OsZlmJgXA%oMiyn(MzAocA(`>u6{E1;|q9a_qJ
zMpo0kGG)NTp;zaHA^#%QNU-t~3}*y6%~{4)TbF06=Ja8=K1OM7E`h0AmaqqO!?XVe
zjs*rVf$-kDyjZXtz($Z`7_tzhhF=gnoG@Sh<$@FDk>P<46DAxVn1T{bE-GjQ_Y-w>
z6vY|1aN_+oc{Ukxq6ue*?2-tQdTi}69tkSm25#G448%__CVfM-@$3Nx{iwTXA&Eov
zpl{8v3y9J_j1i7qa6%^D4G%uGzDW%8hZ_;weRGAj&EVrT2A2GIs>jfgDNZE7zSjUf
zMF91c=WOlCsPczCPHZwH5Qq^4HRtF?x|734$<AB9h1xo;{DzPWnZj90Ifwyjx_5G9
zQcz0M2hT0<3%)B|v1%C<kkZ@MP@5+7fLWZ4qqGA(5)O%ta0zjgwRBHyh&EH@;7Xy%
ztfXTGM}EPg8AUDvBV~LM4ATbYU^ZHfr2dIAf?B#O<a-ua12!4r$4Q@X7VK{l9;63J
zoN=AbD!L1zgiMd$1_eY`3w3AGn_xC)Dn;{a7v}1*%Y4S4*gnAC2Cin$0DA+3!sDD|
zh!x2=3Dtoac?v{2`vSDWH%v>f#DK)8u=R9qO$R|-UkQB`%de*{3T+3E{Ws4#dvC%a
zVp959q|{{EEU|s!^NA-V>?Rlhxd{Rshc7~*wRS%~!%g4{7_&rUG7~y((GDktoJ_)u
z-iPE1vA=|j>}4xKZ)5QFnimNa{395zC}a#);htC6M8ym~j3JKFo65KgdWtY&e&Jw3
zdTpGYAOJg0>eMQ0$U(1i9<h}1B{sxZFe?>DafOJF)VdOW*%gNQNV-%UC?oY}m`(0M
zCT7(?*vOarD#e*#Hv&@8Wb%Y4^G6eEh{m7%a{y!n4-u4Hm%s}oVIV%p0+j|`kWqfG
zkb1ROkO~A;cLkqa$h%J$?4YBotGzG`A9zKR3|%7Q7w0IM1)*%ak-i{S=Cx2j^DY#c
z5WWg^8Rgj%7_wcC>{cmB1+t1aWD1tbEh6zo$2JF0xnZ3P5TG*YeLyRO$?ahxPCo%R
z%4M>i?xe|2w577a)AqtB$_Woa5G$-e4s~@TtHHQG34$xhju9V2AqDP+d`dbwj9KUl
zwjk&9)^bvwXzZ$8KioWISF~zp;SS#MKYi*YYxExNUOz)kDVf$vNZ+GVs}@ITv#yL0
z>GNq=MK=~T=t6Z~k@|<fS}Aq>gMDR$*`Hfig4M4-!a(uo*$*rIG8b0U-hcAYA2j9O
k{>Ll-Y{*Y%|Gk&*D=so%5=?0hCHEpDbzU;@*DE*w4;s^l*8l(j

diff --git a/reference/plot-9.png b/reference/plot-9.png
index b7cfd42871a93a9a73f80cd18be59001ba54e4e3..61078253070c7827804b0d5613bc4ecded22d416 100644
GIT binary patch
literal 29217
zcmeFa2T+u0w=ImrsGoTl0}3LeVnkq20RaJLL=lmolH(`>k|pObIw}T48vzxeP2?n@
z$w5Z}0SS^bNX|`epb2+9?VRt-|KGZG@A=O?f7Pk_rfN#Zq2GSr=Y5{N*IsMw?Hv^*
zxpk|#R<p6Ot&=|^dx4E@xicFZ`{jSEz@Ib)z8u9bD=sU@$>LZ1GkY@23%{(oc1FvN
zjg99v`FELL_m~kI+fQurvcIT0KObswaprNzkr`E<4onH7E!SRs{ih2Jv&&A!4%P3{
z*?cgGKjzhU-yQtvRbP%zosRCnEnTNIXMcI5w?D;V_2bnk-oO2_I?RH0Gv3tysEMc7
z=#_JghxV0<i$Cp}at%FR{`@)p>4f-^wx^$6OnM}Z<SBg1$bFsYc^s5Ue#6Eldf%Iq
z{QA@D@3YCTY}@v<FDJi#+P_SQ{CeW_DreS*4xfFuhWx?9^WW){U%l`DIQkv=&6UUh
z2bVa~Ge1%8H!v^|86W?^jh>VCVj}eCOTS9cGwgb|*te#{JsI?GeJvK-yGJ2V*3!~a
zRYRjt*>l`qw24pt$1HlT8~Fn{>G4OesxQf0bk2F{HKjHys56M~-@j*>b-_^)kyD0-
zhDSw3PgD4ohd52Rb8~aAkuYe~_&g;~|H556(O^R5ad2=rucO0l66#_cY*}1f+)*gA
zXoJrb7%YwlJrTDven0q@dLX;CB5y9*Jt)orSAR_L=6vB7Ea_y`eC@+J4h~_X;>VHE
z(PnAGD`jTh*V~m#?cUXKkvgY}JD57-i%-0}#W6blOGJpHwrf=1$qiDf1Ge5jnoAp|
zrKXBLkQ_-@YBF%BQRCo9{O$eqqgz+J6W+qcmgDa&W*C0%>5uXhSqh)cr=7P`8jOb<
zX@Z+?>hn>DQ#E&Z&5u11F;|zB)pcwz;t9=Z8al~4r*fZ5<lwGdWs>ycCS%jKVM7KL
zZO00}V|yWncQbh@NZ-{|Vj)V|<6uJF<Dj5Ijok47A0N$>tB-<D<DH%m+S|Uo?{%yD
zMCnY4!Qzh`9C$HK7O4%!E_u_Pyi3j!9<$v+oS8@QP%lnke|S_+)frHgyhiM(gO%oD
zO%}=Zmu~ay+ST#(Ht&Nv1FxJHG_qB0?rd*i^I8}*sN%Lb+Lj$D6{Kq`-<X=2DG}<m
zIP2IHua&&lQtZm7ho8D_2WjF<^AlB~0z$!7W@cx-ma^Iw1Q!;Tt=wKQun_F!*y2!^
zEp09sbkA)hW1lp$p}Ziq$%>nO<@)<^sf`Dfj*oqOBJJTCEVAWS{LD&T_n!r`NB^wH
za~RgYy>$NK#f`g9-}h;8YLg;AI@3_@xn*g-S7u@dyY=Gytgy>?*OOy5mo0K<d-~_6
zTixh0&Arl`Vr}kr*;BPTA+;iI(?jV)NhO!_7N+m{inSgyGdDNHo4s45Bq?B(h4+$d
zthjT_FSmP2gE^O`43;);+<VT)DQ8em_*(lr=Qd_5C)sPwxSvGF;l@{W74`L7u>}kp
zBk<0$l??n#x;sAbE?%2^_WFTD^i{*HN>6^?=|RPzIQ>!5a36U!Hgo+Eh3Yz%o5@34
zrnQJlGcwBaWfsT$M0<}|w`Q~MuUv|8|Cbvp@_jgVcf96ZxZ3R4Wa+|Knoezcu<2Fa
z;^=Lea}gVkkG{)pO$)oIEF}_>yD;69H9t3^o#klx{Mw(Z`jeVm2je<vb^3#&BKh^A
zt3}FF=dPSQd9vBL(|4>$+4FE}vu(-NW7mGWzwOB0GMS}$=Ygn*@n_b#3o&sFp-E}a
zuYcaO!FDOscN^YJqtS#ffAk@1tLrgUlW5V9<l_^WkYGK<h^%0Gw<b{q-^|U;rO);R
zccxS+-5XAA5?rx<`&PPZT~<fM$ql|sv(%+K8u~7K=q{UMc;jQ9G?g~e%sa7Y_wCBW
z_q8r9GUWb>5{7<KsjY)+zVNPgxvw_l@RXi(puh%4YR}^eBYutebGvrk@p*%zSJZ7g
zoXR6&rrIdFi$Yx(G8s<wnEWDF<ygq$q#JBmCf@rzrF62ts;VtPFDtc%X+NF(VZCIm
z7@d8?@t-|B%btrDy*hP|B5YV-e~c={Xg;EqX>ZCIsNbva{Pkv63*FPHm1@+OV#-ry
zjio5cWsU?h=DE1J>w*h$>;8lBS%TZ7T<s$g65`?%t+3;;uiXZdr4n-I%#zBbnfBTr
z`o6sO7q{!_QakB%Nb~Ja2ZV%_+ZYHLeQy`i@)m|uhDX1C@ZZd@z9}x%fjPmSkWH~j
z%-_Nzn08Mn_gG6PHy0O0*<;`$Pih-B+{D~kJ+1PaeF=#A);Uw^jp5PJ(H|C6-Hc10
z1(bEZW8W||KG>8r;%Zu69Kf$LHKpg+utzJ^LMv<dUZUkD*U&-FX>y2*u%{%RGv3Ji
zQ$);b?T@v&Gc|-6V~UE3MPWhujbF159z00VvC7z^mE-CV(`J39%|bzVx@uOiDSo6R
ztD`5_T4}}Ftrh(y68&%dDQYq54ib5nr#=|xw_54D_J=vvjqUb3PRWgbxbX6aLQVM#
z^Q>1mNnT-C@7mUNDhSwFLrDs<va#B<gIf-1Rv2gH-{VYh(wgAK#&+y=>kV-Vuae{S
zuwQnt<=PRGGS(>xMZj3!R2nKJIo)KPcRi#i>q-%&-Y7_~Q7>H2q0NJlzeUG_V}ta}
zZ)rUf5i$!0l#YG<!+EMkL(($KtR|Xl-T48Hyn$M`_(5wgrjA8Mci`CQhYe1R(={3f
zzIskABF3MeoUh=jrF94Dq;jqJt>fdJu>x-El!ocV!X5X>EAcpPSa5&q(W@%w2hBx2
z<|gYsnZt(I96YJa>9jnayqSEVS5Z+19vtiNnVCxPYPrP3Qyg6{Ge3I0Mk{iWi({<I
zUpc&LC6B$z<A4AMmmPQ#4+$x|p3he;EQTEQW)aHI4`ol3nHtCpz5UQZzIW%zTPY2>
zTboWNrlsM>r3&tE+jx&tXyk1R;@4Kg!Uw*$Zr#f64e|SRq|=}8PN$!YbbNZp-SxdS
z)zzEicpOycyY|U6ym%&A#XVhhbGjzMQ)I8w^CxxN3NJ<|`7-jB7W$u7&hEFDIW+BP
zhoke6*~-Xuth1@?I9JtL%X>FRa6(V?rgRySkkb#NRxkXOBo2glw*S7e(PHA$ZofBG
zI+ipw+3bn1%p9RJxTIo4p)Yq`m@9VCE_uos${RIHyux!{ZR5R9O+x#xc^b_8$$2^d
z?&ic2!K{y;pB^!s9q)cr(tR1(ajfH>P=QS$Pf%(I$<GdTdV0}mQV1JH)ipJzWIwjQ
zztP!fp5S|P4d-cuvM$>UWSm6TsR8F<T3rXiy|0k_*ENY>PIJ@56J{rRv8U#O^5(mp
zM>2XZPYu-IYsmXikJsH+F0<r*E<{3Pz4T1``oSioy~_jDQDc<~Lix``%qxw?Yjv#i
zu_-nqDd;p#-#=3310-W_cPE>?@I-npGkj;s+e;rhaDAif#koO}56InMuQ_9ND!rs-
zW$*LK<W`l;WSLjKk?#+i_x1H9NFdg!e|WsR#BhFQtiO})wZx1YIFu^nId<>7h6ZP6
zf$u%7WaCqMdU|*~l8%l~R-8ms(0OAiL(-*|NyuiWHV>!j+S&qZ&xv5oY-bw+mM&hr
zm_1(1Z!=!BFJhP%x8RImn5Ad<k~tWwm0a1MXjo{aqImMw+B*mvlQt$Fc5nI<V288G
zGEMI@RYqo4s}^rstE)M1SsH7<DO*?@%oc0BN=y_!?aQ?}t;JC%)6eqiRUc%)z0%W(
zeqolqWg*<XR4-5ciBgT7jIlaBC%tpQq5>Yr9f#_jyB^6^4qIT=g^_gYam&C}f36Wa
z)Muil5rwVjh##k|E|v4!!IReJ=@yea-fUN%KUT;~P1Sn)+b`Q4>o2(&Trl|LS--KV
zbWf1(kL%X0OKfp$%18F+DG3y~rz;q=qshIUomZ1Ca<gwki&VkD9agOABC#gt%!W{b
z=7{67UH<)H=5jk+t{^8I>%2diRE<o1#Byn-(=VaUvA;5`f8xWfb><98jk_Sb6n?x)
z6q)rzD>bS+%#-8MbJu|=c`R<$u%Fa)eabMPQ7D6H-z7zNQI;r2Vz(M~x6RN^YO>0r
zX@@V()#Zsgdoo(xtZfmK99$3B;Ip=s^83Q*%u;L5<PX!cvE{h)``luJmW=lsJb#Xg
zi5Yx*OWuEP*s!wXa7vlXZ(=odb^GWZbhj$T@!scl+BJ6XmaTkK?u*^@ThJA!D=mOJ
z<zBfh484@AUtELUJOF5P8H`J7w4j!BQ$B2vId19J^VGyqQ^8~~qhdiso}%v2o;eub
z)IK|u(Hq+Dj^hw&Rr8pSXTz6kKpH7r<A&p1MLcCO2s6TIX%5V;^^!vmV|6o<TBes4
z+Ll_P7p^Z~(`b>l^W@P@X1oRl2Gq4Xjvuph`g7I36v^`N@bIqK<T7n*9scUY7h9SA
z7uJ2Lz&~d7e_+X8fAAz>I88g;snx|K%ktir4Q{qs;)rjJJkP?zE-$o<3<#?$$CtPV
zD!zP>%*NKI_kA{Z<ja>krA`P62^rA6C4x%A3|#jqK6^|uhNV|`fJVGnUVl|YM7h^=
zGS!md;dZc{NBFXACBF0$lheRGvE86j$8(i-j_cHl^4>f9La(YdZB#z~Ww>#ihS)Rd
zA@^W=!=)zo+TP@H>EP6;=;(oK+bfMxPQ(?=4wfZ-)^O__i<cZ3!8yIBuRuu|Dc>#k
zU}#c-p4mCPh|oU#)}usP)O}`jeUoEq=)ErnP7Ovu*S}9DSxbW2wm6;E5+9S}&3I-W
zZ%SJ`zKxgm*V2A?Qugb-u3(*+ls<63Wopwy?=%(W3@Rc?kKEMM)G7}}M7G1Y@~iK&
z^&ZhZGgX(-5hZm5UK2oGRY%T+Dbr)RA)>`Gzwfpbt))wn9zRgrHXOghaH=}<vs1&S
zfn#gfyj$~sSjUaZ=HPnqu7^I(y-FVmQr3~myY}@@&BV*6WM#M8eHJFcGJl8L5C=!x
z?aNmkO9ay1RFSNaSX|b0ic_z8pmHen=myCz7B$goEuL*R)=TUUS?pK#%6#u+wK#0;
z6|AKE<mZ<)d!FQrUafdhk1`D912U5j;Gk709no4bB5yKGh$gw-RDmGg<T43<kNJ-q
zmF;70xu=Nipo`S$R+%-oka}Rnh8?<-+O<>pLY~40`S~R+s%+D5ygYfkK$<yJb%{w(
zWr%*#75P@DKdcpm=gdpSHjA}7cdiR9$M*&*rHSR*I-$Je)U!X|Xs~ka)*ldD+a?+}
zY%y%=iy9tozp+7yv2pkSKmR?td#_}FCv|Z$BBV^r;AUfC+IEe_SN8<(E@NL|f2<rK
za;88m_sh+*_g+^p`+v<E$sDZg_g9t{KaGvkZ=Sm_Y#mXxL1zBiA%ooPs=7_lywlZ=
zb_Lr^x<u&l2aUb@qF9lrniYxed8ctpkKIvzQ^jbuQ;zA?eo)eMe58HVzUM!1aFidP
zI7d#J8Z*#<P1HX7^RLAbx5mfEw_-ofrT<{yBM7i$KX-kNpbse);t}MZNVz%c8(e!<
z`ds`-2p&PEWjOO0Vn!j!SDd=nei=eQO>8g@J_S%m;`yA*SUzV}oxRgqQn`qQNaOI0
zd+L=W{zEeB(S?_>k~^$RjJ#^pG^Varv|f;2aH&!hQ;c9B&?;G<6-DKv?w4i9o^*M#
zu19#w?pIYmCF~Xv5$U&=7F#)R7isY$fJ*Q!xnQeI)6c<TLW^xnOfQ!l0$P+UtxLT&
zNF*a5MpOZ|JgAA$=+(O@x0>d+G-$B&Oo`XE@1;wQlZj!7lg0sLg<9K;)Z?{%pMa9<
z2W(8l0`BkEl^Kc}HvaRERW9XOT2aiC%5f#`LH`yiB&5T9*YjL^x2%5>aDfxhQGag6
z&uiXLHrsA*JHYA=4h{k<t9nsl<P|P5>AV~q33-dIt{44C#d&KTxB5_}WB`4emq7X5
zLm#z%LJYo0pob0eXJNEj%w<H|v48~kJt(#lWIsxlOw=3t`4XHZJ^6A2%|+dq!pFjO
zepq#;Rb2p|ysllThz)|Q<E+)Ro@HKqpje4S--{cS<<0K9g9Dw?tTWa>d-kldKghr{
zLr26u9{`kxAXk*SYx?Qryk2kPi{>8}kBQ2jmsz5lZ8O`fgZ(c1@ie#P<LR7{KgtD8
z=9HC{4Ml^GI2vd3`HAotz?gl%MdxJ;ZYf$0?Kpe(?m<C6yquKG1MRmCew3C*8qi4S
z(y5C)|9af4PA#linezf}9gDTwqq$*QYH4vvi6O3JsxmiTB2<VJQ1R7#b<GAhvn*2R
z=ue5}DU;<#qz+Qt$%@n-&)+w#18tz_YQg|&2{ZYOeGzt2a68zI{-@qR%kl<p%;B_%
zDuMEmW5})d^qr(7B;6996!`J-Dg++7!)=wmlK^D(_f3^y3Z00TcSwD9YXk2Nuf+*!
zo!dg@PT8Hez9&_2#}Vr6IltR%8M^T`ob7<Ukufp%GBYy?N&?2&%f-c2Ni8TSn2hM=
z9Qc*$((nkBkb2ORoa}SYx&A%F7xg^op|P~B3nIHZNPQ=fgE|($BiK6ksZy_<sf|X;
zamg73uf7W*D4AVt-AbIKf&v1<yi9hjwhNP;aL+Pt$;}$k8Xh*Cby*#yipZejl(C-c
z=ze;gRZ`L3e*2Q-nWl?Ap7s7siW+lD)_ohKG6b`dEHd4mFK0VJ-`ze;j`p#+zSmWS
zK>c@od;p)M7m|+HbbOqgCBW>*+Q80H5@63p$c#Vo+eGV$jf{%A19*^+<G%$EG7<4R
z9o2qk^+jdhyLaz`0LpcDaUU||y+<~BoPL(owJ*oFjNfuyobBzr%O8J+myVqYSnc!?
zS^RQ$aljXp1{u176ela~t@4zQsKT4$7#8ZqD)uM!T)G3|7EL)gY>E#=Y%-d!&3#d^
zKx=RV^<nS&<<%+f<J3UISy2ODmHh-QX8P%(YDPF&KL$RqcdC(Wzl@wX$#cqX6h70<
zDx3MYxBM_DnBacfZ~y6b_2LElmvLFT6RQ}{L=4t#8Y|P94>=$!Gvw<P;i}-(SLD#3
z)*?=74F<=k<HZthQZ4)V_-s33{3g#_+)7XOBN)ChA7>NITO_sv&{uxlzU$Q$!^hLc
z-QC^7u9JPoNaaLOd8~ep#9rml=h9v{im4J439+%UHMY;ito74cm&EdB6(u}?Up{&;
zS~z)UKgnH2?z`XE*tnly4uxj(gq&KkDC+99W`}agUX06q*u$(Eza@}=)Vwx!2F2tv
zX{+4xTA(Qj(AN>$H5jwH#UL29h<^VhfJN5(3Dd<wHQB+6^dAssws_4|Q9IuFE8X>R
zvg)9La>@sFQ`2vb@_e#uI?(!I&d8G|QsVAsOt5dY^*X3@&xCHRuQxA{RSO6Rpk;QL
zAQ-vi2nLnVxYobu)|wywe=Z)6p47iBUe#@cC;K_4Jf@!Pd~bXQIi+iPBvO!PI;W+_
zKkXLwTAZJZeL@ggyNT&!e%5XcHMRVkocdech7#rGvI=*&#i|99!x*yIE#%b@$1r#K
zkgXt?@un&{AW%@Rao}_Ch?z^_U?6Q$6nNZRq-;_dkC=|ys8V<(6}UMa@k~KYKSBM|
zVq>h)yR4DvM+w~}L1|ohX%!};r?WR6nn&I2OCZ6nR`D!5WSsJto^KIM&ud}Ig=U_y
z9V-{e`1v1FM$PFq{gcQ^A$8{3iyKo^&gM`BQvwUO2rR8?e&k?%A+Y?(r<((}bB5`v
z%2T)9A0)b(>20|nU8u#zHYxaBs}+~H?G@LHDG0jagyL}?eZO+|tKl(w?Bl`7)2GB*
z>@R*sM)ep$Wgv7$5u8`Qy@ue*&(8>v5~9!eaq^;)_@0nlFo`-LtE$ul%C(Dn$NLUk
z47V6{qjlprDn<xpbWyJRzSlZ~<MlvdAae3h0@#ql(hL2{azK}euDf~KtcxEXutD_`
zkW{T7^$@3PB#R!ZRQ^QR@Wx_8)%Xf+L`(x!H8qE<_*C!&Bt3*IvcEv(TJV5}o6+Xw
zbvuE-Aoa_|rY4f{6SBw8-nOLh-NC!z^KhSTFyRaf962^!Z&=k2PARFXn}*tS29=5a
zsKj53#xAooTRyRxSBQWM*P;4EmzFaLDhqGZ7D5PmA%Hxt<Z@ph3rL=N*Q97<WMtEE
zXJ5D<`CvqqrEi3ezWxsXy^4rGrd8qj380oHGXhOy91Br7hbYM`&U7w+YN8C1&@aJr
zD#pcQmhef<_En1goen|<B*W@>2#e3O-{{2iwY<pGF6-@;S#r5;8KF$oA054nf>S~0
zs{zW}?GDxFUD}RXqVOKWPRw{QmC`NQHml@XP#qp@#RUq3UUeiqwb3jleY(-SDwW{Z
z^MYT>l75}8GbR+|<(Rls9J;c*Ee}ilbV8Sty2U;ww2UlnSCM}w(w(xG6N;>lAx^Cg
zBj$Hm2T~M4d42D~0^Li-xI8pOT6$r!Y9iE0S)8PDer5GoO%4;Phhq%43GFd*{<ZhZ
zPp!JkT3>_|F=Vh%=}@pvw+%U!LnLT5&Wi%<f0k`}#XFsvcQJoxgC6Qt#Ji`z?l4)#
zR#C!d-$eGd>_=Cb7>xw0<OKpwMVrKq9<`s-M-`~l=s7ppZ<(3_C{-njI$pl#^Hcx2
zY{CLhIv|<!r+85KiatHsT~#;FY+EWD6d6WJR+LCUg6}NCMhVCUoh6TGMd6dDpind_
z3EXqU`16@mz?PI@?`7<by0wHBiRs3x4RxOgZaddgPHi)DA-UD1KP-qslC?NOM-{`I
zR0=82%4d72R6=c<g6qd+k%1{#6H)Qul&VJE1fiVC3t3cg>eN#{`6Q?#Z?dzGTT0sZ
zRdmV8%$+}s0Q4p|SK3ko_2ePl^q(_8AN!AW7VhJCbbq_};k?ane+Rc&GcX}NRejMi
zRgzVkW5brXmSj|9Hd3)sLQ`e%RT7qM)z#Glc6Bv1v?fvNly2l=V<lc})vO{`zN$PW
z9`9A$W8u%6Yrv7Gb|vd;*Ya=_LHuYNna9iCWbS4@+YszUwon&{MtNpAp?Ep<op*|V
z{bQpxZ7@=~CyVz$t@I*i-pr{OZ32zEP*$E{T9RtbX{6bHTO1SQ|9EuR?)*mO-Ykm=
z%Q_Zk62p}SB;EybN>M#dJAki9lKBGE)IOpk#5jV#8@~2*OAPPyM@N6_Jb|9J;dSCH
z9-}<z0E;utx$T|C)(WC=DtG%3lFD!@0%KjBxy+?M|Hy9TrwTp7b|H-H+g3MdLi^Oz
z)a3DR64<p^MrP}#QOE9HNG#?~p<c5k2ARk69N3d-=5?v7GbNbf%%Nm|9;asE1fjcn
ztCsHofBps_q=XvrWEnllsDy&rE1WI@h3uQi<5KR{S~al7N!UoBU6JzVWL+S{0b2I7
zyrmY1%eh99OB51@&*Tnvo5(P=V#;SHs7u)`sQ^=Vh06n}3*?}I7#x4r3lg{OQu>7f
zZ?T|~J%pWUE$IVRxjL2p!!ql{>8h}`&i;JzMEnt)$~*u1G=S`({%fK61Gm8_5ASXB
z)cKs(#O+EHf`%IJG=3Q#9&(H%x4wGGc56M)v(_`wT5_HJ54MZj=19K83E&mdlwx18
z)`#0V+a{;2*ER!`>wSPlO$a9MTN6~w%*;CaBd8Bv`$<bAOrN~H-j~$m1e!WFor8#@
z?>?5V-ucK;?bNAL&0b3ji4$d#;EqWgnx83@5iHgWBV??Gfd`9UWtbDPi70&U&F}b}
zq3}u1eeo**#03imLBvu-wkQ){sqI_H%%OV-g(K!YZcK{)VSyHgr_G-k>%<R&YZ|Ex
z8xyczF-f?ipQh~d3H`?kc!eg<ZBEa(uavo(Y$=@Td)eBWmswxPdIV6$_Vpv+w*B^n
zI`87i$`L~`eGk>y0m1b4>q<>Z;OK~4HEDy55+U}kSkAgZnX{2Z!du){pUk&6K!Xt_
z5*P`d<Dp(JnU}0*CDlGJzI|D!nXex-yPu`V<eW5$TGPj`Bt6?js^v%0;8Jf$T6lr&
z$|uC~<QQZ>l?qp~h)|uxItUnP##SCfuACZ>yd~BIRN6_ZwL|*Z$41gSAEaYdJBj*8
zv?8J)p@g^tvSS}O>#ZxdUpt|y?$~;>Z6cKMu?+>CGm@PlG@3D}A0LMrk`2L92t$ah
zhg@ceL+ZD|Yv#jnnH{u4Qlb?==GmAxSCi23ekJdH@F`LRmJ!O8ef_bY05#LMLQfLj
zqG0B)D0+uvy0N*zghEBJmQ5t<9!KaK8;D6bjb+P5((xmz5h-Lk3;pPm3T{s4Za31P
zmwxjCgdP{qk#C2>Ll(8~Xk-KQI74vE{m$_uL6N8_+Hl4HRn1edmk9!THu;-vaLaPC
zA4$GU?|XGmB5tQV1zbM=u8t6grtLp6QaT?<3W6lrF1OuAR#p~Vw}DRpzeWLcn@s&C
z;HLc6R-zAB=gt}vozDh9q7eGt<s!<Su@R>{$@Nl`6~_i+lPhf$-Lg<Sqz^>LbbxmC
zHIL8OOY~1?@P?OP`-<KrDQxe#CqG~ZU0%y8on51tqx~SDQ7^|xM(-*~`@0_;+eJQ+
z4z;A?_mw+*K*|@OJl#Z20YQyQ(1+|l562(0ml+c9in!arD>}I~rhf1+Z~id?QYVWk
zSJ<uM)}JsQ0$?U2@z$SzJ8?)a^C-@RgvC-_-l7PpuupxI6q`47*)1>H{L4z7$BP%Q
zK)PGLPAs_#;>@`OZSl_gM>>`k=}TvI&o8~={f_NKo1xDNZ|QjP6FSI$x(Jscsd+%6
zyLVll?E3;9#{E?!?Moi$b%KdPr5F3;WVHV@!;70+u}tU$ZyKoFFhfCoB=j%!_4QUw
zM8qMn(Z^>7$FOr;clBPpmzj=x(9~z-WV4UNegLmv&=HMGBq_gJQ?Y>%0O!x2=O7hs
zOhRsEsVK@UM3)^L^!vM88#FsAhM+X~(mfej!X{<UHKEcG4*#R1$&erx0MP)HT%z1O
zeQD8p?ioPb;T7w+RHG?S<LA~!7%!V-|8RSQ^+ef-0Lp^=DrK3LlbgQ;W#g8{;;cRR
z>C?Q344tURgf5@LO)cC$;{1|I-t8;YKut2GVr>ILv}HFPKnoS(O`FVYfdAvWvEkKh
zeSrqxunBp=IxJqyrnbwi*)F8$ylQ54m&7KJaT{-Mw>`ruITb}4-c)zPH!^tuHj=(&
z02KQjRuMH~Ba(|U$yi~6H<c#4J^z9GP}2fPh`NVcf&*dj{`>!g0fiV7*!}|^7B#Jb
z?~;tiI`YE=cOD_KfBU=N;n@Hi42UXZb87Mp&cjww3r$(sqeqW^1o5k&%OPcnu=M~b
z(Z|Ob1pBU_l7RGGt`|V75&nDEF8E(w#mC2g-2A2L^!=?I931#RV@Pd5>0GXjFMhdk
z`JMMNd<kd<WSc|eOHkQum9W1mD_ae|?(Sy(v*b&NwE??@Bljdjj&P)?LQ&Oc*ct(O
zh2!G>_|)Z@(XY4^kh~@;?mPU&4|+O#*L_|4|G~TSA6>ft8VAw0yNFJzUcTupw##vB
z7h%-ZPoVr|1IC}%(%OcDXvyL-mlm0%e2Oahp1k$_Poy`FDm^{C$GGfyMk~Gd^V5xl
zOd+11u^YVeKZ&;3SN*8ElKiNOv&Y`{mMi{>EbeFsB1mG<-e6e-aGbY%;K5FUL<wmr
zm^;$}{nnEMl}?x-%R}{|Y3}pZ?0q5j7YON2xCLT%N=izKjE%h?m)0slgjUc6evq#V
zam=*`F0dYI^{evlvw5OG+X$rA@7lEsxKFKv#1}TU)vpb{&jyLp|1=8{yV0E()(7_A
zmp-z>S_dT@tSU$1GkTtpvu5}}e6MKZ)z=q-SOzYYABf*8Oz_o1BC{WZ%VxJc1&Sj!
z1=PWh5LdSmtujJPlZm*rRc5wGxzXLK>(e7)hk@$rb<G+y-CB>>;79vBUU(%hnvSs7
zdM#byt;o|_>SJFBp7QH_w^%Cu+XwqVEyp*?q3@drq8@`oq61>lJpvM=V`3!TEj>Iu
z4(X)EmiFQdWzpU;kCd!qU63g@$jkc8mz8s3gL(LhFDqS7Q`b0?@|q+GB(WC^MEZLM
z3j-Qss8FPLfct%N*yyaPs%i>z4vc6$a#oYO)oA<s#fggLi-tF($?YApd+n9Hp|360
zYx4KS(m8rPfVbwrkNaPMqDd`D!1p~^r?oU}v%*>u*pfx#0Q?@xh3b%>?K08v^7f9q
z3yikBmO3JM*nAc)OkvJ<<lnn@-i)dWGXgnrJ|vHx#<Shwf3;6dRrMpJ-Cet0L4*nv
zGSKh1+h<B}BWiM}&`{w+)(4+lQbCNnv2w!$A0Lp~au96s*$CgQ!n=00&faF?r}R3^
z`b=-ESVu$!Sy>WNUMD6dlJg8aX4qHpl4GoFGlgG0c0VFR%B2st!uF{PXeGV*SaZUr
zzjHxnXPwu?*u<^<LYkX%G_|y}w%dF}h#{HsM-6ten^d+g>}vP@hsguhF7i;y`v(Ed
zh21Tt5g})F*O4DNacT07H)A-h?LpMVhyr91BBS=xVW#T@YPg%=F>KCK-BJD#QxyND
zF!Cw3n^pU)l4?N{R)s6xLw!$c3Wwz;cOr!TMr?uQ68w}Y%`y4_PaB^*H$cQ*mRkXp
zP2oUIj3L2KM6N0D<>us_dAIUaQj)T}F1fO|Pv7ok*0LW7HBZ#C?MSR)f~+0>LT>Vo
z@Hcbf-0uIYZpCl0=09b4{MRM^^+x`SytM!6t)&*2=^eWb=s8N^(|y1g`%K8bzzk<K
z*Ga_@1xY44GV<;4<VgYM2_O_c`3rv{G66cqg%7jOB_t&s9?au4bJ?z`r`Iwd>|szc
zHGJ%?m)UGf`CLRoRUtF2HED5qw%$=FycdEV%IAcAxX876^XAkL&v;1I)q7Nat*NOw
zj|ez$c>kmEaa%9;xs2c0R|aN&e>O5HsZ#m{HF>draB^%hE-lt;nKh??es+5Go-3!}
z_;Wpx_g@RaD!oR9bW#t&xJU3@6rL6I02c?x)YKFKe?Mx-Dsuz%x$aG)S4=w0IWMVy
znrd^O&))g}D?0tJgjoLyd;ga_@Bis@`hUfF|KH*+RKX1Ge;lR|RPbEft^+1FH-hg;
zX;g@+eLKh}J3^`v-)~SRtGmMc`oP9zbYP^;#}}2f=nNv)gZ$YBfA0OQl8zR-wnckT
zB%Qy$nzaC{6O_Nt22>ZeYEC~k`i|WYJ~m&_m8V@?TuA*!$RK!{NJTLNLpF=Yh$>;h
zjQu{+!Yk;+OGpeK@WmB?q<Q`7)h<NLSK;A%31%S}6?_4xC1|Cp9cJIY^EJLRqyaiC
zK)pPLm}ve9;5|7;du%i8GvS5$BY@x>woOXZtvAw+z+a^+D@%O6#6rHlDHkTaG5Fw8
zW}6A-f+~B+*~3H4W!7uaO9eHLJmv9QE?4c6DFf&$2&;QyZ(X?Buo5-s5c}NI;^L+4
zmw}h-S56w@>1(}YQbufk12$Y0^D=^#ok#<UkLnh+UZ|=g2+~?>$wRuGnD&bN_kmdg
zly5R+5?g&PvxS~I+e}bcTC=UfFN1?Zpxf$A)0NuPa2L=Q4mfOkT!B?m(EDzW>cxwl
ztDkwsW@k6IdH*x$ql!9@e-ZR|da?KY72lVndB{r4)TZTbw$58{-0sr#NEpuA3qh#e
zY#_Wm&isCL9}2O-3vPpX*8Kx>E4_amOkQS9;Uo5a=lQWhLnwVV#7i@k$>UhRQyP^F
zZuQ~Llf=V$^H8#KOmy^Fp)cgIu-qhq6MmBgvSm?8;`Kj9m9C9U=Xz%ZZqBt|D#}x~
z2fl=pu{K^$hoJdVjS(1yusIIch^Xl1?w+)+U77=l{&0QOZ?hGwwFCNgig%~`lRF!O
zT|kVKD`Y3S_bV6_yEP}kizon|G0l-mM5>p?LlY>8s=U)6X$%Ywva-#qSFhCG5&JQ@
z$(Y#KbL_3~E2xWQzoExOMVW3Mt*xmcjDq&WGBd%T2{CVJWnOw)?9!B)hDL;;u#WUU
zGg63mTK2@=hRW?Dt%Q8;4RtGkC$e&2FPIzr<8g|5R$Av)7U`_fMR^!E(oUM1*eZf1
zpYG&BVHp#jd2k0@q4m(+I?WB3&#tjb+`g*0kK3{ZKC}>lL@;mO_NyT4W4%*%jyM~@
z>QB6^aC8x793BK(lOwdtL{xLrs;1-z*-lmM`>r(*Uw}8Up317Z`_|0KzRMytsX$uu
zg@MDYpL12kY4}!E%lt?BjQ(3hyZ@7hssCONa!_F`TnO8t8KgBa!4r?jc0yaP-G1!t
zrf)Uk74`S5?F_g3?p?bslQtS?;VG`3Ai0SRIc=^5XSSngAN4*XyI1O_AZvHLC_gy!
z!#dD}K2MLB6cGP+Le8|=R5O@{+BHtQccI?iLD)+}_`(1EBhK&Kz`uo85oJ84*As3G
zM6&=5{cYxT@xBl;^P$>p<KVE)9y{Ia(i`&k4@%;c+q)*0ikeR~GjbU@k#TXpLeRnp
z<3?oElWi;odvoS?vQfRIW7?O|VfKHbR99X7riw7Qgx-mY2<7VTUUF$dDJ>nc*wnVD
z-e=3&*>kbiS7zfoOeYw`{fomw^qnat;?bKbqJX|EVZHml<kdSyAMB8l2+^mRsYxur
zuLV+oxU8Zf-1bjmtyb%;Czm`yRU7qoqUSJ_B6>@MgOm&)vVrBnsY^9mg1R17#iZwX
z{r$2^&yF4lA^LP@caXsYBGW=R-5l}U_N=P9da7BQyD=*6eefXu8pO`_Zpnn+`XMZO
zaN+kn6Z$#}tLu0FxZBT>eQ$3^*#6RNo?(@~1Il5_5tCQK3NOw+AD=E68grH}O-VVf
z-r>LFfQambZFM%^k2lY1`}GKXR#oL&#!>&BTRDBh`rV&ad~Zy@RGO{tC16||JNt7R
zJ$814;oh5th0Ux<>d~t$gUjKt^JqJ9TKGxNT}5+RaIpvOwD>HO>QJjC9~htS_K`zQ
zHS62!$W)u!mM!Hr{W-<7DhUxcXMs;qaTa}Fsg-kC&>@OpcYe+{3vnas&*gQj7owRH
zUEZ!3sDE`BFRfTXDChC=HCwu%vROxbwKO+3A3-Y*UlHj@+x%@KSH}sia`u0tde8`*
zOiYUjHsnBb1Z%fOx~UnwV!b}^k@L6{lMn~>#-=8JKBD{wNs%^DwijR2q}m|`*(E!V
zb@0)pWA%axSvPW2LV>i}0SZ*F;20GQ&S`or=f|bNqEA$|i)?T<DG$|aXoZSmrn!pz
z+=;~4I<9Q=4p|g;kFQP>$kNoN9EbL8YBq5E<VauNCoo=tYXs9@*f#CFy*){~n|z4v
z=;Nu?&hS?E7LTtEX@H_uH{cA}rep3gizKR0G0T-bnRN6Yo-n)|fw5RS=-VA^9Td62
z_#(%vXL{!r$z?n|Jn|H{eh!tEmWD{DsvZnerb;)!uu+xgwKR2rb+H#a;}}1#qgOXK
z>#lNkLh_puKhC;|m_+?$)+VGM(2Vy-@+aO(s#5JO=y!|pIK%o0iNs%Yudp~NZ<+>{
zvLq!ftrxmUIhfREpqRR`b@ltNTZFhkr^t-vV_hV(a?dh4^o<ZA<hh_7Evtj{<g&57
zS@T^h%=gCNH=oLQd3L7~Ee;-H6Lf>94M(tU_Nu1Z24_UE@w4e*Mw^U*2e%!*a)w6z
z_S(LxE$lKUJv#@R;39tgEg`<Rhuii*iynUyIt?SIzp`Hbj0~=Hdp(bKgO!z4{NMjj
z26~ceDvqhf@CVkHj(SD!7!5@SUcfL=ZgS&o);?-qBCBB*6L%P<622nR<xr>Z7T2iE
zy8H=Bpc(Hdp1%w>fe_LVN5tJ$bmH^?DSn2!_Jl+e)q`=<V=yba&=gp2Fj4_`Md($i
zr|IK#l;Y3rE9L2PW8JnHjeA&Et`3V9`odbU6O72YwXJ}G8q9~RKd^r_u#67<UTyd!
z>uMFN{%yDZmCjzg_^X9@`CrxP{>W&9E5mR{DZ9BbC1e)SWo5cKCMp-Der@I-(1%=^
z%p1}kb8npJts=3vM$``m9Bh(uog8g7J%K$HFzhSZ7<nr|Wlaf{U0X+|D%qr*OZ}t(
zETgk)UySs3`YJLLEN1hT=SWvedSoYB?jJUo@@7DAEdyIyH#^4d`i?YxX$Prn6%Y^z
z*f9Oz!Go#Qiw8n4M5(TtDeg{UD6vC3jQ+!YczF0gP>D#q&j{J6;w$a#?T@WI`XVqe
z?e^0~s%wOwnCNg`Qg>b-V@`!WIaZ)vI&I)NpIz%0r@eW}1S+h-uvh%+*SnFXK0$*y
zm^O^2tea08CV-d8qxLnWS%=xB(rDe-ywNtN>?3-5dL{>I_=_qxhBA~o2^Z6?5DGRl
z;`Qs-1)INwU|R<4kaFdd-y)z*;!$<_u1p;SBTAT|40Rdnc}<rBrqD6?<G8Cwq|=<U
zVT>_Th+8J%Ui8ZB4bW|~8m-~@5g+@w(GH@NG3-$#u+Asz%ZrfLdE#|c!>L+m!_Nm3
z@}x<J8A+18Py*7abk_Tgz4>f;c2T8>1aeX(UlH<HD5-L2hrXp{6*I2Uy+tU{3>rY_
z#+YkBuft{ES08WJ^K5B>13u=~UxkfADSIn6TXCw$H?p=h=h@2al7uYg?;G4-{PTxO
zo;hhrBBs#Is13;`y;!+2m}l~fhfAzk2j#6RcCU_(4vCsH&t^Qi9av=bf5!cZJzS6k
z#)+OuUdXd&X8PZ<<0Vy(6?9^1LI6o{q+;bQ;A}!3u}p%eG7JqxHG<!Q)d&LfLY>z_
z-9KZJ=0?`B`1h@?HnoRKJxo_HA}&rqzOu3L*@dWTJ!MvyQVGhmUqL74U?RXG2Wx0+
zYgfW_gr?GcC@!|aD?k(=s7DF>3S_m|B6ak(j4C}pCLC;;8up`h_`i7pv~m$<df;nN
zl9MZ3&5(hSV0Jtx?>Sn0yNRPnBY<^VDruQl?%cYwabJ(m?gyG*Q%Nfi`cBS8sTRYQ
z@(gkq3DU%CBRv(Ryhnbq+h8$_znJw|RxoITfI{4I0bZo1yJUms=#9z2I_sMYXtR8{
zG+(~-+0S$GHD3{;eh6`nL;8qylxN+#L)3u6QC+7N2Q3sclq+y5X22YvzS_zE4bs5u
z*9~5pPji}DTSJNJ()ca&RL5a&65pf|6Q%UoC{^v@MbZyu<Oa8X&0l!W3NIl<!okeQ
z4e3I!bCL85M))l!U;5h=Vx^#VN@P+?b8~jjch6b{U&h77{r&2MDKK)Yjny)5_JZyo
zFwC+0^xv?7Hv?cR&SD8Yj#{0IB?g+7vxThP&e~n1W2<-?wM!`J(GFk|m_+2fzkfaP
zFw8dA<*LszNNbm$d)Mv^wDTRYY)qNQLw|xD{0aJo4-w>Pl($jo*iO>4N&ANBB6Z-~
zs8}PE{WCCww$bcO=17(hc5B-~2DzoD03Rv*XTQB49X0CvU_Qh_$b068O)KBrM?45%
z=D<i&4ta`7&aHre9z}$;cY#S1)i97?Ll3MfpUEbK2l@&E0OH!V<IdMe_cmT_0zY*J
zS;-gi4kalKo(pqExX-i#RuOk%vqRC3tewnepCkD6eHJwQVn=#wPE0Cm5(Jxd3^D>{
z3LHQyt2|ZOV?3kW!^)RQCCO`nN>Vw{BK}cH!)qd~>jA^0P0_r02~M3D3)1-W_g6(a
z1dW(zTWjNDw1Ff!*hKpJ{<%^(?MvueS4~A@&f9_oCWCI!;E5iKn7=@8OSJ1dNoZSX
z8(LF(J_MZ&Q{rXW1Ktf_1M%RIjhG0w+MSDNBZ;@zfI8&wUyg;hHe%vc>vt{^quaqI
zB0EL@?b>c6x}*YJ4T+2pN4R<_>ABbVXS|v6b|TFWmX?YX;+@HW&+vj^kYo#k%#<LS
zET6pJ4ykdp&L{o-i?Mb^sHrt(8S?u=9_KJxC6^{-mi%F9<AZiq0wY&44ADKL+i*w>
zWR*qAm(%||8Z`U-U;I!%5prvm7|QuvX1?BrN?90dy9A*36H&-C9<z2d-h%WEr>6<-
z-TVY0scZT(LLR`9L;&I}3XfJbBl5D?uygRPKZDbnzz~ST;Mj?Ga~#&Y2wg#wPY-uC
z0EQeipZa!8rZbPW>xI*3BIto6{j8at{j95S{Td|j7jUTit6tyqzr+RqHd^GDzX;CN
ze^JgVDu0a@x&E(9{MW99wwc}u+T)UL)YJP&M;YO&h_}8J9Un=+^j)8il*c-_uwJd2
zhS)MXDVyNUaSLmbl#nn}`KA@u#RPk&Wn_q>Oew=T@egrqJWv&(T#kxbV=#&J;mmU_
z-)AEyeTLDPf5{WAm}Z)Pec0|13yFCD&o6txcwMVm2231wXe@JZZG&t38CoA`!Tbl~
zk-k|$sR}k$pg|}8fU^O^fq{YKoB%{>Uo~}M?hf}_S|orDpt81la@y$=8auUL%2a3q
zA-JzlVF1E~FKDFBAA2`=GN-DLyXjWt;$oxgZ4xtq`a@dNNCP#>trp$$9;3HC49(5V
z##>FV0h~rUtg2SAvzu6LF!x3CY#61SZ6H*-wLWEOz~vhZYf@=67*Ib+o&9WLruUti
zJtmmcWPZ=K`s1+|o?8(gRTRE!b=rEw_#CiPo)X>M%Bl?Hb5_Q#yT7(+Vq(cfLM!r-
ztV%*Cmxip<U|XJ-(ez?-hF#T{FXub&_9>yjJ=d1&;m@~*Q}7%xkuU%Cc*C{c(iOOm
zV&VZQPH@WphKkja7f8>egJ-NagJ+IGr!Foq6UG-|^>#26*(C4g<`$<=|64$bQGznN
zwr6R}^t9tL>l<3RIU(#om11)z467DndZ%8t0&iQMG+hc8`34W)-8%Da9?-vU)aYOl
z=cdNSankNNPB$`NQiO4oSP#3WNh>7pT*d9o9BHyGyv?w4#I&aVEGTKqoj*l}B(bsG
zjkWr&wYIhvnM#267b0uY{EGzqpK6PL#SpfC)>;2ri+`;JFx@}TNX>=8@9u_&<tv=-
zo%G!-B9gPPa6U?PeD3HARKA3g(0{3{vh*xCn7;{iN!hY$kp*s#7m21zH51?J+timS
zOSjIS`kk=1wR_(FUMZ#?hdN20x<c%?ci!4TC)UwYQ-K0#wMHj`#<tyN1)jeLz;{`J
zJ!K&}gFn`v=;!7~k$rY)alxMt>}b*a?1Z^4M@yV_TW)~$5mJF550Nl8fU?h(F%rUO
zYHnVlW1XYcdH2QOR`wSgj*{XVVN1g^r~6wVihDMkC%q9P%gjyT(4-0ezV2~u;;U}2
z(3US>zD}8*C|Q|_uacLOlUo<_GD{$j@3tM=l+w~^-m4akUPdK;?Eg*~SpV{uocJ%u
z@$ZrRUu*HNwSf8be+kP~72?)Jreajp6%_8X5Ici#c1_?oCjEKI0B#W(85y<RtU^{*
zQEz#+vh?f~C8?=u5NoPdZqRHeP~h}Jn<xcV4AReWt$F(^!2sR^QNeq-&`J_SCai(H
zn1u}Sh?KfyC>t4OU;$;u1#KL5@S@jco@0F|Ix5(k5vXHD&<tq-=uW0CSb#CScrf5F
zx;vhuG&KdxdVJvGVHkh4gIH3h%4P?S(ZG`KbD&@3ZL81A#o2qIsI|pNyFK!I6`xhd
zv4+{P*#~6)!x^4oe=w)~@`urlro_N3L1-|fuO=&wRXcmft8#K`G2v1T<=cjVPl&CO
zEhZDCV#<_rxG1eq8zX8+cU->*Dtc41=zHg$3%;<9jRZ&gc6iG4cnM?KaGP_WwOudU
zK**x+|2v@Op&=D8Zg)}BPOEQ0lCU~Z7Bseful)R&O#r81)8%^tKu&3~Cba4pVzaN^
zWAPRqWW>X3gtsBM6~#P1^@EC^d%;UqRCU$o9S8w>6@5INaL?Nbu~eRdml0=6?PhNQ
zTdKAqyQLr6dyK;>wiCWvS0WO()u+fD742o4ToxUNn+gmJTk<s;9CZxO$;nB|$?UJ9
zqwDLiS#_imy$M<X|E0s`sq>UAU|9S6`XUMSi5%o&jfFo1>nf<u7O-RoOO76M5)FkW
zTpSc7&CYcZl`~~#?NwET>Yzhf6b#HEuowS@>O*}-=YGL&+w1G^vkR}+6)VwCb2!hr
zj1G4Mg%7>0#RnN$>DMk%!g!Cy1n0OxkM2RYk8bxuvT><);X!U?0B3%gBE7f2y*Fcb
z9#FQkvl9hC=2KYdP!f3IrOn!{Kff4XCSu)soIPs=sWK+%Z8AlbLcehy(p14+Sizxt
zHtA^dQy9;EkzJ++>x4i;$y31Iu5so%r=Xx<<Pr`I&;)%Dgi=n0AgZxAGQF+BnWVQ|
z59VI2XZa~KS`9eei{R==d2_||9ew-ghyWpQ*BS0<pGt}CB)0aLdB+*_yDCyFz&o|5
zvlQ_Y8qs)J=tt<ssiRzh=_O?32u$02WawOzr335O*@t1<Dui9Y|Mlm~_<D<5J<|&f
zu^A9HD11aP&7z624p00APFNQ1^GJ$@T{uA6me8R@J#}x(9<5B{k!>c=AEA}*N_FIU
zB8B+!vv|132bt-gw38+;OOu(00Y}P??M6#eIk*drbT8<xWn#HwzFcZ7qFBYlVIzoQ
z43RqwHiMXWE{2~g!if(3`r&r(!;|ZaAXjK++}%fR=7dyajJKFPG31kGrB9r>qc{JO
zpDMyo6@F`8IK8`_bsPKtyWn24D2HXI5RA<9e!WDrm!y`~))AWd&)v4-q=0+1z+D45
zI|*7vao*JL1(m4s#8={Y$TG!V7!4Z;2GP9OwQ=5yyKO09z3hN$hh)}IZmW2L#*a$W
zx9*3@A893hY`ebBN{h+OZcn}7((q|b^blB_@^qU{3LhEsg6XM#L`SG1ay5KRd*x62
z?Fb>9BRPf-(1J~-amm}F)!Yb%>?m?rfx|?Ih)L=CW24e1%x%$Wy58rAsW46w5)vdB
zB77#+c2|^=`H7@kTb@GLZ&duT<l{1EWS_+tAu8W2x~86CkX{ox5{?MBMrco#r@&<%
z|HJf!rTCobM#5^zQ^;;2MWZkOE6E%joq%~0+)ybFfnL*fu0N6wu{O$ofI2!0c}sV2
zSEMp&P9nV4K6x~_W?5hW2TSp(tqmk9ru<>}t;l2w@`uwHICKT)SDpe&csI&z*3&?O
z69B)VOtGNVs5c<qngPgK!oC2mp&zDxOu}Q-WNy!F0OLP_QAT^@9UDy}Sj+^jc@)Ds
zF@$uZJOwnq5qfx7Uj(*Lm}~;d5V*ht0cXh{PU0qeu~s^iF5bnjyhQ&d09hNOjCQ~t
z#V4QVxj-6rtJ7Z<{Pb^U;eW5j1!{A?yJZMg{3#~yqLr-8XnLq&o3y(#8EQ9_x3q{P
zsUOjaCpN^l$c>}DUL2ZR86xXpO!M3hj;H~h0_wB%u=aFg_MZOm7#hIm$)cI-aSnzz
zE}Z19quOS`!`IV=29qLa29L>bD>9%BSM_@iCXy!TXZ2RP*TY$ibjgzrMI3{LxhbMf
zT^yunt{bj##zrTMR5N<bT%fHULFYGVpdxxLX$~dxT4{ohrc~k*Tft!2fy3@a*G4gZ
zpA22c2yJ@=h#bMX3C{Drl}4VNAP<9agQaM}D<oqTpa^b*kC%`z<k3kejqnpW-4!w!
zF~A>C(rp`e@5OYe`*;x<=!Vp#*`G@S7IZy@1pS=WsWIdXU(z4~0|2ZSWmuS6(_=G8
zHC@m)w1+!|&^tQ>;+vkiw^onFlzZhn_=T*;Hx>;8#hzl0MGSMzE1fvH3vcZkUBTYT
zD&=wv3JT@xuS+n9hlIwZksp0Ep@2wUa6B9!xJM(SJP55S+dXH#wrFmyNy#<L!Ge=s
zCYH;g*aKad4+FPMREWxA1`C5sm5Uo+MAGR&2ch19H)5yX9GSZ~C2mJ?nds@p@Kps=
zNo3koSLEvlXYpv`5Kw#2<5`Lu4JK18Vbp2Nk~T)7BAOef9$dlR-G)i9Ak&hretC6#
ze)K~I+D{K71<m8EmqRVeDeiO!t6qjViR!*fdj})==L*MDY!<EphT$r>H1i6sTa1HZ
z2PZ;J=Ale^S{d{0L1NJ$OMviXjDeao!P_Dg`o1QZeMlZ2hmT5T^N?*=Sy@RTkO;8M
z94doB7uvx;fn_`b#HSrpBB9xq*t$-v`62WtQM_yxU5+5bk6f*Vg9MA=BLp|vnivxg
zOSnpAD}!<$Ly3`s6sHB)^k{l|nlwlfUVj`frWZZPrDR^o<FjGKo%cEV?=Px))VA*-
zZb-7fUT*N%Po~ONu{6QQ=&9~PKP5pI80$=dcPV$!a2iO0m~6<TVT;WEaGW=#C{?oP
zhw+W`c}t8X3Ln~xJqWOKc^<x3FQqo~mDeF<?mE9myXAV|bS=6qGyfItC^`{f%=CV2
ziPY}(=wk^!WSj>Pa>;4d4*I}_jbo3Ku}_{fTn{1S^?!LScQ)(-;TK8QIvJ`;2}?e4
zAbe`uVCgdveuOtmN*BK15;+x<BQ26Z1fV=WkqI4S9NtjNx_aTl?fyh(B<*Of(?d@$
zL_H?#D^NKSfL&#E^<z+r-RKq4{%TX;V}IH!TDs`$4SsY&YHfxgtokg2fk}LavurWr
zQq8TE0iR7kFBL;}Y91&!)I@u+O%=N2%@F-@<qqecNLO0sLIxR=f<wK#kk@N|b@H+L
zpG^}AE(!)EV@3pD5mX3?769^T`J~A;Y+U8!rSp-o6Q%9(CqeucSG+vw&o|LqZV*$*
zwc9ZSo`zmPu3`xFW_rciU#PXd-f8bk!Gx1BxfIpb6Z8~|pQnN4bIr=L=C$L^vmE(b
zBGebyBW22%`6)Pzq_bNbebM7&wl*0bN2bkM#a)8`_bH^yT#WpS06U^X4W>opa1o4$
zAzG9x0lhv%=aEmsFknX=J&Ub~b5NE-`GjNglt`1q;VN5<9?|}GpQN`Bz2+rkSQ^n0
z^KjKQ9IgY(g9UV6u4dBD&R2w{QS}VAsic?|C8~6eSveDJ>wC4hxTZ&1+ya;_sID>)
zV#g7zjR6=jbWqQ>;+K_1$fzQ_-*DT@Emag$Y;7HOp*9Y}FGQR(kUn=47#OJM=LBhz
zjG0M-TIMvDj)253gRum)a~R@nndXjkIx<Oy5Mnr9TM;^t&#&^UzlK-i*lbhS{YY*{
z5%JHF!62XU^Fd(lNfWzMvyB|-RwiBINviC=h9k`xq?n=L-0mdN-tNOXu`WEc0s-n&
zp_pe2rMF@b9f1H!Vc~m<gE<e$Y(iV8%J_c01KI9m`(<DhfE^-n4_=%n<w}sAV^JZ-
zjt=2U^tqDy_^rJ;{);J|-)FBIfkt~~-0@7^QzPrUK)PW$IUYF)vgwFry7pgA$y1hQ
z{FXF_b4v_vIzd5win;KZxRZMy&1-FQwP}^eiBr)xYX%=IzVv;$7*~qL+aFXi3y)tQ
znMz1h%<c_i$QC9Tlmpejnrmf!x2;P^t%MFR-a&d6TJ$S{IzWoM#Q7;Os`Py=QMi4^
z1BMXaZQD%T88gTy93kZI2q+L!Pfq|@Hv1=M?n9is<|$6D3S?Nyp^&4taEo^V3B)wl
z;d*3NADJXdR6cj;`7!4MvUSJ^=LuSZhX7E}VI5mI)@Gse=*_y!XBpkEr;!*Ax%$d&
z9>-4@F!+!RG04EQup{tRAID4{c?yC?FJ?oOlL-)wdEHr;p9l3R*YLGlUW2fzlr$GL
zSdv$SvaFWBeHdE^+c_Ay)C4(}c*`VP5{Mmu;kCpdv+7ZZ5_bYrrf~@I-MIA<GPlMZ
zV5Af=J++MX)>yAWCPnz@Eho3u2vKzGJ|%Hr<36QW_b4&oO;V_kPH{xB(Re?HzL&Rq
zh@`J=NhpR9V5sNL9e2#tR?=SPoS~4>o>c}8rI=SsTyhXp6c=7E6VMqS#w?d|9EL#T
znI3=Y{FS+>!5~uL=gpQ{+rl?y0%D^9@FN+}usZ#6ZCA)IZGaaOI9|rsS}t`P?eBAB
zX`t9cBljbi46b0<nF}_XE$ScQ9D91)#TG1p9R~PzVUT1QqLliah$XGirKE})eezvX
zd!SyJeZy@llR&TJxN@-(pdb=S!WDx9$&$A%4!5aiSewWU4#GSn4Q~O9U%_~p!<esv
zGM9f#KmAwMT2<%K#OYNFo_Nz5p3!3Hy4sFIMrQDlDFB_tfu8T30ne|H$_zfh3xl?r
z?8B#$>>J`rgz}D~CADlhr|v`2PZ}1sXU&#FpNPGHOh_P%i7g~M5;|ytK~^ai-<<(k
zKq97Y#|aK#f@8768!*O{v4Cyu#C~9=c98z3Xp@CM^245@%Dm;+2#;(!3yeqxhoNu+
z<B`04{XOq<n8!e0Ye05RLf$cYe|<T@oVK7$dNEkz6B>vgk(7ryu>*nHz+_|0Co9s1
zxF<2_!zh4B#{U#mzO~jfp@T`##jF)_aWXct7h@vlBoY!Nuvg9=OSkaYoO#-5%Fn5?
zK*hc0IK4_FFz+9y5Lt*xab3^lO^AegpsIrr`t<S+unnJroCah2IA4(y+E)pH`zvkE
zO%DeXHw>$sLD191U*aGVA2^bViKuF+G8k~|kXa6w=tDji4ASGz+jZqbU32quGBmPn
zzDFz>hpHFT(mvhTAf4V=xOKOcCb0*lS+{L&jTlVYbW)^Gd9ZM8>x#7g@Zi1jWKfP;
zJQdEWguU{quv<E~J}|OQCs!gqA|*_noYHqQ2NEL=fC-EpNvN~Y%o*w9jd|t!GCi{+
zTX~Adee`_;yasl_fZZB-b83P}qkKhJUc~f*E2PsTW{r;OL<cv_lDrhYeb2A`d6p@(
zCcF*8BWWI%r;w?_#3@xfml3soIDevChI*x6BD<sj15C&;Vv?UQyyGG13tq=u>AYLp
zQ|kdCpQ=2tUOEl>2<(71U%DO6O94zQO)4)vCYX|pLY;2&T2f*hIo<p-adx6f`xDu7
z#=r&gfvI1~-}N!yDYIxu#!Ut6sN&(&(mCy=E%sgO3NaLFlS2(h?rjk$#<Y^88g-qx
zl=AARi~f8_RCH}#uUWBXq?ku2C0`#*K2Akc<{O)c7p$#WFmy-}-gHqTgb|es<U;!G
ziDg21;%WI6)T0?l%%uG7hK=$Zr8uCJSXM>!jWYNJa}&cmYs_w~3PH3sZ@6Dlb2GJM
zL}#&%{pc+)W=14_6YDVHMDcrFQz}e*v2SJalfxOQ!j~-_?Cn_<5fEkwHfUYIG#M{P
z#$p?N^x=qExEvNEn3S67sv+m4{S<H{;A|NAixx19T!`euSo@kz3{2?(ic?6M)M3!h
zqy2+4nUK-bj(ESMvQl&Tkb}4oppwYJSvI1C*q|=QeNxz=#)TTM0V>p@{w)iX6E`Ug
zzprcqx><$qI9jJ<kN`9>VK_)>i7m1xUo5b6@5pBul^z23341W7OF{0$jJwD34(BHg
z?jgV!kX9+eph6jQYvhwK;|_LZZ<2Y)jG<4&ql+<kMq$jL(p}q8Vs=aXv`G$wIAdRf
zPRw$2%@e-N04Q_;{9z?AWS7t2Kq!YisJ@8suTT5B*5%a>6yJ*_S=)-sY2@%`Oo~xN
z@*vR(Q@=D?C&B0y|Bayv(eE1ovM%M2+y2PfV^D{`Id`7h3d>8NTI&?I6_5rosf}Y)
zjKj@)Za`=Vr3WyyJeP8%UrbR4U00clX)Zy)+*b`FWd`k9O+HlO3?saE5$sKnCE|n>
zLCyr#A1Obc+$5Npc(CO9&SmF?0l0rg@GZ90BOo6YS)Qt~E54)~o3f0Q4tz!D<#^PR
zC89#`3^JtV#SA4o%zspm?@R=&Y{t~{SqxZx&d0Co?YpiJz5w!ndk{7v=cS$;vdkkG
zP<-O^kt47XrKF}BqXl2*Yhr;9&5rEa7=r~f%mOkng5k4_REhILCNd@YoCePke5~UF
zJEHe4M43MZ>ddG;rQ(J=qS~Tw%HFk&Abh;-w^dYQ!L08XVC!s=F;uO*z_RlXzQt~=
ziN7&UV)sqzVmY8PDRne-=p>e)m}@F`LjA_PEgG*3|IjQ(4C~E0AyWi;d_1)D(hbcW
zz2tAJNvo5q)22>H=l={UWFEV&9IlQ4?65>*heLzrWI>2EDp|tWDMh362{srR3iKJn
z{R5b!NEgRMx8;k=X{dSO)aXJk*1sfvtD6T^crIK03Dhv=zF*xC-0j{k=ZrmCaO8As
z2tf~|Gldmx_FbvDyI3tUKm9x3|AvuF*KhNQHH`~&@+|xr;YJr@PM>1*M7UDOGxSmk
z;wcFqO8$D9?HDH90Gz#UZPt0#5*Wm|CJ1?D(KipaHHI<{+=6o1`{Ks>VoW1a9lYSZ
zuHxPA>~<KQY=lUc0k79MhTa$>{}G!Wz(iv48ivZD!6UVV&?lTJ`MX?zN<3Nf<;Ylx
zX;kO#m{4XN`BV7S|IypE#x!|G;Ton6X3HWjOv>Db^)eQei)&Fp3?k-p7V(M#5`;RS
z0hMu;ZsK(z*+BUwj48vgO$=Z`!AhYBxJ@$TCP<4=E)toD6#)@DxwLx@Y(L!gZ^;@$
z;79v?ec$iA=RD6j=Q(ikXFn`d+Ek%IZ#t$z09FT~l4&9YoN*n&ZCs@=>M%Ftm#1Tm
z?L~YuJO!CEVmdxPn!gC7Kl}AxW!8p`TGcmql==3&`$owsla!r5p4f8s%=bHn?QU9{
zN!Kmt=s0yPWbcC4zFhezq_-yB#%%t@TY8T)54-YV^@@PyX5~H|C%q!<b_758VZ`B$
zyTZs6?||eJ3USBPB_m6#dLDO{^_2CiN~{dljp%#$j}>FprjE|enefdZ*DqF8CFN^p
zaf0SJhv)N=SsDn2qz<a9w|AkO-zoW>3gQttv(=75ywu|9|L(ZD%#<j<n)=F>S5{Wi
zXQJpAPU~}4f=LE@AWyl*#U&cLx1=mp4{5M%MQ!HaPJr7+y<Ilr>+1^~Pa}F<A>fOc
zxJjww@_0gxZfNKNlrtyv{Sa2#tnd@VQeczQ3@Y}Thz|agLHp=Y7;5$9I||e>adEi-
zKp<=C-trAdqc|TxC-B9fwyjSDq2R5nQ6+OUyr8sH<hwU^C))@3-T<te1=KQ;tRRL&
z7};?a4$ojP&_JHmc%=7{2xKiH<TPSquE<nzgPU+8tVE}gmpyO!__R`kx1X0P&ZVWL
znNIYm;t%5M@Y_`JLyZK(a&mG^`$=^bM!99_Wvq1K6}pXuy=Y8WB<d8iK#}e%D~3H#
zL;4-!ycfy62iR7r0@EXm?)nit#QTwu*vO4HMq+2Wy1MY^EKcSg>LRFr9ksZ-ZPPai
z4|HbUkm+*+i$tkRSmcy0bc9OL;9MmViNMXx?Ik27NAX=HF)^#4$3oMjz83gjkEn&R
zo;t?d#KeRmLw*|t3mUn9Ns`gfsvDa`BT1fG`VzpV1ho75hdeHKzxH}0!xD>fUUaZA
z+f9b;<PSZ=9!a{&V;?-Vp2G<mkMcwb*IkYK=`hmjn=^MVhLvRf{FoY9AgpPUqJu8?
zdqD1^`(j<<p8N_u8Fo@(p~vOi`wY#gVKjb&m_tD=VQq-WEE-ik=`3?1exB{aqvIVK
z+V9Xb8<#4cSxxlAxdtoGQ>j<PS4F_!i@#7YpZ1=zd`Jqi>}LQgVtEoYaJ-Z<0xlSp
zB5rUWsu<m7o6ZVQmV0=6G?uk;W?4a3)hYFcg_A1+D-t@(LETXB%&-@ZjOXQzB_Woq
zNr2*WI9}2tWdV)lu{u_umVN}W22uw_m0t<AFgJTPr~3K(I5~p6pf3LcpSbpfh_Ow-
zeX<E$IKw91=x!ZHLLnq%Qtx2ikiV;-{d%N-hMj*#cX#*Y-B)ee0;0v(Ui{Exv-KK0
zKI0acCuhIdT9?}XNxWuJL6TwY*2v|k<_(s=5%foMaK^D?$09neeSr1`AD*@I86s0C
zIYGg)MYAKUnb`27%pusHum<bz{Inmg3rXib_&?I<baHjgx|E%0%M?RnYu>zh)_N-r
zXVOS@s6q3y5GSULz=`nMn`JiSULg;dq640vIJx#+&QaqsIwCh82j2=T?8Fp<L9KwL
zh#Q6m2OAJauG(ks>gd?=wmFwORf-8~%NI<)fu&%}p%S)O95c`o(NpP$V~8=VxfGv}
z;EaV2Cl2U|wzO!gJ8qA37qQyy%BYYd*iWx}GVJYhz5bF)rP`W=2u<ALKZ|3Z?tSht
z4zi$J62MAKOe{vnh@ciQwggq(QM$Imy|R0uWCy6XSr!lqrk{wQ)FP-Go89Cgk(TLM
zuuFcM5^>-m%JL42IuETU(aL%(z)$6rg@HM3l$*e=-^9jL3qW2lQiWe2Tp{r|>6?}y
zqQ`Go?!dr6ZFTiJIv=9JFrp_j+fSas<qHWFuSTCCv7*qQClz0~%J^ppgZCpE+x~kT
z7Bn~Gs>PK4#`Foi+3a6WV4UCoEED~EyV3ue4s5-!*emsr)%{>C-8Zwr+q2Lk==dMA
C+Q*{+

literal 29649
zcmeFa2UJvPw=IgfTU%|kZ4?PDVgiL0MI>vBBA}oknF0k7$&zD%-L{G#(4vTnf{NrM
zNRX_pfPmysKoJxyQjs%7dh;ti|M}0j_r7=EdH1~W?i+uP(F3a7ReSGmuWzln=9+79
z>x`=6+SS~vIXF1hDxFkN=ipf3%E7VB_`8*OhkpOrFn+8wR#8;IPy9D?EXNx^zQ1x(
z*MWnB_a^y&Ng!jyl!N0J4kd-7=UgB6x4PZqG0l=6jy4lh5mP#O^2fggb_;Clm;dFv
z3#&F>^gDk<E4Y5sk7t?`sy#SGC2Z`DCH<jtWUbHAC4V0I<Lc6FtCw*8aPpTw>jf`v
zE3={$$RFNg7NqMg*4i7}H703R5gX<f&wA+I9@o2|I-#E>s1(G$uwNYFN-6B$IG88i
ztRcVsb#|#C`FZvBhT)~;my7qVa*?0EL@duGKRLGS__Tuj{IGk8DEWEh#P_aC$S-2b
z{}W%a#i7lu`?$5WbzMV4QQlOWew}sTRtb^T$&G3<XX~tMQ`9GSQ5B7Py05R{I&tjS
zF>+X-*LcJ_x}egAoWX2M^2SZM@n=DGpJg;WsTVvo<9?e;l*9Q;mEMHzPfSd#ZfW5u
zFE76%sB|_n&pijf9&Z(SB5dki<1&8TYhgTEo>y2a!RN+}8;8d}9+0-WTgK?PDL;4N
zpoBy*|KfD<gZ(Bas+m{9_T=aPnlGgJY*vdO-_8*Hv?At;n#_noi)*JpC+B|ininy#
zvAt;nZ5~6sIYap#3JRVb8^e7X8X6|lx8oBpZI<V5>Pf3rRgo8BeY&>(eh$ymk6K14
z^s1^Ki}}4hGY1ML5^awwyw7zTt2w`!BRPeGqbGEE?v?}i>XSi&L4voAt&@E5?$Ew{
z`{aaHQ%`OywvL?}u=VzPc);w0!h6#YN&}-lCw|~nrQCkw_dY&8ho@Q`D24RmU<c2)
z(*86Z4vz8TOAW8CcJ7S~i7E@9e!pwAUUXcXkVw{-ARiyxhD6IjV#KUpmxvy@?mj<3
z>kRasGf`0J&*~0K87bPzl{=VH%oi$R<Tb-66j_TycW)qvvTzllBHoj)!Uw9ex7y~~
z-R2e-5)j~X?|J4rQLpW%w-tw;;aS?|G~6w}D4F-Rs4tYusjI_JRF#hPDZ&-g&FPx)
zT9E@Q*YokrczPus>VD#4*c>%b9Hp<XUputer(K|2;QeOFsx*&<dL!wfT!*6tmU7{N
z9)nrC<i;LWzHiXC<(;3M3f!03BBm<U`{KbNYrUJ|KOe&}tN2`h5qbUTk4A?|S(Bcs
zXJ@swx!&DeA4qX&6(@&Im#BGdSe)yYUlX>>cCaODzg@@s&GKHJR@uE#y_1tI4wcjW
zX7XDzTkKW#>ZQfdvoDoD+7v=@*6q)1_ey!Ya;pL?v;XD0b#~3>(S>!f8YcB|nuU!k
zD31=9sm{^7=e2LcrVq7TdDqik;GMfTKNNVNQs%%Q?ESL2`5w2mu*sD9NqV$NAI>%4
z{KQj^pMUPts#>Q2slJ$?@(YJ;T3(O4g}HXz@^SSTe6MelwL?{Ye!S7XY+r=;;zG(q
zgMP7@{A|;7vHU{yXXmbu4>z(eFMoD$|CLW~Hp_XsdQQLN4~W%>{#j;0TG}Q@{q_iJ
ze#l#%A~*bI*&6q@3{}~QI>(twy6w;iE3dw$X2Y&9SL5uVjAn~?S4OaQwn6ky#V1lS
znyMdISy=dn+GOvMTNnu}{#oCOldSrk?TSTi-A}mG<Yq1&rSEg}bQ+&4lq;?bmzNhQ
zm>X?036y>Q?Af*(>-qUQivt7Wlk=tS@73MF$?5O!Kd`{JX_lu-yP~$RuCZ}5S?0&i
z&E_fPhv*863-c!L)=JzywqEw&LbvzAE<^X;$UibQ<Lq8Xsq;x-E7-wMiki&AdFj@f
zl!FHkD!`e@uzDga6OC?<ocT!8i5x8ZZR+$ML$f6uXHI-CI|)PC!FfkPp{A<puP<XW
zs`P-(`vt7Ga>58k@2b+}Mn7yf&*==5&wqEwES&1xe5pCjymv}pPp?^4&BZ9<guk98
z9Ts(-HP-aXY?p2B$O$p~FCRoQU(F8Y?DFFh9emryY=fnR<j%GZiA=jZ6f;#0p@+(Q
zd!-KL&;Fd7*VWaPo>5&>69j`;TXHGXx?zB|cJ0~{Sgv~2P_wSLa~C7TNOiK=GTFwm
z(dt!s5KhE(?wIYzPzll4xH#qTsQ~H0p454Xf|>HPftMHF1(}xJ4^GGsFCJ47&AVrn
zKhs4S%=8n<-Ypvz`sh)R8XOTNqaD|@hQ;e%Q(3q<St&@+@8^BW^t!q_N4K!Pj~^c%
zsI}&C{q(!6VZnCGNfom;cV?oq2{rnOvoao3jrpuP&(^}Wu15v41q&0&7pI3mQ*1o`
z{`32iIL-L%7Mo|C@%Or?v6sKpsE7{O>(|%Umn3GkJxVahN^PB@nOZr&_^G@1w<&A2
zN`|am*}hD{iHV8U1=U^Qp7yDpGov<{+IXaTv4NpnhOW<Q<-Ddp->jYRmE`js;TBd>
zZV$OW7;0Qlv6SQKoWa|ib==(C#<(<JA0I|pNHH9ylvU>Ww|}I|HOz&!&qdV^AgVm+
z9o=8dqw%LQt@ZYn1IEn6%mA}6x2Q7bSC`6tvD=a_YmbT;y#5uY7OgsEuGZ?(PEDEV
z3N2o?UZyI3pv7~n+^*x+uA(y0f);B!InVS+XJ<AuiCOQE)GO*eqhgg(`145BvGq>$
zNj$KCCoXN0QEK6ab=(bUg+J@3g|0k5H$5_f$LQ2JS*^(LPo4->hRPb>eE7<FC8oYL
zEGuOogI+W@GnQjDRc`BbzzaU~xTU2fkKKFDk+JZ_+_K3)nbDIxSdZiJuXH-a1v*BG
z`PD+!OZ7bcz_6EXE6SkTgo;!?*uVWzXs8E8ds`d)c%xl0Z*7WK<As}r5rJ~t*H*0`
zd`aCC;IGba3y<Y-n@3XY=e;^rra5FEp9tjRJ$?H03fr6?3uTITDQ(#G_{whvc7>ZL
zHu34{;=~0_R|k5fsfxQqi$0F_8z?hcu)obOpZ`=iV3%4L57~F_k&fGZW!I@tTUv1H
zk%g&(f?7G%W&`tPTG6rC+0-hkMn6p#@n<b!fa7S%uIRF<c5m;S)_k}zM>p8RZJ*5c
zb1suB%}2kK^o}Ctx}Q^Xa&khHR|-mtw=TN9rFV+%1t+CJu^Ga`c<$BD*h?NA3D0{e
z*#}2wJk!$B-j7wv^OI=WJb7zZm=6#_yyAp&SE+FF?M=d33JUL^9=+DVVkQU9jCCt&
zXlTFzeCQrav1gPLFV}(C?O*A=Ft-2vo2%<G#a#wl(&g?iM2b@Pgt>J+)XB0p#Ro21
zTl;6WxeJF;Cz~F~xY_e~4!@-|NLbXxkXO0Gf3HcgsE>0DN37UA2zzNnWUk3Ddu(@N
zufgk=As%0>$GR&6sZ*^IYjtm|<K?CqdRXVO`r_ddHq3a+-4`|DBa6eTyy@eUVp8lp
zyMLkW(XSVNW1U@q>p1-7uVW3Yo`IT36_ftPl-|xEuc@4YzP;(9o}bsG7#I3(K5*&O
z$H$Tfv=VeU@pW2>dYjhEO`j)T!JJ;{*>%9KLD#Gh*3Jv3Gva47CjeXckpQLUW^U2E
zarMXcrF+b0XNL;p`P{zTF{J7Ak4QOmeROmi@2O^<tNrx$T0~UTPHIc*_;-cF9}iT%
zKSa0M=+Ir^?~^&(33K#oZf;&j59w&s;V-7|2r<}z@J0a111Tp9_W)~zkLWOWp#V8n
zPuc)r9w&+Ph#BYhSB^-uTsd~?q1X<pjQe<xEAauHR*cf%{gw?0jo6;s1v>s%BeJ`1
zC^gFd2`n)wXV8M{k!?oPCA-;y%*?IAl`><e9$)$Ud-G7Yv97`kH+i*&75n@o*U^gY
z97YPc$P<S@J!Ci4>QWrELq#CGGCJ8>Zus~03F)f)i;meEnIs10?{#edY0T+o4i4%E
z_guZ#&t(>-J9`yr0WzZ>*3lo^6>aG)Rv*e8t4Nz~Uzp5HZx%7kJv={C_3W7R{0EC|
z{L5q+_cUq_kw^HpK!YC0I<8>f7aP43EBquwe(-f?O~y@rFW0w~wZT)l-Lk!h!V%Y<
z+EnGj)tsA5L!4*FjTTunDcd0!<LN;lNgH|PmgeS1k3C0AddIxxnMOmY)NS(*E4%OR
zHz|5CFp1+X7W!_YH2iwu??2P#&7+?*%!@XvAhMRswoT=aOIFIw_B&7TTzRvkx3VaJ
zS3fQAqKj$y$Xr$>HL13n3f$MgI@#yLxjpE(-_K5sa^aP`$Q3qE;^FqE-XCOTHFk<C
z1v#61y0O(pr+c6uxT4p25TMYo{+=L3t@=u(>{MFls7c5BTW}fx3VQ-G#f!hhoQ(*=
zMv1STT%2!TY)zW~>ZnCD4*taCX>V+N@B{b3-PSH}vd-D%Bz7dcs?cNV2sg|;MX<0x
zU0sFnWYhd-t1~^Z%#I+*OnS6So10m*waWf=v~D{GcsM61@zeT|ten<bnhx`o=$a;p
zLiZ;tIF7Une4;4Aul26^5*HVjZg{49Y-arQ(4XIL41zC@9!Sm|EltmmfDaz;4xjmG
zCPi(V*fhM3Urxr{!lEyA9*)FlT%y;yeR-lmmi?2=F<_YV_yOQwrjzw`y$mZ|R&J<O
zs#1vcn%>Ija4#uq7*{Pr=0$v>PRjFE8SlKNkn4R`a&6+>t(0s>^Aby?pvg|RyQdHJ
zPM#imG&Zm>Q|UdJN~P~VWYzdmgzikMjNF_oJ&>kx_Kzl$0Lh)L6^JoqhO~O!Hy-8U
zv^4sv>mLL4d`%+m71JMGIOVd<OD^1&7D#~J&4Gp;pY}CKF2Gz=z1ym)ss^&6Vq^Dg
zIb@}yw6ra3_qYrt>8cBy=)hz(uvhbd)J<Mzoo27(yve>a%ATUnEGe7St<Gu_Uxu93
zunCgcn}EsQ1b%zC8_r@OdF(%I;~bfM;<Jbg&zPM-&@yRCHRa?SxfAFqxblb1KjsW%
z=qsd!`(8-bx6Ko$$o0iUC~G>u6@g21<}V-o&}Y6&OF!S!EjfJZ>9uvrA>MPH{K;ca
zLUEf$QDvP){+3gmAJw-aIOa~}4f*@{z%%aS-n!KzJ&&1OAV*o~;3{bBm3d)3G1M+!
zA;nA>9|5jxi058iUG14mGjKSa<K{91v)p{}@|hA#-CC~v;p;uLWTO!4W>uG8FMjx|
z(K0zN+o}M_@<rJiE|I;{0mHm|3SF(G3p!SAwR%}WZ$k8}WmI%&5Bdu#b^N_X^i;7W
zl}eqPNcP^>BctPMVnXG$UB&Nt#XYR&lt_qQd{VX$6}PeYnm+JzoKE+2##pJ5>*wod
zjf~nEhb%2DIxLN5_0|jR^EVEM!@~YK8KNf1xYu~`?&)kwH^9oJ>^VS)Lb&rBO0-Vr
z6)LX;2^B}_gR$xXHz(@Z$S02=A6w4h$-folS=Ej+VIG6#Q?D|{Mw7x^hTm^gyY1sc
zd@38X4bbzK=+I`w{9^y&hUFUrs`Yjn=WfgHPc5rqz^vsnaNO(BQel&Z1l<*RZ*|$x
zb##~fOo<^aUC+eCq{WFwv0IqwF7}!o;3D~4U41=C(sPo#!@cDw(U}gP;B@kON7)|M
z-MU+#fAEBIVQQCWuJzP>X8uIt1b14d<_A|VT25QA$Pk=ZYumj9q$&e^Q(Y@B!qDTp
zb#D9ET+2<uS4WmzZ{dmA^|Oe<=3-tK18%-NCS}N1(xL19;;i>#^3w?wJFA4`PV0&G
zYl9>e?H&DN#TsM8g%z~AVB;s9Bz21}yUFK%`DkTpt3h|3X26(ZN_uOuwUMQxDI$aI
z)a#s3<r6>I@+2j9UTS%5x5CyV-9GR?u5K?Y=uoyJGRzlcBn&-9X4%`>K0oLJqYu6c
zq-2hae)t;yDenbZ!Gic?yZ0iJW;mtVP<N{=#{K<{Jyq%<ZHd1nPg{CuUfiFwv<b`8
zff(gWwlfLqBuJ`=WC^kpZdVU)K9?3dyT8BR^&Sqo_Os?grJ(mnJi_GKoaxrUazTQ2
z*!b@yyC2tf<}^*E%|B{x+sh<d$Gf{;BGuf(Wj2Fah0q{UFx}yo7x!#eQa-B>AbwQ`
zR!OD6<-@j{Kh5tvD|_~X=4nmM#TjpH`kDAT<^6`+1+ZWL3dn2wv(oxl-e6Kie=Nzc
z679ZxxHB^RZv9k`MJE71lj&;dvBFimp@kp2#mYtFjg#hW2hSkE0l7T&%arXWZtsqv
zs0EM7P)^~}<&hAM+qq~rCTVGEZrZLGaOzqOmyzfG6aL)w45>oyn@r~GCWPPBaV`^M
z_dH}0D%oD9lkH^!g<U;9=M7P9-OZ-JXGCd#OwY)O(hwohyf^qN`8HY}P<t&SL)(QQ
zlpV=AKekfxbd*hs1N^}b75PiFZ6;wW=acnFM<ILVeqY76`Q44Re)4ml*IOnQT>9?p
z?LA9Ga{5!J>!Rh-+m2oJlxrVcdj*a=K_^9k0H%1YL|^a_$MF`czNO`{S330=rC(Sy
zrzY8`z?q*J=yP~}ytYg#%AM81eAS?So95%=QZU=vI|?|_;3l11u;89;@Ilef<M}}S
zTew%fz`nhODJgP+nZM0ShLlBmn+f=iDc!244<w2g4?faPcZnJp(m2JCQsbgOnsxg0
z=JyrJIn^h&MwVG8cMP4{57#VX<1XgR`rB0}oZ57kT1#gGY1yT1hB0w*Y}2C3cue-g
z7AKp`Y9*wRU#oc=YG~Z``ZIk%CRd`}(;<8A*?MZs3vsjK6bj|kgI~8rsXpN*sLXp|
z?ll&*vra?Jzpt;)$43W|iibL0Jpyu|pf%faC0Bg+Z-&}H5LP55=<USOqQEc#4<u|2
zbHO_h&<K<nlxeHC88(2#v@yQhAo20Dp6qP682WszfIx={|E!Kumu=$mLcZj9Jmevj
zkajp)fF635r?xluGaVbmj&YtW*O89R;uhy*X8T{QNYp3Zme1BwwYK)5pi=XSbCIhR
zX@!qw<EwhND|5akW@lwNNc-*Yym~Ef?%f>&@zXgPx9u9a7F8#LM_$U!rbfGuNv+|y
zny>hVu428cO?vS4b^!sTXklK-1G!F|oW*<|RtmYY``#6RlR+NP>$r~dY=)%rY$_Zl
z$-Fy2>i8jM9MVcM*s^h#>M3up3d!!YoKew`vUGYNP;qbl*doFbyt>TD``1YDJC5<Q
z&XCNo8oZvSrlw`yEf1s??h}vW8TMJu4kPo(UaY2Wq*WznNLcNOgs~Te6wEQkNBXt~
zi-U7)Ofm6r+McSc**}uq%;(X6M+8()Ei?B?{o-ri%lzD2?*KJByFzUP?yAX23bf_l
zqOFte|B)~+nauk@-QmUh&yG$$axhM+>^+tZI<uMjzMyK%kRJcHU*zNNUgI)`{eaxa
z0c1CSG?aCZ4MZ)w?6Jw)%y<8~*^c(ud@;TTGo#59YDQp8s;0hk^)L^oPAY|XPsAG?
zfA2jgv;a^kapQ+AHAz&un+HEKxChcMHtw1q@esAf;|~gr41N$77q@%6g6lory6-iF
z<ky<k^=8@nQz6(A&4#i@^sQYK&ym7b!^AW^b7$?gaV@&EVP;}vvTo`{r5v{?f(?q1
zBZX8*PJg+pR<wf4;7rmeE6q57R^Plb*OHI_x*lvbXU4;iy2AE7{q5fbEgfbiyb^#R
zNV~K;(f+Uy!OqJM$Rsd*MY?4UKe8>o;e+2X%aAnIFc6h;o;o!zY)sQBrG|-QWF+sy
zi`T-IZ7&l3lDy+5zHYX;J$6EzZ?&6$dOj=l!D_c}z;Yn+^r0rfygki+qWPPFeGO#5
zqH$J_cxLNcr)#=LJa1oIm;yMzJ#I#l>9ZCVmoJ|T@ffvxlh6csUc(TV|6?H~kh+(W
zkMzHp@_ns_b+X=`FP+tQcb?Yk?(X{#8y)sY#0V>NJoMVD2gq%Coa)Z@Y8oo?xn1-e
zy&HZTIo1O?s=HJ{`wOMJB*+Mv#ZuMx7c(sgE1peQ1}B!88hz{K0i^tA0Zp0NQbC}$
z`{I*T7ndMva7QQx2FTC%s!@`(zv3D!ns)AZjS3|L^pHsYbjSEeG!6)=tJzB8a<(Vz
z*g2;_PfxES-e}&Unz?(*ExWNfpKrQX&0Fuxv@6n=$TEDbNY4p(_<QQW(78Ru$G!o|
z>q&%ytIC8y?FlI>RND3Ap4>u9w_J#b%fWCP>=fddusu&b+#nB#SsR|7$4ZeP1f=7P
zt@o_{*^Df?gNF{WH_IPwb6}RlycTEMqXTJk(;XGkLoI{;C2v>p^N50Pl&Y_HmL~U>
zV<ioQ|NJHwoW2T+b794rpWmNV<kcKLUE5U|&Tqu33GvlaQ%uV4iyQZibph}gVHzz;
z<r!NLPJ*CLYmd6KiosvDH|uJB#D)Zd+YJ8IR3VqD*`Mt>_j*9{3ZY7q`+8M@2XAfM
zRRk_5%xmcCvUNV7sbAGPDFeM!c3OiAqS(ylw9ngod?YSR^<?!%bL9?9Fi1R?cT2Tu
zN}Wb6qIIxH*LsK21^_KDr9YnA12tN=Q>Xkdyt@$@SRBaT&S)vTyGzYRBHWvP^`&&-
z=6_!0%KU!S{p@X9EI8hb6#t3Bdp#pz?WF#f^W_rlEf;2^qM~fVnf<RSRq1M>hZ5f%
znric~ZN4=8>1|1W)2lVjlL(m)k|YpMZ0Ng`f~-<YcJ@lam<!hEMIS(LRL*qjPbuC>
zEM*kL)(!*_*oqQzSFnUZr^4lAn}A(vGr;cg4l==?X0$FOg0jp9X}AmU$2wCUghVhQ
zNlFl~AMk)-=p9RR20NEQuK;NmLP$<?YwOea)<@tjNoFNEkX9?zPh&HK?OA^<oC*?r
zi14GXsTrKXD|YeZ=r#ViUmn5-)gY(Lu(Yx|g=ZVy0(QIv&h)O&$wN&S@BS@yp11t5
z<g3=9S@;v@#=(0Us!H^J)MG3Mx{aB=u3;z`G%w&aGlL2SE~niCN%fPAeJ{fO#0}|>
z4%-=L=at;u<uWUsXpZf0iWUw^H;^`Ta@%}O#-PthuUUG#b9NqJQ>0W|^TJ?!K?W}2
z3!u7Ev6_mC$|$(~9mG^}oGJb#zg2FJlqz0CUBObDiF`U#X0p+w_choNWy142@+Zy&
zS9Y(7ixiFoG|0AHV@=zr5v^*i-RaRj+xCTU13;8vf+h6sr&$i&J3(z;%5lct8?+C<
zZ^4rk*cnx2r(aq?XO41PQpZiV%|<mQzd}VxdU@{gVMLFliLUeP^lu&sVYb$+U1!mz
zaf9o*w~+0csv8*<G&r2o)Z76_u7u<-wN_O+G2PH;wX4UdxKm%9YUT`T4JpNR{R6*R
znwy(*IXX>Ezzaw<A!S(O9?^LB%%?kwd`cD;7VdMi_ryL?;MT>EfsJSFJpHJSUF_L0
z<W}j?ocCEIGGRrolKSJ3<_6*9T=go+*zJT>&mKhZXozsiQNLU;_hpy7`IHAK)(xat
z6DHH@)xZ#{P$9d(G_SCB00}uDX0XTQO(<xQ?SV3>pQw(7o3ztB3~pb|JO?siWiITL
z%izk<z@m1-bO13rXO*k_zZ2XuZ>Q1odLN^Gz=`Uw*_YpM{)T=x`Kz;%c<}t$cL;Ss
zZ6__#le%hKk+wBtZ)AZ5&`)#kV=_CVLT&Vzvp_(gUn8=zB;g!=Cp`<*QDX9jcj|m#
z60j#`{;zGvI*^+Oyjw4yTYCtZt{?VyeyisTSxpLs*PB%vZVZ#^&lu3urfec;RYgp@
zx2HOylkmzToyA<a6<f?6a~?3O*z3NJlM_G-70S;#xvq8!3OuN?4MgqM)d053nQ<)`
zdouJs&Ae7wU0-XHNp6NXn77T+&Q=NvGUHXpWLcLz>7h%gV39<XWo6k^V6yi-b9{t+
zKP+oX$_ltEqOO>Zpv_Be!355Mk|8}e{H_zXt<r5X<Y%8{FbAIyh-9*Wo}m$S>K1AX
z5>x|3nSr%0S67o#&LI@hUZZBX=8@tg@S-0{=Lmf?Jn1L9Znm_YWVc@ze6Iq#I8!At
zF6^=-xC8t0Rx)+KvbXcvdb!tSlcYr8IhE6Xnx7vG*73w{<R^iI8SnxiDMWPRBhV*2
z-(=c?Zd*W|8+0k~BW|A8rG=A_MdY?eP?b1NYDvg%Qt;VALgf<=?KPjx|2MJ24y=Nu
z41m^t)6#pd7Z+wpa-4$7#AX@SD^__E4Jpi|oT63o({EKXC6Vd5&W#jzVsGEV+ai3(
zxkx5Rii`U%eSC2E)751i)185VoZC;_GtPW*sQGdP>Te4_Cg-y(*ege36G^m+QC;A{
z9!mkoRR{~=BiYRGPwS5Tn-+jg07vCX>{NaHpiS^f<I4+n;Om^X)>)<3YwdR%{o*J`
ziwKYs>M9TA+G?G4wxsXlBjek&jHK5czOPY{0%Zyc+HZ|$?n^p1O31=VuLT6!2I=+N
zMp(|chhjpA`)m(DxtI{&BdCrQMur$>Yte}#lWRK>z_W!UH7$;{rwPegJl<Pt^7-%U
zBUonXb+Y4C1aj55ou17`{xIE;nZK#~v4g6CL%H~VxCvJfpT=*lE=d6}E_!X(+4178
zsxLxWdQPl1JxkpqJ{biCYm|{t?ofP>%4sLg?@y>_5}lW={K2O>La~^nal{Iwx}DWF
zdGJgI7idKCtY@;g<LjupKI*ybvXH$}>bgv=Rlgj79}RpUZmCsAqZM})`b8uqC6!I$
z*1}ByV{iFn+D_L_o(M|FxwcMf_k8pRggrlQn@c69C0g%!Suk!NsPI{wEm#zGI6kzu
zXd4H|IX;bp9OquwFKI@lt0S{u9-c-N#bh5Jc7hPWKYv-tvh&G~@XBKC0#^O_2-%rp
zTFX%I-U5llCL0iRO5FxBi*sY}4_UPtq@DvRc{_+RknevNJM4J`s_D6(h%dpsARE%w
zVFA1!#zSxML2ilY8|gRVG=q)sb17Fo|NR<;0%#Njl^%PsdU3E!M{D_xb@3FGMMqGD
zm%daP#;bCF?=8@&KCZLAt%ZJE#qb8knXS%#goQm#%OcDV@=S)%77mW5#;*^q`NVr3
zcE#J)l$U5A!ggCUjpOHn2-lN8;&1y?i`P)zRKQq;bn>5@AnnL?c>M=g+qN+GzF3r?
z@)q={V~H-x)<^6pj@8HQ09GC@;O?KE%*|QK;m$z8-|ewOg`^#D@_VC&(U1oyiho31
zSWjQy<h>6kdpmBs$+JO`pXz9pR(*mY0)ffX=ij+5IWJ2fZkEdKhuPWLgt{|Ez!GxV
z;}{WCj3<+;!2n1or7VZIfP+KUY~6pUQiXkze~4XTyci<CSfX%pW^e=R9*e~yB|Qa&
zy+-*mNELOve0vg?EL-{h>XKyw0>)rTs~a12$eU1^5Dfs1M9B*HrqqBlPyBM#)0p^p
zKOY}FEJYxNhr-V@i4Gz?Jsn1ZSbYL`guIDJv|*l=H?Qu29SA`S`#n^UU>lsDWsgQ~
z2H*R|K8sYeE>}Od4>=}^l#{%vpg?M4*bQYkAE5T8tv0VOC@2t#3wR515%u6VHUmrH
zO<?R))3Q>7v+ZJ@)5A`Nv`zmjls^A){r*#8q5texoGY;BI<pt`myz*WwPKXIJ4tO&
z+t6(XYl6uIuG)z$<bcyx1j(6I#x|(kk9@y(-F5oWPX{i2)M3uPGOG+g8NN83X1JAv
z$qvepyY`ki7&=5S`8ZU9_;}Dtn}{}r*fDahjW{RaSf<~u_xcfJ!7Wk&W|w$HLWEti
z*!PpCwclYl47D9QQm%y>;AcGcJ7tXLMg?9e^;-HsF$SD?WGSd`y8`f(QH03nj+{Mr
z>J2@ZYz!2tw+k50j517<h~SLl>ESlcCAJO@4(^OW=rhiCS&(-*d?SpzJ`F%fG=lnP
zF>xtmMZR(OX9iQh9wZPVsH8q9;M;qh%g_f~UKB9{auiO^P}_XB$0&lPl!@dxdR$8<
z%;*TbU(CC3Yh(!|6g{Usc8Z@ezrHro<sem0w>fNT+}yM(I#@AWi;t@3Hg3+S{-+n+
z*=2ik)bD5yXW&1NxuUJM@1cs>NMbldUCvoHAfor`roMO=E`IRfxP_Uv)NIsfPi<+0
znsA_8q6{nTzw^Q`x?^cuVn(x&4I;LWt8@>QRCP%JBsH}WsIH2TE<eYr)lM+``i!rw
zJ=8O7c5UU_(e~@>UN^rYU)dr5;=gmntc<&=Qn4*Ns{D}@<|__Nn77kv<pz9&U8T<g
z!s%P395+DuZlqAuYd_K7kdkYE!Q#S`q%pF@a-(+w9a&?*CHJ1!eT+*^4*Y%DDu}jx
zHwhCW+ce3ijr-U0N2IhTV2+zmx+Cv^HSk%OpH)<NkNx;OHa7O-rfPj$tS_z~R2>jC
zcJ;k10e4G4wBG33KZ_dXHbmd~5Vq~u4TS<P+k!g7w9D1fQkP?XI(Bp2Y0;l_UthWK
zF#g%*8*8`zoMj*aT7l@9S{PL-ctzgi<b<Lo1&oZC_VOoVE-yxZicq_`o<F~WsWriB
zI`9kfc1}eePEJl}D1;ou*(Oss67Zetc7eRl+~nnvNLR(>z}hdyMh8Kj{lg@M1U^y6
z$|X!t-X~xzJybsxXxR{@lIc?I{0)`zi=HH4BYV&;QfBK1eWL|zQX9Zi5PZ2uBg(Nk
z3JM~2rhWqO2><D7b1oSg{`{^JoJIhs-@|-hE(sS!xB-H>8nK;>KR(z$^80$vU-Itm
zCm%YpBj&+-huYH;{)CkeknDP3AHr5PzBD}dp69El8&deMRXvjH_<tyz{MT3fFV&&`
zYdQb(%h{(rxHL5?KR>@^$M_!PGQIW%Ui1CotE-aRy;axX4Mek2owbE8FNJGq&a@jg
zXliRmmm$gxuplO+M?>awr?R^YM^sH3=o=aFD+S$4;r4wtU@4I7CafY7QX9P~ipbt-
zqPK(xN4HS>crUD9%X9c8&ZmnHL(Zu^D7G71+0)(m@RuPu%YChobTCAI7pRR6j(+y+
zS<8+y7uz<TyKf*8ttNa5ypdd_+5tIXwXE55Z|KL?{JeL!%lA}e6ndq6LQtmzW471f
z_;>^0Tg{aV{}H|&Y$VnEgW}@B#PL==J=!Z@2gl0;$I15MNEZ>l;Mx%|w;;l@-vqF7
zcbfnE`Wnhx{Uu<b9~oK?$sRTRpTcX7743IQHEzrC%6U#pB{Lne|7ENHd0YLjQL+E)
ziTrQ!L?*y66{Z5;JdpKpCZZ01!Y{W0K{uYiww7>kx50xJg2L7w-0&5J#0e~Ii&P0I
zDwdl}NzY##@?Mli1(B~dS}l-p6NOwxJV?JxV}2w?@N^nDr<`HWCV@~BG9ju{g2n*g
z;W7#nbYB@mB()#8z%=BZ8+Sc%RL?47_fPEh^?h*71^&eD^L4HwaDOJq$qBRsGy}E5
zhA|9LZ^^F}61HQ3M2(<*oN}N7Rc)xLK@74}HzLjFIAWK(eQBGgT(}6WzCJi*19|Ui
zN34&eYYrM6Dj|kMYRL!n_E72obi+T9Le@?BcwkeIYWY1Arn&`Qi(7uf-JOL7zsO?u
zjSLBae#mK%A&^(%v-kSr<5-o8X3)7b%kB(q=+}_AUY>6t5+XutXkdBhEx|iNifjjd
zBD{w7)qCrW42?sTOxA&u(+=fSNBRO79v{?r=)4P71epN?r^ifa1|hGGNlq4Z+49p_
zkas!r(cd+RL78bEa^wzjf_ucz6CwkCek&9|St?IIAZ<1n+_3xkS4Z#Ul>QG#pZ0ti
z)`Gu%x=5k}wUFB&iN!!}=?<dz<r8lwL^OL{zIW^dMcH%KgW5bbk*2ofL%#1?*SmtZ
zNL7av5s9>t2mn_k61C?v<o0c!D@mqK0>-6>53x1{Xac$A;{%~4k@h2qXwl_}<Pm&~
zn6`p#eO=uPjRVLs&gkohdi`0Dl9JMDFm_RcE=NhX2o4<6z6xyb*ta&BzqjmmW$Bpe
zU~PT4+{f-QHi2OA)M4mLXPWw^2sMwf@B4gzAQwm0jh)#Lz8H*>agOAx>{MiF?_m=)
zy_H-bDH6nle?xT3`L#+(XqHGnCe2MuBDhX$dJ0Ir)>RuCQIPy3RH5*#{O(P#ur{k(
zZ$(T}k_|0-f%7iay1Upg#rS$vn4BdNO|s%1(UayPA(mXj`5IHpn$CM_g&B{V+b(VM
z%@Ho^yE3Kb&C(z`K|9DUb7p=Zws+=^kkE|P)<L3)wL=R^_8N8qaVACRlJ5;rVEXMW
ztrqXa`4ps`#oGC!n?8%MKUOW&vAQke^B}YZn?sDevaYZjkYZdn*{v8N^eItVDk#iB
zu@LzE#+{DM&NVNTP=D7?NUkBD=TMHq7S0F~>>aJB9X!vzlyknm-?>5=G4>h~hB68}
zZGPjf$?5R5$tic^|D7Ht_DTN14E?{#Z2Yfn#`@puM&?ULUWn#T8@Iq)6Onx(u@6OF
zr*q>&?FBrM?3=l$RlTeY!f&w4Bx{xKe|hZGql2-nl|;B6{n%bPXJ{>-%waz7xe?b&
zk2Z~dd-lhKw5p>o6YdeY<96`*oF4rtiaFtVC}&t+&*9`$2@&x}^Nutr_E6T5j~po!
za)0B2DpX_{NOGf`@OhM~pkPEnOAJRDmjvxd0UM809yI39q%4tA#*QyBI>*<$npHf0
zD1w?-(SX<FlOfMtXm99HF=DBo)7CDA+`6_(LcqB6-kw5{RpeYxjW@}DqC%cm%OK9e
z4O}20hYmv<9}(9luLda%J*td|D*yT7a-d0HSFngOhp>PEA?}^qlarIxLWo+?IE2k(
zok{WK8@7R(x_5MxQC7<!DYbwAk#8kY$@ame`2ExE=5&X7M3o_wDTSayzycv|?6<Eu
z-6-wy+3Z}9X<Rux<Z`e2YK~uZ0mt7v+8Z6tM;_Un_vE0Aa#D81*5T-yCogKB{P~OD
zg^laJm;Qdk-_JRJ<lNk`{P(j4pMDLv9rJ6<l@pw<t44m^yHsFz%(c~g=Y5u*IC6i<
z#XCPne9t_*d-?J$+m84MZqu)QGU&ee;l+0^?*8TIq}|@vJ;QXS<!QFpO|^y6!&&u1
zZRoanh-QHR*~vz5ocX5no3?x0{jxE9S|R=0v(WdqG%{_4h3p}6KhQXLp%B_jw|aG&
zk)oj{>l8du3Dv1!S$BslY9?{t)}l3z^<CT1YbzNjc$UBzr@H*$VNq3e51w&}R(<ja
z%EaADqhRM}_emJASNeQ;oZKH0x?U0KM7Bwmgp|*T9Gr3^6P`E=wsKc+70;C;YWLXW
z#F<QY!B3}y)MM|VOUT}zNo0_+6Qg8(Ih>OFP@*9JRY~J(r=X%%R#a3B`hqh5V2U;S
zUsySDt8($YY?|rxySZa8ov9gY^XnNpRn0!&%o!>K)BD|B5KzUF*bL~?!xntQ6`>Nz
zskx|5)xX?84!mmI+rX1cboQl;QGKt>j!WiBqmYl8zPXxo;7dhC1?gnS`t-*dp#tgY
zPuFrZzHX0#n#8Lv5c(&bO0Eh<WzOzN*bqW)zp5nr?DNXy(U(u&U-g#IW@t#EFxA=b
zua3~)?#hqdrx|sb6fvcwrSA#`$}hNLhh(>8oD+%!iA2g?Ag>yph_OGzinLLy9(G1^
zL-17>bV#(ixwGGIc&fj|Ry)jlVa7s!2m2jLjQg9Mrc0rkvwOZS#&6-TOV}(H2Q#T}
zyQ_9jPtS+>srGOpXC`GE(tM_A^PwRas4+WQnf+v9gk?7jS3uE0I`+muZB4wdWk2J;
z_`Y*R?EMRX(iDQk;C7-NZ-QW1%ysyaMFD$n94XM8xH>gjCYt<b4&5flI_h-jeYDbP
z&6<9_mAtt2ivy&BVmbqU^ru1g8OQ&^vjhPbw>NOhfv9G+_2k$$i?O&F#(jOQ`&+rW
z<L1ZNUoaPrL-}VLi-m~XIbrhal?{8x@ePMTSQ*S93YGux4PcxZsA($)@xUj#p{5x>
z&wlP4g60X68}p$KYJvx|2W<O-QrQQOwy`h+co0c|-B;*@d~r@F(QX#{>V)PU>@}^6
z#1#;V9fl_?pP7--g%Y59F+HS=VG+VMvoj%aa>v;##*r6+RgXR$sx=V()dJUOu6IQf
zYvn(l*souYJaY6~fL{Hr$@t8fZ;ag^ajeq~0rCsej*gBAQ<Km%tHtS@p77ti|9J!G
ziDfHuXSTdWIi5TOZmnbD2`#n2YCmiddvT-w%v#~8w8%&zY7tMk0rvHB%-;1|5A8(}
z<?BB>LQCzgw@PcU7i#e{@08D%&rvnJ#~o)R8)uIgU0O_#Paia|U)B~5p@O-st<liH
zEFKD!J$fNk(dbP)_jg1^h3b$R?`111PZhPCvESEH-<8S^^z@uGGc)rSex9QoslG#|
zrk3?9VD3HTNWrpX@#VRNQ<Gu88JXhi=d+^y{cTV1%+FAt4!!bj2)7t_WH>ZR+0qBJ
zy+g4}t^F5cun9kg$x1_QlQ?ICJy(GeZyZHAPzR1VQKd%%WhXIog$kBH*?kA8O~Y$}
z?0A$W?bV^XDaV^<JAHeS?%%(kIi7|*qi9n#1tQw`<+-RU+WoGx3Qe4bSwHKgUc9xQ
z*7pWt3L*ZaeTKO@m({`<L!qo%BM&{H;F`L+dlzR`eVU)3KHc0OJ`v3=OR-z0&yNR+
zXg3qk5Q;LODm0U%eR>PFc2ZW?Bby!dY_pv|U2c<_(Hj-og;GT&DX7jtC{qUQ``PWJ
zm6(I0;b{5Nwu>{`yG8QGYXnP>u!I@S_i3l^{Td<9Sa1*TEI~J`k?sP~rse#`{?zKI
zt|ddIV}otbw~HryH8CAHITRqY?w7x1cf1c*)XRLLxV5!TK@|FrgSct=rP;mx{ho?U
zB2XftS~-Z+w7m*Ozj_@@t%<9dXt@{|7+~hMqRYho%N<3nZxJwCb8HVcf!(&Aom;a|
z3l}?or2K2l*?l`M@Y6i{>+S^v1c)cqqA7K)M9Z%v=8*2TA0)OffB0`&08n1dUmZhT
z9(L8@bl{@SKXyu&0{a$s{~P{1s!8>|Q4ggZTTF%IGxD6!M1u-@qt!+7@xIMLiI8Y|
zo1opOg>VYn0QEpK5NBJ^`|Jh1!X+RJSzWfzInvsfa&-!hp>$`cRS;1Mxb-}{S<}=s
zbHA7<Ks`~*{s<TKI2>YpSxq*e#%J#A;kH2&HR)!wooRi4YvTcQGQ+Nk*eMGz1z+$G
zi%%4dr-Deke9tX=_HFd3V;j+oyk!ZXV|0_YwHe4xL!KSGnQxl6L*@P#qs0lMF(Uj@
zvLCNj?EdT6x)PXT9EI(zj!@!QKdq%vTqq>o2|`s_8mw)YrTjWn5Sx1j+7+WMdGzY)
zJMd*0%?$P_>k_f15aNmomvK=X&nidOaMR>bwHGc!0V3A<YoKz9?^`m2c2c1-xa$Eu
zTDwJjVs;BV5x*)P@BRku>{_}umoMvhELqmJ_ZdjefBtq-8Z>o7hq)yMRl%8H1~j7Q
z{$V4C1h|XXy_h*5Z^&c`x9eCltl3Uf=M^q3e7@gIxD1iUo#?OYlcb@qc<flCM6qGp
z?VCrMvY&_ta6o&dwpSSRY8Z>Ko<VjHa@`=5*AGgxxtb8@N6MYS6RL+l|7le)KUx0`
zR@#V9zQ0Q<GQ{l**NV2F<Bk}sR?Y&nULytwezIrDd;pFkY{(;Me);kT)DiEZt^5-3
zT|5QKZV#hDRJ{zm=O@gq`tKxcA%{P;nYbLsA~hHi-hbYwcMp|RcmYXRXA^WKuaK-=
zgmgxBW|SPx;gqO-qkJ8&)Irn&^CX?wOAr^M7<HNbuTQ%tK72<g8Lj&_f7qg)?!^9g
zSB-kbVMtc}%x!E`QTrq_0TP_%H>w_fmbyTCxdy%&mKF>P)NEGj9NL(?5}Et}Bf$*R
zm;S?pKpSKH-U4(XQJ5@9auWBpqcZi6g~Cds(xfO{hMu9fdNh7i*iB~;-Q)k+O3>`q
z<~h2=(wn6oTgS*?UweWs&JLwXS}Lh`;`$~hCrd}!cKa14wZ<V}Ky82SzFGOB^o9x2
z+M<1*$ceT8*-k!e4@}q#IZKlzWf9>qaj*Ay1b^Z`pB-gR;(`UUkh3@tU9N$MOV%J6
zok6rYN<k<;cA;&_^&ij|jyW_m)B(C_O)t6L7k5)3lVZp(j>(TfrqoTK?U$0f7}PNP
z1;VD}1ebbEZBvB9f2;{H9zN`I%#u(U4Nmslp)`uVCI<9xx&tgCydw>tVY^q5b$Du{
zNnJj)ny5j>P?9e&Rc*_Zh9qVTK$1bE#cILqhYHkt5ywH*SRv{);+F>W0KV-bX>zyE
zdJLd+DLyeH?qmJe4Uo;OzUp!v3Rg0H0)6^@{$JCY9xit)U$#f$aKHbRsC@eL+w_tZ
z-=>%RyW9L90*i0d@lW4!?tgs+2giTOTGZ<>m&U<d&EO&3Ad)_S40CQWv!EPGl~m+K
z-QX@0oZQ&^NmE;5$q+i1?!hoUg4<o3og1FA0sPf4{EIEda_l_y;4hM@lg3KYu>Bah
zce)7MV4fD&oqi*YfQ0EBNuy(+k__H`l}fmWg(k2K@V~u5O$mo#tum4n5bLGLWuRAw
z0m-<#sCHfE+RejVX3LSkZGjqSZTvH2DcnM3$8P*kg4EekXKnpUdo^sb+Pb=P?<`_&
z6ctG<&f1upD`goZT@XJ9B*-h}7!%g;dvIkQL0lJhyu5@tCCN_TpL-Z4BEQOmzo(2q
zsRr3i!};Y9t{s53U4)+w`uYGgM21N*hjGHT(c&KpGwnYep;pzhI<KX(BBCdXC$>``
z&c9mdF;^D~&RsulK3U1qV1}_&3RcQNiAc*{-u63$j7beUIF1x_aK{cgP?xiNKiV&W
zOlz_&n9uf10982FRnBDi#sn`kGqKNrngx{zo1T`QUjGe5iq#iAKkir4)@Jw(M3(M)
zkJRHMXlV-r&Q@_qCrdxHLI?5U)vH%Un~u_0%!#wIwYA@1qZrhxf=b9<4G}@OwU@`!
zi~?)jwfw_uUVpy9%uBpFWsOuXqsXnMtKtdWul|e*FE4Mp$g`bVVN)si#`gU66Bijz
zPpUEBl@^;TD&7ohSki6i`**&s_juaEI4$hHa%3swtAm+C%L>o40ekP&^yIG?#|Sfh
zh*|x+GpH};$pr+Sfv!h$#;x%2U6KU`9PaQb9U@(v{b(V{GbH1HIF6*(pMDdX;PqQ)
zuy?`e=~LuA4&MZurEOR!B1KOZVMDK{v<KJN{N=y=$A6Lk_?Jij|DkD-px_&oQmx-$
zG)^;I4?o*22Zm>Uk{YwiUC$e7vuPIU{5OKn?6V!}EtNlJ)Uo&%@qEz*la7o<X_ZLz
z0xJLRm9u8^u}*3OXPK8FJxv$+-S9b031|`GeM`zp&AOTzb>@bcR4A0|vzNzN0pFyH
zEYT{PI6Gfmi*GBF-#Z~!71AWnR7>;_!h8WJ2V$JQ9}j{*e0yzGH1a>CRL9<$fAfcU
zjoB-zL3=SFqU`>@c)R0{+Bn<FbvzFQb&-urNl6i>h;d8mGj-m`wvb^a*d4D*UvQ_M
zt0WGqJIv<g+m%W|NDhfqtEm1>-$Zw3nxSSyv~a}*=CL<90myJHDNFNS6im7wzkE*+
z=V4|J9h2RHikN9uM8q*Q=9|*b?eM>UPC9)WkloZ=t34zC0-<2OH(8eA=6l0FtHri`
zmG9dHU2lt44GCSgpZa$n_%A^8ueHEL!+*Ke{}Z<=-jIFOf{ge=_hJxH#*+Rt@YqjC
zlL1ll1D9D)_y{IAQeUU}hP0q{5!47mTe!dj6HrFMhJQixLpkYzgD;`IWK&jG`(i`)
zaAPvU12kamd-CMTOk=U!ebSdmC@9k8LFU;&mTP8@LMttsjXSQ!#fDy;y033TfYc<~
z0C~WmW2%XA?77kpceXpAbOce<Hb@vMA4@t|d=nIF)*XMNFA_qekvo*g)F(|oTN|5-
zXE*sC2|mQ=p5z904ppVmC-CVBZj}t05-h=4nix_T2H_I)1&kRrxt<N7s_yo6?6gE>
zx;;pc43NP6XB(K|QdNRTbGM~u5;&ZTpv5V24WPW1Eb9~4*v;FMoF@{j9L#`pew;q_
zEDYqVdhCm6r#E(b-aOGiU8fQROWf9k_nza%U+GrL@?6rN5+re~C5a74YZ@Bv!(G;|
zd@IrFSZiThl!2jM-MG%)OX)uq=Cn;D>4ltefLsf0Yq3sS&Q)W8ngwO4<{^mP^+JvW
zf2E4wSY*k?$s@FY-Tkz8Xc-$m*JVdLaSmr>X6{l#)jzk{No$>>w6wJL*5Sz;1U_F%
zUdvIXops{t2Y+J86`RjjYcxcOENv?)Vl3X?G&bxU84(eYnj3YYmdtHB;59c50Dn2c
zU+98Z+1ky&KHYHN#nJIAHm;`N^jcwtmmoj`QzD+^GYDoFRGrR@MQm8Z&0vo{R*D=J
zgk&2*42c0l45jf$)-j%z4~|W_4dL$sBh1;^Ie$ldXSqWoE5`4t3nb4cgL3Ca%i<|!
zy)}_a_l+JTnvV~XzE2E3yOJJQ`9#`9Ha<a(q%l&CmxEq_#2S^;FaU8zxRq2-)jo0R
zmEZP5dweb`mb7c57nzOiF~_DfQw#jg7vs!zKVXs$w93jsdktP!725D_-fyhHSpNW=
z9_6ypDl!bQw4Ia0Pdj8jC$?JOLv71GD<RtH={X_O2>(OMsh&@L!+vgu22aSy!zjb*
zArhmaqM}mAi{My^lG$IlPyZ0CaH1_k<dT!2-3D*)R@$?xs!?<e5+r@79*JxP!PT&H
zTuX)sQ5|83{+L#V6g2%OgHRrm%hO_m@gr(+e&`bvGDWtd6hxXMf{Q~$D33t$?Nb^B
zbM;i)k{uR%_P_vkmVCa+ABO8CjY??7P5QWB63z5P8KR3vP!z}?4sN31wL01FSNmf8
zLKAkB*``enEiMd6cHTZ92Ce+5FqxTsfwqvT&otBWwIce+u^e&9NEigSKxRU8&SVl6
z*`y#T??Y?U4f%Qno|8@%b00bQh-^&!RS6{`boLx{2ruiFo66Grs%5T<=)3f-9cJO%
zB-ekhko<p~$oLBN&I#3L|0##fvK__t(?OW__HkBY)%|_?TD|6GX3?+(LY<{z8-PD{
zbavjURLa1s-^nXSM?t&C4Sx7F^Rf3t+BET0%KQ_r<Uk<p9Pu`n9dS8D#g1~<Gt(N3
z{UJ7685JG_roiqb(12gSr=1QW!?q;J6iL7{C-e|>&9*Ok1$`m&dWe+24%sdf<4Y@0
zNC*+kLRIVlW^Zw8E4Vy?FV4b{jJtx`MpP$f%poN2QhQa5N{LWMkW6_Dg8nF%lvT+5
zi3PB|JC#TWA=q~s`CiE8%SdvM8Vwq%^BNduR)F@fy$^dNV+X)jDkhda3&pM*1(7YU
zlnU0@6uNriAjrf~(kduOSbai|KPBfuv9OeM@(Yp%d4rO>J#ya)#{Vt9@jndnapy!Z
z^Frj04sr@KK4uA)km8>e<O1Zx?g&3)n3p7|l!413edFwR5o*Rz-rS|+jP91(D8iA;
zA<cMX`h;K!6iPv$^hpJZS+XnqBj)-92@)3h04dL5;pQtB=hPsteJn_d5+sV^flTy7
z1V$w$?u%64<1vt~jm21f2?`3-y?)?1{42U^<DDcOHBeC_?+R{#_?ApPBYXr*g3Jb0
z3i|x+rWpoE#sQJjz$=ZS#<WdoG|44Tn2a;@7mnlqw|b)3|7FF|BEf0NIU2@c9YE_S
zX+JFk^(%$}c07(%N1GsMqRkFM6DWzPf0ear@=q}Fql@$rl9E4yvn*P-yY!fDXvSny
ztwcG6ZqAUkhZ=vu2#FH(#-$eJoL7A!C5~x2BiyL4j8#@*<i|_H#U%H$17S?v_J)nc
zuk$CUt&;0&C7ikqR2Ic;+j4neDX?<l#7S{YFQjg$=jcdq8G}p*1h?;kF}A^IIWt4V
zFDHXWAalEf5FPJyE8&G6?Fe``c3}<Ii-nX#5B+H|SULNyz}kBZ8@-`BIXZqJ7Yvci
z9eB6J3K%XaCY_BqVT#g1*~08lIHVCyS&7W(g|~94Uf;G_OaK}>#Yj_5ZBtWLsR^NY
zzagLGu`!(O0A>eF3Kj56*cgyWU-dRqC}eaKHo4Pb2u)aICP4NNQDom3pzYAIWdV}`
zKR^QXy2z<dH{B!2jH<83+sSH}N*r=~kRO}Vt;dQ6X^aOTOQtplk%B`Oq-Yifnv2g@
z71G+;!XWVwhqB?L1#RYUuKd5S9FxYH2}&->zn3!X!9N>)L8FP`fE4OMN+uC0ws{Qc
z_8C<&qOV@A4f9;VOFIUCYMsznyuhz3Ut#QIjFgUCC@FIVQu|FLF%gXvo-uk(SQ2$@
zBE$Sb+z5t(WK>kP0trFEb`jl{6{^w$_pk(H404-Zrf{(GLrj2NhsI(;Ze#G$2ck^}
z(jnRsQm!HofK-Tx)6$-mF`Db(azKSH$)R;3X_q@zLtBlnQ@BUJJw3ns0xQbmiDj=5
zrT{&{Kmq~id|XMHPA{ZZwD;)9=`a~dBJe;`>;V3i>=R}5Vi88J1yf;XP&WzVUl_i*
z1<!^kD4F(3Q^~&*g3bWj(cH@FBgA{bM4<xAS&GC{4C5roCuMbHDa49KuZwzaBg5jz
zTn4gb!Qr_<^=gkgg(=#uXIQj?uyFMJ?*SMbFp!_%pS&|+vaU^v432$)kU-oaTgJn#
zYMP>{TN0as)J}VAqe)?jIoAR=P)4SxtoIte=7#q1C#Y|_q_qO<k!g&V&`DZKPzM?^
zft7xM2yEldQy<8@F;OLZOumkeh%ia7JaGPMYnrfZwSz1($9;6O(b0BR(u6EFnI;pP
zj5Jvq*q7{>8NMn17)U>+fibS)eum!$mM>VcC;D*^y0<SuP=otug1(p(D$PhcaH?nB
zZt5|Yq~Aeeh9bHjQW}MNQJyHr$glw*3zTOrK|5T5M#anHHlos94@|_+P*3Ixk;EQ+
z2j=2ouhPGux3&bfAO?S$i}IIkQ^hy?TX>Yb3~^1&_ft$nfF5H6_g@;5i(1{Jg|+1<
znc-71%Hk3+(CM`BjntB*y=vaww|`v%e|K}fCFE*u7$Y`H2HR;HO$Dill)U+UnFCx@
zf$59Yd5Y_OlR?nqD5W6mbf>He%%ga6(e0_)NGnuUN<k<%*7)@QL3-!O5DdW*w4Tz;
z^=WEMGEI2~I_8HMTG5bw&&ilyS9Xal?}L9!C}R72Y%@EI8DDdW^h3gx+q31yZcLh`
z_hp6EpEw(6cYgjbZE_zlpd03cI$)M5<8JueMUm{D=Q7w*d6O){(UR?ui~#|#z`k@E
z<20TM){G!C!Fbslq+%^tf}uIhmQK|Nu(`=BOTqnp`A3LKB|<C{LuZ_t8zySA2}?tu
zm?!4)mVdwN@n6JcUH?vYV0(Ob&Ua3q5YzR8E}|pfa6qA2cyJ|ho61Q&iscv*yq&sy
zI%^Sq(wVJrZCRZG(xV8F7ePG1&MBjx*Lxo(vw8}6kDiT(6Sp4MDwtTyy5ZuU6xj_#
za|t_ve8_%re#)#+_Ld9XdG&-C2gk<K<ZlF6XA+qjk@^YI$+*55w3xoENEUbQM?Yw2
zd;e$(6vv)S{q|D$C&TZfdMNH^jEH-b!61j33YYx5-m{tBWdO+`*aGOYWaA1VguKls
zn=PiftS}v#LJ(Oyl(5Gi>b|<ffHe988BYggNa>8HQ$$uT1yK!iG?hsn3e@$5f8jHK
zgPXD#o^uz*+LU52>|NBn50D`<`Iv^iQ;AGC<pCCG!f2=Vk(-ZX?bePvPu@x2INb0%
zDfgFzE>Y9g>d!?VZf{Rd%na``dULaV^>MBpO8MiFqKS5`!9(`a*y8Bo-GwQxMwn@N
zm#8Ypt_W;s=Bj_*?XD%AS8q$b)~p}mu&-WIBxI}r9sPL19`@K_+JF2`ur!LAl^6m+
zo4%=#Wnh>*(*kIj(OgVq4^fzU3~gwsl)PyDvsDwOe)}>$AjZ`ixG{nWSf9LK3`yrG
zrl*QvB$%VoA5y=fnlD(k>Lj3}Y!=2W3I$?#T^II5IZ98VL}^YYj9Q#CU7W<IuN`ET
z0gTS{BIH^&4{g21LW7fQ3N(_!8(OiGQ{SzVzKHRhABee;IS~X-l1dN6G8>hGNPvKJ
zz6mBpo1QXNGg!7`@{ZGvPl?O0C6pRu-g`2xkxEF^5?dgk3fZX^B3K~`2t55phC9(e
zgm}+{V1lz8;>byG0suf_2==6Zbp}%^{vtq?ge~_Oqca|Ptq!vBiD848`A6G_RV&la
z(ZCsuVwTqzs6pa9pJw1Dy2xr07XZxiiC4A~kR^!xtpW=t*_khQv+(#GKyl=Ea>t0s
z#;A$r4*!PvZ+e(sLZ&K%*F0IkeB;|&Ziw(fE<zF}IyMsMErYIAqDQ*ZKG!9Yg_M;5
ztbUZ{iS<|-*e#Avp1A^V?*_%gD+u0mJKyd|3eQeXNg=bhO308eL`Y17mcbNSOQNka
zuZ@ZX^Fao9uEPXv#8Qi3TNkZa?#rf=cU)B8=&#ahnQ$odHm2y#JdI)Os)2!%=t>45
zlkrrGbCruo`*T>_2I$k5LtpnL3`Lgw{O3k74BR4F^}J2ZTw6a}m7&^{e*4qO28Myk
z#2f-zlIIRGxuXK}u|vo+#P3Pw6g)GGcXUXF44tHRN#^_JgZb*B$)<tS-R%$<41+6g
zS8TyhJmT;#mIM)n{7fLUKV;aFwt?O86Sp^?W!m@N*mR8-Y|<+%cK56Bc`HT=3QuHa
zt1i~rRAFi=e=1KexY^bkQ3KN|^@H{<>R+1dZ_4V6izf-G4Ah!40IxX>M}?EZ<80B1
zLUM>#*fy6)I3Ugz4ZPj3q7M*o-hr%<0i|hQuwMUmW|50p-y2`G2jmY!)F-_H1uj^2
z?YW+R+rE&pEJUR-+#5UOk`WmbVKfH>@`OLtg}cu7s=3E^yEjPGjc%q%^tjc_&{A!*
z@|#Xzd5NZTmrb@EBnhT(|5zc3;Vc7d#GkL4h{gsbs}uBvv<x_7<TwEl$Ob^_%zRLk
z3-V?~dn;pRLK1)$x3-GQT7J3QR8M3eh*V2f@%$y|hP*_${XxVbWE81H^4PvG(4LBY
z)=kF1@L{00xJ@T3wp;wrp{U46#=hcO)~UiXYvHI4{E@kiboVO-k^C;*!8RXQPASMb
zvo%B8QvX8X?-R%ocVY%(C7HuKaOXXQ2&JS#4LL=kvgXf<w&MnstN=a!PS#4<=v@`*
zxelv%9nU!9CW+o=rasv#n2ZQjN`>oZ7hj<mZ5vrD6X$mA4$<%^*<)a6Lh6F=8Tabv
z$0ead4iapKLr*25%Q4GW?(S#2iO3Zy<<As5>j`K6={KwFq1Ir4I{1Jj%Yb(DNS?mi
zBY!gOjFMD~;)AY@rDYicyhpA`L&7;B1|cfQyzFj}f2Dx%?F{#%aCcR(i6mR?Dp+6^
zh(UcMST;L~!IHbZr(C>4$e6icYxmBbmcosST58xzFw8r^{*lPkFg>9{3$yV`|A~2_
zwCS%)VCO#=cdL0~vmBzgQjKVVTzxITNPc7kQktWcJ+Th^h791O(5n=NVfIo)TRDa(
z+lBC5iof6yjL|l~Dhavh@k=}Ra}Vuo-6*kHmp)c+@zZH<*osNvcje;OGlco{-5li$
z4+4A>4CRKKI{>FmeveNe+bT0bt^H+2XXS*(gp;##7nJH1WPTb6_rZMR&v%f4$p|*D
ziq;=-@7rl<8Rv4E#gr3(--Y23_evBhV71o9w=i5ltPyz|_Sm^>31nQJAVMoZul<GG
zcpn+nrMWJFw6bitT+dwIWLa~U+;Q~%f7~%M8C+Cd%-I=?mVAJiD@R7d2)o?%0s^}$
zID`>k_5k;n$n0mv`X?4`=PwqX>_{RFZRJ3W4-lcjFJ%cO7sri1T}XHx_y&vg7e?N@
z%)FhzG?*Yk(qUDd<MataqL0Kg5O_{diI$sZVb6O6NbNzlqt>|c(#P=xq=W?Kc*O-E
ze}X#@!Gls8Bm>Za4s^X_$R8&_c0MP)@Uw<m8`!!2?eW^}op)#NVBD1qR);j`>{JUg
zkUZQCynCSH@OBib$`E~Xa*x)qBV@o~0n(Tir&n9LssVo69<VO2bD1T!JsDRsMh0Z=
zleljIeJbV;jgdaMl2NsLhtR<j*FgE{8$j<PE(A$1twtLAS_~NQF=o_ceZH~Pp5!rD
ztrC3N0c81PbNTV?Q~}2ga`gdxKh;8uW$>`H59*_GqF*fac?Iy)f*=F+uvd^EN!u*6
zcGbT^Q-c}O#)p^`mxMW%rLw}niw>B0!ywYspj^gEtMLR(o@byPrJR^fY5Rfyqq!>!
zYVwStKX%+IN@vuf2*}ic3yPpt1&LUfp-}`a3@9$4DxyY2Kw%<6Y_%P=S~V#U3<3id
zj2IA5R47D?8&R+t5d{)TF+_-oEX8Orq~~I%51r2Rr4Qwi<>$-yf6Kk+o^x(>cLq3x
zg6g!0j5JE<0IL$8LS2lExC2V4@&U3Gj>W=a476<o_swE*@m&w^$ARCAzPc_F=}*Ws
zFs4IoKidm)Fu`4zbv@K<CR#O_YrDxqul_db5#4#XOiC23e^C~$m6XhOjgutXqy+kV
zI#b%D(UOhctf;lppwQO+lc`qG+<mzRYeNg)qz!sgb@#(V7-yWk-)rTcX|#Q-DcD+<
z;FufLQF|?=Ar#mvIWKCFUMaBL)`;waU;5BpjW{$!WM^8yo>D*$1k+mqL?^hsmS6yk
zVA+9Y-#tdVZMb&8o(NRWa;Q?kfnnTNNi$C`h&P0O(2JEz_g(&a%hjaw1=P5QIuelA
zvfI$%bw?AonBO`scK8>7^r<YsEqGq0LLuiWBL?#%B8`5a$qU_<<o=33e~xf)1#Sq6
zZK(|qNi7JhOA@ryz2A(JO|qz44^=(xiORAJo>YdKum-`AMX%bhEk!eNXy>a^!Gx<9
zZccX188^DhDM56~d2pT6hkN)Rm31r{c2s>m^`O7kv}~u~DHUsmE+6Ky_ZP{67g@H_
zEL+v?Q_j<aOJXWsW=SQb4gEtOF3FYnhxe!#X6ERU47#$yW_Da>r{+%YoZO<K=<F3%
z{@3wdMI$H7eU1}Qf#~HVu&&>Y#t5VcX+DDf!#++oZ+fM@T14mU?c)=a@Pv+REDe8<
z!6wBEY>G}I7~t4;rW=q2Jt^d72Kbog08Cm20nsdX_mjBj=YcO?1L{sOOr|zFrnU4b
ztNWsiy7r$fcaJFFQ=?a{s{K1b=D#iu=Y1X@AAdeSA7*xEP{cU`YU+WhzY0cETQa|o
ztE#HT+uNtVKo%rkyyv}EZ%ojwPJAu39UyF7f7<>}Llj@aMx|#$N&61`MUD^?2r;e;
zd@4PG!o;G-&=wp@<L&IccIscrEg7^`K`@ZYWHmtZsDV*<b7kTrL%mA1L0t%N;Bmu{
zAw#+WO65U<0v7_<vyg>mEVA}CEH2mjKJLMT2l)u|9>GT%N>=nTAVp3sEdG*FFPn!J
z68@tQx7?PGVVGqaYq(dr$N*4IUvtrkQylRiV`pRO41@&6)mk<9Lqy|-iWroE7?^@T
z2cgXOzQi+jYbAnC+A_XPeb{AzAt9-(XV+pQsOwUWp%)Z*8lTy0&UqpiSo&d2kWy$g
zs3g>ZiOpu`6s$vryAT~NR%;o?-SY)zFKjva4Eb8ei=N{Otbxa^xFW&WhBJ-50|e@d
ziVB33UBm0UfJ1`v&@OH<2u9l2<P{ZliAk~<_#H@=2d1`AqZ(Y?Ph{&#@Sm-r$2q|{
zci~+huZ#G|sQ;an%Y7(h>#gVZAo&a5z1tn}FvW`^7B2I<C~?kiv%?Z4CTVgZ6=YDG
z+8P$-1Y+M?kb0GkjS^fgKKD{*`s|Dh2ndMNHzc#LBa%v^nllpnUWY@%@y-o%xM6N&
z!<<c8cZLz2m;{EP_)>r3(kfhqk5noGWF0+T!SLuV90%7_lG|AfFi{7OD9jX9a)t5*
z(G!6*Rv9Mh4u6YgOBx`MsAOX0ti8OWE?T|<sTN^5thbo(KrUC%#Is_=KhY9(clL%b
z&v#_J=q#3qcO@Xl@9hjO)o6?&EUEQ!<#gADaF1`d;QUOkQjuN|Vq$xxiL9dVzBxj&
z#_=0?9C23thLdddu(99ao!h$7oj3Vo$Bw0xQ^>*#zbAfeLFA%nrB-U$*_-@yP-Yh+
z>0uGcg<@Sy(0<s2x9jx|O1OcFz283*Ri=quYM+Qs7mhT@uGf=XKZW4ac<3#d=F~eD
z`yTgTWRA}+^Fm;gehSN!Ja$0r^OFWqSs8s?qMxGco?jB-=DCMj^<oEJgucsU4B)2U
zcTC;5Z~NR`O=9SBCc&l>Yq<uoK|07WZLpcFd8^ILgdLYA=m%?NkrkZZm@s=HYHGR+
zs`3C6AM+s1&%cKtJ7ur#$&ZkP<NVqqq^>9J9UWfnY=)U{rlTm#p2SF+u7=Az8{G@`
z*lDh=CHs0ix_imJYI&v&bG@BIT?t#Wa&uj%kRsgD_gc?~82R?4O2nxI44u2NTObhd
zo0Q7fP2UV+R!yN#G;T7PO!D^wi_ucxiRF6c#*G^+K_>jz>r?SV7DYwa&#N+;@eO3H
z9ymUpmF?w$IDRGOX#(N~KqO}&`1ZCObuAc|cV!S0_K7(v8^bvu-Gnq2_2}x;pYnt(
z$-JmqQ~-R_<-1g6lNL4>ZT3Y8#Jgi56$2^Gj=6<#4f7iKz_N`MUSum-JHPdqhpfEc
zq$^1>oBSkmBOmio_gS8h(C4AG!qy&`*7O;0sKX9^cJa$4RDS@}2*o!LP$(ji={V!%
z;K-X%h&E#ia^F^~)sQbaqXt(4)x#HS*QVhlYXbJb$2r%Hcen)uAN?kdVUFb;Z3#5@
pR8VD-IX1!pYZYJrciKpYW##xGqgI%*&}@-mILrK(7Ay|?`VUge%klsK

diff --git a/reference/plot.html b/reference/plot.html
index 0ad3494b..6e8d500d 100644
--- a/reference/plot.html
+++ b/reference/plot.html
@@ -9,7 +9,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -51,7 +51,7 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 <div class="row">
   <main id="main" class="col-md-9"><div class="page-header">
       <img src="../logo.svg" class="logo" alt=""><h1>Plotting for Classes <code>sir</code>, <code>mic</code> and <code>disk</code></h1>
-      <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/main/R/plot.R" class="external-link"><code>R/plot.R</code></a></small>
+      <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/main/R/plotting.R" class="external-link"><code>R/plotting.R</code></a></small>
       <div class="d-none name"><code>plot.Rd</code></div>
     </div>
 
@@ -218,7 +218,7 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 
 
 <dt id="arg-language">language<a class="anchor" aria-label="anchor" href="#arg-language"></a></dt>
-<dd><p>language to be used to translate 'Susceptible', 'Increased exposure'/'Intermediate' and 'Resistant' - the default is system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can be overwritten by setting the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code>, e.g. <code>options(AMR_locale = "de")</code>, see <a href="translate.html">translate</a>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
+<dd><p>language to be used to translate 'Susceptible', 'Increased exposure'/'Intermediate' and 'Resistant' - the default is system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can be overwritten by setting the package option <code><a href="AMR-options.html">AMR_locale</a></code>, e.g. <code>options(AMR_locale = "de")</code>, see <a href="translate.html">translate</a>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
 
 
 <dt id="arg-expand">expand<a class="anchor" aria-label="anchor" href="#arg-expand"></a></dt>
@@ -226,11 +226,11 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 
 
 <dt id="arg-include-pkpd">include_PKPD<a class="anchor" aria-label="anchor" href="#arg-include-pkpd"></a></dt>
-<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate that PK/PD clinical breakpoints must be applied as a last resort - the default is <code>TRUE</code>. Can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_include_PKPD</a></code>.</p></dd>
+<dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate that PK/PD clinical breakpoints must be applied as a last resort - the default is <code>TRUE</code>. Can also be set with the package option <code><a href="AMR-options.html">AMR_include_PKPD</a></code>.</p></dd>
 
 
 <dt id="arg-breakpoint-type">breakpoint_type<a class="anchor" aria-label="anchor" href="#arg-breakpoint-type"></a></dt>
-<dd><p>the type of breakpoints to use, either "ECOFF", "animal", or "human". ECOFF stands for Epidemiological Cut-Off values. The default is <code>"human"</code>, which can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_breakpoint_type</a></code>. If <code>host</code> is set to values of veterinary species, this will automatically be set to <code>"animal"</code>.</p></dd>
+<dd><p>the type of breakpoints to use, either "ECOFF", "animal", or "human". ECOFF stands for Epidemiological Cut-Off values. The default is <code>"human"</code>, which can also be set with the package option <code><a href="AMR-options.html">AMR_breakpoint_type</a></code>. If <code>host</code> is set to values of veterinary species, this will automatically be set to <code>"animal"</code>.</p></dd>
 
 </dl></div>
     <div class="section level2">
@@ -270,7 +270,7 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 <span class="r-in"><span><span class="co"># Plotting using scale_x_mic()</span></span></span>
 <span class="r-in"><span><span class="co"># \donttest{</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://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
-<span class="r-in"><span>  <span class="va">mic_plot</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggplot.html" class="external-link">ggplot</a></span><span class="op">(</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>mics <span class="op">=</span> <span class="fu"><a href="as.mic.html">as.mic</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">0.125</span>, <span class="st">"&lt;=4"</span>, <span class="fl">4</span>, <span class="fl">8</span>, <span class="fl">32</span>, <span class="st">"&gt;=32"</span><span class="op">)</span><span class="op">)</span>,</span></span>
+<span class="r-in"><span>  <span class="va">mic_plot</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggplot.html" class="external-link">ggplot</a></span><span class="op">(</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>mics <span class="op">=</span> <span class="fu"><a href="as.mic.html">as.mic</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">0.25</span>, <span class="st">"&lt;=4"</span>, <span class="fl">4</span>, <span class="fl">8</span>, <span class="fl">32</span>, <span class="st">"&gt;=32"</span><span class="op">)</span><span class="op">)</span>,</span></span>
 <span class="r-in"><span>                                counts <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">1</span>, <span class="fl">1</span>, <span class="fl">2</span>, <span class="fl">2</span>, <span class="fl">3</span>, <span class="fl">3</span><span class="op">)</span><span class="op">)</span>,</span></span>
 <span class="r-in"><span>                     <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/aes.html" class="external-link">aes</a></span><span class="op">(</span><span class="va">mics</span>, <span class="va">counts</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/geom_bar.html" class="external-link">geom_col</a></span><span class="op">(</span><span class="op">)</span></span></span>
@@ -292,23 +292,29 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 <span class="r-plt img"><img src="plot-9.png" alt="" width="700" height="433"></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://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">mic_plot</span> <span class="op">+</span></span></span>
-<span class="r-in"><span>    <span class="fu">scale_x_mic</span><span class="op">(</span>mic_range <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">1</span>, <span class="fl">128</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span></span></span>
-<span class="r-in"><span>    <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"with scale_x_mic() using a manual range"</span><span class="op">)</span></span></span>
+<span class="r-in"><span>    <span class="fu">scale_x_mic</span><span class="op">(</span>mic_range <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">1</span>, <span class="fl">16</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span></span></span>
+<span class="r-in"><span>    <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"with scale_x_mic() using a manual 'within' range"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-plt img"><img src="plot-10.png" alt="" width="700" height="433"></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://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
+<span class="r-in"><span>  <span class="va">mic_plot</span> <span class="op">+</span></span></span>
+<span class="r-in"><span>    <span class="fu">scale_x_mic</span><span class="op">(</span>mic_range <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">0.032</span>, <span class="fl">256</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span></span></span>
+<span class="r-in"><span>    <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"with scale_x_mic() using a manual 'outside' range"</span><span class="op">)</span></span></span>
+<span class="r-in"><span><span class="op">}</span></span></span>
+<span class="r-plt img"><img src="plot-11.png" alt="" width="700" height="433"></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://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_mic_values</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="plot-11.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="plot-12.png" alt="" width="700" height="433"></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://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_disk_values</span>, mo <span class="op">=</span> <span class="st">"Escherichia coli"</span>, ab <span class="op">=</span> <span class="st">"cipro"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="plot-12.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="plot-13.png" alt="" width="700" height="433"></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://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_sir_values</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="plot-13.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="plot-14.png" alt="" width="700" height="433"></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/proportion.html b/reference/proportion.html
index 8d7b1ecb..a13c1a17 100644
--- a/reference/proportion.html
+++ b/reference/proportion.html
@@ -9,7 +9,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -157,7 +157,7 @@ resistance() should be used to calculate resistance, susceptibility() should be
 
 
 <dt id="arg-language">language<a class="anchor" aria-label="anchor" href="#arg-language"></a></dt>
-<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
+<dd><p>language of the returned text - the default is the current system language (see <code><a href="translate.html">get_AMR_locale()</a></code>) and can also be set with the package option <code><a href="AMR-options.html">AMR_locale</a></code>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></dd>
 
 
 <dt id="arg-combine-si">combine_SI<a class="anchor" aria-label="anchor" href="#arg-combine-si"></a></dt>
diff --git a/reference/random.html b/reference/random.html
index 516429f0..82c0ee2b 100644
--- a/reference/random.html
+++ b/reference/random.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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/resistance_predict.html b/reference/resistance_predict.html
index 049a8cd2..bed98aff 100644
--- a/reference/resistance_predict.html
+++ b/reference/resistance_predict.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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 12d29517..fef8ee73 100644
--- a/reference/skewness.html
+++ b/reference/skewness.html
@@ -9,7 +9,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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/translate.html b/reference/translate.html
index 0c262f06..833f26a5 100644
--- a/reference/translate.html
+++ b/reference/translate.html
@@ -7,7 +7,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.9078</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9080</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">
@@ -83,7 +83,7 @@
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
     <p>The currently 20 supported languages are English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (it), Japanese (ja), Norwegian (no), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), and Ukrainian (uk). All these languages have translations available for all antimicrobial drugs and colloquial microorganism names.</p>
-<p>To permanently silence the once-per-session language note on a non-English operating system, you can set the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code> in your <code>.Rprofile</code> file like this:</p>
+<p>To permanently silence the once-per-session language note on a non-English operating system, you can set the package option <code><a href="AMR-options.html">AMR_locale</a></code> in your <code>.Rprofile</code> file like this:</p>
 <p></p><div class="sourceCode r"><pre><code><span><span class="co"># Open .Rprofile file</span></span>
 <span><span class="fu">utils</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/r/utils/file.edit.html" class="external-link">file.edit</a></span><span class="op">(</span><span class="st">"~/.Rprofile"</span><span class="op">)</span></span>
 <span></span>
@@ -94,10 +94,10 @@
 <h3 id="changing-the-default-language">Changing the Default Language<a class="anchor" aria-label="anchor" href="#changing-the-default-language"></a></h3>
 
 
-<p>The system language will be used at default (as returned by <code>Sys.getenv("LANG")</code> or, if <code>LANG</code> is not set, <code><a href="https://rdrr.io/r/base/locales.html" class="external-link">Sys.getlocale("LC_COLLATE")</a></code>), if that language is supported. But the language to be used can be overwritten in two ways and will be checked in this order:</p><ol><li><p>Setting the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code>, either by using e.g. <code>set_AMR_locale("German")</code> or by running e.g. <code>options(AMR_locale = "German")</code>.</p>
+<p>The system language will be used at default (as returned by <code>Sys.getenv("LANG")</code> or, if <code>LANG</code> is not set, <code><a href="https://rdrr.io/r/base/locales.html" class="external-link">Sys.getlocale("LC_COLLATE")</a></code>), if that language is supported. But the language to be used can be overwritten in two ways and will be checked in this order:</p><ol><li><p>Setting the package option <code><a href="AMR-options.html">AMR_locale</a></code>, either by using e.g. <code>set_AMR_locale("German")</code> or by running e.g. <code>options(AMR_locale = "German")</code>.</p>
 <p>Note that setting an <span style="R">R</span> option only works in the same session. Save the command <code>options(AMR_locale = "(your language)")</code> to your <code>.Rprofile</code> file to apply it for every session. Run <code>utils::file.edit("~/.Rprofile")</code> to edit your <code>.Rprofile</code> file.</p></li>
 <li><p>Setting the system variable <code>LANGUAGE</code> or <code>LANG</code>, e.g. by adding <code>LANGUAGE="de_DE.utf8"</code> to your <code>.Renviron</code> file in your home directory.</p></li>
-</ol><p>Thus, if the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_locale</a></code> is set, the system variables <code>LANGUAGE</code> and <code>LANG</code> will be ignored.</p>
+</ol><p>Thus, if the package option <code><a href="AMR-options.html">AMR_locale</a></code> is set, the system variables <code>LANGUAGE</code> and <code>LANG</code> will be ignored.</p>
 </div>
 
     </div>
diff --git a/search.json b/search.json
index 1dbc42bb..005af9a2 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 24 Jun 2024. 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: Escherichia coli coli (0.643), Escherichia coli #>               expressing (0.611), 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), and Enterobacter cloacae #>               cloacae (0.571) #> -------------------------------------------------------------------------------- #> \"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), Kluyveromyces pseudotropicale (0.386), #>               Kluyveromyces pseudotropicalis (0.363), Kosakonia pseudosacchari #>               (0.361), and Kluyveromyces pseudotropicalis pseudotropicalis (0.361) #> -------------------------------------------------------------------------------- #> \"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              %S   :41.0% (n=1112)   %S   :52.0% (n=1409)   #>  Unique:4              %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)      #>  #1    :B_ESCHR_COLI   %I   :16.1% (n=437)    %I   :12.0% (n=325)    #>  #2    :B_STPHY_AURS   %R   :42.9% (n=1163)   %R   :36.1% (n=978)    #>  #3    :B_STRPT_PNMN   %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)      #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %S   :51.5% (n=1396)   %S   :59.6% (n=1616)   TRUE:2712      #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)                     #>  %I   : 6.6% (n=178)    %I   : 3.1% (n=85)                    #>  %R   :42.0% (n=1138)   %R   :37.3% (n=1011)                  #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)  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          I         R            S          S            S            S #> 2          S         S            I          R            R            S #> 3          R         I            I          I            R            I #> 4          I         S            S          S            S            S #> 5          I         I            I          S            I            S #> 6          R         S            R          S            I            I #>   kanamycin #> 1         R #> 2         I #> 3         S #> 4         I #> 5         I #> 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: 5: S < SDD < < R < NI 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 70 547 rows 26 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, mycobank, mycobank_parent, mycobank_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 17 July 2024 12:29:55 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.6 MB) Download tab-separated text file (16 MB) Download Microsoft Excel workbook (7.8 MB) Download Apache Feather file (19 MB) Download Apache Parquet file (0 kB) Download SAS transport (XPT) file (69.5 MB) Download IBM SPSS Statistics data file (24.5 MB) Download Stata DTA file (69.5 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy six kingdoms List Prokaryotic names Standing Nomenclature (LPSN), MycoBank, 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 June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; . Accessed https://bacdive.dsmz.de July 16th, 2024. 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 485 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 19 September 2024 09:44:56 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 (75 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 34 063 rows 14 columns, containing following column names:guideline, type, host, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti, is_SDD. data set R available clinical_breakpoints, load AMR package. last updated 16 July 2024 12:51:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (70 kB) Download tab-separated text file (3.1 MB) Download Microsoft Excel workbook (2 MB) Download Apache Feather file (4.9 MB) Download Apache Parquet file (0 kB) Download SAS transport (XPT) file (9.6 MB) Download IBM SPSS Statistics data file (5.6 MB) Download Stata DTA file (9.3 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2011-2024) EUCAST (2011-2024). 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 340 804 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 July 2024 12:51:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (0.1 MB) Download tab-separated text file (12.4 MB) Download Microsoft Excel workbook (3.4 MB) Download Apache Feather file (13.1 MB) Download Apache Parquet file (0 kB) Download SAS transport (XPT) file (28.3 MB) Download IBM SPSS Statistics data file (18.4 MB) Download Stata DTA file (28.3 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 15 June 2024 13:33:49 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 971 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 16 July 2024 12:51:57 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 (82 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0 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: 33 × 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  #> # ℹ 23 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. 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. Christian F. Luz. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Matthew Saab. Contributor. Jonas Salm. Contributor. Javier Sanchez. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Jason Stull. Contributor. 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":"Provides --one solution antimicrobial resistance (AMR) data analysis One Health approach Used 175 countries, available 20 languages Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy extensive info antimicrobial drugs Applies recent CLSI EUCAST clinical veterinary breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC, SNOMED CT, NCBI 100% free costs dependencies, 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-available-in-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, available in 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_antibiogram_formatting_type  numeric (1-12) use antibiogram(), indicate formatting type use. AMR_breakpoint_type  character use .sir(), indicate breakpoint type use. must either \"ECOFF\", \"animal\", \"human\". 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_custom_ab  file location RDS file, use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  file location RDS file, use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  character set default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  character set 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 2024\". Supported guideline currently EUCAST (2011-2024) CLSI (2011-2024). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_locale  character set language 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, English otherwise). 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, user read file automatically start-. 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 ~71 000 microorganisms (updated June 2024) ~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: 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] Christian F. Luz (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Matthew Saab [contributor] Jonas Salm [contributor] Javier Sanchez (ORCID) [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Jason Stull (ORCID) [contributor] 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://atcddd.fhi.) 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://atcddd.fhi./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://atcddd.fhi./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://atcddd.fhi.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://atcddd.fhi.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 asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2024\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] NA #>  #> $group_members #> character(0) #>    # 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  1965-12-05  58  58.79781         34 #> 2  1980-03-01  44  44.56011         19 #> 3  1949-11-01  74  74.89071         50 #> 4  1947-02-14  77  77.60383         52 #> 5  1940-02-19  84  84.59016         59 #> 6  1988-01-10  36  36.69945         11 #> 7  1997-08-27  27  27.07104          2 #> 8  1978-01-26  46  46.65574         21 #> 9  1972-06-17  52  52.26503         27 #> 10 1986-08-10  38  38.11749         13"},{"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 Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Create detailed antibiograms options traditional, combination, syndromic, Bayesian WISCA methods. Based approaches Klinker et al., Barbieri et al., Bayesian WISCA model (Weighted-Incidence Syndromic Combination Antibiogram) Bielicki et al., function provides flexible output formats including plots tables, ideal integration R Markdown Quarto reports.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = \"name\",   syndromic_group = NULL,   add_total_n = FALSE,   only_all_tested = FALSE,   digits = 0,   formatting_type = getOption(\"AMR_antibiogram_formatting_type\", 10),   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for class 'antibiogram' plot(x, ...)  # S3 method for class 'antibiogram' autoplot(object, ...)  # S3 method for class '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 Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Bielicki JA et al. (2016). Selecting appropriate empirical antibiotic regimens paediatric bloodstream infections: application Bayesian decision model local pooled antimicrobial resistance surveillance data Journal Antimicrobial Chemotherapy 71(3); doi:10.1093/jac/dkv397 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 Traditional, Combination, Syndromic, or WISCA Antibiograms — 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\" (default), \"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\", \"mycobank\", \"mycobank_parent\", \"mycobank_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 (defaults \"name\"): \"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 susceptibility percentage formatting_type numeric value (1–12) indicating 'cells' antibiogram table formatted. See Details > Formatting Type list options. 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 Traditional, Combination, Syndromic, or WISCA Antibiograms — 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.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"formatting-type","dir":"Reference","previous_headings":"","what":"Formatting Type","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"formatting 'cells' table can set argument formatting_type. examples, 5 susceptibility percentage, 15 numerator, 300 denominator: 5 15 300 15/300 5 (300) 5% (300) 5 (N=300) 5% (N=300) 5 (15/300) 5% (15/300) 5 (N=15/300) 5% (N=15/300) default 10, can set globally package option AMR_antibiogram_formatting_type, e.g. options(AMR_antibiogram_formatting_type = 5). Set digits (defaults 0) alter rounding susceptibility percentage.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"four antibiogram types, summarised Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(). Use WISCA whenever possible, since provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility. See section Use WISCA? page. four antibiogram types: 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) WISCA enhances empirical antibiotic selection weighting incidence pathogens specific clinical syndromes combining susceptibility data. provides estimation regimen coverage aggregating pathogen incidences susceptibilities across potential causative organisms. See also section Use WISCA? page. Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   WISCA uses sophisticated Bayesian decision model combine local pooled antimicrobial resistance data. approach evaluates local patterns can also draw multi-centre datasets improve regimen accuracy, even low-incidence infections like paediatric bloodstream infections (BSIs).","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\"))"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"inclusion-in-combination-antibiogram-and-syndromic-antibiogram","dir":"Reference","previous_headings":"","what":"Inclusion in Combination Antibiogram and Syndromic Antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Note types 2 3 (Combination Antibiogram Syndromic Antibiogram), 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":"--------------------------------------------------------------------                     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":"plotting","dir":"Reference","previous_headings":"","what":"Plotting","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"types antibiograms listed can plotted (using ggplot2::autoplot() base R's plot() barplot()). outcome antibiogram() 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":"why-use-wisca-","dir":"Reference","previous_headings":"","what":"Why Use WISCA?","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"WISCA powerful tool guiding empirical antibiotic therapy provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility. particularly important empirical treatment, causative pathogen often unknown outset. Traditional antibiograms reflect weighted likelihood specific pathogens based clinical syndromes, can lead suboptimal treatment choices. Bayesian WISCA, described Bielicki et al. (2016), improves earlier methods handling uncertainties common smaller datasets, low-incidence infections. method offers significant advantage : Pooling Data Multiple Sources: WISCA uses pooled data multiple hospitals surveillance sources overcome limitations small sample sizes individual institutions, allowing confident selection narrow-spectrum antibiotics combinations. Bayesian Framework: Bayesian decision tree model accounts local data prior knowledge (inherent resistance patterns) estimate regimen coverage. allows precise estimation coverage, even cases susceptibility data missing incomplete. Incorporating Pathogen Regimen Uncertainty: WISCA allows clinicians see likelihood empirical regimen effective relevant pathogens, taking account uncertainties related pathogen prevalence antimicrobial resistance. leads better-informed, data-driven clinical decisions. Scenarios Optimising Treatment: hospitals settings low-incidence infections, WISCA helps determine whether local data sufficient pooling external data necessary. also identifies statistically significant differences similarities antibiotic regimens, enabling clinicians choose optimal therapies greater confidence. WISCA essential optimising empirical treatment shifting away broad-spectrum antibiotics, often overused empirical settings. offering precise estimates based syndromic patterns pooled data, WISCA supports antimicrobial stewardship guiding targeted therapy, reducing unnecessary broad-spectrum use, combating rise antimicrobial resistance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — 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) #> # An Antibiogram: 10 × 7 #>    Pathogen       Amikacin    Gentamicin Imipenem Kanamycin Meropenem Tobramycin #>  * <chr>          <chr>       <chr>      <chr>    <chr>     <chr>     <chr>      #>  1 CoNS           0% (0/43)   86% (267/… 52% (25… 0% (0/43) 52% (25/… 22% (12/5… #>  2 E. coli        100% (171/… 98% (451/… 100% (4… NA        100% (41… 97% (450/… #>  3 E. faecalis    0% (0/39)   0% (0/39)  100% (3… 0% (0/39) NA        0% (0/39)  #>  4 K. pneumoniae  NA          90% (52/5… 100% (5… NA        100% (53… 90% (52/5… #>  5 P. aeruginosa  NA          100% (30/… NA       0% (0/30) NA        100% (30/… #>  6 P. mirabilis   NA          94% (32/3… 94% (30… NA        NA        94% (32/3… #>  7 S. aureus      NA          99% (231/… NA       NA        NA        98% (84/8… #>  8 S. epidermidis 0% (0/44)   79% (128/… NA       0% (0/44) NA        51% (45/8… #>  9 S. hominis     NA          92% (74/8… NA       NA        NA        85% (53/6… #> 10 S. pneumoniae  0% (0/117)  0% (0/117) NA       0% (0/11… NA        0% (0/117) #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # An Antibiogram: 2 × 5 #>   Pathogen      J01GB01       J01GB03        J01GB04    J01GB06       #> * <chr>         <chr>         <chr>          <chr>      <chr>         #> 1 Gram-negative 96% (658/686) 96% (659/684)  0% (0/35)  98% (251/256) #> 2 Gram-positive 34% (228/665) 63% (740/1170) 0% (0/436) 0% (0/436)    #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # An Antibiogram: 5 × 3 #>   Pathogen                                 Imipenem       Meropenem      #> * <chr>                                    <chr>          <chr>          #> 1 Coagulase-negative Staphylococcus (CoNS) 52% (25/48)    52% (25/48)    #> 2 Enterococcus faecalis                    100% (38/38)   NA             #> 3 Escherichia coli                         100% (422/422) 100% (418/418) #> 4 Klebsiella pneumoniae                    100% (51/51)   100% (53/53)   #> 5 Proteus mirabilis                        94% (30/32)    NA             #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # An Antibiogram: 2 × 4 #>   Pathogen  Piperacillin/tazobac…¹ Piperacillin/tazobac…² Piperacillin/tazobac…³ #> * <chr>     <chr>                  <chr>                  <chr>                  #> 1 Gram-neg… 88% (565/641)          99% (681/691)          98% (679/693)          #> 2 Gram-pos… 86% (296/345)          98% (1018/1044)        95% (524/550)          #> # ℹ abbreviated names: ¹​`Piperacillin/tazobactam`, #> #   ²​`Piperacillin/tazobactam + Gentamicin`, #> #   ³​`Piperacillin/tazobactam + Tobramycin` #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # 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 = \" & \" ) #> # An Antibiogram: 2 × 3 #>   Pathogen      Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>         <chr>         <chr>                        #> 1 Gram-negative 91% (621/684) 99% (684/694)                #> 2 Gram-positive 77% (560/724) 93% (784/847)                #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # 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) #> # An Antibiogram: 14 × 8 #>    `Syndromic Group` Pathogen   Amikacin Gentamicin Imipenem Kanamycin Meropenem #>  * <chr>             <chr>      <chr>    <chr>      <chr>    <chr>     <chr>     #>  1 Clinical          CoNS       NA       89% (183/… 57% (20… NA        57% (20/… #>  2 ICU               CoNS       NA       79% (58/7… NA       NA        NA        #>  3 Outpatient        CoNS       NA       84% (26/3… NA       NA        NA        #>  4 Clinical          E. coli    100% (1… 98% (291/… 100% (2… NA        100% (27… #>  5 ICU               E. coli    100% (5… 99% (135/… 100% (1… NA        100% (11… #>  6 Clinical          K. pneumo… NA       92% (47/5… 100% (4… NA        100% (46… #>  7 Clinical          P. mirabi… NA       100% (30/… NA       NA        NA        #>  8 Clinical          S. aureus  NA       99% (148/… NA       NA        NA        #>  9 ICU               S. aureus  NA       100% (66/… NA       NA        NA        #> 10 Clinical          S. epider… NA       82% (65/7… NA       NA        NA        #> 11 ICU               S. epider… NA       72% (54/7… NA       NA        NA        #> 12 Clinical          S. hominis NA       96% (43/4… NA       NA        NA        #> 13 Clinical          S. pneumo… 0% (0/7… 0% (0/78)  NA       0% (0/78) NA        #> 14 ICU               S. pneumo… 0% (0/3… 0% (0/30)  NA       0% (0/30) NA        #> # ℹ 1 more variable: Tobramycin <chr> #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # 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) #> # An Antibiogram: 2 × 5 #>   `Grupo sindrómico` Patógeno Amikacina      Gentamicina   Tobramicina   #> * <chr>              <chr>    <chr>          <chr>         <chr>         #> 1 No UCI             E. coli  100% (119/119) 98% (316/323) 98% (318/325) #> 2 UCI                E. coli  100% (52/52)   99% (135/137) 96% (132/137) #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # 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\"   ) ) #> # An Antibiogram: 4 × 6 #>   `Syndromic Group` Pathogen      Amoxicillin/clavulani…¹ Amoxicillin/clavulan…² #> * <chr>             <chr>         <chr>                   <chr>                  #> 1 WISCA Group 1     Gram-negative 76% (216/285)           95% (270/284)          #> 2 WISCA Group 2     Gram-negative 76% (336/441)           98% (432/442)          #> 3 WISCA Group 1     Gram-positive 76% (310/406)           89% (347/392)          #> 4 WISCA Group 2     Gram-positive 76% (556/732)           89% (617/695)          #> # ℹ abbreviated names: ¹​`Amoxicillin/clavulanic acid`, #> #   ²​`Amoxicillin/clavulanic acid + Ciprofloxacin` #> # ℹ 2 more variables: `Piperacillin/tazobactam` <chr>, #> #   `Piperacillin/tazobactam + Tobramycin` <chr> #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # 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        |Piperacillin/tazobactam | #> |:---------------|:-----------------------| #> |CoNS            |30% (10/33)             | #> |*E. coli*       |94% (393/416)           | #> |*K. pneumoniae* |89% (47/53)             | #> |*S. pneumoniae* |100% (112/112)          |   # 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, only_treatable = TRUE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  nitrofurans(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  quinolones(only_sir_columns = FALSE, ...)  rifamycins(only_sir_columns = FALSE, ...)  streptogramins(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), 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:  amorolfine (AMO), amphotericin B (AMB), amphotericin B-high (AMH), 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), clindamycin inducible screening (CLI1), 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) nitrofurans() can select:  furazidin (FUR), furazolidone (FRZ), nifurtoinol (NFR), nitrofurantoin (NIT), nitrofurazone (NIZ) 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), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), 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) rifamycins() can select:  rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP) 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 'dplyr', 'base R', and 'data.table':  # \\donttest{ # dplyr -------------------------------------------------------------------  if (require(\"dplyr\")) {   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\")) {   # 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\")) {   # select only antibiotic columns with DDDs for oral treatment   example_isolates %>% select(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>  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_at(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: `OXA = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ 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()) } #> # 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   # 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   # 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) #> Warning: It should never be needed to print an antibiotic selector class. Are you #> using data.table? Then add the argument with = FALSE, see our examples at #> ?ab_selector. #> Class 'ab_selector' #> [1] IPM MEM if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>         IPM   MEM #>       <sir> <sir> #>    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 #>               <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> #>   ---                                      #> 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 #>       <sir> <sir> <sir> <sir> <sir> <sir> #>    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 #>          <Date>  <char> <num> <char>     <char>         <mo> <sir> <sir> <sir> #>   1: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   2: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   3: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   4: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   5: 2002-02-05  067927    45      F        ICU B_SERRT_MRCS     R  <NA>  <NA> #>  ---                                                                           #> 905: 2005-04-12  D71461    70      M        ICU B_ESCHR_COLI     R  <NA>  <NA> #> 906: 2009-11-12  650870    69      F Outpatient B_ESCHR_COLI     R  <NA>  <NA> #> 907: 2012-06-14  8CBCF2    41      F   Clinical B_STPHY_CONS     R     S     S #> 908: 2012-10-11  175532    78      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #> 909: 2013-11-23  A97263    77      M   Clinical B_KLBSL_PNMN     R  <NA>  <NA> #>        AMX   AMC   AMP   TZP   CZO   FEP   CXM   FOX   CTX   CAZ   CRO   GEN #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   2:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   3:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   4:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   5:     R     R     R  <NA>     R  <NA>     R     R  <NA>  <NA>  <NA>  <NA> #>  ---                                                                         #> 905:     S     S     S     S  <NA>     S     S     S     S     S     S     S #> 906:     S     S     S     S     S     S     S     S     S     S     S     S #> 907:  <NA>     S  <NA>  <NA>     S     S     S     S     S     R     S     S #> 908:     R     S     R     S  <NA>     S     R     R     S     S     S     S #> 909:     R     S     R     S  <NA>     S     S     S     S     S     S     S #>        TOB   AMK   KAN   TMP   SXT   NIT   FOS   LNZ   CIP   MFX   VAN   TEC #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   2:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   3:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   4:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   5:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>  ---                                                                         #> 905:     S     S  <NA>  <NA>     S     S  <NA>     R     S  <NA>     R     R #> 906:     S     S  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #> 907:  <NA>  <NA>  <NA>     S     S  <NA>  <NA>  <NA>     S  <NA>     S  <NA> #> 908:     S  <NA>  <NA>     R     R     R  <NA>     R     R     R     R     R #> 909:     S  <NA>  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #>        TCY   TGC   DOX   ERY   CLI   AZM   IPM   MEM   MTR   CHL   COL   MUP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   2:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   3:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   4:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   5:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>  ---                                                                         #> 905:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 906:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 907:  <NA>  <NA>  <NA>     S     S     S     S     S  <NA>  <NA>     R  <NA> #> 908:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #> 909:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #>        RIF #>      <sir> #>   1:     R #>   2:     R #>   3:     R #>   4:     R #>   5:     R #>  ---       #> 905:     R #> 906:     R #> 907:  <NA> #> 908:     R #> 909:     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 #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   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 605 Antimicrobial Drugs — antibiotics","title":"Data Sets with 605 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 605 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 605 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 485 observations and 14 variables:","title":"Data Sets with 605 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 179 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 153 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 605 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 605 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://atcddd.fhi./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 605 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 605 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 605 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://atcddd.fhi.) 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://atcddd.fhi./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 605 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 485 × 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 AMO     54260 Amoro… Anti… <chr> Antifunga… Other ant… <chr [1]>     <chr>    #>  8 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  9 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #> 10 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> # ℹ 475 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://atcddd.fhi./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://atcddd.fhi.) 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://atcddd.fhi./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://atcddd.fhi./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://atcddd.fhi.) 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://atcddd.fhi./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. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2024... #>  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. #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2024... #>  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 class '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 limit 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 numeric vector. Bear 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-2024) CLSI (2011-2024). 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.:   -called group generic functions implemented MIC class (!, !=, <, >=, exp(), log2()). functions stats package also implemented (quantile(), median(), fivenum()). 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 limited 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. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2024... #>  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. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2024... #>  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, Chromista, 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()),   only_fungi = getOption(\"AMR_only_fungi\", FALSE),   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. only_fungi logical indicate fungi must found, making sure e.g. misspellings always return records kingdom Fungi. can set globally microorganism functions package option AMR_only_fungi, .e. options(AMR_only_fungi = TRUE). language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate info must printed, e.g. progress bar 25 items coerced, list old taxonomic names. 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' return MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel scientifically validated (doi:10.18637/jss.v104.i03 ) matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. implicates e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first.","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   \\----> kingdom: A (Archaea), AN (Animalia), B (Bacteria),                   C (Chromista), 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 inspect results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument used clean input. 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":"for-mycologists","dir":"Reference","previous_headings":"","what":"For Mycologists","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"matching score algorithm gives precedence bacteria fungi. analysing fungi, sure use only_fungi = TRUE, better yet, add code run every session:   make sure bacteria 'non-fungi' returned .mo(), mo_* functions.","code":"options(AMR_only_fungi = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coagulase-negative-and-coagulase-positive-staphylococci","dir":"Reference","previous_headings":"","what":"Coagulase-negative and Coagulase-positive Staphylococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Becker = TRUE, following staphylococci converted corresponding coagulase group: Coagulase-negative: S. americanisciuri, S. argensis, S. arlettae, S. auricularis, S. borealis, S. brunensis, 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. marylandisciuri, 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. shinii, 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 Coagulase-positive: 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 based : 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 newly named staphylococcal species, S. brunensis (2024) S. shinii (2023), looked scientific reference make sure species considered correct coagulase group.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"lancefield-groups-in-streptococci","dir":"Reference","previous_headings":"","what":"Lancefield Groups in Streptococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Lancefield = TRUE, following streptococci converted corresponding Lancefield group: Streptococcus Group : S. pyogenes Streptococcus Group B: S. agalactiae Streptococcus Group C: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis, S. equi, S. equi equi, S. equi ruminatorum, S. equi zooepidemicus Streptococcus Group F: S. anginosus, S. anginosus anginosus, S. anginosus whileyi, S. constellatus, S. constellatus constellatus, S. constellatus pharyngis, S. constellatus viborgensis, S. intermedius Streptococcus Group G: S. canis, S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis Streptococcus Group H: S. sanguinis Streptococcus Group K: S. salivarius, S. salivarius salivarius, S. salivarius thermophilus Streptococcus Group L: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis based : Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571","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 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 June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. 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 July 16th, 2024. 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, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saprochaete, Sarcoptes, Scedosporium, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporotrichum, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Verticillium, 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- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )( ?[a-z-]+[-](resistant|susceptible) ?|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":"Clean existing SIR values, interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI. .sir() transforms input new class sir, ordered factor containing levels S, SDD, , R, NI. breakpoints currently implemented: clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024; veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2024 CLSI 2022-2024. breakpoints used interpretation 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)  # Default S3 method as.sir(   x,   S = \"^(S|U)+$\",   I = \"^(I)+$\",   R = \"^(R)+$\",   NI = \"^(N|NI|V)+$\",   SDD = \"^(SDD|D|H)+$\",   ... )  # S3 method for class '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\"),   host = NULL,   verbose = FALSE,   ... )  # S3 method for class '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\"),   host = NULL,   verbose = FALSE,   ... )  # S3 method for class '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\"),   host = NULL,   verbose = FALSE )  sir_interpretation_history(clean = FALSE)"},{"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: CLSI M39: Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. CLSI M100: Performance Standard Antimicrobial Susceptibility Testing, 2011-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. CLSI VET01: Performance Standards Antimicrobial Disk Dilution Susceptibility Tests Bacteria Isolated Animals, 2019-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet01/. CLSI VET09: Understanding Susceptibility Test Data Component Antimicrobial Stewardship Veterinary Settings, 2019-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet09/. EUCAST Breakpoint tables interpretation MICs zone diameters, 2011-2024, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints. WHONET source machine-reading clinical breakpoints (read ), 1989-2024, Collaborating Centre Surveillance Antimicrobial Resistance. https://whonet.org/.","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 S, , R, NI, SDD case-independent regular expression translate input result. regular expression run non-letters whitespaces removed input. mo vector (column name) characters can coerced valid microorganism codes .mo(), can left empty determine automatically ab vector (column name) characters can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2024 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2024) CLSI (2011-2024), see Details. uti (Urinary Tract Infection) vector (column name) 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. host set values veterinary species, automatically set \"animal\". host vector (column name) characters indicate host. useful veterinary breakpoints, requires breakpoint_type = \"animal\". values can text resembling animal species, even 20 supported languages package. foreign languages, sure set language set_AMR_locale() (though automatically guessed based system language). verbose logical indicate notes printed interpretation MIC values disk diffusion values. 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. 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 can work four ways: cleaning raw / untransformed data. data cleaned contain valid values, namely: S susceptible, intermediate 'susceptible, increased exposure', R resistant, NI non-interpretable, SDD susceptible dose-dependent. can set using regular expression. Furthermore, .sir() try best clean 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 invalid. 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.mic, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.mic, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.mic, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\") your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir)) your_data %>% mutate_if(is.disk, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.disk, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.disk, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\")"},{"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 clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024, veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024. Thus, guideline argument must set e.g., \"EUCAST 2024\" \"CLSI 2024\". 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), :   veterinary guidelines, might best options:   applying veterinary breakpoints (setting host setting breakpoint_type = \"animal\"), CLSI VET09 guideline applied cope missing animal species-specific breakpoints.","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL) options(AMR_guideline = \"CLSI\")   options(AMR_breakpoint_type = \"animal\")"},{"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. determine isolates multi-drug resistant, sure run mdro() (applies MDR/PDR/XDR guideline 2012 default) data set contains S//R values. Read interpreting multidrug-resistant organisms .","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 34 063 rows 14 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. base R function .double() can used retrieve quantitative values sir object: \"S\" = 1, \"\"/\"SDD\" = 2, \"R\" = 3. values rendered NA . Note: use .integer(), since (R works internally) return factor level indices, aforementioned quantitative values. function is_sir_eligible() returns TRUE column contains 5% invalid antimicrobial interpretations (S //R /NI /SDD), 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              %S   :25.6% (n=417)    #>  Mode  :character   Unique:90             %SDD : 0.0% (n=0)      #>                     #1    :B_ESCHR_COLI   %I   : 0.7% (n=11)     #>                     #2    :B_STPHY_CONS   %R   :73.7% (n=1201)   #>                     #3    :B_STPHY_AURS   %NI  : 0.0% (n=0)      #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %S   :68.8% (n=251)   %S   :70.5% (n=665)   %S   :40.2% (n=543)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)     %I   : 0.2% (n=3)     #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %S   :71.4% (n=1342)   %S   :40.2% (n=543)   %S   :86.1% (n=862)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 4.8% (n=91)     %I   : 0.2% (n=3)     %I   : 1.3% (n=13)    #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :54.9% (n=245)   %S   :85.6% (n=620)   %S   :72.5% (n=1297)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 0.4% (n=2)     %I   : 0.1% (n=1)     %I   : 1.2% (n=22)     #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :71.6% (n=586)   %S   :84.4% (n=796)   %S   :33.5% (n=607)    #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 1.0% (n=8)     %I   : 0.1% (n=1)     %I   : 0.0% (n=0)      #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %S   :84.4% (n=796)   %S   :74.0% (n=1372)   %S   :65.1% (n=879)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.1% (n=1)     %I   : 1.5% (n=27)     %I   : 0.5% (n=7)     #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %S   :36.3% (n=251)   %S   : 0.0% (n=0)      %S   :61.2% (n=918)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)      %I   : 0.7% (n=10)    #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %S   :79.1% (n=1392)   %S   :76.0% (n=565)   %S   :57.8% (n=203)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.3% (n=6)      %I   : 6.9% (n=51)    %I   : 0.0% (n=0)     #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %S   :30.7% (n=314)   %S   :78.9% (n=1112)   %S   :64.5% (n=136)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 4.9% (n=69)     %I   : 1.9% (n=4)     #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %S   :61.7% (n=1149)   %S   :24.3% (n=237)   %S   :68.3% (n=820)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)      %I   : 0.0% (n=0)     %I   : 1.9% (n=23)    #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :87.3% (n=697)   %S   :71.7% (n=814)   %S   :42.3% (n=801)    #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 0.0% (n=0)     %I   : 0.6% (n=7)     %I   : 0.5% (n=9)      #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %S   :38.6% (n=586)   %S   :42.3% (n=801)    %S   :92.7% (n=824)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.3% (n=4)     %I   : 0.5% (n=9)      %I   : 1.1% (n=10)    #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %S   :94.1% (n=780)   %S   :85.3% (n=29)   %S   :78.6% (n=121)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)    %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)    %I   : 0.0% (n=0)     #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)    %NI  : 0.0% (n=0)     #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %S   :18.8% (n=309)    %S   :93.0% (n=251)   %S   :30.2% (n=303)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)      %I   : 1.1% (n=3)     %I   : 0.2% (n=2)     #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      # For INTERPRETING disk diffusion and MIC values -----------------------  # example data sets, with combined MIC values and disk zones df_wide <- data.frame(   microorganism = \"Escherichia coli\",   amoxicillin = as.mic(8),   cipro = as.mic(0.256),   tobra = as.disk(16),   genta = as.disk(18),   ERY = \"R\" ) df_long <- data.frame(   bacteria = rep(\"Escherichia coli\", 4),   antibiotic = c(\"amoxicillin\", \"cipro\", \"tobra\", \"genta\"),   mics = as.mic(c(0.01, 1, 4, 8)),   disks = as.disk(c(6, 10, 14, 18)) )  # \\donttest{ ## Using dplyr ------------------------------------------------- if (require(\"dplyr\")) {   # approaches that all work without additional arguments:   df_wide %>% mutate_if(is.mic, as.sir)   df_wide %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df_wide %>% mutate(across(where(is.mic), as.sir))   df_wide %>% mutate_at(vars(amoxicillin:tobra), as.sir)   df_wide %>% mutate(across(amoxicillin:tobra, as.sir))      # approaches that all work with additional arguments:   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               guideline = \"CLSI\")   df_long %>%     mutate(across(where(is.mic),                   function(x) as.sir(x,                                      mo = \"bacteria\",                                      ab = \"antibiotic\",                                      guideline = \"CLSI\")))   df_wide %>%     # given certain columns, e.g. from 'cipro' to 'genta'     mutate_at(vars(cipro:genta), as.sir,               mo = \"bacteria\",               guideline = \"CLSI\")   df_wide %>%     mutate(across(cipro:genta,                        function(x) as.sir(x,                                           mo = \"bacteria\",                                           guideline = \"CLSI\")))                           # for veterinary breakpoints, add 'host':   df_long$animal_species <- c(\"cats\", \"dogs\", \"horses\", \"cattle\")   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               host = \"animal_species\",               guideline = \"CLSI\")   df_long %>%     mutate(across(where(is.mic),                   function(x) as.sir(x,                                      mo = \"bacteria\",                                      ab = \"antibiotic\",                                      host = \"animal_species\",                                      guideline = \"CLSI\")))   df_wide %>%     mutate_at(vars(cipro:genta), as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               host = \"animal_species\",               guideline = \"CLSI\")   df_wide %>%     mutate(across(cipro:genta,                        function(x) as.sir(x,                                           mo = \"bacteria\",                                           host = \"animal_species\",                                           guideline = \"CLSI\")))      # to include information about urinary tract infections (UTI)   data.frame(mo = \"E. coli\",              nitrofuratoin = c(\"<= 2\", 32),              from_the_bladder = c(TRUE, FALSE)) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(mo = \"E. coli\",              nitrofuratoin = c(\"<= 2\", 32),              specimen = c(\"urine\", \"blood\")) %>%     as.sir() # automatically determines urine isolates    df_wide %>%     mutate_at(vars(cipro:genta), as.sir, mo = \"E. coli\", uti = TRUE) } #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  OK  #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  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. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  OK  #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin) based on #> column 'microorganism', EUCAST 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  OK  #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  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. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  OK  #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  OK  #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #>  #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'antibiotic' (TESTAB, test Antibiotic), CLSI #> 2024... #>  WARNING  #>   • No CLSI 2024 MIC breakpoints available for test Antibiotic (TESTAB). #> Interpreting disk diffusion zones: 'antibiotic' (TESTAB, test Antibiotic), #> CLSI 2024... #>  WARNING  #>   • No CLSI 2024 DISK breakpoints available for test Antibiotic (TESTAB). #> Interpreting disk diffusion zones: 'antibiotic' (TESTAB, test Antibiotic), #> CLSI 2024... #>  WARNING  #>   • No CLSI 2024 DISK breakpoints available for test Antibiotic (TESTAB). #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `cipro = (function (x, ...) ...`. #> Caused by warning: #> ! The following animal host(s) could not be coerced: \"animal_species\" #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #>  #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! The following animal host(s) could not be coerced: \"animal_species\" #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: column 'nitrofuratoin' (NIT, nitrofurantoin), #> EUCAST 2024... #>  NOTE  #>   • Breakpoints for nitrofurantoin (NIT) in Escherichia coli are only available for (uncomplicated) urinary tract infections (UTI); assuming uti = TRUE. #> ℹ 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. #> Interpreting MIC values: column 'nitrofuratoin' (NIT, nitrofurantoin), #> EUCAST 2024... #>  NOTE  #>   • Breakpoints for nitrofurantoin (NIT) in Escherichia coli are only available for (uncomplicated) urinary tract infections (UTI); assuming uti = TRUE. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), EUCAST 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), EUCAST #> 2024... #>  OK  #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           8  <NA>     S     S   R   ## Using base R ------------------------------------------------  as.sir(df_wide) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: column 'amoxicillin' (AMX), EUCAST 2024... #>  OK  #> Interpreting MIC values: column 'cipro' (CIP, ciprofloxacin), EUCAST #> 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: column 'tobra' (TOB, tobramycin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'genta' (GEN, gentamicin), EUCAST #> 2024... #>  OK  #> Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK  #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           S     I     S     S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 59 × 16 #>    datetime            index ab_given mo_given host_given ab   mo               #>  * <dttm>              <int> <chr>    <chr>    <chr>      <ab> <mo>             #>  1 2024-09-22 09:53:01     4 AMX      B_STRPT… human      AMX  B_STRPT_PNMN     #>  2 2024-09-22 09:53:08     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR #>  3 2024-09-22 09:53:08     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR #>  4 2024-09-22 09:53:09     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI     #>  5 2024-09-22 09:53:09     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI     #>  6 2024-09-22 09:53:01     3 AMX      B_STRPT… human      AMX  B_STRPT_PNMN     #>  7 2024-09-22 09:53:08     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR #>  8 2024-09-22 09:53:08     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR #>  9 2024-09-22 09:53:09     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI     #> 10 2024-09-22 09:53:09     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI     #> # ℹ 49 more rows #> # ℹ 9 more variables: host <chr>, method <chr>, input <dbl>, outcome <sir>, #> #   notes <chr>, guideline <chr>, ref_table <chr>, uti <lgl>, #> #   breakpoint_S_R <chr>  # 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. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2024... #>  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. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2024... #>  OK  #> Class 'sir' #> [1] R   # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '19' truncated (38%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    SDD  I    R    NI   <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   # as common in R, you can use as.integer() to return factor indices: as.integer(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  3  4  5 NA # but for computational use, as.double() will return 1 for S, 2 for I/SDD, and 3 for R: as.double(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  2  3 NA NA  # 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://atcddd.fhi.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://atcddd.fhi.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://atcddd.fhi./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://atcddd.fhi./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://atcddd.fhi.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 class '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\", \"SDD\", \"\", \"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 × 8 #>   mo                ab        S   SDD     I     R    NI total #>   <chr>             <chr> <int> <int> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0     0     0    15 #> 2 (unknown species) AMK       0     0     0     0     0     0 #> 3 (unknown species) AMP      15     0     0     1     0    16 #> 4 (unknown species) AMX      15     0     0     1     0    16 #> 5 (unknown species) AZM       3     0     0     3     0     6 #> 6 (unknown species) CAZ       0     0     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 × 8 #>    mo            ab        S   SDD     I     R    NI total #>  * <chr>         <chr> <int> <int> <int> <int> <int> <int> #>  1 Gram-negative AMC     463     0    89   174     0   726 #>  2 Gram-negative AMK     251     0     0     5     0   256 #>  3 Gram-negative AMP     226     0     0   405     0   631 #>  4 Gram-negative AMX     226     0     0   405     0   631 #>  5 Gram-negative AZM       1     0     2   696     0   699 #>  6 Gram-negative CAZ     607     0     0    27     0   634 #>  7 Gram-negative CHL       1     0     0    30     0    31 #>  8 Gram-negative CIP     610     0    11    63     0   684 #>  9 Gram-negative CLI      18     0     1   709     0   728 #> 10 Gram-negative COL     309     0     0    78     0   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 × 8 #>    mo      ab        S   SDD     I     R    NI total #>  * <chr>   <chr> <int> <int> <int> <int> <int> <int> #>  1 E. coli AMC     332     0    74    61     0   467 #>  2 E. coli AMK     171     0     0     0     0   171 #>  3 E. coli AMP     196     0     0   196     0   392 #>  4 E. coli AMX     196     0     0   196     0   392 #>  5 E. coli AZM       0     0     0   467     0   467 #>  6 E. coli CAZ     449     0     0    11     0   460 #>  7 E. coli CHL       0     0     0     0     0     0 #>  8 E. coli CIP     398     0     1    57     0   456 #>  9 E. coli CLI       0     0     0   467     0   467 #> 10 E. coli COL     240     0     0     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. dataset contain breakpoints humans, 7 different animal groups, ECOFFs. Currently available breakpoint guidelines clinical microbiology EUCAST 2011-2024 CLSI 2011-2024. Currently available breakpoint guidelines veterinary microbiology EUCAST 2021-2024 CLSI 2019-2024. 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 34 063 observations 14 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" host Host infectious agent. mostly useful veterinary breakpoints either \"ECOFF\", \"aquatic\", \"cats\", \"cattle\", \"dogs\", \"horse\", \"human\", \"poultry\", \"swine\" 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) is_SDD logical value (TRUE/FALSE) indicate whether intermediate range \"S\" \"R\" interpreted \"SDD\", instead \"\". currently applies 24 breakpoints.","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 great 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 software, developers 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 rather complex internal methods apply guidelines. 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: 34,063 × 14 #>    guideline   type  host  method site    mo            rank_index ab   ref_tbl  #>    <chr>       <chr> <chr> <chr>  <chr>   <mo>               <dbl> <ab> <chr>    #>  1 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  2 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  3 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  4 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  5 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  6 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  7 EUCAST 2024 human human DISK   NA      B_ACNTB                3 AMK  Acineto… #>  8 EUCAST 2024 human human DISK   Uncomp… B_ACNTB                3 AMK  Acineto… #>  9 EUCAST 2024 human human MIC    NA      B_ACNTB                3 AMK  Acineto… #> 10 EUCAST 2024 human human MIC    Uncomp… B_ACNTB                3 AMK  Acineto… #> # ℹ 34,053 more rows #> # ℹ 5 more variables: disk_dose <chr>, breakpoint_S <dbl>, breakpoint_R <dbl>, #> #   uti <lgl>, is_SDD <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_S(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_R(..., 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\" and \"SDD\" being susceptible. This note will be shown once for #> this session. #> [1] 543 count_SI(example_isolates$AMX) #> Note that count_SI() will also count dose-dependent susceptibility, #> 'SDD'. This note will be shown once for this session. #> [1] 546 count_I(example_isolates$AMX) #> Note that count_I() will also count dose-dependent susceptibility, 'SDD'. #> This note will be shown once for this session. #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" and \"SDD\" 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 instructions, 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\", \"mycobank\", \"mycobank_parent\", \"mycobank_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-multiple-antibiotics-and-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of multiple antibiotics and antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"can define antibiotic groups instead single antibiotics rule consequence, part tilde (~). examples , antibiotic group aminopenicillins includes ampicillin amoxicillin. Rules can also applied multiple antibiotics antibiotic groups simultaneously. Use c() function combine multiple antibiotics. instance, following example sets aminopenicillins ureidopenicillins \"R\" column TZP (piperacillin/tazobactam) \"R\":   30 antibiotic groups allowed rules (case-insensitive) can used combination: aminoglycosides(amikacin, amikacin/fosfomycin, 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(amorolfine, amphotericin B, amphotericin B-high, 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, clindamycin inducible screening, 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) nitrofurans(furazidin, furazolidone, nifurtoinol, nitrofurantoin, nitrofurazone) 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, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, 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) rifamycins(rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine) 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":"x <- custom_eucast_rules(TZP == \"R\" ~ c(aminopenicillins, ureidopenicillins) == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"R\" then set to \"R\": #>      amoxicillin (AMX), ampicillin (AMP), azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)"},{"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 June 24th, 2024, 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), apramycin (APR, QA07AA92), 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), cefovecin (FOV, QJ01DD91), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefquinome (CEQ, QG51AA07), 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), ceftiofur (TIO, QJ01DD90), 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), danofloxacin (DAN, QJ01MA92), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), difloxacin (DIF, QJ01MA94), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), enrofloxacin (ENR, QJ01MA90), 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), gamithromycin (GAM, QJ01FA95), 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), kitasamycin (KIT, QJ01FA93), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), marbofloxacin (MAR, QJ01MA93), 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), novobiocin (NOV, QJ01XX95), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), orbifloxacin (ORB, QJ01MA95), 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), pirlimycin (PRL, QJ51FF90), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pradofloxacin (PRA, QJ01MA97), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, QJ01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sarafloxacin (SAR, QJ01MA98), 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), tildipirosin (TIP, QJ01FA96), tilmicosin (TIL, QJ01FA91), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), tulathromycin (TUL, QJ01FA94), tylosin (TYL, QJ01FA90), tylvalosin (TYL1, QJ01FA92), 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/export_ncbi_biosample.html","id":null,"dir":"Reference","previous_headings":"","what":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"Export Data Set NCBI BioSample Antibiogram","code":""},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"","code":"export_ncbi_biosample(   x,   filename = paste0(\"biosample_\", format(Sys.time(), \"%Y-%m-%d-%H%M%S\"), \".xlsx\"),   type = \"pathogen MIC\",   columns = where(is.mic),   save_as_xlsx = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"x data set filename character string specifying file name type character string specifying type data set, either \"pathogen MIC\" \"beta-lactamase MIC\", see https://www.ncbi.nlm.nih.gov/biosample/docs/","code":""},{"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] 39 42 29 45 31 14 41 39 26 40 18 36 15 39 18 45 32 27 10  2 13 24 43 12  8 #>  [26]  5  3 12 31  9 16  4  1 26 32 27 21 45 42 17 16 21  8  4 30  1 17 25 34  5 #>  [51] 10  1 18 44 33  4  6 12 43  2 43 45 37 33 18 38 45 36 46  4 35 40 12  7 11 #>  [76] 23 10 35 20  4  5 29 27 41 12 30 45 18 47 22 28 39 19 27 16  4 21 40 33 39 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [25]  TRUE  TRUE  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE #>  [37]  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE #>  [49]  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [61] FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE  TRUE FALSE #>  [73] FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE #>  [85] FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [97] FALSE FALSE FALSE FALSE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 1 × 46 #>   date       patient   age gender ward  mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr> <mo>         <sir> <sir> <sir> <sir> #> 1 2002-12-13 285137     78 F      ICU   B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [97] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 036063  2010-01-28 A         TRUE        #>  2 077922  2009-08-18 C         TRUE        #>  3 080086  2010-08-08 C         TRUE        #>  4 0DBF93  2015-10-12 B         TRUE        #>  5 105248  2005-06-16 A         TRUE        #>  6 114570  2003-04-08 B         TRUE        #>  7 119392  2010-11-01 C         TRUE        #>  8 161740  2005-06-21 A         TRUE        #>  9 174209  2011-10-03 C         TRUE        #> 10 210105  2009-06-13 C         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [96] #>    ward       date       patient new_index new_logical #>    <chr>      <date>     <chr>       <int> <lgl>       #>  1 Clinical   2010-01-28 036063          1 TRUE        #>  2 Clinical   2009-08-18 077922          1 TRUE        #>  3 Clinical   2010-08-08 080086          1 TRUE        #>  4 Clinical   2015-10-12 0DBF93          1 TRUE        #>  5 Clinical   2005-06-16 105248          1 TRUE        #>  6 ICU        2003-04-08 114570          1 TRUE        #>  7 Clinical   2010-11-01 119392          1 TRUE        #>  8 Clinical   2005-06-21 161740          1 TRUE        #>  9 Outpatient 2011-10-03 174209          1 TRUE        #> 10 Clinical   2009-06-13 210105          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           64             13            37            47 #> 2 ICU                23              9            17            20 #> 3 Outpatient          9              7             7             9  # 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 [96] #>    patient mo           ward     flag_episode #>    <chr>   <mo>         <chr>    <lgl>        #>  1 A76045  B_ENTRC_FACM ICU      TRUE         #>  2 964129  B_SERRT_MRCS Clinical TRUE         #>  3 686445  B_STPHY_CONS Clinical TRUE         #>  4 D39422  B_KLBSL_PNMN Clinical TRUE         #>  5 298662  B_ESCHR_COLI Clinical TRUE         #>  6 5B78D5  B_STPHY_AURS Clinical TRUE         #>  7 E52625  B_STRPT_PNMN Clinical TRUE         #>  8 645121  B_SERRT_MRCS Clinical TRUE         #>  9 807228  B_STRPT_PNMN Clinical TRUE         #> 10 D41749  B_ESCHR_COLI ICU      TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result, 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\"` and `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 or values outside the scale range #> (`geom_col()`). #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_text()`).  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 340 804 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: 340,804 × 2 #>    mo          ab   #>    <mo>        <ab> #>  1 B_GRAMP     ATM  #>  2 B_GRAMP     COL  #>  3 B_GRAMP     NAL  #>  4 B_GRAMP     PLB  #>  5 B_GRAMP     TEM  #>  6 B_ANAER-POS ATM  #>  7 B_ANAER-POS COL  #>  8 B_ANAER-POS NAL  #>  9 B_ANAER-POS PLB  #> 10 B_ANAER-POS TEM  #> # ℹ 340,794 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\", \"html\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))"},{"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\", \"html\" \"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 html. using 'ansi', ANSI colours added using \\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 × 26 #>   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… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_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 × 26 #>   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… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_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\"            #>  [4] \"status\"              \"kingdom\"             \"phylum\"              #>  [7] \"class\"               \"order\"               \"family\"              #> [10] \"genus\"               \"species\"             \"subspecies\"          #> [13] \"rank\"                \"ref\"                 \"oxygen_tolerance\"    #> [16] \"source\"              \"lpsn\"                \"lpsn_parent\"         #> [19] \"lpsn_renamed_to\"     \"mycobank\"            \"mycobank_parent\"     #> [22] \"mycobank_renamed_to\" \"gbif\"                \"gbif_parent\"         #> [25] \"gbif_renamed_to\"     \"prevalence\"          \"snomed\"               # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"                \"patient\"             \"age\"                 #>  [4] \"gender\"              \"ward\"                \"mo\"                  #>  [7] \"PEN\"                 \"OXA\"                 \"FLC\"                 #> [10] \"AMX\"                 \"AMC\"                 \"AMP\"                 #> [13] \"TZP\"                 \"CZO\"                 \"FEP\"                 #> [16] \"CXM\"                 \"FOX\"                 \"CTX\"                 #> [19] \"CAZ\"                 \"CRO\"                 \"GEN\"                 #> [22] \"TOB\"                 \"AMK\"                 \"KAN\"                 #> [25] \"TMP\"                 \"SXT\"                 \"NIT\"                 #> [28] \"FOS\"                 \"LNZ\"                 \"CIP\"                 #> [31] \"MFX\"                 \"VAN\"                 \"TEC\"                 #> [34] \"TCY\"                 \"TGC\"                 \"DOX\"                 #> [37] \"ERY\"                 \"CLI\"                 \"AZM\"                 #> [40] \"IPM\"                 \"MEM\"                 \"MTR\"                 #> [43] \"CHL\"                 \"COL\"                 \"MUP\"                 #> [46] \"RIF\"                 \"fullname\"            \"status\"              #> [49] \"kingdom\"             \"phylum\"              \"class\"               #> [52] \"order\"               \"family\"              \"genus\"               #> [55] \"species\"             \"subspecies\"          \"rank\"                #> [58] \"ref\"                 \"oxygen_tolerance\"    \"source\"              #> [61] \"lpsn\"                \"lpsn_parent\"         \"lpsn_renamed_to\"     #> [64] \"mycobank\"            \"mycobank_parent\"     \"mycobank_renamed_to\" #> [67] \"gbif\"                \"gbif_parent\"         \"gbif_renamed_to\"     #> [70] \"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)  # Default S3 method kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'matrix' kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class '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.021297 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.08143396"},{"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), apramycin (APR, QA07AA92), 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), cefovecin (FOV, QJ01DD91), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefquinome (CEQ, QG51AA07), 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), ceftiofur (TIO, QJ01DD90), 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), danofloxacin (DAN, QJ01MA92), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), difloxacin (DIF, QJ01MA94), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), enrofloxacin (ENR, QJ01MA90), 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), gamithromycin (GAM, QJ01FA95), 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), kitasamycin (KIT, QJ01FA93), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), marbofloxacin (MAR, QJ01MA93), 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), novobiocin (NOV, QJ01XX95), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), orbifloxacin (ORB, QJ01MA95), 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), pirlimycin (PRL, QJ51FF90), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pradofloxacin (PRA, QJ01MA97), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, QJ01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sarafloxacin (SAR, QJ01MA98), 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), tildipirosin (TIP, QJ01FA96), tilmicosin (TIL, QJ01FA91), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), tulathromycin (TUL, QJ01FA94), tylosin (TYL, QJ01FA90), tylvalosin (TYL1, QJ01FA92), 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 class 'sir' mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for class 'data.frame' mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) sir #> Class 'sir' #>  [1] R R S I I S I I R I mean_amr_distance(sir) #>  [1]  1.449138  1.449138 -0.621059 -0.621059 -0.621059 -0.621059 -0.621059 #>  [8] -0.621059  1.449138 -0.621059  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.002 0.5   0.125 128   0.25  0.5   256   0.125 0.125 64    mean_amr_distance(mic) #>  [1] -1.6429088 -0.1673475 -0.5378223  1.3145519 -0.3525849 -0.1673475 #>  [7]  1.4997893 -0.5378223 -0.5378223  1.1293145 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -1.6429088 -0.1673475 -0.5378223  1.3145519 -0.3525849 -0.1673475 #>  [7]  1.4997893 -0.5378223 -0.5378223  1.1293145  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 40 45 43 14 42 40 37 15 42 11 mean_amr_distance(disk) #>  [1]  0.5182957  0.8832927  0.7372939 -1.3796886  0.6642945  0.5182957 #>  [7]  0.2992975 -1.3066892  0.6642945 -1.5986868  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   17 <=0.5   >=8 #> 2   B    I   26 <=0.5     4 #> 3   C    R   18     4   >=8 #> 4   D    R   22 <=0.5 <=0.5 #> 5   E    I   30 <=0.5     1 #> 6   F    S   18     4     2 #> 7   G    I   26     8     2 #> 8   H    S   29     8     1 #> 9   I    I   22    16     1 #> 10  J    S   31     1     4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.12957466 -0.14083442  0.55230568 -0.36152662 -0.31478853 -0.33012168 #>  [7]  0.17672648  0.13748045 -0.07163669  0.22282068 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   18     4   >=8   0.55230568  0.0000000 #> 2   J    S   31     1     4   0.22282068  0.3294850 #> 3   G    I   26     8     2   0.17672648  0.3755792 #> 4   H    S   29     8     1   0.13748045  0.4148252 #> 5   A    R   17 <=0.5   >=8   0.12957466  0.4227310 #> 6   I    I   22    16     1  -0.07163669  0.6239424 #> 7   B    I   26 <=0.5     4  -0.14083442  0.6931401 #> 8   E    I   30 <=0.5     1  -0.31478853  0.8670942 #> 9   F    S   18     4     2  -0.33012168  0.8824274 #> 10  D    R   22 <=0.5 <=0.5  -0.36152662  0.9138323 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 971 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 971 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 971 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 971 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 971 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 971 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 971 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,971 × 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,961 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\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"11286021\" #>  #> $group_members #> character(0) #>   # 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 70 547 Taxonomic Records of Microorganisms — microorganisms","title":"Data Set with 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: June 24th, 2024) six kingdoms. data set backbone AMR package. MO codes can looked using .mo() microorganism properties can looked using mo_* functions. data set carefully crafted, yet made 100% reproducible public authoritative taxonomic sources (using script), namely: List Prokaryotic names Standing Nomenclature (LPSN) bacteria, MycoBank fungi, Global Biodiversity Information Facility (GBIF) others taxons.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 70 547 Taxonomic Records of 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 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"tibble 70 547 observations 26 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\", \"validly published\", \"synonym\", \"unknown\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism. Note fungi, phylum equal taxonomic division. Also, fungi, subkingdom subdivision left since occur bacterial taxonomy. 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. 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 68.3% ~39 000 bacteria data set contain oxygen tolerance. source Either \"GBIF\", \"LPSN\", \"MycoBank\", \"manually added\" (see Source) 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. unique identifier, though available ~32 000 records. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon mycobank Identifier ('MycoBank #') MycoBank. unique identifier, though available ~15 000 records. mycobank_parent MycoBank identifier parent taxon mycobank_renamed_to MycoBank identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF). unique identifier, though available ~46 000 records. gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon prevalence Prevalence microorganism based 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 16th, 2024 (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 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"Taxonomic entries imported order importance: List Prokaryotic names Standing Nomenclature (LPSN): 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 June 24th, 2024. MycoBank: Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. Global Biodiversity Information Facility (GBIF): GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Furthermore, sources used additional details: BacDive: 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 July 16th, 2024. Systematized Nomenclature Medicine - Clinical Terms (SNOMED-CT): 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). Accessed https://phinvads.cdc.gov July 16th, 2024. 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 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"Please note entries based LPSN, MycoBank, 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 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"Included taxonomic data LPSN, MycoBank, GBIF : ~39 000 (sub)species kingdoms Archaea Bacteria ~20 000 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). ~8 100 (sub)species kingdom Protozoa ~1 700 (sub)species 45 relevant genera kingdom Animalia (Strongyloides Taenia) ~17 000 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 70 547 Taxonomic Records of 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 .","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 70 547 Taxonomic Records of 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":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 70,547 × 26 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_GRAMN          (unknown Gra… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  2 B_GRAMP          (unknown Gra… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  3 B_ANAER-NEG      (unknown ana… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  4 B_ANAER-POS      (unknown ana… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  5 B_ANAER          (unknown ana… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  6 F_FUNGUS         (unknown fun… unkno… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  7   UNKNOWN        (unknown nam… unkno… (unkno… (unkn… (unk… (unk… \"(unk… \"(un… #>  8 F_YEAST          (unknown yea… unkno… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  9 F_AABRN          Aabaarnia     unkno… Fungi   Ascom… Leca… Ostr… \"\"     \"Aab… #> 10 B_[FAM]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"Abdi… \"\"    #> # ℹ 70,537 more rows #> # ℹ 17 more variables: species <chr>, subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_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, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saprochaete, Sarcoptes, Scedosporium, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporotrichum, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Verticillium, 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: Escherichia coli coli (0.643), Escherichia coli #>               expressing (0.611), 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), and Enterobacter cloacae #>               cloacae (0.571) #>  #> 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_mycobank(   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_group_members(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  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\", \"mycobank\", \"mycobank_parent\", \"mycobank_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() logical case mo_is_anaerobic(), mo_is_gram_negative(), mo_is_gram_positive(), mo_is_intrinsic_resistant(), mo_is_yeast() named character case mo_synonyms() 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 renaming) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (-per-session warning name outdated) 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 yeasts reproduce asexually process called budding, new cell develops small protrusion parent cell. Taxonomically, members phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes) Pichiomycetes. True yeasts quite specifically refers yeasts underlying order Saccharomycetales (Saccharomyces cerevisiae). Thus, microorganisms member taxonomic class Saccharomycetes Pichiomycetes, 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. MycoBank URL used fungi wherever available , LPSN URL bacteria wherever available, GBIF link otherwise. SNOMED codes (mo_snomed()) last updated July 16th, 2024. 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 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 June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. 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 July 16th, 2024. 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  mo_group_members(c(\"Streptococcus group A\",                    \"Streptococcus group C\",                    \"Streptococcus group G\",                    \"Streptococcus group L\")) #> $`Streptococcus Group A` #> [1] \"Streptococcus pyogenes\" #>  #> $`Streptococcus Group C` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #> [4] \"Streptococcus equi\"                      #> [5] \"Streptococcus equi equi\"                 #> [6] \"Streptococcus equi ruminatorum\"          #> [7] \"Streptococcus equi zooepidemicus\"        #>  #> $`Streptococcus Group G` #> [1] \"Streptococcus canis\"                     #> [2] \"Streptococcus dysgalactiae\"              #> [3] \"Streptococcus dysgalactiae dysgalactiae\" #> [4] \"Streptococcus dysgalactiae equisimilis\"  #>  #> $`Streptococcus Group L` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #>    # 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_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"  mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_mycobank(\"Candida albicans\") #> [1] \"256187\" mo_mycobank(\"Candida krusei\") #> [1] \"337013\" mo_mycobank(\"Candida krusei\", keep_synonyms = TRUE) #> Warning: Function as.mo() returned one old taxonomic name. Use as.mo(..., #> keep_synonyms = FALSE) to clean the input to currently accepted taxonomic #> names, or set the R option AMR_keep_synonyms to FALSE. This warning #> will be shown once per session. #> [1] \"268707\"   # 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] \"facultative anaerobe\" #>  #> $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\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"3221874\" #>  #> $group_members #> character(0) #>  # }"},{"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\"` and `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 class '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 class '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 class 'mic' fortify(object, ...)  # S3 method for class '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 class '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 class 'disk' fortify(object, ...)  # S3 method for class '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 class '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 class '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 limit 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. host set values veterinary species, automatically set \"animal\".","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 2024\", \"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 2024\", \"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(). Since AMR v3.0, proportion_SI() proportion_I() include dose-dependent susceptibility ('SDD'). 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) #> Note that proportion_SI() will also include dose-dependent #> susceptibility, 'SDD'. This note will be shown once for this session. #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> Note that proportion_I() will also include dose-dependent susceptibility, #> 'SDD'. This note will be shown once for this session. #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> Note that proportion_IR() will also include dose-dependent #> susceptibility, 'SDD'. This note will be shown once for this session. #> [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 2024 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] 16     64     256    0.002  1      0.001  64     0.25   1      16     #> [11] 0.5    8      8      0.0625 1      0.5    0.025  256    256    1      #> [21] 0.01   1      64     32     4      random_disk(25) #> Class 'disk' #>  [1] 49 47 14 33 49 43 41 41 43 31 20 43 42 11 18 42  8 42 16 25 42  8 15 30 29 random_sir(25) #> Class 'sir' #>  [1] I S S I S I I S R S S I I S S I I S I R S S R I 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] 64     0.025  2      0.25   32     64     0.002  32     0.01   0.001  #> [11] 0.25   0.125  0.0625 64     128    0.002  128    128    1      0.002  #> [21] 1      0.005  0.001  4      0.001  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 1    2    1    >=16 8    1    >=16 >=16 2    1    2    1    1    8    4    #> [16] 1    1    4    2    >=16 >=16 2    4    2    1    random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 2     0.25  >=8   >=8   0.5   1     1     0.125 0.25  1     2     1     #> [13] 0.25  >=8   0.25  2     1     1     >=8   0.125 0.5   >=8   0.125 0.25  #> [25] 0.25   random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 45 49 24 46 23 18 15 17 17 28 40 20 21 43 39  9 33 17  8 20 30 21 44 48 41 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 13 15 11 14 16 16 11 15 11 17 14 15 17 17 16 16 16 12 14 12 15 13 13 13 16 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 22 23 19 19 23 15 23 18 21 24 22 25 19 19 16 17 17 16 27 21 27 25 15 21 27 # }"},{"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 class '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 class '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)  # Default S3 method skewness(x, na.rm = FALSE)  # S3 method for class 'matrix' skewness(x, na.rm = FALSE)  # S3 method for class '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.03310027"},{"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":"https://msberends.github.io/AMR/news/index.html","id":"amr-2119078","dir":"Changelog","previous_headings":"","what":"AMR 2.1.1.9078","title":"AMR 2.1.1.9078","text":"(beta version eventually become v3.0. ’re happy reach new major milestone soon, new One Health support! Install beta using instructions .)","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9078","dir":"Changelog","previous_headings":"","what":"A New Milestone: AMR v3.0 with One Health Support (= Human + Veterinary + Environmental)","title":"AMR 2.1.1.9078","text":"package now supports tools AMR data analysis clinical settings, also veterinary environmental microbiology. made possible collaboration University Prince Edward Island’s Atlantic Veterinary College, Canada. celebrate great improvement package, also updated package logo reflect change.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"breaking-2-1-1-9078","dir":"Changelog","previous_headings":"","what":"Breaking","title":"AMR 2.1.1.9078","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-9078","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.1.9078","text":"Function .sir() now extensive support animal breakpoints CLSI. Use breakpoint_type = \"animal\" set host argument variable contains animal species names. clinical_breakpoints data set contains breakpoints, can downloaded download page. antibiotics data set contains veterinary antibiotics, pradofloxacin enrofloxacin. WHOCC codes veterinary use added well. ab_atc() now supports ATC codes veterinary antibiotics (start “Q”) ab_url() now supports retrieving WHOCC url ATCvet pages EUCAST 2024 CLSI 2024 now supported, adding 4,000 new clinical breakpoints clinical_breakpoints data set usage .sir(). EUCAST 2024 now new default guideline MIC disks diffusion interpretations. .sir() now brings additional factor levels: “NI” non-interpretable “SDD” susceptible dose-dependent. Currently, clinical_breakpoints data set contains 24 breakpoints can return value “SDD” instead “”. New function group scale_*_mic(), namely: scale_x_mic(), scale_y_mic(), scale_colour_mic() scale_fill_mic(). advanced ggplot2 extensions allow easy plotting MIC values. allow manual range definition plotting missing intermediate log2 levels. New 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. microorganisms data set now contains additional columns mycobank, mycobank_parent, mycobank_renamed_to New function mo_mycobank() get MycoBank record number, analogous existing functions mo_lpsn() mo_gbif() ’ve welcomed 2,000 records 2023, 900 2024, many thousands new fungi .mo() function now includes new argument, only_fungi (TRUE/FALSE), limits results fungi . Normally, bacteria often prioritised algorithm, setting only_fungi = TRUE ensures fungi returned. can also set globally using new R option AMR_only_fungi, e.g., options(AMR_only_fungi = TRUE). New function mo_group_members() retrieve member microorganisms microorganism group. example, mo_group_members(\"Strep group C\") returns vector microorganisms group.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-1-9078","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.1.1.9078","text":"now possible use column names argument ab, mo, uti: .sir(..., ab = \"column1\", mo = \"column2\", uti = \"column3\"). greatly improves flexibility users. Users can now set criteria (using regular expressions) considered S, , R, SDD, NI. get quantitative values, .double() sir object return 1 S, 2 SDD/, 3 R (NI become NA). functions using sir classes (e.g., summary()) updated reflect change contain NI SDD. New argument formatting_type set 12 options formatting ‘cells’. defaults 10, changing output antibiograms cells 5% (15/300) instead previous standard just 5. reason, add_total_n now FALSE default since denominators added cells ab_transform argument now defaults \"name\", displaying antibiotic column names instead codes Added “clindamycin inducible screening” CLI1. Since clindamycin lincosamide, antibiotic selector lincosamides() now contains argument only_treatable = TRUE (similar antibiotic selectors contain non-treatable drugs) Added Amorolfine (AMO, D01AE16), now also part antifungals() selector Added selectors nitrofurans() rifamycins() using antibiotic selectors aminoglycosides() exclude non-treatable drugs like gentamicin-high, function now always returns warning can included using only_treatable = FALSE Added valid levels: 4096, 6 powers 0.0625, 5 powers 192 (192, 384, 576, 768, 960) Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\". argument also available new rescale_mic() scale_*_mic() functions. Comparisons MIC values now strict. example, >32 higher (never equal ) 32. Thus, .mic(\">32\") == .mic(32) now returns FALSE, .mic(\">32\") > .mic(32) now returns TRUE. Sorting MIC values (using sort()) fixed manner; <0.001 now gets sorted 0.001, >0.001 gets sorted 0.001. Updated italicise_taxonomy() support HTML output custom_eucast_rules() now supports multiple antibiotics antibiotic groups affected single rule mo_info() now contains extra element group_members, contents new mo_group_members() function Greatly improved vctrs integration, Tidyverse package working background many Tidyverse functions. users, means functions dplyr’s bind_rows(), rowwise() c_across() now supported e.g. columns class mic. Despite , AMR package still zero-dependent package, including dplyr vctrs. Updated ATC codes WHOCC Updated antibiotic DDDs WHOCC Fix using manual value mo_transform antibiogram() Fix mapping ‘high level’ antibiotics .ab() (amphotericin B-high, gentamicin-high, kanamycin-high, streptomycin-high, tobramycin-high) Improved overall algorithm .ab() better performance accuracy Improved overall algorithm .mo() better performance accuracy. Specifically, weight given genus species combinations cases subspecies miswritten, result correct genus species. Intermediate log2 levels used MIC plotting now common values instead following strict dilution range Fixed bug antibiogram() returns empty data set","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-1-1-9078","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.1.1.9078","text":"Greatly updated expanded documentation Added Jordan Stull, Matthew Saab, Javier Sanchez contributors, thank valuable input","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/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 24 Jun 2024. 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: Escherichia coli coli (0.643), Escherichia coli #>               expressing (0.611), 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), and Enterobacter cloacae #>               cloacae (0.571) #> -------------------------------------------------------------------------------- #> \"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), Kluyveromyces pseudotropicale (0.386), #>               Kluyveromyces pseudotropicalis (0.363), Kosakonia pseudosacchari #>               (0.361), and Kluyveromyces pseudotropicalis pseudotropicalis (0.361) #> -------------------------------------------------------------------------------- #> \"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              %S   :41.0% (n=1112)   %S   :52.0% (n=1409)   #>  Unique:4              %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)      #>  #1    :B_ESCHR_COLI   %I   :16.1% (n=437)    %I   :12.0% (n=325)    #>  #2    :B_STPHY_AURS   %R   :42.9% (n=1163)   %R   :36.1% (n=978)    #>  #3    :B_STRPT_PNMN   %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)      #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %S   :51.5% (n=1396)   %S   :59.6% (n=1616)   TRUE:2712      #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)                     #>  %I   : 6.6% (n=178)    %I   : 3.1% (n=85)                    #>  %R   :42.0% (n=1138)   %R   :37.3% (n=1011)                  #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)  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          I         R            S          S            S            S #> 2          S         S            I          R            R            S #> 3          R         I            I          I            R            I #> 4          I         S            S          S            S            S #> 5          I         I            I          S            I            S #> 6          R         S            R          S            I            I #>   kanamycin #> 1         R #> 2         I #> 3         S #> 4         I #> 5         I #> 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: 5: S < SDD < < R < NI 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 70 547 rows 26 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, mycobank, mycobank_parent, mycobank_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 17 July 2024 12:29:55 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.6 MB) Download tab-separated text file (16 MB) Download Microsoft Excel workbook (7.8 MB) Download Apache Feather file (19 MB) Download Apache Parquet file (0 kB) Download SAS transport (XPT) file (69.5 MB) Download IBM SPSS Statistics data file (24.5 MB) Download Stata DTA file (69.5 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy six kingdoms List Prokaryotic names Standing Nomenclature (LPSN), MycoBank, 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 June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; . Accessed https://bacdive.dsmz.de July 16th, 2024. 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 485 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 19 September 2024 09:44:56 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 (75 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 34 063 rows 14 columns, containing following column names:guideline, type, host, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti, is_SDD. data set R available clinical_breakpoints, load AMR package. last updated 16 July 2024 12:51:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (70 kB) Download tab-separated text file (3.1 MB) Download Microsoft Excel workbook (2 MB) Download Apache Feather file (4.9 MB) Download Apache Parquet file (0 kB) Download SAS transport (XPT) file (9.6 MB) Download IBM SPSS Statistics data file (5.6 MB) Download Stata DTA file (9.3 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2011-2024) EUCAST (2011-2024). 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 340 804 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 July 2024 12:51:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (0.1 MB) Download tab-separated text file (12.4 MB) Download Microsoft Excel workbook (3.4 MB) Download Apache Feather file (13.1 MB) Download Apache Parquet file (0 kB) Download SAS transport (XPT) file (28.3 MB) Download IBM SPSS Statistics data file (18.4 MB) Download Stata DTA file (28.3 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 15 June 2024 13:33:49 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 971 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 16 July 2024 12:51:57 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 (82 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0 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: 33 × 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  #> # ℹ 23 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. 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. Christian F. Luz. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Matthew Saab. Contributor. Jonas Salm. Contributor. Javier Sanchez. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Jason Stull. Contributor. 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":"Provides --one solution antimicrobial resistance (AMR) data analysis One Health approach Used 175 countries, available 20 languages Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy extensive info antimicrobial drugs Applies recent CLSI EUCAST clinical veterinary breakpoints MICs, disk zones ECOFFs Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC, SNOMED CT, NCBI 100% free costs dependencies, 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-available-in-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, available in 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_antibiogram_formatting_type  numeric (1-12) use antibiogram(), indicate formatting type use. AMR_breakpoint_type  character use .sir(), indicate breakpoint type use. must either \"ECOFF\", \"animal\", \"human\". 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_custom_ab  file location RDS file, use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  file location RDS file, use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  character set default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  character set 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 2024\". Supported guideline currently EUCAST (2011-2024) CLSI (2011-2024). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_locale  character set language 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, English otherwise). 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, user read file automatically start-. 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 ~71 000 microorganisms (updated June 2024) ~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: 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] Christian F. Luz (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Matthew Saab [contributor] Jonas Salm [contributor] Javier Sanchez (ORCID) [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Jason Stull (ORCID) [contributor] 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://atcddd.fhi.) 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://atcddd.fhi./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://atcddd.fhi./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://atcddd.fhi.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://atcddd.fhi.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 asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2024\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] NA #>  #> $group_members #> character(0) #>    # 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  1965-12-05  58  58.80328         34 #> 2  1980-03-01  44  44.56557         19 #> 3  1949-11-01  74  74.89617         50 #> 4  1947-02-14  77  77.60929         52 #> 5  1940-02-19  84  84.59563         59 #> 6  1988-01-10  36  36.70492         11 #> 7  1997-08-27  27  27.07650          2 #> 8  1978-01-26  46  46.66120         21 #> 9  1972-06-17  52  52.27049         27 #> 10 1986-08-10  38  38.12295         13"},{"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 Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Create detailed antibiograms options traditional, combination, syndromic, Bayesian WISCA methods. Based approaches Klinker et al., Barbieri et al., Bayesian WISCA model (Weighted-Incidence Syndromic Combination Antibiogram) Bielicki et al., function provides flexible output formats including plots tables, ideal integration R Markdown Quarto reports.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = \"name\",   syndromic_group = NULL,   add_total_n = FALSE,   only_all_tested = FALSE,   digits = 0,   formatting_type = getOption(\"AMR_antibiogram_formatting_type\", 10),   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for class 'antibiogram' plot(x, ...)  # S3 method for class 'antibiogram' autoplot(object, ...)  # S3 method for class '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 Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Bielicki JA et al. (2016). Selecting appropriate empirical antibiotic regimens paediatric bloodstream infections: application Bayesian decision model local pooled antimicrobial resistance surveillance data Journal Antimicrobial Chemotherapy 71(3); doi:10.1093/jac/dkv397 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 Traditional, Combination, Syndromic, or WISCA Antibiograms — 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\" (default), \"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\", \"mycobank\", \"mycobank_parent\", \"mycobank_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 (defaults \"name\"): \"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 susceptibility percentage formatting_type numeric value (1–12) indicating 'cells' antibiogram table formatted. See Details > Formatting Type list options. 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 Traditional, Combination, Syndromic, or WISCA Antibiograms — 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.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"formatting-type","dir":"Reference","previous_headings":"","what":"Formatting Type","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"formatting 'cells' table can set argument formatting_type. examples, 5 susceptibility percentage, 15 numerator, 300 denominator: 5 15 300 15/300 5 (300) 5% (300) 5 (N=300) 5% (N=300) 5 (15/300) 5% (15/300) 5 (N=15/300) 5% (N=15/300) default 10, can set globally package option AMR_antibiogram_formatting_type, e.g. options(AMR_antibiogram_formatting_type = 5). Set digits (defaults 0) alter rounding susceptibility percentage.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"four antibiogram types, summarised Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(). Use WISCA whenever possible, since provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility. See section Use WISCA? page. four antibiogram types: 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) WISCA enhances empirical antibiotic selection weighting incidence pathogens specific clinical syndromes combining susceptibility data. provides estimation regimen coverage aggregating pathogen incidences susceptibilities across potential causative organisms. See also section Use WISCA? page. Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   WISCA uses sophisticated Bayesian decision model combine local pooled antimicrobial resistance data. approach evaluates local patterns can also draw multi-centre datasets improve regimen accuracy, even low-incidence infections like paediatric bloodstream infections (BSIs).","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\"))"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"inclusion-in-combination-antibiogram-and-syndromic-antibiogram","dir":"Reference","previous_headings":"","what":"Inclusion in Combination Antibiogram and Syndromic Antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Note types 2 3 (Combination Antibiogram Syndromic Antibiogram), 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":"--------------------------------------------------------------------                     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":"plotting","dir":"Reference","previous_headings":"","what":"Plotting","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"types antibiograms listed can plotted (using ggplot2::autoplot() base R's plot() barplot()). outcome antibiogram() 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":"why-use-wisca-","dir":"Reference","previous_headings":"","what":"Why Use WISCA?","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"WISCA powerful tool guiding empirical antibiotic therapy provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility. particularly important empirical treatment, causative pathogen often unknown outset. Traditional antibiograms reflect weighted likelihood specific pathogens based clinical syndromes, can lead suboptimal treatment choices. Bayesian WISCA, described Bielicki et al. (2016), improves earlier methods handling uncertainties common smaller datasets, low-incidence infections. method offers significant advantage : Pooling Data Multiple Sources: WISCA uses pooled data multiple hospitals surveillance sources overcome limitations small sample sizes individual institutions, allowing confident selection narrow-spectrum antibiotics combinations. Bayesian Framework: Bayesian decision tree model accounts local data prior knowledge (inherent resistance patterns) estimate regimen coverage. allows precise estimation coverage, even cases susceptibility data missing incomplete. Incorporating Pathogen Regimen Uncertainty: WISCA allows clinicians see likelihood empirical regimen effective relevant pathogens, taking account uncertainties related pathogen prevalence antimicrobial resistance. leads better-informed, data-driven clinical decisions. Scenarios Optimising Treatment: hospitals settings low-incidence infections, WISCA helps determine whether local data sufficient pooling external data necessary. also identifies statistically significant differences similarities antibiotic regimens, enabling clinicians choose optimal therapies greater confidence. WISCA essential optimising empirical treatment shifting away broad-spectrum antibiotics, often overused empirical settings. offering precise estimates based syndromic patterns pooled data, WISCA supports antimicrobial stewardship guiding targeted therapy, reducing unnecessary broad-spectrum use, combating rise antimicrobial resistance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — 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) #> # An Antibiogram: 10 × 7 #>    Pathogen       Amikacin    Gentamicin Imipenem Kanamycin Meropenem Tobramycin #>  * <chr>          <chr>       <chr>      <chr>    <chr>     <chr>     <chr>      #>  1 CoNS           0% (0/43)   86% (267/… 52% (25… 0% (0/43) 52% (25/… 22% (12/5… #>  2 E. coli        100% (171/… 98% (451/… 100% (4… NA        100% (41… 97% (450/… #>  3 E. faecalis    0% (0/39)   0% (0/39)  100% (3… 0% (0/39) NA        0% (0/39)  #>  4 K. pneumoniae  NA          90% (52/5… 100% (5… NA        100% (53… 90% (52/5… #>  5 P. aeruginosa  NA          100% (30/… NA       0% (0/30) NA        100% (30/… #>  6 P. mirabilis   NA          94% (32/3… 94% (30… NA        NA        94% (32/3… #>  7 S. aureus      NA          99% (231/… NA       NA        NA        98% (84/8… #>  8 S. epidermidis 0% (0/44)   79% (128/… NA       0% (0/44) NA        51% (45/8… #>  9 S. hominis     NA          92% (74/8… NA       NA        NA        85% (53/6… #> 10 S. pneumoniae  0% (0/117)  0% (0/117) NA       0% (0/11… NA        0% (0/117) #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # An Antibiogram: 2 × 5 #>   Pathogen      J01GB01       J01GB03        J01GB04    J01GB06       #> * <chr>         <chr>         <chr>          <chr>      <chr>         #> 1 Gram-negative 96% (658/686) 96% (659/684)  0% (0/35)  98% (251/256) #> 2 Gram-positive 34% (228/665) 63% (740/1170) 0% (0/436) 0% (0/436)    #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # An Antibiogram: 5 × 3 #>   Pathogen                                 Imipenem       Meropenem      #> * <chr>                                    <chr>          <chr>          #> 1 Coagulase-negative Staphylococcus (CoNS) 52% (25/48)    52% (25/48)    #> 2 Enterococcus faecalis                    100% (38/38)   NA             #> 3 Escherichia coli                         100% (422/422) 100% (418/418) #> 4 Klebsiella pneumoniae                    100% (51/51)   100% (53/53)   #> 5 Proteus mirabilis                        94% (30/32)    NA             #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # An Antibiogram: 2 × 4 #>   Pathogen  Piperacillin/tazobac…¹ Piperacillin/tazobac…² Piperacillin/tazobac…³ #> * <chr>     <chr>                  <chr>                  <chr>                  #> 1 Gram-neg… 88% (565/641)          99% (681/691)          98% (679/693)          #> 2 Gram-pos… 86% (296/345)          98% (1018/1044)        95% (524/550)          #> # ℹ abbreviated names: ¹​`Piperacillin/tazobactam`, #> #   ²​`Piperacillin/tazobactam + Gentamicin`, #> #   ³​`Piperacillin/tazobactam + Tobramycin` #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # 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 = \" & \" ) #> # An Antibiogram: 2 × 3 #>   Pathogen      Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>         <chr>         <chr>                        #> 1 Gram-negative 91% (621/684) 99% (684/694)                #> 2 Gram-positive 77% (560/724) 93% (784/847)                #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # 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) #> # An Antibiogram: 14 × 8 #>    `Syndromic Group` Pathogen   Amikacin Gentamicin Imipenem Kanamycin Meropenem #>  * <chr>             <chr>      <chr>    <chr>      <chr>    <chr>     <chr>     #>  1 Clinical          CoNS       NA       89% (183/… 57% (20… NA        57% (20/… #>  2 ICU               CoNS       NA       79% (58/7… NA       NA        NA        #>  3 Outpatient        CoNS       NA       84% (26/3… NA       NA        NA        #>  4 Clinical          E. coli    100% (1… 98% (291/… 100% (2… NA        100% (27… #>  5 ICU               E. coli    100% (5… 99% (135/… 100% (1… NA        100% (11… #>  6 Clinical          K. pneumo… NA       92% (47/5… 100% (4… NA        100% (46… #>  7 Clinical          P. mirabi… NA       100% (30/… NA       NA        NA        #>  8 Clinical          S. aureus  NA       99% (148/… NA       NA        NA        #>  9 ICU               S. aureus  NA       100% (66/… NA       NA        NA        #> 10 Clinical          S. epider… NA       82% (65/7… NA       NA        NA        #> 11 ICU               S. epider… NA       72% (54/7… NA       NA        NA        #> 12 Clinical          S. hominis NA       96% (43/4… NA       NA        NA        #> 13 Clinical          S. pneumo… 0% (0/7… 0% (0/78)  NA       0% (0/78) NA        #> 14 ICU               S. pneumo… 0% (0/3… 0% (0/30)  NA       0% (0/30) NA        #> # ℹ 1 more variable: Tobramycin <chr> #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # 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) #> # An Antibiogram: 2 × 5 #>   `Grupo sindrómico` Patógeno Amikacina      Gentamicina   Tobramicina   #> * <chr>              <chr>    <chr>          <chr>         <chr>         #> 1 No UCI             E. coli  100% (119/119) 98% (316/323) 98% (318/325) #> 2 UCI                E. coli  100% (52/52)   99% (135/137) 96% (132/137) #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # 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\"   ) ) #> # An Antibiogram: 4 × 6 #>   `Syndromic Group` Pathogen      Amoxicillin/clavulani…¹ Amoxicillin/clavulan…² #> * <chr>             <chr>         <chr>                   <chr>                  #> 1 WISCA Group 1     Gram-negative 76% (216/285)           95% (270/284)          #> 2 WISCA Group 2     Gram-negative 76% (336/441)           98% (432/442)          #> 3 WISCA Group 1     Gram-positive 76% (310/406)           89% (347/392)          #> 4 WISCA Group 2     Gram-positive 76% (556/732)           89% (617/695)          #> # ℹ abbreviated names: ¹​`Amoxicillin/clavulanic acid`, #> #   ²​`Amoxicillin/clavulanic acid + Ciprofloxacin` #> # ℹ 2 more variables: `Piperacillin/tazobactam` <chr>, #> #   `Piperacillin/tazobactam + Tobramycin` <chr> #> # Use `plot()` or `ggplot2::autoplot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # 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        |Piperacillin/tazobactam | #> |:---------------|:-----------------------| #> |CoNS            |30% (10/33)             | #> |*E. coli*       |94% (393/416)           | #> |*K. pneumoniae* |89% (47/53)             | #> |*S. pneumoniae* |100% (112/112)          |   # 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, only_treatable = TRUE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  nitrofurans(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  quinolones(only_sir_columns = FALSE, ...)  rifamycins(only_sir_columns = FALSE, ...)  streptogramins(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), 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:  amorolfine (AMO), amphotericin B (AMB), amphotericin B-high (AMH), 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), clindamycin inducible screening (CLI1), 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) nitrofurans() can select:  furazidin (FUR), furazolidone (FRZ), nifurtoinol (NFR), nitrofurantoin (NIT), nitrofurazone (NIZ) 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), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), 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) rifamycins() can select:  rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP) 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 'dplyr', 'base R', and 'data.table':  # \\donttest{ # dplyr -------------------------------------------------------------------  if (require(\"dplyr\")) {   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\")) {   # 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\")) {   # select only antibiotic columns with DDDs for oral treatment   example_isolates %>% select(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>  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_at(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: `OXA = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ 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()) } #> # 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   # 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   # 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) #> Warning: It should never be needed to print an antibiotic selector class. Are you #> using data.table? Then add the argument with = FALSE, see our examples at #> ?ab_selector. #> Class 'ab_selector' #> [1] IPM MEM if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>         IPM   MEM #>       <sir> <sir> #>    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 #>               <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> #>   ---                                      #> 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 #>       <sir> <sir> <sir> <sir> <sir> <sir> #>    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 #>          <Date>  <char> <num> <char>     <char>         <mo> <sir> <sir> <sir> #>   1: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   2: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   3: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   4: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   5: 2002-02-05  067927    45      F        ICU B_SERRT_MRCS     R  <NA>  <NA> #>  ---                                                                           #> 905: 2005-04-12  D71461    70      M        ICU B_ESCHR_COLI     R  <NA>  <NA> #> 906: 2009-11-12  650870    69      F Outpatient B_ESCHR_COLI     R  <NA>  <NA> #> 907: 2012-06-14  8CBCF2    41      F   Clinical B_STPHY_CONS     R     S     S #> 908: 2012-10-11  175532    78      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #> 909: 2013-11-23  A97263    77      M   Clinical B_KLBSL_PNMN     R  <NA>  <NA> #>        AMX   AMC   AMP   TZP   CZO   FEP   CXM   FOX   CTX   CAZ   CRO   GEN #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   2:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   3:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   4:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   5:     R     R     R  <NA>     R  <NA>     R     R  <NA>  <NA>  <NA>  <NA> #>  ---                                                                         #> 905:     S     S     S     S  <NA>     S     S     S     S     S     S     S #> 906:     S     S     S     S     S     S     S     S     S     S     S     S #> 907:  <NA>     S  <NA>  <NA>     S     S     S     S     S     R     S     S #> 908:     R     S     R     S  <NA>     S     R     R     S     S     S     S #> 909:     R     S     R     S  <NA>     S     S     S     S     S     S     S #>        TOB   AMK   KAN   TMP   SXT   NIT   FOS   LNZ   CIP   MFX   VAN   TEC #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   2:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   3:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   4:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   5:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>  ---                                                                         #> 905:     S     S  <NA>  <NA>     S     S  <NA>     R     S  <NA>     R     R #> 906:     S     S  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #> 907:  <NA>  <NA>  <NA>     S     S  <NA>  <NA>  <NA>     S  <NA>     S  <NA> #> 908:     S  <NA>  <NA>     R     R     R  <NA>     R     R     R     R     R #> 909:     S  <NA>  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #>        TCY   TGC   DOX   ERY   CLI   AZM   IPM   MEM   MTR   CHL   COL   MUP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   2:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   3:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   4:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   5:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>  ---                                                                         #> 905:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 906:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 907:  <NA>  <NA>  <NA>     S     S     S     S     S  <NA>  <NA>     R  <NA> #> 908:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #> 909:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #>        RIF #>      <sir> #>   1:     R #>   2:     R #>   3:     R #>   4:     R #>   5:     R #>  ---       #> 905:     R #> 906:     R #> 907:  <NA> #> 908:     R #> 909:     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 #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   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 605 Antimicrobial Drugs — antibiotics","title":"Data Sets with 605 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 605 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 605 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 485 observations and 14 variables:","title":"Data Sets with 605 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 179 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 153 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 605 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 605 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://atcddd.fhi./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 605 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 605 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 605 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://atcddd.fhi.) 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://atcddd.fhi./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 605 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 485 × 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 AMO     54260 Amoro… Anti… <chr> Antifunga… Other ant… <chr [1]>     <chr>    #>  8 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  9 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #> 10 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> # ℹ 475 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://atcddd.fhi./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://atcddd.fhi.) 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://atcddd.fhi./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://atcddd.fhi./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://atcddd.fhi.) 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://atcddd.fhi./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. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2024... #>  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. #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2024... #>  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 class '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 limit 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 numeric vector. Bear 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-2024) CLSI (2011-2024). 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.:   -called group generic functions implemented MIC class (!, !=, <, >=, exp(), log2()). functions stats package also implemented (quantile(), median(), fivenum()). 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 limited 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. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2024... #>  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. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2024... #>  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, Chromista, 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()),   only_fungi = getOption(\"AMR_only_fungi\", FALSE),   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. only_fungi logical indicate fungi must found, making sure e.g. misspellings always return records kingdom Fungi. can set globally microorganism functions package option AMR_only_fungi, .e. options(AMR_only_fungi = TRUE). language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate info must printed, e.g. progress bar 25 items coerced, list old taxonomic names. 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' return MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel scientifically validated (doi:10.18637/jss.v104.i03 ) matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. implicates e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first.","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   \\----> kingdom: A (Archaea), AN (Animalia), B (Bacteria),                   C (Chromista), 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 inspect results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument used clean input. 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":"for-mycologists","dir":"Reference","previous_headings":"","what":"For Mycologists","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"matching score algorithm gives precedence bacteria fungi. analysing fungi, sure use only_fungi = TRUE, better yet, add code run every session:   make sure bacteria 'non-fungi' returned .mo(), mo_* functions.","code":"options(AMR_only_fungi = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coagulase-negative-and-coagulase-positive-staphylococci","dir":"Reference","previous_headings":"","what":"Coagulase-negative and Coagulase-positive Staphylococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Becker = TRUE, following staphylococci converted corresponding coagulase group: Coagulase-negative: S. americanisciuri, S. argensis, S. arlettae, S. auricularis, S. borealis, S. brunensis, 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. marylandisciuri, 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. shinii, 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 Coagulase-positive: 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 based : 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 newly named staphylococcal species, S. brunensis (2024) S. shinii (2023), looked scientific reference make sure species considered correct coagulase group.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"lancefield-groups-in-streptococci","dir":"Reference","previous_headings":"","what":"Lancefield Groups in Streptococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Lancefield = TRUE, following streptococci converted corresponding Lancefield group: Streptococcus Group : S. pyogenes Streptococcus Group B: S. agalactiae Streptococcus Group C: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis, S. equi, S. equi equi, S. equi ruminatorum, S. equi zooepidemicus Streptococcus Group F: S. anginosus, S. anginosus anginosus, S. anginosus whileyi, S. constellatus, S. constellatus constellatus, S. constellatus pharyngis, S. constellatus viborgensis, S. intermedius Streptococcus Group G: S. canis, S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis Streptococcus Group H: S. sanguinis Streptococcus Group K: S. salivarius, S. salivarius salivarius, S. salivarius thermophilus Streptococcus Group L: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis based : Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571","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 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 June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. 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 July 16th, 2024. 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, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saprochaete, Sarcoptes, Scedosporium, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporotrichum, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Verticillium, 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- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )( ?[a-z-]+[-](resistant|susceptible) ?|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":"Clean existing SIR values, interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI. .sir() transforms input new class sir, ordered factor containing levels S, SDD, , R, NI. breakpoints currently implemented: clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024; veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2024 CLSI 2022-2024. breakpoints used interpretation 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)  # Default S3 method as.sir(   x,   S = \"^(S|U)+$\",   I = \"^(I)+$\",   R = \"^(R)+$\",   NI = \"^(N|NI|V)+$\",   SDD = \"^(SDD|D|H)+$\",   ... )  # S3 method for class '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\"),   host = NULL,   verbose = FALSE,   ... )  # S3 method for class '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\"),   host = NULL,   verbose = FALSE,   ... )  # S3 method for class '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\"),   host = NULL,   verbose = FALSE )  sir_interpretation_history(clean = FALSE)"},{"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: CLSI M39: Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. CLSI M100: Performance Standard Antimicrobial Susceptibility Testing, 2011-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. CLSI VET01: Performance Standards Antimicrobial Disk Dilution Susceptibility Tests Bacteria Isolated Animals, 2019-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet01/. CLSI VET09: Understanding Susceptibility Test Data Component Antimicrobial Stewardship Veterinary Settings, 2019-2024, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet09/. EUCAST Breakpoint tables interpretation MICs zone diameters, 2011-2024, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints. WHONET source machine-reading clinical breakpoints (read ), 1989-2024, Collaborating Centre Surveillance Antimicrobial Resistance. https://whonet.org/.","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 S, , R, NI, SDD case-independent regular expression translate input result. regular expression run non-letters whitespaces removed input. mo vector (column name) characters can coerced valid microorganism codes .mo(), can left empty determine automatically ab vector (column name) characters can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2024 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2024) CLSI (2011-2024), see Details. uti (Urinary Tract Infection) vector (column name) 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. host set values veterinary species, automatically set \"animal\". host vector (column name) characters indicate host. useful veterinary breakpoints, requires breakpoint_type = \"animal\". values can text resembling animal species, even 20 supported languages package. foreign languages, sure set language set_AMR_locale() (though automatically guessed based system language). verbose logical indicate notes printed interpretation MIC values disk diffusion values. 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. 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 can work four ways: cleaning raw / untransformed data. data cleaned contain valid values, namely: S susceptible, intermediate 'susceptible, increased exposure', R resistant, NI non-interpretable, SDD susceptible dose-dependent. can set using regular expression. Furthermore, .sir() try best clean 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 invalid. 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.mic, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.mic, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.mic, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\") your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir)) your_data %>% mutate_if(is.disk, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.disk, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.disk, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\")"},{"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 clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024, veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024. Thus, guideline argument must set e.g., \"EUCAST 2024\" \"CLSI 2024\". 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), :   veterinary guidelines, might best options:   applying veterinary breakpoints (setting host setting breakpoint_type = \"animal\"), CLSI VET09 guideline applied cope missing animal species-specific breakpoints.","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL) options(AMR_guideline = \"CLSI\")   options(AMR_breakpoint_type = \"animal\")"},{"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. determine isolates multi-drug resistant, sure run mdro() (applies MDR/PDR/XDR guideline 2012 default) data set contains S//R values. Read interpreting multidrug-resistant organisms .","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 34 063 rows 14 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. base R function .double() can used retrieve quantitative values sir object: \"S\" = 1, \"\"/\"SDD\" = 2, \"R\" = 3. values rendered NA . Note: use .integer(), since (R works internally) return factor level indices, aforementioned quantitative values. function is_sir_eligible() returns TRUE column contains 5% invalid antimicrobial interpretations (S //R /NI /SDD), 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              %S   :25.6% (n=417)    #>  Mode  :character   Unique:90             %SDD : 0.0% (n=0)      #>                     #1    :B_ESCHR_COLI   %I   : 0.7% (n=11)     #>                     #2    :B_STPHY_CONS   %R   :73.7% (n=1201)   #>                     #3    :B_STPHY_AURS   %NI  : 0.0% (n=0)      #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %S   :68.8% (n=251)   %S   :70.5% (n=665)   %S   :40.2% (n=543)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)     %I   : 0.2% (n=3)     #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %S   :71.4% (n=1342)   %S   :40.2% (n=543)   %S   :86.1% (n=862)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 4.8% (n=91)     %I   : 0.2% (n=3)     %I   : 1.3% (n=13)    #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :54.9% (n=245)   %S   :85.6% (n=620)   %S   :72.5% (n=1297)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 0.4% (n=2)     %I   : 0.1% (n=1)     %I   : 1.2% (n=22)     #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :71.6% (n=586)   %S   :84.4% (n=796)   %S   :33.5% (n=607)    #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 1.0% (n=8)     %I   : 0.1% (n=1)     %I   : 0.0% (n=0)      #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %S   :84.4% (n=796)   %S   :74.0% (n=1372)   %S   :65.1% (n=879)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.1% (n=1)     %I   : 1.5% (n=27)     %I   : 0.5% (n=7)     #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %S   :36.3% (n=251)   %S   : 0.0% (n=0)      %S   :61.2% (n=918)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)      %I   : 0.7% (n=10)    #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %S   :79.1% (n=1392)   %S   :76.0% (n=565)   %S   :57.8% (n=203)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.3% (n=6)      %I   : 6.9% (n=51)    %I   : 0.0% (n=0)     #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %S   :30.7% (n=314)   %S   :78.9% (n=1112)   %S   :64.5% (n=136)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 4.9% (n=69)     %I   : 1.9% (n=4)     #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %S   :61.7% (n=1149)   %S   :24.3% (n=237)   %S   :68.3% (n=820)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)      %I   : 0.0% (n=0)     %I   : 1.9% (n=23)    #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %S   :87.3% (n=697)   %S   :71.7% (n=814)   %S   :42.3% (n=801)    #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      #>  %I   : 0.0% (n=0)     %I   : 0.6% (n=7)     %I   : 0.5% (n=9)      #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %S   :38.6% (n=586)   %S   :42.3% (n=801)    %S   :92.7% (n=824)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     #>  %I   : 0.3% (n=4)     %I   : 0.5% (n=9)      %I   : 1.1% (n=10)    #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %S   :94.1% (n=780)   %S   :85.3% (n=29)   %S   :78.6% (n=121)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)    %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)    %I   : 0.0% (n=0)     #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)    %NI  : 0.0% (n=0)     #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %S   :18.8% (n=309)    %S   :93.0% (n=251)   %S   :30.2% (n=303)   #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)      %I   : 1.1% (n=3)     %I   : 0.2% (n=2)     #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      # For INTERPRETING disk diffusion and MIC values -----------------------  # example data sets, with combined MIC values and disk zones df_wide <- data.frame(   microorganism = \"Escherichia coli\",   amoxicillin = as.mic(8),   cipro = as.mic(0.256),   tobra = as.disk(16),   genta = as.disk(18),   ERY = \"R\" ) df_long <- data.frame(   bacteria = rep(\"Escherichia coli\", 4),   antibiotic = c(\"amoxicillin\", \"cipro\", \"tobra\", \"genta\"),   mics = as.mic(c(0.01, 1, 4, 8)),   disks = as.disk(c(6, 10, 14, 18)) )  # \\donttest{ ## Using dplyr ------------------------------------------------- if (require(\"dplyr\")) {   # approaches that all work without additional arguments:   df_wide %>% mutate_if(is.mic, as.sir)   df_wide %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df_wide %>% mutate(across(where(is.mic), as.sir))   df_wide %>% mutate_at(vars(amoxicillin:tobra), as.sir)   df_wide %>% mutate(across(amoxicillin:tobra, as.sir))      # approaches that all work with additional arguments:   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               guideline = \"CLSI\")   df_long %>%     mutate(across(where(is.mic),                   function(x) as.sir(x,                                      mo = \"bacteria\",                                      ab = \"antibiotic\",                                      guideline = \"CLSI\")))   df_wide %>%     # given certain columns, e.g. from 'cipro' to 'genta'     mutate_at(vars(cipro:genta), as.sir,               mo = \"bacteria\",               guideline = \"CLSI\")   df_wide %>%     mutate(across(cipro:genta,                        function(x) as.sir(x,                                           mo = \"bacteria\",                                           guideline = \"CLSI\")))                           # for veterinary breakpoints, add 'host':   df_long$animal_species <- c(\"cats\", \"dogs\", \"horses\", \"cattle\")   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               host = \"animal_species\",               guideline = \"CLSI\")   df_long %>%     mutate(across(where(is.mic),                   function(x) as.sir(x,                                      mo = \"bacteria\",                                      ab = \"antibiotic\",                                      host = \"animal_species\",                                      guideline = \"CLSI\")))   df_wide %>%     mutate_at(vars(cipro:genta), as.sir,               mo = \"bacteria\",               ab = \"antibiotic\",               host = \"animal_species\",               guideline = \"CLSI\")   df_wide %>%     mutate(across(cipro:genta,                        function(x) as.sir(x,                                           mo = \"bacteria\",                                           host = \"animal_species\",                                           guideline = \"CLSI\")))      # to include information about urinary tract infections (UTI)   data.frame(mo = \"E. coli\",              nitrofuratoin = c(\"<= 2\", 32),              from_the_bladder = c(TRUE, FALSE)) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(mo = \"E. coli\",              nitrofuratoin = c(\"<= 2\", 32),              specimen = c(\"urine\", \"blood\")) %>%     as.sir() # automatically determines urine isolates    df_wide %>%     mutate_at(vars(cipro:genta), as.sir, mo = \"E. coli\", uti = TRUE) } #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  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. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  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. #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin) based on #> column 'microorganism', EUCAST 2024... #>  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. #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  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. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  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. #> Interpreting MIC values: 'amoxicillin' (AMX) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin) based on column #> 'microorganism', EUCAST 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin) based on #> column 'microorganism', EUCAST 2024... #>  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. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'amoxicillin' (AMX), 'cipro' (CIP, ciprofloxacin), #> 'tobra' (TOB, tobramycin), and 'genta' (GEN, gentamicin) based on column #> 'bacteria', CLSI 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #>  #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'antibiotic' (TESTAB, test Antibiotic), CLSI #> 2024... #>  WARNING  #>   • No CLSI 2024 MIC breakpoints available for test Antibiotic (TESTAB). #> Interpreting disk diffusion zones: 'antibiotic' (TESTAB, test Antibiotic), #> CLSI 2024... #>  WARNING  #>   • No CLSI 2024 DISK breakpoints available for test Antibiotic (TESTAB). #> Interpreting disk diffusion zones: 'antibiotic' (TESTAB, test Antibiotic), #> CLSI 2024... #>  WARNING  #>   • No CLSI 2024 DISK breakpoints available for test Antibiotic (TESTAB). #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `cipro = (function (x, ...) ...`. #> Caused by warning: #> ! The following animal host(s) could not be coerced: \"animal_species\" #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> ℹ Assuming breakpoint_type = \"animal\", since host is set. #>  #> ℹ Please note that in the absence of specific veterinary breakpoints for #>   certain animal hosts, the CLSI guideline VET09 will be applied where #>   possible. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), CLSI 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), CLSI 2024... #>  OK  #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! The following animal host(s) could not be coerced: \"animal_species\" #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: column 'nitrofuratoin' (NIT, nitrofurantoin), #> EUCAST 2024... #>  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. #> Interpreting MIC values: column 'nitrofuratoin' (NIT, nitrofurantoin), #> EUCAST 2024... #>  OK  #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'cipro' (CIP, ciprofloxacin), EUCAST 2024... #>  OK  #> Interpreting disk diffusion zones: 'tobra' (TOB, tobramycin), EUCAST #> 2024... #>  OK  #> Interpreting disk diffusion zones: 'genta' (GEN, gentamicin), EUCAST #> 2024... #>  OK  #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           8  <NA>     S     S   R   ## Using base R ------------------------------------------------  as.sir(df_wide) #>  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: column 'amoxicillin' (AMX), EUCAST 2024... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for amoxicillin (AMX) in Escherichia coli - assuming body site 'Intravenous'. Use argument uti to set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: column 'cipro' (CIP, ciprofloxacin), EUCAST #> 2024... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: column 'tobra' (TOB, tobramycin), EUCAST #> 2024... #>  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. #> Interpreting disk diffusion zones: column 'genta' (GEN, gentamicin), EUCAST #> 2024... #>  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. #> Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK  #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           S     I     S     S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 57 × 16 #>    datetime            index ab_given mo_given host_given ab   mo               #>  * <dttm>              <int> <chr>    <chr>    <chr>      <ab> <mo>             #>  1 2024-09-24 20:46:27     4 AMX      B_STRPT… human      AMX  B_STRPT_PNMN     #>  2 2024-09-24 20:46:34     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR #>  3 2024-09-24 20:46:34     4 genta    Escheri… human      GEN  B_[ORD]_ENTRBCTR #>  4 2024-09-24 20:46:35     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI     #>  5 2024-09-24 20:46:35     4 genta    Escheri… cattle     GEN  B_ESCHR_COLI     #>  6 2024-09-24 20:46:27     3 AMX      B_STRPT… human      AMX  B_STRPT_PNMN     #>  7 2024-09-24 20:46:34     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR #>  8 2024-09-24 20:46:34     3 tobra    Escheri… human      TOB  B_[ORD]_ENTRBCTR #>  9 2024-09-24 20:46:35     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI     #> 10 2024-09-24 20:46:35     3 tobra    Escheri… horses     TOB  B_ESCHR_COLI     #> # ℹ 47 more rows #> # ℹ 9 more variables: host <chr>, method <chr>, input <dbl>, outcome <sir>, #> #   notes <chr>, guideline <chr>, ref_table <chr>, uti <lgl>, #> #   breakpoint_S_R <chr>  # 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. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2024... #>  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. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2024... #>  OK  #> Class 'sir' #> [1] R   # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '19' truncated (38%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    SDD  I    R    NI   <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   # as common in R, you can use as.integer() to return factor indices: as.integer(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  3  4  5 NA # but for computational use, as.double() will return 1 for S, 2 for I/SDD, and 3 for R: as.double(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  2  3 NA NA  # 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://atcddd.fhi.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://atcddd.fhi.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://atcddd.fhi./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://atcddd.fhi./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://atcddd.fhi.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 class '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\", \"SDD\", \"\", \"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 × 8 #>   mo                ab        S   SDD     I     R    NI total #>   <chr>             <chr> <int> <int> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0     0     0    15 #> 2 (unknown species) AMK       0     0     0     0     0     0 #> 3 (unknown species) AMP      15     0     0     1     0    16 #> 4 (unknown species) AMX      15     0     0     1     0    16 #> 5 (unknown species) AZM       3     0     0     3     0     6 #> 6 (unknown species) CAZ       0     0     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 × 8 #>    mo            ab        S   SDD     I     R    NI total #>  * <chr>         <chr> <int> <int> <int> <int> <int> <int> #>  1 Gram-negative AMC     463     0    89   174     0   726 #>  2 Gram-negative AMK     251     0     0     5     0   256 #>  3 Gram-negative AMP     226     0     0   405     0   631 #>  4 Gram-negative AMX     226     0     0   405     0   631 #>  5 Gram-negative AZM       1     0     2   696     0   699 #>  6 Gram-negative CAZ     607     0     0    27     0   634 #>  7 Gram-negative CHL       1     0     0    30     0    31 #>  8 Gram-negative CIP     610     0    11    63     0   684 #>  9 Gram-negative CLI      18     0     1   709     0   728 #> 10 Gram-negative COL     309     0     0    78     0   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 × 8 #>    mo      ab        S   SDD     I     R    NI total #>  * <chr>   <chr> <int> <int> <int> <int> <int> <int> #>  1 E. coli AMC     332     0    74    61     0   467 #>  2 E. coli AMK     171     0     0     0     0   171 #>  3 E. coli AMP     196     0     0   196     0   392 #>  4 E. coli AMX     196     0     0   196     0   392 #>  5 E. coli AZM       0     0     0   467     0   467 #>  6 E. coli CAZ     449     0     0    11     0   460 #>  7 E. coli CHL       0     0     0     0     0     0 #>  8 E. coli CIP     398     0     1    57     0   456 #>  9 E. coli CLI       0     0     0   467     0   467 #> 10 E. coli COL     240     0     0     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. dataset contain breakpoints humans, 7 different animal groups, ECOFFs. breakpoints currently implemented: clinical microbiology: EUCAST 2011-2024 CLSI 2011-2024; veterinary microbiology: EUCAST 2021-2024 CLSI 2019-2024; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2024 CLSI 2022-2024. 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 34 063 observations 14 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" host Host infectious agent. mostly useful veterinary breakpoints either \"ECOFF\", \"aquatic\", \"cats\", \"cattle\", \"dogs\", \"horse\", \"human\", \"poultry\", \"swine\" 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) is_SDD logical value (TRUE/FALSE) indicate whether intermediate range \"S\" \"R\" interpreted \"SDD\", instead \"\". currently applies 24 breakpoints.","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 great 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 software, developers 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 rather complex internal methods apply guidelines. 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: 34,063 × 14 #>    guideline   type  host  method site    mo            rank_index ab   ref_tbl  #>    <chr>       <chr> <chr> <chr>  <chr>   <mo>               <dbl> <ab> <chr>    #>  1 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  2 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  3 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  4 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  5 EUCAST 2024 human human DISK   NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  6 EUCAST 2024 human human MIC    NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  7 EUCAST 2024 human human DISK   NA      B_ACNTB                3 AMK  Acineto… #>  8 EUCAST 2024 human human DISK   Uncomp… B_ACNTB                3 AMK  Acineto… #>  9 EUCAST 2024 human human MIC    NA      B_ACNTB                3 AMK  Acineto… #> 10 EUCAST 2024 human human MIC    Uncomp… B_ACNTB                3 AMK  Acineto… #> # ℹ 34,053 more rows #> # ℹ 5 more variables: disk_dose <chr>, breakpoint_S <dbl>, breakpoint_R <dbl>, #> #   uti <lgl>, is_SDD <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_S(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_R(..., 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\" and \"SDD\" being susceptible. This note will be shown once for #> this session. #> [1] 543 count_SI(example_isolates$AMX) #> Note that count_SI() will also count dose-dependent susceptibility, #> 'SDD'. This note will be shown once for this session. #> [1] 546 count_I(example_isolates$AMX) #> Note that count_I() will also count dose-dependent susceptibility, 'SDD'. #> This note will be shown once for this session. #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" and \"SDD\" 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 instructions, 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\", \"mycobank\", \"mycobank_parent\", \"mycobank_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-multiple-antibiotics-and-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of multiple antibiotics and antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"can define antibiotic groups instead single antibiotics rule consequence, part tilde (~). examples , antibiotic group aminopenicillins includes ampicillin amoxicillin. Rules can also applied multiple antibiotics antibiotic groups simultaneously. Use c() function combine multiple antibiotics. instance, following example sets aminopenicillins ureidopenicillins \"R\" column TZP (piperacillin/tazobactam) \"R\":   30 antibiotic groups allowed rules (case-insensitive) can used combination: aminoglycosides(amikacin, amikacin/fosfomycin, 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(amorolfine, amphotericin B, amphotericin B-high, 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, clindamycin inducible screening, 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) nitrofurans(furazidin, furazolidone, nifurtoinol, nitrofurantoin, nitrofurazone) 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, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, 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) rifamycins(rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine) 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":"x <- custom_eucast_rules(TZP == \"R\" ~ c(aminopenicillins, ureidopenicillins) == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"R\" then set to \"R\": #>      amoxicillin (AMX), ampicillin (AMP), azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)"},{"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 June 24th, 2024, 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), apramycin (APR, QA07AA92), 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), cefovecin (FOV, QJ01DD91), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefquinome (CEQ, QG51AA07), 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), ceftiofur (TIO, QJ01DD90), 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), danofloxacin (DAN, QJ01MA92), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), difloxacin (DIF, QJ01MA94), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), enrofloxacin (ENR, QJ01MA90), 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), gamithromycin (GAM, QJ01FA95), 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), kitasamycin (KIT, QJ01FA93), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), marbofloxacin (MAR, QJ01MA93), 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), novobiocin (NOV, QJ01XX95), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), orbifloxacin (ORB, QJ01MA95), 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), pirlimycin (PRL, QJ51FF90), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pradofloxacin (PRA, QJ01MA97), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, QJ01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sarafloxacin (SAR, QJ01MA98), 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), tildipirosin (TIP, QJ01FA96), tilmicosin (TIL, QJ01FA91), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), tulathromycin (TUL, QJ01FA94), tylosin (TYL, QJ01FA90), tylvalosin (TYL1, QJ01FA92), 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/export_ncbi_biosample.html","id":null,"dir":"Reference","previous_headings":"","what":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"Export Data Set NCBI BioSample Antibiogram","code":""},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"","code":"export_ncbi_biosample(   x,   filename = paste0(\"biosample_\", format(Sys.time(), \"%Y-%m-%d-%H%M%S\"), \".xlsx\"),   type = \"pathogen MIC\",   columns = where(is.mic),   save_as_xlsx = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/export_ncbi_biosample.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"x data set filename character string specifying file name type character string specifying type data set, either \"pathogen MIC\" \"beta-lactamase MIC\", see https://www.ncbi.nlm.nih.gov/biosample/docs/","code":""},{"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] 39 42 29 45 31 14 41 39 26 40 18 36 15 39 18 45 32 27 10  2 13 24 43 12  8 #>  [26]  5  3 12 31  9 16  4  1 26 32 27 21 45 42 17 16 21  8  4 30  1 17 25 34  5 #>  [51] 10  1 18 44 33  4  6 12 43  2 43 45 37 33 18 38 45 36 46  4 35 40 12  7 11 #>  [76] 23 10 35 20  4  5 29 27 41 12 30 45 18 47 22 28 39 19 27 16  4 21 40 33 39 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [25]  TRUE  TRUE  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE #>  [37]  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE #>  [49]  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [61] FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE  TRUE FALSE #>  [73] FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE #>  [85] FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [97] FALSE FALSE FALSE FALSE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 1 × 46 #>   date       patient   age gender ward  mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr> <mo>         <sir> <sir> <sir> <sir> #> 1 2002-12-13 285137     78 F      ICU   B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [97] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 036063  2010-01-28 A         TRUE        #>  2 077922  2009-08-18 C         TRUE        #>  3 080086  2010-08-08 C         TRUE        #>  4 0DBF93  2015-10-12 B         TRUE        #>  5 105248  2005-06-16 A         TRUE        #>  6 114570  2003-04-08 B         TRUE        #>  7 119392  2010-11-01 C         TRUE        #>  8 161740  2005-06-21 A         TRUE        #>  9 174209  2011-10-03 C         TRUE        #> 10 210105  2009-06-13 C         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [96] #>    ward       date       patient new_index new_logical #>    <chr>      <date>     <chr>       <int> <lgl>       #>  1 Clinical   2010-01-28 036063          1 TRUE        #>  2 Clinical   2009-08-18 077922          1 TRUE        #>  3 Clinical   2010-08-08 080086          1 TRUE        #>  4 Clinical   2015-10-12 0DBF93          1 TRUE        #>  5 Clinical   2005-06-16 105248          1 TRUE        #>  6 ICU        2003-04-08 114570          1 TRUE        #>  7 Clinical   2010-11-01 119392          1 TRUE        #>  8 Clinical   2005-06-21 161740          1 TRUE        #>  9 Outpatient 2011-10-03 174209          1 TRUE        #> 10 Clinical   2009-06-13 210105          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           64             13            37            47 #> 2 ICU                23              9            17            20 #> 3 Outpatient          9              7             7             9  # 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 [96] #>    patient mo           ward     flag_episode #>    <chr>   <mo>         <chr>    <lgl>        #>  1 A76045  B_ENTRC_FACM ICU      TRUE         #>  2 964129  B_SERRT_MRCS Clinical TRUE         #>  3 686445  B_STPHY_CONS Clinical TRUE         #>  4 D39422  B_KLBSL_PNMN Clinical TRUE         #>  5 298662  B_ESCHR_COLI Clinical TRUE         #>  6 5B78D5  B_STPHY_AURS Clinical TRUE         #>  7 E52625  B_STRPT_PNMN Clinical TRUE         #>  8 645121  B_SERRT_MRCS Clinical TRUE         #>  9 807228  B_STRPT_PNMN Clinical TRUE         #> 10 D41749  B_ESCHR_COLI ICU      TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result, 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\"` and `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 or values outside the scale range #> (`geom_col()`). #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_text()`).  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 340 804 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: 340,804 × 2 #>    mo          ab   #>    <mo>        <ab> #>  1 B_GRAMP     ATM  #>  2 B_GRAMP     COL  #>  3 B_GRAMP     NAL  #>  4 B_GRAMP     PLB  #>  5 B_GRAMP     TEM  #>  6 B_ANAER-POS ATM  #>  7 B_ANAER-POS COL  #>  8 B_ANAER-POS NAL  #>  9 B_ANAER-POS PLB  #> 10 B_ANAER-POS TEM  #> # ℹ 340,794 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\", \"html\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))"},{"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\", \"html\" \"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 html. using 'ansi', ANSI colours added using \\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 × 26 #>   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… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_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 × 26 #>   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… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_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\"            #>  [4] \"status\"              \"kingdom\"             \"phylum\"              #>  [7] \"class\"               \"order\"               \"family\"              #> [10] \"genus\"               \"species\"             \"subspecies\"          #> [13] \"rank\"                \"ref\"                 \"oxygen_tolerance\"    #> [16] \"source\"              \"lpsn\"                \"lpsn_parent\"         #> [19] \"lpsn_renamed_to\"     \"mycobank\"            \"mycobank_parent\"     #> [22] \"mycobank_renamed_to\" \"gbif\"                \"gbif_parent\"         #> [25] \"gbif_renamed_to\"     \"prevalence\"          \"snomed\"               # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"                \"patient\"             \"age\"                 #>  [4] \"gender\"              \"ward\"                \"mo\"                  #>  [7] \"PEN\"                 \"OXA\"                 \"FLC\"                 #> [10] \"AMX\"                 \"AMC\"                 \"AMP\"                 #> [13] \"TZP\"                 \"CZO\"                 \"FEP\"                 #> [16] \"CXM\"                 \"FOX\"                 \"CTX\"                 #> [19] \"CAZ\"                 \"CRO\"                 \"GEN\"                 #> [22] \"TOB\"                 \"AMK\"                 \"KAN\"                 #> [25] \"TMP\"                 \"SXT\"                 \"NIT\"                 #> [28] \"FOS\"                 \"LNZ\"                 \"CIP\"                 #> [31] \"MFX\"                 \"VAN\"                 \"TEC\"                 #> [34] \"TCY\"                 \"TGC\"                 \"DOX\"                 #> [37] \"ERY\"                 \"CLI\"                 \"AZM\"                 #> [40] \"IPM\"                 \"MEM\"                 \"MTR\"                 #> [43] \"CHL\"                 \"COL\"                 \"MUP\"                 #> [46] \"RIF\"                 \"fullname\"            \"status\"              #> [49] \"kingdom\"             \"phylum\"              \"class\"               #> [52] \"order\"               \"family\"              \"genus\"               #> [55] \"species\"             \"subspecies\"          \"rank\"                #> [58] \"ref\"                 \"oxygen_tolerance\"    \"source\"              #> [61] \"lpsn\"                \"lpsn_parent\"         \"lpsn_renamed_to\"     #> [64] \"mycobank\"            \"mycobank_parent\"     \"mycobank_renamed_to\" #> [67] \"gbif\"                \"gbif_parent\"         \"gbif_renamed_to\"     #> [70] \"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)  # Default S3 method kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'matrix' kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class '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.021297 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.08143396"},{"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), apramycin (APR, QA07AA92), 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), cefovecin (FOV, QJ01DD91), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefquinome (CEQ, QG51AA07), 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), ceftiofur (TIO, QJ01DD90), 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), danofloxacin (DAN, QJ01MA92), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), difloxacin (DIF, QJ01MA94), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), enrofloxacin (ENR, QJ01MA90), 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), gamithromycin (GAM, QJ01FA95), 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), kitasamycin (KIT, QJ01FA93), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), marbofloxacin (MAR, QJ01MA93), 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), novobiocin (NOV, QJ01XX95), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), orbifloxacin (ORB, QJ01MA95), 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), pirlimycin (PRL, QJ51FF90), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pradofloxacin (PRA, QJ01MA97), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, QJ01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sarafloxacin (SAR, QJ01MA98), 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), tildipirosin (TIP, QJ01FA96), tilmicosin (TIL, QJ01FA91), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), tulathromycin (TUL, QJ01FA94), tylosin (TYL, QJ01FA90), tylvalosin (TYL1, QJ01FA92), 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 class 'sir' mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for class 'data.frame' mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) sir #> Class 'sir' #>  [1] R R S I I S I I R I mean_amr_distance(sir) #>  [1]  1.449138  1.449138 -0.621059 -0.621059 -0.621059 -0.621059 -0.621059 #>  [8] -0.621059  1.449138 -0.621059  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.002 0.5   0.125 128   0.25  0.5   256   0.125 0.125 64    mean_amr_distance(mic) #>  [1] -1.6429088 -0.1673475 -0.5378223  1.3145519 -0.3525849 -0.1673475 #>  [7]  1.4997893 -0.5378223 -0.5378223  1.1293145 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -1.6429088 -0.1673475 -0.5378223  1.3145519 -0.3525849 -0.1673475 #>  [7]  1.4997893 -0.5378223 -0.5378223  1.1293145  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 40 45 43 14 42 40 37 15 42 11 mean_amr_distance(disk) #>  [1]  0.5182957  0.8832927  0.7372939 -1.3796886  0.6642945  0.5182957 #>  [7]  0.2992975 -1.3066892  0.6642945 -1.5986868  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   17 <=0.5   >=8 #> 2   B    I   26 <=0.5     4 #> 3   C    R   18     4   >=8 #> 4   D    R   22 <=0.5 <=0.5 #> 5   E    I   30 <=0.5     1 #> 6   F    S   18     4     2 #> 7   G    I   26     8     2 #> 8   H    S   29     8     1 #> 9   I    I   22    16     1 #> 10  J    S   31     1     4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.12957466 -0.14083442  0.55230568 -0.36152662 -0.31478853 -0.33012168 #>  [7]  0.17672648  0.13748045 -0.07163669  0.22282068 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   18     4   >=8   0.55230568  0.0000000 #> 2   J    S   31     1     4   0.22282068  0.3294850 #> 3   G    I   26     8     2   0.17672648  0.3755792 #> 4   H    S   29     8     1   0.13748045  0.4148252 #> 5   A    R   17 <=0.5   >=8   0.12957466  0.4227310 #> 6   I    I   22    16     1  -0.07163669  0.6239424 #> 7   B    I   26 <=0.5     4  -0.14083442  0.6931401 #> 8   E    I   30 <=0.5     1  -0.31478853  0.8670942 #> 9   F    S   18     4     2  -0.33012168  0.8824274 #> 10  D    R   22 <=0.5 <=0.5  -0.36152662  0.9138323 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 971 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 971 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 971 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 971 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 971 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 971 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 971 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,971 × 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,961 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\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"11286021\" #>  #> $group_members #> character(0) #>   # 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 70 547 Taxonomic Records of Microorganisms — microorganisms","title":"Data Set with 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: June 24th, 2024) six kingdoms. data set backbone AMR package. MO codes can looked using .mo() microorganism properties can looked using mo_* functions. data set carefully crafted, yet made 100% reproducible public authoritative taxonomic sources (using script), namely: List Prokaryotic names Standing Nomenclature (LPSN) bacteria, MycoBank fungi, Global Biodiversity Information Facility (GBIF) others taxons.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 70 547 Taxonomic Records of 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 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"tibble 70 547 observations 26 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\", \"validly published\", \"synonym\", \"unknown\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism. Note fungi, phylum equal taxonomic division. Also, fungi, subkingdom subdivision left since occur bacterial taxonomy. 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. 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 68.3% ~39 000 bacteria data set contain oxygen tolerance. source Either \"GBIF\", \"LPSN\", \"MycoBank\", \"manually added\" (see Source) 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. unique identifier, though available ~32 000 records. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon mycobank Identifier ('MycoBank #') MycoBank. unique identifier, though available ~15 000 records. mycobank_parent MycoBank identifier parent taxon mycobank_renamed_to MycoBank identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF). unique identifier, though available ~46 000 records. gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon prevalence Prevalence microorganism based 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 16th, 2024 (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 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"Taxonomic entries imported order importance: List Prokaryotic names Standing Nomenclature (LPSN): 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 June 24th, 2024. MycoBank: Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. Global Biodiversity Information Facility (GBIF): GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Furthermore, sources used additional details: BacDive: 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 July 16th, 2024. Systematized Nomenclature Medicine - Clinical Terms (SNOMED-CT): 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). Accessed https://phinvads.cdc.gov July 16th, 2024. 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 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"Please note entries based LPSN, MycoBank, 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 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"Included taxonomic data LPSN, MycoBank, GBIF : ~39 000 (sub)species kingdoms Archaea Bacteria ~20 000 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). ~8 100 (sub)species kingdom Protozoa ~1 700 (sub)species 45 relevant genera kingdom Animalia (Strongyloides Taenia) ~17 000 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 70 547 Taxonomic Records of 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 .","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 70 547 Taxonomic Records of 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":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 70 547 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 70,547 × 26 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_GRAMN          (unknown Gra… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  2 B_GRAMP          (unknown Gra… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  3 B_ANAER-NEG      (unknown ana… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  4 B_ANAER-POS      (unknown ana… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  5 B_ANAER          (unknown ana… unkno… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  6 F_FUNGUS         (unknown fun… unkno… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  7   UNKNOWN        (unknown nam… unkno… (unkno… (unkn… (unk… (unk… \"(unk… \"(un… #>  8 F_YEAST          (unknown yea… unkno… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  9 F_AABRN          Aabaarnia     unkno… Fungi   Ascom… Leca… Ostr… \"\"     \"Aab… #> 10 B_[FAM]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"Abdi… \"\"    #> # ℹ 70,537 more rows #> # ℹ 17 more variables: species <chr>, subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_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, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saprochaete, Sarcoptes, Scedosporium, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporotrichum, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Verticillium, 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: Escherichia coli coli (0.643), Escherichia coli #>               expressing (0.611), 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), and Enterobacter cloacae #>               cloacae (0.571) #>  #> 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_mycobank(   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_group_members(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  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\", \"mycobank\", \"mycobank_parent\", \"mycobank_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() logical case mo_is_anaerobic(), mo_is_gram_negative(), mo_is_gram_positive(), mo_is_intrinsic_resistant(), mo_is_yeast() named character case mo_synonyms() 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 renaming) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (-per-session warning name outdated) 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 yeasts reproduce asexually process called budding, new cell develops small protrusion parent cell. Taxonomically, members phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes) Pichiomycetes. True yeasts quite specifically refers yeasts underlying order Saccharomycetales (Saccharomyces cerevisiae). Thus, microorganisms member taxonomic class Saccharomycetes Pichiomycetes, 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. MycoBank URL used fungi wherever available , LPSN URL bacteria wherever available, GBIF link otherwise. SNOMED codes (mo_snomed()) last updated July 16th, 2024. 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 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 June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. 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 July 16th, 2024. 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  mo_group_members(c(\"Streptococcus group A\",                    \"Streptococcus group C\",                    \"Streptococcus group G\",                    \"Streptococcus group L\")) #> $`Streptococcus Group A` #> [1] \"Streptococcus pyogenes\" #>  #> $`Streptococcus Group C` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #> [4] \"Streptococcus equi\"                      #> [5] \"Streptococcus equi equi\"                 #> [6] \"Streptococcus equi ruminatorum\"          #> [7] \"Streptococcus equi zooepidemicus\"        #>  #> $`Streptococcus Group G` #> [1] \"Streptococcus canis\"                     #> [2] \"Streptococcus dysgalactiae\"              #> [3] \"Streptococcus dysgalactiae dysgalactiae\" #> [4] \"Streptococcus dysgalactiae equisimilis\"  #>  #> $`Streptococcus Group L` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #>    # 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_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"  mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_mycobank(\"Candida albicans\") #> [1] \"256187\" mo_mycobank(\"Candida krusei\") #> [1] \"337013\" mo_mycobank(\"Candida krusei\", keep_synonyms = TRUE) #> Warning: Function as.mo() returned one old taxonomic name. Use as.mo(..., #> keep_synonyms = FALSE) to clean the input to currently accepted taxonomic #> names, or set the R option AMR_keep_synonyms to FALSE. This warning #> will be shown once per session. #> [1] \"268707\"   # 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] \"facultative anaerobe\" #>  #> $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\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"3221874\" #>  #> $group_members #> character(0) #>  # }"},{"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\"` and `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 class '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 class '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 class 'mic' fortify(object, ...)  # S3 method for class '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 class '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 class 'disk' fortify(object, ...)  # S3 method for class '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 class '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 class '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 limit 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. host set values veterinary species, automatically set \"animal\".","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 2024\", \"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 2024\", \"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.25, \"<=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, 16)) +     labs(title = \"with scale_x_mic() using a manual 'within' range\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(0.032, 256)) +     labs(title = \"with scale_x_mic() using a manual 'outside' 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(). Since AMR v3.0, proportion_SI() proportion_I() include dose-dependent susceptibility ('SDD'). 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) #> Note that proportion_SI() will also include dose-dependent #> susceptibility, 'SDD'. This note will be shown once for this session. #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> Note that proportion_I() will also include dose-dependent susceptibility, #> 'SDD'. This note will be shown once for this session. #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> Note that proportion_IR() will also include dose-dependent #> susceptibility, 'SDD'. This note will be shown once for this session. #> [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 2024 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] 16     64     256    0.002  1      0.001  64     0.25   1      16     #> [11] 0.5    8      8      0.0625 1      0.5    0.025  256    256    1      #> [21] 0.01   1      64     32     4      random_disk(25) #> Class 'disk' #>  [1] 49 47 14 33 49 43 41 41 43 31 20 43 42 11 18 42  8 42 16 25 42  8 15 30 29 random_sir(25) #> Class 'sir' #>  [1] I S S I S I I S R S S I I S S I I S I R S S R I 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] 64     0.025  2      0.25   32     64     0.002  32     0.01   0.001  #> [11] 0.25   0.125  0.0625 64     128    0.002  128    128    1      0.002  #> [21] 1      0.005  0.001  4      0.001  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 1    2    1    >=16 8    1    >=16 >=16 2    1    2    1    1    8    4    #> [16] 1    1    4    2    >=16 >=16 2    4    2    1    random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 2     0.25  >=8   >=8   0.5   1     1     0.125 0.25  1     2     1     #> [13] 0.25  >=8   0.25  2     1     1     >=8   0.125 0.5   >=8   0.125 0.25  #> [25] 0.25   random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 45 49 24 46 23 18 15 17 17 28 40 20 21 43 39  9 33 17  8 20 30 21 44 48 41 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 13 15 11 14 16 16 11 15 11 17 14 15 17 17 16 16 16 12 14 12 15 13 13 13 16 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 22 23 19 19 23 15 23 18 21 24 22 25 19 19 16 17 17 16 27 21 27 25 15 21 27 # }"},{"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 class '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 class '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)  # Default S3 method skewness(x, na.rm = FALSE)  # S3 method for class 'matrix' skewness(x, na.rm = FALSE)  # S3 method for class '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.03310027"},{"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":"https://msberends.github.io/AMR/news/index.html","id":"amr-2119080","dir":"Changelog","previous_headings":"","what":"AMR 2.1.1.9080","title":"AMR 2.1.1.9080","text":"(beta version eventually become v3.0. ’re happy reach new major milestone soon, new One Health support! Install beta using instructions .)","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"a-new-milestone-amr-v30-with-one-health-support--human--veterinary--environmental-2-1-1-9080","dir":"Changelog","previous_headings":"","what":"A New Milestone: AMR v3.0 with One Health Support (= Human + Veterinary + Environmental)","title":"AMR 2.1.1.9080","text":"package now supports tools AMR data analysis clinical settings, also veterinary environmental microbiology. made possible collaboration University Prince Edward Island’s Atlantic Veterinary College, Canada. celebrate great improvement package, also updated package logo reflect change.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"breaking-2-1-1-9080","dir":"Changelog","previous_headings":"","what":"Breaking","title":"AMR 2.1.1.9080","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-9080","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.1.9080","text":"Function .sir() now extensive support animal breakpoints CLSI. Use breakpoint_type = \"animal\" set host argument variable contains animal species names. clinical_breakpoints data set contains breakpoints, can downloaded download page. antibiotics data set contains veterinary antibiotics, pradofloxacin enrofloxacin. WHOCC codes veterinary use added well. ab_atc() now supports ATC codes veterinary antibiotics (start “Q”) ab_url() now supports retrieving WHOCC url ATCvet pages EUCAST 2024 CLSI 2024 now supported, adding 4,000 new clinical breakpoints clinical_breakpoints data set usage .sir(). EUCAST 2024 now new default guideline MIC disks diffusion interpretations. .sir() now brings additional factor levels: “NI” non-interpretable “SDD” susceptible dose-dependent. Currently, clinical_breakpoints data set contains 24 breakpoints can return value “SDD” instead “”. New function group scale_*_mic(), namely: scale_x_mic(), scale_y_mic(), scale_colour_mic() scale_fill_mic(). advanced ggplot2 extensions allow easy plotting MIC values. allow manual range definition plotting missing intermediate log2 levels. New 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. microorganisms data set now contains additional columns mycobank, mycobank_parent, mycobank_renamed_to New function mo_mycobank() get MycoBank record number, analogous existing functions mo_lpsn() mo_gbif() ’ve welcomed 2,000 records 2023, 900 2024, many thousands new fungi .mo() function now includes new argument, only_fungi (TRUE/FALSE), limits results fungi . Normally, bacteria often prioritised algorithm, setting only_fungi = TRUE ensures fungi returned. can also set globally using new R option AMR_only_fungi, e.g., options(AMR_only_fungi = TRUE). New function mo_group_members() retrieve member microorganisms microorganism group. example, mo_group_members(\"Strep group C\") returns vector microorganisms group.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-1-9080","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.1.1.9080","text":"now possible use column names argument ab, mo, uti: .sir(..., ab = \"column1\", mo = \"column2\", uti = \"column3\"). greatly improves flexibility users. Users can now set criteria (using regular expressions) considered S, , R, SDD, NI. get quantitative values, .double() sir object return 1 S, 2 SDD/, 3 R (NI become NA). functions using sir classes (e.g., summary()) updated reflect change contain NI SDD. New argument formatting_type set 12 options formatting ‘cells’. defaults 10, changing output antibiograms cells 5% (15/300) instead previous standard just 5. reason, add_total_n now FALSE default since denominators added cells ab_transform argument now defaults \"name\", displaying antibiotic column names instead codes Added “clindamycin inducible screening” CLI1. Since clindamycin lincosamide, antibiotic selector lincosamides() now contains argument only_treatable = TRUE (similar antibiotic selectors contain non-treatable drugs) Added Amorolfine (AMO, D01AE16), now also part antifungals() selector Added selectors nitrofurans() rifamycins() using antibiotic selectors aminoglycosides() exclude non-treatable drugs like gentamicin-high, function now always returns warning can included using only_treatable = FALSE Added valid levels: 4096, 6 powers 0.0625, 5 powers 192 (192, 384, 576, 768, 960) Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\". argument also available new rescale_mic() scale_*_mic() functions. Comparisons MIC values now strict. example, >32 higher (never equal ) 32. Thus, .mic(\">32\") == .mic(32) now returns FALSE, .mic(\">32\") > .mic(32) now returns TRUE. Sorting MIC values (using sort()) fixed manner; <0.001 now gets sorted 0.001, >0.001 gets sorted 0.001. Updated italicise_taxonomy() support HTML output custom_eucast_rules() now supports multiple antibiotics antibiotic groups affected single rule mo_info() now contains extra element group_members, contents new mo_group_members() function Greatly improved vctrs integration, Tidyverse package working background many Tidyverse functions. users, means functions dplyr’s bind_rows(), rowwise() c_across() now supported e.g. columns class mic. Despite , AMR package still zero-dependent package, including dplyr vctrs. Updated ATC codes WHOCC Updated antibiotic DDDs WHOCC Fix using manual value mo_transform antibiogram() Fix mapping ‘high level’ antibiotics .ab() (amphotericin B-high, gentamicin-high, kanamycin-high, streptomycin-high, tobramycin-high) Improved overall algorithm .ab() better performance accuracy Improved overall algorithm .mo() better performance accuracy. Specifically, weight given genus species combinations cases subspecies miswritten, result correct genus species. Intermediate log2 levels used MIC plotting now common values instead following strict dilution range Fixed bug antibiogram() returns empty data set","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-1-1-9080","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.1.1.9080","text":"Greatly updated expanded documentation Added Jordan Stull, Matthew Saab, Javier Sanchez contributors, thank valuable input","code":""}]