From c04e1e825dd7a8cb8ec21ed9f17619fb1fc424c4 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Tue, 11 Jul 2023 07:57:23 +0000
Subject: [PATCH] Built site for AMR: 2.0.0.9034@8df1cd8

---
 404.html                                  |   2 +-
 LICENSE-text.html                         |   2 +-
 articles/AMR.html                         |  10 +-
 articles/EUCAST.html                      |   2 +-
 articles/MDR.html                         |  48 +++---
 articles/PCA.html                         |   2 +-
 articles/WHONET.html                      |   2 +-
 articles/datasets.html                    |   4 +-
 articles/index.html                       |   2 +-
 articles/other_pkg.html                   |   2 +-
 articles/resistance_predict.html          |   2 +-
 articles/welcome_to_AMR.html              |   2 +-
 authors.html                              |   2 +-
 index.html                                |   2 +-
 news/index.html                           |  10 +-
 pkgdown.yml                               |   2 +-
 reference/AMR-deprecated.html             |   2 +-
 reference/AMR-options.html                |   2 +-
 reference/AMR.html                        |   8 +-
 reference/WHOCC.html                      |   2 +-
 reference/WHONET.html                     |   2 +-
 reference/ab_from_text.html               |   2 +-
 reference/ab_property.html                |   2 +-
 reference/add_custom_antimicrobials.html  |   2 +-
 reference/add_custom_microorganisms.html  |   2 +-
 reference/age.html                        |  22 +--
 reference/age_groups.html                 |   2 +-
 reference/antibiogram.html                |   2 +-
 reference/antibiotic_class_selectors.html |   6 +-
 reference/antibiotics.html                |   2 +-
 reference/as.ab.html                      |   2 +-
 reference/as.av.html                      |   2 +-
 reference/as.disk.html                    |  10 +-
 reference/as.mic-2.png                    | Bin 34551 -> 34856 bytes
 reference/as.mic-3.png                    | Bin 53212 -> 53414 bytes
 reference/as.mic-4.png                    | Bin 51911 -> 51883 bytes
 reference/as.mic-5.png                    | Bin 52685 -> 53324 bytes
 reference/as.mic.html                     |   6 +-
 reference/as.mo.html                      |   2 +-
 reference/as.sir.html                     | 178 +++++++++++++++-------
 reference/atc_online.html                 |   2 +-
 reference/av_from_text.html               |   2 +-
 reference/av_property.html                |   2 +-
 reference/availability.html               |   2 +-
 reference/bug_drug_combinations.html      |   2 +-
 reference/clinical_breakpoints.html       |   2 +-
 reference/count.html                      |   2 +-
 reference/custom_eucast_rules.html        |   2 +-
 reference/dosage.html                     |   2 +-
 reference/eucast_rules.html               |   2 +-
 reference/example_isolates.html           |   2 +-
 reference/example_isolates_unclean.html   |   2 +-
 reference/first_isolate.html              |   2 +-
 reference/g.test.html                     |   2 +-
 reference/get_episode.html                | 109 +++++++------
 reference/ggplot_pca.html                 |   2 +-
 reference/ggplot_sir.html                 |   2 +-
 reference/guess_ab_col.html               |   2 +-
 reference/index.html                      |   2 +-
 reference/intrinsic_resistant.html        |   2 +-
 reference/italicise_taxonomy.html         |   2 +-
 reference/join.html                       |   2 +-
 reference/key_antimicrobials.html         |   2 +-
 reference/kurtosis.html                   |   6 +-
 reference/like.html                       |   2 +-
 reference/mdro.html                       |   2 +-
 reference/mean_amr_distance.html          |   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                |   2 +-
 reference/mo_source.html                  |   2 +-
 reference/pca.html                        |   2 +-
 reference/plot.html                       |   2 +-
 reference/proportion.html                 |   2 +-
 reference/random.html                     |   2 +-
 reference/resistance_predict.html         |   2 +-
 reference/skewness.html                   |   4 +-
 reference/translate.html                  |   2 +-
 search.json                               |   2 +-
 81 files changed, 311 insertions(+), 238 deletions(-)

diff --git a/404.html b/404.html
index 19c39c48..c363adcd 100644
--- a/404.html
+++ b/404.html
@@ -36,7 +36,7 @@
     
     <a class="navbar-brand me-2" href="https://msberends.github.io/AMR/index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 c30eac1a..e341a29c 100644
--- a/LICENSE-text.html
+++ b/LICENSE-text.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 94b88631..af6fa2e6 100644
--- a/articles/AMR.html
+++ b/articles/AMR.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -204,7 +204,7 @@
 website update since they are based on randomly created values and the
 page was written in <a href="https://rmarkdown.rstudio.com/" class="external-link">R
 Markdown</a>. However, the methodology remains unchanged. This page was
-generated on 10 July 2023.</p>
+generated on 11 July 2023.</p>
 <div class="section level2">
 <h2 id="introduction">Introduction<a class="anchor" aria-label="anchor" href="#introduction"></a>
 </h2>
@@ -260,21 +260,21 @@ make the structure of your data generally look like this:</p>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="center">2023-07-10</td>
+<td align="center">2023-07-11</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">S</td>
 </tr>
 <tr class="even">
-<td align="center">2023-07-10</td>
+<td align="center">2023-07-11</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">R</td>
 </tr>
 <tr class="odd">
-<td align="center">2023-07-10</td>
+<td align="center">2023-07-11</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 c7464cc3..cf492bbf 100644
--- a/articles/EUCAST.html
+++ b/articles/EUCAST.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 923d5534..ef200735 100644
--- a/articles/MDR.html
+++ b/articles/MDR.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -402,19 +402,19 @@ names or codes, this would have worked exactly the same way:</p>
 <div class="sourceCode" id="cb8"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/utils/head.html" class="external-link">head</a></span><span class="op">(</span><span class="va">my_TB_data</span><span class="op">)</span></span>
 <span><span class="co">#&gt;   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin</span></span>
-<span><span class="co">#&gt; 1          S         I            I          I            S            S</span></span>
-<span><span class="co">#&gt; 2          S         S            I          R            S            I</span></span>
-<span><span class="co">#&gt; 3          I         S            I          I            S            I</span></span>
-<span><span class="co">#&gt; 4          R         S            I          I            I            I</span></span>
-<span><span class="co">#&gt; 5          I         S            S          S            S            S</span></span>
-<span><span class="co">#&gt; 6          S         I            I          S            S            I</span></span>
+<span><span class="co">#&gt; 1          R         I            R          R            I            I</span></span>
+<span><span class="co">#&gt; 2          R         I            I          I            R            I</span></span>
+<span><span class="co">#&gt; 3          S         S            R          I            I            R</span></span>
+<span><span class="co">#&gt; 4          S         R            S          R            S            I</span></span>
+<span><span class="co">#&gt; 5          I         R            S          I            R            I</span></span>
+<span><span class="co">#&gt; 6          I         I            I          S            S            R</span></span>
 <span><span class="co">#&gt;   kanamycin</span></span>
-<span><span class="co">#&gt; 1         R</span></span>
+<span><span class="co">#&gt; 1         S</span></span>
 <span><span class="co">#&gt; 2         S</span></span>
-<span><span class="co">#&gt; 3         I</span></span>
-<span><span class="co">#&gt; 4         I</span></span>
-<span><span class="co">#&gt; 5         R</span></span>
-<span><span class="co">#&gt; 6         I</span></span></code></pre></div>
+<span><span class="co">#&gt; 3         R</span></span>
+<span><span class="co">#&gt; 4         S</span></span>
+<span><span class="co">#&gt; 5         I</span></span>
+<span><span class="co">#&gt; 6         S</span></span></code></pre></div>
 <p>We can now add the interpretation of MDR-TB to our data set. You can
 use:</p>
 <div class="sourceCode" id="cb9"><pre class="downlit sourceCode r">
@@ -463,32 +463,32 @@ Unique: 5</p>
 <tr class="even">
 <td align="left">2</td>
 <td align="left">Negative</td>
-<td align="right">996</td>
-<td align="right">19.92%</td>
-<td align="right">4226</td>
-<td align="right">84.52%</td>
+<td align="right">955</td>
+<td align="right">19.10%</td>
+<td align="right">4185</td>
+<td align="right">83.70%</td>
 </tr>
 <tr class="odd">
 <td align="left">3</td>
 <td align="left">Multi-drug-resistant</td>
-<td align="right">436</td>
-<td align="right">8.72%</td>
+<td align="right">477</td>
+<td align="right">9.54%</td>
 <td align="right">4662</td>
 <td align="right">93.24%</td>
 </tr>
 <tr class="even">
 <td align="left">4</td>
 <td align="left">Poly-resistant</td>
-<td align="right">243</td>
-<td align="right">4.86%</td>
-<td align="right">4905</td>
-<td align="right">98.10%</td>
+<td align="right">236</td>
+<td align="right">4.72%</td>
+<td align="right">4898</td>
+<td align="right">97.96%</td>
 </tr>
 <tr class="odd">
 <td align="left">5</td>
 <td align="left">Extensively drug-resistant</td>
-<td align="right">95</td>
-<td align="right">1.90%</td>
+<td align="right">102</td>
+<td align="right">2.04%</td>
 <td align="right">5000</td>
 <td align="right">100.00%</td>
 </tr>
diff --git a/articles/PCA.html b/articles/PCA.html
index 3c4003ac..85994d43 100644
--- a/articles/PCA.html
+++ b/articles/PCA.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 ec5b8de7..1f69ed06 100644
--- a/articles/WHONET.html
+++ b/articles/WHONET.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 3a0f7164..0ebe966b 100644
--- a/articles/datasets.html
+++ b/articles/datasets.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -193,7 +193,7 @@
   <main id="main" class="col-md-9"><div class="page-header">
       <img src="../logo.svg" class="logo" alt=""><h1>Data sets for download / own use</h1>
             
-            <h4 data-toc-skip class="date">10 July 2023</h4>
+            <h4 data-toc-skip class="date">11 July 2023</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/HEAD/vignettes/datasets.Rmd" class="external-link"><code>vignettes/datasets.Rmd</code></a></small>
       <div class="d-none name"><code>datasets.Rmd</code></div>
diff --git a/articles/index.html b/articles/index.html
index 5cbe26df..6a8296c6 100644
--- a/articles/index.html
+++ b/articles/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 866bc8f8..7ec5de92 100644
--- a/articles/other_pkg.html
+++ b/articles/other_pkg.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 e40cd79c..bfe563d2 100644
--- a/articles/resistance_predict.html
+++ b/articles/resistance_predict.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 b3bdb163..89dd7b1f 100644
--- a/articles/welcome_to_AMR.html
+++ b/articles/welcome_to_AMR.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 bbb01e48..6f375bc1 100644
--- a/authors.html
+++ b/authors.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 56141da9..ac883254 100644
--- a/index.html
+++ b/index.html
@@ -42,7 +42,7 @@
     
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/news/index.html b/news/index.html
index a1e85644..cdd76a95 100644
--- a/news/index.html
+++ b/news/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -159,9 +159,9 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.0.0.9033" id="amr-2009033">AMR 2.0.0.9033<a class="anchor" aria-label="anchor" href="#amr-2009033"></a></h2>
+<h2 class="pkg-version" data-toc-text="2.0.0.9034" id="amr-2009034">AMR 2.0.0.9034<a class="anchor" aria-label="anchor" href="#amr-2009034"></a></h2>
 <div class="section level3">
-<h3 id="new-2-0-0-9033">New<a class="anchor" aria-label="anchor" href="#new-2-0-0-9033"></a></h3>
+<h3 id="new-2-0-0-9034">New<a class="anchor" aria-label="anchor" href="#new-2-0-0-9034"></a></h3>
 <ul><li>Clinical breakpoints and intrinsic resistance of EUCAST 2023 and CLSI 2023 have been added for <code><a href="../reference/as.sir.html">as.sir()</a></code>. EUCAST 2023 (v13.0) is now the new default guideline for all MIC and disks diffusion interpretations</li>
 <li>The EUCAST dosage guideline of v13.0 has been added to the <code>dosage</code> data set</li>
 <li>ECOFF: the <code>clinical_breakpoints</code> data set now contains epidemiological cut-off (ECOFF) values. These ECOFFs can be used for MIC/disk interpretation using <code>as.sir(..., breakpoint_type = "ECOFF")</code>, which is an important new addition for veterinary microbiology.</li>
@@ -176,11 +176,11 @@
 <li>Added microbial codes for Gram-negative/positive anaerobic bacteria</li>
 </ul></div>
 <div class="section level3">
-<h3 id="changed-2-0-0-9033">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9033"></a></h3>
+<h3 id="changed-2-0-0-9034">Changed<a class="anchor" aria-label="anchor" href="#changed-2-0-0-9034"></a></h3>
 <ul><li>Updated algorithm of <code><a href="../reference/as.mo.html">as.mo()</a></code> by giving more weight to fungi</li>
 <li>
 <code><a href="../reference/mo_property.html">mo_rank()</a></code> now returns <code>NA</code> for ‘unknown’ microorganisms (<code>B_ANAER</code>, <code>B_ANAER-NEG</code>, <code>B_ANAER-POS</code>, <code>B_GRAMN</code>, <code>B_GRAMP</code>, <code>F_FUNGUS</code>, <code>F_YEAST</code>, and <code>UNKNOWN</code>)</li>
-<li>When printing MO codes in a tibble, a mouse-hover now shows the full name of the microorganism</li>
+<li>When printing microorganism or antibiotic codes in a tibble, a mouse-hover now shows the full name of the code</li>
 <li>Plots for MIC and disk diffusion values:
 <ul><li>Now have settable arguments for breakpoint type and PK/PD, like <code><a href="../reference/as.sir.html">as.sir()</a></code>
 </li>
diff --git a/pkgdown.yml b/pkgdown.yml
index d49311aa..a4eca118 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -11,7 +11,7 @@ articles:
   other_pkg: other_pkg.html
   resistance_predict: resistance_predict.html
   welcome_to_AMR: welcome_to_AMR.html
-last_built: 2023-07-10T17:09Z
+last_built: 2023-07-11T07:54Z
 urls:
   reference: https://msberends.github.io/AMR/reference
   article: https://msberends.github.io/AMR/articles
diff --git a/reference/AMR-deprecated.html b/reference/AMR-deprecated.html
index 7f78180e..03e4500c 100644
--- a/reference/AMR-deprecated.html
+++ b/reference/AMR-deprecated.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/AMR-options.html b/reference/AMR-options.html
index d1587760..c1bf1d22 100644
--- a/reference/AMR-options.html
+++ b/reference/AMR-options.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 11167735..0f2d61c8 100644
--- a/reference/AMR.html
+++ b/reference/AMR.html
@@ -5,14 +5,14 @@ This work was published in the Journal of Statistical Software (Volume 104(3); d
 ) and formed the basis of two PhD theses (doi:10.33612/diss.177417131
  and doi:10.33612/diss.192486375
 ).
-After installing this package, R knows ~52 000 microorganisms (updated december 2022) and all ~600 antibiotic, antimycotic and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the University of Groningen, in collaboration with non-profit organisations Certe Medical Diagnostics and Advice Foundation and University Medical Center Groningen.
+After installing this package, R knows ~52 000 microorganisms (updated December 2022) and all ~600 antibiotic, antimycotic and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the University of Groningen, in collaboration with non-profit organisations Certe Medical Diagnostics and Advice Foundation and University Medical Center Groningen.
 The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, and Ukrainian. Antimicrobial drug (group) names and colloquial microorganism names are provided in these languages."><title>The AMR Package — AMR • AMR (for R)</title><!-- favicons --><link rel="icon" type="image/png" sizes="16x16" href="../favicon-16x16.png"><link rel="icon" type="image/png" sizes="32x32" href="../favicon-32x32.png"><link rel="apple-touch-icon" type="image/png" sizes="180x180" href="../apple-touch-icon.png"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.2.2/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.2.2/bootstrap.bundle.min.js"></script><link href="../deps/Fira_Code-0.4.6/font.css" rel="stylesheet"><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="The AMR Package — AMR"><meta property="og:description" content="Welcome to the AMR package.
 The AMR package is a free and open-source R package with zero dependencies to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and to work with microbial and antimicrobial data and properties, by using evidence-based methods. Our aim is to provide a standard for clean and reproducible AMR data analysis, that can therefore empower epidemiological analyses to continuously enable surveillance and treatment evaluation in any setting. Many different researchers from around the globe are continually helping us to make this a successful and durable project!
 This work was published in the Journal of Statistical Software (Volume 104(3); doi:jss.v104.i03
 ) and formed the basis of two PhD theses (doi:10.33612/diss.177417131
  and doi:10.33612/diss.192486375
 ).
-After installing this package, R knows ~52 000 microorganisms (updated december 2022) and all ~600 antibiotic, antimycotic and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the University of Groningen, in collaboration with non-profit organisations Certe Medical Diagnostics and Advice Foundation and University Medical Center Groningen.
+After installing this package, R knows ~52 000 microorganisms (updated December 2022) and all ~600 antibiotic, antimycotic and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the University of Groningen, in collaboration with non-profit organisations Certe Medical Diagnostics and Advice Foundation and University Medical Center Groningen.
 The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, and Ukrainian. Antimicrobial drug (group) names and colloquial microorganism names are provided in these languages."><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"><meta name="twitter:card" content="summary_large_image"><meta name="twitter:creator" content="@msberends"><meta name="twitter:site" content="@msberends"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
@@ -24,7 +24,7 @@ The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish,
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -180,7 +180,7 @@ The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish,
 ) and formed the basis of two PhD theses (<a href="https://doi.org/10.33612/diss.177417131" class="external-link">doi:10.33612/diss.177417131</a>
  and <a href="https://doi.org/10.33612/diss.192486375" class="external-link">doi:10.33612/diss.192486375</a>
 ).</p>
-<p>After installing this package, R knows <a href="https://msberends.github.io/AMR/reference/microorganisms.html"><strong>~52 000 microorganisms</strong></a> (updated december 2022) and all <a href="https://msberends.github.io/AMR/reference/antibiotics.html"><strong>~600 antibiotic, antimycotic and antiviral drugs</strong></a> by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). <strong>It was designed to work in any setting, including those with very limited resources</strong>. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the <a href="https://www.rug.nl" class="external-link">University of Groningen</a>, in collaboration with non-profit organisations <a href="https://www.certe.nl" class="external-link">Certe Medical Diagnostics and Advice Foundation</a> and <a href="https://www.umcg.nl" class="external-link">University Medical Center Groningen</a>.</p>
+<p>After installing this package, R knows <a href="https://msberends.github.io/AMR/reference/microorganisms.html"><strong>~52 000 microorganisms</strong></a> (updated December 2022) and all <a href="https://msberends.github.io/AMR/reference/antibiotics.html"><strong>~600 antibiotic, antimycotic and antiviral drugs</strong></a> by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI and EUCAST are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). <strong>It was designed to work in any setting, including those with very limited resources</strong>. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the <a href="https://www.rug.nl" class="external-link">University of Groningen</a>, in collaboration with non-profit organisations <a href="https://www.certe.nl" class="external-link">Certe Medical Diagnostics and Advice Foundation</a> and <a href="https://www.umcg.nl" class="external-link">University Medical Center Groningen</a>.</p>
 <p>The <code>AMR</code> package is available in English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, and Ukrainian. Antimicrobial drug (group) names and colloquial microorganism names are provided in these languages.</p>
     </div>
 
diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index 3fb70418..2ef4ac81 100644
--- a/reference/WHOCC.html
+++ b/reference/WHOCC.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 8c2adff1..9a42aa59 100644
--- a/reference/WHONET.html
+++ b/reference/WHONET.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 281eeb7b..effa4a43 100644
--- a/reference/ab_from_text.html
+++ b/reference/ab_from_text.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 69d36dd8..57b93e4b 100644
--- a/reference/ab_property.html
+++ b/reference/ab_property.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/add_custom_antimicrobials.html b/reference/add_custom_antimicrobials.html
index 7503e6df..dc98bfa6 100644
--- a/reference/add_custom_antimicrobials.html
+++ b/reference/add_custom_antimicrobials.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/add_custom_microorganisms.html b/reference/add_custom_microorganisms.html
index 3e9068c8..af85556d 100644
--- a/reference/add_custom_microorganisms.html
+++ b/reference/add_custom_microorganisms.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/age.html b/reference/age.html
index f9aa82c0..c6457e85 100644
--- a/reference/age.html
+++ b/reference/age.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -222,16 +222,16 @@
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">df</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    birth_date age age_exact age_at_y2k</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1979-10-29  43  43.69589         20</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1961-12-14  61  61.56986         38</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1969-05-08  54  54.17260         30</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1974-01-15  49  49.48219         25</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1937-01-04  86  86.51233         62</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1963-10-12  59  59.74247         36</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1935-12-23  87  87.54521         64</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1943-01-10  80  80.49589         56</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1960-11-11  62  62.66027         39</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1999-07-03  24  24.01918          0</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1977-06-14  46  46.07397         22</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1993-12-20  29  29.55616          6</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1972-01-21  51  51.46849         27</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1986-01-26  37  37.45479         13</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1985-02-06  38  38.42466         14</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1972-06-12  51  51.07945         27</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1995-11-06  27  27.67671          4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1941-07-25  81  81.96164         58</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1952-06-15  71  71.07123         47</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1948-08-16  74  74.90137         51</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/age_groups.html b/reference/age_groups.html
index ed6be493..55cc4460 100644
--- a/reference/age_groups.html
+++ b/reference/age_groups.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 c579ee13..4e85fa38 100644
--- a/reference/antibiogram.html
+++ b/reference/antibiogram.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/antibiotic_class_selectors.html b/reference/antibiotic_class_selectors.html
index 22473a6d..88e74f5e 100644
--- a/reference/antibiotic_class_selectors.html
+++ b/reference/antibiotic_class_selectors.html
@@ -12,7 +12,7 @@ In short, if you have a column name that resembles an antimicrobial drug, it wil
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -626,9 +626,9 @@ In short, if you have a column name that resembles an antimicrobial drug, it wil
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 5 × 1</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   kefzol</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> I     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> R     </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> I     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> S     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> I     </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> I     </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> R     </span>
 <span class="r-in"><span></span></span>
diff --git a/reference/antibiotics.html b/reference/antibiotics.html
index 15b0000b..ec109cd6 100644
--- a/reference/antibiotics.html
+++ b/reference/antibiotics.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 475fc612..4186f37a 100644
--- a/reference/as.ab.html
+++ b/reference/as.ab.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 39f36057..eb590374 100644
--- a/reference/as.av.html
+++ b/reference/as.av.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 931a8f4d..fb72d8bd 100644
--- a/reference/as.disk.html
+++ b/reference/as.disk.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -240,6 +240,8 @@
 <span class="r-in"><span>  ab <span class="op">=</span> <span class="st">"ampicillin"</span>, <span class="co"># and `ab` with as.ab()</span></span></span>
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ 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 disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023...</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> Class 'sir'</span>
@@ -247,6 +249,8 @@
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># interpret whole data set, pretend to be all from urinary tract infections:</span></span></span>
 <span class="r-in"><span><span class="fu"><a href="as.sir.html">as.sir</a></span><span class="op">(</span><span class="va">df</span>, uti <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></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 disk diffusion zones: column 'AMP' (ampicillin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>  OK </span>
@@ -259,8 +263,8 @@
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</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  AMP  CIP  GEN  TOB</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism AMP  CIP GEN TOB</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli   S &lt;NA&gt;   S   S</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/as.mic-2.png b/reference/as.mic-2.png
index 228b623cdf007872631c686612e52d90289a6216..027af637429e4ee00875e9a75773e520e6aabadd 100644
GIT binary patch
literal 34856
zcmeFZcT|&0_cn~ZqeoPfj#8vcP<lX*B7`cvg9-uZ(wj*<s32WJGtv|zy(67~3KE(i
zEtF8C3n6q8AOzkCp5OYO@B8b0*ZTf?*E4HD$~`mp%$~ikeeFH>B=mu{>Y0;lCz+U-
z&cM{}=`k@K@nd2-^!WHu@C`BH!!md|`dCBt9(V<1>uwDSyqtKdX6nhr#2Lc)I}km+
z0%v04VS?SeW8jy(Fyf!gvO&kMP+chxA6Z&VC79pVt-7Fl=kTkO7tGxb=U*x_k!bu#
zSUYB>SR|aEWl|jGryG9N=(8VBEAPc~Pgj1Odr)=pPKP(E&l+t~!RGI`7{1s+%Y%ip
zlQF73QfqXivJ^}pR;O-_uD(B}|Ni^01Q-%%x&ZscT;ZDo$rAQSOQymc438dRVtU>h
zZ`gN$as5OyI*z<t*<*7o{0;LW`53r{ZO>t5T>5e#yL>qCGPU4aCHTaAef<|`$@D;X
zIN-9qf#U`6{@9Ix<%8fAl-uvFem(W)Et5kSFB^FKhI!k-oAK3`-PeaD!0Y*V-Z=vp
zDy~;w?+h#r7GT=#2UD<U^-8>H((Qmg$)Eq`rdGEUI!st`9@iJwtD(mV!^7l_^y;u;
z=v~1%OPHIQnRSc%AcW65{^kQcYuK4QlhMSR9bu9jx7o}1$`ZWd+LdJ0^{&A-_&J3g
zqOm{FN{RkaqwzOYy9+K5l`c;(CIE`?h}XVU@}_U)d4ChHcnlkPJfC;X;U85@5jGU<
z!SdQoJ$ZA&L3A!(w)ozd0L(Gr;mDnAiP-n+VNSuCXfyQvfV|o1RaqCmk^5?`Ygsf!
zmDD6C*G62+)|O~|Z^`+|fA7S6ymTs=hjv@<7ACbil&@F2Xg>E^kBD>(MCt;{^>sGa
zihs)+FV!IT#!>ajUQX;aezN9`f<6drG)HYYm_I+pADLqD=JCiQSiZ2N6<D0lcs?gE
zgJnIfZYT5*f8{O;E}pq}Z>D?eo>%NTaq6x{voha^@g47DpKf<s!1`D$>SM4N^t_?T
zy;0_hA)Umf^K+LNivh};n-yHONY^Ap+?KTVGi1PWYT|^CfzjE~O#O%+x3i<%wgEC}
zJUtD!%ro$w8Q8nF=a(pN>$NMwIp+(SxoR)|^>05<Z@*6bmBK%F9Aj%%fc@Z3INKKS
zHK4o<nSrIC%LDS3`mWs?JnUA7Ma!;?2xVtq4gF?;nVJxTH1HeT527y1O4bQTU3!{<
zebau=W(hCEBJnja11lA05>3#AEmeIk9)3g*Q(HE&t^G6ZF9*Jge66t%IKf6b6%Ba=
z8{urV_+7jUgvp=uYlE%AJ6H2@zlJyLY@?~*ahX<Vhq3MX&SJ<#<ra4AN9fRsdTamM
z^?r$8mtVYQ{nMkGxz&l$I&pZdz?RuBy^K0ljE3TbhV<8(;g2b)Tx5fC{?)_?=V@K>
z--q1_R24G);&REl1v+0Ok1}L%+w5^V!<ZVS8m3nax!_Hein||GG4}-F;ex7q8i{cB
zDX6O(ycO+*Z7cbXmJW!s6kkGI!H#gXy))K3-J(|E2b$}l|Cr>%`f?RJMKeLG6HTwg
zqZ9q(PUNiJITQ`wGg^jP&~v7X7a9(?>Lhw0Pm=A`9R;()u>}wtQJF*o9;s2c^#E74
z%%8}TZZU?ksNV@<Owg)UAY=92%Y|c!c#+AICGWV}>T+IESmKw8oxKlEvzX#x8Q8Co
zyUy4lCwYnQtD%3!BYg1$=!3~`aJo2e*v2%pZSwSAmpGK6F;e_m3F}GEZL+WLYtrpc
zlZV+EccCPXpGFt=*<groD-0in;7fu}#8IV&zm%yL+B#H!2k7u%PK|*VziyX)wHZ8u
zh6szik(CY<Re=7pIuh$Fq2Fx{O&Al%#$cVDMoyEA42|iZ%o%HL7_^Tc%s2VbM%AJU
z7TwwLm%|gG=sF)$g0`MZbcq;WpH>O3f#1;6lwuD%tG-PL6RDmpH^&(8p>4;~7<ND4
z7Q?`=FaJEj;!FDB=n$(C{t-3{*@Dzn6Uv*m$t!5CwJyRVuC~!N6GES=Ir=lv#<b^f
ztFaGb1P-BpMsTlCP1w`a=z7oEngFKQmFzhoifLSeqw8XCrU%)?X(qcKg#}m%+z;IR
zCj$~2MITZ%x3bywarfUj2b0)*qJj1a5T%v2m-`{Ovlkev4$AY-w=`xT)B)l#E_jER
z5KDqV=O@i5Rm=x27p;xI#+ahZ&sW6<0B~3lYMS%%L|=<t_aPFb_@_-tGwSpF4v1u*
z3I4CfeCJ49xpY04j)D9Bh(ov-FR~ACS9=cmpkxe2ah55f@#~M#aCQDjAJYV}IW1U?
z?fDPNZKq#6u<oYA%2~*1C-PWIhAIR#N)1*1bn<7~29Ge~mnc-LBxRU9ER=eA*UBz=
zuuN&F+Oqo{A0drr&Xt=ykotydQoCaCM_wU+8rn{ygJF)m4rb@4M`OI4U)`Hp@WfnB
zY%(oW>y|_#*9SW~(L?I*V!l+PV!c9#@eu7sY0Qd8#g?e`;0jO`Y)alAXOwj~*S6_N
zKL6Zl40dt_0vmn?Gv`BGokPH4Z3Q0XIy>=~#q?Ts-^PUYvNcDD&{DC9d|HVxv&;#>
z+{j6Oy0)GUOjScTW<9?B=dsSV1u3BoZQeEhzW8->*sR9<^=wT0jZ-um#-#tZOFbk<
zo>7@c>*b-m@U^Gl?cuAXIfwqIgU!49=EwNhePQ32{^!d7;cM0n47ysKP0Zl~mJ=<l
z@lJRy09Iz%8X0dOoUQsj<Z|U3Y#Se4$1YHV({(LJv^po&wbLO3`&dpHRa}um*ft#3
z6$u_S>_sX@H#hdnyx-Ov9DQ#y$UR7#jd+WvyV80fOE2C@MvrATj<UNhZ58Ih>E~aM
zOF4~{DiT&`rYyPM2E#f6Cil_Wp9$7iOY5a!@A&5qV91@3W-{1Ds^x-<bI{6#)`dbr
z{)@07fl}qsn04A)zhQ$|uN16Ko{O2d0~T9-allngPY~9?_oJwFG4AGAKpyg-J8i=l
zgBb4Kt`8li`sWnxz397uL39`79FkL8keIb>sjU!bt6j=9)_wwnrq-y7Hc~r@uR4<$
zcTt~m#mO{UJ?xg+<ONg`tC6Xfq2NerPe9n7;!wq$;f0U3Xz@odt=t<&CDz~*3RnMQ
z+L`X{lgM)V<=plgA@GK{P1?s0)nt2tb9h!lwSA4K&UC2&!TKXXLVxF_ZItGDIV)mm
zdh5&cCSzoZX0jijki<U$(jsVQcRk~7w!{)Ry4v7DO=xX_`0DkvFx9+mbJIPUc$$*V
z#>P_rDM)B>?7_TJ$ly}Em)dd$tuBF*wpL&}YA%)sKWhZ0#eBiAujeQe^U)D_z>~5!
z>z_0w^8dz2lw;7$@moQ%u<j9bfFUgItAar{4{6B;UM_QO-p8Qt<q__MS;trkk~zgS
z(@^C(q(xA{w4@;H@iJOy&X2TIcAz)0m2#A`ZMWHFZ*zo#&!gd?1b?%YF>Y>wF1wPT
zoxB$G&BpCOoZ+sq`w;5y44Ex)*de~Yk|AbTYa$G7E$CosfPqvk<!%w=>pe}8D#?D%
zOU-<LN56s9+O_h1j82?`TU>W2NDgdy#rGq@s}dUxM@wQLxJp%1ROg$mzeJmT_~%q%
zzH0M4bLT`7L`8z#3Gxy!dHGT1EWUX9b|*T{r7t|}dtCvW2poBHue5!I;Ykd$60lH6
z{g-Gk{h3d=_UZg%K~bxVU4!b!04wqGEN%DPFf%+h@u5sJLL*21jk-sXi(AP8eGSIs
zJ&5zg*N9dG-Vl(AxbvAOVEHKB)bpKTzdfYk^h@}8j4QJtHqkCq)<tlhCAaRM1AVho
z=P-}XenX3Uo9wcy1Q2KBMAM##p|1Y&VOfbXL|W8dL@f8b=wBj@6`nAv5j6IwxdY4O
zs-3GV{ItICRRm+z^9aN1%EZG9=<)NgmDla8<Y{yPdM<xzTIxvbn*nZv(nT3#hYQEQ
zWfSPh!ja#S==}a>@%MH8najyq2{_c~srLm6`83r-S-I(l!C*gn@A<-(%u&9v26#A~
zKtN!yI+I6gxCaZ=9)AjHST)b51===^M#9eyy2ooS4Zk1KdYSToyjZIEoIYlOS*h8}
zYxcjz<j3ISU)%I;UkCA`TM>lGTax$I`8aRE#cRaSTUX8a9I}S-S`p&rJaax6i5&&F
zxJsl?kfy{3w~zB&yt6Q?0P~HZNzv3?oS-Re#-rPI2=^ri^=Viqh>X}$Z=dAFqzau?
zH+$b~E4$RPUeKz|LpTaa>_O(?1aDOj@TT5N>zPOI@_A;LK#Mz%V@9pxvopQ-FrBOU
zZ~?v&!DmBPdrE2YRe}+GJtE6yu)X*zT#rNAr@Q-~jD;3dn^8S&#jlZhJ-1fvV9L#W
zcTY|>`d4E2V*QzY)rYRn`NLeGt%`ZgFD?7{=(^piMq4gn7Tu18RHwuM^q`SY899<w
zLqB&!2-3iQq0Pc*?{&M9x=IOA2xHUq0)jIRhc~_D6k6)nUf&J9<VLiaZdvCMi{0x-
zshpZGZ8Fl&n9bqC39XqSd$#xfPJ~b-ySdQ3DLYR_@KLbj{ASYcdU1GSbFDPwBFrOm
z$Tgi}LRH=ptyf-N^Y8Bxmin@dN}wp=pVl~L{iFFevaa1J0H@h$P;uBFGOMQNF)LDx
zhN5Eil-*!c$)8FnWpM+$%o7$r!qY0HY&!z?#H5UTL$PkQ9a1Rv+nUo5<)d(64{?xu
zc&_eKay2n819GUK9}cJRBV}6oek2Rr+PXipYFSv4WYaoe!)@0ZnEn|8n{DhR;%(?f
z?b97->bWz>p?FP*xTt43CyB#pP@Wu^P5vn>iMqD5(iz++q%3bozn9wMG^JGBDNrTY
z5OfJK=PkuO%^gRrGo8_MExMYRtT6I8cAfHx1m(w#>)GLw0|(*i)e_ptsHdSlu2gl*
z%cowL3J!u3+n4f;YMfOu$LwDrh&6S;K$wrhU38OQUcIWof$>Hcc3k-gOvZ^W#6>dL
zICtg_f-rz|>$@c}UtCA9ahg(Owx?%ZcJ(n8G>w<M_rg}`#e$9N=O%UMdZcrHkMesT
z7Pz%E3fE9#7RERJj+RwZ68r>+optH*MQCUmxm6Z!)l;Xe$>$Npx20?io8Hk<C)e_K
zc_y?D^%v6`Tu_-MKUP2!7T@6Zw=-7LuF*oV3+K+Duk0y`u3Zxc_>=Qx8X{<Gu9qhm
zWBbrVK$oB$!)1WKjz0Z16H)(EH8Dl7M?<_^u!~Gs)x&U=_!~jJZJRhgw^g{mCSPzG
z<Vz&4sxNQ5$f(9#nUV+(s4c!4`so_yP>spVR9&{AYOrQuxO7;A=Vox5kHzJSz&N;g
zFogVs_RV;ira0KTT#9&)NP8;ZoEnD9<`E3#87lY$uljwmFR3{ciky~#gqA$RAlT9V
z;>Xmgzke9E&hy}h;GiVo5*??u_1-ETNBTn6W#cwJBQo8Nx+zqgkT(8v)Wm7<AZGk}
zj=B3xn<m=8PAr-ndU3?nr2818@JeRtbBcU%8+wFbP|+`PNoX|ysvbkNR1>J$duQ08
zqeHN*kis?xy1i;&!M?lL`3Rk=H?_%@)aXNO@*^%z2{_RepoHxC!)_1KZb{QFuhnGX
zS1%0ux*9*y3^lX=*p8GloY`9a2svMCc_CCzx+6-rt@b=Y!jv@3@t|gfLtxF6C86r^
zcL(QRX1W^{Y9+h2M`C_$toc*J$`;~eU3QFOsCZLI%VU~U-A7Hg!J_s)cGu#nlxwiv
zPGdbeRP0V##ipEn_HTq3e|f#Wobj6c(ki>JF=-_qvgAM;=GCy9_#SSHyrE&}nVX_@
zpqCMyb1z6h*Cz5Wt6pvS@))Br^mtkX64M3~hs(6exhEDjxA^!b4x}1Rg`0}j7-NWy
z7Op2o4Tvu3YJV4$wV&9AkWdv?Z>|1@oKVk{n2-zO>qcfa@~<W%`DZ0!RYg{ljhi9}
zs0UM910Qh`oe{WO;X(?Qi!g7QOmnzTGv5qL*Hz&r{8X*=uA^AJ@Qgbxe8iy2+6);|
z*1-)O;#}%>T@NTO^j0Ra5nW4&q)QrCJudjW@p}$tr;%$7V`Nj#n_$A$H%Wh$wvRR)
z5swxuCHqJK&*UdfGjS92uXWWfEH+@N1=gh&SYQ4)ka>tDtcqS4Cpf39JN?lOU}|h_
zaNldgt`nmNRRT^jyPJ$!#&Gl3MwAn3WZwJO^u6&X-=iWWVqnr$^xsAx7*sCYGf-MO
zkJ%J4pQ&U?pcQ8Z8=^22E^VPvIdt66mb&n)+e&3h#U}KBRs!djk_%g$wajir;F3Gf
z1Q}Vz^kaHvd6^boN%|e&@uMWh7~t<}Hr|EU#C#w6(444U(Wbh0bylK?GVr1e-gLqH
zG1cxj?;4!%cy>80<?7^j1do*ST@hGe8|}QT3_Q%@lCNfai8#diEkSrwV|LNVHsbpe
zjXav;$r+CYziJgaCwdDq<zvpSU!Lu4t?;$H<l@$y_i36-z4r!K99`bb`Csrc!E<Fo
zwh`!Sb1E2#uGwb9<D5YP!a042E9YT&`|=@e^8G@pYp)Hm!f>@7=UU9?SaFqhy^EW5
z$JxHF{mm7hE150%t?=_v-E}r;)mlX}_Cy5}D(Sq%7>OP;ZxZ1Oh*ojov$r1+g3Zrb
ztLyJ~5cNdYUclHfvu=jHB}3>%wEvG(?%T=Pt?^sWuE$-m-dwpbUowUYtrgrUPs+!|
zew2eGy5NxlgVN?Jw$1CS`JzbcJ>T5NN=w>tunxM$B0e<*a-v;Rj;igepo$KX(@~$^
z`4LI<*HB3<JzQMKzeFd0Ct3W^5O#MfT8!37hbpHlA7X)~9ejH38iOU2##-hp_MZ&a
z*D)fVCe?+vtqxeZN-JD}41QcJgWx={y@J*!OGZK=HWQrUu?v<Go(^f|2elzknZ-ER
zj0<5D7q$4*p^a;AZOnb1VpG*NIUU9~c)qHAhf|J<l^6Lci-eC@=cs-ALM~Ux$V;hx
z%P&=Bc+4NwvcxNe9L0O=l`J$OU6grd`TpVaE?@jeB{@J?HhbSxtrrhe$D7CmS|c9j
z*I&!frnS+Jt5`*AFKna>&dl+mh{9WARuv}chKc^2ns4T|tn!+X17d4CE{RmiebR@i
zinV@7OWui9?Yza3MO2jk@ThXB4OespS$p9`>Uo%~V*cjRUlrVcVH?lC)Sg`c*7EW~
z)lCJT;is^7LY_M<F;whb4O?`Tn5~r#8QwH8D#o&R4<@D`aqFTfBsPOnV(u<%wq<J*
zH&R_8am3e#>J_E+n&u)y&{nZh=EZz?ToCUMMLG7BDyvOzaQDtyiqfR2>)VlD3Qa_1
z=bIi`4P*}3$(d*T@oN>fo#w);$^5SoV*X2REn`(?D&Oe|?a|pU;KAb6dIAR)Zc-4!
z>1nxP+aJz-Iq(t$*oT)yNOcb`qG0j;1L2gCYVkJTDn(c8iSn=TDi@qLw?a>u^_?<y
zXxGrB$KsJEHJTZ-OE`!%_T=<1={n_9#z^dAtz;AWQ;lI*%SNv!2^Oyg5z?`HrqsfB
z9=#z0OKet5lxeeIvlfp1HMdZNlpyV<!ODAx)q6kT{=rv6=YPXSw4=9csx>8w9U;~o
z9v23UDgNEYLrIpisL4kA!V1}W$@+iS$hkg#t3>{eKnqdb4mCjgx_D<(`+V{Cpmt3J
zaamltCXo>K7Eh+H`L|D65f_`ZSNT0!ii}qY;VC<?DbH_<2QDL?9iK0q;lpq%@Xhvn
zg=$L32(7Hx0V-Emt7W&zK~v?)4E-v6S1n_9!2vzfs(F%))(}Sy$*Q-J5RA4v`_HdF
z1t`V`7uRO-P3itj$T^UK{wf%^vrOAg45HPB!=sZ@g_dk;(+T0zK2dx}JnJT?J3l)A
z(~77T`RNm*LUYGqA8nPQQ_)xMXWpB+9N>7~-7i$hdd+i~>FFC@hDDiQ*zh&(FAEx%
zb}9n#>~>({v@1?_VN`8n;<JlHG<oE=@i{VA1}^q4wFT#Ej=)H+0v?<b)82x}xQdGk
zu8E^}RiDkFdZ@@+c0jXh12_iXsnE%@kg=lnbH~rX14fcXq&h~oAd^nJLUxG2gNXx;
z$%&#W;w^ha@DwwM^>BH!X7G99sASmKn&@4Dl`A6!h%My$r{CHugCrHf=R3~1mT6;T
z?{F1JVs;(xT6I0lZr}w-@#<43#K~86Y4>W8<!iE}UGr$~626VH-QBA*?ty!Gz=T|g
zxC^G#GqKlWMQf;!^*hVjJ#DC5=G+^8!25T>`njiv*Y>VD`E&cD7G(!{q~_wLMh;b`
z58y&*&5DK4sS&9_o8B>38&5km`LEl7p>6Ul<w@6R2!N1y<&Z~b4Lu9bD>Nw}!~-_G
z&P+V}-no@Dww4g4Xn*3dwZ<Y%A>OkrEF!S9{j61=ZLm8V&l*zs?o3WR{#oM%k?jx#
z0kcErSV6Ys_^37}^%h$0Yi_emzOlpsg|DkHwD-^n49Gj^TgRko6;Bp!$2->WVz`3)
z`01v0Moujjc1yjd+PG{eFpQP1(?!h7Mjs1j-f*aC&sI+IiB939l<Vf75E3tR?we%b
zf07_DIa(D?!46vEn{Mn@W#aRVq)<iODaN;lljGmER(4TXrwXT2@{0Rue+N=)S4#8s
z9Dyqjw{7|-4m;MoUTY;D8&MS4`N~#6DHfg7-qz_ev;-}L%(n2Aj~Y&$s=hF&Tul63
zMz-3uAE}9Cy>dA4`ia8OVJt4zuS;3@@QP_{Ar8Og#qOr?F73mCg?ol@>fdc~SJKuv
zU>fj%J%7tSUd+pKdX;~0n|%I-K?#jRjxxH(ChViQt!Q8ChU?Rt5X=*bEq^3z&}o|E
zVV&twFvFi!No}@}TnlS2UVn<|>?Fl)S5{HZ9#$5voILjY&}AUqtjjXZ$-g-H=a#}y
zwJsmk+}_&`=QMvR>&g*<e8t}jnYOYsrK+|db}Akb==d;;*5n)mBI34PM8h0pvaU{8
zip%X9=0yMFLFlz%w3pVjk`);b2@Mk%LN(nvjfQ&q*76=l!=rQAh<AGyL*KT)gy7An
zZh?88=>XOUA4W#`VV~_w@m3KPZo>kU)jyKG)$*1;y`>QXzk=S)QCsbGsnrxjmU|X>
zj}hViEU->f)Yv&dmz0Ye)HYKrT<g41>9c0p{v*}OrZZAsA`zl#g$R70)<)@!41w;7
zu}L>R3vg-J#eL{?JpY^rY3XdO(P@+5_QOesY|l@oz|j+-em|?Z#b+PMFP1N+5$e)-
zvp**t4}2Z$;ZOBZelW-qdodtSN<%;w6?dN7SLw=~WWg;t)LP)^1T`6s8tBhX&h^jE
zs+76zQ4s4GL_JPY@|k!5xT!&j5(Iks8w4k)-9I{6G~LF>XI(^?W6|HeLR#Ts_ST8a
zp-Exda>x?n`L+Q918t83tp?!4mJ#bb?=ZMsX+@xLU)<J&Qw7-o-$H;?xZgAvD$xmY
ztjOHhw1XYdjh=1h`}8eLGwzW>Q$Vd|Mq&aq;n6M3Xoh+Ekf-`#E4H$oOPF!q1%xHf
z+A}K_eSw(SUXs6186kVFSo@q(#Zc9a77t6?Cai+)OquIaG#g|xclTkR0#Am8uL@<_
zJIvWSxE-E{;~(MDpE=+}|A%X()+WD)cV<OgmkhRmv<>o1A)Rm?m`&LdZB{AQqPFo9
z&T1jiL76E0sT`0jwG4YFlMHGMqU9-o^LZ3}RR0kfdh_;GK)OP*AojwmyPb&`(XPd^
zTfHBkfqRXvAN$J#TS{BWy0)h$Od9gMQ#DH#pRnY~m$&el=bA^`H=jPcg1t(^=Ib9(
zCzsAhk&0E%zb<=Zpg^&8P;IN#*=}C92<KvvHlFdL=o(ZBocO#JI#ExUY<XZimT$D$
zpl;j3r_%sYemh`;Ha4ERb&*h)SPMe`f3T|X)WT;fQNZ2PQThhN29DN#JzJB=8CZEr
zo`Ka~_OnqN{wn?dc^1IZ2D%%Z%z`c79iquv>jW-!%0pUKVM>od5L1Zt*iC5l4^Q(<
z2pjF!+o7k-SH0`^PaLasLt`H1zoP6O$jWH1D^pfL<Madx*NiN!px?nJ!UNb)%d?hK
z_^Qa>y2P&n=+m`^0+PQBX65B{e#SH>Cce2^DpoUsoYj+#KU|pRLu!8Z^<>)?1SbHo
z21;g)O&@Hzm`OaXQkPY;v0e++&MTJc&b%8WqY<;&Hl@gAzb+PV`kTTOPWc<8<u5^<
zCLvY@xgJH*$~DXRwg<K-xic;2=tqXhGdGRikGL*4wYWetCEv%65Pom(I2Rg=LKP?c
zfWQ5Vwq(0C*x}dNros%zHcOX#0be5ODnVKK@UhK9;p;`C9coLyxc5{mUpKDYKYHTq
z<geM%4ENqivAD|$rcU+IME;){xHGQMQX3E+x}58&>-U_LURS$|S@9bw&sIJ1*}Uf?
z?l)22V=>=S#4+Vwntr{WKRt8R-x$dG6wTAI`YtERU<YB!rZ3QSxNvL@YtS)<?d>o}
z?}sd$IOST3uP|}Jdvsc6vFk+KR-|5Rw%TfSK(hC~l>dg{1{X|yG{6qu&h44R-EHyd
z^IAu_1f=-BLO|@GkryyxXQ;E@7H%uB=nu=FT4CDr$Y+H;TFPS$&eyh-vzN@Da2gA(
zNw<8MUwS`qDNz$MiY<kwCb~dqvyXFKX>D)%KkaD21I}J*S=bYU#Qw4<Km^ue?*>(5
zpVzoCU`<JnJzWLC9aC*vh)#jv#Fb+)&3snh#`!SgHwh-*g|S<Y`^^KX>8Dk`|MJ@U
zY&&WUtmctko)08eS*&!3X!l+Ieg@v%c_j2Rdrc})lp5;lluoX8al2Za%(J#F5`$@;
z=2vNY{y8waivFHO2SRjEP|3je8i`~KLY7o2PDBouOUAfRA5%F332=X}Ad%4@*~UJf
zJ0P$yehAGWL=)njrP(e1R|}Fbpxpc{;UOLEZ~YQJN~GL-2Ih4vDshfp-!K&12Z8R1
z_m4uuCbM53F6{q7D$T0abi=)Z;Hhr#0=*}{N|5Ks(g|~NTM6y7D$NW*`e{tRu2i&N
zuJG5S1(I@KXAJ>TSn-?tmYrOlAf|1~4Lyib$P1{CfpzR^&u|D24y5x3rpC2yCB<#~
zYd~g2^}a7U2^G^*TBY$C%iEy}sx!iAc-yElehBB8ORdlB0#dFC=9FIay=rU>0GKC|
zpLXOh)0^6}po*2vgM&=xuvEBGU^03FT$O$PhLP;`&1)~FbmTA}W_tSIi9o;-*stQa
z33fPdPhS@F6!KKjaXrrT1!Wr?w)}2@@kGV3<LCeEFMV;R7=q9Lx0Ww=?i+#!Nxu9e
z&cV#8?r7HM&e-H!HoSlTKFsjg0VXwWQ$tQL`D6bagyrYR9|un&TryH;<g3+8>=-To
zl;uBrh>Q<dp?@U@s%Gr(Av3=He?N1=*l;{<QR742eH$OY(T(QU$WahOO~t61c`ppO
zKmGCU)?O;Opy%qkD0PPI=H;$3r~dH8s@YT<X_uimvO$4L_@#=enVBf_Qadfz9Lep-
z1G{BzW4qBG9z6L5r4D;)E|l2)csFwC<SPM1`g)Jni#%4t2J+>fxyFT_cR&1mIbaUD
zt~`2%ZMdh<x?W0|wov-4u=<58^Wnc#;o}=;n3yIQu>sS;jbYEuTUNDx?w$HN(2b3c
zQSy$)>m_35<+isRx~Dpn>2o?%F|*IVjfv$hP9{c136^GN0nNc@*rRqfC!;&-Xp1!=
z6)r@dxB4R=??(pIeg6FU{@yOVlge(LBl%^pOO+eScj2U#-|r70W>xw6R#vH|R#sdd
zrk6a-FGU;UvYuJtnP^pExcGzw!a&iZyGa#eNLqIkr-G8y<Hpz0t{cbPIgVeAYCS(i
zQi!2C7!Ib{9AbKiQf2IB9-i+|SgN%^?@}u2wIVGExIn6iQK8j{(uI@pJL6|jn}NEz
zU2uMWe%6GzIEzhk#hBG9nC^%dWzb&PbKp@(zGn^)Oy?-Laf8H6JI0fcXpJ;&(0P{K
z#AFYL!!gs-(;uG7ChPVUzjyTKJmgFsDoeV=96}>j<eOJ8b13*Mh`oCCYAm>6Jfdc)
zj<yHHp@8SAzQb`W==C*Da_3SHT~3;biQ>x#_SbJeObuMDY9bNx6*9Dvq`AR@B30K*
zB<gocnm|f0P`x`#_v0dRdoEMil~_*hNKQ_Es;#YE35ylruiv9D_1Erhla`+CZq4dc
zm$^5bk*O7hy*PGONn~&{DD1$ls8#J|%Tw85)aLTIwSl*2)@3XF^CuV#X1Z&S^}>a?
zGhB+BM2DUXx(d3rt*w;He=4Tjby{DJ`S2B0_%8(5DV}J_nFp%;90lfeJjH(oGwV89
zyH)glexWzJXSP#`wjinuSB>KEFW|HE{Bg?-FP<dt?RW^*+T47-o-*WQydCNG`{xJi
zG5^_=@18U5a!!*?ku0RX+zN%Rk~`m-79>W&m4?M?Qo$Hlk;C0>H?Lj$xDzH)@YaXE
z(O<Z%KT5j%<~3M+SBdM_O@LaJ2U{bz;5M+e6oSUI>^WNwFg)5JhW%lSRk;zLH^4uy
zJ8!&^E8kg1cKH1I3$4>iz2>?LjDmg>2d2T&^TJMsG+@4e|Bl((+JYk|+FDvp_$~~r
zyr}Y=r35a2Jw}XTyXAN%9j+hw!K}<tXK56tuotVNR8^v%sZF#=1lFUJsr&K%B!Bkj
z&+F+Au3somjE|3p54+<z$pTvMytb>oNl`mnvuUSRS69n#Iu9(9>JYRJ4#~%j--3b;
z;{EK}-|ET&UFK3zQNg>7)>b*#+0CQ|Y|JA@O6@zZTvLtONz?amYKpk>%6AOm+xb15
z)pw`_-Zm~LC-*&)U1oP;B3uIL26WU~zN{zDw3Nuu@m=n{O}xuUwKr`%C%0hU*ucPR
zqTGeZcHzQ>Jmu*)eI-Aj<YT#(H53VQ<Q1umtv9@P7c20`apZF1{b3}HT)!TcXIwan
z_9hWVu3=izmG*YlxEg}b)b!`dOfUdTu-gZ+vk>jI{N>Qu^<-rfa*T(>am&#lpHx_n
zv@MyQ;5>wm$6&7bm?yNl^JK~H)Mo5(92*{$Y3Yq`r+u!hlwB*vb2-WRuTHTfh+7T;
zop#xfl9Flz22iv5xko!`g@GU*3Pvj2ceg3znn%mOzS_5^Dc6${#LU@@3$5sQW={Eb
zE*aNhRFv$*>&G>kkYd1n>>0+SW~1P{*q(r$k7Uakchm1&c?O-i5}%l8PZMI8G#4*S
z>)lP$xWq(bu9}@VeeJ;~dx-H@th?LFdt04xzYjlw1W*>Lo-Pho(MN$a^wF>dEZbdK
zj*c*y!I+-al9G}LLcaM}t;ck0M_2UHa8+r?>U0}P)VgkGs<3X`@f*Y51Dpp-JC$md
z*xhQ~P1_r)0Q$P_0fZ@&5Egdan#)X!3bz`lN9|d$2x`|twu>hwCWhf{3ErGa&;0sV
zCh@3Mpf`JB6#o*zcL9@;GEq2SMV(^+$0R0`Tn9@&wIsRK$z_?A+R^PgQxUm{Erh@S
zmKBkMIYjE)_|x@0Q{4@Gil{KAoMqY<g?-W8-R%sMUt4bI&AszT-CJy=Tti3PJQEs7
zF=&?L`Rf#`xS}msg){uwfz(BfTEa#kz*c7ELZN#6flR7ai8ue65^nk1DO&B;Owx<T
z75>0cxmf#+zbcOv(3)5FT^v^CMyz)!*z^}i^8)*T&Ihx*RwDWfEXx+)#0s}UWnlGd
zQA*ptr2trz@=^{zYiR^qg~^gffkQm@JlX73&RDK$YlXqHofW*QnqFIiSfZTR5+R?c
z0}#=Y2j*5!r|{o$?7bWaU@%RY;Q|<==EIb0E3P!2L4S7a%b~Qyoq`10?rapITyTu_
z85|t^&M>3;zFcGL68p~7Qx$GwN>2%SrY|IF7D~DpD$Zf<3e?MTVam0_b;OGH`(yO(
z6P@D~PrB0ELQY><eemMwnYw6kDX-r@wf7fGK_PG!m<-qUd~V@U@?h!gHwNNAn+O$j
z6%!TRah-0B7o?E-mpCf?#sWzBW5&5gF2sRi8@EB=%AZ@-_?)>6^!7&xSHSOgDGI)X
zxxU=~6yQ>>puI-C`||-P(ap;oZ>gdefg(NXiZ#l&uHW554;r_8PI=8kQI(f1Fsc)G
zu#)&hES%3w;ED1*y{u<pkt~PY*}RVn*r?V(JN9N3&ux<mtrrcOmfU&zWOwQ^cDRlu
z^O+k%mU<eP6`W~DSS@b&w8jbbGl2YRATbrSyT#6a%Mm>5l%haN1`yvL@Lk5C8!O^S
z$g4trdwJrnFL~(Jdn|V9TcTCKTyRiOkoTugpF%7=TKMZN{LimT9%g#};;;JPgG|qF
zKLenxs@5H&%2n0mk|O6h6EQzjMvBZe%9pRhVzD#pb3HVjG$l)bD*AwqP{2LwY0C{~
z_bNPRJBYPI^1GXp73z8p4s*Pu{=!a&pYQKDq`M!zcozbEanIlA4tY`@s~c{E@QE_X
zKyM(`ks%;nL~!Fk30#8!Y%ef{&oW@{Q*<P^GSY5+l|m*iU4{m%*Z#%>FucSjW!L@y
z7O?h1X0Nx#cZr(}KXT*<yx+p}M~+md;#$WgF*8NlcnCLTtkQiFl^pDQ{MFwzvz=)u
zbAVB(s)ztEqFm4rsS4(lI{Mk6=Py8V9R1tGDt6GD47Znv&CAP+3;4S2K-79bI}{3=
zy8O`m^OLT^zd!t(>z05@qvrg&LFb(r+9}&qzq?sj4~}JaRpCM*W&8mdBuRY=A@4d|
zi7Af02wb!!kg`*!^4`v|`QGfcfgHnJc`=L1<u|}1E=n0h^7ZAJdXj-_Sd1L?WwrF`
zsvfEFRaSiR^Sv&^NIvG}Eo}W3xgI1R%*6EcM*1-Z32khOWKV+Wg<ldYugvdxf9FMa
zyoj;VCU7aEeyu{8nysCkd!MKdFjxz(lzoTd5;j&lU>kT8`Ig-L-}kh2b#?WiZZE=k
zuWXR|_h4v%%!I35kdLa-N+q?min+jzC9!a_Y^~tA-O7OF4Fk~ZjM7$Aaq7mxT69%8
zZ;5a)+iNDv7RU6+gY~29cm?$lYW>&Jbd>4qF!VYwFCUnfIr=YK;vMo?K7kmU+c#+*
zyT7rH+S(l*T_08VdgfO5OtLwS?KH)-I<<DXf6;p5&3{coqOjHmA63fd0Mxr+De;te
z<->ISAmpzv|2Xky=jDk80<I=^kyQxb4l9E&@SFn+*%6DK@5{xL5BLMZP{>f(`f|X+
zfEy(tWqcL}%&WcTR`1){*_i@Q;5VP0=^C)nXH2Szk6zp`w6Itpg<%bB)S4`PN6L5r
zLf8ZGbOP1@?PY-cBtF{hGra9m|G?~zq<&3w6qGU`7aGN)2yk--{rTC}s<^4Cse~;Y
zj*DZE|LYe52CKDz%CXde_2|jlVD`+(RE_3Jt0{9Ia>zso!GP8|rl@JQoGc-~ryM&U
z+b;PY$gpQYW0|@z=s6C=Sn#|1Q`;24eYV*Y-_bF^D~&{~I064eM_!BXk4u|;p2S1)
zSOq+pgTROl02!0HDkI~YjI(5f5`ax~#9$3`jjEJX$;1llrFB2RI0qK9Yn=MUJ69?J
zX`Nt%IL~j}+S{{gbQf6Gpx?dEzVqVfC%`;+eJBfq5{S+55Mz5gy98MGp|gs=<ee<m
zFX#FD`v>kcC99uqdBRWxFw$VJ#bN(eu<E^j6OEz9%xpKG804FkS-B2<p5wfBKjI0C
zxgD^&BWQyf9~Zn;kTw#yh`aor+5SLiuHesy@dx@%@IIxYV>cz8;6mTtung3Zb{=?|
z$#;>JwO{jQf$iZzpM5)=x%>u$*=mDtet2+wI9orH47e7u3OE_5Hb8#GtAD4nPeQr>
zKY|ML25ON;$ka&_%mh_`(U$6!OF%>ujI)#^&b)j7<HrwgPCMRf*Bbh#-hrT!(+0@q
zDbv8#2%8w47Hi0M7idyF5opu6h;hL>R9_!B8>IYV<zz+&;5B2wprd@u-N3l(Ery5%
zmI`=D9uY|J>Z%96v1f6l#*#%3tisqzi(r~!J<#sN3{8xl@6cz5AIdw+4J^iaChpxJ
zRFT(ARrH_FOhazx;gEOkeD#5WD*D5z5#>8OJ1GR|T4|f62;=i&tRygj!truvK*Rg^
zg(M{0a>uqsa)B<X%KITU1Q2E3#_HbAn{so!&eZdblE3mRMgyt=L9wjc+ofGw0-i}4
zU^lJXWh6|Ix$=9=yp!<Y<ZXB#JPBCN2N1Zd_MyE%*s27gf&O-<u{t{C+qZ8}pXj+B
zu+TemJ(*M;A0kkq?~GvcHk;FM<%%?Hh~8sFzcD#^d%pe0kB#{24kOhYCDUz*X|;g4
z-$&1EyVMsIJx$_!^*3+-i3BAO-o8V}#m1J7bT+CZZJIke#KpzL@>d$pDo@GBn-@L&
z`e9|hqq9?j{l>#D+XoIE%}ZQgX~#&NC6D50`ll|5{+2@R?u4eudk=}jz<;w13ek-e
zE>R~7U}E9by<msmAiT)|I+Bx>^_ve?$MO!499?#pwX9f@5@K5y-3x%fFeM?RVH_ZR
zMz>GidkTIx55(U@K8F<@g|f}e$_9b}_I@N=oxtVO6PJH7@C~5N?hwNRDsTV(SkDc#
zG~bnEH0Az9Eb6_Lekj*5;T-V_>Kquyz<sp5*YD*;r$QVhsz-k8*_zhcJ)5;_eKsH)
zaqQZkXh)>5c9pnPzqgwT@LOQGO)7O17YHJz#i>{wt1W`Ln*(4Z`8(w}pf*4EcB%C}
zeA!?n3v7yk*R4q9yX8d4Yj!h7KF%_)SOj`#)Q1Gf7CqlzICi!e9&(l&X;eZ6M2VbP
zTU+}BWG>{L=ej=~@qySizu|3L#8F2}7&N915LBHVyz=f!y`T3PPI<2uI(4kx9vE(j
zHHy9=7{LV%uqs(m>yEf0)v*n@&8Rc5f7tpYxP1#^k5283#d>zg*=w(t048@)qZ_y<
z%fMeo21M7OA#PgfY-*tEy!GyCVkC$`pYC+=ntphY^$Y}+X<I_<jgq&~T!4S>l{@tp
z?9Kd0N>bjMiv3Ygw>|HcOvr7Xd~VKhapRqb0`p-@<65eNySsZ7AK+YaQ6G1Jg!)X&
z9Q#fnZPw2B{$VkU$Dq4Su3tELmRo7KxWWcrv$NV}JnY?XxjmEQCVz>Q)qZArntbc%
z<mSpGdnDVf9BU9BD$kA7P<`>7zQg4VWk&<$$XMvNM&ZVn#~UQZ>JWhl7#mn_gNpJ|
z)E+$w-3#z!u%+>><7otqLVwc!R#LDQ06yvo2=cc{1vRcJ0CWAuzr6~v@a{95y>Rj3
zhKFN?bv@F4W_FhKEQjp!n!dIi+!Hu7Uyc1-(wN_5B+iFC<ZS}dSpJ1pxVnnA-U7=&
z>UUP_ooH4ozwx2W)PVU62Alp4FaQ+*7S!kE-yfC%d05@u>O^sYC!E3pd~|96pIWM$
z2ovFA5N@|;3&nWXt<^S(J?~B^Ra0RO8(aSB?+;IbBxgX1V$IrrI{un~PU^7d_ppm+
z6~3E;gb?w=-H<>$Snv6uQ{n?WFrdX|^jr`l1%tR_>f)tK$Ustlg?OZR54gEocv#p?
z5D{9*3_opPEj}@HZ)=}9*`PpBiyP5VTzR>~wRR`W_q3V;h*W%ie*YZDfn*qceizJR
z6R?H4P6uc`{vU%0wdq^av$DUM+$>i{GZ|pm3MPIByv`Le=B<L-T}!LKE-E@)>OR@D
z5W<bz901vZ_3ek0#kzkf5+lvWbg+xTiWt1bs@&PMA5^}Dn|bGCq#_|9CU)i`SPfBO
z;rXqfch6Q4Vq;=-k%0Xv{sa+*mUf$lhKAH7aSOk9d?OxhV&So&l6{xCkelOM3=1@N
z2CnTjh~Tz%8DU(trr($62lh7m>vz2koe}KP&RL}ozXk!QrPf;#8Mz(q91xIO;bs^t
zJsN1x0}?Phc3JQF-Z8Bd`3>LV=_rN8%Dwx0%7CiKnU_1apnwe@(@Bzc`2w`?sBD?N
z4&Urlgj9#$+>5hHvc7-}MKg2AJ}ra;ziG~ha|3NcA}Z%Hl6Ln=zfrzfUp7!*30qs+
zmr@W&D<fB93w#*0($$a2CGf;!6p!Re)Pa`EavoDyfQ37bAR;6S>ZDpMG4f`Yaf<Pi
zw{zS#5n5YNX4w^UV0CjqnnubXX;7L7xT5z|bBu2khnz>DJfQe{hQRgpi!#!QD~~me
z9^lV`vwZh4`w3Xtr;MybET03g55(g{OXSw{m=*>yJ)|LCH5CfdqR+fQ4zZx4wN<#K
zx%v2hdH_H`CpSR-*tSH8`h~B@xV>=q0Bhh@eoS2)xh3zrsQ3w_ZeSbB>bHUctgT)Y
zF&g$}B>(hHOg2+23+{$6FV$@j%=;NRpalII2ELy11@YPI$tVTa`41sn)dEsdo;uer
z3|Rs$=B5qZ=<OdxP)BkZi-wvvpp1Z&4T2G1`OJ00OZx2meS9b#z%xBtd4AwfDkDI$
zjuMk{pJ=3lvHE^5MA1pJ`+_hsGJ-L9CO{SBlfjbdWDN=2dhyoUto2-ZS_cRLR6vY`
zD**r8xICJ9NsQGwb@C)(W3FfRJDA65IbfR<%v2tLLUTdQw>LgBQi_I*qzNNo3399;
z#DsZYU+(cy%w9ap*8wtX5x`~a4FKn)!#~H+Bpx4sVf;Tl6U%Gw)IoNw&CN2jR)<x>
zN^u*c<orInj#O(f@--kA62>m$x-$q?mdm`#V;TxH(tT$|%<vB9U9bUhS@JoQiRq#!
z2eV9kZ&l7@mMFv6mVq<j)CXxPQ((t0FdIVZAavSw10d$YDr)jn1s}zUh}I89?5CMQ
z;9kMa$fhz_WqHozoq(L*HqRT~nU2-^LLiW5T0X~_WM#WvFp|EGjj#XeRPT<I868mg
zT@AeD4|yO17a~aL3GsP9r|YY59pZ~(9DFJMLtPoFlp8HK^Y*Or=C2pK8VRD=T(%=%
z?Qx1CBDuDJjTRm@m3aQkU`q1#ge+)xE_@{dWb}VAQeu+mro)y?t??q<r>nJ@zUF4_
z4-147m!SV1nF2>{BwN54(~AoalWaj^9s3eSU}A!OV1!@$1uMijnfl->$k?P}zvVE7
zhJCdJ7L;P(4GiG_wETLA*6lmM@zR5@5B<5JTF!xI?iox_?Ig^MZw^Z0`nS6WEsn4N
z6+PK`X>+}vw;Q_`O10O?EU*wGy+7MNpc>4Z&jsz-U4E~7oDh&$oyUS8UY~oT9>LfS
zVH9S^($BtVpCqi9?jDLSyBgb_g<p*I3d3@txgv#>3-mtzyFK#!g#kM`C7E7!)rLFm
zy_%k{SFb!L=lt9yeVvq(k&NTFjPjm%0oFQ7D%y!2QgEjkM^~ptnJuM1Y&iVqGE-xK
zbqqLc7czb3vu_YpExKC%em+&N=n>e-ViYx*D=Wr#!U!5UZuAtvx!JeVys*IZU0*Z2
z(cNxl($ZBJ`B0c-Y7!qfj&tR<B`<6c!qTdB{Jjzr6W`k4Y7DmAkn=cY1&6gl8yR}@
zfF8g6b3HfbknHi^u<e@0NB*Ymd)lM{AMj*TFMDM=hd?&ZFZmkAVPPIwE&ddXzB^xZ
z>)Jj49HYu&;`0+3m4=n&*Gt(38^10y&zOy|NDy%}t<uyPN`8M(^GgbP(f9_`PgTA8
zes?R={6VIN5?W3MJrPp!2Huy8PGc%8_Dt7o3_}>_?l^ve6Q#9o7huaX>cZL|3Qnt_
z^UU?L@X;v;`t;cz0P9+~CUv*9^Q0kYYHNRVg?IzBVv=AC;wmg9uii<+j9k?55L4_h
z*%GxKs1oMR=oS<;PevUM7^-MjNw4F?=*kI#q160Rx<L>_tc`p+#Xyz!e-{9Je6w5W
zS}^e=a=S(~%)2aXJJ2YMvDeHfYM$%A^8Ga6!47Y*Hu`y_h^%`1OcTa|PEelTR1K<_
zASd)nzOPPDtM1sQk)F^0yR3{YvW!HO;r`)kMr8_j1jFm@7l*L@lX;By|GT?t`|bW)
z8JuhXujuya+y9M<wAVSBg4ggNY}D;}bzeDt;9v}|W{hc2gz&M$kI&svfuB2Y@y-$5
z#lN~v;RionKiE3`KB%E>Jg7nCaDj!&Uss|$F5EeM02BS_{_&T(=r?b$J=ADJ`cQ7t
z;z*!LV82yh{aB$fZaaIZGhp60(6`TQBR?~B|3?C(`1gNTf$6Q#fqn1wMf1cTFK4Iz
zW#4FT=pSSp#AbSqIS+gqDD832_fg<s#^FDX<-c7p{r@71jFWzQpQ}kPC-)KfDTn@%
zk}+M}hwAs+G4t{)k^8IhMN$(wNeSpH&DAkR>5d>yEiz~i)ANi|)^3K-Put&qmmf1K
z%oWc=ewO!4r|mD;`?-UoXAPCDEpw}NHs-rJJMxgYZG(;eKB!==^?qxp)BO95*7>Cz
znzU&Da%1pA>KnK0U3Yh4Yz|5L*&d?~Q(%)(2bONT;ncU0TVo_~nZ7X8C&ixNwn>~P
z<*-x~UE1%-(q17!y)q}jW@Du9R_;>nsPgufj8S2>l0Mzm`-Mx^2}Z4ll=48a;qV;g
z9M{2f>rs}a+wt>3^JRTieRX8f{U85$s9mn`3z{8&r3O{0ULR<%mm3i1T`E?{_)Q$9
zhr#6{zi|Ey3&Y{;gkh-fdMPSr(KtnKq#$7Nw|zx!M`6cMDr8@XGd3cJMsp3%7LMxT
z3LhaxVp)}Ge{Y2MMdk(?73PQ+jv7KU<ZA+m=}V#Eb&S55A~ZRd7jqXM(2)(!Bg#&1
zUj;Uka@=wX453xqza^Wto^Cwv+Bl|TA;_rwWr3XbBw32hj<jphkT+c1mSb;JZ;Y_z
zv_bmy?v`l%d77l?l-9*%tAVEn%Zg=gismoR&xf6f@PAsWvOmNHJN+ZIAr_-I%&EQ#
z&yFtMH+{GN{jbYFAI40e`2leDr2Ifpl;pSx<DN`4tp*2{paN|BRP6aJ`A38MhRjqX
zssG~_v^ZcVonAE`O{g5XmLp;Q8I@b@ksh$$&<B@&aJ0stzV6B1uzYz9azptNS;lbh
zrY^K*uuqk&kzlmnQIVIvSl6=4M@n0N@rcNM@-a<=Hf<l`{9b{QDQDhp{`TB_gm=Ws
z;QYk*{rUq9V4$7sWn(o_WThL9OB9wey5B~@d{@4xhI`1oL*J`DU-4|l$u?jnpsJgc
zW1;=va}8Cpr$7!|aJyjsO76}McK%48r{{#ieznMqlPq|R(-vh>Wag-${&!gkDKl~N
zRMmcEGlWfp=qS5kbdC~kbC7C`N_evmMkX(^gBnk%lJyD2Be0K@S-~85W|g&w;QgAS
zN1UU^(l4vIb9b@Tu#FOxv=Hg`nTxCYrja|O+$CG+c3dFW)ewh>B#t=u?#_lf4m#8!
zdXX01UAo&ALr>GI?TvKuxQr}Kp(PtXUXKb}8zS6#UUpC|b^^;zG=Yw0=ETn|Norg8
z@N&%D-l(0=XNjaf4~FS1h$b4;TUiz@{QcZP^Wt({PW*E!o;`unBwR3Zs4$r^EvNhB
zdh<_XUxUZ+{{)YX`x;y4arKOAn2I*&+<e)gU;SgH28g7lw})kiY*3L^=bc`>TU1TC
zXCs*}VNhSWaCN`uUH^^1aLP4yLJU1=(s^y8?`%{-{lj!KpLZ*w(`BM}S7OhUnsbj8
z2`sVZ?hSd|9ThYzba<!JUyrNy-H7^k4vvP(Ub*Z(Ydt!aK4J#5)?N;%<<V1)LvH3)
z`SU`)wWfk;MQ-074QAEvHO_7mqY)X;axeMB1EuOT(8=DVO>DR2SUZ?_{OVC%$7yf8
zoM*jXL64rFWa%sE;V`k^dvT^d&FR+5>F8W>CzI+&ro2ligL<hhlZq$D{R)$xC^Gb;
zZsWc^rK}$}Q_}W+JLHtI@AY3P!ynz;UuZ+S9PE68!V49jUjKE(Cq~HnQJNmT?f15h
zVVa|C%s?Ca-(!1Ejz7bXFV-6=LmzP}{E)3wntO|5_AT13oBtF}QZ|CRd;>XrfR>gI
zTc1<I=B@fXqbuoo^GP{0V;T7g`_A0O;sKwEfc`8*zPGcl;l`WbPk%WcZ%2J_*t26a
z{1TzXdC6+@sa}z1j=fAWW<@Pg6bVeD>x@(TqTQan<Ctv<(Q5EqR6X3C-Xhl~%4k$n
zWLSD<%#!}Zdwas8;rsN@4etEWQWYw$r`El<uIFg^-s6V$-)osd`vyHARz6AEO*CK?
z6<1B_sv**eS@cMDj!E>q6C2?M*jZ;{%5vN*IW=%d$qGSDM{Ef+ZFSCf^r47eDvXO?
z3V42v1RTp{)x1f_WYaF+Z&4(sag%Y8spv?#<IyG4zWf|^<IDn^npsyZx%~?@oxKN^
z`i<+&M?78-PyJy4geR^1Y{=T}G#AC;eM^7HnepyxAZh-}M-r=1y#+42I&1u%&3=2$
zCppilA*y5<gIS|QotxkZC{R=-`_7*klXX;<AKy3sF9}J)zo3D=yVTI8{b1qYMSy+W
z>}6*)Zwl<U$bBpP3o)04*uH18Z=XeBK)Yt6hi0|^vx5FcNH~StAXDq+ez#2c8-`!Z
zHxBh_<ggpK6}T#o5A1iw@o4YfWbIQ)LLY0tn?5do+j&ExkKc)7mY1b(-)k0;05B_6
z%FkV|u&&u|3jNoY#t0=ce(eFMBfHkE7gRQu$o<-1*g$QhdpdZW5EPSZ|BCegp+gyF
z>Emj%250l@3aSy_W#7q}(c8(EDYZ}PE95Ix%J!QrsOulAwKqbUjkujbEa^f~UC7%T
z#w`7RW}B;3b+2KA&2A#9VWcy^drze=la)McKoiLOBmaINzmfhMho}+XH;fHr@(L_1
z-6LEI@={Blq*;!5r<?8HgYuGr^JV9M)_vMem=C(;OkLHbeP!wUa}PlPL`sgm$Y<UU
zBZ&yx-n!X){|@a0Sd7`oAvd`R`(ws~i`}|3?f-0q+{!`>9>vRg2g(1rO$4}2xGI?i
zxCx<;ln{ZOKZDd^tRX!MG4q#ljbl97RnoEE^*={u95qC>#`{EbmRU>ditTsxzuNoG
zsHW1jZLAC;Fe7JBsX8EtD2Sj)R}mRhK!k)Q1Vy^^5?TO7L5HRkk(xoIhAt3FNI(Rn
zM#RuU5|9!JkkFDqLXvNTbIzHy-u3->e|+D&*1JxAxNv7@@B6vSbzk@WJkQ?YAApnw
zptmciIJr{B^B_$Vmz>D@=`T0D54ct;&f@5@TA79wQuhXlgM)&7BnXU;l(#QDc9Z3p
zD3DkXd6T_b&B!t$2=-RX>nj<DbH)kUY97aXmXUI*cX>s$?tLKgdnqW2W&yqudL7QL
zJF*1k1P5U#ZBKs`tV;qG2T>p^OS2Mh2i*$Rk~u3P|KwP!7ri6iYgbt7Vve0UmA?#b
zf6vs*I)nK%HYm8F{s&inTyZF*TN$B;7GnPJu;SaT*LVNo!(aa=p9a#aFWG~%e+Cu$
zMD^bm)38)9IY0Q1le>r7@*H36hHi9b77($rc6Qbg9zk&wRoq1}BnN`ClmGFc7f0-l
zwx_k&yzBIG$|{a&g|UT&{Y%}>z^x1cBu>X=fOua5@2l<Ht}U;+|6+&;*vz)h#{t%T
z#B*1LZ*raC50|5oCq(RRf8CWzt!@cGNprTuU&Ns8@Hv2#xqn5ozLf2r@Fw3G=+*(5
zzqano?g1CK%ssRWD;073sGgLag@t^4Zwfi0iR+D&j~6%aR`$is&>-S>MjwKdTk?Z2
z>h4%~Tne2>4U;UPTEJZXExYp2N)zQcKsQH~YkpYIW=9vALVYUbopU%>M0{C{C_#Vc
zE^T>gpf)z~Mc3|791~wR{iXHn6aTmJ#-l8?oKP{LF=XAn#yTf0vvV0oFyKbKd@c94
zHA&8heGhkzMcdT;xK`Wk9W=-nQhP*m;C%efh$`onv3!H7o85zW6k>rM)^=mp(f~>V
z7pVofMtA%o&r%n~`fkqBd#{BEi!}JmZloZ~m}Ztg$b8;;03eGkeM&3MTU$>y>e@Dj
ze>#AJA)+cw5ky;i*uQiEL>e&Tt~`-kQEA<AiC+xn`BN;$_3vN%$kdaXla`5k9{O&7
zKOSJTyu;(t3mC0`4^Sz1xtFfzLY|ffT>bAsxOiikUGCIUB~j1w`}<||rRsUr&4c0%
zO<?-=5M4j}@8-jn3GM_Z6HFQz%CH}Uz}DYlGvo1kb{zeG0mzbmWX8oNRI?GiGWHI0
z0(T36DATaywP;xrikj`>`1|<F!oe9P|56Nq=p6}@b|4jmH?nd0DTNx}H<SY*MAiI2
zjKv+z#YL0=Kue1a3Kfwo#6G4N;$RXk8;78~PH@Sw_c$s}vfSZ)V}w}{og$7yQ{Ga(
z8SWaI@6vsxy~LUrp~uutyNF#E;tL=A`p+zBvXdn>aR!JgPwP~sM?Bt4hOXJ76*?5@
z^ZG9k$SB=MRFg2R48~mCXf>j58?yJ{ASU;I*tPP~+!3Ks&o?i$g`xV$o4lhSxI-O$
z*!Refyf^|RODLq{@T8j9D8!sl-5ea$soKy~8`k?4792GCcTA&=+`PhmO|dHz9H}Ps
z87=ew+jRhkFEMAY;vQf0X1+3K=lx670Kn&Icwpw9!=>&yx7;#X*8aO%*>eR9XMj+A
z75EXLV`_lAsz}$H-Rll6PMDC%`nzT61&mCi?WHnMLrZ4~r}^)aK{P!`QBru_;IEP6
zf6pK)lJ#&<u3mFw`EeB4QvVV~_D2L-#{o`k1~#*=!<G>55g5l{Oe>O2t5+ai6cPV-
z*Q^NhS6ci|EDN)uzo68a!>z0`Kq_u?4<A*PMh1NNEB8EA+(%SGte24!yjzIBz^KDF
ztL^A`9H(rb=*X`5s}*h^Ujf^j>*hCy((5SijTY9Q0d;KyPDG{Q2T0^He1;ljN+N^(
zH0$r%6Gg>G#_LCZ@Ra?4O3V<9a}ybotMB{DlFb5txX4*RwUL!t?n6YRt<erR@D-`z
z#8IXxKUmfP@H73(9@#&-oz+6Xe<6Avkbt+UyLYti1hQQGjpcB&zmXXZnNlUTtpDlk
zk0#4GjU6iUl7ho!;#$h8su*UMfp#|Vk+nEbt#U6R2=|SZSjMxFDj|YlAwzn3akni+
zcD`?`1b)e$qP#1ZjC>G8{!yAm3jl=Tuk_<qb{sYO#!YhPWWF5_WXAuC*m%iJ!LBRa
z(%$ZQ`hyEp3rh%uz(;!pa7n+e9D2Mfe#4mMEp<uvb0>E@(R|syA9hO<fK-b9_ghBw
zQK@)RZ8POG65bfAXSB{W8TpYgT_0VV(v5nn7q^6WJGm=sc;YGX-9KDBWYt1=UNOM(
z65w+_KXHFOL@o43t}4&|=Slxx+Exse7QT^XZyef?P47Fq%Vn*V_t3Vt4T8SBZS|>7
z+L5r0>hjMV{$E;W<?Su>!K@ISe4y$9cF+lgAUoo0H5DiBEmu*$s!y*8$scoSSwak!
zR-%`#Z62XjD%%GC0-PDhp)5HcZO>?|W=++`JBI%hViQk7prgL2VlzWf6)XFMl5=y(
zgn=0zFwfNH9h@8c^Xk`AqwPa55Pcr_;fUypcNNpp%F92&`Khf+mA75)<#uZgugyT(
zjA%kV&f6hqEvS;vGup(c^~|SCwJS%G_&rvUfXW?92g^)#=RS&Rk!_35wTOukqlTP0
z<X^48gtL2Sc{^nXt<)RiMk;I$Or5bOGE}x!zI8eu!hku}^voAscz=!Ud3NwjTm&8{
z?wTooD1{L^WLlRl0K+=AwT6ICAZP*I&Kd0=m}sglhi;?~d^dK(bgZ84paxV{HoNr=
zUrTZ{bg}jRSM>5<EF@TJ4{aozUBUr!$}Ytn3)+veqs0_3n)=TCH~`Ce=(Pw#hmF03
z&F!Db)oMSsqxCjrKxS!`Jl}GJyyPx$zft`!r2aoW&VLs;|Ix*Nbn%~g0024u-_D8b
zB$o-RT-#i5uC-JN`i?zV>fQtUUBnVrm?A{7%c?5TO<}(W#erDp)-YrG8YK}2vUAv-
z#Xm2xm$*##!ueQfI5_d}D$1BU_IGsiS?m2vyXAT9L0a&*m2Op-d$%xDrA!&<VXC`=
zR4Tb=qcnDIapLN9aHuUER<I~jm1hZa4hriaO=scgM|pYGjhtXy^2L6l?(BV>8WQzj
z=X}R*AfvQOfb=gmb7y01P}nk}js2Gl<tATWKXywQ$$EpAIfUh5DN7ZKyPeuMf;({C
zU&7JGset)MG`oPuPa+^dH9uxDvMXVK4gm0ksIS~PlO+0vQ^GDXFI{D4*tbcq0Ch~a
zhUSPuvMLoEZb?ryS%2I{7vniVpVTyT8u2J|ux}Tu?1PV6N})WIZg2)EWMFRMf$ycI
zGN6)_F;OR~Tq?gmIJou<sFfFs#aCoAB5GPV%h|=^NhZxxU;2ur*AC(Y?KJZo$sw-v
zl@XpveL+(=JsamPn$TJ2aF4T{wh!2dwMMgFzP_Fm{6s}^EX8TLY!HUC8&Jld)C<^3
zx4S@PtDwKCjtQ^TEF`y&P48r*H3}u3@j@uS^F|``MTXad96D=)lJlZ_`@_c>uV+vz
z`_--Z=5OmqfxIfrqzZI5+jR&CjfbKe7WNW-O3)A9*1Q>6&XS)3I_phJBGNiD+wsb|
zj+f;FL3EmEVo(PqZ%b^#G!PtAPx&U$rB&SAw}0k*tB+fAG?Rd9<<1B~a@;P<tIyRi
zS`gY8EIL#ni(;BW2N>3mwE(p3A<A2&O05u~Zb$9G$CPb=D=@~8OM4m7m=ftmH&RpB
zqI_4gJw3^g?NjD6{?U5T?^;k_QTB95br|-#lUIFq!;#PL15lVO3ZV^60cW<i3`>>}
z@$-8BkkD>w?gSdvxhj@2S-vRGOF5HixpQhb1$jvt3l}6Wnd}}>$J%~6lbd@Sr9H$J
zm#@BkpTazLd*;rGz}XjV8k983yl7%)pmM36&UDDA$L7zkbLWO}&-#@22FDv|EJ=!h
zeY}4<e(BpgicmpKq}yMuhs#A4h+B37E+pXbuJRF!l*9s6Wo*JORUcbFJ5;SZh~RRc
z<Mr<7VpthsiwD70>gDkfH#&^3Q*B{Z9ab4#=+dyxk@O!m-53X<WS9A@<yGHfigrVb
z?~e2HQ6_LI7jq;%bla(OfE%mexhXs3G&;BUh)|#3-HzsFX1VvMuM0C<y?iv>ro-kr
zwu)%c8oWxgbVclX`|f4_*ZlLQ2G*y{H}=v3K`WECCIt9#a&aU}Y=vI!0cPj`r4NC(
zf>sP7ytP?d17*pT_j6!Cdq-QjYpaZs)9J-V0ER5%qQabm#<e_j^0km*zCp>95u7nD
z3TToz*m9hMhP1k#Dn4QcFv1Zeh!GE%`P20iDj%?{s#v;h*MxP_GcDD-0~`O|@E#%f
z+Co^=w_nrDt`$qLBD99x2_jLzxL<J?D_}k`l-^8<&u$b6PD&NeV?(_*TSzs{p&h*U
z*o%^jn6l~mDf{l@eXD!hqyxQ!+=G16`>HN2^IsOx8stcod!xE)q?==Fgzc3}rE9wU
zd`5pxk@D%^hfAK_r`&+OkoP`W4>&J0bonWBV8Uc;qIa+k#MYUg8;32B*yV-bk1m(z
zbBZg7WMbvXr`kl=HbI^mlRGC=0h8f1$5u0}B~|#ARGFU3D%(+C0{PSW4uy!=N6ue%
zBEFqI5vJ?JofThvHefvx0B+M3*-Iq&C^16&`*Ll!@D6$&f+6G{RdR&aoF21f^gJU!
zJ{rojHfsy7W<3g;SMBmg@m0s=3{CqS=2kS{>aa2}bqgu*ojv@D-z1Pk0&@)LeL@gb
zOi)n0q0pl4i7-d{+gLt|GA;;_dNlbyq{GTq`s+%4=c-c^;fzxfv@!!sg4p}0&o2l;
z;$=p|ef>z)px0YDQb2Do&+T@R#+;{;_Aq#9{Y`RenaIU$lc+i^{XMiv&H0?FiV1Qa
zemZK=43zw6Gh2og<!2j|P2oq7#`|L&jY9qCUt{Mkdrz$J7Cw`<(_&9)MV5B(qPDkw
z45HK9Mz^pTUn^M34Odc`_3<2YmmI(*v0&x*i>pDzFC))>E=H~ueRrfAb$^Er2$OmU
z_tRC)%7_{ic6I3=&kC&P1A--2Dj7MBt`ohZ;NYTq>iU}u1D_?5P41g$C{;3mYMMPx
z&YL{1wEmd^%mS;r2eot*h`&~9YOfWvNs+}2LCcx@J*PwVI7(GoaYlt91`DWDBNiPW
zC^Hvztl00UPh&-OBq?l2Lv>|^@JV!}I@dLMh`eMDug@u=_!V&V^{yuRs`o_>9tt6w
zw6$ndIK#UmCY#eS<cgz6fe`Y5Dw$fB38N+_G_=+=kJJ?|i}NbdNy8EndMlS<rN4S%
zR{8g6OwL*-9lcyuku%O8;7_NV6pDvOy=7Iz#xxqdhQ02!0~ISz$audI@IPw>!XC5d
zy{<UpA%P10syA~C#trz2_7HNCmaNxrp#I_L#h?U;jWyN-_KFjg7|e12rpqxZHDX0G
zZ&GVuIBaqy?_L~F=6+{k0mI5lrChnp;Vz-&eiz#tI#&W)mG1`J%l9b<HwwJmB4Fio
zhK9!3HyBa97o5jnN*GI=71de7^JxF#;zd9EUZSp{d$q_MgRlJJ6GhK6CoP&-$Va?z
z)^{D4%GFQ{VeS}YY%A~U3UvEU9RE?5l|i`EAi=eOJ(-=@pgmS&me)B|P7x4#PfCs;
z!9qJi6{(*C6(otq)X82aSjYYuO$R==vHKCuKyy4EwlFvsgA=hDh0KJQJsLY{5~N8x
z##}EqPxRCj7<M<(sjQeV_YV3=RZn&qTlIw|CItUOx?GRsEB3_`xz=drwOO|rRIr*?
zcYyxkBw(?meMFM?8)HT(B_(!WI~hcp@V)R;u=E}pv2Fw=t&KOa+tMa3Jck2T!~#})
zKLn%3+`#8z4g@WO+2ZI0#%%0ytPxs<_mFNOR8=TZV^6~-lRw6eZpl141#Lu4$2=YY
zl)2=t;cd+(i^3L6XVruh44StNc1cw!sCUkxoF=i5Bv!dIY!GIY5IzwmGbZlk{F9$Y
zhcMT%<MBpN(lBp{0@vo!HuVv}ngu0E_i^mFUt7z>TnZ(8BKQ5N`P*$R%yKBadob{t
zl9~=2mIfCLf%13fwDjFzHtFk5P;KJzre)IRt#7A2H{oRtxRt!s8=|<D?3~Z%Tj)sf
z4_H~a0j(U3q@OdW-jRRfIr!RiLE`#Ek!Dc<AiVKtne@0XgCz@b#8`7|vw7m5f|sv!
zLHJt+#68*lZrO{Ki{=#s@Ux%UWtd}$99_>zss}DWi$P;b3BiwbfbAFo!4-RG`F#PG
zLZfcqYHLA03Iya0a0|^dYp4}w198gq?QaSPj<VSW%hCkjB}P72pBM)2Sd)q<O%*2!
zVyX*xR0j|NqcwMV=B&~bZ1#-PcJT1+#vSb%CsV$wR7Tw;6l^V9lZJYotQT+3@Q!)C
z2l@QgaOUYIZm2P8a^l)%oW|KH%xfunfHt>%&!etd_<NCx$fjn`jx1lcM4k~_Vq`h&
zdeGH4eHH2I9`-}6y~I{$S+-7a-l7%1I5&x@bwg$kjXL!v06P9%k7;Iv=ltIBVq;`2
z>RZ*iR+LWhMac{<48me-e?GqmEw(u~r8{>1J##1<CDJX}mKQjy0F4^0)*HFk+LYd1
zJ2D;(7xz*tK90g%5MMtfw0KksD|!Qe&sMi#`k|PD`qE~lL#`b#cTCF8f_%nCEPW*}
zjrHLAjF_QUI|5?oL|3R%6655W^(D_!&o^g4tiSo_`VG7k%a-dYG2*CKIL+(m!D&kA
zEv`Azt6zAK1krD&bu=Y1K`mzi7w+_16eeM19$7;|WPyYgKC*e3F%wfwDxr>TUrWen
zSi4MZj^!Fvl0)g|$~=32egNsHJs#H;?&pd3%f(IeTWQ!7(q0JN=jC&g@z-0cvvOHE
zx?kL-B0u!h#|}L@2Ph0V1ccIX2cSWCl_{hU9t|b#pt1yktk>F+OmO%@p{YhWePzaE
z!kV%S`YxhM3b3)9tU^$OD%5RGLYm)>6xN?~lusP}dV8N#<ayZlwQ<VPGCSppW_l=C
zsb1e#h*LE(oeV_?pC~$X()9a^SvzEG!eCP&v4Nd=aRW16!aJ~7`HvBoVm;Sn7gTIc
zYWvb*Ame(e?HE_hcI(fj?BrpqHf^6IO=xi<H9!VG-R<2SZYmR6j?5E{TRxzm-XF=$
zO^SS58|87?lu(u$=Ti^yn5)t8OT=Gx;Jf@sHi*}Ha!l9Xb@dg+2tSr-0w3!gzfjzm
z15IEbm${-7Bost&`O4E>jI{LBF#M?oGc8IpnA!GQ#QP;8TiN0)8BGiSN`8T*N7{7F
zaP^r}UefOem;*xsA<(J;06;_0`9MBNuZYZnt{j6!IpPs6vVSQtPh*0*CNw#!x!71m
z@PKq2ISjzu!H=(K!z2jj&Z1rOqZT5(YLs9XdQZjLAgWuCuN&a~8L?&utCns-f1{P4
zk-)4_H@@<HAkq6PImWYOakYSpL3MT4{*o<p(sW^^s)`f22yfc_V~7E@GvLXJG*mSW
zvSaGUO0nYwTZAE4RQDy4h7nNM<`#_s9+|L@nCKAc`*#^tC%gd!*pw6s*PLo~?_htI
zHQNNp43^S^J9p_aBe+!`QWc)m6*1(;(sJOlE>1<TFXi-XxT(zZKCfJSi5vMaSt<3&
zSPE@AZ&iMGSO6Dy1BMAsM`zb({`{>Ds0)_i!(GAmu+oV&uMHQm)D=>b*|qUQJIZ`#
zp}l>3Dtv38%k;M?0<35PknpDvrZ9kz!!C>_+HtRN&di2xeFsl}ss5CBC4NN+xk_95
zJa@(5`PM}*ZfLE=KB8+<*Y*O41>~Z!cb;GpVcHcX1quFejcVpzn5Ut!|97MHnSw~T
zo2Q7pM%a}=fT%R-7bMaerFF!~@fBz;PC!bJ{f%}h1YRwsy{f4lJZpu~OHIAB^bf!f
zoqJ)@>kPCGlHC6nRoG{QN0;Crc(^JhoXhIVsh3&$POITHu!>@jBU;8oLStiaR#FA<
znFG-;2qpKI^H!~H4BEL|6&zhyaXv+~hB+%e?hn%5Zku+b=XM`o_p2yZ*|3u+ahK)4
z?i#%LsI&OdRAhHj&g0E3$}3#G-T28oTTTW=NQ%pDV#?Db!0*e+OZyNI_YgvJWXIL@
zeDVi@_-5&^)s^F$XpE;+a$?1)DS~bhk*w-tT6<|XZU&YDm>Oq0gWT9wAf(Tn0Y_BA
zl)`x;%;T*@4~Xfi&Dhk_+(L-`u!HLc5~ex9$&@f5lCa)}R&~|1T^n?1rSP*b*oX2x
zzXBN5xw@+9#a`^AkZGbo7yO6}ZH+9&6UE3#(|Nfd*0Lu|K~OWWiEQ2#)+^qiJu)ZW
zT|$ej;4uBauN5P79NzTq@OPcAO@43_jqE+!UgK_oZm3oB>eNf#I<iYawkFD8)N@)9
zHkC8>dHT~%S@GTK5l+kUeaa87b!VlcCRP~=+Ki^i9TtC;^f^O1K{7Nn*pr>b4BJbj
zOZQ8cQ-jiKk|skd$h8xLi)esvL;5b84Ok70>)|;$y5P3(y1q^!h1VPOs<}67_363p
z2!P<HMnj>y1x*vS)i@42t2;91`d)0^+pj#DX`P|(O&2|<<={BH(?D`0I1pCSU(?(-
z!>~<45dLsidM!mnT=+aA%j#l;6h{w-)QHffjtD_svE1k*ltLT?47a_TxMTv{9~Mc+
z3aOb=L4^GK!95ox(6+2W3IxHcntqr9$yq_~aYP36_q@`(OF&H<aN;hND}{sUO|hq%
zxwWjQb>4lAtr*Hhp~b~KeD5lwUR*vn2h!Tg%8ngP5X`uH>VL4>UEv|2w4oIHpxibL
zQkyV)Aaswwp{IX3@)`C#Is7#Gs;uB_MYO@a@8>T^Cr_Oij6SdR%WP>0>bmrkw!2rJ
z{*q>-e&pkI!_Zq@Zw{-yICky4=n3QDcMBWzWczv#(oImV1*ljW$zHcvEN@vHscdCx
zLPtx(BkQrm|G_c;H*QV9r#^(FV5Mh+Y9oV-H)3GMMEw1xRMzMj%6?(pIEv<d*&ayY
z5<3*()q8beOirUvl0>ujv*T;1mqK_0TbEno)qc9Ne9PZHCD#JQeQZ!g%9vFZU87OF
z;s(Bq9j|z6nuUYWv@<Npzp<`aWFkreWMiDd{o?4-XOfKlO;bkYw*phD6vne>|B$2I
zTHBUm_63q}zV^{Zi@12L=d(1KD{>;#!YHS7A)9<DMREzuIM0HEj>nEwoeDL+NeXlQ
z2rSHX^n&U1%zqB<`bSk1^ZBTL@HH;1RVSnW-x7G=D)E7WNNnx1(7QZa!(3y5BlJa1
z2q4Fj>8I}j6OGFga{8%jP#4alZf1MAm)<}0$-(kXTFw|q<F|(LFRg0d)tDubB%JHg
zDo8Uqr$92=Aj{_ypY=1iPbO`|SQ_&wmhWuOOv=5~g+X_PcL{5-`D?cOZ?BEXDbT-E
z**hD6%cBOHPxk1m{JFiDvVC8Lll9!3um59@XtXnHhKN;=*K9WA8d)tsk>yU%-k%D?
zO@=B%0sRR}u{IdYcWIg_i;72yIkS5duTFN{<*JZy;Sq2-p04x8iSihO<(z8S9z^(p
zzRB9$uMN)Wmr}L^RX9a*{9=~aTVeWUrfZ)M?7V@oKOg;!)_;a0V~1j-I1okNC9u5I
z4EJqFowZOex6AEepf18d)U=9W<%kAm%cWpBO{L|*jI*TR2$@ISm#RL*T)1q?g!tKk
z7t#(Vbu1WQgE+^-ZK}$nzW)iVef-mjexPkRB|<LdM7JEY)PWh}E;Hq2yATdN82<!?
zWO3Y$Bb9pQ6yv4rU(bS!(TM!q^{=5WDI{YXYj>X%tio2I9P+q%7xL6rx*Ytbzf+2e
ze5gT+g~UYgO%SswF+644Eu9zX*`PA)(Y(3TtdbzuFgT1%>EU=<=1M4DZ68%=s%5gw
z6t>{T-ukY&M)XLGzFo}g4#AVuTWgi7&OUNYJ}Fj=UQ+6X(WSV%tnUKnCN!u%Oqmqa
zZ*zV5t*zwbn`>4e?u=a;Tn<|9Fw78sVy-+mb=f{^c15#S-1${^01=Ic-b*Q#-zrFB
zvP~3+K@n%2y@!W~y{|Tjrffgzy%spSF%jr~6B6Z^MKfLU(07H&+{XKOwxmQre0Zc+
zv+%oO=!sN+G_b4mf#Xb4JBmgq!ZuByVE#j#nnb3nZ-o50vq)w53*^nURAarIS(Y5c
zBowZ5Dkfl1wyYs<ympeyb6{Jr94i+2XicC{1?U}VKEBWSti4kW#?oNjJoP`8Q4V?8
zca_gf91O`8dvaX(`SR~;;p1WL+9=MKkGeVN!HyJ^>or(-E&U07L1;O=>uCd_zIW7x
zI-_8@)qNnusvc0W=+ttp%GtL*r-skfHYm;Qjk=p_mRB%XAl_SvWG0+uHW+h@Iz8d(
zN94p^E%mokRh^}BE6BNU_ZptDK;s5vJ^FRk@nB?r!(>30f0xbI)ul3;^y{_GYuVhj
zc%iwR(YFa^a+-buY|TZs<3yxgIPXnF2cCR)Z>)WNQ`Pcsp7t9(hV<?RiW7Y#7PYvN
zxoNMsXT#6=UdEC0u!r;({`%7z#}mq6_~+ziVW4$iwSA3$4sdcQap4u}pyU3b^)8f)
zYwu5K18L?aJrDMxj=oE<^ayBY8%T|8p~dL-85bz?J?HSuRws(X!)WL@`$C2LUX=aD
zGsBIFcd%%tth+Fkfh_K~ChJ^%i!V+%<H=@en7WZxBBR`{X(CMpnwJ)Ixp(FHwNw3t
zn`<(76a8rKPQkc|@j^o>Y$c0ItrOg!BmMReJMP|KHJl?aDnjGW`s=s+w9>GEtZ&#u
z97v1wyKUq}^#pWXW~NNJH!)%Z$~1HP)I!02wD9jUA1`Q-u$XUJ*7p_#*82BGF`koK
zfYE*W6V9>t*I?zHr&G9wgC%V}$8nx4<Z0#K+VG@G<F%4BI|Yrqdk+=6c=~?(BWV%!
zTaQ7C<Tzp-09EXXlDf=x!{q_vyv!qYW3P@xG~@5EyAC9a9iOsipl^F-@%bEu-Twuq
z1jO*NPk3sM1+Gckd8iU2(W~JO>=1+#&C`cn&>s^Y5y%|lyw?}(ufguc##oC;SP)A%
zXyu-nyL;^l_BN`NtVKc$!m(v*dWcYF7b^l}YVoI=c;Dr`bp~NnD4oe~OwFBr?hvXS
z=1fwU>qEoEEe4g!E}*k6;5v+38ILx4TcU32m+$lH8^gMj_}_2f(N^-I!M&?m%FcC>
zyvx$rvvH{r`Dd6xQh?hm<a~C9-}~BBSE2PYOG+rzYAdtxRlDs04tnEz+7L-Xarn}t
zh8;<QQ(+Q~6uu&(`EARvKL8SCtf^xHY*wkhR<IXEvfy}I{#+9^9pHTMC@TKYibLM&
z(O+8bf@^4G4kL+zlAHVBnZ{3kee}T$_?*6uoyswz<?grpP<@jb?j{mbxyT=3b0CCi
zdfL;q_sKI3stR5+_>lE1i=yJiaE&<cDBI%$4y_veuJSmR$)-&DfBaUh4c;Psd5M&^
z8FvxJn^Ue#xHRV~1P<*$PB=4vO&V8c;FNPOef3#F9;VL6sDVMFNxv#y<m515=Wk(h
zyQpcJJ_-lsT<jlK{96lVR&y5zGFyAGAK#aedFM{8==ToFkwtKL`L=L#6<S=k4(2(Z
zkM2d&;iJGp=e8q>hgQ7bP0F`s+70?Z1Jij6INH%)r@We@LvExq%abVEc>;8=hv#)W
zT~dx-tfLizh~Wt#kwbfk&eXoTBB7N*{86zXWXi%`l$lq_`sNuLHvytk0svJuVq1Uo
zC9^thC@gjFi4HdBvzXWK2lvGL?MZ#NKad^DEq87zkW~BH<wQR1IrcW0jDjJhgV+*6
z&L(%0o27rPmI9ORay@19Xkq$fp_PVZ<Zy^1h#O<1gDK(j$$<HrlfPV|%)Bo)<bopQ
zfq7EyFG9`)?-JkzJVZOI&~5^(8W<=?|5K{g8PTbi=NBU$@SRT{NE6JE+j@~^_lQk-
z<q(CM3cd%Q|FvD;rcmMBAq|sUIDBQ>B?VI@ooqYyj`8A*?!s%f;pH(#VIR8s4|ICk
z5H0myM*B^gw#5xwWdm3~@v8_!0qA3Io)p>=k!z}U)^@m4D5EBi)daB$o!079C3S$}
z*QP@(RHx;83q4R!#q+dh3O6Hyr=N<w2pfIZpP7>&>^%aeOD|^^kxXa4oFUAWtjfnz
zQv0~tILP)kMiJ7og#D<%h?M?)jV$EMvFkFkztGFHTEOId3tDISr=$ChEFKtR><`&v
zoel*rgbAa`%t(iq{^pq9;kTQnvSz!^z&?)MBaGP4m>J@0k*zm12sbC{4ZI*l3xbI6
zc04W1`O7k8Ux2*glPasW8SapNWWW1b%^4Ui76oVv+}98x*P{`(0FhqZzHu;KKk}Tj
zbid8AOc*LWsn#Q2Zzr;4FTA-qJ(1S-<*avlt((=|8z9<(S9mzy1lLeC!Givwer}}k
z52l+}RwN$zsuqI1wRY4P{l<>Uy9nYIZ8^2ne$s1N!dOU6an{D}6`WgFTP-;}s0jbP
z1-;QO7Rq7?`bEmm#kV_`GPi_pl^=D)i%uPI1ff%Azd5j)THy+=zKD4pB)tJAe{3YM
zrs27kh~>iciJ|IByhh^ANZm<iSR;i4HYswvyM-Bkdti%a2*J)9RhA1yzl1_^-kxKp
zqEH!n7m=un&APM$s1$$p#^Zi!Y<@RVCet(Q#~{P<Cb4y=J#(g;+>`rHybKAs>5ITD
zmo=b^u8__U3+mljUU%nTa~}1o!pu|NTg<0R6M4Bf&l>~nEkDIC?OIfphS8k!%-G5d
z2~0<q8@Be01n}g5%rD!z(b&lnE7X&>k1E~kduL~O=`5r^Jnx7btA{w_<E)CT`~XnZ
z^R>d_j}ivzkHx#q3|KTwn}ApVFT<@{ieN?bD)t$3q4bb1lR4{Ohq})2=HE{!FX!OY
zIgCrjT-Epm1A9CbRx5m7nQfY4=*dQEw%#;TqaX!?qG7a@#e-ubJ5E%H`84%p#x+%^
zC4)-{)P|fg%*Jy35K-^Bre2w}K~UI)-Ah;VWRDitzR|A*_Qg^QW3y$4y+!mjV(>Z1
zrof|MSlj)2^;ee7$~M%rPOI2pW;Dyux)^t@=f)Jy_F~$JDRnz5iwET~WI4^s4D^Mb
z84F^!QE|c;;Z=Jiy!r{FA{?G`qqTa%*eRgG0oIRK_6;V_pEW+X{*veEV^<V5%f;QQ
zlyJ1$Rg!nFqdH+-t+Ad-N4O7OEzQfIZHjFHPfc@$5j5?{$&%!JKxD(GH{4lK{$>Xu
zW0R_OK4fV!K#QAf#Bo#4TH!4g-a%$5-C!){T|pSdFm2FOBYvV{X0?2I;KZkJcE7am
zWNN$mQIY<Ug`*=wzf~bv@gp#`9;ia7+08qFX1y8j=x$>(UmUEw9GH5Vi9VJK7T}RT
zTu7g$);W<)b8nLhbjmev1<P-lwQkUElggWLSLsUNJNj)6r`iPD%7h?S?xj~CFRH<-
zzzZ?}8BpqpvT?MtM#;E`aL3YyqKpL&+v_>$23;u~(0M_B`-lF>OQ`F?b$^8(BfAE7
zahU<fcMehayCDl4lwOaa6fVGK2f{EKgoLy9NI>~{2QM010`I=$e`9?8s^!el`P1Zc
zt#IuW9ls=hG3N<p``KWZ^Aq&9>e%%#(~k9ckM(9|PlNEo^U%Q7kjdup+X5R3bDY(e
zvD@9n_R&m-<4fzjtP1ylQrdNQ?J6C<UjS#N>t$5LSD@4p_Ky}F-z&s`TCkrsK{$=O
zV({jHH{@|?hm6^es#t)S&L8IT!tEw1P<n%)R(NsIR#dOn6qAx>9yzn^(fj1CvA<W!
zEf){MLm(u}GxTJgxiqfVpi0liIxFdYW<`5tc;Q*)@nFA}L^&q*#Ay=JyF0)dcC>4~
zHt6f7x`Ra_DJwYOGxfISJT$jv(A{KR?@j09!>pNwOr4Z1J!6N@Z~G1FLJ90y^}(ty
zq=s6sIwE<?PAzgakT*%{5)IR@GF!u{HF!$9S}xdNqW52x6Ij_>?UAjxr<A+>xGFOz
zSJA7e-+hv)VJw|<^`)cL&Cd%l#@t2!?5@3%>9c~y(i!c6LfRJdov3Oi8_iR7wLfY#
z#|xBCK8QLU^Qt_q_+BGC_3D)eMmMie?T;svn4}cH<9xU>ToxmXffSNbyzO7j>RTn#
zvS)7@JEYInrKx~e@wdG;q)BQ$*uw2|yh}ayvAy@YXKY%|_DGa<lNCapZeFR;e-bL|
z{B%|~RY$4EEa5bHO%6l2MZ3LqZ3Wai`gQ%8%&Q}RM!EE&zR>#D=BIM!Vdvuq<Yc}V
z`lQZ2Noz`ElUH($scEw)Ik<<-{BIK|D$HLz%AwHA&PFNA{>?0J;|uhAVbtlEUmD{I
zZ!fG4$tAm+6K@<0c!p8z<JH1sdqfytGKxd%fF<13*JaF_ejmH-kJs$o0$y&@ZTbmW
zmEk)1{7(W%ljdViD+O_j&y@~BEw{3jQP|40q!!LvV_9NqgQwcDtF4(Asz}Yted-jn
zhQ}{imFy3{vA`FaqHsYDZ)RoPx!OKOXFV<(Tfj|IjFJ??AwJ=wcevW`5)OF|qX*=C
zuqReD-7$E{ML%W9vh^pLy&h}t(q6ssVq%Dqe%C`0I(c3IRhQ$PC+o?d`aP)qA9EW>
z^LSz92l~aKGW`=iG~J>kbNo7D1EJ*>0Lc!xX0=N;8j>n|!*3Z7K~eHV-Q_{0@Kn^>
zu!#BRwNzVOead>2HBcG{9OM+cYx~>|g_icRea=z%|9k*E)Io9^oi)o=v)=ETrevX<
zqTiGzR`Zj_yZw8(%_m92si=k+mfo8SzeS8y5-*{?V{wX)8D@2-*-eVW@{b0G+r%6$
zZ)_S0mM=;v?x_}0cP_sNzYw=vqAfA98ZyEtob=|bY4(l7FLZXO4ST;MW8OswG?wH0
zieWPS-vW&DCVnFo3{zWMOD<J~!yhenr8%XgnSau@8hb6DQFu0qRWA_g{X6ic2yQk_
z>J`nr6|SMMwUM?w_UbCneWFVWD^vM}mRB1YZIH(Y3`LxK$@xqIx#(U5Dd&hzm{0G4
zCBoesE48gaR|wquY>ietSs5A7`{9|2X(n?`$jLz)$Vt*^M=Zmjy&3yW_B49lo&TjZ
zsyCuNgE0X$=si8)T7332y;jUQC|@|1^m5iou#%>vSfF6`yG<!KQBn3c%qxG%%A0G`
zX__~&-{;sBawJI$VzU(XKI!IKj+{c_?LF)5X;;2JPE*NKHeFj(<a|#T?bUpFp=wc8
zaeWc3+ru*%AJtWSjL1+3y^>;)f>P-dlpI_GKq1>=z8+?N6TZO9#hPs$nF==MsxLFb
zU+tjyI5;YaN>CgwD}Nt#J5y=X-I#k}F2K>Ow`unH@!KR{e|lEc>}wV@c>8|uQKi0M
zZyMS4Zqe@61Ghltqt<$<6N>xtD@`>uP(Gbr3paIfJ+BO~xz@T+MhZS%j#)y9`gn-4
zvn8~lbkzB0%T30w$OG0Y$=IoFpmxJws7k#smSMhrT3>S}2Gh4P;y{2Tv?Ku4ZuDzv
z+SMyFGfLiq)sX;f|G_+<<lUzeTzFf5Sf7-u{TtS>m8^&Q7)+PSzKWM_eZt!Lk(Z0?
zsYZ6`;U|Y&D{8N{O@v+V)qDU+DF9EtHc$F}%}8+>Wzd_`ZmfxwO1(g4rXSB)WH?`x
z4OG~gOKY$fFWA|06D=T}dG%!hQQ1TwmhUkBcbkts_C~AHuZGC=e)t0LaDPpbiOo|V
zwH|jsHeg`Y^EZHsNMS1pbm@?zu-86Rcx_ha@J_o@%Yr|o%4Ds}+FEFgYkG5S#+dke
zc3rW3GTTDzY`9U1%q@ZaKejdOoc+K46TeP#X|%>7xEh-~V>LE3y<U0E@yY)Io9ZH_

literal 34551
zcmeFZcT|(x*Di`%><U{D3)K=pML+@R5k(Xt2+~3iB2Bsop#=!)7NkpPMkxwN3%$31
zO7GH3DAFY%gqi@M+!frvbH984IOClE?mgpMV?e@N);rf+b3XH#bG?heC+f<lj&mMo
zVq!W4Q&G}lVmjo(#B}i4(Zk>fA?C{x_&EGbRapsqg0^|T5)D3%y-+c5VPfJ5VEh~i
zpINqKV!Fr#Q@W?)5w|ev>3wE>r*YZ6K;~%OMcSpbzmB(9p5{>cJKb*sC-oX0Y-lK2
zm)u|Yx&9!oJ1B?)_wJnTnf#>sgPJTEetrj{?!P<w^6G2uO9GIgalY{j?gmy?xv(EU
zNShuD=CvI(x$(}nj*f!F%?_H-fqkL=``3SK0BGQR4}Y|@{1~p~bLQaA%P~QI-3w>H
z;p=)2b&oI<RCn>dR%$ItJ(ox1FWIV6K5z)rjgw`ZVhTv9cu6rE$vr;x7Za0o%Fj3F
zz`?r@oJnSJ@C;4xo%_e{?<W{nf_5#4S@h30rj)Dx&%xKb*MFP#?Hl8fD{NKZz&qWK
zDLwo<np%9Y+Yp~i^Bk~92-!KKN4xtb%vvRr-zGZ+i%E!%GM&(*<ff)nV=7>>n%&1R
zFZs#u*A!qBRWH@<*+*fmF#;KtDVH#ZRctNlSH7eK!b9%y4W|odgr-bcP`^84KC0MW
zomYW<#gwQTimdYDMQy56@URje>AHV~)u}MRJmTi17_{2yTfP<vzYK$3?l;ireikl!
z52g*VZ2WtC?dtM_9-VGE&1c8ZYSF!y8<6y`U({ZA3*`)n!E9liQ<@#E(VD|cULi42
zQ~8T0&UiUJg7#|*%+U&!v~Z6?7^(tI8qyZ+@_OM4tk1%W*noK=*KBAC#Uk?ad$HNS
zUGBFnz3Wu{m?CE$a%Dx6&2rRN7OrI$;_UDqwgP|fTI#AzavPmAodg-+iR!Ijn>xhA
zq~fVoz(66<J_!C&#{H0)Js}sl9c!`Dj>e>bl<_(~L$%#&^Sj3lOHEfG!tZsU4J(f!
z?Ge47e_UR1i|X^u+>TKx_V@!4er4tBzaCHLLtn{~lIvnsSjSFaM#5T%-|1=?XMy22
zv?JKDcERSg7wu8=%W)#}N3nI4(AnIcDXjpco(1bz(7XRJN+s2$j%e2qH8EkM?sr#b
z-iVp!CD=u4#P(`-tB0>3pjuOpmu4Sb4`UlQ!F&{oy4n^46B)ZMZmeht@dyuMo8l5P
zKai$+yh%-hY8EBi#a3mlDyyBp{`_(5+ACEqJMI=erPrmG846%DmSc!xW4Fa%KUIX}
ziOl@#uIVoM%9}mV$zZAPq}z@pb!=TuED^&SqSe4E)eP;>vt;Xx=;nYnlhWLH$sYVO
zTpqn#zg<Fn|6>p-H*%RNOtG?vNN-`cjGmv#9hSVy^`Cy3Om(UAg}YrRJmQZDu_tSG
zQkb1el;zSqdvPSq+?vi?Tc?51-+lBfiJ?&?al*{{U*WP-CWyVRWc94bf(McO8PTl;
z!YjO`rDB#Uvi+98dW@jNoCsR=TF;$uOJSjF{vIiY4DWz7rxO{2d+~&DNt`#EJ(qck
zEq0()p19Gs`8lGoU|<@}I-t}?)u%e2T(^c*+zh1l@FU;%KGt%_-ik4L)Dn4tB2^Xl
zDHT@4m#Y&DrslKO`(Hp~e&=!nGpYnG(ZA2Ex0JofN^LC2z5ZoKf5z(u;qUu9`YqD1
zSP3<&ccB)j$8!(^g|iuF8H4(IdEd81QP7xZ)D0mw&-hC}wj)(Erd?q@ke$TNe4VI2
zPw8Ifvj=i}$msivziU(vw{$cggTICHwsJN;QHYp0oTF{auc|GK0FpdXe$6nMfRDnw
zts<BxxWOx>{84iQ%6TF!q!8~4L$B)lR;HZAh-DYp^e1O7ZmI6uY9{kBa5odTZ4iI9
zi-B8IN{`U3v!Y)y)oup;_q0sHE0k3;`K(dOu*}(lg-#4Frf4iksA{gnDBhwDW1;Y2
z5@<pCc?3fl-@ZH#X)KVk!~`J3_(x|=rE?O1M)O)pHW*%w&)KrPt#_96`=PH&AU27O
z1+%w$a~BxiqQ&+{f*?e+&TK(ej9O>sC(DM4;ysPHOOYFR#qLtfL%kOvn82R)Cos{b
zy63D4KaH)r^9$LYx7xLhJBsA;U7D|F9>%07hFhXzhR)`WUy0`V7ck!!%(jfo@@{T4
zC3g&oAYWrR%X*tv(#3xyXJ0s0CpDOyt<THPOQQCqK&D*1q?<7?uSy5f5awl8!4PKa
z(J=Sd_~)>t;#+lww#BBG=bNvG0VQ9Y`GeO1nR=F9-*^`uHdU75B6Tr{phES)6lalE
zF@C(TO|IJIHEXQd-<*%UE_S&6*b(v<JAm^+6-XHAGJNCxOO+*n{lA`YL|t&4cuFbW
zj7-r!g9@LZST<mHL|&CFzAw5Jwi3xd8hKZ)L~sUr)=6T2Sa(}4F|5b$zCn3P1STv-
zLOjfi0+aosc==_Cu|R{aX3LDKETTL7SjlQ(3Ke73_=HNqh(yx$8}bMF#Sx1+%p^TG
zhF4q@OwK$AKAEoHd)0P6yO=-zTBPfCv>Ka~UN;LY5w`WDTL%jpyiRb(3_l`Xvw7F1
zWE*PH5WRD^yA@;A49SjMj_hm5h3vpV)FDGSRJR^k{eE-Kf{KmuPJ90VLsZ=gO*z4j
zjOkUh`tbJ6Ery-_ueQ5M-I@E5^5O$#ALDa-tRSNLiT)>gf?n=E+gBf>zq>(y-06R{
z@Bi0z>CE$(3RO-)o4^z(2x}iN%^!v#O^A=*>s-#zs}J~H>6an|+0n2<sdDq4z}=|G
zjI^cLRHR&%sX<4CE8@H@QEj$0rW{2)!OE7CT)%p@FhhtMbD8r)^f|Qv%Rt9Hak0cV
zA5Z6we;vHTrJlH%n>BEx;pgr-_>fCdl<HcgfYztHvc#bLFi5<8wCT0NniAMYq4|4Q
za%V})p)+*fU~jc|w_*&%=%j0~O^jRfLNE=oBXT3=c_yp^(QVx?nH?eVP;2M7t=z?o
zU|<neM(fA<g$odN=gmg~H$Ju9akSj2#E#I)3HddTy8|#e(NU!CFcTUqT)!Y|Jxaw;
zD5FHR{3Ld#up?kFj>w@pd}IC~c2$`VCd2DYm>i1ju^5{p-pXR2%Uuo`_1Q+)%@*^h
zHrD7DorbMmx>{MjAJcyms#02#aIzWH1j#3Bv@YMa%%t-J`edoxBx<q&gnj(hoorDo
zd0j5%O#~kOQTB$a1wFi!7~-lgsg;ku<5gbg>2~r~R$fa2NmBqz`KW?EA!M5RyZPr0
zEaYWT$(-TL!CO&Clsp&z*=ESEq-^U-#bzm~b$$oe3{!y&qeDeJt+$Y{s518T^y1zA
z{+ds%K8cNN))6UTyvR`zUJKQ&-s^?x-4VRE64MVVBnCE|CC!!VbPKQSa@QA%hL^-Z
zr}OVH3_~|PO;O<}Tt!xOHsDc3iUfA-Y1$*N+Uq?ENxqr<2OX5J7mYTOz9Hfp4O>-~
zc()hKHv%$Q>K>FRHX2%SG)_WHzHDS}=2csi3{do09!}5&|IWYBMc!-5oa%k^Q~hZD
zFis*a@z|I}jolB+CP>X|jAZ@!DRFqYBJ5o2+SA9Sytg66k*@J6b4gjsV(xCt{3e|D
z4Wwkmj?G;XYc8}EqhHb%xU><i7zi&#L>_oMmh348z1ahqxfWF=6kUFF)|xN?tGF+)
z`9Y|V^&p(yd2Q`ZX|Rn(onQpB({z5~wVs1RWA2r%zYhJC%j^`Uc<xy>##Jfm1EsX3
zgmy`?)awA&ydpp`@yqA7e4^X(l?0z_Z#%>h&5SU_r2Dy~EnI=#sAy4eNlO_^Fk(Fv
zZ&`whX<g};^=7Zim_3W75knd3;KFXe;mC{8(=P~P9>5dC6Z@@cWAW1k@`f5pqQ3kd
zJG(hDwT1)d#A;76Tlyb=!R~u6S2e1{d>LDubLmc2Yx`-j=HH)FT1{HE6BPsX(~MTq
z^jq=%7gUNIL@5SHL4hYyAC=gu92<S_zYPm+x}-TmoNYO2W5$QRomBTpKzu<lf?D%F
z?zw%wZ-PeT{CA$HwK7$#2YVIhhA*UBlIfzNZU{gX=_>imC#;`wmcA!FHWhdI`7=L`
z$~mH<A0AMMbA)#0c3&Mq<|SCeZO%l`{X3R}iT&=e>)RhRNVucE=z$Rn=-z#+Dy`-<
z<E%NY>d<v#f%(<v-+3W!LQ&62Gg`Bfq)h~t`56SI;)k>JPhTo@5OrJ0xBd$$)N>Yw
z%c_y9e{x47b<Pn5J7K|=@K%#p^j=4~`vj&%=w^wE3;(I&-D*U)=CQ0R-G5<u>(TvR
zPyvUSbdCbv?-vx6{1d$!AXLrAJ24_K{m~IWc5k+yfU@wypE2mXG7YtQ=CLD>CEQbp
z+`P4Jqcjw0;dMNl)oAazjK*4br(rI%V{&sCU4Zd$ycU`^8l1JB8%bxqf-<e<T=u#<
z+dmTk5r#h(i(|F$(yM>T<$VR_-m*}+1Pc{Gz7ve06;-4tG;a?U3$9<t{#}|0|L0Es
z>bYb6PFKV)ML;KdSg;AB1FcXq*OWGgmc8it_+sVRv-5VyUl6^~?72-be7P6Q%U~9|
zaZliamXN=6IA-k}mX`OV8;(u6hl*VZzbav%cN>O|S_{;5kL6JHC@+*B&dDN&o>g_h
zwa<%{&YpuA3P;{mlYDi$Q_|l~aCOMotiBLF>+w>~?FUUGMSm>#g^U<pr8R0}*|ckW
zD<{7%YQFqB%&C>T)5&PBdhlzQPuR(;UX+P9&EfrpJ<^%j<2<T+$c!4T*+CV(tIcF(
zLRXYwrvm?z(t<<Ta}u3ev)g$(RvW1@V&~4rV~7z8$Bql?J+*g4z^@*FUj2^zM<^Dy
zohGz~XQV@)gW@xPlF`j=K?{-y92DFBSnQa18tiU$1U;)~V!c$k*T^Co7E4pIvBY!)
z>pP*tSEwFU7~0>b0*i#O7RFDy?O0knw4cj2HyJr7D+O+Hd4>l{$v@h0K0T9+PaA0Q
z(Moh!QTN{z-tH%zJ=Tj>8KYYj-;XytKI*u*_D=05p)`jUu@<8m-wu+^*qoo|!yLoM
z<$4PVJ8#s)q^q{&SY|#}7MWrRB#vOHX2d|P@DR`AD#BH)(u7C2>{qe--<4K|8=g}h
zr0~Kw=XotNz1|(JskXDPDeN!4xlnwd-;Qf0?&OJ@(VergV$10vmpCD-JLZWlS8nUt
z)B6&R-WX#})FX7Ml@P~%6;zcdp3^mID0fr{c%Gj2^G=9-LoKO4qUie;?MRT5{qhVP
z-*h4aATwod=#H|?=&ipgf1kpv+2Pt+Z<Vkz)cM-v+G^q&4=hK}Q0%8V2KgkN*1LS1
z|KQn{%|<tmows86>B}g#Q8QuDi1|yO%(HO`Z6Dsa?Ub;P6xt0X`z$M~*s20cK7IXp
zaz*bS{Fu&{>F#_MvdQ(x6g$W4+Juv7*^1^o)iVV==K|`*4O0bkq4`f7u**VDLFw$R
zC|T81W&Ll41Nmb3`q!A<MK;w38@l>x2<VUa!6`l8E0I@QqlZclU}-P&QjD$;xBD`+
zZ}bofs}<>mIcnj=;2$m4{`IBz1oCYuQkB+j`Ni96vC@M2tpN5pagOy^A#rUywBwma
z=kk)<8?nf#qP|y&UzT2~L)WjnppxsK@!=Y;tzl0zL8xTdTekUnPKsoU?ZECrcC<|5
zAiHi~#9EQ!+`y7j$$;cTg0G;I(F|qfs&?No1Y^dip0lN9xieRbC?ktMKJdb=aBaRa
zCbK(1dLT=zymls6J0!j~2F0Ic3cs39)+0C)o4h-jEf?X=oagk##-Y@$@G$e8<(G2Q
zgJS32ESQ%(InrP|U~<*vUQ6|RHjQvAlw7=*z96SjRpJ~jYo+p8*szhRoe#m=kWu#V
zgS_4IfITd-cpB06_lby?93Sgu&IHW3?PR}HADOwnb}&Cp)t+iUR>&PQgl`!Un0=|b
zBtUQ!f6MmL!2%<T%SOws{|FJd82Q<C>r%qkCt~E%Ad@26nvl$1lSA51RDwNgx&98~
z3oTiP&RTkU^Z98__n47LqPmyS46O+=WA5y#?;YOiS+m`4=v!P{Fs|Qf)wI*UB9|?O
zcC~TGs8&wQ#EDqwP^n(^Y>#6U6LB711N;S{m<#mYu)b@7(K$~<X$Z4i0-<d1i~41P
z6D`WM!u*?6B8eQVg$QplZwqJ6H66d*z1yfaJ<3P@=b7WV4=*7*f?2*BQ%A6MDTF-E
zi0iW7Kc)SQ7pgUBS=0Ib<DXb(csbqMo&di;TXu}HgSa6c6*6$Bv_*Z%pN}2^U00ov
z|1z$^;}KVfy7fyDm!M6VS271#xE;-rwI%V=MO;93r|>IQrgz`YGa`Y7AOgd~dh27r
z%!rFcxT1nI-jQbq7l-~fY|fe!aY3)Q*)(eoAr@$$03j@vib3!5_uy6zVJ%iZtyBwl
zKgKGSKH}xe&-$b`Ns`+{$<08IhvuJm{JL)Zcy}a-Cz#g^eZ&HTatx<jCQ6njkQ#of
zrz)O1c(`RvJ@hT~OaEEySlYb+F{*TQL}KI(m}s-{Q5lUzcJ21Ugj)7K>XSoq7XExM
zY^AD3=%;h_>Zuj=Y{5Rq$%*=+B9MyEa<ThXgX?h(6E|XE(vRrjKE&JK4S}9Ds*A2Q
ztRND@J=ms}msTqqs#ndbS>i6P+K@I4Wt>za+73mQh*3=M4Hi^j7Gq=_Mb|EMSXi`r
zOZ8$d7;OYX2CUJC%{Pr9-EOJWnw#(WUAWNGG|e(HT;4_u>Lc{VC*%lZ=SF18USu1J
za{J5pU)U){F}grP%Ip)8%<w;vfemnuAD!;`-tK=fDS-t0N&bR`o?WL_vkS4__LBqD
zef8>8Z_nf7{P$Bmdw0}R^+KjQPj>qj%RR6<Ii75R!GE&!H+!M_1D5JOVItOCMINph
z7>yTk7@9&?pS2uaHk?}V0@SZW-^tuZqXT-ZGcbQQH+!y?<I(vtDD^>aapXA{OMy}%
zga*+Q#V-3QM5CUK2m076T%AiPgCL6&uFyyq#3K9q-k0-~G<lsdVnvzySVWJr!w0JW
zzGe8uyerT|<mKcKMCLXb8C(xHnOzk#NF6{$DAJ!MwxLRm#t2+Fv228fLJPKAku&l7
zqju0eZt6!odUpP9SIKxFG{dY25r<g|NkTsy5xHE4;dZ5yCkNag-~BRSak=qSY+Ie)
zjM%Y<rIkVumrF!PY(jD$KQih<Fe<T4QZ1tQdb2)z^d%R$y<CXTjrqUI6D!?~I;nY3
z$AyHBh-1qZ!zCQoT^E=w`~%C?XZ3eS3>&{+Tp8?)D0lg-`5^JAV}9GMmE^WVABTb*
zq(9qZPuvya_?Xv08GP0?=rtyc7Ag3LkDUXld6bDo1_G)H9P>h?@|f#XNx59-b7aeP
zXv+f9bF^CbWpL|Df)#1=Xs1^GDsFTsus`8F&3;6$X>A*?A#hJewFAF+IWp6Y@-bBN
zS!k@$q<YZakrX41ANp*MWW>yms|sNM&aF|cP@Bb9J(%s^V8b$N47@Aw$(}>k4?R>M
zZJNi<*c|82xFYCE;-R`Du?by$7HqNx$H_wUy%5v4(WL|P5>#{P%8`P11Gs0X(Pt5A
zovn!$n9Mhpn74gJ=uW9-<D2hvlL*fTT)4*St!Ph;xfs(BBNs&*_LXwOh{pUAX|&QG
z9DgHxM(#(o(WRB`Ujy##*Tl}rLFT3^^t)@aYs`6^N>sF}QwWy+o%y1Fl|N>INBkv*
zx9WU9e|y;U2qNk@?f&3+1iQ!E!hpL=#4o%~1oak6e;rOym(xlZL<D_0BKlf{xxxrd
z?3_Cq)B9jH$*_oA5CDHC8Kqc||G*__eL+v-*AivcBm6Xzv^}Hjqm%O04DIeN99?w<
z8q-&lP(!;q)&HhxF|_yMBRX{jn(+16oN^_y2>tT6Z#m7;?y7idu7%gb+Yy_$5_6t}
zCu)iy$%y;D>xi7A_?eN&pSXac><5G6fg`hAQ5XLDlCQ=(zY5Ah_$ObCEF97dI@JSZ
zq%IsE#q1TUVu!_=2|O6Lhc^ld@`x@JBDEQ!Kz1V=(Q2LUy9afOoWpKsERffOW-PEU
z<{nD{4!bKZ6Ohk8O9<v~ea|ab1==T{dGsNRb~W;nIQ6SVLu#>UAx&di(#xSH)|*tG
zZ=F#$gwOhfiV>qcW+zeFPqzXNc}$~X_v&22UaWpAy_H_s*nAcX6XU1we&hJQC^KR@
z3nhR3jV~zm-yuu-x_(TF%&O6=h=Qe%pD%Qp#jtSG<#iomHn$gJ%71PpRH5>Q@85cy
z`>U)fMRhBF-MuK-C;xbjO0AL|)8CBBzF&~e)t<_SVv(10dubi>ysZn&s+Xav3n^_*
z@+}fN>DJoQ8@RwnC8K_AthGeU?v44&r1kLWkrS=F=G1H01kLel63!pVbxn`Xq6$(^
z=z2yb=nBXgz(4Oey$RQQk{Y}ENem`K$KwUFLPq7faB0R6xrz1c5mZuXVM4sGx1g+J
zQT)$6!?8fl%8}zdgY3A1(gC5Efb6-w$ay6G;p~sVQ6u?_;`7)u<4OpIKDQP;`zr4W
zl&@DSmKqS~jW%5PlJVBPtU0%YuWZ(={1dkWKNX?bL|2kt^NrswA4X@nl`fam@{7s)
z`Q+z|p#)M}Ln3?=Qgp?d@8`<N+VdaxaZi}nN-b8TTSkXFD7#$s9aov1R8_{V8i`^N
zo$9rxhXVU}R;rueT_W)G0lFRH(9~1Ys$I=pZXu=@`WHd5Ed9Au3j`JxxyJfnZ_x(#
z#ObsCXzEYakQaR%A4BYeYFD1m8g@1|`<xt)=wD4cKH3tOWkK+HVii(rAU0K9Eh5hA
z#Ev~SaCr!CIl_i)pSgn|r-=myS;=}dD6aKf>n}8gM%q)$GAE!CWW+lJ`(F=bzkB%(
zB!~EL<@V_JxqXVQ?@B$xDJVPayZo_tUxjDsmm6bQTDu`TkH1W35H^0Qvkg6L9{C~i
z*5Bw|uUhwN|G1Pt-jTwWW(Hx4f9e>q?p*-P5pM%cyza8=Zl2hBuGuqd0F)7SJH5sP
zUDVfz&5q+;FHljEmn~H)y0_?8a$nzh6p1x<$y2+Whf`COhqD@VCQr+&HA4GW#buY|
zAVVei!TS<Xt(9r0>(}337_U~E<-Vy)*ANrLPE}R3`O;jr=^k;A`3EFQ+VuF7$Bp`(
z>g*3d(UK`$amUivkJ-}8o7%rS)iB!vftVJxtc9oVWvzSVz8kRqC!2NxOUNYi{mQl!
z5Xp~~S*PZc++XNh(Q&$|Dpq3bm1$a!v3%8Tbaj$+pW&=zn3dgIYM?2ZnvWP4xhA@>
zegj*l^W=-cq(h@oZfx^fcR}M0PN0Y2s;rMv5B%0z8#8`gT>c+?&8o#%r`;8z5=sL<
z7RiQFdmJw2Yv5RnbdFoEfN=^%o{>}hvZHz5%Day*Yn_D!*Q5Pq#{;iOh!t=V@=$=e
zD;2GN*7bd-e1l?ODJye>bhdxi1VemV|MAi)f*K)lkB;_VEF~(b8V}FJVfLc&ctn0y
zUJO3-rvvQ(7J=J~-jqLt{PmNm3sMkT@T`;+pZ#-ALC>l{sWM>a-8(PpuJiE2Trv$~
z-Y3-e3MN2M!KoGH-yH=x5d{M)0!18+$P1j4*WOZ<QE43dn9ZEcA713H^OFwT{b5i8
zLpf|G42>P@o|sCrYK`l;a|}0d;}KWlwXJ;K#~&5xj&COUv=qhWUaj}bT3wS6@I<~1
z%lOQ~ohpbeS%p9aRuMDTT^ElvEzm#J4)e?x{e}HvxL|hMu%XMX3L`^J?gR9hHhPAP
z?wV95A#+bm1~$yXMIX<u_Ug_)bKcmid3GUL4jyhuTCWH`1}6S4$Na_BE28ITZaq9Q
zc9=`}g2yMdXWwjmK26{GZg``)&acfO0C8)t|Er_eu`#9LY{AICSz0_*-dc&lMn0>F
z$;ZV%b@pn5{|=}y(&&^+s^gTo;&UD1A$}&PMy+GY*<ayDqgu8082!rCNbbNjohaD|
zc5&e%ghIb1SNEA=Q^(p{|Cru<fl><7voGcH<bF^f!~Xu$f8GUXEf3u@W+bz!qT%Ng
zqRX#7+vCagDD65+_9?IX5{3`WmX9gNpF=FH-nWjOaZ|jS{yQ;}z)iGng>>UfN_Dyd
zoZqw2b8I-NTU|k+@ma+RjXcku_l&WWCJaq%t1L+dJtvTSmN~sr^4mPB90|Rxb0v0O
zMI5^xhKtZ*yMXB6b?9TI2Lc}a;>PzgbQdk(mbl~BD+bQvn*}^-$4j+%%Jy0<s!3JP
z-sx2+o{PpQU;9%gV7Blof(rMT=O|glwT4@G`AWKGoKqFc3u}A93@TIavWoiWZzp@*
zXjU?E$MWfYvh?ls=8yEVnbZ`-GCNg~4`;127w^@XM2Hl$*!S+z1x!+<=H;<8%h<Nv
z@?OKz_;2eK(KY32tUtW5w5I`WO4547Z<i#rE`28$=ks4!;H#Jj^tZ>3y#b57%3suS
zTSXzGf|P%1uZiK4B@IcVkjST`v>nuw!#{@INzlHZhShzR<=JoArZsTclI{liVX^bh
z+||4K!=X3kZgY8C+B@CIkAt{ubF`{0tQIJmdk~<+QIT0Cc9P^n*~hcgg?PB}s>PjP
zb@rQH4(3^uw_KI6doCiawd{&ryz0;x2NO$-rjRAIhZn0vJc|9tBx`afCttM5`?NBb
zPqysa<BuB#jAz6AVPg0_nm!@_o)ue-P%%3EnJ7oZuXQgEA6A&akXxZ{j*h^0Y4{gj
zyl?5K&TL1xyTzSOOEKuYbu0IM;iNiLI>dwD#j!xN<Bm{|k!<?UvL4^Y*)>m*NEuPz
z%d2>|)VP3#M{qqHUf-*mu~H(fR2TXA5EEqa3U<{YJClW3x^2k)%*k}(-Rs{1#0c=T
z%!7=@$|s&+ZQ|~X^u1Ycl%DR9zqn^-o4wDPlTRgFH+(l%39k5N76_K~brJ%_O6T+%
zm;;ztME4>t^ru|*_XTH}Ui^J!e}RxmI;*^0mhrC4|EWz$1;<#KmF_+C=DQ*0qaKnQ
zI5WR@bW9A~xbGfV98}(anc|z-MGY-dCJTr?DgPibjHRDvF^E5JKrmFpc7K2IlkrvS
z%>HsB<Ex4$BPG~x7a!~|Q8K>!oq52xcq8Y201LXUsma50rX{*BK1N~dcXGCz`=Wf7
zRr|-iCU8PVPL4kGFqAWNaSTuAr;VW~%Y+h#R@Y4TwJzoHkMZ$P=c$I!q2`7U&rhlt
zH-_=-oj=MfFpi?&8<j=ux{~V2ukJow5$}}m8R=Y4vMq~0xJ4zSd@ug}fqS#5qa$H3
zT{9VVgoWFKdd}24f>i9N&~ebWPSZfT`T)~i35M)`xe4gq&D7QyVUo+%d|Hj?h;t+P
zlxc~1V^|1~a&$dSVP}5#t7`17*FcU*XlqN0nChcPVS@#ht@(+*Tl3|#5tq(%Dwz=O
zYDgQ*H#fa{?OMjI=RZH6U=I}?I{z!nq|&YS;Hz)b0erq?#YWhbm6bK{<JVf?M<{q+
z)gRn4hh)hc$2BR#V6aeOqmm*Y+NirIWu$zyFj+a=kyPUQugu%>)#jUV@aQ)(lHer*
zw?D!!R*-Up_~$9;J$gu!B@{)ivaR($#dGl0-DSox^z_`Esiv{9x3jbJay@Avw`O5;
zF0p14$m~<19xwYTuHR>|e9qBfq-;58b9F9pbtcxdUj<TaVeVI0P*A`S_3q8{YB-|)
zlj5q510^gxvTY|1zj?FJ*by%mp!VVBM89FNZ8q!SH#Q7Km{#vljT(6?eB+L6zq`W0
z)0WutU&VFW*Yzh!2ia-|LP?_Q!l1LpMuBL}c0mKs=ax!0P$0!~7HfUSVZ7SM3=W6i
z6cQ2|%rYpP9N$@V=Nk83ZKuVEn(js!aY>DNObKBm><9B)CPO=O&%gg**%|}oIC=O;
zDCce42fB@~gC>wHM`IHb5WKsTs;a62vs(Y`L>ZS^Q~r#qD*34{Wj+TATmif4m*}i>
z_>L5Ci;p3hEWmytj-3h6SB0H-=-XsM>A<pGyh(+t!7dnI`{R_w54X%aVpHsL@zl{K
zOL42V=Mb2Ujm^w}iTh}U(iGRNXLSSaqe#83?akHBp$a4^>hLMfh2Y{G(_2hOf`N(W
zc8t1@?|hn^d}iu}P5t^c+7#KREACV_;a?osOOriPm*g_nQMtOZB1s-D#x2L1`VQ%I
zUru}340IX-F!I;ayTH5r&QJ%<!;3ekBQ-=;T;he`S-&GxUc0Z(wj1E!*+fVFcm2vD
zq9P(JDq3LvM6X|e)Y;xHtO}{l%F22=*AcH^nD_Miw*X$R^c|q|bB%^lL+3Mfan!bI
zANorL`a+?C>wLGR`}9itCn@XOHr*B&NOV+`G22n**HmB_1x0d{s>0gd3~iLtaMAo=
zB6?RwR8Y`b8Mtc=@6D&*;<}QRMVnh&T|%s>3q!>Z!+A%A6cqOK2&GO=31Ci!Ki_+k
zOJAE8N40&pwdeB4u{{A=*$<_S^jHrSSem#2)6fC)ui2COSkKsN{wrSyx6F!anww$K
zb7#8$DK6RF)x^CjymC0Ng0atf-@(<@RgJM?JH2Eu)9q>TZo|r*ptB=LQvc3Z{PI*|
zDfb=kjf2$lUrNV)>A&R`%cf!x5vMpM^vi8}Qc?Wk2E8jYt*B7&kUP0!?}YSnvUpVq
z%PJP=l-Ec2yz@Gf9t0oWDDTKOZ|tw0@aJl%GZGz^xrmsbpTAdX$(Wj;D-q_`BUb$g
za{>v-`c)ZWpmOx~a--4XPm<&mT^t-a2*j&hTU%S%S|{boO@)YCDJ<8qyNq_|PRzYO
zaPYAG1xfosZ17oOVl_aY)IOZvUcPpk`l^6>+(x2#m`rL@4!Z_eCH!`QfxlY%W@cuo
z5M8Hk{ZMqIci0?hxib^kwRl7YW8}9my})h0%E-vfM6_zik&Cja;{XGf4fZxW(WwD~
zcc;42G!pqwoV{^=W3iHwa8~1);L!Qk-=97#Y7UEwiH(l_T5QuZ8v_)GJcY*R<>ifi
zylqF!HYl9!&8^<DU7=HI_N**MT{@xe-;A8_$Om<;LtK*fzc;p5JKftlJDt`6(rBDC
zl?GT?t(~g2d4I$1!Gi}wIKAA(JGQ;)i;)74x9m4pX3*i@i3@?LV_u|e_MFPaiW4+4
zf!4Z_D(ANFoJu7)u{r>p|K_<mJ8CuVYl=Wrk4qkT^S$Wl&GWmIki2!}_#4*~O3b5w
z@2VW)=jX>_T&bGK-crr%l>TDd0R*(zEAo-5s?ap|-@*K<G2Hof133+t-a_lnXoMv@
zly&2@^5sUIq`3oWosX+XL31u%%k}4IXgawx;GyGcLns%aW@9p#oCd)1`S;g{(2gJq
zm|0w)bBmcbgiJYBEjP$f7e|c<h!PZS(cfjZt^6}Ud~09OOD*}>#$@0r5PQu}f(c_e
zU{GwAVK$C{DPWf8(-L{Fz_JaC4ar4S3?shnH0GTT!P6HjWBbxI%@rwQcu{Vsmn(rG
z^l1$v!9?$sv#{$|ul_!-0aY-6*EqgQEtMqoXOli+u?7-WZ69g?6iyU$cXtQ7Q^uec
zizDT=Ic1YU&g-Osab5$b!926kg=xodUg+2c0FB+}8b?ckiwgy?^6kDzei&NKnk)XS
z?w!c~R9RVBO)O2+^6e6Fx&ARRF^DRFNtZP4Y)(5A+xBg_jaDE9S-GW`<V!uqJ?G-b
zfq6R&{Bw-makSE%@(Yimu_Q=4PYNsZdQLa|`0>Nbhfc-gva)VG#^luOZoPhbQ#u_O
z)++z}E}g=6;f_t;Z2PA@w$AFHG_w9izJk{Gz+xAqLF-`{)OYk|IkR(-i(hO~QqmeM
zQsDMHp_DR;(E%bmNR7Ox<;;~0OgMrGz0zfVy=&Dk(qn+5bFK(XSEXph@1$crX&N<-
zbSgP^kU;%$LUg1z1r{lK{KN@TybpC~z_VToN$kbh_GguQu1q&y0aGbgR#vt#2~c;l
z0YJ%PU{cD)ZbOzeBc78q8D=KG+S7XX0c{Yi-rXXZL*@YpkN$>R?QU<HgQ5Fs-@Erc
zHz+vRt^;_>PvC(PFQ-*3t*t4G!^I?exco{Jy3&nY(TdA9-6879@n@u@OuyTQSl|+n
ze(9Z{OT4RdoeGAS4w<>QSjS3oi7u5?US4hqG&?>7G<(p$4gj`t1H<v~5EI|cnQ)Dd
z5;p1^D`7lxix;FEM}8~~xRHlB&MWwCABA}VOWy0vHLc+zTY7qWS`Hvk4&R5Y6MY6i
z{M#96<U`9p2UfJ_%sF=H@1qMwMbEp)4#P#8Gm^wF_X8Y%4;9YEXB(CJS^-|x7{Vi0
z(wAL2wxv2LBrKe5j1dzP!w?UBQXx2Q5A(fyd}EG@(EU{v&2yC5OSNWgaQo{N3;=iy
z2$>BENvFPG+B`3INn>PE*<@JDV6G<l-s*ztangb-#f<peDpI*nc|x>m>ATlD5sG;7
z<fmmbhF{rrab(l)i!CGr(6RAs1b(Y}$;Z8!Kh}P@)M@+*pqM<B7R?xOz|0UwYu^0G
zbvX*&(YxZsc=gNFezc<aEriEstxImCMFObU0$469eyv+o3WNw7Z5J08^t_KDAV_s_
zGA<(0Gf~<J<y%CY#<H!Dd_-hoBA;HTQO&b=%79d%F)09&`FQN&0Vm}#LLd?}@m}lX
z{IJ07I(CgB5n<tW$DY*os--&ZG9W4kpZkcj%bV{{hoi1(f0T}%2MibegFUMxM%ZX~
z1lURjW^Id<>mH0Wnw+pE_>x)c1Y%t7O4HqTmr`s&=$j~Wp4y#prK3|UIt~UlM6}(C
zZu0yVnn(&#R##W|1TlQ>QTN(>kBNflITP2eGil5_?=Ri2j!Xg3xs6gy7r{+lKE(8E
zNpYWxKLdnH2BQNcPKRC;1sb5twqaK(z^Y7ZKm;6DXHYrE(F%Mt2+n6u9_~p1<o1&(
zdS~6=alIDh!@<G9@2ad-aI0<#gbPF*0G$tsiQ{R&(pXtJCDJLtuRbme=GWe)zCCfS
z<b4Xey0n>Z))cd-e%|M=5D+&~jUGO12)=OPf~d8HMHTl^W<)-3B!d}q2*KmbqH$A2
z2?)HGu)7_Ij2#<VnB&Kf57)72S8dx9a(7-0*153!{`sX=jed5UfpO<Vj6HNq9Y<3E
zE9ou!_4>r_9RR+=UHub{o)^ddV`IxMCh8!mz{>&vg4W!7b2z!MuuyQAzyY#|&UiVR
zJOfc*_=L;4EtCz-uLExMc~l#~Cq7}y`5=?u;C@O|-PG201Cs)Lui^GRZGbzE0RJfQ
z9jo#bWd!(vl(e*1Soa&&JHKV^j5p3_ftdR>upv(E<nr_WEQ94AZ%+iclZTO88VWnT
zt}Rj5(C1}ce-929+tqYed9KO<^dFTh=m30r6_NpFAPmnOzr8UPuKZ{gz6$1Yfia(q
zAHc;=l1?8@Y-@73K>#9DP!sG&%ACJIz})nO+|KdX7%DNPAIuM&<9?rzu-ode@#^ly
zL6EwP0#=Cn3K+LbOKYpRNclA8QxcvJaP-O0E7*O~!lf|4G2g8!3Qb1u?P|0GUs$4z
zqtW&tCpm?xyj;?L``)Mcc(QDpqM@OoVx%4LE%y+RK!3aRd5I8exE`LCDd7)j4Z0G<
ziRAulqu3?2$55}ejd|c2arw`?l3pD;bcj6C;xJaV8Eb@+bN&5G`mn`=h9?Nb;s+1l
z$%%G~nSk}6?f~j}4lu^m6=2$=&N!LE8GupVD?nWu7i3;qqyb}XXK;+f!q&N&8FEYt
z7}o=G^Yd0fZ;MJMLWc^iYdG!jD&y!qpHrolMx~C~A}}x|a_lB(%VP2Xpb1WngQ>Z0
zi;r!2jC{jTM+rL{&MY2t@$LyWeVMwYfY<B}0(MhFZi={4<0@nnF?XO;8Usz8gtF@N
zSJ(qHlUa$@LzF+nbSUg?TZ2Sk_$`l|+lUDu-ddH7u8hzfciXQ2vqvcp6O#@%WBWi#
zUh3mdi<lH21#&NIp~AXl{Ls+QG5$xxMK*<A?H_Na<ro%c2BsVeEHMSWm|)HvWi}Sn
z-vZ;bd!z-2_b)05z#mEYx3#q;VK5j@h3%#LCEED<;B$Nz97Y-8;mr}&F?o-rU+tJX
z@#5AU5g--x_FA5--#I62C;@Chq>?`a{5}MLAqSqN@BGNXU?@2MWY14<?)3$6tE+&V
zpMf0{lu!UEMF|EjE&K@#!5PyFOf)w>1~9G^ukQjqZjc&k<99~>UJ0=o(s*k~)$TR3
zGuHxM@sGgywJGkOAdyQ%Q5QBFK=3;Z1xZQ`m(0s)2S-bx75QIh156urvgTd|8O9Rk
z*1pCfY=vO)vPiGJP>{}bX0%C-d-sU-53)rp{0X)DM0b#HcPU^U%;ydsM5^HOSZj%$
zt#zYMDtK)TC~_1eBFTVE6ss4J!JwIUX*GNCml)LQB~LICP_|Q$j0eGIHv>zeRZapf
zBzpDg)pR;QUOuT8zrOKZCWUd{CdPRXNL|T|8o*8nG(hL9fgyOhiCJwdP2eb%l<ERN
zVk#IJUi04eoWkBY2a_ugL-aSl9b}CHJZm+b%du=C1%w6R5Gh{RM<9j_$TG+TFtI``
zXdgxigU@$k;t<Al%yX`t)f5h-y9^tyK;rCJM}lk#p{Deyr&KW6of{<6y$U2qKf})P
zOahc@Q4Tr3{NOTjNBW3Lw|O{}Iu0`Mlf%_MsMfRuugv<}1IDYN+T}s=tY!6@nvGEe
z&u<ju1A5$94h~D0*29PXQ_?Mzs#SIT>({R%*+SccP3QgwR8*N!Jy0<N_#kcDd$n;a
zESlURlxvIvr3ca{r|NlQ9i6Cz$jHL+^C5ty+lqm7>=n>CJ<GJlcRaykGO*GXXy`hO
zQLF(uxfEA8P+|)RCQ?x;5m%HuUf7XpSrry;z;@`g#B&-U%?%(W^wVev=R*UO!LI>A
zMsQ*<r~xZW%R{j@3|`jt>6!W<e0_aQ)7%&Z8#hNs$1V`hViG}|CV+Xb)WE=Vj16{D
zKRFUX^c<6AB;5ekcgAwGK^*XjMR?6CfCQ(Wv>&+!a!vQT53<VN!~uqY`s>x*7wg16
znZ2!nnlQl69S&BenE)z4GXc4GxWa0ixD<4EW2zLeso1@0kfd8DyllBv32w_vPrvE|
zGSYI8^bl_WGD9i^Ax}AOQdmf+b+I?2$7iZBoDbFY;G9E53NYg22{0ut=0G@gFv<Pn
zZUhJ14^okBpRJFtZ#4jcep&;UlksWn=TP0t4wcJxXzn&niRXEgX2C?Yvc{^!r1*o+
z`alx?15j9>JiyRR6_&moj77M#-=@h$tFFnvSL1Hx)((t2G6Jc{d7juahDYV1K)S)m
zw-S+!JnlDk7^!g*FtV=z{o1{!Bb3!W7V;Y%m#itgP5<&E1}J?y2TCQ^8Gu>^n2md)
zwDYr7P}eBA=<NxB|Du9IjRu&IL{PaJL_!(rE(J;2n}df>4$c-;rKCU{06nu-=>~+b
z;zq*x$k2%hWnP1|VY}Sy(Gmy3t<sT~tp~v`Rgd^zzrMfO+hkOvh)wGbLj_;QChLQb
zR8fcRava89)ShCMdj9ii4Z;PGzaN4|CH5IR-;eN}!~)vrWZm{*nb71V2&@iWy9YJ<
z@y{m644Zs*)&~Oi163PV{D@q!wFYEvx=p;(dowxwjx4(A{iX0z7sM=TEE&*025M^b
z%K;%}o3o$x_8C7Q7ZnmtW83vbMMY0RO!Itm_!Qg`R5B0)r)XasM12<k9RmqIFUaz+
z!!_tVQ>T%#{HY?F9?m$_V!2Umte^|8ie#8lc!pBvL3K70y`s+fpI`1v$#496vkK2e
zjQW7OhI=SL)*2*8>z8mKU^^ODxX$M$*Pj=y>9_=TgoOQh+y2GxvZ*k+)JNSL%Tsh^
zk;;`8p_=$RK3m9G6StvA5Z-pCo34b9ypM>`jEjjmn*}IvI4BevO8~e}0}R8Z{yr;o
z+ADa2T|?fPQNOWu1$4s;IPN5IBHI2W(7+7HdhzuAsvj_m@!@q@BynvQAg9YHNG9fF
zi|G>qeAOPn{lo8onuImC=X3;DPfw33;Ahn!^rH7`qst&$GhGcwZ%?_TRWQQjCq{Oa
z1B|REOR`m5T>M11EHRxCihPOf0Lu9bIso^*qhI!7Lf1MT*?-~`m*n>KD_4@Gp-_Al
zDElff{9+fB9CtTBeP#DoNumfafUlq^QC1BkcH(ocJN>DrySs%^4O^#-?|m({8(>iY
zES=@UbQVas<pebn<dcAk5_NJBJB?3oet;toyhjheaYkNM0WSn#M)}^w4}fW8fLA^!
z5GJa2$GeYtYEG{JQtew8(R3>s<Rn^2q@Wp>3j3h~XFY%j<{(U%GI($dP<bzyb5Va5
zo~;c~%UjIW%T1W7FSXc2vK(Og^`ef63L<>o)0>0FS_7G3$pzfVUd?1lhhbN5U*BC0
zP(7qs_ov-_{83`F)qUJ&z!yYhJ>=qu%!KoG=g*A#axth%hOrB%l_5cbPQuCZrlbbl
zIieDG<V6!oR9IN}OEY*-fZ(5WCX^StB?GINPyMvDiC+YjtjaM)uMA!Fz=%vo(t_j}
zw}KMp<v+}|0@#uiH(;rJXi!jp!vN6HPGtD`TazszAt963v{S2yb6y8F(k^!%V4DM#
zd_R>CYi1@U?^5s0m1Rr=9X|#_D|DJBdtf6sspCJ_tbw;u_M6|CdWaoE1GNsA+hE7d
z83BWXOm%O00l4h9_eqRBmUj=GIQ&KiW2^h`+Cw5(doX0IJ^b%Bzgn1~?vWSgTQE9C
z-MplUlnAi<B_49^qD@8$YnJuD-QDHK3D4`ozUMW{!`iR3>|9Gy+n5rEDZ{n?BNh{E
z9pVt_(p{q8tqCs&Z@~YfQ1VDNiOqa}S1Hg!?XWR9F=dqBMtQJCAwtJQ3pQv+Q<Z(J
zB?=3F(3_~A(Y3#=hq26*nN8K`Ncj45uu<?@R4>mtcxqv-mzPpj8shCkQ2W_$Kgq}W
zEh#SgyUOImvYk(j6$!_L+yiUO7z_Q3cG)NWiB?Hy?aISph3}}W#tPYhXw=a7&3~6x
zQa%>_e(*k}9m8peo>SS9dFFXn%Vw}9zGcu>W!QWtUNj?F<JLo$!W2zRw~xNwU9Hr%
ze_lrV=z|wSF`JH?N?LTVkalDPp=Am?q{{=+W2P5ZTflxjmV?E$yCQD-h_lO1X<{XK
zGw>4V;hd{T$joL{ha+Rl&yt1<EDetQ`$d${>e&8%Jf`bR$Hsz6Rkch=6bbAE$7OQl
zyeA}f=C~1Dq$g6cHJ8c!MQqBEX${t~TVNwhQAYss08?J#?Cne&DmFe-_N2bQsB!Y1
z{dRt4Eo0~`HV_Y?F{$JH9)<iI{P{T&Z!uYNk@^~!kNX&E1Zt3gmod%TXgNOooLTF~
zFFqP>w|`sJ`(N1}s{F|O-5epCH}|n-V&**$BQH>C!w|-PUq*XBsj>vG+Qj%e?f7KH
zu~$VtGuCU*t67aa_V04vUE)-Ac~I%a1quR|gF_CEyF?l@w%~x~cSafP5G{RV_2Do~
z_EIx49`sxV8Ti-gFV;tZr_&)ws*Q;dzlqb%PO%0FcnzbyPf}S*jX~=n|NIFC$jeBS
z{<QzcHe*Hv-fxUs{+0Q^ZnXOU;>E~a&fWjK3-JF(`Ttwy|GLrr|152M+beXRTgJpA
z@f3x4*Taf_cP)-;Tf|&UZaMJkywVfR3rcq%Jh>NzQd;}rOuZW9_fjVP*V4<fUoTF-
z64KLD@=xY|@b|sDv*sU8|78{hfk5WhcFc8asKithjkkZScwme|BkAV)W>O0iw))0Q
zis3$_3~PYU-_(x%Sp&Cv^ljhKZ)*Pq%KZRDuxx+)x-H6YA6K5HGXL>;asEF6^ux6S
z`@3lWy9*|!|A{WN4^^QJN0C34_u*1HEaR^sO8VFnlP5bW$oRm9eN_H+J~hD^g(nX6
zrQvGQ7po7^_Jil$p0~NBnF(4xX0C*TxB=aBa0SD7nJ%CGlRsS#Py#X&b8~b@)4bMy
zTU*0x5I&h(Bw_;l*q?bxxQ+bjWx4L&=ff3a=ke@*9;&HSXRoY`4C_M*Rx|!@3X>ny
zT*$iHw_vN7xYcKZI~U^XMkZoUwMuO}tRwpZjr8|z;#*E3k1D^hE<S&2k@&HXrc2@5
z+2+Cx=p<(N7F2wf?A;F^H&F!q*~JHae7dFfN4*+z40awN@2w9LM{LL4&hB%Qn}P(M
zrG(y=kWmHWujA0nJzYG$Vkky$Uk5ku6F8Q}s?6LL>rdG&Cdh3KDd^I0>KTrDQ1`V$
zg6^E2wSxwBUx};v(FZ7fnE`r0kpp?vi_O7_K3}%#i4A>FoSts19wn1kJKhBE&_%0z
zV7h<D!&DXzny!1gZ;e^WV&d(#AJA!JpOo%EW`eQL+W9H(GOusHx84ZmurscHN~LN@
zbX+)9h(za@!50TD`^0hMxH|=5w-n@U(L<?!c0~`qO+D@*YA^k2c#w-T2JV4G)*o(=
zFB?kQf1q1o#$RLiMVvll(<^!I9CS~<(Y}BD#YtcfPFV?Xd_ib?KQyN1!;2e?6MiO^
znSL~0_RxK5_Kh<>Z{bf=9sH1CwUnR__3hd<URSmoSv=hrD?D7IYa*iw-S4q-Oy>Z_
zB-7Ni2<^y2Fsa$%3#NX`M1M?A7+oMHQ~6bK`yJ_5WW+q*DAA<PkOmhylBov;GA#uw
z9oEr$iCHZ0J@}3*vO%_C!ydUjxqtnF84z?XbeLk&=*D-x*qt6Y>|5ofxBeR*^R?{$
zdJ*vlQ7%?z9~o|HgG);<6b}^IfBTwDm0|BIVE55m57G7Y)mnc|ESFgZl|&|{yocIv
z1E=^8=NLA+9Z@FRJ=SSecX_l<PbTqYSLd6ZrG#cG>n0+$7w9+z)uw&J%lfW!Z}M$2
z^%{^lMU%b?dhQv?jb=|a8O&p$2yrQnhU=oWMpL|ok~;5mS*;%TWVnW(E;;de+<+8w
zq;6^ESak#0QPOsARjGJEV*HM+LQci+t3DzQ(wd{<I6*io4y=_AZCNQfMdxN#m)a=K
zp+t7^!_4NOqgB^ff7*FLk;=bWTt0gt*82k+P<Lxn1l?j(Gfi_v^xZCflK?hg+V|)i
zed<&zOICg4L$aPa7}o0TWa@Z!H|1$9W$JD%WvLP;3J;%O`g$W~LXcB&?%L?=h6!WN
ziSx&H-7<}I#$~(o(fTH+r2G&4=Q2%=-A?cKyjQh_e?X5oMQYk@cP`o7A|6p5FukcM
zEZ6Q4vtk(YWuw`DC_CIqKav*Qhju8xM2XBCkZ4aMjUz@Yy&C@=LvbcwMc=8)&G|Hu
z%CniPq7_979+X43$)&=%@bxIUv8+gqL8*y6``&T%q{|Mu@s4)2?up74U{uzbX*zp8
z&O4TUxe_;ImgcW)A=11Q*H0u9c9qwc18s+FSh5QDzWa}N7IXesY1ECqePc8)>pe{&
za~%6T%SeK`N>5#amx<}7_PAHFIDMFea2c|EvQzsuQSQu=`eIjU*}b%c-xA_--|O{w
zrOzz=RoN7ko2QYnYw5a^mZ@<&PGw={)E5d`g1LI?1<e$fn2;A1Z^dn#=-P$|kkj`u
zUGJ`6=ffpPnmuON*Ef-ymfuhhkh#Qi<q==_`s2PG92d`W;hZi_-@eiaZ`WJhFI!TX
z>7`QJee^c-Y|YOiv^e9&rwyqrCq$j3uMNud6>@d7d8DYGRRFH>+yAzedm);q*r}ky
zA=mzB<9I>Y?sS~xS;kHJgPB90DLKAHvOdn`6O%80Z-v7tLrL^8n=xtIahrn#biSF@
z+GbDGzC$mZB`hQNR5MSUjZJR<Jxbnn=-q8N73K_EzkSN?{Qf06#pt0!3kUdet5IFm
z-t1G`*2p<xjYGxdeG&EkUUJ00={q67Nzy(gXtaOFU<^Me<0RAIUq-jz(6Wf|zEGU@
zK>nypX(~74xZkKX(T_&Ljb}TSe<vUM6Ta;vX4p<CAa*(>c^CIRJ&#4Z{TCj&9@4db
z0%w{treo6kBIy?6ekK74-EZ{TWGYvt3$9g=lZ$c8FZqLQpuZD$F<<<PKg6K*F~?E@
z)OL@qWd5haAb@@0p~FW6IQQ|?Pgjj&soJ&oj!)99{m`Xf53Fldnd~C?UoXhms(nCb
z&Fm52-0#-U{KNHM*;}uO{C%e~rSwV@U+nKOX9~+hCpja^&Xb72q|%HrxKGIz_=hvM
z!&cu168C!_TnA3cXB_VuMaVVrnNs=_OTRTmsY)>9XUYpr{rDXf8rZOZ_0v#rb&YhF
z^!~Z5h<{c3f72mt;jR}cE|~#vQ@zpZis4CWkFrlkjyj@f+=yo+$#DNRx33uo$HZ|8
z*^8zA)wJ}4n&%3iw{U@Wf8^;)HBOrFIwkJhII%bfpWjO&_5@R1GJV+l|EP-u^tWjD
z;T5W3a!V+a3qFvOBi$gW2iGtt>daY`)fC=;2I>b;+Nj~N=i^#Fs>tu0C8*8xonL{r
zf1bh481rpgg=*Qn2J#&-+i{nFMWg-$CS&y>xs-dk@D0x1eLmeM?Z4hs<K0_r|HeE{
z_TD~7Goc#5W9pNsfdF!&H0k%*`~C<i$e2Ul-aD)B5>1L*+)B?En@asx$%K^2^j!1G
z#;{@0PwD#};s-SYAq}8+VP=o=Ksd0_IAY^NpMO~-=_W9(W@1J#^+Mk#9Dz5PvP+c1
zm4-T^o*}!GiuZ@Sa0~<%T@6P|o>3!RO6DEScuC?akyt=HlpPmBzTM}fuD{PKz9ld`
z-x7&fkLz+6kW1?HF+Apm^R28fMLzxU=O1cO|G9Q>EK?{`P)8~^0q#S+>Qnvm?}f3F
zt%-W@LLz8cJ-fo3w1a(}A|h#$S*<9=TG`6};eBTE;T!x=m3gc#-?%^hkG8c_5&Qpk
zh{@04^1oy_1BBNymtv>a&SUc5&+m7+KVw{(kpkzfgWm5Sda9A9^e4cpJqG%S$QHhF
zr?}$&`UfIsFkv^BD9rxnoz*;RhPGeC@1T>s;OiSiI?gov4)lMhy8t{Y2_SI`u{9HI
zQ;~Op@wlfN`m>x>M{t6|!&3iOd+!0%)Y|<EgP^ELlOs{8SU^Ptm0php5D^gR9Yi{z
z2qClp3W7*GiV8}Jf=UTZS|AAlK|yMygwP2h1_B`zLm(mKZt%SC|J?b{{bs(Id%yYS
z&YNMF$<DK%ti8%_{nmQ+eo}#TOZu(C?%pcXs`VxVO5%mG-OfSmF}u*_$S*}KzQ2iq
zOTtTllqvZ*!@Mnb#qR!A#Wjge9SyLxJF<J=a!q$Ey$b<KEpNJK2>Csxe><ry+yU}k
zltDq1n@^xM0z#Oxc&drTZ^D?jW8Fo5XH%#)zXiQm=kmX0zm(~<;Xq3P=%#Px-_|?7
zql=t`S<uk;RdO|65C17?Y3H$E4j0_3b3_>R`poWkR_b>-{H=9k!T(ilqKr2jTC$>K
zdzHF{vqaK&o(tztlmpy|eLGjF&!)W!&v|L*SaYe(@3~w)0BFGcmT;^NS`mFWgsE#4
zV+pI*u$ibq#XzWLa8G&0uFV0I1c<!t#5=~!7g|h-q!aAd85rC)*HXJldJg75v&S=K
zOLpDG#dHTC%}bCLgrdnw!Es6XaqS-u$yj`oRiR}-S-H-?bpb?LE8;SU(r#s4>YB}!
zj8*1to%%0T0UsmNM*{!?79dqCrS#9!8Vc5TcwDC$)9If9nr1pwmscBNDp70t`kz4v
zDOiUMeVibqj<VJMISo8*6rdfRd}9uXi0wHB-1wj7^Ta>e3C>7Fz`|VDg~bYNcps_z
z3m9Iu4gWWQtV=a@y>@V#D2TAWRuoAgzsFnR#Y)(Y5~cp;6J@P&vs?fr?~?hqVgN*U
z)n6(r$+Se;kB44`(7()j^;Rr34gW?A$d2Z&=~w_j3vESVc+&bwf70^FSiZ{<k9O{h
z=im@ioINyojo+%m)&X0Hih!j0I77@JEBU*I=E$x*!bu(el<+70yF7N+g<`cm$^Xid
zGCNr^hx`^#P%iC=to=eMOlRac=3=~>RJ;BLfv!PL>MK53YxI;TW3nJ(JD(Lxu8=AJ
zZCC5;`$-84%H5wO647w`_w3{nQ-x8Sx7vZ-yvX4TBujLK>%OI9$qN-l{x*(i)c2!f
z4z}9veL85=!ap$$>U;VP%!nqB-|IWPG+VG9_g}69IQ(D{YlGY@ie!E*g5mzHY5?GI
zVzpEEKjZkzt0vwTtmpnyt*liuW)(mv$lSjJbnzJAuAuZ$*>X3uxjseUf3hsYjM;rM
zIuw6yY~t=<^u#|Us}QfHHl<M{HGP`={+U5QX`{Fj6DddCp+l3wB~oHEq2Cc$+6s87
zETZtjsHa6hxqoB|mWiO2PO6|NNqD_~x~7$O!wX1AfMp|saUC*RghL>@N<cODFVzt&
zn$%tY&OI&9IjJx3;rL*Eq$BmQ4&D3oa2bO_j>bPYu&`_XVc`#l!Vu*}dABDp5q7kZ
zf?u0gfx32#oCq4*9Z+e)M0$-2Sm>hbb4DvKP!I4eEZX`0<|%ssl@wYsMJPsT8zb)c
zc3IS}i*Sels@1j5t?{DTmz~_5WgyFk&q>zsH_P$>PLmR^?fDJ#!~1}@3R1Nd>U~+e
zV@vM>Sx&EDz44!9W;>W>oxCn}Z)ZC<0Bl}n1CAeYgGMHIlO6E{Yo@IDZ|{6syk{76
zp$+8|#L~yJOZhDV5IPtyDcm)glHJVaLIBQ$1w#7G{B=K~)_#{}&G7)C*af9nuoC{z
zr0*@Iog2S7c0G{!<=@0c<?ymj{)_h#+xJ?2(-fP;RBjB;cQ)Rq{b1Om=G}Ab{Yp-Y
zrq#R@+)Yri#%j|$r3vsFPWpe}?-_0Cpaj@DLY|MAI$VPngtKLU7WmFwmsP};^K{MN
z*Ve%`z!E;dA{*Nd|6X9YT>JDGhF$lGvU8Xt>zn?=(TZ1?-(BvZo_`Jc|D@-{%yi^f
z2u1o#<+B*>BD=ijd}b^(di$-0ci$w^&R|DE7ijgra`=C1oedEuB0P<?@@@lF5AYNu
zH)d@5T3OB?;PQ2AsL$)b&3(ctA05{%Nfy@5q0&)FP-~DpdS^ug6%ARhN+udP*uVlu
z^eVNvF{NLqmQ%VbS)^N9lU5rK654xv*Oq>+!~mmRRM95a9*2>iEfD9hB@t^?$u0{A
z!jOc>5`>C++oh{znbycMlN^`QY?UY!edR#gsE=xe#-;{g>BoXY<Vfvp$g&HliON;G
zu@f?t7M_-cdH25`$PF$Vc<IQ?OKqB~+FpAihwy(H3pL#-JLncj=NjrAM^wkkg#cz|
zRM^V*OOKop(WQ*;>oed6vFJ4zdgU4x3>0^ckS|9Xm!{L5LU%YxO4KIal!B)>%v5!`
zOh-D?^R^iUaNsk)ld_AW5f#UP%Bu7PFc7Fz44TojNkyPl^fwDZr^P}S8exOm<oA}l
zKD4N@XR?g`$&5Mfe&qK79h0g$nvS!!Umy1V!xfWUmqR;Kxqtwf(?O<cLzcp6yTIL@
z_1{SSe|nt%Rp9(b7yr@4f7Ss2<oJJR;{R`mk)7m1L70@8AWVQf?_6{N!GGc7g<Zr-
z6khgkg5j;LryR83p<2(urkonzMTFDZ$R+X>yQw{kkCVF2s3Rj0Vih0R6i_B`K0tz4
z;U4R|Y05SZie5zISvS_WC89x=pbOjDud7Qy)-f-ecFE~qZvxR;WejW|E#2C*1Y4!i
zI86=gAv2O=Ol`)a(d2ef531y9CHa-T({AUdat6pKlc^<eQOB73t>-5_Evcm!=8ZBP
z)avV5j`)D{40iV%iR}qlA9}u9@pV4};9A>ba66X_LU1jJ&y<ko@fAQdzbLb?E1`!8
z0Pst?KI~PQ_6Wws-|HUhZ&+OyTm&|NI%XzYd?BO#C={Vx!sz(0`6n?VIi^DMlg-%o
zf*9JW&dO`T1@xg3ey7?a1<{_gU|?<HqMBH!B~VGG%ZO4zVnd3ao|{*JTA60fxAD{n
zJ3O(y-eb<!F5?(DKWi=!9!GvuCT?08jH!+YTVQ_}?Hg}o^pI-~wB5B+D36Zr<YcGE
zY|_g^^TQ1^KY{rDIzEP4lCb15k4%anykV<T{urGFawZ@3<Jlbk)$Xzw2xKE@IE1Fh
z{G9OZZb2LKbC=4+-Ut{N()-yh+V%TNT?-mfzOkj}xU!iH<kiGTdc502*>rruqL%Ym
z2q#t5!uevK&8>w{W8vj!3}gHSk3e3~wqB-*qPQ@sgh5YgL%Bk5QM_PT4Ft*#vcm0_
zYd+!rFeqzMRmriLxkPqiuRKyPQ4$w^y=udpz~@eRPGN+NY0zyiNZ%1_2~2`pr3C3u
z$Tq+aA{XsLIU}2$Ed(5Ds1A(~VYi9$i1vJzDjw-~x0I&#7Ue$B6R2g==$ZeqZq(TR
zz}$%Xq_Z*2-^Ce%=q65h^IK5C!BW6O?+z1pfhKh?s6@b6ZBkjx#J{t5^%YrII1S1o
zYY3;cE9uz5qFYvadk;<K&cXPEZ9XW{A`g8CIwPpDdYvc+xd~ZIYP+kEX(5#ti1Ag9
z+TYc?I!|tK2XUgm6o`eU@gP)H;}3}i-JvD)+2|_$-EI&cD8|1p<E{?yW;qLEA+)x>
zqnV!iyYzf9{H52hB*`)+<}+BTD9@Q?lnmiQ$cYZ==@d+#Isq-iBBl{WZc`SGcNaQ;
z*Kv#6_!n6MCxFv`|3*Mrcgw`r**|H(>WSJ;JaRxN<V;Z${@Oej`YPbYnc$d?ox{y0
z?nw!=YQ?UO6OmR(U$ttcvFOl3W9jty&m?PVu@ia&T2lSHUA8m)|DIR(FxDN!;rF!|
z54991U23S`?j;A5kgTLe9x^c=v{^g_fwm%9A|+T`9(V(SVlNhG??`}VqAVf3-|JX-
zz^IlnPK{M4KMCc$+qw4I^(X_#0{I<T7if|wlx<g`yd>OO{-|RDJI&y!6$NZy<u9*(
z-;hTM!7B7a**NK<RH21b5!NqcYy`iz>ullywVyeKWs{^O#FCSC5h?(JAU`2bA%OKn
zOoSuti}5&*X1gIDj)hj)nxNWDV5Zq4B+)dQGk)1_xqK#NHjL9nKm&=Y(Wvj7wa#AW
z%Hfe9ZSz~HI?dP!IJVj(UdXgax0$I&`tI*YQ~mjXY_Q4+8uL7c8!?a~ZKq){p)E`g
z%7-YhyXR;LOmb~?5&Me@8@eNR_p*3!?|>CGIDjD7B0<&J_7|pq>RnA3!luVKUbBfj
z4{Q&;p2e(P2W{(mqqsWV_hJ$+=mzIp4Co6KY|OhDb3c{V;&FaKU5=Q`!%1C29${+z
zoHZ%i0s|H2Ud-B$tYB>2eK>Q%_bBt5UNbtfRF<f11FO?mJL;zH#4&uWcWzmAAKPl;
z{WL;aRtaOKc0b{3oD7N@fY^S^m`$k2nnIyQ^Al*2g4&f4X4g0%nPe2cBe}h@Vp>jK
zz-MFh`^Lv{{}&hAH3>!tYDKxK=-RJ@iZAI4+V%AT!{@r9degWjHBFUd2C`RcU*vkr
zt%rBF8{!j1w?6<&)9_g65}*Kr6(tx)S#F{gmKdmP^$4(<)XGrCv^YG~@8^}u0!)2`
zPwRbgRqzHoWG*23X6s>zrom~p?)KL2i@1v{&AT%J9(iQJZhQe+MJg{UrTz3YVCf81
znh&1~@Lst3c)&i~JfxCQ;Pwmckx2cqRN0v&Ye^NO!G<lqw3wY=Q`h7VvyL>WybPZ8
zmD3!sqlb5Qy;WVOmYUpZ)`X_1LkoKrgH8RjUW9uwfmPtF8q~zJ8DH0nahH)t=R2NG
z&1nurKCBJIa8&XW5Zk_q6>mc(4=)tEy3$re^ANB*(5tNnB>8D91$!HURidD?t|+^@
zeJ*&t2xn(vL8~`oOTpjhtG#yD^#qJ2L!8JSs=~SH_)m0BtqmoQabwngW(7k>yLIRW
z`eROZj=rP)p{eYlPU?IrpHx^5cJN8v)J9yanE(Cr?Y!c6tKP*p^@a%AUkP7ux@Ih^
z)+^)ET{=dyWhLeyihyc2xB5#&iDycAOqbP>TE0mwA9zrT4qM&Fxi;aVK-#F3Jyfq!
zC6cDj>o;x(*sC>(&(pX9ST3K+wBa2H>h2iEl1T=HnDSP3dgb?iGbRE7vI1Eu6faFE
z&cKl9`-9l9j2-t<YuP3*hz_CD!=86#i-~kk9e{t{{!<R34dY`q-5rdnb@8sQi+DN0
zXE!zzHc&JLww^~eMc|64v=3*6v7f8p)gH^e*~c)EI|f;dGWFTej4o=8<Gmb4!d)aS
zRrkS`di2L67KdeVcLS|x@d+bT11uGbna2D9^+E~rQ%^ztXFp<HAFhZia40P*Vyl4W
z_!n#lY4sC15wTDagppNQ{ObcM2b#hRA1Z3A&556{IVlOa;~Atz{89MRb&~ZwG&#Xk
zPrwQupvF62Yac#ds1jwjh3X449eo%v{TE=dc1~)5YWFFo1;nuR0dcJ)0IYV5TQfZt
z8eq4elb%cYP_`vO4f%`%tVqfVrjN|&(61CwdZ!+uLJ=^&sgTI~ttq6FQ|U2PjN$}B
zf9h~KozxzDw{>AlpzfKb!{qX(W)DD_>osDkrL46iY>4dYtAq^ci72j_G=lK!@AoG!
zE|C-rU_(_pB<#sHZE&N2UuxZ@c(qzro|ww%KN%YB^D&_`oCF)X1;+#TEF4LzStKp0
z5gjS_4Qbkx-jTz>fXhV=p>b}W8gE}5%fsn(;`U<Dac;d6?gh+oxFncf`UNa&nO@}7
zx2(KnYFXhEh6^i5B2O5bcx6p6?D?iiPjPRdR#Rh)m(n}(8$?`}d%N7%77iW|AJ`H8
zov&rOpIRjAsY0c5X>?gn4BtI;=<%6~xCxKcT9`*o4}?G~8uCY6eGJ1pr?hS7Df>ff
z$?6hJIx{W7G{qGm&s0Yb#nQjcs%K+#Kb$5`*sGv$ZY1>@Eu5^qZ6fRz0B&kO$F+f@
zELLA=y1!Z|^EN^%KpWw@$&Vd0<fA@v9`1{QR+KC`=ibi=dU<47=l+X}(P(cOhg|^;
zAiqEa-QuObt<X}c*X+eo$cL4fl)8};RU!K$SGUMs<GTJ}>8(~Vk!9zuG)992o5-Q!
zHi8>Tv}$qyZfrKLXYt_*SbPhi+WDwAt#FXQ@DJD}2~O%{)l-<HCXR;S;)`jIlqdi^
z0~*-ffc6W4GYbnS(eI|ONBC~)t`Nd=b@K*9(~Q_y1r|%fD~pC6C>2?j^vfDy&KXZ8
z&g^wD)mY6yH~HE~`Ib+Pce>dw_%)lR*1Z}yH0gXSb@N#QEjf*Jpa6WKOmZynQnIjU
zXq0tDZyB(5Of~LNnDf*LB?pHt{vgj5FfnhY)mv8&gwfMd7uSZv*J}@7-&#4x`iGB(
z7f|?N^6XkZUqyKTGJE<5Ifow(39pP8zFte+>)aQZmy_CE;`kD9;qUd3L@G%@rBneU
zlm?2`_Kn)dT)8qFU;*`umToh$4;P0zUSppmtYH`;cxCtfA1ho(Qm)N3*4I+%d&$dj
zi0smS`saj7_HA}MIN!;p#{||ZIbXxCJN?71)vFF@E78a1fKZxu1vH4WF0AM`ZPpCf
zLFLq?VEE*8yT5`rjh@wXk<9$mjdkdGJ1gom*yq_A-P3<=EK9Ryl`lQ6EI`|%otJ~p
z*=YL#ziyUJ$fh5S7cZY_HNntAycm_LPuR9zSZ+sK@(7wg5|j<uC?qQQQKYvr^v77;
zqKqlOLH0w4^+Dfib9lAEWv6Ss9WJ5!fQ(!BYR9<8%A#(s_q5LgX;`&A2R)!qZ%C&s
zyCG+^3)8iR>~Tr0>koxRJ#^V72D)Y=y2|2({`iho<fuaJs!d*f8yLVR@h?3k>`B2z
z$%g8U8?*xOV)qAAzgfRm<_^7@ZLAc5<9VnAl>cQiI}f5;Qk#7uet2p*iT*ZdyPig=
zZyTEgFf~2rtU4i%JG3sBk)!>3<(W$Q$WP|aIc^M^-~j-r*3>s3pLAO3_G*TuV09}g
zmeoRkD-kCKhHma#TF8Nn6Z~r{Tn{7wFvs=%D}A0?5nV)+cdT=y;t0S40b1pt(zi`B
zdt+yS8o;PkHqLtez2;M>#gx6HXX*@?V5<?JN?!Y<JV@IxV>>&|xQ#sSNf0ay*&q<2
zn`k(Ps4rejblF?>Q=Tz`1Bvy?ZgG&b*tfMbhi!7pre+riFE5#x?|5VzCskiTxBj0p
z9t9(ZVxduK360{*lQq+@Ur%MXv~5_Pv>#*<G4V+BB)o#4ZQzETQ-c9N*HJpq0o=#d
z3+#jiT8r`85dG@o>*`P7|M8CBS$0j%s(3!0e60ZMjJ`S5GkR-(kR4DXtmC}hG|N5H
z+ibe>X`avx>bUG%zehXD>@SvxmRWAx@^F(CT3*sIrvMUiV<Hm)g!I159H*z$HEstn
z@<ylGQtP9K`3T^Rgs}~1=-mA`(x10ptFX03iaDv54cxYWonryE_Ul(hP?wf3Po^no
zx=PavYwqB(#rC`_*jzDdGOelQ$q>^%jsl3vIJ~b7>L4JQy7tA&nN5!8hr?E&Vi;4K
z<lK!M3C&f6GrYr4Ec77YhnHq`(!(R2^TvYzMHL<tfSm`)6%^c2nsyA!y?0a~^cQ_N
z#vW$gnu4G3!)UdBA|ulJa4UP7Kl=|>hT=BlPLkxS-#l6f*{C`kP>QX3@#jyJL^Lt5
zlF>VpvRQ961Y(r&4c0v6%D=1`RrlRoC9uiOp!d(MDB4%@XxXBmY1y_BErFlS8jsAN
z^C4`9g4Z7aw*q1O9h;`#Y<>%#j@NS(@UbEIMNLiBrnR>X9bR6NG^eg*smj`B@5YVC
zdIMAJ<#&x57NTSfx%zfHiBFameI=0{6V~jJocC&_bQG$j74TChZu2dltO?ox(wGpy
zBNZVrOjwpDYKCsy@d9cG$ggihz*UKi5|$yeo+_9?D))?OQaW^VEsdQtC6LZw_nu>|
z*J3jsiKE8X&bVp2^NmR?+)s5Igf<OrN2-Tx4p>Sm+;ZRH?~-m?T!?Xcu<9ytxaO?0
z{m84jyYTj?1G^L?3XIpGi%4M46IL$Z;L8_#zPO2EKZa(wgD$;w>$&Mf31enRFdcMv
zSp1uSIU@o6G>jIy7S<D~%}I?A@DQ+~YjoNeEMbO%ZNVhS6u`GD+;a+lBIf+yl;~bb
zIimLH?Dqs=BL;(T|JLScXK#%qK=2Kl(VDvj%{XcDU90D+<icvTZE`qL&8j)Fv`Y%f
zND`4ysPx`xAXWNT_;1|oqANu;lExD%;u@<XY-v1vJVzsY5Te+$XgGOH3@Zs;NT|30
ztBLTX^^+A4rt-!5>mPvc*J)yq5{}8zOP0PVqJO;RbC!pB(kk$5Lg1wi1(UETj><9h
zpFeI$75h&vzumqjHuORp!Ek6j>=<LqYT9I1W^Y}gy-uJ(aNyZ6rX8QKW^cu$6U(^O
zx9yQp@!|iUmb<a+rpCzhXYWb`)V6b9O}uDdwUWeg@I5Ii5<k8FvG4Wt&TC3KC)B+j
zClR?)(m(U`3GUC=cl*q9<<R52$4?G_di-YplQ&n){*W#g6c!Y^vghC-xtS%C?Rv|?
zr9mr*CBzy+Ta3~r4Za#1KvEkmgV7OW0&?laDZ^*~_xu&Zs++}^3sNyA#(78LqZN5_
z#_l%6F|4H^H|-)`lGR-gZpgS!rBjh-#om`aU><0vAJ9hXJrk*&$BG>{9G!E#A`<(W
zYl+)K6cgPvzCem434CqR8hOb#Ff2_oD=hf}qYAWHc!FSWOS*N)IVUvhtZQtjcRn5o
zR9hAz`Vf)LqC|b77Ez6OR!P&^XG>&;=`yUMfX6kE_VApVr_)CMk~9|XH4ARG&!0lB
z9Ak<R?_Hf@9BPvVZ164#a#|5Swhmrq1Rr#Y8IIiwHq2W{@Lv3jQDlz)jzx|gCEE+(
zq0z~+{A6d?-~s6y&xa!2lWG2obp;zaR&^7cn1p5M&=1=bYMkpB<_}$xN38t;ChRT_
zJU@_k5BBq7A9ak8GNE#gL=@_L`tEd3z}HiTurOFpls$(6xk~z(l8gd}f5C`4ShMBK
zl$)ma(|1?+xk7LCOU+kHYa8Kg=^VP0H(QzyOl9W<+)}PSOZeVl{!GaPZW@i{wy{0Q
zerv|ac?~H&o^m_FFD^8-BweF6WVjI2lqvM{Mp~hR8dumk>Bs1l<(SRYA1fKLP0}fn
z&t*Q{(UiT#C3Umkc~3On&7PsO7o%YqBW^QgrY$S03*DDDVJ5NTqxynVEy$SX+Zm!2
zjTbtY?kz=A8s<tjic{U6Bp4!uMM!1yu<)b2g^n9$t7wf64=e{YoqwC)VqJrP=}Ao!
z=CARWI+UBC;_JQIgmuqFnxXBK@7wb`5g?zez#+-)a8=~T(R-P55Zt@ySftN;>XCcN
z4|Bv=(F#PaX1@3@Y2`d7oRW@xy=LTbsf{zPuJ4tbYn#Vn<#{{96qikiJk5>GJ<aX0
z6LO<<z83V0FCzEEh|k7!##4;UEkSTF{ZW<6!WkIvK6*vIM&bS|p9W&HpAnq-wj?T9
zk0JhfTha2oaW6L?36f%QFQ04g)jGD}a%cOzYxzipAY(36dDMCx$-G8n#VaHZox%n1
zM_ul00;jHWN{TjqSd!q@D?hGjf_Px8e+F?Qvpskan?1TO?DVpF3zHSy5^@Bvg33g8
z1aBvp2lKL0Z~|<YZ6(ZLL|aVd4i821Gj+U11KheE$jUHdRF;KXTCA(%*C^icUz$79
zJ{3_XN^lLsMX;)cZJYMZd+nazTJC48zS`g*9%+8mJkjhJPw#kokCYRaU$^93J^m}E
zqBdUVsIO*o<SmQIUis&;fR>B(R`xb?Js@3A=SjV*snZdxJDs2J4=7qXE9y@_(G6=6
zr{$kWB;R=JPsjx>tl}H2t%y^lq-7trfTxBcWQNrUmTFS#bQU2}e4SsH2ou583L$;S
zHzOx}yAFUh;>cQe<26((&S*|zZ{J?xdJsSeqloRll7C5$wVZs~z3kp}I7wM~UFvG{
zX;_cBFIFZ1>0rNpv?}M4qXe#wv2>{g#0z0`Wy^J{WA%?&b84oz>L$XZlqkrLYeuWH
zK$nfPwQe-01pU=c3|58Mwy};X?JfDLc>tc2F2nt;tFt~sP*GcrF)`rtoOh&X)Ko-^
z5E`qx9W$HyF9mFJP!CoKT@O$Q?>Xek-KphjAsix1Y|K);Q{20kT5VUlh7qMr7#@WL
zU+-Dhe*13e0vBdxGV{Z0?y#{rUdLbZMN-7Zcrwu+C82&Vw}3mTPB!Hng2@=*sZnT}
zaz1vuS0w&Tm*46}<{|#jt7<$G**}`%rU_+g7YV&85Qx?o87)@?nlnOHaZoR{+?Ybm
zZoLdd-pB;@hm1v<G^OJCmV1R6U##S7)h%V4$E@IsWCuG!Nl`b*`Ui!1ImlW?{Dou9
zgi#hr1?C{zjK21q-TaU=#=mTmL92$>+|JtpGLcy>jG)K`LxuZK_Q*2zD+~k77Ed&1
z`y)9M1^sh#PH_Jb>ggKzz3t@!Mks7wrR^P(OmlF@!<%dOK(!08ZU?R;dtY7lMmjJ%
z9~wCB3u|vwFjhXWT-OIe&Dr191t#*1Z7tBS78Ic{a1PijCnXS!Um+GIxtoUzZR&Bp
z53Geg7(Grm(s@kFdA9mwooPbc8{ceY#zBuiLlu@AMW5?rCXgrOAYcm<%Qr<yLE<<w
z=2CIP>Nel7@UYU^0FARu!*~VecK*8@x`F$+UKZK4{hhYCVK`He;VSMW)*h__lR7jI
zU@pZyd0owEOi+KJusz6^7~YJ_zi$dI?kO$_zM2hqNU*nK(D7eSkAyR~ZsnY?M;xaZ
zB_7s~F%|j%4!guVB{pv*+bqWOMpZ5hn;gD0qi}X@;Q0*zjmTzZvGkQb>XV0$=O5vW
z?}0Fmd&2_WY@N8P?s|l&M7?HLvZm4U$oeVQ@bcACKm4k(P1q-!8YxGfu=WN(S$xZB
zqdUs_cD@<y@u%(O_`SRXm_j~VStaM9v)lb1^0S{}&l2JJ804L;)3>9W0^D1LlEVd3
zSK+o#RV8h0J^9B@1RV$Gg^~_X7-4CnP^lMk)W1q3&V3BFXv3Y!Yf@6~Y1wAgKhy$K
zJqPHY6j^miN8;53c=paFINmEG=X~?{?KpU|aLZs1`sS<pa}nEw_~w|W$B6mBy3QU<
zrfj&v`EYD9M}U^H2_6)*gYa!dXPPzj>Ww4v_((|mW3#&F7%*$j$r9ej1qB!caLp@R
z<m?mKd3Pn%it}OAv{juC#LaRbK*oUp*%xL&*$EIY5hBc8FLz8ooNxylc6*F-@^b!G
z1>!3@MbR$cHpi)^DO`EqzOQ>k+&P8!b51DXVg}D6zgjh@_-kLa4R@3Re8FFfybe3!
z&UZK+b>ZOf&o9X5>}#Laz*JHZ=OhZaR960~z?m>Cf+OI!ktJ4EUX?v<!r?xf>fxj;
z%!cCbQ%Vmm`wPv=qnU4jOWe}^+GTgn{MpNRSCVkXDephl;(0-_nZo`bjlZ01)R_v>
zT>229w@fvdzmnXdT)Z~QiNkSCrAmV2{SKqg-4sC0VtK{Jur(tf#+<#Nev`m`*^!&n
z%kfWN&ImdeS<~Wbo6-60xT3F3lJzwnnkJ9?aS9#5Vb7zXhItyRpVk_LIy)Cu!|M8=
zGxH*o=4M03=QE?&?ZjYXvPw%%$8GWP6dFy^Sa}|4T$<JoP7|%@w}gw+r_OGFC&h?i
zL&xDs3Wm|;JXkxkp^CF`)Vr?(1-}Sl7=MeVC;jM@k4}bmzYZ<me8yOPbw&dB3F@%A
zcDF?jmWeg3CyM@<Jk#jyT^_oSLT6?k36BwbkMKVY9=ikVTn>Aij-@3#ymH4Leh>A3
zJ9#eqDN8#*n)^zLgUEY&>DNe!W#(&e19!cGVN(Hd^K8`@shDe7Ji#`;!Rgj1x2;MS
zX4HMACZ7A9d!)Jl!FyM&*h()@ycxc_qfTaIDZQ@2%ZU0%v0drMbh=lmVUw}3(E0+U
znGl;j637lnUbXI#8hd$x`J<j~5)@0fe&6sUb?tIca8+=p<=}!5Xz**sP0;r(>FMN8
zK}q!R!iz(4hRJ!HPKI}!{dvl7^amJ6FWm}7{5*rC4Oz+_wSs&c(#u^a2+_ImoDj-<
zZR5l2e+Ps8D#PP#IX1$dOSbR*C1QqJ>YPIw%$Ep-tEzf+*%2EJBcLjnvM_~~Jx+rD
za3|dIQit{=R?#~6Z&x&367YR)DWj`O@woTkv+@2<Wg+&G;Np@$ou#OKHW|^puKpuZ
zLTU4c%@5+k->)%sg&RM3@lRd|8If&gL7x~*vdgD^+kptYbko_nz{w_TN$Lk@GjB%7
z$X%FYQo7-obIFZ<{T_~rQ^lt96kMe69^;A|lI%Qxf5#Up9+0@FLEl_Tl&n=zUNfi!
z@J85kopW>tEmKHz^zw%xF7^>^NhMX%8OUHCX)4Ml`F(DyPk#WCJNlL?tO%UkXxhfv
z7BpqpUyF*#ZY&7NFlz!o=34Y^b3mSw_W{U>A&en9vbWv$f$Hh`n70#~=Z*|+jw{%+
z>@x!BuQw$n-)B!g)Jh4n7?V_X7ETWZYxIBYl)r~el)4t0y>^rM_!La2)l^=PdH1;v
z>d~spYMQ50RAe+hL@@3%b5s7RU}eY9(DS1iMEPbFLxv1dFP^?~v*q!GcNMUqP2#$7
z1l;e0lMT4N-+`5!9zL<RSJEkW@7JHwY`v;fbFKUAp^F50!{paHHis|CiWx)2N6H!t
zX#+W_ceE6y>XcWl%dE;fXn`WVQno)w%uw?uuIiO+!*fnETYkPhkI6-MZ<{e*yNX&)
zfBr!_*iyE{k*J4*kKfT=IdPMxzc)WLBTUQ9_v=H<*yX6^pqGBHlUX)utd>*cRn$4h
znk8uSOss<7!~E)a1;d%X%CXzd_Tao<IwPN9W)Xx*J2Q$-6^>q5Ih~)TmuH^)=ok_A
z?3Y2ds_(s^+pIQ8a^^d|t{uAuZ1O&~w+XYa)(^IRzFqJH)AgWfu~MEq$t#yP^;(f3
zaMfilL3$yH>n7x<VG77H%3E*pSXFofC)TXm*f=WA@0}B>az--)4&};3THt8S(1LbS
zfA80RL(RPK6{VvA;%{><XTS%Vjr7kH${A1bv}Q?*Q6kjwYZytVl_={SnQaLXRSg9*
zUuI-_w4}cYOtV%}o@|ZXQD|n`RKd3C)2~&YZJ0bqt#ukbQ*4$qBu^=yckr8?_=O%G
zYV&yMhhKu7b+&{(soWTRc^c;%q;_QZ?T-d;;-M-wTgR~R1)*#F+17Y2nSFL9b}Dgy
z!B*#%w(FI%v6`_92|g1pz7Oc9=3xicVhWM!@LOx)u&(ZE#bKIF%lBsx5Hfqux-@TR
zp$sML=NG6eCihW6TlPlabDiXf;BUQxX`3e#N~?=yfTF5Yb|F3Ta@eW0j96ix=OcRA
zvW=!HL1xdR0|Uy6M5NZL&q%4~<}nw-f>zi3iG|ndeE(qT&$~9oK7V(*W7iUE@v#;f
zF~me3PwQ)I@#?AOQ~UUj^Bz7g%bk0HW7`K~Y|f*?6TJ@;>xW7>)`H2(lxZ?$Q657a
zg<i0IOe>Xvn_l*L8eYF*u`hieCdcp8f=oOwy|rV{;eq(ranBC@!9C)JtVa)CKZ!dD
zf86icUoQ4Q7ufgo*v9F=gO#9ZqZc7hi;I7(NH#C*kLjXvpnr7ce4aUmmfW!UwQ+(N
za`n%P5}&m6j!HN1Ebk-E?wuXy*b07@Cmkgnc60T07<SqC04Kxkz}n52gq5C8V?SVu
zDdEH}!w4hd-InpTdG)A$VMhbCmg8Q#hxYw6q-GdLDc_{x?d3`w4{kx9O`bK>P4?pk
zc=mJ2DULkn0?gT}h8Er4jV3?%p1fD@0^UT_pmqr4Mbxvvr-}kvf${g9q+SFM$3_9A
zaFx&%x%~UR6=u{Wvu*3t;@;|lElbcOkA8TUf77^(&&(SNf0fYST6{Q52JHO$G1IB<
zgc4A4U0{eDT5=A`&D@iDn+462J@2D-!xFwvt^VC&!#$?o1-41NnJZ*eRUqog`DJyl
zrUmhZOPN2(n6UV&5=@HX;p(OB_OWc<&V{wGp?S1iEH$-0UGSj=NcD{D#1j#T#k;!M
z7=Z)|GV<l1S&anfy{Y%xo?;DBd>!MSHK`wEr9Yc%`xHsVeKs(oVygCq#rz6mKdh1z
z(sur}2?xcrm7iSDwH#YHJxe+Kf=*B-XP(j%|0HMF-$uPaoWGY${G%Z$@aY!oW6cf6
z`b0tQ4J$otL2P=>?Ww)-Let@08S+hYxU%>^nU>0((Q>Y%@tbC%Hmykw?XnOX!bm*F
za3<oC{*p|$t9^)P>nTaxu=sT70zJ*9*RJIcf%ZEA??|`<&U?}p)>l6O9`3+}snW+@
zE2d8_mGopx$}XTX15=KtT+N&RC~sLVdp?bk%^AKVeJkKFyNB?{56x4X4gB>eSIrL{
z3{$*Ss1_Xb9_MY-bV@#a2i)yMvDdN=&XmO`Qz7xhzJ_?-;fehx!)oh$I1&3no$%x1
z<=C{!z-jdUHK*v(AGOA1JbC*2&*fg*c=qNT2UN^evJbX@ZEuCiC{)1p`OobAyf+&Q
z^=-kA<EH5xnGlC5N_=0&n2=S8Zm!~qRh^cg`n~mkDH_aU4Y2|oO>$=g`qMlosSl7G
znukBcHpB`(wlm%MK7WuXb$~S&$JJ?Tnni%fwQQl_d$toRE2`t0@sSS-_n`NXE@GRf
z6#;eRT*)G=pSlV+WcPxEu-svS%csc{Xyz`US!)>354O~t%UEoWZ+PguH!62oUC~G_
zQ`}eu*4o?W>+gAOK34)R6ZP?ufBPxjm>XH6`a3N5RB?ZSO_(qG)Rm+AA#&5>flfHE
zw~-dU!=r%|`Z!NBu$!_c?3M-liuRzwZgWng*u3N6L4o-O`DZd+$zOW~G=V;b8RbTu
zg5KI0sVm{jQ1RZIWb85OrI$O?8!Bt3oPQJKjsrhc3itS`zmoSY*k1o*jw0(;1XlCI
zaolW2FevS#V{uu>XsDL}&1grccX}RA1jkvNwzpj^;e5}OKJuT)Ir%fTC(_^Osqq7x
z&}f6OYp=_GQbXDP;OMFAq2<{Ha3NG2Chl7uUM<3U_qzB36>a}IIcX*QQ2N<(RXv-}
z0e1{m{BN#=m-%VFgL}LjeO<YKN~_Wu5NuaY;qo)hXpyjc@YHATga(1avmf`}dv_+o
zvLr4Hl%sH_#pjtwlf(nvy*dXRjQ0O5KY89JRAu?j)#En5$NlI3{~-<Bfo@B6oyXMw
Tbo^`gIUPeilk4SIT^{}qP)Hl1

diff --git a/reference/as.mic-3.png b/reference/as.mic-3.png
index bec5faca3fec304cae382c8d2b144714cce41bde..83d3a2ce2163ac2c87239e6b5d8365e7d175da2f 100644
GIT binary patch
literal 53414
zcmeFZby$^a^eu{kfwfT)14IQ>KtTi~BrJpl64H%|bV@gvsG!IaK|xB84(SFJ0R;(3
zr4f)0>E@2ljlXlw^W1aK`Qx5*<N5jM-iV8}zVH3scg``#7;`?7l@{AZwV#TDf?^v<
z{E{361*JU&#kw1tHsCwWeqm$y--a8KVwdoL{F=L%>xTbrwh&jfqM)GnApWfJ?)j}t
zL2-zJbm_c;{p+Dt2kYI6^DDn)Y9dmTCBEPDDW;^Pmc2wNO1*LR1I3-Y>!Oc8JpS<D
zb&Xlpf#_3R8(7Uw+&OZ5yTFk<(e8JiQJ>FnA4(bh9Pm$yb<XIh_v^&|XIjst1?bz7
ztma=!3^XJ}nc3L1y3Q*pdU2L)`g2tj6#v-VV5DFDnj+Ldd~EH%e>vxS<inQL?_Yhq
zo@4dPODsF{R=@n`?f=Rb`|T?7*x}!5hTn}lL>B+)w~)9ZE&Vh-$TnBA<fXXB`hTzD
z(v|z-8{Nk&1cEI2=*S8q&x1#XSO2Nf&Z~p+-&eUG7rjHf>BIZm>k^tTMnpzl7NGn0
zA71y0kNNHDD)si~yj-%k)wbExXM0pjS$X;MqRwYUoyTV~KmPl|b3erH(Ej@+#hcxm
zwN}4;D92>K=HIUmN%(Y}d>|bppt_?)t<W_;V$mtB@)eiZOuJj*Kx0zUr%#tOoqrcQ
z&USjF8`d68nlfq5kg5`1h*wKDdi$7$jg^^MG_&0`_g6*WG5>NJg%h~{%o}r^9t?NX
z^coX29hasW>%+x%Xxew)f9&n8EFtkYF?U2jXmPA4fJ^_W^lLt94V`-*!Y+DD)<|;n
zHyI}>T3V*a$;s8>hooMfIv*ty!fu(*?k^dqlu(meB^+lv+!Q16f>lCVy5WVgR?O{n
z8;#oX9Lg#yr?c~F`_r0i=O_CcR?M?|_6)8BC*ivMRZjeSukKNMi=MxEJk+3WUjMV$
zlbK{_XqeM+XNz^wHeQ33<t1VNef*XY%X3w3tVfSt-tKYn?#3MrVhk?bsf#v^no**j
zdtz=BKX%n|nEWO-HQj73N#4V*(KmD6c;j|D+4cgLbdw*a3vF`v>9#9I%N~wS5xws9
zt(>DUJ}ShuN&nUN?<y6+LhAHqZ53|Zcr)eZU;g&x%e_hEd_mF`0X&j2g1_%=r{nA3
zebC)~(`CLtYM?DYx6$#!kL9CM0R~+qPndVEZtRXn)OpuaEIKdnn6-R2w^Sx;xz6cI
zy*e!_9VPEJSFXKy)Q;J(_%Y2uQ@Zi@pBgDQ9}U#U(OO$(a&O(w{TV+{CeuCL_wC|n
z!Gc-!l<QoNKOVI9`+KoWx_WxCV%`Vm$BK5`O%&O!%d+R+h4W=#vM=iXUCPk-BUQgX
z!&E&%BU?_tD)>ctkDRS-hMc^-Vv?3n+)#DcMIQUHYbRCSo%{0TOTZb^fT#3lk4Dw9
zMAgQ)EKK(YJB=ilacJf!uqnkKxAn@k9hO^|9^SGz`sG+io!?1y-xn{K{mYs0YA*ds
z1N>6}r_KWb>pt0`sd+A^X%nd+f%^GeJO>FWsq`ieHa1DTk?deY0&`EMRdfKi;hTM2
zdImEit=J8IxHc`VU~I6k(ZUt2lWJ-2%C_(47BBT?;CPo;q4)gH(Q%n+ZCIh@&@x$S
zpRgI}Yqcm@4J7tQJ{-7Q^k7?Uif*~}aC##vC+Ag8PEKMAH)oip>s9QJdtKC7T^A#-
z7$r?V+?*-1v@oMQHBe7;;6NN6b$y(&Ol_nT+bK)CGGCVB#}#|SwelTR-IU{$q|Vw7
zRkJ1Ky(xKefbH<%^TgXec|vS^_U!JRt=MX6X$DsxwFZCawCKCN@!-4Vk#FH1N(pLj
zGfbP+hW(#C3vEbHH=Y~sp(MwBh}O!_@jIdVrrmWx%C6Ohc$P`Cv-ZWGK7H0pjln4$
z_?{fDl%!=^KWv#j+2%Al7hgMJ`_GxclW&q&!vP*{1WuJ>*ArgnwjCLlpX|@U-k@3>
z_2ej!O*g8~^Yec6=v&{n@Pxv`#qshR#r}SNkv4-3s%|T@UEW4@(N~iPP9*A<`>8T2
z?Ap0=vOg+h{z^beNy)(79m29bWiRd~t`KLgg13FhD#X5FX?bB(-Oc}!T>6RPf0x^R
z{O)@5mx9Z)U2DX09NR`hjp}1_Iv*TZ^eaSINa#nXW8>gR`uy8v@poy1b(C}vRSVT2
zIpKvNF5~$}$AV?$<jC#gzkmOpFBMt7dL&sPUgevFJ%g~b3O_$Tb4sv*=W0mRRsW*l
z<aW@qov|S#fX7&^mbcYf{{6Stj~+duT(;$-6D`pEh|rMGzmdWDow&`tz}~xUIW~iP
z>P`m<*ibnL;qBCLpbA!&of6d2CDb#`>SN@iZhEoER(4vb)E<+5EsGak&{F39duM%O
zcX+Sd$+kIXGPJVcN>oII?@d0+y*gAa!C|+$O5SFeX?t-trRaK2W%gd|Tg)E&xaFc+
zX$0x{WM8;9D=#l^#O#HW3{tC)Ds-`9&$jD34Y<v2mD84HhhJn<j8!liobG9PSxKKT
zB<bwzTs>$%{X>7M`r?ikkJcNiK3=`?o{gK^Cf;X%>GtyS+9WzI(p!SVMpI|`;i!0~
zd3z$KPKk<Jrg5Y6L~m7NTfURcudn;~gQT-H*!StgE2rvJ+-Z0J$M>zuzdJ^@z{2yv
z#JMY1ys%TRw?<yakua)>Abrv?YRO8@Fl%KcH5IzK$<DkI!r_&jk_kLh5iru26r%U_
zCACG}<cGT(@5Y{0_%HE=!>dC`Ce6IPEg)FH#%Mj`TnMq%Yq6(IWy?=!WSxq(l=Np$
zk6amDS?0KQVG74iz;)4H)+RT|De#f_>Y;U?*oB+Cgh-yypKaA^g!4!3byPb<*d@MS
zS<6B6$B!Sb<!9-(3#}|poUeD8pENXXGRxd}Ld11(HgrHrS~?@LDp=^ix7E9(*qPV+
z2>D|$HZCz`d89h*F5>e)A09>onir_PU{m(<4LL#2XA!Ew?%$YFvX@9{0uJLhWo?|y
z2C;oQGKW6i-*Q))j@O|2eSlV~p426s)ubyv7JTf+jT@68D~qM`3uB!{Iel+DiTr1X
z*abw;koWpE-SCf8F>UAH_jBw<6Z7)&c0T%ImTCO+)1!uV1V@FyGp1=q^{j)}jgY5^
zJl5l<&h0SX9XePrQF%6@zfsFcit(~nb%D!5{Q49`Duh?-m8F?Dozkc08=Vl*)M}IR
z#veB%X={fLOK`15diV9C4&7u)_HTCWF8WJE#Avaqin(6&Af<Wu@uNpq@yK`X+*ucT
ze%;hatGZQh<;ia^m!~reX|fcHfCm0VN?~Cwgf#qs(YH7EZ5W!rg^O)eH1}uMtczFW
z8XV<qv%g5IY3*ZjCQxydMp@%}tGE5<XNQfN(hT1_Hm4be-@CV-B<JXu6ToZEp4-YE
zSaB5p&23F2Qn|!xDyP7MzJf52X4NZAq}`e@@iGS0MdT3!grha(m9P2b-BuRb@5VOj
zr6L}=vOZIp>Zw=OuFoAUh|9{#a@QpyRWYsh?)k#<9`e7qiTh`E#EsQw#Cl19!nfeT
zwgW~8>P>kLI0FH1-%9!;GAWjQ{i=YlX7jt4HV$ELej;QgUfnEPl!n!JsF~@^86}SV
zN%BGGvGY=|`L0g<s;EVze}S-l#<VF~K1w=gVI)^E{PMP*?(X%P<_NH9W~~B9P~r@(
zvtf8nkrzF-6Or4fIU~UgIA*H9R?KFgZZk_;qGs*@wo8DpOHRSuuLGvv-<?N3^A=xS
z6~4may*gJS?ykmlihEDhxmUmbp99863=Z&`DO|a7C0QGfNhgALHF_MU{XYlItR;JO
zj?k|nSBgW{|1ES~{pkNb@cgfF?*FnEXKwwGYnL=+n~UGr?F@kAUgbSCulcR&@}2DP
zG|QXx%##djBSi&TqAd#Y?B3J|*|o7?!!?`bo~#Mm{e|AH<uLw=#rOLz@Ui~#TWVu&
z%S`j$%Aov84zpYWr2^gq?pxgYxZZuD2DmH1wFSWR2>td83c(AVF)=a3alqsB;`G_R
zk)i{^_>_Rld>Z0m*urR`wz9^p`{d`(6_am>VmnCe5S|S!m>*yR9-G%_+so)tbl9Wl
z>f@{a>^fdK*8Ojq%?mYg_Udu65=^J3Ed_#nw)3<4md;c@+I4L4=!#1|fvfwgx4aT@
zE1=u%kyyAqFYdAPw2l|eN<wCv+Ks`@Vh3I*#ee(U%0Aqb&c>aTHEcUj$Fl9fnJWk<
z90jvC!shnv+b1gE=S{~i7oEs&^-E>K4M;Kc=UH5K`d4hiyIPTay;j<Z1@lI1eu(HE
zd3j8xZF#E1-p2|=ZDG$khqM|iANABM@AqY)`M&V^nZlI>A*X2-?N33{`aVr7Ey_t+
z`4^tn_gfnQ#SwsU!;XXTfI2KFEAYcPLn-CfRYEg;gGq(k`&)V}v$@@tou>vHWw1<g
zKuowZ$E88-6{>*=krvJ%VHY*eJtu3ds)V9MR_3Z=m6L*Z?%Jgor*snMhXhcQ2tc}L
za{7KzvQBCI(y#0h<eB-!--5484YN#IbL!Qq0IeiVgmiD~izMbTeXDF-Qud?iN$o5-
zV6K3ZJT*}zVvKU*?LKyjLkb&;ZILG@-mlxSm$XLvOkjoAex9<MdU|_e^%2OGveVMi
zHkpvVED+U@(Xkn0Ai=*6YP_fXqGM8)HoHGtO&G1kcsGeH1K?Ur;Po?lVdw9US9(L-
z*nMp7#XXT=Y%u8lQGokm<u1$`p01OZ*+<grcz;`~H!3QMwqHfqdDbE<N3SZF-ZCB`
zF~!fJ+ed8CZ(HMBOJLAhyFDtxXU;Ud7IHcht^4GQd1+<P*^RBPA+GZ=oFy-jSdOHx
zWG9)m=1|hdHKWwL8=H#|r`KQecFo|~TR-m^)<isN&jHd(mGflrotb{gsUtDGI9bZz
zrZTwH<t-Awl4;i3q~Ff^X9?T#eyCL;P!mh|0cA&mX=|prc0|!;&k4g7QAv@!<00Eh
z7DpG<TXSrl)b^i9uvkNJIQG!)ay*AW$wNp;D0&=)Ot_f0AF>w8Cyi@bOY>9Z6-m<t
zi@hQ%$&vE%^7T13#>K_OG{>I@2FA_K&em){8T$g;KdEqe|M+QyQdz{X&6nh@n={Qb
zBa^azKHhX$jvIT1_4kZYR#P<hjVG6HH)Zk-`vnIl5~-3riDjiZ`Tq2g*S%Kekyl<F
zA>qW9RaBtFso`yR4li7uN?PMzQBk3Yjhc?2A9};{3|3nXMNFDykAx;ts#f_;UELVf
zRJ}DE+M~5m-Uv93(?hC1Iq&~`r6255+h2$JRedOjB9yz;vizh3iS!LYVzSk)JqGB;
zXZvP~4$4e};}00co<`#nC=0f3XAsuF=gA`*0%hQLN=iza(~KEWF!HuoTwKriG_N9%
zSF)^dceH79#(i=wdG~?x=AAWUX36+|r1~#=ca5b3+kd7UDgxe(?-yC>m!bBG7<%(W
z!cTvpAyM;eyiMWKbhBl)hEZ!yI(zO=ihGa8cKZEw$tGS`fpI_Xj}u{b5w0pPuRUO%
zcbMe3Jl9*FtRqIM!A`iN=KAs8W+h8rc6Mp=g1JcB(Kb`&$3fCjr%#`rL|_}l^Q*(A
zLh?IAO8H^p+U&46`@6w0!{o=$)RsnVH~PuxoVO7X2D4+G0f<%j`Gl`uul$QVb#LD6
z1Jq&}3m*EB8bzS2oM5+Q2exc=R9s7wwK8R2zWCtrAolPWR3C~n0nl@9yTJIGlO%^b
znEbGj!2lH;5ogE8$Ga`FeS?A$o*dvE_)~@o&$L+0WB=YU&fCNqSIXl4`Qei%^(b<f
zN#26vn?xelo!eKusqM(=lD^8bqjfl&%p`wp*X%tf)gp+BfHe>aeST^%&UI;ipfxws
zbzzt{0kv4#MfP2mR#wc9IM#16==^w}909T-#&K$Z`e|gJ>wNz)k{kfV3t!*eod#t`
zo1$-KH)l!(p1HoX<|GG4RZj27E*U}Uy3?r7Oa^!O*YJg)UapHRbX!>_p3j~WDxs*n
z41rT)wF?W{drF@i(3e6GRl}BGJ0$|%f`&~=0o6YNPCU3B>nDV$M;KJJ9eQX&CRml?
zquDic3=qhOpRTE`wdr`jX1Fb1{mFhFR@rH+^Zv88@ezwI&rsp*=P^>57_5s4|ML7;
z+=cs80jI9t!JSP3P7R<eJ)ZnBVsWDOji_f{0}TU15@?D(tf$gji5EnfNg}&0{uWyr
zHg}uYcTrV#kGDL9k4-7PU0;~T!5YLMqJ-A8s^B5Ey~Xwi5_`TOB&J*U%aP{j7lE!F
zmrnOp5Co6YXntn($~vLj_079%GfjTHp=P`seg5u-hP#(bycrnAIyu@1ro%tj;nzMM
z(<TL^4K0qIR^mG@)2f=Ni9r=9;q0SmIF>)t=0t3WMjO+nv@dFnz=+zU8a!9kzVq~=
z4xwsSfBwj}iu&2rrJLEj&h^XuP-<2DY>R(m@Ze;BEwM!}d+iMaj@xaoQoc0Pp2RHa
zcW+YCPD#m6cxBOQYPeZ>+kS3YXXiZjys-;Qg)1{Flh{7?`GV=kM}yXF+}?*s@J-iW
zGZMrak9nJhPKnnyRFHR`rboOMu#rI0B}ZU&Xmbldqzw*dwkrW<*mT~fWd*Dzk{(!*
zDO3t9Cr?(4ZaS&sMeqXp!48*^$K_wJD*C>D9S;aOKrku*<j(9X2rndZQ>M9j{fmHr
zSORUZu&@xcS6!~%XlO{zYk&VJf*~QuF2M0HTo^%KtlO}4(?G@^9;3Qvt!9~*xBu$y
z{_}Vd^ArG6ehk|JeTK<8xRHEPYA)Zt!Bb*@D<!BSo6-E40n|)#xLo3Lh!SdLd31%q
z>V<>HAOB2yLNHB6zrMc8=?!+WCT<Sw3M#a>pdM)IY8zUIo5L<{Oq#gcTG~55*Bg?+
zFl?4Pobk->q@=`8XIFN+W-aU-BD<Rv%;_258}?vu?X&xlmnTRRP2{>*#kdP!S`C!b
zjTDJmuc3X!bSlmM_l?25;D@f<?oNzS)^@2Mv?hJpO;zQwFbsx7#YXh*&uRXrbo@sE
z^&+JL)mDsAk%YN+aa9R+aXm=YuNrtRBm50mFigN^;5aUrhz1W3DaSNa16*#pJ#H%X
zKhn&5a%7op*oAf^gDQfrx%Za^A2*0AVqf5h$zfl_D#X0O12P)x_z-Z`&dlfF`T-e`
zqBhH~xDDl01~*XLBfT8yacb*Fxoq=%9$4(i37ZW$=L>t+?VTQJHO4XPo(QAG2|0tf
z9av=(q~4fjSW8v^?cMc@abQ5X2_~_9qv@yO;#XB7D|yv92u+!x2kU(N{q;eigQr-T
zut{C{`ANr%Q$F%aav4FY2+xR_n8f?s%&{FFnCd(Zp5we}GpHzi=@8*zE4QqQS6rn`
z%*>SWqhDWf-M_JIIzQFCU6{+fO)$jf7&G%LgfL34bS4mkHII97FgPrQq@!xLG6)Ms
zyAVsCWCP;3BF*62k&bbMAGWmk-iyX1Pw9=3(Y~5yw*E?eIycd~&>9S2@}(|Ov)P;u
zr)6@EVr!L$6nN8S0-Y%!(8<ytlL<bdu#87Owoh5rApF{mAii5SWJmA+?kZhq-4S+N
zx_Ph8*TR)0bDhlQCH4iRfmw}0{RKzk+-oz*ygP&@pZVMbOE#MMT7T>9gO+>5NrE>M
zm@0dNfenA9yUrB#1Bxe1gz(}9)C!PRuX~T8B1j%+2lM%Ta7W4F+(g1&P->b6%kQoi
zQN1o&>~BhsQ#`}S82;%7RWa&>_#EOfrGK6M-6f@=@%oXcCs(;Y2S>yF<ArDGKMzI~
z4_ny_&wgtkjEM>!&shdpv0+FOalNAV;&#bY?;+!$;{GnN9CNkTOUg|P>>8#tLl+w!
z=em^awZgt}cR8=!>-k3bX2r1f%DlhN%^};fJJi>?pMJRBoZ8;?2iQa&a2?lUczu~#
zKl?DQ3;y2q^XFIO$^69f)I@@g9vlzWZW=``94c^*{54)Rl`1}tX=h&Xqtd-P$h7@P
zxQco>&y>G<fBg!OWY7L2ei~6>W{#Qj`_nKcu%eQMGS$<IWO|chO(%V4Dv>zXHE4t6
z=(6B*E>WvFdgbM{;&H(CJ=q8C*0R1NNTn?&3$J~+6Y38dq8(qO=rvwG7UF!vCe$UL
zRWY`k>s!~4qqnsHTc*@JdKWrSopay1bxTWxw`EkmY8)*4n3}$-A)YwBfVDw&@`J8N
z?Zu{nSHmw;<}Z4SEcfwjsG4p~)t3pI`;ZpMfzpnP{Po%4i;I42<(u2c0wGS0I0*?h
z_O6Ct>vN}85WHs-iYCO?nlB{tm0h?q^Fu!*{l@37Ur%rs0>)h?C;u>6^PDQUITcjh
zPEVHI9C>4R6dSQm^86eoDtIrtnlH%t?aUMHx7vN|eBazU*U-joye%D5OA3ex=7T59
z7({AZYTt|$iVx*lq${4<+-6}CQr>e~Du8=)>{GJ%*fL;D!+3#kIR%B!#XFgs1ZAFf
z(n;--AWN66yy4O<+iiuitjjW+5Rp{Vjb2QNij({6VxBkR*eiqdd<7<eAEZ-QWjWI4
z7GHWH$25M&$>>`GK{)6yv3Xw|6mnFV7`DwN$;iy)v>|ovB}Ia}7j8Z*dxux!H_8>Y
zLU&%1@73Mi-6|8Pzf4XR+77FQBqQR#L|yO-&?gY={j2!+6Sxx8&Zm*3^Z+q_MFyIs
z45+=kcDvEhcBDo1S|H%AVNFd<{5$~HSDeQRJQV}zG4k>2lYB+yyV_TlGpE{a@zLo4
z|NlZ7OD}WAZV=AQjR46}`k3+MH|91vaBAoDmr>;MK#bsVaByfi!yx2X=ZuFJ37~wG
zmpAkMIEac9)q0w_wmi@PPWAWqm-JZfi>ft*l%<RKs^>T}Vv5*8ReTDi-&)S^CTF<J
zTKKGH$F6r-3rIm3AW2Gcq2Ns`GX<`a6+(^Pun1rmfE4i(x2xJr4h}Zk18D%U!aQQ}
z(u+*{qcXu7*8*?o=v2fd6&MwFCFNz#>Bc-+TWsXTiF|o#G;iW5@wP-2*2KZf+c?ye
zUhcJ*^J8omNa`^)v3HM~&jgb`WM%Pjfxff?_<D|@{8~DS-+A^O&sqg?402i{M{w})
z;ILTWwWf*#RS|}vSEqIPKd8&~TJidq>kib#=rFxnvu?xgfcC6gI*dKu-^Y7#&e+FX
z?FV9_zM|;z46^4wI=;CLJmE`-NsM0>mqy)Y)JlXN=aZfvT{Aebc)hss#lFsmEYFZK
zQ|(6E){-JoiOip1s9bM;)mPz8CZEgps;Y0-$Wse5qnTyO32OCMz~Ryf+E??@Z7234
z0FP?EV>%8}zTybVnk{?X3@3exew1>sxzx%|Ycox2@-?%{iU?{n+l_UcH+BVo_7!>g
z%H_)sXsqzlKk}V2v3nigGiZB$v^u-=M0_K~r45_gj;KI|w6S!8##W?c9!<(YweOU0
z42!8@Q?IDRZ_c=@Dq*mNIzCwN>;Y}JrS!(r?EdA1vc)<xk~`{nvJp|5@yp~ueR=Qv
zT4wvAecru&H)d!#sw6jSLnsTmwV}M<I^cj=)`wBsc8A`e1_5Ab+Hrvk4x`_PZHWz%
zG)2d6`H7X+y07|K*CyJT&*x_R>1K4}mbH41CK0?_+*6dN57L%#BG_0MzaS$<i8pgz
zdruMf6wALrcX$pofqD;gu`OTAKYu<&Bx`cs(KkYfTc6GEbPxr|FXdPTmX5wHc5}Ft
zu<E>&I)JEcqTmglFx4W39BI7TlJR?SEy#DNq>xTC$V-`Jj=9#Ytpz95GbVGKuQr>a
zx@mA+*V^=f>lPDBbk`h^=A@c()~-Be8(};3T-yZ2!p!nTk>yz(<7I*wYMA=2<4t2A
zHWP<a5{Z&R4`=hR_s26wQ#Nbi><HKn8AL2HB;`E`tt>C!^0IoI;Ft?HlPx}V0|4m9
z&m=8OO9v;>YCC@$^**l4@<BbvX^{D^7oeq!Tf^lk>QVKHyV<cHg~%BoF&h#d<o#~J
z67x<Ua5J1Dw#bglhLchkf4KR4xBEa9nXq=Ms3_efSlRW`jrG89`Uz9s`*~vP8h22P
zc_X1M&JQLvd>IA|+@YQy#?+tpWc@fzc;*6^V*}5PPn$xfhzQnWmeYT<a8S_dm)F$W
zUjU!uYLQupwxv2(mR&|$Yzm;OH0TZjByVY6dMms%DUXB0#HS4PGJP2(-E6)>rN3<3
z+1mpBBhn@y*DpL}q^n#a@B2FV#*>{@!Mj)YW|&sw!cR{QwQ^VNP0_YJRZQ)mhn@Y-
zBHk*Fw5ZEviMjC@H=KxW)<d+xws^@IUY$p%OoL#~wAVKDu#YC}()MdQE*l?a;kLOD
zl>K83v0Ke0T-5*cZE4{sT)gpO%C=qFZb5ji`?;1shf(el@br1NTO4Ja!-I6xBkRpc
zK~=3Aw$m9fy+Q?<6fzua%60wYJ@+Y;o=x-Pqk}fJQoOGqM{cCoiP)Kklacd8`oe`f
zKTr-eT4rZwD>*MGF5jBC(j*fioPX)YI6yd;){IAm9@nm8(q4V0-gl@g|2#(7o%e{B
zhg7w@d}$R-^5VDaHe{Or+&R>>F)m^u^248;COc=$rn5LxRFv%kz@a2!j<*wS54~Yw
zUXHSZ-e+nZg|jEkg*^-m=2EmhF<G6}kcA2-lE4`nJECHBEpNM3N-x|?kH8Y(iqdeg
z;W;V>WE~P2T<z#g%$TU+&fi<XOF}pIWg^f#^btb)2Y<W!z=4*-<6xo;Ktc>aBSpm;
z@#)j2wK7x%pxBvvMEDz*>Kx3QxxtV@5M7^M`Nq;bjsxe%mkCEP`cl_e4~z~w99|I>
z-MltrEE_y3$uc*`38J`Ta9h0Uw)oqlJqP)W+i}u>M3i4dee;0M+qW>O)%1IuGKZ!^
z&kN!5gJA6faBeerhAsFe;bS0?&zQAD1J|Hd_~uw#TFNFY+~ybpYruK%TV$&Ib}lY1
zo5{YbBsusbY@qwjJ!wx}1b&dcrlo2Wel9uqzzletNocHt1pO!>ArThk=r;CYBRN8n
zBR@^NS)nE4OJ!xojlE|~UgF-nGo3*#B=lQ}BndV*HgoPY$#t*-vuG>;Jtji8oJ<xB
z(bv^AL<%8C_%Mn&E}0}L#E?hwCZtI<1b`EcSsI8-YQT~td3kL;shV;rDStYE5TKAo
z;=U46c>i1f0l>yBT@CmA!M%i@zsr67<9cQ$CIg%;qw3JxjVZyywqO$6ZJ@Ln3$U{%
zUb;bbAKVwT;Ak8MBLIiuM2;q3rI0T81sWX8A^zZjPCFHtG$sb64}qC=ZaDBr*fMK=
z_FE0_lTQU_m2Wl0a%Xa&0<Mjc@n<5cDUfyvZH|K{6I7BfKmysplK3W8BReJH&eCa$
zb3e`zQ0n;>P-mXvTM4nLeJ(jUIS0xX6A9}3m^w7d9N}JvqeXW}_E~2K<d*%LE!ZB}
z6QUd{=iRgIC=lNwU2UML#ZpHQ*Nw}ZM<_}+Ze-Wh*DpsI#ZmP%uh(COBw*S7kY`w0
z+>gnw^s7H1U#0B4{{eK#g|M5idfC3;E9~`ufxuSYt!>yb!(;X9>xC&qh_`Rw8jg2=
ziN&6Yln#pBPA?D*jftpg+w8lxC2bDEF;)+naa-(SIGlbvsx{Y6y%x&Qlsfpl^oF$F
z-ty_;=7bqfJO;e^i=ZIWe9$v50t1cns|06MQEyVk>tJg&OoEm<c*?bE97Wp6Q%NV%
zeY!=IGI0nc0O^&nqj_wHRF=Ta*8{R`p^FMG)q~mQ!jIjOx0;WFX9zfW`lk5%@!&@d
zsC;+7?EO(dkWFbOr-t{K;exgeyj-qwTkf)PsA9UPrKKf1I4Q_pDJAFIJ?A{qlHD)~
z4yGry1(E?X32>qjVi-tfIB9a`eg#fpcN;^kEBpMp8XPcHp8oQ<f8lO>H(we6KY~~z
z)+Qo?39B_HG((&oXf1NC2PiFne%frDgB4@m`J5MalZJ)H9!nNpUS+50p>JnL^9UU=
zNYFtJEMq=#yyfzJWLvuG<VjQfl|8QxLF`{s1&U~=+vZ$xAeV2Y-jM}{Ow&P8KQj~!
z&9w<X4-8KTV=ii`dQT2I4RLC^Elq*6y^3<Z#A~1YwUsp#m2k#*zPI{RhqG~EnVFaF
z&K$GQckO1=GwQdBlGmU8nVz=(Kovo{bc}+W7KrWvwGau`gS|UT(BbKK*8Xp~%-P$c
zYE_S`{yKSU&*z%AusfU!zp^g5d3Zm!!87cN2rxm$-`<Gs7qou|LO7n_zd+Fk2szo_
z))n0KC|JAXLeHxca6x6ar+CtGK$ljCmkqnqC~(1M<TF=Qj-c4e>`&F@77o%Mu*yn;
zn@AoE;)~$mgVrXZQe%5EP0yHozb1t$;MBD_fU5d{M2IH09fF6)qePZss#9(^RfOO(
zRcpf*Un;juNZ}AC7`icL3ObC;AjIu{sZ8#*nh`f65!<(lp^#8~;#xr6DM#2K^7aAh
z*W+*c35}3?8sb%pn;)JkudGxecv|GfSh=?nP4BMX{X;*O!`GxjP6Gq(9{xJhv{_Fo
z#OcaCuA^=^ox5piqdeJj#38o51Bra2VheXo>WNMIh3~lMdE|cY`c!b~jkiXNuxr|s
z6l3=2$8SoveLqcW-YTXcm?@l%I8+S%V3ofydJDc88ZyBtk-(8|0EP0gK&#)ax6aDV
z1V~itM_GyJBN%xG$rA7*fgmfW)A<e|v3(9+G{_465$^u8^UulT8&ab!*<9Bgs_va9
zX=JGH{7nEBuy#wjE1>Thz>h9A5JLKAMsM*lhTG%c#25&f9~=HzZNG1MPs-(NXCxir
zL4ZBf9}Vu!3QB~Rz*TI1{X%hxi|Q>%%|%TP@rrSN@Ir+G$RU8sH!xe|J5CYyE5*u*
zJ=DSeLLRI<Jc?vrUtfhokGd=J9444Zkbl_6-0V)A36zqK;)<qL9BIsEG(&lGlx1Zv
z75AI6RA=CFDrSXpxdW7sZE#uh3+*fHEGx6Ye7D}5F>f<@(l#Y1-AcL{(+6e3tQib(
zX~1-zi#u=0-u&Ms2gu{*8#@p7^!+kx2i4y)_;z5q>Eu6EK0a?9&iaG&R;>;GV(lh4
z^XTl=J|(%{35b8Y#TynD)_k2PU-|TC*B0l4G{rDs=}YCduhTsbodb}OklACg+nP|{
zR4?ta+u71@y(i1M<v^87->}CMi{jmn3E~|^EP32J_nKG;qkV7)Nd%xyytn*~Yn#6U
zLpGnwqQOw$<s0p!PUARnvycis`MVpo)xDLZeZnB3g>tbWAs^*J!CK{kdlylT@O<Q>
z%Y3(n;vOwZkp0M~JT6G{tXy2F3XN_fCn+n_U6&k<bNCpC1jTH!N4NA#V&#E$7+FNF
z%kB(!D596a#oM@L5pKQFw)}?ZZ%8q7`619sN_~BN4wDEk+erS5Ry`aS1V?XTVse{$
z2b*%@R--^<vIO_==Ve?~PIm}I#C*mm0s+zy)M$L65QpvrohjYdrGqZFj>Vp}8yT`Y
z3+g_>=OJNU!XXXc?Ag3$Bti@piwmqP(8#h^%LyAdr6!Xzpf~?G8F9`M2~n1YRpDL3
zAa>-ZT{7ZjE2ouW<lY`JmH&f74;b7W0vi<H{Wi1NEUUS(QRviCy80o6{+h+>WfL_$
z;Ho#+4Ep2zRR>Jl#yuwUg=`cMnfqy({n%wxqpJJ*t*2EML_&m^8w=1+_(K7wsa`ry
zb<Y)5qH^d=Z6QhtHVXo=%<!?BT?vDblN>2&^y!Afo<5bC#Vg~s&5>kTIhXFAlfTQ2
z+UwevJwFvZ|JaDb{A;?nq{QgcL+XZhZI>xUl|j3iZ*Si#YptP>V8D~h!JbU;Xn2jd
zPb^Ngzo!}es^An2lN&@}k6G)#=m4K=EpSVG;X0v?k0D4c#t~gOrD-?6><rNjaU5V7
zlq~P~aMv@hvgUE=-te;{Sr<{zlPmOU;pc&H69J{`^5)H(VKP+0k~`Z<2<_q@ar*2)
zFrrWB&o=Zf!hlEkW5`7L1P{nJ{U76%R_m|4d-T}~j-hja+LLE5l<f^?k&jey)3*3P
z*^stSU`w6^|3t&`0OlX#x=W$muk<a4T0Fe6#SRDrNiQK$u4&BGDc!!bI8k+fIRyFs
z$<}<-5NjK{RNI=1GRufFT)!k6PGspE!S;%!e<BdYNo8)EG_TTRn!+D>LyAKqt6D!h
z#BEs>qUv+s716~OpNimNAm8Q-<r|GM&&4Vw7_~;VaQ%?2fpnf=)dXUIimtRRUc0bO
zp#3NllYM@pMOIZWvh#jkv)2)e)UF@A3aY+-P1`99F=Mk)Yk@txTLn+!?zlvY@6b}%
z3l}Yi+Y7Z3+Uk+~s9HG$o~fJX*9Slhi`vqn-&hNVT}LWcY{XyTO4xT0bHA!WI9OIv
zk5~6OcS}l0q(lnsl5AsQVp0kJeGIgsW|%BlBGy~uwXmz|K;VYll_SZc5o76!hdNsd
zP=6VGAv3$~8VME|y1#JVAXs@{I!Nbun{^Z)--mvNgX<b(S)ZFsgddm7sP1?wlDrjE
z+Bgj}vqXOTvCvm%?GpQ8_VT$I>^Kl}VG8nCb1d7*lL^&}fJ^EV%=>a%&4>yTIBp*(
zbS#7()-n=Ht@H}%+WtvvY9a`vxz@_My1KQ4E`te~Um>AA;VjA0V26%yur^6s#Ml+Q
zFh8M0<uqlO8Z*6uJ9JJXq^R@VK)`8TiATi~a7?P|7Qk=0b^<nIg9;}IulXgfo<G-l
z5d)o3HOD$8y<L;tpWk-q<y^<z9amtQzHQ&SP+m)@IiXhyU6;OMy|3W56x;i2qoj<C
zV)yY`Tni(Zj`dCLaEF~De-)+G?9S96y*y*8R()$e1x!8T7x=VluLN*^8EP+V@9ycr
zO`^&;1CtrS8#XvXOVYkJM>q?<(*o1v@LTsiBlyObi(NwidA|ta4)>ov?Gu%to~c$2
z(!R+&&%AIc!{;VUU+LR3i7YVdypPvR<MuFq@)u}w!f+4?Ch9VIZmLmxsibRosWWL2
zW{fQr9FnHHk2j#8OFH+O;Q3xI>I`&$d9DZ4_zPAwPOvK(WdyXnc3@7fB?I)Q!R@M9
zz+1wKp;kWfJ-JA5{4*nELo$H#g<JL+<w$^wl`{=yAM87BZ}eiSg>q8ZLxfZtA-qsj
z%|8nJX!rMJxY7eqckcBly6*KwgdO0^q|JFkYS)1S#xI<}Te>vttDMMQ;1VYj_fp;5
zV<uxB;)a_(L)1;g6CyU$m$EW~qT2g>MN3*nh8Gc^8zAIl^%+o@TeI5i+8jz*3&GTe
zc5S<?rWR122*!&SPSWF+n%+XwFKP6V=f8s8O>l8Vwa5ilYHhE}OtKc4^9db)&6Qxm
zAA~l7dN}fZuROu5CF^)Nz;;h44>Zl+lXdbNc)&L9qNUaU2^j$I<Vh!g_5K9kHsz2m
zl>bUXc$Q~SM9rxC>uZaX9fp!izha555ZK}<L}^6Rns^91dDx7<@N_to7CQ%?KZx_z
z_M49k8~Q_TXDEic+Gk}{xwvNk3NZfKl5JIi>iK%mmKK+m!NlB3wJI?EKQp&om>MtV
zP#@K?)80)XYx}I@WF(SA0I27+$A+(I6-$j_kp(*huupyfY&B+G?5EhLa|K}hZd(SJ
z+1dDGbf9%UrCu-EV7%<UW?f!l7XVdyS-eW}N8?u>2OW=h%n#c--CpWR&@u4hgqE<)
zF|f?|j$L)=dCIoJ5suttEg{Fr<FX$5KZUDdzy3hb&9ZbOHw{CTvCw&DrEuPuz4-F^
z^H^>LYA#;#A9>1#_^=D}CdBRv6F}9WTVZ!>%hK-?qjNn)@(?A?CA-eF+O5$sX^4MC
z9LM-VH}KW&rrk2Pnt!#dPb_SNjif7md)0JBSs7J!>z&`I%G7MKcI|JoKl+r3(ng~c
zf}O*}ueo@u@9(Z3rl*DZB87ar;NGBfTeg+HaT_Z3J7!gBY23!yFn-a#q&2!i{z^D@
z)XYgo?bXu^sK*Od;2O?rAl$q1Fs6iNxB#NO-6;=?4pl<)gxGy6ZDmcH7pRtgt2F`z
z8@^ZouXfRV=mu5qt^Jk4VgwpY4|i&n5m~Yh8)tBtyeeM$<smiWW12$F&VELZRBvsi
z`N)!c8AQ<iSg&+@zO%DQxQgMQb%cVmTOovF_ehnDc6$)?jN+5~AIE@j767+BKQqdp
zFo%#U1ZE3~Um>~SEJ&GrRDi<0U_wc8%1PUsm%1ZmLd=97zNZbWh?EhYy9DuGS*1Z$
z?l<g9N?>fB`L6iRZ{Bs(Uek5xdvZfh4b0Z8V@$T0&}SU-qr%lebs=UbcZ|zv6GA<J
zhNH{gnz@e?ZO@kvN_5W&%<N1?LL=nytyziCwJrgi)ZC}lQZZ<Qz;DxRnn@X7<YM?M
zyCstZujW%&Ci<)#bi81^IK;9d^s54(H9>M=(GcP{#DRF+%dA%vpdKartI1-`0$62*
zIhfhmh>!)HXduaLDXwasu(bm7?aqow&f1~MYS!#Ue^v<+$V9FQO6eDVe!nJ^j*i&I
zz?9J_DRcKn>FpN#t|tw5TLl?pX~j>KrWbXNIc*+5oJ?pwwEi@h=C_fN8=RkM@KyFA
zQoIu`C4zECr@(D)<A$#}qdm|k)Z!P?AZN=xKPtsKKF-Yia%sdk_xbbZQ;5%$&VAM3
z&Ekb!=6xluw9V!u$iqC7<~%okVaLT2aUXBJeo%xE>r(Q|w2-LcVDt6?8=~~)mIIX?
zLw1(SVoDwFHr*A`8}0W~6V`4noo=<Rl_D6A_XQfbBf@eNI`8~J00y$D(D%f#G?`jU
z@$q=dT+et95$;jK5Cn82#Ji*H?3G~NYvB&&!kuw}LJjfXx?eu+>PzFsM4pQewsJzk
z;e@?T1FAnI`^9PII_<314D)ug%TMVH)iO*B5iUp)5~o3!@S5jODarctKQM-p(RC|Z
zgOa_f9RaZ&JFwjxuk#rf+mXX@cib1k3sQ(7;fx@Y$zH8yyr5OMP#UMQ7X?C@e}8qS
z8Pd(4D|MO~Im*mj4AO=u_~1o2!v)GD6_<CR+}DFT4|#E$;mx}XQ#egd38N^_^x)Kv
zgx5C`l`V0D+@?)+Tlby*bV4;HqWbM}8xgOFzjGVbd?McV^=lI#W+Os=!&d9C>ehjK
z{RtBnj7^18PFhb3iQXbzUb7a1V1U`$SVgwyzP>~{HAKAGhk9iWwwy&X89Z$-Cc=@p
zzD2KU9G;HtDrag;cVCG|2Kovay#>#y#4Ixq<<%>s)T$FI@7@bU-py}4cl>eF88b=0
z6P(E1JSd6JV8OW|3ldlPHITPz(3C?kySY(0_g;$k(j59Mt~0$NBD?-8E3pk576>!L
z`zZzy*A@agO!j>%B2@fOB_#paI03*#FWr_WLI_P+v?=jTFlgl&O}1sqEqm_ewSjPK
zA6!^MF8T#i1t$R&2>XNKkCeADYU#0$pl1VbN5Z2UY2IEyh!(D5@=o#rjP`dOC<R7)
zdwO0G>3(vgwOIjD72$k9{tBSgvi~qhvz2+DJTe(cN{R>gloR=!8&EX;@-fh}-wBzB
z$e>WRPF>T`HC=Ch>uIgU3^3LA>koD?m;p1(b=cCjB|fk!|MG<s-4VPHVtD;EEFaa2
z0TLGw%D=-@y>dm_3$}b$zsqmD=_-W_ICaC#2lfp7ae_R}pwe4!&X-Yjl8vq08NC?<
zii$*;dla@zZlk)-lY@;_xb<V#7{ZQ2VKkwS`!E@{hT<(p$;+L~{q)xnllKqaW&uyf
zHm0CNK_Sr$G?(C!U<&Q+{l#At6z3+bvNZ^w?bCxov9Rh!W4r!!6T((4iY-Vp=y#l8
z-S36N-rku3n-!E|1w3UX5QL2M+bP~}BswHRKjTEPAov2W4kFSKW@U<d-{2u&CZQY-
zHaVkCyu<7TqN{K>1nK(tjcaLU*1W-w4v9-i)x&ZG_YGSsEGPdOoo70p9BH|`+JoqR
z?DBtU)V%Rub!Yxp-~NBLe{;3_>wnHI|37$f43*FJLruV-Wt|q61iW_AfV(2dVL52|
zAZi)uzRj_q{R<8Uas<kPvVQB!d~YV?;cC92GvT%c!r?;;?%pKW2T5djGEQ@GG167c
zebGyWe~U!!w%~)Gk-qa`rOfN_@(q>Wbl3IvrF1%<6;qCp69wV#vwa<f`&#j_2cJQU
za&U0eT=$KpqG3f>7>Vq~+2iU|etO20kD<*@R}ozu=?qYzy*R0#_APd|Z6x#UIr2H5
z0jkIM9n>HBbA~$T=pFDe4<?4`OuY`H#rC*Wmgu@w&;I|m?%Mysg8$##<Qsb-V%;WM
zkbh7#jlsbY?XlYr3KEOh2OUre0LvOCkaDw3F@Y<qOR*`?@_7fnh-)6Ofkxj7Y9<Lu
z$y(%tDU@?DfQ{4-x39kRV^Rx~y>VSM{E&{~_z1!v272=tJ`f>h5RRj7D9X7lyTys#
z&OZ<IZ!7QPgqD`OgxXE;4+@!PnsDQRWsQbOlaOFQPKN_(A<|ueXXc@G^y(-6v#00i
zhd~*b(4bNuBcY4M%i?c;$Ug^rMej61)L^t*nT!$<<=g-Fj=U|cc4(P<aT25s$So#Z
zA3=$bNF<-_e_O3T9{JM<a*2=dk`f)zoR`6plHu195*mBI4vj#fvO81=P5*_zf3Hm&
zY?yI?C<5`E{yY$7;0z|?eGStYCHz6unV2jeT7Wa*Me0Q$#c0_N^DP#9bkt9OE#e3r
zV_ESys~u8xTy?~$S(1$2o!Wjci%Y%7R!_ifE9)N?1wr9L-e_Dedu+*nXQqWC2u6~6
zq=dROL-`-W)9&R-C};G0yV1m(DZtsgF0ew+#phCY)^pZ}@#D5bXYI`WC%*fLdr<qf
zh;Ni#Ps5(0lFTzm9AfGN2g?1MPrKt&-t*^}95?UnGuXXrmzCDgMpu<}6uzQ8iDFG?
zk8(i)Mjqdlzj4RGI#|`BfkX*<7LAO(<^NEKmn|<#_AH*_#i3OHGP9!jJIL{}z*b_(
z&+#jd?94-?4P3@^=m#TI4@Ynq>O&U%JZgy4_8y`)1a4l1=uj|8_s-UxW`;BdQ2!^6
zu%118_9Jyr2uy6S<#LcDWMo7**d5qB;XJ&tbX;NN>C)@h;$pIi@L;m0(&g(D?}O|m
zNw&1K^nLXTzK}{8q}zsx^?YJt+Ywa4G(y6|KU30b9Aa^^s6g^zq?7s*hYS{R5pn;S
zWl)EWCmKYxz5HTc{`CSZkJF;ClZK8&^|B)Y5?7T2Ttj6ny(H?Yh0hLc<$K?HF3FyG
zoy$;G>#|43>uN_XIXv2n^K?&Nme35>!>WkSV<vW$+kA?MRj$G+7o!LA+|Ad#yw%~U
zt36twdHftZ^Gfy(7UaP_s{1Fo5o_o^b{sVB^J6kbI0^uGA(mDvGx0VaMPVrD2D5vE
zYhke^8nOUWMNeS{!k=H8LM(6XfDIxB)-RwcRpD}`W5)*3Go}dPf#vds)t50xX)xK#
z%gGVC=Msw9c~r!IL_v7}iPl;4@ewW3gjf_S8>V5xzWQ_Gtj9KMk#b-}0FA@}p%#rF
ztN(N^<~Z%le{}s%Q2+ND_5Zi@OZ^Qp{|~oq{pV%;$A%!rK&<YR|9mKahGP6*t%mzb
zRa?GCseSJXgInvXo8*U===`Y4)J~9s24rJZJVfm>6=HSc;uSsQ(v)Pj`zI-RX2cH1
zru1c~yj4?toRIM}!QgI_O?;Xwt7eUW@55&|Pg|`lTj&NTY=7SU^p;Gp_h6Y#tDf*o
z?*xK~Rk^Y7ME07%BYz(j#s4?Hq?)!{V+*V9?*01*Mo*V1SXfvD51(6cHCNc~QIt!+
zbLX4TLv7x_Jz7dz`>p4bcMfLLZ+BSKyhO2O`*tN+ihS2!u2NJ~R6m<Kj%kFOZzcZR
zc7Bq<Saix>YAwZknN9YdU;3?o&2_O>-+%C6oFV<dx%*T!i<)bhL@!^S&s{J1*5lss
z+IG?P@7}#Tb$`Qm{^yKLOqUKHKD^8x-qN+-MW+LQHl-P-(Nj`VzVHmWTUylIMd5xx
zW{$*qlI-IX2J4-h|JBF~7cbIKQy(VfIM1b^=V(#m>fCN>>dvL2C3Nu<GeN9Gd*soP
zlE;-!^xlXl>m*<K*_z^uwy#MF0sT97@6yoFFcVNn0rFi48*9kNk00}HA89mL=_Ib8
z&p7Rg0`N4s+cp>N69c_QWm?wOX@!y$6dn85=M~=!(0gBKY#gAsx_XOrW?Ksv`MZ}h
zTlYn>6yXL>)pF}@s2&~W(7tOgHSXO~8f1KT#o|c;=lXG;ro>rI3X1n4DyROWe(Y+K
z$L@cR`hR};?<xP!b@<P9`2WkfVEx`ssnP=(d4AMwB`)7-W&qTRfZK8&$nyw@b+Mp^
zFi7K3q2%A5dP&Ml@11`C6y0`Ea5kW{>NS5j+=~WKu!wH*qY#NaiaI^0R`KwA$2HVr
z`yYf6Rx%jn=PS%z!~6OS5JFinD~Iq!!N2k1<;!SDW=7~BUS|IrY)(-BV?1{G@@0Y;
zSAZC-h}J30G1~Vath!p(rmy-u8ijnAph!rVWj0sUuNLC&JZq11oRmOoG7~A%kQG+3
zs`}N`?9Njr`hM`YeO_}|SeR@4-`k1bh0od3GniE9$5fxFsovSyDVm{O=;{(I%a;jT
ze0}uQqMCU#Ze)VC;f{`L_wV1IOAZ)ko7uJ|NctG>rpf1_p&{)Xx1{ktOrhW2vm&vP
z?cTk6$B(;fiC7hGz!fKMbN$FOU-BM*{`uT!aQ5`pyNyf~6pKt9>)MbrhzU$&ZZraf
zOgn&zgJ~{k)QU^*Yqh!S#DVgG+;4xf)vp8Y9OhR-hZHeJrkz=ZRfy@*t7Y~h?)XPm
z?)R0i=stY-ux4iAn%Ljmmv?kdTUJ&!dzODUH#KIIxl#4GH+KCtK>0yD-I1I@c4Aml
zJ2M{CA%-6-qtP|Xqu1U1so&A@HY(RyZSgem&z`%e={i_HD0_9Td#Fy5x`<)IZXaI$
ze!a<i<A6x?cP9{*J*Xhn=sI$4vjfLUS-|B43W7~Ys5SPqxj0r0vjE76mF~9L8m@`a
z&Q#mBDO!xxYkz~CGrQGHL|H-jzK4gC$lCn|g$tA}a%&nsmzBxcQUr0GKYzaM)nk}=
z%f8-R&J-b%lNG<Fp5BAP@=YouURy&Fbw=3y=lFfYhP>F;%&a_m_;3?R`B<Yywq<cu
zy|0ko@Hz^!OKbLx1w_Vxg6x9<o*0xw*!#*)Z4H@W5VW_rT?G>#<)WL$mD<VW-+h+Z
zYnK=Dui~MZzYj#+DeLyBnPgxP&D&7{Z<JwxYvN~t%eEQLZn~Fl>FVl!*&5ndg)K44
zkPiOZ_-@GhNge^NROgnZMj7XA?OXjljW6ya20yVqb2Xo`!kXz_%Rfrvj)ZE#NR_oB
z)_X4(zAa^#LV0fe{3OVG?eA7SM=kqBf5ajaj<WzkhtqaEtEJvQ@7C%)+EB|)^jjL1
zKBXrdc5ov~WUbO3he9boZEb7mGy_$S&QtD>NalZjt>HMNHx>*J3cRMzm|$*}g+YMr
z-7wl;>@Y8=*YU;QVp8|$p|x!-S89EmhuJ3`R)2icdK_c4W~<{;|LlQ3-?z}D{Ivh?
z6g%02)PI>&cd7sPeyMtJOix!=wG}M_e|{Ze@Y|S&zN}h^OEz#O$L0QAi0&H>?*oDB
zpz%hdDo00e960#H-laNIr&fPhb_8!HjbR&veLBr%P{{^8N9a$jhSkj)Au`Tmm5_9|
zEFX8bgYrpmZv^=Q9!-K=87vfsF-Os0!{;$EA{I22y3mQ$_x3%D3nO=13rxZ9NJ5{;
zThJ#w=)WQir{qbHcPwae2UQC%=r&&6zaO-d^|?E5Cj2%;lM{xL5eApKKh5!-MIJ;`
zG{{@RZVlHc%iv$0;ZUeA?v;^`PX$7BHAF&dtb`B-EIjt|Qb2nQG|)s$hMOAtArGHU
zc8l4}6zgB2&15i#GA|okp8=f1FoesYX>;Z`x~vGckC;gVckvaovcIc(KWk)7l3_qo
zs=oI~;fiZLB(|z;jcD_T4h=m-_>VEPiLgzBt#r=+kDQ~PWwvJY{ubIv7#Z2nQI1yW
zZy@%WNKgRli9H-7;-*CmF@sNU5)EvUWWj^pP)icQ_-G}a{+o=>lyP@V*$d8tE8UHy
z0L3(jK^P6NjvXRltYaVqyhQl9jiKZ|e)`mp36aSdYo&(1mCO*dG)JB&|C=_{sn|WG
ztAfr(;S&c4{stYBdEOrP@Ao5L)ggx}LL|AckcH7l`ORo+X7~J$t7tf}!+v41KOCA*
zj{~f2dc^P?!t#Fq-o4p6nGxHA-laAB|6KDX>qx`-+<QAYw-&WCQ@AIn92{GQ9dg<X
z{U{RN!t>FDaQ&v>pkv?RxUxSfFtp{Alsq`tal3uYJNNDDAKgjuUI`yabj`ylhbDX1
z#}6MKSJZ}Zlo`$XXS0=sT=7=_;$O3<`9Nks(MwLe+9sD)kYfGT@^x)czWmTAPyDi2
zH{1S}TZo+1+O9i$v!7l_;pB;yc3lehVU^{Ey`6tqB@G6@s*V>CFqPP678PxAn@Qj^
zU3~x)BB{<BMxo>=hFzc}_A!)HmXswJ{qu)qUh`eI;s5hN7^e9Smkb?fu=OCn<xQVq
z223s*orY=I{J(t(?7<zaX5eyth68zwf3>z{-3qVoS$&gp?^6UjFzh45E*B?EG{f7=
zYtoD`BPQppPOYTaq=G}%TNSdBJrVjQmv<{;yUX88y`L)BK}=7uI}69<=V^$Qx%Bk(
zrvL5dH>Vr-wn|G#u%;}*RGHUI%$@viKmUoh_lz0Q+46ZBNqx+022F(nmaA8I=o;cj
z8+w|lwrqLML`(v3#2748a0RBc80vuNPa<EqaKRcvmzw5ZmVW&SJQjlShnIJH*$I1<
z0A79^+KB{u1BYEhNM0DD@dRyt%_A6br=XzVyLwgbmStVPqhWy<fFGuyN?%{!7~(iF
zLlBC~$D$%dQ1`7ERzt|^nAmfxLO9ZJAfwq#9{8^3x4ndhI;rIHGEBdRz)HeSlU!{J
z>y&S8KhX;kTpGx2cm)3dm)Q+(P1%t5Q@b_x1feHDnHcPK5Z(<^O|X#DB*b8Nnc#7#
zhFPTi&F(+TAuCPHa3uQYa4)VERsf!gMEeWIa|n7LJ9dnXpI?<QJu~&=bP-eCW*mx6
zO_s4G^?@^QgiqNTZWr3zMDo)oi$ps_k0s5I${x#}W=zcStUYESq$+%ux0Enh!!3EV
zDj=_rhyiGu8^9Pzj=0l*F5(<N%4))!#AEVZ7P$87#B0L<BJ@9H5FvW-ji45TzV<Ke
zBIbO6LQiv;(A!2Ypm6?t<K<(J>*euh3dZW)PJ7G^OE<V{vp(OK#}D6pC^%L&M#hWi
z6~|gVzEWE!#oHQzKyBYR@Gpz{t_FPwHkbhi=|$$j^==1tsA`Z)V9Lhh%q3U^7k0#G
zWGi``je1bL&I@O@UL?RG+@Tl&v&Uw%t+h8t;_Mj-Gd!?m_BF?MHTEQgg3(y|#asAi
zQ~;uTEG!}Sa{t_K=vQdXs^m!zk;Tq{UZRtbBnMnEu|B@|Ta*j~sm7N@{&BjtVac?;
zAb=cxQ)Z~5y%y3O;DA$wm06}b(PIi@^;@E`=*W=^*iW^DK7g4qyTA9suttDe!axsX
zP0aW>=sJ5H?#sgWE`)Ri-w-jcglfl*#*>*XZ_o*@M%borFLY~dnSoPmzp!%_;j*Wp
zc?)X@F-g;*31((>WL%8ZAV+}nckuSc3Ze0BJZ(ldUqid(WFnbvODNyV!5x3@aV@sy
zW7sT1+m}Y{K!AVbsZx$txk|Q1y|J_X_(@h)2^i!Wp!3IIgw<T0wqYr|QH645^GQtp
ztmRH}$iuhypStFbo{b2E%|ZCp1S~q-wVZ#8!uqSVi_cN;AR#Sewpe=pstk(5o?^w5
zhJURQWd$)MPTNX{tCpJw{5&xagqUcEzLpmN7id;7#88J=)znCIC_OhH<~QzSSI@YD
zksa0Gi(Zh)Z(y&&<w-+ssYm0Fb;a-5o|)i@sd63Jx@5M>tb*ee$rO+8u97tCeUWv=
z$$<BX&LQTQcE{8Y6VZOmm<Zz%*is8i4yguivXKd4r6-yiA<pBE&?X&2NOPD>sj8|v
zZZAmmy#OoVV(%IIrC>-dEw|l>1_t1q#F$j{Boi+IL`SPP;YKxX*c=RdDxeJ^@L}^y
zDkp0Aly+T(w-YAOXjC`^C_+YJeb;~(84E`xHoY(MGrM*{e6c63B$?=BSwdX)VM2e)
z<w(O=WJYoXtSVo)rA8Y=pgP^4XVfm8dO=gVc8qe(zax}49Vajm6F?AqdvADnI1et8
zRD(eXG`n_%WBQ6Q9N9#3y$zajLQ1g6F--lK9y*qNCa#1%@wM&-VsH)A!{cE29$Y`p
z&8>hIc%m9r%(m1uU#P27AV%epeNmfYv<nM130{TQqCvY3-iWC<?WMBZDrA3dL<_|P
zHANJ&S0TXe-m~Xu(J5lTViAp(7v~5funq2mwZ>08J!{dorGWlfl(A!D7DBTfcZp_o
zCPM@{ho;_pU*G1lXx=J4>7|G}6@5jShvOB<Yu*5VQav1ZfR^I;{1fB<g0E0+Og>~H
zVYN=atHA6d;#%SRB9Wzo1!FLi)({(<=zf96auT8ujX)*5U&f^3E%pifbF<L&!a};A
z7#P@03?n4XcQLF)W2-Kt5d+5%>nFRP%diRx3bvoYTq18KLzu%Tr@3G;b}ni<eDQ%e
z85lMaS$<YQ{+0@V;=fnCJ`XA^Vf-Lk^oR+U1Slh>RS^!F&;LF-_nKL74Q!-XoZYZt
z?EY|g`-q(-Aue8x{1rRWnkz|$>yj9|W{8S|azr~pjfccKEjE*|H#ZBTaA-gW6UZ4k
z!V$@F60MQ6S=%k7-@o2<Vg87|-<Z6N(2HI@{p>=^JHG&{X}`-<p59XkZaEf;HwFRC
zc5VzA9DnhmOU>p4h4y;&*6Y}>W-w~Kjf!$&Fs_e%fs1<!rr|Gy|ICOJP2Rn8=TG^C
z=;-6==IvVWb~R?*>areb;h!39*Cw75p&|o7_MT1Uidw;}wVjP>HOZcFz}y%Pngw!%
zn4;AWn<cO%pdx&t^?0<3`HnW`3+Rm(Cu4MN=fqzA&ZyEZmhlaiW|_I~dyg<OZgFM@
z>P4#>$8#Iw1iHppoi(!`QBh#-Tbo5D;%5_V?L@<IoX5ZT<+HMi%1hACm@y@h=7x+x
zjHD#mo{;v5hB5FaiH82QZr49tQ+=ZO3=}i&*AR|pwJeLUg5`N*qJI*&3ft9>h;z)$
z%rW?wHi3wcyIR`a@tqjS#@Y%Wp77`lcpXhSYisL*s-E>x)YR0>BP)(x#`Vb*&e!L5
zZX>dT-2xVdvE|=1*Qi(-kc>3Sc8ej~{Gcs{20J$sW=gpa48xg@CPk<6no;!6jW}WV
z9$DD2Ws5x69HP|~>n(#w{Gxfd0qy;RrdF`AOOTO<2CZ6gKV+r^Gz9dzjLTOGd_X8`
z>p4|+#5~1PBkn0>#};5F^i_=7R<<(zyF!Wnz$KDofSjv8h4E!?Yo#jNlz+j($XQYi
z#=j{2y!DtX<NDsmo}Oq*$VtHd#GGAHa_L~rThEBRSC!bqPNW(vkahQG>X7+<bo(+9
zD~MV~C3)~Or*4_Avp<i@|H0mSMpcz<TcaCu8A~m*7*SD@5+!4HgQ6lqvWny+Ifv3x
zOGVU8lB|*>OW5R~Qb+~?$;rSb=bU+cqE+Xe+uC{WYhSzH`|;YPoodG_wtKBL*PJ8t
z(MKO~H}A28!_33++!-JAQ%nv~O?s8`ee=hk?=Ts;WwRmp+!o^t-imUMgmb}nv=jPZ
zOr541S`rN#`27XV4wf0zqHTn#UmbM?>{%8n!ks{nL0=e)3(jsi^o66h7MJm0f$KO=
zD(^8d!)Z?Qj))Rs-f132gTEk$dX@?lNar&&;IIxHIz&t)&2g<oNaU+dbUf_u>{{~`
zA~L=H7txSF?B>NlG10OOYs<^a$vy~<On3v`1rKe9ZvbzY1x-&Q#gRdL`g@)Z=+N82
zT2AhVy(bN@2<)G;WP+Uyt5*C{4GZ_si@{ouaxbpy8YSzk$d_KQ>8#RuAG`cWT-{Hj
zp@oG?;(SD<T3TIb4O*a*;AkK%%0Idq78A5RqB#W$3%G(F;JueD%CiCK{Q%Xf(d0oH
z-NUj6<W0h9f!1#}5<0e=qaY=H&ag2%bNcj=gaqxsxd0tFc_mhjB>01F7!gR$&=A_W
zwhBaD@C*oJ1wJWGWSRs=kTf7_cj)g51Hy#c0OEsK?h^b{rq;)966%2e%PK0WO7yl7
zYL8E^TDMLCX)w<FwJ-5oXhd&`#J2cbUN^P^0jnZ%L{wXJn~?Neq<0<-rsrwMvN;hv
z<LlvUiIi2x?(>H~ay%kl?;eAxpQK3*AP2{%*)8l8=aV?sQV2Y%QTEFexKkF5(;<Y`
zf8yED??ayE2mS{6ovKsoM1u)s<JhsdcTZc@Gpw%=hXppoP?Wc_dxb0Wu3a%WA#j3J
zLg|1;CupqUXgZdIQ<Fib+7Po9#N!C%Xl|+oO8nV#bbRP_P*4>_OG#{i&dId4WjBG_
zk?aBC%z{KAX(q<!h%6Rd*9D})@}LzB^=NFpPXI(*QWPTF(Ao{hr(o)ckRqXEOJ2Aj
zizs)M$b#lMl!7eqrX%s<5rcv(<VD2IpuRrpGX}a2JjZ23g~W9ORD?#fcW7tP)8N0p
zZ_a&0Oy$wXc1hFM5uK!gVY-Q#8J7*dnfa-y1JW=cm~@hYBMj#F{ypH=rkOGxk-8hv
zrbFaRRj9dgq$KacWmBAkm21~}nvX79qd7q96!<t~!)@vKt)F|5XPr}UajDf*`s$)3
z%a_~L@D~*qw?Ytl!>5{#jV-JllX<hMXWnt^SGfsJdhBc17U;mDk$Z;#tGAN+51M_t
z=HzuF9M48gn=<J|csQNv6R!Y{<kF>zVwWN=ya*+7jGeW)tG4?h`)2%|eXBfw{@in9
z9C}i3z(Tcc_qQ?!iB+*e+X&iDHH+7Yyd;XlWVINxUgt>Uf&?{k)fP?yIn8k{f4inA
z_5!$j#NrSGp_+301bO*tcD;P$eB(^YkRE^aAC@TunW|Md90f4Rc*aIP<S>v0mxY#T
ze@P<co%)^VzPE@!Y_zs(-MXdIbFHN%WNmPr$--ZLCyv)k#sU!Y1mb8VRA2QJTM)w&
z=>)Vr>ia4-Q5J29J-P7lJ$q&`^gtdU<zv3VDArJ2qUlaF=|L6KoLwYAMKWgvCn9h4
z%fja`8?1eB3W-ZX;w2=72zC_f4^iCjGnkBVV50gq{CEJSK6DriTK(e85qJ70U`DC^
z?Powqq13uFq<CA~0SgJ)jYWar$U=NxjmF>V+beW5Hxo1&=a?w5Aq)P*SH`dg*A{X5
zKB_I?`%OFTRk>ki7JlAla#OGJaC4Kv5f1p}nWRj_f<!TrDuZ6A&&XNhS%2I=g|bN6
zJL<jg^>-BGlm_&Kf=a7;;>6@S9Abg~F@#!$um1rp&I7anp|%Q9?g1)nR|NvN2<WF2
ze7)V;kOdRiY`Ey}!5Rbpc%~W1L5~=fK@{elce)^HAZQXp8_-Wo;IdIw^wtn3iyj;U
z`whLTN3o{YrEm@9B!fXC^nlnTugS^Jc2*IP6NZ|}KYwfK@}=RDIxn(|C=~a-MP51+
zp#PELO0L~F2M<r>H@%<Bu;(_(yoH36#AgQXvJ{{fM!REkqAclgwMxf+k@s477ZQ`2
zT15jYBUYQlj@>;%Jv%qv&qVpHc*r>!^l#Ge9vmsfiAJ!5Ph+XtGnO5n-v7i=ShH0Q
zo6a1sY>}H_NpCZgxvlBs#Y9QcK=1+m{pMbz(_8B1cF#{du(EsS%=GhexH%?(vXGk3
zTDdAc&3PK3oV$;Yt;I`wPo49KMA5#)LPc3h9?mw36RhKfpGBV7Q>Rb=As?f1m`W-s
zB(;ZX7bvYZ4d@8e0Ul%HdFvW1QJnEVs3*glp+6uggN}xgr%p4ckQx*DPQF|D&qT`R
zO{1I0AP*1%HLs8<IOGQ)kM=;@)?+vS0O~usfR`ME>%$I5YgkTU#NXBV71uPm?+Tp5
zCP+kpNBW;ha)tQ+aB@R5z`>3-Ut@V|Yiq@|KXPF_bo7PA%{!4kgYR_}?L{$pw|`uc
za+%Y;Zo`_N|Kc2f=H1^AFTW<163uzfP!brNGtL;ifA8<2n#31iY^0x%1ezJ*{~V=>
zk62o?4x#$NIbicNF9_bU6UkL`9<-_$=0ee&KY~H*dmp$qMEnkVR)9W8n>mT-@t%1A
zzg&3#-qTAX6{*q!NyDZ4AOHr0n1quN389c|Dd%8B1wZH;_YN=6H-LT}NmSwk7vmt|
zV*H?!WJ;u;)eZ|NKjXAz{X1|h<O&|t1Q$Qr<l)HNbvPE`?{Dj0)+_@ZPmgITlhHP4
z4PwZng71T@z}RuzYY-p~i$H$qGLd$!fE6KAUTk*@TqJl8X>o%PV&u!0w5BXpVPWOJ
zRnsArcoOI$8Nxx_8vaiT0Q+TRQc|O{9$QG^3{O6aXdn_iy`@Rr5V?a6NCY^PM0lf_
z;AyYXFxH8LGk0z}?WNc(<80(|fo0hTBFJ6g(TQy#u>~fEd`5_(x%Gaw<j_M*8qw0a
zer_M!fAh8~1j8Xpri%}3!CE*}B9RG_)mIK`1>Bc8|4Qo8x+rm*Rnv(}CCT`bIwted
zC8*Adh^SOlnH~BRdru%jBI~SOj0)@~Q_1(i33Fz%;dIr|_=JSTee)Xyjd^WEcBvj-
zo}DLHbFwxM#&Z<(Loy4bM#RhC9~g?o#oNYP@2f%Ym5}h2l8yZP5M|$diugm3ZrC6X
zoTO~n8YFYF)iH=eiiRd3GKyqN`uxzrc5S)eyox-Gh1JKoqyy(ngR1WCxT_vkjG{6L
zPEY_rQ+|-x%)lx1H#Y<x*c2`@a|PAO@u%m!isU%wf-Lt#pQqVbfQQFz%Wd&r)~p#_
zmI2}?_r=PxO^SK>rPWVnJ$*9&V>$2Y0pHzA)hD)RZR6ZhbDtXwcMgR;v&~)Y&NaLx
z?`$s~p)kc}rZgFmCVqHWS>SGu>BfkeWYaATN%JNYL#*Po2H`gV;*o|a66=r<4I)ph
zSZ1X7TR2rd&CO2J(e1RMZ0$1V#+f<EiZ@sG_m811nUVd&B}%-j#e+ipG8z@B-=-@+
z+`mDpxx{^fNBoFx3`7Pf7XfBfp(p`RQ~?C1TU+mw?T-A}qPJcSXZLKtg(V><EN=D=
z-S$api~EEA^||fi&I03U=>*T+&GsWb`u!%#IkaHFg6j^{X9K{d1*0|mH~nnVYEDB%
zDeq>iSO1_j3RJ5y*U#Qrx(a_HO;-8=X6a2N6!{EJsT_z(IIe&iyaTMi{eqYx_?_4~
z2#BCNE*$>=_EUh5AB7TzK89p0?Sq))i6^^6mC$giU~Qd3W(|l!SQ(LW;L64@;MR!#
zNL35h|0$uw3S<U@Gg8~Kq!C+s0*S^fBbIPL2hHE1t49acDbkCrMkfA1iDHrdfM(;j
zBL#7+;dip~8uP}$geP6&$QB|I-dl85oFP4i&mFe3i{y(oL)wBD`5aM5fXPIPpVVr{
zQEGxf=@lSQfE)q+hm1)X2r2$yU`V8gD68e1qTi01$1RJSktg+A?r|7F)f_()=l&gt
zJo#|y&qt4BfN+c=-64p)Sib_4Y^fD6E|TUNS+A?FS)?~X2)pJME4B%mVyn^f31N_f
zq~7JlrCyB>j-Z-#gr9%R=Xx>f`;93k3xhX+hLL_6Y;=M=s5#AA5N%%~ycXbqxb2T$
zHWKD}Nuanoj-LW*d_>j-?Mw^V69g->=<QMW(&1AeWGw*+7kS(|f@Lxnf}B}M>R0gP
zefMgyE3M&rdg4l6%<=D2uX*!c2R~BMwuYf2N;(9RLz+qOQgoF2k`h;mpCC_*n3U<R
zR+nV^NmCfHOQbOw=sF54a$R;SJX%wL{HTzq24EEKIYU1y8%mwsKtnNpBLKmyRmu2`
z(NvSnNzpGvj4X4Z>hjONy$&Bq3r_D#i<F%mLFIuqf)2Rpj7tlY5RC4s22i%r|Ds+9
z>E?uV1ynDh2-bwe6^4u`e4}F=eS;tPq~tO{jYbz)3|_S-r)mT+LGlqzP15diNp$ox
zU-uHcdj()(SMV*^{2{=@^5HeWi$|0#3%?*_)fa`>ebcpWfZ0{)R>pWT$z8BbczJjv
zNPDB98f|Fv=V=Hj_gC@~M?tMXsqPkRSobBTsjG3W&ttz&6+Y6qLB|l6%VdTMkrq|G
z>jYf^8Y1w6o#5}(^jxJ4@5#$qCmscKjuj#oxC*dTgcTuEyCh9j*5rJ`;%(ZtEgXmE
z$l=2U(~U$(3jIH%u8RQ=*RwQ~9E?<q5&7+U8kQdmEgHZMXYumMuFIH)Rj&9Ma!Cjd
zW5-I;fGkQ@k*QJ#sAMoq+4Sji=k%elL<@#=E-BOkeW*sW?g*?A>D~&72;U>P`+zzy
zPcj?p*|T4N@Ok)jD^8=~NFL?l%wDMJgAQ?;DuaW(Y|Zvyz-{;xK1*scK*>JGI*zjS
zive}2AmABzLA}seCVm(x-0GamNWn?z7k5B*9>IWDMe)Ip6W|2J3AjjjzELzp>%G6T
zlokvmzFjwPBd6zBsCh1P@=<x_Rgon5s3zDwRt#hjV0F4sxlNm&n?69ro++-(Vrf5N
z1jAl~p$?Zwr)jQQw~%;<U<?GWhoo6%A#WKA*?1zYLBx+=zkUtjjfh41i9?M8%Yj89
zuN2(rdNLd6i7X(FHM_+cr%mqR46;I!?Vm+<BO>(?80i!~H8~pV#1U@I6wC5t8_!v!
zO{8AU(h1fANw%TC_XZ^x!U!N5B;k6~A%4C_o05!-i~tz{`9{<kgyYj!DTZ(J$opOn
z<>>H%fdTslOw$pi1p`CgR7-mPhS%snSiNl@l^oa@mDF!nFXrB0q>wcMGH|#h&#c;g
z4li?9L=C$w83sdfLr)uPuSsuXY68U1V<F21Vpy%PuQhO!M~@yIxvk>l?<PMuy<rW2
zfvN2IX>p=%`nmtFAA#l!M7}&&;GgKSv&bYb(j-R)dr)ZUsJtXD2TT?S_Xvub5y*FF
zM0P3?75{o1k?^h}4g|yqa8TTEfy!$*s;8G)oaP;V@20dbDHgop&1I_fi}>j0t2RcK
zp3`iHbjVbS-)CFdH3p@?03$w$r4w9?fmBX)MS@>{&_hepq*wrt-8A-%%`UD2n`g>+
z3aLc(6H&)wh|;bj;5fWTxhc>FNVi23lyUC4cE_4k9C<Hql>)?c-<GSE$9ED21GY~4
zZ0(PyblzlY)S*_Nu~&Nm6&_!Y@&H20NMts|`2fEOga6lu40ReFgVX?}4rUPNNoq(q
zHw3*Un%J}$$BL={h#E5~ly305cbI(#XdCPUsbFl7I@<+Ihae#6y{esS&t*N`!dsL?
zHm`J8!s+Qve?9uXedo?7h?8A~q3|%b@c;69qT4U=5rT4cbj(Di{~$aJDE<piuDVn@
zckiBfE;)H5M#rkb%K4!pM4*7caV~atq6|eWCMX+SI7aelf+tf7z;)<^gt9Cm6(V;X
zeQHYZ%kY^}_D^`Jolxi>waHe;G#MH|rC|roLth?)sbDf+qe1RI+oM$^zod|{jYZ#8
zAC`f{ll|GtS8siZXlK*Z*+<!>)X297fA9cTunOuwBy}m-*`LsI3ukzvKvd!E^U1~=
zik6m^S<}0KSLV;<eE9JB^_f*9<{+p9d@#c@eY7W`%(kHs5=gXQSg<J-E8t`-)b5(t
zaht%I-x8&7liXF%#n&h;Tvo$<l$;MIwgQ{Wo|1Mdn2rz(=@e>O+RSNSQiR-yid)vF
z*%=FIrF;L>>Ha~VBOL#QIoH#MY6)RMSX=Z;r{23A3(aMtXJ8TOw+d)CpVj~wppw$t
zcpO+S<FsI?f^?u9E;j0BmJ>m!DDX15G5hmSwjG+Cm|ft=AkDapNHF7RdvO$d@442;
z!bUfugf`E~(}rKNd$gq>GKF|=2TErI<t3;eqsS}Llu-y1O|vrWo4ICVG_m-fvKv4|
zkJbi*nh&i#>VD2v!04tLTINFWpGlfxqxFp_NRxaW@Ww$ZncD|-{#=o1gnhC!UUZKm
zB#=r=+trC355i^oA}@dIzSMTK`kTUP&JVkG4q6kDeu&DQpAsx~i@6_KCNk_294YXJ
zGW30|_@P5rP2w^{eImP?p1QiCGb({a)&D>yj;2WWMs4_TtO<D-SdWz=XUU5N(IC@-
zNKHZ~Zaep_KUq5Az)CB{w3m%S(NdD$a~5T{3%ahkK*+i?Z`6*e1PX{B5L{;;2N5RV
zvG9=zwWIDMDOu>7B*JiL;);b}feMYx9snPST2VDHf$V3}RhecM6x^brxaVgF22%)<
zUs^C3p(Hz-0UtsOM!RB8y94@XiS|e&;)4h<P2dX<t;2!Az!0Vu3cqM)mPEka#y3p}
zKX}=nv1o*&vF$$QFTFy9#D;_zL?E54?@-m2T_-Z&48qcP=E|?PNhy%vqJVBkAhOG-
z(?&#3bi^PlgLqaPkT_uVrOTH`Vz>GLHsDLx9*7{F437c|+6B`Ax0TVNjyN1i`vOBz
z>e5UF7J`oPGMKNa`lD`22D7qsB0`r3);5$_mfBK@nlqC8O*?n8BkD$0^xN#>!?`JE
z4tK_Zoy6%C`C0$8atN%@l}010huL|woi*4d(kNfZ!OS3+%Mt1BO+qag9N%(u_htUx
z%jMD9$XYV4!&hV+&#&|8<)WI0hoATzF8^U)?}fwQz>-EGL_Q)ant58_T$=UZYl1-|
z5nw3tB(sv>8Ds-GSbD^g)<eq$klBHpqhxd(nZ*RT?8}H9hci2`;)x-^zzgEqLb?ya
z65*+>*~Wc3=<JgU1Y5%kSU6cC)JviXtPXMtz*sU61%e4tcuSCUZmT=Q%6cAwXT>Ri
z??6L3;dKX_N1|bBw<8q-rukfZcg|5#AAoR<4EZF6yDqpnG|o<8Qb{CUVke;4!I%)A
zK%_EI<5nZGZG?(|{Xud%tkD%f?=iZ&G3OJ}96}taK!-8!(m-)8a2P6i9VVZ<TQ|OT
zAGy|Ayn#4h_<^`Qx)QbYZoF*c_b$`aA$Gp!X5Uj9QH&r{G<C57VV_(01a2oxHKsJL
zPDsgKa|WY<HEAl!Dq0Ug(>n}+uSL^69C1wlxzpHDtNgND<H@uz#7Z!Ir4>&GTrb=F
z2B`hZm&pEmSpB~HHXQMH;_L%l`~xS_U7R(?b{|d{_MhX-;RboRnO=tDFl>KeWz8iC
z^`J}kK`+~Pk6UeGDvFZ3)Yhu-$UxhE?77RPRWYZ|Fx=|0e2Y(L%&Oieil_%WyVyhj
z1)6)D?Em1n|JcRhF53{r7Pg5z5T)}D)$s+o-C<+n=B}X4iA{W2OcYy5X_6@J-R#eX
z@gZ%&WE@y;rtU_`Fs$_y;v9>wAC_XEWdShv5|?c}m}hv4Ai23d%xk-s77FT4u5L!q
zM*7)#c&;ML92DDy(llt}h*+_mL2@seR)O=#IPqhgp@c4(rV2$fALuGX5jD#DHzqPb
zh+MF>%l2On!D&**iAl^YzFd13UKquA4{z^q+@^9x)xDAy2(cQcu&Fw{5<&MfiF5JF
z&mihX8vVx)F7CSxz``Nj98ZF0L>QgmijLZ}V2TP!#vmU`FNrd&J*A};N<b^rk2ZH-
zT>kQ?XSO72CnTc5T(qY|GXXK(Rd8CQ0^F*Pt|lUPI38)3%tQz02}z*m)0aO$^rD%c
zSUsO*RDV$rsujSX4`b*c;8)FS%!NUyqkD&j3-_<~V>EtoLVf{loiWamx6t<LulJaQ
z`aTI_Svp~)8_)khAg^IqKnI)|DQuTbZ@vGDFwL>eZ;o+Nl;6&H=mB7A?#0-|eGT)N
z_Bd)pMn?S&?K<yxhcX6|DMJSywk4htf`>TPSwpw8t%=iM%n1EtUz?ht>h|wUy*0o5
zGH8UlSX}-XQi~xYVSnk!qMvL)XJ<{DcMS_rJb4kfreVzY{5w~WnNQE%YMP7^!hp+_
z26g~4zzh34-H#Bn_Gd(o@*`pVk;w$$>Upw|^+u3E@(QBtN;<Sj{SI2&8xcfbgMt`_
zebHD5Zipa<{(qw_o@rScja=sw?j{n~(}PG1Ef{(}I&g1G`zle9bAT!{_v)N~zp|u)
zv1bxwBT01u39Ne-Dzx?ubfYFE<W*?fZ(3os@WgMG&acsI;jIIt{&78{e<kIeXCccM
zkC@Wd*`|KSFoJ86^b1)kQSz0ffn`Dn!T@PKtH``|w2<AF+)JNPT}pYm+C%Z3uQKin
zofP}QVCk@3y#S_5q~;ycWO`|z!ud0_NXY{0Tx8eb21dV({l*RZwt2R!+C^E^Z1IaV
zn&V#+K?+8i?G;E8&5dqdI8M%{B{OsLho`;cU_}nS=i>CZ!cdswTud<tD_*2l$xF8#
z)x#oQT&PT@?!*>~K=8yuCDX$1-1V0I8%57zb>rm&zk{%!wF4dGZ#AHP)(zYM%FdYV
z2l^G~W7-c-L)r7iz2F-^oW;QXbk#KTa>Q|)esiBEpzg4dF$!tyh5u}tTQ={2NvWaP
zT%HD;>CnOuZOqCbfq3r@h)p&f{HIH^1sj9l0ROp8gJ$yuMk_}1S_wnIC*5%C*{oi(
z7TI3JU4L)=A61QU?2BQe2lwx9)^9-?`Z)6MTY86myn~s!x5+ZSNqn8`JDD|vDbb5i
z?Y|IA@mO}r4vMCG$6Z=r;jaBV{S?*Z{xL)!j}7LLS>~jRqHgtH4hyJe#1+th<A#9`
z8o8K}aQYPT0HRR3!0^U3wf>z=yMNz4GPsUffz-VUUYW>!0~TsH2u%{8;3WwxIS8;G
zJ6z@e`7T(?KodR?4s^0PWD8-_1NmtE#abAev{2(NneP8Dbrsey(9Q_(;La_P@HZC#
z$(Q<YBZR*Zu?*Xzp$4&-Eg>^NY?i%}ceuBP_aYf+uU9uTpJ3H~L&n1@>s|I4fs0ai
zU%x)~`tEw(J^Nm#wC+9OpOX9Vq0e8bR2PAuau%P9Pp+^C9gHzKk$2$x=s}-jA1%IZ
z)!;2pdCb~pD<`|JZ<Wan!<W8&X-*U7%Y%PkmKHA76j(MqGAvQ0=x9+IJ{&Mrt=zxO
zzpbrJF2>kG@0!~fB;2u*tz=$iGy{5F{Cs?T7#CqB^d{c5(nJ65rcQTf0qR<m*)pcO
zA_Y5M-t`nLVOqZPSvH2AO;#soRViwcl@tBUSEJ&F!`qfIT&moaid71Ui!*tcegFRb
zjG;odRLshXN1<FBg&66pS1V<PJtaf@oaQENzCAo-3OWC1Q-{c_IX<6d8oKmsGF7iA
z#H^7Iu3Xg2QU@et7})?n(63?yfo7=LLt4780K5OHx_Tf<TI#^t5KbUz<;&%IdU}Od
z&M|v%B-QQ%8AGkjJbSXlSccOJL1JZNqaTW7?I0Rh&|1MkF2azq>Nb1is%HFkx7=n1
z9*C<%t7Sx9T`W=Y3sXOTgMk|;q}<8|ac8<UurzfB2_@WU*>Kq*z!^BxdMKe<N#9~5
zf*b`J3-N21b^07IgJ_71u6HGe<JAe7aCby*?axlFEx>e?7c7F^Q3>^av9d=PNNLJI
zP4giar|YR!ZLfC6A9)z2f~YIzu_-P8l(cr8H88N;jEQfLA>OZaj*IA(yi~>5p=T`6
z%y5v`o#S#Gd`zVQG~q~iU{u6QCLb#3GBaPvnV)u==Q_93<TQVa{cse$TB#0hVK^ah
zmK}^|N8d^TK0XHCehG49f8-xr78VwDTE2!uZh<o_7)Gk%JIt=Xx_OL~v@=Lwym%4g
zB55q!kZf)EzIMLzl9Qf)Qe50Iq&9Y0*b3T39LX0{RaFtG`kh)U$O0s^)ik*VxF-@#
zHzer{kj9JGIS$-iy-Vacxfb|PLm+6{gxko6@^?f;2;2US8kh~n+10V^UMrN9VO)TR
zr3lrdUg3div=H!D{VCWG-EKv@UOE`cFGNN@owC7(il3Y6wyIAPi%{Wghh&!tNHQsZ
zeMg3O0ps$#{m>Il#*U$|Q8}f8+p(<E^n!es?n4`>jCG2j79fbelwmA{W+qnR+ho$m
zFRFE#9AZw`s2jeo<Z|4fs^Kbl5K3ELHx${UHg5(g>vp7BW!tp<p2J&Zl^9lVyY?Z~
zoZbl@pj6a%#DJv;i~Px6fE<c?*C;&<PbrkKydMRtnyG$lL#vT*WaD^t<H{FlJ;d*3
zxRB}yl|}~oJ>2`7m>xF!C0e7?{A^@Kj9mEF539I}f!!oj$t!Cj^}^&^M;~8bh{;8%
z*mj2K>geP{T%3l!k)%>HfRx(ke5uomj2;5`5c=xXUQG4`)A|Hi<DF*3$9ntTBy$(l
z-*~``<Ds0>MtB+)#a~TR{h)L|99=Z~*CDaz`mve(U|L#k-?2kkz4D1b^NX~!G?(4t
zVgRo`nCc7T9hgmgeE^%$Of@qzgRE`f{8a3`B+c*khhMw}&9u4`*{<#|mt)>FfS!_9
z(eu?$nDNxtD#^dG5ZOg}+vcgMDHRNu5M;PtrQHf|4%p3S+M3T&fN2UT72Qfz+d+Z$
z4RRGa0^rAS7bd^<z{-S2M_&w=EyN!7&si(XK0g^a?@hi319YN?Nzs=I-PBYT0DPB#
znOr^MQ30r)%xY`*Gn1~y3R_mC94XTKCERPvi`^EVuLvSoAC7zKz+P2V6&>68SbgRu
z*qhZX1tDH)X^r(+Q&q8TUfDC6{EfGB+$BRkS68<I@GY&$8l$r)M%0+t>EDfs$az|i
zjh-<o{qzB|<ux^j(JEIpQkH(lO>zM$4Wy&k+x6tREYKnr5%IaIim{_*;w-F|DMB@E
za`O6S0w?}DM2k{;mmbg8h}d4&$fy)CbaJt8ty8BIFmj@A7yXpp$kL0^YDx?xVGYGz
z`gd31gH&IQPR_nRHcIOZ59a3a-tP;}S=^l5Y|DnUz)Je~*FQej)Mx{C7VJy;&J8wU
z1{{D5O6{K0Bz}4;q-6B5s`;3S^2ZmdGiS9>8W`A+bD6UUL9`nSK<B@X$foJ>C5{9T
zewA0s-r8?Y983m94m4V;^WwGVvCPAn{SI6>o(gl*+4I7v!_;#de@PNyPK|m>xGck9
z1RqDjD+#WOlKNE`4B9P#3q}4;-=7E=4G((m${igYja1!legOLgWd7rT8VZ2}G*8tk
zYWsWmTh<?*AGtK|j(upI3hg5bB~k;BJC%ld4i>g$rcEIFdo-s~A}cBgMc`iyfmD42
zu%nlPwOh2O1;QF_k8ahv?SwwfLN=`a(V6mW&mH$T9CO|hI|#0AnLyUylScUG$wGxJ
zn$uL6lOA(}CG1CUOzM6wdP?AIkM_1>H&2&}jyH+`4fYl=ZZ=iFs*LwpZ=aF*ebuS*
zt=EV*>X6sd*LSn8WwSi9dAAuoBH{>0j0J)7Gwt@6cTu)`Zs5VDX7x9k%%J(HGi()-
z?t2Ej0U@esgTNB~?tTmgRlL~@syO2jTTDK{v|%)wwxc#z3c`kIo42+WR;?5jm(P7^
z!lsJUA()3&P^_g54Grhoo#qa~Nb2-ffpt{*>C;=8qPqdF(}K3tR!b~UE%XcDTnQTb
zbZQ*~OxmJlI}F}d49CJxq{7iBK=ZK8w`E3)ER(E4GV`kpIBzNqM%$9Er{=vqsl{=c
zr2t#qFV>#H7MVCxUte#4>6LX@HM76gpKHZHp+aQ7vwk4-r((eMk@zSWIAN-3vrRi)
zkT(~NSJ^TaCoYwLW$Irm-1DjYF<CI3<Vy}+S8XsO2QfqJEl9*hCc2=gs|m@{63`-_
z!(j@wOnelm_v-`LCQa)}tdx#a>XWSbWLimQi%Hpc$lqM%{_1V<_1*QjS(<(A<D>*n
zzU%LtSqcEelJjj4K1s~Ut-4eCes+DSk*W>xQE&J=3Rf=xKjv%z(lltT*mG(OO`P)?
z5GgOvX1**Jzt(np9Y=SEi?fv?-|DSL_n>=Ei?+^=O&!Ks%7rNdWB)|JYZn|Y<{{dY
ziDHiRx?v2f>}gfhN=MnTCkq~YpMb1Yq#&%58w=>5=hF3*Jv8YfrgO0{n*7PyMUKK_
zwHm_^txs%z+e=;yI*9_oO-@&(M<d@^rdp@BGz0!K+KStt2!ifP^W+dz|A9q1K*d0c
zk5x*gVPd1<21s6s^(EznB*794+<C?_39YS6rEaCV?T&EstuHiO3(!?ML@rHSDomuz
z5s!F;G@6moNrfncA--x6DnplZ;N7)CtbnF<F>uZwAq{pq@#DY-B~az{ApuKogua~T
zXf|fSO4IyI3lD?bOvQb|uqowj-6d>kfT-Pz<hTgRq~+w~Btv9SVtS!I^KDBi;u{4k
zGtSCKdUs<C=!=?j`%7y*k%JPg?A|o}19(D-b6a_JE~6vI6U9kQkkljTQJ%XJ#iz=j
zdZrcB06`o^i_|SRJ@t?{M}@HaxJ$EA!9(y;CtXFyYF%~;a^tF<E!j>u$Zjx}oItq>
z#OH^_lR4Yb`&>dcv(t34Q_&%@!H2SPa+)A^)nRIbS?(qUsMH5gVXe~jlsq&I=~ePJ
z(9|Bf$7R142gS(8$ETvU_JwI`<CG5!tE&oPHew%8KJy@_mmDP0*kX@&(f4ObT_|~v
zis2dC&*>qs(oboqz9~OqzaGQK4k5^mGT-JOk(9&_^hJsWO;Rr4P_ehqh+ZW&vwubi
z%CX|>!=C|PPi)Trf-Ta`-yY9$c((7G`@tr)PVThmp=?KChN_rCC%4cAyn^nOTliX)
zZ-<<t1e?;HI5KiargGyvVqP~KSy#`__@zDec3OpllXPd7RJ8=IGkG=e;^dB&So3Yn
zL_dK_3k?mmN9w;RCUh8yf^BD2<ktPno<)pee_;WJLa1hW*<+JNxj=_AlHG>S5bav!
z50RbNlRZC|3I}6`wX)3T7VjcQVXaWdOHu`?gGUn9WTvpmxOfu2;`IY00NMuWc0{+I
z4m0x=GE9lX!pyrjqoLXqj~~!?nm@LlAJoK2JiH5ItJbQ|k-`M(d2N^&z;&U_=%t<M
zGE%Zh3qesglB5R1v;9^*M>ip|Chb}zcw)d^b$rrX92M0ixu6d5X&b(GC^>sJI>$@-
zh{q7nZHoz0Ci#22egI%g5B$igS>LSP@%rnVAXg>5%Yz?3eq@NXc%s^w93;6=CF-aa
zV*f(scPVsFZvH`-bRIkQgBU7tB3gc3GfZMXv)m8rADb@rx<$2OSWp-4m#l$B?N)L<
zi5i)yS|IxqE|Om5VzU<e7GK-6@NFG2dNq=<UmN7pR#JqXFBE>#ys^^}l1X|oz1zO9
zNX|xY0O@*gGCA|TtJ_7s_~pwb|K%}Qe*h#BCw{SB$m3T^{-EYvzWnp9?`-(ddjFgI
zkMh$0&R0alm@_elsBmf{LASxA?qN_X+Ch##@8IBY_USHvH))~p3dX|q%~Omv4v2x;
zL_$DM+YC%)Tl9kvXr6`N$m2MI1zD#X=Fe?EF^~cIIl=EPJV#U)FdK=mPJX6-cpk6b
zq=uN$c@nNJ{ee$(*c-(!^ojrL!MgZQ@tOxCFVz&QK|UxGp13Shaae3>Ds8&EH=^f3
z%#Fd`=BBX|R(7JQ2rwnn%K0s&ySAr|I(A6MhCJ3Q8?1<S4d;B5PG7T|F~Q_q`0GH@
z4RB->6LqfmmiZ&4sKbt^xqZgts)B;o!ka1o9-UAs<iYtn3t}y`5UGyK!&4&#A0)Sw
zKS8h=Qa07Ckme$d?#MtSxM3BVBi2pPPt<tL&T1*7{b>}HmL}Al_}wq@Z4BpdwS=gs
z97vxsH5VK1W6wslTvTuPh9rPZbrFUA%)9ja?rwgg6L&p0gOr6W8~iJzVzIz0jlPOH
zmA($YB%kJD6xmj37d-xFue``!%5Q%-C$9mjd=Yt(Zy9ce1Cug`+}#>yh7zlyTo{w(
z)eT`0JC<gE)+rgQwtKBx)926bpbve0WE+ahR|oEhDYVOGt6Usn#wQ?P6{!&_dn5#b
z4izbdSDkc4>Sp5|xV!YK>DpsesW{Z>rPQX*7hR9)8~AxermeU4PgQPz^G3UC^wO!T
zQ?2}w{Kj0#aZE3}*AFCpMGT<QhMc09OrKP+^?sdNDu918+B7iMUBgAE)2Sra2?bmK
z!=}*-0MO1`j6Mh}M7n7a`7-nKr)PaA{n>VPcVAVzH}*O*A_k%%Op9su$K_{1#XX{O
zrA$^?*%yTD15}c?03%XJdA*ib+ckaO@-?iUrD~36S2ul){~IJvs~Qq^Czku`S=4v*
z@!#4)X}a63Lk^eoe?BTzhDPy82n+1d+GjZHRK)DO8&03t#ptJ?gq2SgYl|g(>|TJp
zJ9L2DT@=d@9(c5i%d1E~V&}q_OIH~#YDREHLVgdxkodX&<k+%>wzvPYr}w|X0Q}Ea
z{LAe8&szMqtVNXv=Sv*~l^8plP%-Qw{A#o3=WM5WSr18Ayc}7D`R~1TAmH<2MBZDU
zfJm6A(H2Bfk=G9}8{g<}R+R1BmllWfBs<=(PU53jwfPC@6j<2V^m2VRT5cH?900}F
z(X45qSq=#=E6$i}AZ%2OWbSV`L#HdIEbHnFCqb}SZ|%DJj?${8dL2rKSm4U)XK*Bc
zJ!l-;FkqR5tHMTkZnooq*;M*AFZ=P^dr7M=FS=Cl?_KhF#plXk1nHX!zSZoBG!?A~
z5eyYlwQEi;Y3fbsx{1g*ee5oOnwf4MrNd}R2AeLLq!d$bGp6}gSPQqn6sF6)Ylv0P
z1_W`CN^%(lA}bX>^Q_r=^d<d4Bd7~9oK}HWX5p{)HnlTXjw0y~6EV{YDe5>13%~8?
zbqQK93>qwHIEgEfEq2HL^6v&PE=TAJT!L28cR$&P*cyKG*KnBZ24#+)&RRuO=?2vR
zm0KILj3OWS|7ryPj-38K2|51fl>N7yvj4^)@c+MWB!W#<;+!vXY@?K~_eIcmPbT7U
zqk{{hg?0gBR+S+M=MZt(6rl^rE3MJ{<^!}?3@~i;Q&GSKK&Q1$A#K*~!c%%4LEVvS
zd&!3-@;VWt;+!7>bbJXIRn`oHs~!3aMFcS-Nbf=&0t}%Ge#he~G#642^B0Jdn-L}G
zq5z^THtf9<IonT+^z05pcXZ?O;C{SCY)k>2U+I)th`WVOC$F%Et_jK4SPBrEr+gkp
zeZQn#Y&?~v0NHQyS^Xd3347DNFW~NKL4n}~3u+}7>;1IC{4FJE1cld+T9E2-F8$20
zs2OxaE-Lr!FYk~<(*;X_$Pcm<0HsR&*!3exx<HKhehlgmE)YN2m_&*bR2u9HFCQNV
z&kAW8=(Ayf4@%nSM%Cx}(AlKYxxI)@bUB+oq-><+!eti{+fni60Nm=u)E?G|KXS`9
z0Yi&ju<{o#Zf8?HEg+B3u30};m3&w?Zdf1aWP+uDt>KyY3BhpW*C?0AT<2qs3`bPG
z@Oe2okE~wn7XIpLt*_hPgoQ-_!3ebMS#D_F-eqLSOEG`!oE$fpQ-l{a#ct-4EB-4Y
zUM_(znZN+z!PDdqY`}uSY9>_hdAhmmnuzlVcskaN`iEK*>lalOt0{{5t;nI~{z4yt
zI`(bH(ke8~l`{nz-!w4uaKJBA8LBHk$C`1B+lK1+OvSpLDW&>{*5oat_dBG&KdYOx
zTj*l{MSlGnVuWL0gnfN|g;Taut~ub<7<P8na<4U3-rWDZA+pA2xA$xJ);ncAaUW||
zy=A9QJM!TldW9y1g&MJJjr6=z_FIx>@M(zo`y305G2bQ{z>ja*hHp~U_P3z1Acq>`
z4)YeD&)GdIr=Sq~Hn~VnL6u(I-qqDLgznI&lO9CQB@ldg0ji9;dUoR%zfvSTHT4PC
zF|(|wM^3t3380d4*|w(H%odMmly9hFGx0H+*LGD$;Y+G-NN(T0of~X?;<|K$(w7;U
z*Svhvx7}80N7GQ<MoJpZX#GG;_S_VeMv~^Do$BMH#y~Rwd5uk_c_<W6u5|MJQTjxg
zYawHZJ8yre8AsM`BpbaCRw~-}d~a*h(%5Uo)V#_gZenXj{r$r7vsP>BJ7P}kXd1QV
zqDW{)O~$PhdXJ1i$?i%9nhOl2d4P$t6kx)9#y@)%E5hL+S%(R^ZY-FxJ1bLG7AP+6
zG*uZ$V+ou~JeEsNtaINhW$0AI0~HNHX^&KY&@k$cJ<U=8Si=|H+_xZofG(R0{Pj9P
zD-{-+@;)6)%iWq$@ZfF}1~P_wW3W&R&_NXx4WvZGtp~oKz$hMm*@9ev!W`Rx3vi<>
zqT)EoNd0<$2R9}?66)VJA#<HEP_FIA5&{i}+w>Pcex@oKwNpjlj%Kwt9x&eKtc^53
zyzm?Uhz1vow!qJ)$`$_ylmGulyDw`IvWnG*;DJd=NjNkSz>WlJRLm~YT7k0`$E5cu
z)!ngu!xo#tO%O@i0<!sR?<tbtnRkVUwV_&Yo;H)`G;<E2n<`S*0F=OYTGrm6((tR}
zq-e^9&l39QP9$hl8aA3Bsvo!Sv2}TaNE)DmolH$E_eiwfF-uAqq*6(KhyPTA`uX?z
z4z<jY=Zi?z8WS85vArSp`rllD2%Km+WcQ>EtsP+QB^r5A7I7+jQ5{k0cD#nZpV`ZM
z%f#pHp^A|U?G+39>}4hZgVFu>kjd69-xPoQ>xb&ux9G%dShp$OdPgR(c>L)#4hxhT
zeNg;8P<~cHGF(>Afs2ek5~Db;930(G-tqrJibz)XWp|xv5yvn+)**VdMfM{OfZsw^
z%wK!`?n;G9vtA(3laP4`U<pTTdz(-6DlR5^XwA;!Z$DIxsF1Q;w_`0TjYm{2mWANH
zHX8@|dmTZEdTe3;pWdN*7@=>)*~JoDE+4^6b;&IY?&n=0&)?wKe*~fkiWFr7GEp%B
zvGG=p5=jRFI|J6;pH6BEO}}I4<o^T8q<fDpg8qLSjOG}|NnxP=mM_#D<%VH%T6hbE
zC{rt>^nq1%oYb>X=DkO7*BwSFH%OfW#Z$4#i9GSFidbzqixEpze?v1gWocsgRgvl(
zkYVpjz|+}O6`os+h{gL0mv#9mbR3Vga}6CPu&E&YBjFw(V4nf4EZUsfq^6M8)=?_d
zH6xB;O^sN28&ptv@MnX!@0V=@R*o9LQv*a5{u3)F-T;Uobp>xs%p@o>u~gweGO)q9
zjT%$%{G4!>x@Ky<zfuw}g`?WTrn*GG6!Zu)kW#}^Q*FZA$!hVG9^X%Ln{Z9ShW&xF
z*`s7r1a-lT;z=kc_ygtFNi8C?d3hXXCirubkyz}65C*{3dhYi5QmZUCLRC!d?pVQ`
zsj6VrK*pvCqMqt0JWtAVU^vp#Ltl5hXtY@NiA36}z4{*2XY*$%9^dT4FNYRTbQ&f>
zabZ56+`Y)I=ClgFb5_Y|?enNP6Cy|Iw?}Lsn2;CUr8lcm?GCL&E|gblxC3J&Ba57H
zhS@h|=s%#moK>kC*+Y;alqm?UgUe~Mh*WS<z6(TgSXdBceV!i?(lJti4`=)b3{n2L
zI;zN^1tv5YrEBIt+e`8zg51M+lZl$-@kptZjAfgIN=4S^88nGnfY(YY6m6)r<`b5K
zs;WO>mY_GflwPCeODfN(S*a3h?_qn9Er=(nyUWOTGXbE7Q_CD;_N!^VvZ#)0`C!>+
zy|7T`pKbnhg_jv;U`G|8?B=z@I3uotF|tCH;S+S|TGQ}6nqUKokwX$US^m_~o!PQ>
zFF-H?JQC%SM*QP{P1LaN`rS1{{{8lcP-rbgUGEucqll*tV~nXSXIjT=(t;+40`4&S
zj)g*G!Y#ze&IvqbZTAc%p2M&_1ebEdAvun3KMd!m6ZC|X8v*zo!Mu@DuvX>uQpw}F
zqFC00z;v=UPmC-_l71FpyPyVAgkQbD4U5D2;VS@ZUi#?D>`Rols5AsjoVbisi4$le
zEL2yqsSXfp_&d@4gygpxTge_Q=`wHwP{7+5%wzG<Qnksj^0fk&@nG<<>+I$vvpnUh
z;g!r`L8Yh6qksVt@V^XhHvl#v2#dD$$D;WU&lC4c7L7Voq&~+DQe%;lezXTLbF9ij
zDID*3v{^NW6eh??2gT(w!52^r!#geEZ(v81t3);gUXB2|T|aIZ)+HM-c*7=n@Q;Wu
z$_6(;$U>B1no9R7`zMGt?ET#u@6$q$qn8d~`rzc-F^C4U52~c9NCN?<p;dpcVQF@y
zwD5t+ft=gg;h!y4o0D!(&xnk@TH*KL$ag#wp)L@51y_0HlhR7L7(wU&#b%39P2Vvs
zA4v)Lj7fNf^D|}htst93n;&Ki0db84=QI{H{wRmr&`(hY)-7sYsbgSJ9Q0Jo2W)Y{
z`EIA#SU(iUyu}=B!(woVyn!y<pe3rEc91Q4;D%96Z?5X=#^&Zp&UVzk36VJr%S5GV
z8l{6t&P$C)mE20^o<~DWQ3F4F_@8-Vzx_V^$!8oU3&-TJAZ*uFWo6|~Q(Ko9(~|c?
z;F~tWqEIXL+a;s5QNT;x(Pph+>$9CEf32Uy7F7E4QvwiNdV60ewx7(f-UG^)-7{jk
zYY6RO6;}qCqs)i3w^Hge6ac?{p-u$Sr_As|iM|Yv@1a&hs9K~hFC{VtI?VwpYKtkw
zzP~0m&Q5~Aq10(%c^~YwgOf+ymGz_Pp0;x+e3y_FAr|IPfc4F!+MAEzszb7}#8BhX
z53nC9Sj{YyII8XD|4OF8;!HzmE};>S+7+2Qiy@BAE?bZ7!}hXE!esMZmBacMd-gYY
z2fWE_-z)SH-OEFukPr%*(V88KW@#VzmKO<tsKd+4%R(h)fgHnBFqei=u@8-ji5c~=
zQ_Ot(*a+R5`5<C>W+UlK#od{`U%G{bib0>xx$M8L+9qmio}Rt6E5B?{5g>N_zP}aK
zOM>5Ljf8MTkKDdczn3zxoXPkQ{45#TXO_oo)#|Biq?_5XlZ1+xjEMuRmAZu+`Vt-=
zNwZ(M%u{HFBOALDm6WKmm5-M<7%t_tRgfVVMKFMFER*loIeu#6C2S0ci2JI5Lp51&
z$ua&fGZYvFd*0^6g8*yZHSxxyHm0|ZpJQ`&!#J+OP5c`eEZZQtIyc)gFA5G_q@2|H
zsD}=>gexnfied9i3J!SP0*6Bo9C0>P$)}$;VV7qixIZ{Ku&N0LX8#sd^DEtEt2VRe
zBQEnMB)R1~Z%br>)+hg_u(T4)Z+q0Uiw}uU7LZM4gNO}2HTf3UPb9;pu@I)G*mRFu
zbW*)uYK;){<hENTV6&UL3U$44FJe?TC;J-2QymePVQ%v$H7wvYnsf5T;upvEBbhZO
z$#L~<UAK$;3wD{1P{87oPWMazB~%juMAtJP(4*Yg=i8+ot9KwPRAB#Nh}{bkK>#Uv
zBVIE`={l)c7YW2Dzny9+!V5xB0VSa!GgBegr#Ys#iJv6i<5}aGSh$0vn1SLG>;%Lu
zzp9v*pRqy5x)~l#3&MVpDpFU>+YoGYK9q0Uc`@&WkcA$4p-Xpy8|7ag8fWj3)pmVS
z>Ar?72xMmEXSQe}ohwqv8uB3CmoO<oU2%hU;c<b++ovED;ekFDg_Lil#E+4vs5SpN
zVUxjJcq7&oBxVL(!2mQo@E3UqbAga7KF2;08sf=6=fHbB;F!i)5{#n7Dsg(12|Nn>
z#di(wiLO)991E!<lQ;+iMQc|hXnbu!Z{$c}d`sqdtbSWAV!33hN-5cAdAsb`$;(R4
z8jaSJo(A3Oz!r6T6GFN2L!opV_pS30k&%S<iE}4B-#$MR2t6%9FEv};WvjP-Iy@Rv
z(3{5H5E>oWUtLwD2`WtqSh$3catm}h8?Xb?XD^-?GTU8OI>O6lw(GS9FF$`9I3z_-
zJ52zsR6fmbS0tN?*;{)K^-_KT0c{xn!o3f6R!pe?CM9%PM24~SLt|u`Zn#X%8`S=>
z``6YH5*==fSV*UdoZY4<^tGW$qJ&f>v5GcNKF5Pz$$*KI9QsNpV~M?sxUxk^C;`#x
zIhEV*m$J>!RE3vN42Ol|*CtI|pU24}bOo=iBiSM63UF*Qi**S~+nOU0wIS0As11mY
zFF>RbCzKUJa?o^DPeZwh@DHdo!mPl|)N4N}8z@B16lKpy&Goj-ageh_sIR(wvEgLF
zw9XLvYxVVb&7SzaD49IROAV#wPRusDUeCs)bww2W@Ub28yM3oubuawtU4}AA?B{2}
ze|S}*iziHGDS(Tum|7JW5DX|CH!fumDYxy>tNpO3nqc>q5bi5s(vqBqJTId(h<TB-
zX64=FyS)T0gH<)d+hTzFtx+mIKf_W0ic@@l*0dJhneq6VB|<~XmXkDt)=F5G+<99a
zz&NC_U>zqVW6dn+DsPF#FiEh{GMwEQ;0}3UN!q%+zw~VkcaMUvDn$HFALtT0!S(Yu
zWlA}i)Lm%gJGK>jicktkDjiAp+xMn5uEi~hr%74c?}1Jr+VMoFrr1C1qbfySg-}B)
zK^_;#B8WyG@<OBIrflylxH%3nk&k$anl@fMe)PPNjt=3&31`Mg>I0BNVBw3t?y^)o
z5{(5el{jrb+>Nj@1Sw>OqaON3(OEqtCuiEl1JQ}t_Wazg0&qDi+RTYH5@Rx6&W1n?
z^OA?rwJoYXU0*W<v(F$LX7HRm@%_S7rT%Z}Bw!ggN@BLTdlw9m;Ly;6Yu2o>0mhin
z8S2Z)R|2vGjRhujn5-JR<9mMFk&X*5j^4PJ$*OFt%HF?Nw#e-9ctoF$KLUKshQvHn
zq}_tg&A24euq*0I&DH%acHLw|b=ba?$sG9k?4zBPhlp!H#QGeDTMJ{zr7q%>X8$$P
zBnSMGB({wRX^Fe9w}m`OljY=xEm_ZCX*dNM`=WfKIAWU_<!hPVJ^IC3_zL22BsW87
z3lTt0W=-g-)#-I$6uVJrgdaB9*e>P;L&I+Is_MDGaV#5wXNHlViY*{CR$l`^j3tu=
z4@|z@Qs@IeNepKj0)rB8-b^c~hv?mRqBTV-@o`aPmIgc$kj0Uq-2yezzuGO7C%HSq
z$afR57s`uE0&ZV@B*{E2YA9SOYEf<T=a~NFfy>GeG@}!98;-mLSWo7%$S%dSLcZl}
zmI%#S2~n32ipX7#+DomgM(b9RYk7+*+|30@AR?(chiD?3)L{x9#99#Z3>As`S+)<Q
z83py{5HwYr*dP$;<`1kP>oTcYw4In=ELj@~uSqVjQTq5^NH^r8W8VzV6#d+HM-LKM
zgxjg`IA-wu$!Ze>EFjPlnx);LZ<=Vs^M-g(m<=c5ku!6;6ld-j!rlvFeH$F!^8>i8
z4y@dbJDddVzPi2=7G-HFTA>#51*$1w^IR)2>~!f(6Kc>xqb#BK4S@~KWug&>QOCs6
zPJUhI^rAIKZ6|ibU_@5W$xavI@SCDbZT{p7I&l6sR?C<ea|DOI$X+o8Sskjm?l2+o
z7A~{MIZ4PcNvLE83pNN`@8-lT>ZF;DbK-@BXch$|agwB>gzg7fqhhc;>zVs36N#rK
z6B5arfzm>2jsv-?_Fy;ZLZHv?DEfi6Z}gDF#Gf2Pz+s3nUoTn*BESL(60JF9ICOQL
z-F9%aJdi5p58Q!y9;FBz_#Zr(z}EFy#hJ1PaC9+fC`o@U1SARw{j28%1O&nuZ<S{D
z^`OnIlz{Km^8hZpqcv8d&4J+>WPuoteYA24hocSK)DcQd^x{cEMBfP-fdAar<e=p4
zE(2fkdlV7Wj4~k-P;@xVuOiwhVB!jM=2L_AQhG!?^me-ff;#Ovrr$typEOk*QI$@v
z_J|QoORo~0&jvI=!YHq;t~X4UGn-#dUi}UH_~s0R?4%%3Kl33?rWqjhre$3uZbKB~
zsdp}stVdIKGIc4br1qe7oY3BC@~1E+dBI7M7y-S7e&{0<2Uny7-51_vh?XK}q9@`%
zb}G#bG90|#zK+YP_pt(Lj_e0hlE?y>D}=HP@r%glj}joi?a6+jQ`&|#w;0JK0A5Wy
zL%g)GUkJ7Vt;ztheS)6w7s7M;qd|s4*^n;xbed9MKAmsbXCG-t0EI%q?P+e<Jmnjs
zN+$_#xD-s#0D|EGsIwb_i`E2SP=Yu&kTgd$@h_Rt>92{oi4Y{Ul_oWW^=(5>Ln#a!
zkJH=?fn4ftKIR~89fVfSwv+o5yl_$2@}C@wZ9fJ(|L+i>{#P*25ej<9kZ_WUwp&<$
zZA3%VW4?X>g~m<UB-_;E&_9zWc`mx>*e|(NSDUjjm79uBo3=hbC!gkiG7WAEvA-Jx
zSVC1e70}P;%qRVB)h2%JQorhTu^diB?zNt;|J!bR<+*03`Pq<AHm@RG1A_}18XD)k
z)XOafU*$f11#*4F)f)Q5oNCj$ayB7(AwAVz!GoC0F<EUmfjl&JC@n34v~hrvQ;d#8
zA1G0W#l&!;v`*~S5c-ORLCMxY0~ctAc8U9T=CLVjT++FU>GR(G4*hnxVln9|ko2nT
zB#BB0JQH4*QMX29gR2A3^isk`2Atap2&FIIl!>zP#Jg3h5=9ScJhRnjyA*nT`f-}o
z_0()bJ!e~>o6{+?GJOBt?mjJ$K?$LjWMuZ=ceIee#uK?-C^9)D!9^s=!};eW7LPy+
ze%9X}hR4Rnn%9ZStatss?{iA1KhgwJHbbCCgJI3CV3-q~iMIPYjLu`3#NfEO1{=GQ
zG_oghxo9i|!~y1%QBPk)`Hc$rlrr}UYe6oC`LWNgN(&ySsw#4PjAknOn4_+@u_D@H
zGCqo(k1epcVxZr3&E!H%8oEjL3irG{1>CJErqkEQ#}r64s7%KQt@x0_xl5m#TC&lg
zSc*m;e-=X62e#Voi-ST7cAB3fTUN-tjx@y(8ZFj-KN&rbIAGemV~B~8#w}|7Y86=*
z!a_q|1Zg5E@*hL##$c8jbZpw$bqu-VEzDPv`Xl`uvxO|wv>uY09IBHf^Con2Vm?XP
zkr0Yk%CF8fgK~RlYN{ZKH<N%{l9w5i+UCPjK(>ThrqGzi`B=3~@+1eTSt#0Ab#sAz
zCkAq%YCb`t@GgX?+!##6khYtfY(GSGM666$?0qBk&H+K_-@y(rVAi_<=J!IDjgPu)
z=R1Ph-X&y1_#dKh(qlwe=L;NMbWv$f41C?>xb)K~hf?Aji{d7Yr=m$8s?4*1@uM9e
zn@Zbh{pEN6cvmimPAMu4xx!(j*w@0M7E@lbZ5TMY#VmjC0~YEW5MC`nAt(Z&>3U||
zY2J#~s@yVFz0xc7b^0^NTz!u&%LWEdrIE$nc<@3#l4@_%F4+jqMqEO%kG!@jN$ZZ~
z?R10p7a^wu-pRCtuZErPelv&}g#NCH){yfc6B9Bs=>>q%FXir@M7UFvmbK|gw*V{=
ziVBH+cO`3@uLzmWCxs-qdL&)&7ve*DVGg7t0c|6ih<{75-QG6tmGn#w044Sil50Xc
z?$$t1aILHD9_~@ctd2A^kno$NtuXqEfKy4{${@Wg#1A#rR8%_>D2TL`Azrx^O|K@1
zI6&J3hNm*n=YxUMjqUYxe`$1p%(paWE<a=A??jpJ+qa7SkD~KWXlFNk=U{p9>A2Fb
zTOY2L?xN5?{-w;a&2YcGhROC@1{FmZ<nvl?qsMvP6G1xpI+^Y_A9?+i=*sdN*Ok-V
z2WnT`VSUMnFY23|eQ$ip>PBo&{FdR_;-kZy{WfJb%~oZ7rDAr?W-n#Jf8DU*j;rh1
zbk}2+GZQBE=)t0-8HI3iapggl_Igbm6s(TN$H%kxS&j0Uol!T^*FR-qatv<86^Paf
zCMG5*qkTXb{4VK-Ptv67>$71xk1I6jt|MSwv2x`HNPHY~nzOeDzT@C1o!OZ;HYTot
z^T2xe@Ovn0J%9GhIY0kAv<z=x%e~;yUhBF`RL|t|En{_k*NjWn8ZGf{c%g@Qx38h>
z;p3}%RoggPxBriK$gKxqL-%uYZ@6*eMt*+&J7|=&YImWN>y=FS0Dh$$4W`n{=;-Ln
zM?AKQ+9s;@3Ln9z0gF+b(QQ0R-EkT}YSdq!pQ9%xuAnS(wnl>a$FC<vfVM4iuFbGX
zsMEm2m!*_rxAK48`^T>Unx0!Aw;f}38tsxxokul5bPP(;`LhsL*+?dUJWZbuuhKJt
z(){E0?>fq4ZbNPo5=vGfVc~nfp7evJ*pg+-d^l>dot#W&rz{c%4Vu#AJb6BA7Qo;y
zp$sC#ebLn4SKF)E_yD8;9Udd?0QF0w7$CYm4xQ(Z4bk`d2xa8zua+qHvRCWQBt!Sa
z4FY=pMBg@g*Z2N@E=ZyGrg>uH4p|t^jDsJ%YVU<<69<RPTp`><P<j5Gr?0O*J?a2j
zS)TQh;zMRckg$R}kM?xndmy;?l%kXBmiIMh>W@vpNHmCuK{PutDQT=ua5QwcaK-!|
zze4#ZCx##3GaE|7svClSO=>yx$3SzIW)YenmQdDX0uS9UOw6vnp&=I-2YV8kzm8z>
zH00?hdk{gWUyC-bi`QJ_Oi-4m4oPBpJL4ekz$EcT_Q<QsPQM6f3jLX{aC-^Y^DRng
zD6@XS+2>7fIhyAea^+qrD?58nTs%Flx>_D>bGtB%Pdb^j<|C;t`ZjlW`MR3`rQbwH
zpRu<W!9A3C>KhoGwzW;G96bI(LBonM++CU#e<NqvOqW7-d`dQk%R!(LpSMWkumeZr
z9H+~zhw_oRc*9pzR16ZbW@hXYg4EUo4WeUnUwb4wJA0y%f})~#k1?|Tw{=OW{8l}+
zOfU7NrS!|<_NzFQsFcrF$ErU?Q@7xzdqGJCb$3Qa%zg9vTe5e<f^-~9ix;-a3U#UL
za&kRx@@)z7>;CG=OPO)TbsE@AlrNudUhkXgS$}d556?y?;PxDz;ZafK33B<<ipt8C
zQ%FrRW+)T0$We6G;Y~pceP9x_Vota6iTK|*IQ5E0;LbRDriYwR**M7HQp;c+$CmhI
zuZr-UEgjp}r0UmjmVf@tGGd$gNss;w>CR2~hxlSN)0G4~4KjpAz@x>>*Zzsd_?4Mz
zT;$!En8e{InFfD`!ue8493~5tfBLisTMu9GIzC<o-7D9sQJSa<%FNpSzT367myy3h
zO*>Hi(%2?(aq&3FQPjzwJNIA$(a32C@fCFNooiTs@=u}|z>N_Rbj#FS&{QsdgSL_P
zo7h;dvR(uXry+pR7%LNgT1x71$?(<4s+*WL^bI|$Cu3{IS+j3{J;@}2$G*nw;RzWw
z%AZgwk8Hm|J$34?i!K=C*xKn?X<DTt+0Y8`{mcht5R<OYhs#0p!=rcf^!)bZ$&+s|
z%{QUzCwg{Zjtn@-yZ_+9;}0KBk~8|MN{=yp;>?+QJDXNW^gurCQdz-s#~z*e?v9RM
zA;5F9EI{-dB%X(aI!A3y+Dn<?UVnM+?#|LZ4I||5dSwM@g~mO~V_;a)MhzNM%Jmd4
z*^lkSAQ#WU@o@p0{wf{bZ`gD<akmFe6nDJWpRqkA@S(wDzx9)87y6Y3Vy4D79JGEY
zQmk@EVZ~mQ$qqUPBwyn~-#z75NJkDi#atMOkUermK|!0p8u?hhDf(Lkls`UC`m9G!
zu^A4nv&C*S9?BgAa;H^9R4F|bF+20=tb@lFi*r3=rY!HfdxpEivldDCi8<68h;Dy!
z7BPaPXJmM|$s6Xqf4qr^i1!{idQ`d=;~mNjwqZ+vB&k0-+3V;Cjl`sS08q2Wieu;{
z<5vE7{GsW@z>UaJMN>$mDdrIzD^e(}`>}qT!93c-+HZM7QBv4m8UhusDQO$}KrT(X
zCLLD!5L!7*5-0(@{(F%V9!Q66gg%M9n}h3Ltbbq}fxsAtoy)uAF$!hf9QE`GS>&1@
z+qC~kC4ND}dRKI&ahJK!b3Z==g*(YFUrJC^uUfzOUbw_qUq3Rc8)ZbZ2+n=@QGb7U
z`=1%m6njjeK-tqR`FE&|-Gn+J#TmnH#;NJBvix``$AoF1pw3WIpuB^?kZOhe{M>9w
zAB5xG8!&^w8hLGr=MFLZ<0ns@VxnLdTL>Mro7C%xv3G2$Q&6+*Jdk=@+G=iYj`$P%
z8Dzx5O#uhsm5!UXuAuCJzT-EJ(v|lX5$95Qgw(d>yHzu+kCE|9k(vO}*8i28%S3^W
zwQiEjS0QYLJ%WODdJdjjxe7P0Utb<6<T6^tXBIkdVQ&5fozY7vq$)pw0j?S?1vBE&
z@{b{lv50~YiTRHQ50u#>WseLZTi!*vtg32gaYACj3RTYcyplZ<hqFYH(A5pE9IgBI
z#GyzHZKI~bM~)QseQzAB8%8a83v}+5Q-HNFBRu0)eu`6h;>7Q&COZlhef9F>?%cW4
zYF2`E{qxU`2X}r^+sDPHRlF6K4a&?^jnQ)IsXdmMoQ(N}TOo|-P+_E`<Wn_!e~BAg
zn~?v}8+URYKB`}jjxLVA%sPOk%*97%KQz|Z^I0m0W%u>4CAAsMpgOWIc^+V$Al48F
zhgSpgg9IghOxrr>2gzMS3$aRs9<^0-z(|-V&}iEYVJ6M^*o1_u2OWWPh<_+6D~l0I
zU$tVzvjzkqnGreH)Kz)3rvgnb2nq^bX8ldRyDKIsN&cg!zyA}ActBiIknQYDS+Zn_
zM2O6Z5E*Zl2GFbO4z;(gwwvBfLFH+WxcF{wZ*O3pE64)a;2;W$8z2zk-Tp-Cdr#?(
zY0pffmMo6syLayNh?O!2ihisa1=Rg^dl~T9m-3O(p2!W(+SmwEu7my{UzGM}@9(M#
z3hka_Sjay`o{)tE18NZcSc@po$y!RW#!L|=^8+llz8P`310ngeckd)9&eCCKY0*HY
z%D#!^bnKw~>Ee>8^mOmuD&M8Q+ZO%p^|-AEu18LLNFD%vVI?I6Dt?u{iWRWq$q&}-
z&`QYIyB=t{q2cBt(pzmw5A^gr=yn*>PX+46AqkjY{;F+raeNJ$ml;WHXCI9%Y`vxw
zlT$`dAv>ydp=sNpu|y>fC1vIE=4Q@$L~ZyV{zIZtbU}B6QbnbI>|u?uv229<i&2h|
zu(afdDSrSx)|c2L0ovncReE&JCkeu^m<}amt;A14tW-HV@3^AD!>{MM;GY_rYRJOm
zAG<KH!RA;_zBi4w0kiX71_v*ZsOjx;$Sr?v(5F+RdQ6aZYcvU7sL(niI@Y>@zU;zA
z&g$CfyHB#S#fOGKB83PvPiF$)?t_%;0NqxsT4i>$V*c2!rPgSS65D;R&OfuJ*t=bM
z#aCHT2anoe+1*KD^P4trE(||t?;$+pnduTH9_MM$xA0P9*C`~90%KTA!Tbb9^ZnMh
zo}Qa2q2kw|th~Od=*5=<LpK4Zz1(R6{rZ)ZKOa7P4@6dEo9CrtbKi8?exHWE__)RK
z&r)#H^5fm3wkjFc>nT$sqyJZH*ZvRHzJ`~HC?=*R$^EjEEzx#L(KO_eONfpg!f^|Q
zt!Ys1WakzUbHuhKC8<-CBpH{;NSfr*O^M1SLW)QfooCsf-RJxPXMOrDYt77B@A|&)
z`@GNhdE6Q5V^F%(;mf4O1o!Ls`$f(0T`5D{@>wAD0&T%E*WEQcUcPiL8n#!@BsKbo
zpf%d!@{A$7$R1V;_aAw#<y`KIH+>LcRIIrDrB^hu#KiCYY?;sbOBL-SQ|y3lgii!`
zEhr+?p$fa`w6!qS_tt}OaSKT1lkuDK_2lKEm#kCc!R1puq67#$#f_235ucODX6vD_
zPXfrFGojxx0In>wBG=blp0Qc?`0yK{6K#(l@0-XT^<-H5=WA}^T}<_A#&+t=?V5fk
z!rdA<d*h`}EwyU%l{pEwi12ZM)BDTwK7T$u+FiAZkdTq_n;zQkgmzqQuymtkmxq+n
zW)Gf7a&o(_2Ow1TRw#E3-*LMc(y*ya@)6RooP6mQu*n<(R;^rFsiA4l9=M@}t>io?
zn-K&G@+IhIB;@2yK&KWMH%FmEEU=iXvV%;}+G9pFGwElwR%^}P^lVyo*$Wbp`=;jV
zKdRWVSgflTjNVcELgPs7y^0&=Scv-%kO5dpPRLc$PS`iAcBR<Izk*}xb8SNr&N0c*
zGqJIhT>a>t(b|U(t+BDwo_Vv}AVc?VvY?~WN9*D}e4#Q}w6P|KY?HmRG#r%=4jh@f
zKMqQX9+7|RmK2C04z&@wG2hqUd3y!2V6ZJ9hW3h)n!v-oZg(}EZ@FdACr<f!YbYub
z&@L2e%Z!-?5+|$2+_1qWmHn`_wFwZGv%KfQ&aN~$FGg00`@CZy`XtrClnP$vFJWk|
zAm6<OI=ced^9BP{NE>c|gA-8)BMTO~n6d%XNG*-;p@g+0-_Q5wBWs@AhVfG69LDS1
z|9#HrdN^I-&<$e9W$aqbjJTESIsrkLO*k<L&ysLSsz*iA2Nq7ct6_8awsGDH2!dx6
zGzRI(f!X>y(ktFz{5toZr{@gbO0{mS@@QOoxuE7%*vR_I(-|4D(7S7<eKr(96YmB@
z!J#5RE~X?j5DE7^%kn9&sfq7Y4a}~+ql1!Z5eGr<tjAYv)NGuc#WF2~2>9Fa@Oq_T
zHX(-!RW&f)w|p<Qdh}u;GqbX41S=-&rz_QOa)N!#jxQotC17kxpyvGXfNq$N_JGVC
z8vy^w7tmpx_j3h@!%63Gejgt8g`?KJ?;}BaAX>k{Fzqh1JpEPmPY;;sALgY+O{!F$
z&diL%{I!{>c+9}lQw4HGDHu4saCT^UvhW15-k8RBbnF&4?cj_D!+Wj)){p&u23Mc;
zLBY^$=T0N^8I5|AVcXC}P>5{o(S5bpzaJDWf}7{prw|H5?Zh!Jgkt+PIBP|Hd30u8
zFn@&q7FaBeP8W<b6o`(FW&pw767o?Ib00?(cJ~|FGu9yCp>sgvxfstq-$tzsYLjHq
z*FzZ{985@qZLR&3u&^-y5*2pH?Pyum=u6R_;orBhBeywTO($d$z(L|SK@ic<*jSLh
zROsIpYtR~6?YI^NTA&D(`u<nvQ+UmwzXDweUG5k*1Fxr0D9%rJ*xAw5*R7+;%8KQW
zOqD@5m&fB76z?%QYje*Ju6%K5m%yyJ=kG!;Vc`H~Eti+Tq|U(7Qp`?0Gi9BIh8T(n
zZF4UTIF?wS5Fk)M)dOpwNlB?)wZgV;2^#GvW;2RfTH>e_K0FF!pI6vwSh%}6JqH!P
znYHz)NP|mu%0L7#fHd*(S<7a#UrHB{<>l($T6hatT7)M95`_g3F_dF^1VJ}Z^Q^U1
z96(SVCQm1Gb5rnkQHClLT|h6jTq?6eu&WP)0nS|g(=)p93jRJVIbPG0Q)KyGn~EgP
z9UOT3_I_7Li#Z;ut!?@fr?loWeCjpt7U|@#AF4hu@eaHOm^d0NBP1lWZNBJ<FWG$*
zcP~cE!%4Pw?8S3I{q2eGQj^-81MK(@2F7x={4QjZ?VuTStH>j@vjYRi0ohM=4pN_8
zsX{qhaPguDO3)fT=DKyF5Jp!Gj113Fnd_v1=5bT+cA%S^BD_eFpa}Hh{X$HdLb=y+
zx3r}Bq$FxnxXSG*st&~#44b`s)d#PQ<!#ygAe4btDj_;Tds5gbx|{UM(7fQ|H!Fg*
z|6KTz71hQ;t)Hf+n-J>P!lwhy7Zxg^?(;2|Myb?U<|952+U8k=Yu+->6_i~LH}=yI
z59z47u)Dt=w;8&3bc|J8BEYt=*17<egM%|SXbFNAzqK@H^3$hJ4bUcI!N0qIU_ePz
zb6HeWl+EQQX6EMg$OC9iV=%eivXZk2D$*FnQesM+9-UZ~%Pz#y5BJA&rKL1D=hQ>x
zfW&vceEn)vxLZj_M-rO(%bD;t#S85YIXv&8jPZCs?}r$=^jAW6UJ((4PeOHN?CYzJ
zax9J%lTUxp4MA1`V1XpAMP3soB%%L;6;<}e1ItmpCrwPSt1<A4jAEuvdYYoHJbV56
zauX91eBYyci{mW{4cTmM$dp3pG2k_{qo>SLdR|ocqeaXTEh=#+z0=S>NtcpJ#8UAM
z0=!M=*lE(z$C0|RVTA^{@J6&JWb_y914ALZd3<JOhTukt9LfR%a1jB3ceL%IJDHkY
zizHGt<*X2v^3QsDQgJ(mg7jo{*@ED7P6wG8_veG<U)lKrfkXZZant^6EZ%(HJX{Pm
z9O(FoF!=4a_0XIp2=EP2GmU(5!0H4Q%VV>%VMyE0yaF>;pyrvOq`qFGtUR%u1knNN
zpwvZQ-2aZ1cySf1Tu%P^r)XW!8>Va9^XExmq}Vd&K`BtLpo%s@v;Us~=3|sP@C%Y~
zQP5j#RCCCME=mn`6t1ZR$Om^iz2flTz`!9TC1nNg5b7#A{WWwr^Ol(+lp0Vnkw_eX
zD?<?hB|+d>$smp?;|Z^|&LxO_-rnbc`A>AhR$PMk2w1*qeNS~YgQx?B{3Xu}w?}_V
z?zy8VG=)jEwGa&b!oIz7snB0x`--%)Bip5YK0cn9D&{Q{CO!iD6#|p<rX%vMI7W3Y
zXId5oq+t-X6keMEAUEFU^UvC-F(gHCZ_?MYepSM=P$)mtw?p+v(wG2%q&g7X7;^Cq
zWW$NUUdYBuQ38wH>+F^I%UPv9Iu&1vX?)4f1LbMw?Pz^Wh6ZsvhveZ=dlUhtfpQDY
zvWU2N!tP5v<hF6JFMBb+FtW0u!k(8Qr;g8V7nd*EuSiD1!ZBehTfY+*{_E&3Sh&GI
z{ttNtr~Gxyr~!l^OYemvf{vH`$H6>~74FBO&?u<&_gS>`G>_P<zt2j%XZp+k<Ku?E
Y6SZ-&OST4UET{~cn^+r{7`ny&7uQv5<NyEw

literal 53212
zcmeFZ2{hOH+b*oRDB6_<g<YA2goMzf`UxTPSjn6r^Q>7U^fQG}5t%d3R6?c{Av4K5
zW}cnv+txYHbJqK;^{)4Q{%4(Y)?@9xYxDCR@6UZ-_jO(O$6Z$D!Zu1eN(u^!ZKR9m
z<S8gN*ilfdyS{lNzSA7=atwcLyngAzIsA#QxwE;h_+yLtMO8}*3VJu<-!<OdzjP@m
z{-z+EJFQ^%e5lpdNkMUW<(KWT8|3Y=_dk2QQ8~4K*M2q$m20O@-IDt#`4{b%(YsI5
zI}_h#Y@j`2C7~i~C9(e2hF$mB?*6@TJ^Q7kL(C7pl~v9yJ#B9ZB}KjF4f;9dbh77H
zmapSTcDSS7NK2*uXHnMjy*lfEUlaw!qZ3~{saO9_A$yX^Zp}ac^Y@vj9UK1n>+Q`F
zclWG*<j}4yTC0D3B>S)YFy|w=i1THpnH8p)gM&$h)V3#dSy)+1g=KPExpkzn&aVCE
zDn3L>X01EbZ!R2aapC}3q0={Pq-*uoI7A%ARzG#>{-O6&yWV%azn9Q?kW40jpkKXZ
z4xt@+v>zi$zBfFd@}6(av8J*;L93*t6?TBy?Ev+K2aJ^K{y9%K<Nu5M&Rm~kJ8CMO
zm2N+wN1D?~<5o+%c=q8|x!NdcT1LhsD(<XPhtGR{$uMbls!z4-l@Xn3u{3H(42@Nc
zi~9KST&qO|ms-jVcMWdki^-mJ0_7gv#GM<4<U7s`gs&_{&rc7>oqs~de*CzSySsZ%
zPp~on^^cpmaF%G9P|5^e$@gC)E=>J+%rg)hmneVc%-tP3ch+T^X-fwklZc6lDNbzY
zwlFMuxXocCyZ2kN&V{;o)hk=JY{?l)so=L8yUL}Sa;~wl(IwMXI8>?ma}ZzYykqa@
z(1b!qF||xnO}*sR7a#U&E1v{y^Ao|gH~yT;l4P>4uk~l4-oBi{#M+l<-4;#x^eXo*
zbuq5UDk%8jK|b8JKWe7kwcTvaI5GP?r&7FZx>4QQlJUL>Z=>;_W#q{2ioi|J4Ti@$
zi*hDDi=^vS1>d&L5jsGv7$eUdnNobs^J@i9VSIGBOOshpU!MV&MwYB#tCjDMuC9c_
zTn%ms35mIul71_r_jflq{BUQrnjP!B&CA5ZWYCspKTsR(UG3muv53d?r9MHuf@$|Z
zxAAVLsNJQq@$L%iU&VViNsUO>5GM)Z(=YG08t4fzqkh)nA89>UAETV4^?G+N-qAP2
ziH~ote$khgXV<aVzFs_M+Fsy1HQj9HrZI}Ei@mdM(?;nxlJe)zKO|n&Oq(Om&-ur%
zP8R<YhPOTLtv6%0U;I_-9~2ZrO)qS)G(S~dS?O2NEpKC!fw;sOcE%0iISAbRew0f+
zLke#vSky5?=J|<((Y5T+wK4ZL(F}w+jwF{SY2~X8)+cb@@^qXTQ4HkP%v+xR>3i8|
zVS2c{yqsLoO|I?#hPz2KZs4v86;amAwc+~ZvQ9P2{3V{RuBcgU)DxUBe!8N(ye7wb
z&}ynq`BJ%A?<=FPuO9S#4vlkOm}VCdQRfc4WN&XTY(3ytFh9VVZdhBwA!5}h8+y{d
z#@I2WibcoMlQ(B!BsZZjNh7;vKDRgG>S$|?=W6O0J9js8*OLQ6^2YV?Ulo-#U(e3k
z;dK!aOfPKp<+AwF4S&lM2Z9BR1L%(5d_&w_o8zcrsIc`edin&sYXQTWbE*2((*xNe
zmOYg_iuF9@3SE}sd(({@>PK30r^-2#`VjC+8XC`Ey?RCb(*67EHSIbdAQ*Ggt`~b8
z+aLD6)4cD_CWg0RGsDfw`;Xt0b)%+_pML!Kac!Nlb^?y%z^r^$E?R~@K`mXfaB=+c
zNX{U)fJu`=a&oeVhX=Vz@5*pfx^=CzpkY_Z6Qx!>lF_^guXbTkw|j3JZ(e({db5AO
zSC^#YH+a#Y?b<qO_ZG2Jw=~l}I+b}@Z0;ORGp#Dd!6Au5q=vc9_eV2(@CXU1imxoD
zPA!I*6?~oR4cC4pe95RPSU`!UE-ULqRfu4<Sq;Ciuo@PW>=QbHGl?rD`^^-v*cS^}
z!mJDN*y|@!F2)8#tNatwvbTIXxR|}gm+iiUC59Eze~VST)Szjr`EDG?$_%(1b}}X}
zFYkKk%==A@Diy7{wlj2;e`|;>j-550b7u{ct&3G$7vTNmNgWkWo-9kULYz{Sq#dJ(
zjg*j(kZwx&#mB36+O6K$;;6kPyY$hvNUeN_`tfaoE!)!s^_`sZ8Z6z4<c2zTC?#qb
za*5A&+$)ZaNVAujtk1O_^~vaO%XfS_<Lm1ip%|ysAD2{6gXEB=Q%e0hGV;^jF2&EC
z<|-AqKY3)S$9YK?JyuWn)Eg^ji*DcTzP=UfXEIV!M=H$o_Uhz4)X$pz@wmFFV2QWH
z0HI%RSxxF&YxwPr+|y}ZlO}%A`M!wqswysdCkZY_(rN;G@#E^Fhw?k(1x-m6f#=@0
zy{wB<7B^m)j=n0j!I5)e=l=cs$HlP7ghVI5ob5hzS}pAQKSl9W@#(vnJJ_B{$y~ln
zbA@T;%F(F!_;{ZTDuL5ESY}Tc#oHX(kXN}ha}+jFANYdh_tQ$a+amjhXEFnVi*kv=
z<Hi5T1`iI>aol<HhK*QMbWzukYO(etzU$=RmeTP|NHxf&XXx~&`@TjTtP^*fzG-aV
z@$OErh^^@tt=bD-2e!nFyyCe0=dP~5++@c5_4TDa#`g8`s@FV!x(ZwMUFC9}>kd3<
zlIk=!?o*zimEWYcJgB`w$Nw^zOn&9ddikM3ruzG9EFbn!{S!hQtUL1jKjzQ08FTSy
z<*77hm{95P&u!eg_bON6csXbJ=g-tCZJp)@L*J7R)`bQK8*w!cPrvA9l@8t|pO17^
zZ=t8Br=qipA})?8?MP71tnUugHWeLhN{^#v6gyDzC{iX=I0luBJns7%Yd)Z&dt9}C
zZ^U1R&-YFC*B-1JwvR{1Z&tCH8}B~I>QyZ=deV3f8J5!c$Z8GR(k6Kbi)m$frZAzm
z)Qi40yEiOukG7K>g21<^^KE_i&z}Y>%S-dfiQl3xGj?}(`;(+>ay73+%cO@@hl^_u
zH)l2=_~OgHp+upC)n!}iONWbz{>(8eT(U8qOK;Gs#e=sV>p0DMXUP0Sn)8CqwtdIW
zq4He$G^J%-r&vGEnUwbmE6Xvxwee5JLlSV;K>nGpc3svHwawOWSf1-eq2+5FwjnYf
zF8bE3Tf#^n-wIt_xwP`Kq;zt+yhQRI8mVNOh9>3=a1@u6aNuLOSd*r-<dS51K~s&3
zQ`19@R}e!fVTH@{gTg=#x~Yxv4m|mj^2R5BxG}n@pk8cMGsFGU?%BgilDu^33hIMy
zW-~r_1OLrzu0xtn-Ld+fPu<NVV>RaDun_<x4@Gv7=0qQ_OeMMYH|mFPQ?prKoO2jT
zE<F?5pqJX;Y*siW89zTU5SKJCoY}4<B_;JG1@}QbUdpA`Zi})`^G}`Ty9Rz~DE)y6
ziXZ4HJ{O?a5Lt76szE#b>ie~bKs6!-qeL2gd-IZjL?+D{b&M;s7pzBGR25_WhMSp?
z@puYmUokk1ot6$2R=gB&<SQySZYz3vxH%5>jwm>afFyXy_chFroTnzL#f^(SXdOoL
zXVUbl=;%cq6p(S1km<kSy>8ok^whTf$B)S8<vUE(B<qy&>wiArjJn^HqWf4T?Bu?H
zKM6EjVjs}uz11kA*hPPqfA#ObG34ss|MFPRv-;O_Y&-H+|GNF<#j!&-)H6*L6%-WQ
z8BqqDvuIWm*qiMa{~Z|pb07{t@elNW!1#;4zW1x|hvGjz$G-)&e~$AXUeJHShs}g6
zI^L~8{Nf*zwmhMhPQQJD6|W^8?~b_~E*7g@SYTaQz<?@EZJYJi%alCZLv@G|?%dWy
z)7G2^B7WDihclWHf=IJT$C@t~rhjdGB(Nj9IrD-ygIGggT5FV4&>?&p%ioVlisIc$
zpr0QT{vQbG)83sU<`fjCgf0L_ypD=88fnR<J9gs{H^QEoiRq16x)A}OiAZstZqzUT
z^l2<NpZ7eq+gWP2t|RB2ZT9JWOVz*p8(HVsC3`W7o6@Hyxz+Y>wf*$h%R>dWNJO+p
z=SD|w4Sb6+chmY*^ZHV^`3bAx^oEBbeuwx<RDQMFbv@C|2(K}SNToGqvdFxIY(tg6
zX_$+WW$^RUQ}iA43+*df2F?x+4#}Up+g%nCWHle}=1Qqw87rbWSR9BXX~KtS_sL{0
zn`#N?Ow9V=q5J*qHHkJYvdhwxaz66?!1v?`VCVzIrKNG#iXP@*jZXm|4@7v2)hsV9
zB;5C@?LVTlu*Yd~up#MFvT&%(@b~1ic;@wQuN8eu)D&T6Vc`%H)7qnH^%Ury!5LXc
zBF83MgPSNu>o!p<0BidD_`EPq%2y(i#>McJ*YsD6jAE7IRbKXnyK1>Eb}`lge-c;V
zvNS({+|cH-U=n)b)}fzWoZDDsp1;)+tai5T`|^I&yZ6rL+V9_0LS2{V2HFb?d#b~e
z;^U7LE=<R>`c0Ui--%U92p+P@-LYfGWbI|~4M#?od5u2Y-=a(B`2GUWzt#H<d)}C}
z7trzPc@nr1uXdxTSd3kg8<VE%(v(qaPI|%0vLiYYrby>C6t^WSUwr)hTu6t(u4Bz%
z_P!#$)FAzE=lUBrZtRNH2MAZn{`vFg(F3H$h55mxvqr2lIz5#^ozy~y6h6*;Zb~<P
zJgId{9DP;R*%^!ZNkh(z2UL3=iab9gVl(uNb_LCeHp>EA!g1mK$>$GMPirP$mv}kF
zY?2ur=1_j|7%J3swip*zf=cf=atCEyx_Re^L!~I7*G(oq9rj*-L|v`HQX84HE8W@3
zDy^)ta;u@b&UkY&0{mcRd!GG-CvVBm?rz$+B`Pt8nGt%6cvBpdI%Wj%8-!)CDPi<m
z%#|pts5OK02%2g&DG7TsZ$|Ouc+GH^l_gu_!orp1+^HELrl!#qB?+Mb^drGMg^M-4
z1)_snYzj~r%FkW6pl)s2oWXT<ZfNLc+z2XMpy7~&5Rc7h8~xFdA9)O>BP${M1x;^0
zm(hQ>L_u-8{0T!Ia~e8P0i$mhYojmI#N?rC$hy_#G;LwjlosR3d#t2yyn=^kShnJU
z>&ilVy@k9y*}~E?LB~ei!ouRi-fK5vAB~1Gx-KSvYECn(JufFGr@LMH7gBPCTES$^
zrJ}v0U*D3n+a1g_ZCkB%Q@m@8B2xb{W}>VwU^dK5OXJU<ZZalE;z7sWxbsleP^;QG
zNXRmZ37!9?@=^Es;yv2;(@acF6B7&Ojh1@FSGL4BMUqG)Ijq8UE+hK7x-meKO&KQY
z?{WZAUf{ik`9Jgc5u_jX755?eI?=qMvhrK_@+7Ot_qQ*<TOR?a2^Fyg<dDZjrla`0
z2w%aP3S?4D($YjR=c#wOblB$d<2^j}8}?|tAeM#hG0!tVXa3Kgy(w~|QT{%`NI~I8
zy(5o#40SOEhd{AST|RE~jcsXhq8k6>i}njAP*Ms&!HV8MwOe66vM8x=nS*^LBMoVd
zjfEvjHmJ{_Ex<=9K~0w{{KTzSUuf18FoYa8q11loV%KIm?<T%@(DSLEcA8w{_|5i>
z+vxm^T7lPa;Wb3t@|Zh^&0wyx$j!})d%unXnj-lp0zN4PVZGhm{V2A9Oi$=Vl!!K&
z$#8M@*Fh6;-SS-~?FE|TT|0M12)5as1yZ<z2dlvy_*^EsrnYvfePvlW++{vyBMn15
z+7A*MAFA)4eOaVarc(ia3cJNt7AJhX8@PCR!Oc9WL9R?UYZueKapP0JRe84syQrw9
zw$rZ%4UXgW>Sq1~sB8G1tYbYpc8x>;`YBWe4p!C+=$`;yzoLsyNLjaW>zK&>^M)l%
zBy^~Cp8NRHbSriv9dPjQT*e2%M>OSF#}O$lZU{v_soix&G_8ax;%;vYo-klU!ScK@
znze5nwx#s8yW*A`Q}yFemdKGMPxcR@22aH{gwu#G%98nSeA-^P!Wp16R4`ChRaNJ{
zlXbF)M!c_#HQcXCFST5JqLNRm=)7M5+Rj0@I~N%2?<a!|yY2eAeoq$pR<=fzPN`Qt
zmvW$ng}V@1;ET<sjVZ->E6WSI2d>S1dwF)#;WA|BYO{TAMc2|f&+;p1VQCAJrKSez
zis&WXTkLy7&y!;SK(o%WXBtGLbepy#JOYjKsojdc58E6ra{@KsQbF4tFnqQA`lE-b
zw?t<Sg!O^7(gO~zpFl^xp|!xUHcDv@aq6~9{Y{(0AXnT75za=fFHbnnr^U!cJfyvs
z)ZEH<>{z_|T-T2umA|@5o$IH*oTX8nk_tJVAf?0MK}5~T`{xYV`nPXGBLDVH!Pm#<
zs=ugt$El|SK}WCMO)s#Y=;<M#IK6LeKR;I3l>JC}!gngk%a;X-S4Nj|tvXEfLAn2p
zM-T5dn|*(K&_IKN;)TVlxEs6)nz>4-^Z|aZao^{s2J5g4eKPXFF<G@c&(O{<fF+41
z?LBVRreUxYB^?q!HKKK-In%6x0NZW$y{bE(NCoq=_x<E47--71O$xK`*_VE^QU2Gj
zUt(td&BS-mnrT{A2}oYND2p{*m+xqs58lXyHROASNl1FqXu*OEd9pt`e0T7>S0{GH
z(z1q$I!?2JbFj%3HK6fAG<@->c6Ky54N^=k$13K$H$wv6grju*F~kT`Y3xN&?v#|2
z$zP?6gP%o4zv0bAqudc$(sjNzd=lZUniLrQBhME7OuT-W{duD9f{y~kHbxt$#m>%t
zuvAS+US8fWER35p0A9|0kSI1Rm&4*2L>=B>0eL)mqKKkghmMUv0Fp8?)Zfom?2Q0W
z?L+z^GMr+no-_e-kYXIh%UIJ*TZIdobIoFgYF<B9R7NU(xOLwvFo&U*pM{7zT-{I=
zn3s3b8C(wNlxGA=BFZ_*mj%3p?8VF-4GHSXHo2_>LeJ2G(}>NU0tb-ElGB)?d+FtP
zQr@`aJBNz1`!_tU+Z%yL)`vE*)_JBi8qAmm0jEJJf(cA0T%Jm50<3!Hyz2s~={)(^
zv19zM%TBG9)uMno#B;E2)D0y1h^aYyS)W|zT$|wmOXoL9w@zdE=A(Wvlfbod)?{>(
zR5hxpEHa1vm9=76q=VmJbtus^6U<ph26(5YLf1m37-R+`P!kuEB|K0t4bghmTh1gq
zsAXHcw)XPG;|A3-rP_evIAEE5<T?jsby*2&p608Z4+-cp=L=UB#0Rr`w;#Q;S7)-t
zvbsOHl)=}}mHTE>8VO*8(r`iBbxAQOD9FRhO9|KN!I0&_m@AG`)}nUDGt808Z|wEL
za~{kKKW?HH(?CN(!SQIUJK%8hyF2R=v}?uZe)`JC@O?k0it0K!V0{$SL!qx2Xo#Xk
zluwr##kYybOM7A?R8#eo?4xT9!|Z;z-`*+x@#DwYq2eh#-~0S>65ySAS<+CF-AniC
z=zV@}=)cf$k7lueVT9o<8kcb)Aq0uc#ZsFpfre*TwS`G;&95XL$1`x;VbK5loPC$^
zo6%4Ji(uwU0ka7re(o~mO;~{mc5Qfx*BiR5gsTvEXB?h@oas;XLf!~IZql^A)uoKg
z{2*g$XdC~v59@vX{dLhO_GEg!z7)9eWEi^PdVYg1e_uU7;2@E|9_wE&L6r@r7qNK;
zT5wlvQENnb>LN1juwdf&m-8<_;=A8`+Ne-CC})LtNsyXK_Ueeu_Z^N4j4v!jhF=_M
zPjz-q*L;(d%rnwPmJT_-O(ijJri1J8V0QFQR+-uOc2OZs#G3WeL~*~BS~D=`%Wqv&
zwlrEgo~l@{v_;76R0)hi7Lg4CM|{9Qsp{6&)>a&edi5RoK{2o}tQcoM#>>mg!opG#
zubG>1Zh^CcA+KaF9~!^HUe6>4ls#o0@SGwcLqkJ{=xdRsJeg_>T~|`+9NA8?#(H{r
zaa-MF9)54^$qT$petKibM#MJ(yheE6d-bg-O%pv;zJB7z>#GFYo$7V$dP8mb!P*uM
z*4ET~10F#O%5R`~B}(d7<GQlc3ynSp&&Io3E#5kDfLN(w%d=fC7LLS_OZf0?TO9@y
z$dQht`O0W+xzbEBO<R9jWP|9Vcb@HZV-C(U#&Q{G$+mnKmWTI|L9ok}m6g{=S$7d_
z*KAl-Wu*dvPyz#$qi(JLA*5$;%W>dh&7;2#$KT?)m)&ufigL*WMI@*1)#FK&(M_$(
z<V)P_lY-T4FSgO~%Yt$PSxQ-G-Eymx-o-KHGTLsCutcl8wuINX{z(3>lKo;0_R|NN
z(J^!94jm&1;5g6#o<<;>-sB~9`IcYa|6qqPP~n%o%>7?4Fs7G?aJiE+s*n|;MMkoU
z2ABt{QS;L+x+TL0Pc~=jRs=k#cdId7cAETpfgFh(z1uK%{O3)L>fY*bGcLyrf5*!2
zo}OEonVIKW#lQ)G4SC9hNVXM5p^7QpYiit(m>%GqPgA%wtxlTj+9C)9c2$$e(DB{m
zG{v{Tf%j;{-Ucj9MS_SyqlSOFU7pt=@YO2bJ9MCnYQ^y!@amXIsIGNT18Dc}SC4d-
zfnp-RymFIS&hPtK#X=Wn>!I&*^2>uNyYtgft9aO5KNRB^{2hRzU##71`%q|y{qhd&
z;Cw@m8mcSg<i?wNXh2w)nTxYDxIuU79KZSfDsq>uKf$?FJJZI;A){f53lUZJfkSMf
zW^R4l5Q31X*H2J$feD6MvTG-Yn;X>3GMlB<)Pk#*GR)fBE*{HlbBJrV*<61wGwny&
zr%!Jk&K@_euS5f+G6+IT&!o_>mZdPc=jYF7U|U0owMyg!^k-cb*`5{M$NKyG^$<@z
z5BHnC9Z<`-8C2~+^e)y?#DPgNG8qFE6%~A}m&5qmohF{_J9_n$yTh2|oM@gn7V%(y
zm-&gxYVnnu!GdO{{&Qf278z_+Cl1td`-N2(91wH*9vcCS(u17FU+T>$h%8>u%P8*B
z;shcxO20acMNqK8cmb@SL%J$dj7lUMDcl_Z7Brk-Kfhh6AaJk}U6F|t*&ZTe+819<
zZLIw0zOxGP=!u7eW3mVdHS*)OIWmFD&P*{eGph~~tqqp6F*U<U1NuuirYb6gfQ&wR
zvTD1i%i$x|QeVG*?E!pF|FK1(tzmxr+xhp`1xlWszPB+5H($ZT${K<Th+9I5s=~vo
z0wzfiMy}oxZhb#C(uB``{DyJ!vuAtx3~QJyfopvO1NDKPg;3e+)+vw;Ya-pNbGM#s
zZU7e+*Xs0Zh<1N`ptJqRdv&D-OToYjU6f@5rXZY;R?QXs(|%Hv?P%MY!8!B|`E4|p
zMW_54vu;J;t+L(n>>PRT*i*UBSmRqMgJY%sK3ksY-CSzx6U<Pq>wnGW@<s4pr)1&b
zsXlPR{N2f=$y%k8M2c2lhBC)C?wHH}z#%M5$g;%P>Bn82i;ndZXrCG<hZ<`g&{EFq
ziJR#Mzr1$&vh42UJyWUWmNz@mfYKT^%i1l6?=h%^N-b;uw1ev*z^3}j4T4I4tz;(W
zYqiXx2K+1#sO^%inApLzqhMfMfc?HYG^lusaM$JR>SNr26<g_rzj4e!8(TP{Oy?W#
zuXi%6=t5SZojtYo7)s*86Fvo*=voalg=@SQ@UhHkp<6#b9vY2c8>P=}HT9ww=}8R(
zmr}(c=rlWas8mi3M2|`FHISaoO6x=^S&|B7e^A9yyY3vHB}x{vuH?9`$(I+WmFQ7^
zc-?3ir&UK5Mhi2`kw5GcE?vHyS>Q7-dCpPTVbb8;`uEUYbrKMM4qx2wwR9)tj^vyf
zEWZNilg>6j*{{PCge%yc>xKOF^zemvlfk;U-U+^zVW?B-<?}h#t*r$BWmDPCx0+2V
z0=Vj3?rj_H2;#rR%63oG6#Q|xwZF~X%=pA!Q?zs`12fhkE1MXdt|o|E4=B9LSso88
zv`ddz`1<zRSxZos!9tcjvll{)fBf+Rh`O%bqJOsm>mkH6r|jaKxYk^bi8x-hM|Hb*
zeHf8V{CPg#*L(T#X9ZM-_?aX}JJ#w_bZ|4b%c{o1I;uW@J`T7YIu&u>ZzV$GJ!1f6
z*yu<p@~`vqW?IS_8o34y%PQ5!`ERypRj&xOIZad@GTHA@St%8_3}z+c+u$Y&il^QO
z={ycXbyq`rvQfFdm*2pr-CgPW_3L>o>(w)Es=mu1pff1mIgP-eAj8&q$D(b5ZxGR9
z72vx25r?u?R?F%}AlFWNzdRu+5*EOvZd4OVB9EJyfKFI3-PZaAf{Ey_k2{&YgplLC
zPmVu|T#>f<$&N;mYWEQzCa5FlUFRyaCG)CJX}Qel)`3mv&2g9-=!eAT8|h=p$wP&V
zCXDW9ss(5vGhyBlg;-WGR^eA{G;(hJ_-NsZR^(nS$6*0uJ70qAah{)KuTQosXp2)y
z7<V-O^<a;d0oR^9ld0E%TJp#n_$`9oWCwT{T?Tai8$u^ZjFoBu*)F~ta`hnAE6v`*
z+`J@pkBWbyW}q&Pl~k{P;g(;TNto-hy|F!dlldaX<&I23(M{++>qbqhHfq`~zWmEu
zER)AHmmWz`joPNd>Gb>0`ff$H>K{I09~_+fS?0^!eVGgl(R^mmEW3NRaicT+STB0|
z2Ed+t7AtaO#0BpGRJJb&;s|^%4k>Vc)OAIj@@pWMj^}yLy)RK**}1u8z?6tpn^bqc
z0v|`0riF#YC33*)n0p!H%t8a7UPx6G`q6<T*Cpe3)&46Bg)6>gqjuLc-HLP}%xn2}
zG~GO2TwEN3OK(cnaZ@yfpni}>dkWXWN$_F6q{78C$!n>ll>(C8K1}2XA!8d&<)G(K
zA7y-K0CKtjg5<_(*Xb))t`zM!`<C}pV%85z<3`JqSF}xYhmRKydL0nD&Ls|^ZOtI*
z;>EW+5<>*ds84V@-SU?>dH8}?TES6o@E9O;p)IMU8OVJig`tNaaFrZ*KWosOoMK{a
zgH$E0w(VT(;-@vuPfAzo&<PkR#JF^hy}oMk;&0m>hx~qpRGhiBW9LY6|4C~wm~?{4
zctQk|Trk%Y@}jH_U6b+dA#Tl_*#qIiyU+?K?VlcOxE!cy6V#p()-`b4;LAHTn-d4>
zRcZ->9~vzj9cH4}b#wq2jPt8w6=JSGxvW066!!G#HRf)F=WCc9SgtOHbyKnI|0l6r
zZ9%xzba{&>!q%Y$2ZvT~Osi=F5HS<!H}S;lpJtMhnwqfpyw`z!{9Ckv|BSOcdj0hm
z=7leuF%i^0>3ZMY+neWi-=tNYnv#MFc!X5*j916WB?CSM&CGU}TqeVotXro`weo*>
za89Du5wr|(Vlcl^V$Sny2M@mIAWE!&SzAjljYszbFiOY^0^o=6u2H(B33bXTVCrV3
zY{{D$sez62r{kG;X&-<ZM9{s#y%_>NFei@Q{I&T0b;lGF3(I+e0j#d3y-ag*?Do{z
zIn>TN#P6YSeWJxKbjfFm0kYNSntnCzWEN1Te;sNz6MLV^B0(A)0-g>ldtg3gaT2oD
zx<qd;uMCI04Ix7>Z*`TpG}yBgogvxTP0MmTX4tCx*JYSW(0{txFAb+wi&5E+KOtm4
za4fYTbK(I^Gzdck{1ojxdp9`lT0(89w;-`vY<aLibypmk75S%a3Xdx^2YEKtp1I8e
zouhO2K7M#WmB1i<hat>&Z+7F&<IJqA#wY_uUtZinc6*KV7mHGX%;m1-x?~-$&2Ky0
zq|4l?4WaK)`W@D4hT~!RN1Pke41Lpw=H^l$1`jU%u*mj<&jVEK;M0(hxRw@;LFb;i
z;JO6$24lvsom+?&;B?o_5p8peL;w-_4wY81g(1GWm@5}FbF9AJ-?DQOG2M@J@W8<<
zht}4jkeu<P_nbNC3-d4IVea(+dkzT`H?_5Go$l9|zBYmF<zQ$nA&EMhjs^`;r3WVU
z+RGg+QwwOAD1N+0y#mEHu-yXG9oesaog>u2gLRq-Y67U2BzOk004^dYC#{A7I|oHA
zC#nP;^To>_V`WT@wre9|<k1lOKYxB;tV#K`ByF5>Vv^Rt26PGKYBn>Uc!r-j5evAj
z5Uo*mb~e$u6Z8~9svi(H2Q)81wjQce*FwC+f*D8Ai-PtRBfc_MeLB+}b__J|v8>@v
z^7702GPpW_GI__i3&NU<ePyNX)Jjr-&5%U55N~v0E(#?@`Hn4Z*T;r<3BS+_zUP4t
zWF71uHtqc8e96|3t<0oK_ux08@zqR%y0L73vAHTtw0Y2G;K$fdvSNL{ZG{En`-k$I
z{TC{pN506Hx|iHMOebvh#*0BT7U|RwVj@AI00l&WyutcWQ-gJ;;dq$)IqggZw{kw!
zZvd{hbz6(PV6pjZ{KlQk^qg|~<V1W$s#~Ermc2_1_hpk^N0dmxV0TUPr|J*2GHA4{
zHzPIc5s1NpjdT~Q=Bpa_iAfLr+*!JwgDSZjeh583E$33n**{fc+2@aD_<q`x-a#$!
zKuOlR_M)~kKLaAclguvt8idl3SxyjN#ZAgs6M*B1wr%#MO-WF<golb6142U+5V!--
zUlg%C(!r~0T78u`otX=^iMgBg>)k1fwrtDj^dYkouWBB#`@o7&{PANS2$DK9j(KF)
z_akB)G)_y~CxD{{f#<)0ic|y<aj0&F@ZH2jhmo0v+Y7bPm~9a%TUcHgy+no-_x|li
zhFDM#DiwP)%ufdm6)mYMja`tzD|26OmQ1J=nF?sVl5TNT2SAxxuQ6(oP1ux3ln#&0
z{zhJ`Pf6kxr5cyo>sQQWr2AJjg42N6uvL2+JxM$*r_%cP=57mBoxu{s792JW1<nfu
z%?5`Q5VmvnEF`C;`mVVR-z=T7F7jRf_~^Fi_!;SpTr<u@@NO|K?lI6Tb8LoVQT#ZV
znI%AF`1y(RpF+}5{A~GXb9HmrV-9w9lKgU(Qy7U!yG47e<78jwl&$TN;~~;A(R`6%
z-Xj;@x9P*x^wiIldc$DxuxbHV(g!<YyJMc*EzSWgE;{{Phdf?AN)%X-Bk2yK4q?$F
zOeqSB2k9i6jxWrNW(M4QvSjG_71e;7-Sx!g>f{TrSJFqB12uk3C{3Lj-tDPh{V7%G
z`6X}}@w(MF9R3bVau<>7Q&MV}SX!8IWFB0%MA6e&WCwVq6@H=k7Erx<#mLMld!K-S
zD4XFXL%eqAL;)G5t#sontRqZWwf&QH^`G`sHyr&kTgUt)h7AOe(UZ|aETPonC04im
zduUcnAuFYnc<wvQzOuOaHLDpkf~ghXUc0(GeiB3P4*;~}xZouQlI{v}a#rN*jOBkw
z4O)bj2FsBSluWu4fG7Lm!(H(sg&jU?H$XCORO2Smh*WE7j@&x9RQCCEJy<KIZq}{k
zuLR8uOML?Z^q!EwWKq$hkr@yG>uW~P3ua3Y9c3LHa+nMu`{sbw{g!5U1&>)8U7VJv
zZfjTR29YSRFMI~0ksg(nQeT=)a}z2Z_ABEft_#iW@x5V1H|(a5Q|snkaBXoP0P(v1
zq!&b|IMyF<EOn%RP8GaHYW@&9*#~y+Y579%^SG1ga&J{y!~OB1;aDQnRjV@Qz`o~}
zpXK~H6yuk2G`Nl9KcNQF<_0R0noIcp+8?h!baw+){Lj}(*92RJ2hCcBf4{p|Q#Y57
zb_<>S8n2pqhHkzaWNK=F^EO4f-3=308(3W-N4l4Oo|0k+__=sQ8XQIldhr<a#T?LA
z2;WVx)6~zoqR+^PKQdbglrLib8FsPTy|+j@930hKmOO;l%S-&Kxx~{CzWAwMyWC3<
zp=;d!YJ7X`UgRQU#pjakN`!mz#p!$Ty}-S$Pg#1X{ChtJydNQKzWzJ$#t5Z3VGEs1
zxLCq|)2xF(n<Z>VT4F%|`x~r45uC~CuD$|Z@*y?7ktoga7^T1Q{L>wT6IGJW5a3yT
z8d)HvAnpFK+FMy&yd`}Z&8Al*B|UB)4+-GWPDJz#Jmx8og*^|zrVgBO;g<E)=e!(S
z)U?s1zuB^rWmc1M|Nb~=+?UE%j`5*AD%9l^uGVUN$#RHF*lG4{luRhyTQ@)6^Puk1
z!otCH*QYoR8IcH`^fB#O85u8u0>igIgY+%pJD7Av+8)Y8Ujc6+{bgySEngj2(fMVe
zzP`S?=vfilkppQA)#C*$?Hs=|^GxJ<!WClWSP<g4gUR;TOVpZ!3=-FvO+ru$RVpe1
zd1lm!Cb9uEFLU?GMTNKesrm~xpd-Ibzi;AthCV^H%g=H7g-ShPMm27NvXcK<M;qeC
zO-(bXFHT+p8chuosG-u&Psqu;c+bf?wCmrvp(1_;UIej7=Y_89C2-%WuW}@dz<~XZ
zHGnarmaJspCnbZtzN@Brzs?)aLC%<_({Jz<v1cnA$ktZkr7cEsPqXTmC(VUR=su<J
z+y$FWEg%smyLef1l=S{WlGcoVAKra=>-MYi%QS2t2QswO%N9gcf=`Z)7y#%64Z+@g
z?!>+8B6!d!fagJTzKV#b!cmNIdc9+Od<hmP<~^UD9@hKyqc{qT+j+A6Kuk0xe8ufz
zafx7^&I}5gwiqM?f*{Qe5;Ozj&;z;q8SXh1KImF_6XK*A5;dJmMpPT#-`li~K_9|J
zgA4JFETP5gc=CcS7-}zU-+JK07d6J6J9Xr*Tyd_i`|pC<=rSByiVc-Pd=*E+u-t1o
zCh#;I64VQvveQkW28eZ4mX#%!Lqac&hr`XGRg*gqY{LB@UY&<AP;->?Mj9$=p<in!
z9Yew4$Kv9{T`4&OoU*X9mu+P@nI%gvVL!UwF(1IhgeeG|rQp@<l%tN*Lq1)T`rYOJ
zQ0|nI!h(*Q1Vj7tDFZ=Pve!2>)CA74s)Wooqv7aFf!tcnqm8MhgXyziS`2|CjKB@?
zvaFmWl%F}U9#x^XZHD>h!)%7WUo$BLy1o4i2&nPmvEw0CO>WIt1o>jxEHcmgtWSa*
zd5#=N+|T4_d;7&>;>)u-@9doN#n<|`qh)?M^}EtIAm=+42O)!cmWfAW6`LS(Z*b?0
zow*Wmep_72P-E)7jHlv==&n+4N9Ph(xMWxkA1-RLnHg#Ad3u52S5qlOILhMAMs5(B
zG+AxRxetE8EqjzK1<1EH;1Z<m=_$Azb{T7jxy<*oCUr52Ib}8GJ7$8)E_t>%@dFxf
z4_f`B$jVCDw(ZUhW}&YERa`fcjsd`Ioy%$&?jM{OMelq(DStXxHQym!$l~Xtvhs3*
zDBA10q9t?b5+5{pK|<s(3PB3o*gC3imapsI4)fNhUk?v~>@#Y>bp}HpqRmY#T<qpi
zdM+Kz&r49iS`)ap5G*}M&6(C-2h|dO_|N&A=dDs<qJ(RBUs826*w0kQ8Pf^4@@gTv
zs3c22JNjN<^M6tazVp&58-_-|te*e~vd<3#-k4MywGx(w81eK5?9$~DLwGTfk&(}!
zS_JLUvU~rrxY$0_jBwN>&(K!_B;Cx<Y+WIy2JFz+oI$ggzPyI3JR)*S8?eWQR<|lW
zK6pdN_Swqqa4Feq3GVr!(@o3X&r|A`4VmmN9S(z!Pi1h^HoBjdjNW4NZxjixR;=PA
zTIAC+V1o0tc(k`b2!T#}=2NMH+|E37=Ti<VIfX+T9SFKOj=K7z^V<tZxk65}<}XjQ
zl+|4ICNSekF950U9KK;;3}eq0ev@1<Xw7Me8+>_j$T<U*Jx`V%oXgw#T;B(G>;kGk
zf1Xy2%1c8*T$u=8S^p#%xnB>+pngKzWscck{|5P*4EAU5woL+1@;KFZHWsL=s!Et<
z%7RT2RH7eYY;^i16?~DhKhMkEofkH~U+TTcB#*7M2*@nCasG;0!vu=5%Am`_aHdZ)
zA6|2lDY{p!K@U1#CO*5d4xefDfGurMsdmk!yCT+|>#gxZYmwD_yqsZC)Mt)Dueqlw
zv)7w)10z96mX($LQf=68mUqpcK%|e`zB5~8?1c0)@qvoR&Y8i1#Xi%ddH1-!g6c=D
zvHZV=L}%~=74aOu4KoY%?JMzkb={*b(VJ@tKmzYG#7MJ?-4PKHQ!qQKWk%CBKt!8_
z5qnlsJKw?D1gZL4iEjv>zL&tuXX3yOEAtJ7R<K?Bmy1<!gn?4C9&S>UUp_KLh(Xy)
zXzb#fUjtl>2<*&l2CMDt)!(-p=0>zBjf2zjt^}txH_^NBd}~a~*a635Un0+idEd?C
zK*3ajmHfsRXTsnP&r1kFa~QNf7qa|@HS@wc%Z-Ztlc>}gcr6ss*A+JJ*GaqCc#JeR
z%BzhsY9zgu_97N_8Wb3!3pG3WWWS&i5aPZ1ZtiwiR0}hA1O^_b+&w5Q*cwT+WiEs8
zXywCu*(;!ANMcpxFl?53cJwsnQK+*_uvq<`KOeGX+i9E24+BQ;_G2&eO5SV0zg7Ry
zG;HU$4Li&2hs{r{^|~Miy4-m0{i|@XVC_V{*jeUZGPQ_&UEixhj4rT5P(>lO>YoiI
z!RF&$Vn`2P7?!)z&~Sw$TT*Uem(0bBUw}(@Sgrj?$ky;6oZ#f0`(dUMy=L7;12An5
zSkA^*mUz({KXG&I`*KjzWv;t^Z2ySRE~4{#yUnn3j$tes$(`V_@G*70iH*<Ex(4&l
zzI0>Y@O6e8it_KuEj^UoXt?#DY4w2W6+r7)fQEz@nt7U0UHMiz{!d3#-o6{<x>vF*
zX-^L>u@bDqO@h@2;>m_VI^Xo{bo3ihyH?<DU91%yyeDJ)jHpBXknQcUG|uK!C8s%z
z?G|JRtmw9OT*e^7x_aWOby6EW{n{PBD35xgeDXn4uZ26{O1hDv4kREL0;&)$2`>-s
z=Fz%2T&qo^ML4MVzySfNG5S7xMqC6*N{SyDgKsB`)Y0E+qO?Tc`;ed@)p#wV-z?2M
zTnUwU_R^>T(&!MRA>tV}ro6U?)K~?;M%g+rT7lm7_nm=qyG9)J;zeQ}g&&c{hvs#n
zIqnVkv-9MA!d3?F=0(j)!4F8kOF_01z)VM)Av~GH4MPVb-m4yLl0C3WZL>RxDV(F^
z%5^j+w@*G3t)Kz=GH5i<lw(T<u1+=YJYxw0c`s;6g6tnDTyaT7{0=^+w$8fqip{h+
zi?F#7KAI>fC?zlfqHhUuV|4j`L^b7O@7q0LfZs`)9^-VIevI6)g-Sllb>*$H#v5<Y
zADdcN%6wU?U{aF;aVULn<2EViLU4}-^uw1vS1P`Ijj&k9cX5nNEyAgk@k1L7_tP0z
zjYsF53d13!ECO=sff&_;3qJ~EMif{97GdEg)PNum+rc8Ed9^?(tXIv9v_I?7w8=8O
zPh5aj)dM`mhmK7UW&=W$CVsca%yl88T4Zneu_!P^zJ7i;O1v4(Omq5KAVurMmG;8<
zb`#>gK6EQnkfb~K6U)EfYe2TSRev1o_BeW@qbNcG<Vx`My92&ci2;8R0#tuvYV<x)
zhcwlc8zlFKGi)CHwbAM;fe*$DVJ&|1{FUdHFA^KO%Zb?=>1P(Ow<oDquAw;54AhlS
zR*$gl7AQMFv8xocM?$VKf@M+0M|B@`ObjK-LeXnL^9D<OxVal_%jN99Y2IRayno}1
ze#+X;0+nAW-fV6udahyL?e8y~%}Ih8s2-|j-HX%f5N@0;omguYo`i#%ErVC5<da^i
zA-J~s*&qs84cPvDm_#u)a?Oirk!V6mggSd8weiD&ZTNgO;iA5MJr0V#K)*hTb^C_f
zgxjZNujtsjb)D4A@u<;haLK@|B9qx-aVe_^eNOiQow4)VOa6>AcDOVA56AYu^;`d&
zZ~s4=wf~hS>;J${{{P#)9gF$MNBsNt?SuB+NgW{thKCKp0ND=)pq7@FqZbr}K+!?z
zI8O#!i4n7XJ&!n|F+?SCp?76>0I))j0Y?(VjZ0)$CgAk>a6q~n??VAei9{~yl(n(3
zd3HGVdDi(r8jXmGO^IK-&+6u$Z@_3Fyr7-bKteoBc8@>79>~MP({jx(hC?wHubf2o
z<fUD<tKgd%l-<{6+YQgW-<0r)P?>!?9}dWM|8&{Lbc_4`(*^5K6%}39n|I>4n;QDY
zy67~;6f%s{cpoBuUbI|$L=4*!U;o-^R74T+^}l{7R>9wVldKxr2*N0ypk1g1d88hS
zqyiXNP4o8~2;VsTHn7Vxj2vCP$`{`ho~<9nup$b5`5D*CGBQdQ7AXXejppeJmLSzx
ztAFl?LUx`*>Mq<SISzd<-9Ts>0~aVGLs<xiVtB}hAaFqkU(qS?{EEazi?0#$KWF*K
zQMoq{a6c37ff%SznAGLO*a~#FuY_L?E1naA9@5koK=UGcj@488c~JUxY-55O5BU8l
z6WpWsh3Hm)#zyad=>4GiiTJQw*V!V*-)sK&kNmtS`8Fo;l<Xzwd~jC5cp`*;M8KSu
zYpYjuD(2C#l4s_d<bny;Ezow^-ot?v%p`)gCye7z5?La*)H66w%3&O6P6O9I)9=BV
z$X55PA_S&S@ctxBO{O*dr5}iyKPxL2)&-Pd#kW@kt}DdI7tgntpEz*MD{9=s-TkTG
zN>ONGwZ0$M%=c+B%sLqKDni_T6v%PvK#ZC{;b!D$7HFDS+(hvr?~RYB9hFP}NteYe
zSU3_<E6PnXH?_iMKjpF_l-(Vm9`AacV_is<p7Yalvsu0zo0B|jMnq<Y$rB&VI;jsc
zWp`4)*c<!Y@y@G3fvvWCbq@&(2lHfhQ#ACA-!ZnDll_|b^(h+%N347v_2S!&6l~rc
zEv}JBoMEu+T9W46+aRU=cJnRHP5AryAvRck>29WA(siARu_(|wFmjY5{{BI4_Kbyu
z-%A$K|9i!(^+~Ky2*npWX^4s8$&WiP8^B~FDJdxrztCFK85sQLGzl#LB0y}~SuSPB
zVVE)an}nfOh1I-(34mSu_j3~SNO8L|^ZYLe7}uw{?20w-b&-+DI{fAfQi`A4oi;wi
zjU1s0kuYnBIgZVi=lrjrhY<+JO^$UE%f8RpYQ0eJb4#Xf+eDJI^fpU=-6T}tPOy)+
z&v01XZQw%qA;eSBLB9d9vtD|PknKiuAZm0gj72``Jz){1v#)FDhcz1`WdSv<;qziP
zon1}}7P|s@&qu8d&D<b<Z&r$urrM^rX}cJ*nVW~x6EB75sGIjMyxw=p+x7Trpepbq
zP>ns4OS%bT>%WWBryZh@qKOGw@GTsIGp?2iA_u79#lH+~Dvubqg0~uWB3{p@f0BED
z%yykIFydS)Z%?8B8dGQSapUR!;{`Z)@H9|yEC{CR>o-=<FKfeb?yewsLbMcLAqc$y
zvXdipFIdh8>J#F6szTz>780t9;%mtVCt%L~{pF)@dPg1^zQn^*P&W~NRJLrZKQdQR
zc*Of>`v1i-49u_o;D4V%q<>Y7{6Dd-|JOAWdpi6d6{5?Gjx!7lU7;(ki`M#N(xFYa
zR5%Rci^<<&s9&?!U;En1<!{u;VO;leS3;d{QFmP3s|2G2j>o2t6=M}&e>WQZ?s5E$
zW~s+~j1_56_Rtw}S>@6~k-wq5kQ7;@L@LaCu-v*;Pi&@l0<Koe3S+T}Y$QhSLw|5D
z1*62fKMzdI<My8&J)Cx}`LnKO+1CEq++$2`{U4Cr5wZDCT6lNiuRl|a|0xGvo3D90
z2~8p;HTAU3zHW}AM~}8=KsXlU45{jAqo$;kKSeQGYInA+%M`?yiu=^_;~^St+#kF*
zY~0B4&Ra`-qJU+?`t{}}V>=SR3IclyZgMR+zi_DNsGam$ig%Yb+g<u(n%TS1Ro=c~
z)20c=^pI1pCH?a>*D^_*J7<@>{*vzc4eS-o60^xZKHE1eGz$50vaww}efo48cf^M-
zI%mrc{5zIuoW?`BdGnj?;+p~=XO^y^5DfS5RZwH%<GX_K6ns<z2j@I;M2c+HT~4d3
zr{|FU%7gvLk;)~v1$d}|w7a@JIHJn^Idk=mVAH#-l~{6J^<!=~M6$E{T&zB?$K4z|
zCQtVB_kRt;E03}Q?}PjIv(`x@er+ofnD6OmXfR-u{|&fn`xW3%3XEfS1-fqI#tR<Y
zJ{I6(80@l=m|z$@m$3v6S@oA?meAsOug^?-!RMpW`-mqN6vbZa?PBISNB7Z~Z2MDm
zL}P!RoAG4T`|zZ%1s?4fQ_Z`#p=fnI{b#@De^~(i*MV2x*uQX*{?{}9zxf%{_6@I%
zxA^r#Vriyur4C%W_0La#X=a(9#@0SckO=D{F3?~TmXFQMt7!H1>%~JI`Bwd8khxZ^
zT`+Xlp`Rh9_TcYP0_*5gr8jZr!Rj-+Dq6VNZd;Kob_Nl)9f@yW>=DG4D)OgJ-G&~V
zu3yanC*38u6p2|L%x`uKTdX#7?{>H(Z!|l1?mk2(L*mHbseP;Te6Q_Au~5R{FiCZU
z1Oe6`tzcl>>X<!+@vOu<_2<yQE|R5c72q8Rj9Wb*g|Wh;+t>gpJM-SXd-*C`RxePc
zl&8Lf>oeMh!=%_N(OzfHo_%bBY07!0m*!e<i^Zy@M!lYDy?OWU-InG%ckWPb+4AeU
z0IhP{{<TfRHm2MAnAfZkFQn-)Guz(%{U*n(Kef_k)UDf$`7S-q+fo{DBG2AOp1t!Y
z*M2&>Rm+!xVr)ktja_PLD%v49_#mN)HuYi$7-bCj+^Lp^t+H^g%IrwosNS9f2P$2k
znXL`W<GnM!hk;>ac*ha{zjj3)G27EwdiUNv+9Ca3sl<2hP8BXVk4b1mm{Ak|=CRmo
zpE`Bw!K~1(<9}_YpfDRBByOG{+H%Z0?-KKr0;VnBo0;)+UQh_FjJ~N^8I>~&?99BG
zS+D$)it4dRVEWu)O?$`B+uppno?<%`^Y+?hyWFi56dn4D$2$b1uRuwtfw3h4Tl#E+
z*}Kd6!V@~hK9N*niU3VrJjX=Tu3fvpOmO!%Z8dN!>LiL_N5|C-8?_c_F|gtXGm3=-
z?G*!qHw%YfEKlcZe`lq=`UGrf_v}}po!hr}gvAhJYVk*UTpjO;Ye#4*AG@Ka>yW#(
zu)DHyvQM}t&*4G%S)uZ>yaC&l@Xb_IzE&m{RhYTV*N~pmsTZT@(EAy<Cdn{37+WY2
zZgC=vAfQBUEgG|1Aw2l=8i<hgmC|B<=@~|Ej9iQswuksv=~-^dgOcSkbs>*u3pKUP
zraTxzk4e{7(5jYxDtp?S<jF?Z`hr|0=lAX1+qWE1-*06B3{qHdUSC(yGk3+oJ-Rcb
z)7;#I?E<=4i`m-I1Q%*M>DtMphR8G90ijIKyUeWgwV2yt2$vXkXOVj5GrAEE_xD!^
z&mzZM<^GWjj6Fi3{E=9)`h&%Q_9I`f21jYxcheH{|8R{q__1HvY`YrcvjT<B-iHXb
zz>pOK!ACM{74N+poh#nj2JO@k8Ui^IjcF`|od+39uwW;G>Ti2fvwDUXEm%Myfri0g
zfF#6dR=>Oaj%RHfXeI*)3vJwlxJi7OvK6Y_`vW664*f62j{hIal3({4Gx)sfG*{CZ
z1?5%yck0mbz($ckYoz2D|8sW~rx*f$zxZG==Nve!B47?Sz~i&X)=;AP^9X3ey4Q@(
z{_4W+D$FFp7>pw*fC|TpxeQ?|#o@&2!QQ+*LSv_2`RpaQ2xrVY88v4lF!f`iiw;aZ
zhjL<kAv~>w-KDPR4=eCM$Nn8B3A@1j9yuk9ys)Za0$d3YmWf1+f&KXLV;6Koq!9Bf
zf0zlj*A`psCSuhy6CqATK^{UZkg(U54->tZlL}1Ku^QPaFu%U~_U+p^_n)-6D4D$}
zFMI8}b;K|&5m~s88e-h~(WA`(wAc&4keH41W)Pi(E`f3Hwl^uOclJ)d_3drJB=Bd%
z6NLJTxmIiOWlUAS0Rs^$|Jp;Z^4WXo#?_C%*erOG$R2Q3d?nn($l%?%ood*qW!LuY
zFYt5-qYS|z{wRKIX63&6TOB)1Ro*$GN)dBt#Fb#Gf*4pM0TtIxqH<~O;nw&9v!>PD
zxUT5JP%4=TJCtA}4Px&Z!C0x)!;J0grW=FO<cv`yVtN>ku1R8-4M<2nOoU2H%pt>R
zMHmP$z(69S8W6r{j5OD`R>Ksc9H#rH3|^)@;w^)XgpvU92QWbJ1(I#6x7+>ueK4og
z!$67Mvl0$1WI;b_#nkdBxA(C>r7c>OVQhM&RUIDJiWwE;QM@F6ViJv#l5+e_c-}CW
z_SXWxPt-9gRXb_3<@NQw4>K=e_VBv>y9GG?oAX62eqI!XgBSz1axwD`Kc8NR=lH$a
zZ&McWOKTQ5H8$(|NuqxK`87nRCb1D9#?};7R8)fIgT-A7Bou#NlkBe>+0P}jpN|Y5
zJ1Ng|QvUQB!6B_NiVi^pEiqgtCiDAa@1#3i18b*LYHUy_p1!uVR-W>aH49urAyzt`
zS@PerP)EsIr;SNWn)wcO`Sf&ZleuQhhO3E)Vm7Fo&koath+&Qx`PY(kC+*CWhfz7Y
zO<l)-lHw{>pAki&uKhcV;;PL|<57B;5L>C_W@10Fb^p^xt`%*ZvB7RD9wvl>Ju?j=
zI)NLrE5E-M1F$^d4sB@$n&HlH#^Z2YfUxad*S-3Q+wCbQJMyugM|J3?UG4eT_HG#Y
zbE#~>NEKitTbfY|iZg6a92gmfMfTsHzZv$X85;~eCJ$q~j*+$k_;LUJ`OV-RadgB2
zD$WQ;CUHb4v?&GtNgys2<F{up&@OlJ;v=TtW>&%tTFXy$GuPnjAz}+aGKy#<JZS9$
z7OU6%&J6LR6stgjP2X#w9ppS=7fg4Wvlwp8RmLcDI<cn<;s1mqe8k2qe=6Y6;lqEf
zN<kI|Z7fx6co$0PB!)2?xLD<IkuZMI($U3Yx(&8-X9&Mf;Z3q{6^k+)@Ddr3h3pIP
zB&n%xSaSY7$VjBTDa<nLZcK!#p3*!lDJ@+!V~28uoqqfS0+fCvQw{FSdb+kEq83vJ
zeZ+QJ_&7HSgX7)|kQ>f47h-=9I!qVZ`~9<~IEd{e2Z*ikFo&7s2+yY_ktVVE;nUGy
z7|X+kJAFtQ$Yeqm=OBUFh@0(wNKEy#LT|uadgur&mOC00o08?;!lo{C!0UQ5{<F5(
zKF5_bzuuIoLVv7>*we}io-rrm@nvF*Ov3LChh<7$`9DvW78~slJD_~SXco2|IM!|%
zWf%)<moWTf5FTPNJIaB!9nTOmDFpZh)hd8p12(MJU<`$=MFwvAuR7kMN<UQdbm{j~
zxWs7ajr9<N1WHL-2{40zE0=`t?3nZw2$YXO)(&dL{ZmBWNn(JJ*t3z}tnK8!hfhbb
zsm%>oVo#w4U@6F}s61Q92GAomD#3(+910BOQ1j8P1X_fgT>}^nABdp$AjjZ$wtU16
z7>*YjEk2od&zw0k8PdLZo)`dtuJZzu13N~3KlIxc#3&=FhH-h!Z7_`RsWB1LK67j9
z$$hQ4nM{U|yP2Dkj_6>Y&EGpfO`mCo1A@3DSg-O&gs>+iqD2|I1t<Wa)9&6K1)-@Q
zrqCLwRFuOLFf-DL*u>Kbn#O<mB8%ZIZNk(vjfsLju}w4#$X*fHyu|sz!-oT~juQUG
zIARZyFV5qM4;&X~Z-K`rhBiGsJrzdV^3%a_I}Kw6abbU`$Ves<v58A-X{l+ZF{}x5
zO^zvAiL6}#3Wi=AWOr0f{gVe=m<0qBiT(ISU1mg3TKaQ(i;9YvN%$7q)RP*l4Px5{
zV$%d+*X6v@1%K<IAN5Ywzqgb<COwf;Dq=kl32&Y;+93iwCu(HBf{m~bo7ySeyg6ij
zCjt{R#6~C0CYgj&854$Y;GDGn@o@`Lu8i99=Bx#e^GRQUO-&ic5P+`(+bW#_s3b%-
z0JT_DK|^e)v7tUJclSt&ZpAlf<=7ie1%ZMsHyQxZh>`Mq_)8k-y|rCNv$YFPZY-wH
zC3_CKryQVq!L*8oZfiHf-@??7jKV%P_qz?kjBx~{{5?Vusce{g!vr<vP8mjZ>b^5i
zp;8$^(Lu$ogGT2c8p?&Li5MlI0xq`Dl>Kp_mIDdyG=B^#VZRqFY!-Y3;1?4zgK!;Z
zn}&8|TlN}3*C37pORCk>fFib?dj0yfVdsYj*e_5Ci3Vl4`;0N+>LDhh;8v;Vw&({T
zriM+qnEJ8x<QLcF2}Y7U%KDAqD6C~J5;4#xRcqzC)PLEP<16pDmBwY&TSq7^6Y!b%
zDjWwSB9VcCki{VU5Esc*g^m3XEkq;tkcN?%hqyp^_za!{3`vp;7RN7n8>bo#k;^sp
zu41=XLK#G3cVq8EG*ZOoS42082)UJc`O>9Y7`2$tnv&>Fn7=@f=;Bj%?-F^T>KX6Z
z!uh(SmIaLhCsiN}ICSdL(99CHgM$YT9@~2M>C>mg_z1Bv7N>GzAAFzeY4s3(5>!*q
z<HKaMvD>!Q5fe+;9q1w%RVy&b+4Pe}eMpVJRm&?CYuu@y`ny3ZVPZ33Bs*+WW-X7=
z9h|@Ddf`90s{9ZXAYwnCD+VEW#he&fK%($xB2o-WV$JO}>lBi-M2Qg`qN-Rt*M>EX
zEV+A3O~8hP)q08Sp&=-kR4uk3MV^EKMh>ub#vmMCGVJElkKj-;Ffh1d0t1W~iP$5S
za#$ahj13Rd(Le++!NejB!}QdfDDqnijX19j9qxdh7<MOi=7SMknlO99>G~4mG{gpi
zT+{zl))z;X(RN6ZVKq{^kqc{I9~S);u$tJdSOD8I5Wh;s9=_M`oFsu-xU5zP`+>Z>
zc#c`|cV=P}vllP^e!?KCCh9Qx1(h)g^PL4>tZ!Sc>uK3uvokyOez<*4kdvTD#e)BS
ze!{K##l<2pdG<A$Phe%-E1tWZMqqUOfreO}HFk%-3{Yd!1}k_FIbn@mQUP$o&Z(SW
zb=5@={C?D@#IRV&kvOk+(}nZrV*#R!;EaQjEN-H=I!?RLr76!ol`t%YVyfv~P-ym2
zbaZrJPJNA+rabPG*ldW{T!Sd+;ZEc3Ozccd=ZKjry!dFi__CVAMIDvMMC;&P`e~cE
zCbx33ppT_+=mW7mfBhxbXNjQ3M3rlHyt;9BmJ&VHyParGumgpqTP~Em1~C5C6<nDr
zqW`pzr|ux*6Lt>l#TvU5hwY__c~GeF*jYgtd%nS4<*b?8viz8GV}<e1hh4P0>k~EA
zQRV6|2RDTcE!YrPL<B+fpMr0h6C2gyG`0-~mkvxi9J1Zkj(h5dyK=^^P&>zIE(Lq<
zQaW)9p4di3#c91Fc>Q-cY^ew|u)}r@t<88rVx8Q-pJdiciv~|oWWbn(PmU9Bu{d^p
z??I&}Q?3{k*6Hkj*xB~Etc=~f9T|34vnyZ`kjP7j`G#<9Ve8XG&^^R>t!)TGN|T%h
zi0D0NS{LijWC%HvVf2d6hx#p_KYzC2ag$@P_x0~mBbJg1!x(lC&&{+PW%-BrF^@<y
zYu6%Mp}fh@B*V%+V>6-_Q%FqQk;o%iU0(9uSIEgAt{_22-fb|EMm``jUy?kjg?!1}
zU2Wxp@#RZo_yi*$t=oOO3^N@wiFktWJzUbbkO;5Yo~-!y9<-cHBy3%T`B3u0uNKuz
zUCoS_kzKosiNO0XemfKEdc*|6zxB*NYg&SUJdq#tQ%9Q8FA+m5X(r9bLq#2rx8MAZ
z!bl>(8r<~EBx2I?Ls1dc5NqZNc|EX(<0qek<VftUM2s}mq+4svjJ78M1=8jmDaL-j
zFNm>ac;LewrI5h^r?xSQY1CA|Otj+ScLpEC^xxQf@2IG=c5ATIwzbU(Z56atPy_)*
z0ZC%k0s$pwRFY&RXD|l@v`CUofPe%^Wf9E?B{@kpk#m+j`xJJ+_x)z(uDfRLH*5a5
zE_<!+7NP1_=R9HW{p?3Ob4xugT0_e1Fu7<ln1@l&X3aNS5L+>N;b&vMb{JQ7AYMKc
zQ;m4j7vOLq4JY2AKMA=FMdroPFpQjGKI=l?m)EqXL<^=nQNO+d!rz_4$?TEq>D+&x
zT-+a9%RqzsmsoGwqpS@w7S48D%UykAkZNa-cf`T&B!yUn;?AwVvE}V<B}hHsg~W|%
zR;U2WAP-k=+rQbR?=ok5LT1mv%k*S#(i4%ehS@4rh#Hr?1r(`>OG2uWyv^=euP&j1
zjlH?a=_F!|t&ed^4e>&QuaD4$l7sRR{YP_Lp_6_JR|Hbx%{EF8mb^WE_UuDEnCP8~
zQCcG3he>UNmf!#W{YQWacM1xYO--SE;enzB=qI;L&0;F?vxdh`3~n~yKE#nu7%uy9
zlE%~o1whUS8EEIE;$M9mEL8FBA>G4F|LMu)PnUdOn|EjSY}lhX>gkqEbDlW<w-z8o
zSiM1VHX_}}C5}h<FvWrF+4#B@bE7+m?I{EVr%~5pNPiZ6OMr2e<iN*mL@x|=+@h(I
z)96@P*~+Anrzx26erM<BM~@!CTBr)@QrpgWdVyg|3<5?lB+WQKkpOzv?C(KjNOPNV
zn!@O9B^elpS_Un03<5N<(1NL*O~cZ6bLY-YMc>k0lXAj+s#6zm2nW87*xQiVN_aBG
z<I%L#<?UWVGA+OYVrx~2sV?%}jvjr6&&3JW*hHcNxMhvgUCbTDBHMJ}`9X13NnAuR
zL_|uMU_pZd+ipE5PGHN2;oKN>lmM+Da|2T6yO|o3$LGzKH@ENFxqu<F(N{2mw1v|G
zG1kS8<#KwISrZu@&5H>(^vQ9c|3*(71ZqjD7Z(3^^CmAsG_H|f!N8u?eman+0UqJf
z&OCHPG)v#f>xE1B-LMD(MjDK4+>%n>(8&K*5cqIUS|Oane)@R_{u~w>|FLI&*3YN(
zxIRt8ZYRMV*(zq@-v@mRo~vD)#}oVD(}=dgGWPG?g1azPX-lm>kl_0D&3pk>#c7P|
z$9hnhtyKTT<@;=bX>jD)oYAADJ7=={?8=VIjJ<h{XY1BCv}xkqJ=|V?0xHM^qH&TL
z|740<i^#c#h$8^%^3<%EJI?@xj6*tQ3kXFyL93>&nR4Lm059?X#JPyWAj6?`0y-5K
zWQhf&t4-|rpc?fL4%YZF+nXFzC+=Ptg3iDV(H}dyw0xh?rEf=3@YT8Q<)ick9E=mc
zd;502NcnEiqIw@3ruoyP3cY9B+(x)|3}O7k1iIN;x@810$Y74kK}Up1G03bXBZ4ZI
zzH;y9nf1Y)EQ^?#G(xM8dvta29lhWvjKjy^6yx@*RS8i10stXkNX^(ba5iLe8K%_O
zpjD8W*tg^eX@4VK=N?o?$WMo{b_Y08^6N`0(4m&@Rg{Q#tDq!h{rWf3Og-o5kwXbO
z*|8`j;bwf2)={14zU{`}2wAR*1%Z+^FuXzvcJxTvqgn}=b>c>IK^uY}1n=&?8~R0m
zf9t^lE?MHrguE~eTz_5N2+Cb2oLes9G^9+RpC_EZzPL}kIr(=>xK%fNwZLsogW2Nz
z-_}SdA<j3{p|$7r`KR?4K<f{=xGI`2e@<db6yZ7&Bxcve9a5-rb^>N+4Ei7cu=Umf
z0;PRq;w2l$pzE+vPs^g^%k3>UOE{GL0u!Dkoqw}!IB}U|miCPkkGozIM%jf1&;-3?
zeI4kJ9`m=m7xDj9EL&L=E@^5j%6i30YM1BCiQT~dty>W4+K&TV8*(O~R<pZ!F~89j
z`vj6-{w?V1(+w#8;&tav88k|NQE@$c)@NMjtGpK$*4>DikQW)V<rNSA-V--EX}Bl1
z)}K}vT$JO!obvD@DjZ~%YD5f9ZB463ka`_UFBbnU0>6j9U;az>nB=MbZ|jsDIHRi;
zE1YHfg+_60fbOim4q{3E^eGr_EFZPQ<NX@~p->1gWC=KC%_=MNIiqkD;^E`#u01$^
zSLr=O6AXjO(2%hoqn**vUiRx#`pL(f*O-*FJ6?;SK(oO`C0PTx?f%=Z7wJ&lSHOm0
zfG<A@qRUlHet(}a9zkaH7yqXq);eKweUo@|;D8w;Lym>dG;3s{%2L1?VLn;&_hHb)
zBP$fb=nla<$Z$d`89&0fU;+|Tfa>~RU-yMxVDP&oLGMlA2jqmY0$WVek<uRnkSKFm
zm${^*WPp9sufH*=!T3FkfmB118Tzn>TVH?u$-~3kbgsWYGfK1Pzr-Pa%`*Fzpiq#D
zPN|s4g;&N}mA|2@X#!nAC?D|lEBEm9zvLq8@t6RL@b1_VUDAq4JTh8}x6Ih=>E(qs
zlAiI;J2k~83^;7$Spz^177&YRZdEd&0^nu-?;1MZ%>ZE8R<8WoEokuokN*1g>yDXs
z7bW5m<D`-f0yi3L*s8}YHVowun^txPoyooK_3PKOq7t_7T<s^;Wknq{x@Vsr0(5NG
zYf}XkhnIpD2PN5*QD4599IA!Clv0CyE<Fp#D_!Q`A826FH4%&Y+8kHsoL1tqND>+n
z8GYZ`SCrB3K!wn2p}nobN6WV2bVl7exRC=)K2V1KeF)e<2Qp?X{5XkYB1Su70bM{i
zy0d&#^~}4xJX3t=<EWrv@mP4cZn&-V2r_9Uszy}Se52n1(3PT+v_)UNYQ|MtEuzsX
zrSfXX)#_E1C@L<X%IScS7^yK(bCSweaLHRuF2{FYFLLuTbGO|`)iipy1J-tee2mLw
zi$P-Lw%^APNK{(<87E}>o|zH@{h!qlS;t&!=Nbf}Zey1cGeY`avta{IdoAO8Z}poH
ze-`PM=#=?eZi^K|BEwsBtbtz@j26hN+w~&BcvuN49!=ltO}Dt@A-s{!;R3QxwPc{L
z?>0EvXkYxlLg;(|?THdD4%*<4qYlUc7%~__hCfNepu=O*3%{JXvwhS^nH~MhS#kMM
z0qWoHUp4yEh8vGa*oBClz-1>kyOI?Yjww&iD_@f`kuA5G>2JHZpXZ%>g~f4<RdVzh
z8W{A??cu_S=<yIia*8r`Vr=dFQ&cpA(WEeF4hfIoRNL_0-MdSsPQ;hD|ET@K<>u;D
zRG`q_a^m&s@Eevl-o8$I#Ewt*<5wJ!aZ%70<+(b(iw?c&)I>KzS~vh|v8b51YUwx>
z1bx`#+_eWv>$sySp#7A9)Y$+HB0EJ$d4@Yr9y6dbxD1;hFlpqtIK~()n0HV|$DIq?
zEABg^7i}8R*}}S?uPn{#U!H-%V=0U@WG0Qzz1_VJ(~ZP`9H1;$tq8g^U|IJ7(GdIv
zvR|++(f}dIX-CG+uxWn`etWO(_AAN6z7LE-XXIj@H>0;`gHEqP>>C<DioWyopA81?
zd;S3g6}p=+icc-WM3hV_hEDT136sR#?=%MZ(=Idn<Hk~f|4*>M;C;r#ARcTMJd?D5
z^g*1RN^m<wkItUXR7`dPoP^OAm4>Rg`@jLflh`uwu{!4;Y??3icli%|F=gzYWjtNZ
zpPbF$5gbnfKPDf}ojXUm4PwZ0eu6*W@t%Dacs7$y5B3mqds3TYo;!b3gZ3Tp-(mbD
zl&SHr<Qv1K+;sq1t6aR8ganv5H`ixizlg<}L>6t>W9~lQwwLux`@CV+Nr2qkiH2S%
z$s-kpSFT?lgSom+Se}%DIFf7>kdV-#*`PpDXn2tLQb+|o82hq3+x2&#_yT}df##nu
zd4%S|kHi<w$%eHkFt=>}Kdl*B1Y;$Fc(UpT?^)T<FbcT&BjWQ+NMb+@4=gvMW^<c#
zAg2(ZMKvG^;!lH0#u)S_Vrc-Ge>&UEF#XC8m;$ztCE(yt1IB`t112N~z^4)$FRU8+
ze>RVXPYg5lPS?NS&3_rr&3wTf|E+30?qM3n?NrE%fCFxZRr4K8kw<0r=4fKBhdZgb
zEOY_mJD+Zj7OqA)AgKh*2V-r7-`J+Zk)jFYa|OXl0581e-i+Qvz)Lv1G-MN!ue3*9
z)m$-ZuCv^MI1!GH099*$FU@+y9#Q~ce*vG0QvU(xEXNclwTyu3PD5>5jeIrQ;fGQQ
zyac{Yad7kIo!xOnuvoCKn89*yP+%j5pHOh~;>@8}LTw<61CKyKdZfL@64ni3uaVIz
zF<ec)3$A=St~!Weh}_E&^#P>DqpxoVjd8t73|u1Kt_&uoh<7(Wyi|w&^VG7{@)D0`
zCR?RwPXU2_+$RfjUk#cKQg~2Q`!p;pr<ES-{b+v~p8QQst^4cE%~dcFBZNyv^%q?%
z3F9>W_U?9uL;pA13BMMJk7QYZ35p7^FfiVx83!XhI0xn2EMr%FyF1ls*aY3x1srI+
z13M|=-a-%_f}f%1*81{5C1Rrp=&nR&GtUST_X$F5;KQ%PsT<9~&a$Lmh1%)YE`Z5t
zPhY-#DL7n?zKvRjncMdM15hIpaE8+uGr5GHMIEvaB@D5r5rb)BkO|MJo)h`&cBwr?
z|G*8A<&AUP`}eDnGzWVOGR<N?f$NQ_>_ap^bbkcKfFu%Mg|7t%Pyv^$p*Y>Cg6v}8
z7?7^)N1l{LReJ`^$eLBFAo*N_D@7PzyaICaU?m-P*whQQLMR}?#qzDc@dylrB!>7j
zlFnXcxnzyiw%+hG$lj?<&EvbHocG2AD0IXyMth$j^CN%)%Z2;fJ+fYcT81+-m?lu@
zcuy4rGean=34tSXyE=paq`J2$ECL!<Q-QBEp{JA~Y=fe_WaP(>CyAYO$%c3dk*wDP
z9wO)|g+t;$CL%vqK09*+N8Z|9Ys-NHI$-AiW(9d30Ft08z+5$Gd<^Y2UyS~oL{0*D
z0*vm!up(zW#y1H;M;z~QF^JO}`X1XLlZnXs5DT_63kx067jU-wxKBQTF;GwG0aO<_
z7-cy8@hA%C*42Zxp^^P&Y_-LBwu_dSf{oclB`5)!ppG-LT<2IoV;uPS7q9ZHtNo_Y
zKMqRj1P}g|2u~Z0Rb4GSotL^RVth#gBzO{rV<kfz@RmT<?6T3a4D(g#A78a}&YU?c
z2WE5VTt4-_o6Rzl;OzZ5@fpUSngT|xO_Lt(@A@xb!HTYq1O&pNfCnB+kANDg6CkjF
z4ab*y4^fd_gGYOIeT60W_NKz30k`Jg3t<JxpBhnbu*+>HP8@ItU(PA8$(yR1ck<??
zb*QQFiHT+49U58cGOW0ozDJ5KA27jsj+hbNyKH&H60i)jnwt0=rKKkOt|CMbx5&7U
zm$Gf;G`N5rujA8D>N;P5$!{{lg0blO%^PRmWzylEr47trksmz~;o&+R2T007Jqg!*
z9f0DM2>j@BrC^Yw4tJJZvfv{B8Xb|i13*kLeAv;2MIko>hLG2Q|HF5%XraKwzFN4C
zbg5Gn@LnW0Z4>!YpnWBU`<TIzl`B^QFUAfu%$f!=GtyMNO)Fm{1s59f_VvFptO-Dz
zz>rp;N$wl9OIq{h&9enK+X;(PT0;D4Eq3yGy^#1a#nhcX|95M>Y4IO_oIx(ZF2tbm
z{D$0TebG<x`u@*wa(DmqvFq2te^imJ0LYTAXh?t#R$y3kpLNSAlB^JWR8Xll*q)SH
z;1d2ZY<>m+s0K{+Z|WVD2^7#(!P=b5#m&FFARkBe%pAXqSKpV8oZ+a>khrQ}cu7`T
znz-1tOxvSo!p}<B+H|tNO4OLG>geqAcH^?=D@AS#jEO*ert(aFuZ#2_y`k(VB^V*H
zi}~M#D_;WA?q_^=U=!GbujV)|1&ZoEod`<=nxa+*M6^}L1p;atf-AyWMg+Zx8ut%r
zRfdnBT81*8Sy7A|xPwY|KNV;w9Doqa+Ojoa2aon*2N=h2vSsC504EZ#OI_hxKcthp
zsI1UELRQVtSSyZ1t=>Ixv$9l6g9i-CqO5neKY}G3tuAlQ)qQdPI_FLV73f>6q{78h
zlAmwBFVOz-*ozJ|2TkLms{={_-%Wy}#z%V-7q8<dKrVX7NMhK7;miw2EInzA#pjzD
zUzh%B>s}=ShE|~&rD%K7GTo_j8%fT?tq39c9TwCrA-5+GT8wcbX9E-*L{2+6IOI&-
zT(W*Ei$Oz;k2c=N1|J=2H0?)Bxvai7i&6P9U|2W9$g@HEq*6<f<+!HUTd38C%Ui>p
z<;v1FzQN9@TFH>lSj&h)6db%p4&1kn9W%zurX>{8bka<ebB1s41>*|oYGJ6TA}02)
zZ+Zfl#rT!SoSq!0EYqMBS_=CF8iAo&Oe4gvI>GbYK*R0{u=vPbdEY=L*f#C%I-XFh
zc@HNpTn#A}g&%5$GvAz~oweXZYmNmXhX^3yD}P`o6-Wv(B;nLv>_b*Det8)wDk420
z8L;4&4DO36L1kDjMfj-U{rVS`tR$3Z+=28!=DCO*7OmWDE(A(U@)?o<=w8@Y#gi2S
z+VmN?WsrW5n5<zc6B!9X2DOnYqyU@TC;R8-A%#DKnqmv_bC8Sz+zs5DZ2bg(OiWeB
zMuPSk(+G%)xq@M=Kg8Ag)fm9d1~M?KhUXu!d_|g2(`0SsaA!1f*68RuC_w<ZAs=sP
zDqEdPd?pF*fei@vSPI-K2r;;+PH>Z{#8YtTw(cDzA|}+v7|p<NBcbEp&m1h+ZE;E3
zdDp3OKY#>-8%kAn7CN40k1kj5=zXy-Zy1$fIegKPzaK*tz}@7Oi5j;QpE5D|us=H?
zgNIr$AgNI}5b}H}`~IX7+w%om?WJc|avePL9}sX%402Z%-Un#>6j;|YJhZW@Pki7p
z!ffynBK0T}+6|(sI6^+}UP7=Nn0qMUG{R`;=3L8hbY!v6TM%xSW#G|Kv6GO60H3Sy
zDUg*vbMv5!encJ-G^VD&<#1llKvF~+e5grbD(40r%-F~u3m29k><z&*hio7n$HYg2
zh-)YMb%Or<M*y5`gC$={_Dta56Ozaclus-|8?ig9H;q}V53{KbO!UJBAOYk4#LSbp
zL*g01fYe=kg5aXtx0~QDj01zT1uP{RCWjI--{)z?_qEZfd0XuRE}&h(7C32%gi2}a
zO@7g|O{zEF-nWdoUB5A}8TOA#q`JqUQvk)5n0Yy*vh{<P;RCKIbM6}r76O4kYQG7}
z@ZkqT2Suh`$ZU$#R@(jhXWE8r{Sy27F5>^3%t$XPE9~<=eQXUITjZ-(roGq0q}->Y
z9Ql&3{NH2c#lXr3Tu&_$@z&LSBEL!Tm8ZN@=AvAKs)QZZWv1`b_a2y0`*3Hz$iv5X
z^39r*TVCw}%&vgP9|$_C9M<Mpkov|!J#pXuTyD^VC`a?`vaVjXpWl~Q27bREsv&Ul
zvhtdhE6-8gH@p3O1o86|B31!)cJTJ7E<z8vIz$9(*OdB)K{=>>S2W(Jsvkp=+0|{8
zWr)9m=95M?->fQJc5`^LIW*PfcT4Ec;Yo!TPk5Bk@0b|6<LL=)I?;1L*xpbKuA+cL
ze-?W7t0X?X=nzcde4Ih{#r%0AZz4D<1|3+2(eAk_<Jj^*bOjL))-P&;95vInQ^ml*
zpdHY-zm561K{W5>96i$2I@~_MM^NMLMDdPa8o6$gTV{v1lCBjRvivhqID?sX&A_0v
zWTOZa0cga?Ry-HODq)u+WFryo0Q3X_ZL$j<atGu}<G3`~R%?&{{O$u(iI<Ff(;MtG
zb9}3IFTo~46Le%5sNzXi2FxbF=iw~=$DAB1b|>jv$nb6}^T~s#80dWn2Zk8dtj59f
z7-V};R7_^?NJMk}7gr#Cuz|1>C`>~0Gg|9EA5&kXg5_+7wOakjS+rCQmLBb()@tEO
znK$w0jYn9SM3kZDNBAibXUBMnKYs&3rQfH|bX&T2Ho5`pc>cHAPvkOcs{DPj5jjC@
zlb*SuzWABAq}G<}gq%e%&~0rA&2z)QtLT28Kc7Jtz=kxl37EZQ(!1?4|6Ljgc~PA6
z1axJ*=~GaNs(s0stu!bekAcJkt}4r(BKI7R{Cc{iL*GLnh2N$}0Rx)+0?R=?&>^EF
z8Y1+^R2mQ?!haBt3y1=J;Xk~Q&~~iFOR&d5G%X<P0~xAEG*kN*{2c$S_lnBl8|TOz
zw<56X)JxxwQ_DawLkN54@MwEgd<bEK*55ey?>{-xR76G-7QAHgoUE$Rbsbi|+)aYk
z`n`tF5NfVvvfh&#-?Jzyi=ZFfJQ8}ILw55iUwjL=zW65;{+Mcj9}?Vm6i}p9ffpie
zs5Fg`vrzq_vGl7ZyUr<;S4lF5(z3PZQy#MWYrYCmb#Qoz4EGeh)Zb9^v%a5CcTtp<
zh;aUzN)!n&4yG}=n)hdE-!Zy!h4bxz^XqvYO_^Kf^x~FdC8Ve*do@1~#0R-6XO+>X
z9|bkdNHt4{e5f;U;OuLT6pWoNs578=6z`;aRPU2TwV(l|JBjKE&ivIdNAe2}=Ak;l
zDVpuik5A9DUMc1;jxwIcpz9|vD!JX~>vR}a$H>}A&KR5%6DZvs{bu<n3dJp2Yc0JU
zYdgg2aX(VXll1Voa+8!g&dxYv&1e203AliM!ym~62Z#0)lv4*0x8M#T{w^|W!r=9&
z@IUjG4n;uF!F5GDqmiw-UQ}PmhWU=h12{(iehM3a+Bu8!^A}~C|9Sj!_h6$^H?W7l
z`$fDy0>vYlT3aqyupsb46DV}gf976hprqZ%#@5_uCl)5PT<N32QXm;U-OzddFH%;N
zrlaXQWcYuC^>2i^^}nB@)&E64WfiJDU{PgdWeH1_UaeY+S}Yjj7o3EiCC}^M-x%~F
z<p7Sk2(EP+8pc%p{8d=|Z6AUT*lYdX?M<{LP>Ag6|CfAxYl_4yost=-v){fa6wAs&
z1-^Ls_*4T=>X{xT<}`Tz1KhL3-G5ZOCOBI_B0*Ag4&+`?QA(1%px}sb2Ir5M21h~n
zv5c&m;t!0g81|36u`%Xf@S&m<R2=xb<H*%~v7f|5tj!Nz!u_b6G3ssn{yerb`?9<6
z-X-(q-MM4<c){v@D^?0Pv>$sEp4IFdsWPI}(tbh1SVTyXvv44I-H=23&!2vFpR&Rw
z45K0)*PY4geDav)AfLaudXC|Pn&QnlhI7}S^;kdhJZN-cIJkQ8h)!Uyj%oL>=DH^l
z1Al7)CQ{rd=rne>pI;q;$yk>hTEJ%=Ja5_lzldsNpwQASC55GFb$Uje$Z;hKfr!v6
ztbsmD>*;-8<-T<3Qdsn;T2(5m8lV#_M!E@$ii(PC;q#Xk#g!O@;lq!p5DSgwah2#B
zLNSr)m6ZcdnU52+Ha<TYJwJ<@oWDKf2R(Pnd@aA$1H^?^^y0<Hb-us{qH=N$<jzd>
zrqmdQ*cuYi&B5guIq-YpEye?huVZ?HU7dm4C{(H2o2^9gyRfh@NYdHP4J^wJDxl1C
zExQ^6^CCKOkI{E8k)q{peOD_x-e-ylQ8>d^^buRHn)9A~$>5~u2UHXlePLR*4;i2k
z;@yFMA9o4V|J`lMBwKM(E#R>M^lKY-2s=qfmI+2{PDb@bD(r-6<>Qu{>@<LJd#F}b
z>PBgzx-m)xkiLZz`3m%dttOQju|m&x;$MxRiaRh~>Z6jn?4dcwrap`mc{+m8-HW2t
zTZa^-2Qy)hwuPDuMcwnVN!;vKUrvZTG!2(G1Q@#w_(nW06BB!UV`g+_TGxC3w_9fE
zHHPh&IY_THiJR;)l44>7P<6|YtgI{p&J8JWo-;yjmetnQPKOoC<j*{*BCzn)EfUNP
zSLxYICpdP&Sl<`I6izBGLe{&NZ^^KTMzpz^*(Wdv;g+tQn&c@dsHz5TIdbF2y(7!=
z(Y`S1yM<tjjL$<K3MNOi>Vs3g?ovl?ETQ6O*+Iujvb&B+xPQ#jjMxruoiBzV<^k}T
z63$<6)mxxf6TC0Q!+Qjcn<RXsZ0ztV$zsy-s+1}XQv*C{M=+NI5DpsRW9m$`byZ_%
z75TUgJvkM+|I+O|qR*4Sx;;@$LqmW36aZAzFau`~W*YqHSjtunl6@wQkb+pF#b|{p
ztB`b0?*`4iUS}pVHC(3g#atiQbS95m<*{3zg5l*Gt^l%(rUi1fVz6)FdyDpOgXqU4
zr0%H!djr{wAqwa(P%RJNEDW(yoSX%KIk^>`rt;<`%C-*68&NbR4mY8n?P+^Y4$iJ>
z<k}F<8d5Ymt|yi>G)`bYovV&;yL`rBkKkmWoKtnwj#GGx5s(Kc=nMf4d_r{&^R~%-
zA|gh3z6|Kx%S%e`Y1`Fs0hTZiYXy>43=fuM7{9c@L`C+<kt4w&At{igN<bnc+VViJ
zw&9GWK|tEuW#Uh@_~|zaEpx^UJ0HBoJ&Bm=GSUp3c;Vx^t6Im|9Ooi_pRjOxP82K;
z_t@Inu9tFi(Sbi;bCn%FgBBoN#b|EBT3T8@MMz1_4C?}S6a9K^wIG}^tBh5ngxg}p
zB)*VU=bAI|8^!UilcLCfQE4dX5{9ydhlh!;opr&^XwH0vY)L6I$dafubhH;EtJ7kI
zK81;koZzrkLc^LZ0i96|qKu-ZW{5(JUs{z0?@bOnwdp~rnZ4xubi~GKv^wL|`f_56
zA{Fh>eI(0hC7wvIG3)o7KZ+H&q0du_#JXcIDF;-pQV<Z>E!FYtiPe|O3tF~q9y=Ku
z7pJLP4tLeDdc1EcO-3NwhLPsl%&VI(08N!y((B)M`b)>e#}|T53{7+!j-w_kC4L{N
z`dwT3CdU8G)73k}HZ2$LO3H%7j3avyImZT0`1UkToPPDMspNfiI>ad}E62peF{?3_
zg<J9iUhBosR5R+wq()x&aH(f|*c+I>#EC4cuMY)+V-Y0sV&=`doO_&%_NWkz&87@$
zE%4v8f;77i$+f1~OnHhXoL8n@|HqEdl9unDKE_KLs5cj65xkgO^VVyt<xaY~x}tid
z;oI@U)+HZER{)8i%qemd)j0S>zMJ$uc*&>tiQjEo3i@w{+vm6g4Y2ZtO4||caGs4v
zJ8gr8Q!xPsWa?L#_2&jq(wh%ZsaCJ%EO-jd{8*2DZV2|R^3F^(&4iJ|6C`p`Gu&IN
z>LyX9jg|Vi`9Ve;?LIRdpBR&nz)uy#Fhg@uZt3xjX=4sDKHtX2$14+7X3&-`cL1(K
zgPU(Fnp;cPE_`MMa^l^7?qh-O`Nub!r`Ai6CtLXfN1Brg;lAqrZcDepkg9$aprw9L
z78=0FZmcrV&0oN+-;*~hUxg`#9yX<5IKgZwCRS8vPvOuj^yhS+F4ODH+T3%WasNX|
zj=}bNCz2jq+GTVLawnO&sov(|n1QjYuD{RJs4sRKNx91|DhTk%BHXDX<`eQeBQb^#
zAE^0(#>W2Zk1j0PMHJ*VylH7^)B|m7nOi-57#hmT{-_vR0P9<m7~irSw|!BsKt-}Q
z3?`pjW%Fttk&&;!CvI_j<CU~wLZR&1(+fj<>-TJ``rsTKvAok7*}w=xH=>AbDR^ql
z0FO=V8#oxxIUT=VUuOleTXcH5@C@#QFN*Kf5fd2T8eh1e7Snu4{!ByZVl&f+Cgi~h
z84R_R{u4u|uy3V(4CyQcbfFjmkZDf8m*o$rwWMur>sA)PchHv;dDdJduEjs*99md;
zT0J~i$I1e8Ql*)RxDLW~X1?a>HQP_HUpmT<EpRTq&P_}x8H1Vpna{T}GeBSZa-y5k
z2|1#eg#*c}yl!X>a$HZ++hrWtC&_EFn|Qb5z<sDExyhnP$m?^YnSWw6J#tux1h6Is
zZqy*?itNI69k_3D=Ho!5#x^I|Eael?&crejt1{{i1Hc(^*$GJgeEAEqFNm9}L+5*n
zMuN!Zv5zMLf-NyXK@Gr)S4L}iW^EcD^Nz{Ygik9-gLsghjJvU&N^FRgb&exXlRM9u
zk1RB0uxzv>*}G_=L!k0obd=UDK}Orh9?}QU+0x(r`3kK2M`X@Gkav4Y_uu(FI?PVP
zZ8Wo~8PB#DMI+5+w|6fdZ!ick32HJnZl%VhE32!>2(-?OC(f8yJEwQiG1ntZbfTS0
z>&Qw)cHA^k+?+b)x>&U{<|Y2|Dz7wERjZwLyiMPwk@{?y%+H>cB@c=A1FVu(e6!29
z)e#>N{v*Ihwvf^(q`dy(+oe>RJj#Q(v;_b7uMpy2@<tB8$raGWrYMq9BM~C;8;wbg
z6_anT+vLxR>S}t?ARwRChgX*sY!5M`{feZqu{?-m`LNi$2c)3+gw*(%%nl8IgQ>dQ
zDNWiBKSeosXUQUvqH-t~`_Kp8bT2%2vyjMYkogsH5fHk8XEm?O{dtTZMNVZyC^PkO
z?L%J8cn|yj%)RN6K)TwoIW)6JgA{fpD@hTK0TLtN8*l(`G~tVjT+mH!P^86x5PBO{
zUVz81s`2xt%9uw=Jk9Xa&xa`a9(kgeYLLeD1etXYc91_HzGh;mc_0zbJ)TLDC)q{P
z+JvYzNU|Qjbp8H|XYJtLrgiB(8%hZylsDB0!72vonidQL$RIDf^jJqQ#X6t+qD(+`
zj6x30iNX@XZP*oa339?9wBiOtgY`iq=RWXHo~H3Cy4ZQ^bmL=bhg4N~5<lG6z~kA_
zlb-f~O;YzLa%Db<U0&_u(XsLIvOo=eIUy_t2r|g4b*32X{7jX2Zc(rhQ~oHAK3M#C
z5kVq-&n#pBxX;bpA4#RFX56)in{2j>%wihxXdl0c2y4L+XoevfnaSVo2}NttOB1sm
z=;ZECFH^SBY<?XQCGmBVO-?nVw|J+vYyO63&y0B7zm@NFpK|u+e{uwL8#lEK6*Zxb
z-c;J;;Hbkun@#WOTPsE=W^$q?3sQHDJMQt$>_|yGY1}Zp_v|Z=W$KNv>V5#7l@v(;
z%Ov_<EmLo~Ifc}~JhXtr4@q1IMW}uB^Lb~F-6>^_tUkYnvo3<}tN;@+Vv$ddqn1M+
zyNB>kZyZ|ka21OrI7lZ)2i3X&DqbcKg2u1R2tfmB9Sl~5Vo&___L`+O@<j((7kS7(
z(S?g-<DAiKZ;q(PTKuizO=EKD^;S&wi?8NzWSDvQD{Hs2CVj+?;1i!7q37EEw33Nb
zfU@SrGF|>xu_d#!=MNwL;wa`<o;$LS-L~S4%u=4l&!1n`x7Jxf*KVgo#gC*=8Z>Us
z&myZ}OeC8Q&l(|>9AKH3!dLWJWyk9YLY6-1V14mfE?nhI)Zq3?9IXHG{OPidte@AW
zA-#EhXzb>&Gwp)4Mjmqdl(^aN)}U<OG_>J`Y-Ake;cAu!^I-_7MdIS(Y}Qkr&tdTb
zZ8t#IDz~qqsLc!QW}$<Nq-S5t>C>~sfyb3qvja|R{AN{n|9XF1vzQ4t_bh;L@X#-%
z=l_Fm@vK97UC9~rGgv_xggdc^EEOUb2Vuns<$ob{N0?GOT21^C(}JXQv*VBZp;iSu
zWh5K1$mlXjQuq^H{7GDFtRSX*x>C#KNCl_k)E*gn>BD+|e%7?l!*ZJt4|}9*CSptV
z_zW?JxKhdb+cpP8)LB^Kzuu5-$d(Oa3P+B-6^t;ou#k&U(zsgr+;Ov;Ys1vAo$|<$
z>ZG4`y%rM>Gqb}JqLg^J8ZK-U-(kD7!AZ&{y1MLGTB}35N}kfXiiX-7%dICV2MrcF
z)a^!aBf+?^RZePZs0(Su^yT9Md@M3(bt0K<{Z$wtl@2^eBdMZ{%jTJ*>$v{8NYAzp
z9UUEIM%lx-tI=&>4FClzwhKCC^;8`f2o~Lz!mE8$L`7RWEUoU6oQ9feprh%-@bFj^
zvN4@e=H$#)bw(wcUqWB&4^?fz)-T#e3aCX+ldq)%OXE2*3+37)tMMS_)BD1uj7lqZ
zAh^(#2lFM%oPXHyhOeM3I{d2c210lwh5!p&@nQmMGVL7;s1|OHwI(Vb1|~1Ybt_hS
z&22<1i&RZqek0$)#6+5*m2mNxB(9=zXYo?i=Ikc__RD1qbQhVGdlY&66>vv6u_lLU
zwxeCklfD$MuA#%V>p_PWhI_SJpZ3_CvOU&qzHvjitAv;Rl<`ufioL_*f#-I*x^yas
z&;#o}Q%Z*MR4)QJ;2&f_h^LRTjW_#Lsa9)<sI?(|kpreLB5G@EIrA~qQx1CK>m8>k
zpwdwp<5v}%A@;~nF3~Z$aB|c!&qfkW!Oq0P&ZWxAs;Wi^o74k;#<_t9XG?fy^shkM
zT3kFEXcq+U&1-NMKZDejnQ%^Kc)0e4Tm?F->)kcWYun_~#LR8%HzqIk=y`3+;)wo}
zE7Bn>qOO^A_E64%e`4x%Zu7ENK9VD9BiI*Gl?N`W&80&zLgV`|>yFx_TCDEdzPX;m
z;g}B`yM>flXy3u;4&gbL=H})wZH|)06g++<efaZ#jY|KGxAwo`;{VULpv?cDPvn1F
zPC30#NJt3rO1*uoAnf#F)_8xcbR;6)x!Aawv5~IoL|w!pUNzZbM5xN~UW`?%Cegg<
zN%p<FVr^D7sNp`vE?Dx+W<5ugYNET_4lP93ISp-TZ28|>pTbCBSE<SxZN*$S_0#QJ
zGhW2T#txb1P1v0=H(#4@*~uxE6v6W1BUgnptZnJS8z>pY(N~0?D)I33Z=q-ZmKBzW
zzo9ulEAqXL3~2j+pHluW9Fod7_D6|9YnYu;xo7aJwSv8q`LX1mLLXzbd~A%pW8|vC
zN6oG6#S=0fD8y7GOg;4K(W>1;$=EojR~k#<&H?=#b6YyMu}B1Eq6J$YhTEk`Z%HFX
z*ozl0-mndyLYHIKy+s7mdw$G@)&{Nr7yyey)!PNdP6505eHr@$PV|Ex!CLU3u2j<0
ztQ$AI0-cZ%I!pw`d4)lGT}g5TNDb=Vzr(+yGi_<uvqz7%EUru0oLU-YVq4or^4Qh5
zIUbd*Vk}Aj|CSH?f8xmh#1S}${Zo7Y|0|}l%G**>+mfATSQv7)(S2rW3ARn3c{l-H
zAy5h7CqsgyY>#E-@pBu&ShRovm$$aI?$j%m7(5k@zLH=lqTlcCErWJ<kqTVY(Cc2x
zC|t3Ww1eQO%K`oo_=*8Yc;Keg<QAAE7z;Ppl%EO_=7Y5PxlIuHI~0zny5F)y8f+AU
zgM$ZR<Xw3P$Y^3}ih3;h>y3>qpY|4?!s~&fT_{i?r3@wVmpqo0^382TD@Sl$DnUT`
zhh1PyHxN|pvYl#$?l-=)mV6;aOoqPD0pkHd&_ise3O71@7mltmjt--7E(egiA#S!1
z-)rmXfsV9EmWC}R-1u?ka)Utp_E870Kra48#_YFJw2fTcwh#!o+(7XPIv+R`S=zpR
z`<}+c7zZ7?NV|)rWk3(i4~#YoxQn83*J$6s<ds~&YZ{+cC9NEz#0q4?QcdAd2FNhF
zxMQ!qFJ=SF^6V@Zhvhk0*$u3!8SrqUX}mJ|V&fNsroabNR76-oS2PCr82Gz{vqBtk
zF$w&GtglDW>elVhBwSTx_;tgx=;+v(7;1!F*8+2!)(#8veH0r{5BiJ#t4y%s<GZYb
z-%G6!5)ly)`H~I1F8M;~W8sK8w6LfeQ_6$_e9gq$w(&}C?yioG+Mb<p=2hm)o}oE8
zA5}=PEM%EwENE4Sgk?V5c=oM@{ijr@`Bdqy=EqPvr`2}`JvQEuWVcpyhi$OV=JoYC
zqut{hqiWpR_GODSrfN?d+StHQiT1Lvu;}?>LODB(hfa@-)?@C^GFQ(!VUeg~>ZX53
zfwuTSTHXd-fmg{DJrn-qAJmWcIAb<QaL#jcI!C$^lMgO}LV5>~8Jr~W4wD2kj<Fij
z9aMt&8_0oQSRgeXmyn=y&N47AA;To7xU#ac8I8T}bso<rXhYhOYiUn&a@-iNMZ=;K
z5)#skUL&sr)Wn4r0hu>V3*VbD;hf8>X%uElbLlhCW+q8ISI0Mrf9r>jTp!XUQihiu
zw_jS@mVh@VG?Xfw(VVh_V#C#dZU!hVjdKQ^RDfts51|-1Ys^v#RbFN_%VJ(U)MDnG
zNq+<fM8^i+Cr-6$xJZExsawvL{PS}jx{eQrd*)`X<I(Hi<B+!0|A|-6hSXARr0vdr
z9g0VR+Mphr%@uSF=_8LFfd15l8W#BNq|%`Hcl4@cQM)BUcp{p(K@du9rzYf1k4J__
zNV&UB4@FCHQ4fq!_3p4r@`fY09lrXov62B|NXQ=oqJsOR((ui8U}XCv;6Fi_l$pK!
zdV?)t4Y>#p^=v%%IQTCAJyUA9LUHf8H`lZPV-SQh(7_EP@)!t4tw*z1ftU`uU|)T(
zA`FOJ$pRaFxC%Hzb0cW>If*o!V|YmoErq1pqfqXU`h%K`Pq7);D)Zb;4wZHV)}M$e
z)7Ss%9-@EwEdOr>0sb3uI0>|;_mR7fx(&xxi7d-XV6+5t=0gGcK-<0{EqVU%X;mFZ
z7A(h^zbB8~7dX4h%g5pE6^inO2yXW|$9!gf`V3*L6_t_%&W31L(pwrQScEf#GgZRZ
z65mQuEL8R71lDc6?7+`2i&QK2l96OWl=@zH!fV_wJWjAq0Np9%&y1h&CZZ6{ODoNG
zYTq{hVD+{y+Ehfn7!-gu>%%%g>=BSEoRfSw-RBvHfdZseO(j9PJn`r-945xHK<`p%
z9UUeUkLDt9Ycws!s9y4N9(^Eo@e}8scnK$O=F#sLc0yF8Z{|6Q3j%W|A)sF}kG&H7
zP%4h=Jb?58tEJe!b)Fy}@qYo_Ay4#Rb;|p-nm;h^VA7cza~FqR6pC(n8cYJm*%G2!
zYr(`0_z3qpLAdi5g?jXmlKbQ~D&mv!R}-fw{9q?Jj4hnL9@owwtQ_7Ih(?u{!QnD^
zjk_9;iwh_hVb!!RIsdnXGZcVHMSA`2!T(SRbc8=Y3w87GH=5n8@}InBg3zfA{%2`c
zIb+@>poOpz8H5<R1!F8l1egYoWClz~wEd~CiW(DybP&e)_CY$JMe_7>a8&ED*$kg-
z;@v;@oWI@)jl)fA&>F2ESwChu4ko|;eWO198$5fLFQJurr<_!jPgqu0)(GR%AS)DK
z);ANDc?|I>r_7d3{Y3A!I>zAhBFF3ADH*L7#ELO95OHL=<UUZUc(}z7Gb8F(blXOn
zdiOkkQZ$2!rH_2{dKy$;`^mq90*t`Cm?2<-kH2p;E4iKMvE0<eq=3*0AmD$1Oeuh{
zAqYUt5)QF_a0LRj(nZ6`5pJzqHs|1kAK*4d*|DS+a!Lp@jYcTY$pVuGf7clP8ZBTS
zLKWpi4Px@>SY{jQGLX*<wS+iGwC&;5fXprq`}#eQ>RRq~F$KeaDUTx%R2rZ4G<o$P
zl3fEby}e6H>uhc5g@n1rvQ#6+V1#Xz`uYPd4w<Gr8Aba?%v+06Vq4k7iaNq?wn^aa
z?+Cqkn3Ox5RN&gyP=hGHjO~f%)wZ^=k8_?D2xN{y91y{q@bY{Ri>!!As46y)6@~kp
z6}H^*4UT1GWK8C{Pv$AS&a_)dsV(-GT`q_WK#B$2=CN<<av$JR-;JrPe3B<16qh6z
zF@_unli{ynfs+d>osclQ+MSTZegv!Q2l`&``k=pb<XsMNVVo6Bh?s*3jD$XobV%EL
zBxrbhI|x%MRITNk=-O>6Q|JyQj1gpYB=^bf|9TC_XDc!q5tdj$X{Uud&iFx-NhabG
z1Zu6A>Qq57z08E3bmRW8UY8vaW1oz~z8S35FyfftGi&vxlLsYtBJ5@xLGyLVQ|h8O
zxiMht#j7pnQ=*(8>U5=2at6~kES6jm-72wCt3g;-K$UaMb8Rz*Vn5-Z`rDP|0U(>C
znt)~Rg|M95X2PP7q7a9x^|2>^0ii??l@1U$P*jH+t>xt8tiMWMKzL<>_RG6=D2hTm
z_={r48sps%^%)|n2|5n^fbv2wG9VLgubI#&Fh&XXarv>0JdVtkjquuoli$lO{E<4c
zH^Bly^`K_bhauirzPuZala#XfF{u@kWVne&2AYcyL&9dsC4=s?>Z0nLku<`v<}Z*u
zB&KL&R$bX3%!kFDYvsjyKU<y?x6e|ROf0!1)**2;4>MsFWM^>~<|Avs_3+@KmCimi
z(V1M31w>ll%SrZm5)umQD@CBnLH$<*S-2HUEjzL^Z*bU@93qEX5c?p}`J$VT%*YT6
zvB)qc4C4@1is2~Aq3reIYGFMuDi_al$d5=af&xI-w!;Zm&r~1+hwx%d>jcDvwe$M%
ziaIMaYE8jHPzMfmqoh~=#z47^*u<F+*Sfk;cW{K#1Fvs>EmDZ-&d4%<OS|LHb!6rK
z<;ox6=n#QN(h7Bj?&Ii<VbO6~)=B4Ko#9IR;W2Mn+a<}E9kRiGGh-1m`N&v`?FuT=
zC{B}cZgx;H&PZ1nG`UIn67gFWTgm6o4@mTb38B?Agh5SY#f>2Dikx;U;wF~jz2P*@
zzBQf{uzUyV`P0!=WjdZd{^MU?oB<mGKQ3QRX1yIC%L_F9xcKyrr;B*$+JSU)HHDQv
zuH1859|`ro$lF91H7i&jMy02xmo*RlsoflWwV5}N$pE8DdwOETA_AWjf9~V}yVb`n
zqTg<98-Vm7ZN(!a7_68UH^>Ut=ts67jJ=W?b1mCIR1feB*#b1*v<D9|wZ6^*gf-F0
zkdqzR!st$~8;HQ$=gm$4O)VxhQBxe?(DirwaUn=#%LT^7ATD}pS!dT0h|^>T4slmw
zr*LGr6vQWkICm{sgGEeO!#%*|ksz5nF|iomD;N(-5Yq*wQ#JZV&noP+OL2Dtb0@jT
zi_yV7#2Vq<uqXNi^-*|ydTngp(4@xdiH~+sJ4|{VZ+R0*!X!e{N7xP4Z4gdwvAJ%#
zEWi>v9fXyWG*SezxO$N8tuV1Y1(u*wXf)aB+`0x(Pxpz+jJWq$fh=#ivY7uQjogKZ
ziTc)Lyyx@@&qv;qOOkgXtiqw!jz4>-43Jp!V%?u_q?hMC<(TW?zN*jeG0quFUsiwV
z1d*myc@_caH$aWb#03s;-lE7KsA?<`gYdyO{25YD-^slnO=OtY&k&^$<g892wKs0u
z0EsF}rNQQ9!d#9lONF_5ZoWaFb^x3v@?<1bA^L)VXcri2`Dkw+joaO|;pXM%`!ijO
zA%!D34fUBnthJh>rKXHcOiWbb0=BBL9#yn@(BKM=?=%_ye5^LNf?=_0hTo<bUYv3l
z6!)hFUa!lr$BQRYf~wZFyVUOCl<y@Pxn=vmc({Du*!1kQe^@kPHA%qXVAj5~4i(nw
zq7<>nhxlm#T`wn<gnieMnjIi+o2?RU#Rm3%{6^FRgvSF-5ua^|5$5ki8)wR4@hCg>
z2qlSgj^z$KrQ^iyvmTc|{%aYy^-yTH1P~4s37uodX9V-P0{mO$79k;F;qB_v#er*c
zOF$|msJ*Jg=_NS`u4HZ_IFj(Ua0x2U!6J0?k&I9gOC4yi1AyJ7J3A-d5z5xC%QVN(
zM<CoIGtr)(A|M^YCgOwy1Z9l2$DRWa!L;J76#^4bWduBK`{b%GUcNg1lW4H_9!O}&
z#!690qr}r>^~QKy3ttbUEy){#+_IU(eDLCd0<P^c&=<QCAthu+I|xl}fs=T5lcX5x
z0Q2j-Jrc-cq$+}%+8>|2#MlpC2DFbvK6fg3-%ebR8k8a_5H66B5t*slXWOK%x_rKQ
z^*dg)J|?`^i(2Vt=B}v5B`*6di=&H}ICaWDhP#s=se_1g5^HsNG*p=lS2X$E>XLuX
zSB-Rf=*J{vy{IFC2jTf#21A;(T2fh8fT&%rE*1W$ZWKnuGf{}jMCAo7$)Njm@k~Bs
zaMtaSfn;4~m_l!GeFATadF}X^1<@EnF-Y(jqDLXP2jK<lnyx+FJ9@wSlzfU{>lU%&
z2t6dgFIg|hiDzOI$!vd-@kVF?vwEP}3^<Klt#LGoR`JD^zy-+Xjml8N`MfT~Z~i>C
zUH}R5mx*`X<FNa@1ux4Hhj@^HG$c+C^{5%f97ORHt55QgTtZkJ&dplR*?6d|Mh>L}
zOVB!homSEtfts`<loH|GZJlR5myhV;W<eHYbNkSYrjuXRaFr%A)DQ?Q^}xb+Jf+Tb
zEq)^m(GhK63gT<aXFVV7mY<PCgaY^MP|mUU0&e%AmxzWaYnCEr&W!8M@Xk#4&V<7c
z@&{CqovFdq2yQ{<DO=GaT{7KWBWR~?uM(q|8*Ofsk?Sq7ywpuq+g2HFtNyFy_P-uU
zxR+pslLZ_`BYtMOzV$$L%RW*!(SBgRyz$g^d3gmCCn(jp(ko+^yf0aal7S`Qh06ES
zT1~V2&;#&6OE6>AT8bl*-2S@mH99UIv$RST25^)C=u-B8KX;?)L*Yb1eG0A|ed71I
z9FAA7;t>c?2XN2zg7og@;18%YqB)AJW@Kpae+CU74vpt_l&-oK@&#xIx$+n2eM`$q
zUq10;hg1;OW=oK4?Jd^vOpZa(T3u&rK$mqUb+nJfz)9Sc>`D!}l}ZDjd#QCnJ@I>s
zj-(c|x;GM40-O?>Wtwqe4Y43vo)(HQRAW;vTdn3Qc}SJfa&~O(=1qDyZ|2s)c>7iE
zBEYlo<im7SBf(ZQqqHa_Qe83;O{L*xyH8cS7ZNcvU;5|sF^*O5WUDm%q$6EMQX<Iy
z-9glz`hnVZ#@1rpD=51nJm^<ZrkbUe9v`c%&Iur*Lr0u?E70i8$T3WO|1i#Y`+nkr
z7U(Qe=biQXH6%(zxQlz7h2vJE?<*S+{4az9PfcuX?%6s}<^+0R8+mNjZu=r@`Dwml
zzQ(wWC$=MY+WzL{n?Op-(>C?*EtB3fA!#gL?rK}*c*{TKapz^};WwRsWE7Cg0_+m|
z?e|+|^&cml8blicLb9%|Q>)7DRZ*Q20W+($VugcC3{pB;M@(oT%%s&{%uKOJPS0`*
zJR$xYg?Iax?xU#AU>H$opEDT7Ql3MdtJ!Nffz8<4sR#OR%m3ILF?I?98%D)-l@pC$
z9xCw|0I4h_If^WXmT9=|jC(Q$djr28S9Q2e!B-dIaD?C!7QsY!5p)L?35(MM`cILP
z`ctTAN+HD@vLY%C@?{$h`QW1Zgt!cI6(W8!S-Q{pjqFYy+pf{n?o*=`>aAO96Pp7M
znmeLQCB<VDG>k~I!yBH*8nyFOvp@elX94>?)Y!W*QDx0~m4keeYB!f|tP(r!ZhwY9
z5L@Gi>d{sq!B5lh>2Pk&sv?O6`a<K;#D(I6+f6sC@CRz<H8+^V#n-y%kmu53&u4lP
z@s~tqBHkorAglR6VE`Wy@}5$UTUaDvh7=;MX4EA`u&!-z`Z`)9-mCxS+8^qv7tWxN
zD{m=$*n^^{D|cpk46e7e=Z1H=y%xrt4e0~BbIxu=Q{P$K?t>bB67x@{-Ns2MX6lhZ
zh)qBkrzn=-ia&2jxA|bF9cGTb(9em6-VtW^fiGWtMj|II!sM3)QYQxv33z)6*IrQ8
zwR>dq;Xra&dyh)1#Jk|qRh)~~h^wk*;MNeBd<aw)EWHa5LTbc5xFI5=KS-EtnwfC-
z)xW(l$#xx?6?20yx`o_*2<XFHFnv(OrmA(Hh@m0!>|SOsUQ3#7SceEAN^5ius}8(A
zKwgzK1c5{%DGl%lCIa+#S+!dz7jhNgzNDIQE8Gl10G0-lsN8Vrx`u`&p$aF9??Z~0
zA}gRLunT#6d=hWI5K;ObDP<r-(fr0BL6lc_OuBO>BqXHVN{!ELr5)mbt762sQYWih
ztJ*VPCbG;buQcP!mBj($##02N$nJF&0LY`!;*!~wEaMFsfZR-99qFgj3-RaHeXkb?
z&>IoCTOp%suac6VO!96#k#60pQ8~DX!^pO{)Fvmum8ikAY%7)h`J**ErK{N+8al#f
zn!qKnWAlT|lDwpsSC@%B)BL@kguH1?KO2!~GPt-?8g+ub%Ae1w0pvnas}akANPKX@
zHnC|tTM5j3laX1CNFTbbb0aDNQmzy6U=XIhNr+_e8%UG~V40jaK>x<v5N+C@7dWc@
z=FW$46Vpa?&n?I-OhDm*5Rvi{qzam2;m>EU-o>0&kcfBNlCU&wU;idy(3PL?!31Ma
z-3Y*I&;eH`Qsj|tQ`0<6nM??np>CDznRj6pSc&f;zzR?6g*Lg2GNBXlNn))tIAGjx
z2XQ2bY%|o;EJZW0h#dd{Tn}KqynWq@zPH)BnRkfVkkpzGH9sJD3j!Nae59ZxGXnZs
z42@z6n#IJ6AD6H~?ypVF^9`1;_SO9-5Y_)HUaDjsQHcXZB#KEQCbmf7ugW4$qP8<R
zXyxM4p0jcAa-{L+ajsF7cbw6&%ICsY=ifiENxfZRQ9C9C<ncF2jSF*_b}I^{YX2Mo
zrO!a&HKelAC#T3IuFmpw?=v66=QkP<oS?-Y{o=(QFE1|+ZMS39?-#6<y1`0{+ST7C
z>}{ovCbp@yKeJ71ec*z5Hck3h?C8iX=<FyWWdONgkmp_?vU(&sa(5B8^65Fl@uW_M
zGE*m#*;RVyB735lm*gYaAn0{+;7A0HdJh!!#XvNoCy0n09Y!cBu6Un#3-J-a0)iwm
z6Wk8?7GoQ8K85?YIRZ9w_%`ckPLl>Z%`^uY+$F}bJxF839f>VcX6IAyB?*}!j)N`D
zWC8*Cj!1(ganRLapBRkdnaEp7*GgI>67kf5%~*fCy#s?oIb{Z;Cy(v-_B{PP*bef}
zsF;|YH`%RD5-?LbusnuT$%NR$V;VzekonF!uFiW3J>5x~3v`53YwJOi>P3{(oR$9k
zl%LUf7UYMm)4F&_PPExiNmXEiuNFW;?L?$Oj=_3C{f`?a{>t87ee6YijNbb_j1DqB
z0SI~-fsHbwECKQnrSyjnA3}luglTa|9<q0zfghqc2|zR=SdF_V6lTd{C{Pya<H+`w
z81y1iu1CZszyukmA&_hNBjy51Tfxwm>-<0PT;x#+cXW1IqizwfuLUcZG`z#>L)Sd9
zT7r|ABeveYIQr~~cLC;;?!%QZn!#YrNrC1dO_CP;{Kp{5KJ)s{BL^}9Lk3PTYe34m
zGwoJl4FnkD6h%K>9;ce;wxk_QmYn2p1tinZU0O`N$H?Z*KO7z{R!6S2Mts~sWg(}=
z*i<{onNKFJNLdr6v$4b)Z2&v;f$>N9&@M?}FxLrR`T*ksM(|ib5&LWG0<g_Mq=4&A
zBC;krZ2)kO-y~8pa?r}Ac{4!2<^hN<szwV&c7ai8I95rDRsGimT(+>7$Yy{Qoqo2^
z=O3G^({_HD=#P7x`J|s^)dI$b#o=M3OqQdu8j-Jpsy6Ee$c-ExL!-EjI)GM?q*OBW
zR0cSKG*EzXY6VR-!fY`=&qt<(2uDC}2f=9Zh*B#4bVAfGK=chH%>o&s0bJ?^FCd_p
zqRi*5_PG<<o#QI|5}FW+aK6hkmh)&kpJ@L$RToesrcz7hBuH>4Wv3!~1A^G&xV^Tz
z$*tb#)QAL)<EH=P<NbIaFLqI@n2>dH4|YE)GyqE{Nk%tFD^pQfX%J>xm5-*?pUA$0
z;67lbE2BAK0Pch2JR)1hE)&Cdw^pJvW=(aWge-Px+1p(!N4^U>_%fuPU0N@bv<G)t
zfP`Wo!}z-NDRuy$)`#4=JJ=o&Q9<rh-Hc^#<JHGmMN%H__Nr^u76#tm5b4GFLG$FE
zN0(Cn+Pz_YXvG{8uiNwsg0;t=fB3fV<L9S=w{MpokK4|3|H75yrT0pmcD`RD5M#_C
z%dPYHR+UWB%HPf$WEuoE3{G5a3h#NNQ<FL7X86D{aI{Obc%sMA-Y7z{S2QKQ$9`1Q
z`h>29sp%0a^$&E~HxTguggM_WFR%BI=U>H3mQOd3H8thMn5{PwkRA@$!lg^!!ysXg
z`?QM-3WrTnQH?`-Cnh3dT3QVK0s_wWe|vvYPVV@rQ%hhNxyPpMG_v&q3~#21nIywO
zbZ_tK>CbetF$@m<5wEhCa#CL2o=4cyb!6d|i?D}~z_8=3+qVzt>vLkHKgqP3e=JB0
zZtc%1O~@Y!ccN7~j2Gl5&4mx4{q#f;j2sUgK0KFl7CCg2@zq<mZhaK^W9vXnK)~8L
z2PrGa%9Ry|Z{b{OQC468CH-gU<HuX)90c=za^aSDuz=9#K=6_*(9N`y?SWmHjn5Qz
zt6R+gntYEm{o{L&`v$M$p;GRR9sT?3s_>1>(&GPEz5P~Ek=&MRD^Sy~g*Vk&Cb9HD
zjrI1t1o3xjzH6(#*QA1b&Ou_WvUb#2-0nos$Ro%CYQ5_GtE*LABcq~@o7JY~n`pu-
z=o=<x?K033ipALmPxGlKzw2^z%GMz{PdH*VR<~i(H@jFMdZd92;VEYn)Yn$DOufv>
zX*3Btyzo(_iGe$l$xKnN3dURxbL0SOGo8xPu*~A1xT)d`AoUMFDgE3%4@Q?MKPSPl
z)VaDD8b)0(Hy{4IXE<uJc=^n=6<9j+_L1;$pG|yVLmE~+SuxVI<62)+jzKY+`QIoj
z*R3;32~9lUTw7Q79=%t5I^3SQp)P%gDbL?1{V5SspA22$g1DOU4hW}HSIVep%UxLU
zET$aB2c50ctDt=pzb;?d=5Twm1l~k*C>W)SdO!6+wB@-MkIgaIDERot%ciBLp9cuu
z*41Uhh)0|_2UV-eD4cRvz-02Mxj7&Fd`cP{EnaBp>21Su4{h(f^_MqfitFlHj`+i$
z><fk^u2)X+@$sEJbqZe}&omc3kKkc-j?>gei~~+9S7@|VnZs;r)~K-$o3ML{z!gnY
z*Wk>V`-K?=Os0W5#Hg1W()rRDdU?wz+SVGiPF`VOd#qc$r|GcW);BU@#&CzGVa=kx
zp<%7-G=y_|K%Q)R!kanRf*n;lGu9taaqqV4QcEmy@9=SDu7oq%TuSuXd4p9(J}c&8
z==&$Sn)7L=3=FvN4&u{GwGSPdLpclNbD4i{JiJdR9x8F~;j1K3yB5deep8?Aji9#7
zqOygJ@L4RFfkrpPKNo&{_0<&>oYyY)F4TEwy6;DVcIHt8qTPQkIUHSn8&K|Tv}zv(
zVJDXAAW@XgwtDrpW$gR^0=>Iq$?sP$n3}GJQR887@%I$~)2^YsgQ3*XBS)^5bPkhm
zP*5Pf=i--x>Z<6dd`2XMu2gS)Azl!)GAjXvK^HHNzqA?rveGL{OSj~Vcktf7ckisQ
zQ(=wWwH4nWI8Ocq9KbBh;u8FzQ(nS9Ydi95vng2}c0VkPZ#1sbq_nK;{OHep8@xWl
z>+Gd<t2bV`WPyOz%hQw<ShFB}A`-hz7E`tg301aSQp4cpUwRt=`z3a?6)CoU@}IWH
zlHU|!gUtzNTRxn{Yp>6)fb;$17cb7RV{r=Ty|lcAjl|n;fPv%n_}R0QxT8nfY{bUg
zPM<lm<%G!G72@_iLv4FR%YDMS-8ncow!)VbFz*SiTsQ6T9amrf)zg^G3j@b33W|yb
zuEfiYxo6S2nepMgoaS3mQQOsv(Jz??48J!jMmJ&*1UtEuQJr`dUQ{K#XeIU52F9<<
zimLXET-n&e{@S$G$jqyD`_`>nGa`1smieI<uqx~DLO_#BbB40s6Dy>-9v=$|XfxJE
zS5)IwJP{H+UqJt%7!ZObVebWtQX@+*yn{>3uBsFq#uNeXo69(o)rcp2@+V-U&RwHQ
zzdonm65|pR6UP@(F137G?>T%SO=HjbcMH`MqM|;;;4^w08(U!U=IzIQ=a8HacpBhD
zJb-UtVKsfCUz=g|-Y^q`y1525Fk*OfetkJ-0p6Z@l~EzarSv(-+!^^8R=0ktoE`<>
znlDI9MaCcKxbz>JW5ZS7ThGu-3)M+nw|@QlxgLLF0m})W{2;e3vl;7a_`k5v6ZUm2
zddGcjs<V3YM8G!UX+664je=R@c-NjB@AO8IVW;eqGBVcOuQk=wxIGefO6<C1bcLRl
zrd%})HkzS?Z5%7lJp8g|=}|Y6(#OXr9&pghuRAC%F8%_WC@8PKz4w$XBWf5gRC6WY
za<Cy_%g&vDP%gqwh@M(Wx778VfI&<%R)z_Z&8D8s;5F}H%O2$w4z8AW{+WNG3fa8F
zA6l+``t%C;kM7#+4y=WrZbUL8d`IR|PRh!rIeDfWe)K9>Xv65brxeQaeMAdj`XhA_
zpzWMOCs?}QJ+aC0ogtyu*T9K^;sN_fja_;G4@*n&K2y{qgrYo?kDWL%8oNv}T+Aq8
zDA(J28PJ9u6c6w$tH_occJT)@(dF$)Fr}fqLM3+M=&@t!d~r%V{dG;#YbmF-wau*$
z9kkR@jACzh_dd<zulDld7Rtlt&p$PfclG1IJ{uo*VsLES*x5Ij)n7B%G&8*}&u8-j
z3RH4SiMOPhk3!7RbLSo%xwMg46Ks;FjU3)=TDWrq(rR1gl|OX0O2K!E8$b3@cD8nc
zp?lZoJ*jm1wq3iHz}#k&u?Uv7w7BVA$>*>RgH3j0$ANNzq;!=Q749`Zzb<!Q_-b--
zO7wh_t{xZH>>Aas!kV8?Hcy?jnCaA=v0_M?f_L0PZ!HWlN-=}2)~Ws2;PRoxB?`!m
z-LokamGdY`II8tIu61U*Mn=)6CP~YFQ##V>Sy2ysB%1AjMJIObZjP~Tk)GM>wNpf7
z-J<Jn47D2oOBZ~`YPc0^*WQ5h<QO)&-i0d;stWv0(VxJ5lCV0Ja4~ge&cP!`=3)8Y
zy|6GZ^uk;A?Nizmtq~tE_!e~C;ke2Sp`xD27nY(O@SwC3-?y*gYpdh;l)Ry=9OQZ7
z?`UBbBAyir0?*s;IKW9ciwannnc=zTvbL&ftN#cd<SiF3@*n{~^<zqYE(LDt^C=F%
z8=&UmbPCCOk@qw5V=(q0P&{-J?HTb4HaWcNIPkq~BL$Vw3w578TPj25Uv}a>t!Llb
z*;$w)h!`CL-5M8W|CUf*Vh0SfTb%?;Iwph9)3f%h{EY%wM}_H%5oh~nQ}7=PI#rY7
znpu;B?n29ZSz7AZfG2RE6QDQjQK*=Wtb;AG3`y9AX6~^y3jSQ)Zi8asn6q={WVuON
z34XWR;J0BlJ^pF5Na9XK?~z>c`9OYjL{4tmNO#>$goDR8Bb$sy^(xzKEWA?0-Mciy
zTfB-lm2cjHRZ(VDdcnKWKm6P_jE<C}$CT6tKiIdUHh6I9$0=juo!Ad?T0>*e!%jO}
z`Ac@3AtJQ{DyND#)u;IEPB8Xva_{7wwo8~Zc+Hc~d-^PDq-&FtE|gbr{QflFh3@zd
z$^%jB?XY<ayF285>cpH);&z|DKiQpWJrv3qa9X@YD>hH@wxsUxxfA2MNd2KETTeSa
zu@o(^8DFiL-_nEYq37iK@<}`z<AszySQ(58b4I77rc!p#yhfC`)#mo$H-Y<`oiW+}
z<JJ@S@=^}ExJZD)`N2$@d#8P!yz?LR;2o>Vzn&JTtf=^0Z@K%=i|u7xl)kp%b7DL_
z@LI8BhIo6}wg{VPk_Km9TSnSA1aWgqY&Rxf;xEg}k_hZj<?(j_WRH^}xO|gDn}X}~
z#iES8VY+D<8MW=Lqn*|A7SKnvuF&?Z5*up$cv8__Z}*=+>N8N1{seJ*vAb5NKHGVn
zQ}(9cuO8aegv_74Hc)DW55?#fdwIrJp7KGH-t2W0P;RDi6R8^UU8|*lS!pjXnu8-V
zFgOjJ(1>&h`EYW``;E}du-Qp@2xR5|Xzkknq1xB*+U2h8mPpy-@*#r~b}=fHCMq2!
zY%14`XiL<Xa_Pc$*)tMDn$#ho;&jSJKGoJ{Lc2jBLwlG{$dp1ZJ9g!eIM32){{?6L
z=EE|x*7~mZeV_MzzRxpiWhZ2x_nNYE{RhT+GrhSHGgrnt)!8vfHr0pYS00b*o-wF<
z|M4X_zjdMZV`F38zs0O2^bHK^rK04I0DXaN%pddbKB761#2atztI<OAMF+sJsXA=2
zB$Vfv|GlpjY4<s-p6>XcdewpBM~_xMf5|e5ar?v?5w9Vyi+BeO7$#2Prl)U>jiq5W
zAW{8MSnXY_e)Y>$7WK_G_3tQ27r;vOVW<SsQqNB&Sk5WHh(>&Km=XVw9Uui_YcM~o
zfqXK(VrdQi^tg%Rbee?O`NQpIhfcn9YE;6kJge5Qx@g;6X+?z^1ac~VEw8Ft3Iz#1
zZ){CgNZPRBmb+Rtod?&k>TgX>vUKg^pM^_|T`x5GPWRTbW>MX%5L8psEvQ~0?Woe9
zkX}&@Zy;ItpAh%8k|7m*r<!(=)FA(-aVmt(E<rJ0h$<S-y%0RCQ>6uZ5Y~0E)7I4N
z2kwpJRod!~HMUt_cI~3g-!cZLBsW^<`>JjEXM`raI7%pXh?a!HNqMPMy4;S1I0S7Z
z8a(wLvE-8L$6p>t)g#ls{?7S(=iZ_pn$dF_iKez=6<KVSTcIu)L==;Z)#7x4ifJLn
zKVEHX$yU4uPNbhWu`%(N-}`}P-eGjyw6<vAK|$<GML6I-5d~wdL9=+9hld8f2*ED1
zjEdT=@49R7vOlyiTSa{&BI}{pM(RRz+r*_?*?{5cnT)|`5Oki1`)^t=!?CB+N&@X+
zqo@ftcXt<8SLJ8n>j4LQJRUd|Z3b4wk3`|^+ZtF}`rsKH1BLujtIoeWhZ(-U>1deh
z+uMH!UcyLr#Uv+MeA&uWg@9B(Ce?C)k0I8c3O@lI&c4!{uS5SY{;Y=|EYEw~TwS+D
zMp|GyHZrooe0kT1=-IOrXl-ejd*7<an`QIA|J<$f;#1$$!Wun_)F+WoQ9BqB@jGZF
zR%EPHzFED|8DTEddajA#?fvG}_IPXia%6ivGfs`%61l||0X1C2-}AY-zGV-CEQ5fT
zh(s{n<86YLl9{;u!@j(^CRe;}Y)58NE_eJ8#vt|JG07ADfi|VU=ty5wO(hvwSt;5x
z4>3cU7_E8=1sQdR%nP@gTU%2B93W1wPNArzI{gGjQ4oGNsTIWEnTnmI6+Rz0sj1C3
zzJ2`oaXU&N{HrfXkR&W*A80(QlMEVLb0gRePHgr%O(j_%ZA9x9=L(YfN5;J${KQoL
z&RJ|zUQF2C9|t*QJ#ufa*f}C%wVAoOx|Wt);mFM1yAe9DCM^;jEM!mz?4XXmEi`l$
zyoo|8EfQ#9z4kLhS3?!MApEHB;6Mq#vro88M<)&1#h0#GFVogGDHTF`;gC2815O1+
z#q2?dE;?{CGlejz%(`-g2Phc({$l=cV;ke<AFOMkfP&Du3eiK&gCtoG_#u)=(y%|a
zTsQ;(wp;is_7s`rbj%rIX`tD(xP3iu9COft6XiRvH^9j6$WXh%wd>dSgF8dSTLk;~
z`>)Aq5UST_l5DdB2^CXeX%q6#QTuMFNi<%lJQp6%iMY79Nt*yy_!YsQEaERQbFvJd
zioKP>w{u9`1bPXvND=Y9q_jP6ewe)h;3MwPJrU$u2Z}w#|MD`6cp-otW6RL7U3bx0
z>l~dxzrDB58QBB`MqSDT{v<m$mxG~jS)&7a?_fu{9G)03w}1P`UwGFt5OS)j1*ck3
zU!O%|@p=9WJ0l|*C~h`@Tru`xAu1Tcifol>M!M0AGS)>$hew`g-zEqdQ_anDqW8qO
z=dT>xQ~-U&PDclwPsz0p#v@+{)@XND*`AWY<%&M1pk}%Mr!3YTG&s9!PuSv;QBKKa
zI48q{5<y#@bmb70y6XjUcGzHDVW+PGpU-b<Zm!3`q|oEWJFtwU=*QKAwl^{vyaBCj
zA^HQ^d3otDuFu=yh$V^|UW(R0)6=Ie!NG=JX3N&C_!jtz11MZvRP+s|5izE#e1V=U
zA)in9-z&+ppuKiOl%krMIbjjNr#)$JRp@?5vEcS3?JILeZwMQqjmbj#V0d@~MEX{{
z8NX5;Y&nP5?lBV{IZo(R;gev~l~quX3B6J&DIsqZ9fKLUi@*POkdn88=qg6Hdni7B
ze!A$ka#6g$1g9bv%vbx<o7&zp!%}|!xfme{&jlhAy7<}%Qdp7|5Pa{ciCYS;>P7e9
z_g#Vm?hHnjAMMzqGs_$@OG;7Zo#*qVV2!Q>j!gmlNJ&WvLebcL|Cl+H>r?RucE(T8
z%xx(MWH5-r5sq4v1h=0E0++)rV+9E%mDozs(GC%!#y~U@t%9m5C!o9$qCsR2B9KF;
zyM;$aUPv#4T&W^dR6ic2w^hSEb=RmK?FfP0F*3w6vDnbYMvG`i$b;%EuQAwixh33H
zunC=s_EBVBPCnj!s@f5mwLo12l&$7uY6Dd9@ZqNr$k|G-Rm1Cxl7)DqJSCfi-WbW*
zCdI#Inbn8=Xya(xPwr%C6J*7HRUn{{y4Y!<`0mAjDxv7(au;n63p2s3eqGi(Jw5HW
zol8yBDVH`hIFaRkmvsB<*RS^oPTI9yapZ}`-U<f#DRm$xl08EsBcpyaq=-bUL(mp|
z9Hub5B8VDn0SHL9b#&At@P5k)OpxG3F)F18^>M=p09YkbID|4kB_4Z9AF#vFhk|Ja
z7k0(iD^TAhC5Son4VajCAAfSg%M3$9TS}gMk9y$A30d?4tl)5$zbQ@w03)nYjjSCO
z`79%!1p~1ugq1twfQj%T81&Y4?WdJNrh~>B;JWAhMr55kw<vS30eR)tZlcX}y5?rG
zo5`bO;GQr6^#v*%?zkruUP%CP!NUIx+;xGtw%qV4PMDvI1@@ePDq3+#i5ztB1S)(o
zC~xF>Lg()5Axq8dH^z7Qawsu&y(5d8FNZ93;dbLB@>ryag6Hq!n=^RHzaGWJBl2PY
v@7SFfjCAz%pl(Ku@b_t&g%|%HANL`lV~K*gV1MC)nb?kPZuDQAf|C9V$NVx?

diff --git a/reference/as.mic-4.png b/reference/as.mic-4.png
index 2031e69fb0725020e4b319a8c853d21b2e7259d0..e2b55a2bd9494ee98ae0eb0cd3e99fb50678f556 100644
GIT binary patch
literal 51883
zcmeFZ2T+w+)Fn!{+GdO>qJRn*h@zlmOoR&pO3o-qmYlO0MG(0PNLD0giIPPG6a*w)
zB%?@9k|odj)SmjM-n@D<RqxHbs`)9ph06`!cg{XLthM%jcv)6r>n6HQR8&-3Ns<@k
zsi@XDQc<nZ-S7_{X$yGy1ONP^D=l#m|Ke-@LcRz7*=Q-LW<y0q?@9dkmv8TcJ{8qL
zD$>PsijJWp9Zt5pl@?Yf<myR=>(0G9;>|vG@NciU7stL)iPB!Qv|UTHZpXShChyHX
z0<53j-16H0=*0%FJC7e6WPNe)#NiKno@m*hJ4<=;B)Y-P!{fWHTRtgukUETdyqVuk
zmc?$EqL7o9XCdsC$XY_HxAxanQBge*eE6FB&(BnsPcu9I_4}8DvVPs`e*burPwe*I
zKTr9#d!zQBA0H_EfB9s#hleiQ|6ra|Wu7yfKVJ06j;}W+E$wrwY<>r)-le1qfB(J;
z-6O{-e;pJEm5n_>?a8dP5Ebhp`1=lSHqbNuH#hU{bE=N$@a*<Sd$}Il@%?@|U$tL%
zGPAfZ1BafsH+SCG`}=k2WuuieHQ7B&4|$ee8ML_f=iR(~*K+;2@%P7f7X0~fd#vP-
zKUZ=#^l-`kTe4vSYTMe?GYov9$S#>R&$%zmwcGg8@ff|x%;X8Pso{6-zO_Enec3r;
z=0<0Mnw;ozrh1l1^rugk^!4=zV?xa9lhiW4Tj!ql(*N+}kTQFh+nknU)s3zqt<<80
zggl4wl#Chy>Ep+bS5{Wm)2L{^T+iTm_LRY=&tFSDFPM5C`?);VHS=yW*T7^Imx{Rf
z{q*$o#zGedpM9sqD<0Fc*%WdHN>>GPH8;qKCfkp;4tk%exs0cA7X8$n8E%%#FsPP4
zckWhKZ<uUsQ})xNa@i{$9d^xXt8=cr7M%s{x__)gh=n$Mw~|4#jz?i%Z3GvovZjU-
zWEdWwn35+|ygVDyrGJ0x{uqztVI3(+$tR^>Ki~Xo&2-6n#-AJ>Wi%>Aodr&npFVA&
zt-7#HIO<H7s{)zFVXXb;Hubg)Ltp2ap=hy3d)6g2RDZQRhFgtF*T3dn_lT<~?r6B<
zJBy(A?=Q+kh-lFZ+AFH72hVr}Rz=^vyEdYVFHBY@<g|>h$U@xgNXxDh_r1NhxGhao
z<V}?Cccbj8nLT4%e{q<S%oeEnXZz&5yM4&HHvL1lH*;=y-tHf@SI70rt|OP8Gz>QC
ztV{;p{HR4z&$Ersvmd3);@iuv`eI>b*fX?Um}X&aobg01n?JL4KK3N1%U$rhv*_xQ
z&CFPbpwW3H^5o<svF?SdD~pGk86SJ?-u(L`S-0&hxH9>H$#>xW!(AqA*~tMM8Zo<$
z%6{mzj(_puENoMGd0{3w{mwsI>#=4$hBXKDuU|K+k0J>;{&)d1$G81>XR_dUK?7^C
z<=68ZT6sL*Xmc#OQf5cnT$aaQS1>e``|S6Rh~NsWVu@{tZ*SK$Ye^SVh`DsdlbZgp
zw#C7QSh;3=dUCNwrqRo?M|(9!10y0*qoo5A;3LRVt^ArY!8~=(jw@v9RZ!FH-c4NF
zn>VVS+ZZXh(ZoF*>Z<ySbK|KOJgJ>HEHYZId;4*VJG5JQ&aBQ)^=rUZ!i1d91i${X
z$l;Pd#Ou0C?qnI&9oBN6@0F64RycqDw!FN2W44(_vSw~QYriEQkJYz}P01Q6SWe{#
z5jVwG;#*mc9AV|=z5=^!jv_rR5Fe9$e&SH%7jN#NmW<dLhnb<KEW2Ul!s&YHyzbkZ
zp9Kdezzm2NF)>}}4|hp1FJ88<4mp$BZeH7M$!9xWIH&I6Fy5&J`&VhpHcOtBmXT3{
zJ!D<~xHI*;$uX10xR>iT?->ZxajzTA=}P%$E8Q^`7O{;RH>S7TNYF0K6R;nNqhV84
zwaeG!ES#zlbRV8Bpubyf@W`0`&%JK!JQlAI`&ip$l(%^9PO@4?%vjN)dFra$Y>OfB
z4z-hbH#!m5H#2kn5grUzTw7XN)C--nX6EL)JW{c55{iaVSm5hEmt|yRnkpDQM$Q-q
zKYt!K*Xbgsl&HKlcV#%WSi4!<CArJ(o7x;aqv^611F7l%YG7;W2Zx;U@0c_t3??L|
zY*Jk*n5xN$*+wrA_3hiYlNEDcJsH&-!UXIl^JvZ{xlVpON|}D;E0QohJ$<uRL0*2k
z)?+0@Q}^SiPnkPA7iUKmu3fv9n{>4Ej|VtgrYzFj8F9aT?!ne5<z#irG;g!!E?XW$
zoXF-bYR^}na-^S&dKB@x!Grn7KQ@|j{j8B=-f><%Mj=-AT54=s+U3oA*gq2n)ms&4
z+7Kfn;5;4Y&8^)FN6zc^^T#z<!<iAgGKD{D`@n<Q@fGtkjrGh&R=REuCM6|JZmD?0
zT|PX!Wv`}X$#IPw(Q;a|_BVA4ZBvJAZ-v@X)UGA#wZE})9(d`gsHnJG+4XCHZ|t9=
zf7!|M(fwl^Pt%>LpY-E%vNiH&Rg!JVTjuAFc`CuS_>@fEIVlkCzF^$pvARri_?)`m
zzc=1{?)DsyrS-}ApA$XYUf)+k4=A|1yGvHx3qIJ9uK!5foA%mrM~aqUb-1ubzWu1Y
zxp@lCtR`omH#a3wEyLiY#aUWb`9C)mr};*#)cD|`L+3cuGt<l)(wwFYc#Z3s`?$3%
zOV+h!8b4(o#1d^D6v-%FU2&0|kqhSe7(CXIpA&N_Xs2!CbZ4Q<g#<xOn&W$ZTc9GR
zcek)irbSn0a5$fp?iQwbQM0z}teE1Jh2bXwL4pqElD&I4HH~Cedl*+Y1YZ`$qEpig
z?3V8^KiXw*IN;Br?Vi4fyR3_qV>ET{`xK;J?C!SZ)p4sfvmCVsuEJ^ZrcImv4shT*
z;0(LIkg)jWwH_t2!+e{%`}9EFp{5W&ziToPd{&2J{`CROj&i$j6q{KBHFcLeUS3!~
z+LCef{tgmh$O+2Htntiht%%OKnw$~(KHNl%wEh0U@5#_?I|Y`{b+rXf`hF;%`Ioep
zyoJ`imCwunMBOL2TV`hFf#TKW)S0;=w?$iA(eS;!+MgfO3x2ocOLDq*?_O)JO{~b`
z$f*v;9v@atPR_vRBlh{_kLgX9h3$qEvy2<W;SzEfV)`uko`r=a52xhI_Eh+8%N^6O
zC~OLL@AX&Vu^qTP+F95pbx`mCHH_>E5!K-iXsrw3EpmC6>!rDjtAly9%^X<u{=`Vh
zAK~IP!gHE#Q`KiEU5LB2LQ~#!ye7=~9VvvPVrD+Z%d50?|LI1Koc73|Q-%Simpm5R
zx(dvj(rgFif4NE$=?YvWu2wzM=vqgG{m&m?4>h$#OYh}1rF>dg%xczdXfcf72&pz`
za;X#Bt2W2Pz-Rd)__P^aX6I?MR^kK5&z?Sg)mI&YM5@Xl<KwT4D$!}GFP8a_$=qB!
zZcH4?)@-v7_3Rt_hA%Vwd$X?$yz-rHRFGT8A&50vULN<@7Ox#r9mDAUvxM#SP;C`g
zaS|+3<KxGV=c;02VumtmMc9Z~%<?;PGI?*~RQ6|+n9BsHLY;l+c<a4r*fOt`{zHW6
z&3ic;Cwr^>0|R3dloE$RZECJm1#ryti>|6QYdM6G$(3_vWO%;4+K%VuIvgUfU&Qe-
z?#Q!~g5M4~ZPpmCaJ0j!f<6ImcGKp~7gBPNIuPCzcN+_Ts`F?MNBwy5YRXVkVj@mK
z-dNtSElfDxyd&>gSzDH=%4l1T9FiQ0ijG@!mTB|Q=a(0_AO6XDV{_K(c|Ww<{>QW5
z{9*No$n1%)|FO*X?hWEnB_$vHw3}&Csc=^K{o<QaxBmN?<W6tyBb0N$pF~CVu42Rg
znne4Lwf>Lg`)p6N^6h`ykSWalHFa$J8%@q?q`7B09bcI=r<j>#q!Q6um)=~HPpeZf
zHXmn5$v$7}OuOZUqzlKNhFBD-;a9v3M~>aaL?2nPq=^q5MPY&tv;3m<_WMs6c*EQo
z9J_BxzFT{<p&qu8w9*|e?4nCg{Z27xaSAC?K!-UI!1b{`d{mc@`*r(7>Qy{8u6%Yp
z4{_fX2jMtUfS{lt1V8_={BaStiL$+wRaH~@1>EA)o)@S+dv=Svne5YR#7XL~ZIB7(
zw~3)Xz;_iFAJ{PHZTG?ItF7bsvnC|fYgQg~kK5tgsd{Qxj<jU-B9nkaC>MB^wofnV
zXDS@4wT2u|>wsbzop1YSeTr7T{M2EyoL3UQCO^7Mtl=Y9=KH0qMctPigC6%TFU|!f
zn3j9*qbx<ZFC35h2{&cHaq9YqCr<(&M(K3dMh9w}l%2f#_GVgOU=*Cg0DReH#1Y%R
zAVXFT4jH6qO-(8~$({_(lB@Hz9+@`%vZ=eQVjI+A+$<*(4Qs=%l?~Ynz^NTU7Drn1
z&z8%H%E{0C{iBHj#A9VX4~ff6Z=lZo8TtY1TppL%8^~ETVExLd15yemrIr`FR;dT4
zL|eI$VPBf+t8O?|EA&bfAC{m~TvT6Qub6LdW;fJGvM658re+YLotzabExEHk*{v^k
zEZeMYVR?s0aD{Q^jn>SM>a{U4A(dvrG`9>r($bmhWSf^&{QP?}z78d(D&wtZdVEDq
zC`oFuCpD?~+-NVdpE=Xq?lN8|F8?{O+TfI&@XWK1RaI<CwOFPkYa~nDU&xd223_|W
zWyhNDZrr6yZ>`Bk-zlh%B#xZcX)_jB)$3(9p#As&zi!!Sw}oj{&t2JWi?eDIt3P{u
zd($5qW!1$$;AL>i9xrg3lB)L2>|pR%vSRu;J=|Q|zZ4o8dXl~h=?<Gx^Ymat>EoG!
zx>uBw+eCg|eVbl4wD)JaS=;H<-d($PRX^Ny^t?LdIoW=sJ=f;L=-fmFqej)9y?X<V
z8AF$bD9IWhCg}7o6}vB=Psl-uXYlpiy>r8Yu0PX^k<7o%6Pf@1RAG+--}vYbCh^ep
z@mSH7pQY;Kj2=tZmW#2;?u$lsLb9*)OYd)`IG?`p<+Ay3{08MD)oW(M2>*KYvWlUy
zi(J|ZQ~L8aPV}wTtQl@fGz^vPkKeSHN_Ic#{KeB2ok?)gn*99yhx{D`!icOBsg<_t
zgjlN6Ryv+Ip5pAqsjk(P=3wmt$JgpP=E>i`Ur#+LCMG6DBJnr9EX!*6TBx8*R5f3!
zGL7oaBX#ZFF4KZ)qAa**Ao7teEvcmu_TJw0s?Ow<!VXiRO_U<PObuDt$J$Q4G^BcL
zu68yR+XJK7&8|TwuH9ya=SYl;lSC}kahvg9S!gc)M=Ki-Bx~eQko;co;^;ge?5sH2
zn$?i5Uu8Sr8@R~+6t#&#b?~}E*X8Us^QSoaz6`>Z!ZDUYSV3!nFz1EASf-TCRI<@T
z+*VUlYefxNG~c)1Zm^z(a_FzK(eF6u4ySpnx@X;JsUK!GM_o+>32SR>)Y<rch7W+H
z8zI}u8%jvjrL`I{`;vA}{v(SJf(C~_%EI>-I|Cksqc%`&Sig<o8TXL^)20Na*PFli
z`m?F1H+U>GL|`$>#P<7h)y^g(mMRXrBkK2B=QifqnG&b&T-7!@o?}sZEwry%vrHv;
zDQ7G5buMdaCLsfoAy1EF)F!}%k)vP?cQcosbL%C2H@CJ<*Y;Sp8~yUSRBE?im@K`h
zyC&RCq6krEqF9fQkEcwY4&k_}ffZ?G&9~|iFYYZ`nyh+~qee#I&vX65b|MQEv>&;w
ztsVY53w_KengS@Ha#*<KmBcn8;j$B69LZ3&Msl9FfTBQARrMGu>Oz;f1dr7f<(4+{
z{OWNIp2&Sqne7HXpF<TDPD#;9#MKf-A+~bex^*y~u(5(E*~F1wu43gUQ)c<2mtM}H
ze?Ra+wZ4^6M3X$-eP`RGo&eRweN2v3A820@ap9<J=o4lw$FKK-&sc;bN~<K?FfmCW
z&=S;M0|6T5bzH?uktn%Bhn}$Ajf^}@ie&OtFc@pkB}cI;CB%vQ&~ZPG8FBylbv;QQ
z`NgyFaE2Zu)+4QPuDNYF$TF@hA4+-i=1X4x7-}23`jc2KlVRTgg*q<PH<mAzJWy#8
zJ5(KXN+MAul~NNX*!1Guotss@bi9?p+OKu*1@oHr@roipM>GLs(a7H)x@&eosdi3`
zr;CZmgu9&Zm!bOTM>wOzRUbQgRKjI;qz(?N@r{*UYC7)m^9MgB7XOhuBO^DOlGGZ4
zb#lzLd>BQwNhA^-;+>b5*EGDxaHq>SN6zyo@^~!Lv-u=8)Sg5k?#bvLhnpP;bLjMA
zc3WMZTWITA={s}Z>&0P)SSsD&z7PuvP@hy7t8s6of8I!Xl`j2GDn+_2{_L+<qyvoL
zdB{=%eaNn+oObqCmF?9@${)*1Y+St~%-_`f)as0Rd)&(lo(b1V?^D*C2N*^_{gR_-
zsI|x~KiqYa#B0{7Xl!gO!d22iJc61?%c_i~^23MAsKA?$gAt`La^dH-cF8)$o$Af2
zD|4cxdepbtLx1hpcY2|&_N@iEB?|uQIc;~s54fS&RCXP!(v`Cx`NB<DD3Amqp(|iW
zx2_eQGb*{g?%MMCFq})^V~T~&GxG3){$z3_fqkuxuP%!g&QLT&xY#(VToCYto$-ct
zh_Y;mk3^O6U<Z>e3Xvyz!dBnziYyE;b+}GdCuroPAb8n+y|>ro^NVx(dA#Q{>EUcD
zd>I3o?Z(>qzbybki6zh|BqJ0x!?5UQ&vrMZXlWozY~IXO@M2_S<R(+5H@A9`Yc8=c
zh?%m6p;q@#o;=x@t}iV-`$dlci@JJ?;eAN*h$6{(d$_cdT*h)G;FkoZKAp0w;>fwX
z)Y$v&o37j9Xb#<pt2a6G1`bC@N5{J_FATNiSV%6Wz}uy_jZ!|8ynA=v?dMm|p~m>9
zCr_Qy&uPm7WGCOdhDD53YX7=NO|-AD=Y!aLB+MPr(ww;$afAre563CRW2uJ`DZR#9
zyJup|W=td}C#PTmy9DBxhM_hF3e!MXLTtD*YgBA<ep?PUL8RX^&sT01ep_91rNgpx
z>opDyzh@G~-Pgym3t?A^r~|cJMzbgz+K^w1cBhw>l@Y}ib3Cw#Xmb8U3L+g*6DAjT
zv<(@rEX`B6PwKwkkor9(7Ijifzpc~z-PE<7i)I~pypeg|&PBNeA|pa+l4#rzLs>=P
zqMon{zb?1nbBOF-6F*|QUY=sJ?s&FayX0I~e5XU5dE(`Zt=mv~28+1m5l|uG260k|
zjX?Dh|JRy-j8L)aJ8w5Sh()K&)xNRniBvyB6*?Pf%hlB&JKkBC98%?hi@Xwl>Wj~e
zFk@(%X*1_3^LD=CZHaN}SqTU`I!h_T-}8_`DJDFIlTjn^P^alSi8UeznfUozToH4k
zDKiMKcc*XqU^Df+xv4!%7b1#7rX_aza+hCvexihxfLInf7#}`-C{7-1%}T8G4BowG
z&;3j@6-}#q{5UXO%U@6Hm2Y_pua#NU-rg?%`u;*^OQB0n5U*)KS6)LyLpAWmJLLj4
zeV<;uwjZW&Bzdl0Y(r>FQtfn`>p0omV=GYo<j{rlt<6*YwR36}sC;Bl_1xwZHKioU
zS2>Gh8la9oA}ZR|j@@)0elF}{|8{g97j_BI&)?;BD7uTcz5U_(r4i{)HIlVUaHCR9
zR(O?sZ}H-oV6m0b-P4;`D6jP@?oVse3On1rUEcm!vbCI6Z)GZCl{UYF!LkK4dhPgv
za9guV+r2zrw_Ko}KFke-C+!u|+c5hi<7#EkA=BPEt{=8Py3a+-<TJ_!0wZwqUHE1z
zklc%0e*er*Z|=V2oX&L0Yj{6vHHm{6hPBz0V%;(?`6&e5kr^#o$>tQT<a8WZuAJxZ
zUb`*YC#G2Sl+UxDa-KGN8X9_o{PbxxnML}rx=z$KwMWx@KAGd+=DRD-rUFN6?_XdV
z?GLRi$}YAOw@%qUEMm^QIIcLJZ<M9PhiBXFpBwAgpUE{az8IObP0eO;u6Wgqd0&1<
zO(})ypqJ#2fLr|}d0pMe<HwFYkShGjJP3q)&-7-bS1ltQ`OW=#Lc`AA9v*e&9Cu2`
z-Z*$RTKQeag7#&lOacKVtOBJ{1A=biCuGS5eS2wWf^2Gqn<Y>3nl%1!vEFOqDN8nP
zN!NdSRL3Qp*0XiqZgYR(Dc7GrUd%KnC{^(tpe}yxeB{HO!W85w&+R%<Md+1HOx218
z<}x_^&H4<hlP|>~YFHEcBye@6Sx1_q*m=gpbVY*E?YiBI<-!ET_-|+GdRmT@XfsJX
zo>uehUmTq8k2r%8J~}`~RyMnHJiK>qq@^dL#;acZ<$D36&o7?n`IPS}W-<#Q{KWTO
z0)&d-cFZ0}q?E4S7TvKF4^-3d`ajeMXwx*sWPb#x6u)gijc1%(I(63#A&0UG*nE2$
zbuHsY*U<{eGJ%rC=>|EC;aa5iyu~Q!#mTQ*Zk#I)6w1*@z1)kGINW87KQRS4;R5^A
z!f>kRa_4O9VHU@#dWVP1=V*O?xrIe_!>ImEug7`<>{iQkyTlTc&&&J}&-397tl|NF
z7S&tDRI*sQO;ojNagluu)m`7U7W*9C<Hc-tU*aPP#D8C_|L*R_J|y?$z1BhSvl*`Q
z*28OYPT^~7?ZPxwoSpN6gq+g(t-njg%T~au3M#1?McNPWS-u6&&|}H>i8yPpndEu<
z{EqM6zyH*<KnU|@CU&@ZbUS;={$xk607*J2`*}^S1D{BCLNS&Wpp#|d-=(^F^JW=j
zT%U+jhkRbf-Mz>vSChCHAWtE{;)6|7a?2A;YeM-&hKcCed>W-l>2*UxjTxG~dqd!?
zg8*%Gw%fOv?O<_?CSTc4RD(%#k4wLvKq_;(Kg=OqsjtnVcxK-)3N-`&c;)2aARc3K
zOTI&@72g5kqn4IjGjz)~H59qIB(@)oaQ&9EwW`4^r^BFZd*#4R9grwJO+l;Jg6dmq
z)?c!+dfjBdp8CKE9gpR#L1a9~Sy?C5-LYxfW?cYNG5}gVefm@nP^XnZ7_qhnb&+Cy
z$l|!?=jWq!pYvHos%$wOQVkHSa-=P%7VD^>sd*zkBSYquxKENbmXB4b_FLJb<auNk
zr@&ZngAK^eW;uGa;!}iZ7mv~Bw~{OmS#>778AUryLw2GHgA2Y<wkxh6b)F{P=XRNi
zH#dqsUW>w+fR8mbrzLzDvRYH);y!>t>)1js(3sFuC&4(QCJ}eoY=3RkRb<%vgq<^6
zP%#|m<UB1K+dy0w-CwL98&h?<`X9y`E-oxg9DQa#Rd&jl?#45>KNen%#mloBrX$5z
zbQMMS=>V%0XWf@f^8rC_aK_ycq*FDZuEVlId1WU{LPA1Jkt29BPr;{j819=pHjBuz
zHo11nlg2~E;38AZRj)^ns&RS?$d|zWOlgP&Z|qDzmb%u0*==uaZQW(^Ox;lb`^Z%K
zYMXmr^%YwUf7yIS@_Et^aXrFunO4K!2dN=3;dftpLt_JTYI&{a2@AIV%&1fK&PH&J
zkK}r)yPh}(AQ;OR<Ox(fQrY4SDGyNM&!ku^lBV@X7G-`NrcH7Pemj!Fg#<U~xX(w|
zp2VS=9`EX6ottg5SY&TTQh|DTq@`he;Wmrot9`!x1G;k?pZ2rd<SP0Z*~NFE7g0$`
zMT^EV9~+@;8iw87<U;?ozyZikOO8cEt@G@7mxcd+9-}9<C&zXiLDrJPSu$5PXd8^Q
znU2&)&~YvyktM<>Kf958if-_J9{&CvsE3<=lU4WITWOSthzJW7edeHjrwpDM3nFnd
zZMp)+sF;b_V`)Mnu^mQK*oS(lT`^g`Npdpi!R++nc=7s6+uNP`!zfEgr`OWEedY9M
zQd02`R`F{+rkeEi4QN6{Eo{Td<{iduj^S@n<5l%L+|odmkd$7;spXJk0gvX!sY9^`
zw4a>Sc{RuW$E5?LO@od_NJ!l%G^1-RoMtw+gAmbg8XrEnx=nQHbFc@{qnmcZOFv4r
zM+e+NYY@;v#iei|{*fzR%wJ3WaCYx%Of*Ze%=uRfpi<kvVF)zMi;Wy|fTp)Sr}7fN
zRP?>CPkmfx&MZ<$r&e^;^)2HSR{7g!>U((9-2#CWsZL$UO*pK+9I85<^~xz_yO%=U
zA4|E%`Yd}BOUZs8v+06KraeqXa-n?Jl2_wn!v%VW*Wax4f>kUnP1RBY>w)6#&vGs$
z)z8zF^l*vm%qdMLnGSq@={^h`CZkfzrkeM!<{%h!m^WcAB2^cIyM641%Ad8T)@b!3
zoEd7FcVY?SI@G(7MxK`cxZ&ngaEPkI7H|e{rQ4S__80C-vKbw7%|^=CSb(A~QD#j?
zYD2Zn`+<*4Co9`N9u0a~Py@VPe#TK-e9xGE9`3dvYh*p6>*YSPiA$5oTKN=<+%@Z|
zReNQNSnjz@tAMutyVJe2+8|>e$pA25bRV&G>a{2zc4u-rIO&A_^lB6@(cS8~$h?#{
zoWf>9@0aakc=+I#jqP~Ob^jT=E?I{~5oGWpfn28fMEpJ!@g}hM`Rtt5u0NZKRLqb$
zC@G0OqH9OE894XnFJ_WeU%wNWn48P%3pV`(D)*h&sXZID1FQ5q#E<gwHW6;eFc-JT
zmVH)bN3PS6(W7$Vnw;G8<dBeI8;>tHPM<;v^hBgs?>K>&EpUEi-telW_Mw=LU~vDY
zm#pI==5dQ$dlor0Z?#rF?_QoaGSdS+-&7kSU}w^D=Gfn3qi=d13+kr3Q^k4jyq6Xo
z6{Xss?-Xpt0}DIay(G<5*chyxYpwq_9d%7cmy^rfSXK<;#>&l^>({TxfsrFe;ry?4
z4R%rUmk_$Mew#960xYCjk;No{MetfYNKjdh+_!%KpT<a3tAqxD$hkQ<s)sig6SQv>
zIkqD&V$Zl~$o(z*BJbY4`-GyVJZ3f%t6vpBj_UGQEo>~n|2s@75Jm`c7S$w$$l1Z|
zQ|xn0n`_i(!4F?)_v&_Eo@q`Cgki|UuV$IGDFgg}iMKz~1<P7kSsb51Cbu>z5x_&K
z=e9uREQ>B}hYmZHFB6h1<NM}{20#oGQifvvxzRR5ndW$fieP&numEhCNnm;#_8Erm
zuq<X_Vfi>{D<vP_bA*da4k7Icv)yQ`64G+9w?BoebnKdxw5M3*QDV(}e?zeT5)4ik
z;eE0Isz?bpEf&soK4nHZ?xf!uBiR=7;>BC9YruL<KsLUeL^78aBe&8%bwfv|LNac&
zugZ@}B55!)Gczq9S+X)i=LzasfQM3KB#?bmf{{}Gta<PrEF|30wuPu!Y?@-1`(iSI
z)DU#EzlwI9&za6Rs2LJJMT$ML?R4rNM2hwB8|5O<PWjc9WnP0%w9zp!fV-7UK#|p^
zhmYESd;jo-9oQ;U0e=2mP2EkN&@{lVV^N_QBYN*>-fMAqF#qnWf(8E91EvzgnuoL(
z-n{<eaP(1BvTX0^n5ZbD$?qS@QQC#hgAkK6@3$y;iM)j1NUl{V?Look|Gk524b{c_
zL~3<popP!+{Zm@v+}@l5K593X+b>1VHt(QIyMYRRsb=bu?mcpxr9)aY`Dwioo3G=}
zojXxcF*+@eL)vjU%cSYN*B}9QC#z@iSazRvLm5Uu5TF_f9xu>vefw0@6*3VyWb$`C
z?ETpBauR1uiJY`H;%M!zqn@QNp`(byW;oN((8MF2_1k;4`q7^<xD<aqsGqHoky=Pj
zIYusmQ^C6I{M%-*N77At87&0kH_=m(2<1*NG86&ZffraJq8xV~&1!Z%Vw-)VMb~VK
zz`vj9&g$cMP^MAY{2ic$M2>fKo<B>!YR|A+zjf~Iu`{)9IvEBssdmJ{4|f0VCvm%c
zT&)Q9{L7w5xAg25zdhn2#0`Y$A`5RMz!G`^+YiHzb3)}BStc|!F{+2nLI4$+IwRDb
zt8zJ_4$B?pt<7)?;Wbq@X}R3W(F&kxcRlwqf!_8{hLi3iRy?5$I%$T6MjfklFZmR7
zDtQpOUx!65R8*2=_r=jO$fr4@@=l#PWry1u@{?ew^WJyLcIl^;S!Y4Zu<%r1@lx6F
z@|7#Q_wF4gkT)nq{KLaj2+*VJC6FpW63~Vmdk!nrXuxi<20nNF_~AoZXE889fW`z4
z(CIwP0XrN5-jz35$(DshOdImKC+Vvo=QpkO?uz#B;AEAuUCymtbwp6kFS{wevm7R7
zjJzjraV$T}x>t&bl*G&ZL0Z7w`p|N}GhO|QidAH1fqplCy)gob{=&M`@-LVEW*AES
z4ot7!lKtglM`5M&KK<YZW)>Ea7H%=lB|SYd2vyQXK~A}FrsPVOY4fPz2h;D5H`;}U
zvQPQ*Z6-i@if!7Jn36A}_A}#MI`EA71PX)_)cEbqzgm&3+^42bz`-(Jm>$%way+tA
zSg!nCZxFi)G)!;PQFR9@k`*sWNlmIrypd&a>Qf8sA7Jzls)}$WEB?wW$UG*E$B?^U
zAb|J^Wy)HMD6<UvQFYTiWGv^ZR*AT43&gvy&ndeqVr4p3zUm*-oU;ikspc}CQ?IT@
zb!h-$q}ax(>~$QQJ5|G1YO3utySbeymxVA=caNpKg`vb`>u~@(K@|TdPhJ3ylf!S1
zv$P@qf$fQ9@3^9T`SJ_!`~#>KRUmc9#0C6<r33RJona>JKV!Z{pb~doO_}~!agj%F
z6EiSR6ovx8hG*Wc*=E#J?n5cK$|THo+h~?cPHa_@wb)&jeWBGaob9~^<C%a(PC7Fh
zFC&W{vAtSR1o=vs1deaf!VsJA&+a>{$BungkQ0s;up1)OOjopGLly;RzB9J{MWwIu
zI^D|ZFgJHy-tPKA+aVaPa4+{rYZhC#E0AaojciHz&(bz)K2}zy$K;r`?a3_Yf9UR{
zX|BOAL8L9pv7g+?D}X_XJ^5?cK3CKEN6C5?fA0hHz?=yY6M>w|#ws9>r3;%x$-9_b
zG4<XGQRZCE@c<zS?&Tk)+Yb4BvMN4bsJMJ<J;Mf7xwxaJ$Ev(QozXSb=wW-BAX@OD
z7gQ!n3Qmt<1R6M|B<t{;2R{l%_%#Vuk~umy)`i8-l|XNp<8AtDv{xM}bTeAM+X|Gn
zS{(I#qn2sp7e&_N{_=peb`ta{oB!oxNweMT6wnU?;~uN|QRLc(09s54(q}-cwx=WP
zVnC()qx+I=2K_Z*l+6CoHLl#{1EBq%Dq0I}m^&tM#$iz#__+v|(zZtP5=Zx#i_XS&
zd_&Et7BVhJ8rDp-A04~+QUf`u{aE{;f6}(;HP8DWu0pR-DB@fB4cusUOvm^wuY*9X
z;dkrb-P^2`tj<gLitp}^1vie_3KVkE&z0FQE-YMQQs=(+>fD`whU#7+=J#+m*7a}b
zh#%+=O)7vLgtEQYV?48GQPxXaqs)50+366v(>LNcwepMr#a4d&_}YBb4r!H(R{XB5
zs0S$n-;CPd{X=#6Hp0hN2B9y(Mc{9q1qM1uHG52Qtdq?)sHQU&Ap2Q`zk1z1XEPlO
zc^s0iCyLgQIt;IzUeU{eXR_1DK`CVf<bz^V3j$+Z!L}w)k#=xvq<SdWY=Ml%<B|d0
zD+0S|mb{0Y<X)zXMZtvl=PP2bzX$D}uoJxF^=>Ns1u`U?Tpv0po*Icfc6rq4cu2od
z&*ibX0bju@9Z;a$Z1Y2X>vORH*<L}P)8ixFnH=pTU)<wer4{I<Y~r1MRiQ&GpR!tR
zwC33*{<DSl1)$^0hT%>zWHLEvCQp-7cwyibSxWXj;28NBGp|fDp<S;_#LHzvPFG85
zFXWBh&v#qySaa%f{<@y|AZu2S?#TjMCq(l@9Sgm{dUImjIuas<7S@#%^)CT4*wH1}
ze9DRT<HSB0i1Jim)LG^o0#K6@F7@2g)Nmn>FZ1A+mIA7(tFuzR8xvVd4`2QBcS@?N
zMlumzi6*QeS1X*^7x;Udnje4Hd>J`wwPv(fb>_;eCgqoWN^Q@f!T>*@?%@F%{Yr9I
zheY6Q9jA3v8|XK7p8Vx}JgX1zTVHI}w2}D`=wuFED`-rsi^Ghf?gh=!&f%zTn~FU=
zhR3gNi`l>|EZjl&lFy=3h(k5)twjrg%?Y&7p1688sM#su8_b&^H0oYS=x4M*6{?9t
zHJq4QBoAT;Cyrq3i^E8@YrPjcEs91u3pEHROHdTqWKO&FBWC0I$zD1^`=qY)*8#!7
zCO-0npn%spHFDy>U%N~WPhKau8JPc?$4^d{8vz5NbP;>QJ6e<)#!L_s`d%*~Gp6I+
z!S2)-bU<+aklt9`efSO}ux_7cU}8!jYW3n*_oAj@x{wMY<;9F+z}(D_<X;trooHhm
zo)pbl>tG|gmbe<S6vKHHWxs5hr$=Ox24O`D9CN6Q5}-sRtU!*TWu&EuAR4n=)9g3L
zAorjw*9bq|+RK3qd%?UN*hI6{NEL{vr18<lM#YFZy2tj#FOUMGtR^d-e8=^yZVuqS
z@;k%#4|W_%Zey(N<;ovPe=y{ApP&aI25tlZ6a%cBu!!ifz4V^|4qC{FPQ2fxJ=Zcb
z4Y*ysVa#u_mqvjP$xbBT5NXzV_D!b+7+LBY8j_7`-;=ps5A;7%(GesAfM~4P3eYXV
zmo7PblUQc96-X!bw5#Xd-p%jd=2GXrJ-A;<9CEe?CLL6k>Zgun2)oPzCN^i@M>+x@
zFErDrV1NthLxQ19)J7Q&<JzZe`YtuV!!msoTKU-%J=6y9LP^Em-adYwO*tv8Px>T4
zHdmA&M<5WO)g!PdK!-lY(03@s5X6PvT#_kpkiT+lCcc$v54-jFocV;j+xr*jngNYO
zL%xHBsXG840(h^@12baE90Xa(f>uQ7*R-MF6W7k?mQ9uKw@}q5_|;S=`0uPff*KX+
zVP|L0tZa<CQp&FR=5y;f!pH$3$Ik^oy^p|{*|g_YCZ{3GboL*FFi)-6y%5M)`VeT>
z=W1Zq2b)uM;sxG0jjwI%!lm+(KS8oJYE#so#~cK1@5>En7I(v%^a&6M*Zc|i{wJiw
zM%r#OO*e<VvysN!D=1tcATY_3$h=M>7M~(i)&yo%POEVF@>K#u0|}foLn!}D=dtfj
zSq(TfChn`t4j>79xLM5bCy^=ad<fDlwZ&FAijbsUl_b?2CpzK!8YDrER;zoq0og4S
zi3RD=n<WfD>;Q68;<nqZt2o5T^9Y`6%6o?0_QWmW^-|TTzv35UsBLUDp`i!#E`5CM
z^!>w*Q>YqkPyqx(zN6j?7ri^vXX#<48ALYSGg@#XI?oFVgiKoyXo6AKe>SB@q-CY?
zG|b0paCf`vjPCJ*3<TIX=!i|KoIn88o9}EBQH`;4QqQ%HZk`35{s983CZOW@P^;I(
z%>k(l0o|O~j_VoDse$aEJ>nesQ{0tT=Q}waTox9VOgr+joKOvZLZGXLcJg1`^*MRY
z8sS7O`$iDK)Tp#25!td`G3qkP$&fP^)ck$K8YkPEeSUF^-}R?u(6BR@xn$a5MA`s$
zHQmuE;1SOeX`E&l+bf)%%6V>lIdKY_p9~0bo}${HnTO860`-sywpEE>E6Pp-TaK{v
z0e8=Q^k@jg7a7p7oUBk(CWIeN4j<vJhX&hoGx#Ase47{9^a~eI@83id@4LTd<xyGD
zBLj_f!?hBo`#ZY00=4Xef*@m>hi^$5|J#9a&WkN2jWU4>Yu$}ImW4mRJ)$gr>DarD
z>f+<I7I&dfF+_D=P-Jw$Ni4XV{^WJZ&vw8gGC+kzSa~*BahE@bo!l!h0}ML>fz!@{
zx(9~HgD6W7SuSW+K)HY2Uk!9;?MY;N9-n90M(tCVdlN4hdUL}iZ*dCI4eI7Ce-7!)
z!KArGRE=v=PPIZdKW=y6jhy|OLf{BvN}m1Os7kaUWH11Y8~x4lsPvseBroGOf+EY)
z3W=Xkn5{9NLiKCJ9JJs3O-VoT>G!j0VMmt}9wWC^o9g)Z?yOLiOSq$B!Z9M3vM8EA
zV&skN>J%YWn3;ouU}vV!-!MK|+3tUwai&y6hJW1XT3T94Yvb5Wz!OTIf-k>5GW;ef
zFIiy+7x9aJ69DOSfMQjbpv1<uZ$K_{VI64U?7q>iV$tujpK5Bd1NK8v(_CPwN4^ed
zXzyfR6<bLg>hrX@Wten#MhcYokb;Cg$#w&S8_OJnxZtmz)9<_KXfbE*_niu=sskA*
zXrbs}B?7|zt}i>h`mE@xi=+W(NoBoq>5vnexEMcKH}D^zU*01H%X=TW?S<?84d^ZX
z#r-7_5W=CE`FCGemZlx3|Digz-@I=7OCmAqDsmfw++UJVEX{n;^Bn}{=VerQ;r^C7
zIIJ-TccK;m#TM7G-W=6FWzE_purWwbd~HEbOX!F7($oU0XoPDfvB(87BAC|pN<2Pb
ztku^J=0EjlTs{tHWq%=UhrEJ97U-tbs`JbH1Z?ACWW$E04vEuL6Vx;ci+IGJ*VJW4
zYhC32aX#kPKm1+#J(exDg29D-Adk?=LOh^t7-pv&??gy4x1MR=o=H6y9dy*D>&Qzi
z9a6YyLca$t)K76zdq#ic%WI0h+bxt=k|@Jeu;a_+3aQ${snSQ5tpY6?<NUg$AF>fd
zc^1Sf3&T3ALpduD#To(q&<^AgUw9IYyc$F&A=Y}U4@FNjs_x>PlU6y>XuojPcBZQo
zq3(lHEt_GaZ~kW9)${x*^wbh>r7xohFzfi|&~q503F6H;M&`Xf?j=wQCfB|u+AxGw
zk3I*BuQpfc3KWAWPi{EvS}Bit`<s(oI@;%3##gch0fQAUO-g_EWF;v6ywU77S<<DV
zpZUU#AYfu3+j!<ot1Cw1)5Ako?#noS=CsZt%bw*>qq!_5VU;*Zw|2`}9rjr*o;KFq
ze&#(8-@oG4D_=WW1qetQzI0Q3?cM~URNuC#0Br0lWiG0-x@#?V6HvpYP`)|>fyM=W
zf#=ze*o^GLfI!g+zH&}pRIl>%CL6qy0T2knY|9NYf~q+4KMhY_^LV$c-)aUJ+~7;v
zwHRd6#NVc;Z3z;I2%mRtopdwBe+2L{0GqN?TgKY1p{$~$+Xs<y6#0tBSXH19!C;|J
zA{c8Gg4gQhw8=o?NI2@Gs(yo-(0#VHcL*6-5CEB6!16N6$^o#;BW!F{1dmN@ngQe$
z(E<ETOpYDk)~cb*L{E_0r`-N<(^2dm-E)A@!Gz|3T_gKbfAmamFY=9RJ|>pMglCDE
zf%K!%n_iG&JJk3QiFg^|f^ql3fGC53x;@Kl><T1kIO2DlBwAcO{N*J?&1&@Jd<x~a
zS$gaWiDSIqb)pw2&Aqm2VlRjK?z9mQL!WlZ30*@br;qf>2RcT=8v$EAExPpM!rM^@
z03Z5Y9|MZ`qHRRY9XP|es`5Oa^ADRqD-AZph7i;r011UcXFD5|Od<R>eX0>#Uv`=w
zJfLs3KL?jb_~sy#(!^y!Qcm!%Mld*<=`Xf9sm1mi4H?%@q98#~C$t7#Cy)AW*)qdR
z$Owi-Z3mw0J7XR?*jboQ^s109UE;x3pMqtaScM{wAg3!cwe&~#7A()UDKFtg8(j*=
zixyLA=UmXtFh3X@@rht~o#)2Pptvwbh&KQgCxZmt80#_Elo&|xPH*cPS3(nZ6ud0B
zJ;O+(Ht4OoW}XXz7X>B}|A^NTRBwdJiD!nFpdvHCQ8GXd8-wE-gBzp_yx+|E<}JZA
z5riLD_A^GBG-hDMfR!(D0=(vhBjbifY9g=WUTWe{`{BVqu5z6ot2kpbNBgov!kiXQ
zD{JG9g1Rr_dQ#?pO?^BX@ti@}`8nifM6%ETkrt5~B4hEk9xV372MH)&7`(8C>U`kU
zOZ=<XAIGU7;h1^xv?JfaMVLfGb<@!fvZdi`rW)BdCY(PUfF9ff5EvoMg|QHLInihE
zntCG@D~)*_^xV2b=(0;Qe>e#kwSte1ifX$VA%4e`6=P-Tfjsk4zEYiyzCbitzHf)8
zxQ@yPsRO-;D<A$sb@Lc1>F3OYga8c9Mpisjm*<}l&6(UPu#n+fXZ=JT?53hpJOB`a
zQXegi-DD$F&9AA~Q?as)mF$;zv;N=SMRdIV*RIa8|DZ7c4-fxuX!iV{(xCrOJel;G
z`e5hx-rkR2E#C`x$9(__fOZOR?#k+FA3HvOgiR%867~+|6Lf@=l9G~_4GdzKK@JST
zTW~*)o0PnCNfCl7W<u)-)Pi^@t>uQ4oLnF?{{f;o?mb^*CDZZaBybw!C{!~vd-jwQ
z5ApM>A*~@tL0bSgx(pAMn&%Lt2U+p*<;%tk{xs*Lq`W|gG9MQe)q#$R`|&Y>8or(_
z=nHu-u!V~1@-4satxv0Z6L`YJ(02h^MJh{%<{mh%7~{49oZ8IRfH^bUmK&!N&BA1l
zn(ZeV)s))=4p6tA_7W1^#Vlg+3IxkX6AisB_#?2qOf!DqxGy7MlCsk6k$={a>VH{F
z@BhTc{lCyz?7w@MDiV}30j9y#1VLr~3Zhn4>{WlL&10x=V@*>FmF@F|DcAmO;cZk5
zUONuq0<Xu)lKg6IO^vd>efAOA&^UBATtMaJb<Xxrf5vt<|05+D!1{^)FyM~4P_f4&
zh35~Gh1axj9!}25L@yU;*-Pjry?p-s`J~c+58eZ%V3!}AXj~y=qi{n<|1<=#u*5@x
zNyn{w7w*&!LMft2it_T`i&MnKSscWc5;A<|<6K-^<%D-3zRuc)f_C&Qz2?)t+z_#{
zyT|DF<5UL)SgVB{-MGt*z!K5H>q7)=UNmn2P^CiP-=@U}UcWnC>IkTG>%Nm0%W0tt
zCds2nw?ht{fM(o7!dFLMdNRnP?yhwL;}*z?w#&Hk18guWN@nTT2iKVWee=zHxZS&?
zkL_>Gc6~Fh!AYDf+1OL%JCqnQ&E{dT&#DccUThN&F>DhElTDPn_n|Jkx56OfIQQ%C
zf0tD@X2Uv#nBgDSDjt{k5$<~1q5JJ$M6(ryy#DAe%UeQaymaKTdEVfW)b~dESN7$^
zAI6z|VOB*F%1PE6g_7sCs^`}-Nmehr?dO<zh2$QpW$Dq2U&MMQe_s>%D4RnRMXr?O
z;XI?ZNrj-+Y_d-Utg`n-J&WUhpp~c<<mE|`fMyDvA++U1=M#r^fhu}AQh36IsV0tF
zw6j@{cI_HI@lCe;#nEThT7jybzs&mVJ^8_%1>rYNhXBDB9Yl<z5Z#neqnaYB<;}L5
zuHl?R+50mr@Y%B{BxVwVjnCttodOF64LTuLRrOSe4+ZE%mU5pMxb^s7Ex>g?`w>;|
zSMfr)2?CoX5t{(<y6%B1`;^Gi;&NH2q<hQ0_FKrylZjqB5-U5qqPDiSH&cQT{0o$$
zEF?r%0W{bW4?%|e%+K!-3BTXnw276Xw0?peRJHSwi_nN8mC`$KrPmL{51=Lz(Y)y8
z#k!Dn{3Uc=&Pf+wRy3N?vOn_Rr3Sb><{tqkh(`bBdYK;-kgekdP%o)eK6ccH;#KTo
zTfny3#TykNYxUlTO}{hr_Ip_BHs)k(CRA*}cDOb>%IwvnIkWkfW>vn1Z2(4F(U2B;
zS~eu4sjg(rZv(#ELKwE5x1CNW5D~urVDO4wYsUeW@aR|W9z|o`u(k#odjPq7CKTwv
zKaPVMM7jFtTGXGTuwB^y8$$t*Jfv_9nZ^xE0bs8_gD6S@HLF0o@6XeoMM(K|SEIQe
z8hi-VL<gZ`rXWv6Lv<>$<RNs?DnPGj2M~evc)a`#&Ofh{Okm!qO%fPR%4p0ml$#l8
zIYoK-=TC2sUpYQj@}~iuDwgU0ZhFAK&#?0P?>C73H=_pr^U42l@WOwt#{d6U<K}8@
zXPAV9Qr9Y@N5{UCqzxM-pOjsVXWw)#d*=?4|AxjFl*4=WUNjQ>esDvh^2K&_6S0K&
zg8^I&R%`D4JxTNZQNZE!rnHZ&_aCrxd`TaFa{c7fpvA>IUEUi>k|%ARex<Ih;J2ae
z>s-to&z+M!=~Qhf!iW?2W%pnICcpou{HT~Lx%cWBxVqP`U;A;E%HO|svBM@$(eg&J
zKCSqVBH-PluV?nSFvJz0M*VoL)CM%4bbHRQoy+kArD4w;?gJX8G@{u^c)op6f1sz~
z=CxYj^YG#Ei6X?hgTXs~DEn3QvQCr>(b3+2`TqTT$-o`{2dLLqWCugi*~ZYOK<&BY
z$N7#>CG0kBuwmG~Yu77~NW{}14%OsTiK==ag=@R}q=}i6Q`XAL%8!$YwXC8-B5!Tg
z^O${uJE^GNvT){+E9tuJ^Lr;84{P0LNqO^a)4uzMin~$)s)^-=#>t}@fkdwDZ$Qb+
zq$x9P$#(#xc{nqqACk~OKeQA(G`Va1{$WUboQ}#~%=2bVR7wm03&%`CPdM5^A6bgk
zm14F9lpo}pRri|OT3<ZEbo#V1GHG%Y)Uml8V;fX<3*$bBo<~x@M+(w=@i&nJR{&RB
zz3Preq&VkVjL)&;UR$7aJve6R3T@5Bo?mO7=ozN-=)SQRmydFoaqvkq$C^iT1?f{*
zV^()|{%p#(ykwCBZ9@u6Ulx|#A9GMqy}5DXBa)wAU;n3A>i>CX^FQzSKMnlLF9+=p
zKW2<nl9=*gZDV6M`JDu9unLk^1%MEEbl2d{U$q6Cq5PE{Kf?KK#DQ$G&in*9o`rq|
z4xJ)RtvuU0G&n(G!gTr2ALpUU#rn5)=?OGLrVve*pkgmWfd>)Y_X)>LG>H=002IZ+
zrwkuMpRj$<`rl94d4>BQ3&<phQ40_?90P`dAaeiOF}TFR!9iybddwtfgr3&+KeEjF
z^J!Oo;x;(4)xXx0Ad!uO1<+4^H}TIKQkiP*`75<+d|RilkB`q)mVaLn7Dsz0=P;ph
zWG3`UUcSDmmdhAK6u9BuBU8*oA`neuH$MYfB7z*&5?4eRsygA_?S=}sO>g-4tk7jA
zZf<VtFF!)}Mzl8!+P2Q-74B|Im?>?eeVm-7tE(&3en#fh?WT)?n|(Qw6qfpvt9r?$
zR%+AwxUvT;H=BDVj<K;x6Vj|WDYL0q(Pa|kO8T53Xi_F7ZK$~g{#|+k=v>%;C$v?r
zY}mMW*Z%#9sv+T1H=jSJ{X5L$+pkXI-<PT!@#TwZk(RPd<lq`ck*oMbnukL-o5$x&
zAvX|knvB923Qj_!QO|<Etqn4i9c+ByjyN4a)^?JsIieDn-|ld=xW=1a^A3%euk-3u
z@yVUT;(5S?s1)TJ|0#$uX2r#Wl~hKP3M9AkgJzh`q&>EMtLQ?VFC;XEN<ll65U>y~
z8+cH-Fb-NrN&)zanqoW&rupKV;DKwj_c5)3gETqsYMtM)Bjp%R@3L!28Nyq_hx?))
zkG9cYR#XId^^S;tUW^*4&1}9EyS{pze-go!@i|<y>TvQwQJr!z_an~_v_0wV@0X@t
zTn_4n2(pW8ncso8-I4Nv?$(?LF1q)1mtc<62^odd!r5T-CrhI<TMTgPac+A<F+lZ-
zW9jJi5|_EU*D=E=*q~7;R$A;}cQ5w*tL55M4MER-gwZRGi8aGBm3pN%47+wI9PZ8{
zvK8xG&1})^`)$>=cedwtm=Egqw~rPH8SF~=$2><Prop}RBj16?SKkg#IF8J}l-suf
z^We^kMUJ^y9Be1ln`j3G2f}yc-*I5u{Uf1!U>LK<a04iyZ#-<V{bR`ogD+NZ-x^~)
zMAW=cx+W7^I*3&dw*LWjwl_sauD6)5%)wxbg;K_qvv2;CBnOAY#I|)p<ylNLoih`{
z-76RhP^slWjH`fh&oqJO&$);@jZ?nIFgV6lq)RODPX&CI=YiMF9Gnu^<&~(aKTo|$
zM?<6cZ_59+_rcA7=kwk0`p+MUHTr*EhXm!Q-&=HXeFG1Z)_KV-r4MX3Qc>OY{=I_R
zPb1YVC@7E&yrO^qS{#x@Kh8B&H=peIz3l7?-E8$9lQm*_-crWlsw!Cng`26;`2YSj
zwB@G$Y`AbT_x@sU+kO5gxq7Hs1T=rWI_-aZinnKCaoMCH#s~DfcHblbYpAf!64Q*(
zR7j-Y#EhMVUM`P#WYwmikE64>WfX|vE?}FOi@O-@eE@?K?fQhY4J~kNA|l#Em%8v=
z`zt8oC1T|ws9hNC1A>B%L%T^d6d3QLx+sN;<d^B5&3ulqQ?xv*0ZuHjF`XDAARWjF
z-f2bY+XQ-nO#xIcU{nVSDK|IQ1kGiZxz}ie(TN9IEe1&BAT*2Axkb<@4Wo-SprYsa
z#7~IRGOw2WP235=Y-2DNFOGHD`}cPXxbi2R3-PU_{STGj`E9>P>acfD%}>AIB^L(~
zJE(buhx#$b3E*^ztB6L6^>IN#4NwA;i_3T=F_x_8=eNz!D5_FR42m`(^-lm(XhMv-
zn)?RnW)ha-pl<~sjWmW-yM)eFBm#X*F_>F0P$M|r2xX@Whvu6TQOi_RCdwa#9UVr#
zz%eH$iIIs3cvWq`W^umABZkBYSbu*2>YTOogcLjE(Bqltas?QRmKUNZDbYtwCXXbb
z5lx1~Xp&FaTT4G<3<_G~4if1A;(UU<88OO$Ew$h<iNL*`XGhc$mH|y;j^Ht{&d4|#
zK0ZB~nCV+pg855KT7OeL+iAV66IVP00Zq=*uPH}2=?Uo*IZANs&8x<AI5iR(xN+ak
zujWdijwQ&`?KZVa#)1tzypZaX>KRvmR>*%fS0mK(-rnBUfgTutfr%rImRq`rfpvfd
zn~9!><dDF?qp*vpC}yxC{%w6gbOC=(V<6(Q`2$3=e8lQfKLK!qluyJ|%<2fy;&%+y
zO7U5T_wK)gxNStZO$;+5gwB{~L(I5AHRlYq0;X*cQzTi(cTusvqy0Uh^X?!TO9&Y<
zxLcHPqw-b5jqyw*;*lkHk08W&=HJ{6CY%)#4HszSlrqb4nKOsZL+4k1z&f78*T6Fa
zk=zh;w`>!R;H3e-@?3kjR^QMNZ7>{f*rAoisF}K@`Kc_ZRy!b-($5xln!N5*sJ)e5
zAoG0>gRcZc+)ys*KdcDk)Jg!eObqiOL{E0@7jSdEJ|!-gL4ZL3#!&i}R6wT?1=yS5
z{H`DyEYMD6dHVgYxA)GEmE=Rs24<jQa{sRrWuF1n1*sk~3#GnEY@!qyvu`4ysx0`#
z@WQ_?$3llx4<1}?&<qn{*h$3fES#zftrl;Ijt*k{2zV-Ww6hV77ITYs3)9BLbcIPr
zp&>BDP=l%H=HuNo$vl|(bFxj?rq7#T&@pFm=>C55W3O+3u_Yu~U>B0WfqopGNk9P(
za<+*OCHU+=GlaRHnMst(TX28`9mW)KMEo(546X;ugC!h>HYobM0acnjjz(&3A06B9
zuN!-tO-a?^ieGZl2S*Z1Ffc^F1dv-EvsNBh(7<ECF=BQpICf0c$k;T8);&Q|J^aM&
z3#S#q=Sz?i8WpnGv7Qa!<6q(k5M;u{#6*ccm<DGwpY*~HKow(*PFEJ^Z!xj4Y=9$(
ziANBSX_!3sLQX18#y||MNQWt?J7&P_NRtUgJ7!|=yh(zZul0@9D?;ZiCo+GL7+ncr
zL}^M^0`y5QFo#qUSt@3uXg%Cshy}rrRAt=!1#?C!R-CxszR0o@s50|l<e^b$fKtF0
zt*v;AVQZ_2g#U#!U}3`7BMFrJKQ3(nM?bd^9??H#6mkc06y!63`Hz9b*ySUSkWM0c
zdFPkip;FJjcvZa}sfskI9)ct(A?-wEj$cDqGNCY&Z!5&p$x%AXLn<r`tLR5zCT$b?
zarU9*nHOj%D7ki&n3X4OlAHhsCMnR>@Ft0&o*2mn-X$h&_Ajcv7vBDgoM)fox{i=&
z9zSv^-Fn6do$CT_3z-DZ22qn1ToIWWvuiFuHbwo<eSKpn=a>oq=%2!IVr3lCgG#NV
zCqSXM-P;vOsItgWu@UZhpU!>(Bm>D~Nx${Wx8IF#oj3y#%9@g|d;S)-TvN2NU`ndT
za87OW(OW%8i;h&8Bzs{%hcuZ8Xk!9k_^3@8f8jB|jOgyiQG01JDgxFlckm+wbwms}
zi11j+#aY=i(gKy?T!7#{l^4rrQ`;*gWn}ynPf`^=F%B-#xGL$n8L9|LGLA*nmb-=8
zsc`Jf>sC2Za57CG;(&do!Y0=;MhH5jFdIXV6rD}<-$pUs9!+2Ce1uWZ{!_YoBDCAP
z$Wd%5Zz9|6U@No~5vp!o6ZY;I=R$Nv#Qpf~a68_Ym5~Hib1aTwjKK`fjHCdgNx+$n
z8ZVXsu}S4DKaE(rSU(>g<G=C#Bi~yZng`#8p0Ut=c=k<F8+1rgW)`&fF%f`?6pXQ(
zQBx(>FC;9kez^PX@2_SD2RNi(7+OzsHhiV1)7)~?O7fgW4O!Z{o=Wpl);bgvCJ-tQ
zbrlx_9fLb2Jmn^fU+ecp218?+wS*odeLx@Dz5+Df>huZR(oP`ao^3uczY&BIGYP6Y
zgAX$pqoP*7ZCB*IZ)l=;!d!?Z9&!|9aP&fsmkD`&P@(Obr<G{vNNPVF$fd(cB1W4;
zXDKVcC`X@>b@M#BIT8!0sRC0?HabEPm<SP10w%nmRF(BF68Oc0-t1U=q;6B}nE|w0
z-kw|2Q>s0HHmDrtL5PoVMfa~6VHIFY;m%T~%_&>si!i`QhRg$jF+rzBoet(Pj)Yeu
zavN~Kft}EGlj@(!iKz80+`7gF@lib3xj=Py_(7R)AvLlsI_cHbP4y8zCCS7*CfIXI
z<0K4i2(ijAi$c{sY2ftMG&lxKTNZ{JlH@T174M_=jg0{!;wBJDD9>3)#q-q`f6|n<
zL)O1mH_jgQyWe!_U5&kj2X@EwM-!;2k#ZP4-1td0l#iH4ySDTbG660=?$&#MkE*bA
z``4_GCN7Z~-c|-bsDPvcZ+B-H!$nxnoKf+>T#l+6ufW$4{cKTF!U6r&Au5p<0^3HF
z@l=A&M$6|j4e6`T@1wm+CQLwyJe?7-ob<^q1ZzVKmaCuFTY^%!YJ9GWM`pA=R{;rt
zfAg>sB2h}=ta_DcvNtlI1i1(igo(V~0F6u>zMz=n$e6)+4x^qnRvle)R?I}LqZ`iq
zPQ*X(t;EPIVqO=~6?f--mqV9Z9#lm<7!QMDSRDowgNDc$G=bFo*VXwg=|_{6{;W6$
zJ9{Gr3u3xM)T8W%TpL5^r(AkDiLq`h$D=;~NcC7wM2;E-3LP>eV`7v{?r<k$FeRN?
zWx^1h6NwyVIu{S1kCe+{@zGY&_5tHXiiQP=4Ea>t&!0c7n;{{?tmoEfjMrN4`R-T>
zh{O_Zx8#(pbdjIkYoPnN0@2SEOjwa(hw^_IQvyT_p-=05Y_WyvYueJ$Ds<l6nafB|
zzg=isg;Cz8WP(nLp%%qyX~cxjB+m83zTY$n#4sZ$<Jf*Dn$ZDZoV5@e8&Ms`6XSxA
z94lP9<PEeOvPxb^i7_Tw9t`y{2X~x>8loF(2xI3SPB^nwo!CNf_Gm0_Bql|{pQ%72
zfVqQGQd05=kKrCGPPh#j3<x-0$CT~3A5(D_kXiDeXOx&=1cV0@YKU<_Xp121m&hyI
z1#mK7AsVb(WgJk`41e>655tVb(bn<WJb&~wF}oCza^Jpv2wnk*0?G!yhHNIuNf1;K
zE*~F34BLd+V}6pL%<~iH5dOAO=U#C=%tw{xbuBo?SpN>;JFwO)gG*cyZ$E`|2D0(B
z#deJcUZW+~Y}?NGvy2BB6rql;v}SksFYLW%RFqqkEm~&9z%geqASx&*3P|>dsX#yx
zC{lqaC>bSZIC_j2i=^a?WJQ8x<3T`zWGDd<3oH=HAo<N*YWMB#+wb<fW4w3A8}~B&
zAy8F(-~RSqVXnF6f`?wFZ}9XPocPZo0D3(SqX@9<;f5C-1MDwF-b<7DossQ-+Lf)B
zLPHjE_u`T8y?Sf-+v>xQ`x{8Lhn*71xi;ON6N9{fv}iEOJXStQywvc=x}WhV6~gC#
zKJqxB-+9~Sf}ynNj!L6?#`MVP=%YJXDHp%WSx@x!1qklA^)SVK)4t7nD~;5&!0LE1
z?-QOYfVC~U4@777G<3h{84*OqK_d39+53Nlx6+lP-<Ld>zqvQr`nvq%_^S(7$3rqA
z044;FKvuDFmnHlq(P9{cHUu3;B_r2OEfoAT<F~g~qNVb}Bc5j0tG~GbFC{2{zwYND
z-PCTq?tS`<w=F&^%6+^%oYNr%o>0O;E5eR`w5y{-<La*vw_z=<kNyh4Ezkye3LE0$
z%)RxmVN}8S<;v1cR(&l_@m#r!+j04_WyP+!KNf`{xqCVO_DTzEix&OoTmaEmAkm;@
zuMxsTq!-qNiH%q>H90Pd=kw2{yxBxWOE|ap@-PH+f)18<+nW_Jw!K`?rw6fbuO;Ue
zP{LCuG7lj#x-#O$ZBzkg^=b0+>lr|zCQdFY_*tJ9t3`tlB<6MDPty{W5O5<dBQ<=I
zni_S#l5{W7C+ZSFLBavKt-Tih<A-At`dT@F8k*o0-H$6!hK-ye8qrhmX%Y#?yq?v(
zyv8s(FUJXkzqto&n;I6!?w&jc9t^frBnZDHjr$kL6EIC#dCA5|p;HJCDzT&YgPf0K
zO989`a9p6wl>(Z71Omb;m(>T;<BaUCpsj@%Bu?|BnnLktkuc#iL%{Di>Fka{99qn>
zHbL<6(t_7*@YJuTLwRgZ^u*AcwuL^|v*bRDcM@crc|8TNW-rGP|5c+!Q<y!mCYNLs
zM1~wGGL?aTl>{hQwEQxS*bt^#JiWCEG!<AE{DY&}{nUKoM;~Odoa1iR&*kPx#E13T
z{lcdxk7t%#H@+WLUtcf6E51mc<jF{l?9i*>B+Y}K^~WEFeqmh{R)U{r<`&#Ig7>>`
zl7B;BrkXsxQ?1+{_scuH`A9!OO~zu*YEme=-?4|bpLn<lFkxK3fyEByuV1`imGx6=
ze|<v{-MZymuilOd7jb@m{#U-7AHTX}QMq!gxBWeEmYwOr{%=Cx0E5}~xu8@zM0#y*
z3)rReH8_rcKJE7F@Uf?;6#|ASIjT9M2f{f<0q1WP&h(C^R>G&VF8auD{oT@2hu~(Y
zSTJQaZw`3XuXb{bF8-R3puwD6WIHcgR~C~zK_FfH?3)`Gi#d0AIDqZjDz~03An?|<
z*82;P8_spe??2vg<r7glM%Z%Ob|<-L&pm5GCarl!6{AWX`$YKcDthz>TZBTHuZU}c
zRaad60h`<fp*WT7q%XF9lO~T1*2L3uG7#GNV*4upW}95p;&QohZJ|VP*_jt4in|!_
z`&xDXX36g-YBZhvzn_cI6X{PD2s>+(eo?|G#h-5cMkpzs6@UB&1U;3sWDm=GqBL6U
zE12%scNQ()T4-nRF$q{{3B85nP5}U2oUaIl^x3(PXb(n$3~jELoyI)BeiLRo-w_Tz
zDRkn?b`(n&%GSafkpK^cTaBKdrU6T;<2NrCg^b15a^U&Vv6X>5(0s`9*N1#cy)epW
zhRwOSIaJO=wpHlY&()Tf%xZ@B7ji5>XrUp_{p;sHrg!m1gahp)#)j}PwVPbu0F@F%
zB2{UmS=@T@F;Es#Ee6r<u7xN(*VFE&GA!F-UiKDq0@B?|XG?J3@bZGPkS-}RBi%!N
z;hybU_4C=LY{Mw8Cvk|x50!aMoakNI&bD1#yIct!C&F8wT1J)3S41!yrTFBwNx%c4
z8S04pYXH!|{}K&dfv4tJpfR)x4?(Gsw1>YeRH{-#?<p$ONK5%8Hna}CEiNywgZj)6
zXvW4U<&dcjBz+CE%%%b!izOx^+pc?3lKU8fDd@R|L$8RWJHC1vbc8LDuqt2SfYoJ%
zSvBi#cAN@+C2{mYeNVLg1mxh5CF!$a254yg6KW9iTF7e5ufFS|lq&tHyDlXZq1_HD
zslce^Wij|t>Jot8!}r}poQo*oQA`|qUXJ@OR|n^eFWAF|cJkyOt)>yze{M~_qK*M1
zOUIr^RQ#BHlM}uJEV5Hi7f5%*{Lhtdiin7KJi5_(=MHysBtp_WDt`-d%_#7YM`QV>
zwk>kYPq<HC+XW`8wdT}?L+LhIy0>oLe82}#e$+L8KF#pX3m4w{La^osVbX}=Z?qo(
zAb<sa&T__UuJNmcB*G_?)_$S_Am2QV40i}i?LU_1__bm)f%eF_0BGG2W;6_w(2wk_
zAjdpCr@UqX;RK<-y0)zN_Y0QL_CtL{V!`h<nh0k0w!XeHqepJ4kGlzRl19&#hzRz*
zffs>Cs`f9~ynEGrN7UsJIlb(vEo;p(2oTvq|9de&3MX^NvU4aZ&Ca#YvlKpp{=ebE
z+KV}(PJe94WbUSa3(9G#y?4a^5egq7!O*(hu;kdD$B2xFCn{nW&CVVE{BPk#-wbSw
z1O%w@uv1;D3w|6qp63W%i3FOS(-8)N@+OBf3xG`~t>EPquG&v3gBF+oLjpHI11Z3U
z4mY)Yqg<3oop9?RV$cXHASVK$0x%V|fkTroA&F48;YS1uTCkk|-Jba2r6B-PQQ(4t
zMhYl<G^ZBegiEgFz%f@r3IaVo*FTAiZ(MSn7^w#j$Yc;Rr0Yb9At5)^I1?4eM=>UW
zDGvU$l%|k*XRelvW@k!&lEDtowq-~7>p4?VFsr=hKDc#qD8)k^xdwqj00HX_{(DSu
zYgG66AbTs7loaFBz>io5*?K<qJ&%b<f>*YRA@2sZb2O`jXlWAYf>;+<*WBcSDd#(o
zPKB!Kj&w^f77-#NX~ld8HOoNU2?*1bTklD$w%cf;_0k=wPy(V@qWy{NjL>?yt{+HH
zNLq<5Zyz8h;-S5c(g7kyx5(#`s1~3c`gBzd48oh;$1Q-omIg~@7LPBkM;k5=yf_`&
zFeI=>qA-Y+SI=s`6;gOL@xXOe<BkZx0;ot45Cnw5Sg;f0(fEX)i~(a&Nb&%im0%Af
zwns6}64F?^wNj&0%lB<iml0pRymLserkj9E_^U*KnBl`<Z1FEyi9moI`_j%$HnhDg
zH~~$I<c^>#e-a%qNNZGfii?X!iOouMy`y)+sm`s>Y?lvgjQ)tm6W1Hp&=lgkrsox6
zGW5*&Hiu9-STn`m2J~XGrx3z#=1zJ5PAb4u(t!naMH=AE=nN(-Ft&;?71da^<Ks(E
zzXQk>h0!MI%kFi2`9g$l3AGs}A9b|LB`_-0m=^)SRv)Rx2h223J<miZmtS314G=y>
z>F<4xK93&7K{46S(G@*dL@O2VOoO<FYN4o)wxIRXz0&2uQn9!a<ed9{)Fa0vc9rPM
zqWf!?&23ik7!(~8SlfxRKaedVYu+;X-N83GGydFzYc5M(ORWCusqTf+fM~>FKAQHe
zj-Auv1=9)G+xVlTQ5i@j|A~iT(2Z0dlb{{h(GepZuGbT8Nt=-D9d+Gym%i!Bz^E&M
zKGE-~Xr2T7ovag?zC`e0*l${P=?k|6{m9j)o9%d?|8pqIJ$~HIYUMS4PQ`B137jfF
zJ`7Ew8>CnLC+O?z#_9i$!B<kf_*d|C`Jy|xJIFbQt8Ug%zq3I?wcy8FVOwla1T84$
zcEL#d@yS4lm53OuREgAW4U!iudkbORLG;mSlUM?onn?iZTT@6J0DNzZ50gY=>_t64
zh_W4LggCXYg~X^pko-v@!E&X?buK%YL{U~mY2TVK45>I6V=~u@i0W*k5-<*z<BI`4
z$dli-^}Pe`fE^2yIM&qTzIuawOsa)~==8dz<2&k9><Ydoops`FURdSMv2zhkcqZGZ
zNO2b@1S6lMG7y5T-jEu;1%fM#752i<5q_|5ZVx$$&Q38%9V5~Il!^ib(P2QH+WFhl
zLa5+>Tb6eK9u}QxMEr#f8JWe((i@*3c%oLqA1j{N<Nz7BGbe{}>IrG#r4dY21%$9_
zo*2jz;Q$h`px(09J}Lab#ZR6@b{LtaG4R@Lmj~h7NKpx?3D8MgYR%<23ojRLNA2vM
zbpH(qK$CW188qZ;KRtUybNu<kljY&+9TBt?J!dq42}`=$p)58eH$5Qta=P&CTVSbw
zjupyHg`*5cFa$&v7mk-tpG}k$=WOQHe>~2~Em}WIUMY99JrLzSrQSY}5-=3tD4a-i
zM%?4l0QWl@N7Yk8100)l-Xf(W^BFY7IV<`NMne=ixXzlp=tMhOIqI32S{5QBNPU^2
z;vfBE&7;4VSOognVBo`eRA#_Ex4nA!*?qJ`UqNzuXz(*mbTr^{Mb$@bS}<t;f;DsB
zemVv%8K3z{GZAv}Zm|Chxw&UiwI^r4$|2{qL2(S?Y*k9)O)F|;N%ko6I#nM%X-L(5
zbHl<mCA#UJc-&DDZ_{^OZX*0u(SlIW<wbb8UDu>S*v!k4S0JH`?6k*Bb&WHsshG`>
zUCi{0jnR+vJyp{c%da=0VQ}N;5RX@B5b~$S4?fRgae!%cwqOhD8xNwq++}3;h#3Ku
z_BNU0+$S?RSY<T#6~Ku#vw>_xR?E&@ZZ+rf3s1Cr&n`IXZczT}U>NC@_1AGp(aYlt
z<{hbw*G@2nZDvFvKk?5Yg2S&Hk6|;HxJrXagY3_r4|``vqMI6@kBxCn7Rgbs4iV2{
zB<qgxXvZ1-0|SEQTUTfV2cAqBIhmQjk&s3R><k5jE8ZDI1l-_`piWiFhvLVbL#LOg
zxFq}v{{P@dL_$UEwICt*#qeKxS-uYf0tDEfUn=+Q6`3V3sk`HklcSSUBC`xq>edGZ
zeSKAw5;d@|hBFzhE~O4W>+-#M=ly|Po5xwe;0dv>pUK(vS4a`A|5;*fJn0$$yd9QG
zHf*9BA3wie&aOXBsE=qyhX=_glwC!`(i2%sqiAniIW)1@U%i9Bx=W_ITYxw%PJI<^
zZ>F&R*~oW?B6%l|qpXRPLHDLvc&h1`sP<a*Ja^O2u%|yO>6BN{quL(#<y(LFd~=Vd
z2ib?@MvGMVf_p499-VofyLaEL&Hs==4zphwHNol9OkG~@A;=cB62-V}!Q6hc^8TEq
zUnnH>hr*nhi3F5i-Lr9{Ws>^J`j)rOR9+e9{n%BzHZA(wX!Tt$v-Fc?<lJS;H(u1V
zvpkg7EZ>wYfSiE9$7uF4Mub5`w8^jplru3cAi0t_<Z3;of};sIZQqkr&&@~yQVJ~T
z>aWv8^eGrZJTKIahK<mj^cM)1ppKXTZE<SHb}E-T%2V4W_dL?rfte>WsFj?$E&9_q
zGBzlp`ZtX4*%S8>b<$!B8zLtXg(OEy+f03SXKwwQe%MYY&G8*p6Q@DX*^n9uzh=-K
zDH89z#B5CW@a5mje`qP}8VVk!uwjjuQq}C(ws_Q4c9N~)5w9xs;Uc~IO;@u(&8psj
zm^j3S2_Dl^h;kTEmqVy3n9IpP&xrqZ)BaWW&0$ohbQrc!*wAoZkJU!QBejx9I{{6+
zme%uMhue|rEc!lxm^|7K;gmLs6{40sW9pnTQ-?Sq2W%e_ak0TEqM;}(_qwqVx;(V@
zhp}Wz5+4<eG*L#N+R%pD!K@pzf1mt0)xbnljpbcGq6do+Mfz41ERMdmJ4FtOn&Jys
zdMzUMN6;IjBk}v~e@^(ZuZmV&O_e)QygdHJu=)bW=z$p(xU_9l81O3m$2TyLq*I?H
z33nKeht#P>n2$j?CRrET_1+h_4c{Lw&E58b0O0{oRs$O?PTJPHa{50<*?;`sqwI<Q
zBb2><ydF=Ju=pm5GYi{3v`h_)PvV&Q@u4uj^P8KRhI$!Bae2iD>^*l4p)!JCdCS-F
zHV8I(I_+otWi|W#!@ZI34Gi_1+1p_C6^V%OWp80nl1Tv^JJ(ljY=TzZ9_>z7J4*KV
z+5c{-<LvEFDBGCg!(P6;<1rA}LNxp#3iH=*z^$8f{!)p))N9iYR66~l?q9xAFg27y
zWZVJ9;YMT7afCj|qCJa%?g4NnLUKgg9_}EDs12I7LA;={$9+VK#bU7m;?r<2FOCBT
zB+`daHHtnTC@fTQr57sVst~~aH=w>H1fR$q!SG_ZqtENslSplb5az@ah`;X)AbtS?
z@e>I07sO8plK`-RdO$DI1mQEIn78fu7C2DCoJ1jS$Ll>SKm#PYqzsaklJLe)`W{TO
zL?YYf)JoY<;RA8B$BEKEo$_{S!B|ZSAC<tEcocAw+kiZi2?q=^#7AbZLZ0x!RxV$@
z_4OX|mr*_-pgVA<T{Ty7BE+H<$Fm<NcDfUXod;(l`NQr$y5|v8D8n1=+IzZ*=sS`m
z5}W*#u5M7X>wpsR`6#ty{>y{FqLGmogu8$i!YDB)Op_{oJfftZsa~GJnsp+EHvqrI
zLB94R>~sp=gVpdsmH-h-8A#RvjtoQ+fBL+N9Ehff!g0=&LFpsBcw9O#uE&VtiC!A8
z;*(IODNc%n-GbNG@16cD<Spx_msb_e2WRdD#=4M%2wYDzriFulWCD&#JV2%NYVDOk
zcp4!F1m#Uz#MD590HfKHG!{}S@o3CH&gI5PfXLxjlukZCA?7hE1W2IBOd}#*3~{tM
ziXrkw>Krri*hC}br%UyY!fqq0%L#npbZ5(3Rqcnv=wA&I3JNKjP_w#&jY+^8l+sKv
zQvf1nJ4J8m9<fmPaEY!q0)u%?YvP^GC!(bY!hj%^)bLO~5}+dId#R#$tH&Cmf$JcK
zfm^f1L__Q&Ev>sO#8Nt+1%>SWphAcz4bBBB!~~a_Ijel!RW?}KN#s?{Vead%mj=mH
zcMWxda6<^1|15lMxIt<KTg1F@!+wSHb&4aaJ)BV4Rs+F++EH+AMe%dmj=&NYSH9Jb
z9XsZa-eVsZDGPqkR~-fnNO7t~#dlq_Pr<A3>34mFg=WcNJI>~h{q_EDbZ?w8BHW^8
zBXmtXC~QOHMD6_C3z@Sx{5R>fS6#kH_xm6BKfUwFPA!q31*~gZ)JeHv2<{e}rUsji
z#_A?H7bzWjOpmwJpr2mR^iU}qLU9D*LdDc?ZAe{ID0(Bwq*!EQP*aM$Q9JYSGewr2
z6{7jiR~ACqFXO%4t$DdX#C&b1?loiQmH#dUE+tK;WH8KyP&W<rZbhSj7?NRt1~Pm5
z_RDS%3si(q)O|QCq=sAQgrUP%l*%nk@v+~T_kB0FBa|IU*+K63Essv!iPiKzq4%wK
z)j8Sl!6-607DOTtIBHQ<j!)|bfS-nmK_~!Ad_E@;VGeRw4H*G~0?pj*5n#+}ry5c(
zs^)@NllA5gU(wS2N^TfHg8HKm&WeIt63@Y!`c^w(b@>-M&D{51JY2z0SQMfw{ezB4
zIlqtMIS5CjfI>HKdvn~Pe^c>L5!JYU@yDb)LD@}#iCx?h|8L73OHdb+JUcXr2@J4h
z^M@%OfCjf}Ec|1)&`_P5Cu;@~sz$lxo;pF5ao=rut2pJBP*o0gZ2lfK9TeE{G?E9!
zP%{VV1>3u|=d&V_6(hkh$qFF}$bhLt;skM!1Tsqo&8!c4-gaDkjN?g&21NVfgSMyf
znd^0Vd^M@rFA0i=#$iSjDlmfESQB4XW6f%(AyrCcKo&b1;hzEnOr#ATGr;@P_(gL)
za}&Xv8K_+kgd$H6sbW`IeUM!v%AzN-xt~l#z6_CZncHIpZ79bA{Q`GL`(ImJ1poki
zmSx21y)681ODq)6$3{*s0x?!2cN$RboE~u?xaAO$jv6@EI}G|7;QSm!L;O@Sf%kjC
zwEOSk%+Gh~Kt%?~CH@ig=S?b9h|F-3qxsLSmv(%DK|dF%x3zww^7aO!YjPQI1Ul_)
zSV&BlT89?_ciRF=AlhSnb7VPL6@?P!TC=QI;|(xuL}?G|MSuPH@M2VE=KG>-fszD@
zLce}ofAp|(?<&#)T^b~DniTbspX_{u?kEQ572($Oq=<jYk7nO0zVzluHXiG%RS!Hf
zF;^AqS_2W`C={`eMf}|1qI(wmukc<*sua)7t2GH*0WAlF#RSYsNj5a)O+QlEu7(R1
z{X03`a$zf8@7V%sAjLn}l$%orAao`&=n67o`Kl!t18G3OEcnw;rJU=je`pfGXc1oN
zw3V*Fdh^`yfY75j6BI?LC@{!|s-Wti4iy(N_RP9Y%4Il_5HB}w<Ggjti;vz35jRzi
zf=heTscq{{QeK5j#wta*_z5`rA>e17kh7{N6>rhq@{vH@ghr04$)|IF=loi)KeC^=
z^kz3%l2Mg)<o0oAzM8dUFb`^oq=3h1{laM4>L0(~;~BqD@Y6;#+!IfUwCK}0w5$`B
z82~FHlY5Q6>DQ-+nWJ<BB_-}_IhoDQ37pBW2r!XoJ&pP`OPq3Wbl2J|bu8<h`}Um%
z14`y!svXt$pUi9~g&~GC&pq;1n61ZHkTH-7zu4#O-uZjT<jD-Y5NWG6u|z1x1C7{D
zCDcSRMHuiT0a=LaJyDew^_#T*g8LOuL^znSgzZ6`IT2|FtHGBKSkA9G+0{_vkKTDY
z<|`RQ#c%kFT2A@9jIq~o+fIJ|qjKX7<!JzTH$uh{akvJK*ETAcKLq-yd3<UsK>SZ)
zf9L&PYRQtB&7aAvK$szI@-l25QA`UFsZ*p<KM-h(^noAyUFG@%q0XnpdlnHYSS?W<
z2Gfy@eIlhe7I{0IL3P-lvy9H4Cq$$gt>4w9!@j1A9laERbprk%q(M?0L2vyM<@fwl
zY;$#(Ftd0luyDSf<gHui=w${m24Dw9!7?ry$c`jla%xVS1Yk}{ECdx7;dD~Sfsfv1
ziCPwiV27zeU(sL=+LuuV&IXAV$!SX*HGdTs&X4OtDVI=54bm~J2lziB;OMA5vJ+x8
zQtA~C&usQYCuJPq8p61}%Oev{o<HMfvH1@_==Xeu0#XgC#R|Ix1q2v%UAr$0I7$<F
zVF;fkA-;$M17sWjc5W;Z*1r~;1>>?K?sqMWy%w<I@owF}I$U;U`#jrp@zifFfZ41w
z!b`C_W+?Q-%&a758(;HpqU=ZLjxe_1*eSD;M{t5b<M~O?0eR#r(UGxr|M7~1h3~r&
zu>7Vo8w`D396OitBD#aIz;T+_#es*PM(^;NrZ=(6DjPQaWl**0@a#jHuf-l%%)KFU
zc^B8}BgwO7(O!raFWd6?$}WMKt1Aqi3lu+@zjm!3WhU4BzYo3=d0-&AEA{Y=U0PCR
z4wF;wQkZ{3QZ{C6e@flJ-~gXpM){~l%}9`QU0e?gs^^v*$k~e^d<_DmwbNI@EGQ+u
z(~9@4Vzeq6MSSo}AtDjR_yPdPz^lYpA)36<3C>T-&Ab0@?UQ6OJrd0G21xJ-YR@~k
zl=OU1!WKgFYA@Bg;?H?@#-l1QV^juc8_9iKO)*aSligMh#_Q>)UQbVyPk+IgEL){x
z{s07r3n(9#jO35x<)S9FyR4<6;yy&^Hi!Orvpp3Q<k;k7Av{($WvT8oX|Sbt3q6b3
z>&VPb26ZzwBSQ?Zn<B#;q{)QaQm%lA9GnXnhJh9tR0|6WK>2})bXf`dlcpFM{UAF#
z`y0H{Xt$L|PNT@ixW!?jZUS`jKvy)8N%TZDvjGomA0~rZGRv?P$p8XrK$sY4;UHpO
z|HP76JMLS;a_!P-DTW4fT5%gv3tLzlHd&%aB1Q_}#Z^fsg@<p(wW?r#bZW5(25hQ@
zICsWPd_5*tjG6M@$VWYV*}Lz&WH#F+<+{qtzZPiYN^#wqb@v<1JLZxt$?d*?I<ITA
zp2+^ecTRCWeviQ`)A2gLMoQzWm4td-!J(8gz5uTO-YbdZ&yTMtAFEjW2Um|ny}|Wu
zR35NimRKch71gzGFv`L>$y8v;=iwEgl6-32`t|$3<<^B(qgJ-935fBbyELDKIXwb7
zYC9AOi;yz}Lb#P5MnLJ@xpQES2a#`ECfdbyHkO?=>ei}D&iNi-o%L};aTz)doZh!u
zX9cOab)F7xOc{}a$fym5HIac+3gqp(wS5R3mdb#71hh!sn}lS_q|ZpZ%4r3WWJ5$z
ziGi^-@l7SQb#)z>%~OOyfZluw^zKo2)ZCOA(*5tYb~kGrGt-0;YJT4xD?`YmIRRQu
zg}_}DLKbZ1wbG6kl@GN3J;5xP)amT%vOz*4Dl8732Vc=jn(hOOj0S#DQBk~-jX`i3
z4d(-OA?>V%87hrx=Z@9ZtWZtaxu@r=dtM8!Czu4&4ahi83;0&1=of5o`Sx`5V~4Ci
zF3RpBc@PT1B-9HYL=|;A6?^Pyt<ycssB7=jNJvOHO{4h>yS6TjOG+w*S+d5&?TqY+
zW3v4Z_<|QYGId@fsPg~kpMQd|f7mSr9$sD2pKoks@WJ_+4V+UFr;cNOczvsO&N;f0
zWVU{f1IE*4{P<CPZrv=~)trWV+e%n^MpWs!&tiA>=Jelre;0pz10K2=os6-jGNz|`
zroSJI-k1>1?rear`8nV9my;&yR=kkKpuEzOjhN~P2T=rFde&{!d#6W3ryqecW^qUS
zqL~scIpNv(kb9tcD%I<rIQ^8azJ5#Vx*4@cIn?CfG{?Trd{iZ+QtggOG_y2FH+Q1f
zfjrr7pbd^Tl)L+tySDE$%PZ2T5^FCHZE1DJJtKvD#Ajk|ZocGN%XFP><P%@3H5oYQ
z9T*5#wmQG}>PM`~=(h`Uf!rQHUdJUQl%Vy3SSzu*kG@@<-`w-`?d<Hl?q%A!8hDm*
z5ZQy<5rqjC-AXuHcb>JEhLwK?x@3E1!K8&4KschRngzii9eTdWdh~U4Ud-!G3TG=+
z!-rnNdZZ7IU?8@WuaP(ey>!8nCWj-$wZ90Y47nnB`CurdZ6d1x04G|ku8DIQGX__1
z(9^F`8|~{iQ~S|`Vrx7KgVuot4;6-MpO^l7EJxje9+<CSz6MAUNu?#-t$qTHKRzmI
z@gG}<MsV3^{y3+Mh>c8I&BFM<N*F+Zf8#54XtZyu4@NKG*jDdh^n&oQtJOnbdL8UP
zUMhq}id5;JW{Q{s>&sUJqFZyTMSAA7n80K@ZovuiuQ`S~Fo^n$FX*BBnqh|~iT%{n
zGcPZ%^6$DkX_}B;Gq*zH*DW;J1JLeAozu>7W3=i{IbfFFeB`j!9r!3;C6>MQ6aDmJ
z09B=PR_oq3d|OkDPJuRoa};5{+ykVEPw4rl%hH%AP<k&E#v=<#JVYl}Tz~1u`uc|$
z>LI#4#PKZSi|4E*#-}YdYSF6H%Lq=RZC-x&JB_BPV?nXlMl{nrl^bz?-h70|99#Pg
zgQm|zbF~N<Vn6S6AMfrm8x$_KQDvw4?m3w1bSJf@RVkN<gY*ma+&#xO+Npt(6{H&H
zgMY-eU=DdHc8@CdZSH$ezCzF4mEh+ctGEurr#D{H+1Yt}&E73QU@jiLyWx?QTbGVS
ze8SeQv6ks^kL}bl*q`d!T8y)h#Sx|(-EM_}rWq^ZYB&G7T2Nn~p^@VPvMR0T7Y$--
zYi#Fqqr+)v7f8pxCdl|o&fSyoquV!ZTW|j4&)AHr=5-3uszSNFukdf71UwD~>wQ(D
z(Jr9egreRFWx2`06M<s8r+c}lD{?~sRf`~4DI;a6j;*|-$Kw+c_St@|_y(tt1te<#
z`Z@5C$x5PjhIGKf7Cbo88?4`LCMJ#SC8$S6>k5gNS3Q{Q<g$Rz+pS<Eb1Vl!$8w5(
zyW(uu($B(*!XDyGz9%giY-?v<6qdGA*R5OEkIYW}c|dbye7pc!jNBP39hQVhIapp5
z?0i_+ps&F078j%+ZS}b~X<F=J+f5zHK8ckDQpBg#w_NUAqFr!fV<UP}4p37OX(@X=
zO#Zv_veV9Bd-Ld$9Z~=EOz@57DAh^74or#d)Gx^W&eeIOSZ?f|PuE=a?A!J@$cl(b
zy%XoZXy(1OQoTyTW$At~vGd?6@0@0{cNK(L&<r)SOO3o$<JbEj>9sE!BMnp=?CTA(
zTCc6Q1`FE0NV27;(JZBOZ{Y@SINyCFu*f!APg&t5_%mwR;M)6gExM=xG1u>=8Tgg3
zh(J^Wo@}5MbY6d+keM|#HCX@(h;<_;m7YI^`Xmb_y3%d_x{P=M-i{fXFPD;hHTxa$
z9J@2>x9E=+)3R;zSk@BTgKbqaaL6{`;n1@!DYueTq6ve<vpFI=TM}U9S^tzwH31eX
zs9*bsW}b9SCi{y**|FoNuFAnbIc9)D;Zpe77IO0B&(e+O<z+t!X)Anwc2tIijj3gm
zw>saej0ub#)9IjP-_Bq&Qz}<d4#sjm<*VeZPSy0%yS~XYDYAQJlSsl=TU}ipr$GRj
zvFj&JIQMm#y1M1SOiEWkBqv$@e{u<&&!kZ1aL)Aq++F<sh?>~SIkvtCD-hp*K~Q-b
zr!fT3;enx{p$3!KU~7aev}|c|$DTrUW;2_K)-AN>%1rNxqYxOz5&Q7`PJTm9`$j1-
z>~R<3_j3m;6(s<(3eq8o1$nnjw&;u=Sn(i)?pdSLq}gK5&nEk??v|+>#Nc07y;D?v
zzil+Kz~oEXh;0<2D<u=pH+{V`UVYk_nLIF+QJujneZ;klmYk&~u+o~>Ilj4K`--RS
zArWc<+mg~lGrD~u3dDvoDKF;T^vs+?jJlt&e)H!vSasofs8UHLKX$=0F~ZsO6^f+A
zCnwitG)2Y4#5}Q(ip`e1<0};53Gn@4{v5Zmz`<^&H~_sQ+qHRQQc+cb$Fzd~2TN8!
zXD*Gsh07EfZJcGaim_(yCYw3~nY<zx=g`Wq&G_Wgq&J+sEc*nQ%IM5J$i4j&eIEa`
z)A<nhk!}V5QwOA$F!!{{<{pVIp-|3jTWpmd@-|afhb_Vt_kB7@kG+iIsdxMZ^D>H>
zG2!9iZ%yEw&2qCHltL!Dbh5_N{c|GHxc&aIp1S1CP0PNugk5#vtxkfjP)c9=;ljad
z8Ft&03vs41a;Cc%z%atPc_-Fi|L16(m4k0{MFwkTevHelYuB!6FjJm}72XIrgWPpz
zdS%Aqp8Vi#1qBuxHL6_(Wu^kV^<v^eXHhhl&#+pUoYfv6svIci;SNB#DtRbfEJoNY
z!<JoXpJ}JE7qdS31ZQ54_%5%armpUbU|g=~7I&yk$EtzC%;<mqS+nxVBm&3NLZ8Ot
zVq*B^uO<G78-U{HGq_GJTD1#2!g-{&RE(?iGlVHxnf!QCVPQL)ThbV#QK-`zV}Cmh
zd{laV1*oIH_3MCw+q-saezIf!xluxRSLb~-%8Tr_Tu!5ISlI7f{vQs?P(WZJRPhdA
ztf=k4bl~@>N#p}xp1fXS=I#mtasyNqYn|N4zNOHU>SpIsVd|gM7M8F?Tb8aNKMgzX
ztn`A3n3a_1e8J|$*O}nGbN^SK<^OP(|8=AGpDxt@`H24+AMwB8aw5||_<=-o85tS$
zl0kOlBdG`+Z{!2<wrhh`VQYW5eWk(#4HO{mSjfy6Qdi$e%f3NaH2PyJdL>fg$CwUr
zdExq9R1Hfe;u`fS{S9}tG}+6zV4a23lX64Xb<`PskW7pfUwh!<8IdQx85{Q;WZK_9
zhg5wd-@R@%0pG^S8L1C>4+y5H2}A>qs5G+GwyM7#@;EbB);K3VKK_twhoHyaRy$_8
zvpmx;c&n`@>}kBVQ<>r%SDC>TxXPr=&^n9jE1!nWq&UmYu#y73kq?2KNu3DN^zIl_
z=S+AdbjC@*xXWMT<_#gq)~;`|gNN~EEsx0|Z$3=BEJtILpzf(cpLOd`Ymb}fs<^qi
z70+>%tEsLw1iDVu7&HSF`0>RfdB*^xkf_@5ZJ$%?tIza>I@)_wJSzS~XsbAuS-Jgv
z;DueOOCVODSG?G4Dv4_Ha%Kv1N#{GKR){QThcBaqiC=2wux0<%d;W)*<$uHd_@Bma
z|7R`!HJ1JV`&y`lDy*)kK@{SR-h`c?As$CUm3MoCgvh)N7Y`D|4VmA+gs)WzGn<j}
z3S9`gbQIuRAg>EZ$t1zMfUyxIR0Y+wg-c^T@#PhE&JfGNOonnKxRuDV3DiPl{B25h
zXMRCn&U;LF3IYDw9^oYvZ~KV6heD4*s6fyqq;{!*d06QGQi4#9s(^3mhokFR7zunF
z_6FJ*0U$lnven3&JcT|8&TK{m4&+9HN^+`XF*h`3i~=2b#OH)5aCIgY<b{-`Xxi*t
zBuMB?Q)KV~gw^sI_y$0d${=A(a1AG=sR(vH@?souHXoH(Cj{lIItY;L%_j`GW61=L
zsR)xAinE<THy{Dk)T+-JQQ%5Z88B>!F%9ngd69AA;hxQl7cbteEY<lqQUn>aeGTpO
z>8j*Wt#E+Cpu;Esd!r62{OS4(x~96Xb+p$G(u5x!<5@mhoWg9bNEzZ&SN9kX$%b#J
zIp?CHu6%BlM)r-%Ak3eE@s$%5TJvzsPE*B7<l?6nK68_@EY{Cm^e%$@<TIiz+v|Eu
zdxgLtp;qDniIzR<zn%|RPeX2YGtgwMd{-y0s$sMf!uw<-<lkGgHXwM_G(E>}^V+?R
z#yQOFSY+Q<Tds%1zq81(O*pmFDon*VrLon+Kj5-#hZ4L3*LZd}8=<k++TLN_`_Ym1
za9LN?bj0^?oX)%@#Ud8W&FPclvDFGpu|+%#R%3>|r1hd5{%*S$QPPs}RNTfA>+i%|
za@0xfUzsJS-}g+&)gYm}|7uc(PAqe_bMjyMlgiPG6z3bNO)nOWl^Jnzj&)NGjTwPz
z9*&9@3n>*>25)&f5Z}Nc=**pgUD|1%uNwkb)#_R)3+aNUb+Jg2S%Ch!4*JTJqq;{>
zQ|wHTmNc@1^o*c*p_uyF>uSvA!(Vf8SM4L?1TQ500tl;d5X7g=Z6R==1#}kxgAA&{
z-e^SHrqy@E&@GSmjswWc0gE;q*h5VP^4NY(Cb$mEy=cvzO+~kC9;1_j_B^6F5-@P7
z{Pmi;x=iQ4W_FWQXb>nH2l#5&A6?mm>k>rGwc_;<ZU@;Fl|dL%W*hWJ2u{r~fBJTn
z8C~CO002n=E#yXu$$JAy6{dZ#uSbNYkbk;`_=gO-8B6~T(!BKkK0T&=5+1esRFXx`
z-HdKo!O-o-I+RaW44dw%S14UuGRf3T!lW6~OCf*@wox(r_@12xC-^_;(7AGkRh(Ke
zR0x9jFf_i>v<kB=e1I0pQ2QZB;Tl}aNjfX&I52^H;C&b)Iw8dXU3hVV*fYL>TU7?(
zgJ-Uz{Q!db*IT5Wx+=&yW?$Fkon6#y`1Ve1{`6$e1(08|0J7R(^lyrY8`MN3y3?uz
z)Haf1d$6ucbcPk<HrNg{x}7>vpg0jMDGIicB|*hzaZB%+{&8=*{&Q&^c{$})JZ(-c
zm6St*F1}hI(fapt0Xi4?#lg%@(O-gDt`!^*;lBh}{4X`~#6q9kKWpxy<FJDQ^rQYi
z8td}?Q0X<oR{sePD5reDE?%yDU^6wfh(GWPvt`Pj>`&x(bssZO$$k$pBm`4EeSp!o
z#Rl7JGYktiI=ly%quF}P`5rOCIxS-w3`3B(M?tdGCqD(&_oW4t4R1d5nU|oOpG{7|
ziAN&a2>#Caf{H>pii(`ql7h_ikp8qUpG5n^bNwS8(<8__N1lUsPG*;Er%shmkIFR|
zT;C|5d#Y{+W-bWLpnPqeo!hNOrw7Bt0u9)PQq}|XFrCL1P*GA+iY{S`5`+(>IDRT=
zda=kk8K-7y$>eLySO}S;+$;-JjpHqHD$r>c$h60vA-_O@D9ZvxG#3lzRlJM&F$29S
z{u$keF#gWohRFjk4KE}00250l{+uaJ!>reT{A^<VF91TMAm?iXCvzTN1n7T)?an*}
zoRSXNku1I<gp>lhN<E|&)1J{}{;ZUICxVEzJp)yB!>b8wx)_Gn;5!*-Th4b(^JjP^
zz;{8sG8JV3u}qY}EOlB<o&8Y@iowm)pY`IRRpop`gEO(!%Q_YSl~IfXeNd48vy-R$
z!cRu~e+O;*y?F^vRpItO@bsB3ZU6&`ha`oi6QQy)1bPP8@T^K%iiP=+dS<&(a(oBw
zW(YV~VvtSIgZ3Z;Eo>LSy##1wQ43E{6^kh0dl9%&_sIi=F3fwOoNtUPOC)!Yl19$R
z1y*BrYH&bp!-q*X_-C6BM^>k2PmwAH?|6Noq?(ROWsSx3pQbs<6^};tCv};J9vdf<
z_9RfU!vNQP@NyG{9uvo+6$KK%OE(Xnr`LpnP$z{!<i`m9hT!1BmBnK3z@D&qF=L(~
zuHf507(i=mZ2S)027v?`MVr|<(ikP{HfD&B<UInPV2E#RPft(ZEtFt2kK!D!3JxJH
zdwzB^D98RNPHlyNWrEUrJV?OZ69Ba`>0Lo+wI(=x4NnV-umfmSakx{0J~iRO4K^nd
zx|%V_NyOmQ->c;F0CckuE0seXqVD;GfBs<f2HT21lPn{*HGNPHZfXIlwh5!o4H8PG
zd#}sAM_s2WIomnlyYV=;0@Kd-Zhou@{lYk<F;-Wo<Ndz!_t2#emOs7(u-7IE_3)o+
zd?cwuy)&DOrhcNyDYv^@k{JrL7}d~%A^^d8|2PrTImm8nyj_+Jtk?!Eze$&z>2x}Z
zaFYcIb2`WDDPh}f{OT8?flCg3UB>|($__j#|AOA06VOT-z(ui8*dYoR<e?cs%(7eC
z3LzQPLIcq*BZKX%M5<6h9#f-c^kg*wGNG#hXOC>{^91LMk1qyTH2_D$!c@xl=<Vu9
zH<2WvQqy$c0#e8VkqS2l<;ISxgpR{|EGVfmU?A9ibnb2eP;MjEXdHPf^Yn$0%p&Uc
zU>_Cte(&x^`%|_wrZ~IQqRv-xEF{K`UNf&k4CCj{kQz8CJZ8Zr3DT9r?dtl5uY^6D
zWRt>Ysc2mkiYTKXO@|;*5CwOwgt&h6u$>5z&RU-^eWu~emBszh!frdIzCDo_t3Pw4
zy1F_FWpogAoP{vNi&HIWyS=X;Y&_{`)i@^!Hz`Vm_u4C&tI1&ZDpWf1h8qQe{+gpz
z$sfg?J7SGHR_k8;lN3zAGkG5(lSA)n!X~moRDA)@rnF_Usl^D9tcA8EiZ2rALV1P?
z3V~eXl9QF=)D-YY_St`{cLfz*neh=ps)@0&ro|{qc3Y_;?h`-EF(4A<Q!4Benr8b!
z>y`x@O(FGj=cD1T$@ZP!ro`gnJM*l{znhNp=Vf(gs~&5qN=r@{qtsf0yPfrgp_mHF
zWC!YEk8LHc*3k=@+?UG+V~H&#ASPcCp;3@(Dk%@c`<t4YilCc5$hvrEa&z|<at4-2
zehnl12UMt(aLFL~r{WQGpj@bggdYu--MPpL5_ZLsBPX)+o#aV<{ZMii2puWgO$Ul@
zqg*j)=d?~|!wnker}iNt`8Mp_cot6VL~6wF=s-t`NRqBlY<|8hmF%;O=M$(mh8Vt`
zH<=M{D3zX3z&rbh>zzZiv9OUDbT&g#2vuPvW$C^*>d9%5li6L4C5?nCPqoGrHjGS+
zj6Ly)F+G+tU5sFd&Q@(q0^O|v)||nInN8+(spOn6X6H5;A{ul;I}SPa;?rFolPRQF
z?}Tx0Ic_<>6OE|R*+Y{7vSFmvtVvHrCsBHC*Lb1sZg2rmPGclKo#gSD=;JH0XIj*?
zTWF*PYcpH8FK@{|8ZPKoG47e%4`kI4UE!n_R|UtS;D6e&$u2kA4yL*Qv6FXHo$l3q
zfWNwE9+LR}yv-VoXdMm(<8*_W<uE#;`dQ=Q+-{HQC7sL}o(lasDMHnV7hq~OgA;Or
z1Z?}83M{X0w0}oJJyeUs-?G3p`_7>#<YZ=|G~MCSGTtn3k2GOY87RJ`^v&f~a(Lm+
zj`nZNEB)S!r@2jQ=`g0Jd!(}=6z58AN!PXStpsLa^nbYLz8|4?TuMqgY8Q`i+lFA$
zm&$Fl@KVUAY8=ii!lCme#V>N2(83&mspv-NZz{){(7p=R)E;4u)Mi9F7@P6F2q3Vt
z+>e*ssqjgn*BQ2Y4jZgYnt&HQ1A@+1bacIi54ksV@D?NHRHf1CT$g0UB*eQ!%vy3_
z6Ou$HsM2sKLRqM=c=O>z6mP!1fe~!q7)RGHwq-f>2cRuD7pFE0ZO`Q7ZoPXTqUrT2
zHd()Az4q`6WtgiP&;mu*EYOhxR4OqJ@sT{Y4EkVhYjrI+o2C1`LX!?0OTYUmT0*vs
z>Kv?P#CVte%n-vP9L7+7H6c}2z9Jeb%}6m(&l@PwpAsQlbn8Zw*d&o8pmy7XE*>H$
z$o@`_cAULw$&{GZs8BnUa?8*gPYk#b6evf_9P+&Z_$k+&UeFcM?PA6}<=V}jrTL7Q
zO3VW*Bk><yA*FI-p^mmV2;O{x`GXUnNQPqaNv=~P0w^1}@^-kuQs`-h2)p-rt&C4~
zLk`sc^q$);;*>d?3V1;2Mu(3Nz#{wt2A(p5)T`!gv^_~`hv__RIsMX3Mk$~K67owF
zs=E4aIS2|^*gbj!7Z+MY<BSUc_WzUI0OI!hcp6y}Pa1KwtRa7M9<gFM3{_)pGRUz;
zh$!f)b!d8Gq)k;l@l}ahzka>os$MZMv3BBv095#c>wf_9)<f$$+z>YE<ObNF;DHIK
z=U460tVkA1IV_cK=P_^5n)}efD<Q{?Y%bW|v9U1{-GI66#9==DD3mJ$P9dqT5^Z~d
zIWn9PS>IUI@$`H-MpBX)eZ-)3caE3@Cd)QgX2)#yY6b~J7tM(hXxJD4lSB;77w-Wp
z^n;VOnRKUFg9u<m&J>7YYOS}JaALA+5%fVwFqi<K;9-#gd0=2Mu$ob*vcl$_S#sc$
zr#X01yQhj{1k1f!dM01?;Xx1Jd>Mf)Z!smJ*|LN(ID2OEk{_@+brUwva2h)xe^riH
zXCF#OTr|ISsa@i3XN-%Aw?FgE<|5$&akQWVKEPP{cKs=qe(ixCa^i@p2VoBlK&yC<
zj%Ah+$!M`OA2H5qlmzi4%|a`Q5mv1+raPs}-n4uwW6-9J5Y<qoT#HDEP(#SeNI7z|
z)jyTN7A;KX-Or{f<fH;}KqP2MxNUgaPbyi1l1-Ojxs>$J;3;w*HzMCUY4n`CuSNgg
zDk0r^SEC^#f4WATs#Fq?5`;5m_Mk{rgK^bY$Xkw%at1LJ#B$j;J9W5@<h0N)44I><
zo`nPJop_+<p{SV#bZp~E7V3muWep>h!R|au{PFT1cj)sHU6)_Q9V}Y6|8e2R6XERm
zfPVoDb`;$TOIk+jLD-~g`{4+Adn#Nm3(OOG+w;fdERi^auZY{d_lh|HgP-12fy7Yk
z(5an-JQ##bzk>)m1e$63cUOl@(gRDyn28c^%-3}#84C=p>t1YeY_FXWZ||SzXQ(s!
z{xM4eWT$k4)m_PLyOY2!zc^69E%D_(i~<}jgOAX@13l)Pwgr|!rPG@P##<g3tjShD
z*d;p{&do}ER#vQ`W8sUuY&W;e;K_uNuP{_0Z&v1Ryhx&7LSQ6JF5Jj&e_d-T!w`eX
z%80E8?IW5le*SB5;IT#P#dcBq!3?pxbIv~>OG#ybA`sEU{FWHw-6}WH%1w?By5=i7
zR|b$P@=jc{`iV(Pa}PLRj%2;1dtb~N{YO0iLyUKqU5#>gQ%goYm`$8W520aqwX;Ap
zBjrOx=Ek>G8{J;aYk=O~BR&a`6=;FAgRCxeLtAr5fkIH)B@eVKF@FnZNpzf^d!Y<k
z@YV^bV!(7B>^!0`TNip0D!QA?r3X$B(Y$ut(Ful+LiEIIxe0mMzMCqB2}v2Im$K|G
zd8hM(H558l9czuKmG!icrv&nrRi9mnBadC$Ykv?C5`UmM1LHCWI0QNfS?mNh=D_iT
z;6*Ah+H-jDG=|OcPG6)oOP?j7ENF8GWl5Ci`c<A++u~m_6nm>@`!r<NHiG~la_RG%
zbiLpP+h_$d-YtPKN!Z|xiC*@d@1`=|!u|&FU7d6?-=-gV#7gQ`bPhr<_h|iXDYJLQ
zf0u-<LFdMKn37T?P7jco8RGwRix3=A^>$$fkevy1Zx(~x?oA{RN>hU2U?r|^us#ku
zlUMs9JI6A$R=d<J;TSO+`)4*Q3-~HD;HlVDQn#}ZSRj#*u5yk2gon#VB^)l-e(z8+
zgH>DlW;eD4mXq*Lpjzne4S|{@`|Ewc9$3&oRZ0D<5M&4HP6v9>FM$#8*Ef`ZB|s}>
z+KPPKuiObf4yF~fr>%Jp{kv^c5*Lc;D^)jjSAW2fApIQ@6T3Q<q<@`=OSUweh`K?q
zM}E2BXGySpPQ!Qm6IRbgjT$N2x<0>jDNwj<8jSpnfH$v&UX^K8V6r_)tOpJZ%V@zX
zllA0yWhe-yl5jw<Qw|oI&}8i=E0d(GQit6UP&(;0BgsyF%jP6J{W=js1cyKt+d&dE
zk`aK(cpe7#k))kz8Mca@ecKJ<-m!}a;}t?7W9`ek05eFT$CJ?L$X}?j6d|MX+OZ5J
z4*3JYLP-}`-mT<Qb6O@X168g;puc%y-y{+@8A7QUP~Sid3VC=W`=K%r<fhW??9zf6
zwaoZ^<B)3jIPrOP!8>rQQj3+|5q>M!-0f!i<Jydsw0v`*J>88hAyHC|Q&%eO2VH~N
zv%Wr$d2y<@elPOBXgfmjB^(Umu0dBd;koXPfHe!iS^xA@%d{dx-SS1PH));WWIn_`
zz%u9|GZkiG;&B-m#6EC-IrLUb8occY$&<dIZ`n+C<hVxK5H5>>Y+4GqxGKqM@KP6F
zqoHofK@|-F4E|ME{eejmNi>ZZLx6CUIMFV{KteYrT&B-yX!rke4C4w+<&RB#cPJ={
z_SXv_%Y|)7x5y%96f>wTr#z5_2Iv90{DfX~S-?58foXjh_x8SJpoAx!^PwZ*OqewE
zKv5BlrhEnf-Q-JIB$-DCg4M{p@w;iKE1h-h&U<vA(gD6(Moj>!3|(O1NL(F%)IM%!
z$Mm@0n4DlcD5KOR$?W*BSE*YTAcHOpw69R?{p<lpCetoME*P!_gP047FD??40@B5`
zJW-BVJ;ZGc{JGe-!lr_3V4iwrC-ty*d8c}>Ck&NxHd)tb!9eF6!e2)_s~qH;rX`u}
zXsocQQKzwD0xgTt2{VAKg^V?pz-JEJ1E#q#|MMB8b74snj%F=u6D>BR`}v{Q#u(w5
z{ufxg_r$6Ly^BHO15UaD&U{nn9f{hQoJJGYq)GV{1{CZk{+kp`2<Aa3tO)j=p_XDq
zyaJLhe*hF2G}kBJJ2R#?rPFDh-&_J}?V`%BD6q@gy663QVXR6?tbvaMyu$p!4|u!-
zxx)`0LOADJsv>D0UoEi9b=o&YrU)(4HfW;+I>u9khQ$HQy1jtTHBRnKk^rdKmGXe2
zTpPY;kZhASE{^`O=Vg)qcX=N_rit1y$v{yoo<guU9AJ@TCS%f4YqT4BHiiQkpo`vF
zk`lXH)S)KBxB$^-G=dL8*o;>E>lT|jIWbPZ^mZk&_&Z~RRN1OrU6_QafKMa92f9eu
z))b2ItQo>r_n=(R&h4$_K~8v}AAR(Saa9XqrJP1r<ZEciD?vb;ojq~O(v03k9oLBK
zNZZGIgQ;pmv+x==GaVtKOxY{AK96>UTFDMeqo{@rc%(b&>Gq)k!9Ymh=1;JMFW?xD
z)_F|UDfmBA-f-#7QgUGcwA$JWHDoW05hwiJ&V8bdw|t4zxBG;R2Jqy2F=o7c<)5j?
z70G^WSk+SQKKx8<w*&THQpPSy;=&_84#mtD&3H>Fv>-HX0GPH`%v=*VtUc=YMd-lx
zArRJSxKV+sfRJ*$W=YccJh>l#GQLE4D-#NRtl1n&m<uV5Rp=o)A&gTpBb1yo@Ty9M
z+wh+D1nmGn9dDfd#An<YUDi6hhDXdhw$v_ieKPpQ9aB`DMzK|V_z2t~s9T!77qfBr
zio*W9Lej`I#X2&D`aHPfPS76c2h`2UKm3z<DW1tJE<LUeIJFZ9#{gOmRLFCuOZLF3
zR!*Eg($+WQV2>@FNA%ODd$IX-G8#=2$ofqH^-*SQK*9<vr1A6^vL09TuYw}Y64Ym3
z`U{<V3Cns_4-kGV4u2>g=~K`S9w9IS!?oK?zXXv(Wq0}vN>?pBL15uWA~Z`boxt*>
zZ{w$B*U7+xI>yH#X#;v#-joW^Is2NY{~<{v?O@e6+3OHK*k@_N%JrD)@ZhH+R-ZCT
z>e6M>UxtG4-Ojc`QxfCL9r5OOq^we-p%d*fJw<?ZYlvtiKaD9fH^XO)0`hxA7@j06
zA;2aPP)WFRN1U`%AS-WxFcBgDqoO29aE<^1p`<S+{U`)Gg4HZ1(EkN2GXZwUN|E)+
z0v41rC_thQU6^4BGy|jpyNM;202Y@GaEA*>A%gX$vt5;SDj(R{4SpXaDHK^YwCzb_
zPc*>%aw2lcT}8!`1G;I|cQJ6)8V=zhl77zJ5EQw{UTR<hoh&4%lmKw@?B(3`g!qB5
zSl$|NuC4KglJD+rDdsRQs7<Nfh13p-8A;QGSc9QACyar)YyK!}Mn-OTkRX|WLJ0g5
zVf#t8;f_Ye^N7BagqZZ6$g=OJqxDHHsbOknwhvmE?S<&5N^ew>gUnccr+wY9UgwE|
zrU&c1hlfsgeRk_b0ptQSOsEVP^nw~EK|9yo{v~9IY^qNkGs4pC9u`LFL=i^fu4L!q
z^yD6-&r0C2V1tPuTu3i#S&9y_ayS8RK4PUa&7o;2q<U@ULy%P@s1npsq`87{r2UA;
zimAm!C`m`R9e9Dd1l7rFcg7C#JJ5S8bMKOTD1B5PT>Ex5Vi8S?F<|t~(vxIbfeIkZ
z(dnM)^?S}79EAp~R@+pXgAQ8TOV?#$M#l4g?Aj7UMbc#YIjT(BK~{hmS?EkkdKv=~
zVdACrg45jqgjjH__Kqz99|6m-&@GpiorDDZIod7?{;^9e#Y4|ArCXR3_+}0veDDJh
zP%LU`1}-9t^lg}=2TP9Y<`#s+j5HT}@Q%JamTi|4>^22SRaIHUj<wGxNUp4x>v+it
zo<?x{PV|?yHX-r61bjZxPKR0y%8#Z+1B^&NR3I8Vt<fmMB2nq3ar&sV?OR#j5}CI2
zArK3a)2H}Yh_mwEc4x5isvF#Mwu<_d$RvacW66Zw*orJZ7O_Bf%?caz(d@4~73(n;
zt1<46;5I$W1HEG`(&K<v5i6OXq%#`C76e^dyRIexJpF>8C|w;L9ZO^5uhk$kf0cz%
z4UhI50grq4c8`S@TY4aBV=OVML;2`C!>VdtLhTeO`}D)~YbPejFv*12+Uz8BS|my%
zdq{V`-;A8Mw*DWB#aschw~-s$8@Hg_aFq0Y1ZJiqiMIbC&-%H*-HRQ|547D*w@iqM
zIe({Bo+iCou+E0G-aP*{e#Jkz+44eYf&3B)!=w^kMCB~Rm(POIcwQtX)H$G_0YL<o
zMYD#Y!B^y{Z^eW?U`I1F<!Q3q^rtE^tn``&&&=ID(PhKTrnSAvB_l6!vT4eyvg|1D
zTFIVl*?e4`U*VngnYG=7<8RTaA7Bo;GL{PQqeZ$2eJw{I)>y9&y_EHFb~7jyZnJY&
z98#Ro12rCSM$jTpdo)d`(gSJ84*<0#FLv}^NjusMD1t?P0-UD=o>Fic7=(k(lb|S9
zl<(7@%XK%^BEl$vFB1|*oe#YmntEu3ae^)}3x~=&^)pxM-gE!>c>BN=^7_N(75J@R
zx2~9cmK^d-7U|e2?Q#aMMJLguh%ud#=W@@ae{7mECA86E=Z!xe4u}}ptn*#$!?soC
zi<s*#Vf5|n$)NY|-#>k`=0uF4(D;Sbv8N)<C0FH2y(|c_T)26?9>360pPM2_3_Gh!
z7v9<uvFU0^3vX0Mo$2`CRNBzE`!+sq=?)41kgBR)wo}N!L3B<iO#rU>j58O3c;sQ}
zc>}S)w`fRx3x@I=0Ch&PNG=kNS&SpmV2wg2_NiT$#wAwqN&}HchD;O-SPJ}<vk(lj
zFR?yaDm$dE_kFJ8jQL3#g3vYFQR3YD=`Re6es~<pJtjbx`j5-zcY0m#I=6q_TeR1|
zMbWC;ed(tZYZ<pvZXW3!<=3xXy@@d#S|fMwE;)7j^i~9s7N`9pDYpaK#__<!?23zv
zm%#+y?`bM4Q~pq0&4-WK4yiWY1=o0FUF+M&5a}EOMY=ev4N%n<^gV~vv27!wqu*Lh
ze)1BV!>nI+=mwfli}phqQuW(uhZe>BfXt@2$Uk0+mP59%L>i_=DwbU{<=TW^SZQ7!
z9?N|+2V2`4jg8uSF~i5deYHzUN}g{+{-R#(k@QLh_bvG1+BMg4Ctv--UarlDAwNjj
zg!IVV+Z|QenVt`!Co>T!JS!I?#&vV-OD*ZZ&4sGmFzv&>>iKEE55_CRt(wyU%h7Ca
zKDF~>jzdb5EfKyjLC@_4@jHU>5<$s(tZT(eZoR}VyEHy*@irCexU(sH4d4B7uQTC%
z=$L@8%FJ9SuBQbiM@GtH)JTafrn;m`^d#gvK9}t%4|RCxUr;>ME}FT-6P1pJ(#U7e
zPTzHl?n`O^5dtNi#B#`rH03u-J|BjqYEU|deE=1!6&>9A`S)@yPCvP`d-LCq(WSSD
zA}LVkJHimuee`?T>S}8xCl{r~40j|9<+d6t_jGnHGchp{n&;@{<u#{b^6O$3*R`MW
zJf`#Ccj3c_1cb?w_4AS?JHXYetr50%(Of5&#3DmRd65*9>P~c(P*R?~xWeMihAVpe
z-N~UC6U1#b?+yv@95Y(*VPn+IyLUAf9eN%g6?J&(ocTRfrlh3gm-xrfmp-tYOm7hp
zK33kS7QtB<hgrE01ySGC1>Yu;G-UR@B>zcrIiwm^4D`{mLh{>3zBhS0<)W}~%SkiE
zI&HP*DI3?!%*+zAW4G6|_CDBoS2NQEH1b;}u(C!u&?4o<vOevx2)t}zuI0GylijeM
z_4Q{?O#c~r=^djGm&jIk5S7y>ujWB_vsxm}%`LBFhF;0WId_LQ^%{B7=5HRif!McR
z$C1PMnp!$H;tw%QSin?`u)MsD&@!A&QPa?f!2cgScz_8YLyB3D#k|#VT2+-oK~MKk
zb|O5Dg!F23<KOeOZ>lxkk5UhqGN=jPVl_R#Gz-H6-@SkT26IZ5E?sKyEN~2`VTNtb
zZOexAkLvgY-yB8<i?vxqWEp<ne=Ma=KBcZC72=m)(y<wB6LvX_rmECz;6>f&lr)*h
zQrw0r^J$*(1YzW=yWfueNYGW$9}uJ^ziWdd7HHoK^|dvN=3eip+0arugvqtnk4E<W
z7(>ba<X#IyLq5nU&7~Z`tU>cgndaMWR?HRV=Sp<SniXp&B&>22yPc+RlKT&A+43sM
zY;tncR3--X1p3=-^h2#V8hL8(VhV~X^RRU(o<I-|DD^D-@Zkf+6Pg8asyw)drCB{U
z57Io}tv4_*_yL>t)RwK9sGZIQNaPJPr)SvCo1dngq+gsq@vQB}w)xc{U)gENI1gTQ
z6x#J|x*+oAy?eCxSch4jXD_zHs}_P%&~Dvyf`7TKWN-;PY1Srw?*;tcMJ%()jXu3b
zq45&3WZsyg?5<slK#P6_#@Zchv!Vj55b%ds$0QuLK~ZFH*QDLy4_6FS81Fx>tnByF
z_j;T}J~09JKpE+*P4~3O!4v<s-%UY*3!7pV#n{YD-q0|r$@br@)2gYE%%+v^2PR%m
zV0kt^QHBP=``62M*zYgU)Xaa+v*(Ow$+^F8;ETsY_od?I@>GGC#Kc7?bz!jNtWU0@
zA>tqDS}{kpnrq3-8_PKhq+7cvH-zz=uUNR&E4HQNUmT9U#kuO$hkhh(5G~BK%d1&q
zRr^wCTXXeWCNZA<euDZZ<M(nNm@GPmcrw$|v+R-z<n-Mn3N+0dQs+>RbGoX;-==D}
zgU>XJZ~?wN@bg<mISAE3bwO`(fgfK}gs<kJ=deV_5H@QO<@kvcWUJ27O1ghmEbu8N
zr%{>`K0w<4GLV{i5F$82qpf~_e&6AdeK}9f>V)o<uxk?hrKb?=8igcJJWnm|_4t57
z#)|U5()0WG@27Z{x@<Y=w$%LGC#YWg6e6fnJ0bY@K?{qd*8`>*-3Ztih3JX0q%W*b
zJ}&Jsm0LB4@U6eTiTR1n;vDSJK<$Byoa*oMy82xwA1<=eDku*st)cXy8+~U;&)2W_
z-9|Cq#gQhl8XS!x-=ebb)|+6}B3>AH`tvMAezbrRmX+1e?qFRC0>-70?{vxw90pI!
zp5f!;+aw^sg^enfa4V=uHlCEP{0cE?D}?qi3WB3MLga8zq%&NX&YYbreA!|V*c~(;
zD~!z8YauT`>w8N<Pj7C3#j|`-7l`3mrmRTIcZWX4EfXe_$!c2*RS{ji(k`K&XN)KM
z*q7%e`U4r6c4|4ii6sMHyk>Z$hUi00Z$%Z_6PLjJojzgnt$r`1sr>Emm%aQUPu!Dx
z5!<Nm{Q0yBDZ(<Vpt36(*s^cmzFBJC6^4_y4@WCS3F+tGh7OvO?%kJXUZA{5p}_1s
zPD~s;Al#{;t9u*9uU@9Eq2VT~jzuj=;$B>8`m>p9Zrr~81_h!S6kv)-9Jhaq*@vP;
zO0<k=hEhsh8$jb36&nXf!RKnqZZ_UuT$&^xAOHYt#&r|_U0PeLa;DM4FP-pY;ZMJ`
zu<OpVAPZ~u68$n}eqv<fB!+umL8wB>&^MlQ<?-VkXp`rnJb`R3=rN6!lFu5x**=pG
zbGbV+oA*yvim*1%dAAF%AtbBz-`?--qmiW+A*W8A`YT!W_|tqP8FBH|zP`TwTGtNE
z-!Cd^fMjY7bhLEVx7U*?S585Ge%COc8>OMPmsjTX_aN&xwzT{Q2;x(yn50}To?ZwB
z@7>Bu)vPhnGJ##QM#_E{LMWK!Rnxuva({JtomoGNNQ6m~QuY%l9;Ibu6g$IIfwQwf
zXij{!ITJzqmrHtjJW!K5NuzCVi99qvEiLWSJ-MkD1jc*U`2xDY3Ouo~v60Z-X`ZwB
z?-w{1_r1NZyn1zra?sK705bBnQ}h~B;?gOQrS~pGWw;QMZLW+I;SLM^x>McmPh9t&
z)YJR!6g~N7%nbv|FEbd+BrHqM?*p&N3xaFVw%*Z>5aB7bkSPZd@JtI#+(-I2>#O^;
z9Dv?<Uq#~BzT+(12&-a$=?q8nNK|z6OXK~AB0p?`$%F_#5=$OQDX9mcp*`wako&Us
zUPIA*c78GHdt6suQtlj`b?4|6v_j8>B+447VqzNHMMRz{#jZgR1dfc1oCU7vAvHB0
z*Gc$fR(Gy;(ke{NaR1VHaOlXBJAXlB{1cc)b1L!#MDXxn>+cW2&>S{0+6F(j2T5<3
z2@_<h3(Hps?%et3*|S?<>0NtZf|sL^CbEajX1nxI!X{?I4RzcbckcMs@$>Q3f7Hl#
z8aRLW*fEfB(;MN%7Jk*+7UJVGJ4}kQcJ=Ccxb9%(dBMupvF`s@X;&Z9)D^{_bVXwr
zl&nr>_*h{mVxVOffetX^qs<cIAQN!lpg5Pot97LcYlspAjYS1DAQ-i^<7FhHrAnNG
z6$mXIw39{JWfdA>d=HnA!PwkXaPD`DWXb;B{ijLWckg}Yy?f6&_nh<ll{fq=((}_u
z*Rb=qSM`G$=8{(Ht6P4}1VCV=@jiVg;LSrDKvp8#**lV_$tx(}v#gC-7UN@hkB4@P
zmI2y8t1z)>`HF-H_N0a4qkI;$uTjq}9X6>z*V5t*P4|b%fc*teXJo!&ulC!aAsZ0w
z0<{ZHW<6dsCkRct=2))H7NNIr%gbd8Ki1*|U$m$G$`$p}lJZ)fJ1FzE9B5@J#l_qE
ztkxt`1wdn!Otj?7+$d!BoV<QL@WNe1Q-^$GOZ!KF^INfxLqG1>T7P`y^tR&(pDdf|
z=s#0wy45EGd(`;C?ANJ`Q)e)I_mh8uA91xZ^Yf!`yd_^a#~nO+3!Fr{;a|pDt3MCX
zJWHI1v8$|3&k5$e?YTp!2;3odRK?2Ul7_~{(4?dwG2<`N_`<Z@-%}oIEa<HRv(gho
zH%y^P5DGxeSyA{Z09t*~o!o$0G4@$0&^z|GA7sNJTSU-q*)VFW6*CrqK9-={nc3OT
z5D9lc{t3!AvW*97a9}d@^FTaVid$IaJ;AVfcET<>g8<Phus2}g*zI;RY#CH;SF6<<
zntp%pw%qM@7twSdz7?E!dh8pUEmiLdO->GmYdFxFrB_V$vD3ujWMx~nKE1Gzhdk1Z
zjEqXat-e15utdWLU9ZL+88w42u)CGHD)*|A9bRV!MVA7YL^E@9VKFhz>4`^HB44JC
zew3<Gb&eh=MP+CH@PlC=Zx*O9enV;y4-Cxr_&_4DfZ+qvV^v#TzrjmXElx<5A|fNb
z96|9pgCN?WC?qZ^WG(?Qn!b29Y;>&UDpAT2Y8Y6OBVXNjI4Y4y&h8Zd3itQC&%kq>
zSnc|h3ntG^D4S(d!nimF3}_WMFSrkjkwN7c8BqfTNs7a^3cg2UB-%E0lZVLt9?<zU
z2%WHQjm<=HkCl~8AuLnhiww2FU2{>_Yy{Em@<cQhn5g2wbbUD1)iE_K^UNk*VD{`G
zyqh{5g_R8)&QAEAI(=ByzI{?0Ime%PD#Tmn$9w4%r${dEM@9R^hK5tfFs3MgiUMBt
z<D<`jnnzKn`^ag#$7ZvsN<d!#WQ^!(j#(n)KmyJWCn3Ck#CtC`HJ!ol>rEo65-xDq
zjva%=qPFaF2#Yl%B_Q&LyX^pVD1;{v5KD9MM(LbIUb!LYEL2&yE}wjc?k)*8KhWp!
z=f`_PfD;+%I!kUQc$?26v9tZ3)IemVrLkn`fmxO@8hydm`Ou}`42*?K8ci*%i=gtJ
zWJgvwI&0?iV-c*iO!d@O8IkI0<DGpmBpLR<|2&9&cdbRF#jHxwa~-!iV1o3$+BRms
un3!jf(-GdPnzhT+DO{H4A^y+d{`M;i*Q&=m|B4|=@9(7VO*5uQtNsCAP{Aw!

literal 51911
zcmeFZXH-^O*CmKKgIN%TtAZj3h$KORih&0ZkSHK1AV`oPIfDrVK_n*uMS^6>8B|1+
zAd-=sbIzHbN4@=hJx0~&>M^RS>&NG~?|YH^gmd=UYpuEFoNGHvieKNg{qS}&GO}GH
z;VV*PWScC=$Tp~L-HhKf`Mw>;zc#ChUcZ8W<IjRnjy?Xh%}`jun2hYG6Y;-w?mZJ4
zWMu!4k*-{lv3Nb)Vrj8oc5!V*BAayTn8QD+_piuYxwLUVx8%l$PuH#c^vQO^o=uf)
z4%F|C|9IZDol$?-<sSy#<Bu~P9`C-o`-{VHVZO_mWB0~PLi^nLl-tCslsxr$kG3Wb
z#SF!W2lJZN55$Piv_y#)QK`HBz9#%1Tk*k>e}5*^5PE#*?_bpRZ&UgE<MW$z7VG}}
z{LeLy_Dz3&bfCQYzwpHwo|Ie<{Ev`3;h+4a(Ht$OeQcJNmUVW#N64wv!;bF#a}m2a
zWy6k=eJ<=V`aWPHA{8NFWi`9+&wn~!TlwTa-^`o+n|D&)-9_OM7<hQZ@Xu=uT~2&b
zBDqp?i+`o0Qa2e%tG{;PwMgunHy6dDq{X9BswkfQxp4;<_l>N7-b40<VQ=o=A9ueK
z9$)|G=Zmh#KPizb=a{9@WTu&oD3YG3r~U}OAV1e?ofycW9Tpx=7i>HG%WC}7mNeDE
z&7m_7ekET$as8!Cj@gJzydq~rczC}fwf@iLg{dC193dBth7YQ8XWDG%l!b?e8<K<)
z^A}^R=0@WkcTqDQJ9g>x>C@T6$)(fnPbhRoo3nVWrnR)(_H5ole&nZd1%H$%OV*X|
z-@l8HNH@n?^EmC6EshG><(AE4x9G<!ril>WTm15<X`^=3X&xShL$?hdVR7CpO!YBw
zbJve8viOziG!0ZoDcO(JM0?Gck42jf)$Mul_sNeRyl){T6QFEd&Z(GdkwkZznfXRk
zs9knKX6N>imYn)A-V@hcf7-83(H0dI;koGid~?ZaZDnr7w*Z%%s#SShHdc=L?imWf
z<qxekQ#VLepP%j6AfTn!mT#LqQ>T=MrExH|Iv*@98!bg2o~)tjTKR%C|NW^@n<@jU
zpz=r_<KF)4p#*6uDbE@6jHdX^%=4i`nYUTWL->{4`DguSN16_ub?olGSN@tuI?rlm
zQb9s{w&3cEgNg-qwpY~t?&aLdC){EOS#H1YEf3lvHY!p@e8*|&$ZtJH1B*k66#mUV
z;Rl%H-d}g8QGH?j-IHFYIrHJS?=4=c?H?bl^U9G@J)U7c)@rphk|C5Zmr@~6t(Vbq
zkmD^QNkKtjuq7v>)p{)N)ex(j%l;jI_6Q@z-dxqm{&((-7cM9r<u&<P;=|+<9L$Vc
zXl}k85g8ftu<NVbuVX@vT3E8h*(L*@*RSKWt0M=-I|_}mZsVWEl>6?Zxl`h?%T*Dg
zX=+6-M#Y)x#pI^g1K-+c?3W+vHKvkyczBF*TJY+Uva*`GcqLBtuRBc#sv?@3cHR5&
znkSIgG-f9IMi7_CjT>o=tfx+0XOfHi8R4hG82uqwG#2X=$foXSHrgDGtIBH8Kd^s)
ze}Cn>#oi!;n#dc}vBMu9Z7}Wr=5c(eX~c|5{hn*(QS)Zi72Ao<qPn)csLnj|LaM)a
z-0rr~fO6MSUYSx~=4yJs+e8>(Q=G;QChkA6U{%M*m^YZXqQe|oZ}_ce`xA0TrA8Xl
zG*W)uOZiok`A{7f8ZTVYf+yq6#HH@KI6I=7mmnMKo37Us>8D~vDi7k8S5ph??CiuF
zys==$KX|TZwAtkxWLDgt)Is%HJZdy&Okl_qk&vcS%V^sF^OH`&moHb8tp*|#^KC3W
zx^)<I>J#GWMSc6{+U)B`GTIVO-UwvCMLvA^Fu7?Y2H%Fu;*D3yYmC7?4+WdIPAEmq
z8SXaA;g3oBn+)hI3d8MI7Ojv)mS1jBiV{ECf>6A=Iy(>*8Y364C{S8lRHQxKUs*R)
zA+Qv8dm<ttVgT2fqGFHW;2nxfDUrQz$*h!KHuyHs-~W98`~AfmfsGHiZiMhDaO%`-
z&05t>$hszf$2P5P?n}<7d7Ev$)luhgovSW?1Jh^Aw$`(j)0Nks%$m&5jK0w<56td#
zVOsBNP!|`#Y2W>A4<4mAPd<gf{Kvqt#xz}zw`5^G@7x8FdugqQ*<_K1?k+rix{-fr
zIAxD>gkqYG+~=kCPftopOJ965Q)52(=T2oFcx273?(e2L!SyQJbVzYZUfERkXX|Sc
ziF8%vLhz4s6n-BpCe(CSSC__ErH^*>uDr<z;kR~76|YZF7R?LJ&E;cONWRi$Gv$V5
ziNNz?;^$ZX>VLckkBZZNy8k98_J2*2OT?`|U$}coc-)c1Ahf07!CJj4FFifIXUBe3
z*VE_tgr<7SB^uLL*uH92N8YH@9dr7*sp^Ajp_HC_=ND(I`3@(a(9k<E^CC(DzJKHX
zV$Y}DyHxkaaqC-_`dy!BeOntVFR0x#8)YF@WX-hX_3G8`Nv>-zk3?^wv3PTtPMAsR
z%%7`x&nG+{vfkyCm&EJydm@BaB_{lhjEpWTves-IK#<KWPgN)-UN9SeziG!ot+~+_
z1fO?lk7v_}FWc8ZtmT14a_`Ik@vL?TalBrSO-qE7uD>Im`+G#*P4{Tasout1%M?0o
z?AK#%?AFLOuLeW8^a45UoAffYzq(Rgvc56aRv;LjEgE~g=uiD|D0xPc8}%F&M`=nr
zO59D2ZY@g4iM(zZ+vPwN?~X$(JENPCGU6AImqRb@iy0Ug;5F(N7B;osPpf%6@b4yW
zuetJgZvVr2WpjloENwNaO&H~kw@Uh1MS=DM5q{o5LDU~|s|RY{-+XsDW@&z+t1h>&
zW2>SaQsc4Opx3V-l;6L9|2pU2o#L=@>~t7PNA~#V9r5+b*(R0wwo74@9wsxj^0C+4
z4ts9*irBDu=c}fXS%o^vcUx#}BvF=jMC*^)2J=}OeM}~<o9CfTZ@_)Use;u-T^aSi
z$s3R2I2LcZZEdyQ%67c{Qt-pCR92%|eW}KM;yl6Px(X^PA!Z|u5fXwcGAIF3mo8np
zqGojdNZ?u3$1_%SaSA$Z`FYrW8vJ7A115|pVE{-~;Uuri2}_Yd`pLa_EPD>@q7}Gp
zJv*GV_Z#p)5SLz6-dt<!P(lt%w-swv_g>vqB+V+s(TmiU@2-D?@SjiC+j;t48&A*F
z-%(0z(a#96?4{z=Ym^~(5<)t0dGSIT+3E-1l-SHry#yBdg_an1n~kx@+rx5kx84$!
zd)u~cc$rsWha|o;?%@MeprcZGEji}$v2yWo^@(}2fj`c7?ff-j7TY>iA=q}<-D14`
zlg_VXjh|Lc83u{SZ6v8{*Bliy^qHLskL9$m;QyTp-(r`BdjE|nvc0)c{t3!CI!m)7
zI!)<%sX`ty4Jq@56oNI?5`srlhvO7droWwVe=37}s7I-mq)QsCC}k~(L&{Q`n3%X!
zdh+DSLA;iE0yUU9s`_+PwL)02arnRWHRj3%ve!1q-nE0Zv1t#xt`X%~)Q_bW>D1fD
zC*m-tPXBO9g&e+oroLcR7V9tN!|1^;_JAuW#Cnvc1!<9ZTD=vaiC8KoHny81O&RjY
zA*RJg&EEsiA}{U8YDH)fX|y`*>WgWVTx~1^uVK4`PHjvC`BC2Yh=%MQU!|Him!3!!
zHNCq|ag@(OvN}ql-tUeb0c!@nd7QZE{P*ESrJq-KbvE1mH>EpNsXr&sJn`p$3<W=Z
zu(CLVhsQK$(&Hn4&07A?n;k?R{kQRBrz_jZ#!G)*L`Ej!PV?V^mVfIh8Jo+0`*Z#u
zIP`z=i{<{wF(30S?08k!@e`Z<-BIx`nJxO|0JlV7;eT<qvz&O&%#9sipGx;M@YJ@L
zRNp|XWzRO^)gl4S7F}-m>tN-(>tE9MByjOkC4D_Ev1B$>SKc={ncjpn(qnj@z_Pxl
z#K=Cbv2t?CB3ghDUSV}Q$jBVF9{WUnt=OHm-j#~oWGruP5Xn~F$S4_GDH2gWfJ#%}
z7iymn7k8#$h+4hdgty0pS3<4klpotQ#7+G!?&dehs{=pZ3e^cL1>R<nPZfH(E$VZU
zv>bwK*Zhgc1p|OMmE?I(k-fhSm<&#qvbviwL}<Dubr$pn>K;!IHcYMj?!tM{vN1xv
z_$9rsPew~sbv36+za-Ml%2L}JOVaWe=Y1Nyerxkx?t4wKKJ|*L2v4W|Z4+I^@utY7
z2Pb)ZvRKCZ!d|c>t5I=iNk-TEg}YI64`%g+NE3j3aUhE6^l8$r!yG?-<W-`bXzgy%
z+Ak;J7G>#<bsJ@sOw;TS1p-ovxuwkF$7Rq;phIndMc|iUDJdy$Z|`t`4teud%c%VM
z&KFWE6ec+>iXZMi($5*;LZy>HSCG9tSvvE12kX=61=>;nm$ZTjC_DoJ_d_c0tS!oO
z>Nnp)C6AF$49PYdi6NrhiGr5ga_w^mP-vZXZ{7&PYJO#pz)#D-SFhfr{NNSEp07r}
z@b>cRGH+^~d1{m&uaI&LfllNwJSMx9nR<sFe!**QRO~0ik`9Fu&kcxKDbISY?)jb*
z)8*W4{n!PU<|G)KmX49+RV*Wryy8Rc7D-cm6%^V^Xp%Qmc`IpZMrMuWFS&-l@oLfM
zMs832UQ)t%vjTN5-bh<p`(}gJH*||*mvv56aA=fxYdIa+C;m)5D$bYnj!KOB5B98<
zQ7tExFG=dfaSgp?0sBS_MMi*d<dy|jrlqg^-<xx6RykGcrgKk^UdE{qi_gO6P^HGR
z_)eU7C)PLl>B$z+8qWJaUP~1RhJ@(HPyH04*mQ<EVQBrGbb~gPd$vL4n#n0CLW=eN
zpUsAmbia*o8~2Lowmg3P_*~wWq9_6k9Z6*Sx|8zkKjBuob#dChEXs#d^WR-}4+Lo4
z7&in=#;eWd)7xOTy3i-lxE3Y2wp`sf8fw3)y|Pjz$~t51CKqTMt(X?GFc_O?qu-Ph
za<{L^lU~%dTr*{``Gcy^$H}a$EV&jG5ErfC2%b|w%LmVnCg;-9gba<L^iuhi9x%Ls
zW#y`TlJPqI!LKmvPaPD%V?O3tw-57MrB<|(ZUl08uwDB~scg~ltb;u5^8A?nnr?Yi
zWF(`YU|Zw;3U5EZLq%KFtD_Bvy=z$umZb(w8&kF4WoBk>y&`R<l%b#2TY)QQxF*Fl
zGgzDQvXUtw^Z4<mt@6~tuD8^0ewbyJ$kDiWuOEBegN}dV%f6l+93`JEmD@|bPfOF0
zkOQPtC2H`&=fX{=rlw4RKn8~r3&^8w;z$w_@`#uXcB6gW-S5#*HWD|Tt)JC%usndh
zFZ_$lVF~^j?`tTXzS&{SXt?Z`n%YuP70%VO8MN}54%U$LGnCK}RN=-S+pQ+v&XV#3
zR50bl0}*T5b$z%MjbRkAOV<`E?2n&wy&NST?Ct3pX1g>i+c-r_<{*7^TdNU*U9cuy
zPYL&N%bpsfh27E!H~#W%#H@70j0xS<1@qCG;a@2d3->;Kb)%*~&?;W{R%lC6aj_qR
zddkCF$8CJiD5#aw3fN?Rq1c`uiSNI{dRH*lfP1C%&g$MGVMdllhUDC)3^W(2@k<C5
z@1~JDAdeVCI=9vW+Qp|PEY#{Ui7I&?z8)41Pu#J6`}XNZ-9(Zn9&`loin!-A5~fq?
zDq<{6yZR(a%El&F#eT(fq&Z7^VPWA<x5)dj^Xckb!P)@P%Q~#v;O+0P6>pHyv>|;a
z^I=z9GWOD>(kQy*t(Kwmr|Idh7CP>#e!OW10l73ZG`@p`L2rZ{xQOKW;)s{+;<N{W
z?CJp)Qw`b#NK#KW@0td}U|?mHz}hd(jn$)-j8D#JHhR%^jN>zv7aiKvt6rxh>d;r1
zEYCkgzk+oHDIq^ppIDE!OWVg5U~n3_-m%W&rpz**X--Q?Nl6u&p(ylhw|eyR7kbat
z3hFg-V8@Ai0;rzQYtBp(&RexXW8@i*p1gjH^M0n<oUDYMT|POjKpdh<!Ci1QbJ#3L
zb~QRGgz?;iE13-sxQ3h_Inh`>PXhV%-t}|cq51t?W;r*o>Ee|leq0#iOF{Sls!lmW
zKiCot+=(NqMKyS?C%#XQG}RkWMOAC3F$r<J$wemBrwafEx_-giC=2|C8=W*rA1x;-
z)yiugJ=$%cE1c3)@Op4v9`^(my7v|Ih!~feo%Ns$>$rFOkOhTt>ir6u6vK|oLo>*9
zPZHX~N&8}#QHzCK;yGHahL~el(LX%RTfO-5=mkxkn)j-DZS^Cg;34Ybmz|xRdr|iU
zhOF8jZHcowDgK(W(qBaV+pA;8D30wR?>QQF?5Cv_7TXK(-KQnb+B|xYie1w+Emt8$
zv$r8h{n&_CY0o)?*o@_9Xk5dK3)m-FfK)C!e|<nK?CmLGzalg-BOkALfP;mMY`0QB
zqr$aPKh}Em8`$lgX+}LF=wBJaO<6PB*SFZtwa~BTThHkab!^kEPhd{6DG%hVGm;qd
z0*26@AMfCuDr1k|@)WcjOTUnkO>G(o4*r=MX#m^^Pft&q*3NYN#_b4?l%KL$fTx!i
zK_{7_M2_W7y=-&3@}S|vr^Y%wQ3lc?0Hz3^Mc5e%875IaU}O2qmmeP?zy34i5UuUB
z$AQqk^oCBN0untNz8Xz|t%p-wGj@q$@;y?tl}LAYcfXf}KxKSJYYck@pER(!PQ!<{
ztFsve1NdEXE31J9j~O0eR8)wSNMDF`0xq#8+f<i-ZFx#WLV|*)Zg}{CEjrQciLcbP
zZ!T>>`#O+2^`rXLF`>_97j!JcqoRnQ@eJ2*$@a;~f3k&Q5HT*3q2E%2ltxcS_g*E>
zYOpygg#g9i3^onF)o`su1)Z*umWT!x;T=h>CU_5|_`!){+Ip7*Ov?#lSrN&`eLv)s
zqobp<K|=Z<aRIC=qf}2VtS(7OO1?43U$};dtXk*`O$0AP6#kW^If{Y2Sm~&j*o(Es
zXA!8hHsg-~1a$cOHCwVx=}QWxt3=lg#c$Qye@0H-6$LK=pDuy;%V5bJzl@qM3W%Z8
zlAX4StVwhi>oRU0?9rws5n&3DVA2<C9-~_5C?X<Kwdv69H((AM`}#y4hRlvsMZBo!
zd7EEcv@%^SQBqOiN2hE(k_IGj-1&>?rH3Kud4M#vpoEldXKLjrn()P}?b(|)Z9*jY
z(M5xNMS7PNPAYN<<kUqJ+^o~B$hT4gM``+!504`T_f?UtVz;0XI_2>^nj@E%3u~5c
zRC_=V`}618lKonR)d>Gav46f&65Gq2Z}NHgXJb|D&ltpl@Q^`s=FMNfekK2U0KBC<
zutENp`dk$Hk3b&d$l4Qkq^>x22$M)jKbD;LopQ{xLo8@imNFNoH|gh;FCJLN`tK4A
z{zT)QW;HW-JZ}?1v42i=7ry&!!P;t0o8Ey$UDQwdL9NErXxY{tqkv)>>oe^ej(2u-
z+0N!KuFSOwS$({6>Cz*%lc_YhJ<i3H>XBjrYCcPV&dd3<At3_%R@37Pl3uyFxvyqN
zl1o|G0h;HQ>@3QFMh6x4YJrqEvq$%R@eg2-GH}f+bw^7!h`6$8w&q%1QXl!1azC18
zb)P<yd_t<4<y?z->1}t!J`(+ofjku~WCbsvf*LMzpUDd7V!vDUIov<}+0@0v#b0It
z?yuA(-Tm~~VQC6!-hXjsXp5`*M~8KGv|l<~ydHvk)I`HeAa?q}@#*)IENd<1Z3}L(
z$5U@IB#HZ<Jr=I63MOG)n^P5oL=&ZYSuw5sgBi~mZct#q#%A-H>gAiBEz&G?4lw^h
ztM1UlXhqQ~j0}0fX8uFPB0oixsJM9gs{3N6QC8f{1(W{Wv-7Ub`V=bat_r}wX)8d$
zezycn`hOl@+p%Gw@|~0HEJAP3i)aqB;Re;(p2YhTD0O0}j?V7x+{j_9^|Qx+J*me!
zON5Tjy`GSDZyI5#dXa^$@+3ERhRhNNn0KW7q584#uQc1ow#YU<NZ-38*GiN7m2wIo
zo09ak!*KiqCm9(dmDRZKBb4s40CxHVFSShpibJO<TP^#J0`Gqtn{;*EnWony2M&L$
zVm&Ig?d*}s(QRgEcN8f;P81KA#M~*cTkQ6dc&wk2TS6_dwz^UqB|%H7QZ{diIC{a%
z`_>$azE9JL9Qf0j%ImZ~LvNKp?Mec-te@?+1yNm_V{V{v|GuB)g}44(dWs*_xd4oa
z#v6O8?Hq1OwjzZ8$yZ(iAPrQ}-%b21JW0cz8pm%+H}Gi-ZR*#&oxMn@EE5^eb{raP
zHm;~OC|EgYvNHAKLgJUUT<a%wiFfW03?*P}cgD*ggZy6x?(^IBo$Loptpjl0@RiMU
zP$qA6aY(?=a_$HqVlWGe!ciWhaN&UYd5d7PMs50%rAEQ%PGV0)BHg*&^rW$ySJlm}
zo@6j+az$K%E=j2stqXm$VT%q(XM9qI0SIQ%GZYam%L@Qx^dvNWthH7LzJJeT@#oa_
z<s55~3t>}FNlx|-3>-8ELXYIqYZUghTb{T+(wcW+nC)8AWKU_l<(=XVa2@|d8=mO^
zEZiJ7WMID(#CazqefvRaZ5xO;b-4v0(*Q4j1ftLGDcKsO2XzH*QQY<`jkqwHDMS<@
zx@bTH#Z1Gud-v`YNh?SDC(4*R%j915g(e1}Pb6*6?QO-v(^dLlp~63JVF7>7K0LF5
z%z?qh%#r7y<=SJKA1Y@f2A-Y%-Y{auu2Hhz3#~@8e#ZCGQg*OF=OE)Gmzaz+*7l{l
z)XS#n$g<lmnixYV+RHENhh`^y82xPdTOlV`#IJZ%H8ho?>Cu)Z#ZklaV&H}<Mv%H&
zh0g(`O*D~zvKn_}3PJZAdq^Eb>J5-*X%Em=)-3`IPf+XP?*qS5qCiQ%M2c`nhG)~y
zXaWmh-1%i&idxZj<62pH1yf>+2@L(px3%`L9juOWCy9!t3^Fk=oW1_?2wR)|S{?x#
zN@}0TGY)sGpj0UpzpNhMC|H>d(gs5<3xOejf@-KW&pQ4bP%sCsgdHG}8<&r-^78Uh
zmrGR9<24_B;B$dWebZtmf21-4|9jhC83v)U*S${OD8ts%KzDi%05~ok@&AfwkHkR6
z-mtT?^O&i}?hGHXp6*u#)uwvx+&R~#5iW>bD8WG*rM>|`*a5F!zuwCx7R;L_ywfbF
z#r5cgx+8oRKcOy3OG@6Ys;UyhRmB?xaT~DQl+e+MNz1+Y?wTe@SxrPvUH-j$_xy`q
z98&5s0dXHXAr{CH{Y~K41Fk7RVx@_VjAOc%S9RXqO**VDhVU&{GRV^)KGVu7yVeds
zTodS06F5ZfD4}Cj@LrZ}O}CsX=Z-h+>gp;-YAOSPDu!Tvn033C=vyfyNs$nZ1jgjX
z_3wayi!_@m%8`HYL1p$p))s^CgdKd?Gav{adE8r^8@r<h5~SQs#-jepKX+^<u6lHJ
zIG+kR8!Mm41+1v*%pS;Z!OqSe|L`WQW%r&?4ZgevrBtmwsriWVy2eBH=9*7WMBc^X
zmW{ULlmixN7qQ>{NLJ8u$9`o-ingg^|Da`HK!CzMo6b&kVe9%SbQ3KmW34S#wiWzy
z-qCZ>b2Bdzbsr0VQE9AT97}rE_aj&-##E@oHjh%P46^ucYvFO<PblZ{FW!OtIR9YA
zmy6Ulw(d06rWe^Xwd8>P{FB6N8~(CSg%@tl6&<=We+H<$oaiHraFyv5MjaO46wh}}
z&<K2<diLFV{_&wZHkAgi-$D-Sbzw@_n%TzPV&aun4hq26iaLVF3`mE^V*E{o)#`i~
zMQk%*nT;>_7;9HLX#|=B1t+oAkQ>=O#jtpyc@iCxz?-`EXctVIblyZ;Ob&t;O&uJc
zyGUaXMIbI*%rZZ2W~{9(<{c`XCLpCiDS>F@vTAB-j+ctRKCfzfY{uvLtQn|%hi#89
zjOA7<s^rDara*E3;{~vqc|$=y>0JQzM&wMaFtAo#Rex=)pT|93v*BC4yd_Os2#gGH
z3mFL&Yny1yTTK0A>+0i&LS_MI;wxrK8}*0k;#1P8A82hE3wJ(siRwZ2KxB|j-GR}K
zzqbV#aP``;A+9w-3{td%EahOj(nY(*Q1vn-`qGoly%4<4fhL`^UfsAaeq-X?S`eDa
zg<QRYH*Y?=l()IJwG!;P4{NEr_uDVsqF`oBm#rL~Cqq_O#_YF<>B~)TG|<;iSU{M^
z)6$23rtNWA`yjJyGbgrT3;FcI2^j`H!7IvUzcfxU&sLqZ$V=pD1x+XwPwfJ{9J>lw
z$oo4X_8<GCw7Fn;@`dR`4q&<uwMv0>!HG0{t7_An31Q~Sg-#T6N)mE%zOth+u?gEV
z%gf5dhDyIZJEYQ|B4)WSx8r58|L2K8KGW5qJ8S1aT+6AQyxrvmX}DVW8Gpo!((>}O
z^tQ+wLFa5Ao-R+?cjnPB=~{+CTmF~i<z<`L8yno}2Rd5RQ!Ns^gs0|u&i*v{N_F4+
zeIK^x2j9dy1^F^;%V7V~>uk{kmgcgylJdbSFEE?;|2!7kOpqe?0;1*!=H6!Z<C!1&
z8Pp^qUC{g1#w*n~{s2F6B$Y+N^3I);Oj6XFUZipG37!Qx5nX2LouQX&-@V=U=^7Av
zd~*KRk?GViunnWeE6M3iK-~BB%)7q2tt<8Ic|AK<aI$$@tFZDR3$RKbh0nntAh34b
zBBLBY;z?bG)r=0)Lcc-wU`%Woc8%zP`y6|7k-`rb^RTg1qHGl2&%*68rC&7PV`*_}
zBuXNb#>3y{ds*4^f*nzTR6jp`B~bA0^iK-5{JnLaWoWM`Q)wz{QnjT~nN%Vh9=pj>
zJ2!|1wJQTArs<#OrJC>j<%f!R;y6*)`tR;+JvUA>HiYZB>3poALG_Tbi3jHxKY27O
zcdNy_HVtA!_tILlKXRC%J9R4denp69c$#kgwR_FA!e7|IvkrYPdUwsuvwA=Vlw$9X
zV5T7EROxOkU=2Q#KsLdqbqZ)JJPSKML=vS~s$)LAsQA-#YZUqoAKkb%NejV<Uw**+
zBAyi!K@>;M-%aa679~`6G(fr{!org157XL0lDg>#&0V$mMLWTW_*fmSXfSEzHR-?W
z7SxceA=-ilaS^2R42X!$aWIU0wAyZlWM=!)_$aY|hw}QHG7<@7Q=pMoTpN#V!Z~Kb
z8_yPt5|mgieu24tNiIU<fUZqrXWtEMUKA}l5(si9mYm^ahY4#xBJ^GUhJNQmR_LYf
z0*mhxawkRL6xq+yc9h)dq(sOWk`4knU^Y5e&nqZMx9BXEiCBeorRYzZ0$EqH`daey
ze|ShXmHPp7C`^Ib{oPM>n_dE9j}#APBpqf`ds?x!2hh0w26qb`3EZE_&m?))?Ed4n
zC_Mx#1cE9Ioa|MC@5kE9YC>bd7YF16$DJL$VF8oCt|R9qyNcZjB_3Dw4y|(aeT6Zz
z9U5`gU^dE&i;J(*MOGPR-OgTHU6RevSB}4x6xKWwd?sYVAz1vr^V%tdCIN13>=G<;
z!0}EusJoLq0n6XwdHF8#U9eluluNjMnl#v$Hbi=nmzwKdE^K?U?)^<6&&Mx|D9Fgv
zc5K5I6W{)H@@J6n`7T%X^(+~`9`HhoqdVO%bQpS5w|Rj1UMBA=&rb0$9I!jRD?|9p
zzC(wi2qVh3HUV^quV@1&fNG=BiXY~)_y7uh#|X?fpi=D$C@t)@y~71p=L-W_$2Q!$
z+>!NR?i55RPa6S;k_!VvCcN-+5JnDNw65~tmMT`rXB|$t1O534`&vr8T{Uc9Dg64H
z$N1j%v0GcuTMB;pR;ZuB1nCjbMGB2MC!jGwfFXa#BCuzG<`<U3vP_5MbVEa79(tuV
zTeNhHLCA6Ewp(TdX_7nFNBBG9yMBzAZLw|3ZCm0s9o+xRac;vl&>NL+u#Z?*4HH~y
zu1U4u;>Qgd*Cr?{1z#|)L(4XeR5A$h>*^2lG2`4gia92OCJVu>`j8SYm0F)tq=r6m
zFTi{$9ZmI@?6;{(nY*aY(S;i?7Obr#R?Osi**>CS7${%LWeB<F)@}MJ*K#Uup~;}2
z#UKmeM)I5;ZHa|$=Okkel9f<=htQJLHfI@|0yFA?%lXD;j27q+j{u{~<Hzd>HI!&T
z(82ro`W_s&*YaVM?KV75cOd=dS%@@gy(nnZ$Vnu$crWk3GlP7EMn}{jZ^n1;zI~>{
z4Q$GG3q1r696cD%05zm0UWxlgz`3hHpOp}b=iUs_L9*=eyHkf-XNewXkHSh59F1iT
zbV(l>i<Kk&+1$-Ze!g>0c))fZo?To=cCqK`<BXlT*1TZY&UAl~J^!q#l)Wb8jag1!
zZpW?5BNJB1PY+jM$0~Kt0BY>1vI0P?Ca9vp%v{U4R2P%6mP!3W`6}*a$WG4p0usL{
zoDE?$_Ix~hZWnq(Er0+*uOz48BMbn9n8OP=;z&W8K(H9-nXlGOh|^iE{ghN}{T_zL
zz2!^}>=mSEq#{PynEAMOsV;MTQwgO@;_K{lOAoC{DSI?B+=}x=OM7c(p!zx$71gm~
zxw?%8mQ4hMQ)k0KdVI%jp(rp>K2gO(qjhA`uV6XiOZKNm=2ze{6s95;ZhpvJ%K*cq
zS?*+I{s{a5jA92A4t^h6FCn2%f)6UGjkbWuMX}8QFVc~E@bpB3A+Z9t6E~9m+liH9
zb77Ar0%s7cj=<6|yKJJ0GM->HpcS=A9;kIuMzOF>Lp`}f|CB$^v*(BZdS{5^=)DPX
zn}5Fj$yHDLPoruvTWwZ$Pa)9)%I8;sm;SBi*Umu(831~HMMrD`*q*lWd|yIJ7WEtj
znerZ;7WfIJsr#X}W>?ZX7S1rOo;U>+SMLB5^`R4xm`$0&OM9va<-JP10i@^09&~l+
zM}5NIWb|$ZiKkW$5WufxImWu^k(qX8?*wEsRyohQDf$)gb2X5g*Vm1h<;+0+Au$ds
zPvX0EQ38m3d7H%#uzMz=9ZdR^lKb4DVwhaEv_xr5jusIF_|uvvKiHpH#V$Uf5TN`J
zBIz|7(&VCB^L|eqD;sEQX+IWa4%N>aBch^|3MD}&%M)4-&)Bi!xdzrO@ijFvBq@Z+
z3px**2^%&-Ve%-jR!eFc0mhB6YIB(rP)dIg0OpGAmVx2eBw9sA56Sr7C=#(h=y9FK
zLuQ_b4c`E2ymBya$Tr{F^PAK!CoMGC!;NXBfpath9}lU!s#uS3lAaY_vasT@vS^$G
zYdK{ZYxTx#$JZtHqWTYKJ*q&)>9$@7pm{!L-AUSSb!9O7E-KGe&zVPdWK*l_^gln{
zc2&T=q!Zj_QZIk;#jCG8Jl+BoYr~EPPAw9A0qvye%TwD%jj~*Jx_7^rv+f^qax*NF
zISldXW~hKI-GLDEx3dE7zJ_N1j9W|;9pY5`vX%6#?>Ym&B{ZS<p%2vhna9FMt{k7e
zOSFC~Yaf0+*h3oc?e4y1e)*YtKg4{=hp*b1-=P^+oFa(I<m6=W!PyrSrzM+-R%2mu
z+I4Ewt%s_jG8E~X5VoZ{4y_1J_wF+1L-f@7r!p(1{zS_Y-wN7nw#MVc_2oMI`Ek|Y
z^A9h3a==|jklGN>oDnl8gUaQ?qvGy2XWU(y{z`4IaYT0ijaJg0JB3s-`&-o?6DW7j
z5S22_Rx3cH$tu<q867Q6=e;LrRwn3Ta!iK~8VaH{jSG2B_^J?~dD}{x4u*tZM;j|D
zyP9afqU)@2AlmJ5(cnT^TGL2lx?a%cU5CTL!AKA`%ov$yHNE-~GbQz_*clmRdAaBo
zTAds2@~Z<=>Cv;=?#k)VzGL5IzC|bFZmyuTcrV56*1{t&z;K4Yy#oscziw;2<N=RN
zmaVh)KWH<Wlt+_{^SqpTcmxXvfcqrDwWQgtSOJJ=ff>BymDrkV->`rVXT`U)tSoi3
zn+ImL^&!PQZqccelap}^UJvDOT%AV$)(?5bQ>LNgEfViKr#%X3IzH$OO2xlQ-h#{X
zCR*b7`nhIfiJ!E6C7+G;=r$E}!I|;p;NDyf!cU<{A$Q(v*gpX<_Lad@bF#(@%^$B7
z5=JD5Hap&`6`d)EVf)1)(+^HMo1{RB#5#2%PE+rF-&>#&YSFoEsPrp*ASJowUI*OS
zt`WEs8oowGQyR1t*xzK47b8$he1d{v@wk^(I>&+?CR~+<O7Yw|G|MOpO84#ETa$Q4
zko4@%<&$Fm?HLbJ=}(?i%&Yn8PHQmJ9IKUUZSEBK{0w*<TbNfaf25K6N{Jd&WMvC&
zUui0Y?F0P))LlmDorIlvKJt_2{nqbEofK44(_AK5w+T@BMBf~q7`!}GWSJj++(D|w
zXz8doGZubxGvo0n=AYDN_-fvxNu$@Vm>cKY_}xnkWY6{I);Farn<7y}>XzZCUGZJQ
zN0`7fMq*q}ingfG9Ge}15ac}bBu(io_?6VJ7v@$~&s8DU#jUx4sb?~xSxSa?d1%cH
zFs>rWvCvjo5<&r5Wf8_<Hd>LfB~U~|#brpw0^xc~U3sf$z;7pHe^$l2dBJ?8nvbb~
z&K8Ca%D|>#a<=}qu^Z<aP~AbQ`}IMmEE&EJX3<7NeL^K5TnXWyE5d~7$kdB){WI7=
zs0owl+SOkTJnN^Z8Vl^#wsU*?%gk>mLE4X-lVh~n>F71raunI#`5PA**+p+kZ?H{E
zu7w?EJzeS4Q+}0!W7p$)&~O(5e7q6Cs9;YK<aQ(~{54O@PUll1H5m{rV-r$SQ}>pl
z1nM#S-2(>@01hAR4#!tYg6OGBP}W6mxbK5J^`fF7ZwSU)iH|E{H*PQ|w_x8C9=Tvv
zMyXElN6_-lWwe+DrSS;}v>p+(Yrd}x=gL`6F>HYq{fYq-MN@15dbNpM2taZHg!l7X
zGU!vqQZ&>(>_1?Kj1@x-D<|xEb1frgL1<}%zI&YtLN+<*Tt8)JiT-j`KD-S6Vol=S
zCXx0Qp<3xnNlTYwWkhOj2CAQGSmL*tH$3tEHJoq)e%1z}o(si-tE%8R?->~z$De~v
zLa2F~JtaQ9cx)VSl<R!db8Jf0uD;xQ$NnIz$^*Ip=&pefF9KoA2m~locV$EAImygi
zK0Q!f+$fIv_9CtTqTlh6X_VtYwDOdGr5diMAH0KZ6^M^4X|@`Qud^P}16NYF2xf_#
zatySdHXT(?i@si=I#C@2qQ1U7s&vmDWs=9J`?*54N%TN{VyMSGz&AgKiFw{1>wVgC
zEsdRfey2Gra7X){*-xA(q?ESMr@_J#YQ}5Wd?T@fa#^szY|=Ynk1Xdzew1;tpcAGW
zZbJLaMi{YE@J~y6=s|djymF*<BpEMuD78&fVjw)hC%$t)D88Eo=3Q5bcws<#&q)0p
zd*<XdfNVD6?cg5qtttcun2T=bt7eKqPb*yc1*VQu*&nB<=)Qv@<mz6TOpQvcC=g}M
ztI3@#Vba95A$H!$Q>ThSU8;+9B)#_VP(}ZuZ3Ta8xE@jWs?ysa-RcGt((MuBv#_to
z<#1_NeK`X2McHpM=7ZV;U@e7wo2;1-T3(ZHJE_ivf17#Icia7*7(Di8(Knm}6Uh}2
z5O7r>6x>r8dZjYJBpoP5@eQCEx>6EA4-(A!K3ZA>!UfaoU&461Py780nDpdtOO}L@
zyA)<3z-lf}F&!P9XU|)pJWWrVq-d5Oo&wt+_~px&<9$s#SaT(N^|nlPzF<`>PVYMm
z)0zx9okgiOI+wa<>e`W$CoP=daWbI>Z#vwX*L1%*f;3O1UIv-;@MM0uKU<*ze+Qhr
zCqj_@6-v?Xj~P=Fy_c+Jk;?&rQoiwz8!lyx8J>5^y_3He`U$&cng6S~(}CNd-w+bJ
zsA(<*tpHy;SD_w2^VJ_4D*Re5O2a1mqNZbI!^ID$2`U49_mv|d_q0Dm6TIkL7g)-q
zlGo=S9&Z<z8>}rAK3A_|9beG{rIWSR+N}TQ+r6e`A^hOQNe4G~Dz`3eAu~7-f#SLd
z|K=9ABxuW;lilCzhCpBQYf*2KYE3^K@^Kf3Ew-w_(71jZ_+qIHC5HU9RqI&t3U||d
zi&Hn~o|&ki;|&4=U5YoxcSP{A64``)!^*aL(@T(c<239cJ$xGp@b%S<=f<8mUMfQE
zMF%$3;Z?@b=#2(wKSWkqfn=8ih9KH;pgp3{Zo6L|Xey;P2oBy^&wA~>qz&P$CD?k%
zny_=kHWPN&#jh+;Ucv30U;P1o)4%n-HTN_}ojzuN?dtK_&f;qy)JK2a4^6W(ao$+*
zaA>R%Q!-x?T+BnIT(v91o)LXW&S*AM_#{`*4Z;>-s-&Q>i<(OeX8r889)c!-m!Xi0
zycsDWev8Y3dPdVshZF4}#uX?^xlSCAFf&WfHW@e`Jw7lAMqn;$70qT`(`)2O#qMo`
zG~gj-cn-e1juHc_OvdqyXN&AeT<B*@`-EH>1Bq7Z#X)8%z}B#%E)uQk5}U0UJmzGU
z<%-sA*xV03ks>>u@c5(1NaDUk&jbnBW+&v$Hoh^na6EeY2fNs1$lAnE4dDfxhMix8
zkx$Mx0A5ng+-v_3j?~Vg7qT$u7fgUs6viXorRW!BgT8I0Rpj<fqI-e^I(QY-&r&>*
z?G%&Lu6iVilrFuBm`uk;R<B99U*UinrX-K3wR1W*kt&K<v?0H`uf+OD8SG5j{0-$x
z>r6jAH6k4G4qbun)Z9M~Z$9R~y0XN?$;sLOr2F$jWkckGA>%mc^jB%F9TEda7?;!n
z4ANudR?Q2Td*k)_q_UywA`D|W1uNp>;&o#MYc$jAo)elpoKC)8d%aj!9i0e&YpTt{
z<X#FPJ|DNkoF#`T>=6~eUDqAld=+Z_AaZLQQ^y51FT<)HMEC}wT3j8@T1Pb2Gy=;X
zH&9%;M-BGbCG7Rx1eupdc+|iR>5OI%u^87W+$Zu!7jz?B;BVOiZl;yi!TVyrtW*;e
zQoin_;cMW~`uPz&p)mmZp)A{m(5l(?nTBlBSSqkf+MuM-okW62h{V12x^cH|9hm)M
zIMdFo%cq}_^G$CCsdmS$H7GxB@byWlCJNrkV<dD2<ZUq&of~L(+)(79a&ln*q&YhJ
za~p)D-LU7k;0IPNtBIDr0sE7fh=>cm=p;RT(QP;fkUrQ5MTNeO=NDcGC|U-)QW@k@
zjUPOHM~3*d0NDu@*b>29j$s_zRz=#=5co9)BWAy!3Z0K*<>zk^^FRBE5Zd6cYWaeo
z_GMNIgpwJAaS`v#+BQGT2>BC#hvZ3#8V5hh4FKeF;LI|ZCx<fRZ{n|RbnJ%hA01|_
z+g=tB<4qdi0S!WICP~!^$`_=8R1rltu)JjeXywR>yAACXQ?*p-0^nw3?H922qXirD
zGr3a#ounEpPk_BVy`a0#kvkRE#K@L{v*Pas_mU<+efg;V8;+7jE*eqaGi({HR<Y3_
zABojR<<kVWqq(}gaH-;k#L}X!UsZ1LBMYl`f`zv$-9L8V&>)9FYwnvSK~&{{^AE!Y
zFvaxy?Y|yGVwi-$P`!d{3+{x%7cd(eSHFpnTn?-eCegtWVop!MeGdHl6e@5KTI=d&
zvnIVrC=$fGQ91+QOs@ugYCII55s3M+EyFiPD!vbXqAuA#y!aL@stxRpkx;pb*PjHO
zO4VzsTSk{OX}Lv+PQ9eOoD+7IUeMv(M1X47y!WW>N`a;oiB??`=0&3BUh3jKU_EZ-
zO2gl%7=>-#3nDj?<aP3z=K@S{@Ag_xeD5&yhZ8Rd5I?A+(1}RXe!3R!RsI~>o~E{k
zO44AUe$M>x>&E`Z$J={=2hwOvlF>UIm!RE3_KzG!>6)z?8WH_3`0kODm2^UUs%zoI
zM1>vgD@#VhoEA*HJwh)Uo@Lwz_m@f~`8G1Lr&K~5a5BFq+&Xc`Zo-Aq!*G4Wn{(qk
zjg1gAp;h0NNs2&1#QR{Jh(%;pl5Zg+yFx|`V(vCYy?+HKK5P$h6YT5W#QkP}2{QHF
z5z@39CEI1sX_(T!>1SN$L22H-jhNZIScAAJwX)E%q`k784AkX2SGH_$t6@h)WH4@~
zgR)B)hxIc%9JQP_kdYmK%4VUyRsG+Y#_?+u|1kqP{htOu|I@Gk_m77D=b_HO#`*s-
zZ~p(wi)HB>*L?{@gToX2L(6H;K`fp0?c1+i*-(C6&CdIXfSI8uJfnb?H(y3hJ_lI^
zW|NM@;wOrnar5Q-NiYv0;^Mw^uq`s2I(4dKk1UN@jxy?t4;@V6J-xlxc*08FiTE%Q
zDg|9nUmp`ID=YCTaNi<gV%~H;Jw2xd1qF#;!TbuZnP+%&bF+xCvceuZI=XKihQgje
zc`}lcyL+C0?n<o|#}(dAEySH2pxo9f1s|tRuUaKYWfqnMsS)X`s-Q_N8@X)2ch#mJ
z$>>0<8=r2Pbvsp$5|o{S9!P8Lrn8f)Vz1_NcSV6tyrrk>`c|)yK|mlR-R%`-!4fb|
z`|-5%F#_%pfBv^k0ROLg%>SLKWy}#@%!JAhM(ifsPc?vRY4&S&m_WTspeV?$?}4io
z$(>F#s{T9j+aMFTaSWn-s>MX-UV8~qQE5fRK-A3`G>AgLxNetC{wx~VZabfopNNq_
zeqda}90!5#9g1q!Z5B+-$`ceeVZq*W;+j^8_i4<JyfDlB`&LPPAI+Vugq%eT06_o)
zC%zw|1s+y^8GA(yQY|a&Ea(|^(QsChANc#e&tX+`78^*Av>+wW6EmqdU;aDG^0~`f
zc$_y_JhpH2&g!He^3dNmb==hc+CEc6`3|{4Xx}Mu46s$9TE9mpdhNpBIXJSdFa8Y4
zbP&d00vUd#gaAa6!uObBU^yB9>lpvt5nw_&I29^1etQG6`@=qbJ;IEQUWfTHS2a2x
z_b5F#HamBE?_GM-R3Q&b>ERwO?J>HF5P6dBb|k3$BnFq9(|2)?5j(by^FWC^evRJ+
z#gA_;Dyd1Ajgjd%R*5b7M&#F%jQK;k7<faGyFvIw36JNDe8TMk?uRCYySVq0T;&e>
zJPc)gj9KAEuFGm!dci|--@ALRU2r|_8osQxWzQ8K_Mq>+Qml=t-Y;OH_oUd$+Q?-D
zk>BUl6^qJr59xr$bkCV$%%AO%9N3$CKg2SUkcUXmoLkXL3}G_t_XtE_ATh)%8~B2s
zEa|jvCzH`y5<c?F>+WL`jBlmqw4Cq(ATFLs;WJwC=~(^(E%abk!%4-dpu&-s2M1$A
zO?Sgd`^O8ANS@gW!e!K40fLALgnC1#!v~Ofq>!AzGK0XvL{5Ye_##opWseR*UqyC8
zDkAt*x@ZiugTq92a%KF^{O*(z#KvT`@u>`Cp_rTR9O+KO<N14Yyq`2Ye*}Z7fpn+g
zxBi>agt331_|ct)Pb@3zz)-@ITfVS`^Y1&(#3Tv^i^zKKF@^xrjGlxxw4@@je=hQA
zB)kEY<hWHCLm%ExLwm4a;oDaMbVF8+eSFdacJ49rUtk&-d!AWnP`!&g9;SDq(E9br
zt$p`hDM^Xbu59Pn=0mL86sb##^{#fe_@?SvJZ!#3u1C$&syAeoLyUwNmYmnv9NV=X
z+TZU*)i4&Jvv6ap%gn_@`z7ypzn2;{cl`bSZLRojVs?_?aXgaJF=<K+IO8c^BV57g
zMG)bXMZ$mI@{bK;5oInCJ8*s-fp&e-9@i1mZ{gwLUX)aSzL4ySc!cnHBxum(`H4lK
zk{P^03xKoa`}do0)z!o)uw&Zz5+=>Ez{>8=`FAkOlacgT-t#cmgZCh>Vt`#L$^Q<Z
zk%_yAux<YLsDalm|10OZ{!L>zx!~Um`~PFS?7uGK|G=5Q|L#LsqqUx+X}xE=X20z7
zG@LnN(`lm*=TB~7zAFCic-83xudfCR9iiE+y3b?BrMvpaJGIZ9IydsPW4@DKe2dGz
zZl-UCjtX^iD3KfO7rjbOo%v8esEI?{Xl=FKuc6A9>wAmi1wPt(pBJx|@&)HE%-KfW
zxU<kb^*bm(hHd@#6q5h?@lXEwpRo>uS98c>AD%z*8*@-a!rIO@_nPJ45hdea57OIh
z(a`=<A7Y;3lQahW^=f(C*W6*~onuftG^-|)*g9vRem=dI(fYwqZESH8=bqy9S??7~
zpvuxb16<>Cjg7g-AWHVM`WLSUNI~+{^4sGzY<8hI-S_+v@=}^6FSDHGN|w)$L0BHR
zUujI!{(E%uo$@s?ybu3WvYa>xsJiEJohR@ThNiCPxcYlzNPlFnm^$UPR8f4*p{xcG
z#vunx+81{@n^8q(;+PSf1<^gXWD4p|%Wt3bVQ&31q{#&v*dt`TW1Wuzm4heoq=VC7
z5H!}!1O_p?&KAS{2M@-K&rjeQlVQ^(jz;m6k&+7g{P{D3{Qe7|t8qxhKLgEUePLl?
z#BVTxjv*-q5+frc=KNn8T}?V6AfN)O&d+4DPZ3@lZzh+c1ar5!7ww~4^xQCUwU<9q
zA1^%H?f%K|<iXJDqQ~k=7vh!`Q>h&1tF-!e7QRybWUP|j=i`&u^y20(_3ufXhwAl4
zIvVOil8fuc=8PY#Bl}4IgjDxu50L%O*aZI-S;S)g*Gm4`QvbCM|0k^jk)Tsv^I1y4
zn^FtbN*01FI<xoiSPeELy@SqK3lOR0xAo6OlSR5XJIo=c9X@wY_*t?05uUJ~Qa{~=
z$)3U1yc|f@|2P%ydA9v8&i!b^wr3npbq!6;LAdYbpgIr}lQ>zzl8;8O;lm{yC4@th
z@&xAFH(*GGp|R&LFmO1nrna*crb#ziK^3Ag1@j6K6+8ox69WRG(KO3>f=%RGu*qkT
z{}*5OK6iG=;Ke~89&}WWZ`tqvxRUiRv2eDSe$V*g%4+)x#)lc?{(cWxud_3oMJ#-X
zZNi?4=?|ixK7FcFe<#=CVU}cO9JsRgupLF#9nynXf!>m+77rhk<M5!zbMWS9xW`A8
zO<gPp`SOd|;zz0Y=z!t*GuACCu7kBpt9m<&>u%$euV&lAvthSxJm6Vt_{^ta-wOZI
zuMxj1cW{V_Lj#2cKaD#$7dn#qSJ&uDE|}lOWEB+^2a-W460L4ztvMT-E#i=?)Y9i9
zvz%acB~dJehWiL9N7={z>C+vAt?BjE3QLFT0lJ^j^k^$s{FoXwzR<nY8^M3;YSKuf
z^A#BH*nn@84E86tSg|X>Fl#s-b3Zse8GK!;C>CVvIq}e%?>9GuDLc~B7fil9!kiFi
zlx46c5KJSON{&+Fw%TW}A*w?;at@n8QizRu{IKKO*RPKdheDw_L&I^)Ed#SQ_k4sn
zmfN=oN~)^9RnWL53k8ojZ;8^;#l<B|SzL?+F3Mz7$Pv$yL4Mx_Jk`PaL{_4Jf?-0j
z<da>o`Si@k+xvaZV?p~;@}rW9iZQSe5H+!cMk%qL$-Q`AkIQFC8M=300tHLM;xpe1
zr|(!6J9|D|l?laixNeF4Q;*T60{RZKoSvzLu-hIy>&I+y)iG*$=K7p>DIE##ku8W(
zV%uWd%j*yS7$o%15)Dk=I|qDZ8P}{l>*{YQe(1%;kEKbRel3{u%8(<k&~rR?tz%bk
z{g6*F(8_>`?+%N2D?D<P?;iK~@{!)YOaADaP2L)hn%y~^vaNnSjxQ-x&Fi=~Y-WA7
zea3>XZuw`_-i<)zZ+O|}^0{}9Cg998G|@10tl#%93-X-A=40c#%N(*+3_%7oKgj+Y
zfxAW3G@oxSJUb2f{U#J}IS3fU=|KBN|8DB%+H4rQe~{Ufq<%dQ0^ZY{zwcC25u0v@
zeSR$#GMlI;?6tbPD9^qrF^#$r6v>pBo17r>m#J}3+_!I?fr6vzx4tQ5L!Q6y|MJ*>
zs|CDY(eQv=&Dr_)x9_Fd{-dS5?ebs6o>-UvZ$*ws!o;7856<p9(MbQaNHgVX&PFn_
z&(}WwPHoTq+s5QoRaH|<w+57JN<)4OQwG_ldg2dh?jPA8AG5YU#LbL~vx+zR?O>(#
zA+oy<i7kdd)x$i-B3)cIdq&Rb+*7F=5lPPZ{q8-go){ba{pSP2`hS`D|D8XIb<QoJ
zx>y7H$5!=V_L%VOjOH)tD?cncK)B_hSWQobuH8l^uYq{S^gx}`F`;19ikQZ>D-i5F
z{KCbBC<3S*!tkQW!Ceno>n$Pi+AoyeF#!$wd`?vZWD}r1T(B2~OUeFG{CBm<)QWH<
z)bBZE<KD9955!0tkq%a8677AgZ9sQ6V)9F1vHt{#7+}O8)#FkW0)l~sUrVPl>?+1~
zay}=FVQ{uyh=QNay;yp50!9^`Pmebdw}KJBNN`X(a48z`2CI&h#^kCb=BgNcBd((V
z4=duZ%|;-UI9U&~2;vwqX3i)(yK`o=MQLrZzMuvX3|c?t!v{&bf;%dS@`TkGWL*Nh
zh9&xm^HEmrH2gJCyxd?C8CJ=K9$pV&uzSLS<KDO3FhSGbdQ#C>4f7Vx^4s3>u=wcW
zh=F}9+(C|Mv}6}sw&!etX{$+t(lH=S*prw)unPLUA!^bIr5^{g)S=WPcb70PL4U{i
zC>JPY;_wwr{eRLRyrj^jYcLyuE6%A($LbJ;g*aglh=9<IFURQNRaP+9(UG82O2cu<
zm>P;<aR?ze)Il2}Hyo{3gqJe+pShFI*GNxxag*v?J29&b$z8FUX!FR(ZdJnYe1ep{
zGTX#-rYXxfif#bb$1{gU9mAmJd4>ZGaD|WTEc}US3wlz)Qp*_Q(;S}x47J0H8FPCT
zUJG52pr6=maJZEsWbd1pTTc9-kNSkPO^o=X25JQ10&x^U6&$p;2aIoF&ctr9I+WmB
ziIIFDAx`_%WgTk{Cn;T17LLt{#a)#!Hxb8rGQy`%B=B<@E|6ZP>y!*|T7@=-E{~1v
zBa11d{1b>*`k~|zc1m27Oo83X_ELD@{~-~-S+=u}C_F233N0Z%2WQg+<D`X19Jg~=
zFGIJU1qV|}c)}nEyNZ&pDy0={X2by;KGuAKf_LCT!wI0CFk$(4c<i|i{`5Tt4Yi@e
z;sC2^%v{K5H^KStQ$JJ-sj`%Rbi%?LlLS6Y^1jwKFcJ}}AVhBB?2_%p{I3;brE4j3
z(ND@^j1%(_du$$nd2h^o_>SO`89>ykB-VSACdt}u@Ss|f)Sb-6TJ;up{eDof3VBv(
zbOS&YaVD0q8Pk!7J*4i=FQ-lMGqAs{pnz_GI0tir3sBIL4i4m408P~q?shz)dfmjl
zNEm~N{e_-<a%lzqv^Q~tC(t5xkti;TIim%ic9Ik*U~3gI5+Y!$7-}==3~XT1Vp{K`
z#D#Mp;&IXn{LuA~SbAox@ML4)fa-^uO`OCs4J(4bobGu?@}n_O`x!7Df%U`rY*-#y
z%#*>Ma_iW=&1CG)TAs`i3U~_n?;AU#3vat;Oo)6WBws7c6>wrO8&(Y=n201Xr>S4C
zVut;Enw?!5#*!E_L43G3UA%G**ZF%wrf}5JpAHX+@!_$ajU$5nueTLBZYv9B%Ii+J
z^BoVZh`LT|D+3RPT~<gY@RW<Ydp)KerV)Aal#yx}MfMCQ#tMg8Y%u(lhoe3`!-)Yf
z+}=)>A#8S-_ugRAY!KrIFc{|G*qEm0y1Q!O2_YObB{(V-KER&K)5u<o;NamcQO%$r
ztKF8f<qso#{uIc1PZr85f!PLi;xJRgoz0kQC?L)sAS}SNtK&|Ca1eaR(34#s9FOl%
z>S}~l-~{2>f9QiVQWLgk5ICZl7jxmS+Qx`6^U_U`8Y|0vf_`*xIlpi2!h@{FSO`4{
z27>4hEl|A}NsC3Sb~i^SFl%+&(*#Z|za8cqz^NQLV%7=6C1*sPB*u9zS7n8K^_h8<
zkMpt!(d9}i1zG0qzlG~~D#lnyF=n@$iSuX>$kp();{2c}!Ic3CA`#J%2qGTVsK<{~
zH4rbyNsUC_)ZO8_W(^jHv3{E?v(l{D>QgPkq)RsdCvgnNZnLc0M4lhddd+&)Qt_X%
zT@3~H_J*0yE>bi*z>O&4N%&u76|CFm39EamqEHf2BuNThk(k?2Al~<kY#?KK>hN1^
zbl6JBSeP%1t6U_G$?9;VCOp3wytz-DulwQt82?<ebkDupk7hUI8R;I!p_Nh#WYac|
zsv8X+9XtBN9LErnJln<+Id;!l<pC^v?qAM`L;5C;R3%ad4x2e*V}q>Y8IGYK`3Ay{
z>6uTF&a|&Tzy?;JYMot0_z(0XoNJ=sGeme3!)(buKC4mqID|lf)I0Jwig7vtC?<n8
zLojOnI77k5grz1<XK(t&C6G>>`b*aZ7d^s_`ETg%-RXC9Lq^<12ObzZj2;<kWWd=e
z*U+k&qKzHl84l}%DDR;&TdbxxJBl$d?QY%txV2=X)k(h*{-fIQZ?_H)UFHu*6S=oi
zfUNzp4s$!_P9frG7bHqd&7Hx_JG=_=*1u8dM;(l2pBeak>7FSI1~%JQz><m7Z=04v
zu@H4@%3B<a^$84QBw2O2aeq!oL_h19AG(|Q2+mwZ*7<z~6ohjk2NOr7FpWe|`^)HK
z(o8lz%VxodBn9i}jrg?4^_;!Ey>eMUhz@helq}PvR^+2~ZyD80f29zn*((7Vc2~(?
z|D6>+1b(Db^qAh<0ypWn-Cdi8DdMCyUpi&XD|71CV-+y0<{6HYg{3g)zAZK%1KF~k
z9M-cBh*JULxCpR<Suo-#&PG(VRg`=Y&k&1FXOVh}ol0zY9jw0ZKTjfkYXi%8hC`<<
ztWnfuggWLqjlE4mN{s(tgW2%KKEXAGSWdFc)BqZyEyI)`#sXD5y)h60KcC-{OEG4n
za0ttJo+IR>szkdPCgxioF77yZ=4{T9-#4S9j0pgGTfvUH1!BbR4giQ^mQe)ET2lJ!
zQvfY=0c$>;oq~gZm$<80{>7!Y8*{6&-k6}WdWI8-2tP0~Fi2vL7zTTK?j=^6!hT*T
zLXWV);n*c#lZ4_)WV8~~el&V`>Cf)(UOs+)@*2#KR1c#I=D;BXq$&x!NiUIlJ(vY)
zY{oB<`d&_8?w-D&jkWM>Do*Ah9t5BeKwUN-`HjT1lSJc=lJ~u9q912#R^d|6YcAUr
zz?&RSyEb3ECk<IH`o7r{!Y^!h*dP1>OcSu_^dl{jlkc@Bj{L)I)#4;6Z(rX?LSKg;
z<|k+UZFRFh%}-5skbXAFGu5!;vxxOOUvF<hNJqUd+0;Z>-f+rBFr%M6aRk(UIjwo(
zSpdt`;_NwMd;@jjU5TjyY%q7n8j}fI7MkQM_RC$ggrF^(werl7ZtHZaEocaO67VB%
z>}8*!3Y;!Yob3hA^kX4a?^<BKcK>|MdPQkiY!YCB3`3QR1x3)~tBkX<51+m30F&kn
zV=?z;2VwtJFOAvZU!Ru1uzXU<_R+45@j+=g34;cUa&|vZou=RKsJa+0dgBI)WFYW^
z?5$h3R4tLbh-J=0kYvMh1x1w!1P5>*s<rNy=X;1vL7c<Uv&?}p-Z~Uj48mm?b<Nay
zmuptzbX*e*;6bmp&c>8G&ck5LX-U9g*{F^K7|yDOuZei%3D+O|;=&^*{F6lWAjl@r
z8mQ#NjzyZ%1#2(}>c__v-oJ}DAaCoc;LnsyM$j+>u0g2`C!z^J6m?P_vNO)xdq*?@
zja|Q75h6I}kjVHLLruu)J&a9{3BH>^t5q=AJr>gU4&F*mR;I?jv+!)nC&GGxr3NYC
zCvjI(0%zB~9;qIiE7eRP@p50ZX+KmA2OuW~-q=goT5w85iS4tZ5=;R8RRJK+5-PxY
zuMP7y0vOskUQ+voJg0@`|6=bwprYKmZNW0<EMh=0pdLX$ML@DgMJ+&(EE$vx1xn7~
zF^jPfkc<J5EUA!eIErK>3Pn=MNRXU)bC;g~zSr;eyRTo5*WIJXbvVZHKv8`4eS5Dx
z*IaYW6)auTJ&b*;OgIfj`>9V3L;5L&uQ)Dz+PFz#r{|zf4eG>TP5$VtSD(YP#ec<D
zcme!U_^`99Pvi}KC~+7`u~b-zs)Jw4Y>!=(hItha$JG5FxvsIjOK<P^7}Hm9TJE;P
zrX8|!a?3|3;_eeE;@cD+@f<qUERo4JHtoT-VFUMU%fY+Me(99LsE5uPX*~Iz(Kbh}
zp5@hkeHO}sn)QN5%Ky;<knTzBg}`!S4P->0(LVN)5K>(bJ$Lpz8-c+GF?=ZlHsxMX
zGH3hR7o*M75W4?0S~x@BKl$Rh<qPeR3X)y~>imLD_TLD>gu6ZjEy<^r9F;@Mj}u!(
zbQWA$ck}ILQY44K5uWI(8*}DRiu7IH1U-IyuJgN*35A!Ndub#8mMI{a>K`_&5cP5$
zWJ}5~<UZqTDb9n&%1m9bhr}HVr~RRO-O?RE7A_F^r6Mji&v${E3MgZV{LNAH*6Cf`
zC`(!F-<it>#Jwd;&*6_N@*$!N`uw-941fK4Z1VirZdR52)higkL_=RgTnf!-h@}LU
zL4HSe!x;<qwx5&JE?|zT;H*rTKT9E)Xm!AZsRFs49VEwkL&ufozT&G`SA|Hlu#Z#B
zVZT%EkFlf3W|uZLp`*Ru1Ch3v59&KmfTB>orogTYd0t@k3+y0l(??-p3VAQRRUnZk
zxaRIQ2~8k3cv2D`6h<2f5Qmxq4-PdhIBU@r(4ddB3VxL9sRZIa3Usj=@P?Mz6kIF)
zIYd8%%tZo>mg9>TnWwfn|NZ-RQp|PW-2)tuV(LGqd9C5ZDNn%8x0C3!k?;4wg$zUZ
zi5;-e8rcd#I>f}3{v5Pu2gH~Hzt0WS;WS<>$|40Xl*nK}gjH0?8w7nP>7Fv!$w1&T
z$7XiZ`OOMbj_FUVUO|V-NWJqrh*gNJD}XBP(eVbLPy7)JhW~k~YK$)!UDVSM>+XMy
z|NZ6d#*er4=YZNGDCjxbViT(wzrW=r8`3$a4>HD<VVB)i;;}1Cwy>5Ch4Q*GKr;Uy
zIyl_wgwgWG!38dTq9G-JsI!=}n}1j3`*&t<Nk)0_Zl$C4de61<D61d7oE3s4-HCn=
zP;pPsL28NJq9l(B-}i6N2n*wX=jPl-MEm>$cWmx2*dy!n9N7PpRf604#koxhn1w+6
zCznV%K$Ln?>DRWPP_&hHE_JG?sJQZ;M+N;ayw69_Yr;ll9X4L30$EApr6)3PZ$8Lz
zmrLXqTXPHdtUP`D7}_0_AZLE2Lnebzw$BwRl@wVyd$7)^^0b-xy_VB=93US#!S&S3
z5h$4Lx@iYSEZ{8UBB{2`5$@T;mBz{Bv?RkD5W={O$lKu0o89}q?buw>e(}g(bF8r}
zcA9Pb^$p6!IWJayeudVn<REZTtUoI6hP=`MJB@`|_XA&hc~zqBACU>=-SJ<%6~4Z~
z2-iJFGE9M}-k^&o{*YUbTs(T+Kqa%GBt*<2hU?c`Qf}@`UE5D2`^3qOcrQJ3{{0;<
z^Bv6+NCiEHo^eLKdUasz9C5Eh_cgM_fNZhfuX=3=<Rc#@DY3DaVb!3C#v=2^tn}K<
ze=UsAPM=tGUkW=RjUWFPDSB2`Zj}=}f|$+Ih--lj;=kXnc~-#v=5-tv#EXs2b>qE(
z!=R!+9BElqW&?7nf$KPdaxoNhM;NJpqZ4c7OQ_wEmirECHoy;h-Up4L;6;#h^GHfc
zf{uR<xg#P4e&WHVco)$%Jv;Yz!9vaF`&_AYZo99Es@@p>n+__v(6919ozV#{oZNN0
zAAdY>$JF0z_4u?0k^11YCkm$m-Yvj|q?IxoZJDSVpY6Z&{y-(%r?G*E#L&Uj&^-}s
zJEVi>-KT!$X(k)rUCD7I9E+@zi~+$!g(rv*FAa`c<d*Du2s!{!*c337WIK2LtNajC
zEfA!Lhx@1Yh-jB*KgG?Jx$^$lJemFFo+sQ`a;64k(Us~5pN3j#rm@CXZ6-VOQi3cZ
z0nTay>~>QLlO83kPRCYMRZ?2pb4X4RNhJa%iZcN3<jf?(t`JvSb!}~qR`c^WKyD&Z
z?51M9Sfz;-uwBdR+uOL}6qR~Qrckcgj1Bt8ja`0zejkha9(ex=>A<i{>rbbr+KL;;
zrnfM@eLG*v*Dvt4dDQv~K0H@ur{|tZQUAi-a1W;faUxnM#((0tJSzF>9(-wzk`Vzw
z4ax=@W@b^~<*tohK{)ztQ<jQBBH$Es4Em6eviLofucP0f#81_KJC{Ib61L#(CJ5`2
z=I%D7Z@83Um*cu>T61fpk3>fcZ!Uc%ByDr&X=0Oi&sfdJpD{hQYfDny6St0L7*2?#
zq04vSyhZ{72~H|%lvepr&e?uh*!#M{>SKZXSNGeX(3Hl!QWNL<-ZseK(*~@UPu;@>
z7v9?TLIANKOD)@q|0LX{2J))g90mus%i*-kC=+qaEavq7u@;37qa(5GV_$kk^v~iR
z#g0Ew*uB^(?nC=vCwg4e5zHz<IX+<Yph1BEXfO+1CQ_3c=dzs$IY#_A=!8X_MpB}N
zS3?xB{rv%g?I5^6gT=|B60uJ5>YIL0F77)t?cRq#7lqSbhED7S5cwWw|EkRKiNb0*
zikP9Is+DiNtY?=v<Qn+58Aw(#BjeK~OepOS)a#(J9NPQ{1cpVq>1Jt6;wuTNkXJYB
z910JgVXm-kz~g)a%+x?y8s#+VsAj9VZu8p2*V^4U<TZ-qjxe~oE}gsK@UJ8__IA|}
z0prBPG1oH}Tj1i`U*~}uK_sW?;B7`;G5XLR$kmCir4?pk?++Yy>er{1_j!zp!QUXV
zjyQtF;t%jWc%RL%k|W;H*v!N|G7!fcS|xQ28s5D-28_HL)-ve)ED-YN)!Kvf6*fMv
z%iGDkifQC)#CD?!1`_bdvp@{0T6t-MOk7odNr_)!YxJS8ekbuj3}PU}C%S&QckLor
zM-hvkc(CHlN$_f!UWn#5E#e(X2I7$4M{N6mZ;r>OWwc+C6exMJzA@bt#&4iD0dOLa
zk()!-No2wJ3b7$s+Ku@RdMG$50+K*s@)8}C8ibDdJb35C%l5Wo@3I?@H}pbnNCdjb
zz;{#87XbwEmWfn$t#(cOAR#viECfpvi>?be3Q-j#$DgC8=AF5~o1&VIYby2){@EYj
zrF)o9+FLKIxM6CF$d&$+54AD4ChL6f3HUX+N?(vn6#`WS(|)#*vdy4I3O;=*L)K#l
z%MB1^m8O|EUCBzJKR<Zk<JHtY3W{HUuT$tqt<mKfb%GTN_%%VZaxOq9+_YV<_k)f_
z7^#2(B~pz@WNuOA3><0P2{kcj$nbZq|NfH@nK+X6kB)&oNVV%!f~PXMLbiJrM^e?=
zk6myAcvAxzTL%ulKM^kK=6HA$uuOjX<Hrw~ymRqUM0kA6BMET=%+_hLBZ{p(l)t+i
z-|Bt1+;(Gr`r<pSq9!FAKt|E^NrQRHvrV(pdKmhURsWrwhUf?)SAFL3fhQkJMb>`}
z4vN0&ntdZvr?&e|`=GCw!{y~A?SoP1@IYq@Z(0xT5gJy62+;vG>0{h_?e9YKMvFb}
z>Yi4uac|zdtbHP?rzTrtV<4+G=d~CUWi;u;5%pxHJX%+FQ;93v-L%>iGas&f;FqAT
zzGFH|I`2q1l;n44ljG*&^8<AUL_LI>eZlviFL4E;;3Cp{wqcA5wH(PK4~=L5h@TFz
zga_poU!MeG)C|qP<j@5($b)-bUao{1gfx5xd<iv)i6?JTG~W|Xd*XTn`VmextFE8K
zNexR9{cEdvRA5nFUFtC+(1Z1fiifncG}?XBxTp%^Kd%yJ(2o@_mAKl=?${m#(K`)3
zx)MMELM#LWD-fbK-QrXI?>EEh8W?qbu)h(Det~O&=3a%+J1whK@{4TO^$u?<aUlIY
z%ik|v_!4cR{stT0G8H^0l&R$)eO|z$f!qnSoDVpOgM`MxQJ3SM=`k48H2+3Olv$8c
zL+;6#btS{f%mmlu$BkD;r&2fxXz(JiM3kz8HsPJ-kq`v445k*|uzV?xHOeJjzpNKp
zUl$z5B&y-wV+7ES*ZaZwlif_pK<-0|*=V_Gb-840Y|IU<7rLA)(08>p*hy6XU;J;-
z(O$six8XmqLCNH!D}^LN;r(7ho<0G8O2l<OQmgr<`99He)`PeMqyD6s=|D^0o{h{1
z%ZU^`PE4Y8^vZ_)=T?hLq8EgWvmtCb5(d%*Nql~H*5zHh>bkO6l%05JHv*h3yQe3C
zI@)yU?36<PEOK$^KyJ?byzkk8LsA_CdhhG+_g;n0UVChBg(&jAfp7a+M^zu;h1UaN
zOd(teElKlt%qbz`QIP#}TPo`W*-vkdyLC1pEW@cG=)=&qEIb>X6T&PQ7P|+Gba}eL
zvR#+p07(^P@2{>z{>`;-Y`C-F(bio87c<cgT^L6^A_0-07Rk}xs9as@Ib%z0&k5C4
zgQe7AU>It&op>QwBvty5x8Bs#`tO$ys)1;qv3a6;6x;gBdwDkq++S2~zIW6~7&dS+
zu2em6DukoOJ-~g|Haj<hy{}ZBo<L`3XFrv4f7y~zjzD`pU3k}<@7+s&oX1_f-{2Ec
zQ@+>kuZu*5zv}jVwNh8UOwG^1mVJ;GC!>>l(qd<2cO;+gsIkHC(I3B=>z}XFRn5>Z
z$aQVVw-03d>GB1+q1!eFCH?4`%1@b_Jr?TH6(uvz0Nlj#zsMW_1J290(&qlD{|5B_
z6}??jxh4kN&t~*6n9;G*ep*%!?X2o$lg(FDA!=|@aT}s-LU8j>rrZbrqcY(Hbw8>r
zTvW32PE5X(Khj<nYfJKK^X^P|gK@i05p2rE#>S?~JbC2bJ`D+aU@Z^{5}TjXKws&c
z_+C&wY>~3(Shh#kH+$<1|1k0`4w<{D@{s~h9p*9@xwKZFfD7gGWsAg&@;)tJ-gz<S
z=+V~ENuCu~vvsX6+B_ZHn@cY#R%v=Fy$mFdJedh0x$Uuz2e=hBh6uvl^S&!RggWMw
zaH#~*Za+14iQ2U2PhT^*1)rEaEh7_cqp|&QbWftpdyyN)A<O&=RcY=kZ#*l{i|HQU
zvM;&h%<CH0*UTyvJZ}_ur)5F3RU`J>qy4{Qk<{2_Kv9C_Y-*03srvUm&w5Ty{-~)R
z178<gdOkVY=_WPt`94=jH%-k)|8?|1fq6SV5^8h7JKqLaQ)wBv0^y)^NTp-I41cHg
zD~^s8o5w^QG%lazUahaXr%WK-vajQ`#R^q@Pxh|e?%+;uj$C@;bzrq$h!kIZ?K|=z
zyz5q)?J}rNUoz^l$}#iobM(}K)I)%-hQW~_$WqkI%}~7{W4Peq9{Qjzrn|<J_R<@N
zK-d1}VV7*YHhzTFm*Z7s*ITbqer?|4z{Nv3F<m@gebawa=AHFi)UREjF`xJCtyr3e
zoy<@DRk8(cBIZ$6@RpEq<y^SO7a&Z-m&T`;qfG~VR9CiGAst?_?9BdIfG6pc`_Uhz
zAaHrRLo86(dfR77^PQEp=W5z_ZvJQeu-}8qmUxf>99H5p3}X^rArL7{@Z3-L{Qb^e
zksUF$QuB?)#_Mnsh(~niMtp>%2{PA&e?G|kJ$1KI_SS)#vZj`!aH#j41`QE#<8G?U
zK>prT{Oi?-I}Q#RI&4$pKqB6#I*Fcdk}{HhD8j0O-d3lUuTv0L?3@6tzod5%F_q0P
zOw?Y66ic7mBr}5)E&f2MmW%3%GB9^faXMV`ry)nUW6BAa4a<lNp);ta`*1<sR!y~9
z+a(g)ZM$ZLaY)d`gwcy>%Rs+8eBOV3?DcqC&~9pz$0Y4E?c+b6@ZYH^eEE|V^3I+4
zMZ@n?cs-YSV{N}o``mEk3Nmz;ksnd`M>INa;PL*}9+hTv>V->9eO=|t_zYPcT&y+9
z)3@d0(BK&z&4N)gR14_ijD=k{x5W~-4^o&GfmUsQuIZM&Qc-pdXesW1?J{W3jUF&i
z!&wJ<4kO0SLREmAjrh%h8Lb=Aw1|d%Ei_tT;@j?9WpwU=k@qQRgZf4-KoU(L`g8o0
zBwgR|j9HL7(DT!2C@pvTOzu=G|86QE>@6owv{$ii4>3ANZ5;hRVn2lbwJKJRoqU5<
zZ0@Zm+sMc(c-Rev%}(t-GX4}m1X1fS8u+PfrJnXQ-5)j5XDUB*H||HGdEJ1ZI4lf*
zE`r{$HCjK81&BGuBa3F|s2@|$o$$r+77q9Q$G-{5)Lv8w=v*K_4?J~XNjsME92vty
zjU}`$?9$M~1Ispb*o0w85xwE}@4lg-5S<Jskkf!wC8vpxxA+jS_Y9yP<uP|~wkxf|
zzzv{!P2k)+%R!?BE~_ysA_&^;a^eB`;KA9}38G`cdQCvje-t{^F|;U&*&`z>TY+Zg
zXMim8^R5VHR-erR(MaGrxuvLKpy{^o>&2HSXyNx%gM!<wD)I4>Jt5EW^vIzPSv>^y
z74ue!Z>N%sgiI4u4n1||s>{mm3GJ)z+6Ncx9bW1m(7va>TcW;)tCKx<>>5`mY+3;D
z$%rM){ux3?`e~LSBAJs$M&uyO;|73~hizK~Y-9i_7{^xicGW%N>+OE}g5dfM6{9(j
zvNzZKc}PHj%q3m1P5gDeoITk81YJxxLz#;V^CBfV9R02&pZ@pj4ja|B{97?Wm>BKt
zu(nRFJ#6{q0CB+rDIJRGYunJiR)F?XgarIy&0_;Simq1Gx{6Zc<b7D**k^Hg{E^^t
z@HqcK6#y81Gp3WGWRU<3k-Eky$fpj&2%~v+o`iSIT29Ucd^Xq_o+86ReUS|zL=kBU
z3fpyX7$EElPwMrZ|D$>W+}f5=zbe=W;&R=QB$81W80E4P2_RN)7ZeX==%chQuzeYI
zw$wl;%sa!l?N?A2qmtDIhYgRB<giX0xy!CMUN<-`%HG0{loy^c58y_{jp_xlJt82C
z1hlECsii)jRBK+W-%=w@%k3>bFHo?}c^$#NF5u60Q$e9BVh@wvVV*HFYOM}Fi!xd`
z$+E^WdyaC<zbY9Y{=G`Zywb`4wvr)H`F~!?;A_;IQoSS^LR2!(ZS{^XHL2%ODS`a5
zNf;dOjp;nQ!?h)$em(g+KJ&e&PvwU23ChN~T)Q&+aN6;HmCm0B|8^SI*>sBvb*&-M
z6*U@RDUe<Z8|k*iSte<7L8D@$)yg;&UK+dqnJ@CBjIynvEtlG++gHuMzPr{1Sqc1F
zV_=#p+|tvIG7wq8p0krpRcY3G%I3!!h|vI<eg|S!Wpijv1Stvv1XqF0sY2X&Sv~jf
zB=1&xYuNoKU0DWe-6!St1q-uK9zhxWej~<R<^8JyL1tf(iMyn?@5xBSe^t=%S@%}-
z-wGN;y!)B&6x1bj!@3*n6z+`2x}ykM1Tyt|)N*neN!jyFddFL`x1G-8W)aZaHL=++
zap5V+cM-*R&@$nJM#MijlI~8NyZ5pl2LPG1V}XkA+gmS@OT#;LZSeX&5F>oTCyaCi
zmLG?eXMlXDcof{Am+HkVTD_Skt2aV(u~W>%*EJh`jwz+T^(kDKi_s{8zX|-VBG4vP
zNVuE-785ksc%7sn$bh<0*@^$qwR#C|KPYxZlnIu|pFkiB$GnL%d*y@6$RtzHMknKP
z$ka!KvbWosiS1LR`JD3~KFnmSIv~-Em_ftGO*9vSbtsB1Sv64o_IZC*mSLq#*RZrn
zkU$P7*a!;;(qN0Mu)Xh__qqS5`tiB%gGpKpK1iUHXU@Wv92=`Nz0T=htI6i763Bc@
z3erTg^BjrTKEdJo7IsA4s@dtLSt=dvqY-%avUEh(_4N$b(ca%tiK2fSlnH^9pZT6C
z5d$|jNxhUp%K4HHQ}{U3&)!P9Pt5PL{_<*vlP4xmyqzR<;@=){B)YxLBi820h5wMw
zkBv~#3JBPgHH$*n{61j}Y6RX4er|iAe*})C#MtZJHVJMjWHncaWz>KBlT4iI5RKq3
zsGqd@BqAmRVac}VJmG&4(L5FJX#D<F6g7j1jamOUt16Nwj=x5+0QvhCmdKktqc?}1
zmS0JW#b&U;2|Mwgb0!?M`~t#Dv&sRB{kvs+g*^AvsaD>RkgP+4`0B)$^Rs|ah_Z}O
zaRBsun|HI&jrnB*TWU!q>P;v(JS&;23)LGy3<d&`lNSVStDmrSqjstIg@+2xtWU=F
z#gbv_PwEqq)$<y$5jvsItAvQz6;Lki-2i4NohDQkRM5@>tlzQ0c;oe!QQ3$_Q-37^
zd4J0hZ)0=RecmbY%t?S661Jz9B=?MX4;2g}Fg`=JRe6$C$ME{&fCKwWyMc9h`X_@E
zJpb6ehoy7gdA{qEFE(z7F8C8-XF?Pth1W6((~Yfx;g@UN?p*xGQs5o?rB%8pw3E^)
zW&r!AAPul7MA0#ZXi9J&$!I~Ye5*9|jh_Gf%<2pjk-(sIq8%Q>sa29~HtA&c2N@BH
zyw(2i1;54J6mE9KH)5#H>c4h{UZ5K~rE+vH?1u}o%q7;x2N4k+aA;uyPIg!&5i;?e
z&hKx$+_h#w7I+srq^i%zKq1h2#1&d{X6ynMnetNB1I3F~_?~)=0{fLCAv}!n-e`=I
zrK55m3F{_V#ArgXpvc1g{(#&*bQQ4v^k?4$$yf2>E`gkYnHJC%X0Wg?m>eJ<73cx&
zKCr1{`iz+<0A2c$+TTA(`6^(vT$c)tVj^F`gEW+ML#arnHiHi3CMjw-9Nl0S8<-Cy
zleXi>??RJTf53)*KYO_ASioYOyo}IHP@k$~=t7f6EUOUlV}%NS{~oW$YCLnSy-;KT
zQFGX$dVdHgKF|O;XmY<&xC+ix;1^$lmM$nMsRqStk^D;;g9_)q)Xn{V1RRiz1folf
ztgKd6kYEdbe1?wcdeI0Am8z`j9e$U-vpud05!E6armmv4ZFh)6?O&{?a8#~;a+<Io
zfK93fwMaTzF?X>6L2(E>>nyNIIRw6Z?+<X(Y7Q(XLLwMaTbvlIJ)v}52iFCrm=wo$
zn(u|w5P1>ErbAIlvw4jnH}X}hoxjhhIA$c<37yve61;u>{A1_d3q7RmS#305W4-Qr
zXA^z>_4PNCt}f>L^mOL|ua)n4!k2p&e4-@%v3>jMxl0NctJur^qXjr|UHXpK{xv&g
ztL4k7j?*)r5|~%*9Lu$$6>OVos%m^IYjfJ8qT7QfDx=!%!Wy-=oZZj1#3=}Q8vnXI
za-Sdo2_gx=c$(*Anv5UOn&=Evgv}g=$j^-r)&^BCcp>-&eWlf!@Z`x3l4IFG)n^E?
z^!TS!l1T-{`9Z!i5!yESyT`+3$HR!%Pe^<Mk6^59ajL!Q;LOO$>~x{<bKINz<1LXr
zkAGv&J=aM(Q^J)uZ`op7urJauCXP{nxLe=mCIyZPw+nwODk~pBmevk&r%clMv3FSI
z8C9(#sB~L0YK_Os{c|cKVw^IS=25a05|)sj;P6iviC%)SI(xyS>dHhY1r4gIP7gnG
zic%@SI0u{hOL?ua$t5y$x6#Zdnti%b)FV{o_!D4Y>~F2qSi8B}7l59>)kb8Cb=D>6
zZpt5X=McfA-4zTS#~4D<j&OP2S!7Y-)I&gSLJ4KG&~^*GNzF*c=dFTMeX}#x@}iy3
zEfYU%*mUHgJ_8Wf4P;~y8SKzCb@%Sw@!C=kzx!@2yEL#|l-1S!w>o^;5gFp38S2`b
zuI6uMvAi)=hs-ur($We-Nn<Zn2qRQgKW@$WeorhTOOKia+UNy?Aq31(2#RtLa?FFU
z0+G?t(HVg;-Bg!)t|l#@q;g?dsE02fE}e3_mvC&M9uu8E;Lb#5jozo305@#{DNVSc
zEEH7X&2{2FtvkD*)h1`6DxnQyNi|!40ypg`#du;omn_Ud5d<A$5m5c*%VSg%g%RF$
zi~`7T2B<{raz?ZJS^+Xjz!KyZ3{`(@?&-)-)6GdtyySc7ntIMdZIh80jlm-sxnm#r
zZ6Jz{Pr3_|dHX8y{-dn74;6P#oz@Dfqf}q#VLeH2D9YY)<s)sX@3bdYl2ke_)Y^B)
z`o`{8?^nvw35E`7R5LLrO};jtrP+-#dl-d~c_+by<*=Zj5xhRrK{-~Gl|3LAj0w_~
z8g01G`H=Y}H#jg`L4=$+e*Ab~U|^DAK3yEM&c_SXbIN-!Zs6(ulz~N@hMddqtOL$c
z-U}=J3tQcOT;S|3_sFgR=^6$?;vfd68IvE!Z=6D+PNfGsw*?@rwJOZo8nr^7#_F&M
z_a?WQD<5ugqFI*i?(WF>GKgs<HL0#Dv=3sXFI@R>g01^Xvu9jKQLgQgvV1-SX#*gL
zO@Kj);Owcy?RyB*s)8@RTQWZCIXhZeQ`3&}u&IU>4r3~vjMD_xqrtTiuPldOswM75
zI&>Gws7S@B-VM=Ew>{mUrr%gQ?UF!-iV`v+8ENth6>cNIBN6C`2cs0+xv6TIT~0Lf
zdFQlT)?oE?JcSB{i+Tu5t6&K}Mjqo%nx>9UNJd76Tbn=_l}4k1W_ZDYX$?Jmvu{^<
z9H7?BZM;`~5vAD3sHlBdAT9uWU%Eu^ANh8ZD<96K)dS}S&y;&$2ij*;hn`bUF6pgt
z4Z)3zlgt@-{E;Fd&5|VO9LCYfrO|!xQc&Jwo$-^#7=dQFQevn~kWb8}<r7!_>{RKj
z-P7`tsxr6XADc{q6AM<nRhzL`sZSj8{aRN_P4xp<w}3Hl!+f>Jvl9uk1%xDNTTx$E
z5z^h&g$KDO$g;fad$IcZnwlENjFVo1Yl!95QFe@_=b}RTl>E_|)P2+Lq-DTXuP9KE
z2dhMZs2f_>g^m5a**d8z>n=zOy9|8hesnr;QL!F0|N1&QBiQtZW$Tvfak(=S&VUvJ
z0i|wxKtMQ3j^``1S<jAGlkE?4SCrmGEOcxg<6~kbhjpu}s&E?^-<Qp^yT%eDXPDyY
zP}Q{AGWYP@PbasYH?96qE_P`WkWD)p7>Xeg_}n{C%-o1Z&&ci`(-p<)PiLUx)@!}4
zA2$tEwWp?0ExHR1!|;*@ch_Lx32stwO)3^*w*0k>?-OnV9q8y%Tz7AYy}f-d#bw#A
zxcB*<Snp#lXQZlPsZ+>3Y(Wp~q0V%M&Fq8t*V?ubzH&U&qzZX4dvmRjC<7D(&d}>o
zeF)K=#i}LWXnpP@Uw{MHw~#M$KM8>tn5dIzZ=dHeM<ww0M?|lO44qG>H63i7A;Mt+
znI5n<h0%s&NuG{Xw+%b}l!a+dXB{euLF9;NNQwjdDMcNCne@<?43x1$xins1G>9o2
z{@WuiPOxg>D+a5rs!SS9My~W0SRnTfiQ-J~7<<pThnj;x#1N@JJ}Bg}vzZoi9o5Em
z+=|ml-^^RVXtl@OnUh7L0!*mWoBvuifC=a+;vQf&+7RMO(f?3wBYja>SsC1kZ!mPg
zRQkM?NA%;&yNfac6KrOHj>^ql9UO8q-UpJ+#G=|eo?>P0rP>torrDWEpeC*EfJ_7)
zw!%0yXKTB}i3vTu1?b|UKcnjNW_hum6t`9$y?mrCHkFE}j1ac>`O4rg>vX|}mkSja
z86F<yEu4b*zw}@phtDdv=6S%1)F>4hJV~fXe8~nzwXOslTUBawj6gT$HjK{hp~Cqv
zxU#yMxa>v6#pxK``C9Tr-SHeN2LFC8=t;p6vGhTO(HL?Q9ZmH?wiIF%g`oPXAcY*x
z2!*8xXn`w)zJ$v%J55(aDD7j{buu8;mS7Y@Hi<b{M#sbm7=C&{=6I5LfC+k`xwDhG
z)*7XdAq3!AV?<`@Z15_N{wq=O@g+c%WXcRNZbVctQBqe=Qxmi|)<Hnl+2-8xki+KF
z4h=YEmE$M^+ZmzFmsV5}Fx|D%LV3%Zx<7n}IkqP0zx`{!PDV<(k)1cHWY1N&BM^*;
zS}vlnQ~BgQjsPw*OUokCe)iRT;$C!gbS(BMRjppc3C9Lo{7YLI6HlRtw8ocqo31HK
zj(G3utIgh9)qU*DnKKaX`5Astn7Wf#?QU*ifq^t-T=~#TWlkAntd&{T9%)yX=*#!)
zL150zl@@Cun(K98UD>KM$=u$hUB?TWCQBc61NPoo850vzh%Mz4yZBAxmfLKqgCeeL
z$hn0Zy>Iqw!2VqQp7>9(DS?GnGEr8i7p~e?&)c1e{s@~d1~*!X{^Oqbz$Yt>c2@#D
zMcN);u)*$Y-NiY6`o85nuk)7{{6a2}h8_WjUxY!*E-l<eHtE6W&=NqU-K?<qE#)XH
z);5G^WQdXg0O0P6=n&1Ukpk6D42;uT=(0+xt>48dJV$ooKsYKaGSTrY`NIaSmSuWl
z$I{}{wE5a?!zQ)KY)cN0v9ApoR+QUudJ#lV;+69hZ%iU+rh7IP280KOX$kCJ-)vbI
zM>+Z@3${@xOJ#n^(9WLyRg?1iYwa)Z!S#=RwPb{c|L&1oP?b<ll8Q3NM?wwaReBP+
z<wmg~GxNBiS+olvFZSvcc*&>A>{aRHrZl^=^leA|RaI3Z;^X7XjVNy>@3CHGrKs8}
z#7}t@FEYVO*#7(9wEI`j<{y8sV&VVN#s0@{G0m-W)N!AGAwdmj+L1EEd5$%HN=Z*I
z3}cQ(kcc`&6tV>19S-h$nu$gX*r7dk#0k-7K{PA#?r_F;;;?nl#gmM4(hysv7+mIK
zaGAJ2tk(=ZmR#503*NHU$X`cuW)_E)$}5)0(krxmj|FZig|gtE>wPJSNxqKerlzL0
zn)o#`5#^$>#tj|bla*Sg%-+F9MkS+9O4_YNJw9E9o6UyPB_^kA@A|~H#-}RWyL(c@
z7(Mi-xkAHfxZCLSXCsFuibRcFDFki<_%(~hzcj%!F@j1Rdqp8SKE9eEfvVYyS2VG-
z4AC>bNNcg=gJ%}Fmjq#iniP`p1iMY{<=8RAKvl;7vq5WMSC&@i&ZXv<lNV(bsbH#|
zbYQUBK*BvAAv&!5fdSrG_WJToa9GPYldc_aw}f((e{ZwSBCFYoSn<IUEqwo?!{$VT
zJu^KUeEBe&%J*>2Pffpi7x#$5Kb~iJN@SOV3vqvdPk;a_f8oM~n2N5huDYy@G+u@2
z*5dl<F4+dfx=C4Ok=a-IO==mp<vVMvKWN1uB8_W4wVgP|%vc*~3q&AVKRdDz8vw^U
zRqe-dWuNY}Oj$isrp+9^ifn1Tab{1AO4)@I)~^6F9@UvKKRPxRls8S;Y*njt9Fm&h
z*{b^@J!~Gu)En1As_sD*D3?5dt*C>kd(YiYS?1==n?>uZvp+yqjflc=J7ZP0B5rUs
z2J&(7NV=5-sTXlJ`2_}^S9x<UCLuu~-K#GW7q%Q)yvULjD^`%R^BPZ=*uNqg3a-hf
zpPw#Oue=m-ZE$!|$YF>v4fVy`-%XA8?y08^wwEfTC-(5~l3m8`(%_(EQnJijl#7k>
zs`p4AE9?Is>>KyCJr+<g<zo&|!@z8tn3)vHG$KD<z1Q3pcGyg51bRt(U6xYgsAIRl
z9BcYvA))x6KW)-`#OAWL!g^}h5~oGWH$FhniNmHQe_{nb{y(u{|HA<F&mQ{U8aDp(
zD*i7V8UO!(BGEW+{|KzBs{^2OFva-N!?q?!egL|5kRS+rvov>AHb9~IxFcYp0h5sv
z&D|=)u1MN-PUp^*Y*$tFoaRgAAF{~KFQ92@X=N77dOzFe&8>6nPXw)q=#Ww6ioY`U
z>)se1+6_I1{KB*f#+8L;OnDn9*j)Z<NxTAReM9Q#hQWCztzd&x)Ya89?(lUln=IQh
z>|3+QA^{iipme-IPtK{qAt9%XVbs1jL=E{&v_t5i(j2{2+0uwtlRfSBOf%^pkrb~+
zg*VJUVKhy~VTh&3AyZ$aT9GDr_^=@qjrdf*VVt=+_YcXTllWP}srYaqFDZq*gIim%
z9W6~tnuC^Er;v0PEO3*m!X5eY%7CgiWC1oH_M)`=DdewcFb*{Q@YDJ8({DP<v^0<C
zd6uz)+d@Xg-l8z;{YmnuT6h%PrOj49Pr3M{hPKzfE$bo<E{U^CC}sZtakTr-z51Vf
z^?wt3{C{<6k)YFI1$9I*${N9Fy*i9`M=MB%Ly!t@2a#%x#E(aZ)tquPty6hUAK+-1
zK*^C^$f9`fOAHnXko?XD>_R&#r3%o!@|@d2j`E|UodU-X??3lyJL*^R0HBgTZz;4u
z9_~!EquNNhYuyHm1wg@S+kKYy<%2af$Y17AfY&I}5Lw_U0wFlSS8Y0=e-wd9sLu46
z_QkggNO}p1@DNBB8Glw=P8sjSi8oq&{%C}PdX=P9RWDY-;EHp)<CG5<%KBxZajahJ
z@W`QCUXBPom{Ma#H%u-Tvak=882Pe`I)DL{amg9v8YnJGVT+wW`}T0<1Bof?=rnYR
z6E2zFLIxz6*#Cm!&%w=xixq`QN#*MuudiOtapVBC96aU6j~|7uG;;-rJKKO5*9vhU
zNk0lETcZ;IjgJo|ANv)rG&>JvJV!k3pDYV{BopE1ISOgbD_Z8u|0<}TnG-hXtC!~f
zM6dfybo9)Gggt&XGjF6ZI{3x@XuCBF1fBYuRZ<5%%r%c38SZ`+nq!Ee0Q**$Wzx1R
zT2b)L{+xo|w~Z9a&{fGb{d^dCNF}tQP`k$XaXmbdOwPGPmI*76tSU2<5l-XXZ*)yI
zzxrD1oZn<;x{0oM{D$M}IM*PhD3vkyj=0<Pj1^k<sm}A<kDaQzHx*R5en`Yx4PpCB
z4b55|{B@C+V{`c7JGJTMM(dSm4Zp5!vp82_3N5m7CC6hWF&guT-8nxCrhI47!Eo)7
z)B}{V99-N;ciMU3z`U=t;sW)Sc()Iw8T|oqX{9ENMvoAybsgCYJ%4ul^3CbkEn|O0
zprzYiHRFzClzB^&DRZ0BbefjA7R5{Vxx)M`GD3t-W;4-BlAV6u=A@%SVtrSAtp4Kr
z6*PI0u7fXN-r{x*16dULi&6j&A7dxtUI3ES-|z$bvf|@6%k1%?c>6|C95X>5Hpqm&
zm+|pd<Fy@0MukaeO9rHN976F0lZB{B-@HFfxJYg8<HIbFO=$b0gLK->o9B`d?>Rd|
z*m^o!`&pv+$7z)ZN=@_nO2BvP(YXsmjWPR%tZ%v@q!qlm13VeHF7=H0lyLv<b#wZ_
zAk(>sxlSF2-Y9mc9G%o9EVT7p2eGrl6+&;O3AP>3iKJzg7Dy?ggTIb(1Ib<LK*Grs
z+NkEZQvxkhU0Jz;d$yX<aEdt+>|44ng_qLrkz|#}-Ld2SjamEHYBa2;iIzfP?!$!&
zM!RSXtBoXl?=aFn74FvNE34$`^>!6!V$Kk&HX=FZ%D(~b*<O>?+;LQ)6Yf=X4wnu>
zY&k=WV*`fq1*%Nc0Z^MpXx+xpBWK8j{O=0Yy?p1(O4aS|OCDTko%HRbMbpekngCu^
z56N;mo}7AsB$(=8hdML1XjTJX_~dYamoODY$smjP^gV=NL)WGsq#=6=Cw6(!w#S}h
zH#|*;+kR!h(p8aj8@Wh5ME=OvtAuX%<zr<t;irZJ4*v3;ZM6P}i}?RIu>6GzA@w5+
zKM<3aTc@mE0jMeg%P+5jJ!i&!`65eA&CLsz><xavRcq*TW*{}eJ?<Ub@K$7Z)@DrD
z5t(3^23f*Hc^3>imzTx%wxX$n;HNxjat5jrJOrtSp#OD4WiXz66&1Ka&e@-wR62AJ
zZ5Sr*L{dxGF$JPLBuTY_e%%DsL-M|_(NZ;lZi^-={lYzwJ)WbEp6Xw3Pu$b8O5aWB
za(av2?66)k%3o@)pY|$p`*Q2drIZyeaT0q8Y6;Mke6FHk5do-13rOCNq*lhi!UP#(
z8!GNH^r9eP1*XF@rKrks1~r8yOq!TvndorR##hmuo08H4GXe4qWWch_UKE$=7+cW9
znh-&QIL?~Jyh}<behe~*G?gYifg4d@&cLrLXMo<g{(B(8{{+ODP|culw}VJ70-^=`
zuimLN@dzbI1@|sxDjhVX%Im-!@~C)enYG42s^tFwS9xh-7z?#jy#hvYU$5i;P%vWs
zABv!OC7ucEl{mjF&6p?;#=ol?;zeFelVw_A!?VS|u&y<W3`qjBz*Vx2;x+28gbpS3
zj9)&Hq9v<;S&96M`}yzkR<ex3+X+ogwhuH%pNZ^o6Q)D2Jksp-13?kTYH$Aps)rDF
z1(C{9z`+YA2~~?Sl?h6*B`CFJf7C>malqbCr=6&2X=8L+!}2Xc`=R+MMsHp+x$sL&
zc=UXNw~7xK<Q?RJqQvzWQ+fm!ZM8cqgn^kW`$`K^?M=i46OxlBCoyof6{SjZ$7y2o
zE;;mMm3=g$@p&e5X1da$;R#QlSzS$)<o$cj=zg>XZx*S|XM!_s94!&0GX5&(B%HH)
z3NvD)LIh0YS%u@r2X~?9l)rF`<pcN{w0q54`3YC><%(<n%x93zSgL%GOO&GFEEA)`
z#L&4^2myZpVf6{z0e7OMqt>*NGNcxP9;|q~HFmj>2uPX)Upk3p2~$lxNV4xbn{qvG
zREt0iL+XGr5;>@iv}|b_I~i113{a5AVJnx}P419@^FWK*@occ%tr&_}irrSHJ(C<Z
zZAnVe4r!kQLro*&r;FyO{-Xux?E~NY7!%rFHMA0UE#n{>qw}mz_8Eng>B)$m3|W(=
zij;&Hcgj{2*lmHn@Hdo7$Ka+T!u1!AUyI>>5h~s|Vz1MqfDsHHKfU!@U|&VE4MpRb
z$n-?I(6bmK38?p+ou<hr;7H7!X6D9ic-hUI<JDNCah@{;%sZ({0OF1Ry;t%f{E`lV
zyDP=d2N3cPQn3PQcAZD4d^wtCWB+cF@^C}(@jfY7I-^<N7N!6Rmq=+IkH7?F#8PsL
z$%z{s%?+Z;nGm2~udy3X40Vp9wiT!VK|&0#C(aFHG!c;_vqXHbh`b$U3F<-9A4Vz+
zQj@i%Hqf*f!cr&y<QAIBPlv9q8KKGgc1i#HDCljib5I;oVG4H_(rQ9PCqrMjH&iWp
z<**GW6W&cgWT@;ofru&@!N<CzzV}T2sXkc&5`7;b<Is2K&ySO~7S+u|(5n)EG|USq
zK|#FnN>y&I<*T;~$A6ee1))-RaEs-uKT)P7#S7Hqcrg;dnN=&nu*USR=opl5HT^2m
zplQHyGf4z|yeOL0LNRHJI+!t{0}jes(`R>W-Y#H&jt~eLULj=IqA87#JMAX*6_m+y
zr;3}V&Ok1eqE<+Tb(1eUKo)gp<H4P{=XeXU1Tm^KEWy3Uf=VY9FBC+yY2&E%3s4WC
zzXfdE%3p<~0yu>X;7*HTy#law1>Eb1V%@x$=&nrb(opkBWB2r)3}x2R%ABB7TLO=e
zy1^k-aX2o%!O;`h@6zQo=~3o8GlZ`A0?6<DxyHY)@_bCT4rWKnp<IO(L&{Yc(^p%S
z+0gR%!oB=I7j1n+3YV#=spOLJIEBy&91Nrp6&+mwQxRXxWODay9qOSRwcfKpV^LRk
z_aHDw8*Gmh?^_cdR{O0T*z|ZIci6J>stZZtIZEi3)_p-lq{qH=2SAIF<MA(y0wqef
z#3Z#izFZLKTpB<B^rWdKh14;dMz8G5Ir&5^yJ^y^*DimzKUnHLh+^Nk)$2ZAlCaM*
zDkc?hu6#JuH13VR6Dn$NJ~Np+D~1Y{T7+!pD|G#sAX|{7?}w|_@xm_b6q&XCBM-=?
z#@Oml!Z|<hPKC`5dfH%B6IFfJ&mMHu3WNH9VrgCFsQHW+*&xGC5*8O)51wlhYcq$Q
z<@KfS^ykGRt`Jkux$wlNHLa8BJ(Z0!Ih^Z%3NCHvoNioX=Z`MXLnLJ3C=5g!IhOA`
zEMMLpeB^P+;(fT>+qj2_<{;1_J|C`w{yy@e`^d3pFt-#Jn5vyVd3lvv`0vXe&`PiZ
zt@Mb5XU7J6brAWN4>#pn<!yB=f>I+G>pQWk6~2(YQ@8`JH`3DHuM}$uYMN@}zMl>G
z29*v~EW`QAjW#j;+_7)oTN{lPoUq@)SWiMF@VbtSqL)Mq;RzCCg6*p{YRzNflt2<q
zOia{c)nGQOF%ry%fr`(miun$j71+UO5egx53W;GLDFZ_pMx;r#qzBGDqAtU9GN;aA
zXoUrHQ5gg0eT!JrxV!^wfc(zV<GXL+USM#hF6eVQ*A`leBH4=su#(>du3xic2Qwo&
zLs+!gYhDs0a_u#_Gxm^w=4eANNTuU<wLCb!GM`A7p70xG42q}oLOn!uA()C@KtRaN
zUH3ZrUrA3mP{Qf+vvgGW{09qo5?X|F$Ip;6$IoX7D61VuSuvhywbNhc`258L)oLJW
zQ+KsQ>oIj^^MlkE<Ij@;iV+FevMa1Xh4E$ezvIeBbHE3+_F7!-AVAg;B0nTGW7QYf
z<E>ZM$$!EIs(f-uou^9PB00BMEysHtp@L+;B!H9BY!135A{h)u;jqfPUw3M~-l+*n
zodXG#$V37_$72yIyL@w!og}Bb;RpZFTr3?MX!+9Qw2};|<Zjdhs)<05GpH~-q`(%P
zbOFifz>`((e{fEe-LNUA?rnvkP$BAB0VpN^I&$uCN=cGqozx8lw|&nX6n8d)N1lzm
zNb4h_yNR(DW?Ci_`IO}*D+5|5**5F?9Z1W`0NLU=70i~zqB@;SvWHrD4ITojP1UUd
znh?13?Qg3n3s{Cx>t@Zq6znZWaA8~K6ciX}gD2mLPLN`<UTKWl7sbwcC^V}jv}vc9
zDw6sqc7wyqVxG_P7MZya`4xb67$>D`sPYvMrobh_-ti$i4aHf?CrC$4(AcFD9jWA!
z)HCVARJ7dMIcUlxTn7=8VF%jWm~gL_cjUA-(;IvsO{&nu7L8o?I8;Lc&^MbvfjN#A
zr65kYF{fjl5x{E<<P?AL!`6xfy<9R|7Ep=kl?aL=CmIx3#gH<AV+cVz$$>>27mqUP
zZ3@*qjVeOg^ZSMyo1GvnamMx{<5N>-4xJ;&WZ~RK`PbOsS{_zHkkN2p`Y1VpQ4-hq
zT2O9tqqS|-@;HrgLxz(2S3Cx7YzJp_Y6$?|PZj1)$p#G)@3Rt8t0!=Dyw@=|h$vEk
zg=BGSNJN;*^PD<GvMd-39>QJIi|I+|cIf&v!x*vs4&e|>hX(XWq;hgWLcG>lKTqzk
z{#foqYpP-1`_^@u^C%NyLqCi%6o$5~07=@pPMe9~&?AlIIc@w0@D!5}qg#+nS_BB;
zyp;<+au8_IJUwXw_01TSC>=G(=OFRo1qje0X9Cid79y1amh>gDBJ)R*EW)mJY_bbE
zQHWxZsut`>KpiGkpCMgzL|>LZR4!Z7)pg!oj8e8`?5@t<Shsc8@Ck_hbWOe7lkw<4
zqC78lCaM}k=`yujF^+&ue3)@Xe!Lb4&bBKmk|Dy^Mc*wuaD{VfJ9QwW&uuSO?U`R%
zEvOs(J#oj1q-F=DOt9lft6xpVb^BWRt+h>pwU)`nn#YRT5*u&7P)himQ|7Q<*>Pk}
zpCdtQXv_0QF<*I$LvpAn?hWjF7*msoM`re+zr-;xo{MT#KOl{hGq)1bqNLdnIC^A)
zoNu4UId-%}v^&-kjG8lg$_D%2uS(0jle3l5aR&AQOIYg(Ocse0<E{Lj0kVAQTvV21
z2-~j&nvc3CTLkRdi=nIE_>c=c!%TVGmk1L2=!V|BjE;Vx%;<5$G4z+wNd6AMm*#q{
zEo^2el8fi#0?Wp<(FxSMgGpKriw}LW?^8w7b=7++KTqpyLH=h1|IMEWkzzWU3K1#;
zf|^5&XHG6pS2;<!;-=EM_J-J%n^y$py6GTuTPgPA6<0n;wqQ^lZXs3bhB%rd+<8_x
zCSqE1ny3O8ro!AUn>Rz%Rq@?^_$s(ImgEoFt1p!4e^7zE28gtdXj<t&DbSi$e>hVe
zh++m2{uL6`n#buWPLO`gAc;qfC*LrapsE{WnM9R@&Z=EGY(fRX^AGiS@acHnV0NE7
zKUK5WB@5?Z>`(c(4bFo%36zC`6Hqol!qq{t|MIF>p?@(bCO6V**?7X1BS@44z_f02
zLWyOLQbhKuhs70YIY};Os-?y3jXi5VV!-qxu4~iImb>+yNn4BEj)(;Ca*NR0oiKlY
zG;1{w+(869NV!8%C^p8wb!eeDNLAbT>7Wylrg^fGEnv&E*3@K@gOIZfUX(Q(&y7}|
zsjiE0J~Q0$`-4j3gOZ0LIhtNd(*L65Qc0#wWHY+)_E1NVB)CBpM@HgmO5Exx2|5K{
zk^>UXaVS(D617RH*c~)V9dWF`bc)WV{w<aV=VTK+O9@^xCIEuuh-!P^7k_`AgSR7k
zh?uwa2yi}J2m+ejF}GYYLPRrjEe4=mNVys&oqg+6gzhu<Cp~}M3+<ZM*ca$|up$sg
zpdg93IJyaw6#qVY;yUg|k}>Q(ocOTqi8u{C3`OP@K?x395rqnmjAU!1YnPB43ZNo9
zPVmI_>({w>x}*RW1+3~{ubeKA+iRUPq6-1Ik#-|seNI&;Inad%w4Pe2AONGcri~<M
z0IQFPyaq@)A3U=S977Y5x19Pv@LP=FbGhhX!}FDaDk2n32XPKQQRJ|=vDM)mIg%YM
zB(MnXBj`7ceH5;qFm!@$npdhqYI>+*5N`5`t=#trmLYOhRdpRqm4rY|Ohw&<xz8*&
zE+Z+I=!2`&^+HH`;T!aT=ov|(;GZ)T!Nn8rMz|i)l-z9Uue7jZI-`71nRD^wXU&PW
zE(18~M{q=vq>vmkz+E+mR!)Pxv_U%7K0BQ|>(3Qa?-eJUN!B=Gg9y=&6QyY@$xYG7
zP)B%qJWzMh^}P;h00(4DtB$VwaFw6!eM4z29Dju(P=$~g;v}abFICfErOw8`Q)l-E
zjOZoQdMjx;mX{oFu}>;S9wUl2RWtiKa5e+jUDl~jcJ)HRPT&~9GbLaTs{9Bnxrd%n
zzgb~H!HDtJ<bfr<Fd9q3xtBII3kjjcCjLYf?o_dpwZPjMbqXWsNeSY2`?@RuSTLxt
z2atv!pBqwN9AAXcN0`w(lW0Y*Cl!UB>MSCgMB=`$zVvWY%x|_KBKbGlP-12^iW8lv
zb6?ttT&wiSW9G!iOm{-9Er7I2_4<W#wGiqlKh~cH1Suk!7okw%JQTI4NExa(Ul}0c
zTF7H{;;gGlBB;?f8=}s60L5HPAl?D4{hSGt1D_RciGlT~g9HfCG>NSx2HlE6Tcbbo
zm2>7vg*r!y;KI6s`)Q*gZv#InTF`0{c-p&S5=xG*l6W-Pmn(%-oS+#Y@Y{eFjD{_?
zu~dcBih{|Chtpdn-JA%5CFe8AAIR>&f-`(}SEvB_Wf(bLh#oI&OuwOlHtS)Y*;`pP
zdbp=sE^Lu+IX?5~mH44Z5*S%miOhlpZ^-sUx3@0QJ-R^_#;<a2tdU30)dzV&+ijls
zPmm@DVtcmWu@Is%`R&3jtlj`3Yy$lff9a3q<S=Hw{)^R*6CQr&mpS|YgmCPCiL9OR
zB+UUJc9elAnx=al-Ho-nHLdH?>@^A@YOP9&Lk5~%(X9~_m}#M9R}b(>Uis{vXmokR
z(GNo}JZ7@t{&O33`8Ig4#M|w=HjIOo902fXRUjl0dQoB*%;CTG3e1V$DxYFcqL-^N
zul1F>DKtx5!(xin`TUbHEPB5dBQ~=zp@UJK+L&VP>mr{ya2Z<d-gw&QOT|4oAoyhb
zkNrucpw=QI<Ua{^B5_@&ceA6y^lIVtH#lDEDTzLg!nB;>I2r$Bd5%keuYvZn7&~m*
zFHcR<M6~shvS?NbykOtg;+YMCtZc#K?klmGL+RKtS9j^N@%M&<O@uH>)$B#is6o@9
zoMXS;e@$+Ux%L)9!;y{-^jZ8;c17m#>SP=yv>^d>_uYS7h>^4KkleCmi&$!JpIf^a
zm0s%JYink1-enVqT2m}(S`dXAjE}H?SOkIK$M#N7q)s2Qvb3~JkB)FoXWZE=XddGJ
zO2?n+BE@rFj6Kn~c{)OPL>ZiQ=_oo8xbmU()%|K-eV5fi0R<R6j!_q_Rg(=kV}wBJ
zjK<%=7`<t3l7FPdb3!uMx>R>*J5Dt@zytyq2^bRVBdYuXW$Euf=NxUagKmz9NU>L4
z83=Xc{!PIt>I|J==&0zfM&$`)J#LfCCV4s{iC%~OWl0JpW^KRH5yJVvg6<JlddE}m
zx{y)2EFYE5BIAhw{d?*hN;m0Z()w60F<hz4qg|Zw8Cf>zeWlVtpe3DR;6a_@q7rOD
zI@%?Yz}aTp@bW(<ijoSQi-cbR#3!}(07w;Px^riEr~~}71N;`+?SZ{ZXDXEyQstnI
zsPW-~g^&vxR|&uo1@Tfu1l|DJX~lsVNw9M_hTM2uhVkXRH;Mi%u{$C4g@hoB9VFwa
zP0$D_i<<=UImoSBtEm7{y86pPa^8^i4lP-&eKWm%hmc#4vL-kh`+JxnD~@ru4K8d7
zh&SlapCAjb7Bw3p<paVM66t*Ia|nkfUxKHOWMo`tQHH3i;{@SO;YeBlbE8m_Hz0>3
zh@83A&(KK6nNQOq&tKOCojG!(x8e|aE8zWZ!%Q9L8F100frJBOb*=uD6(ltzvSHGH
zQyq0_zw5+scG3rL_I7v-6hMU*0?;T<XiB1lC#yRh2b5M_BrkvVkP<=3M1vj$x|7uT
zNKFGZECayrn%*RdVacv8N!5weVO%C@&B4bobGF39`Iv?wTNJQ*tQ^nuMZ^y=L!u6L
zo|8)DYg_~uq0=nJ0m0nVu~BBL9<m0KI&s)nDsIA9o|x&ve~TpMce_b#jVMB~z>tbs
z-5qrNi1M-kt91k#>e^jQ)W3rsJ)wZ^)RR||SCRyP#63tCN9t!o9{@(E>N+Ha)`J3S
zftF>WG%5i8{NU*P>`DJmOz|vi$<pM)L~Ps4E5aaW_v<9>!Q<Hb*5k9TvtSZcJOE~x
z^<np{x-m?{!d44IiT3lO{EK%gMAP8@RTxlHHI8IJ5e>Z#L4w%%DaEwdsWjwjkJ@ps
zI^8XZGf$GZX&Ja{`~J6!{JXomnc8`Qv4!m^nboO6J!u0BBB&oApQ()jWsc@d6KX>a
z%&3^s53b#29({3Bqv$eubt;Wn)ozWfxs@R6;#L&&+6Rzh72sg=6rqk||Mq<r>bXhQ
z-(9ARlJ4t^U(E}JgoOMQu*DqwW3ZE(z?;yla>c@K^nQu7Nq5X*pu%uhusZBH@d!%G
zXh?PDw@+>AmAl(&)7RCGM>J00jR@5lcC8k{X>0Rpa3nrLoohC+Va5oqPZkZthiw2U
zPY-VTUfl1h7jbSSL)ZA-4DNQDmtrz3o=$vR9IvpDkb@c842L)n`O7rlxMFkq`{XWs
z-IrRWrsa!&y=mCgFXZ{kyw4iFcKi7e`m5?hlj4#~L@n+zGtl!?0E$`n`=U<dw5i2H
zy3FwK@%N^v%twyI;gKX{bVa8&R>Li<s&kcZ_kc)GyuJP5W{K~21gc-hp&B9d{zk78
zpIUr7-1RK&YeyIIH)J=&OM2eGKH2Oqh5cGcIuu0Aq`WlL6Z&k@0h}BY4k~W-<b0D`
z=(k|QiN%#J*Q(7`G|xs?X+FHU*3{g$-22bOr%_Q6w+=p5q0%N^u*a-<roy|TF;1WP
zx4Ga|hSP_SH<c8lZ?2E4bD5(!f4!kWyYrt8q3B)9xuG-Lq;SlpxhSBp<cH;0Pq4sw
z^n?rf8}V&~XO?zQ!Yn!simTuHPB-5caxVB{BlO0i&^5o-nHe%icX!jGCr_Tt_4-s)
zloF`cS*o6`%a2(haeh7+QCu-~{s4@y<{bUOOzTUujbGls4W8a@s#;pzD!M1|r$usk
zKVAI*do#_-%Fi<<K3<3lg~P5=K_Q`~JG8enFUU|kIfDiDG%-=JW7y?MMdt}=>1)gP
z&s&X17E?R&MN7@e={4pJ<eHk9t#QfLO<^!@!$y%hHa506++sm3qSJiJLm!`AI9a4k
zOd`uV?Y^O8zH{f!V{On17%}8maZ0WSK3^v_JC*#}p(oIkMq|Sp;kSLRuiq~pd}Ie&
znEn_XN9w_0&V=rQr}W0vt2fcIe+$ZwWg+r=nQFSaeCmhhtcC&PAuT^anUScNfh6HK
z%Z|RRGEan+t41}bm=B=ePT1L{$oT{ZPo0yD@A5v?{jAFT13WnXZpd^j_E^&#Z?o0C
z7?u>=rITZ0H(|J;F*-8hps1+014VQTB{j!68+Yf8M#%chbrH*OP)xg;GPiEs`t-?@
zKRLvm&OVQbkl3(X!ei=n{xD4JuDy(j@v+TAtd)i%vUtL0(-X?dKFo=?Y_x%t#NAg{
z19|(Hf$ug+ROoT%hZ8I#^4>A0YVoEoU;Y>zLja0<p*}G<3}=>stb~MweC>wDMn2f;
zf4I72on@e2QFcz7nsMf#Hx~6Zerf~j)~s2hSbE;eKkKh_O2X=6xSA!D^PpAsbfT%5
zn{pG7pfET6(3_agrhlWzTU<SiX6Zu>P%jw@-IXvhOVzwIIYLVwkJZa<YzcdZBl7VX
z$FJ`e1Q>(iGOqaYG&#AVYw0cvnn3Kv<ttXOIrcTCo>Nm&qEoh`F{JIRyYCNW_14zY
zUZVi~#uce)Y2J??Zw%<|s*2guu2aQ+zq%dO--fo<c$*OC;=A+oVPIlB*wNAP;6hXR
zn7WNyDMpo4n_%{agPt{q_9Qx>ie7x~9zG8$ctiUt^_=^`G@r=3ygRPGjE+v)Ncj=3
zt<@;YcxCj@ebdv>FdG&qdt4rt@Nw{@qpb@T+|B#<(?s3`g@y5Z#h<c%{JntE2Mwp8
zF7f(QcE&AR^KkOO8(G~anUn;B1%bJ_xmglwkrnyvEyx4Ty|6d(s?ltI+rNs;05KoQ
zk}!gQql4DHpWLCn1#6%3oL<MlVR>+|LCjx&%^km=DB@RFjc24T4S(Cu<{EkTw)!~R
zkH(&neMD}Jk+qj2z{G|^QRji@au!p8nMwS2x*@nZ?>+uHM*EcBAdLPB#Szc9dOL4S
zusO``rD)@pmYSMxaq8~os-9iS85in%aRzJ3G0V$$GTGLx8~oy|e%IZE*<yB~@XcpR
zLh2}8BDR=`oz5*$%6a7CoA?Z#@$ovmdhjs@q<nBuRaa+nGz-=%mNjgfkC!doVdz;B
zD#7f`x`{uZB;1a+e86h=#&p?~)YPvq@}YRaA`$=Iap1senBrOO6W+Hk|J(SNFXt$4
z;5Zq~XMvNxA#~ZYWj=X+4h?EiDoy}Pb0`qoZYYFc=ajDQHh4H6fQQ@s`STzDcp(X!
zMv9Kuvn>w1X;pZKmiQJpdM{qS{KV0tUQ<5@2d{*Mh3$tSv97Kw7G!2Yl0VO+O8(D-
zu&MNJ*MnDs^Azw=!3D?R4`737iITnCHJ@vyP>UQOJxm)0Hy%7ce`<O<QzD^dOeo$_
zO>Kh;x9|HJPlzuzR4iP$@I1QvDPA~43WNf`7kzPLoCy_T1RM2a8y1BOGO{0qw!>wZ
z=l;C8bAM!1H()hgm_VYPe9j*<<FS}3O}Tj#_+K5@(AY%TE+SHE?xMbU<;sPW`YdPV
zhXbtp=%Fxdx8P>**YDr2z{6o9GLPf1UxMkt9Sn7t)3J0lLQ~o!i!qZ(vFqE<Vx3ly
zK~*tKTS>{;*{x>~R6n@EL5K3@{KYoV>3JXtjBOk2M7JK^e7Css?!4`yAuC}D-e%FT
z_0dJ6Fm4e^gw*|^qd$MXMYnf9#)&**Fw|xmbleZ>zoB^7WU!Xk#Dt6U)Q{v+&7$KG
zN;~%KIk`}MTSUuPj(xYE_%^sD=+w-8(X$P%9aTe#iHTn_9r-EYsi|z2FJCsU5D^#&
zVQoJX4Ojk6uU#7%{(DOY@7s*F$6R_NdgxI3`EA#aUUD4tzWlZD$IY9IgYp)W-6b*p
z`Y->iPy<ytMa4CkiJ+*WGXKqlxwy%f%p|#6Nx^Xy@c#R;bnTIMRdZIW+Zctp)QuhR
z|ES|`&?C#{=-b_4!FTndhKS5P>+dc+2OIBP(eXQ?%>HY^YcSmYjQTr^#vjo>URL(`
zjoBpHsW_=8{!}^ZTwhmbUX$88<7VGFb^a9$m?&=m*Eyo-r0E%*Et4avv2wU)JCjz;
z%W4@0%Hy(rct%ccJ_RS70i+TV8oUWlYq}FJemzFfiTMm8iQAAbEGjN8?)dTJs&2xK
z4i{r#OqJ@nD1v^mhk2*&aXfUc8@N!&{eD&&W~8Z37(w;y#fya$xyE%8RqUZc3(<*g
z=Iqv5z~*gsZS~98*dHTVbebz_LM@l<?a}-`_XW>dew_?ML3bRo;*3!tCoK`?9)&Gh
zy)P=sr<{EIT3lUf&wGuJeF7G?f|M!PbZsb2OG_)v0T&`15)*t^Q%kG0z|g``WHs)+
zVyS_bf9PTipISl*PfYyW;+RwnqaK{A%PC_slYI{#KD_+t)9LvO7QD^N%QIAcn94lG
zi~h=RalZZg?Xuo+_0*?Vd>beG<idOQ9Y;%tuSMRy405&bJKjc1P74DP7OmQ5=c=2}
z*whr54Qs7T^`)EjaxZ;9>21cWt84kb>FKj)G~Hqg{$EdwL-zisME}e-no0LdJE@KS
z?Vs4^^%{!ju3x|YoE)V0-UxtNa<*NS`zSi49~@c^?zwlsBfcMipKYHH*;qgFDEty@
zh-rpTld_VM%ga5D`D2@I`3XJDaOfe^SvdIenwmJla#AQQt*uW|QYyb@y_EIvkmS>T
ztv{lD>eM1)b?7PFxIa2_;$6kZqx$;WAqH4Q`I2hEjuZWYP>61VurqJ5ViL{6!@~*s
znK^a~+)>vR%Z#rvPqnd)!PFQIY!+q;%GADT4W2;r_f)?uEMeqVeDu5g^P@(!P<qM@
zo_3mgwPL5o;w4M|!~`u$1%Hb8pJ&gmMw8n-3W(-KC1Fz5<d>yo)b1z~JT*t>ez;8y
zJMaBNImre<*|#522|^pWKpvrHTy=|3X?S>eXgpp0V9ptdUAyMNR&hY%`mx1_4<FVC
zfZ9m*@0Pa5$u_Mr&K#Va_u)v5V#jw-Ujuz1At9!gmVcuVkq8sg$iE6^m!a%+i`YR=
z#3U!L^Y!)JDCHrJ{W-_3XTxmA9;sg|mKdlzBOm0y0H;|%yobX$df$Ohv|OsPua*Iw
zXW{pvBDv?0k<X%|WpYkkTMbR!J5JB3%ZNa;iB*^N+=qR|<xihJ3fI-FWycm@#&nyV
z5)xZsr9`3V>FGf(m-i%tyNaxG%IXap_S{#GJ$D&|<7+NG^%7=${Il|D{ju|yeeva|
zOy;ehllz5)Ho)-FroL;~MLWxB4d(d3KP~a`ecgmSWTkT`aE|GX>E8vv>y_c%)3dP5
z*r&!vB2n#)Il4RlI{EBj%nc-<t2sGW#i=dxm07^a$$9n0jSK&!vuh28^9sY?VmG?B
zh8DF_L6n4<jF`HPJF%OrWizt2sY^&)f~F{O4UtBOY{*738fEGd)ezT7gJ3JHE~1@a
zbR}gqOe#{+GA<oyYNpTGME~?(zaRU<?D?F1&v~!sJ<o$61EGi~I9iTG`*JuV{wJsi
z01ZQ|PH-hPfeqDx4J)W7nAzFs;W*MaEzO}N{Qe)pF9mlX>ARhsk!ZouWHPU{hV%JF
z(yu;h7DdABOTwm)<jloIMxdE611x;h>1Oed!^55+u!(X5zC2iC#lUhyYWpy9>QD57
zS7^uqP_3h{PcP;myaX^d2Qa8C7P|t>t2h9)$_>98tLyFKGv5yVwd^cS{P_;OzrSBw
z5!B$2IrUhrTXc!b<*GktdKTp8d({Pc)sB1Cjz{1`SbKhHBy(DkD(p64J>5jrWz~-<
zC@Cu|1Wq{gZOmUFxRKHx+&qY`7nBre*I&w&i^|2tc($QK6SG5(VwU-<@hOROLC^q<
zLPy+F4`M+V*{qd!bg2k9uvL@n6i5pp^XJ%WE@2`LhXDvkewxRgp{VHS;}Gaf<+7sj
zJ?u2w*fG;@7tY+aagAfu3#}0|?m)@?cL#r=P!B+X{t3~`SFU{;BF(U6YH7_OT^`#&
z|KHV}si|Cu7P0d|fgrt}b%vNoqYwr#%p_a>w<f$0ybXmr$x7Ec8kg#$JieF9A5imf
z+{$B>Zn&`t%zgf@lC^p?a?l8YU)RL5-h;NTJ6!DT^`Y=-ivBUl<k?-R3lELE`fu)&
zTs6f{yjeLw+33<JH8r)Qzt-dQ3=DRgnbCrq4UCEzfDSzRU6ws4vhvZ$c&|x{vdk>D
z;$CZO8BXj`ye7^*wmtX&hjRi%J4d^cEx;bJ0^{A&q})@?tCQi9J9%wXObnrlJlv=-
zbjz{>{#QP5mPZ!{orp5pF%S>5B|dRSrlEssxxx9oyt(CN3HYZ^{UT)p16Na1v(4GV
zVj9!~IK*L)zoLH4&B$>2Dc)W-FhEusM987N*=%@pNm!$(v81Bna(TH?)X9_P4i2Kp
z5AmY_Rpy(M<A!#Cd7*LXsdr~Tj?|)Xig|HrDi}*>W^Fw(H@i_A>YUh9dxf`=hr~n~
znkpCT2RxcqkhKpDErRYFqk$^<?4f{wL7?wrKhSb>b6>LNunz8DkcjYHOJ7$Y+~?aA
zta{rgiv2`ItppY?X1*y`MNoOlo^(M%hX_6fU`gvq#V=Bji?EB(ymkM9G2Jmi>4{qt
zGzyI&&w;Tuy;S>XX}mSu182R*5xteU=X6j1@B!JML%0u4-k#YGXvIh*L=@jKbB%$-
ztqd@ne{Z4UV(Xmv*fjwF^kR*4+AM-zq;5U{bKmFQTR>*xs;(|o<;xpj*sOuvs;VR~
zQtPKvzlJwJ)7$$Cqg6w2hNc(J>8OD!#VLDpKU^Q0F>v#i$79N5GJeaGd!Lz8D0S1t
z3TGFWofOoJk<h{+c{qKukU{2}wYw>#QyW*b4#dP*0w`*1LP4X5YCxQ#i3UY{Xjd{F
z7uOC~i)Nq=hRBTz(TP*t)Wotbz0F<nA+wyc?ekO3*0Mt*<JJ0ac|I4lv2MJYU?PU`
z>la`M$>WIRYOjsW5Q<hwAZru`1=Tb(yoG4S3rrVak|n4feWRnTw;Flmb;rbS#;FF|
z;DDHj=Jg}hdo3XHz5jj_y0iV1+(3r9J*sfn@6A+I!+xzZoV8HBoP4YX60@@XWLhyY
gF8w?1fB(BJ6S;-D`ZFtU6$;xS-+%)x-Vx{j0aPG=X#fBK

diff --git a/reference/as.mic-5.png b/reference/as.mic-5.png
index 0454041dfed59cc15922447c900ef4b82006a25a..a030d88440d31edd24d19fa7ff051ec339bbcc5a 100644
GIT binary patch
literal 53324
zcmeFZcTiR97bS=}<1?U05TAen1VluVfQbx(lCy&3q~svrGhrYo2na|JkeqWy1wnEK
z$tn^r87@ffb$I@&y1S;Q=8u`_>guMnM7Z~!bH1?m+H0--J(s&Kwr3~JP6`T&Jrd&A
zZc<Qev8SNeq_cf1e$wgpeiHv|)sYgrhJW$3a5di*|LnLcu4+X=LGMQV-Qd+frAI+=
zj6&ktWd-|pqumbH2NiqPreqr<eO^7dwlU4)LHMa>AD@Mf?%vINuJVB}-K~RE`$QTT
zbAAZbovQ2G%ED4|{M5srVP4OUMST5w=<r`}!ba0*w|@=XoHlFe>iWxCuv;Qo!tHv=
zlFjwdCW-Dma-zCscXqKeN$DYH+4l7tqoDZ9Zoe-5pYJKcbi^k&{`;Rx?~Z@k_2=jJ
zUTo(0^KI$r{RMx%{VV$a%NK|IUFLp-F~6HVzdLDdc~Cf&GP?5M;lt`nM%kTu?$2$+
z|J-JE^D`TYXO#X`%x)!rOBmd5Y)TLP_g5d=J@@@L_qvZ-=zb2j;58*BrG%0V>o5AK
z>bZI1h)!dq#JRGs)Db;}PUZaXxcr)i-<14#Rq}(kFZ%PJ>yX7B9{%@Rik}B}X#M&2
znLLyIzn?^L?E35PiI0n%m(+N=I#O;wifrUlJA6hZOkh0cs!Y%YMPuVQ_JYYP-A)sQ
z9T`SGy^dLCol(&tj*|5J)^d)HdFQye$o|F4A}<fId3TOcvifoAmZ_xT$=7z61Z(Eo
z4)^<OE3K`rw8Y$CWIlP4m5WQBUck1waK0yg%dSI1Lk$r>xJ3`r@!q{uC$yB1R4^_1
z;lqd1c-6|%eA}DT^432~pYLoV+2&{3j;RTfo8?DZ6N75`2I=s!;j}9DrpX^AnT8F=
zsi>&7X!Q15s+tKn&6$$c1RZBnRwq^rJG0Duzx-Jo_EKlNPRD&-opcj6Y){kkjvO5|
z4R#vO%^L_bnI$C`Z`Cm9%DJ~Vv9@Z#%*6Ed$6do;Utc>82HS1)oA{O*;m58SH#<8U
zmfGdIw&J)#Zey0vc3IG?r%mkt^~><<tH0GUjTP(p1?ec=jGJTjDYd^iTQ;;X7~0n7
zC44kRT1O{*pe{67$a(P;H+Rcoap#!Ql`9W>Z8X^Z2Wo<%-56X{`1trP>xxTBH7!jP
zC)1kee6kRHJ?a{-l$dd^uZ-pSmVc*jvTS?LsfFn(j+QjNs;~-83CGoiL2li$-MJd<
zD+_h5l!0BokuCAc@!G{MH(pvTO!pgOrF^UCZn|CiY~N*{{F_F{vt8F#9cOBIN|NSr
zcdhmBuU<W&z&!k`!e^wnxVXn<X)J~0b<O6*pGz80?k~78U4M1&aC5BuNLOxpYl3Qo
zeDw8-G28f<7;#lqRb1k^;#`Q+c*ED%jG1>T_G5mG@GAcMzf<sp_%k=w8Le)f`-P?0
zvR^V$t1z#TbG#!{O3-O;cA=Ni>tZ;YdR9zIikx}2I=jErmMvR4ik$NYsskdl3LO<4
z^FLLG3Tty2)Ml)jw<QIqrKKgzv7R~8Jkk<x)1s&>!D2Qjo@v}7X*E#YFy5W7sGz`<
z-N_c+6dNJtHS&_9NG{)YEFq0i)V=;SquBk{>~_=jtrKKX)V{ceaZFfq60Y>@@z6i>
z?;t<m!4sc%oHa~T%al~sa`<plUf%cBtFT|c?%0fXsR}PoK2og33c(E;e@l5!JlyS)
zr?KYUd6Lr73YhD_^G4yS>G})qUBR5Xq91g)$_&4M{HL||$dMx*sk&}j_CK~{nzr9O
zefqSdxVRkN(Ae1694@kJWz530squqUys6_>x03e)69r9+`Is%WeA`5RyK&P@ZAr-&
zNqHkI&P!w2LKQ7{n-kTQtNc0I>V(%4it%paj*M7uA0OQ8v7nkLclX`o;U+OsYhwC{
zZGLy)MF-1|{DskvQrb;9J^sw@u}`$jduYzrvnChpzbo|3kvuY-)oDJn&@0B^9ElGo
z?mw`9|7@34ovN$r@>IF+3l0GRby8b$_Uh_Le6sbYEr%82YAdn&eYvl2Gc$`!6tB5_
zj5NYC^*EB)T9PycMi<wx>0+Gb$2WLAx9cV%V`6dq@mRHBoj(yR;L&D_Hy3B?ul_BT
z=O}9@7k!;x)2fF1a+S7qgGlQPqnPK{VQVGcBD-GaHpiZ93+>QY3Z4E(dxcU$Fc&3p
z80z}zii(QGrQS6y=G4gOX!RWvU0oVfhYu@P*#2ZY^zXDPSSVVJt*CzG5;HwZCbeaU
z*o}2?|1zv?ZdM2_rl%Bp5-p{YWg0+UPRbvTlcR4KaE{1EWDrWQS)3cAow9xL@@3}z
z1xx3tFNcW<$ujSb>nr!FqVAK&Vo<5`Iw~0VbPug)L8ASCw$79n9_%rf%_W_mYkS_-
zR#zuf-n~z)dq2tmF{t0D)Am>ywOM=Gm&MMd6V{*38#kW{H<J#!AT!_VS}Z9kdHe-O
z<Mh<QKRK<IPP*YQ=J%p~N?G^y-q6#lAvQE+ja{lNQ?SjjJcj4LZP6DS9n#os*Q?34
zKeFZYpXYwZCq5anrSgQ&%*>4L!HTuhwDPxa-&P?#2|Ct|ZC2*RV6oDjsLsQtRiJ`d
zQoMZmA8gq!^K5s{)(GT*9}|~0$I1WM8@%afMM_kU{r&glv5w62D5Gy#W<i*Js+qTH
zS*Edx>e-UsE(nh)0|A0}zh6=z*9CG{ISN@1$<+jKo%|IujL`0;Xczfkf8N9SGY#nm
zvZRIT04`nXinU?H81i!O+Nzxj>Hb2$|7~COT+0vS<<#<{y8`3{U6yk^>G<|5bsyD>
z4tS>bpZgMc{asLMH|>RL$D+GGu9$UXoPOHyhUTJu3VHd-VJ*2EH*VBVQ@UNPyEr4Q
zViU@H@3W(McIQ>U(DOz&Rmf2vKB(5o2J=%jsr*Tk`wI-7Bi)T4)Ml@ax5WEfT3YH*
zziuvcvcsZQziE_a{d@9<Wq!9y6^*X-MB)6%w^ZHREn|hr7KLP``ZOXte0$!fUlXWW
z=lc7H+uO1~iRcw>lZlCG$aQVrHL=*r%E|^2oYZa*+Jey4f0s8w@5`4j9q9&MLW@I;
z-FHj&Sn>xe?)T|7Z$tP^EFP>4j=vtvZ-mirt!YNONlQ;}i4fZ>6DlM)nrD$We1fzf
z#ZefUs#|W{TjZ>?u^oY`%8xCt&r_f|S~fI=R5)G9nmEW&F!}I;>9_Aqw$WUF*2#m-
z6RMF&=8MZSb&18@=Gh@Gi$>fQJsP(8nmcyvAVL+wPawBR)a6H8jedN7qDa%Ey|$<v
z8cU;;td)oeaubUXFMHK(u1thn2h&hw*p!jN@jOy<lngCt0>M;dFx0ik^g@v0#0P&Z
z;~KGxSoN9a-TZe7gZXW4;sQ*kIXGm^I<tJc&HZci@!<aWIHYn}sXtRqv7;wl8qbz#
zHF!PKqF1Q(y*LZK>T-|M#BjyQ(A}!G<6XIqlb^Pg#I@<C8+~~}CG@=IlGgnxk-~+6
zAZ)9hsuvKb7@TKs<gVp+oAc38^3i!(GKR#n{27Qa(S%JOhuaDqtgxQ12k}_67C6jg
z5SdFeU+JW5hyn)R=Esx6an4I~i+v1hF-HX*V?;gToCBCnoERadQq!*cL#%wXaYMLB
zN6x*7n>TM_@=lV+I+b~P@24YgMgRQyGlf+1^=thinUrZge6w(6u9JwOlytmd2)jg{
z0gS2t{^?Om%I%V8KgZgVLoKbWxB+mS=h_VxhoeKSfl%I-{=2Lmq^koVm-7DyBVYRU
zHvA9D`@aEye{#SBUXh1~Z+GHG_wV1&vND7WlwkMgcf5?RzW>)R`?EcMD*ShsqyC=?
zz5nd3|GomKwfEO@j2*Sj2QWWClB2jb6cuFdjpa1aQ>aTX`J~If&m*mKY@{t&+t-Xy
z&CHr#$3rY+u5hlyWQ9H1G+!p*oCp^Ge2<fb-sjB^(i^>mS5N&5@ZY_Ar{eZ#`&f5=
z8@~(f1=D9Xyf=J(eVKv%Yl8)<s1K0tQoP$DKB*+<;!;GueNf_Oy^ra|iGrE9v;6i}
z{K1yIbe6dqsgzrI**uR58W#$SO!ES9BwXb%nELqzzs*}5iN`&bx^pTmyZ$a=h%*&v
zFpOxTGPyXNA(d_3UC9=2nolq6q5+WOSMsA?cy-FlvZ`>2=JiF&qZd_@k^r$)s*0D!
z^HY8b-1~X0)H(RT$?Jx-@A!yNU_Jc7pM{N0W_Wmbr2hRQY*2RR>57y54%2s3Y#f$W
zCR{DPoU{D(^;w&LWK9qc5uX%sQS0&CK^AUq#XYna6#UsWt=CrONeBV{bEEBjGa_C6
zmWo5vZ=842@tzG=(PZ~0QY4bI5f&<O71Rs9fq`*AWGdNRmM?`?X63Q-Qb^YM-D(B)
zsZS~C<7R3FWQ~lBh=(T&ugwVGE?g56h$3!$xbcG{Rz0~~c=d)%;Q1RUPHF`vE)sjn
zqG%zCl0k@WZdIh@M~Pda?m*!fF$w0`CP1P6t<MJ>XxP-V%`>yoZAh&wo!4z{xxfCm
zTGI74G$2jI*Ro9a)PImVoN3mn)O&x%;}DygHGj#LyMA%|NEAN<1|OaBE`5KpU8P&N
zl%g~l!AWsQ@B|}c#Ln>89AE(T=V6re{H45sUr`x}i-?GLM<PZmR$K^g5shYSwg1&!
zgu>@cc0t<M9D-|Azoik9N1S?gQt!Ej5f1yJYfd3<tX)O56+S1q^{c57%)2M1aj!<*
zc{YI;%mNWFk2;NV3eJ7gB?j~>we48P2L{*WhD9eVZO5_9wl{%+G_69v1_w!4;*E&0
zTIQ<e=1B+{WOAD}34i^W3fESbXwKbvrg(y;{Nu2-sDcY7CXml6s#mWw+oBCPmfN6~
zt|eApEYxK&HqUm9CZkBV+%s0npPi`x>eiGI=22Xbrpg)GwlUlfD_$ihM>9t)FW<+T
z$|uso!;iD6rd^ZrJJW#Tj@xC~p15OVgzb4=4L>LB-Du9pbuW^s1bc4?-d&E1eo??v
zF!^~G;-SB&2h9hUmBrJXucvG%;wUH1QrvyIu(~wCs1=P$GJ34aDksaL*Icl8woyu#
zTH?z)yB>#i6mOE08zq^wFYy9DeQH^R+?aZRZB<oO6LKJvgyU?380%p}cTAX!2Mzbm
zw_R))`{CTdkQo8v_Ru3-`r_V*4v~$oV?v$hR8>fRZ{7^W#V1V%bqOAz!`{O1?^-O<
zR#Az$VAk<QYTS?8e)3jLsPI}w>A~kGL+r2A3C?RMjBI?+6f5R+w6eNd;rjL3BTIan
z!xoPrAR4^wuku%~+shzi${hAkut2O_@i0+6keBU>mo#@X#ugby#PxR<0f0X<?oKXV
z%>(Kp@V(~!sV{$5^;*>l-VUxRd)vgnr}@*PZ7oI4PW}D;s%x}d`tGgC+Q|h47jwJK
z@rUZrA>;Y+?m!+3t!ou`QTY&w)_b;^t1d=1RLDDWs;}HFa}_0ZhF;Yn38W)$EoZXg
zSWlrkGcz+l3_?+5U0oYT@p3pqoJxt?US(wB%%U3oT^+4HCuGtp&D+zMZ{^Agubdxs
z_KU2pmi9QpCHnF(M=MZ^&Gat`)StMIeyqRrI-wZ{8A|H2mjJLVGy%BWxp|CAp6<!i
z`LYv`ylTwW1f&2Br_N(V+sW^rHbmDy)0g&cj#uU=B)6)sXSScEJNSaH6Awm3Wz<*Z
zk=O61o{)yCXP`RGo}}S;8b@;2dF;ae0|ycrV#f0)ghcObin%G>K!GvGQ{41c06Ko)
z?_B<fid9M68^i%^t6rA@V@Hg!Lq|5M*BgZijl<Sz5y}iMzkj5(rnZ~j=yb`T*0pYu
z;UNlL??@^3+-q3*inx50uZ)DmjixA>mJB0#OqRIt+H!hpqWWP=T2|$xj1h(lrf-R9
zBNjhuqqY!1r{)Z!rZAH1JKhGzBA}a0qoy(g2h{wHO-;TbAxXP93gk9z-M#&Y56?uK
z$a!r>;IS(o^$?Ep5Q{S$X7stuIusln94ad+h?>?0h1Tykf;J;>PDsB!7CTFQ$G{*S
z#c}I2N)F@2+2Obw5l^F}1H!$%_Y>PZ4}moP%!%0986yNv7n0=l>q;1rSqxR2Qlc74
z!8E4f_~fFU{7<gg$kEryQ>5DTdGL(j_pJz><dVI@LoZm9o`JNgm2>}|__SbREA8mk
z-P%|-UxT>q+o&o^diCzFj^E73it?ZrP^t;!PB(AmG-`}|W*(Mi(#F0{*nm1gZTsf+
z>-V6UjHiE9@FNwe*c?1`Xaw-Dk=b7(yd%@Z1l93|iPA-6nOIaHl2TIg<(~9pAi6E|
zw||Zyc<s&KvuoF`c+=t%2M^xh>qOK?V#aW_Za?9=bJs5N4>ty5&@jfW2>~d83C3w<
zSk|?X)}mnFWK!wL>+kA+etF4lJE~$c(p)j9&uZ6o&&`iR`{=a)i1@h6aurAMW@it-
zM2^5g+4DLA^qvgDNeF8ajhSs)>cfjf7+oYKlR8Y26(dAF-n@I4Kx8WL7tL7i@uQ=o
zVS`?rq9$!gEeB*Tz6TR9{LZTOhMHPnN47<>*inaT@yf}RIYomvv#>VQZ1nW>hCKzw
z<@EKVY7s%Oq)v_IvkL@YCyGlNKFdh<!r7Z2qN3s?d`{#68J6U|$-!&`tF(Uo^z)}q
zA=3ItXLd4HlU{Zwxk*;omzCkn>6@AzrxX&(sK>f;<t>U=vdmG6Xu2%)SAP8}N8C%6
zS$z3XCusq@@!feIFJh!S#Xrn^#&jza>6nJwI1;6>rfs{PBcMP@UT0pkvlDrw-_9YY
zJSPE3RusX)I}(heScbXH^jLPUaet++x8wm^q}i#UF7hD3$t7m@(4@VKHcQU=xs%(d
z@mhDjUAE}AB0R+9HXHt6qOt+c7*}<|u1^z)pNLT^u1<3;odgkMb!Ykalu(7H1xL~E
z@ZLeieez5N7US7SLXs_1dzZ-qsKRDT56BMve955%1VB6yVjJoAR9}Cqu>E8hqPbeO
zx!FoGl4t*7jO@j!YagkRi$4Iv$@28rN6=g_jUk@WvVu8pFvRJKi_+pt*R~{0$Dhwn
zHs{%xV9*zX$4}7oZYfY4SduuunALN9SXX)OcksCG;jyfpVtR8oSc1juR+kruRLY+7
zeIuw%5;5CLb7S0=zr@)za#F7FY}|8#i>qmIIpBhsngVGn1;bV<Z-0LSrXvyqMN8wm
zoC*Oks3m|Q7;gpOUR7-d2L=||<Zs^80UEXN-KEf)pCo=1amK1XZ*IKXBuXae(A^d6
zm8HazpsN0Jdxe+p*7JIMdsl-zq|OL=v~6$T37Np(n!>ECRmL+75n@3*4xISS)`rSj
zUPFV<TA+-228_+q?x)e$gX7XxD9JSUc<BbPqPe}@YxKF=+uJvg)KYH!6H5S$mD8tA
zO{ym6<nSig4q+4X5!-et&7!yHLBBhvKFYDn+7Ul8JUFQYT*LQu4yWkX(6D;CuFix~
zC6)JE27n2EY~$|FraqAEiR>Eyyz)fD73ENWE7`>>`0VY6r_Y=@U+6SXsZx%O`DncE
z1r@9Gqpf=$mT}(yeYejtcR9&*`S-o}uH}W98iZOIq~fZUd!ye{E&JDILf1CC$Ma|0
z;7!HcawoKXj+F3uc+^c?A<E31bAUjkshwk&+nh;>*&EG!^PN{RHFL_ph2~Ebb&8(@
zrLjjXDcpIFD>zw;7IF<w@8e9*d7;J5RdAt+{X}K>;pfaC*ku=zD<FgilaHUD{=4f2
zAISi<nJ%coBaVi0mK98u(Y9UyOQ6Kuxm_Qyy>+e)gq-;Tz)#649Wp_v;ss&h;!2$t
zrAeCk33-^rf$VDBt28pOgrwxTUY8}a4_Wh_7R9QaNNl|cYuaEmMZGb8qPaHV4k3PH
zc4yQwPJLfeMtrTo`|r2b)zs`E6)rZ2F_80Dp6ojObo79h>k4_pQjT6RYjq%ZeAgln
zdv>K*zN|+3#L0${PRDB<<w@030^Q~8YG#>E^XBoUDHE&>-^vLxW^~uq#e$fxPLHzJ
z7DCrJz1_Rb_kL^J{Gd{2v&B0{&@VPa_3z)BxgvHWFx~mskE8@<p%8`YUn$k}c3ro-
zZ=LuHY$Zs6VWf@O{H|f^kwBBA2H=?yI|r0niPQwi4Zv7$k*inbM-Ys=XkJF9h%IhC
z;ITqk1~`laK+q1pZ{Nmno3svrb(vS6!^9{6DI`{D$A1P!1kK@P%sr@(P!}5aOVGg3
zjgp>4qYi3<NsZHyN{~D%<F24xKCl=4)=AVZ7W%d5uVE>XyXN4v)vP}3pFF#Xqm!0e
z5{sx<XeKGk00I<&nS6tSXwQ2Fa2brWC~K4RtDSy*1I~!7V$YWr^Q4<P?epeMq*X0n
zw1$K0(n-b83p-D?BHX{?lx$p??`4=Z{^zb@mRX47$mtbwvTLSj#ny8=rQ1PgS5KUq
zm?IyR>ECxff6H{T>xz`Ob+=8MNQRcpPuqMlpsf^3aNzek*Hx?LY)-pz4N|V1y2F6G
zpu=<|819Wpp%@En8wu~C)kPE3nLHz$WgXeQE+&HW^Zc{YTsrCP%`rD3!fc2{mlmQN
zm3ZaL!RPB7=}|+b!p<>Ng%E^dl$<>(LE0$Q&x{ZRenW&CR<c4CkJW&*Cf3d0OOJOQ
zW>-koD!elHJX$*7r`?;PdB=wF17dwk61<;>J3~B$vc%4KYUYHK1;f&o4Bc;FO0Ujs
ziI+qmVe;+yZG}<fe7@nM>anQde%?b>`wF&E(oHV-o>Nhs$U|j#;CvRwLq+eZ$9G>z
zv8T0fIZJ@8yK=hC5tvL{lQd0GUFiA_BcJt}tuxy;g7aNg1K5mM8b{npZexq-FV0U`
zuw{3So#5a|)(`~Y7NR)dEyd1>UB*M{R`TY}o42`EgET=k1L?uwRD!VjI&w7F<rNg}
z2qB8f=i8c@EFh3P%4$GuaL3mszq{X$VCGsaU5k&3nG|m-6b0>h<m{~nukQd?V!xSe
z9Irxlbk-q$SW#Ph;mMOHWn;Fq(M?8RAa#lsM_9Q~4-_-n<6@3nuB-RcK}VSgW_OxR
z&&<?d$;u$JBrf`&QT@r|*(CTdJA6>K!2LTtSV<}|-Uz8>@MWnZh9K=1=8M<NP($8%
zcRl)Ees|fAyKk?$Q3klKE%grMk&?KOd4)(8T{#VdnJvlM!s(7=V;`gwlneKAH3pFW
z^jqQ-_3OhfN2R2sXzYeoGW-0KetN+311AH)gd?81Hw~XhjE{1d8Ms{6n~-qE!~w{*
z<{h6^HK197b467Z7kEN0M90ipTGuIQ)Sw2T#6X~4H~exSp`f_GCD!B07h`u$tipT;
zz(r|W+blltu`MpRKYcu_KH{?yJ#te@FaKx7_ACcb!HG6L$WlbmyMEpC9)B?AGyu0`
zvN?vSDN^D<@x)-y80juAOSAc^z1NF9+?7TAUf;<_YZRy=bU{KIL1B4)$GmuD&az59
z%hagQYugOSuf>9+M-ivffvv3&nqo?iVBJADI>E+PBYtkL(C@I`b0IfIq2TOP?e%7s
zN^ss`ttWb3XXlq;>p<k4z;XuHt``O<!#7kpX=_rAn+OEP8E;Nj;Qu*G<d2p%TV6W-
zl|}ME_)GS*O4MVA`$wi+7`k)r>3$ts1sGIX;I|ohi)0yqFiMM6ipe078sru(0K<$*
zXK;{z_a&>QM+FEvW$^)f=FYdr4IPm3U2@r<SY)QR^zAiWu?k(jVU{8<qkTlG*V6n%
zwjWU{BxvThqLx?ZJbdU-AP`hgd%8i;jR?^#W-~7)d+Owrqc>g>fp{CHa>8EFzh{29
zsr)_^y~|aiT$dH+9=W30av?!p;`G;c$yGGRhV8GkccpMeapgk7`qGCOsFX`^ks3#2
zxACyCC29<QrPc+PECc1{^&Oh?hPSZ9ZzfeE<s_J0ocy@SMR)2qxR=|$<npCm8O56&
zg=#ha;{~wDnCt8{DaFJFndhAz<>2el1LCI6Fcm>r2qmYDT0$QY-lgi@_-2cQ+R!Fu
zM#hpsDbK;QmRnwF74eXNtK<5x-}jjnr=-+NR*Ik7b?8h?y-OF$JtcbJBW}o}E>#W;
zC0MwjdJ78+t$TS__c!zu99Ube4JM>THLZ9hwsauHuqmfXZCte9Pciz!PAU^7^PC@B
z87r(YFQ07`vdjvKKVl2@P7HdLgIRqT(i<{ohJ4mbX6-N+UYYgD?3R-ku%G8<dSWBg
zi*nF~^uqR`9Y(Y@4brS|L9o|H)X0V{6BFmwh-j<kGCR}|W+R9(5*izFIB)u`o{%A`
zLj(oBFC36e*k8czUp0#v68|8qg?iSPwa=PA@!Lk`i~{h<7YsL^qTyVSmy^3y=pyKR
zVFF`3<rO9zt`NQ1La$DK!o>{<nYV?g{}U|{7G-n$!ANKMS@aa}{SxZ3?KEqhKTxM|
zb=97s&yP)gtB1CCd#;ti$Go`k_5A;1d$fgmyO1qYIme-Lc8wnyio82|3`hIG_9Tuy
z9w||Lf<&m==?cg%yEM1q9X-KW;-(=hX8S?h{#~8zz<;1%RkX=|2}vt4O>dC*B63t_
z0;-+MB;dpp{v~3W)un-^`)$3tX)41ZrLP(Hz$&r78Y-QkSySjOTyrd&vtOGLgJHm4
zimH5bVsT8&SC&plgvG_xVpSMi3otPhtM6(zTb!v2ZF)cIUw!u|s4SOUN2LUn+iZIc
zetGdsFkJ3&7!2My@zTzFB0AJ%r^+}Mj#4g!#~y<KgIVRE3ueonAJ0^A{d5J{+3)92
z*S-u%>`6kEe2@0YBL2)9F)EBd7WVf5PV8*E(VjJRee>hRjq`Yos@_UX=de*P3bxXT
zMJlswLae;)dN27aAN`P&b;f~$p3s?f1&J)8gU})BT~S><yL6<#`+|Iw^bXbDJR4F1
z$Lc>vL0NHwQu8`htHNZDAja)w1wN%c)5O2m5}{Jbl&JkxlkFN^kRPG$2qSX2c)0<F
zV>0%TRs{Tj{T$~7t}t&Ee4Y-B>#Kf9;$cc;Wa)_2)*%0`lBLSGX^&V7`WOUkO+WI-
z#mQ;}Oq_hZy*1lIltG}Y@9<0A!?AL`o31e1M`U_|kW>=3fGR@O`(AQ#v>dpK&Sz{B
z?+oWQ3px}5L?Od8%&_)b>}zgwTqCh7*w+XOSa3e%fP(kjM6ZP)K_owF1rCmaB&y||
zal2$|=)#+VK{-$>>O*0VCQbVw{$Cz6ovqGQ1u%G)y)SWvJw7t>8c}I;AJ&0Mr1^uC
ze~K<xH+Sd^SIQW^qDGB6EguyFi97H6!(HGoN35cIq06h@9M-t^exM{lvSoNVmZf-k
zTB?*}Kd^bG70b$`rxe#Dp?<Dc)^`2?49#Y!c|BSlT--aRScAF{mqCkN<&a+z7N)jR
z(!~JEow=ntG5^ojJv1tH^ptMg$-QMBv^H>(5N-@dCRkJW_}U$VTVrmN1cqjfF4%(5
zGN~N^9~p~)a=CAw-4#LX_nG+XW(QeX)9!I-7isJjoPCvNJse(LU2SPcc0r}VBym{N
z`o@#F*fcW&b$mGsK40_hr!AMOP!+T}hP)l>q@Om|b{!PY85^jBK$kEW8ymYXQ9T%U
zpkBvn>A!RfR0cPInM7mGy}o4^Q6zOKo^ER&CW5ov#aG-n;kxETa0CQfH{D-FZj|B}
zeoAXjRQHMm1jri-e>n@^iP$}haDr$<oDV#w_X3RHEW92BckEK-n61t`^MId@lH`D&
z`<5Qu;a~M3e>_hLqIerX3#+Df!EjTwY<>S&XSRQ&WZg-p?;kgitSkUGLCx%1bQta)
z6hf8u(a{1W(1WT!%ddx}DceJzLEsHiT3Xzq)1{0#PCh=>bb~rSraec_T_c<nT25o!
zg#V*UkSb0RG8*$~{TT|Z#Mj?F7{N0({<CS@n}C2=m=DfJrM`1rUAXLj^2CWasFL3I
zEv_+EoRm0t{rJbGe|#m2XC3TasiE8m-x2(D-l(zEQA<wluaqueMJ8Wa@5hX4OPZ}8
z|Jg)_N}%GphKj-w<Myc4dGh;Zl7pW4gXz)qx;RWRc#k)P6oI>u!cJ+exeirTR;+8O
zs&81SeI^=X*1un^$Ez}<4+QGNR{C)nwu0gW!jcj-%i<BXcOr<|;hX6NJp%(15OKyR
zHS}xW#e%Mh#itYA7%hi>s^T5N7)|wH;JlRyDwEw6g98VMXkMQty!tzW+_hBD1udTJ
zXqDd$Sn=k?ix&xE5)#iLS0=Q@&exP<UIx=W5LZ;|7#xS*znXIL=Ww!08fg~2IjJHj
zwD9Xd3rbIdkb1o1z$`)eV>=2B=FaD8HUur9L@BV?%mZuEtNy|RiI8t*RR_9@2$ekB
zoOkSy8F4ErgR^U^6Kji_y#f_~jmrcS)V)lT*g4U5lb5IDW$EW9yAlUompXel`VsUq
z({P)%YYVnfNt}S7pe8U%+ts~-kr16u2@7k3ADD5dS%x8L&cRvXFg7Pj`$p*dis||?
z7^rP4qp=_?!PYQsDL9gtjZmysS2Ct7LgOP0`KOiC26GW&htu3>11P-rZ{8e)fFh0U
zo(UrU;Elpmx%Qdnpp!=qiW7?QmV!@)IRytwDcu-<4Sui-Wm5T^1lQCCe?`U6oO8Xh
z7g;*9J(L&(=u&xYd#;zyKQJ8cd-eBKP_!qykw6zg9?pK;w08*nh!Q9{=v0Ju5!$zn
zV(KZX;NPgsXTLIfiF<>Q6pSx9%KBrOhCWd{p~^F1dONq;$^Add7H8^&rFM4z<Nov#
z)*W~nW(h>RMo_FQ5{{#(<quu<O`GSxI7%$1Vc^%K`n+iM^R*2ARf_EIsbV(Kj^&kP
zLSiO4#N3E_|830HgPQXS>L@vgIE48O&LtKe9%Y0hMX+Y)QEP<S6dZWoqg{5qKlqF>
z2E0BE@ZCotP$2;$+sl7k(e_t>on}vj>&7W|?K!ENHpUThsgjMQ&ku0l`bYsC;R(IE
z$bkZ1vmmHF6^=d7xL@@budO<f7LZ>D)2s6}UFP$9ebsps^0)ZBetlbTuV2imD*bek
zjNmj7kBNhyM9m#$gvJNoS$Wo-o7h(mg89V=6-~(NuA9SqQ~q&To-R_;130JZAlz>3
zc|*r#LN2y<Bvth{;$ke>2W}`SC`4kT3?nvymCl?6kvR-%k1|&a&%!JLyuYK}VtV-*
zo3HT6@FVhP2^)f>WFrDxGE9le_<gG16PjUFdWE@*WF=ol;X=g=m+8dMcOLH&x~Eqh
zdM(0&)<eiPN5^6GdK;#Fq7STd9Lg6$_rN6i3oVUuA@Mu2u&^}x$O^?GMHoUeywM%y
zHprEEeA5$(V{}aReF&qBzijhc5X)Zqn+8*Yq~4R)h4>22&s$;qTss62(gJG5tL9Zp
zFEi%*6MCAM9_LwK1XD~$%AM~I?3tdPPS`u}f{7tKvv-vU9;hvvoaeg@nCDh!qlLFD
ze;!-;Vg``<x9({~ZW35R9|iu0zk=<02m!!1G?W95QIwV*Hy3{Qc`+slcf@rr$hU(3
zptX*a&Cxc!=ud?bOdu|}oZzMl9m$QT_iaF;k*2c|SK|n@H7F=@Eo|l#9b9|fk*IJN
znO-leW*EL^8U_(aUMN0!D5&Oye-%~hGnTrD(Pu%5@k$abf^JtmVy4-9Q43h^XhFz%
zuhU)VlzsI6<YkEu6$OORVP>GFbx3n!rpxD=AB&L4RlQFAx)8xutBK)F%baCHzRFs!
z75M3|wKF(h9CNB*_Wxa|AgGf6<fq`dv^0MuvCm7AR1<d`&-Rp;`ka~-mzK_m62F_P
zv52)0{+HhHz1i!n+m<#|FTGsDBRThYvHS#wlpf-wwW;N@mR1PA^-!2Et8yHG66_Yb
zUr&o)yeM(kzpCGAI7hgryuNoYZNrPx`%&7qJlL>_$v4FAho_L(?}A<*;L3dsgL)#p
z6Y>9ID9~j}Szh$dRp<nUXI=Kj#5rfQn-Z!5Okw=coh3kjwKi*IciRTl`SLf&si+w4
z+4{Wf;022Bdw2BkP6AsE5p+BgLD6%1Mm1xd9=2Y9N|P|C=kvZNBKYDA^VXYK_Xw5Z
zEGx&yf`_KB-*QHw{QeQ84oF0ANuQnn?BCSmU+l*9B00fu%uaQpXenuR+P@gD|6F+M
z)5dnw3xx3??>@K6ndHJbwbF?9&=?ce1q&4P)&L`MMom$Yva-r3=jxt40jG9N!7f9D
zw2VShw*GqL{HX|)$&drHWwaIvX*U=lq%0<{Epm`7CZyU6#Aw~PdUcP5Tq8sMptTkz
zmhS6k$US7$ft5Z{z0S`*vpJBdj<c+xT1o9nTVE37g1S!J*SFNGFzhuG$`0g9Wp3l<
zlq^_y$&)2}rSQ0f3bk`gUazxEU>~jVolyjWgkK+ujd(7O(GG2Ue{1Z}3%l^lxZ-7}
znWE`Ca9G~fw3(div{0{Gkx}FXq9QFoVTkiNDXVm@vOd)7pPcS-$+}=t@Wq7cg(EWC
z_8wKh9?HCj+tk-LhGh4*PjXLz>$ioW2(OKPtf*FmSUGaOKMWhZr>FZu;oiMeazUKv
znUIPr!K9uEiPb2xxSfhECzGn@eGJKFtexfTtly?yeo6JYJ~98GDbwru^XD`Iwh83<
zlcD$bw=4=eTc4iwRi==;!DJtw`|#mLQkk5rAo)$5o5mT!l6C7!)v&cO!bfYbUh%QE
z1l1;*4LPv;uxS@v{BBDy81Y=f5Dh~0AVws$JSXhDE1q5L1rF)tU8CSAM(uj)k@{3P
zchmDXTL77q3|=j^8m!%*OUVR;qtrep2vbP{<v8rS&g`A@;@7XYhFyNd<a>SUETpcK
z`K!}1rS=04W(?q%3OsxJ$~7A?`SW$5auJ3l^m^)w1!5l`2R%E(dh(<gQF`!Ssicko
zLRWDmtXr*Cbp^KGv!AvxD4co<*@^USkMG5q>z=-a6>kkP-Xo49BU4%C3)qg<gG`Vg
zUn2n2*LwJ&9w(IN7Ze9stk>Z2gHfWu9B1qtirfZIh=;`LfT24)p!G(%J<F&i&X-K+
zZ@X2-f&5c@NVGiW8s>M>?UojulJ~ZlzsHs@&)fJ#pk1y7M%=`@mx!sMGv7k-i7Gr3
z(h?F=0&REUMo9=FMoJp%bdS@b8&n5XvJ<pInRmQ5ZVqoRzAM@rdeNcLaSf)K`zoE3
zrA{lXNjc#+ZA3~CxNQ)Wh5%^@xfcvfl;w<w+q9eT@+ZetMBAn6bkZ0E|CA6X(Q#!(
z>DS)~u*P^FtiV;zTCrF}Qnk9m15&Gzk&!A9Q=n0GG~dhl{sG4S#uT<EuFE?2MkAY+
z1dpjL{RUNT2z&PB1LHlyqasV9hCRwhG9jDB*=&07CF~0JoI4X^MHh0@?c_FigBdIC
z+_|&)3_*CskD~_bVbNAlP)HiZr4!O}b8|0~AT?^&!;jgi@4JEw`KXn-0yts@MSBny
zrmj2Z_2?$kZz-Rwhw4AEG(m1J?yRh=oQ@@7mvcdH<tn4@v(2x8Kv})6gGfk73;-?k
zj}TN}!a2ZK9xx9VP{3nUXJEB^8yU$II(FW?>l?vWfzR!`%Ug}AgwSdd`#}$oV|zhl
z!Z8vAB3o4t4$&hidj=u8_zKvJDEN+L&!<k>b$M{MnndFTCm@w{O@qPza?<bpRkuKd
z>j22vtRdhP-h%hxLdikmrPY<jrp?sCHEJq-Srb=4<PJcp89-P#hd4Le{?v|sb?!r2
zazh$fF?uFC4ooiVsLCc)cza*pA=EYGF@2a+mBGV!aF!jUq6$DW02e@!i2wlftg0&n
z9-;CjbT3>00y~Qbrj}nk`Z_4cWEE9$(BD^|sw8t;5Qd^w?QC<+dV6ix6&uD1)Bq;5
zM*&$=M<k@B&*QFV+kx-&2(DNuNy7-(;to>)cnTrIi(q2^?yS#WMj>0pmb_k8cADqc
zoUDbVLsxp3&t>!*XF4K%6K0;EuH(BBRMW3y-8crg24Z;Oz7S#88o;J+&BN|H3-%(k
z?t%*(+Lrh1vjLveAF|K4ng7TE6!2hbLX-{bXX$9${tIg1WcwQSb~&ip5?(q=T+M-a
zG{O+#^Y*Qw?-Keqj-=FLlj&x6I@e|+&^4NNWK;}V5&XkwZ*lJ#jhy<~k(Mg)b1<pK
z$ZCenACu5Wug2{O|7gLL!Zl53SOWlB=U|RF4^ETk4{xq3sa=Ki2~R9{6#5f{%+dkU
zQ?kao_qJ!5sej{i^9~L+%QQjIu7Q5Zs?oM-@5NhRzJVm30RmSmU&gW=K%2qTu$_G^
zInLb(9UJ;6x%3h7qr$>I4z9$4JtUs1V0pSqXeEbGKod>S0CD2<=?W%h<^Vzz|IDeV
zaK5fde32etn%lb?TSePk6{cs!I&1_J%+~&lB-ArY1*;79-#4Vg-w;~l1NNNQB2c<H
zVYV-DfH1~N<*GRQTySEIYQbfH4fx!}Z)MkPi9H_PuGBNNZNxxCmq9R;Ls{eA6V;r%
z?-vMxuWq9(1EFWPUO+8T7-sfYEC{Y1M|!8laEiaonCw}<=5q}?q*D(5un5L#{@tvZ
z6>+@cJ}jRuea{ph+Eu^h?AJN71Pi}DSltcTJa@jndSzpO6ul2q>S8x;ypF}lek7x?
zmj);B`e4R8CY17_mgG<r)BTkTQrqnxOHPWK6qiU$4)pg2z;k*;A_@eIOO^E7vwx4O
zRN7XK1AD$AA$EkeNycnWh6%`V)&3+Mv;Z0Cma6D<`M4O@v>@Li>Q24SR>1M7p7vn^
zhI~tQL!sv5<0H>bDVuh_IRfqlm-#+Kx{S)-OSeCF?&0aW#S{Po!ICE7<8dn#_O8ZG
zuWaG8=(%W;ds3C!-Oj;Pn1x#2nJ_ZomL0xQcS0OOFF|5V;T&t{1-%0~pN{_1bGV>0
zJ0<1pPupGPNI`lnKO_u)%QqC2g^Rr0*vjWPJM^sfCFB&9ijS8rn0FaEw~9`m3i?hM
zI}`PQ5q9Sbrl+STlChZhLiJvkF;(nl5V|;OrmXm|ZON_wuGb2BFZ!~R5I38UO;hHa
z!Jb7kpQziL(zAD>?su9O5>^+QyOt73kPR~{ox#4p=CNfKnYrkp^stRu7m}8I61`w2
zu_dc~UC~H%oL{!glU_acx5smr(44eh+3=QZ?kG!VQ{CeNE+|YJjN|X_FKGBCHo@@M
zRYBvHI4Y%3j{PC?bx?-|<H#Ey@I)Ct^S;DGae8So`}!%Qxt35=4skmRufPKsfnnhO
zK8@)lJcE}9?*u_};J)m7>_U(XA(pMqWfw1KhQPRjRkgXGq8=vSM5%3rVZ0EV#ia@|
z@8y}ny1g_~AVM;AzPymsRwC3{G1O%V3$usN7e?qh8Uci}9HZf4ar|H<(!)w^#n5YS
z?{JVuOBzRMBvXQh?afDi{jep>>{n{dl;|PXeixj-6JtAjv9id|Z7)L-_*JG~S!x-E
z?-Aoc1c>(gA?>IWb^ukk!N%&ei%m@6(d7V3H?;AT8CH11cLJ4ak&O#^gOpZu3r@Er
zNXZ1tvY`)gAhnL!=O6n@9;~D9A4*$3K&R@6mStEeUYlRr*xC#8HCU&PLGQB4o;%>@
zxNd*mOo*SC+aMGdLH5{mUGJxnKN7=Y;q3W$x^$8Ro}kTl=nZ3kb9ag6Q_ta(GJ$tw
z9{p8`O`MdFknoDf+XTpkuw)~rri{o)OE(jZOhmL?>_zxWoKHn2UF=dh`397Qiu{Gb
z-#=ga21eT;Xu;B{_M|PD<p<sTrKMnSs#xiKzhr!SoaZ(79KHBEqx6?-Sgt4*Y620l
zx@!K4k2ic5-Eh`<arQy#f&hDVk7GQ+3b?zwvv^dgXDpTauKXtk-Mm9E{YflE+cwL$
zJCAl`#={r3KaE4V*u{ATSmri);j_)`&<&F4KL8hY%_CbLSn337dFtx9CMH)iHgE4i
z@Z09jsKjV5XhXa~AG}`_8l1|YCjv2j9=zFe*R;2&+ntuDHp8N~2YF8(v`!N$iy2gr
zPn;LD;dx#_GmbeP)EFdB?vJOm)qs2+oNGL6PY2U-QTx0_u@(RTVTDK<1iEn>U9j~R
zD&@D(IfAgz&L+H8`{DlGqs+yP>tUNNjH<24tN(~z18)%ku|AOKkh`O=54~3(bd3yR
zVGW3{YS=86lLoE%Yr1l+WKe<1AlG<woAY2#a3LXQut%up+`V0|J-*_R<M9h#lFBf$
zqW?@Z3rLl?D`xXxf)*1e2t5^Ic@*p}QQ#$r?2%#K-QiBdU3o^ksG#e^>S_X(6Y>8H
z<CaPc0AUazj7OrLbVhz>RQFHbH}1~Me0_(AkQpu$RZ~@-KiN%yEeGJ8<$+81EVkkK
z3qdvDpvv5j3U(x@q#hqyB|c639IUMdU!CXJQ5bxErKj61`lA&6TcFcs2tAp295j**
zpaSNC(>9geY`0zBKjI1*W*1>-Gk?1Khz=p&!7^;rQ;>TE>?Tp*_Zo2&ICSvH<zKUO
zf3!X~OaY$s0$a}zQ4`$WRr56vhWZFwL^2>cJWg<OHW1L8$n?weu4~zZtn_4#;1%^z
zm+5~?xjpc37yDVj#4_`2s4g9E5vjVXgLvvJ7=EA*&iJXFc1NPLa|M86c%BS;_7)P0
zzznq0AOhb(feIod)Y8&xP>6Mi;UjJy!~wnad7ER=CYvpIy-<s6PHf_GZb2B9#v~EW
z86(Jb3q-kEtbA5MPZ~AH37DST8H9TXnT^1sG{N7}^rX1ZfyCv!Xq}EHdUa1RdtZSs
zpKJsl5uR;FzuiXE)J44Pw_?8C-Z0aH_O2ROk!m1+NQ1gd5F)BanPQifYC-@9DbzP#
zc)syQ*wKcOb#DY=4P)sjzi?u@&o0kP^Lz(O*FGYA>q<sHSor>EZ#Ad}X;IOq1QtB3
zard7i{MIq5DYq_v6}loqi0k~yCBs)YT@qoYmj5EmP{M(hMQ|^%v*Y0)%JtkCca8z8
zrI_;*rYmEsl59DGKwANiod-Gqgm)zR4^AE7F@Hz26DDfp-b6<5u;Hcn>opd-3Xggx
zN|ZX80Sbys%OI7BMnxn<f^`^zV6blNyhZqBDeeXa!{5^S<`g`4I_?qZ8fnM^5lJ}N
z;Y*am0O-(DKH#DwI*1=oQ{#eIT2Zp0Ng!>@`03D(ErNCJ!$fd<d5(uE;&%S~%CBF)
zrkHR4<y^vvm-NEYk^$2Kk!4&Ls<erZOsBvL?+pWg`Ex#9u-j0YiLhBk9RU-3IsZYt
ziCHtx`ZcF$uj^VN1f%u0T=G!ab~g)cmIvpvH~rg-B6noR(=&{J`cg`nqYVFiyWZ9E
z=llP0|MUM<Z_EF%S^9t8i@9~^FBR}XcBP{fODK8vtVUlRk&Rgb9c@_toSvtI(0W8P
zba?-==2uivq3(P3^Xk8LV`d4o)IyPaaqrp`BdB_CsOQRJ!orTV{wVdx$T-h@!f#b8
zAT*Sr&+w-hK2$Hgok;?E<him^-tgbA(6B+nEtxNizNa^xW1jesztKH~P468E!l0tx
z@(XV`OJC=m|9Am@-^%XvefRE+1Sr)PRYF7$tq%QG3W|?M&<yz)9tpUQ@C4$xIWlw4
zkGrLs%c-z3CD>Z!YGkOtEzq_oqwZka2-t!fy|*BAKnj#gtBI%WuF(115o>;l$)^?h
z-5TtNpI2_T@9>z<nQR}k?bw5f{+m<e&yt|{|E=f$f6#dJpVj#P^3elvXiR%{2x=V+
zekPbIqG=!MY%(OQq0hTG6wskVG$^)@&8fKU_;U|8tjd_|0bU{jmwcC8;n)G(Av8t;
z49B5Z*d6|7)E*28=<Y8dkF+#_5l;k<5C?Pxy4@Q*4-8Imu+LtF&d>yD@;o}u(I#KY
z4-3fpS4;+%K4lM~+_q`j1=H}DpFtzk<Hws}#J-9fZ9+yRynSda0Mm4`_5FXwP2nBq
zj-FeDV;fbTL?gDoE*&wK#MiZQ)z{x`c<EZdcK5D~+i`kg6|H}T_qhi=YGcrKN25~=
zxEd_NVGx-LxR5UWpB_GnYa;6%YR?QiKvg5uGwQly@iE1sCLzr6XyVLIF;B5Y2NM{&
zMNM09rXvvNoE3DFj6)WlF{8a5y&_oLzrS~zm%V+EyyK1kn>S3)ZC@T7Q{p6O&7Mwr
zN-_6{=L{L@UjPBHkF+TIt@&-9+C;?d#%r){)7nkFnLq)M&HA38=O6Cngc3XgZ(s0h
zM*FH0XZIo^6Rq!XxWL=}cbhhF)W=_y+N;xtS$7=pBH9}`RJLnhxpGB=VP56Azpd5y
zw=?spjH#4YnNumlcB>CKq;cn;YQ24p>8O@P%RXE+gki(JBOQr42-3cz9*1|c5Z4o|
z%{gkDu3s|?<w=rdOkupYSernW1L!6NvjSfG^f-SxMVwN@Nh^gkN0Ee*7+Y^A&E$;y
zqaHTY>w|vm85jE}QjLE4FnU*l3B#ixdaq%?4nk<hs+$iZ5tPIRe`3nf4C7%NqZo&-
zo;c0?ET-6;92Eo*cSH}k(g<(-YX!#zOBWXxcg7ccvC-jBf2H7f#9T{D3z_e#gbl5L
zx*+PScwWk$2|zJj&49lwChAfZ2pb<$KWdPiJ3`Wg|G(uDtVXvU>%2vuL4p(+J<b7#
zn4}@BOUlUjGEp5o7{gR6lw7bBhNp<(H?V%##)#%+!l}#+Pcz}bx$`g^aA$)*npfgs
zc<%UH>GTB0SdY~KM&5~qK%?wQ-{3+1qa7X+Qp;RrUrRqt&A52IbZb+$xslZ^J}FuY
zjxBJPe0v-1*r5>niIOks#1S4-BMB8I^`ADcj~&I`C_dKx1!dGGT0Mjtp^V78#MdS3
zcl&nqfDSN%RR#QAXkFJGg!Fv7iB^aRiNOMPEC{v$uP<*${`(G!zXT0R>0l|6g5*N*
zIvf2YaA*VpQMzOP>?(?%-A7)3uc@wXhG0F5%{&Zm4Ul8L0vef!4u4qMZi3^oA-5>2
z+wI!+?<YUt`gFu+%CtG=HDQ{7U{ppV;q@<Gw%TWW|2Z|}yXm$62j`0X&r6m6&G9Dx
z>)pnR>)iOoYR|OV!@uXP?f6+$k6n9Ap}YC$mCctw(`=>Q@~G?bv4}H=yUuMqzW=jE
zZuq^zzH7<HkMV|!Uc0TLM{(pHwP@?tL&sk}d$BM0+L1dIR}M7}k97&>IFG&>kMwWi
z)BG{x5HfSo;(CiZIiBBFt4Nbvv~m4#m<JE{|9h0q!8Z@q4~_{7+e|EFoD{_TZx8UP
zQybP#)wy(e$G@v#r{u@=(+T9{{?AAJFEbW2#+sKJn%mk8VC>Iik5C>Vk=jfSC$6f+
z#>cBCj}?%mV-?hrH6PEkDk=NVsU7Cr-qO|<T|^P8J!q1&y{+?B!-7c{s91S+e-jm%
zd)7i09v&V>7V|9;C;8XToC6_Au4U|Y8gpO`tkn+PKtavBu}90;)KvQF)qAp?@LlX&
z*mWh5`~3Mk@rhY+Hb<VwYinyio5{+1|94F$yUt&*qlt?i`aVNSATEYeF=EvG<-{Q>
zCfMwFa$cwO8S!5zFIA}2j5S4*Gcq$<@-|aEXnXSWgfDkvbMu>l0UeRcd-m)(BIs!C
zeFxzarVAMlR+guWi;M0@xK2nQS9n9(ZpjJPIpr&fB1*$MGBcAKe09P-5ka|>wWgpd
zc=^)M^{D2bDuDo<*tI7ofr3nV2vtwg@+V73H{;*O-h;dPkebRVF^#%xSBfKXXppbK
zsB)s3ub-bEjk3aSAf7s?6Fy960Auf}3k!Dj+emTi`*wS$SYX)kd)2kY8HZC>)rOZ<
z-p{mJB|FolZy&6A^jVYDzv}d148k(^`j}63%$)c>Rya3j+orL%aL&=H$1!S1xa7!-
zO%%6gCgs=n>;Ku76cqm_ME&m-uJ>fJhpEBE@fzLO$A#Ax>Soa1!w>Uv-CIuGG>Gbi
zKoo$Jj}oQUu~<wT+wt$3xt4l8Ype4XldAwuZ{dApwd=M~o&(cxf7&Nh+S%E856izV
zFT%^&d?krCzSRMX)e{yjGeKNnkD6OrKIG=|p>?Ku%VCXIpjCdMPowH|^t+oR%k`5t
z;&fh8Ke9uJt2`+*^?Vf0s&@S#vzyx5p*LgSfd3-6wgotUf|&?<w6V2Ssn7V|H|oCJ
zZqK6!*8aNpo2vc<wamD(mi0WWP)<7j-OR!wIRm{<Y9*5EKa4XVt|O28>SdBRasAy}
z9D!hAxdJ<HIqAvgV4PvWY++wQ8>iNLiF7el1J4FCic*R3i-@Eo^TMo|R;~{>V;k8k
z9ZVAArP|i|w0n^dn&ckTCC_jxKPH)_3@vk;gX}x)U&Wme#mgU>jhnY!n%PJqEvJj?
z>PARdIK{mG!66*C_sF?Bg~@gzav6>rC|(%9+-n~c6l8_YWhMz|ek~C~+RHx=H+6J$
z^rxX!XQ0Ny#j0hbvkRo3H#F7eJonE=hK66!(}bx00|QL;vmnvjP~0l<CG}(CMX$H~
zUgl^0Ouj(vLC2TY%6za9wk%`KD}R%Jd5xLIJahecZhi~J$AMIlZ3SavV*vto=3qoa
zbUpb_p!3fuQEDT_;;ruP?0(+~O$E}qt-*Qs`nU$XNqL$*)88JcI{z@ZpewTFhO+-X
z;hcz8MZj}K)6@+Xxf->^6ce6QFoIPu1^hTVzcM5y+%d-JFEExN4{lIC@f^>~+LCh_
zSy}qXH{3}v)FUG!EOtjSGc!M+7%8Kox*Dqx*VWS6(-Q)jzcnXZhBWTE(w5)a+Ir=F
zAuXrQwSLa;$D0LI&^(YZ{dO70>6{yKGc;6RlB^`%r*}!5vyq`K9PiY=*ORB9to$tb
z@YScgC3JOl*Av{6C6|^31K|IywTF&O`c?I7*#CI4&|c@_hb}c?s83qSWfV^6Ch8qa
zL*k=4o-$&Jc4^X<0+IM)B?1BLvJcJ<Ij!?i-C%bOduCQv)CVHrho!A2d<VK_+%)Cl
zgY4$U{Sgl4F&gX^vw0lcJOUQor#`p6ycw&ogP81H^J0rnpKb+8{HQONJ*@cR17jBq
zYEF=Cnu(pIVR2=>rg*^i<&f`vTS~imw0y%BT7IU6Sj!&|nY=s_{$7K9&_sJl4ZY|^
z1>{7F8Ux`a)gSD{3sOWnk0b5UjpH1WkOi3YIl9&newMv@DSZLjNKA=0F;#GYV=NdH
zoEWz4MjJm94m9i=U|HuCZhbV}x52`o-;&SF%#2o(a{W`8za8J$gI1}5R&|R+n<K=}
zD1urJac*5lyB|rf|M$Ve+|7A-_y?cDG}znn9t)lJmCR({KoRpd0sJTP+JKv)qN3FN
z8%zjzC3N3Dv5JDiSe&Q=CfC?B+urDrwz}4Lswn#hi+LnrC_f%cY2VlbFod09ZYk*M
z3=+q<-*ZjtU3|!bOk&lyNFFop6KnTB{>WtCL_xiI>zVIt{#Cg!&vBu{g=lXf^k%Q6
z^~jiFv}yljl3FH<7~Q>VP$bX(6|`Qw9+S|_<WXVw2iZR>nFDW0vxY;zZ*2ThRZ>#%
z>LPJgNNjSltT)k<1D}$WdC|gvvHv>lmGULd@uO3(^L#&CPSV~ueT@yyez~6cqIt#7
zT}*sG9v_(YO}@`ebbTOh`dK)W)QNP0?t`5F<|F!jm6bZc^M7*uG;T6hFjJfR%Ug;7
zqgej}1hBN_TVGe|331yBAhafDz$Mh!&mVm9rT{EP;Ll}ba(}*Hjr(^^emoREvSES<
z;*w6#-+XNmJu(Eg6?B@W%Y1OIV#`*@2lbAbVpD3_)B|_0?ZPT;@9#3nC3r1k@ycT2
zF*2*x$L*VrqTu&#J%3G>F)&Sv9ZqAJ${z|%+tVbSAojYRj!GKoU%xri)VPos_&PuN
z&Osk$9gFbfk83Q#24)>Y_{(VQ!ReRr|Md+D^h|k5I^irZ-#MqAnGne(Mur7(96QiT
zbZ+rs+p$c9+IASVu&>Y4t(S`A2X@GNzH?N{8aIq&;W!9gs5bB};NLod<K2Sn3Q3v{
zIGV_t3H>w`FkGpOS>ncq{+XMblMcDa=SFX<;$Nk%u5Jar-2kj!J1zrX(Bvovd?CMh
zDIf9^2aYA_36n+G-ms1C6;8`KiDcj$7q7t{4XBP<#Q`R}e9Z~x2`6nDT3RbuFXxSf
zXY0UgTB3&}VZH|%ZwUStUD&dr!1KI<(<2lBGV=2B{#8YjPdM&G2isPTwx@$n3#?p1
zt7SF3E`ca5*4M+Oy&Aw03rKE0Fn>Ef(&NBU4g|7T{;}6pWnzU{%I^;J?A+m~AaAB(
z9H5hqwXW>vFZn?OO@@5Gzdy196`3@@*}x(rBg51(7zqO3%<_pxxq4ol{)!H7Rze`m
zf^+@i+VTu~3+Eh5xHq0XyY-GzI#RQeR<N(+hx@-v7;52<n!(YHdT^B*85>u^&=j(d
zQFQmU(->3JD;P!`KG8J_+=3|V+^Vj`?mq*YfFN<)6ak$EU>(ExeI|{_S=hk^5U_JW
zopQlz!hW(=2n}ys_kNaw%;Wpq#`X=Saet`a=MJ2Z7LQe^#Lo3cdlo+|(@8c)6zT;V
zcG&aeHs$4+!aLh;6dinF`#)Hm-wIri7k;68`zs_{c^2PRb@URhUXT@9xP!@=fsi(U
zzqQEpH(7ie>+4_PyoW)Ylj+2cuAotfptPp>3M_hXB&b4dgex_v#zx#!ANCS$EI-dt
zBnk;{Vh<8xHz@C98s)7i{qc?;andL&5#P5K^H~irNqFMCy*++xXttM_ZgX8}JA!8S
z&@5M2_fJR&p~ZSW^|La0ZoV3MP#=XeO3PVMH-{XYYti)W+gq->i(C@Z@!BhK=f*8$
zwG4u7l>9r1E@qw%3oKLGSt4fOdD>`OQ)Z?hRSIDpl4@LMI*Nj|b<5l<-n$(QL|^iG
zxaP*vYK=#&KxXqze`TC`sl9w0*~&|BPKA>9`vZ@;En)m|M<=1>owu>E(G&_q82k8r
z8q?elOI|eu?4JI52OLr&>3wnGmyh#No!jV74B)phK8llW&S>UkC_77ixQTo5VS-PL
zq}U6*IQWQR`4-{8Z^(B8F&Ko|mLvwK359Z>vfbc^#6+`*6*YBro}ngAzq`sszrS$k
z<6xPf(ar^QEmXqKE{yF^2|pSPig_E_4YU_G%F*A%X^IcpQnA1}BrK~r%dK<oucKPx
z(5HoO<wAah=~Z@#Z$17AFSXY>cF&^^L)v?}+;v$jd8rm_y(0c^bLCZ}dIKD}L982=
zl3mgP=kyAr<-yN`hmK{cz)!P2;qa0Cgeo(;$ARb_Rk2v{%nx_!lXYE`2gw~|mesEB
zLrVHD?7at2)aSc4ylT{_*b=*d8rLqMC?MSu%YuRhq=OOZO{vl`#+ax;Tm(cwY>4y@
zvQ#ySfPhk^TUeHkf`HWhu6vXJIXP$EbLO3QzL{^{`Hqv!q%6y?JkMRO>$<N;JNaHp
zVq04qU9X-^y5<rI!!U}m(^ASU@nBs9cvqq^nQO4M_LU}F6OosOg`5Su72jS08FB<w
z2^do-m#Wndcz$*1u(`6x`wmRLRCTQ=-}Uhtvj}u%#K-_|xKr%|%&%yusTeB%U>ak*
z$kj4%(qy;pK+K!*alT8<=NpzN$Nh(!&ShHf+qW;cq0@K1XZt=Dd)4^6nW6fb14EZl
z_U@Y}`{28?WPJ6XFH_;uZuS`zcfHQx{+`{&#4aNqyD(X|5%nk%Mupj{Om-$tZl-X0
z-(QLIW+JEKh@DDBrq3{JR9=DKuWW1#!}aeR92{JEP0Ae>1x|ID8k@QB*zjQI|B@wA
z-_S4+DdD+^W&d>6hA*6iBOS{IhSI0l*^w{w2)qYwAtp%76h6B<BIC`%D>R)nEw9|N
zYR>L*0ZM3Cc>DZ^-<fr-_rK7l^ct;<XhS3_gShVx*dlbve)w%I62PW9hyy}Vy=6B{
z!ctA0t$<aLn~<EBr-W(lQ!vD-ph(3^d7_=VvT}P!9l}Lz_So?CgQ7*yoH|snHke?c
z=O$R4fB=Kd^t>G=?&@^&@(FcCDZ-Avsm^^<QxkMq)NNx6#83|Kd7{~rX`J%OnmN1s
z{=U>(w{Ed>MmKt^Lz5vlQ^fHoVtgQfyqy0En^PkzbvU=r(=PMb21jdeOxt<Jq~5)|
zX4Tl+!hXao=Zo9VmT>zI^c9F8c3=i91nysEPkx>rI1G2Er_3Vd@n_0kq8}a^fr`|q
z&fCZn(^O@o;lis*EMa}(NZK|&-YG5p5MPS&N)}_4n_a%g7z6f`)acaLG867<XTDd%
zkg}n#`i%z-PdX4lALT)sgBHUgz~zav85Vkxrj`MuwJl08uPTKEKUl>1?N1j6<udZC
zPXh97?zOhmZ@?G;&%I^L5dPjz8(}i4gN_(;(!Y`h5Zl$Ry2}D>=HWw`aO4`cSh?k7
z+)G(rSOBePG}@>A$EdGCP{<u7N9{8RaU&JMc{eZwmESqmZD+(7wcS0f8D0Z}9DgdF
zPYt+s>9yQ~qG1<Z7Q%Kzl#OHWaPgKz$1JtNRzs{Mmx!S^Ms}_xdMQ{?JhWLqK{Xo!
zPEnR6X;v1dbi^%V6P5VvGtinU=E-wX?X$vggEFY(vtStLuK5urGLojRZWcQm!u7}l
z9q}uSL-eB!lBQjrExh!x@>sVzuFecshtcHo_f!8s({xmiUbP@T8s_YxUNIu$^IKzo
z&3ZeJk1MnFdHIuF`RoU#0k)J`dmSQ5(6czeb+2uU(TEDW^~MRc<$p{#9d38-jE)+L
z<|EyNVp4NVw&Ov7o5&THd0L3L5dVeZ`6wfMg0WG>z149Io=?=7dE?b8Ph0VcimPc^
zu1HCv7N8}u0}#JM;2A!nWED!XaXjc(*<eBu{nkNo5!*PCg%Yljc45Ixr9T9<swB`-
z@!^5i0QL3J1_hxxatA)qrPk<};cbbbhWoO9LvR<F_z7M=bUXn}*`Bn@(X{aS9`B|B
z0WOir`|Rsgn}&t&!IN)c^>;2<PWb1jQml>yBX`Fg0R?ceff5!o3%+dqpZ&c(E^?v4
zE!n@+;D)c;I;($a0j`R3%<nhUA@e#w+U1x%4sSvgwy^!nH4~3Ayg?2I(l}%m3~2+H
z5nun@5W|^(EGkas#U~1{U}^^~^k})D{eB(AaD#F#F#Eibd`7=htwC+ir&<4ccr%`3
zBb*m$`027p3RW-g@47`=+w1L5m$~3P%QEu@;~|}03t6WFK?yHjyg+6b9eH_Bi48II
z2BeIaC^0yVg{YZQ&%S@!jaA?&%FEO(!-yEO2#!8GFfAEl=M6Qn0JT9K*NVs7JKzjQ
zwm$$c4@TReqSDpXC2*O;;dCQqgur(NMo%{odfj#p)kWknzWB=%bz;cN`w}U^g}ScX
zCbKE%d$nCZ<(fnu-;~{xp@+&TGwj@p<(~DE`4bKK>sXX+hq7yW^-;HHp@fmiYVN~m
z-e0)}b*HGEH}u~qc$?eh5bEHlrI1==15!7-!3G75`F+nq|5Yu#yr$(ZJ#FJ87}f9R
zk(Q@6i;xk-+H!1?7||DjC0vir6A{Jp<h%cH$r}jQY;v|s&&=edMod_<HD1h};dAeM
zB8YOzzz6WaAr{kBD8S)SvuWt(>2p$0*HR7J<Tt^QMZ4FA>8&ydaw+qlLFiA^5n~)Z
zqRH>2u`W~i^6Dg?-k&amw!DBLi>1B;nx^7q>D5QYgB{vJ%uG@8yaZYwlhM=+Uv3?h
z$m8_p_=EYATI|*cxD{C)pTiLPCC2}WJodb$-FLXBDJPALTJC=~cE67l28*QlPU*3j
zgamPF9P&o16HN<6T;iN$8Aqi;ZP@9EALwS8MIaJTTuRp_&@u|IhuHW?|MY?-HoIr;
z*3ETu!n5c*0|OFO<Y)-`uA_#2fbWF-rIgkc06NRns@S%uW>3%6E^tS8b_VaTbh%mB
zbr>`~%+2-8<q|e2xGgxGWx+pWW{eR1gpXK_kI<X5_>opD2BW@QEEPFB_l5>sP(S_)
z51~@k-QE2bkTj&Ybu2Z7&wpOn_;)*{fp!WWY}BQ0=1;zxseF@aNECm%cDYcIt)r;t
zP-ha1ACu+Yfa*+<wz4yeeltVwLCpL&XEE6RATn~DpgwCwN@$+(-j;oB+4dh=#@l4J
zxb$VDr*n-axkmq?FNL~K-@*v9?Z5|C8t_YuCha3Vkx@1O*^~kk)u>1PQ{Os@X4yE{
z6Hgb9=rLYc0}Nm+YHMqOQ*t=@XI`QA6|{(V3jG>7N<;D{%F@M+13G0sKVULGjUK~Y
z(qe#2F@Q<!6!kv73Hc;acBhU_&{``>=j5$<))hNx^&O+YCwg?jTnOJ2)AGlf`fTkd
z%D#_v>IF)H#r8sTLcNmOHsy&*<#jBj!Dw{?Tg$SW2NT3=!<D_gXwMIhVyRah9;?4m
zY-MHee0|`F;3|IthYD67#q}Tz$fCS=c(Z@$IzjI+UfME#M5+I}|CwL|XBHYD?7{%3
z#1$}Y>K@s0P<iwXbt`}0X6MP408TJJzQ)8__v1VZ&u3w}T2mN8Q>RHjuF}dMt)^Zp
z@cmL!;y0pv#DO9}BxGPrQ#<qC-w4{t>cV$N*x3I17`F()RYSd8)8j^&jL<R4>K5kP
zt_vReZaX3K7`K;eF1Hev2Dk2Tn)EJ%3*{f!0~nJygAGE+>kRv0dPWSrv{L(qZv2N7
zjHN6${)-O2g1!ULq6+#gP4@x8=f=G?S6y^LKZMMoYS82()c4mj=5M$p0OtNT=orgo
zFMTnA+yR89Pcs5VytPlvUn?a=$h<%vD3Ias^6n{pV9`=h!BlguDZy`9n?UR?$=TG>
zBZMV_My!1O`Y6$e$=m;;5%HmarxDXir5ma^zZ}t(vDB!k;{3Mf5q7YiT`R|KxuRUG
zw6Ws;<7tUYsV8{vHN(crD%NS%m*d!X&`z`Qd|ENBVPIE>Tsk1Z@0TE;#=dw{ltwd#
za%Is7QxzQnw~*-Au8Dp3(63=g=LmZosqxjy=1;$h*V4`krqcwd1)x1_*mrr7h)2Sr
zgwdG=4wJ_b>XjY*i59*=_R|?5P(|~AXO=;gI`Bd!FS&;MdOp%@tVf?go`)->#vu@i
zD7Jvekol_nGAMC?--972x7P+MQB4qvgWWkT>uPBN_BZ{U)AC%<4@R?`kf-KodB+1{
zH-U=@%Wz`)zhl(JNP{SWRi9!!+DiY;LqNeboL}}tgC4c25t=+?gJH(NKB@hWT#}aI
z33E4vQlR15XT4Z#qaWI5V6Zv3gm7xlzRr^i^9+TSOES^w;&-e|{jDVt7p>FvUHhf3
zglzGAfF$;ipx7nF;mgIu#87e?^-X{s0V%T!c5!D3ND_vBh-bZvs%pvl+Kz-7(*97{
zOH!|i!RQd=PHBwectA58PFPh<<Xng##S}TWH~m`c6@<btZ(goi?ht?IRJQbto$tsR
zb*BA*)UiK(9RG&Dzipgx5u0dmsv$4l?8>rFH6v|}k%YM{0{JSevE;qm%B|G6%iCR4
zd?%KkcBW)B;G7e98DGQU$Tm}6{L1}b-HvSz+&sk&X8yEz%$L13l6sVqk&zLG(xMKv
z3Oqu`zQpuhm??Ub`bQupMO4TsH9aqR2P}tYf^x4M^7R^bKD4=yj_u!;1T$>Tlk%4^
z)^R1EV}<6Qr?xLkoZI4xtzpRfCuZV4vB(tR2JKKP5^y7a-879g=^3y^;R2+5i4m6&
zW*v$|2h<2=7}JS4XL7Lw2K9mVS=Q%gynQM(#BU(=2I_%-145Jrm66s_l%Y8p(>!Pw
zu~7%YD_qkpNObMKB!8uu6ueg1fmb^Mn21-26>s0Z{aCAG7GBMDMo4b-9SVg9<P6XC
z>bJvCY>8jKLf?S1CL-`}Kw0A({v+^_))4i5OmaEaSSy?sUP*X;zKUl|#f9uUpJ~$d
znNgD;l_!k@BK9B^pd}iI8C6-!WKWAJ&@x!c8A}5DB|mphFAYxYKx1`m?B{zJe7cQa
zr+`4Msa&J$H3@6r{uw2N38T$w!#l7IZs_S1b{awklUxN(hiVWS1)?^j|B{5q8bBls
z?a7Xs>gvM{!B(axBDx-a8QhgU`pOp8C-@T6;v1V*irAy>zg>(GJt{xRR4fF?N|ecU
z#ewk3Z?`w{%xaeZ!VQ~*Ax0S{qp785LP$^sS)@bbxk4_~i`~w`{0p2Q`BA&>UD??)
zM%`^RuJRrt$fAG7GNN8U7J|Di`)mels2T;xt$=^m;W%0(uK(1%%<lo{NL+0R%E#J|
zd89j-sr>Z`)$m31wh>HRvYN3<fax5cbspGB;tN)f_?`A;4$1NczTr*(#C38z8&Jdo
z#vssTq`o#U2v8nJ(xPd1Pby4dV=^NSUIvUp1qGgMxm#b$xk8aF_{vM-vZy1;%}bDR
zeiiPNUiR?CyPmFOXDux;Wj;_`Uq4w+vcoYTjfjm3OQBtN>r=+jPOf-@k}kcCbiNXS
zRsLNaMP6fWrC*$^xt6PVgvbJt&kfmi?zHIncNfG9Id*n-<v?K_02e0=Pp(2ADrop*
z5LU=|B;lKoiLB;;yzokFX7RpXCf@ja-Jn-YPtgIOiS4%5^4$g{;r_|lP8>aH?H5hX
zGl2&dbiF0KhAG>2(|9yJ9L^L<tbUZhakZZF;e*CZY;Jn1hxnt?Z~0q8AXRmgdx3FB
z6@Quvm<3MQhJCmpb<|uS2j>Qnp{{{#_Szq{lTJNx>ypq-dsJKaIZAnA6UMlEj_t}r
z8B?5x`VIzy<JRfbCv|eppYt03xN81OrP#XRbh+NfNvxvB&92?O;(7B3TBQ6=Fsf_&
z-OJQ%;0_5bajgt(zJY?X&3m$(U&rHMLWuJu9pyCa0y~xLQWFd7>rQ<gAM1i^P$>}C
zo7Bz|xB?HxP`n$Onj9%}$qT@%6$WT9Ay;d#yxpoTJ;pT*!NUmkk&DUGUuL;trfmmG
zZt>c&Vy!$jm7ItL)W!`!1{0N=t5{lEIs%NA`rZ7J<ccx3+~L8n+m011S9s#l)ud%+
zMny+&@>l3TgrX=LYe+HoR&8uhZU3n?q%}J);tp%ZfSeU>LkAC@AI0fYgPcC9r<t<A
zyy;09D(dFL%=ionu`CQk^us;WE@>R*?J8`KwjB|5?O&gYTsT<Be4zMd`^bB%4U4-=
zesowh`uZ}PiES}oI?I;V1HzhlS=j#2x_4e!MKjJsRCkZ*in!$G4&~T%56~?BmVMKJ
zxv!-dMA$PDg@BPnB?{3}1TCkLrarIQC=Mrk$>@&jr;PlZjK>nIc`d7;_bJ0`BII#B
zsRSta6H)`L8ZZ_0-1aEU!5SGBq1io=K4I%;^)S^^l!xzjK-+49IaYem*>fc^63rFp
z68bw=-6m#=z5%%%bo(J^0CpZ7sz$~1827Z~>GydmMgcscKGEUbg_)*MB+*CZ9L*o9
zh2QcXjq+Au8_sn-8f)dcE!wSM>_7Kny93F|j>SfL%`$2bEU5=}Q~JQg+=S7`Lj)N>
zXy#yyWtQ<j1CZ-Vu|xL3h|dVqdzOPdUMx@5X!JO{^_TC}+MNtSE4H_FSWRng=72>S
zsEnB0Nn|u3*-AF|*Dg}VsZTRKBB~!{ruuE)zH;SC_eLHJn-2GP8u(z0rSa4VC|QH7
z?6D2XBdmO@xS%{?D|PF#^89=%jp>(tAMy3aU*`k#mh&EV@eXEY0kMkBXesq9)#%z4
z0eDzt!6=|kYe#k>Wiu9=|5<tRVDo5A=Ft7o+tF>ZDE3MShxB+q$LJ6{2d8ND9h;k;
z6ErgbL>-{{XwpC~YZQQ(9mDtI{~es{)x#P<owAJ}VtNrw@8z{g8$PadK5QzDST@)@
z>DhYyV2Z~`e;C$2snK8|egnt>lNJ2&)R2aim6aN7(yu|y@SVo+0hDE;Ku<jg7Ca);
zbOUPm`Rz($dUjekz2-Ty2o-``W0di|M?{k~B{=-K@F0`r1ts(FeNJa*NwV#$w#o6>
z_drB}+K7xb9ciy#czUu^D?g^*OJ-Q=gzrZW1dRTS%v>>4MkqcT*B5RigX4hlb-P5(
zClsSVlvxObdiz$aSdl{8i~0g$(~F01_(l(=E8G-%xnM3xiujzEETZJAt3h$LRv*kA
zyMLb_qZvC|mH!V&G^6C)Y8mI5y_gvz)(FFM3S{h<)3QDJ&3}uA76x4Kg%3pT(bhW`
z=f#YxHEn-kl|HQFo7dE_jQ?2X`);Sh57Uwtm?QbCRb>A(XNInk-(b4s$cWZ6D#MxH
zArInXwF+<k+2ng92c^H`@|(5@txdfy4n{kwca^R6+w}vUfq>qnPz-o}^1yK2=b69w
z&8nKAD^+H}8~7u~&2v~IK9T$60jOBiaG_}Y&!GGrL8JY+Xb>Hp|H&F7L~8-fdTK54
z!w<%mSGdRA=f9X5H2JpbaTMq;wf^9v)TNWmNAjnqzYw&fnTRl%D|z6|L7z8z|4Ve$
zX2BI=3<&}0_vZKUMZjcc_PrqHf<;Z);A8bd*}iXY;wU}G)>F66M@tlr>ZXs5$40I#
z$i{Etj2o-*v|MD570R}YZ|f;;%QKBR7giMO@);g%>2+3#x%TK?HG746RSq_Z?CIOx
z)h8Pt8yg#T5fm{OQ;Ox(b_8YStV8r_Y|oqd3@=|p@g3z+4GR~c8~NM4afFqT1$kr&
zx>_IK_GMA$jPvgd|5(_hLx66+Rp-^r9IjX$xWR#Et0uRB2Y&_ZAdHC-PPP2?&pXTL
zu`(&ENA!BZXn}faB<vtiryMOQ;%mOUf?aL~xn<z*zbk<vdI;nh5VLxVFJaaMu2Fee
z_^Dg1@PU_zv7a*+PCY7Yn7b)WY)MfWb&E^Xyjq@rOK$RAKhA1;T;8CKk|}sk2OQP1
zds4F!Lo9`PpouCmT_^=cEwE?2r)AQHTXeP7t)Zbg=*)z*?P|?|FliKw@phh8w!l1@
z(T9cK20pPDo4;ODc^VS2USv~%UAKT%SG+kx3Fypu#a)2!*$-OOH6}qPYO$-V*`a7{
z$~}7>SZq9fX+DoX9>FYvVoY-NSl7+hJ*XLaPVn*EWT>Shv}aImQJ=8s4V6gnP#OL0
z&VRwiI)k1=QGG8Qe>sVw%ngy)y|GWE@BBe_E70^;lyaZ+qi>L1YUFW_t+gR+h0wn}
zgl44o^{#`d?!ebZ(|mi&T3-B|N1^iLE-G$R+yRfhf=(a^h1nVbiP^Qvwe>oSO(;B(
z)njSp&C7mssNeqT<%?g7mTg78K0fF(3@9}=&0X@1F0asKRC1Xz0)uBJdaVtt+aCQz
zUN%wpy~WJ7d-u7wgfeBj;!^uD9IOO1+Oc|7xe*XHafl_*TW?_5qmCN1kYDw+VCHcx
ztzd%RClV~cg^rBY=HG6uZb^m<gWjO$$<*d~@Y&Jej(dLiKB8T-g;49jv!2vQQSU(Y
z1!P17{ZirupNU#E*XY?A4OMSHrxVhJJfkCk!b)*`DVLe3v<F~`Oq`6f3rK#ii7q1^
zAzD;t#`I9Yn07AAEbQEYd2;P{Ja7*sD0(ZoO7fGB)2Yic;tv`P;L$T(owTol6XdPp
ze_j<U{mVY1@(z450Hey(M#O%@0nFu!vW8?T%pz3GwLM-lOR%j-VgSivVw$`CRmW(J
z&J^OMr}d%gIl^wVFA*C-v(wD$aTLmO0fwUynUJ?k%2I<Aj6D3_!;;(f=<-5uBxJSS
zIt<WPy+Ic%948a}tTg>K5e4IU6ZOdfiI6$kdN1umFIt(o1@+q_q5Ib#lnlIWZZ@=#
z!Rp4ADFcG9;R?vb6*I%fh!810x>g_|#PFA~W@nGTrLdJ*`q%MHXc^~bG$i-!DBHD`
z2(TKxnsW-c2X!dY^2WImi86KX`I9Ytd73KC8%j^KaU8EABCXpgex+d7tujO1KxvLz
zVvsGR6bhiHMmq;Qn!sca*w2-ctVBH10nWw4<Ey3bO7OlsUux9YKJpf<g3RNGa<N0{
zVb<qMy?U&SN+4rs>guUgsqTA+BL?<H=7NhplF%}8^_Yvd3E;d_r@E7#&8tIw?|_A3
zhGpeh|KcBje;s<KSpA>+9LM)6!9#-D)XoMvA&>+BW>9SqOg)wpPJkIif1aHUu0Kcr
zS5Uu!YtOFa&|BMLL6cpal}5>7rs(<Au=6}Y+mH&g<p5CT;XojL&%tU}96%xcZNBB*
z6@~RWVoLmk^->LQw>u@|M@E|DGUQ#Q9_7Fym3T&Js-T8YGLwd%^rc{N2Yy%g_<=|a
z{Qn`P>V|M^YN0>R*&;R(R+T~=J)Y`CE+SkAP6=8fu78uLW{SLsAgPsV@>~Syv!dAT
zIq&D%J*wY6#0^7Vy%zAxK{fbGQolj;5G)@CZV%^dpzPNVQ!fB;$qk+-A=fLCl7Aam
zEHb=Ti<CPzY1y;-QF?*TvDG4Z>KX8@EH;r2K&h;xN}@TCA`WhREP5Eg{_*AF_rYS`
zzvwrx6kK$mjs*0C*&>C%4T5tkHhKf`0T%5%Q>TGRJE%2*55L}|E-%SF!4Yk+*hWa2
ziBN*CZ{?q(AR|wNEO=<lzVal_kuS2zV4_qvc>C9DP3wCcB>J4sbrc;u&gqVjHr_*8
z&mlXZ$s*5#f5H09O>O0OP(5GbT(}R=4Er@&Z=^5UeWb<GpzNVk?;kZXuUKFKsNn1?
zZNk<h?E)!?c!F}5kGv&^6Ot__f#E406minX@9OX;unWo<dlDk31G<rlzto!xSh@_c
zIs%mF<AYr|G_pn(U84hRsD#d%R1dq!)zn(r*{MSxK)l6J*Q_aT_2m-k2pWUoqFQ`O
zM{-Qd6L}P<Dq|FIWU{<?I-mW}(g|cp1?z<!UTt3vt1EDPm0ilC|6q5HhG;xGNwhu@
zqeZdCJEs<O?SYDn-VEj{RM~{1i~w<b(=-2DjG4v0Qjo(`N3qXWge7YwyqzrA%=Qy}
zlKXqA`)N?zq`kqp3m-&FpGh9Yt8#$Xsu_;^pe{NE8kyR-C5*RWF-k@CfEVq-IcW5@
zDvouh4nTOa8Z}ZGaL(IEkE9qPl)Khl;XTeDdI_ZCFTI)KSqvBQ93sZ_37jXCK(P}8
zDE}ggwEHZ|N-c1(^UA|%1LcS_Qqh-gclCU_hQPb>j>?SYt`2RZSO}h9&!0XceDUC|
zc(;O3Cj8Yr=&DH<$Vvh07lwWTSUU;+Ae|`QeFH&b_k8R#UWnQ44oy;SQ`Yj?+!>B-
zPd)Mo%IjM=1q0wLG_N~Om6wwq3eoe;0sa+wI|>tDDrI5OHbcPoWSr8o%XKQ|+Cv3x
zk5O3@C=cVESd1i{xi3X>L;w{8k9XxyT0w_E{<LlAAXOn`BQX{I63LU485oRQnLAVL
zE~A~~l8Cw)OpTpilK?c&5wEhnazgN-(f$7#&I&d8?N=szRasV6UF&OC!n@b>kzkni
z&e#6~z2&k6J!|K)#y;g*8oXE^sIt$}U@BwVA(Vy?Zi23MTh|Dm21^o7%=h|q5umO*
zTOVF4ut55W<OUemF@fu~EJAUN0gj{J-B)Ed*lG30K;v4*>${x+apcEII6(lD<krxp
z+#uBj=z+vI2S`v_iF3d0+7<$#^wt*iagwh6t%MT)MXekJPxu~ire^*{QWwOfk=x(k
z&rP-UC_-s_wUT@XaDF&yekGdb5zt|w8sfnLH9@U>W!GId0|RcXxLm^#Vw_s=$gMyg
zXoHG7a6W?sthg=SHcGVTk&p<%fVtCt7)gg&24h~}^;#RgmvOyamVM=x8f}Y0naKA8
zEpdNyMr&3~B8{J{2RjEPr?QfUIN#*YM}P+&R^)+3{}22c`lW0SzOS8!apVMULZd$X
zVhh^tNA>?E(-i&G3w}9p2vbU%F&0!GTVV)}G%^=HYWa&!XbqBVlEKK()>PL3!t+kW
z9crz>p<@R{G%Z?CVg?R@XVkTT8QG-Zu^~5-HglNj$jDsm1eGzxK3Da~iR=CzOp4Y-
zPS8UR999Ra^-txiJa}=HF>KaHX&b<Vmjiua8H!vSMoM3H$X)GUT7Xib*K#0YVzFWQ
z-AZ}kpNiPO6_!}{_K2p5ncZ`YzV5}bF_}+(v?i_&{4#MD0y!w%*W78zZ)gr-#0ymf
zN%Dy~p+nRFqz(KklXJIWP_Q4`n|;2?38h-HC!--@Nw#3wzdfzt`J3RM7}E3q^GIWi
z(G)urF<3^LMtFqQUNlMo^&V*Pq`5&jFk=Tv_i_mg&mWD=2MZL&hOA%*C=l$@60Y#s
z0_b%jJfWIw?$gDQiQ%ycoXw;*CAB1h%S7^*DGa<C?>19zFc-^}LOn=$G&Xyeb2vQF
zxIlb$`f>?m$KRgSosTkps1e#-+enA3?nZyZ!H&-_La~<iB!#$&w6wTkOIurFis-n7
z*5B6py~Mi?1P39WX|Ora9^sfrJstR=`b4=zPG<~B+eoA00CT@KTrcTcshc8!^9Vvv
zmoUm-SNM*NrAN#YDa_su)21`DsnJ$o-VJb@8SUcENB3inKij?WbSc9z{;qO3on<7D
zdglu0UvT6{48rvxsXvuu4xoh)F`&^>2>t4rU7i?7D4(hH=>kyIz-+*R0*y-xe}Zq^
zS9ZT^b64&KZ}otO`*iE;e>UN8E3WL`WPI2Bu8-umx(6=Bo^_r6<MbaNX#M!^=f;wa
zlDR@xHs1Nxeld6Rj+Y97%dZFT**LKJ#wMFJM*`OKCN5ULtzaIhf3P8Y!lR~Gmo@Z7
zzP!$?&moUjSFW_0MB$VO=$>uFvvE$a8PI|f=t+WrgSjRvEv3SUKsz=QMcgSW+Tu`d
zW3r<Nkoo}d`&LLxOX-<Uo40E<Rm;Jd$-De^efZ59(nB4K$iO9E`SiRaQzo7t`}5Wm
z^M>!H=KvG4i)xES-81oG0E!x2_7P;9*QLZz5V%gN!OQ!2rK^gAR3e2$6?S2e+uP8s
zBQosl(^+&m^>fcdT1533p$b`8<0<&tIr;@CgD9y+R26yyS>>L#7dmiOaVhv*Xm2i)
zmZ5|OnZ)Ds6;akT{J^V26Hl6Io-$|_D%#GVA$kQmClFTR`FfV^v-Za=_sQr`!2(PQ
zlSfu(GZ6<WPmAS)v1PJ|dw#zxd!TKMk}tkjUmROth{YE69{)V&QuZpDv+oK#AOW+S
z7z0(JYcBNO&ugA+>mM~H@+&U7gge!+P;4mynx{H*1XXMhh-m;&TOlVVWe%J_1JEcq
zKkhD^04#C{pN60+`}G&UAUK^lUvAK^xHY9cJm?W&_>AX6{@&wj>GZb@SjXW!+N6V-
z=}%{Gq2uLTfr|E{+%N@A6Rz7!%45*<VN6O$oE#j5ne+0TBTvTrP}7@bIRh`&+m=u@
zi=33{lvgJ1j_s1stU&0aDgdNRn^gIrnRkZYTqKd3tTR&jIu<yuoVQ(Hp`Z+7)<I0N
zR5qj6HoGUN_5PZra$Qj9s<Gn`vI&z7?plcx9E!R9Q<X{a%=UlLKk+p!Vxrs3p!vl(
zAvIxWpu^`S@v=}wrhs8FjSM_lOeGSS)dz){bp|EVj>-!7JMLSORJPt<kQR%Qo@5_f
z6s3pQ!cJAkuIigYJ;h>U{p43Rge-kw%jtM%kdUl6@N;`iOpL7_Pl3dl?AF@+NvEh_
z>QaepHvzLhf`Phv?j5Id8Fk_GyHrt3B<Rm3*>Qyf%9nL42)WW<x`H8Sq1eY_gFdLa
zD`aVDX%BBNGy2|ExyeBzz7(r=YBQ8l>sV{tg6R+sl8@N~#XJL2AzZhO^vi9bcDGR*
z5uKrf84h=k(55T}Mqu?v#q(hEnn%ZGZ;5+d8H(S2XO1Y=7BhUlI?tCS&)=0!x<x`^
z)x?xBB+M+Lhon}!>-?v8%p#<`+76S=KS3r=vH7^3UMQHIyb~o<N!Fp<B?2GylnJ^r
z#k|s9eNms{t~WlJXud8?`IHaU|CiP_EUfl>zyA6wlLar`rLujAUW2hU=PXGu4Hps<
zQigFQyh8{s#jxB}{lc7{S6zV(%kk!H+1`H78}ufiV=f2y6GW46;dwtb0ksds<06&1
zEA)i@=)sckQt3gvs_y*p86iQJ)ZT&9CQGS)m>9QR+fnusu3@@SnCvrQNds%zEz{MK
z?+wIOPAaW=T;^zOOiVEfXNv5mU<yWPAyN-wG+GfX_itAPU;T6JR^lyzyts3#@1ixN
zJ&*zoy(xI&&We-)x6evocm;?}b)r}LiH~z7ilnoRT^Vkd*Udg(=)1DE<Fivf<Wb8?
za2<Do>rP#q+YbeIE7n3ON`kjs?o6R&f50{F2daDXfFSXJ{~dO68e1jRf)&6l0^$9(
z!$u%Hvy6=osx@>Mqo@~U+m^8tJqt-AERflt7|z?hAa5g1s#GNwnMnkPK#L&|o)X@L
zW0?A`+c+2YGrou_dVRAB+l#1ks>c;`Y2<;^4(0V>b}PQi5CAevPtc?O1k=4H{d3P3
zi<FIl7hA^)mSdpf)JKqIu}O?YG5Yd=%+8&E?Ty;}2fY|J8Ash;O!7RZO^?;sxTl=K
zVK_l5l8T+EXc9RpW|a17i~2Mh|30;u#?U|$bnI0oN}oVP8s2b)?x;UK(Nhc~nAw)7
zNbZDEx?r(MWSd+ISwTNhCaivtOqtKNDDrHgVztiOrj|<6phy5y&pLTO<s$m7_y$W0
ziy}HbNZ;|zejSrQ%_Ylsx<v5@yeHK$0~-KQt=;dnn5XmHLNhmlk^lmM_GBApvr>je
z&3AL(B;j6Nv_$ZzGzxHF7n=!KG@>7BW$)zLfsk^K^`X`&EXss}@&hW%mNpN8q}_jS
zeS#dCoD>M#cr>noO%@J3C%be+8bYLTEc?Fx(WSM>QK6(+0XuE<!HFI-v`acR>D46O
zZ$+vphs_(uGqg!(2P4qr4_t{4_boWRTX1HTrx!sPVx4Ynj$sb;G{X=bz=;-EavOqb
z8C{+B#|dOgN;JjT^1%?GZp`jZQ6<$LgtTWcNmU2m8+)kpNF7KCF$nDbbCoUeH%QFb
zl#z!~DmquL2%Dl|ZgH?<Xp;f1CG|%|l5K9xJE11Kj_Nlm!f4mdIT9fw+;WfJ8uomT
zT7KItD>f6a@56_sp=g@d)FHq$%vF{*#`f+_s&Pdk$Z(D#+FV3j9&yS!Gx-tpAAk!;
zlGPmF(Cx>a((d_%SWxXUn5xOHJ#g*i_Cn!G<M)PW1##KoP<TsGVd!r?jS+P4ui&q*
zsi{ed1Dar?VG)1pkC<qCg)ve#UWB~o=+}+28BNc17UP+E48|Ij;)uo&G*@X2wK&w$
z;q{)GCWxJ-NQ^j+ZKe-5WINsPA$;p?@5vES9T(Ku*ben;yJq-s!$tp(jX^Y=B1t0F
zE*7ISmUZJr+=&j!CDB#hyCYQ@47XWSj29?8Qw~vjrmWKe?;^P))WmKbj){#u0e-AQ
zk`o8@8SEbJJf&fc0{cXb&9hXe`0TY0kiyq8{y#D?iQ!aCcML|!0$70LCdAC!BRNK5
zd|{<c+A$gzR0$TSHedGyh4_%sWZA3@VM(v~kPL4=Dws{(U9M+3wHfL7aM-TxRQKR@
z1`rZYV;qqss0{JkwwD|($i~5=W{B>#6Jv-xai;`#&QL5rQbQkM{JRrL$*To(o1%fx
zHCZ5qfCpAhzO_!qI~U>R?4VY0VFN4M$<JBO85F~VQ{@p8@dHX;w(UJvjv7ZgR!P^#
zd+xVd+4r8oF!%S#oJ*rDD0UmdoB_oM(t7b?rwE*J6A2fwK=J!$k?|!li>DHNY*%%4
z^(FJn`IeRyleKasiS(fiMtRHlm8AT^10?m{Z1D7l(&+fo%YowemUcp^`KxnMi_Bcn
zFdfz8+dpio|9l#U87|*xel)VAoeBz-U=*JE3qB1c?O5f#?TDBdeqn9hpiymc)a9Yc
z-BTFalWB+f2Tl2Xk@!DaD<1dV-86TZc84T`ag#0{NQ^~h;U1K1*}3iw_RmTr9^B0u
z7?6;V7WrIsO*CyUe$UZp4Hc|+_5*$Ku1giutE*Ru=w7L?MPpa7?u!Z@pn+VoCVisI
zq-6i2%*>6t+38<X(hNitz4z~$p`~)U=j5<$Tcca)am>kE4vimB@wAeYvIA?=<&OO0
z=7;NmI8-OQlKLpD6tzUvvsD=o6^N%BuhY=fG{KlXiw11b%%(mSjEr06cBjMLy;ixL
zRRO$#E(Gmo$O#{w9X=dCW$(hF%;wXGGdMoej!lCYxsx86F^T?f4lb>MHsrmR(degr
zJvDyw{FkPhW_^E7o(5Cw9e93A@s6USJM@<cF$z8mG$Sq`{ruOCKVmy%bgVF*PwLc~
zd|s2y7zI#7vzk#p8u~L(Fza{z)pI*$nyiO36>n|-WPWDLI>Dgoom4FQOmF@qjcRN$
z5Om)K$Bl*l$9m|0Je2-_X<QStg>0Crsvcm!R}NtQS2XV7W1Mmu0S9C)&b4`^{6<YJ
zt>IBO_xnf*d(#@iIy+y*J1)#UiteK_kx_0GfrD)mQoe;i<d~*r_2}5UCl?8z)GobO
z+S8)!u-V{8360Hxa*chVGldR4J02HxNX{B30j2B7<0yg~LY<At8JVlJ7>uCBQ=7#%
z2dd2ZW!Bc)D3i7>5dU&uU}g@oL~U(@-r~DW9t$foe&`+EADhW;Yw5ds*3fFxZr{M9
zN3|9@+3B&*K3+0rWmAoLd_zN2WMt&!*eQ(F3qLv6fpU^GQ{#;-=*W6aaSn=OP23tn
z=>H<r6$^ZlARWt{bX8+3!M;!Yt`>ZwUWH9npc754=2}wvSVF!Rcmx4VaG33byx8NO
zo*s)+lfd!L8y>5;yvj1u+3|eNO{tPyrad=h9ZZW$!{rTOnc>n=EW=<d@gGj0Q1?Hk
zX8&!t{~v?5|Bcaw|J(fXG_^QBy(fW%6Cyp_;_Xc%hh&I`e#juB-ZB<7h$csYc88B`
z>fz}*<a*%+H-LxO)PvrHP?4U4=Fl)sbfO~BD1Y|JZ|UQ&J%d8lte~<6GJKNYkKnkf
zFhVZ`=mQ2#wpqm`9{@}kMAK;%#Ktoij-e<Na#0Tu`XZLuC`k|wg+TCZ)Q3S4a|BmJ
z!bQlJwKy8|Lq4|2hrh|ehy^vLY$kwC-rh=_({d98*>;vaU?_>|dio&4typs5ry2}7
zKv2M91I~&sb){iFCP9Efx(0#|DO!Yldmfc~6SIh5Mg-C}1vE|eZ1N<~wsaD(2wxs_
zsw{miLZwq{#2Q<@82~kyq?Ci?KYPzv0mKHB!q%Z4kX;}Ud?!xE@#v}!*We8}>GdTr
ztD_x~ay$7BS_TG9U0prCi0HH5*v_r44$<rQ!R;<+k1tya25O@q-ih7%bh1WILyJEk
zR)C1UMVrOjIoKB=ONBCmv`Fu8>9m=qLw|?!dR^3ZurH0=`PiYb-af1GSv7<4$JVt|
z?11O9AD}YtDcj+F2XgL;p9<W8#hLXsW_-L&gA-CxQsD_U7Z+}cOb$;v?<#%z-5u1S
zk%M^DM+b+NAo?%psTr5Je<Fr|r^4imoTrxF{RLFRpR}_(_KWit-(?{|$tw}h4Wo9R
zH@{ro(s(!GrG8IF((yvxVB3>@X?pUOGlULB2NYf#k~@qwk{k59kBgzi1J{qAGE63A
zZVn6&by`Gu4>_pX=oNfeo>VKd*<fnYx1KU1)}yxlb%H)3LNxe^vRr0`$s)DtnEPof
z8H`Kx`Y8vnbAZ$1?%anCF0DtZbb0G8!}5Z7GDAK-BSV_Ft<xGhvM6)ogImg=E&_4A
z7{*LURFxb%+&%Z={4bxnuVJx)Nm@VBel^f_-=idR8r?xBfU+GL=VKlAvyD++#~U>+
z?)j?Ex;S&b?ZnS%2?=G9RpC3$U*GxC(;!oHaNmy|ci+lRn>o)qw*sfd>GT+Gdj2z3
za*N!nw_x~hLZdcYt4eDB@|anSJMHuwXz+%O*|6-U&rU4>iJ3)c$g^G!I_)gS9D!W-
zrpA?}Eyg%Mdu$tLS(+ZNRM|P%S<j<BexPms`gA>>XHL^MIpG7Jom0!5%Eo(8>)&gV
zi*D~}GsJwDYGK97*gG@lij0<j<~0M}l;-`#s6xjzay*tAaK@btV&6|8?Ji6k0+<-$
z;qI-(;kn_26tYsDFVWlj&uz562#CimJSsG@Yl-yiT4n;kN6ilm|Eq9$85$!6Yq>?A
zfHubNVeR!V-W^fm6qONpPQn8EnS{q5u1tUEzd~v=Nw7C-5YmLtQrF8Q1qaE%1k-Hb
zkHOI93PKZb4kf7UGhGM%YVhyrKBSMsduSdcYsA<DiVJ4V?i>``Vf>ea=~lb{OPosy
zH&|4PV`?k&z4<D^Z`KjzO+(SlA_#3#0eNY`qw+lVtw1TkB8LEB$Jcvk9Ru*SM<82I
z_<JCxqEgT?7SdQY#(2)4Ii%_H%?4^e3A=YEyW$&8Xle#RXP;TYUG##a^u&J)1a~HA
zwdo6?n=@*Kluxz)O<pF{{Pe580(lH3dQ*Tw$^g4|z62vp68F^VJHT!p?0}mzT#0CT
zBV<&p16s56n;ZkA5}bb)L-zzhP5i0@2XU1+!{sEt^rpOvtyMNo7dVvd1Y+leRd#8}
zj)U1wPYAN#31d)j92K?(pD<tD22fBPU*+8OGjMxpZ)|UPJB)sL;~WkySt4EZBY9Xi
z$#vj!b~c&tHL%K5y9E`3Rdx?J8W_X-NH4!92;%=ubNjDqhhE3)fs?uxksi>Ksj_jz
zNy5|WMTLmNdJQ&UR^!e}JwJvRUT;gD68M)C0M;0u+l07~;JE1$;g~cV47jZ<WeW{q
z#eqF%u@T^BYn>3rLG>nG$u@{5ixVF1l5TRWr10^(!#*wgSUj&vsz&>M%5%g@t3ZfE
zvMTn|4q?1@;>Zhb;lFm~eS`#6z=nRegzO(c^C%<!c>xXx03Rq$bB%ZzORU0?H-YoJ
zB5C$RUdSaH3lbygdh`3l?q7`)u*6tQY*OOTSJ2Eg5}FAK!GT9rzIP^v4=DV+i%76X
zN40E;PdhGMcP5}atx}Chn_x@%t-Z$N;YIQs=f}O|!O`y0RQN9~015Gz#wJ8YXE!+M
zSca}kXC|g{>)67^+OKit5yYV4I&oxhF|m{?!Btztin1(pY77dKXeJT|h?J8o1pjOX
zUx8P&Q@~=HVAXU!IhbT^4!!^=b2v%!X~Fb^o_)aK$kD_VVC@uC0+DFCN=-!6r!a!%
zM%riTCpa$LnrC*~bv={>^D!Zn@;VLUYh>)e!T}hZoM!S3*#OpcFTVxh)B%GTnc0oN
zi17@@93S^WV!jn}ud2Q8PhmZiPZNm;n@sXCPGAPVDBX6x;+uJ@{n}(u6ozS65pj1&
zT}=oSK7K@1Pd%+Gr9!&tr*lSTC8_IN4N~p^OC<I|zzUwh2Bmo#z4tM05$j}S#JYmM
zEF-rj9KX4ph7Ym_C~QV2)U3L@mSnr6)^Luht*L1v4QBRH?cVdV8A;ur{IUxEbBzWh
zdIyf8Edf6hh!b#SDF8w26hh;aC0z-ilJIzOUeYgdsbzAm?=LN-x!0}sSx5!oW8r9-
zAuvb4p@K-O8-Ps_cS!0O9>LF~_&fuW!|+rckwEn22zCybIlyJsu&@-VrXo2s&1u`i
zEAk9*%`#*X_Z*R+*5p?LU>d6A?h0r3tG65T*{3s)xac(2*7e898wPu{0<SK^WrvWc
zfC@qcyu|d!yocN;Y|&>4IsL`@&{RbuUDNcKHAv46P-P^<14X|Ud)H?E$^33@&_4rs
zzVa)rllGhh8AQ7hjVMua_8=;`pfgJ6!xoE}6`-i`C9=1tGPcTJd!ly==WaPcbCL=w
z(-dXo5&q-^T&yH<bPtKiqVfD7&m_gKcp`DfWth$gfeJ$|V!U+&4yY+m6O#c$DGXAj
z&N{V}@KZ!iObHRFO6ttX0cAddFA1h`MRT^gLmsn%MPtc`c*<b)QL7ZgR5=B?!VEJ*
zETzuvX*=tGVu_Y0c#bX_URM(^rggkKqeJ}an4I2ir@}6FE1XYW5<^2(AeH`+B^}jE
zh8xoqwAsdQ5$ppH#kR5p)DwZeILL;)w=(ToaN^Ns3{3sjoE@Hog)eYIBYFmZ03oBt
zHuIILdCA%kegiN99bH_6k>|Vud%q|Kqh#JJRhiht#B!QO#0dw%ikxuNtMwl(F)ylb
zK8kgr=YEjbI7MAmEo+$3u#{rFQA@@1F=Q?9?}I51r__X0My>Zxou1@wuAbMU7-X{N
z*sz3lkWp|`2PAW9fCdIg6?Z|@bF2Be@*`X8F=K@hSbVX&XE_gLg$#czpC1ZcM^r_m
zqYn0W3R)i+0f1W)7wf`KIVwE0+4eOCTj-!N5(#3?bW)7e_B4ni+GJ{AU?8wgiMMN1
zwr###22IGFgH|0^Mhfl2y}N6$H{epXft77DjA2$L3o}f)HGIt!k$U&7B|qQmHA>o=
zFP>e3{e6pK6uB9qRy69ccT0b+DDx&6dmld`#hU%*;yAr48X28{kEdWJ8r0#_Z*D{X
z5U=Qh#W(n`OHOdtJB-GQBs&feZ?w|zZ;pGlP12JYBwvz#d+MTeFiBemXqvI4K@Xa|
z0n)C=d*>rmv)Gt!Npt^r)zxLt3)`HNlY6@#RwB%ijXQ<6ohq1GNkdzLVK@l*?ctu%
zb|PX_16c*StO%+H{FNuqBjHrK$yy(;b8c_P=7l8$7q!AmqP$UKn__*E#yS<EjKNMr
z2i5xqSL>y}*oM0rh?k?Bp#hCuM3-2dWfd;rHU3zL3j8{1XJ!#1!T<>(p@w?}=AJYH
zHN(ey25%YG)8t!R@{1K@sV89e!1%J*q;JAfcA(TI?x|B@&^KNFI6@}g1s7+fQ0Io>
zVt?`Z(^~(2<Ki2GOOU;^>@if-h8$xzahA-4$aM-j+VLM+6rk>UzM{|?B7!;NikN3&
z@`dW^CHqRxLobFHu*GX;D=wD8JBv+p;+!K!2+ISoh1*QS7*Ip5+PaN;6VedT$msMJ
zw(%PBTRW3q?cf{K(zr6^H~5T^8DanZRTCT0rl{(xs%x+4(XGn3JKWjbW$)^YF!=ye
zR+u)8M$M7Di??2my871p5(`O4On#T~l~f)Q&xyxVf+%^LX51FX^hXd*NAoTM7aOdu
zUFymcjwCpuxm{OKI{{2g-o3)`>J7}2yIkiz>vfa(dX9WIh-$`Ec1?38Waql@M4F6s
zdVHzOUST?8<B}<M8%VN5M#@O<%IPzV=tCsPAX6zcY#m=X5X@dC3BIa6vg8T2pF~I~
zf7$_bTKlJwM<{7sT%pY00YxV%WNgZYp{h!+Tl)oPNWOyTp&vPA>+9w~^UGxlK{%qK
zO}=GBjpP7WTn`a5$t(=EmzW^TfyKi2vLCPQu&+9HQ0$nPV&sN~^mdzleN}bFull=@
z;flz3hrHEPd14$d+k3_XzcSpAswm)_;Koa}^7;dXR_xq}7hQx<7DDDt#CFq8vQB$*
zU~$6N2+)!{P?Dog6sOdOvOr)9h32J{OrWqktdWZAK$A#fpg=nDP)EY>&o(3H&muN|
zfdp{Ja>#$8@^?AWBNUy|_XCZ4#0P)yg#im$s*#^F_N7Kzf~!m5?cp`iVgva_iD%01
zAw&?7jssZD=`%DaV^iir`whyxa^kZg=@&!AqlO$yav<c;R!nKS5|~1840X9FUmEVF
z`bWmAMqm;#6<RSfcqEasfTqi-yUy)zlT@rr*l)MeEut(>JlG6jhuR9VnW7sD6puP8
z*r#otYu;iInFb^9{_MhQ(9Y0{9>Iiwp1T?yCLOpreIHgcDa}%`Qy=18(fBV}`|&77
z;Be4Cd}W$<A>NK3j};^m2r9x`?>l^fROLDeD5!^|*=Le;gm)Tr)5cXu*r5N*h~2hh
zkn{jKAHK5k$g8eRU!Wt(kf-_Z0FOmAnlZz+pw6kR!G&x<&7wofJZbk-G#jmWVCrmv
zp8ytHI9e21N!X;M(Md%GABn9-+qcVJHC04zOnZq5w1HN0WqH1KwGA4U{LOoDlCNWJ
zm%Yv~bZgQ;rC)*?i}&Q5LiTaAzO?wH`GhA8oIBj6VPL^o0hxxH6`{Z^qB1g^FBE3%
zdbZ6m7>gw?Z?sbuVJWpn*NTg~FQrMN_mY%8pGVH@`+>x9I@sd&Xy<sq3yLU<Gj)K+
z(U!4JDOzv9vDoj@q;32UctQQ&;DtJFkJDw>Rf|Z#LLQVfppdPoNb|+aRX97YFWIwk
ziJrCKS<^li?01#O$eMWuu3N)#`g%KA4v=VNiMxnmG<!_T4lBdI*ULb>L=;^nvk3b$
z=XIK^(HSoYxa+XP*i5QNYqX7hBTpLHp)y-9C(S>*gec(pFx-8{;4nfa>aEPeuFe=x
zh6<R1$O6Ajb`={~P~j>KXO(kF4UA_JFCDD6LPjSv3hqucWlSnsx}-Wthw8)1KQCh3
zdHYSy)uWpOQ;IjoQsG%vi{T@v&gW!dISUkyG)c@(YwmGHA!XERa3j0x#R}RC_(O)H
z=oQYul*Gt9gi<pr1wZEE>aJ=zIe)f*$Oqmr&)v1GE4=c}OibLj^=anrtiK!UAGt#?
zq}!1mJaE#U-`Rsu^ZNV567G|GWy*ow=iaUq>&^Pz52vI`0DQGHMDiv3m1=Zr=C{F&
zOmFKG)78}#_;^A<rb-H-8lERrjEH7o=)lAzuk}WU#yM#W-0M6?;X-<f-BOwj{M)H8
z4|XbTkaJn)UhSt0$%M#9DS$vxXsc}o=6YdSz!i&34@Zz^ZxYCPSN<Lj$&^R5Ghq9>
zEfqV0wu>g+s7tX%;Xn?)OGftm)T|v#2mHd)yk2Oy7m<xw1nG>f^3h>O`K@KfIyWGo
zO_dVviI)+NuA0>RCF5?t+XtttxKNitmL5))t|mEDbbNd%Y=4s%#dc1h+Whk#HR!Ss
zOHjz9(g0eT+O^IILGd4-YN=quk~u#WLNqglccW+3fQ+=mYy7LYL1}e>jLz6&6p(V_
zeSptu+Z+o|Fnm5Z^i-e5Mk+@Bw8!kVpk5%!3{H%qBR%Pcf{KqwQCh;YgZG9A%}41f
zpT(Atr)d>3p}^kAD_sfyvj!Vl!<2|0=~><4Uwlemiy-gPdGRUGVqJ+rW%6i61j!t-
zCG&c!YpF?Ku}R@`!NfgAWXW(cInPl9A?5CL+v7EG62L5d8zsX2V|EdmCv{A&cg5bg
zZC+~<Y4a%Txu-!z-bns7<2|bO$V=3`6JbY{E6E4C9`|CcW?`yEU=GV#@_33~WTVGG
z=?J_5f&n7Z5Kl=aT2B(Okwpu+nuuS@Zt6i1Sx)1fs2kG<6~aBL{3xxHIEA(dwMOfY
z+)67*5!CB`$ALa-aegx?0w5_+^+CVvPNH4Wmgeu(6|Mu;dsu3Ld4^(|YLdR}`<V2c
zn1(n5ttq96CAXS!t0a?*_s&d9JJXyX$q)UPTEKc@jLzE@`IxM+*=d(o1BNJ43nKZX
zLWC*64hS}!gK1w&niSu-^z(1G%`ZRq+=~BO2PtktxXj2Smre+1UdM{d+o-x^cBNGP
zTl*~g;&q0rjU2$)ao8EhJIdykvBN@xoK)R}s0E`hoc^ov%@zz2Rc`rt07|Yc@JUl9
zTp)cU(sW%emcmt`C&-BosL{k66&$hMw4ImTyBmtrd3T}Qv>^ww$dp{t>XTTEFc*5G
z*cl~s?gZWq530-Y?*{)gxAS;B!f$yqJniZV<KB-YWZX+@L166#_i8#>f+p}PRJNGl
zv57P%J=oBIctX<KEW8wf(F;<tD<u4IxcURUh$(8k5@2ot*bSKr_U!)q?oC((9wdkw
zpE|b{aEWUYvoHxu3(bQ)i{xsJ&|A79wC%uw#gr-_5H@f-a_8&k+ljfveNgw^O4f;l
zt>6;3(_9uroHx}yJ5Nw6D&68Suz#MzdrG_3ZvQ$fN}v<_r|9Vam7}11BJTiI!#WRy
zEj*NPFTOn=Y@C?WuL6+~X~79tDQO&P55JPO$}znLIfVAIAa?@rq9co!Z#%Uc>4Rj*
zXlKMP#a!SXu~SMggliqi_Sak%KHhOWNEO>uorFu6%|L0Z0$2Fm^A~;^Iu45$%ZViE
zJ{}Bx`>Ij~ykCb751_6S+i3)cmzdny!9#!l_KX@TT~Tu{S2%wbI>68{_}!8X1q}tG
zPQUAvN2rpbfn<_!XMABbgg*jjO;o^>XhgFsxLdE26AOwXDp)rgs03RlKVL#xT9S})
zQI%i~GZ<eMOtF)Y?t50B6G34H+I1{F9dn&KW(2^K#oj!{FRw93;=HR5h0oxfsX;4g
z7Lm{i%wm%*QJ}b4GN9HCRK}ub?}x8%bOqP34r=+2%%VLrMQ-3$W^3UYsBa96oSR!g
zmPXLcGg+2aRs+zinZ7Hy5VGC)0P5Zbg9Mm?P^iI&bc0pd*q1Vt*Mn4gk`zd0De%J{
z?4x;XGEhlD*GIHJg&7<M9gJ*(5L~=?cG4o6s-ek4{F$5_&NqusuZeMFUF{)s2Z)^{
z5E5j|NcD)*gZ}1Fxgv)bQNYeZqDn!btI1(P-m8<`d{;b*^58?1Z#1R|e`&d}VXSF8
zk>)4oU0$c6`mJBln*gr!U$wd^N~)45m;hcw$qmR+1^B_G>;ii(25gVudI;OzdpVoc
zugo7%X0d@y-Z=}0L;|}=q|0svjOw&*7NbD&(fPjP!TSJnohEdKNr6{BY?vSkHcbkW
zBG)ZPTKhIly{NO}FoQ$gRw^X3T91G5DGmiF-gPsZz<^7!I+AGR<BeK-a0`KArnAVb
zl*J}3AXWUAps%=-J?s3O(<rtvU5A+;jOJQ7+=di3qxsJcItbv0+PaWzTe9(rAIQP)
z5J|9u@je88sILr~o5vesun8~{l>f5uELa5bq{Hq~H1At$<n2k<U+y)Ox*VsH5Y?Gp
zqq~K=5i(R4A2g?&y_9p^z+D*;qW4p>c#J_qWqA3KiV2&l+mX2~o*wy~?PdUs+a2Sn
zc>?kh%p7?x;YF={7$*0~9gA?~#V57bkc62`P^jIosWF6E5$Zg^v+HR=U-oynZS1c|
zR3&KvX_U3YjYnSg)Eb~e+(Ow0_*4o=WHT!FXrLTbq;qC2^%(dXvaxIkhkvkaywo^6
zr>tG_BGdCr`Q!Q6p*CeZknX8biSHQ&*x~rNi~=9#POOP22FO4|h8X<XN4C|bKsUk@
zqU48rdUwrum52t0wA_Ru!~tlecvA!VR~W{7B>!|9-=5)g|4qX9E9EkCy+LaBAlO%-
zQn;$7#uURg<w$vza&gBFa*SJgdU**u5+_>k*Ye5AsvD`1{9^F*Uz?6q!@(*=M2@0C
zx*sbK0WL${NIiTwxb-pr9JTLAAdpZ-pl<Psu2Rll=b68~91)$^B4!bI?8h(VrZ6_%
zl+3LFWL?54W);&sGSYi+A?y^?j^|;Xw_d-EhCgIkuHZSg0_x~TbJ4`{!?t$0J7R=V
zqNal&p3p826jr)CN+t4fBlwU__%MGWpI^)EDb0^(aw)Jt_*3814E}D(&HUUIyjLNq
zuRUxg00i7sKw_V_>Z8IyX3sq@T(`VO+*QlkAxEA=<@f(wK4{W99OLQcy3z=`xT-%4
z((0J4g@w+eJXlVpIT2Rk@>LtAK_!s>OKjN0hcAn^`RKiRKwuGKG~^~yLk8uXaRlPD
ztO<0ONnsCi5DPQ)j4{RC#qq*c%#<y!Xl#LJ7P4FErH3+7Qh_w@aU<Xc<|yi$Hoz$j
z0?aHA%&9nPJ0LogfGahL>g*`<bZ6B{<)h$wr~n{$-YOoL)CPqNCoO}4h-piCQTVA+
zH}I-~{dfg$d+oQxCGEZ3Q)w_}>!R!uE}H=7$51XE-4Qd1uG3k&@*Y|Lh;P^ghBW5c
zh+Ah)KC^JbUmi#X-kH%zu~v}o#DHGK@X7&s$S-ue!uV2C8M{AsJkeWCW6A8+2LWo9
z4x>4rtBID4Jb6N$W{gld(@<cVd^xcxHLlsuXif+iH0MO_jNsbrqb`xYK~C5_hFyIF
zEob5tF-^|DPL{-X`E)8rys_LQ+&6m9iqP-{U?n!Q1qKG3qc$|?5C`PwYPZ-BNJ~Wk
zgKEvFX)yn_;meoF8mKxj2%<>SaD+Ocp-Ou8lQiLo0Kb(x&W0nu<F4}9=tWYpOAI#C
z3?7~Hf!Hll=0cN<sG>aH`(09o0fT(^1to+Nf?h^Id?f$a(BWHHOxdN!@W|^X;B76K
z-mq=c{C&X73<t4HXR#4^GVvf|CVM@6J%>^wj<9LY632CPW(-bc9Ce-AJe9m@0z7tl
z)zi2_0WhYAT*O?}{_=A*SGp1JR4cr+n*eQ)*B7fITJ;B<V;e?#{Zh>O-vZwV!P`0n
zYqEMK#}I2YZY(8EV}FpItxoG`TmH2Pex^&`o@0UhRRt~XK?XtG(>InLS}1Yz26t}Y
zVdEb~MC=dS+&g^ixaEyotHZ=K<a9!e(pT0!klq{l@MMtRnKPY_9{HNydpP&|V=Go0
zZv1}R;tK{|-rZq5mnB0p+=H4ThpkM_=7p6gxtFE#!Y0CaBMPRe%kgASN_Y$PKFam?
zIHsecbJZA>W>a=;d{23V@+vNuyDj7}{(AK2(QY?4&P{%2Y~lwL4JW&n`5xH5`U6gX
z5t+Ohyy^qZNBwr?ilt^94r$(h_AAiDeS7vy!C|s9QtPgD)g~JEHRrZB=gKqQ!7%jZ
z4l}<do9KmU{mz~{LQ4;+sl7mF2sg2_tuGe}iO5y;_8;^UPM+N=p_B3rls&itb93_o
z)C#{sL;TywrcIk3yA8&4a)%xi7puURcuLYYcWUDGF5|$Q`*-h7!HvPSYWJ~Y3vo2^
z6zv(yzf@(3@7!6{JM4%ai{S(8sIgaaXvS0B4D01-x?=tP{YMQ9=Hg02W$Zq@O*Xza
z=C*I&#b={^J)DLmxPXnDH%~oPmx<%fA7Kdd+ypx@wio~OByfus<Bq0lQFUH#Nuz9^
z*2$9}Abn@};7IGl8%CvLzU}Si+e;O4e#9S<In#2ym`vt32*EQMtz527X-R46^i#8@
zx}f81DtVZJMYU%A`Wfrit^11EBi&cZXWuczjq<Jm24;Xqc6=<BYv?~d?g0y;#W+{Q
z=gBFb1NSc+xWDJnp>Hv|aslD(YR}7fC*fmlS(WBH#oA_m^UbcNUnM^OsnoyU($7nD
z*)sFNVRXuuVC=qj^XA!X<{mZ^qhHfvPsXQM4qC)cH#aq1&v*x~lU*KPlS+qi>hmI5
zZzBLlCj$qO6L#T>7^}B#6@t*~kc!IBZ_IzeuRnTp0iN?`a5z6mN`A-q1Q*5(^PVlW
zPVQOO2Hc)eQ|VB$$^Qwbf-`)8q5Omrb6)Lr_oIy6US3Lwe2X1BDyFlUYgVsjfMa}y
zGsS<L92gySd!t)!v{nD{0>%PSQ9l$Br!h+W+qG*y?%vJVxni!+jA@vzzJh~oPGK;R
zaYto$QhKY~+nT-sFpk??di5PUt7fh6o#B=%dhXmgyu$CM6oIN1UA%a)Sk0hwlg$>c
zi?oc)QXEqM?VLGQ=O&JS6pn7R1HXN_q$}FBNz0zM1Chan;q&$D`Cl$wlGU#{!POe@
zx({Eo)1#0@IJ+wTfIt17LZ3#L%PvT>=c*uXOidD6@CCKxGzQKWd6%9Ny=nF8-Hv8P
za529+Vy_yq|LT&u@h6qKZ036)jZ+xijaii){be(bcmAfE?Jp;nYbfz>?GHZ)dky2~
zS5J*{b#)cfEg0%)pp)FDoXXBC>6#MsE;KdhOz9@QM>vdS_WSqmrGw|pn)L+hdh4XE
zR~R;mGozrlDf>A?<@SeYdI8(5YPNb{&XVEt^y%KHCqc9&k)#+~<D(F%tQ};14_pij
z6JB_96vKlWTQZ|?@aieN493>^YlNNF1T$G-7gbeM^jF+`rG<rXFs;f)EviySQK2c_
zN-MPa+0ybrv@oZ2OJ^EnfSLT=VkGSSm7%=e?9(_pit%n+{N-1Ihqrd)#zVs156xHO
z!F6gcdpEcPb4vvf_5BRy{ml=3kWf5|joo+l?6w2`Gy7v|8I1W4SU>L35bfc97h{If
z^mT_LnuBTRES~dAN=nXsdbh{1uUX{t=g;DHeK>#qDNZ8VW>UNem3P$h_V)-CjIB?E
z&7Q=<b!eJ-i-J$jo>I@MH=CyA!0BS%#r16F?~Fa3p1Gx~y6sP`R#tA=oG)?8^|!S%
zg>dSNQ2fcRG!H!Yg@rvBJ6*(AS5dKle7kW%#Juj33%W;qcR^K^#%D$I*r5bF<fB8X
zs?Q)_WH7dG-!2}$15s4sA+J25?`++>cc&IIl$<(mw6s2gb;8dZt=!z?e!h5d;i5%M
z!wVNKd@CfhsPMqZAMde7hfXHzmFkFUn%tUq(BLf)8YB?)bGZ<kJwpkgu;gZN<qk%W
z&uObio=q+Xj~tonC#pD`adX$Xd#YXM?~Plw*u50H-mqoWj)nM>K7YpfiEB*Oc^Fkr
zVL**FkMRy$bOz&$iAmO?uNJX}xo$cWJ~oqAe0?<sC#FuDwm<ezmdWx{7P&&&oapTO
z*=+#acjIL6>$h+FA^wCZx-S93f{?sG!elj$A$jtCs8#qSepUSF;f$RviF@|!`OVjN
zzoq479D%t;*D}*|rH!n#W#8KLG?!e5K((mvE1`Eh%NYm9yY6A&lm&J0EIhSy#S{k2
z{L*e|X=`u%c{{pq@xXFx>8l?fwr)LiYTL2}!oorY?D{<xsIO0tf@V30k=p%BT}IX=
zc3qR{Yyci{Ch*`e1gn`1r*&Df@ASdhhKWmLzL*i0ttG=#b<&f4q`hz7v;?DkKdiRT
zF^P!>>CGE|-00Jx8nH0x8#$5d%vpGI3?Jpmug}^f^V|{~e`GVe>(l4x#xH@T+%kFR
zt$X+G)%Ebsy>7pcRoa!8-FmqlA!yM^QTXQ{N2+sLXl38?yE?^Cc_;Q9V>i;^l`B_{
z9zDun%$s@X*hPh#f8+*l(2Xg&s4ixhvuu69EIiAXMMYB>*Ztpyz*X<}gzJ{q2fAeE
zEO~ry#0zG7`&g`5HHk+4FnYWXqX;#J+Z=amg=GJ#558`^*(P%gwY-wH=zXnU@!)V&
z<r;bUl|Cj62`<kKy#tb8ucg0mgS}2@@D4dS-3J$s9T%O?_1QgiJ~mH8-dTu|WL!A!
zoG6{9c2r+Ku5;{h{q*MG&WtUE@$n6Vf#u&m9x`xByCxB_B^+A1UBFEL2oJXzTz$Y*
zq3X`zDIeRXTvoKyAFf`lEOZNoQL!~Avd1l(?HIdlY{VEduKoVoZ~sqgSN>1swufJb
zL*x*3OqnG^4ylZp(q<Ep44FeYp`CfGj7f%5=Nd9xbh=6jn<(QpRYXKlrr0S{Mdo8l
zb<VRppYG@W0eAhn_q+G|u6M2VeZJ54S<i~s6vFsBVr7-)A)y-aIh086iv}QE__a(+
z5-|ukpAkln*xJTp_6qGxH4c;revH@d7|(iv36Ae_Uq3IIJJz55d1vYqFVYm%p{myE
z)~i?c3(UrYN1s{B@7kpt{Lwc1zyXy|H?c4LvdmOK&7v0*R}YZRY4}c9aUgz63WP0;
z8YKU<4211la~|hh@V6e$60<F#tqj+NZAGX4NMyfD`|UT*9IY^3h?VYo_zeraF7ZLg
zdIV-+9!Xz(Ne?0gm&1R8XNT=f)qHv>9e5!vfv0H&=aT&A^Rce_aXN<8^b`&rOUuaE
zpW~yNZDDWEaozpPYB1gU5s-9ZzDb6rh}CnE_S%~i!CCo`(haYI(o+6bUmyUg{jtu)
zqVPtLg+DDE$;Ul;`}~gXi$Bi>;BZK^+o@~emhfA;WqW(O@Yl8w>9$@z|BP-J`Hn)l
zz(i=lEJKmHf#ILz(hCt>9M&ZgnJfjwk+Q?C;$=#}jK+<p9R*MO2W$}82Pu!Cd`$xB
zpD^3e($b<HGMm#e<k49Mv~V=FYASax)^o|Gtc;9zcct?NDSQ`}-v?^asJ@6zq!O~m
za^i4eG4^Q%vt24T$SN_gGhh8UIObcA_&(@p?g=T<K)L&70KmS{P)tPn+m(8|5sYG`
z7?qSAt{W>e&%G*Sm6XUfHtF=`H2OUh+C>`3PEI0~J|kR2H7FV3%E{&YTKWw#w{m^h
z(yzUh)0m?kSzm9~z%C@=!z7c+aouCJ@`&Kr(aq)}sAVdcX(MHDp<MB5TH1Zj?X%y8
zrORe6E^kXAo{IL;l`nDrL>*MnHTC}lZV?3TJ3v=WQ**$Tp`W#LgZ8hyY#U~0XMaCj
zvzJRu=eP3mJuuV|V1NRXX?Yr45?N^-)>c;WIgh(4Z&QAf<JO$GGP!a1Mz^@Sx&Uy7
z4gKv^-KRNcZm2Bvz9xGu+0+LZ*xL&cZvYIrm?Lp+4G+^NNH5hDmT>3^j!>wiJit4g
zhnSPQ=`ZeweSGcF%{?z(EFcWLa-4m9c{^l~C2K>y(HGNlM7VwWs!%<({X(ZYsPW7@
zRCrx&s~ODc_SkkIac1xynWdG&V1Ny3nZsPP&z-;Hy`7VlA;usSmX{G)3n~2>I#NV2
z-ir5;nzAw;cwfY>(Za$PmILy4$;-==>V>sJcSGWGu&C+2Q0o}76P}uet4vFMzVB*F
z<6xpM9JRDmq3xA6vUPR4ySuyF+4(mQ{&%3Zd+f8Xh~Z#oUkFatGECW_;9O_>x&Gu6
z-i-d4p8TXtv%`m5P=GZsYXa-y*l=DD_y)luC^Pad?uY!lXbTt#-_d4vBAxGQ30GZ@
zy_(N!lAm9hb&>wWDT`G5jrWbRd-qzJKFe0)9vmF34*Za^=ImS>$PQbdn6@XI)Xneh
z_8&LuZV7{nM*)?3(Ydr0`h|f>e?u~P48V-d#q*-T_U%c4%VV$(A{3%yvC(`CBqE>F
zfQ(sAJhC0t#@pHrHY1|pe_9~X6eM<sEuN%3n8W-{{LtJ?Dt4?n`sZ~IFE9PDFbzo4
z<XA0xJ_KfJpR2rNQmQx+6@U@c*50mfY@ARa6D57yJ19s6at|3e+YX;%&bk7<z$T;`
ze9Zj+Hr<({6D|aJPeQsvxPaS_zjCG0{#pN&_vtLtov<HZkIHwS0+{33vgJ+k>LD{T
zRt9FgcX*l>Ko7~lJO=FJygs85NtbJsnN!24<!thgn4;6FhK4X%B_&555K8M8p-Zx7
z=^Pg;D0x1;oT(eBL%hL(XhudxQQuH}^bTXjn8%KEc7RyTk9qVepX1G~tqv1?X%1`E
zCK~PM{|mc8H;FG+u1xnolX{@4S0Dc8@t62=QPd265GVlN9^%Hl_~Ut~XcE@proZRY
z%FMJcPO?mxtzTS-L~(wLfWUhjyT-NA%~(~4^t!HugoND!oX<V>;qI#E8a7A~b{8H*
zAsp5$N35*5g%4HxN$DRvi28j}TH3bk4rt6cuz@{uZU5fATY-S{hP%7F2kv{OX8r}F
zh8*STn0toYGpS1FcJE0j?qi)xs}8j?*^08X$sHiXWn|c}-#PD^$37tz78Y?WEn(nL
zz2IQgu0M1~oW(4DMly`0xfR^h7G7RSofpuZ8C0F8+9W}0d9$VVS|QC#c>gg4he}Q`
zYOF4v2_;W|p{lOa{8v8OEr{Q&cy*Q@at!Z((^qbs)Z97bd3s$ttWm;8Mq0W>{xUZM
zn62xwhTeH}4k?Dnq@s!dr+V1p4!G4!_pCg8_z(fHz<$+mLUyUruzc=S#V%w3?|R<P
zoylL(`J`l5Ny#!Qdeepk+{wG8SF3Fen_w#LP!1(0C##2lx^Ep}>Hsd~!sw`5;B;T-
z%<BEt{wW6!581_~B_;xUfLqglaiAzxxjtf5ZcEn&xB>EN2C%nQx-Hed6i?0AL%u&q
zF+>*J8ND4Ph_X}9L}|=SpJ>I!3ghGB1G!>CLWy~Kk~Hp@S{5O_n!#7L@$;X+39p30
zdOb*@*EZA<d+18yoJ-jVWuu#o{|fLh&sOc6VLLs0bSYvCM#?+~POKmJk<k%B!kqI*
zFY#~N77Iy{3#<f<Oig1kDxFKo`uaaW>*wT%`Hj-a?MG)AsUk9H#{D0$ww7M>I~#+M
zOQ)&bGXLXBX~QQDq<5kwKT24h5c_h>bDt1{)JB|Xg|;jXd0h9RqK=LzkcMVg?*2;<
z#Xgx354W`yz&gv;l)|M)9Yfh661*hq`uaME3B%P{x`D~q`1nawo|%!Fi_X<fCoP`=
zk07b`0UdT`vaZjo!nVd=8t6PZH}|r{!8pC5-iIFhB$btUu!!s629)si8%`Z1l?d){
z;l3p+E87Gbg=gzlDV<Y+f%{NSjs1C-%^TRU;0&v*s-z)#B(7OmS?YeHEC>cXf`aTA
zdeznHb*LE@6c-1oucayVIh_JCnw*x#(v%WM%Ifd64AjgO_#6ZmWYI`n6{_7mcrdtL
zQVX4mIDvy*h^TAY=W2WRWPJk_skiP_bn3;&x7|R21w;IY)F-i!iMrxWUn}wkiDPNC
zZ8)#NC9E#)zc=J0AQRcqQJCluKhb4hwy`HtGZ<{U+uaHr6Vcq<99l!_a;o-a!cLX_
z#P!-*A$a>O`X{_}Rn5k|ClnUSQ$`x-)SOuc6EdDX5R(z#*2?g;V(?2smvzLNB_zx9
z5!WTjHU5O|@txcp{QUg=t}!$MoGBABN(rE9rzOFy7%mnYu2Hz2jCCsS`gOg)GhJO>
zlX~i;@v8BF0nkee2veanb+d`d$sY);@b4y43U&b&6L-CO<((}VkFP1q8k!JarywQ8
zjE>gK?J5kiHZ+XmH!&cMUz?xzRW8WYYRgvIKrIUb&sfmlJwpZ-ozRcXLp0%r3^Y?S
zsIV&OAme#N9}0uvaZXQ8j)sX|(^Mo({U?pyk>uYSY2aTNjpDl5SyEC=!kBk-Y-|B;
z47;mM7?+|ce*1{APBWTr3*R@k=%3Fb5}9z>_omxIC^4qXx0d{e8#>{8Ycp4F`u>CH
z;M)Rkq`zM!xoF8b&-?u{o^?6KlYeiYw=w@e{_ZRHvjqK3wHz8yAQ6PIff=bp-zDa6
DNPG}s

literal 52685
zcmeFZ2{e{__%5t@rbwaCU>;LMgeD<Tgv@qi&X7!*cLOCu8B2-G^OPa8B0?qeOp<vX
zUSxW|>uI;ou-13hIp4R=|E%?W>)&ecl-K({&+qyD?)$p0>$>m9R~4jpZD-g{K|!%g
zR_1~d1;r)@3W^PSTQ}ohI)dL!;g8LFa?%&@Cw~1pU*Lv6wpq!j-=Uyj^d$aU=hr`N
zKtXYcLiWO0WrtT|UG~m<o7TwF_I6clhusgoxwDCukE?#~j)=Xz>%Hz-^Ly=zd9-Pc
zTa_pNdd3beE~Sl9iiJb8dy*p#UD&fxfI~Y}W>3Pl!v=4iT-|==-mwoz;k>n3r?yg`
z*{|*Mixc6e#NM{8j=i`;?JaQe_ch^v9k<KH{{8w))zj~r{`}?Tk@q|Pe0fsp-u^#d
z-tyYW|L4orz1wvDe3{NkUHIqAzpk-3to!Hd(pZ_P_5Xb7F8}QR(HnQ`mp|Hb^rv+m
ze$SCwbSuSPSqFrK7%|4x^!p32bszro5x1{#cCU-L<#3uQuggMKbRgh$ao@&&KGN5I
z?!WuU^1r@CoNb=kJv=--O}XWt*HoUOF06cXyRV{(?x?<ZzU}C~Nh@FVO`A4Z7j)rw
z<;qpMe_j~B_`h%~xqBVwhHl8e%QkJ|l6|P3_4T#5=KU>Hs!<nx0{#6XuU!#WDf8IX
z5GrJLulenbvdumWLYK@ta#Vu2R04y8V{7<JwC)Uk4Qd(n;R@b!^rBjZ^D3!D(fqAJ
z&Ay_k4?9L0;`~Nh($b=%Sz=;hh6`uEHl*Ju6LgxtHQrMqnP0)Np}=mup61HwH+R0C
zl1@lSxFjccEnLDy@WzLYjG{L2<s`=<9bVmHEnJUMr7xrHhi&W}LP9D=ukXfg-o+4|
zcW01GSXlVyJd<CgX@`CH-O44W!LMN{CCic;*`_KM8UHK=#Txa_6H-B~Qv0=|H|^Lb
z<A414aho5H*%P%3?3VicB+pr#u>L6{PHMb%Nk-;r$9VI%H|I&snwAfF+`8`$nyjt-
zN>qxu)T%b|u8*>4rkdM7`tIz&!!ToWTvGnhNK&@L^pAAgrFUHxDv8RRiJ7c7yz5TX
zo{rkW?0oDdy=U1Q^|yuzP74#4WMwnfCP<D!PoM6#Ip9|r_2PulNVn5ulP{y#hl;16
zp@|FKPFISY7AQ5Y@Km~0&>I<(Mw<Gm|7_~-eoTc1H@ge(nl>k^xBg6J5ug2hBJ{X{
z*J&m{zM{GM^eSyxjeMH~N79Ij;cY&xcUN~EIO#2#=Onn3{y57m>+4*Xf6fm#NT(Ie
zYc!Hv=jx>M2SUw`uqm^0iiv5uEX~!uv@E8#UCoG>`Ll4}ThHFh_3pe=D=upN^O2~{
zP=rBE@bIT+M`s+1s=s_uadgaQIC;xBsAxQ=L(pdEstc*<`Xzb!rYw_&Ec;2FyQi7(
z+q|b(yG7TnNX4}-QVQ2+lAzz2Y49Z9W|(>^cX^`V%4l=SH3bFVLY*|+2qm*bvd;lw
z)1|rLk@jq}goOiNlhxk}+KwoX-o*=pUca`;*2SxX`Lq*pUDuUvh*gewpZNN1Znz=a
zc2u>0V4!-Glo%0lW_e+<B}CUXp*clU)4+2leWc6s{H9xzHlhaJ&jc>EXxoR87O)%C
z+!oySju&YL|Ch}oGZp-%x6IRQ`o~An!B=;PgYe+NMpjnVg!7)1OT%&D$<`LRn%CkK
zREiu)SuV?VyXcOc5i)BIEbDz*)_WBPM##K9%l&o1wb;v?Dz_@=NaGzXjyh2ncj2F9
zYbBPGah_s-{=CV`!t$xtirCQdp@MbUEjmfRW(Pw$rgq}(g}ZD5NQGCzB{Yhi^RV)N
zW$Rj7XMPo5(Bf6kWI2?_;Da|Y?fvj@39-g@Ji8@PG3w%_OP7?+oxAr+A<nch{>?;J
zf!RkdTGcL{wCjD9epKplWUJi@aVJv$y;By48kw$qThfmw{2m9Xa#T|^@~0~fY*?G`
z^<+-G=)-WfhMk4Qcy6e!dDc&2DPDQn;O5Pt!Em>n*KV_4ghl%UuU%3xGU3%JY#n(M
z`s!6Ob}#?U`o><XAs^xHtB5I)spQBfd`fW&Vdsk3)@)1GmPVUrXJispqt*U7nO0+m
z-fLc*$Qyk9NL+i>Q!HMmC?8LKe~xoQtb9s8o>)ReL`3;?(dv9hv$Y?S_<E1^k3trD
z+<G*M@o6e~*8S=I0sj7Tt@?gJay&SG8Pwec_LHhQIy!k{mH!5S2tDp_r%Au_#R7U|
z3EBlY+0MNW_g@_Q^1|Prda85WF2v#817a)G2=_SOc|5{lwnkH=ZP#X?Xx<Pd?e}~E
zaXjwfj{PHuca1asHQBDKj*O=ru2wvE$4=<b=q_<98EHz|KU+Mu_s>}!^V?`i|JZPd
z!n4nfF}9(;zWT%~3cS9T9*@ngah}mj;3Bs3+t<ri&h1xNT_WkXS4PVQ*i<swb4W@`
z#xCmdTE_jCMf&TJ$8qWeVGEO*kc)NQZ&Z?0#Z8wfV~j6LIdOaX2L|pXN#JqCXj<gO
zoMVyUR^s_*bw%u+eix_QE6-+RVDORCpUlaCbEcr&A@%Z5*Sp(MubpRPNADtrk=l&H
zhq0(F*!BI>4nIkb2HqJ=yc$`L)+qF@KGXXrbCqU1Jj~#`VcWKCrd|2jLYJ}657;0^
zm5aw3ehD?fJ@`jUt}Px-ylrSd-cGBsibwc1I4y60K|WkUTrX`nOw9hGihVNIf4RJz
zZ}%5O>SE;fo8290Ot|g+(~a2Zyl!j11{KXuSaui2SK}f+X}Es>dkex871QZ>><B59
z+$(iA*nZIeS!&-aEDnA&8#eDu4<7vdA_@nwTp;w^>heNvaJb97Is$?R@1$J;X(-C?
zqRPUX^Pb5DAvLraEAMXiMJ5Uh2{ma*Ao^?R|H;oXQ%vkg9x=hZni{o8Pl=3TcI5&`
z5^&xVRZ~KvKinLSIC~#!bU#?A!nig4hN#u|Gs?Eh%%cY^3-{!V72chVR5&PX(b=l8
zhFI}~;m>8Bxwjzl?CH}8^4da4^K4gv{b+Q6!tdOdqM2JgZl^gqGc%KA-f_}pvDb5?
zs~~s#_U+ZIY#}u<k7?L7YK=ZWe=|ScVfJgLzxk#q0t7uh{YYotTed5&588HJ*SQ;$
zy|OY}JDOTBQIFT9Y|KO+13VCPnEK0hvRiz_vG&y9L9<_Y)J=&hN$cAuj4S>i9c&U`
zL6iCmy3W%NNu8slk!R9Obye))Jos!P@UgIPoI0hBpsZTrx+-Y&^_8{HaAH#GcDlqH
z!}T%0Lu6oJG+vpf#g}c-)y`09hnS(*<W$8P5-;^+U-RsKU1vr1FdKgaCY4DniiMA~
z^Jq$LBGTxdQRIgr|9}8i*%vQfm^LK_Y4L^Nb@)Gi<3ZRe|Ji>Ocrr$SD{sEM6i$+V
zd2*UkO6f-J5BnaM>r|2}R^^!|3_pMCvhQJ3DN=~L*5kTtenw9yaPYO00uo**H4V+t
zV0i_FW>02UwXsQrM697jZh@NL;EdNF02#k`lEP{(%z36tBSY_DbE<X{60|9iwGe|d
z-@a8z(GUuA97!;3i1k^U_H&B|_DNJuaK1u=9MAsR;T*!pTQ-GP@xUdf$lR9{6jYbz
z$D5+0skH68Y_aUYc*c>bxj3v#zXrpF+}50nehs|TD0IlM8*h(c5HgKNiXk5B(!yjK
z^7zNSmT5XgSxyTUMYCVUmgX9+kPw56dx~9dKmK#kmAM=By&v1}{sVQ~TLms``1AGu
z65Ksvnshx)_1w903C#Potj-ov{dr#zw*Pxz9rTyCz%=EbtwXU}%<=y%VEzw7;yMRs
z6(m<}up52o1depSp?FjmbX|uNyV;^E|D#wS^{+umGVxcPBFCT(iRwfj-;2q1Kh1hx
zi#u)B)@`?YdF;kLY(B&{)zD+>D9F0NIruw*(;@xKg=Om~zQ-eNol{p=x6acNV5fAc
zst~mu3Dmclx_<TQq1+B$ze<|PtL{;H<h9l2<!d~C2u77+b9xfXV<!Om!w}%6DOn9G
z=(yLO@a4yM&R^SSZj+^#eN?x=W~?=%HNQTm<Nf_DLe7g;c)9r6V&BK+Ww+)>{nJRk
z`;yG&$J&~gm|YhSCoWPlite2?3d6230b*h}?T}8~dQ5C=;-w%i(~g`Ji{f8~E-TZO
z)nC8*Ci1x%h1mwv)&Sq?ckB2QJDk|Ih;WUM*<Z&aku)V;zk+S>Hvx55u}pP2<{j&)
z&oTMMT}V4yCykA#@72^dZH#CideS`9gOV{3ui)b4mFMK-Tw3lSr;etT=!84ZJnpox
zZ?pw`cbRW9B5<a1oB|`RYXm{6rQwPsW7D#mdZo?Kx5Hn;C3XEy&pi5lqHdIV03|Di
ziP|>e)D+FPo3$6%TQ*i+-#0(eWmaUkwmk9e&3!zKSoxQ#w_aMcm?$avE1c@zOB!vt
zf&g$83GS0i<x-bke{~R0yBA)nbnO}mpZJh>a#_Ii^K*fI2B$h{R4_Ip32}))SPZAE
zql;H&<WO;N{Fs(ybrNS8zPE$#YLaTo-0DJ)*+gfa;y9vs#|e&SpFdwdS|xKlx5w3~
zu|vqDzFg+GkZB`F<<R%qmVt~y1@|z(vvNl_ul`<=V;`fV`-Ux)Y8hWbg}A$W%Wo}A
zbg8cNxRG7*#-ftjhm6ZjrPs#A+}2j~M&&vzkbz5{-9%lp*QSVU<fFy}Aj7BH0{E-v
zOZxu)zM@<6Dd)xXyy4iFkzTdKHlYY*tv8K~q-iS$zP#L!V=r=W0N7m7-0boVG3=2O
zBlAv^MGML1JGO7XG{>;lMT>wmm1f=o_c!nIO6&$?d5Q2Wm28Q9Isgp4RkLMzvc#=X
z&#S-Fb*75lubmtR%vRGrsq40Cu)2yuK*;}dAm_D9wmd=H*H4DKt=;|RQaRJ52OL__
zYo%tJs{WSk*00V^t)vOt(dHntu?#JmmnY4)AF!9zp$bncS!<U$zKcQd7?U6Sm@5T^
z$i8p)_fz-^05<4<?#Qy}(g3>X-z{Hd-ubRhLt=HVp^r|ssxjf3bOjx~eq*Y3fpwd-
zdUjpiqbA=Y*_I~lyeCdvtCb`dvJ9^+Px5O=+|EIf+LWfN8^C_WH?gp?uWqO=>i)b2
zrD1g-r$0+b4QoO=`$$~4D??MxuV24J7dr2dKJM4OpwewY33P!v%)_OpwyH|;$v)mJ
zpqg}B(qxbBTf;A+Tmm0|yzykJ$NSYpr#gtC9^xwoO4BVaEVl(wAq{jB+%l?y3Yqx9
zN0a25VBP>0qzo10D&9KRnj>~@cLqM!CB(f>jC<{vsO6zJgg{?kU!SF4>8n4#w1uLS
z8T5om1&`LdZyG?cX+iGW7u52s4OZ4uz9-u?l&p?h-u90E5$RJM;<k*kCin8FYk$yn
zU=dqD=#fb`vQzm?ZkL^=a!aPbKs@CJ65>T7KEC?%=d87pdgWVJar*F=z?M<e>?$au
zaxA(Mk>n}@ck**^e0#!Q%pvQD!mz2x$zHZT;EDu&(>x8^<!=BIEV7RuKXx3B3CSX=
ztii#WQBrl^GzT}gT*>PEONphSqj<0~RaI5Z^QbXyY5E-y{>oK=i2Jl(;@8iBct3T2
z+^Zlif`|z1`L;>OsQ;kNprD|bE0U{%-(MB}@Zu(*RWpIsOaV>(qmc!NJ1k37baY;$
zLbRLcOgMbrL(Kry9kcaTpG<FA|9pTn;ckcXB`Y&e5D%m8-CKXRNC&u&$iexjIZ`rz
z$Cstiv>^t5UoV|FWdF9dwk7;SQ@rBQq)wIV+A5Jtaq=%?yNjIU{22s|BeKm}Ha8xq
z#(ChECBo`K-|xEQYOeXeNIwS$%_h5xmQW<w^tdck4cln+Gdm8waldi2+N-QL-IeYg
zsulVt`zfr(xMwBaS8nq#PN(uPE}f1Ayt(L~08mqSo--&Ztr({PaMjzMgLa>}a<TJx
zN3qND@syTvy8|IL1}rbABo+_d%=33`-Wq$_!+6TEC>A?K^+kh%*cU`}X2qsefPv?^
z-HzOPr+Unr{XYZveF6SV9@NaW@OkF~)+BibQOt`gN39S%h3e{oleai#m&#6AeRod)
zn9U~tm0MtBWTcrp!_LnBQru~NW6Ef-rbWic3qcd5yo$X~IxGr!M-H=8pEL0^-fADl
zBx>_1IyP3rz>U1R@O*^+grRqKu}MShK<VEb6d405`veddC>_U{Q(B)?S63fL;-jL=
zyfHiQ<zsb_;Uka84u0L@(|TGI6s`2)4%`uVwMQ7o$3YMek3|x^+_W=J-|MOv)D1~v
z|AakfgDO1%Tvzi=#=Z)lCnoEIcr|m38{-v4Cktl-!Iuz-N!pKzLDJQ^G2qzGpFf8H
zt6EIr!ic3#u<R)&XrOPI;jT*w$k5S^jmlwQi5wTY?91klO)pe)r(Njs=w*xI7{4uj
z$9M1Ey~MjUZ`@zZboo8;ZuhAqzBOIfO{wrXz|F}iizL&6aFKjn*QLp^=m`M9QzEB#
z*|un#A~lxY<OX@x{Ndq_qw~+V+UY!;!Nz?kF8!qWdT`4X^>RDGgQyw-8~mdIHG=bt
zi7EilM6vd@xJrqu3qdg`go%#S$2@uM@M9aQ?FU7!-U0;rWO5ujY&+Jf$o|Ue9`adJ
zto#8$T^E8*`84j5t86!1|1ptUTwI%A?=&<*6;4lIz}52q%+^spd-iW4z3pNYRYv5?
zS5i`HOuun{*FlkEiJFhini5&D*+>UJ*VHuNa#NVZ9o1;MR%UAWKUPaFkG;JynzGe=
zFQ=-$_esm{WFXvY!kt$4HF9nxVDSm=B1I#+egoC%2*7gBE@|1oSaTMFPa@DbsEM>C
z(kM48s}w=mF}W`GK5EIDE14fhk^hZUS6m_Gf{j#NTN}cHe8C%Q&h5`C7i<j3?Z4e}
zRVU}x3!KH>O*zC*TfFP_c+~G~?u77>1e}19F`%hz{)=$W&H{7XBX9_tECG2mvW)kr
z+_F<Fa<mm+8j5PZ)045Jnf}+`wmzp3h=9UXzvaJnn#hZ&>ECmWXNCPhN0!O8gb}Y?
z?3rQm+9Wx7aP55Q1AXthc*Q6i>=ik#!hNc#S_w#)(%GxHblabw_MAFMnT={~zEowV
z^?U-528cZIB<bR4YkH5Pyu4rXC)njfl?O;0D6YOK=g+-m+23~G{x==-p6!xA#q*UF
z=W8f0-F1ua2a(dagDa688FEsA4!SOf3UdCON13)m!&B0)Qh%aop*#IH3mcoqc-KvD
z0l>#N6BM4`#v2+MQcf~UI6It~+(MQP;nThh-lKJuPXDtUf6-ps10JCiu{^$F^{0N=
z6{Ku4Kv`Aw>C;yAma(?CDX$rOnLMeODO>sY`S}y=L~x=$qd1Nf4Ib~v_2e<~7C^Ar
z>g0Q|;bcYN*b?WHR$mXWf9kgj5m8xFEBmIOgYmsUV&GRxKV-~^7av1L@_o13nRn-j
z`6!u5%<wZ^KtO;#!BJ=Wg7)GWn|59v&y7V+xY0)^Xngh4W3?5h<6lFCYLazJx*Gv>
z)EJAIRMz?lqUh;ul?Nxi*qTxOUbN-&J|N6DHoE&seU^_v#R`CFhGUh7V<G6O!wZu=
z#qZns+FL~EbS<k;T0P{wUgtEWbLWdt^Aak<bmi$yZ|x_$BS_0^adPtVLLkcz=Po#$
zZk{I)-|V9IV@oO>eeYjmZ)=lR)6_B|TbDqDNUypjUr*CfZA(s0wtm97Pc!FM#>n=j
zw+@}}ZnFsp)ZuZ2Vy_08y5YgL(CLFI4tv^iIo+{P$MOvSz}GObmz|xR&wWi$3t#jf
zZb|D=^bu!Rqfrq(=&M($+Rjv1K{tzn?tpAXzqLRc1I72}7pZh!I)a(XGOB(3Zrp8U
zahgHY#`qJ7D2!2ZqC}+4{0tzNvd!?^?Sd{a>){fM-|t6^0^k80iLD|joNcimZT{kQ
zW8m`()k)9DeLQLr;3WiZ@%Tqh3?EQXKWHz)<R=Xpr3pp(Vbra7rV04(Y)vu1HbL0?
z9y~=o>l&GDGpu9_=zGq`W#8mz-05F_^cwZAMg0YDwH`C;tdUUwU#{o&QrPnK8W@dH
zAPqcwL|)Y~%eA7j;I@(w$_VcK@aVgd#H63o4);=DirkJQ;xOW#r;k1kFo7rTrOr;C
znnxxZ`h23c5gBlOHP&|I0gVEOszmFwENz@m<YS?uM~~`x`xE@wgCfmC8ZqWC!FLig
zL?$-E@tdD^^I{tgiIV5dL6B#V>asLB$iHgcSY$)AtYt5EsIVaC0}Q{8{*b}P53>At
zPo+2giDUzE&WsQJ%doJNxw*Ng9b!1tK%xF~2(APp#y?BfXI|yc+H9RZJB8>Nq%0C_
zh1#dA*>?Kle$AQ~lO!1c!|~jnoZ$1M=mp23e`FZik+&C*;Yg$hA0?HN98Tv?<c|uv
zt~kgl5$c9z_i2Rsk6E?bXxL=@H}9m|t)KO`-eYkM+mS{^fF4%bV&DEcxdJ>T|LyEr
zo%yzAFIuQ5&PbiT*WzI}*_{Gm;i|t)n?Z<FQ5VAA2Zg=VH6b$yk{7{zfOW1z_1F)c
z0kma*O^9ahIh2t^ydRpET$#Gx?KsLi`U^ld+o+Zx=<!YS*7UOw05Y0&!BaGw53U)0
zeP!aZO>#V|VQ#iovS!?lTT)UNAsy;Sj>nVMw?=-ZEvYG!#mfrVO?i2FOW=@|L668j
z)MZ(fEZp1|esJ2c=wtgarE@vSzG8dRT9RB>mrTCCI%O?#@Hcd7RyW$jTL7VG7qdjC
zqw7c7>l{aqo<DW!6to2{U{P#@ImGsOH}cxq(RX8+HG*c%Jm8AD+P@07RoBPJ+2W*J
z;yO5TNbAS2G1o9jfBzayveb#&*N%zVPh=JEK55!0g9;@Nm5{!?d!Jnaal0<y7W04l
z%X!I5WCNzVcknrpMq*;*LNsXjuoMKV`(!^qL3G{gt{)GNcb$5_C0p;~b{|GDRg`1F
zm3@jxHH3bI`bf?{Gc)s^tH8=c!K6(MZ>|j2tEYx2!`q8p3T%0BYBi8`g#P}F@STKM
zkUo8S=F`y`htrNg>&Xt@0?2#ULA+$lyk{Fslri7?<$@mW-w`58(6eW6kjXX1L&C$;
zfO&>M>t$BsKnWQ$)^VA45NNJBr5K2uLD=Gz-B{}z0`#6{8t*RBB+5t?*HZU&X9Lcy
zjZ^aosMc?5C2%oHQ5mIA%spd&5xj&ol8>H(sFa>}9b`UMSq2fS2tb2mTWArAsCZa7
zfBd}cC%NWOYIjuHw-NYUIaTr&6EA=>gP2`1%P?+Q6-D-wAoUX0B9;VbT!-0PW~RyE
ziuKHAqaJfoL*POx8Aa8U>EVQU{}gq4Aoa(+PqMNEM^9)2rH~e|^3`-vXYX$gdN(mP
zcB=@uqj{E1KJ)=kfmsV5X`-uRX-|K}0n0{dW|wGC8aOmyE7ZacIX`anf5bYk_RDQz
z6~}LVbI`}pUdgks$jc`wC@Nn?wP`P^QP&=3aL(;U?C)|0%(zh#+|N58<>|ClNL|*|
zwb-OBGe#wK=)%qlx(0%TUS$t=rp{tYYcccKNv{{=1X0B+$fP|h!S<zL-QkVi0&GW*
zmW66XBYznJ?R~69!m4Pm1frxD+!tQS?AFP3z?;mQ{@%lwBdL$l&KDZ*9n@zRU3R3p
zwPom6dhlv0L8;6#Yxyd39EW?C#(*(Z-R`u}LE{9)C=XiChT$v=&0Pyt1zqcGouM?T
zGQMH^xs8>by|OXsdTqNawlb@z@827?XxJiKHh?QSYJ7^^a!g!Y{4Z@))nK8vTGkLP
zy_wnB^AnaWsoFQv!a&D#Yv@9Yc|^12S9PvgOKNMrSL4NJdOlJpVtiN{a9z|bitRaV
zd3WNn%>m5rL(Hc?_Sc!#(T<j4C|29@U1U4Pp`>NZA22cALat@-kIa9aRyb1~VY~i7
z<fVVT070bPyHIRoHh0~wWUOO!-U-NL(!@M=k_@(_L!$%-Io-AkS#sU@kP~q~JL!&<
zLJ}4`oE9$gL+HYNR1ZiD!v2>*Pu%Oy(Y<>0uaC{pUmn@==@xf#>H2T`68V_(d6_4b
z=3v_7iI?O)<U1-Svm)}8dfn>|1I~K;d!Qa>5xZaDY^(PJpx#6_{^YpAeBNUxr|L-!
z&;lowdacx@x#!h91E$HJr-5@Tv&;pN^z@p@Q)N^kcULJWl=sek&wgQ9vf3Ov*N-6N
z{VQZ8^SIUb(x(AI$W5jo6Pjn!ikG<lT77m@I$2YXzi{fq(;^NUYU;UqIev9<1+c($
z=@KVSG=%=_1vPQq)YLRX6rkCJv^a#c4R~IzXFyPOwnN{}`p<n8o80L0k-c5E=N>1v
zP6bGK6sIlV6<BFsv*V%cP?zB6ujT4MDj=3nfKe{%Af=~8$*P?!`DHT4Yp!b2H628w
z<kx@uC%^9PWkTu8-AqXcV!>p*)pI=uM81?8ibU|ou`0Mw`NORkOvACCDIeF09(m0l
zA~symix&y|cr}c%(Jo!Syfd!^;H`St=91F4st-gBVRjeUb&r$(uj(xYG4GCKD@Lp7
zD;C(9%X+oS9eY)u^W~`DX+2(k^~?)y%N;%Ef(c<bx&N=SmBsc2X7Zx+w{f|4i#741
zN4t*eDo2mDjoT$fL>!70mE*$QX`~{hzi1(&DwE+Fd*1?zPj8gJWX0O7ZGp@aNQemB
zs>xf2==o^p{Rt##3$sBIV#i2phJFUq16s(sgj)gCSq#+Gn7FttMLDaUL0+-!DK-6>
z!Ce;idF6Y(CRa#)ZNoOEKgu6FLRk7xoVL<KUJY-mInikp9`$DEW+9R&c#IJcjZH5#
z{0Uq?>gy*{ytZU!U}zZ3@wzI2T~4X>MpN~PdE>?Km(SQZ_#T5h9bLKcXfs7=hWExa
zA9w+@p@yT1Ips}yazouq&^LsfP9bIK*-o6Zu>xDsKvbjLd-73qxKpjI^_c_@<eV6G
z%N?2Q$mJh<?o%uvEO&ffO`XwR5lj_9LD(M94PcYEdB17@1;!e9O)innuA*qDf3S_F
zG42X;m~}NLxYKQm_pDHm%5q({l4hWKds-!WG_Ej^MWFY<%dfhgl#I!@X#m<%fe=QC
zs{8pEF9%1uh0i34PNKqk-uG;KEv>G98j5F8_zTVlliZl6O60qtQ0Z$!jL`U9f+A5!
zgL%cT<k>8kBbs;fNTuZ>f^&1WBwgnxs_Ywm3;eo*ZC9VQb0{TC_36B`dV{>jq;2(n
z6Kozk-hI{P3+Z;~+a;?6p-|4|G9VpJFSiGQy)S<N?b)Eg7kYZevgfZBnXK`B-ekXH
zYh{$JK5jFqf|9PAiPB;hNx=H&rwDQsl(|Iiv_d7EZE3a-tw{vUP3%_#0|OIqlaAQ?
zO-SGF%%1!Cb&?70_z^S9c_0*q<2N6%U49;c{gR@Urv#CUQlq(~E0W&-gJi;ii7grR
z<$HG^kzuLSK?yYjcgSh?)cqjem#ZVQBmXXazfX0qIBl^2tgH<HCJ>1dp-u_t8ey^P
zGYx83WW^olL`*X(tI3@_X$u#6tZqH4_yM->tISmUC#aCf2Yj%{Z1QHNqk>AN)JmfC
zEE^G0wfQVfW>FM;OhJAvwpKE>e8uYL=qXhtm^!k8shA}WX1=oY?pCYNoI}XqOT_b9
z*SEAb-(g9>ix17KK;#-VF)t|kLG52f2(g9YHUdho4$5ZW%a;dccAQHVzgMkfk`@kn
zW51m7FUd;{zF_;dYT9Q7EdL@uKW^5XoUU)N%(NCj_e&&90fdC{%+IPs&D_*jg|I}>
zv5BZjOk306=r~V*jL;Q?>S@e6&FnOm;V<N|-l=tQA#<l8FhX-C**5QX-^EeqS;r#6
zN@9KIPKq>AFfvujY@?g=ICz>(WBQ;>n`guqI%x!4$um;y1Sn#8=+`s|kB%xh^d@9!
zANms)!McTk>bjmh7=J~UeSzD&WAVyHd)(edp2=|I6jW`cC<J!d<z5mTS8cW^7|)4M
zMPa{CayED2%DhxZO$#}nBlIRoG9>cFPX2vhWix`I5w<_=zvxYOI3az@JSzRD!~)<A
zf@C0e?H3rMK-{#0I4M1K2UW}FSIo3hfP$bm;-C#DTK891qqbfyiNk47P3ycGP`5P8
zeEn2=tx874-pi(@iMDG?74zLW<}Y<zNGizbqu|U$$t$x24t+k7!U1-)@vYGn`4`8f
zAR0E5tdY_lb+F)da7Q$_EOfCaOo_*Vyby(=+qkTqW&AAqL+#l6irf5Yt@{0vTOL_{
zhL>-*7<J*vY4~l_nP<B3Q|=u@KMsd7g&Wu|tHyWC93eG7mdeUNeVyiig#BI3xvbn%
zpyagt1??xaP!`GgM{i+rI5f8ZFgb^NcvO%uvUI%R&dhx0dSsXVZgc7!7F+3>1p@`8
za-G;`@3i=K(I3A6Bw3G?Ldcl}$%KQ}481c3i---RzOG}Do%(*45+g79rXm2shhWk!
zr+Snv?r+#G1z2&l&wegRy&AC3gG+Z#&Q{7aN+#n{JtDd-N`i75Co5T+LWBlg*Iyqs
zeA#5DuopCHP$+Fv8|>kG?{W80qebr`mC^2+@lVBvFI=j28w!Gh>SDGJdDInlv5m>I
zlk19L&^lgpzN{rclWS$&$woijHTxuQX363U%W!;MMf?#$ab{KmS>i`Jm9(aXMJhom
z!}KD91#dzQqHeknT3j^*(tZE*odEKMw^C`3Grc)q5&AfaRYJ;#vu(Y<+p`JR#I5&M
zchBMx45M^vfmuKq@ay>q!CR#;$K;xK#NutF!+w%h7v12asbrlu{t_nEq9FkTT8#m7
z@j|A*%{K~)Qa;3o@~4N-gAm8g57E>A^s#KRgv?}D)H0e~QOWE0GMUWt?tMi*Pc`{T
z7CA+8t&F8yRKZwL%x)|__`Xj+H?6D4oXZ&=*_k(}!JZQ?G@Olmu+u5!-QY0~&g{q~
z?-wTDZi+;;n37?Om`eEGOi;apz4fo`dxlRcKIjZZK%hmpnX8?24b)-Thxt!WPPR=J
zq`bqiHCSRrFc5`VD~XW4iK^v%<Qz^XszTLM<ikhKX-n71T)7gWEW#J=M$Jjrv%icG
zT35REKWP{atn7Q7I2bjln6=RM<Kq)nTAi}uj?-n+L6+bEGai`!-VOlVDj+*^;l1cC
ze@v5YH?EPikV>|lkUJvB${hJ7%ls{vII~mrt>G1PMT<Y4_;2^T&#@Hcm*#RsY&<I>
zH__89S7ycO;*!VTA`B~&%F|b3J^RR^i_{M#5Na8YyziUd=zUF_p(Dq9hfK5Q^19C@
zp40fG4c&g1exUlu3U(PhBlQ&E2-}u01SG<zq?)F~czY`~vo3Wfetc)`UT?A)oyE#X
zJ!o^VP{Ur_sZW(1x)@UgV&xLEB+EA<o7Nit{PfI!dzzoI<IKR|pk{c<N@Wsd+-W_(
zo8W+($yA<YihSF;U%fgwD!rIVC%Tcs-OFoZ+AgAeS^61pg+&&i)b3Rj=Nzgp5A71z
zHqG*kk2jX&23QuBUqx6Ig1Hh!c=Rfb_S&{&6zF``-)=Z#>-ldF*#3rk!&+{Mbi<Rh
z_)O7>$ZmKfM#~DydcT1X?6(mmLG94YP4jrt-yfpun<qR6H3ZrWt8A!*OFqECW=Nef
zfRxY5dbbYIjvXNL>Qs*`wdI&=wnj&|@kcpKG1JV2lUIyhD7gPfL-br)C?T7RFECG(
zmE_(Q>=XC+A*Z|mVRG#DO+!Ns@jV1=cDG%Vv<S@Mb(Zy$<I7`-{kItARP9+VY#44t
zvL>vBVRr2%qSNIxDhW!gW+gglEezb5NIt9+{VMG_(^twbj?jzU8Mw@Sm;P4kF5P91
zrL!Db1yVo4jd`o6Zn5^e4H7b9RQ~99!1=7;`@2*Gpst(!@;G2|)y~e2Gs=5~EC7~5
zb0p)=YJg`<o<vPO$b$q3t7e3gLr#t`!5(4LUHwH)pM~_}!DGKTbz{`6pEK?i^}Hyb
z`Q?n6@Ncz}32vwF0!Wj-ou`uJ8oOBsx;ee<(c;7ee386OyOsK@=%R=MuGSLd<#V=y
zC&A?M;AaysAQN~%)e4ks4x0xm7v<9ZWe%aI?^=I)po%<0l%(SPOPk<$t5&5dg;CH9
zz~=D69qbHE=7A?)DV*VG)p%SD7KqKbHVj}zL!Xr}d7iD@)s<xuKwBo%qD3P}ncI<4
zFp*#5*bTDxseq@FYNfVv-F(WmINzY>^w3dC&6g!)Wn~F+G5Q1lIvREb?<JAw(hHZZ
zt*t*<cjQ{OJQvW{ODy0C>L<}8>^ILUx>fVUEp5t}=9$!ZYsPu}z|M~IDC#+{#j4d_
zfevBTCOnbDQbb-`X7xG@oS$!al(lvxKwpZTewK7{&f)aZz)Q;`6ZQzhOQ@BetcnW@
zw~WvOC=Wg&Erw8?{H6Lk3@ot;B_e)hbj-Rq2ORq4zYX?FuNe+6<o{Q<E9jeNAbp(+
zUdCIbEG!W+`e@r2sNwF>quH7)FgD~)oS7yIWEI9lN2`(fL7MEbV%+kUI6^aDA@)S*
z@6rV}ZGIrPh4SFHhx>KtNK;e<hc~jo2|fxLiIsN#xnJypi=AB#X>A$D@nZJm)s<XA
zC6QCPuHIUB_pO51xFA8pntqG;8@cb=t->K0zWkvhX20HVVctn+)Dq5rm!oPVPgh6a
zqaHM^X1^(-QVZD_q3z8iu0hb%(H~eW5rEIL-F2CK1J1^Kc`)EF)TfcCbkx&Q_Bv1o
zvyuzMG;%Gp`IadtBF-KAAK4PNsvG_m97441UZ_Y23+Jk}5e&Wo2oc7dRD$OBF-O6q
z+6H-F=$5v>cTN9sf+Hnd22dzKDG{sFfb*Sn8EnG+2?$K$5via8+760XmD1^Zw~PuQ
zW}ax#y5o~A0aE-ROxtSWsEiX;aBfc;0(MqFD8M_-Vo_d}mzTS*3L1Ya<v~I3P^1G=
z?hDj1d0@K~QcVayReaC5-Am-U(BGzAoVb0NyNtes8U#Uam&s$yC7bOTvlXsT8&p6_
zy{xLLnn8m4ta*lqxB}!ipQ_s0+#jc)%gJ83A`BiOQ^!c(yQ-$<ZBCN<+gNpgCR?b;
zEn{5;ErfUwi_^4jc`EH_YewMwL0%1AseIRJ$UzN}zCwX;gwn~zBFGrlN6QX?3Ofen
zpn^^xQC9xqMUOma)yb<i!}Y9xEkpa-QrL}fcCRhlEM(f@bj9-z3y;8Nyo5WUQwx<~
zbKZa@h~wsYqJ%v#iDE^Mg+8vqWW3A>E2t`tJmk$NcJezoBfqv>%W&dSAsU1~yXgw8
zH+}l%&6^i)ohQ$Xwxsdr6#uTgi3s8@a^l1ZAAyH0iwG*85ys_FB3{PgBwOP+J!!r8
zCNRew)jZ7<c^Js)B-p#=95^z5J6K93K+&l4P?GJ`v6)&)@7sA92;cFun+lNZ)B7(i
zsUHo5cFOsE(XwFt<Xe*lHas!n(>?<3eSyYw6C{Mn1Y|xc^+A{?uz|L}>xRsC0|a8I
zJNZ5;S3?-`!6u)I1@&~%KMzr0!^lk07TM#_vVE4`Igititxgio62iwp+%-W&q5KxW
zW1_p}z-MG=7>Zr{0%omESzicX-kwVye2OaQ0^=PPxFA&v!1R6^>nSNI|4lEcdgFV7
za=|<qI<ru;pA!=H_dA}G8vM1-FZv!dfn)MkbDFLtoaP6o)&fyRo-}X2spHW5(7pDy
zeueiojTRJTm-X}_WiMYQ-iPz{WmXl{7LzQJH-iw@cT#7rrEaMsbU6sIJ}d#RU+Wy!
zgPb$~Wriqr1~Mv{PT&UCwRFIBr2WH1dIpJKZ7^r@1blgwN2m)~f0EBuEW9}!DxGeQ
zVr<`4`??E>EVD31ZuU8<v#lGt+TJG_LuIh|Kn@iDxt3bIH1f!Hk*Oi>3YCU5&?!vJ
zcAv)KnoOa}>#deOj-AG@N|t30Q%=@Of8c&4dZQ(X1Ho<G@GD(|1b(y%_IP&V7Xtbf
z7Z~O0eva|xc2eJl%YfD@^}?ko(Xg-SEq-nv-uGHPFE79F7I66~={Iozc+WCoHz)4(
zdOyL$G!CAJ3msghbcTp?RlSTKJaU`GePL86<)Rt$+~x-8ebWDOu0_|qRAv#YzZxr#
zR$)`dsWF}~`kK|e?EkPA0ewE|o&Z#xBOjLt?~Qi`Oh^N8jB~ubQ<7zVP4Mpn6MIHn
z-j}%Cv9{K;$TfBbNLFPmX8v`LbJ)lSS-~Uu&f-+BfcAd0qGbF3{U%wbsC`NIKuwhK
zy<A9V&H0k#6_}qsfBKZ3b3okDrZito-~YF<id0;~{eF~OW}TI`s%cq7o0SSS@g+#E
zi?(A>H$=Due!04n+!o1x{7c55hY>k;XtWR;J&4FF`j%r#qV3xt7Tz7ps9fJowHi=}
z66f)fc;ab2en*Q7qJvCMV*;bnAv52_ERjakEQknwB;H|RtW`OF+Ziv3d*(D%$Sv`(
z+Po_~$Nvn^dMGADXM0{Th#=TbrCJ5rASE)IMW$YbUW*b=TN_OD*%o$IRuI+(huP^v
zCEbc`N58{3kg#9J;jnQY0ZNf<Zs-%9j$*)jrJin;eU*$p03RBC!$j@M>^yZg<2b~f
z5W~;U_t;Rsk*V-yJYaMAVmO!&!WFbG*YhH^#c{@-Xa$Mi=2)>Gi|=WtmpG}`^sihr
zmF|fe$~$fR?GWKQ*t5_SElZQ4{`MkaG02$!+oOm_ex$kgKx#Bc&#`StY1d$|J7;0(
zT?aOfRd%E<O8VPzK!Yr{zqbz}b2i`Gv_l!i;L~ZOgEO#!_^O4Zt-y4Aa7OiqS3US?
zNErnvf!!V^mw+lKj1Hx0F)?8`6SB<lr058H{*BxenE4^boTD`OVHN_=y@~N2TWE`j
z{|>%)rJ=1~-0tPeM6M?9nQ*xc)wcQA)@M5pid;oI)gE?#u|Dq;gs~RQ8;24d87V!1
zs3k`2?#Q;o%}<hOMiz3f8aiT97x_@=W&_b`l6YG~+V^0BYyex3!}1LEmr<sXch}%8
z1jT;w6~#1E2vrCxewQx4f55OmA9S}y=1tj*s@;A@ME8Uc(;Bne${WH~US_#CVD%2^
z<HyNpsrX5WHOKj}1T5ufoisCV?%fUZlRcL58qQFZ0&65FDB_R(c&VF{7FnVkGO#CM
z%OrB+`HDShOohey1jTMqL{hz$rX${GBl-pIZbmC^OTm*MVu)DRo@JtsU6i1emkF!(
zle@qAL!ydT`MJ4kPS3aM$AWK#`1}Ge|0Td~8{KTl4FP9y8pGPx=Iyzbmheo=gOd63
zvnt^Hyn-lTjy!Jg3)IKmDpyjB9jAgn-j;5--(ocM?TxCX*H!Vz<0nph0nV0(v>*?C
z=eB4V8>|pEP^2NYR@`dKWF4|Y5;d&wrjL~i;Um&7aREpjq0k{T&dY)EuJjU8qU!cP
z4IX-LPO+EuYG51$sKEH~-&!{b65Y4UuSDt~tCvA>Y$9}cp!AnG&Q0L6(_2&4-t%bZ
zH+DLXrVysaV+wH%uq^$44IpnQLEHZ%H5T5zbF}JrU)1VaZr}d#kJ^pMEni^xF>cQ>
zH{-gVdJ79jJbiiz=XbwAtCca;(i^?H!SdpzMLy>bf#ncpi1X!{(-u+2dL+jpL!7{Y
z4?Fk;`9f;oP%7(m=<^wX$1BrOOG>Qs49}(ZlM*}j^9kZSWG8?@!`cksAe@AKE9r%p
zy~Vd1{42lOg_R4+XBa&DM*jwbI{1+1T74}8_^HS5$T$Qqu=QR@xGX(Kz+&($y8$$8
z0iMG2wc`lqTX^ZI8C#&5e#Qg%;=XRfXH+J7c!WMcb-Wr`#{eY-5ruay(f6X&=<N^k
zNK%?!_at^N)10#;Am1;PHJ=G!l8T-Upoat3;GpTV5&`nhH0dsc$UBnsMQpN=CP&zo
zLpo`TrJx@${)3bTVQ09PRxjh!%Oh*T4(9U<g&*S_rN@jnC$M~UT--}&YxOn|;t2FN
zGToM}exd<s^u*nnn{VNwe{`GCPu#)fq92pFc|*k64e)E|G{Bm7w8|Oi=l0{Gp)za}
zB%4swh~=H|TN%Qd5W~=YbRQw<_<u&~+uLM>md`Ps_s_R>^<3ox%)<j@Az~)cqVVIO
z;!Vlbxd5TzPoNIDKR>X1269W8@GcT63W#66?%oJ*?}Mk5hz>1mzUUqNg~z&kDb8Gm
zczRPlCkI9}ci91o2o^v>gD&kmQ{Ue|rMbyOg-^oPi38RkbQ830*cYB(PZ6Q@+lXJP
zXa^Qb?R?~EcujBnZZ6Fz75-d>bLyhSZqJJSCDjfweFSz10Gy9v2Pr738HpxUcM&?+
zl5qzFT=5CtM!`w~5h3FbKlgx$G_@OXBv^cyCA;&@s43j_>Hql|7?wPQZX}Q&=u=#!
zCTLP`fqW3tKNv4*K@KrP3?K|rd~ixScy6F5RXlrdzdNruh>7DB$JY2LG!I~}dkYYD
zy2A78-1R?f+OKs;-x~;28eJge#MSwFU7Du+?$B=~QodsMr_bQh(f3ac{`9a?XzD=(
z`RCXF_8!~+xR!zc$rW>b6r(7p`ua7vW8BxCP5@^&5h0bO3cd*RpMKrbb{~y@;CNZk
zu670*{%zk+Ow`oW$}yK{WkI9WK_&cg@R^Hpf|3**&c`c;rh3b!DJxF`LH1kiUDJ6H
z6hu2{JQjs`Xe}D%9}QGeLq{|CXzVbob3t6RuFml9!(Qxj=feC`blL%=$=2gd;i|#=
zii3xRp+wdnm5KQ;`Ya%cX-YJKe19%|PxvCTIYRC<<xw_#baRM9ZijgRItpN09Uqu>
zFwW)p6>eEU*Uq~cvKL;F;~f5&9l<5+PL}4}N?H?YH|j#g8B1Zm%JY%OHy7LWiSs$~
zg*>st2b{UEv+mEzQT(6pxc-md4GGxm5y>dYfHPE)2^#>YvhEBjfCG~yJlvvoWAWfV
ztNN`!ie3J*5F95eFW<8V+<^JxY(|OE&6|X;1>Iv!us9{dJXm>H^xu~{;ib7m+hu>S
zW@DlXH!Od0(3D^iA=;AX5TH#_pA-EFv6o+<3H5=4=bvseiWs}k-tV0t^bPyV@hPIx
zMca8G+RMPY5sq0$*i&#ui7s4_GDo}L{At)Z^FqXsy0Di8PE%MY{iDam#zdt5?H4lW
zdnYrM-(`_BIMK5<pZni_<2n6(VbuF;E3;SN50QoGhYS}U(SPaS`KMv%U2xsNzg_?e
zgCp<h^nWm3P$!JugsP(NjWEeVd?*o+8j-=`+0+X9e8rTnUfpfewM)1&;_X+_q|5qz
zmc`SLSgU@!%gaw4ahkFe*1!De&iaqw*)K(Q=}8p?U5>dFl)PY<+rfx4bKi~|bu_1E
z)YRs9>{Uj6=BVmj<EqCgJ<nr9`{RTp*XG!v8zTr3?c^~mz3<)1n^fJA+ddN!8~v}Q
z$ZcAD*UQI4P>UVUvj#}gl%*4cQK@-9&jtR&hu=4+ITg0XbZtMG60}fS?BMxk#bL|U
z2PaZ|U-`VO5c7WC+UuP3$T-)3dUflg)^8T9fMO{()3m=O;M2Yji3~{GfHI~=bj3t}
zpbCOLsS$c&0^HLaaO{EwdfVlxPtni4&^KJIyJTKi7H{RBuM^w&a?;QKpKks`-uis+
zN73^!V(GU05<oWwogLRfPF+Q75*&4V?Fzt8i2TgQ<2M0DGhj5$LuZ;l_A8rgbxqAR
zaGbA>W^RdVNT5*=Ijht=UIR7j-zbI7WZ8$gy@rN{6{jLOeqPTieoK2Ee*2kQQ?A#6
z0Y<-WEGUw!L?PLf{5lY2&G+D693Wyp<{tp^J3n{TTZz!Ol3Z0)_m$ndz=@cJZlK>$
zjJwB>oVFr)AKNct<zT}$op2~7+OYi*9-?4=T_%C|@Tzw`9ffxxFeK!9^Wk7_GXMCR
zKF!h7<mph8+#y=V!FI~=iU`*C^!hh%O)dQ@scge?b9m((*w)<&qyN`D4qEXZ<J_Uv
z)f2C}eqcAIC-t$Vz2EZhiL4CmJM!MlJENkX$aH-Ncl|kjfj;_2-aCCSU5EZuZ4jGO
zbT2=T+nIrTbNu;CI_vJNAym2~&=j}5_x|~j>aPL<o6```fm4Nm%bpq#%|&1@)M-@y
zyu`hWk!D*rEKc&zkDVp#c0~3xZ_AWITEOE7M%z>(0L2h$u3W<%f2KOP>%SKWn1&0s
zcxiq-2_UXQ?B9<R;qrYf@b7$z?+zFKPtUdZkB_qdyC-q{=M__wlJzIQ_C+O5uKJbK
ze!iJW{bAppNM&Uvo_kk6SiI*Ftme&BKFj|uW<3`}L{NBZe3RyZqDS{4BbB7y967Wp
z+LSX$=*aFPk$Z)+_Hi8%W8slCJXIq3j-KYYx}h~&01Yvpg~_k%)vS0=?WsGTX1<>4
z`8{H#b?>_WI%?%Vza%2U|2LK-kh^_Tt53tQ@~vC9vTC+IZW!jty_LHZ^|99~P;;QL
z$@>OffAF|fw=<>ZN*!M$6F{nU`}bLHr!Q^2j!FF0u0BtEe1c3u6_YC@s$UDE1-2wS
zjY&vx-ssu$=g+MN_XLS87q-c_rPX3d9vxiYy&I<EJgs?ga{&Q?oRv+7+tH^9(QEJc
z@mrO{HtjzO!>sa@smG6uym|hdj+OYR8p;+;mq6t3aq3%~_^Ec*R?NCMmnD}T^X{F<
z$B!SS3cQ~#Iu{#<;3KRQ(k+$fS*4_;xHvPe?<KI&t5-a-Tzq`ZFmFX^JrjqWMF=^W
zzz51|YIOZxWABgcL__BVf5`1Bz$E=%rlp4DxY0|uZ)bS<9eiv@-$b~pI(IpgZzeVG
z2f_Qdq#BxK0>vE6IM5q}c5;84mBriZlNku>T;~m4H8l=20^^+zOGxNUPfz<tg8*xt
zF#47$DTiSLhpe|coWB_wJI++evn*G@IO-Ri=|^kbZ8|YlDS)+hxGEyjAZS3``?Ani
z;_h$H-#z+$S6I*FU}(~tw`sy(HNUj38i{!Pz#YdQSZVwN!~n%h|AmSF`6bo{zy5O_
z{&OAv|FQ}Cz3kShp0XQz4v~(=1q%NXu%zwWkRlP#(1xrEaT2YGyT_^jj5H}#+I8eR
zY@Xks`Y83T!lGje#Z?1xDM38L?{x+pyW461l!)#mh6|-;bRLAW4Q7tPd>Cqi{QZxh
zR|w;B(D`eI76;T64Nz`{FptAH<lkTuY`j~4ifFqaS`di0h6srE*y>|DKUP#E>Xx`V
zqML$M77Z4`wS!Nrv;WzW6o2__-ZP~d2Yt|=r9n`Ih{mRWzE#RFc%gK3VR=JMMn;BW
z^1mEYa>JpD?<rr24klS*WSFzFb9P4wtmOUYdNYXzBYas~zjP#JtlSz!;O*PDiNth}
zQaaB7F_X??k6KR6-C5Ct+t(!5ItOe-`!nAUUY`$rTSijV4P0f|zkfe_gJ6`Jk4vDq
zB|bQ4t<Zg@dW{ENbT8&|JhW1o-IV<vKjvH@eWe^z1>$kn7Fu-AjgGzmfi8pvrqibQ
zFZzDsY-ueAY_!p3O>~Oaj3k*MZF!--x1-PLLq;NU8PZ*^RqOvS-68oA>F)61!$i81
zUu*UC8e81LGf<56i9fJQ^gC&JwYsXR4)Tf+dZ4l`dnDRf*HO41+neTcJx(WV&-n2X
zM(Kb7)0MFgms*@8x}#~XNGf~Mwmm3&!<LrjWk-uQa%W|@RcaO*8+#=@6^dE{9#lRG
zbJNawNFu3o&uTz~US+@XIxF$BsG^<PX7uv>`0<0|`b{cI&!bi$&uRy+DJm)ka%XNS
zJGS0F``4;#n1qXHHLXforr3O~Ep*&{x|3kT*88pNc+<UfgpZGJ>iG&xlOwCUcNI6p
z-P|{8yLfBuM<iF86Pfd?=2c2h-eMhi1wM`2$@zOdd1Ah>nmATVJp4zmHq%dq#wMVT
zRRfaN-^3;(IB3Dmt;F6Q&j0Y?oaRPVgOBCqfjb<=Ro${g!oFIs;~z{h9HW~Or8|Fu
zBdvwoZ<j<#=Ghp=)ZC@WF_HK<-1ow|wBG4Qb*H(H%fGE2?dIU@EmZkHsms5!Z0p8C
zaBDfsM~iCuj}YVe;y3t?2xo-UTiHX;zjWnF3z}cATAcg0UNh!kP@Yjg**V^v@)8~H
zFJkEb*~@3{H~r;dd`uqAHl)Clw^}1W2Wi3Yajci`pBK1qPC488UK2lwu>eeWfA0C9
z{m(ZjcIn)IcORyWBG^ywvkc=<#-*Y~@=`9*NpA~3c%zERpO@|yAdY&Cp!_fAVy>1y
z#Lk)X-wv%OO41ayj3ey^e_nbf%oNA<&!I2Pd*uFK2PXdKm&6*~^7@~xLpAOA@AZq2
zI3|Cho%O-TW8S~vXXHPNS$e9rZ#q6co}=C1!RLN!P6-JKV)flQe(xg+ck-Qg?_{LC
zM%})R+KDu>ai049UB`&8>vjApkHU;LZnr`rw$GWY<R#bK0k>JHteW^{DIbQ>Upm(>
z7VM;;xJq?_=ev;nH3ZM5SEud}w!p;n^z@4HKM$Fr>4{9KrkYwj>>=o};HNJ5!#GgL
zSgRGCZxBSM*`BTTXe1UwSK_IIl6Kj~bw>yfGC`hUDijO4&n|=de47vQ|MxHBbRH@P
zVQgR+d}RHJECKh+C@fr*5Ays4;nTst%lA0X`XETmp)D{G!)Y)j@Oe}JpEo#j-{5Yk
z7{+^*&cKyWv#G$y43g1n%<7`0rA@${p#3lXzyG*9ckXPc!BCj(`SNX#8$GC)`DD4c
zxa!eroWl3-4KeW4Z0IIf$-n!fqoYeRZ_xeSpSjKwPL%aE@D}C%_wPtULvz2Fm^8K}
z_)3^4ts38f6^rh|wh`+;7a8$B^Yr&3bPBGoL2dDOKc9B~#$Z3R#;QSpoAdi9!o&aH
zd@xNDIGfGCUHNLo7<RM120k4s9?Om#-t<nGx|3@Dq+<8YH8buDAa*Hv1_$xk=-*f>
zoq>R!K+COa4EG3DO6~h9A%<#G{<#!Ewcss<h&4NSYQw~Y(_dlkfhUurO#KT12ecR@
znxz$~;!l4Tn4)Dd@*(q|8$GjYan+URF2ZEAt@+)fBvUA13<7!&;Mt8?Ty)4bX}DOj
z)RcySUIz)S{oH{DL73$D(T6YZS|XX8f4L#BV;q7<^V;e%ch>|SF!7g2sV5&swq!RD
z1^}p-ole}>QwbqI^4e~SSLd}<Cy#;s!>_X~MDKk*hJd1|VhKBa_xO~np&>CTjuoya
z+f&57xihGtDWrJu$BrU+v1psojx7UDwh{eeniH!8I}1}Rl>Y=4!byD{uJ{e3yUM<S
zduxJrh+r1kN%QK>l*8#Ji$0PgW{G^D^j8!E7p{a}IM{Pjh*l=Bp`pYui(ZCx6wmfN
zQ~#o;ufHKJb7$E%M*B{pZ4y4XE3mAqDk?tHx!X?*q3c5A?_hpL$XOyB@>??eAIji~
zxpTh?%4^#;sVqSaZpyo3gef(O$cuqJlOdo4(NUA_NHRr>(B?1^ykR$C8ik2?o9=;h
z<S1h__QC@ibb}5LB8F&A0g=wx9<%Pu{r%6}bK4adDYI|2DZ$Zk<Kgb#tnbxaqV<ST
z#EMXqj_-`>%!hV;3FdBML@DfbjaUR?gygZEps#U!wXSR11`)Ra?`P_V;$3AJhU5!H
zk{F5C*mU@fFKMXmJRX%299gWga1b>?jUb%m9M?Bf><aH+mu3?B_wOVSu~q}QiDehl
z>31LU@j_XD*ZH^MMAe<VN(G0%{~WqrJk)#X->kj9yEJD4c*k|>R9^KBCKwVp|8bbg
z`OiV++*GleQf2nx!M3vtVs~eLa&=%NSLC^uAV87aLk={jk4>W;S_^~NI#+~^a(S0c
zJKtq2VfY!$e8Y$iXGgOlYa#K%PkELYe`XLGD}iA_keZXKb0{dx)R?9!Dk`dbtv0#{
z{yvXaOUCd#u}I(GkD<32D#Ywr*?MBYDwEz}jIo3HqaD*n3G<hdX4$cyb_J}maCK};
zFn4w?M61Y2+I{;}?=Dzj=}t3UIYh)(48N*KtN!|=b}%V3tYtLiTdWOF?_Y$`hY@mV
zdyauF^fh7}Ds~-kcLd_zqd9s7O$v7*nH$8p|9+4dOC(zlFaN#NNf_l>hSB?xkI{5l
z=-NqNA{+)R!>}G~%`-=qXO(p$FZZ0ccnRzE@a0DbJ_990pfySx7PY^7Hv!)&PYf$J
z2xdcxk|jDNxRWuu#qOI+h)3w%yLbC@_=~tj_Y&$aEW5;11=Cz{yD_zhGy=X43=o4t
z+l!oXiGc-==1dGUDb5&g{Y^0AI?<0UYjp0*U+4rT`mJT_;ogEO#f|<XlYca=ztMoM
z9p!qdtbrK#q1CrI-N!0R3`4cBu#mB*w#SeXfXF6j^;xjMY#$x04d<7|cpOhIZ%HlH
z;cJNsac?VJLb`cJt@G|paPP%oFJKuaCWY8_WG(|%*U?_r+Ozc?_SxQN5-GQKP;A}x
z50&_;Ok!o~ysQ%Ji(Fj;nBbuZjRMv<Q`verScDMAd|;uK{8e=Y4hVK!L`t<Q;k}jZ
z-Bd^n5QbEO0jZ58Zf>W-zHZn5f(g0DjIjsiJ{|RwSrYin+rO|(TI}<a^M`eY-dekf
zlW}%_%w1R+v78u;m4;Is4+HXz@hHK)lRYJF<;z)-IuvKV?D>tNN>7cUyXslADRazZ
zU6f}x#(XhKx@uug+nd*S2k6m%f3^OFY*oJfWGW7*YI`vp8~)LR3s)=ZkIx+|PG}?k
z$~ThR5(5<sg98GtO-%G4(2k&8pBT;>gw_CDSsOe9EDyy`h1nQB_k^jB14nbWvge1v
zSrg3K`8}nH7~g>DYLPC@Ik?85f1j|bvNFr?=cpB-XONMR%7_6@<i$!!Ok#Ue8dika
zF6U#)*aIg@($kM6i=su3=zb#R`qEaE3IQ97Ss`-<p%Vg)xdfn?T7$`vS9a-(r7Ml9
zeABO%k~P{PNiB?6@GoAT5c~4t1p5$+!+T=BBp5Qj5IOut0^Qare=F4R!ctZwFU6tL
z*-i@44A8-Lm^dGi4Wd+_BC<oej+WLdFE6jeq8&NMQLi?v{F)`UA`YDzQo%LoG~BnY
z=aZp^H6?aeD+{NNV}dFnnvTFp*^F)y(0CCapX}$xkQ$gWatoPCdYGR-O@%?_#&{pj
zO(-#r0un9`MAN&l+QER@LGFcaY{(?Sl?TIe3pNt(<l7wcbrii%j7!BZ`|@eW?%z-Q
zOjjOy)w6M4i0gsBW~&*qK?fiT*U-tB04Lk=cA;bm)6vWtzH8X8bLgretN{R00W1ba
zMxH{$>b96@$4!*4Nz+|*1}|b0z)aQ*&JM!~xiz5zvJ;`>{=Iq-dx$U=qn03{KY0|Z
zx<i!D%6utV9w&GFg5Y;-A<Lk*Pk$rP$RrH3BLW;TCIUtm&ul+J7)*C2kWSY?4|y$@
zMasOM7rP$A`gAa(z!C0B%qtd@B}SVat=AoXU_qE*lK?nIN$qB7!?2y~JhhkqKq`aB
z8<ec_VWKK<5ksQ}Oxx;s{q}!zC73F!&tm`k>BYyO$>)+kF`B^J+k5+{uz7nltWI*6
z=!8WYiAInA#)-Al=mmrqHx1@3mEYJArPii#BVzDZ<o>BkMipDXe*WC}f3f%8VO3{a
zw&*q|L@fo(l!}RHBnPu@5KtsX6_FeyXHW|>qMIaH5s;iDNJdeSAV|(2$|h}s5+%Q}
zu&VoXzkA>7d*A!x{?UAWzOFh4c38i)<{ER%F~>xMYsc^eoJ_wO?Dbt$14kJ0lsREC
zL_2~vNF1|3?;q}fZgk4USV`kbu10dj-BY@D6Y7vY<N7)|6xT0UDP(UHO0_9mseCzz
ztvI}WwA@C4@B9yH-+?glBHfuBPe@D^Go2xpp@nh9zX@fnsg*&mt4Ri(6(LWSW=UEu
zGUsqB`E1d)eS2#OG&RP`Q^Jr?A%)(qNNK@7%-6`)^@z(hYkwzsS2j{QBvpSEC34%+
z59B^@wNS?91!Q#i8$rY-62FE?^r90lW&;?>6Tg?MSFhrFs)5*+w0uMF9|ZSM)cDt?
zcmTG5h>3xx_!W;~LvK<Hrh(y(g~x_U?i}=>y=XV6#uKotk`{2w2|=qdSP8e9+OFZE
z?>|4`|FBv_IDjh)YNl{tm$PBzjVVhg)yy`3N3#KP0H9MDMNVOWwk3M)raLe2%S3xj
z6hg{Va}2FHPO3emum&22I<1bw(!|ZQ#$<d{Hqjpx#qSvbby`w1bck`js#5trlWy9k
z8KJM3L4;yZG6fin*WlAijuXhj*#w6v(Y`eA``1DgQkPJaZ;SkWEeU|zAOHvZ&gbrp
z2>o80yeYCEaaz;g*n9>=<el@hNb3a0l8>v=fj#g~u<NoEKC1nZ$q9YplL+iQEjG9@
z2qJ>zoucrVp$0tF{Dmxt#y=dca*=5EyBLE_!lg3XLL3(n9G(F>Tpx{}hwtmmv6@l1
zSZ*FPh`a0`0aF)VV#>Aa%%eo3ycdGl%uEFr&YyqejOKSqS}@X!$m)fZV;sujOHC2p
z;#zl;4fyA~Kp9>4j~=Vtu55(XFd%%2$rn9XknD{>5ZDXr$$Qqo$I209dsGffUjmq>
zg`vc;>CQzZjroke>>^Su9U33y*lpH|1y5uG1z(^iLj`TdPfF;-032jXhnb*PaBw_n
zns;+^d&)ik1@PvZWA81=MmnSfheP5>L!A5u$9>i2pgrw@%ZMEA52S#h=e+;<i`9y!
z?&vAQgA8ex=0FZ<9DgM-69oW`_(C>E@!)t2xGz}nz2wk`^zrGwf6I(Gkdk4qx^ERa
z^kWc0d}(B3fEIEY{gBOs6Z7}iy5&9`<lcsoAN7@_Ob)U{_|bd9%^rFMrwfsW7KW$O
zO^n#q4$M286SaPROO|+utjp|h$bZTK(JipV2c!;f!GY-JS#&=y=jMYT^gpI{pP}sL
zMlWVsV?W=UueY8f#Q*+Lc<sp4ioW*z<f@)nYlpkv3m;`fMt=JJ*UvxR(XdTAq?$^~
zLFS6XVfeIyHUOarL!?cg7KUUu3VL=06BoF1<eQUe1iv#>1Mb!yx$LSTEl<49&W}So
zHbc0)u*7AuDkQokx9`1yPSf993?=&dL`VesIz|g6W-ro4vf5^32wI0~bBkpYfM5&G
zJH3(o_Oa?;vLy#(&t^R^@H0PG=B4M0uhF{zt4=iG=+!2HjYA(w#YvbU#Y4P#34TcT
z@$6va_7bkqr;)xfrDWkr)WAUMcbe+D*&<MRZ{g3pGg*&%Gt^2PG_6x&@MfdOPA&B%
z!XhiYUjC0&gmXX!!PPR0F1jxmc(DFH28zu8AbWOX(xjqHNW|)prNNUkPcoeWdnu@w
zU*S?Np<mtkkM3ys=~I_#5NS^kN{{Sjbh&CmX7WVe9~qMZVkOb;6b=0Sh@Kyh@oc&d
z*LUK1^|5|FsN-E%scZ)|xJj9xsi3#zpO>EXplkn~A$)4T_vr^APRWn!+{u;y(ANJ;
zwITY0j<Q1cEqh;8ZITNB3_BaS`S&YQ^ptmQ{!s?J)4@L~_SN0PLkXZWRO3uN@_`MY
zlnK`hzYCzg3f=;1)H`{~npUK%?I!h9keru72`kxWmQ!;UVCSLriW*KC$;u)<wu@_E
zHFq@bTjn^&-k3yYM$-B$ryQ6dKJ9m2Iy&K4!Mk9`(9{fRREHJ?*7TF+49KuY;gO~S
zWo->^^+kgL5mA81<dm{IjXd4@_zU|VNNhlD)4~X2LhKZ8nb-gc7($Rr9vMIti@8K(
z5Uy$TLFi;+>cyf#;*bEuK$`SkDk+P3!lVds+W@Y%q>ufj2D8Bn#Hk-S<9JWhK&#P4
zGXeym@JsdHorJ!*e&npRS%$kp7a;3#(%E>1BP-GZN;2HP6}-DRP=i?83&Y^18g?Ft
zw@AUXZ2Fd*y!?jW#aX1f=Y)r)-t|<ydZ~VK6vi$oQjxw;mB|Fh&OKE{E%>X0`?lUV
zKCJgb*@i%2E6E7`GZ~@L6Tezny!8DQG{>EDZ4`>Z>i)i2cLz=Eu6o>-0FCrZjfE!?
z&Du{m!PU$DySo5qEQ|^ec(AbaRsp7y&`rzZGZQB$G#7El=8A2XO>L4_T-5s!{oP*h
zF9mfHgL6-s2e4*ghVdDD8pCV2kUO5KJKWdaS6<mQ{L`v?tJT<C|D?4sz{qc~#Li;P
zbWZ!~)#4@D*2|lF7vYxV{Ypp0ecK|<Wo?1C;f6I-j}q_}`9@M{hpTeNuwvUH&4TY2
z3no32j-IcI9m*7tloT}ePAsTf1qObBDV2I3d&4SY=VZ)M?oJ>lsH{m|0hO`ZIb(o^
zI3iC96uby9rlD-}GjuipQ$z@tUR_;nKFFt;Ehx#d;3><NEo$w$9VAM??MKp!^Muny
z_Jq~B!zA+L3lUesD$t7Ppjtn4>Diqt`}XcV>oC?=K^kS{cZ9~lN)ud@x3J9sH<h%9
z6T4~9Xs0rgCv~vJ4@rBrZ*pB4kvrG6XC9fkTBxJ5az0vJNrkvRlA{MGCRSnF3-OEQ
z|H3j9epC8SECY17b-#{YdH2`zDKJgu-u+M<UVI@9Rtx~@HZzL_{+i$iWFUaGF)79k
zO1O?|kO|^*#8kdoAKN{QCI@&;K7r}*C17!YW@WUOMkgCf&&&+EB#a%7>`T(EIx-5U
zo^Ic~>2M<BBCep&cA`aW#ni=~%UweCT=ljUxX54vhyIBWdg12J<#R}oS!$6WoWr}5
zXn$)UJ=sFOR$^{Kwgm<aM3DXM`*$n2x%J=<u7RpITGZ$AXmv`PS-fAbcwO&b4uNmQ
zU&Ct<lt~Q9w3&rS>JLB{g{FW92sFT-`1XsP(0F`&YGs!_A4{3g4AlH1ur%yNANmC-
z`2At}0`;Xn-0Zv`e`k*}%t&!kC{$@UdZEd%fKyapK8$uH;uZA)zvmD9Nn<zAI{!+U
zR4xt<FL;W|RX2>L38CoT^s%szk=A5VMbxbznjm)F)ol&J3a96$Yu%C0Pd-xPxS#La
zW|4I0?Z-0SZBl~I3b#9)C)Sfuaj;WEHyiE;SRcst;3b&OtFlFj8#bmzoR|@nMA#?d
zS(53E&l2q|+EIy)9S?DbR-M8&3zfHNQ6@~SW*(`@nV}OCQ!}%ig<Io#)t^N~5pV(1
zGRur{8+ZnzEXs-PxkbQ4-rnBcoe@RNYu7y7{y5HP^hP|w8u2uR0mldyZRs{f>)^N{
zdOop{6*I<3gDDwiM4TB%3f4$0zE#?&J}76~Rm~V(nzMckeLuCtIF<O%z)C;<K!<Et
zJUzKkxq;t1E{5;BiN!LM2q~1n0#tqeq{4CLT-?}Ube~fzNhghY6C$&eu!W6wBs7p5
zK`U<DCXE<yXo(>W2nVu{VSLIp|LYlbu$0_QMP3+}XaWp-d|YGm&JH@=yU7{7xjWbk
z(U|orFfeel+jl&_RU-;=a-qNqq-CENa*)0aLZ>*SRf?n&hZgg$q~xq$l0>D5^}U45
zG!=?Rc*sFgNk;atX;?mmJ<BM(k=m}*S)t)>W!)`(f8iV7PSsB_jVqT#uL*H6#`%%L
zDyNV%8laR=c8Hn6&eLx+ohNkg{Pd96qzc!)JvHes6yRN$0V0g_vymx5fR8n}BAz#q
zf&qXb4YVd&xQU1cHAMVvH`-?^k%HfT?7e+pbo+o1p^3p;?+FsTaRQJZ$e75Bi5D$c
zYqui_N=Fjtled0XZOX2|vGb|ro{?Dh${&_MwL8*5$7FNp<E8{zx4Nfd63{-HAV5^r
z&~l}9Wd;nxZt5Dbkqh46SNSg89`5<1_Eb;DU0qqujb*1S{@<7?ENxa>nYgKflP27$
z*D$S4gi|({N<w*{ngWQPfdwT#3*e6#=(}N#i7$?KYdp`fu`Efk#wA63u2JyDx4#JG
z44!;H92e0}sR$MXSp`loI`(3KI2c$FVl1dLQ~TlQB_HoXKX?Q#ShRE>h<7jn2}eGO
zV)?h*eqBJ-oy9l*EWm|BjPSf?&lz7$`>5?M(>DmhKhb0sKW<hYRYI>MYGmv}u7d|J
z;`jLZ6~U5DerKQCN8Pd7Zf%@lhIo?bS25ck&#_{}gIXoWknCvJ5C2BU8Kj0_l)*VU
z+XaK5Q%L3kvXOYFgYA3w%L9#1OpUb%n8aX!NONYgkir8da}8)=2zPhXm8>KSMa4wE
zuC5`Z1K@=r9M(YbDk)FxTm6Apeg71Xi%gHLJa`Z$UhYk3_*AX*%c5Ye4ri<>n%uq)
z3}75kLhVu2-GSP1_cN!b4GqzIj;)x9hGQ0Xc6Q4Et(jgWS{TYK%C)8%T89<40h@~~
zI^K=WBsn^V7BFWnM^D}?BhL~7@Vd}R|D>V7Nk?(w7)dPAcT+*HE4Uln>r7P-0pdrC
zo#1??3_^h@yE$qmD{9e*CPhm#ZQE|H2B|gnwLZGSGGVK;dqyz+iu6YT?x0fcy?b9Z
zx4>w_qy}YsD}pu<E;}-#kqT|6t`ugzE{!8de2yR$xcOXo1F{@AcGaQ^5eBlJl+)Jr
zzfK!niUy?PR4A_v+?%{)Hjo)mikY85EbpcQ<Xz;6eyu22sOp_LI~_+hB2{;wKEdcj
zLgm`w*X81`W7{%wug40Ok=h+e=TPb(Ws?4lbX+E$Bid$L^;5-O;gJ0sYX{#&c|?lQ
za+le|Kg7a0D{_4pp7)q4%peEJFDd?=K-HowN3-m_IM}$)7y`JBiVm2w0k7q=S};BO
za^ugK%tZp&Wk8X__9KztGZqf|${39Vv`z1c^^YD-aGBxy;_^n*zGpYCMjQXbx-#y2
z7m-+;aUl%M*3GsksY2V-Oj)i*#R$vk?-%yea|NA`ie4KDQjd0GOWL26?}Tb!pB^4g
ze+NR~&z?eR<E<RYLXLPNqi;A<OIDxX0&5NZJS(Tq$~OYh66aOkRfW536n(8EGAN9x
zOfLJYaz*vd&krnA$3)NR#t-^G82kOm(e$o_4jEVmeKAgNQS2W>$hEmV1#VI8cd_pI
zN=Qv;oFO}MA|#uXSQ4wxSbYzcLBB+$#|smfc(B5J3{(u}@w5!tPdmF@e)Or5vP&NE
zniPr%(}VE=(I5LA#kJfnbl_5{fz8`U-rQ8)x*o8QF|>dHE-H*yHSolPhbvw8KdXGP
zi&6Dns(mY?A#`*?E&NEnTDI+tFA|+zP6|Hjy@PKTFRZ%Ui@p3!F#NF1PeQp6dvVeP
z{N}LWv&u}V+pXtf`h~0nx8Ah4pspSZGSLu#J`;wkULhe`I&Guvs`0X@_+p?=f4+Io
zu?d9<bmeYS)<j+I?~-ox1z{O&g}mo=r+Qjckg3L5Nw*WnR(Q8;$$_B|v2&d_LIZ!3
z>c1i85Fn^GnF#1+HU3)PA0{Ws*naSWbAMtWib}<w8-C&ru^-X9d^MDe>w$t~NZhb0
zjT3biB%Hng!CwxFa$ORR(&~Bk@+~SHXK2+R$s1YppPG4$8ddz7j+38U=8G1}y?stw
z#T^CpF4)8FPqL|c^r-fS8@Y%H5N?2US>D$LFsJji=;7;`kyjGl^5OvxIk?KBa1+4-
zCm!axQgWBS<zMbCAv?f%DRI=wH<!*$vVrYGqI$?uaYA*tS{#S1FGp0Zto$rkRiCg(
zX>;w3cbrkhk)jb=Y^Ho}+Jl2QL9gpcuso3t#{RDwWNM@KIJB0C0C%=N@LhcvVIBpF
zuNB5HoC9l8G8HS`6zz3K5m?m|WW<du+=r?(Vjqn0iFxlPG1ScvKF_qW^MVTOe>ueJ
zKK$5a8csMdTA8CYO7POkQ;~hs3M?Zv^WPhUvq+*N^dh8B5o4=d;e5B&atgj8R2uq{
zBjCUw8Y_Ns-F*vH;nH&o1=p&5e~11VkY|fZj{51v^?es<XZkqL@GjRvb#^xurMAc#
zXUV3s7OcZtOx_%)k>QOqU<NBepz*kf&S7WUL#N^$6vRVC*N2hvR0j40nv+J*H&K%r
z0Uov2PdE6fWv5La()^OCl;l=9^vEy;=Aq~!5tarcJLf;u2Vo;Xz&UOX;B%M}$l-D%
ze!OSSoQb=0GEvg_ajLM@&j~fsegfN>zrqg7uI1Lue$!mv0-!)Na-;9p%XS07rOXGv
zoi_rpfJ%6B^Nm(0@E)Jyp82kbDRU#(6sG~ZXqMNNAL4j3*0}t-t#eZFF9(^r-}D6o
zG2`a3^vK9_KpFT5AX(tZ?mec4O*8pkXOtPQvROI4h^O+-mBq&MOvAlw6w;+=XnKhU
zHs$M^@nX)ffybG$oRT2;CSoA02X{@{&h=s5IaK}s8LvFpr0Wqh&nvsIB@kYDODTfH
z!UDZ>EA6+>Af~`nlYzo<4LYtD4x;{Yme{l5@h&{+?p1@r7!L;2(CiHh9%%D$Z4Pk(
z@Z#)CPZ|9Ay^w*L+Wz$T5!=Vx#W+#L#cZI^=4*H72IpoZh%+*jOY+{|U(Es;EYGNo
zCWmSC2C4$MmB<7jTue1U5dd!TCIPU5>~DB|mLxoupkJ4@lmqG+IIpc)-W9kVW|qan
z6?lFt>*Q4wwMyhZ7>;2sN+mMNEkm;}KMaZ3qOpDvQC`%TXpKF*sN<qDPmY};L-YQH
zIA=0sC$(4jC?jUogq~jYkc&yWhp&U!cfve{J_Q9v+;(^$kk0~ZlS}neR4_^~j!`x)
zkvV`(Xo(?Zqy|P72^)4-rLJ+~Qj0Ocq#EgG^x+B4^Uqn>*k0i-xqyE48b0TrtI&rA
z9k~qB;&5VL=>$TI<z0ea;y2}z2OqoGjpSZOKaMh*LFTXS$`iDLlgP_R;U2!+7Xdkd
z|H#l0q%jNt9VJbaFf)6j6MN&%1C%@!EW?vBKyNc*<^?olxxowaBpQt_!Yq;WDI;h?
zQQ3<=^J*erAeBK_=)UgTSRnKYH1roFNrdtzj_&ARBMJmkSp{-cBWSp(KR!h^CV}p+
z{(3a%icjk*<EN;7>0{6(ElgH?BCL61)>}9^vJvZ34*gG0c91z}-gM=7NQ%z9wQ>Se
zvVJ4)OGuiEj~D*j1rF@lXfnh$l{X$;2!`G!FVrrlHUE*{sGoM(oFu#H1M5wrj~h&%
zlvcbgw2qbq!1!b1?U?8r{ueY6(-y6N=OrU|F=W#gr6Sw!ZhF2K=faM7N_2TkDs2%-
zD}FXpD9rt7&sOG%keE5osXZ7&w`0d~nwSfi4fV9ln+5aQs&kKT<rUqSPN?90Wj|0m
z6zt0b!13$XFV#U4jLO@L$~tM~CMdIc7L~OxFs~X(&zq5kVUTnjBg&nOb&Lowkwd*7
zkojh0?X6-mtBvqDX^>;Q>__!38u7XtVg`3Jomvs!$D>AoMF8|zv1@U`Ybm{wJx7W6
z7#Nj<jr8hgbekWKF?cL-`mV(Ei^l$vvIhb%F#B5qB(IHSB^`&T=bfB=8KUn$*)r(-
z3e3#1JuDAc^V$-~jR$QH<SK$}z?sZ2SR|+-3<SV@foo*hUqTk0i?45Yzkh!P)4ku-
zHW7RtGI0a0gBm8^`usmZpNsO(5p12!p9}ujk0xMnSRhQZju4$F@@NCdZ!h?Ahg{>q
zs;*+?Ufx_prbYE)zto|A1tWe3)O$#rEf*a=pHa9TBMo9;7V`J^sLq!bXbD3-aXb^q
zI~AqM&8Y{aFA;|k<buir`em7xC>pI?-!BSo@M6@GqinrD9zkhw|HAI4HoV&y4UpsJ
zu&-p=R}x<r3+)L9eBjl|XT+OxP>JR3;p^wan`Dt2qSXBO)c*O5W3!oX5U~q8VSo!3
z95?HW2Pa@raO846MGV6|GQZwh6-uy})t;;6<*<o>IdOmVP{JE>Hjsc3vFNF2=;lD3
zFRI1Z55I{0A?2^YTSNkrRPe5#xC*m86|t4lFfZCYS)w%?8XCH@AFvMvXHR{9qTJy{
zwIE+Phr9%ST)&(?@|A~#2pGC3quO#q!}6c%N7rB7(l^McZSoVzvhd&f(xQYng&wED
z=m{KVYSV|p!n)%}fBzQcvdg+vw$fGAfH_3akb|3olbbvC#y|6}kB#p9;|D7%tHIa&
zo6ulCd_PZ$|G9Jez7m|>cQ@+DmmIhns)1k`xfh^Kx=J3`<Dbpava(7j^$~pw?oVnZ
zR9rxJ2}DMV>;jfim8d?&^3HQWC%zk5b}E$rY~Dqo?9-XxFhrZ_7f`nxQ~;JLWH?qx
zDNA}Rm!@qZjma3AWSTp123yn~k)!6t$z@<jOaCsHoM9?RY{Bi9kBHv&Ie<+$Slr1z
z<MOx>d_^mehQwgs5XB!kZp6(94*);WQ2BI>o|_x*xZ-qO@=$Y91uyvg>P3*j!Bp}l
z9krt+Egz43&esY6jTBE_0~awNyMZ<Sehq{7<LSGH_(GIs?p(aCZuV5&BYSQCAv|`m
z%M)u?lhF_hOJH*ciJ-?CzfO-`XRrsj6SEyB%>ScS582AW?kNI6E>9rw#_zu!#2Wmk
zk`r+*OjK7_->N(Shv3T-1Rc;J2A@-YR50|flERCmSbuo}W!0N>!VxEC0|w>~VJ9yv
zf#5CWKZ+D_ZS>}wJ3HgOVc5EcyN%R=5t5;@BAwJrTG`P>`yX|cO(?YF4?!5Ys08!0
ziSC9YXwz*Qs5>$---9SZsAL}R5e%*SPha%6ZjZ<+u{(<69FX&33kI%Sp9D!8q#m*`
zQu&t}n)&IguTVfZ-UfQyruoKQ)EunPOG{`Q+(<E&4u9|HV|46TMX1~(aVJ%D|5Gj5
z%v5q$@9$rsRImQ`!?FM0|1nB+NjB2YJ6Dt^=WqXNF@#4*#|WpyQj1T8v8lce5TEt#
zm6*5>^N=`D1|>&6OO6}+M__IknfF*UI9``oi^eNGj3UWwzq5tREhq9v!#Wuftca-$
zr{M|(K)7a;bWl=CJ^W-EGaA&3bJES}l8BYX$-=SM3;h>R-ro34<sAc`QH{g?0xjI~
z%3br?!{QuZcVZ}nK_thJSXRSsaaTw=n`PUbD|$fbWGIAUtn$SeVJM;!0CZc-OL*WA
zbRVcZhD4dhR4KmPU!g>47X|eonR^&FxnIFPTVWG;X>fy<B;T(Dh$M<i4UD((sb0In
zI(8FfZD0()yTeHLj(N#2Bw#n`BO{hVTRV!$0$<Sj<tQ#4EUH4tAABvv9&0iXmDmP>
z6DSq~<3vp1XC~|NY5^bS!7yr<$D8oM)b#cBiAn~A;mky5zHB5;zqKMz&m2Wn0TYlE
z@q}=@z^E*T_*RMi$X_&x1Tl_`_G&&W7;*k)v})5oS^&RLTuPirkES+Hp$jD5bGG2h
z{JPd~&X+^n(=4)DZsytIxux=xAV#5Zj{(aPxg7EEj@c@lV6+dtDQFc8gSFWVvaMS7
z*&oZmw8T}q)*WD?V`vu!n2{R95#rZxFb$>R!uA1>Nf2%-d8@Ib*aN>eJxCIX5iUH7
zr=N^z`Qh}-XGsIJ6N-6eEIp6RWUo#&RQmkv;7N^4%cQV7=MuF)Q(V8k@n$8TtLz4n
zSy~vX;dg7Cak^+>kn(00AGDTAcR-iR$;Lc=f81b?IC?NmH)`!bFu7*Q6z=IM688?=
zF;hsu_?N|vibt24{w`El4Ruh-3_UWf?0i)<21<bEvX4T+5cLGWSuJnl^0aG3f1q^|
zQs1a|lhKVqFlH?lH&h#*(;X};U~n>=Zo1fbMx0b_Y`mo-O#kxWyv{zIWVx@O{?ya?
z<3hXHruPMZGUx1E$kw5L#=B=BXQ=C+pDsR*d=y%G$&W?slYHl`3;V)&q^rV;a$QFB
zjr3`Ij4Oj`oW;vMyQs+#ZO-G3hW#@wgZ6BcoGSBCQnh(rPv&-Zz?MJ_4y~`?ua$T<
zJ+;vwMhD}I?9fMl2x=lGcJb^>CB$CZ4oWgl4z0P#x~%LL^Nj538<uRTdgodyHfFCX
z++$J#hoz@DR4HY34LWl_?n<PziVk3ah@`Qxak}wq5uatx$15;0l5&~F8Un}NRMgs1
zN*TXUq6y(>!1N&>;j{saWb?fC_Q|RsBIesm<!?4CVA>{}QZj0sT(k#sUmwnhVzMNa
z^$~rlU0(tpKP%h)G<FaVT;mmAE$VZFrXd%imhCFq?nj4^3hu`Ah@PLu)^$S^`NxD^
zzRWTP%^-)$+FRBNPEJnnOY#qNp6sF0*2{|Ch$<mQj?^KDwQTG~Ru$C8rMG6598J@`
zvQ|Sup~je@-kn&$EJahth78i|gvzG;vB<zPcvE%qxlBm;-mcYYxNgI{<`_Np$&SsL
z=KBd;;VL`1M$C(26X<-oF0qa$C(YllJIg`!hws(hLy=KYMGyxBv{*M8M=^fYxy;mY
zXsoh@6<!dBTepTiU|lEP;uGE~1jJR^r4q6L4L}2OYH9&6GU3Ekblt=BwTSPs=gIcj
z%LYN?tGQ?yr`FipTj1R--=b^9J8ZbU=iNblwr#J*o}6SZ!ntgTqMv=V@hQgykWyvO
z=4ETP2Xffq-Gp<_?=B6IkU)LI%)rpl0vp51zz@Jy5U^hgVt%MYeSpcwe(`5n*ikqW
z&Ms>8@$vbvG=B~(Op9j#uKVW?H*eld<3K%1qc<DHvU0V;s2~X!XGn?sp#baDm6%cy
z$A67U(R^0hR;9mAR5H;uf+Z$(R*2Qqbks9sngb?QC9+6CW!e%=V1i1;J2MM@bv=(~
z-8NBXWA7Nyk|9d*PFFv9gxE7l1?H=%st%#(*a0WHQe3va=u%3P2@tg#8ZrW^bTz5P
z7?UGMj#wJ#<(xKsuBf2k4Gy;p^uS46KS2ZzXTZy4sG;0Bt-y-Ax$K>0M$kc%<~JNg
z<bNwgwNXiPo2rtMFPKh70~jw0jG(aAZ*a@8#jx@Qbr{f2d}GV2kNSDXS2v&~NtBXP
zV7??9oO}PsuS`N=yVJ2aUrLNX<^6NKVgVC0G>L>P1CpfVDj5+v?1w)?ROj8>J0@WO
z$zT?h#*<bbTGjNczEIr9s#aw$SsQ%r0-2Ul<I|kJB@>+jd48Rpo$9F0JY3Q)Wr0y!
z*KmfZG*kzK=7#v@Xyv$@$N{dxB5cPV<z91au;TmKA7tyI&j0x|n?`k20K)e3hiRY-
zIf}qnWtK9Y3EsGxR)6&&M(^$-73aIdxsVf3E5n(Oh0E<%(sHt*b-+Nq7y{_}_UYBD
zS7%^em~hT4-HL2n=osvBf4K2k?tddg!#I)n(Q(*+36OJp7(&vmC}oMIeI8KW?%JxI
zv9J|YxI=i!(LW^WG#!jF#`tkI`WMNj917=i+8-_#m1O{bs^<YluRo)Gh0Ihf$$l&s
z<;6bJeU?f~aOyYQrrDEWCZdt^&Y~;GrtDzhR!@$Jj=d6orq06wcEGr5={1#=G?(e`
z>_h_kx>nVY=cwL*%pAjICIJU$FBCRK<_Qdm+3ym`xMI3cfc=D_236WkeP#X&B4g>B
zL))L<X6}tAK0uMK*vxyV&f{5abhWn0+CvGtm~2w6sAlX9`ekR{uMd3Y7zm#()CP;3
zC)bXjYf>N+&G?&)UT?K1J(z*Qqy-9-X+mwRYDP~(raSg(XwD@=_H(8T?}@<cm{F&|
z>1|%HTHsocRc(=`L%%naTD#CC(K}{rt^1iG?{l0Oc`05&BZ)N$mZE?}5XhC8#~EJX
zYc+NJzD3{2Nd4+0c-A3ARNa`kG}VZo&QjrW_=dB)u(X=QQLGOkXw$)~r%(>?1gk(t
zkSjqd?Tz}%At+%~;|nWU3}chd<c_5#ST#*TW9>&C7WgLvfqh!7#@06YEM<S+D!<AQ
z#ZkQ$C&$S=f59^DgHG*cj#7ANO=0T1=^`^o+9hek_qjyVhz5CB2jZ=%z;xdutW#ov
zDqAKaKC3Zk3`~jTn?5jPjV&K5eP+g8=EkR|^5z`UP5#4eBA{Ox_6SKkKCHQin*-fk
zh)m+B#cK7TxGk2vnxf3If~XM{Zzw1zWFXBvggbZ|X~e)&V^MUv*n!D4$AgHFWoJLV
z;CYr{49>w5@I?<*TxLcsnr{?ZO=XtQ%^zb@E{ReNs2yZE%}^3K4=*L<;i%~7Vx*Au
zyBNIQl6K&f9Imxc5~HigWrywhd~r7U|CA-Wzs@IV`}Y0T#2-68|EVaHm6E@E{x4kk
zjh|g_MaNqb!Bo!an!U3;;Rm-UWIhV#9A&@I1HU-U6XdrOzx?osDF5N1n7NYTDzlzc
zvtqJ)dwZ*EYZWse@p5@fdh;%T{Umv-#A5vGJ2}epC(YO94Rro@KGGk*3uYU<ewS$f
zcV2>gtCnze-dFMQypTnoKpRGq=*X9oQ3(m<0DgYBs8TEG^GY$xEbl#E$?S6r=py)j
z&f$hxDUaZZ@HwpL@0uPR&53CzpYVJG-1!^#L9#AKcAcc}{0e{3#_tdxuT26b>Wns1
zz~v<|^RL@&XOcW`arf_Qt*U=VuUp35-MwGNP+y-KC9it3hCA;xgU4IaEhbM+yji9(
z&LX9$_@zAO?j;VheWpR<?G`6ZmHyhy75*}<!la)|waIqPGRiTB#o5LrUUrs;v~{My
z5sM4cOPW^3M^25vYL$prEH}A<8}-DL9Hq=h@1n2_r?Q+bT=E>tt5vZgeypiWY-d>&
z{+fvsnEZ5BT(0L29|KKe<4*a^dzz6bp>1k>>)dw4*6eyhzWswRy~2l}|8>w^<IVe0
z3UGo8usfggcz#nsnM-fQk<=9V%txBKgDx$9va>f%Em}gkTvK&uhTU(fDTYhqOu~^L
zPrl1-K9E?cgDtXrf$0`Fdsdlv+-_`aw00Ozqo*lpNuIRm>e5m$68rXYlbBwrq;JIw
zgxl!oXbx(IdhM$4RnakQTU8%an$XQNDtC`a^6>Cz2)8Oo;+!#bN=`?nr|(nEO8u3b
zqOncP<+R{ZCCR(}iUPZa2eS2-C|=rnbeW@2c<#|4|8#JpqdDl@5<8pUbO(qgqD3Di
zRT&KpjaPNM1r5}I)O;J0{=hpQGOADHpkf(O5>#k^@Zg0!XR78{BWCn5Lb^D5s;cFC
z{;&^6V^Jwr{xDh{6Kg3imQSgf9=!JH$w+^b0QC@fHBFaX&YHTy?w3*q`uaU)d3>M!
zUbZw=wEw(1W@NL|q!8g!&SaqZXJ}@o@X@0|t8Oo#C|kE?&1W_L^Aiy1-MPmQci=n<
zm>hqXWh?<+i}*#V&Pkwyst;k6D_flGV%LGR%Ej5#%I4<m>bdc;tiR^>wq>p4`X7)p
zNFd5<hnJ9Fq$po`^me`m@$WnK|A(Xa-!Jjs%lSXLc>d4Y7xGr&tM>Wh2iitU`&qfD
z>f1FNl+YD=82uz97@ZEu!kwq7WojyqkaN#EKuIHL!kaggtrt|?B+J(cMpaixn*!?<
z7X}YvhpG#^sI6Hs-F!)mO6J7Ol&)s@!)`apaJjovPQ$JX^p$UpZlK=n=Qn$9ZCD6#
zDD8NVNbT6z_m!0V;uHBzr^Ds+lMdX}0XZ1*;hkHnUWIGAJm=`7y+h2-lmNb~jf(GQ
za`i?PD?_K8)|DCZEQw6|!)HvG$1vU6$~N1KTb~px<$AA8rKF^cn1MFtSlG%7d5C7`
zXNDvDPBFGdMJ=t6%*;&k)$nndAXlYUR#$tWp;F;Z=+%ARl4v)yrG<e>t&=FHR=$dg
zB2gE2m!Fbrmno{4amS_Cjit9<MWLbxOF+8@_9|!AQ6W0PBjKt~HDq$_&RYJcE2h3I
z`2L}<;p0KWe+_n-QcAfCD2YbdHvd(m@_*Kb`Tqb;{`-skcSJ-)jLxiFVwsLJh-7ND
z9kRD!RC;xh{x%?UeGO}s2pr6RKx%+D=U3w6F&s4LxEI(bZq5O4l}rZjLY=D&H-8XH
z1PX~K$VKit@Vb(z;s8|Efwtf7gPbiwdOR@=>b7hUO~dLi#a97RCAmo;x{thh*OR|`
z-V}Re!62%i&ye2}03iedsS-)Nmt;5$uMfc<TZW(_ono)^A>uie;qw^9@}W1ZL_iFn
zKIzLL^wo8d&ogmws)QM%(jd)najTt&!Cx*ZK5$J35QWH6iWUpdYFzdjsC5q&E+$V|
z6z4OTW3sCI7q)`h<Df#E{S<G<-=zW$+mi#hyK-gBJUn^6S3xP$b>IMIDsap(-Do;=
zIp39os;#XJVA{0$mS+b99Opse1XMAL{>TT-mR6POEg3FTp2bNf)*@-1hnN33q8moW
zmrYBuRjjJ1t`5^$5S&LueHuC>$c1K3hL|o`x@NojTS?(pQ7&_(F_!CcE=0-qn&p{p
z7d&90bXn|l<&~_OT7z_Jrp-t8g}+5O_bH)ok6%i0y|#OWZGgW&jRU~k&?flwq88*B
z%!^vVABqfjrEeRD2#ObFm>x^x01xF|?)`s#h)G_zXqi>iHm*2eakprITcikj@b=gg
zBsa4RAiS<8tIXbwK=>4Uhle{;)b!tfN-;{-2`}lklDvJ_`q%Vl_Q|KEbtY1rR*ssc
z+eJ?y4qwlA^%Ax#)k`RVOHPYn_;Opeu@kC-%%*CrPPa4kOcR2w2lmbyyBV)i=3m4-
zZ5}Q~@d+JN3^~^pCw{T#(8^bn-?b0_%3_;ODO4T2VD9|<0G_H1?f@!{Sk$-Jb(U$E
zz0k0-vbvjN<Jm!EQ(09Y_sHJnJL&CxNkgN>exe@&UO6o-Edr|X1>>d^fwIMa9a~dg
zMs6NB=F^sF#d2>w;TFCH|AK2%RaKRsX-VHp8$q+`&wPv5E9{cQyi+p<TNvJrH+&!r
zDM~ncMyRYz>%#9|?II-es3g(CraOdhc*sC2HsgRcUW9BFH?Cg)P^Oy2lna(zr}IS|
zfBoPng7~>=;8!M@okqI`HHud6q_Dp(L{QttHVnA4_9vkm$7!R+(#E)9)@@nJSv(^B
zwRR7edg9;3n@twBmQ9#tHFOE<R#+put1t<YAF;OJL(a^i{lQ(~%k4YNGhM$dPzAjn
zFif}rD&eV2+-iR3k)Gsq$aCsI#7Lz<_3M1U2c^o-@GGLt^GX>f4CjG+_kMid01g!4
zZLln8yAD=Ifhtbhixh!{kOUk?tpY;}#bNy(YZgupHl;;7eB*5a6*JGE!)1cI2zfy&
zHRSIeO0z@gm<xJKDRSO#+I1kEWDAGTsitm6_s&2mj2!rERPS*r&x1NnckI0sVldok
zIRDb8Q{|T6*Rg(Eaf*c?+~v}kFJ>R}P}TqVn}txW`Q2&xKVTpJ&$<eKgFrN^M7Ye&
zl1!Jd$fiyVH7X57m=3UU(PpPV{6KR@M^oD@HVFz~LU@u~>K6}!?(G2Ef1XCB|6us-
z2{$gz#|Yvi+?8M&qIsvEu3~23J3+eFr6IgR7<dID1PCwL{|G*0d?@N&rFEcE<&2qR
z@;Dgn(A(<IqU~z0O5$J~Y6mRwksF;yW3=d?)TL>T{f1g4=%`aBzlwcS0-=Q$hY&ap
zLVn4=360<Xo0z%m{pZ*IP()IKTfx`p>*?vu91u3Bjzo@{{*HyE0D5+{CSxS`jd7kp
zz^YBg5STT_t(rwuBkaYC9iZdxSTk-x1|W=KQfKf|DQav)uQ37ro<9=dR~~7MFrsuC
z-6-HP>)2mQCBJ8wg?W`qSyq*#OweSELQIVbg_2UV_P4Y0e}SW_@#b|6PXD;sutQ2~
zQf_{^S>huE5r>-_O~@H>i`oAesJzyCi;(#>{EH7vwhl;3OK(D42$$OLg=wu^2o60}
zg*HAKN$4!qf$B+`28=KN#{XOWmAl(iJ&X}gqRftdNP^t(6$u}KTQaZW*Nnwp#UrG7
z^B{t2#>it{hd1y1jprI))iN(Y_<ta#a6wUgw7@BlVacM?KML&74G!havpx`x4VZj>
zNkJj?JcHY}Bq}C`IHx^9w+lDvDd=S|UW3f+M5l{}ff&)!1>+7Eg(da;OMqG+bt7CI
z4*ZRJFPYP)>a{)Ss9szmeZ=s**-OaNG*s655E{tUsiY^u&Cn(jwJcB@wRtmOQ6{t(
zQ??6zqvBbjvYM=P3<Bt>q6x1R8iuxND>viH4%zisa3{!3u)oEGo0Rme=He;O(ATNe
zC``oT?t)JNajx^hKkI_&FGuTrGKkdc?ni68-=0l0*E2CGL#L<bS$3x*s9<Of1EWNM
z;DAJ@4C0G<a1#*`@mXh^>;j4+bGUhidc5U2?kw;Z{G{Z9<RSTe3iMPRAa`XjH6$~;
zl`Igp;N%~3?4a5(K`+JHHvp|S%&5&X*X3Z-lY3u%=T;*FgW?r?1D}whOjh5;v)jBu
zaa-J<8$Tt&U9O#hVVC9zo7QjoFnwgk2+v0&TK_cTzO{x*V+59pVWf~Injpoh#OrHO
zN!?3_ON0!K-06AKbUrS1g~8XNT@l_bL)#0G-GS?G>wwFEiA^w6tvhOJCU;qOpf&pw
zgyJm&BjC5D^XA6qe3qBYf79))2ifZ3m12P*j1l4CyW!E+WdYhc3}$+EAoMM2RdjVw
zv=zePBEMs8*MdXqci_s2G*s=3QYy~aVW_Y<a3G&m2Iw(FrE8@6fKJN8u;w6T1!QP;
zgv`WO>_ns3XH@xI=!jgZMh$pEyl4y~;(zkZbY8miOX75Z-SQ^I8)EZhj+ehq*i4)!
zkMx2eQ6D!#MH4Wm(P&~?;W?!w*O%7ATQVuE=51BTpe-55o12}l6XHf1Mh|j)C4EG-
z#NI@eg?sQ|AM_~YP&jzvkfK1)_6Zv&2+{;ys4VQD53<02#xIX@d7x=q?Cdrxd49-|
zV{<iQJTRm9w=ckCFUc-}><&W=gp$c_JM7|l6bzx39j-uz`Qulpe6G>{!CL=c2CpTI
z?PL=Pw*S?aQYACdeOAIBVc*&y1C{!&zt+oqLgj>zr>_vDQGEh%E5RNga+xikqtXbF
zma(uHzFGoBL>!d{M-E*CT`9DFUgGpVgd@7u^2_mtYo5|H?(TyrI~%XqZ7(_DG`V4X
zckTae0XtC7`h-zm&oHWLH*RIa@RFVypV8(NPUT?jdYtnBA^@Tey=0%+2YpH@6j*Yc
z-j#4jAQue|MQm$UkQuZDy5(ZyrKqn3A%p|5%PT4ALRDV^%`_PX)PW88d5dXwQvKh{
zwL(fD24pyt>b@Z}eY#?qLFO6Fjo*7+7cnbeox~PVb2!`TGB+cpDy3wU^nsPiS}lQu
zqIS-=gkD`&x0i}aW=m%>VyZE1$=mm#B?{5o8XdT~ZifzNB_7J-&8i|_3VvsuTv`*w
zSH&iko0EeBlrs^w#i_|SgkzJz<(LR}nYbWy;?u=h?$?0HM;^%xs5EF7E%j9jFHu~-
zt^Hwr8^J;pV_k*%Q>upC_#Ah@6v+gwWAyDU*AZl)wDRSMGi{bIYQI}{cDr5JS;L+O
zrwh$BEc<G4N}yTZOU*JKM|j|%^0!!4)y^p-|Hlto0#6=460IPoaD=gxR*$)Ts*adI
zMUr_&AaLPf>dK1S)8tXXFUk+%aM8l87UxOb@ZI8ITsU!JHmF&)@bWNhS5hu)jdxHx
zgCvb?RSO^{Iuz4I?;L83QH}LO`wZFT{Jv8VNIxTiSfjP|dVsOd+;sVz(ToGAaVibY
zGARz<AG+C$I^#rUX6FPCArkIUS-Y8e<AKXb`e(P^I7RLSQVA9!h$6|ui5sDU)HhJO
z_aW7KC@S=Gw(>_AiCB&(vl1B#`7Ao<gCYQ%AN!N!9SslyJ6I)TuvEmKHr`^NUY5<P
zq(hkH*700lpwHx^Z^E=o%uPbIQR_Po<V?E;!RGuo14QnE9-F8x7!FZm_R<M@WCP=j
z=QN`YBm?oryy7(5ZYp^%#{r9w5|myV!ug~!89A5FB6?!7a6d^#^>JO`AM5B>T({yv
zcyKbmX$h_$=#Nwfpb{f9y5iVnurQvGev3dJqtzSG1zE`X@6SGmNVs5p3PM;%$PP6%
z*4#~|Mn)w0`!ML*TwnhT6WIi)L#YW)#`k+j<<c2O5c8#0sC)ZAMAX#Qb^^7P;sIsU
z*T;Dq+zl7=abwM4pgdVc3dhYjAe+#RkUP~fh)sAs!?0%sSE$CrM*b1aASaFZVqWB>
zz<$@@qTtONe!z#`e5w%9j>i4#kDq{frMrFAD~02LqJXxQP<M~-!<i;9jZ2;`F^Ygq
zcEB*iG4neL7EpfV>)PQ!ljMFc70nk<aDN@f+5IV3ez#>*^G5;P+q@ld^PJC6H|clE
zDidaONX!jOsNGfT<|aqx>bf7+@9+gIfVt=}LD4Y$k&0ish8k=csbirIYH6=QFa(ju
z(BqMN?xz;|mhwz4c!}}|I`5^Vr0@r^M9DS3VL?&wcR}N<8X$I}tJKdEcWWn3gK}&R
zR|RvB9XFJ0rAoL!Na6v3zjTzmB<d)n>PABL1kkb%0lBDEe>1PCykwuO@vxPDL?%e=
zV{9=j9UI83E+NdC%d%_@WpwQkPBUBn94QAMDPj|8S08Q}=-V!kla7l<Kw`RmjRh%I
z;{qWCJ(czcb5Q^oP(XZ!=&TA)o*V(#S6D#T|CZFMN$C_?79Skbqrf31!w<X$?D^__
z)+{Ro%UX^ia)2~{Ls*qopm6X)$_5WtoBiZ`*Gl~)Oawthqzs4>F{f(XyDUk*=_l1b
zr`tM|l65a;sFwk31&|Up`5h#^bpEa^9Jt{E_SpmT)$F;ML0vTVpb#g6g&}DhYVZ<8
zUi&YZqorF1(lDx`qlo2LQi@fN1r8KZNuf1k4+%4v>NB5QE48Xe>}^WzHa<C6)lf%|
zj>Tic9OvtBVeke#h^wS;C{7Lx=&paqw-^eQWTcm!q}&}u<S2cRcc5G^V_4ophDyqX
zTSrDj?7>mBO2aLNh~5PYluv{nYDSWmfxkTjK}sM#2Ulz`pfMjQ6w#J+bz@Br1MBOM
z6cY5xqKxj)hr%^k^*=XIp4+O+zS;1w^>S!h8bAD_2UrCBmFq8cL)v6u6AZs31h86#
z=y7=ZmrZnqguqk!Pbd_mA4|;s;&*sWQYeVwuh2Ri+NLy##(-4OaQ&vHrcRXVihC9?
zi*OU+2WBFw`l>zc|I$#He1sAETE_5GhM8klYlPgC(z?bwt>IakzFb*a$Y1<~EUwE4
z_i*%AEdeG8)h40@#$d=)b5~=aE|8N9EgR$N;*`8cuGiGmM8(Bv^d<3>9AIh*$HkBM
zWg>&<YLxhPsU3pdaQ>n-mTw+?-%mMqqvvhb1`_PZbwXl92F4YU!v3ClA=!C&HiBhR
z@HJ7b&=9EINT~D<*mvsNOjn`HLWG(;JIS!Ib7;BJzRZp6XT-E}tbe_UY&m2pM~iMH
zF|&!Mt(hW%5+Z*f7F4+tpG_m=IpY$oyNk7Z9uY+mQH9~p(@PoMRPW|Idxxek4wmB#
zbDc2|enM39(u0NE2aVg={K#NWpvDl6BFt)gg2!p<R#T_O!^pV*m`6D9!&&j6r~F;`
z`o=RkNl6Exrt1HhnHimtA%y+VHjIa|17_VWv@m&2dfRM&+fa|Ji|`hs#Nz=aarXjZ
zdE`00iI|C>2%yn8{Id@S$GEJE+=WI9Tf@QWs2IkjntwUIj7~B+G;W4ZBjlBm*f;%k
znZ!9-ZI+m6TElgzoQLK%Ey~(B4+u(xs6k`g=UA+?6!&oVOOHKN#IGz~Q&T&h$>Ueh
z3snjUR`V6Ua<?1{;mOO{W{sga(MqR8EJu?pKf)*=kRxZzyj5~QD<{Xedz<|?s|-%%
z#)(%nF=mIC^Vd5_QypkB$`D?kf{Kkr#wb;KNlPoQemdtgq9Cyln#Q*+MjuVZWVQze
z0FvE9_>u5C6=GJNsgDgbRmBJd{jle2|1H1`@?h{$%an45yr&^KG|hQ9M1*l14Y=c8
z1F-=Z^6L+;cE%S)rJpc9c(Tr(^Q4bRC~<F1Z#I{rEy;PP7zX%30w;O?1T_TO_eM$0
zJWn)>twAemczk^PXR|>l(dKD~=+Q-1vgrlMqCVkvusTyMsA#qSPLu4{I<2>bGhr_|
z6K+Z&DReMf<pA^n$W90c#FZG`YN}E$&E0|!5rE(zNWvz$vv)`E^{o>@)>?a`oeOG;
zE_6GVVH^9Q=Tr=dMqFw?F62#c`SOkL>@5n2byCKSw9VIsq|X+a<e>b_7&F)eV4_2)
zlJ>vWn-kDLWL$d!jA&@H=pcFS4uP6_Y-50DbAZ?mT#|+}`9GnrB%?3OKu;WYp8mye
zDvwLTMh618BHU>$CUN=|YgUqg4?$;b)S8uO-q6dbo+Id;NMstb!g1@8&N4EpYcG{Z
z`abydM_DV^77{8^{l*6t+@ngYSyYviCr^?fOVoB$){!x?S$#5dC41(R!aKz(wROAu
z)kanwW=$6*mlJ56>!3@>C5;5TF6A+!6{R!Wry>$FJ+hwHlC~r&6qCI@pYsr61~Pnl
z<jcp!$a8{VQY!%@-zWE`sf8eHb-V@%FKXpgMYpUS@sZ4Xqh57l+^;05Ki>HE{)3N|
zD2&eRynvZ9Do@9r$LQ4{;9L%@mil9{vHI<8tz;BipyN=Hu?%TlcK&gjJw?dqJ$CI=
zblmSF%Y;lI<Ne5;J9iv^KGZUr$wL0Q%EtS2+q7)3sE|ls;z>pu)P9EBz9-3ZS_wKg
zL8q5eA3lc+Q3w|ySu$&1LS0}QXUFba_k#8A>Ns(e{}p9|#vlQeFCwErEQ1QZL22Q?
zX@!Br*uQB7y{32k+i-t7LjwvHOjFmcOqwf;E_R1l!TCWrd9~mmcP~WP11xVRNKQg@
zbL7pMrsZDKNIz}(ov-8?m>tIe@1I|A*<7Yyxp&8eALZG37^~x}q4;SG<_7^JUJ`>!
z@<a)S01hr97r(4i@1>HO^)GXNwzJN-oNZgfZTu)>4W9@SXR;UO84{c`UF6>cMsGHZ
zeF}qRYuf@^u+iOkaUY^z1Yj<~ojru}-HF2>gN;KJYIwv)kR@2~qt)-k;sq@&@m!ah
zEPd%tL2<>I_K$ArB!M$fcssPU05ZV1d193a)_})4$zcRNm|UZ%rUSs+d-UeFyAHWy
zd$5~7VGH;ZIjo1+m@>(BN)Z|$mb4ciOY+cxG@WR3eS}Nh$U#f$`A56)H|zRe(0=_d
zv9F4*z`sXel9@@A#+P^R`l{iEXlY2|G%}!BB*pQTO)qUYE1kd8sBYP^1<-rE!|Rev
z5pPx>4N^ZHC{Mvj;`fX2u+kPrFI7C6Gx3Jlkm8m1ATSz*OR4N8tpVhBkZ;TJ`f`yr
zEwNMiO;VUooi$p}_$~yjY0{+<-pS*p?emx4dq=vto!c0vdd1)G-k=Kf1K8<%4Gv@t
z(C1ow+@#w<z&J7h9~^+%iCKvIvR+9oRXm<E`et5e3uaXx#L?VL-duVmo!b}ajqm8u
zqeAe!;?$7zbsX{xDFura3{UNSBtC}2tNZ!g<+ct<ZtS(Jv(tUL5{znd03-SzB@4y0
zL2xvHAv1@fFC6_Z1$OA^j9JE#SS*M#8nifpB!|TO&IC)L5+l&9glH%AcOstk=6zL?
zJDxMRn@YGBRPg2BpdZHmL=?Aiw>LTZ*eg6#BFaXVd<`vL1m#4>#58Hd<Hp7)$P!RY
zYQ9o5F!mk0*e5=%jM}ES`|dVtWs?1*&(8RjJMJMFBmpm^@(-s=S&(dU8X7@zQSuol
z7AQW44nPM*eo{NcbM#%!U;n&vH_vO*YE4)O^uS(%JXzf7L5)Nx0tu1D4wHZlEMA0U
zN~MQJp>$vWV1GCB!DO*gE)91L!I(FfZSOW~#h!j+WxMQq%kgsmLpqX%Z{|}Nq>{y-
z1=<3U4(w&0sxLfr_5D4<y8(@`3@nWCA~zF~>IUS>E4K~oDI&}kmPqj1y?1U|P$<ZT
z5S=HLhUi@84aYsM7vFNEG?v6c_KXN)PU}E#_n=uTvCE+jq4z`#QC`ubZfQ*NZ;Btn
zR1snYL`1VIl@?#H8}2GM-DWWkF>8X^(UMn0IQB4m5wqa)<PY3;$^M`YRZ8*Efk0x3
z#KKZwf$8zB&cE8Bg~se>L`LJX!>Cc#1_(MK>}mE2i&)h46ODS@Fr=MZw#Azw)Wi+X
z0wW9#jj^^U;usNLGhF=6E)P-jB%Q{X8xU2HK6nyy9lxy)A^8U>cM?b{^zGg*a$j0T
zoh|vmrj`BPy{~b~4>O|gdRXcAHwF(ln$QMJUyj9g&kPhyDV&uc3EwNjAgDmLqvMOC
zh-luA@bh<KUCP1A9tLq03+8xU#Y{+IB4!Lo1>Zy7jT}kja~191)w^-1$&p8)!V7ID
zR++7C;GE21P|yj4Tnc9w@(~GW6Y73`+Z?>+E67M%jPZK4<YfpjvhMQ3=P+EI2k6rn
zWO};a^r841sk{XYla>JTQ4O;ovwXcRewd&ROsS@U*x<(<unFGxByXJtYgY`$TSP<F
zW}vC%29vTp>9Rmf>I23m)c0YsQXqJRI-h9|fhQmRrESDG^HO6%#WJuWt=A5Sm@I58
zXntVd&&Ydxaal%MDZhMdS(w|@Qm&z^IaPG4ZVqx_moD<%2+@ic<!?$zOS6vZ|MC>!
zAkymm5XigmmI?db>^#xJnKcfm^`N{73C<+Z#&d<up5_^xa(5$%B(9V_R7Aw&@Y)rW
zV{g5ByotI{Movaf9GMKc;IoVN1bBIRp{I6;-<OEoi>bu~8^XTb7h2YLwN}swXy2dE
z0(z<KAr*oEh9k&g)h>b}L}Dk9T0uGLGTY?>;^=g`cbGb=tHD_AtR@mMt`4UweMbS-
z=UGBr2x;^X#nsNt{{6(mwEjwG)E`6~W2Fr1#w@!ms@5A<2eag~Ioam*c9VQ*z%q{X
z`7%<_XJQ$}5Jz+@#+j6=wm}&ny^Js>%<P7M?HQ<`(K+a7_-T?lucg`~4n~`f6P8sV
zOf>nvTIe6(PtW_ns)nzMzWE>4hDIn%Y19!6hMND=six5KIi#nl??-Su451j-V@@*%
zlFXXAhLylPWnZ|j{bDv806k3l9tY*cS~5)e1~XZ$06)E93|Zg)JrHbLKw;WIv|)wC
z*W~FV0s`qO<+ueDa{(F}HB3@#6d8$5nTBos16}cl3u{OX8*am&WNO;LureE}`oDZE
z932=YigFoq7b9wTc4+IkL>~sm@7uc{UO=;4vA>_~=^%uyI4j;sG-N;jHS(3`iKmS4
zek!T@r3pE;|1tnMFtjoz>J@s7jsQB7e6ca8i!JZhX-0NSJG#G$aP+IAG;hcBYD8vL
zp5e*@c1ai=KW&;^8%%B`8yO5H-#wd$mWkBIJ+^35vwDMeoj1FX5u+mk_m@T_Kd4@N
z62HR7Sixv@C0Cr;LI+^)sho5;Av<XL`SWL@D4$R0@TiJjdWbi+AJ{_f0)iMV-;`mk
z3D=T={4^`8nFX14{3o<pV>h?8I}&RI@zE$*mI38o;G-i8ws%99UyPXVNAOxnYEY|f
z>@+g<s)3rtE&U*b6lj(`*EPKb2W>tQFvCHxqHtistKPw~y86B1Kkv`$HVB_(q6Yc6
z_g*Yqxzm6J+O9&z5SRG)jS(a5kXX~EEdo<_iogNRGlg9-Jtd_B#Re0aWiRa$=H1gl
z=NW54LQfzPHYB;Xa0w2B+q;H~?_Ba%^AfC;b`(Qx<j@%87hWaw56%xZ4p`c389hT9
zX#Xg$36(%LRA(MHN02&!3edq|$8-^hhEht4@C<oN0>nP}Y!WoP%vimy93&aDL@D3&
zAG&y(Psm)F!W+lhT;^)cY~h7AAG*;Ui#t3lH&>icfTUS~qX<J-%u#+!&59pb9><xJ
zmzt7t4Hd$2k}D9l9@cJUaKdN|n!`V7a(|Ne{^;-_JTZJ6DDn2gg2fTgE1|ZB^iBa1
zwDenzhmnR2@+fIb7E~)JX?PQ+24R}41v-6)L4T8CkxcT}J-5ZIVz;11nw3x$WZj5u
ziU!~`5m^U;cfx=ta_Cn=?ktKMjQlM^1!?F=*UUwhQ{6tR)#GHN0tJv5>{IYw#tz6e
zuj8JQ3d~~-R`M-GNG58Jy;R?iy9Wn`XHS$^G`rw(ID`TYM-eU>E;$#Q+_sHKQy7CE
z+mYC0EVo^C4GGo6JGR^>9Hd=_Edc$kGu%bD*4jc_!j+vikX9}}bq#^f4%>Q&u$@xp
z^H4<~eS@UZNpfoubtQaVlkA^!={AE0rGw_!^V`HO>{HS?zJ%rCaUF}{LmN6RPgUzZ
zyV83|VDMDMKDEED@ZY_(-YP)L)S~;4<vOe0Y$K!1&$MNzYj5nZ*eSDq=M~H%{`pwu
zsnpC&MPQfB%5a_$ue81yN&mnT<=|I?gVREW?Zjo7_s9g^gYVPHS5?PfRvdd-kzZHG
zhG|!Vuvn{q92lqlIJqq7%uD?t7aJR!hfQXC#_G?Oo%`HSE+!`CK7gXfcKB`_KX-09
z2lW;QwYxP(1g^i2lEtNUTqDB5C=|T(T{QoCmfMW>DqI}4!2}o{0|xwYksQK|ATLh>
zUH<FX*p``^n(7_dY-?w?gP)(3jaU7cnb`r#SI{yhw0^Gf(N2Q~)sl)C>4Z9M94kRg
zf1`Ybqvb}pXf{}NtlL0&;^}!CJ}sdr6F%WsF)%RDUG-`WdZ{^jL+Wa49~g-#B^fmw
zq8vMRi~^6&zkm{V2nue*?|sob@}<Yp7Mb=_U*Eg9<QBSeE_mxho4R7yRt~%NXNPr}
zG4+DterC~{HET|tITQNkjq+j+oLD7!MMZv<x(cWCRIkAXwCleA@ZoJ+TV7F@@8+&^
zbZ16WdO{5&Y9b@yT8ZH#umFWpQBm<@d|Y5k*&$Wy^WYY^HnNtW`u(bgu?{~^hqYbn
zK76|Q9HwP2b91-5Ub#hv5G|m<;-e!mEvl%cMT1FKE8RrHbFRei5L~VWCT_n9=b*mB
zsJaCdm`^1AvXxrDKlLn6%h~>*yLay@Gp}5EXsT5$MephIK$EuI9O_adxRybOz?5(4
z;#;?f>8*g2-!=FBhpX}2)~;Q9dFV!NZZ3%EyKmZl3EK2GvQW(W>JJ{gNz18^$?F-l
zFAWr0k0>FAmYwJMR}<+dQGF^eUv~LZ@M8}TfeAtPGq=&3z3##!E;a?j^c;|rSKwVk
zVPe}+x_XB%2Q~0^NpW$k|Fcq+(qJ*QYrXstH3sgy!I(6fqEO!cs7q2pLLw=)(~b8M
z<Qngj9m^8WsJRTNX~VXSayc#bZmDL!((u$BUteFrS?-Esr%s)!&OMONxC$qWFEALx
zLBIDX8)MS&5BY_K%aDzlnXRfhjFxh}R8>UQW#fZwY%U3rk;krF*@1TPJKf!SG3hpp
zS{|d8Oct=<$1tKKpme)9jMXW3E<X<cT7$<#Nip7*pZ2^{++fgaLF@bXr(PdlPo<r5
zeV&$9+p)%4=m7SgwtO4g0rmG!7cJ#djCBnN2>39D2{X!D(*ZT_=M{eV;HM$GeU|yi
zws%l%nc=lB!^+&2Jw;J%JiW0|m1EDIt0=@$Tz~v9iz)Mi3)=b;_?8@)Qii?XI*Pc>
zKwwFAWDX<+dWLdxe_$ryS2}&SNpNuRkCBlLg=g%ZwxhlOv4QnNmFSnz+*MahmS@ET
zagn}xapD2|G$h0{JwIDLc)@|i8`MtpmpiG6+Ww%xEMXz#(H4QSXsf;o=hQsYPkx__
z6+Haz;iqxwqHNwXG!92-JSnb--CHTh_?J?SVH~=`&5+t&cve-cssEUM@7{8Skn*ak
zOV>^p`{}suaM*N!=~6oXs!miVk0XJErRrap?4h1%xdN$aWK7I@0i8c1;^WKu#yU2C
zI)3~(kG*unk=6uFO-;P*u@fg2Vt@_zp;WbG_u8#nQpcaFHfFY|NX67VprZ({<~WU9
z=uaQ-1#26yRonafS5xY<Y!WKwR<2xm>cAdMw2vOcUcJ%m#l2*OrSLYa6=kEO$UYn<
zX>N8wGs?}IH?Q8ya`dcAeZOv|AGzC+=$BLQmN^=5FfJ_6EFRK6R(3vJ?L{98VzyXB
z<i-Wc$HvDqd$3EKk(PFUgW?+s1+^VX2ifv1BkGoKTo}}Oj`kNG93>xz!+7XmnSK1y
z^syicW%X|AspIlT&eAxxirH_#44KII_>V|5zA_k19W#u3v@Mbb&I3)7x%XOMo?UY>
zr1=kr6cQS+uTNDwAIxXmx?UEzg7WF}=hHWC9E6kXg8aU)0|rm_t~VIC?r|O_1yQhk
zeE#Ca0xaw~S=nWjiyrkfnAF{W@zmfcgQ2pLRr%#l=eVe-<0>kfFg3#+<`5%&4OLe^
zUsCgM7aM!3y0v03_C@K})XrsDhYISdIdoLxSaE$)nAY3w*Q$fEWoiC_8%k=`^*&9F
zZ-QRDcoDkw5pBqJ-`>Rrk6%tUK}xfL0-qAruBWi@d5)yNrYp&MdG_H^W5dU4hUpCM
zgmsAnIR*m<%N*lVu7MzrjE+8`s_I|iwvqnx!tLb6k1|$m{e1Deh1Tk!56>qcEY%ZB
zZA$1IUroVcEzNg5h}d}1p@5RGYUPR*>o#4*&AH(6C+5DEtn^(0I&7F8xlzcRgIqOm
zm7B(m4?Mp1<UO7W#%L&OsLZPZ;ECG^v&+`7i=R4q@^;0eYP52vL`x$$eOpF5bg5i3
zUNh$bm>xf-mC<jvPj%-V+oYFc)_&_lA=mADpKJ2HrS?OFcK>pR`xb#yGj+JX)LL>;
zR=)Q=B6bb;cuS`!L=t%Q#T3sjFPI1giaD?%Y4rIdXtLt$csdG;SCCGTX<!>Ux3RJ5
z@~=92;J^iLfieSrI%3k*jPR4y+fEBj$iYNWaA|FGY>|OAE2hO=pG&A?U<?rRbNx9R
z%Ql4qP#Sk(0-_cu|An<UH>{K?-6t+&${;c>j-}8H7JxjeN}tDKW}Lo5+VL$^5)O98
zt=q}nBD7|yt%jHA%PjTp(n1AUIqJEN4SgPthPTw?cC6W?k!G~XhZp)sTVT03)o}!p
zoywzd{@uA_#{xX@AETpg5H|a%n#YMrd0B1p9^I@K^V7M8F={)~y-p@XoaYXouaD2S
zVs9=*)0evoKW?8oC;hnB#^=|>#C=K^UhebtoxP*>2UR>2V~qJ%3GCZ<uG-#9D&dpL
zHKHxHHs5#2i>~T5bA*qtyw4sJPL5;*S3=A2)Z5z)OmlkCPuuBVNe%rX$$1#&rncCS
zgL=Xm-Mr1s7cO4BiCBNV?h<o3hN&Ex+KPklsjO@%B^!PW*I(NOMVZ2GM1va>jkHqx
zg{uq~`};`f_W@X5&A4$4P{zBqxU}>=F0ut1_pG_JG@@o-#q&NX*iXkb-r>RGKH*E8
z`1LC#`q4erex<3YJLU_sA-QSH7Tbv*^X*JOG9wW>TDoUJ{PoTLU!9#-R8(0Oh6_+q
zE0TJU5}F0AfGs&TNoAVQ2m_RohMb`VgeD2HfD)CA6hS~J2Q3Ok2}&q}l8hiKO%x?b
zErJRXM!G<08|J^`V%F-{xliy=bwizd_J8)?=lkge$<kv%{!6en-NDPtsHosCRP`Vz
z>V2>?t9)rMq&NIN^2Onry1L^-T8#}xemYFU_xZ}?WnCx?%=Azg<lQNbn`-q9Sp{D_
z7UP*Z<{X0{L<epXNY36mD@|aWh+Hi-ifeqWqw3KvMWW#$!NX}9B`+E3R_Xa_?R>E`
zNEbE=I`T5>Gf%~!Y|Y1;qP=AgSav<k`7;DH4YT!ok?-ZW6M*w(%=!CFPEL9suWfBL
z6p_-L#p+6QR%j-TQ#@@I57H|eBZ1fR-EBB++zKAK?EXC|7~HwnSHt7ujeyNMw4}SF
z+M7_*VCLsn{;m+scMnht^b;>~n2w2ram3Ju1MhQ}2L->yYfEABrOvKKMGOUY7`2CD
z6#i3b4_T{wZjl(IIjf%35!2YXxP5-cpEox2?^;BEZy^e*jO<b(HVru39s}R6mQJHl
z5#T9eE9j7Jj(95sAnip&pn4A9!otF@^Fs$sOiiybnLDVmWdoyWj?VL#q7;>twR?WB
zYyX?}O;+}120S_*eMEgGr=TDiyNlA-XQ8=jWB%<;$rHKb>hFaNqIc>lvK6*&Zo8rT
zh_qMrser&hMXZ9fNy$o&a6(uYNg-0~^yJ?!{_VGHq_V_+dIj@@6dH}@a3mmtUft1#
z8dz#}HXrFxSC{U-FW{Z9oGxZ%Jw`jgWBzmyEUqya+^FJ9<Q@El<qUqpv)*dQ!te(z
z7(UGF*BMn+R=<mN+MZZP*u%tj<WBUW^NroU#hPJLM?YXdTe-gK>!Tvy=YuO&R8iq2
zWdh8IH`Z)H&*e?X&E#ZWbT)iPmDS`RQih#A-SjL1tQ<*F7<yqGszaZ>ZLj|Q4D8ch
zab4wTCx-meVbl?do8eNUmx3_lx4K5?fbLkePD>RwN@illnxFY@X&V|E-toMTowSff
z!eU}PU)4K8U}xu1EMz4(9FBiVV9JFHvika?6^+;FY@b83N~`~q+wZ{ltQZ@;VIy;I
z#~6vT)}Kgmaw?*9!l;JDFDQtm1VlV!fm269+ovtGHf6%Dt9~qhzs0WQOW9jkJCbZ{
zY)VEq(0*lHIn1p#6osdH!TQEIv$C@(DSYmr@lre-ZVY-sM(G%NM9^zHfH{)@YKn-z
z=ufaZ?2lz`k$%*z=F;5UBr28Eztq=f`vK;9UlO5MAk&-T#{7C#Q*V}p7kx(a+7z4Z
zWp|NB&6S^KnM68z=8QgGf0HBqfm(R1=2%xifzmLXfcs(%TiThPJoy8*52(X>>eI$X
z`Urt=Q&)NeGB?<t!F4rl8#UyvUNX|G_Yv~A_G<KBVwDfecQ|5svR~zVgI&;(^$?I8
z<&(CEeFL0m=dpyigg3M%O$gI6jl+aMnAzAnRUS=P@AwB5&PVDKVTW+YJQ=sSxv2=k
zVn|F`ctPw5&DUVWOM*G)@M3e)`Q&ohRxW@*sda*LAn=UNE7d$PeuC^ulYPhuK_Q_h
zxSp(epW*=!nn06c01T<~bu{A}WEB+nNVF?gvZ|_-^0LR^(^lkLsRvyH0j5egET1uW
zLHU=t)kMBFgLB3R4MkSg<3)I5TU%TG6}Tg#kVl0~30>R5Z-D`OYAvbQXrsottCv17
za9qiyaToPk`#LIN0}PG};S{y9vO*%MTQDnWL4hDFKArm}sPXvfA5SLkoi^=rYPU5e
z9>gLaPwUVU$WX*<51zJpaIjKqTN|6rK8qJAc)VFeH+1q5>X)I>`(V%Y0F^Le(nPBS
zC42BY#FE?YZEAi!;^=qYQ&Cmb;Bt`vG8r=9SXsX(JlOz*>_li2k(O50SZ0)!)dHgA
z+7iAK&Iq;oKQAvYXJe-2QOoDCUHG)VFtSHN)!oF}S_q)?OrW09tcYkl4JH~uob`Y7
zxdnU(#U2N7mIX5Zr|RZdB_;dd43+uuV>q+C+zX|ju!x9rO-;IR@~j07e*A9KH$;7N
zu(2`(ojAy@@InWwgXeZWB_(4-l1xrV@bUrR^~b1raR9le-_13qnw1$JJ0=Kb7Y*8b
zYRa>@rA1alLlm&PP6&t>)`w>^<3~{4aK@^YOD$iP@-m7gQSER@K9L|CPn6pH0|f7#
zp3Se={A(NSzk<z0ItqSNaF3Nd5%=CQV_yzv3CqdVRTdYMF~S*;pco%eV$8A<lf|E%
zoyjo7$Uw~{b@ch-Yjp4kOG*lKsy!_#SBegpJJz*?j#ckE7Va9iVbE+^;MS2KjdSlL
zjdvu<z$-N@EMw@}$byKJR3?5X-++KIyTL2ObVL`^j7dwSKSw?7EGD>^xHyA&;gr<w
ze606V$+JBIU+9+&54!sL`rZ>*;_d{1#Ma*a0v4<~)d5z-a0yA_a+i}+pm=y>!$Ls4
zK~GsZON=d?^DOr_FRU{kVr)rINM!)|#zn&1dOFN<=u$xeFR8n`dn!N>fr?`An4~I_
zbMAnG!cRz>R1TB<9Pzio9eWd#Mge|);k?nOd98Z&NO|st278E1l+=XyFx@a#6gf(R
z<Xw_UxGMd-dc@WEDpcLKG@0=P)b$fA(y}%Qm&)EqYi81#-MK>IhEu!6{Z~Xq^aLz&
zg{7sl&`X|n-;MYcaMTGB4`cgq760phJgvkTz8)&+#9eP662u*BA2}J`)URjy@7YY%
zJ1w_AWirFqJ9S|DQ*z;yUAU6%qeYSTFDL&$Pxq(H?Ln=;kRMxa5?gaDOs!37{_dId
EADLCGy8r+H

diff --git a/reference/as.mic.html b/reference/as.mic.html
index 09cbec0c..d73820ae 100644
--- a/reference/as.mic.html
+++ b/reference/as.mic.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -270,6 +270,8 @@
 <span class="r-in"><span>  ab <span class="op">=</span> <span class="st">"AMX"</span>,</span></span>
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ 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: 'AMX' (amoxicillin), EUCAST 2023...</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 amoxicillin (AMX) in Streptococcus</span>
@@ -282,6 +284,8 @@
 <span class="r-in"><span>  ab <span class="op">=</span> <span class="st">"AMX"</span>,</span></span>
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ 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: 'AMX' (amoxicillin), EUCAST 2023...</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 amoxicillin (AMX) in Streptococcus</span>
diff --git a/reference/as.mo.html b/reference/as.mo.html
index df96607b..76173b24 100644
--- a/reference/as.mo.html
+++ b/reference/as.mo.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.sir.html b/reference/as.sir.html
index a63fa04b..540b1172 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -14,7 +14,7 @@ All breakpoints used for interpretation are publicly available in the clinical_b
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -532,40 +532,54 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>  ERY <span class="op">=</span> <span class="st">"R"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="fu">as.sir</span><span class="op">(</span><span class="va">df</span><span class="op">)</span></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: column 'AMP' (ampicillin), EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      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 'CIP' (ciprofloxacin), EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      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 'TOB' (tobramycin), EUCAST</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> =&gt; 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 AMP CIP  GEN  TOB ERY</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli   I   I &lt;NA&gt; &lt;NA&gt;   R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism AMP CIP GEN TOB ERY</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli   S   I   S   S   R</span>
 <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: 8 × 13</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   datetime            index ab_input   ab_guideline mo_input      mo_guideline</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dttm&gt;</span>              <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;ab&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2023-07-10 <span style="color: #949494;">17:10:47</span>     1 CIP        CIP          Escherichia …   UNKNOWN   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2023-07-10 <span style="color: #949494;">17:10:47</span>     1 AMP        AMP          Escherichia …   UNKNOWN   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> 2023-07-10 <span style="color: #949494;">17:10:38</span>     1 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> 2023-07-10 <span style="color: #949494;">17:10:38</span>     2 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> 2023-07-10 <span style="color: #949494;">17:10:38</span>     3 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">6</span> 2023-07-10 <span style="color: #949494;">17:10:38</span>     4 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">7</span> 2023-07-10 <span style="color: #949494;">17:10:38</span>     1 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">8</span> 2023-07-10 <span style="color: #949494;">17:10:37</span>     1 ampicillin AMP          Strep pneu    B_STRPT_PNMN</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 7 more variables: 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;">#   method &lt;chr&gt;, input &lt;dbl&gt;, outcome &lt;sir&gt;, breakpoint_S_R &lt;chr&gt;</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 13 × 13</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    datetime            index ab_user    mo_user    ab   mo                input</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;dttm&gt;</span>              <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;ab&gt;</span> <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>              <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-07-11 <span style="color: #949494;">07:55:27</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-07-11 <span style="color: #949494;">07:55:27</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-07-11 <span style="color: #949494;">07:55:27</span>     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-07-11 <span style="color: #949494;">07:55:27</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-07-11 <span style="color: #949494;">07:55:21</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-07-11 <span style="color: #949494;">07:55:21</span>     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-07-11 <span style="color: #949494;">07:55:21</span>     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-07-11 <span style="color: #949494;">07:55:21</span>     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-07-11 <span style="color: #949494;">07:55:20</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-07-11 <span style="color: #949494;">07:55:20</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">11</span> 2023-07-11 <span style="color: #949494;">07:55:20</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">12</span> 2023-07-11 <span style="color: #949494;">07:55:20</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">13</span> 2023-07-11 <span style="color: #949494;">07:55:19</span>     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 6 more variables: outcome &lt;sir&gt;, method &lt;chr&gt;, breakpoint_S_R &lt;chr&gt;,</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   guideline &lt;chr&gt;, ref_table &lt;chr&gt;, uti &lt;lgl&gt;</span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># for single values</span></span></span>
 <span class="r-in"><span><span class="fu">as.sir</span><span class="op">(</span></span></span>
@@ -574,6 +588,8 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>  ab <span class="op">=</span> <span class="st">"AMP"</span>,</span></span>
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ 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: 'AMP' (ampicillin), EUCAST 2023...</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 ampicillin (AMP) in Streptococcus</span>
@@ -587,6 +603,8 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>  ab <span class="op">=</span> <span class="st">"ampicillin"</span>, <span class="co"># and `ab` with as.ab()</span></span></span>
 <span class="r-in"><span>  guideline <span class="op">=</span> <span class="st">"EUCAST"</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ 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 disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023...</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> Class 'sir'</span>
@@ -622,93 +640,141 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-in"><span>  <span class="va">df</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/mutate_all.html" class="external-link">mutate_at</a></span><span class="op">(</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/vars.html" class="external-link">vars</a></span><span class="op">(</span><span class="va">AMP</span><span class="op">:</span><span class="va">TOB</span><span class="op">)</span>, <span class="va">as.sir</span>, mo <span class="op">=</span> <span class="st">"E. coli"</span>, uti <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ 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: 'AMP' (ampicillin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</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: 'AMP' (ampicillin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      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: 'TOB' (tobramycin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</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: 'AMP' (ampicillin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</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: 'AMP' (ampicillin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      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: 'TOB' (tobramycin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</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: 'AMP' (ampicillin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      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: 'TOB' (tobramycin) based on column</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> 'microorganism', EUCAST 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</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: 'AMP' (ampicillin), EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023...</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>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to</span>
-<span class="r-msg co"><span class="r-pr">#&gt;</span>      prevent this</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      - assuming body site 'Non-meningitis'.</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      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: 'TOB' (tobramycin), EUCAST 2023...</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</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      Escherichia coli - assuming an unspecified body site. Use argument uti to</span>
+<span class="r-msg co"><span class="r-pr">#&gt;</span>      set which isolates are from urine. See ?as.sir.</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: column 'NIT' (nitrofurantoin), EUCAST 2023...</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>
+<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 'NIT' (nitrofurantoin), EUCAST 2023...</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> ℹ 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: 'AMP' (ampicillin), EUCAST 2023...</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> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023...</span>
@@ -717,8 +783,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>  OK </span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023...</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  AMP  CIP  GEN  TOB ERY</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli &lt;NA&gt; &lt;NA&gt; &lt;NA&gt; &lt;NA&gt;   R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      microorganism AMP  CIP GEN TOB ERY</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1 Escherichia coli   S &lt;NA&gt;   S   S   R</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># For CLEANING existing SIR values ------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index f3998199..0327525b 100644
--- a/reference/atc_online.html
+++ b/reference/atc_online.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 a2071d10..0bd7bd06 100644
--- a/reference/av_from_text.html
+++ b/reference/av_from_text.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 18b92db5..75711c47 100644
--- a/reference/av_property.html
+++ b/reference/av_property.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/availability.html b/reference/availability.html
index 7911f937..258d5567 100644
--- a/reference/availability.html
+++ b/reference/availability.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 ee4e60d4..eddae50c 100644
--- a/reference/bug_drug_combinations.html
+++ b/reference/bug_drug_combinations.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/clinical_breakpoints.html b/reference/clinical_breakpoints.html
index 3675daaa..04984c5d 100644
--- a/reference/clinical_breakpoints.html
+++ b/reference/clinical_breakpoints.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/count.html b/reference/count.html
index 8ae2a651..dd441f26 100644
--- a/reference/count.html
+++ b/reference/count.html
@@ -12,7 +12,7 @@ count_resistant() should be used to count resistant isolates, count_susceptible(
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/custom_eucast_rules.html b/reference/custom_eucast_rules.html
index be1ad2b6..fdfe226b 100644
--- a/reference/custom_eucast_rules.html
+++ b/reference/custom_eucast_rules.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 6e3f6f96..1c00eb56 100644
--- a/reference/dosage.html
+++ b/reference/dosage.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 1a06bfc8..65010280 100644
--- a/reference/eucast_rules.html
+++ b/reference/eucast_rules.html
@@ -12,7 +12,7 @@ To improve the interpretation of the antibiogram before EUCAST rules are applied
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/example_isolates.html b/reference/example_isolates.html
index 7209b89c..5bb0403b 100644
--- a/reference/example_isolates.html
+++ b/reference/example_isolates.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 a0170c58..d8a2926e 100644
--- a/reference/example_isolates_unclean.html
+++ b/reference/example_isolates_unclean.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 d997d2eb..e2b88aa3 100644
--- a/reference/first_isolate.html
+++ b/reference/first_isolate.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 d9b5a404..1faf26da 100644
--- a/reference/g.test.html
+++ b/reference/g.test.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 3791c76f..15754d6b 100644
--- a/reference/get_episode.html
+++ b/reference/get_episode.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -263,28 +263,27 @@
 <span class="r-in"><span><span class="va">df</span> <span class="op">&lt;-</span> <span class="va">example_isolates</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/sample.html" class="external-link">sample</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/seq.html" class="external-link">seq_len</a></span><span class="op">(</span><span class="fl">2000</span><span class="op">)</span>, size <span class="op">=</span> <span class="fl">100</span><span class="op">)</span>, <span class="op">]</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># indices</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   [1] 13 27  3 18 12 40 50 10 21 46  2 26 20 20  2  8  9 16 11 47 31  1 29 23 31</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [26]  7 44 19 11 48 40 20  9 42 48 23 25  9 15 19 14 43  9 49  5  4  5 45  1 28</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [51]  5  4 39  7 50 11 19 30 14 34 31 51  6 44 20 21 32 48 47 41 16 42 28  9 48</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 22 31 10 45  3  6 25 47 11 38 45 29 33 34 37 47 24 35 33 12 24 24 17 22 36</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1] 31 36  5 28 23 24  7  7 40 40 14 36 37  9 31 33 12 44 21 40 16 44 33  4 25</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 25 34 22 19  6 12 29 20 44 10 43 15  8 38  2  4 26 41  3 27 40 38 11 43 24</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 29  9 27  2 33 28 35 44 33  1 40 12 45 30 14 17 25 20 18 32 39 16 21  6 23</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 37 39 40 27 46 45  9 41 36 30  1 44 13  7  7 27  2 42 29 18 12 43 21 25 22</span>
 <span class="r-in"><span><span class="fu">is_new_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># TRUE/FALSE</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [25] FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [37]  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [49] FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [85]  TRUE FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE  TRUE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [37]  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [49] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE FALSE FALSE FALSE</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># filter on results from the third 60-day episode only, using base R</span></span></span>
 <span class="r-in"><span><span class="va">df</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/which.html" class="external-link">which</a></span><span class="op">(</span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, <span class="fl">60</span><span class="op">)</span> <span class="op">==</span> <span class="fl">3</span><span class="op">)</span>, <span class="op">]</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 2 × 46</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   date       patient   age gender ward      mo           PEN   OXA   FLC   AMX  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2003-02-26 869648     64 M      Outpatie… B_STPHY_AURS R     NA    R     R    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2003-01-27 F35553     51 M      ICU       B_STPHY_EPDR R     NA    S     NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 1 × 46</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   date       patient   age gender ward  mo           PEN   OXA   FLC   AMX  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span> <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2002-06-22 FD8039     75 F      ICU   B_ESCHR_COLI R     NA    NA    NA   </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 36 more variables: AMC &lt;sir&gt;, AMP &lt;sir&gt;, TZP &lt;sir&gt;, CZO &lt;sir&gt;, FEP &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CXM &lt;sir&gt;, FOX &lt;sir&gt;, CTX &lt;sir&gt;, CAZ &lt;sir&gt;, CRO &lt;sir&gt;, GEN &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   TOB &lt;sir&gt;, AMK &lt;sir&gt;, KAN &lt;sir&gt;, TMP &lt;sir&gt;, SXT &lt;sir&gt;, NIT &lt;sir&gt;,</span></span>
@@ -318,19 +317,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">patient</span>, <span class="va">condition</span>, <span class="va">date</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [99]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [96]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    patient date       condition new_episode</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 001213  2009-08-03 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 006827  2009-07-24 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 022060  2004-05-04 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 023456  2002-02-05 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 023456  2011-04-25 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 069276  2015-06-18 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 071099  2005-01-11 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 0E2483  2007-11-10 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 119392  2010-11-01 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 144549  2009-09-01 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 001213  2009-08-03 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 032343  2003-06-09 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 0DBB93  2009-05-08 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 0E2483  2007-04-06 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 114570  2003-04-08 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 119392  2010-11-01 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 144280  2002-12-14 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 146F70  2009-08-14 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 192353  2010-04-06 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 210105  2009-06-13 C         TRUE       </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
@@ -344,19 +343,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">patient</span>, <span class="va">ward</span>, <span class="va">date</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 5</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [95]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [92]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    ward     date       patient new_index new_logical</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Clinical 2009-08-03 001213          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Clinical 2009-07-24 006827          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> ICU      2004-05-04 022060          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2002-02-05 023456          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2011-04-25 023456          2 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Clinical 2015-06-18 069276          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical 2005-01-11 071099          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical 2007-11-10 0E2483          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2010-11-01 119392          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2009-09-01 144549          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Clinical 2003-06-09 032343          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical 2009-05-08 0DBB93          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> Clinical 2007-04-06 0E2483          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> ICU      2003-04-08 114570          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Clinical 2010-11-01 119392          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical 2002-12-14 144280          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical 2009-08-14 146F70          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2010-04-06 192353          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical 2009-06-13 210105          1 TRUE       </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
@@ -372,9 +371,9 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 3 × 5</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>           <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           60             14            39            52</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                28              9            20            23</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          7              5             8             8</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           62             13            36            46</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                28             11            21            24</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          2              2             2             2</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># grouping on patients and microorganisms leads to the same</span></span></span>
 <span class="r-in"><span><span class="co"># results as first_isolate() when using 'episode-based':</span></span></span>
@@ -404,18 +403,18 @@
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 4</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [98]</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    patient mo           ward       flag_episode</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> E67091  B_ENTRC_FCLS Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 317826  B_ESCHR_COLI ICU        TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 869648  B_STPHY_AURS Outpatient TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 521167  B_STPHY_AURS Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 904485  B_ESCHR_COLI Outpatient TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 188588  B_CTRBC_KOSR Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> A22289  B_PSDSC_VLNR ICU        TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 848254  B_STPHY_CONS ICU        TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 183220  B_ESCHR_COLI Clinical   TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 644292  B_STPHY_AURS ICU        TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    patient mo           ward     flag_episode</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 702351  B_ESCHR_COLI ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> D60054  B_STPHY_EPDR Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 144280  B_STPHY_AURS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 829641  B_ESCHR_COLI Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 0DBB93  B_ESCHR_COLI Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 146F70  B_STPHY_CONS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 032343  B_STPHY_CONS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 53F0B8  B_STPHY_CONS Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 904640  B_PROTS_MRBL Clinical TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 8F77B2  B_STPHY_EPDR Clinical TRUE        </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
diff --git a/reference/ggplot_pca.html b/reference/ggplot_pca.html
index 930e81f7..983b585e 100644
--- a/reference/ggplot_pca.html
+++ b/reference/ggplot_pca.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 dbb27bc5..d4706a04 100644
--- a/reference/ggplot_sir.html
+++ b/reference/ggplot_sir.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/guess_ab_col.html b/reference/guess_ab_col.html
index 022b88e6..dd46f4cc 100644
--- a/reference/guess_ab_col.html
+++ b/reference/guess_ab_col.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 abd6e68d..72c6a026 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 86784dbb..94b1e4ea 100644
--- a/reference/intrinsic_resistant.html
+++ b/reference/intrinsic_resistant.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 8cd4b559..d8a6e34f 100644
--- a/reference/italicise_taxonomy.html
+++ b/reference/italicise_taxonomy.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 5b1d6c9f..93b80c5a 100644
--- a/reference/join.html
+++ b/reference/join.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 8e39e14d..0a5b0d54 100644
--- a/reference/key_antimicrobials.html
+++ b/reference/key_antimicrobials.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 25a68d3e..32fb9c16 100644
--- a/reference/kurtosis.html
+++ b/reference/kurtosis.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -199,9 +199,9 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">kurtosis</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Normal.html" class="external-link">rnorm</a></span><span class="op">(</span><span class="fl">10000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 3.010921</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 3.017801</span>
 <span class="r-in"><span><span class="fu">kurtosis</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Normal.html" class="external-link">rnorm</a></span><span class="op">(</span><span class="fl">10000</span><span class="op">)</span>, excess <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.03927336</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.04669348</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/like.html b/reference/like.html
index 98d645e6..e98d2e30 100644
--- a/reference/like.html
+++ b/reference/like.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 239b596c..38ddd233 100644
--- a/reference/mdro.html
+++ b/reference/mdro.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 ff2f874d..e60f315e 100644
--- a/reference/mean_amr_distance.html
+++ b/reference/mean_amr_distance.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 36ee9d7c..c7489bfa 100644
--- a/reference/microorganisms.codes.html
+++ b/reference/microorganisms.codes.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 0a53adef..5fe56835 100644
--- a/reference/microorganisms.groups.html
+++ b/reference/microorganisms.groups.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 b7a34f66..63ef3703 100644
--- a/reference/microorganisms.html
+++ b/reference/microorganisms.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 ff817b2f..9e3db1bd 100644
--- a/reference/mo_matching_score.html
+++ b/reference/mo_matching_score.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 66d02524..2d20c055 100644
--- a/reference/mo_property.html
+++ b/reference/mo_property.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_source.html b/reference/mo_source.html
index 4e232346..d8d553a1 100644
--- a/reference/mo_source.html
+++ b/reference/mo_source.html
@@ -12,7 +12,7 @@ This is the fastest way to have your organisation (or analysis) specific codes p
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/pca.html b/reference/pca.html
index c3738383..23a27fc4 100644
--- a/reference/pca.html
+++ b/reference/pca.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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.html b/reference/plot.html
index 1ce58da7..e67c8d47 100644
--- a/reference/plot.html
+++ b/reference/plot.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/proportion.html b/reference/proportion.html
index a83d3bd5..34251383 100644
--- a/reference/proportion.html
+++ b/reference/proportion.html
@@ -12,7 +12,7 @@ resistance() should be used to calculate resistance, susceptibility() should be
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/random.html b/reference/random.html
index b5798a03..169b6d9c 100644
--- a/reference/random.html
+++ b/reference/random.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 ddbfeee6..4fe41a91 100644
--- a/reference/resistance_predict.html
+++ b/reference/resistance_predict.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <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 a4d62971..1fb508e2 100644
--- a/reference/skewness.html
+++ b/reference/skewness.html
@@ -12,7 +12,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -198,7 +198,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">skewness</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Uniform.html" class="external-link">runif</a></span><span class="op">(</span><span class="fl">1000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.09266272</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.0255901</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/translate.html b/reference/translate.html
index 5b48a4c8..e4e59d9f 100644
--- a/reference/translate.html
+++ b/reference/translate.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9033</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.0.0.9034</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/search.json b/search.json
index 415c94b5..adb5de92 100644
--- a/search.json
+++ b/search.json
@@ -1 +1 @@
-[{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to conduct AMR data analysis","text":"Conducting AMR data analysis unfortunately requires -depth knowledge different scientific fields, makes hard right. least, requires: Good questions (always start !) reliable data thorough understanding (clinical) epidemiology, understand clinical epidemiological relevance possible bias results thorough understanding (clinical) microbiology/infectious diseases, understand microorganisms causal infections implications pharmaceutical treatment, well understanding intrinsic acquired microbial resistance Experience data analysis microbiological tests results, understand determination limitations MIC values interpretations SIR values Availability biological taxonomy microorganisms probably normalisation factors pharmaceuticals, defined daily doses (DDD) Available (inter-)national guidelines, profound methods apply course, instantly provide knowledge experience. AMR package, aimed providing (1) tools simplify antimicrobial resistance data cleaning, transformation analysis, (2) methods easily incorporate international guidelines (3) scientifically reliable reference data, including requirements mentioned . AMR package enables standardised reproducible AMR data analysis, application evidence-based rules, determination first isolates, translation various codes microorganisms antimicrobial agents, determination (multi-drug) resistant microorganisms, calculation antimicrobial resistance, prevalence future trends.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to conduct AMR data analysis","text":"tutorial, create fake demonstration data work . can skip Cleaning data already data ready. start analysis, try make structure data generally look like :","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"How to conduct AMR data analysis","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2 RStudio. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. also use cleaner package, can used cleaning data creating frequency tables. AMR package contains data set example_isolates_unclean, might look data users extracted laboratory systems: AMR data analysis, like microorganism column contain valid, --date taxonomy, antibiotic columns cleaned SIR values well.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"dplyr\", \"ggplot2\", \"AMR\")) example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"How to conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 11 Dec 2022. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Microorganism translation was uncertain for four microorganisms. Run #>   mo_uncertainties() to review these uncertainties, or use #>   add_custom_microorganisms() to add custom entries. mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), Salmonella #>               Aurelianis (0.595), Salmonella Aarhus (0.588), Salmonella Amounderness #>               (0.587), Selenomonas artemidis (0.571), Salmonella choleraesuis #>               arizonae (0.562), Streptococcus anginosus anginosus (0.561), and #>               Salmonella Abaetetuba (0.548) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% of total where a microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,626 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,616 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2626        Length:2626        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-14   #>  Mode  :character   Mode  :character   Median :2015-06-05   #>                                        Mean   :2015-06-15   #>                                        3rd Qu.:2017-08-23   #>                                        Max.   :2020-01-01   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :43.2% (n=1134)   %R   :36.1% (n=947)    #>  Unique:4              %SI  :56.8% (n=1492)   %SI  :63.9% (n=1679)   #>  #1    :B_ESCHR_COLI   - %S :41.1% (n=1080)   - %S :52.7% (n=1383)   #>  #2    :B_STPHY_AURS   - %I :15.7% (n=412)    - %I :11.3% (n=296)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1102)   %R   :37.0% (n=971)    TRUE:2626      #>  %SI  :58.0% (n=1524)   %SI  :63.0% (n=1655)                  #>  - %S :51.9% (n=1362)   - %S :59.9% (n=1574)                  #>  - %I : 6.2% (n=162)    - %I : 3.1% (n=81)                    #>   glimpse(our_data_1st) #> Rows: 2,626 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"J8\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, R, S, S, S, S, R, S, S, R, R, R, R, I, S,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, R,… #> $ CIP        <sir> S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1808          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1250 #> 2 Staphylococcus aureus      661 #> 3 Streptococcus pneumoniae   399 #> 4 Klebsiella pneumoniae      316"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,626 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2016-06-14 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,626 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI R     S     #>  7 B_ESCHR_COLI R     S     #>  8 B_ESCHR_COLI S     S     #>  9 B_STPHY_AURS S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,626 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     S     #>  7 B_ESCHR_COLI R     S     S     S     #>  8 B_ESCHR_COLI S     S     S     S     #>  9 B_STPHY_AURS S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,616 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 971 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN R     S     S     R     TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS R     S     S     R     TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI S     S     S     R     TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI S     S     S     R     TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI S     S     S     R     TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS S     S     S     R     TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN S     S     S     R     TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS S     S     S     R     TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS S     S     S     R     TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN S     S     S     R     TRUE  #> # ℹ 961 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"How to conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. next example, force language Spanish using language argument:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) antibiogram(example_isolates,             mo_transform = \"gramstain\",             antibiotics = aminoglycosides(),             ab_transform = \"name\",             language = \"es\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"How to conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"How to conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"How to conduct AMR data analysis","text":"create WISCA, must state combination therapy antibiotics argument (similar Combination Antibiogram), define syndromic group syndromic_group argument (similar Syndromic Antibiogram) cases predefined based clinical demographic characteristics (e.g., endocarditis 75+ females). next example simplification without clinical characteristics, just gives idea WISCA can created:","code":"wisca <- antibiogram(example_isolates,                      antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),                      mo_transform = \"gramstain\",                      minimum = 10, # this should be >= 30, but now just as example                      syndromic_group = ifelse(example_isolates$age >= 65 &                                                 example_isolates$gender == \"M\",                                               \"WISCA Group 1\", \"WISCA Group 2\")) wisca"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"How to conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.1, 2016). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          S         I            I          I            S            S #> 2          S         S            I          R            S            I #> 3          I         S            I          I            S            I #> 4          R         S            I          I            I            I #> 5          I         S            S          S            S            S #> 6          S         I            I          S            S            I #>   kanamycin #> 1         R #> 2         S #> 3         I #> 4         I #> 5         R #> 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 9.577e-17 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 3: S < < R Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 52 169 rows 23 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, oxygen_tolerance, source, lpsn, lpsn_parent, lpsn_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.7 MB) Download Microsoft Excel workbook (5.2 MB) Download Apache Feather file (5.5 MB) Download Apache Parquet file (2.6 MB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (48.6 MB) Download IBM SPSS Statistics data file (17.8 MB) Download Stata DTA file (48.6 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org December 11th, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microoganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (1.4 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (68 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 28 885 rows 12 columns, containing following column names:guideline, type, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 10 July 2023 17:04:12 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (59 kB) Download tab-separated text file (2.2 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (87 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (7.7 MB) Download IBM SPSS Statistics data file (4.4 MB) Download Stata DTA file (7.6 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2011-2023) EUCAST (2011-2023).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (9.5 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 503 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (43 kB) Download Microsoft Excel workbook (25 kB) Download Apache Feather file (21 kB) Download Apache Parquet file (9 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (0.1 MB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant :  (), ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021), ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Data sets for download / own use","text":"data set 444 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 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (42 kB) Download Microsoft Excel workbook (18 kB) Download Apache Feather file (17 kB) Download Apache Parquet file (12 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (54 kB) Download Stata DTA file (68 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-8","dir":"Articles","previous_headings":"microorganisms.groups: Species Groups and Microbiological Complexes","what":"Source","title":"Data sets for download / own use","text":"data set contains species groups microbiological complexes, used clinical_breakpoints data set.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Data sets for download / own use","text":"data set 4 957 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (22 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (91 kB) Download Apache Feather file (85 kB) Download Apache Parquet file (57 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (0.1 MB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-9","dir":"Articles","previous_headings":"microorganisms.codes: Common Laboratory Codes","what":"Source","title":"Data sets for download / own use","text":"data set contains commonly used codes microorganisms, laboratory systems WHONET.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 32 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 22 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions — AMR-deprecated","title":"Deprecated Functions — AMR-deprecated","text":"functions -called 'Deprecated'. removed future release. Using functions give warning name function replaced (one).","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions — AMR-deprecated","text":"","code":"NA_rsi_  as.rsi(x, ...)  facet_rsi(...)  geom_rsi(...)  ggplot_rsi(...)  ggplot_rsi_predict(...)  is.rsi(...)  is.rsi.eligible(...)  labels_rsi_count(...)  n_rsi(...)  random_rsi(...)  rsi_df(...)  rsi_predict(...)  scale_rsi_colours(...)  theme_rsi(...)"},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Deprecated Functions — AMR-deprecated","text":"object class rsi (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2023\". Supported guideline currently EUCAST (2011-2023) CLSI (2011-2023). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_ecoff  logical use .sir(), indicate ECOFF (Epidemiological Cut-) values must used - default FALSE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_locale  language use AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options :   add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within data team, save options file remote file location, shared network drive. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~52 000 microorganisms (updated december 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"The AMR Package — AMR","text":"cite AMR publications use: Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). \"AMR: R Package Working Antimicrobial Resistance Data.\" Journal Statistical Software, 104(3), 1-31. doi:10.18637/jss.v104.i03 . BibTeX entry LaTeX users :","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"The AMR Package — AMR","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.s.berends@umcg.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Use function e.g. clinical texts health care records. returns list antimicrobial drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"ab_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_ab = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_ab type = \"drug\": column name antibiotics data set translate antibiotic abbreviations , using ab_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .ab()","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"function also internally used .ab(), although searches first drug name throw note drug names returned. Note: .ab() function may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"default, function search antimicrobial drug names. text elements searched official names, ATC codes brand names. uses .ab() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(abx = ab_from_text(clinical_text)) returned AB codes can transformed official names, groups, etc. ab_* functions ab_name() ab_group(), using translate_ab argument. using collapse, function return character:df %>% mutate(abx = ab_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"# mind the bad spelling of amoxicillin in this line, # straight from a true health care record: ab_from_text(\"28/03/2020 regular amoxicilliin 500mg po tid\") #> [[1]] #> Class 'ab' #> [1] AMX #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") #> [[1]] #> Class 'ab' #> [1] AMX CIP #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"dose\") #> [[1]] #> [1] 500 400 #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"admin\") #> [[1]] #> [1] \"oral\" \"iv\"   #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", collapse = \", \") #> [1] \"AMX, CIP\" # \\donttest{ # if you want to know which antibiotic groups were administered, do e.g.: abx <- ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") ab_group(abx[[1]]) #> [1] \"Beta-lactams/penicillins\" \"Quinolones\"                if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antibiotic — ab_property","title":"Get Properties of an Antibiotic — ab_property","text":"Use functions return specific property antibiotic antibiotics data set. input values evaluated internally .ab().","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"ab_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  ab_cid(x, ...)  ab_synonyms(x, ...)  ab_tradenames(x, ...)  ab_group(x, language = get_AMR_locale(), ...)  ab_atc(x, only_first = FALSE, ...)  ab_atc_group1(x, language = get_AMR_locale(), ...)  ab_atc_group2(x, language = get_AMR_locale(), ...)  ab_loinc(x, ...)  ab_ddd(x, administration = \"oral\", ...)  ab_ddd_units(x, administration = \"oral\", ...)  ab_info(x, language = get_AMR_locale(), ...)  ab_url(x, open = FALSE, ...)  ab_property(x, property = \"name\", language = get_AMR_locale(), ...)  set_ab_names(   data,   ...,   property = \"name\",   language = get_AMR_locale(),   snake_case = NULL )"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antibiotic — ab_property","text":"x (vector ) text can coerced valid antibiotic drug code .ab() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. lead e.g. \"polymyxin B\" \"polymyxin b\". ... case set_ab_names() data data.frame: columns select (supports tidy selection column1:column4), otherwise arguments passed .ab() only_first logical indicate whether first ATC code must returned, giving preference J0-codes (.e., antimicrobial drug group) administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antibiotics data set: vector_or(colnames(antibiotics), sort = FALSE). data data.frame columns need renamed, character vector column names snake_case logical indicate whether names -called snake case: lower case spaces/slashes replaced underscore (_)","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antibiotic — ab_property","text":"integer case ab_cid() named list case ab_info() multiple ab_atc()/ab_synonyms()/ab_tradenames() double case ab_ddd() data.frame case set_ab_names() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antibiotic — ab_property","text":"output translated possible. function ab_url() return direct URL official website. warning returned required ATC code available. function set_ab_names() special column renaming function data.frames. renames columns names resemble antimicrobial drugs. always makes sure new column names unique. property = \"atc\" set, preference given ATC codes J-group.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antibiotic — ab_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"# all properties: ab_name(\"AMX\") #> [1] \"Amoxicillin\" ab_atc(\"AMX\") #> [1] \"J01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_tradenames(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_group(\"AMX\") #> [1] \"Beta-lactams/penicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                           Amoxicillin  #> \"https://www.whocc.no/atc_ddd_index/?code=J01CA04&showdescription=no\"   # smart lowercase transformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #> [1] \"16365-9\" \"25274-2\" \"3344-9\"  \"80133-2\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #> [1] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"87604-5\" ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antibiotics data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"# \\donttest{  # returns NA and throws a warning (which is suppressed here): suppressWarnings(   as.ab(\"testab\") ) #> Class 'ab' #> [1] <NA>  # now add a custom entry - it will be considered by as.ab() and # all ab_*() functions add_custom_antimicrobials(   data.frame(     ab = \"TESTAB\",     name = \"Test Antibiotic\",     # you can add any property present in the     # 'antibiotics' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal antibiotics data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://www.whocc.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal antibiotics data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antibiotic selectors work x <- data.frame(   random_column = \"some value\",   coflu = as.sir(\"S\"),   ampicillin = as.sir(\"R\") ) x #>   random_column coflu ampicillin #> 1    some value     S          R x[, betalactams()] #> ℹ For betalactams() using columns 'coflu' (co-fluampicil) and #>   'ampicillin' #>   coflu ampicillin #> 1     S          R # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Microorganisms — add_custom_microorganisms","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"add_custom_microorganisms() can add custom microorganisms, non-taxonomic outcome laboratory analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"add_custom_microorganisms(x)  clear_custom_microorganisms()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"x data.frame resembling microorganisms data set, least containing column \"genus\" (case-insensitive)","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter cloacae cloacae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2023\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $gbif #> [1] NA #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, even though a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1979-10-29  43  43.69589         20 #> 2  1961-12-14  61  61.56986         38 #> 3  1969-05-08  54  54.17260         30 #> 4  1974-01-15  49  49.48219         25 #> 5  1937-01-04  86  86.51233         62 #> 6  1963-10-12  59  59.74247         36 #> 7  1935-12-23  87  87.54521         64 #> 8  1943-01-10  80  80.49589         56 #> 9  1960-11-11  62  62.66027         39 #> 10 1999-07-03  24  24.01918          0"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for antibiogram knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set: \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\")) --------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 10 × 7 #>    `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 CoNS (43-309)              0    86    52     0    52    22 #>  2 E. coli (0-462)          100    98   100    NA   100    97 #>  3 E. faecalis (0-39)         0     0   100     0    NA     0 #>  4 K. pneumoniae (0-58)      NA    90   100    NA   100    90 #>  5 P. aeruginosa (17-30)     NA   100    NA     0    NA   100 #>  6 P. mirabilis (0-34)       NA    94    94    NA    NA    94 #>  7 S. aureus (2-233)         NA    99    NA    NA    NA    98 #>  8 S. epidermidis (8-163)     0    79    NA     0    NA    51 #>  9 S. hominis (3-80)         NA    92    NA    NA    NA    85 #> 10 S. pneumoniae (11-117)     0     0    NA     0    NA     0  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Pathogen (N min-max)`   J01GB01 J01GB03 J01GB04 J01GB06 #> * <chr>                      <dbl>   <dbl>   <dbl>   <dbl> #> 1 Gram-negative (35-686)        96      96       0      98 #> 2 Gram-positive (436-1170)      34      63       0       0  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 5 × 3 #>   `Pathogen (N min-max)`                           Imipenem Meropenem #> * <chr>                                               <dbl>     <dbl> #> 1 Coagulase-negative Staphylococcus (CoNS) (48-48)       52        52 #> 2 Enterococcus faecalis (0-38)                          100        NA #> 3 Escherichia coli (418-422)                            100       100 #> 4 Klebsiella pneumoniae (51-53)                         100       100 #> 5 Proteus mirabilis (27-32)                              94        NA   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # A tibble: 2 × 4 #>   `Pathogen (N min-max)`     TZP `TZP + GEN` `TZP + TOB` #> * <chr>                    <dbl>       <dbl>       <dbl> #> 1 Gram-negative (641-693)     88          99          98 #> 2 Gram-positive (345-1044)    86          98          95  # names of antibiotics do not need to resemble columns exactly: antibiogram(example_isolates,   antibiotics = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # A tibble: 2 × 3 #>   `Pathogen (N min-max)`  Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>                           <dbl>                        <dbl> #> 1 Gram-negative (684-694)            91                           99 #> 2 Gram-positive (724-847)            77                           93   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 14 × 8 #>    `Syndromic Group` `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>             <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 Clinical          CoNS (23-205)             NA    89    57    NA    57    26 #>  2 ICU               CoNS (10-73)              NA    79    NA    NA    NA    NA #>  3 Outpatient        CoNS (3-31)               NA    84    NA    NA    NA    NA #>  4 Clinical          E. coli (0-299)          100    98   100    NA   100    98 #>  5 ICU               E. coli (0-137)          100    99   100    NA   100    96 #>  6 Clinical          K. pneumoniae (0-51)      NA    92   100    NA   100    92 #>  7 Clinical          P. mirabilis (0-30)       NA   100    NA    NA    NA   100 #>  8 Clinical          S. aureus (2-150)         NA    99    NA    NA    NA    97 #>  9 ICU               S. aureus (0-66)          NA   100    NA    NA    NA    NA #> 10 Clinical          S. epidermidis (4-79)     NA    82    NA    NA    NA    55 #> 11 ICU               S. epidermidis (4-75)     NA    72    NA    NA    NA    41 #> 12 Clinical          S. hominis (1-45)         NA    96    NA    NA    NA    94 #> 13 Clinical          S. pneumoniae (5-78)       0     0    NA     0    NA     0 #> 14 ICU               S. pneumoniae (5-30)       0     0    NA     0    NA     0  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for mo_genus()  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antibiotics = aminoglycosides(),   ab_transform = \"name\",   syndromic_group = ifelse(ex1$ward == \"ICU\",     \"UCI\", \"No UCI\"   ),   language = \"es\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Grupo sindrómico` `Patógeno (N min-max)` Amikacina Gentamicina Tobramicina #> * <chr>              <chr>                      <dbl>       <dbl>       <dbl> #> 1 No UCI             E. coli (0-325)              100          98          98 #> 2 UCI                E. coli (0-137)              100          99          96   # Weighted-incidence syndromic combination antibiogram (WISCA) ---------  # the data set could contain a filter for e.g. respiratory specimens/ICU antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   minimum = 10, # this should be >=30, but now just as example   syndromic_group = ifelse(example_isolates$age >= 65 &     example_isolates$gender == \"M\",   \"WISCA Group 1\", \"WISCA Group 2\"   ) ) #> # A tibble: 4 × 6 #>   `Syndromic Group` `Pathogen (N min-max)`    AMC `AMC + CIP`   TZP `TZP + TOB` #> * <chr>             <chr>                   <dbl>       <dbl> <dbl>       <dbl> #> 1 WISCA Group 1     Gram-negative (261-285)    76          95    89          99 #> 2 WISCA Group 2     Gram-negative (380-442)    76          98    88          98 #> 3 WISCA Group 1     Gram-positive (123-406)    76          89    81          95 #> 4 WISCA Group 2     Gram-positive (222-732)    76          89    88          95   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ For ureidopenicillins() using column 'TZP' (piperacillin/tazobactam)  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Pathogen (N)          | Piperacillin/tazobactam| #> |:---------------------|-----------------------:| #> |CoNS (33)             |                      30| #> |*E. coli* (416)       |                      94| #> |*K. pneumoniae* (53)  |                      89| #> |*S. pneumoniae* (112) |                     100|   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   syndromic_group = \"ward\" )  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab1) }  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab2) }   plot(ab1)  plot(ab2)  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antibiotic Selectors — antibiotic_class_selectors","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions allow filtering rows selecting columns based antibiotic test results specific antibiotic class group (according antibiotics data set), without need define columns antibiotic abbreviations. short, column name resembles antimicrobial drug, picked functions matches pharmaceutical class: \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" picked cephalosporins().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"ab_class(ab_class, only_sir_columns = FALSE, only_treatable = TRUE, ...)  ab_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, ...)  antifungals(only_sir_columns = FALSE, ...)  antimycobacterials(only_sir_columns = FALSE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE, ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, ...)  cephalosporins_1st(only_sir_columns = FALSE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, ...)  cephalosporins_4th(only_sir_columns = FALSE, ...)  cephalosporins_5th(only_sir_columns = FALSE, ...)  fluoroquinolones(only_sir_columns = FALSE, ...)  glycopeptides(only_sir_columns = FALSE, ...)  lincosamides(only_sir_columns = FALSE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  streptogramins(only_sir_columns = FALSE, ...)  quinolones(only_sir_columns = FALSE, ...)  tetracyclines(only_sir_columns = FALSE, ...)  trimethoprims(only_sir_columns = FALSE, ...)  ureidopenicillins(only_sir_columns = FALSE, ...)  administrable_per_os(only_sir_columns = FALSE, ...)  administrable_iv(only_sir_columns = FALSE, ...)  not_intrinsic_resistant(   only_sir_columns = FALSE,   col_mo = NULL,   version_expertrules = 3.3,   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"ab_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antibiotics data set searched (case-insensitive) value. only_sir_columns logical indicate whether columns class sir must selected (default FALSE), see .sir() only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE) ... ignored, place allow future extensions filter expression evaluated antibiotics data set, name %like% \"trim\" col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"(internally) character vector column names, additional class \"ab_selector\"","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), amphotericin B-high (AMH), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amphotericin B (AMB), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # Examples sections below are split into 'base R', 'dplyr', and 'data.table':   # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows  # select only antibiotic columns with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  2 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  3 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  4 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  5 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  6 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  7 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  8 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  9 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA    #> 10 NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB  S     NA    S     S     #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN  S     NA    S     S     #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB  S     NA    S     S     #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI  R     NA    NA    R     #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antibiotic selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP R     NA    NA    R     #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS R     R     R     R     #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS R     R     R     R     #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS R     R     R     R     #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS R     R     R     R     #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    NA    NA    NA    NA    #>  2 NA    NA    NA    NA    NA    NA    NA    #>  3 R     NA    NA    R     R     R     R     #>  4 NA    NA    NA    NA    NA    NA    R     #>  5 NA    NA    NA    NA    NA    NA    R     #>  6 NA    NA    NA    NA    NA    NA    R     #>  7 NA    NA    NA    NA    NA    NA    R     #>  8 NA    NA    NA    NA    NA    NA    R     #>  9 R     NA    NA    NA    S     NA    S     #> 10 R     NA    NA    NA    S     NA    S     #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows  # ab_selector() applies a filter in the `antibiotics` data set and is thus # very flexible. For instance, to select antibiotic columns with an oral DDD # of at least 1 gram: example_isolates[, ab_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For ab_selector(oral_ddd > 1 & oral_units == \"g\") using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  2 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  3 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA    #>  7 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  8 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  9 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA    #> # ℹ 1,990 more rows  # \\donttest{ # dplyr -------------------------------------------------------------------  if (require(\"dplyr\")) {   tibble(kefzol = random_sir(5)) %>%     select(cephalosporins()) } #> ℹ For cephalosporins() using column 'kefzol' (cefazolin) #> # A tibble: 5 × 1 #>   kefzol #>   <sir>  #> 1 I      #> 2 I      #> 3 S      #> 4 I      #> 5 R       if (require(\"dplyr\")) {   # get AMR for all aminoglycosides e.g., per ward:   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), resistance)) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(aminoglycosides(), resistance)`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 5 #>   ward         GEN   TOB   AMK   KAN #>   <chr>      <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 #> 2 ICU        0.290 0.400 0.662     1 #> 3 Outpatient 0.2   0.368 0.605    NA if (require(\"dplyr\")) {   # You can combine selectors with '&' to be more specific:   example_isolates %>%     select(penicillins() & administrable_per_os()) } #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get AMR for only drugs that matter - no intrinsic resistance:   example_isolates %>%     filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%     group_by(ward) %>%     summarise(across(not_intrinsic_resistant(), resistance)) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ For not_intrinsic_resistant() removing columns 'PEN' #>   (benzylpenicillin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'TEC' #>   (teicoplanin), 'ERY' (erythromycin), 'CLI' (clindamycin), 'AZM' #>   (azithromycin), and 'RIF' (rifampicin) #> Warning: There were 52 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `across(not_intrinsic_resistant(), resistance)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by warning: #> ! Introducing NA: no results available for OXA in group: ward = \"Clinical\" #> (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 51 remaining warnings. #> # A tibble: 3 × 33 #>   ward    OXA   FLC    AMX    AMC    AMP     TZP     CZO     FEP     CXM     FOX #>   <chr> <dbl> <dbl>  <dbl>  <dbl>  <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clin…    NA    NA  0.606  0.121  0.606  0.0504  0.0656  0.0159  0.0622  0.0648 #> 2 ICU      NA    NA  0.535  0.172  0.535  0.119  NA       0.0722  0.0828  0.0992 #> 3 Outp…    NA    NA NA     NA     NA     NA      NA      NA      NA      NA      #> # ℹ 22 more variables: CTX <dbl>, CAZ <dbl>, CRO <dbl>, GEN <dbl>, TOB <dbl>, #> #   AMK <dbl>, KAN <dbl>, TMP <dbl>, SXT <dbl>, NIT <dbl>, FOS <dbl>, #> #   CIP <dbl>, MFX <dbl>, TCY <dbl>, TGC <dbl>, DOX <dbl>, IPM <dbl>, #> #   MEM <dbl>, MTR <dbl>, CHL <dbl>, COL <dbl>, MUP <dbl> if (require(\"dplyr\")) {   # get susceptibility for antibiotics whose name contains \"trim\":   example_isolates %>%     filter(first_isolate()) %>%     group_by(ward) %>%     summarise(across(ab_selector(name %like% \"trim\"), susceptibility)) } #> ℹ For ab_selector(name %like% \"trim\") using columns 'TMP' (trimethoprim) #>   and 'SXT' (trimethoprim/sulfamethoxazole) #> # A tibble: 3 × 3 #>   ward         TMP   SXT #>   <chr>      <dbl> <dbl> #> 1 Clinical   0.627 0.808 #> 2 ICU        0.549 0.778 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(carbapenems()) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB':   example_isolates %>%     select(mo, aminoglycosides()) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # any() and all() work in dplyr's filter() too:   example_isolates %>%     filter(       any(aminoglycosides() == \"R\"),       all(cephalosporins_2nd() == \"R\")     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For cephalosporins_2nd() using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> # A tibble: 112 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  7 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #> 10 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #> # ℹ 102 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # also works with c():   example_isolates %>%     filter(any(c(carbapenems(), aminoglycosides()) == \"R\")) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 531 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  4 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  5 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> # ℹ 521 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # not setting any/all will automatically apply all():   example_isolates %>%     filter(aminoglycosides() == \"R\") } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ Assuming a filter on all 4 aminoglycosides. Wrap around all() or #>   any() to prevent this note. #> # A tibble: 427 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  3 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  4 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  6 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-16 D25302     65 F      ICU      B_STRPT_ANGN S     NA    NA    S     #> # ℹ 417 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # this will select columns 'mo' and all antimycobacterial drugs ('RIF'):   example_isolates %>%     select(mo, ab_class(\"mycobact\")) } #> ℹ For ab_class(\"mycobact\") using column 'RIF' (rifampicin) #> # A tibble: 2,000 × 2 #>    mo           RIF   #>    <mo>         <sir> #>  1 B_ESCHR_COLI R     #>  2 B_ESCHR_COLI R     #>  3 B_STPHY_EPDR NA    #>  4 B_STPHY_EPDR NA    #>  5 B_STPHY_EPDR NA    #>  6 B_STPHY_EPDR NA    #>  7 B_STPHY_AURS NA    #>  8 B_STPHY_AURS NA    #>  9 B_STPHY_EPDR NA    #> 10 B_STPHY_EPDR NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get bug/drug combinations for only glycopeptides in Gram-positives:   example_isolates %>%     filter(mo_is_gram_positive()) %>%     select(mo, glycopeptides()) %>%     bug_drug_combinations() %>%     format() } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ For glycopeptides() using columns 'VAN' (vancomycin) and 'TEC' #>   (teicoplanin) #> # A tibble: 2 × 8 #>   Group      Drug  CoNS  `E. faecalis` `S. aureus` `S. epidermidis` `S. hominis` #>   <chr>      <chr> <chr> <chr>         <chr>       <chr>            <chr>        #> 1 \"Glycopep… Teic… \"\"    \"\"            \" 0.0% (0/… \"64.1% (25/39)\"  \" 6.8% (4/5… #> 2 \"\"         Vanc… \" 0.… \" 0.0% (0/39… \" 0.0% (0/… \" 0.0% (0/171)\"  \" 0.0% (0/8… #> # ℹ 1 more variable: `S. pneumoniae` <chr> if (require(\"dplyr\")) {   data.frame(     some_column = \"some_value\",     J01CA01 = \"S\"   ) %>% # ATC code of ampicillin     select(penicillins()) # only the 'J01CA01' column will be selected } #> ℹ For penicillins() using column 'J01CA01' (ampicillin) #>   J01CA01 #> 1       S if (require(\"dplyr\")) {   # with recent versions of dplyr, this is all equal:   x <- example_isolates[carbapenems() == \"R\", ]   y <- example_isolates %>% filter(carbapenems() == \"R\")   z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\"))   identical(x, y) && identical(y, z) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] TRUE   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] \"IPM\" \"MEM\" #> attr(,\"class\") #> [1] \"ab_selector\" \"character\"   if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>        IPM  MEM #>    1: <NA> <NA> #>    2: <NA> <NA> #>    3: <NA> <NA> #>    4: <NA> <NA> #>    5: <NA> <NA> #>   ---           #> 1996: <NA> <NA> #> 1997:    S    S #> 1998:    S    S #> 1999:    S    S #> 2000:    S    S  # for multiple selections or AB selectors, `with = FALSE` is not needed: if (require(\"data.table\")) {   dt[, c(\"mo\", aminoglycosides())] } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>                 mo  GEN  TOB  AMK  KAN #>    1: B_ESCHR_COLI <NA> <NA> <NA> <NA> #>    2: B_ESCHR_COLI <NA> <NA> <NA> <NA> #>    3: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>    4: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>    5: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>   ---                                  #> 1996: B_STRPT_PNMN    R    R    R    R #> 1997: B_ESCHR_COLI    S    S    S <NA> #> 1998: B_STPHY_CONS    S <NA> <NA> <NA> #> 1999: B_ESCHR_COLI    S    S <NA> <NA> #> 2000: B_KLBSL_PNMN    S    S <NA> <NA> if (require(\"data.table\")) {   dt[, c(carbapenems(), aminoglycosides())] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>        IPM  MEM  GEN  TOB  AMK  KAN #>    1: <NA> <NA> <NA> <NA> <NA> <NA> #>    2: <NA> <NA> <NA> <NA> <NA> <NA> #>    3: <NA> <NA> <NA> <NA> <NA> <NA> #>    4: <NA> <NA> <NA> <NA> <NA> <NA> #>    5: <NA> <NA> <NA> <NA> <NA> <NA> #>   ---                               #> 1996: <NA> <NA>    R    R    R    R #> 1997:    S    S    S    S    S <NA> #> 1998:    S    S    S <NA> <NA> <NA> #> 1999:    S    S    S    S <NA> <NA> #> 2000:    S    S    S    S <NA> <NA>  # row filters are also supported: if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), ] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>            date patient age gender       ward           mo PEN  OXA  FLC  AMX #>   1: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   2: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   3: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   4: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   5: 2002-02-05  067927  45      F        ICU B_SERRT_MRCS   R <NA> <NA>    R #>  ---                                                                          #> 905: 2005-04-12  D71461  70      M        ICU B_ESCHR_COLI   R <NA> <NA>    S #> 906: 2009-11-12  650870  69      F Outpatient B_ESCHR_COLI   R <NA> <NA>    S #> 907: 2012-06-14  8CBCF2  41      F   Clinical B_STPHY_CONS   R    S    S <NA> #> 908: 2012-10-11  175532  78      M   Clinical B_ESCHR_COLI   R <NA> <NA>    R #> 909: 2013-11-23  A97263  77      M   Clinical B_KLBSL_PNMN   R <NA> <NA>    R #>      AMC  AMP  TZP  CZO  FEP CXM  FOX  CTX  CAZ  CRO  GEN  TOB  AMK  KAN  TMP #>   1:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   2:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   3:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   4:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   5:   R    R <NA>    R <NA>   R    R <NA> <NA> <NA> <NA> <NA> <NA> <NA>    S #>  ---                                                                          #> 905:   S    S    S <NA>    S   S    S    S    S    S    S    S    S <NA> <NA> #> 906:   S    S    S    S    S   S    S    S    S    S    S    S    S <NA>    S #> 907:   S <NA> <NA>    S    S   S    S    S    R    S    S <NA> <NA> <NA>    S #> 908:   S    R    S <NA>    S   R    R    S    S    S    S    S <NA> <NA>    R #> 909:   S    R    S <NA>    S   S    S    S    S    S    S    S <NA> <NA>    S #>      SXT  NIT  FOS  LNZ  CIP  MFX VAN  TEC  TCY  TGC  DOX ERY CLI AZM IPM  MEM #>   1:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   2:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   3:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   4:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   5:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>  ---                                                                           #> 905:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 906:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 907:   S <NA> <NA> <NA>    S <NA>   S <NA> <NA> <NA> <NA>   S   S   S   S    S #> 908:   R    R <NA>    R    R    R   R    R <NA> <NA> <NA>   R   R   R   S    S #> 909:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #>       MTR  CHL  COL  MUP  RIF #>   1: <NA> <NA> <NA> <NA>    R #>   2: <NA> <NA> <NA> <NA>    R #>   3: <NA> <NA>    R <NA>    R #>   4: <NA> <NA>    R <NA>    R #>   5: <NA> <NA>    R <NA>    R #>  ---                          #> 905: <NA> <NA> <NA> <NA>    R #> 906: <NA> <NA> <NA> <NA>    R #> 907: <NA> <NA>    R <NA> <NA> #> 908: <NA> <NA>    S <NA>    R #> 909: <NA> <NA>    S <NA>    R if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), penicillins(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #>      PEN  OXA  FLC  AMX AMC  AMP  TZP #>   1:   R <NA> <NA> <NA>   I <NA> <NA> #>   2:   R <NA> <NA> <NA>   I <NA> <NA> #>   3:   R <NA> <NA> <NA>   I <NA> <NA> #>   4:   R <NA> <NA> <NA>   I <NA> <NA> #>   5:   R <NA> <NA>    R   R    R <NA> #>  ---                                  #> 905:   R <NA> <NA>    S   S    S    S #> 906:   R <NA> <NA>    S   S    S    S #> 907:   R    S    S <NA>   S <NA> <NA> #> 908:   R <NA> <NA>    R   S    R    S #> 909:   R <NA> <NA>    R   S    R    S # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 603 Antimicrobial Drugs — antibiotics","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Two data sets containing antibiotics/antimycotics antivirals. Use .ab() one ab_* functions retrieve values antibiotics data set. Three identifiers included data set: antibiotic ID (ab, primarily used package) defined WHONET/EARS-Net, ATC code (atc) defined , Compound ID (cid) found PubChem. properties data set derived one codes. Note drugs multiple ATC codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics  antivirals"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antibiotics-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antibiotics data set: a tibble with 483 observations and 14 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available cid Compound ID found PubChem name Official name used WHONET/EARS-Net group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug. Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"av Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name used WHONET/EARS-Net atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.73 (8 August, 2022). Accessed https://loinc.org October 30th, 2022. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [5]>     <chr>    #>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  8 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #>  9 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> 10 AMB   5280965 Ampho… Anti… <chr> Antimycot… Antibioti… <chr [3]>     <chr>    #> # ℹ 473 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antibiotic ID — as.ab","title":"Transform Input to an Antibiotic ID — as.ab","text":"Use function determine antibiotic drug code one antibiotics. data set antibiotics searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"as.ab(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.ab(x)"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antibiotic ID — as.ab","text":"x character vector determine antibiotic ID flag_multiple_results logical indicate whether note printed console probably one antibiotic drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antibiotic ID — as.ab","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antibiotics data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .ab() can correct different forms misspelling: Wrong spelling drug names (\"tobramicin\" \"gentamycin\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"mreopenem\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use ab_* functions get properties based returned antibiotic ID, see Examples. Note: .ab() ab_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems. can add manual codes considered .ab() ab_* functions, see add_custom_antimicrobials().","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antibiotic ID — as.ab","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"# these examples all return \"ERY\", the ID of erythromycin: as.ab(\"J01FA01\") #> Class 'ab' #> [1] ERY as.ab(\"J 01 FA 01\") #> Class 'ab' #> [1] ERY as.ab(\"Erythromycin\") #> Class 'ab' #> [1] ERY as.ab(\"eryt\") #> Class 'ab' #> [1] ERY as.ab(\"   eryt 123\") #> Class 'ab' #> [1] ERY as.ab(\"ERYT\") #> Class 'ab' #> [1] ERY as.ab(\"ERY\") #> Class 'ab' #> [1] ERY as.ab(\"eritromicine\") # spelled wrong, yet works #> Class 'ab' #> [1] ERY as.ab(\"Erythrocin\") # trade name #> Class 'ab' #> [1] ERY as.ab(\"Romycin\") # trade name #> Class 'ab' #> [1] ERY  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R       NA      S       #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antiviral Drug ID — as.av","title":"Transform Input to an Antiviral Drug ID — as.av","text":"Use function determine antiviral drug code one antiviral drugs. data set antivirals searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"as.av(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.av(x)"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antiviral Drug ID — as.av","text":"x character vector determine antiviral drug ID flag_multiple_results logical indicate whether note printed console probably one antiviral drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antiviral Drug ID — as.av","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antiviral Drug ID — as.av","text":"entries antivirals data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .av() can correct different forms misspelling: Wrong spelling drug names (\"acyclovir\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"aycclovir\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use av_* functions get properties based returned antiviral drug ID, see Examples. Note: .av() av_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antiviral Drug ID — as.av","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"# these examples all return \"ACI\", the ID of aciclovir: as.av(\"J05AB01\") #> Class 'av' #> [1] ACI as.av(\"J 05 AB 01\") #> Class 'av' #> [1] ACI as.av(\"Aciclovir\") #> Class 'av' #> [1] ACI as.av(\"aciclo\") #> Class 'av' #> [1] ACI as.av(\"   aciclo 123\") #> Class 'av' #> [1] ACI as.av(\"ACICL\") #> Class 'av' #> [1] ACI as.av(\"ACI\") #> Class 'av' #> [1] ACI as.av(\"Virorax\") # trade name #> Class 'av' #> [1] ACI as.av(\"Zovirax\") # trade name #> Class 'av' #> [1] ACI  as.av(\"acyklofir\") # severe spelling error, yet works #> Class 'av' #> [1] ACI  # use av_* functions to get a specific properties (see ?av_property); # they use as.av() internally: av_name(\"J05AB01\") #> [1] \"Aciclovir\" av_name(\"acicl\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 6 50.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"as.disk(x, na.rm = FALSE)  NA_disk_  is.disk(x)"},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"object class disk (inherits integer) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"x vector na.rm logical indicating whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"integer additional class disk","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 6 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 6-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"# transform existing disk zones to the `disk` class (using base R) df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = 20,   CIP = 14,   GEN = 18,   TOB = 16 ) df[, 2:5] <- lapply(df[, 2:5], as.disk) str(df) #> 'data.frame':\t1 obs. of  5 variables: #>  $ microorganism: chr \"Escherichia coli\" #>  $ AMP          : 'disk' int 20 #>  $ CIP          : 'disk' int 14 #>  $ GEN          : 'disk' int 18 #>  $ TOB          : 'disk' int 16  # \\donttest{ # transforming is easier with dplyr: if (require(\"dplyr\")) {   df %>% mutate(across(AMP:TOB, as.disk)) } #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli  20  14  18  16 # }  # interpret disk values, see ?as.sir as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  OK  #>      microorganism  AMP  CIP  GEN  TOB #> 1 Escherichia coli <NA> <NA> <NA> <NA>"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE)  NA_mic_  is.mic(x)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2011-2023) CLSI (2011-2023). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  # input will get cleaned up with the input given in the `cleaning_regex` argument, # which defaults to `mo_cleaning_regex()`: cat(mo_cleaning_regex(), \"\\n\") #> ([^A-Za-z- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )(e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. Currently available breakpoint guidelines EUCAST 2011-2023 CLSI 2011-2023, available breakpoint types \"ECOFF\", \"animal\", \"human\". breakpoints used interpretation publicly available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # S3 method for mic as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for data.frame as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\") )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2011-2023, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2023 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2023) CLSI (2011-2023), see Details. uti (Urinary Tract Infection) vector logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Note: clinical breakpoints package validated imported WHONET public use AMR package endorsed CLSI EUCAST, please see clinical_breakpoints information. NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input unclear. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines EUCAST (2011-2023) CLSI (2011-2023). Thus, guideline argument must set e.g., \"EUCAST 2023\" \"CLSI 2023\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 28 885 rows 12 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … summary(example_isolates) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %R   :73.7% (n=1201)   #>  Mode  :character   Unique:90             %SI  :26.3% (n=428)    #>                     #1    :B_ESCHR_COLI   - %S :25.6% (n=417)    #>                     #2    :B_STPHY_CONS   - %I : 0.7% (n=11)     #>                     #3    :B_STPHY_AURS                          #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %SI  :68.8% (n=251)   %SI  :70.5% (n=665)   %SI  :40.4% (n=546)   #>  - %S :68.8% (n=251)   - %S :70.5% (n=665)   - %S :40.2% (n=543)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)     - %I : 0.2% (n=3)     #>                                                                    #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %SI  :76.3% (n=1433)   %SI  :40.4% (n=546)   %SI  :87.4% (n=875)   #>  - %S :71.4% (n=1342)   - %S :40.2% (n=543)   - %S :86.1% (n=862)   #>  - %I : 4.8% (n=91)     - %I : 0.2% (n=3)     - %I : 1.3% (n=13)    #>                                                                     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %SI  :55.4% (n=247)   %SI  :85.8% (n=621)   %SI  :73.7% (n=1319)   #>  - %S :54.9% (n=245)   - %S :85.6% (n=620)   - %S :72.5% (n=1297)   #>  - %I : 0.4% (n=2)     - %I : 0.1% (n=1)     - %I : 1.2% (n=22)     #>                                                                     #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %SI  :72.6% (n=594)   %SI  :84.5% (n=797)   %SI  :33.5% (n=607)    #>  - %S :71.6% (n=586)   - %S :84.4% (n=796)   - %S :33.5% (n=607)    #>  - %I : 1.0% (n=8)     - %I : 0.1% (n=1)     - %I : 0.0% (n=0)      #>                                                                     #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %SI  :84.5% (n=797)   %SI  :75.4% (n=1399)   %SI  :65.6% (n=886)   #>  - %S :84.4% (n=796)   - %S :74.0% (n=1372)   - %S :65.1% (n=879)   #>  - %I : 0.1% (n=1)     - %I : 1.5% (n=27)     - %I : 0.5% (n=7)     #>                                                                     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %SI  :36.3% (n=251)   %SI  : 0.0% (n=0)      %SI  :61.9% (n=928)   #>  - %S :36.3% (n=251)   - %S : 0.0% (n=0)      - %S :61.2% (n=918)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)      - %I : 0.7% (n=10)    #>                                                                     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %SI  :79.5% (n=1398)   %SI  :82.9% (n=616)   %SI  :57.8% (n=203)   #>  - %S :79.1% (n=1392)   - %S :76.0% (n=565)   - %S :57.8% (n=203)   #>  - %I : 0.3% (n=6)      - %I : 6.9% (n=51)    - %I : 0.0% (n=0)     #>                                                                     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %SI  :30.7% (n=314)   %SI  :83.8% (n=1181)   %SI  :66.4% (n=140)   #>  - %S :30.7% (n=314)   - %S :78.9% (n=1112)   - %S :64.5% (n=136)   #>  - %I : 0.0% (n=0)     - %I : 4.9% (n=69)     - %I : 1.9% (n=4)     #>                                                                     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %SI  :61.7% (n=1149)   %SI  :24.3% (n=237)   %SI  :70.3% (n=843)   #>  - %S :61.7% (n=1149)   - %S :24.3% (n=237)   - %S :68.3% (n=820)   #>  - %I : 0.0% (n=0)      - %I : 0.0% (n=0)     - %I : 1.9% (n=23)    #>                                                                     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %SI  :87.3% (n=697)   %SI  :72.3% (n=821)   %SI  :42.8% (n=810)    #>  - %S :87.3% (n=697)   - %S :71.7% (n=814)   - %S :42.3% (n=801)    #>  - %I : 0.0% (n=0)     - %I : 0.6% (n=7)     - %I : 0.5% (n=9)      #>                                                                     #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %SI  :38.8% (n=590)   %SI  :42.8% (n=810)    %SI  :93.8% (n=834)   #>  - %S :38.6% (n=586)   - %S :42.3% (n=801)    - %S :92.7% (n=824)   #>  - %I : 0.3% (n=4)     - %I : 0.5% (n=9)      - %I : 1.1% (n=10)    #>                                                                     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %SI  :94.1% (n=780)   %SI  :85.3% (n=29)   %SI  :78.6% (n=121)   #>  - %S :94.1% (n=780)   - %S :85.3% (n=29)   - %S :78.6% (n=121)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)    - %I : 0.0% (n=0)     #>                                                                   #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %SI  :18.8% (n=309)    %SI  :94.1% (n=254)   %SI  :30.4% (n=305)   #>  - %S :18.8% (n=309)    - %S :93.0% (n=251)   - %S :30.2% (n=303)   #>  - %I : 0.0% (n=0)      - %I : 1.1% (n=3)     - %I : 0.2% (n=2)     #>                                                                      # For INTERPRETING disk diffusion and MIC values -----------------------  # a whole data set, even with combined MIC values and disk zones df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = as.mic(8),   CIP = as.mic(0.256),   GEN = as.disk(18),   TOB = as.disk(16),   ERY = \"R\" ) as.sir(df) #> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  OK  #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP  GEN  TOB ERY #> 1 Escherichia coli   I   I <NA> <NA>   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 8 × 13 #>   datetime            index ab_input   ab_guideline mo_input      mo_guideline #>   <dttm>              <int> <chr>      <ab>         <chr>         <mo>         #> 1 2023-07-10 17:10:47     1 CIP        CIP          Escherichia …   UNKNOWN    #> 2 2023-07-10 17:10:47     1 AMP        AMP          Escherichia …   UNKNOWN    #> 3 2023-07-10 17:10:38     1 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 4 2023-07-10 17:10:38     2 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 5 2023-07-10 17:10:38     3 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 6 2023-07-10 17:10:38     4 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 7 2023-07-10 17:10:38     1 AMX        AMX          B_STRPT_PNMN  B_STRPT_PNMN #> 8 2023-07-10 17:10:37     1 ampicillin AMP          Strep pneu    B_STRPT_PNMN #> # ℹ 7 more variables: guideline <chr>, ref_table <chr>, uti <lgl>, #> #   method <chr>, input <dbl>, outcome <sir>, breakpoint_S_R <chr>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ampicillin (AMP) in Streptococcus #>      pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  OK  #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • (Some) PK/PD breakpoints were applied - use include_PKPD = FALSE to #>      prevent this #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  OK  #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  OK  #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  OK  #>      microorganism  AMP  CIP  GEN  TOB ERY #> 1 Escherichia coli <NA> <NA> <NA> <NA>   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] S sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":null,"dir":"Reference","previous_headings":"","what":"Get ATC Properties from WHOCC Website — atc_online_property","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Gets data WHOCC website determine properties Anatomical Therapeutic Chemical (ATC) (e.g. antibiotic), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(   atc_code,   property,   administration = \"O\",   url = \"https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://www.whocc.no/atcvet/atcvet_index/?code=%s&showdescription=no\" )  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://www.whocc./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"atc_code character (vector) ATC code(s) antibiotics, coerced .ab() ab_atc() internally valid ATC code property property ATC code. Valid values \"ATC\", \"Name\", \"DDD\", \"U\" (\"unit\"), \"Adm.R\", \"Note\" groups. last option, hierarchical groups ATC code returned, see Examples. administration type administration using property = \"Adm.R\", see Details url url website WHOCC. sign %s can used placeholder ATC codes. url_vet url website WHOCC veterinary medicine. sign %s can used placeholder ATC_vet codes (start \"Q\"). ... arguments pass atc_property","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Options argument administration: \"Implant\" = Implant \"Inhal\" = Inhalation \"Instill\" = Instillation \"N\" = nasal \"O\" = oral \"P\" = parenteral \"R\" = rectal \"SL\" = sublingual/buccal \"TD\" = transdermal \"V\" = vaginal Abbreviations return values using property = \"U\" (unit): \"g\" = gram \"mg\" = milligram \"mcg\" = microgram \"U\" = unit \"TU\" = thousand units \"MU\" = million units \"mmol\" = millimole \"ml\" = millilitre (e.g. eyedrops) N.B. function requires internet connection works following packages installed: curl, rvest, xml2.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"# \\donttest{ if (requireNamespace(\"curl\") && requireNamespace(\"rvest\") && requireNamespace(\"xml2\")) {   # oral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"O\")   atc_online_ddd(ab_atc(\"amox\"))    # parenteral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"P\")    atc_online_property(\"J01CA04\", property = \"groups\") # search hierarchical groups of amoxicillin } #> Loading required namespace: rvest #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Use function e.g. clinical texts health care records. returns list antiviral drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_av = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_av type = \"drug\": column name antivirals data set translate antibiotic abbreviations , using av_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .av()","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"function also internally used .av(), although searches first drug name throw note drug names returned. Note: .av() function may use long regular expression match brand names antiviral drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"default, function search antiviral drug names. text elements searched official names, ATC codes brand names. uses .av() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(avx = av_from_text(clinical_text)) returned AV codes can transformed official names, groups, etc. av_* functions av_name() av_group(), using translate_av argument. using collapse, function return character:df %>% mutate(avx = av_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(\"28/03/2020 valaciclovir po tid\") #> [[1]] #> Class 'av' #> [1] VALA #>  av_from_text(\"28/03/2020 valaciclovir po tid\", type = \"admin\") #> [[1]] #> [1] \"oral\" #>"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antiviral Drug — av_property","title":"Get Properties of an Antiviral Drug — av_property","text":"Use functions return specific property antiviral drug antivirals data set. input values evaluated internally .av().","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"av_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  av_cid(x, ...)  av_synonyms(x, ...)  av_tradenames(x, ...)  av_group(x, language = get_AMR_locale(), ...)  av_atc(x, ...)  av_loinc(x, ...)  av_ddd(x, administration = \"oral\", ...)  av_ddd_units(x, administration = \"oral\", ...)  av_info(x, language = get_AMR_locale(), ...)  av_url(x, open = FALSE, ...)  av_property(x, property = \"name\", language = get_AMR_locale(), ...)"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antiviral Drug — av_property","text":"x (vector ) text can coerced valid antiviral drug code .av() language language returned text - default system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. ... arguments passed .av() administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antivirals data set: vector_or(colnames(antivirals), sort = FALSE).","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antiviral Drug — av_property","text":"integer case av_cid() named list case av_info() multiple av_atc()/av_synonyms()/av_tradenames() double case av_ddd() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antiviral Drug — av_property","text":"output translated possible. function av_url() return direct URL official website. warning returned required ATC code available.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antiviral Drug — av_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                             Aciclovir  #> \"https://www.whocc.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # lowercase transformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"78772-1\" \"78773-9\" \"79134-3\" \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 6 #>   mo                ab        S     I     R total #>   <chr>             <chr> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0    15 #> 2 (unknown species) AMK       0     0     0     0 #> 3 (unknown species) AMP      15     0     1    16 #> 4 (unknown species) AMX      15     0     1    16 #> 5 (unknown species) AZM       3     0     3     6 #> 6 (unknown species) CAZ       0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Ampheni… Chlo… \"\"    \"\"        \"\"            \"\"              \"100.0% (30/30… #>  6 \"Antimyc… Rifa… \"\"    \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  7 \"Beta-la… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  8 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  9 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> 10 \"\"        Benz… \" 77… \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 6 #>    mo            ab        S     I     R total #>  * <chr>         <chr> <int> <int> <int> <int> #>  1 Gram-negative AMC     463    89   174   726 #>  2 Gram-negative AMK     251     0     5   256 #>  3 Gram-negative AMP     226     0   405   631 #>  4 Gram-negative AMX     226     0   405   631 #>  5 Gram-negative AZM       1     2   696   699 #>  6 Gram-negative CAZ     607     0    27   634 #>  7 Gram-negative CHL       1     0    30    31 #>  8 Gram-negative CIP     610    11    63   684 #>  9 Gram-negative CLI      18     1   709   728 #> 10 Gram-negative COL     309     0    78   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 6 #>    mo      ab        S     I     R total #>  * <chr>   <chr> <int> <int> <int> <int> #>  1 E. coli AMC     332    74    61   467 #>  2 E. coli AMK     171     0     0   171 #>  3 E. coli AMP     196     0   196   392 #>  4 E. coli AMX     196     0   196   392 #>  5 E. coli AZM       0     0   467   467 #>  6 E. coli CAZ     449     0    11   460 #>  7 E. coli CHL       0     0     0     0 #>  8 E. coli CIP     398     1    57   456 #>  9 E. coli CLI       0     0   467   467 #> 10 E. coli COL     240     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Data set containing clinical breakpoints interpret MIC disk diffusion SIR values, according international guidelines. Currently implemented guidelines EUCAST (2011-2023) CLSI (2011-2023). Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 28 885 observations 12 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different types of breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported from WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response from CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"download","dir":"Reference","previous_headings":"","what":"Download","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI, though initiatives started overcome burdens. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints #> # A tibble: 28,885 × 12 #>    guideline type  method site  mo            rank_index ab   ref_tbl  disk_dose #>    <chr>     <chr> <chr>  <chr> <mo>               <dbl> <ab> <chr>    <chr>     #>  1 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 MEM  A. xylo… 10ug      #>  2 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 MEM  A. xylo… NA        #>  3 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 SXT  A. xylo… 1.25ug/2… #>  4 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 SXT  A. xylo… NA        #>  5 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 TZP  A. xylo… 30ug/6ug  #>  6 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 TZP  A. xylo… NA        #>  7 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 MEM  A. xylo… 10ug      #>  8 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 MEM  A. xylo… NA        #>  9 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 SXT  A. xylo… 1.25ug/2… #> 10 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 SXT  A. xylo… NA        #> # ℹ 28,875 more rows #> # ℹ 3 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, uti <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" being resistant. This note will be shown once for this #> session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) \"aminopenicillins\"(amoxicillin ampicillin) \"antifungals\"(amphotericin B, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) \"antimycobacterials\"(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) \"betalactams\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"carbapenems\"(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) \"cephalosporins\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"cephalosporins_1st\"(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) \"cephalosporins_2nd\"(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) \"cephalosporins_3rd\"(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) \"cephalosporins_4th\"(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) \"cephalosporins_5th\"(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) \"cephalosporins_except_caz\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"fluoroquinolones\"(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"glycopeptides\"(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) \"glycopeptides_except_lipo\"(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) \"lincosamides\"(acetylmidecamycin, acetylspiramycin, clindamycin, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) \"lipoglycopeptides\"(dalbavancin, oritavancin, telavancin) \"macrolides\"(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) \"oxazolidinones\"(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) \"penicillins\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"polymyxins\"(colistin, polymyxin B, polymyxin B/polysorbate 80) \"quinolones\"(besifloxacin, cinoxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"streptogramins\"(pristinamycin quinupristin/dalfopristin) \"tetracyclines\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) \"tetracyclines_except_tgc\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) \"trimethoprims\"(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) \"ureidopenicillins\"(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 503 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply, either 13, 12, 11","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 503 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    25-30 mg/kg… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    2 g x 6 iv   #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    1 g x 3-4 iv #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    0.75-1 g x … #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    (2 g amoxic… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    (1 g amoxic… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    (0.875 g am… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    (0.5 g amox… #> # ℹ 493 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply EUCAST Rules — eucast_rules","title":"Apply EUCAST Rules — eucast_rules","text":"Apply rules clinical breakpoints intrinsic resistance defined European Committee Antimicrobial Susceptibility Testing (EUCAST, https://www.eucast.org), see Source. Use eucast_dosage() get data.frame advised dosages certain bug-drug combination, based dosage data set. improve interpretation antibiogram EUCAST rules applied, non-EUCAST rules can applied default, see Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"eucast_rules(   x,   col_mo = NULL,   info = interactive(),   rules = getOption(\"AMR_eucastrules\", default = c(\"breakpoints\", \"expert\")),   verbose = FALSE,   version_breakpoints = 12,   version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated December 11th, 2022, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Apply EUCAST Rules — eucast_rules","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"# \\donttest{ a <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylpenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE )  head(a) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   -   -   -   S   S #> 2  Enterococcus faecalis   -   -   -   -   -   S   S #> 3       Escherichia coli   -   -   -   -   -   S   S #> 4  Klebsiella pneumoniae   -   -   -   -   -   S   S #> 5 Pseudomonas aeruginosa   -   -   -   -   -   S   S   # apply EUCAST rules: some results wil be changed b <- eucast_rules(a) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir))  head(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   S   R   S   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, verbose = TRUE) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir)) head(c) #>   row col           mo_fullname old new rule   rule_group #> 1   1 AMX Staphylococcus aureus   -   S       Breakpoints #> 2   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 3   1 CAZ Staphylococcus aureus   R   S      Expert Rules #> 4   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 5   1 COL Staphylococcus aureus   -   R      Expert Rules #> 6   2 CAZ Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2                                          Staphylococcus #> 3                          Expert Rules on Staphylococcus #> 4 Table 4: Intrinsic resistance in gram-positive bacteria #> 5 Table 4: Intrinsic resistance in gram-positive bacteria #> 6 Table 4: Intrinsic resistance in gram-positive bacteria #>                                                                                 rule_source #> 1                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 2                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 3 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 4 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 5 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 6 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # \\donttest{ # get all first Gram-negatives example_isolates[which(first_isolate(info = FALSE) & mo_is_gram_negative()), ] #> ℹ Using column 'mo' as input for mo_is_gram_negative() #> # A tibble: 437 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 427 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   # filter on first isolates using dplyr:   example_isolates %>%     filter(first_isolate(info = TRUE)) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # flag the first isolates per group:   example_isolates %>%     group_by(ward) %>%     mutate(first = first_isolate(info = TRUE)) %>%     select(ward, date, patient, mo, first) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #>  #> Group: ward = \"Clinical\" #> ℹ Excluding 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    of total where a microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":null,"dir":"Reference","previous_headings":"","what":"G-test for Count Data — g.test","title":"G-test for Count Data — g.test","text":"g.test() performs chi-squared contingency table tests goodness--fit tests, just like chisq.test() reliable (1). G-test can used see whether number observations category fits theoretical expectation (called G-test goodness--fit), see whether proportions one variable different different values variable (called G-test independence).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"G-test for Count Data — g.test","text":"","code":"g.test(x, y = NULL, p = rep(1/length(x), length(x)), rescale.p = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"G-test for Count Data — g.test","text":"code function identical chisq.test(), except : calculation statistic changed \\(2 * sum(x * log(x / E))\\) Yates' continuity correction removed apply G-test possibility simulate p values simulate.p.value removed","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"G-test for Count Data — g.test","text":"x numeric vector matrix. x y can also     factors. y numeric vector; ignored x matrix.      x factor, y factor length. p vector probabilities length x.     error given entry p negative. rescale.p logical scalar; TRUE p rescaled     (necessary) sum 1.  rescale.p FALSE,     p sum 1, error given.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"G-test for Count Data — g.test","text":"list class \"htest\" containing following   components: statistic value chi-squared test statistic. parameter degrees freedom approximate     chi-squared distribution test statistic, NA     p-value computed Monte Carlo simulation. p.value p-value test. method character string indicating type test     performed, whether Monte Carlo simulation continuity     correction used. data.name character string giving name(s) data. observed observed counts. expected expected counts null hypothesis. residuals Pearson residuals,     (observed - expected) / sqrt(expected). stdres standardized residuals,     (observed - expected) / sqrt(V), V residual cell variance (Agresti, 2007,     section 2.4.5 case x matrix, n * p * (1 - p) otherwise).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"G-test for Count Data — g.test","text":"x matrix one row column, x vector y given, goodness--fit test performed (x treated one-dimensional contingency table). entries x must non-negative integers. case, hypothesis tested whether population probabilities equal p, equal p given. x matrix least two rows columns, taken two-dimensional contingency table: entries x must non-negative integers.  Otherwise, x y must vectors factors length; cases missing values removed, objects coerced factors, contingency table computed .  Pearson's chi-squared test performed null hypothesis joint distribution cell counts 2-dimensional contingency table product row column marginals. p-value computed asymptotic chi-squared distribution test statistic. contingency table case simulation done random sampling set contingency tables given marginals, works marginals strictly positive. Note usual sampling situation assumed chi-squared test (G-test) rather Fisher's exact test. goodness--fit case simulation done random sampling discrete distribution specified p, sample size n = sum(x). simulation done R may slow.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-goodness-of-fit-likelihood-ratio-test-","dir":"Reference","previous_headings":"","what":"G-test Of Goodness-of-Fit (Likelihood Ratio Test)","title":"G-test for Count Data — g.test","text":"Use G-test goodness--fit one nominal variable two values (male female, red, pink white flowers). compare observed counts numbers observations category expected counts, calculate using kind theoretical expectation (1:1 sex ratio 1:2:1 ratio genetic cross). expected number observations category small, G-test may give inaccurate results, use exact test instead (fisher.test()). G-test goodness--fit alternative chi-square test goodness--fit (chisq.test()); tests advantages disadvantages, results two tests usually similar.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-independence","dir":"Reference","previous_headings":"","what":"G-test of Independence","title":"G-test for Count Data — g.test","text":"Use G-test independence two nominal variables, two possible values. want know whether proportions one variable different among values variable. also possible G-test independence two nominal variables. example, Jackson et al. (2013) also data children 3, analysis old vs. young, thigh vs. arm, reaction vs. reaction, analyzed together. Fisher's exact test (fisher.test()) exact test, G-test still approximation. 2x2 table, Fisher's Exact test may slower still run seconds, even sum observations multiple millions. G-test independence alternative chi-square test independence (chisq.test()), give approximately results.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"how-the-test-works","dir":"Reference","previous_headings":"","what":"How the Test Works","title":"G-test for Count Data — g.test","text":"Unlike exact test goodness--fit (fisher.test()), G-test directly calculate probability obtaining observed results something extreme. Instead, like almost statistical tests, G-test intermediate step; uses data calculate test statistic measures far observed data null expectation. use mathematical relationship, case chi-square distribution, estimate probability obtaining value test statistic. G-test uses log ratio two likelihoods test statistic, also called likelihood ratio test log-likelihood ratio test. formula calculate G-statistic : \\(G = 2 * sum(x * log(x / E))\\) E expected values. Since chi-square distributed, p value can calculated R :   df degrees freedom. two categories want find ones significantly different null expectation, can use method testing category vs. sum categories, Bonferroni correction. use G-tests category, course.","code":"p <- stats::pchisq(G, df, lower.tail = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"references","dir":"Reference","previous_headings":"","what":"References","title":"G-test for Count Data — g.test","text":"McDonald, J.H. 2014. Handbook Biological Statistics (3rd ed.). Sparky House Publishing, Baltimore, Maryland. http://www.biostathandbook.com/gtestgof.html.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"G-test for Count Data — g.test","text":"","code":"# = EXAMPLE 1 = # Shivrain et al. (2006) crossed clearfield rice (which are resistant # to the herbicide imazethapyr) with red rice (which are susceptible to # imazethapyr). They then crossed the hybrid offspring and examined the # F2 generation, where they found 772 resistant plants, 1611 moderately # resistant plants, and 737 susceptible plants. If resistance is controlled # by a single gene with two co-dominant alleles, you would expect a 1:2:1 # ratio.  x <- c(772, 1611, 737) g.test(x, p = c(1, 2, 1) / 4) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 4.1471, p-value = 0.1257 #>   # There is no significant difference from a 1:2:1 ratio. # Meaning: resistance controlled by a single gene with two co-dominant # alleles, is plausible.   # = EXAMPLE 2 = # Red crossbills (Loxia curvirostra) have the tip of the upper bill either # right or left of the lower bill, which helps them extract seeds from pine # cones. Some have hypothesized that frequency-dependent selection would # keep the number of right and left-billed birds at a 1:1 ratio. Groth (1992) # observed 1752 right-billed and 1895 left-billed crossbills.  x <- c(1752, 1895) g.test(x) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 5.6085, p-value = 0.01787 #>   # There is a significant difference from a 1:1 ratio. # Meaning: there are significantly more left-billed birds."},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Clinical or Epidemic Episodes — get_episode","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"functions determine items vector can considered (start ) new episode. can used determine clinical episodes epidemiological analysis. get_episode() function returns index number episode per group, is_new_episode() function returns TRUE every new get_episode() index. absolute relative episode determination supported.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"get_episode(x, episode_days = NULL, case_free_days = NULL, ...)  is_new_episode(x, episode_days = NULL, case_free_days = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"x vector dates (class Date POSIXt), sorted internally determine episodes episode_days episode length days specify time period new episode begins, can also less day Inf, see Details case_free_days (inter-epidemic) interval length days new episode start, can also less day Inf, see Details ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode(): integer vector is_new_episode(): logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"Episodes can determined two ways: absolute relative. Absolute method uses episode_days define episode length days, new episode start. common use case AMR data analysis microbial epidemiology: episodes S. aureus bacteraemia ICU patients example. episode length 30 days, new S. aureus isolates ICU episode 30 days considered different (new) episode. Thus, method counts since start previous episode. Relative method uses case_free_days quantify duration case-free days (inter-epidemic interval), new episode start. common use case infectious disease epidemiology: episodes norovirus outbreaks hospital example. case-free period 14 days, new norovirus cases time considered different (new) episode. Thus, methods counts since last case previous episode. table: ** marks start new episode, 8 January 2023 7 days since start previous episode (1 January 2023).  *** marks start new episode, 21 January 2023 7 days since last case previous episode (8 January 2023). Either episode_days case_free_days must provided function.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"difference-between-get-episode-and-is-new-episode-","dir":"Reference","previous_headings":"","what":"Difference between get_episode() and is_new_episode()","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode() function returns index number episode, cases/patients/isolates first episode number 1, cases/patients/isolates second episode number 2, etc. is_new_episode() function hand, returns TRUE every new get_episode() index. specify, setting episode_days = 365 (using method 1 explained ), two functions differ:","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names allows different isolate selection methods. dplyr package required functions work, episode functions support variable grouping work conveniently inside dplyr verbs filter(), mutate() summarise().","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"# difference between absolute and relative determination of episodes: x <- data.frame(dates = as.Date(c(   \"2021-01-01\",   \"2021-01-02\",   \"2021-01-05\",   \"2021-01-08\",   \"2021-02-21\",   \"2021-02-22\",   \"2021-02-23\",   \"2021-02-24\",   \"2021-03-01\",   \"2021-03-01\" ))) x$absolute <- get_episode(x$dates, episode_days = 7) x$relative <- get_episode(x$dates, case_free_days = 7) x #>         dates absolute relative #> 1  2021-01-01        1        1 #> 2  2021-01-02        1        1 #> 3  2021-01-05        1        1 #> 4  2021-01-08        2        1 #> 5  2021-02-21        3        2 #> 6  2021-02-22        3        2 #> 7  2021-02-23        3        2 #> 8  2021-02-24        3        2 #> 9  2021-03-01        4        2 #> 10 2021-03-01        4        2   # `example_isolates` is a data set available in the AMR package. # See ?example_isolates df <- example_isolates[sample(seq_len(2000), size = 100), ]  get_episode(df$date, episode_days = 60) # indices #>   [1] 13 27  3 18 12 40 50 10 21 46  2 26 20 20  2  8  9 16 11 47 31  1 29 23 31 #>  [26]  7 44 19 11 48 40 20  9 42 48 23 25  9 15 19 14 43  9 49  5  4  5 45  1 28 #>  [51]  5  4 39  7 50 11 19 30 14 34 31 51  6 44 20 21 32 48 47 41 16 42 28  9 48 #>  [76] 22 31 10 45  3  6 25 47 11 38 45 29 33 34 37 47 24 35 33 12 24 24 17 22 36 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [25] FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [37]  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE  TRUE #>  [49] FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE #>  [61] FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE #>  [73] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE #>  [85]  TRUE FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE FALSE #>  [97] FALSE  TRUE FALSE  TRUE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 2 × 46 #>   date       patient   age gender ward      mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>     <mo>         <sir> <sir> <sir> <sir> #> 1 2003-02-26 869648     64 M      Outpatie… B_STPHY_AURS R     NA    R     R     #> 2 2003-01-27 F35553     51 M      ICU       B_STPHY_EPDR R     NA    S     NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [99] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 001213  2009-08-03 B         TRUE        #>  2 006827  2009-07-24 B         TRUE        #>  3 022060  2004-05-04 C         TRUE        #>  4 023456  2002-02-05 A         TRUE        #>  5 023456  2011-04-25 B         TRUE        #>  6 069276  2015-06-18 C         TRUE        #>  7 071099  2005-01-11 C         TRUE        #>  8 0E2483  2007-11-10 C         TRUE        #>  9 119392  2010-11-01 A         TRUE        #> 10 144549  2009-09-01 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 [95] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2009-08-03 001213          1 TRUE        #>  2 Clinical 2009-07-24 006827          1 TRUE        #>  3 ICU      2004-05-04 022060          1 TRUE        #>  4 Clinical 2002-02-05 023456          1 TRUE        #>  5 Clinical 2011-04-25 023456          2 TRUE        #>  6 Clinical 2015-06-18 069276          1 TRUE        #>  7 Clinical 2005-01-11 071099          1 TRUE        #>  8 Clinical 2007-11-10 0E2483          1 TRUE        #>  9 Clinical 2010-11-01 119392          1 TRUE        #> 10 Clinical 2009-09-01 144549          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           60             14            39            52 #> 2 ICU                28              9            20            23 #> 3 Outpatient          7              5             8             8  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] TRUE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [98] #>    patient mo           ward       flag_episode #>    <chr>   <mo>         <chr>      <lgl>        #>  1 E67091  B_ENTRC_FCLS Clinical   TRUE         #>  2 317826  B_ESCHR_COLI ICU        TRUE         #>  3 869648  B_STPHY_AURS Outpatient TRUE         #>  4 521167  B_STPHY_AURS Clinical   TRUE         #>  5 904485  B_ESCHR_COLI Outpatient TRUE         #>  6 188588  B_CTRBC_KOSR Clinical   TRUE         #>  7 A22289  B_PSDSC_VLNR ICU        TRUE         #>  8 848254  B_STPHY_CONS ICU        TRUE         #>  9 183220  B_ESCHR_COLI Clinical   TRUE         #> 10 644292  B_STPHY_AURS ICU        TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result)    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Plots with ggplot2 — ggplot_sir","title":"AMR Plots with ggplot2 — ggplot_sir","text":"Use functions create bar plots AMR data analysis. functions rely ggplot2 functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"ggplot_sir(   data,   position = NULL,   x = \"antibiotic\",   fill = \"interpretation\",   facet = NULL,   breaks = seq(0, 1, 0.1),   limits = NULL,   translate_ab = \"name\",   combine_SI = TRUE,   minimum = 30,   language = get_AMR_locale(),   nrow = NULL,   colours = c(S = \"#3CAEA3\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\", R =     \"#ED553B\"),   datalabels = TRUE,   datalabels.size = 2.5,   datalabels.colour = \"grey15\",   title = NULL,   subtitle = NULL,   caption = NULL,   x.title = \"Antimicrobial\",   y.title = \"Proportion\",   ... )  geom_sir(   position = NULL,   x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   ... )  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = seq(0, 1, 0.1), limits = NULL)  scale_sir_colours(..., aesthetics = \"fill\")  theme_sir()  labels_sir_count(   position = NULL,   x = \"antibiotic\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   datalabels.size = 3,   datalabels.colour = \"grey15\" )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Plots with ggplot2 — ggplot_sir","text":"data data.frame column(s) class sir (see .sir()) position position adjustment bars, either \"fill\", \"stack\" \"dodge\" x variable show x axis, either \"antibiotic\" (default) \"interpretation\" grouping variable fill variable categorise using plots legend, either \"antibiotic\" (default) \"interpretation\" grouping variable facet variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable breaks numeric vector positions limits numeric vector length two providing limits scale, use NA refer existing minimum maximum translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows colours named vactor colour used filling. default colours colour-blind friendly. datalabels show datalabels using labels_sir_count() datalabels.size size datalabels datalabels.colour colour datalabels title text show title plot subtitle text show subtitle plot caption text show caption plot x.title text show x axis description y.title text show y axis description ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples. aesthetics aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\"","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antibiotics shown plots using ab_name(). can set translate_ab argument. See count_df().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"the-functions","dir":"Reference","previous_headings":"","what":"The Functions","title":"AMR Plots with ggplot2 — ggplot_sir","text":"geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antibiotics x axis. facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage amount isolates using ggplot2::geom_text(). ggplot_sir() wrapper around functions uses data first input. makes possible use function pipe (%>%). See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"# \\donttest{ if (require(\"ggplot2\") && require(\"dplyr\")) {   # get antimicrobial results for drugs against a UTI:   ggplot(example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)) +     geom_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # prettify the plot using some additional functions:   df <- example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)   ggplot(df) +     geom_sir() +     scale_y_percent() +     scale_sir_colours() +     labels_sir_count() +     theme_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # or better yet, simplify this using the wrapper function - a single command:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # get only proportions and no counts:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(datalabels = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # add other ggplot2 arguments as you like:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(       width = 0.5,       colour = \"black\",       size = 1,       linetype = 2,       alpha = 0.25     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # you can alter the colours with colour names:   example_isolates %>%     select(AMX) %>%     ggplot_sir(colours = c(SI = \"yellow\")) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # but you can also use the built-in colour-blind friendly colours for   # your plots, where \"S\" is green, \"I\" is yellow and \"R\" is red:   data.frame(     x = c(\"Value1\", \"Value2\", \"Value3\"),     y = c(1, 2, 3),     z = c(\"Value4\", \"Value5\", \"Value6\")   ) %>%     ggplot() +     geom_col(aes(x = x, y = y, fill = z)) +     scale_sir_colours(Value4 = \"S\", Value5 = \"I\", Value6 = \"R\") }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values (`position_stack()`). #> Warning: Removed 6 rows containing missing values (`position_stack()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for mo_is_gram_negative()  # }"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":null,"dir":"Reference","previous_headings":"","what":"Guess Antibiotic Column — guess_ab_col","title":"Guess Antibiotic Column — guess_ab_col","text":"tries find column name data set based information antibiotics data set. Also supports WHONET abbreviations.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"guess_ab_col(   x = NULL,   search_string = NULL,   verbose = FALSE,   only_sir_columns = FALSE )"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Guess Antibiotic Column — guess_ab_col","text":"x data.frame search_string text search x , checked .ab() value column x verbose logical indicate whether additional info printed only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE)","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Guess Antibiotic Column — guess_ab_col","text":"column name x, NULL result found.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Guess Antibiotic Column — guess_ab_col","text":"can look antibiotic (trade) name abbreviation search x antibiotics data set column containing name code antibiotic.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"df <- data.frame(   amox = \"S\",   tetr = \"R\" )  guess_ab_col(df, \"amoxicillin\") #> [1] \"amox\" guess_ab_col(df, \"J01AA07\") # ATC code of tetracycline #> [1] \"tetr\"  guess_ab_col(df, \"J01AA07\", verbose = TRUE) #> Auto-guessing columns suitable for analysis #> ... #>  OK. #> ℹ Using column 'amox' as input for AMX (amoxicillin). #> ℹ Using column 'tetr' as input for TCY (tetracycline). #> ℹ Using column 'tetr' as input for J01AA07 (tetracycline). #> [1] \"tetr\" # NOTE: Using column 'tetr' as input for J01AA07 (tetracycline).  # WHONET codes df <- data.frame(   AMP_ND10 = \"R\",   AMC_ED20 = \"S\" ) guess_ab_col(df, \"ampicillin\") #> [1] \"AMP_ND10\" guess_ab_col(df, \"J01CR02\") #> [1] \"AMC_ED20\" guess_ab_col(df, as.ab(\"augmentin\")) #> [1] \"AMC_ED20\""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing defined intrinsic resistance EUCAST bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 134 634 observations 2 variables: mo Microorganism ID ab Antibiotic ID","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 134,634 × 2 #>    mo      ab    #>    <mo>    <chr> #>  1 B_GRAMP ATM   #>  2 B_GRAMP COL   #>  3 B_GRAMP NAL   #>  4 B_GRAMP PLB   #>  5 B_GRAMP TEM   #>  6 B_ABTRP ATM   #>  7 B_ABTRP COL   #>  8 B_ABTRP NAL   #>  9 B_ABTRP PLB   #> 10 B_ABTRP TEM   #> # ℹ 134,624 more rows"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":null,"dir":"Reference","previous_headings":"","what":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"According binomial nomenclature, lowest four taxonomic levels (family, genus, species, subspecies) printed italics. function finds taxonomic names within strings makes italic.","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\"))"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector) type type conversion taxonomic names, either \"markdown\" \"ansi\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, using ANSI colours adding \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(\"An overview of Staphylococcus aureus isolates\") #> [1] \"An overview of *Staphylococcus aureus* isolates\" italicise_taxonomy(\"An overview of S. aureus isolates\") #> [1] \"An overview of *S. aureus* isolates\"  cat(italicise_taxonomy(\"An overview of S. aureus isolates\", type = \"ansi\")) #> An overview of S. aureus isolates"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":null,"dir":"Reference","previous_headings":"","what":"Join microorganisms to a Data Set — join","title":"Join microorganisms to a Data Set — join","text":"Join data set microorganisms easily existing data set character vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Join microorganisms to a Data Set — join","text":"","code":"inner_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  left_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  right_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  full_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  semi_join_microorganisms(x, by = NULL, ...)  anti_join_microorganisms(x, by = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Join microorganisms to a Data Set — join","text":"x existing data set join, character vector. case character vector, resulting data.frame contain column 'x' values. variable join - left empty search column class mo (created .mo()) \"mo\" column name exists x, otherwise column name x values exist microorganisms$mo (= \"bacteria_id\"), another column microorganisms (named, like = c(\"bacteria_id\" = \"fullname\")) suffix non-joined duplicate variables x y, suffixes added output disambiguate . character vector length 2. ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Join microorganisms to a Data Set — join","text":"data.frame","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Join microorganisms to a Data Set — join","text":"Note: opposed join() functions dplyr, character vectors supported default existing columns get suffix \"2\" newly joined columns get suffix. dplyr package installed, join functions used. Otherwise, much slower merge() interaction() functions base R used.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 23 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 23 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"             \"bacteria\"         \"fullname\"         \"status\"           #>  [5] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #>  [9] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [13] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [17] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [21] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"             \"patient\"          \"age\"              \"gender\"           #>  [5] \"ward\"             \"mo\"               \"PEN\"              \"OXA\"              #>  [9] \"FLC\"              \"AMX\"              \"AMC\"              \"AMP\"              #> [13] \"TZP\"              \"CZO\"              \"FEP\"              \"CXM\"              #> [17] \"FOX\"              \"CTX\"              \"CAZ\"              \"CRO\"              #> [21] \"GEN\"              \"TOB\"              \"AMK\"              \"KAN\"              #> [25] \"TMP\"              \"SXT\"              \"NIT\"              \"FOS\"              #> [29] \"LNZ\"              \"CIP\"              \"MFX\"              \"VAN\"              #> [33] \"TEC\"              \"TCY\"              \"TGC\"              \"DOX\"              #> [37] \"ERY\"              \"CLI\"              \"AZM\"              \"IPM\"              #> [41] \"MEM\"              \"MTR\"              \"CHL\"              \"COL\"              #> [45] \"MUP\"              \"RIF\"              \"fullname\"         \"status\"           #> [49] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #> [53] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [57] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [61] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [65] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"           # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1395 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 3.010921 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.03927336"},{"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\"), ] #> Error: in mo_name(): argument x is missing and no column with info about #> microorganisms could be found.  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> Error in filter(., mo_name() %like% \"^ent\"): ℹ In argument: `mo_name() %like% \"^ent\"`. #> Caused by error: #> ! in mo_name(): argument x is missing and no column with info about #> microorganisms could be found. # }"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Determine isolates multidrug-resistant organisms (MDRO) according international, national custom guidelines.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"mdro(   x = NULL,   guideline = \"CMI2012\",   col_mo = NULL,   info = interactive(),   pct_required_classes = 0.5,   combine_SI = TRUE,   verbose = FALSE,   only_sir_columns = FALSE,   ... )  custom_mdro_guideline(..., as_factor = TRUE)  brmo(x = NULL, only_sir_columns = FALSE, ...)  mrgn(x = NULL, only_sir_columns = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"See supported guidelines list publications used function.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antibiotics columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions pct_required_classes minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function return MDRO results, instead returns data set logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) ... case custom_mdro_guideline(): set rules, see section Using Custom Guidelines . Otherwise: column name antibiotic, see section Antibiotics . as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"CMI 2012 paper - function mdr_cmi2012() mdro(): Ordered factor levels Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant (XDR) < Pandrug-resistant (PDR) TB guideline - function mdr_tb() mdro(..., guideline = \"TB\"): Ordered factor levels Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant < Extensively drug-resistant German guideline - function mrgn() mdro(..., guideline = \"MRGN\"): Ordered factor levels Negative < 3MRGN < 4MRGN Everything else, except custom guidelines: Ordered factor levels Negative < Positive, unconfirmed < Positive. value \"Positive, unconfirmed\" means , according guideline, entirely sure isolate multi-drug resistant confirmed additional (e.g. molecular) tests","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"functions context-aware. means x argument can left blank used inside data.frame call, see Examples. pct_required_classes argument, values 1 divided 100. support fractions (0.75 3/4) percentages (75). Note: Every test involves Enterobacteriaceae family, internally performed using newly named order Enterobacterales, since Enterobacteriaceae family taxonomically reclassified Adeolu et al. 2016. , Enterobacteriaceae family Enterobacteriales () order. species old Enterobacteriaceae family still new Enterobacterales (without ) order, divided multiple families. way tests performed now mdro() function makes sure results 2016 2016 identical.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"supported-international-national-guidelines","dir":"Reference","previous_headings":"","what":"Supported International / National Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu \"WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)\" (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"out <- mdro(example_isolates, guideline = \"EUCAST\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address str(out) #> Error in eval(expr, envir, enclos): object 'out' not found table(out) #> Error in eval(expr, envir, enclos): object 'out' not found  out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address table(out) #> Error in eval(expr, envir, enclos): object 'out' not found  # \\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() } #> Error in .Call(Cchin, x, table): NULL value passed as symbol address # }"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Mean AMR Distance — mean_amr_distance","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Calculates normalised mean antimicrobial resistance multiple observations, help identify similar isolates without comparing antibiograms hand.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for sir mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for data.frame mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address sir #> Error in eval(expr, envir, enclos): object 'sir' not found mean_amr_distance(sir) #> Error in eval(expr, envir, enclos): object 'sir' not found  mic <- random_mic(10) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mic #> Error in eval(expr, envir, enclos): object 'mic' not found mean_amr_distance(mic) #> Error in eval(expr, envir, enclos): object 'mic' not found # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #> Error in eval(expr, envir, enclos): object 'mic' not found  disk <- random_disk(10) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address disk #> Error in eval(expr, envir, enclos): object 'disk' not found mean_amr_distance(disk) #> Error in eval(expr, envir, enclos): object 'disk' not found  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\") ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address y #> Error in eval(expr, envir, enclos): object 'y' not found mean_amr_distance(y) #> Error in eval(expr, envir, enclos): object 'y' not found y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in eval(expr, envir, enclos): object 'y' not found y[order(y$amr_distance), ] #> Error in eval(expr, envir, enclos): object 'y' not found  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) } #> Error in eval(expr, envir, enclos): object 'y' not found 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) } #> Error in filter(., mo_genus() == \"Enterococcus\" & mo_species() != \"\"): ℹ In argument: `mo_genus() == \"Enterococcus\" & mo_species() != \"\"`. #> Caused by error: #> ! in mo_genus(): argument x is missing and no column with info about #> microorganisms could be found."},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 957 observations 2 variables: code Commonly used code microorganism mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # 'ECO' or 'eco' is the WHONET code for E. coli: microorganisms.codes[microorganisms.codes$code == \"ECO\", ] #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # and therefore, 'eco' will be understood as E. coli in this package: mo_info(\"eco\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 444 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 444 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 444 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 444 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 444 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 444 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 444 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 169 Microorganisms — microorganisms","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: December 11th, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"tibble 52 169 observations 23 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters, e.g. \"Váňová\" becomes \"Vanova\". lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 73.4% ~36 000 bacteria data set contain oxygen tolerance. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version July 1st, 2021 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"Please note entries based List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"Included taxonomic data : ~36 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species 43 relevant genera kingdom Animalia (Strongyloides Taenia) ~9 800 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 34 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found : https://github.com/msberends/AMR/blob/main/data-raw/reproduction_of_microorganisms.R.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"about-the-records-from-lpsn-see-source-","dir":"Reference","previous_headings":"","what":"About the Records from LPSN (see Source)","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"LPSN main source bacteriological taxonomy AMR package. List Prokaryotic names Standing Nomenclature (LPSN) provides comprehensive information nomenclature prokaryotes. LPSN free use service founded Jean P. Euzeby 1997 later maintained Aidan C. Parte.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"","code":"microorganisms #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_uncertainties() #> No uncertainties to show. Only uncertainties of the last call to as.mo() #> or any mo_*() function are stored.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> Error in .Call(Cchmatch, x, table, as.integer(nomatch[1L])): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_oxygen_tolerance(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_anaerobic(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed() mo_info() named character case mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). Determination bacterial oxygen tolerance (mo_oxygen_tolerance()) based BacDive, see Source. function mo_is_anaerobic() returns TRUE oxygen tolerance \"anaerobe\", indicting obligate anaerobic species genus. always returns FALSE species outside taxonomic kingdom Bacteria. function mo_url() return direct URL online database entry, also shows scientific reference concerned species. SNOMED codes (mo_snomed()) version July 1st, 2021. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_phylum(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_class(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_order(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_family(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_genus(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_species(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_subspecies(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_snomed(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_type(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_rank(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_url(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_authors(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_year(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_lpsn(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gbif(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_synonyms(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_species(\"MRSA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"VISA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"VISA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  mo_genus(\"EHEC\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_species(\"EIEC\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"UPEC\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"K. pneu rh\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Staph epidermidis\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Strep agalactiae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_type(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # 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) } #> Error in filter(., mo_is_gram_positive()): ℹ In argument: `mo_is_gram_positive()`. #> Caused by error: #> ! in mo_is_gram_positive(): argument x is missing and no column with info #> about microorganisms could be found. if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> Error in filter(., mo_is_intrinsic_resistant(ab = \"vanco\")): ℹ In argument: `mo_is_intrinsic_resistant(ab = \"vanco\")`. #> Caused by error: #> ! in mo_is_intrinsic_resistant(): argument x is missing and no column with #> info about microorganisms could be found.  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address # }"},{"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\")   } } #> Error in group_by(., order = mo_order(mo), genus = mo_genus(mo)): ℹ In argument: `order = mo_order(mo)`. #> Caused by error in `.Call()`: #> ! NULL value passed as symbol address # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for mic autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for mic fortify(object, ...)  # S3 method for disk plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk fortify(object, ...)  # S3 method for sir plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for sir autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"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. ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting for Classes sir, mic and disk — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2023\", \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"EUCAST 2012\", \"EUCAST 2011\", \"CLSI 2023\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\", \"CLSI 2012\", \"CLSI 2011\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"some_mic_values <- random_mic(size = 100) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30)) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  plot(some_mic_values) #> Error in eval(expr, envir, enclos): object 'some_mic_values' not found plot(some_disk_values) #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found plot(some_sir_values) #> Error in eval(expr, envir, enclos): object 'some_sir_values' not found  # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\") #> Error in eval(expr, envir, enclos): object 'some_mic_values' not found plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"uk\") #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found  # \\donttest{ if (require(\"ggplot2\")) {   autoplot(some_mic_values) } #> Error in eval(expr, envir, enclos): object 'some_mic_values' not found if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") } #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found if (require(\"ggplot2\")) {   autoplot(some_sir_values) } #> Error in eval(expr, envir, enclos): object 'some_sir_values' not found # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. functions meant count isolates, calculate proportion resistance/susceptibility. Use count() functions count isolates. function susceptibility() essentially equal count_susceptible() / count_all(). Low counts can influence outcome - proportion functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> Error: in resistance(): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # determines %S+I: susceptibility(example_isolates$AMX) #> Error: in susceptibility(): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # be more specific proportion_S(example_isolates$AMX) #> Error: in proportion_S(): NULL value passed as symbol address proportion_SI(example_isolates$AMX) #> Error: in proportion_SI(): NULL value passed as symbol address proportion_I(example_isolates$AMX) #> Error: in proportion_I(): NULL value passed as symbol address proportion_IR(example_isolates$AMX) #> Error: in proportion_IR(): NULL value passed as symbol address proportion_R(example_isolates$AMX) #> Error: in proportion_R(): NULL value passed as symbol address  # 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 } #> Error in summarise(., r = resistance(CIP), n = n_sir(CIP)): ℹ In argument: `r = resistance(CIP)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by error: #> ! in resistance(): NULL value passed as symbol address 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\"),     ) } #> Error in summarise(., cipro_R = resistance(CIP), ci_min = sir_confidence_interval(CIP,     side = \"min\"), ci_max = sir_confidence_interval(CIP, side = \"max\"),     ): ℹ In argument: `cipro_R = resistance(CIP)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by error: #> ! in resistance(): NULL value passed as symbol address 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     ) } #> Error in .Call(Cchin, x, table): NULL value passed as symbol address 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) } #> Error in summarise(., R = resistance(CIP, as_percent = TRUE), SI = susceptibility(CIP,     as_percent = TRUE), n1 = count_all(CIP), n2 = n_sir(CIP),     total = n()): ℹ In argument: `R = resistance(CIP, as_percent = TRUE)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by error: #> ! in resistance(): NULL value passed as symbol address # }"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":null,"dir":"Reference","previous_headings":"","what":"Random MIC Values/Disk Zones/SIR Generation — random","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"functions can used generating random MIC values disk diffusion diameters, AMR data analysis practice. providing microorganism antimicrobial drug, generated results reflect reality much possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(size = NULL, mo = NULL, ab = NULL, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"size desired size returned vector. used data.frame call dplyr verb, get current (group) size left blank. mo character can coerced valid microorganism code .mo() ab character can coerced valid antimicrobial drug code .ab() ... ignored, place allow future extensions prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value)","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"class mic random_mic() (see .mic()) class disk random_disk() (see .disk())","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"base R function sample() used generating values. Generated values based EUCAST 2023 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_disk(25) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_sir(25) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address # }"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict Antimicrobial Resistance — resistance_predict","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Create prediction model predict antimicrobial resistance next years statistical solid ground. Standard errors (SE) returned columns se_min se_max. See Examples real live example.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  sir_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  # S3 method for resistance_predict plot(x, main = paste(\"Resistance Prediction of\", x_name), ...)  ggplot_sir_predict(   x,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )  # S3 method for resistance_predict autoplot(   object,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict Antimicrobial Resistance — resistance_predict","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_ab column name x containing antimicrobial interpretations (\"R\", \"\" \"S\") col_date column name date, used calculate years column consist years already - default first column date class year_min lowest year use prediction model, dafaults lowest year col_date year_max highest year use prediction model - default 10 years today year_every unit sequence lowest year found data year_max minimum minimal amount available isolates per year include. Years containing less observations estimated model. model statistical model choice. generalised linear regression model binomial distribution (.e. using glm(..., family = binomial), assuming period zero resistance followed period increasing resistance leading slowly resistance. See Details valid options. I_as_S logical indicate whether values \"\" treated \"S\" (otherwise treated \"R\"). default, TRUE, follows redefinition EUCAST interpretation (increased exposure) 2019, see section Interpretation S, R . preserve_measurements logical indicate whether predictions years actually available data overwritten original data. standard errors years NA. info logical indicate whether textual analysis printed name summary() statistical model. ... arguments passed functions main title plot ribbon logical indicate whether ribbon shown (default) error bars object model data plotted","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Predict Antimicrobial Resistance — resistance_predict","text":"data.frame extra class resistance_predict columns: year value, estimated preserve_measurements = FALSE, combination observed estimated otherwise se_min, lower bound standard error minimum 0 (standard error never go 0%) se_max upper bound standard error maximum 1 (standard error never go 100%) observations, total number available observations year, .e. \\(S + + R\\) observed, original observed resistant percentages estimated, estimated resistant percentages, calculated model Furthermore, model available attribute: attributes(x)$model, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Valid options statistical model (argument model) : \"binomial\" \"binom\" \"logit\": generalised linear regression model binomial distribution \"loglin\" \"poisson\": generalised log-linear regression model poisson distribution \"lin\" \"linear\": linear regression model","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Predict Antimicrobial Resistance — resistance_predict","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"x <- resistance_predict(example_isolates,   col_ab = \"AMX\",   year_min = 2010,   model = \"binomial\" ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address plot(x) #> Error in eval(expr, envir, enclos): object 'x' not found # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) } #> Error: object 'x' not found  # 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) } #> Error: NULL value passed as symbol address  # 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) } #> Error: In argument: `mo == as.mo(\"E. coli\")`. # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for data.frame skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] 0.09266272"},{"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\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # setting another language set_AMR_locale(\"Spanish\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"Ciprofloxacin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # setting yet another language set_AMR_locale(\"Greek\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"Ciprofloxacin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # setting yet another language set_AMR_locale(\"Ukrainian\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"Ciprofloxacin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address set_AMR_locale(\"German\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address set_AMR_locale(\"de\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"amox/clav\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-0-0-9033","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.0.0.9033","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations EUCAST dosage guideline v13.0 added dosage data set ECOFF: clinical_breakpoints data set now contains epidemiological cut-(ECOFF) values. ECOFFs can used MIC/disk interpretation using .sir(..., breakpoint_type = \"ECOFF\"), important new addition veterinary microbiology. Added support 29 species groups / complexes. gathered new data set microorganisms.groups used clinical breakpoint interpretation. example, CLSI 2023 contains breakpoints RGM group (Rapidly Growing Mycobacterium, containing 80 species) now supported package. Added mo_oxygen_tolerance() retrieve values Added mo_is_anaerobic() determine genera/species obligate anaerobic bacteria Added LPSN GBIF identifiers, oxygen tolerance mo_info() Added SAS Transport files (file extension .xpt) download page use SAS software Added microbial codes Gram-negative/positive anaerobic bacteria","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-0-0-9033","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9033","text":"Updated algorithm .mo() giving weight fungi mo_rank() now returns NA ‘unknown’ microorganisms (B_ANAER, B_ANAER-NEG, B_ANAER-POS, B_GRAMN, B_GRAMP, F_FUNGUS, F_YEAST, UNKNOWN) printing MO codes tibble, mouse-hover now shows full name microorganism Now settable arguments breakpoint type PK/PD, like .sir() now contain name guideline table subtitle plot Fixed formatting sir_interpretation_history() Fixed WHONET codes microorganisms consequently couple entries clinical_breakpoints Fixed bug .mo() led coercion NA values using custom microorganism codes Fixed usage icu_exclude first_isolates() Now allows searching species names Fix using keep_synonyms argument using MO codes input Fix using minimum_matching_score argument Updated code table microorganisms.codes Fixed endless loop using reference_df .mo() Fixed bug indicating UTIs .sir() Greatly improved speed .sir()","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-200","dir":"Changelog","previous_headings":"","what":"AMR 2.0.0","title":"AMR 2.0.0","text":"CRAN release: 2023-03-12 new major release AMR package, great new additions also breaking changes current users. listed . TL;DR functions arguments ‘rsi’ replaced ‘sir’, interpretation MIC values (now .sir() instead .rsi()) - old functions still work now Many new interesting functions, antibiogram() (generating traditional/combined/syndromic/WISCA antibiograms), sir_confidence_interval() mean_amr_distance(), add_custom_microorganisms() add custom microorganisms package Clinical breakpoints added EUCAST 2022 CLSI 2022 Microbiological taxonomy (microorganisms data set) updated 2022 now based LPSN GBIF Much increased algorithms translate user input valid taxonomy, e.g. using recent scientific work per-species human pathogenicity 20 new antibiotics added updated DDDs ATC codes Extended support antiviral agents (antivirals data set), many new functions Now available 20 languages Many small bug fixes","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"sir-vs-rsi-2-0-0","dir":"Changelog","previous_headings":"New","what":"SIR vs. RSI","title":"AMR 2.0.0","text":"milestone version, replaced mentions RSI SIR, comply actually commonly used field clinical microbiology comes tri-form regarding AMR. existing functions .rsi(), rsi_df() ggplot_rsi() still work, replacements .sir(), sir_df(), ggplot_sir() now current functions AMR data analysis. warning thrown session remind users . data set rsi_translation now called clinical_breakpoints better reflect content. ‘RSI functions’ removed future version, late 2023 / early 2024.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-antibiogram-function-2-0-0","dir":"Changelog","previous_headings":"New","what":"New antibiogram function","title":"AMR 2.0.0","text":"new antibiogram() function, users can now generate traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). , follow logic previously described work Klinker et al. (2021, DOI 10.1177/20499361211011373) Barbieri et al. (2021, DOI 10.1186/s13756-021-00939-2). help page antibiogram() extensively elaborates use cases, antibiogram() also supports printing R Markdown Quarto, support 20 languages. Furthermore, different plotting methods implemented allow graphical visualisations well.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"interpretation-of-mic-and-disk-diffusion-values-2-0-0","dir":"Changelog","previous_headings":"New","what":"Interpretation of MIC and disk diffusion values","title":"AMR 2.0.0","text":"clinical breakpoints intrinsic resistance EUCAST 2022 CLSI 2022 added .sir(). EUCAST 2022 (v12.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. default guideline (EUCAST) can now changed new AMR_guideline option, : options(AMR_guideline = \"CLSI 2020\"). new arguments include_PKPD (default: TRUE) include_screening (default: FALSE), users can now specify whether breakpoints screening PK/PD table included interpreting MICs disks diffusion values. options can set globally, can read new manual. Interpretation guidelines older 10 years removed, oldest now included guidelines EUCAST CLSI 2013.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"supported-languages-2-0-0","dir":"Changelog","previous_headings":"New","what":"Supported languages","title":"AMR 2.0.0","text":"added support following ten languages: Chinese (simplified), Czech, Finnish, Greek, Japanese, Norwegian (bokmål), Polish, Romanian, Turkish Ukrainian. antibiotic names now available languages, AMR package automatically determine supported language based user’s system language. grateful valuable input colleagues countries. AMR package now available 20 languages total, according download stats used almost countries world!","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"outbreak-management-2-0-0","dir":"Changelog","previous_headings":"New","what":"Outbreak management","title":"AMR 2.0.0","text":"analysis outbreak management, updated get_episode() is_new_episode() functions: now contain argument case_free_days. argument can used quantify duration case-free days (inter-epidemic interval), new episode start. common requirement outbreak management, e.g. determining number norovirus outbreaks hospital. case-free period 14 28 days, new norovirus cases time considered different (new) episode.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"microbiological-taxonomy-2-0-0","dir":"Changelog","previous_headings":"New","what":"Microbiological taxonomy","title":"AMR 2.0.0","text":"microorganisms data set longer relies Catalogue Life, List Prokaryotic names Standing Nomenclature (LPSN) supplemented ‘backbone taxonomy’ Global Biodiversity Information Facility (GBIF). structure data set changed include separate LPSN GBIF identifiers. Almost previous MO codes retained. contains 1,400 taxonomic names 2022. previously relied experience categorise species pathogenic groups, happy encounter recent work Bartlett et al. (2022, DOI 10.1099/mic.0.001269) extensively studied medical-scientific literature categorise bacterial species groups. See mo_matching_score() work incorporated prevalence column microorganisms data set. Using results, .mo() mo_*() functions now much better capable converting user input valid taxonomic records. new function add_custom_microorganisms() allows users add custom microorganisms AMR package. also made following changes regarding included taxonomy microorganisms functions: Updated full microbiological taxonomy according latest daily LPSN data set (December 2022) latest yearly GBIF taxonomy backbone (November 2022) Added function mo_current() get currently valid taxonomic name microorganism Support 1,516 city-like serovars Salmonella, Salmonella Goldcoast. Formally, serovars belonging S. enterica species, reported name genus city. reason, serovars subspecies column microorganisms data set “enterica” species column, full name contain species name (enterica). new argument keep_synonyms allows correct updated taxonomy, favour now deleted argument allow_uncertain increased tremendously speed returns generally consequent results Sequential coercion now extremely fast results stored package environment, although coercion unknown values must run per session. Previous results can reset/removed new mo_reset_session() function. Support microorganism codes ASIan Antimicrobial Resistance Surveillance Network (ASIARS-Net) MO matching score algorithm (mo_matching_score()) now counts deletions substitutions 2 instead 1, impacts outcome .mo() mo_*() function CRAN allows packages around 5 MB maximum, packages exempted package one Chromista relevant comes antimicrobial resistance, thus lacking primary scope package Chromista almost never clinically relevant, thus lacking secondary scope package microorganisms.old data set removed, previously accepted names now included microorganisms data set. new column status contains \"accepted\" currently accepted names \"synonym\" taxonomic synonyms; currently invalid names. previously accepted names now microorganisms ID - available - LPSN, GBIF SNOMED CT identifier.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antibiotic-agents-and-selectors-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antibiotic agents and selectors","title":"AMR 2.0.0","text":"new function add_custom_antimicrobials() allows users add custom antimicrobial codes names AMR package. antibiotics data set greatly updated: following 20 antibiotics added (also includes new J01RA ATC group): azithromycin/fluconazole/secnidazole (AFC), cefepime/amikacin (CFA), cefixime/ornidazole (CEO), ceftriaxone/beta-lactamase inhibitor (CEB), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), furazidin (FUR), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), lascufloxacin (LSC), levofloxacin/ornidazole (LEO), nemonoxacin (NEM), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin/ornidazole (OOR), oteseconazole (OTE), rifampicin/ethambutol/isoniazid (REI), sarecycline (SRC), tetracycline/oleandomycin (TOL), thioacetazone (TAT) Added missing ATC codes Updated DDDs PubChem Compound IDs Updated antibiotic name spelling, now used WHOCC (cephalexin -> cefalexin, phenethicillin -> pheneticillin) Antibiotic code “CEI” ceftolozane/tazobactam replaced “CZT” comply EARS-Net WHONET 2022. old code still work cases using .ab() ab_*() functions. Support antimicrobial interpretation anaerobic bacteria, adding ‘placeholder’ code B_ANAER microorganisms data set adding breakpoints anaerobics clinical_breakpoints data set, used .sir() interpretion MIC disk diffusion values Also, added support using antibiotic selectors scoped dplyr verbs (without using vars()), : ... %>% summarise_at(aminoglycosides(), resistance), please see resistance() examples.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antiviral-agents-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antiviral agents","title":"AMR 2.0.0","text":"now added extensive support antiviral agents! first time, AMR package extensive support antiviral drugs work names, codes data way. antivirals data set extended 18 new drugs (also new J05AJ ATC group) now also contains antiviral identifiers LOINC codes new data type av (antivirals) added, functionally similar ab antibiotics Functions .av(), av_name(), av_atc(), av_synonyms(), av_from_text() added siblings ab_*() equivalents","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-new-functions-2-0-0","dir":"Changelog","previous_headings":"New","what":"Other new functions","title":"AMR 2.0.0","text":"Function sir_confidence_interval() add confidence intervals AMR calculation. now also included sir_df() proportion_df(). Function mean_amr_distance() calculate mean AMR distance. mean AMR distance normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. Function sir_interpretation_history() view history previous runs .sir() (previously .rsi()). returns ‘logbook’ selected guideline, reference table specific interpretation row data set .sir() run.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changes-2-0-0","dir":"Changelog","previous_headings":"","what":"Changes","title":"AMR 2.0.0","text":"Fix working NA values Fix unsorted dates length 2 Now returns class integer instead numeric since always whole numbers Argument combine_IR removed package (affecting functions count_df(), proportion_df(), sir_df() plotting functions), since replaced combine_SI three years ago Using units ab_ddd(..., units = \"...\") deprecated time now supported anymore. Use ab_ddd_units() instead. Support data.frame-enhancing R packages, specifically: data.table::data.table, janitor::tabyl, tibble::tibble, tsibble::tsibble. AMR package functions data set output (sir_df() bug_drug_combinations()), now return data type input. data sets package now tibble, instead base R data.frames. Older R versions still supported, even support tibbles. data sets now also continually exported Apache Feather Apache Parquet formats. can find info article website. Fixed certain EUCAST breakpoints MIC values Allow NA values (e.g. .sir(.disk(NA), ...)) Fix bug-drug combinations multiple breakpoints different body sites Interpretation MIC disk zones now informative availability breakpoints robust Removed .integer() method MIC values, since MIC integer values running table() MIC values consequently failed able retrieve level position (’s normally .integer() factors work) Fixed determination Gram stains (mo_gramstain()), since taxonomic phyla Actinobacteria, Chloroflexi, Firmicutes, Tenericutes renamed respectively Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota 2021 droplevels() MIC now return common factor default lose mic class. Use droplevels(..., .mic = TRUE) keep mic class. Small fix using ab_from_text() Fixes reading text files using set_mo_source(), now also allows source file contain valid taxonomic names instead valid microorganism ID package Fixed bug mdro() using similar column names Magiorakos guideline Using random_*() function (random_mic()) now possible directly calling package without loading first: AMR::random_mic(10) Extended support vctrs package, used internally tidyverse. allows change values class mic, disk, sir, mo ab tibbles, use antibiotic selectors selecting/filtering, e.g. df[carbapenems() == \"R\", ] Fix using info = FALSE mdro() interpretation guidelines using .sir() amoxicillin, rules ampicillin used amoxicillin rules available Fix using ab_atc() non-existing ATC codes Black white message texts now reversed colour using RStudio dark theme mo_snomed() now returns class character, numeric anymore (make long SNOMED codes readable) Fix using .ab() NA values Updated support WHONET 2022 microorganism codes Antimicrobial interpretation ‘SDD’ (susceptible dose-dependent, coined CLSI) interpreted ‘’ comply EUCAST’s ‘’ .sir() Fix mo_shortname() case higher taxonomic ranks (order, class, phylum) Cleaning columns .sir(), .mic(), .disk() now show column name warning invalid results Fix using g.test() zeroes 2x2 table mo_synonyns() now contains scientific reference names","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-0-0","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.0.0","text":"Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, Andrew Norgan, Jonas Salm, Anita Williams contributors, thank valuable input New website make use new Bootstrap 5 pkgdown 2.0. website now contains results examples automatically regenerated every change repository, using GitHub Actions R Rmd files project now styled using styler package Set scalar conditional expressions (&& ||) possible comply upcoming R 4.3 enormous lot code cleaning, fixing small bugs along way changelog contains changes AMR v2.0 later. prior versions, please see archive.","code":""}]
+[{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to conduct AMR data analysis","text":"Conducting AMR data analysis unfortunately requires -depth knowledge different scientific fields, makes hard right. least, requires: Good questions (always start !) reliable data thorough understanding (clinical) epidemiology, understand clinical epidemiological relevance possible bias results thorough understanding (clinical) microbiology/infectious diseases, understand microorganisms causal infections implications pharmaceutical treatment, well understanding intrinsic acquired microbial resistance Experience data analysis microbiological tests results, understand determination limitations MIC values interpretations SIR values Availability biological taxonomy microorganisms probably normalisation factors pharmaceuticals, defined daily doses (DDD) Available (inter-)national guidelines, profound methods apply course, instantly provide knowledge experience. AMR package, aimed providing (1) tools simplify antimicrobial resistance data cleaning, transformation analysis, (2) methods easily incorporate international guidelines (3) scientifically reliable reference data, including requirements mentioned . AMR package enables standardised reproducible AMR data analysis, application evidence-based rules, determination first isolates, translation various codes microorganisms antimicrobial agents, determination (multi-drug) resistant microorganisms, calculation antimicrobial resistance, prevalence future trends.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to conduct AMR data analysis","text":"tutorial, create fake demonstration data work . can skip Cleaning data already data ready. start analysis, try make structure data generally look like :","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"How to conduct AMR data analysis","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2 RStudio. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. also use cleaner package, can used cleaning data creating frequency tables. AMR package contains data set example_isolates_unclean, might look data users extracted laboratory systems: AMR data analysis, like microorganism column contain valid, --date taxonomy, antibiotic columns cleaned SIR values well.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"dplyr\", \"ggplot2\", \"AMR\")) example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"How to conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 11 Dec 2022. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Microorganism translation was uncertain for four microorganisms. Run #>   mo_uncertainties() to review these uncertainties, or use #>   add_custom_microorganisms() to add custom entries. mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), Salmonella #>               Aurelianis (0.595), Salmonella Aarhus (0.588), Salmonella Amounderness #>               (0.587), Selenomonas artemidis (0.571), Salmonella choleraesuis #>               arizonae (0.562), Streptococcus anginosus anginosus (0.561), and #>               Salmonella Abaetetuba (0.548) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 88% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 626 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,626 'phenotype-based' first isolates (87.6% within scope and #>    87.5% of total where a microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,626 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,616 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2626        Length:2626        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-14   #>  Mode  :character   Mode  :character   Median :2015-06-05   #>                                        Mean   :2015-06-15   #>                                        3rd Qu.:2017-08-23   #>                                        Max.   :2020-01-01   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :43.2% (n=1134)   %R   :36.1% (n=947)    #>  Unique:4              %SI  :56.8% (n=1492)   %SI  :63.9% (n=1679)   #>  #1    :B_ESCHR_COLI   - %S :41.1% (n=1080)   - %S :52.7% (n=1383)   #>  #2    :B_STPHY_AURS   - %I :15.7% (n=412)    - %I :11.3% (n=296)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1102)   %R   :37.0% (n=971)    TRUE:2626      #>  %SI  :58.0% (n=1524)   %SI  :63.0% (n=1655)                  #>  - %S :51.9% (n=1362)   - %S :59.9% (n=1574)                  #>  - %I : 6.2% (n=162)    - %I : 3.1% (n=81)                    #>   glimpse(our_data_1st) #> Rows: 2,626 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"J8\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, R, S, S, S, S, R, S, S, R, R, R, R, I, S,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, R,… #> $ CIP        <sir> S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1808          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1250 #> 2 Staphylococcus aureus      661 #> 3 Streptococcus pneumoniae   399 #> 4 Klebsiella pneumoniae      316"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,626 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2016-06-14 S     #>  7 2015-10-25 S     #>  8 2019-06-19 S     #>  9 2015-04-27 S     #> 10 2011-06-21 S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,626 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI R     S     #>  7 B_ESCHR_COLI R     S     #>  8 B_ESCHR_COLI S     S     #>  9 B_STPHY_AURS S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,616 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,626 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     S     #>  7 B_ESCHR_COLI R     S     S     S     #>  8 B_ESCHR_COLI S     S     S     S     #>  9 B_STPHY_AURS S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,616 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 971 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN R     S     S     R     TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS R     S     S     R     TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI S     S     S     R     TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI S     S     S     R     TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI S     S     S     R     TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS S     S     S     R     TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN S     S     S     R     TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS S     S     S     R     TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS S     S     S     R     TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN S     S     S     R     TRUE  #> # ℹ 961 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 471 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN R     R     S     S     TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS R     R     S     S     TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS R     R     S     S     TRUE  #>  5 I7         A        2015-08-19 B_ESCHR_COLI R     R     S     S     TRUE  #>  6 N3         A        2014-12-29 B_STRPT_PNMN R     R     R     S     TRUE  #>  7 Q2         A        2019-09-22 B_ESCHR_COLI R     R     S     S     TRUE  #>  8 X7         A        2011-03-20 B_ESCHR_COLI R     R     S     R     TRUE  #>  9 C5         A        2015-08-30 B_KLBSL_PNMN R     R     S     R     TRUE  #> 10 W9         A        2013-10-02 B_ESCHR_COLI R     R     S     S     TRUE  #> # ℹ 461 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"How to conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. next example, force language Spanish using language argument:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) antibiogram(example_isolates,             mo_transform = \"gramstain\",             antibiotics = aminoglycosides(),             ab_transform = \"name\",             language = \"es\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"How to conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"How to conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"How to conduct AMR data analysis","text":"create WISCA, must state combination therapy antibiotics argument (similar Combination Antibiogram), define syndromic group syndromic_group argument (similar Syndromic Antibiogram) cases predefined based clinical demographic characteristics (e.g., endocarditis 75+ females). next example simplification without clinical characteristics, just gives idea WISCA can created:","code":"wisca <- antibiogram(example_isolates,                      antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),                      mo_transform = \"gramstain\",                      minimum = 10, # this should be >= 30, but now just as example                      syndromic_group = ifelse(example_isolates$age >= 65 &                                                 example_isolates$gender == \"M\",                                               \"WISCA Group 1\", \"WISCA Group 2\")) wisca"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"How to conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4318355 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.343 #> 2 B              0.569 #> 3 C              0.375"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.1, 2016). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: (16 isolates test results) Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          R         I            R          R            I            I #> 2          R         I            I          I            R            I #> 3          S         S            R          I            I            R #> 4          S         R            S          R            S            I #> 5          I         R            S          I            R            I #> 6          I         I            I          S            S            R #>   kanamycin #> 1         S #> 2         S #> 3         R #> 4         S #> 5         I #> 6         S mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 9.577e-17 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 3: S < < R Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 52 169 rows 23 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, oxygen_tolerance, source, lpsn, lpsn_parent, lpsn_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.7 MB) Download Microsoft Excel workbook (5.2 MB) Download Apache Feather file (5.5 MB) Download Apache Parquet file (2.6 MB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (48.6 MB) Download IBM SPSS Statistics data file (17.8 MB) Download Stata DTA file (48.6 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org December 11th, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microoganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 22 February 2023 13:38:57 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (39 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (66 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (97 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (1.4 MB) Download IBM SPSS Statistics data file (0.3 MB) Download Stata DTA file (0.4 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 13 November 2022 07:46:10 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (16 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (15 kB) Download Apache Parquet file (13 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (68 kB) Download IBM SPSS Statistics data file (30 kB) Download Stata DTA file (73 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 28 885 rows 12 columns, containing following column names:guideline, type, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 10 July 2023 17:04:12 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (59 kB) Download tab-separated text file (2.2 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (87 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (7.7 MB) Download IBM SPSS Statistics data file (4.4 MB) Download Stata DTA file (7.6 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2011-2023) EUCAST (2011-2023).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (9.5 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 503 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (43 kB) Download Microsoft Excel workbook (25 kB) Download Apache Feather file (21 kB) Download Apache Parquet file (9 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (0.1 MB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant :  (), ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021), ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Data sets for download / own use","text":"data set 444 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 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (5 kB) Download tab-separated text file (42 kB) Download Microsoft Excel workbook (18 kB) Download Apache Feather file (17 kB) Download Apache Parquet file (12 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (54 kB) Download Stata DTA file (68 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-8","dir":"Articles","previous_headings":"microorganisms.groups: Species Groups and Microbiological Complexes","what":"Source","title":"Data sets for download / own use","text":"data set contains species groups microbiological complexes, used clinical_breakpoints data set.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Data sets for download / own use","text":"data set 4 957 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (22 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (91 kB) Download Apache Feather file (85 kB) Download Apache Parquet file (57 kB) (unavailable SAS data (SAS) file) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (0.1 MB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-9","dir":"Articles","previous_headings":"microorganisms.codes: Common Laboratory Codes","what":"Source","title":"Data sets for download / own use","text":"data set contains commonly used codes microorganisms, laboratory systems WHONET.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 32 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 22 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions — AMR-deprecated","title":"Deprecated Functions — AMR-deprecated","text":"functions -called 'Deprecated'. removed future release. Using functions give warning name function replaced (one).","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions — AMR-deprecated","text":"","code":"NA_rsi_  as.rsi(x, ...)  facet_rsi(...)  geom_rsi(...)  ggplot_rsi(...)  ggplot_rsi_predict(...)  is.rsi(...)  is.rsi.eligible(...)  labels_rsi_count(...)  n_rsi(...)  random_rsi(...)  rsi_df(...)  rsi_predict(...)  scale_rsi_colours(...)  theme_rsi(...)"},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Deprecated Functions — AMR-deprecated","text":"object class rsi (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2023\". Supported guideline currently EUCAST (2011-2023) CLSI (2011-2023). AMR_ignore_pattern  regular expression ignore (.e., make NA) match given .mo() mo_* functions. AMR_include_PKPD  logical use .sir(), indicate PK/PD clinical breakpoints must applied last resort - default TRUE. AMR_ecoff  logical use .sir(), indicate ECOFF (Epidemiological Cut-) values must used - default FALSE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_locale  language use AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options :   add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within data team, save options file remote file location, shared network drive. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~52 000 microorganisms (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"The AMR Package — AMR","text":"cite AMR publications use: Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). \"AMR: R Package Working Antimicrobial Resistance Data.\" Journal Statistical Software, 104(3), 1-31. doi:10.18637/jss.v104.i03 . BibTeX entry LaTeX users :","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"The AMR Package — AMR","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.s.berends@umcg.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Use function e.g. clinical texts health care records. returns list antimicrobial drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"ab_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_ab = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_ab type = \"drug\": column name antibiotics data set translate antibiotic abbreviations , using ab_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .ab()","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"function also internally used .ab(), although searches first drug name throw note drug names returned. Note: .ab() function may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"default, function search antimicrobial drug names. text elements searched official names, ATC codes brand names. uses .ab() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(abx = ab_from_text(clinical_text)) returned AB codes can transformed official names, groups, etc. ab_* functions ab_name() ab_group(), using translate_ab argument. using collapse, function return character:df %>% mutate(abx = ab_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"# mind the bad spelling of amoxicillin in this line, # straight from a true health care record: ab_from_text(\"28/03/2020 regular amoxicilliin 500mg po tid\") #> [[1]] #> Class 'ab' #> [1] AMX #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") #> [[1]] #> Class 'ab' #> [1] AMX CIP #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"dose\") #> [[1]] #> [1] 500 400 #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"admin\") #> [[1]] #> [1] \"oral\" \"iv\"   #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", collapse = \", \") #> [1] \"AMX, CIP\" # \\donttest{ # if you want to know which antibiotic groups were administered, do e.g.: abx <- ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") ab_group(abx[[1]]) #> [1] \"Beta-lactams/penicillins\" \"Quinolones\"                if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antibiotic — ab_property","title":"Get Properties of an Antibiotic — ab_property","text":"Use functions return specific property antibiotic antibiotics data set. input values evaluated internally .ab().","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"ab_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  ab_cid(x, ...)  ab_synonyms(x, ...)  ab_tradenames(x, ...)  ab_group(x, language = get_AMR_locale(), ...)  ab_atc(x, only_first = FALSE, ...)  ab_atc_group1(x, language = get_AMR_locale(), ...)  ab_atc_group2(x, language = get_AMR_locale(), ...)  ab_loinc(x, ...)  ab_ddd(x, administration = \"oral\", ...)  ab_ddd_units(x, administration = \"oral\", ...)  ab_info(x, language = get_AMR_locale(), ...)  ab_url(x, open = FALSE, ...)  ab_property(x, property = \"name\", language = get_AMR_locale(), ...)  set_ab_names(   data,   ...,   property = \"name\",   language = get_AMR_locale(),   snake_case = NULL )"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antibiotic — ab_property","text":"x (vector ) text can coerced valid antibiotic drug code .ab() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. lead e.g. \"polymyxin B\" \"polymyxin b\". ... case set_ab_names() data data.frame: columns select (supports tidy selection column1:column4), otherwise arguments passed .ab() only_first logical indicate whether first ATC code must returned, giving preference J0-codes (.e., antimicrobial drug group) administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antibiotics data set: vector_or(colnames(antibiotics), sort = FALSE). data data.frame columns need renamed, character vector column names snake_case logical indicate whether names -called snake case: lower case spaces/slashes replaced underscore (_)","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antibiotic — ab_property","text":"integer case ab_cid() named list case ab_info() multiple ab_atc()/ab_synonyms()/ab_tradenames() double case ab_ddd() data.frame case set_ab_names() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antibiotic — ab_property","text":"output translated possible. function ab_url() return direct URL official website. warning returned required ATC code available. function set_ab_names() special column renaming function data.frames. renames columns names resemble antimicrobial drugs. always makes sure new column names unique. property = \"atc\" set, preference given ATC codes J-group.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antibiotic — ab_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"# all properties: ab_name(\"AMX\") #> [1] \"Amoxicillin\" ab_atc(\"AMX\") #> [1] \"J01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_tradenames(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_group(\"AMX\") #> [1] \"Beta-lactams/penicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                           Amoxicillin  #> \"https://www.whocc.no/atc_ddd_index/?code=J01CA04&showdescription=no\"   # smart lowercase transformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #> [1] \"16365-9\" \"25274-2\" \"3344-9\"  \"80133-2\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #> [1] \"21066-6\" \"3355-5\"  \"33562-0\" \"33919-2\" \"43883-8\" \"43884-6\" \"87604-5\" ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antibiotics data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"# \\donttest{  # returns NA and throws a warning (which is suppressed here): suppressWarnings(   as.ab(\"testab\") ) #> Class 'ab' #> [1] <NA>  # now add a custom entry - it will be considered by as.ab() and # all ab_*() functions add_custom_antimicrobials(   data.frame(     ab = \"TESTAB\",     name = \"Test Antibiotic\",     # you can add any property present in the     # 'antibiotics' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal antibiotics data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://www.whocc.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal antibiotics data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antibiotic selectors work x <- data.frame(   random_column = \"some value\",   coflu = as.sir(\"S\"),   ampicillin = as.sir(\"R\") ) x #>   random_column coflu ampicillin #> 1    some value     S          R x[, betalactams()] #> ℹ For betalactams() using columns 'coflu' (co-fluampicil) and #>   'ampicillin' #>   coflu ampicillin #> 1     S          R # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Microorganisms — add_custom_microorganisms","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"add_custom_microorganisms() can add custom microorganisms, non-taxonomic outcome laboratory analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"add_custom_microorganisms(x)  clear_custom_microorganisms()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"x data.frame resembling microorganisms data set, least containing column \"genus\" (case-insensitive)","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter cloacae cloacae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal microorganisms data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2023\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $gbif #> [1] NA #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, even though a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1977-06-14  46  46.07397         22 #> 2  1993-12-20  29  29.55616          6 #> 3  1972-01-21  51  51.46849         27 #> 4  1986-01-26  37  37.45479         13 #> 5  1985-02-06  38  38.42466         14 #> 6  1972-06-12  51  51.07945         27 #> 7  1995-11-06  27  27.67671          4 #> 8  1941-07-25  81  81.96164         58 #> 9  1952-06-15  71  71.07123         47 #> 10 1948-08-16  74  74.90137         51"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for antibiogram knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set: \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\")) --------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 10 × 7 #>    `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 CoNS (43-309)              0    86    52     0    52    22 #>  2 E. coli (0-462)          100    98   100    NA   100    97 #>  3 E. faecalis (0-39)         0     0   100     0    NA     0 #>  4 K. pneumoniae (0-58)      NA    90   100    NA   100    90 #>  5 P. aeruginosa (17-30)     NA   100    NA     0    NA   100 #>  6 P. mirabilis (0-34)       NA    94    94    NA    NA    94 #>  7 S. aureus (2-233)         NA    99    NA    NA    NA    98 #>  8 S. epidermidis (8-163)     0    79    NA     0    NA    51 #>  9 S. hominis (3-80)         NA    92    NA    NA    NA    85 #> 10 S. pneumoniae (11-117)     0     0    NA     0    NA     0  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Pathogen (N min-max)`   J01GB01 J01GB03 J01GB04 J01GB06 #> * <chr>                      <dbl>   <dbl>   <dbl>   <dbl> #> 1 Gram-negative (35-686)        96      96       0      98 #> 2 Gram-positive (436-1170)      34      63       0       0  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 5 × 3 #>   `Pathogen (N min-max)`                           Imipenem Meropenem #> * <chr>                                               <dbl>     <dbl> #> 1 Coagulase-negative Staphylococcus (CoNS) (48-48)       52        52 #> 2 Enterococcus faecalis (0-38)                          100        NA #> 3 Escherichia coli (418-422)                            100       100 #> 4 Klebsiella pneumoniae (51-53)                         100       100 #> 5 Proteus mirabilis (27-32)                              94        NA   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # A tibble: 2 × 4 #>   `Pathogen (N min-max)`     TZP `TZP + GEN` `TZP + TOB` #> * <chr>                    <dbl>       <dbl>       <dbl> #> 1 Gram-negative (641-693)     88          99          98 #> 2 Gram-positive (345-1044)    86          98          95  # names of antibiotics do not need to resemble columns exactly: antibiogram(example_isolates,   antibiotics = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # A tibble: 2 × 3 #>   `Pathogen (N min-max)`  Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>                           <dbl>                        <dbl> #> 1 Gram-negative (684-694)            91                           99 #> 2 Gram-positive (724-847)            77                           93   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 14 × 8 #>    `Syndromic Group` `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>             <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 Clinical          CoNS (23-205)             NA    89    57    NA    57    26 #>  2 ICU               CoNS (10-73)              NA    79    NA    NA    NA    NA #>  3 Outpatient        CoNS (3-31)               NA    84    NA    NA    NA    NA #>  4 Clinical          E. coli (0-299)          100    98   100    NA   100    98 #>  5 ICU               E. coli (0-137)          100    99   100    NA   100    96 #>  6 Clinical          K. pneumoniae (0-51)      NA    92   100    NA   100    92 #>  7 Clinical          P. mirabilis (0-30)       NA   100    NA    NA    NA   100 #>  8 Clinical          S. aureus (2-150)         NA    99    NA    NA    NA    97 #>  9 ICU               S. aureus (0-66)          NA   100    NA    NA    NA    NA #> 10 Clinical          S. epidermidis (4-79)     NA    82    NA    NA    NA    55 #> 11 ICU               S. epidermidis (4-75)     NA    72    NA    NA    NA    41 #> 12 Clinical          S. hominis (1-45)         NA    96    NA    NA    NA    94 #> 13 Clinical          S. pneumoniae (5-78)       0     0    NA     0    NA     0 #> 14 ICU               S. pneumoniae (5-30)       0     0    NA     0    NA     0  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for mo_genus()  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antibiotics = aminoglycosides(),   ab_transform = \"name\",   syndromic_group = ifelse(ex1$ward == \"ICU\",     \"UCI\", \"No UCI\"   ),   language = \"es\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Grupo sindrómico` `Patógeno (N min-max)` Amikacina Gentamicina Tobramicina #> * <chr>              <chr>                      <dbl>       <dbl>       <dbl> #> 1 No UCI             E. coli (0-325)              100          98          98 #> 2 UCI                E. coli (0-137)              100          99          96   # Weighted-incidence syndromic combination antibiogram (WISCA) ---------  # the data set could contain a filter for e.g. respiratory specimens/ICU antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   minimum = 10, # this should be >=30, but now just as example   syndromic_group = ifelse(example_isolates$age >= 65 &     example_isolates$gender == \"M\",   \"WISCA Group 1\", \"WISCA Group 2\"   ) ) #> # A tibble: 4 × 6 #>   `Syndromic Group` `Pathogen (N min-max)`    AMC `AMC + CIP`   TZP `TZP + TOB` #> * <chr>             <chr>                   <dbl>       <dbl> <dbl>       <dbl> #> 1 WISCA Group 1     Gram-negative (261-285)    76          95    89          99 #> 2 WISCA Group 2     Gram-negative (380-442)    76          98    88          98 #> 3 WISCA Group 1     Gram-positive (123-406)    76          89    81          95 #> 4 WISCA Group 2     Gram-positive (222-732)    76          89    88          95   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ For ureidopenicillins() using column 'TZP' (piperacillin/tazobactam)  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Pathogen (N)          | Piperacillin/tazobactam| #> |:---------------------|-----------------------:| #> |CoNS (33)             |                      30| #> |*E. coli* (416)       |                      94| #> |*K. pneumoniae* (53)  |                      89| #> |*S. pneumoniae* (112) |                     100|   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   syndromic_group = \"ward\" )  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab1) }  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab2) }   plot(ab1)  plot(ab2)  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antibiotic Selectors — antibiotic_class_selectors","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions allow filtering rows selecting columns based antibiotic test results specific antibiotic class group (according antibiotics data set), without need define columns antibiotic abbreviations. short, column name resembles antimicrobial drug, picked functions matches pharmaceutical class: \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" picked cephalosporins().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"ab_class(ab_class, only_sir_columns = FALSE, only_treatable = TRUE, ...)  ab_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, ...)  antifungals(only_sir_columns = FALSE, ...)  antimycobacterials(only_sir_columns = FALSE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE, ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, ...)  cephalosporins_1st(only_sir_columns = FALSE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, ...)  cephalosporins_4th(only_sir_columns = FALSE, ...)  cephalosporins_5th(only_sir_columns = FALSE, ...)  fluoroquinolones(only_sir_columns = FALSE, ...)  glycopeptides(only_sir_columns = FALSE, ...)  lincosamides(only_sir_columns = FALSE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  streptogramins(only_sir_columns = FALSE, ...)  quinolones(only_sir_columns = FALSE, ...)  tetracyclines(only_sir_columns = FALSE, ...)  trimethoprims(only_sir_columns = FALSE, ...)  ureidopenicillins(only_sir_columns = FALSE, ...)  administrable_per_os(only_sir_columns = FALSE, ...)  administrable_iv(only_sir_columns = FALSE, ...)  not_intrinsic_resistant(   only_sir_columns = FALSE,   col_mo = NULL,   version_expertrules = 3.3,   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"ab_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antibiotics data set searched (case-insensitive) value. only_sir_columns logical indicate whether columns class sir must selected (default FALSE), see .sir() only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE) ... ignored, place allow future extensions filter expression evaluated antibiotics data set, name %like% \"trim\" col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"(internally) character vector column names, additional class \"ab_selector\"","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), amphotericin B-high (AMH), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amphotericin B (AMB), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # Examples sections below are split into 'base R', 'dplyr', and 'data.table':   # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows  # select only antibiotic columns with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  2 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  3 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  4 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  5 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  6 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  7 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  8 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  9 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA    #> 10 NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB  S     NA    S     S     #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN  S     NA    S     S     #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB  S     NA    S     S     #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI  R     NA    NA    R     #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antibiotic selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP R     NA    NA    R     #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS R     R     R     R     #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS R     R     R     R     #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS R     R     R     R     #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS R     R     R     R     #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    NA    NA    NA    NA    #>  2 NA    NA    NA    NA    NA    NA    NA    #>  3 R     NA    NA    R     R     R     R     #>  4 NA    NA    NA    NA    NA    NA    R     #>  5 NA    NA    NA    NA    NA    NA    R     #>  6 NA    NA    NA    NA    NA    NA    R     #>  7 NA    NA    NA    NA    NA    NA    R     #>  8 NA    NA    NA    NA    NA    NA    R     #>  9 R     NA    NA    NA    S     NA    S     #> 10 R     NA    NA    NA    S     NA    S     #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows  # ab_selector() applies a filter in the `antibiotics` data set and is thus # very flexible. For instance, to select antibiotic columns with an oral DDD # of at least 1 gram: example_isolates[, ab_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For ab_selector(oral_ddd > 1 & oral_units == \"g\") using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  2 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  3 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA    #>  7 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  8 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  9 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA    #> # ℹ 1,990 more rows  # \\donttest{ # dplyr -------------------------------------------------------------------  if (require(\"dplyr\")) {   tibble(kefzol = random_sir(5)) %>%     select(cephalosporins()) } #> ℹ For cephalosporins() using column 'kefzol' (cefazolin) #> # A tibble: 5 × 1 #>   kefzol #>   <sir>  #> 1 R      #> 2 I      #> 3 I      #> 4 I      #> 5 R       if (require(\"dplyr\")) {   # get AMR for all aminoglycosides e.g., per ward:   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), resistance)) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(aminoglycosides(), resistance)`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 5 #>   ward         GEN   TOB   AMK   KAN #>   <chr>      <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 #> 2 ICU        0.290 0.400 0.662     1 #> 3 Outpatient 0.2   0.368 0.605    NA if (require(\"dplyr\")) {   # You can combine selectors with '&' to be more specific:   example_isolates %>%     select(penicillins() & administrable_per_os()) } #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get AMR for only drugs that matter - no intrinsic resistance:   example_isolates %>%     filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%     group_by(ward) %>%     summarise(across(not_intrinsic_resistant(), resistance)) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ For not_intrinsic_resistant() removing columns 'PEN' #>   (benzylpenicillin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'TEC' #>   (teicoplanin), 'ERY' (erythromycin), 'CLI' (clindamycin), 'AZM' #>   (azithromycin), and 'RIF' (rifampicin) #> Warning: There were 52 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `across(not_intrinsic_resistant(), resistance)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by warning: #> ! Introducing NA: no results available for OXA in group: ward = \"Clinical\" #> (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 51 remaining warnings. #> # A tibble: 3 × 33 #>   ward    OXA   FLC    AMX    AMC    AMP     TZP     CZO     FEP     CXM     FOX #>   <chr> <dbl> <dbl>  <dbl>  <dbl>  <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clin…    NA    NA  0.606  0.121  0.606  0.0504  0.0656  0.0159  0.0622  0.0648 #> 2 ICU      NA    NA  0.535  0.172  0.535  0.119  NA       0.0722  0.0828  0.0992 #> 3 Outp…    NA    NA NA     NA     NA     NA      NA      NA      NA      NA      #> # ℹ 22 more variables: CTX <dbl>, CAZ <dbl>, CRO <dbl>, GEN <dbl>, TOB <dbl>, #> #   AMK <dbl>, KAN <dbl>, TMP <dbl>, SXT <dbl>, NIT <dbl>, FOS <dbl>, #> #   CIP <dbl>, MFX <dbl>, TCY <dbl>, TGC <dbl>, DOX <dbl>, IPM <dbl>, #> #   MEM <dbl>, MTR <dbl>, CHL <dbl>, COL <dbl>, MUP <dbl> if (require(\"dplyr\")) {   # get susceptibility for antibiotics whose name contains \"trim\":   example_isolates %>%     filter(first_isolate()) %>%     group_by(ward) %>%     summarise(across(ab_selector(name %like% \"trim\"), susceptibility)) } #> ℹ For ab_selector(name %like% \"trim\") using columns 'TMP' (trimethoprim) #>   and 'SXT' (trimethoprim/sulfamethoxazole) #> # A tibble: 3 × 3 #>   ward         TMP   SXT #>   <chr>      <dbl> <dbl> #> 1 Clinical   0.627 0.808 #> 2 ICU        0.549 0.778 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(carbapenems()) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB':   example_isolates %>%     select(mo, aminoglycosides()) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # any() and all() work in dplyr's filter() too:   example_isolates %>%     filter(       any(aminoglycosides() == \"R\"),       all(cephalosporins_2nd() == \"R\")     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For cephalosporins_2nd() using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> # A tibble: 112 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  7 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #> 10 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #> # ℹ 102 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # also works with c():   example_isolates %>%     filter(any(c(carbapenems(), aminoglycosides()) == \"R\")) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 531 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  4 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  5 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> # ℹ 521 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # not setting any/all will automatically apply all():   example_isolates %>%     filter(aminoglycosides() == \"R\") } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ Assuming a filter on all 4 aminoglycosides. Wrap around all() or #>   any() to prevent this note. #> # A tibble: 427 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  3 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  4 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  6 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-16 D25302     65 F      ICU      B_STRPT_ANGN S     NA    NA    S     #> # ℹ 417 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # this will select columns 'mo' and all antimycobacterial drugs ('RIF'):   example_isolates %>%     select(mo, ab_class(\"mycobact\")) } #> ℹ For ab_class(\"mycobact\") using column 'RIF' (rifampicin) #> # A tibble: 2,000 × 2 #>    mo           RIF   #>    <mo>         <sir> #>  1 B_ESCHR_COLI R     #>  2 B_ESCHR_COLI R     #>  3 B_STPHY_EPDR NA    #>  4 B_STPHY_EPDR NA    #>  5 B_STPHY_EPDR NA    #>  6 B_STPHY_EPDR NA    #>  7 B_STPHY_AURS NA    #>  8 B_STPHY_AURS NA    #>  9 B_STPHY_EPDR NA    #> 10 B_STPHY_EPDR NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get bug/drug combinations for only glycopeptides in Gram-positives:   example_isolates %>%     filter(mo_is_gram_positive()) %>%     select(mo, glycopeptides()) %>%     bug_drug_combinations() %>%     format() } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ For glycopeptides() using columns 'VAN' (vancomycin) and 'TEC' #>   (teicoplanin) #> # A tibble: 2 × 8 #>   Group      Drug  CoNS  `E. faecalis` `S. aureus` `S. epidermidis` `S. hominis` #>   <chr>      <chr> <chr> <chr>         <chr>       <chr>            <chr>        #> 1 \"Glycopep… Teic… \"\"    \"\"            \" 0.0% (0/… \"64.1% (25/39)\"  \" 6.8% (4/5… #> 2 \"\"         Vanc… \" 0.… \" 0.0% (0/39… \" 0.0% (0/… \" 0.0% (0/171)\"  \" 0.0% (0/8… #> # ℹ 1 more variable: `S. pneumoniae` <chr> if (require(\"dplyr\")) {   data.frame(     some_column = \"some_value\",     J01CA01 = \"S\"   ) %>% # ATC code of ampicillin     select(penicillins()) # only the 'J01CA01' column will be selected } #> ℹ For penicillins() using column 'J01CA01' (ampicillin) #>   J01CA01 #> 1       S if (require(\"dplyr\")) {   # with recent versions of dplyr, this is all equal:   x <- example_isolates[carbapenems() == \"R\", ]   y <- example_isolates %>% filter(carbapenems() == \"R\")   z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\"))   identical(x, y) && identical(y, z) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] TRUE   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] \"IPM\" \"MEM\" #> attr(,\"class\") #> [1] \"ab_selector\" \"character\"   if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>        IPM  MEM #>    1: <NA> <NA> #>    2: <NA> <NA> #>    3: <NA> <NA> #>    4: <NA> <NA> #>    5: <NA> <NA> #>   ---           #> 1996: <NA> <NA> #> 1997:    S    S #> 1998:    S    S #> 1999:    S    S #> 2000:    S    S  # for multiple selections or AB selectors, `with = FALSE` is not needed: if (require(\"data.table\")) {   dt[, c(\"mo\", aminoglycosides())] } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>                 mo  GEN  TOB  AMK  KAN #>    1: B_ESCHR_COLI <NA> <NA> <NA> <NA> #>    2: B_ESCHR_COLI <NA> <NA> <NA> <NA> #>    3: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>    4: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>    5: B_STPHY_EPDR <NA> <NA> <NA> <NA> #>   ---                                  #> 1996: B_STRPT_PNMN    R    R    R    R #> 1997: B_ESCHR_COLI    S    S    S <NA> #> 1998: B_STPHY_CONS    S <NA> <NA> <NA> #> 1999: B_ESCHR_COLI    S    S <NA> <NA> #> 2000: B_KLBSL_PNMN    S    S <NA> <NA> if (require(\"data.table\")) {   dt[, c(carbapenems(), aminoglycosides())] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>        IPM  MEM  GEN  TOB  AMK  KAN #>    1: <NA> <NA> <NA> <NA> <NA> <NA> #>    2: <NA> <NA> <NA> <NA> <NA> <NA> #>    3: <NA> <NA> <NA> <NA> <NA> <NA> #>    4: <NA> <NA> <NA> <NA> <NA> <NA> #>    5: <NA> <NA> <NA> <NA> <NA> <NA> #>   ---                               #> 1996: <NA> <NA>    R    R    R    R #> 1997:    S    S    S    S    S <NA> #> 1998:    S    S    S <NA> <NA> <NA> #> 1999:    S    S    S    S <NA> <NA> #> 2000:    S    S    S    S <NA> <NA>  # row filters are also supported: if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), ] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>            date patient age gender       ward           mo PEN  OXA  FLC  AMX #>   1: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   2: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   3: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   4: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   5: 2002-02-05  067927  45      F        ICU B_SERRT_MRCS   R <NA> <NA>    R #>  ---                                                                          #> 905: 2005-04-12  D71461  70      M        ICU B_ESCHR_COLI   R <NA> <NA>    S #> 906: 2009-11-12  650870  69      F Outpatient B_ESCHR_COLI   R <NA> <NA>    S #> 907: 2012-06-14  8CBCF2  41      F   Clinical B_STPHY_CONS   R    S    S <NA> #> 908: 2012-10-11  175532  78      M   Clinical B_ESCHR_COLI   R <NA> <NA>    R #> 909: 2013-11-23  A97263  77      M   Clinical B_KLBSL_PNMN   R <NA> <NA>    R #>      AMC  AMP  TZP  CZO  FEP CXM  FOX  CTX  CAZ  CRO  GEN  TOB  AMK  KAN  TMP #>   1:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   2:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   3:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   4:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   5:   R    R <NA>    R <NA>   R    R <NA> <NA> <NA> <NA> <NA> <NA> <NA>    S #>  ---                                                                          #> 905:   S    S    S <NA>    S   S    S    S    S    S    S    S    S <NA> <NA> #> 906:   S    S    S    S    S   S    S    S    S    S    S    S    S <NA>    S #> 907:   S <NA> <NA>    S    S   S    S    S    R    S    S <NA> <NA> <NA>    S #> 908:   S    R    S <NA>    S   R    R    S    S    S    S    S <NA> <NA>    R #> 909:   S    R    S <NA>    S   S    S    S    S    S    S    S <NA> <NA>    S #>      SXT  NIT  FOS  LNZ  CIP  MFX VAN  TEC  TCY  TGC  DOX ERY CLI AZM IPM  MEM #>   1:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   2:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   3:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   4:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   5:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>  ---                                                                           #> 905:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 906:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 907:   S <NA> <NA> <NA>    S <NA>   S <NA> <NA> <NA> <NA>   S   S   S   S    S #> 908:   R    R <NA>    R    R    R   R    R <NA> <NA> <NA>   R   R   R   S    S #> 909:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #>       MTR  CHL  COL  MUP  RIF #>   1: <NA> <NA> <NA> <NA>    R #>   2: <NA> <NA> <NA> <NA>    R #>   3: <NA> <NA>    R <NA>    R #>   4: <NA> <NA>    R <NA>    R #>   5: <NA> <NA>    R <NA>    R #>  ---                          #> 905: <NA> <NA> <NA> <NA>    R #> 906: <NA> <NA> <NA> <NA>    R #> 907: <NA> <NA>    R <NA> <NA> #> 908: <NA> <NA>    S <NA>    R #> 909: <NA> <NA>    S <NA>    R if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), penicillins(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #>      PEN  OXA  FLC  AMX AMC  AMP  TZP #>   1:   R <NA> <NA> <NA>   I <NA> <NA> #>   2:   R <NA> <NA> <NA>   I <NA> <NA> #>   3:   R <NA> <NA> <NA>   I <NA> <NA> #>   4:   R <NA> <NA> <NA>   I <NA> <NA> #>   5:   R <NA> <NA>    R   R    R <NA> #>  ---                                  #> 905:   R <NA> <NA>    S   S    S    S #> 906:   R <NA> <NA>    S   S    S    S #> 907:   R    S    S <NA>   S <NA> <NA> #> 908:   R <NA> <NA>    R   S    R    S #> 909:   R <NA> <NA>    R   S    R    S # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 603 Antimicrobial Drugs — antibiotics","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Two data sets containing antibiotics/antimycotics antivirals. Use .ab() one ab_* functions retrieve values antibiotics data set. Three identifiers included data set: antibiotic ID (ab, primarily used package) defined WHONET/EARS-Net, ATC code (atc) defined , Compound ID (cid) found PubChem. properties data set derived one codes. Note drugs multiple ATC codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics  antivirals"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antibiotics-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antibiotics data set: a tibble with 483 observations and 14 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available cid Compound ID found PubChem name Official name used WHONET/EARS-Net group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug. Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"av Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name used WHONET/EARS-Net atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc LOINC codes (Logical Observation Identifiers Names Codes) associated name antimicrobial drug.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.73 (8 August, 2022). Accessed https://loinc.org October 30th, 2022. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [5]>     <chr>    #>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  8 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #>  9 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> 10 AMB   5280965 Ampho… Anti… <chr> Antimycot… Antibioti… <chr [3]>     <chr>    #> # ℹ 473 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antibiotic ID — as.ab","title":"Transform Input to an Antibiotic ID — as.ab","text":"Use function determine antibiotic drug code one antibiotics. data set antibiotics searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"as.ab(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.ab(x)"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antibiotic ID — as.ab","text":"x character vector determine antibiotic ID flag_multiple_results logical indicate whether note printed console probably one antibiotic drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antibiotic ID — as.ab","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antibiotics data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .ab() can correct different forms misspelling: Wrong spelling drug names (\"tobramicin\" \"gentamycin\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"mreopenem\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use ab_* functions get properties based returned antibiotic ID, see Examples. Note: .ab() ab_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems. can add manual codes considered .ab() ab_* functions, see add_custom_antimicrobials().","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antibiotic ID — as.ab","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"# these examples all return \"ERY\", the ID of erythromycin: as.ab(\"J01FA01\") #> Class 'ab' #> [1] ERY as.ab(\"J 01 FA 01\") #> Class 'ab' #> [1] ERY as.ab(\"Erythromycin\") #> Class 'ab' #> [1] ERY as.ab(\"eryt\") #> Class 'ab' #> [1] ERY as.ab(\"   eryt 123\") #> Class 'ab' #> [1] ERY as.ab(\"ERYT\") #> Class 'ab' #> [1] ERY as.ab(\"ERY\") #> Class 'ab' #> [1] ERY as.ab(\"eritromicine\") # spelled wrong, yet works #> Class 'ab' #> [1] ERY as.ab(\"Erythrocin\") # trade name #> Class 'ab' #> [1] ERY as.ab(\"Romycin\") # trade name #> Class 'ab' #> [1] ERY  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R       NA      S       #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antiviral Drug ID — as.av","title":"Transform Input to an Antiviral Drug ID — as.av","text":"Use function determine antiviral drug code one antiviral drugs. data set antivirals searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"as.av(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.av(x)"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antiviral Drug ID — as.av","text":"x character vector determine antiviral drug ID flag_multiple_results logical indicate whether note printed console probably one antiviral drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antiviral Drug ID — as.av","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antiviral Drug ID — as.av","text":"entries antivirals data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .av() can correct different forms misspelling: Wrong spelling drug names (\"acyclovir\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"aycclovir\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use av_* functions get properties based returned antiviral drug ID, see Examples. Note: .av() av_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antiviral Drug ID — as.av","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"# these examples all return \"ACI\", the ID of aciclovir: as.av(\"J05AB01\") #> Class 'av' #> [1] ACI as.av(\"J 05 AB 01\") #> Class 'av' #> [1] ACI as.av(\"Aciclovir\") #> Class 'av' #> [1] ACI as.av(\"aciclo\") #> Class 'av' #> [1] ACI as.av(\"   aciclo 123\") #> Class 'av' #> [1] ACI as.av(\"ACICL\") #> Class 'av' #> [1] ACI as.av(\"ACI\") #> Class 'av' #> [1] ACI as.av(\"Virorax\") # trade name #> Class 'av' #> [1] ACI as.av(\"Zovirax\") # trade name #> Class 'av' #> [1] ACI  as.av(\"acyklofir\") # severe spelling error, yet works #> Class 'av' #> [1] ACI  # use av_* functions to get a specific properties (see ?av_property); # they use as.av() internally: av_name(\"J05AB01\") #> [1] \"Aciclovir\" av_name(\"acicl\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 6 50.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"as.disk(x, na.rm = FALSE)  NA_disk_  is.disk(x)"},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"object class disk (inherits integer) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"x vector na.rm logical indicating whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"integer additional class disk","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 6 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 6-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"# transform existing disk zones to the `disk` class (using base R) df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = 20,   CIP = 14,   GEN = 18,   TOB = 16 ) df[, 2:5] <- lapply(df[, 2:5], as.disk) str(df) #> 'data.frame':\t1 obs. of  5 variables: #>  $ microorganism: chr \"Escherichia coli\" #>  $ AMP          : 'disk' int 20 #>  $ CIP          : 'disk' int 14 #>  $ GEN          : 'disk' int 18 #>  $ TOB          : 'disk' int 16  # \\donttest{ # transforming is easier with dplyr: if (require(\"dplyr\")) {   df %>% mutate(across(AMP:TOB, as.disk)) } #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli  20  14  18  16 # }  # interpret disk values, see ?as.sir as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB #> 1 Escherichia coli   S <NA>   S   S"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE)  NA_mic_  is.mic(x)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2011-2023) CLSI (2011-2023). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"uk\") # Ukrainian }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  # input will get cleaned up with the input given in the `cleaning_regex` argument, # which defaults to `mo_cleaning_regex()`: cat(mo_cleaning_regex(), \"\\n\") #> ([^A-Za-z- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )(e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. Currently available breakpoint guidelines EUCAST 2011-2023 CLSI 2011-2023, available breakpoint types \"ECOFF\", \"animal\", \"human\". breakpoints used interpretation publicly available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # S3 method for mic as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for data.frame as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\") )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2011-2023, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2023 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2023) CLSI (2011-2023), see Details. uti (Urinary Tract Infection) vector logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Note: clinical breakpoints package validated imported WHONET public use AMR package endorsed CLSI EUCAST, please see clinical_breakpoints information. NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input unclear. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines EUCAST (2011-2023) CLSI (2011-2023). Thus, guideline argument must set e.g., \"EUCAST 2023\" \"CLSI 2023\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 28 885 rows 12 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … summary(example_isolates) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %R   :73.7% (n=1201)   #>  Mode  :character   Unique:90             %SI  :26.3% (n=428)    #>                     #1    :B_ESCHR_COLI   - %S :25.6% (n=417)    #>                     #2    :B_STPHY_CONS   - %I : 0.7% (n=11)     #>                     #3    :B_STPHY_AURS                          #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %SI  :68.8% (n=251)   %SI  :70.5% (n=665)   %SI  :40.4% (n=546)   #>  - %S :68.8% (n=251)   - %S :70.5% (n=665)   - %S :40.2% (n=543)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)     - %I : 0.2% (n=3)     #>                                                                    #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %SI  :76.3% (n=1433)   %SI  :40.4% (n=546)   %SI  :87.4% (n=875)   #>  - %S :71.4% (n=1342)   - %S :40.2% (n=543)   - %S :86.1% (n=862)   #>  - %I : 4.8% (n=91)     - %I : 0.2% (n=3)     - %I : 1.3% (n=13)    #>                                                                     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %SI  :55.4% (n=247)   %SI  :85.8% (n=621)   %SI  :73.7% (n=1319)   #>  - %S :54.9% (n=245)   - %S :85.6% (n=620)   - %S :72.5% (n=1297)   #>  - %I : 0.4% (n=2)     - %I : 0.1% (n=1)     - %I : 1.2% (n=22)     #>                                                                     #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %SI  :72.6% (n=594)   %SI  :84.5% (n=797)   %SI  :33.5% (n=607)    #>  - %S :71.6% (n=586)   - %S :84.4% (n=796)   - %S :33.5% (n=607)    #>  - %I : 1.0% (n=8)     - %I : 0.1% (n=1)     - %I : 0.0% (n=0)      #>                                                                     #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %SI  :84.5% (n=797)   %SI  :75.4% (n=1399)   %SI  :65.6% (n=886)   #>  - %S :84.4% (n=796)   - %S :74.0% (n=1372)   - %S :65.1% (n=879)   #>  - %I : 0.1% (n=1)     - %I : 1.5% (n=27)     - %I : 0.5% (n=7)     #>                                                                     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %SI  :36.3% (n=251)   %SI  : 0.0% (n=0)      %SI  :61.9% (n=928)   #>  - %S :36.3% (n=251)   - %S : 0.0% (n=0)      - %S :61.2% (n=918)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)      - %I : 0.7% (n=10)    #>                                                                     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %SI  :79.5% (n=1398)   %SI  :82.9% (n=616)   %SI  :57.8% (n=203)   #>  - %S :79.1% (n=1392)   - %S :76.0% (n=565)   - %S :57.8% (n=203)   #>  - %I : 0.3% (n=6)      - %I : 6.9% (n=51)    - %I : 0.0% (n=0)     #>                                                                     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %SI  :30.7% (n=314)   %SI  :83.8% (n=1181)   %SI  :66.4% (n=140)   #>  - %S :30.7% (n=314)   - %S :78.9% (n=1112)   - %S :64.5% (n=136)   #>  - %I : 0.0% (n=0)     - %I : 4.9% (n=69)     - %I : 1.9% (n=4)     #>                                                                     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %SI  :61.7% (n=1149)   %SI  :24.3% (n=237)   %SI  :70.3% (n=843)   #>  - %S :61.7% (n=1149)   - %S :24.3% (n=237)   - %S :68.3% (n=820)   #>  - %I : 0.0% (n=0)      - %I : 0.0% (n=0)     - %I : 1.9% (n=23)    #>                                                                     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %SI  :87.3% (n=697)   %SI  :72.3% (n=821)   %SI  :42.8% (n=810)    #>  - %S :87.3% (n=697)   - %S :71.7% (n=814)   - %S :42.3% (n=801)    #>  - %I : 0.0% (n=0)     - %I : 0.6% (n=7)     - %I : 0.5% (n=9)      #>                                                                     #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %SI  :38.8% (n=590)   %SI  :42.8% (n=810)    %SI  :93.8% (n=834)   #>  - %S :38.6% (n=586)   - %S :42.3% (n=801)    - %S :92.7% (n=824)   #>  - %I : 0.3% (n=4)     - %I : 0.5% (n=9)      - %I : 1.1% (n=10)    #>                                                                     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %SI  :94.1% (n=780)   %SI  :85.3% (n=29)   %SI  :78.6% (n=121)   #>  - %S :94.1% (n=780)   - %S :85.3% (n=29)   - %S :78.6% (n=121)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)    - %I : 0.0% (n=0)     #>                                                                   #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %SI  :18.8% (n=309)    %SI  :94.1% (n=254)   %SI  :30.4% (n=305)   #>  - %S :18.8% (n=309)    - %S :93.0% (n=251)   - %S :30.2% (n=303)   #>  - %I : 0.0% (n=0)      - %I : 1.1% (n=3)     - %I : 0.2% (n=2)     #>                                                                      # For INTERPRETING disk diffusion and MIC values -----------------------  # a whole data set, even with combined MIC values and disk zones df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = as.mic(8),   CIP = as.mic(0.256),   GEN = as.disk(18),   TOB = as.disk(16),   ERY = \"R\" ) as.sir(df) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 13 × 13 #>    datetime            index ab_user    mo_user    ab   mo                input #>    <dttm>              <int> <chr>      <chr>      <ab> <mo>              <dbl> #>  1 2023-07-11 07:55:27     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #>  2 2023-07-11 07:55:27     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #>  3 2023-07-11 07:55:27     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256 #>  4 2023-07-11 07:55:27     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8     #>  5 2023-07-11 07:55:21     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01  #>  6 2023-07-11 07:55:21     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #>  7 2023-07-11 07:55:21     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4     #>  8 2023-07-11 07:55:21     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8     #>  9 2023-07-11 07:55:20     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #> 10 2023-07-11 07:55:20     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #> 11 2023-07-11 07:55:20     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #> 12 2023-07-11 07:55:20     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20     #> 13 2023-07-11 07:55:19     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18     #> # ℹ 6 more variables: outcome <sir>, method <chr>, breakpoint_S_R <chr>, #> #   guideline <chr>, ref_table <chr>, uti <lgl>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ampicillin (AMP) in Streptococcus #>      pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  OK  #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB ERY #> 1 Escherichia coli   S <NA>   S   S   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] S sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":null,"dir":"Reference","previous_headings":"","what":"Get ATC Properties from WHOCC Website — atc_online_property","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Gets data WHOCC website determine properties Anatomical Therapeutic Chemical (ATC) (e.g. antibiotic), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(   atc_code,   property,   administration = \"O\",   url = \"https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://www.whocc.no/atcvet/atcvet_index/?code=%s&showdescription=no\" )  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://www.whocc./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"atc_code character (vector) ATC code(s) antibiotics, coerced .ab() ab_atc() internally valid ATC code property property ATC code. Valid values \"ATC\", \"Name\", \"DDD\", \"U\" (\"unit\"), \"Adm.R\", \"Note\" groups. last option, hierarchical groups ATC code returned, see Examples. administration type administration using property = \"Adm.R\", see Details url url website WHOCC. sign %s can used placeholder ATC codes. url_vet url website WHOCC veterinary medicine. sign %s can used placeholder ATC_vet codes (start \"Q\"). ... arguments pass atc_property","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Options argument administration: \"Implant\" = Implant \"Inhal\" = Inhalation \"Instill\" = Instillation \"N\" = nasal \"O\" = oral \"P\" = parenteral \"R\" = rectal \"SL\" = sublingual/buccal \"TD\" = transdermal \"V\" = vaginal Abbreviations return values using property = \"U\" (unit): \"g\" = gram \"mg\" = milligram \"mcg\" = microgram \"U\" = unit \"TU\" = thousand units \"MU\" = million units \"mmol\" = millimole \"ml\" = millilitre (e.g. eyedrops) N.B. function requires internet connection works following packages installed: curl, rvest, xml2.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"# \\donttest{ if (requireNamespace(\"curl\") && requireNamespace(\"rvest\") && requireNamespace(\"xml2\")) {   # oral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"O\")   atc_online_ddd(ab_atc(\"amox\"))    # parenteral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"P\")    atc_online_property(\"J01CA04\", property = \"groups\") # search hierarchical groups of amoxicillin } #> Loading required namespace: rvest #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Use function e.g. clinical texts health care records. returns list antiviral drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_av = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_av type = \"drug\": column name antivirals data set translate antibiotic abbreviations , using av_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .av()","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"function also internally used .av(), although searches first drug name throw note drug names returned. Note: .av() function may use long regular expression match brand names antiviral drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"default, function search antiviral drug names. text elements searched official names, ATC codes brand names. uses .av() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(avx = av_from_text(clinical_text)) returned AV codes can transformed official names, groups, etc. av_* functions av_name() av_group(), using translate_av argument. using collapse, function return character:df %>% mutate(avx = av_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(\"28/03/2020 valaciclovir po tid\") #> [[1]] #> Class 'av' #> [1] VALA #>  av_from_text(\"28/03/2020 valaciclovir po tid\", type = \"admin\") #> [[1]] #> [1] \"oral\" #>"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antiviral Drug — av_property","title":"Get Properties of an Antiviral Drug — av_property","text":"Use functions return specific property antiviral drug antivirals data set. input values evaluated internally .av().","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"av_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  av_cid(x, ...)  av_synonyms(x, ...)  av_tradenames(x, ...)  av_group(x, language = get_AMR_locale(), ...)  av_atc(x, ...)  av_loinc(x, ...)  av_ddd(x, administration = \"oral\", ...)  av_ddd_units(x, administration = \"oral\", ...)  av_info(x, language = get_AMR_locale(), ...)  av_url(x, open = FALSE, ...)  av_property(x, property = \"name\", language = get_AMR_locale(), ...)"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antiviral Drug — av_property","text":"x (vector ) text can coerced valid antiviral drug code .av() language language returned text - default system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. ... arguments passed .av() administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antivirals data set: vector_or(colnames(antivirals), sort = FALSE).","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antiviral Drug — av_property","text":"integer case av_cid() named list case av_info() multiple av_atc()/av_synonyms()/av_tradenames() double case av_ddd() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antiviral Drug — av_property","text":"output translated possible. function av_url() return direct URL official website. warning returned required ATC code available.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antiviral Drug — av_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                             Aciclovir  #> \"https://www.whocc.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # lowercase transformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"78772-1\" \"78773-9\" \"79134-3\" \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 6 #>   mo                ab        S     I     R total #>   <chr>             <chr> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0    15 #> 2 (unknown species) AMK       0     0     0     0 #> 3 (unknown species) AMP      15     0     1    16 #> 4 (unknown species) AMX      15     0     1    16 #> 5 (unknown species) AZM       3     0     3     6 #> 6 (unknown species) CAZ       0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Ampheni… Chlo… \"\"    \"\"        \"\"            \"\"              \"100.0% (30/30… #>  6 \"Antimyc… Rifa… \"\"    \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  7 \"Beta-la… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  8 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  9 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> 10 \"\"        Benz… \" 77… \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 6 #>    mo            ab        S     I     R total #>  * <chr>         <chr> <int> <int> <int> <int> #>  1 Gram-negative AMC     463    89   174   726 #>  2 Gram-negative AMK     251     0     5   256 #>  3 Gram-negative AMP     226     0   405   631 #>  4 Gram-negative AMX     226     0   405   631 #>  5 Gram-negative AZM       1     2   696   699 #>  6 Gram-negative CAZ     607     0    27   634 #>  7 Gram-negative CHL       1     0    30    31 #>  8 Gram-negative CIP     610    11    63   684 #>  9 Gram-negative CLI      18     1   709   728 #> 10 Gram-negative COL     309     0    78   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 6 #>    mo      ab        S     I     R total #>  * <chr>   <chr> <int> <int> <int> <int> #>  1 E. coli AMC     332    74    61   467 #>  2 E. coli AMK     171     0     0   171 #>  3 E. coli AMP     196     0   196   392 #>  4 E. coli AMX     196     0   196   392 #>  5 E. coli AZM       0     0   467   467 #>  6 E. coli CAZ     449     0    11   460 #>  7 E. coli CHL       0     0     0     0 #>  8 E. coli CIP     398     1    57   456 #>  9 E. coli CLI       0     0   467   467 #> 10 E. coli COL     240     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Data set containing clinical breakpoints interpret MIC disk diffusion SIR values, according international guidelines. Currently implemented guidelines EUCAST (2011-2023) CLSI (2011-2023). Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 28 885 observations 12 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different types of breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported from WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response from CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"download","dir":"Reference","previous_headings":"","what":"Download","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI, though initiatives started overcome burdens. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints #> # A tibble: 28,885 × 12 #>    guideline type  method site  mo            rank_index ab   ref_tbl  disk_dose #>    <chr>     <chr> <chr>  <chr> <mo>               <dbl> <ab> <chr>    <chr>     #>  1 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 MEM  A. xylo… 10ug      #>  2 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 MEM  A. xylo… NA        #>  3 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 SXT  A. xylo… 1.25ug/2… #>  4 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 SXT  A. xylo… NA        #>  5 EUCAST 2… human DISK   NA    B_ACHRMB_DNTR          2 TZP  A. xylo… 30ug/6ug  #>  6 EUCAST 2… human MIC    NA    B_ACHRMB_DNTR          2 TZP  A. xylo… NA        #>  7 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 MEM  A. xylo… 10ug      #>  8 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 MEM  A. xylo… NA        #>  9 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 SXT  A. xylo… 1.25ug/2… #> 10 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 SXT  A. xylo… NA        #> # ℹ 28,875 more rows #> # ℹ 3 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, uti <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" being resistant. This note will be shown once for this #> session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) \"aminopenicillins\"(amoxicillin ampicillin) \"antifungals\"(amphotericin B, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) \"antimycobacterials\"(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) \"betalactams\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"carbapenems\"(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) \"cephalosporins\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"cephalosporins_1st\"(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) \"cephalosporins_2nd\"(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) \"cephalosporins_3rd\"(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) \"cephalosporins_4th\"(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) \"cephalosporins_5th\"(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) \"cephalosporins_except_caz\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"fluoroquinolones\"(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"glycopeptides\"(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) \"glycopeptides_except_lipo\"(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) \"lincosamides\"(acetylmidecamycin, acetylspiramycin, clindamycin, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) \"lipoglycopeptides\"(dalbavancin, oritavancin, telavancin) \"macrolides\"(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) \"oxazolidinones\"(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) \"penicillins\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"polymyxins\"(colistin, polymyxin B, polymyxin B/polysorbate 80) \"quinolones\"(besifloxacin, cinoxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"streptogramins\"(pristinamycin quinupristin/dalfopristin) \"tetracyclines\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) \"tetracyclines_except_tgc\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) \"trimethoprims\"(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) \"ureidopenicillins\"(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 503 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply, either 13, 12, 11","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 503 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    25-30 mg/kg… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    2 g x 6 iv   #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    1 g x 3-4 iv #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    0.75-1 g x … #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    (2 g amoxic… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    (1 g amoxic… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    (0.875 g am… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    (0.5 g amox… #> # ℹ 493 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply EUCAST Rules — eucast_rules","title":"Apply EUCAST Rules — eucast_rules","text":"Apply rules clinical breakpoints intrinsic resistance defined European Committee Antimicrobial Susceptibility Testing (EUCAST, https://www.eucast.org), see Source. Use eucast_dosage() get data.frame advised dosages certain bug-drug combination, based dosage data set. improve interpretation antibiogram EUCAST rules applied, non-EUCAST rules can applied default, see Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"eucast_rules(   x,   col_mo = NULL,   info = interactive(),   rules = getOption(\"AMR_eucastrules\", default = c(\"breakpoints\", \"expert\")),   verbose = FALSE,   version_breakpoints = 12,   version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated December 11th, 2022, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Apply EUCAST Rules — eucast_rules","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"# \\donttest{ a <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylpenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE )  head(a) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   -   -   -   S   S #> 2  Enterococcus faecalis   -   -   -   -   -   S   S #> 3       Escherichia coli   -   -   -   -   -   S   S #> 4  Klebsiella pneumoniae   -   -   -   -   -   S   S #> 5 Pseudomonas aeruginosa   -   -   -   -   -   S   S   # apply EUCAST rules: some results wil be changed b <- eucast_rules(a) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir))  head(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   S   R   S   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, verbose = TRUE) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir)) head(c) #>   row col           mo_fullname old new rule   rule_group #> 1   1 AMX Staphylococcus aureus   -   S       Breakpoints #> 2   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 3   1 CAZ Staphylococcus aureus   R   S      Expert Rules #> 4   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 5   1 COL Staphylococcus aureus   -   R      Expert Rules #> 6   2 CAZ Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2                                          Staphylococcus #> 3                          Expert Rules on Staphylococcus #> 4 Table 4: Intrinsic resistance in gram-positive bacteria #> 5 Table 4: Intrinsic resistance in gram-positive bacteria #> 6 Table 4: Intrinsic resistance in gram-positive bacteria #>                                                                                 rule_source #> 1                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 2                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 3 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 4 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 5 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 6 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # \\donttest{ # get all first Gram-negatives example_isolates[which(first_isolate(info = FALSE) & mo_is_gram_negative()), ] #> ℹ Using column 'mo' as input for mo_is_gram_negative() #> # A tibble: 437 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 427 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   # filter on first isolates using dplyr:   example_isolates %>%     filter(first_isolate(info = TRUE)) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,379 'phenotype-based' first isolates (69.0% of total where a #>    microbial ID was available) #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,379 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,369 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # flag the first isolates per group:   example_isolates %>%     group_by(ward) %>%     mutate(first = first_isolate(info = TRUE)) %>%     select(ward, date, patient, mo, first) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #>  #> Group: ward = \"Clinical\" #> ℹ Excluding 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 861 'phenotype-based' first isolates (69.8% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 449 'phenotype-based' first isolates (69.6% within scope and 69.5% #>    of total where a microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (82.4% within scope and 81.7% #>    of total where a microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":null,"dir":"Reference","previous_headings":"","what":"G-test for Count Data — g.test","title":"G-test for Count Data — g.test","text":"g.test() performs chi-squared contingency table tests goodness--fit tests, just like chisq.test() reliable (1). G-test can used see whether number observations category fits theoretical expectation (called G-test goodness--fit), see whether proportions one variable different different values variable (called G-test independence).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"G-test for Count Data — g.test","text":"","code":"g.test(x, y = NULL, p = rep(1/length(x), length(x)), rescale.p = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"G-test for Count Data — g.test","text":"code function identical chisq.test(), except : calculation statistic changed \\(2 * sum(x * log(x / E))\\) Yates' continuity correction removed apply G-test possibility simulate p values simulate.p.value removed","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"G-test for Count Data — g.test","text":"x numeric vector matrix. x y can also     factors. y numeric vector; ignored x matrix.      x factor, y factor length. p vector probabilities length x.     error given entry p negative. rescale.p logical scalar; TRUE p rescaled     (necessary) sum 1.  rescale.p FALSE,     p sum 1, error given.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"G-test for Count Data — g.test","text":"list class \"htest\" containing following   components: statistic value chi-squared test statistic. parameter degrees freedom approximate     chi-squared distribution test statistic, NA     p-value computed Monte Carlo simulation. p.value p-value test. method character string indicating type test     performed, whether Monte Carlo simulation continuity     correction used. data.name character string giving name(s) data. observed observed counts. expected expected counts null hypothesis. residuals Pearson residuals,     (observed - expected) / sqrt(expected). stdres standardized residuals,     (observed - expected) / sqrt(V), V residual cell variance (Agresti, 2007,     section 2.4.5 case x matrix, n * p * (1 - p) otherwise).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"G-test for Count Data — g.test","text":"x matrix one row column, x vector y given, goodness--fit test performed (x treated one-dimensional contingency table). entries x must non-negative integers. case, hypothesis tested whether population probabilities equal p, equal p given. x matrix least two rows columns, taken two-dimensional contingency table: entries x must non-negative integers.  Otherwise, x y must vectors factors length; cases missing values removed, objects coerced factors, contingency table computed .  Pearson's chi-squared test performed null hypothesis joint distribution cell counts 2-dimensional contingency table product row column marginals. p-value computed asymptotic chi-squared distribution test statistic. contingency table case simulation done random sampling set contingency tables given marginals, works marginals strictly positive. Note usual sampling situation assumed chi-squared test (G-test) rather Fisher's exact test. goodness--fit case simulation done random sampling discrete distribution specified p, sample size n = sum(x). simulation done R may slow.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-goodness-of-fit-likelihood-ratio-test-","dir":"Reference","previous_headings":"","what":"G-test Of Goodness-of-Fit (Likelihood Ratio Test)","title":"G-test for Count Data — g.test","text":"Use G-test goodness--fit one nominal variable two values (male female, red, pink white flowers). compare observed counts numbers observations category expected counts, calculate using kind theoretical expectation (1:1 sex ratio 1:2:1 ratio genetic cross). expected number observations category small, G-test may give inaccurate results, use exact test instead (fisher.test()). G-test goodness--fit alternative chi-square test goodness--fit (chisq.test()); tests advantages disadvantages, results two tests usually similar.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-independence","dir":"Reference","previous_headings":"","what":"G-test of Independence","title":"G-test for Count Data — g.test","text":"Use G-test independence two nominal variables, two possible values. want know whether proportions one variable different among values variable. also possible G-test independence two nominal variables. example, Jackson et al. (2013) also data children 3, analysis old vs. young, thigh vs. arm, reaction vs. reaction, analyzed together. Fisher's exact test (fisher.test()) exact test, G-test still approximation. 2x2 table, Fisher's Exact test may slower still run seconds, even sum observations multiple millions. G-test independence alternative chi-square test independence (chisq.test()), give approximately results.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"how-the-test-works","dir":"Reference","previous_headings":"","what":"How the Test Works","title":"G-test for Count Data — g.test","text":"Unlike exact test goodness--fit (fisher.test()), G-test directly calculate probability obtaining observed results something extreme. Instead, like almost statistical tests, G-test intermediate step; uses data calculate test statistic measures far observed data null expectation. use mathematical relationship, case chi-square distribution, estimate probability obtaining value test statistic. G-test uses log ratio two likelihoods test statistic, also called likelihood ratio test log-likelihood ratio test. formula calculate G-statistic : \\(G = 2 * sum(x * log(x / E))\\) E expected values. Since chi-square distributed, p value can calculated R :   df degrees freedom. two categories want find ones significantly different null expectation, can use method testing category vs. sum categories, Bonferroni correction. use G-tests category, course.","code":"p <- stats::pchisq(G, df, lower.tail = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"references","dir":"Reference","previous_headings":"","what":"References","title":"G-test for Count Data — g.test","text":"McDonald, J.H. 2014. Handbook Biological Statistics (3rd ed.). Sparky House Publishing, Baltimore, Maryland. http://www.biostathandbook.com/gtestgof.html.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"G-test for Count Data — g.test","text":"","code":"# = EXAMPLE 1 = # Shivrain et al. (2006) crossed clearfield rice (which are resistant # to the herbicide imazethapyr) with red rice (which are susceptible to # imazethapyr). They then crossed the hybrid offspring and examined the # F2 generation, where they found 772 resistant plants, 1611 moderately # resistant plants, and 737 susceptible plants. If resistance is controlled # by a single gene with two co-dominant alleles, you would expect a 1:2:1 # ratio.  x <- c(772, 1611, 737) g.test(x, p = c(1, 2, 1) / 4) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 4.1471, p-value = 0.1257 #>   # There is no significant difference from a 1:2:1 ratio. # Meaning: resistance controlled by a single gene with two co-dominant # alleles, is plausible.   # = EXAMPLE 2 = # Red crossbills (Loxia curvirostra) have the tip of the upper bill either # right or left of the lower bill, which helps them extract seeds from pine # cones. Some have hypothesized that frequency-dependent selection would # keep the number of right and left-billed birds at a 1:1 ratio. Groth (1992) # observed 1752 right-billed and 1895 left-billed crossbills.  x <- c(1752, 1895) g.test(x) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 5.6085, p-value = 0.01787 #>   # There is a significant difference from a 1:1 ratio. # Meaning: there are significantly more left-billed birds."},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Clinical or Epidemic Episodes — get_episode","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"functions determine items vector can considered (start ) new episode. can used determine clinical episodes epidemiological analysis. get_episode() function returns index number episode per group, is_new_episode() function returns TRUE every new get_episode() index. absolute relative episode determination supported.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"get_episode(x, episode_days = NULL, case_free_days = NULL, ...)  is_new_episode(x, episode_days = NULL, case_free_days = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"x vector dates (class Date POSIXt), sorted internally determine episodes episode_days episode length days specify time period new episode begins, can also less day Inf, see Details case_free_days (inter-epidemic) interval length days new episode start, can also less day Inf, see Details ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode(): integer vector is_new_episode(): logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"Episodes can determined two ways: absolute relative. Absolute method uses episode_days define episode length days, new episode start. common use case AMR data analysis microbial epidemiology: episodes S. aureus bacteraemia ICU patients example. episode length 30 days, new S. aureus isolates ICU episode 30 days considered different (new) episode. Thus, method counts since start previous episode. Relative method uses case_free_days quantify duration case-free days (inter-epidemic interval), new episode start. common use case infectious disease epidemiology: episodes norovirus outbreaks hospital example. case-free period 14 days, new norovirus cases time considered different (new) episode. Thus, methods counts since last case previous episode. table: ** marks start new episode, 8 January 2023 7 days since start previous episode (1 January 2023).  *** marks start new episode, 21 January 2023 7 days since last case previous episode (8 January 2023). Either episode_days case_free_days must provided function.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"difference-between-get-episode-and-is-new-episode-","dir":"Reference","previous_headings":"","what":"Difference between get_episode() and is_new_episode()","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode() function returns index number episode, cases/patients/isolates first episode number 1, cases/patients/isolates second episode number 2, etc. is_new_episode() function hand, returns TRUE every new get_episode() index. specify, setting episode_days = 365 (using method 1 explained ), two functions differ:","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names allows different isolate selection methods. dplyr package required functions work, episode functions support variable grouping work conveniently inside dplyr verbs filter(), mutate() summarise().","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"# difference between absolute and relative determination of episodes: x <- data.frame(dates = as.Date(c(   \"2021-01-01\",   \"2021-01-02\",   \"2021-01-05\",   \"2021-01-08\",   \"2021-02-21\",   \"2021-02-22\",   \"2021-02-23\",   \"2021-02-24\",   \"2021-03-01\",   \"2021-03-01\" ))) x$absolute <- get_episode(x$dates, episode_days = 7) x$relative <- get_episode(x$dates, case_free_days = 7) x #>         dates absolute relative #> 1  2021-01-01        1        1 #> 2  2021-01-02        1        1 #> 3  2021-01-05        1        1 #> 4  2021-01-08        2        1 #> 5  2021-02-21        3        2 #> 6  2021-02-22        3        2 #> 7  2021-02-23        3        2 #> 8  2021-02-24        3        2 #> 9  2021-03-01        4        2 #> 10 2021-03-01        4        2   # `example_isolates` is a data set available in the AMR package. # See ?example_isolates df <- example_isolates[sample(seq_len(2000), size = 100), ]  get_episode(df$date, episode_days = 60) # indices #>   [1] 31 36  5 28 23 24  7  7 40 40 14 36 37  9 31 33 12 44 21 40 16 44 33  4 25 #>  [26] 25 34 22 19  6 12 29 20 44 10 43 15  8 38  2  4 26 41  3 27 40 38 11 43 24 #>  [51] 29  9 27  2 33 28 35 44 33  1 40 12 45 30 14 17 25 20 18 32 39 16 21  6 23 #>  [76] 37 39 40 27 46 45  9 41 36 30  1 44 13  7  7 27  2 42 29 18 12 43 21 25 22 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE #>  [13]  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE #>  [25]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE #>  [37]  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE #>  [49] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE #>  [61] FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE #>  [73] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE #>  [85] FALSE FALSE FALSE  TRUE FALSE FALSE FALSE 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-06-22 FD8039     75 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 [96] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 001213  2009-08-03 C         TRUE        #>  2 032343  2003-06-09 B         TRUE        #>  3 0DBB93  2009-05-08 C         TRUE        #>  4 0E2483  2007-04-06 C         TRUE        #>  5 114570  2003-04-08 C         TRUE        #>  6 119392  2010-11-01 C         TRUE        #>  7 144280  2002-12-14 B         TRUE        #>  8 146F70  2009-08-14 A         TRUE        #>  9 192353  2010-04-06 B         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 [92] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2009-08-03 001213          1 TRUE        #>  2 Clinical 2003-06-09 032343          1 TRUE        #>  3 Clinical 2009-05-08 0DBB93          1 TRUE        #>  4 Clinical 2007-04-06 0E2483          1 TRUE        #>  5 ICU      2003-04-08 114570          1 TRUE        #>  6 Clinical 2010-11-01 119392          1 TRUE        #>  7 Clinical 2002-12-14 144280          1 TRUE        #>  8 Clinical 2009-08-14 146F70          1 TRUE        #>  9 Clinical 2010-04-06 192353          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           62             13            36            46 #> 2 ICU                28             11            21            24 #> 3 Outpatient          2              2             2             2  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] TRUE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [98] #>    patient mo           ward     flag_episode #>    <chr>   <mo>         <chr>    <lgl>        #>  1 702351  B_ESCHR_COLI ICU      TRUE         #>  2 D60054  B_STPHY_EPDR Clinical TRUE         #>  3 144280  B_STPHY_AURS Clinical TRUE         #>  4 829641  B_ESCHR_COLI Clinical TRUE         #>  5 0DBB93  B_ESCHR_COLI Clinical TRUE         #>  6 146F70  B_STPHY_CONS Clinical TRUE         #>  7 032343  B_STPHY_CONS Clinical TRUE         #>  8 53F0B8  B_STPHY_CONS Clinical TRUE         #>  9 904640  B_PROTS_MRBL Clinical TRUE         #> 10 8F77B2  B_STPHY_EPDR Clinical TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result)    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Plots with ggplot2 — ggplot_sir","title":"AMR Plots with ggplot2 — ggplot_sir","text":"Use functions create bar plots AMR data analysis. functions rely ggplot2 functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"ggplot_sir(   data,   position = NULL,   x = \"antibiotic\",   fill = \"interpretation\",   facet = NULL,   breaks = seq(0, 1, 0.1),   limits = NULL,   translate_ab = \"name\",   combine_SI = TRUE,   minimum = 30,   language = get_AMR_locale(),   nrow = NULL,   colours = c(S = \"#3CAEA3\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\", R =     \"#ED553B\"),   datalabels = TRUE,   datalabels.size = 2.5,   datalabels.colour = \"grey15\",   title = NULL,   subtitle = NULL,   caption = NULL,   x.title = \"Antimicrobial\",   y.title = \"Proportion\",   ... )  geom_sir(   position = NULL,   x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   ... )  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = seq(0, 1, 0.1), limits = NULL)  scale_sir_colours(..., aesthetics = \"fill\")  theme_sir()  labels_sir_count(   position = NULL,   x = \"antibiotic\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   datalabels.size = 3,   datalabels.colour = \"grey15\" )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Plots with ggplot2 — ggplot_sir","text":"data data.frame column(s) class sir (see .sir()) position position adjustment bars, either \"fill\", \"stack\" \"dodge\" x variable show x axis, either \"antibiotic\" (default) \"interpretation\" grouping variable fill variable categorise using plots legend, either \"antibiotic\" (default) \"interpretation\" grouping variable facet variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable breaks numeric vector positions limits numeric vector length two providing limits scale, use NA refer existing minimum maximum translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows colours named vactor colour used filling. default colours colour-blind friendly. datalabels show datalabels using labels_sir_count() datalabels.size size datalabels datalabels.colour colour datalabels title text show title plot subtitle text show subtitle plot caption text show caption plot x.title text show x axis description y.title text show y axis description ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples. aesthetics aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\"","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antibiotics shown plots using ab_name(). can set translate_ab argument. See count_df().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"the-functions","dir":"Reference","previous_headings":"","what":"The Functions","title":"AMR Plots with ggplot2 — ggplot_sir","text":"geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antibiotics x axis. facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage amount isolates using ggplot2::geom_text(). ggplot_sir() wrapper around functions uses data first input. makes possible use function pipe (%>%). See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"# \\donttest{ if (require(\"ggplot2\") && require(\"dplyr\")) {   # get antimicrobial results for drugs against a UTI:   ggplot(example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)) +     geom_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # prettify the plot using some additional functions:   df <- example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)   ggplot(df) +     geom_sir() +     scale_y_percent() +     scale_sir_colours() +     labels_sir_count() +     theme_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # or better yet, simplify this using the wrapper function - a single command:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # get only proportions and no counts:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(datalabels = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # add other ggplot2 arguments as you like:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(       width = 0.5,       colour = \"black\",       size = 1,       linetype = 2,       alpha = 0.25     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # you can alter the colours with colour names:   example_isolates %>%     select(AMX) %>%     ggplot_sir(colours = c(SI = \"yellow\")) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # but you can also use the built-in colour-blind friendly colours for   # your plots, where \"S\" is green, \"I\" is yellow and \"R\" is red:   data.frame(     x = c(\"Value1\", \"Value2\", \"Value3\"),     y = c(1, 2, 3),     z = c(\"Value4\", \"Value5\", \"Value6\")   ) %>%     ggplot() +     geom_col(aes(x = x, y = y, fill = z)) +     scale_sir_colours(Value4 = \"S\", Value5 = \"I\", Value6 = \"R\") }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values (`position_stack()`). #> Warning: Removed 6 rows containing missing values (`position_stack()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for mo_is_gram_negative()  # }"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":null,"dir":"Reference","previous_headings":"","what":"Guess Antibiotic Column — guess_ab_col","title":"Guess Antibiotic Column — guess_ab_col","text":"tries find column name data set based information antibiotics data set. Also supports WHONET abbreviations.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"guess_ab_col(   x = NULL,   search_string = NULL,   verbose = FALSE,   only_sir_columns = FALSE )"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Guess Antibiotic Column — guess_ab_col","text":"x data.frame search_string text search x , checked .ab() value column x verbose logical indicate whether additional info printed only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE)","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Guess Antibiotic Column — guess_ab_col","text":"column name x, NULL result found.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Guess Antibiotic Column — guess_ab_col","text":"can look antibiotic (trade) name abbreviation search x antibiotics data set column containing name code antibiotic.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"df <- data.frame(   amox = \"S\",   tetr = \"R\" )  guess_ab_col(df, \"amoxicillin\") #> [1] \"amox\" guess_ab_col(df, \"J01AA07\") # ATC code of tetracycline #> [1] \"tetr\"  guess_ab_col(df, \"J01AA07\", verbose = TRUE) #> Auto-guessing columns suitable for analysis #> ... #>  OK. #> ℹ Using column 'amox' as input for AMX (amoxicillin). #> ℹ Using column 'tetr' as input for TCY (tetracycline). #> ℹ Using column 'tetr' as input for J01AA07 (tetracycline). #> [1] \"tetr\" # NOTE: Using column 'tetr' as input for J01AA07 (tetracycline).  # WHONET codes df <- data.frame(   AMP_ND10 = \"R\",   AMC_ED20 = \"S\" ) guess_ab_col(df, \"ampicillin\") #> [1] \"AMP_ND10\" guess_ab_col(df, \"J01CR02\") #> [1] \"AMC_ED20\" guess_ab_col(df, as.ab(\"augmentin\")) #> [1] \"AMC_ED20\""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing defined intrinsic resistance EUCAST bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 134 634 observations 2 variables: mo Microorganism ID ab Antibiotic ID","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 134,634 × 2 #>    mo      ab    #>    <mo>    <chr> #>  1 B_GRAMP ATM   #>  2 B_GRAMP COL   #>  3 B_GRAMP NAL   #>  4 B_GRAMP PLB   #>  5 B_GRAMP TEM   #>  6 B_ABTRP ATM   #>  7 B_ABTRP COL   #>  8 B_ABTRP NAL   #>  9 B_ABTRP PLB   #> 10 B_ABTRP TEM   #> # ℹ 134,624 more rows"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":null,"dir":"Reference","previous_headings":"","what":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"According binomial nomenclature, lowest four taxonomic levels (family, genus, species, subspecies) printed italics. function finds taxonomic names within strings makes italic.","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\"))"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector) type type conversion taxonomic names, either \"markdown\" \"ansi\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, using ANSI colours adding \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(\"An overview of Staphylococcus aureus isolates\") #> [1] \"An overview of *Staphylococcus aureus* isolates\" italicise_taxonomy(\"An overview of S. aureus isolates\") #> [1] \"An overview of *S. aureus* isolates\"  cat(italicise_taxonomy(\"An overview of S. aureus isolates\", type = \"ansi\")) #> An overview of S. aureus isolates"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":null,"dir":"Reference","previous_headings":"","what":"Join microorganisms to a Data Set — join","title":"Join microorganisms to a Data Set — join","text":"Join data set microorganisms easily existing data set character vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Join microorganisms to a Data Set — join","text":"","code":"inner_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  left_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  right_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  full_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  semi_join_microorganisms(x, by = NULL, ...)  anti_join_microorganisms(x, by = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Join microorganisms to a Data Set — join","text":"x existing data set join, character vector. case character vector, resulting data.frame contain column 'x' values. variable join - left empty search column class mo (created .mo()) \"mo\" column name exists x, otherwise column name x values exist microorganisms$mo (= \"bacteria_id\"), another column microorganisms (named, like = c(\"bacteria_id\" = \"fullname\")) suffix non-joined duplicate variables x y, suffixes added output disambiguate . character vector length 2. ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Join microorganisms to a Data Set — join","text":"data.frame","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Join microorganisms to a Data Set — join","text":"Note: opposed join() functions dplyr, character vectors supported default existing columns get suffix \"2\" newly joined columns get suffix. dplyr package installed, join functions used. Otherwise, much slower merge() interaction() functions base R used.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 23 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 23 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"             \"bacteria\"         \"fullname\"         \"status\"           #>  [5] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #>  [9] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [13] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [17] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [21] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"             \"patient\"          \"age\"              \"gender\"           #>  [5] \"ward\"             \"mo\"               \"PEN\"              \"OXA\"              #>  [9] \"FLC\"              \"AMX\"              \"AMC\"              \"AMP\"              #> [13] \"TZP\"              \"CZO\"              \"FEP\"              \"CXM\"              #> [17] \"FOX\"              \"CTX\"              \"CAZ\"              \"CRO\"              #> [21] \"GEN\"              \"TOB\"              \"AMK\"              \"KAN\"              #> [25] \"TMP\"              \"SXT\"              \"NIT\"              \"FOS\"              #> [29] \"LNZ\"              \"CIP\"              \"MFX\"              \"VAN\"              #> [33] \"TEC\"              \"TCY\"              \"TGC\"              \"DOX\"              #> [37] \"ERY\"              \"CLI\"              \"AZM\"              \"IPM\"              #> [41] \"MEM\"              \"MTR\"              \"CHL\"              \"COL\"              #> [45] \"MUP\"              \"RIF\"              \"fullname\"         \"status\"           #> [49] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #> [53] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [57] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [61] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [65] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"           # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1395 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 3.017801 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.04669348"},{"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\"), ] #> Error: in mo_name(): argument x is missing and no column with info about #> microorganisms could be found.  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> Error in filter(., mo_name() %like% \"^ent\"): ℹ In argument: `mo_name() %like% \"^ent\"`. #> Caused by error: #> ! in mo_name(): argument x is missing and no column with info about #> microorganisms could be found. # }"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Determine isolates multidrug-resistant organisms (MDRO) according international, national custom guidelines.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"mdro(   x = NULL,   guideline = \"CMI2012\",   col_mo = NULL,   info = interactive(),   pct_required_classes = 0.5,   combine_SI = TRUE,   verbose = FALSE,   only_sir_columns = FALSE,   ... )  custom_mdro_guideline(..., as_factor = TRUE)  brmo(x = NULL, only_sir_columns = FALSE, ...)  mrgn(x = NULL, only_sir_columns = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"See supported guidelines list publications used function.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antibiotics columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions pct_required_classes minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function return MDRO results, instead returns data set logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) ... case custom_mdro_guideline(): set rules, see section Using Custom Guidelines . Otherwise: column name antibiotic, see section Antibiotics . as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"CMI 2012 paper - function mdr_cmi2012() mdro(): Ordered factor levels Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant (XDR) < Pandrug-resistant (PDR) TB guideline - function mdr_tb() mdro(..., guideline = \"TB\"): Ordered factor levels Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant < Extensively drug-resistant German guideline - function mrgn() mdro(..., guideline = \"MRGN\"): Ordered factor levels Negative < 3MRGN < 4MRGN Everything else, except custom guidelines: Ordered factor levels Negative < Positive, unconfirmed < Positive. value \"Positive, unconfirmed\" means , according guideline, entirely sure isolate multi-drug resistant confirmed additional (e.g. molecular) tests","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"functions context-aware. means x argument can left blank used inside data.frame call, see Examples. pct_required_classes argument, values 1 divided 100. support fractions (0.75 3/4) percentages (75). Note: Every test involves Enterobacteriaceae family, internally performed using newly named order Enterobacterales, since Enterobacteriaceae family taxonomically reclassified Adeolu et al. 2016. , Enterobacteriaceae family Enterobacteriales () order. species old Enterobacteriaceae family still new Enterobacterales (without ) order, divided multiple families. way tests performed now mdro() function makes sure results 2016 2016 identical.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"supported-international-national-guidelines","dir":"Reference","previous_headings":"","what":"Supported International / National Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu \"WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)\" (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"out <- mdro(example_isolates, guideline = \"EUCAST\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address str(out) #> Error in eval(expr, envir, enclos): object 'out' not found table(out) #> Error in eval(expr, envir, enclos): object 'out' not found  out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address table(out) #> Error in eval(expr, envir, enclos): object 'out' not found  # \\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() } #> Error in .Call(Cchin, x, table): NULL value passed as symbol address # }"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Mean AMR Distance — mean_amr_distance","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Calculates normalised mean antimicrobial resistance multiple observations, help identify similar isolates without comparing antibiograms hand.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for sir mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for data.frame mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address sir #> Error in eval(expr, envir, enclos): object 'sir' not found mean_amr_distance(sir) #> Error in eval(expr, envir, enclos): object 'sir' not found  mic <- random_mic(10) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mic #> Error in eval(expr, envir, enclos): object 'mic' not found mean_amr_distance(mic) #> Error in eval(expr, envir, enclos): object 'mic' not found # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #> Error in eval(expr, envir, enclos): object 'mic' not found  disk <- random_disk(10) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address disk #> Error in eval(expr, envir, enclos): object 'disk' not found mean_amr_distance(disk) #> Error in eval(expr, envir, enclos): object 'disk' not found  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\") ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address y #> Error in eval(expr, envir, enclos): object 'y' not found mean_amr_distance(y) #> Error in eval(expr, envir, enclos): object 'y' not found y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in eval(expr, envir, enclos): object 'y' not found y[order(y$amr_distance), ] #> Error in eval(expr, envir, enclos): object 'y' not found  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) } #> Error in eval(expr, envir, enclos): object 'y' not found 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) } #> Error in filter(., mo_genus() == \"Enterococcus\" & mo_species() != \"\"): ℹ In argument: `mo_genus() == \"Enterococcus\" & mo_species() != \"\"`. #> Caused by error: #> ! in mo_genus(): argument x is missing and no column with info about #> microorganisms could be found."},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 957 observations 2 variables: code Commonly used code microorganism mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # 'ECO' or 'eco' is the WHONET code for E. coli: microorganisms.codes[microorganisms.codes$code == \"ECO\", ] #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # and therefore, 'eco' will be understood as E. coli in this package: mo_info(\"eco\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 444 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 444 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 444 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 444 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 444 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 444 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 444 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 169 Microorganisms — microorganisms","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: December 11th, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"tibble 52 169 observations 23 variables: mo ID microorganism used package fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. status  Status taxon, either \"accepted\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters, e.g. \"Váňová\" becomes \"Vanova\". lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 73.4% ~36 000 bacteria data set contain oxygen tolerance. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version July 1st, 2021 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"Please note entries based List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"Included taxonomic data : ~36 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species 43 relevant genera kingdom Animalia (Strongyloides Taenia) ~9 800 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 34 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found : https://github.com/msberends/AMR/blob/main/data-raw/reproduction_of_microorganisms.R.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"about-the-records-from-lpsn-see-source-","dir":"Reference","previous_headings":"","what":"About the Records from LPSN (see Source)","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"LPSN main source bacteriological taxonomy AMR package. List Prokaryotic names Standing Nomenclature (LPSN) provides comprehensive information nomenclature prokaryotes. LPSN free use service founded Jean P. Euzeby 1997 later maintained Aidan C. Parte.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 52 169 Microorganisms — microorganisms","text":"","code":"microorganisms #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_uncertainties() #> No uncertainties to show. Only uncertainties of the last call to as.mo() #> or any mo_*() function are stored.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> Error in .Call(Cchmatch, x, table, as.integer(nomatch[1L])): NULL value passed as symbol address"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_oxygen_tolerance(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_anaerobic(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed() mo_info() named character case mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). Determination bacterial oxygen tolerance (mo_oxygen_tolerance()) based BacDive, see Source. function mo_is_anaerobic() returns TRUE oxygen tolerance \"anaerobe\", indicting obligate anaerobic species genus. always returns FALSE species outside taxonomic kingdom Bacteria. function mo_url() return direct URL online database entry, also shows scientific reference concerned species. SNOMED codes (mo_snomed()) version July 1st, 2021. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microoganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_phylum(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_class(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_order(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_family(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_genus(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_species(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_subspecies(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_snomed(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_type(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_rank(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_url(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_authors(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_year(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_lpsn(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gbif(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_synonyms(\"Klebsiella aerogenes\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_species(\"MRSA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"VISA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"VISA\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  mo_genus(\"EHEC\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_species(\"EIEC\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"UPEC\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"K. pneu rh\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Staph epidermidis\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Strep agalactiae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_type(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # 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) } #> Error in filter(., mo_is_gram_positive()): ℹ In argument: `mo_is_gram_positive()`. #> Caused by error: #> ! in mo_is_gram_positive(): argument x is missing and no column with info #> about microorganisms could be found. if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> Error in filter(., mo_is_intrinsic_resistant(ab = \"vanco\")): ℹ In argument: `mo_is_intrinsic_resistant(ab = \"vanco\")`. #> Caused by error: #> ! in mo_is_intrinsic_resistant(): argument x is missing and no column with #> info about microorganisms could be found.  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address # }"},{"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\")   } } #> Error in group_by(., order = mo_order(mo), genus = mo_genus(mo)): ℹ In argument: `order = mo_order(mo)`. #> Caused by error in `.Call()`: #> ! NULL value passed as symbol address # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for mic autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for mic fortify(object, ...)  # S3 method for disk plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk fortify(object, ...)  # S3 method for sir plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for sir autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"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. ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting for Classes sir, mic and disk — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2023\", \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"EUCAST 2012\", \"EUCAST 2011\", \"CLSI 2023\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\", \"CLSI 2012\", \"CLSI 2011\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"some_mic_values <- random_mic(size = 100) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30)) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  plot(some_mic_values) #> Error in eval(expr, envir, enclos): object 'some_mic_values' not found plot(some_disk_values) #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found plot(some_sir_values) #> Error in eval(expr, envir, enclos): object 'some_sir_values' not found  # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\") #> Error in eval(expr, envir, enclos): object 'some_mic_values' not found plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"uk\") #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found  # \\donttest{ if (require(\"ggplot2\")) {   autoplot(some_mic_values) } #> Error in eval(expr, envir, enclos): object 'some_mic_values' not found if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") } #> Error in eval(expr, envir, enclos): object 'some_disk_values' not found if (require(\"ggplot2\")) {   autoplot(some_sir_values) } #> Error in eval(expr, envir, enclos): object 'some_sir_values' not found # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. functions meant count isolates, calculate proportion resistance/susceptibility. Use count() functions count isolates. function susceptibility() essentially equal count_susceptible() / count_all(). Low counts can influence outcome - proportion functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> Error in .Call(Cchin, x, table): NULL value passed as symbol address   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> Error: in resistance(): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # determines %S+I: susceptibility(example_isolates$AMX) #> Error: in susceptibility(): NULL value passed as symbol address sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # be more specific proportion_S(example_isolates$AMX) #> Error: in proportion_S(): NULL value passed as symbol address proportion_SI(example_isolates$AMX) #> Error: in proportion_SI(): NULL value passed as symbol address proportion_I(example_isolates$AMX) #> Error: in proportion_I(): NULL value passed as symbol address proportion_IR(example_isolates$AMX) #> Error: in proportion_IR(): NULL value passed as symbol address proportion_R(example_isolates$AMX) #> Error: in proportion_R(): NULL value passed as symbol address  # 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 } #> Error in summarise(., r = resistance(CIP), n = n_sir(CIP)): ℹ In argument: `r = resistance(CIP)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by error: #> ! in resistance(): NULL value passed as symbol address 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\"),     ) } #> Error in summarise(., cipro_R = resistance(CIP), ci_min = sir_confidence_interval(CIP,     side = \"min\"), ci_max = sir_confidence_interval(CIP, side = \"max\"),     ): ℹ In argument: `cipro_R = resistance(CIP)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by error: #> ! in resistance(): NULL value passed as symbol address 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     ) } #> Error in .Call(Cchin, x, table): NULL value passed as symbol address 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) } #> Error in summarise(., R = resistance(CIP, as_percent = TRUE), SI = susceptibility(CIP,     as_percent = TRUE), n1 = count_all(CIP), n2 = n_sir(CIP),     total = n()): ℹ In argument: `R = resistance(CIP, as_percent = TRUE)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by error: #> ! in resistance(): NULL value passed as symbol address # }"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":null,"dir":"Reference","previous_headings":"","what":"Random MIC Values/Disk Zones/SIR Generation — random","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"functions can used generating random MIC values disk diffusion diameters, AMR data analysis practice. providing microorganism antimicrobial drug, generated results reflect reality much possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(size = NULL, mo = NULL, ab = NULL, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"size desired size returned vector. used data.frame call dplyr verb, get current (group) size left blank. mo character can coerced valid microorganism code .mo() ab character can coerced valid antimicrobial drug code .ab() ... ignored, place allow future extensions prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value)","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"class mic random_mic() (see .mic()) class disk random_disk() (see .disk())","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"base R function sample() used generating values. Generated values based EUCAST 2023 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_disk(25) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_sir(25) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Error in .Call(Cchin, x, table): NULL value passed as symbol address # }"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict Antimicrobial Resistance — resistance_predict","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Create prediction model predict antimicrobial resistance next years statistical solid ground. Standard errors (SE) returned columns se_min se_max. See Examples real live example.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  sir_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  # S3 method for resistance_predict plot(x, main = paste(\"Resistance Prediction of\", x_name), ...)  ggplot_sir_predict(   x,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )  # S3 method for resistance_predict autoplot(   object,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict Antimicrobial Resistance — resistance_predict","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_ab column name x containing antimicrobial interpretations (\"R\", \"\" \"S\") col_date column name date, used calculate years column consist years already - default first column date class year_min lowest year use prediction model, dafaults lowest year col_date year_max highest year use prediction model - default 10 years today year_every unit sequence lowest year found data year_max minimum minimal amount available isolates per year include. Years containing less observations estimated model. model statistical model choice. generalised linear regression model binomial distribution (.e. using glm(..., family = binomial), assuming period zero resistance followed period increasing resistance leading slowly resistance. See Details valid options. I_as_S logical indicate whether values \"\" treated \"S\" (otherwise treated \"R\"). default, TRUE, follows redefinition EUCAST interpretation (increased exposure) 2019, see section Interpretation S, R . preserve_measurements logical indicate whether predictions years actually available data overwritten original data. standard errors years NA. info logical indicate whether textual analysis printed name summary() statistical model. ... arguments passed functions main title plot ribbon logical indicate whether ribbon shown (default) error bars object model data plotted","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Predict Antimicrobial Resistance — resistance_predict","text":"data.frame extra class resistance_predict columns: year value, estimated preserve_measurements = FALSE, combination observed estimated otherwise se_min, lower bound standard error minimum 0 (standard error never go 0%) se_max upper bound standard error maximum 1 (standard error never go 100%) observations, total number available observations year, .e. \\(S + + R\\) observed, original observed resistant percentages estimated, estimated resistant percentages, calculated model Furthermore, model available attribute: attributes(x)$model, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Valid options statistical model (argument model) : \"binomial\" \"binom\" \"logit\": generalised linear regression model binomial distribution \"loglin\" \"poisson\": generalised log-linear regression model poisson distribution \"lin\" \"linear\": linear regression model","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Predict Antimicrobial Resistance — resistance_predict","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"x <- resistance_predict(example_isolates,   col_ab = \"AMX\",   year_min = 2010,   model = \"binomial\" ) #> Error in .Call(Cchin, x, table): NULL value passed as symbol address plot(x) #> Error in eval(expr, envir, enclos): object 'x' not found # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) } #> Error: object 'x' not found  # 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) } #> Error: NULL value passed as symbol address  # 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) } #> Error: In argument: `mo == as.mo(\"E. coli\")`. # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for data.frame skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] 0.0255901"},{"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\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # setting another language set_AMR_locale(\"Spanish\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"Ciprofloxacin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # setting yet another language set_AMR_locale(\"Greek\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"Ciprofloxacin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # setting yet another language set_AMR_locale(\"Ukrainian\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"Ciprofloxacin\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address set_AMR_locale(\"German\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address set_AMR_locale(\"de\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address ab_name(\"amox/clav\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> Error in .Call(Cchin, x, table): NULL value passed as symbol address"},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-0-0-9034","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.0.0.9034","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations EUCAST dosage guideline v13.0 added dosage data set ECOFF: clinical_breakpoints data set now contains epidemiological cut-(ECOFF) values. ECOFFs can used MIC/disk interpretation using .sir(..., breakpoint_type = \"ECOFF\"), important new addition veterinary microbiology. Added support 29 species groups / complexes. gathered new data set microorganisms.groups used clinical breakpoint interpretation. example, CLSI 2023 contains breakpoints RGM group (Rapidly Growing Mycobacterium, containing 80 species) now supported package. Added mo_oxygen_tolerance() retrieve values Added mo_is_anaerobic() determine genera/species obligate anaerobic bacteria Added LPSN GBIF identifiers, oxygen tolerance mo_info() Added SAS Transport files (file extension .xpt) download page use SAS software Added microbial codes Gram-negative/positive anaerobic bacteria","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-0-0-9034","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.0.0.9034","text":"Updated algorithm .mo() giving weight fungi mo_rank() now returns NA ‘unknown’ microorganisms (B_ANAER, B_ANAER-NEG, B_ANAER-POS, B_GRAMN, B_GRAMP, F_FUNGUS, F_YEAST, UNKNOWN) printing microorganism antibiotic codes tibble, mouse-hover now shows full name code Now settable arguments breakpoint type PK/PD, like .sir() now contain name guideline table subtitle plot Fixed formatting sir_interpretation_history() Fixed WHONET codes microorganisms consequently couple entries clinical_breakpoints Fixed bug .mo() led coercion NA values using custom microorganism codes Fixed usage icu_exclude first_isolates() Now allows searching species names Fix using keep_synonyms argument using MO codes input Fix using minimum_matching_score argument Updated code table microorganisms.codes Fixed endless loop using reference_df .mo() Fixed bug indicating UTIs .sir() Greatly improved speed .sir()","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-200","dir":"Changelog","previous_headings":"","what":"AMR 2.0.0","title":"AMR 2.0.0","text":"CRAN release: 2023-03-12 new major release AMR package, great new additions also breaking changes current users. listed . TL;DR functions arguments ‘rsi’ replaced ‘sir’, interpretation MIC values (now .sir() instead .rsi()) - old functions still work now Many new interesting functions, antibiogram() (generating traditional/combined/syndromic/WISCA antibiograms), sir_confidence_interval() mean_amr_distance(), add_custom_microorganisms() add custom microorganisms package Clinical breakpoints added EUCAST 2022 CLSI 2022 Microbiological taxonomy (microorganisms data set) updated 2022 now based LPSN GBIF Much increased algorithms translate user input valid taxonomy, e.g. using recent scientific work per-species human pathogenicity 20 new antibiotics added updated DDDs ATC codes Extended support antiviral agents (antivirals data set), many new functions Now available 20 languages Many small bug fixes","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"sir-vs-rsi-2-0-0","dir":"Changelog","previous_headings":"New","what":"SIR vs. RSI","title":"AMR 2.0.0","text":"milestone version, replaced mentions RSI SIR, comply actually commonly used field clinical microbiology comes tri-form regarding AMR. existing functions .rsi(), rsi_df() ggplot_rsi() still work, replacements .sir(), sir_df(), ggplot_sir() now current functions AMR data analysis. warning thrown session remind users . data set rsi_translation now called clinical_breakpoints better reflect content. ‘RSI functions’ removed future version, late 2023 / early 2024.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-antibiogram-function-2-0-0","dir":"Changelog","previous_headings":"New","what":"New antibiogram function","title":"AMR 2.0.0","text":"new antibiogram() function, users can now generate traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). , follow logic previously described work Klinker et al. (2021, DOI 10.1177/20499361211011373) Barbieri et al. (2021, DOI 10.1186/s13756-021-00939-2). help page antibiogram() extensively elaborates use cases, antibiogram() also supports printing R Markdown Quarto, support 20 languages. Furthermore, different plotting methods implemented allow graphical visualisations well.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"interpretation-of-mic-and-disk-diffusion-values-2-0-0","dir":"Changelog","previous_headings":"New","what":"Interpretation of MIC and disk diffusion values","title":"AMR 2.0.0","text":"clinical breakpoints intrinsic resistance EUCAST 2022 CLSI 2022 added .sir(). EUCAST 2022 (v12.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. default guideline (EUCAST) can now changed new AMR_guideline option, : options(AMR_guideline = \"CLSI 2020\"). new arguments include_PKPD (default: TRUE) include_screening (default: FALSE), users can now specify whether breakpoints screening PK/PD table included interpreting MICs disks diffusion values. options can set globally, can read new manual. Interpretation guidelines older 10 years removed, oldest now included guidelines EUCAST CLSI 2013.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"supported-languages-2-0-0","dir":"Changelog","previous_headings":"New","what":"Supported languages","title":"AMR 2.0.0","text":"added support following ten languages: Chinese (simplified), Czech, Finnish, Greek, Japanese, Norwegian (bokmål), Polish, Romanian, Turkish Ukrainian. antibiotic names now available languages, AMR package automatically determine supported language based user’s system language. grateful valuable input colleagues countries. AMR package now available 20 languages total, according download stats used almost countries world!","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"outbreak-management-2-0-0","dir":"Changelog","previous_headings":"New","what":"Outbreak management","title":"AMR 2.0.0","text":"analysis outbreak management, updated get_episode() is_new_episode() functions: now contain argument case_free_days. argument can used quantify duration case-free days (inter-epidemic interval), new episode start. common requirement outbreak management, e.g. determining number norovirus outbreaks hospital. case-free period 14 28 days, new norovirus cases time considered different (new) episode.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"microbiological-taxonomy-2-0-0","dir":"Changelog","previous_headings":"New","what":"Microbiological taxonomy","title":"AMR 2.0.0","text":"microorganisms data set longer relies Catalogue Life, List Prokaryotic names Standing Nomenclature (LPSN) supplemented ‘backbone taxonomy’ Global Biodiversity Information Facility (GBIF). structure data set changed include separate LPSN GBIF identifiers. Almost previous MO codes retained. contains 1,400 taxonomic names 2022. previously relied experience categorise species pathogenic groups, happy encounter recent work Bartlett et al. (2022, DOI 10.1099/mic.0.001269) extensively studied medical-scientific literature categorise bacterial species groups. See mo_matching_score() work incorporated prevalence column microorganisms data set. Using results, .mo() mo_*() functions now much better capable converting user input valid taxonomic records. new function add_custom_microorganisms() allows users add custom microorganisms AMR package. also made following changes regarding included taxonomy microorganisms functions: Updated full microbiological taxonomy according latest daily LPSN data set (December 2022) latest yearly GBIF taxonomy backbone (November 2022) Added function mo_current() get currently valid taxonomic name microorganism Support 1,516 city-like serovars Salmonella, Salmonella Goldcoast. Formally, serovars belonging S. enterica species, reported name genus city. reason, serovars subspecies column microorganisms data set “enterica” species column, full name contain species name (enterica). new argument keep_synonyms allows correct updated taxonomy, favour now deleted argument allow_uncertain increased tremendously speed returns generally consequent results Sequential coercion now extremely fast results stored package environment, although coercion unknown values must run per session. Previous results can reset/removed new mo_reset_session() function. Support microorganism codes ASIan Antimicrobial Resistance Surveillance Network (ASIARS-Net) MO matching score algorithm (mo_matching_score()) now counts deletions substitutions 2 instead 1, impacts outcome .mo() mo_*() function CRAN allows packages around 5 MB maximum, packages exempted package one Chromista relevant comes antimicrobial resistance, thus lacking primary scope package Chromista almost never clinically relevant, thus lacking secondary scope package microorganisms.old data set removed, previously accepted names now included microorganisms data set. new column status contains \"accepted\" currently accepted names \"synonym\" taxonomic synonyms; currently invalid names. previously accepted names now microorganisms ID - available - LPSN, GBIF SNOMED CT identifier.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antibiotic-agents-and-selectors-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antibiotic agents and selectors","title":"AMR 2.0.0","text":"new function add_custom_antimicrobials() allows users add custom antimicrobial codes names AMR package. antibiotics data set greatly updated: following 20 antibiotics added (also includes new J01RA ATC group): azithromycin/fluconazole/secnidazole (AFC), cefepime/amikacin (CFA), cefixime/ornidazole (CEO), ceftriaxone/beta-lactamase inhibitor (CEB), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), furazidin (FUR), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), lascufloxacin (LSC), levofloxacin/ornidazole (LEO), nemonoxacin (NEM), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin/ornidazole (OOR), oteseconazole (OTE), rifampicin/ethambutol/isoniazid (REI), sarecycline (SRC), tetracycline/oleandomycin (TOL), thioacetazone (TAT) Added missing ATC codes Updated DDDs PubChem Compound IDs Updated antibiotic name spelling, now used WHOCC (cephalexin -> cefalexin, phenethicillin -> pheneticillin) Antibiotic code “CEI” ceftolozane/tazobactam replaced “CZT” comply EARS-Net WHONET 2022. old code still work cases using .ab() ab_*() functions. Support antimicrobial interpretation anaerobic bacteria, adding ‘placeholder’ code B_ANAER microorganisms data set adding breakpoints anaerobics clinical_breakpoints data set, used .sir() interpretion MIC disk diffusion values Also, added support using antibiotic selectors scoped dplyr verbs (without using vars()), : ... %>% summarise_at(aminoglycosides(), resistance), please see resistance() examples.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antiviral-agents-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antiviral agents","title":"AMR 2.0.0","text":"now added extensive support antiviral agents! first time, AMR package extensive support antiviral drugs work names, codes data way. antivirals data set extended 18 new drugs (also new J05AJ ATC group) now also contains antiviral identifiers LOINC codes new data type av (antivirals) added, functionally similar ab antibiotics Functions .av(), av_name(), av_atc(), av_synonyms(), av_from_text() added siblings ab_*() equivalents","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-new-functions-2-0-0","dir":"Changelog","previous_headings":"New","what":"Other new functions","title":"AMR 2.0.0","text":"Function sir_confidence_interval() add confidence intervals AMR calculation. now also included sir_df() proportion_df(). Function mean_amr_distance() calculate mean AMR distance. mean AMR distance normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. Function sir_interpretation_history() view history previous runs .sir() (previously .rsi()). returns ‘logbook’ selected guideline, reference table specific interpretation row data set .sir() run.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changes-2-0-0","dir":"Changelog","previous_headings":"","what":"Changes","title":"AMR 2.0.0","text":"Fix working NA values Fix unsorted dates length 2 Now returns class integer instead numeric since always whole numbers Argument combine_IR removed package (affecting functions count_df(), proportion_df(), sir_df() plotting functions), since replaced combine_SI three years ago Using units ab_ddd(..., units = \"...\") deprecated time now supported anymore. Use ab_ddd_units() instead. Support data.frame-enhancing R packages, specifically: data.table::data.table, janitor::tabyl, tibble::tibble, tsibble::tsibble. AMR package functions data set output (sir_df() bug_drug_combinations()), now return data type input. data sets package now tibble, instead base R data.frames. Older R versions still supported, even support tibbles. data sets now also continually exported Apache Feather Apache Parquet formats. can find info article website. Fixed certain EUCAST breakpoints MIC values Allow NA values (e.g. .sir(.disk(NA), ...)) Fix bug-drug combinations multiple breakpoints different body sites Interpretation MIC disk zones now informative availability breakpoints robust Removed .integer() method MIC values, since MIC integer values running table() MIC values consequently failed able retrieve level position (’s normally .integer() factors work) Fixed determination Gram stains (mo_gramstain()), since taxonomic phyla Actinobacteria, Chloroflexi, Firmicutes, Tenericutes renamed respectively Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota 2021 droplevels() MIC now return common factor default lose mic class. Use droplevels(..., .mic = TRUE) keep mic class. Small fix using ab_from_text() Fixes reading text files using set_mo_source(), now also allows source file contain valid taxonomic names instead valid microorganism ID package Fixed bug mdro() using similar column names Magiorakos guideline Using random_*() function (random_mic()) now possible directly calling package without loading first: AMR::random_mic(10) Extended support vctrs package, used internally tidyverse. allows change values class mic, disk, sir, mo ab tibbles, use antibiotic selectors selecting/filtering, e.g. df[carbapenems() == \"R\", ] Fix using info = FALSE mdro() interpretation guidelines using .sir() amoxicillin, rules ampicillin used amoxicillin rules available Fix using ab_atc() non-existing ATC codes Black white message texts now reversed colour using RStudio dark theme mo_snomed() now returns class character, numeric anymore (make long SNOMED codes readable) Fix using .ab() NA values Updated support WHONET 2022 microorganism codes Antimicrobial interpretation ‘SDD’ (susceptible dose-dependent, coined CLSI) interpreted ‘’ comply EUCAST’s ‘’ .sir() Fix mo_shortname() case higher taxonomic ranks (order, class, phylum) Cleaning columns .sir(), .mic(), .disk() now show column name warning invalid results Fix using g.test() zeroes 2x2 table mo_synonyns() now contains scientific reference names","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-0-0","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.0.0","text":"Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, Andrew Norgan, Jonas Salm, Anita Williams contributors, thank valuable input New website make use new Bootstrap 5 pkgdown 2.0. website now contains results examples automatically regenerated every change repository, using GitHub Actions R Rmd files project now styled using styler package Set scalar conditional expressions (&& ||) possible comply upcoming R 4.3 enormous lot code cleaning, fixing small bugs along way changelog contains changes AMR v2.0 later. prior versions, please see archive.","code":""}]